|
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 G H K L M N O P R S T U V X p ½
Length: 4867392 (0x4a4540)
Description: Bits:30009671 Philips computer tape "600131"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| DRDC15 | «none» |
| DRDC15//OBJCT.OB | ⟦c3983ae7c⟧ pts_type |
| DRDC15/CD1500.UF | ⟦60f55668a⟧ pts_type |
| DRDC15/CR1500.UF | ⟦ab58dbd85⟧ pts_type |
| DRDC15/CR1501.UF | ⟦21fca4828⟧ pts_type |
| DRDC15/CR1502.UF | ⟦a39b12aa8⟧ pts_type |
| DRDC15/CR1503.UF | ⟦22d2b5f36⟧ pts_type |
| DRDC15/CR1504.UF | ⟦cdaaf14fd⟧ pts_type |
| DRDC15/CR1505.UF | ⟦21f075d1c⟧ pts_type |
| DRDC15/DRDC15.SC | ⟦89407316a⟧ pts_type |
| DRDC15/DW1501.SC | ⟦2a4972c38⟧ pts_type |
| DRDC15/UPFILE.UF | ⟦a6f1f2d54⟧ pts_type |
| DRDC15/XXDW15.SC | ⟦4feebad2e⟧ pts_type |
| DRDC15/XXXX15.SC | ⟦e01fb690e⟧ pts_type |
| DRGP02 | «none» |
| DRGP02//OBJCT.OB | ⟦8bfefe1d9⟧ pts_type |
| DRGP02/DATBSC.SC | ⟦0f4485780⟧ pts_type |
| DRGP02/DRGP02.SC | ⟦e0682662e⟧ pts_type |
| DRGP02/PRINT.SC | ⟦1a9103961⟧ pts_type |
| IMPROVE | «none» |
| IMPROVE/DRDY02.SC | ⟦f396121ed⟧ pts_type |
| IMPROVE/DRPL01.SC | ⟦b484e0dfc⟧ pts_type |
| KJELL | «none» |
| KJELL//OBJCT.OB | ⟦6e1177403⟧ pts_type |
| KJELL/EPAD.UF | ⟦a34584e78⟧ pts_type |
| KJELL/EPRINT.UF | ⟦f4146d3cf⟧ pts_type |
| KJELL/EVDU.UF | ⟦273c38d77⟧ pts_type |
| KJELL/PAD.SC | ⟦6f9dfaf9e⟧ pts_type |
| KJELL/PRINT.SC | ⟦ffc077e5e⟧ pts_type |
| KJELL/RUN.UF | ⟦e21b775c7⟧ pts_type |
| KJELL/VDU.SC | ⟦9a448eee1⟧ pts_type |
| KJELL/XPAD.SC | ⟦862eb1897⟧ pts_type |
| KJELL/XPRINT.SC | ⟦1a2300b96⟧ pts_type |
| KJELL/XVDU.SC | ⟦87befee4c⟧ pts_type |
| MODIFY | «none» |
| MODIFY//OBJCT.OB | ⟦f81bf779b⟧ pts_type |
| MODIFY/APLINK.UF | ⟦2fd4660bb⟧ pts_type |
| MODIFY/APPGEN.LM | ⟦77f51dee6⟧ pts_type |
| MODIFY/APPGEN.UF | ⟦0672d1a44⟧ pts_type |
| MODIFY/CONFIG.UF | ⟦2856ff227⟧ pts_type |
| MODIFY/CONVER.SC | ⟦489b02b16⟧ pts_type |
| MODIFY/CTAB01.SC | ⟦c648624d7⟧ pts_type |
| MODIFY/DATBSC.SC | ⟦8a1693e9b⟧ pts_type |
| MODIFY/DCBSC.SC | ⟦cded50129⟧ pts_type |
| MODIFY/DSPBSC.SC | ⟦823d30b4e⟧ pts_type |
| MODIFY/GTCONF.UF | ⟦08e976c74⟧ pts_type |
| MODIFY/KAFFE.UF | ⟦00eff85ac⟧ pts_type |
| MODIFY/KEYB.SC | ⟦1bf234b60⟧ pts_type |
| MODIFY/MAXCON.UF | ⟦748efb741⟧ pts_type |
| MODIFY/MINCON.UF | ⟦76cb40b7a⟧ pts_type |
| MODIFY/OBDIR.UF | ⟦29e8e95c9⟧ pts_type |
| MODIFY/ONECON.UF | ⟦a6ccef11e⟧ pts_type |
| MODIFY/PAD.SC | ⟦c31b41963⟧ pts_type |
| MODIFY/PRINT.SC | ⟦806985577⟧ pts_type |
| MODIFY/PT3270.LM | ⟦1723c7718⟧ pts_type |
| MODIFY/PT32XX.LM | ⟦7a258b840⟧ pts_type |
| MODIFY/TSTCON.UF | ⟦3fa6b9fb1⟧ pts_type |
| MODIFY/TWOCON.UF | ⟦941aacf3f⟧ pts_type |
| MODIFY/UPDAPP.UF | ⟦b929a6d19⟧ pts_type |
| MODIFY/VDU.SC | ⟦ca1b1e9cd⟧ pts_type |
| PT3272 | «none» |
| PT3272//OBJCT.OB | ⟦92d973ca6⟧ pts_type |
| PT3272/APLINK.UF | ⟦c385493d0⟧ pts_type |
| PT3272/APPGEN.LM | ⟦77f51dee6⟧ pts_type |
| PT3272/APPGEN.UF | ⟦0672d1a44⟧ pts_type |
| PT3272/CONFIG.UF | ⟦2856ff227⟧ pts_type |
| PT3272/CONVER.SC | ⟦489b02b16⟧ pts_type |
| PT3272/CTAB01.SC | ⟦c648624d7⟧ pts_type |
| PT3272/DATBSC.SC | ⟦7f24fab8f⟧ pts_type |
| PT3272/DCBSC.SC | ⟦5b1fa5339⟧ pts_type |
| PT3272/DISKS.UF | ⟦a1e7c9807⟧ pts_type |
| PT3272/DSPBSC.SC | ⟦57546cb0a⟧ pts_type |
| PT3272/GTCONF.UF | ⟦08e976c74⟧ pts_type |
| PT3272/KEYB.SC | ⟦1be416242⟧ pts_type |
| PT3272/KJLCON.UF | ⟦8b3de6980⟧ pts_type |
| PT3272/KJRUN.UF | ⟦9bbaf671c⟧ pts_type |
| PT3272/LISTO.UF | ⟦d90cf9fb2⟧ pts_type |
| PT3272/MAXCON.UF | ⟦748efb741⟧ pts_type |
| PT3272/MINCON.UF | ⟦76cb40b7a⟧ pts_type |
| PT3272/NPLINK.UF | ⟦68aa65ad5⟧ pts_type |
| PT3272/OBDIR.UF | ⟦1dd801443⟧ pts_type |
| PT3272/ONECON.UF | ⟦ba15af138⟧ pts_type |
| PT3272/PAD.SC | ⟦c0915507e⟧ pts_type |
| PT3272/PRINT.SC | ⟦eb5f9bbe4⟧ pts_type |
| PT3272/PRTMOD.UF | ⟦5552131df⟧ pts_type |
| PT3272/PT3272.LM | ⟦bba35c7f2⟧ pts_type |
| PT3272/RUN.UF | ⟦e751d84df⟧ pts_type |
| PT3272/TSTCON.UF | ⟦3fa6b9fb1⟧ pts_type |
| PT3272/TWOCON.UF | ⟦4f76672fa⟧ pts_type |
| PT3272/UPDAPP.UF | ⟦b929a6d19⟧ pts_type |
| PT3272/VDU.SC | ⟦b1bf1d59c⟧ pts_type |
| PTMON | «none» |
| PTMON//OBJCT.OB | ⟦55f0e01a0⟧ pts_type |
| PTMON/CTAB01.SC | ⟦409c55bd3⟧ pts_type |
| PTMON/DCADDR.SC | ⟦4f91c3907⟧ pts_type |
| PTMON/DCSTAT.SC | ⟦add471f6c⟧ pts_type |
| PTMON/DIALOG.UF | ⟦4a65242d4⟧ pts_type |
| PTMON/DRDC15.SC | ⟦b20cf9258⟧ pts_type |
| PTMON/DRDC25.SC | ⟦4903ad718⟧ pts_type |
| PTMON/DRDI01.SC | ⟦8677db159⟧ pts_type |
| PTMON/DRDY02.SC | ⟦e96e0150b⟧ pts_type |
| PTMON/DRGP02.SC | ⟦e0682662e⟧ pts_type |
| PTMON/DRIC01.SC | ⟦567f548d4⟧ pts_type |
| PTMON/DRKB04.SC | ⟦ec81d98c9⟧ pts_type |
| PTMON/DRND01.SC | ⟦ad29c051c⟧ pts_type |
| PTMON/DRPL01.SC | ⟦a406d0aea⟧ pts_type |
| PTMON/DSKSUB.SC | ⟦4b3d16e3b⟧ pts_type |
| PTMON/DVDI00.SC | ⟦d9d04b278⟧ pts_type |
| PTMON/DVDI01.SC | ⟦cc33de3a0⟧ pts_type |
| PTMON/DVDY00.SC | ⟦cb991dc95⟧ pts_type |
| PTMON/DVG100.SC | ⟦80649e70a⟧ pts_type |
| PTMON/DVKB00.SC | ⟦3770f7bad⟧ pts_type |
| PTMON/DVKB01.SC | ⟦ef0493696⟧ pts_type |
| PTMON/DVTDI.SC | ⟦5ef172779⟧ pts_type |
| PTMON/DVTDY.SC | ⟦c73e6c9c4⟧ pts_type |
| PTMON/DVTG1.SC | ⟦b3aaa9d75⟧ pts_type |
| PTMON/DVTKB.SC | ⟦19488c044⟧ pts_type |
| PTMON/DW1501.SC | ⟦0f6cfaa63⟧ pts_type |
| PTMON/DW2501.SC | ⟦c440ee429⟧ pts_type |
| PTMON/DWII01.SC | ⟦d4b6ad8b7⟧ pts_type |
| PTMON/DWIO01.SC | ⟦6a5278fd8⟧ pts_type |
| PTMON/EBCDIC.SC | ⟦bc0c00426⟧ pts_type |
| PTMON/FILLER.SC | ⟦fd042dd74⟧ pts_type |
| PTMON/LDTASK.SC | ⟦34150bdd5⟧ pts_type |
| PTMON/LKMAL.SC | ⟦1b3c2a949⟧ pts_type |
| PTMON/LRPINT.SC | ⟦55a92314f⟧ pts_type |
| PTMON/MONTAB.SC | ⟦a1ecb739b⟧ pts_type |
| PTMON/MONTIM.SC | ⟦975874d10⟧ pts_type |
| PTMON/MSUBS.SC | ⟦42f93eef9⟧ pts_type |
| PTMON/P2TAB.SC | ⟦d5ab662e3⟧ pts_type |
| PTMON/PFTAB.SC | ⟦9143b78b0⟧ pts_type |
| PTMON/PROGEN.UF | ⟦f93519e10⟧ pts_type |
| PTMON/PT2GEN.UF | ⟦47907c4dd⟧ pts_type |
| PTMON/PT2MON.LM | ⟦964449970⟧ pts_type |
| PTMON/PTMGEN.UF | ⟦b247d7f7f⟧ pts_type |
| PTMON/PTMON.LM | ⟦0f865a0fd⟧ pts_type |
| PTMON/PTMON.UF | ⟦af9fb0d77⟧ pts_type |
| PTMON/S2CLAS.SC | ⟦d398b9ec9⟧ pts_type |
| PTMON/SCLASS.SC | ⟦ec2988bb3⟧ pts_type |
| PTMON/ST8000.SC | ⟦6718eb81d⟧ pts_type |
| PTMON/SYS2DC.SC | ⟦3a6e35623⟧ pts_type |
| PTMON/SYSINI.SC | ⟦7c6c56ade⟧ pts_type |
| PTMON/SYSLCR.SC | ⟦5744a2e8f⟧ pts_type |
| PTMON/SYSLDM.SC | ⟦1d3124ff4⟧ pts_type |
| PTMON/SYSLOD.SC | ⟦35bb9cb78⟧ pts_type |
| PTMON/SYSPRO.SC | ⟦24dc728b8⟧ pts_type |
| PTMON/TABORT.SC | ⟦ff5fc273b⟧ pts_type |
| PTMON/TCLASS.SC | ⟦32d1ecaf1⟧ pts_type |
| PTMON/TDISP.SC | ⟦a64cd893b⟧ pts_type |
| PTMON/TIMER.SC | ⟦7d507afc2⟧ pts_type |
| PTMON/TLDSEG.SC | ⟦ba2673fbb⟧ pts_type |
| PTMON/TMMLKM.SC | ⟦ca2f5a8bb⟧ pts_type |
| PTMON/TMOVE.SC | ⟦6cb83a838⟧ pts_type |
| PTMON/TOSSIO.SC | ⟦45ff4ff06⟧ pts_type |
| PTMON/TPROC.SC | ⟦93f0f3473⟧ pts_type |
| PTMON/TTMJOB.SC | ⟦d99f95a49⟧ pts_type |
| SAG | «none» |
| SAVE | «none» |
| SAVE/CTAB01.SC | ⟦6a8b88704⟧ pts_type |
| SAVE/DSPBSC.SC | ⟦4cb659dd4⟧ pts_type |
| SAVE/PAD.SC | ⟦85a68c32f⟧ pts_type |
| SCLASS | «none» |
| SCLASS/SCLASS.SC | ⟦c7fb134e3⟧ pts_type |
| SYSLDM | «none» |
| SYSLDM/SYSLDM.SC | ⟦56abc807a⟧ pts_type |
| UPDATE | «none» |
| UPDATE//OBJCT.OB | ⟦c64f2af60⟧ pts_type |
| UPDATE/CTAB01.SC | ⟦6519f10fb⟧ pts_type |
| UPDATE/DATBSC.SC | ⟦d0c02e11f⟧ pts_type |
| UPDATE/DRDC15.SC | ⟦2f1dc07cf⟧ pts_type |
| UPDATE/DRKB04.SC | ⟦4fd7bf5d8⟧ pts_type |
| UPDATE/DRPL01.SC | ⟦22194e2f6⟧ pts_type |
| UPDATE/DW1501.SC | ⟦00bd04b2e⟧ pts_type |
| UPDATE/LRPINT.SC | ⟦3fc103b0a⟧ pts_type |
| UPDATE/OBDIR.UF | ⟦b764578bb⟧ pts_type |
| UPDATE/PAD.SC | ⟦9aaa648e5⟧ pts_type |
| UPDATE/PRINT.SC | ⟦a3bf8aebe⟧ pts_type |
| UPDATE/PTCONF.UF | ⟦ec4015885⟧ pts_type |
| UPDATE/PTMGEN.UF | ⟦4af9a8bc5⟧ pts_type |
| UPDATE/SYSLCR.SC | ⟦d1ab9168f⟧ pts_type |
| UPDATE/SYSLDM.SC | ⟦334e2dcf1⟧ pts_type |
| UPDATE/SYSTAB.SC | ⟦cbc11558d⟧ pts_type |
| UPDATE/TCLASS.SC | ⟦6e3c55071⟧ pts_type |
| UPDATE/TOSSIO.SC | ⟦45ff4ff06⟧ 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=»UPDATE«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0010, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DRPL01«, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x0018, f03=0x0008}
0x000ca0…001940 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0190, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0288, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0290, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0320, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0340, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0358, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DRKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0388, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SYSLCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03e0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04f0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»PAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0540, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»PTCONF«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x05c8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DATBSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05d0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05e8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x05f8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0618, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»PTMGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07d8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07e0, f03=0x0000}
0x000ca0…001940 }
0x001940…001ad4 (1, 1) Opaque[0x194]
0x001ad4…001c68 # DirEnt {nam=»DRPL01«, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x0018, f03=0x0008}
0x001ad4…001c68 IdxSect {
0x001ad4…001c68 f00 = 0x0000 // 0x1ad4 @0x0
0x001ad4…001c68 f01 = 0x005e // 0x1ad6 @0x2
0x001ad4…001c68 gno = [ // 0x1ad8 @0x4
0x001ad4…001c68 [0x00]: C0x0000.0x3.0
0x001ad4…001c68 [0x01]: C0x0001.0x0.0
0x001ad4…001c68 [0x02]: C0x0001.0x1.0
0x001ad4…001c68 [0x03]: C0x0001.0x2.0
0x001ad4…001c68 [0x04]: C0x0001.0x3.0
0x001ad4…001c68 [0x05]: C0x0002.0x0.0
0x001ad4…001c68 [0x06]: C0x0002.0x1.0
0x001ad4…001c68 [0x07]: C0x0002.0x2.0
0x001ad4…001c68 [0x08]: C0x0002.0x3.0
0x001ad4…001c68 [0x09]: C0x0003.0x0.0
0x001ad4…001c68 [0x0a]: C0x0003.0x1.0
0x001ad4…001c68 [0x0b]: C0x0003.0x2.0
0x001ad4…001c68 [0x0c]: C0x0003.0x3.0
0x001ad4…001c68 [0x0d]: C0x0004.0x0.0
0x001ad4…001c68 [0x0e]: C0x0004.0x1.0
0x001ad4…001c68 [0x0f]: C0x0004.0x2.0
0x001ad4…001c68 [0x10]: C0x0004.0x3.0
0x001ad4…001c68 [0x11]: C0x0005.0x0.0
0x001ad4…001c68 [0x12]: C0x0005.0x1.0
0x001ad4…001c68 [0x13]: C0x0005.0x2.0
0x001ad4…001c68 [0x14]: C0x0005.0x3.0
0x001ad4…001c68 [0x15]: C0x0006.0x0.0
0x001ad4…001c68 [0x16]: C0x0006.0x1.0
0x001ad4…001c68 [0x17]: C0x0006.0x2.0
0x001ad4…001c68 [0x18]: C0x0006.0x3.0
0x001ad4…001c68 [0x19]: C0x0007.0x0.0
0x001ad4…001c68 [0x1a]: C0x0007.0x1.0
0x001ad4…001c68 [0x1b]: C0x0007.0x2.0
0x001ad4…001c68 [0x1c]: C0x0007.0x3.0
0x001ad4…001c68 [0x1d]: C0x0008.0x0.0
0x001ad4…001c68 [0x1e]: C0x0008.0x1.0
0x001ad4…001c68 [0x1f]: C0x0008.0x2.0
0x001ad4…001c68 [0x20]: C0x0008.0x3.0
0x001ad4…001c68 [0x21]: C0x0009.0x0.0
0x001ad4…001c68 [0x22]: C0x0009.0x1.0
0x001ad4…001c68 [0x23]: C0x0009.0x2.0
0x001ad4…001c68 [0x24]: C0x0009.0x3.0
0x001ad4…001c68 [0x25]: C0x000a.0x0.0
0x001ad4…001c68 [0x26]: C0x000a.0x1.0
0x001ad4…001c68 [0x27]: C0x000a.0x2.0
0x001ad4…001c68 [0x28]: C0x000a.0x3.0
0x001ad4…001c68 [0x29]: C0x000b.0x0.0
0x001ad4…001c68 [0x2a]: C0x000b.0x1.0
0x001ad4…001c68 [0x2b]: C0x000b.0x2.0
0x001ad4…001c68 [0x2c]: C0x000b.0x3.0
0x001ad4…001c68 [0x2d]: C0x000c.0x0.0
0x001ad4…001c68 [0x2e]: C0x000c.0x1.0
0x001ad4…001c68 ]
0x001ad4…001c68 }
0x001c68…001dfc Dummy {f00=0x0000, f01=0x0190, f02=» 2 P IDENT DRPL01 REL 11.0 81-06-23 870105041100 P : P =7,CORR. OF CWT-DISPL. B P REL 11.0 81-06-11 d ( P =6,LENGTH OF LONG BUFFERS CHANGED P REL 11.0 81-05-27 P =5,CORR. OF RWSI-CWT:S , $ P OPEN LINE PROC. & COND. A
0x001dfc…001f90 Dummy {f00=0x0000, f01=0x0190, f02=» REL 11.0 81-04-29 & P =2,CORR. OF OPEN LINE PROCEDURE P REL 11.0 81-04-21 F P GENERAL UPDATE FOR RWSI b P REL 11.0 81-01-26 ( P =1,OPEN LINE PARAM. AREA EXPANDED P PRR 11.0 80-11-19 P* P* P* P*
0x001f90…002124 Dummy {f00=0x0000, f01=0x0190, f02=»* DRPL01 = DRIVER PROCESSOR FOR LINE CONTROL, . P* LOCAL & REMOTE CONNECTIONS : P* l P* v P* @ P************************************************************ P* P* 2 P* THIS PROGRAM HANDLES I/O OPERATION
0x002124…0022b8 Dummy {f00=0x0000, f01=0x0190, f02=»PUT AND OUTPUT OF CHARACTERS FROM/TO THE 6 P* TERMINAL DEVICE DRIVERS ARE MADE ON CHARACTER 0 4 P* BASIS. BLOCKING AND DEBLOCKING OF CHARACTERS j 4 P* IN DATA PACKETS ARE HANDLED BY THIS DRIVER. P* P EJECT P* : P* THE PROG
0x0022b8…00244c Dummy {f00=0x0000, f01=0x018e, f02=»S ARE LISTED AT r 4 P* BEGINNING OF EACH SECTION. THE SECTIONS, IN * P* ORDER OF APPEARANCE IN LIST, ARE: P P* ~ P* NAME FUNCTION P* & P* ENTRIES DECLARE ENTRY POINTS . P* EXTERNALS DECLARE EXTERNAL REFERENCES 6 P
0x00244c…0025e0 Dummy {f00=0x0000, f01=0x0190, f02=» 0 P* REQUEST DEVICE DRIVER REQUEST ROUTINES $ P* INTERRUPT INTERRUPT ENTRIES 8 8 P* RECOVERY SYSTEM START, POWER FAIL AND RECOVERY ` & P* DISPATCH LOCAL PLC DISPATCHER ( P* ROUTINE COMMON SERVICE ROUTINES , P* SUBROUTIN COMMON S
0x0025e0…002774 (1, 2) Dummy {f00=0x0001, f01=0x0190, f02=»* P*********** P* P* I/O REQUESTS ( P* B " P ENTRY PLCHRI CHARACTER INPUT L . P ENTRY PLSTBL DEFINE START OF OUTPUT BLOCK r " P ENTRY PLCHRO CHARACTER OUTPUT , P ENTRY PLENBL DEFINE END OF OUTPUT BLOCK " P ENTRY PLDISP
0x002774…002908 Dummy {f00=0x0001, f01=0x0190, f02=»MOTE v * P ENTRY PRENBL END OUTP BLOCK, REMOTE & P ENTRY PRDISP LOCAL DSIP. REMOTE < P ENTRY PLTEST TEST COMMANDS f P ENTRY CWTPLC CWT TABLE $ P ENTRY GETDWT GET DWT SUBROUTINE P* P* P* INTERRUPTS P* P
0x002908…002a9c Dummy {f00=0x0001, f01=0x0190, f02=»* & P ENTRY IHPR01 PLC NUMBER 5,REMOTE & P ENTRY IHPR02 6,REMOTE 4 & P ENTRY IHPR03 7,REMOTE ^ & P ENTRY IHPR04 8,REMOTE P* P* RECOVERY AT TC POWER UP P* * P ENTRY PLON RECOVER ALL DEFINE
0x002a9c…002c30 Dummy {f00=0x0001, f01=0x0190, f02=»MONITOR P* P* ROUTINES P EXTRN TDISP TOSS DISPATCHER 2 " P EXTRN QMJOB QUEUE MONITOR JOB V & P EXTRN MEXIT EXIT FROM MONITOR JOB | $ P EXTRN GETBLK GET MONITOR BLOCK & P EXTRN FREBLK RETURN MONITOR BLOCK ( P EXTRN SAVE8 PUS
0x002c30…002dc4 Dummy {f00=0x0001, f01=0x018e, f02=»V LATEST INTERRUPT SAVE AREA P* $ P* . P* DRND01 SERVICE ROUTINES 8 P* * P EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT f , P EXTRN NDGET8 GET A3-A5, A7-A8 FROM DWT 2 P EXTRN NDREWS CALL RECOVERY FOR ALL DEV ON WS ( P EXTRN NDREDW
0x002dc4…002f58 Dummy {f00=0x0001, f01=0x0190, f02=» P* 4 P* DRND01 ROUTINES FOR RETURN TO DEVICE DRIVER P* J " P EXTRN NDREPO POP, OK & RETURN T P EXTRN NDRETO OK & RETURN z P EXTRN NDREP POP & RETURN P EXTRN NDRET RETURN P* P* P* DWT DISPLACEMENTS
0x002f58…0030ec Dummy {f00=0x0001, f01=0x0190, f02=»WTADR DRIVER ADDRESS BLOCK ADDRESS P EXTRN DWTOTQ QUEUE LINK * 0 P EXTRN DWTCP2 SECOND CHANNEL PARAMETER WORD J . P EXTRN DWTLD1 PLC INPUT/OUTPUT BUFFER ADDR ~ , P EXTRN DWTLD2 PLC FLOW CONTROL COUNTERS 0 P EXTRN DWTTBU PLC TEST COMMANDS BUFFER A
0x0030ec…003280 Dummy {f00=0x0001, f01=0x0190, f02=» P* P* WORK STATION TABLES P* 2 P EXTRN INTPL1 PLC 1 < P EXTRN INTPL2 PLC 2 X P EXTRN INTPL3 PLC 3 t P EXTRN INTPL4 PLC 4 P* P EXTRN INTPR1 REMOTE P EXTRN INTPR2 REMOTE P EXTRN INTPR3 REMOTE
0x003280…003414 (1, 3) Dummy {f00=0x0001, f01=0x018e, f02=» P EJECT P* P************************ P* CONDITIONAL ASSEMBLY * @ P************************ ` P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P*
0x003414…0035a8 Dummy {f00=0x0001, f01=0x0190, f02=» PPLCNRL EQU X:A P* D P* PLCNRR DEFINES THE NUMBER OF REMOTE PLC:S ACTUALLY CONN. (0-4) ( P* p PX:B EQU 0 z PPLCNRR EQU X:B P* P* P EJECT P* P************* P* CONSTANTS * P*************
0x0035a8…00373c Dummy {f00=0x0001, f01=0x0190, f02=»* 4 P* MAXIMAL NUMBER OF WORK STATIONS PER PLC (1-32) PMAXWS EQU 32 B P* V > P* DELAY BEFORE EXECUTING "TEST CU" AT RESTART. (IN 100 MS) ` PSTADLY EQU 100 10 SECONDS P* B P* LENGTH OF USER PART OF SHORT OUTPUT BUFFER IN WORDS (1-1
0x00373c…0038d0 Dummy {f00=0x0001, f01=0x0190, f02=» ( P* INACTIVITY TIMER (MINUTES) PTIMACT EQU 5 4 P* H < P* IF PLCTST IS 1 THE PLC DIAGNOSTIC COMMANDS ARE HANDLED R P* BY THIS DRIVER. P* PPLCTST EQU 0 P* P* D P* A TEST VERSION OF THE DRIVER IS OBTAINED
0x0038d0…003a64 Dummy {f00=0x0001, f01=0x0190, f02=»D AND TRAP IS USED j P* PUTTEST EQU 0 $ P* 8 P* B 6 P* LOBUFN IS THE NUMBER OF LONG OUTPUT BUFFERS USED L P* FOR EACH PLC (1-6) P* PLOBUFN EQU 3 P* P* 6 P* LOBUFU IS THE LENGTH OF THE USER PART OF A LONG
0x003a64…003bf8 Dummy {f00=0x0001, f01=0x0190, f02=»UPT LEVELS | 0 P* THESE LEVELS MUST CORRESPOND TO INTERRUPT P* VECTOR IN SYSTAB F P* ` PINTLV0 EQU 26 PLC NUMBER 1 j PINTLV1 EQU 27 PLC NUMBER 2 PINTLV2 EQU 24 PLC NUMBER 3 PINTLV3 EQU 25 PLC NUMBER 4 & PINTRV0 EQU 18 PLC NUMB
0x003bf8…003d8c Dummy {f00=0x0001, f01=0x0190, f02=»TE p P* & P* CHANNEL UNIT DEVICE ADDRESSES P* > PPLCDA0 EQU /06 PLC 1 H PPLCDA1 EQU /07 PLC 2 d PPLCDA2 EQU /26 PLC 3 PPLCDA3 EQU /27 PLC 4 PPLCDA4 EQU /3A PLC 5 PPLCDA5 EQU /3B PLC 6 PPLCDA6 EQU /2A PLC 7
0x003d8c…003f20 Dummy {f00=0x0001, f01=0x0190, f02=»UFFER HEADER LENGTH (WORDS) 2 PFLOWLW EQU 2 FLOW CONTROL FIELD LENGTH (WORDS) $ 2 PSYSTLW EQU HEADLW+FLOWLW SYSTEM PART OF BUFFER Z P* P* LONG OUTPUT BUFFERS : PLOBUF1 EQU SYSTLW+LOBUFU LENGTH OF ONE BUFFER (WORDS) & PLOBUF2 EQU LOB
0x003f20…0040b4 (1, 4) Dummy {f00=0x0001, f01=0x018e, f02=»OBUF5+LOBUF1 P IFT LOBUFN=1 4 PLOBUFS EQU LOBUF1 LENGTH OF BUFFER AREA (WORDS) * P XIF b P IFT LOBUFN=2 n 4 PLOBUFS EQU LOBUF2 LENGTH OF BUFFER AREA (WORDS) P XIF P IFT LOBUFN=3 4 PLOBUFS EQU LOBUF3 LENGTH OF BUFFER AREA (W
0x0040b4…004248 Dummy {f00=0x0001, f01=0x0190, f02=» 4 PLOBUFS EQU LOBUF5 LENGTH OF BUFFER AREA (WORDS) P XIF < P IFT LOBUFN=6 H 4 PLOBUFS EQU LOBUF6 LENGTH OF BUFFER AREA (WORDS) ^ P XIF P* P EJECT P* P* SHORT OUTPUT BUFFERS : PSOBUF1 EQU SYSTLW+SOBUFU LENGTH
0x004248…0043dc Dummy {f00=0x0001, f01=0x0190, f02=»SOBUFS EQU SOBUF8 LENGTH OF BUFFER AREA (WORDS) P* 8 P* GENERAL READ BUFFERS B : PGRBUF1 EQU SYSTLW+GRBUFU LENGTH OF ONE BUFFER (WORDS) f PGRBUF2 EQU GRBUF1+GRBUF1 4 PGRBUFS EQU GRBUF2 LENGTH OF BUFFER AREA (WORDS) P* 2 P*
0x0043dc…004570 Dummy {f00=0x0001, f01=0x0190, f02=»OUTPUT BUFFERS r 2 PGRBUFL EQU GRBUFU+GRBUFU GENERAL READ BUFFERS P* L P EJECT V P* d 0 P* CONTROLLER COMMAND RECORD (CCR) LAYOUT n P* ( PCCRDLS EQU 0 DATA LINK STATION INDEX PCCRCMD EQU 1 COMMAND CODE " PCCRSU1 EQU 2 S
0x004570…004704 Dummy {f00=0x0001, f01=0x0190, f02=» EQU 7 IDENTITY, BYTE FIELD & PCCRIDW EQU 8 IDENTITY, WORD FIELD $ ( PCCRLEN EQU 10 BUFFER LENGTH (BYTES) N 6 PCCRC1B EQU 12 DATA CHAINING CTRL & MSB BUFFER ADDR z PCCRBUF EQU 14 BUFFER ADDRESS P* P* P* BUFFER LAYOUT P*
0x004704…004898 Dummy {f00=0x0001, f01=0x0190, f02=»LINK x PBUFDWT EQU -6 DWT ADDRESS * PBUFLEN EQU -4 LENGTH OF TEXT IN BUFFER . PBUFBIX EQU -2 BYTE INDEX $ P* X25 CONTROL FIELD LAYOUT | . PX25LGN EQU 0 LOGICAL CHANNEL GROUP NUMBER ( PX25LCN EQU 1 LOGICAL CHANNEL NUMBER * PX25FLW
0x004898…004a2c Dummy {f00=0x0001, f01=0x0190, f02=» z P* $ PCMDTC EQU /80 TEST CHANNEL UNIT PCMDOP EQU /86 OPEN LINE : PCMDOD EQU /85 OPEN DLS Z & PCMDPS EQU /84 GET LINE STATISTICS x $ PCMDDS EQU /83 GET DLS STATISTICS $ PCMDRM EQU /87 READ LOCAL MEMORY PCMDSW EQU /40 STANDARD
0x004a2c…004bc0 Dummy {f00=0x0001, f01=0x0190, f02=» l P* $ PORDPS EQU 1 GET LINE STATISTICS " PORDDS EQU 2 GER DLS STATISTICS : " PORDRM EQU 3 READ LOCAL MEMORY ` P* P* P* MESSAGE TYPES P* & PTYERR EQU 0 ILLEGAL TYPE OR ERROR 2 PTYNFLO EQU 2 DATA PACKET WITH NO
0x004bc0…004d54 (1, 5) Dummy {f00=0x0001, f01=0x0190, f02=» p PTYRES EQU 10 RESET PACKET , PTYRESC EQU 12 RESET CONFIRMATION PACKET * P* Z P EJECT d P* r " P* DWT STATUS FLAGS (DWTST) | P* $ PDWFBSY EQU /8000 DEVICE NOT BUSY PDWFECH EQU /2000 ECHO MODE $ PDWFINP EQU /0020 I
0x004d54…004ee8 Dummy {f00=0x0001, f01=0x0190, f02=»FAK3 PLC FLAGS | 2 PDWFTY1 EQU /0002 USE ONLY TYPE 1 DATA PACKETS * PDWFSAC EQU /0001 WAIT FOR LEVEL 3 ACK L P* z P* " P* PLC STATUS FLAGS (CCRSTA) P* " PSTANOC EQU /0001 NO CONNECTION PSTALIR EQU /0004 LINK RESET & P
0x004ee8…00507c Dummy {f00=0x0001, f01=0x0190, f02=» " PSTAREQ EQU /8000 REQUEST ERROR ( PSTANOB EQU /0800 NO BUFFERS FOR CCR . $ PSTAPOL EQU /0100 POLLING STOPPED Z 0 PSTACOM EQU /0080 COMMUNICATION REESTABLISHED $ PSTASEQ EQU /0010 SEQUENCE ERROR $ PSTAILL EQU /0008 ILLEGAL LENGTH PST
0x00507c…005210 Dummy {f00=0x0001, f01=0x0190, f02=»NICATION ERROR | P* ! P* ! & P* MASKS FOR CHANNEL PARAMETERS ! * P* ! T ( PMASKPL EQU /0F PLC NUMBER (0-3 USED) ! ^ 2 PMASKWS EQU /3F WORK STATION NUMBER (1-32 USED) ! . PMASKLC EQU /3F LOGICAL CHANNEL (0-7 USED) ! P* ! P* ! P*
0x005210…0053a4 Dummy {f00=0x0001, f01=0x0190, f02=» $ PPLSERR EQU /0001 SOFTWARE ERROR " P* AT RECOVERY ENTRY " , PRETCP EQU /0001 TC POWER UP " L ( PRESECP EQU /0002 SECONDARY POWER UP " p PRELINE EQU /0004 LINK ERROR " P* " P* " P* MISCELLANEOUS " P* " * PPLCERR EQU /F1 S
0x0053a4…005538 Dummy {f00=0x0001, f01=0x0190, f02=»* " P EJECT # P* # P************** # " P* DATA AREAS * # 8 P************** # N P* # d P* CWT ADDRESS TABLE # n P* # PCWTPLC EQU * # PTABCWT EQU * # P IFF PLCNRL=0 # " P DATA PL0CWT CWT FOR PLC NR 1 # P IFF PLCNRL=1
0x005538…0056cc Dummy {f00=0x0001, f01=0x0190, f02=»3CWT CWT FOR PLC NR 4 # P XIF $ P* $ * P IFF PLCNRL=4 $ 4 " P DATA 0 PLC NR 4 NOT CONNECTED $ J P IFF PLCNRL=3 $ p " P DATA 0 PLC NR 3 NOT CONNECTED $ P IFF PLCNRL=2 $ " P DATA 0 PLC NR 2 NOT CONNECTED $ P IFF PLCNRL=1 =5 $ & P DATA
0x0056cc…005860 Dummy {f00=0x0001, f01=0x0190, f02=»1 $ ( P DATA PR2CWT CWT FOR PLC NR. 6, REM. % P IFF PLCNRR=2 % 6 ( P DATA PR3CWT CWT FOR PLC NR. 7, REM. % L P IFF PLCNRR=3 % x ( P DATA PR4CWT CWT FOR PLC NR. 8, REM. % P XIF % P* % P IFF PLCNRR=4 % " P DATA 0 PLC NR 8 NOT CONNECTED %
0x005860…0059f4 (1, 6) Dummy {f00=0x0002, f01=0x018e, f02=»1 % " P DATA 0 PLC NR 5 NOT CONNECTED & P XIF & 0 P* & < P EJECT & F P* & T P* & ^ POPARR1 EQU * & h P IFF PLCNRR=0 U =5 & | P DATA OPNR10 LINE 0 & P DATA OPNR11 LINE 1 & P DATA OPNR12 LINE 2 & P DATA OPNR13 LINE 3 & P X
0x0059f4…005b88 Dummy {f00=0x0002, f01=0x0190, f02=» P DATA OPNR22 LINE 2 ' P DATA OPNR23 LINE 3 ' P XIF ' < POPARR3 EQU * ' H P IFF PLCNRR=0 U =5 ' P IFF PLCNRR=1 U =5 ' v P IFF PLCNRR=2 U =5 ' P DATA OPNR30 LINE 0 ' P DATA OPNR31 LINE 1 ' P DATA OPNR32 LINE 2 ' P DATA OPNR
0x005b88…005d1c Dummy {f00=0x0002, f01=0x0190, f02=»NRR=3 U =5 ' P DATA OPNR40 LINE 0 ( P DATA OPNR41 LINE 1 ( . P DATA OPNR42 LINE 2 ( J P DATA OPNR43 LINE 3 ( f P XIF ( P* ( POPARL1 EQU * U =5 ( P DATA OPNL10 LOCAL PLC 1 =5 ( POPARL2 EQU * U =5 ( P DATA OPNL20 LOCAL PLC 2
0x005d1c…005eb0 Dummy {f00=0x0002, f01=0x0190, f02=» EJECT ( P* ) & P* OPEN LINE PARAMETER AREAS, LOCAL ) P* ) B P* STANDARD AREAS : ) L P* PRIMARY STATION ) h P* FULL DUPLEX ) P* 96000 BITS/SEC ) P* NO NRZI ENCODING ) P* 5 RETRANSMISSIONS ) P* 5 MIN. TIME OUT ) P* )
0x005eb0…006044 Dummy {f00=0x0002, f01=0x018e, f02=» & P DATA /0101,/A000,/0D05,TIMACT,0,0 * P XIF * . $ POPNL30 EQU * LOCAL PLC 3, LINE 0 * : P IFF PLCNRL=0 * b P IFF PLCNRL=1 * x P IFF PLCNRL=2 * , P DATA /0101,/A000,/0D05,TIMACT,0,0 U =3 * P XIF * $ POPNL20 EQU * LOCAL PLC 2, LINE 0 * P
0x006044…0061d8 Dummy {f00=0x0002, f01=0x0190, f02=» P IFF PLCNRL=0 + & P DATA /0101,/A000,/0D05,TIMACT,0,0 + P XIF + D P* + P ( P* END OF LOCAL LINE PARAMETER AREAS + Z P* + P EJECT + P* + ( P* OPEN LINE PARAMETER AREAS, REMOTE + P* + P* STANDARD AREAS : + P* PRIMARY STAT
0x0061d8…00636c Dummy {f00=0x0002, f01=0x018e, f02=»5 MIN. TIME OUT + P* , P* , " P* REMOTE PLC 4 , , POPNR40 EQU * LINE 0 , B P IFF PLCNRR=0 , ^ P IFF PLCNRR=1 , t P IFF PLCNRR=2 , P IFF PLCNRR=3 , * P DATA /0103,/0400,/0D05,TIMACT,/0108,0 , P XIF , POPNR41 EQU * LINE 1 ,
0x00636c…006500 Dummy {f00=0x0002, f01=0x0190, f02=» P XIF - POPNR42 EQU * LINE 3 - P IFF PLCNRR=0 - , P IFF PLCNRR=1 - B P IFF PLCNRR=2 - X P IFF PLCNRR=3 - n * P DATA /0103,/0400,/0D05,TIMACT,/0B08,0 - P XIF - POPNR43 EQU * LINE 3 - P IFF PLCNRR=0 - P IFF PLCNRR=1 - P I
0x006500…006694 (1, 7) Dummy {f00=0x0002, f01=0x0190, f02=»INE 0 - P IFF PLCNRR=0 . P IFF PLCNRR=1 . $ P IFF PLCNRR=2 . : * P DATA /0103,/0400,/0D05,TIMACT,/0108,0 . P P XIF . ~ POPNR31 EQU * LINE 1 . P IFF PLCNRR=0 . P IFF PLCNRR=1 . P IFF PLCNRR=2 . * P DATA /0103,/0400,/0D05,TIMACT,/
0x006694…006828 Dummy {f00=0x0002, f01=0x018e, f02=»0,/0D05,TIMACT,/0B08,0 . P XIF / POPNR33 EQU * LINE 3 / * P IFF PLCNRR=0 / F P IFF PLCNRR=1 / P IFF PLCNRR=2 / r * P DATA /0103,/0400,/0D05,TIMACT,/1308,0 / P XIF / P* / P* REMOTE PLC 2 / POPNR20 EQU * LINE 0 / P IFF PLCNR
0x006828…0069bc Dummy {f00=0x0002, f01=0x0190, f02=» / P IFF PLCNRR=1 0 * P DATA /0103,/0400,/0D05,TIMACT,/0908,0 0 P XIF 0 L POPNR22 EQU * LINE 2 0 X P IFF PLCNRR=0 0 t P IFF PLCNRR=1 0 * P DATA /0103,/0400,/0D05,TIMACT,/0B08,0 0 P XIF 0 POPNR23 EQU * LINE 3 0 P IFF PLCNRR=0 0
0x0069bc…006b50 Dummy {f00=0x0002, f01=0x0190, f02=» 0 | P IFF PLCNRR=0 1 * P DATA /0103,/0400,/0D05,TIMACT,/0108,0 1 P XIF 1 L POPNR11 EQU * LINE 1 1 X P IFF PLCNRR=0 1 t * P DATA /0103,/0400,/0D05,TIMACT,/0908,0 1 P XIF 1 POPNR12 EQU * LINE 2 1 P IFF PLCNRR=0 1 * P DATA /0103,/0400,
0x006b50…006ce4 Dummy {f00=0x0002, f01=0x0190, f02=» XIF 1 ( P* END OF REMOTE LINE PARAMETER AREAS 2 P* 2 8 P* 2 B , PPLCPFP DATA 0 PLC LOCAL POWER FAIL FLAG 2 L P* 2 | ( P IFF UTTEST=0 TEST VERSION OF DRIVER 2 P* 2 P EJECT 2 P* 2 ( PUTTST DATA UTTEST 1 = TRAP NOT USED 2 P* 2
0x006ce4…006e78 Dummy {f00=0x0002, f01=0x0190, f02=»INDOW QUEUE 2 $ PSBQSTA RES 8 SHORT BUFFERS QUEUE 3 $ PLBQSTA RES 8 LONG BUFFERS QUEUE 3 < PCCQSTA RES 8 CCA QUEUE 3 d $ PSTATLN EQU *-STATAR TABLE LENGTH 3 P* 3 P XIF 3 P EJECT 3 P* 3 P* 3 P* CWT DISPLACEMENTS 3 P* 3
0x006e78…00700c Dummy {f00=0x0002, f01=0x0190, f02=» (0-7) 3 x PCWTABW EQU /08 WS TO ABORT 4 ( PCWTPLS EQU /0A LATEST PLC RCA STATUS 4 0 $ PCWTLNO EQU /0C LINE NO INDICATOR 4 , PCWTPAR EQU /0E INDEX TO PARAMETER AREA 4 6 PCWTOPP EQU /10 OPEN LINE PARAMETER AREA ADDRESS =2 4 $ PCWTINT EQU /12 WS TABLE AD
0x00700c…0071a0 Dummy {f00=0x0002, f01=0x0190, f02=» LONG OUTP. BUFFERS 4 x & PCWTCCQ EQU /1A QUEUE FOR CCA FREE 5 2 PCWTMBQ EQU /1C QUEUE OF ALLOCATED MON. BLOCKS 5 F " PCWTTPR EQU /1E TIMER POINTER 5 | $ PCWTCIO EQU /20 CIO START INSTR. 5 PCWTST3 EQU /22 SST INSTR. 5 . PCWTCSD EQU /24 CTRL UNIT STA
0x0071a0…007334 (1, 8) Dummy {f00=0x0002, f01=0x0190, f02=»CTRL AREA 5 x 0 PCWTPBS EQU /54 POOLBL. SHORT OUTP. BUFFERS 6 0 PCWTPBL EQU /5E POOLBL. LONG OUTP. BUFFERS =2 6 F 0 PCWTPBG EQU /68 POOLBL. GENERAL READ BUFFERS 6 z PCWTWSS EQU /72 WS STATUS 6 4 PCWTSOB EQU MAXWS+MAXWS+/74 SH. OUTP. BUFFERS =4 6 " P
0x007334…0074c8 Dummy {f00=0x0002, f01=0x0190, f02=» EQU CWTGR1+LOBUFS GEN. READ BUFFERS =7 6 P EJECT 7 0 P* 7 > P IFF PLCNRL=0 7 H P* CWT FOR PLC NUMBER 1 7 ` P* 7 PPL0CWT EQU * 7 P* 7 P* FLAGS 7 P RES 1 PLC OPERABLE FLAG 7 " P DATA 0 CCA BUSY FLAG (0=FREE) 7 , P DAT
0x0074c8…00765c Dummy {f00=0x0002, f01=0x0190, f02=»ABORT (0=NO ABORT) 7 x " P DATA 0 LATEST PLC RCA STATUS 8 P DATA 0 LINE NO INDICATOR 8 @ P DATA 0 INDEX PARAMETER AREA 8 b P* 8 $ P* POINTERS AND QUEUE HEADS 8 . P DATA OPARL1 OPEN LINE PARAMETER AREA ADDR 8 , P DATA INTPL1 WORK STATION TABL
0x00765c…0077f0 Dummy {f00=0x0002, f01=0x0190, f02=» 8 l P DATA 0 QUEUE FOR CCA FREE 9 . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS 9 * , P DATA 0 TIMER POINTER FOR RESTART DELAY 9 P* 9 P* INSTRUCTIONS 9 ( P CIO A3,1,PLCDA0 START I/O OPERATION 9 2 P SST A3,PLCDA0 RELEASE RCA AND RESET INTER
0x0077f0…007984 Dummy {f00=0x0002, f01=0x0190, f02=» $ P DATA PL0CWT+CWTCID CID ADDRESS : P DATA INTLV0 INTERRUPT LEVEL : , 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) : P P DATA 0 DUMMY & MSB ADDRESS : $ P DATA PL0CWT+CWTCCA CCA ADDRESS : P DATA 0 DUMMY & MSB ADDRESS : $ P DATA PL0CWT+CWTRC
0x007984…007b18 Dummy {f00=0x0002, f01=0x0190, f02=» : P* POOLBLOCKS ; P DATA 'SO',0 ID & FLAGS ; " 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH ; B $ P DATA SOBUFS+SOBUFS AREA LENGTH ; z P DATA 'LO',0 ; P DATA 0,LOBUF1+LOBUF1 ; P DATA LOBUFS+LOBUFS ; P DATA 'GR',0 ; P DAT
0x007b18…007cac Dummy {f00=0x0002, f01=0x0190, f02=»E = STATUS. R BYTE = FLAGS. ; ~ P* < $ P* BUFFER AREAS < . $ P RES SOBUFS SHORT OUTPUT BUFFERS < J $ P RES LOBUFS LONG OUTPUT BUFFERS < r $ P RES GRBUFS GENERAL READ BUFFERS < P* < P* < P XIF < P IFF PLCNRL=1 < P* < P EJECT
0x007cac…007e40 Dummy {f00=0x0002, f01=0x0190, f02=» < x " P DATA 0 CCA BUSY FLAG (0=FREE) = , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) = . P* = ^ P* DATA WORDS = h P DATA 1 PLC NUMBER (0-3) = . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) = " P DATA 0 LATEST PLC RCA STATUS = P DATA 0 LINE N
0x007e40…007fd4 (1, 9) Dummy {f00=0x0002, f01=0x0190, f02=»AMETER AREA ADDR = v , P DATA INTPL2 WORK STATION TABLE ADDRESS > P DATA 0 INPUT BUFFER ADDRESS > H * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER > l ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER > P DATA 0 QUEUE FOR CCA FREE > . P DATA 0 QUEUE OF ALLOCATED MONIT
0x007fd4…008168 Dummy {f00=0x0002, f01=0x0190, f02=»TION > p 2 P SST A3,PLCDA1 RELEASE RCA AND RESET INTERRUPT ? P* ? B P* PLC CONTROL AREAS ? L . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) ? l P DATA 0 DUMMY & MSB ADDRESS ? $ P DATA PL1CWT+CWTCID CID ADDRESS ? P DATA INTLV1 INTERRUPT LEVEL ?
0x008168…0082fc Dummy {f00=0x0002, f01=0x0190, f02=» DATA 0 DUMMY & MSB ADDRESS ? $ P DATA PL1CWT+CWTRCA RCA ADDRESS @ $ $ P DATA 0 INTERRUPT SPECIFICATION @ L P RES 8 COMMAND CONTROL AREA @ t P RES 8 RESPONSE CONTROL AREA @ P* @ ( P* POOLBLOCKS (5 WORDS / BLOCK) @ , P DATA 'SO',0 ID = "SHO
0x0082fc…008490 Dummy {f00=0x0002, f01=0x0190, f02=»D = "LONG OUTPUT" @ P DATA 0,LOBUF1+LOBUF1 A P DATA LOBUFS+LOBUFS A 8 $ P DATA 'GR',0 ID = "GENERAL READ" A T P DATA 0,GRBUF1+GRBUF1 A | P DATA GRBUFS+GRBUFS A P* A 2 P* WORK STATION STATUS WORDS. 1 WORD / WS A 2 P RES MAXWS+1 L BYT
0x008490…008624 Dummy {f00=0x0002, f01=0x0190, f02=»T BUFFERS A z $ P RES GRBUFS GENERAL READ BUFFERS B P* B : P* B D P IFF PLCNRL=2 B N P* B d P EJECT B n P* B | P* CWT FOR PLC NUMBER 3 B P* B PPL2CWT EQU * B P* B P* FLAGS B P RES 1 PLC OPERABLE FLAG B " P DAT
0x008624…0087b8 Dummy {f00=0x0002, f01=0x018e, f02=» (0-3) B ~ . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) C " P DATA 0 LATEST PLC RCA STATUS C @ P DATA 0 LINE NO INDICATOR C f $ P DATA 0 INDEX TO PARAMETER AREA C P* C $ P* POINTERS AND QUEUE HEADS C . P DATA OPARL3 OPEN LINE PARAMETER AREA
0x0087b8…00894c Dummy {f00=0x0002, f01=0x0190, f02=» C h ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER D P DATA 0 QUEUE FOR CCA FREE D 4 . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS D V , P DATA 0 TIMER POINTER FOR RESTART DELAY D P* D P* INSTRUCTIONS D ( P CIO A3,1,PLCDA2 START I/O OPERATION D 2
0x00894c…008ae0 Dummy {f00=0x0002, f01=0x018e, f02=»DS) D j P DATA 0 DUMMY & MSB ADDRESS E $ P DATA PL2CWT+CWTCID CID ADDRESS E 0 P DATA INTLV2 INTERRUPT LEVEL E X 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) E | P DATA 0 DUMMY & MSB ADDRESS E $ P DATA PL2CWT+CWTCCA CCA ADDRESS E P DATA 0 DU
0x008ae0…008c74 (1, 10) Dummy {f00=0x0003, f01=0x0190, f02=» E r P RES 8 RESPONSE CONTROL AREA F P* F , ( P* POOLBLOCKS (5 WORDS / BLOCK) F 6 , P DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS F b 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH F $ P DATA SOBUFS+SOBUFS AREA LENGTH F $ P DATA 'LO',0 ID = "LON
0x008c74…008e08 Dummy {f00=0x0003, f01=0x0190, f02=»1 F | P DATA GRBUFS+GRBUFS G P* G & 2 P* WORK STATION STATUS WORDS. 1 WORD / WS G 0 2 P RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. G f P* G P* BUFFER AREAS G $ P RES SOBUFS SHORT OUTPUT BUFFERS G $ P RES LOBUFS LONG OUTPUT BUFFER
0x008e08…008f9c Dummy {f00=0x0003, f01=0x0190, f02=»OR PLC NUMBER 4 G P* H PPL3CWT EQU * H " P* H 6 P* FLAGS H @ P RES 1 PLC OPERABLE FLAG H T " P DATA 0 CCA BUSY FLAG (0=FREE) H t , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) H P* H P* DATA WORDS H P DATA 3 PLC NUMBER (0-3) H
0x008f9c…009130 Dummy {f00=0x0003, f01=0x0190, f02=»INDEX TO PARAMETER AREA H P* I $ P* POINTERS AND QUEUE HEADS I * . P DATA OPARL4 OPEN LINE PARAMETER AREA ADDR I R , P DATA INTPL4 WORK STATION TABLE ADDRESS I P DATA 0 INPUT BUFFER ADDRESS I * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER I ( P D
0x009130…0092c4 Dummy {f00=0x0003, f01=0x0190, f02=»MER POINTER FOR RESTART DELAY I P* J & P* INSTRUCTIONS J 0 ( P CIO A3,1,PLCDA3 START I/O OPERATION J L 2 P SST A3,PLCDA3 RELEASE RCA AND RESET INTERRUPT J x P* J P* PLC CONTROL AREAS J . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) J
0x0092c4…009458 Dummy {f00=0x0003, f01=0x0190, f02=»CE DESCRIPTOR (5 WORDS) J z P DATA 0 DUMMY & MSB ADDRESS K $ P DATA PL3CWT+CWTCCA CCA ADDRESS K D P DATA 0 DUMMY & MSB ADDRESS K l $ P DATA PL3CWT+CWTRCA RCA ADDRESS K $ P DATA 0 INTERRUPT SPECIFICATION K P RES 8 COMMAND CONTROL AREA K P RES
0x009458…0095ec Dummy {f00=0x0003, f01=0x0190, f02=»ATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH K $ P DATA SOBUFS+SOBUFS AREA LENGTH L 6 $ P DATA 'LO',0 ID = "LONG OUTPUT" L ^ P DATA 0,LOBUF1+LOBUF1 L P DATA LOBUFS+LOBUFS L $ P DATA 'GR',0 ID = "GENERAL READ" L P DATA 0,GRBUF1+GRBUF1 L P D
0x0095ec…009780 Dummy {f00=0x0003, f01=0x0190, f02=» L b P* M P* BUFFER AREAS M $ P RES SOBUFS SHORT OUTPUT BUFFERS M . $ P RES LOBUFS LONG OUTPUT BUFFERS M V $ P RES GRBUFS GENERAL READ BUFFERS M ~ P XIF M P* M P EJECT M P IFF PLCNRR=0 M P* M $ P* CWT FOR PLC NUMBER 5 REMO
0x009780…009914 (1, 11) Dummy {f00=0x0003, f01=0x0190, f02=» , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) N P* N 4 P* DATA WORDS N > P DATA 4 PLC NUMBER (4-7) =5 N X . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) N | " P DATA 0 LATEST PLC RCA STATUS N P DATA 0 LINE NO INDICATOR N $ P DATA 0 INDEX TO P
0x009914…009aa8 Dummy {f00=0x0003, f01=0x0190, f02=»TPR1 WORK STATION TABLE ADDRESS N P DATA 0 INPUT BUFFER ADDRESS O ( * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER O L ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER O z P DATA 0 QUEUE FOR CCA FREE O . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS O , P DATA 0 TIMER
0x009aa8…009c3c Dummy {f00=0x0003, f01=0x0190, f02=»SE RCA AND RESET INTERRUPT O | P* P " P* PLC CONTROL AREAS P , . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) P L P DATA 0 DUMMY & MSB ADDRESS P ~ $ P DATA PR1CWT+CWTCID CID ADDRESS P P DATA INTRV0 INTERRUPT LEVEL P 2 P* CONTROL UNIT INTERFACE D
0x009c3c…009dd0 Dummy {f00=0x0003, f01=0x0190, f02=» $ P DATA PR1CWT+CWTRCA RCA ADDRESS Q $ P DATA 0 INTERRUPT SPECIFICATION Q , P RES 8 COMMAND CONTROL AREA Q T P RES 8 RESPONSE CONTROL AREA Q x P* Q ( P* POOLBLOCKS (5 WORDS / BLOCK) Q , P DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS Q 4 P DATA
0x009dd0…009f64 Dummy {f00=0x0003, f01=0x0190, f02=»0,LOBUF1+LOBUF1 Q P DATA LOBUFS+LOBUFS R $ P DATA 'GR',0 ID = "GENERAL READ" R 4 P DATA 0,GRBUF1+GRBUF1 R P DATA GRBUFS+GRBUFS R z P* R 2 P* WORK STATION STATUS WORDS. 1 WORD / WS R 2 P RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. R
0x009f64…00a0f8 Dummy {f00=0x0003, f01=0x0190, f02=»NERAL READ BUFFERS R P* S P* S $ P EJECT S . P IFF PLCNRR=1 S < P* S R $ P* CWT FOR PLC NUMBER 6 REMOTE S P* S PPR2CWT EQU * S P* S P* FLAGS S P RES 1 PLC OPERABLE FLAG S " P DATA 0 CCA BUSY FLAG (0=FREE) S , P D
0x00a0f8…00a28c Dummy {f00=0x0003, f01=0x0190, f02=»ON TO ABORT (0=NO ABORT) S ~ " P DATA 0 LATEST PLC RCA STATUS T P DATA 0 LINE NO INDICATOR =5 T F ( P DATA 0 INDEX TO PARAMETER AREAS =5 T j P* T $ P* POINTERS AND QUEUE HEADS T 4 P DATA OPARR2 OPEN LINE PARAMETER AREA ADDRESSES T , P DATA IN
0x00a28c…00a420 Dummy {f00=0x0003, f01=0x0190, f02=»FOR LONG OUTPUT BUFFER T P DATA 0 QUEUE FOR CCA FREE U . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS U @ , P DATA 0 TIMER POINTER FOR RESTART DELAY U r P* U P* INSTRUCTIONS U ( P CIO A3,1,PLCDA5 START I/O OPERATION U 2 P SST A3,PLCDA5 RELEA
0x00a420…00a5b4 (1, 12) Dummy {f00=0x0003, f01=0x0190, f02=»MMY & MSB ADDRESS U $ P DATA PR2CWT+CWTCID CID ADDRESS V P DATA INTRV1 INTERRUPT LEVEL V B 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) V f P DATA 0 DUMMY & MSB ADDRESS V $ P DATA PR2CWT+CWTCCA CCA ADDRESS V P DATA 0 DUMMY & MSB ADDRESS V
0x00a5b4…00a748 Dummy {f00=0x0003, f01=0x0190, f02=»CONTROL AREA V P* W ( P* POOLBLOCKS (5 WORDS / BLOCK) W , P DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS W J 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH W z $ P DATA SOBUFS+SOBUFS AREA LENGTH W $ P DATA 'LO',0 ID = "LONG OUTPUT" W P DATA
0x00a748…00a8dc Dummy {f00=0x0003, f01=0x018e, f02=»RBUFS W P* X 2 P* WORK STATION STATUS WORDS. 1 WORD / WS X 2 P RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. X N P* X P* BUFFER AREAS X $ P RES SOBUFS SHORT OUTPUT BUFFERS X $ P RES LOBUFS LONG OUTPUT BUFFERS X $ P RES GRBUFS GE
0x00a8dc…00aa70 Dummy {f00=0x0003, f01=0x0190, f02=» X PPR3CWT EQU * Y P* Y P* FLAGS Y & P RES 1 PLC OPERABLE FLAG Y : " P DATA 0 CCA BUSY FLAG (0=FREE) Y Z , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) Y P* Y P* DATA WORDS Y P DATA 6 PLC NUMBER (4-7) =5 Y . P DATA 0 WORK STA
0x00aa70…00ac04 Dummy {f00=0x0003, f01=0x0190, f02=»AS Y r P* Z $ P* POINTERS AND QUEUE HEADS Z 4 P DATA OPARR3 OPEN LINE PARAMETER AREA ADDRESSES Z < , P DATA INTPR3 WORK STATION TABLE ADDRESS Z t P DATA 0 INPUT BUFFER ADDRESS Z * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER Z ( P DATA 0 QUEUE FOR
0x00ac04…00ad98 Dummy {f00=0x0003, f01=0x0190, f02=»RESTART DELAY Z v P* [ P* INSTRUCTIONS [ ( P CIO A3,1,PLCDA6 START I/O OPERATION [ < 2 P SST A3,PLCDA6 RELEASE RCA AND RESET INTERRUPT [ h P* [ P* PLC CONTROL AREAS [ . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) [ P DATA 0 DUMMY
0x00ad98…00af2c Dummy {f00=0x0003, f01=0x0190, f02=» WORDS) [ j P DATA 0 DUMMY & MSB ADDRESS $ P DATA PR3CWT+CWTCCA CCA ADDRESS 4 P DATA 0 DUMMY & MSB ADDRESS $ P DATA PR3CWT+CWTRCA RCA ADDRESS $ P DATA 0 INTERRUPT SPECIFICATION P RES 8 COMMAND CONTROL AREA P RES 8 RESPONSE CONT
0x00af2c…00b0c0 Dummy {f00=0x0003, f01=0x018e, f02=»UF1 QUEUE HEAD & BUFFER LENGTH ~ $ P DATA SOBUFS+SOBUFS AREA LENGTH ] & $ P DATA 'LO',0 ID = "LONG OUTPUT" ] N P DATA 0,LOBUF1+LOBUF1 ] v P DATA LOBUFS+LOBUFS ] $ P DATA 'GR',0 ID = "GENERAL READ" ] P DATA 0,GRBUF1+GRBUF1 ] P DATA GRBUFS+GRBUF
0x00b0c0…00b254 (1, 13) Dummy {f00=0x0003, f01=0x0190, f02=» P* BUFFER AREAS ^ $ P RES SOBUFS SHORT OUTPUT BUFFERS ^ $ P RES LOBUFS LONG OUTPUT BUFFERS ^ H $ P RES GRBUFS GENERAL READ BUFFERS ^ p P* ^ P* ^ P EJECT ^ P IFF PLCNRR=3 ^ P* ^ $ P* CWT FOR PLC NUMBER 8 REMOTE ^ P* ^
0x00b254…00b3e8 Dummy {f00=0x0003, f01=0x0190, f02=»RAL READ ALLOWED (0=ALLOWED) ^ P* _ $ P* DATA WORDS _ . P DATA 7 PLC NUMBER (4-7) =5 _ H . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) _ l " P DATA 0 LATEST PLC RCA STATUS _ P DATA 0 LINE NO INDICATOR _ $ P DATA 0 INDEX TO PARAMETER AREAS _
0x00b3e8…00b57c Dummy {f00=0x0003, f01=0x0190, f02=»N TABLE ADDRESS _ x P DATA 0 INPUT BUFFER ADDRESS ` * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER ` < ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER ` j P DATA 0 QUEUE FOR CCA FREE ` . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS ` , P DATA 0 TIMER POINTER FOR REST
0x00b57c…00b710 Dummy {f00=0x0003, f01=0x0190, f02=» INTERRUPT ` l P* a P* PLC CONTROL AREAS a . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) a < P DATA 0 DUMMY & MSB ADDRESS a n $ P DATA PR4CWT+CWTCID CID ADDRESS a P DATA INTRV3 INTERRUPT LEVEL a 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WOR
0x00b710…00b8a4 Dummy {f00=0x0003, f01=0x0190, f02=»+CWTRCA RCA ADDRESS a $ P DATA 0 INTERRUPT SPECIFICATION b P RES 8 COMMAND CONTROL AREA b D P RES 8 RESPONSE CONTROL AREA b h P* b ( P* POOLBLOCKS (5 WORDS / BLOCK) b , P DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS b 4 P DATA 0,SOBUF1+SOBUF1
0x00b8a4…00ba38 Dummy {f00=0x0003, f01=0x0190, f02=» b z P DATA LOBUFS+LOBUFS c $ P DATA 'GR',0 ID = "GENERAL READ" c $ P DATA 0,GRBUF1+GRBUF1 c L P DATA GRBUFS+GRBUFS c j P* c 2 P* WORK STATION STATUS WORDS. 1 WORD / WS c 2 P RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. c P* c P*
0x00ba38…00bbcc Dummy {f00=0x0003, f01=0x0190, f02=»RS c r P* d P* d P XIF d P EJECT d * P* d 8 & P* I/O COMPLETION DISPATCH TABLE d B P* d l 2 P* THE MOST FREQUENTLY USED ROUTINES ARE PLACED d v 0 P* AT THE END OF THE TABLE, AS IT IS SCANNED d P* FROM THE END. d P* d PCMDTAB
0x00bbcc…00bd60 Dummy {f00=0x0003, f01=0x0190, f02=»WED STATUS FOR "TEST CU" COMMAND d , PCMDTB1 EQU *-CMDTAB LENGTH OF ONE ENTRY e ( P DATA CMDOP OPEN LINE e X P DATA COMPOP e v P DATA 0 e P DATA CMDOD OPEN DLS e P DATA COMPOD e P DATA STADNO+STANOC e P IFT PLCTST=1 e $ P DATA CMDPS
0x00bd60…00bef4 (1, 14) Dummy {f00=0x0004, f01=0x0190, f02=»STAE3 e " P DATA CMDDS GET DLS STATISTICS f P DATA COMPDS f 4 P DATA STAE2+STAE3 f H " P DATA CMDRM READ LOCAL MEMORY f b P DATA COMPRM f P DATA STAE2 f P* f P EJECT f P* f P XIF f P DATA CMDSW STANDARD WRITE f P DATA CO
0x00bef4…00c088 Dummy {f00=0x0004, f01=0x0190, f02=»ATA COMPGR f P DATA 0 g $ PCMDTBL EQU *-CMDTAB TABLE LENGTH g " P* g J P EJECT g T P* g b ( P* READ COMPLETION DISPATCH TABLE g l P* g 2 P* THIS TABLE IS INDEXED BY THE "MESSAGE TYPE" g P* CONSTANTS DEFINED ABOVE. g PREAROU EQU * g
0x00c088…00c21c Dummy {f00=0x0004, f01=0x0190, f02=» g j $ P DATA GRDATA NORMAL DATA PACKET h $ P DATA GRRR RECIEVE READY PACKET h 0 P DATA GRRES RESET PACKET h X 4 P DATA GRERR1 RESET CONFIRM. PACKET (NOT IMPLEM.) h x P* h P* h ( P* WRITE COMPLETION DISPATCH TABLE h P* h 2 P* THIS TABLE I
0x00c21c…00c3b0 Dummy {f00=0x0004, f01=0x0190, f02=»NFLO DATA PACKET WITHOUT FLOW CONTROL h 2 P DATA WRERR DEVICE STATUS DATA (NOT RELEVANT) i . $ P DATA WRDATA NORMAL DATA PACKET i d $ P DATA WRRR RECIEVE READY PACKET i . P DATA WRERR RESET PACKET (NOT IMPLEMENTED) i * P DATA WRRESC RESET CONFIRMATION PA
0x00c3b0…00c544 Dummy {f00=0x0004, f01=0x0190, f02=» 8 P* THIS SECTION CONTAINS REQUEST HANDLING ROUTINES. j 6 P* THE REQUEST ROUTINES ARE CALLED FROM TERMINAL j @ 6 P* DEVICE DRIVERS. THIS IS NORMALLY DONE THROUGH j z : P* THE TERMINAL NETWORK DISTRIBUTOR DRIVER (DRND01). j 2 P* THE DISTRIBUTOR DR
0x00c544…00c6d8 Dummy {f00=0x0004, f01=0x0190, f02=». j b 6 P* A CALL WILL NORMALLY RESULT IN A WAIT FOR SOME k 8 P* I/O ACTION AND DISPATCHING. THIS MEANS, THAT AT k D 8 P* TIME OF CALL THE DEVICE DRIVER MAY NOT HAVE ANY k P* DATA ON THE A15 STACK. k P* k 0 P* ROUTINES IN ORDER OF APPEARA
0x00c6d8…00c86c Dummy {f00=0x0004, f01=0x0190, f02=»BLOCK k p $ P* PLCHRO OUTPUT OF ONE CHARACTER l ( P* PLENBL DEFINE END OF OUTPUT BLOCK l 6 & P* PLTEST PERFORM PLC TEST FUNCTION l b P* l P EJECT l P* l @ P************************************************************ l P* l P* ROUTINE NA
0x00c86c…00ca00 Dummy {f00=0x0004, f01=0x018e, f02=»FFER HAS ARRIVED, "INPUT l x 0 P* REQUESTED" FLAG IN DWT IS SET, AND CALLING m 2 P* PROCESS IS SUSPENDED UNTIL A BUFFER ARRIVES. m T P* m P* CALL: m P* ABI INPTAB,A1 m P* CF A5,PLCHRI m P* m P* INPUT: m P* A6 = DWT ADDRESS m P
0x00ca00…00cb94 (1, 15) Dummy {f00=0x0004, f01=0x0190, f02=» m j P* A2 = BITS 0-7 ZERO n P* BITS 8-15 CHARACTER n & P* INTERR. ENABLED n F P* n ` @ P************************************************************ n j P* n PPLCHRI EQU * n PPRCHRI EQU * n P STR A4,A15 PUSH A4 n ( P LD A4,DWTLD
0x00cb94…00cd28 Dummy {f00=0x0004, f01=0x0190, f02=»M BUFFER n p " P LDR A1,A1 CHECK RETURN STATUS o , P RF(N) CI100 BUFFER EMPTY, WAIT FOR NEXT o 6 P LDR* A4,A15 POP A4 o f & P RF CI110 RETURN TO DEVICE DRIVER o P* o P* o PCI100 EQU * o P LDR* A4,A15 POP A4 o * P LDK A2,DWFINP FLAG "INP
0x00cd28…00cebc Dummy {f00=0x0004, f01=0x0190, f02=»CAL DISPATCHER o P* p P* p : P* ENTRY IS MADE HERE WHEN A NEW BUFFER HAS ARRIVED p * P* REGISTERS ON ENTRY: p h , P* A1 = NR OF CHARACTERS LEFT IN BUFFER p P* A2 = BITS 0-7 ZERO p P* BITS 8-15 CHARACTER p P* A4 = BUFFER A
0x00cebc…00d050 Dummy {f00=0x0004, f01=0x0190, f02=»TST,A6 RESET FLAG p ( P ST A4,DWTLD1,A6 LINK BUFFER TO DWT q P* q F , P CF A15,NDGET8 GET A3-A5, A7-A8 FROM DWT q P P* q P EJECT q P* q PCI110 EQU * q P* RETURN TO DEVICE DRIVER q ( P LDR A1,A1 ANY CHAR LEFT IN BUFFER? q P R
0x00d050…00d1e4 Dummy {f00=0x0004, f01=0x0190, f02=»UNLINK BUFFER q PCI130 EQU * r P ENB r * P RTN A5 r 6 P* r F P EJECT r P P* r ^ @ P************************************************************ r h P* r P* ROUTINE NAME: r P* PLSTBL r P* r P* FUNCTION: r 4 P* THIS ROUTI
0x00d1e4…00d378 Dummy {f00=0x0004, f01=0x0190, f02=»: r P* ABI STBTAB,A1 s P* CF A5,PLSTBL s " P* s 8 P* INPUT: s B 4 P* A2 = MAXIMAL LENGTH OF TEXT IN BLOCK (BYTES) s R P* A6 = DWT ADDRESS s P* s P* OUTPUT: s P* AT RETURN TO DEVICE DRIVER s P* A1 = RETURN CODE s P* 0 I
0x00d378…00d50c Dummy {f00=0x0004, f01=0x0190, f02=»D s P* t @ P************************************************************ t P* t X PPLSTBL EQU * t b PPRSTBL EQU * t v P ENB t , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT t $ P CF A15,GETCWT A5 := CWT ADDRESS t P* t P EJECT t P*
0x00d50c…00d6a0 Dummy {f00=0x0004, f01=0x0190, f02=» t n P RF(NZ) SBERR2 ERROR, RETURN u P* u , P* CHECK LEVEL 3 WINDOW u 6 $ P LDR A3,A2 SAVE MAX BLOCK LENGTH u X P LD A1,DWTST,A6 DWT STATUS u 0 P ANKL A1,DWFECH+DWFTY1 ECHO OR ONLY TYPE 1? u * P RF(NZ) SB090 YES, DON'T CHECK WINDOW u 2 P CF
0x00d6a0…00d834 (1, 16) Dummy {f00=0x0004, f01=0x0190, f02=»ST,A6 DWT STATUS u 0 P ANK A1,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? v 2 P RF(NZ) SBERR YES, NO FRAMES MAY BE OUT. ERROR v L P SUK A2,WINDOW WINDOW FULL? v P RF(N) SB090 NO, CONTINUE v 0 P* DWT WILL HAVE TO WAIT UNTIL WINDOW IS OPEN v 2 P ST A3,DWTLD
0x00d834…00d9c8 Dummy {f00=0x0004, f01=0x0190, f02=» v h " P IFF UTTEST=0 QUEUE STATISTICS w P LD A1,CWTPNR,A5 PLC NUMBER w . P SLA A1,1 MAKE INDEX w R 4 P IM WIQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER w n P XIF w P ABL PLDSP2 LOCAL DISPATCHER w P* w P* w 6 P* ENTRY IS MADE HERE WHEN W
0x00d9c8…00db5c Dummy {f00=0x0004, f01=0x0190, f02=»A5 = CWT ADDRESS w P* A6 = DWT ADDRESS x P* x 6 PWINRST EQU * x @ 4 P LD A3,DWTLD1,A6 RESTORE REQUESTED BUFFER LENGTH x T P CM DWTLD1,A6 x P LDR A1,A1 RETURN CODE x 2 P RF(NZ) SBERR2 ERROR, RETURN TO DEVICE DRIVER x P* x P* x
0x00db5c…00dcf0 Dummy {f00=0x0004, f01=0x018e, f02=»* ALLOCATE SHORT OUTPUT BUFFER x . P ADK A7,CWTPBS POOLBLOCK FOR SHORT BUFFERS y * " P CF A15,PLGTBU ALLOCATE BUFFER y , P RF(NZ) SB120 COMMON PART FOR SHORT/LONG y 2 P LDK A7,CWTSBQ NO BUFFER LEFT. SET QUEUE HEAD y " P IFF UTTEST=0 QUEUE STATISTICS y
0x00dcf0…00de84 Dummy {f00=0x0004, f01=0x0190, f02=» ( P RF SB110 COMMON PART FOR NO BUFFER z P* z 0 PSB100 EQU * z : & P CWK A3,LOBUFL LONG BUFFER ENOUGH? z N P RF(G) SBERR NO, ERROR z x $ P* ALLOCATE LONG OUTPUT BUFFER z . P ADK A7,CWTPBL POOLBLOCK FOR LONG BUFFERS z " P CF A15,PLGTBU ALLOCATE
0x00de84…00e018 Dummy {f00=0x0004, f01=0x0190, f02=»STATISTICS z | P LD A1,CWTPNR,A5 PLC NUMBER { P SLA A1,1 MAKE INDEX { 6 4 P IM LBQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER { R P XIF { P* { PSB110 EQU * { 8 P* NO BUFFER WAS AVAILABLE. PUT REQUEST IN QUEUE. { ( P ADR A7,A5 A7 := QUEUE H
0x00e018…00e1ac Dummy {f00=0x0004, f01=0x0190, f02=» PLDSP2 LOCAL DISPATCHER { P* | P* | * 2 P* ENTRY IS MADE HERE WHEN A BUFFER IS FREE | 4 P* REGISTERS ON ENTRY: | j P* A1 = RETURN CODE | $ P* A4 = BUFFER ADDRESS (IF A1=0) | P* A5 = CWT ADDRESS | P* A6 = DWT ADDRESS | P*
0x00e1ac…00e340 Dummy {f00=0x0004, f01=0x018e, f02=»H OF X25 HEADER | | 0 P ST A2,BUFBIX,A4 BYTE INDEX := START OF DATA } 0 P ST A4,DWTLD1,A6 SAVE BUFFER ADDRESS IN DWT } L P* } ( P ABL NDREPO RETURN TO DEVICE DRIVER } P* RETURN CODE := OK } P* } P* } PSBERR EQU * } ( P LDK A1,PLSE
0x00e340…00e4d4 (1, 17) Dummy {f00=0x0004, f01=0x0190, f02=» } P EJECT ~ P* ~ @ P************************************************************ ~ P* ~ d P* ROUTINE NAME: ~ n P* PLCHRO ~ P* ~ P* FUNCTION: ~ : P* THIS ROUTINE WRITES ONE CHARACTER TO OUTPUT BUFFER. ~ P* ~ P* CALL: ~
0x00e4d4…00e668 Dummy {f00=0x0004, f01=0x0190, f02=» ~ x P* A6 = DWT ADDRESS P* $ P* OUTPUT: . P* AT RETURN TO DEVICE DRIVER @ P* A1 = RETURN CODE d P* 0 IF OK P* NOT 0 IF ERROR 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) P* CR = CONTENTS OF A1 P* INTERR.
0x00e668…00e7fc Dummy {f00=0x0004, f01=0x0190, f02=» P ENB P* P EJECT P* , P STR A4,A15 PUSH A4 6 $ P LD A4,DWTLD1,A6 BUFFER ADDRESS R $ P RF(Z) COERR2 ERROR IF NO BUFFER z * P CF A15,PLPUCH PUT CHARACTER IN BUFFER P LDR A1,A1 CHECK RETURN CODE ( P RF(NZ) COERR1 ERROR
0x00e7fc…00e990 Dummy {f00=0x0004, f01=0x018e, f02=»ING. P ENB P ADK A5,4 ADJUST STACK . P LDR A2,A1 DEVICE STATUS & RET CODE := OK 6 $ P ABR* A5 RETURN TO DEVICE DRIVER h P* P* PCOERR1 EQU * " P CF A15,PLRLBU RELEASE BUFFER $ P CM DWTLD1,A6 INDICATE NO BUFFER PCO
0x00e990…00eb24 Dummy {f00=0x0004, f01=0x018e, f02=» P EJECT P* @ P************************************************************ P* d P* ROUTINE NAME: n P* PLENBL P* P* FUNCTION: 0 P* THIS ROUTINE DEFINES END OF OUTPUT BLOCK. . P* IT SENDS THE BLOCK TO PLC AND
0x00eb24…00ecb8 Dummy {f00=0x0004, f01=0x0190, f02=» P* A6 = DWT ADDRESS P* P* OUTPUT: * P* AT RETURN TO DEVICE DRIVER < P* A1 = RETURN CODE ` P* 0 IF OK | P* NOT 0 IF ERROR 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) P* CR = CONTENTS OF A1 P* INTERR. ENAB
0x00ecb8…00ee4c Dummy {f00=0x0004, f01=0x0190, f02=» P ENB , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT $ P CF A15,GETCWT A5 := CWT ADDRESS @ P* h P EJECT r P* , P LDK A1,PLSERR SET RET CODE JUST IN CASE $ P LD A2,DWTLD1,A6 BUFFER ADDRESS , P ABL(Z) NDREP ERROR IF NO BUFFER. RETU
0x00ee4c…00efe0 Dummy {f00=0x0004, f01=0x0190, f02=»A3,DWTOTQ QUEUE POINTER P CF A15,PLCCCS RESERVE CCA . P CM DWTOTQ,A6 RESET QUEUE ELEMENT POINTER B P LDR A1,A1 RETURN CODE t " P RF(NZ) EBERR1 RETURN IF ERROR P* 0 P* WRITE PARAMETERS IN CCA AND X25 HEADER P ENB $ P LD A4
0x00efe0…00f174 (1, 18) Dummy {f00=0x0005, f01=0x0190, f02=»DK A3,CMDFW ASSUME FAST WRITE " P LD A2,DWTST,A6 DEVICE STATUS & P LDR A7,A2 SAVE L P ANKL A7,DWFECH ECHO OUTPUT? d " P RF(NZ) EB090 YES, USE TYPE 1 . P LDK A3,CMDSW NOT ECHO, USE STANDARD WRITE ( P ANK A2,DWFTY1 ONLY TYPE 1 ALLOWED?
0x00f174…00f308 Dummy {f00=0x0005, f01=0x0190, f02=»R1 WRITE LINE ADDRESS. NO FLOW C 2 P LDK A2,TYNFLO MESSAGE TYPE := NO FLOW CONTROL ( P RF EB110 CONTINUE ^ P* x PEB100 EQU * P* FLOW CONTROL 0 P CF A15,WRADR2 WRITE LINE ADDRESS. FLOW CTRL 0 P CF A15,FWOPSR FETCH AND UPDATE FL
0x00f308…00f49c Dummy {f00=0x0005, f01=0x0190, f02=» 0 P SC A2,CWTCCA+CCRIDB,A5 MESSAGE TYPE TO CCA * P SC A3,CWTCCA+CCRCMD,A5 COMMAND TO CCA < . P ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA j P LD A3,BUFBIX,A4 BYTE INDEX 0 P ST A3,CWTCCA+CCRLEN,A5 BUFFER LENGTH TO CCA P* & P CF A15,GE
0x00f49c…00f630 Dummy {f00=0x0005, f01=0x0190, f02=»R v P ABL PLDSP2 LOCAL DISPATCHER P* . P EJECT 8 P* F 4 P* ENTRY TO ACKRST IS MADE WHEN I/O OPERATION P P* IS COMPLETED. & P* REGISTER CONTENTS ON ENTRY: P* A1 = RETURN CODE P* A5 = CWT ADDRESS P* A6
0x00f630…00f7c4 Dummy {f00=0x0005, f01=0x0190, f02=»RROR? P RF(NZ) EB130 YES, RETURN P* 0 P LD A3,DWTST,A6 DWT STATUS : P LDR A4,A3 * P ANK A4,DWFRES RESET PACKET RECIEVED? n P RF(Z) EB120 NO . P LDK A1,LINERR YES. RET CODE := LINK RESET P RF EB130 RETURN P* P
0x00f7c4…00f958 Dummy {f00=0x0005, f01=0x0190, f02=»ACK? p P RF(Z) EB130 NO, RETURN P* , 2 P LDK A3,DWFAK3 FLAG "WAITING FOR LEVEL 3 ACK" 6 , P ORS A3,DWTST,A6 SET FLAG IN DWT STATUS l P ABL PLDSP2 LOCAL DISPATCHER P* P EJECT P* B P* ENTRY IS MADE HERE WHEN ACK ON LE
0x00f958…00faec Dummy {f00=0x0005, f01=0x0190, f02=», IE A1=0) n P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS . P* J PAK3RST EQU * T P* h PEB130 EQU * r P* & P ABL NDREP RETURN TO DEVICE DRIVER P* P* P* PEBERR2 EQU * P CM CWTCCB,A5 SET CCA FREE
0x00faec…00fc80 Dummy {f00=0x0005, f01=0x0190, f02=»BUFFER v $ P CM DWTLD2,A6 RESET FLOW CONTROL & P ABL NDREP RETURN TO DEVICE DRIVER 6 P* ` P EJECT j P* x @ P************************************************************ P* P* ROUTINE NAME: P* PLTEST P* P* FUNC
0x00fc80…00fe14 (1, 19) Dummy {f00=0x0005, f01=0x0190, f02=»R" WITH AN INTERFACE SIMILAR TO 2 P* THAT OF THE NORMAL TERMINAL DEVICE DRIVERS. ( 2 P* CALL IS MADE DIRECTLY TO THE PLC DRIVER, AND ^ 4 P* NOT THROUGH THE TERMINAL NETWORK DISTRIBUTOR, 2 P* AS THIS FUNCTION IS NOT AVAILABLE FOR OTHER P* LINE
0x00fe14…00ffa8 Dummy {f00=0x0005, f01=0x018e, f02=»UT: P* AT RETURN TO DEVICE DRIVER P* A1 = RETURN CODE 0 P* 0 IF OK L P* NOT 0 IF ERROR ^ P* A2 = CHANGED x P* CR = CONTENTS OF A1 P* INTERR. ENABLED P* @ P******************************************************
0x00ffa8…01013c Dummy {f00=0x0005, f01=0x018e, f02=» $ P CF A15,GETCWT A5 := CWT ADDRESS P CF A15,PLCCCA RESERVE CCA , P* N P ENB X . P ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA d < P CM CWTCCA+CCRC1B,A5 DATA CHAINING & MSB OF BUFFER ADDR 0 P LD A4,DWTTBU,A6 USER REQUEST BUFFER ADDRESS "
0x01013c…0102d0 Dummy {f00=0x0005, f01=0x0190, f02=» . P LD A3,DWTTCW,A6 USER REQUEST CONTROL WORD P* 6 & P* DETERMINE TYPE OF TEST ORDER @ . P LC A1,DWTOR+1,A6 USER REQUEST ORDER CODE j P ANK A1,/3F CLEAN & P CWK A1,ORDPS GET LINE STATISTICS? P RF(E) TE100 YES, HANDLE & P CWK A1,
0x0102d0…010464 Dummy {f00=0x0005, f01=0x0190, f02=» DEFINED. ERROR r P* P* READ LOCAL MEMORY " 6 P ST A3,CWTCCA+CCRSUB,A5 PLC MEMORY ADDRESS TO CCA @ 0 P LDK A3,CMDRM PLC COMMAND READ LOCAL MEMORY z P RF TE120 TO COMMON PART P* PTE100 EQU * P* GET LINE STATISTICS
0x010464…0105f8 Dummy {f00=0x0005, f01=0x0190, f02=»TISTICS & P LC A3,DWTCP2,A6 CHANNEL PARAMETER " P ANK A3,MASKWS CLEAN WS NUMBER : P SLL A3,8 TO LEFT BYTE ` 0 P ADK A3,CMDDS PLC COMMAND GET DLS STATISTICS ~ P* PTE120 EQU * 6 P ST A3,CWTCCA+CCRDLS,A5 DLS INDEX & COMMAND TO CCA
0x0105f8…01078c Dummy {f00=0x0005, f01=0x0190, f02=» P* < P* ENTRY IS MADE TO TSTRST WHEN COMMAND IS COMPLETED. & P* REGISTER CONTENTS ON ENTRY: N P* A1 = RETURN CODE x P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS P* PTSTRST EQU * & P ABL NDREP RETURN TO DEVICE DR
0x01078c…010920 Dummy {f00=0x0005, f01=0x0190, f02=»TEERR1 EQU * & P ABL NDREP RETURN TO DEVICE DRIVER P XIF > P* J P EJECT T P* b P********************** l P* INTERRUPT ROUTINES * P********************** P* : P* THIS SECTION CONTAINS INTERRUPT HANDLING ROUTINES.
0x010920…010ab4 (1, 20) Dummy {f00=0x0005, f01=0x0190, f02=»D t 8 P* ON INTERRUPT PRIORITY. AFTER PROCESSING, EXIT IS > P* MADE EITHER TO SOME ROUTINE WAITING FOR THE INTERRUPT, F : P* TO THE LOCAL PLC DISPATCHER OR TO TOSS DISPATCHER. 8 P* ON EXIT, A15 STACK CONTAINS INTERRUPT RETURN AND P* A1
0x010ab4…010c48 Dummy {f00=0x0005, f01=0x0190, f02=»NTERRUPT ENTRY $ P* PLIHR HANDLE RELEASE INTERRUPT & P* PLIHA HANDLE ATTENTION INTERRUPT > , P* PLIHC HANDLE I/O COMPLETION INTERRUPT h 2 P* COMPSTA HANDLE COMPLETION OF START COMMANDS & P* (TEST CU, OPEN LINE, OPEN DLS) 2 P* COMPTEST HANDL
0x010c48…010ddc Dummy {f00=0x0005, f01=0x0190, f02=»MANDS h 8 P* COMPGR HANDLE COMPLETION OF GENERAL READ COMMANDS * P* GRERR HANDLE ERRORS AT GENERAL READ J 6 P* GRSACK HANDLE STATUS AND RR MESSAGE FROM DEVICE x * P* GRDATA HANDLE DATA INPUT FROM DEVICE 0 P* GRRES HANDLE RESET MESSAGE FROM SECOND
0x010ddc…010f70 Dummy {f00=0x0005, f01=0x0190, f02=»ME: P* IHPL P* P* FUNCTION: $ 2 P* THIS ROUTINE CONTAINS INTERRUPT ENTRIES FOR 8 2 P* ALL PLC:S INCLUDED. IT SAVES A1-A8, SETS CWT n 4 P* ADDRESS AND EXITS TO RELEASE OR I/O COMPLETION P* INTERRUPT HANDLER. P* P* CALL
0x010f70…011104 Dummy {f00=0x0005, f01=0x0190, f02=»YSTEM P* P* OUTPUT: P* A5 = CWT ADDRESS * P* F @ P************************************************************ P P* PIHPL01 EQU * P IFF PLCNRL=0 U =5 P IFT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 P XIF
0x011104…011298 Dummy {f00=0x0005, f01=0x0190, f02=»L A5,PL0CWT CWT ADDRESS, PLC 0 $ P RF IHPL COMMON PART, ALL PLC:S & P XIF N P* Z P EJECT d P* r PIHPL02 EQU * | P IFF PLCNRL=0 U =5 P IFF PLCNRL=1 P IFT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 P XIF P*
0x011298…01142c Dummy {f00=0x0005, f01=0x0190, f02=»L=0 U =5 P IFF PLCNRL=1 & P LDKL A5,PL1CWT CWT ADDRESS, PLC 1 & $ P RF IHPL COMMON PART, ALL PLC:S P P XIF x P* PIHPL03 EQU * P IFF PLCNRL=0 U =5 P IFF PLCNRL=1 P IFF PLCNRL=2 P IFT CPU852=1 P CF A15,SA
0x01142c…0115c0 Dummy {f00=0x0005, f01=0x0190, f02=» MSR 8,A15 PUSH A1-A8 P XIF P* * P IFF PLCNRL=0 U =5 4 P IFF PLCNRL=1 N P IFF PLCNRL=2 d & P LDKL A5,PL2CWT CWT ADDRESS, PLC 2 z $ P RF IHPL COMMON PART, ALL PLC:S P XIF P* PIHPL04 EQU * P IFF PLCNRL=0 U =5
0x0115c0…011754 (1, 21) Dummy {f00=0x0005, f01=0x0190, f02=» P* P IFF PLCNRL=0 U =5 P IFF PLCNRL=1 ( P IFF PLCNRL=2 > P IFF PLCNRL=3 T P IFF CPU852=1 j P MSR 8,A15 PUSH A1-A8 P XIF P* P IFF PLCNRL=0 U =5 P IFF PLCNRL=1 P IFF PLCNRL=2 P IFF PLCNRL=3
0x011754…0118e8 Dummy {f00=0x0005, f01=0x0190, f02=» PLCNRR=0 P IFT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 ( P XIF H P IFF PLCNRR=0 T P IFF CPU852=1 j P MSR 8,A15 PUSH A1-A8 P XIF P IFF PLCNRR=0 , P LDKL A5,PR1CWT CWTADDRESS PLC 1 REMOTE " P RF IHPL COMMON PART ALL
0x0118e8…011a7c Dummy {f00=0x0005, f01=0x0190, f02=» x P XIF P IFF PLCNRR=0 P IFF PLCNRR=1 * P IFF CPU852=1 @ P MSR 8,A15 PUSH A1-A8 V P XIF t P IFF PLCNRR=0 P IFF PLCNRR=1 , P LDKL A5,PR2CWT CWTADDRESS PLC 2 REMOTE " P RF IHPL COMMON PART ALL CWT:S P XIF
0x011a7c…011c10 Dummy {f00=0x0005, f01=0x018e, f02=»A8 z P XIF P IFF PLCNRR=0 P IFF PLCNRR=1 , P IFF PLCNRR=2 B P IFF CPU852=1 X P MSR 8,A15 PUSH A1-A8 n P XIF P IFF PLCNRR=0 P IFF PLCNRR=1 P IFF PLCNRR=2 , P LDKL A5,PR3CWT CWTADDRESS PLC 3 REMOTE "
0x011c10…011da4 Dummy {f00=0x0005, f01=0x0190, f02=» P IFF PLCNRR=3 P IFT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 0 P XIF P P IFF PLCNRR=0 P IFF PLCNRR=1 r P IFF PLCNRR=2 P IFF PLCNRR=3 P IFF CPU852=1 P MSR 8,A15 PUSH A1-A8 P XIF P IFF PLCNRR=0
0x011da4…011f38 Dummy {f00=0x0005, f01=0x0190, f02=» ALL CWT:S | P XIF P EJECT P* , PIHPL EQU * 6 & P ST P,INTSAV SAVE LATEST INTERRUPT H P LDK A1,0 RESET HIGH BYTE r , P LC A1,CWTCID+CIDINT,A5 INTERRUPT SOURCE P CWK A1,/40 RELEASE? P RF(E) PLIHR YES, HANDLE P CWK A1,
0x011f38…0120cc Dummy {f00=0x0005, f01=0x0190, f02=»A15,PLCNOP ILLEGAL CODE, SET NOT OPERABLE P ABL TDISP EXIT 2 P* J P EJECT T P* b @ P************************************************************ l P* P* ROUTINE NAME: P* PLIHR P* P* FUNCTION: . P* THIS R
0x0120cc…012260 Dummy {f00=0x0005, f01=0x0190, f02=» ( P* IS MADE TO CCA ALLOCATION ROUTINE. P* 0 P* CALL: : P* RF PLIHR J P* P* INPUT: f P* A5 = CWT ADDRESS v P* P* OUTPUT: P* IF PROCESS WAITING , P* A4 = BLOCK ADDRESS OF WAITING PROCESS P* A5 = CWT AD
0x012260…0123f4 (1, 22) Dummy {f00=0x0006, f01=0x0190, f02=»RESET INTERRUPT . P LD A4,CWTCCQ,A5 PROCESS WAITING FOR CCA? * P ABL(NZ) CCARST YES, ACTIVATE PROCESS J " P CM CWTCCB,A5 NO, SET CCA FREE x P ABL TDISP EXIT P* P EJECT P* @ P************************************************
0x0123f4…012588 Dummy {f00=0x0006, f01=0x0190, f02=»ERRUPTS. IF l 4 P* ERROR, IT SETS AN ERROR CODE AND STARTS ABORT 4 P* OF ALL CALLS. IF COMMUNICATION REESTABLISHED, L P* IT STARTS RECOVERY. P* P* CALL: P* RF PLIHA P* P* INPUT: P* A5 = CWT ADDRESS P*
0x012588…01271c Dummy {f00=0x0006, f01=0x0190, f02=»************ ` P* PPLIHA EQU * & P LD A1,CWTRCA+CCRSTA,A5 PLC STATUS 2 & P ST A1,CWTPLS,A5 SAVE FOR TESTING P IFF UTTEST=0 P CF A15,LOGATT LOG RCA P XIF & P LC A6,CWTRCA+CCRDLS,A5 WS NUMBER P ANK A6,MASKWS CLEAN
0x01271c…0128b0 Dummy {f00=0x0006, f01=0x0190, f02=» t P ANR A2,A1 FATAL ERROR? P RF(Z) IA100 NO, CONTINUE ( ( P CF A15,PLCNOP SET PLC NOT OPERABLE J P ABL TDISP EXIT v P* PIA100 EQU * P LDR A2,A1 STATUS 0 P ANK A2,STACOM COMMUNICATION REESTABLISHED? . P ABL(NZ) PLREW
0x0128b0…012a44 Dummy {f00=0x0006, f01=0x0190, f02=»SPATCHER | P* P EJECT P* ( @ P************************************************************ 2 P* v P* ROUTINE NAME: P* PLIHC P* P* FUNCTION: 6 P* THIS ROUTINE HANDLES I/O COMPLETION INTERRUPTS. 6 P* IT CHE
0x012a44…012bd8 Dummy {f00=0x0006, f01=0x018e, f02=»LIHC P* P* INPUT: P* A5 = CWT ADDRESS & P* B P* OUTPUT: L P* A1 = PLC STATUS ^ P* A2 = FATAL PLC STATUS x P* A5 = CWT ADDRESS P* A6 = USER PARAMETER P* @ P********************************************
0x012bd8…012d6c Dummy {f00=0x0006, f01=0x0190, f02=» P IFF UTTEST=0 P CF A15,LOGIOC LOG CCR P XIF 8 P ANKL A1,/FFFF-STAPOL-STALER D & P* RESET POLL STOP & LINK ERROR h < P LD A6,CWTRCA+CCRIDW,A5 USER PARAMETER (DWT, DLS OR ...) $ P LC A2,CWTRCA+CCRCMD,A5 COMMAND P* P EJE
0x012d6c…012f00 Dummy {f00=0x0006, f01=0x0190, f02=» A3,CMDTB1 DECREMENT INDEX $ P RF(N) IC120 END OF TABLE. ERROR " & P CC A2,CMDTAB+1,A3 COMMAND FOUND? J P RB(NE) IC100 NO, CONTINUE t P* . P C1 A2,CMDTAB+4,A3 MASK FOR ALLOWED ERRORS P ANR A2,A1 FATAL ERROR? P RF(Z) IC110 NO, CONTI
0x012f00…013094 (1, 23) Dummy {f00=0x0006, f01=0x0190, f02=» PIC120 EQU * P EX CWTST3,A5 RELEASE RCA ( P CF A15,PLCNOP SET PLC NOT OPERABLE : P ABL PLDSP2 LOCAL DISPATCHER f P* P EJECT P* @ P************************************************************ P* P* ROUTINE NAME
0x013094…013228 Dummy {f00=0x0006, f01=0x0190, f02=» COMMANDS. x 0 P* THEY CHECK THE RETURN CODE AND EXIT TO THE & P* ROUTINE THAT MADE THE I/O CALL. F P* p P* CALL: z P* ABI CMDROU,A3 P* P* INPUT: P* A1 = PLC STATUS P* A2 = FATAL PLC STATUS P* A5 = CWT ADDRES
0x013228…0133bc Dummy {f00=0x0006, f01=0x0190, f02=»* A5 = CWT ADDRESS * P* A6 = DLS INDEX (IF EXIT TO ODLRST) P* J @ P************************************************************ T P* PCOMPTC EQU * P EX CWTST3,A5 RELEASE RCA 2 P ABL TCURST RETURN TO ROUTINE MAKING I/O CALL
0x0133bc…013550 Dummy {f00=0x0006, f01=0x0190, f02=»RCA z 2 P ABL OPLRST RETURN TO ROUTINE MAKING I/O CALL P* B P* L P* OPEN DLS, COMPLETION V P* x PCOMPOD EQU * P EX CWTST3,A5 RELEASE RCA P LDR A2,A2 FATAL STATUS? ( P RF(NZ) CD100 YES, SKIP STATUS CHECK P*
0x013550…0136e4 Dummy {f00=0x0006, f01=0x0190, f02=»* 2 P ABL ODLRST RETURN TO ROUTINE MAKING I/O CALL P* @ P EJECT J P* X @ P************************************************************ b P* P* ROUTINE NAME: P* COMPTEST P* P* FUNCTION: 2 P* THIS ROUTINE H
0x0136e4…013878 Dummy {f00=0x0006, f01=0x0190, f02=»PLC STATUS, SETS EFFECTIVE 2 P* LENGTH IN DWT AND EXITS TO THE ROUTINE THAT " P* MADE THE I/O CALL. X P* t P* CALL: ~ P* ABI CMDROU,A3 P* P* INPUT: P* A1 = PLC STATUS P* A5 = CWT ADDRESS P* A6 = DWT ADDRES
0x013878…013a0c Dummy {f00=0x0006, f01=0x018e, f02=»******************************************************** P* @ P IFT PLCTST=1 J PCOMPPS EQU * ` PCOMPDS EQU * t PCOMPRM EQU * P* P EJECT P* P LDR A1,A1 PLC STATUS P RF(NZ) TS100 ERROR. HANDLE P* ,
0x013a0c…013ba0 Dummy {f00=0x0006, f01=0x0190, f02=» . P LDK A1,NOTOPR RETURN CODE := NOT OPERABLE ( P CM DWTTLN,A6 EFFECTIVE LENGTH := 0 : P* f PTS110 EQU * p P EX CWTST3,A5 RELEASE RCA 2 P ABL TSTRST RETURN TO ROUTINE MAKING I/O CALL P XIF P* P EJECT P* @
0x013ba0…013d34 (1, 24) Dummy {f00=0x0006, f01=0x0190, f02=»NCTION: 2 P* THIS ROUTINE HANDLES COMPLETION OF STANDARD P* WRITE AND FAST WRITE. F 6 P* IT CHECKS THE PLC STATUS AND RELEASES THE OUTPUT f 2 P* BUFFER, IF ANY WAS ALLOCATED. IF THE OUTPUT 2 P* OPERATION IS FINISHED, IT THEN EXITS TO THE
0x013d34…013ec8 Dummy {f00=0x0006, f01=0x018e, f02=»ATUS P* A2 = FATAL PLC STATUS P* A5 = CWT ADDRESS , P* A6 = DWT ADDRESS H P* d P* OUTPUT: n 0 P* WHEN RETURN TO ROUTINE MAKING OUTPUT CALL P* A1 = RETURN CODE P* A2 = BITS 0-7 ZERO P* BITS 8-15 DEVICE STATUS
0x013ec8…01405c Dummy {f00=0x0006, f01=0x0190, f02=» R P* P EJECT P* PCOMPSW EQU * * PCOMPFW EQU * > P LDR A2,A2 FATAL PLC STATUS? R P RF(NZ) WRERR1 YES, HANDLE v P* & P LC A2,DWTCP2,A6 CHANEL PARAMETER " P ANK A2,MASKWS CLEAN WS NUMBER $ P CF A15,STAHAN HANDLE
0x01405c…0141f0 Dummy {f00=0x0006, f01=0x0190, f02=» j P EX CWTST3,A5 RELEASE RCA . P ABI WRIROU,A7 CALL CORRESPONDING ROUTINE * P* P* f P* IRRECOVERABLE ERROR p P* PWRERR1 EQU * P EX CWTST3,A5 RELEASE RCA PWRERR EQU * P ABL PLDSP2 EXIT P* P*
0x0141f0…014384 Dummy {f00=0x0006, f01=0x018e, f02=»FFER p $ P CM DWTLD1,A6 INDICATE NO BUFFER * P ABL ACKRST RETURN TO REQUEST HANDLER 4 P* b P* l 4 P* COMPLETION OF RECIEVE READY MESSAGE OUTPUT v P* PWRRR EQU * $ P SUK A4,2 START OF MONITOR BLOCK P LDR A7,A5 CWT ADDRESS
0x014384…014518 Dummy {f00=0x0006, f01=0x0190, f02=» P ABL PLDSP2 EXIT P* P* * 8 P* COMPLETION OF RESET CONFIRMATION MESSAGE OUTPUT 4 P* p PWRRESC EQU * z $ P SUK A4,2 START OF MONITOR BLOCK P LDR A7,A5 CWT ADDRESS , P ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD $ P CF
0x014518…0146ac Dummy {f00=0x0006, f01=0x018e, f02=» A2,DWTST,A6 CLEAR "RESET" FLAG 0 P LDK A4,RELINE RECOVERY CAUSE := LINK RESET ( ( P CF A15,NDREDW CALL RECOVERY FOR DWT P ABL PLDSP2 LOCAL DISPATCHER P* P EJECT P* @ P**********************************************************
0x0146ac…014840 Dummy {f00=0x0006, f01=0x0190, f02=» b P* READ COMMANDS. * P* IT CHECKS TYPE OF MESSAGE AND CALLS P* CORRESPONDING ROUTINE. N P* n P* CALL: x P* ABI CMDROU,A3 P* P* INPUT: P* A1 = PLC STATUS P* A2 = FATAL PLC STATUS P* A5 = CWT ADDRESS
0x014840…0149d4 (1, 25) Dummy {f00=0x0006, f01=0x0190, f02=»X ( P* A7 = DEVICE ADDRESS (IF RELEVANT) P* 6 @ P************************************************************ @ P* PCOMPGR EQU * P LDR A2,A2 FATAL STATUS? P RF(NZ) GRERR2 YES, EXIT P* P EJECT P* ( P CF
0x0149d4…014b68 Dummy {f00=0x0006, f01=0x0190, f02=»MASKWS CLEAN $ P LC A7,X25LCN,A4 DEVICE ADDRESS P ANK A7,MASKLC CLEAN < P* X 0 P ABI REAROU,A3 ROUTINE FOR THIS MESSAGE TYPE b P* P EJECT P* @ P************************************************************ P* P*
0x014b68…014cfc Dummy {f00=0x0006, f01=0x018e, f02=»NS BUFFER P* P* CALL: P* ABI REAROU,A3 , P* RB GRERR1 D P* RF GRERR2 X P* l P* INPUT: v & P* A4 = BUFFER ADDRESS (IF GRERR1) P* A5 = CWT ADDRESS P* P* OUTPUT: P* - P* @ P**********
0x014cfc…014e90 Dummy {f00=0x0006, f01=0x0190, f02=» P* PGRERR2 EQU * P EX CWTST3,A5 RELEASE RCA " P* D P ABL PLDSP2 EXIT N P* f P EJECT p P* ~ @ P************************************************************ P* P* ROUTINE NAME: P* GRSACK P* P
0x014e90…015024 Dummy {f00=0x0006, f01=0x0190, f02=»ND RETURNS TO ROUTINE v P* MAKING I/O CALL. P* 8 P* CALL: B P* ABI REAROU,A3 R P* j P* INPUT: t P* A4 = BUFFER ADDRESS P* A5 = CWT ADDRESS P* A6 = DLS INDEX P* A7 = DEVICE ADDRESS P* P* OUTPUT
0x015024…0151b8 Dummy {f00=0x0006, f01=0x0190, f02=»TUS x P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS ( P* D @ P************************************************************ N P* P EJECT P* PGRSTAT EQU * $ P CF A15,GETDWT A6 := DWT ADDRESS P RB(Z) GRERR1 NO DWT DEF
0x0151b8…01534c Dummy {f00=0x0006, f01=0x0190, f02=»F SR100 COMMON PART P* P* & PGRRR EQU * 0 $ P CF A15,GETDWT A6 := DWT ADDRESS B P RB(Z) GRERR1 NO DWT DEFINED j . P CF A15,FWIPR UPDATE FLOW CONTROL COUNTERS & P LDK A2,0 RESET DEVICE STATUS BYTE P* P* PSR100 EQU
0x01534c…0154e0 Dummy {f00=0x0006, f01=0x018e, f02=» GENERAL READ BUFFER z P LD A3,DWTST,A6 DWT STATUS P LDR A4,A3 > 4 P ANK A4,DWFAK3 ANYONE WAITING FOR THIS MESSAGE? P P ABL(Z) PLDSP2 NO, DISPATCH P* $ P XRS A4,DWTST,A6 RESET WAIT FLAG P LDK A1,0 RETURN CODE := OK 0 P ANK A
0x0154e0…015674 (1, 26) Dummy {f00=0x0007, f01=0x0190, f02=» P* P EJECT P* @ P************************************************************ & P* j P* ROUTINE NAME: t P* GRDATA P* P* FUNCTION: 0 P* THIS ROUTINE HANDLES DATA INPUT MESSAGES. & P* IT LINKS THE BUFFER TO T
0x015674…015808 Dummy {f00=0x0007, f01=0x0190, f02=»DRESS P* A6 = DLS INDEX P* A7 = DEVICE ADDRESS ( P* F P* OUTPUT: P P* - b P* n @ P************************************************************ x P* PGRDATA EQU * $ P CF A15,GETDWT A6 := DWT ADDRESS P RB(Z)
0x015808…01599c Dummy {f00=0x0007, f01=0x0190, f02=»ESS d 0 P ST A6,BUFDWT,A4 SAVE DWT ADDRESS IN BUFFER , P LD A2,CWTRCA+CCRLEN,A5 EFFECTIVE LENGTH @ $ P ST A2,BUFLEN,A4 SAVE IN BUFFER p & P LDK A2,X25DAT START OF USER DATA " P ST A2,BUFBIX,A4 TO BYTE INDEX P* P EJECT P*
0x01599c…015b30 Dummy {f00=0x0007, f01=0x0190, f02=»****************** f P* P* ROUTINE NAME: $ P* GRRES < P* L P* FUNCTION: V 2 P* THIS ROUTINE HANDLES RESET MESSAGES FROM THE j P* SECONDARY. 6 P* IT RESETS THE FLOW CONTROL COUNTERS IN THE DWT, 6 P* AND SETS A RESET PACKET
0x015b30…015cc4 Dummy {f00=0x0007, f01=0x0190, f02=» P* QUEUE IT IS ABORTED. P* & P* CALL: 0 P* ABI REAROU,A3 @ P* X P* INPUT: b P* A4 = BUFFER ADDRESS r P* A5 = CWT ADDRESS P* A6 = DLS INDEX P* A7 = DEVICE ADDRESS P* P* OUTPUT: P* -
0x015cc4…015e58 Dummy {f00=0x0007, f01=0x0190, f02=» ADDRESS x P RB(Z) GRERR1 NO DWT DEFINED P* 4 P EJECT > P* L P EX CWTST3,A5 RELEASE RCA V . P CF A15,PLRLBU RELEASE GENERAL READ BUFFER x . P CM DWTLD2,A6 RESET FLOW CONTROL COUNTERS P* P LD A2,DWTST,A6 DWT STATUS * P
0x015e58…015fec Dummy {f00=0x0007, f01=0x0190, f02=»CIEVED n P* " P CF A15,PLCCCA RESERVE PLC CCA P ENB > P* J $ P CF A15,GETBLK GET OUTPUT BUFFER T P LDR A7,A5 CWT ADDRESS | , P ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD 4 P CF A15,LNKFST PUT BLOCK IN QUEUE (FOR RECOVERY) P ADK A
0x015fec…016180 Dummy {f00=0x0007, f01=0x0190, f02=» 0 P CF A15,WRADR2 WRITE ADDRESS IN CCA (TYPE 2) 0 P LDK A2,CMDSW COMMAND CODE "STANDARD WRITE" 8 " P SC A2,CWTCCA+CCRCMD,A5 TO CCA l " P LDK A2,/1F MESSAGE TYPE FLAGS & P SC A2,X25FLW,A4 TO OUTPUT BUFFER , P LDK A2,TYRESC TYPE "RESET CONFIRMATIO
0x016180…016314 (1, 27) Dummy {f00=0x0007, f01=0x0190, f02=» LENGTH OF SYSTEM PART * P ST A2,CWTCCA+CCRLEN,A5 TO CCA LENGTH P* L P EJECT V P* d P LD A2,DWTST,A6 DWT STATUS n & P ANK A2,DWFRES RESET STILL WANTED? P RF(Z) REERR1 NO, EXIT & P CF A15,GETWSS A1 := STATUS & INH P RF(NZ
0x016314…0164a8 Dummy {f00=0x0007, f01=0x0190, f02=»ODE := LINK ERROR | P LD A2,DWTST,A6 DWT STATUS P LDR A3,A2 < , P ANK A2,DWFAK3 WAITING FOR LEVEL 3 ACK? N P RF(Z) RE100 NO, CONTINUE ~ $ P XRS A2,DWTST,A6 RESET ACK3 FLAG 0 P ANK A3,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? * P ABL(NZ) AK3
0x0164a8…01663c Dummy {f00=0x0007, f01=0x018e, f02=»FROM BUFFER QUEUE v P LDR A2,A2 FOUND? 0 P ABL(NZ) BUFRST YES, RETURN WITH ERROR CODE 4 P* h P ABL PLDSP2 LOCAL DISPATCHER r P* P* PREERR1 EQU * P CM CWTCCB,A5 SET CCA FREE PREERR2 EQU * 2 P* ERROR. RETURN
0x01663c…0167d0 Dummy {f00=0x0007, f01=0x0190, f02=» ( P CF A15,FREBLK RETURN MONITOR BLOCK P ABL PLDSP2 LOCAL DISPATCHER 0 P* T P EJECT ^ P* l P********************* v P* RECOVERY ROUTINES * P********************* P* < P* THESE ROUTINES ARE USED AT SYSTEM START OR
0x0167d0…016964 Dummy {f00=0x0007, f01=0x0190, f02=»D, 8 P* AND LAST RECOVERY ROUTINES IN DEVICE DRIVERS ARE P* CALLED FOR ALL DWT:S. F 8 P* THE SECTION ALSO CONTAINS ROUTINES FOR RECOVERY h P* OF I/O ERRORS. P* P* 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: P*
0x016964…016af8 Dummy {f00=0x0007, f01=0x0190, f02=» RECOVERY n P* P EJECT P* * @ P************************************************************ 4 P* x P* ROUTINE NAME: P* PLON P* P* FUNCTION: . P* THIS ROUTINE WILL ACTIVATE A MONITOR JOB 2 P* FOR THE PLC RE
0x016af8…016c8c Dummy {f00=0x0007, f01=0x0190, f02=» DEFINED. P* P* CALL: P* CF A15,PLON , P* B P* INPUT: L P* - P* h P* OUTPUT: r P* AT ENTRY TO PLSTRT: P* A5 = CWT ADDRESS P* @ P************************************************************
0x016c8c…016e20 Dummy {f00=0x0007, f01=0x0190, f02=» STARTED t P* P LDKL A2,PO110 START ADDRESS & P CF A15,QMJOB ACTIVATE MONITOR JOB > P* h PPO100 EQU * r P RTN A15 P* P EJECT P* PPO110 EQU * P CM PLCPFP NO LONGER PENDING P* P* " P IFF
0x016e20…016fb4 (1, 28) Dummy {f00=0x0007, f01=0x0190, f02=»UK A1,2 NEXT WORD $ P RF(N) PO116 READY WHEN ALL DONE P CM STATAR,A1 RESET COUNTER B P RB PO113 NEXT WORD f PPO116 EQU * P XIF P* ( P LDK A1,16 (MAX NUMBER OF PLC:S) * 2 PPO120 EQU * 0 P* THIS LOOP IS EXECUTED O
0x016fb4…017148 Dummy {f00=0x0007, f01=0x0190, f02=» TAKE NEXT IF NOT DEFINED P CF A15,PLSTRT START ONE PLC " P RB PO120 NEXT PLC F P* ` PPO130 EQU * j P ABL MEXIT MONITOR JOB EXIT ~ P* P EJECT P* @ P************************************************************ P
0x017148…0172dc Dummy {f00=0x0007, f01=0x0190, f02=»DWT:S, AND SETS THE DWT:S BUSY. IT THEN STARTS 2 P* THE PLC, AND CALLS RECOVERY ROUTINES IN ALL 6 P* DEVICE DRIVERS. l P* P* CALL: P* CF A15,PLSTRT P* P* INPUT: P* A5 = CWT ADDRESS P* P* OUTPUT:
0x0172dc…017470 Dummy {f00=0x0007, f01=0x0190, f02=» P CF A15,SAVE8 PUSH A1-A8 P XIF ( P IFF CPU852=1 4 P MSR 8,A15 PUSH A1-A8 J P XIF h P* t P ENB ~ 2 P IM CWTGR,A5 INDICATE GENERAL READ NOT ALLOWED " P CM CWTABW,A5 STOP ABORT OF WS * P CM CWTSBQ,A5 RESET SHORT BUFFER Q
0x017470…017604 Dummy {f00=0x0007, f01=0x0190, f02=»KS USED AS BUFFERS x P LDR A7,A5 , P ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD , P LDR* A4,A7 FIRST BLOCK $ P RF(Z) ST105 CONTINUE IF NO LEFT | $ P CF A15,LNKOUT REMOVE FROM QUEUE P CF A15,FREBLK RETURN BLOCK P RB ST100 TAKE NEXT
0x017604…017798 Dummy {f00=0x0007, f01=0x0190, f02=»A4,A7 FIRST BLOCK $ P RF(Z) ST110 CONTINUE IF NO LEFT $ P CF A15,LNKOUT REMOVE FROM QUEUE B P CF A15,FREBLK RETURN BLOCK j P RB ST105 TAKE NEXT P* PST110 EQU * P* INITIATE BUFFER AREAS P LDR A4,A5 CWT ADDRESS 2 P
0x017798…01792c Dummy {f00=0x0007, f01=0x0190, f02=»IBUF INITIATE BUFFER AREA P LDR A4,A5 CWT ADDRESS " 0 P ADKL A4,CWTLOB AREA FOR LONG OUTPUT BUFFERS @ P LDR A7,A5 t 2 P ADK A7,CWTPBL POOLBLOCK, LONG OUTPUT BUFFERS ( P CF A15,INIBUF INITIATE BUFFER AREA P LDR A4,A5 CWT ADDRESS 2 P A
0x01792c…017ac0 Dummy {f00=0x0007, f01=0x0190, f02=»UF INITIATE BUFFER AREA P* 0 P* RESET ALL DWT:S AND WORK STATION STATUS * 0 P LDK A3,MAXWS+1 NUMBER OF WORK STATIONS + 1 ^ PST120 EQU * P SUK A3,1 NEXT WORK STATION $ P RF(N) ST150 END IF NO MORE LEFT " P LDR A2,A3 WORK STATIO
0x017ac0…017c54 (1, 29) Dummy {f00=0x0007, f01=0x0190, f02=»EAR STATUS P LDK A1,NOTOPR " P SCR A1,A2 WS := NOT OPERABLE ( 0 P LD* A1,CWTINT,A5 WORK STATION TABLE ADDRESS N " P LDR A6,A3 WORK STATION NUMBER 0 P CF A15,NDGEDN A7 := HIGEST DWT NUMBER ON WS P ADK A7,1 PST130 EQU * P SUK A
0x017c54…017de8 Dummy {f00=0x0007, f01=0x0190, f02=»Z) ST130 NOT DEFINED $ P CM DWTLD2,A6 RESET FLOW CONTROL P LDKL A2,/FFFF-DWFBSY-DWFPLC D $ P* MASK FOR BUSY AND PLC FLAGS h P ANS A2,DWTST,A6 RESET FLAGS ( P CM DWTLD1,A6 RELEASE BUFFER, IF ANY 0 P CM DWTOTQ,A6 REMOVE DWT FROM QUEUE, IF
0x017de8…017f7c Dummy {f00=0x0007, f01=0x0190, f02=»NTIL PLC IS READY FOR START , P LD A4,CWTTPR,A5 TIMER ALREADY STARTED? $ P RF(Z) ST152 NO, START TIMER T " P LDKL A1,-STADLY-1 DELAY TIME x P STR A1,A4 RESTART TIMER P RF ST154 EXIT P* PST152 EQU * P LDR A1,A5 SAVE CWT AD
0x017f7c…018110 Dummy {f00=0x0007, f01=0x0190, f02=»TER p PST154 EQU * ( P ABL TDISP WAIT UNTIL TIMER EXPIRES P* L PST156 EQU * V " P LDR A5,A1 RESTORE CWT ADDRESS j , P CM CWTTPR,A5 INDICATE NO TIMER RUNNING P* , P* START "TEST CHANNEL UNIT" OPERATION P IM CWTCCB,A5
0x018110…0182a4 Dummy {f00=0x0007, f01=0x0190, f02=»DLS INDEX TO CCA l , P CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING P LDR A3,A5 CWT ADDRESS H 6 P ADK A3,CWTCSD CONTROL UNIT START DESCRIPTOR ADDR f P INH P CF A15,PLCCIO CIO START P RF(NZ) STERR2 EXIT IF ERROR 6 P IM CWTOPR,A5 SET NOT OP
0x0182a4…018438 Dummy {f00=0x0007, f01=0x0190, f02=»LETED. d & P* REGISTER CONTENTS ON ENTRY: P* A1 = PLC STATUS 8 P* A5 = CWT ADDRESS R P* n PTCURST EQU * x P LDR A1,A1 OPERATION OK? P RF(NZ) STERR2 NO, EXIT P* & P* PERFORM "OPEN LINE" OPERATION P U =5
0x018438…0185cc Dummy {f00=0x0007, f01=0x0190, f02=» LD A2,CWTLNO,A5 GET LINE NO 2 P SC A2,CWTCCA+CCRSU1,A5 SET UP LINE IN CCA =5 $ " P SLL A2,1 MAKE OPEN LINE PARA- Z P ST A2,CWTPAR,A5 METER AREA PST158 EQU * $ P LD A2,CWTOPP,A5 MAKE ADDRESS TO . P AD A2,CWTPAR,A5 OPEN LINE PARAMETER ARE
0x0185cc…018760 Dummy {f00=0x0007, f01=0x0190, f02=»RDLS,A5 COMMAND AND DLS INDEX TO CCA : P CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR , ( P LDK A2,12 PARAMETER AREA LENGTH =1 j " P ST A2,CWTCCA+CCRLEN,A5 TO CCA P* " P CM CWTOPR,A5 SET PLC OPERABLE P CF A15,PLCCIO CIO START
0x018760…0188f4 (1, 30) Dummy {f00=0x0008, f01=0x0190, f02=»HE OPEN LINE h P* OPERATION IS COMPLETED. & P* REGISTER CONTENTS ON ENTRY: 8 P* A1 = PLC STATUS b P* A5 = CWT ADDRESS | P* POPLRST EQU * P LDR A1,A1 OPERATION OK? P RF(NZ) STERR2 NO, EXIT P* P LD A2,C
0x0188f4…018a88 Dummy {f00=0x0008, f01=0x0190, f02=»,CWTLNO,A5 GET LINE NO P SUK A2,4 ALL LINES OPENED ? P RB(NZ) ST157 NO, TAKE NEXT B P CM CWTLNO,A5 f PST159 EQU * | P* . P CM CWTGR,A5 INDICATE GENERAL READ ALLOWED P* > P* PERFORM OPEN DATA LINK FOR ALL CONNECTED SECO
0x018a88…018c1c Dummy {f00=0x0008, f01=0x0190, f02=»N) ST180 EXIT IF ALL DONE ( P LD* A1,CWTINT,A5 WORK STATION TABLE " 0 P CF A15,NDGEDN A7 := HIGEST DWT NUMBER ON WS N P LDR A7,A7 ANY DWT:S? " P RB(N) ST160 NO, TAKE NEXT WS P* P CF A15,PLCCCA RESERVE CCA " P LDR A3,A6 WORK STATIO
0x018c1c…018db0 Dummy {f00=0x0008, f01=0x0190, f02=»,A5 DLS INDEX (WS NUMBER) TO CCA | * P ST A6,CWTCCA+CCRIDW,A5 SAVE DLS INDEX ( " P LDK A2,CMDOD COMMAND OPEN DLS V " P SC A2,CWTCCA+CCRCMD,A5 TO CCA | ( P LDK A2,MAXFR MAX OUTSTANDING FRAMES , P SC A2,CWTCCA+CCRSU1,A5 TO SUBCOMMAND 1 , P CM CWTCCA
0x018db0…018f44 Dummy {f00=0x0008, f01=0x0190, f02=»PLETION r P* P* > P* ENTRY TO ODLRST IS MADE WHEN OPERATION IS COMPLETED. $ & P* REGISTER CONTENTS ON ENTRY: f P* A2 = FATAL PLC STATUS P* A5 = CWT ADDRESS , P* A6 = WORK STATION NUMBER (DLS INDEX) P* POD
0x018f44…0190d8 Dummy {f00=0x0008, f01=0x0190, f02=»DK A4,RETCP FLAG "TC POWER UP" . P CF A15,NDREWS RECOVERY OF ALL DWT:S ON WS & $ P RB ST160 TAKE NEXT WORK STATION X P* P* PST180 EQU * * P* ALL DATA LINKS ARE STARTED. EXIT. P ABL PLDSP2 LOCAL DISPATCHER P* P*
0x0190d8…01926c Dummy {f00=0x0008, f01=0x0190, f02=»****************** P* LOCAL DISPATCHER * P******************** 6 P* R > P* THIS SECTION CONTAINS A DISPATCHER FOR THE PLC DRIVER. < P* IT CAN BE CALLED EITHER FROM ANOTHER ROUTINE IN THE > P* PLC DRIVER, OR FROM A TERMINAL DEVICE
0x01926c…019400 Dummy {f00=0x0008, f01=0x018e, f02=»S FREE. THIS MEANS THAT SEVERAL WAITING < P* PROCERSSES MAY BECOME READY FOR ACTIVATION. ONLY ONE 0 : P* OF THESE PROCESSES CAN BE ACTIVATED DIRECTLY. THE p > P* OTHER PROCESSES WILL BE ACTIVATED IN TURN, WHEN FIRST * P* PROCESS EXITS TO THI
0x019400…019594 (1, 31) Dummy {f00=0x0008, f01=0x0190, f02=» 8 P* PLDISP ACTIVATE PROCESS OR PERFORM COMMON FUNCTION P* @ P EJECT J P* X @ P************************************************************ b P* P* ROUTINE NAME: P* PLDISP P* P* FUNCTION: 8 P* THIS ROUTINE LOO
0x019594…019728 Dummy {f00=0x0008, f01=0x0190, f02=» ACTIONS THAT j 8 P* ARE NOT EXPLICITLY REQUESTED BY USER PROCESSES, EG < P* GENERAL READ. WHEN NOTHING IS LEFT TO DO, THE ROUTINE R P* EXITS TO TOSS DISPATCHER. 8 P* TWO ENTRIES ARE PROVIDED. ONE IS USED WHEN CALLER 6 P* KNOWS OWN DWT ADDRES
0x019728…0198bc Dummy {f00=0x0008, f01=0x0190, f02=»INPUT: $ P* A5 = CWT ADDRESS (IF PLDSP2) $ P* A6 = DWT ADDRESS (IF PLDISP) 6 P* A1-A8 ON A15 STACK ^ P* z P* OUTPUT: P* - P* @ P************************************************************ P* PPLDISP EQU *
0x0198bc…019a50 Dummy {f00=0x0008, f01=0x0190, f02=» PPLDSP2 EQU * P* P* & PDP100 EQU * 0 P ENB D P* HANDLE CHARACTER INPUT P * P LD A4,CWTBUF,A5 INPUT BUFFER WAITING? t P RF(Z) DP200 NO, CONTINUE P LD A6,BUFDWT,A4 DWT ADDRESS P* " P CF A15,PLGECH A2 := C
0x019a50…019be4 Dummy {f00=0x0008, f01=0x0190, f02=»NP INPUT REQUESTED? 0 P ABL(NZ) INPRST YES, RETURN TO DEVICE DRIVER P* P " P LD A1,DWTADR,A6 ADDRESS BLOCK Z . P LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED? , P ABR(NZ) A1 YES, GO TO INTERRUPT HANDLER P* PDP110 EQU * 0 P CW A4,D
0x019be4…019d78 Dummy {f00=0x0008, f01=0x0190, f02=»CWTBUF,A5 NO BUFFER WAITING " P CF A15,PLRLBU RELEASE BUFFER $ P* J 8 P* CHECK IF LEVEL 3 RECIEVE READY SHOULD BE SENT T 0 P CF A15,GETIFR A2 := NR OF FRAMES NOT ACK:ED P SUK A2,6 TIME TO SEND RR? P ABL(NN) SENDRR YES P*
0x019d78…019f0c Dummy {f00=0x0008, f01=0x018e, f02=»PFP PLC POWER UP PENDING? P ABL(NZ) TDISP YES, EXIT " P* B P* L PDP300 EQU * V * P* HANDLE ABORT OF ONE WORK STATION j ( P LD A6,CWTABW,A5 WS TO ABORT, IF ANY * P ABL(NZ) ABTHAN DO ABORT, IF REQUESTED P* P* PDP
0x019f0c…01a0a0 Dummy {f00=0x0008, f01=0x0190, f02=» t P LD A1,CWTCCB,A5 CCA FREE? P RF(NZ) DP500 NO, CONTINUE * P IM CWTCCB,A5 SET CCA BUSY L ( P ABL CCARST ACTIVATE WAITING PROCESS n P* P* PDP500 EQU * P* CHECK BUFFER QUEUES 4 P LD A6,CWTSBQ,A5 ANYONE IN SHORT BUFFE
0x01a0a0…01a234 (1, 32) Dummy {f00=0x0008, f01=0x0190, f02=»F A15,PLGTBU A4 := BUFFER ADDRESS $ P RF(Z) DP510 NO BUFFER AVAILABLE * , P LDK A7,CWTSBQ OFFSET TO CWT QUEUE HEAD R ( P RF DP520 COMMON PART FOR SHORT/LONG P* PDP510 EQU * 2 P LD A6,CWTLBQ,A5 ANYONE IN LONG BUFFERS QUEUE? P RF(Z)
0x01a234…01a3c8 Dummy {f00=0x0008, f01=0x0190, f02=»ADDRESS t 0 P RF(Z) DP600 CONTINUE IF NO BUFFER AVAILABLE 4 P LDK A7,CWTLBQ OFFSET TO LONG BUFFERS QUEUE HEAD D P* | PDP520 EQU * & P* SHORT OR LONG BUFFER FOUND " P LDR A2,A4 SAVE BUFFER ADDRESS P LDR A4,A6 DWT QUEUE LINK
0x01a3c8…01a55c Dummy {f00=0x0008, f01=0x0190, f02=»TORE BUFFER ADDRESS P LDK A1,0 RET CODE := OK * P ABL BUFRST RETURN TO ROUTINE WAITING < P* j P* t PDP600 EQU * ~ 2 P* CHECK IF GENERAL READ SHOULD BE PERFORMED * P LD A1,CWTGR,A5 GENERAL READ ALLOWED? P RF(NZ) DP800 NO,
0x01a55c…01a6f0 Dummy {f00=0x0008, f01=0x0190, f02=»R ADDRESS v . P ABL(NZ) GREAD PERFORM GR IF BUFFER FOUND P* D P* N PDP800 EQU * X 0 P* NOTHING MORE TO DO. EXIT TO DISPATCHER l P ABL TDISP TOSS DISPATCHER P* P EJECT P* P************ P* ROUTINES *
0x01a6f0…01a884 Dummy {f00=0x0008, f01=0x0190, f02=»ABL "NAME" INSTRUCTION. l : P* REGISTER INTERFACE IS DESCRIBED FOR EACH ROUTINE. " < P* WHEN A ROUTINE HAS PERFORMED THE REQUESTED FUNCTION, ` . P* IT WILL EXIT TO THE LOCAL DISPATCHER. P* 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE:
0x01a884…01aa18 Dummy {f00=0x0008, f01=0x018e, f02=»F ONE WORK STATION v 0 P* SENDRR SEND LEVEL 3 RECIEVE READY MESSAGE P* GREAD PERFORM GENERAL READ N P* r P EJECT | P* @ P************************************************************ P* P* ROUTINE NAME: P* ABTHAN
0x01aa18…01abac Dummy {f00=0x0008, f01=0x018e, f02=» 4 P* LEVEL 3 ACK OR WAITING IN CCA OR BUFFER QUEUES 2 P* WILL BE ABORTED. ONE CALL IS NEEDED FOR EACH < P* REQUEST TO BE ABORTED. r P* P* CALL: P* ABL ABTHAN P* P* INPUT: P* A5 = CWT ADDRESS P* A6 = WORK STATI
0x01abac…01ad40 Dummy {f00=0x0008, f01=0x018e, f02=» P* A6 = DWT ADDRESS P* @ P************************************************************ * P* n PABTHAN EQU * x " P LDR A3,A6 WORK STATION NUMBER P SLA A3,1 MAKE INDEX P ADR A3,A5 ADD CWT ADDRESS 2 P ADK A3,CWTWSS A3 := ADD
0x01ad40…01aed4 (1, 33) Dummy {f00=0x0008, f01=0x0190, f02=» j , P CF A15,NDGEDN A7 := HIGEST DWT NR ON WS P LDK A1,0 8 " P LCR A1,A3 WORK STATION STATUS J P* p P ADK A7,1 PREPARE FOR SUK z PAH100 EQU * P SUK A7,1 NEXT DWT " P RF(N) AH110 EXIT IF ALL DONE P LDR A6,A8 WS NUMBER
0x01aed4…01b068 Dummy {f00=0x0008, f01=0x0190, f02=»ST,A6 DWT STATUS P LDR A3,A2 , P LDKL A4,/FFFF-DWFPLC MASK FOR PLC FLAGS * P ANS A4,DWTST,A6 RESET FLAGS Z 2 P ANK A2,DWFAK3 IS DWT WAITING FOR LEVEL 3 ACK? ~ P RF(Z) AH105 NO, CONTINUE 0 P ANK A3,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? *
0x01b068…01b1fc Dummy {f00=0x0008, f01=0x0190, f02=»Q,A6 CCA QUEUE ELEMENT POINTER " P LDR A2,A7 SAVE DEVICE ADDRESS & P LDR A3,A1 SAVE RETURN CODE L P LDR A7,A5 CWT ADDRESS p " P ADK A7,CWTCCQ CCA QUEUE HEAD 2 P CF A15,LNKOUT LINK MONITOR BLOCK OUT OF QUEUE P LDR A7,A7 FOUND? & P ABL
0x01b1fc…01b390 Dummy {f00=0x0008, f01=0x0190, f02=»OUTBUQ REMOVE FROM BUFFER QUEUE P LDR A2,A2 FOUND IN QUEUE? ( * P ABL(NZ) BUFRST YES, TERMINATE REQUEST J P RB AH100 NEXT DWT x P* PAH110 EQU * B P* ALL PROCESSES WAITING FOR ACK 3 OR IN QUEUES ARE ABORTED P CM CWTABW,A5 NO M
0x01b390…01b524 Dummy {f00=0x0008, f01=0x0190, f02=»************ ` P* P* ROUTINE NAME: P* PLREWS 6 P* F P* FUNCTION: P 4 P* THIS ROUTINE WILL HANDLE RECOVERY OF ONE WORK d 4 P* STATION. ACTUAL CALL TO TERMINAL DEVICE DRIVER 0 P* RECOVERY ROUTINES ARE MADE THROUGH NDREWS. P
0x01b524…01b6b8 Dummy {f00=0x0008, f01=0x0190, f02=»* P* OUTPUT: ( P* AT ENTRY TO DEVICE RECOVERY: P* SEE NDREWS H P* @ P************************************************************ f P* PPLREWS EQU * " P LDR A3,A6 WORK STATION NUMBER P SLA A3,1 MAKE INDEX
0x01b6b8…01b84c Dummy {f00=0x0008, f01=0x018e, f02=» FLAG l 0 P ANRS A2,A3 INDICATE WS WORKING AFTER ERROR P LCR A1,A3 WS STATUS B P LDK A2,0 ^ P SCR A2,A3 RESET STATUS p , P LDK A4,RESECP ASSUME SECONDARY POWER UP P ANK A1,NOTOPR WAS IT? P RF(NZ) PR110 YES " P LDK A4,RELINE N
0x01b84c…01b9e0 Dummy {f00=0x0008, f01=0x0190, f02=» ^ P* P ABL PLDSP2 LOCAL DISPATCHER P* 6 P EJECT @ P* N @ P************************************************************ X P* P* ROUTINE NAME: P* SENDRR P* P* FUNCTION: 6 P* THIS ROUTINE WILL SEND ONE
0x01b9e0…01bb74 (1, 34) Dummy {f00=0x0009, f01=0x0190, f02=» P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS $ P* @ P* OUTPUT: J P* - P* h @ P************************************************************ r P* PSENDRR EQU * P CF A15,PLCCCA RESERVE CCA . P CF A15,GETBLK GET
0x01bb74…01bd08 Dummy {f00=0x0009, f01=0x0190, f02=»LNKFST PUT MONITOR BLOCK IN QUEUE & P ADK A4,2 A4 := START OF USER PART * 6 P CF A15,WRADR2 WRITE LINE ADDRESS IN CCA & BUFFER T , P LDK A2,CMDSW COMMAND := STANDARD WRITE " P SC A2,CWTCCA+CCRCMD,A5 TO CCA . P LDK A2,TYRR MESSAGE TYPE := RECIEVE
0x01bd08…01be9c Dummy {f00=0x0009, f01=0x0190, f02=» LENGTH TO CCA r < P CM CWTCCA+CCRC1B,A5 RESET DATA CHAIN & MSB BUFFER ADDR 2 P ST A4,CWTCCA+CCRBUF,A5 BUFFER ADDRESS TO CCA V P* & P CF A15,GETLCS A1 := STATUS & INH P RF(Z) RR100 CONTINUE IF OK P CM CWTCCB,A5 SET CCA FREE P R
0x01be9c…01c030 Dummy {f00=0x0009, f01=0x0190, f02=»A2,X25FLW,A4 TO BUFFER $ P CF A15,PLCCIO EXECUTE CIO START P RF(Z) RR120 EXIT IF OK F PRR110 EQU * f , P SUK A4,2 START ADDRESS OF MONITOR BLOCK z 4 P CF A15,LNKOUT REMOVE FROM QUEUE. A7 ALREADY SET ( P CF A15,FREBLK RETURN MONITOR BLOCK
0x01c030…01c1c4 Dummy {f00=0x0009, f01=0x0190, f02=»****************************** r P* & P* ROUTINE NAME: 0 P* GREAD H P* X P* FUNCTION: b 0 P* THIS ROUTINE WILL PERFORM ONE GENERAL READ v P* OPERATION TO THE PLC. P* P* CALL: P* ABL GREAD P* P* INPU
0x01c1c4…01c358 Dummy {f00=0x0009, f01=0x0190, f02=»****************************************** ~ P* 2 PGREAD EQU * < * P LDR A6,A4 PARAMETER := BUFFER ADDRESS P " P CF A15,PLCCCA RESERVE PLC CCA ~ P* SET CCA PARAMETERS 8 P CM CWTCCA+CCRC1B,A5 CLEAR DATA CHAINING & MSB ADDR * P ST A6
0x01c358…01c4ec Dummy {f00=0x0009, f01=0x0190, f02=»RAL READ v 0 P ST A2,CWTCCA+CCRDLS,A5 DLS INDEX & COMMAND $ P CF A15,PLCCIO EXECUTE CIO START D & P ABL PLDSP2 CHECK WHAT TO DO NEXT l P* P EJECT P* P*************** P* SUBROUTINES * P*************** P* @
0x01c4ec…01c680 Dummy {f00=0x0009, f01=0x018e, f02=»RUCTION. REGISTER INTERFACE IS DESCRIBED FOR EACH < P* ROUTINE. ONLY REGISTERS A1-A8 & PSW ARE CONSIDERED. : < P* REGISTERS NOT MENTIONED UNDER "OUTPUT" ARE UNCHANGED z P* FROM CALL. < P* THE ROUTINES ARE OF TWO TYPES, ASYNCHRONOUS ROUTINES
0x01c680…01c814 (1, 35) Dummy {f00=0x0009, f01=0x0190, f02=» < P* EXIT TO THE LOCAL DISPATCHER AND/OR TOSS DISPATCHER. : P* THIS MEANS THAT THE A15 STACK AT CALL MUST CONTAIN D > P* INTERRUPT RETURN, A1-A8 AND NOTHING ELSE. COMPUTATION > P* ROUTINES HAVE NO SUCH LIMITATIONS, AS THEY WILL RETURN < P*
0x01c814…01c9a8 Dummy {f00=0x0009, f01=0x0190, f02=»ODE: h P* P* NAME FUNCTION P* . P* ASYNCHRONOUS ROUTINES 8 $ P* PLCCCA RESERVE CCA FOR PROCESS P* PLCCIO EXECUTE CIO START P* P* COMPUTATION ROUTINES 2 P* PLCNOP SET FLAG INDICATING PLC NOT OPERABLE "
0x01c9a8…01cb3c Dummy {f00=0x0009, f01=0x0190, f02=»ANDLE FLOW CONTROL FOR INPUT , P* FLWOUT HANDLE FLOW CONTROL FOR OUTPUT $ 2 P* WRADDR WRITE LINE ADDRESS IN CCA AND BUFFER T & P* STAHAN PLC RETURN STATUS HANDLER * P* GETSTA GET STATUS FOR I/O CONNECTION 2 P* PLGTBU ALLOCATE BUFFER AND SET TO PL
0x01cb3c…01ccd0 Dummy {f00=0x0009, f01=0x0190, f02=»E TYPE OF INPUT MESSAGE . P* OUTBUQ REMOVE ELEMENT FROM BUFFER QUEUE ( P* LNKFST LINK ELEMENT FIRST IN QUEUE R ( P* LNKLST LINK ELEMENT LAST IN QUEUE ~ & P* LNKOUT LINK ELEMENT OUT OF QUEUE P* P EJECT P* @ P******************
0x01ccd0…01ce64 Dummy {f00=0x0009, f01=0x0190, f02=» ROUTINE IS CALLED WHEN A PROCESS WANTS TO 4 P* USE THE PLC COMMAND COMMUNICATION AREA (CCA). 2 4 P* IF THE AREA IS FREE, THE ROUTINE SETS IT BUSY j 4 P* AND RETURNS. IF THE AREA IS BUSY, THE CALLING 4 P* PROCESS IS PUT IN A QUEUE, AND EXIT IS MADE
0x01ce64…01cff8 Dummy {f00=0x0009, f01=0x0190, f02=»* P* CALL: P* CF A15,PLCCCA P* CF A15,PLCCCS 2 P* J P* INPUT: T 8 P* A3 = QUEUE ELEMENT ADDRESS SAVE AREA (IF PLCCCS) d P* A5 = CWT ADDRESS P* A6 = PARAMETER P* A1-A8 ON A15 STACK P* P* OUTPUT:
0x01cff8…01d18c Dummy {f00=0x0009, f01=0x0190, f02=»TERR. INHIBITED P* @ P************************************************************ " P* f P EJECT p P* ~ PPLCCCA EQU * . P LDK A3,0 DON'T SAVE QUEUE ELEMENT ADDRESS P* PPLCCCS EQU * P INH , P LD A1,CWTCCQ,A5
0x01d18c…01d320 Dummy {f00=0x0009, f01=0x0190, f02=»E r P* P* PLC FREE P IM CWTCCB,A5 SET PLC BUSY * ( P ADKL A15,4 ADJUST STACK FOR RETURN L P LDK A1,0 RETURN CODE := OK x $ P ABR* A15 RETURN IN INHIBIT MODE P* P* PCA100 EQU * ( P* PLC BUSY. PUT REQUEST I
0x01d320…01d4b4 (1, 36) Dummy {f00=0x0009, f01=0x0190, f02=»ET MONITOR BLOCK AND SAVE A1-A2 P LDR A3,A3 SAVE POINTER? ( P RF(Z) CA110 NO, CONTINUE H * P STR A4,A3 SAVE QUEUE ELEMENT ADDRESS j PCA110 EQU * P LDR A7,A5 CWT ADDRESS & P ADK A7,CWTCCQ PLC BUSY QUEUE HEAD * P CF A15,LNKLST PUT B
0x01d4b4…01d648 Dummy {f00=0x0009, f01=0x0190, f02=»TA,A1 INCREMENT QUEUE STATISTICS COUNTER P XIF 0 P ABL PLDSP2 LOCAL DISPATCHER < P* ` P* j 2 P* RETURN IS MADE HERE WHEN THE CCA IS FREE. t 6 P* (AT A RELEASE INTERRUPT OR FROM DISPATCHER.) P* REGISTERS ON ENTRY: " P*
0x01d648…01d7dc Dummy {f00=0x0009, f01=0x018e, f02=» ADK A7,CWTCCQ CCA QUEUE HEAD , P CF A15,LNKOUT REMOVE PROCESS FROM QUEUE & P LDK A3,0 RETURN CODE := OK V P* z P* < P* ENTRY IS MADE HERE WHEN A REQUEST SHOULD BE ABORTED P* DUE TO I/O ERROR. P* REGISTERS ON ENTRY:
0x01d7dc…01d970 Dummy {f00=0x0009, f01=0x0190, f02=» P LDR A7,A3 SAVE RETURN CODE 4 P CF A15,FREBLK RETURN MONITOR BLOCK. LOAD A1-A2 , P LDR A6,A1 PARAMETER d P LDR A1,A7 A1 := RETURN CODE P ABR A2 RETURN P* P EJECT P* @ P********************************************
0x01d970…01db04 Dummy {f00=0x0009, f01=0x0190, f02=» CAN BE USED. IF IT CAN, p 4 P* THE ROUTINE EXECUTES A CIO START INSTRUCTION. 4 P* IF THE PLC IS NOT OPERABLE DUE TO TC POWER UP, X < P* THE ROUTINE WILL EXIT TO TOSS DISPATCHER. IN ALL OTHER < P* CASES, IT WILL RETURN TO CALLING PROGRAM WITH A RETURN
0x01db04…01dc98 Dummy {f00=0x0009, f01=0x0190, f02=»ON A15 STACK P* P* OUTPUT: P* A1 = RETURN CODE 0 P* 0 IF OK L P* NOT 0 ELSE ` P* A2 = CHANGED v P* CR = CONTENTS OF A1 P* INTERR. INHIBITED P* @ P******************************************************
0x01dc98…01de2c Dummy {f00=0x0009, f01=0x0190, f02=» EJECT P* ( P LD A1,PFPOST POWER UP TASK PENDING? ( P OR A1,PLCPFP PLC POWER UP PENDING? D . P ABL(NZ) TDISP YES, GO TO TOSS DISPATCHER p " P LD A1,CWTOPR,A5 PLC OPERABLE? P RF(NZ) CS100 NO, HANDLE P IFF UTTEST=0 P CF A15,LO
0x01de2c…01dfc0 Dummy {f00=0x0009, f01=0x0190, f02=»RROR. SET NOT OPERABLE PCS100 EQU * . P LDK A1,NOTOPR RETURN CODE := NOT OPERABLE 2 P CM CWTCCB,A5 SET CCA FREE d P LDR A1,A1 SET CR P ABR A2 RETURN P* P EJECT P* @ P************************************************
0x01dfc0…01e154 (1, 37) Dummy {f00=0x0009, f01=0x0190, f02=»TE THAT THE PLC l P* IS "NOT OPERABLE". P* 4 P* CALL: > P* CF A15,PLCNOP N P* f P* INPUT: p P* A5 = CWT ADDRESS P* P* OUTPUT: P* - P* @ P**********************************************************
0x01e154…01e2e8 Dummy {f00=0x0009, f01=0x018e, f02=»A1,-1 SET DUMMY ERROR CODE PPN100 EQU * " * P ST A1,CWTOPR,A5 SET PLC NOT OPERABLE 6 P* d P IFF UTTEST=0 n P* P EJECT P* P LD A1,UTTST TRAP CONTROL P SUK A1,1 TRAP USED? P RF(NG) PN120 NO, SKIP P LDK A
0x01e2e8…01e47c Dummy {f00=0x0009, f01=0x0190, f02=» P* P LDR* A1,A15 POP A1 P RTN A15 * P EJECT : P* H @ P************************************************************ R P* P* ROUTINE NAME: P* GETDWT P* P* FUNCTION: 4 P* THIS ROUTINE CALCULATES THE DWT
0x01e47c…01e610 Dummy {f00=0x0009, f01=0x0190, f02=»A5 = CWT ADDRESS P* A6 = DLS INDEX ! P* A7 = DEVICE ADDRESS ! 4 P* ! R P* OUTPUT: ! " P* A6 = DWT ADDRESS IF FOUND, ! n P* ELSE 0 ! P* CR = CONTENTS OF A6 ! P* INTERR. INHIBITED ! P* ! @ P******************************
0x01e610…01e7a4 Dummy {f00=0x0009, f01=0x0190, f02=»ON TABLE ! t $ P CF A15,NDGEDW A6 := DWT ADDRESS " P LDR* A1,A15 POP A1 " 8 ( P ADKL A15,4 ADJUST STACK FOR RETURN " T , P ANKL A6,/FFFE SET CR & SKIP ODD ADDRESS " P ABR* A15 RETURN " P* " P EJECT " P* " @ P******************************
0x01e7a4…01e938 Dummy {f00=0x0009, f01=0x0190, f02=»CULATES THE CWT ADDRESS FOR " ~ * P* THE PLC CONTROLLING CALLING DEVICE. # $ P* # R P* CALL: # P* CF A15,GETCWT # l P* # P* INPUT: # P* A6 = DWT ADDRESS # P* # P* OUTPUT: # " P* A5 = CWT ADDRESS IF FOUND, # P* ELSE 0 #
0x01e938…01eacc Dummy {f00=0x0009, f01=0x0190, f02=»** # V P* $ PGETCWT EQU * $ ( P LD A5,DWTCHP,A6 CHANNEL PARAMETERS $ ( , P ANK A5,MASKPL CLEAN CHANNEL UNIT INDEX $ T P SLL A5,1 MAKE INDEX $ P IFF PLCNRR=0 $ P IFF PLCNRL=0 $ " P LDR* A7,A6 CHANNEL PARAMETER $ P SUKL A7,/0500 REMOTE
0x01eacc…01ec60 Dummy {f00=0x0009, f01=0x0190, f02=»* $ P IFT CPU852=1 % P ADKL A15,2 SKIP PSW % P LDR* P,A15 RETURN % < P XIF % V P IFF CPU852=1 % b P RTN A15 % x P XIF % P* % P EJECT % P* % @ P************************************************************ % P* % P* RO
0x01ec60…01edf4 (1, 38) Dummy {f00=0x000a, f01=0x018e, f02=»IE FRAMES THAT HAVE BEEN TRANSFERRED BUT % 0 P* NOT ACKNOWLEDGED ON LEVEL 3, FOR A LOGICAL & 0 P* CHANNEL. & d 4 P* GETIFR GETS NUMBER OF FRAMES RECIEVED BY PLC. & v 0 P* GETOFR GETS NUMBER OF FRAMES SENT BY PLC. & P* & P* CALL: & P* CF A15,GET
0x01edf4…01ef88 Dummy {f00=0x000a, f01=0x0190, f02=» & ~ ( P* A2 = NUMBER OF OUTSTANDING FRAMES ' P* CR = CHANGED ' 4 P* ' L @ P************************************************************ ' V P* ' PGETIFR EQU * ' * P LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS ' P LDR A1,A2 ' . P SRL A2,9 BITS 1
0x01ef88…01f11c Dummy {f00=0x000a, f01=0x0190, f02=»* ' PGETOFR EQU * ( * P LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS ( P LDR A1,A2 ( L . P SRL A2,1 BITS 13-15 := NEXT P(S) TO SEND ( ^ . P SLC A1,3 BITS 13-15 := LAST RECIEVED P(R) ( P* ( P* ( PGF100 EQU * ( ( P SUR A2,A1 A2 := OUTSTANDING F
0x01f11c…01f2b0 Dummy {f00=0x000a, f01=0x018e, f02=» XIF ( P* ) P IFF CPU852=1 ) P RTN A15 ) , P XIF ) < P* ) H P EJECT ) R P* ) ` @ P************************************************************ ) j P* ) P* ROUTINE NAME: ) P* FLWINP ) P* ) P* FUNCTION: ) > P* THIS ROU
0x01f2b0…01f444 Dummy {f00=0x000a, f01=0x0190, f02=» ) | 2 P* FWIPR IS FOR MESSAGES ONLY CONTAINING P(R). * 6 P* FWIPSR IS FOR MESSAGES CONTAINING P(S) AND P(R). * > P* NO ERROR CHECK IS MADE. * x P* * P* CALL: * P* CF A15,FWIPR * P* CF A15,FWIPSR * P* * P* INPUT: * P* A4 = BUFF
0x01f444…01f5d8 Dummy {f00=0x000a, f01=0x0190, f02=»******************************************************** * P* + @ PFWIPR EQU * + J P STR A2,A15 PUSH A2 + ^ , P LC A1,X25FLW,A4 FLOW CONTROL FROM INPUT + z $ P ANK A1,/E0 BITS 8-10 = P(R) IN + & P LC A2,DWTLD2,A6 OLD FLOW CONTROL + ( P ANK A2,/0E
0x01f5d8…01f76c Dummy {f00=0x000a, f01=0x018e, f02=» + PFWIPSR EQU * , , P LC A1,X25FLW,A4 FLOW CONTROL FROM INPUT , P ANK A1,/EE CLEAN , L 4 P ADK A1,/02 BITS 12-14 := NEXT EXPECTED P(S) IN , f P ANK A1,/EE MODULO 8 , P* , P* , PFI100 EQU * , * P SC A1,DWTLD2,A6 SAVE NEW FLOW CONTROL
0x01f76c…01f900 Dummy {f00=0x000a, f01=0x0190, f02=» P RTN A15 - P XIF - P* - P EJECT - * P* - 8 @ P************************************************************ - B P* - P* ROUTINE NAME: - P* FLWOUT - P* - P* FUNCTION: - 8 P* THIS ROUTINE HANDLES FLOW CONTROL FOR OUTPUT. FL
0x01f900…01fa94 (1, 39) Dummy {f00=0x000a, f01=0x0190, f02=»NG ONLY P(R). - p 6 P* FWOPSR IS FOR MESSAGES CONTAINING P(S) AND P(R). . P* . P P* CALL: . Z P* CF A15,FWOPR . j P* CF A15,FWOPSR . P* . P* INPUT: . P* A6 = DWT ADDRESS . P* . P* OUTPUT: . P* A1 = CHANGED . P* A2
0x01fa94…01fc28 Dummy {f00=0x000a, f01=0x0190, f02=» ELSE ZERO . P* BIT 15 ZERO / P* CR = CHANGED / 2 P* / J @ P************************************************************ / T P* / PFWOPR EQU * / * P LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS / P LDR A1,A2 / 0 P SRL A2,4 BITS 8-1
0x01fc28…01fdbc Dummy {f00=0x000a, f01=0x0190, f02=» & P ORR A1,A2 P(S) := SAME AS BEFORE 0 P RF FO100 COMMON ENDING 0 . P* 0 N P* 0 X PFWOPSR EQU * 0 b * P LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS 0 v P LDR A1,A2 0 0 P SRL A2,4 BITS 8-10 := NEXT EXPECTED P(S) IN 0 P* (= P(R) TO SEND) 0 P
0x01fdbc…01ff50 Dummy {f00=0x000a, f01=0x0190, f02=»DK A1,/02 INCREMENT P(S) TO SEND 0 P ANK A1,/EE MODULO 8 1 ( P* 1 D P* 1 N PFO100 EQU * 1 X 2 P SC A1,DWTLD2+1,A6 SAVE FLOW CONTROL COUNTERS 1 l P* 1 P IFT CPU852=1 1 P ADKL A15,2 SKIP PSW 1 P LDR* P,A15 RETURN 1 P XIF 1 P* 1
0x01ff50…0200e4 Dummy {f00=0x000a, f01=0x018e, f02=»**** 1 X P* 2 P* ROUTINE NAME: 2 P* WRADDR 2 . P* 2 > P* FUNCTION: 2 H 0 P* THIS ROUTINE WRITES THE LINE ADDRESS IN A 2 6 P* MESSAGE. THE ADDRESS CONSISTS OF: DROP ADDRESS, 2 2 P* GROUP NUMBER AND DEVICE ADDRESS. WRADR1 SETS 2 6 P* GROUP=
0x0200e4…020278 Dummy {f00=0x000a, f01=0x0190, f02=» 2 ~ P* CF A15,WRADR2 3 P* 3 P* INPUT: 3 * P* A4 = BUFFER ADDRESS 3 : P* A5 = CWT ADDRESS 3 X P* A6 = DWT ADDRESS 3 t P* 3 P* OUTPUT: 3 P* A2 = CHANGED 3 P* CR = CHANGED 3 P* 3 @ P**********************************
0x020278…02040c Dummy {f00=0x000a, f01=0x0190, f02=» P EJECT 4 P* 4 PWRADR2 EQU * 4 P LDK A2,/10 GROUP NUMBER 0 4 0 P* 4 R P* 4 PWA100 EQU * 4 f , P SC A2,X25LGN,A4 GROUP NUMBER TO BUFFER 4 z ( P LC A2,DWTCP2,A6 CHANNEL PARAMETERS 4 " P ANK A2,MASKWS CLEAN WS NUMBER 4 " P SC A2,CWTCC
0x02040c…0205a0 Dummy {f00=0x000a, f01=0x0190, f02=» P IFT CPU852=1 5 P ADKL A15,2 SKIP PSW 5 P LDR* P,A15 RETURN 5 6 P XIF 5 P P* 5 P IFF CPU852=1 5 f P RTN A15 5 | P XIF 5 P* 5 P EJECT 5 P* 5 @ P************************************************************ 5 P* 5 P
0x0205a0…020734 (1, 40) Dummy {f00=0x000a, f01=0x0190, f02=»ON. IF "NO CONNECTION", "LINK RESET" 5 2 P* OR "DCE NOT OPERABLE" IS INDICATED, AN ERROR 6 , P* CODE WILL BE 6 b 4 P* SET IN THE WORK STATION STATUS WORD (CWTWSS). 6 x ( P* OTHER STATUS BITS ARE NOT ALLOWED. 6 P* 6 P* CALL: 6 P* CF A15,STAHAN 6
0x020734…0208c8 Dummy {f00=0x000a, f01=0x0190, f02=»TPUT: 6 P* A1 = DEVICE RETURN CODE 7 P* CR = CHANGED 7 0 P* 7 H @ P************************************************************ 7 R P* 7 PSTAHAN EQU * 7 P STR A3,A15 PUSH A3 7 P LDR A3,A1 ANY ERROR? 7 P RF(Z) SH120 NO, RETURN 7
0x0208c8…020a5c Dummy {f00=0x000a, f01=0x0190, f02=»S IT? 7 x P RF(NZ) SH100 YES, CONTINUE 8 " P LDK A1,LINERR NO, LINK ERROR 8 2 PSH100 EQU * 8 X " P LDR A3,A2 WORK STATION NUMBER 8 l P SLA A3,1 MAKE INDEX 8 P ADR A3,A5 ADD CWT ADDRESS 8 2 P ADK A3,CWTWSS A3 := ADDRESS OF STATUS FOR WS 8 P S
0x020a5c…020bf0 Dummy {f00=0x000a, f01=0x0190, f02=»N 8 x P LDK A4,WSFERR 9 " P ORRS A4,A3 SET ERROR DETECTED 9 0 P ST A2,CWTABW,A5 INDICATE ABORT DWT:S FOR WS 9 F P* 9 z PSH110 EQU * 9 P LDR* A4,A15 POP A4 9 PSH120 EQU * 9 P LDR* A3,A15 POP A3 9 P* 9 P IFT CPU852=1 9 P ADK
0x020bf0…020d84 Dummy {f00=0x000a, f01=0x0190, f02=»* 9 @ P************************************************************ : P* : N P* ROUTINE NAME: : X P* GETSTA : p P* : P* FUNCTION: : 0 P* THIS ROUTINE WILL CHECK THE I/O STATUS FOR : P* A DEVICE. : 0 P* GETWSS WILL ONLY CHECK THE STATU
0x020d84…020f18 Dummy {f00=0x000a, f01=0x0190, f02=» : P* CALL: ; P* CF A15,GETLCS ; P* CF A15,GETWSS ; 0 P* ; H P* INPUT: ; R P* A5 = CWT ADDRESS ; b P* A6 = DWT ADDRESS ; ~ P* ; P* OUTPUT: ; P* A1 = RETURN CODE ; P* CR = CONTENTS OF A1 ; P* INTERR. INHIBITED ;
0x020f18…0210ac Dummy {f00=0x000a, f01=0x0190, f02=»PUSH A3 ; P* < * P LDK A1,LINERR SET RETURN CODE IN CASE < P LD A3,DWTST,A6 DWT STATUS < H * P ANK A3,DWFRES RESET PACKET RECIEVED? < j 0 P RF(NZ) LS110 YES, RETURN. RET CODE = LINERR < " P RF LS100 NOT RESET. CHECK WSS < P* < P* < PGE
0x0210ac…021240 Dummy {f00=0x000a, f01=0x0190, f02=» A3,MASKWS CLEAN < P SLA A3,1 MAKE INDEX = P ADR A3,A5 CWT ADDRESS = 4 P LC A1,CWTWSS,A3 WS STATUS = R P* = t P* = ~ PLS110 EQU * = P LDR* A3,A15 POP A3 = P ADKL A15,4 ADJUST STACK = * P ANK A1,/FF CLEAN RETURN CODE & SET CR = P A
0x021240…0213d4 (1, 41) Dummy {f00=0x000a, f01=0x0190, f02=»ROUTINE NAME: = P* PLGTBU > P* > & P* FUNCTION: > 0 8 P* THIS ROUTINE WILL ALLOCATE A BUFFER AND FORMAT IT > D 2 P* ACCORDING TO THE FORMAT USED BY THIS DRIVER. > P* > P* CALL: > P* CF A15,PLGTBU > P* > P* INPUT: > P* A7
0x0213d4…021568 Dummy {f00=0x000a, f01=0x0190, f02=»ER (IF ANY) > n & P* CR = NOT 0 IF BUFFER ALLOCATED ? P* 0 IF NO BUFFER ALLOCATED ? > P* INTERR. INHIBITED ? b P* ? ~ @ P************************************************************ ? P* ? PPLGTBU EQU * ? P LDR* A2,A15 SKIP PSW ? $ P
0x021568…0216fc Dummy {f00=0x000a, f01=0x018e, f02=»,A15 SAVE RETURN ADDRESS ? & P ADK A4,BUFHLN START OF USER PART @ , P ST A7,BUFLNK,A4 SAVE POOLBLOCK ADDRESS @ J P LD A2,POBBUS,A7 BUFFER SIZE @ z , P SUK A2,BUFHLN A2 := LENGTH OF USER PART @ P RF(P) GU100 CONTINUE IF OK @ 0 P ANK A2,0 TOO SHORT. B
0x0216fc…021890 Dummy {f00=0x000a, f01=0x0190, f02=» @ P* A @ P************************************************************ A P* A V P* ROUTINE NAME: A ` P* PLRLBU A x P* A P* FUNCTION: A 0 P* THIS ROUTINE RELEASES AN I/O BUFFER OF THE A " P* FORMAT USED BY THIS DRIVER. A P* A
0x021890…021a24 Dummy {f00=0x000a, f01=0x0190, f02=»ANGED A P* CR = CHANGED B " P* INTERR. INHIBITED IF CPU 852 B & P* B L @ P************************************************************ B V P* B PPLRLBU EQU * B P STR A7,A15 PUSH A7 B & P LD A7,BUFLNK,A4 POOLBLOCK ADDRESS B 2 P SUK A4,BU
0x021a24…021bb8 Dummy {f00=0x000a, f01=0x0190, f02=»2=1 B P ADKL A15,2 SKIP PSW C P LDR* P,A15 RETURN C ( P XIF C B P IFF CPU852=1 C N P RTN A15 C d P XIF C t P EJECT C P* C @ P************************************************************ C P* C P* ROUTINE NAME: C P* PLCHAR C
0x021bb8…021d4c Dummy {f00=0x000a, f01=0x0190, f02=» C ` 4 P* THE BUFFER SHOULD HAVE A HEADER OF THE NORMAL D . P* PLC FORMAT (SE "BUFFER LAYOUT" CONSTANT D @ P* DEFINITION). D r P* D P* CALL: D P* CF A15,PLGECH D P* CF A15,PLPUCH D P* D P* INPUT: D P* A2 = IF PUT CHAR D P
0x021d4c…021ee0 Dummy {f00=0x000a, f01=0x0190, f02=»E D ~ & P* -1 IF OVERFLOW/UNDERFLOW, ELSE E P* AT PLPUCH: 0 E 4 , P* AT PLGECH: NR OF CHAR LEFT IN BUFFER E L P* A2 = IF PLGECH & A1>=0 : E | P* BITS 0-7 ZERO E P* BITS 8-15 CHARACTER E P* INTERR. INHIBITED E P* E @ P************
0x021ee0…022074 (1, 42) Dummy {f00=0x000b, f01=0x018e, f02=»A1,BUFLEN,A4 LENGTH OF TEXT IN BUFFER E P LD A2,BUFBIX,A4 BYTE INDEX F . P SUR A1,A2 F R $ P SUK A1,1 A1 := NR OF CHAR LEFT F d " P RF(N) CH100 EXIT IF UNDERFLOW F " P IM BUFBIX,A4 INCREMENT INDEX F , P ADR A2,A4 ABSOLUTE ADDRESS OF CHARACTER F P
0x022074…022208 Dummy {f00=0x000b, f01=0x0190, f02=» P INH G P* G P LD A1,BUFBIX,A4 BYTE INDEX G $ P CW A1,BUFLEN,A4 OUTSIDE BUFFER? G > P RF(NL) CH100 YES, ERROR G f " P IM BUFBIX,A4 INCREMENT INDEX G $ P ADR A1,A4 FREE PLACE IN BUFFER G & P SCR A2,A1 PUT CHARACTER IN BUFFER G P LDK A1,0
0x022208…02239c Dummy {f00=0x000b, f01=0x0190, f02=»CH110 EQU * G P ADKL A15,4 ADJUST STACK H P ABR* A15 RETURN H 4 P* H L P EJECT H V P* H d @ P************************************************************ H n P* H P* ROUTINE NAME: H P* INTYPE H P* H P* FUNCTION: H 4 P* THIS
0x02239c…022530 Dummy {f00=0x000b, f01=0x0190, f02=»YPE H P* I P* INPUT: I P* A5 = CWT ADDRESS I & P* I B P* OUTPUT: I L P* A2 = CHANGED I ^ P* A3 = TYPE I v P* A4 = CHANGED I P* CR = CHANGED I P* I @ P************************************************************ I P
0x022530…0226c4 Dummy {f00=0x000b, f01=0x0190, f02=» NO, ERROR I P* J P EJECT J P* J * * P LD A3,CWTRCA+CCRBUF,A5 BUFFER ADDRESS J 4 " P LC A2,X25LGN,A3 GROUP NUMBER J b P LDR A4,A2 SAVE J P ANK A4,/0F CLEAN J P RF(NZ) IT120 NOT GROUP ZERO J P* J . P* CHANNEL GROUP ZERO. NORMAL
0x0226c4…022858 Dummy {f00=0x000b, f01=0x0190, f02=»T J t & P LDK A3,TYDATA ASSUME NORMAL DATA K P ANK A2,/80 QUALIFY BIT SET? K 4 ( P RF(Z) ITEXIT NO, NORMAL DATA. EXIT K X & P LDK A3,TYSTAT YES, STATUS MESSAGE K P RF ITEXIT EXIT K P* K PIT100 EQU * K & P LDR A4,A3 SAVE FLOW CONTROL BYTE K
0x022858…0229ec Dummy {f00=0x000b, f01=0x0190, f02=» PIT110 EQU * L & P LDK A3,TYRES ASSUME TYPE = RESET L P ANK A4,/04 IS IT RESET? L B P RF(Z) ITEXIT YES, EXIT L b 2 P LDK A3,TYRESC NO, TYPE := RESET CONFIRMATION L P RF ITEXIT EXIT L P* L P EJECT L P* L PIT120 EQU * L P*
0x0229ec…022b80 Dummy {f00=0x000b, f01=0x0190, f02=»YES, EXIT L P* M PITERR EQU * M & P LDK A3,TYERR IRRECOVERABLE ERROR M 0 P* M Z PITEXIT EQU * M d P IFT CPU852=1 M x P ADKL A15,2 SKIP PSW M P LDR* P,A15 RETURN M P XIF M P IFF CPU852=1 M P RTN A15 M P XIF M P* M
0x022b80…022d14 (1, 43) Dummy {f00=0x000b, f01=0x0190, f02=»UQ M P* N P* FUNCTION: N 8 P* THIS ROUTINE WILL REMOVE A DWT FROM THE QUEUES FOR N ( 4 P* SHORT OR LONG OUTPUT BUFFERS, IF IT IS IN ANY N d P* OF THE QUEUES. N P* N P* CALL: N P* CF A15,OUTBUQ N P* N P* INPUT: N P* A5 =
0x022d14…022ea8 Dummy {f00=0x000b, f01=0x018e, f02=» P* A4 = CHANGED O P* CR = CHANGED O P* O 4 @ P************************************************************ O > P* O POUTBUQ EQU * O P STR A1,A15 PUSH A1 O P STR A7,A15 PUSH A7 O P LDR A4,A6 DWT ADDRESS O P ADKL A4,DWTOTQ QU
0x022ea8…02303c Dummy {f00=0x000b, f01=0x0190, f02=» O j P LDR A7,A7 FOUND? P P RF(NZ) OB100 YES, RETURN P " P* P D P LDR A7,A5 P N & P ADKL A7,CWTLBQ LONG BUFFERS QUEUE P ` $ P CF A15,LNKOUT REMOVE FROM QUEUE P P* P POB100 EQU * P & P LDR A2,A7 A2 := FOUND / NOT FOUND P P* P P LDR
0x02303c…0231d0 Dummy {f00=0x000b, f01=0x0190, f02=» P IFF CPU852=1 Q P RTN A15 Q P XIF Q * P* Q 6 P EJECT Q @ P* Q N @ P************************************************************ Q X P* Q P* ROUTINE NAME: Q P* LNKFST Q P* Q P* FUNCTION: Q 2 P* THIS ROUTINE LINKS A QUEUE
0x0231d0…023364 Dummy {f00=0x000b, f01=0x0190, f02=» IS INDICATED BY LINK=0 IN LAST Q P* ELEMENT. R ( P* R : P* CALL: R D P* CF A15,LNKFST R T P* R l P* INPUT: R v & P* A4 = QUEUE ELEMENT LINK ADDRESS R $ P* A7 = QUEUE HEAD LINK ADDRESS R P* R P* OUTPUT: R P* A1 = CHANGED R
0x023364…0234f8 Dummy {f00=0x000b, f01=0x0190, f02=» LDR* A1,A7 FIRST QUEUE ELEMENT R ( P STR A1,A4 SET LINK FROM NEW ELEMENT S ( $ P STR A4,A7 SET NEW ELEMENT FIRST S T P IFT CPU852=1 S | P RF LNKRET RETURN S P XIF S P IFF CPU852=1 S P RTN A15 S P XIF S P* S P EJECT S P* S
0x0234f8…02368c Dummy {f00=0x000b, f01=0x0190, f02=»NCTION: S 0 P* THIS ROUTINE LINKS A QUEUE ELEMENT LAST IN T * P* A QUEUE (OPOSITE END TO QUEUE HEAD). T D 2 P* ONE WORD IN EACH ELEMENT IS USED AS A LINK. T r 2 P* END OF QUEUE IS INDICATED BY LINK=0 IN LAST T P* ELEMENT. T P* T P* CALL: T
0x02368c…023820 Dummy {f00=0x000b, f01=0x0190, f02=» T P* OUTPUT: U P* A1 = CHANGED U P* A7 = CHANGED U 2 P* CR = CHANGED U J P* U b @ P************************************************************ U l P* U PLNKLST EQU * U $ P LDR A1,A7 SAVE PRESENT ELEMENT U P LDR* A7,A7 NEXT E
0x023820…0239b4 (1, 44) Dummy {f00=0x000b, f01=0x0190, f02=»N LAST ELEMENT U x P* V P EJECT V P* V . P IFT CPU852=1 V 8 P RF LNKRET RETURN V N P XIF V h P IFF CPU852=1 V t P RTN A15 V P XIF V P* V P EJECT V P* V @ P************************************************************ V
0x0239b4…023b48 Dummy {f00=0x000b, f01=0x0190, f02=» 2 P* ONE WORD IN EACH ELEMENT IS USED AS A LINK. W 2 P* END OF QUEUE IS INDICATED BY LINK=0 IN LAST W : P* ELEMENT. W p P* W P* CALL: W P* CF A15,LNKOUT W P* W P* INPUT: W & P* A4 = QUEUE ELEMENT LINK ADDRESS W $ P* A7 = QUEUE HE
0x023b48…023cdc Dummy {f00=0x000b, f01=0x0190, f02=»UND W | P* CR = CHANGED X P* X $ @ P************************************************************ X . P* X r PLNKOUT EQU * X | $ P LDR A1,A7 SAVE PRESENT ELEMENT X P LDR* A7,A7 NEXT ELEMENT X & P RF(Z) LO100 EXIT IF END OF QUEUE X P CWR A
0x023cdc…023e70 Dummy {f00=0x000b, f01=0x0190, f02=»MENT X l . P STR A7,A1 SET LINK FROM PREVIOUS TO NEXT Y $ P LDK A7,1 INDICATE ELEMENT FOUND Y > PLO100 EQU * Y f P* Y z P* Y P IFT CPU852=1 Y PLNKRET EQU * Y ( P* COMMON EXIT FOR QUEUE ROUTINES Y 6 P* RETURN WITHOUT CHANGING INTERRU
0x023e70…024004 Dummy {f00=0x000b, f01=0x0190, f02=» XIF Y P* Z P EJECT Z P* Z $ P* Z . P* Z 8 P* Z B @ P************************************************************ Z L P* Z $ P* PHILIPS TERMINAL SYSTEM PTS Z P* Z 2 P* TBUFF = TOSS BUFFER HANDLING SUBROUTINES Z P* Z
0x024004…024198 Dummy {f00=0x000b, f01=0x0190, f02=» BUFFER HANDLING Z n 6 P* SUBROUTINES. THEY OPERATE ON BUFFERS ORGANIZED [ 4 P* IN BUFFER POOLS. A BUFFER POOL CONSISTS OF A [ R 6 P* POOLBLOCK FOR CONTROL INFORMATION, AND ONE OR [ 4 P* MORE BUFFER AREAS. THE POOLBLOCK AND BUFFER [ 0 P* AREA(S)
0x024198…02432c Dummy {f00=0x000b, f01=0x0190, f02=»* [ " P* GETBUF GET BUFFER FROM POOL " P* RELBUF RETURN BUFFER TO POOL 0 & P* AREBUF DIVIDE AREA INTO BUFFERS V P* P EJECT P* P************* P* CONSTANTS * P************* P* P* $ P* POOLBLOCK L
0x02432c…0244c0 Dummy {f00=0x000b, f01=0x0190, f02=» $ PPOBFRE EQU 4 FREE LIST LINK HEAD ] $ PPOBBUS EQU 6 BUFFER SIZE (BYTES) ] , " PPOBARS EQU 8 AREA SIZE (BYTES) ] T P* ] z P* POOLBLOCK LENGTH ] PPOBLEN EQU 10 LENGTH (BYTES) ] P* ] P EJECT ] P* ] @ P******************************
0x0244c0…024654 (1, 45) Dummy {f00=0x000b, f01=0x0190, f02=»CHES ONE BUFFER FROM A BUFFER ] ~ & P* POOL AND GIVES IT TO THE CALLER. ^ & P* ^ P P* CALL: ^ Z P* CF A15,GETBUF ^ j P* ^ P* INPUT: ^ P* A7 = POOLBLOCK ADDRESS ^ P* ^ P* OUTPUT: ^ . P* A4 = BUFFER ADDRESS IF BUFFER ALLOCATED ^
0x024654…0247e8 Dummy {f00=0x000b, f01=0x0190, f02=»****************** ^ f P* _ PGETBUF EQU * _ $ P INH _ 8 $ P LD A4,POBFRE,A7 FREE LIST START _ D & P RF(Z) GB100 NO BUFFER LEFT. EXIT _ l P* _ P EJECT _ P* _ P STR A1,A15 PUSH A1 _ & P LDR* A1,A4 NEW START OF FREE LIST _ " P ST A1,POB
0x0247e8…02497c Dummy {f00=0x000b, f01=0x0190, f02=»ONTENTS OF A4 _ ~ P ABR* A15 RETURN ` P* ` . P EJECT ` 8 P* ` F @ P************************************************************ ` P P* ` P* ROUTINE NAME: ` P* RELBUF ` P* ` P* FUNCTION: ` 2 P* THIS ROUTINE RELEASES ONE BUFFER A
0x02497c…024b10 Dummy {f00=0x000b, f01=0x0190, f02=»ER ADDRESS ` P* A7 = POOLBLOCK ADDRESS a P* a 4 P* OUTPUT: a > P* CR = CHANGED a P P* INTERR.= INHIBITED a h P* a @ P************************************************************ a P* a PRELBUF EQU * a P INH a P STR A1,A15
0x024b10…024ca4 Dummy {f00=0x000b, f01=0x0190, f02=»REE LIST START a v P* b P LDR* A1,A15 POP A1 b P ADKL A15,4 ADJUST STACK b < P ABR* A15 RETURN b P* b t P EJECT b ~ P* b @ P************************************************************ b P* b P* ROUTINE NAME: b P* AREBUF b
0x024ca4…024e38 Dummy {f00=0x000b, f01=0x0190, f02=»S. b d 0 P* "INIBUF" IS USED WHEN A NEW BUFFER POOL IS c 2 P* INITIATED. IT DIVIDES THE AREA INTO BUFFERS, c > 6 P* LINKS THE BUFFERS IN A CHAIN FROM THE FREE LIST c t 4 P* HEAD IN POOLBLOCK, AND PUTS AN END MARKER (-1) c 6 P* IN THE LAST BUFFER. "LNKBUF" IS
0x024e38…024fcc Dummy {f00=0x000b, f01=0x0190, f02=»FFERS FIRST IN THE FREE LIST. c P* d & P* CALL: d 0 P* CF A15,INIBUF d @ P* CF A15,LNKBUF d X P* d p P* INPUT: d z P* A4 = AREA ADDRESS d P* A7 = POOLBLOCK ADDRESS d P* d P* OUTPUT: d P* CR = CHANGED IF CPU852 d P*
0x024fcc…025160 Dummy {f00=0x000b, f01=0x018e, f02=»PU852=1 d P STR A1,A15 PUSH A1 e P XIF e , P* e 8 P IFF CPU852=1 e B P MSR 4,A15 PUSH A1-A4 e X P XIF e v P* e $ P LDK A1,0 MARKER FOR LAST BUFFER e P RF IL100 GO TO COMMON PART e P* e P* e PLNKBUF EQU * e P IFT CPU
0x025160…0252f4 (1, 46) Dummy {f00=0x000c, f01=0x018e, f02=» ( P LD A1,POBFRE,A7 LINK TO OLD BUFFERS f P* f 0 P* f : PIL100 EQU * f D P* f X * P* COMMON PART FOR INIBUF AND LNKBUF f b P* f P IFT CPU852=1 f P STR A2,A15 PUSH A2-A4 f P STR A3,A15 f P STR A4,A15 f P XIF f P* f
0x0252f4…025488 Dummy {f00=0x000c, f01=0x0190, f02=» 0 P SU A3,POBBUS,A7 HIGEST BUFFER START IN AREA g P* g 8 PIL110 EQU * g B P* BUFFER LINKING LOOP g V P CWR A4,A3 ROOM LEFT? g v P RF(G) IL120 NO, FINISH g P* g 0 P STR A4,A2 SET LINK FROM PREVIOUS TO PRESENT g P LDR A2,A4 NEW PREVIOU
0x025488…02561c Dummy {f00=0x000c, f01=0x0190, f02=» IN LAST BUFFER g v P* h P IFT CPU852=1 h " P LDR* A4,A15 POP A1-A4 h 8 P LDR* A3,A15 h V P LDR* A2,A15 h j P LDR* A1,A15 h ~ P ADKL A15,2 ADJUST STACK h P LDR* P,A15 RETURN h P XIF h P* h P IFF CPU852=1 h P MLR 4,A15 POP A
0x02561c…0257b0 Dummy {f00=0x000c, f01=0x0190, f02=»** h h P* i P* ROUTINE NAMES: LOGCOM i P* LOGIOC i 4 P* LOGATT i T 0 P* FUNCTION: LOG MSG TYPE AND CCR+BUFFER i t : P* DLSSEL SPECIFIES DLS TO BE SELECTED i & P* 0 MEANS LOG ALL
0x0257b0…025944 Dummy {f00=0x000c, f01=0x0190, f02=» BYTE 4 COMMAND CODE i ( P* BYTE 5-6 STATUS-1 j . P* BYTE 7 BUFFER LENGTH j L 0 P* BYTE 8 PACKET HEADER -1 j ~ B P* BYTE 9 PACKET HEADER -2 (LOGICAL CHANNEL) j > P*
0x025944…025ad8 Dummy {f00=0x000c, f01=0x0190, f02=»******************* j t P* k PDLSSEL DATA 0 0=LOG ALL k & P* ELSE DLS TO BE LOGGED k F 2 PLOGPTR DATA LOGARE RECORD POINTER IN LOG AREA k h PLOGARE RES 960 LOG AREA k PLOGEND EQU * k ( P DATA 'ENDLOG' MARK END OF LOG AREA k 2 P*---------
0x025ad8…025c6c Dummy {f00=0x000c, f01=0x0190, f02=» k P STR A3,A15 l P XIF l P IFF UTTEST=0 l ( P IFF CPU852=1 l > P MSR 3,A15 PUSH A1-A3 l T P XIF l r P IFF UTTEST=0 l ~ P LDKL A1,'CO' MSG TYPE l P LDK A2,CWTCCA CCA OFFSET l P RF LOG:10 l P l " PLOGIOC EQU * SUBROUTINE EN
0x025c6c…025e00 Dummy {f00=0x000c, f01=0x0190, f02=»852=1 l P MSR 3,A15 PUSH A1-A3 m P XIF m , P IFF UTTEST=0 m 8 P LDKL A1,'RE' MSG TYPE m N P LDK A2,CWTRCA RCA OFFSET m l P RF LOG:10 m P m " PLOGATT EQU * SUBROUTINE ENTRY m P IFT CPU852=1 m P STR A1,A15 m P STR A2,A15 m
0x025e00…025f94 (1, 47) Dummy {f00=0x000c, f01=0x0190, f02=» m P LDKL A1,'AT' MSG TYPE n P LDK A2,CWTRCA RCA OFFSET n & 0 P*------------------------------------------ n H PLOG:10 EQU * COMMON PART n | P LD A3,LOGPTR n P STR A1,A3 LOG MSG TYPE n P ADR A2,A5 CCR PTR n P LD A1,DLSSEL SELECTED DLS n
0x025f94…026128 Dummy {f00=0x000c, f01=0x0190, f02=» DLS INDEX n " P ST A1,2,A3 +COMMAND INTO LOG o P LD A1,CCRSTA,A2 STATUS-1 o 8 P ST A1,4,A3 LOG STATUS-1 o Z " P LD A1,CCRLEN,A2 BUFFER LENGTH o z P SC A1,6,A3 INTO LOG o $ P LD A2,CCRBUF,A2 BUFFER ADDRESS o P LDR* A1,A2 BYTE 0-1 o P SC A1,8
0x026128…0262bc Dummy {f00=0x000c, f01=0x0190, f02=»A3 o P SRL A1,8 p P SC A1,9,A3 p P LD A1,4,A2 BYTE 2-3 p 0 P SC A1,12,A3 p L P SRL A1,8 p ` P SC A1,11,A3 p r P LD A1,6,A2 BYTE 4-5 p P SC A1,14,A3 p P SRL A1,8 p P SC A1,13,A3 p P LD A1,8,A2 p P SRL A1,8 p P SC A1
0x0262bc…026450 Dummy {f00=0x000c, f01=0x4164, f02=» p ~ P LDKL A1,LOGARE RESET PTR q P ST A1,LOGPTR q * PLOG:20 EQU * q @ P IFT CPU852=1 q T P LDR* A3,A15 RESTORE q j P LDR* A2,A15 q P LDR* A1,A15 q P ADKL A15,4 q P ABR* A15 RETURN q P XIF q P IFF UTTEST=0 q P IFF CPU852=
0x026450…0265e4 Dummy {f00=0x000c, f01=0x2008, f02=» r n PDRRET2 EQU * 0 & ! ADK A5,4 ADJUST STACK FOR RETURN 0 " LDR A1,A1 SET RETURN CODE 0 L INH 0 n ABR* A5 RETURN 0 z * 0 * 0 P* 0 PIHPL01 EQU * 0 PIHPL02 EQU * 0 PIHPL03 EQU * 0 PIHPL04 EQU * 0 P* 0
0x0265e4…026778 Dummy {f00=0x000c, f01=0x0000, f02=»
[…0x2…]
0x026aa0…026c34 (1, 48) Opaque[0x194]
0x026c34…026dc8 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0190, f03=0x0000}
0x026c34…026dc8 IdxSect {
0x026c34…026dc8 f00 = 0x000c // 0x26c34 @0x0
0x026c34…026dc8 f01 = 0x003e // 0x26c36 @0x2
0x026c34…026dc8 gno = [ // 0x26c38 @0x4
0x026c34…026dc8 [0x00]: C0x000c.0x2.0
0x026c34…026dc8 [0x01]: C0x000c.0x3.0
0x026c34…026dc8 [0x02]: C0x000d.0x0.0
0x026c34…026dc8 [0x03]: C0x000d.0x1.0
0x026c34…026dc8 [0x04]: C0x000d.0x2.0
0x026c34…026dc8 [0x05]: C0x000d.0x3.0
0x026c34…026dc8 [0x06]: C0x000e.0x0.0
0x026c34…026dc8 [0x07]: C0x000e.0x1.0
0x026c34…026dc8 [0x08]: C0x000e.0x2.0
0x026c34…026dc8 [0x09]: C0x000e.0x3.0
0x026c34…026dc8 [0x0a]: C0x000f.0x0.0
0x026c34…026dc8 [0x0b]: C0x000f.0x1.0
0x026c34…026dc8 [0x0c]: C0x000f.0x2.0
0x026c34…026dc8 [0x0d]: C0x000f.0x3.0
0x026c34…026dc8 [0x0e]: C0x0010.0x0.0
0x026c34…026dc8 [0x0f]: C0x0010.0x1.0
0x026c34…026dc8 [0x10]: C0x0010.0x2.0
0x026c34…026dc8 [0x11]: C0x0010.0x3.0
0x026c34…026dc8 [0x12]: C0x0011.0x0.0
0x026c34…026dc8 [0x13]: C0x0011.0x1.0
0x026c34…026dc8 [0x14]: C0x0011.0x2.0
0x026c34…026dc8 [0x15]: C0x0011.0x3.0
0x026c34…026dc8 [0x16]: C0x0012.0x0.0
0x026c34…026dc8 [0x17]: C0x0012.0x1.0
0x026c34…026dc8 [0x18]: C0x0012.0x2.0
0x026c34…026dc8 [0x19]: C0x0012.0x3.0
0x026c34…026dc8 [0x1a]: C0x0013.0x0.0
0x026c34…026dc8 [0x1b]: C0x0013.0x1.0
0x026c34…026dc8 [0x1c]: C0x0013.0x2.0
0x026c34…026dc8 [0x1d]: C0x0013.0x3.0
0x026c34…026dc8 [0x1e]: C0x0014.0x0.0
0x026c34…026dc8 ]
0x026c34…026dc8 }
0x026dc8…026f5c Dummy {f00=0x000c, f01=0x0190, f02=» 4 P IDENT DRDC15 REL 11.0 DK 81-10-11 870105041100 P < " P =17, RETURN CODE AT CONNECT D ( P =16, DLOBUF DESTROYED AT CONNECT j . P =15, NO NEED TO RES 1 WORD BEFORE DATA * P =14, LOSS OF DRIVER RECEIVE BUFFER P REL 11.0 81-05-
0x026f5c…0270f0 Dummy {f00=0x000c, f01=0x0190, f02=» =11, PROCEDURE TIMER PROBLEM P =10, EOT ON SPECIFIC POLL ( $ P =9, REMAINING TIME IN ECBCW1 L P REL 11.0 81-04-12 t " P =8, ODD USER BUFFER ADDRESS P =7, BINARY STORE PROBLEM P REL 11.0 81-04-07 ( P =6, ERROR IN PO
0x0270f0…027284 Dummy {f00=0x000c, f01=0x0190, f02=»ETE INSTRUCTIONS NOT USED $ P =2, CHANGES IN STATUS HANLING " ( P =1, ERROR IN OPEN/CLOSE REQUESTS J P REL 11.0 81-01-26 v P* P* 2 P********************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x027284…027418 Dummy {f00=0x000c, f01=0x0190, f02=»SV1 x P* P* P* P* * P* 4 8 P**************************************************** > P EJECT z P* P* P* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT IN
0x027418…0275ac Dummy {f00=0x000c, f01=0x0190, f02=»JECT P* P* P* EXTERNAL REFERENCES P* > " P EXTRN TDISP DISPATCHER ENTRY H ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK n $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN SETIME SET TIMER P EXTRN DWTCHP DWT ADDRESS P EXT
0x0275ac…027740 Dummy {f00=0x000c, f01=0x0190, f02=»USER ECB IF MMU P EXTRN DWTMEC MMU ECB P EXTRN ECBFC FILE CODE 6 P EXTRN ECBBA BUFFER ADDRESS T " P EXTRN ECBRL REQUESTED LENGTH x " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBCW1 CONTROL WORD 1 P EXTRN ECBCW2 CONTROL WORD 2
0x027740…0278d4 (1, 49) Dummy {f00=0x000c, f01=0x0190, f02=» TO ASCII TABLE | . P EXTRN DCSRED READ STATISTICS ENTRY POINT : P EXTRN DCSRLL RESET ALL STATISTICS BUFFERS ENTRY POINT J : P EXTRN DCSUPS UPDATE STATISTICS ENTRY POINT IN DCSTAT 8 P EXTRN GETDNA VALIDATE AND CONVERT SYMBOLIC DTE ADDR 8 P EXTRN
0x0278d4…027a68 Dummy {f00=0x000c, f01=0x018e, f02=»FFER l 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH * P EXTRN PFPOST WAIT FOR POWER UP IF SET @ P EJECT n J P********************************************************************** ~ P* P* REGISTER USAGE: P* P* A1 WORK (RET
0x027a68…027bfc Dummy {f00=0x000c, f01=0x0190, f02=» P* A6 DWT ADDRESS $ P* A7 ORDER CODE, DTETAB ADDRESS P* A8 ECB ADDRESS D P* L P************************************************************************ f P EJECT < P******************************************************* P*
0x027bfc…027d90 Dummy {f00=0x000c, f01=0x0190, f02=»X:B EQU 0 IF 1 INTERRUPT LOGGING PLOGG EQU X:B ( " PX:C EQU 600 POLL TIMEOUT VALUE < PTIMPOL EQU X:C b * PX:D EQU 0 STATUS AND RVI HANDLING IF=1 x PSTARVI EQU 1 * PX:E EQU 0 READ COMMAND HANDLING IF =1 PRCOM EQU 1 & PX:F EQU 254
0x027d90…027f24 Dummy {f00=0x000c, f01=0x018e, f02=»C POLL HANDLING z PSPECP EQU X:H , PX:I EQU 0 IF = 1 LINE SPEED SET TO HIGH . ( P IF = 0 LINE SPEED IS SET TO LOW ^ PSPEED EQU 1 * PX:J EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU X:J . PX:K EQU 2 NUMBER OF RECEIVE BUFFERS (2-5
0x027f24…0280b8 Dummy {f00=0x000c, f01=0x0190, f02=» , PLCUIN EQU X:M DEVICE ADDRESS OF RECEIVER P XIF 8 P IFT P6805=1 D , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER X P XIF P IFT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCUZ P I
0x0280b8…02824c Dummy {f00=0x000c, f01=0x0190, f02=» IF 1 IBM CHARACTER HANDLING . PX:O EQU 0 IF 1 MESSAGE PASSING TO DC TASK $ PMESPAS EQU X:O V 4 PX:P EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 l PEM3270 EQU 1 PX:Q EQU 0 * PTPMODE EQU X:Q IF = 1 TRANSPARANT MODE PX:R EQU 0 .
0x02824c…0283e0 Dummy {f00=0x000c, f01=0x0190, f02=» TRANSMISSION x , PDMRK EQU 0 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT F 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT ~ 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". P =2 P PREMTIM EQU 0
0x0283e0…028574 (1, 50) Dummy {f00=0x000d, f01=0x0190, f02=»EIVE REQUESTS =9 ~ P* P IFT SPEED=1 " PLSPEED EQU /0200 6 P XIF N P IFT SPEED=0 Z PLSPEED EQU 0 n P XIF P EJECT P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY
0x028574…028708 Dummy {f00=0x000d, f01=0x0190, f02=»BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 * P* > P* H 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION R . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* 0 PDEVIND EQU 0 DEVICE INDEX DATA COM
0x028708…02889c Dummy {f00=0x000d, f01=0x0190, f02=» j P* 2 P* DCDEFS COMMON DEFS FOR DC DRIVERS/PACKAGES P* H * P************************************** R P , P*************************************** P* P* TABLE AND PACKET LAYOUTS P* , P************************
0x02889c…028a30 Dummy {f00=0x000d, f01=0x0190, f02=»* P* DWT, DEVICE WORK TABLE P* * L P************************************************************************ 4 P* P* ................... P* 0 . DWTCHP . P* ................... P* 2 . DWTST
0x028a30…028bc4 Dummy {f00=0x000d, f01=0x018e, f02=»OR . | P* ................... P* 8 . DWTADR . 0 P* ................... R P* 10 . DWTTAB . t P* ................... P* 12 . DWTWAT . P* ................... P* 14 . DWT
0x028bc4…028d58 Dummy {f00=0x000d, f01=0x0190, f02=» , P* (18). DWTMEC . IF MMUPAG P* ................... 4 $ P* DWTDRD +2 . DWTSTB . V $ P* ................... ~ P* +4 . DWTCHD . P* ................... P* +6 . DWTCHN .
0x028d58…028eec Dummy {f00=0x000d, f01=0x0190, f02=» P* ................... P* +12 . DWTDR1/SUB . & P* ................... H P* +14 . DWTRCL . j P* ................... P* +16 . DWTRTV . P* ................... P* +18 . DWTRTP
0x028eec…029080 Dummy {f00=0x000d, f01=0x0190, f02=» . z P* ................... P* +24 . DWTIPC . . P* ................... P P* +26 . DWTIPT . r P* ................... P* +28 . . P* / DRIVER DEPEND / P* /
0x029080…029214 (1, 51) Dummy {f00=0x000d, f01=0x0190, f02=» /=0 ` P* / BUFFER / P* ................... . P* P P EJECT Z P* h > P********************************************************* r P* & P* D W T D I S P L A C E M E N T S P* > P**********************
0x029214…0293a8 Dummy {f00=0x000d, f01=0x0190, f02=» OF DRIVER DEPENDENT AREA x P XIF " P IFT MMUPAG=1 . 6 PDWTDRD EQU DWTTQ+6 START OF DRIVER DEPENDENT AREA D P XIF ~ D PDWTSTB EQU DWTDRD OFFSET REL START DWT TO STATISTIC BUFF IF ANY 2 PDWTCHD EQU DWTDRD+2 CONFIG CHAIN LINK HEAD DWT 2 P
0x0293a8…02953c Dummy {f00=0x000d, f01=0x0190, f02=»YMBOLIC DTE ADDRESS t * PDWTDR1 EQU DWTDRD+10 DRIVER DEP WORD 1 * PDWTSUB EQU DWTDR1 SYMBOLIC SUBADDRESS J . PDWTRCL EQU DWTDRD+12 REQUEST CONTROL WORD x , PDWTRTV EQU DWTDRD+14 REQUEST TIMER VALUE . PDWTRTP EQU DWTDRD+16 REQUEST TIMER POINTER
0x02953c…0296d0 Dummy {f00=0x000d, f01=0x0190, f02=»TIPC EQU DWTDRD+22 I/P DATA Q LINK TO BUFFER 0 PDWTIPT EQU DWTDRD+24 I/P DATA TIMER POINTER 4 ( PDWTCUR EQU DWTDRD+26 CURSOR ADDRESS h . PDWTBUF EQU DWTDRD+28 DEVICE BUFFER ADDRESS $ PDWTSTA EQU DWTDRD+30 DWT STATUS P EJECT J P************
0x0296d0…029864 Dummy {f00=0x000d, f01=0x0190, f02=»****************************************************** ~ P* > P* ................... H P* 0 . DTECHP . j P* ................... P* 2 . DTEST . P* ................... P* 4 . DTEECB
0x029864…0299f8 Dummy {f00=0x000d, f01=0x0190, f02=» . z P* ................... P* 10 . DTETAB . . P* ................... P P* 12 . DTEWAT . r P* ................... P* 14 . DTETQ . P* ................... , P* (16). DTEUE
0x0299f8…029b8c Dummy {f00=0x000d, f01=0x0190, f02=»..... | $ P* DTEDRD +2 . DTESTB . $ P* ................... 6 P* +4 . DTECHD . ^ P* ................... P* +6 . DTECHN . P* ................... P* +8 . DTELAD . P
0x029b8c…029d20 Dummy {f00=0x000d, f01=0x0190, f02=»* / / P* ................... " 8 P* . STATISTIC . IF STAT AND DTESTB /=0 D P* / BUFFER / P* ................... P* PDTETQ EQU 14 PDTEUEC EQU DTETQ+2 PDTEMEC EQU D
0x029d20…029eb4 (1, 52) Dummy {f00=0x000d, f01=0x0190, f02=»EDRD EQU DTEMEC+2 START OF DC DEPENDENT AREA P XIF 4 D PDTESTB EQU DTEDRD OFFSET REL START DTE TO STATISTIC BUFF IF ANY @ 2 PDTECHD EQU DTEDRD+2 CONFIG CHAIN LINK HEAD DTE 2 PDTECHN EQU DTEDRD+4 CONFIG CHAIN LINK NEXT DTE 2 PDTELAD EQU DTEDRD+6
0x029eb4…02a048 Dummy {f00=0x000d, f01=0x0190, f02=»NK STATUS t $ PDTESTA EQU DTEDRD+12 DTE STATUS ( PDTEDWT EQU DTEDRD+14 CHAIN LINK DWT : 0 PDTEDDT EQU DTEDRD+16 CHAIN LINK DISCARD DWT f P* STATITICS BUFFER 2 PSTWSID EQU DTEDRD+18 RESERVED FOR SYMBOLIC ID . PSTWCST EQU DTEDRD+20 COUNTER S
0x02a048…02a1dc Dummy {f00=0x000d, f01=0x0190, f02=»**************************************************** ~ P* < , P* COUNTER INDECES - PARAMETER-1 EQUATES F P* v P* REQUEST LEVEL COUNTERS: P* D P*************************************************************** P* * PCSRCON EQU
0x02a1dc…02a370 Dummy {f00=0x000d, f01=0x0190, f02=»HR EQU /C5 CHARACTERS RECEIVED ( PCSRMST EQU /06 MESSAGES TRANSMITTED ! & * PCSRCHT EQU /C8 CHARACTERS TRANSMITTED ! R PCSRTOP EQU /09 TIMEOUT ! PCSRABT EQU /0A ABORTED ! PCSRERR EQU /0B ERROR ! & PCSRTRE EQU /0C TRANSMISSION ERROR ! & PCSRXC1
0x02a370…02a504 Dummy {f00=0x000d, f01=0x018e, f02=»CSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY ! > PCSSRBO EQU /12 " DATA BLOCKS REJECTED BUFFER OVERFLOW " > 6 PCSSRAB EQU /13 " DATA BLOCKS REJECTED ABORTED " : PCSSRPE EQU /14 " DATA BLOCKS REJECTED PARITY ERROR " 0 PCSSTBL EQU /15
0x02a504…02a698 Dummy {f00=0x000d, f01=0x018e, f02=» 4 PCSSXC1 EQU /18 NBR OF REPLY REQUESTS TRANSMITTED # & PCSSXC2 EQU /19 PROCEDURE TIME OUTS # < 8 PCSSXC3 EQU /1A NBR OF TIMES POLL TIMEOUT HAS OCCURED # f P # P # P EJECT # P* DTE/DCE LEVEL COUNTERS # P # $ PCSCDTE EQU /28 DTE NOT OPE
0x02a698…02a82c Dummy {f00=0x000d, f01=0x0190, f02=» # n * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT $ PCSCXC2 EQU /2D " $ 6 PCSCXC3 EQU /2E " $ R P EJECT $ n P* $ | P* $ P* REQUEST HANDLING $ P* $ P* $ P* ORDER CODE (A7) $ P* $ POPEN EQU /21 OPEN $ PCLOSE EQU /2
0x02a82c…02a9c0 Dummy {f00=0x000d, f01=0x0190, f02=» $ ~ PRSTAT EQU /00 READ STATUS % PSSTAT EQU /38 SET STATUS % * ( PSTATIS EQU /2D READ/RESET STATISTICS % J $ PSTIMOT EQU /39 SET TIMEOUT VALUE % v P* % P* OPTIONS: % P* % 2 PTYPRR EQU /4343 RESET STATISTICS AFTER READ =5 % P EJECT % P
0x02a9c0…02ab54 (1, 53) Dummy {f00=0x000d, f01=0x0190, f02=»* % > P********************************************************** & P* & L L P*---------------------------------------------------------------------- & V " PR:REQ EQU /8000 REQUEST ERROR & $ PR:ABRT EQU /4000 REQUEST ABORTED & PR:2 EQU /2000 &
0x02ab54…02ace8 Dummy {f00=0x000d, f01=0x0190, f02=»0 & PR:6 EQU /0200 ' , PR:DATA EQU /0100 DATA AVAILABLE (QUEUED) ' J P*--------------------------------------------------------------------- ' P PR:8 EQU /0080 ' PR:TIME EQU /0040 TIME OUT ' PR:10 EQU /0020 ' " PR:SEQ EQU /0010 SEQUENCE ERR
0x02ace8…02ae7c Dummy {f00=0x000d, f01=0x0190, f02=» /0004 ' . PR:LOGC EQU /0002 LOGICAL CONNECTION ERROR ( . PR:PHYC EQU /0001 PHYSICAL CONNECTION ERROR ( @ L P*---------------------------------------------------------------------- ( r P* ( P EJECT ( P* ( < P************************************
0x02ae7c…02b010 Dummy {f00=0x000d, f01=0x0190, f02=»*******************= ( j P* ) L P*---------------------------------------------------------------------- ) & PH:0 EQU /8000 ) v PH:1 EQU /4000 ) PH:2 EQU /2000 ) PH:3 EQU /1000 ) L P*---------------------------------------------------------
0x02b010…02b1a4 Dummy {f00=0x000d, f01=0x0190, f02=»--------------------------------------------- ) v PH:8 EQU /0080 * 6 PH:9 EQU /0040 * L PH:CARR EQU /0020 CARRIER OFF * b PH:11 EQU /0010 * J P*-------------------------------------------------------------------- * PH:12 EQU /0008 * " PH:PARI E
0x02b1a4…02b338 Dummy {f00=0x000d, f01=0x0190, f02=»--------------------------------------------- * v P EJECT + 6 > P********************************************************** + H P* + P* LINE CONTROL CHAR EQU:S + P* + > P********************************************************** + P
0x02b338…02b4cc Dummy {f00=0x000d, f01=0x0190, f02=»EQU /1F + PSOH EQU /01 , PENQ EQU /05 , $ PDLE EQU /10 , 8 PEOT EQU /04 , L PNAK EQU /15 , ` PESC EQU /1B , t PSBA EQU /11 , PGP EQU /22 , PRDBCOM EQU /32 , PRDMCOM EQU /36 , P EJECT , P IFT CODE=0 , PPAR EQU /80
0x02b4cc…02b660 Dummy {f00=0x000d, f01=0x018e, f02=» P IFT CODE=0 - P IFT MSV1=1 - 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE - , P XIF - ` P IFT CODE=1 - l PPAR EQU /00 - PWACK EQU /2C - PRVI EQU /40 - PACK0 EQU /18 - PACK1 EQU /2F - PSYNEBC EQU /32 - PENQEBC EQU /2D
0x02b660…02b7f4 (1, 54) Dummy {f00=0x000e, f01=0x0190, f02=» - z P XIF . P IFT P6805=1 . PENQPAR EQU ENQ . ( PRVIPAR EQU RVI . > PACKPAR EQU ACK0 . T P XIF . l P EJECT . x P* . P* . $ P* 3270 SENSE/STATUS INFORMATION . P* . P* . P IFF STARVI=0 . . PSSTAB EQU * S/S 0 : NO STATU
0x02b7f4…02b988 Dummy {f00=0x000e, f01=0x0190, f02=»D . d , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED / P XIF / : P* / F P* / P P* TIMER VALUES / Z P* / p P* / z ( PTIMPRO EQU 30 PROCEDURE TIMER 3 SEC / P* / P* / P EJECT / B P******************************************************
0x02b988…02bb1c Dummy {f00=0x000e, f01=0x0190, f02=»*********** / ^ P* 0 P IFT CODE=0 0 PSYNC EQU /16 0 2 P XIF 0 F P IFT CODE=1 0 R PSYNC EQU /32 0 f P XIF 0 z P IFT P6805=0 0 PCBCARR EQU /100+LSPEED 0 P XIF 0 P IFT P6805=1 0 PCBSTOP EQU /00 0 P IFT CODE=0 0 PPARITY
0x02bb1c…02bcb0 Dummy {f00=0x000e, f01=0x0190, f02=»******************************* 0 | P* 1 ( ( P* LINE CONTROL UNIT SST STATUS BITS 1 2 P* 1 ^ 8 P*************************************************** 1 h P* 1 P IFT P6805=0 1 & PH:ERR EQU /23 H:NOOP+H:THRU+H:CARR 1 P XIF 1 P IFT P6805=1 1
0x02bcb0…02be44 Dummy {f00=0x000e, f01=0x0190, f02=»************ 1 P* 2 P* DRIVER ADDRESS BLOCK 2 P* 2 < D P*************************************************************** 2 F P* 2 P DATA BUFLEN MMU BUFFER SIZE 2 P DATA DEVIND DEVICE INDEX 2 ( PDC15AD DATA DCACT ACTIVATION ADDRESS 2
0x02be44…02bfd8 Dummy {f00=0x000e, f01=0x0190, f02=»TACK FOR INTERRUPTS 2 | PSTB RES 1 3 P EJECT 3 . P 3 < @ P************************************************************ 3 D P* 3 P* ABORT ROUTINE 3 P* 3 P************************ 3 P 3 ( PABORT LD A1,DWTRTP,A6 TIMER POINTER 3 "
0x02bfd8…02c16c Dummy {f00=0x000e, f01=0x0190, f02=» ANK A2,/7F 3 P SUK A2,6 4 P RF(NE) AB:RTN 4 & . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE 4 < & P LD A2,FDWTUT WRITING DWT ADDRESS 4 n P CWR A2,A6 4 P RF(NE) AB:RTN NOT THIS DWT 4 P CM FDWTUT REST SENDING DWT 4 P CM XACK RESET ACK EXP
0x02c16c…02c300 Dummy {f00=0x000e, f01=0x0190, f02=»********** 4 T J P********************************************************************** 5 P* 5 ` P* 5 j , P* REQUEST HANDLER/APPLICATION INTERFACE 5 t P* 5 P* 5 J P********************************************************************** 5 J P**
0x02c300…02c494 (1, 55) Dummy {f00=0x000e, f01=0x0190, f02=»DCACT EQU * 5 P LDK A1,0 PRESET RETURN CODE 6 & P LDR A2,A7 ORDER CODE AS PARAMETER 6 8 P LDKL A7,DTETAB DTE TAB ADDR 6 b & P ANK A2,/FF STRIP OFF OPTION BITS 6 : P CF A15,LOOKUP BRANCH ON CODES, TABLE ADDRESS TO STACK 6 0 P DATA TREQX,RTREQ LAST ENT
0x02c494…02c628 Dummy {f00=0x000e, f01=0x0190, f02=»ST 6 t $ P DATA CLOSE,RQCLOS CLOSE REQUEST 7 . P DATA CONPAS,RQCON CONNECT PASSIVE REQUEST 7 2 ( P DATA DISCO,RQDIS DISCONNECT REQUEST 7 d * P DATA RSTAT,RQRSTS READ STATUS REQUEST 7 ( P DATA SSTAT,RQSST SET STATUS REQUEST 7 , P DATA STIMOT,RQTIME SET REQUES
0x02c628…02c7bc Dummy {f00=0x000e, f01=0x0190, f02=»* 7 P* ACTIVATION PARAMETERS: 8 $ P* SYMBOLIC DTE-ADDRESS (ECBCW2) 8 * P* 8 R P* FUNCTIONS: 8 8 P* 1. CHECK IF ALREADY OPEN & IF SO SAME DTE-ADDRESS 8 p & P* 2. CONVERT & VERIFY DTE ADDRESS 8 P* 8 PRQOPEN EQU * 8 . P LD A1,ECBCW2,A8 GET
0x02c7bc…02c950 Dummy {f00=0x000e, f01=0x0190, f02=»ON INDEX IN TABLE 8 z & PRQOPTB DATA RQOP20 CLOSED/INACTIVE 9 " P DATA RQOP15 OPEN IN PROGRESS 9 D P DATA RQOP10 OPEN 9 j " P DATA RQOP15 CLOSE IN PROGRESS 9 PRQOP10 EQU * 9 2 P CW A1,DTELAD,A7 SAME AS THE ONE WHO OPENED ? 9 P RF(E) RQOP90 YES -
0x02c950…02cae4 Dummy {f00=0x000e, f01=0x0190, f02=» 9 n . P ST A1,DTELAD,A7 SAVE SYMBOLIC DTE ADDRESS : 2 P LDR A2,A7 ADDR TO SELECT AND POLL IN DTE TAB : : 0 P CF A15,GETDNA CONVERT AND VALIDATE DTE ADDR : p P LDR A1,A1 : P RF(NN) RQOP80 OK : P CM DTELAD,A7 CLEAR DTE ADDR : " P CM DTESTA,A7 CLEAR
0x02cae4…02cc78 Dummy {f00=0x000e, f01=0x0190, f02=»BCDIC : t P LDR A1,A2 ; P ANK A2,/FF ; P RF(Z) RQOP30 ONLY ONE BYTE ; 4 ( P LC A2,TASCII,A2 CONVERT INTO ASCII ; X P SLL A2,8 ; PRQOP30 EQU * ; P ECR A1,A1 ; P ANK A1,/FF ; P LC A2,TASCII,A1 ; * P STR A2,A7 SAVE ASCII VALUE IN D
0x02cc78…02ce0c Dummy {f00=0x000e, f01=0x0190, f02=» P ABL(NZ) RTOK YES RETURN OK < * P ABL RTPHYC RETURN PHYSICAL CONNECTION < ( P EJECT < V P* < d P* CLOSE REQUEST < n P* < P* ACTIVATION PARAMETERS: < " P* OPTION /00 = UNCONDITIONAL < P* /80 = CONDITIONAL < P* FUNCTIONS: < L P
0x02ce0c…02cfa0 Dummy {f00=0x000e, f01=0x0190, f02=» ALL DWT:S < n P* = PRQCLOS EQU * = ( P LD A5,DWTOR,A6 GET OPTION AND ORDER = 0 , P LD A2,ECBCW2,A8 GET SYMBOLIC DTE - ADDR = P RF(Z) RQCL20 = " P CW A2,DTELAD,A7 CORRECT DTE ? = ( P ABL(NE) RTREQ RETURN: REQUEST ERROR = PRQCL20 EQU * = $ P
0x02cfa0…02d134 (1, 56) Dummy {f00=0x000e, f01=0x0190, f02=»ROR = n $ P IM DTESTA,A7 CLOSE IN PROGRESS > ( P LDR A8,A6 SAVE REQUESTING DWT-ADDR > 4 P* > ` PRQCL40 EQU * > j P IFT MESPAS=1 > ~ * P LD A6,DTEDDT,A7 GET DISCARD DWT ADDR > P RF(Z) RQCL50 > " P LDR A5,A5 CONDITIONAL CLOSE ? > P RF(N) RQC
0x02d134…02d2c8 Dummy {f00=0x000e, f01=0x0190, f02=»CL50 EQU * > P XIF ? " P LD A6,DTEDWT,A7 GET DWT ADDR ? " P RF(Z) RQCL90 NO DWT IN QUEUE ? D " P LDR A5,A5 CONDITIONAL CLOSE ? ? j P RF(N) RQCL95 YES ! ? 6 P LD A2,DWTCHN,A6 GET POINTER TO NEXT DWT IN CHAIN ? 0 P ST A2,DTEDWT,A7 DWT FIRST IN QUEU
0x02d2c8…02d45c Dummy {f00=0x000e, f01=0x018e, f02=»6 CLEAR DWT-STATUS ? P LDK A1,0 PRESET RETURN CODE @ P CWR A8,A6 REQUESTING DWT ? @ > & P RF(E) RQCL80 YES-COMPLETE REQUEST @ b ( P LD A2,DWTST,A6 A PENDING REQUEST ? @ " P RB(N) RQCL40 NO TAKE NEXT DWT @ 6 P LDK A1,R:SEQ COMPLETE REQUEST WITH SEQUEN
0x02d45c…02d5f0 Dummy {f00=0x000e, f01=0x0190, f02=» P =1 A & P LDR A6,A8 GET REQUESTING DWT ADDR A ( P LD A8,DWTECB,A6 RESTORE ECB ADDRESS A < P =1 A h . P RF(Z) RQCL92 REQUEST ALREADY COMPLETED =1 A v P LDK A1,0 RC=0 =1 A , P CF A15,TENDIO COMPLETE CLOSE REQUEST =1 A PRQCL92 EQU * =1 A
0x02d5f0…02d784 Dummy {f00=0x000e, f01=0x0190, f02=»2,0 =1 A ( P CIO A2,1,LCUIN DISCONNECT MODEM =1 B P XIF =1 B < P IFT P6805=1 =1 B N " P LDK A2,1 DISCONNECT ORDER =1 B f ( P CIO A2,0,LCUIN DISCONNECT MODEM =1 B P XIF =1 B & P CMR A7 REMOVE NETWORK ADDRESS =1 B " P CM DTESTA,A7 CLEAR
0x02d784…02d918 Dummy {f00=0x000e, f01=0x0190, f02=» CLEAR POINTER =6 B PRQCL94 EQU * =6 C , P CM DTEDLS,A7 INDICATE DATA LINK DOWN =6 C 2 P ABL TDISP =1 C b PRQCL95 EQU * C x P LDK A2,2 C ( P ST A2,DTESTA,A7 SET DTE OPEN AGAIN C " P LDR A6,A8 RESTORE DWT ADDRESS C P ABL RTSEQ SEQUENCE ERRO
0x02d918…02daac Dummy {f00=0x000e, f01=0x0190, f02=»RIGHTMOST BYTE IN ECBBA-BFR) C v & P* - DEVICE ADDRESSES IN ECBBA-BFR D $ " P* - LENGTH OF BUFFER (ECBRL) D N & P* - SYMBOLIC DTE-ADDRESS (ECBCW2) D t P* D P* FUNCTIONS: D 0 P* 1. VERIFY DTE-ADDRESS AS PER OPEN REQUEST D . P* 2. VERIFY & CONVERT S
0x02daac…02dc40 Dummy {f00=0x000e, f01=0x0190, f02=» D & P LD A2,DTELAD,A7 SYMBOLIC DTE-ADDR E " P CW A2,ECBCW2,A8 CORRECT DTE ? E 2 , P ABL(NE) RTREQ NO, RETURN: REQUEST ERROR E X $ P LD A2,DTESTA,A7 GET DTE STATUS E P SUK A2,2 OPEN ? E . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR E $ P LD A2,DWTSTA,
0x02dc40…02ddd4 (1, 57) Dummy {f00=0x000e, f01=0x0190, f02=» A2,/40 OPTION CODE =13 E & P CC A2,DWTOPT,A6 DISCARD DWT ? =13 F P RF(NE) RQCN10 NO =13 F J * P CM DWTCHP,A6 INDICATE DISCARD DWT =13 F h 0 P LD A1,DTEDDT,A7 POINTER TO DISCARD DWT =13 F 0 P RF(NZ) RQCN50 MORE THAN ONE DISC. DWT ? =13 F 8 P ST A6,DTE
0x02ddd4…02df68 Dummy {f00=0x000e, f01=0x0190, f02=» * P LDKL A4,SUBBUF MMU BUFFER ADDRESS =16 G P ST A4,ECBBA,A8 TO ECB G 2 * P CF A15,DC:MOT MOVE DATA TO MMU BUFFER G P P XIF G ~ * P LD A4,ECBBA,A8 GET ECB-BUFFER ADDRESS G P IFT MSV1=1 G P LDK A2,0 RESET A2 G & P LCR A2,A4 GET SELECT SUB-ADDRESS
0x02df68…02e0fc Dummy {f00=0x000e, f01=0x0190, f02=»ATE THE SUB-ADDR G n P LDR A1,A1 IS IT OK ? H P RF(NN) RQCN20 YES H 6 $ P CM DWTSUB,A7 CLEAR SUB-ADDRESS H P $ P ABL RTREQ RETURN REQUEST ERROR H x PRQCN20 EQU * H P IFT CODE=1 H 2 P LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII H P XIF H
0x02e0fc…02e290 Dummy {f00=0x000e, f01=0x018e, f02=»B+1,A6 SAVE IT IN THE DWT H . P LD A1,ECBCW2,A8 GET SYMBOLIC DTE ADDRESS I " ( P ST A1,DWTLAD,A6 SAVE IT IN THE DWT I T : P CF A15,GETSNA VALIDATE AND TRANSLATE THE SUB-ADDRESS I P LDR A1,A1 IS IT OK ? I P RF(NN) RQCN30 YES I $ P CM DWTSUB,A6 CLEA
0x02e290…02e424 Dummy {f00=0x000e, f01=0x0190, f02=» I 2 P LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII J P XIF J > , P SC A1,DWTCHP+1,A6 SAVE NETWORK ADDRESS J J P IFT EM3270=1 J z P ST A1,ECBCW2,A8 J P XIF J P* J P* J & P* LINK DWT TO CONFIGURATION CHAIN J P* J P =13 J
0x02e424…02e5b8 Dummy {f00=0x000e, f01=0x0190, f02=» QUEUE J l P RF RQCN60 K PRQCN50 EQU * K P LDR A2,A1 MOV ADDR TO A2 K 4 ( P LD A1,DWTCHN,A2 POINTER TO NEXT DWT K V . P RB(NZ) RQCN50 KEEP ON UNTIL LAST IN CHAIN K * P ST A6,DWTCHN,A2 ADD NEW DWT TO CHAIN K PRQCN60 EQU * K & P CM DWTCHN,A6 END
0x02e5b8…02e74c Dummy {f00=0x000e, f01=0x0190, f02=» LDKL A2,/8000 K $ P ST A2,DWTRTV,A6 STORE NO TIMING L P =13 L > P IFT STARVI=1 L N & P LD A1,DWTCHP,A6 DISCARD DWT ? =13 L d * P RF(Z) RQCN65 YES, DO NOT SEND DE =13 L P LDK A1,4 STORE DEVICE L $ P ORS A1,DWTST,A6 END IN THE DWT L , P CF A1
0x02e74c…02e8e0 Dummy {f00=0x000e, f01=0x0190, f02=»PGP POLL TIMER POINTER L , P RF(NZ) RQCN70 TIMER ALREADY STARTED =6 M P CF A15,SPOTIM M N PRQCN70 EQU * M d P ABL RQOP90 M x P EJECT M P* M P* DISCONNECT REQUEST M P* M P* ACTIVATION PARAMETERS: M P* DWT-ADDRESS (A6) M P*
0x02e8e0…02ea74 (1, 58) Dummy {f00=0x000f, f01=0x018e, f02=»T DWT STATUS DISCONNECTED M P* N " P* COMPLETION PARAMETERS: N , P* RETURN CODE (A1) N L P* N h PRQDIS EQU * N r 0 P LD A2,DWTSTA,A6 DWT STATUS = DISCONNECTED ? N P ABL(Z) RTOK YES, RETURN: OK N * P LD A3,DTEDWT,A7 FIRST DWT ADDR TO A3 N
0x02ea74…02ec08 Dummy {f00=0x000f, f01=0x0190, f02=» 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT O P CM DWTSTA,A6 SET DWT FREE O : . P ST A3,DTEDWT,A7 STORE DWT-ADDR IN DTETAB O P RB RQCN70 O PRQDI10 EQU * O . P LDR A5,A3 A5 CONTAINES PREVIOUS DWT-ADDR O < P LD A3,DWTCHN,A5 A3 CONTAINES ADDR
0x02ec08…02ed9c Dummy {f00=0x000f, f01=0x0190, f02=» CF A15,RELBUF RELEASE QUEUED BUFFERS O 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT P . 2 P ST A3,DWTCHN,A5 AND STORE IT IN PREVIOUS DWT P d P CM DWTSTA,A6 SET DWT FREE P P RB RQCN70 P PRQDI20 EQU * P P IFT MESPAS=1 P . P LD A3,DTEDDT,A7
0x02ed9c…02ef30 Dummy {f00=0x000f, f01=0x0190, f02=»D P l P CM DTEDDT,A7 Q P CM DWTSTA,A6 SET DWT FREE Q P RB RQCN70 Q B PRQDI30 EQU * Q T P XIF Q h P ABL RTSEQ SEQUENCE ERROR Q t P EJECT Q P* Q P* Q P* READ STATUS REQUEST Q P* Q P* ACTIVATION PARAMETERS: Q P* DWT -
0x02ef30…02f0c4 Dummy {f00=0x000f, f01=0x0190, f02=»ON PARAMETERS: Q * P* LOGICAL CONNECTION STATUS (ECBCW1) R P* R D . P* 0 3 4 7 8 11 12 15 R N . P* ........................................ R . P* . DWT . DTE . DATA . PHYS . R . P* . STATE . STATE . LINK . LI
0x02f0c4…02f258 Dummy {f00=0x000f, f01=0x0190, f02=» R P IFT EM3270=1 S $ P LD A2,ECBCW1,A8 GET OPTION CODE S & P RF(NZ) RQRS10 TEST IF ANY MESSAGE S F P XIF S p P LD A2,DWTSTA,A6 DWT STATUS S | P SLL A2,4 BITS 0-3 S P AD A2,DTESTA,A7 DTE STATUS S P SLL A2,4 BITS 4-7 S & P AD A2,DTEDLS,A7
0x02f258…02f3ec Dummy {f00=0x000f, f01=0x0190, f02=»S TO ECB CONTROL WORD 1 S z P ABL RTOK RETURN: OK T P IFT EM3270=1 T < P* T R P* T . P* ANY MESSAGE ORDER (ONLY IF EM3270 = 1) T f P* T PRQRS10 EQU * T $ P LD A2,DTESTA,A7 GET DTE STATUS T P SUK A2,2 OPEN ? T $ P ABL(NZ) RTSEQ NO,
0x02f3ec…02f580 Dummy {f00=0x000f, f01=0x0190, f02=»A4,DWTIPC,A6 ANY QUEUED MESSAGE ON THIS DWT ? T * P ABL(NZ) RTOK YES COMPLETE THE REQUEST U 6 P ABL TDISP TO DISPATCHER U d P XIF U P EJECT U P* U P* SET STATUS REQUEST U P* U P* U P* ACTIVATION PARAMETERS U P* DWT ADDRESS (
0x02f580…02f714 (1, 59) Dummy {f00=0x000f, f01=0x0190, f02=»* U ( P* IR INTERVENTION REQUIRED : X'01' V P* V 6 P* DB DEVICE BUSY :X'10' V @ P* V ` P* COMPLETION PARAMETERS: V j P* RETURN CODE (A1) V P* V PRQSST EQU * V P IFT STARVI=0 V & P ABL RTREQ SET STATUS NOT INCLUDED V P XIF
0x02f714…02f8a8 Dummy {f00=0x000f, f01=0x0190, f02=»,DWTST,A6 GET DEVICE STATUS V ( P ANK A1,/B WACK SENT, DB OR IR ? =2 W $ P RF(Z) RQST90 NO =2 W P , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE W l P LDK A1,4 SET DE W PRQST90 EQU * W P ST A1,DWTST,A6 SAVE STATUS W P ABL RTOK RETYURN : OK W
0x02f8a8…02fa3c Dummy {f00=0x000f, f01=0x0190, f02=»-7 OF ECBCW1 W P* ECB-ADDRESS (A8) X ( P* DWT-ADDRESS OF LOW-LEVEL DWT (A6) X 0 P* X P* FUNCTIONS: X f & P* 1. READ STATISTICS TO USER AREA X z & P* 2. RESET ALL STATISTICS BUFFERS X P* X P* COMPLETION PARAMETERS: X * P* NUMBER OF BYT
0x02fa3c…02fbd0 Dummy {f00=0x000f, f01=0x0190, f02=»ROR NO STATISTICS INCLUDED X v P XIF Y " P IFF STTSTS=0 Y . " P CF A15,DCSRED READ STATISTICS Y D P LDR A1,A1 OK? Y j , P ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR Y P LD A1,ECBCW1,A8 GET TYPE Y & P SRL A1,8 TYPE FIELD TO LEFT BYTE Y P CCK A1,TYPR
0x02fbd0…02fd64 Dummy {f00=0x000f, f01=0x018e, f02=»Z) RTREQ NO, RETURN: REQUEST ERROR Y PRQST40 EQU * Z * P ABL RTOK RETURN: OK Z > P XIF Z Z P EJECT Z f P* Z t P* SET TIMEOUT VALUE Z ~ P* Z P* ACTIVATION PARAMETERS: Z , P* ECBCW1 >= 0 : ACTIVATE TIMING CONTROL Z : P* TIM
0x02fd64…02fef8 Dummy {f00=0x000f, f01=0x018e, f02=» Z b P* [ P* FUNCTIONS: [ , P* STORE VALUE DIRECTLY IN CALLER'S DWT [ & P* [ V P* COMPLETION PARAMETERS: [ ` & P* DWTRTV = TIMEOUT VALUE = ECBCW1 [ P* [ PRQTIME EQU * [ 0 P LD A2,ECBCW1,A8 GET TIMEOUT VALUE FROM ECB [ " P ST A2,DWTRT
0x02fef8…03008c Dummy {f00=0x000f, f01=0x0190, f02=» [ v P* BUFFER ADDRESS (ECBBA) P* BUFFER LENGTH (ECBRL) * P* SUBTERMINAL ADDRESS (DWT) J P* ECB CONTROL WORD 1 n P* P* FUNCTIONS: < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. $ P* 2. VERIFY BUFFER SIZE IF MM
0x03008c…030220 Dummy {f00=0x000f, f01=0x0190, f02=» GET DWT STATUS P SUK A2,2 CONNECTED ? ] . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR ] 6 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTICE ? ] h 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNECTION ERROR ] 0 P LD A2,DTEDLS,A7 LOGICAL CONNECTION ACTIVE ? ]
0x030220…0303b4 (1, 60) Dummy {f00=0x000f, f01=0x0190, f02=»THERE IS NO OPTION ] P SUK A2,/20 WHICH OPTION ? ^ . P ABL(NZ) RTREQ WRONG OPTION :REQUEST ERROR ^ < * P CF A15,RELBUF RELEASE BUFFERS QUEUED ^ n PRQSE10 EQU * ^ P IFT MMUPAG=1 ^ $ P LD A2,ECBRL,A8 REQUESTED LENGTH ^ $ P CWK A2,BUFLEN ILLEGAL LEN
0x0303b4…030548 Dummy {f00=0x000f, f01=0x0190, f02=»E SEND REQUEST ^ ~ P ABL TDISP _ P* _ ( P EJECT _ 2 P* _ @ P* RECEIVE REQUEST _ J P* _ d P* ACTIVATION PARAMETERS: _ n P* BUFFER ADDRESS (ECBBA) _ 0 P* REQUESTED BUFFER LENGTH IN CHARS. (ECBRL) _ P* SUBTERMINAL ADDRESS (DWT) _ P
0x030548…0306dc Dummy {f00=0x000f, f01=0x0190, f02=»AGE QUEUED FOR THE DWT, _ f @ P* 3. COMPLETE WHEN MESSAGE RECEIVED OR NO MESSAGE RECEIVED ` P* WITHIN TIMEOUT PERIOD. ` d P* ` P* COMPLETION PARAMETERS: ` 0 P* ACTUAL LENGTH OF RECEIVED MESSAGE (ECBEL) ` P* RETURN CODE (A1) ` P* `
0x0306dc…030870 Dummy {f00=0x000f, f01=0x0190, f02=» ` f 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTIVE ? a 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNECTION ERROR a > * P LD A4,DWTIPC,A6 ANY BUFFER ON QUEUE ? a z P RF(NZ) RQRE10 YES a 0 P LD A2,DTEDLS,A7 LOGICAL CONNECTION ACTIVE ? a 8 P ABL(Z) RTLOGC NO,
0x030870…030a04 Dummy {f00=0x000f, f01=0x0190, f02=»A3,2,A4 EFFECTIVE LENGTH a P ST A3,ECBEL,A8 b * P LD A1,DWTLAD,A6 SYMBOLIC DTE-ADDRESS b 8 $ P LD A2,4,A4 NETWORK SUB-ADDRESS b f , P CF A15,GETSSA GET SYMBOLIC SUB-ADDRESS b ( P ST A1,ECBCW2,A8 AND SAVE IT IN ECB b P IFT REMTIM=1 =9 b 4 P LD
0x030a04…030b98 Dummy {f00=0x000f, f01=0x0190, f02=» ACCEPTED AND COMPLETED b ( P LDR* A2,A4 GET NEXT BUFFER IN QUEUE c * P RF(Z) RQRE20 NO MORE BUFFERS IN QUEUE c L 0 P ORKL A1,R:DATA RC: AND MORE DATA AVAILABLE c z PRQRE20 EQU * c . P ST A2,DWTIPC,A6 STORE AS FIRST IN QUEUE c P ADK A4,6 c , P C
0x030b98…030d2c Dummy {f00=0x000f, f01=0x0190, f02=»* COMPLETE APPLICATION REQUEST c P* d ( PRTREQ EQU * d 2 & P LDKL A1,R:REQ RC = REQUEST ERROR d F P RF RQRTN d p PRTABRT EQU * d P LDKL A1,R:ABRT RC = ABORTED d P RF RQRTN d PRTTIME EQU * d P LDK A1,R:TIME RC = TIME OUT d P RF
0x030d2c…030ec0 Dummy {f00=0x000f, f01=0x0190, f02=»LEGAL LENGTH d z P RF RQRTN e PRTLOGC EQU * e & 0 P LDK A1,R:LOGC RC = LOGICAL CONNECTION ERROR e : P RF RQRTN e n PRTPHYC EQU * e 2 P LDK A1,R:PHYC RC = PHYSICAL CONNECTION ERROR e P RF RQRTN e PRTOK EQU * e P LDK A1,0 RC = OK e P
0x030ec0…031054 (1, 61) Dummy {f00=0x000f, f01=0x018e, f02=»BRANCH ON ADDRESS e n P* f P* CALL: f $ 8 P* CF A15,LOOKUP TABLE ADDRESS TO STACK f 4 < P* DATA LAST,ADDRE LAST ENTRY; ERROR ADDRESS f p > P* DATA KEY1,ADDR1 KEY (A2); ADDRESS FOR BRANCH f P* " " " f
0x031054…0311e8 Dummy {f00=0x000f, f01=0x0190, f02=» f < P LDR* A3,A15 POINT TO NEXT INSTRUCTION ADDRESS IN STACK g . P LDR* A3,A15 GET CONTENTS = TABLE ADDRESS g H & P LDR* A4,A3 GET LAST LEGAL ADDRESS g z P LD A1,2,A3 ERROR ADDRESS g P* g PLOOK50 EQU * LOOP ENTRY g * P ADK A3,4 GET NEXT TABLE
0x0311e8…03137c Dummy {f00=0x000f, f01=0x0190, f02=»B(NE) LOOK50 NO - CHECK NEXT ENTRY g & P ABI 2,A3 BRANCH TO TABLE ADDRESS h * P* KEY NOT FOUND h T PLOOK90 EQU * h l " P LDR P,A1 GO TO ERROR ADDRESS h P EJECT h P* h P* h P* h " P* REQUEST TIMER HANDLING PART h P* h P* h
0x03137c…031510 Dummy {f00=0x000f, f01=0x0190, f02=»F(N) TIMRTN NO TIMING h . P RF(Z) ITOUTR TIMER=0 => IMMEDIATE TIMEOUT i P ST A2,TIMERR i P P CF A15,SETIME i f P DATA TOUTRE i | PTIMERR DATA 0 i ( P ST A4,DWTRTP,A6 STORE TIMER POINTER i PTIMRTN EQU * i P ABL RTNA15 i P* i P* TI
0x031510…0316a4 Dummy {f00=0x000f, f01=0x0190, f02=» P CM DWTRTP,A6 j * P RF TIMOUT COMPLETE REQUEST RC=TIMEOUT j P* j H P* j R " P* RETURN FROM TIMER HANDLING j P* j P EJECT j P* j P* SEND TIMER=TIMWR j P* j PTIMEWR LDR A1,A6 j & P LD A2,DWTRTV,A6 GET TIMEOUT VALUE j
0x0316a4…031838 Dummy {f00=0x000f, f01=0x0190, f02=»WR j PTIMWR DATA 0 k P ST A4,DWTRTP,A6 k P RB TIMRTN k 6 P* k H P* TIMEOUT WRITE TIMER k R P* k p PTOUTWR EQU * k z P LDR A6,A1 FETCH DWT k P CM DWTRTP,A6 k * P CF A15,REMOVW REMOVE FROM WRITE QUEUE k P* k P* k & P* THIS
0x031838…0319cc Dummy {f00=0x000f, f01=0x0190, f02=»IS NOT WRITING k x ( P CM XACK INDICATE 'ACK NOT EXPECTED' l P CM FDWTUT l B PTIMOUT EQU * l T , P ABL RTTIME COMPLETE REQUEST RC=TIMEOUT l h P EJECT l P* l P* l P* STOP REQUEST TIMING l P* l & P* REMAINING TIME IS RETURNED IN A2 l
0x0319cc…031b60 Dummy {f00=0x000f, f01=0x0190, f02=»9 l P LDR* A2,A2 =9 m $ P NGR A2,A2 GET REMAINING TIME =9 m " P XIF =9 m J P CM* DWTRTP,A6 KILL TIMER =9 m P CM DWTRTP,A6 m P =3 m PCTIM10 EQU * m P ABL RTNA15 m P EJECT m P* m P* GET RECEIVE BUFFER m P* m $
0x031b60…031cf4 (1, 62) Dummy {f00=0x0010, f01=0x0190, f02=»DESTROYED m P* n P* n ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS n & P INH n R P LDR* A4,A2 n ^ P RF(Z) GBUF10 NO BUFFER FREE n r . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN n P STR A3,A2 n PGBUF10 EQU * n P ABL RTNA15 n P EJECT
0x031cf4…031e88 Dummy {f00=0x0010, f01=0x0190, f02=»UF n r P* A2 AND A3 ARE DESTROYED o P* o , P* o 6 ( PRRBUF LDKL A2,DCRBUF RECEIVE BUFFERS o @ P INH o l PRBUF10 EQU * o x P LDR* A3,A2 o P RF(Z) RBUF20 o P LDR A2,A3 o P RB RBUF10 o PRBUF20 EQU * o P STR A4,A2 o P CMR A4
0x031e88…03201c Dummy {f00=0x0010, f01=0x0190, f02=» - DWT ADDR o P* A1 AND A4 ARE DESTROYED p ( P* CALLING SEQUENCE: CF A15,RELBUF p 6 P* p b P* p l PRELBUF EQU * p v * P LDK A1,DWTIPC SET BUFFER QUEUE DISP. p P ADR A1,A6 p PRLBU10 EQU * p $ P LDR* A4,A1 NEXT IN BUFFER QUEUE p P R
0x03201c…0321b0 Dummy {f00=0x0010, f01=0x0190, f02=»CT p P* q P* q & P* INSERT DWT IN SEND REQUEST QUEUE q P* q H P* A2,A3,A4 DESTROYED q R P* A6=DWT q n P* q ~ ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR q P LDK A4,DWTOPN q PINSWQ2 LDR* A3,A2 q $ P RF(Z) INSWQ3 END OF QUEUE FOUND q
0x0321b0…032344 Dummy {f00=0x0010, f01=0x0190, f02=» RB GBUF10 RETURN q P EJECT r P* r ( P* r 2 ( P* REMOVE DWT FROM SEND REQUEST QUEUE r < P* r h P* A2,A3,A4 DESTROYED r r P* A6=DWT r P* r * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR r . P LDK A4,DWTOPN GET DWT-LINK TO BE REMOVED r P
0x032344…0324d8 Dummy {f00=0x0010, f01=0x0190, f02=» r P LDR A2,A3 GET NEXT s P RB REM10 s $ PREM15 LDR* A3,A4 REMOVE s 6 P STR A3,A2 s V P RB GBUF10 RETURN s h P EJECT s P* s P* s P* INSERT DWT IN STATUS QUEUE s P* s P IFF STARVI=0 s P* A2,A3,A4 DESTROYED s P* A6
0x0324d8…03266c Dummy {f00=0x0010, f01=0x0190, f02=»WT FROM STATUS QUEUE s P* t P* A2,A3,A4 DESTROYED t & P* A6=DWT t B P* t R * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR t P LDK A4,DWTOPE t P RB REM06 t P XIF t P EJECT t P* t P* t $ P* QUEUE ALLOCATED RECEIVE BUFFER t P
0x03266c…032800 Dummy {f00=0x0010, f01=0x018e, f02=»EUE DISP. t t P ADR A2,A6 u PQR100 EQU * u $ P LDR* A3,A2 u 8 $ P RF(Z) QR200 END OF QUEUE FOUND u L P LDR A2,A3 u t P RB QR100 u & PQR200 STR A4,A2 INSERT INTO QUEUE u " P CMR A4 INDICATE END OF QUEUE u P RTN A5 u P EJECT u P*
0x032800…032994 (1, 63) Dummy {f00=0x0010, f01=0x0190, f02=» u P ST A5,LCA5 v P ST A6,LCA6 v P ST A7,LCA7 v 0 P ST A8,LCA8 v D P RF RTNA15 RETURN v X P* v r P* v | P* RESTORE v $ P* CALLING SEQUENCE: CF A15,LDREG v P* v PLDREG LDKL A3,0 v PLCA3 EQU *-2 v P LDKL A4,0 v P
0x032994…032b28 Dummy {f00=0x0010, f01=0x0190, f02=»DKL A8,0 v PLCA8 EQU *-2 w P* w $ P* w . P* RETURN VIA REGISTER 15 w 8 P* w Z PRTNA15 EQU * w d P ADKL A15,4 w x P ABR* A15 w P EJECT w P* w P* POLL TIME OUT w P* w ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE w " P LDR
0x032b28…032cbc Dummy {f00=0x0010, f01=0x0190, f02=»TIME OUT w P* x P LDK A1,CSSXC3 x P CF A15,DCSUPS x 0 P XIF x F $ P CF A15,SPOTIM START POLL TIMER x R P ABL TDISP x z P* x 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED x P* x PCPTIM EQU * x P LDK A2,1 INDICATE x " P S
0x032cbc…032e50 Dummy {f00=0x0010, f01=0x0190, f02=»IMER x P* y PSPOTIM EQU * y , P LDR A1,A6 LOAD DWT ADDRESS AS PARAMETER y * P CF A15,SETIME START TIMER y Z P DATA PTOUT,TIMPOL y | & P ST A4,DCTPGP STORE TIMER POINTER y P RB RTNA15 RETURN y P EJECT y P* y P* START PROCEDURE TIME
0x032e50…032fe4 Dummy {f00=0x0010, f01=0x018e, f02=»,DCTPP SAVE TIMER POINTER y P RTN A5 z " P* z 2 P* PROCEDURE TIMEOUT z < P* z X PPRTOUT CM DCTPP z b P LDR A6,A1 RELOAD A6 z z P LDKL A5,STB LOAD STACK BASE z P LDKL A7,DTETAB z P IFT STTSTS=1 z P* z P* z P* COUNT PRO
0x032fe4…033178 Dummy {f00=0x0010, f01=0x0190, f02=» P LD A1,XACK { " P RF(Z) PRT10 ACK NOT EXPECTED { P CF A5,TRENQ SEND ENQ { > & P CF A5,SPTIM START PROCEDURE TIMER { PPRT10 ABL BRM { P EJECT { P* { P* STOP PROCEDURE TIMER { P* { ( PHPTIM LD A1,DCTPP GET TIMER POINTER { P
0x033178…03330c Dummy {f00=0x0010, f01=0x0190, f02=»EC. FOR MODEM CONNECTION { P* | P | * PDTE:ON LDR A1,A6 DWT ADDRESS | 2 P CF A15,SETIME WAIT 1 SEC. | V P DATA DTE:10,10 | x P =1 | P LDKL A5,STB =1 | " P CF A5,CSYNCI CONNECT MODEM =1 | * P CF A5,CHALTI NO INTERRUPTS ALLOWED =1 |
0x03330c…0334a0 Dummy {f00=0x0010, f01=0x0190, f02=»RESS | x P LDKL A7,DTETAB } $ P IM DTESTA,A7 SET OPEN STATUS =1 } $ P LDKL A5,STB =1 } L * P CF A5,CSYNCI PUT CU IN ACTIVE MODE =1 } d 8 P CF A5,CHALTI HALT I/P DEVICE TO GET MODEM STATUS =1 } 0 P IM DTEPLS,A7 PRESET PHYSICAL STATUS = OK =1 } P ANK A
0x0334a0…033634 (1, 64) Dummy {f00=0x0010, f01=0x0190, f02=» SET RETURN CODE =1 } * P CF A15,TENDIO COMPLETE THE REQUEST =1 ~ & P CF A15,SPOTIM START POLL TIMER =6 ~ J P ABL BRM START I/P =1 ~ t P EJECT ~ P IFT MESPAS=1 ~ P* ~ P* ~ P* GET DWT ADDRESS ~ P* ~ PMESDWT EQU * ~ & P CWR A
0x033634…0337c8 Dummy {f00=0x0010, f01=0x0190, f02=» RF(E) MES200 YES ~ " P LD A2,DWTST,A6 ANY REQUEST ? P RF(N) MESD50 NO @ ( P LD A2,DWTOR,A6 ANY MESSAGE ORDER ? X P ANK A2,/FF P RF(Z) MES200 YES & P SUK A2,RECEIVE A RECEIVE ORDER ? P RF(Z) MES200 YES PMESD50 EQU * 0
0x0337c8…03395c Dummy {f00=0x0010, f01=0x0190, f02=»QU * P LDR A6,A7 GET DTETAB-ADDR PMES200 EQU * . P ABL RTNA15 RETURN VIA A15 B P XIF d P EJECT p P* ~ P* P* BASIC RECEIVE MODE P* " P* ENTERED EVERY TIME A MESSAGE & P* IS EXPECTED FROM THE MASTER SIDE P
0x03395c…033af0 Dummy {f00=0x0010, f01=0x0190, f02=»XT t , P CF A5,CSYNCI START INPUT WITH SYNC DEF P* : P* D P* N P CF A5,READP READ CHARACTER X P RF(NZ) BRM120 PARITY ERROR | P* P* * P* CHECK IF IT IS A CONTROL CHARACTER P* P LDR A1,A2 : P CF A15,LO
0x033af0…033c84 Dummy {f00=0x0010, f01=0x0190, f02=»ECEIVED z " P DATA EOT,EOT100 EOT RECEIVED " P DATA ENQ,ENQ100 ENQ RECEIVED 6 " P DATA DLE,DLE100 DLE RECEIVED ( PBRM100 DATA NAK,NAK100 NAK RECEIVED P EJECT P* P* P* THROUGHPUT ERROR P* PBRM110 EQU * (
0x033c84…033e18 Dummy {f00=0x0010, f01=0x0190, f02=»* P* $ P* WAIT FOR MARK HOLD TO RESYNC. P* < PBRM120 EQU * F P CF A5,READ READ CHARACTER Z 0 P LD A1,DCSTCU ANY STATUS FROM CONTROL UNIT ? | P RF(NZ) BRM130 YES P ANK A2,/7F P SUK A2,/7F P RB(NZ) BRM120 NO
0x033e18…033fac Dummy {f00=0x0010, f01=0x0190, f02=»SELECT SEQUENCE r P* PBRM200 EQU * " P IFT MSV1=0 6 P LDR A4,A2 J P CF A5,READP READ CHARACTER P CWR A2,A4 $ P RB(NE) BRM120 INVALID SEQUENCE P XIF P LDK A3,0 P CC A2,1,A7 IS IT A POLL ? P RF(E) BRM210
0x033fac…034140 Dummy {f00=0x0010, f01=0x0190, f02=»,READP READ 1:ST STA P RB(NZ) BRM PARITY ERROR P LDR A4,A2 < P IFT MSV1=0 N P CF A5,READP READ 2:ND STA b P CWR A2,A4 $ P RB(NE) BRM120 INVALID SEQUENCE P XIF P CF A5,READP READ ENQ P SUK A2,ENQ $ P RB(NE) BRM1
0x034140…0342d4 (1, 65) Dummy {f00=0x0010, f01=0x0190, f02=» P* 0 P* CHECK IF IT IS A SELECT OR A POLL ADDRESS P* F P LDK A1,1 P P ST A1,CACK LOAD ACK-COUNTER b P LDR A2,A4 P SUK A3,2 P RF(Z) SELECT SELECTING P* P* P* POLLING P* P CWK A4,GP
0x0342d4…034468 Dummy {f00=0x0010, f01=0x0190, f02=»* P* & P* SPECIFIC POLL HAS BEEN RECEIVED P* > P* H P IFF STARVI+SPECP=0 R P LD A1,XACK n P RF(NZ) POL100 ACK EXPECTED * P LDR A6,A3 LOAD DWT ADDRESS IN A6 =10 8 P RF(Z) POL150 REQ. DEV. NOT CONNECTED, SEND EOT =10
0x034468…0345fc Dummy {f00=0x0010, f01=0x0190, f02=»DING STATUS ~ P XIF P IFF STARVI+SPECP=0 P LD A1,DWTST,A6 < P RF(N) POL150 NO REQUEST T P LD A1,DWTOR,A6 GET ORDER t & P ANK A1,/FF MASK AWAY OPTION PART P SUK A1,6 P RF(Z) POL170 WRITE REQUEST P XIF P RF PO
0x0345fc…034790 Dummy {f00=0x0010, f01=0x0190, f02=» LD A1,XACK " P RF(Z) POL110 ACK NOT EXPECTED P =11 : PPOL100 EQU * J * P CF A5,HPTIM KILL PROCEDURE TIMER =11 ^ P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER P ABL BRM WAIT FOR RESPONSE PPOL110 EQU *
0x034790…034924 Dummy {f00=0x0010, f01=0x018e, f02=»DWTOPE GET DWT ADDRESS PPOL120 EQU * P CF A5,TRSTA SEND STATUS 2 & P CF A5,SPTIM START PROCEDURE TIMER R P IM XACK SET 'ACK EXPECTED' | P XIF P IFF STARVI=1 P RF POL140 P XIF PPOL130 EQU * P ABL BRM PPOL1
0x034924…034ab8 Dummy {f00=0x0010, f01=0x0190, f02=» PPOL160 EQU * " P SUK A6,DWTOPN GET DWT ADDRESS PPOL170 EQU * B $ P LD A8,DWTECB,A6 GET ECB ADDRESS V P RF(NZ) POL180 ~ P CF A15,REMOVW P RB POL150 PPOL180 EQU * P ST A8,FECB SAVE ECB ADDRESS P ST A6,FDWTUT SAVE A
0x034ab8…034c4c Dummy {f00=0x0010, f01=0x0190, f02=»R h P XIF & P LD A4,ECBBA,A8 GET BUFFER ADDRESS P LD A3,ECBRL,A8 GET LENGTH @ PPOL190 EQU * b & P ST A4,FECBBA SAVE BUFFER ADDRESS v P . =15 P ST A3,FECBRL SAVE LENGTH P CM FBAX RESET BUFFER INDEX PPOL200 EQU *
0x034c4c…034de0 Dummy {f00=0x0010, f01=0x0190, f02=»CK SET 'ACK EXPECTED' P RB POL130 P EJECT 0 P* > P* H P* SELECT HAS BEEN RECEIVED R P* v PSELECT EQU * P CF A5,FINTES P LDR A6,A3 GET DWT-ADDR P RF(NZ) SEL100 P IFT MESPAS=1 " P LD A6,DTEDDT,A7 G
0x034de0…034f74 (1, 66) Dummy {f00=0x0011, f01=0x0190, f02=») POL100 ERROR. ACK EXPECTED P IFF STARVI=0 $ P LD A1,DWTST,A6 GET STATUS : P LDR A3,A1 P ANK A1,1 n $ P RF(Z) SEL120 NO PENDING STATUS P CF A5,TRRVI SEND RVI P XIF P IFF STARVI=1 P RF SEL120 P XIF PSE
0x034f74…035108 Dummy {f00=0x0011, f01=0x0190, f02=»F(NZ) SEL140 YES =2 P XIF P =2 ( P LD A1,DCRBUF 6 $ P RF(NZ) SEL150 BUFFER AVAILABLE L P IFT STTSTS=1 t ( P LDK A1,CSSRBY BUFFER NOT AVAILABLE $ P CF A15,DCSUPS INCREMENT COUNTER P XIF PSEL140 EQU * P =2
0x035108…03529c Dummy {f00=0x0011, f01=0x0190, f02=» TEXT RECEPTION x P ADK A1,6 P ST A1,FBLST * P CF A5,TRACK SEND ACK,0 > P RB SEL110 ^ P EJECT p P* ~ P* P* EOT HAS BEEN RECEIVED P* P* PEOT100 EQU * & P CF A5,HPTIM STOP PROCEDURE TIMER P IFT
0x03529c…035430 Dummy {f00=0x0011, f01=0x0190, f02=»T GET WRITING DWT P RF(Z) EOT110 NO ONE WRITING P LDK A1,2 SET RC=2 > ( P CF A5,CWRITE COMPLETE WRITE REQUEST X PEOT110 EQU * " P CM XACK RESET 'ACK EXPECTED' PEOT120 EQU * P CM XSEL RESET 'SELECTED' P ABL BRM P EJE
0x035430…0355c4 Dummy {f00=0x0011, f01=0x0190, f02=» P ABL BRM120 INVALID SEQENCE PSTX110 EQU * , P XIF @ P LD A1,XSEL L P RF(Z) STX150 NOT SELECTED ` P LD A1,DCRBUF P IFF STTSTS=1 & P ABL(Z) BRM120 NO BUFFER AVAILABLE P XIF P IFT STTSTS=1 P RF(NZ) STX120
0x0355c4…035758 Dummy {f00=0x0011, f01=0x0190, f02=» P XIF PSTX120 EQU * P CF A5,RDMESS READ MESSAGE $ P IFT STTSTS=1 F P* P* f P* COUNT MESSAGES RECEIVED p P* P LDK A1,CSSRBL P CF A15,DCSUPS P XIF P SUK A3,1 P RF(NZ) STX170 MESSAGE OK P
0x035758…0358ec Dummy {f00=0x0011, f01=0x0190, f02=» EQU * P IFT RCOM=1 P LD A1,XACK " & P RF(Z) STX160 ACK IS NOT EXPECTED 6 P LD A1,DCRBUF ` & P RF(Z) STX160 NO BUFFER AVAILABLE v " P LD A6,FDWTUT GET WRITING DWT 0 P ABL(Z) BRM120 NO ONE WRITING. RESYNCHRONIZE P LDR* A2,A6 GE
0x0358ec…035a80 Dummy {f00=0x0011, f01=0x018e, f02=»CACK PRESET ACK-1 P RB STX120 READ THE MESSAGE P XIF > ( PSTX160 CF A5,READ READ ONE CHARACTER J P CWK A2,ENQPAR IS IT ENQ ? v ( P RB(Z) STX140 FORWARD ABORT SEQUENCE P RB EOT120 PSTX170 EQU * P IM XSTA INDICATE MESSAGE OK
0x035a80…035c14 (1, 67) Dummy {f00=0x0011, f01=0x0190, f02=» P LDK A1,ESC P CCR A1,A4 P RB(NE) STX130 ESC NOT FOUND . P LC A1,1,A4 GET COMMAND CODE R P SUK A1,RDBCOM v ( P RF(Z) RDBUF READ MODIFIED RECEIVED P SUK A1,RDMCOM-RDBCOM & P RF(Z) RDMOD READ BUFFER RECEIVED P XIF
0x035c14…035da8 Dummy {f00=0x0011, f01=0x0190, f02=»5,MESDWT P XIF P CWR A7,A6 IS IT DTETAB ? P RF(E) STX280 SEND ACK > P LD A2,DWTSTA,A6 . =14 , P RF(Z) STX280 TERMINAL DISCONNECTED =14 z P CM FBAX * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER P ADK A4,6 P IFT RCOM=1
0x035da8…035f3c Dummy {f00=0x0011, f01=0x0190, f02=»200 NO P ST A2,+4,A1 STORE THE ADDR PSTX200 EQU * 2 P XIF F " P LD A2,DWTST,A6 ANY REQUEST ? R P RF(N) STX220 NO x P LD A2,DWTOR,A6 GET ORDER P IFT EM3270=1 & P RF(Z) STX210 ANY MESSAGE ORDER ? P XIF P CWK A2,RE
0x035f3c…0360d0 Dummy {f00=0x0011, f01=0x0190, f02=»4,A4 GET LENGTH * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH . P LD A1,DWTLAD,A6 SYMBOLIC DTE ADDRESS =12 F ( P LD A2,-2,A4 NETWORK SUB-ADDRESS =12 x 0 P CF A15,GETSSA GET SYMBOLIC SUB ADDRESS =12 , P ST A1,ECBCW2,A8 AND SAVE IT IN ECB =12 $ P
0x0360d0…036264 Dummy {f00=0x0011, f01=0x0190, f02=»NING TIME t P XIF =9 PSTX220 EQU * $ P IFT STARVI=1 8 P LC A2,+2,A4 GET WCC/CCC N P ANK A2,/FF n P LC A2,TEBCDIC,A2 P ANK A2,8 P RF(Z) STX230 P LD A2,DWTST,A6 P ORK A2,/A P ST A2,DWTST,A6 PST
0x036264…0363f8 Dummy {f00=0x0011, f01=0x0190, f02=»70 PSTX240 EQU * P LD A2,DWTOR,A6 GET ORDER $ P CWK A2,RECEIVE RECEIVE ORDER ? @ P RF(NE) STX260 NO h P =12 P LDK A1,0 RESET RETURN CODE * P LD A2,DWTIPC,A6 ANY QUEUED MESSAGES ? P RF(Z) STX250 NO P ORKL A1,R:D
0x0363f8…03658c Dummy {f00=0x0011, f01=0x0190, f02=»UFFER | P IFT EM3270=1 P LD A2,DWTOR,A6 GET ORDER $ ( P RF(NZ) STX270 NOT ANY MESSAGE ORDER F $ P CF A15,TENDIO COMPLETE REQUEST r P XIF PSTX270 EQU * P IFT STARVI=1 P LD A1,DWTST,A6 GET STATUS P ANK A1,8 MASK A1
0x03658c…036720 Dummy {f00=0x0011, f01=0x0190, f02=»STX290 EQU * P ABL BRM P EJECT $ P* 2 P* < , P* READ MODIFIED OR READ BUFFER RECEIVED F P* v P* P IFF RCOM=0 $ PRDBUF EQU * READ BUFFER COMMAND PRDMOD EQU * " P CM XSEL RESET SELECT EXPECTED 4 P LD A6,F
0x036720…0368b4 (1, 68) Dummy {f00=0x0011, f01=0x0190, f02=»,1922 REQUESTED LENGTH " P IM XRB SET READ BUFFER SWITCH P CM FDWTUT D P LDK A1,1 V & P XRS A1,CACK INCREMENT ACK COUNTER h P ABL POL190 P XIF P EJECT P* P* P* ENQ HAS BEEN RECEIVED P* P* P
0x0368b4…036a48 Dummy {f00=0x0011, f01=0x0190, f02=»,XSEL " P RF(Z) ENQ110 IN CONTROL STATE . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE 4 PENQ110 EQU * f P ABL BRM z P EJECT P* P* P* NAK HAS BEEN RECEIVED P* P* PNAK100 EQU * & P CF A5,HPTIM STOP PR
0x036a48…036bdc Dummy {f00=0x0011, f01=0x0190, f02=» RF DLE160 PNAK110 EQU * " P LD A6,FDWTUT GET WRITING DWT & P IFF STARVI=0 L P LD A1,XSTA b 0 P ABL(NZ) POL120 STATUS HAS BEEN TRANSMITTED v P XIF 0 P LD A1,FBLST GET START POINT FOR LAST BLOCK & P SU A1,FECBBA COMPUTE BUFFER I
0x036bdc…036d70 Dummy {f00=0x0011, f01=0x0190, f02=»RT P CF A15,DCSUPS P XIF P ABL POL200 , P EJECT @ P* N P* X P* DLE HAS BEEN RECEIVED b P* P* PDLE100 EQU * & P CF A5,HPTIM STOP PROCEDURE TIMER P LD A1,XACK P RF(NZ) DLE110 P IFT TPMOD
0x036d70…036f04 Dummy {f00=0x0011, f01=0x0190, f02=»QU * & P CF A5,READ READ SECOND CHARACTER P CWK A2,ACKPAR IS IT ACK 0 ? 6 P RF(NE) DLE130 Z P* p P* ACK , 0 RECEIVED z P* P LD A1,CACK GET ACKCOUNTER P RF(Z) DLE140 ACK,0 EXPECTED PDLE120 EQU * P CF A5,TRENQ SEN
0x036f04…037098 Dummy {f00=0x0011, f01=0x0190, f02=»* P* ACK , 1 RECEIVED P* $ P LD A1,CACK GET ACK COUNTER . $ P RB(Z) DLE120 ACK,1 NOT EXPECTED R PDLE140 EQU * z P LD A1,XETX P RF(Z) DLE170 ETX NOT SENT P EJECT P* , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK
0x037098…03722c Dummy {f00=0x0011, f01=0x0190, f02=»NSMITTED n P XIF ( P CF A5,CWRITE COMPLETE WRITE REQUEST PDLE160 EQU * H P CF A5,TREOT SEND EOT P IFT RCOM=1 z P CM XRB RESET READ BUFFER P XIF P RB ENQ110 PDLE170 EQU * P LDK A1,1 & P XRS A1,CACK INCREME
0x03722c…0373c0 Dummy {f00=0x0011, f01=0x0190, f02=» " P CM XACK RESET 'EXPECTING ACK' P LD A1,XETX * $ P RF(NZ) DLE190 ETX HAS BEEN SENT > P LDK A1,2 SET RC=2 f P RB DLE150 PDLE190 EQU * P LDK A1,0 SET RC=0 P RB DLE150 P EJECT P IFF STARVI=0 P* P* "
0x0373c0…037554 (1, 69) Dummy {f00=0x0011, f01=0x0190, f02=»OVE FROM STATUS QUEUE ~ P CM XSTA CLEAR 'STATUS SENT' " P CM XACK CLEAR 'ACK EXPECTED' B P LD A1,DWTST,A6 GET STATUS h P ANK A1,4 P RB(Z) DLE160 NOT DE P LDKL A1,/8000 " P ANS A1,DWTST,A6 CLEAR STATUS P RB DLE160 P X
0x037554…0376e8 Dummy {f00=0x0011, f01=0x0190, f02=»NTER(S) t P* A2=SUBTERMINAL ADDRESS P* A4 DESTROYED 0 " P* A3#0: DWT TO FOUND TERMINAL F P* l B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES v * P* ENTRY: FINTES - CHECK SELECT ADDRESS , P* FINTEP - CHECK SPECIFIC POL
0x0376e8…03787c Dummy {f00=0x0011, f01=0x018e, f02=»FINTEP EQU * P LDK A4,1 RIGTH BYTE PFINT05 EQU * 0 " P LD A3,DTEDWT,A7 GET FIRST DWT D PFINT10 EQU * j P RF(Z) FINT20 END QUEUE ~ P ADR A3,A4 " P CCR A2,A3 THIS SUB-ADDRESS ? P RF(E) FINT20 YES P SUR A3,A4 " P LD A3
0x03787c…037a10 Dummy {f00=0x0011, f01=0x0190, f02=» P* PREPARE FOR TEXT RECEPTION P* , P* 6 PPRREC EQU * @ P IM XSEL SET 'SELECTED' T P CM FBAX RESET BUFFER INDEX t P IFT CODE=1 . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC P XIF $ P ST A2,+4,A1 SAVE STA IN BUFFE
0x037a10…037ba4 Dummy {f00=0x0011, f01=0x0190, f02=»SEND REQUEST TO BE COMPLETED z P* $ P* A1 CONTAINS RETURN CODE . P* P P* Z PCWRITE LD A6,FDWTUT d $ P RF(Z) CWR900 NO WRITE GOING ON P LD A2,DWTST,A6 P RF(N) CWR900 NO REQUEST P LD A2,DWTOR,A6 GET ORDER & P ANK A
0x037ba4…037d38 Dummy {f00=0x0011, f01=0x0190, f02=»UEU ? f P RF(Z) CWR110 NO 0 P ORKL A1,R:DATA ACCEPTED AND DATA AVAILABLE & PCWR110 EQU * Z P LD A8,DWTECB,A6 n P CF A15,CTIME STOP TIMER P IFT REMTIM=1 =9 P ST A2,ECBCW1,A8 P XIF =9 $ P CF A15,TENDIO COMPLETE REQUES
0x037d38…037ecc Dummy {f00=0x0011, f01=0x0190, f02=»M FDWTUT P RTN A5 P EJECT P* . P* 8 P* READ ONE TEXT BLOCK B P* ` P* ON EXIT A3 CONTAINS : j ( P* 0 : IF CORRECT ETX BLOCK RECEIVED 2 P* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW ( P* 2 : IF CORRECT ETB BLOCK R
0x037ecc…038060 Dummy {f00=0x0011, f01=0x0190, f02=» LD A1,XSTA $ P RF(NZ) RDM050 LAST INPUT WAS OK " P LD A1,FBLST COMPUTE NEW INDEX < P SUR A1,A4 b P ST A1,FBAX t PRDM050 EQU * P AD A4,FBAX ADD BUFFER INDEX ( P ST A4,FBLST REMEMBER START OF BLOCK P CM XSTA P SUR A8,A8 R
0x038060…0381f4 (1, 70) Dummy {f00=0x0012, f01=0x018e, f02=»DP P RF(NZ) RDM120 PARITY ERROR P CWK A2,ESC . P RF(NE) RDM110 B * P CF A5,READP SKIP NEXT TWO CHARACTERS X P CF A5,READP P XIF P IFF TPMODE=1 PRDM100 EQU * $ P CF A5,READP READ ONE CHARACTER P RF(NZ) RDM120 P
0x0381f4…038388 Dummy {f00=0x0012, f01=0x0190, f02=» | P CWK A2,DLE CHECK IF DLE P RF(NE) RDM112 NO ( 0 P CF A5,READ SKIP DLE AND READ NEXT CHARACTER B P CWK A2,SYNEBC CHECK IF SYN v P RB(E) RDM100 SKIP SYN P CF A5,CRCCAL CALCULATE CRC " P CWK A2,DLE CHECK IF 2:ND DLE * P RF(E)
0x038388…03851c Dummy {f00=0x0012, f01=0x0190, f02=»F(E) RDM160 YES P CWK A2,ITB CHECK IF ITB P RF(E) RDM175 YES 8 P CWK A2,ENQEBC CHECK IF ENQ R P RF(E) RDM140 YES SEND NAK v P* P* P* GET END OF BLOCK P* PRDM105 EQU * P CF A5,READ P CWK A2,DLE
0x03851c…0386b0 Dummy {f00=0x0012, f01=0x0190, f02=»RDM105 NOT END OF BLOCK PRDM110 EQU * $ P CM TPM OUT OF TRANSPARENT TEXT 4 P CF A5,RDCRC ( P RF RDM140 INDICATE INVALID MESSAGE p & PRDM112 CF A5,CRCCAL CALCULATE CRC P XIF P IFF TPMODE=1 P CWK A2,ETX P RF(E) RDM13
0x0386b0…038844 Dummy {f00=0x0012, f01=0x0190, f02=»2,ENQ 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAGE P CWK A2,/FF D $ P RF(E) RDM140 MARK HOLD RECEIVED X P IFT CODE=0 P IFT BINTRM=1 P LDR A1,A2 P SUK A1,DC1+3 P RF(P) RDM115 NOT DC1-DC3 P ADK A1,3 P R
0x038844…0389d8 Dummy {f00=0x0012, f01=0x018e, f02=»ITY ERROR ~ P LCR A1,A4 =7 * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER ( P ORR A2,A1 =7 V P XIF l PRDM115 EQU * x & P ADK A3,0 ERROR DETECTED EARLIER ? P RB(NZ) RDM100 YES !!! P SCR A2,A4 STORE CHARACTER P ADK A4,1 INCREMEN
0x0389d8…038b6c Dummy {f00=0x0012, f01=0x0190, f02=» r P* P* BUFFER OVERFLOW P* , & P LDK A3,1 INDICATE BUFFER OVERFLOW 6 P IFT STTSTS=1 ` " P LDK A1,CSSRBO BUFFER OVERFLOW v $ P CF A15,DCSUPS INCREMENT COUNTER P XIF P RB RDM100 P* P* PARITY ERROR DETECTED
0x038b6c…038d00 Dummy {f00=0x0012, f01=0x0190, f02=»3,1 INDICATE INVALID MESSAGE P SUK A2,/7F $ $ P RF(Z) RDM150 MARK HOLD RECEIVED 8 P RB RDM100 ` P* r P* ETX RECEIVED | P* PRDM130 EQU * $ P LD A1,DCRBUF GET BUFFER ADDRESS P LD A2,FBAX GET BUFFER INDEX 2 P ST A2,+2,A1
0x038d00…038e94 (1, 71) Dummy {f00=0x0012, f01=0x0190, f02=»1 & P CF A5,RDCRC READ CRC AND CHECK IT P RF(E) RDM150 CRC WAS OK 4 P XIF T PRDM140 EQU * ` & P LDK A3,1 INDICATE INVALID MESSAGE t PRDM150 EQU * P CF A5,CHALTI HALT INPUT P IFT P6805=1 P IFT CODE=0 P ANK A2,H:PARI
0x038e94…039028 Dummy {f00=0x0012, f01=0x0190, f02=»ED EARLIER ? z P RF(NE) RDM158 NO $ P CM TPM OUT OF TRANSPARENT TEXT . PRDM158 EQU * V P XIF j P RTN A5 v P* P* ETB RECEIVED P* PRDM160 EQU * P LDR A3,A3 " P RB(NZ) RDM130 ALREADY INVALID " P LDK A3,2 IN
0x039028…0391bc Dummy {f00=0x0012, f01=0x0190, f02=»RC " P RB(NZ) RDM120 LRC WAS NOT OK P XIF 0 P IFT CODE=1 < & P CF A5,RDCRC READ CRC AND CHECK IT P " P RB(NE) RDM120 CRC WAS NOT OK z P IFT TPMODE=1 * PRDM175 CM TPM OUT OF TRANSPARENT TEXT $ P CF A5,RDCRC READ AND CHECK CRC
0x0391bc…039350 Dummy {f00=0x0012, f01=0x018e, f02=» CWK A2,DLE $ P RB(NE) RDM105 ILLEGAL CHARACTER P CF A5,READ < P CWK A2,STX P $ P RB(NE) RDM105 ILLEGAL CHARACTER d P XIF P RB RDM100 P EJECT P* P* TRANSMIT ACK 0 OR 1 P* PTRACK LDK A2,1 P LDK A3,
0x039350…0394e4 Dummy {f00=0x0012, f01=0x0190, f02=» P* P* TRANSMIT WACK P* & PTRWACK LDK A3,WACK LOAD WACK 0 P RF TRDLE T P* f P* TRANSMIT RVI p P* P IFF STARVI=0 PTRRVI LDK A3,RVI LOAD RVI P XIF P* P* TRANSMIT DLE P* PTRDLE LDK
0x0394e4…039678 Dummy {f00=0x0012, f01=0x0190, f02=»IT NAK P* PTRNAK LDK A3,NAK LOAD NAK P RF TREN10 : P* L P* TRANSMIT EOT V P* l PTREOT LDK A3,EOT LOAD EOT v P RF TREN10 P* P* TRANSMIT ENQ P* PTRENQ LDK A3,ENQ LOAD ENQ P* ( PTREN10 S
0x039678…03980c Dummy {f00=0x0012, f01=0x0190, f02=»T FIRST CHARACTER P CF A5,WRITEP SEND IT & P LC A2,RESEND+1 GET NEXT CHARACTER 8 P CF A5,WRITEP SEND IT b PTRRE10 LDK A2,/FF P CF A5,WRIT05 SEND PAD P LDK A2,/FF P CF A5,WRIT05 P CF A5,CHALTO HALT OUTPUT P IFF
0x03980c…0399a0 Dummy {f00=0x0012, f01=0x0190, f02=» TEXT BLOCK P* P* PTRTEXT EQU * ( P CF A5,TRSYNC START OUTPUT < P IFF TPMODE=0 ^ P LDK A2,DLE t P CF A5,WRIDLE SEND DLE P XIF P LDK A2,STX P CF A5,WRITE SEND STX P SUR A8,A8 RESET LRC $ P LD A4,F
0x0399a0…039b34 (1, 72) Dummy {f00=0x0012, f01=0x0190, f02=»0 RESET CHARACTER COUNTER P LD A1,FBAX GET BUFFER INDEX " " P RF(NZ) TRT100 NOT FIRST BLOCK F " P LDR* A2,A7 NETWORK POLL ADDR l P CF A5,WRITEP SEND TCA " P LD A2,FDWTUT GET DWT-ADDRESS ( P LDR* A2,A2 GET NETWORK SUB-ADDRESS P CF A5
0x039b34…039cc8 Dummy {f00=0x0012, f01=0x018e, f02=»0 AND CURSOR ADDRESS P CF A5,WRITEP P LDK A2,/20 2 P CF A5,WRITEP F P XIF P IFT RCOM=1 h P | & P LD A1,XRB READ BUFFER COMMAND ??? P RF(Z) TRT070 NO!! P P ******************** " P LDK A2,X'2D' AID FOR DI
0x039cc8…039e5c Dummy {f00=0x0012, f01=0x0190, f02=» d P LDK A3,5 SET BLOCK COUNT P RF TRT100 * PTRT070 EQU * < P XIF P P P LDK A3,2 d PTRT100 EQU * v P IFT TPMODE=1 P IM TPM TRANSPARENT TEXT P XIF P LCR A2,A4 GET ONE CHARACTER P ADK A4,1 INCREMENT POIN
0x039e5c…039ff0 Dummy {f00=0x0012, f01=0x0190, f02=»**************************************************** P* < , P* CHECK IF ATTRIBUTE CHARACTER OR NULL F P* v 4 P*********************************************** P & P CWK A2,X'20' ATTRIBUTE CHARACTER P RF(L) TRT101 YES!!! P X
0x039ff0…03a184 Dummy {f00=0x0012, f01=0x0190, f02=» P CWK A2,/7D END OF MESSAGE ? " P RF(NE) TRT103 NO,GO TO TRT103 ( P LDK A2,/19 N PTRT103 EQU * b P CWK A2,X'7F' NULL ?? v P RF(NE) TRT105 P SUK A2,1 P XIF P IFT RCOM=1 P RF TRT105 P PTRT101 EQU *
0x03a184…03a318 Dummy {f00=0x0012, f01=0x0190, f02=» ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE P ANK A1,1 0 P ANK A2,/1E MASK B P SLL A2,1 Z & P ORR A2,A1 IBM ATTRIBUTE COMPOSED l " P ORK A2,/40 BIT ALWAYS SET ONE P LC A2,TASCII,A2 & P CWK A2,/18 CHECK SPECIAL ATTRIBUT P RF(NE) TR
0x03a318…03a4ac Dummy {f00=0x0012, f01=0x0190, f02=» P XIF P EJECT P IFF TPMODE=1 " P CWK A2,/07 8 ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT L P XIF x P CF A5,WRITEP SEND CHARACTER PTRT110 EQU * $ P IM FBAX INCREMENT BUFFER INDEX & P LD A1,FECBRL GET REQUESTED LENGTH
0x03a4ac…03a640 Dummy {f00=0x0012, f01=0x0190, f02=» TPMODE=1 P RB(L) TRT105 NOT FULL BLOCK P XIF 6 P RB(L) TRT100 NOT FULL BLOCK B P IFT RCOM=1 f , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK z P CC A1,-2,A4 P RF(E) TRT115 YES P CC A1,-1,A4 P RF(NE) TRT116 NO SEND ETB
0x03a640…03a7d4 (1, 73) Dummy {f00=0x0012, f01=0x0190, f02=»EX z . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA P CF A5,WRITEP SEND IT < P IM FBAX INCREMENT INDEX Z P XIF z PTRT116 EQU * P IFT TPMODE=1 P LDK A2,DLE $ P CF A5,WRIDLE SEND AN EXTRA DLE P XIF P LDK A2,ETB LOAD
0x03a7d4…03a968 Dummy {f00=0x0012, f01=0x0190, f02=» A2,A8 GET LRC P CF A5,WRITEP SEND LRC P XIF 4 P IFT CODE=1 @ P LDR A2,A6 T P ANK A2,/FF f " P CF A5,WRIT05 SEND CRC BYTE 1 z P ECR A2,A6 P ANK A2,/FF " P CF A5,WRIT05 SEND CRC BYTE 2 P XIF P IFT STTSTS=1
0x03a968…03aafc Dummy {f00=0x0012, f01=0x0190, f02=»RRE10 HALT OUTPUT PTRT130 EQU * P IM XETX INDICATE 'ETX SENT' . P IFT TPMODE=1 R P LDK A2,DLE h $ P CF A5,WRIDLE SEND AN EXTRA DLE | P XIF P LDK A2,ETX LOAD ETX P RB TRT120 SEND ETX AND LRC P EJECT P* P
0x03aafc…03ac90 Dummy {f00=0x0012, f01=0x0190, f02=»' r P ST A6,FDWTUT SAVE A6 P CF A5,TRSYNC START OUTPUT ( P LDK A2,SOH J P CF A5,WRITE SEND SOH ^ P SUR A8,A8 RESET LRC | P LDK A2,'%' P CF A5,WRITEP SEND '%' P LDK A2,'R' P CF A5,WRITEP SEND 'R' P LDK A2,STX
0x03ac90…03ae24 Dummy {f00=0x0012, f01=0x0190, f02=»4 GET NETWORK SUB-ADDRESS P CF A5,WRITEP SEND STA " P LD A1,DWTST,A4 GET STATUS @ P ANK A1,/06 MASK FOR S/S 0 b P SRL A1,1 $ P LC A2,SSTAB,A1 GET STATUS BYTE P CF A5,WRITEP SEND S/S 0 P LDK A2,NOIR PRELOAD S/S 1 P LD A1,D
0x03ae24…03afb8 Dummy {f00=0x0012, f01=0x0190, f02=» PTRST10 EQU * P CF A5,WRITEP SEND S/S 1 P RB TRT130 SEND ETX AND LRC < P XIF ` P EJECT l P* z P* & P* TRSYNC : TRANSMIT SYNC SEQUENCE P* PTRSYNC EQU * ( P CF A5,CHALTI HALT INPUT IF NOT DONE , P CF A5
0x03afb8…03b14c Dummy {f00=0x0012, f01=0x0190, f02=» P* P LDK A3,4 PTRS100 EQU * P LDK A2,SYN 4 P CF A5,WRITE SEND CHARACTER H P SUK A3,1 l P RB(NZ) TRS100 ~ P RTN A5 RETURN TO CALLER P EJECT P* P* 0 P* CSYNCI :SEND SYNC-PATTERN FOR INPUT DATA
0x03b14c…03b2e0 Dummy {f00=0x0012, f01=0x018e, f02=»CI SET INPUT ACTIVE FLAG P IFT P6805=1 . P LDK A2,PARITY CHAR PARITY FUNCTION FOR LC 4 P CIO A2,1,LCUIN START I/O f P LDK A2,SYNC SYNC PATTERN 2 P OTR A2,1,LCUIN SEND INPUT SYNC-PATTERN TO LC P XIF P IFT P6805=0 * P LDKL A2
0x03b2e0…03b474 (1, 74) Dummy {f00=0x0013, f01=0x018e, f02=» P RTN A5 RETURN TO CALLER P* $ P* . " P* CHALTI : HALT INPUT CHANNEL 8 P* ^ PCHALTI EQU * h P IFT P6805=1 | $ P LDK A2,CBSTOP STOP FUNCTION BIT P XIF P CIO A2,0,LCUIN HALT INPUT & P CM DCLCI CLEAR INPUT ACTIVE FLAG
0x03b474…03b608 Dummy {f00=0x0013, f01=0x0190, f02=» X PCHALTR EQU * =1 P IFF LOGG=0 $ P CF A5,LOGSST LOGG INPUT STATUS 4 P XIF P RTN A5 RETURN TO CALLER h P EJECT P* P* 0 P* CSYNCO : START TRANSMITTER WITH SYNC DEF P* PCSYNCO EQU * P LD A2,PFPOS
0x03b608…03b79c Dummy {f00=0x0013, f01=0x0190, f02=»START | P RF(A) CSYNC1 ACCEPTED $ P SST A2,LCUUT TRY TO READ STATUS , * P ABL BRM NOT ACCEPTED TIMEOUT REQUEST T PCSYNC1 EQU * " P LDK A2,SYNC DEF SYNC PATTERN & P OTR A2,1,LCUUT SEND SYNC PATTERN P XIF P IFT P6805=0 & P C
0x03b79c…03b930 Dummy {f00=0x0013, f01=0x0190, f02=»HALT OUTPUT CHANNEL P* PCHALTO EQU * & P IFT P6805=1 : P LDK A2,CBSTOP STOP FUNCTION N P XIF r P CIO A2,0,LCUUT HALT OUTPUT ~ P IFT P6805=1 , P LDK A2,1 PRESET STATUS = MODEM ERROR =1 . P RF(NA) CHLT00 INSTRUCTION NOT ACC
0x03b930…03bac4 Dummy {f00=0x0013, f01=0x0190, f02=» P ANK A2,H:NOOP+H:THRU P RF(Z) CHLTO2 " $ P LDK A1,CSCDCE DCE NOT OPERABLE 8 P ANK A2,H:NOOP ` P RF(NZ) CHLTO1 YES v * P LDK A1,CSCDOT OUTPUT THROUGHPUT ERROR PCHLTO1 EQU * $ P CF A15,DCSUPS INCREMENT COUNTER PCHLTO2 EQU *
0x03bac4…03bc58 Dummy {f00=0x0013, f01=0x018e, f02=»1501 EQU * P ST P,INTSAV P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 < P XIF P h P IFF CPU852=1 p P MSR 8,A15 SAVE A1-A8 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P INR A2,0,LCUIN READ CHAR , P RF(NA)
0x03bc58…03bdec Dummy {f00=0x0013, f01=0x0190, f02=» P C2 TPM 8 P RF(NZ) IHLC10 DO NOT SKIP SYNC IN TRANSPARENT TEXT P XIF P P C2 SYNSW 0 P RF(NZ) IHLC05 DO NOT SKIP SYNS IN BCC FRAME n P CWK A2,SYNC P RF(E) READ PIHLC05 EQU * P IFT CODE=0 P XRR A8,A2 CALCULATE L
0x03bdec…03bf80 Dummy {f00=0x0013, f01=0x0190, f02=»LC10 EQU * P LDR A1,A2 * P ORKL A1,/FF00 SET FLAG FOR CARRIER ON $ & P ST A1,DCLCI SET INPUT ACTIV FLAG R P CM DCSTCU CLEAR SST SAVE | P LDK A1,1 P ST A1,DTEPLS,A7 CU OPERABLE P RTN A5 RETURN TO CALLER PIHIN20 EQU * P
0x03bf80…03c114 (1, 75) Dummy {f00=0x0013, f01=0x0190, f02=»1502 EQU * P ST P,INTSAV P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1 - A8 < P XIF ^ P j P IFF CPU852=1 r P MSR 8,A15 SAVE A1-A8 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RTN A5 P EJECT P* P
0x03c114…03c2a8 Dummy {f00=0x0013, f01=0x0190, f02=»NLY) SALCUZ r , P* BIT 14=THROUGHPUT ERROR , P* BIT 15=MODEM NOT READY D P* t PSST EQU * ~ P SST A2,LCUIN GET STATUS P LDR A1,A2 P IFT LOGG=1 & P CF A5,LOGSST LOGG SST INFORMATION P XIF
0x03c2a8…03c43c Dummy {f00=0x0013, f01=0x0190, f02=»PUT NOT ACTIVE IGNORE ( P RF(N) SST100 INPUT ACTIVE WITH DATA * P LDKL A2,CBCARR+SYNC DEF SYNC PATTERN J & P CIO A2,1,LCUIN START INPUT AGAIN x $ P RF SST125 RETURN TO DISPATCHER P XIF P IFT P6805=1 P RF SST100 P XIF P
0x03c43c…03c5d0 Dummy {f00=0x0013, f01=0x018e, f02=» IGNORE CARRIER OFF x P RF SST100 ACTIVE PSST075 EQU * 6 , P CM DTEPLS,A7 CLEAR PHYS. LINK STATUS DK J P LDR A2,A1 z $ P ANK A2,H:THRU THROUGHPUT ERROR P RF(Z) SST100 NO P IFT STTSTS=1 P* P* $ P* COUNT INPUT THR
0x03c5d0…03c764 Dummy {f00=0x0013, f01=0x018e, f02=» P LDR A2,A1 P ANK A2,H:NOOP NOT OPERABLE P RF(Z) SST200 : P IFT STTSTS=1 P P* f P* p P* COUNT DCE NOT OPERABLE z P* P LDK A1,CSCDCE P CF A15,DCSUPS P XIF P CF A15,STREG SAVE REGISTERS P CF A1
0x03c764…03c8f8 Dummy {f00=0x0013, f01=0x0190, f02=» P CF A15,LDREG LOAD REGISTERS PSST200 EQU * , P LDR A2,A1 @ . P ANK A2,H:CARR CHECK STATUS IF CARRIER OFF R P RF(Z) SST225 NO 4 P XRK A1,H:CARR CHECK STATUS IF ONLY CARRIER OFF P RF(Z) SST250 YES PSST225 EQU * 0 P ST A1
0x03c8f8…03ca8c Dummy {f00=0x0013, f01=0x018e, f02=»ITE FROM OR READ ONE CHARACTER TO A2 P* , P* 6 PWRITE EQU * @ P IFT CODE=1 T P C2 TPM h & P RF(Z) WRIT02 NOT TRANSPARENT MODE x P CWK A2,DLE CHECK IF DLE P RF(NZ) WRIT05 NO P CF A5,WRIDLE SEND EXTRA DLE P LDK A2,
0x03ca8c…03cc20 Dummy {f00=0x0013, f01=0x0190, f02=» b * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC P XIF 6 PWRIT05 EQU * B " P OTR A2,0,LCUUT SEND CHARACTER V P RF(A) WRIT10 | P IFF CODE=1 $ PWRIT10 XRR A8,A2 ACCUMULATE BCC P XIF P IFT CODE=1 & PWRIT10 CF A5,CRCCAL CALCUL
0x03cc20…03cdb4 (1, 76) Dummy {f00=0x0013, f01=0x018e, f02=» CF A15,STREG P ABL TDISP P* ( P* 2 < P* THESE INSTRUCTIONS ARE ONLY USED TO SEND AN EXTRA DLE < * P* WHEN TRANSPARENT MODE IS CONFIGURED | P* PWRIDLE EQU * " P OTR A2,0,LCUUT SEND CHARACTER P RB(A) WRIT15 ACCEPTED
0x03cdb4…03cf48 Dummy {f00=0x0013, f01=0x0190, f02=» P* P* P IFT CODE+P6805=0 SALCUZ PWRITEP ANK A2,/FF : P ECR A1,A2 T P ORK A2,/80 f PWRI100 SLL A1,1 z P RB(P) WRI100 P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 P XIF P IFF CODE+P6805=0 S
0x03cf48…03d0dc Dummy {f00=0x0013, f01=0x0190, f02=» CHECK PARITY t P* P* PREADP CF A5,READ * P IFT CODE+P6805=0 SALCUZ B P ECR A1,A2 d PRE100 SLL A1,1 v P RF(Z) RE110 P RB(NN) RE100 P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P
0x03d0dc…03d270 Dummy {f00=0x0013, f01=0x0190, f02=» ABR* A5 P* P* P EJECT $ P* 2 P* < P* POWER ON FUNCTIONS F P* b P* l PDC15ON EQU * v P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 P
0x03d270…03d404 Dummy {f00=0x0013, f01=0x0190, f02=»DDR p PDC1510 EQU * P RF(Z) DC1520 END OF CHAIN & P ORS A5,DWTST,A6 STORE DEVICE END B , P CF A15,INSSQ INSERT DWT IN STAUS QUEUE l * P LD A6,DWTCHN,A6 GET NEXT DWT IN CHAIN P RB DC1510 PDC1520 EQU * P =4 P =13
0x03d404…03d598 Dummy {f00=0x0013, f01=0x0190, f02=»ROL UNIT INFO x ( P LD A2,DCTPGP GET POLL TIMER POINTER " P RF(NZ) DC1540 ALREADY STARTED B $ P CF A15,SPOTIM START POLL TIMER h PDC1540 EQU * P ABL BRM P EJECT P IFT CODE=1 P* P* P* CALCULATION OF CRC P*
0x03d598…03d72c Dummy {f00=0x0013, f01=0x018e, f02=»SAV+6 P ST A3,CRCSAV+10 P ST A4,CRCSAV+14 & P LDK A1,8 > P LDR A4,A8 GET OLD CRC P PCRC100 LDR A3,A4 n P SRL A4,1 P XRR A3,A2 P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 P XRKL A4,/A001 PCRC110 SUK A1,
0x03d72c…03d8c0 Dummy {f00=0x0013, f01=0x0190, f02=» P LDKL A4,0 P RTN A5 P EJECT & P* 4 P* > ( P* READ CRC CHARACTERS AND CHECK THEM H P* CR = (E) IF CRC WAS OK t P* P* PRDCRC EQU * P STR A8,A5 SAVE CURRENT CRC " P SUK A5,2 ADJUST STACK POINTER $ P I
0x03d8c0…03da54 (1, 77) Dummy {f00=0x0013, f01=0x0190, f02=»M SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+6 SAVE IT * P SLL A2,8 J P XRR A2,A4 P ADK A5,6 n P CW A2,-4,A5 P ABR* A5 P XIF P IFT CODE=0 P* & P* RDLRC READ LRC CHARACTER " P* C
0x03da54…03dbe8 Dummy {f00=0x0013, f01=0x0190, f02=»L A8,/007F PLRCEND EQU * P CM SYNSW & P ABR* A5 8 P H P XIF P P EJECT , P**************************************** j P* P* DRIVER WORK AREAS P* , P**************************************** P* P*
0x03dbe8…03dd7c Dummy {f00=0x0013, f01=0x0190, f02=»OR v P IFF RBUFNR=2 P DATA *+RLINK P RES RBUFL+3 6 P IFF RBUFNR=3 J P DATA *+RLINK ` P RES RBUFL+3 v P IFF RBUFNR=4 P DATA *+RLINK P RES RBUFL+3 P XIF P DATA *+RLINK P RES RBUFL+3 P DATA 0
0x03dd7c…03df10 Dummy {f00=0x0013, f01=0x0190, f02=»FOR CONNECT REQUEST =16 x P XIF P EJECT , P* : P* D P* INTERRUPT LOGGING ROUTINE N P* r P* | P IFF LOGG=0 PLOGSST ST A2,SAVE2 P ORKL A2,/F000 P RF LOG10 PLOGOUT ST A2,SAVE2 P ORKL A2,/0F00
0x03df10…03e0a4 Dummy {f00=0x0013, f01=0x0190, f02=» STR A2,A3 P ADK A3,2 P CWK A3,LOGEND $ P RF(L) LOGEXI : P LDKL A3,LOGSTA P PLOGEXI ST A3,LOGPNT h P LD A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 P EJECT P* P* PLOGPNT DATA LOGSTA PLOGSTA EQU
0x03e0a4…03e238 Dummy {f00=0x0013, f01=0x0190, f02=»COM=1 P EJECT < P******************************************************* P* P* L I N C O L f P* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* > P******************************************************
0x03e238…03e3cc Dummy {f00=0x0013, f01=0x0190, f02=»SCII LINE NUMBER ~ " P CF A5,WRITEP SEND LINE NUMBER P > P LDR A2,A3 F P ANK A2,X'3F' X ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER n $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN P* P* P* P EJECT P
0x03e3cc…03e560 Dummy {f00=0x0013, f01=0x0190, f02=»/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/5D24,/2A29,/3B5E /18-/1F " * P DATA /2D2F,/5354,/5556,/5758 /20-/27 P * P DATA /595A,/7C2C,/255F,/3E3F /28-/2F ~ ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A23,/4027,/3D22 /38-3F P XIF
0x03e560…03e6f4 (1, 78) Dummy {f00=0x0014, f01=0x018e, f02=»A 0,0,0,0,0,0 P IFT MMUPAG=1 P DATA 0,0 , P XIF > P* DRIVER DEPENDENT PART J 2 P DATA DTESBU-DTETAB START OF STATISTIC BUFFER j P DATA 0,0,0,0,0,0 P DATA 0,0,0,0,0,0 * PDTESBU EQU * P DATA 0 SYMBOLIC ID P D
0x03e6f4…03e888 Dummy {f00=0x0014, f01=0x0190, f02=» P* PROCEDURE WORK AREAS P* & P* 0 * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION : . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION h PXACK DATA 0 ACK EXPECTED PXSEL DATA 0 SELECTED PXETX DATA 0 ETX SENT 2 PXSTA DATA 0 STATUS SEN
0x03e888…03ea1c Dummy {f00=0x0014, f01=0x0190, f02=»SKIP n & PTPM DATA 0 IF =1 TRANSPARENT TEXT P* 6 PFECB RES 1 WRITING ECB @ ( PFECBBA RES 1 WRITING BUFFER ADDRESS ^ & PFECBRL RES 1 WRITING BUFFER LENGTH PFBAX DATA 0 BUFFER INDEX 0 PFBLST DATA 0 START OF LAST TRANSMITTED BLOCK $ P
0x03ea1c…03ebb0 Dummy {f00=0x0014, f01=0x411a, f02=» DATA 0 CONTROL SEQUENCE SAVE AREA P* * P EJECT 4 P* B P* L P* CONSTANTS AND WORK AREAS V P* x P* PDCSTCU DATA 0 CURRENT STATUS , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL & PDCLCI DATA 0 DC UNIT INPUT STATUS
0x03ebb0…03ed44 Dummy {f00=0x0014, f01=0x2008, f02=» H P X ` h p x
0x03ed44…03eed8 Dummy {f00=0x0014, f01=0x0190, f02=»QU * P ST P,INTSAV P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 6 P XIF V P b P IFF CPU852=1 j P MSR 8,A15 SAVE A1-A8 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P INR A2,0,LCUIN READ CHAR , P RF(NA) IHIN20
0x03eed8…03f06c Dummy {f00=0x0014, f01=0x0190, f02=»TPM 8 P RF(NZ) IHLC10 DO NOT SKIP SYNC IN TRANSPARENT TEXT P XIF H P C2 SYNSW T 0 P RF(NZ) IHLC05 DO NOT SKIP SYNS IN BCC FRAME f P CWK A2,SYNC P RF(E) READ PIHLC05 EQU * P IFT CODE=0 P XRR A8,A2 CALCULATE LRC
0x03f06c…03f200 Dummy {f00=0x0014, f01=0x0190, f02=» * P LDR A1,A2 * P ORKL A1,/FF00 SET FLAG FOR CARRIER ON & P ST A1,DCLCI SET INPUT ACTIV FLAG J P CM DCSTCU CLEAR SST SAVE t P LDK A1,1 P ST A1,DTEPLS,A7 CU OPERABLE P RTN A5 RETURN TO CALLER PIHIN20 EQU * P CF A5,S
0x03f200…03f394 (1, 79) Opaque[0x194]
0x03f394…03f528 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0288, f03=0x0000}
0x03f394…03f528 IdxSect {
0x03f394…03f528 f00 = 0x0014 // 0x3f394 @0x0
0x03f394…03f528 f01 = 0x0002 // 0x3f396 @0x2
0x03f394…03f528 gno = [ // 0x3f398 @0x4
0x03f394…03f528 [0x00]: C0x0014.0x1.0
0x03f394…03f528 ]
0x03f394…03f528 }
0x03f528…03f6bc Dummy {f00=0x0014, f01=0x0190, f02=» 0 P IDENT DW1501 REL 11.0 81-03-27 870105041100 P 8 P =1, ECBCW2 MISSING @ P REL 11.0 81-01-26 ^ P* z : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER TO A
0x03f6bc…03f850 Dummy {f00=0x0014, f01=0x0190, f02=»0 STATUS./8000 MEANS DEVICE READY P DATA 0 ECB-ADDRESS * P DATA DWTEND-DW1501 F P RIGHT BYTE=ORDER b * P DATA DC15AD POINTER TO ADDRESS-BLOCK ~ P DATA 'DC' TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUE
0x03f850…03f9e4 Dummy {f00=0x0014, f01=0x0190, f02=»A 0 OFFSET TO STATISTIC BUFFER & P DATA 0 CONFIG CHAIN LINK HEAD DWT & & P DATA 0 CONFIG CHAIN LINK NEXT DWT P & P DATA 0 LOCAL SYMBOLIC DTE ADDRESS z ( P DATA 0 REMOTE SYMBOLIC DTE ADDRESS P DATA 0 SYMBOLIC SUBADDRESS P DATA 0 REQUEST CONT
0x03f9e4…03fb78 Dummy {f00=0x0014, f01=0x417c, f02=»WT b * P DATA 0 O/P DATA Q NORMAL LINK NXT DWT & P DATA 0 I/P DATA Q LINK TO BUFFER 8 " P DATA 0 I/P DATA TIMER POINTER b P DATA 0 CURSOR ADDRESS " P DATA 0 DEVICE BUFFER ADDRESS P DATA 0 DWT STATUS P* P IFT MMUPAG=1 PDC
0x03fb78…03fd0c Dummy {f00=0x0014, f01=0x2008, f02=» R ( P DATA DCAD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P DATA 0,0 SAVE ARE
0x03fd0c…03fea0 Dummy {f00=0x0014, f01=0x0190, f02=»FT BYTE T v P CCK A1,TYPRR CORRECT TYPE? U P RF(NE) RQST40 U 4 0 P CF A15,DCSRLL RESET ALL STATISTICS BUFFERS U J P LDR A1,A1 LUCKY AGAIN? U ~ , P ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR U PRQST40 EQU * U P ABL RTOK RETURN: OK U P XIF U
0x03fea0…040034 (1, 80) Opaque[0x194]
0x040034…0401c8 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0290, f03=0x0000}
0x040034…0401c8 IdxSect {
0x040034…0401c8 f00 = 0x0014 // 0x40034 @0x0
0x040034…0401c8 f01 = 0x0024 // 0x40036 @0x2
0x040034…0401c8 gno = [ // 0x40038 @0x4
0x040034…0401c8 [0x00]: C0x0014.0x2.0
0x040034…0401c8 [0x01]: C0x0014.0x3.0
0x040034…0401c8 [0x02]: C0x0015.0x0.0
0x040034…0401c8 [0x03]: C0x0015.0x1.0
0x040034…0401c8 [0x04]: C0x0015.0x2.0
0x040034…0401c8 [0x05]: C0x0015.0x3.0
0x040034…0401c8 [0x06]: C0x0016.0x0.0
0x040034…0401c8 [0x07]: C0x0016.0x1.0
0x040034…0401c8 [0x08]: C0x0016.0x2.0
0x040034…0401c8 [0x09]: C0x0016.0x3.0
0x040034…0401c8 [0x0a]: C0x0017.0x0.0
0x040034…0401c8 [0x0b]: C0x0017.0x1.0
0x040034…0401c8 [0x0c]: C0x0017.0x2.0
0x040034…0401c8 [0x0d]: C0x0017.0x3.0
0x040034…0401c8 [0x0e]: C0x0018.0x0.0
0x040034…0401c8 [0x0f]: C0x0018.0x1.0
0x040034…0401c8 [0x10]: C0x0018.0x2.0
0x040034…0401c8 [0x11]: C0x0018.0x3.0
0x040034…0401c8 ]
0x040034…0401c8 }
0x0401c8…04035c Dummy {f00=0x0014, f01=0x0190, f02=» 4 P IDENT TOSSIO REL 11.0 DK 81-10-10 870105041100 P < ( P =4, CPU857 DEFINITION NOT CORRECT D P =4, REL 11.0 81-03-18 p . P =3, ORDERS IN ORDTAB CHANGED TO FIT TND P =3, REL 11.0 81-02-25 & P =2, CORRECTION OF UPDATE =1 =1
0x04035c…0404f0 Dummy {f00=0x0014, f01=0x0190, f02=»************************************************ P* 8 $ P* PHILIPS TERMINAL SYSTEM PTS B P* j ( P* TOSSIO = TOSS I/O LKM PROCESSOR t P* P* P* 6 P************************************************** P* P*
0x0404f0…040684 Dummy {f00=0x0014, f01=0x0190, f02=»TIALIZE I/O P* P* -TENDIO END I/O P* : P* -ATTACH ATTACH DEVICE D P* f P* -DETACH DETACH DEVICE p P* 8 P* -DC:MIN DATA COMMUNICATION MOVE ROUTINE (READ) P* 8 P* -DC:MOT DATA COMMUNICATION MOVE R
0x040684…040818 Dummy {f00=0x0014, f01=0x0190, f02=» 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT * P* VALUES FOR ECB, DWT AND DAB AREAS. D P* r P EJECT TOSSIO | P* P* P*********** P* ENTRIES * P*********** P* P* P ENTRY TIO I/O P
0x040818…0409ac Dummy {f00=0x0014, f01=0x0190, f02=»D I/O 0 P ENTRY QUEDEV QUEUE REQUEST IN DEVICE QUEUE 4 P ENTRY QUEFIL QUEUE FILE REQUEST IN DEVICE QUEUE B 2 P ENTRY DC:MIN MOVE ROUTINE FOR DATACOM, INPUT z 2 P ENTRY DC:MOT MOVE ROUTINE FOR DATACOM, OUTPUT 6 P ENTRY TIOMXI CONVERT LOGICAL ADDR
0x0409ac…040b40 Dummy {f00=0x0014, f01=0x018e, f02=»NTRY ECBBA BUFFER ADDRESS " P ENTRY ECBRL REQUESTED LENGTH " " P ENTRY ECBEL EFFECTIVE LENGTH H P ENTRY ECBRC RETURN CODE n P ENTRY ECBCW CONTROL WORD P ENTRY ECBCW1 CONTROL WORD 1 P ENTRY ECBCW2 CONTROL WORD 2 2 P ENTRY DC:DIX DE
0x040b40…040cd4 (1, 81) Dummy {f00=0x0014, f01=0x0190, f02=» ` 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW < 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION l $ P ENTRY DK:DIX DEVICE INDEX DISC $ P ENTRY BUFLEN MMU BUFFER LENGTH P* P EJECT
0x040cd4…040e68 Dummy {f00=0x0014, f01=0x0190, f02=»ADDRESS x 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) 4 P ENTRY HDRLEN BUFFER HEADER LENGTH (DC DRIVERS) F " P ENTRY RECADR RECOVERY ADDRESS ~ P ENTRY ECHADR ECHO ADDRESS $ P ENTRY DWTCHP CHANNEL PARAMETERS P ENTRY DWTST STATUS
0x040e68…040ffc Dummy {f00=0x0014, f01=0x0190, f02=» ( P ENTRY DWTOCH LAST OUTPUT CHARACTER & P ENTRY DWTADR DRIVER ADDRESS BLOCK 0 P ENTRY DWTTAB TTAB ADDRESS Z * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR | P ENTRY DWTTQ TERMINAL QUEUE $ P ENTRY DWTOTQ OUTPUT QUEUE LINK " P ENTRY DWTUEC USER
0x040ffc…041190 Dummy {f00=0x0014, f01=0x0190, f02=»A4 SAVE AREA A4 P ENTRY DWTA5 SAVE AREA A5 & P ENTRY DWTSB1 STACK BASE 1 IN DWT : & P ENTRY DWTSB2 STACK BASE 2 IN DWT d P ENTRY DWTTP TIMER POINTER " P ENTRY DWTECH ECHO DEVICE DWT P ENTRY DWTSQ START OF QUEUE , P ENTRY DWTORD
0x041190…041324 Dummy {f00=0x0014, f01=0x018e, f02=»AREA A7 ~ P ENTRY DWTA8 SAVE AREA A8 & P ENTRY DWTCP2 CHANNEL PARAMETERS 2 2 * P ENTRY DWTLD1 LINE DRIVER DEPENDENT 1 * P ENTRY DWTLD2 LINE DRIVER DEPENDENT 2 ( P ENTRY DWTDEV TERMINAL DEVICE STATUS * P ENTRY DWTTBU PLC TEST BUFFER ADDRES
0x041324…0414b8 Dummy {f00=0x0014, f01=0x0190, f02=» P* P************* P* EXTERNALS * $ P************* : P* P P* Z " P EXTRN SAVE8 SAVE 8 REGISTERS d 0 P EXTRN IHRET8 RESTORE 8 REGISTERS AND RETURN 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS & P EXTRN ACTOTP ACTI
0x0414b8…04164c Dummy {f00=0x0014, f01=0x0190, f02=»G j P EXTRN TDISP DISPATCHER 2 P EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO * * P EXTRN LKMQDI QUEUE TASK AND DISPATCH ` * P EXTRN LKMERR HALT SYSTEM, FATAL ERROR , P EXTRN GETBLK PUT BLOCK IN PENDING QUEUE 2 P EXTRN FREBLK RELEASE BLOCK
0x04164c…0417e0 Dummy {f00=0x0014, f01=0x0190, f02=»XTRN TTB:ST TASK STATUS AND LEVEL & P EXTRN TTB:PW PROGRAM STATUS WORD * P EXTRN TTB:SA SAVE AREA T P EXTRN TTB:MT MMUTAB t P EXTRN HALT =1 P* P EJECT TOSSIO P* P* . P*****************************************
0x0417e0…041974 (1, 82) Dummy {f00=0x0015, f01=0x0190, f02=»N USING TOSS MMU PAGING ~ * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* N PMMUPAG EQU 1 X P* l P* v 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0
0x041974…041b08 Dummy {f00=0x0015, f01=0x0190, f02=»U 0 PATTDET EQU X:A P* " P* , 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU 6 * P* IS OBTAINED BY SETTING CPU857 EQU 1. n P* PCPU857 EQU 1 =4 P* PX:C EQU 0 PTC8000 EQU X:C P EJECT TOSSIO
0x041b08…041c9c Dummy {f00=0x0015, f01=0x0190, f02=» 8,8 P* P EJECT TOSSIO P* . P* 8 P********************* B P* DWT DISPLACEMENTS * ` P********************* ~ P* 2 P* DEVICE WORK TABLE DISPLACEMENTS: FIXED PART P* & PDWTCHP EQU /00 CHANNEL PARAMETERS
0x041c9c…041e30 Dummy {f00=0x0015, f01=0x0190, f02=» " PDWTOR EQU /06 INDEX AND ORDER ( PDWTOCH EQU /06 LAST OUTPUT CHARACTER * ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK V PDWTTAB EQU /0A TTAB ADDRESS * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR PDWTTQ EQU /0E TERMINAL QUEUE $ PDWTUEC EQU /10 U
0x041e30…041fc4 Dummy {f00=0x0015, f01=0x018e, f02=» PART f P XIF P* P IFT MMUPAG=1 $ 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART : P XIF r P* ~ P EJECT TOSSIO P* , P* DWT DISPLACEMENTS: DRIVER DEFINED PART P* , PDWTOTQ EQU DWTDRD+/00 OUTPUT QUEUE L
0x041fc4…042158 Dummy {f00=0x0015, f01=0x0190, f02=» & PDWTA5 EQU DWTDRD+/06 SAVE AREA A5 . PDWTSB1 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 & PDWTA7 EQU DWTDRD+/10
0x042158…0422ec Dummy {f00=0x0015, f01=0x0190, f02=»/14 CHANNEL PARAMETERS 2 ~ 2 PDWTLD1 EQU DWTDRD+/16 LINE DRIVER DEPENDENT 1 2 PDWTLD2 EQU DWTDRD+/18 LINE DRIVER DEPENDENT 2 V 0 PDWTDEV EQU DWTDRD+/1A TERMINAL DEVICE STATUS P 2 PDWTTBU EQU DWTDRD+/1A PLC TEST BUFFER ADDRESS * PDWTVOL EQU
0x0422ec…042480 Dummy {f00=0x0015, f01=0x0190, f02=»TTCW EQU DWTDRD+/1E PLC TEST PARAMETER ( PDWTSQ EQU DWTDRD+/2A START OF QUEUE . P* Z P EJECT TOSSIO d P* | P* P********************* P* DAB DISPLACEMENTS * P********************* P* ( P* DRIVER ADDRESS BLO
0x042480…042614 (1, 83) Dummy {f00=0x0015, f01=0x0190, f02=» INDEX | $ PACTADR EQU 0 ACTIVATION ADDRESS PABTADR EQU 2 ABORT ADDRESS 6 " PINTADR EQU 4 INTERRUPT ADDRESS X 2 PPOLADR EQU 4 BUFFER POOL ADDRESS (DC DRIVERS) ~ 2 PHDRLEN EQU 6 BUFFER HEADER LENGTH (DC DRIVERS) " PRECADR EQU 6 RECOVERY ADDRESS
0x042614…0427a8 Dummy {f00=0x0015, f01=0x0190, f02=»************* P* P* J P* THE VALUES ARE USED IN MMU SYSTEMS FOR SELECTING A SPECIAL ROUTINE * F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. x P* $ PDC:DIX EQU -2 DATA COMMUNICATION PDM:DIX EQU 0 DATA MA
0x0427a8…04293c Dummy {f00=0x0015, f01=0x018e, f02=»QU 8 INTERTASK COMMUNICATION PDK:DIX EQU 10 DISC $ P* > P EJECT TOSSIO H P* ` P* j P********************* t P* ECB DISPLACEMENTS * P********************* P* ( P* EVENT CONTROL BLOCK DISPLACEMENTS P*
0x04293c…042ad0 Dummy {f00=0x0015, f01=0x018e, f02=» PECBEL EQU 6 EFFECTIVE LENGTH PECBRC EQU 8 RETURN CODE ( PECBCW EQU 10 CONTROL WORD H PECBCW1 EQU 10 CONTROL WORD 1 j PECBCW2 EQU 12 CONTROL WORD 2 P* P EJECT TOSSIO P* P* P IFT MMUPAG=1 P* P
0x042ad0…042c64 Dummy {f00=0x0015, f01=0x018e, f02=» P* 2 PTIOTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE . P DATA TIO:DM DATA MANAGEMENT, INPUT/OUTPUT D * P DATA TIOPCI PROGRAMMED CHANNEL, INPUT v P DATA TIOMXI MUX, INPUT $ P DATA TIOKBI KEYBOARD/CTW, INPUT 0 P DATA TIOITI INTERTASK COMMU
0x042c64…042df8 Dummy {f00=0x0015, f01=0x0190, f02=» f P DATA TIOMXO MUX, OUTPUT & P DATA TIOKBO KEYBOARD/CTW, OUTPUT ( 0 P DATA TIOITO INTERTASK COMMUNICATION, OUTPUT R P DATA TIODKO DISC, OUTPUT P* P EJECT TOSSIO P* P* P********** P* TENTAB * P******
0x042df8…042f8c Dummy {f00=0x0015, f01=0x0190, f02=»RESS TABLE l . P DATA TEN:DM DATA MANAGEMENT, INPUT/OUTPUT * P DATA TENPCI PROGRAMMED CHANNEL, INPUT D P DATA TENMXI MUX, INPUT r $ P DATA TENKBI KEYBOARD/CTW, INPUT 0 P DATA TENITI INTERTASK COMMUNICATION, INPUT P DATA TENDKI DISC, INPUT
0x042f8c…043120 Dummy {f00=0x0015, f01=0x0190, f02=»NITO INTERTASK COMMUNICATION, OUTPUT P DATA TENDKO DISC, OUTPUT , P XIF N P* Z P EJECT TOSSIO d P* | P* P********** P* MONMMU * P********** P* P* MONITOR (SYSTEM) MMU TABLE P* PMONMMU EQU
0x043120…0432b4 (1, 84) Dummy {f00=0x0015, f01=0x0190, f02=»0 t " P DATA /3000,/3400,/3800,/3C00 P XIF 0 P* < P EJECT TOSSIO F P* ^ P* h P IFT ATTDET=1 r P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P* P* T I M O U T P* P* INPUT: A1 = DWT ADD
0x0432b4…043448 Dummy {f00=0x0015, f01=0x0190, f02=» t P* A6 = DWT ADDRESS " P* A1-A3 ARE DESTROYED * P* P PTIMOUT LDR A6,A1 Z & P LDR* A2,A2 TIMER POINTER ADDRESS r P LD A5,2,A2 TTAB ADDRESS P CF A15,FNDBLK P LDR* A1,A4 " P STR A1,A2 REMOVE FROM ATT:CH
0x043448…0435dc Dummy {f00=0x0015, f01=0x0190, f02=» & P ADK A1,DWTTQ QUEUE ANCHOR ADDRESS P* . PTIM:10 LDR A2,A1 SAVE 8 P LDR* A1,A1 NEXT IN QUEUE V , P RF(Z) TIM:20 ERROR IN QUEUE HANDLING =1 x P CWR A1,A5 P RB(NE) TIM:10 NOT FOUND P* P EJECT TOSSIO P* & P*
0x0435dc…043770 Dummy {f00=0x0015, f01=0x0190, f02=»DATE DISPATCH ADDRESS | 6 P LD A8,TTB:SA+16,A5 ECB ADDRESS FROM A8 SAVE AREA ! P LDK A3,/40 SET TIMEOUT BIT ! X P* ! | P IFT MMUPAG=0 ! * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB ! P XIF ! P* ! P IFT ATTDET=1 ! P IFT MMUPAG=1 !
0x043770…043904 Dummy {f00=0x0015, f01=0x0190, f02=» TABLE ! l P XIF " P* " P IFT ATTDET=1 " $ & P RF TIORTN QUEUE TASK AND DISPATCH " : PTIM:20 EQU * =1 " d P LDK A1,1 INDICATE ERROR =1 " | P CF A15,HALT =1 " P* " P EJECT TOSSIO " P* " P* F N D B L K " P* " ( P* SU
0x043904…043a98 Dummy {f00=0x0015, f01=0x0190, f02=»K IN CHAIN " h 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0 # P* # H ( PFNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS # R P* # ~ PFND:10 LDR A2,A4 SAVE A4 # P LDR* A4,A4 # P RF(Z) FND:20 END OF ATT:CH # P CW A5,4,A4 # P RB(NE) FND:10 NOT F
0x043a98…043c2c Dummy {f00=0x0015, f01=0x0190, f02=»FT CPU852=0 # P RTN A15 RETURN $ P XIF $ , P* $ 8 P IFT ATTDET=1 $ B & PATT:CH DATA 0 ATTACH CHAIN ANCHOR $ X P* $ P EJECT $ P* $ P* F R A B L K =1 $ P* $ 0 P* FREE BLOCK AND TIMER IN ATT:CH IF FOUND =1 $ P* $ P*
0x043c2c…043dc0 Dummy {f00=0x0015, f01=0x018e, f02=»1 =1 $ ~ * P CF A15,FNDBLK FIND BLOCK IN ATT:CH =1 % P ADK A4,0 SET CR =1 % : . P RF(Z) FRAEND TASK NOT FOUND IN ATT:CH =1 % V P CM* 2,A4 FREE TIMER =1 % & P LDR* A3,A4 REMOVE FROM ATTACH =1 % P STR A3,A2 =1 % $ P CF A15,FREBLK RELEASE BLOCK =1
0x043dc0…043f54 (1, 85) Dummy {f00=0x0015, f01=0x0190, f02=» P********** & P* ATTACH * & P********** & ( P* & : P* & D * P* THIS MODULE IS CALLED FROM TIO WITH & N P* THE FOLLOWING PARAMETERS: & | P* & & P* A3 /8000 (REQUEST ERROR BIT) & & P* A4 I/O AND ACTIVATE INDICATOR & P* A5 TT
0x043f54…0440e8 Dummy {f00=0x0015, f01=0x018e, f02=» A12 ADDRESS TO DRIVER ADDRESS BLOCK & P* A13 DWT STATUS ' . P* ' H PATTACH EQU * ENTRY ' R P ADK A4,0 SET CR ' l * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR ' P* ' P IFT MMUPAG=0 ' " P CM ECBRC,A8 RESET RETURN CODE ' P XIF ' P* '
0x0440e8…04427c Dummy {f00=0x0015, f01=0x0190, f02=» P* ( P* ( P IFT ATTDET=1 ( P TM A10,A13 ( . * P RF(NZ) ATT:40 DEVICE ALREADY ATTACHED ( B P LDR A13,A13 ( p P RF(NN) ATT:50 DEVICE BUSY ( P* ( P* ATTACH REQUESTING TASK ( P* ( P ORS A10,DWTST,A6 ATTACH ( , P ST A5,DWT
0x04427c…044410 Dummy {f00=0x0015, f01=0x0190, f02=» TASK ( l P* ) PATT:50 EQU * =1 ) P* ) 0 P* SET TIMER ) : P* ) R P IFT MMUPAG=0 ) P LD A1,ECBCW,A8 TIME ) r P XIF ) P* ) P EJECT TOSSIO ) P* ) P* ) P IFT ATTDET=1 ) P IFT MMUPAG=1 ) P EL A1,ECBCW
0x044410…0445a4 Dummy {f00=0x0015, f01=0x0190, f02=» PATT:60 ST A1,ATTIM * P LDR A1,A5 TTAB ADDRESS * P LD A3,ATT:CH ANCHOR * > P CF A15,GETBLK BLOCK * Z P ST A4,ATT:CH UPDATE ANCHOR * v $ P ADK A4,2 TIMER POINTER ADDRESS * P LDR A1,A6 DWT ADDRESS * P CF A15,SETIMP SET TIMER * P DATA TI
0x0445a4…044738 Dummy {f00=0x0015, f01=0x0190, f02=»DK A3,/40 SET TIME OUT BIT * P RF TIOERR RETURN + " P* + < P EJECT TOSSIO + F P* + ^ P* + h P********** + r P* DETACH * + P********** + P* + * P* THIS MODULE IS CALLED FROM TIO WITH + $ P* THE SAME PARAMETERS AS ATTACH. + P
0x044738…0448cc Dummy {f00=0x0015, f01=0x0190, f02=»T ATTACHED + P CW A5,DWTTAB,A6 , * P RF(NE) TIOERR ATTACHED TO OTHER TASK , * P XRS A10,DWTST,A6 DETACH , X $ P LDR A7,A5 SAVE TTAB ADDRESS =1 , x P LD A5,DWTTQ,A6 QUEUE ANCHOR , P RF(Z) DET:10 QUEUE EMPTY , 2 P CF A15,FRABLK FREE ATTACH BLOCK A
0x0448cc…044a60 Dummy {f00=0x0015, f01=0x0190, f02=»10 EQU * , & P LDR A5,A7 RESTORE TTAB ADDRESS =1 - P* - : 2 PATTRTN EQU * COMMON ATTACH/DETACH NORMAL EXIT - D PDETRTN LDK A3,0 RETURN CODE - z P XIF - P* - P EJECT TOSSIO - P* - P* - P********** - P* TIOERR * - P****
0x044a60…044bf4 (1, 86) Dummy {f00=0x0016, f01=0x018e, f02=»'. - n P* . PTIOERR EQU * . P IFT MMUPAG=0 . ( * P ST A3,ECBRC,A8 SET RETURN CODE IN ECB . > ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH . l P XIF . P* . P IFT MMUPAG=1 . * P ES A3,ECBRC,A8 SET RETURN CODE IN ECB . P LDK A3,0 . * P ES
0x044bf4…044d88 Dummy {f00=0x0016, f01=0x0190, f02=» P EJECT TOSSIO / P* / P* / & P**************** / 0 P* QUEUE DEVICE * / H P**************** / ` P* / x P* / 8 P* THIS IS THE ROUTINE FOR QUEUEING DEVICE REQUESTS. / > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON / @
0x044d88…044f1c Dummy {f00=0x0016, f01=0x0190, f02=»CHED, WHETHER THE DEVICE IS ATTACHED TO THE TASK OR NOT. / P* 0 @ P IFT ATTDET=1 0 J P* 0 ` P* QUEUE ECHO DEVICE FIRST 0 j P* 0 PTIOQ00 LDR A6,A2 0 P* 0 P* QUEUE DEVICE FIRST 0 P* 0 $ PTIOQ05 ADK A6,DWTTQ QUEUE ANCHOR 0 P L
0x044f1c…0450b0 Dummy {f00=0x0016, f01=0x0190, f02=» P* 1 . PQUEDEV EQU * ENTRY USED BY FILE MANAGEMENT 1 $ PTIOQ20 ADK A6,DWTTQ QUEUE ANCHOR 1 @ P* 1 h . PQUEFIL EQU * ENTRY USED BY FILE MANAGEMENT 1 r P LD A1,TTB:ST+1,A5 LEVEL 1 P* 1 P EJECT TOSSIO 1 P* 1 * P* SEARCH QUEUE FOR PLACE
0x0450b0…045244 Dummy {f00=0x0016, f01=0x0190, f02=»TB:ST+1,A6 COMPARE LEVELS 1 P RB(NL) TIOQ30 TRY NEXT 2 " P* 2 B 0 P* INSERT IN QUEUE AND UPDATE PROGRAM COUNTER 2 L P* 2 PTIOQ40 LDKL A3,-4 2 P STR A6,A5 INSERT IN QUEUE 2 P STR A5,A2 2 P ADK A4,0 SET CR 2 P RF(Z) TIOQ50 NO ACTIVAT
0x045244…0453d8 Dummy {f00=0x0016, f01=0x0190, f02=» ABL TDISP GO TO DISPATCHER 2 P* 3 $ P EJECT TOSSIO 3 . P* 3 F P* 3 P P******* 3 Z P* TIO * 3 j P******* 3 z P* 3 P* 3 4 P* THIS MODULE IS ENTERED WHEN TASK INPUT/OUTPUT 3 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED 3
0x0453d8…04556c Dummy {f00=0x0016, f01=0x0190, f02=»OPTION SPECIAL DEVICE 3 x * P* DEPENDENT SUBROUTINES ARE PERFORMED. 4 P* 4 L 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE 4 V & P* WITH THE FOLLOWING PARAMETERS:- 4 P* 4 . P* A1 = PARAMETER WHEN I/O AND ACTIVATION 4 P* 4 $ P* A4 =
0x04556c…045700 Dummy {f00=0x0016, f01=0x0190, f02=»R CODE 4 P* 5 P* A8 = ECB ADDRESS 5 P* 5 4 P EJECT TOSSIO 5 > P* 5 V P* 5 ` < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER 5 j * P* WITH THE FOLLOWING REGISTER VAULES:- 5 P* 5 P* A5 = STACK BASE 2 IN DWT 5 P*
0x045700…045894 (1, 87) Dummy {f00=0x0016, f01=0x0190, f02=»TO DRIVER ADDRESS BLOCK 5 P* 6 0 P* A13 = 0, IF REQUEST ISSUED IN SYSTEM MODE 6 * . P* = 1, " " " " USER MODE 6 ^ P* 6 P* 6 , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- 6 P* 6 " P* -DWTOR DWT INDEX AND ORDER 6 P* -
0x045894…045a28 Dummy {f00=0x0016, f01=0x0190, f02=» . P* -DWTUEC USER ECB ADDRESS (MMU SYSTEMS) 7 P* 7 6 P* 7 @ * P* THE FOLLOWING ECB FIELDS ARE RESET:- 7 J P* 7 x P* -BIT 0 IN THE FIRST WORD 7 P* -ECBEL EFFECTIVE LENGTH 7 P* -ECBRC RETURN CODE 7 P* 7 P EJECT TOSSIO 7
0x045a28…045bbc Dummy {f00=0x0016, f01=0x0190, f02=» * ENTRY USED BY FILE MANAGEMENT 7 P CF A15,SWITCH SWITCH LEVEL 8 ( P INH 8 L P LDKL A3,/8000 8 X P ADK A6,0 SET CR 8 n $ P RB(Z) TIOERR FILE CODE UNKNOWN 8 6 P LD A12,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A13,DWTST,A6 DWT STATUS 8
0x045bbc…045d50 Dummy {f00=0x0016, f01=0x0190, f02=»T=1 8 P LDKL A10,/0800 ATTACH BIT 9 P CCK A7,/BB00 9 . P RB(E) ATTACH ATTACH ORDER 9 D P CCK A7,/BC00 9 f P RB(E) DETACH DETACH ORDER 9 | P TM A10,A13 9 P RF(Z) TIO020 NOT ATTACHED 9 P CW A5,DWTTAB,A6 9 * P RB(NE) TIOQ20 ATTACHED TO O
0x045d50…045ee4 Dummy {f00=0x0016, f01=0x0190, f02=»O020 EQU * 9 P TM A3,A13 : P RB(Z) TIOQ20 DEVICE BUSY : $ P* : F P EJECT TOSSIO : P P* : h H P* CHECK IF ECHO, AND WHEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED : r P* : * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX : P LDK A2,/40 CHECK
0x045ee4…046078 Dummy {f00=0x0016, f01=0x0190, f02=»KEYBOARD : x 4 P RF(NZ) TIO070 ECHO NOT ALLOWED IF NOT KEYBOARD ; , P LD A2,DWTECH,A6 ECHO DEVICE DWT ADDRESS ; H P RF(Z) TIO070 NO ECHO DEVICE ; x $ P LD A14,DWTST,A2 ECHO DWT STATUS ; P* ; P IFT ATTDET=1 ; P TM A10,A14 ; * P RF(Z) TIO050 EC
0x046078…04620c Dummy {f00=0x0016, f01=0x0190, f02=») TIO060 ECHO DEVICE NOT BUSY ; & P RB TIOQ00 BUSY, QUEUE ECHO DEVICE < & P XIF < P P* < P EJECT TOSSIO < f P* < ~ P* < PTIO050 TM A3,A14 < " P RB(Z) TIOQ10 ECHO DEVICE BUSY < P* < PTIO060 LDKL A3,/A000 < : P XRS A3,DWTST,A2 U
0x04620c…0463a0 Dummy {f00=0x0016, f01=0x0190, f02=» ECHO BITS IN DWT STATUS < l P* = P IFT MMUPAG=1 = * P LD A13,TTB:PW,A5 PSW = @ $ P ANKL A13,1 SYSTEM/USER MODE BIT = ^ $ P RF(NZ) TIO100 JUMP IF USER MODE = P LDKL A2,/7FFF = , P ANRS A2,A8 RESET BIT 0 IN ECB FILE CODE = , P ST A8,DWTECB,A6 SET
0x0463a0…046534 (1, 88) Dummy {f00=0x0016, f01=0x0190, f02=» P EJECT TOSSIO > P* > P* MOVE USER ECB TO DWT ECB > & P* > H PTIO100 EQU * > R P LDKL A2,/4FFF > f * P ELR A3,A8 LOAD FIRST WORD OF USER ECB > | 0 P ANR A3,A2 RESET BITS 0,2,3 IN ECB FILE CODE > P ESR A3,A8 > ( P LD A2,DWTMEC,A6 DWT MMU
0x046534…0466c8 Dummy {f00=0x0016, f01=0x0190, f02=» A9,A8 > P LDK A3,0 ? * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH ? & P ES A3,ECBRC,A8 RESET RETURN CODE ? N P* ? x P LDR A10,A1 SAVE PARAMETER ? P LDR A1,A8 ? P ADK A1,ECBRL ? ( P LDR A8,A2 SET A8 TO DWT ECB ADDRESS ? P ADK A2,ECBRL ?
0x0466c8…04685c Dummy {f00=0x0016, f01=0x018e, f02=»FT MMUPAG=0 ? P LDKL A3,/7FFF @ , P ANRS A3,A8 RESET BIT 0 IN ECB FILE CODE @ * ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH @ Z $ P CM ECBRC,A8 RESET RETURN CODE @ P XIF @ P* @ P EJECT TOSSIO @ P* @ P* @ PTIO110 EQU * @ P ECR
0x04685c…0469f0 Dummy {f00=0x0016, f01=0x0190, f02=» P* A PTIO120 EQU * A P LDR A3,A7 A " P ANK A7,/3F A 4 ( P SC A7,DWTOR+1,A6 STORE ORDER IN DWT A H 0 P ST A5,DWTTAB,A6 SAVE TTAB ADDRESS IN DWTTAB A t P* A PTIO130 EQU * A P IFT MMUPAG=0 A & P ST A8,DWTECB,A6 SET ECB ADDRESS A P X
0x0469f0…046b84 Dummy {f00=0x0016, f01=0x018e, f02=»ETER A z & P RF(NZ) TIO210 I/O AND ACTIVATION B 4 P ANK A3,/80 NORMAL I/O. CHECK IF WAIT REQUESTED B 6 P RF(Z) TIO220 NOT WAIT B n P LDK A4,1 INDICATE WAIT B P RF TIO230 B P* B P* I/O WITH ACTIVATION B P* B < PTIO210 CF A15,GETBLK SAV
0x046b84…046d18 Dummy {f00=0x0016, f01=0x0190, f02=» B P* WAIT C P* C 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR C P* C P EJECT TOSSIO C f P* C ~ P* C P IFT MMUPAG=1 C * P LDR A13,A13 CHECK IF SYSTEM/USER MODE C & P RF(Z) TIO250 JUMP IF SYSTEM MODE C " P LD A3,D
0x046d18…046eac Dummy {f00=0x0016, f01=0x0190, f02=» IF DISC C | P RF(NE) TIO235 NOT DISC D ( P CF A15,TIOCW2 MOVE 2ND CONTROL WORD D 0 P* D " P* PERFORM CHECK ON ORDER CODE D f P* D PTIO235 EQU * D P LDR A4,A7 ORDER CODE D 0 P CF A15,RD:WR2 CHECK IF ORDER IS READ/WRITE D . P RF(Z) TIO25
0x046eac…047040 Dummy {f00=0x0016, f01=0x0190, f02=» D X P XIF E P* E * PTIO250 ENB GIVE OTHER TASKS A CHANCE E P* E L * PTIO260 LDK A5,DWTSB2 LOAD STACK BASE 2 E V P ADR A5,A6 E P INH E & P ABR* A12 GO TO DRIVER ACTIVATION E P* E P EJECT TOSSIO E P* E P* E P******
0x047040…0471d4 (1, 89) Dummy {f00=0x0016, f01=0x0190, f02=» E l ( P* IF CPU852, " " " " 16 F ( P* IF CPU857, " " " " 16 F 4 P* F ` $ P* A3 IS DESTROYED, AND SO IS CR F j P* F & PSWITCH EQU * SWITCH LEVEL ON STACK F P IFT TC8000=0 F P IFF CPU852+CPU857=0 =4 F P LDK A3,/40
0x0471d4…047368 Dummy {f00=0x0016, f01=0x0190, f02=» F | P LDK A3,/30 CPU851: LEVEL 12 G P XIF G , P* G 8 P* G B ( P SC A3,2,A15 SET NEW LEVEL ON STACK G L " P RTN A15 RETURN WITH NEW LEVEL G x P* G P EJECT TOSSIO G P* G P* G P IFT MMUPAG=0 G 0 PTIOMXI EQU * DUMMY ENTRY IN NO
0x047368…0474fc Dummy {f00=0x0016, f01=0x0190, f02=» P* H @ P* THIS MODULE IS CALLED BY 'TIO' AND 'TENDIO' FOR SELECTING H @ P* THE APPROPRIATE ROUTINE AT READ/WRITE REQUESTS, DEPENDING H R > P* ON THE DEVICE CONNECTION (PROGRAMMED CHANNEL, MUX ETX). H > P* IF NO READ/WRITE REQUEST, CONDITION REGISTER O
0x0474fc…047690 Dummy {f00=0x0016, f01=0x0190, f02=» H v P* I : P* OUTPUT: A3 = INDEX FOR USE IN THE INDEXED BRANCHING I . P* CR = 0 IF NO READ/WRITE REQUEST I P , P* CR <> 0 IF READ/WRITE REQUEST I P* A4 IS DESTROYED I P* I , PRD:WR LD A4,DWTOR,A6 ORDER CODE FROM DWT I P A
0x047690…047824 Dummy {f00=0x0016, f01=0x0190, f02=»)* A15 RETURN IF NO READ/WRITE ORDER I P SUK A4,1 J , $ P ADR A3,A4 ADD READ/WRITE INDEX J > ( P ABR* A15 RETURN WITHOUT CHANGING CR J f P* J P EJECT TOSSIO J P* J P* J P********** J P* ORDTAB * J P********** J P* J 2 P
0x047824…0479b8 Dummy {f00=0x0016, f01=0x0190, f02=»: WRITE ORDER J P* K PORDTAB EQU * ORDER CONSTANTS K P BYTES 0,1 /00, /01 K D P BYTES 1,1 /02, /03 K ` P BYTES 0,TINDEX+1 /04, /05 K | & P BYTES TINDEX+1,TINDEX+1 /06, /07 K P BYTES TINDEX+1,0 /08, /09 K P BYTES 1,TINDEX+1 /0A, /0B K
0x0479b8…047b4c Dummy {f00=0x0016, f01=0x0190, f02=»4, /15 K | P BYTES 0,0 /16, /17 L P BYTES 0,0 /18, /19 L * P BYTES 0,0 /1A, /1B L F P BYTES 0,0 /1C, /1D L b P BYTES 0,0 /1E, /1F L ~ P BYTES 0,TINDEX+1 /20, /21 L P BYTES TINDEX+1,0 /22, /23 L P BYTES TINDEX+1,0 /24, /25 L P BYTES 0
0x047b4c…047ce0 Dummy {f00=0x0016, f01=0x0190, f02=»X+1 /2E, /2F L P BYTES 0,0 /30, /31 M P BYTES 0,0 /32, /33 M 0 P BYTES 0,0 /34, /35 M L P BYTES 0,0 /36, /37 M h P BYTES 0,0 /38, /39 M P BYTES 0,0 /3A, /3B M P BYTES 0,0 /3C, /3D M P BYTES 0,0 /3E, /3F M P* M P EJECT T
0x047ce0…047e74 (1, 90) Dummy {f00=0x0017, f01=0x0190, f02=»S BEEN ISSUED. M x 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT N , P* COMPLETION OF THE REQUEST IS 'TEN:DM'. N N P* N ~ " P* INPUT: A8 = DWT ECB ADDRESS N $ P* A9 = USER ECB ADDRESS N P* N P* OUTPUT: A2 IS DESTROYED N P* N
0x047e74…048008 Dummy {f00=0x0017, f01=0x0190, f02=»W2 EQU * N ( P EL A2,ECBCW2,A9 SECOND CONTROL WORD O P ST A2,ECBCW2,A8 O < P* O T PA15RTN EQU * O ^ P RTN A15 O r P* O P EJECT TOSSIO O P* O P* T I O P C I O P* O B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS B
0x048008…04819c Dummy {f00=0x0017, f01=0x0190, f02=» ARE O V < P* EVEN OR UNEVEN, DEPENDING ON THE USER BUFFER ADDRESS. P 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT P L , P* COMPLETION OF THE REQUEST IS 'TENPCI'. P 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. P P* P " P* INPUT: A8 = DWT
0x04819c…048330 Dummy {f00=0x0017, f01=0x0190, f02=»STROYED P ~ P* Q * PTIOPCI EQU * PROGRAMMED CHANNEL, INPUT Q $ P LD A1,ECBRL,A8 REQUESTED LENGTH Q H 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE Q p 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE Q P* Q . PTIPI05 EQU * ENTRY POINT USED
0x048330…0484c4 Dummy {f00=0x0017, f01=0x0190, f02=»ECBBA,A8 Q P RTN A15 R P* R 0 PTIPI10 SUK A1,2 MAKE DWT BUFFER ADDRESS EVEN R * P ANS A1,ECBBA,A8 R ^ P RTN A15 R v P* R P EJECT TOSSIO R P* R P* T I O M X I R P* R B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST H
0x0484c4…048658 Dummy {f00=0x0017, f01=0x0190, f02=»H IS R Z , P* TRANSFERRED TO THE MUX BY THE DRIVER. S 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT S < , P* COMPLETION OF THE REQUEST IS 'TENMXI'. S t N P* NOTICE THAT MODULES 'TIOMXO', 'TIODKI' AND 'TIODKO' ARE EQUAL TO TIOMXI. S P* S P* INPUT:
0x048658…0487ec Dummy {f00=0x0017, f01=0x0190, f02=»D S t B P* 18 BIT USER BUFFER ADDRESS IS TRANSFERRED TO DWT ECB T P* T P PTIOMXI EQU * MUX, INPUT T Z P LDK A1,0 T z 2 P EL A2,ECBBA,A9 USER BUFFER ADDRESS (LOGICAL) T " P DLL 4 4 LEFTMOST BITS INTO A1 T P ADR A1,A1 DOUBLE INDEX T P
0x0487ec…048980 Dummy {f00=0x0017, f01=0x0190, f02=» SET BITS 0-1 IN DWT ECB 1ST WORD T 0 P ST A2,ECBBA,A8 BITS 2-17 IN 18-BIT ADDRESS U * P RTN A15 U ^ P* U n P EJECT TOSSIO U x P* U P* T I O K B I U P* U B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN U N P* ISSUED
0x048980…048b14 (1, 91) Dummy {f00=0x0017, f01=0x0190, f02=» 'TIOPCI' AND ENTRY TIPO05 IN 'TIOPCO'. U 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT V 0 , P* COMPLETION OF THE REQUEST IS 'TENKBI'. V h P* V P* INPUT: A6 = DWT ADDRESS V P* A7 = ORDER CODE V " P* A8 = DWT ECB ADDRESS V P* A
0x048b14…048ca8 Dummy {f00=0x0017, f01=0x0190, f02=»OKBI EQU * KEYBOARD/CTW V $ P LD A1,ECBRL,A8 REQUESTED LENGTH W 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE W H 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE W ~ 6 P CF A15,TIPI05 CHECK AND CORRECT BUFFER ADDRESSES W P CWK A7,1 CHECK ORDER
0x048ca8…048e3c Dummy {f00=0x0017, f01=0x0190, f02=» P* X P EJECT TOSSIO X P* X & P* X 0 P LDR A1,A9 X : P ADK A1,8 X L P ADKL A8,12 X ^ * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS X r P SUKL A8,4 X * P ELR A3,A4 FIRST WORD OF USER KEYTABLE X P ANK A4,1 X * P RF(NZ) TIKB10 KEYTABL
0x048e3c…048fd0 Dummy {f00=0x0017, f01=0x0190, f02=»1 X 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE Y P RF(G) IO:ERR TOO SMALL Y > P CF A15,TIPO05 Y ^ & P SUKL A8,8 ADJUST DWT ECB ADDRESS Y t P* Y PTIKB20 EQU * Y P RTN A15 Y P* Y P EJECT TOSSIO Y P* Y P* T I O I T I Y
0x048fd0…049164 Dummy {f00=0x0017, f01=0x018e, f02=», INPUT Y z P* Z P EJECT TOSSIO Z P* Z 2 P* T I O P C O Z < P* Z R B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN Z > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. Z B P* TIOPCO CHECKS THAT REQUESTED LENGT
0x049164…0492f8 Dummy {f00=0x0017, f01=0x0190, f02=» Z r 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT [ , P* COMPLETION OF THE REQUEST IS 'TENPCO'. [ @ 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. [ p F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. [ & P* TIOPCO IS ALSO USE
0x0492f8…04948c Dummy {f00=0x0017, f01=0x018e, f02=»STROYED [ z P* , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK J $ P LD A3,ECBRL,A8 REQUESTED LENGTH ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE
0x04948c…049620 Dummy {f00=0x0017, f01=0x018e, f02=» P* ] P* ] : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' ] P ADK A3,1 ] V . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN ] h ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS ] & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS ] 0 P ANKL A2,/FFFE MAKE DWT
0x049620…0497b4 (1, 92) Dummy {f00=0x0017, f01=0x0190, f02=» P* ^ 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER ^ P* ^ H PTIPO20 RTN A15 ^ R P* ^ h 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN ^ r 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNEVEN ^ 0 P ELR A4,A1 FIRST CHARACTER FROM USER BUFFE
0x0497b4…049948 Dummy {f00=0x0017, f01=0x0190, f02=»POINTER ^ t ( P RB TIPO10 MOVE REMAINING CHARACTERS _ P* _ < P EJECT TOSSIO _ F P* _ ^ P* I O : E R R _ h P* _ ~ , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. _ B P* SET RETURN CODE /8008 (REQUEST ERROR AND INCORRECT LENGTH). _ & P* BRANCH T
0x049948…049adc Dummy {f00=0x0017, f01=0x0190, f02=»OINTER _ v P LD A1,DWTST,A6 DWT STATUS ` P SLL A1,2 CHECK ECHO BIT ` 0 P RF(NN) IO:E10 NOT ECHO ` P P LDR A1,A6 SAVE DWT ADDRESS ` p & P LD A6,DWTECH,A6 ECHO DWT ADDRESS ` P CF A15,TENDIO ` " P LDR A6,A1 RESTORE DWT ADDRESS ` P* ` PIO:E
0x049adc…049c70 Dummy {f00=0x0017, f01=0x0190, f02=» P* a P* T I O M X O a P* a $ " PTIOMXO EQU TIOMXI MUX, OUTPUT a . P* a T P* T I O K B O a ^ P* a t * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT a ~ P* a P* T I O I T O a P* a 6 PTIOITO EQU A15RTN INTERTASK COMMUNICATION, OUTPUT
0x049c70…049e04 Dummy {f00=0x0017, f01=0x0190, f02=»E N : D M a P* b 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST b . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. b V D P* NOTICE THAT MODULES 'TENDKI' AND 'TENDKO' ARE EQUAL TO TEN:DM. b P* b P* INPUT: A6 = DWT ADDRESS b $ P* A8
0x049e04…049f98 Dummy {f00=0x0017, f01=0x018e, f02=»A1,DWTMEC,A6 MMU ECB ADDRESS b ( P LD A1,ECBCW2,A1 SECOND CONTROL WORD c $ P ES A1,ECBCW2,A8 c P P RTN A15 c h P* c x P EJECT TOSSIO c P* c P* T E N P C I c P* c D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN c
0x049f98…04a12c Dummy {f00=0x0017, f01=0x0190, f02=» P* TO THE USER BUFFER. d D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. d " 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. d j P* d P* INPUT: A6 = DWT ADDRESS d $ P* A8 = USER ECB ADDRESS d P* d & P* OU
0x04a12c…04a2c0 Dummy {f00=0x0017, f01=0x0190, f02=»D A4,ECBEL,A2 EFFECTIVE LENGTH d " P RF(NP) TEPI30 NO MOVE IF ZERO e & & P LD A1,ECBBA,A2 DWT BUFFER ADDRESS e L P* e v . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' e ( P EL A2,ECBBA,A8 USER BUFFER ADDRESS e $ P LDK A3,1 CHECK BUFFER ADDRESSES e P T
0x04a2c0…04a454 (1, 93) Dummy {f00=0x0017, f01=0x018e, f02=»ADDRESS EVEN e v P* f P EJECT TOSSIO f P* f 6 P* f @ 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN f J 0 P LDR* A3,A1 FIRST CHARACTER FROM DWT BUFFER f P ELR A8,A2 f P* f * PTEPI15 ANK A3,/FF SKIP LEFT CHARACTER f ( P ANKL A8,/
0x04a454…04a5e8 Dummy {f00=0x0017, f01=0x0190, f02=» f n P ADK A2,1 g P SUK A4,1 g * P RF(P) TEPI25 MORE CHARACTERS TO MOVE g , P RTN A15 NO, RETURN g Z P* g v PTEPI20 TM A3,A2 g * P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN g " P LDR A3,A1 DWT BUFFER ADDRESS g $ P ADR A3,A4 ADD EFFECTIVE LEN
0x04a5e8…04a77c Dummy {f00=0x0017, f01=0x0190, f02=» NEXT CHARACTER g ~ 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER h * P RB(NE) TEPI23 MORE CHARACTERS TO MOVE h P 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN h ~ P RB TEPI10 h P* h P EJECT TOSSIO h P* h P* h , PTEPI25 LDR A3,
0x04a77c…04a910 Dummy {f00=0x0017, f01=0x0190, f02=»BUFFER h j P* i PTEPI30 RTN A15 i P* i . , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN i 8 ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN i h , P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE i P LDR A8,A4 NO, SAVE A4 i 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER
0x04a910…04aaa4 Dummy {f00=0x0017, f01=0x0190, f02=»DWT BUFFER i p P ELR A3,A2 j P RB TEPI15 j $ P* j 6 . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN j @ " P LDR A3,A1 DWT BUFFER ADDRESS j r $ P ADR A1,A4 ADD EFFECTIVE LENGTH j P* j " PTEPI70 LCR A8,A3 ONE CHARACTER j 6 P SC A8,-1,A3 MOVE THIS C
0x04aaa4…04ac38 Dummy {f00=0x0017, f01=0x0190, f02=» MORE CHARACTERS TO MOVE j . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS k * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN k R P RB TEPI25 k P* k P EJECT TOSSIO k P* k P* T E N M X I k P* k PTENMXI EQU A15RTN MUX, INPUT k P* k
0x04ac38…04adcc Dummy {f00=0x0017, f01=0x0190, f02=»I INTERTASK COMMUNICATION, INPUT k P* l ( P* T E N D K I l 2 P* l H " PTENDKI EQU TEN:DM DISC, INPUT l R P* l x P EJECT TOSSIO l P* l P* T E N P C O l P* l 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT l P* l P* T E
0x04adcc…04af60 Dummy {f00=0x0017, f01=0x0190, f02=», OUTPUT l r P* m P* T E N D K O m P* m 0 " PTENDKO EQU TEN:DM DISC, OUTPUT m : P* m ` P EJECT TOSSIO m j P* m P* T E N I T O m P* m F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN m L P* COMPLETED FOR IN
0x04af60…04b0f4 (1, 94) Dummy {f00=0x0018, f01=0x018e, f02=» , P* 'TIOPCO' IS USED FOR MOVING THE DATA. n P* n 4 P* INPUT: A6 = DWT ADDRESS n > P* n ` & P* OUTPUT: A1-A4, A8 ARE DESTROYED n j P* n 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT n $ P LD A8,DWTECB,A6 DWT ECB ADDRESS n $ P LD A3,ECBEL,A
0x04b0f4…04b288 Dummy {f00=0x0018, f01=0x0190, f02=» n j P* o PTEIO10 RTN A15 o P* o ( P EJECT TOSSIO o 2 P* o J P* D C : M O T o T P* o j < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER o t < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO o < P* THE DRIVER BUFFER.
0x04b288…04b41c Dummy {f00=0x0018, f01=0x0190, f02=»* OUTPUT: NO REGISTERS ARE DESTROYED o P* p , , PDC:MOT EQU * DATA COMMUNICATION, OUTPUT p 6 " P MSR 8,A15 SAVE A1-A8 ON STACK p f $ P SUKL A15,32 ADJUST STACKPOINTER p * P TS 2,A15 SAVE MMU REGISTERS ON STACK p " P LD A5,DWTTAB,A6 TTAB ADDRESS p $ P
0x04b41c…04b5b0 Dummy {f00=0x0018, f01=0x0190, f02=» P* q $ PDC:RTN EQU * RETURN TO DC DRIVER q . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK q 6 $ P ADKL A15,32 ADJUST STACKPOINTER q h * P MLR 8,A15 RESTORE A1-A8 FROM STACK... q P RTN A15 ...AND RETURN q P XIF q P* q P EJECT TOSSIO q
0x04b5b0…04b744 Dummy {f00=0x0018, f01=0x0190, f02=»TENTS OF THE DRIVER BUFFER TO THE USER BUFFER. q t P* r 6 P* INPUT: A1 = RETURN CODE r @ ( P* A4 = DRIVER BUFFER ADDRESS r b P* A6 = DWT ADDRESS r P* r ( P* OUTPUT: NO REGISTERS ARE DESTROYED r P* r PDC:MIN EQU * r P IFT
0x04b744…04b8d8 Dummy {f00=0x0018, f01=0x0190, f02=» SAVE A1-A8 ON STACK r P* s P IFT MMUPAG=1 s & $ P SUKL A15,32 ADJUST STACKPOINTER s < * P TS 2,A15 SAVE MMU REGISTERS ON STACK s d " P LD A5,DWTTAB,A6 TTAB ADDRESS s $ P TL TTB:MT,A5 LOAD MMU REGISTERS s P XIF s P* s P EJECT TOSSIO s
0x04b8d8…04ba6c Dummy {f00=0x0018, f01=0x0190, f02=»R BUFFER ADDRESS s | P* A6 = DWT ADDRESS t P* t : " PMINMOV EQU * DC:MIN MOVE ENTRY t D P ENB t j P LD A3,DWTECB,A6 ECB ADDRESS t z * P LDR A7,A4 SAVE DRIVER BUFFER ADDRESS t $ P LD A2,ECBEL,A3 EFFECTIVE LENGTH t " P RF(NP) MIN:40 NOTHI
0x04ba6c…04bc00 Dummy {f00=0x0018, f01=0x0190, f02=»PAG=0 t ( P LD A5,ECBBA,A3 USER BUFFER ADDRESS u P LDR A3,A5 u : ( P ANK A3,1 CHECK USER BUFFER ADDRESS u L . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVEN u x P SUK A2,2 u , P RF(N) MIN:30 ONLY ONE CHARACTER TO MOVE u P* u P EJECT TOSSIO u
0x04bc00…04bd94 (1, 95) Dummy {f00=0x0018, f01=0x0190, f02=»T BUFFER POINTERS u ~ P ADK A5,2 v $ P SUK A2,2 DECREMENT LOOP COUNTER v , 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE v T P* v PMIN:20 EQU * v P ADK A2,1 v P RF(N) MIN:40 MOVE FINISHED v P* v P* CHARACTER MOVE v P* v
0x04bd94…04bf28 Dummy {f00=0x0018, f01=0x0190, f02=» $ P SUK A2,1 DECREMENT LOOP COUNTER w 6 P RB(P) MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE w , P XIF w f P* w r P IFT MMUPAG=1 w | * P ST A1,ECBRC,A3 SET RETURN CODE IN ECB w $ P LDR A1,A4 DRIVER BUFFER ADDRESS w P LDR A4,A2 EFFECTIVE LENGTH w
0x04bf28…04c0bc Dummy {f00=0x0018, f01=0x0190, f02=» A1,0 w P XIF x P* x P EJECT TOSSIO x $ P* x < P* x F PMIN:40 EQU * x P P INH x d " P CF A15,TENDIO PERFORM TENDIO x p P* x P* RELEASE BUFFER x P* x * P LD A3,DWTADR,A6 DRIVER ADDRESS BLOCK x ( P LD A1,POLADR,A3 BUFFER
0x04c0bc…04c250 Dummy {f00=0x0018, f01=0x018e, f02=»A1,A2 NEXT BUFFER ADDRESS x , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN y " P* y R $ P* INSERT BUFFER AT END OF CHAIN y P* y ( P SU A4,HDRLEN,A3 REAL BUFFER ADDRESS y " P STR A4,A2 UPDATE QUEUE LINKS y P CMR A4 y P* y PMIN:60 EQU * y
0x04c250…04c3e4 Dummy {f00=0x0018, f01=0x018e, f02=» P IFT MMUPAG=0 z P IFT CPU852=0 z * P MLR 8,A15 RESTORE A1-A8 FROM STACK... z 0 P* z ^ PDC:MOT RTN A15 ...AND RETURN z h P XIF z P* z P IFT MMUPAG=1 z " P RB DC:RTN RETURN TO DC DRIVER z P XIF z P* z P* ERROR EXIT z P
0x04c3e4…04c578 Dummy {f00=0x0018, f01=0x018e, f02=» z n P* { P EJECT TOSSIO { P* { * P* { 4 P IFT MMUPAG=0 { > P IFT CPU852=1 { T PDC:MOT EQU * { j 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS { ~ P XIF { P* { P EJECT TOSSIO { P* { P* { P********** { P
0x04c578…04c70c Dummy {f00=0x0018, f01=0x018e, f02=» ( P* - IF I/O AND ACTIVATION REQUEST:- | P* | 0 * P* ACTOTP IS CALLED TO START THE TASK | : P* | h P* -IF NORMAL I/O WITH WAIT:- | r P* | * P* QTJOB IS CALLED TO QUEUE THE TASK | 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- |
0x04c70c…04c8a0 Dummy {f00=0x0018, f01=0x0190, f02=» | > P* IF AN EVENT WAS QUEUED FOR THIS DEVICE (DWTTQ NOT ZERO) } J P* THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. } J P* } P EJECT TOSSIO } P* } P* } 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- } P* }
0x04c8a0…04ca34 (1, 96) Dummy {f00=0x0018, f01=0x0190, f02=»NING WITH MMU OPTION SPECIAL DEVICE } * P* DEPENDENT SUBROUTINES ARE PERFORMED. ~ , P* ~ Z P EJECT TOSSIO ~ d P* ~ | P* END I/O ENTRY ~ P* ~ PTENDIO EQU * ~ P IFT CPU852=1 ~ & P CF A15,SAVE8 SAVE A1-A8 ON STACK ~ P XIF ~ P
0x04ca34…04cbc8 Dummy {f00=0x0018, f01=0x0190, f02=» LDR A4,A6 DWT ADDRESS ~ & P ADK A4,DWTST POINT TO DWT STATUS P INH H ( P LD A5,DWTTQ,A6 TERMINAL QUEUE LINK T P RF(Z) TEN110 NO TASK QUEUED P* P IFT ATTDET=1 P LDKL A2,/800 ATTACH BIT P ANR* A2,A4 , P RF(Z) TEN095 DE
0x04cbc8…04cd5c Dummy {f00=0x0018, f01=0x0190, f02=» =2 =1 2 P CF A15,FRABLK FREE ATTACH BLOCK AND TIMER =1 P LDR A4,A6 =1 F P ADK A4,DWTST RESTORE A4 =1 P XIF P* P EJECT TOSSIO P* P* PTEN100 EQU * , P LDR* A3,A5 UPDATE QUEUE ANCHOR ADDRESS P S
0x04cd5c…04cef0 Dummy {f00=0x0018, f01=0x0190, f02=»TAB,A6 TTAB ADDRESS FROM DWT P* $ PTEN120 LDKL A2,/8000 . , P ORRS A2,A4 INDICATE DEVICE READY IN DWT J P LDKL A3,/DBFF z ( P ANRS A3,A4 RESET ECHO BIT AND BIT 5 P LD A3,DWTECB,A6 ECB ADDRESS : P RF(Z) TEN260 BRANCH IF ENTERED FROM ECH
0x04cef0…04d084 Dummy {f00=0x0018, f01=0x0190, f02=»A3 SET RETURN CODE IN ECB P* " P IFT MMUPAG=1 , P LD A4,TTB:PW,A5 PSW B " P ANK A4,1 SYSTEM/USER MODE BIT ^ P RF(Z) TEN200 SYSTEM MODE P* P* LOAD MMU REGISTERS P* PTEN130 EQU * $ P SUKL A15,32 ADJUST STACKPOINT
0x04d084…04d218 Dummy {f00=0x0018, f01=0x018e, f02=» P* P* MOVE DWT ECB TO USER ECB P* 0 & P LD A8,DWTUEC,A6 USER ECB ADDRESS : P ELR A4,A8 d * P ORR A4,A2 SET EVENT COMPLETED IN ECB v P ESR A4,A8 P LDR A1,A3 P ADK A1,ECBEL P LDR A2,A8 P ADK A2,ECBEL P L
0x04d218…04d3ac Dummy {f00=0x0018, f01=0x0190, f02=» " P LD A3,DEVIND,A3 DEVICE INDEX , P RF(N) TEN160 NO SPECIAL ACTION REQUIRED * " P RF(Z) TEN140 DATA MANAGEMENT Z P CWK A3,DK:DIX CHECK IF DISC P RF(E) TEN140 DISC P* " P* PERFORM CHECK ON ORDER CODE P* , P CF A15,RD:WR CH
0x04d3ac…04d540 Dummy {f00=0x0018, f01=0x0190, f02=»TAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* 4 P EJECT TOSSIO > P* V P* RESTORE MMU REGISTERS ` P* PTEN150 EQU * P INH P* PTEN160 EQU * . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK $ P ADKL A15,32 A
0x04d540…04d6d4 (1, 97) Dummy {f00=0x0018, f01=0x0190, f02=» Z P* PTEN200 EQU * , P LD A4,DWTWAT,A6 WAIT/ACTIVATE INDICATOR & ( P RF(Z) TEN250 NOT WAIT OR ACTIVATION V P SUK A4,1 P RF(Z) TEN240 WAIT P ADK A4,1 P LDR A3,A4 P ANK A3,1 P RF(Z) TEN270 ACTIVATION P*
0x04d6d4…04d868 Dummy {f00=0x0018, f01=0x0190, f02=» MODE BIT t P RF(Z) TEN210 SYSTEM MODE . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS 4 P XIF f P* r PTEN210 EQU * | 4 P ST A8,TTB:SA+16,A5 SET TO A8 IN TTAB SAVE AREA P* : PTEN220 ADK A4,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR
0x04d868…04d9fc Dummy {f00=0x0018, f01=0x0190, f02=» TOSSIO P* P* WAIT P* * PTEN240 EQU * 4 2 P CF A15,QTJOB WAIT: QUEUE TASK FOR DISPATCHING H P* ~ P* NO WAIT P* PTEN250 EQU * $ P CM DWTECB,A6 RESET ECB ADDRESS P* PTEN260 EQU * P IFT CPU85
0x04d9fc…04db90 Dummy {f00=0x0018, f01=0x4110, f02=»D RETURN P XIF P* P* I/O WITH ACTIVATION & P* D PTEN270 EQU * N 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR b . P CF A15,ACTOT ACTIVATE TASK ON FIFO BASIS P RB TEN250 P* P* P* P END
0x04db90…04dd24 Dummy {f00=0x0018, f01=0x2008, f02=» NT TOSSIO END @ &
0x04dd24…04deb8 Dummy {f00=0x0018, f01=0x40ea, f02=» L H IDENT D:TB10 TRA 11.0 - - F1 O1111 REL 11.0 81-04-08 87015054110 D:TB10 T D:TB10T f * & : z ( $ L : @ *
0x04deb8…04e04c Dummy {f00=0x0018, f01=0x0190, f02=» L H IDENT C:CB10 TRA 11.0 - - F1 O1111 REL 11.0 81-04-08 87015054110 C:CB10 T C:CB10C f * & ABIDENT NOT OPERABLE z * & * & = * &
0x04e04c…04e1e0 Dummy {f00=0x0018, f01=0x4012, f02=» @ TRA 11.0 - - F1 O1111 REL 11.0 81-04-08 87015054110 C:CB10 T C:CB10C f * & ABIDENT NOT OPERABLE z * & * & = * &
0x04e1e0…04e374 (1, 98) Opaque[0x194]
0x04e374…04e508 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0320, f03=0x0000}
0x04e374…04e508 IdxSect {
0x04e374…04e508 f00 = 0x0019 // 0x4e374 @0x0
0x04e374…04e508 f01 = 0x0008 // 0x4e376 @0x2
0x04e374…04e508 gno = [ // 0x4e378 @0x4
0x04e374…04e508 [0x00]: C0x0019.0x0.0
0x04e374…04e508 [0x01]: C0x0019.0x1.0
0x04e374…04e508 [0x02]: C0x0019.0x2.0
0x04e374…04e508 [0x03]: C0x0019.0x3.0
0x04e374…04e508 ]
0x04e374…04e508 }
0x04e508…04e69c Dummy {f00=0x0019, f01=0x0190, f02=» J F IDENT DEBUGM REL 11.0 81-07-26 870105041100 dBUG R |BUG ` , ( A :U A A p , ( ! @ ~ A A ~ @ A A , ( A @ A A @ A A " a
0x04e69c…04e830 Dummy {f00=0x0019, f01=0x0190, f02=» h , ( , ( $ ( , 0 4 8 , ( 8 < h , ( 9 , ( Y , ( y
0x04e830…04e9c4 Dummy {f00=0x0019, f01=0x0190, f02=» T :a R T <a Z _ = , ( :A , >a @ ( , ( " A P UW B X , ( 9 @ = / M Q , ( Y R S T Y G P H L , ( y V I U _v
0x04e9c4…04eb58 Dummy {f00=0x0019, f01=0x0190, f02=» P A A x , ( . , + - ; # , ( $ : X " H W X " H TTB:AP x ACBRELA , ( * 9 H H A W W L , ( W@ H A A _p @ P A 1+ , ( !T u X A
0x04eb58…04ecec Dummy {f00=0x0019, f01=0x0190, f02=»NDTID , ( ! ? > " @ , ( D @ T " ( ^ @ P > , ( R A A " @ T @ n , ( 3 W @ A W W 0 , ( $ S _, W W , ( s
0x04ecec…04ee80 Dummy {f00=0x0019, f01=0x0190, f02=» _` A , ( @ T @ W @ T @ W @ @ . , ( >a @ A ^ , ( 3 A , ( S ;a ]@ 1 _L W @ , ( s $ 0
0x04ee80…04f014 (1, 99) Dummy {f00=0x0019, f01=0x0190, f02=» @ Q A @ ~ , ( BT A " T @ W @ A , ( ! A P @ _2 N , ( 3 T 0 P P ~ , ( S _ @ @ , ( P s @ @ P
0x04f014…04f1a8 Dummy {f00=0x0019, f01=0x0190, f02=» ) " A n , ( U H A @ , ( * @ @ T A A > , ( 3 P @ P n , ( @ S @ ! T A @ A # , ( E s A ~ RE XRN Y , ( P ME
0x04f1a8…04f33c Dummy {f00=0x0019, f01=0x0190, f02=» T P #~ > V . >A , ( P Y X W ^ ? ? . , ( @ 3 @ ' P Y Y W Y Y @ ^ PRUNN ACBLACA , ( S @" P @ = ] , ( m ] ] W A A A W
0x04f33c…04f4d0 Dummy {f00=0x0019, f01=0x0190, f02=» A p , ( A > > > > , ( > > > > ^ _ ^ _ ? ? ? ? @ , ( @ - ? A ^ @ ? ? p , ( @ M > > > > > > > , ( D m @ > , ( (
0x04f4d0…04f664 Dummy {f00=0x0019, f01=0x0190, f02=» # H A " A 0 , ( R 9U AR FQ 0:D A 0 , ( - _* A " A A ` , ( M T A A " , ( m R _U . " , ( A : A
0x04f664…04f7f8 Dummy {f00=0x0019, f01=0x0190, f02=» " A A P R :UT , ( @ @ W 9D) 9 I 9 ^ @ W TTB:MT P $ - ? H > " b , ( ! R :W W , ( W W ?W /W : A W ! A A , ( P _ @ _
0x04f7f8…04f98c Dummy {f00=0x0019, f01=0x0190, f02=» A A @ z , ( B A A @ > @ _ , ( " a z | I R M A P T @ T J , ( D @ P A W ` @ @ P @ z , ( T A P A < V A @ H D ! )
0x04f98c…04fb20 Dummy {f00=0x0019, f01=0x0190, f02=» ? F C I M Q , U Y j ] d a l e . i : m q u H D ! y } 4 p p j T P B H D ! 0 d d | H N # /W* 3 GW K MW Q g H D !j| mP P W P W
0x04fb20…04fcb4 (1, 100) Dummy {f00=0x0019, f01=0x0190, f02=»V W r H D ! > T j W T W # ' + 3 7 > ; . H D ! ? I j M h ] g oW W P z H D !6n P P P T W < P # b + 5 b ;
0x04fcb4…04fe48 Dummy {f00=0x0019, f01=0x018e, f02=»W T V W~ P ^ H D ! P P P W TR PJ V P %W ;P EW UP$ yW } H D ! W P T T V 3 : K r f H D ! Q P < R$ U R Q + < / 9 < E f I h H D ! M Q
0x04fe48…04ffdc Dummy {f00=0x0019, f01=0x40c6, f02=» J H D ! R T W( @ ) @ +W R W" W W W W W H D !P W PL T T P T$ 5 < oR> wP6 T. P W T P T V @ < R$ U R Q + < / 9 < E f I h H D ! M Q
0x04ffdc…050170 Dummy {f00=0x0019, f01=0x2008, f02=» L = FIX0 DATE = 811023 6876PACK NBR = 0000 ? ?
0x050170…050304 Dummy {f00=0x0019, f01=0x018e, f02=» & P DATA /0101,/A000,/0D05,TIMACT,0,0 * P XIF * . $ POPNL30 EQU * LOCAL PLC 3, LINE 0 * : P IFF PLCNRL=0 * b P IFF PLCNRL=1 * x P IFF PLCNRL=2 * , P DATA /0101,/A000,/0D05,TIMACT,0,0 U =3 * P XIF * $ POPNL20 EQU * LOCAL PLC 2, LINE 0 * P
0x050304…050498 Dummy {f00=0x0019, f01=0x0190, f02=» P IFF PLCNRL=0 + & P DATA /0101,/A000,/0D05,TIMACT,0,0 + P XIF + D P* + P ( P* END OF LOCAL LINE PARAMETER AREAS + Z P* + P EJECT + P* + ( P* OPEN LINE PARAMETER AREAS, REMOTE + P* + P* STANDARD AREAS : + P* PRIMARY STAT
0x050498…05062c Dummy {f00=0x0019, f01=0x018e, f02=»5 MIN. TIME OUT + P* , P* , " P* REMOTE PLC 4 , , POPNR40 EQU * LINE 0 , B P IFF PLCNRR=0 , ^ P IFF PLCNRR=1 , t P IFF PLCNRR=2 , P IFF PLCNRR=3 , * P DATA /0103,/0400,/0D05,TIMACT,/0108,0 , P XIF , POPNR41 EQU * LINE 1 ,
0x05062c…0507c0 Dummy {f00=0x0019, f01=0x0190, f02=» P XIF - POPNR42 EQU * LINE 3 - P IFF PLCNRR=0 - , P IFF PLCNRR=1 - B P IFF PLCNRR=2 - X P IFF PLCNRR=3 - n * P DATA /0103,/0400,/0D05,TIMACT,/0B08,0 - P XIF - POPNR43 EQU * LINE 3 - P IFF PLCNRR=0 - P IFF PLCNRR=1 - P I
0x0507c0…050954 (1, 101) Dummy {f00=0x0019, f01=0x0190, f02=»INE 0 - P IFF PLCNRR=0 . P IFF PLCNRR=1 . $ P IFF PLCNRR=2 . : * P DATA /0103,/0400,/0D05,TIMACT,/0108,0 . P P XIF . ~ POPNR31 EQU * LINE 1 . P IFF PLCNRR=0 . P IFF PLCNRR=1 . P IFF PLCNRR=2 . * P DATA /0103,/0400,/0D05,TIMACT,/
0x050954…050ae8 Dummy {f00=0x0019, f01=0x018e, f02=»0,/0D05,TIMACT,/0B08,0 . P XIF / POPNR33 EQU * LINE 3 / * P IFF PLCNRR=0 / F P IFF PLCNRR=1 / P IFF PLCNRR=2 / r * P DATA /0103,/0400,/0D05,TIMACT,/1308,0 / P XIF / P* / P* REMOTE PLC 2 / POPNR20 EQU * LINE 0 / P IFF PLCNR
0x050ae8…050c7c Dummy {f00=0x0019, f01=0x0190, f02=» / P IFF PLCNRR=1 0 * P DATA /0103,/0400,/0D05,TIMACT,/0908,0 0 P XIF 0 L POPNR22 EQU * LINE 2 0 X P IFF PLCNRR=0 0 t P IFF PLCNRR=1 0 * P DATA /0103,/0400,/0D05,TIMACT,/0B08,0 0 P XIF 0 POPNR23 EQU * LINE 3 0 P IFF PLCNRR=0 0
0x050c7c…050e10 Dummy {f00=0x0019, f01=0x0190, f02=» 0 | P IFF PLCNRR=0 1 * P DATA /0103,/0400,/0D05,TIMACT,/0108,0 1 P XIF 1 L POPNR11 EQU * LINE 1 1 X P IFF PLCNRR=0 1 t * P DATA /0103,/0400,/0D05,TIMACT,/0908,0 1 P XIF 1 POPNR12 EQU * LINE 2 1 P IFF PLCNRR=0 1 * P DATA /0103,/0400,
0x050e10…050fa4 Dummy {f00=0x0019, f01=0x0190, f02=» XIF 1 ( P* END OF REMOTE LINE PARAMETER AREAS 2 P* 2 8 P* 2 B , PPLCPFP DATA 0 PLC LOCAL POWER FAIL FLAG 2 L P* 2 | ( P IFF UTTEST=0 TEST VERSION OF DRIVER 2 P* 2 P EJECT 2 P* 2 ( PUTTST DATA UTTEST 1 = TRAP NOT USED 2 P* 2
0x050fa4…051138 Dummy {f00=0x0019, f01=0x0190, f02=»INDOW QUEUE 2 $ PSBQSTA RES 8 SHORT BUFFERS QUEUE 3 $ PLBQSTA RES 8 LONG BUFFERS QUEUE 3 < PCCQSTA RES 8 CCA QUEUE 3 d $ PSTATLN EQU *-STATAR TABLE LENGTH 3 P* 3 P XIF 3 P EJECT 3 P* 3 P* 3 P* CWT DISPLACEMENTS 3 P* 3
0x051138…0512cc Dummy {f00=0x0019, f01=0x0190, f02=» (0-7) 3 x PCWTABW EQU /08 WS TO ABORT 4 ( PCWTPLS EQU /0A LATEST PLC RCA STATUS 4 0 $ PCWTLNO EQU /0C LINE NO INDICATOR 4 , PCWTPAR EQU /0E INDEX TO PARAMETER AREA 4 6 PCWTOPP EQU /10 OPEN LINE PARAMETER AREA ADDRESS =2 4 $ PCWTINT EQU /12 WS TABLE AD
0x0512cc…051460 Dummy {f00=0x0019, f01=0x0190, f02=» LONG OUTP. BUFFERS 4 x & PCWTCCQ EQU /1A QUEUE FOR CCA FREE 5 2 PCWTMBQ EQU /1C QUEUE OF ALLOCATED MON. BLOCKS 5 F " PCWTTPR EQU /1E TIMER POINTER 5 | $ PCWTCIO EQU /20 CIO START INSTR. 5 PCWTST3 EQU /22 SST INSTR. 5 . PCWTCSD EQU /24 CTRL UNIT STA
0x051460…0515f4 (1, 102) Opaque[0x194]
0x0515f4…051788 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0340, f03=0x0000}
0x0515f4…051788 IdxSect {
0x0515f4…051788 f00 = 0x001a // 0x515f4 @0x0
0x0515f4…051788 f01 = 0x0006 // 0x515f6 @0x2
0x0515f4…051788 gno = [ // 0x515f8 @0x4
0x0515f4…051788 [0x00]: C0x001a.0x0.0
0x0515f4…051788 [0x01]: C0x001a.0x1.0
0x0515f4…051788 [0x02]: C0x001a.0x2.0
0x0515f4…051788 ]
0x0515f4…051788 }
0x051788…05191c Dummy {f00=0x001a, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 11.0 81-02-23 870105041100 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x05191c…051ab0 Dummy {f00=0x001a, f01=0x0190, f02=»*************** l P* P* " P EJECT SYSTAB , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* & P ENTRY SCTMSZ,SCTSFA,SCTEFA,SCTIPL & P ENTRY SCTANO,SCTTCT,SCTCDT,SCTPAG & P ENTRY SCTNO
0x051ab0…051c44 Dummy {f00=0x001a, f01=0x0190, f02=»CTMXS,SCTMOX z P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB 0 & P ENTRY PAG:QF,PAG:QB,PAG:PA,PAG:SB Z & P ENTRY SWB:NC,SWB:DS,SWB:EL,SWB:NS P ENTRY STKEND,STKCOM,STKMOV & P ENTRY ACBIOE,ACBSWB,ACBSEG,ACBNPE & P ENTRY ACBMM
0x051c44…051dd8 Dummy {f00=0x001a, f01=0x0190, f02=»TERNALS * P************* P* ( P* 2 P EXTRN TDISP < , P EXTRN IHPFAR POWER FAIL / AUTO RESTART P P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN IHTC CASSETTE TAPE ( P E
0x051dd8…051f6c Dummy {f00=0x001a, f01=0x0190, f02=» IH1502 * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 P EXTRN CHRT3 > P EXTRN CHRT4 R ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 f ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 L P EXTRN CHLT1,IHSVU1,IHSVU2,IHS
0x051f6c…052100 Dummy {f00=0x001a, f01=0x0190, f02=»,IHPVU2,IHPVU3,IHPVU4,IHPVU5 | & P EXTRN IHPL02,IHPVU6,IHPVU7,IHPVU8 $ 0 P EXTRN IHFD,IHCD FLOPPY DISC,CDC (80 M) DISC N * P EXTRN IHLP,IHPL03,IHPL04 LINE PRINTER ( P EXTRN IHCR,CHLT3,CHLT4 CARD-READER ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 0 P
0x052100…052294 (1, 103) Dummy {f00=0x001a, f01=0x0190, f02=»LT ROUTINE P EXTRN BUG DEBUGGER . P EXTRN IHPR01,IHPR02,IHPR03 RWSI CARDS DK . P EJECT SYSTAB ` P* x F P* DISPLACEMENTS IN SEGTAB, PAGTAB , SWBTAB AND APPL. CONTROL BLOCK P* PSEG:FC EQU -4 FILE CODE $ PSEG:NS EQU -2 NUMB
0x052294…052428 Dummy {f00=0x001a, f01=0x0190, f02=»QU 6 PAGE BLOCK ADDRESS & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPAG:QB EQU 2 QUEUE POINTER BACKWARD J PPAG:PA EQU 4 PAGE ADDRESS v & PPAG:SB EQU 6 SEGMENT BLOCK ADDRESS P* 2 PSWB:NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS
0x052428…0525bc Dummy {f00=0x001a, f01=0x0190, f02=» , PACBIOE EQU 0 APPLICATION RESTART ADDRESS PACBSWB EQU 2 SWBTAB ADDRESS 4 $ PACBSEG EQU 4 SEGMENT TABLE POOL X ( PACBNPE EQU 6 NUMBER OF PAGE ENTRIES & PACBMMP EQU 8 MMU TABLE PAGE ENTRY . PACBMMC EQU 10 MMU TABLE COMMON PART ENTRY * P
0x0525bc…052750 Dummy {f00=0x001a, f01=0x0190, f02=»T ADDRESS j . PACBREL EQU 18 APPLICATION RELOCATION BASE 0 PACBADA EQU 20 APPLICATION DISC FILE ADDRESS D P x P P PSTART EQU * P EJECT SYSTAB P* P* INTERRUPT VECTORS P* P DATA IHPFAR P DATA I
0x052750…0528e4 Dummy {f00=0x001a, f01=0x0190, f02=»A ILLINT P DATA ILLINT P DATA ILLINT $ P DATA ILLINT 8 P DATA IH1501 L P DATA IH1502 ` P DATA ILLINT t P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA IHPR01 P DATA IHPR02 P DATA IHPR03 P DATA IL
0x0528e4…052a78 Dummy {f00=0x001a, f01=0x0190, f02=»A ILLINT P DATA ILLINT P DATA ILLINT $ P DATA ILLINT 8 P DATA ILLINT L P DATA ILLINT ` P DATA ILLINT t P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA IL
[…0x1…]
0x052c0c…052da0 Dummy {f00=0x001a, f01=0x0190, f02=» r P* P DATA SCT P $ P , P* 4 P* SYSTEM TRAP > P* T PTRAP LDK A1,/D ^ P CF A15,HALT t P RES 4 P HLT P P* P* DEBUG RESTART ENTRY P* P XRR A13,A13 P XRR A14,A14 P LD
0x052da0…052f34 (1, 104) Dummy {f00=0x001a, f01=0x0190, f02=»X:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE , $ PX:D EQU 0 DM/FM NUMBER OF FILES Z ( PX:E EQU 0 DM/FM NUMBER OF FILES/TASK $ PX:F EQU 0 FILE WORK TABLE LENGTH PX:G EQU 0 DC TASK IN SYSTEM 4 PX:H EQU 10 NUM
0x052f34…0530c8 Dummy {f00=0x001a, f01=0x0190, f02=» 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 h ( PSCTIPL DATA 0 IPL DEVICE FILE CODE: * P TC:C0,C1 DK:F0,F1 MD:F4,F5 FD:F8,F9 $ PSCTANO DATA 0 APPLICATION NUMB
0x0530c8…05325c Dummy {f00=0x001a, f01=0x0190, f02=»ER OF PAGES ~ PSCTPSZ DATA 0 PAGE SIZE & PSCTSTB DATA STB SYSTEM STACK BASE 4 & PSCTOPT DATA 04097 MONITOR OPTION: ^ " P BIT 10:MPO,11:EMM,12:SWPBLK $ P BIT 13:FM,14:DSKPAG,15:MMUPAG PSCTBUG DATA BUG DEBUGGER & PSCTDMT DATA X:B DM
0x05325c…0533f0 Dummy {f00=0x001a, f01=0x0190, f02=»T CHAIN START ADDRESS & PSCTNOF DATA 00000 NUMBER OF FILES * PSCTNFT DATA 00000 NUMBER OF FILES/TASK H , PSCTFWL DATA 00000 FILE WORK TABLE LENGTH v ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK . PSCTDCT DATA 00001 DC-TASK IN SYSTEM/REMOTE , PSCTN
0x0533f0…053584 Dummy {f00=0x001a, f01=0x018e, f02=» EJECT SYSTAB P P* P* SYSTEM STACK * P* @ $ PSTKEND EQU * END OF SYSTEM STACK J P RES 68 r PSTKMOV LDR* A4,A1 P STR A4,A2 P ADK A1,2 P ADK A2,2 P SUK A3,2 P ABR(Z) A7 P RB STKMOV P
0x053584…053718 Dummy {f00=0x001a, f01=0x4076, f02=» P P* P* IDLE LOOP P* * P 4 PLOOP RB * < P N P V P ^ P END f@ r 68 r PSTKMOV LDR* A4,A1 P STR A4,A2 P ADK A1,2 P ADK A2,2 P SUK A3,2 P ABR(Z) A7 P RB STKMOV P
0x053718…0538ac Dummy {f00=0x001a, 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
0x0538ac…053a40 Dummy {f00=0x001a, f01=0x0190, f02=» J F IDENT SYSTAB REL 11.0 81-02-23 870105041100 F B SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTTCT SCTCDTL SCTPAG R F B SCTNOP SCTPSZ SCTSTB SCTOPT SCTBUG SCTDMTL SCTDMI SCTFWT F B SCTNOF SCTNFT SCTFWL SCTBLK
0x053a40…053bd4 (1, 105) Opaque[0x194]
0x053bd4…053d68 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0358, f03=0x0000}
0x053bd4…053d68 IdxSect {
0x053bd4…053d68 f00 = 0x001a // 0x53bd4 @0x0
0x053bd4…053d68 f01 = 0x000c // 0x53bd6 @0x2
0x053bd4…053d68 gno = [ // 0x53bd8 @0x4
0x053bd4…053d68 [0x00]: C0x001a.0x3.0
0x053bd4…053d68 [0x01]: C0x001b.0x0.0
0x053bd4…053d68 [0x02]: C0x001b.0x1.0
0x053bd4…053d68 [0x03]: C0x001b.0x2.0
0x053bd4…053d68 [0x04]: C0x001b.0x3.0
0x053bd4…053d68 [0x05]: C0x001c.0x0.0
0x053bd4…053d68 ]
0x053bd4…053d68 }
0x053d68…053efc Dummy {f00=0x001a, f01=0x0190, f02=» 2 P IDENT LRPINT REL 11.0 81-09-16 870105041100 P : P =2, POWER FAIL IN MOVES B P REL 11.0 81-07-27 d P =1,60 HZ COND BUG P REL 11.0 81-01-26 P P* P* 6 P**************************************************
0x053efc…054090 Dummy {f00=0x001a, f01=0x0190, f02=»OWER FAILURE ~ P* P* P* ( P* 2 P* < 6 P************************************************** F P* P* : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS P* FOR TOSS. THESE ARE: P* P* -IHLKM:
0x054090…054224 Dummy {f00=0x001a, f01=0x0190, f02=»E FOLLOWING ENTRIES ARE USED TO QUEUE TASKS: P* 4 6 P* -LKMRQE: SET A7 = -1, QUEUE TASK AND DISPATCH > P* x H P* -LKMSRC: SET A7 TO RETURN CODE (C(A2)), QUEUE TASK AND DISPATCH P* ( P* -LKMQDI: QUEUE TASK AND DISPATCH P*
0x054224…0543b8 Dummy {f00=0x001a, f01=0x0190, f02=» IHLKM LKM INTERRUPT HANDLER 4 P ENTRY LKM030 SPECIAL TLDSEG REQUEST ERROR ENTRY $ $ P ENTRY LKMRQE LKM REQUEST ERROR 4 P ENTRY LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR * P ENTRY LKMQDI QUEUE TASK AND DISPATCH 0 P ENTRY LKMSRC SET RETURN CODE
0x0543b8…05454c Dummy {f00=0x001a, f01=0x018e, f02=»O MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER & P ENTRY INIFLG INITIALIZATION FLAG N * P ENTRY PFPOST PWF POST PROCESSING FLAG x P EJECT LRPINT P* P* P************* P* EXTERNALS * P**********
0x05454c…0546e0 Dummy {f00=0x001a, f01=0x0190, f02=» n " P EXTRN MEXIT MONITOR TASK EXIT , P EXTRN MONMMU MONITOR (SYSTEM) MMU TABLE . P EXTRN QTJOB QUEUE TASK ^ $ P EXTRN QMJOB QUEUE MONITOR TASK ~ $ P EXTRN SWL48 SWITCH TO LEVEL 48 $ P EXTRN SWLXY SWITCH TO LEVEL XY P EXTRN FREBLK SET
0x0546e0…054874 (1, 106) Dummy {f00=0x001b, f01=0x0190, f02=»NTSAV INTERRUPT SAVE MODULE P EXTRN RELPAG RELEASE PAGE $ , P EXTRN TLDSEG LOAD SEGMENT LKM PROCESSOR F ( P EXTRN TTB:SB SEGMENT BLOCK POINTER v & P EXTRN TTB:PW PROGRAM STATUS WORD 2 P EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB " P EXTRN
0x054874…054a08 Dummy {f00=0x001b, f01=0x0190, f02=»* CONDITIONAL ASSEMBLY P* . P***************************************** ( P* Z . P* A PROGRAM VERSION USING TOSS MMU PAGING d * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSIO
0x054a08…054b9c Dummy {f00=0x001b, f01=0x0190, f02=» . P* A PROGRAM VERSION USING TOSS DISC PAGING * P* IS OBTAINED BY SETTING DSKPAG EQU 1. 6 P* d PDSKPAG EQU 0 n P* P* 8 P* A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS * P* IS OBTAINED BY SETTING MONCLK EQU 0. P*
0x054b9c…054d30 Dummy {f00=0x001b, f01=0x0190, f02=»TIONS h 2 P* IS OBTAINED BY SETTING MONDAT = MONCLK = 1. P* D PX:B EQU 0 N PMONDAT EQU X:B ` P* v P* 4 P* A PROGRAM VERSION WITH MONITOR CLOCK FUNCTIONS 4 P* ADAPTED TO 60 HERTZ NET FREQUENCY (USA/CANADA) , P* IS OBTAINED
0x054d30…054ec4 Dummy {f00=0x001b, f01=0x0190, f02=» LRPINT P* P* P* I H L K M & P* < P* F 8 P* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING P P* STEPS ARE CARRIED OUT: P* * P* - IF STACK OVERFLOW SYSTEM HALTS. P* D P* - ELSE REGISTERS A1
0x054ec4…055058 Dummy {f00=0x001b, f01=0x0190, f02=»E LKM PROCESSOR. P* P* EXIT CONDITIONS ARE: " P* B * P* A4 = LABEL ADDRESS OF LKM REQUEST L 8 P* (A4 = 0 INDICATES NO LABEL IN LKM REQUEST) z * P* A5 = TTAB ADDRESS OF CALLING TASK P* A6 = LKM DATA DIRECTIVE P
0x055058…0551ec Dummy {f00=0x001b, f01=0x0190, f02=»U * $ P ST P,INTSAV SAVE LAST INTERRUPT * P RIT /1D RESET INTERNAL INTERRUPT FLAG 4 P* b P EJECT LRPINT l P* P* P ST A15,LKM010 SAVE A15 " P LD A15,PRUN LOAD TTAB ADDRESS P* P IFT CPU852=1 4 P ADKL A15,
0x0551ec…055380 Dummy {f00=0x001b, f01=0x0190, f02=» ~ P STR A11,A15 -A11 P STR A10,A15 -A10 " P STR A9,A15 -A9 < P STR A8,A15 -A8 T P STR A7,A15 -A7 l P STR A6,A15 -A6 P STR A5,A15 -A5 P STR A4,A15 -A4 P STR A3,A15 -A3 P STR A2,A15 -A2 P STR A1,A15
0x055380…055514 (1, 107) Dummy {f00=0x001b, f01=0x0190, f02=» LD A5,PRUN TTAB ADDRESS OF CALLING TASK * P LDKL A15,0 RESTORE A15 STACK POINTER 0 PLKM010 EQU *-2 ^ P* t P EJECT LRPINT ~ P* " P* GET LKM REQUEST PARAMETERS P* P LDR* A3,A15 4 P LDR* A2,A15 LOAD P.C. AND ADJUST ST
0x055514…0556a8 Dummy {f00=0x001b, f01=0x0190, f02=»* A6,A2 DATA DIRECTIVE P XIF P* * P IFT MMUPAG=1 4 P ANK A3,1 J P RF(NZ) LKM015 USER MODE * P TL MONMMU NO, LOAD MONITOR MMU TABLE | P* PLKM015 EQU * " P EL A3,-2,A2 INSTRUCTION CODE P ELR A6,A2 DATA DIRECTIVE
0x0556a8…05583c Dummy {f00=0x001b, f01=0x0190, f02=»* STACK OVERFLOW: HALT SYSTEM P* ( P LDK A1,7 HALT PARAMETER 2 0 P RF LKM070 HALT SYSTEM DUE TO STACK OVERFLOW R P* P EJECT LRPINT P* P* PLKM025 EQU * & P ADK A2,2 UPDATE DISPATCH ADDRESS P* P IFF
0x05583c…0559d0 Dummy {f00=0x001b, f01=0x0190, f02=»PAG=1 * P LD A3,TTB:SB,A5 SEGMENT BLOCK ADDRESS P RF(Z) LKM030 NO SEGMENT < P LCR A4,A3 SEGMENT STATUS , P ANK A4,/5E CHECK IF CORE RESIDENT OR... ~ 2 P RF(NZ) LKM030 ...USED BY AN INTERRUPTED TASK P CF A15,RELPAG RELEASE PAGE P
0x0559d0…055b64 Dummy {f00=0x001b, f01=0x0190, f02=»5,SWL48 SWITCH TO LEVEL 48 P LDK A4,0 " P LDR A3,A6 DATA DIRECTIVE 4 P RF(NN) LKM050 NO LABEL V P* v P* LKM REQUEST WITH LABEL P* P IFT MMUPAG=0 P LDR* A4,A2 LABEL P XIF P* P IFT MMUPAG=1 P
0x055b64…055cf8 Dummy {f00=0x001b, f01=0x018e, f02=»* P EJECT LRPINT P* " . P* UPDATE TTB:SA AND GO TO LKM PROCESSOR , P* ^ PLKM050 EQU * h . P ST A2,TTB:SA,A5 SET NEXT DISPATCH ADDRESS | P ADR A3,A3 INDEX IN LKMAL & P RF(Z) LKMQDI TASK SWITCH REQUEST P CW A3,LKMAL
0x055cf8…055e8c Dummy {f00=0x001b, f01=0x0190, f02=» P EJECT LRPINT P* P* * P* L K M E R R 4 P* L P* V > PLKMERR LDK A1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT ` P* PLKM070 EQU * P CF A15,HALT HALT SYSTEM P* P* P* L K M R Q E
0x055e8c…056020 Dummy {f00=0x001b, f01=0x0190, f02=» P LDKL A2,-1 P* P* & P* L K M S R C 0 P* H . P* SET A7 = A2, QUEUE TASK AND DISPATCH. R P* P* A2 = RETURN CODE P* A5 = TTAB ADDRESS P* P* PLKMSRC EQU * 8 P ST A2,TTB:SA+14,A5 SET
0x056020…0561b4 (1, 108) Dummy {f00=0x001b, f01=0x0190, f02=» P* P* A5 = TTAB ADDRESS P* , P* 6 PLKMQDI EQU * @ P CF A15,QTJOB T P* j * PT:DISP EQU * COMMON EXIT TO DISPATCHER t P ABL TDISP GO TO DISPATCHER P* P EJECT LRPINT P P* P* I H P F A
0x0561b4…056348 Dummy {f00=0x001b, f01=0x0190, f02=»BLOCK ADDRESS P DATA 0 & PTTABPF DATA 0 TTAB FOR POWER FAIL & P DATA '#P' P P DATA 0 b PA15SAV DATA 0 r P DATA /00C0 P DATA PFTASK P P P P P & PPFX DATA 1 POWER ON/OFF INDICATOR $ P P=P
0x056348…0564dc Dummy {f00=0x001b, f01=0x0190, f02=»F POST PROCESSING FLAG P NZ=PWF POST PROCESSING P EJECT LRPINT @ P X P* ` * P* POWER FAIL/AUTO RESTART INTERRUPT j P* P PIHPFAR EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT & P RIT /17 RESET INTERNAL INTERRUP
0x0564dc…056670 Dummy {f00=0x001b, f01=0x018e, f02=»1 & P CF A15,SAVE8 SAVE A1-A14 ON STACK P STR A9,A15 4 P STR A10,A15 H P STR A11,A15 P STR A12,A15 p P STR A13,A15 P STR A14,A15 P XIF P P IFT CPU852=0 $ P MSR 14,A15 SAVE A1-A14 ON STACK P XIF
0x056670…056804 Dummy {f00=0x001b, f01=0x0190, f02=» P EJECT LRPINT P P* ( P* POWER ON 2 P* F P P " PPOWON LD A15,A15SAV RELOAD A15 X P ~ P IFT MMUPAG=1 $ P TL -30,A15 RESTORE MMU TABLE =2 P XIF P IFT CPU852=1 P LDR* A14,A15 RESTORE A9-A14
0x056804…056998 Dummy {f00=0x001b, f01=0x0190, f02=»PU852=0 P MLR 14,A15 RESTORE A9-A14 P MSR 8,A15 2 P XIF D P P 4 P LD A1,DISQUE QUEUE PFTASK FIRST FOR DISPATCHING X P LDKL A2,TTABPF P CWR A1,A2 4 P RB(E) T:DISP ALREADY QUEUED, PWF DURING PFPOST P STR A1,A2 P ST
0x056998…056b2c Dummy {f00=0x001b, f01=0x0190, f02=»FAIL TASK . P* STARTED AFTER ALL PWF POST PROCESSING P* D P N . PPFTASK CM PFPOST CLEAR PWF POST PROC FLAG V P CM INIFLG AND INIT FLAG & P CF A15,PFINIT RESTART I/O DEVICES P CM PRUN EXIT PFTASK P RB T:DISP P EJECT
0x056b2c…056cc0 Dummy {f00=0x001b, f01=0x0190, f02=»WILL BE PROCESSED EACH 100 MS. | P* & * PIHRTC ST P,INTSAV SAVE LAST INTERRUPT 0 " P RIT /1B RESET INTERRUPT FLAG ^ P IM COUNT $ P RF(P) RTC010 CHECK TIMER QUEUE P RTN A15 P* PRTC010 EQU * P IFT CPU852=1 & P CF A1
0x056cc0…056e54 (1, 109) Dummy {f00=0x001b, f01=0x0190, f02=» P EJECT LRPINT P* P* & P IFT NETFRQ=50 0 " P LDKL A4,-4 SET 100 MS SWITCH F P XIF l P* x P IFT NETFRQ=60 " P LDKL A4,-5 SET 100 MS SWITCH P XIF P ST A4,COUNT =1 P* . P LDKL A2,CLOCK QUEUE CLOCK R
0x056e54…056fe8 Dummy {f00=0x001b, f01=0x0190, f02=» XIF P* PSWDISP EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY * P RB T:DISP R P* d P EJECT LRPINT n P* P* P IFT MONCLK=1 P* < P* MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND. P* PRTC0
0x056fe8…05717c Dummy {f00=0x001b, f01=0x018e, f02=»ES AND SECONDS p P* ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS L $ P RB(NE) SWDISP GO TO DISPATCHER ~ ( P CM MONCLO+2,A4 RESTART TIME COUNTER P SUK A4,2 END 6 P RF(N) MCLO30 MIDNIGHT CARRY AND
0x05717c…057310 Dummy {f00=0x001b, f01=0x0190, f02=» ( P IM MCARRY INCREMENT MIDNIGHT CARRY ! P* ! 4 P EJECT LRPINT ! > P* ! V P* ! ` P IFT MONDAT=1 ! j P* ! P* UPDATE DAY, MONTH AND YEAR ! P* ! P IFT CPU852=1 ! P LDKL A1,MONTH MONTH ADDRESS ! P LDKL A2,DAY DAY ADDRE
0x057310…0574a4 Dummy {f00=0x001b, f01=0x0190, f02=»H AND DAY ADDRESS TO A1 AND A2 ! z P XIF " & P* " 2 P IFT MONCLK+MONDAT=2 " < P IMR A2 INCREMENT DAY " X P LDR* A4,A1 MONTH " v P LDR A6,A4 " P LDR* A5,A2 NEW DAY " " P SUK A5,29 CHECK IF DAY WAS 28 " 0 P RF(Z) MCLO40 YES, GO AND CHECK IF F
0x0574a4…057638 Dummy {f00=0x001b, f01=0x0190, f02=» RETURN " ~ ( P RF MCLO50 YES, WE HAVE A NEW MONTH # P* # < PMCLO40 EQU * # F P SUK A6,2 CHECK IF FEBRUARY # Z P RB(NZ) SWDISP NO, RETURN # ~ P* # P EJECT LRPINT # P* # & P* CHANGE TO NEW MONTH (AND YEAR?) # P* # P* #
0x057638…0577cc Dummy {f00=0x001b, f01=0x0190, f02=»NZ) SWDISP NO, RETURN # $ P STR A3,A1 SET MONTH TO JANUARY $ P IM YEAR HAPPY NEW YEAR!!! $ F P RB SWDISP RETURN $ h P* $ PMCLO60 EQU * $ P LDR A7,A6 MONTH $ P ANK A6,1 $ P RF(Z) MCLO70 MONTH EVEN $ P SUK A7,7 $ ( P RB(P) MCLO5
0x0577cc…057960 Dummy {f00=0x001b, f01=0x0190, f02=»O50 APRIL OR JUNE $ P XIF % P* % & P IFT MONCLK=1 % 0 P RB SWDISP RETURN % F P XIF % ` P* % l P EJECT LRPINT % v P* % P* % P* M O N C L O % P* % P* % P IFT MONCLK+MONDAT=2 % , P DATA 0 THIS WORD USED BY MONT
0x057960…057af4 (1, 110) Dummy {f00=0x001c, f01=0x0190, f02=» , PMCARRY DATA 0 ACKUMULATED 24 HOUR CARRY & P DATA 0 HOUR & 4 P DATA 0 MINUTE & H P DATA 0 SECOND & ^ PSECOND DATA 0 SECOND SWITCH & t P XIF & P* & P EJECT LRPINT & P* & * P* CLOCK ROUTINE STARTED EACH 100 MS. & P* & P
0x057af4…057c88 Dummy {f00=0x001c, f01=0x0190, f02=»CK & v P ABL(Z) MEXIT END OF QUEUE ' P IM 4,A4 INCREMENT TIMER ' , P RB(N) CLK10 NOT TIME OUT ' L P RF(Z) CLK30 TIME OUT ' n P LDR* A3,A4 RELEASE TIMER ' P STR A3,A6 ' P CF A15,FREBLK ' P LDR A4,A2 ' P CF A15,FREBLK ' P RB CLK20
0x057c88…057e1c Dummy {f00=0x001c, f01=0x0190, f02=»VEL 48 ' v P INH ( P RB CLK10 ( P* ( , PCLK40 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 LDKL A1,/C4C0 LEVEL 4
0x057e1c…057fb0 Dummy {f00=0x001c, f01=0x4124, f02=»2 GO TO TIME OUT ROUTINE ( P* ) P* ) * PCOUNT DATA 0 100 MS SWITCH ) 4 P* ) V P* ) ` P* T I M Q U E ) j P* ) . P* POINTER TO FIRST BLOCK IN TIMER QUEUE ) P* ) P* ) PTIMQUE EQU * ) P DATA 0 ) P* ) P* )
0x057fb0…058144 Dummy {f00=0x001c, 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
0x058144…0582d8 Dummy {f00=0x001c, f01=0x018e, f02=»------------------------------- * h P EJECT + ( > P********************************************************** + : P* + | P* LINE CONTROL CHAR EQU:S + P* + > P********************************************************** + P* + & PSF E
0x0582d8…05846c Dummy {f00=0x001c, f01=0x0190, f02=» PSOH EQU /01 , PENQ EQU /05 , PDLE EQU /10 , , PEOT EQU /04 , @ PNAK EQU /15 , T PESC EQU /1B , h PSBA EQU /11 , | PGP EQU /22 , PRDBCOM EQU /32 , PRDMCOM EQU /36 , P EJECT , P IFT CODE=0 , PPAR EQU /80 , PRVI
0x05846c…058600 Dummy {f00=0x001c, f01=0x018e, f02=»E=0 , P IFT MSV1=1 - 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE - P XIF - T P IFT CODE=1 - ` PPAR EQU /00 - t PWACK EQU /2C - PRVI EQU /40 - PACK0 EQU /18 - PACK1 EQU /2F - PSYNEBC EQU /32 - PENQEBC EQU /2D - PETBE
0x058600…058794 (1, 111) Opaque[0x194]
0x058794…058928 # DirEnt {nam=»DRKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0388, f03=0x0000}
0x058794…058928 IdxSect {
0x058794…058928 f00 = 0x001c // 0x58794 @0x0
0x058794…058928 f01 = 0x0016 // 0x58796 @0x2
0x058794…058928 gno = [ // 0x58798 @0x4
0x058794…058928 [0x00]: C0x001c.0x1.0
0x058794…058928 [0x01]: C0x001c.0x2.0
0x058794…058928 [0x02]: C0x001c.0x3.0
0x058794…058928 [0x03]: C0x001d.0x0.0
0x058794…058928 [0x04]: C0x001d.0x1.0
0x058794…058928 [0x05]: C0x001d.0x2.0
0x058794…058928 [0x06]: C0x001d.0x3.0
0x058794…058928 [0x07]: C0x001e.0x0.0
0x058794…058928 [0x08]: C0x001e.0x1.0
0x058794…058928 [0x09]: C0x001e.0x2.0
0x058794…058928 [0x0a]: C0x001e.0x3.0
0x058794…058928 ]
0x058794…058928 }
0x058928…058abc Dummy {f00=0x001c, f01=0x0190, f02=» 2 P IDENT DRKB04 REL 11.0 81-06-26 870105041100 P : 4 P =4 WRONG RETURN CODE (UNDEFINED KEY, BIT 13) B P REL 11.0 81-06-16 z 4 P =3 ODD DWT-ADDRESS WAS NOT MADE EVEN IN IHKB P REL 11.0 81-05-25 0 P =2 GREEK CHARACTER SET
0x058abc…058c50 Dummy {f00=0x001c, f01=0x0190, f02=»LAR INPUT BUFFER x P REL 11.0 81-01-26 P* 4 . P****************************************** > P* p P* z : P* P H I L I P S T E R M I N A L S Y S T E M P T S P* P* DRKB04 = DRIVER KEYBOARD P* . P**************
0x058c50…058de4 Dummy {f00=0x001c, f01=0x0190, f02=» n 2 P* -71, -72, 6331, 6342 AND BADGE CARD READER 4 P* PTS 6261 WITH CONNECTED PIN (PERSONAL IDEN- > & P* TIFICATION NUMBER -KEYBOARD). v P* 4 P* ONLY INPUT DATA ARE HANDLED BY THIS DRIVER. P* 0 P* AN ECHO DEVICE CAN BE AT
0x058de4…058f78 Dummy {f00=0x001c, f01=0x018e, f02=»LOWING PARTS: r " P* R C K B = RECOVERY ROUTINE " P* A C K B = ACTIVATION PART < P* M A K B = MAIN PART b $ P* I H K B = INTERRUPT HANDLER P* * P* THE FOLLOWING ORDERS ARE TREATED: P* ORDER 01: BASIC READ " P*
0x058f78…05910c Dummy {f00=0x001c, f01=0x0190, f02=» P* NORMAL REGISTER USAGE: $ P* REGISTER A1: RETURN CODE * ( P* A2: INPUT CHARACTER R $ P* A3: BUFFER INDEX ~ & P* A4: WORK REGISTER " P* A5: STACK BASE $ P* A6:
0x05910c…0592a0 Dummy {f00=0x001c, f01=0x0190, f02=» 2 P* DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE P* DEFINED IN DWT. > P* Z 2 P* IF TIMING IS WANTED, BIT 0 IN DWTDEV MUST d 8 P* BE SET UNEQUAL TO ZERO. STANDARD VALUE FOR TIME- 6 P* OUT IS 30 SECONDS SINCE LAST DEPRESSED KEY. IF
0x0592a0…059434 (1, 112) Dummy {f00=0x001c, f01=0x0190, f02=»IN DWTDEV IS SET TO ZERO IF CHARACTERS WITHIN : P* /30-/39 AND /70-/79 ARE ACCEPTED FOR NUMERIC READ. 6 8 P* IF IT IS SET TO ONE, ONLY /30-/39 ARE ACCEPTED. t P* > P* BIT 2 IN DWTDEV IS SET TO ZERO IF /20-/5F ARE ACCEPTED < P* FOR STAN
0x059434…0595c8 Dummy {f00=0x001c, f01=0x0190, f02=» 8 P* IN DWTDEV MUST BE SET IF PTS 6236/71/72 IS USED. P* D < P* BIT 4 IN DWTDEV IS USED BY THE DRIVER TO INDICATE IF N * P* MORE CHARACTERS ARE TO BE ECHOED. P* @ P* SPACE FOR THE CIRCULAR INPUT BUFFER IS RESERVED IN DWT.
0x0595c8…05975c Dummy {f00=0x001c, f01=0x0190, f02=»ON | P* ---- TIME OUT FUNCTION . P* ---- KEYBOARD LOCKED IF NO KEYLOCK ON , 4 P* ---- COMPLETION OF READ REQUEST AT POWER-ON ^ B P* ---- SHIFT KEY ON NUMERIC PART OF 6272 USED AS NORMAL KEY P* P EJECT P* ENTRIES P
0x05975c…0598f0 Dummy {f00=0x001c, f01=0x0190, f02=»SPATCH p " P EXTRN INPUT READ A CHARACTER P EXTRN ECHO ECHO 4 P EXTRN ECHEND END OF ECHO L P EXTRN LDISP DISPATCH n P EXTRN SETIME SETS TIME & P EXTRN LENDIS END I/O AND DISPATCH P EXTRN ABORT ABORT REQUESTS P EXTRN ABTADR
0x0598f0…059a84 Dummy {f00=0x001c, f01=0x0190, f02=»RN DWTST P EXTRN DWTA3 P EXTRN DWTA5 $ P EXTRN DWTADR 8 P EXTRN DWTECH N P EXTRN DWTSB2 d P EXTRN DWTECB z P* P* ECB PARAMETERS P* P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LENGTH " P
0x059a84…059c18 Dummy {f00=0x001c, f01=0x0190, f02=» IN INPUT BUFFER z " PTIME EQU 300 TIMEOUT CONSTANT P EJECT > P* L ( P************************************ V P* P* CONDITIONAL ASSEMBLY P* ( P************************************ P* < P* TIME OUT FUNCTION MAY BE
0x059c18…059dac Dummy {f00=0x001c, f01=0x0190, f02=»TING X:B = 0 h P* PX:B EQU 1 PCECHO EQU 00 0 P* D 6 P* COMPLETION OF READ REQUEST AT POWER ON MAY BE N " P* INCLUDED BY SETTING X:C =1 P* PX:C EQU 0 PRECOV EQU X:C P* : P* THE LENGTH OF THE CIRCULAR
0x059dac…059f40 Dummy {f00=0x001c, f01=0x018e, f02=» P* CODE CONVERSION DUMMY P* * PX:E EQU 0 4 P* F P EJECT P P* ^ @ P* BY SETTING X:F=0 THE KEY A15 ON KB 71/72 GIVES THE CODE h ( P* /00 INSTEAD OF BEING A SHIFT KEY P* PX:F EQU 1 PNSHIFT EQU 1 P
0x059f40…05a0d4 (1, 113) Dummy {f00=0x001c, f01=0x0190, f02=» P* P* MMU BUFFER SIZE P* * PX:H EQU 10 4 PDVBLEN EQU X:H F P* P* MMU KEY TABLE SIZE f P* PX:I EQU 10 PDVBKTB EQU X:I P* 6 P* X:J SHOULD BE SET TO 1 IF KB 6236, 71 OR 72 =2 " P* IS INCLUDE
0x05a0d4…05a268 Dummy {f00=0x001c, f01=0x0190, f02=» * P* 71 OR 72 IS INCLUDED IN SYSTEM =2 P* 6 PX:K EQU 1 @ POLDKB EQU 00 R P* f 2 P* X:L SHOULD BE SET TO 1 IF PLC IS USED =2 p P* PX:L EQU 1 PPLC EQU X:L P* , P* IF X:M = 1 IT IS POSSIBLE TO USE =2
0x05a268…05a3fc Dummy {f00=0x001c, f01=0x0190, f02=»G IS f * P* OBTAINED BY SETTING MMUPAG EQU 1. P* : PMMUPAG EQU 1 D P* X P EJECT b P* p P* DWT-DISPLACEMENT z P* " PDWTKEY EQU /04 KEYLOCK MEMORY $ PDWTCS EQU /06 CRTL-SHIFT MEMORY . PDWTCTB EQU /08 CONVERSION
0x05a3fc…05a590 Dummy {f00=0x001c, f01=0x0190, f02=» TO FIRST PLACE z ( PDWTUTQ EQU /0E POINTER TO LAST PLACE " PDWTSQ EQU /10 START OF BUFFER D ( PDWTEQ EQU DWTSQ+DWTLNG END OF BUFFER j P* P* ADDRESS BLOCK P* P DATA DVBKTB MMU KEY TABLE P DATA DVBLEN MMU BUFFER SIZE
0x05a590…05a724 Dummy {f00=0x001c, f01=0x0190, f02=» HANDLER | P IFF RECOV=1 P DATA 0 NO RECOVERY ROUTINE $ P XIF H P IFT RECOV=1 T P DATA RCKB RECOVERY ROUTINE h P EJECT ( P************************************ P* P* RECOVERY ROUTINE P* * P******************
0x05a724…05a8b8 Dummy {f00=0x001c, f01=0x018e, f02=» POWER OFF v P ABL LENDIS DISPATCH ! P* 0 PRC10 CWK A7,1 BASIC READ ? : P ABL(E) LDISP YES ! P* NO ! x , P CF A15,ABORT RESET INPUT REQUESTED FLAG , P LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH & PRC15 CM ECBCW,A8 COMPLETE REQUES
0x05a8b8…05aa4c Dummy {f00=0x001c, f01=0x0190, f02=» P* A C K B P* ACTIVATION PART P* 8 P* B ( P************************************ L PACKB EQU * x P ENB P* P LDK A1,0 RESET REGISTERS P LDK A3,0 P* P* CHECK ORDER P* P LDR A4,
0x05aa4c…05abe0 Dummy {f00=0x001c, f01=0x0190, f02=»0 ORDER 31 P* P* ILLEGAL ORDER P* 6 PAKB100 EQU * @ P ABL LENDER COMPLETE REQUEST T P EJECT x P* & P* ORDER 31. RESET INPUT BUFFER. P* PAKB110 EQU * P INH $ P LD A1,DWTDEV+DWTUTQ,A6 BUF END
0x05abe0…05ad74 (1, 114) Dummy {f00=0x001d, f01=0x0190, f02=» LD A4,DWTDEV,A6 ( P ANKL A4,/1000 PTS 6236, -71, -72 ? P RF(Z) AKB118 NO ! D P XIF ^ P IFT NEWKB=1 =2 j P* : P* SHIFT, CTRL AND KEYLOCK CHARACTERS ARE NOT REMOVED . P* FROM BUFFER WHEN KB 6236/71/72 IS USED P* " PAK
0x05ad74…05af08 Dummy {f00=0x001d, f01=0x0190, f02=»S ! SKIP CHARACTER P XIF P IFT NEWKB=1 =2 & P SUK A4,/80 SKIP CHARACTER ? > P RF(Z) AKB113 YES ! b & P ADK A4,/10 SHIFT, CTRL, KEYLOCK ? ~ P RF(NN) AKB120 YES ! P* * PAKB113 CF A15,EOQUEU GET NEXT POINTER ( P CW A1,DWTDE
0x05af08…05b09c Dummy {f00=0x001d, f01=0x0190, f02=»,A6 YES! | PAKB119 ENB . P ABL MKB335 SET RC=0 AND COMPLETE REQUEST " P* T P IFT NEWKB=1 =2 ^ $ PAKB120 ADK A4,/70 RESTORE CHAR. v P SCR A4,A2 STORE IN BUF. " P LDR A3,A1 EXCHANGE REGISTERS P LDR A1,A2 $ P CF A15,EOQUEU GET
0x05b09c…05b230 Dummy {f00=0x001d, f01=0x0190, f02=» IFT RECOV=1 P* P* POWER OFF TEST P* 8 P LD A2,DWTDEV,A6 POWER OFF ? B P ANKL A2,/400 f P RF(E) AKB205 NO ! | * P XRS A2,DWTDEV,A6 RESET POWER OFF BIT P CWK A7,1 BASIC READ ? ( P RB(NE) RC15 NO ! COMPLETE REQUEST !
0x05b230…05b3c4 Dummy {f00=0x001d, f01=0x0190, f02=»,DWTDEV,A6 TIMING ? P RF(NN) AKB210 NO! P* 6 @ P LD A4,DWTTP+DWTDEV,A6 YES ! IS THERE AN EXISTING POINTER ? @ P RF(E) AKBTIM NO! P* & P CF A15,RESTRT YES ! RESTART TIMER P RF AKB210 P* PAKBTIM EQU * P LDR A
0x05b3c4…05b558 Dummy {f00=0x001d, f01=0x0190, f02=»,DWTTP+DWTDEV,A6 STORE TIMER ADDRESS IN DWT P XIF 4 P EJECT @ P* N P* REQUESTED LENGTH OK ? X P* z 8 PAKB210 LD A2,ECBRL,A8 REQUESTED LENGTH IN ECB = 0 ? , P ABL(E) MKBEND YES ! COMPLETE REQUEST ! P* P* CLEAR ECB-
0x05b558…05b6ec Dummy {f00=0x001d, f01=0x018e, f02=» SCR A3,A1 CLEAR BUFFER UNTIL REQUESTED LENGTH P SUK A1,1 6 P SUK A2,1 J P RB(NE) AKB230 NOT READY YET P EJECT P* ( P************************************ P* P* P* M K B $ P* MAIN PART OF KEYBOARD DRIV
0x05b6ec…05b880 Dummy {f00=0x001d, f01=0x0190, f02=» ^ 2 P* CHARACTERS AND NO OVERFLOW HAS OCCURRED, A $ P* CHARACTER WILL BE PUT IN A2 > P* f PMKB100 EQU * p P INH 2 P LD A1,DWTDEV+DWTUTQ,A6 FETCH A CHARACTER FROM " P LCR A2,A1 CIRCULAR BUFFER END P* P LDR A4,A2 P
0x05b880…05ba14 (1, 115) Dummy {f00=0x001d, f01=0x0190, f02=» p P ABL MKBEND COMPLETE REQUEST P* , 6 PMKB130 CW A1,DWTDEV+DWTINQ,A6 ANYTHING IN BUFFER ? 6 P RF(E) MKB140 NO ! p & P CF A15,EOQUEU YES ! MOVE POINTER . P ST A1,DWTDEV+DWTUTQ,A6 STORE NEW POINTER P =1 P IFT PLC=1 =2
0x05ba14…05bba8 Dummy {f00=0x001d, f01=0x0190, f02=»T b , P CW A1,DWTDEV+DWTINQ,A6 MORE IN BUFFER ? P RF(E) MKB135 NO ! : P ORS A4,DWTDEV,A6 T P XIF n PMKB133 ENB z P RF MKB150 P* P IFT PLC=1 =2 PMKB135 C1R A4,A4 8 P ANS A4,DWTDEV,A6 CLEAR "MORE CHARACTERS" INDICATI
0x05bba8…05bd3c Dummy {f00=0x001d, f01=0x0190, f02=» CF A5,INPUT READ CHARACTER P ENB $ P* 0 & P ANK A2,/7F MASK TO GET CHARACTER : P* d P IFT PLC=1 =2 n 6 P* SET "MORE CHARACTERS" INDICATION BIT IF THERE P* ARE MORE CHARACTERS P* ( P ANK A1,/1 MASK NOT SIGNIFICANT
0x05bd3c…05bed0 Dummy {f00=0x001d, f01=0x0190, f02=» l P XIF ! P* ! PMKB150 EQU * ! P IFT NEWKB+OLDKB=2 =2 ! 2 P* ! P * P* CHECK WHICH KEYBOARD THAT IS USED ! Z P* ! " P LD A4,DWTDEV,A6 KEYBOARD WITH ! ( P ANKL A4,/1000 SPECIAL CONVERSION ? ! P RF(Z) MKB290 PERHAPS ! ! P XIF
0x05bed0…05c064 Dummy {f00=0x001d, f01=0x0190, f02=» , P SUK A4,/80 SKIP CHAR. FROM CIRC. BUF.? " * P RB(Z) MKB100 YES, READ NEXT CHARACTER " 4 P ADK A4,/8 CTRL/SHIFT ? " b P RF(NN) MKB220 YES ! " " P ADK A4,/8 NORMAL CHARACTER ? " P RF(N) MKB300 YES ! " P EJECT " P* " > P* KEYLOCK IS T
0x05c064…05c1f8 Dummy {f00=0x001d, f01=0x0190, f02=»BECAUSE OF POWER UP, THE CHARAC- " x P* TER SHOULD BE IGNORED. # ( P* # J P LDK A1,1 "FLAG BIT" # T " P LDR A4,A4 KEYLOCK CHAR. - /70 # p $ PMKB160 RF(Z) MKB170 KEYLOCK ON ! # P SUK A4,1 # P RF(Z) MKB180 KEYLOCK OFF ! # $ P SLC A1,1 SHIFT "FLA
0x05c1f8…05c38c Dummy {f00=0x001d, f01=0x0190, f02=»ST IF KEYLOCK IS CHANGED # v P TM A4,A1 $ . P RB(NE) MKB100 NO CHANGE, READ A NEW CHAR. $ 2 , P ORS A1,DWTDEV+DWTKEY,A6 SET "FLAG BIT" $ d P RF MKB190 $ PMKB180 EQU * $ 4 P LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK CHANGED $ P TM A4,A1 $ P RB(
0x05c38c…05c520 Dummy {f00=0x001d, f01=0x0190, f02=» $ 0 P CF A15,STORE STORE KEYLOCK CHARACTER IN ECB % P LDR A4,A7 LOAD ORDER CODE % < P SUK A4,2 % ^ P RF(N) MKB325 ORDER 1 ! % p P EJECT % P* % 0 P* KEYLOCK IS TURNED ! MAKE A NEGATIVE CODE % 6 P* TO THE CONTROLWORD IN ECB AND COMPLETE R
0x05c520…05c6b4 (1, 116) Dummy {f00=0x001d, f01=0x0190, f02=» P RF(N) MKB210 ON OR OFF ? & P ADK A4,/4 ON ! & & $ PMKB210 SLL A4,1 MAKE WORD POSI- & > P SRL A4,1 TIVE AGAIN & f , P C1R A4,A4 CHANGE 0 TO 1 AND VICE VERSA & & P ST A4,ECBCW,A8 STORE CODE IN ECB & , P RF MKB335 SET RC=0 AND COMPLETE REQUEST &
0x05c6b4…05c848 Dummy {f00=0x001d, f01=0x0190, f02=»DWTKEY,A6 IS KB LOCKED ? & , P RB(Z) MKB100 YES ! READ A NEW CHARACTER ' P XIF ' P P IFT NEWKB=1 =2 ' P IFT NSHIFT=0 ' t P* ' 2 P* MAKE CHARACTER /00 IF NUMERIC SHIFT KEY IS ' 2 P* DEPRESSED, AND SKIP THE INCOMING CHARACTER ' P* IF I
0x05c848…05c9dc Dummy {f00=0x001d, f01=0x0190, f02=»F MKB300 ' P* ( " PMKB230 CCK A2,/7D00 RELEASED ? ( & P RB(E) MKB100 YES ! SKIP CHARACTER ( @ P XIF ( j P IFT NEWKB=1 =2 ( v PMKB250 LDK A1,/2 SHIFT BIT ( P LDR A4,A4 SHIFT ON ? ( P RF(Z) MKB260 YES ! ( P SUK A4,1 SHIFT OFF ? ( P
0x05c9dc…05cb70 Dummy {f00=0x001d, f01=0x018e, f02=»F ? ( | P RF(Z) MKB270 YES ! ) P SUK A4,1 NUMERIC SHIFT ? ) ( P RB MKB250 YES ! ) J P* ) b & PMKB260 ORS A1,DWTDEV+DWTCS,A6 SET ) l P RF MKB280 ) PMKB270 C1R A1,A1 COMPLEMENT ) " P ANS A1,DWTDEV+DWTCS,A6 CLEAR ) P* ) $ PMKB280 ABL M
0x05cb70…05cd04 Dummy {f00=0x001d, f01=0x0190, f02=» P* NUMERIC PART OF 6234. * P* * & PMKB290 EQU * * 0 $ P LDR A1,A6 IF THE DWT-ADDRESS IS * D , P ANK A1,1 ODD, SHOULD SPECIAL CONVERSION * l P RF(NZ) MKB295 BE USED * ( P LDR A4,A2 IF BIT 8 IN CHARACTER IS * 0 P ANK A4,/80 SET SHOULD SPECIAL CON
0x05cd04…05ce98 Dummy {f00=0x001d, f01=0x0190, f02=»ION ! * t P* + 2 PMKB295 ANKL A6,/FFFE MAKE THE DWT-ADDRESS EVEN + P LDK A4,/8 LOAD SPECIAL BIT + N P ST A4,DWTDEV+DWTCS,A6 + r P RF MKB310 + P XIF + P EJECT + P* + P* NORMAL CONVERSION + P* + PMKB300 EQU * + P* +
0x05ce98…05d02c Dummy {f00=0x001d, f01=0x018e, f02=» + PMKB310 EQU * , , P LD A1,DWTDEV+DWTCTB,A6 GET CTAB ADDRESS , P RF(E) MKB320 NO CONVERSION , L 8 P AD A1,DWTDEV+DWTCS,A6 GET CURRENT CONVERSION TABLE , p P LDR* A1,A1 , & P RF(E) MKB320 NO CONVERSION TABLE , P LDR A4,A2 , P SRL A4,3 LI
0x05d02c…05d1c0 Dummy {f00=0x001d, f01=0x0190, f02=» , P ADR A1,A4 ADD ROW INDEX - P LCR A2,A1 LOAD CHARACTER - ( P* - J PMKB320 EQU * - T P IFT OLDKB=1 =2 - h P LDK A4,/7 RESET SPECIAL BIT - P ANS A4,DWTDEV+DWTCS,A6 - P XIF - P EJECT - P* - , P* CHECK IF BASIC READ OR ORDER
0x05d1c0…05d354 (1, 117) Dummy {f00=0x001d, f01=0x018e, f02=»1, BASIC READ - P* . , P CF A5,STOECH STORE CHAR. IN ECB-BUFFER . H P* AND SEND IT TO ECHO-DEVICE . P < P* IF ECHO WANTED . P* . PMKB325 EQU * . 0 P CW A3,ECBRL,A
0x05d354…05d4e8 Dummy {f00=0x001d, f01=0x0190, f02=» . j P EJECT / P* / . P* ORDER 2 OR 3, STANDARD OR NUMERIC READ / P* / R PMKB330 EQU * / P* / p , P* CHECK IF IT IS AN END-OF-RECORD-KEY / z P* / & P LD A1,ECBCW,A8 KEY-TABLE ADDRESS / P RF(Z) MKB360 NO KEYTABLE ! / " P LCR A
0x05d4e8…05d67c Dummy {f00=0x001d, f01=0x0190, f02=»1 / , P RF(N) MKB360 KEY NOT FOUND IN KEYTABLE 0 P SUK A1,1 NEXT KEY 0 : P CCR A2,A1 EOR-CHARACTER ? 0 T 0 P RB(NE) MKB340 NO ! TRY NEXT KEY IN KEYTABLE 0 v P* 0 ( P ADK A4,1 YES ! MAKE KEYTABLE INDEX 0 PMKB350 EQU * 0 0 P ST A4,ECBCW,A8 STOR
0x05d67c…05d810 Dummy {f00=0x001d, f01=0x0190, f02=»OR CHARACTER 0 z P CF A5,EORECH ECHO CHARACTER 1 P XIF 1 8 P* 1 D PMKB335 EQU * 1 N " P LDK A1,0 SET RETURN CODE = 0 1 b $ P RF MKBEND AND COMPLETE REQUEST 1 P* 1 P EJECT 1 P* 1 P* 1 P* CHARACTER CHECK 1 P* 1 PMKB360
0x05d810…05d9a4 Dummy {f00=0x001d, f01=0x0190, f02=» 1 | P LDK A4,/20 LOWER LIMIT 2 P SLC A1,2 /20-/7F ? 2 ( P RF(NN) MKB370 YES ! =4 2 D P LDK A1,/5F NO ! UPPER LIMIT 2 d P RF MKB400 2 P* 2 " PMKB370 LDK A1,/7F UPPER LIMIT 2 P RF MKB400 2 P* 2 ( PMKB380 SLC A1,1 /30-/39 & /70-/79
0x05d9a4…05db38 Dummy {f00=0x001d, f01=0x0190, f02=»R LIMIT 2 P* 3 PMKB400 SUR A1,A2 3 $ P RF(N) MKB420 NOT WITHIN LIMITS 3 2 P SUR A4,A2 3 Z $ P RF(P) MKB420 NOT WITHIN LIMITS 3 l P LDR* A1,A15 DUMMY LOAD 3 P EJECT 3 P* 3 $ P* IT IS A "NORMAL" CHARACTER ! 3 P* 3 PMKB405 EQU
0x05db38…05dccc Dummy {f00=0x001d, f01=0x0190, f02=»T CHARACTER 3 t P* 4 ( PMKB410 LDK A1,8 YES ! SET ERROR CODE 4 P RF MKBEND 4 J P* 4 8 P* CHECK IF IT IS BACKSPACE, CLEAR, MULTIPLE ZERO, 4 f 0 P* STANDARD EOR, SKIP OR UNKNOWN CHARACTER 4 P* 4 ( PMKB420 LDR* A2,A15 RELOAD CHARACTER 4
0x05dccc…05de60 Dummy {f00=0x001d, f01=0x018e, f02=» IN ECBCW IF STANDARD EOR 4 x P CCK A1,/0D00 STANDARD EOR ? 5 " P RB(E) MKB350 YES ! 5 F PMKB440 EQU * 5 b $ P SUK A1,/1B TRIPLE ZERO ? (/1B) 5 v P ABL(E) MZ30 YES ! 5 P* 5 " P ADK A1,/13 BACKSPACE ? (/08) 5 P ABL(E) BACKSP YES ! 5 P* 5
0x05de60…05dff4 (1, 118) Dummy {f00=0x001e, f01=0x0190, f02=» 5 | P* 6 $ P SUK A1,/E5 SKIP CHARACTER (/FF) 6 P ABL(E) MKB100 YES ! 6 : P IFT GREECE=1 =2 6 V $ P LDR A1,A2 CHECK IF CHARACTER IS 6 p & P SUK A1,/B0 WITHIN LIMITS FOR THE 6 & P RF(N) MKB460 GREEK CHARACTER SET 6 P SUK A1,/9 6 P RB(NP) MK
0x05dff4…05e188 Dummy {f00=0x001e, f01=0x0190, f02=»ORE STORE CHARACTER IN ECB-BUFFER 6 P LDK A1,4 7 * P* 7 < P EJECT 7 F , P**************************************** 7 T P* 7 P* 7 P* COMMON END 7 P* 7 P* 7 * P************************************* 7 PMKBEND EQU * 7 P* 7
0x05e188…05e31c Dummy {f00=0x001e, f01=0x0190, f02=»M DWTTP+DWTDEV,A6 7 P XIF 8 P* 8 & PMKBE10 EQU * 8 0 * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH 8 D P* 8 r P IFT CECHO=1 8 | P LDR A4,A1 SAVE A1 8 P CF A5,ECHEND END OF ECHOING 8 P LDR A1,A4 8 P XIF 8 P* 8 , P ABL LENDIS PERFOR
0x05e31c…05e4b0 Dummy {f00=0x001e, f01=0x0190, f02=» P* 9 P* 9 * P************************************** 9 PIHKB EQU * 9 F & P ANK A2,/7F MASK TO GET CHARACTER 9 X P IFT CTIMUT=1 9 ( P CF A15,RESTRT RESTART TIMEOUT TIMER 9 P XIF 9 P* 9 4 P* STORE INCOMING CHARACTER IN CIRCULAR BUFFE
0x05e4b0…05e644 Dummy {f00=0x001e, f01=0x0190, f02=»/80 YES INDICATE BY SETTING BIT 8 9 & P SUK A6,1 MAKE DWT-ADDRESS EVEN =3 : * P XIF : T " PIHKB02 LD A1,DWTDEV+DWTINQ,A6 : ` P LCR A4,A1 : " P XRK A4,/FF ALREADY OVERFLOW ? : P RF(E) IHKB05 YES ! : P* : P LDR A4,A1 : 4 P CF A15,EOQUEU GET
0x05e644…05e7d8 Dummy {f00=0x001e, f01=0x0190, f02=»OW INDICATION : ~ ( P SCR A1,A4 SET OVFL. IND. IN BUFFER ; P* ; B PIHKB05 EQU * ; L P IFT NEWKB+OLDKB=2 =2 ; ` $ P LD A1,DWTDEV,A6 6236, 71, 72 ? ; ~ P ANKL A1,/1000 ; P RF(Z) EXIT NO ! ; P* ; P XIF ; P IFT NEWKB=1 =2 ; & P SUK A
0x05e7d8…05e96c Dummy {f00=0x001e, f01=0x0190, f02=» P LD A1,DWTDEV+DWTINQ,A6 < P LDR A4,A1 < $ P CF A15,EOQUEU < 6 , P CW A1,DWTDEV+DWTUTQ,A6 BUFFER FILLED ? < L P RF(E) IHKB07 YES ! < | " P SCR A2,A4 STORE NEW CHARACTER < ( P LDK A2,/FF MOVE OVERFLOW INDICATION < P LDR A4,A1 FORWARD IN BUFFER <
0x05e96c…05eb00 Dummy {f00=0x001e, f01=0x0190, f02=»KB10 EQU * < * P CW A1,DWTDEV+DWTUTQ,A6 END OF QUEUE ? = P RF(E) IHKB19 YES ! = @ ( P CF A15,SOQUEU GET PREVIOUS POINTER = P* = P LCR A4,A1 GET CHARACTER = P ANK A4,/7F = P XRR A4,A2 = " P RF(Z) EXIT EQUAL CHARACTER ! = P SUK A4,
0x05eb00…05ec94 (1, 119) Dummy {f00=0x001e, f01=0x0190, f02=»IHKB17 EQU * = & P SUK A4,/F CTRL, SHIFT, KEYLOCK ? > P RB(N) IHKB10 YES ! > > P* > Z . PIHKB18 SCR A2,A1 NO ! STORE CHAR IN BUFFER > d P RF EXIT > P* > ( P* CHECK BUFFER AGAIN AND SORT OUT > " P* EQUAL AND INV. CHARACTERS > P* >
0x05ec94…05ee28 Dummy {f00=0x001e, f01=0x0190, f02=»EU > ~ P SUK A4,1 ? P RB(NN) IHKB21 ? P IM DWTDEV,A6 ? 2 ( P LCR A4,A1 GET OLD CHAR FROM BUFFER ? H " P CCK A4,/FF00 END OF BUFFER ? ? t P RF(E) EXIT YES ! ? P SCR A2,A1 STORE THE NEW ONE ? P LDR A2,A4 PUT CHAR IN A2 ? P ANK A2,/7F ?
0x05ee28…05efbc Dummy {f00=0x001e, f01=0x018e, f02=»ER IN INPUT BUFFER ? r P* @ PEXIT ABL LDISP DISPATCH ! @ $ P EJECT @ F P* @ T & P* STORING (&ECHOING) SUBROUTINE @ ^ . P* SKIPS OTHER CHARACTERS THAN DIGITS IF @ P* NUMERIC READ @ P* @ PSTOECH EQU * @ , P CF A15,STORE STORE CHAR
0x05efbc…05f150 Dummy {f00=0x001e, f01=0x018e, f02=» @ , PECHSUB ANK A2,/7F MASK TO GET CHARACTER A PEORECH EQU * A 8 P IFT PLC=1 =2 A L : P LD A1,DWTDEV,A6 GET "MORE CHARACTERS" INDICATION BIT A b P ANKL A1,/0800 A * P XRS A1,DWTDEV,A6 RESET INDICATION BIT A P SLC A1,5 A P XIF A P IFT C
0x05f150…05f2e4 Dummy {f00=0x001e, f01=0x0190, f02=» A $ P* THIS IS THE TIMEOUT ROUTINE B P* B 0 PAKBTUT EQU * B : P LDR A6,A1 LOAD DWT-ADDRESS B N P CM DWTTP+DWTDEV,A6 B r P LD A2,DWTST,A6 B , P ABL(N) LDISP DISPATCH IF NO REQUEST ON B P* B , P CF A15,ABORT RESET INPUT REQUESTED FLAG
0x05f2e4…05f478 Dummy {f00=0x001e, f01=0x0190, f02=»D A8,DWTECB,A6 RELOAD ECB-ADDRESS B P LDK A1,/40 SET RETURN CODE C * P ABL MKBEND COMPLETE REQUEST C N P* C r P* RESTART TIMEOUT TIMER C | P* C PRESTRT EQU * C P LD A4,DWTTP+DWTDEV,A6 C P RF(E) NOTIME NO TIMING C P LDKL A4,-TIME
0x05f478…05f60c Dummy {f00=0x001e, f01=0x0190, f02=»O STORE A CHARACTER C x 0 P* IN ECB-BUFFER AND INCREMENT BUFFER INDEX D P* D P , P* ON ENTRY: A2 = CHARACTER TO STORE D Z & P* A3 = BUFFER INDEX D P* D PSTORE EQU * D " P LD A1,ECBBA,A8 BUFFER ADDRESS D P ADR A1,A3 ADD B
0x05f60c…05f7a0 Dummy {f00=0x001e, f01=0x0190, f02=»QUEU = SUBROUTINE TO GET NEXT QUEUE POINTER D P* E 4 ( P* ON ENTRY: A1 = QUEUE POINTER E > & P* A6 = DWT-ADDRESS E j P* E PEOQUEU EQU * E P ADK A1,1 E P SUR A1,A6 E ( P CWK A1,DWTDEV+DWTEQ END OF QUEUE ? E P RF(NE
0x05f7a0…05f934 (1, 120) Dummy {f00=0x001e, f01=0x018e, f02=»BROUTINE TO GET PREVIOUS QUEUE POINTER E P* F . ( P* ON ENTRY: A1 = QUEUE POINTER F 8 & P* A6 = DWT-ADDRESS F d P* F PSOQUEU EQU * F P SUR A1,A6 F . P CWK A1,DWTDEV+DWTSQ FIRST POS IN QUEUE ? F P RF(NE) SOQ10 NO ! F 0
0x05f934…05fac8 Dummy {f00=0x001e, f01=0x0190, f02=» P EJECT G P* G P* BACKSPACE G P* G 2 PBACKSP EQU * G < P LDR A3,A3 G P " P RF(Z) KBBSPA ECB-BUFFER EMPTY G b P SUK A3,1 ONE STEP BACKWARDS G P SUR A2,A2 CLEAR A2 G 4 P CF A15,STORE STORE A BLANK INSTEAD OF LAST CHAR G " P SUK A3,
0x05fac8…05fc5c Dummy {f00=0x001e, f01=0x0190, f02=»BSP2 EQU * G P IFT CECHO=1 H " P CF A5,ECHSUB ECHSUB CHARACTER H & P XIF H L P ABL MKB100 NEXT CHARACTER H X P* H z P* CLEAR H P* H PCLEAR EQU * H P LDK A3,0 RESET ECB-BUFFER H P RB KBBSP2 NEXT CHARACTER H P EJECT H P*
0x05fc5c…05fdf0 Dummy {f00=0x001e, f01=0x0190, f02=»ZERO H ~ P LDK A4,3 I P* I PMZ50 EQU * I ( P SUK A4,1 ANY MORE ZEROES ? I : & P ABL(L) MKB100 NO, NEXT CHARACTER I ^ P* I P EJECT I P INH I 0 P LD A1,DWTDEV+DWTUTQ,A6 GET OUTQUEUE POINTER I ( P CF A15,SOQUEU GET PREVIOUS POINTER I
0x05fdf0…05ff84 Dummy {f00=0x001e, f01=0x0190, f02=»W OUTQUEUE POINTER I p , P LDK A2,/30 STORE ZERO IN CIRCULAR BUFF. J P SCR A2,A1 J J P RB MZ50 J P* J l PMZ80 EQU * J v ( P LDK A4,/FF INDICATE BUFFER OVERFLOW J P SCR A4,A1 J , P ST A1,DWTDEV+DWTUTQ,A6 UPPDATE POINTER J 2 P LDK A1,/A SET RET
0x05ff84…060118 Dummy {f00=0x001e, f01=0x0190, f02=» ALL ZEROES ? J P RB(E) MZ80 YES K & P LDKL A2,/FFFF NO, MOVE IN-POINTER K . P ADS A2,DWTDEV+DWTINQ,A6 K X P RB MZ75 K x P EJECT K P* K , P**************************************** K P* K P* ABORT ROUTINE K P* K , P**********
0x060118…0602ac Dummy {f00=0x001e, f01=0x0190, f02=»,DWTTP+DWTDEV,A6 K P RF(Z) ABKB05 NO TIMER ! L P CM* DWTTP+DWTDEV,A6 L 8 $ P CM DWTTP+DWTDEV,A6 RESET TIMER L T PABKB05 EQU * L | P XIF L P* L $ P LD A4,DWTST,A6 GET STATUS WORD L & P CF A15,TENDIO END I/O ON KEYBOARD L * P SLC A4,2 GET EC
0x0602ac…060440 Dummy {f00=0x001e, f01=0x418e, f02=»F ECHO DEVICE L n & P LD A3,DWTADR,A4 GET ADDRESS BLOCK M 6 P LD A3,ABTADR,A3 GET ABORT-ADDRESS OF ECHO DEVICE M @ . P RB(Z) ABKB10 ABORT-ADDRESS = 0 ! NO ABORT M z P* M 2 P LDR A6,A4 RESTORE DWT-ADDRESS OF ECHO DEVICE M . P LDKL A5,DWTSB2 STACK BASE 2
0x060440…0605d4 (1, 121) Dummy {f00=0x001e, f01=0x2008, f02=» N
0x0605d4…060768 Dummy {f00=0x001e, f01=0x0000, f02=»
[…0x6…]
0x0610e0…061274 (1, 122) Opaque[0x194]
0x061274…061408 # DirEnt {nam=»SYSLCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03e0, f03=0x0000}
0x061274…061408 IdxSect {
0x061274…061408 f00 = 0x001f // 0x61274 @0x0
0x061274…061408 f01 = 0x0044 // 0x61276 @0x2
0x061274…061408 gno = [ // 0x61278 @0x4
0x061274…061408 [0x00]: C0x001f.0x0.0
0x061274…061408 [0x01]: C0x001f.0x1.0
0x061274…061408 [0x02]: C0x001f.0x2.0
0x061274…061408 [0x03]: C0x001f.0x3.0
0x061274…061408 [0x04]: C0x0020.0x0.0
0x061274…061408 [0x05]: C0x0020.0x1.0
0x061274…061408 [0x06]: C0x0020.0x2.0
0x061274…061408 [0x07]: C0x0020.0x3.0
0x061274…061408 [0x08]: C0x0021.0x0.0
0x061274…061408 [0x09]: C0x0021.0x1.0
0x061274…061408 [0x0a]: C0x0021.0x2.0
0x061274…061408 [0x0b]: C0x0021.0x3.0
0x061274…061408 [0x0c]: C0x0022.0x0.0
0x061274…061408 [0x0d]: C0x0022.0x1.0
0x061274…061408 [0x0e]: C0x0022.0x2.0
0x061274…061408 [0x0f]: C0x0022.0x3.0
0x061274…061408 [0x10]: C0x0023.0x0.0
0x061274…061408 [0x11]: C0x0023.0x1.0
0x061274…061408 [0x12]: C0x0023.0x2.0
0x061274…061408 [0x13]: C0x0023.0x3.0
0x061274…061408 [0x14]: C0x0024.0x0.0
0x061274…061408 [0x15]: C0x0024.0x1.0
0x061274…061408 [0x16]: C0x0024.0x2.0
0x061274…061408 [0x17]: C0x0024.0x3.0
0x061274…061408 [0x18]: C0x0025.0x0.0
0x061274…061408 [0x19]: C0x0025.0x1.0
0x061274…061408 [0x1a]: C0x0025.0x2.0
0x061274…061408 [0x1b]: C0x0025.0x3.0
0x061274…061408 [0x1c]: C0x0026.0x0.0
0x061274…061408 [0x1d]: C0x0026.0x1.0
0x061274…061408 [0x1e]: C0x0026.0x2.0
0x061274…061408 [0x1f]: C0x0026.0x3.0
0x061274…061408 [0x20]: C0x0027.0x0.0
0x061274…061408 [0x21]: C0x0027.0x1.0
0x061274…061408 ]
0x061274…061408 }
0x061408…06159c Dummy {f00=0x001f, f01=0x0190, f02=» 2 P IDENT SYSLCR REL 11.0 81-10-06 870105041100 P : P =5,NOT CORRECT CHANGE IN B P REL 11.0 81-09-16 f . P =4,T:A FOR TRABUG COMMON FOR ALL TASKS P REL 11.0 81-05-19 , P =3,WHEN MMUPAG=1 APPLICATION CODE IS * P
0x06159c…061730 Dummy {f00=0x001f, f01=0x018e, f02=»ING BUFFERS p P FROM TOP P PRR 11.0 80-12-03 * 0 P =1,APPLICATION CONTROL BLOCK IS EXTENDED J P WITH 1 WORD ~ P PRR 11.0 80-11-19 P P > P********************************************************
0x061730…0618c4 Dummy {f00=0x001f, f01=0x0190, f02=» N P* P* P* P* & P* 0 P* : > P********************************************************** D P* P* CREDIT APPLICATION: F P* SYSLCR READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD B P* SHADOW-
0x0618c4…061a58 Dummy {f00=0x001f, f01=0x0190, f02=»F TO FOLLOW MONITOR AND WILL ALSO MOVE r P* DDIV-PROTOTYPE . . P* N H P* APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES ARE NOW X H P* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS H P* ARE, IN CASE OF M
0x061a58…061bec Dummy {f00=0x001f, f01=0x018e, f02=» P* 'OVER' SYSLCR. P EJECT " P 0 P*************************** < P* * ` P* ENTRIES AND EXTERNALS * P* * P*************************** P P* LABEL ENTR
0x061bec…061d80 Dummy {f00=0x001f, f01=0x0190, f02=» 2 P EXTRN XMOVE MOVE BLOCKS INSIDE MEMORY VIA MMU P EXTRN MOVMMT MOVE MM-TABLE > $ P EXTRN GETTAB FIND TTAB-ADDRESS b $ P EXTRN GETTTB FIND TTAB-ADDRESS 0 P EXTRN MMENT FIND LAST USED ENTRY IN MM-TAB ( P EXTRN ERROR ERROR HANDLING ROUTIN
0x061d80…061f14 (1, 123) Dummy {f00=0x001f, f01=0x0190, f02=»DEFINITION BLOCK p * P EXTRN CONVRT CONVERSION ASCII-BINARY 2 P EXTRN GETNUM CONVERT 3 ASCII-DIGITS TO BINARY F & P EXTRN MULT MULTIPLICATION ROUTINE | 4 P EXTRN GETAPP FIND APPLICATION AND ITS CONF.FILE P EXTRN QUEJOB QUEUE TASK P " P*
0x061f14…0620a8 Dummy {f00=0x001f, f01=0x0190, f02=»RN MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 2 P EXTRN MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' 4 P EXTRN PSW j " P EXTRN INILEN LENGTH OF SYSINI | , P EXTRN LSTPAG DISPL. TO 'ENTRY-POINTER' P EXTRN MMBEG P P EJECT $ P* SYSTEM CON
0x0620a8…06223c Dummy {f00=0x001f, f01=0x0190, f02=» " P EXTRN SCTEFA END OF FREE AREA " P EXTRN SCTNOP NUMBER OF PAGES * P EXTRN SCTPSZ PAGE SIZE P P EXTRN SCTOPT SYSTEM OPTION p $ P EXTRN SCTPAG PAGE TABLE ADDRESS 4 P EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE P EXTRN SCTBUG BUGGER
0x06223c…0623d0 Dummy {f00=0x001f, f01=0x0190, f02=»OF COMMON-PAD AREA | P P* EXTERNAL LABELS " P < P* D , P EXTRN TTB:SA START OF SAVE AREA IN TTAB N 8 P EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS ~ & P EXTRN TTB:MT DISPL. TO MMU TABLE $ P EXTRN TTB:ID DISPL. TO TASK ID
0x0623d0…062564 Dummy {f00=0x001f, f01=0x018e, f02=»********************************* , P* CONDITIONAL ASSEMBLY * * , P*************************************** Z P PMMUPAG EQU 1 1 = NO MMU P . PSWPBLK EQU 0 0 = NO SWAPPABLE WORK BLOCKS P 2 P********************
0x062564…0626f8 Dummy {f00=0x001f, f01=0x0190, f02=» ` 2 P* ==================== * 2 P* * > 2 P********************************************* t P 4 PAPLADA EQU 22 APPL. DISC FILE ADDR. (2 WORDS) =1 ( PAPLREL EQU 18 APPL. RELOCATION
0x0626f8…06288c Dummy {f00=0x001f, f01=0x0190, f02=»APPLICATION LOAD ADDR. (LOGICAL ADDR.) & PAPLLAP EQU 12 LOGICAL PAGE ADDRESS . 8 PAPLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.) X . PAPLMMC EQU 10 APPLICATION MMU START ENTRY ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY . PAPLSEG EQU 4 PHYSICAL
0x06288c…062a20 Dummy {f00=0x001f, f01=0x018e, f02=»M START ADDRESS z " PAPLTYP EQU 8 APPLICATION TYPE . PAPLPSZ EQU 20 APPLICATION SEGMENT SIZE =1 > P EJECT p P ~ P PROGRAM STRUCTURE: P F P* ENTRY ->! * SYSLCR ENTRY * ! N P* ! READ
0x062a20…062bb4 (1, 124) Dummy {f00=0x001f, f01=0x0190, f02=» F P* ! T:ATAB: ! F P* ! -A TABLE OF 'NUMBER OF REAL TASKS'IS BUILT AT ! N F P* ! THE END OF MONITOR. ! F P* ! U:BTAB:
0x062bb4…062d48 Dummy {f00=0x001f, f01=0x0190, f02=»OTYPE. ! v F P* ! ! 0 F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! z F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB !
0x062d48…062edc Dummy {f00=0x001f, f01=0x0190, f02=» ! X < P* ! SYSLCO AND SYSLBA),SYSINI AND CONF.DATA , P* ! TO FOLLOW SHADOW-TABLES T F P* ! -CONTINUE IN PART 2.A ! F P* -----------------------------------------------
0x062edc…063070 Dummy {f00=0x001f, f01=0x0190, f02=» ! ~ F P* ! C O M D A T ! 8 F P* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S. ! F P* ! -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO
0x063070…063204 Dummy {f00=0x001f, f01=0x0190, f02=» ! ` F P* ! C L A D A T ! F P* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S ! d F P* ! AND DWB'S. ! F P* ! -B
0x063204…063398 Dummy {f00=0x001f, f01=0x0190, f02=» ! -MOVE D.T. & W.B., COPY UWB'S ! F P* ! -MOVE D.T.'S OF SWB'S AND TWB'S ! F F P* ! -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE ! F P* ! W.B.-ADDRESS
0x063398…06352c Dummy {f00=0x001f, f01=0x0190, f02=» ! n F P* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. ! ( F P* ! -GENERATE TWB'S AND RESERVE FOR SWB'S ! r F P* ! -ALLOCATE FIXED BUFFERS AND TERMINAL STACK ! F P*
0x06352c…0636c0 Dummy {f00=0x001f, f01=0x0190, f02=» ! P F P* ! -CONTINUE IN PART 2.B ! F P* !-----------------------------------------------------! T P P* ! R E A L T A ! PART 2.B F P* ! BUILD RE
0x0636c0…063854 (1, 125) Dummy {f00=0x001f, f01=0x0190, f02=» ! -COPY T:A'S ACCORDING TO SHADOW-TABLE ! F P* ! -BUILD TWB'S AND RESERVE FOR SWB'S ! @ F P* ! -ALLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:A
0x063854…0639e8 Dummy {f00=0x001f, f01=0x0190, f02=» PARTS IN THIS PROGRAM ! h F P* !-----------------------------------------------------! & P EJECT p . P***************************************** ~ . P* * . P* COMMON DISPLACEMENTS AND CONSTANTS
0x0639e8…063b7c Dummy {f00=0x001f, f01=0x0190, f02=»DRESS TO APPL. CONTROL TABLE $ PAPPLNO EQU 18 APPLICATION NUMBER $ ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE L . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA x , PCONSTA EQU 2 START OF CONFIGURATION DATA ( PDATEND EQU 34 END OF DDIV PROTOTYPE $ PDY
0x063b7c…063d10 Dummy {f00=0x001f, f01=0x0190, f02=»L) l , PFYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER 6 PLSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART : ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP t * PMMFROM EQU 36 2ND MMU TABLE WORK AREA ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA $ PM:REL EQU 16 R
0x063d10…063ea4 Dummy {f00=0x001f, f01=0x0190, f02=»ILE END ADDRESS ~ ( PTTAB EQU 32 WORK AREA FOR MMU TABLE * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS D , PSWBFLG EQU 48 SWAPPABLE WORK BLOCK FLAG r $ PCOM01 EQU 40 COMMON WORK AREA 1 $ PCOM02 EQU 42 COMMON WORK AREA 2 $ PCOM03 EQU 44 COMMON WO
0x063ea4…064038 Dummy {f00=0x001f, f01=0x0190, f02=» t P*************************** P* , & PT:ATOD EQU 0 T:ATAB 'OLD' ADDRESS 6 & PU:BTOD EQU 2 U:BTAB 'OLD' ADDRESS ` & PS:BTOD EQU 4 S:BTAB 'OLD' ADDRESS & PT:ATNW EQU 6 T:ATAB 'NEW' ADDRESS & PU:BTNW EQU 8 U:BTAB 'NEW' ADDRESS & P
0x064038…0641cc Dummy {f00=0x001f, f01=0x0190, f02=»T:ANO EQU 16 TOT. NUMBER OF T:A'S * PDDIVFR EQU 18 PROT. DDIV FROM ADDRESS * ( PS:BLEN EQU 20 LENGTH OF REAL S:BTAB X , PPDDIVL EQU 22 LENGTH OF PDDIV AND S:GTAB P EJECT & P********************************* & P* SCRATCH-PAD DISPLACEMENT
0x0641cc…064360 Dummy {f00=0x001f, f01=0x0190, f02=»SUPER-LOOP | ( PCSTAPP EQU 74 CONF.START FOR A APPL. 4 PDDIVST EQU 76 START OF DDIV-PROTOTYPE AFTER MOVE > : PENDADD EQU 78 END-ADDRESS INDICATOR FOR TABLE-SCANNING v 4 PFLAG EQU 80 REAL TASK DATA PROCESSING INDICATOR $ PMMREL1 EQU 96 PHYSICAL PAGE
0x064360…0644f4 (1, 126) Dummy {f00=0x0020, f01=0x0190, f02=»NGTH 1 z PMOVLE2 EQU 108 MOVE LENGTH 2 ( PNEWAD1 EQU 110 SAVE FOR W.B.ADDRESS 2 ( PNEWAD2 EQU 112 SAVE FOR D.T. ADDRESS ^ , PPDDIV EQU 82 INDICATE IF SPACE IN PDDIV , PRELOCA EQU 100 SAVE FOR RELOCATION BASE PSWITCH EQU 114 D.T.INDICATOR
0x0644f4…064688 Dummy {f00=0x0020, f01=0x0190, f02=»ICATOR z $ PWBADD EQU 118 SAVE W.B.-ADDRESS PSAVE01 EQU 124 6 PSAVE02 EQU 126 L PSAVE03 EQU 128 b PSAVE04 EQU 84 x PSAVE05 EQU 86 PSAVE06 EQU 88 PSAVE07 EQU 90 2 PSAEFA1 EQU 92 SAVE SCTEFA BITS 0-5 PAGE NUMBER 2 PSA
0x064688…06481c Dummy {f00=0x0020, f01=0x0190, f02=»** ** P ** CONSTANTS ** P ***************** 6 P ** ** R P ***************** n P P********** P* P:MTAB * P********** PT:ATAB EQU 0 PU:BTAB EQU 2 PP:BAS EQU 6 SEGMENT
0x06481c…0649b0 Dummy {f00=0x0020, f01=0x0190, f02=»RESS p , PI:RSTE EQU 42 INTERPRETER RESTART ENTRY ! & PTRABUG EQU 44 TASK ID. FOR TRABUG ! < P ! f P ! n P********** ! v P* U:BTAB * ! P********** ! 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL U:BTAB ! " PUPADDR EQU 2 PROTOTYPE ADDRESS ! PUP
0x0649b0…064b44 Dummy {f00=0x0020, f01=0x0190, f02=»AL U:BTAB ! p * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB " PURNUMB EQU 4 NUMBER OF UWB'S " @ PURLENG EQU 6 LENGTH OF UWB " d P EJECT " P " P " P " $ P******************************* " $ P* CONFIGURATION FILE (CONFIG) * " $ P
0x064b44…064cd8 Dummy {f00=0x0020, f01=0x0190, f02=»2N NUMBER OF TASKS " ~ , PTDBID EQU TDBNT+2 6A TASK ID START VALUE # , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS # J $ PTDBTL EQU TDBMC+6 6A TASK LEVEL # z : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES # P* # & PTDBFST EQU TDBNC+2 FIRST TERM
0x064cd8…064e6c Dummy {f00=0x0020, f01=0x0190, f02=» * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD $ P* $ 2 P* COMMON DEVICE DEF. BLOCK: $ < PCDBBT EQU 0 1A BLOCK TYPE $ ` 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES $ ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD $ P* $ P* $ & P* USER WORK
0x064e6c…065000 Dummy {f00=0x0020, f01=0x0190, f02=»NU+3 FIRST UDB-RECORD $ PNAMUWB EQU 3 NAME OF UWB % " PNUMUBL EQU 3 NUMBER OF BLOCKS % > . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH % d P EJECT % P % P % P********* % P* T:A * % P********* % PT:ASTA EQU -14 T:A STA
0x065000…065194 (1, 127) Dummy {f00=0x0020, f01=0x0190, f02=»NUMBER (HERE LENGTH % t 2 P OF ALL DSCB-RECORDS & PT:DAD EQU -8 ADDRESS TO T:D & R * PCIA EQU -6 CURRENT INSTUCTION ADDRESS & v ( P (HERE: DISPLACEMENT TO T:A-START) & P & PT:ATID EQU -4 TASK ID & PSTKE EQU -2 ST
0x065194…065328 Dummy {f00=0x0020, f01=0x0190, f02=»D: & PDSCBL EQU 20 RECORD LENGTH ' " PBL EQU 2 LENGTH OF FIX BUFFER ' , 2 PSB EQU 4 INDEX TO DSCB WHICH SHARE THE BUFFER ' R PBP EQU 18 BUFFER POINTER ' P EJECT ' P ' P ' P********* ' P* T:D * ' P********* ' ( PFCD
0x065328…0654bc Dummy {f00=0x0020, f01=0x018e, f02=»DATTAB EQU 6 DISPLACEMENT TO BEGINNING OF DAT-TABLE ' & PWATLEN EQU 8 NUMBER OF WATELEMENTS ( < 0 PTWBMSK EQU 10 MASK FOR TWB'S (ONE BIT/ENTRY) ( f * PSWBMSK EQU 12 MASK FOR SWB'S -"- ( * PCWBMSK EQU 14 MASK FOR CWB'S -"- ( * PUWBMSK EQU 16 MASK
0x0654bc…065650 Dummy {f00=0x0020, f01=0x0190, f02=» P ) P**************** ) P* SOP-HANDLING * ) $ P**************** ) < PSOP EQU /2E DEVICE ADDRESS ) T P ) v P LAMP CODE MEANING ) ~ P --------- ------- ) PLMP1 EQU /400 SYSLOAD RUNS ) PLMP2 EQU /200 READ ERROR ) " PLMP3 EQU /10
0x065650…0657e4 Dummy {f00=0x0020, f01=0x0190, f02=»LMP7 EQU /10 MM-TABLE OVERFLOW ) PLMP8 EQU 8 * & PLMP9 EQU 4 * 8 PLMP10 EQU 2 * J PLMP11 EQU 1 * ^ P EJECT * r P********************* * P* OTHER CONSTA+STKCOMNTS * * P********************* * P * & PWBLEN EQU -4 LENGTH OF WORK-
0x0657e4…065978 Dummy {f00=0x0020, f01=0x018e, f02=» FIRST DSET * | $ PFCBDD2 EQU 10 DISP TO 2:ND DSET + $ PFCBDD3 EQU 64 DISP. TO 1:ST DAT + < $ PFCBDD4 EQU 66 DISP. TO 2:ND DAT + d P + $ PSTKSZ EQU 128 DEFAULT STACK-SIZE + P + ( PSEGREC EQU 6 RECORD LENGTH IN S:GTAB + 8 PNUMSEG EQU 10 DI
0x065978…065b0c Dummy {f00=0x0020, f01=0x0190, f02=» + ( PNTPA EQU 4 INTERPRETER START ADDRESS , & PIHRTC EQU 4 RTC INTERRUPT ADDRESS , 4 $ PRTCDA EQU /1B RTC DEVICE ADDRESS , ^ P , > PTABLEN EQU 24 LENGTH OF EACH APL.TABLE IN SCRATCH-PAD AREA , 0 PACBLEN EQU 26 APPL. CONTROL BLOCK LENGTH =1 , P
0x065b0c…065ca0 Dummy {f00=0x0020, f01=0x0190, f02=» * , Z F P* DATA [REL-ADDRESS] * - F P* * - ^ F P***************************************************************** - P - P -
0x065ca0…065e34 (1, 128) Dummy {f00=0x0020, f01=0x0190, f02=»******* ******* - 2 P** ** . 6 2 P* SYSLOAD PART 1 * . l 2 P** ** . 2 P***** ***** .
0x065e34…065fc8 Dummy {f00=0x0020, f01=0x0190, f02=»-TABLES * . 2 P* * / , 2 P********************************************* / b P / P EJECT / P / P* START OF PROGRAM PART 1 * / P / P / PSYSLCR EQU * / P*
0x065fc8…06615c Dummy {f00=0x0020, f01=0x0190, f02=»PAD AREA / n PSYA10 SUK A2,2 0 P CMR A2 CLEAR MEMORY WORD 0 & " P CWR A1,A2 ALL WORDS CLEARED? 0 H P RB(NE) SYA10 NO 0 n PSYA20 EQU * 0 P LD A1,SCTSFA 0 8 P ST A1,SHADST+STKEND SAVE START OF 1:ST SHADOW-TABLE 0 * P LDKL A10,STKEND START OF 1:
0x06615c…0662f0 Dummy {f00=0x0020, f01=0x0190, f02=»APPLICATION 0 P* 1 PSYA100 EQU * 1 $ P LDKL A1,'CR' CREDIT APPLICATION 1 2 . P CALL GETAPP FIND APPL. AND ITS CONF.FILE 1 Z 2 P RF(NZ) SYA105 MORE APPLICATIONS OF THIS TYPE 1 P LD A2,APPLNO+STKCOM 1 P RF(NZ) SYA102 1 P LDKL A2,LCREND 1
0x0662f0…066484 Dummy {f00=0x0020, f01=0x0190, f02=»COM 1 P ABR A2 GO TO SYA152 2 PSYA105 EQU * 2 ( 8 P ST A11,CSTAPP+STKEND SAVE CONF.START FOR THIS APPL. 2 < P EJECT 2 x P 2 , P* READ CONFIG FILE AND BUILD SHADOWTABLE 2 P 2 P IFT MMUPAG=0 2 * P LD* A2,APLLAC,A1 GET START OF P:MTA
0x066484…066618 Dummy {f00=0x0020, f01=0x0190, f02=»B,A2 GET U:BTAB FROM P:MTAB 2 " P SUK A4,2 INCLUDE LENGTH-WORD 3 $ P ST A4,U:BTOD,A10 3 J P XIF 3 d P IFT SWPBLK-MMUPAG=1 3 p ( P LD A4,S:BTAB,A2 GET S:BTAB ADDRESS 3 $ P SUK A4,2 ADJUST FOR LENGTH WORD 3 P ST A4,S:BTOD,A10 SAVE 3 P XIF 3
0x066618…0667ac Dummy {f00=0x0020, f01=0x0190, f02=»STKEND ADD LAST SHADOW (MONITOR) END ADDRESS 3 P* CHECK ADDRESSES 4 4 P 4 N " P LDR A11,A3 END OF SHADOW-TAB 4 V . P LD A9,SAVE01+STKEND GET LOCATION COUNTER 4 | P CALL CMPADR 4 P RF(L) SYA110 OK! 4 " P LDKL A1,LMP3 MEMORY OVERFLOW 4 P CALL
0x0667ac…066940 Dummy {f00=0x0020, f01=0x0190, f02=»2 NEXT 4 P STR A2,A3 CLEAR 5 P CW A3,SHADST+STKEND ALL? 5 & P RB(NE) ZERO NO! 5 H " P STR A4,A3 STORE TABLE LENGTH 5 ` P* 5 ( P* READ CONF.FILE AND GET TASK CLASS 5 P* 5 8 P LD A11,CSTAPP+STKEND GET CONF.START FOR THIS APPL. 5 " P LC A2
0x066940…066ad4 (1, 129) Dummy {f00=0x0020, f01=0x018e, f02=» 5 ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID 6 P SLL A2,8 . 6 4 P LC A2,TDBMC+5,A11 ... 6 H P CWK A2,'TB' BUGGER TASK? 6 f P RF(NE) SYA125 NO! 6 2 P ST A2,BTASK,A10 INDICATE BUGGER TASK PRESENT 6 " P RF SYA136 SKIP TO NEXT BLOCK 6 PSYA125 LDR
0x066ad4…066c68 Dummy {f00=0x0020, f01=0x0190, f02=» 6 PSYA130 ADKL A8,2 NEXT T:A 7 P LDR* A6,A8 GET T:A ADDRESS 7 * P SUK A4,2 7 N P RF(NZ) SYA135 7 ` 0 P LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) 7 v P CALL ERROR 7 PSYA135 EQU * 7 P CW A2,T:ATID,A6 TID EQUAL? 7 P RB(NE) SYA130 NO!
0x066c68…066dfc Dummy {f00=0x0020, f01=0x0190, f02=» P XIF 8 P IFT MMUPAG=1 8 6 P LD A2,FYSPAG+STKCOM GET LAST PHYSICAL PAGE NUMBER 8 & P ST A2,SAEFA1+STKEND SAVE 8 ` * P LD A2,LSTADR+STKCOM GET LAST ADDRESS 8 P ANKL A2,/FFF GET OFFSET 8 P ST A2,SAEFA2+STKEND SAVE 8 , P LD* A2,APLMMC,A1 GET
0x066dfc…066f90 Dummy {f00=0x0020, f01=0x018e, f02=» ADDRESS 8 x $ P SUKL A12,2 INCLUDE LENGTH WORD 9 & P ST A12,T:ATOD,A10 SAVE IN APPTAB 9 8 $ P EL A4,U:BTAB,A2 U:BTAB ADDRESS 9 b $ P SUK A4,2 ADJUST FOR LENGTH WORD 9 $ P ST A4,U:BTOD,A10 SAVE IN APPTAB 9 P XIF 9 P IFT MMUPAG+SWPBLK=2 9 ( P EL A4
0x066f90…067124 Dummy {f00=0x0020, f01=0x0190, f02=» 9 P* T:ATAB PROCESSING: : P : $ P ELR A4,A12 T:ATAB-LENGTH : 0 P LDR A3,A4 SAVE : R 0 P SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE : j > P AD A3,SHADST+STKEND ADD LAST SHADOW (MONITOR) END ADDRESS : P* CHECK ADDRESSES : P : $ P LDR A
0x067124…0672b8 Dummy {f00=0x0020, f01=0x0190, f02=»A1,LMP3 MEMORY OVERFLOW : P CALL ERROR ; ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS ; 4 P* CLEAR T:ATAB SHADOW-TABLE: ; ` P ; PSYA115 SUK A3,2 NEXT ; P CMR A3 CLEAR ; P CW A3,SHADST+STKEND ALL? ; P RB(NE) SYA115 NO! ; " P STR A4,A3
0x0672b8…06744c Dummy {f00=0x0020, f01=0x0190, f02=»S APPL. ; d " P LC A2,TDBBT,A11 GET BLOCKTYPE < P CCK A2,'TT' TASK DEF? < 6 P RF(E) SYA120 OK! < T P LDK A1,LMP4 NO TASK PRESENT < n P CALL ERROR < ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID < P SLL A2,8 . < P LC A2,TDBMC+5,A11 ... < P CWK
0x06744c…0675e0 Dummy {f00=0x0020, f01=0x0190, f02=»CK < x PSYA125 LDR A8,A12 SAVE = P ELR A4,A12 T:ATAB LENGTH = ( P* = J P* SCAN T:ATAB = T * P* FIND CORRESPONDING TASK CLASS IN T:A = j P* = PSYA130 ADKL A8,2 NEXT T:A = P ELR A6,A8 GET T:A ADDRESS = P SUK A4,2 = P RF(NZ) SYA135 =
0x0675e0…067774 (1, 130) Dummy {f00=0x0021, f01=0x0190, f02=» TID EQUAL? = P RB(NE) SYA130 NO! > P* > . , P* STORE NUMBER OF TASKS IN SHADOW-TABLE > 8 P* FOR THIS TASK CLASS > h P* > P ELR A5,A12 > P SUR A4,A5 T:ATAB LENGTH > P XIF > . P NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB > ( P LC A5
0x067774…067908 Dummy {f00=0x0021, f01=0x018e, f02=»OW TABLE > n P ADR A2,A4 ? 6 P ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE ? " P ? P* SKIP TO NEXT BLOCK ? h P ? PSYA136 CALL NXTBLK ? PSYA137 EQU * ? P CCK A2,'TT' ? & P RB(E) SYA120 NEXT TASK DEF BLOCK ? P CCK A2,'CC'
0x067908…067a9c Dummy {f00=0x0021, f01=0x0190, f02=» P RF(NE) SYA141 NO UWB'S @ 2 P LD A8,U:BTOD,A10 GET MODIFIED U:BTAB ADDRESS @ $ 6 P CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE @ Z PSYA141 EQU * @ P IFT SWPBLK=1 @ P LCR A2,A11 @ P CCK A2,'SS' @ P RF(NE) SYA143 @ P LD A8,S:BTO
0x067a9c…067c30 Dummy {f00=0x0021, f01=0x0190, f02=»0 SAVE IN APPTAB @ P LDR* A1,A2 GET LENGTH A P IFT MMUPAG=1 A 6 * P SLL A1,1 RESERVE FOR MM-ADDRESS-TABLE A L P XIF A z : P ADS A1,SHADST+STKEND SAVE START OF NEXT SHADOW-TABLE A P ADKL A10,TABLEN NEXT APPTAB A P LDKL A1,SYA100 A P AD A1,M
0x067c30…067dc4 Dummy {f00=0x0021, f01=0x0190, f02=»************* A V L P* * B L P* USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE * B f L P* ================================================================= * B L P*
0x067dc4…067f58 Dummy {f00=0x0021, f01=0x0190, f02=» * B V L P* * C L P* ENTRY: A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE * C f L P* A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * C L P*
0x067f58…0680ec Dummy {f00=0x0021, f01=0x0190, f02=» * C V L P* * D J P* WORK REGISTERS: A1,A2,A3,A4,A6,A12 * D f L P* * D L P* S
0x0680ec…068280 Dummy {f00=0x0021, f01=0x018e, f02=» * D T L P*********************************************************************** E P E d PUSWBTP EQU * E l P E P IFT MMUPAG=0 E P ADKL A11,1 E P LDR A6,A11 E * P CALL GETNUM PACK 3 DIG. RESULT IN A5 E $ P LDR A1,A5 SAVE NUMB
0x068280…068414 (1, 131) Dummy {f00=0x0021, f01=0x0190, f02=» E j PSYA145 EQU * F 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG F P SLL A2,8 F P P LC A2,1,A11 GET 2:ND CHAR F b 6 P CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP F * P RF(E) FRSTOK FIRST TWO CHARACTERS OK! F 0 PSYA147 SUK A3,UP:REC DEC. NU
0x068414…0685a8 Dummy {f00=0x0021, f01=0x0190, f02=» ADD TO NEXT RECORD F P RB SYA145 G $ PFRSTOK LC A2,2,A11 GET 3:RD CHAR G . P CC A2,UPNAME+2,A12 G V P RB(NE) SYA147 .NEQ. G r P EJECT G P G P* PROTOTYPE FOUND * G P G 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG G
0x0685a8…06873c Dummy {f00=0x0021, f01=0x0190, f02=»CONFIG FILE G r P RB(P) SYA142 H P ADKL A11,UDBFST-1 H * P RTN A14 H D P XIF H T P IFT MMUPAG=1 H ` P ADKL A11,1 H v P LDR A6,A11 H * P CALL GETNUM PACK 3 DIG. RESULT IN A5 H $ P LDR A1,A5 SAVE NUMBER OF UWB'S H PSYA142 EQU * H P
0x06873c…0688d0 Dummy {f00=0x0021, f01=0x018e, f02=»CR A2,A11 GET FIRST CHARACTER FROM CONFIG H P SLL A2,8 I 2 P LC A2,1,A11 GET 2:ND CHAR I D 2 P EL A4,UPNAME,A12 GET FIRST WORD IN PROTOTYPE I f P CWR A2,A4 I P RF(E) FRSTOK FIRST WORD OK! I 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S I P R
0x0688d0…068a64 Dummy {f00=0x0021, f01=0x0190, f02=» P RB SYA145 J 0 PFRSTOK LC A4,2,A11 GET 3:RD CHAR FROM CONFIG J 0 P EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY J J P SRL A2,8 J ~ P ANK A4,/FF J P CWR A4,A2 J P RB(NE) SYA147 .NEQ. J P EJECT J P J P* PROTOTYPE FOUND * J P
0x068a64…068bf8 Dummy {f00=0x0021, f01=0x0190, f02=»VERT J 4 P EL A4,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE K P ANKL A4,/FF00 K D P ORR A4,A5 K Z P ES A4,UPNUMB-1,A12 K l . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE K P RB(P) SYA142 K P ADKL A11,UDBFST-1 K P RTN A14 K P XIF K P E
0x068bf8…068d8c Dummy {f00=0x0021, f01=0x0190, f02=»W-TABLES) K d P ADK A7,1 L P ANKL A7,/FFFE EVEN ADDRESS L $ P* L H P* CALULATE RELOCATION L R P* L p & P LDKL A2,PART2 GET START OF PART2 L z , P AD A2,M:REL+STKCOM ADD RELOCATION BASE L P LDR A3,A2 L P SUR A2,A7 MOVE LENGTH L P NGR
0x068d8c…068f20 Dummy {f00=0x0021, f01=0x0190, f02=»Y EXIST SYSLCO AND SYSLBA) L h P* CONF.FILE AND SYSINI M " P* M @ " P LDR A2,A7 TO-ADDRESS (SYSLCR) M J P ANKL A2,/F000 FIRST PAGE M p , P ST A2,MMREL1+STKEND SAVE PHYSIVAL PAGE M " P SRL A2,2 SHIFT FOR MM-PAGING M P LDKL A11,MMDDIV M , P ADR A11
0x068f20…0690b4 (1, 132) Dummy {f00=0x0021, f01=0x0190, f02=» M z P ADKL A2,/400 PAGE INCREMENT N P SUK A1,1 ALL? N , P N B P RB(NZ) SYA157 NO! N J * P ANKL A7,/FFF GET DISPLACEMENT IN PAGE N d P XIF N 2 P ST A7,SHADST+STKEND SAVE (LOGICAL) TO-ADDRESS N $ P LDR A2,A13 A13=START OF SYSINI N P SUR A2,A3 L
0x0690b4…069248 Dummy {f00=0x0021, f01=0x0190, f02=»NGTH TO MOVE N t 0 P AD A2,CONLEN+STKCOM ADD LENGTH OF CONF.FILE O P ADR A7,A2 O H 6 P ST A7,DDIVST+STKEND SAVE START OF DDIV AFTER MOVE O Z P* O " P* CALCULATE DDIV FROM-ADDRESS O P* O , P CM APPLNO+STKCOM RESET NUMBER OF APPL. O * P LDKL A10,
0x069248…0693dc Dummy {f00=0x0021, f01=0x0190, f02=»ON O r P CALL GETAPP ANY APPLICATION P P ABR(Z) A5 NO P . " P LD A3,SCTOPT GET OPTION WORD P D P IFT MMUPAG=0 P j * P LD A2,APLLAC,A1 GET ADDRESS TO S:GTAB P $ P LDR* A9,A2 GET START OF P:MTAB P 0 P ST A3,OPTION,A9 STORE OPTION WORD IN P:MTAB P 0
0x0693dc…069570 Dummy {f00=0x0021, f01=0x0190, f02=» P XIF Q P IFT MMUPAG=1 Q * P LD A2,APLLAC,A1 GET ADDRESS TO S:GTAB Q & " P ELR A9,A2 GET START OF P:MTAB Q T 0 P ES A3,OPTION,A9 STORE OPTION WORD IN P:MTAB Q z 0 P EL A3,I:RSTE,A9 GET INTERPRETER ERROR ENTRY Q " P ST A3,APLIOE,A1 STORE IN ACB Q , P
0x069570…069704 Dummy {f00=0x0021, f01=0x0190, f02=»LT A2*A3 RESULT IN A3 Q P ADR A1,A3 R P ADK A1,NUMSEG+2 R 0 , P ST A1,DDIVFR,A10 SAVE DDIV FROM ADDRESS R H 6 P LD A6,DDIVST+STKEND GET START OF DDIV AFTER MOVE R x " P SUR A6,A1 RELOCATION FOR DDIV R P EJECT R P R P R P R 0 P*
0x069704…069898 Dummy {f00=0x0021, f01=0x0190, f02=» * R l . P* A9=P:MTAB A6=MOVE-RELOC * S . P***************************************** S @ P IFT MMUPAG=0 S r P S P* INITIATE POINTERS S P S ( P LD A8,T:ATOD,A10 GET T:ATAB ADDRESS S P LDR* A3,A8 GET LENGTH S P ADR A3,A8
0x069898…069a2c Dummy {f00=0x0021, f01=0x0190, f02=» S x & P LDR A2,A8 2:ND POINTER IN T:ATAB T & P LDK A3,2 SET 'NEW' T:ATAB COUNTER T 2 . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR T P T P* SCAN T:ATAB: T P T " PSYA160 ADKL A8,2 TAKE NEXT T:A T $ P ADK A5,2 NEXT T:A IN SHADOW-TAB T P CW A8
0x069a2c…069bc0 Dummy {f00=0x0021, f01=0x0190, f02=»160 THIS T:A IS NOT USED!!!!! T " P ADR A11,A7 ACCUMULATE LENGTH U & , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH U L , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS U | ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS U 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLA
0x069bc0…069d54 (1, 133) Dummy {f00=0x0021, f01=0x018e, f02=» W.B.-ADDRESSES U P V $ P LD A12,T:DAD,A1 GET T:D-ADDRESS V $ P LD A7,WATLEN,A12 LENGTH OF WAT V H . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS V p PSYA165 SUK A7,1 DEC. COUNTER V P RB(N) SYA160 TAKE NEXT T:A V P ADRS A6,A1 RELOCATE V P X
0x069d54…069ee8 Dummy {f00=0x0021, f01=0x0190, f02=» P ADR A3,A8 END OF T:ATAB W P ST A3,ENDADD+STKEND SAVE W $ 4 P LD A5,SHADOW,A10 GET START OF T:ATAB SHADOW-TAB W F P LDR A4,A5 2:ND POINTER W ~ & P LDR A2,A8 2:ND POINTER IN T:ATAB W & P LDK A3,2 SET 'NEW' T:ATAB COUNTER W . P SUR A11,A11 CLEAR REA
0x069ee8…06a07c Dummy {f00=0x0021, f01=0x0190, f02=» W p P CW A8,ENDADD+STKEND X P RF(E) SYA170 ALL DONE X $ P ELR A1,A8 GET T:A X B * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB X , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! X " P ADR A11,A7 ACCUMULATE LENGTH X , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH
0x06a07c…06a210 Dummy {f00=0x0021, f01=0x0190, f02=». ON NEW PLACE) X l P ELR A12,A8 GET T:A-ADDRESS Y P ADR A12,A6 RELOCATE Y < . P ESR A12,A2 STORE ADDR. (EV. ON NEW PLACE) Y X P* RELOCATE W.B.-ADDRESSES Y P Y $ P EL A12,T:DAD,A1 GET T:D-ADDRESS Y $ P EL A7,WATLEN,A12 LENGTH OF WAT Y . P ADK
0x06a210…06a3a4 Dummy {f00=0x0021, f01=0x0190, f02=»END SAVE Y ~ P ELR A10,A1 GET ADDRESS Z P ADR A10,A6 RELOCATE Z 0 P ESR A10,A1 Z L " P LD A10,SAVE04+STKEND RESTORE Z ` P XIF Z P ADK A1,4 NEXT W.B. Z P RB SYA165 Z P Z PSYA170 EQU * Z > P ST* A3,SHADOW,A10 STORE NEW TABLE LENGTH IN
0x06a3a4…06a538 Dummy {f00=0x0021, f01=0x0190, f02=» AND IN T:ATAB Z ~ P XIF [ 0 P LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR [ " ( P SLL A2,1 CALC. REAL LENGTH (BYTES) [ V P ADK A2,2 [ . P ST A2,T:ANO,A10 SAVE TOT. NUMBER OF T:A'S [ P [ P EJECT [ " P****************************** [ $ P*
0x06a538…06a6cc Dummy {f00=0x0021, f01=0x0190, f02=»G=0 [ $ P LD A5,U:BTOD,A10 U:BTAB ADDRESS P LDR* A3,A5 LENGTH 4 P ADK A5,2 SKIP LENGTH WORD N P SUK A3,2 -"- p " PSYA180 RF(Z) SYA185 ALL DONE! P ADRS A6,A5 RELOCATE P XIF P IFT MMUPAG=1 $ P LD A5,U:BTOD,A10 U:BTAB ADD
0x06a6cc…06a860 Dummy {f00=0x0021, f01=0x0190, f02=»04+STKEND STORE P ELR A10,A5 GET ADDRESS ] P ADR A10,A6 RELOCATE ] 8 P ESR A10,A5 ] T " P LD A10,SAVE04+STKEND RESTORE ] h P XIF ] 8 P ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP ] P SUK A3,UP:REC ] P RB SYA180 ] P EJECT ]
0x06a860…06a9f4 (1, 134) Dummy {f00=0x0022, f01=0x0190, f02=» ADDRESS ] x " P ELR A3,A5 LENGTH OF PROTOTYPE ^ P LDR A2,A3 SAVE ^ 6 " P SUK A3,2 EXCLUDE LENGTH WORD ^ N , PSYA190 RF(Z) SYA199 ALL RECORDS SCANNED! ^ t $ P EL A4,2,A5 GET PROT. W.B.-ADDR. ^ P ADR A4,A6 RELOCATE ^ P ES A4,2,A5 STORE IT BACK ^ ,
0x06a9f4…06ab88 Dummy {f00=0x0022, f01=0x0190, f02=»DK A2,2 INCREMENT LENGTH ^ ( P SUK A4,1 DECREMENT NUMBER OF COPIES _ P RB SYA192 _ L 8 PSYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE _ ^ $ P SUK A3,UP:REC DECREMENT LENGTH _ P RB SYA190 _ P XIF _ P IFT SWPBLK-MMUPAG=1 _ $ P LD A5,S:BTO
0x06ab88…06ad1c Dummy {f00=0x0022, f01=0x0190, f02=»SYA195 RF(Z) SYA199 ALL RECORDS SCANNED! _ $ P LD A4,2,A5 GET PROT. W.B.-ADDR. ` 0 P ADR A4,A6 RELOCATE ` X P ST A4,2,A5 STORE IT BACK ` t , P LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES ` P ANK A4,/FF ` . PSYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE! `
0x06ad1c…06aeb0 Dummy {f00=0x0022, f01=0x0190, f02=»S:BTAB PROTOTYPE ` l $ P SUK A3,UP:REC DECREMENT LENGTH a P RB SYA195 a @ P XIF a R P IFT SWPBLK=1 a ^ 4 PSYA199 ADS A6,S:BTOD,A10 RELOCATE S:BTAB ADDRESS a t 0 P ST A2,S:BLEN,A10 SAVE LENGTH OF REAL S:BTAB a P XIF a P EJECT a P a 6 P* RELO
0x06aeb0…06b044 Dummy {f00=0x0022, f01=0x0190, f02=»T APPTAB a | P LDKL A1,SYA156 b P AD A1,M:REL+STKCOM b ( P ABR A1 b D POUT01 EQU * b T P* b h 8 P* MOVE SYSLCR (AND IF THEY EXIST SYSLCO AND SYSLBA) b r P* AND SYSINI b P* b ( P LD A2,SHADST+STKEND GET TO-ADDRESS b * P OR A2,MMREL1+ST
0x06b044…06b1d8 Dummy {f00=0x0022, f01=0x0190, f02=»RT OF PART2 b z , P AD A1,M:REL+STKCOM ADD RELOCATION BASE c P c D ( P LD A3,MOVLE2+STKEND LENGTH TO MOVE c L , P LD A4,RELOCA+STKEND GET RELOCATION BASE c x , P ADS A4,M:REL+STKCOM NEW RELOCATION BASE c P EJECT c P* c , P* JUMP TO MOVE ROUTINE
0x06b1d8…06b36c Dummy {f00=0x0022, f01=0x0190, f02=» A7=RETURN-ADDRESS c P* d $ P ABL STKMOV JUMP TO MOVE ROUTINE d & P EJECT d N P d P* ************************** d d " P* START OF PROGRAM PART 2.A * d " P***************************** d P d P d PPART2 EQU * d " P LDR A8,P LO
0x06b36c…06b500 Dummy {f00=0x0022, f01=0x0190, f02=»A1,CONSTA+STKCOM GET FROM ADDRESS d 0 P LD A3,CONLEN+STKCOM GET LENGTH OF CONF.FILE e * P LDR A7,P e ^ P ADK A7,10 e p 4 P ST A2,CONSTA+STKCOM UPDATE START OF CONF. DATA e $ P ABL STKMOV JUMP TO MOVE-ROUTINE e * P LDKL A10,STKEND START OF 1:ST APPTAB
0x06b500…06b694 (1, 135) Dummy {f00=0x0022, f01=0x0190, f02=»CR' CREDIT APPLICATION e " P CALL GETAPP FIND APPLICATION f * P RF(NZ) SYA205 MORE APPL.OF THIS TYPE f D P IFT MMUPAG=1 f r " P LD A2,SAEFA1+STKEND GET PAGE f P ST A2,FYSPAG+STKCOM f * P LD A2,SAEFA2+STKEND GET DISPLACEMENT f P ST A2,LSTADR+ST
0x06b694…06b828 Dummy {f00=0x0022, f01=0x0190, f02=»PL. OF THIS TYPE f v P AD A2,M:REL+STKCOM g P ABR A2 g 4 PSYA205 EQU * g D : P ST A1,APCBLK+STKEND SAVE START OF APPL. CONTROL TABLE g X P LDR A4,A1 SAVE g * P LD A2,APLLAC,A1 GET ADDRESS TO S:GTAB g P IFT MMUPAG=0 g $ P LDR* A9,A2 GET START
0x06b828…06b9bc Dummy {f00=0x0022, f01=0x0190, f02=»,DDIVFR,A10 END - START g & P AD A5,DDIVST+STKEND ADD NEW START h P ST A5,DATEND+STKCOM STORE h J P* h l * P* CALCULATE LENGTH OF PDDIV AND S:GTAB h v P* h " P LDR A3,A9 GET START OF P:MTAB h . P SUR A3,A2 GET LENGTH OF PDDIV AND S:GTAB h P I
0x06b9bc…06bb50 Dummy {f00=0x0022, f01=0x0190, f02=» NO! h $ P CM PDDIV+STKEND YES!RESET FLAG i PSYA206 EQU * i 4 6 P ST A3,PDDIVL,A10 STORE LENGTH OF PDDIV AND S:GTAB i H P XIF i P IFT MMUPAG=1 i " P ELR A9,A2 GET START OF P:MTAB i * P ST A9,APLLAC,A1 SAVE START OF P:MTAB i P* i P* CALC
0x06bb50…06bce4 Dummy {f00=0x0022, f01=0x0190, f02=» P LDR A6,A5 j . P ANKL A6,/F000 GET LOGICAL PAGE (MM-ENTRY) j $ P SRL A6,11 ADJUST FOR ADDRESSING j H . P ADKL A6,MMDDIV ADD RELATIVE START ADDRESS j p P ADR A6,A13 RELOCATE j & P LDR* A6,A6 GET MM-TABLE CONTENTS j P ST A6,FSTPAG+STKCOM SAVE j "
0x06bce4…06be78 Dummy {f00=0x0022, f01=0x018e, f02=»A9 SAVE A9 j " P LDR A9,A6 GET FIRST FREE PAGE k , P LD A11,SAEFA1+STKEND GET LAST FREE PAGE k 8 P CALL CMPADR k h P RF(G) SYA201 OK! k | P RF(L) SYA208 NOK! k P LDR A9,A5 GET DISPLACEMENT k P LD A11,SAEFA2+STKEND k P CALL CMPADR k P R
0x06be78…06c00c Dummy {f00=0x0022, f01=0x0190, f02=» k ( P* CHECK IF START OF S:GTAB = SCTEFA l P* l 4 $ P LDR A3,A2 GET ADDRESS TO S:GTAB l > . P ANKL A3,/F000 GET LOGICAL PAGE (MM-ENTRY) l f $ P SRL A3,11 ADJUST FOR ADDRESSING l . P ADKL A3,MMTAB ADD RELATIVE START ADDRESS l P ADR A3,A13 RELOCATE l
0x06c00c…06c1a0 Dummy {f00=0x0022, f01=0x0190, f02=»DR A3,A2 YES! COMPARE OFFSET l P ANKL A3,/0FFF GET OFFSET m $ P CM PDDIV+STKEND RESET FLAG m F P CW A3,SAEFA2+STKEND m j P RF(E) SYA203 OFFSET EQUAL? m P* m * P* CALCULATE LENGTH OF PDDIV AND S:GTAB m P* m PSYA202 EQU * m " P LDR A3,
0x06c1a0…06c334 (1, 136) Dummy {f00=0x0022, f01=0x0190, f02=» A3,A2 GET START OF S:GTAB m & P ANKL A2,/F000 NO!GET PAGE NUMBER n " P ADKL A2,/1000 ADD n L P CWR A2,A9 n f P RF(NG) SYA204 n x P LDR A2,A3 n PSYA204 EQU * n " P LDR A3,A9 GET START OF P:MTAB n * P SUR A3,A2 LENGTH OF PDDIV AND S:GTAB n P
0x06c334…06c4c8 Dummy {f00=0x0022, f01=0x0190, f02=»LES ADDRESSES n P* o P LDKL A4,MMDDIV o " P ADR A4,A13 GET TABLE ADDRESS o 8 2 P ST A4,MMTO+STKCOM SAVE 1:ST MM-TABLE ADDRESS o ^ P LDKL A4,MMTAB o " P ADR A4,A13 GET TABLE ADDRESS o 0 P ST A4,MMFROM+STKCOM SAVE 2:ND TABLE ADDRESS o P XIF
0x06c4c8…06c65c Dummy {f00=0x0022, f01=0x0190, f02=»ADDRESS o t P LDR A4,A2 p P SUR A3,A1 LENGTH OF DDIV p " " P SUR A4,A1 RELOCATION FOR DDIV p D P ST A4,MOVADD+STKEND SAVE p j P IFT MMUPAG=0 p P LD A8,STKCOM+TOTSGM PAGING? p P RF(NZ) PAGING YES! p & P LD A8,SCTOPT NO! GET OPTION WORD p
0x06c65c…06c7f0 Dummy {f00=0x0022, f01=0x0190, f02=»STADR+STKCOM IF SEGMENTS! p x P RF SEGMTS q " 2 PNOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP q 4 $ PSEGMTS ST A8,FSTADR+STKCOM STORE q j PMOVNXT LDR* A4,A1 GET WORD q P STR A4,A2 STORE q P ADK A1,2 q P ADK A2,2 q P SUK A3,2 DEC LENGTH q
0x06c7f0…06c984 Dummy {f00=0x0022, f01=0x0190, f02=» CALL CMPADR q P RF(NG) SYA207 r P LDKL A1,LMP3 r * P CALL ERROR r @ PSYA207 EQU * r T " P LDR A9,A3 GET P:MTAB ADDRESS r h , P SUK A3,10 RESERVE 5 WORDS FOR DEBUGGER r P XIF r P IFT MMUPAG=1 r P CALL XMOVE r & P* REMOVE DDIV ENTRIE
0x06c984…06cb18 Dummy {f00=0x0022, f01=0x0190, f02=»B ADDRESS-5WORDS =3 r | $ P SRL A1,11 ADJUST FOR ADDRESSING s P ANK A1,/1E s D & P LDKL A2,MMTAB-2 GET TABLE ADDRESS s X P ADR A2,A13 RELOCATE s , P ADR A1,A2 P:MTAB-5WORDS START ENTRY =3 s P LDKL A4,/FC00 s PSYA206 CWR A1,A2 ALL? s P RF(E)
0x06cb18…06ccac Dummy {f00=0x0022, f01=0x0190, f02=»CHANGE TABLE - ADDRESSES s P* t P LD A4,MMFROM+STKCOM t * P LD A5,MMTO+STKCOM t F P ST A4,MMTO+STKCOM t ` P ST A5,MMFROM+STKCOM t z P XIF t P ANKL A3,/FFFE EVEN ADDRESS t . P ST A3,LSTADR+STKCOM SAVE END OF FREE AREA t P t P t P
0x06ccac…06ce40 Dummy {f00=0x0022, f01=0x0190, f02=» t l P ADR A3,A13 u , P* FIND LAST USED ENTRY IN REAL MMUTAB * u P u L P CALL MMENT u T P ST A9,TTAB+STKCOM u h , P ST A1,FYSPAG+STKCOM SAVE PHYSICALL PAGE u * P LD A3,T:ANO,A10 GET LENGTH OF T:ATAB u P LDR A5,A3 SAVE u * P CALL CALLMO RES
0x06ce40…06cfd4 (1, 137) Dummy {f00=0x0022, f01=0x0190, f02=» T:ATAB ADDRESS u v P ADK A2,2 SKIP LENGTH WORD v 8 P LD A1,APCBLK+STKEND GET START OF APLL.CONTROL BLOCK v : ( P LD A9,APLLAC,A1 GET P:MTAB ADDRESS v v $ P ES A2,T:ATAB,A9 STORE IN P:MTAB v $ P* RESERVE PLACE FOR T:AID TABLE v P v P LDR A3,A5 GET
0x06cfd4…06d168 Dummy {f00=0x0022, f01=0x0190, f02=» A5,A2 STORE TABLE LENGTH IN T:TID-TABLE v " P ADK A2,2 ADJUST TABLE ADDRESS w 0 P ESR A2,A3 STORE IN P:MTAB w V $ P LD A5,U:BTOD,A10 U:BTAB ADDRESS w x ( P TL* MMFROM+STKCOM SET CORRECT TABLE w P ELR A3,A5 GET LENGTH w P LDR A5,A3 SAVE w P CALL
0x06d168…06d2fc Dummy {f00=0x0022, f01=0x018e, f02=» GET U:BTOD LENGTH w ~ P LDR A5,A3 SAVE x P CALL CALLMO RESERVE SPACE x 2 4 P ST A2,U:BTNW,A10 SAVE NEW (REAL) U:BTAB ADDRESS x T P STR A5,A2 STORE LENGTH x P ADK A2,2 x : P ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB x * P LD A3,T:ANO
0x06d2fc…06d490 Dummy {f00=0x0022, f01=0x018e, f02=» x p . P ST A2,T:ATNW,A10 SAVE NEW T:ATAB ADDRESS y P ADK A2,2 y : & P ST A2,T:ATAB,A9 SAVE REAL ADDRESS y L P* RESERVE FOR T:AID TABLE y v P y P LDR A3,A5 LENGTH y P CALL CALLMO y P STR A5,A2 STORE LENGTH y $ P ADK A2,2 ADJUST FOR LENGT
0x06d490…06d624 Dummy {f00=0x0022, f01=0x0190, f02=» P ESR A5,A2 STORE LENGTH z P ADK A2,2 SKIP LENGTH WORD z $ $ P ES A2,U:BTAB,A9 STORE IN P:MTAB z F P XIF z n P IFT SWPBLK=1 z z P* z * P* RESERV SPACE FOR REAL S:BTAB TABLE z P* z $ P LD A5,S:BTOD,A10 S:BTAB ADDRESS z 0 P LD A3,S:BLEN,
0x06d624…06d7b8 Dummy {f00=0x0022, f01=0x0190, f02=»LK=2 z P TL* MMTO+STKCOM { P ESR A5,A2 { $ P ADK A2,2 { 6 P ES A2,S:BTAB,A9 { H P CALL B:RSWT { ` P XIF { t P IFT SWPBLK-MMUPAG=1 { P STR A5,A2 { P ADK A2,2 { P ST A2,S:BTAB,A9 { P CALL B:RSWT { P XIF { P IFT MMUPAG=1 {
0x06d7b8…06d94c Dummy {f00=0x0022, f01=0x0190, f02=»******** { ~ P* SEARCH CWB'S: | P | ( ( P LD A8,T:ATOD,A10 GET T:ATAB ADDRESS | 4 P IFT MMUPAG=0 | ` P LDR* A3,A8 GET LENGTH | v P XIF | P IFT MMUPAG=1 | P ELR A3,A8 GET LENGTH | P XIF | P ADR A3,A8 | 4 P ST A3,ENDADD+STKEND S
0x06d94c…06dae0 Dummy {f00=0x0022, f01=0x0190, f02=» ALL DONE? | | P RF(E) SYA245 YES! =5 } $ P CALL T:DADD T:D-ADDRESS TO A12 } 0 P IFT MMUPAG=0 } X " P LD A7,CWBMSK,A12 GET CWB-MASK } n P XIF } P IFT MMUPAG=1 } P EL A7,CWBMSK,A12 } P XIF } P CALL SHIFT SUPER-LOOPA } PSYA220 RF(Z)
0x06dae0…06dc74 (1, 138) Dummy {f00=0x0023, f01=0x0190, f02=»* SEARCH UWB'S: } P* ~ ( P IM UWB+STKEND INDICATE UWB-SCANNING ~ " P IFT MMUPAG=0 ~ N P LD A7,UWBMSK,A12 ~ d P XIF ~ ~ P IFT MMUPAG=1 ~ P EL A7,UWBMSK,A12 ~ P XIF ~ P CALL SHIFT ~ " PSYA230 RB(Z) SYA210 ALL DONE! ~ PSYA235 C
0x06dc74…06de08 Dummy {f00=0x0023, f01=0x0190, f02=»QU * =5 ~ * P LD A1,BTASK,A10 BUGGER TASK INCLUDED? P RF(Z) CLADAT NO! > . P LDK A3,2 RESERVE ONE WORD FOR TRABUG-T:A X P CALL CALLMO P LDR A8,A2 SAVE CSB-POINTER 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 ( P CM TTB:PP,A2 CL
0x06de08…06df9c Dummy {f00=0x0023, f01=0x018e, f02=» * P LD A3,TTB:ID,A2 GET TRABUG'S TASK ID P IFT MMUPAG=0 6 8 P LD A1,APCBLK+STKEND GET START OF APL. CONTROL TABLE L ( P LD A1,APLLAC,A1 GET START OF P:MTAB 4 P ST A3,TRABUG,A1 SAVE TRABUG'S TASK ID IN P:MTAB P LD A1,P:BAS,A1 GET P:BAS
0x06df9c…06e130 Dummy {f00=0x0023, f01=0x0190, f02=» P XIF 0 P ST A8,TTB:CB,A2 SAVE ADDRESS TO CSB-POINTER . P CM TTB:SB,A2 CLEAR SEGMENT BLOCK ADDRESS D PSYA272 EQU * v 2 P SUKL A8,CSB ADD DISPL. TO CURRENT SEGMENT BAE P ST A8,TTB:SA+26,A2 SAVE A13 P IFT MMUPAG=1 8 P LD A1,APCBLK+
0x06e130…06e2c4 Dummy {f00=0x0023, f01=0x0190, f02=»S A3,TRABUG,A1 SAVE TRABUG'S TASK ID IN P:MTAB P EL A1,P:BAS,A1 GET P:BAS 6 ( P TL MMBEG,A2 LOAD TRABUG'S MMU-TABLE X , P ES A1,CSB,A8 STORE CURRENT SEGMENT BASE ( P TL* MMFROM+STKCOM RELOAD DDIV TABLE P XIF P EJECT P * P*
0x06e2c4…06e458 Dummy {f00=0x0023, f01=0x0190, f02=»SET POINTER TO LENGTH INT:ATAB ~ P IFT MMUPAG=0 & & PSYA250 CM UWB+STKEND INDICATE CWB < ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS f P CW A8,ENDADD+STKEND P RF(E) SYA270 ALL T:A'S DONE ( P CALL T:DADD GET T:D ADDRESS TO A12 P P*
0x06e458…06e5ec Dummy {f00=0x0023, f01=0x018e, f02=»ESS x ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST * P LDR A3,A1 GET NUMBER OF START-POINTS 8 P ADR A3,A12 ADD T:D-ADDRESS f P LDR* A3,A3 . 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH P CALL MULT AND MULTIPLY P ADK A3,2 'NUMBER-WO
0x06e5ec…06e780 Dummy {f00=0x0023, f01=0x0190, f02=» * P ST A2,T:DAD,A1 STORE NEW T:D ADDRESS " P LD A7,CWBMSK,A12 GET CWBMASK 2 P XIF X P IFT MMUPAG=1 d ( P* INITIATE MM-ADDRESS TABLE POINTER z P ( P LD A1,SHADOW,A10 SHADOW TABLE START * P AD* A1,SHADOW,A10 ADDRESS TABLE START P
0x06e780…06e914 (1, 139) Dummy {f00=0x0023, f01=0x0190, f02=»KEND " P RF(E) SYA270 ALL T:A'S DONE! " P CALL GETTAB GET TTAB-ADDRESS 2 P CALL MOVMMT MOVE MM-TABLE X " P* FILL MM-TABLE ADDRESS TABLE z P P LD A1,SAVE02+STKEND & P ADK A1,2 INCREMENT TABLE POINTER P ST A1,SAVE02+STKEND RESTO
0x06e914…06eaa8 Dummy {f00=0x0023, f01=0x0190, f02=» P P* CALCULATE LENGTH OF T:D P . 2 P EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB 6 P ADK A1,2 l P ANKL A1,/FFFE EVEN ADDRESS ~ ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST , P LDR A3,A1 GET NUMB. OF START-POINTS... P ADR A3,A1
0x06eaa8…06ec3c Dummy {f00=0x0023, f01=0x0190, f02=»RD' | P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS ( P CALL CALLMO MOVE T:D H P ELR A1,A8 GET T:A ADDRESS f * P ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS " P EL A7,CWBMSK,A12 GET CWBMASK P XIF P P CALL MOVCLA P EJE
0x06ec3c…06edd0 Dummy {f00=0x0023, f01=0x0190, f02=»NG n P IFT MMUPAG=0 " P LD A7,UWBMSK,A12 GET UWBMASK P XIF F P IFT MMUPAG=1 R P EL A7,UWBMSK,A12 h P XIF P CALL MOVCLA P EJECT P P " P* MOVE DT:S OF SWB'S & TWB'S * " P**************************
0x06edd0…06ef64 Dummy {f00=0x0023, f01=0x0190, f02=»A265 LD A7,TWBMSK,A12 P XIF P IFT MMUPAG=1 * P EL A7,SWBMSK,A12 @ P RF(Z) SYA265 NONE Z P CALL SKRITT t PSYA265 EL A7,TWBMSK,A12 P XIF P RB(Z) SYA250 P CALL SKRITT P RB SYA250 P PSYA270 RF PR
0x06ef64…06f0f8 Dummy {f00=0x0023, f01=0x018e, f02=» ** r 4 P** MOVE D.T ** 4 P** ** R 4 P*********************************************** PSKRITT EQU * P CALL SHIFT PNO RF(NZ) NES P RTN A14
0x06f0f8…06f28c Dummy {f00=0x0023, f01=0x0190, f02=» P RB NO P EJECT P $ & P* BUILD TASKDATA PROTOTYPE AREA * 0 & P********************************* Z PPRODAT EQU * 4 P IM SWITCH+STKEND INDICATE: -NO MORE D.T. MOVE! $ P LD A8,T:ATOD,A10 T:ATAB ADDRESS PSYA280 ADKL A8,2
0x06f28c…06f420 Dummy {f00=0x0023, f01=0x0190, f02=»DAD,A12 . 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P F " P* CALCULATE LENGTH OF DSCB'S * R " P*** *** x P P LDR* A1,A8 GET T:A-ADDRESS & P LD A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL DS
0x06f420…06f5b4 (1, 140) Dummy {f00=0x0023, f01=0x0190, f02=» P ADKL A2,T:ASTA ( P AD A4,DATTAB,A12 GET START OF DSCB P SUR A2,A4 LENGTH OF DAT'S H , P ADR A3,A2 A3=LENGTH OF DSCB'S AND DAT'S j ( P LD A2,FCD,A12 GET FCB-DISPLACEMENT P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGT
0x06f5b4…06f748 Dummy {f00=0x0023, f01=0x0190, f02=»TACK SIZE | $ P ST A2,CSE,A1 AND SAVE TEMPORARY 8 P LD A2,APCBLK+STKEND GET START OF APL.CONTROL TABLE : ( P LD A2,APLLAC,A2 GET START OF P:MTAB v P LD A2,P:BAS,A2 GET P:BAS P ST A2,CSB,A1 AND SAVE " P CALL ALLBUF ALLOCATE BUFFERS P
0x06f748…06f8dc Dummy {f00=0x0023, f01=0x0190, f02=»TAB-ADDRESS v , P LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS P D 2 P* GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE L P ( P TL MMBEG,A2 LOAD CLASS LOCAL TABLE * P LDKL A3,MMTAB GET WORK TABLE ADDRESS P ADR A3,A13 $ P TSR A3 STORE TA
0x06f8dc…06fa70 Dummy {f00=0x0023, f01=0x0190, f02=»L TWBSWB MOVE TWB'S & RESERVE FOR SWB'S " P* CALCULATE LENGTH OF DSCB'S * 0 " P*** *** V P | P ELR A1,A8 GET T:A-ADDRESS & P EL A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL DSCB-LENGTH ( P CALL MULT A3() X
0x06fa70…06fc04 Dummy {f00=0x0023, f01=0x0190, f02=»LACEMENT v P ADR A4,A1 GET START OF DSCB P SUR A2,A4 LENGTH OF DAT'S 4 , P ADR A3,A2 A3=LENGTH OF DSCB'S AND DAT'S V ( 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
0x06fc04…06fd98 Dummy {f00=0x0023, f01=0x0190, f02=»S A2,CSE,A1 AND SAVE (TEMPORARY) 8 P LD A2,APCBLK+STKEND GET START OF APL.CONTROL TABLE ( ( P LD A2,APLLAC,A2 GET START OF P:MTAB d ( P TL* MMTO+STKCOM LOAD CORRECT TABLE P EL A2,P:BAS,A2 GET P:BAS ( P TL* MMFROM+STKCOM RELOAD DDIV TABLE
0x06fd98…06ff2c Dummy {f00=0x0023, f01=0x0190, f02=»AB l P XIF P RB SYA280 NEXT P EJECT . PSYA290 EQU * < 6 P IM FLAG+STKEND INDICATE REAL DATA-PART PROCESSING P P* P* INCLUDE DDIV IN FREE AREA P* P LD A1,DDIVST+STKEND P IFT MMUPAG=1 P LDR A2,A1 P A
0x06ff2c…0700c0 Dummy {f00=0x0023, f01=0x0190, f02=»A2,/FFF P ST A2,FSTADR+STKCOM P XIF , P IFT MMUPAG=0 8 P ST A1,DATEND+STKCOM N P XIF j P* MOVE T:ATAB v P . P LD A2,T:ATNW,A10 GET REAL T:A-TAB ADDRESS P IFT MMUPAG=0 P LDR* A1,A2 REAL LENGTH $ P ADR A2,A1 E
0x0700c0…070254 (1, 141) Dummy {f00=0x0023, f01=0x0190, f02=» SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A10 SAVE P CALL MOVE < P XIF N P IFT MMUPAG=1 Z ( P TL* MMTO+STKCOM LOAD CORRECT TABLE p & P ELR A1,A2 GET REAL T:ATAB LENGTH $ P TL* MMFROM+STKCOM RELOAD TABLE P ADR A2,A1 END ADDRESS
0x070254…0703e8 Dummy {f00=0x0023, f01=0x0190, f02=» P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A10 SAVE " P CALL XMOVE @ P XIF T P ` P EJECT h P v P ~ 4 P************************************************ 4 P*** *** 4 P** SYSL
0x0703e8…07057c Dummy {f00=0x0023, f01=0x0190, f02=»****** f P 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * 4 P* SHADOW TABLE * N 4 P* * 4 P************************************************ P PPART2B EQU
0x07057c…070710 Dummy {f00=0x0023, f01=0x0190, f02=» f * P LD A7,T:ATNW,A10 REAL T:ATAB ADDRESS P ADK A7,2 6 P ST A8,SAVE01+STKEND SAVE A8 H * PSYA310 LD A8,SAVE01+STKEND RESTORE A8 l P ADKL A8,2 P CW A8,ENDADD+STKEND ALL? P RF(E) SYA350 YES! P ST A8,SAVE01+STKEND SAVE $
0x070710…0708a4 Dummy {f00=0x0023, f01=0x0190, f02=»TASK FLAG ~ : P ST A3,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) " P LD A1,SCTOPT GET OPTION WORD P P ANK A1,2 DISC PAGING? v P RF(Z) SYA320 NO! P LDR A1,A3 GET T:A-ADDRESS 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST
0x0708a4…070a38 Dummy {f00=0x0023, f01=0x0190, f02=»DR* A6,A5 GET NUMBER OF COPIES P EJECT & PSYA340 SUK A6,1 4 P RF(P) SYA345 NEXT TASK L 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS l P RB SYA310 NEXT TASK-CLASS * PSYA345 LD A12,T:DAD,A1 GET T:D-ADDRESS P CALL MOVT:A MOVE T:A
0x070a38…070bcc Dummy {f00=0x0023, f01=0x0190, f02=»ORRESPONDING TTAB AND QUEUE ~ P IMR A4 SET QUEUE TASK FLAG $ 0 P ST A3,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB H " P LD A1,SCTOPT GET OPTION WORD | P ANK A1,2 DISC PAGING? P RF(Z) SYA348 NO! P LDR A1,A3 GET T:A-ADDRESS 0 P ADKL A1,CSB
0x070bcc…070d60 Dummy {f00=0x0023, f01=0x0190, f02=»BSWB MOVE TWB'S AND RESERVE FOR SWB'S " P CALL ALLBUF ALLOCATE BUFFERS . P XIF T P IFT MMUPAG=1 ` * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD v P P LDR A1,A5 . P AD* A1,SHADOW,A10 ADD SHADOW-TABLE LENGTH $ P LDR* A1,A1 GET MM-TABLE
0x070d60…070ef4 (1, 142) Dummy {f00=0x0024, f01=0x0190, f02=»EUE TASK FLAG : P ST A3,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) P LDR A1,A3 GET T:A-ADDRESS T 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE v " P ST A1,TTB:CB,A2 STORE IN TTAB 0 P LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST ENTRY * P LDK
0x070ef4…071088 Dummy {f00=0x0024, f01=0x0190, f02=»BLE l P P SUK A2,2 START OF TABLE P LDKL A12,/FC00 4 PSYA320 SUK A1,2 NEXT ENTRY L P CWR A1,A2 ALL? n P RF(E) SYA330 YES! P STR A12,A1 REMOVE ENTRY P RB SYA320 PSYA330 EQU * P ELR A1,A8 GET T:A ADDRESS $ P
0x071088…07121c Dummy {f00=0x0024, f01=0x0190, f02=»REAL T:ATAB x $ P LDR* A6,A5 GET NUMBER OF COPIES PSYA340 SUK A6,1 < P RF(P) SYA345 NEXT TASK T 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS t P RB SYA310 NEXT TASK-CLASS PSYA345 ADK A1,1 NEXT T:A ID ( P CALL GETTTB FIND CORRES
0x07121c…0713b0 Dummy {f00=0x0024, f01=0x0190, f02=»A7 STORE IN REAL T:ATAB @ P ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS P LDR A8,A2 GET T:A-ADDRESS d 0 P ADKL A8,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A8,TTB:CB,A9 STORE IN TTAB " P LDR A8,A7 CHANGE T:A TO COPY , P A
0x0713b0…071544 Dummy {f00=0x0024, f01=0x018e, f02=»STKCOM GET TO-TABLE 2 P ST A1,MMFROM+STKCOM CHANGE T:A ADDRESS-TABLE P TLR A1 R " P CALL ALLBUF ALLOCATE BUFFERS b ( P LD A1,TTAB+STKCOM GET TTAB-ADDRESS * P CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB $ P ELR A3,A8 GET T:A-ADDRESS (NEW)
0x071544…0716d8 Dummy {f00=0x0024, f01=0x018e, f02=» ( P* SCAN TCTAB FOR TASKS TO BE QUEUED P* 4 , PSYA350 LD* A9,SCTTCT GET LENGTH OF TCTAB > $ P AD A9,SCTTCT ADD START OF TCTAB n ( PSYA355 SUKL A9,2 NEXT ENTRY IN TCTAB & P CW A9,SCTTCT ALL ENTRIES SCANNED? P RF(E) SYA360 YES P L
0x0716d8…07186c Dummy {f00=0x0024, f01=0x018e, f02=» ~ $ P STR A5,A9 RESET QUEUE TASK FLAG ( P LD A12,TTB:SA+26,A5 GET T:A ADDRESS 0 , P LD A2,APCBLK+STKEND GET ADDRESS TO ACB ( P LD A2,APLLAC,A2 GET P:MTAB ADDRESS P IFT MMUPAG=1 & P TL TTB:MT,A5 LOAD TASKS MMU TABLE P EL A12,T:DAD,A1
0x07186c…071a00 Dummy {f00=0x0024, f01=0x0190, f02=» 0 P LD A2,NTPA,A2 GET INTERPRETER START ADDRESS P XIF 8 P CALL QUEJOB QUEUE TASK D P RB SYA355 d P EJECT v PSYA360 EQU * P ADKL A10,TABLEN NEXT TABLEN P CM SWITCH+STKEND P CM FLAG+STKEND P LD A1,PDDIV+STKEND GET FL
0x071a00…071b94 (1, 143) Dummy {f00=0x0024, f01=0x0190, f02=» f P ST A1,SCTEFA+2 SAVE P XIF $ P IFT MMUPAG=1 0 6 P LD A1,FYSPAG+STKCOM GET LAST PHYSICAL PAGE NUMBER F P ST A1,SAEFA1+STKEND STORE * P LD A1,LSTADR+STKCOM GET LAST ADDRESS P ANKL A1,/FFF GET OFFSET P ST A1,SAEFA2+STKEND STO
0x071b94…071d28 Dummy {f00=0x0024, f01=0x0190, f02=»,FYSPAG+STKCOM GET LAST PHYSICAL PAGE P SLL A2,2 . P ORR A1,A2 @ P ST A1,SCTEFA+2 R P LD A1,FYSPAG+STKCOM j P SRL A1,14 P ST A1,SCTEFA P XIF PSYA370 EQU * P LDKL A1,SYA200 P AD A1,M:REL+STKCOM & P ABR A
0x071d28…071ebc Dummy {f00=0x0024, f01=0x0190, f02=»N TO ALL PARTS IN THIS PROGRAM * z < P******************************************************* * P EJECT j 2 P** C A L L M O ** x 2 P** ** 2 P** CHECK IF MORE SPACE IN PDDIV ARE
0x071ebc…072050 Dummy {f00=0x0024, f01=0x0190, f02=» PDDIV = IF "1" INDICATE THAT ** 2 P** MORE SPACE IN PDDIV ** , 2 P** PDDIVL = LENGTH OF PDDIV AND ** b 2 P** S:GTAB ** 2 P** OUTPUT: PDDIVL AND LSTADR IS UPDATED ** 2 P**
0x072050…0721e4 Dummy {f00=0x0024, f01=0x0190, f02=» ** p 2 P** SUBROUTINES: MOVING ** 2 P** ** L 2 P********************************************* P* PCALLMO EQU * 2 P LD A2,PDDIV+STKEND MORE SPACE IN PDDIV AREA?
0x0721e4…072378 Dummy {f00=0x0024, f01=0x0190, f02=»PAG=0 , P LD A2,SCTEFA+2 N0! GET END OF FREE AREA , P ST A2,LSTADR+STKCOM UPDATE LAST ADDRESS > P XIF n P IFT MMUPAG=1 z P LD A2,SAEFA2+STKEND , P ST A2,LSTADR+STKCOM UPDATE LAST ADDRESS P LD A2,SAEFA1+STKEND 4 P ST A2,FYSPAG+ST
0x072378…07250c Dummy {f00=0x0024, f01=0x0190, f02=»DDIVL v PCALL:10 EQU * P CALL MOVING $ P RTN A14 8 P EJECT H P V 4 P** G E T W B ** b 4 P** ** 4 P** ** 4
0x07250c…0726a0 Dummy {f00=0x0024, f01=0x0190, f02=» ** z 4 P** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** " 4 P** BIT=BIT NUMBER SAT IN MASK (0-15)** Z 4 P** OUTPUT: A4=W.B. DISPLACEMENT IN T:A ** 4 P** TADISP=A4 ** 4 P**
0x0726a0…072834 (1, 144) Dummy {f00=0x0024, f01=0x0190, f02=»***************** r P PGETWB EQU * & $ P LD A4,BIT+STKEND GET BIT NUMBER : $ P SLL A4,2 ADJUST FOR ADDRESSING b P ADK A4,WATFST+2 * P ST A4,TADISP+STKEND SAVE DISPLACEMENT P IFT MMUPAG=0 P LDR* A11,A8 GET T:A-ADDRESS
0x072834…0729c8 Dummy {f00=0x0024, f01=0x0190, f02=» 2 P LD A11,FLAG+STKEND REAL TASK-DATA PROCESSING? P RF(Z) GETW10 NO! > " P TL* MMTO+STKCOM LOAD TO-TABLE X & PGETW10 ELR A11,A8 GET T:A-ADDRESS ~ P ADR A11,A4 ADD DISPLACEMENT P ST A11,WBADD+STKEND SAVE " P ELR A11,A11 GET W.B.-ADDR
0x0729c8…072b5c Dummy {f00=0x0024, f01=0x018e, f02=» M O V W B ** 8 P** ** . 8 P** ** j 8 P** MOVE WORK-BLOCK. W.B.-ADDRESS IS UPDATED ** 8 P**
0x072b5c…072cf0 Dummy {f00=0x0024, f01=0x0190, f02=» Z 8 P** WORK-REGS: A1-A4 ** 8 P**************************************************** D P PMOVWB EQU * P LDR A1,A11 GET ADDRESS P ADKL A1,WBLEN FROM-ADDRESS P IFT MMUPAG=0 P LDR* A3,A1 LE
0x072cf0…072e84 Dummy {f00=0x0024, f01=0x0190, f02=» MOVE b P XIF P IFT MMUPAG=1 P ELR A3,A1 LENGTH 0 P CALL CALLMO J 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT ^ 2 P LD A4,FLAG+STKEND REAL DATA-PART PROCESSING? P RF(Z) MOVW10 NO! " P TL* MMTO+STKCOM LOAD TO-TABLE
0x072e84…073018 Dummy {f00=0x0024, f01=0x0190, f02=» P EJECT P P " : P** M O V D T ** . : P** ** l : P** ** : P** MOVE DISCRIPTOR TABLE. D.T.-
0x073018…0731ac Dummy {f00=0x0024, f01=0x0190, f02=»:A ** d : P** OUTPUT: A3=POINTER TO W.B.-ADDRESS ** : P** WORK REGS: A1-A4 ** P : P***************************************************** P PMOVDT EQU * : P LD A1,WBADD+STKEND GET POIN
0x0731ac…073340 Dummy {f00=0x0024, f01=0x018e, f02=»A1,DTLEN ADJUST FOR LENGTH WORD " P AD A1,MOVADD+STKEND RELOCATE ( P LDR* A3,A1 LENGTH N P CALL CALLMO h P LD A3,WBADD+STKEND | P SUKL A2,DTLEN P SUKL A1,DTLEN 4 P ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS P XIF P
0x073340…0734d4 (1, 145) Dummy {f00=0x0024, f01=0x0190, f02=» P ELR A3,A1 LENGTH P CALL CALLMO P LD A3,WBADD+STKEND 2 P SUKL A2,DTLEN N P SUKL A1,DTLEN d 4 P ES A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS z P XIF P RTN A14 P EJECT P < P** M O V D W
0x0734d4…073668 Dummy {f00=0x0024, f01=0x0190, f02=» ** h < P** SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. ** < P** AND UPDATE ADDRESSES (W.B. & D.T.) ** X < P** ** < P** INPUT : A12=T:D-ADDRESS
0x073668…0737fc Dummy {f00=0x0024, f01=0x0190, f02=» X < P** WORK.REGS: A1-A4 ** < P******************************************************** H P PMOVDWB EQU * " P ST A10,SAVE07+STKEND SAVE A10 P ST A6,SAVE05+STKEND SAVE A6 P LDK A6,0 * PMOVD
0x0737fc…073990 Dummy {f00=0x0024, f01=0x018e, f02=» P IFT MMUPAG=1 P EL A2,WATLEN,A12 P XIF 4 " P SUR A2,A6 ACTUAL TABLE LENGTH @ P ADR A6,A12 A6=TABLE POINTER f " PMOVD20 ADK A6,1 A6=TABLE INDEX P SUK A2,1 ALL? P RF(N) MOVD60 YES! P IFT MMUPAG=0 " P CC A4,DWBFST,A6 S
0x073990…073b24 Dummy {f00=0x0024, f01=0x0190, f02=» P RF(N) MOVD30 RIGHT! P ANKL A10,/FF00 P ECR A10,A10 8 P RF MOVD40 L PMOVD30 ANKL A10,/FF ^ " PMOVD40 SLC A6,1 ADJUST POINTER z P CWR A4,A10 SHARED W.B.? P XIF P RB(NE) MOVD20 NO! P* DWB FOUND * , P NGR A4,A2 C
0x073b24…073cb8 Dummy {f00=0x0024, f01=0x0190, f02=» ~ P ADR A4,A10 P XIF P LDR A6,A4 SAVE TABLE INDEX ( P SUK A4,1 L P SLL A4,2 ^ P ADK A4,WATFST+2 p . P LD A3,NEWAD2+STKEND GET NEW W.B.-ADDRESS P IFT MMUPAG=0 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A " P S
0x073cb8…073e4c Dummy {f00=0x0024, f01=0x0190, f02=»0 NO! " P TL* MMTO+STKCOM LOAD TO-TABLE PMOVD50 EQU * 4 . P ELR A10,A8 A4=POINTER TO W.B.-ADDR IN T:A H P ADR A4,A10 z " P ESR A3,A4 CHANGE W.B.-ADDRESS ( P TL* MMFROM+STKCOM RELOAD FROM-TABLE P XIF P ST A4,WBADD+STKEND 0 P
0x073e4c…073fe0 Dummy {f00=0x0024, f01=0x018e, f02=»VE D.T. P RB MOVD10 PMOVD60 EQU * " $ P LD A6,SAVE05+STKEND RESTORE A6 6 & P LD A10,SAVE07+STKEND RESTORE A10 ^ P RTN A14 P EJECT P P 4 P** T W B S W B ** 4 P**
0x073fe0…074174 (1, 146) Dummy {f00=0x0025, f01=0x018e, f02=» ^ 4 P** INPUT : A8=ACTUAL T:A-ADDRESS ** 4 P** A12=T:D-ADDRESS ** @ 4 P** WORK-REGS: A1-A4, A11 ** x 4 P************************************************ P PTWBSWB EQU * P ST
0x074174…074308 Dummy {f00=0x0025, f01=0x0190, f02=» P CALL SHIFT " PTWSW10 RF(Z) TWSW20 ALL DONE! P CALL GETWB B P CALL MOVWB V , P ST A2,NEWAD2+STKEND SAVE NEW WB-ADDRESS j & P CALL MOVDWB CHANGE DWB-ADDRESSES P CALL SKIFTA P RB TWSW10 PTWSW20 EQU * P IFT SWPBL
0x074308…07449c Dummy {f00=0x0025, f01=0x0190, f02=»FT SWPBLK-MMUPAG=1 P LD A7,SWBMSK,A12 P XIF 4 P IFT MMUPAG+SWPBLK=2 @ P EL A7,SWBMSK,A12 P XIF v P IFT SWPBLK=1 P CALL SHIFT PTWSW30 RF(Z) TARZAN ALL DONE P CALL GETWB P CALL MOVWB RESERVE SPACE * P S
0x07449c…074630 Dummy {f00=0x0025, f01=0x0190, f02=» P XIF $ P LD A7,SAVE04+STKEND RESTORE A7 P RTN A14 < P EJECT L P Z P b 4 P** A L L B U F ** j 4 P** ** 4 P** ALLOCATE FIXED DATA SET BUFFERS AND
0x074630…0747c4 Dummy {f00=0x0025, f01=0x018e, f02=»=ACTUAL T:A-ADDRESS IN T:ATAB ** 4 P** A12=T:D-ADDRESS ** * 4 P** CSN (IN T:A)=LENGTH OF DSCB'S ** b 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** 4 P** CSE (IN T:A)=STACKSIZE ** 4
0x0747c4…074958 Dummy {f00=0x0025, f01=0x0190, f02=» P IFT MMUPAG=0 2 P LD A9,FSTADR+STKCOM GET BUFFER START ADDRESS P LDR* A1,A8 GET T:A-ADDRESS T ( P LD A3,CSN,A1 GET DSCB TOTAL LENGTH x P RF(Z) ALLB70 NO DSCB'S 2 P AD A1,DATTAB,A12 CALC. START OF DSCB RECORDS " P LDR A11,A1 SA
0x074958…074aec Dummy {f00=0x0025, f01=0x0190, f02=» RF(Z) ALLB70 NO DSCB * P EL A11,DATTAB,A12 GET DISPL. TO DAT'S P ADR A1,A11 START OF DAT'S L " P LDR A11,A1 SAVE START ADDRESS n P XIF P SUR A3,A1 P NGR A3,A3 P SUK A3,DSCBL END CONDITION < P ST A3,SAVE04+STKEND SAVE ADDRES
0x074aec…074c80 Dummy {f00=0x0025, f01=0x0190, f02=»LLB70 YES! P IFT MMUPAG=0 : P LD A3,BL,A1 GET LENGTH OF THE REQUESTED BUFFER.ZERO? ( P RB(Z) ALLB10 YES! f * P LD A2,SB,A1 GET INDEX.SHARED BUFFER? P RF(Z) NOTSH NO! P LDK A3,DSCBL LENGTH OF DSCB " P CALL MULT A2*A3 RESULT IN A3
0x074c80…074e14 (1, 147) Dummy {f00=0x0025, f01=0x0190, f02=»TORE IN CURRENT DSCB P XIF P IFT MMUPAG=1 ( 0 P EL A3,BL,A1 GET LENGTH OF REQ.BUFFER.ZERO? > P RB(Z) ALLB10 YES! r * P EL A2,SB,A1 GET INDEX.SHARED BUFFER? P RF(Z) NOTSH NO! P LDK A3,DSCBL LENGTH OF DSCB " P CALL MULT A2*A3 R
0x074e14…074fa8 Dummy {f00=0x0025, f01=0x0190, f02=»S A4,BP,A1 STORE IN CURRENT DSCB P XIF ( P RB ALLB10 4 P F P IFT MMUPAG=0 N : PNOTSH ADK A3,2 ONE EXTRA WORD USED BY THE INTERPRETER d P LDR A9,A9 PAGING? P RF(NZ) NOTS10 NO! , P CALL CALLMO ALLOCATE BUFFER FROM BOTTOM & P A
0x074fa8…07513c Dummy {f00=0x0025, f01=0x0190, f02=»9,A9 , P SUR A9,A2 MAX LENGTH OF REM. MEM. AREA P LDR A4,A11 SAVE REGISTER < P LDR A11,A3 LENGTH OF BUFFER ^ P CALL CMPADR ENOUGTH MEMORY? P RF(G) ALLB50 NO! ( P LDR A9,A2 GET START OF MEMORY AREA ( P ADR A9,A3 ALLOCATE BUFFER F
0x07513c…0752d0 Dummy {f00=0x0025, f01=0x0190, f02=»RT r P CALL CMPADR P RF(NL) ALLB60 OK! PALLB50 LDKL A1,LMP3 8 P CALL ERROR T PALLB60 EQU * h P LDR A11,A4 RESTORE REGISTER | & P ADK A2,2 BUFFER MASK AT DISPL. -2 & P ST A2,BP,A1 STORE BUFFER POINTER 0 P ST A9,FSTADR+STKCOM
0x0752d0…075464 Dummy {f00=0x0025, f01=0x0190, f02=»XTRA WORD USED BY THE INTERPRETER | . P CALL CALLMO ALLOCATE BUFFER FROM 'BOTTOM' * & P ADK A2,2 BUFFER MASK AT DISPL. -2 & P ES A2,BP,A1 STORE BUFFER ADDRESS P XIF P RB ALLB10 P , P* RESERVE STACK AND SET STACKPOINTERS *
0x075464…0755f8 Dummy {f00=0x0025, f01=0x018e, f02=»80 $ P LDK A3,STKSZ DEFAULT STACKSIZE PALLB80 EQU * 2 , P ST A3,STKB,A1 STORE ACTUAL STACK SIZE F P CALL CALLMO ALLOCATE STACK v P ST A2,STKE,A1 SET STACK-END " P LD A3,STKB,A1 GET STACK SIZE " P ADR A2,A3 COMPUTE STACK BASE "
0x0755f8…07578c Dummy {f00=0x0025, f01=0x0190, f02=» P IFT MMUPAG=1 P ELR A1,A8 GET T:A-ADDRESS P EL A3,CSE,A1 GET STACK SIZE < * P RF(NZ) ALLB80 USER DEFINED STACK SIZE ` $ P LDK A3,STKSZ DEFAULT STACK SIZE ( PALLB80 ES A3,STKB,A1 SAVE STACK SIZE P CALL CALLMO ALLOCATE STACK " P E
0x07578c…075920 Dummy {f00=0x0025, f01=0x0190, f02=»T WORD x $ P ES A2,STKB,A1 STORE STACK BASE * P ESR A2,A1 STORE CURRENT STACK POINTER 6 P XIF d P RTN A14 p P EJECT P 4 P** M O V T : A ** 4 P** ** 4 P**
0x075920…075ab4 (1, 148) Dummy {f00=0x0025, f01=0x0190, f02=» ** v 4 P** INPUT : A8=T:A-ADDRESS ** 4 P** A12=T:D-ADDRESS ** V 4 P** CIA (IN T:A)=DISL. TO T:A-START ** 4 P** OUTPUT: A2=NEW T:A-ADDRESS ** 4 P** WORKRE
0x075ab4…075c48 Dummy {f00=0x0025, f01=0x0190, f02=»0,SAVE07+STKEND SAVE A10 P IFT MMUPAG=0 P LDR* A1,A8 GET T:A-ADDRESS 6 ( P LD A3,WATLEN,A12 GET LENGTH OF WAT Z P SLL A3,2 BYTES , P SU A3,CIA,A1 ADD DISPLACEMENT TO START P ADK A3,WATFST A3=LENGTH P AD A1,CIA,A1 FROM-ADDRESS
0x075c48…075ddc Dummy {f00=0x0025, f01=0x018e, f02=»COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * P : P LD A3,FCD,A12 ANY FCD? B P RF(Z) MOVT10 NO! b P ADR A3,A2 START OF FCB | P LDR A4,A2 SAVE T:A-ADDRESS 2 P LD A10,FLAG+STKEND REAL TASK DATA PROCESSING? P RF(Z) MOVT05 NO!
0x075ddc…075f70 Dummy {f00=0x0025, f01=0x0190, f02=» | P ADS A4,FCBDD3,A3 P ADS A4,FCBDD4,A3 " , PMOVT10 LD A10,SAVE07+STKEND RESTORE A10 < P RTN A14 l P XIF | P IFT MMUPAG=1 P P ELR A1,A8 GET T:A-ADDRESS ( P EL A3,WATLEN,A12 GET LENGTH OF WAT P SLL A3,2 BYTES
0x075f70…076104 Dummy {f00=0x0025, f01=0x0190, f02=»0,SAVE07+STKEND RESTORE A10 P CALL CALLMO $ P ELR A4,A8 8 P EL A10,CIA,A4 J P SUR A2,A10 NEW T:A-ADDRESS ` " P SUR A1,A10 'OLD' T:A-ADDRESS 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * P P EL A3,FCD,A12 ANY FCD?
0x076104…076298 Dummy {f00=0x0025, f01=0x018e, f02=»! 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) PMOVT05 EQU * F P ADR A3,A2 START OF FCB Z " P TL* MMTO+STKCOM LOAD TO-TABLE z P EL A10,FCBDD1,A3 P ADR A10,A4 P ES A10,FCBDD1,A3 P EL A10,FCBDD2,A3 P ADR A
0x076298…07642c Dummy {f00=0x0025, f01=0x0190, f02=» P ADR A10,A4 P ES A10,FCBDD4,A3 ( P TL* MMFROM+STKCOM RELOAD FROM-TABLE 2 , PMOVT10 LD A10,SAVE07+STKEND RESTORE A10 ^ P RTN A14 P XIF P EJECT D P*************************************************************** D P*
0x07642c…0765c0 Dummy {f00=0x0025, f01=0x0190, f02=»* ===================================== * D P* * H D P* REFERENCED IN: MOVCOM * D P*
0x0765c0…076754 (1, 149) Dummy {f00=0x0025, f01=0x0190, f02=» * h D P* BIT - BIT NUMBER SET IN CWB- OR UWB-MASK * D P* * h D P* EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * D P* IN T:A
0x076754…0768e8 Dummy {f00=0x0025, f01=0x0190, f02=»REGISTERS: A1,A2 * D P* * @ D P* SUBROUTINES: * D P*
0x0768e8…076a7c Dummy {f00=0x0025, f01=0x0190, f02=» SET BIT 0 8 P LD A2,BIT+STKEND GET BIT NUMBER IN CWB- OR UWB-MASK " PIBAM10 RF(Z) IBAM20 BIT FOUND N & P SRL A1,1 SHIFT BIT RIGHT ONE STEP t $ P SUK A2,1 DECREMENT BIT COUNTER P RB IBAM10 P* & P* UPDATE MOVED MASK IN FIRST T:A
0x076a7c…076c10 Dummy {f00=0x0025, f01=0x0190, f02=»E CURRENT BLOCK MOVED ~ * P STR A3,A2 STORE NEW MOVED BLOCK MASK P* L & P* UPDATE MOVED MASK IN SECOND T:A V P* P LDR* A2,A6 GET T:A POINTER $ P LDR* A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED * P S
0x076c10…076da4 Dummy {f00=0x0025, f01=0x0190, f02=»ED BLOCK MASK ~ , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED * P ESR A3,A2 STORE NEW MOVED BLOCK MASK F P* t & P* UPDATE MOVED MASK IN SECOND T:A ~ P* P ELR A2,A6 GET T:A POINTER $ P ELR A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 I
0x076da4…076f38 Dummy {f00=0x0025, f01=0x0190, f02=»******************************************************************* J P* * L J P* CHKMVD - CHECK IF BLOCK ALREADY MOVED * J P* ================
0x076f38…0770cc Dummy {f00=0x0025, f01=0x0190, f02=»D IN: MOVCOM,MOVCLA * J P* * B J P* ENTRY: A8 - POINTER TO T:A * J P* BIT - BIT NUMBER IN CWB- OR UWB-
0x0770cc…077260 Dummy {f00=0x0025, f01=0x0190, f02=»EADY MOVED THEN CR=2 ELSE CR<>2 * z J P* * 8 J P* WORK REGISTER: A1,A2 * J P*
0x077260…0773f4 (1, 150) Dummy {f00=0x0026, f01=0x0190, f02=» * p J P********************************************************************* . P EJECT | PCHKMVD EQU * P IFT MMUPAG=0 P LDR* A1,A8 GET T:A POINTER $ P LDR* A1,A1 GET MOVED BLOCK MASK P XIF
0x0773f4…077588 Dummy {f00=0x0026, f01=0x0190, f02=»END GET BIT SET IN CWB- OR UWB-MASK 6 PCHKM10 RF(Z) CHKM20 BIT IN MOVED BLOCK MASK FOUND , * P SLL A1,1 NEXT BIT IN MOVED BLOCK MASK f $ P SUK A2,1 DECREMENT BIT COUNTER P RB CHKM10 PCHKM20 ADK A1,0 SET CR * P CFI A14,PSW,A13 PUT CONDITI
0x077588…07771c Dummy {f00=0x0026, f01=0x0190, f02=» ** : P** S H I F T & SKIFTA ** < : P** ** z : P** CALCULATES BIT NUMBER SAT IN MASK-WORD ** : P** INPUT : A7=MAS
0x07771c…0778b0 Dummy {f00=0x0026, f01=0x0190, f02=»PSW ON RETURN ** r : P****************************************************** P ^ PSHIFT EQU * j $ P CM BIT+STKEND RESET BIT COUNTER ~ P LDR A7,A7 P RF SHIF20 & PSKIFTA EQU * ENTRY: CONTINUE SHIFT PSHIF10 IM BIT+STKEND
0x0778b0…077a44 Dummy {f00=0x0026, f01=0x0190, f02=»OND IN PSW t P RTN A14 P EJECT " @ P************************************************************ 0 @ P* * t @ P* CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE AREA IN TTAB * B P*
0x077a44…077bd8 Dummy {f00=0x0026, f01=0x0190, f02=» * @ P* * : @ P* REFERENCED IN: SYSLDA PART 2 B. * ~ @ P* * @ P*
0x077bd8…077d6c Dummy {f00=0x0026, f01=0x018e, f02=» * @ P* EXIT: * B @ P* * @ P* WORK REGISTERS: A1,A3,A6,A8 *
0x077d6c…077f00 Dummy {f00=0x0026, f01=0x0190, f02=» R @ P* * @ P************************************************************ L PCHTAID EQU * 2 P LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES " PCHT:10
0x077f00…078094 (1, 151) Dummy {f00=0x0026, f01=0x0190, f02=»T:A p $ P LD A1,T:ATID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB 4 * P LD A4,TTBTID,A2 GET REAL TID IN TTAB f 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
0x078094…078228 Dummy {f00=0x0026, f01=0x0190, f02=»IF P IFT MMUPAG=1 & P ELR A1,A8 GET POINTER TO REAL T:A $ P EL A1,T:ATID,A1 GET TCL IN T:A J . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB r ( P LDR A3,A2 GET POINTER TO TTAB ENTRY 2 P ADKL A3,MMBEG START OF MM-TABLE FOR THIS TTAB P T
0x078228…0783bc Dummy {f00=0x0026, f01=0x018e, f02=»:ATID,A3 REPLACE TCL IN T:A *79-04-11* 0 P EL* A3,T:ATNW,A10 GET LENGTH OF REAL T:ATAB . $ P NGR A3,A3 NEGATIVE DISPLACEMENT b . P ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE 8 P ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE *79-04-11* P XIF & P CM
0x0783bc…078550 Dummy {f00=0x0026, f01=0x0190, f02=» j P RB(P) CHT:20 NEXT COPY PCHT:90 RTN A14 ( P > 4 P** T : D A D D ** J 4 P** ** 4 P** ** 4 P** GET T:D - ADDRESS
0x078550…0786e4 Dummy {f00=0x0026, f01=0x018e, f02=»** b 4 P** OUTPUT: A12=T:D ADDRESS ** 4 P************************************************ B PT:DADD EQU * z P IFT MMUPAG=0 P LDR* A12,A8 T:A ADDRESS P LD A12,T:DAD,A12 P XIF P IFT MMUPAG=1 P ELR A12
0x0786e4…078878 Dummy {f00=0x0026, f01=0x0190, f02=» P 6 P** M O V C O M ** 6 P** ** N 6 P** ** 6 P** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** 6 P** ARE COMM
0x078878…078a0c Dummy {f00=0x0026, f01=0x018e, f02=» ** p 6 P** INPUT : A8=POINTER IN T:ATAB ** 6 P** BIT=BIT NUMBER, SAT IN MASK ** T 6 P** ENDADD=ENDADDRESS OF T:ATAB ** 6 P** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** 6 P** WO
0x078a0c…078ba0 Dummy {f00=0x0026, f01=0x0190, f02=» & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(N) MOVC20 YES! 2 : P CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL L , P ST A11,SAVE06+STKEND SAVE W.B.-ADDRESS * P CM MOVED+STKEND CLEAR MOVED INDICATOR P LDR A6,A8 PMOVC10 ADK A6,
0x078ba0…078d34 (1, 152) Dummy {f00=0x0026, f01=0x0190, f02=»30 LDR* A11,A6 P LD A2,T:DAD,A11 T:D-ADDRESS " P AD A2,MOVADD+STKEND RELOCATE : P ST A2,SAVE03+STKEND SAVE ` , P LD A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS P CW A2,BIT+STKEND ENOUGHT? 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A
0x078d34…078ec8 Dummy {f00=0x0026, f01=0x018e, f02=»IF P IFT MMUPAG=1 PMOVC30 ELR A11,A6 P EL A2,T:DAD,A11 T:D-ADDRESS : " P AD A2,MOVADD+STKEND RELOCATE ^ 4 P ST A2,SAVE03+STKEND SAVE T:D-ADDRESS TEMPORARY , P EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS P CW A2,BIT+STKEND ENOUGHT?
0x078ec8…07905c Dummy {f00=0x0026, f01=0x0190, f02=» 0 P CW A11,SAVE06+STKEND COMPARE W.B.-ADDRESSES P XIF 8 P RB(NE) MOVC10 .NEQ. D , P LD A9,MOVED+STKEND W.B. ALREADY MOVED? ` . P RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY & P CALL MOVDT MOVE DESCRIPTOR-TABLE * P ST A2,NEWAD1+STKEND SAVE D.
0x07905c…0791f0 Dummy {f00=0x0026, f01=0x0190, f02=» MOVC40 NO! " P CALL GETPRO CREATE REAL UWB'S 8 PMOVC40 ST A2,NEWAD2+STKEND SAVE NEW ADDRESS TO W.B. : P CALL MOVDWB v & PMOVC50 CALL CHADR CHANGE ADDRESSES . P CALL ICBMVD INDICATE CURRENT BLOCK MOVED P LDR A11,A8 SAVE T:A-POINTER *
0x0791f0…079384 Dummy {f00=0x0026, f01=0x0190, f02=» P CALL MOVDWB P LDR A8,A11 , P LD A12,SAVE04+STKEND RELOAD T:D-ADDRESS , P RB MOVC10 P EJECT n P | P 4 P** G E T P R O ** 4 P** ** 4 P**
0x079384…079518 Dummy {f00=0x0026, f01=0x0190, f02=» ** t 4 P** ** 4 P** INPUT : A11=PROTOTYPE ADDRESS ** T 4 P** A2=LAST W.B. - ADDRESS ** 4 P** OUTPUT: A2=NEW ADDRESS ** 4 P** WORK-REG
0x079518…0796ac Dummy {f00=0x0026, f01=0x018e, f02=»A3,U:BTOD,A10 GET U:BTAB ADDRESS P IFT MMUPAG=0 ( P LDR* A4,A3 LENGTH > PGETP10 EQU * X 6 P SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH l P RF(NN) GETP20 P LDK A1,LMP6 W.B. NOT FOUND! P CALL ERROR PGETP20 EQU * P
0x0796ac…079840 Dummy {f00=0x0026, f01=0x0190, f02=» 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * < P p PGETP30 EQU * x P LD A4,WBLEN,A11 W.B.-LENGTH * P LC A5,UPNUMB,A3 GET NUMBER OF COPIES P ANK A5,/FF , P SU A3,U:BTOD,A10 GET
0x079840…0799d4 (1, 153) Dummy {f00=0x0026, f01=0x0190, f02=»A5,URNUMB,A9 STORE IN REAL U:BTAB 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * * 0 P******************************************** ^ . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') P RF(NP) GETP50 PGETP40 CALL MOVWB P SUK A5,1 P R
0x0799d4…079b68 Dummy {f00=0x0026, f01=0x018e, f02=» ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB P XIF : P IFT MMUPAG=1 F P ELR A4,A3 LENGTH PGETP10 EQU * v 6 P SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH P RF(NN) GETP20 P LDK A1,LMP6 W.B. NOT FOUND! P CALL ERRO
0x079b68…079cfc Dummy {f00=0x0026, f01=0x018e, f02=» f P ADK A3,UP:REC NEXT P RB GETP10 $ P 6 0 P* GET NUMBER OF COPIES * B 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * v 0 P******************************************** P PGETP30 EQU * P EL A4,WBLEN,A
0x079cfc…079e90 Dummy {f00=0x0026, f01=0x0190, f02=» . P AD A3,U:BTNW,A10 ADD TO NEW TABLE ADDRESS P LDR A9,A3 6 " P TL* MMTO+STKCOM LOAD TO-TABLE H * P ES A5,URNUMB,A9 ESORE IN REAL U:BTAB n " P ES A4,URLENG,A9 STORE LENGTH ( P TL* MMFROM+STKCOM RELOAD FROM TABLE 0 P* COPY NUMBER OF WORKBLOCK
0x079e90…07a024 Dummy {f00=0x0026, f01=0x0190, f02=»GETP50 PGETP40 CALL MOVWB P SUK A5,1 ( P RB(NZ) GETP40 : P P & P* UPDATE POINTER IN REAL U:BTAB * & P********************************* PGETP50 EQU * P TL* MMTO+STKCOM 6 P ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U
0x07a024…07a1b8 Dummy {f00=0x0026, f01=0x0190, f02=» ** f 2 P** ** 2 P** ** B 2 P** CHECKS IF W.B. ALREADY MOVED TO COMMON ** x 2 P** AREA. IF NOT MOVE W.B. & D.T. AND ** 2 P** CHECK IF ANY DWB'S
0x07a1b8…07a34c Dummy {f00=0x0026, f01=0x0190, f02=»*********************************** P , PMOVCLA EQU * 4 P CALL SHIFT H P RF(Z) MVCL30 * PMVCL10 CALL GETWB W.B.-ADDRESS TO A11 r & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(NN) MVCL40 NO! , PMVCL20 CALL SKIFTA GET NEXT BIT IN M
0x07a34c…07a4e0 Dummy {f00=0x0026, f01=0x0190, f02=» P RF(Z) MVCL50 NO! P CALL GETPRO DUPLICATE WB'S 0 PMVCL50 ST A2,NEWAD2+STKEND SAVE W.B.-ADDRESS B P CALL MOVDWB PROCESS DWB'S v P RB MVCL20 P EJECT P P 6 P** C H A D R ** 6
0x07a4e0…07a674 (1, 154) Dummy {f00=0x0027, f01=0x0190, f02=» TO W.B. & D.T. IN T:A, ** ~ 6 P** BLOCKS ALREDY MOVED ** ( 6 P** ** b 6 P** INPUT : A6=POINTER IN T:ATAB TO T:A ** 6 P** NEWADR1=NEW D.T.-ADDRESS **
0x07a674…07a808 Dummy {f00=0x0027, f01=0x0190, f02=»S: A1,A2 ** 6 P************************************************* . P h PCHADR EQU * t P IFT MMUPAG=0 P LDR* A1,A6 T:A-ADDRESS 2 P AD A1,TADISP+STKEND ADDRESS TO W.B.-ADDRESS P LD A2,NEWAD2+STKEND
0x07a808…07a99c Dummy {f00=0x0027, f01=0x0190, f02=»G=1 P ELR A1,A6 T:A-ADDRESS 2 P AD A1,TADISP+STKEND ADDRESS TO W.B.-ADDRESS * P LD A2,NEWAD2+STKEND ` P ESR A2,A1 | & P SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1+STKEND P ESR A2,A1 P XIF P RTN A14 P IFT S
0x07a99c…07ab30 Dummy {f00=0x0027, f01=0x0190, f02=» * l B P* * " B P* B:RSWT - BUILD REAL SWB CONTROL TABLE * h B P* ===================================== * B P*
0x07ab30…07acc4 Dummy {f00=0x0027, f01=0x0190, f02=» * B P* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB * 6 B P* A5 - LENGTH OF REAL S:BTAB * | B P* * B P
0x07acc4…07ae58 Dummy {f00=0x0027, f01=0x0190, f02=» B P* WORK REGISTERS: A1-A7 * B P* * J B P* SUBROUTINES: * B P*
0x07ae58…07afec Dummy {f00=0x0027, f01=0x0190, f02=»AVE POINTER TO FIRST BLOCK 8 P LD A1,APCBLK+STKEND GET START OF APL.CONTROL TABLE " 0 P LD A1,APLSWB,A1 POINTER TO SWB BLOCK TABLE ^ * P RF(Z) RSWBEX NO SWB:S IN APPLICATION P LDR* A3,A1 NUMBER OF TYPES P RF(Z) RSWBEX NO MOORE P LDK A
0x07afec…07b180 Dummy {f00=0x0027, f01=0x0190, f02=» COPIES | $ P LD A7,SWBLEN,A4 LENGTH IN BYTES P XIF 8 P IFT MMUPAG+SWPBLK=2 D & P ES A6,2,A2 STORE NUMBER OF COPIES ` , P ES A7,4,A2 STORE LENGTH OF SWB IN BYTES P XIF P IFT SWPBLK-MMUPAG=1 & P ST A6,2,A2 STORE NUMBER OF COPIES
0x07b180…07b314 (1, 155) Dummy {f00=0x0027, f01=0x0190, f02=»6 INCREMENT POINTER IN BLOCK ( P SUK A3,1 DECREMENT NUMBER OF TYPES $ P RB(P) RSWB10 P P LDR A4,A2 f P* x 4 P* INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE ( P* AND RESET ALL WORDS IN TID BLOCKS P* PRSWB20 EQU * ( P LDR
0x07b314…07b4a8 Dummy {f00=0x0027, f01=0x018e, f02=» t P RF(Z) RSWB50 NO COPIES! * P STR A6,A8 STORE POINTER TO TID BLOCK ( PRSWB30 STR A3,A2 RESET TID V , P ADK A2,2 INCREMENT POINTER IN TID BLOCK x . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB $ P SUK A1,1 DECR. NUMBER OF COPIES P RB(P)
0x07b4a8…07b63c Dummy {f00=0x0027, f01=0x0190, f02=» * P ESR A6,A8 STORE POINTER TO TID BLOCK PRSWB40 ESR A3,A2 RESET TID 2 , P ADK A2,2 INCREMENT POINTER IN TID BLOCK T . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB ( P SUK A1,1 DECREMENT NUMBER OF COPIES P RB(P) RSWB40 NEXT COPY P XIF
0x07b63c…07b7d0 Dummy {f00=0x0027, f01=0x4098, f02=» RSWBEX YES P LDKL A1,LMP6 SWB ERROR! P CALL ERROR 4 PRSWBEX RTN A14 H P XIF ^ PLCREND EQU * j P ~ P END @ LENGTH OF REAL S:BTAB ( P SUK A1,1 DECREMENT NUMBER OF COPIES P RB(P) RSWB40 NEXT COPY P XIF
0x07b7d0…07b964 Dummy {f00=0x0027, f01=0x2008, f02=» -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
0x07b964…07baf8 Dummy {f00=0x0027, f01=0x0000, f02=»
[…0x2…]
0x07be20…07bfb4 (1, 156) Opaque[0x194]
0x07bfb4…07c148 # DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04f0, f03=0x0000}
0x07bfb4…07c148 IdxSect {
0x07bfb4…07c148 f00 = 0x0027 // 0x7bfb4 @0x0
0x07bfb4…07c148 f01 = 0x0014 // 0x7bfb6 @0x2
0x07bfb4…07c148 gno = [ // 0x7bfb8 @0x4
0x07bfb4…07c148 [0x00]: C0x0027.0x2.0
0x07bfb4…07c148 [0x01]: C0x0027.0x3.0
0x07bfb4…07c148 [0x02]: C0x0028.0x0.0
0x07bfb4…07c148 [0x03]: C0x0028.0x1.0
0x07bfb4…07c148 [0x04]: C0x0028.0x2.0
0x07bfb4…07c148 [0x05]: C0x0028.0x3.0
0x07bfb4…07c148 [0x06]: C0x0029.0x0.0
0x07bfb4…07c148 [0x07]: C0x0029.0x1.0
0x07bfb4…07c148 [0x08]: C0x0029.0x2.0
0x07bfb4…07c148 [0x09]: C0x0029.0x3.0
0x07bfb4…07c148 ]
0x07bfb4…07c148 }
0x07c148…07c2dc Dummy {f00=0x0027, f01=0x0190, f02=» 2 P IDENT PRINT REL 11.0 DK 81-10-11 870150541100 P : P =2 NEW LABEL B P 81-04-08 Z P =1, EOC ON FIRST READ n P 81-01-26 H P******************************************************************* H P*
0x07c2dc…07c470 Dummy {f00=0x0027, f01=0x0190, f02=» MODULE HANDLING THE PRINTOUTS BOTH FROM * H P* DISPLAY AND MAIN-FRAME * B H P* (EMULATION 3270 SNA/SDLC, BSC * H P*
0x07c470…07c604 Dummy {f00=0x0027, f01=0x0190, f02=»**************************************** P* 0 P* LIST OF ROUTINES : P* $ P* PRINT MAIN ROUTINE f 0 P* IOACT ACTIVATE IN CURRENT MODE 0 P* IOCPL COMPLETE IN CURRENT MODE ( P* DCPINP
0x07c604…07c798 Dummy {f00=0x0027, f01=0x0190, f02=»RTASK WRITE x ( P* ICABOR INTERTASK ABORT 6 P* COPP COPY SCREEN BUFFER TO PRINTER @ $ P* TABLE OF PRINTERORDERS z P* NL NEW LINE , P* FFDUM SIMULATED FORM FEED " P* FFVAL
0x07c798…07c92c Dummy {f00=0x0027, f01=0x0190, f02=»TER ORDER p , P* FFCHK CHECK IF FF IS VALID " P* PRLINE PRINT LINE B $ P* INIT INIT ROUTINE h & P* TSTPRT TEST HARDWARE ( P* GETTAB GET ORDER INDEX P* @ P************************
0x07c92c…07cac0 Dummy {f00=0x0027, f01=0x0190, f02=» * H P* ENTRY POINTS * J H P* * H P**************************************
0x07cac0…07cc54 (1, 157) Dummy {f00=0x0027, f01=0x0190, f02=» TO PRINTER =2 r P H P******************************************************************* H P* * j H P* EXTERNAL REFERENCES * H P*
0x07cc54…07cde8 Dummy {f00=0x0027, f01=0x0190, f02=»* N P 2 P EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA) 2 P EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9 H $ P EXTRN OPSYS OPEN SYSTEM (DCSNA) ~ P EXTRN OPEN OPEN (DCBSC) ( P EXTRN CONCT CONNECT PASSIVE (DCBSC) , P EXTRN SETTIM SET REQU
0x07cde8…07cf7c Dummy {f00=0x0027, f01=0x0190, f02=»TH WAIT (DCSNA) | , P EXTRN READNW READ WITH NO WAIT (DCSNA) " P EXTRN GETBUF GET BUFFER (PAD) H & P EXTRN RELBUF RELEASE BUFFER (PAD) n ( P EXTRN UNPACK UNPACK DC BUFFER (PAD) ( P EXTRN ECBINI INIT IF ECB:S (DSPSNA) . P EXTRN ICSET SET INTERTA
0x07cf7c…07d110 Dummy {f00=0x0027, f01=0x0190, f02=»US (DCBSC) z P EJECT D P*************************************************************** D P* * h D P* CONDITIONAL ASSEMBLY * D P*
0x07d110…07d2a4 Dummy {f00=0x0027, f01=0x0190, f02=»X:A EQU 0 SNA HANDLING IF:=1 PSNA EQU 0 $ & PX:D EQU 1 NUMBER OF DC LINES (1-2) 6 PNBRLIN EQU 1 ` PX:O EQU 0 TEST MODE IF:=1 t PTEST EQU 0 P EJECT H P******************************************************************* H P*
0x07d2a4…07d438 Dummy {f00=0x0027, f01=0x0190, f02=» * x H P******************************************************************* 4 P P* P* TABLE OF PRINTER TYPES P* PPRTTAB EQU * & P DATA /0004 NUMBER OF PRINTERTYPES P DATA 'TT',0 G
0x07d438…07d5cc Dummy {f00=0x0027, f01=0x0190, f02=»DIFF. PRINTERS t " P* BYTE1= NUMBER OF LINES/PAGE " P* BYTE2= NUMBER OF CHAR./LINE < P* b PPRTLEN DATA /2382 GTP l P DATA /2382 LP P DATA /2382 GP 74 P DATA /2382 COPY 80 P* " P* LINE LENGTHS FROM WCC P*
0x07d5cc…07d760 Dummy {f00=0x0027, f01=0x0190, f02=»2 BUFFER ADDRESS PECBRL EQU 4 REQUESTED LENGTH PECBEL EQU 6 EFFECTIVE LENGTH < PECBRC EQU 8 RETURN CODE ` PECBCW EQU 10 CONTROL WORD P* P* PRINTER MODES P* PLOCAL EQU 0 LOCAL MODE PSHARED EQU 2 SHARED MODE
0x07d760…07d8f4 (1, 158) Dummy {f00=0x0028, f01=0x0190, f02=» r P* $ PNXTCHA EQU /8000 GET NEXT CHAR. " PENDPRT EQU /4000 END PRINTING : $ PNTONLY EQU /2000 NOT ONLY SPACES ` PCRREC EQU /1000 CR RECEIVED P* ( P* RELATIVE POS. IN ECB-BLOCK P* PIC EQU 2 INTERTASK P*
0x07d8f4…07da88 Dummy {f00=0x0028, f01=0x0190, f02=» EJECT P* P* RELATIVE ADDRESSES IN P* TERMINAL WORKBLOCK 8 P* T PBVDU EQU 2 SCREEN BUFFER ^ PWCC EQU BVDU+1950 WCC ~ " PLINCNT EQU WCC+4 LINE COUNTER 2 PDCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER & PPRTID EQU DCLENG
0x07da88…07dc1c Dummy {f00=0x0028, f01=0x0190, f02=» ( PBUFPNT EQU ECBBLK+14 BUFFER POINTER PREGI EQU BUFPNT+2 SAVE AREA 0 $ PPRTMOD EQU REGI+32 PRINTER MODE T $ PECBPRT EQU PRTMOD+4 PRINTER ECB | * PECBICR EQU ECBPRT+6 INTERTASK READ ECB , PECBICW EQU ECBICR+2 INTERTASK WRITE ECB PECBDC
0x07dc1c…07ddb0 Dummy {f00=0x0028, f01=0x0190, f02=»ES IN ~ P* COMMON WORKBLOCK P* ( P IFF TEST=1 2 PTSKTAB EQU 24 DEVICE TABLE F P XIF h P IFT TEST=1 t PTSKTAB EQU 219 P XIF P EJECT H P******************************************************************* H P*
0x07ddb0…07df44 Dummy {f00=0x0028, f01=0x0190, f02=» * P H P* * H P******************************************************************* X PPRINT EQU * P CF A14,INIT INIT ROUTINE P IFT SNA=1 , P CF A14,OPINIT OPEN CONNECTI
0x07df44…07e0d8 Dummy {f00=0x0028, f01=0x0190, f02=»N * P* CHECK ON DC REMOVED PR. 8623, DK * P LDKL A8,20 8 P LKM L P DATA 6 X " P CF A14,CONCT CONNECT PASSIVE h & P CF A14,SETTIM SET REQUEST TIMEOUT P XIF ( P LDK A1,SHARED ALWAYS SHARED IN BSC P ST A1,PRTMOD,A11
0x07e0d8…07e26c Dummy {f00=0x0028, f01=0x0190, f02=»BLK P ADR A7,A11 P LKM P DATA 7 MULTIPLE WAIT , * P CF A14,IOCPL COMPLET IN CURRENT MODE J P LD A1,PRTMOD,A11 x " P ANKL A1,PRTERR PRINTER ERROR? P RB(Z) PRI200 NO P XRS A1,PRTMOD,A11 P RB PRI100 TRY TO FIX IT
0x07e26c…07e400 Dummy {f00=0x0028, f01=0x0190, f02=» * f $ P* IOACT ACTIVATE IN CURRENT MODE $ J P* * L J P********************************************************************* PIOACT EQU * P LDK A4,0
0x07e400…07e594 (1, 159) Dummy {f00=0x0028, f01=0x0190, f02=»QUEST OUTSTANDING ALREADY? z P RF(NZ) IOAC10 YES " P CM MAIN,A11 INDICATE LINE 1 < P CF A14,TSTMES TEST MESSAGE ` P ST A8,ECBBLK+4,A11 PIOAC10 EQU * P IFT NBRLIN=2 P ADK A4,1 ADD MORE WAITS P LD A2,ECBBLK+6,A11 ALREADY?
0x07e594…07e728 Dummy {f00=0x0028, f01=0x0190, f02=» PIOAC20 EQU * P ADK A4,1 P LD A2,ECBBLK+2,A11 ALREADY? . P RF(NZ) IOAC30 YES R " P CF A14,ICPRED READ INTERTASK l P ST A8,ECBBLK+2,A11 PIOAC30 EQU * & P ST A4,ECBBLK,A11 NUMBER OF WAITS P RTN A14 P EJECT J
0x07e728…07e8bc Dummy {f00=0x0028, f01=0x0190, f02=» * X $ P* IOCPL COMPLETE IN CURRENT MODE J P* * > J P********************************************************************* PIOCPL EQU * " P CW A8,ECBBLK+2,A11 INTERT
0x07e8bc…07ea50 Dummy {f00=0x0028, f01=0x0190, f02=» CW A8,ECBBLK+4,A11 DC LINE 1? P IFT NBRLIN=2 & P RF(NE) IOCP20 NO < P XIF V P IFF NBRLIN=2 b P RF(NE) IOCP90 NO FORGET IT x P XIF P CM ECBBLK+4,A11 P CM MAIN,A11 INDICATE LINE 1 P RF IOCP30 P IFT NBRLIN=2
0x07ea50…07ebe4 Dummy {f00=0x0028, f01=0x0190, f02=»NE 2 x P XIF PIOCP30 EQU * " P CF A14,DCPINP TAKE CARE OF DC , PIOCP90 EQU * R P RTN A14 f P EJECT v D P*************************************************************** D P*
0x07ebe4…07ed78 Dummy {f00=0x0028, f01=0x0190, f02=» * D P*************************************************************** PDCPINP EQU * ( P CF A14,ICABOR ABORT LOCAL HARD COPY p " P LDR A7,A7 ALREADY COMPLETED? P RF(Z) DCP100 NO * P CF A14,ICPINP TAKE CARE OF THAT FIRST P
0x07ed78…07ef0c Dummy {f00=0x0028, f01=0x0190, f02=»A11 PDCP150 EQU * P XIF P IFT SNA=1 , P LD A1,ECBRC,A8 OK? > P ANKL A1,/701 OK? Z P RF(NZ) DCP500 NO STOP IT t P XIF P CF A14,GETBUF GET BUFFER P LDR A3,A8 $ P CF A14,READW READ FIRST BUFFER P ANK A1,3
0x07ef0c…07f0a0 Dummy {f00=0x0028, f01=0x0190, f02=» SUR A10,A10 RESET INTERNAL UNPACK STATUS P IFT SNA=1 . =1 2 P ANK A1,2 . =1 J P RF(Z) DCP450 . =1 ` P ORKL A10,LICREC . =1 z PDCP450 EQU * . =1 P XIF . =1 P LD A1,ECBEL,A8 " P ST A1,DCLENG,A11 SAVE LENGTH * P ST A1
0x07f0a0…07f234 (1, 160) Dummy {f00=0x0028, f01=0x0190, f02=»D WITH NO WAIT ~ P XIF ( P CF A14,UNPACK UPDATE SCREEN BUFFER " P LD A1,WCC,A11 N P ANK A1,/8 ANY COPY NEEDED d P RF(Z) DCP500 NO P CF A14,COPP PRINT IT PDCP500 EQU * P IFF SNA=1 P LDK A1,0 " P CF A14,SETSTA SET D
0x07f234…07f3c8 Dummy {f00=0x0028, f01=0x0190, f02=» * D P* ICPINP INTERTASK INPUT * D D P* * D P****************************************************
0x07f3c8…07f55c Dummy {f00=0x0028, f01=0x0190, f02=» WRITE INTERTASK P RTN A14 P EJECT ( F P****************************************************************** 6 F P* * F P* ICPRED INTERTASK READ
0x07f55c…07f6f0 Dummy {f00=0x0028, f01=0x0190, f02=»**************** ^ PICPRED EQU * ! P LD A8,ECBICR,A11 ! , P CF A14,ICSET SET NO TIMEOUT ! F P LDK A1,0 NOT ADDRESSED READ ! j P LDKL A3,BVDU ! P ADR A3,A11 ! P LDKL A2,LBVDU+/20 ! " P CF A14,ICREAD READ INTERTASK ! P RTN A14 ! P
0x07f6f0…07f884 Dummy {f00=0x0028, f01=0x0190, f02=» * ! b H P* ICPWRT WRITE INTERTASK * " H P* * " j H P******************************************************************** " PICPWRT
0x07f884…07fa18 Dummy {f00=0x0028, f01=0x0190, f02=» RF(Z) ICPW90 NOT THERE " P LDKL A3,REGI RETURN CODE # P ADR A3,A11 # B P LDK A2,2 LENGTH # V " P CF A14,ICWRT WRITE INTERTASK # n PICPW90 EQU * # P RTN A14 # P EJECT # B P************************************************************* #
0x07fa18…07fbac Dummy {f00=0x0028, f01=0x0190, f02=» # R B P* * $ B P************************************************************* $ N PICABOR EQU * $ P LDK A7,0 $ P CM ECBBLK+IC,A11 $ P LD A8,ECBICR,A11 $ P LKM $ P DATA 10 $
0x07fbac…07fd40 Dummy {f00=0x0028, f01=0x0190, f02=» * $ v J P* COPP COPY SCREEN BUFFER TO PRINTER * % 4 J P* * % J P********************************************************
0x07fd40…07fed4 (1, 161) Dummy {f00=0x0028, f01=0x0190, f02=»REL. SCREEN BUFFER ADDRESS % P* A5= LINE LENGTH & " P* A6= CURRENT ATTRIBUTE & > P* A8= ECB BUFFER POINTER & ` P* A9= ECB BUFFER INDEX & P* A10= INTERNAL STATUS & P* A11= TASK BLOCK BASE & P* A13= ECB BASE & P* & J P**
0x07fed4…080068 Dummy {f00=0x0028, f01=0x0190, f02=» & P LDK A6,0 RESET ATTRIBUTE ' . P CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS ' * & P CM LINCNT,A11 RESET LINE COUNTER ' P LD A1,WCC,A11 ' P ANK A1,/38 MASK RELEVANT ' P LDR A5,A1 ' P ANK A1,8 START PRINT? ' P RF(Z) COP900 NO FORGET IT
0x080068…0801fc Dummy {f00=0x0028, f01=0x0190, f02=» LD A1,PRTTYP,A11 GET MAX LINE LENGTH ' P LC A5,PRTLEN+1,A1 ( . PCOP100 EQU * ( H P LDKL A3,BVDU ( P ADR A3,A11 ( r P LD A8,ECBBA,A8 ( P CMR A8 RESET CONTROL CHAR. ( P ADKL A8,2 ( P SUR A9,A9 ( P LDK A2,0 ( P LDK A4,0 (
0x0801fc…080390 Dummy {f00=0x0028, f01=0x0190, f02=»? ( | P RF(L) COP400 NO ) P CF A14,PRLINE PRINT LINE ) " P LDR A1,A1 PRINTER ERROR? ) D P RF(NZ) COP900 YES ) f PCOP400 EQU * ) P LCR A2,A3 GET CHAR. ) P ANK A2,/FF ) P RF(Z) COP650 NULL CHAR. ) P CCK A2,/8000 ATTRIBUTE? ) P RF(
0x080390…080524 Dummy {f00=0x0028, f01=0x0190, f02=»YES ) P XRKL A10,CRREC RESET * P RF COP600 * * PCOP550 EQU * * < " P CF A14,GETTAB GET ORDERINDEX * P " P CFR A14,A1 TAKE CARE OF ORDER * v P LDR A1,A1 PRINTER ERROR? * P RF(NZ) COP900 YES * P LDR A1,A10 GET STATUS * P RF(N) COP800 GET
0x080524…0806b8 Dummy {f00=0x0028, f01=0x0190, f02=» XRK A1,/C * P RF(Z) COP650 NONPRINT + , P ORKL A10,NTONLY INIDICATE NOT ONLY NOT + 0 P RF COP700 + ` PCOP650 EQU * + r " P LDK A2,/20 REPLACE WITH SPACE + PCOP700 EQU * + P SCR A2,A8 + P ADKL A9,1 + P ADKL A8,1 + PCOP800 EQU * +
0x0806b8…08084c Dummy {f00=0x0028, f01=0x0190, f02=»RINT? + r P RF(Z) COP900 NO , " P CF A14,PRLINE PRINT LAST LINE , & P ANKL A10,ENDPRT END MESS.? , L P RF(Z) COP900 NO STOP IT , p ( P ORKL A10,NTONLY INDICATE PRINTABLE , " P CF A14,PRLINE EXTRA LINE FEED , PCOP900 EQU * , P LDR A1,A1 PRINTER
0x08084c…0809e0 Dummy {f00=0x0028, f01=0x0190, f02=» P EJECT - L P************************************************************************ - P* - b P* TABLE FOR PRINTERORDERS - l P* - L P************************************************************************ - PPRTORD EQU * - & P DATA /0004
0x0809e0…080b74 (1, 162) Dummy {f00=0x0029, f01=0x0190, f02=»CR,CR,CR,CR CARR. RETURN - ( P DATA /1919,EM,EM,EM,EM END MESSAGE . " P DATA INVAL INVALID ORDER CODE . L P EJECT . r P P**************************************************************************** . P P*
0x080b74…080d08 Dummy {f00=0x0029, f01=0x0190, f02=» * . | P P**************************************************************************** / @ PNL EQU * / , P CF A14,PRLINE PRINT LINE AFTER NEW LINE / * P ORKL A10,NXTCHA+NTONLY GET NEXT CHAR. / P RTN A
0x080d08…080e9c Dummy {f00=0x0029, f01=0x0190, f02=» * / n J P* FFDUM SIMULATED FORM FEED * 0 , J P* * 0 z J P****************************************************************
0x080e9c…081030 Dummy {f00=0x0029, f01=0x0190, f02=» LDK A7,0 RESET 0 & P LD A1,PRTTYP,A11 TYPE OF PRINTER 1 P LC A7,PRTLEN,A1 PAGE SIZE 1 B PFFD100 EQU * 1 d P CW A7,LINCNT,A11 NEW PAGE? 1 x " P RF(L) FFD200 YES BUT TO MANY 1 P RF(E) FFD300 YES FINISHED 1 P ORKL A10,NTONLY 1 P ST A7,REGI,
0x081030…0811c4 Dummy {f00=0x0029, f01=0x018e, f02=» YES 1 P RB FFD100 2 PFFD200 EQU * 2 P NGR A1,A7 2 2 * P ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE 2 D P RB FFD100 2 r PFFD300 EQU * 2 P CM LINCNT,A11 TOP OF PAGE 2 & P LDK A2,/20 REPLACE FF WITH SPACE 2 PFFD400 EQU * 2 P LDK A1,0 RETURN
0x0811c4…081358 Dummy {f00=0x0029, f01=0x018e, f02=» 2 H J P* * 3 J P* FFVAL FORM FEED * 3 V J P* * 3 J P**********************
0x081358…0814ec Dummy {f00=0x0029, f01=0x0190, f02=» 3 | P RF(NZ) FFV200 NO 4 P LDK A1,/0C 4 " ( P SC A1,-1,A8 STORE FF CONTROL CHAR. 4 6 & P LDK A2,/20 REPLACE FF WITH SPACE 4 b P CM LINCNT,A11 TOP OF PAGE 4 PFFV200 EQU * 4 P LDK A1,0 RETURN CODE 4 P RTN A14 4 P EJECT 4 J P**********
0x0814ec…081680 Dummy {f00=0x0029, f01=0x0190, f02=» * 4 L J P* CR CARRIAGE RETURN * 5 J P* * 5 X J P********************************************************************** 5 PCR EQU * 5 P LDR
0x081680…081814 (1, 163) Dummy {f00=0x0029, f01=0x0190, f02=»0 FORMATTED? 5 P RF(NZ) CR100 NO 6 & P ORKL A10,NTONLY+CRREC CR RECEIVED 6 , PCR100 EQU * 6 V " P LDK A2,/20 REPLACE WITH SPACE 6 j P LDK A1,0 RETURN CODE 6 P RTN A14 6 P EJECT 6 J P************************************************************
0x081814…0819a8 Dummy {f00=0x0029, f01=0x0190, f02=» * 6 f H P* * 7 " H P******************************************************************** 7 n PEM EQU * 7 " P ORKL A10,ENDPRT END PRINTING 7 P LDK A1,0 RETURN CODE 7
0x0819a8…081b3c Dummy {f00=0x0029, f01=0x0190, f02=» * 7 v F P* INVAL INVALID PRINTER ORDER * 8 0 F P* * 8 z F P****************************************************************** 8
0x081b3c…081cd0 Dummy {f00=0x0029, f01=0x0190, f02=» 8 P EJECT 9 F P***************************************************************** 9 F P* * 9 ` F P* FFCHK CHECK IF FF IS VALID * 9 F P*
0x081cd0…081e64 Dummy {f00=0x0029, f01=0x0190, f02=»U * 9 P LD A1,WCC,A11 : P ANK A1,/30 : " P XRK A1,/30 FORMATTED? : 6 0 P RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY : T P LD A1,WCC,A11 : P ANK A1,/40 LOCAL HARD COPY? : & P RF(Z) FFCH20 YES, FF NOT ALLOWED : PFFCH10 EQU * : P LDR A9,
0x081e64…081ff8 Dummy {f00=0x0029, f01=0x0190, f02=» EQU * : " P LDK A2,/20 REPLACE WITH SPACE ; P LDK A1,1 RETURN CODE ; 4 P RF FFCH40 ; R PFFCH30 EQU * ; d P XRKL A10,CRREC RESET ; x P LDR A9,A9 EMPTY LINE ; P RF(Z) FFCH35 YES ; P CF A14,PRLINE PRINT LINE ; PFFCH35 EQU * ; P LDK
0x081ff8…08218c Dummy {f00=0x0029, f01=0x0190, f02=»************************************** ; v D P* * < . D P* PRLINE PRINT LINE * < v D P* * < D P**
0x08218c…082320 Dummy {f00=0x0029, f01=0x0190, f02=» ANKL A1,NTONLY ONLY RUBB.? < P RF(NZ) PRL050 NO = $ P LD A1,WCC,A11 = > P LDR A2,A1 = T P ANK A1,/30 = f P XRK A1,/30 HRADCOPY? = z P RF(NZ) PRL200 NO = P ANK A2,/40 HARDCOPY????? = P RF(NZ) PRL200 NO = PPRL050 EQU * = P XRKL
0x082320…0824b4 (1, 164) Dummy {f00=0x0029, f01=0x0190, f02=»R OF DELAYS = PPRL100 EQU * > P LDKL A8,1 WAIT FOR A WHILE > ( P LKM > L P DATA 6 > X P LD A8,ECBPRT,A11 > h P LDR* A2,A8 PRINT COMPL.? > P RF(N) PRL150 YES > P SUK A1,1 MORE TO WAIT FOR? > P RB(NZ) PRL100 YES > P LKM > P
0x0824b4…082648 Dummy {f00=0x0029, f01=0x0190, f02=» P LKM ? P DATA 2 RESYNCHRONIZE ? P IM LINCNT,A11 ANOTHER LINE ? 0 P LD A1,ECBRC,A8 OK? ? T P RF(NZ) PRL300 NO ? p PPRL200 EQU * ? & P LD A8,ECBBA,A8 GET BUFFER ADDRESS ? P CMR A8 RESET CONTROL CHAR. ? P SUR A9,A9 ? P ADKL A8,2
0x082648…0827dc Dummy {f00=0x0029, f01=0x0190, f02=»******************* ? ` H P* * @ H P* INIT INIT ROUTINE * @ h H P* * @ H P********
0x0827dc…082970 Dummy {f00=0x0029, f01=0x0190, f02=»NIT OF ECB:S @ P LCR A2,A1 A P SLL A2,8 A & P LC A2,+1,A1 A 8 & P ST A2,PRTID,A11 SAVE WHOLE TASKID A L 2 P LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX A v " P LD A7,PRTTAB NUMBER OF TYPES A , P LDKL A1,PRTTAB+2 START OF PRINTER TABLE A PINI100
0x082970…082b04 Dummy {f00=0x0029, f01=0x0190, f02=»00 NO A P LDKL A1,* B P ST A1,REGI,A11 B P LKM B 8 P DATA 3 FORGET IT B D PINI200 EQU * B ^ P LD A1,+2,A1 B r ( P ST A1,PRTTYP,A11 SAVE PRINTER TYPE B P RTN A14 B P EJECT B F P********************************************************
0x082b04…082c98 Dummy {f00=0x0029, f01=0x0190, f02=» * B d F P* * C F P***************************************************************** C h PTSTPRT EQU * C P LDK A2,0 C P LD A8,ECBPRT,A11 C P LDK A7,/80 TEST STATU
0x082c98…082e2c Dummy {f00=0x0029, f01=0x0190, f02=» LD A2,PRTID,A11 NO INDICATE NOT OP. IN DEVICE TABLE C P ANK A2,/FF D < P SUK A2,/30 D P P SLL A2,2 D d P LD A3,+6,A13 D v P LDK A1,TSKTAB D P ADR A3,A1 D P ADR A3,A2 D P LDK A1,1 D " P SC A1,+3,A3 INDICATE NOT OP. D P LDR A1,A8
0x082e2c…082fc0 Dummy {f00=0x0029, f01=0x0190, f02=»80 EQU * D P LDR A2,A2 NOT OP. ONCE? E P RF(Z) TSTP90 NO E 0 P SC A1,+3,A3 RESET STATUS E H PTSTP90 EQU * E j P RTN A14 E ~ P EJECT E H P******************************************************************* E H P*
0x082fc0…083154 (1, 165) Dummy {f00=0x0029, f01=0x0190, f02=» * E H P******************************************************************* F < PGETTAB EQU * F . P LD A7,PRTORD NUMBER OF VALID ORDER CODES F & P LDKL A1,PRTORD+2 ORDERTABLE BASE F PGETT10 EQU * F
0x083154…0832e8 Dummy {f00=0x0029, f01=0x40fc, f02=» SUK A7,1 ORDER FOUND? F P RF(Z) GETT30 NO INVALID G P RB GETT10 TRY AGAIN G > PGETT20 EQU * G Z P ADK A1,2 G n P LD A2,PRTTYP,A11 G P ADR A1,A2 G PGETT30 EQU * G P LDR* A1,A1 G P RTN A14 G P G P END G @ G 10 EQU * F
0x0832e8…08347c Dummy {f00=0x0029, f01=0x2008, f02=» H A1,TSKTAB ADR A3,A1 ADR A3,A2 0 LDK A1,1 B " SC A1,+2,A3 INDICATE NOT OP. T LKM z DATA 0 SWITCH TASK $ LDK A2,1 INDICATE ONCE NOT OP. RB TSTP10 TSTP80 EQU * LDR A2,A2 NOT OP. ONC
0x08347c…083610 Dummy {f00=0x0029, f01=0x0190, f02=» P RB IDEN50 PIDEN80 EQU * " P LCR A1,A3 GET PRINTER TO SAVE . P SLL A1,8 T P LC A1,+1,A3 f ( P ST A1,PRTID,A11 NEW HARDCOPY TASKID z PIDEN90 EQU * P RTN A14 P EJECT B P************************************************
0x083610…0837a4 Dummy {f00=0x0029, f01=0x0190, f02=» * d B P* * B P************************************************************* ` P* REGISTERS P* P* A2= KEYLOCK VALUE P* A11= CREDIT WORK AREA P* A13= R
0x0837a4…083938 Dummy {f00=0x0029, f01=0x018e, f02=» PKEYL EQU * * P SUK A2,LKLKEY GET NEG KEY LOCK VALUE P LD A3,KEYS,A11 OLD STATUS D P LDK A4,/10 f PKEYL10 EQU * z P SRL A4,1 P ADK A2,2 1 = OFF,0 = ON P RB(N) KEYL10 P ANR A3,A4 CHECK OLD KEY POS P RF(NZ) KEYL20
0x083938…083acc Dummy {f00=0x0029, f01=0x018e, f02=» P LDR A2,A2 $ P RF(Z) KEYL99 NOW ON, NO CHANGE PKEYL30 EQU * CHANGE > P LD A3,KEYS,A11 Z P XRR A3,A4 CHANGE STATUS r $ P ST A3,KEYS,A11 STORE NEW STATUS P* P* KEYLOCK STATUS CHANGED J P* A3 = NEW STATUS, RIGHTMOST BIT =
0x083acc…083c60 Dummy {f00=0x0029, f01=0x0190, f02=» * P* INSERT USER ROUTINE BELOW THIS LINE P* 6 PKEYL99 EQU * @ P RTN A14 T P XIF d P EJECT p > P********************************************************** ~ P* P* TESTM TEST MODE P* > P**************************
0x083c60…083df4 (1, 166) Opaque[0x194]
0x083df4…083f88 # DirEnt {nam=»PAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0540, f03=0x0000}
0x083df4…083f88 IdxSect {
0x083df4…083f88 f00 = 0x002a // 0x83df4 @0x0
0x083df4…083f88 f01 = 0x0022 // 0x83df6 @0x2
0x083df4…083f88 gno = [ // 0x83df8 @0x4
0x083df4…083f88 [0x00]: C0x002a.0x0.0
0x083df4…083f88 [0x01]: C0x002a.0x1.0
0x083df4…083f88 [0x02]: C0x002a.0x2.0
0x083df4…083f88 [0x03]: C0x002a.0x3.0
0x083df4…083f88 [0x04]: C0x002b.0x0.0
0x083df4…083f88 [0x05]: C0x002b.0x1.0
0x083df4…083f88 [0x06]: C0x002b.0x2.0
0x083df4…083f88 [0x07]: C0x002b.0x3.0
0x083df4…083f88 [0x08]: C0x002c.0x0.0
0x083df4…083f88 [0x09]: C0x002c.0x1.0
0x083df4…083f88 [0x0a]: C0x002c.0x2.0
0x083df4…083f88 [0x0b]: C0x002c.0x3.0
0x083df4…083f88 [0x0c]: C0x002d.0x0.0
0x083df4…083f88 [0x0d]: C0x002d.0x1.0
0x083df4…083f88 [0x0e]: C0x002d.0x2.0
0x083df4…083f88 [0x0f]: C0x002d.0x3.0
0x083df4…083f88 [0x10]: C0x002e.0x0.0
0x083df4…083f88 ]
0x083df4…083f88 }
0x083f88…08411c Dummy {f00=0x002a, f01=0x0190, f02=» 0 P IDENT PAD REL 11.0 DK 81-10-11 870150541100 P 8 P =4 COPY TO PRINTER @ P 81-05-06 ^ P =3, MISSING ITEM r P 81-01-26 P =2, SAVE REG. P 81-01-26 P =1, RA ON EUQ ADDRESS P 81-01-26 B P******
0x08411c…0842b0 Dummy {f00=0x002a, f01=0x0190, f02=» MODULE PAD * B P* MODULE HANDLING THE PACKING AND * D B P* UNPACKING OF THE DCBUFFER. THE VDU * B P* BUFFER IS UPDATED
0x0842b0…084444 Dummy {f00=0x002a, f01=0x0190, f02=» * B P************************************************************* P EJECT X F P***************************************************************** f P* P* LIST OF ROUTINES P* @ P* PACK PACK MODIFIED VDU-FIEL
0x084444…0845d8 Dummy {f00=0x002a, f01=0x0190, f02=» UNPCOM UNPACK COMMANDS & P* UNPORD UNPACK ORDERS & $ P* ORDTAB ORDER TABLE P $ P* SF START FIELD x * P* SBA SET BUFFER ADDRESS & P* IC INSERT CURSOR $ P* PT
0x0845d8…08476c Dummy {f00=0x002a, f01=0x018e, f02=»R < /20 BUT NOT ORDERS 6 P* PACKSY PACK DC-BUFFER IN SYSTEM MODE 8 P* UNPSYS UNPACK DC-BUFFER IN SYSTEM MODE X 2 P* GETNXT GET AND CHECK NEXT BUFFER 8 P* PUTCHA PUT CHAR. IN DC-BUFFER AND WRITE , P*
0x08476c…084900 Dummy {f00=0x002a, f01=0x018e, f02=» f : P* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER 8 P* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES F 2 P* P1WCC PROCESS WCC BEFORE UPDATE 6 P* P2WCC TAKE CARE OF WCC AFTER UPDATE 8 P* SAVE SA
0x084900…084a94 (1, 167) Dummy {f00=0x002a, f01=0x0190, f02=» n " P* GETBUF GET BUFFER & P* RELBUF RELEASE BUFFER . P* X F P****************************************************************** b P EJECT B P************************************************************* B P*
0x084a94…084c28 Dummy {f00=0x002a, f01=0x0190, f02=» * B P************************************************************* B P 0 P ENTRY PACK PACK MOD. FIELDS INTO DC BUFFER 2 P ENTRY UNPACK UNPACK DC BUFFER AND UPDATE VDU 2 P ENTRY UNPSYS
0x084c28…084dbc Dummy {f00=0x002a, f01=0x0190, f02=»D CODE IN DC BUFFER | 2 P ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER 0 P ENTRY PACKSY PACK DC BUFFER IN SYSTEM MODE R P ENTRY SAVE1 SAVE REGISTERS " P ENTRY REST1 RESTORE REGISTERS P P EJECT 8 P**********************************
0x084dbc…084f50 Dummy {f00=0x002a, f01=0x0190, f02=»* ^ 8 P* * 8 P*************************************************** F P 0 P EXTRN CONEBC CONVERT ASCII-EBCDIC (CONVER) 0 P EXTRN CONASC CONVERT EBCDIC-ASCII (CONVER) * P EXTRN ERASE ERASE ENT
0x084f50…0850e4 Dummy {f00=0x002a, f01=0x0190, f02=»XTRN CONATT CONVERT ATTRIBUTE (CONVER) . P EXTRN SCRINF GET SCREEN INFORMATION (VDU) 0 8 P EXTRN ERASUP ERASE UNPROTECTED ENTIRE SCREEN (VDU) b & P EXTRN COPY LOCAL HARDCOPY (KEYB) * P EXTRN SOUND SOUND ALARM ON VDU (VDU) 2 P EXTRN ATMASB SEAR
0x0850e4…085278 Dummy {f00=0x002a, f01=0x0190, f02=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) ( P EXTRN LMP4ON INHIBIT LAMP ON (KEYB) 4 2 P EXTRN READNW READ WITH NO WAIT (DCSNA,DCBSC) ` * P EXTRN WAIT SYNCHRONIZE (DCSNA,DCBSC) 0 P EXTRN DCWRIT WRITE DC BUFFER (DCSNA,DCBSC) 0 P EXTRN DISMOD DI
0x085278…08540c Dummy {f00=0x002a, f01=0x0190, f02=» LINE WRAP ROUTINE (VDU) 2 P EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) , P EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU) V & P EXTRN ERROR ERROR INCATOR (KEYB) 2 P EXTRN MATCH MATCH ADDRESS AND TASKID (DSPBSC) * P EXTRN ICSET INTERTASK TIMEOUT (KE
0x08540c…0855a0 Dummy {f00=0x002a, f01=0x0190, f02=»********************************* ~ 8 P* * * 8 P* CONDITIONAL ASSEMBLY PARAMETERS * f 8 P* * 8 P******************************************
0x0855a0…085734 (1, 168) Dummy {f00=0x002a, f01=0x0190, f02=» * PX:L EQU 1000 MAX BUFFER SIZE IN WORDS PBUFFL EQU 1150 6 * PX:M EQU 0 COPY COMMAND INCLUDED IF:=1 L PCOPCMD EQU 1 z PX:N EQU 1 EBCDIC CHAR IF:=1 PEBCDIC EQU 1 * PX:Z EQU 1 =0,WHOLE,=1 CHAIN,=2 SEGMENT PDISHOW EQU X:Z
0x085734…0858c8 Dummy {f00=0x002a, f01=0x0190, f02=» * ` & P* DECLARATION OF DATA AND EQUATES D P* * B D P*************************************************************** P P* $ P* EQUATES FOR ECB HANDLING
0x0858c8…085a5c Dummy {f00=0x002a, f01=0x0190, f02=»RN CODE PECBCW EQU 10 CONTROL WORD P* 2 P* INTERNAL STATUS < P* V , PLICREC EQU /2000 LAST IN CHAIN RECEIVED ` " PTHROWB EQU /0800 THROW BUFFERS PNEWCH EQU /0400 NEW CHAIN ( PATTREC EQU /0002 ATTRIBUTE RECEIVED & PPTOR
0x085a5c…085bf0 Dummy {f00=0x002a, f01=0x0190, f02=»SOP EQU 2 SYSTEM MODE PMYJOB EQU 4 MY JOB MODE P XIF > P* J P* TASK IDENTIFICATION CODE T P* v PVDUCOD EQU 'VV' VDU KB TASK P* P* SPECIAL CHARACTERS P* PNULL EQU 0 NULL CHAR. PSBACH EQU /11 SBA CHAR
0x085bf0…085d84 Dummy {f00=0x002a, f01=0x018e, f02=»80 LINE LENGTH P* P* BUFFER LINK LENGTH P* D PLINK EQU BUFFL+BUFFL+2 N P EJECT l P* z P* RELATIVE ADDRESSES IN P* TERMINAL WORKBLOCK P* $ PTCT01 EQU 0 TASK IDENTIFICATION " PBVDU EQU TCT01+2 SCREE
0x085d84…085f18 Dummy {f00=0x002a, f01=0x0190, f02=» | & PWCC EQU CURATT+2 WCC/CCC CHARACTER & PKBINH EQU WCC+2 INHIBIT INDICATOR 2 * PDCLENG EQU KBINH+4 LENGTH OF DC BUFFER 2 PCURPOS EQU DCLENG+30 CURSOR POS IN SYSTEM MODE & PBUFPNT EQU CURPOS+2 BUFFER ADDRESS $ PREGI EQU BUFPNT+2 WORK REGISTE
0x085f18…0860ac Dummy {f00=0x002a, f01=0x0190, f02=»2 SNA MODE ~ 0 PECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 P EJECT F @ P************************************************************ T @ P* * B P* PACK PACK MODIFIED VDU-FIELDS
0x0860ac…086240 Dummy {f00=0x002a, f01=0x0190, f02=»********************* h P* REGISTERS P* 2 P* A2= CHAR. < P* A3= ADDRESS IN VDU-BUFFER P P* A4= REL. CURSOR POS. t P* A5= REL. ATTRIBUTE POS. P* A6= ATTRIBUTE CHAR P* A8= ADDRESS IN DC-BUFFER P* A9= DC-BUFFER INDEX
0x086240…0863d4 (1, 169) Dummy {f00=0x002a, f01=0x0190, f02=»************************************************ PPACK EQU * 8 * P CF A14,SCRINF GET SCREEN INFORMATION J P LDK A4,0 FIRST SCREEN POS. x P LDKL A3,BVDU P ADR A3,A11 P LDR A10,A4 INITIATE ADDRESS ( P CWK A5,LBVDU+1 UNFORMATTED SC
0x0863d4…086568 Dummy {f00=0x002a, f01=0x0190, f02=»ES P ADK A3,1 P ADK A4,1 P RB PACK10 . PPACK15 EQU * @ P LDR A10,A4 START ADDRESS T P RF PACK30 v PPACK20 EQU * & P CF A14,WRAP CHECK IF WRAP AROUND P CWR A10,A4 ALL SCANNED? P RF(E) PACK80 YES PPACK30 E
0x086568…0866fc Dummy {f00=0x002a, f01=0x0190, f02=» A2,1 MODIFIED FIELD? P RF(NZ) PACK50 YES P ADK A3,1 8 P ADK A4,1 J P RB PACK20 PPACK50 EQU * n " P LDK A2,SBACH SBA TO DC-BUFFER P LDKL A1,/8000 INDICATE SBA & P CF A14,PUTCHA PUT CHAR. IN BUFFER P LDR A1,A1 TRANSMI
0x0866fc…086890 Dummy {f00=0x002a, f01=0x0190, f02=»A14,WRAP CHECK IF WRAP AROUND P CWR A10,A4 ALL SCANNED? & P RF(E) PACK80 YES F PPACK70 EQU * ` P LCR A2,A3 GET CHAR. t P CCK A2,/8000 ATTRIBUTE? P RB(NL) PACK20 YES P CWK A2,NULL NULL CHAR? " P RF(E) PACK75 YES,DON'T STORE
0x086890…086a24 Dummy {f00=0x002a, f01=0x0190, f02=» A3,1 P ADK A4,1 P RB PACK60 PPACK80 EQU * 2 $ P LDK A1,0 INDICATE LAST IN CHAIN F " P CF A14,DCWRIT WRITE DC BUFFER n PPACK90 EQU * " P LDR A8,A12 BUFFER TO RELEASE " P CF A14,RELBUF RELEASE BUFFER P RTN A14 P EJE
0x086a24…086bb8 Dummy {f00=0x002a, f01=0x0190, f02=» * V @ P* UNPACK UNPACK DC-BUFFER AND UPDATE VDU * @ P* * N @ P************************************************************ P* REGISTERS P* P* A2= CHAR. P
0x086bb8…086d4c Dummy {f00=0x002a, f01=0x0190, f02=» P* A8= ADDRESS IN DC-BUFFER P* A9= DC-BUFFER INDEX & P* A10= INDICATOR D P* A11= CREDIT WORK AREA P* A12= RESERVED | P* A13= RESERVED P* < P******************************************************** PUNPACK EQU *
0x086d4c…086ee0 Dummy {f00=0x002a, f01=0x0190, f02=»P050 YES " P CF A14,LMP4ON INHIBIT LAMP ON PUNP050 EQU * 6 * P CF A14,SCRINF GET SCREEN INFORMATION J P LDR A6,A11 x P LDK A5,LLINE * P CF A14,LINE CHECK WRAP AND LINE FLAG P SUR A9,A9 ( P LD A8,BUFPNT,A11 GET BUFFER ADDRESS
0x086ee0…087074 (1, 170) Dummy {f00=0x002b, f01=0x0190, f02=»THING LEFT? P RF(NZ) UNP200 NO . P LD A1,UNPMOD,A11 GET ADDRESS TO START AT . P CFI A14,RETTAB,A1 RESTART ` P LDR A1,A1 PROCESS OKEY? P RB(Z) UNP100 YES P RF UNP300 PUNP200 EQU * P IFT SNA=1 " P CF A14,GETNXT GET N
0x087074…087208 Dummy {f00=0x002b, f01=0x0190, f02=» P LDR A1,A4 . P CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS P IFT SNA=1 H $ P ANKL A10,THROWB THROW BUFFERS? Z P RF(Z) UNP400 NO P CF A14,THRBUF THROW BUFFERS P RF UNP600 PUNP400 EQU * P IFF DISHOW=2 P LC A1,TCT01,A
0x087208…08739c Dummy {f00=0x002b, f01=0x0190, f02=» * P CF A14,P2WCC CHECK IT A LAST TIME =4 & P LDR A8,A12 GET BUFFER TO RELEASE 6 " P CF A14,RELBUF RELEASE BUFFER ` PUNP600 EQU * P RTN A14 P EJECT J P********************************************************************** J P*
0x08739c…087530 Dummy {f00=0x002b, f01=0x0190, f02=» * T J P* * ! J P********************************************************************** ! ` P ! PICOMND EQU 0 ! PICOMN1 EQU ICOMND+2 ! P IFT COPCMD=1 ! PICOCOP EQU I
0x087530…0876c4 Dummy {f00=0x002b, f01=0x0190, f02=»2 ! ~ PIOSFAT EQU IORDER+2 " PIOSBA1 EQU IOSFAT+2 " & PIOSBA2 EQU IOSBA1+2 " B PIORAA1 EQU IOSBA2+2 " ^ PIORAA2 EQU IORAA1+2 " z PIORACH EQU IORAA2+2 " PIOEUA1 EQU IORACH+2 " PIOEUA2 EQU IOEUA1+2 " P EJECT " J P****************
0x0876c4…087858 Dummy {f00=0x002b, f01=0x0190, f02=» J P* RETURN ADDRESSES AFTER GET CHARACTER * # J P* * # R J P********************************************************************* # PRETTAB EQU * # & P DATA
0x087858…0879ec Dummy {f00=0x002b, f01=0x0190, f02=»DEVICE # v P XIF $ P DATA UNC600 PROCESS WCC $ * P DATA UNPORD PROCESS ORDERS AND CHAR. $ : " P DATA SF100 PROCESS ATTRIBUTE $ h , P DATA SBA100 PROCESS FIRST ADDRESS BYTE $ , P DATA SBA200 PROCESS SECOND ADDRESS BYTE $ * P DATA RA100 PROCESS FIRST
0x0879ec…087b80 Dummy {f00=0x002b, f01=0x018e, f02=»ST ADDRESS BYTE $ x , P DATA EUA200 PROCESS FIRST ADDRESS BYTE % P EJECT % H L P*********************************************************************** % V L P* * % L P* UNPCOM
0x087b80…087d14 (1, 171) Dummy {f00=0x002b, f01=0x0190, f02=» % F L P*********************************************************************** & P* REGISTERS & X P* & l P* A2= CHAR. & v P* A3= ADDRESS IN VDU-BUFFER & P* A4= REL. CURSOR ADDRESS & P* A5= LAST IN ROW REL POS & $ P* A6= INTERNAL LINE FL
0x087d14…087ea8 Dummy {f00=0x002b, f01=0x0190, f02=» RESERVED & P* A13= RESERVED ' P* ' * L P************************************************************************ ' 4 ( PUNPCOM EQU * ENTRY LABEL FROM RETTAB ' P IFF SNA=1 ' $ P LDK A1,ICOMN1 WHERE TO CONTINUE ' P ST A1,UNPMOD,A11 ' P LDK
0x087ea8…08803c Dummy {f00=0x002b, f01=0x0190, f02=» XIF ' PUNC100 EQU * ( P CWK A2,/31 WRITE? ( P RF(E) UNC500 YES ( : P CWK A2,/35 ERASE AND WITE? ( T P RF(E) UNC200 YES ( x & P CWK A2,/3F ERASE ALL UNPROTECTED? ( P RF(E) UNC300 YES ( P IFT COPCMD=1 ( P CWK A2,/37 COPY COMMAND? (
0x08803c…0881d0 Dummy {f00=0x002b, f01=0x0190, f02=»4,MATCH GET TASKID ( P LDR A1,A1 OK? ) P RF(NZ) UNC175 NO ) 0 6 P LDKL A1,/8000 RETURN CODE TO INDICATE COPY COMND. ) J P ST A1,REGI,A11 ) P LD A8,ECBICW,A11 ) P CF A14,ICSET SET TIMEOUT ) P LDR A1,A2 TASK TO CALL ) P LDK A2,2 LENGTH
0x0881d0…088364 Dummy {f00=0x002b, f01=0x018e, f02=»HROW THE REST ) ~ P LDK A1,1 INDICATE ERROR * P RF UNC900 INVALID COMMAND * 6 PUNC200 EQU * * X P ST A8,REGI,A11 * l & P CF A14,ERASE ERASE ENTIRE SCREEN * P LD A8,REGI,A11 * P LDR A6,A11 * P LDK A5,LLINE * & P LDK A4,0 INITIATE BUFFE
0x088364…0884f8 Dummy {f00=0x002b, f01=0x0190, f02=» P LDK A1,1 INDICATE ERROR + P RF UNC900 + $ PUNC500 EQU * + 6 P LDK A1,ICOWCC GET INDEX + J P ST A1,UNPMOD,A11 + j P LDK A1,0 + P RF UNC900 + ( PUNC600 EQU * ENTRY LABEL FROM RETTAB + , P CF A14,P1WCC PROCESS WCC BEFORE UPDATE + P LDR
0x0884f8…08868c Dummy {f00=0x002b, f01=0x0190, f02=»E NEXT CALL + z PUNC800 EQU * , P ST A1,UNPMOD,A11 , ( P LDK A1,0 , B PUNC900 EQU * , T P RTN A14 , h P EJECT , x > P********************************************************** , > P* * , >
0x08868c…088820 Dummy {f00=0x002b, f01=0x0190, f02=»******************************************************** , P* REGISTERS - @ P* - T P* A2= CHAR. - ^ P* A3= POINTER IN VDU BUFFER - r P* A4= REL. CURSOR POS. - P* A5= LAST IN ROW REL POS - $ P* A6= INTERNAL LINE FLAG ADDRESS - P* A8= RESE
0x088820…0889b4 (1, 172) Dummy {f00=0x002b, f01=0x018e, f02=» > P********************************************************** . ( PUNPORD EQU * ENTRY LABEL FROM RETTAB . F P CWK A2,/20 ORDER? . r P RF(L) UNO100 YES . * P XRKL A10,PTORD INDICATE FOR PT ORDER . P CWR A5,A4 NEW LINE? . P RF(G) UNO050 NO . P
0x0889b4…088b48 Dummy {f00=0x002b, f01=0x0190, f02=» P SC A1,LINFLG,A6 / P ADK A4,1 / P ADK A3,1 / . P LDK A1,0 / @ P RF UNO200 / R PUNO100 EQU * / d $ P LC A1,CONORD,A2 GET ORDER INDEX / x * P CFI A14,ORDTAB,A1 TAKE CARE OF ORDER / PUNO200 EQU * / P RTN A14 / P EJECT / B P********
0x088b48…088cdc Dummy {f00=0x002b, f01=0x0190, f02=» ORDTAB ORDER TABLE * / B P* * 0 B B P************************************************************* 0 PORDTAB EQU * 0 P DATA INVAL INVALID CHAR. 0 P DAT
0x088cdc…088e70 Dummy {f00=0x002b, f01=0x0190, f02=»SS 0 x * P DATA EUA ERASE UNPROTECTED TO ADDRESS 1 P DATA ESC ESCAPE 1 8 P DATA NULCHA NULL CHAR. 1 P P DATA NL NEW LINE 1 p P DATA FF FORM FEED 1 P DATA EM END MESSAGE 1 P DATA CR CARRIAGE RETURN 1 P EJECT 1 @ P**************************
0x088e70…089004 Dummy {f00=0x002b, f01=0x0190, f02=»ELD * 1 v @ P* * 2 * @ P*********************************************************** 2 n P* REGISTERS 2 P* 2 P* A1= RETURN CODE 2 P* A2= RESERVED 2 P* A3= PO
0x089004…089198 Dummy {f00=0x002b, f01=0x0190, f02=»FER INDEX 2 P* A10= INDICATOR 3 P* A11= CREDIT WORK AREA 3 * P* A12= RESERVED 3 J P* A13= RESERVED 3 b P* 3 z @ P************************************************************ 3 PSF EQU * 3 & P LDK A1,IOSFAT INDICATE NEXT CALL 3 P ST A1
0x089198…08932c Dummy {f00=0x002b, f01=0x0190, f02=»MOD,A11 3 P LC A2,CONATT,A2 IN EBCDIC 4 P ORK A2,/80 ATTR. BIT 4 2 P CM CURATT,A11 4 P P ORKL A10,ATTREC+PTORD 4 f P CF A14,LINWRP CHECK WRAP 4 P LC A1,LINFLG,A6 4 P ANK A1,2 LINE IN FIELD? 4 P RF(Z) SF600 NO 4 . P CF A14,LINATT IND
0x08932c…0894c0 Dummy {f00=0x002b, f01=0x0190, f02=»DK A3,1 4 P ADK A4,1 5 PSF900 EQU * 5 " P LDK A1,0 5 6 P RTN A14 5 H P EJECT 5 X @ P*********************************************************** 5 f @ P* * 5 @ P* SBA SET BUF
0x0894c0…089654 (1, 173) Dummy {f00=0x002b, f01=0x0190, f02=»********************************* 5 v P* REGISTERS 6 * P* 6 > P* A1= RETURN CODE 6 H P* A2= CHAR. 6 b P* A3= RESERVED 6 v P* A4= RESERVED 6 P* A5= RESERVED 6 P* A6= RESERVED 6 P* A8= RESERVED 6 P* A9= RESERVED 6 P* A10= INDICAT
0x089654…0897e8 Dummy {f00=0x002b, f01=0x0190, f02=»*********************** 6 l PSBA EQU * 7 P LDK A1,IOSBA1 NEXT LABEL 7 2 P ST A1,UNPMOD,A11 7 T P LDK A1,0 7 n P RF SBA900 FIRST BYTE 7 ( PSBA100 EQU * ENTRY LABEL FROM RETTAB 7 P LC A7,CONATT,A2 CONVERT 7 P ANK A7,/3F 7 P SLL A7,6
0x0897e8…08997c Dummy {f00=0x002b, f01=0x0190, f02=»AB 7 n P LC A2,CONATT,A2 8 P ANK A2,/3F 8 " P ORR A7,A2 8 6 P LDK A1,IORDER NEXT LABEL 8 H P ST A1,UNPMOD,A11 8 j " P CWK A7,LBVDU ILLEGAL ADDRESS? 8 P RF(NL) SBA800 YES 8 P LDR A3,A7 8 P LDR A4,A3 8 P ADKL A3,BVDU 8 P ADR A3,A1
0x08997c…089b10 Dummy {f00=0x002b, f01=0x0190, f02=» 8 PSBA800 EQU * 9 " P ORKL A10,THROWB DON'T SAVE IT 9 P LDK A1,1 RETURN CODE 9 B PSBA900 EQU * 9 ` P RTN A14 9 t P EJECT 9 > P********************************************************** 9 > P*
0x089b10…089ca4 Dummy {f00=0x002b, f01=0x0190, f02=» * 9 X > P********************************************************** : P* REGISTERS : L P* : ` P* A1= RETURN CODE : j P* A2= RESERVED : P* A3= RESERVED : P* A4= REL. CURSOR POS. : P* A5= RESERVED : P* A6= RESERVED : P* A9= RESERVED
0x089ca4…089e38 Dummy {f00=0x002b, f01=0x0190, f02=»********************************* : PIC EQU * ; * P ST A4,PCURS,A11 ; : P ORKL A10,PTORD INDICATE ; R P LDK A1,0 RETURN CODE ; r P RTN A14 ; P EJECT ; @ P*********************************************************** ; @ P*
0x089e38…089fcc Dummy {f00=0x002b, f01=0x0190, f02=» * ; z @ P*********************************************************** < . P* REGISTERS < r P* < P* A1= RETURN CODE < P* A2= CHAR. < P* A3= ADDRESS IN VDU-BUFFER < P* A4= REL. CURSOR POS. < P* A5= RE
0x089fcc…08a160 Dummy {f00=0x002b, f01=0x0190, f02=»* A12= RESERVED < P* A13= RESERVED = P* = 0 @ P************************************************************ = : PPT EQU * = ~ P LDR A1,A10 = . P ANK A1,PTORD FOLLOWING ORDER OR COMMAND? = P RF(NZ) PT400 YES = 0 P LDK A7,NULL FILL WITH NUL
0x08a160…08a2f4 (1, 174) Dummy {f00=0x002c, f01=0x0190, f02=»A KINTE = z P LCR A2,A3 > P ANK A2,/80 ATTRIBUTE? > " P RF(NZ) PT400 YES > @ P SCR A7,A3 STORE NULL CHAR. > Z P LC A1,LINFLG,A6 > ~ P ORK A1,1 > P SC A1,LINFLG,A6 > P ADK A3,1 > P ADK A4,1 > P RB PT200 > PPT400 EQU * >
0x08a2f4…08a488 Dummy {f00=0x002c, f01=0x0190, f02=»NK A2,/80 ATTRIBUTE? > P RF(NZ) PT500 YES ? P ADK A4,1 ? 6 P ADK A3,1 ? H P RB PT400 ? Z PPT500 EQU * ? l P ANK A2,/20 PROTECTED? ? P RB(NZ) PT400 YES ? P ADK A4,1 ? P ADK A3,1 ? P CF A14,LINWRP CHECK WRAP ? PPT700 EQU
0x08a488…08a61c Dummy {f00=0x002c, f01=0x0190, f02=»*************************************** ? z B P* * @ 0 B P* RA REPEAT TO ADDRESS * @ v B P* * @ B P******
0x08a61c…08a7b0 Dummy {f00=0x002c, f01=0x0190, f02=»E REPEATED @ P* A3= ADDRESS IN VDU-BUFFER A P* A4= REL. CURSOR POS. A 6 P* A5= RESERVED A T $ P* A6= INTERNAL LINE FLAG ADDRESS A j P* A8= RESERVED A P* A9= DC-BUFFER INDEX A P* A10= INDICATOR A P* A11= CREDIT WORK AREA A P* A12= RES
0x08a7b0…08a944 Dummy {f00=0x002c, f01=0x018e, f02=» NEXT LABEL A P ST A1,UNPMOD,A11 B P LDK A1,0 B . P RF RA900 FIRST BYTE B @ ( PRA100 EQU * ENTRY LABEL FROM RETTAB B P LC A7,CONATT,A2 CONVERT B P ANK A7,/3F B P SLL A7,6 B P LDK A1,IORAA2 NEXT LABEL B P ST A1,UNPMOD,A11 B
0x08a944…08aad8 Dummy {f00=0x002c, f01=0x0190, f02=» P ORR A7,A2 C " P CWK A7,LBVDU INVALID ADDRESS C P RF(NL) RA800 YES C < P LDK A1,IORACH NEXT LABEL C V P ST A1,UNPMOD,A11 C x P LDK A1,0 C P RF RA900 CHAR. BYTE C ( PRA250 EQU * ENTRY LABEL FROM RETTAB C P LDK A1,IORDER C P ST A1
0x08aad8…08ac6c Dummy {f00=0x002c, f01=0x0190, f02=» C P ADK A3,1 D P ADK A4,1 D P CF A14,LINWRP CHECK WRAP =1 D , P CWR A4,A7 ALL REPEATED? =1 D P P RB(NE) RA300 NO =1 D t & P ORKL A10,PTORD INDICATE PT ORDER D P LDK A1,0 RETURN CODE D P RF RA900 D PRA800 EQU * D " P ORKL A10,
0x08ac6c…08ae00 Dummy {f00=0x002c, f01=0x018e, f02=»************************** D t : P* * E " : P* EUA ERASE UNPRO. TO ADDRESS * E ` : P* * E : P********************************************
0x08ae00…08af94 (1, 175) Dummy {f00=0x002c, f01=0x0190, f02=» P* A5= RESERVED F P* A6= RESERVED F P* A8= RESERVED F 0 P* A9= RESERVED F F P* A10= INDICATOR F P* A11= CREDIT WORK AREA F t P* A12= RESERVED F P* A13= RESERVED F P* F < P******************************************************* F
0x08af94…08b128 Dummy {f00=0x002c, f01=0x0190, f02=»00 EQU * ENTRY LABEL FROM RETTAB F P LC A7,CONATT,A2 CONVERT G ( P ANK A7,/3F G H P SLL A7,6 G P LDK A1,IOEUA2 NEXT LABEL G n P ST A1,UNPMOD,A11 G P LDK A1,0 G P RF EUA900 SECOND BYTE G ( PEUA200 EQU * ENTRY LABEL FROM RETTAB G P L
0x08b128…08b2bc Dummy {f00=0x002c, f01=0x0190, f02=»VALID ADDRESS? G P RF(NL) EUA800 YES H P LDR A1,A7 H 0 * P CF A14,ERASUA ERASE UNPRO. TO ADDRESS H B P CF A14,SCRINF H p P LDK A1,0 RETURN CODE H & P ORKL A10,PTORD INDICATE PT ORDER H P RF EUA900 H PEUA800 EQU * H P ORKL A10,THROWB RUB
0x08b2bc…08b450 Dummy {f00=0x002c, f01=0x0190, f02=»********** H b < P* * I < P* CHAR. < /20 BUT NOT ORDER * I R < P* * I < P******************************************************
0x08b450…08b5e4 Dummy {f00=0x002c, f01=0x018e, f02=»SOR POS. I P* A5= RESERVED J $ P* A6= INTERNAL LINE FLAG ADDRESS J & P* A8= RESERVED J N P* A9= RESERVED J d P* A10= INDICATOR J z P* A11= CREDIT WORK AREA J P* A12= RESERVED J P* A13= RESERVED J P* J 4 P****************************
0x08b5e4…08b778 Dummy {f00=0x002c, f01=0x0190, f02=» J PINVAL EQU * K " P ORKL A10,/9800 END UNPACKING K P LDK A1,1 K B P RF CHARET K T PNULCHA EQU * K f PNL EQU * K z PFF EQU * K PEM EQU * K PCR EQU * K P CF A14,LINWRP CHECK WRAP K P SCR A2,A3 STORE CHAR. K P LC A1,LINFLG,
0x08b778…08b90c Dummy {f00=0x002c, f01=0x0190, f02=»1,0 CONTINUE K PCHARET EQU * L P RTN A14 L ( P EJECT L 8 D P**************************************************************** L F D P* * L D P* PACKSY PACK DC BUFFER IN SYSTEM MOD
0x08b90c…08baa0 Dummy {f00=0x002c, f01=0x0190, f02=»********************** L f P* REGISTERS M P* M 2 P* A2= CHAR M < P* A3= ADDRESS IN VDU-BUFFER M N P* A4= REL. CURSOR POS. M r P* A5= RESERVED M P* A6= RESERVED M P* A8= ADDRESS IN DC-BUFFER M P* A9= INDEX IN DC-BUFFER M P* A11= CRE
0x08baa0…08bc34 (1, 176) Dummy {f00=0x002c, f01=0x0190, f02=»************* M ^ PPACKSY EQU * N P IFT SNA=1 N * P LDKL A9,0 COUNTER N < $ P LD A3,CURPOS,A11 GET START POS. N V & P CWK A3,/800 ANY CHAR. ON DISPLAY? N ~ P RF(E) PASY40 NO N * P CF A14,SCRINF GET SCREEN INFORMATION N P LDR A1,A4 N $ P SUR A1,
0x08bc34…08bdc8 Dummy {f00=0x002c, f01=0x0190, f02=»AGAIN N z PPASY10 EQU * O P CWK A1,256 ILLEGAL LENGTH? O " P RF(NG) PASY20 NO O F P LDKL A1,256 ADJUST LENGTH O ` PPASY20 EQU * O P ADKL A3,BVDU O P ADR A3,A11 O PPASY30 EQU * O P CWR A1,A9 ALL EXAMINED? O P RF(E) PASY40 YES O
0x08bdc8…08bf5c Dummy {f00=0x002c, f01=0x0190, f02=» CF A14,PDCCH STORE CHAR. IN DC BUFFER O P RB PASY30 P . PPASY40 EQU * P @ $ P LDK A1,0 INDICATE LAST IN CHAIN P T P CF A14,DCWRIT SEND BUFFER P | & P LDR A8,A12 GET BUFFER TO RELEASE P " P CF A14,RELBUF RELEASE BUFFER P P XIF P P RTN A14 P
0x08bf5c…08c0f0 Dummy {f00=0x002c, f01=0x0190, f02=» * P ^ B P* UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * Q B P* * Q Z B P************************************************************* Q P* REGISTERS Q P* Q P* A2
0x08c0f0…08c284 Dummy {f00=0x002c, f01=0x0190, f02=»FLAG ADDRESS Q | P* A8= ADDRESS IN DC-BUFFER R P* A9= INDEX IN DC-BUFFER R 6 P* A10= INDICATOR R V P* A11= CREDIT WORK AREA R n P* A12= RESERVED R P* A13= RESERVED R P* R B P************************************************************** R
0x08c284…08c418 Dummy {f00=0x002c, f01=0x018e, f02=»A14,SCRINF GET SCREEN INFORMATION R P LDR A3,A4 CURSOR ADDRESS S * P ADKL A3,BVDU S L " P ADR A3,A11 VDU BUFFER ADDRESS S b , P LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS S " P SUR A9,A9 INDEX IN DC BUFFER S P LDR A6,A11 S P LDK A5,LLINE S & P
0x08c418…08c5ac Dummy {f00=0x002c, f01=0x018e, f02=» S t P RF(NZ) UNPS60 NO T P CWK A2,/31 BIND? T " P RF(E) UNPS50 YES,PERHAPS T < PUNPS07 EQU * T ^ P CWK A2,/20 ORDER? T r P RF(NL) UNPS40 NO T P CWK A2,/0A NEW LINE? T P RF(NE) UNPS10 NO T $ P CF A14,NLROUT PERFORM NEW LINE T P R
0x08c5ac…08c740 Dummy {f00=0x002c, f01=0x0190, f02=» PUNPS20 EQU * U P CWK A2,/1E IRS? U P RF(NE) UNPS30 NO U 0 P LDK A2,/3B REPLACE WITH ; U J P RF UNPS40 U l PUNPS30 EQU * U ~ P CWK A2,NULL NULL? U P RF(NE) UNPS40 NO U " P LDK A2,/20 REPLACE WITH SPACE U PUNPS40 EQU * U P CF A14,
0x08c740…08c8d4 (1, 177) Dummy {f00=0x002c, f01=0x018e, f02=»3,1 U P ADK A4,1 V P RB UNPS05 V PUNPS50 EQU * V 0 P CF A14,GDCCH V D P ANK A2,/FE SHURE OF BIND? V Z P RF(Z) UNPS55 ALMOST V | P SUKL A8,2 V P SUKL A9,2 V P CF A14,GDCCH V P RB UNPS07 V PUNPS55 EQU * V & P LDK A1,MYJOB IN
0x08c8d4…08ca68 Dummy {f00=0x002c, f01=0x0190, f02=» V PUNPS60 EQU * W P LDKL A5,LBVDU+1 W P LDK A6,0 W 4 . P CF A14,STOINF SAVE NEW SCREEN INFORMATION W F P LDKL A10,0 W x PUNPS70 EQU * W , P LD A8,BUFPNT,A11 GET BUFFER TO RELEASE W " P CF A14,RELBUF RELEASE BUFFER W P XIF W P RTN A
0x08ca68…08cbfc Dummy {f00=0x002c, f01=0x0190, f02=» * W d 4 P* GETNXT GET AND CHECK NEXT BUFFER X @ P* * X P @ P************************************************************ X P* REGISTERS X P* X P* A1= RETURN CODE
0x08cbfc…08cd90 Dummy {f00=0x002c, f01=0x0190, f02=»**************************** X p PGETNXT EQU * Y $ P IFT SNA=1 Y 8 * P CF A14,SAVE2 SAVE UNPACK INFORMATION Y J , P LD A8,BUFPNT,A11 GET BUFFER TO RELEASE Y x " P CF A14,RELBUF RELEASE BUFFER Y P IFT DISHOW=2 Y P LC A1,TCT01,A11 Y " P CCK A1,VDUC
0x08cd90…08cf24 Dummy {f00=0x002c, f01=0x0190, f02=»QU * Y P CF A14,WAIT SYNCHRONIZE Z " P LD A2,ECBEL,A8 SAVE LENGTH =4 Z , P ST A2,DCLENG,A11 . =4 Z R P LDR A9,A1 Z p P CF A14,REST2 Z P LDR A1,A9 GET RETURN CODE Z ( P SRC A1,1 FIRST OR MODDLE IN CHAIN? Z P RF(NN) GETC30 NO Z $ P LDR A1,
0x08cf24…08d0b8 Dummy {f00=0x002c, f01=0x0190, f02=»VDUCOD PRINTER UNPACK? Z P RF(NE) GETC20 YES [ 0 P CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE [ 8 PGETC20 EQU * [ l ( P XRKL A10,LICREC RESET LAST IN CHAIN [ P ORKL A10,NEWCH NEW CHAIN [ P RF GETC60 [ PGETC30 EQU * [ & P SRC A1,1 LAST IN CH
0x08d0b8…08d24c Dummy {f00=0x002c, f01=0x018e, f02=»IN RECEIVED [ t , P ANKL A1,LICREC LAST IN CHAIN RECEIVED? P RF(Z) GETC60 NO D 0 P CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE P ORKL A10,NEWCH NEW CHAIN PGETC60 EQU * * P ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS & P CF A14,SAVE2 SAVE I
0x08d24c…08d3e0 Dummy {f00=0x002c, f01=0x0190, f02=» , P CF A14,REST2 RESTORE UNPACK INFORMATION ] P LDR A1,A10 ] 4 P ANKL A1,NEWCH NEW CHAIN? ] H P RF(Z) GETC80 NO ] j P IFT DISHOW=1 ] P XRKL A10,NEWCH RESET ] P LC A1,TCT01,A11 ] P CCK A1,VDUCOD ] P RF(NE) GETC70 ] P CF A14,SAVE2
0x08d3e0…08d574 (1, 178) Dummy {f00=0x002d, f01=0x0190, f02=» ST A1,UNPMOD,A11 ] PGETC80 EQU * ^ P LD A8,BUFPNT,A11 ^ . P SUR A9,A9 ^ H P LDK A1,0 RETUR N CODE ^ Z PGETC90 EQU * ^ x P XIF ^ P RTN A14 ^ P EJECT ^ B P************************************************************* ^ B P*
0x08d574…08d708 Dummy {f00=0x002d, f01=0x0190, f02=» * ^ B P************************************************************* _ > P* REGISTERS _ P* _ P* A1= RETURN CODE _ P* A11= CREDIT WORK AREA _ P* A12= RESERVED _ P* A13= RESERVED _
0x08d708…08d89c Dummy {f00=0x002d, f01=0x0190, f02=» RF(N) PUTC10 YES _ $ P CWK A9,BUFFL+BUFFL BUFFER FULL? ` P RF(NL) PUTC20 YES ` B P RF PUTC30 ` PPUTC10 EQU * ` n P LDKL A1,BUFFL+BUFFL-3 ` ( P SUR A1,A9 ROOM FOR SBA AND ADDRESS? ` P RF(NN) PUTC30 YES ` PPUTC20 EQU * ` P IFT SNA=1 `
0x08d89c…08da30 Dummy {f00=0x002d, f01=0x0190, f02=»9,A1 ` P CF A14,REST2 a P LDR A9,A9 TRANSMISSION OK? a " P RF(NZ) PUTC90 NO a F P SUR A9,A9 BUFFER INDEX a ` P LDR A8,A12 BUFFER ADDRESS a P XIF a P IFF SNA=1 a P CF A14,ERROR a P LDKL A1,* a P ST A1,REGI,A11 a P LKM a
0x08da30…08dbc4 Dummy {f00=0x002d, f01=0x018e, f02=» * a P RTN A14 b P EJECT b 6 P************************************************** b ( 6 P* * b b 6 P* PDCCH PUT CHAR. IN DC BUFFER * b 6 P* *
0x08dbc4…08dd58 Dummy {f00=0x002d, f01=0x0190, f02=» P* A4= RESERVED c P* A5= RESERVED c P* A6= RESERVED c 0 P* A8= ADDRESS IN DC-BUFFER c F P* A9= DC-BUFFER INDEX c h P* A10= INDICATOR c P* A11= RESERVED c P* A12= RESERVED c P* A13= RESERVED c P* c 8 P************************
0x08dd58…08deec Dummy {f00=0x002d, f01=0x0190, f02=» P IFT EBCDIC=1 d P LC A2,CONEBC,A2 CONVERT d P XIF d : " P SCR A2,A8 STORE IN DC-BUFFER d F P ADKL A8,1 d l P ADKL A9,1 d ~ PPDC100 EQU * d P RTN A14 d P EJECT d D P*************************************************************** d D
0x08deec…08e080 Dummy {f00=0x002d, f01=0x0190, f02=»* d R D P* * e D P*************************************************************** e R P* REGISTERS e P* e P* A1= RETURN CODE e P* A2= CHAR. e P* A3= POINTER IN VDU BUFFER e
0x08e080…08e214 (1, 179) Dummy {f00=0x002d, f01=0x0190, f02=»0= INDICATOR e P* A11= CREDIT WORK AREA f P* A12= RESERVED f 4 P* A13= RESERVED f L P* f d 8 P**************************************************** f n PGDCCH EQU * f P LDK A1,1 PRESET ERROR f & P CW A9,DCLENG,A11 BUFFER EMPTIED? f P R
0x08e214…08e3a8 Dummy {f00=0x002d, f01=0x018e, f02=»ON DELETED PR. 8625,DK* f x P XIF g P ADKL A8,1 g , P ADKL A9,1 g > PGDCC90 EQU * g P P RTN A14 g d P EJECT g t @ P*********************************************************** g @ P* * g @
0x08e3a8…08e53c Dummy {f00=0x002d, f01=0x0190, f02=» @ P*********************************************************** h P* REGISTERS h H P* h P* A2= AID h f P* A11= RESERVED h x P* A13= RESERVED h P* h > P********************************************************** h PPAID EQU * h P C
0x08e53c…08e6d0 Dummy {f00=0x002d, f01=0x0190, f02=» * h > P* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER * i 8 > P* * i z > P********************************************************** i P* REGISTE
0x08e6d0…08e864 Dummy {f00=0x002d, f01=0x0190, f02=»SERVED i P* A9= RESERVED j P* A10= RESERVED j $ P* A11= RESERVED j < P* A12= RESERVED j T P* A13= RESERVED j l P* j > P********************************************************** j PBUFADR EQU * j P LDR A2,A1 GET REL. POS. j P SRL
0x08e864…08e9f8 Dummy {f00=0x002d, f01=0x0190, f02=»POS. j | P ANK A2,/3F k & P LC A2,CONADR,A2 CONVERT TO ASCII k $ P CF A14,PDCCH STORE IN DC-BUFFER k J P RTN A14 k r P EJECT k @ P************************************************************ k @ P*
0x08e9f8…08eb8c Dummy {f00=0x002d, f01=0x0190, f02=» * k @ P************************************************************ l P* REGISTERS l T P* l h P* A2= CHAR. l r P* A3= ADDRESS IN VDU-BUFFER l P* A4= RESERVED l P* A5= RESERVED l P* A6= RESERVED l P* A8= RESERVED l P* A9=
0x08eb8c…08ed20 Dummy {f00=0x002d, f01=0x018e, f02=»******************************************************* l PRESMDT EQU * m @ P LDK A1,0 FIRST SCREEN POS. m T P LDKL A3,BVDU m x P ADR A3,A11 m PRESM10 EQU * m P CWK A1,LBVDU ALL SCANNED? m P RF(NL) RESM90 YES m P LCR A2,A3 GET CHAR. m
0x08ed20…08eeb4 (1, 180) Dummy {f00=0x002d, f01=0x0190, f02=» m P ADK A1,1 n P ADK A3,1 n P RB RESM10 n , PRESM90 EQU * n > P RTN A14 n R P EJECT n b < P******************************************************** n p < P* * n 2 P* P1WCC PRO
0x08eeb4…08f048 Dummy {f00=0x002d, f01=0x0190, f02=»************** n f P* REGISTERS o P* o * P* A2= CHAR. o 4 P* A3= RESERVED o H P* A4= RESERVED o ^ P* A5= RESERVED o t P* A6= RESERVED o P* A8= RESERVED o P* A9= RESERVED o P* A10= RESERVED o P* A11= CREDIT WORK AREA o P* A1
0x08f048…08f1dc Dummy {f00=0x002d, f01=0x0190, f02=»C A2,CONATT,A2 IN EBCDIC o P ST A2,WCC,A11 SAVE p P ANK A2,1 RESET MDT-BITS? p < P RF(Z) P1W900 NO p ^ & P CF A14,RESMDT RESET ALL MDT-BITS p v PP1W900 EQU * p P RTN A14 p P EJECT p > P******************************************************
0x08f1dc…08f370 Dummy {f00=0x002d, f01=0x018e, f02=» p V > P* * q > P********************************************************* q J P* REGISTERS q P* q P* A11= CREDIT WORK AREA q P* A12= RESERVED q P* A13= RESERVED q P* q > P****
0x08f370…08f504 Dummy {f00=0x002d, f01=0x0190, f02=» q P LDR A7,A1 r P ANK A7,4 SOUND? r P RF(Z) P2W100 NO r 2 P CF A14,SOUND SOUND r J PP2W100 EQU * r f P ANK A1,8 COPY? r z P RF(Z) P2W300 NO r P LC A1,TCT01,A11 . =4 r P CCK A1,VDUCOD VDU =4 r P RF(NE) P2W200 NO PRINTER =4 r
0x08f504…08f698 Dummy {f00=0x002d, f01=0x0190, f02=» CF A14,REST2 TAKE IT BACK =4 r P RTN A14 s & P EJECT s 6 F P****************************************************************** s D F P* * s F P* SAVE SAVE PACK AND UNPACK INFORMA
0x08f698…08f82c Dummy {f00=0x002d, f01=0x0190, f02=»****************************** s l P* REGISTERS t & P* t : P* A1= STACK POINTER t D P* A2= CHAR. t ` P* A3= VDU BUFFER ADDRESS t t P* A4= REL CURSOR POS. t P* A5= REL STTRIBUTE POS. t P* A6= ATTRIBUTE CHAR. t P* A10= INTERNAL INDICATO
0x08f82c…08f9c0 Dummy {f00=0x002d, f01=0x0190, f02=»**************************** t l PSAVE1 EQU * u $ & P LDKL A1,STACK1 GET STACK ADDRESS u 8 P RF SAVE u b PSAVE2 EQU * u r P LDKL A1,STACK2 u PSAVE EQU * u P ADR A1,A11 u P STR A2,A1 u P ADK A1,2 u P STR A3,A1 u P ADK A1,2 u
0x08f9c0…08fb54 (1, 181) Dummy {f00=0x002d, f01=0x0190, f02=»1,2 u P STR A10,A1 v P RTN A14 v P EJECT v 0 H P******************************************************************* v > H P* * v H P* RESTOR RESTORE PACK AND UNPACK INFO
0x08fb54…08fce8 Dummy {f00=0x002d, f01=0x0190, f02=»********************************* v n P* REGISTERS w * P* w > P* A1= STACK POINTER w H P* A2= CHAR. w d P* A3= VDU BUFFER ADDRESS w x P* A4= REL. CURSOR POS. w P* A5= REL. ATTRIBUTE POS. w P* A6= ATTRIBUTE CHAR. w P* A7= RESERVED w
0x08fce8…08fe7c Dummy {f00=0x002d, f01=0x0190, f02=»******************************************************* w PREST1 EQU * x @ & P LDKL A1,STACK1 GET STACK ADDRESS x T P RF RESTOR x ~ PREST2 EQU * x P LDKL A1,STACK2 x PRESTOR EQU * x P ADR A1,A11 x P LDR* A2,A1 x P ADK A1,2 x
0x08fe7c…090010 Dummy {f00=0x002d, f01=0x0190, f02=» ADK A1,2 x P LDR* A7,A1 y P ADK A1,2 y & P LDR* A10,A1 y 8 P RTN A14 y L P EJECT y < P******************************************************* y j < P* * y < P* BUFFER POOL
0x090010…0901a4 Dummy {f00=0x002d, f01=0x0190, f02=»***************** y j PBUFFER EQU * z P DATA *+2 POINTER FIRST FREE z . P IFF BUFFNR=1 z R P DATA *+LINK z h P RES BUFFL z | P IFF BUFFNR=2 z P DATA *+LINK z P RES BUFFL z P IFF BUFFNR=3 z P DATA *+LINK z P RES BUFFL z P I
0x0901a4…090338 Dummy {f00=0x002d, f01=0x018e, f02=» P DATA *+LINK { P RES BUFFL { P IFF BUFFNR=7 { * P DATA *+LINK { @ P RES BUFFL { T P IFF BUFFNR=8 { f P DATA *+LINK { | P RES BUFFL { P IFF BUFFNR=9 { P DATA *+LINK { P RES BUFFL { P IFF BUFFNR=10 { P DATA *+LINK { P
0x090338…0904cc Dummy {f00=0x002d, f01=0x018e, f02=» P IFF BUFFNR=13 | P DATA *+LINK | P RES BUFFL | . P IFF BUFFNR=14 | @ P DATA *+LINK | V P RES BUFFL | j P IFF BUFFNR=15 | | P DATA *+LINK | P RES BUFFL | P IFF BUFFNR=16 | P DATA *+LINK | P RES BUFFL | P IFF BUFFNR=17 |
0x0904cc…090660 Dummy {f00=0x002d, f01=0x0190, f02=» | P RES BUFFL } P IFF BUFFNR=20 } P DATA *+LINK } 0 P RES BUFFL } D P IFF BUFFNR=21 } V P DATA *+LINK } l P RES BUFFL } P IFF BUFFNR=22 } P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=23 } P DATA *+LINK } P RES BUFFL }
0x090660…0907f4 (1, 182) Dummy {f00=0x002e, f01=0x018e, f02=» } P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=27 ~ . P DATA *+LINK ~ D P RES BUFFL ~ X P IFF BUFFNR=28 ~ j P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=29 ~ P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=30 ~ P DATA *+LINK ~
0x0907f4…090988 Dummy {f00=0x002e, f01=0x0190, f02=» ~ P XIF P DATA 0 P RES BUFFL $ P EJECT 6 < P******************************************************* D < P* * < P* GETBUF GET BUFFER * < P*
0x090988…090b1c Dummy {f00=0x002e, f01=0x0190, f02=» P* P* A8= DC-BUFFER ADDRESS P* A9= INDEX IN DC-BUFFER 2 P* A11= RESERVED R P* A12= BUFFER ADDRESS j P* A13= RESERVED P* < P******************************************************** PGETBUF EQU * P LDKL A7,B
0x090b1c…090cb0 Dummy {f00=0x002e, f01=0x0190, f02=»10 PGETB90 EQU * P LDR* A1,A8 P STR A1,A7 2 P ADKL A8,2 D P LDR A12,A8 V P SUR A9,A9 j P RTN A14 | P EJECT > P********************************************************* > P*
0x090cb0…090e44 Dummy {f00=0x002e, f01=0x0190, f02=» * ` > P********************************************************* P* REGISTERS T P* h P* A8= BUFFER ADDRESS r P* A11= RESERVED P* A13= RESERVED P* > P*********************************************************
0x090e44…090fd8 Dummy {f00=0x002e, f01=0x4086, f02=» P LDR A7,A1 P RB RELB10 PRELB90 EQU * ( P STR A8,A7 < P CMR A8 N P RTN A14 ^ P n P END v@ r P* A11= RESERVED P* A13= RESERVED P* > P*********************************************************
0x090fd8…09116c Dummy {f00=0x002e, f01=0x2008, f02=»
0x09116c…091300 Dummy {f00=0x002e, f01=0x0190, f02=» A @ E| A Q _8 : N =H N ^ : N =H N ^ : &=H F ^ : F =H F ^ : ? ? > > : P N =H N T x_ : @ ! P (W ( : @ 0 P 0 _ @ Q @ P P _ @ P A P _ x Q @ Q
0x091300…091494 (1, 183) Opaque[0x194]
0x091494…091628 # DirEnt {nam=»PTCONF«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x05c8, f03=0x0000}
0x091494…091628 IdxSect {
0x091494…091628 f00 = 0x002e // 0x91494 @0x0
0x091494…091628 f01 = 0x0002 // 0x91496 @0x2
0x091494…091628 gno = [ // 0x91498 @0x4
0x091494…091628 [0x00]: C0x002e.0x1.0
0x091494…091628 ]
0x091494…091628 }
0x091628…0917bc Dummy {f00=0x002e, f01=0x018e, f02=» PT; P02; PTID=V0; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P02; PTID=T0; PTCL=P1; PLEV=60; P01; PTDC=
0x0917bc…091950 Dummy {f00=0x002e, f01=0x0040, f02=» PNSA=04; P40; PC1; PC8; , PC9; 8; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P02; PTID=T0; PTCL=P1; PLEV=60; P01; PTDC=
0x091950…091ae4 Dummy {f00=0x002e, f01=0x2008, f02=» 04; P40; PC1; PC8; , PC9; 8; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P02; PTID=T0; PTCL=P1; PLEV=60; P01; PTDC=
0x091ae4…091c78 Dummy {f00=0x002e, f01=0x2008, f02=» END FILE n 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 R 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF ALTERNATI
0x091c78…091e0c Dummy {f00=0x002e, f01=0x0190, f02=» q HALTN 0 @ SCTMSZK X SCTSFA l SCTEFA SCTIPL SCTANO SCTTCT SCTCDTL , ( @
0x091e0c…091fa0 Dummy {f00=0x002e, f01=0x0190, f02=» SCTDMTL SCTDMI SCTFWT 2 SCTNOF F SCTNFT Z SCTFWL n SCTBLK SCTDCT SCTNOS , ( SCTMXS@ SCT
0x091fa0…092134 (1, 184) Opaque[0x194]
0x092134…0922c8 # DirEnt {nam=»DATBSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05d0, f03=0x0000}
0x092134…0922c8 IdxSect {
0x092134…0922c8 f00 = 0x002e // 0x92134 @0x0
0x092134…0922c8 f01 = 0x0006 // 0x92136 @0x2
0x092134…0922c8 gno = [ // 0x92138 @0x4
0x092134…0922c8 [0x00]: C0x002e.0x2.0
0x092134…0922c8 [0x01]: C0x002e.0x3.0
0x092134…0922c8 [0x02]: C0x002f.0x0.0
0x092134…0922c8 ]
0x092134…0922c8 }
0x0922c8…09245c Dummy {f00=0x002e, f01=0x0190, f02=» 0 P IDENT DATBSC REL 11.0 81-10-18 870150541100 P 8 L P************************************************************************ @ L P* * L P* DATBSC DATA DIVISION FOR
0x09245c…0925f0 Dummy {f00=0x002e, f01=0x0190, f02=» CREDIT CODED START-UP ROUTINES. * | L P* * < L P************************************************************************ P EJECT P DDIV 8 P****************
0x0925f0…092784 Dummy {f00=0x002e, f01=0x0190, f02=»****************************** z P TERM K1 & P* 6 P CWB CB1 @ P TWB TB1 P P* ` P START KBVGO j P* ~ & PDSKBAN DSET FC=X'20',DEV=KA,BUFL=2 & PDSKBSD DSET FC=X'40',DEV=KI,BUFL=2 ( PDSVDU DSET FC=X'42',DEV=DY,BUFL=162 P
0x092784…092918 Dummy {f00=0x002e, f01=0x0190, f02=»IC FOR P&T h P EJECT 8 P*************************************************** P* . P* KB/VDU TERMINAL WITH TWO DC-LINES f P* 8 P*************************************************** P* TERM K2 P* P* CWB CB1
0x092918…092aac Dummy {f00=0x002e, f01=0x0190, f02=»,BUFL=2 t ( P*DSVDU DSET FC=X'42',DEV=DY,BUFL=162 P*DSICR DSET FC=X'50',DEV=II < P*DSICW DSET FC=X'51',DEV=IO ` P*DSDC1 DSET FC=X'61' P*DSDC2 DSET FC=X'62' P EJECT 8 P**************************************************** P*
0x092aac…092c40 Dummy {f00=0x002e, f01=0x018e, f02=» P* P CWB CB1 P TWB TB1 " P* 2 P START PRTGO < P* P @ PPDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS Z PPDSICR DSET FC=X'50',DEV=II PPDSICW DSET FC=X'51',DEV=IO PPDSDC1 DSET FC=X'61' P EJECT
0x092c40…092dd4 (1, 185) Dummy {f00=0x002e, f01=0x0190, f02=» : P****************************************************** P* TERM P2 F P* X P* CWB CB1 b P* TWB TB1 t P* P* START PRTGO P* @ P*PDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS P*PDSICR DSET FC=X'50
0x092dd4…092f68 Dummy {f00=0x002e, f01=0x018e, f02=»************************************************************** L P* * F L P* WORK AREA FOR KB/VDU TASKS * L P*
0x092f68…0930fc Dummy {f00=0x002e, f01=0x0190, f02=» P* & PTCT01 BIN 4X'0' TID AND STACKBASE ( PBVDU STRG 3840X'0' VDU SCREEN BUFFER < * PLINFLG STRG 48X'0' INTERNAL LINE FLAGS h ( PPCURS STRG 4X'0' REL. CURSOR ADDRESS . PATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER , PCURATT STRG 4X'0' RE
0x0930fc…093290 Dummy {f00=0x002e, f01=0x0190, f02=»LENG STRG 4X'0' DC READ EFFECTIVE LENGTH * PINTATT STRG 4X'0' INTENSITY ATTRIBUTE 0 " POFFFLG STRG 4X'0' OFFLINE FLAG ^ ( PPRTID STRG 4X'0' TASKID FOR HARDCOPY PBRAGE STRG 192X'0' LEKSAND P* " P* FORMATION OF BRAGE - LEKSAND P*
0x093290…093424 Dummy {f00=0x002e, f01=0x0190, f02=» 4X KEY LOCK STATUS 0 P* ECBBLK 20X ECB BLOCK FOR MULTIPLE WAIT 2 P* RDMORE 4X NEXT ADDRESS OF READ MORE KEYS T $ P* CURPOS 4X CURSOR POSITION " P* BUFPNT 4X BUFFER POINTER P* REGI 4X SAVE AREA P* STACK1 28X
0x093424…0935b8 Dummy {f00=0x002e, f01=0x0190, f02=» ECB TABLE P* ECBKB 4X ECB KB P* ECBPRT 4X ECB PRINTER 2 & P* ECBSD 4X ECB SIGNAL DISPLAY V P* ECBVDU 4X ECB VDU & P* ECBICR 4X ECB INTERTASK READ ( P* ECBICW 4X ECB INTERTASK WRITE " P* ECBDC1 4X EC
0x0935b8…09374c Dummy {f00=0x002e, f01=0x0190, f02=»************ Z F P* * F P* COMMON WORK AREA FOR ALL TASKS * ^ F P* * F P**********************
0x09374c…0938e0 Dummy {f00=0x002e, f01=0x0190, f02=» STRG 22'IDENT NOT OPERABLE ' IDENT KEY TEXT 2 P***STATXT STRG 15'DTE ADDRESS ' STAT LAYOUT 8 " P***SA STRG 15'STAT OVERFLOW ' n " P***SB STRG 15'PRO REC BLOCKS ' " P***SC STRG 15'PRO REC REJ-BSY' " P***SD STRG 15'PRO REC REJ-OVF' " P**
0x0938e0…093a74 (1, 186) Dummy {f00=0x002f, f01=0x0190, f02=»IMOUT' x " P***SI STRG 15'PRO POLL-TIMOUT' " P***SJ STRG 15'DTE REC ERROR ' 4 2 P***SK STRG 30'DTE SND ERROR DCE ERROR ' Z . PTSKTAB STRG 256X'0' TASK TABLE WITH STATUS " PENDTAB STRG 4X'FFFF' END MARK P PDIV P* 2 P*
0x093a74…093c08 Dummy {f00=0x002f, f01=0x0190, f02=» GETTID GET TASK IDENTITY 2 P** EXT OFFLNE CREDIT APPLICATION START ADDRESS " P EJECT X , P**************************************** f P* " P* START ADDRESS FOR VDU TASK P* , P**************************************** P P
0x093c08…093d9c Dummy {f00=0x002f, f01=0x4136, f02=»URN TO IBM-3270 EMULATION P EJECT " 2 P********************************************* 0 P* f ( P* START ADDRESS FOR PRINTER TASK p P* 2 P********************************************* P PPRTGO P CALL GETTID,TCT01
0x093d9c…093f30 Dummy {f00=0x002f, f01=0x2008, f02=» * END @ * $ * . GP1 BLK 8 * H GPAREA STRG 2000 R EJECT j PDIV x * * ENTRY KBGO ENTRY VDUGO ENTRY GTPGO * EXT VDUKB EXT VDTASK E
0x093f30…0940c4 Dummy {f00=0x002f, f01=0x0190, f02=» * 9 f < P* STOINF STORE SCREEN INFORMATION * : < P* * : V < P******************************************************** : P* REGISTERS : P* : P* A4= REL. CURSOR PO
0x0940c4…094258 Dummy {f00=0x002f, f01=0x0190, f02=» < P******************************************************** ; PSTOINF EQU * ; D P ST A4,PCURS,A11 ; X P ST A5,CURATT,A11 ; p P ST A6,ATTRIB,A11 ; P RTN A14 ; P EJECT ; < P******************************************************* ; < P*
0x094258…0943ec Dummy {f00=0x002f, f01=0x0190, f02=» * ; < P******************************************************* < 2 P* REGISTERS < r P* < P* A1= RETURN CODE < P* A8= ECBVDU < P* A11= CREDIT WORK AREA < P* A13= RESERVED < P* < < P********
0x0943ec…094580 Dummy {f00=0x002f, f01=0x0190, f02=»B CONTROL CHAR. < P SC A2,1,A1 = P LDK A2,/07 BELL CHAR. = , P SC A2,2,A1 = J P LDK A2,3 REQ. LENGTH = ^ P ST A2,ECBRL,A8 = | P LDK A7,/86 = P LKM = P DATA 1 = $ P LD A1,ECBRC,A8 GET RETURN CODE = P RTN A14 = P EJECT = :
0x094580…094714 (1, 187) Opaque[0x194]
0x094714…0948a8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05e8, f03=0x0000}
0x094714…0948a8 IdxSect {
0x094714…0948a8 f00 = 0x002f // 0x94714 @0x0
0x094714…0948a8 f01 = 0x0004 // 0x94716 @0x2
0x094714…0948a8 gno = [ // 0x94718 @0x4
0x094714…0948a8 [0x00]: C0x002f.0x1.0
0x094714…0948a8 [0x01]: C0x002f.0x2.0
0x094714…0948a8 ]
0x094714…0948a8 }
0x0948a8…094a3c Dummy {f00=0x002f, f01=0x0190, f02=» 4 P IDENT CTAB01 REL 11.0 DK 81-10-10 870150541100 P < < P******************************************************* D < P* * < P* CTAB01 KEY-CONVERSION FOR KB6272 * * P*
0x094a3c…094bd0 Dummy {f00=0x002f, f01=0x0190, f02=»************************* r P EJECT " < P******************************************************* 0 < P* * p < P* ENTRY POINT * < P*
0x094bd0…094d64 Dummy {f00=0x002f, f01=0x0190, f02=»NTRY CTAB02 FOR T02 DK P EJECT 4 P*********************************************** , P* d P* CONDITIONAL ASSEMBLY n P* 4 P*********************************************** PX:J EQU 1 KB6272 IF:=1 PKB6272 EQU X:J P EJECT
0x094d64…094ef8 Dummy {f00=0x002f, f01=0x0190, f02=»UNSH1,UNSH2,UNSH3,UNSH4,UNSH5,UNSH6,0 PSHIFT EQU * . < P DATA SHIFT0,SHIFT1,SHIFT2,SHIFT3,SHIFT4,SHIFT5,SHIFT6,0 B P PUNSH0 EQU * : P DATA /BAB7,/B8B9,/B4B5,/B6B1,/B2B3,/BBBC,/A088,/898C PUNSH1 EQU * : P DATA /3031,/3233,/3435,
0x094ef8…09508c Dummy {f00=0x002f, f01=0x0190, f02=» : P DATA /3031,/3233,/3435,/3637,/3839,/8782,/5C80,/8183 PUNSH4 EQU * B : P DATA /5E61,/6263,/6465,/6667,/6869,/6A6B,/6C6D,/6E6F V PUNSH5 EQU * : P DATA /7071,/7273,/7475,/7677,/7879,/7A3A,/3B40,/5B7F PUNSH6 EQU * : P DATA /8485,/8
0x09508c…095220 Dummy {f00=0x002f, f01=0x0190, f02=» EQU * : P DATA /3031,/3233,/3435,/3637,/3839,/8F90,/A28B,/8A92 PSHIFT2 EQU * L : P DATA /207F,/7F7F,/7F7F,/7F7D,/A1A3,/7F3D,/3C3F,/3E7F ` PSHIFT3 EQU * : P DATA /5F21,/2223,/2425,/2627,/2829,/8782,/7C80,/8183 PSHIFT4 EQU * : P DAT
0x095220…0953b4 (1, 188) Dummy {f00=0x002f, f01=0x0190, f02=» PSHIFT6 EQU * : P DATA /8485,/86A6,/A7A8,/A48E,/7F7F,/7F7F,/7F7F,/7F7F P XIF V P EJECT b P IFF KB6272=1 p PCTAB01 DATA UNSH,0,0,0,SPEC PUNSH EQU * P DATA 0,0,0,0,0,0,0,UNSH7 PSPEC EQU * : P DATA SPEC0,SPEC1,SPEC2,
0x0953b4…095548 Dummy {f00=0x002f, f01=0x018e, f02=»EC0 EQU * " P DATA /B783,/8184,/8086,/A885 " P DATA /82B1,/B2B3,/7F7F,/7F7F 8 PSPEC1 EQU * ^ " P DATA /A289,/A0B8,/B9BA,/88A7 r " P DATA /A6B6,/7F7F,/7F7F,/7F7F PSPEC2 EQU * " P DATA /B5B4,/9280,/7F75,/7F7F " P DATA /7F7F,/7F7
0x095548…0956dc Dummy {f00=0x002f, f01=0x018c, f02=» " P DATA /B783,/8184,/8086,/A885 " P DATA /82B1,/B2B3,/7F7F,/7F7F * PSPEC5 EQU * P " P DATA /A289,/A0B8,/B9BA,/88A7 d " P DATA /A6B6,/7F7F,/7F7F,/7F7F PSPEC6 EQU * " P DATA /B5B4,/928D,/7F7F,/7F7F " P DATA /7F7F,/7F7F,/7F7F,/7F7F
0x0956dc…095870 Dummy {f00=0x002f, f01=0x4008, f02=»@ A /B783,/8184,/8086,/A885 " P DATA /82B1,/B2B3,/7F7F,/7F7F * PSPEC5 EQU * P " P DATA /A289,/A0B8,/B9BA,/88A7 d " P DATA /A6B6,/7F7F,/7F7F,/7F7F PSPEC6 EQU * " P DATA /B5B4,/928D,/7F7F,/7F7F " P DATA /7F7F,/7F7F,/7F7F,/7F7F
0x095870…095a04 Dummy {f00=0x002f, f01=0x2008, f02=» 62F,/2829,/8782,/3E80,/8183 ~ : 5 DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F , : 5 DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/5E7F j END @ 3,/6465,/6667,/6869,/6A6B,/6C6D,/6E6F : 5 DATA /7071,/7273,/7475,/7
0x095a04…095b98 Dummy {f00=0x002f, f01=0x0190, f02=» * d @ P* DCSYS COMPLETE DC IN SYSTEM MODE * @ P* DCJOB COMPLETE DC IN MY JOB MODE * @ P* OPSYS OPEN SYSTEM * @ P* OPINIT OPEN CONNECTION IN
0x095b98…095d2c Dummy {f00=0x002f, f01=0x0190, f02=» * l @ P* WAIT SYNCHRONIZE * @ P* DCWRIT WRITE DC BUFFER * d @ P* TSTMES TEST MESSAGE * @ P* SETSTA SET STATUS
0x095d2c…095ec0 Dummy {f00=0x002f, f01=0x0190, f02=»EQUEST * t $ P* THRBUF THROW BUFFERS ( @ P* CHKSTA CHACK DC STATUS * P @ P* DCOFLN INDICATE OFFLINE TO CLUSTER * @ P* TRPA TRANSMIT SHORT READ
0x095ec0…096054 (1, 189) Opaque[0x194]
0x096054…0961e8 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x05f8, f03=0x0000}
0x096054…0961e8 IdxSect {
0x096054…0961e8 f00 = 0x002f // 0x96054 @0x0
0x096054…0961e8 f01 = 0x0008 // 0x96056 @0x2
0x096054…0961e8 gno = [ // 0x96058 @0x4
0x096054…0961e8 [0x00]: C0x002f.0x3.0
0x096054…0961e8 [0x01]: C0x0030.0x0.0
0x096054…0961e8 [0x02]: C0x0030.0x1.0
0x096054…0961e8 [0x03]: C0x0030.0x2.0
0x096054…0961e8 ]
0x096054…0961e8 }
0x0961e8…09637c Dummy {f00=0x002f, f01=0x000c, f02=»811010 B T:UERR T I:RT0 T:UER ` f C I:EXIT ,USRFLD 811010 USRFLD T:DM 811010 T:OPEN T:DSB T:WRIO T:IO1 T:CLOS F T:DCLO Z T:COMM f I:EVA0 I:RT1 T:PCOM T:GTBY
0x09637c…096510 Dummy {f00=0x002f, f01=0x0190, f02=» FFMOVE 811010 FMOVE I:EVA0 I:EVA5 I:RT1 ( <TYPET 811010 TYPET I:EVA0 I:RT1 >ICLEAR 811010 ICLEAR I:EVA0 I:RT1 $ >EMPTYT 811010 EMPTYT I:EVA0 I:RT1 <
0x096510…0966a4 Dummy {f00=0x002f, f01=0x0190, f02=»OU 811010 STROU1 T:STEV T:LOFS I:EVA0 T:LOPS T:DUPX T:GRFC T:ROK T:RNOK @T:STEV 811010 T:STEV T:GRFC I:EVA0 & T:EDFL 811010 T:EDFL T:PRKB T:PRDY T:PM1 T:PM2 T:CAS
0x0966a4…096838 Dummy {f00=0x002f, f01=0x0190, f02=» T:DYKI T:PRKB T:PRDY I:EVA7 T:CASP T:CLRD T:EKEY T:RCR T:IOER J T:CLR1 X T:CLR2 f T:SCUW T:BELL T:IOWR T:CLIT : T:LOFS I:EVA0 T:LOPS T:CLMI T:PM1 n T:GRFC T:PM2 xT:UPDF 811010
0x096838…0969cc Dummy {f00=0x002f, f01=0x0190, f02=» T:GRFC I:EVA0 T:RNOK T:ROK T:DUPX T:LOFS T:LOPS I:MOV ` HT:GETC 811010 T:GETC T:GRFC I:EVA0 I:RT1 < ZT:GETA 811010 T:GETA T:GRFC I:EVA0 T:RNOK T:ROK T:RCR " @T:TSTC
0x0969cc…096b60 Dummy {f00=0x002f, f01=0x0190, f02=» T:TFWD T:TBWD T:THOM " T:PRDY T:GRFC T:TABE T:SCR2 T:TABC T:TABN | T:DISP 811010 T:PRIN T:GDSP T:DSM T:EDWI T:GRFC T:GTIP T:DISP " T:ERAS & T:GTIT T:PRDY T:TABD T:TABC T:RNO
0x096b60…096cf4 (1, 190) Dummy {f00=0x0030, f01=0x0190, f02=»C T:GTIP 8 I:EVA0 I:EVA2 d T:REWR " 811010 T:IOWR T:SCUW T:CLRD * T:REWR 0 T:PRDY T:CASP R T:LOFS I:EVA3 I:EPIC T:LOPS I:EVA0 I:ECPY I:EVI 4T:DEDT $ 811010 I:EVNO I:ESKI I
0x096cf4…096e88 Dummy {f00=0x0030, f01=0x0190, f02=»ABE 2 T:EDWI I:EVT I:EDSK T:GRFC T:ENIN T:LOPS T:EDWF T:SCR2 T:SCUR T:TABN L T:RCR V T:ENLI ( 811010 I:EVNO I:ECPY I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR I:EOR I:EXIT I:ECW I:EFLA
0x096e88…09701c Dummy {f00=0x0030, f01=0x0190, f02=» T:EINP + 811010 T:PKI T:PINP T:GRFC I:ETAB I:EVIN I:ECTR T:EVOU T:TINP T:TKI T:ENIN T:ENI I:EXIT T:WRDY T:CLMI I:EVA0 T:CLDY T:ENIN 1 811010 T:ENIN T:ENI T:LOFS I:E
0x09701c…0971b0 Dummy {f00=0x0030, f01=0x0190, f02=»RDY T:GRFC T:EDWI T:RCTS T:SCUR T:WRDY * ,T:CLMI 5 811010 T:CLMI ( T:ATTF 6 811010 T:DETF T:ATTF I:EVA6 I:FFSN T:ROK ( T:RCR * I:RT1 T:RCTS 6 T:RTES : T:RNOK < T:GRFC @ T:WRD
0x0971b0…097344 Dummy {f00=0x0030, f01=0x0190, f02=» T:LOPS R f lT:DC00 ; 811010 T:FDS0 DCREAD T:DCR1 DCWRTE T:DCW1 DCEXCH T:DCE1 6T:SWI0 < 811010 T:SWIT SWITCH JT:TEI0 = 811010 T:TEST TESTIO T:ABOR ABORT
0x097344…0974d8 Dummy {f00=0x0030, f01=0x0190, f02=»GTI0 @ 811010 T:GETI GETTID T:DC A 811010 T:DCRE T:GDSP T:DCR1 T:DCWR T:DCW1 T:EDIO T:IO2 T:DCEX & T:DCE1 * I:EVA0 4T:SWI C 811010 T:SWIT I:RT1 ^T:TEI D
0x0974d8…09766c Dummy {f00=0x0030, f01=0x0190, f02=» T:GETT T:SETD . T:GETD D H >T:DEL F 811010 T:DELA I:EVA0 I:RT1 <T:MSK0 G 811010 MASK I:EVA0 I:RT1 pT:SCD H 811010 T:ACTV P:BAS I:NTPB T:BAT T:RSTR F I:EVA0 T:PAU
0x09766c…097800 Dummy {f00=0x0030, f01=0x0190, f02=»T ZT:GTCW M 811010 T:GDSP GETCW I:EVA0 T:BINB T:GTCW I:RT1 & >T:GTID N 811010 T:GETI I:EVA0 I:RT1 vT:DMR O 811010 T:DREA T:REAX T:SCW2 T:IO2 T:IREA T:XREA T:I
0x097800…097994 (1, 191) Dummy {f00=0x0030, f01=0x0190, f02=» T:IWRI 0 T:CREW > T:IREW L pT:DMDI R 811010 T:DDIS T:DSB T:SCW2 T:IO2 T:CDIS T:IDIS T:WRIX T:IO1 0 pT:DMPO S 811010 T:DPOS T:DSB T:SCW2 T:GTBY T:IO2 T:IPOS T:WRIX T:IXID
0x097994…097b28 Dummy {f00=0x0030, f01=0x0190, f02=»N P T:ACO1 T T:ACO2 X T:ACO3 T:PCON f T:PCO1 j T:PCO2 n T:DISC x T:DIS1 | T:DIS2 T:DIS3 T:DIS4 T:STCW T:OPT I:EVA0 ~T:DCR X 811010 T:RECE T:REC1 T:REAX T:OPT T:IO2 T:AREC
0x097b28…097cbc Dummy {f00=0x0030, f01=0x0190, f02=» & T:STCW T:SCW2 H HT:IO 811010 T:KI T:NKI T:WRIT T:WRIL T:LWRI T:WRIX " T:WRIO & I:EVA0 T:SREA B T:READ B T:REAX L T:DSC0 r T:DSC1 T:DSC2 T:XSTA T:WAIT T:MWAI T:IO1
0x097cbc…097e50 Dummy {f00=0x0030, f01=0x0190, f02=» T:EDIO T:KIPR 6 I:EVA7 T:FDS0 T:GDSP P:MTAB I:EVTO I:FML T:DS15 T:DS25 T:DSM T:DSB ( T:FDSP 2 T:GTBY L T:SCW2 T:DSCX j I:EVA2 T:SCW0 T:DSR T:CW d 811010 T:STCW I:EVA2
0x097e50…097fe4 Dummy {f00=0x0030, f01=0x0190, f02=»LEN I:EVA0 I:RT1 |T:ADIT i 811010 T:RREA T:DSB T:RRE1 I:EVA0 T:STCW T:IO2 T:RWRI $ T:RWR1 ( T:IO1 F rT:KIA k 811010 T:KIA T:NKIA T:ABUF T:KIPR T:LSEG T:IORE T:KIAA T:KIA
0x097fe4…098178 Dummy {f00=0x0030, f01=0x0190, f02=» 8 DI:NTP p 811010 I:MOV I:ADD I:SUB I:CMP I:MUL I:DIV I:MMOV I:EDT I:CPY I:INS I:DLT I:MCH I:XCP I:EDS I:TRC I:RST D T:CSEG I:NTPA H I:NTPB H P:MTAB T:LSEG I:NTP r I:NTPR r I:EVA0 I:EVA2 I:R
0x098178…09830c Dummy {f00=0x0030, f01=0x0190, f02=» I:EVA6 ( I:EVA5 . I:EVA7 2 I:EVA0 T:LOFS T:LOPS I:FML ^ I:EVTO I:EVI I:EVB <I:ADS z 811010 I:ADD I:SUB I:CPA X 2I:CMP } 811010 I:CMP I:CPA n *I:CPA ~ 811010 I:C
0x09830c…0984a0 Dummy {f00=0x0030, f01=0x0190, f02=» T VI:MUL 811010 I:MUL I:MOV I:NTFA I:SUB I:ADD I:SH1L X hI:DIV 811010 I:DIV I:MOV I:NTFA I:SUB I:CPA I:SH1L I:ADD I:SH1R ,I:NTF 811010 I:NTFA 8 I:EDT 8110
0x0984a0…098634 (1, 192) Dummy {f00=0x0030, f01=0x0190, f02=»:EBRB I:EBR I:EINH I:EKIH I:EDSK | I:EDT I:ED1 I:EDW I:EVA6 I:EFLA 6 T:LSEG I:RET p I:EXIT v P:MTAB I:FFSN P:BAS I:ETAB I:ECPY I:ETXT & I:EXPY & I:ECTR 8 I:ESL B I:ENL L I:EOR b T:EDWF I
0x098634…0987c8 Dummy {f00=0x0030, f01=0x0190, f02=» 811010 I:EKIH I:EINH I:ETAB I:EVIN I:EVA0 I:EVA1 I:EBRI F I:EBR j I:EBRB n I:ESKI I:EVNO I:EGTD I:EGTB <I:EDS 811010 I:EDS I:EVS2 I:ED1 & nI:STR 811010 I:DLT
0x0987c8…09895c Dummy {f00=0x0030, f01=0x0190, f02=» I:EVS2 J STRIX 811010 I:EVNO I:ESKI I:EVA0 I:EBRI I:EBRB I:EBR I:ECWC I:EXIT I:EFLA T:DNL T:DSL STROU2 STRIN2 USRFLD STROUX . STRIX 2 USRFMT 6 T:GRFC T:STEV T:EDWI I:EVT I:EDSK
0x09895c…098af0 Dummy {f00=0x0030, f01=0x0190, f02=»U2 811010 STROU2 I:EVA0 I:MOV T:GRFC I:EXIT ,USRFLD 811010 USRFLD T:DM 811010 T:OPEN T:DSB T:WRIO T:IO1 T:CLOS F T:DCLO Z T:COMM f I:EVA0 I:RT1 T:PCOM T:GTBY
0x098af0…098c84 Dummy {f00=0x0030, f01=0x4038, f02=»VA0 P:MTAB T:UERR T I:RT0 T:UER ` f C I:EXIT ,USRFLD 811010 USRFLD T:DM 811010 T:OPEN T:DSB T:WRIO T:IO1 T:CLOS F T:DCLO Z T:COMM f I:EVA0 I:RT1 T:PCOM T:GTBY
0x098c84…098e18 Dummy {f00=0x0030, f01=0x0190, f02=» > @ IDENT T:TFWD P,REL=11.0,810128,870136941100 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
0x098e18…098fac Dummy {f00=0x0030, f01=0x4132, f02=» Y ( Y 09H Y * T:TABE * & = Y 4 Y 2 Y 69h Q X :h Y 0 2 T:SCR2 ` T:TABC r , ( [ W U X Q W Y 0 T:TABN w 8 4 W W W W W W !W MQ ]W
0x098fac…099140 Dummy {f00=0x0030, f01=0x0190, f02=» > @ IDENT T:DISP P,REL=11.0,810128,870136941100 T:PRIN T:DISP T:ERAS F T:PRIN h T:GDSP | T:DSM T:EDWI T:GRFC , ( D 9H Y T:GTIP T
0x099140…0992d4 (1, 193) Opaque[0x194]
0x0992d4…099468 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0618, f03=0x0000}
0x0992d4…099468 IdxSect {
0x0992d4…099468 f00 = 0x0030 // 0x992d4 @0x0
0x0992d4…099468 f01 = 0x0070 // 0x992d6 @0x2
0x0992d4…099468 gno = [ // 0x992d8 @0x4
0x0992d4…099468 [0x00]: C0x0030.0x3.0
0x0992d4…099468 [0x01]: C0x0031.0x0.0
0x0992d4…099468 [0x02]: C0x0031.0x1.0
0x0992d4…099468 [0x03]: C0x0031.0x2.0
0x0992d4…099468 [0x04]: C0x0031.0x3.0
0x0992d4…099468 [0x05]: C0x0032.0x0.0
0x0992d4…099468 [0x06]: C0x0032.0x1.0
0x0992d4…099468 [0x07]: C0x0032.0x2.0
0x0992d4…099468 [0x08]: C0x0032.0x3.0
0x0992d4…099468 [0x09]: C0x0033.0x0.0
0x0992d4…099468 [0x0a]: C0x0033.0x1.0
0x0992d4…099468 [0x0b]: C0x0033.0x2.0
0x0992d4…099468 [0x0c]: C0x0033.0x3.0
0x0992d4…099468 [0x0d]: C0x0034.0x0.0
0x0992d4…099468 [0x0e]: C0x0034.0x1.0
0x0992d4…099468 [0x0f]: C0x0034.0x2.0
0x0992d4…099468 [0x10]: C0x0034.0x3.0
0x0992d4…099468 [0x11]: C0x0035.0x0.0
0x0992d4…099468 [0x12]: C0x0035.0x1.0
0x0992d4…099468 [0x13]: C0x0035.0x2.0
0x0992d4…099468 [0x14]: C0x0035.0x3.0
0x0992d4…099468 [0x15]: C0x0036.0x0.0
0x0992d4…099468 [0x16]: C0x0036.0x1.0
0x0992d4…099468 [0x17]: C0x0036.0x2.0
0x0992d4…099468 [0x18]: C0x0036.0x3.0
0x0992d4…099468 [0x19]: C0x0037.0x0.0
0x0992d4…099468 [0x1a]: C0x0037.0x1.0
0x0992d4…099468 [0x1b]: C0x0037.0x2.0
0x0992d4…099468 [0x1c]: C0x0037.0x3.0
0x0992d4…099468 [0x1d]: C0x0038.0x0.0
0x0992d4…099468 [0x1e]: C0x0038.0x1.0
0x0992d4…099468 [0x1f]: C0x0038.0x2.0
0x0992d4…099468 [0x20]: C0x0038.0x3.0
0x0992d4…099468 [0x21]: C0x0039.0x0.0
0x0992d4…099468 [0x22]: C0x0039.0x1.0
0x0992d4…099468 [0x23]: C0x0039.0x2.0
0x0992d4…099468 [0x24]: C0x0039.0x3.0
0x0992d4…099468 [0x25]: C0x003a.0x0.0
0x0992d4…099468 [0x26]: C0x003a.0x1.0
0x0992d4…099468 [0x27]: C0x003a.0x2.0
0x0992d4…099468 [0x28]: C0x003a.0x3.0
0x0992d4…099468 [0x29]: C0x003b.0x0.0
0x0992d4…099468 [0x2a]: C0x003b.0x1.0
0x0992d4…099468 [0x2b]: C0x003b.0x2.0
0x0992d4…099468 [0x2c]: C0x003b.0x3.0
0x0992d4…099468 [0x2d]: C0x003c.0x0.0
0x0992d4…099468 [0x2e]: C0x003c.0x1.0
0x0992d4…099468 [0x2f]: C0x003c.0x2.0
0x0992d4…099468 [0x30]: C0x003c.0x3.0
0x0992d4…099468 [0x31]: C0x003d.0x0.0
0x0992d4…099468 [0x32]: C0x003d.0x1.0
0x0992d4…099468 [0x33]: C0x003d.0x2.0
0x0992d4…099468 [0x34]: C0x003d.0x3.0
0x0992d4…099468 [0x35]: C0x003e.0x0.0
0x0992d4…099468 [0x36]: C0x003e.0x1.0
0x0992d4…099468 [0x37]: C0x003e.0x2.0
0x0992d4…099468 ]
0x0992d4…099468 }
0x099468…0995fc Dummy {f00=0x0030, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 11.0 81-08-19 870105041100 P : $ P =10,CORRECTION =9 NOT CORRECT B P REL 11.0 81-07-28 j 0 P =9,FOR MONITOR EXTENTS APLREL AND APLLAC * P =9,POINTS AT 1 WORD TO HIGH ADDRESS * P =8,BUILD REAL-TIME INTERRUPT
0x0995fc…099790 Dummy {f00=0x0030, f01=0x0190, f02=»RUPT TABLE x P REL 11.0 81-02-16 2 P =6,INIT UNUSED MMU ENTRIES,AND INIT ACBSTA . ( P AND ACBREL FOR MONITOR EXTENTS d P REL 11.0 81-01-26 . P =5,CHANGES IN CONDITIONAL ASSEMBLY WHEN ( P BUILDING COMMON DEVICE TABLES
0x099790…099924 Dummy {f00=0x0030, f01=0x0190, f02=» PRR 11.0 80-12-03 0 P =3,APPLICATION CONTROL BLOCK IS EXTENDED P WITH 1 WORD R P PRR 11.0 80-12-01 l , P =2,IF NO S-BLOCK IN CONF.DATA,PROCESS , P EVEN NEXT CREDIT APPL. CONVERT A $ P BINARY VALUE >99 TO ASCII
0x099924…099ab8 Dummy {f00=0x0030, f01=0x0190, f02=» WHEN BUILDING r P USER TASK TABLES P PRR 11.0 80-11-20 4 8 P =1,IF NO D-BLOCK IN CONF. DATA, SKIP DCT-CREATION T P PRR 11.0 80-11-19 P ENTRY SYSLDM P* 0 P* EXTERNALS DEFINED IN SYSTEM CONTROL TABLE P*
0x099ab8…099c4c Dummy {f00=0x0030, f01=0x0190, f02=»XTRN SCTCDT COMMON DEVICE TABLE ADDRESS $ P EXTRN SCTDCT DATA COMMUNICATION 0 . P EXTRN SCTDMI DM: INDEX BUFFER RECORD SIZE X ( P EXTRN SCTDMT DATA MANAGEMENT TASKS " P EXTRN SCTEFA END OF FREE AREA , P EXTRN SCTFWL FM: FILE WORK TABLE LENGTH
0x099c4c…099de0 Dummy {f00=0x0030, f01=0x018e, f02=»NT&SEGMENT TABLE v . P EXTRN SCTNFT DM/FM: NUMBER OF FILES/TASK ( P EXTRN SCTNOF DM/FM: NUMBER OF FILES J " P EXTRN SCTNOP NUMBER OF PAGES v 6 P EXTRN SCTNOS NUMBER OF SEGMENTS/TASK (BASIC ONLY) P EXTRN SCTOPT SYSTEM OPTIONS $ P EXTRN SCTPAG
0x099de0…099f74 (1, 194) Dummy {f00=0x0031, f01=0x018e, f02=» n $ P EXTRN SCTTCT TASK CONTROL TABLE P EJECT 0 P* > " P* EXTERNALS DEFINED IN MONTAB H P* n * P EXTRN FREQUE FREE PAGES QUEUE ANCHOR x " P EXTRN INTLT1 LOCAL CONNECTION $ P EXTRN INTRT1 REMOTE CONNECTION " P EXTRN INTVU1 VIDEO
0x099f74…09a108 Dummy {f00=0x0031, f01=0x0190, f02=» h ( P EXTRN INTSL1 SYNCHRONOUS CONNECTION P* 4 P* MISCELLANOEUS EXTERNALS > P* ` ( P EXTRN REL RELOCATION BASE IN SYSINI j , P EXTRN SCLASS SPECIAL DEVICE CLASS TABLE . P EXTRN TCLASS TERMINAL DEVICE CLASS TABLE " P EXTRN SYSLOD ST
0x09a108…09a29c Dummy {f00=0x0031, f01=0x0190, f02=»OUTINES P* P EXTRN ERROR ERROR HANDLING $ P EXTRN MOVE MOVE AREAS IN MEMORY > P EXTRN MULT MULTIPLY f ( P EXTRN PSW STORE PROGRAM STATUS WORD $ P EXTRN CMPADR COMPARE ADDRESSES . P EXTRN CONVRT CONVERT FROM ASCII TO BINARY * P
0x09a29c…09a430 Dummy {f00=0x0031, f01=0x0190, f02=»RN INBIMA INIT MMU ALLOCATION BIT MAP . P EXTRN PUSH SAVE REGISTER A1-A14 ON STACK . 2 P EXTRN POB RESTORE REGISTER A1-A14 FROM STACK ` 8 P EXTRN GETAPP GET NEXT APPLICATION OF SPECIFIED TYPE P EJECT P* P* TTAB DISPLACEMENTS P
0x09a430…09a5c4 Dummy {f00=0x0031, f01=0x0190, f02=»XTRN TTB:CB CURRENT SEGMENT BASE POINTER ( P EXTRN TTB:SP SEGMENT TABLE POINTER 0 ( P EXTRN TTB:SB SEGMENT BLOCK POINTER P EXTRN TTB:ID TASK ID P EXTRN TTB:ST STATUS " P EXTRN TTB:PP PENDING POINTER & P EXTRN TTB:PW PROGRAM STATUS WOR
0x09a5c4…09a758 Dummy {f00=0x0031, f01=0x018e, f02=»XTRN DWTCHP CHANNEL PARAMETER-1 P EXTRN DWTST STATUS ( P EXTRN DWTECB ECB ADDRESS D P EXTRN DWTOR ORDER f P EXTRN DWTADR ADDRESS BLOCK P EXTRN DWTTAB TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR P EXTRN DWTTQ TERMINA
0x09a758…09a8ec Dummy {f00=0x0031, f01=0x0190, f02=» P EXTRN DWTDEV DEVICE STATUS P EXTRN DWTECH ECHO DEVICE ( P EXTRN DWTSQ START OF QUEUE J P EJECT n P | P , P*************************************** , P* CONDITIONAL ASSEMBLY * , P****************************
0x09a8ec…09aa80 Dummy {f00=0x0031, f01=0x0190, f02=»LE WORK BLOCK HANDLING x * PEDM EQU 0 1 - EXTENDED DATA MANAGEMENT PX:A EQU 1 L PX:B EQU 1 ^ PX:C EQU 1 p PX:D EQU 1 PX:E EQU 1 PX:F EQU 1 PX:G EQU 1 PX:H EQU 1 PX:I EQU 1 PX:J EQU 1 PX:K EQU
0x09aa80…09ac14 (1, 195) Dummy {f00=0x0031, f01=0x0190, f02=» PFT80 EQU 00 PPLCL EQU 01 PPLCR EQU 01 , PVIDEO EQU 00 @ PTEDVCL EQU 01 T PSPDVCL EQU 01 j PNOEXMB EQU X:K PFM EQU 00 PDC EQU 01 P EJECT P* * P* COMMON DISPLACEMENTS AND CONSTANTS P* .
0x09ac14…09ada8 Dummy {f00=0x0031, f01=0x0190, f02=» p ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA 4 , PCONSTA EQU 2 START OF CONFIGURATION DATA f ( PDATEND EQU 34 END OF DDIV PROTOTYPE : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER * PFSTPAG E
0x09ada8…09af3c Dummy {f00=0x0031, f01=0x0190, f02=» ^ ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA 4 ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA b $ PM:REL EQU 16 RELOCATION CONSTANT , PSYSBUF EQU 28 START OF TEMPORARY BUFFER 2 PSWBFSA EQU 4 SWB-FILE START ADDRES
0x09af3c…09b0d0 Dummy {f00=0x0031, f01=0x0190, f02=»SAVE AREA 1 | $ PCOM02 EQU 42 COMMON SAVE AREA 2 $ PCOM03 EQU 44 COMMON SAVE AREA 3 < * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS d , PSWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG $ PCOM04 EQU 50 COMMON SAVE AREA 4 ( PDCBLK EQU 54 START OF DC CONF.
0x09b0d0…09b264 Dummy {f00=0x0031, f01=0x0190, f02=» 2 ADDRESS TO SCLASS & PCUTENT EQU 4 FIRST USER TASK ENTRY ( PFWTSIZ EQU 6 FWT AREA SIZE IN WORDS F , PAPCTAB EQU 8 CURRENT APPL CONTROL BLOCK r * PSFASAV EQU 10 SAVE START OF FREE AREA * PNBRTSK EQU 12 NUMBER OF TASKS IN CLASS & PTASKID EQU
0x09b264…09b3f8 Dummy {f00=0x0031, f01=0x0190, f02=» 22 TEMP INTTERRUPT TABLE $ PFWTSTA EQU 24 START OF FWT AREA " , PLIMIT EQU 26 CURRENT END OF SYSTEM AREA J ( PNBRCOM EQU 28 NUMBER OF COMMON TDC:S z PCLASID EQU 30 CLASS ID " PCONTYP EQU 32 CONNECTION TYPE ( PLCNBR EQU 34 LINE CONNECTION N
0x09b3f8…09b58c Dummy {f00=0x0031, f01=0x0190, f02=» EQU 44 WORK AREA 2 PWRK3 EQU 46 WORK AREA 3 PWRK4 EQU 48 WORK AREA 4 < " PBRDTAB EQU 50 BOARD CONF TABLE , PLCDSTA EQU 52 CONFIGURATION DATA POINTER 2 PNBRSDC EQU 54 NUMBER OF SPECIAL DEVICE CLASSES 4 PNBRTDC EQU 56 NUMBER OF TERMINAL
0x09b58c…09b720 Dummy {f00=0x0031, f01=0x0190, f02=» r * PNUMDTE EQU 64 NUMBER OF DTE:S DEFINED & PDTENAM EQU 66 SDTE IDENTIFICATION 6 $ PDTETYP EQU 68 TYPE OF CONNECTION ` 4 PNASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA * PNALNG EQU 72 LENGTH OF NETWORK ADDRESS , PDTENSA EQU 74 NO OF SUBADD
0x09b720…09b8b4 (1, 196) Dummy {f00=0x0031, f01=0x0190, f02=» APCTAB CURRENT APPLICATION CONTROL BLOCK 4 PSCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK 2 2 PEXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK j , PNBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS . PSWBBLK EQU FWTFLG START OF SWB CONF. DATA * PSWBNAM
0x09b8b4…09ba48 Dummy {f00=0x0031, f01=0x0190, f02=»ASKID NUMBER OF SWB:S P EJECT P* , 0 P* DISPLACEMENT IN APPLICATION CONTROL TABLE 6 P* j 0 PAPLREL EQU 18 APPLICATION RELOCATION BASE =6 t , PAPLIOE EQU 0 APPLICATION RESTART ADDRESS * PAPLLAC EQU 14 APPLICATION LOAD ADDRESS & PAP
0x09ba48…09bbdc Dummy {f00=0x0031, f01=0x0190, f02=»MP EQU 8 SEGMENT START MMU ENTRY . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT ( . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU Z " PAPLSWB EQU 2 SWB TABLE ADDRESS , PAPLSTA EQU 16 APPL PROGRAM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE 8 P
0x09bbdc…09bd70 Dummy {f00=0x0031, f01=0x0190, f02=»* P* CONSTANTS P* * PS:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS ( PSWBLEN EQU 4 LENGTH OF SWB V ( PSWBSEC EQU 6 DISPL. TO SECTOR LENGTH x 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB PUPNAME EQU 4 PROTOTYPE NAME $ PWBLEN EQU -4
0x09bd70…09bf04 Dummy {f00=0x0031, f01=0x0190, f02=»******************************* P ( P* TASK DEFINITION BLOCK: 4 PTDBBT EQU 0 1A BLOCK TYPE T ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS v , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL
0x09bf04…09c098 Dummy {f00=0x0031, f01=0x0190, f02=»DEF r $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 7 LINE CONNECTION 4 ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH V P* * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P* P* COMMON DEVICE DEF. BLOCK: P* PCDBBT EQU 0 1A BLOCK T
0x09c098…09c22c Dummy {f00=0x0031, f01=0x0190, f02=»USER WORK BLOCK TYPE DEF. BLOCK P* ( PUDBBT EQU 0 1A BLOCK TYPE 2 , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES T P* ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC E
0x09c22c…09c3c0 Dummy {f00=0x0031, f01=0x0190, f02=»SET t & PTYPOFS EQU 7 START OF TYPE RECORD , PNANSA EQU 2 NA-NSA RECORD QUALIFIER POS. 6 " PNAOFS EQU 3 START OF NA NUMBER f $ PNSAOFS EQU 4 START OF NSA RECORD & PDTEFIX EQU 8 FIX PART OF DTE BLOCK P EJECT P**************** P* SO
0x09c3c0…09c554 (1, 197) Dummy {f00=0x0031, f01=0x0190, f02=» EQU /200 NOT USED " PLMP3 EQU /100 MEMORY OVERFLOW , PLMP4 EQU /80 ERROR IN CONFIGURATION DATA @ PLMP5 EQU /40 NOT USED p PLMP6 EQU /20 NOT USED PLMP7 EQU /10 NOT USED PLMP8 EQU 8 NOT USED PLMP9 EQU 4 NOT USED PLMP10
0x09c554…09c6e8 Dummy {f00=0x0031, f01=0x0190, f02=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P* DATA [REL-ADDRESS] * J F P* * F P******************************************
0x09c6e8…09c87c Dummy {f00=0x0031, f01=0x0190, f02=»LACEMENTS P* $ PMXSBL EQU 6 SEGMENT BLOCK LENGTH " PMXNOX EQU 6 NUMBER OF EXTENTS D * PMX:NOS EQU 8 NUMBER OF SEGMENT TABLES j , PMX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH ( PMX:LEV EQU /0031 MONITOR TASK LEVEL & PMX:LEN EQU 4 MONITOR
0x09c87c…09ca10 Dummy {f00=0x0031, f01=0x0190, f02=»:NOX EQU MX:DA2+2 NUMBER OF MONITOR EXTENTS , PMX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH ! 4 . PMX:STA EQU 2 MONITOR EXTENT START ADDRESS ! d P EJECT ! P* ! " P* *********** ! " P* * PAGTAB * ! " P*
0x09ca10…09cba4 Dummy {f00=0x0031, f01=0x0190, f02=»DDRESS ! ~ & PPAGSB EQU 6 SEGMENT BLOCK ADDRESS " P EJECT " 8 P* " F & P* ************* " P & P* * SEGTAB * " z & P* ************* " P* " PSEGPB EQU 6 SEGMENT POINTER " " PSEGSB EQU 6
0x09cba4…09cd38 Dummy {f00=0x0031, f01=0x0190, f02=»ES * " p * P* ******************* # P* # < PBUFLEN EQU -4 # F PDEVIND EQU -2 # PDWTLEN EQU 6 # r PTDCDD1 EQU 5 # PTDCDD2 EQU 6 # ( PTDCLCN EQU 10 DISP. TO LINE CON. NBR # $ PSLL0 EQU /3940 SLL A1,0 CONSTANT # 8 PNBRDPS
0x09cd38…09cecc Dummy {f00=0x0031, f01=0x0190, f02=» * # : P* * $ 8 : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * $ v : P* * $ : P* IT IS ENTERED FROM
0x09cecc…09d060 Dummy {f00=0x0031, f01=0x0190, f02=» * $ n : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDX * % : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * % Z : P* * % : P*
0x09d060…09d1f4 (1, 198) Dummy {f00=0x0032, f01=0x0190, f02=»A1,REL+2 RELOCATION ROUTINE ENTRY % ( P AD A1,STKCOM+M:REL RELOCATE ADDRESS & * P CFR A8,A1 & V $ P LDKL A11,SYSLOD START OF SYSLOD & h * P LDKL A2,TCLASS GET ADDRESS TO TCLASS & . P CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? & $ P RF(E) NO:TCL YES:DUMMY
0x09d1f4…09d388 Dummy {f00=0x0032, f01=0x0190, f02=»A2,SCLASS GET ADDRESS TO SCLASS & , P CALL CHPTRS RELOCATE POINTERS IN SCLASS ' ( 0 P ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS ' X P RF CLEAR ' P EJECT ' 4 P*********************************************** ' 4 P* CHPTRS - CHANGE POINTERS IN TCLAS
0x09d388…09d51c Dummy {f00=0x0032, f01=0x0190, f02=» A11 - SYSLOD START ADDRESS ' ( P* A12 - RELOCATION CONSTANT ( * P* ( V 2 P* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS ( ` P* ( P* WORK REGISTER:A1-A7 ( P* ( P* SUBROUTINES: ( P* ( PCHPTRS EQU * ( P ADR A2,A1
0x09d51c…09d6b0 Dummy {f00=0x0032, f01=0x018e, f02=»QU * ( . P SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? ) P RF(Z) CHPT30 NO! ) > P ADK A3,2 NEXT ENTRY ) X $ P LDR* A5,A3 GET POINTER TO CLASS ) t P ADR A5,A12 RELOCATE ) P STR A5,A3 STORE ) $ P LDR* A6,A5 GET LENGTH OF CLASS ) PCHPT20 EQU * )
0x09d6b0…09d844 Dummy {f00=0x0032, f01=0x0190, f02=» ) r P LDR A9,A7 GET DWT-ADDRESS * " P CALL CMPADR COMPARE ADDRESSES * * P RB(G) CHPT20 DWT IN DRIVER! * P P ADR A7,A12 RELOCATE * t * P STR A7,A5 STORE RELOCATED DW-ADDRESS * " P LD A8,SCTOPT GET OPTION WORD * P ANKL A8,1 MMU IN SYSTEM? * P R
0x09d844…09d9d8 Dummy {f00=0x0032, f01=0x0190, f02=»EADY RELOCATED? * z P RB(NZ) CHPT20 YES! + P ADR A8,A12 RELOCATE + 4 . P ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED + P , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS + P RB CHPT20 + PCHPT30 EQU * + P RTN A14 + P EJECT + PCLEAR EQU * +
0x09d9d8…09db6c Dummy {f00=0x0032, f01=0x0190, f02=» + P SUK A1,2 , P CMR A1 , P CWR A1,A2 , * P RB(NE) CLRSYS , < P LDKL A1,CONMON , R P AD A1,STKCOM+M:REL , j P ABR A1 , P EJECT , 6 P************************************************** , 6 P* B:TCT - BUILD TASK CONTROL TABLE
0x09db6c…09dd00 Dummy {f00=0x0032, f01=0x0190, f02=»* ENTRY: , P* - P* EXIT: - P* - , & P* WORK REGISTERS: A1-A7,A11,A12 - 6 P* - ` P* SUBROUTINES: - j P* - . P* TASK CONTROL TABLE LAYOUT - . P* _________________________ - . P* I L
0x09dd00…09de94 (1, 199) Dummy {f00=0x0032, f01=0x018e, f02=» _________________________ - . P* I USER TASKS I . ( . P* __________________________ . Z P* . P EJECT . PB:TCT EQU * . * P LD A12,SCTSFA GET START OF FREE AREA . * P ST A12,SCTTCT STORE ADDRESS TO TC
0x09de94…09e028 Dummy {f00=0x0032, f01=0x0190, f02=» P* AND MONITOR SEGMENT TASKS / P* / ( ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB / 2 P RF(Z) BTCT20 NOT PRESENT! / ^ . P CALL MX:TDB GET FIRST MONITOR EXTENT TDB / 0 PBTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS / P RF(N) BTCT05 NO MORE! / ( P LDR
0x09e028…09e1bc Dummy {f00=0x0032, f01=0x0190, f02=»2 NO MORE! / P LDR* A2,A1 GET TASK ID 0 ( P CALL RESTCT RESERVE ENTRY IN TCTAB 0 2 P RB BTCT04 0 ^ 4 PBTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB 0 p > PBTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES 0 P RF(N) BTCT20 NO MORE! 0 ( P
0x09e1bc…09e350 Dummy {f00=0x0032, f01=0x0190, f02=»TCT06 NO MORE 0 P LDR* A2,A1 GET TASK ID 1 $ P CALL RESTCT RESERVE ENTRY TCTAB 1 6 P RB BTCT08 1 ^ P XIF 1 p P EJECT 1 | P* 1 . P* RESERVE ENTRIES IN TCTAB FOR USER TASKS 1 P* 1 PBTCT20 EQU * 1 6 P ST A12,STKEND+CUTENT SAVE CURRENT U
0x09e350…09e4e4 Dummy {f00=0x0032, f01=0x0190, f02=»UK A7,1 MORE APPLICATIONS? 1 P RF(N) BTCT70 NO! 2 " 6 P LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA 2 < * P AD A11,STKCOM+CONSTA RELOCATE POINTER 2 v 2 P ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY 2 P LCR A2,A11 GET BLOCK TYPE 2 ( P CCK A2,'TT'
0x09e4e4…09e678 Dummy {f00=0x0032, f01=0x0190, f02=» EQU * 2 P* 3 0 P* COMPUTE NUMBER OF TASK IN EACH TASK CLASS 3 P* 3 L PBTCT40 EQU * 3 V $ P CALL GETTSK GET NUMBER OF TASKS 3 j PBTCT50 EQU * 3 . P ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB 3 ( P SUK A1,1 MOORE TASKS IN THIS CLASS? 3 P RB(
0x09e678…09e80c Dummy {f00=0x0032, f01=0x0190, f02=»60 EQU * 3 , P ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK 4 P RB BTCT30 4 @ P* 4 R 4 P* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB 4 P* 4 0 PBTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA 4 " P SU A12,SCTTCT COMPUTE LENGTH 4 P ST* A12,SCTTCT
0x09e80c…09e9a0 Dummy {f00=0x0032, f01=0x0190, f02=» * 4 : P* RESTCT - RESERVE ENTRY IN TCTAB * 5 2 : P* =============================== * 5 p : P* * 5 : P* REFERENCED IN: B:TCT
0x09e9a0…09eb34 (1, 200) Dummy {f00=0x0032, f01=0x0190, f02=» * 5 h : P* A12 - NEXT FREE ENTRY IN TCTAB * 6 : P* * 6 T : P* EXIT: A12 - NEXT FREE ENTRY IN TCTAB * 6 : P* * 6
0x09eb34…09ecc8 Dummy {f00=0x0032, f01=0x0190, f02=»ROUTINES: * 6 : P* * 7 8 : P***************************************************** 7 v PRESTCT EQU * 7 P LDR A3,A12 GET END OF TCTAB 7 PREST10 SUK A3,2 NEXT ENTRY 7
0x09ecc8…09ee5c Dummy {f00=0x0032, f01=0x018e, f02=» FREEE ENTRY IN TCTAB 7 PREST20 RTN A14 RETURN 8 , PREST30 CWR* A2,A3 CHECK IF SAME TASK ID 8 < P RB(NE) REST10 NOT THE SAME 8 l " P RB REST20 COINCIDENCE: RETURN 8 P XIF 8 P IFF FM=0 8 P EJECT 8 8 P**************************************
0x09ee5c…09eff0 Dummy {f00=0x0032, f01=0x0190, f02=» 8 Z 8 P* ============================= * 9 8 P* * 9 D 8 P*************************************************** 9 8 P* * 9 8 P* REFERENCED IN
0x09eff0…09f184 Dummy {f00=0x0032, f01=0x0190, f02=»-FILES PER TASK * 9 p 8 P* SCTNOF - NUMBER OF GENERAL FM-FILES * : 8 P* SCTFWL - FILE WORK TABLE LENGTH IN * : X 8 P* BYTES * : 8 P* * :
0x09f184…09f318 Dummy {f00=0x0032, f01=0x0190, f02=» * : 8 P* WORK REGISTERS: A2,A3 * ; 0 8 P* * ; l 8 P* SUBROUTINES: ERROR,MULT * ; 8 P*
0x09f318…09f4ac Dummy {f00=0x0032, f01=0x0190, f02=» ; 8 P* FILE WORK TABLES. * < 8 P* SIZE OF THE AREA RESERVED IS GIVEN BY THE * < D 8 P* FORMULA: A=L*(G+N*T) * < 8 P* WHERE A=AREA SIZE IN BYTES * < 8 P* L=
0x09f4ac…09f640 Dummy {f00=0x0032, f01=0x0190, f02=»S PER TASK * < p 8 P* N=NUMBER OF USER TASKS * = 8 P* * = X 8 P*************************************************** = P EJECT = PB:FWT EQU * = & P LD* A2,SCTTCT GET LEN
0x09f640…09f7d4 (1, 201) Dummy {f00=0x0032, f01=0x0190, f02=»ASKS = v 2 P LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK > P CALL MULT MULTIPLY > B 0 P AD A3,SCTNOF 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 MULTIPL
0x09f7d4…09f968 Dummy {f00=0x0032, f01=0x0190, f02=»IZ SAVE FWT AREA SIZE IN WORDS > ~ ( P LD A2,SCTSFA GET START OF FREE AREA ? & , P ST A2,SCTFWT STORE ADDRESS TO FIRST FWT ? R 0 P ST A2,STKEND+FWTSTA SAVE START OF FWT AREA ? 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA ? . PFWT50 CW A2,STKEND+LIMIT MEMOR
0x09f968…09fafc Dummy {f00=0x0032, f01=0x0190, f02=»WT AREA ? | " P ADK A2,2 RESERVE ANOTHER WORD @ $ P SUK A3,1 DECREMENT WORD COUNTER @ 6 * P RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW @ ^ , P ST A2,SCTSFA UPDATE START OF FREE AREA @ P SUK A2,2 @ 0 P ST A2,STKEND+INTTAB SAVE ADDRESS TO T.I.T. @ PFWT70
0x09fafc…09fc90 Dummy {f00=0x0032, f01=0x0190, f02=»************************************ @ P* A , ( P* NUMBER OF BLOCKS TO BE GENERATED: A 6 ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) A b $ P* WHERE N IS A SYSTEM CONSTANT A $ P* DEFINED AT SYSTEM GENERATION A P* A P* A P* REFERENCED IN: SYSL
0x09fc90…09fe24 Dummy {f00=0x0032, f01=0x0190, f02=»S - POINTER TO FIRST BLOCK A P* B " $ P* WORK REGISTERS: A1,A2,A7,A12 B , P* B T P* SUBROUTINES: BLKGEN B ^ P* B ~ P EJECT B PMONBLK EQU * B P LDK A1,0 B & P LD A12,SCTSFA START OF FREE AREA B . P ST A12,FREQUE SAVE POINTER TO FIR
0x09fe24…09ffb8 Dummy {f00=0x0032, f01=0x0190, f02=» NUMBER OF BLOCKS PER TASK TO GENERATE B P* C . P LD A2,SCTBLK C 8 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA C N PMON:10 EQU * C P SUK A7,2 MOORE TASKS? C P RF(Z) MON:20 NO C P CALL BLKGEN C P RB MON:10 C PMON:20 EQU * C P
0x09ffb8…0a014c Dummy {f00=0x0032, f01=0x0190, f02=» C P CALL BLKGEN D P* D P* GENERATE END BLOCK D & P* D D P STR A1,A12 D N P ST A1,2,A12 D b P ST A1,4,A12 D v P* D F P* CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A D 0 P* IF NOT - USE LAST MONITOR BLOCK AS BUFF
0x0a014c…0a02e0 Dummy {f00=0x0032, f01=0x018e, f02=»BUFFER SIZE D 0 P ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE E P ADKL A12,2 E H 0 P ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS E PMON:30 EQU * E P ADKL A12,6 E P E * P ST A12,SCTSFA UPDATE END OF FREE AREA E P RTN A14 E P EJECT E
0x0a02e0…0a0474 (1, 202) Dummy {f00=0x0033, f01=0x0190, f02=» E h P* F P* REFERENCED IN: MONBLK F P* F 4 P* ENTRY: A1=0 F > 4 P* A2 - NUMBER OF BLOCKS TO BE GENERATED F V $ P* A12 - NEXT FREE ENTRY F P* F P* EXIT: A1=0 F " P* A12 - NEXT FREE ENTRY F P* F P*
0x0a0474…0a0608 Dummy {f00=0x0033, f01=0x0190, f02=» -------------------- F 0 P* I DATA *+6 I G * 0 P* -------------------- G ^ 0 P* I DATA 0 I G 0 P* -------------------- G 0 P*
0x0a0608…0a079c Dummy {f00=0x0033, f01=0x0190, f02=»DR A3,A2 G PBLK:10 EQU * H P RF(Z) BLKEX H & $ P LDK A4,3 NUMBER OF WORDS/BLOCK H : 0 PBLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? H b P RF(NE) BLK:30 NOT YET! H * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW H P CALL ERROR H * PBLK:30 ADKL A12,
0x0a079c…0a0930 Dummy {f00=0x0033, f01=0x0190, f02=» ST A1,-2,A12 H P SUK A3,1 I P RB BLK:10 I ( PBLKEX EQU * I : P RTN A14 I N P IFF EDM=0 I ^ P EJECT I p H P******************************************************************* I ~ H P*
0x0a0930…0a0ac4 Dummy {f00=0x0033, f01=0x0190, f02=»========== * I b H P* * J H P* REFERENCED IN: SYSLDM * J j H P* * J H P* ENT
0x0a0ac4…0a0c58 Dummy {f00=0x0033, f01=0x0190, f02=»* J N H P* EXIT: * K H P* * K V H P* WORK REGISTERS: A4 * K H P*
0x0a0c58…0a0dec Dummy {f00=0x0033, f01=0x0190, f02=» * K H P******************************************************************* L B PB:MXTT EQU * L ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB L P RF(Z) BMX99 NOT PRESENT L 0 P LDK A4,2 DISPLACEMENT TO
0x0a0dec…0a0f80 Dummy {f00=0x0033, f01=0x0190, f02=» START-ADDRESS TABLE L t " P RF(NZ) BMX05 ALREADY DEFINED M $ P LD A4,SCTSFA START OF FREE AREA M B 0 P ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE M j 4 P LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE M & P ST* A4,SCTMOX STORE IN FIRST WORD M $ P SUK A4,
0x0a0f80…0a1114 (1, 203) Dummy {f00=0x0033, f01=0x0190, f02=»K A3,1 MORE EXTENTS? M P RF(N) BMX03 NO N * P ADK A2,2 ADDRESS NUMBER OF TASK ID:S N 4 ( P LDR* A6,A2 GET NUMBER OF TASK ID:S N b ( P ADR* A4,A2 ADD NUMBER OF TASK ID:S N " PBMX02 SUK A6,1 MORE TASK ID:S? N P RB(N) BMX01 NO N " P ADK A2,2 ADDRES
0x0a1114…0a12a8 Dummy {f00=0x0033, f01=0x0190, f02=»D A4,SCTSFA END OF START-ADDRESS TABLE N , P ST A4,SCTSFA UPDATE START OF FREE AREA O . P LDR A11,A4 GET TABLE END O ^ " P LDR A9,P GET CURRENT LOCATION O " P CALL CMPADR COMPARE ADDRESSES O P RF(NG) BMXS05 OK O * P LDKL A1,LMP3 INDICATE MEMORY OVER
0x0a12a8…0a143c Dummy {f00=0x0033, f01=0x0190, f02=» NUMBER OF EXTENTS O x P RF(N) BMX99 NO MORE P * P LD A12,SCTSFA GET START OF FREE AREA P 6 6 P ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK P d 4 P ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK P , P ST A12,SCTSFA UPDATE START OF FREE AREA P " P A
0x0a143c…0a15d0 Dummy {f00=0x0033, f01=0x0190, f02=»N) BMX10 NO MORE P P ADK A1,2 NEXT TASK ID Q P CALL MXTTAB Q 6 P RB BMX20 Q J PBMX99 RTN A14 RETURN Q P EJECT Q x H P******************************************************************** Q H P*
0x0a15d0…0a1764 Dummy {f00=0x0033, f01=0x0190, f02=»=================== * Q j H P* * R & H P* ENTRY: A1 -POINTER TO TASK ID IN MXSTAB * R r H P* A5 - POINTER TO MONITOR EXTENT BLOCK * R H
0x0a1764…0a18f8 Dummy {f00=0x0033, f01=0x0190, f02=» * R V H P* EXIT: A1 - POINTER TO TASK ID IN MXSTAB * S H P* A5 - POINTER TO MONITOR EXTENT BLOCK * S ^ H P* * S H P* WORK REGISTER:
0x0a18f8…0a1a8c Dummy {f00=0x0033, f01=0x0190, f02=» SUBROUTINES: IMXTT,STRMOX,INBIMA * S H P* * T J H P******************************************************************** T P EJECT T PMXTTAB EQU * T , P MSR
0x0a1a8c…0a1c20 Dummy {f00=0x0033, f01=0x0190, f02=»GET TASK ID T P CALL STRMOX STORE IN MOXTAB U & P LD A2,MX:STA,A5 GET START ADDRESS U 8 4 P LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6 U b , P ST A2,APLSTA,A3 STORE START ADDRESS =6 U P CALL STRMOX STORE IN MOXTAB U " P LDR* A2,A5 GET EXTENT ADD
0x0a1c20…0a1db4 (1, 204) Dummy {f00=0x0033, f01=0x0190, f02=» U & P ADK A2,12 5 WORDS FOR DEBUGGER =9 V 0 P ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA V 2 : P LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK V f P SUK A2,2 =10 V 8 P ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART V . P ST A2,APLREL,A3 S
0x0a1db4…0a1f48 Dummy {f00=0x0033, f01=0x0190, f02=»A3,TTB:AP,A12 STORE EXTENT CONTROL BLOCK ADDRESS V " P LD A2,SCTOPT GET OPTION WORD W 8 P ANK A2,/20 EMM? W ^ P RF(Z) MXTT20 NO W v & P LD A2,MX:LEN,A5 GET EXTENT LENGTH W P ST A2,MAPLEN,A13 SAVE W & P ST A12,TTAB,A13 SAVE TTAB ADDRESS W P CALL IN
0x0a1f48…0a20dc Dummy {f00=0x0033, f01=0x018e, f02=»*************** W r 2 P* * X 2 P* STRMOX - STORE START ADDRRESS IN MOXTAB * X N 2 P* ======================================= * X 2 P* * X 2 P* REFERENCED IN: MXTTAB
0x0a20dc…0a2270 Dummy {f00=0x0033, f01=0x0190, f02=» 2 P* * Y 2 P* EXIT: * Y : 2 P* * Y p 2 P* WORK REGISTERS: * Y 2 P*
0x0a2270…0a2404 Dummy {f00=0x0033, f01=0x0190, f02=»*************************** Y ~ PSTRMOX EQU * Z $ & P LD* A3,SCTMOX GET CURRENT LENGTH Z 8 , P AD A3,SCTMOX ADDRESS TO NEXT FREE ENTRY Z b " P STR A2,A3 STORE START ADDRESS Z P IM* SCTMOX INCREMENT LENGTH Z P IM* SCTMOX TWICE Z P RTN A14 RETURN Z
0x0a2404…0a2598 Dummy {f00=0x0033, f01=0x0190, f02=» 8 P* IMXTT - INIT MMU TABLE FOR MONITOR EXTENT TASK * [ 8 P* ============================================== * [ @ 8 P* * [ | 8 P* REFERENCED IN: MXTTAB * [ 8 P*
0x0a2598…0a272c Dummy {f00=0x0033, f01=0x0190, f02=» * [ l 8 P* * 8 P* EXIT: * T 8 P* * 8 P* WORK REGISTERS: A2,A3,A4,A9,A11 * 8 P
0x0a272c…0a28c0 Dummy {f00=0x0033, f01=0x0190, f02=» * 8 P**************************************************** ] , P EJECT ] h PIMXTT EQU * ] v P LDR A2,A12 GET TTAB ENTRY ] * P ADKL A2,TTB:MT GET START OF MMU TABLE ] . P LDR* A3,A5 GET PHYSICAL ADDRESS TO EXTENT ]
0x0a28c0…0a2a54 (1, 205) Dummy {f00=0x0033, f01=0x0190, f02=» & P LDKL A9,/1000 PHYSICAL PAGE SIZE ^ P SUR A9,A4 SAVE ^ . ( P LD A11,MX:LEN,A5 GET EXTENT LENGTH ^ F 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? ^ r P RF(G) IMX10 NO! ^ & P XRR A11,A11 INDICATE SINGLE ENTRY ^ P RF IMX20 ^ < PIMX10 SUR A11,
0x0a2a54…0a2be8 Dummy {f00=0x0033, f01=0x0190, f02=» ADK A2,2 INCREMENT ENTRY POINTER ^ " P ADKL A11,0 ONE ENTRY ENOUGTH? _ * P RF(Z) IMX99 YES! _ P P RF(NN) IMX30 <32KB _ j $ P SUKL A11,/1000 DECREMENT LENGTH _ P RB IMX20 _ & PIMX30 STR A3,A2 STORE PAGE ADDRESS _ ( P ADKL A3,/400 INCREMENT PAGE A
0x0a2be8…0a2d7c Dummy {f00=0x0033, f01=0x0190, f02=» " P LDR A4,A12 GET TTAB ENTRY =6 ` . P ADKL A4,TTB:MT+32 GET END OF MMU-TABLE =6 ` * P LDKL A3,/FC00 =6 ` PIMX100 EQU * =6 ` v , P CWR A4,A2 ENTRIES LEFT IN MMU-TABLE? =6 ` P RF(E) IMX110 NO! =6 ` 0 P STR A3,A2 STORE PAGE ERROR IN MMU-ENTRY =6 `
0x0a2d7c…0a2f10 Dummy {f00=0x0033, f01=0x0190, f02=»****************************************** ` < P* * a 2 < P* B:MSEG - BUILD MONITOR TASK SEGMENT TABLES & TTABS * a r < P* ================================================== * a < P*
0x0a2f10…0a30a4 Dummy {f00=0x0033, f01=0x0190, f02=» * a r < P* ENTRY: * b " < P* * b b < P* EXIT: * b < P*
0x0a30a4…0a3238 Dummy {f00=0x0033, f01=0x018e, f02=» * b b < P* SUBROUTINES: MX:MST,MX:STD,BMSTAB,CHKTAD,BMXSTT * c < P* * c R < P******************************************************** c P EJECT c PB:MSEG EQU * c 2 P CALL MX:MST FIND FI
0x0a3238…0a33cc Dummy {f00=0x0033, f01=0x0190, f02=» : P LDR A8,A1 SAVE POINTER TO FIRST MONITOR SEGMENT TABLE d 6 P CALL MX:STD FIND FIRST MONITOR SEGMENT TABLE TASK d B P DEFINITION BLOCK d | > PBMSG10 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES d P RF(N) BMSG99 NO MORE! d < P CM STKEND+SCBTA
0x0a33cc…0a3560 Dummy {f00=0x0033, f01=0x0190, f02=»R OF SEGMENTS d l , P CALL BMSTAB BUILD MONITOR SEGMENT TABLE e . P LDR* A7,A1 GET NUMBER OF TASKS IN SEGTAB e F PBMSG20 ADK A1,2 NEXT TASK ID e x , P SUK A7,1 DECREMENT NUMBER OF TASK ID:S e P RB(N) BMSG10 NO MORE! e . P CALL CHKTAD CHECK IF TASK ALR
0x0a3560…0a36f4 (1, 206) Dummy {f00=0x0034, f01=0x0190, f02=»CBTAB GET SEGMENT CONTROL BLOCK e 2 P RF(NZ) BMSG25 SEGMENT CONTROL BLOCK GENERATED f ( * P LD A12,SCTSFA GET START OF FREE AREA f ^ P LDR A10,A12 SAVE f 6 P ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK f , P ST A12,SCTSFA UPDATE START OF FREE AREA
0x0a36f4…0a3888 Dummy {f00=0x0034, f01=0x0190, f02=» < P LD A10,TTB:AP,A12 GET ADDRESS TO SEGMENT CONTROL BLOCK g 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE g D * P ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES g z 2 P ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES g ( P LDKL A2,/F000 END OF LOGICAL MEMORY g ,
0x0a3888…0a3a1c Dummy {f00=0x0034, f01=0x0190, f02=» g p P RF(NZ) BMSG40 NO! h & P ADKL A2,/1000 SAVE ONE MMU ENTRY h " : PBMSG40 ST A2,APLLAP,A10 STORE IN SEGMENT CONTROL TABLE h L P SRL A2,12 MMU TABLE ENTRY h $ P LDK A3,16 NUMBER OF MMU ENTRIES h . P SUR A3,A2 COMPUTE NUMBER OF PAGE ENTRIES h 4 P S
0x0a3a1c…0a3bb0 Dummy {f00=0x0034, f01=0x0190, f02=»DKL A3,TTB:CB DISPL TO END OF MMU TABLE h 4 P ST A3,APLMMP,A10 STORE IN SEGMENT CONTROL TABLE i 0 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE i h 0 P ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES i 2 P ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIPLES i ( P
0x0a3bb0…0a3d44 Dummy {f00=0x0034, f01=0x0190, f02=»L) BMSG20 NO i * P ST A3,SCTPSZ UPDATE MAX SEGMENT SIZE j P RB BMSG20 j B PBMSG99 RTN A14 RETURN j T P EJECT j r > P********************************************************** j > P* * j > P*
0x0a3d44…0a3ed8 Dummy {f00=0x0034, f01=0x0190, f02=» * j > P* REFERENCED IN: B:MSEG * k : > P* * k | > P* ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS * k > P*
0x0a3ed8…0a406c Dummy {f00=0x0034, f01=0x0190, f02=» - SEGMENT TABLE ADDRESS * k > P* * l 6 > P* WORK REGISTERS: A2,A3,A9,A11 * l x > P* * l > P* SUBROUTIN
0x0a406c…0a4200 Dummy {f00=0x0034, f01=0x0190, f02=»****************************************** l P EJECT m 2 PBMSTAB EQU * m @ * P STR A1,A15 SAVE REGISTER A1 ON STACK m T ( P LD A5,SCTSFA GET START OF FREE AREA m * P LD A2,SCTIPL GET PROGRAM LOAD DEVICE m & P STR A2,A5 STORE IN SEGMENT TABLE m * P A
0x0a4200…0a4394 (1, 207) Dummy {f00=0x0034, f01=0x0190, f02=»T TABLE m v < P ADS A9,STKCOM+TOTSGM INCREMENT TOTAL NUMBER OF SEGMENTS n " P ADK A5,2 SEGMENT TABLE ENTRY n P P LDR A3,A5 SAVE n v P* n P* BUILD SEGMENT BLOCK 0 n P* n ( P LDKL A2,/8400 STATUS FOR SEGMENT 0 n ( P STR A2,A3 STORE IN SEGMEN
0x0a4394…0a4528 Dummy {f00=0x0034, f01=0x0190, f02=»END OF SYSTEM AREA n x * P LDR A11,A3 GET END OF SEGMENT BLOCKS o " P CALL CMPADR COMPARE ADDRESSES o H P RF(NG) BMST25 OK o n * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW o P CALL ERROR o & PBMST25 LDR* A2,A8 GET SEGMENT TYPE o P SRL A2,8 ISOLATE o
0x0a4528…0a46bc Dummy {f00=0x0034, f01=0x0190, f02=» o z P RF(Z) BMST40 NO! p P* p " * P* DISC PAGING & DISC RESIDENT SEGMENT p , P* p Z ( P LD A1,SCTMXS GET ADDRESS TO MXSTAB p d 0 P LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31 p 0 P LD A1,MX:DA1,A1 GET DISC ADDRESS BITS 0-15 p $ P LD A10,2,A8 GET
0x0a46bc…0a4850 Dummy {f00=0x0034, f01=0x0190, f02=» A1,1 ADD CARRY p P RF(P) BMST30 NOT OVERFLOW q ( P LDKL A1,LMP10 DISC ADDRESS OVERFLOW q : P CALL ERROR q f 4 PBMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT q z 4 P STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 q 6 P ST A2,2,A3 STORE SEGMENT DISC
0x0a4850…0a49e4 Dummy {f00=0x0034, f01=0x0190, f02=» STATUS FOR DISC RESIDENT SEGMENT q | & P STR A2,A3 STORE IN SEGMENT BLOCK r * ( PBMST50 LD A9,4,A8 GET SEGMENT LENGTH r T 4 P LD A11,STKEND+MAXSGM GET MAXIMUM SEGMENT LENGTH r P CALL CMPADR r . P RF(NL) BMST55 CURRENT SEGMENT NOT GREATER r 6 P ST A9,STK
0x0a49e4…0a4b78 Dummy {f00=0x0034, f01=0x0190, f02=»NTER IN MXSTAB r x 0 P LD A1,STKEND+SGMCNT GET NUMBER OF SEGMENTS s P SUK A1,1 s J P RB(NZ) BMST20 MORE SEGMENTS s " P ADK A3,8 END OF SEGMENT TABLE s 2 PBMST60 ST A3,SCTSFA UPDATE START OF FREE AREA s $ P LDR* A1,A15 RESTORE REGISTER A1 s P RTN
0x0a4b78…0a4d0c Dummy {f00=0x0034, f01=0x0190, f02=» * s f @ P* CHKTAD - CHECK IF TASK ALREADY DEFINED * t @ P* ====================================== * t ^ @ P* * t @ P* REFERENCED IN: B:MSEG
0x0a4d0c…0a4ea0 Dummy {f00=0x0034, f01=0x0190, f02=» * t n @ P* FOR MONITOR SEGMENT TASK * u " @ P* * u f @ P* EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED * u @ P* A12 = 0 IF TASK
0x0a4ea0…0a5034 (1, 208) Dummy {f00=0x0034, f01=0x0190, f02=» * u v @ P* * v * @ P* SUBROUTINES: PSW * v n @ P* * v @ P******************
0x0a5034…0a51c8 Dummy {f00=0x0034, f01=0x0190, f02=»TCT END OF TCTAB v . PCHKT20 SUK A2,2 DECREMENT POINTER IN TCTAB w " P CW A2,SCTTCT START OF TCTAB? w J * P RF(E) CHKT30 YES: ALL TASKS CHECKED! w p $ P LDR* A3,A2 GET POINTER TO TTAB w P LD A3,TTB:ID,A3 GET TASK ID w ( P CWR* A3,A1 EQUAL TO CURRENT T
0x0a51c8…0a535c Dummy {f00=0x0034, f01=0x0190, f02=»D w h . PCHKT50 CFI A14,PSW,A13 STORE PSW ON STACK x P RTN A14 x < P EJECT x L H P******************************************************************* x Z H P* * x H P* BMXSTT - BU
0x0a535c…0a54f0 Dummy {f00=0x0034, f01=0x0190, f02=» * x H P* REFERENCED IN: MXTTAB,B:MSEG * y F H P* * y H P* ENTRY:
0x0a54f0…0a5684 Dummy {f00=0x0034, f01=0x0190, f02=»SS * y v H P* * z 2 H P* WORK REGISTERS: A2,A9,A10,A11 * z ~ H P*
0x0a5684…0a5818 Dummy {f00=0x0034, f01=0x0190, f02=» * z b H P******************************************************************* { PBMXSTT EQU * { j * P LD A12,SCTSFA GET START OF FREE AREA { ~ , P LDKL A10,TTB:TD+2 STANDARD TTAB LENGTH { " P LD A2,SCTOPT GET OPTION WORD { P ANK A
0x0a5818…0a59ac Dummy {f00=0x0034, f01=0x0190, f02=»LUDE LENGTH { | P RF BMXS40 | ( PBMXS20 LD A2,SCTOPT GET OPTION WORD | & P ANK A2,1 MMU OPTION? | R P RF(Z) BMXS30 NO! | p . P SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB | $ P SUKL A10,TTB:MT INCLUDE LENGTH | P RF BMXS40 | ( PBMXS30 LD A2,SCTOP
0x0a59ac…0a5b40 Dummy {f00=0x0034, f01=0x0190, f02=»UKL A10,TTB:CB INCLUDE IN LENGTH | 4 PBMXS40 AD A10,SCTSFA COMPUTE START OF FREE AREA } ( P LDR A9,A10 SAVE } ` 0 P LD A11,STKEND+LIMIT GET END OF SYSTEM AREA } x " P CALL CMPADR MEMORY OVERFLOW? } P RF(NL) BMXS50 NO! } P LDKL A1,LMP3 } ( P CALL
0x0a5b40…0a5cd4 (1, 209) Dummy {f00=0x0034, f01=0x0190, f02=»D A2,SCTTCT COMPUTE NEXT FREE ENTRY } " P STR A12,A2 STORE TTAB ADDRESS ~ , ( P IM* SCTTCT INCREMENT CURRENT LENGTH ~ R P IM* SCTTCT TWICE ~ ~ P LDR* A2,A1 GET TASK ID ~ $ P ST A2,TTB:ID,A12 STORE IN TTAB ~ * P LDKL A2,MX:LEV GET MONITOR TASK LEVEL ~
0x0a5cd4…0a5e68 Dummy {f00=0x0034, f01=0x0190, f02=»ATUS WORD ~ n : P LD A2,STKEND+EXCTAB GET EXTENT CONTROL BLOCK ADDRESS $ P ST A2,TTB:AP,A12 STORE IN TTAB P P LDK A2,2 x 0 P ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH P RTN A14 RETURN P EJECT B P************************************
0x0a5e68…0a5ffc Dummy {f00=0x0034, f01=0x0190, f02=»=================== * p B P* * & B P* REFERENCED IN: MX:MST * l B P* * B P* ENTRY: SCTMX
0x0a5ffc…0a6190 Dummy {f00=0x0034, f01=0x0190, f02=» - POINTER TO FIRST MONITOR EXTENT BLOCK * B P* A5 - POINTER TO NUMBER OF SEGTABS * : B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MONITOR EXTENTS *
0x0a6190…0a6324 Dummy {f00=0x0034, f01=0x0190, f02=» R B P* * B P* SUBROUTINES: * N B P* * B P**********************************************
0x0a6324…0a64b8 Dummy {f00=0x0034, f01=0x018e, f02=»99 NOT PRESENT * P LD A2,MX:NOS,A7 GET NUMBER OF SEGTABS P LDR A6,A2 SAVE D & P LDR A1,A7 SAVE ADDRESS TO MXSTAB * P LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS , P ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS P LDR A5,A1 SAVE . PMEB10 ADK A1
0x0a64b8…0a664c Dummy {f00=0x0034, f01=0x0190, f02=» B P************************************************************** B P* * J B P* MX:MST - GET FIRST MONITOR SEGMENT TABLE * B P* =======================================
0x0a664c…0a67e0 Dummy {f00=0x0034, f01=0x0190, f02=» * b B P* * B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB * ^ B P* * B P* EXIT: A1 - POINTER TO FIRS
0x0a67e0…0a6974 (1, 210) Dummy {f00=0x0035, f01=0x0190, f02=»ONITOR SEGMENT TABLES * v B P* A7 - NUMBER OF MONITOR EXTENTS * , B P* * r B P* WORK REGISTERS: A2 * B P*
0x0a6974…0a6b08 Dummy {f00=0x0035, f01=0x0190, f02=» * B P************************************************************** @ P EJECT PMX:MST EQU * : P CALL MX:MEB GET POINTER TO FIRST MONITOR EXTENT BLOCK 2 P LDR A2,A7 GET NUMBER OF MONITOR E
0x0a6b08…0a6c9c Dummy {f00=0x0035, f01=0x0190, f02=»MX:EBL ADDRESS NEXT MONITOR EXTENT BLOCK P RB MST10 0 PMST99 RTN A14 RETURN B P EJECT ^ B P************************************************************* l B P* * B P* MX:TDB - GET
0x0a6c9c…0a6e30 Dummy {f00=0x0035, f01=0x0190, f02=» * B P* REFERENCED IN: MX:STD * : B P* * B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB *
0x0a6e30…0a6fc4 Dummy {f00=0x0035, f01=0x0190, f02=» R B P* DEFINITION BLOCK * B P* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * N B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MONITOR EXTENTS
0x0a6fc4…0a7158 Dummy {f00=0x0035, f01=0x0190, f02=» * f B P* * B P* SUBROUTINES: MX:MST * b B P* * B P**************************
0x0a7158…0a72ec Dummy {f00=0x0035, f01=0x018e, f02=»2,A6 GET NUMBER OF SEGMENT TABLES . PTDB10 ADK A5,2 ADDRESS NUMBER OF SEGMENTS * * P SUK A2,1 DECREMENT NUMBER OF SEGTABS P RF(N) TDB99 NO MORE SEGTABS & P LDR* A3,A5 GET NUMBER OF SEGMENTS 0 PTDB20 SUK A3,1 DECREMENT NUMBER OF SEGMENTS
0x0a72ec…0a7480 Dummy {f00=0x0035, f01=0x0190, f02=» z P EJECT B P************************************************************** B P* * B P* MS:STD - GET FIRST MONITOR SEGMENT TASK DEFINITION BLOCK * B P* =============================
0x0a7480…0a7614 (1, 211) Dummy {f00=0x0035, f01=0x0190, f02=» * t B P* * * B P* ENTRY: * p B P* * B P* EXIT: A1
0x0a7614…0a77a8 Dummy {f00=0x0035, f01=0x0190, f02=» A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * > B P* A7 - NUMBER OF MONITOR EXTENTS * B P* *
0x0a77a8…0a793c Dummy {f00=0x0035, f01=0x0190, f02=» * V B P* SUBROUTINES: MX:TDB * B P* * R B P************************************************************** P EJECT PMX:STD EQU * 2 P CALL MX
0x0a793c…0a7ad0 Dummy {f00=0x0035, f01=0x0190, f02=» EXTENTS f P RF(N) STD99 NO MORE EXTENTS . P LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT 4 " PSTD20 ADK A1,2 ADDRESS TASK ID f ( P SUK A3,1 DECREMENT NUMBER OF TASKS P RB(NN) STD20 MORE TASKS P RB STD10 NEXT EXTENT PSTD99 RTN A14 RETU
0x0a7ad0…0a7c64 Dummy {f00=0x0035, f01=0x0190, f02=»****** x P* P* REFERENCED IN: SYSLDM P* 8 P* ENTRY: B P* T 8 P* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES ^ P* P* WORK REGISERS: A1-A12 P* 8 P* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC
0x0a7c64…0a7df8 Dummy {f00=0x0035, f01=0x0190, f02=»ALLOCATION I z * P* I BIT MAP (4 WORDS) I * P* I______________________I F * P* TTB:MT I MMU I t * P* I TABLE I * P* I 16 I * P*
0x0a7df8…0a7f8c Dummy {f00=0x0035, f01=0x018e, f02=» I______________________I * P* TTB:SP I SEGTAB POINTER I & * P* I______________________I T * P* TTB:SB I SEGM. BLOCK POINTER I * P* I----------------------I * P* TTB:AP I ACB POINTER I
0x0a7f8c…0a8120 Dummy {f00=0x0035, f01=0x0190, f02=» h * P* TTB:ID I TASK IDENTIFICATION I * P* ------------------------ 6 * P* TTB:ST I STATUS/LEVEL I d * P* ------------------------ * P* TTB:PP I PENDING QUEUE I * P* ------------
0x0a8120…0a82b4 (1, 212) Dummy {f00=0x0035, f01=0x0190, f02=»TCH ADDRESS I x * P* ------------------------ * P* I REGISTER I D * P* I SAVE I r * P* I AREA I * P* I 14 I * P*
0x0a82b4…0a8448 Dummy {f00=0x0035, f01=0x0190, f02=» I SAVE01URATION I * P* I TABLE I $ * P* : : R * P* : : * P* I______________________I 2 P* TASK SAVE01URATION TABLE LAYOU
0x0a8448…0a85dc Dummy {f00=0x0035, f01=0x0190, f02=»---------------------- z 0 P* I INDEX/FILCODE I 0 P* ------------------------------ R 0 P* I DWT-ADDRESS I 0 P* ------------------------------ 0 P* :
0x0a85dc…0a8770 Dummy {f00=0x0035, f01=0x0190, f02=» I INDEX/FILECODE I 0 P* ------------------------------ . 0 P* I DWT-ADDRESS I b 0 P* ------------------------------ P EJECT PB:TT EQU * & P CALL FSTAPL GET FIRST APPLICA
0x0a8770…0a8904 Dummy {f00=0x0035, f01=0x0190, f02=» d * P ST P,STKEND+WRK1 SAVE PROGRAM COUNTER : P ST A11,STKEND+LCDSTA SAVE CONFIGURATION DATA POINTER 6 * P ST P,STKEND+WRK2 SAVE PROGRAM COUNTER t P* ( P* GET NUMBER OF TASKS IN THIS CLASS P* P CALL GETTSK . P ST A1,STKEND+NBRT
0x0a8904…0a8a98 Dummy {f00=0x0035, f01=0x0190, f02=»5,8 MOVE TO LEFT BYTE * P LC A5,TDBID+5,A11 GET SECOND ID DIGIT 2 P ST A5,STKEND+TASKID SAVE TASK ID START VALUE L P* " P* CHECK IF CREDIT APPLICATION P* 6 P LD A5,STKEND+APCSTA GET APPLICATION CONTROL BLOCK * P LD A5,APLTYP,A5 G
0x0a8a98…0a8c2c Dummy {f00=0x0035, f01=0x0190, f02=»ATCH VALUE z P* , P LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL P SLL A5,8 MOVE TO LEFT BYTE L . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL p $ P CALL GETTCL GET TCL START VALUE P ST A5,STKEND+TCLSAV SAVE PBTT21 EQU * P EJECT
0x0a8c2c…0a8dc0 Dummy {f00=0x0035, f01=0x018e, f02=» 0 P LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL " P CALL CONVRT CONVERT TO BINARY 8 P ST A1,STKEND+TSKLEV SAVE ^ P EJECT P* B P* COMPUTE SIZE OF CONFIGURATION DEPENDENT PART OF TASK TABLE P* & P LDKL A10,TTB:TD+4 STANDARD LENG
0x0a8dc0…0a8f54 (1, 213) Dummy {f00=0x0035, f01=0x018e, f02=» P RF(NZ) BTT22 NO! 0 P SUKL A10,TTB:AM+2 INCLUDE BIT MAP IN LENGTH . P SUKL A12,TTB:AM RESERV SPACE FOR BIT MAP R P RF BTT30 PBTT22 LD A5,SCTOPT P SRC A5,1 MMU PAGING? P RF(NN) BTT25 NO . P SUKL A10,TTB:MT+2 16+2 WORD EXTRA
0x0a8f54…0a90e8 Dummy {f00=0x0035, f01=0x0190, f02=» P RF(NN) BTT30 NO! 6 P SUKL A10,TTB:CB+2 FOUR WORD EXTRA IF DISC PAGING 0 P SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD X PBTT30 EQU * P EJECT P* < P* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART " P* OF TASK CONFI
0x0a90e8…0a927c Dummy {f00=0x0035, f01=0x0190, f02=»FST TERMINAL DEVICE CLASS DEFINITION $ P CALL GETTDC GET NUMBER OF TDC:S , P LDR A7,A1 SAVE T PBTT35 EQU * l P RF(Z) BTT40 ( P CALL GETCLN GET CLASS NUMBER (1-99) & P ADR A1,A1 2*(BINARY CLASS NUMBER) , P LD A8,STKEND+TCLA GET POINTER
0x0a927c…0a9410 Dummy {f00=0x0035, f01=0x018e, f02=»TE FORMAT ERROR ~ PBTT37 EQU * " P ADR A8,A1 GET ENTRY IN TCLASS , $ P LDR* A8,A8 GET POINTER TO CLASS R $ P LDR* A8,A8 GET LENGTH OF CLASS z " P SUKL A8,2 EXCLUDE LENGTH WORD ( P ADR A10,A8 ADD TO TOTAL TTAB LENGTH . P ADR A6,A8 ADD TO TA
0x0a9410…0a95a4 Dummy {f00=0x0035, f01=0x0190, f02=» PBTT40 EQU * P* > P* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF & P* TASK CONFIGURATION TABLE h P* 6 P CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES P ADKL A9,2 FIRST SDC RECORD P LDR A7,A1 SAVE
0x0a95a4…0a9738 Dummy {f00=0x0035, f01=0x0190, f02=»R) p , P LD A8,STKEND+SCLA GET POINTER TO SCLASS P LDR* A2,A8 : P SUK A2,2 N P CWR A1,A2 ` P RF(NG) BTT52 r P LDKL A1,LMP4 & P CALL ERROR INDICATE FORMAT ERROR PBTT52 EQU * " P ADR A8,A1 GET ENTRY IN SCLASS $ P LDR*
0x0a9738…0a98cc Dummy {f00=0x0035, f01=0x0190, f02=» TTAB LENGTH x . P ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH P ADKL A9,SDC NEXT CLASS F ( P SUK A7,1 DECREMENT NUMBER OF SDC:S f P RB BTT50 PBTT55 EQU * P IFF EDM=0 & P ADKL A10,14 7 EXTRA WORDS FOR EDM P XIF " P ADK A6,
0x0a98cc…0a9a60 Dummy {f00=0x0035, f01=0x0190, f02=»LASS ^ PBTT60 EQU * P RF(Z) BTT70 P ST A9,STKEND+WRK3 SAVE A9 4 P ST A11,STKEND+WRK4 SAVE A11 V P LDR A9,A10 GET TTAB LENGTH z 4 P AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2 P ST A9,STKEND+SFASAV =2 0 P LD A11,STKEND+LIM
0x0a9a60…0a9bf4 (1, 214) Dummy {f00=0x0036, f01=0x0190, f02=»ORY OVERFLOW v P CALL ERROR & PBTT61 LD A9,STKEND+WRK3 RESTORE A9 ( $ P LD A11,STKEND+WRK4 RESTORE A11 R P* z 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB P* P ST A6,TTB:TD,A12 P* : P* STORE TASK LEVEL IN RIG
0x0a9bf4…0a9d88 Dummy {f00=0x0036, f01=0x0190, f02=» < P* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD P* D & P SLL A5,10 MOVE LEVEL TO LEFT BYTE N P ORKL A5,/00C0 x " P LD A2,SCTOPT GET OPTION WORD P ANK A2,1 MMU OPTION? P ORR A5,A2 SET BIT 15 IF MMU $ P ST A5,TTB:PW,A12
0x0a9d88…0a9f1c Dummy {f00=0x0036, f01=0x0190, f02=» IN TTAB t P* * PBTT62 LD A5,STKEND+TASKID GET TASK ID $ P ST A5,TTB:ID,A12 STORE IN TTAB H P ADK A5,1 INCREMENT TASK ID p 8 P ST A5,STKEND+TASKID SAVE TO NEXT TASK IN SAME CLASS 0 P LD A5,STKEND+APCSTA GET APPL. CONTROL BLOCK , P ST
0x0a9f1c…0aa0b0 Dummy {f00=0x0036, f01=0x0190, f02=»* ( P* STORE TASK CLASS TO MATCH IN TTAB P* 6 , P LD A5,STKEND+TCLSAV GET TCL START VALUE @ " P ST A5,TTB:PP,A12 SAVE IN TTAB p P ADK A5,1 INCREMENT TCL P ST A5,STKEND+TCLSAV SAVE PBTT65 EQU * , P STR A12,A7 SAVE TTAB ADDRES
0x0aa0b0…0aa244 Dummy {f00=0x0036, f01=0x0190, f02=»AB ENTRY IN THIS TASK CLASS | 6 P SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS $ P RB BTT60 ^ P EJECT p PBTT70 EQU * ~ P* * P* RESET POINTER TO START OF FREE AREA P* P LD A12,STKEND+SFASAV PBTT90 EQU * P C
0x0aa244…0aa3d8 Dummy {f00=0x0036, f01=0x018e, f02=»* " P CALL NXTAPL NEXT APPLICATION P RF(Z) BTT98 0 P LD P,STKEND+WRK1 D 0 PBTT98 ST A12,SCTSFA SAVE START OF FREE AREA ^ P SU A7,SCTTCT COMPUTE LENGTH P ST* A7,SCTTCT STORE P RTN A14 RETURN P IFF SWPBLK=0 P EJECT
0x0aa3d8…0aa56c Dummy {f00=0x0036, f01=0x0190, f02=» p P RF(Z) BSWT42 NO 0 P CM STKCOM+APPLNO RESET APPLICATION COUNTER , P ST P,STKEND+LIMIT SAVE LOCATION COUNTER T 0 PBSWT05 LDKL A1,'CR' APPLICATION TYPE=CREDIT , P CALL GETAPP GET NEXT CREDIT APPLICATION & P RF(Z) BSWT42 NO MORE APPLICATIO
0x0aa56c…0aa700 Dummy {f00=0x0036, f01=0x0190, f02=»EARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE P* : & PBSWT10 CALL NXTBLK GET NEXT BLOCK D ( P CCK A2,'TT' TASK DEFINITION BLOCK? n P RB(E) BSWT10 YES! 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? P RF(NE) BSWT20 NO! P ADKL
0x0aa700…0aa894 (1, 215) Dummy {f00=0x0036, f01=0x0190, f02=»L A11,1 NUMBER OF TYPES P LDR A6,A11 & P CALL GETNUM NUMBER OF UWB RECORDS 4 P LDR A1,A5 SAVE ^ $ P RF(Z) SWBERR ILLEGAL NUMBER!!! v ( P ADKL A11,UDBFST-1 FIRST UWB RECORD ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD $ P SUK A1,1 DECR. NU
0x0aa894…0aaa28 Dummy {f00=0x0036, f01=0x0190, f02=»TION BLOCK n P RF(E) BSWT44 YES! ( P LDKL A1,0 NO SWB DEFINITION BLOCK! , ( P ST A1,APLSWB,A10 CLEAR SWB POINTER X : P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 & PBSWT42 CALL POB RESTORE REGISTERS P RTN A14 & PBSWT44 ADKL
0x0aaa28…0aabbc Dummy {f00=0x0036, f01=0x018e, f02=»DR A5,A5 ZERO? $ P RF(Z) SWBERR ILLEGAL NUMBER!!! 0 P ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS > P ST A5,STKEND+WRK1 SAVE r . P LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP P RF(NZ) BSWT48 FILE CREATED " PSWBERR LDKL A1,LMP6 SWB ERROR!
0x0aabbc…0aad50 Dummy {f00=0x0036, f01=0x018e, f02=» P ADKL A12,2 FIRST POINTER P LDR A10,A12 SAVE & $ PBSWT50 ADKL A10,2 BYPASS POINTER @ ( P SUK A5,1 DECREMENT NUMBER OF TYPES h P RB(P) BSWT50 P* & P* GET ADDRESS TO S:BTAB PROTOTYPE P* , P LD A2,STKEND+APCSTA GET ADDRESS
0x0aad50…0aaee4 Dummy {f00=0x0036, f01=0x0190, f02=» j $ P CALL GETCON GET P:MTAB ADDRESS P LDR A2,A1 SAVE 0 , P ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS H $ P CALL GETCON GET S:BTAB ADDRESS x * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB * P RB(Z) SWBERR NO SWB:S IN APPLICATION! P ADK A1,2 AD
0x0aaee4…0ab078 Dummy {f00=0x0036, f01=0x0190, f02=»ROT. S:BTAB t P LDR A4,A1 SAVE P* , 2 P* CHECK IF ENOUGTH MEMORY IN FIRST PARTITION 6 P* l P XRR A2,A2 RESET COUNTER v $ PBSWT52 SUK A1,6 DECREMENT LENGTH $ P RF(N) BSWT55 NO MORE SWB-BLOCKS " P ADK A2,1 INCR. BLOCK COUNTER
0x0ab078…0ab20c Dummy {f00=0x0036, f01=0x0190, f02=»1,STKEND+LIMIT GET CURRENT LIMIT " P CALL CMPADR MEMORY OVERFLOW? ( P RF(NL) BSWT57 NO! N * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW h P CALL ERROR $ PBSWT57 SUK A4,2 SKIP LENGTH WORD " P LDKL A9,0 RESET BLOCK COUNTER , PBSWT60 STR A10,A
0x0ab20c…0ab3a0 Dummy {f00=0x0036, f01=0x0190, f02=» NUMBER OF SWB RECORDS | 4 PBSWT65 LD A2,STKEND+SWBNAM NAME RECORD IN PROT. $ P CALL GETCON GET TWO FIRST CHAR. V ( P ADKL A11,NAMUWB NAME IN CONF. FILE ~ P LCR A3,A11 GET FIRST CHAR. P SLL A3,8 MOVE TO LEFT BYTE " P LC A3,1,A11 GET SECON
0x0ab3a0…0ab534 (1, 216) Dummy {f00=0x0036, f01=0x0190, f02=»ET THIRD CHAR. P SRL A1,8 ISOLATE CHAR. 0 P LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE 6 P ANK A3,/FF ISOLATE CHAR. j " P CWR A1,A3 THIRD CHAR. EQUAL? P RF(E) BSWT75 YES! $ PBSWT70 ADKL A11,NAMUWB SKIP NAME ( P SUK A7,1 DECREMENT
0x0ab534…0ab6c8 Dummy {f00=0x0036, f01=0x018e, f02=»OCK J P* P STR A7,A10 1:ST WORD P ST A7,2,A10 2:ND WORD 4 P ST A7,4,A10 3:RD WORD R P ST A7,6,A10 4:TH WORD p P RF BSWT95 PBSWT75 EQU * P* P* MATCHING NAME FOUND P* . P LD A3,STKEND+WRK1 GET NUMBER OF S
0x0ab6c8…0ab85c Dummy {f00=0x0036, f01=0x0190, f02=» P LDR A3,A2 SAVE POINTER & P CALL GETNUM GET NUMBER OF COPIES $ , P SLL A5,8 NUMBER OF COPIES IN LEFT BYTE N > P OR A5,STKCOM+SWBFSA+2 DISC ADDRESS BITS 0-7 IN RIGHT BYTE ~ " P STR A5,A10 STORE IN SWB BLOCK , P SRL A5,8 NUMBER OF COPIES TO RIGH
0x0ab85c…0ab9f0 Dummy {f00=0x0036, f01=0x0190, f02=»2,UPNAME PROTOTYPE ADDRESS & P CALL GETCON GET PROTOTYPE ADDRESS " P LDR A2,A1 SAVE L & P SUK A2,UPNAME LENGTH OF WORKBLOCK d P CALL GETCON * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB 0 PBSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK " P LDK
0x0ab9f0…0abb84 Dummy {f00=0x0036, f01=0x0190, f02=» IM STKCOM+SWBFSA+2 P CM STKCOM+SWBFSA PBSWT90 EQU * 6 & P ADK A1,1 INCREMENT SECTOR COUNTER J " P SUKL A3,256 DECREMENT LENGTH t P RB(P) BSWT86 MOORE SECTORS? P SUK A5,1 MOORE COPIES? P RB(P) BSWT85 YES! * P ST A1,SWBSEC,A1
0x0abb84…0abd18 Dummy {f00=0x0036, f01=0x0190, f02=» z ( P RF(G) BSWT98 $SWAP-FILE TOO SMALL! P RF(L) BSWT95 4 P LD A8,STKCOM+SWBFSA J P CW A8,STKCOM+SWBFSE f ( P RF(G) BSWT98 SWAPP-FILE TOO SMALL! * PBSWT95 ADKL A10,8 START OF NEXT BLOCK P ADKL A12,2 NEXT POINTER & P ADKL A9,1 I
0x0abd18…0abeac Dummy {f00=0x0036, f01=0x0190, f02=» P ST A2,STKEND+SWBNAM SAVE 4 P LD A4,STKEND+SWBTBL GET LENGTH OF PROT. S:BTAB & P SUK A4,UP:REC DECREMENT ^ P RB(P) BSWT60 MOORE TYPES ~ . P LD A8,STKCOM+SWBCNT ANY BLOCKS GENERATED? P RF(Z) BSWT98 NO! . P LD A8,STKEND+WRK1 ALL SWB T
0x0abeac…0ac040 Dummy {f00=0x0036, f01=0x0190, f02=»START OF FREE AREA t 2 P LD A10,STKEND+APCSTA GET CURRENT ACB ADDRESS * P ST* A9,APLSWB,A10 NUMBER OF SWB TYPES P 6 P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION ~ P XIF P IFF MMUPAG+DSKPAG=0 P EJECT 8 P**************************
0x0ac040…0ac1d4 (1, 217) Dummy {f00=0x0036, f01=0x0190, f02=» * f 8 P* ============================= * 8 P* * N 8 P* REFERENCED IN: SYSLDM * 8 P* * 8 P* ENT
0x0ac1d4…0ac368 Dummy {f00=0x0036, f01=0x0190, f02=» * z 8 P* * & 8 P* WORK REGISTERS: A1-A14 (THEIR ORIGINAL * b 8 P* CONTENTS ARE SAVED ON STACK * 8 P* AND RESTORED BEFORE EXIT)
0x0ac368…0ac4fc Dummy {f00=0x0036, f01=0x0190, f02=» FOR BASIC ONE SEGMENT TABLE AREA/TASK IS * 8 P* RESERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * : 8 P* CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * v 8 P* EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * 8 P* WORD IN THE NEXT SEGMEN
0x0ac4fc…0ac690 Dummy {f00=0x0036, f01=0x0190, f02=»EGMENT * f 8 P* TABLE PER APPLICATION IS GENERATED. STATUS, * 8 P* DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * N 8 P* WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * 8 P* TABLE ADDRESS IS STORED IN THE TTAB FOR EACH * 8 P* TAS
0x0ac690…0ac824 Dummy {f00=0x0036, f01=0x0190, f02=»***************************** z P EJECT & PB:STAB EQU * 4 $ P CALL PUSH SAVE A1-A14 ON STACK H & P CALL FSTAPL GET FIRST APPLICATION p " P LDR A9,P GET LIMIT FOR WRITE < PBST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB . P CALL NX
0x0ac824…0ac9b8 Dummy {f00=0x0036, f01=0x0190, f02=»D OF TCTAB P RF BST040 4 PBST020 LD A2,APLMMC,A2 GET END OF TCTAB ENTRIES $ $ PBST040 ST A2,STKEND+TCTEND SAVE P LDR A8,P 8 PBST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS 2 P LD A5,APLMMP,A10 GET CURRENT APPLICATION TYPE ( P
0x0ac9b8…0acb4c Dummy {f00=0x0036, f01=0x0190, f02=»Y j P CWK A5,'BA' BASIC? P RF(NE) BST050 NO & P SUR A2,A8 2*NUMBER OF TASKS @ P SRL A2,1 NUMBER OF TASKS d P ST A2,STKEND+WRK1 SAVE P ST A2,APLNPE,A10 SAVE . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK P SLL A3,3 MULTIPLY
0x0acb4c…0acce0 Dummy {f00=0x0036, f01=0x0190, f02=» P RF BST090 P EJECT ( PBST050 LD A2,SCTOPT GET OPTION WORD $ P ANK A2,1 MMU? P P RF(Z) BST070 NO f P LDR* A7,A8 GET TTAB ADDRESS ~ P TL TTB:MT,A7 LOAD MMU TABLE * PBST070 LD A2,APLLAC,A10 ADDRESS S:GTAB * P ADK A2,10 ADDRESS N
0x0acce0…0ace74 (1, 218) Dummy {f00=0x0037, f01=0x0190, f02=» BY 8 ~ $ P ADK A3,12 INCLUDE 6 FIRST WORDS 0 PBST090 LD A12,SCTSFA GET START OF FREE AREA 6 ( P LDR A2,A11 SAVE CONF. DATA POINTER j P LDR A11,A12 SAVE * P ADR A11,A3 END OF SEGMENT TABLE AREA " P CALL CMPADR MEMORY OVERFLOW? P RF(
0x0ace74…0ad008 Dummy {f00=0x0037, f01=0x0190, f02=» ` * P LDR A11,A2 RESTORE CONF. DATA POINTER P CWK A5,'BA' BASIC? 6 P RF(NE) BST200 NO R * P LD A2,STKEND+WRK1 GET NUMBER OF TASKS l . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK 0 P ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK P CALL MU
0x0ad008…0ad19c Dummy {f00=0x0037, f01=0x0190, f02=»APLSEG,A10 STORE ADDRESS TO SEGMENT TABLE POOL P EJECT 6 P* D P* CLEAR SEGMENT TABLE AREA N P* r 0 P LD A2,SCTSFA GET END OF SEGMENT TABLE AREA | & PBST110 SUK A2,2 DECREMENT POINTER P CMR A2 CLEAR , P CWR A2,A12 START OF SEG
0x0ad19c…0ad330 Dummy {f00=0x0037, f01=0x0190, f02=»LE AREA? p P RF(E) BST400 YES 2 P ADK A2,8 ADDRESS FIFTH WORD IN SEGMENT TABLE * 2 P ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE ` , P ADR A12,A4 START OF NEXT SEGMENT TABLE P LDR A2,A12 SAVE P RB BST120 0 PBST200 ST A6,2,A12 STORE
0x0ad330…0ad4c4 Dummy {f00=0x0037, f01=0x018e, f02=»A3,SCTIPL GET FILE-CODE FOR LOAD DEVICE P STR A3,A12 STORE 0 ( P ADKL A12,4 ADDRESS SEGMENT BLOCK 0 J P LDR A4,A12 SAVE v . PBST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 " P STR A2,A12 STORE IN SEGBLK 0 * P LD A2,APLLAC,A10 GET START OF S:G
0x0ad4c4…0ad658 Dummy {f00=0x0037, f01=0x0190, f02=» x " P ST A1,2,A12 STORE IN SEGBLK 0 * P LD A2,APLLAC,A10 GET START OF S:GTAB . * P ADK A2,10 ADDRESS NUMBER OF SEGMENTS ( PBST220 ADKL A12,8 NEXT SEGMENT BLOCK P SUK A6,1 ANY MORE SEGMENTS? P RF(N) BST300 NO P LDK A7,0 INIT STATUS
0x0ad658…0ad7ec Dummy {f00=0x0037, f01=0x0190, f02=» $ P ANK A3,/FF ISOLATE DISC ADDRESS " P SRL A1,8 ISOLATE SEGMENT TYPE , ( P CCK A1,'RR' CORE RESIDENT SEGMENT? R P RF(E) BST230 YES ~ " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P RF(NZ) BST240 YES " P XRR A3,A3 CLEAR D
0x0ad7ec…0ad980 Dummy {f00=0x0037, f01=0x0190, f02=»BST270 : PBST230 LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED * PBST240 ADK A2,2 DISC ADDRESS BIT 8-23 L * P CALL GETCON GET SEGMENT DISC ADDRESS z 0 P AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A. P RF(O) BST250 CARRY P RF BST260 *
0x0ad980…0adb14 (1, 219) Dummy {f00=0x0037, f01=0x018e, f02=»1 OF D. A. j . P CWK A3,255 OVERFLOW IN PART 1 OF D. A. ? P RF(NG) BST270 NO! D ( P LDKL A1,LMP10 INDICATE DEVICE ERROR ^ P CALL ERROR 2 PBST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS P STR A7,A12 STORE , P ST A1,2,A12 STORE DISC AD
0x0adb14…0adca8 Dummy {f00=0x0037, f01=0x0190, f02=» & P CM 6,A12 CLEAR PAGEBLOCK POINTER P RB BST220 . 0 PBST300 CW A8,STKEND+TCTEND LAST TCTAB ENTRY? @ P RF(E) BST400 YES t P LDR* A2,A8 GET TTAB ADDRESS 0 P ST A4,TTB:SP,A2 STORE SEGMENT TABLE POINTER * P ADKL A8,2 INCREMENT POINTER IN TC
0x0adca8…0ade3c Dummy {f00=0x0037, f01=0x0190, f02=» A9 NEXT APPLICATION PBST410 EQU * P CALL POB RESTORE REGISTERS 0 P RTN A14 RETURN T P XIF l P IFF SPDVCL+TEDVCL=0 x P EJECT L P************************************************************************ J P* B:DWTS - BUILD DWT:
0x0ade3c…0adfd0 Dummy {f00=0x0037, f01=0x0190, f02=»* P* REFERENCED IN: MONCON P* * , P* ENTRY: SCTSFA - START OF FREE ARE (X) 4 2 P* CONSTA - START OF CONFIGURATION DATA d ( P* SCTEFA - END OF FREE AREA P* P* EXIT: P* P* WORK REGISTERS: A1-A12
0x0adfd0…0ae164 Dummy {f00=0x0037, f01=0x0190, f02=»ET START OF CONFIGURATION FILE P* & & P LD A12,SCTSFA START OF FREE AREA 0 P* Z 6 P* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK d P* & P CALL FSTAPL GET FIRST APPLICATION 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA , P S
0x0ae164…0ae2f8 Dummy {f00=0x0037, f01=0x0190, f02=» ENTRY j P SUK A7,2 P EJECT PDWTS10 EQU * . P* B . P* GET NUMBER OF TASKS IN THIS TASK CLASS L P* ~ P CALL GETTSK PDWTS20 EQU * P ST A1,STKEND+NBRTSK SAVE P* * P* GET CORRESPONDING TASK TABLE (TTAB)
0x0ae2f8…0ae48c Dummy {f00=0x0037, f01=0x0190, f02=»CE TABLE ENTRY t P* 0 P* INIT SUB-POINTER IN TASK DEFINITION BLOCK P* T . P LDR A9,A11 START OF TASK DEFINITION BLOCK ^ , P ADKL A9,TDBFST START OF TDC DEFINITION P EJECT P* 4 P* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS
0x0ae48c…0ae620 Dummy {f00=0x0037, f01=0x018e, f02=»1,A1 , P LD A8,STKEND+TCLA GET POINTER TO TCLASS P ADR A8,A1 GET CLASS ENTRY < $ P LDR* A8,A8 GET POINTER TO CLASS ^ $ P LDR* A8,A8 GET LENGTH OF CLASS " P SUKL A8,2 EXCLUDE LENGTH WORD * P ADR A10,A8 INCREMENT POINTER IN TTAB 0 P ADKL
0x0ae620…0ae7b4 (1, 220) Dummy {f00=0x0037, f01=0x0190, f02=» , P* GET NUMBER OF SPECIAL DEVICE CLASSES P* 4 P CALL GETSDC > P ADKL A9,SDCFST-CDBNC R P LDR A1,A1 p PDWTS50 EQU * P RF(Z) DWTS90 P ST A1,STKEND+NBRSDC SAVE P* & P* GET SPECIAL DEVICE CLASS NUMBER P*
0x0ae7b4…0ae948 Dummy {f00=0x0037, f01=0x0190, f02=»SCLA POINTER TO SCLASS P ADR A6,A1 SELECT ENTRY $ P LDR* A6,A6 GET POINTER TO CLASS > P LDR A5,A6 SAVE f P LDR* A6,A6 GET LENGTH ~ " P SUK A6,2 EXCLUDE LENGTH WORD PDWTS60 EQU * P ADK A5,4 GET DEVICE ( P LDR* A1,A5 GET ADDRES
0x0ae948…0aeadc Dummy {f00=0x0037, f01=0x0190, f02=»2,A12 TO-ADDRESS , P ADR A12,A3 UPDATE POINTER TO FREE AREA P CALL CHKMOV COPY DWT H P EJECT f P* t 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM ~ P* " P LD A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYSTEM? P R
0x0aeadc…0aec70 Dummy {f00=0x0037, f01=0x0190, f02=»ONITOR ECB-ADDRESS z P SUR A4,A3 RELOCATE $ P ANKL A4,/FFFE MAKE EVEN ADDRESS 6 " P ST A4,DWTMEC,A2 STORE IT BACK ^ PDWTS65 EQU * $ P LDR A1,A2 DT-ADDRESS TO BE USED PDWTS70 EQU * P* . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB
0x0aec70…0aee04 Dummy {f00=0x0037, f01=0x0190, f02=»0,4 UPDATE TASK CONFIGURATION POINTER PDWTS80 EQU * . * P SUK A6,4 DECREMENT NUMBER OF DEVICES B P RB(P) DWTS60 NEXT DEVICE p P EJECT P* 4 P* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS P* P ADKL A9,SDC P LD A1
0x0aee04…0aef98 Dummy {f00=0x0037, f01=0x0190, f02=»ION ` P* P LD A1,STKEND+NBRTSK P SUK A1,1 2 P RB(P) DWTS20 D P* Z , P* CHECK IF MOORE TASK DEFINITION BLOCKS d P* P CALL NXTBLK ( P CCK A2,'TT' TASK DEFINITION BLOCK? P RB(E) DWTS10 YES & P CALL NXTAPL GET
0x0aef98…0af12c Dummy {f00=0x0037, f01=0x018e, f02=»R ECHO DEVICE p & P* AND TEMPORARY INTERRUPT TABLES P* @ & P LDR A1,P GET LOCATION COUNTER =4 J 0 PDWTS95 SUK A1,2 DECREMENT MEMORY ADDRESS =4 t P CMR A1 CLEAR MEMORY AREA =4 ( P CW A1,SCTSFA ALL WORDS CLEARED? =4 P RB(NE) DWTS95 N
0x0af12c…0af2c0 Dummy {f00=0x0037, f01=0x0190, f02=» ^ 4 P* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES * 4 P************************************************ @ 4 P************************************************ x P* P* REFERENCED IN: MONCON P* P* ENTRY: P* P* EXIT:
0x0af2c0…0af454 (1, 221) Dummy {f00=0x0037, f01=0x0190, f02=» P EJECT PB:DWTT EQU * $ P CM STKEND+FWTFLG CLEAR FWT FLAG * $ P LD A1,SCTFWT START OF FWT AREA R $ P RF(NZ) BDWT15 FWT AREA RESERVED z P LD A1,STKEND+LIMIT 8 P ST A1,STKEND+INTTAB START OF T.I.T. IF NO FWT AREA P IM STKEND+FWT
0x0af454…0af5e8 Dummy {f00=0x0037, f01=0x018e, f02=»IRST APPLICATION ~ * P LD A12,SCTSFA GET START OF FREE AREA P* F B P* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY P P* . P LD A5,APLMMC,A2 GET FIRST USER TASK ENTRY : P ST A5,STKEND+CUTENT STORE IN CURRENT USER TASK ENTRY
0x0af5e8…0af77c Dummy {f00=0x0037, f01=0x0190, f02=» PBDWT50 EQU * * P ST A1,STKEND+NBRTSK SAVE BINARY VALUE P* F @ P* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS P P* P CALL GETTDC P* $ P* CHECK IF TASK WITHOUT DEVICES P* $ P LDR A1,A1 ANY TERMINAL DE
0x0af77c…0af910 Dummy {f00=0x0037, f01=0x0190, f02=»ESS l 6 P ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE P* F ( P* GET TERMINAL DEVICE CLASS NUMBER P P* | . P LDR A9,A11 START OF TASK DEFINITION BLOCK 4 P ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION PBDWT55 EQU * " P CAL
0x0af910…0afaa4 Dummy {f00=0x0037, f01=0x0190, f02=» TCLASS b P* 6 P LD A2,STKEND+CLANBR GET BINARY VALUE OF CLASS ID P ADR A2,A2 2*ID T ( P LD A7,STKEND+TCLA POINTER TO TCLASS l P ADR A7,A2 GET ENTRY $ P LDR* A7,A7 GET POINTER TO CLASS P* @ P* GET LINE CONNECTION NUMBER FOR
0x0afaa4…0afc38 Dummy {f00=0x0037, f01=0x0190, f02=»RY VALUE | , P LC A4,TDC+6,A9 GET LINE CONNECTION TYPE $ P CCK A4,'AA' ASCU4Z CONNECTION? @ P RF(NE) BDWT58 NO! h . P LDR* A8,A7 YES! GET LENGTH OF THIS CLASS $ P SUKL A8,2 EXCLUSIVE LENGTH WORD P CWK A8,4 ONE DEVICE? P RF(NE) BDWT57
0x0afc38…0afdcc Dummy {f00=0x0037, f01=0x018e, f02=»YES! PBDWT57 EQU * . P ADK A1,1 INCREMENT LINE CONNECTION NUMBER PBDWT58 EQU * R . P ADK A1,1 INCREMENT LINE CONNECTION NUMBER f 4 P CALL BINASC CONVERT INCREMENTED VALUE TO ASCII ( P SC A1,TDC+5,A9 STORE ASCII DIGIT =2 & P SRL A1,8 MO
0x0afdcc…0aff60 Dummy {f00=0x0037, f01=0x0190, f02=» P* $ P* GENERATE DWT:S FOR THIS CLASS 2 P* A6 - LINE CONNECTION NUMBER (BINARY VALUE) 6 , P* A7 - POINTER TO TERMINAL DEVICE CLASS l P* . P* THE ENTRY IN TEMPORARY INTERRUPT TABLE . P* IS DERIVED FROM LINE CONNECTION NUMBER, :
0x0aff60…0b00f4 (1, 222) Dummy {f00=0x0038, f01=0x0190, f02=»ET NUMBER OF TERMINAL DEVICE CLASSES z , P SUK A1,1 ANY MOORE IN THIS TASK CLASS? , P RF(Z) BDW100 NO . P ST A1,STKEND+NBRTDC SAVE REMAINING NUMBER t $ P ADKL A9,TDC+TLC NEXT TDC RECORD P RB BDWT55 PBDW100 EQU * " P CALL ECHO INIT ECHO
0x0b00f4…0b0288 Dummy {f00=0x0038, f01=0x0190, f02=» SAVE | : P LD A1,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS " P SUK A1,1 ANY MOORE TASKS LEFT L P RB(P) BDWT50 YES r , P* CHECK IF MOORE TASK DEFINITION BLOCKS P* $ P CALL NXTBLK SKIP TO NEXT BLOCK ( P CCK A2,'TT' TASK DEFINITI
0x0b0288…0b041c Dummy {f00=0x0038, f01=0x0190, f02=» UPDATE START OF FREE AREA P RTN A14 RETURN " P XIF : P EJECT F , P**************************************** V , P* B:CDT - BUILD COMMON DEVICE TABLE * , P**************************************** P* P* REFERENCED IN: SYSLD
0x0b041c…0b05b0 Dummy {f00=0x0038, f01=0x0190, f02=»EFA - END OF FREE AREA P* 4 P* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE ( P* ` P* WORK REGISTERS: A1-A12 j P* < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE P* P EJECT PB:CDT EQU * & P LD A1
0x0b05b0…0b0744 Dummy {f00=0x0038, f01=0x0190, f02=»CE DEFINITION BLOCK ~ P* PCDG:10 EQU * & P CALL NXTBLK : ( P CCK A2,'TT' TASK DEFINITION BLOCK? N P RB(E) CDG:10 YES z ( P CCK A2,'CC' COMMON DEV. DEF. BLOCK? P RF(NE) BCDTEX NO P EJECT P* : P* RESERVE AREA IN COM
0x0b0744…0b08d8 Dummy {f00=0x0038, f01=0x018e, f02=»N DEFINITION BLOCK v 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES & P CALL GETCTC GET NUMBER OF C.T.C. T P LDR A6,A1 SAVE ~ " PB:CT10 RF(Z) B:CT30 NO MOORE! . P CALL GETCLN GET CLASS IDENT NUMBER (1-99) , P ADR A1,A1 DISPLACEMENT TO
0x0b08d8…0b0a6c Dummy {f00=0x0038, f01=0x0190, f02=» v & P CWR A1,A2 MAKE SURE CLASS EXISTS P RF(NG) B:CT20 OK! 2 P LDKL A1,LMP4 FORMAT ERROR! L P CALL ERROR p , PB:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS $ P LDR* A1,A1 GET POINTER TO CLASS $ P LDR* A1,A1 GET LENGTH OF CLASS " P SUK
0x0b0a6c…0b0c00 Dummy {f00=0x0038, f01=0x0190, f02=»DECR. NBR OF C.T.C. P RB B:CT10 P EJECT . PB:CT30 EQU * < P* P : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES Z 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* P CALL GETSDC P ADKL A9,SDCFST-CDBNC
0x0b0c00…0b0d94 (1, 223) Dummy {f00=0x0038, f01=0x0190, f02=» TO SCLASS r P LDR* A2,A5 P SUK A2,2 & P CWR A1,A2 8 P RF(NG) BCDT15 J P LDKL A1,LMP4 ` P CALL ERROR v PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS P LDR* A1,A1 GET LENGTH P SUK
0x0b0d94…0b0f28 Dummy {f00=0x0038, f01=0x0190, f02=»ATION t $ P RB(P) CDG:10 MORE APPLICATIONS? & P CALL FSTAPL GET FIRST APPLICATION 6 & PB:CT35 CALL NXTBLK GET NEXT BLOCK ` ( P CCK A2,'TT' TASK DEFINITION BLOCK? P RB(E) B:CT35 YES P EJECT P* < P* RESERV ENTRIES IN COMMON DEVI
0x0b0f28…0b10bc Dummy {f00=0x0038, f01=0x0190, f02=»VICE TABLE FOR l @ P* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION P* Z J P* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS d P* & P LD A1,SCTDCT DATA COMMUNICATION? " P LD A6,SCTDMT DATA MANAGEMENT
0x0b10bc…0b1250 Dummy {f00=0x0038, f01=0x0190, f02=»S IF NOT ZERO v P RF(Z) CDG:12 NO! , P LD A6,STKEND+SCLA GET POINTER TO SCLASS 0 $ 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 POINTER TO LAST CLASS ( P LDR
0x0b1250…0b13e4 Dummy {f00=0x0038, f01=0x018e, f02=» P ADK A7,2 P STR A7,A12 P ST A12,SCTCDT * P ADR A12,A7 @ P ST A11,STKEND+WRK1 SAVE A11 T " P LDR A11,A12 GET END OF CDTAB x . P LD A9,STKEND+LIMIT GET END OF SYSTEM AREA * P CALL CMPADR CHECK IF MEMORY OVERFLOW P RF(NG) CD
0x0b13e4…0b1578 Dummy {f00=0x0038, f01=0x0190, f02=» P* 6 P* INIT POINTER TO START OF FREE AREA AND TO CDTAB P* L ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT V * PCDG:15 LCR A2,A11 GET FIRST CHARACTER . PCDG:16 CCK A2,'TT' TASK DEFINITION BLOCK/ P RF(NE) CDG:17 NO! P CALL NXTBLK
0x0b1578…0b170c Dummy {f00=0x0038, f01=0x0190, f02=»OMMON WORK BLOCKS x ( PCDG:18 RF(N) CDG:EX CDTAB COMPLETE! & P CALL NXTAPL GET NEXT APPLICATION F $ P RB(P) CDG:15 MORE APPLICATIONS p " P RF CDGEX NO MORE APPLICATIONS PCDG:19 EQU * P* > P* GENERATE DEVICE WORK TABLES FOR COMMON TE
0x0b170c…0b18a0 Dummy {f00=0x0038, f01=0x0190, f02=» CALL GETCTC GET NUMBER OF C.T.C. , P LDR A1,A1 ANY COMMON TERMINAL CLASSES? * PB:CT40 RF(Z) B:CT50 NO! Z P ST A1,STKEND+NBRCOM SAVE z ( P CALL GETCLN GET CLASS IDENT NUMBER P ST A1,STKEND+CLASID SAVE , P CALL GETLCN GET LINE CONNECTI
0x0b18a0…0b1a34 (1, 224) Dummy {f00=0x0038, f01=0x0190, f02=» LD A7,STKEND+TCLA GET POINTER TO TCLASS & P ADR A7,A2 SELECT ENTRY IN TCLASS 0 $ P LDR* A7,A7 GET POINTER TO CLASS Z . P CALL DWTGEN GENERATE DWT:S FOR THIS CLASS . P ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE . P LD A1,STKEND+NBRCOM GET NUMBER OF
0x0b1a34…0b1bc8 Dummy {f00=0x0038, f01=0x018e, f02=»PECIAL DEVICE CLASSES ~ P* P CALL GETSDC ( P ADKL A9,SDCFST-CDBNC < P LDR A8,A1 Z PCDG:20 EQU * l P RB(NP) CDG:18 P* & P* GET SPECIAL DEVICE CLASS NUMBER P* P CALL GETCLN P* 0 P* GET CORRESPONDING D
0x0b1bc8…0b1d5c Dummy {f00=0x0038, f01=0x0190, f02=» v & P LDR* A5,A6 SAVE POINTER TO CLASS $ P LDR* A6,A6 GET POINTER TO CLASS 2 $ P LDR* A6,A6 GET LENGTH OF CLASS Z " P SUK A6,2 EXCLUDE LENGTH WORD PCDG:30 EQU * P ADK A5,4 NEXT DEVICE P LDR* A1,A5 GET DWT-ADDRESS ( P LD A3,DWT
0x0b1d5c…0b1ef0 Dummy {f00=0x0038, f01=0x0190, f02=»,A3 UPDATE POINTER TO FREE AREA P CALL CHKMOV COPY DWT ( P* F 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM P P* " P LD A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYSTEM? P RF(Z) CDG:35 NO! ( P LDR A3,A1 GET PROTOTY
0x0b1ef0…0b2084 Dummy {f00=0x0038, f01=0x0190, f02=»IT EVEN! | P SUR A4,A3 RELOCATE " P ST A4,DWTMEC,A2 STORE IT BACK , PCDG:35 EQU * R " P LDR A1,A2 DWT-ADDRESS TO USE f PCDG:40 EQU * P* . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB P* " P ST A1,4,A10 STORE DWT-ADDRESS
0x0b2084…0b2218 Dummy {f00=0x0038, f01=0x0190, f02=»CE COUNTER x P RB(P) CDG:30 NEXT DEVICE P EJECT 4 P* B , P* CHECK IF MOORE SPECIAL DEVICE CLASSES L P* | P ADKL A9,SDC P SUKL A8,1 P RB CDG:20 PCDGEX EQU * " P LD A1,SCTDMT DATA MANAGEMENT $ P LD A5,SCTDCT DA
0x0b2218…0b23ac Dummy {f00=0x0038, f01=0x0190, f02=»1,A5 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:EX NO! * , P LD A5,STKEND+SCLA GET POINTER TO SCLASS D $ P LDR* A1,A5 GET LENGTH OF SCLASS t " P SUK A1,2 EXCLUDE LENGTH WORD P ADR A5,A1 GET LAST ENTRY * P LDR* A5,A5 GET POINTER TO LAST CLAS
0x0b23ac…0b2540 Dummy {f00=0x0038, f01=0x0190, f02=»2,SCTSFA UPDATE START OF FREE AREA P RTN A14 RETURN * P =6 B P EJECT P J P********************************************************************** ^ H P* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS J P****************
0x0b2540…0b26d4 (1, 225) Dummy {f00=0x0038, f01=0x0190, f02=» A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS * P* A6 - LINE CONNECTION NUMBER : P* h P* EXIT: r P* P* WORK REGISTERS: A1-A8 P* P* SUBROUTINES: I:CHP,MOVE P* P EJECT PDWTGEN EQU * 4 P ST
0x0b26d4…0b2868 Dummy {f00=0x0038, f01=0x0190, f02=» ADK A7,2 FIRST FILECODE PDWT05 EQU * . P LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT 4 2 P LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER f P* P* CHECK CONNECTION TYPE P* , P LC A4,TDC+6,A9 GET LINE CONNECTION TYPE $ P CCK A4,
0x0b2868…0b29fc Dummy {f00=0x0038, f01=0x0190, f02=»K A4,'AA' ASCU4Z CONNECTION? P RF(NE) DWT07 NO! $ . P CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z > P RF DWT31 p * PDWT07 CCK A4,'VV' VCCU1/4 CONNECTION? P RF(NE) DWT11 0 P CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4 P RF DWT31
0x0b29fc…0b2b90 Dummy {f00=0x0038, f01=0x0190, f02=» $ PDWT12 CCK A4,'LL' LT CONNECTION? P RF(NE) DWT08 NO! , , P CALL I:CHLT INIT CHANNEL PARAMETERS LT F P RF DWT31 v $ PDWT08 CCK A4,'RR' RT CONNECTION? P RF(NE) DWT09 NO! =8 . P CALL I:CHRT INIT CHANNEL PARAMETERS RT =8 P RF DWT31
0x0b2b90…0b2d24 Dummy {f00=0x0038, f01=0x0190, f02=»ERROR 6 PDWT06 CALL I:CHRI INIT CHANNEL PARAMETERS RWSI =8 PDWT31 EQU * H P ST A3,STKEND+CONTYP SAVE P ST A5,STKEND+WRK3 SAVE ~ P ST A6,STKEND+WRK4 SAVE P* 2 P* CHECK IF DWT ALREADY GENERATED ON THIS LINE P* , P
0x0b2d24…0b2eb8 Dummy {f00=0x0038, f01=0x0190, f02=» P RF(Z) DWT32 6 P LD A3,STKEND+CONTYP GET LINE AND CONNECTION TYPE P CW A3,-4,A4 EQUAL? V P RF(Z) DWT15 YES! r PDWT14 EQU * " P LDR* A4,A4 GET NEXT BLOCK =7 ( P SUK A5,1 DECREMENT NUMBER OF BLOCKS P RB DWT13 PDWT1
0x0b2eb8…0b304c Dummy {f00=0x0038, f01=0x0190, f02=»DDRESS v . P LD A3,STKEND+WRK3 GET CHANNEL PARAMETER-2 $ P ANK A3,/003F GET DEVICE ADDRESS @ P SUR A3,A6 EQUAL? h P RB(NE) DWT14 NO! & P LD A6,DWTST,A2 GET DEVICE STATUS " P ANK A6,/00C0 GET BITS 8 AND 9 & P LD A3,DWTST,A1 GET DEVICE S
0x0b304c…0b31e0 Dummy {f00=0x0038, f01=0x0190, f02=» $ P ANKL A6,/8000 ISOLATE ECHO BIT $ P LD A3,DWTTAB,A1 GET DEVICE TYPE , $ P ANKL A3,/8000 ISOLATE ECHO BIT T P SUR A3,A6 EQUAL? | P RB(NE) DWT14 NO! P CALL DWT50 P LDKL A1,DWT70 P AD A1,STKCOM+M:REL P ABR A1 PDW
0x0b31e0…0b3374 (1, 226) Dummy {f00=0x0039, f01=0x0190, f02=»E DWT ~ P* P LDR A2,A12 TO-ADDRESS P LD A3,DWTOR,A1 LENGTH 6 P ADR A12,A3 NEXT FREE ENTRY T P CALL CHKMOV x P EJECT P* $ P* A1 - ADDRESS TO PROTOTYPE DWT P* A2 - ADDRESS TO REAL DWT P* P LD A6,STKEND+
0x0b3374…0b3508 Dummy {f00=0x0039, f01=0x0190, f02=»* P* CHECK IF INPUT DEVICE P* * P LD A3,2,A1 GET DWT STATUS 4 P ANK A3,/0040 INPUT DEVICE? V P RF(Z) DWT45 NO z P* P* INPUT DEVICE: P* CHECK IF KEYBOARD P* P LD A3,DWTADR,A1 P LD A3,DEVIND,A3
0x0b3508…0b369c Dummy {f00=0x0039, f01=0x018e, f02=»RE ADDRESS OF KEYBOARD RUNTIME-DWT : P* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE * P* h P* r P LD A5,DWTECH,A1 ECHO? | P RF(Z) DWT40 NO P AD A5,STKCOM+M:REL : P LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE
0x0b369c…0b3830 Dummy {f00=0x0039, f01=0x0190, f02=» ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY 8 P STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE 0 < P ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE l P ADK A3,4 UPDATE LENGTH * P ST* A3,STKEND+ECHTAB SAVE NEW LENGTH P EJECT P
0x0b3830…0b39c4 Dummy {f00=0x0039, f01=0x0190, f02=»,DWTSQ DISPLACEMENT TO START OF BUFFER $ P ST A5,DWTSQ-4,A2 STORE POINTER . $ P ST A5,DWTSQ-2,A2 STORE POINTER V P* ~ P* IF DOUBLE KEYBOARD: D P* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 P* IN ENTRY CORRESPONDING
0x0b39c4…0b3b58 Dummy {f00=0x0039, f01=0x0190, f02=» $ P RF(Z) DWT60 NOT DOUBLE KEYBOARD $ P LDR A5,A2 GET REAL DWT-ADDRESS , P ADK A5,1 ADD ONE T * P CALL B:TTAB BUILD ONE BLOCK IN T.I.T. n P SUK A5,1 $ P LDR A2,A5 GET REAL DWT-ADDRESS P RF DWT60 P EJECT PDWT45 CALL DWT50
0x0b3b58…0b3cec Dummy {f00=0x0039, f01=0x0190, f02=»EVICE IS TO BE USED FOR ECHOING ON. 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT , 0 P* IS THEN STORED IN THE ECHO DEVICE TABLE. f P* 0 P LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS , P RF(NN) DWT59 NO ECHOING ON THIS DEVICE : P
0x0b3cec…0b3e80 Dummy {f00=0x0039, f01=0x0190, f02=»DWT55 LDR A4,A3 SAVE LENGTH ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY $ . 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,STKEND+ECHTAB STORE NEW LENGTH PDWT59 RT
0x0b3e80…0b4014 (1, 227) Dummy {f00=0x0039, f01=0x0190, f02=»NG? ~ P RF(Z) DWT70 P EJECT , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS . ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS ^ * P SUR A4,A2 COMPUTE RELOCATION CONSTANT , P SUR A5,A4 RELOCATE MONITOR ECB ADDRESS $ P ANKL A5,/FFFE MAKE EVEN ADDRESS
0x0b4014…0b41a8 Dummy {f00=0x0039, f01=0x0190, f02=»,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER $ $ P RF(Z) DWT70 ALLOCATE NO BUFFER! Z P* L P* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL P* , P LD A5,DWTMEC,A2 GET MONITOR ECB-A
0x0b41a8…0b433c Dummy {f00=0x0039, f01=0x0190, f02=»5 SAVE P LDR A3,A4 GET LENGTH & P ADK A3,3 ADD BO FERMS CONSTANT+1 . , P ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH X P EJECT P* 4 P* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN 6 P* THE SIZE OF BUFFER RESERVED FOR SYSLOD PART A
0x0b433c…0b44d0 Dummy {f00=0x0039, f01=0x0190, f02=»M+BUFSIZ P RF(NG) DWT65 P ST A3,STKCOM+BUFSIZ ( P ST A12,STKCOM+SYSBUF D PDWT65 EQU * b P ADR A12,A3 NEXT FREE ENTRY v P EJECT PDWT70 EQU * P* . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB P* " P ADKL
0x0b44d0…0b4664 Dummy {f00=0x0039, f01=0x0190, f02=»RY IN TTAB | " P STR A2,A10 STORE DWT-ADDRESS P* 8 , P* CHECK IF MOORE DEVICES IN THIS CLASS B P* r P SUKL A8,4 | P RF(Z) DWTEX P ADK A7,4 NEXT DEVICE P LDKL A1,DWT05 P AD A1,STKCOM+M:REL P ABR A1 PDWTEX
0x0b4664…0b47f8 Dummy {f00=0x0039, f01=0x0190, f02=»NTER IN ONE POINTER-SET x 4 P* AND SECOND POINTER IN THE OTHER POINTER-SET: 0 P* STORE SECOND POINTER OF FIRST POINTER-SET X 2 P* IN RUNTIME-DWT POINTED AT BY FIRST POINTER 2 P* OF SECOND POINTER-SET AND CLEAR POINTERS OF P* SECOND POINTE
0x0b47f8…0b498c Dummy {f00=0x0039, f01=0x0190, f02=» A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE " P RF(Z) DWT160 NO ECHO DEVICES! : : P AD A3,STKEND+ECHTAB COMPUTE END OF ECHO DEVICE TABLE ` 8 P LD A1,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE P ADK A1,2 BYPASS LENGTH < PDWT90 LD A2,ST
0x0b498c…0b4b20 Dummy {f00=0x0039, f01=0x0190, f02=» > PDWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET P RF(E) DWT130 COINCIDENCE! F P ADK A2,4 NEXT POINTER-SET h ( P CWR A2,A3 END OF ECHO DEVICE TABLE $ P RB(NE) DWT110 NO:CHECK NEXT SET P RF DWT140 : PDWT130 LD A4,2,A2 ADDRES
0x0b4b20…0b4cb4 (1, 228) Dummy {f00=0x0039, f01=0x0190, f02=»CHO-DEVICE f P CMR A1 CLEAR FIRST POINTER " P CM 2,A1 CLEAR SECOND POINTER 6 $ PDWT140 ADK A1,4 NEXT POINTER-SET ( P CWR A1,A3 END OF ECHO DEVICE TABLE P RB(NE) DWT90 NO! * PDWT150 CM* STKEND+ECHTAB CLEAR LENGTH PDWT160 RTN A14 R
0x0b4cb4…0b4e48 Dummy {f00=0x0039, f01=0x0190, f02=»REAL-TIME INTERRUPT TABLE * ~ 2 P********************************************** $ P* Z P* REFERENCED IN: DWTGEN d P* * P* ENTRY: SCTSFA - START OF FREE AREA P* , P* EXIT: REAL TIME INTERRUPT TABLES FOR 2 P* LT,RT,
0x0b4e48…0b4fdc Dummy {f00=0x0039, f01=0x0190, f02=»LES f 0 P LD A1,STKEND+FWTFLG T.I.T. IN FREE AREA? =7 P RF(P) B:ITLT YES? =7 @ 4 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA =7 ^ P LDR A1,P =7 PBIT05 EQU * =7 * P SUK A1,2 DECREMENT MEMORY ADDRESS =7 P CMR A1 CLEAR MEMORY A
0x0b4fdc…0b5170 Dummy {f00=0x0039, f01=0x0190, f02=»T h P* P XIF PB:ITLT EQU * P IFF SUML=0 4 $ P LDKL A8,0 CONNECTION TYPE = LT H P LDKL A9,7 1:ST BOARD p . P LDK A1,16 MAX.LENGTH OF BOARD CONF. TABLE P ST A1,STKEND+WRK4 SAVE P CM STKEND+WRK1 CLEAR P CM STKEND
0x0b5170…0b5304 Dummy {f00=0x0039, f01=0x0190, f02=»EX IN MONTAB v " P LD A2,STKEND+WRK3 ANY LINES? P RF(Z) BIT15 NO! : P CM STKEND+WRK3 CLEAR R : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE p P ST A2,INTLT1,A1 SAVE PBIT15 EQU * P ADK A1,2 & P ST A1,STKEND+WRK2 STO
0x0b5304…0b5498 Dummy {f00=0x0039, f01=0x0190, f02=» B:ITRT YES! P RB BIT10 P XIF & P EJECT 2 P* @ . P* BUILD REAL-TIME INTERRUPT TABLES FOR RT J P* | PB:ITRT EQU * P IFF SUMR=0 $ P LDKL A8,1 CONNECTION TYPE = RT P LDKL A9,3 1:ST BOARD . P LDK A1,8 MAX.LENGTH
0x0b5498…0b562c Dummy {f00=0x0039, f01=0x0190, f02=»3 CLEAR PBRT10 EQU * P CALL B:BTAB $ P CALL B:LTAB 8 * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB L " P LD A2,STKEND+WRK3 ANY LINES? z P RF(Z) BRT15 NO! P CM STKEND+WRK3 CLEAR : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TA
0x0b562c…0b57c0 Dummy {f00=0x0039, f01=0x0190, f02=» P ST A9,STKEND+WRK1 STORE P ADKL A9,3 NEXT BOARD $ P CWK A9,15 LAST BOARD? B P RF(G) B:ITPC YES! ` P RB BRT10 z P XIF P EJECT P* 4 P* BUILD REAL-TIME INTERRUPT TABLES FOR PLC-LOCAL P* PB:ITPC EQU * P I
0x0b57c0…0b5954 (1, 229) Dummy {f00=0x0039, f01=0x0190, f02=» P ST A1,STKEND+WRK4 P LDK A1,1 =2 P ST A1,STKEND+WRK1 =2 4 P CM STKEND+WRK2 CLEAR R P CM STKEND+WRK3 CLEAR p PBPC10 EQU * P CALL B:BTAB P CALL B:LTAB * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB " P LD A2,STKEND+WR
0x0b5954…0b5ae8 Dummy {f00=0x0039, f01=0x0190, f02=» P ST A2,INTPL1,A1 SAVE PBPC15 EQU * " P ADK A1,2 6 & P ST A1,STKEND+WRK2 STORE NEW INDEX H P ADKL A9,1 r P ST A9,STKEND+WRK1 P ADKL A9,31 NEXT BOARD P CWK A9,128 LAST BOARD? P RF(G) B:ITPR YES! =8 P RB BPC10
0x0b5ae8…0b5c7c Dummy {f00=0x0039, f01=0x0190, f02=»LCR=0 * P LDKL A8,6 CONNECTION TYPE=PLC-REMOTE P LDKL A9,32 1:ST BOARD < 0 P LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2 Z P ST A1,STKEND+WRK4 P LDK A1,1 =2 P ST A1,STKEND+WRK1 =2 P CM STKEND+WRK2 CLEAR P CM STKEND+WRK
0x0b5c7c…0b5e10 Dummy {f00=0x0039, f01=0x018e, f02=»WRK3 ANY LINES? P RF(Z) BPR15 NO! ! P CM STKEND+WRK3 ! 0 B P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE ! H P ST A2,INTPR1,A1 SAVE ! PBPR15 EQU * ! P ADK A1,2 ! & P ST A1,STKEND+WRK2 STORE NEW INDEX ! P ADKL A9,1 !
0x0b5e10…0b5fa4 Dummy {f00=0x0039, f01=0x0190, f02=» P XIF " P EJECT " P " P* " & 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR VCCU1/4 " 0 P* " f PB:ITVU EQU * " p P IFF VIDEO=0 " ( P LDKL A8,7 CONNECTION TYPE = VCCU1/4 " P LDKL A9,3 1:ST BOARD " . P LDK A1,8 MAX.LENGTH OF BOARD CONF. TA
0x0b5fa4…0b6138 Dummy {f00=0x0039, f01=0x0190, f02=»U10 EQU * " P CALL B:BTAB # P CALL B:LTAB # & * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB # : " P LD A2,STKEND+WRK3 ANY LINES? # h P RF(Z) BVU15 NO! # P CM STKEND+WRK3 CLEAR # : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE # P ST A2
0x0b6138…0b62cc Dummy {f00=0x0039, f01=0x0190, f02=»WRK1 STORE # P ADKL A9,3 NEXT BOARD $ P CWK A9,31 LAST BOARD? $ 0 P RF(G) B:ITSZ YES! $ N P RB BVU10 $ h P XIF $ z P $ P EJECT $ P* $ 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR SALCUZ $ P* $ PB:ITSZ EQU * $ P IFF SALCUZ=0
0x0b62cc…0b6460 Dummy {f00=0x0039, f01=0x0190, f02=»A1,STKEND+WRK4 $ P CM STKEND+WRK1 CLEAR % P CM STKEND+WRK2 CLEAR % 4 P CM STKEND+WRK3 CLEAR % R PBSZ10 EQU * % p P CALL B:BTAB % P CALL B:LTAB % * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB % " P LD A2,STKEND+WRK3 ANY LINES? % P RF(Z) B
0x0b6460…0b65f4 (1, 230) Dummy {f00=0x003a, f01=0x018e, f02=»U * % P ADK A1,2 & & P ST A1,STKEND+WRK2 STORE NEW INDEX & P ADKL A9,1 & H P ST A9,STKEND+WRK1 & Z P CWK A9,7 LAST BOARD? & t P RF(G) B:ITAZ YES! & P RB BSZ10 & P XIF & P EJECT & P* & 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR
0x0b65f4…0b6788 Dummy {f00=0x003a, f01=0x0190, f02=» & x . P LDK A1,8 MAX. LENGTH OF BOARD CONF.TABLE ' P ST A1,STKEND+WRK4 ' : P CM STKEND+WRK1 CLEAR ' T P CM STKEND+WRK2 CLEAR ' r P CM STKEND+WRK3 CLEAR ' PBAZ10 EQU * ' P CALL B:BTAB ' P CALL B:LTAB ' * P LD A1,STKEND+WRK2 GET INDEX I
0x0b6788…0b691c Dummy {f00=0x003a, f01=0x0190, f02=»D CONFIGURATION TABLE ' h P ST A2,INTAS1,A1 SAVE ( PBAZ15 EQU * ( < P ADK A1,2 ( P & P ST A1,STKEND+WRK2 STORE NEW INDEX ( b P ADKL A9,1 ( P ST A9,STKEND+WRK1 ( P ADKL A9,3 NEXT BOARD ( P CWK A9,31 LAST BOARD? ( P RF(G) BAZ20 YES! (
0x0b691c…0b6ab0 Dummy {f00=0x003a, f01=0x0190, f02=» 2 P* I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * ) 2 P********************************************* ) : P* ) p P* REFERENCED IN: DWTGEN ) z P* ) , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT ) ( P* A2 - POINTER TO REAL DWT ) * P*
0x0b6ab0…0b6c44 Dummy {f00=0x003a, f01=0x0190, f02=» . P* A3 - BITS 12-15 CONNECTION TYPE * * P* BITS 4 -11 LINE NUMBER * 6 P* WORK REGISTERS: * d P* * ~ P* SUBROUTINES: * P* * PI:CHSZ EQU * * P IFF SALCUZ=0 * $ P CWK A6,8 CONNECTION NUMBER <=8? * P RF(G) NUMER
0x0b6c44…0b6dd8 Dummy {f00=0x003a, f01=0x0190, f02=»WTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT * $ P ANK A5,/3F CLEAR BITS TO MODIFY + , 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER + T " P SLL A3,4 MOVE TO BITS 4 - 11 + ( P ADK A3,2 ADD CONNECTION TYPE SALCUZ + . P ADKL A6,/0200 ADD CONNECTION TYPE SALCUZ +
0x0b6dd8…0b6f6c Dummy {f00=0x003a, f01=0x018e, f02=»*********************************************** + 2 P* I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * , 8 : P***************************************************** , n P* , P* REFERENCED IN: DWTGEN , P* , , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT
0x0b6f6c…0b7100 Dummy {f00=0x003a, f01=0x0190, f02=» , h P* - * P* EXIT: A6 - CHANNEL PARAMETER - 1 - * P* A5 - CHANNEL PARAMETER - 2 - @ . P* A3 - BITS 12-15 CONNECTION TYPE - n * P* BITS 4-11 LINE NUMBER - P* - P* WORK REGISTERS: - P* - P* SUBROUTIN
0x0b7100…0b7294 (1, 231) Dummy {f00=0x003a, f01=0x0190, f02=» A6,1 CONNECTION NUMBER >=1? - P RF(L) NUMERR NO! . $ , P SUK A6,1 MODIFY LINE CONNECTION NUMBER . > 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT . n $ P ANK A5,/3F CLEAR BITS TO MODIFY . 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER . P ANK A3,3
0x0b7294…0b7428 Dummy {f00=0x003a, f01=0x0190, f02=»ONNECTION NUMBER . r P SLL A3,4 / , P ANK A6,/1C GET BITS 11-13 BOARD NUMBER / * P SRL A6,2 MOVE TO BITS 12-15 / Z ( P ADK A3,3 ADD CONNECTION TYPE ASCU4Z / ~ . P ADKL A6,/0300 ADD CONNECTION TYPE ASCU4Z / P RTN A14 / P XIF / P IFT ASCU4Z=0 /
0x0b7428…0b75bc Dummy {f00=0x003a, f01=0x018e, f02=»* I:CHAZ - INIT CHANNEL PARAMETERS VCCU1/4 * / : P***************************************************** 0 6 P* 0 t P* REFERENCED IN: DWTGEN 0 ~ P* 0 , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT 0 ( P* A2 - POINTER TO REAL DWT 0 ( P*
0x0b75bc…0b7750 Dummy {f00=0x003a, f01=0x0190, f02=» 0 h * P* A5 - CHANNEL PARAMETER - 2 1 . P* A3 - BITS 12-15 CONNECTION TYPE 1 6 * P* BITS 4-11 LINE NUMBER 1 h P* 1 P* WORK REGISTERS: 1 P* 1 P* SUBROUTINES: 1 P* 1 PI:CHVC EQU * 1 P IFF VIDEO=0 1
0x0b7750…0b78e4 Dummy {f00=0x003a, f01=0x0190, f02=» , P SUK A6,1 MODIFY LINE CONNECTION NUMBER 2 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT 2 4 $ P ANK A5,/3F CLEAR BITS TO MODIFY 2 h 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER 2 P ANK A3,3 GET BITS 14-15 2 & P SLL A3,8 MOVE TO BITS TO BITS 6-7 2
0x0b78e4…0b7a78 Dummy {f00=0x003a, f01=0x0190, f02=»BITS 11-13 BOARD NUMBER 2 P SRL A6,2 MOVE TO BITS 12-15 3 * P ADK A3,7 ADD CONNECTION TYPE VCCU1/4 3 D . P ADKL A6,/0700 ADD CONNECTION TYPE VCCU1/4 3 r P RTN A14 3 P XIF 3 P IFT VIDEO=0 3 P LDKL A1,LMP4 3 P CALL ERROR 3 P XIF 3
0x0b7a78…0b7c0c Dummy {f00=0x003a, f01=0x0190, f02=»************************ 3 ~ P* 4 P* REFERENCED IN: DWTGEN 4 * P* 4 J , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT 4 T ( P* A2 - POINTER TO REAL DWT 4 * P* A6 - LINE CONNECTION NUMBER 4 P* 4 * P* EXIT: A6 - CHANNEL PARAMETE
0x0b7c0c…0b7da0 Dummy {f00=0x003a, f01=0x0190, f02=» LINE NUMBER 4 v P* 5 P* WORK REGISTERS: 5 P* SUBROUTINES: 5 8 P* 5 P PI:CHPC EQU * 5 Z P IFF PLCL=0 5 n ( P CWK A6,128 CONNECTION NUMBER <=128? 5 P RF(G) NUMERR NO! 5 $ P CWK A6,1 CONNECTION NUMBER >=1? 5 P RF(L) NUMERR NO! 5
0x0b7da0…0b7f34 (1, 232) Dummy {f00=0x003a, f01=0x0190, f02=»ECTION NUMBER 5 x P ANK A3,/1F GET BITS 11 - 15 6 P ADK A3,1 6 : P SLL A3,8 MOVE TO BITS 2 - 7 6 L & P ORR A5,A3 MERGE WITH OLD CONTENTS 6 p * P LDR A3,A6 GET LINE CONNECTION NUMBER 6 P ADK A3,1 6 " P SLL A3,4 MOVE TO BITS 4 - 11 6 & P ADK A3,
0x0b7f34…0b80c8 Dummy {f00=0x003a, f01=0x0190, f02=»DD CONNECTION TYPE PLC 6 P RTN A14 7 P XIF 7 . P IFT PLCL=0 7 : P LDKL A1,LMP4 7 N P CALL ERROR 7 d P XIF 7 x P EJECT 7 . P****************************************** 7 2 P* I:CHPC - INIT CHANNEL PARAMETERS RWSI * =8 7 . P**************
0x0b80c8…0b825c Dummy {f00=0x003a, f01=0x0190, f02=»* A2 - POINTER TO REAL DWT 7 * P* A6 - LINE CONNECTION NUMBER 8 , P* 8 Z * P* EXIT: A6 - CHANNEL PARAMETER - 1 8 d * P* A5 - CHANNEL PARAMETER - 2 8 . P* A3 - BITS 12-15 CONNECTION TYPE 8 * P* BITS 4
0x0b825c…0b83f0 Dummy {f00=0x003a, f01=0x0190, f02=»WK A6,128 CONNECTION NUMBER <=128? 8 P RF(G) NUMERR NO! 9 * $ P CWK A6,1 CONNECTION NUMBER >=1? 9 D P RF(L) NUMERR NO! 9 l P SUK A6,1 9 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT 9 $ P ANK A5,/3F CLEAR BITS TO MODIFY 9 * P LDR A3,A6 GET LINE
0x0b83f0…0b8584 Dummy {f00=0x003a, f01=0x0190, f02=»H OLD CONTENTS 9 | * P LDR A3,A6 GET LINE CONNECTION NUMBER : P ADK A3,1 : D " P SLL A3,4 MOVE TO BITS 4 - 11 : V , P ADK A3,6 ADD CONNECTION TYPE PLC-REMOTE : | , P ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER : " P SRL A6,5 MOVE TO BITS 12 - 15 : 2 P ADKL
0x0b8584…0b8718 Dummy {f00=0x003a, f01=0x0190, f02=» P CALL ERROR ; P EJECT ; * P************************************* ; & . P* I:CHLT - INIT CHANNEL PARAMETERS LT * ; T * P************************************* ; P* ; P* REFERENCED IN: DWTGEN ; P* ; , P* ENTRY: A1 - POINTER TO PROTO
0x0b8718…0b88ac Dummy {f00=0x003a, f01=0x0190, f02=»NEL PARAMETERS -1 ; | * P* A5 - CHANNEL PARAMETERS -2 < . P* A3 - BITS 12-15 CONNECTION TYPE < H * P* BITS 4-11 LINE NUMBER < z P* < P* WORK REGISTERS: < P* < P* SUBROUTINES: < P* < P EJECT < PI:
0x0b88ac…0b8a40 Dummy {f00=0x003a, f01=0x0190, f02=»NUMBER >=01? < x P RB(L) NUMERR NO =8! = , P SUK A6,1 MODIFY LINE CONNECTION NUMBER = 0 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT = ` ( P ANKL A5,/003F CLEAR BITS TO MODIFY = 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER = P ANK A3,7 GET BITS
0x0b8a40…0b8bd4 (1, 233) Dummy {f00=0x003a, f01=0x0190, f02=» = b P SLL A3,4 > P ANK A6,/18 GET BITS 11-12 > P SRL A6,3 MOVE TO BITS 14-15 > < P RTN A14 > ` P XIF > p P IFT SUML=0 > | P LDKL A1,LMP4 > P CALL ERROR > P XIF > P EJECT > . P***************************************** > . P*
0x0b8bd4…0b8d68 Dummy {f00=0x003a, f01=0x0190, f02=» P* ? , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT ? ( P* A2 - POINTER TO REAL DWT ? > * P* A6 - LINE CONNECTION NUMBER ? j P* ? * P* EXIT: A6 - CHANNEL PARAMETERS - 1 ? * P* A5 - CHANNEL PARAMETERS - 2 ? . P*
0x0b8d68…0b8efc Dummy {f00=0x003a, f01=0x0190, f02=»UBROUTINES: ? P* @ P EJECT @ PI:CHRT EQU * @ , P IFF SUMR=0 @ @ * P CWK A6,0016 CONNECTION NUMBER <= 16? @ T P RB(G) NUMERR NO =8! @ ( P CWK A6,0001 CONNECTION NUMBER >=1? @ P RB(L) NUMERR NO =8! @ , P SUK A6,1 MODIFY LINE CONNECTION N
0x0b8efc…0b9090 Dummy {f00=0x003a, f01=0x0190, f02=»NE CONNECTION NUMBER @ v P ANK A3,3 GET BITS 14-15 A P SLL A3,8 MOVE TO BITS 6-7 A < & P ORR A5,A3 MERGE WITH OLD CONTENTS A ^ 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER A P SLL A3,4 A $ P ADK A3,1 ADD CONNECTION TYPE RT A P ANK A6,/C GET B
0x0b9090…0b9224 Dummy {f00=0x003a, f01=0x0190, f02=»R=0 =8 A P LDKL A1,LMP4 B P CALL ERROR B $ P XIF =8 B 8 P IFT DC=1 B H P EJECT B Z < P******************************************************* B h < P* * B < P* B:CNA BUILD COMPUTER NETWOR
0x0b9224…0b93b8 Dummy {f00=0x003a, f01=0x0190, f02=» * B h < P* SCANS POSSIBLE D-BLOCK IN CONFIGURATION DATA * C < P* AND BUILDS DATA COMMUNICATION TABLE IN MEMORY. * C X < P* TABLE START IS DEFINED BY THE POINTER SCTDCT * C < P* IN SYSTAB.
0x0b93b8…0b954c Dummy {f00=0x003a, f01=0x0190, f02=» C X < P* * D < P* REFERENCED IN: CONMON * D H < P* SUBROUTINES CALLED: GETDTE, P:DTE * D < P* WORK REGISTERS: A1-A12 * D < P
0x0b954c…0b96e0 Dummy {f00=0x003a, f01=0x0190, f02=» P E PB:CNA EQU * E P LD A11,DCBLK+STKCOM E $ * P RF(Z) B:CN20 NO DATA COMMUNICATION =1 E @ P* E n < P AD A11,CONSTA+STKCOM GET D BLOCK ADDRESS IN CONF. DATA E x * P LD A12,SCTSFA GET START OF FREE AREA E ( P ST A12,SCTDCT UPDATE SYSTAB POINT
0x0b96e0…0b9874 (1, 234) Dummy {f00=0x003b, f01=0x0190, f02=»F SDTE RECORD E r PB:CN00 EQU * F P SUK A1,1 F * 2 P RF(N) B:CN10 NO DTE BLOCKS LEFT IN CONF. DATA F < P* F r . P ST A1,NUMDTE+STKEND SAVE NO OF DTE:S LEFT F | , P ADKL A11,5 ADVANCE TO 1ST CHAR. IN NAME F & P CALL P:DTE PROCESS THIS DTE BLOCK F 2 P
0x0b9874…0b9a08 Dummy {f00=0x003b, f01=0x0190, f02=»QU * F P CM 0,A12 AND RESET IT G P ADKL A12,2 G * , P ST A12,SCTSFA UPDATE START OF FREE AREA G > PB:CN20 EQU * =1 G n P RTN A14 G P EJECT G < P******************************************************* G < P*
0x0b9a08…0b9b9c Dummy {f00=0x003b, f01=0x018e, f02=»======== * G f < P* * H < P* SCANS DTE BLOCK IN CONF. DATA AND BUILDS CORRE- * H V < P* SPONDING DTE-BLOCK IN SCTDCT. IF MULTIPLE COPIES * H < P* ARE DEFINED CURRENT DTE IS DUPLICATED THE NO O
0x0b9b9c…0b9d30 Dummy {f00=0x003b, f01=0x0190, f02=» H V < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * I < P* SDTE NAME IN CONF. DATA * I H < P* A12 POINTER TO START OF CURRENT * I < P* DTE BLOCK IN SCTDCT TABLE * I < P
0x0b9d30…0b9ec4 Dummy {f00=0x003b, f01=0x0190, f02=» PROCESSED DTE-BLOCK IN CONF. DATA * I < P* A12 POINTER TO LAST DEFINED DTE-BLOCK * J 8 < P* DEFINED IN SCTDCT TABLE * J x < P* * J < P* REFERENCED I
0x0b9ec4…0ba058 Dummy {f00=0x003b, f01=0x0190, f02=» AND MOVE * J x < P* * K ( < P******************************************************* K h P K P K PP:DTE EQU * K * P LDKL A1,/3000 INITIALIZE NAME FILLER K , P LC A1
0x0ba058…0ba1ec Dummy {f00=0x003b, f01=0x0190, f02=»PE RECORD? K x P RF(E) PDTE00 YES! L P* L , & P SLL A1,8 NO LEFT ADJUST CHAR. AND L 6 $ P LC A1,1,A11 GET NEXT CHARACTER L ` P ADKL A11,1 L PPDTE00 EQU * L , P ST A1,DTENAM+STKEND SAVE NAME IN STACK L " P CALL GETCOP GET NO OF COPIES L " P S
0x0ba1ec…0ba380 Dummy {f00=0x003b, f01=0x0190, f02=»ER L t P LC A1,2,A11 M & P ST A1,DTETYP+STKEND SAVE IN STACK M P ADKL A11,2 M H ( P LDK A2,0 RESET NETWORK ADDR. LENGTH M P CALL ENDBLK END OF D-BLOCK? M P LDR A8,A8 M P RF(Z) PDTE05 YES! M P* M . P LC A7,NANSA,A11 GET NA-NSA-SDTE QUALI
0x0ba380…0ba514 (1, 235) Dummy {f00=0x003b, f01=0x0190, f02=»T A11,NASTRT+STKEND SAVE ADDRESS M & P CALL P:NA PROCESS NETWORK ADDRESS N ( P LC A7,2,A11 N R PPDTE05 EQU * N f * P ST A2,NALNG+STKEND SAVE LENGTH OF NA N z P LDK A1,0 N P CALL ENDBLK END OF D-BLOCK? N P LDR A8,A8 N P RF(Z) PDTE07 YES! N
0x0ba514…0ba6a8 Dummy {f00=0x003b, f01=0x0190, f02=»TNSA N * P ADKL A11,2 SKIP NSA NR IN CONF. DATA O PPDTE07 EQU * O : 2 P ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. DEF. O N $ P CWK A1,/FF LOOK IF LEGAL NUMBER O P RF(NG) PDTE10 YES! O P* O PNSAERR EQU * O * P LDKL A1,LMP4 NO, ERROR IN CONF. F
0x0ba6a8…0ba83c Dummy {f00=0x003b, f01=0x0190, f02=»END SAVE ADDR. OF 1ST SUBADDR. O ~ P SLL A1,1 P & . P ADR A11,A1 CALCULATE STAT OF NEXT RECORD P 8 PPDTE15 EQU * P j 2 P CALL DTESIZ CALCULATE SIZE OF THIS DTE BLOCK P ~ ( P CALL UPDDTE UPDATE DTE BLOCK IN DCT P * P LD A7,DTECOP+STKEND GET NO OF COPIES P
0x0ba83c…0ba9d0 Dummy {f00=0x003b, f01=0x0190, f02=» * P LD A4,DTENAM+STKEND GET PREVIOUS NAME Q P LDR A3,A4 Q 2 * P ANK A3,/FF ISOLATE RIGHT BYTE OF NAME Q D P CWK A3,/5F UPPER BOUNDARY? Q r P RF(L) PDTE25 NO! Q P* Q , P LC A4,/30 RESET RIGHT BYTE TO ASCII '0' Q & P SLL A5,8 LEFT BYTE INCREMENTA
0x0ba9d0…0bab64 Dummy {f00=0x003b, f01=0x0190, f02=»OCK? Q x P LDR A8,A8 R P RF(Z) PDTE35 YES! R P* R 8 . P LC A1,2,A11 GET 2ND CHAR. IN NEXT RECORD R B 0 P CCK A1,'DD' IF A SDTE-RECORD USE OLD ADDR. R t P RF(E) PDTE35 R P* R P CCK A1,'SS' IF NSA RECORD R * P RF(E) PDTE30 USE OLD NETWORK
0x0bab64…0bacf8 Dummy {f00=0x003b, f01=0x0190, f02=»RESS R r * P ST A2,NALNG+STKEND SAVE LENGTH OF NA S P* S : P CALL ENDBLK END OF D-BLOCK? S D P LDR A8,A8 S h P RF(Z) PDTE35 YES! S z P* S P LC A1,2,A11 S P CCK A1,'SS' S ( P RF(NE) PDTE35 NO NSA RECORD PRESENT S P* S PPDTE30 EQU *
0x0bacf8…0bae8c Dummy {f00=0x003b, f01=0x018e, f02=»2 S P LDR A1,A1 T P RF(Z) PDTE35 NO SUBADDRESSE T P* T @ P CWK A1,/FF T J , P RB(G) NSAERR TOO MANY SUBADDR. DEFINED T ^ P* T 4 P ST A11,NSAADR+STKEND SAVE START OF 1ST SUBADDR. T P SLL A1,1 T . P ADR A11,A1 CALCULATE START OF NEXT RE
0x0bae8c…0bb020 Dummy {f00=0x003b, f01=0x0190, f02=» P CALL UPDDTE U P RB PDTE20 U P* U * PPDTE40 EQU * U 4 P RTN A14 U H P EJECT U X < P******************************************************** U f < P* * U < P* DTESIZ CALCULATES THE LENGTH
0x0bb020…0bb1b4 (1, 236) Dummy {f00=0x003b, f01=0x018e, f02=» * U f < P* ON ENTRY: A12 START OF CURRENT DTE BLOCK * V < P* * V V < P* WORK REGISTER: A1,A9 * V < P*
0x0bb1b4…0bb348 Dummy {f00=0x003b, f01=0x0190, f02=» V z 6 P LD A1,NALNG+STKEND GET LENGTH OF NETWORK ADDRESS W P ADK A1,1 W B $ P SRL A1,1 2 DIGITS IN EACH BYTE W T , P AD A1,DTENSA+STKEND ADD NO OF SUBADDR. W | . P ADK A1,DTEFIX+1 AND LENGTH OF FIX PART+1 W P ANKL A1,/FFFE MAKE EVEN W ( P ADR A1,A1
0x0bb348…0bb4dc Dummy {f00=0x003b, f01=0x0190, f02=»1,LIMIT+STKEND GET END OF SYSTEM AREA W " P CALL CMPADR MEMORY OVERFLOW? X . P RF(NL) DTSIZ0 NO! X T P* X n P LDKL A1,LMP3 YES! X x P CALL ERROR X P* X PDTSIZ0 EQU * X 6 P LD A11,WRK1+STKEND RESTORE POSITION IN CONF. DATA X P RTN A14 X
0x0bb4dc…0bb670 Dummy {f00=0x003b, f01=0x0190, f02=» * X < P* UPDDTE UPDATES CURRENT DTE BLOCK WITH ITS: * Y < P* ====== * Y L < P* NAME * Y < P* TYPE * Y
0x0bb670…0bb804 Dummy {f00=0x003b, f01=0x0190, f02=» * Y < P******************************************************** Z < P Z | P Z PUPDDTE EQU * Z 4 P LDR A6,A12 GET START OF CURRENT DTE BLOCK ENTRY Z P ADK A6,2 SKIP LINK ENTRY Z , P LD A1,DTENAM+
0x0bb804…0bb998 Dummy {f00=0x003b, f01=0x0190, f02=» P STR A1,A6 AND SAVE IN DCT [ P ADK A6,2 [ & P LDK A5,4 GET NO OF SHIFTS [ 8 . P ORKL A5,SLL0 AND CONFIG. SLL A1,8 INSTR. [ Z 4 P LD A2,NALNG+STKEND GET LENGTH OF NETWORK ADDR. [ $ P LDR A3,A2 SAVE NO OF CHARACTERS [ P SLL A2,8 LEFT ADJUST [ ,
0x0bb998…0bbb2c Dummy {f00=0x003b, f01=0x0190, f02=»D PACK NA TO DCT [ | $ P ANKL A5,/1F ISOLATE SHIFT COUNT & P CWK A5,4 LESS THAN ONE BYTE LEFT? @ P RF(NG) UPDTE2 YES! j PUPDTE0 EQU * P LDK A5,0 SET NO OF SHIFTS P RF UPDTE4 P* PUPDTE2 EQU * P STR A2,A6 STORE WORD IN DCT
0x0bbb2c…0bbcc0 Dummy {f00=0x003b, f01=0x0190, f02=» ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. 4 P LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED ] 0 & P RF(Z) UPDTE8 NO SUBADDR. DEFINED ] h P* ] 4 P LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR. ] P LDR A3,A1 ] * P SLL A3,1 2 DIGITS FOR EACH SUDADD
0x0bbcc0…0bbe54 (1, 237) Dummy {f00=0x003b, f01=0x0190, f02=» ] P STR A2,A6 YES! SAVE IN DCT ^ P LDK A2,0 CLEAR TABLE WORD ^ , " P ADK A6,2 ADVANCE DCT POINTER ^ N P LDK A5,16 NO OF SHIFTS ^ t , P ORKL A5,SLL0 CONFIGURE SLL A1,12 INSTR. ^ PUPDTE6 EQU * ^ P SUK A5,4 NEXT NIBBLE ^ ( P CALL HEXCPY COPY
0x0bbe54…0bbfe8 Dummy {f00=0x003b, f01=0x018e, f02=»************** ^ f < P* * _ < P* HEXCPY COPIES AND PACKS 4 HEXADECIMAL DIGITS * _ V < P* IN ONE WORD. * _ < P*
0x0bbfe8…0bc17c Dummy {f00=0x003b, f01=0x0190, f02=» _ V < P* A4 ADDRESS TO FIRST ASCII DIGIT * ` < P* A5 PACKING INSTR. (SLL A1,N TIMES) * ` H < P* A6 POINTER WHERE TO STORE PACKED WORD * ` < P* * ` < P
0x0bc17c…0bc310 Dummy {f00=0x003b, f01=0x0190, f02=» PROCESSED DIGIT * ` < P* A5 PACKING INSTR. (SLL A1,N TIMES) * a 8 < P* A6 POINTER WHERE TO STORE NEXT WORD * a x < P* * a < P****************
0x0bc310…0bc4a4 Dummy {f00=0x003b, f01=0x0190, f02=» a v P CALL HEXCNV CONVERT TO HEX b P EXR A5 SHIFT b , " P ORR A2,A1 CONFIGURE DCT WORD b B ( P SUK A3,1 DECREMENT NO OF CHARACTERS b h $ P RF(Z) HXCPY8 WHOLE NA PROCESSED b P* b P CWK A5,SLL0 FULL WORD? b P RF(NE) HXCPY6 NO! b P* b
0x0bc4a4…0bc638 Dummy {f00=0x003b, f01=0x0190, f02=» b x , P ORKL A5,SLL0 CONFIGURE SSL A1,16 INSTR. c PHXCPY6 EQU * c 8 P SUK A5,4 NEXT NIBBLE c L * P ADK A4,1 NEXT CHARACTER IN CONF. DATA c j P RB HEXCPY c P* c PHXCPY8 EQU * c P RTN A14 c P EJECT c < P**********************************
0x0bc638…0bc7cc Dummy {f00=0x003b, f01=0x018e, f02=»N ASCII CODE * c f < P* TO CORRESPONDING HEXADECIMAL VALUE * d < P* (4 BITS BINARY CODE) * d V < P* * d < P* ON ENTRY: A1 CHARACTER TO CONVERT
0x0bc7cc…0bc960 Dummy {f00=0x003b, f01=0x0190, f02=» d V < P* * e < P******************************************************** e H P e P e PHEXCNV EQU * e " P ANK A1,/FF ISOLATE CHARACTER e P CWK A1,/29 e P RF(L) TYPERR ERRANEOUS TY
0x0bc960…0bcaf4 (1, 238) Dummy {f00=0x003c, f01=0x0190, f02=» CWK A1,/46 DIGIT BETWEEN A-F? e P RF(G) TYPERR NO f & P* f > P ADK A1,9 YES! f H PHXCN00 EQU * f ^ " P ANK A1,/F ISOLATE HEX NUMBER f r P RTN A14 f P* f PTYPERR EQU * f " P LDKL A1,LMP4 CONF. DATA ERROR f P CALL ERROR f P EJECT f
0x0bcaf4…0bcc88 Dummy {f00=0x003c, f01=0x0190, f02=» P:NA PROCESS NETWORK ADDRESS * f < P* * g > < P* SCANS THE NETWORK ADDRESS RECORD (NA=..) IN CONF. * g ~ < P* DATA AND REPACKS THE RECORD, OVERWRITING POSSIBLE * g < P* CONTIN
0x0bcc88…0bce1c Dummy {f00=0x003c, f01=0x0190, f02=» * g ~ < P* * h . < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN NETWORK * h n < P* ADDRESS. * h < P*
0x0bce1c…0bcfb0 Dummy {f00=0x003c, f01=0x0190, f02=»ORD IN CONF. DATA * h n < P* * i < P******************************************************** i ^ P i P i PP:NA EQU * i $ P LDK A4,1 RESET PACKING CONSTANT i " P LDK A2,0 RESET ADDRESS
0x0bcfb0…0bd144 Dummy {f00=0x003c, f01=0x0190, f02=»:NA06 END OF CONF. DATA i P* j P CCK A1,/FF END OF D-BLOCK? j * P RF(E) P:NA05 YES! j N P* j h & P CCK A1,'==' CONTINUATION RECORD? j r P RF(E) P:NA04 YES! j P* j . P CCK A1,'NN' NO! START OF NA OR NSA RECORD j P RF(E) P:NA06 YES! RET
0x0bd144…0bd2d8 Dummy {f00=0x003c, f01=0x0190, f02=»H j l P CWK A2,/FF TOO MANY DIGITS? k P RF(NG) P:NA02 NO! k . P* k H * P LDKL A1,LMP4 YES! ERROR IN CONF. DATA k R P CALL ERROR k PP:NA02 EQU * k P LDR A3,A4 k " P ADR A3,A11 REPACKING ADDRESS k * P SCR A1,A3 PUT CHARACTER BACK IN FILE k
0x0bd2d8…0bd46c Dummy {f00=0x003c, f01=0x0190, f02=»R k d $ P SUK A4,2 SET REPACKING CONSTANT l * P ADKL A11,1 ADVANCE TO NEXT CHARACTER l 2 P RB P:NA00 l ` P* l r PP:NA05 EQU * l | " P SUK A2,1 DECREMENT NA LENGTH l * P SUKL A11,1 AND POSITION IN CONF. DATA l P* l PP:NA06 EQU * l P RTN A
0x0bd46c…0bd600 Dummy {f00=0x003c, f01=0x0190, f02=» * l h < P* ENDBLK LOOKS FOR END OF DATA COMMUNICATION BLOCK * m < P* ================================================= * m X < P* * m < P* END OF BLOCK IS DEFINED BY A RECORD BEGINNIN
0x0bd600…0bd794 (1, 239) Dummy {f00=0x003c, f01=0x0190, f02=» m X < P* CONFIGURATION DATA. * n < P* * n H < P* ON ENTRY: A11 CURRENT POSITION IN CONF. DATA * n < P* * n < P
0x0bd794…0bd928 Dummy {f00=0x003c, f01=0x0190, f02=» * n < P******************************************************** o 8 P o x P o PENDBLK EQU * o $ P LC A8,1,A11 GET NEXT CHARACTER o " P CCK A8,/00 END OF CONF. DATA? o P RF(E) ENDBL0 YES! o P* o
0x0bd928…0bdabc Dummy {f00=0x003c, f01=0x0190, f02=»8,A8 SET END OF D-BLOCK COND. o PENDBL2 EQU * p & P RTN A14 p : P XIF p J P EJECT p V T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= p d 6 P* GENERAL SUBROUTINES * p T P*=*=*=*=*=*=*=*=*=
0x0bdabc…0bdc50 Dummy {f00=0x003c, f01=0x0190, f02=»********** p f 8 P* GETTSK - GET NUMBER OF TASKS IN A TASK-CLASS * q P* q N 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CLASSES q X P* q 8 P**************************************************** q P* q " P* REFERENCED IN: B:TCT,B:CDT q P
0x0bdc50…0bdde4 Dummy {f00=0x003c, f01=0x0190, f02=» (BINARY VALUE) q ^ P* r P* WORK REGISTERS: A5 r " P* r @ P* SUBROUTINES: CONVRT r J P* r j PGETTSK EQU * r t PGETCTC EQU * r . PGETDTE EQU * GET NO OF DTE BLOCKS DEFINED r . PGETCOP EQU * GET NO OF COPIES OF LAST DTE r 0 PGETNSA E
0x0bdde4…0bdf78 Dummy {f00=0x003c, f01=0x018e, f02=» A14 r P EJECT s 8 P**************************************************** s 8 P* GETTDC - GET NUMBER OF TERMINAL DEVICE CLASSES * s V 8 P**************************************************** s P* s P* REFERENCED IN: B:TT s P* s > P* ENT
0x0bdf78…0be10c Dummy {f00=0x003c, f01=0x0190, f02=» s N P* t P* WORK REGISTERS: A5 t P* t 0 P* SUBROUTINES: CONVRT t : P* t X PGETTDC EQU * t b P LC A5,TDBNC,A11 t v P SLL A5,8 t P LC A5,TDBNC+1,A11 t P CALL CONVRT t P RTN A14 t P EJECT t 8 P****************************
0x0be10c…0be2a0 Dummy {f00=0x003c, f01=0x0190, f02=»******* t d P* u P* REFERENCED IN: B:TT u P* u : 4 P* ENTRY: A9 - POINTER TO NUMBER OF SDC RECORD u D P* u | D P* EXIT: A1 - NUMBER OF SPECIAL DEVICE CLASSES (BINARY VALUE) u P* u P* WORK REGISTERS: A5 u P* u P* SUBRO
0x0be2a0…0be434 (1, 240) Dummy {f00=0x003c, f01=0x0190, f02=»14 u P EJECT v 2 P********************************************** v 2 P* GETCLN - GET CLASS IDENTIFICATION NUMBER * v N 2 P********************************************** v P* v P* REFERENCED IN: B:TT v P* v 6 P* ENTRY: A9 - POINTER TO
0x0be434…0be5c8 Dummy {f00=0x003c, f01=0x018e, f02=» A5 v ~ P* w P* SUBROUTINES: CONVRT w P* w 6 PGETCLN EQU * w @ P LC A5,TDCDD1,A9 w T P SLL A5,8 w l P LC A5,TDCDD2,A9 w ~ P CALL CONVRT w P RTN A14 RETURN w P EJECT w . P***************************************** w . P* GET
0x0be5c8…0be75c Dummy {f00=0x003c, f01=0x0190, f02=» P* x 8 P* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD x P* x J : P* EXIT: A1 - LINE CONNECTION NUMBER (BINARY VALUE) x T P* x P* WORK REGISTERS: A5 x P* x P* SUBROUTINES: CONVRT x P* x PGETLCN EQU * x * P STR A
0x0be75c…0be8f0 Dummy {f00=0x003c, f01=0x0190, f02=»TDCLCN ADDRESS LINE CONNECTION NUMBER x , P CALL GETNUM GET LINE CONNECTION NUMBER y . P LDR A1,A5 SAVE BINARY VALUE y ^ 0 P LDR* A6,A15 RESTORE REGISTER A6 FROM STACK y 0 P LDR* A4,A15 RESTORE REGISTER A4 FROM STACK y P RTN A14 y P EJECT y : P
0x0be8f0…0bea84 Dummy {f00=0x003c, f01=0x0190, f02=»GET TASK CLASS TO MATCH * y : P* ================================ * z 2 : P* * z p : P* REFERENCED IN: B:TT * z : P*
0x0bea84…0bec18 Dummy {f00=0x003c, f01=0x0190, f02=» * z h : P* EXIT: A5 - TCL START VALUE FOR THIS TASK CLASS * { : P* * { T : P* WORK REGISTERS: A1-A7,A10 * { : P* * {
0x0bec18…0bedac Dummy {f00=0x003c, f01=0x0190, f02=»*********************************************** { P | 8 PGETTCL EQU * | @ P LDR A6,A5 SAVE TCL | T P LDR A7,A6 TCL START VALUE | p 8 P LDR A10,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK | 6 P LD A11,STKEND+LCDSTA START OF CONFIGURATION DATA | 4 P
0x0bedac…0bef40 Dummy {f00=0x003c, f01=0x0190, f02=» A5,8 MOVE TO LEFT BYTE | . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL } P CWR A5,A6 SAME TCL? } R P RF(NE) TCL:50 NO! } n & P CALL GETTSK GET NUMBER OF COPIES } P ADR A7,A1 INCREMENT TCL } 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK } P R
0x0bef40…0bf0d4 (1, 241) Dummy {f00=0x003c, f01=0x0190, f02=» } f . P* GETCON - GET CONTENT IN MEMORY WORD * ~ . P***************************************** ~ : P* ~ l P* REFERENCED IN: SEGGEN ~ v P* ~ " P* ENTRY: A2 - MEMORY ADDRESS ~ . P* MMUOPT - MMU OPTION SWITCH (X) ~ P* ~ , P* E
0x0bf0d4…0bf268 Dummy {f00=0x003c, f01=0x0190, f02=» ~ " P LD A1,SCTOPT GET OPTION WORD P ANK A1,1 MMU OPTION . P RF(Z) GCON10 NO MMU J P ELR A1,A2 f P RF GCON20 x PGCON10 EQU * P LDR* A1,A2 PGCON20 EQU * P RTN A14 RETURN P EJECT . P****************************
0x0bf268…0bf3fc Dummy {f00=0x003c, f01=0x0190, f02=»EFERENCED IN: DWTGEN P* 4 P* ENTRY: INTTAB - START OF TEMP.INTERRUPT TABLE & 6 P* CONTYP - CONNECTION TYPE AND LINE NUMBER ^ , P* A5 - RUN TIME DWT-ADDRESS P* P* EXIT: P* P* WORK REGISTERS: P*
0x0bf3fc…0bf590 Dummy {f00=0x003c, f01=0x0190, f02=»* A2,A4 GET NUMBER OF BLOCKS P SUK A4,2 $ P 6 P LDR A2,A2 ZERO? > PTTA10 EQU * V P RF(Z) TTA11 YES! j ( P LDR* A4,A4 GET START OF NEXT BLOCK P SUK A2,1 ZERO? P RB TTA10 P* P* AREA TO BUILD BLOCKS P*
0x0bf590…0bf724 Dummy {f00=0x003c, f01=0x018e, f02=» P* BUILD BLOCKS IN FWT AREA P* & PTTA09 EQU * 0 P LDK A3,5 D PTTA12 EQU * V P SUK A2,2 j < P CW A2,STKEND+FWTSTA START OF FWT OR USED PART OF SYSLDM | P RF(E) TTA14 P SUK A3,1 P RF(Z) TTA20 P RB TTA12 P
0x0bf724…0bf8b8 Dummy {f00=0x003c, f01=0x018e, f02=» PTTA15 EQU * P LDK A3,5 PTTA16 EQU * . P SUK A2,2 B P CWR A2,A12 T P RF(E) TTA17 h P ST A2,STKEND+LIMIT | P SUK A3,1 P RF(Z) TTA20 P RB TTA16 PTTA17 EQU * P LDKL A1,LMP3 P CALL ERROR
0x0bf8b8…0bfa4c Dummy {f00=0x003c, f01=0x0190, f02=» P ADK A2,4 0 P STR A2,A4 STRORE POINTER TO NEXT FREE BLOCK P* N P* STORE NUMBER OF BLOCKS X P* x . P IM* STKEND+INTTAB INCREMENT BLOCK COUNTER P RTN A14 RETURN P EJECT 2 P**********************************************
0x0bfa4c…0bfbe0 Dummy {f00=0x003c, f01=0x0190, f02=»CED IN: B:ITAB P* " P* ENTRY: A8 - CONNECTION TYPE P* A9 - BOARD NUMBER F 8 P* SAVE20 - MAX. LENGTH OF BOARD CONF. TABLE j P* & P* EXIT: A12 - START OF FREE AREA P* , P* WORK REGISTERS: A1,A2,A3,A10,A11,
0x0bfbe0…0bfd74 (1, 242) Dummy {f00=0x003d, f01=0x0190, f02=»LOW? p , P LD A12,SCTSFA NO!GET START OF FREE AREA P LDR A11,A12 SAVE < P ADKL A12,2 V P ST A12,STKEND+BRDTAB STORE j @ P LD A10,STKEND+INTTAB GET START OF TEMPORARY INTERRUPT TABLE , P LDR* A1,A10 GET NUMBER OF BLOCKS.ZERO? P
0x0bfd74…0bff08 Dummy {f00=0x003d, f01=0x0190, f02=» TYPE d P LDR A3,A2 SAVE $ P ANK A3,/0F GET CONNECTION TYPE & P SUR A3,A8 RIGHT TYPE? N P RF(Z) BTA30 YES! l PBTA20 EQU * $ P LDR* A10,A10 NO!GET NEXT BLOCK P SUK A1,1 LAST BLOCK? P RB BTA10 PBTA30 EQU * " P A
0x0bff08…0c009c Dummy {f00=0x003d, f01=0x0190, f02=» P* P LD A3,STKEND+WRK1 P CWR A2,A3 , P RB(L) BTA20 NO! > P* V & P* BUILD BOARD CONFIGURATION TABLE ` P* P IM STKEND+WRK3 " P CWK A8,5 LWSI CONNECTION? =2 P RF(E) BTA34 YES! =2 " P CWK A8,6 RWSI CONNECTION?
0x0c009c…0c0230 Dummy {f00=0x003d, f01=0x018e, f02=» P LDR A12,A11 P ADKL A12,2 ( P ADR A12,A2 GET ENTRY IN BOARD TABLE 0 P STR A11,A12 STORE P RB BTA20 v PBTA40 EQU * P* 2 P* COMPUTE LENGTH OF BOARD CONFIGURATION TABLE P* : P LD A1,STKEND+WRK4 GET MAX. LENGTH
0x0c0230…0c03c4 Dummy {f00=0x003d, f01=0x0190, f02=» P RF(NZ) BTA60 P SUK A1,2 P RF(Z) BTA70 0 P SUKL A12,2 D P RB BTA50 X PBTA60 EQU * j : P STR A1,A11 STORE LENGTH OF BOARD CONFIGURATION TABLE ~ P ADKL A12,2 0 P ST A12,SCTSFA STORE NEW START OF FREE AREA PBTA7
0x0c03c4…0c0558 Dummy {f00=0x003d, f01=0x0190, f02=»GURATION TABLES * t 2 P********************************************** P* P P* REFERENCED IN: B:ITAB Z P* z " P* ENTRY: WRK1 - BOARD NUMBER & P* A8 - CONNECTION TYPE P* & P* EXIT: A12 - START OF FREE AREA P
0x0c0558…0c06ec Dummy {f00=0x003d, f01=0x0190, f02=» P RF(Z) BLT70 P LDKL A3,-1 LINE COUNTER P RF BLT15 8 PBLT10 EQU * J P SUK A1,2 DECREMENT LENGTH ^ P RF(Z) BLT70 RETURN P* PBLT15 EQU * P LDR A2,A12 P ADK A2,24 B P ST A2,STKEND+FWTFLG INITIATE POINTER TO
0x0c06ec…0c0880 Dummy {f00=0x003d, f01=0x0190, f02=»2 P LDR* A2,A11 READ LINE.ZERO? P RB(Z) BLT10 YES! . P LDK A4,32 GET TEST LENGTH H ( P CALL M:TST TEST IF MEMORY OVERFLOW? j P* $ P* SCAN TEMPORARY INTERRUPT TABLE P* ( P LD A2,STKEND+WRK1 GET BOARD NUMBER " P CWK A8,5
0x0c0880…0c0a14 (1, 243) Dummy {f00=0x003d, f01=0x0190, f02=» P SUK A2,1 =2 PBLT17 EQU * =2 P ADR A2,A3 ADD LINE NUMBER 6 P SLL A2,4 X " P ADR A2,A8 ADD CONNECTION TYPE j . P LD A10,STKEND+INTTAB GET START OF T.I.T. & P LDR* A4,A10 GET NUMBER OF BLOCKS P SUKL A10,2 PBLT20 EQ
0x0c0a14…0c0ba8 Dummy {f00=0x003d, f01=0x018e, f02=»ORE RUN-TIME DWT-ADDRESS IN LINE CONFIGURATION TABLE P* < * P LD A5,-2,A10 GET RUN TIME DWT-ADDRESS F P LDR A6,A5 t " P ANK A6,/0001 DOUBLE KEYBOARD? P RF(Z) BLT25 N0! & P LD A6,DWTDEV,A5 GET DEVICE STATUS ( P ANK A6,/FF GET EIGHT RIGH
0x0c0ba8…0c0d3c Dummy {f00=0x003d, f01=0x0190, f02=» d P ANK A6,7 GET DEVICE ADDRESS PBLT26 EQU * , P ADR A6,A6 @ P LDR A7,A12 SAVE R P ADR A7,A6 j P LD A6,2,A7 ZERO? | P RF(Z) BLT27 YES! ( P LD A6,DWTST,A5 NO!GET DEVICE STATUS P ANK A6,/0040 INPUT DEVICE? P RF(Z) B
0x0c0d3c…0c0ed0 Dummy {f00=0x003d, f01=0x0190, f02=» A5,A6 STORE RUN TIME DWT-ADDRESS & P ST A6,STKEND+FWTFLG STORE POINTER * * P LD A5,-2,A10 GET RUM TIME DWT-ADDRESS T PBLT27 EQU * * P ST A5,2,A7 STORE RUN TIME DWT-ADDRESS P RF BLT30 PBLT28 EQU * 2 P LD A6,STKEND+FWTFLG GET POINT
0x0c0ed0…0c1064 Dummy {f00=0x003d, f01=0x0190, f02=» P LDR* A10,A10 GET NEXT BLOCK P SUK A4,1 LAST BLOCK? ( P RF(Z) BLT40 YES! F P RB BLT20 NO! ` P* v D P* MOVE DWT-ADR.IN TEMP.AREA TO FREE LOCATIONS IN LINE CONF.TABLE P* PBLT40 EQU * 2 P LD A6,STKEND+FWTFLG GET POINTER T
0x0c1064…0c11f8 Dummy {f00=0x003d, f01=0x0190, f02=»1 EQU * P ADK A4,2 P LDR* A2,A4 " P RF(Z) BLT42 6 P RB BLT41 J PBLT42 EQU * * P STR A5,A4 STORE RUN TIME DWT-ADDRESS p P SUK A6,2 P RB BLT43 P* P* CLEAR TEMP.AREA P* PBLT45 EQU * 2 P LD
0x0c11f8…0c138c Dummy {f00=0x003d, f01=0x0190, f02=»MR A6 NO!CLEAR MEMORY WORD P SUK A6,2 DECREMENT POINTER " P RB BLT46 F P* X 0 P* COMPUTE LENGTH OF LINE CONFIGURATION TABLE b P* PBLT48 EQU * P LDR A2,A12 SAVE 2 P ADK A2,22 ADD. MAX LENGTH OF LINE CONF.TABLE P LDK A
0x0c138c…0c1520 Dummy {f00=0x003d, f01=0x0190, f02=» P RB BLT50 PBLT60 EQU * 8 P STR A4,A12 STORE LENGTH OF LINE CONFIGURATION TABLE * P ADKL A12,2 f J P STR A12,A11 STORE THE ADDRESS IN BOARD CONF.TABLE TO LINE CONF.TABLE z 4 P ADR A12,A4 A12 - START OF NEXT LINE CONF.TABLE 2 PBLT65 ST
0x0c1520…0c16b4 (1, 244) Dummy {f00=0x003d, f01=0x0190, f02=»********************************* * P* M:TST - TEST IF MEMORY OVERFLOW * * * P************************************* X P* P* ENTRY: A4 - TEST LENGTH P* P* WORK REGISTERS: A2,A4 P* PM:TST EQU * $ P LD A2,SCTSFA
0x0c16b4…0c1848 Dummy {f00=0x003d, f01=0x018e, f02=»MTST20 P LDKL A1,LMP3 P CALL ERROR MEMORY OVERFLOW $ PMTST20 EQU * H P CWR A2,A4 P RB(NE) MTST10 n P RTN A14 RETURN P EJECT B P************************************************************** B P* BINASC - CONVERT A BI
0x0c1848…0c19dc Dummy {f00=0x003d, f01=0x018e, f02=» B P************************************************************** P* J P* REFERENCED IN: B:DWTT T P* v , P* ENTRY: A1 - BINARY NUMBER TO CONVERT P* $ P* EXIT: A1,A5 - ASCII OUTPUT P* P* WORK REGISTER: A2
0x0c19dc…0c1b70 Dummy {f00=0x003d, f01=0x018e, f02=» P SUKL A1,100 =2 P LDKL A5,/100 =2 PBIN:10 CWK A1,10 =2 6 P RF(L) BIN:20 =2 R P SUK A1,10 =2 l P ADK A5,/1 =2 P RB BIN:10 =2 PBIN:20 ORKL A5,/3030 =2 P ORK A1,/30 =2 P SRC A5,8 =2 P LDR A2,A5
0x0c1b70…0c1d04 Dummy {f00=0x003d, f01=0x0190, f02=» : P****************************************************** : P* * B : P* MMUINI - INIT MMU TABLE IN TTAB * : P* =============================== * : P*
0x0c1d04…0c1e98 Dummy {f00=0x003d, f01=0x0190, f02=» * x : P* ENTRY: APCSTA - APPL. CONTROL BLOCK ADDRESS * & : P* * d : P* EXIT: * : P*
0x0c1e98…0c202c Dummy {f00=0x003d, f01=0x018e, f02=» * : P* SUBROUTINES: * : P* * H : P****************************************************** P EJECT PMMUINI EQU * < P LD A2,STKEND+APCSTA GET ADDRESS T
0x0c202c…0c21c0 Dummy {f00=0x003d, f01=0x0190, f02=» . P LD A2,APLLAP,A2 GET LOGICAL PAGE ADDRESS ( P SRL A2,12 ISOLATE MMU ENTRY NUMBER 6 P RF(NZ) MMI:10 PAGES DEFINED b ( P LDK A2,16 MAX NUMBER OF MMU ENTRIES 0 PMMI:10 SUR A2,A3 NUMBER OF ENTRIES TO WRITE P SLL A3,1 TWICE P ADR A3,A1
0x0c21c0…0c2354 (1, 245) Dummy {f00=0x003d, f01=0x0190, f02=»T ADD DISPL. TO START OF MMU TABLE =6 P LDKL A4,/FC00 =6 . PMMI:15 EQU * =6 H 2 P CWR A5,A3 INIT MMU ENTRY WHITH PAGE ERROR? =6 ` P RF(E) MMI:16 NO! =6 0 P STR A4,A5 STORE PAGE ERROR IN MMU TABLE =6 P ADK A5,2 NEXT MMU ENTRY =6
0x0c2354…0c24e8 Dummy {f00=0x003d, f01=0x0190, f02=» ENTRIES TO WRITE? | P RF(N) MMI:30 NO " P STR A4,A3 STORE PAGE ADDRESS 2 P ADK A3,2 NEXT MMU ENTRY X $ P ADKL A4,/400 NEXT PAGE ADDRESS x P RB MMI:20 PMMI:30 RTN A14 RETURN P XIF P EJECT 6 P******************************
0x0c24e8…0c267c Dummy {f00=0x003d, f01=0x0190, f02=» ^ 6 P* ============================== * 6 P* * B 6 P* REFERENCED IN: * | 6 P* * 6 P* ENTRY:
0x0c267c…0c2810 Dummy {f00=0x003d, f01=0x0190, f02=» * d 6 P* A11- START OF CONFIGURATION DATA * 6 P* * H 6 P* WORK REGISTERS: A2 * 6 P* * 6 P* SUBROUTINES:
0x0c2810…0c29a4 Dummy {f00=0x003d, f01=0x0190, f02=»*********** j PFSTAPL EQU * , P LD A2,SYSLOD GET NUMBER OF APPLICATIONS ( P ST A2,STKEND+APLNO SAVE X 6 P LDKL A2,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK x P ST A2,STKEND+APCSTA SAVE 6 P LD A11,STKCOM+CONSTA START OF CONFIGURATION DATA
0x0c29a4…0c2b38 Dummy {f00=0x003d, f01=0x0190, f02=» * n 6 P* NXTAPL - GET NEXT APPLICATION * 6 P* ============================= * R 6 P* * 6 P* REFERENCED IN: * 6 P*
0x0c2b38…0c2ccc Dummy {f00=0x003d, f01=0x0190, f02=»PL. CONTROL * t 6 P* BLOCK ADDRESS * 6 P* * X 6 P* EXIT: APLNO - REMAINING NUMBER OF APPL.-1 * 6 P* APCSTA - NEXT APPL. CONTROL BLOCK * 6 P*
0x0c2ccc…0c2e60 Dummy {f00=0x003d, f01=0x0190, f02=»,A2 * z 6 P* * $ 6 P* SUBROUTINES: * ^ 6 P* * 6 P*************************************************
0x0c2e60…0c2ff4 (1, 246) Dummy {f00=0x003e, f01=0x018e, f02=»O SAVE REMAINING NUMBER OF APPL. ~ P RF(Z) NOAPL NO MORE! ( * P CALL NXTADB GET NEXT APPL DEF. BLOCK F @ P LD A2,STKEND+APCSTA GET ADDRESS TO CURRENT APPL. CTRL BLOCK t ( P ADK A2,ACBLEN NEXT APPL. CTRL BLOCK & P ST A2,STKEND+APCSTA SAVE ADDRESS
0x0c2ff4…0c3188 Dummy {f00=0x003e, f01=0x0190, f02=» ~ P EJECT D P**************************************************************** D P* * ^ D P* NXTADB - GET NEXT APPLICATION DEF. BLOCK * D P* ===============
0x0c3188…0c331c Dummy {f00=0x003e, f01=0x0190, f02=» NXTAPL * ~ D P* * 6 D P* ENTRY: A11 - CURRENT POINTER TO CONFIGURATION DATA * ~ D P* *
0x0c331c…0c34b0 Dummy {f00=0x003e, f01=0x0190, f02=»OCK * V D P* * D P* WORK REGISTERS: * V D P* * D P* SUBROUTINES: ERROR
0x0c34b0…0c3644 Dummy {f00=0x003e, f01=0x0190, f02=»************************************** v PNXT10 ADKL A11,1 NEXT CHAR . ( PNXTADB LCR A2,A11 GET NEXT CHARACTER P $ P CCK A2,/0000 END OF CONF DATA? | P RF(NE) NEXT20 NOT YET P LDKL A1,LMP4 FORMAT ERROR P CALL ERROR 2 PNEXT20 CCK A2,/F
0x0c3644…0c37d8 Dummy {f00=0x003e, f01=0x0190, f02=» RETURN P EJECT 2 P********************************************* 2 P* * T 2 P* CHKMOV - CHECK MEMORY OVERFLOW AND MOVE * 2 P* ======================================= * 2 P*
0x0c37d8…0c396c Dummy {f00=0x003e, f01=0x0190, f02=» b 2 P* ENTRY: A1 - FROM-ADDRESS * 2 P* A2 - TO-ADDRESS * > 2 P* A3 - LENGTH * t 2 P* STKEND+LIMIT - END OF SYSTEM * 2 P* AREA
0x0c396c…0c3b00 Dummy {f00=0x003e, f01=0x0190, f02=» * 2 P* WORK REGISTERS: * ( 2 P* * ^ 2 P* SUBROUTINES: MOVE,ERROR * 2 P* * 2 P********
0x0c3b00…0c3c94 (1, 247) Dummy {f00=0x003e, f01=0x018e, f02=» P LDR A11,A3 GET LENGTH . P XRR A9,A9 PHYSICAL END OF FIRST PARTITION " 0 P SUR A9,A2 COMPUTE AREA LEFT IN FIRST PART. T & P CALL CMPADR ENOUGTH MEMORY LEFT? P RF(L) CHK20 YES 0 PCHK10 LDKL A1,LMP3 INDICATE MEMORY OVERFLOW P CALL ERRO
0x0c3c94…0c3e28 Dummy {f00=0x003e, f01=0x018e, f02=» & P RB(G) CHK10 SYSTEM AREA OVERFLOW! P CALL MOVE MOVE AREA . P LDR* A11,A15 RESTORE A11 J P LDR* A9,A15 RESTORE A9 l P RTN A14 P EJECT D P**************************************************************** D P* STAR
0x0c3e28…0c3fbc Dummy {f00=0x003e, f01=0x0190, f02=» ( P CALL B:TCT BUILD TASK CONTROL TABLE P IFF FM=0 4 & P CALL B:FWT BUILD FILE WORK TABLES F P XIF p ( P CALL MONBLK GENERATE MONITOR BLOCKS | P IFF EDM=0 2 P CALL B:MXTT BUILD MONITOR EXTENT TASK TABLES 6 P CALL B:MSEG BUILD MONIT
0x0c3fbc…0c4150 Dummy {f00=0x003e, f01=0x0190, f02=»LE WORK BLOCK TABLE v P XIF P IFF MMUPAG+DSKPAG=0 ( ( P CALL B:STAB BUILD SEGMENT TABLE(S) D P XIF p P IFF SPDVCL+TEDVCL=0 | 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES P XIF P IFF TEDVCL=0 2 P CALL B:DWTT BUILD TERMI
0x0c4150…0c42e4 Dummy {f00=0x003e, f01=0x0190, f02=»ERRUPT TABLE =7 z P XIF P IFT DC=1 =7 $ 6 P CALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 : P XIF t P EJECT F P***************************************************************** F P* END OF MONITOR SAVE01URATION PART
0x0c42e4…0c4478 Dummy {f00=0x003e, f01=0x4036, f02=»***************************** l P END &@ 2 6 P CALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 : P XIF t P EJECT F P***************************************************************** F P* END OF MONITOR SAVE01URATION PART
0x0c4478…0c460c Dummy {f00=0x003e, f01=0x403c, f02=» 0 P******************************************** @ 8ALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 : P XIF t P EJECT F P***************************************************************** F P* END OF MONITOR SAVE01URATION PART
0x0c460c…0c47a0 Dummy {f00=0x003e, f01=0x2008, f02=» P X ` h p
0x0c47a0…0c4934 (1, 248) Dummy {f00=0x003e, f01=0x0190, f02=» * d B P************************************************************* PCONADR EQU * ` * P DATA /2041,/4243,/4445,/4647 /00-/07 t ( P DATA /4849,/7F2E,/3C28,/2B13 08-0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,
0x0c4934…0c4ac8 Dummy {f00=0x003e, f01=0x0190, f02=»1,/3233,/3435,/3637 /30-/37 * P DATA /3839,/3A23,/4027,/3D22 /38-/3F $ P EJECT R D P**************************************************************** ` D P* * 6 P* CONPF CONVERT PF
0x0c4ac8…0c4c5c Dummy {f00=0x003e, f01=0x0190, f02=»********************************* r PCONPF EQU * * 4 P DATA /3132,/3334,/3536,/3738,/393A,/235C PF1-12 > 6 P DATA /4142,/4344,/4546,/4748,/497F,/2E3C PF13-24 v P EJECT F P****************************************************************** F P
0x0c4c5c…0c4df0 Dummy {f00=0x003e, f01=0x4174, f02=» * R F P* * F P****************************************************************** V PCONORD EQU * ( P DATA /1000,/0000,/0000,/0000 00-07 ( P DATA /0008,/1200,/1418,/0000 08-0F
0x0c4df0…0c4f84 Dummy {f00=0x003e, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x0c4f84…0c5118 Dummy {f00=0x003e, f01=0x0190, f02=»* A13= RESERVED Z P* [ @ P************************************************************ [ " PCURMOV EQU * [ f $ P CF A14,SCRINF GET SCREEN INFO. [ z P SUK A2,CRUP GET INDEX [ P ADR A2,A2 [ , P CFI A14,CURTAB,A2 JUMP IN CURSOR TABLE [ * P CF A1
0x0c5118…0c52ac Dummy {f00=0x003e, f01=0x0190, f02=»MASB UPDATE ATTRIBUTE [ PCURM10 EQU * P LDK A1,2 REQ. LENGTH 2 P CF A14,DISCHA SET CURSOR P P RTN A14 r P EJECT $ P* CURTAB CURSOR JUMP TABLE PCURTAB EQU * $ P DATA CRLEFT MOVE CURSOR TO LEFT & P DATA CRRIGT MOVE CU
0x0c52ac…0c5440 Dummy {f00=0x003e, f01=0x0190, f02=»CRLEFT EQU * P SUK A4,1 ] $ P RF(NN) CRRET NOT LEFTMOST POS. ] & ( P LDKL A4,LBVDU-1 LAST POS. ON SCREEN ] N P RF CRRET ] z ( P* CRRIGT MOVE CURSOR TO RIGHT ] PCRRIGT EQU * ] P ADK A4,1 ] P CWK A4,LBVDU END OF BUFFER? ] P RF(L)
0x0c5440…0c55d4 (1, 249) Opaque[0x194]
0x0c55d4…0c5768 # DirEnt {nam=»PTMGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07d8, f03=0x0000}
0x0c55d4…0c5768 IdxSect {
0x0c55d4…0c5768 f00 = 0x003e // 0xc55d4 @0x0
0x0c55d4…0c5768 f01 = 0x0002 // 0xc55d6 @0x2
0x0c55d4…0c5768 gno = [ // 0xc55d8 @0x4
0x0c55d4…0c5768 [0x00]: C0x003e.0x3.0
0x0c55d4…0c5768 ]
0x0c55d4…0c5768 }
0x0c5768…0c58fc Dummy {f00=0x003e, f01=0x00dc, f02=» ASG 2,LP0F SCR INC SYSTAB " INC DEBUGM 4 NOD AM F INC SYSLOD T INC SYSLDM f INC SYSLCR x INC SYSINI LKE M KPF /L,PTMON SKF 3 ASG /E0,TY10
0x0c58fc…0c5a90 Dummy {f00=0x003e, f01=0x2008, f02=» 2,LP0F SCR INC SYSTAB " INC DEBUGM 4 NOD AM F INC SYSLOD T INC SYSLDM f INC SYSLCR x INC SYSINI LKE M KPF /L,PTMON SKF 3 ASG /E0,TY10
0x0c5a90…0c5c24 Dummy {f00=0x003e, f01=0x0190, f02=» ONLY INPUT DATA ARE HANDLED BY THIS DRIVER. P* 6 0 P* AN ECHO DEVICE CAN BE ATTACHED TO EVERY @ 0 P* KEYBOARD, WHERE RECEIVED CHARACTERS ARE t P* ECHOED. P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: " P* R C K B =
0x0c5c24…0c5db8 Dummy {f00=0x003e, f01=0x0190, f02=» * P* THE FOLLOWING ORDERS ARE TREATED: P* ORDER 01: BASIC READ 6 " P* 02: STANDARD READ Z " P* 03: NUMERIC READ ( P* 31: RESET INPUT BUFFER P* P EJECT P* NORMAL REGISTER USAGE:
0x0c5db8…0c5f4c Dummy {f00=0x003e, f01=0x0190, f02=» A4: WORK REGISTER " P* A5: STACK BASE " $ P* A6: DWT-ADDRESS H P* A7: ORDER p $ P* A8: ECB-ADDRESS P* P* SYSTEM ADAPTION P* 2 P* DWT-ADDRESS OF ECHO-OUTPUT
0x0c5f4c…0c60e0 Dummy {f00=0x003e, f01=0x018e, f02=»O ZERO. STANDARD VALUE FOR TIME- | 6 P* OUT IS 30 SECONDS SINCE LAST DEPRESSED KEY. IF ( 8 P* ANOTHER VALUE IS WANTED FOR A SYSTEM, INDICATOR b " P* IN DRIVER MUST BE CHANGED. P* P* < P* BIT 1 IN DWTDEV IS SET TO ZERO IF CHARACTERS
0x0c60e0…0c6274 (1, 250) Opaque[0x194]
0x0c6274…0c6408 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07e0, f03=0x0000}
0x0c6274…0c6408 IdxSect {
0x0c6274…0c6408 f00 = 0x003f // 0xc6274 @0x0
0x0c6274…0c6408 f01 = 0x0002 // 0xc6276 @0x2
0x0c6274…0c6408 gno = [ // 0xc6278 @0x4
0x0c6274…0c6408 [0x00]: C0x003f.0x0.0
0x0c6274…0c6408 ]
0x0c6274…0c6408 }
0x0c6408…0c659c Dummy {f00=0x003f, f01=0x0190, f02=» 2 P IDENT TCLASS REL 11.0 81-01-26 870105041100 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDI00 P EXTRN DVDY00 P EXTRN DVG100 P
0x0c659c…0c6730 Dummy {f00=0x003f, f01=0x0190, f02=»A TC00 P DATA TC01 PTCLASE EQU * 0 PTC00 DATA TC00E-* D P DATA /0020 f P DATA DVKB00 P DATA /0040 P DATA DVDI00 P DATA /0042 P
0x0c6730…0c68c4 Dummy {f00=0x003f, f01=0x4100, f02=»ATA DVG100 PTC00E EQU * PTC01 DATA TC01E-* 2 P DATA /0021 T P DATA DVKB01 t P DATA /0041 P DATA DVDI01 PTC01E EQU * P END @ P
0x0c68c4…0c6a58 Dummy {f00=0x003f, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x0c6a58…0c6bec Dummy {f00=0x003f, f01=0x0190, f02=»52 EQU * 3 " P LDR A1,A9 START OF CODE PART 4 , P LD A4,FSTSEC+STKEND FIRST SECTOR/BLOCK? 4 6 P RF(NZ) LOD:55 NO! 4 f 6 P IM FSTSEC+STKEND INDICATE NOT FIRST SECTOR/BLOCK 4 0 P ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK 4 0 P SUK A7,8 DECREMENT NUMBER
0x0c6bec…0c6d80 Dummy {f00=0x003f, f01=0x0190, f02=»0 SINGLE SECTOR/BLOCK APPLICATION? 4 P RF(NG) LOD:55 YES! 5 * P* 5 F PLOD:54 ADKL A10,8 5 P PLOD:55 EQU * 5 j , P LDR A3,A7 NUMBER OF CHARACTERS TO MOVE 5 ~ ( P LD A2,LLDADR+STKEND GET TO-ADDRESS 5 0 P ADS A3,LLDADR+STKEND UPDATE MEMORY ADDRESS 5
0x0c6d80…0c7a20 (2, 0) DirGranule ((2, 0)) {
0x0c6d80…0c7a20 DirEnt {nam=»PTMON «, typ=» «, f00=0x0000, f01=0x0000, f02=0x07e8, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»PTMON «, typ=»UF«, f00=0x019a, f01=0x0196, f02=0x07f0, f03=0x0008}
0x0c6d80…0c7a20 DirEnt {nam=»DIALOG«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0830, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0850, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0858, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a28, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a30, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a38, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a58, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a88, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0aa0, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ad8, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ae8, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b78, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bc0, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DRND01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bd0, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DCADDR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c48, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»TMOVE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c70, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DCSTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ca8, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ce0, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ce8, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0cf8, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e58, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»SYSLCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1008, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»SYSINI«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1118, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11b8, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11e0, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11e8, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11f0, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DVTG1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11f8, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1208, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1210, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1218, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DRKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1220, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1278, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DRDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1298, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DRGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1308, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DRPL01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1368, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14e0, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1508, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1600, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1610, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1628, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1640, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1660, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1670, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1688, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1698, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DVDI00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16a0, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16a8, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DVG100«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16b0, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16c0, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DVDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16c8, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»PTMGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x16d0, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»SYSPRO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16d8, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»PROGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x16f0, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DRDC25«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16f8, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»SYS2DC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17f0, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»S2CLAS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1808, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»P2TAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1810, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»DW2501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1818, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»PT2GEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1820, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»PT2MON«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1828, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»FILLER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18c0, f03=0x0000}
0x0c6d80…0c7a20 DirEnt {nam=»PTMON «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0998, f03=0x0000}
0x0c6d80…0c7a20 }
0x0c7a20…0c7bb4 (2, 1) Opaque[0x194]
0x0c7bb4…0c7d48 # DirEnt {nam=»PTMON «, typ=»UF«, f00=0x019a, f01=0x0196, f02=0x07f0, f03=0x0008}
0x0c7bb4…0c7d48 IdxSect {
0x0c7bb4…0c7d48 f00 = 0x003f // 0xc7bb4 @0x0
0x0c7bb4…0c7d48 f01 = 0x0010 // 0xc7bb6 @0x2
0x0c7bb4…0c7d48 gno = [ // 0xc7bb8 @0x4
0x0c7bb4…0c7d48 [0x00]: C0x003f.0x2.0
0x0c7bb4…0c7d48 [0x01]: C0x003f.0x3.0
0x0c7bb4…0c7d48 [0x02]: C0x0040.0x0.0
0x0c7bb4…0c7d48 [0x03]: C0x0040.0x1.0
0x0c7bb4…0c7d48 [0x04]: C0x0040.0x2.0
0x0c7bb4…0c7d48 [0x05]: C0x0040.0x3.0
0x0c7bb4…0c7d48 [0x06]: C0x0041.0x0.0
0x0c7bb4…0c7d48 [0x07]: C0x0041.0x1.0
0x0c7bb4…0c7d48 ]
0x0c7bb4…0c7d48 }
0x0c7d48…0c7edc Dummy {f00=0x003f, 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
0x0c7edc…0c8070 Dummy {f00=0x003f, f01=0x0190, f02=»WORK ~ KPF /S,SYSTAB SCR " MOV TDISP,/S,TOSSWORK . KPF /S,TDISP L SCR ` MOV LRPINT,/S,TOSSWORK l KPF /S,LRPINT SCR MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR MOV MSUBS,/S,TOSSWORK
0x0c8070…0c8204 Dummy {f00=0x003f, f01=0x018e, f02=»SIO SCR MOV LDTASK,/S,TOSSWORK KPF /S,LDTASK 6 SCR L MOV ST8000,/S,TOSSWORK X KPF /S,ST8000 v SCR MOV DRND01,/S,TOSSWORK KPF /S,DRND01 SCR MOV DCADDR,/S,TOSSWORK KPF /S,DCADDR
0x0c8204…0c8398 Dummy {f00=0x003f, f01=0x018e, f02=» MOV PFTAB,/S,TOSSWORK KPF /S,PFTAB & SCR : MOV LKMAL,/S,TOSSWORK F KPF /S,LKMAL d SCR x MOV SYSLOD,/S,TOSSWORK KPF /S,SYSLOD SCR MOV SYSLDM,/S,TOSSWORK KPF /S,SYSLDM SCR MOV
0x0c8398…0c852c Dummy {f00=0x003f, f01=0x0190, f02=» ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 4 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ` !!EN ASM /S KPF /O KPF /S SCR LED SYSLDM ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$
0x0c852c…0c86c0 Dummy {f00=0x003f, f01=0x0190, f02=»/S SCR LED SYSLCR ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ T ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED SYSINI ( #!!CH $$C
0x0c86c0…0c8854 (2, 2) Dummy {f00=0x003f, f01=0x0190, f02=»ASM /S KPF /O KPF /S SCR * MOV DSKSUB,/S,TOSSWORK 6 KPF /S,DSKSUB T SCR j LED DSKSUB v ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$
0x0c8854…0c89e8 Dummy {f00=0x003f, f01=0x0190, f02=» $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( !!EN T ASM /S ` KPF /O n KPF /S | SCR LED TDISP ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$C
0x0c89e8…0c8b7c Dummy {f00=0x003f, f01=0x0190, f02=»U 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ H !!EN t ASM /S KPF /O KPF /S SCR LED TPROC ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$
0x0c8b7c…0c8d10 Dummy {f00=0x003f, f01=0x0190, f02=»D MSUBS ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ < ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ h !!EN ASM /S KPF /O KPF /S SCR LED TTMJOB ( #!!CH $$CPU857 EQU 0$$CPU857 EQU
0x0c8d10…0c8ea4 Dummy {f00=0x003f, f01=0x0190, f02=» KPF /S SCR LED TOSSIO ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ 0 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED LDTASK ( #
0x0c8ea4…0c9038 Dummy {f00=0x003f, f01=0x0190, f02=» ASM /S KPF /O KPF /S $ SCR 2 LED ST8000 > ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ P ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ | ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S
0x0c9038…0c91cc Dummy {f00=0x003f, f01=0x0190, f02=»U 1$$CPU852 EQU 0$$ !!EN ASM /S ( KPF /O 6 KPF /S D SCR R LED DCADDR ^ ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ p ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S
0x0c91cc…0c9360 Dummy {f00=0x003f, f01=0x0190, f02=»EQU 1$$ t ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN < ASM /S H KPF /O V KPF /S d SCR r LED DCSTAT ~ ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU
0x0c9360…0c94f4 (2, 3) Dummy {f00=0x0040, f01=0x018e, f02=» MOV DVTDI,/S,TOSSWORK KPF /S,DVTDI " SCR 6 MOV DVTDY,/S,TOSSWORK B KPF /S,DVTDY ` SCR t MOV DVTG1,/S,TOSSWORK KPF /S,DVTG1 SCR MOV DWII01,/S,TOSSWORK KPF /S,DWII01 SCR INC DWII01
0x0c94f4…0c9688 Dummy {f00=0x0040, f01=0x0190, f02=» MOV DW1501,/S,TOSSWORK KPF /S,DW1501 " SCR 8 INC DW1501,TOSSWORK D KPF /O ` LED DWII01 n ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN
0x0c9688…0c981c Dummy {f00=0x0040, f01=0x0190, f02=»G EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN L ASM /S X KPF /O f KPF /S t SCR LED DW1501 ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQ
0x0c981c…0c99b0 Dummy {f00=0x0040, f01=0x018e, f02=»4 SCR MOV DRDI01,/S,TOSSWORK KPF /S,DRDI01 4 SCR J MOV DRDY02,/S,TOSSWORK V KPF /S,DRDY02 t SCR MOV DRGP02,/S,TOSSWORK KPF /S,DRGP02 SCR MOV DRPL01,/S,TOSSWORK KPF /S,DRPL01
0x0c99b0…0c9b44 Dummy {f00=0x0040, f01=0x0190, f02=» LED DRKB04 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ 4 !!CH $$ X:C$$ 0$$ N !!CH $$ X:D$$ 020$$ h !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$ 1$$ !!CH $$ X:G$$ 0$$ !!CH $$ X:H$$ 020$$ !!CH $$ X:I$$ 20$$
0x0c9b44…0c9cd8 Dummy {f00=0x0040, f01=0x0190, f02=»EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN J ASM /S V KPF /O d KPF /S r SCR LED DRDI01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMU
0x0c9cd8…0c9e6c Dummy {f00=0x0040, f01=0x018e, f02=» LED DRDY02 !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 0$$ 4 !!CH $$ X:C$$ 1$$ N !!CH $$ X:D$$ 0$$ h !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$ 1$$ !!CH $$ X:G$$ 6$$ !!CH $$ X:H$$ 162$$ !!CH $$ X:I$$ 0$$ ( #!!
0x0c9e6c…0ca000 Dummy {f00=0x0040, f01=0x0190, f02=» ASM /S KPF /O KPF /S $ SCR 2 LED DRGP02 > !!CH $$ X:A$$ 07$$ P !!CH $$ X:B$$ 0$$ j !!CH $$ X:C$$ 48$$ !!CH $$ X:D$$ 48$$ !!CH $$ X:E$$ 134$$ ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$M
0x0ca000…0ca194 (2, 4) Dummy {f00=0x0040, f01=0x0190, f02=»R LED DRPL01 !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 1$$ 6 ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ P ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ | ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S
0x0ca194…0ca328 Dummy {f00=0x0040, f01=0x018e, f02=»1$$ p ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN 8 ASM /S D KPF /O R KPF /S ` SCR n LED DRDC15 z !!CH $$ X:A$$ 115$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 600$$ !!CH $$ X:D$$ 1$$ !!CH $$ X:E$$ 1$
0x0ca328…0ca4bc Dummy {f00=0x0040, f01=0x018e, f02=» | !!CH $$ X:K$$ 3$$ !!CH $$ X:L$$ 00$$ " !!CH $$ X:M$$ 02$$ < !!CH $$ X:N$$ 0$$ V !!CH $$ X:O$$ 0$$ p !!CH $$ X:P$$ 1$$ !!CH $$ X:Q$$ 0$$ !!CH $$ X:R$$ 0$$ !!CH $$ X:S$$ 999$$ ( #!!CH $$CPU857 EQU 0$
0x0ca4bc…0ca650 Dummy {f00=0x0040, f01=0x0190, f02=» KPF /O KPF /S SCR MOV EBCDIC,/S,TOSSWORK , KPF /S,EBCDIC J SCR ` LED EBCDIC l !!EN ~ ASM /S KPF /O KPF /S SCR LED DVTKB !!DL 45 DATA 0,0,0,0,0,0,0,0 DATA 0,
0x0ca650…0ca7e4 Dummy {f00=0x0040, f01=0x0190, f02=» LED DRND01 !!CH $$ X:A$$ 00$$ !!CH $$ X:B$$ 00$$ 0 !!CH $$ X:C$$ 00$$ J !!CH $$ X:D$$ 00$$ d !!CH $$ X:E$$ 00$$ ~ !!CH $$ X:F$$ 01$$ !!CH $$ X:G$$ 01$$ !!CH $$ X:H$$ 00$$ !!CH $$ X:I$$ 00$$ !!EN
0x0ca7e4…0ca978 Dummy {f00=0x0040, f01=0x0190, f02=»X:C$$ 1$$ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 0$$ , !!CH $$ X:F$$ 0$$ F !!CH $$ X:G$$ 1$$ ` ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ z ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN
0x0ca978…0cab0c Dummy {f00=0x0040, f01=0x018e, f02=»WORK ~ KPF /S,TPROC SCR MOV TMMLKM,/S,TOSSWORK , KPF /S,TMMLKM J SCR ` MOV TLDSEG,/S,TOSSWORK l KPF /S,TLDSEG SCR MOV TABORT,/S,TOSSWORK KPF /S,TABORT SCR MOV MONTIM,/S,TOSSWORK
0x0cab0c…0caca0 Dummy {f00=0x0040, f01=0x0190, f02=» j ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN 4 ASM /S @ KPF /O N KPF /S SCR j LED TPROC v ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$
0x0caca0…0cae34 (2, 5) Dummy {f00=0x0040, f01=0x0190, f02=» $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( !!EN T ASM /S ` KPF /O n KPF /S | SCR LED TLDSEG ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$C
0x0cae34…0cafc8 Dummy {f00=0x0040, f01=0x0190, f02=»U 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ H !!EN t ASM /S KPF /O KPF /S SCR LED MONTIM ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$
0x0cafc8…0cb15c Dummy {f00=0x0040, f01=0x0190, f02=»D LKMAL !!DL 062 DATA 00 !!DL 065 < DATA 00 L !!DL 066 h DATA 00 x !!DL 067 DATA 00 !!DL 070 !!DL 071 !!DL 072 !!DL 073 !!DL 074
0x0cb15c…0cb2f0 Dummy {f00=0x0040, f01=0x0190, f02=» !!CH $$ X:A$$ 1$$ ! !!CH $$ X:B$$ 0$$ ! !!EN ! 8 ASM /S ! D KPF /O ! R KPF /S ! ` SCR ! n LED TMOVE ! z !!EN ! ASM /S ! KPF /O ! KPF /S ! SCR ! LED SYSTAB ! !!CH $$IHINPT$$TRAP$$ ! !!CH $$ X:
0x0cb2f0…0cb484 Dummy {f00=0x0040, f01=0x0190, f02=» !!CH $$ X:G$$ 00001$$ " !!IL 55 " " EXTRN IH1501 " 2 EXTRN IH1502 " R !!DL 85 " r !!DL 115,177 " DATA IHPFAR " DATA IHLKM " DATA IHRTC " DATA ILLINT " DATA ILLINT " DATA ILLINT "
0x0cb484…0cb618 Dummy {f00=0x0040, f01=0x0190, f02=»01 " DATA IH1502 # DATA ILLINT # DATA ILLINT # 2 DATA ILLINT # F DATA ILLINT # Z DATA IHPR01 # n DATA ILLINT # DATA ILLINT # DATA ILLINT # DATA ILLINT # DATA ILLINT # DATA ILLINT # DATA ILLINT #
0x0cb618…0cb7ac Dummy {f00=0x0040, f01=0x0190, f02=»NT # DATA ILLINT $ DATA ILLINT $ DATA ILLINT $ 2 DATA ILLINT $ F DATA ILLINT $ Z DATA ILLINT $ n DATA ILLINT $ DATA ILLINT $ DATA ILLINT $ DATA ILLINT $ DATA ILLINT $ DATA ILLINT $ DATA ILLINT $
0x0cb7ac…0cb940 Dummy {f00=0x0040, f01=0x018e, f02=»NT $ DATA ILLINT % DATA ILLINT % DATA ILLINT % 2 DATA ILLINT % F DATA ILLINT % Z DATA ILLINT % n DATA ILLINT % DATA ILLINT % DATA ILLINT % DATA ILLINT % !!EN % ASM /S % KPF /O % KPF /S %
0x0cb940…0cbad4 (2, 6) Dummy {f00=0x0040, f01=0x0190, f02=» % !!DL 043 & !!DL 044 & !!DL 045 & ( !!DL 046 & 8 !!DL 047 & H !!DL 048 & X !!DL 049 & h !!DL 050 & x !!DL 051 & !!DL 052 & !!DL 053 & !!DL 054 & !!DL 055 & !!DL 056 & !!DL 057 & !!DL 058 &
0x0cbad4…0cbc68 Dummy {f00=0x0040, f01=0x0190, f02=» KPF /O ' KPF /S ' SCR ' LED DVTKB ' , ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ' > ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ' j ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ' !!CH $$DVTKB$$DVKB00$$ ' !!CH $$/2222$$/0001$$ ' !!CH $$/33
0x0cbc68…0cbdfc Dummy {f00=0x0040, f01=0x0190, f02=»F /O ' KPF /S ( SCR ( LED DVTDI ( & ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( 8 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( d ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( !!CH $$DVTDI$$DVDI00$$ ( !!CH $$2010$$0000$$ ( !!CH $$/2222$$/000
0x0cbdfc…0cbf90 Dummy {f00=0x0040, f01=0x0190, f02=»857 EQU 0$$CPU857 EQU 1$$ ( ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ) " ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ) N !!CH $$DVTDY$$DVDY00$$ ) z !!CH $$/ABC$$/1850$$ ) !!CH $$/2222$$/0004$$ ) !!CH $$/3333$$/0000$$ ) !!EN ) ASM /S )
0x0cbf90…0cc124 Dummy {f00=0x0040, f01=0x0190, f02=»1$$ ) p ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ * !!CH $$DVTG1$$DVG100$$ * 8 !!CH $$/2222$$/0003$$ * V !!CH $$/3333$$/0000$$ * t !!EN * ASM /S * KPF /O * KPF /S * SCR * LED DVTG1 * ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$
0x0cc124…0cc2b8 Dummy {f00=0x0040, f01=0x018e, f02=»2222$$/0003$$ * !!CH $$/3333$$/0000$$ + !!EN + 4 ASM /S + @ KPF /O + N KPF /S + SCR + j LED DVTKB + v ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ + ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ + ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ +
0x0cc2b8…0cc44c Dummy {f00=0x0040, f01=0x0190, f02=» !!DL 37 , DATA 00 , !!EN , 0 ASM /S , < KPF /O , J KPF /S , X SCR , f LED DVTDI , r ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ , ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ , ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ,
0x0cc44c…0cc5e0 Dummy {f00=0x0040, f01=0x0190, f02=» , KPF /O - KPF /S - SCR - $ LED TCLASS - 0 !!IL 6 - B EXTRN DVKB00 - P EXTRN DVDI00 - p EXTRN DVDY00 - EXTRN DVG100 - EXTRN DVKB01 - EXTRN DVDI01
0x0cc5e0…0cc774 (2, 7) Dummy {f00=0x0041, f01=0x0190, f02=» DATA /0020 - DATA DVKB00 . DATA /00400 . > DATA DVDI00 . ^ DATA /00420 . ~ DATA DVDY00 . DATA /00300 . DATA DVG100 . D
0x0cc774…0cc908 Dummy {f00=0x0041, f01=0x018e, f02=»0210 . | DATA DVKB01 / DATA /00411 / , DATA DVDI01 / L TC01E EQU * / l !!EN / ASM /S / KPF /O / KPF /S / SCR / LED SCLASS / !!IL 6 / EXTRN DWII01 /
0x0cc908…0cca9c Dummy {f00=0x0041, f01=0x018e, f02=» / x !!IL 12 0 TC00 DATA TC00E-* 0 DATA /00501 0 : DATA DWII01 0 Z DATA /00511 0 z DATA DWIO01 0 DATA /00611 0 DATA DW1501 0 TC00E EQU
0x0cca9c…0ccc30 Dummy {f00=0x0041, f01=0x018e, f02=» 0 LED MONTAB 1 !!IL 25 1 **** 1 * EXTRN CTAB01 1 6 EXTRN CTAB02 1 L EXTRN ITAD 1 b !!IL 50 1 v **** 1 DATA CTAB01 1 DATA CTAB02 1 DATA ITAD 1 !!DL 082 1 !!DL 083 1 !!DL 084 1 !!DL 0
0x0ccc30…0ccdc4 Dummy {f00=0x0041, f01=0x018e, f02=» !!DL 098 2 !!DL 099 2 !!DL 100 2 $ !!DL 101 2 4 !!DL 102 2 D !!EN 2 T ASM /S 2 ` KPF /O 2 n KPF /S 2 | SCR 2 LED SYSLDM 2 !!CH $$ X:A$$ 00$$ 2 !!CH $$ X:B$$ 00$$ 2 !!CH $$ X:C$$ 00$$ 2 !!CH $$ X:D$$ 00$$
0x0ccdc4…0ccf58 Dummy {f00=0x0041, f01=0x0190, f02=» !!CH $$ X:J$$ 01$$ 3 !!CH $$ X:R$$ 000$$ 3 !!CH $$ X:L$$ 00$$ 3 : !!CH $$ X:M$$ 01$$ 3 T ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ 3 n ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 3 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 3 !!EN 3 ASM /S 3
0x0ccf58…0cd0ec Dummy {f00=0x0041, f01=0x005e, f02=» 3 INC SYSLCR 4 INC SYSINI 4 LKE M 4 , KPF /L,PTMON 4 : ASG /E0,TY10 4 NM$$ 01$$ 3 T ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ 3 n ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 3 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 3 !!EN 3 ASM /S 3
0x0cd0ec…0cd280 Dummy {f00=0x0041, f01=0x2008, f02=» 5 INC SYSLCR 4 INC SYSINI 4 LKE M 4 , KPF /L,PTMON 4 : ASG /E0,TY10 4 NM$$ 01$$ 3 T ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ 3 n ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 3 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 3 !!EN 3 ASM /S 3
0x0cd280…0cd414 (2, 8) Dummy {f00=0x0041, f01=0x0190, f02=»ST,A6 DWT STATUS u 0 P ANK A1,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? v 2 P RF(NZ) SBERR YES, NO FRAMES MAY BE OUT. ERROR v L P SUK A2,WINDOW WINDOW FULL? v P RF(N) SB090 NO, CONTINUE v 0 P* DWT WILL HAVE TO WAIT UNTIL WINDOW IS OPEN v 2 P ST A3,DWTLD
0x0cd414…0cd5a8 Dummy {f00=0x0041, f01=0x0190, f02=» v h " P IFF UTTEST=0 QUEUE STATISTICS w P LD A1,CWTPNR,A5 PLC NUMBER w . P SLA A1,1 MAKE INDEX w R 4 P IM WIQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER w n P XIF w P ABL PLDSP2 LOCAL DISPATCHER w P* w P* w 6 P* ENTRY IS MADE HERE WHEN W
0x0cd5a8…0cd73c Dummy {f00=0x0041, f01=0x0190, f02=»A5 = CWT ADDRESS w P* A6 = DWT ADDRESS x P* x 6 PWINRST EQU * x @ 4 P LD A3,DWTLD1,A6 RESTORE REQUESTED BUFFER LENGTH x T P CM DWTLD1,A6 x P LDR A1,A1 RETURN CODE x 2 P RF(NZ) SBERR2 ERROR, RETURN TO DEVICE DRIVER x P* x P* x
0x0cd73c…0cd8d0 Dummy {f00=0x0041, f01=0x018e, f02=»* ALLOCATE SHORT OUTPUT BUFFER x . P ADK A7,CWTPBS POOLBLOCK FOR SHORT BUFFERS y * " P CF A15,PLGTBU ALLOCATE BUFFER y , P RF(NZ) SB120 COMMON PART FOR SHORT/LONG y 2 P LDK A7,CWTSBQ NO BUFFER LEFT. SET QUEUE HEAD y " P IFF UTTEST=0 QUEUE STATISTICS y
0x0cd8d0…0cda64 Dummy {f00=0x0041, f01=0x0190, f02=» ( P RF SB110 COMMON PART FOR NO BUFFER z P* z 0 PSB100 EQU * z : & P CWK A3,LOBUFL LONG BUFFER ENOUGH? z N P RF(G) SBERR NO, ERROR z x $ P* ALLOCATE LONG OUTPUT BUFFER z . P ADK A7,CWTPBL POOLBLOCK FOR LONG BUFFERS z " P CF A15,PLGTBU ALLOCATE
0x0cda64…0cdbf8 Dummy {f00=0x0041, f01=0x0190, f02=»STATISTICS z | P LD A1,CWTPNR,A5 PLC NUMBER { P SLA A1,1 MAKE INDEX { 6 4 P IM LBQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER { R P XIF { P* { PSB110 EQU * { 8 P* NO BUFFER WAS AVAILABLE. PUT REQUEST IN QUEUE. { ( P ADR A7,A5 A7 := QUEUE H
0x0cdbf8…0cdd8c Dummy {f00=0x0041, f01=0x0190, f02=» PLDSP2 LOCAL DISPATCHER { P* | P* | * 2 P* ENTRY IS MADE HERE WHEN A BUFFER IS FREE | 4 P* REGISTERS ON ENTRY: | j P* A1 = RETURN CODE | $ P* A4 = BUFFER ADDRESS (IF A1=0) | P* A5 = CWT ADDRESS | P* A6 = DWT ADDRESS | P*
0x0cdd8c…0cdf20 Dummy {f00=0x0041, f01=0x018e, f02=»H OF X25 HEADER | | 0 P ST A2,BUFBIX,A4 BYTE INDEX := START OF DATA } 0 P ST A4,DWTLD1,A6 SAVE BUFFER ADDRESS IN DWT } L P* } ( P ABL NDREPO RETURN TO DEVICE DRIVER } P* RETURN CODE := OK } P* } P* } PSBERR EQU * } ( P LDK A1,PLSE
0x0cdf20…0ce0b4 (2, 9) Opaque[0x194]
0x0ce0b4…0ce248 # DirEnt {nam=»DIALOG«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0830, f03=0x0000}
0x0ce0b4…0ce248 IdxSect {
0x0ce0b4…0ce248 f00 = 0x0041 // 0xce0b4 @0x0
0x0ce0b4…0ce248 f01 = 0x0008 // 0xce0b6 @0x2
0x0ce0b4…0ce248 gno = [ // 0xce0b8 @0x4
0x0ce0b4…0ce248 [0x00]: C0x0041.0x2.0
0x0ce0b4…0ce248 [0x01]: C0x0041.0x3.0
0x0ce0b4…0ce248 [0x02]: C0x0042.0x0.0
0x0ce0b4…0ce248 [0x03]: C0x0042.0x1.0
0x0ce0b4…0ce248 ]
0x0ce0b4…0ce248 }
0x0ce248…0ce3dc Dummy {f00=0x0041, f01=0x0190, f02=» 6 2SYSGEN REL 11.1 81.07.27 12 NC = 8701 365 401110 R f bS Y S G E N SYSTEM GENERATION PROGRAM PTS RELEASE #11.1 SUPPORTING TOSS RELEASE #11.0 f ******************** ********************
0x0ce3dc…0ce570 Dummy {f00=0x0041, f01=0x0190, f02=»13 MEMORY MANAGEMENT UNIT : Y8 6 @ DISK PAGING : J N8 ` j $ SWAPPABLE WORK BLOCK HANDLING : t N8 DEBUGGER : Y8 B >PROGRAM LANGUAGE (AS=ASSEMBLER,BA=BASIC,CO=COBOL,C
0x0ce570…0ce704 Dummy {f00=0x0041, f01=0x0190, f02=» ******************** DEVICE ABBREVIATIONS * ******************** H d n DEVICE LIST (Y/N) : x NR DEFINE DEVICES : KB,DY,DI,G1,II,IO,PL,D2
0x0ce704…0ce898 Dummy {f00=0x0041, f01=0x0190, f02=»** ~ DRKB04 : " * 4 KEYBOARD TIMEOUT : > NB X b ECHO FUNCTION : l NB . *COMPLETION OF READ REQUEST AT POWER ON : NB CIRCULAR INPUT BUFFER SIZE : 20
0x0ce898…0cea2c Dummy {f00=0x0041, f01=0x0190, f02=»OCK ON : x N2 MMU BUFFER SIZE (BYTES) : $ 20 F P MMU KEY TABLE SIZE : Z 20 v KB 6236/71/72 IN SYSTEM : Y0 ( &OTHER THAN KB 6236/71/72 IN SYSTEM : N0
0x0cea2c…0cebc0 Dummy {f00=0x0041, f01=0x0190, f02=» FLASH FUNCTION : Y0 & 0 ******************** : DRDY02 V : d n v 8 4FAST OUTPUT USED FOR CONSECUTIVE EQUAL CHARACTERS : Y0 4 2OTHER DISPLAYS THAN 6344/46/47/85/86 IN SYSTEM
0x0cebc0…0ced54 (2, 10) Dummy {f00=0x0041, f01=0x0190, f02=»ON OF TRAILING BLANKS : Y0 * 2 .CURSOR STEADY ON 6386/6385 (ELSE TWINKLING) : 4 Y0 j t COUNTRY CODE ON 6385 (0-9) : ~ 60 MMU BUFFER SIZE (BYTES) : 162D DY 6385/86 IN SYSTEM :
0x0ced54…0ceee8 Dummy {f00=0x0041, f01=0x0190, f02=»RIATION (1-15) : z 76 " " FRONT FEED DEVICE IN PRINTER : , N7 R PAGELENGTH : f 48 z DOCUMENT LENGTH : 48 MMU BUFFER SIZE : 134D ******************
0x0ceee8…0cf07c Dummy {f00=0x0041, f01=0x0190, f02=»TE CHANNEL UNITS : 13 $ . ******************** 8 DRIC01 T : b l t ~ MMU BUFFER SIZE (WORDS) : 1150 MMU BUFFER SIZE (WORDS) : 9990 ******
0x0cf07c…0cf210 Dummy {f00=0x0041, f01=0x0190, f02=»T LOGGING : N1 POLL TIMEOUT VALUE : ( 6000 D P STATUS AND RVI HANDLING : Z Y0 | READ COMMAND HANDLING : Y0 TRANSMIT BLOCK LENGTH : 2540 EBCDIC CODE (
0x0cf210…0cf3a4 Dummy {f00=0x0041, f01=0x0190, f02=» SIEMENS MSV1 PROCEDURE : N5 $ . NUMBER OF RECEIVE BUFFERS : 8 35 f PHYSICAL LINE NUMBER : p 15 IBM CHARACTER HANDLING : N5 MESSAGE PASSING : N5 IBM-
0x0cf3a4…0cf538 Dummy {f00=0x0041, f01=0x0190, f02=»MMU BUFFER SIZE (WORDS) : 1150 " . MMU BUFFER SIZE (WORDS) : 8 9990 Z f p z ******************** SYSLOD ADAPTION ******************** ************
0x0cf538…0cf6cc Dummy {f00=0x0041, f01=0x0190, f02=»C : N2 LOADING FROM FLEXIBLE DISC : Y2 D N LOADING FROM MINIFIX DISC : X N2 | " LOADING FROM 80 MB CDC DISC : N2 " LOADING FROM 16 MB CDC DISC : N2 CONF
0x0cf6cc…0cf860 Dummy {f00=0x0041, f01=0x0190, f02=»S t ******************** & 0 DELAY/DELAY AND ACTIVATION : : Y2 ^ h ABORT FUNCTION : r Y2 GET/SET DATE : N2 GET/SET TIME : N2 ATTACH/DETACH :
0x0cf860…0cf9f4 (2, 11) Dummy {f00=0x0042, f01=0x0190, f02=» $ DEFINE TERMINAL DEVICE CLASSES ******************** , H R ******************** T01 : x Y2 ********* KB : Y2 FILE CODE : 20 DEVICE A
0x0cf9f4…0cfb88 Dummy {f00=0x0042, f01=0x0190, f02=»******* DI : Y2 ( 2 FILE CODE : < 40 P Z DEVICE ADDRESS : d 10 | PTS NUMBER : 6272 ********* D : Y2 FILE CODE :
0x0cfb88…0cfd1c Dummy {f00=0x0042, f01=0x018e, f02=»24 NUMBER OF CHARACTERS/LINE : 80 8 B ********* L G1 : ^ Y0 l v FILE CODE JOURNAL : 30 DEVICE ADRESS : 30 FILE CODE DOCUMENT : 31
0x0cfd1c…0cfeb0 Dummy {f00=0x0042, f01=0x018e, f02=» FILE CODE : 21 " DEVICE ADDRESS : , 51 D N PTS NUMBER : X 6271 l x CODE CONVERSION : Y2 ********* DI : Y2 FILE CODE :
0x0cfeb0…0d0044 Dummy {f00=0x0042, f01=0x0190, f02=» N2 ********* G1 : . N2 < F ******************** P T03 : l N2 z ******************** " DEFINE SPECIAL DEVICE-CLASSES ********************
0x0d0044…0d01d8 Dummy {f00=0x0042, f01=0x0190, f02=» FILE CODE : 50 ( ********* 2 IO : D Y0 R f FILE CODE : p 51 ********* D2 : Y1 FILE CODE : 61 **********
0x0d01d8…0d036c Dummy {f00=0x0042, f01=0x00e0, f02=»A MONITOR MODULES : Y1 & * 0 CTAB01,UPDATEI : P * Z d l v SYSGEN ENDED : 61 **********
0x0d036c…0d0500 Dummy {f00=0x0042, f01=0x2008, f02=» R MODULES : Y1 & * 0 CTAB01,UPDATEI : P * Z d l v SYSGEN ENDED : 61 **********
0x0d0500…0d0694 (2, 12) Dummy {f00=0x0042, f01=0x0190, f02=» } P EJECT ~ P* ~ @ P************************************************************ ~ P* ~ d P* ROUTINE NAME: ~ n P* PLCHRO ~ P* ~ P* FUNCTION: ~ : P* THIS ROUTINE WRITES ONE CHARACTER TO OUTPUT BUFFER. ~ P* ~ P* CALL: ~
0x0d0694…0d0828 Dummy {f00=0x0042, f01=0x0190, f02=» ~ x P* A6 = DWT ADDRESS P* $ P* OUTPUT: . P* AT RETURN TO DEVICE DRIVER @ P* A1 = RETURN CODE d P* 0 IF OK P* NOT 0 IF ERROR 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) P* CR = CONTENTS OF A1 P* INTERR.
0x0d0828…0d09bc Dummy {f00=0x0042, f01=0x0190, f02=» P ENB P* P EJECT P* , P STR A4,A15 PUSH A4 6 $ P LD A4,DWTLD1,A6 BUFFER ADDRESS R $ P RF(Z) COERR2 ERROR IF NO BUFFER z * P CF A15,PLPUCH PUT CHARACTER IN BUFFER P LDR A1,A1 CHECK RETURN CODE ( P RF(NZ) COERR1 ERROR
0x0d09bc…0d0b50 Dummy {f00=0x0042, f01=0x018e, f02=»ING. P ENB P ADK A5,4 ADJUST STACK . P LDR A2,A1 DEVICE STATUS & RET CODE := OK 6 $ P ABR* A5 RETURN TO DEVICE DRIVER h P* P* PCOERR1 EQU * " P CF A15,PLRLBU RELEASE BUFFER $ P CM DWTLD1,A6 INDICATE NO BUFFER PCO
0x0d0b50…0d0ce4 Dummy {f00=0x0042, f01=0x018e, f02=» P EJECT P* @ P************************************************************ P* d P* ROUTINE NAME: n P* PLENBL P* P* FUNCTION: 0 P* THIS ROUTINE DEFINES END OF OUTPUT BLOCK. . P* IT SENDS THE BLOCK TO PLC AND
0x0d0ce4…0d0e78 Dummy {f00=0x0042, f01=0x0190, f02=» P* A6 = DWT ADDRESS P* P* OUTPUT: * P* AT RETURN TO DEVICE DRIVER < P* A1 = RETURN CODE ` P* 0 IF OK | P* NOT 0 IF ERROR 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) P* CR = CONTENTS OF A1 P* INTERR. ENAB
0x0d0e78…0d100c Dummy {f00=0x0042, f01=0x0190, f02=» P ENB , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT $ P CF A15,GETCWT A5 := CWT ADDRESS @ P* h P EJECT r P* , P LDK A1,PLSERR SET RET CODE JUST IN CASE $ P LD A2,DWTLD1,A6 BUFFER ADDRESS , P ABL(Z) NDREP ERROR IF NO BUFFER. RETU
0x0d100c…0d11a0 Dummy {f00=0x0042, f01=0x0190, f02=»A3,DWTOTQ QUEUE POINTER P CF A15,PLCCCS RESERVE CCA . P CM DWTOTQ,A6 RESET QUEUE ELEMENT POINTER B P LDR A1,A1 RETURN CODE t " P RF(NZ) EBERR1 RETURN IF ERROR P* 0 P* WRITE PARAMETERS IN CCA AND X25 HEADER P ENB $ P LD A4
0x0d11a0…0d1334 (2, 13) Opaque[0x194]
0x0d1334…0d14c8 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0850, f03=0x0000}
0x0d1334…0d14c8 IdxSect {
0x0d1334…0d14c8 f00 = 0x0042 // 0xd1334 @0x0
0x0d1334…0d14c8 f01 = 0x0002 // 0xd1336 @0x2
0x0d1334…0d14c8 gno = [ // 0xd1338 @0x4
0x0d1334…0d14c8 [0x00]: C0x0042.0x2.0
0x0d1334…0d14c8 ]
0x0d1334…0d14c8 }
0x0d14c8…0d165c Dummy {f00=0x0042, f01=0x0190, f02=» 2 P IDENT TCLASS REL 11.0 81-01-26 870105041100 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDI00 P EXTRN DVDY00 P EXTRN DVG100 P
0x0d165c…0d17f0 Dummy {f00=0x0042, f01=0x0190, f02=»A TC00 P DATA TC01 PTCLASE EQU * 0 PTC00 DATA TC00E-* D P DATA /0020 f P DATA DVKB00 P DATA /0040 P DATA DVDI00 P DATA /0042 P
0x0d17f0…0d1984 Dummy {f00=0x0042, f01=0x4100, f02=»ATA DVG100 PTC00E EQU * PTC01 DATA TC01E-* 2 P DATA /0021 T P DATA DVKB01 t P DATA /0041 P DATA DVDI01 PTC01E EQU * P END @ P
0x0d1984…0d1b18 Dummy {f00=0x0042, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x0d1b18…0d1cac Dummy {f00=0x0042, f01=0x0190, f02=» * # h 8 P* * $ 8 P* EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * $ P 8 P* * $ 6 P* WORK REGISTERS: A1,A2,A3,A4,A5,A6,A7,A8,A10 * $ 8 P*
0x0d1cac…0d1e40 Dummy {f00=0x0042, f01=0x0190, f02=» * $ z 8 P*************************************************** % & PGETFIL EQU * % b P CF A14,GETVLB % v PGET:10 EQU * % " P CF A14,RDSEC GET VOLUME LABEL % ( P LDK A7,QBLFAC VTOC BLOCKING FACTOR % " P LDR A6,A9 GET START O
0x0d1e40…0d1fd4 (2, 14) Opaque[0x194]
0x0d1fd4…0d2168 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0858, f03=0x0000}
0x0d1fd4…0d2168 IdxSect {
0x0d1fd4…0d2168 f00 = 0x0042 // 0xd1fd4 @0x0
0x0d1fd4…0d2168 f01 = 0x0050 // 0xd1fd6 @0x2
0x0d1fd4…0d2168 gno = [ // 0xd1fd8 @0x4
0x0d1fd4…0d2168 [0x00]: C0x0042.0x3.0
0x0d1fd4…0d2168 [0x01]: C0x0043.0x0.0
0x0d1fd4…0d2168 [0x02]: C0x0043.0x1.0
0x0d1fd4…0d2168 [0x03]: C0x0043.0x2.0
0x0d1fd4…0d2168 [0x04]: C0x0043.0x3.0
0x0d1fd4…0d2168 [0x05]: C0x0044.0x0.0
0x0d1fd4…0d2168 [0x06]: C0x0044.0x1.0
0x0d1fd4…0d2168 [0x07]: C0x0044.0x2.0
0x0d1fd4…0d2168 [0x08]: C0x0044.0x3.0
0x0d1fd4…0d2168 [0x09]: C0x0045.0x0.0
0x0d1fd4…0d2168 [0x0a]: C0x0045.0x1.0
0x0d1fd4…0d2168 [0x0b]: C0x0045.0x2.0
0x0d1fd4…0d2168 [0x0c]: C0x0045.0x3.0
0x0d1fd4…0d2168 [0x0d]: C0x0046.0x0.0
0x0d1fd4…0d2168 [0x0e]: C0x0046.0x1.0
0x0d1fd4…0d2168 [0x0f]: C0x0046.0x2.0
0x0d1fd4…0d2168 [0x10]: C0x0046.0x3.0
0x0d1fd4…0d2168 [0x11]: C0x0047.0x0.0
0x0d1fd4…0d2168 [0x12]: C0x0047.0x1.0
0x0d1fd4…0d2168 [0x13]: C0x0047.0x2.0
0x0d1fd4…0d2168 [0x14]: C0x0047.0x3.0
0x0d1fd4…0d2168 [0x15]: C0x0048.0x0.0
0x0d1fd4…0d2168 [0x16]: C0x0048.0x1.0
0x0d1fd4…0d2168 [0x17]: C0x0048.0x2.0
0x0d1fd4…0d2168 [0x18]: C0x0048.0x3.0
0x0d1fd4…0d2168 [0x19]: C0x0049.0x0.0
0x0d1fd4…0d2168 [0x1a]: C0x0049.0x1.0
0x0d1fd4…0d2168 [0x1b]: C0x0049.0x2.0
0x0d1fd4…0d2168 [0x1c]: C0x0049.0x3.0
0x0d1fd4…0d2168 [0x1d]: C0x004a.0x0.0
0x0d1fd4…0d2168 [0x1e]: C0x004a.0x1.0
0x0d1fd4…0d2168 [0x1f]: C0x004a.0x2.0
0x0d1fd4…0d2168 [0x20]: C0x004a.0x3.0
0x0d1fd4…0d2168 [0x21]: C0x004b.0x0.0
0x0d1fd4…0d2168 [0x22]: C0x004b.0x1.0
0x0d1fd4…0d2168 [0x23]: C0x004b.0x2.0
0x0d1fd4…0d2168 [0x24]: C0x004b.0x3.0
0x0d1fd4…0d2168 [0x25]: C0x004c.0x0.0
0x0d1fd4…0d2168 [0x26]: C0x004c.0x1.0
0x0d1fd4…0d2168 [0x27]: C0x004c.0x2.0
0x0d1fd4…0d2168 ]
0x0d1fd4…0d2168 }
0x0d2168…0d22fc Dummy {f00=0x0042, f01=0x416e, f02=» J F IDENT TCLASS REL 11.0 81-01-26 870105041100 TCLASSK R TCLASSK d DVKB00 x DVDI00 DVDY00 DVG100 , ( @ B 0 DVKB01 DVD
0x0d22fc…0d2490 Dummy {f00=0x0042, f01=0x018e, f02=» J F IDENT MONTAB REL 11.0 81-05-27 870105041100 & " MONTABK SPDLCI FREQUE PAGQUE R CTAB01 | CTAB02 ITADN MONTABK FREQUE PAGQUE SPDLCI KBAD4
0x0d2490…0d2624 Dummy {f00=0x0042, f01=0x400c, f02=» @ IDENT MONTAB REL 11.0 81-05-27 870105041100 & " MONTABK SPDLCI FREQUE PAGQUE R CTAB01 | CTAB02 ITADN MONTABK FREQUE PAGQUE SPDLCI KBAD4
0x0d2624…0d27b8 Dummy {f00=0x0042, f01=0x0190, f02=» J F IDENT DEBUGM REL 11.0 81-07-26 870105041100 dBUG R |BUG ` , ( A :U A A p , ( ! @ ~ A A ~ @ A A , ( A @ A A @ A A " a
0x0d27b8…0d294c Dummy {f00=0x0042, f01=0x0190, f02=» h , ( , ( $ ( , 0 4 8 , ( 8 < h , ( 9 , ( Y , ( y
0x0d294c…0d2ae0 Dummy {f00=0x0042, f01=0x0190, f02=» T :a R T <a Z _ = , ( :A , >a @ ( , ( " A P UW B X , ( 9 @ = / M Q , ( Y R S T Y G P H L , ( y V I U _v
0x0d2ae0…0d2c74 (2, 15) Dummy {f00=0x0043, f01=0x0190, f02=» P A A x , ( . , + - ; # , ( $ : X " H W X " H TTB:AP x ACBRELA , ( * 9 H H A W W L , ( W@ H A A _p @ P A 1+ , ( !T u X A
0x0d2c74…0d2e08 Dummy {f00=0x0043, f01=0x0190, f02=»NDTID , ( ! ? > " @ , ( D @ T " ( ^ @ P > , ( R A A " @ T @ n , ( 3 W @ A W W 0 , ( $ S _, W W , ( s
0x0d2e08…0d2f9c Dummy {f00=0x0043, f01=0x0190, f02=» _` A , ( @ T @ W @ T @ W @ @ . , ( >a @ A ^ , ( 3 A , ( S ;a ]@ 1 _L W @ , ( s $ 0
0x0d2f9c…0d3130 Dummy {f00=0x0043, f01=0x0190, f02=» @ Q A @ ~ , ( BT A " T @ W @ A , ( ! A P @ _2 N , ( 3 T 0 P P ~ , ( S _ @ @ , ( P s @ @ P
0x0d3130…0d32c4 Dummy {f00=0x0043, f01=0x0190, f02=» ) " A n , ( U H A @ , ( * @ @ T A A > , ( 3 P @ P n , ( @ S @ ! T A @ A # , ( E s A ~ RE XRN Y , ( P ME
0x0d32c4…0d3458 Dummy {f00=0x0043, f01=0x0190, f02=» T P #~ > V . >A , ( P Y X W ^ ? ? . , ( @ 3 @ ' P Y Y W Y Y @ ^ PRUNN ACBLACA , ( S @" P @ = ] , ( m ] ] W A A A W
0x0d3458…0d35ec Dummy {f00=0x0043, f01=0x0190, f02=» A p , ( A > > > > , ( > > > > ^ _ ^ _ ? ? ? ? @ , ( @ - ? A ^ @ ? ? p , ( @ M > > > > > > > , ( D m @ > , ( (
0x0d35ec…0d3780 Dummy {f00=0x0043, f01=0x0190, f02=» # H A " A 0 , ( R 9U AR FQ 0:D A 0 , ( - _* A " A A ` , ( M T A A " , ( m R _U . " , ( A : A
0x0d3780…0d3914 (2, 16) Dummy {f00=0x0043, f01=0x0190, f02=» " A A P R :UT , ( @ @ W 9D) 9 I 9 ^ @ W TTB:MT P $ - ? H > " b , ( ! R :W W , ( W W ?W /W : A W ! A A , ( P _ @ _
0x0d3914…0d3aa8 Dummy {f00=0x0043, f01=0x0190, f02=» A A @ z , ( B A A @ > @ _ , ( " a z | I R M A P T @ T J , ( D @ P A W ` @ @ P @ z , ( T A P A < V A @ H D ! )
0x0d3aa8…0d3c3c Dummy {f00=0x0043, f01=0x0190, f02=» ? F C I M Q , U Y j ] d a l e . i : m q u H D ! y } 4 p p j T P B H D ! 0 d d | H N # /W* 3 GW K MW Q g H D !j| mP P W P W
0x0d3c3c…0d3dd0 Dummy {f00=0x0043, f01=0x0190, f02=»V W r H D ! > T j W T W # ' + 3 7 > ; . H D ! ? I j M h ] g oW W P z H D !6n P P P T W < P # b + 5 b ;
0x0d3dd0…0d3f64 Dummy {f00=0x0043, f01=0x018e, f02=»W T V W~ P ^ H D ! P P P W TR PJ V P %W ;P EW UP$ yW } H D ! W P T T V 3 : K r f H D ! Q P < R$ U R Q + < / 9 < E f I h H D ! M Q
0x0d3f64…0d40f8 Dummy {f00=0x0043, f01=0x40c6, f02=» J H D ! R T W( @ ) @ +W R W" W W W W W H D !P W PL T T P T$ 5 < oR> wP6 T. P W T P T V @ < R$ U R Q + < / 9 < E f I h H D ! M Q
0x0d40f8…0d428c Dummy {f00=0x0043, f01=0x0190, f02=» J F IDENT SYSLOD REL 11.0 81-05-22 870105041100 F B SYSLODK SYSBAS NUMSEG PRGLG1 APLADA APLLAC APLLAPL APLLDA R F B APLMMC APLMMP APLNPE APLREL APLSTA APLTYPL APLIOE APLSEG APLSWB APLADA
0x0d428c…0d4420 Dummy {f00=0x0043, f01=0x0190, f02=» APLSEG APLNPE APLSWB 0 APLSTA D APLTYPL X NUMSEG l PRGLG1 SYSLODK STKEND SCTIPL SCTANOB , ( I$ A 0 A A " A A
0x0d4420…0d45b4 (2, 17) Dummy {f00=0x0043, f01=0x0190, f02=» @ " A. bREL & TABBE 4 , ( O UU @>B @ A D , ( k @ D E D E P t MMDDIV , ( $_( W V W V P ERROR SCTMSZW
0x0d45b4…0d4748 Dummy {f00=0x0043, f01=0x0190, f02=» @ @ A , ( ! P A @ , , ( ! @ $ A A @ , ( H @ @ E E E E E , ( 9A A & E @ F CRP , ( U <A COP <A BAP AS
0x0d4748…0d48dc Dummy {f00=0x0043, f01=0x0190, f02=» MMEND , ( F ;j , ( Y P F P > , ( @ P - P _ n , ( :L E A W , ( F D AST =l R , ( ?
0x0d48dc…0d4a70 Dummy {f00=0x0043, f01=0x0190, f02=» P :L AST , ( A A E E A A , , ( 8 P W 89B @ V , ( $ W Zb A @ @ , ( A A @ D , ( # B AS @
0x0d4a70…0d4c04 Dummy {f00=0x0043, f01=0x0190, f02=» A _H | , ( S W , ( Y* L , ( H @ @ A @ | , ( L P , ( :l 9b )
0x0d4c04…0d4d98 Dummy {f00=0x0043, f01=0x0190, f02=» j , ( m U 8 !RRT A SCTNOP : , ( $ " @ P A A " @ > L , ( V T P T | , ( ;a=a?j V Y R W , ( ?J E =A;A E
0x0d4d98…0d4f2c Dummy {f00=0x0043, f01=0x0190, f02=»BD A : " A @ A @ * & M E A @ V @ * * & e @ P , . A X , ( } @ @ A A , ( , (
0x0d4f2c…0d50c0 Dummy {f00=0x0043, f01=0x018e, f02=» v , ( 3 _ 0 !TTX A 8 !CCT CC A , ( S _ 0 !;; !AAP !DDT F , ( sI @ @ A 6 0_ ; # v , ( H @ @ @ I A , ( P T , (
0x0d50c0…0d5254 (2, 18) Dummy {f00=0x0043, f01=0x0190, f02=» f , ( T @ " A @ @ @ MOVEN 8 , ( / I A ( A H SCTMXS x , ( IA @ A @ SYSLDM , ( c $ *P @ A * @ , , ( y $
0x0d5254…0d53e8 Dummy {f00=0x0043, f01=0x0190, f02=» T : , ( : 0 !TT 0 !;; , , ( : 0 !LLP !RRP !AA , ( + P !SSP !PPP !VVP !QQP W W , ( K P W A 0 !;;T , ( i : 0 !00R !99U !
0x0d53e8…0d557c Dummy {f00=0x0043, f01=0x0190, f02=» : !00T A : | , ( 0 !99Q !00R P P =H_ : , ( TID=TCL=LEV=TDC=T0LC=0SDC=S0 L , ( '@ A I. : A A | , ( E " Q :d @ 1 # R P R W , ( cD * A $ W
0x0d557c…0d5710 Dummy {f00=0x0043, f01=0x0190, f02=» A l , ( A A A F 0 A , ( 2 : A A : < , ( @ @ 2 ! P V :AW 9E R l , ( 3 _ <e @ 2 $ T 9A $ < :B , ( Q 9A) @ P A A I T , ( q W
0x0d5710…0d58a4 Dummy {f00=0x0043, f01=0x0190, f02=» : 9P , ( S Y T $ 1T C !CCT : 1P , CONVRT , ( H P _ P =H P . @ T X n , ( + A : Y h C , ( I !CCT B. * X B.9 H , ( i
0x0d58a4…0d5a38 Dummy {f00=0x0043, f01=0x0190, f02=» 0 : V W Q , ( T W @ T . , ( R P @ T A ^ , ( F R U @ , ( 5@ A p T : A _ , ( S 0V , -
0x0d5a38…0d5bcc Dummy {f00=0x0043, f01=0x0190, f02=» P ~ , ( B T _* @ " 2 @ , ( ` P A : L , ( " T 0 | , ( !;;P 0 !;; " " , ( 7 - a =! 0 - Y :
0x0d5bcc…0d5d60 Dummy {f00=0x0043, f01=0x018e, f02=» %T l , ( 8 P , ! P : SYSBAS < , ( . : : P * & 7 ( W $SWAP H D ! 5 P P 2 P J SP [P cP sP yT P H D !X U
0x0d5d60…0d5ef4 (2, 19) Dummy {f00=0x0044, f01=0x0190, f02=» H D ! v 7 ( QP _P0 c p qP ( p S W p @ ( P 3 ( E J _V4 H D ! gR, wU { T Pf V T P T V R W J aV gP P H D ! k J j j H D ! V V P&
0x0d5ef4…0d6088 Dummy {f00=0x0044, f01=0x0190, f02=» P G 2 P T R T eP H D ! P P P@ T T " " " P& %P +P 1P 7P < H D ! =P CP EW IW O SP UW [ gT sR yU R Q T H D ! 0 TV T Q0 R* P P 9 A
0x0d6088…0d621c Dummy {f00=0x0044, f01=0x416a, f02=» W YP ] a mTd qW l H D ! T T( P W W J V S PN TD T> Tp P P( ( H D !) 'T MTr i yTF S W V W, Q( T W& T R P t H D ! ) N T #R )U =T K J YV eP wP {W T P T
0x0d621c…0d63b0 Dummy {f00=0x0044, f01=0x0190, f02=» J F IDENT SYSLCR REL 11.0 81-10-06 870105041100 SYSLCRK R SYSLCRK d STKEND x STKMOV SCTSFAR , ( H ) @ A x STKCOMW GETAPP , (
0x0d63b0…0d6544 Dummy {f00=0x0044, f01=0x0190, f02=» A ^ d H t , ( c d H K 2 CMPADR D ERROR V , ( ;A @ x | R f , ( - @ x - J N ! , ( TTP N :H N TBT K , ( W 2
0x0d6544…0d66d8 Dummy {f00=0x0044, f01=0x0190, f02=» @ !TTXX !CCT !UU , ( ) T @ x K (9A A x , GETNUML , ( E $ @ 2 n , ( a .:H N R P V * & _ N R :h$ * &
0x0d66d8…0d686c Dummy {f00=0x0044, f01=0x0190, f02=» l INILEN , ( A x A j , ( H A l @ A L A N SCTOPTP ~ , ( @ CR @ D MULTN , ( 9 G " F * E H , ( W
0x0d686c…0d6a00 Dummy {f00=0x0044, f01=0x0190, f02=» T _ k k :A K , ( J 4 P T T 0 * & @ _ K K @ @ ` , ( x @ ` @ j @ @ * & @ l @ d A @ , ( 3 @ A
0x0d6a00…0d6b94 (2, 20) Dummy {f00=0x0044, f01=0x0190, f02=» @ L >k | * & 8 A A , ( H Q R ^ V H MMTAB x , ( ;k " , , ( @ @ T A R @ ^ P * & U U
0x0d6b94…0d6d28 Dummy {f00=0x0044, f01=0x0190, f02=» 9k! " P , ( e $ % _ @ $ @ & A & A $ $ MMENT T * & }$H A " & A d * & J ` & ) K @ , ( b G ` & ) , ( - J ` $ 4
0x0d6d28…0d6ebc Dummy {f00=0x0044, f01=0x0190, f02=» R X4 _ J GETTTB@ TTB:PP 2 MOVMMT D TTB:ID V , ( ; $ P ( I * , h TTB:CB TTB:SB TTB:SA * & UI H . 0 I 2 4 @ MMBEG
0x0d6ebc…0d7050 Dummy {f00=0x0044, f01=0x0190, f02=» 8 , @ ~ A ~ , ( ~ % R , , ( " E R N , ( @ A t R R P R Xv ~ , ( _|W T : A p * & / _ A r N P
0x0d7050…0d71e4 Dummy {f00=0x0044, f01=0x0190, f02=» D l , ( B E @ b H ` & H ` $ , ( H E #_ A P @ L < , ( 9k $ A A J l , ( " ` & ( ` $ A N J $ , ( K $ J J | , ( # @ |
0x0d71e4…0d7378 Dummy {f00=0x0044, f01=0x0190, f02=» _ " = D 4 Q _l , ( ( 1 , = G 4 * , ( 0 @ & A $ $ @ Z LSTPAG SCTTCT , ( E : " L M _V < * & < <P & &X '
0x0d7378…0d750c Dummy {f00=0x0044, f01=0x0190, f02=» A ^ @ | SCTEFAR * & ? @ :B A @ @ 9n A . , ( W @ @ L @ @ R P J V , ( qI$ @ ^ A @ A A R K MOVING , ( " B : @ H <B A z P , ( ! P
0x0d750c…0d76a0 Dummy {f00=0x0044, f01=0x0190, f02=» b @ v M : Z A , ( V @ H R R , , ( # > R W > , ( C <B @ p @ P P ` & 1 , ( ]I ` $ A v @ r ` Z _j , ( uH @ V Z : A T
0x0d76a0…0d7834 (2, 21) Dummy {f00=0x0044, f01=0x0190, f02=»X D P | , ( H E _( b E _6 " D T , ( E b E D E % : L , ( % Z " R ;B Z b | , ( A " R P P P ` , ( _ & @
0x0d7834…0d79c8 Dummy {f00=0x0044, f01=0x0190, f02=»_ D : A H z , ( @ W A H ?AP ^ D : 4P * & @ " D ( 6 , H H J , ( 4 M j - I * x * & $ # Y0 : f : R , ( ? X A h @ N T : N @ , (
0x0d79c8…0d7b5c Dummy {f00=0x0044, f01=0x0190, f02=» , ( T T _v , ( J , V P _ N 4 , ( L % J J ` & G G d * & @ ` $ U ` & G ` , ( H $ : P V : , ( 1 @ t P
0x0d7b5c…0d7cf0 Dummy {f00=0x0044, f01=0x0190, f02=» L H D ! ! P6 P * UT i ` Q R V T P( U U cP b b H D ! b P0 & P 2 + 1 2 5 =PJ C b Pn & b T H D ! P W T ! % - 1 EP i ~ T " H D ! -P mP Q " ~
0x0d7cf0…0d7e84 Dummy {f00=0x0044, f01=0x4042, f02=» P J V P U P %V ;P ` ,@ >P b b H D ! b P0 & P 2 + 1 2 5 =PJ C b Pn & b T H D ! P W T ! % - 1 EP i ~ T " H D ! -P mP Q " ~
0x0d7e84…0d8018 Dummy {f00=0x0044, f01=0x0190, f02=» J F IDENT SYSINI REL 11.0 81-01-26 870105041100 F B SYSINIK INILEN INIEND dREL MOVEY ERROR CMPADRL NXTBLK NXTCOM R H D ! CONVRT GETNUM MULTY XMOVE MOVING MOVMMT MMRST GETTAB GETTTB H D ! MMENT PUSHYdPOB GETAPP8 SETTA
0x0d8018…0d81ac Dummy {f00=0x0044, f01=0x0190, f02=» W z " tPSW @ . , ( K @ ; Z [ : : 2 [ [ > MMDDIV0 l n i" 2 : MMTAB TABBE MMEND , (
0x0d81ac…0d8340 Dummy {f00=0x0044, f01=0x0190, f02=» MOVEY XMOVE , ( : R $ )_ : A ( ( , ( H A * A , Q X , ( I @ ( @ ` $ x A ( @ * & #D @ * ` & p R A * @ , ( ; , A , ^B _F
0x0d8340…0d84d4 (2, 22) Dummy {f00=0x0044, f01=0x0190, f02=» V U _ * & @V Z K A A ( , ( & :K A ( V , ( @ Q R ( V * & @ P @ SETTABN , ( ` $
0x0d84d4…0d8668 Dummy {f00=0x0044, f01=0x0190, f02=» Q ( ; @ ( : : GETTAB ~ 0 GETTTB D * & m , X G : " L X SCTTCT( , ( 2 @ V @ 0 H INBIMA , ( A 2 : @
0x0d8668…0d87fc Dummy {f00=0x0044, f01=0x0190, f02=» @ @ 1 R U W 9a MMRST 0 , ( P _" : P _ B GETAPP8 8 r , ( 7 @ : @ ` U W L , ( S P _ @ P _" l 0 , ( o W P .
0x0d87fc…0d8990 Dummy {f00=0x0044, f01=0x0190, f02=» :C # : .=H N , ( D N .=H N " GETNUM R , ( N N : d 8" f QUEJOBR SAVE8 , ( R _ ZY QY : ? ? , ( + R 0
0x0d8990…0d8b24 Dummy {f00=0x0044, f01=0x0190, f02=» SCTOPT , ( @ e " b ` $ : @ . @ SCTSFA F SCTPAG X SCTNOPW j , ( ! @ P | , ( P P P _ _ @ SCTPSZ , ( @@ @ :b @
0x0d8b24…0d8cb8 Dummy {f00=0x0044, f01=0x0190, f02=»W Y P @ Q @ ~ , ( - . P A. @ . @ . P SCTEFA L * & G _l A 9n A :B A ^ TTB:SPW SEG:NS , ( _ D @ < | P N P , ( w 9b .V 3 S S
0x0d8cb8…0d8e4c Dummy {f00=0x0044, f01=0x0190, f02=» ] 9A n , ( @ ] 9k! ] PAGQUE > , ( Y P P P , ( ) S @ P 3 _ SCTBUG8 , ( G 3 A. @ SCTSTB , (
0x0d8e4c…0d8fe0 Dummy {f00=0x0044, f01=0x0190, f02=» , ( A * $ TDISP 8 INILEN H INIEND & " ) *_ > , p H D ! , n WN B @ > K B R > QF 1R0 I > P > V U H D ! @ V > Q R >
0x0d8fe0…0d9174 (2, 23) Dummy {f00=0x0045, f01=0x40ac, f02=»P P V W U4 T W P P( V W #P )Q ~ H D ! /P AP oP: uP4 V T" T W P: P4 9P Y Z y } : @ @ > K B R > QF 1R0 I > P > V U H D ! @ V > Q R >
0x0d9174…0d9308 Dummy {f00=0x0045, f01=0x0190, f02=» J F IDENT DSKSUB REL 11.0 81-01-26 870105041100 F B VOLCLRK VOLNAM VOLADR NVLCHK VOLGET NEWVOL INXDWTL NVLTAB R NVLEND NVLBIT VOLCLRK VOLNAM ECBRL ECBEL , ( @
0x0d9308…0d949c Dummy {f00=0x0045, f01=0x0190, f02=» X H t VOLADR < DWTOR ( DWTVOL 8 , ( 5 p ^ > X $ ^ J NVLCHK R z DWTORDC DWTNVL * & Q$ W X Y :g H I , ( i ? P X P ,P
0x0d949c…0d9630 Dummy {f00=0x0045, f01=0x4102, f02=» INXDWTL , ( Z.?AZ2 @ Q X " _D NVLTAB L NVLEND ` NVLBIT t @ X $ _P @ < < W T~ < QWD oP& y } P P P P @ P ,P
0x0d9630…0d97c4 Dummy {f00=0x0045, f01=0x0190, f02=» J F IDENT TDISP REL 11.0 81-01-26 870105041100 H D ! TDISP TPAUSE TEXIT MEXIT QMEXITA ACTDISA DISIOE DISEND` DISQUE R PRUNY RETUR8 DISQUE PRUNY RETUR8 QTJOB QMEXI
0x0d97c4…0d9958 Dummy {f00=0x0045, f01=0x0190, f02=»SA DISIOE " TENDIO DISEND` & 2 TPAUSE * F TDISP * Z , ( A W ^ ! Z2 l TTB:STL , ( 9 (X: @ P T M ]J , ) A TTB:SA * & U P P Y
0x0d9958…0d9aec Dummy {f00=0x0045, f01=0x4048, f02=» > r W !W CP YP* ]P cU 2@ D TPAUSE * F TDISP * Z , ( A W ^ ! Z2 l TTB:STL , ( 9 (X: @ P T M ]J , ) A TTB:SA * & U P P Y
0x0d9aec…0d9c80 Dummy {f00=0x0045, f01=0x0190, f02=» J F IDENT LRPINT REL 11.0 81-01-26 870105041100 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI LKMSRC IHRTC TIMQUE MONCLOC R IHPFAR INIFLGN PFPOST IHLKM INTSAVR PRUNN TTB:SA , (
0x0d9c80…0d9e14 (2, 24) Dummy {f00=0x0045, f01=0x0190, f02=»LDSEG LKM030 J SWL48 " , ( 5 $P c P W A 2 LKMAL b , ( Q B V ( U P @ r LKMERR t HALTN LKMRQE z LKMSRC ~ LKMQDI QTJ
0x0d9e14…0d9fa8 Dummy {f00=0x0045, f01=0x0190, f02=» #P DISQUE . , ( H @ A A Q ? > ? @ @ , ( XB ) A A _N A A p PFINIT IHRTC , ( $@ A _` A A Q > QMJOB S
0x0d9fa8…0da13c Dummy {f00=0x0045, f01=0x416a, f02=» , ( 1 Y _ A _0 8 FREBLK 8 , ( Q@" Q Z P 0 9 " " J , ( k _ _, ? _ P H z TIMQUE H H D ! %T 5P ;P ?W6 WV eP kV Q
0x0da13c…0da2d0 Dummy {f00=0x0045, f01=0x018e, f02=» J F IDENT TPROC REL 11.0 81-03-05 870105041100 TWAIT TMWAIT TACTOT R FNDDWT r TWAIT DWTWATL TDISP TACTOT FNDTIDN , ( @ P "R Y
0x0da2d0…0da464 Dummy {f00=0x0045, f01=0x414c, f02=» * & 3 <U "R P X DWTTAB 6 , ( M R X T X T . T H , ( gA G Y6 G _f P x LKMRQE` LKMQDIA & " ,P - _ < 8 P R Pp -
0x0da464…0da5f8 Dummy {f00=0x0045, f01=0x0190, f02=» J F IDENT MSUBS REL 11.0 81-01-26 870105041100 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXITY GETBLK FREBLKL FNDDWT R H D ! FNDDWD FNDTID PFINIT SWL48 SWLXY ILLINT@ INTSAV HALTY RELPAG , ( RELPA2 IHRET8 IHRET2 IHRET1
0x0da5f8…0da78c Dummy {f00=0x0045, f01=0x018e, f02=» ! $P T I QMJOB J . TTMJOB@ @ ACTOTP T R , ( ; R $ 5 % > ? W ? f ACTOT TTB:SA TTB:ID , ( Y $ W ? T T U T U TTB:SB^
0x0da78c…0da920 Dummy {f00=0x0045, f01=0x0190, f02=» GETBLK , ( P 0 U _h FREQUE H , ( ? @ T 0 A 1 Q Q Z FREBLKL , ( > > 0 @ 1 A P P FNDDWT TTB:TD FNDDWD , (
0x0da920…0daab4 (2, 25) Dummy {f00=0x0045, f01=0x0190, f02=» SCTTCT , ( ; X W ? ` @ @ P $ IHRET8 ` @ IHRET2 d T IHRET1 h h IHRTN j | PFINIT l PFTAB * & U@ H W W > > > > > > @ SWL48 , ( q V ?
0x0daab4…0dac48 Dummy {f00=0x0045, f01=0x4100, f02=»ALTY RELPAG RELPA2 " LKMERR 6 " @ ? A. H H D ! 4 $ 1P ;R SW [W gT T P T R P n , ( )R /P 7W0 ?W( QP [W _W sV @ ?
0x0dac48…0daddc Dummy {f00=0x0045, f01=0x018e, f02=» J F IDENT TTMJOB REL 11.0 81-01-26 870105041100 F B TTB:AMK TTB:MT TTB:CB TTB:SP TTB:SB TTB:AP TTMJOBL TTB:QL R 6 2 TTB:ID TTB:ST TTB:PP TTB:PW TTB:SA TTB:TDL TTB:AMK TTB:MT TTB:CB
0x0daddc…0daf70 Dummy {f00=0x0045, f01=0x40f6, f02=» TTB:QL TTB:ID TTB:ST , TTB:PP @ TTB:PW T TTB:SA h , ( ! #M 1 | TTB:TDL ( A P @ TTB:CB
0x0daf70…0db104 Dummy {f00=0x0045, f01=0x0190, f02=» J F IDENT TOSSIO REL 11.0 DK 81-10-10 870105041 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT TIOMXIC R H D ! MONMMU ECBFC ECBFN ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1 ECBCW2 F B DC:DIX DM:DIX PC:DIX M
0x0db104…0db298 Dummy {f00=0x0045, f01=0x018e, f02=»WTECBW DWTOPT DWTOR DWTOCH DWTADR DWTTAB8 DWTWAT2 D @ DWTTQ DWTOTQ: DWTUEC DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 < F B DWTSB2 DWTTP DWTECH DWTSQ DWTORD DWTNVLN DWTVOL DWTA7 DWTA8 > : DWTCP2C DWTLD1V DWTLD2 DWTDEV DWTTBU: DWTTLNr DWTTCWV
0x0db298…0db42c Dummy {f00=0x0045, f01=0x0190, f02=» DWTADR DWTTAB8 DWTWAT2 0 DWTTQ D DWTUEC V DWTMEC j DWTOTQ: ~ DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 DWTSB2 " DWT
0x0db42c…0db5c0 Dummy {f00=0x0045, f01=0x0190, f02=»2 , DWTDEV . DWTTBU: . DWTVOL . 4 DWTECH 0 H DWTTLNr 0 DWTTCWV 2 p DWTSQ > BUFLEN ACTADR0 ABTADRx INTADR POLADR HDRLEN@
0x0db5c0…0db754 (2, 26) Dummy {f00=0x0045, f01=0x0190, f02=» IT:DIX DK:DIXF ECBFC 2 ECBFN D ECBBA V ECBRL h ECBEL z ECBRC ECBCW ECBCW1 ECBCW2 , (
0x0db754…0db8e8 Dummy {f00=0x0045, f01=0x0190, f02=» ^ TTB:ST , ( A ( , 0 4 8 < C C , ( _A T 8P Y ^ 5 ) P L TTB:SAT | TDISP FNDDWTJ |TIO TIO:FM , ( {$ U , (
0x0db8e8…0dba7c Dummy {f00=0x0045, f01=0x0190, f02=» C W O " v , ( # X Y ) C C , ( x # P Y '? Y F GETBLK v QTJOB , ( 3 H Y T # P W Y , ( O P R R P T P (@ , ( @ o (@ "
0x0dba7c…0dbc10 Dummy {f00=0x0045, f01=0x0190, f02=» F C F C > TIOMXIC ( , ( B R Q F ! P C > C > < TTB:MT l , ( F 8D D ! 9b8d9D # C ~ , ( - > B R Q P B P , ( M 0$ T # R Q
0x0dbc10…0dbda4 Dummy {f00=0x0045, f01=0x018e, f02=» X 0 n DISEND , ( X D C > X , ( H U H B P P $ # P , ( Q > P , ( + _0 # T p > P p , ( K (_H _2 B
0x0dbda4…0dbf38 Dummy {f00=0x0045, f01=0x0190, f02=» f , ( _ X T (@ X L U L , ( Q M X 8 TENDIO h , ( L P ( L ) 1_f _& ? | , ( (@ X P 4 Y X , ( # 1 1 X P - M T $ P
0x0dbf38…0dc0cc Dummy {f00=0x0045, f01=0x0190, f02=»P l , ( T P 0 1 FREBLK < ACTOT N & " Y > > _ ^ H D ! . t t H D ! ! # % ' ) d + gP yP | P T P
0x0dc0cc…0dc260 Dummy {f00=0x0045, f01=0x4082, f02=» P PL Q P 7T ?P mU U l @ < @ Q4 P P 1P ?PJ kR mP sP yP P, P$ P( P ( l@ ~ ^ H D ! . t t H D ! ! # % ' ) d + gP yP | P T P
0x0dc260…0dc3f4 (2, 27) Dummy {f00=0x0046, f01=0x0190, f02=» J F IDENT LDTASK REL 11.0 81-06-10 870105041100 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
0x0dc3f4…0dc588 Dummy {f00=0x0046, f01=0x0190, f02=» h LT:SWB l LT:DSKK l TLSEG1 0 * & [ $V B QMEXITL p PAGQUE , ( y A ( @ PAG:QBV PAG:SBN , ( X H A ( 1 ) H
0x0dc588…0dc71c Dummy {f00=0x0046, f01=0x0190, f02=» TTB:AP , ( I$ M T M T M TLSEG2 B PAG:PA8 T SCTPSZ f SEG:ELR x * & $H U (@ H @ D TTB:SP8 SEG:FC , ( &! <a >a
0x0dc71c…0dc8b0 Dummy {f00=0x0046, f01=0x0190, f02=» &9b!0 # C ( ~ ECBRL , ( = V P * . ECBRC ^ , ( [ U ' ( B , n RELPA2 , ( w DT :" U F . t , ( U _8 # C
0x0dc8b0…0dca44 Dummy {f00=0x0046, f01=0x4092, f02=»LTASK ACTOT ( $ D C 0_ 2 l B 4 , ( qV P CV OP W j [U _ wT S L |@ n RELPA2 , ( w DT :" U F . t , ( U _8 # C
0x0dca44…0dcbd8 Dummy {f00=0x0046, f01=0x0190, f02=» J F IDENT ST8000 REL 11.0 81-01-26 870105041100 ST8000K R ST8000K d IHPFAR x IHLKM IHRTC ILLINT IHTWA IASCUZ , (
0x0dcbd8…0dcd6c Dummy {f00=0x0046, f01=0x4150, f02=» ~ , ( ! , ( 1 N , ( A ~ , ( Q , ( a
0x0dcd6c…0dcf00 Dummy {f00=0x0046, f01=0x018e, f02=» J F IDENT DCADDR REL 11.0 81-01-26 870105041100 F B FNDDNAK FNDDNT GETDNA GETDNT GETDSA GETDST GETSNAL GETSNT R GETSSA GETSST GETDSA GETDST SCTDCT , ( ? W ?
0x0dcf00…0dd094 (2, 28) Dummy {f00=0x0046, f01=0x0190, f02=» FNDDNT | , ( _ P B _V B P _ _ FNDDNAK H GETDNT GETDNA p , ( } ? W ? W ?W ? _ B , ( B ? ' V T _ _P GETSST GETSSA
0x0dd094…0dd228 Dummy {f00=0x0046, f01=0x4098, f02=» _*" /] Z 8_ H D ! W P P %Tn AR& QT UR _P oP W W W V& T W T & W r @ ?W ? _ B , ( B ? ' V T _ _P GETSST GETSSA
0x0dd228…0dd3bc Dummy {f00=0x0046, f01=0x0190, f02=» J F IDENT TMOVE REL 11.0 81-05-21 870105041100 * & TMOVE MOVSS MOVSU MOVUS MOVUU MOVFW R TMOVE FNDTIDC , ( (@ B B " #MP , ( P B #MP P W , (
0x0dd3bc…0dd550 Dummy {f00=0x0046, f01=0x0190, f02=» ; j MOVSS , ( w [ [ W Z Z : : U , ( ? ? ? P P $ ) U L , ( P x T $ ) W X $ ) | MOVUS TTB:MT , ( Y W U ? ? _ T , (
0x0dd550…0dd6e4 Dummy {f00=0x0046, f01=0x0190, f02=» Y _2 r , ( U ]( ? ? _ P P P ( , ( s $ ) ]^ P p r B , ( $ ($ ) _ (W X2 $ r MOVUU $ ]$ $ ) Y _ > H D ! P" !PH +P* 3P6 9 ;W( EP MP S R UW
0x0dd6e4…0dd878 Dummy {f00=0x0046, f01=0x4012, f02=» @ U ]( ? ? _ P P P ( , ( s $ ) ]^ P p r B , ( $ ($ ) _ (W X2 $ r MOVUU $ ]$ $ ) Y _ > H D ! P" !PH +P* 3P6 9 ;W( EP MP S R UW
0x0dd878…0dda0c Dummy {f00=0x0046, f01=0x0190, f02=» J F IDENT DCSTAT REL 11.0 81-01-26 870105041100 F B DCSRSTK DCSRLL DCSUPR DCSUPS DCSUPD DCSRED CSMAXLL DWTCHD R DWTCHN DWTCHD DWTCHN CSMAXLL DCSRSTK DCSRLL
0x0dda0c…0ddba0 Dummy {f00=0x0046, f01=0x0190, f02=» ? ? ?W ? ? ? ? W ? ~ , ( A ? ? ? ~ _ X P ^ DCSRED n N , ( a _ > > > >W ? ? ? ? ? ? P B b DWTTAB , ( P B P X X P X W X , ( P X P D P ;A %W M
0x0ddba0…0ddd34 (2, 29) Dummy {f00=0x0046, f01=0x4166, f02=» W ? ? t , ( X P %? R L V 9HR , ( = ,R S -W - X M W D ] W > >W > t H D ! W T 'W 1W =W U [P mW }P PV PP P W P H D ! P P W R P W W
0x0ddd34…0ddec8 Dummy {f00=0x0046, f01=0x4114, f02=» J F IDENT DWII01 REL 11.0 81-01-26 870105041100 DWII01K R DWII01K d ITADN x , ( IT:BUF @ , ,
0x0ddec8…0de05c Dummy {f00=0x0046, f01=0x4114, f02=» J F IDENT DWIO01 REL 11.0 81-01-26 870105041100 DWIO01K R DWIO01K d ITADN x , ( IT:BUF @ , ,
0x0de05c…0de1f0 Dummy {f00=0x0046, f01=0x411c, f02=» > @ IDENT DW1501 REL 11.0 81-01-26 870105041100 DW1501 F DW1501 X DC15AD l , ( DC ~ , ( ? @ B 4
0x0de1f0…0de384 Dummy {f00=0x0046, f01=0x0190, f02=» J F IDENT DRDI01 REL 11.0 81-01-26 870105041100 DIADY R DIADY b ECBCW t DWTDEV` , ( B X R $ # LENDER , ( $;D !99P 7P P Y X
0x0de384…0de518 Dummy {f00=0x0046, f01=0x0190, f02=»SB2N , ( i HW X V Y X P , ( B y _B Y W y < LDISP l , ( " Y Y W Y | STABLKA , ( "" Y ! T X Y DWTECB * & D@
0x0de518…0de6ac Dummy {f00=0x0046, f01=0x4128, f02=» T X R $ P _B ! LENDIS , ( T 9 R 9 W 9 _ 0 & " /" Y ! X _~ ` H D !` , R %P )P -Pt ;T C j [P aWV iWN qV$ P W W 8 4 T V. P V V V T R P T R '
0x0de6ac…0de840 Dummy {f00=0x0046, f01=0x0190, f02=» > @ IDENT DRDY02 REL 11.1 82-08-20 870105041110 DYAD F DYAD V DWTDEV h , ( = Y z STABLK , ( ! ! T P P P ENDBLK LENDER
0x0de840…0de9d4 (2, 30) Dummy {f00=0x0046, f01=0x0190, f02=» U ! T t , ( o Y X Y U , ( ! T ! T Y _@ D ECBRL t , ( Y Y Y W B ECBBA , ( P B H " +P Y , ( T P
0x0de9d4…0deb68 Dummy {f00=0x0046, f01=0x0190, f02=» X $ %T Y V B , ( A V _ X X ! R Y $ , ( ] " ; ! ;h X $ X T , ( w ! _p ! ] B , ( H " _ _ P P P ECBRC , ( " P P P
0x0deb68…0decfc Dummy {f00=0x0046, f01=0x0190, f02=» X X , ( ! ! T ! T $ ECBEL T , ( = ! T C X C d LENDIS , ( UD ! T B Y ! , ( @ m D ! T Y U X * &
0x0decfc…0dee90 Dummy {f00=0x0046, f01=0x0190, f02=»X Y T t TENDIO * & H V X P Y ! & , ( @ W V X P R Y T * & ! ! P P Y ECHRTN , ( $ ! P Y ! , ( 5 X #
0x0dee90…0df024 Dummy {f00=0x0046, f01=0x0190, f02=»# XZ X ! p ! Y , ( _r Y R X ! T " DWTST R , ( " ! T ! T 4 X ? b DWTOR , ( @ *9 9 X "' P P +P 9 DWTSB2 , ( R 9 9 V 9 $
0x0df024…0df1b8 Dummy {f00=0x0046, f01=0x0190, f02=» Y ! t * & Q X P ! ! , ( i H *0 ! ! ! B LDISP r * & D Y Y X : & H D !~ B +T /P 3P, 7P = ^ C S
0x0df1b8…0df34c Dummy {f00=0x0046, f01=0x4110, f02=» , PJ P P8 P8 P4 f H D ! P0 P, U WJ TF P 'T + , ;TN CTF G YT0 i p wT U " H D !4 T U V P WF V> P R PZ P % , )P [R n < 8 R T T T B P P P R V ;Q [P
0x0df34c…0df4e0 Dummy {f00=0x0046, f01=0x0190, f02=» > @ IDENT DRGP02 REL 11.0 82-07-07 870105041100 GPAD8 F , ( [000b [000e [00t [00q 8 V GPAD8 < , ( ! [00w [00v c [5n DWTOR DWTDEV * & A $$ X " X
0x0df4e0…0df674 (2, 31) Dummy {f00=0x0047, f01=0x0190, f02=» l STABLK GETCHR OUTPUT 0 , ( ! P ! B ENDBLK r , ( P _ ! _, ! , ( _D ! P P , ( B ! ! !
0x0df674…0df808 Dummy {f00=0x0047, f01=0x0190, f02=» Y ! t , ( S X P ! , ( m@ ! W ! ! B * & W ! W ! +XR X r , ( @ $ T _ Y $ Q P , ( B ! ! ! W Z* , (
0x0df808…0df99c Dummy {f00=0x0047, f01=0x0190, f02=» + P Y ! & , ( E ! ! B $ P YN P 0 DWTST ` DWTSB2 p , ( c H Y Y , ( }@" ! . ! X " P Y " * & ! Y Y 0 ! Y
0x0df99c…0dfb30 Dummy {f00=0x0047, f01=0x018e, f02=» Y ! ! , ( [ ! 5 ! " SETIMP R , ( ! n ! ! d INPUT , ( 1@@ ! " ! P 0 * & M : P Y _$ X X , ( g
0x0dfb30…0dfcc4 Dummy {f00=0x0047, f01=0x018e, f02=» * & DH Y _ Y Y X , ( ," :HR 0 P :h ! Y 2 , ( B _" X , ! Y b , ( _ 4 :h 0 :C ! 4121518 , ( ' 24253033353648505160667072010203 , ( G 04050607080910
0x0dfcc4…0dfe58 Dummy {f00=0x0047, f01=0x4176, f02=» H D !u P P P T P ) 3PB 7PT H D !6 9WF ?P E t W ]PN g s uW6 W W T Q P H D !q^ P W6 R P T !P. - ; G O WP H D ! c > P8 t t
0x0dfe58…0dffec Dummy {f00=0x0047, f01=0x0190, f02=» J F IDENT DRIC01 REL 11.0 81-04-02 870105041100 ITADY IT:BUF R ITADY j IT:BUF | ECBCW DISIOE , ( B P P 3T Y W FNDTIDA
0x0dffec…0e0180 Dummy {f00=0x0047, f01=0x0190, f02=» R H t DWTECB` * & 1 P ' P T ' P & ECBRL T , ( M B ]` F U F ]n d BUFLEN ECBEL DWTTABN * & e H P U W C G H TTB:ID * &
0x0e0180…0e0314 (2, 32) Dummy {f00=0x0047, f01=0x0190, f02=» 9 j SETIMPA , ( @_ Xt X X R A TTB:ST` L , ( Y X T " P ^ TDISP , ( (P H U "^ 9 1 $ X , ( " T @ P ( A _ ( Y _ , (
0x0e0314…0e04a8 Dummy {f00=0x0047, f01=0x40f4, f02=» { $ $ - )W ) $P e % > H D ! X P P T W P )R 1P 5Pt ;Tt ? b CP YU kU . H D !0 qW. R J P P T P #T )P 3 S f ] b e oP z uP W P @ , (
0x0e04a8…0e063c Dummy {f00=0x0047, f01=0x0190, f02=» > @ IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 TASCII TEBCDI F TASCII ` , ( t , ( ! , ( A ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^ , (
0x0e063c…0e07d0 Dummy {f00=0x0047, f01=0x4162, f02=» , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI 4 , ( /STUVWXYZ|,%_>?0123456789:#@'= H , ( 7- <=2&p ?' x , ( ! @O JZlP}M] Nk`Ka z^L~no , ( A j {|[_m , (
0x0e07d0…0e0964 Dummy {f00=0x0047, f01=0x414a, f02=» J F IDENT DVTKB REL 11.0 81-01-26 870105041100 DVTKB R DVTKB b KBAD4 t & " @ KB bECH bCOD , ( ! "" 33 =
0x0e0964…0e0af8 Dummy {f00=0x0047, f01=0x0190, f02=» J F IDENT DRND01 REL 11.0 81-05-27 870105041100 H D ! INPUT STABLK OUTPUT ENDBLK ECHRTN ECHOY ECHEND@ GETCHR ABORT R H D ! LENDERN LENDIS LDISP NDREPO NDRETOL NDREP NDRET NDSAV8 NDGET8 F B NDREWS NDREDWV NDGEDN8 NDG
0x0e0af8…0e0c8c Dummy {f00=0x0047, f01=0x0190, f02=» INTSL7W INTSL8 INTAS1 INTAS2 INTAS3 INTAS4 ~ F B INTAS5 INTAS6 INTAS7 INTAS8 INTPL1 INTPL2 INTPL3 INTPL4 8 F B INTPR1 INTPR2 INTPR3 INTPR4W INTVU1 INTVU2 INTVU3 INTVU4V & " INTVU5N INTVU6C INTVU7V INTVU8 PLCHRI
0x0e0c8c…0e0e20 Dummy {f00=0x0047, f01=0x018e, f02=» ( PLENBL 0 PRENBL B TDISP T * & 3 T d PLDISP PRDISPI INTLT1 P INTLT2R P INTLT3R P INTLT4 P
0x0e0e20…0e0fb4 (2, 33) Dummy {f00=0x0047, f01=0x0190, f02=» INTSL4 P INTSL5 P INTSL6 P , INTSL7W P @ INTSL8 P T INTAS1 P h INTAS2 P | INTAS3 P INTAS4 P INTAS5 P INTAS6 P INTAS7 P INTAS8 P
0x0e0fb4…0e1148 Dummy {f00=0x0047, f01=0x0190, f02=» INTPR3 INTPR4W ^ 4 INTVU1 ` H INTVU2 ` INTVU3 ` p INTVU4V ` INTVU5N ` INTVU6C ` INTVU7V ` INTVU8 ` INPUT ` DWTCHP
0x0e1148…0e12dc Dummy {f00=0x0047, f01=0x0190, f02=» ! 9 D W x ECHEND@ ECHOY , ECHRTN > GETCHR R ECBRL f ECBBA v , ( @ X ! 9 D 0W B U B ECBEL ABORT DWTST , ( (" W C
0x0e12dc…0e1470 Dummy {f00=0x0047, f01=0x0190, f02=» NDREPO NDRETOL NDREP , NDRET > , ( @ D @ W W (@ P NDSAV8 DWTA3 DWTA4 DWTA5 DWTA7 DWTA8 * & H 4 Y $ Y & Y ( Y *
0x0e1470…0e1604 Dummy {f00=0x0047, f01=0x0190, f02=» j , ( Q X X P X( NDREDWV t : DWTSB2 N DWTOR ` DWTECB p * & o _. ?(@ . X 0'? DWTADRV RECADR2 DISENDR , ( 2 X 4 D 6 X
0x0e1604…0e1798 Dummy {f00=0x0047, f01=0x4140, f02=» D V n $ 8P X V 8W ?a > H D ! ! # % ' 6 H D ! ) / 1 3 5 7 9 ? qW~ Wl WZ WH U W W H D !j W ? ER* M cP m t T P V P W P
0x0e1798…0e192c Dummy {f00=0x0047, f01=0x0190, f02=» J F IDENT TIMER REL 11.0 81-01-26 870105041100 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x0e192c…0e1ac0 Dummy {f00=0x0047, f01=0x40ec, f02=» _ ? * & S ^ 4 _ ( TIMQUEA V , ( o @ 1 A _ P 9 > h > ( $ ~ T J : - 4 1 J 3 > P @ ETBLK@ LKMQDI
0x0e1ac0…0e1c54 (2, 34) Dummy {f00=0x0047, f01=0x0190, f02=» J F IDENT TMMLKM REL 11.0 81-01-26 870105041100 TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x0e1c54…0e1de8 Dummy {f00=0x0047, f01=0x407a, f02=» ,$ T -_> | RELPAG Q - _H . P -U 3U IT H X d@ vPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x0e1de8…0e1f7c Dummy {f00=0x0047, f01=0x0190, f02=» J F IDENT TLDSEG REL 11.0 81-01-26 870105041100 TLDSEGK TLSEG1 TLSEG2 R TLDSEGK t TTB:SP SEG:NS LKM030@ , ( B T R L U 9C TTB:SB SEG:D
0x0e1f7c…0e2110 Dummy {f00=0x0047, f01=0x412c, f02=» TTB:AP ACBMMP ACBNPE " , ( 5BH D " T X X - 4 ACBLAP d TTB:MT v TTB:CB , ( M U _ 9B X T u TTB:SA g X > R U %T /
0x0e2110…0e22a4 Dummy {f00=0x0047, f01=0x0190, f02=» J F IDENT TABORT REL 11.0 81-01-26 870105041100 TABORTK R TABORTK d FNDDWT x DWTTAB DWTADR ABTADR * & "R P X T X DWTST DWTECH
0x0e22a4…0e2438 Dummy {f00=0x0047, f01=0x4106, f02=»P X P t DWTECB ECBRC & DWTSB2C 6 * & IH Y 9 C H DISEND v LKMRQE " _ @ , ( Rf P^ TX PJ %RD )V 7T ?P* GP n @ H
0x0e2438…0e25cc Dummy {f00=0x0047, f01=0x0190, f02=» J F IDENT MONTIM REL 11.0 81-01-26 870105041100 GETTIMK SETTIM TDATE R GETTIMK r MONCLO , ( @ < ? < ? <(@ $ , ( P B $ 9H C ">h # TTB:SA
0x0e25cc…0e2760 Dummy {f00=0x0047, f01=0x40d6, f02=» TDATE , ( w P ?_" = > = > = _D , ( @ X _F R _ 00 @ > & <h$ P > p ( $ P ?P eP s wP R P @ $ 9H C ">h # TTB:SA
0x0e2760…0e28f4 (2, 35) Dummy {f00=0x0048, f01=0x0190, f02=» J F IDENT LKMAL REL 11.0 81-01-26 870105041100 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x0e28f4…0e2a88 Dummy {f00=0x0048, f01=0x406e, f02=» , ( B % 4 & H & X@ j b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x0e2a88…0e2c1c Dummy {f00=0x0048, f01=0x0190, f02=» 2 @ IDENT CTAB01 REL. 11.0 81/10/28 CTAB01 CTAB02 CTAB03 : CTAB01 CTAB02 p CTAB03 , ( , ( ! 012345 , ( A 6789 -
0x0e2c1c…0e2db0 Dummy {f00=0x0048, f01=0x4118, f02=» 0123456789 - , ( * > ?;_: =!"#$%&/() @ABCDE ( , ( FGHIJKLMNOPQRSTUVWXYZ []^ X H D ! * : J Z j z ! # % '
0x0e2db0…0e2f44 Dummy {f00=0x0048, f01=0x416e, f02=» > @ IDENT DVKB00 REL 11.0 81-01-26 870105041100 DVKB00 F DVKB00 X KBAD4 l * & @ KB | CTAB01 , ( % @ 0 , ( C
0x0e2f44…0e30d8 Dummy {f00=0x0048, f01=0x4122, f02=» J F IDENT DVDI00 REL 11.0 81-01-26 870105041100 DVDI00K R DVDI00K d DIADN x * & DI , ( % ?O_o E @ F :
0x0e30d8…0e326c Dummy {f00=0x0048, f01=0x410e, f02=» J F IDENT DVDY00 REL 11.0 81-01-26 870105041100 DVDY00K R DVDY00K d DYADN x * & Y * & % P @ B 6 B @
0x0e326c…0e3400 Dummy {f00=0x0048, f01=0x4154, f02=» J F IDENT DVG100 REL 11.0 81-01-26 870105041100 DVG100K R DVG100K d GPAD8 x , ( GP , ( , ( ?
0x0e3400…0e3594 (2, 36) Dummy {f00=0x0048, f01=0x417a, f02=» J F IDENT DVKB01 REL 11.0 81-01-26 870105041100 DVKB01K R DVKB01K d KBAD4 x * & @ KB CTAB02 , ( % @ 0 , ( C
0x0e3594…0e3728 Dummy {f00=0x0048, f01=0x4122, f02=» J F IDENT DVDI01 REL 11.0 81-01-26 870105041100 DVDI01K R DVDI01K d DIADN x * & DI , ( % ?O_o E @ F :
0x0e3728…0e38bc Dummy {f00=0x0048, f01=0x018e, f02=» J F IDENT SYSLDM REL 11.0 81-08-19 870105041100 SYSLDMK R SYSLDMK d bREL x STKCOM SYSLODW TCLASS SCLASS * & $H @ STKEND
0x0e38bc…0e3a50 Dummy {f00=0x0048, f01=0x0190, f02=» DWTMEC , ( OA Y 5 X SCTSFA F , ( i * _6 : @ X SCTTCT@ , ( $ % @ * & $ @ R ERROR , (
0x0e3a50…0e3be4 Dummy {f00=0x0048, f01=0x0190, f02=»BLK , ( : ` SCTNOF < , ( H @ A P _ @ N , ( @ @ 3 S S @ V ~ , ( 9! A : , ( S @P T
0x0e3be4…0e3d78 Dummy {f00=0x0048, f01=0x0190, f02=» l , ( CRT N =H N A N =H N CONVRT2 < TTB:TD N TTB:AM ` , ( $ " A $ @ %!5!T r TTB:MT , ( H & &W @ = V ( TTB:CB , ( @ (W = V
0x0e3d78…0e3f0c Dummy {f00=0x0048, f01=0x0190, f02=» P " U * & } _2 @ & , ( " P . 0 T , ( I V TTB:ST , ( H . 0 S $ @ S ,=J TTB:PW
0x0e3f0c…0e40a0 Dummy {f00=0x0048, f01=0x0190, f02=»:PP| , ( $BT @ S 4 A A , ( % _ !TTT @ , < PUSHN l , ( ? $ P @ * @ a : | , ( WA 6 T ` @ , ( q W H A J AS
0x0e40a0…0e4234 (2, 37) Dummy {f00=0x0048, f01=0x0190, f02=» @ ;C , ( @ U BAT @ , , ( * @ 8 : A . @ , ( ) @ P S SCTIPL , ( - _ S A . @ < 3 , ( I 3
0x0e4234…0e43c8 Dummy {f00=0x0048, f01=0x0190, f02=» J U 3 S TTB:SP . , ( B S S _p P " I > @ bPOB p , ( D _ @ : P @ : ~ , ( $ A A < H A * & $ P
0x0e43c8…0e455c Dummy {f00=0x0048, f01=0x018e, f02=» l , ( A H I K T + , ( Y@ @ 6 _f @ Y < * & @ !TTX Y % @ l SCTFWT * & : A @ BT @ A , ( A H A *
0x0e455c…0e46f0 Dummy {f00=0x0048, f01=0x0190, f02=» f DWTTAB , ( W T B D YP G , ( u 9h G G @ 8 P A 8 J , ( H _l @ A @ Y z , ( @" !TTX Y : , ( !TTX !CCT ,
0x0e46f0…0e4884 Dummy {f00=0x0048, f01=0x0190, f02=» j * & ; $ $ _. Y SCTDCT 8 SCTDMT J , ( Y D !TTX @ F @ H @ ! SCTCDT * & q P @ 8 8 8 3 , ( J * U , ( I
0x0e4884…0e4a18 Dummy {f00=0x0048, f01=0x0190, f02=» @ @ < @ _2 , ( ]X @ 8 8 8 , , ( 1 4 D P @ # P , ( O H I K T K , ( k YB _b @ H @ F , ( @ % P @
0x0e4a18…0e4bac Dummy {f00=0x0048, f01=0x0190, f02=»PPT W !LLT z , ( W !RRT W !QQP , ( H A A . A 0 @ 0 J DWTCP2W z , ( 1 P @ P P 0 _ P H L DWTST , ( M &? @ . #? H N& D N# , ( g! * H
0x0e4bac…0e4d40 Dummy {f00=0x0048, f01=0x0190, f02=» ) I L D #@P D R ~ DWTECH , ( $ L T D TP @ ` < T 0 DWTSQ ` , ( " @ < 1 Q a < V p DWTDEVO , ( I I V I V D X# P , ( W W D DV ` < T
0x0e4d40…0e4ed4 (2, 38) Dummy {f00=0x0048, f01=0x0190, f02=» @ r , ( q$ U A < + + * & P @ : ` < P @ B , ( < @ < @ < D (P p * & W H $ I T % E , a , ( < : @ Q A % @ , (
0x0e4ed4…0e5068 Dummy {f00=0x0048, f01=0x0190, f02=» n , ( = * Q _8 B A 0 * & Y$ A * A , A . @ < INTPR1 j , ( q $ , @ . P A . @ 2 E | , ( B A , * Q _8 : , ( !
0x0e5068…0e51fc Dummy {f00=0x0048, f01=0x0190, f02=» j , ( B : , ( 1D 6 P F A : , ( G R A @ @ @ j , ( c _ S : 0 N N , ( !TTP 9H N A B A , ( L
0x0e51fc…0e5390 Dummy {f00=0x0048, f01=0x0190, f02=» A J U P * & @ N 9A @ L P @ * , ( - B # _R @ 0=H A B X , ( I P N !DDP !SSP F , ( g A H P N !SST , ( A J P Y
0x0e5390…0e5524 Dummy {f00=0x0048, f01=0x0190, f02=» * : @ v , ( B 9 @ D 9 9@ @ H , ( :HP @ F U W 9 D , ( % @ 9@ @ J P @ N ;A t , ( A 9@T 9 9@ 9 : P , ( a P 9@T 9 9@ , (
0x0e5524…0e56b8 Dummy {f00=0x0048, f01=0x018e, f02=» , ( - _> _H , ( : P AAT : N =H N 4 , ( @ " : N =H N " : &=H F d , ( 9 " : F =H F " : ? ? GETNUM , ( U ^ > > : 4 , (
0x0e56b8…0e584c Dummy {f00=0x0048, f01=0x0190, f02=» f , ( P _ @ A P A , ( P _ Q @ Q 1 8 , ( D a : @ 0 h , ( 2 * P J # P , ( 3 B _ :d Y @ * Z A . , ( O P
0x0e584c…0e59e0 Dummy {f00=0x0048, f01=0x0190, f02=» .X @ * P T , ( :D * J T J & , ( & P T X& >aW T L& V , ( P T N&@P @ 9 A , ( J ] W @ 9 A , ( 5 P _d @ 8P 0P _
0x0e59e0…0e5b74 (2, 39) Dummy {f00=0x0049, f01=0x0190, f02=» : d v , ( R d R _ 00)0= , ( % : @ H ;l H :lT F , ( ;A ( ( P 5 v , ( _ ` R - _ : @ A , ( D : A : @ :
0x0e5b74…0e5d08 Dummy {f00=0x0049, f01=0x0190, f02=» R t MOVEN , ( "D Y b $ , ( U : ~ V T P 0 H D !d P 0 ) 0 /WL 9P@ R6 P P P # P 7V SP( [T H D ! T d T W V W
0x0e5d08…0e5e9c Dummy {f00=0x0049, f01=0x0190, f02=» Q Y kRh s P T W* S W U P H D !v P # " 'P + @ I 2 QPd Y @ sP$ { t P . T < H D ! " P~ + @ A P MT YT gP o P . Tr P, H D ! @ U 2 P, # @ 1U O . U sP U T P
0x0e5e9c…0e6030 Dummy {f00=0x0049, f01=0x0190, f02=» W T ( W P 3PV l H D !x( =P | t PV Tp P T P6 W( W" V T ( H D ! 7PD SP( qU P P: P W Q #P GQ i m wP Q t H D ! f QZ RT Q* R$ 5P< I QR ] t P P T P
0x0e6030…0e61c4 Dummy {f00=0x0049, f01=0x413a, f02=» kP qT R X H D ! R P Q PD P8 P( P2 P, U P T qP T P W P H D ! Q P P$ P P %PF 1P SP YT wT {P P W P ` H D ! P T TT P W P P %W 7P AP IP YP iT mP T R ( $ R T P
0x0e61c4…0e6358 Dummy {f00=0x0049, f01=0x018e, f02=» B @ IDENT DRDC15 REL 11.0 DK 82-07-08 870105041100 . * DC15AD IH1501 IH1502 DC15ON DW1500 J DC15AD | BHBB DWTOR , ( 1 X $P % Y $ X " T @ , ( O T A A
0x0e6358…0e64ec Dummy {f00=0x0049, f01=0x0190, f02=» GETDNA , ( P ] ] V TASCII F , ( ] ] < " P H :H ! X , ( @ D = X B , ( P ] , ( # "P R X ] "
0x0e64ec…0e6680 Dummy {f00=0x0049, f01=0x018e, f02=» ! B = ] @ | TDISP , ( { P a A ] ] , , ( B X 2 ECBBA DC:MOT , ( C B P Y GETSNA , ( B B Y
0x0e6680…0e6814 (2, 40) Dummy {f00=0x0049, f01=0x018e, f02=» , ( 'B X P Y @ T , ( C X 2 "P T X Y 2 4 , ( c ] "_( T P X U Y d ECBCW1 , ( 2_F B T X 2:D :D , ( :D C X 2 * &
0x0e6814…0e69a8 Dummy {f00=0x0049, f01=0x0190, f02=» DWTOPT ECBRL , ( X " P B & , ( - @ X 2 V ECBEL , ( K X *T W P GETSSA , ( k@ C X P " C 0P
0x0e69a8…0e6b3c Dummy {f00=0x0049, f01=0x0190, f02=» > , L Q , L X "R SETIME , , ( P A ( Y $ W > , ( Y $W X "Z X A ( Y n , ( $_. Y $ @ T A A , ( ; X $P y $ Y $ (P 0 , ( [ )
0x0e6b3c…0e6cd0 Dummy {f00=0x0049, f01=0x0190, f02=» &_2 &_$ * (P _ ) 1 4 , ( A A A A A W . , ( > . ^ , ( ] ] a 4 , ( 9 ( X A _< ( A , ( U 4 A .
0x0e6cd0…0e6e64 Dummy {f00=0x0049, f01=0x0190, f02=» ] " P ] ~ , ( 8 . A A ! ! T , ( A N , ( . ! ! @ T " ! _Z ~ , ( / ! ] P = $ ! x , ( O ! > ! F ! A P
0x0e6e64…0e6ff8 Dummy {f00=0x0049, f01=0x0190, f02=» ! ! n , ( H A @ T ! _ ( T , ( @ $ _ A C B > , ( B A A A A A ! n , ( ! H A _ ! T @ X , ( ? ! P ! # T @ T ! , ( ] _
0x0e6ff8…0e718c Dummy {f00=0x0049, f01=0x0190, f02=» P @ P @ 8 ! ! A , ( _: ! X8_` A @ @ T . , ( 1 T P 2P P P @ P X ^ TEBCDI , ( @ 2P A N 8 H * @ P E , ( ;D X R X P T P , ( U@
0x0e718c…0e7320 Dummy {f00=0x0049, f01=0x0190, f02=» D $W ! X T X , ( ! P ! W ! A @ X 0 , ( 0 A A A ! | @ ` , ( T @ P ! ! | @ T @ , ( X W @ @ @ @ A , ( @ = ! | @ T _> !
0x0e7320…0e74b4 (2, 41) Dummy {f00=0x0049, f01=0x0190, f02=» _2 _6 @ A A , ( @ X ! XD Y _N "P , ( -P L _ 4 A A H * P * & E A A 4 @ P X R X , ( " T X *P < , ( / A A 4 @ @ T
0x0e74b4…0e7648 Dummy {f00=0x0049, f01=0x0190, f02=»P _F @ n , ( @ E ! P ! 4 _" , ( ! 0_p / A T W ,W @ A > , ( A W W W A A ! n , ( @ ! @ ! ! ! ! , ( - 4 ! ! @ @ A @ , ( M T
0x0e7648…0e77dc Dummy {f00=0x0049, f01=0x0190, f02=» @ " ! " :A *@ H T 0 ! , ( W R ! A @ @ U . , ( Zx Q P Q T 0 ! A ^ , ( 0 ! A ! " ! " ! , ( + A _" A A ! ! , ( K % ! R ! !
0x0e77dc…0e7970 Dummy {f00=0x0049, f01=0x0190, f02=» 4 @ ,T ! A 2B 4 IH1501 0 INTSAV D , ( B A J P 4 @ ,T B 4B J 4 V , ( @ A . ? J T A T 2P @ , ( P ! H A A ] IH1502 ( , ( 4 !
0x0e7970…0e7b04 Dummy {f00=0x0049, f01=0x0190, f02=» " P 1 P A 4 A P , ( T ! W " P H *B P ! * , ( B X _ _8 ! ! 1 Z DC15ON , ( @ 4 ? "P Y X _ , ( A @ T 8 A , (
0x0e7b04…0e7c98 Dummy {f00=0x0049, f01=0x0190, f02=»` q 4 t x y , ( ) :f"? H ! "? H ! 4 ABC & , ( ) DEFGHI[.<(+!&JKLMNOPQR]$*);^-/ST V DW1500 ) , ( ) UVWXYZ|,%_>?0123456789:#@'=" , ( ) *
0x0e7c98…0e7e2c Dummy {f00=0x0049, f01=0x0190, f02=» k m o s @ H D ! w { D P> H D !] V P P )P( -R^ 9 t CP YP g d H D ! k y*x {P *x *x )z V T W +P 5 H D ! 9*x ;T
0x0e7e2c…0e7fc0 Dummy {f00=0x0049, f01=0x0190, f02=» H D !` WT _ c eW, P W W W W W W W Q R P H D ! m W> W6 ' +*R /T 3*T 7*R AP M Q r WP _ P H D ! ~ c r iP *r P *r P *n *n P W H D ! ) # 8 5*x E*x O X U*p [*p
0x0e7fc0…0e8154 (2, 42) Dummy {f00=0x0049, f01=0x0190, f02=» < *Z *v !T + 3 ?P I Q Y H D ! a g*^ mP sP, w {*T }T( PV T4 RD PB W8 *T P *n < H D !u P 8 *T *r T T *d *R | *f *h *j *X *Z . H D ! '*T - 1T 5) 9*T EP I QT U r WT [ a
0x0e8154…0e82e8 Dummy {f00=0x0049, f01=0x0190, f02=» *l T P P P *P P P l H D ! #*j 3 r 5P ?R. EP KT" {P V W* T P W T P W ( H D ! *V *P * *R *^ *T T *V P *T T *V W` #*R t H D ! '*Z /*l 3*f 7*j C*T ET K QT U*^ WP [ gT, k*^ q*X sP y*Z
0x0e82e8…0e847c Dummy {f00=0x0049, f01=0x0190, f02=» Y*j ]*l a*Z X H D ! g iT8 oP: uPN {PP P P4 *j *j P r *j J P J H D ! *^ T W W *t *u W W W *t *u *t *u ` H D ! ! ' + 1 7 =*f A*j E*l K*j MT* S W*R ] a* cP i H D ! S q) uW *
0x0e847c…0e8610 Dummy {f00=0x0049, f01=0x4166, f02=» ! > I Q W ] c g*R m } P T T H D ! ^ *z *z P T T0 *` T P *V P *z *v # 4 ;T L H D ! & ?*z AP6 CR" KW, OP S*z UP" WW aP kP u | P P *v *b P H D !F T W P P ) P
0x0e8610…0e87a4 Dummy {f00=0x0049, f01=0x0190, f02=» > @ IDENT DRKB04 REL 11.0 81-06-26 870105041100 KBAD4 F KBAD4 V FILLER h DWTDEV z LENDIS , ( T Y LDISP ABORT DWTA3 ECBCW
0x0e87a4…0e8938 Dummy {f00=0x0049, f01=0x0190, f02=» P $$ P V ~ , ( k! X % Y (@ p ) , ( _* X P Y N ECBRL ~ ECBBA , ( v B B % , ( X $ 4 T %(@ X , ( DP
0x0e8938…0e8acc Dummy {f00=0x0049, f01=0x0190, f02=» _ X n * & / @ v Y W X X Y , ( G R p< R <A<a C < , ( e W X X P P P l , ( BP _ Y W Y X , ( @ X P X $P <c $P , ( $
0x0e8acc…0e8c60 Dummy {f00=0x0049, f01=0x0190, f02=» W 9 R "? 9 0 R Q > ! B , ( - W > ! B T ! * , ( I X^ Z ECBEL , ( i C " X $4 P , ( X T 1 pR p Y * & A X
0x0e8c60…0e8df4 (2, 43) Dummy {f00=0x004a, f01=0x0190, f02=» $ ! P % " _L Y 1 * & 4 B % > & , ( % " T > T T , ( = > P _ W * & @ ] X 0 X P Y , ( w 0 %_ % Y (@ n
0x0e8df4…0e8f88 Dummy {f00=0x004a, f01=0x018e, f02=»R DWTSB2 * & I X P L "X $ J H D ! 8 v T 7 AU ERL IP YP cP gV k } P b H D ! n T n P" P W VP Rz !P %P 9W K QRv YR gW H D ! D sP wP }
0x0e8f88…0e911c Dummy {f00=0x004a, f01=0x407e, f02=» H D !" Tt Rr P WL P 0 P< T W W, 0 P 'T 7T EP [W sP P h@ z
0x0e911c…0e92b0 Dummy {f00=0x004a, f01=0x8190, f02=» > @ IDENT SYSPRO REL 11.0 81-02-23 870105041100 F B SCTMSZ SCTSFA SCTEFA SCTIPL SCTANO SCTTCT SCTCDT SCTPAG F F B SCTNOP SCTPSZ SCTSTB SCTOPT SCTBUG SCTDMT SCTDMI SCTFWT F B SCTNOF SCTNFT SCTFWL SCTBLK SCTDCT SCT
0x0e92b0…0e9444 Dummy {f00=0x004a, f01=0x8190, f02=» SWB:EL SWB:NS STKEND STKCOM n F B STKMOV ACBIOE ACBSWB ACBSEG ACBNPE ACBMMP ACBMMC ACBLAP ( & " ACBLAC ACBSTA ACBREL ACBADA r SEG:FC SEG:NS SEG:ST SEG:DS SEG:EL SEG:P
0x0e9444…0e95d8 Dummy {f00=0x004a, f01=0x8190, f02=»WB:EL SWB:NS ACBIOE $ ACBSWB 8 ACBSEG L ACBNPE ` ACBMMP t ACBMMC ACBLAP ACBLAC ACBSTA ACBREL ACBADA IHPFA
0x0e95d8…0e976c Dummy {f00=0x004a, f01=0x8190, f02=» , ( IHPR01 8 , ( ! J IHPL01 z IHPL02 , ( 1 , ( A , ( Q
0x0e976c…0e9900 Dummy {f00=0x004a, f01=0x818e, f02=» HALT SCTMSZ & SCTSFA : SCTEFA N SCTIPL b SCTANO v SCTTCT SCTCDT , ( @ SCTPAG SCTNOP
0x0e9900…0e9a94 (2, 44) Dummy {f00=0x004a, f01=0xc190, f02=» SCTNOF SCTNFT SCTFWL 0 SCTBLK D SCTDCT X SCTNOS l SCTMXS , ( SCTMOX STKEND STKMOV
0x0e9a94…0e9c28 Dummy {f00=0x004a, f01=0x4120, f02=» B @ IDENT DW2501 REL 11.0 DK 82-04-14 870105041100 DW2501 J DW2501 DC25AD p , ( DC , ( ? @ B 4
0x0e9c28…0e9dbc Dummy {f00=0x004a, f01=0x018e, f02=» B @ IDENT DRDC25 REL 11.0 DK 82-04-02 870105041100 . * DC25AD IH2501 IH2502 DC25ON DW2500 J DC25AD | BHBB DWTOR , ( 1 X $P % Y $ X " T @ , ( O T A A
0x0e9dbc…0e9f50 Dummy {f00=0x004a, f01=0x0190, f02=» GETDNA , ( P ] ] V TASCII F , ( ] ] < " P H :H ! X , ( @ D = X B , ( P ] , ( # "P R X ] "
0x0e9f50…0ea0e4 Dummy {f00=0x004a, f01=0x018e, f02=» ! B = ] @ | TDISP , ( { P a A ] ] , , ( B X 2 ECBBA DC:MOT , ( C B P Y GETSNA , ( B B Y
0x0ea0e4…0ea278 Dummy {f00=0x004a, f01=0x018e, f02=» , ( 'B X P Y @ T , ( C X 2 "P T X Y 2 4 , ( c ] "_( T P X U Y d ECBCW1 , ( 2_F B T X 2:D :D , ( :D C X 2 * &
0x0ea278…0ea40c Dummy {f00=0x004a, f01=0x0190, f02=» DWTOPT ECBRL , ( X " P B & , ( - @ X 2 V ECBEL , ( K X *T W P GETSSA , ( k@ C X P " C 0P
0x0ea40c…0ea5a0 Dummy {f00=0x004a, f01=0x0190, f02=» > , L Q , L X "R SETIME , , ( P A ( Y $ W > , ( Y $W X "Z X A ( Y n , ( $_. Y $ @ T A A , ( ; X $P y $ Y $ (P 0 , ( [ )
0x0ea5a0…0ea734 (2, 45) Dummy {f00=0x004a, f01=0x0190, f02=» &_2 &_$ * (P _ ) 1 4 , ( A A A A A W . , ( > . ^ , ( ] ] a 4 , ( 9 ( X A _< ( A , ( U 4 A .
0x0ea734…0ea8c8 Dummy {f00=0x004a, f01=0x0190, f02=» ] " P ] ~ , ( 8 . A A ! ! T , ( A N , ( . ! ! @ T " ! _Z ~ , ( / ! ] P = $ ! x , ( O ! > ! F ! A P
0x0ea8c8…0eaa5c Dummy {f00=0x004a, f01=0x0190, f02=» ! ! n , ( H A @ T ! _ ( T , ( @ $ _ A C B > , ( B A A A A A ! n , ( ! H A _ ! T @ X , ( ? ! P ! # T @ T ! , ( ] _
0x0eaa5c…0eabf0 Dummy {f00=0x004a, f01=0x0190, f02=» P @ P @ 8 ! ! A , ( _: ! X8_` A @ @ T . , ( 1 T P 2P P P @ P X ^ TEBCDI , ( @ 2P A N 8 H * @ P E , ( ;D X R X P T P , ( U@
0x0eabf0…0ead84 Dummy {f00=0x004a, f01=0x0190, f02=» D $W ! X T X , ( ! P ! W ! A @ X 0 , ( 0 A A A ! | @ ` , ( T @ P ! ! | @ T @ , ( X W @ @ @ @ A , ( @ = ! | @ T _> !
0x0ead84…0eaf18 Dummy {f00=0x004a, f01=0x0190, f02=» _2 _6 @ A A , ( @ X ! XD Y _N "P , ( -P L _ 4 A A H * P * & E A A 4 @ P X R X , ( " T X *P < , ( / A A 4 @ @ T
0x0eaf18…0eb0ac Dummy {f00=0x004a, f01=0x0190, f02=»P _F @ n , ( @ E ! P ! 4 _" , ( ! 0_p / A T W ,W @ A > , ( A W W W A A ! n , ( @ ! @ ! ! ! ! , ( - 4 ! ! @ @ A @ , ( M T
0x0eb0ac…0eb240 Dummy {f00=0x004a, f01=0x0190, f02=» @ " ! " :A *@ H T 0 ! , ( W R ! A @ @ U . , ( Zx Q P Q T 0 ! A ^ , ( 0 ! A ! " ! " ! , ( + A _" A A ! ! , ( K % ! R ! !
0x0eb240…0eb3d4 (2, 46) Dummy {f00=0x004a, f01=0x0190, f02=» 4 @ ,T ! A 2B 4 IH2501 0 INTSAV D , ( B A J P 4 @ ,T B 4B J 4 V , ( @ A . ? J"T A T 2P @ , ( P ! H A A ] IH2502 ( , ( 4 !
0x0eb3d4…0eb568 Dummy {f00=0x004a, f01=0x0190, f02=» " P 1 P A 4 A P , ( T ! W " P H *B2P ! * , ( B2X _ _8 ! ! 1 Z DC25ON , ( @ 4 ? "P Y X _ , ( A @ T 8 A , (
0x0eb568…0eb6fc Dummy {f00=0x004a, f01=0x0190, f02=»` q 4 t x y , ( ) :f"? H ! "? H ! 4 ABC & , ( ) DEFGHI[.<(+!&JKLMNOPQR]$*);^-/ST V DW2500 ) , ( ) UVWXYZ|,%_>?0123456789:#@'=" , ( ) *
0x0eb6fc…0eb890 Dummy {f00=0x004a, f01=0x0190, f02=» k m o s @ H D ! w { D P> H D !] V P P )P( -R^ 9 t CP YP g d H D ! k y*x {P *x *x )z V T W +P 5 H D ! 9*x ;T
0x0eb890…0eba24 Dummy {f00=0x004a, f01=0x0190, f02=» H D !` WT _ c eW, P W W W W W W W Q R P H D ! m W> W6 ' +*R /T 3*T 7*R AP M Q r WP _ P H D ! ~ c r iP *r P *r P *n *n P W H D ! ) # 8 5*x E*x O X U*p [*p
0x0eba24…0ebbb8 Dummy {f00=0x004a, f01=0x0190, f02=» < *Z *v !T + 3 ?P I Q Y H D ! a g*^ mP sP, w {*T }T( PV T4 RD PB W8 *T P *n < H D !u P 8 *T *r T T *d *R | *f *h *j *X *Z . H D ! '*T - 1T 5) 9*T EP I QT U r WT [ a
0x0ebbb8…0ebd4c Dummy {f00=0x004a, f01=0x0190, f02=» *l T P P P *P P P l H D ! #*j 3 r 5P ?R. EP KT" {P V W* T P W T P W ( H D ! *V *P * *R *^ *T T *V P *T T *V W` #*R t H D ! '*Z /*l 3*f 7*j C*T ET K QT U*^ WP [ gT, k*^ q*X sP y*Z
0x0ebd4c…0ebee0 Dummy {f00=0x004a, f01=0x0190, f02=» Y*j ]*l a*Z X H D ! g iT8 oP: uPN {PP P P4 *j *j P r *j J P J H D ! *^ T W W *t *u W W W *t *u *t *u ` H D ! ! ' + 1 7 =*f A*j E*l K*j MT* S W*R ] a* cP i H D ! S q) uW *
0x0ebee0…0ec074 (2, 47) Dummy {f00=0x004b, f01=0x4166, f02=» ! > I Q W ] c g*R m } P T T H D ! ^ *z *z P T T0 *` T P *V P *z *v # 4 ;T L H D ! & ?*z AP6 CR" KW, OP S*z UP" WW aP kP u | P P *v *b P H D !F T W P P ) P
0x0ec074…0ec208 Dummy {f00=0x004b, f01=0x0190, f02=» B @ IDENT SYS2DC REL 11.0 DK 82-04-14 870105041100 F B SCTMSZ SCTSFA SCTEFA SCTIPL SCTANO SCTTCT SCTCDT SCTPAG J F B SCTNOP SCTPSZ SCTSTB SCTOPT SCTBUG SCTDMT SCTDMI SCTFWT F B SCTNOF SCTNFT SCTFWL SCTBLK SCTDCT
0x0ec208…0ec39c Dummy {f00=0x004b, f01=0x0190, f02=»:DS SWB:EL SWB:NS STKEND STKCOM r F B STKMOV ACBIOE ACBSWB ACBSEG ACBNPE ACBMMP ACBMMC ACBLAP , & " ACBLAC ACBSTA ACBREL ACBADA v SEG:FC SEG:NS SEG:ST SEG:DS SEG:EL S
0x0ec39c…0ec530 Dummy {f00=0x004b, f01=0x0190, f02=» SWB:EL SWB:NS ACBIOE ( ACBSWB < ACBSEG P ACBNPE d ACBMMP x ACBMMC ACBLAP ACBLAC ACBSTA ACBREL ACBADA I
0x0ec530…0ec6c4 Dummy {f00=0x004b, f01=0x0190, f02=»502 IH2501 IH2502 , ( 0 IHPR01 ` , ( ! r IHPL01 IHPL02 , ( 1 , ( A
0x0ec6c4…0ec858 Dummy {f00=0x004b, f01=0x0190, f02=» HALT & 6 SCTMSZ N SCTSFA b SCTEFA v SCTIPL SCTANO SCTTCT SCTCDT , ( @
0x0ec858…0ec9ec Dummy {f00=0x004b, f01=0x0190, f02=» SCTDMT SCTDMI SCTFWT ( SCTNOF < SCTNFT P SCTFWL d SCTBLK x SCTDCT SCTNOS , ( SCTMXS SCTMOX
0x0ec9ec…0ecb80 Dummy {f00=0x004b, f01=0x4036, f02=» @ 2
0x0ecb80…0ecd14 (2, 48) Dummy {f00=0x004b, f01=0x4070, f02=» , @ IDENT FILLER DK 82-04-14 FILLER 4 FILLER F d Z@ l f PINC SYSLDM x PINC SYSLCR PINC SYSINI PLKE M PKPF /L,PT2MON P$PDISC M=PT2MON PASG /E0,TY10 4 HMES 1 M,
0x0ecd14…0ecea8 Dummy {f00=0x004b, f01=0x40e4, f02=» B @ IDENT P2TAB REL 11.0 DK 82-04-14 870105041100 PFTAB J PFTAB Z DC15ON l DC25ON ~ PLON T @
0x0ecea8…0ed03c Dummy {f00=0x004b, f01=0x4130, f02=» B @ IDENT SCLASS REL 11.0 DK 82-04-14 870105041100 SCLASS J SCLASS DWII01 p DWIO01 DW1501 DW2501 , ( P Q a b `
0x0ed03c…0ed1d0 Dummy {f00=0x004b, f01=0x0190, f02=» > @ IDENT DRPL01 REL 11.1 82-08-19 870105041110 F B PLCHRI PLSTBL PLCHRO PLENBL PLDISP PRCHRI PRSTBL PRCHRO F F B PRENBL PRDISP PLTEST CWTPLC GETDWT PLCLOG TIMACT POLRTL F B POLRTR IHPL01 IHPL02 IHPL03 IHPL04 IHP
0x0ed1d0…0ed364 Dummy {f00=0x004b, f01=0x0190, f02=» , ( ! , * & A INTPL1 , ( a C K * & SO LO
0x0ed364…0ed4f8 Dummy {f00=0x004b, f01=0x0190, f02=» LO $GR 0 , ( @ A " PLCHRI R PRCHRI f , ( z DWTLD1 DWTST NDSAV8 , ( ? X P R >W > Y
0x0ed4f8…0ed68c Dummy {f00=0x004b, f01=0x0190, f02=» 4(@ X x NDREPO DWTCHP * , ( @ T X # P < , ( 9@ X T P X ! T l , ( U" R Y Y X Y , ( m T Q T T W Q ^ DWTOTQ
0x0ed68c…0ed820 Dummy {f00=0x004b, f01=0x0190, f02=» (@ ? X v , ( P T P > T X NDRET F PLENBL V PRENBL j , ( B" T (@ 4 Y > ~ DWTWAT , ( H X P Y X " 2 , ( (@ X
0x0ed820…0ed9b4 (2, 49) Dummy {f00=0x004b, f01=0x0190, f02=» Q U ; U 5 U < P * & U > T T T X , ( $ P W P # P Y N , ( B X " U X ~ DWTLD2 PLTEST IHPL01 IHPL02 IHPL03
0x0ed9b4…0edb48 Dummy {f00=0x004b, f01=0x0190, f02=» IHPR04 INTSAV , ( @ W A T 2 @P P & TDISP V , ( P U " T U f , ( 3 T H U T D&? U " z P , ( Q " T H U , ( o T L
0x0edb48…0edcdc Dummy {f00=0x004b, f01=0x0190, f02=» h , ( "? T K' T R U " U " FREBLK 8 * & Y J * & " " Y x NDREDW , ( # $ T T R T D , ( ? &? P '? L U "
0x0edcdc…0ede70 Dummy {f00=0x004b, f01=0x0190, f02=» T N Q Q U x , ( " X| U " Y X GETBLK H , ( " Y (@ & Z , ( U B U @ @ U 5 Q U , ( ; U < U > X " P T , ( 1 @T X " P Y
0x0ede70…0ee004 Dummy {f00=0x004b, f01=0x0190, f02=» l MEXIT , ( R D X _ * ?(@ U U , ( U U <P "_ L , ( <P "_ T | , ( D ^ h h ! R NDGEDN , ( : r ) ) t
0x0ee004…0ee198 Dummy {f00=0x004b, f01=0x0190, f02=» W d U U U U U 4 , ( u U @ $ T U T 0 , ( U T U 6:A U T T ( ` , ( U B U 4 U @ U > U T , ( T T U U T V U U , ( ! R t
0x0ee198…0ee32c Dummy {f00=0x004b, f01=0x0190, f02=» PLDISP N PRDISP N , ( M (@ T P P ( DWTADR X INTADR j , ( i H R X # X 2 D 4 X | PFPOST , ( T Y U (@ , ( B @ 6 @ T
0x0ee32c…0ee4c0 Dummy {f00=0x004b, f01=0x0190, f02=» T T h | , ( ; r t , , * & 3 @R X Y X Y L , ( M " P # d X z , ( i _R U , ( X ; r - , - ! T t ,
0x0ee4c0…0ee654 (2, 50) Dummy {f00=0x004b, f01=0x0190, f02=» j , ( " X U @ U B X U , ( # > U 4 X T T T T : , ( C U > > > & P - j , ( a X " , ( > > @ 6 @ T , ( T U
0x0ee654…0ee7e8 Dummy {f00=0x004b, f01=0x0190, f02=» > X % =A 8 P , ( T > X :i9eW X :a , ( @9 " > ? P ! X " >W P P , ( 1 @ ! ! Y > X :d" ! , ( M W X :d" ! ! Y > , ( i W Q X "? U 4 X "? Q
0x0ee7e8…0ee97c Dummy {f00=0x004b, f01=0x0190, f02=» r > p , ( ! > > > _ Q Q , ( " Q > ? P > > P P @ , ( ! R Q (" W P P V p , ( A Q % W > T NQ T , ( a R L $ T L $ T " P W , (
0x0ee97c…0eeb10 Dummy {f00=0x004b, f01=0x0190, f02=» P < % > P ? 0 ] > , ( > ? 1 ] > > ? 0 , ( W ? ;a<a Q ` PLCLOG V $ ? ;A<A ) _ ;A<A ) > > H D ! ^ , 8 D P
0x0eeb10…0eeca4 Dummy {f00=0x004b, f01=0x0190, f02=» E IP& QTd UR c X oTH d H D !E wQ } T( W Q, T X T P, 4 T T T2 H D !h P - /T 9 4 AT ]T cP g h kW o l s N T@ T> l H D ! X T" P W P P X W W P PV P + j MP H D !
0x0eeca4…0eee38 Dummy {f00=0x004b, f01=0x0190, f02=» { P H D ! X . X X 2 l %P4 ) +T. / 1T, =P H D ! ^ O Y X c k X qT y R P P R> X H D !L R % EP MW U ` T T 2 Tz X Tr U RL 2 H D ! < / 1T 5 X 9T I X
0x0eee38…0eefcc Dummy {f00=0x004b, f01=0x412a, f02=» y T 2 l P W > P 2 - ;T H D !2 AT [P e s T S T P W -W MW kW P& T T D H D !$ T W Q 'R$ 3W ?V KW ]Q< kT( uT {P W T 4 0 W P W P T P P !W
0x0eefcc…0ef160 Dummy {f00=0x004b, f01=0x0190, f02=» B @ IDENT SYSPRO REL 11.0 DK 82-04-14 870105041100 F B SCTMSZ SCTSFA SCTEFA SCTIPL SCTANO SCTTCT SCTCDT SCTPAG J F B SCTNOP SCTPSZ SCTSTB SCTOPT SCTBUG SCTDMT SCTDMI SCTFWT F B SCTNOF SCTNFT SCTFWL SCTBLK SCTDCT
0x0ef160…0ef2f4 (2, 51) Dummy {f00=0x004c, f01=0x0190, f02=»:DS SWB:EL SWB:NS STKEND STKCOM r F B STKMOV ACBIOE ACBSWB ACBSEG ACBNPE ACBMMP ACBMMC ACBLAP , & " ACBLAC ACBSTA ACBREL ACBADA v SEG:FC SEG:NS SEG:ST SEG:DS SEG:EL S
0x0ef2f4…0ef488 Dummy {f00=0x004c, f01=0x0190, f02=» SWB:EL SWB:NS ACBIOE ( ACBSWB < ACBSEG P ACBNPE d ACBMMP x ACBMMC ACBLAP ACBLAC ACBSTA ACBREL ACBADA I
0x0ef488…0ef61c Dummy {f00=0x004c, f01=0x0190, f02=»502 IH2501 IH2502 , ( 0 IHPR01 ` , ( ! r IHPL01 IHPL02 , ( 1 , ( A
0x0ef61c…0ef7b0 Dummy {f00=0x004c, f01=0x018e, f02=» HALT & 6 SCTMSZ N SCTSFA b SCTEFA v SCTIPL SCTANO SCTTCT SCTCDT , ( @
0x0ef7b0…0ef944 Dummy {f00=0x004c, f01=0x0190, f02=» SCTDMI SCTFWT SCTNOF 0 SCTNFT D SCTFWL X SCTBLK l SCTDCT SCTNOS SCTMXS , ( SCTMOX STKEN
0x0ef944…0efad8 Dummy {f00=0x004c, f01=0x4028, f02=» @ $
0x0efad8…0efc6c Dummy {f00=0x004c, f01=0x2008, f02=» , L = FIX1 DATE = 820616 6876PACK NBR = 0001 !
0x0efc6c…0efe00 Dummy {f00=0x004c, f01=0x0000, f02=»
[…0x8…]
0x0f0aa0…0f0c34 (2, 53) Dummy {f00=0x004c, f01=0x0190, f02=»
[…0x5…]
0x0f1418…0f15ac Dummy {f00=0x004c, f01=0x0190, f02=»6789:#@'=" . {fE 5 ; 5 5 5 5 5 5 5 5
0x0f15ac…0f1740 Dummy {f00=0x004c, f01=0x0190, f02=»GR 0
0x0f1740…0f18d4 (2, 54) Opaque[0x194]
0x0f18d4…0f1a68 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a28, f03=0x0000}
0x0f18d4…0f1a68 IdxSect {
0x0f18d4…0f1a68 f00 = 0x0051 // 0xf18d4 @0x0
0x0f18d4…0f1a68 f01 = 0x0002 // 0xf18d6 @0x2
0x0f18d4…0f1a68 gno = [ // 0xf18d8 @0x4
0x0f18d4…0f1a68 [0x00]: C0x0051.0x1.0
0x0f18d4…0f1a68 ]
0x0f18d4…0f1a68 }
0x0f1a68…0f1bfc Dummy {f00=0x0051, f01=0x0190, f02=» 4 P IDENT SCLASS REL 11.0 DK 82-04-14 870105041100 P < P* D P* N P ENTRY SCLASS X P* n P* x P EXTRN DWII01 P EXTRN DWIO01 P EXTRN DW1501 P EXTRN DW2501 P* P*
0x0f1bfc…0f1d90 Dummy {f00=0x0051, f01=0x4172, f02=» DATA TC00E-* P DATA /0050 P DATA DWII01 > P DATA /0051 ^ P DATA DWIO01 ~ P DATA /0061 P DATA DW1501 P DATA /0062 P DATA DW2501 P
0x0f1d90…0f1f24 Dummy {f00=0x0051, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x0f1f24…0f20b8 Dummy {f00=0x0051, f01=0x0190, f02=» H D ! v 7 ( QP _P0 c p qP ( p S W p @ ( P 3 ( E J _V4 H D ! gR, wU { T Pf V T P T V R W J aV gP P H D ! k J j j H D ! V V P&
0x0f20b8…0f224c Dummy {f00=0x0051, f01=0x0190, f02=» P G 2 P T R T eP H D ! P P P@ T T " " " P& %P +P 1P 7P < H D ! =P CP EW IW O SP UW [ gT sR yU R Q T H D ! 0 TV T Q0 R* P P 9 A
0x0f224c…0f23e0 Dummy {f00=0x0051, f01=0x416a, f02=» W YP ] a mTd qW l H D ! T T( P W W J V S PN TD T> Tp P P( ( H D !) 'T MTr i yTF S W V W, Q( T W& T R P t H D ! ) N T #R )U =T K J YV eP wP {W T P T
0x0f23e0…0f2574 (2, 55) Opaque[0x194]
0x0f2574…0f2708 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a30, f03=0x0000}
0x0f2574…0f2708 IdxSect {
0x0f2574…0f2708 f00 = 0x0051 // 0xf2574 @0x0
0x0f2574…0f2708 f01 = 0x0002 // 0xf2576 @0x2
0x0f2574…0f2708 gno = [ // 0xf2578 @0x4
0x0f2574…0f2708 [0x00]: C0x0051.0x2.0
0x0f2574…0f2708 ]
0x0f2574…0f2708 }
0x0f2708…0f289c Dummy {f00=0x0051, f01=0x018e, f02=» 2 P IDENT MONTAB REL 11.0 81-05-27 870105041100 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
0x0f289c…0f2a30 Dummy {f00=0x0051, f01=0x0190, f02=» P EXTRN CTAB01 P EXTRN CTAB02 P EXTRN ITAD 0 P D P L P T P P d P l P EXTRN KBAD4 t P EXTRN TPAD P EXTRN GPAD P EXTRN DNAD P EXTRN DIAD P EXTRN DYAD P EXTRN MSAD P EXTRN O
0x0f2a30…0f2bc4 Dummy {f00=0x0051, f01=0x018e, f02=»XTRN TPAD4 P P P " P * P**** 2 P DATA CTAB01 > P DATA CTAB02 T P DATA ITAD j P ~ P P P PMONTAB EQU * PFREQUE DATA 0 PPAGQUE DATA 0,0 P P P P P P
0x0f2bc4…0f2d58 Dummy {f00=0x0051, f01=0x40a6, f02=» P P P P P ( P 0 P DATA KBAD4 8 P DATA DIAD L P DATA DYAD ^ P DATA GPAD8 p P* P P END @ QU * PFREQUE DATA 0 PPAGQUE DATA 0,0 P P P P P P
0x0f2d58…0f2eec Dummy {f00=0x0051, 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
0x0f2eec…0f3080 Dummy {f00=0x0051, f01=0x0190, f02=»O FREE FWT AVAILABLE D P LDKL A4,/8400 RETURN CODE E P RF ER:RTN E > P* E P POP:040 EQU * FILE ATTACHED E Z P LDK A4,/40 RETURN CODE E | P* E PER:RTN EQU * E & P ORS A4,RETCOD PREPARE RETURN CODE E P ABL FMEXIT RETURN E P* E P
0x0f3080…0f3214 (2, 56) Opaque[0x194]
0x0f3214…0f33a8 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a38, f03=0x0000}
0x0f3214…0f33a8 IdxSect {
0x0f3214…0f33a8 f00 = 0x0051 // 0xf3214 @0x0
0x0f3214…0f33a8 f01 = 0x0008 // 0xf3216 @0x2
0x0f3214…0f33a8 gno = [ // 0xf3218 @0x4
0x0f3214…0f33a8 [0x00]: C0x0051.0x3.0
0x0f3214…0f33a8 [0x01]: C0x0052.0x0.0
0x0f3214…0f33a8 [0x02]: C0x0052.0x1.0
0x0f3214…0f33a8 [0x03]: C0x0052.0x2.0
0x0f3214…0f33a8 ]
0x0f3214…0f33a8 }
0x0f33a8…0f353c Dummy {f00=0x0051, f01=0x0190, f02=» 0 P IDENT TDISP REL 11.0 81-01-26 870105041100 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TDISP = TOSS DISPATCHER P* 6 P****************
0x0f353c…0f36d0 Dummy {f00=0x0051, 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.
0x0f36d0…0f3864 Dummy {f00=0x0051, 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
0x0f3864…0f39f8 Dummy {f00=0x0051, 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
0x0f39f8…0f3b8c Dummy {f00=0x0051, 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
0x0f3b8c…0f3d20 Dummy {f00=0x0051, f01=0x0190, f02=» P************* P* P* ( P EXTRN ACTOT ACTIVATE TASK 2 P EXTRN TTB:AP ACB ADDRESS T P EXTRN TTB:SA SAVE AREA v P EXTRN TTB:ST STATUS & P EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:MT MMUTAB & P EXTRN TTB:CB CU
0x0f3d20…0f3eb4 (2, 57) Dummy {f00=0x0052, f01=0x0190, f02=» ADDRESS ~ . P EXTRN PAG:QB PAGE QUEUE BACKWARD POINTER P EXTRN TENDIO END I/O B P EXTRN EXIT PROGRAM EXIT ` 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN ACBLAP LOGICAL ADDRESS OF C
0x0f3eb4…0f4048 Dummy {f00=0x0052, f01=0x0190, f02=» . P***************************************** P* : P* CONDITIONAL ASSEMBLY D P* b . P***************************************** l P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P
0x0f4048…0f41dc Dummy {f00=0x0052, f01=0x0190, f02=» CPU852 EQU 0. t P* PCPU852 EQU 0 P* 4 P* > . P* A PROGRAM VERSION USING TOSS DISC PAGING H * P* IS OBTAINED BY SETTING DSKPAG EQU 1. z P* PDSKPAG EQU 0 P* P* @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOV
0x0f41dc…0f4370 Dummy {f00=0x0052, f01=0x0190, f02=» 1. ` P* PDIFPRI EQU 0 P* * P EJECT TDISP 4 P* J P* D I S Q U E T P* l 2 P* POINTER TO FIRST TASK IN DISPATCHER QUEUE v P* PDISQUE DATA 0 P* P* P R U N P* $ P* TTAB ADDRESS OF
0x0f4370…0f4504 Dummy {f00=0x0052, f01=0x0190, f02=»EGISTERS FROM STACK AND RETURN P* & PRETUR8 EQU * 0 P D P IFT CPU852=0 L P MLR 8,A15 b P XIF t P P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR*
0x0f4504…0f4698 Dummy {f00=0x0052, f01=0x0190, f02=»M E X I T, M E X I T, T E X I T P* ( 2 P* DO EXIT ON (MONITOR) TASK AND GO TO TDISP 2 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 C
0x0f4698…0f482c Dummy {f00=0x0052, f01=0x018e, f02=» PACTDIS CF A15,ACTOT P RF TDISP P EJECT TDISP 2 P H P* P P* D I S I O E Z 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*
0x0f482c…0f49c0 Dummy {f00=0x0052, f01=0x0190, f02=» & P* PAUSE TASK (I. E. GO TO TDISP) P* . PTPAUSE EQU * 8 P EJECT TDISP L P* b P* T D I S P l P* $ P* THIS IS THE DISPATCHER ENTRY P* PTDISP INH & P LC A1,18,A15 LOAD PSW FROM STACK P ANK A1,/FC
0x0f49c0…0f4b54 (2, 58) Dummy {f00=0x0052, f01=0x0190, f02=»DKL A2,DISQUE P LDR* A3,A2 P RB(Z) RETUR8 QUEUE EMPTY * P L P LD A5,PRUN T $ P RF(Z) TDCQ10 IDLE LOOP RUNNING h & P LD A4,TTB:ST+1,A5 COMPARE RUNNING 4 P CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIORITIES * P RB(NG) RETUR8 RUNNING
0x0f4b54…0f4ce8 Dummy {f00=0x0052, f01=0x0190, f02=»D A1,TTB:SB,A3 GET SEGMENT BLOCK ADDR P RF(Z) TDISSW NONE . P LDR* A7,A1 H 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*
0x0f4ce8…0f4e7c Dummy {f00=0x0052, f01=0x0190, f02=»IDLE LOOP P . P ADK A6,0 QUEUE OLD TASK FIRST ON PRIORITY P RF(Z) TDSW20 EMPTY QUEUE L 0 PTDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES n 0 P RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND P LDR A2,A6 P LDR* A6,A2 , P RB(NZ) TDSW
0x0f4e7c…0f5010 Dummy {f00=0x0052, f01=0x0190, f02=» l P LDR A14,A5 P P IFT CPU852=0 $ P MLR 8,A15 : P MS 13,TTB:SA+2,A14 L P MLR 2,A15 h P z P XIF P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P
0x0f5010…0f51a4 Dummy {f00=0x0052, f01=0x0190, f02=»2,A14 P ST A10,TTB:SA+20,A14 P ST A9,TTB:SA+18,A14 , P ST A8,TTB:SA+16,A14 H 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
0x0f51a4…0f5338 Dummy {f00=0x0052, f01=0x0190, f02=»W,A14 AND PSW IN TTAB P IFT DSKPAG+DIFPRI=2 P : * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR B P RF(Z) TDISST NONE p P LDR* A2,A1 GET SEGM STATUS P LDKL A3,/1000 , P TM A2,A3 CHECK IF SEGM USED BY INT TASK P RF(NZ) TDISST YES
0x0f5338…0f54cc Dummy {f00=0x0052, f01=0x018e, f02=» P EJECT TDISP P* P* START NEW TASK $ P* < PTDISST LD A14,PRUN F 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
0x0f54cc…0f5660 Dummy {f00=0x0052, f01=0x0190, f02=» ( P LDR* A2,A4 CHECK IF PAGE IN PAGQUE P RF(NZ) TDST10 YES 4 " P LDR* A3,A1 NO GET SEGM STATUS N 2 P ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK t P RF(Z) TDST20 NO 4 P CW A14,PAG:QB,A4 YES CHECK IF IT WAS THIS TASK P RF(NE) TDST20
0x0f5660…0f57f4 (2, 59) Dummy {f00=0x0052, f01=0x0190, f02=»A3,PAG:QB,A4 TAKE PAGE OUT OF QUEUE P STR A2,A3 , P ST A3,PAG:QB,A2 > P CMR A4 V P f , PTDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS n P P IFT MMUPAG=1 P " P ECR A2,A1 CALC PHYS PAGE ADDR P ANK A2,/FC * P LDR A3,A1
0x0f57f4…0f5988 Dummy {f00=0x0052, f01=0x018e, f02=»RIES j P 2 PTDST22 SCR A2,A3 UPDATE MMU TABLE JUST IN CASE P SUK A4,1 J P RF(Z) TDST25 P ADK A2,4 r P ADK A3,2 P RB TDST22 P PTDST25 EQU * " P TL TTB:MT,A14 LOAD MMU TABLE 2 P SLL A1,2 UPDATE BASE IN T:A A
0x0f5988…0f5b1c Dummy {f00=0x0052, f01=0x0190, f02=» P XIF P P IFT DSKPAG-MMUPAG=1 2 P ST* A1,TTB:CB,A14 UPDATE CURRENT SEGMENT BASE 8 P XIF n P z PTDST30 EQU * P IFT MMUPAG=1 " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST35 LD A1,TTB:SA,A14 GET NEW PC
0x0f5b1c…0f5cb0 Dummy {f00=0x0052, f01=0x0190, f02=»AD REGISTERS z P P XIF P IFT CPU852=1 ( P > P STR A1,A15 PUT PC F P STR A2,A15 AND PSW ON STACK ` & P LD A1,TTB:SA+2,A14 LOAD REGISTERS P LD A2,TTB:SA+4,A14 P LD A3,TTB:SA+6,A14 P LD A4,TTB:SA+8,A14 P LD A5
0x0f5cb0…0f5e44 Dummy {f00=0x0052, f01=0x40e8, f02=»D A10,TTB:SA+20,A14 P LD A11,TTB:SA+22,A14 P LD A12,TTB:SA+24,A14 : P LD A13,TTB:SA+26,A14 X P LD A14,TTB:SA+28,A14 v P P XIF P P RTN A15 START THE TASK P P END @ D A4,TTB:SA+8,A14 P LD A5
0x0f5e44…0f5fd8 Dummy {f00=0x0052, 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
0x0f5fd8…0f616c Dummy {f00=0x0052, f01=0x0190, f02=» EQU * + P CF A5,FD:REA PERFORM READ , P* , 0 P IFT TOSS+IBM=2 , : P LD A1,DWTFIB,A6 , R P RF(Z) FD:090 NOT IBM , j P XIF , P* , P IFT IBM=1 , P IFT MMUPAG=0 , ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS , P XIF , P* , P
0x0f616c…0f6300 Dummy {f00=0x0052, f01=0x0190, f02=»* , P* - P IFT MMUPAG=1 - P IFT CHAN=0 - * P IFT TOSS+IBM=2 - > P LD A1,DWTFIB,A6 - V P RF(Z) FD:100 TOSS DISC - n P XIF - P* - P IFT MMUPAG=1 - P IFF CHAN+IBM=0 - 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS - (
0x0f6300…0f6494 (2, 60) Opaque[0x194]
0x0f6494…0f6628 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a58, f03=0x0000}
0x0f6494…0f6628 IdxSect {
0x0f6494…0f6628 f00 = 0x0052 // 0xf6494 @0x0
0x0f6494…0f6628 f01 = 0x000c // 0xf6496 @0x2
0x0f6494…0f6628 gno = [ // 0xf6498 @0x4
0x0f6494…0f6628 [0x00]: C0x0052.0x3.0
0x0f6494…0f6628 [0x01]: C0x0053.0x0.0
0x0f6494…0f6628 [0x02]: C0x0053.0x1.0
0x0f6494…0f6628 [0x03]: C0x0053.0x2.0
0x0f6494…0f6628 [0x04]: C0x0053.0x3.0
0x0f6494…0f6628 [0x05]: C0x0054.0x0.0
0x0f6494…0f6628 ]
0x0f6494…0f6628 }
0x0f6628…0f67bc Dummy {f00=0x0052, f01=0x018e, f02=» 2 P IDENT LRPINT REL 11.0 81-01-26 870105041100 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC " P*
0x0f67bc…0f6950 Dummy {f00=0x0052, f01=0x018e, 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*
0x0f6950…0f6ae4 Dummy {f00=0x0052, f01=0x0190, f02=» H P* -LKMSRC: SET A7 TO RETURN CODE (C(A2)), QUEUE TASK AND DISPATCH P* T ( P* -LKMQDI: QUEUE TASK AND DISPATCH ^ P* P EJECT LRPINT P* P* P*********** P* ENTRIES * P*********** P* P*
0x0f6ae4…0f6c78 Dummy {f00=0x0052, f01=0x0190, f02=»R r 4 P ENTRY LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR * P ENTRY LKMQDI QUEUE TASK AND DISPATCH B 0 P ENTRY LKMSRC SET RETURN CODE IN A7 TO USER p & P ENTRY IHRTC RTC INTERRUPT HANDLER 8 P ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE
0x0f6c78…0f6e0c Dummy {f00=0x0052, f01=0x018e, f02=»NTRY PFPOST PWF POST PROCESSING FLAG P EJECT LRPINT , P* D P* N P************* X P* EXTERNALS * n P************* P* P* P EXTRN TDISP DISPATCHER " P EXTRN DISQUE DISPATCHER QUEUE $ P EXTRN PRUN TTAB OF
0x0f6e0c…0f6fa0 Dummy {f00=0x0052, f01=0x0190, f02=» $ P EXTRN QMJOB QUEUE MONITOR TASK $ P EXTRN SWL48 SWITCH TO LEVEL 48 , $ P EXTRN SWLXY SWITCH TO LEVEL XY T P EXTRN FREBLK SET BLOCK FREE | " P EXTRN SAVE8 SAVE 8 REGISTERS $ P EXTRN PFINIT RESTART OF DEVICES P EXTRN HALT HALT MODULE
0x0f6fa0…0f7134 (2, 61) Dummy {f00=0x0053, f01=0x0190, f02=»RN TTB:SB SEGMENT BLOCK POINTER & P EXTRN TTB:PW PROGRAM STATUS WORD ( 2 P EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB R " P EXTRN LKMAL LKM REQUEST TABLE P EJECT LRPINT P* P* . P*****************************************
0x0f7134…0f72c8 Dummy {f00=0x0053, f01=0x0190, f02=»ING TOSS MMU PAGING z * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* J PMMUPAG EQU 1 T P* h P* r 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION | . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P*
0x0f72c8…0f745c Dummy {f00=0x0053, f01=0x018e, f02=» P* P* 8 P* A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS * P* IS OBTAINED BY SETTING MONCLK EQU 0. X P* PX:A EQU 1 PMONCLK EQU 1 P* P EJECT LRPINT P* P* 2 P* A PROGRAM VERSION SUPPORTI
0x0f745c…0f75f0 Dummy {f00=0x0053, f01=0x0190, f02=» P* 4 P* A PROGRAM VERSION WITH MONITOR CLOCK FUNCTIONS 4 P* ADAPTED TO 60 HERTZ NET FREQUENCY (USA/CANADA) F , P* IS OBTAINED BY SETTING NETFRQ EQU 60. ~ 2 P* NOTICE THAT THE DEFAULT VALUE SHOULD BE 50. P* PNETFRQ EQU 50 P*
0x0f75f0…0f7784 Dummy {f00=0x0053, f01=0x0190, f02=»OLLOWING d P* STEPS ARE CARRIED OUT: P* 2 * P* - IF STACK OVERFLOW SYSTEM HALTS. < P* j D P* - ELSE REGISTERS A1 - A14 ARE SAVED IN TTAB FOR RUNNING TASK t P* : P* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO $ P*
0x0f7784…0f7918 Dummy {f00=0x0053, f01=0x0190, f02=» (A4 = 0 INDICATES NO LABEL IN LKM REQUEST) * P* A5 = TTAB ADDRESS OF CALLING TASK : P* A6 = LKM DATA DIRECTIVE h P* A2, A3 ARE DESTROYED P* > P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING TASK P* P*
0x0f7918…0f7aac Dummy {f00=0x0053, f01=0x0190, f02=» P* P* P ST A15,LKM010 SAVE A15 " P LD A15,PRUN LOAD TTAB ADDRESS < P* b P IFT CPU852=1 l 4 P ADKL A15,TTB:SA+28 SET A15 TO LAST IN SAVE AREA * P STR A14,A15 SAVE USER REGISTERS, -A14 P STR A13,A15 -A13 P STR A
0x0f7aac…0f7c40 Dummy {f00=0x0053, f01=0x018e, f02=» P STR A6,A15 -A6 P STR A5,A15 -A5 P STR A4,A15 -A4 8 P STR A3,A15 -A3 P P STR A2,A15 -A2 h P STR A1,A15 -A1 P XIF P* P IFT CPU852=0 6 P MS 14,TTB:SA+2,A15 SAVE A1-A14 IN TTAB SAVE AREA P XIF
0x0f7c40…0f7dd4 (2, 62) Dummy {f00=0x0053, f01=0x018e, f02=» P EJECT LRPINT P* " P* GET LKM REQUEST PARAMETERS & P* L P LDR* A3,A15 V 4 P LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER j & P ST A3,TTB:PW,A5 STORE PSW IN TTAB P* P IFT MMUPAG=0 " P LD A3,-2,A2 INSTRUCTION COD
0x0f7dd4…0f7f68 Dummy {f00=0x0053, f01=0x0190, f02=» * P TL MONMMU NO, LOAD MONITOR MMU TABLE P* 2 PLKM015 EQU * < " P EL A3,-2,A2 INSTRUCTION CODE P P ELR A6,A2 DATA DIRECTIVE v P XIF P* P CWK A3,/2804 P RF(E) LKM025 LKM P CWK A3,/6300 P RF(E) LKM025 TRAP
0x0f7f68…0f80fc Dummy {f00=0x0053, f01=0x018e, f02=»ERFLOW j P* P EJECT LRPINT P* 0 P* : PLKM025 EQU * D & P ADK A2,2 UPDATE DISPATCH ADDRESS X P* P IFF MMUPAG+DSKPAG=0 " P CWK A6,9 CHECK DATA DIRECTIVE ( P ABL(E) TLDSEG LOAD SEGMENT REQUEST P XIF P*
0x0f80fc…0f8290 Dummy {f00=0x0053, f01=0x0190, f02=» t , P ANK A4,/5E CHECK IF CORE RESIDENT OR... 2 P RF(NZ) LKM030 ...USED BY AN INTERRUPTED TASK 8 P CF A15,RELPAG RELEASE PAGE n P XIF P* P EJECT LRPINT P* P* PLKM030 EQU * ( P CM PRUN INDICATE IDLE LOOP RUNN
0x0f8290…0f8424 Dummy {f00=0x0053, f01=0x018e, f02=»* P* LKM REQUEST WITH LABEL P* , P IFT MMUPAG=0 6 P LDR* A4,A2 LABEL L P XIF f P* r P IFT MMUPAG=1 | P ELR A4,A2 LABEL P XIF P* & P ADK A2,2 ADJUST DISPATCH ADDRESS , P NGR A3,A3 MAKE DATA DIRECTIVE
0x0f8424…0f85b8 Dummy {f00=0x0053, f01=0x0190, f02=» . P ST A2,TTB:SA,A5 SET NEXT DISPATCH ADDRESS P ADR A3,A3 INDEX IN LKMAL : & P RF(Z) LKMQDI TASK SWITCH REQUEST P CW A3,LKMAL * P RF(NL) LKMRQE INVALID DATA DIRECTIVE P INH P LD A3,LKMAL,A3 ( P ABR(NZ) A3 BRANCH TO LKM PR
0x0f85b8…0f874c Dummy {f00=0x0053, f01=0x0190, f02=»ATE REQUESTED LKM PROC. NOT PRESENT z P* , PLKM070 EQU * 6 P CF A15,HALT HALT SYSTEM J P* j P* t P* L K M R Q E ~ P* . P* SET A7 = -1, QUEUE TASK AND DISPATCH. P* P* A5 = TTAB ADDRESS P* P*
0x0f874c…0f88e0 Dummy {f00=0x0053, f01=0x0190, f02=»ATCH. l P* P* A2 = RETURN CODE P* A5 = TTAB ADDRESS 4 P* R P* PLKMSRC EQU * f 8 P ST A2,TTB:SA+14,A5 SET RETURN CODE IN SAVE AREA A7 z P EJECT P* P* P* L K M Q D I P* P* QUEUE TASK
0x0f88e0…0f8a74 (2, 63) Dummy {f00=0x0053, f01=0x0190, f02=»DISP EQU * COMMON EXIT TO DISPATCHER P ABL TDISP GO TO DISPATCHER , P* P P EJECT LRPINT Z P r P* z P* I H P F A R P* > P* THIS IS THE POWER FAIL/AUTO RESTART INTERRUPT HANDLER. P* P P P "
0x0f8a74…0f8c08 Dummy {f00=0x0053, f01=0x0190, f02=»AV DATA 0 P DATA /00C0 P DATA PFTASK & P : P B P J P R P Z & PPFX DATA 1 POWER ON/OFF INDICATOR b $ P P=POWER IS ON, N=POWER IS OFF P & PINIFLG DATA 1 INITIALIZATION FLAG P NZ=INITIALIZATION P *
0x0f8c08…0f8d9c Dummy {f00=0x0053, f01=0x0190, f02=»IL/AUTO RESTART INTERRUPT P* " P , PIHPFAR EQU * 4 $ P ST P,INTSAV SAVE LAST INTERRUPT J & P RIT /17 RESET INTERNAL INTERRUPT r & P C1S PFX INDICATE POWER ON OR OFF P RF(P) POWON POWER ON P* P* POWER OFF P*
0x0f8d9c…0f8f30 Dummy {f00=0x0053, f01=0x0190, f02=»12,A15 P STR A13,A15 P STR A14,A15 " P XIF 6 P B P IFT CPU852=0 J $ P MSR 14,A15 SAVE A1-A14 ON STACK ` P XIF P , P ST A15,A15SAV SAVE A15 FOR BETTER TIMES P HLT P EJECT LRPINT P P* P* PO
0x0f8f30…0f90c4 Dummy {f00=0x0053, f01=0x0190, f02=» LDR* A13,A15 P LDR* A12,A15 P LDR* A11,A15 , P LDR* A10,A15 B P LDR* A9,A15 X P XIF l P x P IFT CPU852=0 P MLR 14,A15 RESTORE A9-A14 P MSR 8,A15 P XIF P 4 P LD A1,DISQUE QUEUE PFTASK FIRST FOR DISPA
0x0f90c4…0f9258 Dummy {f00=0x0053, f01=0x0190, f02=»,DISQUE , P IM PFPOST INDICATE PWF POST PROCESSING P RB T:DISP @ P EJECT LRPINT R P j P* r P* POWER FAIL TASK | . P* STARTED AFTER ALL PWF POST PROCESSING P* P . PPFTASK CM PFPOST CLEAR PWF POST PROC FLAG
0x0f9258…0f93ec Dummy {f00=0x0053, f01=0x0190, f02=»RPINT P* P* I H R T C P* . 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. 8 6 P* THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS. r P* * PIHRTC ST P,INTSAV SAVE LAST INTERRUPT " P RIT /1B RESET INTERRUPT FLAG
0x0f93ec…0f9580 Dummy {f00=0x0053, f01=0x0190, f02=»SAVE8 SAVE A1-A8 ON STACK P XIF " P* . P IFT CPU852=0 8 " P MSR 8,A15 SAVE A1-A8 ON STACK N P XIF t P* P EJECT LRPINT P* P* P IFT NETFRQ=50 " P LDKL A4,-4 SET 100 MS SWITCH P ST A4,COUNT P X
0x0f9580…0f9714 (2, 64) Dummy {f00=0x0053, f01=0x0190, f02=» AS MJOB n P CF A15,QMJOB P* & P IFT MONCLK=1 0 P IM SECOND F & P RF(P) RTC025 UPDATE MONITOR CLOCK X P XIF P* PSWDISP EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP P* P EJECT LRPINT P
0x0f9714…0f98a8 Dummy {f00=0x0053, f01=0x0190, f02=» * " P LDKL A4,-9 SET SECOND SWITCH P ST A4,SECOND 0 P LDK A4,4 F P* X 2 PMCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS b P* ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS $ P RB(NE)
0x0f98a8…0f9a3c Dummy {f00=0x0053, f01=0x018e, f02=»VE A NEW DAY j P RB(P) MCLO10 UPDATE MINUTES P LDK A3,24 UPDATE HOURS 8 P RB MCLO20 X P* j PMCLO30 EQU * t ( P IM MCARRY INCREMENT MIDNIGHT CARRY P* P EJECT LRPINT P* P* P IFT MONDAT=1 P*
0x0f9a3c…0f9bd0 Dummy {f00=0x0053, f01=0x0190, f02=» P LDK A3,1 ! P XIF ! P* ! " P IFT MONCLK+MONDAT=2 ! , P IFT CPU852=0 ! H P MLK 3 ! ^ 8 P DATA MONTH,DAY,1 MONTH AND DAY ADDRESS TO A1 AND A2 ! l P XIF ! P* ! P IFT MONCLK+MONDAT=2 ! P IMR A2 INCREMENT DAY ! P LDR* A4,A1 MONT
0x0f9bd0…0f9d64 Dummy {f00=0x0053, f01=0x0190, f02=»Y ! f " P SUK A5,2 CHECK IF DAY WAS 30 " P RF(Z) MCLO60 YES " 0 " P SUK A5,1 CHECK IF DAY WAS 31 " J P RB(NZ) SWDISP NO, RETURN " p ( P RF MCLO50 YES, WE HAVE A NEW MONTH " P* " PMCLO40 EQU * " P SUK A6,2 CHECK IF FEBRUARY " P RB(NZ)
0x0f9d64…0f9ef8 Dummy {f00=0x0053, f01=0x0190, f02=»50 EQU * " P STR A3,A2 SET DAY := 1 # P IMR A1 INCREMENT MONTH # 0 * P SUK A4,12 CHECK IF MONTH WAS DECEMBER # P P RB(NZ) SWDISP NO, RETURN # ~ $ P STR A3,A1 SET MONTH TO JANUARY # P IM YEAR HAPPY NEW YEAR!!! # P RB SWDISP RETURN # P* #
0x0f9ef8…0fa08c Dummy {f00=0x0053, f01=0x0190, f02=»EMBER OR NOVEMBER # ~ * P RB SWDISP JANUARY, MARCH, MAY OR JULY $ P* $ H PMCLO70 EQU * $ R P SUK A7,7 $ f P RB(N) MCLO50 APRIL OR JUNE $ x P XIF $ P* $ P IFT MONCLK=1 $ P RB SWDISP RETURN $ P XIF $ P* $ P EJECT LRPINT
0x0fa08c…0fa220 Dummy {f00=0x0053, f01=0x0190, f02=»ATE) $ l PYEAR DATA 0 % PMONTH DATA 0 % PDAY DATA 0 % 4 P XIF % F P* % R PMONCLO EQU * % P IFT MONCLK=1 % p , PMCARRY DATA 0 ACKUMULATED 24 HOUR CARRY % P DATA 0 HOUR % P DATA 0 MINUTE % P DATA 0 SECOND % PSECOND DATA 0 SECO
0x0fa220…0fa3b4 (2, 65) Dummy {f00=0x0054, f01=0x018e, f02=»INH % , P LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS & P* & < PCLK10 LDR A6,A4 & F P* & ^ PCLK20 LDR* A4,A6 TIMER BLOCK & h P ABL(Z) MEXIT END OF QUEUE & P IM 4,A4 INCREMENT TIMER & P RB(N) CLK10 NOT TIME OUT & P RF(Z) CLK30 TIME OUT &
0x0fa3b4…0fa548 Dummy {f00=0x0054, f01=0x0190, f02=» P* ' P EJECT LRPINT ' P* ' & P* ' 0 , PCLK30 CF A15,CLK40 CALL TIME OUT ROUTINE ' : $ P CF A15,SWL48 SWITCH TO LEVEL 48 ' j P INH ' P RB CLK10 ' P* ' PCLK40 EQU * ' P IFT CPU852=1 ' & P CF A15,SAVE8 SAVE A1-A8 ON STACK '
0x0fa548…0fa6dc Dummy {f00=0x0054, f01=0x0190, f02=»D ENABLE ' v & P ST A1,18,A15 SET NEW PSW ON STACK ( P LD A2,2,A4 LOAD DISP BLOCK ( : P LD A1,4,A2 PARAMETER ( ^ $ P ABI 2,A2 GO TO TIME OUT ROUTINE ( | P* ( P* ( PCOUNT DATA 0 100 MS SWITCH ( P* ( P* ( P* T I M Q U E ( P*
0x0fa6dc…0fa870 Dummy {f00=0x0054, f01=0x4018, f02=» ( P END ) @ ) 8,A15 SET NEW PSW ON STACK ( P LD A2,2,A4 LOAD DISP BLOCK ( : P LD A1,4,A2 PARAMETER ( ^ $ P ABI 2,A2 GO TO TIME OUT ROUTINE ( | P* ( P* ( PCOUNT DATA 0 100 MS SWITCH ( P* ( P* ( P* T I M Q U E ( P*
0x0fa870…0faa04 Dummy {f00=0x0054, 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
0x0faa04…0fab98 Dummy {f00=0x0054, f01=0x0190, f02=» * 4 P* * . ( P* WORK REGISTERS: A1,A2,A3,A4,A7 f 4 P* * 4 P* SUBROUTINES: ERROR * 4 P*
0x0fab98…0fad2c Dummy {f00=0x0054, f01=0x0190, f02=» " P* READ DISC SECTOR VERSION A2 P* * PRDSEC2 EQU * 4 P LDK A2,0 H * P LDR A1,A11 GET LOGICAL SECTOR NUMBER Z PDIV200 EQU * P ADR A2,A1 P SRL A1,5 ( P RB(NZ) DIV200 MORE IN SERIE TO ADD P LDR A1,A2 P ANKL A1,/
0x0fad2c…0faec0 Dummy {f00=0x0054, f01=0x018e, f02=» A2,1 PDIV210 EQU * . P LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 " P RF(Z) DIV220 CYLINDER 0 T P ADK A2,1 t PDIV220 EQU * 4 P ADR A2,A11 A2:=PHYS. SEC NBR BEFORE INTERLACING P* P LDR A1,A2 P SRL A1,5 P CW A1,C
0x0faec0…0fb054 (2, 66) Opaque[0x194]
0x0fb054…0fb1e8 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a88, f03=0x0000}
0x0fb054…0fb1e8 IdxSect {
0x0fb054…0fb1e8 f00 = 0x0054 // 0xfb054 @0x0
0x0fb054…0fb1e8 f01 = 0x0006 // 0xfb056 @0x2
0x0fb054…0fb1e8 gno = [ // 0xfb058 @0x4
0x0fb054…0fb1e8 [0x00]: C0x0054.0x1.0
0x0fb054…0fb1e8 [0x01]: C0x0054.0x2.0
0x0fb054…0fb1e8 [0x02]: C0x0054.0x3.0
0x0fb054…0fb1e8 ]
0x0fb054…0fb1e8 }
0x0fb1e8…0fb37c Dummy {f00=0x0054, f01=0x0190, f02=» 0 P IDENT TPROC REL 11.0 81-03-05 870105041100 P 8 0 P =1, A4 PARAM. NOT TRANSM. WHEN LKM ACTIV. @ P =1, REL 11.0 81-01-26 t P* P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM
0x0fb37c…0fb510 Dummy {f00=0x0054, f01=0x018e, f02=»************************************ P* , P* 6 * P* THIS MODULE CONTAINS THE FOLLOWING @ P* TOSS LKM PROCESSORS: n P* P* - TWAIT = WAIT P* P* - TMWAIT = MULTIPLE WAIT P* ( P* - TACTOT = ACTIVATE/REST
0x0fb510…0fb6a4 Dummy {f00=0x0054, f01=0x0190, f02=» P* P ENTRY TWAIT WAIT PROCESSOR * P ENTRY TMWAIT MULTIPLE WAIT PROCESSOR 2 , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR ` P EJECT TPROC P* P* P************* P* EXTERNALS * P************* P* P*
0x0fb6a4…0fb838 Dummy {f00=0x0054, f01=0x0190, f02=»XTRN ACTDIS ACTIVATE TASK AND DISPATCH $ P EXTRN LKMRQE LKM REQUEST ERROR . 2 P EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE V 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXTRN TTB:SA TTAB SAVE AREA P EXTRN DWTST DWT STATUS P EXT
0x0fb838…0fb9cc Dummy {f00=0x0054, f01=0x0190, f02=»*********************** ~ P* P* CONDITIONAL ASSEMBLY * P* H . P***************************************** R P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1
0x0fb9cc…0fbb60 Dummy {f00=0x0054, f01=0x0190, f02=»THE WAIT LKM PROCESSOR. P* , P* THIS MODULE IS ENTERED WHEN THE TASK * 6 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. Z P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 =
0x0fbb60…0fbcf4 (2, 67) Dummy {f00=0x0054, f01=0x0190, f02=» & P RF(Z) TP:RQE FILE CODE NOT FOUND P* . P IFT MMUPAG=0 8 * P LDR* A1,A8 RETURN IF EVENT COMPLETED N P XIF | P* P IFT MMUPAG=1 ( P ELR A1,A8 RETURN IF EVENT COMPLETED P XIF P* ( P RF(N) TP:QDI I/O ALREADY COMP
0x0fbcf4…0fbe88 Dummy {f00=0x0054, f01=0x0190, f02=» TPROC P* P* P********** " P* TACTOT * 4 P********** F P* X P* b 8 P* THIS IS THE ACTIVATE/RESTART TASK LKM PROCESSOR. l P* 4 P* THIS MODULE IS ENTERED FROM THE LKM HANDLER ( P* WHEN A TASK HAS TO BE ACTI
0x0fbe88…0fc01c Dummy {f00=0x0054, f01=0x0190, f02=» = START ADDRESS AT ACTIVATION, ELSE ZERO P* A5 = TTAB 2 4 P* A7 = IDENTIFICATION FOR TASK TO BE ACTIVATED H P* P* PTACTOT EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR $ P RF(Z) TP:RQE TASK NOT IN SYSTEM
0x0fc01c…0fc1b0 Dummy {f00=0x0054, f01=0x0190, f02=»METER =1 v P LDR A5,A2 P LDR A2,A4 " 0 P RF(Z) TP:QDI RESTART: QUEUE FOR DISPATCHING 4 P LDR A4,A7 A4 PARAMETER =1 h * P ABL ACTDIS ACTIVATE TASK AND DISPATCH P* P EJECT TPROC P* P* P********** P* TMWAIT *
0x0fc1b0…0fc344 Dummy {f00=0x0054, f01=0x0190, f02=»KM HANDLER t & P* WITH THE FOLLOWING PARAMETERS: P* < P* A5 = TTAB ADDRESS F P* A7 = ECBBLK ADDRESS d P* 6 P* WHEN ONE OF THE SPECIFIED EVENTS IS COMPLETED, 6 P* RETURN IS MADE TO THE CALLING TASK VIA TENDIO & P* WI
0x0fc344…0fc4d8 Dummy {f00=0x0054, f01=0x0190, f02=»AND NO RETURN VIA TENDIO). p P* " ( P* NOTICE THAT ALL EVENTS MUST HAVE , ( P* BEEN ISSUED IN THE NO WAIT MODE. X P* P* P EJECT TPROC P* P* $ PTMWAIT EQU * MULTIPLE WAIT ENTRY P LDK A3,0 P* P I
0x0fc4d8…0fc66c Dummy {f00=0x0054, f01=0x0190, f02=» IN ECBBLK v P XIF P* ( P RF(NP) TP:RQE REQUEST ERROR IF <= 0 ( P* T PTMW:10 EQU * ^ 2 P ADK A7,2 POINT TO NEXT ECB ADDRESS IN ECBBLK r P* P IFT MMUPAG=0 P LDR* A8,A7 GET ECB ADDRESS & P LDR* A2,A8 GET FIRST WORD O
0x0fc66c…0fc800 Dummy {f00=0x0054, f01=0x0190, f02=» P* ( P RF(N) TMW:30 I/O ALREADY COMPLETED 8 P CF A15,FNDDWT NO, SEARCH DWT ADDRESS FROM FILE CODE > P ADK A6,0 SET CR z P RF(Z) TP:RQE NOT FOUND P* P EJECT TPROC P* P* " P LD A2,DWTST,A6 GET DWT STATUS
0x0fc800…0fc994 (2, 68) Dummy {f00=0x0054, f01=0x0190, f02=»T/ACTIVATE INDICATOR x , P RF(NZ) TP:RQE REQUEST ISSUED WITH WAIT P ORK A6,1 SET BIT 15 L 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR h . P RF(NZ) TMW:20 NOT THE FIRST ECB IN ECBBLK & P LDR A9,A6 SAVE FIRST DWT ADDRESS P LDR A3,A6
0x0fc994…0fcb28 Dummy {f00=0x0054, f01=0x0190, f02=»UK A1,1 & P RB(P) TMW:10 MORE ECB:S IN ECBBLK : P ST A3,DWTWAT,A9 NO, SET FIRST DWT ADDRESS IN THE LAST : P RB T:DISP GO TO DISPATCHER x P* PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG I
0x0fcb28…0fccbc Dummy {f00=0x0054, f01=0x4184, f02=»OR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S 2 P CMR A3 SET TO NO WAIT AGAIN V P LDR A3,A2 z P RB TMW:40 P* P EJECT TPROC P* P* PTP:RQE EQU * " P ABL LKMRQE LKM REQUEST ERROR
0x0fccbc…0fce50 Dummy {f00=0x0054, 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
0x0fce50…0fcfe4 Dummy {f00=0x0054, f01=0x0190, f02=» RESTORE NO OF EXTENTS i P RB MSX20 j P* j 0 PMSX99 EQU * j : P RTN A14 j N P EJECT j ^ 4 P*********************************************** j l P* j P* GETMON j P* ====== j P* j & P* SEARCH FOR MONIT
0x0fcfe4…0fd178 Dummy {f00=0x0054, f01=0x0190, f02=»************** j n P* k P* k PGETMON EQU * k * ( P LD A1,SCTANO GET APPLICATION NUMBER k > P ST A1,MONNO+STKEND SAVE k j 2 P CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC k 0 P LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER k 2 P SLL A1,8 FORM MONIT
0x0fd178…0fd30c Dummy {f00=0x0054, f01=0x0190, f02=»GTMON2 EQU * k 0 P LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7) l ( P CW A1,8,A4 IS IT THE RIGHT MONITOR? l H P RF(E) GTMON4 YES! l t P* l 8 P CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC l P RB GTMON2 l P* l PGTMON4 EQU * l $ P LD
0x0fd30c…0fd4a0 Dummy {f00=0x0054, f01=0x0190, f02=»,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) l " P ST A2,4,A1 AND SAVE IN MXSTAB m 4 P RTN A14 RETURN m Z P EJECT m r PGETNBR EQU * m $ P CF A14,GETVLB READ VOLUME LABEL m PGTNBR0 EQU * m P CF A14,RDSEC READ SECTOR m ( P LDK A7,QBLFAC VTOC BL
0x0fd4a0…0fd634 (2, 69) Opaque[0x194]
0x0fd634…0fd7c8 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0aa0, f03=0x0000}
0x0fd634…0fd7c8 IdxSect {
0x0fd634…0fd7c8 f00 = 0x0055 // 0xfd634 @0x0
0x0fd634…0fd7c8 f01 = 0x000e // 0xfd636 @0x2
0x0fd634…0fd7c8 gno = [ // 0xfd638 @0x4
0x0fd634…0fd7c8 [0x00]: C0x0055.0x0.0
0x0fd634…0fd7c8 [0x01]: C0x0055.0x1.0
0x0fd634…0fd7c8 [0x02]: C0x0055.0x2.0
0x0fd634…0fd7c8 [0x03]: C0x0055.0x3.0
0x0fd634…0fd7c8 [0x04]: C0x0056.0x0.0
0x0fd634…0fd7c8 [0x05]: C0x0056.0x1.0
0x0fd634…0fd7c8 [0x06]: C0x0056.0x2.0
0x0fd634…0fd7c8 ]
0x0fd634…0fd7c8 }
0x0fd7c8…0fd95c Dummy {f00=0x0055, f01=0x0190, f02=» 0 P IDENT MSUBS REL 11.0 81-01-26 870105041100 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS = MONITOR SUBROUTINES P* P* P*
0x0fd95c…0fdaf0 Dummy {f00=0x0055, 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 TASK FOR DISPATCHING . P* -ACTOT ACTIVATE TASK ON FIFO BASIS . P*
0x0fdaf0…0fdc84 Dummy {f00=0x0055, f01=0x0190, f02=» SET A MONITOR BLOCK FREE 4 P* -FNDDWT FIND DWT ADDRESS IN TTAB OR CDTAB " , P* -FNDDWD FIND DWT ADDRESS IN CDTAB Z * P* -FNDTID FIND TASK IDENTIFICATION P* -PFINIT RESTART DEVICE $ P* -SWL48 SWITCH TO LEVEL 48 $ P*
0x0fdc84…0fde18 Dummy {f00=0x0055, f01=0x0190, f02=»* P* P*********** P* ENTRIES * ( P*********** < P* P P* Z " P ENTRY SAVE8 SAVE 8 REGISTERS d P ENTRY QTJOB QUEUE TASK $ P ENTRY QMJOB QUEUE MONITOR TASK & P ENTRY ACTOT ACTIVATE TASK (FIFO) & P ENTRY ACTOT
0x0fde18…0fdfac Dummy {f00=0x0055, f01=0x0190, f02=»NDDWT FIND DWT IN TTAB OR CDTAB $ P ENTRY FNDDWD FIND DWT IN CDTAB ( , P ENTRY FNDTID FIND TASK INDENTIFICATION P P ENTRY PFINIT RESTART DEVICE $ P ENTRY SWL48 SWITCH TO LEVEL 48 $ P ENTRY SWLXY SWITCH TO LEVEL XY , P ENTRY ILLINT ILLEGA
0x0fdfac…0fe140 Dummy {f00=0x0055, f01=0x0190, f02=» * P ENTRY RELPA2 RELEASE PAGE (2ND ENTRY) " P ENTRY IHRET8 RESTORE FROM A8 2 P ENTRY IHRET2 A2 X " P ENTRY IHRET1 A1 p 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS P EJECT MSUBS P* P* P*************
0x0fe140…0fe2d4 (2, 70) Dummy {f00=0x0055, f01=0x0190, f02=» FREQUE POINTER TO FIRST FREE MONITOR BLOCK P EXTRN TTABLD LOAD TASK TTAB 4 ( P EXTRN PQEMTY PAGE QUEUE EMPTY FLAG X " P EXTRN PAGQUE FREE PAGE QUEUE $ P EXTRN SEG:PB PAGE BLOCK ADDRESS & P EXTRN PAG:QB QUEUE LINK BACKWARD 4 P EXTRN LKMER
0x0fe2d4…0fe468 Dummy {f00=0x0055, f01=0x0190, f02=» TTB:ST TASK STATUS AND PRIORITY LEVEL & P EXTRN TTB:ID TASK IDENTIFICATION . P EXTRN TTB:SA SAVE AREA X * P EXTRN TTB:PP POINTER TO PENDING QUEUE x $ P EXTRN TTB:TD TASK DEVICE TABLE $ P EXTRN SCTTCT TASK CONTROL TABLE & P EXTRN SCTCDT COMM
0x0fe468…0fe5fc Dummy {f00=0x0055, f01=0x0190, f02=»************************* P* " P* CONDITIONAL ASSEMBLY , P* J . P***************************************** T P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1
0x0fe5fc…0fe790 Dummy {f00=0x0055, f01=0x0190, f02=» PCPU852 EQU 0 P* P* & . P* A PROGRAM VERSION USING TOSS DISC PAGING 0 * P* IS OBTAINED BY SETTING DSKPAG EQU 1. b P* PDSKPAG EQU 0 P* P* " PSOP EQU /2E SOP DEVICE ADDRESS P* P EJECT MSUBS P
0x0fe790…0fe924 Dummy {f00=0x0055, f01=0x0190, f02=» p P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS 0 P STR A3,A15 P P STR A4,A15 d P STR A5,A15 x P STR A6,A15 P STR A7,A15 P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) , P ST A3,SAVE81 AN
0x0fe924…0feab8 Dummy {f00=0x0055, f01=0x018e, f02=»H BACK t PSAVE81 EQU *-2 P* $ P EJECT MSUBS . P* D P* N P* Q T J O B X P* n 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. x P* P* ENTRY PARAMETER: P* 0 P* A5 = TTAB ADDRESS OF TASK TO BE QUEUED
0x0feab8…0fec4c Dummy {f00=0x0055, f01=0x018e, f02=» X P* PUT LAST IN QUEUE. P* & P* 0 PQTJOB EQU * : P INH N P* Z P IFT CPU852=1 d $ P STR A1,A15 SAVE A1-A3 ON STACK z P STR A2,A15 P STR A3,A15 P XIF P* P IFT CPU852=0 " P MSR 3,A15 SAVE A1
0x0fec4c…0fede0 Dummy {f00=0x0055, f01=0x0190, f02=» d P RF(Z) QTJ020 DISQUE EMPTY & P LD A3,TTB:ST+1,A5 PRIORITY LEVEL * P* T P EJECT MSUBS ^ P* t P* ~ 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL P RF(L) QTJ020 INSERT P LDR A1,A2 SAVE ADDRESS * P LDR* A2,A
0x0fede0…0fef74 (2, 71) Dummy {f00=0x0055, f01=0x0190, f02=»5,A1 P* P IFT CPU852=1 P ABL IHRET3 , P XIF @ P* L P IFT CPU852=0 V * P MLR 3,A15 RESTORE A1-A3 FROM STACK... l P RTN A15 ...AND RETURN P XIF P* P EJECT MSUBS P* P* P* Q M J O B
0x0fef74…0ff108 Dummy {f00=0x0055, f01=0x0190, f02=» ~ P* A2 = DISPATCH ADDRESS P* A3 = PARAMETER * P* A4 = PARAMETER D P* ^ > P* A5 IS SET TO TTAB ADDRESS OF MONITOR TASK '#M' AND THE h B P* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE TASK. P* P* PQMJO
0x0ff108…0ff29c Dummy {f00=0x0055, f01=0x0190, f02=» MSR 8,A15 SAVE A1-A8 ON STACK P XIF & P* 2 P LDKL A5,TTMJOB TTAB ADDRESS < P RF ACT01 ` P* r P EJECT MSUBS | P* P* P* A C T O T , A C T O T P P* & P* SUBROUTINE TO ACTIVATE A TASK. P* P
0x0ff29c…0ff430 Dummy {f00=0x0055, f01=0x0190, f02=» A4 = PARAMETER 2 P* A5 = TTAB ADDRESS P* 8 6 P* - IF REQUESTED TASK IS NOT ACTIVE THE TASK IS B : P* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. | < P* - IF TASK IS ACTIVE, THE REQUEST IS PUT IN A PENDING P* QUEUE.
0x0ff430…0ff5c4 Dummy {f00=0x0055, f01=0x0190, f02=» R P* P* PACTOTP EQU * P IFT CPU852=1 0 & P CF A15,SAVE8 SAVE A1-A8 ON STACK F P XIF p P* | P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P LDK A6,1 INDICATE LIFO P RF
0x0ff5c4…0ff758 Dummy {f00=0x0055, f01=0x018e, f02=»STACK t P XIF P* P IFT CPU852=0 $ P INH : " P MSR 8,A15 SAVE A1-A8 ON STACK F P XIF l P* x PACT01 LDK A6,0 INDICATE FIFO P* PACT03 EQU * , P LD A7,TTB:SA,A5 (OLD) DISPATCH ADDRESS $ P RF(NZ) ACT020 IS PR
0x0ff758…0ff8ec Dummy {f00=0x0055, f01=0x0190, f02=» p & P ST A3,TTB:SA+6,A5 SEGMENT NUMBER " P ST A4,TTB:SA+8,A5 PARAMETER 2 2 P LD A4,TTB:ID,A5 SET TASK ID X * P ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA | P XIF P* P IFT CPU852=0 P LD A2,TTB:ID,A5 TASK ID 6 P MS 4,TTB:SA+2,A5
0x0ff8ec…0ffa80 Dummy {f00=0x0055, f01=0x0190, f02=»TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT P XIF 6 P* B P CF A15,QTJOB QUEUE THE TASK L P* p PACT010 EQU * z P IFT CPU852=1 ( P RF IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 * P MLR 8,A15 R
0x0ffa80…0ffc14 (2, 72) Dummy {f00=0x0055, f01=0x0190, f02=» PENDING QUEUE ~ P* & PACT020 LDR A7,A4 SAVE PARAMETER 2 $ P CF A15,GETBLK GET A FREE BLOCK J P LDR A1,A7 PARAMETER 2 r P LDR A2,A4 P CF A15,GETBLK P ADKL A5,TTB:PP P* " PACT030 LDR A3,A5 SAVE ADDRESS ( P LDR* A5
0x0ffc14…0ffda8 Dummy {f00=0x0055, f01=0x0190, f02=»T030 NOT END OF QUEUE P* PACT040 EQU * ( " P STR A4,A3 SET BLOCK IN QUEUE < P STR A5,A4 b P RB ACT010 t P* P EJECT MSUBS P* P* P* E X I T P* 6 P* SUBROUTINE TO SET A TASK FREE AND QUEUE FIRS
0x0ffda8…0fff3c Dummy {f00=0x0055, f01=0x0190, f02=» A7 ARE DESTROYED P* P* $ PEXIT EQU * . ( P CM TTB:SA,A5 RESET DISPATCH ADDRESS @ , P LD A4,TTB:PP,A5 PENDING REQUEST POINTER l $ P RF(Z) IHRTN NO PENDING REQUEST P LDR* A3,A4 QUEUE THREAD 0 P ST A3,TTB:PP,A5 AND SAVE IN PENDING
0x0fff3c…1000d0 Dummy {f00=0x0055, f01=0x018e, f02=»EBLK P LDR A4,A7 PARAMETER 2 P RB ACTOT ACTIVATE TASK * P* J P EJECT MSUBS T P* j P* t P* G E T B L K ~ P* 4 P* SUBROUTINE TO GET A FREE BLOCK FROM MONITOR 8 P* BLOCK POOL. REGISTERS A3-A1 ARE STORED IN FO
0x1000d0…100264 Dummy {f00=0x0055, f01=0x0190, f02=» P* PGETBLK EQU * P INH " P STR A5,A15 SAVE A5 . , P LD A4,FREQUE FIRST BLOCK IN FREE QUEUE J P RF(NZ) GBL010 z P LDK A1,/B HALT PARAMETER , P CF A15,HALT HALT IF NO MORE FREE BLOCKS P* PGBL010 LDR* A5,A4 . P S
0x100264…1003f8 Dummy {f00=0x0055, f01=0x0190, f02=»,A15 RESTORE A5 P* P IFT CPU852=1 " P RF IHRTN 8 P XIF J P* V P IFT CPU852=0 ` P RTN A15 v P XIF P* P EJECT MSUBS P* P* P* F R E B L K P* : P* SUBROUTINE TO GET PARAMETERS
0x1003f8…10058c Dummy {f00=0x0055, f01=0x0190, f02=» z P* P* EXIT PARAMETERS: P* . & P* A3 = FIRST PARAMETER IN BLOCK 8 $ P* A2 = SECOND " " b $ P* A1 = THIRD " " P* P* PFREBLK EQU * P INH P LDR* A3,A4 UPDATE A3 P LD
0x10058c…100720 Dummy {f00=0x0055, f01=0x0190, f02=» P RF IHRTN P XIF P* & P IFT CPU852=0 0 P RTN A15 F P XIF V P* b P EJECT MSUBS l P* P* P* F N D D W T P* 2 P* SUBROUTINE TO FIND A DWT IN TTAB OR CDTAB. P* P* ENTRY PARAME
0x100720…1008b4 (2, 73) Dummy {f00=0x0056, f01=0x0190, f02=» = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* B P* L P* F N D D W D V P* n * P* SUBROUTINE TO FIND A DWT IN CDTAB. x P* P* ENTRY PARAMETERS: P* P* A2 = FILE CODE P* $ P* EXIT PAR
0x1008b4…100a48 Dummy {f00=0x0056, f01=0x0190, f02=»D FILE CODE FROM ECB P XIF P* ( P IFT MMUPAG=0 2 ( P LDR* A2,A8 LOAD FILE CODE FROM ECB H P XIF t P* P STR A1,A15 SAVE A1 P LDKL A6,TTB:TD+2 , P ADR A6,A5 ADDRESS TO TASK DEVICE TABLE P LD A1,-2,A6 TABLE LENGT
0x100a48…100bdc Dummy {f00=0x0056, f01=0x018e, f02=» FND200 FILE CODE FOUND ( P ADK A6,4 ADDRESS TO NEXT FILE CODE P RB FND100 TRY NEXT L P* h P EJECT MSUBS r P* $ P* SEARCH IN COMMON DEVICE TABLE P* PFNDDWD EQU * P STR A1,A15 SAVE A1 P* & PFND110 LD
0x100bdc…100d70 Dummy {f00=0x0056, f01=0x018e, f02=» & P RF(N) FND130 FILE CODE NOT FOUND ! P CC A2,1,A6 ! . " P RF(E) FND200 FILE CODE FOUND ! B ( P ADK A6,4 ADDRESS TO NEXT FILE CODE ! h & P RB FND120 TRY NEXT ENTRY IN CDTAB ! P* ! PFND130 LDK A6,0 ! P RF IHRET1 ! P* ! PFND200 EQU *
0x100d70…100f04 Dummy {f00=0x0056, f01=0x0190, f02=» P* " P* F N D T I D " P* " & B P* SUBROUTINE TO FIND TTAB ADDRESS FROM TASK IDENTIFICATION. " 0 P* " v P* ENTRY PARAMETER: " P* " P* A7 = TASK IDENTIFICATION " P* " P* EXIT PARAMETER: " P* " P* A2 = TTAB
0x100f04…101098 Dummy {f00=0x0056, f01=0x0190, f02=» TCTAB LENGTH " P AD A1,SCTTCT # P* # , PFTI010 SUK A1,2 # 6 P CW A1,SCTTCT # N $ P RF(E) FTI030 ALL TTABS EXAMINED # d P LDR* A2,A1 TTAB ADDRESS # , P CW A7,TTB:ID,A2 COMPARE IDENTIFICATIONS # P RB(NE) FTI010 NO MATCH # P RF IHRET1
0x101098…10122c Dummy {f00=0x0056, f01=0x0190, f02=» RESTORE REGISTERS AND RETURN WITHOUT # P* ENABLE INTERRUPTS. $ . P* $ L P* $ V P IFT CPU852=1 $ ` PIHRET8 LDR* A8,A15 $ v P LDR* A7,A15 $ P LDR* A6,A15 $ P LDR* A5,A15 $ P LDR* A4,A15 $ P* $ PIHRET3 LDR* A3,A15 $ P* $
0x10122c…1013c0 Dummy {f00=0x0056, f01=0x0190, f02=» ABR* A15 AND RETURN $ P XIF % P* % ( P IFT CPU852=0 % 2 0 PIHRET8 MLR 8,A15 RESTORE A1-A8 FROM STACK... % H P RTN A15 ...AND RETURN % | P* % 0 PIHRET2 MLR 2,A15 RESTORE A1-A2 FROM STACK... % P RTN A15 ...AND RETURN % P* % 0 PIHRET1 L
0x1013c0…101554 (2, 74) Dummy {f00=0x0056, f01=0x0190, f02=» % P* & P* P F I N I T & P* & * & P* SUBROUTINE TO RESTART DEVICES. & 4 P* & ^ @ P* ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALLED. & h @ P* REGISTERS A1-A8 ARE AVAILABLE FOR THE RESTART ROUTINES. & P* & P* & PPFIN
0x101554…1016e8 Dummy {f00=0x0056, f01=0x0190, f02=»ED & v P STR A1,A15 SAVE A1 ' P INH ' & * P CFI A15,PFTAB,A1 CALL RESTART MODULE ' 2 P LDR* A1,A15 RESTORE A1 ' ` P ADK A1,2 NEXT DEVICE ' P RB PFI100 ' P* ' * PPFI110 RTN A15 RETURN WHEN ALL STARTED ' P* ' P EJECT MSUBS ' P
0x1016e8…10187c Dummy {f00=0x0056, f01=0x018e, f02=»TR A1,A15 SAVE A1 ' P* ( PSWL481 EQU * ( $ $ P LDKL A1,/C0C0 PSW FOR LEVEL 48 ( 8 P* ( ` PSWL482 EQU * ( j & P ST A1,4,A15 SAVE IT ON A15 STACK ( ~ P LDR* A1,A15 RESTORE A1 ( P RTN A15 ( P* ( P EJECT MSUBS ( P* ( P* (
0x10187c…101a10 Dummy {f00=0x0056, f01=0x0190, f02=» 0 P* LEVEL := XY " " " " " XY < 48 ) P* ) 8 > P* THIS MODULE IS TO BE CALLED WITH 8 REGISTERS ON STACK. ) B P* ) P* ) PSWLXY EQU * ) P STR A1,A15 SAVE A1 ) " P LC A1,24,A15 LEVEL FROM STACK ) P ANK A1,/FC ) P SUK A
0x101a10…101ba4 Dummy {f00=0x0056, f01=0x0190, f02=»BS ) P* * P* * & P* INTERRUPT SAVE AND HALT MODULE * P* * H P* * R PINTSAV DATA 0 * PSAVA15 DATA 0 * r P* * " PILLINT LDK A1,5 HALT PARAMETER * P CF A15,HALT * P* * PHALT EQU * * P IFT CPU852=1 * & P CF A15,SA
0x101ba4…101d38 Dummy {f00=0x0056, f01=0x0190, f02=» A13,A15 * P STR A14,A15 + P XIF + $ P* + 0 P IFT CPU852=0 + : $ P MSR 14,A15 SAVE A1-A14 ON STACK + P P XIF + x P* + P ST A15,SAVA15 + ( P OTR A1,0,SOP INDICATE TYPE OF HALT + P HLT + P* + P EJECT MSUBS + P* + P*
0x101d38…101ecc Dummy {f00=0x0056, f01=0x0190, f02=»: + | P* , 6 P* A3 = SEGBLK ADDRESS (PAGBLK ADDRESS IF RELPA2) , " P* A5 = TTAB ADDRESS (RELPA2) , N P* , t P* EXIT PARAMETER: , ~ P* , P* A4 IS DESTROYED , P* , P* , P IFT DSKPAG=1 , PRELPA2 EQU * , 6 P CM TTB:SB
0x101ecc…102060 Dummy {f00=0x0056, f01=0x018e, f02=» PAGE BLOCK ADDRESS , P* - PREL:10 EQU * - & " P LDKL A4,PAGQUE PAGQUE ADDRESS - : P ST A4,PAG:QB,A3 - ` 0 P LDR* A4,A4 ADDRESS OF FIRST BLOCK IN PAGQUE - x " P STR A4,A3 UPDATE QUEUE LINKS - P ST A3,PAGQUE - P ST A3,PAG:QB,A4 - 4 P LD A4,P
0x102060…1021f4 (2, 75) Dummy {f00=0x0056, f01=0x018e, f02=» - x P* . , P CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY . P LDR A4,A5 SAVE A5 . B ( P LDKL A5,TTABLD LDTASK TTAB ADDRESS . $ P CF A15,QTJOB RESTART LOAD TASK . P LDR A5,A4 RESTORE A5 . P* . PREL:20 EQU * . P IFT CPU852=1 . P RB IH
0x1021f4…102388 Dummy {f00=0x0056, f01=0x40b2, f02=» 2 PRELPAG EQU * DUMMY ENTRIES TO AVOID ASS. ERR. / PRELPA2 EQU * / : & P ABL LKMERR INDICATE SYSGEN ERROR / N P XIF / x P* / P* / P* / P END / @ / DR A5,A4 RESTORE A5 . P* . PREL:20 EQU * . P IFT CPU852=1 . P RB IH
0x102388…10251c Dummy {f00=0x0056, f01=0x2008, f02=» 0 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. "
0x10251c…1026b0 Dummy {f00=0x0056, f01=0x018e, f02=» ** 2 P** WORK REGISTERS: A2 ** 4 2 P** ** j 2 P** SUBROUTINES: MOVING ** 2 P** **
0x1026b0…102844 Dummy {f00=0x0056, f01=0x0190, f02=» ` P RF(Z) CALL:10 NO! & P LD A2,PDDIVL,A10 YES! GET LENGTH " P SUR A2,A3 L " P RF(NN) CALL:20 ENOUGH SPACE? ^ P IFT MMUPAG=0 , P LD A2,SCTEFA+2 N0! GET END OF FREE AREA , P ST A2,LSTADR+STKCOM UPDATE LAST ADDRESS P XIF P I
0x102844…1029d8 Dummy {f00=0x0056, f01=0x018e, f02=»G+STKCOM UPDATE PHYSICAL PAGE NUMBER P XIF , P CM PDDIV+STKEND RESET FLAG 8 PCALL:20 EQU * $ P ST A2,PDDIVL,A10 UPDATE PDDIVL r PCALL:10 EQU * P CALL MOVING P RTN A14 P EJECT P 4 P** G E T W B
0x1029d8…102b6c Dummy {f00=0x0056, f01=0x0190, f02=» ^ 4 P** GET WORK BLOCK ADDRESS AND DISPLACE- ** 4 P** MENT IN T:A ** @ 4 P** ** x 4 P** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** 4 P** BIT=BIT NUMBER SAT I
0x102b6c…102d00 Dummy {f00=0x0056, f01=0x0190, f02=»** A11=W.B.-ADDRESS ** 4 P** WBADD=POINTER TO W.B.-ADD IN T:A ** 8 4 P*********************************************** p P PGETWB EQU * $ P LD A4,BIT+STKEND GET BIT NUMBER $ P SLL A4,2 ADJUST FOR ADD
0x102d00…102e94 (2, 76) Opaque[0x194]
0x102e94…103028 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ad8, f03=0x0000}
0x102e94…103028 IdxSect {
0x102e94…103028 f00 = 0x0056 // 0x102e94 @0x0
0x102e94…103028 f01 = 0x0004 // 0x102e96 @0x2
0x102e94…103028 gno = [ // 0x102e98 @0x4
0x102e94…103028 [0x00]: C0x0056.0x3.0
0x102e94…103028 [0x01]: C0x0057.0x0.0
0x102e94…103028 ]
0x102e94…103028 }
0x103028…1031bc Dummy {f00=0x0056, f01=0x0190, f02=» 2 P IDENT TTMJOB REL 11.0 81-01-26 870105041100 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
0x1031bc…103350 Dummy {f00=0x0056, f01=0x0190, f02=»S n P ENTRY TTB:AP ACB ADDRESS P ENTRY TTMJOB TABLE ENTRY , ( P ENTRY TTB:QL DISPATCHER QUEUE LINK N & P ENTRY TTB:ID TASK IDENTIFICATION z P ENTRY TTB:ST TASK STATUS " P ENTRY TTB:PP PENDING POINTER & P ENTRY TTB:PW PROGRAM STATUS
0x103350…1034e4 Dummy {f00=0x0056, f01=0x018e, f02=»* . P***************************************** P* < P* CONDITIONAL ASSEMBLY F P* d . P***************************************** n P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1.
0x1034e4…103678 Dummy {f00=0x0056, f01=0x0190, f02=» l P* * PTTB:MT EQU -40 MMU TABLE DISPLACEMENT P IFT MMUPAG=1 @ " P DATA /0000,/0400,/0800,/0C00 V " P DATA /1000,/1400,/1800,/1C00 | " P DATA /2000,/2400,/2800,/2C00 " P DATA /3000,/3400,/3800,/3C00 P XIF P* & PTTB:
0x103678…10380c Dummy {f00=0x0056, f01=0x0190, f02=»* 4 PTTB:SB EQU -4 SEGMENT BLOCK ADDRESS DISPLACEMENT P DATA 0 B P* R : PTTB:AP EQU -2 APPLICATION CONTROL BLOCK ADDRESS DISPL. P DATA 0 P* P EJECT TTMJOB P* P* PTTMJOB EQU * TTMJOB ENTRY . PTTB:QL
0x10380c…1039a0 Dummy {f00=0x0056, f01=0x0190, f02=»* $ PTTB:ST EQU *-TTMJOB TASK STATUS P DATA 49 2 P* B ( PTTB:PP EQU *-TTMJOB PENDING POINTER L P DATA 0 x P* PTTB:PW EQU *-TTMJOB 4 P DATA /C4C0 PROGRAM STATUS WORD FOR MONITOR JOB P* P EJECT TTMJOB P
0x1039a0…103b34 (2, 77) Dummy {f00=0x0057, f01=0x4090, f02=»R A1-A14 j P DATA 0,0,0,0,0,0,0 P* , ( PTTB:TD EQU *-TTMJOB TERMINAL DEVICES 6 P* b P* l P* v P END @
0x103b34…103cc8 Dummy {f00=0x0057, 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,
0x103cc8…103e5c Dummy {f00=0x0057, f01=0x0190, f02=»************************* P* " P* CONDITIONAL ASSEMBLY , P* J . P***************************************** T P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0
0x103e5c…103ff0 Dummy {f00=0x0057, f01=0x0190, f02=» PCPU852 EQU 1 P* * & . ** A PROGRAM VERSION USING TOSS DISC PAGING 0 * &* IS OBTAINED BY SETTING DSKPAG EQU 1. b * PDSKPAG EQU 0 * P* " PSOP EQU /2E SOP DEVICE ADDRESS P* P EJECT MSUBS P
0x103ff0…104184 Dummy {f00=0x0057, f01=0x0190, f02=» p P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS 0 P STR A3,A15 P P STR A4,A15 d P STR A5,A15 x P STR A6,A15 P STR A7,A15 P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) , P ST A3,SAVE81 AN
0x104184…104318 Dummy {f00=0x0057, f01=0x018e, f02=»H BACK t PSAVE81 EQU *-2 P* $ P EJECT MSUBS . P* D P* N P* Q T J O B X P* n 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. x P* P* ENTRY PARAMETER: P* 0 P* A5 = TTAB ADDRESS OF TASK TO BE QUEUED
0x104318…1044ac Dummy {f00=0x0057, f01=0x018e, f02=» X P* PUT LAST IN QUEUE. P* & P* 0 PQTJOB EQU * : P INH N P* Z P IFT CPU852=1 d $ P STR A1,A15 SAVE A1-A3 ON STACK z P STR A2,A15 P STR A3,A15 P XIF P* P IFT CPU852=0 " P MSR 3,A15 SAVE A1
0x1044ac…104640 Dummy {f00=0x0057, f01=0x0190, f02=» d P RF(Z) QTJ020 DISQUE EMPTY & P LD A3,TTB:ST+1,A5 PRIORITY LEVEL * P* T P EJECT MSUBS ^ P* t P* ~ 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL P RF(L) QTJ020 INSERT P LDR A1,A2 SAVE ADDRESS * P LDR* A2,A
0x104640…1047d4 (2, 78) Opaque[0x194]
0x1047d4…104968 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ae8, f03=0x0000}
0x1047d4…104968 IdxSect {
0x1047d4…104968 f00 = 0x0057 // 0x1047d4 @0x0
0x1047d4…104968 f01 = 0x0024 // 0x1047d6 @0x2
0x1047d4…104968 gno = [ // 0x1047d8 @0x4
0x1047d4…104968 [0x00]: C0x0057.0x1.0
0x1047d4…104968 [0x01]: C0x0057.0x2.0
0x1047d4…104968 [0x02]: C0x0057.0x3.0
0x1047d4…104968 [0x03]: C0x0058.0x0.0
0x1047d4…104968 [0x04]: C0x0058.0x1.0
0x1047d4…104968 [0x05]: C0x0058.0x2.0
0x1047d4…104968 [0x06]: C0x0058.0x3.0
0x1047d4…104968 [0x07]: C0x0059.0x0.0
0x1047d4…104968 [0x08]: C0x0059.0x1.0
0x1047d4…104968 [0x09]: C0x0059.0x2.0
0x1047d4…104968 [0x0a]: C0x0059.0x3.0
0x1047d4…104968 [0x0b]: C0x005a.0x0.0
0x1047d4…104968 [0x0c]: C0x005a.0x1.0
0x1047d4…104968 [0x0d]: C0x005a.0x2.0
0x1047d4…104968 [0x0e]: C0x005a.0x3.0
0x1047d4…104968 [0x0f]: C0x005b.0x0.0
0x1047d4…104968 [0x10]: C0x005b.0x1.0
0x1047d4…104968 [0x11]: C0x005b.0x2.0
0x1047d4…104968 ]
0x1047d4…104968 }
0x104968…104afc Dummy {f00=0x0057, f01=0x0190, f02=» 4 P IDENT TOSSIO REL 11.0 DK 81-10-10 870105041100 P < ( P =4, CPU857 DEFINITION NOT CORRECT D P =4, REL 11.0 81-03-18 p . P =3, ORDERS IN ORDTAB CHANGED TO FIT TND P =3, REL 11.0 81-02-25 & P =2, CORRECTION OF UPDATE =1 =1
0x104afc…104c90 Dummy {f00=0x0057, f01=0x0190, f02=»************************************************ P* 8 $ P* PHILIPS TERMINAL SYSTEM PTS B P* j ( P* TOSSIO = TOSS I/O LKM PROCESSOR t P* P* P* 6 P************************************************** P* P*
0x104c90…104e24 Dummy {f00=0x0057, f01=0x0190, f02=»TIALIZE I/O P* P* -TENDIO END I/O P* : P* -ATTACH ATTACH DEVICE D P* f P* -DETACH DETACH DEVICE p P* 8 P* -DC:MIN DATA COMMUNICATION MOVE ROUTINE (READ) P* 8 P* -DC:MOT DATA COMMUNICATION MOVE R
0x104e24…104fb8 Dummy {f00=0x0057, f01=0x0190, f02=» 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT * P* VALUES FOR ECB, DWT AND DAB AREAS. D P* r P EJECT TOSSIO | P* P* P*********** P* ENTRIES * P*********** P* P* P ENTRY TIO I/O P
0x104fb8…10514c Dummy {f00=0x0057, f01=0x0190, f02=»D I/O 0 P ENTRY QUEDEV QUEUE REQUEST IN DEVICE QUEUE 4 P ENTRY QUEFIL QUEUE FILE REQUEST IN DEVICE QUEUE B 2 P ENTRY DC:MIN MOVE ROUTINE FOR DATACOM, INPUT z 2 P ENTRY DC:MOT MOVE ROUTINE FOR DATACOM, OUTPUT 6 P ENTRY TIOMXI CONVERT LOGICAL ADDR
0x10514c…1052e0 Dummy {f00=0x0057, f01=0x018e, f02=»NTRY ECBBA BUFFER ADDRESS " P ENTRY ECBRL REQUESTED LENGTH " " P ENTRY ECBEL EFFECTIVE LENGTH H P ENTRY ECBRC RETURN CODE n P ENTRY ECBCW CONTROL WORD P ENTRY ECBCW1 CONTROL WORD 1 P ENTRY ECBCW2 CONTROL WORD 2 2 P ENTRY DC:DIX DE
0x1052e0…105474 (2, 79) Dummy {f00=0x0057, f01=0x0190, f02=» ` 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW < 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION l $ P ENTRY DK:DIX DEVICE INDEX DISC $ P ENTRY BUFLEN MMU BUFFER LENGTH P* P EJECT
0x105474…105608 Dummy {f00=0x0057, f01=0x0190, f02=»ADDRESS x 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) 4 P ENTRY HDRLEN BUFFER HEADER LENGTH (DC DRIVERS) F " P ENTRY RECADR RECOVERY ADDRESS ~ P ENTRY ECHADR ECHO ADDRESS $ P ENTRY DWTCHP CHANNEL PARAMETERS P ENTRY DWTST STATUS
0x105608…10579c Dummy {f00=0x0057, f01=0x0190, f02=» ( P ENTRY DWTOCH LAST OUTPUT CHARACTER & P ENTRY DWTADR DRIVER ADDRESS BLOCK 0 P ENTRY DWTTAB TTAB ADDRESS Z * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR | P ENTRY DWTTQ TERMINAL QUEUE $ P ENTRY DWTOTQ OUTPUT QUEUE LINK " P ENTRY DWTUEC USER
0x10579c…105930 Dummy {f00=0x0057, f01=0x0190, f02=»A4 SAVE AREA A4 P ENTRY DWTA5 SAVE AREA A5 & P ENTRY DWTSB1 STACK BASE 1 IN DWT : & P ENTRY DWTSB2 STACK BASE 2 IN DWT d P ENTRY DWTTP TIMER POINTER " P ENTRY DWTECH ECHO DEVICE DWT P ENTRY DWTSQ START OF QUEUE , P ENTRY DWTORD
0x105930…105ac4 Dummy {f00=0x0057, f01=0x018e, f02=»AREA A7 ~ P ENTRY DWTA8 SAVE AREA A8 & P ENTRY DWTCP2 CHANNEL PARAMETERS 2 2 * P ENTRY DWTLD1 LINE DRIVER DEPENDENT 1 * P ENTRY DWTLD2 LINE DRIVER DEPENDENT 2 ( P ENTRY DWTDEV TERMINAL DEVICE STATUS * P ENTRY DWTTBU PLC TEST BUFFER ADDRES
0x105ac4…105c58 Dummy {f00=0x0057, f01=0x0190, f02=» P* P************* P* EXTERNALS * $ P************* : P* P P* Z " P EXTRN SAVE8 SAVE 8 REGISTERS d 0 P EXTRN IHRET8 RESTORE 8 REGISTERS AND RETURN 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS & P EXTRN ACTOTP ACTI
0x105c58…105dec Dummy {f00=0x0057, f01=0x0190, f02=»G j P EXTRN TDISP DISPATCHER 2 P EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO * * P EXTRN LKMQDI QUEUE TASK AND DISPATCH ` * P EXTRN LKMERR HALT SYSTEM, FATAL ERROR , P EXTRN GETBLK PUT BLOCK IN PENDING QUEUE 2 P EXTRN FREBLK RELEASE BLOCK
0x105dec…105f80 Dummy {f00=0x0057, f01=0x0190, f02=»XTRN TTB:ST TASK STATUS AND LEVEL & P EXTRN TTB:PW PROGRAM STATUS WORD * P EXTRN TTB:SA SAVE AREA T P EXTRN TTB:MT MMUTAB t P EXTRN HALT =1 P* P EJECT TOSSIO P* P* . P*****************************************
0x105f80…106114 (2, 80) Dummy {f00=0x0057, f01=0x0190, f02=»N USING TOSS MMU PAGING ~ * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* N PMMUPAG EQU 1 X P* l P* v 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0
0x106114…1062a8 Dummy {f00=0x0057, f01=0x0190, f02=»U 0 PATTDET EQU X:A P* " P* , 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU 6 * P* IS OBTAINED BY SETTING CPU857 EQU 1. n P* PCPU857 EQU 1 =4 P* PX:C EQU 0 PTC8000 EQU X:C P EJECT TOSSIO
0x1062a8…10643c Dummy {f00=0x0057, f01=0x0190, f02=» 8,8 P* P EJECT TOSSIO P* . P* 8 P********************* B P* DWT DISPLACEMENTS * ` P********************* ~ P* 2 P* DEVICE WORK TABLE DISPLACEMENTS: FIXED PART P* & PDWTCHP EQU /00 CHANNEL PARAMETERS
0x10643c…1065d0 Dummy {f00=0x0057, f01=0x0190, f02=» " PDWTOR EQU /06 INDEX AND ORDER ( PDWTOCH EQU /06 LAST OUTPUT CHARACTER * ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK V PDWTTAB EQU /0A TTAB ADDRESS * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR PDWTTQ EQU /0E TERMINAL QUEUE $ PDWTUEC EQU /10 U
0x1065d0…106764 Dummy {f00=0x0057, f01=0x018e, f02=» PART f P XIF P* P IFT MMUPAG=1 $ 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART : P XIF r P* ~ P EJECT TOSSIO P* , P* DWT DISPLACEMENTS: DRIVER DEFINED PART P* , PDWTOTQ EQU DWTDRD+/00 OUTPUT QUEUE L
0x106764…1068f8 Dummy {f00=0x0057, f01=0x0190, f02=» & PDWTA5 EQU DWTDRD+/06 SAVE AREA A5 . PDWTSB1 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 & PDWTA7 EQU DWTDRD+/10
0x1068f8…106a8c Dummy {f00=0x0057, f01=0x0190, f02=»/14 CHANNEL PARAMETERS 2 ~ 2 PDWTLD1 EQU DWTDRD+/16 LINE DRIVER DEPENDENT 1 2 PDWTLD2 EQU DWTDRD+/18 LINE DRIVER DEPENDENT 2 V 0 PDWTDEV EQU DWTDRD+/1A TERMINAL DEVICE STATUS P 2 PDWTTBU EQU DWTDRD+/1A PLC TEST BUFFER ADDRESS * PDWTVOL EQU
0x106a8c…106c20 Dummy {f00=0x0057, f01=0x0190, f02=»TTCW EQU DWTDRD+/1E PLC TEST PARAMETER ( PDWTSQ EQU DWTDRD+/2A START OF QUEUE . P* Z P EJECT TOSSIO d P* | P* P********************* P* DAB DISPLACEMENTS * P********************* P* ( P* DRIVER ADDRESS BLO
0x106c20…106db4 (2, 81) Dummy {f00=0x0058, f01=0x0190, f02=» INDEX | $ PACTADR EQU 0 ACTIVATION ADDRESS PABTADR EQU 2 ABORT ADDRESS 6 " PINTADR EQU 4 INTERRUPT ADDRESS X 2 PPOLADR EQU 4 BUFFER POOL ADDRESS (DC DRIVERS) ~ 2 PHDRLEN EQU 6 BUFFER HEADER LENGTH (DC DRIVERS) " PRECADR EQU 6 RECOVERY ADDRESS
0x106db4…106f48 Dummy {f00=0x0058, f01=0x0190, f02=»************* P* P* J P* THE VALUES ARE USED IN MMU SYSTEMS FOR SELECTING A SPECIAL ROUTINE * F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. x P* $ PDC:DIX EQU -2 DATA COMMUNICATION PDM:DIX EQU 0 DATA MA
0x106f48…1070dc Dummy {f00=0x0058, f01=0x018e, f02=»QU 8 INTERTASK COMMUNICATION PDK:DIX EQU 10 DISC $ P* > P EJECT TOSSIO H P* ` P* j P********************* t P* ECB DISPLACEMENTS * P********************* P* ( P* EVENT CONTROL BLOCK DISPLACEMENTS P*
0x1070dc…107270 Dummy {f00=0x0058, f01=0x018e, f02=» PECBEL EQU 6 EFFECTIVE LENGTH PECBRC EQU 8 RETURN CODE ( PECBCW EQU 10 CONTROL WORD H PECBCW1 EQU 10 CONTROL WORD 1 j PECBCW2 EQU 12 CONTROL WORD 2 P* P EJECT TOSSIO P* P* P IFT MMUPAG=1 P* P
0x107270…107404 Dummy {f00=0x0058, f01=0x018e, f02=» P* 2 PTIOTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE . P DATA TIO:DM DATA MANAGEMENT, INPUT/OUTPUT D * P DATA TIOPCI PROGRAMMED CHANNEL, INPUT v P DATA TIOMXI MUX, INPUT $ P DATA TIOKBI KEYBOARD/CTW, INPUT 0 P DATA TIOITI INTERTASK COMMU
0x107404…107598 Dummy {f00=0x0058, f01=0x0190, f02=» f P DATA TIOMXO MUX, OUTPUT & P DATA TIOKBO KEYBOARD/CTW, OUTPUT ( 0 P DATA TIOITO INTERTASK COMMUNICATION, OUTPUT R P DATA TIODKO DISC, OUTPUT P* P EJECT TOSSIO P* P* P********** P* TENTAB * P******
0x107598…10772c Dummy {f00=0x0058, f01=0x0190, f02=»RESS TABLE l . P DATA TEN:DM DATA MANAGEMENT, INPUT/OUTPUT * P DATA TENPCI PROGRAMMED CHANNEL, INPUT D P DATA TENMXI MUX, INPUT r $ P DATA TENKBI KEYBOARD/CTW, INPUT 0 P DATA TENITI INTERTASK COMMUNICATION, INPUT P DATA TENDKI DISC, INPUT
0x10772c…1078c0 Dummy {f00=0x0058, f01=0x0190, f02=»NITO INTERTASK COMMUNICATION, OUTPUT P DATA TENDKO DISC, OUTPUT , P XIF N P* Z P EJECT TOSSIO d P* | P* P********** P* MONMMU * P********** P* P* MONITOR (SYSTEM) MMU TABLE P* PMONMMU EQU
0x1078c0…107a54 (2, 82) Dummy {f00=0x0058, f01=0x0190, f02=»0 t " P DATA /3000,/3400,/3800,/3C00 P XIF 0 P* < P EJECT TOSSIO F P* ^ P* h P IFT ATTDET=1 r P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P* P* T I M O U T P* P* INPUT: A1 = DWT ADD
0x107a54…107be8 Dummy {f00=0x0058, f01=0x0190, f02=» t P* A6 = DWT ADDRESS " P* A1-A3 ARE DESTROYED * P* P PTIMOUT LDR A6,A1 Z & P LDR* A2,A2 TIMER POINTER ADDRESS r P LD A5,2,A2 TTAB ADDRESS P CF A15,FNDBLK P LDR* A1,A4 " P STR A1,A2 REMOVE FROM ATT:CH
0x107be8…107d7c Dummy {f00=0x0058, f01=0x0190, f02=» & P ADK A1,DWTTQ QUEUE ANCHOR ADDRESS P* . PTIM:10 LDR A2,A1 SAVE 8 P LDR* A1,A1 NEXT IN QUEUE V , P RF(Z) TIM:20 ERROR IN QUEUE HANDLING =1 x P CWR A1,A5 P RB(NE) TIM:10 NOT FOUND P* P EJECT TOSSIO P* & P*
0x107d7c…107f10 Dummy {f00=0x0058, f01=0x0190, f02=»DATE DISPATCH ADDRESS | 6 P LD A8,TTB:SA+16,A5 ECB ADDRESS FROM A8 SAVE AREA ! P LDK A3,/40 SET TIMEOUT BIT ! X P* ! | P IFT MMUPAG=0 ! * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB ! P XIF ! P* ! P IFT ATTDET=1 ! P IFT MMUPAG=1 !
0x107f10…1080a4 Dummy {f00=0x0058, f01=0x0190, f02=» TABLE ! l P XIF " P* " P IFT ATTDET=1 " $ & P RF TIORTN QUEUE TASK AND DISPATCH " : PTIM:20 EQU * =1 " d P LDK A1,1 INDICATE ERROR =1 " | P CF A15,HALT =1 " P* " P EJECT TOSSIO " P* " P* F N D B L K " P* " ( P* SU
0x1080a4…108238 Dummy {f00=0x0058, f01=0x0190, f02=»K IN CHAIN " h 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0 # P* # H ( PFNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS # R P* # ~ PFND:10 LDR A2,A4 SAVE A4 # P LDR* A4,A4 # P RF(Z) FND:20 END OF ATT:CH # P CW A5,4,A4 # P RB(NE) FND:10 NOT F
0x108238…1083cc Dummy {f00=0x0058, f01=0x0190, f02=»FT CPU852=0 # P RTN A15 RETURN $ P XIF $ , P* $ 8 P IFT ATTDET=1 $ B & PATT:CH DATA 0 ATTACH CHAIN ANCHOR $ X P* $ P EJECT $ P* $ P* F R A B L K =1 $ P* $ 0 P* FREE BLOCK AND TIMER IN ATT:CH IF FOUND =1 $ P* $ P*
0x1083cc…108560 Dummy {f00=0x0058, f01=0x018e, f02=»1 =1 $ ~ * P CF A15,FNDBLK FIND BLOCK IN ATT:CH =1 % P ADK A4,0 SET CR =1 % : . P RF(Z) FRAEND TASK NOT FOUND IN ATT:CH =1 % V P CM* 2,A4 FREE TIMER =1 % & P LDR* A3,A4 REMOVE FROM ATTACH =1 % P STR A3,A2 =1 % $ P CF A15,FREBLK RELEASE BLOCK =1
0x108560…1086f4 (2, 83) Dummy {f00=0x0058, f01=0x0190, f02=» P********** & P* ATTACH * & P********** & ( P* & : P* & D * P* THIS MODULE IS CALLED FROM TIO WITH & N P* THE FOLLOWING PARAMETERS: & | P* & & P* A3 /8000 (REQUEST ERROR BIT) & & P* A4 I/O AND ACTIVATE INDICATOR & P* A5 TT
0x1086f4…108888 Dummy {f00=0x0058, f01=0x018e, f02=» A12 ADDRESS TO DRIVER ADDRESS BLOCK & P* A13 DWT STATUS ' . P* ' H PATTACH EQU * ENTRY ' R P ADK A4,0 SET CR ' l * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR ' P* ' P IFT MMUPAG=0 ' " P CM ECBRC,A8 RESET RETURN CODE ' P XIF ' P* '
0x108888…108a1c Dummy {f00=0x0058, f01=0x0190, f02=» P* ( P* ( P IFT ATTDET=1 ( P TM A10,A13 ( . * P RF(NZ) ATT:40 DEVICE ALREADY ATTACHED ( B P LDR A13,A13 ( p P RF(NN) ATT:50 DEVICE BUSY ( P* ( P* ATTACH REQUESTING TASK ( P* ( P ORS A10,DWTST,A6 ATTACH ( , P ST A5,DWT
0x108a1c…108bb0 Dummy {f00=0x0058, f01=0x0190, f02=» TASK ( l P* ) PATT:50 EQU * =1 ) P* ) 0 P* SET TIMER ) : P* ) R P IFT MMUPAG=0 ) P LD A1,ECBCW,A8 TIME ) r P XIF ) P* ) P EJECT TOSSIO ) P* ) P* ) P IFT ATTDET=1 ) P IFT MMUPAG=1 ) P EL A1,ECBCW
0x108bb0…108d44 Dummy {f00=0x0058, f01=0x0190, f02=» PATT:60 ST A1,ATTIM * P LDR A1,A5 TTAB ADDRESS * P LD A3,ATT:CH ANCHOR * > P CF A15,GETBLK BLOCK * Z P ST A4,ATT:CH UPDATE ANCHOR * v $ P ADK A4,2 TIMER POINTER ADDRESS * P LDR A1,A6 DWT ADDRESS * P CF A15,SETIMP SET TIMER * P DATA TI
0x108d44…108ed8 Dummy {f00=0x0058, f01=0x0190, f02=»DK A3,/40 SET TIME OUT BIT * P RF TIOERR RETURN + " P* + < P EJECT TOSSIO + F P* + ^ P* + h P********** + r P* DETACH * + P********** + P* + * P* THIS MODULE IS CALLED FROM TIO WITH + $ P* THE SAME PARAMETERS AS ATTACH. + P
0x108ed8…10906c Dummy {f00=0x0058, f01=0x0190, f02=»T ATTACHED + P CW A5,DWTTAB,A6 , * P RF(NE) TIOERR ATTACHED TO OTHER TASK , * P XRS A10,DWTST,A6 DETACH , X $ P LDR A7,A5 SAVE TTAB ADDRESS =1 , x P LD A5,DWTTQ,A6 QUEUE ANCHOR , P RF(Z) DET:10 QUEUE EMPTY , 2 P CF A15,FRABLK FREE ATTACH BLOCK A
0x10906c…109200 Dummy {f00=0x0058, f01=0x0190, f02=»10 EQU * , & P LDR A5,A7 RESTORE TTAB ADDRESS =1 - P* - : 2 PATTRTN EQU * COMMON ATTACH/DETACH NORMAL EXIT - D PDETRTN LDK A3,0 RETURN CODE - z P XIF - P* - P EJECT TOSSIO - P* - P* - P********** - P* TIOERR * - P****
0x109200…109394 (2, 84) Dummy {f00=0x0058, f01=0x018e, f02=»'. - n P* . PTIOERR EQU * . P IFT MMUPAG=0 . ( * P ST A3,ECBRC,A8 SET RETURN CODE IN ECB . > ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH . l P XIF . P* . P IFT MMUPAG=1 . * P ES A3,ECBRC,A8 SET RETURN CODE IN ECB . P LDK A3,0 . * P ES
0x109394…109528 Dummy {f00=0x0058, f01=0x0190, f02=» P EJECT TOSSIO / P* / P* / & P**************** / 0 P* QUEUE DEVICE * / H P**************** / ` P* / x P* / 8 P* THIS IS THE ROUTINE FOR QUEUEING DEVICE REQUESTS. / > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON / @
0x109528…1096bc Dummy {f00=0x0058, f01=0x0190, f02=»CHED, WHETHER THE DEVICE IS ATTACHED TO THE TASK OR NOT. / P* 0 @ P IFT ATTDET=1 0 J P* 0 ` P* QUEUE ECHO DEVICE FIRST 0 j P* 0 PTIOQ00 LDR A6,A2 0 P* 0 P* QUEUE DEVICE FIRST 0 P* 0 $ PTIOQ05 ADK A6,DWTTQ QUEUE ANCHOR 0 P L
0x1096bc…109850 Dummy {f00=0x0058, f01=0x0190, f02=» P* 1 . PQUEDEV EQU * ENTRY USED BY FILE MANAGEMENT 1 $ PTIOQ20 ADK A6,DWTTQ QUEUE ANCHOR 1 @ P* 1 h . PQUEFIL EQU * ENTRY USED BY FILE MANAGEMENT 1 r P LD A1,TTB:ST+1,A5 LEVEL 1 P* 1 P EJECT TOSSIO 1 P* 1 * P* SEARCH QUEUE FOR PLACE
0x109850…1099e4 Dummy {f00=0x0058, f01=0x0190, f02=»TB:ST+1,A6 COMPARE LEVELS 1 P RB(NL) TIOQ30 TRY NEXT 2 " P* 2 B 0 P* INSERT IN QUEUE AND UPDATE PROGRAM COUNTER 2 L P* 2 PTIOQ40 LDKL A3,-4 2 P STR A6,A5 INSERT IN QUEUE 2 P STR A5,A2 2 P ADK A4,0 SET CR 2 P RF(Z) TIOQ50 NO ACTIVAT
0x1099e4…109b78 Dummy {f00=0x0058, f01=0x0190, f02=» ABL TDISP GO TO DISPATCHER 2 P* 3 $ P EJECT TOSSIO 3 . P* 3 F P* 3 P P******* 3 Z P* TIO * 3 j P******* 3 z P* 3 P* 3 4 P* THIS MODULE IS ENTERED WHEN TASK INPUT/OUTPUT 3 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED 3
0x109b78…109d0c Dummy {f00=0x0058, f01=0x0190, f02=»OPTION SPECIAL DEVICE 3 x * P* DEPENDENT SUBROUTINES ARE PERFORMED. 4 P* 4 L 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE 4 V & P* WITH THE FOLLOWING PARAMETERS:- 4 P* 4 . P* A1 = PARAMETER WHEN I/O AND ACTIVATION 4 P* 4 $ P* A4 =
0x109d0c…109ea0 Dummy {f00=0x0058, f01=0x0190, f02=»R CODE 4 P* 5 P* A8 = ECB ADDRESS 5 P* 5 4 P EJECT TOSSIO 5 > P* 5 V P* 5 ` < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER 5 j * P* WITH THE FOLLOWING REGISTER VAULES:- 5 P* 5 P* A5 = STACK BASE 2 IN DWT 5 P*
0x109ea0…10a034 (2, 85) Dummy {f00=0x0059, f01=0x0190, f02=»TO DRIVER ADDRESS BLOCK 5 P* 6 0 P* A13 = 0, IF REQUEST ISSUED IN SYSTEM MODE 6 * . P* = 1, " " " " USER MODE 6 ^ P* 6 P* 6 , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- 6 P* 6 " P* -DWTOR DWT INDEX AND ORDER 6 P* -
0x10a034…10a1c8 Dummy {f00=0x0059, f01=0x0190, f02=» . P* -DWTUEC USER ECB ADDRESS (MMU SYSTEMS) 7 P* 7 6 P* 7 @ * P* THE FOLLOWING ECB FIELDS ARE RESET:- 7 J P* 7 x P* -BIT 0 IN THE FIRST WORD 7 P* -ECBEL EFFECTIVE LENGTH 7 P* -ECBRC RETURN CODE 7 P* 7 P EJECT TOSSIO 7
0x10a1c8…10a35c Dummy {f00=0x0059, f01=0x0190, f02=» * ENTRY USED BY FILE MANAGEMENT 7 P CF A15,SWITCH SWITCH LEVEL 8 ( P INH 8 L P LDKL A3,/8000 8 X P ADK A6,0 SET CR 8 n $ P RB(Z) TIOERR FILE CODE UNKNOWN 8 6 P LD A12,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A13,DWTST,A6 DWT STATUS 8
0x10a35c…10a4f0 Dummy {f00=0x0059, f01=0x0190, f02=»T=1 8 P LDKL A10,/0800 ATTACH BIT 9 P CCK A7,/BB00 9 . P RB(E) ATTACH ATTACH ORDER 9 D P CCK A7,/BC00 9 f P RB(E) DETACH DETACH ORDER 9 | P TM A10,A13 9 P RF(Z) TIO020 NOT ATTACHED 9 P CW A5,DWTTAB,A6 9 * P RB(NE) TIOQ20 ATTACHED TO O
0x10a4f0…10a684 Dummy {f00=0x0059, f01=0x0190, f02=»O020 EQU * 9 P TM A3,A13 : P RB(Z) TIOQ20 DEVICE BUSY : $ P* : F P EJECT TOSSIO : P P* : h H P* CHECK IF ECHO, AND WHEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED : r P* : * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX : P LDK A2,/40 CHECK
0x10a684…10a818 Dummy {f00=0x0059, f01=0x0190, f02=»KEYBOARD : x 4 P RF(NZ) TIO070 ECHO NOT ALLOWED IF NOT KEYBOARD ; , P LD A2,DWTECH,A6 ECHO DEVICE DWT ADDRESS ; H P RF(Z) TIO070 NO ECHO DEVICE ; x $ P LD A14,DWTST,A2 ECHO DWT STATUS ; P* ; P IFT ATTDET=1 ; P TM A10,A14 ; * P RF(Z) TIO050 EC
0x10a818…10a9ac Dummy {f00=0x0059, f01=0x0190, f02=») TIO060 ECHO DEVICE NOT BUSY ; & P RB TIOQ00 BUSY, QUEUE ECHO DEVICE < & P XIF < P P* < P EJECT TOSSIO < f P* < ~ P* < PTIO050 TM A3,A14 < " P RB(Z) TIOQ10 ECHO DEVICE BUSY < P* < PTIO060 LDKL A3,/A000 < : P XRS A3,DWTST,A2 U
0x10a9ac…10ab40 Dummy {f00=0x0059, f01=0x0190, f02=» ECHO BITS IN DWT STATUS < l P* = P IFT MMUPAG=1 = * P LD A13,TTB:PW,A5 PSW = @ $ P ANKL A13,1 SYSTEM/USER MODE BIT = ^ $ P RF(NZ) TIO100 JUMP IF USER MODE = P LDKL A2,/7FFF = , P ANRS A2,A8 RESET BIT 0 IN ECB FILE CODE = , P ST A8,DWTECB,A6 SET
0x10ab40…10acd4 (2, 86) Dummy {f00=0x0059, f01=0x0190, f02=» P EJECT TOSSIO > P* > P* MOVE USER ECB TO DWT ECB > & P* > H PTIO100 EQU * > R P LDKL A2,/4FFF > f * P ELR A3,A8 LOAD FIRST WORD OF USER ECB > | 0 P ANR A3,A2 RESET BITS 0,2,3 IN ECB FILE CODE > P ESR A3,A8 > ( P LD A2,DWTMEC,A6 DWT MMU
0x10acd4…10ae68 Dummy {f00=0x0059, f01=0x0190, f02=» A9,A8 > P LDK A3,0 ? * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH ? & P ES A3,ECBRC,A8 RESET RETURN CODE ? N P* ? x P LDR A10,A1 SAVE PARAMETER ? P LDR A1,A8 ? P ADK A1,ECBRL ? ( P LDR A8,A2 SET A8 TO DWT ECB ADDRESS ? P ADK A2,ECBRL ?
0x10ae68…10affc Dummy {f00=0x0059, f01=0x018e, f02=»FT MMUPAG=0 ? P LDKL A3,/7FFF @ , P ANRS A3,A8 RESET BIT 0 IN ECB FILE CODE @ * ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH @ Z $ P CM ECBRC,A8 RESET RETURN CODE @ P XIF @ P* @ P EJECT TOSSIO @ P* @ P* @ PTIO110 EQU * @ P ECR
0x10affc…10b190 Dummy {f00=0x0059, f01=0x0190, f02=» P* A PTIO120 EQU * A P LDR A3,A7 A " P ANK A7,/3F A 4 ( P SC A7,DWTOR+1,A6 STORE ORDER IN DWT A H 0 P ST A5,DWTTAB,A6 SAVE TTAB ADDRESS IN DWTTAB A t P* A PTIO130 EQU * A P IFT MMUPAG=0 A & P ST A8,DWTECB,A6 SET ECB ADDRESS A P X
0x10b190…10b324 Dummy {f00=0x0059, f01=0x018e, f02=»ETER A z & P RF(NZ) TIO210 I/O AND ACTIVATION B 4 P ANK A3,/80 NORMAL I/O. CHECK IF WAIT REQUESTED B 6 P RF(Z) TIO220 NOT WAIT B n P LDK A4,1 INDICATE WAIT B P RF TIO230 B P* B P* I/O WITH ACTIVATION B P* B < PTIO210 CF A15,GETBLK SAV
0x10b324…10b4b8 Dummy {f00=0x0059, f01=0x0190, f02=» B P* WAIT C P* C 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR C P* C P EJECT TOSSIO C f P* C ~ P* C P IFT MMUPAG=1 C * P LDR A13,A13 CHECK IF SYSTEM/USER MODE C & P RF(Z) TIO250 JUMP IF SYSTEM MODE C " P LD A3,D
0x10b4b8…10b64c Dummy {f00=0x0059, f01=0x0190, f02=» IF DISC C | P RF(NE) TIO235 NOT DISC D ( P CF A15,TIOCW2 MOVE 2ND CONTROL WORD D 0 P* D " P* PERFORM CHECK ON ORDER CODE D f P* D PTIO235 EQU * D P LDR A4,A7 ORDER CODE D 0 P CF A15,RD:WR2 CHECK IF ORDER IS READ/WRITE D . P RF(Z) TIO25
0x10b64c…10b7e0 Dummy {f00=0x0059, f01=0x0190, f02=» D X P XIF E P* E * PTIO250 ENB GIVE OTHER TASKS A CHANCE E P* E L * PTIO260 LDK A5,DWTSB2 LOAD STACK BASE 2 E V P ADR A5,A6 E P INH E & P ABR* A12 GO TO DRIVER ACTIVATION E P* E P EJECT TOSSIO E P* E P* E P******
0x10b7e0…10b974 (2, 87) Dummy {f00=0x0059, f01=0x0190, f02=» E l ( P* IF CPU852, " " " " 16 F ( P* IF CPU857, " " " " 16 F 4 P* F ` $ P* A3 IS DESTROYED, AND SO IS CR F j P* F & PSWITCH EQU * SWITCH LEVEL ON STACK F P IFT TC8000=0 F P IFF CPU852+CPU857=0 =4 F P LDK A3,/40
0x10b974…10bb08 Dummy {f00=0x0059, f01=0x0190, f02=» F | P LDK A3,/30 CPU851: LEVEL 12 G P XIF G , P* G 8 P* G B ( P SC A3,2,A15 SET NEW LEVEL ON STACK G L " P RTN A15 RETURN WITH NEW LEVEL G x P* G P EJECT TOSSIO G P* G P* G P IFT MMUPAG=0 G 0 PTIOMXI EQU * DUMMY ENTRY IN NO
0x10bb08…10bc9c Dummy {f00=0x0059, f01=0x0190, f02=» P* H @ P* THIS MODULE IS CALLED BY 'TIO' AND 'TENDIO' FOR SELECTING H @ P* THE APPROPRIATE ROUTINE AT READ/WRITE REQUESTS, DEPENDING H R > P* ON THE DEVICE CONNECTION (PROGRAMMED CHANNEL, MUX ETX). H > P* IF NO READ/WRITE REQUEST, CONDITION REGISTER O
0x10bc9c…10be30 Dummy {f00=0x0059, f01=0x0190, f02=» H v P* I : P* OUTPUT: A3 = INDEX FOR USE IN THE INDEXED BRANCHING I . P* CR = 0 IF NO READ/WRITE REQUEST I P , P* CR <> 0 IF READ/WRITE REQUEST I P* A4 IS DESTROYED I P* I , PRD:WR LD A4,DWTOR,A6 ORDER CODE FROM DWT I P A
0x10be30…10bfc4 Dummy {f00=0x0059, f01=0x0190, f02=»)* A15 RETURN IF NO READ/WRITE ORDER I P SUK A4,1 J , $ P ADR A3,A4 ADD READ/WRITE INDEX J > ( P ABR* A15 RETURN WITHOUT CHANGING CR J f P* J P EJECT TOSSIO J P* J P* J P********** J P* ORDTAB * J P********** J P* J 2 P
0x10bfc4…10c158 Dummy {f00=0x0059, f01=0x0190, f02=»: WRITE ORDER J P* K PORDTAB EQU * ORDER CONSTANTS K P BYTES 0,1 /00, /01 K D P BYTES 1,1 /02, /03 K ` P BYTES 0,TINDEX+1 /04, /05 K | & P BYTES TINDEX+1,TINDEX+1 /06, /07 K P BYTES TINDEX+1,0 /08, /09 K P BYTES 1,TINDEX+1 /0A, /0B K
0x10c158…10c2ec Dummy {f00=0x0059, f01=0x0190, f02=»4, /15 K | P BYTES 0,0 /16, /17 L P BYTES 0,0 /18, /19 L * P BYTES 0,0 /1A, /1B L F P BYTES 0,0 /1C, /1D L b P BYTES 0,0 /1E, /1F L ~ P BYTES 0,TINDEX+1 /20, /21 L P BYTES TINDEX+1,0 /22, /23 L P BYTES TINDEX+1,0 /24, /25 L P BYTES 0
0x10c2ec…10c480 Dummy {f00=0x0059, f01=0x0190, f02=»X+1 /2E, /2F L P BYTES 0,0 /30, /31 M P BYTES 0,0 /32, /33 M 0 P BYTES 0,0 /34, /35 M L P BYTES 0,0 /36, /37 M h P BYTES 0,0 /38, /39 M P BYTES 0,0 /3A, /3B M P BYTES 0,0 /3C, /3D M P BYTES 0,0 /3E, /3F M P* M P EJECT T
0x10c480…10c614 (2, 88) Dummy {f00=0x0059, f01=0x0190, f02=»S BEEN ISSUED. M x 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT N , P* COMPLETION OF THE REQUEST IS 'TEN:DM'. N N P* N ~ " P* INPUT: A8 = DWT ECB ADDRESS N $ P* A9 = USER ECB ADDRESS N P* N P* OUTPUT: A2 IS DESTROYED N P* N
0x10c614…10c7a8 Dummy {f00=0x0059, f01=0x0190, f02=»W2 EQU * N ( P EL A2,ECBCW2,A9 SECOND CONTROL WORD O P ST A2,ECBCW2,A8 O < P* O T PA15RTN EQU * O ^ P RTN A15 O r P* O P EJECT TOSSIO O P* O P* T I O P C I O P* O B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS B
0x10c7a8…10c93c Dummy {f00=0x0059, f01=0x0190, f02=» ARE O V < P* EVEN OR UNEVEN, DEPENDING ON THE USER BUFFER ADDRESS. P 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT P L , P* COMPLETION OF THE REQUEST IS 'TENPCI'. P 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. P P* P " P* INPUT: A8 = DWT
0x10c93c…10cad0 Dummy {f00=0x0059, f01=0x0190, f02=»STROYED P ~ P* Q * PTIOPCI EQU * PROGRAMMED CHANNEL, INPUT Q $ P LD A1,ECBRL,A8 REQUESTED LENGTH Q H 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE Q p 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE Q P* Q . PTIPI05 EQU * ENTRY POINT USED
0x10cad0…10cc64 Dummy {f00=0x0059, f01=0x0190, f02=»ECBBA,A8 Q P RTN A15 R P* R 0 PTIPI10 SUK A1,2 MAKE DWT BUFFER ADDRESS EVEN R * P ANS A1,ECBBA,A8 R ^ P RTN A15 R v P* R P EJECT TOSSIO R P* R P* T I O M X I R P* R B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST H
0x10cc64…10cdf8 Dummy {f00=0x0059, f01=0x0190, f02=»H IS R Z , P* TRANSFERRED TO THE MUX BY THE DRIVER. S 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT S < , P* COMPLETION OF THE REQUEST IS 'TENMXI'. S t N P* NOTICE THAT MODULES 'TIOMXO', 'TIODKI' AND 'TIODKO' ARE EQUAL TO TIOMXI. S P* S P* INPUT:
0x10cdf8…10cf8c Dummy {f00=0x0059, f01=0x0190, f02=»D S t B P* 18 BIT USER BUFFER ADDRESS IS TRANSFERRED TO DWT ECB T P* T P PTIOMXI EQU * MUX, INPUT T Z P LDK A1,0 T z 2 P EL A2,ECBBA,A9 USER BUFFER ADDRESS (LOGICAL) T " P DLL 4 4 LEFTMOST BITS INTO A1 T P ADR A1,A1 DOUBLE INDEX T P
0x10cf8c…10d120 Dummy {f00=0x0059, f01=0x0190, f02=» SET BITS 0-1 IN DWT ECB 1ST WORD T 0 P ST A2,ECBBA,A8 BITS 2-17 IN 18-BIT ADDRESS U * P RTN A15 U ^ P* U n P EJECT TOSSIO U x P* U P* T I O K B I U P* U B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN U N P* ISSUED
0x10d120…10d2b4 (2, 89) Dummy {f00=0x005a, f01=0x0190, f02=» 'TIOPCI' AND ENTRY TIPO05 IN 'TIOPCO'. U 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT V 0 , P* COMPLETION OF THE REQUEST IS 'TENKBI'. V h P* V P* INPUT: A6 = DWT ADDRESS V P* A7 = ORDER CODE V " P* A8 = DWT ECB ADDRESS V P* A
0x10d2b4…10d448 Dummy {f00=0x005a, f01=0x0190, f02=»OKBI EQU * KEYBOARD/CTW V $ P LD A1,ECBRL,A8 REQUESTED LENGTH W 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE W H 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE W ~ 6 P CF A15,TIPI05 CHECK AND CORRECT BUFFER ADDRESSES W P CWK A7,1 CHECK ORDER
0x10d448…10d5dc Dummy {f00=0x005a, f01=0x0190, f02=» P* X P EJECT TOSSIO X P* X & P* X 0 P LDR A1,A9 X : P ADK A1,8 X L P ADKL A8,12 X ^ * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS X r P SUKL A8,4 X * P ELR A3,A4 FIRST WORD OF USER KEYTABLE X P ANK A4,1 X * P RF(NZ) TIKB10 KEYTABL
0x10d5dc…10d770 Dummy {f00=0x005a, f01=0x0190, f02=»1 X 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE Y P RF(G) IO:ERR TOO SMALL Y > P CF A15,TIPO05 Y ^ & P SUKL A8,8 ADJUST DWT ECB ADDRESS Y t P* Y PTIKB20 EQU * Y P RTN A15 Y P* Y P EJECT TOSSIO Y P* Y P* T I O I T I Y
0x10d770…10d904 Dummy {f00=0x005a, f01=0x018e, f02=», INPUT Y z P* Z P EJECT TOSSIO Z P* Z 2 P* T I O P C O Z < P* Z R B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN Z > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. Z B P* TIOPCO CHECKS THAT REQUESTED LENGT
0x10d904…10da98 Dummy {f00=0x005a, f01=0x0190, f02=» Z r 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT [ , P* COMPLETION OF THE REQUEST IS 'TENPCO'. [ @ 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. [ p F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. [ & P* TIOPCO IS ALSO USE
0x10da98…10dc2c Dummy {f00=0x005a, f01=0x018e, f02=»STROYED [ z P* , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK J $ P LD A3,ECBRL,A8 REQUESTED LENGTH ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE
0x10dc2c…10ddc0 Dummy {f00=0x005a, f01=0x018e, f02=» P* ] P* ] : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' ] P ADK A3,1 ] V . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN ] h ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS ] & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS ] 0 P ANKL A2,/FFFE MAKE DWT
0x10ddc0…10df54 (2, 90) Dummy {f00=0x005a, f01=0x0190, f02=» P* ^ 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER ^ P* ^ H PTIPO20 RTN A15 ^ R P* ^ h 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN ^ r 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNEVEN ^ 0 P ELR A4,A1 FIRST CHARACTER FROM USER BUFFE
0x10df54…10e0e8 Dummy {f00=0x005a, f01=0x0190, f02=»POINTER ^ t ( P RB TIPO10 MOVE REMAINING CHARACTERS _ P* _ < P EJECT TOSSIO _ F P* _ ^ P* I O : E R R _ h P* _ ~ , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. _ B P* SET RETURN CODE /8008 (REQUEST ERROR AND INCORRECT LENGTH). _ & P* BRANCH T
0x10e0e8…10e27c Dummy {f00=0x005a, f01=0x0190, f02=»OINTER _ v P LD A1,DWTST,A6 DWT STATUS ` P SLL A1,2 CHECK ECHO BIT ` 0 P RF(NN) IO:E10 NOT ECHO ` P P LDR A1,A6 SAVE DWT ADDRESS ` p & P LD A6,DWTECH,A6 ECHO DWT ADDRESS ` P CF A15,TENDIO ` " P LDR A6,A1 RESTORE DWT ADDRESS ` P* ` PIO:E
0x10e27c…10e410 Dummy {f00=0x005a, f01=0x0190, f02=» P* a P* T I O M X O a P* a $ " PTIOMXO EQU TIOMXI MUX, OUTPUT a . P* a T P* T I O K B O a ^ P* a t * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT a ~ P* a P* T I O I T O a P* a 6 PTIOITO EQU A15RTN INTERTASK COMMUNICATION, OUTPUT
0x10e410…10e5a4 Dummy {f00=0x005a, f01=0x0190, f02=»E N : D M a P* b 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST b . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. b V D P* NOTICE THAT MODULES 'TENDKI' AND 'TENDKO' ARE EQUAL TO TEN:DM. b P* b P* INPUT: A6 = DWT ADDRESS b $ P* A8
0x10e5a4…10e738 Dummy {f00=0x005a, f01=0x018e, f02=»A1,DWTMEC,A6 MMU ECB ADDRESS b ( P LD A1,ECBCW2,A1 SECOND CONTROL WORD c $ P ES A1,ECBCW2,A8 c P P RTN A15 c h P* c x P EJECT TOSSIO c P* c P* T E N P C I c P* c D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN c
0x10e738…10e8cc Dummy {f00=0x005a, f01=0x0190, f02=» P* TO THE USER BUFFER. d D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. d " 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. d j P* d P* INPUT: A6 = DWT ADDRESS d $ P* A8 = USER ECB ADDRESS d P* d & P* OU
0x10e8cc…10ea60 Dummy {f00=0x005a, f01=0x0190, f02=»D A4,ECBEL,A2 EFFECTIVE LENGTH d " P RF(NP) TEPI30 NO MOVE IF ZERO e & & P LD A1,ECBBA,A2 DWT BUFFER ADDRESS e L P* e v . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' e ( P EL A2,ECBBA,A8 USER BUFFER ADDRESS e $ P LDK A3,1 CHECK BUFFER ADDRESSES e P T
0x10ea60…10ebf4 (2, 91) Dummy {f00=0x005a, f01=0x018e, f02=»ADDRESS EVEN e v P* f P EJECT TOSSIO f P* f 6 P* f @ 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN f J 0 P LDR* A3,A1 FIRST CHARACTER FROM DWT BUFFER f P ELR A8,A2 f P* f * PTEPI15 ANK A3,/FF SKIP LEFT CHARACTER f ( P ANKL A8,/
0x10ebf4…10ed88 Dummy {f00=0x005a, f01=0x0190, f02=» f n P ADK A2,1 g P SUK A4,1 g * P RF(P) TEPI25 MORE CHARACTERS TO MOVE g , P RTN A15 NO, RETURN g Z P* g v PTEPI20 TM A3,A2 g * P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN g " P LDR A3,A1 DWT BUFFER ADDRESS g $ P ADR A3,A4 ADD EFFECTIVE LEN
0x10ed88…10ef1c Dummy {f00=0x005a, f01=0x0190, f02=» NEXT CHARACTER g ~ 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER h * P RB(NE) TEPI23 MORE CHARACTERS TO MOVE h P 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN h ~ P RB TEPI10 h P* h P EJECT TOSSIO h P* h P* h , PTEPI25 LDR A3,
0x10ef1c…10f0b0 Dummy {f00=0x005a, f01=0x0190, f02=»BUFFER h j P* i PTEPI30 RTN A15 i P* i . , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN i 8 ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN i h , P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE i P LDR A8,A4 NO, SAVE A4 i 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER
0x10f0b0…10f244 Dummy {f00=0x005a, f01=0x0190, f02=»DWT BUFFER i p P ELR A3,A2 j P RB TEPI15 j $ P* j 6 . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN j @ " P LDR A3,A1 DWT BUFFER ADDRESS j r $ P ADR A1,A4 ADD EFFECTIVE LENGTH j P* j " PTEPI70 LCR A8,A3 ONE CHARACTER j 6 P SC A8,-1,A3 MOVE THIS C
0x10f244…10f3d8 Dummy {f00=0x005a, f01=0x0190, f02=» MORE CHARACTERS TO MOVE j . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS k * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN k R P RB TEPI25 k P* k P EJECT TOSSIO k P* k P* T E N M X I k P* k PTENMXI EQU A15RTN MUX, INPUT k P* k
0x10f3d8…10f56c Dummy {f00=0x005a, f01=0x0190, f02=»I INTERTASK COMMUNICATION, INPUT k P* l ( P* T E N D K I l 2 P* l H " PTENDKI EQU TEN:DM DISC, INPUT l R P* l x P EJECT TOSSIO l P* l P* T E N P C O l P* l 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT l P* l P* T E
0x10f56c…10f700 Dummy {f00=0x005a, f01=0x0190, f02=», OUTPUT l r P* m P* T E N D K O m P* m 0 " PTENDKO EQU TEN:DM DISC, OUTPUT m : P* m ` P EJECT TOSSIO m j P* m P* T E N I T O m P* m F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN m L P* COMPLETED FOR IN
0x10f700…10f894 (2, 92) Dummy {f00=0x005a, f01=0x018e, f02=» , P* 'TIOPCO' IS USED FOR MOVING THE DATA. n P* n 4 P* INPUT: A6 = DWT ADDRESS n > P* n ` & P* OUTPUT: A1-A4, A8 ARE DESTROYED n j P* n 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT n $ P LD A8,DWTECB,A6 DWT ECB ADDRESS n $ P LD A3,ECBEL,A
0x10f894…10fa28 Dummy {f00=0x005a, f01=0x0190, f02=» n j P* o PTEIO10 RTN A15 o P* o ( P EJECT TOSSIO o 2 P* o J P* D C : M O T o T P* o j < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER o t < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO o < P* THE DRIVER BUFFER.
0x10fa28…10fbbc Dummy {f00=0x005a, f01=0x0190, f02=»* OUTPUT: NO REGISTERS ARE DESTROYED o P* p , , PDC:MOT EQU * DATA COMMUNICATION, OUTPUT p 6 " P MSR 8,A15 SAVE A1-A8 ON STACK p f $ P SUKL A15,32 ADJUST STACKPOINTER p * P TS 2,A15 SAVE MMU REGISTERS ON STACK p " P LD A5,DWTTAB,A6 TTAB ADDRESS p $ P
0x10fbbc…10fd50 Dummy {f00=0x005a, f01=0x0190, f02=» P* q $ PDC:RTN EQU * RETURN TO DC DRIVER q . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK q 6 $ P ADKL A15,32 ADJUST STACKPOINTER q h * P MLR 8,A15 RESTORE A1-A8 FROM STACK... q P RTN A15 ...AND RETURN q P XIF q P* q P EJECT TOSSIO q
0x10fd50…10fee4 Dummy {f00=0x005a, f01=0x0190, f02=»TENTS OF THE DRIVER BUFFER TO THE USER BUFFER. q t P* r 6 P* INPUT: A1 = RETURN CODE r @ ( P* A4 = DRIVER BUFFER ADDRESS r b P* A6 = DWT ADDRESS r P* r ( P* OUTPUT: NO REGISTERS ARE DESTROYED r P* r PDC:MIN EQU * r P IFT
0x10fee4…110078 Dummy {f00=0x005a, f01=0x0190, f02=» SAVE A1-A8 ON STACK r P* s P IFT MMUPAG=1 s & $ P SUKL A15,32 ADJUST STACKPOINTER s < * P TS 2,A15 SAVE MMU REGISTERS ON STACK s d " P LD A5,DWTTAB,A6 TTAB ADDRESS s $ P TL TTB:MT,A5 LOAD MMU REGISTERS s P XIF s P* s P EJECT TOSSIO s
0x110078…11020c Dummy {f00=0x005a, f01=0x0190, f02=»R BUFFER ADDRESS s | P* A6 = DWT ADDRESS t P* t : " PMINMOV EQU * DC:MIN MOVE ENTRY t D P ENB t j P LD A3,DWTECB,A6 ECB ADDRESS t z * P LDR A7,A4 SAVE DRIVER BUFFER ADDRESS t $ P LD A2,ECBEL,A3 EFFECTIVE LENGTH t " P RF(NP) MIN:40 NOTHI
0x11020c…1103a0 Dummy {f00=0x005a, f01=0x0190, f02=»PAG=0 t ( P LD A5,ECBBA,A3 USER BUFFER ADDRESS u P LDR A3,A5 u : ( P ANK A3,1 CHECK USER BUFFER ADDRESS u L . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVEN u x P SUK A2,2 u , P RF(N) MIN:30 ONLY ONE CHARACTER TO MOVE u P* u P EJECT TOSSIO u
0x1103a0…110534 (2, 93) Dummy {f00=0x005b, f01=0x0190, f02=»T BUFFER POINTERS u ~ P ADK A5,2 v $ P SUK A2,2 DECREMENT LOOP COUNTER v , 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE v T P* v PMIN:20 EQU * v P ADK A2,1 v P RF(N) MIN:40 MOVE FINISHED v P* v P* CHARACTER MOVE v P* v
0x110534…1106c8 Dummy {f00=0x005b, f01=0x0190, f02=» $ P SUK A2,1 DECREMENT LOOP COUNTER w 6 P RB(P) MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE w , P XIF w f P* w r P IFT MMUPAG=1 w | * P ST A1,ECBRC,A3 SET RETURN CODE IN ECB w $ P LDR A1,A4 DRIVER BUFFER ADDRESS w P LDR A4,A2 EFFECTIVE LENGTH w
0x1106c8…11085c Dummy {f00=0x005b, f01=0x0190, f02=» A1,0 w P XIF x P* x P EJECT TOSSIO x $ P* x < P* x F PMIN:40 EQU * x P P INH x d " P CF A15,TENDIO PERFORM TENDIO x p P* x P* RELEASE BUFFER x P* x * P LD A3,DWTADR,A6 DRIVER ADDRESS BLOCK x ( P LD A1,POLADR,A3 BUFFER
0x11085c…1109f0 Dummy {f00=0x005b, f01=0x018e, f02=»A1,A2 NEXT BUFFER ADDRESS x , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN y " P* y R $ P* INSERT BUFFER AT END OF CHAIN y P* y ( P SU A4,HDRLEN,A3 REAL BUFFER ADDRESS y " P STR A4,A2 UPDATE QUEUE LINKS y P CMR A4 y P* y PMIN:60 EQU * y
0x1109f0…110b84 Dummy {f00=0x005b, f01=0x018e, f02=» P IFT MMUPAG=0 z P IFT CPU852=0 z * P MLR 8,A15 RESTORE A1-A8 FROM STACK... z 0 P* z ^ PDC:MOT RTN A15 ...AND RETURN z h P XIF z P* z P IFT MMUPAG=1 z " P RB DC:RTN RETURN TO DC DRIVER z P XIF z P* z P* ERROR EXIT z P
0x110b84…110d18 Dummy {f00=0x005b, f01=0x018e, f02=» z n P* { P EJECT TOSSIO { P* { * P* { 4 P IFT MMUPAG=0 { > P IFT CPU852=1 { T PDC:MOT EQU * { j 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS { ~ P XIF { P* { P EJECT TOSSIO { P* { P* { P********** { P
0x110d18…110eac Dummy {f00=0x005b, f01=0x018e, f02=» ( P* - IF I/O AND ACTIVATION REQUEST:- | P* | 0 * P* ACTOTP IS CALLED TO START THE TASK | : P* | h P* -IF NORMAL I/O WITH WAIT:- | r P* | * P* QTJOB IS CALLED TO QUEUE THE TASK | 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- |
0x110eac…111040 Dummy {f00=0x005b, f01=0x0190, f02=» | > P* IF AN EVENT WAS QUEUED FOR THIS DEVICE (DWTTQ NOT ZERO) } J P* THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. } J P* } P EJECT TOSSIO } P* } P* } 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- } P* }
0x111040…1111d4 (2, 94) Dummy {f00=0x005b, f01=0x0190, f02=»NING WITH MMU OPTION SPECIAL DEVICE } * P* DEPENDENT SUBROUTINES ARE PERFORMED. ~ , P* ~ Z P EJECT TOSSIO ~ d P* ~ | P* END I/O ENTRY ~ P* ~ PTENDIO EQU * ~ P IFT CPU852=1 ~ & P CF A15,SAVE8 SAVE A1-A8 ON STACK ~ P XIF ~ P
0x1111d4…111368 Dummy {f00=0x005b, f01=0x0190, f02=» LDR A4,A6 DWT ADDRESS ~ & P ADK A4,DWTST POINT TO DWT STATUS P INH H ( P LD A5,DWTTQ,A6 TERMINAL QUEUE LINK T P RF(Z) TEN110 NO TASK QUEUED P* P IFT ATTDET=1 P LDKL A2,/800 ATTACH BIT P ANR* A2,A4 , P RF(Z) TEN095 DE
0x111368…1114fc Dummy {f00=0x005b, f01=0x0190, f02=» =2 =1 2 P CF A15,FRABLK FREE ATTACH BLOCK AND TIMER =1 P LDR A4,A6 =1 F P ADK A4,DWTST RESTORE A4 =1 P XIF P* P EJECT TOSSIO P* P* PTEN100 EQU * , P LDR* A3,A5 UPDATE QUEUE ANCHOR ADDRESS P S
0x1114fc…111690 Dummy {f00=0x005b, f01=0x0190, f02=»TAB,A6 TTAB ADDRESS FROM DWT P* $ PTEN120 LDKL A2,/8000 . , P ORRS A2,A4 INDICATE DEVICE READY IN DWT J P LDKL A3,/DBFF z ( P ANRS A3,A4 RESET ECHO BIT AND BIT 5 P LD A3,DWTECB,A6 ECB ADDRESS : P RF(Z) TEN260 BRANCH IF ENTERED FROM ECH
0x111690…111824 Dummy {f00=0x005b, f01=0x0190, f02=»A3 SET RETURN CODE IN ECB P* " P IFT MMUPAG=1 , P LD A4,TTB:PW,A5 PSW B " P ANK A4,1 SYSTEM/USER MODE BIT ^ P RF(Z) TEN200 SYSTEM MODE P* P* LOAD MMU REGISTERS P* PTEN130 EQU * $ P SUKL A15,32 ADJUST STACKPOINT
0x111824…1119b8 Dummy {f00=0x005b, f01=0x018e, f02=» P* P* MOVE DWT ECB TO USER ECB P* 0 & P LD A8,DWTUEC,A6 USER ECB ADDRESS : P ELR A4,A8 d * P ORR A4,A2 SET EVENT COMPLETED IN ECB v P ESR A4,A8 P LDR A1,A3 P ADK A1,ECBEL P LDR A2,A8 P ADK A2,ECBEL P L
0x1119b8…111b4c Dummy {f00=0x005b, f01=0x0190, f02=» " P LD A3,DEVIND,A3 DEVICE INDEX , P RF(N) TEN160 NO SPECIAL ACTION REQUIRED * " P RF(Z) TEN140 DATA MANAGEMENT Z P CWK A3,DK:DIX CHECK IF DISC P RF(E) TEN140 DISC P* " P* PERFORM CHECK ON ORDER CODE P* , P CF A15,RD:WR CH
0x111b4c…111ce0 Dummy {f00=0x005b, f01=0x0190, f02=»TAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* 4 P EJECT TOSSIO > P* V P* RESTORE MMU REGISTERS ` P* PTEN150 EQU * P INH P* PTEN160 EQU * . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK $ P ADKL A15,32 A
0x111ce0…111e74 (2, 95) Dummy {f00=0x005b, f01=0x0190, f02=» Z P* PTEN200 EQU * , P LD A4,DWTWAT,A6 WAIT/ACTIVATE INDICATOR & ( P RF(Z) TEN250 NOT WAIT OR ACTIVATION V P SUK A4,1 P RF(Z) TEN240 WAIT P ADK A4,1 P LDR A3,A4 P ANK A3,1 P RF(Z) TEN270 ACTIVATION P*
0x111e74…112008 Dummy {f00=0x005b, f01=0x0190, f02=» MODE BIT t P RF(Z) TEN210 SYSTEM MODE . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS 4 P XIF f P* r PTEN210 EQU * | 4 P ST A8,TTB:SA+16,A5 SET TO A8 IN TTAB SAVE AREA P* : PTEN220 ADK A4,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR
0x112008…11219c Dummy {f00=0x005b, f01=0x0190, f02=» TOSSIO P* P* WAIT P* * PTEN240 EQU * 4 2 P CF A15,QTJOB WAIT: QUEUE TASK FOR DISPATCHING H P* ~ P* NO WAIT P* PTEN250 EQU * $ P CM DWTECB,A6 RESET ECB ADDRESS P* PTEN260 EQU * P IFT CPU85
0x11219c…112330 Dummy {f00=0x005b, f01=0x4110, f02=»D RETURN P XIF P* P* I/O WITH ACTIVATION & P* D PTEN270 EQU * N 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR b . P CF A15,ACTOT ACTIVATE TASK ON FIFO BASIS P RB TEN250 P* P* P* P END
0x112330…1124c4 Dummy {f00=0x005b, f01=0x2008, f02=» NT TOSSIO END @ &
0x1124c4…112658 Dummy {f00=0x005b, f01=0x40ea, f02=» L H IDENT D:TB10 TRA 11.0 - - F1 O1111 REL 11.0 81-04-08 87015054110 D:TB10 T D:TB10T f * & : z ( $ L : @ *
0x112658…1127ec Dummy {f00=0x005b, f01=0x0190, f02=» L H IDENT C:CB10 TRA 11.0 - - F1 O1111 REL 11.0 81-04-08 87015054110 C:CB10 T C:CB10C f * & ABIDENT NOT OPERABLE z * & * & = * &
0x1127ec…112980 Dummy {f00=0x005b, f01=0x4012, f02=» @ TRA 11.0 - - F1 O1111 REL 11.0 81-04-08 87015054110 C:CB10 T C:CB10C f * & ABIDENT NOT OPERABLE z * & * & = * &
0x112980…112b14 (2, 96) Opaque[0x194]
0x112b14…112ca8 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b78, f03=0x0000}
0x112b14…112ca8 IdxSect {
0x112b14…112ca8 f00 = 0x005b // 0x112b14 @0x0
0x112b14…112ca8 f01 = 0x0012 // 0x112b16 @0x2
0x112b14…112ca8 gno = [ // 0x112b18 @0x4
0x112b14…112ca8 [0x00]: C0x005b.0x3.0
0x112b14…112ca8 [0x01]: C0x005c.0x0.0
0x112b14…112ca8 [0x02]: C0x005c.0x1.0
0x112b14…112ca8 [0x03]: C0x005c.0x2.0
0x112b14…112ca8 [0x04]: C0x005c.0x3.0
0x112b14…112ca8 [0x05]: C0x005d.0x0.0
0x112b14…112ca8 [0x06]: C0x005d.0x1.0
0x112b14…112ca8 [0x07]: C0x005d.0x2.0
0x112b14…112ca8 [0x08]: C0x005d.0x3.0
0x112b14…112ca8 ]
0x112b14…112ca8 }
0x112ca8…112e3c Dummy {f00=0x005b, f01=0x0190, f02=» 2 P IDENT LDTASK REL 11.0 81-06-10 870105041100 P : P =2,REL 11.0 81-01-26 B 2 P =2,END OF RELOC. CHECK FAILS (SPECIAL CASE) b " P =1,PRR 11.0 80-06-12 BOFE & P =1,CHECK FOR END OF RELOCATION P* 6 P**********************
0x112e3c…112fd0 Dummy {f00=0x005b, f01=0x0190, f02=»* P* P* 6 P************************************************** P* X P* b * P* THIS MODULE CONTAINS THE LOAD TASK l , P* FOR TOSS MEMORY MANAGEMENT SYSTEMS. P* & P* IT CONTAINS TWO ENTRY POINTS: P* . P
0x112fd0…113164 Dummy {f00=0x005b, f01=0x0190, f02=» LDTASK P* P* P*********** & P* ENTRIES * : P*********** N P* b P* l $ P ENTRY LT:DSK DISC PAGING ENTRY v , P ENTRY LT:SWB SWAPPABLE WORK BLOCK ENTRY P ENTRY TTABLD LOAD TASK TTAB 2 P ENTRY QLTDSK ACTIVATE
0x113164…1132f8 Dummy {f00=0x005b, f01=0x0190, f02=»B LDTASK ECB AREA P ENTRY LD:BUF LDTASK BUFFER P ENTRY LD:BUE END OF BUFFER > ( P ENTRY PQEMTY PAGE QUEUE EMPTY FLAG b $ P ENTRY LD:STB LDTASK STACK BASE P EJECT LDTASK P* P* P************* P* EXTERNALS *
0x1132f8…11348c Dummy {f00=0x005b, f01=0x0190, f02=» EXTRN QMEXIT QUEUE TASK AND EXIT MONITOR TASK 4 P EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR 6 P EXTRN ACTOT ACTIVATE TASK n P EXTRN RELPA2 RELEASE PAGE " P EXTRN PAGQUE FREE PAGE QUEUE & P EXTRN PAG:QB QUEUE LINK BACKWARDS P EXTRN
0x11348c…113620 Dummy {f00=0x005b, f01=0x0190, f02=»S p P EXTRN SEG:EL SEGMENT LENGTH $ P EXTRN SEG:PB PAGE BLOCK ADDRESS . 4 P EXTRN SWB:DS DISC SECTOR ADDRESS OF FIRST COPY V $ P EXTRN SWB:EL SWB LENGTH (BYTES) & P EXTRN SWB:NS SWB LENGTH (SECTORS) $ P EXTRN ECBBA ECB BUFFER ADDRESS & P
0x113620…1137b4 (2, 97) Dummy {f00=0x005c, f01=0x0190, f02=»B CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 P EXTRN TTB:AP ACB ADDRESS @ P EXTRN TTB:SA TTAB SAVE AREA b P EXTRN TTB:MT MMU TABLE & P EXTRN TTB:CB CURRENT SEGMENT BASE P EXTRN TTB:SP SEGTAB ADDRESS P EJECT LDTASK
0x1137b4…113948 Dummy {f00=0x005c, f01=0x0190, f02=»ES l P EJECT LDTASK P* " P* , . P***************************************** 6 P* h P* CONDITIONAL ASSEMBLY r P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P
0x113948…113adc Dummy {f00=0x005c, f01=0x0190, f02=»NSTRUCTION h . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* D PCPU852 EQU 0 N P* b P* l 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK v 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* PSWPBLK EQU 0 P*
0x113adc…113c70 Dummy {f00=0x005c, f01=0x018e, f02=»0 PCPU857 EQU X:B P* P EJECT LDTASK * P* B P* L 4 P* A PROGRAM VERSION USING TOSS ASSEMBLER PAGING V * P* IS OBTAINED BY SETTING ASMPAG EQU 1. P* PX:C EQU 0 PASMPAG EQU X:C P* P EJECT LDTASK
0x113c70…113e04 Dummy {f00=0x005c, f01=0x0190, f02=» p P* P* . PLD:ECB DATA 0,0,0,0,0,0,0 LDTASK ECB AREA P* N 4 PLD:BUF RES 128 INTERMEDIATE BUFFER FOR LOAD TASK X PLD:BUE EQU * END OF BUFFER P* $ P RES 4 LDTASK STACK (TWO LEVELS) ( PLD:STB EQU *-2 LOAD TASK STACK BASE
0x113e04…113f98 Dummy {f00=0x005c, f01=0x0190, f02=» P XIF P* P EJECT LDTASK P* 2 P* < P********** F P* TTABLD * X P********** j P* | P* LDTASK TTAB P* P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE P XIF P* ( P DATA 0 CURRENT SEGMEN
0x113f98…11412c Dummy {f00=0x005c, f01=0x0190, f02=»UMMY) z P* PTTABLD EQU * TTABLD ENTRY " P DATA 0 DISPATCHER QUEUE LINK : " P DATA '#L' TASK IDENTIFICATION ` P DATA 49 PRIORITY LEVEL P DATA 0 PENDING POINTER * P DATA /C4C0 PSW (PROGRAM STATUS WORD) P DATA 0 DISPATCH ADD
0x11412c…1142c0 Dummy {f00=0x005c, f01=0x0190, f02=»* P EJECT LDTASK P* " P* , P********** 6 P* LT:SWB * H P********** Z P* l P* v D P* LT:SWB HANDLES THE LOADING/STORING OF SWAPPABLE WORK BLOCKS. P* 2 P* INPUT: A1 = SWAPPABLE WORK BLOCK ADDRESS 2 P
0x1142c0…114454 (2, 98) Dummy {f00=0x005c, f01=0x0190, f02=»NDLING ENTRY v P IFT SWPBLK=1 P IFT MMUPAG=1 * P INH @ ( P LDKL A5,TTABLD LDTASK TTAB ADDRESS L , P TL TTB:MT,A3 LOAD MMU WITH CALLING TASK x , P TS TTB:MT,A5 STORE IN LDTASK MMU TABLE P ENB P XIF P* P IFT SWPBLK=1
0x114454…1145e8 Dummy {f00=0x005c, f01=0x0190, f02=»K) f * P LDR* A3,A1 DISC ADDRESS OF FIRST COPY P ANK A3,/FF 8 P LD A4,SWB:DS,A1 L , P LD A6,SWB:EL,A1 SWB COPY LENGTH (BYTES) d . P LD A2,SWB:NS,A1 SWB COPY LENGTH (SECTORS) P* P EJECT LDTASK P* , P* COMPUTE DISC ADDRESS
0x1145e8…11477c Dummy {f00=0x005c, f01=0x0190, f02=»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:15 OVERFLOW x P RB LTS:10 P* $ PLTS:15 EQU * OVERFLOW CORRECTION P ADK A3,1 P ANKL A4,/7FFF P RB LT
0x11477c…114910 Dummy {f00=0x005c, f01=0x0190, f02=»WPBLK=1 P IFT CPU852=0 P MUR A1 & P DAR A3 6 P XIF F P* R P EJECT LDTASK P* t P* ~ P IFT SWPBLK=1 0 P LD A3,TTB:SA+16,A5 MEMORY ADDRESS (LOGICAL) P ADK A6,1 P LDR A4,A6 & P LD A12,SCTIPL SWB
0x114910…114aa4 Dummy {f00=0x005c, f01=0x0190, f02=»RMEDIATE BUFFER j P LDK A7,/95 PHYSICAL WRITE P RF LTSWB2 STORE SWB : P XIF V P* b P EJECT LDTASK l P* P* P********** P* LT:DSK * P********** P* P* D P* LT:DSK PERFORMS LOADING OF DISC RE
0x114aa4…114c38 Dummy {f00=0x005c, f01=0x0190, f02=» b P* P* * PLT:DSK EQU * LDTASK DISC PAGING ENTRY , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK J P LDR* A2,A1 SEGMENT STATUS z . P RF(NN) LTD:05 SEGMENT NOT LOADED IN CORE P* 2 P* UPDATE MMU TABLE FOR CALLING TASK (IF MMU),
0x114c38…114dcc Dummy {f00=0x005c, f01=0x0190, f02=» CF A15,TLSEG1 , P LDR A5,A7 TTAB ADDRESS OF CALLING TASK * P ABL QMEXIT QUEUE TASK AND EXIT LDTASK F P* t P EJECT LDTASK ~ P* 6 P* NO PAGE AVAILABLE. PAUSE LDTASK UNTIL RESTARTED * P* BY RELPAG WHEN PAGE AVAILABLE AGAIN. P
0x114dcc…114f60 Dummy {f00=0x005c, f01=0x0190, f02=» RECENTLY USED PAGE FROM PAGQUE P* ( PLTD:05 EQU * 2 P LD A2,PAGQUE+2 F P CWK A2,PAGQUE ^ $ P RB(E) LTD:00 NO PAGE AVAILABLE t P* P EJECT LDTASK P* $ P* TAKE FOUND PAGE OUT OF PAGQUE P* P INH 0 P L
0x114f60…1150f4 (2, 99) Dummy {f00=0x005c, f01=0x0190, f02=»A4 UPDATE QUEUE LINK FORWARD NEXT BLOCK 0 P CMR A2 RESET QUEUE LINK FORWARD THIS BLOCK 0 . P LD A4,PAG:SB,A2 OLD SEGMENT BLOCK ADDRESS d P RF(Z) LTD:10 P LDKL A6,/7FFF 4 P ANRS A6,A4 INDICATE SEGMENT NOT LOADED ANYMORE P* P* CO
0x1150f4…115288 Dummy {f00=0x005c, f01=0x0190, f02=»EW SEGMENT BLOCK ADDRESS z P* P IFT MMUPAG=1 * P* @ 2 P* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK J P* ( P LDKL A3,TTABLD LDTASK TTAB ADDRESS 2 P MS 5,TTB:SA+2,A3 SAVE A1-A5 IN TTAB SAVE AREA , P TL TTB:MT,A5 LOAD MMU WITH
0x115288…11541c Dummy {f00=0x005c, f01=0x0190, f02=»A3 $ P LD A1,TTB:AP,A5 GET ACB ADDRESS , P ST A1,TTB:AP,A3 STORE IN LDTASK'S TTAB 2 P LDR A1,A2 b " P LDR A5,A3 LDTASK TTAB ADDRESS t . P CF A15,TLSEG2 UPDATE MMU TABLE FOR LDTASK 6 P TS TTB:MT,A5 STORE NEW MMU TABLE FOR CALLING TASK P X
0x11541c…1155b0 Dummy {f00=0x005c, f01=0x0190, f02=»E ADDRESS (PHYSICAL) | P LD A4,SCTPSZ PAGE SIZE $ P LD A6,SEG:EL,A1 SEGMENT LENGTH < * P LDR A9,A1 SAVE SEGMENT BLOCK ADDRESS d $ P LD A12,TTB:SP,A5 SEGTAB ADDRESS . P LD A12,SEG:FC,A12 SEGMENT DISC FILE CODE P* P IFT CPU852=1
0x1155b0…115744 Dummy {f00=0x005c, f01=0x0190, f02=»ADDRESS z P XIF P* P IFT MMUPAG=0 & 2 P ST* A3,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE < P XIF r P* ~ P EJECT LDTASK P* P* P IFT SWPBLK=1 P* P* P********** P* LTSWB1 * P* LTSW
0x115744…1158d8 Dummy {f00=0x005c, f01=0x0190, f02=»ANDLING IS SIMILAR TO v P* DISC PAGING HANDLING. P* @ 0 P* INPUT: A1 = DISC SECTOR NUMBER, PART 1 J 0 P* A2 = " " " , PART 2 ~ . P* A3 = MEMORY ADDRESS (LOGICAL) & P* A4 = SWB SIZE (BYTES)
0x1158d8…115a6c Dummy {f00=0x005c, f01=0x018e, f02=»WRITE (LTSWB2 ONLY) j N P* A9 = 0 (INDICATES SWB HANDLING BY SETTING SEGBLK ADDRESS = 0) $ P* A12 = DISC FILE CODE n P* P* P XIF P* & PLTSWB1 EQU * ENTRY USED BY LT:SWB P ANK A1,/FF P LDK A7,/9
0x115a6c…115c00 Dummy {f00=0x005c, f01=0x0190, f02=» & P LDR A11,A4 PAGE/SWB SIZE (WORDS) P SRL A6,1 . ( P LDR A10,A6 SEGMENT/SWB SIZE (WORDS) @ P* l P* SET ECB PARAMETERS v P* " P LDKL A8,LD:ECB LD:ECB ADDRESS * P STR A12,A8 SET DISC FILE CODE IN ECB ( P CM ECBEL,A8 RESET EFFEC
0x115c00…115d94 (2, 100) Dummy {f00=0x005c, f01=0x0190, f02=»ECTOR NUMBER IN ECB z P ST A2,ECBCW2,A8 P XIF 4 P* @ P IFT CPU852=0 J , P MS 2,ECBCW1,A8 SET SECTOR NUMBER IN ECB ` P XIF P* P EJECT LDTASK P* P* P IFT MMUPAG=1 P ECR A1,A3 P* P IFT
0x115d94…115f28 Dummy {f00=0x005c, f01=0x0190, f02=»K P* . P* SWB: CONVERT LOGICAL ADDRESS TO PHYSICAL P* F P SRL A1,3 P & P ANK A1,/1E MMUTAB INDEX (5 BITS) b P ADR A1,A5 ADD TTAB ADDRESS * P LC A1,TTB:MT,A1 PHYSICAL PAGE ADDRESS P LDR A2,A1 P ANK A2,/3C P SRC
0x115f28…1160bc Dummy {f00=0x005c, f01=0x0190, f02=»* 2 P* SEGMENT: CONVERT PHYSICAL ADDRESS TO LOGICAL P* @ P SLL A3,2 J P LD A2,TTB:AP,A5 ACB ADDRESS P LDR A12,A3 6 P ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL P OR A12,ACBLAP,A2 P* PLTD:40 EQU * P S
0x1160bc…116250 Dummy {f00=0x005c, f01=0x0190, f02=»SET BUFFER ADDRESS P* ! P IFT SWPBLK=1 ! $ 0 P LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) ! : P RF(Z) LTD:45 SWB HANDLING ! n P XIF ! P* ! P IFT ASMPAG=1 ! P LDR* A1,A9 SEGMENT STATUS ! ( P SLL A1,1 CHECK IF ASSEMBLER SEGMENT ! (
0x116250…1163e4 Dummy {f00=0x005c, f01=0x0190, f02=»CCESSARY ! r P* " PLTD:45 EQU * " . P ADKL A10,127 NEXT HIGHER MULTIPLE OF 128 " . P ANKL A10,/7F80 " ` . P SUR A4,A10 CHECK IF PAGE IS LARGE ENOUGH " x * P RF(NN) LTD:50 OK, JUST ONE LKM NEEDED " P LDR A10,A6 " . P ANKL A10,/7F80 NEXT LOWER M
0x1163e4…116578 Dummy {f00=0x005c, f01=0x0190, f02=»TO BYTES " t , P RF(Z) LTD:55 INTERMEDIATE BUFFER NEEDED # 0 P ST A10,ECBRL,A8 SET REQUESTED LENGTH IN ECB # @ P* # t P EJECT LDTASK # ~ P* # P* READ/WRITE SEGMENT SWB # P* # ( P CF A14,LD:IO READ/WRITE SEGMENT/SWB # 2 P ADK A6,0 CHECK IF
0x116578…11670c Dummy {f00=0x005c, f01=0x0190, f02=»D AND MOVE LAST PART OF SEGMENT/SWB # ~ P* $ , 4 P* COMMON EXIT FOR DISC PAGING, ASSEMBLER PAGING $ 6 2 P* AND SWAPPABLE WORK BLOCK HANDLING REQUESTS. $ n P* $ PLDEXIT EQU * $ P IFT SWPBLK=1 $ 0 P LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) $
0x11670c…1168a0 Dummy {f00=0x005c, f01=0x0190, f02=» EQU * $ P ORRS A4,A9 % P* % " PLDEXI3 EQU * % , * P ABL QMEXIT QUEUE TASK AND EXIT LDTASK % @ P* % n P EJECT LDTASK % x P* % P* % P********** % P* LD:IO * % P********** % P* % P* % < P* LDTASK I/O ROUTINE FOR
0x1168a0…116a34 (2, 101) Dummy {f00=0x005d, f01=0x0190, f02=»GAIN. CREDIT APPLICATIONS % n 8 P* ARE RESTARTED AT THE SPECIFIED REENTER ADDRESS. & " P* & ^ 2 P* INPUT: A5 = TTAB ADDRESS OF CALLING TASK & h P* A7 = ORDER CODE & P* A8 = LD:ECB ADDRESS & ( P* A9 = SEGBLK ADDRESS (=0 IF SWB) & P*
0x116a34…116bc8 Dummy {f00=0x005d, f01=0x0190, f02=» CODE AND ABORT IF ERROR & P* ' P LD A2,ECBRC,A8 RETURN CODE ' * " P ANKL A2,/FEFF SKIP RETRY BIT ' N P RF(NZ) LDIO10 DISC ERROR ' t P RTN A14 NO, RETURN ' P* ' P EJECT LDTASK ' P* ' 2 P* ERROR: SET RETURN CODE IN A7 OF CALLING
0x116bc8…116d5c Dummy {f00=0x005d, f01=0x0190, f02=»ET RETURN CODE IN A7 ' z P* ( P IFT SWPBLK=1 ( & 0 P LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) ( < P RB(Z) LDEXI3 SWB HANDLING ( p P XIF ( P* ( " P* INSERT PAGE IN PAGQUE AGAIN ( P* ( ( P LD A3,SEG:PB,A9 PAGE BLOCK ADDRESS ( P INH
0x116d5c…116ef0 Dummy {f00=0x005d, f01=0x0190, f02=»ER SEGMENT ( v ( P RF(N) LDIO20 YES, ASSEMBLER SEGMENT ) P XIF ) > P* ) J 2 P LD* A4,TTB:AP,A5 APPLICATION RESTART ADDRESS ) T . P ST A4,TTB:SA,A5 SET NEW DISPATCH ADDRESS ) P* ) PLDIO20 EQU * ) $ P LDKL A4,/100 SEGMENT ERROR BIT ) P RB LD
0x116ef0…117084 Dummy {f00=0x005d, f01=0x0190, f02=» ) P********** * P* * P* * $ 6 P* THIS ENTRY IS CALLED FROM THE LDTASK MAIN FLOW * . 8 P* WHEN LOADING OF AN ASSEMBLER SEGMENT IS WANTED. * h 2 P* ASSPAG WILL READ ONE SECTOR AT A TIME AND * * P* PERFORM THE NECESSARY RELOCATIONS. * P
0x117084…117218 Dummy {f00=0x005d, f01=0x018e, f02=»SS * z P* A9 = SEGBLK ADDRESS + $ P* A10 = SEGMENT LENGTH (WORDS) + * P* A11 = PAGE SIZE (WORDS) + R , P* A12 = PAGE ADDRESS (RELOCATION BASE) + v P* + P* + ( PASSPAG EQU * ASSEMBLER PAGING ENTRY + P LDK A1,1 + , P SC A1,ECBRL,A8
0x117218…1173ac Dummy {f00=0x005d, f01=0x0190, f02=» P EJECT LDTASK , P* , P* , & P IFT ASMPAG=1 , 0 P* , F . P* PREPARE FOR RELOCATION OF ONE SECTOR AND , P 4 P* CHECK REMAINING PAGE SIZE. IF NOT LARGE ENOUGH , 6 P* THEN READ (LAST) SECTOR TO INTERMEDIATE BUFFER, , 2 P* ELSE READ SECTOR D
0x1173ac…117540 Dummy {f00=0x005d, f01=0x0190, f02=»SEGMENT POINTER , P* - P XIF - " P* - . P IFT ASMPAG=1 - 8 P IFT MMUPAG=1 - N . P LD A1,LD:LAD GET LOGICAL ADDRESS POINTER - d P XIF - P* - P IFT ASMPAG=1 - * P CWK A11,128 CHECK REMAINING PAGE SIZE - , P RF(L) ASS:85 INTERMEDIA
0x117540…1176d4 (2, 102) Dummy {f00=0x005d, f01=0x0190, f02=»ON BITS - l P CWK A10,120 . P RF(NL) ASS:02 . $ P LDR A2,A10 . : P ADR A2,A2 . N P* . ` PASS:02 EQU * . j P ADR A2,A1 . ~ P* . P EJECT LDTASK . P* . " P* RELOCATE ONE SEGMENT SECTOR . P* . PASS:05 EQU * . P SRL A2,
0x1176d4…117868 Dummy {f00=0x005d, f01=0x0190, f02=»ION BITS COUNTER . ~ P* / P IFT MMUPAG=1 / " 2 P LDR A8,A8 CHECK WHERE TO FIND RELOCATION BITS / 8 , P RF(Z) ASS:15 RELOCATION BITS IN LD:BUF / n " P ELR A4,A2 16 RELOCATION BITS / P RF ASS:20 / P XIF / P* / P IFT ASMPAG=1 / PASS:15
0x117868…1179fc Dummy {f00=0x005d, f01=0x0190, f02=»25 EQU * / 0 P LDR A6,A3 NUMBER OF RELOCATION BITS TO SKIP 0 P RF ASS:45 0 D P* 0 V P EJECT LDTASK 0 ` P* 0 x P* 0 PASS:30 EQU * 0 * P SLL A4,1 NEXT RELOCATION BIT TO TEST 0 & P RB(Z) ASS:25 NEXT RELOCATION WORD 0 P* 0 PASS:40
0x1179fc…117b90 Dummy {f00=0x005d, f01=0x0190, f02=»* 0 PASS:45 EQU * 1 . P SUR A3,A6 UPDATE RELOCATION BITS COUNTER 1 2 P SRL A1,1 WORD ADDRESS FOR SEGMENT POINTER =1 1 P 0 P ADR A1,A6 UPDATE SEGMENT POINTER (WORD) =1 1 0 P RF(O) ASS:70 ALL RELOCATED,END OF SECTOR =1 1 2 P SLL A1,1 BYTE ADDRESS FOR
0x117b90…117d24 Dummy {f00=0x005d, f01=0x0190, f02=»ORD 1 P* 2 PASS:50 EQU * 2 P IFT MMUPAG=0 2 * $ P ADRS A12,A1 ADD RELOCATION BASE 2 @ P XIF 2 h P* 2 t P IFT ASMPAG=1 2 ~ P IFT MMUPAG=1 2 P ELR A6,A1 WORD TO RELOCATE 2 $ P ADR A6,A12 ADD RELOCATION BASE 2 $ P ESR A6,A1 STORE R
0x117d24…117eb8 Dummy {f00=0x005d, f01=0x0190, f02=»F SECTOR OR IF NEW RELOCATION WORD NEEDED 2 P* 3 2 PASS:60 EQU * 3 < P LDR A6,A1 SEGMENT POINTER 3 P P SRL A6,1 WORD ADDRESS 3 r 4 P SUR A6,A13 COMPARE WITH END OF REL. ADDRESS =2 3 P ADK A6,0 SET CR =2 3 $ P RF(NN) ASS:70 END OF SECTOR =2 3
0x117eb8…11804c Dummy {f00=0x005d, f01=0x0190, f02=»INTER 3 j ( P RB ASS:10 NEXT RELOCATION BITS WORD 4 P* 4 : P EJECT LDTASK 4 D P* 4 . P* RETURN IF SEGMENT LOADING IS COMPLETED, 4 f . P* ELSE PREPARE FOR READING OF NEXT SECTOR. 4 P* 4 PASS:70 EQU * 4 * P SUKL A10,120 DECREMENT SEGMENT
0x11804c…1181e0 Dummy {f00=0x005d, f01=0x018e, f02=»E PAGE ADDRESS 4 z P XIF 5 P* 5 " P IFT ASMPAG=1 5 , P IFT MMUPAG=1 5 B 2 P ADS A4,LD:LAD UPDATE LOGICAL ADDRESS POINTER 5 X P LDK A3,0 5 P MLR 2,A8 BUFFER ADDRESS 5 P SLC A1,4 5 P DLL 1 5 P SRL A2,1 5 P DAR A3 5 P SLL A
0x1181e0…118374 (2, 103) Dummy {f00=0x005d, f01=0x0190, f02=» 5 ~ P* 6 P* 6 P IFT ASMPAG=1 6 * P IM ECBCW2,A8 INCREMENT SECTOR NUMBER 6 2 P RF(O) ASS:80 OVERFLOW 6 ` ( P RB ASS:00 READ NEXT SECTOR TO PAGE 6 ~ P* 6 PASS:80 EQU * 6 & P LDKL A4,/7FFF OVERFLOW CORRECTION 6 P ANS A4,ECBCW2,A8 6
0x118374…118508 Dummy {f00=0x005d, f01=0x0190, f02=»INTERMEDIATE BUFFER. 6 z 0 P* MOVE CODE BUT NOT RELOCATION BITS TO PAGE. 7 P* 7 P PASS:85 EQU * 7 Z . P LDR A13,A10 SAVE REMAINING SEGMENT LENGTH 7 n P LDR A6,A10 7 & P LDR A11,A12 SAVE RELOCATION BASE 7 $ P LDR A12,A1 ACTUAL PAGE ADDRESS 7 6 P S
0x118508…11869c Dummy {f00=0x005d, f01=0x0190, f02=»S OF CODE TO RELOCATE 7 v P LDR A10,A13 8 0 P LDR A2,A13 REMAINING SEGMENT LENGTH (WORDS) 8 2 2 P ADR A2,A2 DISPL. IN SECTOR TO RELOCATION BITS 8 f . P ADKL A2,LD:BUF ADDRESS TO RELOCATION BITS 8 P* 8 P IFT MMUPAG=1 8 2 P SUR A8,A8 INDICATE RELOCA
0x11869c…118830 Dummy {f00=0x005d, f01=0x0190, f02=»TS 8 b 4 P LDR A1,A12 LOGICAL ADDRESS OF CODE TO RELOCATE 9 ( P LDR A12,A11 RESTORE RELOCATION BASE 9 B . P RB ASS:10 RELOCATE LAST SECTOR AND RETURN 9 n P XIF 9 P* 9 P EJECT LDTASK 9 P* 9 P* 9 P********** 9 P* LDSECT * 9 P*
0x118830…1189c4 Dummy {f00=0x005d, f01=0x0190, f02=»RMEDIATE BUFFER 9 r P* : ( P* INPUT: A6 = NO OF WORDS TO MOVE : " $ P* A8 = LD:ECB ADDRESS : N ( P* A9 = SEGBLK ADDRESS (=0 IF SWB) : v 0 P* A10 = EFFECTIVE LENGTH, LAST I/O : B P* A12 = LAST USED PAGE ADDRESS, LOGICAL (
0x1189c4…118b58 Dummy {f00=0x005d, f01=0x0190, f02=»UAL PAGE ADDRESS (LOGICAL) : | , P* A1-A4, A7, A10 ARE DESTROYED ; " P* ; R P* ; PLDSECT EQU * ; f , P ADR A12,A10 UPDATE DESTINATION POINTER ; z P* ; P EJECT LDTASK ; P* ; P* SET ECB PARAMETERS ; P* ; PLDSEC2 EQU *
0x118b58…118cec Dummy {f00=0x005d, f01=0x0190, f02=»ATE BUFFER NOW IN SYSTEM AREA ; P ADK A2,/80 A2 := 256 < & 6 P ST A2,ECBRL,A8 SET REQUESTED LENGTH TO ONE SECTOR < D P LDKL A4,/7FFF < ~ P XIF < P* < P IFT CPU852=0 < P MLK 4 < P DATA LD:BUF,256 < P DATA /80,/7FFF < 2 P SCR A3,A8
0x118cec…118e80 Dummy {f00=0x005d, f01=0x018e, f02=» * P ADS A2,ECBCW2,A8 UPDATE SECTOR NUMBER = P RF(O) LDS:30 OVERFLOW = 2 P* = P PLDS:10 EQU * = Z , P CF A14,LD:IO READ ONE SECTOR TO LD:BUF = n $ P LDR A2,A12 DESTINATION POINTER = & P ADR A6,A6 CONVERT LENGTH TO BYTES = P* = P EJECT LDTAS
0x118e80…119014 (2, 104) Dummy {f00=0x005d, f01=0x018e, f02=» P XIF > P* > PLDS:20 EQU * > P IFT MMUPAG=0 > . P IFT CPU852=1 > D P LDR* A10,A1 MOVE ONE WORD > Z P STR A10,A2 > | ( P ADK A1,2 INCREMENT BUFFER POINTERS > P ADK A2,2 > P SUK A6,2 DECREMENT COUNTER > P RB(P) LDS:20 > P
0x119014…1191a8 Dummy {f00=0x005d, f01=0x018e, f02=» > ( P ADK A1,2 INCREMENT BUFFER POINTERS ? P ADK A2,2 ? 4 P SUK A6,2 DECREMENT COUNTER ? F P RB(P) LDS:20 ? j P XIF ? P* ? P IFT MMUPAG=0 ? P IFT CPU852=0 ? P IFT CPU857=1 ? 2 P MVB A6 MOVE REMAINING PART OF SEGMENT TO PAGE ?
0x1191a8…11933c Dummy {f00=0x005d, f01=0x0190, f02=» ? | P RB LDS:10 @ P* @ P EJECT LDTASK @ $ P* @ < P* @ F P********** @ P P* QLTDSK * @ b P* QLTSWB * @ t P********** @ P* @ P* @ : P* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. @ P* @ : P* ACTIVATION IS AT
0x11933c…1194d0 Dummy {f00=0x005d, f01=0x018e, f02=» = SEGMENT BLOCK ADDRESS (LT:DSK) @ 6 P* = SWAPPABLE WORK BLOCK ADDRESS (LT:SWB) A * 2 P* A3 = TTAB ADDRESS OF CALLING TASK A d * P* A4 = LKM DATA DIRECTIVE (LT:SWB) A P* A $ P* OUTPUT: A2, A5 ARE DESTROYED A P* A P* A
0x1194d0…119664 Dummy {f00=0x005d, f01=0x018e, f02=» P XIF B P* B P IFT SWPBLK=0 B 6 P ABL LKMERR INDICATE SYSGEN ERROR AND HALT SYSTEM B 0 P XIF B j P* B v 0 PQLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK B $ P LDKL A2,LT:DSK DISPATCH ADDRESS B P* B P EJECT LDTASK B P* B P
0x119664…1197f8 Dummy {f00=0x005d, f01=0x4014, f02=» P END C @ C P IFT SWPBLK=0 B 6 P ABL LKMERR INDICATE SYSGEN ERROR AND HALT SYSTEM B 0 P XIF B j P* B v 0 PQLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK B $ P LDKL A2,LT:DSK DISPATCH ADDRESS B P* B P EJECT LDTASK B P* B P
0x1197f8…11998c Dummy {f00=0x005d, f01=0x2008, f02=» D 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*
0x11998c…119b20 Dummy {f00=0x005d, f01=0x0190, f02=»NB GIVE OTHER TASKS A CHANCE D P* E & * PTIO260 LDK A5,DWTSB2 LOAD STACK BASE 2 E 0 P ADR A5,A6 E ^ P INH E p & P ABR* A12 GO TO DRIVER ACTIVATION E | P* E P EJECT TOSSIO E P* E P* E P********** E P* SWITCH * E P********
0x119b20…119cb4 (2, 105) Opaque[0x194]
0x119cb4…119e48 # DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bc0, f03=0x0000}
0x119cb4…119e48 IdxSect {
0x119cb4…119e48 f00 = 0x005e // 0x119cb4 @0x0
0x119cb4…119e48 f01 = 0x0004 // 0x119cb6 @0x2
0x119cb4…119e48 gno = [ // 0x119cb8 @0x4
0x119cb4…119e48 [0x00]: C0x005e.0x0.0
0x119cb4…119e48 [0x01]: C0x005e.0x1.0
0x119cb4…119e48 ]
0x119cb4…119e48 }
0x119e48…119fdc Dummy {f00=0x005e, f01=0x0190, f02=» 2 P IDENT ST8000 REL 11.0 81-01-26 870105041100 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* PST8000 EQU * P* P
0x119fdc…11a170 Dummy {f00=0x005e, f01=0x018e, f02=» P DATA ILLINT P DATA ILLINT 6 $ P DATA IHTW 7 @ P DATA IASCUZ 8 Z P DATA IHSOP 9 v P DATA ISLCI P DATA ISLCO P DATA CHRT1 12 P DATA IHMD 13 P
0x11a170…11a304 Dummy {f00=0x005e, f01=0x0190, f02=» P DATA ILLINT 19 P DATA ILLINT 20 P DATA ILLINT 21 < P DATA ILLINT 22 X P DATA ILLINT 23 t P DATA ILLINT 24 P DATA ILLINT 25 P DATA ILLINT 26 P DATA ILLINT 27 P DATA IL
0x11a304…11a498 Dummy {f00=0x005e, f01=0x0190, f02=»A ILLINT 33 P DATA ILLINT 34 P DATA ILLINT 35 4 P DATA ILLINT 36 P P DATA ILLINT 37 l P DATA ILLINT 38 P DATA ILLINT 39 P DATA ILLINT 40 P DATA ILLINT 41 P DATA ILLINT
0x11a498…11a62c Dummy {f00=0x005e, f01=0x0190, f02=» 47 P DATA ILLINT 48 P DATA ILLINT 49 , P DATA ILLINT 50 H P DATA ILLINT 51 d P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56
0x11a62c…11a7c0 Dummy {f00=0x005e, f01=0x4034, f02=» | P DATA ILLINT 62 P END $@ 0LINT 49 , P DATA ILLINT 50 H P DATA ILLINT 51 d P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56
0x11a7c0…11a954 (2, 106) Dummy {f00=0x005e, f01=0x2008, f02=» NT ST8000 79-09-10 JOS * ( * 2 * < * F * P * Z ENTRY ST8000 d ST8000 EQU * z END @
0x11a954…11aae8 Dummy {f00=0x005e, f01=0x0190, f02=»D A1,ECBRL,A8 REQUESTED LENGTH V 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE W & 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE W 6 P CF A15,TIPI05 CHECK AND CORRECT BUFFER ADDRESSES W P CWK A7,1 CHECK ORDER CODE W , P RF(E) TIKB20 NO KEYTA
0x11aae8…11ac7c Dummy {f00=0x005e, f01=0x0190, f02=» P* X P* X P LDR A1,A9 X P ADK A1,8 X * P ADKL A8,12 X < * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS X P P SUKL A8,4 X ~ * P ELR A3,A4 FIRST WORD OF USER KEYTABLE X P ANK A4,1 X * P RF(NZ) TIKB10 KEYTABLE ADDRESS UNEVEN X , P ECR A3,A3
0x11ac7c…11ae10 Dummy {f00=0x005e, f01=0x0190, f02=»KEYTABLE BUFFER SIZE X x P RF(G) IO:ERR TOO SMALL Y P CF A15,TIPO05 Y < & P SUKL A8,8 ADJUST DWT ECB ADDRESS Y R P* Y | PTIKB20 EQU * Y P RTN A15 Y P* Y P EJECT TOSSIO Y P* Y P* T I O I T I Y P* Y 4 PTIOITI EQU A15RTN
0x11ae10…11afa4 Dummy {f00=0x005e, f01=0x0190, f02=» TOSSIO Y P* Z P* T I O P C O Z P* Z 0 B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN Z : > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. Z B P* TIOPCO CHECKS THAT REQUESTED LENGTH DOES NOT EXCEED THE DWT Z D P
0x11afa4…11b138 Dummy {f00=0x005e, f01=0x0190, f02=»ALLED BY 'TENDIO' AT Z t , P* COMPLETION OF THE REQUEST IS 'TENPCO'. [ 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. [ L F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. [ & P* TIOPCO IS ALSO USED BY 'DC:MOT'. [ P* [ P* IN
0x11b138…11b2cc Dummy {f00=0x005e, f01=0x0190, f02=» * PROGRAMMED CHANNEL, OUTPUT [ 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK & $ P LD A3,ECBRL,A8 REQUESTED LENGTH ^ ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE 6 P RF(G) IO:ERR REQ. LENGTH EXCEED
0x11b2cc…11b460 Dummy {f00=0x005e, f01=0x0190, f02=»NTRY POINT USED BY 'TIOKBI' AND 'TENITO' P ADK A3,1 ] 0 . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN ] B ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS ] t & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS ] 0 P ANKL A2,/FFFE MAKE DWT BUFFER ADDRESS EVEN ] P LDR A4,A1
0x11b460…11b5f4 (2, 107) Opaque[0x194]
0x11b5f4…11b788 # DirEnt {nam=»DRND01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bd0, f03=0x0000}
0x11b5f4…11b788 IdxSect {
0x11b5f4…11b788 f00 = 0x005e // 0x11b5f4 @0x0
0x11b5f4…11b788 f01 = 0x001e // 0x11b5f6 @0x2
0x11b5f4…11b788 gno = [ // 0x11b5f8 @0x4
0x11b5f4…11b788 [0x00]: C0x005e.0x2.0
0x11b5f4…11b788 [0x01]: C0x005e.0x3.0
0x11b5f4…11b788 [0x02]: C0x005f.0x0.0
0x11b5f4…11b788 [0x03]: C0x005f.0x1.0
0x11b5f4…11b788 [0x04]: C0x005f.0x2.0
0x11b5f4…11b788 [0x05]: C0x005f.0x3.0
0x11b5f4…11b788 [0x06]: C0x0060.0x0.0
0x11b5f4…11b788 [0x07]: C0x0060.0x1.0
0x11b5f4…11b788 [0x08]: C0x0060.0x2.0
0x11b5f4…11b788 [0x09]: C0x0060.0x3.0
0x11b5f4…11b788 [0x0a]: C0x0061.0x0.0
0x11b5f4…11b788 [0x0b]: C0x0061.0x1.0
0x11b5f4…11b788 [0x0c]: C0x0061.0x2.0
0x11b5f4…11b788 [0x0d]: C0x0061.0x3.0
0x11b5f4…11b788 [0x0e]: C0x0062.0x0.0
0x11b5f4…11b788 ]
0x11b5f4…11b788 }
0x11b788…11b91c Dummy {f00=0x005e, f01=0x0190, f02=» 2 P IDENT DRND01 REL 11.0 81-05-27 870105041100 P : $ P =2, INTERRUPT TABLES INCLUDED B P REL 11.0 81-05-25 j ( P =1, COND. ASS. FOR ONLY SUM-CONN. P REL 11.0 81-01-26 P* P* P* @ P****************************
0x11b91c…11bab0 Dummy {f00=0x005e, f01=0x0190, f02=»RIBUTOR l P* P* P* $ @ P************************************************************ . P* r P* | 6 P* THIS PROGRAM CONTAINS INPUT AND OUTPUT ENTRIES 6 P* CALLED BY TERMINAL DEVICE DRIVERS. AT CALL, IT 6 P* CHECKS CHA
0x11bab0…11bc44 Dummy {f00=0x005e, f01=0x0190, f02=»UCTION MAKES IT p 8 P* POSSIBLE TO HAVE ONLY ONE TERMINAL DEVICE DRIVER 2 P* FOR EACH TERMINAL DEVICE, IRRESPECTIVE OF T 4 P* CONNECTION TYPE. IT IS ALSO POSSIBLE TO USE 6 P* SEVERAL TERMINAL DEVICE CHANNEL UNITS TOGETHER P* IN THE S
0x11bc44…11bdd8 Dummy {f00=0x005e, f01=0x0190, f02=»IVERS ` P* AND LINE DRIVERS. P* , P EJECT 6 P* D : P* THE PROGRAM IS DIVIDED INTO A NUMBER OF SECTIONS. N 4 P* SECTIONS CONTAINING PROGRAM CODE ARE DIVIDED 2 P* INTO ROUTINES. THE ROUTINES ARE LISTED AT 4 P* BEGINNING
0x11bdd8…11bf6c Dummy {f00=0x005e, f01=0x0190, f02=»ENTRIES DECLARE ENTRY POINTS . P* EXTERNALS DECLARE EXTERNAL REFERENCES ( 6 P* CONDITION SET CONDITIONAL ASSEMBLY PARAMETERS Z & P* CONSTANTS SET CONSTANT VALUES P* DATA DATA AREAS P* 4 P* DEVICE DR ROUTINES CALLED BY DEV
0x11bf6c…11c100 Dummy {f00=0x005e, f01=0x0190, f02=»* P*********** P* ( P* TERMINAL DEVICE DRIVER REQUESTS ( P* T ( P ENTRY INPUT INPUT OF ONE CHARACTER ^ ( P ENTRY STABLK DEFINE START OF BLOCK * P ENTRY OUTPUT OUTPUT OF ONE CHARACTER & P ENTRY ENDBLK DEFINE END OF BLOCK
0x11c100…11c294 (2, 108) Dummy {f00=0x005e, f01=0x0190, f02=»ACTER FROM ECB-BUFFER v $ P ENTRY ABORT ABORT INPUT REQUEST P* F P* P . P* TERMINAL DEVICE DRIVER EXIT ROUTINES Z P* 2 P ENTRY LENDER REQUEST ERR, END I/O & DISPATCH $ P ENTRY LENDIS END I/O & DISPATCH P ENTRY LDISP DISPATC
0x11c294…11c428 Dummy {f00=0x005e, f01=0x0190, f02=»ETURN | P ENTRY NDREP POP & RETURN P ENTRY NDRET RETURN 0 P* L P EJECT V P* d & P* LINE DRIVER SERVICE ROUTINES n P* * P ENTRY NDSAV8 SAVE A3-A5, A7-A8 IN DWT , P ENTRY NDGET8 GET A3-A5, A7-A8 FROM DWT 0 P ENTRY N
0x11c428…11c5bc Dummy {f00=0x005e, f01=0x0190, f02=» ( P ENTRY NDGEDW CALCULATE DWT ADDRESS P* 0 P EJECT : P* H " P* INTERRUPT TABLE FOR CHLT R P* x & P ENTRY INTLT1,INTLT2,INTLT3,INTLT4 P* " P* INTERRUPT TABLE FOR CHRT P* & P ENTRY INTRT1,INTRT2,INTRT3,INTRT4
0x11c5bc…11c750 Dummy {f00=0x005e, f01=0x0190, f02=»7,INTSL8 v P* $ P* INTERRUPT TABLE FOR ASCU4Z P* B & P ENTRY INTAS1,INTAS2,INTAS3,INTAS4 L & P ENTRY INTAS5,INTAS6,INTAS7,INTAS8 v P* ( P* INTERRUPT TABLE FOR PLC - LOCAL P* & P ENTRY INTPL1,INTPL2,INTPL3,INTPL4
0x11c750…11c8e4 Dummy {f00=0x005e, f01=0x0190, f02=»ABLE FOR VIDEO P* & P ENTRY INTVU1,INTVU2,INTVU3,INTVU4 & P ENTRY INTVU5,INTVU6,INTVU7,INTVU8 J P* t P EJECT ~ P* P************* P* EXTERNALS * P************* P* P* TOSS ROUTINES P* ( P E
0x11c8e4…11ca78 Dummy {f00=0x005e, f01=0x0190, f02=»I/O REQUEST ~ P* P* * P* REQUEST ROUTINES IN LINE DRIVERS ( P* V P* CHLT ` P* t " P EXTRN LTCHRI CHARACTER INPUT ~ P EXTRN LTSTBL START OF BLOCK " P EXTRN LTCHRO CHARACTER OUTPUT P EXTRN LTENBL END OF BLOCK
0x11ca78…11cc0c Dummy {f00=0x005e, f01=0x018e, f02=»OF BLOCK | " P EXTRN RTCHRO CHARACTER OUTPUT P EXTRN RTENBL END OF BLOCK 6 P EXTRN RTDISP DISPATCH X P* v P EJECT P* P* SALCUZ P* " P EXTRN SLCHRI CHARACTER INPUT P EXTRN SLSTBL START OF BLOCK " P EXTRN
0x11cc0c…11cda0 Dummy {f00=0x005e, f01=0x018e, f02=» " P EXTRN ASCHRI CHARACTER INPUT P EXTRN ASSTBL START OF BLOCK * " P EXTRN ASCHRO CHARACTER OUTPUT N P EXTRN ASENBL END OF BLOCK t P EXTRN ASDISP DISPATCH P* P* FT80 P* " P EXTRN FTCHRI CHARACTER INPUT P EXTRN
0x11cda0…11cf34 (2, 109) Dummy {f00=0x005f, f01=0x0190, f02=» P* PLC - LOCAL P* " " P EXTRN PLCHRI CHARACTER INPUT , P EXTRN PLSTBL START OF BLOCK R " P EXTRN PLCHRO CHARACTER OUTPUT v P EXTRN PLENBL END OF BLOCK P EXTRN PLDISP DISPATCH P* P EJECT P* P* PLC
0x11cf34…11d0c8 Dummy {f00=0x005f, f01=0x0190, f02=» P EXTRN PRENBL END OF BLOCK P EXTRN PRDISP DISPATCH & P* D P* VIDEO N P* b " P EXTRN VUCHRI CHARACTER INPUT l P EXTRN VUSTBL START OF BLOCK " P EXTRN VUCHRO CHARACTER OUTPUT P EXTRN VUENBL END OF BLOCK P EXTRN VUD
0x11d0c8…11d25c Dummy {f00=0x005f, f01=0x0190, f02=»XTRN DWTST STATUS P EXTRN DWTECB ECB ADDRESS P EXTRN DWTOR INDEX AND ORDER < . P EXTRN DWTADR DRIVER ADDRESS BLOCK ADDRESS ` * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR " P EXTRN DWTA3 SAVE AREA FOR A3 " P EXTRN DWTA4 SAVE AREA FOR A4
0x11d25c…11d3f0 Dummy {f00=0x005f, f01=0x0190, f02=»OR A8 x 4 P EXTRN DWTECH DWT ADDRESS OF ECHO OUTPUT DEVICE P* F P* P P* ECB DISPLACEMENTS Z P* x P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LENGTH " P EXTRN ECBEL EFFECTIVE LENGTH P* P* P*
0x11d3f0…11d584 Dummy {f00=0x005f, f01=0x0190, f02=»LOCK b P* P EJECT P* $ P************************ . P* CONDITIONAL ASSEMBLY * N P************************ n P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P*
0x11d584…11d718 Dummy {f00=0x005f, f01=0x0190, f02=»ARE USED IN THE SYSTEM. t ( P* 0 MEANS CHANNEL UNIT IS NOT USED. $ P* 1 MEANS CHANNEL UNIT IS USED. L P* t PX:A EQU 0 ~ PLT EQU 00 CHLT P* PX:B EQU 0 PRT EQU 00 CHRT P* PX:C EQU 0 PSL EQU 00 SALCUZ
0x11d718…11d8ac Dummy {f00=0x005f, f01=0x018e, f02=» EQU 01 PLC - LOCAL P* P EJECT & P* 4 PX:G EQU 0 > PPR EQU 01 PLC - REMOTE P P* n PX:H EQU 0 x PVU EQU 00 VIDEO P* P* * P* ECHO FUNCTION IS INCLUDED IF CECHO=1 P* PX:I EQU 1 PCECHO EQ
0x11d8ac…11da40 Dummy {f00=0x005f, f01=0x0190, f02=» h P* PS1 EQU SL+AS U =1 PS2 EQU S1+FT U =1 , PS3 EQU S2+PL U =1 F PS4 EQU S3+PR U =1 ` PS5 EQU S4+VU U =1 z P* PNTONSU EQU S5 U =1 P* P EJECT P* P************* P* CONSTANTS * P**
0x11da40…11dbd4 (2, 110) Dummy {f00=0x005f, f01=0x0190, f02=»MODE z $ PDWFINP EQU /0020 INPUT REQUESTED P* 4 P* > P* MISCELLANEOUS H P* b 0 PNOTOPR EQU /0001 RETURN CODE "NOT OPERABLE" l 6 PCONFER EQU /0001 RETURN CODE "CONFIGURATION ERROR" 0 PREQERR EQU /8000 RETURN CODE "REQUEST ERROR"
0x11dbd4…11dd68 Dummy {f00=0x005f, f01=0x0190, f02=» P************** P* P IFF NTONSU=0 U =1 $ P* > P* DISPATCH TABLES H P* d P* CHARACTER INPUT n PINPTAB EQU * P IFT LT=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT LT=1 P DATA LTCH
0x11dd68…11defc Dummy {f00=0x005f, f01=0x0190, f02=»FT RT=1 P DATA RTCHRI P XIF $ P IFF NTONSU=0 U =1 0 P* J P IFT SL=0 T P DATA NDRETE f P XIF z P IFF NTONSU=0 U =1 P IFT SL=1 P DATA SLCHRI P XIF P IFF NTONSU=0 U =1 P* P IFT AS=0 P
0x11defc…11e090 Dummy {f00=0x005f, f01=0x0190, f02=» P IFT FT=0 P DATA NDRETE P XIF . P IFF NTONSU=0 U =1 : P IFT FT=1 T P DATA FTCHRI f P XIF z P IFF NTONSU=0 U =1 P* P IFT PL=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT PL=1 P
0x11e090…11e224 Dummy {f00=0x005f, f01=0x0190, f02=» ~ P IFT PR=1 P DATA PRCHRI P XIF . P IFF NTONSU=0 U =1 : P* T P IFT VU=0 ^ P DATA NDRETE p P XIF P IFF NTONSU=0 U =1 P IFT VU=1 P DATA VUCHRI P XIF P IFF NTONSU=0 U =1 PDTABLN EQU *-INPTA
0x11e224…11e3b8 Dummy {f00=0x005f, f01=0x0190, f02=»TONSU=0 U =1 P IFT LT=1 P DATA LTSTBL & P XIF : P IFF NTONSU=0 U =1 F P* ` P IFT RT=0 j P DATA NDRETE | P XIF P IFF NTONSU=0 U =1 P IFT RT=1 P DATA RTSTBL P XIF P IFF NTONSU=0 U =1 P*
0x11e3b8…11e54c Dummy {f00=0x005f, f01=0x0190, f02=»TONSU=0 U =1 P* P IFT AS=0 P DATA NDRETE 0 P XIF D P IFF NTONSU=0 U =1 P P IFT AS=1 j P DATA ASSTBL | P XIF P IFF NTONSU=0 U =1 P* P IFT FT=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1
0x11e54c…11e6e0 Dummy {f00=0x005f, f01=0x0190, f02=» P IFF NTONSU=0 U =1 P IFT PL=1 P DATA PLSTBL 0 P XIF D P IFF NTONSU=0 U =1 P P* j P IFT PR=0 t P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT PR=1 P DATA PRSTBL P XIF P IFF NTONSU=0 U =1
0x11e6e0…11e874 (2, 111) Dummy {f00=0x005f, f01=0x0190, f02=» P IFF NTONSU=0 U =1 P* P* ( P* CHARACTER OUTPUT 2 POUPTAB EQU * R P IFT LT=0 f P DATA NDRETE x P XIF P IFF NTONSU=0 U =1 P IFT LT=1 P DATA LTCHRO P XIF P IFF NTONSU=0 U =1 P* P
0x11e874…11ea08 Dummy {f00=0x005f, f01=0x0190, f02=»U=0 U =1 P* P IFT SL=0 P DATA NDRETE , P XIF @ P IFF NTONSU=0 U =1 L P IFT SL=1 f P DATA SLCHRO x P XIF P IFF NTONSU=0 U =1 P* P IFT AS=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P
0x11ea08…11eb9c Dummy {f00=0x005f, f01=0x0190, f02=» IFF NTONSU=0 U =1 P IFT FT=1 P DATA FTCHRO , P XIF @ P IFF NTONSU=0 U =1 L P* f P IFT PL=0 p P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT PL=1 P DATA PLCHRO P XIF P IFF NTONSU=0 U =1 P
0x11eb9c…11ed30 Dummy {f00=0x005f, f01=0x0190, f02=» IFF NTONSU=0 U =1 P* ! P IFT VU=0 ! $ P DATA NDRETE ! 6 P XIF ! J P IFF NTONSU=0 U =1 ! V P IFT VU=1 ! p P DATA VUCHRO ! P XIF ! P IFF NTONSU=0 U =1 ! P* ! P* ! P* END OF BLOCK ! PENBTAB EQU * ! P IFT LT=
0x11ed30…11eec4 Dummy {f00=0x005f, f01=0x0190, f02=» ! ~ P* " P IFT RT=0 " P DATA NDRETE " $ P XIF " 8 P IFF NTONSU=0 U =1 " D P IFT RT=1 " ^ P DATA RTENBL " p P XIF " P IFF NTONSU=0 U =1 " P* " P IFT SL=0 " P DATA NDRETE " P XIF " P IFF NTONSU=0 U =1 " P IFT SL=
0x11eec4…11f058 Dummy {f00=0x005f, f01=0x0190, f02=»NSU=0 U =1 " P IFT AS=1 # P DATA ASENBL # $ P XIF # 8 P IFF NTONSU=0 U =1 # D P* # ^ P IFT FT=0 # h P DATA NDRETE # z P XIF # P IFF NTONSU=0 U =1 # P IFT FT=1 # P DATA FTENBL # P XIF # P IFF NTONSU=0 U =1 # P* #
0x11f058…11f1ec Dummy {f00=0x005f, f01=0x0190, f02=»NSU=0 U =1 # P* $ P IFT PR=0 $ P DATA NDRETE $ . P XIF $ B P IFF NTONSU=0 U =1 $ N P IFT PR=1 $ h P DATA PRENBL $ z P XIF $ P IFF NTONSU=0 U =1 $ P* $ P IFT VU=0 $ P DATA NDRETE $ P XIF $ P IFF NTONSU=0 U =1 $
0x11f1ec…11f380 Dummy {f00=0x005f, f01=0x0190, f02=»QU * $ P IFT LT=0 % P DATA TDISP % P XIF % 2 P IFF NTONSU=0 U =1 % > P IFT LT=1 % X P DATA LTDISP % j P XIF % ~ P IFF NTONSU=0 U =1 % P* % P IFT RT=0 % P DATA TDISP % P XIF % P IFF NTONSU=0 U =1 % P IFT RT=1 %
0x11f380…11f514 (2, 112) Dummy {f00=0x005f, f01=0x0190, f02=»U =1 % P IFT SL=1 & P DATA SLDISP & P XIF & 2 P IFF NTONSU=0 U =1 & > P* & X P IFT AS=0 & b P DATA TDISP & t P XIF & P IFF NTONSU=0 U =1 & P IFT AS=1 & P DATA ASDISP & P XIF & P IFF NTONSU=0 U =1 & P* & P IFT
0x11f514…11f6a8 Dummy {f00=0x005f, f01=0x0190, f02=»U =1 & P* ' P IFT PL=0 ' P DATA TDISP ' ( P XIF ' < P IFF NTONSU=0 U =1 ' H P IFT PL=1 ' b P DATA PLDISP ' t P XIF ' P IFF NTONSU=0 U =1 ' P* ' P IFT PR=0 ' P DATA TDISP ' P XIF ' P IFF NTONSU=0 U =1 ' P IFT
0x11f6a8…11f83c Dummy {f00=0x005f, f01=0x0190, f02=» NTONSU=0 U =1 ' P IFT VU=1 ( P DATA VUDISP ( ( P XIF ( < P* ( H P EJECT ( R P* ( ` P* INTERRUPT TABLES ( j P* ( P IFT LT=0 U =2 ( P* DUMMY ENTRIES CHLT ( PINTLT1 EQU * U =2 ( PINTLT2 EQU * U =2 ( PINTLT3 EQU *
0x11f83c…11f9d0 Dummy {f00=0x005f, f01=0x018e, f02=»T2 DATA 0 U =2 ( PINTLT3 DATA 0 U =2 ) PINTLT4 DATA 0 U =2 ) 0 P XIF U =2 ) J P* ) P IFT RT=0 U =2 ) f P* DUMMY ENTRIES CHRT ) | PINTRT1 EQU * U =2 ) PINTRT2 EQU * U =2 ) PINTRT3 EQU * U =2 ) PINTRT4 EQU * U =2 ) P XIF
0x11f9d0…11fb64 Dummy {f00=0x005f, f01=0x0190, f02=» ) | PINTRT4 DATA 0 U =2 * P XIF U =2 * " P* * 4 P IFT SL=0 U =2 * > P* DUMMY ENTRIES SALCUZ * T PINTSL1 EQU * * t PINTSL2 EQU * U =2 * PINTSL3 EQU * U =2 * PINTSL4 EQU * U =2 * PINTSL5 EQU * U =2 * PINTSL6 EQU * U =2 *
0x11fb64…11fcf8 Dummy {f00=0x005f, f01=0x0190, f02=»0 U =2 * PINTSL2 DATA 0 U =2 + PINTSL3 DATA 0 U =2 + ( PINTSL4 DATA 0 U =2 + B PINTSL5 DATA 0 U =2 + PINTSL6 DATA 0 U =2 + v PINTSL7 DATA 0 U =2 + PINTSL8 DATA 0 U =2 + P XIF U =2 + P* + P IFT AS=0 U =2 + P* DUMMY ENTRIES
0x11fcf8…11fe8c Dummy {f00=0x005f, f01=0x0190, f02=» + ~ PINTAS6 EQU * U =2 , PINTAS7 EQU * U =2 , " PINTAS8 EQU * U =2 , < P XIF U =2 , V P* , h P IFT AS=1 U =2 , r P* ASCU4Z , PINTAS1 DATA 0 U =2 , PINTAS2 DATA 0 U =2 , PINTAS3 DATA 0 U =2 , PINTAS4 DATA 0 U =2 , PINTA
0x11fe8c…120020 Dummy {f00=0x005f, f01=0x0190, f02=»0 U =2 , " P* DUMMY ENTRIES PLC - LOCAL - PINTPL1 EQU * U =2 - 4 PINTPL2 EQU * U =2 - N PINTPL3 EQU * U =2 - h PINTPL4 EQU * U =2 - P XIF U =2 - P* - P IFT PL=1 U =2 - P* PLC - LOCAL - PINTPL1 DATA 0 U =2 - PINTPL2 D
0x120020…1201b4 (2, 113) Dummy {f00=0x0060, f01=0x0190, f02=»ES PLC - REMOTE - PINTPR1 EQU * U =2 . PINTPR2 EQU * U =2 . 2 PINTPR3 EQU * U =2 . L PINTPR4 EQU * U =2 . f P XIF U =2 . P* . P IFT PR=1 U =2 . P* PLC - REMOTE . PINTPR1 DATA 0 U =2 . PINTPR2 DATA 0 U =2 . PINTPR3 D
0x1201b4…120348 Dummy {f00=0x0060, f01=0x0190, f02=» * U =2 . PINTVU2 EQU * U =2 / PINTVU3 EQU * U =2 / * PINTVU4 EQU * U =2 / D PINTVU5 EQU * U =2 / ^ PINTVU6 EQU * U =2 / x PINTVU7 EQU * U =2 / PINTVU8 EQU * U =2 / P XIF U =2 / P* / P IFT VU=1 U =2 / P* VIDEO /
0x120348…1204dc Dummy {f00=0x0060, f01=0x0190, f02=»U6 DATA 0 U =2 / PINTVU7 DATA 0 U =2 0 PINTVU8 DATA 0 U =2 0 0 P XIF U =2 0 J P* 0 P EJECT 0 f P* 0 t P************************** 0 ~ P* DEVICE DRIVER ROUTINES * 0 P************************** 0 P* 0 B P* THIS SECTION CONTAINS
0x1204dc…120670 Dummy {f00=0x0060, f01=0x0190, f02=»R SWITCH CONTROL TO THE LINE DRIVER TO WHICH 0 | D P* THE DEVICE IS CONNECTED. WHEN THE LINE DRIVER HAS PERFORMED 1 4 D P* THE REQUESTED ACTIONS, IT WILL RETURN TO THE DEVICE DRIVER, 1 | D P* EITHER DIRECTLY OR THROUGH THE TERMINAL NETWORK DISTRIBUTOR 1
0x120670…120804 Dummy {f00=0x0060, f01=0x0190, f02=»RETURN TO THE DEVICE 1 f P* DRIVER. 2 P* 2 0 P* 2 : 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: 2 D P* 2 x P* NAME FUNCTION 2 P* 2 2 P* INPUT FETCH ONE CHARACTER FROM INPUT DEVICE 2 * P* STABLK DEFINE START OF OUTPUT BLOCK 2 0 P
0x120804…120998 Dummy {f00=0x0060, f01=0x0190, f02=» 2 h $ P* ECHRTN RETURN FROM ECHO OUTPUT 3 * P* GETCHR GET CHARACTER FROM ECB BUFFER 3 0 * P* ABORT SET INPUT NO LONGER REQUESTED 3 ^ . P* LDISP DISPATCH AT I/O REQUEST COMPLETED 3 P* 3 P EJECT 3 P* 3 @ P****************************************
0x120998…120b2c Dummy {f00=0x0060, f01=0x018e, f02=» OF ONE CHARACTER 3 t 0 P* FROM A DEVICE TO A TERMINAL DEVICE DRIVER. 4 P* 4 N P* CALL: 4 X P* CF A5,INPUT 4 h P* 4 ~ P* INPUT: 4 P* A5 = LOCAL STACK POINTER 4 P* A6 = DWT ADDRESS 4 P* 4 P* OUTPUT: 4 & P* A1 = BITS 0-14 N
0x120b2c…120cc0 Dummy {f00=0x0060, f01=0x0190, f02=» P* 5 @ P************************************************************ 5 P* 5 R PINPUT EQU * 5 P IFF NTONSU=0 U =1 5 p & P LC A1,DWTCHP,A6 CHANNEL PARAMETER 5 ( P ANK A1,MASKCT CLEAN CONNECTION TYPE 5 P SLA A1,1 MAKE INDEX 5 P CWK A1,DTAB
0x120cc0…120e54 (2, 114) Dummy {f00=0x0060, f01=0x0190, f02=»U =1 5 & P ABL LTCHRI ACTIVATE SUM-DRIVER =1 6 P XIF U =1 6 6 P* 6 H P EJECT 6 R P* 6 ` @ P************************************************************ 6 j P* 6 P* ROUTINE NAME: 6 P* STABLK 6 P* 6 P* FUNCTION: 6 6 P* THIS ROU
0x120e54…120fe8 Dummy {f00=0x0060, f01=0x0190, f02=»OCK VARIES FOR 6 n P* DIFFERENT LINE DRIVERS. 7 P* 7 8 P* CALL: 7 B P* CF A5,STABLK 7 R P* 7 h P* INPUT: 7 r . P* A2 = MAXIMAL NR OF CHARACTERS IN BLOCK 7 P* A5 = LOCAL STACK POINTER 7 P* A6 = DWT ADDRESS 7 P* 7 P* OUTPUT:
0x120fe8…12117c Dummy {f00=0x0060, f01=0x0190, f02=» = CONTENTS OF A1 7 P* 8 @ P************************************************************ 8 $ P* 8 h PSTABLK EQU * 8 r & P LC A1,DWTCHP,A6 CHANNEL PARAMETER 8 P IFF NTONSU=0 U =1 8 ( P ANK A1,MASKCT CLEAN CONNECTION TYPE 8 P SLA A1,1 MAKE IND
0x12117c…121310 Dummy {f00=0x0060, f01=0x0190, f02=» 8 P IFT NTONSU=0 U =1 9 " P ANK A1,1 LOCAL OR REMOTE ? =1 9 " P ABL(Z) LTSTBL LOCAL =1 9 H P ABL RTSTBL REMOTE =1 9 h P XIF U =1 9 P EJECT 9 P* 9 @ P************************************************************ 9 P* 9 P* ROUTINE
0x121310…1214a4 Dummy {f00=0x0060, f01=0x0190, f02=»CE DRIVER TO A DEVICE. 9 z P* : P* CALL: : ( P* CF A5,OUTPUT : 8 P* : N P* INPUT: : X P* A2 = BITS 0-7 IRRELEVANT : h P* BITS 8-15 CHARACTER : P* A5 = LOCAL STACK POINTER : P* A6 = DWT ADDRESS : P* : P* OUTPUT: : P
0x1214a4…121638 Dummy {f00=0x0060, f01=0x0190, f02=»ENTS OF A1 : P* ; @ P************************************************************ ; P* ; ` POUTPUT EQU * ; j P IFF NTONSU=0 U =1 ; ~ & P LC A1,DWTCHP,A6 CHANNEL PARAMETER ; ( P ANK A1,MASKCT CLEAN CONNECTION TYPE ; P SLA A1,1 MAKE INDEX ;
0x121638…1217cc Dummy {f00=0x0060, f01=0x0190, f02=» IFT NTONSU=0 U =1 ; & P ABL LTCHRO ACTIVATE SUM-DRIVER =1 < P XIF U =1 < D P* < V P EJECT < ` P* < n @ P************************************************************ < x P* < P* ROUTINE NAME: < P* ENDBLK < P* < P* FUNCTION: <
0x1217cc…121960 Dummy {f00=0x0060, f01=0x0190, f02=» END OF BLOCK VARIES FOR < z P* DIFFERENT LINE DRIVERS. = P* = B P* CALL: = L P* CF A5,ENDBLK = P* = r P* INPUT: = | P* A5 = LOCAL STACK POINTER = P* A6 = DWT ADDRESS = P* = P* OUTPUT: = P* A1 = RETURN CODE = P* 0
0x121960…121af4 (2, 115) Dummy {f00=0x0060, f01=0x0190, f02=»******************************************************** = P* > @ PENDBLK EQU * > J & P LC A1,DWTCHP,A6 CHANNEL PARAMETER > ^ P IFF NTONSU=0 U =1 > ( P ANK A1,MASKCT CLEAN CONNECTION TYPE > P SLA A1,1 MAKE INDEX > P CWK A1,DTABLN INSIDE LIMIT? >
0x121af4…121c88 Dummy {f00=0x0060, f01=0x018e, f02=»1,1 LOCAL OR REMOTE ? =1 > P ABL(Z) LTENBL LOCAL =1 ? P ABL RTENBL REMOTE =1 ? @ P XIF U =1 ? ^ P* ? p P EJECT ? z P* ? @ P************************************************************ ? P* ? P* ROUTINE NAME: ? P* ECHO ? P*
0x121c88…121e1c Dummy {f00=0x0060, f01=0x0190, f02=» ? d 4 P* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, @ 2 P* LOAD STACKBASE AND FIND ADDRESS @ @ 4 P* TO DEVICE-DEPENDENT ECHO-ROUTINE @ v . P* PART TWO: ECHO ONE OR MORE CHARACTERS @ 2 P* CORRESPONDING TO ONE CHAR
0x121e1c…121fb0 Dummy {f00=0x0060, f01=0x0190, f02=»E DRIVER MODULE CORRESPONDING TO ECHO @ P* OUTPUT DEVICE A . P* A H 4 P* ECHO IS USED WHEN A CHARACTER SHOULD BE ECHOED A R , P* ECHEND IS USED AT END OF INPUT REQUEST A 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A A P* JUMP TO 'ECHRTN
0x121fb0…122144 Dummy {f00=0x0060, f01=0x0190, f02=» SIGNIFICANT A p 4 P* BIT 15 1 IF MORE CHARACTERS B & P* A2 = BITS 0-7 NOT SIGNIFICANT B L & P* BITS 8-17 CHARACTER (IF ECHO) B v P* A5 = LOCAL STACK POINTER B P* A6 = DWT ADDRESS B P* B P EJECT B P* B P* OUTP
0x122144…1222d8 Dummy {f00=0x0060, f01=0x0190, f02=»5 1 IF MORE CHARACTERS B x $ P* A2 = BITS 0-7 ZERO (IF ECHO) C & P* BITS 8-15 CHARACTER (IF ECHO) C H P* A5 = LOCAL STACK POINTER C r ( P* A6 = ADDRESS OF OUTPUT DEVICE DWT C * P* A7 = BIT 0 0 IF ECHO, 1 IF ECHEND C " P* BITS 1-15 NOT SIGNI
0x1222d8…12246c Dummy {f00=0x0060, f01=0x0190, f02=»******************************************************** C P* D @ PECHEND EQU * D J P* D ^ P IFT CECHO=1 D h , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT D | ( P LDKL A7,/8000 INDICATE END OF ECHO D P RF ECHO10 D P* D P EJECT D P* D
0x12246c…122600 Dummy {f00=0x0060, f01=0x0190, f02=»ND OF ECHO D x P* E P* E PECHO10 EQU * E & P LD A3,DWTST,A6 STATUS E : $ P ANKL A3,DWFECH ECHO REQUESTED? E X P RF(Z) NDREP NO, RETURN E P* E 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE E 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEV
0x122600…122794 (2, 116) Dummy {f00=0x0060, f01=0x0190, f02=» ANK A2,/FF CLEAN CHARACTER E . P LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK F $ 6 P ABI ECHADR,A3 GO TO ECHO-ROUTINE DEVICE-DEPENDENT F V P XIF F P* F P EJECT F P* F @ P************************************************************ F P* F
0x122794…122928 Dummy {f00=0x0060, f01=0x0190, f02=»* IS READY WITH ECHOING ACTIONS, AND WANTS TO LEAVE F * P* CONTROL BACK TO INPUT DEVICE DRIVER. G < P* G j P* CALL: G t P* ABL ECHRTN G P* G P* INPUT: G ( P* A6 = DWT ADDRESS OF OUTPUT DEVICE G P* G P* OUTPUT: G $ P* AT ENTR
0x122928…122abc Dummy {f00=0x0060, f01=0x0190, f02=» PECHRTN EQU * H P IFT CECHO=1 H 0 P LD A6,DWTWAT,A6 DWT-ADDRESS OF INPUT DEVICE H , , P RF NDREP RELOAD A3-A5, A7-A8 AND RETURN H ` P XIF H P* H P EJECT H P* H @ P************************************************************ H P* H
0x122abc…122c50 Dummy {f00=0x0060, f01=0x0190, f02=»BUFFER AND INCREMENT THE BUFFER INDEX. H 2 P* IF NO CHARACTER IS LEFT, INDEX IS STORED IN I . P* ECB REQUESTED LENGTH. I d P* I P* CALL: I P* CF A15,GETCHR I P* I P* INPUT: I P* A3 = BUFFER INDEX I P* A8 = ECB ADDRESS I P
0x122c50…122de4 Dummy {f00=0x0060, f01=0x0190, f02=» & P* BITS 8-15 CHARACTER (IF A1>0) J ( P* A3 = UPDATED BYTE INDEX (IF A1>0) J . P* CR = CHANGED J Z P* INTERR. ENABLED J r P* J @ P************************************************************ J P* J PGETCHR EQU * J $ P LD A1,ECBRL,A8
0x122de4…122f78 Dummy {f00=0x0060, f01=0x0190, f02=»8 GET BUFFER ADDRESS J P ADR A2,A3 K P LCR A2,A2 CHAR. TO A2 K . P ANK A2,/FF K L $ P ADK A3,1 INCREMENT BUFFER INDEX K ` P RF GCH020 K P* K P* K PGCH010 EQU * K * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH K PGCH020 EQU * K " P ADK
0x122f78…12310c Dummy {f00=0x0060, f01=0x0190, f02=»************************ K l P* L P* ROUTINE NAME: L * P* ABORT L B P* L R P* FUNCTION: L : P* THIS ROUTINE RESETS THE INPUT REQUESTED FLAG IN DWT. L p : P* IT IS USED AT ABORT REQUESTS, WHEN A REQUESTED INPUT L P* IS NO LONGER WANTED. L
0x12310c…1232a0 Dummy {f00=0x0060, f01=0x0190, f02=» = CHANGED L P* CR = CHANGED M P* M , @ P************************************************************ M 6 P* M z PABORT EQU * M 2 P LDKL A1,/FFFF-DWFINP MASK FOR INPUT REQUESTED M P ANS A1,DWTST,A6 RESET FLAG M P IFT CPU852=1 M P
0x1232a0…123434 (2, 117) Dummy {f00=0x0061, f01=0x018e, f02=»********************************************** M P* N 6 P* ROUTINE NAME: N @ P* LDISP N X P* N h P* FUNCTION: N r 8 P* THIS ROUTINE PERFORMS DISPATCHING FOR THE TERMINAL N 8 P* DEVICE DRIVERS. IT ALSO PROVIDES QUICK EXITS FROM N 0 P* DEVICE D
0x123434…1235c8 Dummy {f00=0x0061, f01=0x0190, f02=» P* INPUT: O $ P* A1 = RETURN CODE (IF LENDIS) O P* A6 = DWT ADDRESS O < P* O X P* OUTPUT: O b 2 P* AT ENTRY TO LINE DRIVER DISPATCH ENTRY: O t P* A6 = DWT ADDRESS O P* O @ P********************************************************
0x1235c8…12375c Dummy {f00=0x0061, f01=0x018e, f02=»UEST O v P* P P EJECT P P* P $ PLDISP EQU * P . P IFF NTONSU=0 U =1 P B & P LC A1,DWTCHP,A6 CHANNEL PARAMETER P ( P ANK A1,MASKCT CLEAN CONNECTION TYPE P P SLA A1,1 MAKE INDEX P P CWK A1,DTABLN INSIDE LIMIT? P 0 P ABI(L) ENRTAB,A1 YES,
0x12375c…1238f0 Dummy {f00=0x0061, f01=0x018e, f02=» P v P* LINE DRIVER ROUTINES * Q P************************ Q ( P* Q H F P* THIS SECTION CONTAINS AN EXIT ROUTINE THAT CAN BE USED BY THE Q R : P* LINE DRIVERS WHEN RETURNING TO THE DEVICE DRIVER. Q > P* IT ALSO CONTAINES A NUMBER OF SERVICE SUBR
0x1238f0…123a84 Dummy {f00=0x0061, f01=0x0190, f02=» P* R P* NAME FUNCTION R P* R & $ P* NDRET RETURN TO DEVICE DRIVER R 0 & P* NDSAV8 SAVE A3-A5, A7-A8 IN DWT R X & P* NDGET8 GET A3-A5, A7-A8 FROM DWT R 8 P* NDREWS CALL RECOVERY FOR ALL DWT:S ON WORK STATION R * P* NDREDW CALL RECOVERY ROUTINE F
0x123a84…123c18 Dummy {f00=0x0061, f01=0x0190, f02=»************************************************************ R P* S D P* ROUTINE NAME: S N P* NDRET S f P* S v P* FUNCTION: S 4 P* THIS ROUTINE CONTAINS A NUMBER OF ENTRIES FOR S 0 P* RETURNING TO THE TERMINAL DEVICE DRIVERS. S 4 P* THEY C
0x123c18…123dac Dummy {f00=0x0061, f01=0x0190, f02=» ALSO CONTAINS A "RTN A15" S . P* SIMULATION THAT DOESN'T PERFORM ENABLE. T $ P* T V P* CALL: T ` P* RF "NAME" T p P* RB "NAME" T P* ABL "NAME" T P* T P* INPUT: T , P* A5 = LOCAL STACK POINTER (IF NDRETX) T $ P* A6 = DWT ADDRES
0x123dac…123f40 Dummy {f00=0x0061, f01=0x0190, f02=»NDLING ROUTINE T n P* U @ P************************************************************ U P* U d PNDRETE EQU * U n & P LDK A1,CONFER CONFIGURATION ERROR U P RF NDRET RETURN U P* U P EJECT U P* U PNDREPO EQU * U , P CF A15,NDGET8
0x123f40…1240d4 (2, 118) Dummy {f00=0x0061, f01=0x0190, f02=» U P* V PNDREP EQU * V , P CF A15,NDGET8 GET A3-A5, A7-A8 FROM DWT V & PNDRET EQU * V V P ENB V j & P ADK A5,4 ADJUST STACK FOR RETURN V v P LDR A1,A1 SET CR V $ P ABR* A5 RETURN TO DEVICE DRIVER V P* V P* V P IFT CPU852=1 V
0x1240d4…124268 Dummy {f00=0x0061, f01=0x0190, f02=»****************************************** V ~ P* W 2 P* ROUTINE NAME: W < P* NDSAV8 W T P* W d P* FUNCTION: W n 6 P* THIS ROUTINE SAVES REGISTERS A3, A4, A5, A7 AND W P* A8 IN A SAVE AREA IN DWT. W P* W P* CALL: W P* CF A15,NDSAV
0x124268…1243fc Dummy {f00=0x0061, f01=0x0190, f02=»************************************************** W P* X : PNDSAV8 EQU * X D " P* SAVE A3-A5, A7-A8 IN DWT X X P ST A3,DWTA3,A6 X ~ P ST A4,DWTA4,A6 X P ST A5,DWTA5,A6 X P ST A7,DWTA7,A6 X P ST A8,DWTA8,A6 X P* X P IFT CPU
0x1243fc…124590 Dummy {f00=0x0061, f01=0x018e, f02=»************************************************************ X P* Y D P* ROUTINE NAME: Y N P* NDGET8 Y f P* Y v P* FUNCTION: Y 8 P* THIS ROUTINE FETCHES REGISTERS A3, A4, A5, A7 AND Y " P* A8 FROM A SAVE AREA IN DWT. Y P* Y P* CALL:
0x124590…124724 Dummy {f00=0x0061, f01=0x0190, f02=» P* Z @ P************************************************************ Z P* Z R PNDGET8 EQU * Z " P* GET A3-A5, A7-A8 FROM DWT Z p P LD A3,DWTA3,A6 Z P LD A4,DWTA4,A6 Z P LD A5,DWTA5,A6 Z P LD A7,DWTA7,A6 Z P LD A8,DWTA8,A6 Z
0x124724…1248b8 Dummy {f00=0x0061, f01=0x0190, f02=» EJECT Z P* [ @ P************************************************************ [ P* [ P* ROUTINE NAME: [ f P* NDREWS [ ~ P* [ P* FUNCTION: [ 8 P* THIS ROUTINE CALLS RECOVERY ROUTINES FOR ALL DWT:S [ : P* ON A WORK STATION, EXEPT FOR T
0x1248b8…124a4c Dummy {f00=0x0061, f01=0x0190, f02=»= WORK STATION TABLE ADDRESS [ P* A4 = RECOVERY CAUSE $ P* A6 = WORK STATION NUMBER B P* f P* OUTPUT: p ( P* AT ENTRY TO RECOVERY ROUTINE: P* SEE NDREDW P* AT SUBROUTINE RETURN: P* CR = CHANGED P* INTERR.
0x124a4c…124be0 Dummy {f00=0x0061, f01=0x0190, f02=»0 U =1 P IFT CPU852=1 ] P CF A15,SAVE8 PUSH A1-A8 ] $ P XIF ] D P IFF NTONSU=0 U =1 ] P P IFF CPU852=1 ] j P MSR 8,A15 PUSH A1-A8 ] P XIF ] P IFF NTONSU=0 U =1 ] P* ] P EJECT ] P* ] P LDR A8,A6 SAVE WS NUMBER ] * P
0x124be0…124d74 (2, 119) Dummy {f00=0x0061, f01=0x018e, f02=»100 EQU * ] P SUK A7,1 NEXT DWT ^ " P RF(N) RW120 EXIT IF ALL DONE ^ , " P LDR A6,A8 WORK STATION NUMBER ^ R * P LDR A1,A3 WORK STATION TABLE ADDRESS ^ x $ P CF A15,NDGEDW A6 := DWT ADDRESS ^ P* ^ P LDR A6,A6 DWT DEFINED? ^ P RB(Z) RW100 NO,
0x124d74…124f08 Dummy {f00=0x0061, f01=0x0190, f02=» & P* CHECK IF OUTPUT ECHO DEVICE _ P LD A1,DWTST,A6 DWT STATUS _ . P LDR A2,A1 SAVE _ P P ANKL A1,DWFECH ECHO MODE? _ h P RF(Z) RW110 NO, CONTINUE _ " P ANKL A2,DWFINP INPUT DEVICE? _ , P RB(Z) RW100 NO, ECHO OUTPUT. TAKE NEXT _ P* _
0x124f08…12509c Dummy {f00=0x0061, f01=0x0190, f02=» ALL DWT:S HANDLED _ P ABL TDISP RETURN ` P XIF U =1 ` 6 P* ` H P EJECT ` R P* ` ` @ P************************************************************ ` j P* ` P* ROUTINE NAME: ` P* NDREDW ` P* ` P* FUNCTION: ` < P* THIS ROU
0x12509c…125230 Dummy {f00=0x0061, f01=0x0190, f02=»NED, DWT IS BUSY BUT NO REQUEST ` x : P* IS ON, TENDIO IS CALLED TO ACTIVATE TERMINAL QUEUE. a ( P* a f P* CALL: a p P* CF A15,NDREDW a P* a P* INPUT: a P* A4 = RECOVERY CAUSE a P* A6 = DWT ADDRESS a P* a P* OUTPUT: a ( P
0x125230…1253c4 Dummy {f00=0x0061, f01=0x0190, f02=» = BITS 0-9 ZERO a ( P* BITS 10-15 ORDER (IF REQUEST ON) b & P* A8 = ECB ADDRESS IF REQUEST ON, b F P* ELSE ZERO b p P* INTERR. ENABLED b P* AT SUBROUTINE RETURN: b P* CR = CHANGED b P* INTERR. CHANGED b P* b @ P********
0x1253c4…125558 Dummy {f00=0x0061, f01=0x0190, f02=» CF A15,SAVE8 PUSH A1-A8 b P XIF c P IFF CPU852=1 c , P MSR 8,A15 PUSH A1-A8 c B P XIF c ` P ENB c l P* c x P LDR A5,A6 DWT ADDRESS c P ADKL A5,DWTSB2 STACK BASE c P LC A7,DWTOR+1,A6 ORDER c P ANK A7,/3F CLEAN c P LD A8,DWTEC
0x125558…1256ec Dummy {f00=0x0061, f01=0x0190, f02=»Y IF DEFINED c x P* d P* d : P* NO RECOVERY. CALL TENDIO IF BUSY BUT NO REQUEST d ( P LD A2,DWTST,A6 DWT STATUS d f P ANKL A2,DWFBSY BUSY? d P RF(NZ) RD100 NO, EXIT d P LDR A8,A8 REQUEST ON? d & P ABL(Z) DISEND NO, TENDIO & RETURN d
0x1256ec…125880 Dummy {f00=0x0061, f01=0x0190, f02=»******** d P* e P* ROUTINE NAME: e P* NDGEDN e 2 P* e B P* FUNCTION: e L 4 P* THIS ROUTINE CALCULATES THE HIGEST DWT NUMBER e ` 8 P* (POSITION NUMBER IN DWT TABLE) FOR A WORK STATION. e P* e P* CALL: e P* CF A15,NDGEDN e P*
0x125880…125a14 (2, 120) Dummy {f00=0x0061, f01=0x0190, f02=»A7 = HIGEST DWT NUMBER (0-7) e P* -1 IF NO DWT:S FOUND f & P* CR = CHANGED f F P* f ^ @ P************************************************************ f h P* f PNDGEDN EQU * f P IFF NTONSU=0 U =1 f P STR A6,A15 PUSH WS NUMBER f P L
0x125a14…125ba8 Dummy {f00=0x0061, f01=0x0190, f02=»GN100 YES, EXIT f P* g P EJECT g " P* g 0 P ADR A6,A1 g : " P LDR* A6,A6 DWT ADDRESS TABLE g L " P RF(Z) GN100 NOT DEFINED, EXIT g r P LD A7,-2,A6 TABLE LENGTH g P SUK A7,2 OFFSET TO LAST DWT g P SRA A7,1 NUMBER OF LAST DWT g P RF GN
0x125ba8…125d3c Dummy {f00=0x0061, f01=0x018e, f02=» IFT CPU852=1 g P RB RTNP15 RETURN h P XIF h 0 P IFF NTONSU=0 U =1 h < P IFF CPU852=1 h V P RTN A15 h l P XIF h | P* h P EJECT h P* h @ P************************************************************ h P* h P* ROUTINE NAME:
0x125d3c…125ed0 Dummy {f00=0x0061, f01=0x0190, f02=» P* CALL: i P* CF A15,NDGEDW i P* i , P* INPUT: i 6 2 P* A1 = ADDRESS OF WORK STATION TABLE (INTXXN) i F P* A6 = WORK STATION NUMBER i | P* A7 = DEVICE ADDRESS i P* i P* OUTPUT: i P* A6 = DWT ADDRESS IF FOUND i P* ELSE 0
0x125ed0…126064 Dummy {f00=0x0061, f01=0x0190, f02=» P IFF NTONSU=0 U =1 j * P SLL A7,1 MAKE INDEX OF DEVICE ADDRESS j P LDR A1,A1 WS TABLE DEFINED? j L P RF(Z) GD100 NO, EXIT j p * P SLL A6,1 INDEX IN WORK STATION TABLE j P CW A6,-2,A1 INSIDE TABLE? j P RF(NL) GD100 NO, ERROR j P* j P
0x126064…1261f8 Dummy {f00=0x0061, f01=0x0190, f02=»NDEX TOO HIGH? j P RF(NL) GD100 YES, EXIT k P ADR A6,A7 k 6 P LDR* A6,A6 DWT ADDRESS OR 0 k H P RF GD110 EXIT k l P* k PGD100 EQU * k P LDK A6,0 DWT NOT FOUND k PGD110 EQU * k $ P SRL A7,1 RESTORE DEVICE ADDRESS k P IFT CPU852=
0x1261f8…12638c Dummy {f00=0x0061, f01=0x4022, f02=» k P* l P END l @ l 0 YES, EXIT k P ADR A6,A7 k 6 P LDR* A6,A6 DWT ADDRESS OR 0 k H P RF GD110 EXIT k l P* k PGD100 EQU * k P LDK A6,0 DWT NOT FOUND k PGD110 EQU * k $ P SRL A7,1 RESTORE DEVICE ADDRESS k P IFT CPU852=
0x12638c…126520 Dummy {f00=0x0061, f01=0x2008, f02=» m " " " " "("0"8"@
0x126520…1266b4 (2, 121) Dummy {f00=0x0062, f01=0x0190, f02=» - P IFF STARVI=0 . . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE . P* . P P* . Z P DATA /4248 . d P DATA /4242 . x P* . 2 PNOIR EQU /20 S/S 1 : NO INTERVENTION REQUIRED . , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED . P XIF . P
0x1266b4…126848 Dummy {f00=0x0062, f01=0x0190, f02=» B P************************************************************* / P* / J . P* LINE CONTROL UNIT FUNCTION CONTROL EQU:S / T P* / B P************************************************************* / P* / P IFT CODE=0 / PSYNC EQU /16 / P
0x126848…1269dc Dummy {f00=0x0062, f01=0x0190, f02=»=1 / PCBSTOP EQU /00 0 P IFT CODE=0 0 PPARITY EQU /0C 0 4 P XIF 0 J P IFT P6805=1 0 V P IFT CODE=1 0 j PPARITY EQU /00 0 ~ P XIF 0 P EJECT 0 8 P*************************************************** 0 P* 0 ( P* LINE CONTROL UNIT
0x1269dc…126b70 Dummy {f00=0x0062, f01=0x0190, f02=»3 H:NOOP+H:THRU+H:CARR 0 P XIF 1 P IFT P6805=1 1 * . PH:ERR EQU /27 H:NOOP+H:THRU+H:CARR+H:PARI 1 > P XIF 1 p P EJECT 1 | D P**************************************************************** 1 P* 1 P* DRIVER ADDRESS BLOCK 1 P* 1 D P
0x126b70…126d04 Dummy {f00=0x0062, f01=0x0190, f02=»E INDEX 1 ~ ( PDC15AD DATA DCACT ACTIVATION ADDRESS 2 P DATA ABORT ABORT ROUTINE 2 < $ P DATA DCRBUF REC. BUFFER ANCHOR 2 ^ P DATA 6 HEADER LENGTH 2 P* 2 , P RES 15 SUBROUTINE STACK FOR INTERRUPTS 2 PSTB RES 1 2 P EJECT 2 P 2 @ P**
0x126d04…126e98 Dummy {f00=0x0062, f01=0x0190, f02=» 2 x P 3 ( PABORT LD A1,DWTRTP,A6 TIMER POINTER 3 " P RF(Z) AB:10 NO TIMER RUNNING 3 < P CMR A1 KILL TIMER 3 b P CM DWTRTP,A6 3 | P 3 $ PAB:10 LD A2,DWTOR,A6 ORDER CODE 3 P ANK A2,/7F 3 P SUK A2,6 3 P RF(NE) AB:RTN 3 . P CF A15,RE
0x126e98…12702c Dummy {f00=0x0062, f01=0x0190, f02=» CM FDWTUT REST SENDING DWT 3 P CM XACK RESET ACK EXPECTED 4 $ P 4 H PAB:RTN EQU * 4 P P ABL RTABRT 4 d P EJECT 4 x J P********************************************************************** 4 J P****************************************************
0x12702c…1271c0 Dummy {f00=0x0062, f01=0x0190, f02=»************************************************ 4 z J P********************************************************************** 5 8 P* 5 $ P* ACTIVATION FROM TERMINAL TASKS 5 P* 5 PDCACT EQU * 5 P LDK A1,0 PRESET RETURN CODE 5 & P LDR A2,A7 ORD
0x1271c0…127354 (2, 122) Opaque[0x194]
0x127354…1274e8 # DirEnt {nam=»DCADDR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c48, f03=0x0000}
0x127354…1274e8 IdxSect {
0x127354…1274e8 f00 = 0x0062 // 0x127354 @0x0
0x127354…1274e8 f01 = 0x000a // 0x127356 @0x2
0x127354…1274e8 gno = [ // 0x127358 @0x4
0x127354…1274e8 [0x00]: C0x0062.0x1.0
0x127354…1274e8 [0x01]: C0x0062.0x2.0
0x127354…1274e8 [0x02]: C0x0062.0x3.0
0x127354…1274e8 [0x03]: C0x0063.0x0.0
0x127354…1274e8 [0x04]: C0x0063.0x1.0
0x127354…1274e8 ]
0x127354…1274e8 }
0x1274e8…12767c Dummy {f00=0x0062, f01=0x0190, f02=» 0 P IDENT DCADDR REL 11.0 81-01-26 870105041100 P* 8 4 P*********************************************** B P* z " P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DC:ADR : ADDRESS TRANSLATION ROUTINES FOR * P* DATA COMMUNICATION SO
0x12767c…127810 Dummy {f00=0x0062, f01=0x0190, f02=»************************* z P* " P* PROGRAM DESCRIPTION , P* J : P* FOLLOWING SUBROUTINES CAN BE FOUND IN THIS MODULE : T P* 2 P* FNDDNA : FINDS A DTE NETWORK ADDRESS FROM A $ P* SYMBOLIC DTE ADDRESS P* 2 P* FN
0x127810…1279a4 Dummy {f00=0x0062, f01=0x0190, f02=»LATES A SYMBOLIC DTE ADDRESS INTO A " P* DTE NETWORK ADDRESS , P* R 6 P* GETDNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A 8 P* SPECIFIED TYPE INTO A DTE NETWORK ADDRESS P* 6 P* GETDSA : TRANSLATES A DTE NETWORK ADDRESS
0x1279a4…127b38 Dummy {f00=0x0062, f01=0x0190, f02=» SPECIFIED ` 0 P* TYPE INTO A SYMBOLIC DTE ADDRESS P* F 6 P* GETSNA : TRANSLATES A SYMBOLIC DTE ADDRESS AND A P > P* SYMBOLIC SUB-ADDRESS INTO A NETWORK SUB-ADDRESS P* 6 P* GETSNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A
0x127b38…127ccc Dummy {f00=0x0062, f01=0x0190, f02=»RANSLATES A SYMBOLIC DTE ADDRESS AND A > P* NETWORK SUB-ADDRESS INTO A SYMBOLIC SUB-ADDRESS . P* p @ P* GETSST : TRANSLATES A SYMBOLIC DTE ADDRESS OF A SPECIFIED z > P* TYPE AND A NETWORK SUB-ADDRESS INTO A SYMBOLIC P*
0x127ccc…127e60 Dummy {f00=0x0062, f01=0x018e, f02=»TRIES P* P ENTRY FNDDNA P ENTRY FNDDNT . P ENTRY GETDNA D P ENTRY GETDNT Z P ENTRY GETDSA p P ENTRY GETDST P ENTRY GETSNA P ENTRY GETSNT P ENTRY GETSSA P ENTRY GETSST P* P* P
0x127e60…127ff4 (2, 123) Dummy {f00=0x0062, f01=0x0190, f02=» b * P EXTRN RETUR8 RELOAD A1-A8 AND RETURN 2 P EXTRN IHRET8 RELOAD A1-A8 AND RETURN INHIBIT 6 P* l P EJECT v P* & P* CONDITIONAL ASSEMBLY PARAMETERS P* ( PX:A EQU 1 SUB-ADDRESSING SUPPORTED ? PSUBADR EQU X:A 0=NO 1=YES
0x127ff4…128188 Dummy {f00=0x0062, f01=0x0190, f02=»NTRY INDICATORS PDN EQU 1 PSS EQU 2 ( PSN EQU 3 8 P* H P EJECT R P* ` P* j 4 P* ROUTINES TO GET A SYMBOLIC DTE ADDRESS FROM A t $ P* DTE NETWORK ADDRESS (AND TYPE) P* 6 P******************************************
0x128188…12831c Dummy {f00=0x0062, f01=0x0190, f02=»ING DTE NETWORK ADDRESS z ( P* A3 = TYPE (ONLY FOR GETDST ENTRY) P* L P* CALLING SEQUENCES : V P* CF A15,GETDSA t P* CF A15,GETDST P* P* OUTPUT PARAMETERS : B P* A1 = SYMBOLIC DTE ADDRESS(OR -1 IF INVALID ADDRESS OR TYP
0x12831c…1284b0 Dummy {f00=0x0062, f01=0x0190, f02=»15 SAVE REG. A1-A8 P XIF P IFT CPU852=1 & " P CF A15,SAVE8 SAVE REG. A1-A8 < P XIF b $ P SUR A3,A3 CLEAR TYPE INDICATOR n P RF GET090 PGETDST EQU * P IFT CPU852=0 P MSR 8,A15 P XIF P IFT CPU852=1 P C
0x1284b0…128644 Dummy {f00=0x0062, f01=0x0190, f02=»A5,-1 RESET TYPE COUNTER 6 P LDKL A8,SCTDCT POINTER TO DC ADDRESS TABLE ENTRY PGET110 EQU * Z P LDR* A8,A8 MORE ENTRIES ? n P RF(Z) GET330 NO P ADK A3,0 TYPE SPECIFIED ? P RF(Z) GET120 NO P CW A3,4,A8 TYPE FOUND ? P RB(NE
0x128644…1287d8 Dummy {f00=0x0062, f01=0x0190, f02=»A/GETDST ENTRY ? P RF(NZ) GET220 NO P* 2 P* TEST ON ADDRESS LENGTH < P* P CC A1,6,A8 SAME ? f P RB(NE) GET110 NO,TAKE NEXT P* P EJECT P* P* GET ADDRESS PARAMETERS P* P ADK A1,1 CONVERT..
0x1287d8…12896c Dummy {f00=0x0062, f01=0x0190, f02=»6,7 ..FIND LAST OCTET OF.. P ADR A6,A1 ..NETWORK ADDRESS " . P ADR A2,A1 POINTER TO LAST OCTET IN BUFFER F P LDR A7,A1 SAVE LENGTH x P* " P* COMPARE DTE NETWORK ADDRESS P* PGET130 EQU * P SUK A1,1 LAST ONE ? P RF(N) G
0x12896c…128b00 Dummy {f00=0x0062, f01=0x018e, f02=» CCR A4,A2 COMPARE WITH DRIVER BUFFER P RB(E) GET130 EQUAL . P* J P EJECT T P* b P* COMPARED OCTETS NOT EQUAL l P* PGET140 EQU * P SUR A7,A1 FIRST ONE ? P SUK A7,1 . P RF(NZ) GET150 NO $ P ADK A4,0 SEMI
0x128b00…128c94 (2, 124) Dummy {f00=0x0062, f01=0x0190, f02=» " P ANK A1,/F0 MAKE IT SEMI-OCTET P CWR A4,A1 EQUAL ? * P RF(E) GET160 YES D PGET150 EQU * ^ P LC A1,6,A8 RELOAD LENGTH r & P LDK A4,DS RELOAD ENTRY INDICATOR P RB GET110 TRY NEXT P* P* COMMON EXIT ROUTINE P*
0x128c94…128e28 Dummy {f00=0x0062, f01=0x0190, f02=» * P ST A5,12,A15 SAVE TYPE COUNTER IN A3 PGET180 EQU * 6 P ST A1,16,A15 SAVE A1 J P IFT CPU852=0 h P ABL RETUR8 RETURN TO CALLER ~ P XIF P IFT CPU852=1 P LD A1,18,A15 GET PSW P ANK A1,/40 ENABLE MODE ? P ABL
0x128e28…128fbc Dummy {f00=0x0062, f01=0x0190, f02=»O FIND OR GET A DTE NETWORK ADDRESS FROM A * P* SYMBOLIC NETWORK ADDRESS (AND TYPE) 2 P* ` : P****************************************************** j P* P* INPUT PARAMETERS : P* A1 = SYMBOLIC DTE ADDRESS * P* A2 = BUFFER (ONLY I
0x128fbc…129150 Dummy {f00=0x0062, f01=0x0190, f02=»F A15,FNDDNT P* CF A15,GETDNA P* CF A15,GETDNT , P* D P* OUTPUT PARAMETERS : N 8 P* A1 = LENGTH OF DTE NETWORK ADDRESS IN SEMI-OCTETS l < P* (OR -1 IF ILLEGAL SYMBOLIC DTE ADDRESS OR TYPE) : P* A2 = NEXT FREE ADDRESS IN BUF
0x129150…1292e4 Dummy {f00=0x0062, f01=0x0190, f02=»NOT CHANGED) b P* PFNDDNT EQU * P IFT CPU852=0 2 P MSR 8,A15 SAVE REG. A1-A8 H P XIF j P IFT CPU852=1 v " P CF A15,SAVE8 SAVE REG. A1-A8 P XIF $ P SUR A2,A2 CLEAR BUFFER ADDRESS P RF GET210 P* P EJECT
0x1292e4…129478 Dummy {f00=0x0062, f01=0x018e, f02=»IF $ P SUR A2,A2 CLEAR BUFFER ADDRESS P RF GET200 2 PGETDNT EQU * D P IFT CPU852=0 X P MSR 8,A15 n P XIF P IFT CPU852=1 P CF A15,SAVE8 P XIF P RF GET210 PGETDNA EQU * P IFT CPU852=0 P MSR 8,A
0x129478…12960c Dummy {f00=0x0062, f01=0x0190, f02=» PGET210 EQU * " P LDK A4,DN SET ENTRY INDICATOR P RB GET100 RUN > P* T P EJECT ^ P* l P* TEST ON SYMBOLIC ADDRESS v P* PGET220 EQU * P CW A1,2,A8 FOUND ? P RB(NE) GET110 NO P* P* GET ADDRESS PARA
0x12960c…1297a0 Dummy {f00=0x0062, f01=0x0190, f02=»ERT LENGTH.. P SRC A7,1 ..INTO.. P ANK A7,/7F ..OCTETS . * P LDR A6,A8 GET ADDRESS WHERE TO FIND.. J P ADK A6,7 ..NETWORK ADDRESS x P IFT SUBADR=1 P* P* TEST ON ENTRY P* $ P SUK A4,SS ...DNA/...DNT ENTRY ? P R
0x1297a0…129934 (2, 125) Dummy {f00=0x0063, f01=0x0190, f02=»JECT P* P* SAVE PARAMETERS P* 0 PGET230 EQU * : $ P ST A2,14,A15 SAVE NEXT ADDRESS N P RB GET170 EXIT v P* P* GET NETWORK ADDRESS P* PGET240 EQU * P SUK A7,1 READY ? P RB(N) GET230 YES P
0x129934…129ac8 Dummy {f00=0x0063, f01=0x0190, f02=»UBADR=1 P EJECT P* P* ( 4 P* ROUTINES TO GET A SYMBOLIC SUB-ADDRESS FROM A 2 6 P* SYMBOLIC DTE ADDRESS (OF A SPECIFIED TYPE) AND A j P* NETWORK SUB-ADDRESS P* 8 P**************************************************** P
0x129ac8…129c5c Dummy {f00=0x0063, f01=0x0190, f02=»ST ENTRY) v P* P* CALLING SEQUENCE : P* CF A15,GETSSA 8 P* CF A15,GETSST P P* h P* OUTPUT PARAMETERS : r : P* A1 = SYMBOLIC SUB-ADDRESS(OR -1 IF ILLEGAL SYMBOLIC 4 P* DTE ADDRESS,TYPE OR NETWORK SUB-ADDRESS) D P*
0x129c5c…129df0 Dummy {f00=0x0063, f01=0x0190, f02=» P XIF P IFT SUBADR=1 P IFT CPU852=1 & " P CF A15,SAVE8 SAVE REG. A1-A8 < P XIF b P IFT SUBADR=1 n P RF GET300 P* P EJECT P* PGETSSA EQU * P IFT CPU852=0 P MSR 8,A15 P XIF P IFT SUB
0x129df0…129f84 Dummy {f00=0x0063, f01=0x0190, f02=»00 EQU * " P LDK A4,SS SET ENTRY INDICATOR PGET305 EQU * 6 P RB GET100 RUN J P* ` P* TEST ON ENTRY j P* PGET310 EQU * " P ADR A6,A7 GET # OF ENTRIES IN " P LCR A7,A6 ..SUB-ADDRESS TABLE P LDR A4,A4 * P RF(NZ) GE
0x129f84…12a118 Dummy {f00=0x0063, f01=0x0190, f02=»OR b PGET320 EQU * P ADK A6,1 NEXT ENTRY , P CCR A2,A6 COMPARE NETWORK SUB-ADDRESSES : P RB(E) GET170 EXIT ! j ( P ADK A1,1 STEP SYMBOLIC SUB-ADDRESS P SUK A7,1 MORE ENTRIES ? P RB(P) GET320 YES P XIF P* P EJECT
0x12a118…12a2ac Dummy {f00=0x0063, f01=0x018e, f02=»TSSA EQU * PGETSST EQU * P XIF & PGET330 EQU * 2 P LDKL A1,-1 ERROR INDICATION F P RB GET180 EXIT j P* P IFT SUBADR=1 P EJECT P* P* 2 P* ROUTINES TO GET A NETWORK SUB-ADDRESS FROM A 4 P* SYMBOLIC DTE
0x12a2ac…12a440 Dummy {f00=0x0063, f01=0x0190, f02=» Z P* P* INPUT PARAMETERS : P* A1 = SYMBOLIC DTE ADDRESS . P* A2 = SYMBOLIC SUB-ADDRESS R ( P* A3 = TYPE (ONLY IF GETSNT ENTRY) v P* P* CALLING SEQUENCES : P* CF A15,GETSNA P* CF A15,GETSNT P* P* OU
0x12a440…12a5d4 (2, 126) Dummy {f00=0x0063, f01=0x0190, f02=») ` D P* A3 = TYPE INDEX (ONLY IF GETSNT ENTRY,OTHERWISE NOT CHANGED) P* R PGETSNT EQU * P IFT CPU852=0 p P MSR 8,A15 SAVE REG. A1-A8 P XIF P IFT SUBADR=1 P IFT CPU852=1 " P CF A15,SAVE8 SAVE REG. A1-A8 P X
0x12a5d4…12a768 Dummy {f00=0x0063, f01=0x0190, f02=» P XIF P IFT SUBADR=1 P IFT CPU852=1 * P CF A15,SAVE8 @ P XIF V P IFT SUBADR=1 b $ P SUR A3,A3 CLEAR TYPE INDICATOR x PGET400 EQU * " P LDK A4,SN SET ENTRY INDICATOR P RB GET305 RUN P* P* GET NETWORK
0x12a768…12a8fc Dummy {f00=0x0063, f01=0x4116, f02=»ID SYMBOLIC SUB-ADDRESS | 2 P SUR A7,A2 SYMBOLIC SUB-ADDRESS WITHIN TABLE ? P RB(N) GET330 NO V 2 P ADR A6,A2 SET POINTER(INDEX STARTS WITH /30) n & P LCR A1,A6 GET NETWORK SUB-ADDRESS P RB GET170 EXIT P* P XIF P* P E
0x12a8fc…12aa90 Dummy {f00=0x0063, f01=0x2008, f02=» ! TO SAVE REGISTERS A1-A8 * ( SAVE8 EQU * 2 * F * &* SUBROUTINE TO RELOAD REGISTERS A1-A8 P * ~ RELOA8 EQU * * END @ & ! LDR A6,A8 GET ADDRESS WHERE TO.. " ADK A6,7 FIND LAST OCTET OF..
0x12aa90…12ac24 Dummy {f00=0x0063, f01=0x018e, f02=»TONSU=0 U =1 P IFT PR=1 P DATA PRCHRI & P XIF : P IFF NTONSU=0 U =1 F P* ` P IFT VU=0 j P DATA NDRETE | P XIF P IFF NTONSU=0 U =1 P IFT VU=1 P DATA VUCHRI P XIF P IFF NTONSU=0 U =1 PDTABLN
0x12ac24…12adb8 Dummy {f00=0x0063, f01=0x0190, f02=» P IFF NTONSU=0 U =1 P IFT LT=1 " P DATA LTSTBL 4 P XIF H P IFF NTONSU=0 U =1 T P* n P IFT RT=0 x P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT RT=1 P DATA RTSTBL P XIF P IFF NTONSU=0 U =1
0x12adb8…12af4c Dummy {f00=0x0063, f01=0x018e, f02=» P IFF NTONSU=0 U =1 P* " P IFT AS=0 , P DATA NDRETE > P XIF R P IFF NTONSU=0 U =1 ^ P IFT AS=1 x P DATA ASSTBL P XIF P IFF NTONSU=0 U =1 P* P IFT FT=0 P DATA NDRETE P XIF P IFF NTO
0x12af4c…12b0e0 Dummy {f00=0x0063, f01=0x0190, f02=» P XIF P IFF NTONSU=0 U =1 P IFT PL=1 . P DATA PLSTBL @ P XIF T P IFF NTONSU=0 U =1 ` P* z P IFT PR=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT PR=1 P DATA PRSTBL P XIF P IFF N
0x12b0e0…12b274 (2, 127) Opaque[0x194]
0x12b274…12b408 # DirEnt {nam=»TMOVE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c70, f03=0x0000}
0x12b274…12b408 IdxSect {
0x12b274…12b408 f00 = 0x0063 // 0x12b274 @0x0
0x12b274…12b408 f01 = 0x000e // 0x12b276 @0x2
0x12b274…12b408 gno = [ // 0x12b278 @0x4
0x12b274…12b408 [0x00]: C0x0063.0x2.0
0x12b274…12b408 [0x01]: C0x0063.0x3.0
0x12b274…12b408 [0x02]: C0x0064.0x0.0
0x12b274…12b408 [0x03]: C0x0064.0x1.0
0x12b274…12b408 [0x04]: C0x0064.0x2.0
0x12b274…12b408 [0x05]: C0x0064.0x3.0
0x12b274…12b408 [0x06]: C0x0065.0x0.0
0x12b274…12b408 ]
0x12b274…12b408 }
0x12b408…12b59c Dummy {f00=0x0063, f01=0x0190, f02=» 0 P IDENT TMOVE REL 11.0 81-05-21 870105041100 P 8 * P =4,CORR. OF UPDATE =3 (A14,A15) =3 @ P =4,REL 11.0 81-05-15 =3 n $ P =3,CONDITION FOR MOVUU ADDED P =3,REL 11.0 81-01-26 $ P =2,SAVE MMU WHEN MOVUS,MOVSU P =2,PR
0x12b59c…12b730 Dummy {f00=0x0063, f01=0x0190, f02=»********************************** P* * $ P* PHILIPS TERMINAL SYSTEM PTS 4 P* ( P* TMOVE = TOSS MOVE LKM PROCESSOR f P* P* P* P* P* P* 6 P************************************************** P
0x12b730…12b8c4 Dummy {f00=0x0063, f01=0x018e, f02=» - MOVSS = MOVE FROM SYSTEM AREA TO SYSTEM AREA 4 P* - MOVUS = MOVE FROM USER AREA TO SYSTEM AREA 8 4 P* - MOVSU = MOVE FROM SYSTEM AREA TO USER AREA p 2 P* - MOVUU = MOVE FROM USER AREA TO USER AREA > P* - MOVFW = MOVE FORWARD (ONLY SYSTEM A
0x12b8c4…12ba58 Dummy {f00=0x0063, f01=0x0190, f02=» P*********** P* ENTRIES * P*********** 0 P* D P* N ( P ENTRY TMOVE TOSS MOVE LKM PROCESSOR X , P ENTRY MOVSS MOVE FROM SYSTEM TO SYSTEM * P ENTRY MOVSU MOVE FROM SYSTEM TO USER * P ENTRY MOVUS MOVE FROM USER TO SYSTEM
0x12ba58…12bbec Dummy {f00=0x0063, f01=0x0190, f02=» P* P* P************* P* EXTERNALS * 2 P************* H P* ^ P* h * P EXTRN LKMQDI QUEUE TASK AND DISPATCH r 4 P EXTRN LKMRQE SET A7=-1, QUEUE TASK AND DISPATCH 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID
0x12bbec…12bd80 Dummy {f00=0x0063, f01=0x018e, f02=» f P* P* CONDITIONAL ASSEMBLY P* 0 . P***************************************** : P* l . P* A PROGRAM VERSION USING TOSS MMU PAGING v * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6 P
0x12bd80…12bf14 (2, 128) Dummy {f00=0x0063, f01=0x018e, f02=» P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION : P* SET FOR CPU 857 IS OBTAINED BY SETTING CPU857 EQU 1. R P* PCPU857 EQU 1 P* P* 4 P* A PROGRAM VERSION CONTAINING SUBROUTINE MOVUU $ P* WILL EXIST B
0x12bf14…12c0a8 Dummy {f00=0x0063, f01=0x0190, f02=» P* P* P************************ P* MOVBLK DISPLACEMENTS * 8 P************************ X P* x , P* DISPLACEMENTS IN MOVE PARAMETER BLOCK P* & PMOVTIS EQU 0 TASK ID SENDING TASK ( PMOVTIR EQU 2 TASK ID RECEIVING TAS
0x12c0a8…12c23c Dummy {f00=0x0063, f01=0x0190, f02=» TO MOVE t 4 PLENGTH EQU 128 INTERMEDIATE BUFFER LENGTH WORDS P* H P EJECT TMOVE R P* h P* r P********* | P* TMOVE * P********* P* P* ( P* THIS IS THE MOVE LKM PROCESSOR. P* * P* IT IS EN
0x12c23c…12c3d0 Dummy {f00=0x0063, f01=0x0190, f02=»ESS | P* PTMOVE EQU * P ENB * P* 6 P IFT MMUPAG=0 @ * P LD A1,MOVBAS,A7 SOURCE BUFFER ADDRESS V 0 P LD A2,MOVBAR,A7 DESTINATION BUFFER ADDRESS " P LD A3,MOVLEN,A7 BUFFER LENGTH P CF A15,MOVSS MOVE BUFFER P XIF
0x12c3d0…12c564 Dummy {f00=0x0063, f01=0x0190, f02=» BUFFER ADDRESS SENDING TASK 4 P EL A10,MOVBAR,A8 BUFFER ADDRESS RECEIVING TASK $ , P EL A3,MOVLEN,A8 REQUESTED BUFFER LENGTH $ P ELR A7,A8 TASK ID SENDING TASK P CWK A7,'#M' * P RF(E) MOV100 MOVE FROM SYSTEM BUFFER $ P CF A15,FNDTID GET
0x12c564…12c6f8 Dummy {f00=0x0063, f01=0x0190, f02=» P CWK A7,'#M' ( P RF(E) MVUS10 MOVE TO SYSTEM BUFFER $ P CF A15,FNDTID GET TTAB ADDRESS D P LDR A4,A2 SAVE TTAB ADDRESS l P RF(Z) TTABNF TTAB NOT FOUND P* P EJECT TMOVE P* * P* MOVE FROM USER BUFFER TO USER BUFFER
0x12c6f8…12c88c Dummy {f00=0x0063, f01=0x0190, f02=» WHERE TO MOVE P* PMOV100 EQU * , P EL A7,MOVTIR,A8 TASK ID RECEIVING TASK 4 P CWK A7,'#M' d ( P RF(E) MVSS10 MOVE TO SYSTEM BUFFER x $ P CF A15,FNDTID GET TTAB ADDRESS P LDR A4,A2 P RF(Z) TTABNF TTAB NOT FOUND P*
0x12c88c…12ca20 Dummy {f00=0x0063, f01=0x0190, f02=» * P CF A15,MOVSU MOVE FROM SYSTEM TO USER P RF END 2 P* B , P* MOVE FROM USER BUFFER TO SYSTEM BUFFER L P* | PMVUS10 EQU * * P LDR A2,A10 DESTINATION BUFFER ADDRESS * P CF A15,MOVUS MOVE FROM USER TO SYSTEM P RF END P*
0x12ca20…12cbb4 (2, 129) Dummy {f00=0x0064, f01=0x018e, f02=»F A15,MOVSS MOVE FROM SYSTEM TO SYSTEM P* . P XIF 8 P* D P EJECT TMOVE N P* d P* END n P* | PEND EQU * P IFT MMUPAG=1 " P LDR A5,A12 TTAB CALLING TASK P XIF P* ( P ABL LKMQDI QUEUE TASK AND DIS
0x12cbb4…12cd48 Dummy {f00=0x0064, f01=0x0190, f02=» v 2 P ABL LKMRQE SET A7=-1, QUEUE TASK AND DISPATCH P XIF > P EJECT J P* X P* b P* l P********* v P* MOVFW * P********* P* P* $ P* SUBROUTINE TO MOVE CHARACTERS * P* FROM SYSTEM BUFFER TO SYSTEM B
0x12cd48…12cedc Dummy {f00=0x0064, f01=0x0190, f02=» A3 = BUFFER LENGTH P* > P* EXIT: A1 = SYSTEM BUFFER ADDRESS,SOURCE+BUFFER LENGTH * B P* A2 = SYSTEM BUFFER ADDRESS,DESTINATION+BUFFER LENGTH l P* A3 = 0 P* PMOVFW EQU * PMOVBW EQU * P ADK A3,0
0x12cedc…12d070 Dummy {f00=0x0064, f01=0x0190, f02=» & P LDKL A6,/8000 INDICATE A14 RETURN P RF MSS005 MOVE BUFFER . P L P T P PRTNA14 EQU * d P LD A6,-4,A14 SAVED REGISTER x P LD A5,-2,A14 SAVED REGISTER P LDR* A4,A14 SAVED REGISTER P LDK A3,0 PRETA14 EQU *
0x12d070…12d204 Dummy {f00=0x0064, f01=0x0190, f02=»SUBROUTINE TO MOVE CHARACTERS * P* FROM SYSTEM BUFFER TO SYSTEM BUFFER & P* T 0 P* ENTRY: A1 = SYSTEM BUFFER ADDRESS,SOURCE ^ 4 P* A2 = SYSTEM BUFFER ADDRESS,DESTINATION P* A3 = BUFFER LENGTH P* > P* EXIT: A1 = S
0x12d204…12d398 Dummy {f00=0x0064, f01=0x0190, f02=» P* P IFT MMUPAG=0 PMOVUS EQU * ( PMOVSU EQU * < PMOVUU EQU * P P XIF d P* p PMOVSS EQU * z P ADK A3,0 CHECK LENGTH * P RF(NP) MOVRT2 NOTHING TO MOVE, RETURN P STR A4,A15 SAVE A4 P STR A5,A15 SAVE A
0x12d398…12d52c Dummy {f00=0x0064, f01=0x0190, f02=» RF(Z) MSS100 SOURCE BUFFER ADDRESS EVEN P TM A4,A2 0 2 P RF(Z) MSS110 DESTINATION BUFFER ADDRESS EVEN B P EJECT x P* 4 P* BOTH SOURCE AND DESTINATION BUFFER ADDRESS ODD P* & P LCR A5,A1 FIRST CHARACTER TO MOVE P SCR A5,A2 S
0x12d52c…12d6c0 Dummy {f00=0x0064, f01=0x0190, f02=»ENT LENGTH $ P RF(NP) MOVRT1 ALL MOVED,RETURN P* : 6 P* BOTH SOURCE AND DESTINATION BUFFER ADDRESS EVEN D P* ~ PMSS010 EQU * P IFF CPUHLP+CPU852=2 P SUK A3,2 SUBTRACT LENGTH 2 P RF(N) MSS020 TEST IF LAST CHARACTER IS MOVED
0x12d6c0…12d854 (2, 130) Dummy {f00=0x0064, f01=0x0190, f02=»ON BUFFER v P RB MSS010 CONTINUE MOVE P* 2 PMSS020 EQU * < P ADK A3,2 P " P RF(Z) MOVRT1 ALL MOVED,RETURN b P XIF P* P IFT CPU852=0 P IFT CPU857=1 P TM A4,A3 ( P RF(Z) MSS020 REQUESTED LENGTH EVEN " P
0x12d854…12d9e8 Dummy {f00=0x0064, f01=0x0190, f02=»ED,RETURN z P XIF P* & P LCR A5,A1 LAST CHARACTER TO MOVE ( 0 P SCR A5,A2 STORE CHARACTER IN SYSTEM BUFFER R ( P ADK A1,1 UPDATE USER BUFFER ADDRESS * P ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS P RF MOVRT1 RETURN P EJECT P
0x12d9e8…12db7c Dummy {f00=0x0064, f01=0x0190, f02=»R EVEN , DESTINATION BUFFER ODD P* OR ( 2 P* SOURCE BUFFER ODD , DESTINATION BUFFER EVEN 4 P* j PMSS110 EQU * t P LCR A4,A1 LOAD CHARACTER P SCR A4,A2 STORE CHARACTER $ P ADK A1,1 UPDATE SOURCE ADDRESS ( P ADK A2,1 UPDATE DES
0x12db7c…12dd10 Dummy {f00=0x0064, f01=0x018e, f02=»PAG=1 P EJECT TMOVE P* $ P* . P********* 8 P* MOVUS * J P********* P* n P* x $ P* SUBROUTINE TO MOVE CHARACTERS ( P* FROM USER BUFFER TO SYSTEM BUFFER P* & P* ENTRY: A1 = USER BUFFER ADDRESS (
0x12dd10…12dea4 Dummy {f00=0x0064, f01=0x0190, f02=» 4 P* EXIT : A1 = USER BUFFER ADDRESS+BUFFER LENGTH 6 P* A2 = SYSTEM BUFFER ADDRESS+BUFFER LENGTH < P* A3 = 0 v P* PMOVUS EQU * P ADK A3,0 CHECK LENGTH * P RF(NP) MOVRT2 NOTHING TO MOVE, RETURN P STR A4,A15 SAVE
0x12dea4…12e038 Dummy {f00=0x0064, f01=0x0190, f02=»4,1 MASK P TM A4,A1 " P RF(Z) MUS110 USER BUFFER EVEN " P TM A4,A2 H $ P RF(Z) MUS100 SYSTEM BUFFER EVEN Z P* P EJECT TMOVE P* ( P* USER BUFFER ODD,SYSTEM BUFFER ODD P* 0 P ELR A5,A1 FIRST CHARACTER FROM USER B
0x12e038…12e1cc Dummy {f00=0x0064, f01=0x0190, f02=»DECREMENT LENGTH $ P RF(NP) MOVRT3 ALL MOVED, RETURN P* @ * P* USER BUFFER EVEN,SYSTEM BUFFER EVEN J P* x PMUS010 EQU * P TM A4,A3 ( P RF(Z) MUS020 REQUESTED LENGTH EVEN " P LDK A4,0 INDICATE LENGTH ODD P* PMUS0
0x12e1cc…12e360 Dummy {f00=0x0064, f01=0x0190, f02=»TER z P ECR A5,A5 P RB MUS005 =1 P* 4 P XIF > P* J P EJECT TMOVE T P* j P* t P********** ~ P* MOVRTN * P********** P* , P* COMMON RETURN LABELS FOR MOVE ROUTINES P* PMOVRT1 EQU *
0x12e360…12e4f4 (2, 131) Dummy {f00=0x0064, f01=0x0190, f02=»VRT3 EQU * P TL 2,A15 SAVED MMU =2 P ADKL A15,32 =2 0 P XIF H PMOVRTN EQU * T P LDR* A5,A15 RELOAD A5 h P LDR* A4,A15 RELOAD A4 P LDK A3,0 ALL MOVED P* PMOVRT2 EQU * P RTN A15 P* P IFT MMUPAG=1
0x12e4f4…12e688 Dummy {f00=0x0064, f01=0x0190, f02=»ER FROM USER BUFFER x P RF MUS125 P* . PMUS110 EQU * 8 P TM A4,A2 L $ P RB(Z) MUS010 SYSTEM BUFFER EVEN ^ P* ( P* USER BUFFER EVEN,SYSTEM BUFFER ODD P* PMUS120 EQU * P ELR A4,A1 GET TO CHARACTERS P ECR A5,A4
0x12e688…12e81c Dummy {f00=0x0064, f01=0x018e, f02=»DDRESS p P SUK A3,1 DECREMENT LENGTH $ P RB(NP) MOVRT3 ALL MOVED, RETURN 0 P* X PMUS125 EQU * b ( P ADK A1,1 UPDATE USER BUFFER ADDRESS v 0 P SCR A4,A2 STORE CHARACTER IN SYSTEM BUFFER * P ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS P SUK
0x12e81c…12e9b0 Dummy {f00=0x0064, f01=0x0190, f02=» P* ! P********* ! P* MOVSU * ! $ P********* ! 6 P* ! H P* ! R $ P* SUBROUTINE TO MOVE CHARACTERS ! ( P* FROM SYSTEM BUFFER TO USER BUFFER ! P* ! ( P* ENTRY: A1 = SYSTEM BUFFER ADDRESS ! & P* A2 = USER BUFFER ADDRESS
0x12e9b0…12eb44 Dummy {f00=0x0064, f01=0x0190, f02=»+LENGTH ! l . P* A2 = USER BUFFER ADDRESS+LENGTH " P* A3 = 0 " B P* " Z PMOVSU EQU * " d P ADK A3,0 CHECK LENGTH " x * P RB(NP) MOVRT2 NOTHING TO MOVE, RETURN " P STR A4,A15 SAVE A4 " P STR A5,A15 SAVE A5 " P SUKL A15,32
0x12eb44…12ecd8 Dummy {f00=0x0064, f01=0x0190, f02=» BUFFER EVEN " ~ P TM A4,A1 # $ P RF(Z) MSU100 SYSTEM BUFFER EVEN # & P* # N P EJECT TMOVE # X P* # n ( P* SYSTEM BUFFER ODD,USER BUFFER ODD # x P* # * P ELR A5,A2 USER BUFFER FIRST CHARACTER # " P LCR A5,A1 GET FIRST CHARACTER # 4 P ESR A
0x12ecd8…12ee6c Dummy {f00=0x0064, f01=0x0190, f02=»ENT LENGTH # * P RB(NP) MOVRT3 NOTHING TO MOVE, RETURN $ P* $ @ P EJECT TMOVE $ J P* $ ` * P* SYSTEM BUFFER EVEN,USER BUFFER EVEN $ j P* $ PMSU010 EQU * $ P TM A4,A3 $ ( P RF(Z) MSU020 REQUESTED LENGTH EVEN $ P SUK A3,1 LENGTH EVE
0x12ee6c…12f000 Dummy {f00=0x0064, f01=0x0190, f02=» ADR A1,A5 UPDATE SYSTEM BUFFER ADDRESS $ * P ADR A2,A5 UPDATE USER BUFFER ADDRESS % 0 P ADK A4,0 CHECK LENGTH % ^ $ P RB(NZ) MOVRT3 ALL MOVED, RETURN % | " P LDR* A5,A1 GET LAST CHARACTER % * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS % P* % PMSU030
0x12f000…12f194 (2, 132) Dummy {f00=0x0064, f01=0x0190, f02=»WORD IN USER BUFFER % P ESR A5,A2 & ( P ADK A2,1 UPDATE USER BUFFER ADDRESS & . P RB MOVRT3 RETURN & Z P* & t P EJECT TMOVE & ~ P* & ( P* SYSTEM BUFFER EVEN,USER BUFFER ODD & P* & PMSU100 EQU * & P SUK A2,1 USER BUFFER EVEN & .
0x12f194…12f328 Dummy {f00=0x0064, f01=0x0190, f02=» $ P RB(Z) MSU010 SYSTEM BUFFER EVEN ' P* ' , ( P* SYSTEM BUFFER ODD,USER BUFFER EVEN ' 6 P* ' b PMSU120 EQU * ' l " P LCR A5,A1 GET FIRST CHARACTER ' $ P ECR A5,A5 CHARACTER TO THE LEFT ' * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS ' P SUK A3,1 DE
0x12f328…12f4bc Dummy {f00=0x0064, f01=0x0190, f02=»R ' f $ P ESR A5,A2 STORE TWO CHARACTERS ( * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS ( 2 ( P ADK A2,2 UPDATE USER BUFFER ADDRESS ( ` P SUK A3,1 DECREMENT LENGTH ( P RB(P) MSU120 MORE TO MOVE ( P RB MOVRT3 ALL MOVED, RETURN ( P* ( P XIF =3
0x12f4bc…12f650 Dummy {f00=0x0064, f01=0x018e, f02=»UUMOV=2 =3 ( P EJECT TMOVE ) P* ) * P* ) 4 P********* ) > P* MOVUU * ) P P********* ) b P* ) t P* ) ~ $ P* SUBROUTINE TO MOVE CHARACTERS ) & P* FROM USER BUFFER TO USER BUFFER ) P* ) ( P* ENTRY: A1 = SOURCE BUFFER ADDRESS
0x12f650…12f7e4 Dummy {f00=0x0064, f01=0x0190, f02=» , P* A5 = TTAB ADDRESS SENDING TASK * P* * 4 2 P* EXIT: A1,A2,A3,A8,A9,A10,A11 ARE DESTROYED * > P* * t PMOVUU EQU * * ~ P LDR A11,A3 SAVE LENGTH * * P RF(NP) MUU120 NOTHING TO MOVE, RETURN * " P LDR A9,A1 SAVE SOURCE ADDRESS * ( P L
0x12f7e4…12f978 Dummy {f00=0x0064, f01=0x0190, f02=»EDIATE BUFFER LENGTH * z 0 P RF(NP) MUU120 INTERMEDIATE BUFFER TOO SMALL + P CWR A11,A3 + P , P RF(G) MUU110 MORE THAN ONE MOVE NEEDED + d ( P LDR A3,A11 REMAINING BUFFER LENGTH + P* + PMUU110 EQU * + P LDR A8,A3 SAVE PART LENGTH + $ P LDR A
0x12f978…12fb0c Dummy {f00=0x0064, f01=0x0190, f02=» A9,A1 SAVE NEW SOURCE ADDRESS + 0 P LDKL A1,INTBUF INTERMEDIATE BUFFER ADDRESS , & $ P LDR A2,A10 DESTINATION ADDRESS , Z P LDR A3,A8 LENGTH , * P CF A15,MOVSU MOVE FROM SYSTEM TO USER , , P LDR A10,A2 SAVE NEW DESTINATION ADDRESS , P SUR A11,A8 DE
0x12fb0c…12fca0 Dummy {f00=0x0064, f01=0x40cc, f02=» , P* INTERMEDIATE BUFFER - P* - & PINTBUF EQU * - 0 P RES LENGTH - D PINTLEN EQU *-INTBUF - X P* - t P* - ~ P* - P XIF - P* - P* - P* - P END - @ - DR A10,A2 SAVE NEW DESTINATION ADDRESS , P SUR A11,A8 DE
0x12fca0…12fe34 (2, 133) Dummy {f00=0x0065, f01=0x2008, f02=» . P `
0x12fe34…12ffc8 Dummy {f00=0x0065, f01=0x0002, f02=»
0x12ffc8…13015c Dummy {f00=0x0065, f01=0x0190, f02=» J F IDENT LRPINT REL 11.0 81-01-26 870105041100 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI LKMSRC IHRTC TIMQUE MONCLOC R IHPFAR INIFLGN PFPOST IHLKM INTSAVR PRUNN TTB:SA , (
0x13015c…1302f0 Dummy {f00=0x0065, f01=0x0190, f02=»LDSEG LKM030 J SWL48 " , ( 5 $P c P W A 2 LKMAL b , ( Q B V ( U P @ r LKMERR t HALTN LKMRQE z LKMSRC ~ LKMQDI QTJ
0x1302f0…130484 Dummy {f00=0x0065, f01=0x0190, f02=» #P DISQUE . , ( H @ A A Q ? > ? @ @ , ( XB ) A A _N A A p PFINIT IHRTC , ( $@ A _` A A Q > QMJOB S
0x130484…130618 Dummy {f00=0x0065, f01=0x416a, f02=» , ( 1 Y _ A _0 8 FREBLK 8 , ( Q@" Q Z P 0 9 " " J , ( k _ _, ? _ P H z TIMQUE H H D ! %T 5P ;P ?W6 WV eP kV Q
0x130618…1307ac Dummy {f00=0x0065, f01=0x2008, f02=»
0x1307ac…130940 Dummy {f00=0x0065, f01=0x0190, f02=»OOP UNTIL ACCEPTED P ANK A2,/1F STATUS P RF(NZ) DUERR READING ERROR 4 P LDR A2,A9 BUFFER ADDRESS X P LDR A1,A1 z " P RF(N) RETURN ,XXXX , , " P RF(P) READ33 , , XXXX, P ADKL A2,256 SOURCE POINTER & P LDK A4,64 N
0x130940…130ad4 (2, 134) Opaque[0x194]
0x130ad4…130c68 # DirEnt {nam=»DCSTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ca8, f03=0x0000}
0x130ad4…130c68 IdxSect {
0x130ad4…130c68 f00 = 0x0065 // 0x130ad4 @0x0
0x130ad4…130c68 f01 = 0x000e // 0x130ad6 @0x2
0x130ad4…130c68 gno = [ // 0x130ad8 @0x4
0x130ad4…130c68 [0x00]: C0x0065.0x1.0
0x130ad4…130c68 [0x01]: C0x0065.0x2.0
0x130ad4…130c68 [0x02]: C0x0065.0x3.0
0x130ad4…130c68 [0x03]: C0x0066.0x0.0
0x130ad4…130c68 [0x04]: C0x0066.0x1.0
0x130ad4…130c68 [0x05]: C0x0066.0x2.0
0x130ad4…130c68 [0x06]: C0x0066.0x3.0
0x130ad4…130c68 ]
0x130ad4…130c68 }
0x130c68…130dfc Dummy {f00=0x0065, f01=0x0190, f02=» 0 P IDENT DCSTAT REL 11.0 81-01-26 870105041100 P* 8 B P************************************************************* B P* $ P* PHILIPS TERMINAL SYSTEM, P T S P* 4 P* DCSTAT STATISTIC DATA COLLECTION ROUTINE FOR * P* DA
0x130dfc…130f90 Dummy {f00=0x0065, f01=0x0190, f02=»AM DESCRIPTION P*. FUNCTIONS: > P*. DCSTAT SUPPLIES THE DATA COMMUNICATION DRIVERS/PACKAGES , > P*. WITH A SET OF ROUTINES TO MAINTAIN STATISTICAL COUNTERS n , P*. FOR A DWT OR A DWT AND ITS HEAD DWT. @ P*. THE FUNCTIONS ARE CONFIGURABLE BY THE
0x130f90…131124 Dummy {f00=0x0065, f01=0x0190, f02=»EM STACK IN d 8 P*. INHIBIT MODE. THEY CAN BE USED SIMULTANEOUSLY BY , P*. DIFFERENT TYPES OF DRIVERS/PACKAGES. P > P*. THE COUNTERS ARE MAINTAINED IN A BUFFER LINKED FROM THE : P*. DWT. EACH BUFFER CONTAINS A CONTROL WORD INDICATING < P*. STATU
0x131124…1312b8 Dummy {f00=0x0065, f01=0x0190, f02=» COUNTERS ENTRY: DCSRST AND DCSRLL 2 P* -UPDATE COUNTERS ENTRY: DCSUPR AND DCSUPD . ( P* -READ COUNTERS ENTRY: DCSRED d P* P* 8 P* ACTIONS TO INCLUDE STATISTICS IN A DRIVER/PACKAGE 8 P* 1. DEFINE EVENTS IN THE DRIVER TO CALL
0x1312b8…13144c Dummy {f00=0x0065, f01=0x0190, f02=»E COUNTER AREA IN THE DWT AND ITS LINK(OFFSET) : P* THE LAYOUT DESCRIBED BELOW MUST BE APPLIED AS REQ 6 P* BY DCSTAT t P EJECT P*. TABLE STRUCTURE: ( P*. THE DWT HAS THE FOLLOWING LAYOUT P*. P* .................. P
0x13144c…1315e0 Dummy {f00=0x0065, f01=0x0190, f02=»UFF . -- P* .................. ! " P* . LINK HEAD DWT . --!----> 4 P* .................. ! Z " P* . LINK NEXT DWT . --!----> | P* .................. ! P* . . P* / / ! P* /
0x1315e0…131774 (2, 135) Dummy {f00=0x0065, f01=0x0190, f02=»NTER AREA . P* .................. P* . . 4 P* / / R P* .................. p P EJECT P* P* ENTRY POINTS P* , P ENTRY DCSRST REST COUNTERS IN SPEC DWT . P ENTRY DCSRLL RESE
0x131774…131908 Dummy {f00=0x0065, f01=0x0190, f02=»TETAB ^ 2 P ENTRY DCSUPD UPDATE COUNTER SPEC IN PKT, (A2) 6 P ENTRY DCSRED READ STATISTIC COUNTERS TO USER BUFF D P* ~ P* ENTRY EQU:S P* ( P ENTRY CSMAXL MAX INDEX FOR LINK DWT * P ENTRY DWTCHD EQU DWT OFFSET HEAD DWT * P ENTRY
0x131908…131a9c Dummy {f00=0x0065, f01=0x0190, f02=»* 8 P**************************************************** P* F & P* CONDITIONAL ASSEMBLY PARAMETERS P P* z 2 P********************************************* P* P PMMUPAG EQU 1 MMU SWITCH P P* 8 P* COND
0x131a9c…131c30 Dummy {f00=0x0065, f01=0x0190, f02=» P STATISTIC ON SUBUNITS PSTUNIT EQU 1 IF 0= NO 1= YES $ P H P DOUBLE WORD COUNTERS R PSTDBLE EQU 0 IF 0=NO, 1=YES r P P P 2 P********************************************** P* P* EXTERNAL TABLE OFF
0x131c30…131dc4 Dummy {f00=0x0065, f01=0x0190, f02=» " REQ LENGTH PECBEL EQU 6 " EFF LENGTH P 8 P B P IFT MMUPAG=0 L ( PDWTDRD EQU /10 DRIVER DEP AREA START b P XIF P IFT MMUPAG=1 ( PDWTDRD EQU /14 DRIVER DEP AREA START P XIF P < PDWTSTB EQU DWTDRD DWT
0x131dc4…131f58 Dummy {f00=0x0065, f01=0x0190, f02=»LINK TO NEXT DWT n 0 PDWTLAD EQU DWTCHN+2 " LOCAL DTE ADDRESS . PDWTSUB EQU DWTLAD+4 POSSIBLE SUB ADDRESS L P EJECT ~ B P************************************************************* P* P* STATISTIC EQU:S * P* USED IN CALLS FO
0x131f58…1320ec Dummy {f00=0x0065, f01=0x0190, f02=» < P* THE FORMAT OF THE PARAMETER-1 IN CALL TO DCSUPR/DCSUPD P* IS: D @ P* BITS XYZZZZZZ WHERE X=1IF PARAMETER-2 USED AS INCREMENT R 8 P* ELSE INCREMENT WITH +1 8 P* Y=1 IF DOUBLE WORD COUNTER
0x1320ec…132280 Dummy {f00=0x0065, f01=0x0190, f02=»*********** ^ P P* P* LINK LEVEL COUNTERS ( P F . PCSSRBL EQU /10 SYNCH DATA BLOCKS RECEIVED P : PCSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY > PCSSRBO EQU /12 " DATA BLOCKS REJECTED BUFFER OVERFLOW 6 PCSSRAB
0x132280…132414 (2, 136) Dummy {f00=0x0065, f01=0x0190, f02=»ATA BLOCKS TRANSMITTED z 2 PCSSTRT EQU /16 " DATA BLOCKS RETRANSMITTED , PCSSTAB EQU /17 " DATA BLOCKS ABORTED T , PCSSXC1 EQU /18 " PROTOCOL DEPENDENT , PCSSXC2 EQU /19 " PROTOCOL DEPENDENT , PCSSXC3 EQU /1A " PROTOCOL DEPEND
0x132414…1325a8 Dummy {f00=0x0065, f01=0x0190, f02=»CSBRBO EQU /12 " I-FRAMES REJECTED BUFFER OVERFLOW 2 PCSBRAB EQU /13 " I-FRAMES REJECTED ABORTED > 4 PCSBRPE EQU /14 " I-FRAMES REJECTED FCS ERROR t . PCSBTIF EQU /15 " I-FRAMES TRANSMITTED 0 PCSBTRT EQU /16 " I-FRAMES RETRANSMITTE
0x1325a8…13273c Dummy {f00=0x0065, f01=0x0190, f02=» p & PCSBRFR EQU /1A " FRMR RECEIVED $ PCSBRUA EQU /1B " UA RECEIVED 2 & PCSBRRJ EQU /1C " REJ RECEIVED Z & PCSBRNR EQU /1D " RNR RECEIVED 4 PCSBTSM EQU /1E " SNRM/SARM/SABM TRANSMITTED * PCSBTDI EQU /1F " DISC TRANSMIT
0x13273c…1328d0 Dummy {f00=0x0065, f01=0x0190, f02=»D n ( PCSBTRJ EQU /23 " REJ TRANSMITTED ( PCSBTNR EQU /24 " RNR TRANSMITTED 6 , PCSBXC1 EQU /25 " PROTOCOL DEPENDENT b ( PCSBXC2 EQU /26 " " " ( PCSBXC3 EQU /27 " " " P P P* DTE/DCE
0x1328d0…132a64 Dummy {f00=0x0065, f01=0x018e, f02=»HROUGHPUT ERROR | $ PCSCDCE EQU /2B DCE NOT OPERABLE * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT @ PCSCXC2 EQU /2D " n PCSCXC3 EQU /2E " P P 6 PCSINIV EQU /10 1ST IMPL COUNTER CSSRBL AND CSBRBL 8 PCSMAXL EQU CSCXC3-/F
0x132a64…132bf8 Dummy {f00=0x0065, f01=0x018e, f02=» P* P* STATISTIC BUFFER LAYOUT P* 0 < P******************************************************* : P z P* ................... " P* . . STWSID P* .................. " P* . . STWCST
0x132bf8…132d8c Dummy {f00=0x0065, f01=0x0190, f02=» P* / / P* / / " P* ................... @ ( PSTWSID EQU 0 RESERV FOR SYMBOLIC ID ^ & PSTWCST EQU STWSID+2 COUNTER STATUS P =0, RESET , P /=0, OVERFLOW IN COUNTER WITH BIT 0=1 8 PSTWMIX EQU STWCS
0x132d8c…132f20 Dummy {f00=0x0065, f01=0x0190, f02=»O VALUE IN STWMIX v P EJECT P* ( @ P*********************************************************** 2 P* v < P* DCSRST - RESET STATISTIC COUNTERS FOR SPECIFIED DWT P* & P* THE FOLLOWING ACTIONS ARE TAKEN 4 P* -CHECK IF FUNCTION
0x132f20…1330b4 (2, 137) Dummy {f00=0x0066, f01=0x0190, f02=» COUNTERS d P* . P* ENTRY: CF A15,DCSRST A6=DWT 2 P* EXIT: ABR* A15 A1=STATUS N F P* 0=COMPLETED -1= NOT CONFIG P* @ P************************************************
0x1330b4…133248 Dummy {f00=0x0066, f01=0x0190, f02=»UFFER IF ANY z P LDR* A2,A15 RELOAD REG P XIF 4 P RF DCSEXI COMMON EXIT @ P EJECT ^ P l @ P*********************************************************** v P* B P* DCSRLL - RESET STATISTIC COUNTERS FOR ALL DWT:S IN CHAIN
0x133248…1333dc Dummy {f00=0x0066, f01=0x0190, f02=»S OF HEAD DWT IF ANY. IF NOT START WITH CURRENT < P* -LOCATE LINK TO STATISTIC BUFFER. IF 0 GO TO NEXT DWT 8 $ P* -CLEAR COUNTERS IN THE BUFFER x P* 2 P* ENTRY: CF A15,DCSRLL A6=DWT 4 P* EXIT: ABR* A15 A
0x1333dc…133570 Dummy {f00=0x0066, f01=0x0190, f02=»********************** j P PDCSRLL EQU * ( P IFT STAT=1 < $ P IFT STUNIT=1 SUBUNIT STATISTICS P * P STR A2,A15 SAVE REGS ON SYSTEM STACK x P STR A6,A15 $ P LDR A1,A6 TEMP SAVE OF SPEC DWT " P LD A6,DWTCHD,A6 LINK TO HEAD & P
0x133570…133704 Dummy {f00=0x0066, f01=0x0190, f02=» . P LD A6,DWTCHN,A6 LINK TO NEXT DWT IN CHAIN . P RB(NZ) DCSR10 NOT LAST CONTINUE TO CLEAR 6 P LDR* A6,A15 RELOAD REGS h P LDR* A2,A15 P XIF P IFT STAT=1 P IFF STUNIT=1 P RB DCSRST P XIF P RF DCSEXI COMMON EXIT
0x133704…133898 Dummy {f00=0x0066, f01=0x0190, f02=» SPEC WITH PARAMETERS IN p . P* REGS A1 AND POSSIBLY A2 < P* DCSUPS - UPDATE COUNTER SPEC WITH PARAMETERS IN R : P* REGS A1 AND POSSIBLY A2. A7 = DTETAB < P* DCSUPD - UPDATE COUNTER SPEC WITH PARAMETERS IN
0x133898…133a2c Dummy {f00=0x0066, f01=0x0190, f02=»IGURED. IF NOT EXIT WITH STATUS t : P* -IF ENTRY DCSUPD USED FETCH PARAMETER-1 FROM PACKET ( < P* -UPDATE COUNTER IN SPEC DWT IF PARAMETER WITHIN RANGE f 4 P* OF MAX VALUE KEPT IN THE CONTROL WORD OF THE P* STATISTIC BUFFER * P* IF SUBUNIT S
0x133a2c…133bc0 Dummy {f00=0x0066, f01=0x018e, f02=»5,DCSUPR A6=DWT A1=PARAM-1 (A2=PARAM-2) t P* OR 2 2 P* CF A15,DCSUPD A6=DWT H 8 P* DATA PARAM-1 (A2=PARAM-2) ~ P* 6 P* EXIT: ABR* A15 A1=STATUS F P*
0x133bc0…133d54 (2, 138) Dummy {f00=0x0066, f01=0x0190, f02=» H B P* +1=COUNTER OVERFLOWED P* N D P************::************************************************* X P PDCSUPR EQU * P IFT STAT=1 * P STR A3,A15 SAVE REGS ON SYSTEM STACK P STR A4,
0x133d54…133ee8 Dummy {f00=0x0066, f01=0x0190, f02=»QU * P IFT STAT=1 * P STR A3,A15 SAVE REGS ON SYSTEM STACK P STR A4,A15 N P STR A5,A15 b P STR A6,A15 v " P LDR A6,A7 A6 = DTETAB ADDRESS P RF DCSU00 P XIF P P PDCSUPD EQU * P IFT STAT=1 * P S
0x133ee8…13407c Dummy {f00=0x0066, f01=0x0190, f02=» STACK p P LDK A4,2 ( P ADS A4,+12,A15 ADJUST RETURN POINT P L P V 0 PDCSU00 EQU * COMMON POINT FOR DCSUPR DCSUPD ` $ P LDK A4,0 PRESET STATUS FOR EXIT PDCSU01 EQU * P CF A15,DCOUNT INCR COUNTER P IFT STUNIT=1 &
0x13407c…134210 Dummy {f00=0x0066, f01=0x0190, f02=»KEEP IT x 4 P RB DCSU00 CLEAR STATUS AND UPDATE FOR HEAD DWT ! PDCSU04 EQU * ! H P XIF ! P IFT STAT=1 ! h $ P LDR A1,A4 MOVE STATUS FOR EXIT ! | P LDR* A6,A15 RELOAD REGS ! P LDR* A5,A15 ! P LDR* A4,A15 ! P LDR* A3,A15 ! P XIF !
0x134210…1343a4 Dummy {f00=0x0066, f01=0x0190, f02=»ATISTIC COUNTERS INTO USER BUFFER ! x P* " * & P* THE FOLLOWING ACTIONS ARE TAKEN " 4 < P* -CHECK IF FUNCTION CONFIGURED. IF NOT EXIT WITH STATUS " ^ 0 P* -CHECK USER PARAMETERS IF NOT CORRECT EXIT " : P* -FETCH SYMBOLIC ID FROM DWT AND MOV COUNTERS IF ANY
0x1343a4…134538 Dummy {f00=0x0066, f01=0x0190, f02=»ACTION " n P* # : P* ENTRY: CF A15,DCSRED A6=DWT A8=ECB # P* # V 4 P* EXIT: ABR* A15 A1=STATUS # ` D P* 0=COMPLETED -1=NOT CONFIG # : P* -
0x134538…1346cc Dummy {f00=0x0066, f01=0x0190, f02=» IN ECBEL AND (ECBBA)=COUNTERS # j > P********************************************************** $ & P $ h PDCSRED EQU * $ r P IFT STAT=1 $ * P STR A2,A15 SAVE REGS ON SYSTEM STACK $ P STR A3,A15 $ P STR A4,A15 $ P STR A5,A15 $ P STR
0x1346cc…134860 Dummy {f00=0x0066, f01=0x0190, f02=» $ $ P LD A5,ECBRL,A8 ANY LENGTH GIVEN % P RF(Z) DCSRER NO % 0 P LD A4,DWTTAB,A6 TTAB ADDR % H P IFT STUNIT=1 % j " P LD A1,DWTCHD,A6 ANY HEAD DWT % P RF(Z) DCSR01 NO % 0 P LD A7,DWTSUB,A6 SYMBOLIC SUB ADDRESS IF ANY % P RF DCSR02 MOVE COUNTE
0x134860…1349f4 (2, 139) Dummy {f00=0x0066, f01=0x0190, f02=»F(Z) DCSR04 NO SYMBOLIC ID MOVE 0 % $ P LD A1,DWTSTB,A6 ANY STAT BUFFER & * P RF(Z) DCSR04 NO MOVE 0 & R P ADR A1,A6 ADD BASE OF DWT & r $ P LD A3,STWMIX,A1 NO OF COUNTERS & P RF(Z) DCSR04 NOE MOVE 0 & P SLL A3,1 COUNTERS TO BYTES & , P ADK A3,
0x1349f4…134b88 Dummy {f00=0x0066, f01=0x0190, f02=»ID OR STAT BUFFER MOVE ZEROE & P LDK A3,2 SIZE ' $ " P LDKL A1,DCZERO BUFFER ADDRESS ' : PDCSR06 EQU * ' ` & P SUR A5,A3 ANY SPACE IN USER BUFF ' t P RF(N) DCSRER NO ' 0 P CF A15,MOVSU MOVE STAT BUFFER TO USER BUFF ' P XIF ' P IFT STAT=1 '
0x134b88…134d1c Dummy {f00=0x0066, f01=0x0190, f02=»IF ' P IFT STAT=1 ( P ( $ PDCSR08 EQU * ALL MOVE UPDATE ECB ( * " P SU A2,ECBBA,A8 START OF USER ( R P ST A2,ECBEL,A8 NO OF BYTES ( x P LDK A1,0 STATUS OK ( P RF DCSREX EXIT ( P ( 2 PDCSRER EQU * BUFFER ERROR E.G NONE OR OVERFLOW
0x134d1c…134eb0 Dummy {f00=0x0066, f01=0x0190, f02=»* A4,A15 ( P LDR* A3,A15 ) P LDR* A2,A15 ) $ P XIF ) 8 P RF DCSEXI COMMON EXIT ) D P* ) b PDCZERO DATA 0 ZEROE BUFFER ) l P EJECT ) > P********************************************************* ) P* ) P* COMMON EXIT FROM FUNCTIONS )
0x134eb0…135044 Dummy {f00=0x0066, f01=0x0190, f02=»A1,-1 STATUS NOT CONFIGURED ) P XIF * $ P ADKL A15,4 * 0 P ABR* A15 RETURN * D P EJECT * P IFT STAT=1 * j : P****************************************************** * ~ P* * " P* COMMON INTERNAL SUBROUTINES * P* * : P******************
0x135044…1351d8 Dummy {f00=0x0066, f01=0x0190, f02=»ENTRY: CF A15,DCLEAR A6=DWT * 0 P* EXIT: ABR* A15 A1=0 A6=DWT + , PDCLEAR EQU * + ` 0 P LD A2,DWTSTB,A6 ANY STATISTIC BUFFER LINKED + t P RF(Z) DCLEXI NO + P ADR A2,A6 ADD BASE OF DWT + 2 P LD A1,STWMIX,A2 GET MAX INDEX FOR THI
0x1351d8…13536c Dummy {f00=0x0066, f01=0x0190, f02=»DD OFFSET + , P ADR A2,A1 POINT AT LAST WORD+1 IN BUFF , PDCLOOP EQU * , B P CMR A2 CLEAR COUNTER , V P SUK A2,2 POINTER -2 , t P SUK A1,2 ALL CLEARED , P RB(NZ) DCLOOP NO , PDCLEXI EQU * , P LDK A1,0 STATUS , P RF DCEXIT COMMON RE
0x13536c…135500 Dummy {f00=0x0066, f01=0x0190, f02=»A6=DWT , l * P* EXIT: ABR* A15 A4= - PDCOUNT EQU * - < P STR A1,A15 SAVE PARAM-1 - P $ P STR A2,A15 SAVE PARAM-2 IF ANY - p * P LD A3,DWTSTB,A6 ANY STATISTIC BUFFER - P RF(Z) DCONOB NO - P ADR A3,A6 ADD BASE OF DWT - P LDR A5,
0x135500…135694 (2, 140) Dummy {f00=0x0066, f01=0x0190, f02=»PARAM-1 - | 0 P CW A5,STWMIX,A3 PARAM-1 >MAX VALUE IN BUFF . P RF(NL) DCOMAX YES . D , P ADK A3,STWCTA START AFTER CONTROL WORD . ^ P ADR A3,A5 IN WORDS TO . P ADR A3,A5 START OF BUFFER . " P SLL A1,8 CHECK IF PARAM-2 REQ . P RF(N) DCO010 YES .
0x135694…135828 Dummy {f00=0x0066, f01=0x018e, f02=»RITHM . p P RF(N) DCODBL / P XIF / $ P IFT STAT=1 / 0 ( P LDR* A1,A3 CHECK COUNTER OVERFLOWED / D P RF(N) DCOVRE YES NO UPDATE / p P ADR A2,A1 INCREMENT / P / P RF(O) DCOVRF OVERFLOW / P STR A2,A3 SAVE NEW VALUE / P RF DCOEXI /
0x135828…1359bc Dummy {f00=0x0066, f01=0x0190, f02=» / p P RF(N) DCOVRE 0 " P LDK A1,0 A1=0 A2=INCR VALUE 0 P DAR* A3 ADD TO COUNTER 0 D P RF(O) DCOVRF OVERFLOW 0 d $ P STR A1,A3 SAVE COUNTER 1ST WRD 0 & P ST A2,+2,A3 SAVE COUNTER 2ND WRD 0 P RF DCOEXI 0 P XIF 0 P IFT STAT=1 0 P
0x1359bc…135b50 Dummy {f00=0x0066, f01=0x018e, f02=»A3 SAVE INDEX OVERFLOW FLAG 0 PDCOVRE EQU * 1 $ " P LDK A4,+1 SET STATUS OVERFLOW 1 8 P 1 ^ P RF DCOEXI 1 h P 1 z $ PDCOMAX EQU * PARAM-1 >MAX INDEX 1 P LDKL A4,-2 SET STATUS 1 P RF DCOEXI 1 PDCONOB EQU * NO BUFFER 1 ( P LDKL A4,-3 SE
0x135b50…135ce4 Dummy {f00=0x0066, f01=0x40e2, f02=» P RF DCEXIT COMMON RETURN 2 P EJECT 2 $ P* 2 2 P* 2 < & P* COMMON RETURN FROM INTERNAL SUBS 2 F P* 2 p PDCEXIT EQU * 2 z " P ADKL A15,4 ADJUST STATUCK POS 2 P ABR* A15 2 P XIF 2 P END 2 @ 2 EQU * NO BUFFER 1 ( P LDKL A4,-3 SE
0x135ce4…135e78 Dummy {f00=0x0066, f01=0x2008, f02=» 3 DCEXIT COMMON RETURN # END # $@ # 0 RF(Z) DCLEXI ZEROE " : 2 - ST A1,STWCTL,A2 RESTORE IT CLEANED STATUS =0 " V SLL A1,1 COUNTER INTO BYTES " , ' ADR A2,A1 POINT AT LAST WORD+1 IN BUFF " DCLOOP EQU * " SUK A2,2 POINTER -2
0x135e78…13600c Dummy {f00=0x0066, f01=0x0190, f02=» [ p & P RB POL210 RETRANSMIT WITHOUT (D) PPOL220 EQU * 2 P CWK A2,EOTP (C) RECEIVED ? F P RF(NE) POL250 NO j P EJECT P 0 P******************************************* P* P* (C) RECEIVED P* 0 P****************
0x13600c…1361a0 Dummy {f00=0x0066, f01=0x0190, f02=» h PPOL240 EQU * ] " P CF A5,COMREQ COMPLETE REQUEST ] P ABL BRM ] B PPOL250 EQU * ] R P CWK A2,ACKP (Y) RECEIVED ? ] f P RF(NE) POL260 NO ] P EJECT ] P ] 2 P********************************************** ] P* ] P* (Y) RECEIVED
0x1361a0…136334 (2, 141) Opaque[0x194]
0x136334…1364c8 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ce0, f03=0x0000}
0x136334…1364c8 IdxSect {
0x136334…1364c8 f00 = 0x0067 // 0x136334 @0x0
0x136334…1364c8 f01 = 0x0002 // 0x136336 @0x2
0x136334…1364c8 gno = [ // 0x136338 @0x4
0x136334…1364c8 [0x00]: C0x0067.0x0.0
0x136334…1364c8 ]
0x136334…1364c8 }
0x1364c8…13665c Dummy {f00=0x0067, f01=0x0190, f02=» 0 P IDENT PFTAB REL 11.0 81-01-26 870105041100 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
0x13665c…1367f0 Dummy {f00=0x0067, f01=0x0190, f02=»XTRN TCDRON TAPE CASSETTE P EXTRN SOPR SOP. PANEL " ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS @ P EXTRN FDON FLEXIBLE DISC l P EXTRN LPON LINE PRINTER P EXTRN CRON CARD READER P EXTRN DUON DISC UNIT P EXTRN MDON MINI FIXED DISC
0x1367f0…136984 Dummy {f00=0x0067, f01=0x415e, f02=»SCUON ASCU4Z P EXTRN CDON CDC DISC P EXTRN PLON LINE CONTROLLER 0 P EXTRN VUON VIDEO T P EXTRN X25:ON X25 LEVEL 3 n P P P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA DC15ON P DATA PL
0x136984…136b18 Dummy {f00=0x0067, 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
0x136b18…136cac Dummy {f00=0x0067, f01=0x0190, f02=» SCTMSZK SCTSFA 4 SCTEFA H SCTIPL SCTANO p SCTTCT SCTCDTL , ( @ SCTPAG SCTNOP S
0x136cac…136e40 Dummy {f00=0x0067, f01=0x0190, f02=»FWT SCTNOF SCTNFT " SCTFWL 6 SCTBLK J SCTDCT ^ SCTNOS r , ( SCTMXS@ SCTMOXS STKEND2
0x136e40…136fd4 (2, 142) Opaque[0x194]
0x136fd4…137168 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ce8, f03=0x0000}
0x136fd4…137168 IdxSect {
0x136fd4…137168 f00 = 0x0067 // 0x136fd4 @0x0
0x136fd4…137168 f01 = 0x0004 // 0x136fd6 @0x2
0x136fd4…137168 gno = [ // 0x136fd8 @0x4
0x136fd4…137168 [0x00]: C0x0067.0x1.0
0x136fd4…137168 [0x01]: C0x0067.0x2.0
0x136fd4…137168 ]
0x136fd4…137168 }
0x137168…1372fc Dummy {f00=0x0067, f01=0x0190, f02=» 0 P IDENT LKMAL REL 11.0 81-01-26 870105041100 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
0x1372fc…137490 Dummy {f00=0x0067, 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
0x137490…137624 Dummy {f00=0x0067, f01=0x0190, f02=»XTRN TIOFM FILE MANAGEMENT ( P EXTRN DMTEND DATA MANAGEMENT COMMIT " " P EXTRN TCHPAG CHANGE MMU PAGE N " P EXTRN TCHMMU CHANGE MMU TABLE t 2 P EXTRN TSWBLK LOAD/STORE SWAPPABLE WORK BLOCK P EXTRN TMOVE MOVE P EXTRN TENEDM TENDIO FOR EDM
0x137624…1377b8 Dummy {f00=0x0067, f01=0x0190, f02=» P* P* P* P* " P* , P* 6 P* @ P* J P EJECT T P* b $ PLKMAL DATA LKMALE-* TABLE LENGTH l P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT P DATA TEXIT TERMINAL EXIT ( P DATA TACTOT ACTIV
0x1377b8…13794c Dummy {f00=0x0067, f01=0x0190, f02=»OCK/UNLOCK SEGMENT P DATA TLDSEG SEGMENT TLDSEG P DATA TABORT ABORT FUNCTION > P DATA 0 b 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK ~ " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DATA
0x13794c…137ae0 Dummy {f00=0x0067, f01=0x4018, f02=» P END @ P DATA TLDSEG SEGMENT TLDSEG P DATA TABORT ABORT FUNCTION > P DATA 0 b 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK ~ " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DATA
0x137ae0…137c74 (2, 143) Dummy {f00=0x0067, 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
0x137c74…137e08 Dummy {f00=0x0067, f01=0x0190, f02=»A1,1,A8 P ELR A4,A8 P SRL A6,8 " P ANKL A4,/FF00 4 P ORR A6,A4 J P* 6 PGETT15 ESR A6,A8 SET VALUE IN TIMER CONTROL BLOCK f P XIF P* P SUK A3,2 P RF(E) GETT20 P ADKL A8,2 , P LDR* A6,A15 GET ACTUAL
0x137e08…137f9c Dummy {f00=0x0067, f01=0x0190, f02=»ACCUMULATED 24 HOUR CARRY 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 " P* X PTPDIS EQU * b P CMR A7 CLEAR MIDNIGTH CARRY v P ABL LKMQDI P* P EJECT MONTIM P* P* P********** P* SETTIM * P
0x137f9c…138130 Dummy {f00=0x0067, f01=0x0190, f02=»WITH h 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS @ $ P* COPIED INTO MONITOR CLOCK. t P* P* PSETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P* $ P
0x138130…1382c4 Dummy {f00=0x0067, f01=0x0190, f02=»6,A8 GET LEFTHAND CHARACTER P ECR A6,A6 $ ( P LC A6,1,A8 GET RIGHTHAND CHARACTER 6 P XIF b P* n P EJECT MONTIM x P* P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CON
0x1382c4…138458 Dummy {f00=0x0067, f01=0x0190, f02=» SLL A6,8 P SRL A4,8 P ORR A6,A4 $ P* 6 PSETT15 EQU * @ P XIF T P* ` $ P CF A15,ASCTBY CONVERT TO BINARY j P SUK A3,2 END P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15 SAVE ON STACK (HOURS AND MINUTES P RB
0x138458…1385ec Dummy {f00=0x0067, f01=0x0190, f02=» l P SUK A7,2 P LDR* A6,A15 ( P STR A6,A7 MINUTES TO MONITOR CLOCK . P SUK A7,2 Z P LDR* A6,A15 l & P STR A6,A7 HOURS TO MONITOR CLOCK P SUK A7,2 P RB TPDIS P* P EJECT MONTIM P* P* P****
0x1385ec…138780 Dummy {f00=0x0067, f01=0x0190, f02=» IT IS ENTERED FROM THE LKM HANDLER ( P* WITH THE FOLLOWING PARAMETERS: , P* X $ P* A7 = GET/SET DATE PARAMETER b < P* (A7 = 0 MEANS GET DATE, A7 = 1 MEANS SET DATE) & P* A8 = DATE CONTROL BLOCK (DCB) P* P* 0 P
0x138780…138914 (2, 144) Opaque[0x194]
0x138914…138aa8 # DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0cf8, f03=0x0000}
0x138914…138aa8 IdxSect {
0x138914…138aa8 f00 = 0x0067 // 0x138914 @0x0
0x138914…138aa8 f01 = 0x0058 // 0x138916 @0x2
0x138914…138aa8 gno = [ // 0x138918 @0x4
0x138914…138aa8 [0x00]: C0x0067.0x3.0
0x138914…138aa8 [0x01]: C0x0068.0x0.0
0x138914…138aa8 [0x02]: C0x0068.0x1.0
0x138914…138aa8 [0x03]: C0x0068.0x2.0
0x138914…138aa8 [0x04]: C0x0068.0x3.0
0x138914…138aa8 [0x05]: C0x0069.0x0.0
0x138914…138aa8 [0x06]: C0x0069.0x1.0
0x138914…138aa8 [0x07]: C0x0069.0x2.0
0x138914…138aa8 [0x08]: C0x0069.0x3.0
0x138914…138aa8 [0x09]: C0x006a.0x0.0
0x138914…138aa8 [0x0a]: C0x006a.0x1.0
0x138914…138aa8 [0x0b]: C0x006a.0x2.0
0x138914…138aa8 [0x0c]: C0x006a.0x3.0
0x138914…138aa8 [0x0d]: C0x006b.0x0.0
0x138914…138aa8 [0x0e]: C0x006b.0x1.0
0x138914…138aa8 [0x0f]: C0x006b.0x2.0
0x138914…138aa8 [0x10]: C0x006b.0x3.0
0x138914…138aa8 [0x11]: C0x006c.0x0.0
0x138914…138aa8 [0x12]: C0x006c.0x1.0
0x138914…138aa8 [0x13]: C0x006c.0x2.0
0x138914…138aa8 [0x14]: C0x006c.0x3.0
0x138914…138aa8 [0x15]: C0x006d.0x0.0
0x138914…138aa8 [0x16]: C0x006d.0x1.0
0x138914…138aa8 [0x17]: C0x006d.0x2.0
0x138914…138aa8 [0x18]: C0x006d.0x3.0
0x138914…138aa8 [0x19]: C0x006e.0x0.0
0x138914…138aa8 [0x1a]: C0x006e.0x1.0
0x138914…138aa8 [0x1b]: C0x006e.0x2.0
0x138914…138aa8 [0x1c]: C0x006e.0x3.0
0x138914…138aa8 [0x1d]: C0x006f.0x0.0
0x138914…138aa8 [0x1e]: C0x006f.0x1.0
0x138914…138aa8 [0x1f]: C0x006f.0x2.0
0x138914…138aa8 [0x20]: C0x006f.0x3.0
0x138914…138aa8 [0x21]: C0x0070.0x0.0
0x138914…138aa8 [0x22]: C0x0070.0x1.0
0x138914…138aa8 [0x23]: C0x0070.0x2.0
0x138914…138aa8 [0x24]: C0x0070.0x3.0
0x138914…138aa8 [0x25]: C0x0071.0x0.0
0x138914…138aa8 [0x26]: C0x0071.0x1.0
0x138914…138aa8 [0x27]: C0x0071.0x2.0
0x138914…138aa8 [0x28]: C0x0071.0x3.0
0x138914…138aa8 [0x29]: C0x0072.0x0.0
0x138914…138aa8 [0x2a]: C0x0072.0x1.0
0x138914…138aa8 [0x2b]: C0x0072.0x2.0
0x138914…138aa8 ]
0x138914…138aa8 }
0x138aa8…138c3c Dummy {f00=0x0067, f01=0x0190, f02=» 2 P IDENT SYSLOD REL 11.0 81-05-22 870105041100 P : ( P =12,COND. ASSEMBLY EDM INTRODUCED B P =12,REL 11.0 81-05-19 n * P =11,ERROR IN READ ROUT. FOR 16M,80M P =11,REL 11.0 81-05-11 , P =10,TWO WORDS IN INTERRUPT TABLE ARE
0x138c3c…138dd0 Dummy {f00=0x0067, f01=0x0190, f02=» =8,WHEN CFTEST=1 TEST ALSO RWSI CONNECTION P =8,REL 11.0 81-03-31 6 $ P =7,WRONG VTOC-SECTOR POINTER V P =7,REL 11.0 81-03-12 ~ * P =6,DC BLOCK DESTROYED WHEN CFTEST=0 P =6,REL 11.0 81-02-06 2 P =5,SUPPORTS LOADING FROM
0x138dd0…138f64 Dummy {f00=0x0067, f01=0x0190, f02=» KBYTE MEMORY OVERFLOW * P =3,WILL OCCUR IN SEGMENT ALLOCATION P =3,PRR 11.0 80-12-03 L 0 P =2,LOOK IF APPL. TYPE ALLOWED IN MONITOR l 0 P =2,REDESIGNED SEGMENT ALLOCATION ALGORITM P =2,PRR 11.0 80-11-20 * P =1,MXSTAB ADDR. N
0x138f64…1390f8 Dummy {f00=0x0067, f01=0x0190, f02=»1 P ENTRY APLADA P ENTRY APLLAC P ENTRY APLLAP 6 P ENTRY APLLDA L P ENTRY APLMMC b P ENTRY APLMMP x P ENTRY APLNPE P ENTRY APLREL P ENTRY APLSTA P ENTRY APLTYP P ENTRY APLIOE P ENTRY APLSE
0x1390f8…13928c Dummy {f00=0x0067, f01=0x0190, f02=» P* * P*************************** ( P EXTRN CONVRT L ( P EXTRN POB RESTORE REGISTER CONTENTS b & P EXTRN PUSH SAVE REGISTER CONTENTS P EXTRN SYSLDM P EXTRN SCTANO P EXTRN SCTBUG P EXTRN SCTEFA
0x13928c…139420 Dummy {f00=0x0067, f01=0x0190, f02=»CTIPL P EXTRN SCTPSZ P EXTRN SCTSFA $ P EXTRN SCTSTB : P EJECT P P EXTRN REL ^ P EXTRN ERROR p P EXTRN MMDDIV P EXTRN TABBE P EXTRN MMEND P EXTRN CMPADR P EXTRN MOVE 4 P EXTRN TTB:MT DISPLACEMENT T
0x139420…1395b4 (2, 145) Dummy {f00=0x0068, f01=0x0190, f02=»*************************** $ P* CONFIGURATION FILE (CONFIG) * $ $ P******************************* L P t P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS , PTDBID EQU TDBNT+2 6A TASK
0x1395b4…139748 Dummy {f00=0x0068, f01=0x0190, f02=»R OF TERMINAL DEVICE CLASSES v P* $ & PTDBFST EQU TDBNC+2 SAVE05 TERM DEF . $ PTDC EQU 7 TERMINAL DEVICE CLASS X PTLC EQU 7 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH P* * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P*
0x139748…1398dc Dummy {f00=0x0068, f01=0x0190, f02=»SDCFST EQU CDBNC+2 SAVE05 SDC-RECORD P* , P* 6 & P* USER WORK BLOCK TYPE DEF. BLOCK @ PUDBBT EQU 0 1A BLOCK TYPE j , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES P* ( PUDBFST EQU UDBNU+3 SAVE05 UDB-RECORD PNAMUWB EQU 3 NAME OF U
0x1398dc…139a70 Dummy {f00=0x0068, f01=0x0190, f02=»* SOP-HANDLING * P**************** PSOP EQU /2E DEVICE ADDRESS 0 P R PLMP1 EQU /400 LAMP 1 CODE Z PLMP2 EQU /200 | PLMP3 EQU /100 PLMP4 EQU /80 PLMP5 EQU /40 PLMP6 EQU /20 PLMP7 EQU /10 PLMP8 EQU 8
0x139a70…139c04 Dummy {f00=0x0068, f01=0x018e, f02=» MXSTAB DISPLACEMENTS * ( P*********************************** * P V P ^ PMX:NOX EQU 6 f , PMX:NOS EQU 8 NUMBER OF SEGMENT CLUSTERS z P P 2 P********************************************* 2 P*
0x139c04…139d98 Dummy {f00=0x0068, f01=0x0190, f02=» 2 P* * 2 P********************************************* : P p P x 2 PAPLADA EQU 22 APPLICATION DISC FILE ADDRESS =2 . PAPLREL EQU 18 APPLICATION RELOCATION BASE , PAPLIOE EQU 0 APPLICATION RESTART
0x139d98…139f2c Dummy {f00=0x0068, f01=0x018e, f02=»CATION LOAD ADDR. (PHYSICAL ADDR.) ~ . PAPLMMC EQU 10 APPLICATION MMU START ENTRY * ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU . PAPLPSZ EQU 20 APPLICATION SE
0x139f2c…13a0c0 Dummy {f00=0x0068, f01=0x0190, f02=» p P EJECT " P****************************** " P* * < " P* COMMON DISPLACEMENTS * b " P* AND CONSTANTS * " P* * " P****************************** P P
0x13a0c0…13a254 (2, 146) Dummy {f00=0x0068, f01=0x0190, f02=»PLICATION NUMBER ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA D , PCONSTA EQU 2 START OF CONFIGURATION DATA v ( PDATEND EQU 34 END OF DDIV PROTOTYPE : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER
0x13a254…13a3e8 Dummy {f00=0x0068, f01=0x0190, f02=»ILDING DATA PART n ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA D ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA r $ PM:REL EQU 16 RELOCATION CONSTANT , PSYSBUF EQU 28 START OF TEMPORARY BUFFER 2 PSWBFSA EQU 4 SWB-F
0x13a3e8…13a57c Dummy {f00=0x0068, f01=0x0190, f02=»1 EQU 40 COMMON SAVE AREA 1 $ PCOM02 EQU 42 COMMON SAVE AREA 2 $ $ PCOM03 EQU 44 COMMON SAVE AREA 3 L * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS t , PSWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG $ PCOM04 EQU 50 COMMON SAVE AREA 4 ( PDCBLK EQU 54 S
0x13a57c…13a710 Dummy {f00=0x0068, f01=0x018e, f02=»EMENTS * " P* AND CONSTANTS * " P* * < " P****************************** b P P , PAPLCNT EQU 4 NO OF APPLICATIONS TO LOAD & PBLKLEN EQU 6 SEGMENT BLOCK LENGTH 8 PCARFIX EQU 54
0x13a710…13a8a4 Dummy {f00=0x0068, f01=0x0190, f02=» * PCONDAD EQU 44 CONF. FILE DISC ADDRESS P* EQU 46 2 0 PCONDEV EQU 32 SAVE AREA FOR CONF. DATA DEV. B , PCURAPL EQU 24 CURRENT APPL. CONTR. BLOCK v PDEVTYP EQU 50 DEVICE TYPE 6 PDISCAD EQU 28 SAVE AREA FOR DISC ADDRESS (2 WORDS) $ PECNFBF
0x13a8a4…13aa38 Dummy {f00=0x0068, f01=0x0190, f02=»TENT LENGTH z 6 PFILCOD EQU 36 LOAD DEVICE FILE CODE (NOT CASSETTE) ( PFSTSEC EQU 16 FIRST SECTOR INDICATOR N 0 PIPLDEV EQU 34 SAVE AREA FOR PGM LOAD DEVICE z & PIPLTYP EQU 48 PGM LOAD DEVICE TYPE & PLLDADR EQU 12 LOGICAL LOAD ADDRESS , PLSTREC
0x13aa38…13abcc Dummy {f00=0x0068, f01=0x0190, f02=» EQU 8 NO OF CHAR. IN APPL. NAME * PNCHTID EQU 5 NO OF CHAR IN TID RECORD ( & PNDEVCL EQU 18 NO OF DEVICE CLASSES V 2 PNUMSEG EQU 10 DISPL. TO NO OF SEGM. IN S:GTAB . POPTION EQU 52 SAVE AREA FOR OPTOIN WORD =2 & PPAGLG EQU 8 PAGE LENGTH IN S:GTA
0x13abcc…13ad60 Dummy {f00=0x0068, f01=0x0190, f02=»NT j : PPSECNL EQU 40 PHYSICAL SECTOR NUMBER LEAST SIGNIFICANT : PPSECNM EQU 42 PHYSICAL SECTOR NUMBER MOST SIGNIFICANT H , PPSECPA EQU 38 PHYSICAL SECTOR PART (0-2) " PSEGCNT EQU 10 SEGMENT COUNTER $ PSWPFEL EQU 14 FILE EXTENT LENGTH * PTNBR
0x13ad60…13aef4 (2, 147) Dummy {f00=0x0068, f01=0x0190, f02=»******* , PCHCR EQU /E DEVICE ADDRESS FOR CASSETTE PLOCK EQU /2 LOCK CASSETTE @ ( PSBOT EQU 8 SEARCH BEGINNING OF TAPE b ( PSTMF EQU /C SEARCH TAPEMARK FORWARD P* " P* DISC/FLEXIBLE DISC HANDLING P* ( PBUFLEN EQU 256 LENGT
0x13aef4…13b088 Dummy {f00=0x0068, f01=0x0190, f02=» FLEXIBLE DISC CU ADDRESS $ PFDIOP EQU FDCU+FDCU MUX ADDRESS " PFORDEV EQU 48 DISC FORMAT J " PMUXCC EQU /8080 1:ST MUX WORD l * PMXCCD3 EQU /80C1 BYTE2=NUMBER OF WORDS PQBLFAC EQU 6 BLOCKING FACTOR , PCIO EQU /41C0 I/O INSTR. CONF. CONST
0x13b088…13b21c Dummy {f00=0x0068, f01=0x0190, f02=»: CFR A14,A13 * x F P* DATA [REL-ADDRESS] * 2 F P* * | F P*****************************************************************
0x13b21c…13b3b0 Dummy {f00=0x0068, f01=0x0190, f02=» ASSEMBLY * P************************** P 6 P > P* F " P* CONSTANTS EDITED BY SYSGEN P P* v P P PX:A EQU 1 PX:B EQU 1 PX:C EQU 1 PX:D EQU 0 PX:E EQU 0 PX:F EQU 0 =9 PX:G EQU
0x13b3b0…13b544 Dummy {f00=0x0068, f01=0x0190, f02=» LOAD DEVICE = CASSETTE | , PDISC EQU 0 1-PROGRAM LOAD DEVICE = DISC 8 PFLDISC EQU 1 1= PROGRAM LOAD DEVICE = FLEXIBLE DISC P 8 PMFDISC EQU 0 1-PROGRAM LOAD DEVICE = MINI FIXED DISC 4 PCDDISC EQU 0 1-PROGRAM LOAD DEVICE=80M CDC DISC 8 PCDDI16 E
0x13b544…13b6d8 Dummy {f00=0x0068, f01=0x0190, f02=»TFLD EQU CFTEST+FLDISC P EJECT : P****************************************************** , : P* * j : P* APPLICATION LOAD PART OF SYSLOD * : P* =======================
0x13b6d8…13b86c Dummy {f00=0x0068, f01=0x0190, f02=» * b : P* A2 - PROGRAM LOAD DEVICE * : P* A3 - APPLICATION NUMBER * L : P* A7 - APPLICATION DISC ADDRESS BIT 16-31 * : P* A8 - APPLICATION DISC ADDRESS BIT 0-15 * : P*
0x13b86c…13ba00 Dummy {f00=0x0068, f01=0x0190, f02=» * : P* EXIT: * 0 : P* * n : P* SUBROUTINES: CASSIN,SOPIN,CHCRIO,LODCOM * : P* LODSEG,REBUF,
0x13ba00…13bb94 (2, 148) Dummy {f00=0x0068, f01=0x0190, f02=» * f : P****************************************************** PSYSLOD EQU * R P* f P* SAVE REGISTERS p P* 4 P ST A1,IPLTYP+STKEND SAVE FORMAT AND DEVICE TYPE * P ST A2,SCTIPL SAVE PROGRAM LOAD DEVICE P ST A2,IPLDEV+
0x13bb94…13bd28 Dummy {f00=0x0068, f01=0x018e, f02=»YSLOD t P SUK A3,TBLBAS PTBLBAS EQU *-2-SYSLOD $ & P ST A3,APLTAB+STKCOM AS TABLE AREA B " P LDK A1,1 INITIATE NO OF APPL. l P STR A1,A3 AND SAVE IN TABLE > P ST A8,APLADA+2,A3 SAVE APPLICATION DISC ADDRESS BIT 0-15 > P ST A7,APLADA+4,
0x13bd28…13bebc Dummy {f00=0x0068, f01=0x0190, f02=» 4 PSYS100 ADKL A13,SYS110-SYS100 POINTER TO SYS110 P LD A1,SCTBUG < P LDR A2,A1 R 8 P ANK A2,1 TEST IF DEBUG ADDRESS IS ODD,IF TRUE START d P ABR(NZ) A1 P* PSYS110 EQU * " P LD A15,SCTSTB LOAD STACK BASE " P SUKL A15,4 ADJU
0x13bebc…13c050 Dummy {f00=0x0068, f01=0x018e, f02=»POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) $ P* AND ADDRESS TO GETPSW-ROUTINE ! > P* ! f P LDR A8,P RETURN ADDRESS ! p & P LDKL A3,REL+2 RELOCATION ROUTINE ! P CFR A8,A3 ! $ P LDKL A5,/5555 LOAD TEST PATTERN ! P LDK A6,64 INIT PAGE
0x13c050…13c1e4 Dummy {f00=0x0068, f01=0x0190, f02=» " P SLL A6,2 UPPER SAVE20=256 KB " P LDK A1,0 MMU ENTRY POINTER " * PAP:010 EQU * " N " P LD A2,TABBE GET PAGE ADDRESS " b 2 P SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS " P ST A2,TABBE STORE IT BACK " P TL TABBE LOAD MMU REGISTERS " 0 P EL
0x13c1e4…13c378 Dummy {f00=0x0068, f01=0x0190, f02=» 2 P ES A3,PAGSIZ-2,A1 RESTORE OLD MEMORY CONTENTS # ( P CWR A2,A5 COMPARE WITH TEST PATTERN # : P RF(E) AP:020 # f ( P SUK A6,4 DECREMENT NUMBER OF PAGES # | P RB AP:010 # P* # $ P* CHECK IF MMU HARDWARE PRESENT # P* # PAP:020 LDKL A1,/FC
0x13c378…13c50c Dummy {f00=0x0068, f01=0x0190, f02=»REGISTERS IN MMU TABLE # | " P CW A1,MMDDIV,A13 SUCCESSFUL? $ " P RF(E) AP:030 YES! MMU PRESENT $ D P LDKL A1,LMP9 $ j . P CALL ERROR INDICATE HARDWARE NOT PRESENT $ $ PAP:030 CM TABBE RESET MMU TABLE $ P* $ D P* END OF EXECUTION PATH FOR SYSTEMS
0x13c50c…13c6a0 Dummy {f00=0x0068, f01=0x0190, f02=» PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY $ P* % 8 $ P LDKL A1,PAGSIZ-2 START AT /FFFE % B PAP:110 EQU * % j & P SUKL A1,PAGSIZ NEXT PHYSICAL PAGE % ~ ( P LDR* A2,A1 SAVE OLD MEMORY CONTENT % " P STR A5,A1 STORE TEST PATTERN % P CWR* A5,A1 CH
0x13c6a0…13c834 (2, 149) Dummy {f00=0x0069, f01=0x0190, f02=» EQU * % * P STR A2,A1 RESTORE OLD MEMORY CONTENT & P* & < H P* END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY & F P* & P XIF & P EJECT & P* & P* COMMON EXECUTION PATH & P* & PAP:200 EQU * & 0 P ST A6,SCT
0x13c834…13c9c8 Dummy {f00=0x0069, f01=0x0190, f02=»T FRAME TO BE USED & ~ P LDK A3,0 ' . P ST A3,SCTEFA+2 AREA EMPTY IN FIRST FRAME ' , $ P LD A1,SCTOPT GET OPTION WORD =2 ' ^ P ST A1,OPTION+STKEND =2 ' $ P ANKL A1,/FFF RESET TYPE BITS =2 ' * P ST A1,SCTOPT AND SET AS NEW OPTION =2 ' P* ' H P
0x13c9c8…13cb5c Dummy {f00=0x0069, f01=0x0190, f02=»RESS TO READ-BUFFER ' * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE ( P* ( J & P* INITIALIZE PROGRAM LOAD DEVICE ( T P* ( ~ P CF A14,LODDEV ( P LDR A3,A9 SAVE ( . P AD A3,SAVCON COMPUTE START OF APPL. TABLE ( " P ST A3,SCTSFA STORE IN SYSTAB (
0x13cb5c…13ccf0 Dummy {f00=0x0069, f01=0x0190, f02=» PAP:232 EQU * ) P IFT EDM=1 =12 ) P* ) 0 & P* LOAD MONITOR EXTENTS IF PRESENT ) : P* ) d ( P CF A14,LODMEX LOAD MONITOR EXTENTS ) n P XIF ) P* ) $ P* SCAN CONF. FILE FOR POSSIBLE ) $ P* APPLICATION DEFINITION BLOCKS ) P* )
0x13ccf0…13ce84 Dummy {f00=0x0069, f01=0x0190, f02=»IGN. PART OF DISC ADDRESS ) x 8 P LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDRESS * " ( P LD A10,READ GET SUBROUTINE ADDRESS * ^ " P CFR A14,A10 READ FIRST SECTOR * PAP:233 EQU * * 0 P LD A1,APLTAB+STKCOM GET APPL. TABLE ADDRESS * ( P LDR* A6,A1 GET
0x13ce84…13d018 Dummy {f00=0x0069, f01=0x0190, f02=»KEND CURRENT APPL. CONTROL BLOCK * PAP:234 EQU * + ( ( P LD A7,SCTEFA GET FIRST FRAME TO USE + < ( P LD A5,SCTEFA+2 AND AREA EMPTY IN IT + h : P LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK ADDR. + P EJECT + PAP:235 EQU * + P* + . P* SAVE IN
0x13d018…13d1ac Dummy {f00=0x0069, f01=0x018e, f02=»DDRESS TO FIRST + r * P CM APLSEG+2,A1 CORE RESIDENT SEGMENT , 4 P CM APLMMC,A1 CLEAR REL. POSITION OF CONF. DATA , F . P CM APLPSZ,A1 CLEAR SEGMENT SIZE ENTRY =2 , ~ 0 P CM TNBRSG+STKEND CLEAR NBR. OF SEGMENTS =5 , : P LDR* A6,A9 GET PGM. START ADDRESS (
0x13d1ac…13d340 Dummy {f00=0x0069, f01=0x0190, f02=» 4 P LDKL A4,/1000 INITIALIZE BIT SETTING (BIT 3=1) - $ P CWK A6,'CR' CREDIT APPLICATION? - < P RF(E) AP2340 - d P* - z . P SLL A4,1 BIT SETTING FOR COBOL (BIT 2=1) - $ P CWK A6,'CO' COBOL APPLICATION? - P RF(E) AP2340 - P* - . P SLL A4,1
0x13d340…13d4d4 (2, 150) Dummy {f00=0x0069, f01=0x0190, f02=»R TYPE - v 2 P SLL A4,1 BIT SETTING FOR ASSEMBLER (BIT 0=1) . PAP2340 EQU * . D * P ST A6,APLTYP,A1 SAVE APPLICATION TYPE . X , P CWK A6,'AS' ASSEMBLER ALWAYS ALLOWED =2 . P RF(E) AP2345 =2 . 6 P AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOWED =2 .
0x13d4d4…13d668 Dummy {f00=0x0069, f01=0x018e, f02=»2,A4 SET BIT IN OPTION WORD . P ST A2,SCTOPT AND SAVE / $ P CWK A6,'AS' / B * P RF(E) AP2350 SKIP IF ASSEMBLER APPL. / V P* / , P LD A3,PAGLG+8,A9 GET DEFINED PAGE SIZE / 6 P CW A3,SCTPSZ COMPARE WITH PREVIOUSLY DEFINED SIZE / . P RF(NG) AP2350 I
0x13d668…13d7fc Dummy {f00=0x0069, f01=0x0190, f02=» P EJECT 0 P* 0 2 P* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION 0 P* 0 R ( P CWK A6,'AS' ASSEMBLER APPLICATION? 0 $ P ABL(E) AP:330 YES! NO SEGMENTS 0 P LDR A4,A3 SAVE 0 $ P ANKL A4,/3FF EVEN 1K MULTIPLE? 0 P RF(Z) AP:237 YES! 0
0x13d7fc…13d990 Dummy {f00=0x0069, f01=0x0190, f02=»EGMENTS DEFINED 0 r P* 1 PAP:238 EQU * 1 " P ABL(Z) AP:330 NO SEGMENTS! 1 6 P* 1 Z 2 P CF A14,ALOCSG RESERVE AREA FOR RESIDENT SEGM. 1 d P* 1 2 P* A1 - POINTER TO CURRENT APPL. CONTR. BLOCK 1 " P* A3 - PAGESIZE IN 1K BLOCKS 1 " P* A5 -
0x13d990…13db24 Dummy {f00=0x0069, f01=0x0190, f02=» STORE ADDRESS(ES) TO PAGE FRAMES 1 & P* HOLDING THE FIRST LOGICAL PAGE 2 * P* 2 T , P SRL A3,10 SEGMENT SIZE IN 1K BLOCKS =2 2 ^ ( P LDKL A6,MMEND GET END OF MMU-TABLE 2 " P LDKL A8,16 AND NO OF ENTRIES 2 * P LDR A4,A5 GET AREA LEFT IN LAST FRAME 2
0x13db24…13dcb8 Dummy {f00=0x0069, f01=0x0190, f02=»PAGE SIZE WITH FRAME SIZE 2 | P RB(P) AP:295 3 " $ P RF(Z) AP:300 EVEN 4K BYTES PAGE 3 8 P* 3 ` " P* RESERVE ONE EXTRA MMU ENTRY 3 j P* WHEN PAGE SIZE IS NOT AN 3 P* EVEN MULTIPLE OF 4K 3 P* 3 $ P LD A3,PAGLG+8,A9 GET PAGE SIZE 3 * P ANK
0x13dcb8…13de4c Dummy {f00=0x0069, f01=0x0190, f02=» A6,2 ALLOCATE ONE ENTRY EXTRA 3 P SUKL A8,1 4 & P* 4 8 PAP:300 EQU * 4 B 4 P LD A3,SEGCNT+STKEND ANY CORE RESIDENT SEGMENTS? 4 V P RF(Z) AP:310 NO! 4 P* 4 ( P LDR A2,A7 GET SEGMENT FRAME ADDRESS 4 P LDR A3,A6 SAVE MMU ENTRY 4 P* 4
0x13de4c…13dfe0 Dummy {f00=0x0069, f01=0x0190, f02=»MU TABLE? 4 z P RF(E) AP:310 YES! 5 P* 5 , , P ADKL A2,/400 INCREMENT PAGE FRAME ADDR. 5 6 P RB AP:305 5 f P* 5 x PAP:310 EQU * 5 P* 5 P* SAVE LOGICAL ADDRESS 5 P* TO SEGMENT 5 P* 5 P LDR A2,A8 GET MMU ENTRY 5 & P SLL A2,
0x13dfe0…13e174 (2, 151) Dummy {f00=0x0069, f01=0x018e, f02=» ST A2,LSTASG+STKEND AND SAVE AS LOGICAL START ADDR. 5 P RF AP:335 6 < P* 6 N P* NO SEGMENTS DEFINED 6 X P* 6 v PAP:330 EQU * 6 0 P LDK A3,0 RESET NO OF MMU ENTRIES TO UPDATE 6 ( P LDKL A6,MMEND INITIATE MMU POINTER 6 & P LDKL A8,16 AND MMU
0x13e174…13e308 Dummy {f00=0x0069, f01=0x0190, f02=» P* 7 0 P* A1 - POINTER TO APPLICATION CONTROL BLOCK 7 , P* A4 - AREA LEFT IN CURRENT PAGE FRAME 7 B " P* A7 - PHYSICAL PAGE ADDRESS 7 r P* A6 - MMU ENTRY ADDRESS 7 P* A8 - CURRENT MMU ENTRY 7 P* 7 0 P LD A2,COMLG,A9 COMLG OF CORE RESI
0x13e308…13e49c Dummy {f00=0x0069, f01=0x0190, f02=» A2,10 YES, ADD 5 WORDS FOR DEBUGGER 7 PAP:336 EQU * 8 , P ADK A2,1 8 @ $ P ANKL A2,/FFFE MAKE EVEN LENGTH 8 R P* 8 z $ P* IF APPLICATION IS LARGER THAN 8 P* 60 K BYTES, START ON A 4K 8 " P* BOUNDARY, TO MAKE SURE THAT 8 P* LOGICAL MEMORY
0x13e49c…13e630 Dummy {f00=0x0069, f01=0x018e, f02=» RF(L) AP:337 NO! 8 P* 9 $ P LDK A4,0 START ON A 4K BOUNDARY 9 $ P RF AP:341 9 L P* 9 ^ PAP:337 EQU * 9 h & P ADK A2,0 RESTORE LENGTH CONDITION 9 | & P RF(N) AP:340 LARGER THAN ONE PAGE 9 P* 9 & P* APPLICATION IS SMALLER THAN 32 K 9 & P* BU
0x13e630…13e7c4 Dummy {f00=0x0069, f01=0x0190, f02=» ( P* APPLICATION LENGTH LESS THAN AREA : P* LEFT IN LAST PAGE : 0 P* COPY FRAME ADDRESS IN NEXT : L P* MMU ENTRY : p P* : P* : P SUKL A8,1 : " P RF(N) TABOVF TABBE OVERFLOW! : P* : P SUK A6,2 : P STR A7,A6 UPDATE MMU ENTRY
0x13e7c4…13e958 Dummy {f00=0x0069, f01=0x0190, f02=»MMU TABLE FOR : z " P* COMMON PART OF APPLICATION ; P* ; < $ P* A4 - AREA MAPPED BUT NOT USED ; F P* IN LAST MMU ENTRY ; n " P* A2 - LENGTH OF COMMON PART ; P LDR A4,A4 EMPTY FRAME? ; P RF(Z) AP:341 YES! ; P* ; ( P SUKL A8,1 NO,
0x13e958…13eaec Dummy {f00=0x0069, f01=0x0190, f02=»ADDRESS ; v PAP:341 EQU * < 2 P SUR A2,A4 SUBTRACT AREA LEFT IN CURRENT FRAME < $ , P LDK A4,0 RESET AREA LEFT IN LAST FRAME < Z * P LDR A5,A2 SAVE REMAINING AREA NEEDED < P RF(Z) AP:351 NOTHING LEFT < P* < * P SRL A2,12 CONVERT TO NO OF 4K FRAME
0x13eaec…13ec80 Dummy {f00=0x0069, f01=0x0190, f02=» MMU ENTRIES < P* = PAP:342 EQU * = & P SUK A2,1 MORE ENTRIES TO UPDATE? = 2 P RF(N) AP:350 NO! = P* = v * P SUKL A8,1 DECREMENT MMU ENTRY POINTER = " P RF(N) TABOVF TABLE OVERFLOW! = P* = ( P SUK A6,2 DECREMENT MMU ENTRY ADDR. = *
0x13ec80…13ee14 (2, 152) Dummy {f00=0x0069, f01=0x0190, f02=»DK A1,LMP7 = & P CALL ERROR SIGNAL TABBE OVERFLOW! > PMEMOVF EQU * > < P LDKL A1,LMP3 > P P CALL ERROR MEMORY OVERFLOW! > f P* > PAP:350 EQU * > P* > 0 P LDR A5,A5 RESTORE AREA TO USE IN LAST FRAME > P RF(Z) AP:351 > P* > " P L
0x13ee14…13efa8 Dummy {f00=0x0069, f01=0x0190, f02=» > x * P SLL A2,12 MOVE TO FOUR LEFTMOST BITS ? P LDR A8,A2 ? 6 $ P ORR A8,A4 LOGICAL START ADDRESS ? H ( P CWK A3,'AS' ASSEMBLER APPLICATION? ? p P RF(NE) AP:352 NO! ? P* ? * P ADKL A8,10 SKIP FIVE PRECEEDING WORDS ? PAP:352 EQU * ? P ST A8
0x13efa8…13f13c Dummy {f00=0x0069, f01=0x0190, f02=»ION LOAD ADDR. (BIT 0-5) ? r $ P ST A4,APLLDA+2,A1 AND BIT 6-17 @ , P ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL @ H & P ST A4,LSTADR+STKCOM ADDRESS USED @ x , P LDR* A1,A6 GET ADDRESS TO PHYSICAL PAGE @ $ P ANKL A1,/C000 GREATER THAN 64K? @ P RF(Z) AP:353
0x13f13c…13f2d0 Dummy {f00=0x0069, f01=0x0190, f02=» @ P ADR A1,A4 ADD DISPLACEMENT A ( P LD A2,SCTSFA GET START OF FREE AREA A , ( P TNM A1,A2 ON SAME SIDE OF 32K-LIMIT A X P RF(NN) AP3532 YES! A P CWR A2,A1 A P RF AP3534 A PAP3532 CWR A1,A2 A PAP3534 EQU * A " P RB(L) MEMOVF MEMORY OVE
0x13f2d0…13f464 Dummy {f00=0x0069, f01=0x0190, f02=» REGISTERS A ~ P XIF B P IFT MMUPAG=0 B P EJECT B 4 PAP:240 EQU * B B P* B V @ P* EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION B ` P* B P* B & P* CHECK IF ASSEMBLER APPLICATION B P* B ( P CWK A6,'AS' ASSEMBLER APPLI
0x13f464…13f5f8 Dummy {f00=0x0069, f01=0x0190, f02=» RESERVE AREA FOR SEGMENTS B , P LDR A2,A7 CONFIGURE LOGICAL START ADDR. C " P SLL A2,2 TO FIRST SEGMENT C R P ORR A2,A5 C t P ST A2,LSTASG+STKEND C PAP:275 EQU * C . P LD A10,COMLG,A9 GET LENGTH OF COMMON PART C * P LD A3,APLTYP,A1 GET APPLICATION
0x13f5f8…13f78c Dummy {f00=0x0069, f01=0x0190, f02=»76 EQU * C P ADKL A10,1 D $ P ANKL A10,/FFFE MAKE EVEN LENGTH D $ 8 P RF(N) AP:278 APPLICATION IS LARGER THAN FRAME SIZE D L P* D > P CWR A10,A5 APPL. IS SMALLER THAN AREA LEFT IN LAST FRAME D P RF(NG) AP:280 YES! D P* D PAP:278 EQU * D
0x13f78c…13f920 Dummy {f00=0x0069, f01=0x0190, f02=»NGTH D t $ P SRL A2,12 COUNT NO OF 4K BLOCKS E , P SRL A7,10 FRAME ADDRESS AS BLOCK COUNT E 4 $ P SUR A7,A2 SUBTRACT AREA NEEDED E d " P RF(N) MEMOVF MEMORY OVERFLOW! E P* E . P ANKL A10,/0FFF ISOLATE POSSIBLE REMAINDER E P RF(Z) AP:279 NO REMAINDER
0x13f920…13fab4 (2, 153) Dummy {f00=0x006a, f01=0x0190, f02=» EQU * E $ P SLL A7,10 RESTORE FRAME ADDRESS F PAP:280 EQU * F 6 2 P SUR A5,A10 ALLOCATE AREA NEEDED IN LAST FRAME F J P LDR A4,A9 SAVE A9 F P LDR A8,A11 SAVE A11 F P ST A7,SCTEFA AND SAVE F 2 P ST A5,SCTEFA+2 SAVE DISPLACEMENT WITHIN PAGE F 6
0x13fab4…13fc48 Dummy {f00=0x006a, f01=0x0190, f02=»AVE LAST PHYSICAL F z & P ST A5,LSTADR+STKCOM ADDRESS USED G P SLL A7,2 G D P LDR A11,A7 G V . P ORR A11,A5 MAKE ADDRESS AS A 16 BIT ADDR. G j ( P LD A9,SCTSFA GET START OF FREE AREA G $ P CALL CMPADR A11 COMPARED TO A9 G P RF(G) AP:290 G P*
0x13fc48…13fddc Dummy {f00=0x006a, f01=0x018e, f02=»ER APPLICATION? G | P RF(NE) AP:295 NO! H P* H 2 ( P ADKL A11,10 SKIP 5 PRECEEDING WORDS H < PAP:295 EQU * H h 2 P ST A11,LLDADR+STKEND SAVE APPL. LOAD ADDRESS H | P LDR A9,A4 RESTORE A9 H P LDR A11,A8 RESTORE A11 H 2 P LD A8,LLDADR+STKEND A8
0x13fddc…13ff70 Dummy {f00=0x006a, f01=0x0190, f02=» P XIF I P EJECT I P* I P* COMMON EXECUTION PATH I ( P* I H : P* READ AND RELOCATE CORE RESIDENT PART OF APPLICATION I R P* I $ P* A8 - APPLICATION LOAD ADDRESS I * P* A10 - LENGTH OF CORE RESIDENT PART I P* I PAP:355 EQU * I
0x13ff70…140104 Dummy {f00=0x006a, f01=0x0190, f02=»E APPLICATION RELOCATION BASE I | 4 P CM FSTSEC+STKEND RESET FIRST SECTOR/BLOCK IND. J & 6 P LDKL A7,240 INITIATE NR OF CODE WORDS/SECT/BLOCK J ^ $ P ST A7,LOD:10 MODIFY INSTRUCTION J * P CF A14,LODCOM LOAD CORE RESIDENT PART J P* J & P* CHECK IF ASSE
0x140104…140298 Dummy {f00=0x006a, f01=0x0190, f02=» J h ( P CWK A2,'AS' ASSEMBLER APPLICATION? K P ABL(E) AP:400 YES K 4 : P LD A8,LSTASG+STKEND GET LOGICAL ADDRESS TO FIRST PAGE K N 0 P LD A2,TNBRSG+STKEND GET NUMBER OF SEGMENTS K . P ABL(Z) AP:400 NO SEGMENTS IN APPLICATION K P* K 4 P CM SEGCNT+S
0x140298…14042c Dummy {f00=0x006a, f01=0x0190, f02=»QU * K P* L & P* READ AND RELOCATE THE SEGMENTS L P* L @ . P* A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT L J P* A10 - SEGMENT LENGTH L | P* L 6 P LD A3,CURAPL+STKEND GET APPL. CONTROL BLOCK ADDR. L 0 P LD A2,APLLAC,A3 GET LOGICAL ADDR. TO AP
0x14042c…1405c0 Dummy {f00=0x006a, f01=0x018e, f02=» A2,BLKLEN NEXT BLOCK L & P SUK A1,1 DECREMENT BLOCK COUNTER M P RB AP:365 M H PAP:370 EQU * M Z P* M n P* CHECK IF DISC PAGING M x P* M " P LD A1,SCTOPT GET OPTION WORD M P ANK A1,2 DISC PAGING? M P RF(Z) AP:376 NO! M P* M &
0x1405c0…140754 (2, 154) Dummy {f00=0x006a, f01=0x0190, f02=» " P ANKL A12,/FF OF DISC ADDRESS N * P SRL A1,8 SEGMENT TYPE TO RIGHT BYTE N * ( P CCK A1,'RR' CORE RESIDENT SEGMENT? N X * P RF(E) AP:376 YES: LOAD THIS SEGMENT! N P* N * P* BYPASS THIS SEGMENT AND CHECK NEXT N P* N , P LD A1,SEGCNT+STKEND
0x140754…1408e8 Dummy {f00=0x006a, f01=0x0190, f02=»T? N z P ABL(E) AP:400 YES! O 4 P ST A1,SEGCNT+STKEND SAVE CURRENT SEGMENT NUMBER O & P RB AP:360 O ^ & PAP:375 LDKL A1,LMP2 DISC I/O ERROR O p P CALL ERROR O P EJECT O PAP:376 EQU * O " P ADK A2,2 DISC SECTOR ADDRESS O ( P CALL GETCON GET D
0x1408e8…140a7c Dummy {f00=0x006a, f01=0x0190, f02=» P RF AP:378 NOT OVERFLOW P 4 PAP:377 ADKL A12,1 INCR. M. S. P. OF DISC ADDRESS P $ " P ANKL A11,/7FFF RESET OVERFLOW P 4 PAP:378 AD A12,APLADA,A3 ADD M. S. P. OF A. D. A. P P CWK A12,255 OVERFLOW? P , P RB(G) AP:375 YES: ILLEGAL DISC ADDRESS! P P
0x140a7c…140c10 Dummy {f00=0x006a, f01=0x0190, f02=» EVEN LENGTH P | P ST A8,LLDADR+STKEND Q P CF A14,LODSEG LOAD SEGMENT Q 0 , P LD A1,SEGCNT+STKEND GET SEGMENT COUNTER Q T 6 P LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS Q ( P ADK A1,1 INCREMENT SEGMENT COUNTER Q $ P CWR A1,A2 ALL SEGMENTS LOADED
0x140c10…140da4 Dummy {f00=0x006a, f01=0x0190, f02=»LOCK =2 Q ` 0 P LD A4,APLPSZ,A3 AND SEGMENT SIZE DEFINED =2 R P IFT MMUPAG=0 R D , P ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE R Z P RB AP:360 R P XIF R P IFT MMUPAG=1 R P EJECT R PAP:379 EQU * R P LDR A1,A4 SAVE R . P ANKL A4,/0C00 G
0x140da4…140f38 Dummy {f00=0x006a, f01=0x0190, f02=»A1 SAVE R . P ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT S 0 P ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE S B 2 P ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE S v * P SUR A1,A8 COMPUTE PHYSICAL INCREMENT S PAP:380 EQU * S * P LD A8,APLLAP,A3 LOGICAL P
0x140f38…1410cc Dummy {f00=0x006a, f01=0x018e, f02=» S l P ADR A2,A2 2*MMU ENTRY T P ADR A2,A13 T & & P ADKL A2,MMDDIV MMU ENTRY ADDRESS T : P LDR A3,A13 T d P ADKL A3,MMDDIV+32 T x * P SRL A1,2 MAP PHYSICAL ADDRESS ON MMU T PAP:385 EQU * T , P ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE T P ADK
0x1410cc…141260 Dummy {f00=0x006a, f01=0x0190, f02=» P XIF U P EJECT U PAP:400 EQU * U 8 P LD A1,CURAPL+STKEND GET CURRENT APPL.CONTROL BLOCK U 2 P IM APLCNT+STKEND U n * P ABL(Z) CONLOD ALL APPLICATIONS LOADED U P* U . P ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION U 2 P ST A1,CURAPL+STKEND A
0x141260…1413f4 (2, 155) Dummy {f00=0x006a, f01=0x0190, f02=»R. U ` ( P LD A10,READ GET SUBROUTINE ADDRESS V " P CFR A14,A10 READ FIRST SECTOR V 6 P ABL AP:234 V P EJECT V p 2 P********************************************* V ~ 2 P* * V 2 P*
0x1413f4…141588 Dummy {f00=0x006a, f01=0x0190, f02=» * V 2 P* RESERVE PAGES FOR RESIDENT SEGMENTS * W 2 2 P* * W h 2 P* * W 2 P********************************************* W
0x141588…14171c Dummy {f00=0x006a, f01=0x0190, f02=»T SEGMENTS W f * P ST A3,APLPSZ,A1 SAVE SEGMENT SIZE =2 X " P LD A4,SCTOPT GET OPTION WORD X @ P SRC A4,2 DISC PAGING? X f P RF(NN) ALSG04 NO! X P* X * P LD A4,SCTIPL GET PROGRAM LOAD DEVICE X " P SUK A4,/F0 CHECK IF CASSETTE X 0 P RF(N) ALSG0
0x14171c…1418b0 Dummy {f00=0x006a, f01=0x0190, f02=»ION X t & P ADK A6,14 START OF SEGMENT BLOCKS Y PALSG00 EQU * Y 6 P ADK A6,6 NEXT SEGMENT BLOCK Y J P* LOOK IF OUTSIDE BUFFER Y n P* IF SO READ NEXT Y P* SECTOR BLOCK Y P* Y $ P LDR A4,A6 SAVE BUFFER POSITION Y P SUR A4,A9 RELATIVE
0x1418b0…141a44 Dummy {f00=0x006a, f01=0x0190, f02=» SUK A6,BUFLEN-16 COMPENSATE FOR RELOCATION BITS =5 Y $ P AND RESET BUFFER POSITION =5 Z < P* Z d PALSG01 EQU * Z n P LCR A4,A6 GET SEGMENT TYPE Z ( P CCK A4,'RR' CORE RESIDENT SEGMENT? Z P RF(NE) ALSG02 NO! Z 8 P IM SEGCNT+STKEND INCREMENT
0x141a44…141bd8 Dummy {f00=0x006a, f01=0x0190, f02=»UMBER OF RESIDENT SEGMENTS Z z ( P RF(Z) ALSG12 NO RESIDENT SEGMENTS! [ " PALSG04 EQU * [ N 6 P ST A2,SEGCNT+STKEND SAVE NBR OF RESIDENT SEGMENTS [ b 4 P ADS A2,SCTNOP ACKUMULATE NO OF CORE RES. SEGM. [ " P LD A6,SCTOPT GET OPTION WORD [ P SRC A6,1 [
0x141bd8…141d6c Dummy {f00=0x006a, f01=0x0190, f02=»TIPLE OF 4K BYTES [ x P* 0 P LDR A5,A5 LOOK IF ALREADY ON A 4K BOUNDARY $ P RF(Z) ALSG08 YES X P* r $ P LDK A5,0 START ON A 4K BOUNDARY | PALSG08 EQU * * P LDR A7,A7 LOOK IF 256 KBYTE MEMORY =3 P RF(NZ) ALSG8B NO! =3 , P LDK
0x141d6c…141f00 Dummy {f00=0x006a, f01=0x0190, f02=»ART ON 1K BOUNDARY x . P SRL A3,1 MAKE SEGMENT LENGTH IN WORDS =2 ] ( P SRL A5,1 AND REMAINING AREA TOO =2 ] L * P SRL A7,10 CONVERT TO NO OF FRAMES =2 ] x " P LDR A4,A3 GET SEGMENT SIZE =2 ] . P NGR A4,A4 AND CORRESPONDING NEG. VALUE =2 ] PALSG09 EQU
0x141f00…142094 (2, 156) Dummy {f00=0x006a, f01=0x018e, f02=»800 ALLOCATE ANOTHER FRAME =2 ] $ P RB(P) ALSG09 LOOK IF ENOUGH =2 ^ & PALSG10 EQU * =2 ^ N 4 P TNM A5,A3 FREE AREA GREATER THAN 32K WORDS? =2 ^ f P RF(N) ALS11A YES =2 ^ . P SUR A5,A3 ALLOCATE AREA TO ONE SEGMENT =2 ^ P RF ALS11B =2 ^ PALS11A
0x142094…142228 Dummy {f00=0x006a, f01=0x0190, f02=» $ P RB(NZ) ALSG09 MORE SEGMENTS =2 _ P LDR A7,A7 =2 _ , $ P ABL(N) MEMOVF MEMORY OVERFLOW! _ B P* _ j $ P SLL A7,10 RESTORE FRAME ADDRESS _ t . P ST A7,APLSEG,A1 SAVE PHYSICAL ADDRESS TO _ , P SLL A5,1 RESTORE AREA LEFT IN BYTES =2 _ . P SLL A3,1
0x142228…1423bc Dummy {f00=0x006a, f01=0x018e, f02=»SECTOR OF APPLICATION _ * P* IF S:GTAB IS LARGER THAN ONE SECTOR ` P* ` L 8 P LD A12,APLADA,A1 GET MOST SIGN. PART OF DISC ADDR. ` V 2 P LD A11,APLADA+2,A1 AND LEAST SIGNIFICANT PART ` & P CF A14,NXTSEC REREAD FIRST SECTOR ` P RTN A14 ` P `
0x1423bc…142550 Dummy {f00=0x006a, f01=0x0190, f02=» 8 P ST A11,DISCAD+STKEND SAVE CURRENT SECTOR/BLOCK =10 a ( P ST A12,DISCAD+2+STKEND ADDRESS =10 a @ . P CALL POB RESTORE FORMER REGISTER CONTENTS a l : P LD A11,DISCAD+STKEND RESTORE CURRENT SECTOR/BLOCK =10 a ( P LD A12,DISCAD+2+STKEND ADDRESS =10 a P
0x142550…1426e4 Dummy {f00=0x006a, f01=0x0190, f02=» * a v 4 P* LODMEX - LOAD MONITOR EXTENT(S) * b 4 P* =============================== * b V 4 P* * b 4 P* REFERENCED IN: SYSLOD * b 4 P*
0x1426e4…142878 Dummy {f00=0x006a, f01=0x0190, f02=» * b n 4 P* EXIT: * c 4 P* * c N 4 P* WORK REGISTERS: A1-A12 * c 4 P* * c 4 P* SUBROUTINES: L
0x142878…142a0c Dummy {f00=0x006a, f01=0x0190, f02=»***** c f PLODMEX EQU * d & P LD A1,SCTMXS MONITOR EXTENT TABLE d " PMSX10 EQU * d L P RF(Z) MSX99 d ` P* d t ( P LD A1,SCTOPT GET MONITOR OPTION =12 d ~ ( P SRC A1,1 LOOK IF MMU OPTION ON =12 d P RF(N) MSX15 YES =12 d 4 P LDKL A1,LMP9 NO, SET
0x142a0c…142ba0 Dummy {f00=0x006a, f01=0x0190, f02=»D A3,MX:NOX,A1 GET NUMBER OF EXTENTS d 4 P LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTERS e , $ P SLL A6,1 MAKE BYTE DISPLACEMENT e d P ADK A6,4 e " P ADR A6,A1 FIRST EXTENT BLOCK e PMSX20 EQU * e & P SUK A3,1 DECREMENT EXTENT COUNTER e P RF(N)
0x142ba0…142d34 (2, 157) Dummy {f00=0x006b, f01=0x0190, f02=»ADDRESS TO e z $ P LD A5,SCTEFA+2 END OF FREE AREA f P RF(NZ) MSX25 f : P* f P 2 P LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE f Z P SUKL A7,/400 f PMSX25 EQU * f ( P LD A2,EXLEN,A6 GET LENGTH OF EXTENT f & P ADK A2,11 RESERV FIVE EXTRA WORDS
0x142d34…142ec8 Dummy {f00=0x006b, f01=0x0190, f02=»TES? f h P RF(N) MSX30 NO g P* g $ 2 P CWR A2,A5 EXTENT LESS THAN AREA LEFT IN FRAME g . P RF(L) MSX40 YES! g d P* g ~ PMSX30 EQU * g P LDR A1,A2 g . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES g P CWK A1,14 <60K BYTES? g P RF(L) MSX
0x142ec8…14305c Dummy {f00=0x006b, f01=0x0190, f02=»K BOUNDARY g v P SUK A7,1 h PMSX35 EQU * h $ 0 P SUR A2,A5 SUBTRACT AREA LEFT IN LAST FRAME h 8 " P LDK A5,0 AND SET EMPTY FRAME h l P LDR A1,A2 h . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES h , P SUR A7,A1 AND SUBTRACT FROM FRAME COUNT h $ P A
0x14305c…1431f0 Dummy {f00=0x006b, f01=0x0190, f02=»KE NEXT EMPTY FRAME h ~ P SUK A7,1 i PMSX40 EQU * i . 4 P SUR A5,A2 SUBTACT FROM AREA LEFT IN LAST FRAME i B PMSX45 EQU * i z & P CWK A7,15 LOOK IF FIRST PARTITION i * P ABL(NG) MEMOVF YES, MEMORY OVERFNGOW! i P* i . P ANKL A5,/FFFC START ON
0x1431f0…143384 Dummy {f00=0x006b, f01=0x0190, f02=»FREE AREA i x P* j $ P LD A4,SCTMXS GET MXSTAB ADDRESS j " P ADK A4,2 MONITOR DISC ADDRESS j D P XRR A1,A1 RESET REG. A1 j j * P LDR* A2,A6 GET MONITOR EXTENT ADDRESS j ( P DAR* A4 AND RELOCATE EXTENT ADDRESS j * P LDR A11,A2 GET LEAST SIGNIFICANT PA
0x143384…143518 Dummy {f00=0x006b, f01=0x0190, f02=»A 16 BITS ADDRESS j " P STR A1,A6 AND SAVE IN MXSTAB k P* k @ * P ADK A5,10 SKIP PRECCEDING FIVE WORDS k J : P ST A5,LLDADR+STKEND SAVE AS PGM LOAD ADDR. (LOGICAL) k x $ P LDR A8,A5 SAVE RELOCATION BASE k 0 P ADS A5,2,A6 RELOCATE PROGRAM START ADDRES
0x143518…1436ac Dummy {f00=0x006b, f01=0x0190, f02=»O MMU TABLE k t 6 P ST A3,FSTSEC+STKEND RESET FIRST SECTOR INDICATOR l PMSX50 EQU * l N " P STR A7,A2 STORE PAGE ADDRESS l b $ P ADKL A7,/400 NEXT PAGE ADDRESS l P ADK A2,2 NEXT MMU ENTRY l & P ADK A3,1 INCREMENT ENTRY COUNTER l ( P CWK A3,16 ALL
0x1436ac…143840 Dummy {f00=0x006b, f01=0x0190, f02=»* A3,A15 RESTORE NO OF EXTENTS l P RB MSX20 m & P* m 8 PMSX99 EQU * m B P RTN A14 m V P EJECT m f 4 P*********************************************** m t P* m P* GETMON m P* ====== m P* m & P* SEARCH F
0x143840…1439d4 (2, 158) Dummy {f00=0x006b, f01=0x0190, f02=»********************** m v P* n P* n ( PGETMON EQU * n 2 ( P LD A1,SCTANO GET APPLICATION NUMBER n F P ST A1,MONNO+STKEND SAVE n r 2 P CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC n 0 P LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER n 2 P SLL A1,8 FO
0x1439d4…143b68 Dummy {f00=0x006b, f01=0x018e, f02=» n PGTMON2 EQU * o 0 P LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7) o ( P CW A1,8,A4 IS IT THE RIGHT MONITOR? o P P RF(E) GTMON4 YES! o | P* o 8 P CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC o P RB GTMON2 o P* o PGTMON4 EQU * o
0x143b68…143cfc Dummy {f00=0x006b, f01=0x0190, f02=» 6 P LD A2,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) p " P ST A2,4,A1 AND SAVE IN MXSTAB p > P RTN A14 RETURN p d P EJECT p | PGETNBR EQU * p $ P CF A14,GETVLB READ VOLUME LABEL p PGTNBR0 EQU * p P CF A14,RDSEC READ SECTOR p ( P LDK A7,QBLF
0x143cfc…143e90 Dummy {f00=0x006b, f01=0x0190, f02=» LCR A2,A4 GET 1ST CHARACTER IN FILE NAME p P CCK A2,/2020 UNUSED? q 2 P RF(E) GTNBR4 YES! q P P* q j ( P CC A1,9,A4 SAME APPLICATION NUMBER? q t P RF(E) GTNBR6 YES, RETURN q P* q PGTNBR4 EQU * q P ADR A4,A8 GET NEXT RECORD q & P ADK A
0x143e90…144024 Dummy {f00=0x006b, f01=0x0190, f02=»D NEXT SECTOR q ~ P* r PGTNBR6 EQU * r P RTN A14 r 4 P XIF r D P EJECT r P > P********************************************************** r ^ > P* * r > P* LOAD CONFIGURATION PART OF
0x144024…1441b8 Dummy {f00=0x006b, f01=0x0190, f02=» * r f > P* ENTRY: A9 - BUFFER ADDRESS * s > P* * s Z > P* EXIT: * s > P*
0x1441b8…14434c Dummy {f00=0x006b, f01=0x018e, f02=» * s b > P********************************************************** t PCONLOD EQU * t V & P LD A1,SCTEFA GET END OF FREE AREA t j P LDR A2,A1 SAVE t " P ANKL A1,/3C00 ISOLATE BIT 2-5 t P SLL A1,2 ROTATE TO BIT 0-3 t 2 P ORS A1,SCTEFA+2 C
0x14434c…1444e0 Dummy {f00=0x006b, f01=0x0190, f02=» 8 P LD A1,CURAPL+STKEND START OF LAST APPL. CTRL. BLOCK u 0 P ADK A1,ACBLEN END OF LAST APPL. CTRL. BLOCK u @ , P ST A1,SCTSFA UPDATE START OF FREE AREA u t 8 P LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE u , P ADK A1,2 ADVANCE TO FIRST CONTROL BLOCK
0x1444e0…144674 (2, 159) Dummy {f00=0x006b, f01=0x0190, f02=»ONTROL BLOCK u z * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE v " P SUK A1,/F0 CHECK DEVICE TYPE v B P RF(NN) CONRAD NOT CASSETTE v h P IFT CFTEST+CASS=2 v P* v & P* PROGRAM LOAD DEVICE = CASSETTE v P* v PCON:30 EQU * v P LDKL A1,CON:40-
0x144674…144808 Dummy {f00=0x006b, f01=0x0190, f02=»FY v ~ P LDR A1,A9 START OF BUFFER w " P ADKL A1,BUFLEN END OF BUFFER w , , P ST A1,PLDADR+STKEND SAVE END OF BUFFER w R P ST A1,EINPBF+STKEND SAVE w , P ST A1,CONSTA+STKCOM START OF CONF. DATA w P CF A14,RDBLK READ ONE BLOCK w " P CF A14,RDBLK RE
0x144808…14499c Dummy {f00=0x006b, f01=0x0190, f02=»A14,CASSIN INIT CONFIGURATION CASSETTE w P CALL CON:40 x . P RF TST:10 x B PCONEX EQU * x T P* x h > P* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE x r P* x " P CF A14,RDBLK READ NEXT BLOCK x P LDR A1,A1 APPLICATION DATA? x P
0x14499c…144b30 Dummy {f00=0x006b, f01=0x0190, f02=»90 x PCON:80 EQU * y P LDK A1,/F y " P CF A14,CHCRIO UNLOAD CASSETTE y 0 PCON:90 EQU * y V P ABL CONMOV y j P XIF y ~ P IFT CFTEST=1 y P EJECT y PCONRAD EQU * y P* y 6 P* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC y P*
0x144b30…144cc4 Dummy {f00=0x006b, f01=0x018e, f02=»LD INITIATE CONF. DATA LOAD DEV. y PCONRA0 EQU * z ( * P LD A11,CONDAD+STKEND GET START SECTOR z < 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART z j " P LDR A1,A9 GET START OF BUFFER z $ P ADKL A1,BUFLEN-6 END OF BUFFER z , P ST A1,PLDADR+STKEND SAVE
0x144cc4…144e58 Dummy {f00=0x006b, f01=0x0190, f02=» , P ST A1,CONSTA+STKCOM START OF CONF. DATA { $ P LDKL A10,0 RESET RECORD COUNTER { 4 P* { 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE { f P* { P CALL READC READ SECTOR { P* { 0 P* TEST THE SYNTAX OF THE CONFIGURATION FILE { P* {
0x144e58…144fec Dummy {f00=0x006b, f01=0x0190, f02=»ALL CONRD { P CALL TCL | P CALL TEST | $ P CALL AA | 6 P CALL CONRD | F P CALL LEV | Z P CALL TEST | l P CALL NN1 | ~ PTST:20 CALL CONRD | P CALL NN1 | P CALL CONRD | B PTST:30 LD A5,NDEVCL+STKEND GET NUMBER OF TERMINAL DEV. C
0x144fec…145180 Dummy {f00=0x006b, f01=0x018e, f02=» P CALL CONRD } P CALL LC } P CALL TEST } ( P CALL NNL } : P CALL CONRD } L P RB TST:30 } ` PTST:40 EQU * } r P CALL NN1 } P CALL CONRD } PTST:50 EQU * } < P LD A5,NDEVCL+STKEND GET NUMBER OF SPECIAL DEV. CLASSES } P CWK A5,
0x145180…145314 (2, 160) Dummy {f00=0x006b, f01=0x0190, f02=» P RB TST:50 ~ PTST:60 EQU * ~ P LCR A5,A4 GET CHARACTER ~ * , P CCK A5,'TT' BLOCK TYPE T? (MOD. INSTR.) ~ J PTST:70 EQU *-2 ~ z P RB(E) TST:10 YES! ~ P LDKL A3,/FFFF ~ * P ST A3,TST:70 MODIFY INSTRUCTION TO RF ~ P CCK A5,'CC' BLOCK TYPE C
0x145314…1454a8 Dummy {f00=0x006b, f01=0x0190, f02=» EQU * ~ . P LDR A1,A5 SAVE FIRST CHARACTER IN RECORD & P ADK A4,1 INCREMENT BUFFER POINTER @ P LCR A5,A4 GET CHARACTER j P CCK A5,';;' END OF RECORD P ABL(NE) CONERR NO! PTST:85 EQU * . P CCK A1,'AA' START OF APPL. CONTR. BLOCK?
0x1454a8…14563c Dummy {f00=0x006b, f01=0x0190, f02=»F+STKEND CURRENT POSITION IN CONF. DATA 4 P SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION 0 P ST A1,DCBLK+STKCOM SAVE h PTST:87 EQU * ( P CALL CONRD MOVE AND GET NEXT RECORD $ P LCR A1,A4 AND FIRST CHAR. IN IT P RB TST:85 P*
0x14563c…1457d0 Dummy {f00=0x006b, f01=0x0190, f02=»* : P LDKL A1,/FF3B SUBSTITUTE 'A;' WITH 'HEX. FF' AND ';' P STR A1,A8 H 4 P LD A2,CURAPL+STKEND CURRENT APPL. CONTR. BLOCK Z 8 P LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA P ADK A1,1 SKIP BLOCK MARKER 4 P SU A1,CONSTA+STKCOM C
0x1457d0…145964 Dummy {f00=0x006b, f01=0x0190, f02=»ND ADVANCE TO NEXT APPL. CONTR. BLOCK ~ $ P CALL CONRD MOVE AND PACK RECORD . ( P ADKL A10,1 INCREMENT RECORD COUNTER V & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER & P CW A8,PLDADR+ST
0x145964…145af8 Dummy {f00=0x006b, f01=0x0190, f02=»K DEF. BLOCK v P ST A1,TST:70 MODIFY INSTR. P ST A1,T:10 8 P LDR A4,A8 L P ABL TST:10 SCAN CONF. DATA ^ P* PCOR:50 EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,8 SWB:S? P RF(Z) COR:55 NO P LDK A3,'S' &
0x145af8…145c8c Dummy {f00=0x006b, f01=0x0190, f02=»IZE PGM LOAD DEVICE z P CF A14,GETFIL P* 2 P* UNLOCK FLEXIBLE DISC < P* PCOR:55 EQU * f 4 P LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE z , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE P* P LDR A2,A1 P ANK A2,/F
0x145c8c…145e20 Dummy {f00=0x006b, f01=0x0190, f02=»K FLEXIBLE DISC | P XIF P IFT CFTEST=1 $ PCOR:58 EQU * : * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE N P SUK A1,/F8 CHECK TYPE | $ P RF(N) COR:60 NOT FLEXIBLE DISC P* P XIF " P SUK A1,/FC-/F8 FLEXIBLE DISC? P ABL(NN) C
0x145e20…145fb4 (2, 161) Dummy {f00=0x006c, f01=0x0190, f02=»60 YES! DON'T UNLOCK P* P LD A1,IPLDEV+STKEND & ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC B P XIF n P IFT CFTEST=1 z PCOR:60 EQU * P EJECT PCONMOV EQU * P* 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA P
0x145fb4…146148 Dummy {f00=0x006c, f01=0x0190, f02=»ND OF CONFIGURATION DATA p 0 P LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA * P CM -2,A2 MAKE SURE CONFIGURATION FILE T " P SUK A2,1 IS FOLLOWED BY X'00' , P SUR A3,A1 LENGTH OF CONFIGURATION DATA 2 P ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA
0x146148…1462dc Dummy {f00=0x006c, f01=0x0190, f02=»E START OF CONFIGURATION DATA x 2 P LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA & 0 P ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH P ANKL A1,/FFFE AND MAKE EVEN P ST A1,CONLEN+STKCOM & P LDR A1,A9 GET START OF FREE AREA P LDR A12,A2 EN
0x1462dc…146470 Dummy {f00=0x006c, f01=0x0190, f02=»STAB ADDRESS | $ P RF(Z) CMOV20 NO MXSTAB PRESENT P* < 0 P AD A2,M:REL+STKCOM RELOCATE MXSTAB ADDRESS F * P ST A2,SCTMXS AND SAVE AS NEW ADDRESS z PCMOV20 EQU * , P LD A2,CONSTA+STKCOM GET START OF CONFF P* < P* MOVE SYSLDA+SYS
0x146470…146604 Dummy {f00=0x006c, f01=0x0190, f02=» LDR* A4,A1 P STR A4,A2 P CWR A1,A13 & P RB(NE) MOPRO : ( P ABR A2 CONTINUE EXECUTION IN SYSLDM P P EJECT | D P*************************************************************** D P* SUROUTINES USED TO TEST THE SYNTAX OF THE CONFIGURA
0x146604…146798 Dummy {f00=0x006c, f01=0x0190, f02=» COMPUTE NUMBER OF CHARACTERS IN THIS RECORD P* 4 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER > P LDR A2,A1 SAVE x & P LDK A3,0 RESET CHARACTER COUNTER P LDR A4,A8 START OF RECORD PCOR:30 EQU * P LCR A5,A4 GET CHARACTER
0x146798…14692c Dummy {f00=0x006c, f01=0x0190, f02=»COR:38 EQU *-2 P RF(E) COR:40 YES! * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? 0 P RF(E) MEMOFL YES! ^ & P ADK A1,1 INCREMENT BUFFER POINTER x * P ADK A3,1 INCREMENT CHARACTER COUNTER & P ADK A4,1 INCREMENT RECORD POINTER P RB COR:30 LOO
0x14692c…146ac0 Dummy {f00=0x006c, f01=0x018e, f02=»3,NCHTID CHECK IF END OF RECORD 4 P RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD ( PCOR:45 EQU * ` 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION t P LDR A1,A8 START OF RECORD P CALL MOVE PCOR:48 EQU * ( P ADKL A10,1 INCREMENT
0x146ac0…146c54 (2, 162) Dummy {f00=0x006c, f01=0x0190, f02=» d & P CW A8,PLDADR+STKEND END OF BUFFER P RF(NE) COR:10 NO! 2 P CALL READC READ SECTOR L $ PCOR:10 LDR A4,A8 START OF RECORD l P RTN A14 P XIF P IFT CFTEST+CASS=2 PCON:40 EQU * " P CF A14,RDBLK READ NEXT BLOCK P LDR
0x146c54…146de8 Dummy {f00=0x006c, f01=0x0190, f02=» IFT CFTEST=1 PMEMOFL EQU * * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW * P CALL ERROR X P EJECT l PREADC EQU * z P CF A14,RDSEC READ SECTOR P LDR A8,A9 " P LDR A4,A8 GET START OF BUFFER P RTN A14 PT EQU * P
0x146de8…146f7c Dummy {f00=0x006c, f01=0x0190, f02=» POINTER v " P LCR A5,A4 GET NEXT CHARACTER P CCK A5,';;' END OF RECORD? 6 P ABL(NE) CONERR NO! Z P RTN A14 v P EJECT PNNL EQU * * P LDK A3,3 NO OF DIGITS IN LINE NUMBER & P CF A14,NUMB LOOK IF LEGAL DIGITS $ P LDR A1,A1
0x146f7c…147110 Dummy {f00=0x006c, f01=0x0190, f02=»5,'LL' LINE L? P RF(E) NN:40 YES! P CCK A5,'RR' LINE R? 0 P RF(E) NN:40 YES! L P CCK A5,'AA' LINE A? f P RF(E) NN:40 YES! P CCK A5,'SS' LINE S? P RF(E) NN:40 YES! P CCK A5,'PP' LINE P? P RF(E) NN:40 YES! P
0x147110…1472a4 Dummy {f00=0x006c, f01=0x0190, f02=» & P ADK A4,1 INCREMENT BUFFER POINTER P RF NN:50 . P* @ PNN EQU * J $ P LDK A3,2 NO OF DIGITS IN NUMBER Z & P CF A14,NUMB LOOK IF LEGAL DIGITS $ P LDR A1,A1 SET RETURN CONDITION " P RF(Z) CONERR '00' NOT ALLOWED P* $ P RF
0x1472a4…147438 Dummy {f00=0x006c, f01=0x0190, f02=»S p $ P ST A5,NDEVCL+STKEND SAVE NUMBER " PNN:50 LCR A5,A4 GET CHARACTER 2 P CCK A5,';;' END OF RECORD? X P RF(NE) CONERR NO! | P RTN A14 P EJECT PAA EQU * P LDK A3,2 PAA:10 EQU * P LCR A5,A4 GET CHARACTER .
0x147438…1475cc Dummy {f00=0x006c, f01=0x0190, f02=») AA:20 NO! 0 P CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? P RF(L) CONERR H 0 P CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? ^ P RF(G) CONERR PAA:20 EQU * & P ADK A4,1 INCREMENT BUFFER POINTER P SUK A3,1 P RB(NZ) AA:10
0x1475cc…147760 Dummy {f00=0x006c, f01=0x0190, f02=»TID EQU * " P LDKL A2,SEQ1 SELECT SEQUENCE & P LDK A3,4 GET NUMBER OF CHARACTERS 8 P RTN A14 b PTCL EQU * r " P LDKL A2,SEQ2 SELECT SEQUENCE & P LDK A3,4 GET NUMBER OF CHARACTERS P RTN A14 PLEV EQU * " P LDKL A2,SEQ3 SELE
0x147760…1478f4 (2, 163) Dummy {f00=0x006c, f01=0x0190, f02=»NCE v & P LDK A3,5 GET NUMBER OF CHARACTERS P RTN A14 6 PLC EQU * F " P LDKL A2,SEQ5 SELECT SEQUENCE V & P LDK A3,3 GET NUMBER OF CHARACTERS | P RTN A14 PSDCS EQU * " P LDKL A2,SEQ6 SELECT SEQUENCE & P LDK A3,5 GET NUMBER OF CH
0x1478f4…147a88 Dummy {f00=0x006c, f01=0x0190, f02=» ADK A4,1 INCREMENT BUFFER POINTER ( P ADK A2,1 INCREMENT SEQUENCE POINTER * . P SUK A3,1 MORE CHARACTERS IN THE SEQUENCE? V P RB(NZ) TEST YES! P RTN A14 P EJECT PSUKASC EQU * 2 P CCK A5,/3030 NUMBER OF NUMERIC CHARACTERS<10?
0x147a88…147c1c Dummy {f00=0x006c, f01=0x0190, f02=»14 P EJECT PNUMB EQU * * P LDK A1,0 RESET NO OF NON ZERO DIGITS * PNUMB00 EQU * X " P LCR A5,A4 GET DIGIT IN NUMBER l & P ADK A4,1 INCREMENT BUFFER POINTER ( P CCK A5,/3939 NUMERIC CHARACTER >9? P RF(G) CONERR YES! P*
0x147c1c…147db0 Dummy {f00=0x006c, f01=0x0190, f02=»INCREMENT NO OF NON ZERO DIGITS PNUMB10 EQU * ( & P SUK A3,1 DECREMENT DIGIT COUNTER < & P RF(Z) NUMB20 ALL DIGITS PROCESSED f P* , P SLL A5,8 LAST DIGIT TO LEAST SIGN. BYTE " P RB NUMB00 PROCESS NEXT DIGIT P* PNUMB20 EQU *
0x147db0…147f44 Dummy {f00=0x006c, f01=0x018e, f02=» * 6 P* SEQUENCES * , 6 P* * f 6 P************************************************** P* P* P* P* PSEQ1 E
0x147f44…1480d8 Dummy {f00=0x006c, f01=0x0190, f02=» P DATA 'LE' P DATA 'V=' PSEQ4 EQU * TDC=T ( P DATA 'TD' @ P DATA 'C=' R P DATA 'T0' d PSEQ5 EQU * LC= v P DATA 'LC' P DATA '=0' PSEQ6 EQU * SDC=S P DATA 'SD' P DATA 'C=' P DATA 'S0' P XIF
0x1480d8…14826c Dummy {f00=0x006c, f01=0x0190, f02=» v " P ADKL A1,BUFLEN END OF BUFFER , P ST A1,PLDADR+STKEND SAVE END OF BUFFER . P ST A1,EINPBF+STKEND SAVE ^ 4 P ST A1,CONSTA+STKCOM START OF CONFIGURATION DATA P CF A14,RDBLK READ ONE BLOCK " P CF A14,RDBLK READ NEXT BLOCK P LDR A
0x14826c…148400 Dummy {f00=0x006c, f01=0x0190, f02=» NEXT BLOCK ~ P LDR A1,A1 TAPEMARK? P RF(NZ) CONEX YES! 0 PCON:50 EQU * J P* ^ 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK h P* 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER P LDR A2,A1 SAVE & P LDK A3,0 RESE
0x148400…148594 (2, 164) Dummy {f00=0x006c, f01=0x0190, f02=»';;' CHECK IF SPACE & P RF(E) CON:70 NO MOORE CHARACTERS PCON:65 EQU * F P CWK A3,CBLEN END OF BUFFER? Z P RF(E) CON:75 YES! ~ * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? P RF(E) MEMOFL YES! , P ADK A1,1 INCREMENT DESTINATION POINTER
0x148594…148728 Dummy {f00=0x006c, f01=0x0190, f02=»C A5,1,A4 GET NEXT CHARACTER " P CCK A5,';;' TWO SEMI-COLONS? $ P RF(NE) CON:75 NO! J * P CWK A3,NCHTID CHECK IF END OF RECORD d 4 P RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD PCON:75 EQU * 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINAT
0x148728…1488bc Dummy {f00=0x006c, f01=0x0190, f02=»F NO APPLICATION DATA ON SAME CASSETTE | P* . " P CF A14,RDBLK READ NEXT BLOCK 8 P LDR A1,A1 APPLICATION DATA? ^ P RF(NZ) CON:80 NO! P LDK A1,/D * P CF A14,CHCRIO SEARCH TAPEMARK REVERSE " P CF A14,RDBLK BYPASS TAPEMARK P RF CO
0x1488bc…148a50 Dummy {f00=0x006c, f01=0x018e, f02=» PCONERR EQU * P LDKL A1,LMP4 P CALL ERROR . P IFF CFTEST=1 B PMEMOFL EQU * X * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW l P CALL ERROR P EJECT PCONRAD EQU * P* 6 P* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE
0x148a50…148be4 Dummy {f00=0x006c, f01=0x0190, f02=» 0 P CF A14,CONFLD INITIATE CONF. DATA LOAD DEV. PCONRA0 EQU * 8 * P LD A11,CONDAD+STKEND GET START SECTOR L 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART z " P LDR A1,A9 GET START OF BUFFER $ P ADKL A1,BUFLEN-6 END OF BUFFER , P ST A1,PLD
0x148be4…148d78 Dummy {f00=0x006c, f01=0x018e, f02=»ND SAVE =2 ~ P ST A1,CONSTA+STKCOM $ P LDKL A10,0 RESET RECORD COUNTER . PCOR:10 EQU * V P* j 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE t P* P CF A14,RDSEC READ SECTOR " P LDR A8,A9 GET START OF BUFFER PCOR:20 EQU *
0x148d78…148f0c Dummy {f00=0x006c, f01=0x0190, f02=» P LDR A2,A1 SAVE & P LDK A3,0 RESET CHARACTER COUNTER P LDR A4,A8 START OF RECORD F P* h P* LOOK IF WE HAVE AN r P* APPLICATION CONTROL BLOCK P* & P LDR* A5,A4 GET 1ST WORD IN BUFFER 0 P CWK A5,'D;' DATA COMMUNICATION
0x148f0c…1490a0 Dummy {f00=0x006c, f01=0x0190, f02=» LDKL A5,/FF3B YES, SUBSTITUTE A; WITH P STR A5,A4 'HEX FF' AND ';' . 8 P LD A5,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK R P ADK A1,1 SKIP BLOCK MARKER 6 P ST A1,EINPBF+STKEND SAVE CURRENT BUFFER POSITION 8 P SU A1,CONSTA+STKCOM AND CAL
0x1490a0…149234 (2, 165) Dummy {f00=0x006d, f01=0x0190, f02=»T NO OF CHARACTERS TO MOVE ~ P CALL MOVE " P ADKL A10,2 SKIP NEXT RECORD 4 P* X . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER b ( P CW A8,PLDADR+STKEND END OF BUFFER? P RF(L) COR:48 NO! P* ( P CF A14,RDSEC YES, READ NEXT SECTOR
0x149234…1493c8 Dummy {f00=0x006d, f01=0x0190, f02=»IN CONF. DATA =6 j 8 P SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 P ST A5,DCBLK+STKCOM SAVE =6 T PCOR:30 EQU * x P LCR A5,A4 GET CHARACTER P CCK A5,';;' END OF RECORD? P RF(E) COR:40 YES! PCOR:35 EQU * * P CWK A3,RE
0x1493c8…14955c Dummy {f00=0x006d, f01=0x0190, f02=»DK A1,1 INCREMENT BUFFER POINTER * P ADK A3,1 INCREMENT CHARACTER COUNTER ( & P ADK A4,1 INCREMENT RECORD POINTER V P RB COR:30 LOOP PCOR:40 EQU * " P LC A5,1,A4 GET NEXT CHARACTER P CCK A5,';;' TWO SEMICOLONS? P RF(NE) COR:45 NO!
0x14955c…1496f0 Dummy {f00=0x006d, f01=0x0190, f02=»,EINPBF+STKEND SAVE CURRENT DESTINATION P LDR A1,A8 START OF RECORD 0 P CALL MOVE R ( P ADKL A10,1 INCREMENT RECORD COUNTER d & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! PCOR:48 EQU * . P ADKL A8,RECLEN+1 INCREMENT RECO
0x1496f0…149884 Dummy {f00=0x006d, f01=0x0190, f02=» " P LD A1,SCTOPT GET OPTION WORD P ANK A1,8 SWB:S? . P RF(Z) COR:55 NO F P LDK A3,'S' ^ & P SC A3,GET:25+1 MODIFY INSTRUCTION r & P SC A3,GET:60+1 MODIFY INSTRUCTION P LD A1,IPLDEV+STKEND . P CF A14,LODDEV INITIALIZE PGM LOAD DEV
0x149884…149a18 Dummy {f00=0x006d, f01=0x0190, f02=» DATA LOAD DEVICE r , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE P* J P LDR A2,A1 T P ANK A2,/F f P SUK A2,9 x $ P RF(NZ) COR:58 NOT FLEXIBLE DISC P XIF P IFT CFTFLD+FLDISC=2 ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC P X
0x149a18…149bac Dummy {f00=0x006d, f01=0x018e, f02=»OR:60 NOT FLEXIBLE DISC P* " P SUK A1,/FC-/F8 FLEXIBLE DISC? * P RF(NN) COR:60 NO! P P* j P XIF t P IFT CFTFLD+FLDISC=2 " P LD A2,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? $ P RF(NZ) COR:60 YES! DON'T UNLOCK P
0x149bac…149d40 Dummy {f00=0x006d, f01=0x0190, f02=» PCOR:60 EQU * P EJECT PCONMOV EQU * & P* : 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA D P* | & P CIO A1,0,SOP INHIBIT SOP SWITCHES " P LDR A1,A9 GET START OF BUFFER ( P AD A1,SAVCON COMPUTE END OF BUFFER < PCMOV10
0x149d40…149ed4 (2, 166) Dummy {f00=0x006d, f01=0x0190, f02=»URATION FILE v " P SUK A2,1 IS FOLLOWED BY X'00' , P SUR A3,A1 LENGTH OF CONFIGURATION DATA : 2 P ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA j P SUR A2,A3 TO-ADDRESS P* $ P ANKL A2,/FFFE MAKE EVEN ADDRESS P CALL MOVE : P ST A2
0x149ed4…14a068 Dummy {f00=0x006d, f01=0x0190, f02=» ZEROES IN LENGTH v P ANKL A1,/FFFE AND MAKE EVEN P ST A1,CONLEN+STKCOM > & P LDR A1,A9 GET START OF FREE AREA Z P LDR A12,A2 END OF FREE AREA $ P SUR A12,A1 SUBTRACT MONITOR END 2 P ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT ( P L
0x14a068…14a1fc Dummy {f00=0x006d, f01=0x0190, f02=»=1 l , P ST A2,SCTMXS AND SAVE AS NEW ADDRESS =1 PCMOV20 EQU * =1 : , P LD A2,CONSTA+STKCOM GET START OF CONFF T P* < P* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA P* PMOPRO EQU * P LDKL A13,SYSLDM P SUK
0x14a1fc…14a390 Dummy {f00=0x006d, f01=0x018e, f02=»ON IN SYSLDM x P XIF P EJECT L P************************************************************************ . L P* SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O ~ L P**********************************************************
0x14a390…14a524 Dummy {f00=0x006d, f01=0x0190, f02=» n $ P* * $ P* ENTRY: * 0 $ P* * X $ P* EXIT: A1 - SOP INPUT * $ P* BIT 6 - SWITCH 1 * $ P* BIT 15 - SWITCH 10 * $ P*
0x14a524…14a6b8 Dummy {f00=0x006d, f01=0x0190, f02=» p $ P* * $ P******************************* 0 PSOPIN EQU * X P CIO A1,1,SOP l P INR A1,0,SOP P RB(NA) *-2 P RTN A14 P EJECT ( P*********************************** ( P*
0x14a6b8…14a84c Dummy {f00=0x006d, f01=0x0190, f02=» * z ( P* USED FOR CONFIGURATION OF * ( P* PROGRAM LOAD DEVICE AND * B ( P* CONFIGURATION DATA LOAD * n ( P* DEVICE (IF DIFFERENT). * ( P* * ( P* ON ENTRY: A1=DEVICE
0x14a84c…14a9e0 Dummy {f00=0x006d, f01=0x0190, f02=»********* v P P PLODDEV EQU * " P LDKL A3,BUFLEN 6 * P ST A3,SAVCON INITIALIZE BUFFER LENGTH N P LDKL A2,-1 | $ P ST A2,CYLNBR SET SEEK CONDITION P LDR A2,A1 $ P ANK A2,/80 CHECK IF CASSETTE =9 P RF(P) CASS:0 YES!
0x14a9e0…14ab74 (2, 167) Dummy {f00=0x006d, f01=0x0190, f02=»PE l P ANK A3,/FF P SUK A3,3 P RF(N) DISC:0 DISC 0 P RF(Z) MFD:0 MINI FIXED DISC J P SUK A3,3 =9 n P RF(N) CDC:0 80M CDC DISC P RF FLEX:0 FLEXIBLE DISC P EJECT PCASS:0 EQU * P IFT CASS=1 P* & P*
0x14ab74…14ad08 Dummy {f00=0x006d, f01=0x0190, f02=»R APPLICATION DISC | ( P CM APLADA+4,A1 FILE ADDRESS ENTRIES * P LDKL A1,RDBLK GET SUBROUTINE ADDRESS F P LDR A10,A1 t 0 P ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE PCASS:2 EQU * * P CF A14,RDBLK READ ONE CASSETTE BLOCK P LDR A1,A1
0x14ad08…14ae9c Dummy {f00=0x006d, f01=0x018e, f02=» IFF CASS=1 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION * P XIF T P EJECT ` PFLEX:0 EQU * n P IFT FLDISC=1 P* * P* PROGRAM LOAD DEVICE = FLEXIBLE DISC P* P* 2 P* MODIFY SCTIPL: /F8 - DRIVE 1, /F9
0x14ae9c…14b030 Dummy {f00=0x006d, f01=0x0190, f02=» P CF A14,FDINIT P RF FINISH P* 0 P XIF : P IFF FLDISC=1 F P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION r P XIF P EJECT PMFD:0 EQU * P IFT MFDISC=1 P* , P* PROGRAM LOAD DEVICE = MINI F
0x14b030…14b1c4 Dummy {f00=0x006d, f01=0x0190, f02=» CODE r P* P* INIT MINI FIXED DISC P* 6 P CF A14,MDINIT @ P RF FINISH RETURN V P* p P XIF z P IFF MFDISC=1 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION P XIF P EJECT PDISC:0 EQU *
0x14b1c4…14b358 Dummy {f00=0x006d, f01=0x0190, f02=»IX DISC b P* & P LC A2,FCTAB,A2 LOAD FILE CODE =5 ( P ST A2,FILCOD+STKEND SAVE FILE CODE D P* p P* INITIALIZE DISC COMMANDS z P* P CF A14,DUINIT P XIF P IFF DISC=1 P LDKL A1,LMP9 P CALL ERROR P
0x14b358…14b4ec Dummy {f00=0x006d, f01=0x0190, f02=»CODE n P RTN A14 P EJECT PCDC:0 EQU * * P IFF CDDISC+CDDI16=0 > P* Z 0 P* PROGRAM LOAD DEVICE = 16M OR 80M CDC DISC d P* P* P* MODIFY SCTIPL: /FC - /FD P* $ P SRC A2,2 TEST IF UNIT 1 OR 2 =9 P RF(NN)
0x14b4ec…14b680 Dummy {f00=0x006d, f01=0x0190, f02=» ( P ST A2,FILCOD+STKEND SAVE FILE CODE P* 0 P* INITIALISE DISC COMMANDS : P* P CF A14,CDINIT INIT DEVICE f P RB FINISH RETURN P XIF P IFT CDDISC+CDDI16=0 =9 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION
0x14b680…14b814 (2, 168) Dummy {f00=0x006d, f01=0x0190, f02=» * h < P* CONFLD - SELECT LOAD UNIT FOR CONF. DATA * < P* ======================================== * X < P* * < P* ON ENTRY: A1 = DEVICE ADDRESS
0x14b814…14b9a8 Dummy {f00=0x006d, f01=0x0190, f02=» X P P PCONFLD EQU * P LDKL A2,-1 , $ P ST A2,CYLNBR SET SEEK CONDITION @ " P LDR A2,A1 SAVE DEVICE ADDRESS h " P ANK A2,/F ISOLATE LAST DIGIT P SUK A2,7 P RB(N) MFD:0 MINI FIXED DISC P* P RB(Z) CDC:0 80M CDC
0x14b9a8…14bb3c Dummy {f00=0x006d, f01=0x0190, f02=» P IFT CASS=1 < P******************************************************* < P* CASSIN - CASSETTE INITIATING ROUTINE * X < P* ==================================== * < P*
0x14bb3c…14bcd0 Dummy {f00=0x006d, f01=0x0190, f02=» X < P* ENTRY: * < P* * H < P* EXIT: * < P* * < P
0x14bcd0…14be64 Dummy {f00=0x006d, f01=0x0190, f02=»UTINES: SOPIN,CHCRIO * < P* * 8 < P******************************************************* x PCASSIN EQU * P LDK A1,/F " P CF A14,CHCRIO UNLOAD CASSETTE 2 P LDK
0x14be64…14bff8 Dummy {f00=0x006d, f01=0x0190, f02=» ALLOWED SWITCHES? P RB(Z) CAS:10 NO! & P LDKL A3,LMP1 SWITCH ON LOAD LAMP 4 P OTR A3,0,SOP ^ P SRL A1,8 RIGHT ALIGN t P ANK A1,1 SELECT UNIT P CF A14,CHCRIO SELECT UNIT P LDK A1,LOCK P CF A14,CHCRIO LOCK CASSETTE
0x14bff8…14c18c Dummy {f00=0x006d, f01=0x0190, f02=»DK A1,STMF * P CF A14,CHCRIO SEARCH TAPEMARK FORWARD P RTN A14 @ P EJECT P 2 P********************************************* ^ 2 P* CHCRIO - CASSETTE I/O EXECUTING ROUTINE * 2 P* ======================================= * 2 P*
0x14c18c…14c320 Dummy {f00=0x006d, f01=0x0190, f02=» * l 2 P* ENTRY: A1 - I/O INSTRUCTION COMMAND * 2 P* * H 2 P* EXIT: * ~ 2 P* * 2 P* WORK REGISTERS: A1,A3
0x14c320…14c4b4 (2, 169) Dummy {f00=0x006e, f01=0x0190, f02=» * 2 P********************************************* 2 PCHCRIO EQU * h P CIO A1,1,CHCR | P SST A3,CHCR P RB(NA) CHCRIO P RTN A14 P EJECT 6 P**********************************************
0x14c4b4…14c648 Dummy {f00=0x006e, f01=0x0190, f02=» =============================== * 6 P* * 2 6 P* REFERENCED IN: SYSLOD * l 6 P* * 6 P* ENTRY: A9 - CASSETTE BUFFER POINTER
0x14c648…14c7dc Dummy {f00=0x006e, f01=0x0190, f02=» * : P* WORK REGISTERS: A1,A2,A3,A4,A5 * 8 6 P* * v 6 P* SUBROUTINES: * 6 P******************************
0x14c7dc…14c970 Dummy {f00=0x006e, f01=0x0190, f02=»CHARACTER COUNTER $ P LDR A4,A3 SAVE START OF BUFFER P ADKL A3,CBLEN END OF BUFFER B P LDK A1,/A f P CIO A1,1,CHCR READ BLOCK x P RF(NA) RDERR3 PRDB:20 EQU * P INR A1,0,CHCR P RF(NA) RDB:30 P CWR A4,A3 END OF BUFFER
0x14c970…14cb04 Dummy {f00=0x006e, f01=0x0190, f02=»BUFFER POINTER | PRDB:30 EQU * P SST A1,CHCR * P RB(NA) RDB:20 @ P ANKL A1,/FCFF CHECK STATUS V P LDR A4,A1 SAVE STATUS z P RF(Z) RDBEX OK P SLC A4,3 CHECK IF TAPEMARK P RF(N) RDBEX OK IF TAPEMARK PRDERR EQU *
0x14cb04…14cc98 Dummy {f00=0x006e, f01=0x0190, f02=» V P* P ADK A5,1 NEXT ATTEMPT P CWK A5,3 THIRD ATTEMPT? 0 P RF(E) RDERR3 YES - GIVE UP! P P LDK A1,/E REVERSE ONE BLOCK t P CIO A1,1,CHCR EXECUTE ORDER $ P RB(NA) *-2 LOOP UNTIL ACCEPTED P RB RDB:10 PRDERR3 EQU *
0x14cc98…14ce2c Dummy {f00=0x006e, f01=0x0190, f02=»************************* ( P* * " ( P* DUINIT - INITIALIZE DISC UNIT * N ( P* ============================= * z ( P* * ( P* REFERENCED IN: SYSLOD,GETFIL * ( P*
0x14ce2c…14cfc0 Dummy {f00=0x006e, f01=0x0190, f02=» * ( P* * * P* WORK REGISTERS: A2,A3 * J ( P* * x ( P* SUBROUTINES: * ( P* * ( P************
0x14cfc0…14d154 (2, 170) Dummy {f00=0x006e, f01=0x0190, f02=» P EJECT P* $ P* INIT DISC COMMANDS VERSION A2 P* D , P ORKL A1,CIO+8 CONF. CIO A1,1,XX INSTR. N P ST A1,SEEK20 ~ ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,SEEK21 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST
0x14d154…14d2e8 Dummy {f00=0x006e, f01=0x0190, f02=»EADS P LDK A2,4 $ P XRS A2,CRCCHK DISCARD CRC CHECK $ P CF A14,GETVLB GET VOLUME LABEL F P LDK A2,4 n P ORS A2,CRCCHK SET CRC CHECK P LC A2,FORDEV,A9 GET FORMAT P ANK A2,1 P RF(Z) DUI:50 FORMAT A2 P* " P LDR
0x14d2e8…14d47c Dummy {f00=0x006e, f01=0x0190, f02=» , P LDKL A3,DKBA3 BUFFER LENGTH VERSION A3 * P ST A3,SAVCON BUFFER LENGTH VERSION A3 4 P ORKL A1,CIO+8 b , P XRKL A1,/500 CONFIG. CIO A4,1,XX INSTR. x P ST A1,SEEK30 ( P ORKL A1,/800 FORM SST A4,XX INSTR. P ST A1,SEEK31 * P XRKL A1
0x14d47c…14d610 Dummy {f00=0x006e, f01=0x018e, f02=»* INIT SUBROUTINE ADDRESSES P* $ " PDUI:40 ST A2,READ READ PROGRAM . ( P ST A2,READS READ CONFIGURATION DATA T PDUI:50 EQU * P RTN A14 P EJECT 4 P*********************************************** 4 P*
0x14d610…14d7a4 Dummy {f00=0x006e, f01=0x0190, f02=» 4 P* * 4 P* REFERENCED IN: SYSLOD * < 4 P* * t " P* ENTRY: A9 = BUFFER ADDRESS 4 P* * 4
0x14d7a4…14d938 Dummy {f00=0x006e, f01=0x0190, f02=» * z 4 P* * " ( P* WORK REGISTERS: A1,A2,A3,A4,A7 Z 4 P* * 4 P* SUBROUTINES: ERROR * 4 P*
0x14d938…14dacc Dummy {f00=0x006e, f01=0x018e, f02=»ISC SECTOR VERSION A2 P* PRDSEC2 EQU * ( P LDK A2,0 < * P LDR A1,A11 GET LOGICAL SECTOR NUMBER N PDIV200 EQU * | P ADR A2,A1 P SRL A1,5 ( P RB(NZ) DIV200 MORE IN SERIE TO ADD P LDR A1,A2 P ANKL A1,/FFE0 P
0x14dacc…14dc60 Dummy {f00=0x006e, f01=0x018e, f02=» PDIV210 EQU * . P LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 P RF(Z) DIV220 CYLINDER 0 J P ADK A2,1 j PDIV220 EQU * | 4 P ADR A2,A11 A2:=PHYS. SEC NBR BEFORE INTERLACING P* P LDR A1,A2 P SRL A1,5 P CW A1,CYLNBR
0x14dc60…14ddf4 (2, 171) Dummy {f00=0x006e, f01=0x0190, f02=» P* SEEK CYLINDER P* PSEEK20 CIO A1,1,0 & P RB(NA) SEEK20 @ P* V PSEEK21 SST A1,0 ` P RB(NA) SEEK21 x P* P* INTERLACING P* PINT200 EQU * P LDR A1,A2 P ADR A2,A2 $ P ADR A2,A1 INTERLACING F
0x14ddf4…14df88 Dummy {f00=0x006e, f01=0x0190, f02=» A2,8 PINT210 EQU * P ANK A2,/1F " , P SLL A2,2 PHYSICAL SECTOR AND ORDER CODE 6 P ST A2,SECNBR f P EJECT | P* P* READ SECTOR P* P LDR A1,A9 BUFFER ADDRESS ( PREAD20 LDKL A4,MUXCC NUMBER OF WORDS , PWERIO2
0x14df88…14e11c Dummy {f00=0x006e, f01=0x0190, f02=»OOP UNTIL ACCEPTED PREAD22 SST A2,0 STATUS & P RB(NA) READ22 LOOP UNTIL ACCEPTED 8 PCRCCHK EQU * b P ANK A2,/1F STATUS v P RF(NZ) DUERR READING ERROR ( P ADKL A11,1 INCREMENT SECTOR COUNTER P RTN A14 P EJECT P* " P
0x14e11c…14e2b0 Dummy {f00=0x006e, f01=0x0190, f02=»L A7,/1000 P LDKL A4,/3000 PDIV300 EQU * ( P SUR A1,A4 < P RF(N) DIV310 N P ADR A2,A7 d P RB DIV300 v PDIV310 EQU * P ADR A1,A4 ADJUST DIVIDEND P SRL A4,4 P SRL A7,4 P RB(NZ) DIV300 P ADR A2,A2
0x14e2b0…14e444 Dummy {f00=0x006e, f01=0x018e, f02=» v PCASE10 EQU * P LDR A4,A2 P SRL A4,5 . P CW A4,CYLNBR @ P RF(E) INT300 V , P ST A4,CYLNBR STORE NEW CYLINDER NUMBER l P SLL A4,3 P ORK A4,2 SET BIT 14 P EJECT P* P* SEEK CYLINDER P* PSEEK
0x14e444…14e5d8 Dummy {f00=0x006e, f01=0x0190, f02=» P* PINT300 EQU * P LDR A3,A2 & P ADR A2,A2 8 $ P ADR A2,A3 INTERLACING FACTOR 3 J P ANK A2,/1F r & P LD A4,CYLNBR GET CYLINDER NUMBER P ANK A4,1 & P RF(Z) INT310 EVEN CYLINDER NUMBER " P ADK A2,8 SKEW FACTOR 180 DE
0x14e5d8…14e76c Dummy {f00=0x006e, f01=0x0190, f02=»R NUMBER n P EJECT P* P* READ SECTOR ( P* > P LDR A7,A9 BUFFER ADDRESS H * PREAD34 LDKL A4,MXCCD3 NUMBER OF WORDS j , PWERIO3 WER A4,/10 WRITE NUMBER OF WORDS $ P WER A7,/11 WRITE BUFFER ADDRESS P* " PREAD30 CIO A2,
0x14e76c…14e900 Dummy {f00=0x006e, f01=0x0190, f02=»ACCEPTED v P ANK A2,/1F STATUS P RF(NZ) DUERR READING ERROR * P LDR A2,A9 BUFFER ADDRESS N P LDR A1,A1 p " P RF(N) RETURN ,XXXX , , " P RF(P) READ33 , , XXXX, P ADKL A2,256 SOURCE POINTER & P LDK A4,64 NUMBER OF W
0x14e900…14ea94 (2, 172) Dummy {f00=0x006e, f01=0x0190, f02=»4,1 " P RB(NZ) READ32 CONTINUE MOVING P LD A1,SAVMEM 2 P RF(P) RETURN H ( P LD A2,SECNBR PHYSICAL SECTOR NUMBER ^ " P ADK A2,/C NEW SECTOR TO READ P ANK A2,/7C P SUK A1,1 P RB READ34 P EJECT PREAD33 EQU *
0x14ea94…14ec28 Dummy {f00=0x006e, f01=0x018e, f02=»BER j P RTN A14 P PDUERR EQU * $ P LDKL A1,LMP2 8 P CALL ERROR N P XIF b P IFT MFDISC=1 n P EJECT < P******************************************************** < P*
0x14ec28…14edbc Dummy {f00=0x006e, f01=0x0190, f02=» < P* * < P* REFERENCED IN: SYSLOD,GETFIL * D < P* * < P* ENTRY: A1 = DEVICE ADDRESS * < P*
0x14edbc…14ef50 Dummy {f00=0x006e, f01=0x018e, f02=» * < P* WORK REGISTERS: * 4 < P* * t < P* SUBROUTINES: ERROR * < P*
0x14ef50…14f0e4 Dummy {f00=0x006e, f01=0x0190, f02=» $ P* INIT MINI FIXED DISC COMMANDS P* , PMDI:00 EQU * 6 , P ORKL A1,CIO CONFIG. CIO A1,1,XX INSTR. J P ST A1,READM2 z ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READM3 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST A1,S
0x14f0e4…14f278 Dummy {f00=0x006e, f01=0x0190, f02=»DDRESS p P ST A2,READ P ST A2,READS " P RTN A14 6 P EJECT F : P****************************************************** T : P* * : P* MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC *
0x14f278…14f40c Dummy {f00=0x006e, f01=0x0190, f02=»ERENCED IN: SYSLOD * : P* * 8 : P* ENTRY: A9 = BUFFER ADDRESS * v : P* A11 = SECTOR NUMBER * : P*
0x14f40c…14f5a0 Dummy {f00=0x006e, f01=0x0190, f02=» * n : P* WORK REGISTERS: * : P* * Z : P* SUBROUTINES: * : P*
0x14f5a0…14f734 (2, 173) Dummy {f00=0x006f, f01=0x0190, f02=» A2,A11 GET LOGICAL SECTOR NUMBER P DVK 104 DIVIDE BY 104 * P SLL A2,2 H P ORK A2,3 SET BIT 14 AND 15 Z P* ~ " P* A1=SECTOR NUMBER ON CYLINDER P* A2=CYLINDER NUMBER P* & P ST A1,SECNBR STORE SECTOR NUMBER P CW A2,CYL
0x14f734…14f8c8 Dummy {f00=0x006f, f01=0x0190, f02=»R P* " PSEEKM1 CIO A2,1,0 SEEK COMMAND & P RB(NA) SEEKM1 LOOP UNTIL ACCEPTED : P* d PSEEKM2 SST A2,0 GET STATUS n & P RB(NA) SEEKM2 WAIT UNTIL ACCEPTED P* P* INTERLACING P* PINTM10 EQU * P CWK A1,52
0x14f8c8…14fa5c Dummy {f00=0x006f, f01=0x0190, f02=» r " P LDK A1,0 PREPARE FOR DIVISION P DVK 52 . , P ADR A1,A2 A1:=INTERLACED SECTOR NUMBER > P* n " P* A1:=INTERLACED SECTOR NUMBER x P* & P LD A2,CYLNBR GET CYLINDER NUMBER P SRC A2,3 ( P RF(NN) INTM30 EVEN CYLINDER NUMBER
0x14fa5c…14fbf0 Dummy {f00=0x006f, f01=0x0190, f02=»T SECTOR NUMBER BEFORE INTERLACING P CWK A2,52 * P RF(L) INTM40 HEAD NUMBER 0 < P ORKL A1,/4000 HEAD NUMBER 1 ` PINTM40 EQU * P* P* READ SECTOR P* PREADM1 EQU * " P LDKL A4,MUXCC NUMBER OF WORDS P LDR A7,A9 B
0x14fbf0…14fd84 Dummy {f00=0x006f, f01=0x0190, f02=» A1,1,0 READ SECTOR & P RB(NA) READM2 LOOP UNTIL ACCEPTED P* F PREADM3 SST A1,0 GET STATUS P & P RB(NA) READM3 LOOP UNTIL ACCEPTED r P ANK A1,/1F STATUS P RF(NZ) MFDERR READING ERROR ( P ADKL A11,1 INCREMENT SECTOR NUMBER P R
0x14fd84…14ff18 Dummy {f00=0x006f, f01=0x0190, f02=»******************************************** 4 P* * 4 4 P* FDINIT - INITIALIZE FLEXIBLE DISC * l 4 P* ================================= * 4 P*
0x14ff18…1500ac Dummy {f00=0x006f, f01=0x0190, f02=»1 - DEVICE ADDRESS * 4 P* * , 4 P* EXIT: * d 4 P* * 4 P* WORK REGISTERS: *
0x1500ac…150240 Dummy {f00=0x006f, f01=0x0190, f02=» * | 4 P************************************************ $ PFDINIT EQU * P ANK A1,/10 p 0 P ORKL A1,CIO+9 CONFIG. CIO+9 A1,1,XX INSTR. P ST A1,FRD:10 < P LDKL A2,FRDS25 ADDRESS TO READ ON 0,25 MEG FLOPPY DRIVE
0x150240…1503d4 (2, 174) Dummy {f00=0x006f, f01=0x0190, f02=» ANK A1,/10 ( P RF(NZ) FDI:10 0.25 MEG FLOPPY DRIVE P* @ . P LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 J ( P ST A1,FRD:20 MODIFY INR INSTRUCTION | P LDKL A1,/41F " P ST A1,FRD:42 MODIFY SST MASK P LDKL A1,/C00 & P ST A1,RELEAS
0x1503d4…150568 Dummy {f00=0x006f, f01=0x0190, f02=»,READS $ P CF A14,GETVLB GET VOLUME LABEL P LD A1,FORDEV,A9 GET FORMAT 6 P ST A1,DEVTYP+STKEND Z P RTN A14 v P EJECT 0 P******************************************** 0 P* * 0 P*
0x150568…1506fc Dummy {f00=0x006f, f01=0x0190, f02=» d 0 P* * 0 P* ON ENTRY: A1 = DEVICE ADDRESS * < 0 P* * p 0 P******************************************** P P PUNLOCK EQU * $ P CF A14,FDIN
0x1506fc…150890 Dummy {f00=0x006f, f01=0x0190, f02=»CCEPTED x P* P EX FRD:40 SENSE STATUS $ P RB(NA) *-4 LOOP UNTIL ACCEPTED : P RTN A14 b P EJECT r @ P*********************************************************** @ P* * @ P
0x150890…150a24 Dummy {f00=0x006f, f01=0x0190, f02=»* * @ P* REFERENCED IN: SYSLOD * D @ P* * @ P* ENTRY: A9 - BUFFER ADDRESS *
0x150a24…150bb8 Dummy {f00=0x006f, f01=0x0190, f02=» T @ P* EXIT: * @ P* * L @ P* WORK REGISTERS: A1,A2,A3 * @ P*
0x150bb8…150d4c Dummy {f00=0x006f, f01=0x0190, f02=» * @ P*********************************************************** PFRDSEC EQU * T " P LDR A2,A11 GET SECTOR NUMBER h * P LDKL A4,/340 26 SHIFTED 10 STEPS LEFT $ P LD A1,DEVTYP+STKEND DEVICE TYPE P ANK A1,1 & P RF(Z) SNHEAD 0,25
0x150d4c…150ee0 Dummy {f00=0x006f, f01=0x018e, f02=»R l P RF DVK26 PNOTCY0 EQU * P ADK A2,13 0 P EJECT B P* P P* A2=PHYSICAL SECTOR NUMBER Z P* ~ PDVK26 EQU * P LDK A1,0 PDVK26A EQU * P SLL A1,5 PDVK26B EQU * P SUR A2,A4 P RF(N) DVK26C
0x150ee0…151074 (2, 175) Dummy {f00=0x006f, f01=0x0190, f02=» P EJECT P* P* A2=SECTOR NUMBER P* A1=CYLINDER NUMBER 6 P* R $ P LD A4,DEVTYP+STKEND DEVICE TYPE P ANK A4,1 , P RF(NZ) DBHEAD 1 MEG FLOPPY,DOUBLE HEAD P SLL A1,1 ONLY ONE HEAD PDBHEAD EQU * P LDR A4,A1
0x151074…151208 Dummy {f00=0x006f, f01=0x0190, f02=»2=CIO READ REGISTER 2 P SLL A1,1 CYLINDER NUMBER IN CORRECT POSITION " P ORK A1,3 A1=CIO SEEK REGISTER R 4 P CW A1,CYLNBR COMPARE OLD AN NEW CYLINDER NUMBER x P RF(E) NOSEEK NO SEEK NEEDED & P ST A1,CYLNBR SAVE CYLINDER NUMBER PFDSEEK EX
0x151208…15139c Dummy {f00=0x006f, f01=0x018e, f02=»ERROR | PNOSEEK EQU * P LDR A1,A2 " P RF FRD:05 4 P EJECT F PFRDS25 EQU * T P LDR A1,A11 SECTOR NO h P SLL A1,4 8 P ORKL A1,/4000 NUMBER OF SECTORS=2 (BIT 0 - BIT 1) PFRD:05 EQU * P LDKL A2,MUXCC P LD A3,MXB
0x15139c…151530 Dummy {f00=0x006f, f01=0x0190, f02=» $ P AD A2,SAVCON BUFFER END ADDRESS P* , $ PFRD:10 CIO A1,1,FDCU START READ 6 P RB(NA) FRD:10 ^ P* t P EJECT CRVOL ~ P* P* PFRD:20 INR A1,0,FDCU P RF(NA) FRD:40 =4 P STR A1,A3 P ADK A3,2 P CWR A
0x151530…1516c4 Dummy {f00=0x006f, f01=0x0190, f02=»D:20 PFRD:42 EQU *+2 P ANKL A1,/4E15 FATAL ERROR ? " P RF(NZ) FRD:50 YES! F PFRD:43 CWR A3,A2 =4 b ( P RF(E) FRD:44 PROGRAMMED CHANNEL =4 ~ . P LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 & P ST A1,FRD:20 UPDATE INR ISTR. =4 PFR
0x1516c4…151858 Dummy {f00=0x006f, f01=0x0190, f02=»4 z PFRD:45 EQU * ( P ADKL A11,1 INCRMENT SECTOR ADDRESS P RF(NN) FRD:48 J 0 P SUR A11,A11 RESET LEAST SIGN. PART OF D.A. ` 2 P ADKL A12,1 INCREMENT MOST SIGN. PART OF D.A. $ P RF(O) FRD:50 DISC ADDRESS ERROR PFRD:48 EQU * P R
0x151858…1519ec Dummy {f00=0x006f, f01=0x0190, f02=»43-2 =4 z P XIF P IFT CDDISC=1 P IFT CDDI16=0 =9 2 P EJECT L ( P*********************************** Z ( P* * ( P* CDINIT - INITIALIZE DISC UNIT * ( P* ============================= * (
0x1519ec…151b80 Dummy {f00=0x006f, f01=0x018e, f02=» ENTRY: A1 - DEVICE ADDRESS * ( P* * * ( P* EXIT: * V ( P* * ( P* WORK REGISTERS: A1,A2 * ( P* * ( P*
0x151b80…151d14 (2, 176) Dummy {f00=0x006f, f01=0x0190, f02=» PCDINIT EQU * P* P* INIT 80M CDC DISC COMMANDS " P* F , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. P P ST A1,READC1 ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READC2 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P S
0x151d14…151ea8 Dummy {f00=0x006f, f01=0x0190, f02=»E FOR SECTOR NBR r & P LDKL A2,/300 BUFLEN 80M CDC DISC P ST A2,SAVCON SAVE LENGTH B 4 P LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. d P ST A2,READ P ST A2,READS P RTN A14 P EJECT 4 P**************************************
0x151ea8…15203c Dummy {f00=0x006f, f01=0x0190, f02=»============================== * 4 P* * 2 4 P* REFERENCED IN: SYSLOD * j 4 P* * 4 P* ENTRY: A9 = BUFFER ADDRESS
0x15203c…1521d0 Dummy {f00=0x006f, f01=0x0190, f02=»- SECTOR NBR MOST SIGNIFICANT * 4 P* * * 4 P* EXIT: A12,A11 = A12,A11 + 1 * b 4 P* * 4 P* WORK REGISTERS: A1,A2,A3,A6 * 4
0x1521d0…152364 Dummy {f00=0x006f, f01=0x0190, f02=» * z 4 P*********************************************** " P* Z PCRDSEC EQU * d P* x P* SET BUFFER ADDRESS P* P LDR A1,A9 BUFFER ADDRESS P ADKL A1,256 P ST A1,CIOAD2 ADDRESS 2 P ADKL A1,2
0x152364…1524f8 Dummy {f00=0x006f, f01=0x0190, f02=» A1,A12 SECTOR NUMBER MOST SIGNIFICANT 0 P LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT . P EJECT b P* p P* DIVIDE LOGICAL WITH 3 z P* P LDK A3,0 PRED100 EQU * P ADK A3,1 P SUK A1,3 P RB(NN) RED100 P ADK
0x1524f8…15268c Dummy {f00=0x006f, f01=0x0190, f02=»,PSECNL+STKEND , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR P CW A3,PSECNM+STKEND F , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR b P CW A1,PSECPA+STKEND & P RF(E) TURN SAME LOG SEC AS BEFORE . P RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR
0x15268c…152820 Dummy {f00=0x006f, f01=0x0190, f02=»CT P* A1=HEAD NBR * SECTOR NBR P* A2=CYLINDER NBR , P LDR A3,A2 F P LDR A2,A1 X P LDK A1,0 j P DVK 23 | P* A1=SECTOR NBR P* A2=HEAD NBR $ P ORKL A2,/800 SET INTERRUPT BIT " P ST A2,CIOTAB UPDATE CIO TABLE P
0x152820…1529b4 (2, 177) Dummy {f00=0x0070, f01=0x018e, f02=»VEN CYLINDER NUMBER P ADK A2,12 SKEW FACTOR PINT100 EQU * : P DVK 23 N P SLL A1,5 IN POSITION ^ $ P ORS A1,CIOTAB UPDATE CIO TABLE | P SRC A3,1 RESTORE A3 P CW A3,CYLNBR & P RF(E) READER SAME CYLINDER NUMBER P EJECT
0x1529b4…152b48 Dummy {f00=0x0070, f01=0x0190, f02=» P LDKL A2,SEKTAB PSEEKC1 EQU * P CIO A2,1,0 SEEK 0 P RB(NA) SEEKC1 H PSEEKC2 EQU * ^ P SST A2,0 r P RB(NA) SEEKC2 P EJECT P* P* READ P* PREADER EQU * P LDK A6,3 NUMBER OF RETRIES PRE
0x152b48…152cdc Dummy {f00=0x0070, f01=0x0190, f02=» PREADC2 SST A1,0 STATUS & P RB(NA) READC2 LOOP UNTIL ACCEPTED & P ANKL A1,/FF0F STATUS P P RF(NZ) RET30 READING ERROR n > P LD A1,PSECPA+STKEND GET RELATIV LOG SECT IN PHYSICAL =11 0 P RF(NZ) REDMOV NOT FIRST REL LOG SECTOR =11 P
0x152cdc…152e70 Dummy {f00=0x0070, f01=0x0190, f02=» * P SUR A11,A11 RESET A11 P ADKL A12,1 ( PTURN20 EQU * < P RTN A14 P P EJECT ` P* n " P* MOVE UP NEXT LOGICAL SECTOR x P* PREDMOV EQU * 6 P ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART P SLL A1,2 INDEX TO
0x152e70…153004 Dummy {f00=0x0070, f01=0x0190, f02=»QU * P LDR* A6,A1 P STR A6,A2 P ADK A1,2 2 P ADK A2,2 D P SUK A3,1 V P RB(P) RMOV10 NEXT WORD h P RB TURN P P P PNOFOND EQU * P LDKL A1,LMP2 & P CALL ERROR INDICATE READING ERROR P EJE
0x153004…153198 Dummy {f00=0x0070, f01=0x0190, f02=»IOTAB P ANK A1,/C0 4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S " P LDKL A2,/8000 Z 0 P ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE p P RB READER PRET31 EQU * P ANK A1,/80 2 P RF(Z) RET32 LAST RETRY WITH LATE DATA STR
0x153198…15332c Dummy {f00=0x0070, f01=0x0190, f02=»FF * P ANS A2,CIOTAB RESET LATE DATA STROBE P LC A1,CIOTOT 8 P ANK A1,/C0 N 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- b P LDKL A2,/8000 ( P ORS A2,CIOTOT PREPARE FOR CARRIAGE+ P RB READER PRET33 EQU * P ANK A
0x15332c…1534c0 Dummy {f00=0x0070, f01=0x0190, f02=» P EJECT P* P* SEEK TABLE P* 0 PSEKTAB EQU * : P DATA 0 N P* ^ P* CIO TABLE h P* | PCIOTAB EQU * & P DATA 0 ORDER,SECTOR NBR,HEAD NBR PCIOTOT EQU * 6 P DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTO
0x1534c0…153654 (2, 178) Dummy {f00=0x0070, f01=0x0190, f02=»OPA2 EQU * P DATA /4000+128 PCIOAD2 EQU * * P DATA 0 ADDRESS 2 > PCIOPA3 EQU * X P DATA 128 l PCIOAD3 EQU * ~ P DATA 0 ADDRESS 3 P XIF P IFT CDDI16=1 =9 P EJECT ( P***********************************
0x153654…1537e8 Dummy {f00=0x0070, f01=0x0190, f02=»* * ( P* REFERENCED IN: SYSLOD,GETFIL * , ( P* * X ( P* ENTRY: A1 - DEVICE ADDRESS * ( P* * ( P* EXIT: * ( P
0x1537e8…15397c Dummy {f00=0x0070, f01=0x0190, f02=»UBROUTINES: * ( P* * ( ( P*********************************** T P PCDINIT EQU * P* ( P* INIT 16M OR 80M CDC DISC COMMANDS P* P LDR A2,A1 =9 & P ANK A1,/3F MASK DEVIC
0x15397c…153b10 Dummy {f00=0x0070, f01=0x0190, f02=» INDICATOR =9 f , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. P ST A1,READC1 F ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READC2 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST A1,SEEKC1 ( P ORKL A1,/800 FORM SST A2,XX INSTR.
0x153b10…153ca4 Dummy {f00=0x0070, f01=0x0190, f02=» n P ST A2,SAVCON SAVE LENGTH 4 P LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. * P ST A2,READ b P ST A2,READS v & P CF A14,GETVLB GET VOLUME LABEL =9 $ P LC A2,FORDEV+1,A9 GET FORMAT =9 P ANK A2,1 FORMAT 4 OR 5 =9 ( P LDK A2,23
0x153ca4…153e38 Dummy {f00=0x0070, f01=0x0190, f02=» ST A2,DIVCON SET DIVIDE CONSTANT =9 P RTN A14 , P EJECT < 4 P*********************************************** J 4 P* * 4 P* CRDSEC- READ ONE SECTOR FROM DISC * 4 P* ===================
0x153e38…153fcc Dummy {f00=0x0070, f01=0x018e, f02=»* b 4 P* * 4 P* ENTRY: A9 = BUFFER ADDRESS * B 4 P* * z 4 P* A11 - SECTOR NBR LEAST SIGNIFICANT * 4 P* A12 - SECTOR NBR MOS
0x153fcc…154160 Dummy {f00=0x0070, f01=0x0190, f02=» 4 P* * 4 P* WORK REGISTERS: A1,A2,A3,A6 * < 4 P* * t 4 P* SUBROUTINES: ERROR * 4 P*
0x154160…1542f4 (2, 179) Dummy {f00=0x0070, f01=0x0190, f02=» | P* P LDR A1,A9 BUFFER ADDRESS P ADKL A1,256 4 P ST A1,CIOAD2 ADDRESS 2 H P ADKL A1,256 h P ST A1,CIOAD3 ADDRESS 3 | P LDKL A1,/3FFF P ANS A1,CIOTAB RESET BITS P ANS A1,CIOTOT RESET BITS . P LDR A1,A12 SECTOR
0x1542f4…154488 Dummy {f00=0x0070, f01=0x0190, f02=» P* P LDK A3,0 PRED100 EQU * P ADK A3,1 4 P SUK A1,3 F P RB(NN) RED100 X P ADK A1,3 n P SUK A3,1 P DVK 3 P CW A9,CIOAD1 : P RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ P CW A2,PSECNL+STKEND
0x154488…15461c Dummy {f00=0x0070, f01=0x0190, f02=»A1,PSECPA+STKEND & P RF(E) TURN SAME LOG SEC AS BEFORE . P RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR B PRED110 EQU * t P ST A9,CIOAD1 ADDRESS 1 ( P MS 3,PSECPA+STKEND SAVE NEW VALUES P LDR A1,A3 PDIVCON EQU *+2 =9 P DVK 23
0x15461c…1547b0 Dummy {f00=0x0070, f01=0x0190, f02=» P DVK 23 P* A1=SECTOR NBR P* A2=HEAD NBR , $ P ORKL A2,/800 SET INTERRUPT BIT B , P OR A2,CARFIX+STKEND FIX OR CARTRIDGE =9 j " P ST A2,CIOTAB UPDATE CIO TABLE P EJECT P* P* INTERLACING P* P LDR A2,A1
0x1547b0…154944 Dummy {f00=0x0070, f01=0x018e, f02=» * P DVK 23 P SLL A1,5 IN POSITION $ P ORS A1,CIOTAB UPDATE CIO TABLE 8 P SLC A3,1 RESTORE A3 =9 ` P CW A3,CYLNBR & P RF(E) READER SAME CYLINDER NUMBER P EJECT P* P* SEEK P* $ P ST A3,CYLNBR SAVE CYLIN
0x154944…154ad8 Dummy {f00=0x0070, f01=0x0190, f02=» ~ P RB(NA) SEEKC1 PSEEKC2 EQU * P SST A2,0 2 P RB(NA) SEEKC2 D P EJECT Z P* h P* READ r P* PREADER EQU * P LDK A6,3 NUMBER OF RETRIES PREA100 EQU * ( P LDKL A1,CIOTAB POINTER TO CIO TABLE PRE
0x154ad8…154c6c Dummy {f00=0x0070, f01=0x018e, f02=»ACCEPTED v P ANKL A1,/FF0F STATUS P RF(NZ) RET30 READING ERROR . : P LD A1,PSECPA+STKEND GET LOGICAL SECT. IN PHYSICAL =11 R : P RF(NZ) REDMOV NOT FIRST LOGICAL SECT. IN PHYSICAL =11 P PTURN EQU * 0 P ADKL A11,1 INCREMENT LOGICAL SE
0x154c6c…154e00 Dummy {f00=0x0070, f01=0x0190, f02=» PTURN20 EQU * P RTN A14 P EJECT ( P* 6 " P* MOVE UP NEXT LOGICAL SECTOR @ P* f PREDMOV EQU * p 6 P ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART P SLL A1,1 =9 P LDR A2,A1 =9 P ADR A1,A1 =9 & P ADR A1,
0x154e00…154f94 (2, 180) Dummy {f00=0x0070, f01=0x0190, f02=»RDS x PRMOV10 EQU * P LDR* A6,A1 P STR A6,A2 4 P ADK A1,2 F P ADK A2,2 X P SUK A3,1 j P RB(P) RMOV10 NEXT WORD | P RB TURN P P P PNOFOND EQU * P LDKL A1,LMP2 & P CALL ERROR INDICATE READI
0x154f94…155128 Dummy {f00=0x0070, f01=0x0190, f02=» TRY ~ P LC A1,CIOTAB P ANK A1,/C0 " 4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S 6 P LDKL A2,/8000 n 0 P ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE P RB READER PRET31 EQU * P ANK A1,/80 2 P RF(Z) RET32 LAST RETR
0x155128…1552bc Dummy {f00=0x0070, f01=0x018e, f02=» P LDKL A2,/3FFF * P ANS A2,CIOTAB RESET LATE DATA STROBE P LC A1,CIOTOT L P ANK A1,/C0 b 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- v P LDKL A2,/8000 ( P ORS A2,CIOTOT PREPARE FOR CARRIAGE+ P RB READER PRET33
0x1552bc…155450 Dummy {f00=0x0070, f01=0x0190, f02=» d P RB READER ! P EJECT ! P* ! ( P* SEEK TABLE ! 2 P* ! F PSEKTAB EQU * ! P P DATA 0 ! d P* ! t P* CIO TABLE ! ~ P* ! PCIOTAB EQU * ! & P DATA 0 ORDER,SECTOR NBR,HEAD NBR ! PCIOTOT EQU * ! 6 P DATA 384 TOTAL NUMBER OF
0x155450…1555e4 Dummy {f00=0x0070, f01=0x0190, f02=». =9 ! v PCIOAD1 EQU * " P DATA 0 ADDRESS 1 " PCIOPA2 EQU * " : P DATA /4000+128 " N $ P DATA 0 ADDRESS 2 MOST SIGN. =9 " f PCIOAD2 EQU * " P DATA 0 ADDRESS 2 " PCIOPA3 EQU * " P DATA 128 " $ P DATA 0 ADDRESS 3 MOST SIGN. =9 "
0x1555e4…155778 Dummy {f00=0x0070, f01=0x0190, f02=» * " 8 P* GETFIL - GET CONFIGURATION FILE * # : 8 P* =============================== * # v 8 P* * # 8 P* REFERENCED IN: SYSLOD
0x155778…15590c Dummy {f00=0x0070, f01=0x0190, f02=» * # f 8 P* * $ 8 P* EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * $ N 8 P* * $ 6 P* WORK REGISTERS: A1,A2,A3,A4,A5,A6,A7,A8,A10 * $ 8 P*
0x15590c…155aa0 Dummy {f00=0x0070, f01=0x0190, f02=» * $ x 8 P*************************************************** % $ PGETFIL EQU * % ` P CF A14,GETVLB % t PGET:10 EQU * % " P CF A14,RDSEC GET VOLUME LABEL % ( P LDK A7,QBLFAC VTOC BLOCKING FACTOR % " P LDR A6,A9 GET START OF
0x155aa0…155c34 (2, 181) Dummy {f00=0x0071, f01=0x0190, f02=»RT OF RECORD % ( P LDK A5,'S' STANDARD FILE CHARACTER & P CC A5,27,A6 STANDARD FILE? & @ P RF(NE) GET:50 NO! & d * P LDK A5,'$' LEADING CHAR IN CONF. FILE & ~ " P CCR A5,A4 CONFIGURATION FILE? & P RF(NE) GET:50 NO! & 2 PGET:25 LDK A3,'C' THIS INSTR
0x155c34…155dc8 Dummy {f00=0x0071, f01=0x0190, f02=»5,':' CHARACTER TO PRECEED NUMBER & ( PGET:30 CCR A5,A4 CONFIGURATION FILE? ' * P RF(E) GET:40 YES! ' V P SUK A4,1 TRY NEXT CHARACTER ' p P CWR A4,A6 FIRST IN NAME? ' P RF(E) GET:50 YES! ' P RB GET:30 ' PGET:40 EQU * ' P* ' P* CHECK
0x155dc8…155f5c Dummy {f00=0x0071, f01=0x0190, f02=» ' t " P CALL CONVRT CONVERT TO BINARY ( , P CW A1,SCTANO SAME AS APPLICATION NUMBER ( . P RF(NE) GET:50 ( ^ P* ( t P* CONFIGURATION FILE FOUND ( ~ P* ( $ P LD A1,22,A6 LAST RECORD NUMBER ( P ST A1,LSTREC+STKEND SAVE ( P LD A12,16,A6 GET
0x155f5c…1560f0 Dummy {f00=0x0071, f01=0x0190, f02=»BYPASS STATUS CHARACTER ( , P SUK A7,1 MOORE RECORDS IN THIS SECTOR? ) P RB(P) GET:20 YES! ) P " P CWR A11,A10 LAST VTOC SECTOR? ) j P RB(NE) GET:10 NO! ) 2 PGET:60 LDK A3,'C' THIS INSTRUCTION IS MODIFIED ) ( P CCK A3,'CC' LOOKING FOR CONF. FILE? )
0x1560f0…156284 Dummy {f00=0x0071, f01=0x018e, f02=»ILE ) n P* * P* * P LDKL A2,/7F8 * & P OTR A2,0,SOP SWITCH ON SOP LAMPS * 6 PGET:70 EQU * * ` P CF A14,SOPIN * t " P ANKL A1,/7FC ALLOWED SWITCH? * P RB(Z) GET:70 NO! * P LDKL A2,LMP1 * & P OTR A2,0,SOP SWITCH ON LOAD LAMP *
0x156284…156418 Dummy {f00=0x0071, f01=0x0190, f02=» * ( P CF A14,CONFLD CONFIGURE LOAD DEVICE + P RB GETFIL + 4 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
0x156418…1565ac Dummy {f00=0x0071, 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 LD A1,18,A6 GET BIT 16-31 OF D.A. , & P LD A2,16,A6 GET BIT 0-15
0x1565ac…156740 Dummy {f00=0x0071, f01=0x0190, f02=»D A4,SWPFEL-2,A6 GET BIT 0-15 OF LENGTH , ( P ADR A4,A2 ADD MOST SIGNIFICANT PART - 0 * 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 ANKL A3,/7FFF RESET OVERFLOW -
0x156740…1568d4 (2, 182) Dummy {f00=0x0071, f01=0x0190, f02=»DICATE SWB-FILE FOUND - | PGET:99 RTN A14 . P EJECT . 4 : P***************************************************** . B : P* * . : P* LODCOM - LOAD CORE RESIDENT PART OF APPLICATION * . : P* =========
0x1568d4…156a68 Dummy {f00=0x0071, f01=0x0190, f02=»MENT * . x : P* ========================= * / & : P* * / d : P* ENTRY: A8 - RELOCATION BASE * / : P* A10 - EFFECTIVE LENGTH
0x156a68…156bfc Dummy {f00=0x0071, f01=0x018e, f02=»* / : P* * 0 : P* WORK REGISTERS: A1,A2,A3,A4,A7 * 0 H : P* * 0 : P* SUBROUTINES: MOVE,READ * 0 : P*
0x156bfc…156d90 Dummy {f00=0x0071, f01=0x0190, f02=» , P LD A9,MXBUF GET ADDRESS TO READ BUFFER 1 " P LDR A3,A9 GET START OF BUFFER 1 4 P LDR A2,A3 SAVE 1 Z & P LDKL A7,240 NUMBER OF CODE WORDS 1 r PLOD:10 EQU *-2 1 P LDR A10,A10 APP >32 KB? 1 P RF(NN) LOD:20 NO! 1 P SUR A10,A7 DEC. LENGTH 1
0x156d90…156f24 Dummy {f00=0x0071, f01=0x0190, f02=»8 WORDS/SECTOR? 1 P RF(NE) LOD:30 NO! 2 , P ADR A7,A10 COMPUTE NUMBER OF CODE WORDS 2 2 ( P LDKL A10,0 INDICATE END OF SEGMENT 2 b P RF LOD:52 2 PLOD:30 EQU * 2 2 P ADR A7,A10 JUST MOVE SIGNIFICANT CHARACTERS! 2 ( P LDKL A10,0 INDICATE END OF SE
0x156f24…1570b8 Dummy {f00=0x0071, f01=0x0190, f02=»SATE FOR HEADER 2 r : P CWK A7,240 LOOK IF OUTSIDE CODE PART OF SECTOR/BLOCK 3 P RF(L) LOD:50 NO! 3 V P* 3 p ( P SUK A7,240 YES, GET WORDS REMAINING 3 z P LDR A10,A7 AND SAVE 3 ( P LDK A7,240 START OF RELOCATION BITS 3 PLOD:50 EQU * 3 " P CWK A
0x1570b8…15724c Dummy {f00=0x0071, f01=0x0190, f02=»52 EQU * 3 " P LDR A1,A9 START OF CODE PART 4 , P LD A4,FSTSEC+STKEND FIRST SECTOR/BLOCK? 4 6 P RF(NZ) LOD:55 NO! 4 f 6 P IM FSTSEC+STKEND INDICATE NOT FIRST SECTOR/BLOCK 4 0 P ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK 4 0 P SUK A7,8 DECREMENT NUMBER
0x15724c…1573e0 Dummy {f00=0x0071, f01=0x0190, f02=»0 SINGLE SECTOR/BLOCK APPLICATION? 4 P RF(NG) LOD:55 YES! 5 * P* 5 F PLOD:54 ADKL A10,8 5 P PLOD:55 EQU * 5 j , P LDR A3,A7 NUMBER OF CHARACTERS TO MOVE 5 ~ ( P LD A2,LLDADR+STKEND GET TO-ADDRESS 5 0 P ADS A3,LLDADR+STKEND UPDATE MEMORY ADDRESS 5
0x1573e0…157574 (2, 183) Dummy {f00=0x0071, f01=0x0190, f02=» A10,A10 END OF SEGMENT? 5 P RF(NZ) LOD:70 6 P RTN A14 EXIT 6 6 PLODSEG EQU * 6 L ( P LDKL A1,256 NUMBER OF WORDS/SECTOR 6 ` $ P ST A1,LOD:10 MODIFY INSTRUCTION 6 PLOD:70 EQU * 6 P CF A14,READ 6 PREAD EQU *-2 6 P RB LODCOM 6 P EJECT
0x157574…157708 Dummy {f00=0x0071, f01=0x0190, f02=»UF - RELOCATE BUFFER ROUTINE * 6 6 P* =============================== * 7 . 6 P* * 7 h 6 P* REFERENCED IN: LODCOM/LODSEG * 7 6 P*
0x157708…15789c Dummy {f00=0x0071, f01=0x0190, f02=» * 7 6 P* EXIT: * 8 4 6 P* * 8 n 6 P* WORK REGISTERS: A1,A4,A5,A6 * 8 6 P*
0x15789c…157a30 Dummy {f00=0x0071, f01=0x0190, f02=»************************************************* 8 PREBUF EQU * 9 : . P LDR A4,A2 GET START OPF RELOCATION TABLE 9 N P SUK A4,2 9 PREB:10 EQU * 9 " P ADK A4,2 NEXT RELOCATION WORD 9 ( P LDK A6,16 NUMBER OF RELOCATION BITS 9 $ P LDR* A1,A4 GET
0x157a30…157bc4 Dummy {f00=0x0071, f01=0x0190, f02=» RELOCATE 9 P STR A5,A3 STORE IT BACK : PREB:30 EQU * : 2 P ADK A3,2 NEXT CODE WORD : F & P CWR A3,A2 END OF CODE WORD PART? : f P RF(E) EXREL YES! : $ P SUK A6,1 MOORE RELOCATION BITS? : P RB(Z) REB:10 NO! : " P SLL A1,1 NEXT RELOCATION BI
0x157bc4…157d58 Dummy {f00=0x0071, f01=0x0190, f02=»N - GET CONTENT IN MEMORY WORD * : . P***************************************** ; * P* ; P* REFERENCED IN: SEGGEN ; f P* ; " P* ENTRY: A2 - MEMORY ADDRESS ; . P* MMUOPT - MMU OPTION SWITCH (X) ; P* ; , P* EXIT: A1 - CONTE
0x157d58…157eec Dummy {f00=0x0071, f01=0x0190, f02=»CTOPT GET OPTION WORD ; P ANK A1,1 MMU OPTION < P RF(Z) GCON10 NO MMU < : P ELR A1,A2 < V P RF GCON20 < h PGCON10 EQU * < z P LDR* A1,A2 < PGCON20 EQU * < P RTN A14 RETURN < P EJECT < 2 P********************************************
0x157eec…158080 Dummy {f00=0x0071, f01=0x0190, f02=»==== * < ~ 2 P* * = $ 2 P* SCAN CONFIGURATION FILE FOR POSSIBLE * = Z 2 P* APPLICATION DEFINITION BLOCKS. IF * = 8 P* FOUND APLTAB+STKCOM IS UPDATED WITH DISC * = 2 P* ADD
0x158080…158214 (2, 184) Dummy {f00=0x0071, f01=0x0190, f02=» * = n 2 P* * > 2 P* WORK REGISTERS A1-A8,A10 * > J 2 P* * > 2 P* ROUTINES REFERENCED: GETFIL, APLID * > 2 P*
0x158214…1583a8 Dummy {f00=0x0071, f01=0x0190, f02=»******************************************* > P* ? 4 P* ? > PSCNCON EQU * ? H * P CF A14,GETFIL GET CONFIGURATION FILE ? 6 P ST A11,CONDAD+STKEND SAVE CONF. DISC FILE ADDRESS ? , P ST A12,CONDAD+2+STKEND MOST SIGN. PART ? " P LDR A8,A9 GET START
0x1583a8…15853c Dummy {f00=0x0071, f01=0x018e, f02=»RESET RECORD COUNTER ? 2 P LD A6,APLTAB+STKCOM GET APLTAB+STKCOM ADDRESS @ * P ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK @ R $ P CF A14,RDSEC READ FIRST SECTOR @ " P LDR A4,A9 GET START OF RECORD @ P LDR A8,A9 SAVE RECORD START @ P* @ PSCAN00 EQU *
0x15853c…1586d0 Dummy {f00=0x0071, f01=0x0190, f02=» * P CF A14,APLID YES GET APPLICATION NAME A PSCAN10 EQU * A 2 ( P ADKL A10,1 INCREMENT RECORD COUNTER A F & P CW A10,LSTREC+STKEND LAST RECORD? A r P RF(E) SCNEND YES! A P* A . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER A ( P CW A8,ECNFBF+STKEND O
0x1586d0…158864 Dummy {f00=0x0071, f01=0x0190, f02=»SCAN20 EQU * A P LDR A4,A8 GET RECORD START B $ P RB SCAN00 CONTINUE SCAN PROCESS B 8 P* B ` $ P* THE WHOLE CONFIGURATION FILE B j $ P* IS PROCESSED. SEARCH VTOC FOR B " P* GIVEN FILE NAMES AND UPDATE B ( P* APLTAB+STKCOM WITH CORRESPONDING B
0x158864…1589f8 Dummy {f00=0x0071, f01=0x0190, f02=»D A6,APLTAB+STKCOM GET APLTAB+STKCOM START ADDRESS B * P ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK C : 0 P LD* A1,APLTAB+STKCOM GET NO OF APPLICATIONS C h P SUK A1,1 DECREMENT C $ P RF(Z) RTRN ONLY ONE APPLICATION C P NGR A1,A1 NEGATE C 2 P ST A1,APLCNT+
0x1589f8…158b8c Dummy {f00=0x0071, f01=0x018e, f02=»ON C | P EJECT D 2 P********************************************* D 2 P* * D N 2 P* * D 2 P* APLID * D 2 P* =====
0x158b8c…158d20 Dummy {f00=0x0071, f01=0x0190, f02=» 2 P* AND MOVES IT FROM CONF. FILE TO * E 8 P* APLTAB+STKCOM. FOR EACH APPLICATION A ENTRY * E : 8 P* IN APLTAB+STKCOM IS CREATED ACCORDINGLY: * E v 2 P* * E 2 P* LENGTH OF NAME (BYTES)
0x158d20…158eb4 (2, 185) Dummy {f00=0x0072, f01=0x0190, f02=» NAME ENTRY CONSISTS OF 1-4 WORDS * E 2 P* * F 0 8 P* ENTRY: A6 POINTER INTO APLTAB+STKCOM * F f 2 P* A8 RECORD POINTER * F 2 P* A10 RECORD COUNTER * F
0x158eb4…159048 Dummy {f00=0x0072, f01=0x0190, f02=» * F z 2 P********************************************* G P* G V P* G ` PAPLID EQU * G j ( P ADKL A10,1 INCREMENT RECORD COUNTER G ~ & P CW A10,LSTREC+STKEND LAST RECORD G 4 P ABL(E) CONERR YES! ERROR IN CONFIGURATION FILE G
0x159048…1591dc Dummy {f00=0x0072, f01=0x0190, f02=» G " P CF A14,RDSEC READ NEXT SECTOR H P LDR A8,A9 GET RECORD START H . PAPLID0 EQU * H R P LDR A4,A8 RECORD START H f & P LDK A5,0 RESET CHARACTER COUNTER H PAPLID2 EQU * H P LCR A1,A4 GET CHARACTER H & P CCK A1,';;' DELIMITER CHARACTER? H
0x1591dc…159370 Dummy {f00=0x0072, f01=0x0190, f02=» H l & P CWK A5,NCHAID END OF THIS RECORD? I ( P RB(NE) APLID2 NO GET NEXT CHARACTER I 2 P* I ^ " P* END OF NAME RECORD, LOOK IF I h $ P* NEXT CHARACTER IS A DELIMITER I P* I P LCR A1,A4 I P CCK A1,';;' I 6 P ABL(NE) CONERR NO DELIMITER, ERRO
0x159370…159504 Dummy {f00=0x0072, f01=0x0190, f02=» A3,A6 SAVE BLOCK START I 0 P STR A5,A3 SAVE NAME LENGTH IN APLTAB+STKCOM J . P IM* APLTAB+STKCOM INCREMENT NO OF APPLIC. J T ( P LDR A4,A8 GET START OF NAME RECORD J ( P ADK A5,1 INCREMENT CHARACTER COUNT J " P SRA A5,1 AND MAKE WORD COUNT J P* J
0x159504…159698 Dummy {f00=0x0072, f01=0x018e, f02=»COM J x ( P ADK A4,2 ADVANCE CHARACTER POINTER K " P SUK A5,1 DECREMENT WORD COUNT K 8 * P RB(P) APLID6 MORE CHARACTERS TO MOVE K ^ P* K 0 P ADK A6,ACBLEN PREPARE FOR NEXT TABLE ENTRY K P RTN A14 NO, RETURN K P EJECT K 2 P********************
0x159698…15982c Dummy {f00=0x0072, f01=0x018e, f02=» K ` 2 P* GETAPL * L 2 P* ====== * L > 2 P* * L t 2 P* SCANS VTOC FOR FILE NAMES LISTED IN * L @ P* APLTAB+STKCOM. APLTAB+STKCOM IS UPDAT
0x15982c…1599c0 Dummy {f00=0x0072, f01=0x0190, f02=» L Z 2 P* START OF FREE AREA. * M 2 P* * M > 8 P* ENTRY: A6 - 1ST ENTRY IN APLTAB+STKCOM * M t @ P* APLCNT+STKEND - NO OF ENTRIES IN APLTAB+STKCOM * M 2 P*
0x1599c0…159b54 (2, 186) Dummy {f00=0x0072, f01=0x0190, f02=»GETVLB READ VOLUME LABEL M PGETAP0 EQU * N P CF A14,RDSEC READ SECTOR N 4 ( P LDK A7,QBLFAC VTOC BLOCKING FACTOR N V " P LDR A4,A9 GET START OF RECORD N PGETAP2 EQU * N ( P LDR* A5,A6 GET LENGTH OF APPL. NAME N P LDR A3,A4 SAVE RECORD START N
0x159b54…159ce8 Dummy {f00=0x0072, f01=0x0190, f02=»2,/2020 UNUSED? N P RF(E) GETAP4 YES! O P* O 2 " P CF A14,CMPSYM COMPARE SYMBOLS O < P ADK A5,0 O b P RF(Z) FOUND EQUAL O t P* O $ P* NO MATCH, TRY NEXT VTOC ENTRY O P* O PGETAP4 EQU * O P ADR A4,A8 GET NEXT RECORD O & P ADK A4,
0x159ce8…159e7c Dummy {f00=0x0072, f01=0x0190, f02=»OC SECTOR? O | & P ABL(E) CONERR ERROR IN CONF. FILE P P* P < P RB GETAP0 P F P* P X PFOUND EQU * P b $ P LDK A2,'L' LOAD FILE CHARACTER P v P CC A2,27,A4 LOAD FILE? P * P ABL(NE) CONERR NO ERROR IN CONF. FILE P P* P . P LD A2,16,A4 GET D
0x159e7c…15a010 Dummy {f00=0x0072, f01=0x0190, f02=»PLADA+2,A6 AND SAVE IN APLTAB+STKCOM P . P ADK A6,ACBLEN ADVANCE TO NEXT TABLE BLOCK Q , P* Q ^ 2 P IM APLCNT+STKEND INCREMENT APPLICATION COUNT Q h P RB(NZ) GETAPL MORE TO DO! Q P* Q P RTN A14 END OF GETAPL Q P EJECT Q 2 P******************
0x15a010…15a1a4 Dummy {f00=0x0072, f01=0x0190, f02=» Q b 2 P* CMPSYM * R 2 P* ====== * R > 2 P* * R t 2 P* COMPARE TWO SYMBOLS WITH EACH OTHER * R 2 P*
0x15a1a4…15a338 Dummy {f00=0x0072, f01=0x0190, f02=» LENGTH OF SYMBOL 2 * R 2 P* * S ( 2 P* EXIT: A5 = 0 IF SYMBOLS EQUAL * S ^ 2 P* * S 2 P********************************************* S P* S
0x15a338…15a4cc Dummy {f00=0x0072, f01=0x0190, f02=») CMPEND IF NOT EQUAL, RETURN S P* T & ( P ADK A3,1 ADVANCE CHARACTER POINTERS T 0 P ADK A1,1 T ( P SUK A5,1 DECREMENT CHARACTER COUNT T n , P RB(NZ) CMPSYM CONTINUE THE COMPARISION T P* T $ P LDR* A2,A6 RESTORE NAME LENGTH T " P CWK A2,8 LO
0x15a4cc…15a660 Dummy {f00=0x0072, f01=0x0190, f02=»END OF FILE NAME? T P RF(E) CMPEND YES! U P* U 4 P LDK A5,1 NO, NOT EQUAL! U > PCMPEND EQU * U ^ P RTN A14 END OF CMPSYM U r P EJECT U 2 P********************************************* U 2 P* * U 2
0x15a660…15a7f4 (2, 187) Dummy {f00=0x0072, f01=0x018e, f02=» * U v 2 P* * V 2 P* READ SECTOR CONTAINIG VOLUME LABEL * V R 2 P* * V 2 P* EXIT: A10 - LAST VTOC SECTOR * V 2 P* A11 - FIRST
0x15a7f4…15a988 Dummy {f00=0x0072, f01=0x0190, f02=» V ` 2 P********************************************* W P* W > P* W H PGETVLB EQU * W R P SUR A11,A11 VOLUME LABEL W f P SUR A12,A12 W " P CF A14,RDSEC GET VOLUME LABEL W P LD A10,10,A9 GET VTOC BASE W P LDR A11,A10 SAVE W " P AD A10,
0x15a988…15ab1c Dummy {f00=0x0072, f01=0x0190, f02=» OF GETVLB W P* X P EJECT X 2 P********************************************* X * 2 P* * X ` 2 P* * X 2 P* RDSEC * X 2 P*
0x15ab1c…15acb0 Dummy {f00=0x0072, f01=0x0190, f02=» * X n 2 P* * Y 2 P* ENTRY: A9 - BUFFER ADDRESS * Y J 2 P* A11- SECTOR ADDRESS * Y 2 P* A12- SECTOR ADDRESS * Y 2 P*
0x15acb0…15ae44 Dummy {f00=0x0072, f01=0x0190, f02=»DIFIED ADDRESS Y PREADS EQU *-2 Z P RTN A14 Z , P EJECT Z < P* Z J P* DATA AREA DEFINITION Z T P* Z t PSYSBAS EQU * Z ~ PSAVCON DATA BUFLEN Z 2 PMXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS Z PSAVMEM DATA 0 SAVE AREA Z & PCYLNBR
0x15ae44…15afd8 Dummy {f00=0x0072, f01=0x411c, f02=»AB DATA 0,/1909,/3717,/2808,/1404 Z P XIF =9 [ * P IFF CDDISC-CDDI16=1 =9 [ < , PDEVTAB DATA 0,/1909,/3717,/2808,/5717 =9 [ P XIF =9 [ $ PSWPTAB DATA '$S','WA','P ',' ' [ PFCTAB EQU * =5 [ P DATA /F1F3,/F0F2 =5 [ P* [ P END
0x15afd8…15b16c Dummy {f00=0x0072, f01=0x2008, f02=» P X ` h p
0x15b16c…15b300 Dummy {f00=0x0072, f01=0x0190, f02=» x " PLMP3 EQU /100 MEMORY OVERFLOW , PLMP4 EQU /80 ERROR IN CONFIGURATION DATA . PLMP5 EQU /40 NOT USED ^ PLMP6 EQU /20 NOT USED | PLMP7 EQU /10 NOT USED PLMP8 EQU 8 NOT USED PLMP9 EQU 4 NOT USED PLMP10 EQU 2 NOT USED
0x15b300…15b494 (2, 188) Opaque[0x194]
0x15b494…15b628 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e58, f03=0x0000}
0x15b494…15b628 IdxSect {
0x15b494…15b628 f00 = 0x0072 // 0x15b494 @0x0
0x15b494…15b628 f01 = 0x006c // 0x15b496 @0x2
0x15b494…15b628 gno = [ // 0x15b498 @0x4
0x15b494…15b628 [0x00]: C0x0072.0x3.0
0x15b494…15b628 [0x01]: C0x0073.0x0.0
0x15b494…15b628 [0x02]: C0x0073.0x1.0
0x15b494…15b628 [0x03]: C0x0073.0x2.0
0x15b494…15b628 [0x04]: C0x0073.0x3.0
0x15b494…15b628 [0x05]: C0x0074.0x0.0
0x15b494…15b628 [0x06]: C0x0074.0x1.0
0x15b494…15b628 [0x07]: C0x0074.0x2.0
0x15b494…15b628 [0x08]: C0x0074.0x3.0
0x15b494…15b628 [0x09]: C0x0075.0x0.0
0x15b494…15b628 [0x0a]: C0x0075.0x1.0
0x15b494…15b628 [0x0b]: C0x0075.0x2.0
0x15b494…15b628 [0x0c]: C0x0075.0x3.0
0x15b494…15b628 [0x0d]: C0x0076.0x0.0
0x15b494…15b628 [0x0e]: C0x0076.0x1.0
0x15b494…15b628 [0x0f]: C0x0076.0x2.0
0x15b494…15b628 [0x10]: C0x0076.0x3.0
0x15b494…15b628 [0x11]: C0x0077.0x0.0
0x15b494…15b628 [0x12]: C0x0077.0x1.0
0x15b494…15b628 [0x13]: C0x0077.0x2.0
0x15b494…15b628 [0x14]: C0x0077.0x3.0
0x15b494…15b628 [0x15]: C0x0078.0x0.0
0x15b494…15b628 [0x16]: C0x0078.0x1.0
0x15b494…15b628 [0x17]: C0x0078.0x2.0
0x15b494…15b628 [0x18]: C0x0078.0x3.0
0x15b494…15b628 [0x19]: C0x0079.0x0.0
0x15b494…15b628 [0x1a]: C0x0079.0x1.0
0x15b494…15b628 [0x1b]: C0x0079.0x2.0
0x15b494…15b628 [0x1c]: C0x0079.0x3.0
0x15b494…15b628 [0x1d]: C0x007a.0x0.0
0x15b494…15b628 [0x1e]: C0x007a.0x1.0
0x15b494…15b628 [0x1f]: C0x007a.0x2.0
0x15b494…15b628 [0x20]: C0x007a.0x3.0
0x15b494…15b628 [0x21]: C0x007b.0x0.0
0x15b494…15b628 [0x22]: C0x007b.0x1.0
0x15b494…15b628 [0x23]: C0x007b.0x2.0
0x15b494…15b628 [0x24]: C0x007b.0x3.0
0x15b494…15b628 [0x25]: C0x007c.0x0.0
0x15b494…15b628 [0x26]: C0x007c.0x1.0
0x15b494…15b628 [0x27]: C0x007c.0x2.0
0x15b494…15b628 [0x28]: C0x007c.0x3.0
0x15b494…15b628 [0x29]: C0x007d.0x0.0
0x15b494…15b628 [0x2a]: C0x007d.0x1.0
0x15b494…15b628 [0x2b]: C0x007d.0x2.0
0x15b494…15b628 [0x2c]: C0x007d.0x3.0
0x15b494…15b628 [0x2d]: C0x007e.0x0.0
0x15b494…15b628 [0x2e]: C0x007e.0x1.0
0x15b494…15b628 [0x2f]: C0x007e.0x2.0
0x15b494…15b628 [0x30]: C0x007e.0x3.0
0x15b494…15b628 [0x31]: C0x007f.0x0.0
0x15b494…15b628 [0x32]: C0x007f.0x1.0
0x15b494…15b628 [0x33]: C0x007f.0x2.0
0x15b494…15b628 [0x34]: C0x007f.0x3.0
0x15b494…15b628 [0x35]: C0x0080.0x0.0
0x15b494…15b628 ]
0x15b494…15b628 }
0x15b628…15b7bc Dummy {f00=0x0072, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 11.0 81-02-16 870105041100 P : 2 P =6,INIT UNUSED MMU ENTRIES,AND INIT ACBSTA B ( P AND ACBREL FOR MONITOR EXTENTS x P REL 11.0 81-01-26 . P =5,CHANGES IN CONDITIONAL ASSEMBLY WHEN ( P BUILDING COM
0x15b7bc…15b950 Dummy {f00=0x0072, f01=0x0190, f02=»L DEVICES v P PRR 11.0 80-12-03 0 P =3,APPLICATION CONTROL BLOCK IS EXTENDED 2 P WITH 1 WORD f P PRR 11.0 80-12-01 , P =2,IF NO S-BLOCK IN CONF.DATA,PROCESS , P EVEN NEXT CREDIT APPL. CONVERT A $ P BINARY
0x15b950…15bae4 Dummy {f00=0x0072, f01=0x0190, f02=»K IF MEMORY OVERFLOW WHEN BUILDING P USER TASK TABLES * P PRR 11.0 80-11-20 H 8 P =1,IF NO D-BLOCK IN CONF. DATA, SKIP DCT-CREATION h P PRR 11.0 80-11-19 P ENTRY SYSLDM P* 0 P* EXTERNALS DEFINED IN SYSTEM CONTR
0x15bae4…15bc78 Dummy {f00=0x0072, f01=0x0190, f02=»R ADDRESS z . P EXTRN SCTCDT COMMON DEVICE TABLE ADDRESS $ P EXTRN SCTDCT DATA COMMUNICATION D . P EXTRN SCTDMI DM: INDEX BUFFER RECORD SIZE l ( P EXTRN SCTDMT DATA MANAGEMENT TASKS " P EXTRN SCTEFA END OF FREE AREA , P EXTRN SCTFWL FM: FILE W
0x15bc78…15be0c Dummy {f00=0x0072, f01=0x0190, f02=» SCTMXS MONITOR EXTENT&SEGMENT TABLE . P EXTRN SCTNFT DM/FM: NUMBER OF FILES/TASK , ( P EXTRN SCTNOF DM/FM: NUMBER OF FILES ^ " P EXTRN SCTNOP NUMBER OF PAGES 6 P EXTRN SCTNOS NUMBER OF SEGMENTS/TASK (BASIC ONLY) P EXTRN SCTOPT SYSTEM OPTIONS
0x15be0c…15bfa0 Dummy {f00=0x0072, f01=0x0190, f02=»START OF FREE AREA $ P EXTRN SCTTCT TASK CONTROL TABLE P EJECT B P* P " P* EXTERNALS DEFINED IN MONTAB Z P* * P EXTRN FREQUE FREE PAGES QUEUE ANCHOR " P EXTRN INTLT1 LOCAL CONNECTION $ P EXTRN INTRT1 REMOTE CONNECTION " P E
0x15bfa0…15c134 (2, 189) Dummy {f00=0x0073, f01=0x0190, f02=»SYNCHRONOUS CONNECTION P* P* MISCELLANOEUS EXTERNALS ( P* J ( P EXTRN REL RELOCATION BASE IN SYSINI T , P EXTRN SCLASS SPECIAL DEVICE CLASS TABLE . P EXTRN TCLASS TERMINAL DEVICE CLASS TABLE " P EXTRN SYSLOD START OF SYSLOD ( P
0x15c134…15c2c8 Dummy {f00=0x0073, f01=0x0190, f02=» P EXTRN ERROR ERROR HANDLING $ P EXTRN MOVE MOVE AREAS IN MEMORY ( P EXTRN MULT MULTIPLY P ( P EXTRN PSW STORE PROGRAM STATUS WORD l $ P EXTRN CMPADR COMPARE ADDRESSES . P EXTRN CONVRT CONVERT FROM ASCII TO BINARY * P EXTRN NXTBLK GET NEXT
0x15c2c8…15c45c Dummy {f00=0x0073, f01=0x0190, f02=»OCATION BIT MAP v . P EXTRN PUSH SAVE REGISTER A1-A14 ON STACK 2 P EXTRN POB RESTORE REGISTER A1-A14 FROM STACK J 8 P EXTRN GETAPP GET NEXT APPLICATION OF SPECIFIED TYPE P EJECT P* P* TTAB DISPLACEMENTS P* ( P EXTRN TTB:A
0x15c45c…15c5f0 Dummy {f00=0x0073, f01=0x0190, f02=»GMENT BASE POINTER x ( P EXTRN TTB:SP SEGMENT TABLE POINTER ( P EXTRN TTB:SB SEGMENT BLOCK POINTER F P EXTRN TTB:ID TASK ID r P EXTRN TTB:ST STATUS " P EXTRN TTB:PP PENDING POINTER & P EXTRN TTB:PW PROGRAM STATUS WORD " P EXTRN TTB:S
0x15c5f0…15c784 Dummy {f00=0x0073, f01=0x0190, f02=»RAMETER-1 x P EXTRN DWTST STATUS P EXTRN DWTECB ECB ADDRESS . P EXTRN DWTOR ORDER P P EXTRN DWTADR ADDRESS BLOCK j P EXTRN DWTTAB TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR P EXTRN DWTTQ TERMINAL QUEUE " P EXTRN
0x15c784…15c918 Dummy {f00=0x0073, f01=0x018e, f02=» STATUS | P EXTRN DWTECH ECHO DEVICE P EXTRN DWTSQ START OF QUEUE 2 P EJECT V P d P l , P*************************************** t , P* CONDITIONAL ASSEMBLY * , P*************************************** P
0x15c918…15caac Dummy {f00=0x0073, f01=0x018e, f02=» ` * PEDM EQU 0 1 - EXTENDED DATA MANAGEMENT PX:A EQU 1 6 PX:B EQU 1 H PX:C EQU 1 Z PX:D EQU 1 l PX:E EQU 1 ~ PX:F EQU 1 PX:G EQU 1 PX:H EQU 1 PX:I EQU 1 PX:J EQU 1 PX:K EQU 0 PX:L EQU 1
0x15caac…15cc40 Dummy {f00=0x0073, f01=0x0190, f02=» PPLCL EQU 01 PPLCR EQU 01 PVIDEO EQU 00 , PTEDVCL EQU 01 @ PSPDVCL EQU 01 V PNOEXMB EQU X:K l PFM EQU 00 PDC EQU 01 P EJECT P* * P* COMMON DISPLACEMENTS AND CONSTANTS P* . PACBLEN EQU 26 APPL
0x15cc40…15cdd4 (2, 190) Dummy {f00=0x0073, f01=0x0190, f02=»4 TEMPORARY BUFFER SIZE . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA , PCONSTA EQU 2 START OF CONFIGURATION DATA R ( PDATEND EQU 34 END OF DDIV PROTOTYPE : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER * PFSTPAG EQU 22 1ST FREE PAGE
0x15cdd4…15cf68 Dummy {f00=0x0073, f01=0x0190, f02=»0 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA N $ PM:REL EQU 16 RELOCATION CONSTANT z , PSYSBUF EQU 28 START OF TEMPORARY BUFFER 2 PSWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) 0 P
0x15cf68…15d0fc Dummy {f00=0x0073, f01=0x0190, f02=»COM02 EQU 42 COMMON SAVE AREA 2 $ PCOM03 EQU 44 COMMON SAVE AREA 3 ( * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS P , PSWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG ~ $ PCOM04 EQU 50 COMMON SAVE AREA 4 ( PDCBLK EQU 54 START OF DC CONF. DATA P EJECT
0x15d0fc…15d290 Dummy {f00=0x0073, f01=0x0190, f02=» t & PCUTENT EQU 4 FIRST USER TASK ENTRY ( PFWTSIZ EQU 6 FWT AREA SIZE IN WORDS 2 , PAPCTAB EQU 8 CURRENT APPL CONTROL BLOCK ^ * PSFASAV EQU 10 SAVE START OF FREE AREA * PNBRTSK EQU 12 NUMBER OF TASKS IN CLASS & PTASKID EQU 14 TASK IDENTIFICAT
0x15d290…15d424 Dummy {f00=0x0073, f01=0x0190, f02=»TABLE r $ PFWTSTA EQU 24 START OF FWT AREA , PLIMIT EQU 26 CURRENT END OF SYSTEM AREA 6 ( PNBRCOM EQU 28 NUMBER OF COMMON TDC:S f PCLASID EQU 30 CLASS ID " PCONTYP EQU 32 CONNECTION TYPE ( PLCNBR EQU 34 LINE CONNECTION NUMBER PCLANBR
0x15d424…15d5b8 Dummy {f00=0x0073, f01=0x0190, f02=» x PWRK3 EQU 46 WORK AREA 3 PWRK4 EQU 48 WORK AREA 4 ( " PBRDTAB EQU 50 BOARD CONF TABLE H , PLCDSTA EQU 52 CONFIGURATION DATA POINTER n 2 PNBRSDC EQU 54 NUMBER OF SPECIAL DEVICE CLASSES 4 PNBRTDC EQU 56 NUMBER OF TERMINAL DEVICE CLASSES
0x15d5b8…15d74c Dummy {f00=0x0073, f01=0x0190, f02=»4 NUMBER OF DTE:S DEFINED & PDTENAM EQU 66 SDTE IDENTIFICATION " $ PDTETYP EQU 68 TYPE OF CONNECTION L 4 PNASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA t * PNALNG EQU 72 LENGTH OF NETWORK ADDRESS , PDTENSA EQU 74 NO OF SUBADDRESSES DEFINED 4
0x15d74c…15d8e0 Dummy {f00=0x0073, f01=0x0190, f02=»ICATION CONTROL BLOCK r 4 PSCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK 2 PEXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK V , PNBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS . PSWBBLK EQU FWTFLG START OF SWB CONF. DATA * PSWBNAM EQU FWTSTA ADDRESS
0x15d8e0…15da74 (2, 191) Dummy {f00=0x0073, f01=0x0190, f02=»S p P EJECT P* 0 P* DISPLACEMENT IN APPLICATION CONTROL TABLE " P* V 0 PAPLREL EQU 18 APPLICATION RELOCATION BASE =6 ` , PAPLIOE EQU 0 APPLICATION RESTART ADDRESS * PAPLLAC EQU 14 APPLICATION LOAD ADDRESS & PAPLLAP EQU 12 LOGICAL
0x15da74…15dc08 Dummy {f00=0x0073, f01=0x0190, f02=»RT MMU ENTRY x . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU F " PAPLSWB EQU 2 SWB TABLE ADDRESS x , PAPLSTA EQU 16 APPL PROGRAM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE 8 PAPLADA EQU 22 APPLIC
0x15dc08…15dd9c Dummy {f00=0x0073, f01=0x0190, f02=»TS P* * PS:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS PSWBLEN EQU 4 LENGTH OF SWB B ( PSWBSEC EQU 6 DISPL. TO SECTOR LENGTH d 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB PUPNAME EQU 4 PROTOTYPE NAME $ PWBLEN EQU -4 LENGTH OF WORKBLOCK
0x15dd9c…15df30 Dummy {f00=0x0073, f01=0x0190, f02=»*********** | P P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE @ ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS b , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A TASK
0x15df30…15e0c4 Dummy {f00=0x0073, f01=0x0190, f02=»7 TERMINAL DEVICE CLASS PTLC EQU 7 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH B P* n * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD x P* P* COMMON DEVICE DEF. BLOCK: P* PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQ
0x15e0c4…15e258 Dummy {f00=0x0073, f01=0x0190, f02=» DEF. BLOCK z P* PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES @ P* p ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD z PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB
0x15e258…15e3ec Dummy {f00=0x0073, f01=0x018e, f02=»QU 7 START OF TYPE RECORD , PNANSA EQU 2 NA-NSA RECORD QUALIFIER POS. " " PNAOFS EQU 3 START OF NA NUMBER R $ PNSAOFS EQU 4 START OF NSA RECORD x & PDTEFIX EQU 8 FIX PART OF DTE BLOCK P EJECT P**************** P* SOP-HANDLING * P
0x15e3ec…15e580 Dummy {f00=0x0073, f01=0x0190, f02=» x " PLMP3 EQU /100 MEMORY OVERFLOW , PLMP4 EQU /80 ERROR IN CONFIGURATION DATA . PLMP5 EQU /40 NOT USED ^ PLMP6 EQU /20 NOT USED | PLMP7 EQU /10 NOT USED PLMP8 EQU 8 NOT USED PLMP9 EQU 4 NOT USED PLMP10 EQU 2 NOT USED
0x15e580…15e714 (2, 192) Dummy {f00=0x0073, f01=0x0190, f02=»RFORMS: CFR A14,A13 * ~ F P* DATA [REL-ADDRESS] * 8 F P* * F P************************************************************
0x15e714…15e8a8 Dummy {f00=0x0073, f01=0x0190, f02=»* $ PMXSBL EQU 6 SEGMENT BLOCK LENGTH " PMXNOX EQU 6 NUMBER OF EXTENTS 2 * PMX:NOS EQU 8 NUMBER OF SEGMENT TABLES X , PMX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH ( PMX:LEV EQU /0031 MONITOR TASK LEVEL & PMX:LEN EQU 4 MONITOR EXTENT LENGTH
0x15e8a8…15ea3c Dummy {f00=0x0073, f01=0x0190, f02=»NUMBER OF MONITOR EXTENTS | , PMX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH " . PMX:STA EQU 2 MONITOR EXTENT START ADDRESS R P EJECT P* " P* *********** " P* * PAGTAB * " P* ***********
0x15ea3c…15ebd0 Dummy {f00=0x0073, f01=0x0190, f02=»B EQU 6 SEGMENT BLOCK ADDRESS P EJECT ! & P* ! 4 & P* ************* ! > & P* * SEGTAB * ! h & P* ************* ! P* ! PSEGPB EQU 6 SEGMENT POINTER ! " PSEGSB EQU 6 PAGE BLOCK ADDRESS
0x15ebd0…15ed64 Dummy {f00=0x0073, f01=0x0190, f02=» ******************* ! P* " * PBUFLEN EQU -4 " 4 PDEVIND EQU -2 " J PDWTLEN EQU 6 " ` PTDCDD1 EQU 5 " t PTDCDD2 EQU 6 " ( PTDCLCN EQU 10 DISP. TO LINE CON. NBR " $ PSLL0 EQU /3940 SLL A1,0 CONSTANT " 8 PNBRDPS EQU 12 NUMBER OF
0x15ed64…15eef8 Dummy {f00=0x0073, f01=0x0190, f02=» * " x : P* * # & : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * # d : P* * # : P* IT IS ENTERED FROM SYSLOD WITH THE F
0x15eef8…15f08c Dummy {f00=0x0073, f01=0x0190, f02=» * # : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDX * $ : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * $ H : P* * $ : P* * $ : P******
0x15f08c…15f220 Dummy {f00=0x0073, f01=0x0190, f02=»N ROUTINE ENTRY $ x ( P AD A1,STKCOM+M:REL RELOCATE ADDRESS % P CFR A8,A1 % D $ P LDKL A11,SYSLOD START OF SYSLOD % V * P LDKL A2,TCLASS GET ADDRESS TO TCLASS % ~ . P CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? % $ P RF(E) NO:TCL YES:DUMMY TCLASS! % , P C
0x15f220…15f3b4 (2, 193) Dummy {f00=0x0074, f01=0x0190, f02=»ESS TO SCLASS % r , P CALL CHPTRS RELOCATE POINTERS IN SCLASS & 0 P ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS & F P RF CLEAR & z P EJECT & 4 P*********************************************** & 4 P* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * & 4
0x15f3b4…15f548 Dummy {f00=0x0074, f01=0x0190, f02=»OD START ADDRESS & | ( P* A12 - RELOCATION CONSTANT ' P* ' D 2 P* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS ' N P* ' P* WORK REGISTER:A1-A7 ' P* ' P* SUBROUTINES: ' P* ' PCHPTRS EQU * ' P ADR A2,A12 RELOCATE POINTER
0x15f548…15f6dc Dummy {f00=0x0074, f01=0x0190, f02=»4,2 MOORE ENTRIES I TCLASS/SCLASS ? ' P RF(Z) CHPT30 NO! ( , P ADK A3,2 NEXT ENTRY ( F $ P LDR* A5,A3 GET POINTER TO CLASS ( b P ADR A5,A12 RELOCATE ( P STR A5,A3 STORE ( $ P LDR* A6,A5 GET LENGTH OF CLASS ( PCHPT20 EQU * ( * P SUK A6,4 MOOR
0x15f6dc…15f870 Dummy {f00=0x0074, f01=0x0190, f02=»ET DWT-ADDRESS ( " P CALL CMPADR COMPARE ADDRESSES ) P RB(G) CHPT20 DWT IN DRIVER! ) < P ADR A7,A12 RELOCATE ) ` * P STR A7,A5 STORE RELOCATED DW-ADDRESS ) | " P LD A8,SCTOPT GET OPTION WORD ) P ANKL A8,1 MMU IN SYSTEM? ) P RB(Z) CHPT20 NO! )
0x15f870…15fa04 Dummy {f00=0x0074, f01=0x018e, f02=» P RB(NZ) CHPT20 YES! * P ADR A8,A12 RELOCATE * . P ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED * < , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS * n P RB CHPT20 * PCHPT30 EQU * * P RTN A14 * P EJECT * PCLEAR EQU * * P* * & P* CLEAR
0x15fa04…15fb98 Dummy {f00=0x0074, f01=0x0190, f02=» * P CMR A1 + P CWR A1,A2 + P RB(NE) CLRSYS + * P LDKL A1,CONMON + @ P AD A1,STKCOM+M:REL + X P ABR A1 + t P EJECT + 6 P************************************************** + 6 P* B:TCT - BUILD TASK CONTROL TABLE * + 6 P**
0x15fb98…15fd2c Dummy {f00=0x0074, f01=0x0190, f02=»* + P* EXIT: , P* , & P* WORK REGISTERS: A1-A7,A11,A12 , $ P* , N P* SUBROUTINES: , X P* , p . P* TASK CONTROL TABLE LAYOUT , z . P* _________________________ , . P* I LENGTH I
0x15fd2c…15fec0 Dummy {f00=0x0074, f01=0x0190, f02=»_____________ , t . P* I USER TASKS I - . P* __________________________ - H P* - z P EJECT - PB:TCT EQU * - * P LD A12,SCTSFA GET START OF FREE AREA - * P ST A12,SCTTCT STORE ADDRESS TO TCTAB - ( P ADKL
0x15fec0…160054 (2, 194) Dummy {f00=0x0074, f01=0x0190, f02=»EGMENT TASKS - P* . ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB . P RF(Z) BTCT20 NOT PRESENT! . J . P CALL MX:TDB GET FIRST MONITOR EXTENT TDB . l 0 PBTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS . P RF(N) BTCT05 NO MORE! . ( P LDR* A4,A1 GET NUMBER O
0x160054…1601e8 Dummy {f00=0x0074, f01=0x018e, f02=»DR* A2,A1 GET TASK ID . ( P CALL RESTCT RESERVE ENTRY IN TCTAB / P RB BTCT04 / J 4 PBTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB / > PBTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES / P RF(N) BTCT20 NO MORE! / ( P LDR* A4,A1 GET NUMB
0x1601e8…16037c Dummy {f00=0x0074, f01=0x0190, f02=» P LDR* A2,A1 GET TASK ID 0 $ P CALL RESTCT RESERVE ENTRY TCTAB 0 $ P RB BTCT08 0 L P XIF 0 ^ P EJECT 0 j P* 0 x . P* RESERVE ENTRIES IN TCTAB FOR USER TASKS 0 P* 0 PBTCT20 EQU * 0 6 P ST A12,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY 0
0x16037c…160510 Dummy {f00=0x0074, f01=0x018e, f02=»CATIONS? 0 v P RF(N) BTCT70 NO! 1 6 P LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA 1 * * P AD A11,STKCOM+CONSTA RELOCATE POINTER 1 d 2 P ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY 1 P LCR A2,A11 GET BLOCK TYPE 1 ( P CCK A2,'TT' TASK DEFINITION B
0x160510…1606a4 Dummy {f00=0x0074, f01=0x0190, f02=» 1 0 P* COMPUTE NUMBER OF TASK IN EACH TASK CLASS 2 P* 2 < PBTCT40 EQU * 2 F $ P CALL GETTSK GET NUMBER OF TASKS 2 Z PBTCT50 EQU * 2 . P ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB 2 ( P SUK A1,1 MOORE TASKS IN THIS CLASS? 2 P RB(P) BTCT50 YES 2
0x1606a4…160838 Dummy {f00=0x0074, f01=0x0190, f02=» ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK 2 P RB BTCT30 3 0 P* 3 B 4 P* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB 3 L P* 3 0 PBTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA 3 " P SU A12,SCTTCT COMPUTE LENGTH 3 P ST* A12,SCTTCT STORE 3 P R
0x160838…1609cc Dummy {f00=0x0074, f01=0x018e, f02=» * 3 t : P* RESTCT - RESERVE ENTRY IN TCTAB * 4 " : P* =============================== * 4 ` : P* * 4 : P* REFERENCED IN: B:TCT
0x1609cc…160b60 Dummy {f00=0x0074, f01=0x0190, f02=» 4 X : P* A12 - NEXT FREE ENTRY IN TCTAB * 5 : P* * 5 F : P* EXIT: A12 - NEXT FREE ENTRY IN TCTAB * 5 : P* * 5 : P* WORK
0x160b60…160cf4 (2, 195) Dummy {f00=0x0074, f01=0x0190, f02=» * 5 | : P* * 6 * : P***************************************************** 6 h PRESTCT EQU * 6 P LDR A3,A12 GET END OF TCTAB 6 PREST10 SUK A3,2 NEXT ENTRY 6 & P CW A3,S
0x160cf4…160e88 Dummy {f00=0x0074, f01=0x0190, f02=»N TCTAB 6 r PREST20 RTN A14 RETURN 7 , PREST30 CWR* A2,A3 CHECK IF SAME TASK ID 7 . P RB(NE) REST10 NOT THE SAME 7 ^ " P RB REST20 COINCIDENCE: RETURN 7 P XIF 7 P IFF FM=0 7 P EJECT 7 8 P***************************************************
0x160e88…16101c Dummy {f00=0x0074, f01=0x0190, f02=» ============================= * 7 8 P* * 8 4 8 P*************************************************** 8 p 8 P* * 8 8 P* REFERENCED IN: CONMON
0x16101c…1611b0 Dummy {f00=0x0074, f01=0x0190, f02=» * 8 ` 8 P* SCTNOF - NUMBER OF GENERAL FM-FILES * 9 8 P* SCTFWL - FILE WORK TABLE LENGTH IN * 9 H 8 P* BYTES * 9 8 P* * 9 8 P* EXIT: S
0x1611b0…161344 Dummy {f00=0x0074, f01=0x0190, f02=» * 9 t 8 P* WORK REGISTERS: A2,A3 * : 8 P* * : 8 P* SUBROUTINES: ERROR,MULT * : 8 P* *
0x161344…1614d8 Dummy {f00=0x0074, f01=0x0190, f02=»WORK TABLES. * : 8 P* SIZE OF THE AREA RESERVED IS GIVEN BY THE * ; 4 8 P* FORMULA: A=L*(G+N*T) * ; p 8 P* WHERE A=AREA SIZE IN BYTES * ; 8 P* L= FWT LENGTH IN BY
0x1614d8…16166c Dummy {f00=0x0074, f01=0x0190, f02=» * ; ` 8 P* N=NUMBER OF USER TASKS * < 8 P* * < H 8 P*************************************************** < P EJECT < PB:FWT EQU * < & P LD* A2,SCTTCT GET LENGTH OF TCTAB <
0x16166c…161800 Dummy {f00=0x0074, f01=0x0190, f02=»A3,SCTNFT GET NUMBER OF FM-FILES PER TASK < P CALL MULT MULTIPLY = 2 0 P AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES = N 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 A
0x161800…161994 (2, 196) Dummy {f00=0x0074, f01=0x0190, f02=» SIZE IN WORDS = n ( P LD A2,SCTSFA GET START OF FREE AREA > , P ST A2,SCTFWT STORE ADDRESS TO FIRST FWT > B 0 P ST A2,STKEND+FWTSTA SAVE START OF FWT AREA > r 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA > . PFWT50 CW A2,STKEND+LIMIT MEMORY OVERFLOW? >
0x161994…161b28 Dummy {f00=0x0074, f01=0x0190, f02=» ADK A2,2 RESERVE ANOTHER WORD > $ P SUK A3,1 DECREMENT WORD COUNTER ? & * P RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW ? N , P ST A2,SCTSFA UPDATE START OF FREE AREA ? | P SUK A2,2 ? 0 P ST A2,STKEND+INTTAB SAVE ADDRESS TO T.I.T. ? PFWT70 RTN A14 ? P
0x161b28…161cbc Dummy {f00=0x0074, f01=0x0190, f02=»******************** ? ~ P* @ ( P* NUMBER OF BLOCKS TO BE GENERATED: @ & ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) @ R $ P* WHERE N IS A SYSTEM CONSTANT @ ~ $ P* DEFINED AT SYSTEM GENERATION @ P* @ P* @ P* REFERENCED IN: SYSLOD @ P* @
0x161cbc…161e50 Dummy {f00=0x0074, f01=0x0190, f02=»IRST BLOCK @ p P* A $ P* WORK REGISTERS: A1,A2,A7,A12 A P* A D P* SUBROUTINES: BLKGEN A N P* A n P EJECT A x PMONBLK EQU * A P LDK A1,0 A & P LD A12,SCTSFA START OF FREE AREA A . P ST A12,FREQUE SAVE POINTER TO FIRST BLOCK A P
0x161e50…161fe4 Dummy {f00=0x0074, f01=0x0190, f02=»S PER TASK TO GENERATE A z P* B P LD A2,SCTBLK B ( 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA B > PMON:10 EQU * B r P SUK A7,2 MOORE TASKS? B P RF(Z) MON:20 NO B P CALL BLKGEN B P RB MON:10 B PMON:20 EQU * B P* B $ P* GEN
0x161fe4…162178 Dummy {f00=0x0074, f01=0x0190, f02=»KGEN B P* C P* GENERATE END BLOCK C P* C 4 P STR A1,A12 C > P ST A1,2,A12 C R P ST A1,4,A12 C f P* C z F P* CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A C 0 P* IF NOT - USE LAST MONITOR BLOCK AS BUFFER C P* C
0x162178…16230c Dummy {f00=0x0074, f01=0x0190, f02=» 0 P ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE D P ADKL A12,2 D 8 0 P ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS D L PMON:30 EQU * D P ADKL A12,6 D P D * P ST A12,SCTSFA UPDATE END OF FREE AREA D P RTN A14 D P EJECT D * P************
0x16230c…1624a0 Dummy {f00=0x0074, f01=0x0190, f02=»* REFERENCED IN: MONBLK D P* E " P* ENTRY: A1=0 E , 4 P* A2 - NUMBER OF BLOCKS TO BE GENERATED E D $ P* A12 - NEXT FREE ENTRY E | P* E P* EXIT: A1=0 E " P* A12 - NEXT FREE ENTRY E P* E P* WORK REGISTES: A3
0x1624a0…162634 (2, 197) Dummy {f00=0x0075, f01=0x0190, f02=»---------------- E t 0 P* I DATA *+6 I F 0 P* -------------------- F L 0 P* I DATA 0 I F 0 P* -------------------- F 0 P* I DA
0x162634…1627c8 Dummy {f00=0x0075, f01=0x0190, f02=»BLK:10 EQU * F P RF(Z) BLKEX G $ P LDK A4,3 NUMBER OF WORDS/BLOCK G ( 0 PBLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? G P P RF(NE) BLK:30 NOT YET! G * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW G P CALL ERROR G * PBLK:30 ADKL A12,2 RESERVE ANOTHER
0x1627c8…16295c Dummy {f00=0x0075, f01=0x0190, f02=» P SUK A3,1 H P RB BLK:10 H PBLKEX EQU * H ( P RTN A14 H < P IFF EDM=0 H L P EJECT H ^ H P******************************************************************* H l H P* * H H P*
0x16295c…162af0 Dummy {f00=0x0075, f01=0x0190, f02=» * H P H P* * I H P* REFERENCED IN: SYSLDM * I X H P* * I H P* ENTRY:
0x162af0…162c84 Dummy {f00=0x0075, f01=0x0190, f02=» * I H P* * J D H P* WORK REGISTERS: A4 * J H P*
0x162c84…162e18 Dummy {f00=0x0075, f01=0x0190, f02=» * J t H P******************************************************************* K 0 PB:MXTT EQU * K | ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB K P RF(Z) BMX99 NOT PRESENT K 0 P LDK A4,2 DISPLACEMENT TO FIRST EXTENT TASK
0x162e18…162fac Dummy {f00=0x0075, f01=0x0190, f02=»LE K b " P RF(NZ) BMX05 ALREADY DEFINED L $ P LD A4,SCTSFA START OF FREE AREA L 0 0 P ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE L X 4 P LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE L & P ST* A4,SCTMOX STORE IN FIRST WORD L $ P SUK A4,2 RESET TASK ID CO
0x162fac…163140 Dummy {f00=0x0075, f01=0x0190, f02=»S? L v P RF(N) BMX03 NO M * P ADK A2,2 ADDRESS NUMBER OF TASK ID:S M " ( P LDR* A6,A2 GET NUMBER OF TASK ID:S M P ( P ADR* A4,A2 ADD NUMBER OF TASK ID:S M | " PBMX02 SUK A6,1 MORE TASK ID:S? M P RB(N) BMX01 NO M " P ADK A2,2 ADDRESS NEXT TASK ID M
0x163140…1632d4 (2, 198) Dummy {f00=0x0075, f01=0x0190, f02=» START-ADDRESS TABLE M | , P ST A4,SCTSFA UPDATE START OF FREE AREA N P LDR A11,A4 GET TABLE END N L " P LDR A9,P GET CURRENT LOCATION N n " P CALL CMPADR COMPARE ADDRESSES N P RF(NG) BMXS05 OK N * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW N P CALL
0x1632d4…163468 Dummy {f00=0x0075, f01=0x018e, f02=» N f P RF(N) BMX99 NO MORE O * P LD A12,SCTSFA GET START OF FREE AREA O $ 6 P ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK O R 4 P ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK O , P ST A12,SCTSFA UPDATE START OF FREE AREA O " P ADK A1,2 NUMBER OF
0x163468…1635fc Dummy {f00=0x0075, f01=0x0190, f02=» O z P ADK A1,2 NEXT TASK ID P P CALL MXTTAB P & P RB BMX20 P : PBMX99 RTN A14 RETURN P L P EJECT P h H P******************************************************************** P v H P* * P
0x1635fc…163790 Dummy {f00=0x0075, f01=0x018e, f02=»=== * P Z H P* * Q H P* ENTRY: A1 -POINTER TO TASK ID IN MXSTAB * Q b H P* A5 - POINTER TO MONITOR EXTENT BLOCK * Q H P* A12
0x163790…163924 Dummy {f00=0x0075, f01=0x0190, f02=» H P* EXIT: A1 - POINTER TO TASK ID IN MXSTAB * R H P* A5 - POINTER TO MONITOR EXTENT BLOCK * R P H P* * R H P* WORK REGISTER: A2
0x163924…163ab8 Dummy {f00=0x0075, f01=0x018e, f02=» IMXTT,STRMOX,INBIMA * R H P* * S < H P******************************************************************** S P EJECT S PMXTTAB EQU * S , P MSR 4,A15 SAVE RE
0x163ab8…163c4c Dummy {f00=0x0075, f01=0x0190, f02=» S v P CALL STRMOX STORE IN MOXTAB T & P LD A2,MX:STA,A5 GET START ADDRESS T , 4 P LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6 T V , P ST A2,APLSTA,A3 STORE START ADDRESS =6 T P CALL STRMOX STORE IN MOXTAB T " P LDR* A2,A5 GET EXTENT ADDRESS T " P
0x163c4c…163de0 Dummy {f00=0x0075, f01=0x0190, f02=» A2,12 T 0 P ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA U : P LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK U B 8 P ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART U . P ST A2,APLREL,A3 STORE RELOCATION BASE =6 U * P LDKL A2,TTB:MT DISPL. TO
0x163de0…163f74 (2, 199) Dummy {f00=0x0075, f01=0x0190, f02=»D A2,SCTOPT GET OPTION WORD U P ANK A2,/20 EMM? V $ P RF(Z) MXTT20 NO V < & P LD A2,MX:LEN,A5 GET EXTENT LENGTH V T P ST A2,MAPLEN,A13 SAVE V ~ & P ST A12,TTAB,A13 SAVE TTAB ADDRESS V P CALL INBIMA INIT BIP MAP V & PMXTT20 MLR 4,A15 RESTORE REGISTE
0x163f74…164108 Dummy {f00=0x0075, f01=0x0190, f02=» * V n 2 P* STRMOX - STORE START ADDRRESS IN MOXTAB * W 2 P* ======================================= * W J 2 P* * W 2 P* REFERENCED IN: MXTTAB * W 2 P*
0x164108…16429c Dummy {f00=0x0075, f01=0x0190, f02=» EXIT: * W 2 P* * X 4 2 P* WORK REGISTERS: * X j 2 P* * X 2 P* SUBROUTINES: * X
0x16429c…164430 Dummy {f00=0x0075, f01=0x0190, f02=» A3,SCTMOX GET CURRENT LENGTH X , P AD A3,SCTMOX ADDRESS TO NEXT FREE ENTRY Y & " P STR A2,A3 STORE START ADDRESS Y V P IM* SCTMOX INCREMENT LENGTH Y | P IM* SCTMOX TWICE Y P RTN A14 RETURN Y P EJECT Y 8 P****************************************
0x164430…1645c4 Dummy {f00=0x0075, f01=0x0190, f02=» 8 P* ============================================== * Z 8 P* * Z @ 8 P* REFERENCED IN: MXTTAB * Z | 8 P* * Z 8 P* ENTRY: A1 - POIN
0x1645c4…164758 Dummy {f00=0x0075, f01=0x0190, f02=» * Z l 8 P* EXIT: * [ 8 P* * [ T 8 P* WORK REGISTERS: A2,A3,A4,A9,A11 * [ 8 P* * [ 8 P
0x164758…1648ec Dummy {f00=0x0075, f01=0x0190, f02=»************************************ [ P EJECT , PIMXTT EQU * : P LDR A2,A12 GET TTAB ENTRY N * P ADKL A2,TTB:MT GET START OF MMU TABLE p . P LDR* A3,A5 GET PHYSICAL ADDRESS TO EXTENT P LDR A4,A3 SAVE ( P ANKL A3,/FC00 PHYSICAL PAGE ADD
0x1648ec…164a80 Dummy {f00=0x0075, f01=0x0190, f02=»E ( P LD A11,MX:LEN,A5 GET EXTENT LENGTH ] 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? ] 6 P RF(G) IMX10 NO! ] j & P XRR A11,A11 INDICATE SINGLE ENTRY ] P RF IMX20 ] < PIMX10 SUR A11,A9 SUBTRACT REMAINING AREA IN CURRENT PAGE ] & PIMX20 STR
0x164a80…164c14 (2, 200) Dummy {f00=0x0075, f01=0x0190, f02=»TRY ENOUGTH? ] ~ P RF(Z) IMX99 YES! ^ P RF(NN) IMX30 <32KB ^ . $ P SUKL A11,/1000 DECREMENT LENGTH ^ J P RB IMX20 ^ r & PIMX30 STR A3,A2 STORE PAGE ADDRESS ^ ( P ADKL A3,/400 INCREMENT PAGE ADDRESS ^ & P ADK A2,2 INCREMENT ENTRY POINTER ^ $ P SUK
0x164c14…164da8 Dummy {f00=0x0075, f01=0x0190, f02=» GET END OF MMU-TABLE =6 ^ ~ P LDKL A3,/FC00 =6 _ PIMX100 EQU * =6 _ : , P CWR A4,A2 ENTRIES LEFT IN MMU-TABLE? =6 _ R P RF(E) IMX110 NO! =6 _ 0 P STR A3,A2 STORE PAGE ERROR IN MMU-ENTRY =6 _ P ADK A2,2 NEXT MMU-ENTRY =6 _ P RB IMX100 =6 _
0x164da8…164f3c Dummy {f00=0x0075, f01=0x0190, f02=» * _ < P* B:MSEG - BUILD MONITOR TASK SEGMENT TABLES & TTABS * ` 6 < P* ================================================== * ` v < P* * ` < P* REFERENCED IN:
0x164f3c…1650d0 Dummy {f00=0x0075, f01=0x0190, f02=» * ` v < P* * a & < P* EXIT: * a f < P* * a < P* WORK REGISTERS: A1-A12
0x1650d0…165264 Dummy {f00=0x0075, f01=0x0190, f02=»AD,BMXSTT * a f < P* * b < P******************************************************** b V P EJECT b PB:MSEG EQU * b 2 P CALL MX:MST FIND FIRST MONITOR SEGMENT TABLE b 0 P ST P,STKEND+LIMIT UPDATE
0x165264…1653f8 Dummy {f00=0x0075, f01=0x0190, f02=» 6 P CALL MX:STD FIND FIRST MONITOR SEGMENT TABLE TASK c P DEFINITION BLOCK c > > PBMSG10 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES c Z P RF(N) BMSG99 NO MORE! c < P CM STKEND+SCBTAB CLEAR ADDRESS TO SEGMENT CONTROL BLOCK c 0 P CM STKEND+MAX
0x1653f8…16558c Dummy {f00=0x0075, f01=0x0190, f02=» c h . P LDR* A7,A1 GET NUMBER OF TASKS IN SEGTAB d PBMSG20 ADK A1,2 NEXT TASK ID d : , P SUK A7,1 DECREMENT NUMBER OF TASK ID:S d ^ P RB(N) BMSG10 NO MORE! d . P CALL CHKTAD CHECK IF TASK ALREADY DEFINED d ( P RF(NZ) BMSG30 TASK ALREADY DEFINED! d 4
0x16558c…165720 Dummy {f00=0x0075, f01=0x018e, f02=» CONTROL BLOCK GENERATED d z * P LD A12,SCTSFA GET START OF FREE AREA e P LDR A10,A12 SAVE e N 6 P ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK e h , P ST A12,SCTSFA UPDATE START OF FREE AREA e D PBMSG25 ST A10,TTB:AP,A12 STORE ADDRESS TO SEGMENT CONT
0x165720…1658b4 (2, 201) Dummy {f00=0x0076, f01=0x0190, f02=» e V 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE f * P ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES f > 2 P ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES f l ( P LDKL A2,/F000 END OF LOGICAL MEMORY f , P SUR A2,A3 COMPUTE LOGICAL PAGE ADDRESS f 2 P LD A3,STK
0x1658b4…165a48 Dummy {f00=0x0076, f01=0x0190, f02=»U ENTRY f v : PBMSG40 ST A2,APLLAP,A10 STORE IN SEGMENT CONTROL TABLE g P SRL A2,12 MMU TABLE ENTRY g N $ P LDK A3,16 NUMBER OF MMU ENTRIES g p . P SUR A3,A2 COMPUTE NUMBER OF PAGE ENTRIES g 4 P ST A3,APLNPE,A10 STORE IN SEGMENT CONTROL TABLE g P SLL A
0x165a48…165bdc Dummy {f00=0x0076, f01=0x018e, f02=»P,A10 STORE IN SEGMENT CONTROL TABLE g 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE h , 0 P ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES h b 2 P ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIPLES h ( P LDR A11,A3 GET CURRENT SEGMENT SIZE h & P LD A9,SCTPSZ GE
0x165bdc…165d70 Dummy {f00=0x0076, f01=0x0190, f02=» h h P RB BMSG20 i PBMSG99 RTN A14 RETURN i P EJECT i 8 > P********************************************************** i F > P* * i > P* BMSTAB - BUILD MONITOR SEGMENT TABLE * i
0x165d70…165f04 Dummy {f00=0x0076, f01=0x0190, f02=»* REFERENCED IN: B:MSEG * i > P* * j B > P* ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS * j > P* A8 - POINTER TO SEGMENT CLUSTER IN MXSTAB * j > P
0x165f04…166098 Dummy {f00=0x0076, f01=0x018e, f02=» * j > P* WORK REGISTERS: A2,A3,A9,A11 * k > > P* * k > P* SUBROUTINES: CMPADR,ERROR * k > P*
0x166098…16622c Dummy {f00=0x0076, f01=0x0190, f02=» k PBMSTAB EQU * l * P STR A1,A15 SAVE REGISTER A1 ON STACK l ( P LD A5,SCTSFA GET START OF FREE AREA l J * P LD A2,SCTIPL GET PROGRAM LOAD DEVICE l v & P STR A2,A5 STORE IN SEGMENT TABLE l * P ADK A5,2 NEXT ENTRY IN SEGMENT TABLE l & P LDR* A9,A4
0x16622c…1663c0 Dummy {f00=0x0076, f01=0x0190, f02=»MBER OF SEGMENTS l h " P ADK A5,2 SEGMENT TABLE ENTRY m P LDR A3,A5 SAVE m > P* m V P* BUILD SEGMENT BLOCK 0 m ` P* m ( P LDKL A2,/8400 STATUS FOR SEGMENT 0 m ( P STR A2,A3 STORE IN SEGMENT BLOCK 0 m 6 PBMST20 ST A1,STKEND+SGMCNT SAVE NUMBER
0x1663c0…166554 (2, 202) Dummy {f00=0x0076, f01=0x0190, f02=» BLOCKS m r " P CALL CMPADR COMPARE ADDRESSES n P RF(NG) BMST25 OK n 6 * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW n P P CALL ERROR n ~ & PBMST25 LDR* A2,A8 GET SEGMENT TYPE n P SRL A2,8 ISOLATE n ( P CCK A2,'RR' CORE RESIDENT SEGMENT? n P RF(E)
0x166554…1666e8 Dummy {f00=0x0076, f01=0x018e, f02=»NG & DISC RESIDENT SEGMENT n P* o " ( P LD A1,SCTMXS GET ADDRESS TO MXSTAB o , 0 P LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31 o X 0 P LD A1,MX:DA1,A1 GET DISC ADDRESS BITS 0-15 o $ P LD A10,2,A8 GET RELOCATION BASE o & P ADR A2,A10 RELOCATE DISC ADDRES
0x1666e8…16687c Dummy {f00=0x0076, f01=0x0190, f02=» ( P LDKL A1,LMP10 DISC ADDRESS OVERFLOW p P CALL ERROR p 0 4 PBMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT p D 4 P STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 p | 6 P ST A2,2,A3 STORE SEGMENT DISC ADDRESS BITS 16-31 p P RF BMST50 p P* p .
0x16687c…166a10 Dummy {f00=0x0076, f01=0x0190, f02=»TORE IN SEGMENT BLOCK p ( PBMST50 LD A9,4,A8 GET SEGMENT LENGTH q 4 P LD A11,STKEND+MAXSGM GET MAXIMUM SEGMENT LENGTH q J P CALL CMPADR q . P RF(NL) BMST55 CURRENT SEGMENT NOT GREATER q 6 P ST A9,STKEND+MAXSGM UPDATE MAXIMUM SEGMENT LENGTH q < PBMST55
0x166a10…166ba4 Dummy {f00=0x0076, f01=0x0190, f02=»OF SEGMENTS q p P SUK A1,1 r P RB(NZ) BMST20 MORE SEGMENTS r & " P ADK A3,8 END OF SEGMENT TABLE r J 2 PBMST60 ST A3,SCTSFA UPDATE START OF FREE AREA r p $ P LDR* A1,A15 RESTORE REGISTER A1 r P RTN A14 r P EJECT r @ P****************************
0x166ba4…166d38 Dummy {f00=0x0076, f01=0x0190, f02=» TASK ALREADY DEFINED * r t @ P* ====================================== * s ( @ P* * s l @ P* REFERENCED IN: B:MSEG * s @ P*
0x166d38…166ecc Dummy {f00=0x0076, f01=0x0190, f02=»MONITOR SEGMENT TASK * s | @ P* * t 0 @ P* EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED * t t @ P* A12 = 0 IF TASK NOT DEFINED * t @ P*
0x166ecc…167060 Dummy {f00=0x0076, f01=0x0190, f02=» * t @ P* SUBROUTINES: PSW * u 8 @ P* * u | @ P************************************************************ u P EJE
0x167060…1671f4 (2, 203) Dummy {f00=0x0076, f01=0x018e, f02=»TER IN TCTAB u r " P CW A2,SCTTCT START OF TCTAB? v * P RF(E) CHKT30 YES: ALL TASKS CHECKED! v : $ P LDR* A3,A2 GET POINTER TO TTAB v h P LD A3,TTB:ID,A3 GET TASK ID v ( P CWR* A3,A1 EQUAL TO CURRENT TASKS? v P RB(NE) CHKT20 NO v " P LDR* A12,A2 G
0x1671f4…167388 Dummy {f00=0x0076, f01=0x0190, f02=» v d P RTN A14 w P EJECT w H P******************************************************************* w & H P* * w r H P* BMXSTT - BUILD MONITOR EXTENT & SEGMENT TTABS * w H
0x167388…16751c Dummy {f00=0x0076, f01=0x0190, f02=» * w V H P* REFERENCED IN: MXTTAB,B:MSEG * x H P* * x ^ H P* ENTRY: * x H P*
0x16751c…1676b0 Dummy {f00=0x0076, f01=0x0190, f02=» * x H P* WORK REGISTERS: A2,A9,A10,A11 * y J H P* * y H P* SUBROUTINES: CMPADR,ERROR
0x1676b0…167844 Dummy {f00=0x0076, f01=0x0190, f02=»********************************************* y z PBMXSTT EQU * z 6 * P LD A12,SCTSFA GET START OF FREE AREA z J , P LDKL A10,TTB:TD+2 STANDARD TTAB LENGTH z x " P LD A2,SCTOPT GET OPTION WORD z P ANK A2,/21 EMM? z P XRK A2,/21 z P RF(NZ) BMXS20
0x167844…1679d8 Dummy {f00=0x0076, f01=0x0190, f02=»CTOPT GET OPTION WORD z P ANK A2,1 MMU OPTION? { P RF(Z) BMXS30 NO! { < . P SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB { V $ P SUKL A10,TTB:MT INCLUDE LENGTH { P RF BMXS40 { ( PBMXS30 LD A2,SCTOPT GET OPTION WORD { P ANK A2,2 DISC PAGING? {
0x1679d8…167b6c Dummy {f00=0x0076, f01=0x0190, f02=»0,SCTSFA COMPUTE START OF FREE AREA { P LDR A9,A10 SAVE | , 0 P LD A11,STKEND+LIMIT GET END OF SYSTEM AREA | D " P CALL CMPADR MEMORY OVERFLOW? | x P RF(NL) BMXS50 NO! | P LDKL A1,LMP3 | ( P CALL ERROR INDICATE MEMORY OVERFLOW | 2 PBMXS50 ST A10,
0x167b6c…167d00 Dummy {f00=0x0076, f01=0x0190, f02=»,A2 STORE TTAB ADDRESS | ( P IM* SCTTCT INCREMENT CURRENT LENGTH } P IM* SCTTCT TWICE } J P LDR* A2,A1 GET TASK ID } d $ P ST A2,TTB:ID,A12 STORE IN TTAB } * P LDKL A2,MX:LEV GET MONITOR TASK LEVEL } $ P ST A2,TTB:ST,A12 STORE IN TTAB } P SLL A
0x167d00…167e94 (2, 204) Dummy {f00=0x0076, f01=0x0190, f02=»NTROL BLOCK ADDRESS } n $ P ST A2,TTB:AP,A12 STORE IN TTAB ~ P LDK A2,2 ~ D 0 P ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH ~ V P RTN A14 RETURN ~ P EJECT ~ B P************************************************************** ~ B P* MX:MEB
0x167e94…168028 Dummy {f00=0x0076, f01=0x018e, f02=» * ~ B P* REFERENCED IN: MX:MST * 8 B P* * ~ B P* ENTRY: SCTMXS - ADDRESS TO MONITOR EXTENT TABLE * B
0x168028…1681bc Dummy {f00=0x0076, f01=0x0190, f02=» P B P* A5 - POINTER TO NUMBER OF SEGTABS * B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * N B P* A7 - NUMBER OF MONITOR EXTENTS * B P*
0x1681bc…168350 Dummy {f00=0x0076, f01=0x0190, f02=» * f B P* SUBROUTINES: * B P* * b B P************************************************************** P EJECT PMX:MEB EQU *
0x168350…1684e4 Dummy {f00=0x0076, f01=0x0190, f02=»OF SEGTABS t P LDR A6,A2 SAVE & P LDR A1,A7 SAVE ADDRESS TO MXSTAB * * P LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS T , P ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS P LDR A5,A1 SAVE . PMEB10 ADK A1,2 ADDRESS NUMBER OF SEGMENTS P SUK A2,1 MO
0x1684e4…168678 Dummy {f00=0x0076, f01=0x0190, f02=»************** ` B P* * B P* MX:MST - GET FIRST MONITOR SEGMENT TABLE * B P* ======================================== * B P*
0x168678…16880c Dummy {f00=0x0076, f01=0x0190, f02=» * t B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB * * B P* * p B P* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TABLE * B P* A5
0x16880c…1689a0 Dummy {f00=0x0076, f01=0x0190, f02=» A7 - NUMBER OF MONITOR EXTENTS * B P* * > B P* WORK REGISTERS: A2 * B P* *
0x1689a0…168b34 (2, 205) Dummy {f00=0x0077, f01=0x0190, f02=» * V B P************************************************************** P EJECT R PMX:MST EQU * ` : P CALL MX:MEB GET POINTER TO FIRST MONITOR EXTENT BLOCK t 2 P LDR A2,A7 GET NUMBER OF MONITOR EXTENT BLOCKS < PMST10 SUK A2,1 DECREMENT NUMBER
0x168b34…168cc8 Dummy {f00=0x0077, f01=0x018e, f02=»MST10 PMST99 RTN A14 RETURN P EJECT * B P************************************************************* 8 B P* * ~ B P* MX:TDB - GET FIRST MONITOR EXTENT TASK DEFINITION BLOCK * B
0x168cc8…168e5c Dummy {f00=0x0077, f01=0x0190, f02=» P B P* REFERENCED IN: MX:STD * B P* * N B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB * B P*
0x168e5c…168ff0 Dummy {f00=0x0077, f01=0x0190, f02=» * f B P* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * b B P* A7 - NUMBER OF MONITOR EXTENTS * B P*
0x168ff0…169184 Dummy {f00=0x0077, f01=0x0190, f02=» * z B P* SUBROUTINES: MX:MST * 0 B P* * v B P************************************************************* P EJECT
0x169184…169318 Dummy {f00=0x0077, f01=0x0190, f02=»K A5,2 ADDRESS NUMBER OF SEGMENTS * P SUK A2,1 DECREMENT NUMBER OF SEGTABS * P RF(N) TDB99 NO MORE SEGTABS X & P LDR* A3,A5 GET NUMBER OF SEGMENTS | 0 PTDB20 SUK A3,1 DECREMENT NUMBER OF SEGMENTS " P RB(N) TDB10 NO MORE SEGMENTS 2 P ADK A1,
0x169318…1694ac Dummy {f00=0x0077, f01=0x0190, f02=»******************************** r B P* * ( B P* MS:STD - GET FIRST MONITOR SEGMENT TASK DEFINITION BLOCK * n B P* ======================================================== * B P*
0x1694ac…169640 Dummy {f00=0x0077, f01=0x0190, f02=» * B P* ENTRY: * < B P* * B P* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TASK *
0x169640…1697d4 (2, 206) Dummy {f00=0x0077, f01=0x0190, f02=» * T B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MONITOR EXTENTS * P B P* * B P* WORK REGISTERS: A2,A3
0x1697d4…169968 Dummy {f00=0x0077, f01=0x0190, f02=» * h B P* * B P************************************************************** d P EJECT PMX:STD EQU * 2 P CALL MX:TDB GET FIRST MONITOR TASK DEF. BLOCK , P LDR A
0x169968…169afc Dummy {f00=0x0077, f01=0x0190, f02=» LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT " PSTD20 ADK A1,2 ADDRESS TASK ID 2 ( P SUK A3,1 DECREMENT NUMBER OF TASKS X P RB(NN) STD20 MORE TASKS P RB STD10 NEXT EXTENT PSTD99 RTN A14 RETURN P XIF P EJECT " P****************
0x169afc…169c90 Dummy {f00=0x0077, f01=0x0190, f02=» P* P* ENTRY: P* 8 P* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES * P* f P* WORK REGISERS: A1-A12 p P* 8 P* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC P* ( P* TASK TABLE LAYOUT
0x169c90…169e24 Dummy {f00=0x0077, f01=0x0190, f02=» WORDS) I t * P* I______________________I * P* TTB:MT I MMU I @ * P* I TABLE I n * P* I 16 I * P* I WORDS I * P* I_
0x169e24…169fb8 Dummy {f00=0x0077, f01=0x0190, f02=»I SEGTAB POINTER I * P* I______________________I * P* TTB:SB I SEGM. BLOCK POINTER I N * P* I----------------------I | * P* TTB:AP I ACB POINTER I * P* ------------------------ * P*
0x169fb8…16a14c Dummy {f00=0x0077, f01=0x0190, f02=»* ------------------------ * P* TTB:ST I STATUS/LEVEL I . * P* ------------------------ * P* TTB:PP I PENDING QUEUE I * P* ------------------------ * P* TTB:PW I PROGRAM STATUS WOR
0x16a14c…16a2e0 Dummy {f00=0x0077, f01=0x0190, f02=»------ p * P* I REGISTER I * P* I SAVE I < * P* I AREA I j * P* I 14 I * P* I WORDS I * P* ------
0x16a2e0…16a474 (2, 207) Dummy {f00=0x0077, f01=0x0190, f02=» TABLE I ~ * P* : : * P* : : J * P* I______________________I x 2 P* TASK SAVE01URATION TABLE LAYOUT 0 P* ______________________________
0x16a474…16a608 Dummy {f00=0x0077, f01=0x0190, f02=»DEX/FILCODE I x 0 P* ------------------------------ 0 P* I DWT-ADDRESS I P 0 P* ------------------------------ 0 P* : : 0 P* :
0x16a608…16a79c Dummy {f00=0x0077, f01=0x0190, f02=» ------------------------------ 0 P* I DWT-ADDRESS I , 0 P* ------------------------------ ` P EJECT PB:TT EQU * & P CALL FSTAPL GET FIRST APPLICATION * P LD A12,SCTSFA GET START OF FREE AREA
0x16a79c…16a930 Dummy {f00=0x0077, f01=0x0190, f02=» ST A11,STKEND+LCDSTA SAVE CONFIGURATION DATA POINTER * P ST P,STKEND+WRK2 SAVE PROGRAM COUNTER > P* l ( P* GET NUMBER OF TASKS IN THIS CLASS v P* P CALL GETTSK . P ST A1,STKEND+NBRTSK SAVE NUMBER OF TASKS P* P* GET TASK
0x16a930…16aac4 Dummy {f00=0x0077, f01=0x0190, f02=»ECOND ID DIGIT x 2 P ST A5,STKEND+TASKID SAVE TASK ID START VALUE P* L " P* CHECK IF CREDIT APPLICATION V P* | 6 P LD A5,STKEND+APCSTA GET APPLICATION CONTROL BLOCK * P LD A5,APLTYP,A5 GET APPLICATION TYPE $ P CWK A5,'CR' CREDIT APPLIC
0x16aac4…16ac58 Dummy {f00=0x0077, f01=0x018e, f02=»ST CHAR IN TCL v P SLL A5,8 MOVE TO LEFT BYTE . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL : $ P CALL GETTCL GET TCL START VALUE l P ST A5,STKEND+TCLSAV SAVE PBTT21 EQU * P EJECT P* P* GET TASK LEVEL P* 0 P L
0x16ac58…16adec Dummy {f00=0x0077, f01=0x0190, f02=» " P CALL CONVRT CONVERT TO BINARY P ST A1,STKEND+TSKLEV SAVE * P EJECT L P* Z B P* COMPUTE SIZE OF CONFIGURATION DEPENDENT PART OF TASK TABLE d P* & P LDKL A10,TTB:TD+4 STANDARD LENGTH " P LD A5,SCTOPT GET OPTION WORD 4 P ANK
0x16adec…16af80 Dummy {f00=0x0077, f01=0x0190, f02=»DE BIT MAP IN LENGTH x . P SUKL A12,TTB:AM RESERV SPACE FOR BIT MAP P RF BTT30 N PBTT22 LD A5,SCTOPT ` P SRC A5,1 MMU PAGING? z P RF(NN) BTT25 NO . P SUKL A10,TTB:MT+2 16+2 WORD EXTRA IF MMU 2 P SUKL A12,TTB:MT RESERV SPACE FOR EXTR
0x16af80…16b114 (2, 208) Dummy {f00=0x0077, f01=0x0190, f02=»RD EXTRA IF DISC PAGING v 0 P SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD PBTT30 EQU * T P EJECT h P* v < P* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART " P* OF TASK CONFIGURATION TABLE P* P LDK A6,0 RESET LENGTH
0x16b114…16b2a8 Dummy {f00=0x0077, f01=0x0190, f02=» GET NUMBER OF TDC:S P LDR A7,A1 SAVE PBTT35 EQU * 4 P RF(Z) BTT40 H ( P CALL GETCLN GET CLASS NUMBER (1-99) & P ADR A1,A1 2*(BINARY CLASS NUMBER) , P LD A8,STKEND+TCLA GET POINTER TO TCLASS P LDR* A2,A8 P SUK A2,2 P
0x16b2a8…16b43c Dummy {f00=0x0077, f01=0x0190, f02=»ET ENTRY IN TCLASS $ P LDR* A8,A8 GET POINTER TO CLASS $ P LDR* A8,A8 GET LENGTH OF CLASS B " P SUKL A8,2 EXCLUDE LENGTH WORD j ( P ADR A10,A8 ADD TO TOTAL TTAB LENGTH . P ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH P ADKL A9,TDC+TLC NEXT CLAS
0x16b43c…16b5d0 Dummy {f00=0x0077, f01=0x0190, f02=»PECIAL DEVICE CLASS DEPENDENT PART OF | P* TASK CONFIGURATION TABLE . P* R 6 P CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES P ADKL A9,2 FIRST SDC RECORD P LDR A7,A1 SAVE PBTT50 EQU * P RF(Z) BTT55 NO MOORE SDC:S (
0x16b5d0…16b764 Dummy {f00=0x0077, f01=0x0190, f02=» LDR* A2,A8 P SUK A2,2 P CWR A1,A2 & P RF(NG) BTT52 8 P LDKL A1,LMP4 N & P CALL ERROR INDICATE FORMAT ERROR d PBTT52 EQU * " P ADR A8,A1 GET ENTRY IN SCLASS $ P LDR* A8,A8 GET POINTER TO CLASS $ P LDR* A8,A8 GET LENGTH O
0x16b764…16b8f8 Dummy {f00=0x0077, f01=0x0190, f02=»GTH j P ADKL A9,SDC NEXT CLASS ( P SUK A7,1 DECREMENT NUMBER OF SDC:S , P RB BTT50 X PBTT55 EQU * j P IFF EDM=0 ~ & P ADKL A10,14 7 EXTRA WORDS FOR EDM P XIF " P ADK A6,2 INCLUDE LENGTH WORD 4 P LD A7,STKEND+CUTENT GET CUR
0x16b8f8…16ba8c Dummy {f00=0x0077, f01=0x0190, f02=»,STKEND+WRK3 SAVE A9 P ST A11,STKEND+WRK4 SAVE A11 P LDR A9,A10 GET TTAB LENGTH @ 4 P AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2 d P ST A9,STKEND+SFASAV =2 0 P LD A11,STKEND+LIMIT GET END OF SYSTEM AREA * P CALL CMPADR CHECK IF ME
0x16ba8c…16bc20 Dummy {f00=0x0077, f01=0x0190, f02=»+WRK3 RESTORE A9 ~ $ P LD A11,STKEND+WRK4 RESTORE A11 P* @ 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB J P* P ST A6,TTB:TD,A12 P* : P* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD P* ( P LD A5,STKEN
0x16bc20…16bdb4 (2, 209) Dummy {f00=0x0078, f01=0x0190, f02=»D Z P* & P SLL A5,10 MOVE LEVEL TO LEFT BYTE P ORKL A5,/00C0 > " P LD A2,SCTOPT GET OPTION WORD T P ANK A2,1 MMU OPTION? z P ORR A5,A2 SET BIT 15 IF MMU $ P ST A5,TTB:PW,A12 STORE IN TTAB P IFF MMUPAG=0 & P CALL MMUINI I
0x16bdb4…16bf48 Dummy {f00=0x0078, f01=0x018e, f02=»SK ID p $ P ST A5,TTB:ID,A12 STORE IN TTAB P ADK A5,1 INCREMENT TASK ID 6 8 P ST A5,STKEND+TASKID SAVE TO NEXT TASK IN SAME CLASS Z 0 P LD A5,STKEND+APCSTA GET APPL. CONTROL BLOCK , P ST A5,TTB:AP,A12 STORE ADDRESS IN TTAB $ P LD A5,APLTYP,
0x16bf48…16c0dc Dummy {f00=0x0078, f01=0x0190, f02=» , P LD A5,STKEND+TCLSAV GET TCL START VALUE " P ST A5,TTB:PP,A12 SAVE IN TTAB 8 P ADK A5,1 INCREMENT TCL ^ P ST A5,STKEND+TCLSAV SAVE ~ PBTT65 EQU * , P STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB " P ADK A7,2 NEXT ENTRY IN TC:TAB 6
0x16c0dc…16c270 Dummy {f00=0x0078, f01=0x0190, f02=» NUMBER OF TASKS IN THIS CLASS | P RB BTT60 & P EJECT 8 PBTT70 EQU * F P* Z * P* RESET POINTER TO START OF FREE AREA d P* P LD A12,STKEND+SFASAV PBTT90 EQU * P CALL NXTBLK GET NEXT BLOCK ( P CCK A2,'TT' TASK DEFI
0x16c270…16c404 Dummy {f00=0x0078, f01=0x0190, f02=»TT98 P LD P,STKEND+WRK1 0 PBTT98 ST A12,SCTSFA SAVE START OF FREE AREA & P SU A7,SCTTCT COMPUTE LENGTH Z P ST* A7,SCTTCT STORE ~ P RTN A14 RETURN P IFF SWPBLK=0 P EJECT PB:SWBT EQU * $ P CALL PUSH SAVE REGISTER A1-A1
0x16c404…16c598 Dummy {f00=0x0078, f01=0x0190, f02=»PLICATION COUNTER v , P ST P,STKEND+LIMIT SAVE LOCATION COUNTER 0 PBSWT05 LDKL A1,'CR' APPLICATION TYPE=CREDIT J , P CALL GETAPP GET NEXT CREDIT APPLICATION ~ & P RF(Z) BSWT42 NO MORE APPLICATIONS P LDR A10,A1 GET ACB ADDRESS P ST A10,STKE
0x16c598…16c72c Dummy {f00=0x0078, f01=0x0190, f02=»* & PBSWT10 CALL NXTBLK GET NEXT BLOCK ( P CCK A2,'TT' TASK DEFINITION BLOCK? 4 P RB(E) BSWT10 YES! ` 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? z P RF(NE) BSWT20 NO! P ADKL A11,1 " P CALL NXTCOM SKIP COMMON BLOCK 2 PBSWT20
0x16c72c…16c8c0 Dummy {f00=0x0078, f01=0x0190, f02=»GETNUM NUMBER OF UWB RECORDS P LDR A1,A5 SAVE $ $ P RF(Z) SWBERR ILLEGAL NUMBER!!! < ( P ADKL A11,UDBFST-1 FIRST UWB RECORD d ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD $ P SUK A1,1 DECR. NUMBER OF TYPES P RB(P) BSWT30 MOORE LEFT , P LCR
0x16c8c0…16ca54 (2, 210) Dummy {f00=0x0078, f01=0x0190, f02=»SWB DEFINITION BLOCK! ( P ST A1,APLSWB,A10 CLEAR SWB POINTER : P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 J & PBSWT42 CALL POB RESTORE REGISTERS P RTN A14 & PBSWT44 ADKL A11,1 NUMBER OF TYPES . P ST A11,STKEND+SWBBLK START
0x16ca54…16cbe8 Dummy {f00=0x0078, f01=0x0190, f02=» 0 P ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS P ST A5,STKEND+WRK1 SAVE 8 . P LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP X P RF(NZ) BSWT48 FILE CREATED " PSWBERR LDKL A1,LMP6 SWB ERROR! P CALL ERROR : PBSWT48 ST A12,APLSWB,A10 SAVE AD
0x16cbe8…16cd7c Dummy {f00=0x0078, f01=0x0190, f02=» $ PBSWT50 ADKL A10,2 BYPASS POINTER ( P SUK A5,1 DECREMENT NUMBER OF TYPES , P RB(P) BSWT50 X P* n & P* GET ADDRESS TO S:BTAB PROTOTYPE x P* , P LD A2,STKEND+APCSTA GET ADDRESS TO ACB & P LD* A1,APLMMC,A2 GET TTAB ADDRESS $ P T
0x16cd7c…16cf10 Dummy {f00=0x0078, f01=0x0190, f02=»E , P ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS $ P CALL GETCON GET S:BTAB ADDRESS : * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB b * P RB(Z) SWBERR NO SWB:S IN APPLICATION! P ADK A1,2 ADDRESS TO NAME P ST A1,STKEND+SWBNAM SAVE 0 P SUK A
0x16cf10…16d0a4 Dummy {f00=0x0078, f01=0x0190, f02=» IF ENOUGTH MEMORY IN FIRST PARTITION P* . P XRR A2,A2 RESET COUNTER 8 $ PBSWT52 SUK A1,6 DECREMENT LENGTH X $ P RF(N) BSWT55 NO MORE SWB-BLOCKS " P ADK A2,1 INCR. BLOCK COUNTER P RB BSWT52 " PBSWT55 SLL A2,3 MULTIPLY BY 8 $ P L
0x16d0a4…16d238 Dummy {f00=0x0078, f01=0x0190, f02=»ERFLOW? z P RF(NL) BSWT57 NO! * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW * P CALL ERROR X $ PBSWT57 SUK A4,2 SKIP LENGTH WORD l " P LDKL A9,0 RESET BLOCK COUNTER , PBSWT60 STR A10,A12 SAVE POINTER TO BLOCK P ST A4,STKEND+SWBTBL SAVE
0x16d238…16d3cc Dummy {f00=0x0078, f01=0x0190, f02=»RECORD IN PROT. p $ P CALL GETCON GET TWO FIRST CHAR. ( P ADKL A11,NAMUWB NAME IN CONF. FILE @ P LCR A3,A11 GET FIRST CHAR. l P SLL A3,8 MOVE TO LEFT BYTE " P LC A3,1,A11 GET SECOND CHAR. & P CWR A1,A3 TWO FIRST CHAR. EQUAL? P RF(
0x16d3cc…16d560 Dummy {f00=0x0078, f01=0x0190, f02=»,A11 GET THIRD CHAR. FROM CONF. FILE P ANK A3,/FF ISOLATE CHAR. , " P CWR A1,A3 THIRD CHAR. EQUAL? N P RF(E) BSWT75 YES! t $ PBSWT70 ADKL A11,NAMUWB SKIP NAME ( P SUK A7,1 DECREMENT NUMBER OF TYPES P RB(P) BSWT65 NEXT TYPE P*
0x16d560…16d6f4 (2, 211) Dummy {f00=0x0078, f01=0x0190, f02=»10 2:ND WORD P ST A7,4,A10 3:RD WORD P ST A7,6,A10 4:TH WORD 2 P RF BSWT95 P PBSWT75 EQU * b P* v P* MATCHING NAME FOUND P* . P LD A3,STKEND+WRK1 GET NUMBER OF SWB TYPES P SUK A3,1 DECREMENT P ST A3,STKEND+WRK1
0x16d6f4…16d888 Dummy {f00=0x0078, f01=0x0190, f02=»OPIES t , P SLL A5,8 NUMBER OF COPIES IN LEFT BYTE > P OR A5,STKCOM+SWBFSA+2 DISC ADDRESS BITS 0-7 IN RIGHT BYTE > " P STR A5,A10 STORE IN SWB BLOCK , P SRL A5,8 NUMBER OF COPIES TO RIGHT BYTE 4 P LD A8,STKCOM+SWBFSA GET DISC ADDRESS BITS 8-22
0x16d888…16da1c Dummy {f00=0x0078, f01=0x0190, f02=»RESS r P LDR A2,A1 SAVE & P SUK A2,UPNAME LENGTH OF WORKBLOCK $ P CALL GETCON N * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB b 0 PBSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK " P LDK A1,0 RESET SECTOR COUNTER 4 PBSWT86 IM STKCOM+SWBFSA INCREM
0x16da1c…16dbb0 Dummy {f00=0x0078, f01=0x0190, f02=» * & P ADK A1,1 INCREMENT SECTOR COUNTER " P SUKL A3,256 DECREMENT LENGTH 4 P RB(P) BSWT86 MOORE SECTORS? Z P SUK A5,1 MOORE COPIES? ~ P RB(P) BSWT85 YES! * P ST A1,SWBSEC,A10 STORE SECTOR LENGTH 2 P IM STKCOM+SWBCNT INCREMENT SWP-BL
0x16dbb0…16dd44 Dummy {f00=0x0078, f01=0x0190, f02=»5 P LD A8,STKCOM+SWBFSA P CW A8,STKCOM+SWBFSE & ( P RF(G) BSWT98 SWAPP-FILE TOO SMALL! B * PBSWT95 ADKL A10,8 START OF NEXT BLOCK n P ADKL A12,2 NEXT POINTER & P ADKL A9,1 INCREMENT BLOCK COUNTER 8 P LD A2,STKEND+SWBNAM CURRENT RECOR
0x16dd44…16ded8 Dummy {f00=0x0078, f01=0x0190, f02=»ENGTH OF PROT. S:BTAB v P SUK A4,UP:REC DECREMENT P RB(P) BSWT60 MOORE TYPES > . P LD A8,STKCOM+SWBCNT ANY BLOCKS GENERATED? ` P RF(Z) BSWT98 NO! . P LD A8,STKEND+WRK1 ALL SWB TYPES MATCHED? P RF(NP) BSWT99 YES! PBSWT98 LDKL A1
0x16ded8…16e06c Dummy {f00=0x0078, f01=0x0190, f02=»ADDRESS j * P ST* A9,APLSWB,A10 NUMBER OF SWB TYPES 6 P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION > P XIF x P IFF MMUPAG+DSKPAG=0 P EJECT 8 P*************************************************** 8 P*
0x16e06c…16e200 Dummy {f00=0x0078, f01=0x0190, f02=» * b 8 P* * 8 P* REFERENCED IN: SYSLDM * J 8 P* * 8 P* ENTRY: * 8 P*
0x16e200…16e394 (2, 212) Dummy {f00=0x0078, f01=0x0190, f02=» * v 8 P* WORK REGISTERS: A1-A14 (THEIR ORIGINAL * " 8 P* CONTENTS ARE SAVED ON STACK * ^ 8 P* AND RESTORED BEFORE EXIT) * 8 P*
0x16e394…16e528 Dummy {f00=0x0078, f01=0x0190, f02=»ERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * 8 P* CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * 6 8 P* EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * r 8 P* WORD IN THE NEXT SEGMENT TABLE. ALL OTHER LO- * 8 P* CATIONS CONTAIN ZERO.
0x16e528…16e6bc Dummy {f00=0x0078, f01=0x0190, f02=» * b 8 P* DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * 8 P* WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * J 8 P* TABLE ADDRESS IS STORED IN THE TTAB FOR EACH * 8 P* TASK IN THE APPLICATION. * 8 P*
0x16e6bc…16e850 Dummy {f00=0x0078, f01=0x0190, f02=» $ P CALL PUSH SAVE A1-A14 ON STACK & P CALL FSTAPL GET FIRST APPLICATION 0 " P LDR A9,P GET LIMIT FOR WRITE Z < PBST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB . P CALL NXTAPL GET NEXT APPL. CONTROL BLOCK P RF(NZ) BST020 NOT LAS
0x16e850…16e9e4 Dummy {f00=0x0078, f01=0x0190, f02=»ND OF TCTAB ENTRIES t $ PBST040 ST A2,STKEND+TCTEND SAVE P LDR A8,P D 8 PBST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS V 2 P LD A5,APLMMP,A10 GET CURRENT APPLICATION TYPE ( P CWK A5,'AS' ASSEMBLER APPLICATION? 2 P ABR(E) A8 YES; DON'
0x16e9e4…16eb78 Dummy {f00=0x0078, f01=0x0190, f02=» SUR A2,A8 2*NUMBER OF TASKS P SRL A2,1 NUMBER OF TASKS $ P ST A2,STKEND+WRK1 SAVE F P ST A2,APLNPE,A10 SAVE f . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK P SLL A3,3 MULTIPLY BY 8 $ P ADK A3,12 INCLUDE 6 FIRST WORDS P LDR A4,A3
0x16eb78…16ed0c Dummy {f00=0x0078, f01=0x0190, f02=»ON WORD t P ANK A2,1 MMU? P RF(Z) BST070 NO & P LDR* A7,A8 GET TTAB ADDRESS > P TL TTB:MT,A7 LOAD MMU TABLE b * PBST070 LD A2,APLLAC,A10 ADDRESS S:GTAB * P ADK A2,10 ADDRESS NUMBER OF SEGMENTS ( P CALL GETCON GET NUMBER OF SEGMENTS
0x16ed0c…16eea0 Dummy {f00=0x0078, f01=0x0190, f02=»A12,SCTSFA GET START OF FREE AREA ( P LDR A2,A11 SAVE CONF. DATA POINTER * P LDR A11,A12 SAVE V * P ADR A11,A3 END OF SEGMENT TABLE AREA p " P CALL CMPADR MEMORY OVERFLOW? P RF(NG) BST100 NO * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x16eea0…16f034 (2, 213) Dummy {f00=0x0079, f01=0x0190, f02=»A' BASIC? P RF(NE) BST200 NO * P LD A2,STKEND+WRK1 GET NUMBER OF TASKS , . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK Z 0 P ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK P CALL MULT MULTIPLY * P LDR A2,A3 GET MAX NUMBER OF SEGMENTS :
0x16f034…16f1c8 Dummy {f00=0x0079, f01=0x0190, f02=» P* P* CLEAR SEGMENT TABLE AREA P* 2 0 P LD A2,SCTSFA GET END OF SEGMENT TABLE AREA < & PBST110 SUK A2,2 DECREMENT POINTER p P CMR A2 CLEAR , P CWR A2,A12 START OF SEGMENT TABLE AREA? P RB(NE) BST110 NOT YET . PBST120 ADR
0x16f1c8…16f35c Dummy {f00=0x0079, f01=0x0190, f02=»H WORD IN SEGMENT TABLE z 2 P ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE , P ADR A12,A4 START OF NEXT SEGMENT TABLE V P LDR A2,A12 SAVE P RB BST120 0 PBST200 ST A6,2,A12 STORE NUMBER OF SEGMENTS & P LDR A3,A6 GET NUMBER OF SEGMENTS
0x16f35c…16f4f0 Dummy {f00=0x0079, f01=0x0190, f02=»E ( P ADKL A12,4 ADDRESS SEGMENT BLOCK 0 P LDR A4,A12 SAVE 6 . PBST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 N " P STR A2,A12 STORE IN SEGBLK 0 * P LD A2,APLLAC,A10 GET START OF S:GTAB & P CALL GETCON GET ADDRESS TO P:MTAB P LDR A2,A1
0x16f4f0…16f684 Dummy {f00=0x0079, f01=0x0190, f02=»T START OF S:GTAB | * P ADK A2,10 ADDRESS NUMBER OF SEGMENTS ( PBST220 ADKL A12,8 NEXT SEGMENT BLOCK H P SUK A6,1 ANY MORE SEGMENTS? t P RF(N) BST300 NO P LDK A7,0 INIT STATUS BYTE 2 P ADK A2,2 ADDRESS FIRST ENTRY IN SEGMENT BLOCK . P
0x16f684…16f818 Dummy {f00=0x0079, f01=0x0190, f02=»ENT TYPE z ( P CCK A1,'RR' CORE RESIDENT SEGMENT? P RF(E) BST230 YES < " P LD A1,SCTOPT GET OPTION WORD V P ANK A1,2 DISC PAGING? | P RF(NZ) BST240 YES " P XRR A3,A3 CLEAR DISC ADDRESS 4 P LDKL A7,/8800 INDICATE CORE RESIDENT AND LOAD
0x16f818…16f9ac Dummy {f00=0x0079, f01=0x018e, f02=»ED * PBST240 ADK A2,2 DISC ADDRESS BIT 8-23 * P CALL GETCON GET SEGMENT DISC ADDRESS 8 0 P AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A. f P RF(O) BST250 CARRY P RF BST260 * PBST250 ADK A3,1 INCR. PART 1 OF D. A. . P ANKL A1,/7FFF RES
0x16f9ac…16fb40 Dummy {f00=0x0079, f01=0x0190, f02=» P RF(NG) BST270 NO! ( P LDKL A1,LMP10 INDICATE DEVICE ERROR P CALL ERROR J 2 PBST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS ^ P STR A7,A12 STORE , P ST A1,2,A12 STORE DISC ADDRESS BIT 8-23 $ P ADK A2,2 ADDRESS SEGMENT LENGTH $ P C
0x16fb40…16fcd4 (2, 214) Dummy {f00=0x0079, f01=0x0190, f02=»T300 CW A8,STKEND+TCTEND LAST TCTAB ENTRY? P RF(E) BST400 YES 2 P LDR* A2,A8 GET TTAB ADDRESS L 0 P ST A4,TTB:SP,A2 STORE SEGMENT TABLE POINTER p * P ADKL A8,2 INCREMENT POINTER IN TCTAB P RB BST300 8 PBST400 LD A1,STKEND+APLNO GET NUMBER
0x16fcd4…16fe68 Dummy {f00=0x0079, f01=0x0190, f02=»REGISTERS ~ P RTN A14 RETURN P XIF * P IFF SPDVCL+TEDVCL=0 6 P EJECT R L P************************************************************************ ` J P* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES L P**********
0x16fe68…16fffc Dummy {f00=0x0079, f01=0x0190, f02=»FA - START OF FREE ARE (X) 2 P* CONSTA - START OF CONFIGURATION DATA " ( P* SCTEFA - END OF FREE AREA X P* P* EXIT: P* P* WORK REGISTERS: A1-A12 P* < P* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,E
0x16fffc…170190 Dummy {f00=0x0079, f01=0x0190, f02=»RT OF FREE AREA ~ P* 6 P* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK " P* & P CALL FSTAPL GET FIRST APPLICATION f 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA , P ST P,STKEND+ECHTAB START OF ECHO TABLE P* P* GET ADD
0x170190…170324 Dummy {f00=0x0079, f01=0x0190, f02=»* . P* GET NUMBER OF TASKS IN THIS TASK CLASS P* < P CALL GETTSK F PDWTS20 EQU * Z P ST A1,STKEND+NBRTSK SAVE n P* * P* GET CORRESPONDING TASK TABLE (TTAB) P* PDWTS25 EQU * " P ADK A7,2 NEXT ENTRY IN TC:TAB
0x170324…1704b8 Dummy {f00=0x0079, f01=0x0190, f02=»TION BLOCK n P* . P LDR A9,A11 START OF TASK DEFINITION BLOCK , P ADKL A9,TDBFST START OF TDC DEFINITION N P EJECT ~ P* 4 P* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS P* P CALL GETTDC P LDR A6,A1 PDWTS30 EQU
0x1704b8…17064c Dummy {f00=0x0079, f01=0x0190, f02=»8,A1 GET CLASS ENTRY $ P LDR* A8,A8 GET POINTER TO CLASS $ P LDR* A8,A8 GET LENGTH OF CLASS D " P SUKL A8,2 EXCLUDE LENGTH WORD l * P ADR A10,A8 INCREMENT POINTER IN TTAB 0 P ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD ( P SUK A6,1 DECREMENT
0x17064c…1707e0 Dummy {f00=0x0079, f01=0x0190, f02=»GETSDC P ADKL A9,SDCFST-CDBNC P LDR A1,A1 , PDWTS50 EQU * > P RF(Z) DWTS90 R P ST A1,STKEND+NBRSDC SAVE h P* & P* GET SPECIAL DEVICE CLASS NUMBER P* P CALL GETCLN P* 8 P* GET CORRESPONDING SPECIAL DEVIC
0x1707e0…170974 (2, 215) Dummy {f00=0x0079, f01=0x0190, f02=»A6,A6 GET POINTER TO CLASS P LDR A5,A6 SAVE " P LDR* A6,A6 GET LENGTH : " P SUK A6,2 EXCLUDE LENGTH WORD X PDWTS60 EQU * ~ P ADK A5,4 GET DEVICE ( P LDR* A1,A5 GET ADDRESS TO TYPE DWT ( P LD A3,DWTLEN,A1 GENERATION OF DWT? P R
0x170974…170b08 Dummy {f00=0x0079, f01=0x0190, f02=» P CALL CHKMOV COPY DWT P EJECT " P* 0 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM : P* r " P LD A3,SCTOPT GET OPTION WORD | P ANK A3,1 MMU IN SYSTEM? P RF(Z) DWTS65 NO! ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS * P
0x170b08…170c9c Dummy {f00=0x0079, f01=0x0190, f02=» MAKE EVEN ADDRESS " P ST A4,DWTMEC,A2 STORE IT BACK PDWTS65 EQU * @ $ P LDR A1,A2 DT-ADDRESS TO BE USED T PDWTS70 EQU * | P* . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB P* " P ST A1,2,A10 STORE DWT-ADDRESS $ P LD A1,-2,A5
0x170c9c…170e30 Dummy {f00=0x0079, f01=0x0190, f02=»UK A6,4 DECREMENT NUMBER OF DEVICES P RB(P) DWTS60 NEXT DEVICE , P EJECT N P* 4 P* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS f P* P ADKL A9,SDC P LD A1,STKEND+NBRSDC P SUK A1,1 P RB DWTS50 PDWTS90 EQU
0x170e30…170fc4 Dummy {f00=0x0079, f01=0x018e, f02=» RB(P) DWTS20 P* , P* CHECK IF MOORE TASK DEFINITION BLOCKS P* P P CALL NXTBLK Z ( P CCK A2,'TT' TASK DEFINITION BLOCK? n P RB(E) DWTS10 YES & P CALL NXTAPL GET NEXT APPLICATION * P RB(P) DWTS05 PROCESS NEXT APPLICATION
0x170fc4…171158 Dummy {f00=0x0079, f01=0x0190, f02=» & P LDR A1,P GET LOCATION COUNTER =4 0 PDWTS95 SUK A1,2 DECREMENT MEMORY ADDRESS =4 2 P CMR A1 CLEAR MEMORY AREA =4 f ( P CW A1,SCTSFA ALL WORDS CLEARED? =4 P RB(NE) DWTS95 NO! =4 P RTN A14 RETURN P XIF P IFF TEDVCL=0
0x171158…1712ec Dummy {f00=0x0079, f01=0x0190, f02=»******************************************** 4 P************************************************ 4 P* l P* REFERENCED IN: MONCON v P* P* ENTRY: P* P* EXIT: P* P* WORK REGISTERS: A1-A12 P* D P* SUB
0x1712ec…171480 Dummy {f00=0x0079, f01=0x018e, f02=»T FLAG v $ P LD A1,SCTFWT START OF FWT AREA $ P RF(NZ) BDWT15 FWT AREA RESERVED 6 P LD A1,STKEND+LIMIT ^ 8 P ST A1,STKEND+INTTAB START OF T.I.T. IF NO FWT AREA z P IM STKEND+FWTFLG INCREMENT PBDWT15 EQU * P EJECT P* & P*
0x171480…171614 (2, 216) Dummy {f00=0x0079, f01=0x018e, f02=» P* B P* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY P* T . P LD A5,APLMMC,A2 GET FIRST USER TASK ENTRY ^ : P ST A5,STKEND+CUTENT STORE IN CURRENT USER TASK ENTRY PBDWT40 EQU * P* . P* GET NUMBER OF TASKS IN TH
0x171614…1717a8 Dummy {f00=0x0079, f01=0x0190, f02=» P* @ P* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS P* R P CALL GETTDC P* p $ P* CHECK IF TASK WITHOUT DEVICES z P* $ P LDR A1,A1 ANY TERMINAL DEVICES? P RF(Z) BDW100 NO : P ST A1,STKEND+NBRTDC SAVE NU
0x1717a8…17193c Dummy {f00=0x0079, f01=0x0190, f02=» P* ( P* GET TERMINAL DEVICE CLASS NUMBER P* : . P LDR A9,A11 START OF TASK DEFINITION BLOCK D 4 P ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION v PBDWT55 EQU * " P CALL GETCLN GET CLASS NUMBER * P ST A1,STKEND+CLANBR SAVE BINARY
0x17193c…171ad0 Dummy {f00=0x0079, f01=0x0190, f02=» CLASS ID h P ADR A2,A2 2*ID ( P LD A7,STKEND+TCLA POINTER TO TCLASS * P ADR A7,A2 GET ENTRY V $ P LDR* A7,A7 GET POINTER TO CLASS r P* @ P* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS P* IN THIS TASK P* ,
0x171ad0…171c64 Dummy {f00=0x0079, f01=0x0190, f02=»CK A4,'AA' ASCU4Z CONNECTION? P RF(NE) BDWT58 NO! & . P LDR* A8,A7 YES! GET LENGTH OF THIS CLASS @ $ P SUKL A8,2 EXCLUSIVE LENGTH WORD r P CWK A8,4 ONE DEVICE? P RF(NE) BDWT57 NO! ( P LD A8,4,A7 GET ADDRESS TO PROT.DWT P LD A4,DWT
0x171c64…171df8 Dummy {f00=0x0079, f01=0x0190, f02=»N NUMBER n PBDWT58 EQU * . P ADK A1,1 INCREMENT LINE CONNECTION NUMBER $ 4 P CALL BINASC CONVERT INCREMENTED VALUE TO ASCII V ( P SC A1,TDC+5,A9 STORE ASCII DIGIT =2 & P SRL A1,8 MOVE LEFT ASCII DIGIT =2 ( P SC A1,TDC+4,A9 STORE ASCII DIGIT =2
0x171df8…171f8c Dummy {f00=0x0079, f01=0x0190, f02=»ONNECTION NUMBER (BINARY VALUE) , P* A7 - POINTER TO TERMINAL DEVICE CLASS ( P* X . P* THE ENTRY IN TEMPORARY INTERRUPT TABLE b . P* IS DERIVED FROM LINE CONNECTION NUMBER, : P* DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT) P*
0x171f8c…172120 Dummy {f00=0x0079, f01=0x0190, f02=»HIS TASK CLASS? x P RF(Z) BDW100 NO . P ST A1,STKEND+NBRTDC SAVE REMAINING NUMBER 0 $ P ADKL A9,TDC+TLC NEXT TDC RECORD b P RB BDWT55 PBDW100 EQU * " P CALL ECHO INIT ECHO POINTERS 4 P LD A1,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB
0x172120…1722b4 (2, 217) Dummy {f00=0x007a, f01=0x018e, f02=» Z " P SUK A1,1 ANY MOORE TASKS LEFT P RB(P) BDWT50 YES . , P* CHECK IF MOORE TASK DEFINITION BLOCKS H P* x $ P CALL NXTBLK SKIP TO NEXT BLOCK ( P CCK A2,'TT' TASK DEFINITION BLOCK? P RB(E) BDWT40 YES P EJECT & P CALL NXTA
0x1722b4…172448 Dummy {f00=0x007a, f01=0x0190, f02=» P EJECT , P**************************************** , P* B:CDT - BUILD COMMON DEVICE TABLE * D , P**************************************** t P* P* REFERENCED IN: SYSLDM P* * P* ENTRY: SCTSFA - START OF FREE AREA 4 P
0x172448…1725dc Dummy {f00=0x007a, f01=0x0190, f02=»TO COMMON DEVICE TABLE v P* P* WORK REGISTERS: A1-A12 ( P* J < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE T P* P EJECT PB:CDT EQU * & P LD A12,SCTSFA START OF FREE AREA P LDK A7,0 RESET LENGTH & P
0x1725dc…172770 Dummy {f00=0x007a, f01=0x0190, f02=»TBLK ( P CCK A2,'TT' TASK DEFINITION BLOCK? P RB(E) CDG:10 YES 8 ( P CCK A2,'CC' COMMON DEV. DEF. BLOCK? R P RF(NE) BCDTEX NO ~ P EJECT P* : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES 8 P* AND DWT-ADDRESSES USED
0x172770…172904 Dummy {f00=0x007a, f01=0x0190, f02=»L CLASSES h & P CALL GETCTC GET NUMBER OF C.T.C. P LDR A6,A1 SAVE < " PB:CT10 RF(Z) B:CT30 NO MOORE! T . P CALL GETCLN GET CLASS IDENT NUMBER (1-99) z , P ADR A1,A1 DISPLACEMENT TO CLASS POINTER , P LD A5,STKEND+TCLA GET POINTER TO TCLASS
0x172904…172a98 Dummy {f00=0x007a, f01=0x0190, f02=» ~ P LDKL A1,LMP4 FORMAT ERROR! P CALL ERROR , , PB:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS @ $ P LDR* A1,A1 GET POINTER TO CLASS p $ P LDR* A1,A1 GET LENGTH OF CLASS " P SUK A1,2 EXCLUDE LENGTH WORD & P ADR A7,A1 INCREMENT CDTAB LENGTH
0x172a98…172c2c Dummy {f00=0x007a, f01=0x018e, f02=»QU * P* : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES T P* P CALL GETSDC P ADKL A9,SDCFST-CDBNC P LDR A6,A1 PBCDT10 EQU * P RF(Z) BCDTEX P
0x172c2c…172dc0 Dummy {f00=0x007a, f01=0x0190, f02=» P RF(NG) BCDT15 P LDKL A1,LMP4 P CALL ERROR 4 PBCDT15 EQU * H P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS | P LDR* A1,A1 GET LENGTH P SUK A1,2 P ADKL A9,SDC P ADR A7,A1 P SUK A6,1
0x172dc0…172f54 (2, 218) Dummy {f00=0x007a, f01=0x0190, f02=» GET FIRST APPLICATION & PB:CT35 CALL NXTBLK GET NEXT BLOCK ( P CCK A2,'TT' TASK DEFINITION BLOCK? H P RB(E) B:CT35 YES t P EJECT P* < P* RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES 6 P* AND DWT-ADDRESSES USED FOR PHYS
0x172f54…1730e8 Dummy {f00=0x007a, f01=0x0190, f02=»A COMMUNICATION d P* J P* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS " P* p & P LD A1,SCTDCT DATA COMMUNICATION? z " P LD A6,SCTDMT DATA MANAGEMENT P ORR A6,A1 DM OR DC? " P LD A1,SCTOPT GET OPTION WORD
0x1730e8…17327c Dummy {f00=0x007a, f01=0x0190, f02=» GET POINTER TO SCLASS ~ $ P LDR* A1,A6 GET LENGTH OF SCLASS " P SUK A1,2 EXCLUDE LENGTH WORD F $ P ADR A6,A1 LAST ENTRY IN SCLASS l * P LDR* A6,A6 GET POINTER TO LAST CLASS ( P LDR* A6,A6 GET LENGTH OF LAST CLASS " P SUK A6,2 EXCLUDE LENGTH W
0x17327c…173410 Dummy {f00=0x007a, f01=0x0190, f02=»DR A12,A7 P ST A11,STKEND+WRK1 SAVE A11 " P LDR A11,A12 GET END OF CDTAB 6 . P LD A9,STKEND+LIMIT GET END OF SYSTEM AREA * P CALL CMPADR CHECK IF MEMORY OVERFLOW P RF(NG) CDG:13 OK * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW P CAL
0x173410…1735a4 Dummy {f00=0x007a, f01=0x018e, f02=» ^ P* ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT * PCDG:15 LCR A2,A11 GET FIRST CHARACTER > . PCDG:16 CCK A2,'TT' TASK DEFINITION BLOCK/ l P RF(NE) CDG:17 NO! P CALL NXTBLK GET NEXT BLCK P RB CDG:16 * PCDG:17 CCK A2,'CC' COMMON DE
0x1735a4…173738 Dummy {f00=0x007a, f01=0x0190, f02=» & P CALL NXTAPL GET NEXT APPLICATION $ P RB(P) CDG:15 MORE APPLICATIONS . " P RF CDGEX NO MORE APPLICATIONS V PCDG:19 EQU * | P* > P* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES P* * P LDR A9,A11 START OF COMMON DEF. B
0x173738…1738cc Dummy {f00=0x007a, f01=0x0190, f02=»RMINAL CLASSES? x PB:CT40 RF(Z) B:CT50 NO! P ST A1,STKEND+NBRCOM SAVE 8 ( P CALL GETCLN GET CLASS IDENT NUMBER Z P ST A1,STKEND+CLASID SAVE , P CALL GETLCN GET LINE CONNECTION NUMBER P LDR A6,A1 SAVE 0 P LD A2,STKEND+CLASID GET
0x1738cc…173a60 Dummy {f00=0x007a, f01=0x0190, f02=»ENTRY IN TCLASS ~ $ P LDR* A7,A7 GET POINTER TO CLASS . P CALL DWTGEN GENERATE DWT:S FOR THIS CLASS @ . P ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE r . P LD A1,STKEND+NBRCOM GET NUMBER OF C.T.C. P SUK A1,1 DECREMENT COUNTER P RB B:CT40
0x173a60…173bf4 (2, 219) Dummy {f00=0x007a, f01=0x0190, f02=»A9,SDCFST-CDBNC P LDR A8,A1 PCDG:20 EQU * * P RB(NP) CDG:18 > P* T & P* GET SPECIAL DEVICE CLASS NUMBER ^ P* P CALL GETCLN P* 0 P* GET CORRESPONDING DEVICE CLASS IN SCLASS P* P ADR A1,A1 T , P LD
0x173bf4…173d88 Dummy {f00=0x007a, f01=0x018e, f02=»INTER TO CLASS ~ $ P LDR* A6,A6 GET LENGTH OF CLASS " P SUK A6,2 EXCLUDE LENGTH WORD > PCDG:30 EQU * d P ADK A5,4 NEXT DEVICE x P LDR* A1,A5 GET DWT-ADDRESS ( P LD A3,DWTLEN,A1 GENERATION OF DWT? P RF(Z) CDG:40 NO P* P
0x173d88…173f1c Dummy {f00=0x007a, f01=0x0190, f02=» P* 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM P* F " P LD A3,SCTOPT GET OPTION WORD P P ANK A3,1 MMU IN SYSTEM? v P RF(Z) CDG:35 NO! ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS * P SUR A3,A2 COMPUTE RELOCATION CONSTANT ,
0x173f1c…1740b0 Dummy {f00=0x007a, f01=0x0190, f02=» IT BACK z PCDG:35 EQU * " P LDR A1,A2 DWT-ADDRESS TO USE $ PCDG:40 EQU * J P* ^ . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB h P* " P ST A1,4,A10 STORE DWT-ADDRESS P LD A1,-2,A5 GET FILE CODE P ST A1,2,A10 STORE IN TTAB
0x1740b0…174244 Dummy {f00=0x007a, f01=0x018e, f02=»* , P* CHECK IF MOORE SPECIAL DEVICE CLASSES P* : P ADKL A9,SDC D P SUKL A8,1 X P RB CDG:20 j PCDGEX EQU * | " P LD A1,SCTDMT DATA MANAGEMENT $ P LD A5,SCTDCT DATA COMMUNICATION P ORR A1,A5 DM OR DC? " P LD A5,SCTOPT
0x174244…1743d8 Dummy {f00=0x007a, f01=0x018e, f02=» , P LD A5,STKEND+SCLA GET POINTER TO SCLASS $ P LDR* A1,A5 GET LENGTH OF SCLASS 4 " P SUK A1,2 EXCLUDE LENGTH WORD P ADR A5,A1 GET LAST ENTRY * P LDR* A5,A5 GET POINTER TO LAST CLASS ( P LDR* A6,A5 GET LENGTH OF LAST CLASS " P SUK A6,2
0x1743d8…17456c Dummy {f00=0x007a, f01=0x0190, f02=» P =6 P EJECT J P********************************************************************** H P* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS n J P********************************************************************** P
0x17456c…174700 Dummy {f00=0x007a, f01=0x0190, f02=» A6 - LINE CONNECTION NUMBER P* * P* EXIT: 4 P* D P* WORK REGISTERS: A1-A8 N P* n P* SUBROUTINES: I:CHP,MOVE x P* P EJECT PDWTGEN EQU * 4 P ST A6,STKEND+LCNBR SAVE LINE CONNECTION NUMBER ( P LDR* A8,A
0x174700…174894 (2, 220) Dummy {f00=0x007a, f01=0x0190, f02=»7 GET ADDRESS OF PROTOTYPE DWT 2 P LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER ( P* ^ P* CHECK CONNECTION TYPE h P* , P LC A4,TDC+6,A9 GET LINE CONNECTION TYPE $ P CCK A4,'SS' SALCUZ CONNECTION? P RF(NE) DWT10 NO! 0 P CAL
0x174894…174a28 Dummy {f00=0x007a, f01=0x018e, f02=» CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z P RF DWT31 2 * PDWT07 CCK A4,'VV' VCCU1/4 CONNECTION? D P RF(NE) DWT11 r 0 P CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4 P RF DWT31 & PDWT11 CCK A4,'PP' PLC CONNECTION? P RF(NE) DWT12 NO
0x174a28…174bbc Dummy {f00=0x007a, f01=0x0190, f02=» | , P CALL I:CHLT INIT CHANNEL PARAMETERS LT P RF DWT31 8 $ PDWT08 CCK A4,'RR' RT CONNECTION? J P RF(E) DWT09 YES! r ( P LDKL A1,LMP4 INDICATE FORMAT ERROR P CALL ERROR 0 PDWT09 CALL I:CHRT INIT CHANNEL PARAMETERS RT PDWT31 EQ
0x174bbc…174d50 Dummy {f00=0x007a, f01=0x0190, f02=»ALREADY GENERATED ON THIS LINE P* & , P LD A4,STKEND+INTTAB GET START OF T.I.T. 0 $ P LDR* A5,A4 GET NUMBER OF BLOCKS ` P SUK A4,2 P LDR A5,A5 PDWT13 EQU * P RF(Z) DWT32 6 P LD A3,STKEND+CONTYP GET LINE AND CONNECTION TYPE
0x174d50…174ee4 Dummy {f00=0x007a, f01=0x0190, f02=»ER OF BLOCKS x P RB DWT13 PDWT15 EQU * & * P LD A2,-2,A4 GET RUN-TIME DWT-ADDRESS : , P LD A6,DWTCP2,A2 GET CHANNEL PARAMETER-2 h $ P ANK A6,/003F GET DEVICE ADDRESS . P LD A3,STKEND+WRK3 GET CHANNEL PARAMETER-2 $ P ANK A3,/003F GET DEVI
0x174ee4…175078 Dummy {f00=0x007a, f01=0x0190, f02=» AND 9 x & P LD A3,DWTST,A1 GET DEVICE STATUS " P ANK A3,/00C0 GET BITS 8 AND 9 8 P SUR A3,A6 EQUAL? ^ P RB(NE) DWT14 x $ P LD A6,DWTTAB,A2 GET DEVICE TYPE $ P ANKL A6,/8000 ISOLATE ECHO BIT $ P LD A3,DWTTAB,A1 GET DEVICE TYPE $ P A
0x175078…17520c Dummy {f00=0x007a, f01=0x0190, f02=»A1,STKCOM+M:REL P ABR A1 PDWT32 EQU * ( ( P LDR A5,A12 GET RUN TIME DWT-ADDRESS < * P CALL B:TTAB BUILD ONE BLOCK IN T.I.T. h P* P* COPY DEVICE TYPE DWT P* P LDR A2,A12 TO-ADDRESS P LD A3,DWTOR,A1 LENGTH P A
0x17520c…1753a0 Dummy {f00=0x007a, f01=0x0190, f02=» REAL DWT ~ P* P LD A6,STKEND+WRK4 P LD A5,STKEND+WRK3 6 * P STR A6,A2 STORE CHANNEL PARAMETERS -1 P 0 P ST A5,DWTCP2,A2 STORE CHANNEL PARAMETERS -2 ~ P* P* CHECK IF INPUT DEVICE P* P LD A3,2,A1 GET DWT STATUS P
0x1753a0…175534 (2, 221) Dummy {f00=0x007b, f01=0x0190, f02=»A3,DWTADR,A1 P LD A3,DEVIND,A3 P CWK A3,6 . P RF(NE) DWT60 NOT KEYBOARD @ P* b P* INPUT DEVICE = KEYBOARD l P* IF ECHO: P* , P* STORE ADDRESS OF KEYBOARD RUNTIME-DWT : P* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEV
0x175534…1756c8 Dummy {f00=0x007b, f01=0x0190, f02=»CHTAB GET LENGTH OF ECHO DEVICE TABLE ( P RF(NZ) DWT392 NOT FIRST ECHO DEVICE . 2 P ADK A3,2 INCLUDE LENGTH OF ECHO DEVICE TABLE Z PDWT392 LDR A4,A3 SAVE LENGTH ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY 8 P STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR
0x1756c8…17585c Dummy {f00=0x007b, f01=0x0190, f02=»B SAVE NEW LENGTH | P EJECT PDWT40 EQU * ( P* < 2 P* RELOCATE POINTERS TO CIRCULAR INPUT BUFFER F P* | P LDR A5,A2 GET DWT-ADDRESS 2 P ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER $ P ST A5,DWTSQ-4,A2 STORE POINTER $ P S
0x17585c…1759f0 Dummy {f00=0x007b, f01=0x0190, f02=» TABLE V 6 P* IN ENTRY CORRESPONDING TO SECOND DEVICE ADDRESS P* H 2 P LD A3,DWTDEV,A1 GET DEVICE STATUS OF TYPE DWT R ( P ANK A3,/FF GET EIGTH RIGHTMOST BITS $ P RF(Z) DWT60 NOT DOUBLE KEYBOARD $ P LDR A5,A2 GET REAL DWT-ADDRESS P ADK
0x1759f0…175b84 Dummy {f00=0x007b, f01=0x0190, f02=» P EJECT PDWT45 CALL DWT50 P RF DWT60 . PDWT50 EQU * @ P* T P* OUTPUT DEVICE* ^ , P* IF BIT 0 IN SIXTH WORD IN DWT IS SET x 0 P* THE DEVICE IS TO BE USED FOR ECHOING ON. 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTI
0x175b84…175d18 Dummy {f00=0x007b, f01=0x0190, f02=»DWT59 NO ECHOING ON THIS DEVICE : P LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE ( & P RF(NZ) DWT55 ALREADY INITIALIZED! f P ADK A3,2 INCLUDE LENGTH PDWT55 LDR A4,A3 SAVE LENGTH ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY . P STR A1,
0x175d18…175eac Dummy {f00=0x007b, f01=0x0190, f02=»+ECHTAB STORE NEW LENGTH PDWT59 RTN A14 PDWT60 EQU * 6 P* J P* CHECK IF PAGING T P* n " P LD A5,SCTOPT GET OPTION WORD x P ANK A5,1 MMU PAGING? P RF(Z) DWT70 P EJECT , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS
0x175eac…176040 Dummy {f00=0x007b, f01=0x018e, f02=» h $ P ANKL A5,/FFFE MAKE EVEN ADDRESS " P ST A5,DWTMEC,A2 STORE IT BACK 0 P* V < P* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED ` P* & P LD A5,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER $
0x176040…1761d4 (2, 222) Dummy {f00=0x007b, f01=0x0190, f02=» , P LD A5,DWTMEC,A2 GET MONITOR ECB-ADDRESS ( P LDR A3,A12 INTERNAL BUFFER ADDRESS 8 P ADK A3,1 d , P ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS x P ST A3,2,A5 SAVE P LDR A3,A4 GET LENGTH & P ADK A3,3 ADD BO FERMS CONSTANT+1 ,
0x1761d4…176368 Dummy {f00=0x007b, f01=0x0190, f02=» SIZE OF BUFFER RESERVED FOR SYSLOD PART A. 4 P* IF YES,THAN STORE THE ADDRESS AND SIZE OF THE 4 , P* INTERNAL BUFFER IN SYSBUF AND BUFSIZ. l P* P CW A3,STKCOM+BUFSIZ P RF(NG) DWT65 P ST A3,STKCOM+BUFSIZ P ST A12,STKCOM+SYS
0x176368…1764fc Dummy {f00=0x007b, f01=0x0190, f02=»WT-ADDRESS IN TTAB x P* " P ADKL A10,2 NEXT ENTRY IN TTAB $ " P LDR* A5,A7 GET INDEX/FILECODE J * P STR A5,A10 STORE IN TASK CONF. TABLE p " P ADKL A10,2 NEXT ENTRY IN TTAB " P STR A2,A10 STORE DWT-ADDRESS P* , P* CHECK IF MOORE DE
0x1764fc…176690 Dummy {f00=0x007b, f01=0x0190, f02=»TKCOM+M:REL P ABR A1 PDWTEX EQU * $ P RTN A14 8 P EJECT H P* V 6 P* SCAN ECHO DEVICE TABLE - FOR EVERY COINCIDENCE ` 4 P* BETWEEN THE FIRST POINTER IN ONE POINTER-SET 4 P* AND SECOND POINTER IN THE OTHER POINTER-SET: 0
0x176690…176824 Dummy {f00=0x007b, f01=0x0190, f02=» CLEAR POINTERS OF t P* SECOND POINTER-SET. 8 P* WHEN ALL POINTER-SET HAS BEEN SCANNED,THE LENGTH 8 ( P* OF ECHO DEVICE TABLE IS CLEARED. t P* > PECHO LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE " P RF(Z) DWT160 NO ECHO DEVICE
0x176824…1769b8 Dummy {f00=0x007b, f01=0x0190, f02=» A1,2 BYPASS LENGTH < PDWT90 LD A2,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE P ADK A2,2 BYPASS LENGTH 6 PDWT100 LD A4,2,A1 GET SECOND POINTER IN FIRST SET | > PDWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET P RF(E) DWT130 CO
0x1769b8…176b4c Dummy {f00=0x007b, f01=0x0190, f02=» RF DWT140 : PDWT130 LD A4,2,A2 ADDRESS TO OUTPUT DEVICE RUNTIME-DWT 4 P LDR* A2,A1 ADDRESS TO INPUT DEVICE RUNTIME-DWT P 8 P ST A4,DWTECH,A2 STORE DEVICE-ADDRESS TO ECHO-DEVICE P CMR A1 CLEAR FIRST POINTER " P CM 2,A1 CLEAR SECOND POINTER
0x176b4c…176ce0 Dummy {f00=0x007b, f01=0x0190, f02=»HTAB CLEAR LENGTH | PDWT160 RTN A14 RETURN P =6 8 P IFT DC=1 F P EJECT X < P******************************************************* f < P* * < P* B:CNA BUILD COMPUTER NETWORK
0x176ce0…176e74 (2, 223) Dummy {f00=0x007b, f01=0x018e, f02=» * f < P* SCANS POSSIBLE D-BLOCK IN CONFIGURATION DATA * < P* AND BUILDS DATA COMMUNICATION TABLE IN MEMORY. * V < P* TABLE START IS DEFINED BY THE POINTER SCTDCT * < P* IN SYSTAB.
0x176e74…177008 Dummy {f00=0x007b, f01=0x0190, f02=» V < P* * < P* REFERENCED IN: CONMON * H < P* SUBROUTINES CALLED: GETDTE, P:DTE * < P* WORK REGISTERS: A1-A12 * < P
0x177008…17719c Dummy {f00=0x007b, f01=0x0190, f02=» P PB:CNA EQU * P LD A11,DCBLK+STKCOM $ * P RF(Z) B:CN20 NO DATA COMMUNICATION =1 @ P* n < P AD A11,CONSTA+STKCOM GET D BLOCK ADDRESS IN CONF. DATA x * P LD A12,SCTSFA GET START OF FREE AREA ( P ST A12,SCTDCT UPDATE SYSTAB POINT
0x17719c…177330 Dummy {f00=0x007b, f01=0x0190, f02=»F SDTE RECORD r PB:CN00 EQU * P SUK A1,1 * 2 P RF(N) B:CN10 NO DTE BLOCKS LEFT IN CONF. DATA < P* r . P ST A1,NUMDTE+STKEND SAVE NO OF DTE:S LEFT | , P ADKL A11,5 ADVANCE TO 1ST CHAR. IN NAME & P CALL P:DTE PROCESS THIS DTE BLOCK 2 P
0x177330…1774c4 Dummy {f00=0x007b, f01=0x0190, f02=»QU * P CM 0,A12 AND RESET IT P ADKL A12,2 * , P ST A12,SCTSFA UPDATE START OF FREE AREA > PB:CN20 EQU * =1 n P RTN A14 P EJECT < P******************************************************* < P*
0x1774c4…177658 Dummy {f00=0x007b, f01=0x018e, f02=»======== * f < P* * < P* SCANS DTE BLOCK IN CONF. DATA AND BUILDS CORRE- * V < P* SPONDING DTE-BLOCK IN SCTDCT. IF MULTIPLE COPIES * < P* ARE DEFINED CURRENT DTE IS DUPLICATED THE NO O
0x177658…1777ec Dummy {f00=0x007b, f01=0x0190, f02=» V < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * < P* SDTE NAME IN CONF. DATA * H < P* A12 POINTER TO START OF CURRENT * < P* DTE BLOCK IN SCTDCT TABLE * < P
0x1777ec…177980 Dummy {f00=0x007b, f01=0x0190, f02=» PROCESSED DTE-BLOCK IN CONF. DATA * < P* A12 POINTER TO LAST DEFINED DTE-BLOCK * 8 < P* DEFINED IN SCTDCT TABLE * x < P* * < P* REFERENCED I
0x177980…177b14 (2, 224) Dummy {f00=0x007b, f01=0x0190, f02=» AND MOVE * x < P* * ( < P******************************************************* h P P PP:DTE EQU * * P LDKL A1,/3000 INITIALIZE NAME FILLER , P LC A1
0x177b14…177ca8 Dummy {f00=0x007b, f01=0x0190, f02=»PE RECORD? x P RF(E) PDTE00 YES! P* , & P SLL A1,8 NO LEFT ADJUST CHAR. AND 6 $ P LC A1,1,A11 GET NEXT CHARACTER ` P ADKL A11,1 PPDTE00 EQU * , P ST A1,DTENAM+STKEND SAVE NAME IN STACK " P CALL GETCOP GET NO OF COPIES " P S
0x177ca8…177e3c Dummy {f00=0x007b, f01=0x0190, f02=»ER t P LC A1,2,A11 & P ST A1,DTETYP+STKEND SAVE IN STACK P ADKL A11,2 H ( P LDK A2,0 RESET NETWORK ADDR. LENGTH P CALL ENDBLK END OF D-BLOCK? P LDR A8,A8 P RF(Z) PDTE05 YES! P* . P LC A7,NANSA,A11 GET NA-NSA-SDTE QUALI
0x177e3c…177fd0 Dummy {f00=0x007b, f01=0x0190, f02=»T A11,NASTRT+STKEND SAVE ADDRESS & P CALL P:NA PROCESS NETWORK ADDRESS ! ( P LC A7,2,A11 ! R PPDTE05 EQU * ! f * P ST A2,NALNG+STKEND SAVE LENGTH OF NA ! z P LDK A1,0 ! P CALL ENDBLK END OF D-BLOCK? ! P LDR A8,A8 ! P RF(Z) PDTE07 YES! !
0x177fd0…178164 Dummy {f00=0x007b, f01=0x0190, f02=»TNSA ! * P ADKL A11,2 SKIP NSA NR IN CONF. DATA " PPDTE07 EQU * " : 2 P ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. DEF. " N $ P CWK A1,/FF LOOK IF LEGAL NUMBER " P RF(NG) PDTE10 YES! " P* " PNSAERR EQU * " * P LDKL A1,LMP4 NO, ERROR IN CONF. F
0x178164…1782f8 Dummy {f00=0x007b, f01=0x0190, f02=»END SAVE ADDR. OF 1ST SUBADDR. " ~ P SLL A1,1 # & . P ADR A11,A1 CALCULATE STAT OF NEXT RECORD # 8 PPDTE15 EQU * # j 2 P CALL DTESIZ CALCULATE SIZE OF THIS DTE BLOCK # ~ ( P CALL UPDDTE UPDATE DTE BLOCK IN DCT # * P LD A7,DTECOP+STKEND GET NO OF COPIES #
0x1782f8…17848c Dummy {f00=0x007b, f01=0x0190, f02=» * P LD A4,DTENAM+STKEND GET PREVIOUS NAME $ P LDR A3,A4 $ 2 * P ANK A3,/FF ISOLATE RIGHT BYTE OF NAME $ D P CWK A3,/5F UPPER BOUNDARY? $ r P RF(L) PDTE25 NO! $ P* $ , P LC A4,/30 RESET RIGHT BYTE TO ASCII '0' $ & P SLL A5,8 LEFT BYTE INCREMENTA
0x17848c…178620 Dummy {f00=0x007b, f01=0x0190, f02=»OCK? $ x P LDR A8,A8 % P RF(Z) PDTE35 YES! % P* % 8 . P LC A1,2,A11 GET 2ND CHAR. IN NEXT RECORD % B 0 P CCK A1,'DD' IF A SDTE-RECORD USE OLD ADDR. % t P RF(E) PDTE35 % P* % P CCK A1,'SS' IF NSA RECORD % * P RF(E) PDTE30 USE OLD NETWORK
0x178620…1787b4 (2, 225) Dummy {f00=0x007c, f01=0x0190, f02=»RESS % r * P ST A2,NALNG+STKEND SAVE LENGTH OF NA & P* & : P CALL ENDBLK END OF D-BLOCK? & D P LDR A8,A8 & h P RF(Z) PDTE35 YES! & z P* & P LC A1,2,A11 & P CCK A1,'SS' & ( P RF(NE) PDTE35 NO NSA RECORD PRESENT & P* & PPDTE30 EQU *
0x1787b4…178948 Dummy {f00=0x007c, f01=0x018e, f02=»2 & P LDR A1,A1 ' P RF(Z) PDTE35 NO SUBADDRESSE ' P* ' @ P CWK A1,/FF ' J , P RB(G) NSAERR TOO MANY SUBADDR. DEFINED ' ^ P* ' 4 P ST A11,NSAADR+STKEND SAVE START OF 1ST SUBADDR. ' P SLL A1,1 ' . P ADR A11,A1 CALCULATE START OF NEXT RE
0x178948…178adc Dummy {f00=0x007c, f01=0x0190, f02=» P CALL UPDDTE ( P RB PDTE20 ( P* ( * PPDTE40 EQU * ( 4 P RTN A14 ( H P EJECT ( X < P******************************************************** ( f < P* * ( < P* DTESIZ CALCULATES THE LENGTH
0x178adc…178c70 Dummy {f00=0x007c, f01=0x018e, f02=» * ( f < P* ON ENTRY: A12 START OF CURRENT DTE BLOCK * ) < P* * ) V < P* WORK REGISTER: A1,A9 * ) < P*
0x178c70…178e04 Dummy {f00=0x007c, f01=0x0190, f02=» ) z 6 P LD A1,NALNG+STKEND GET LENGTH OF NETWORK ADDRESS * P ADK A1,1 * B $ P SRL A1,1 2 DIGITS IN EACH BYTE * T , P AD A1,DTENSA+STKEND ADD NO OF SUBADDR. * | . P ADK A1,DTEFIX+1 AND LENGTH OF FIX PART+1 * P ANKL A1,/FFFE MAKE EVEN * ( P ADR A1,A1
0x178e04…178f98 Dummy {f00=0x007c, f01=0x0190, f02=»1,LIMIT+STKEND GET END OF SYSTEM AREA * " P CALL CMPADR MEMORY OVERFLOW? + . P RF(NL) DTSIZ0 NO! + T P* + n P LDKL A1,LMP3 YES! + x P CALL ERROR + P* + PDTSIZ0 EQU * + 6 P LD A11,WRK1+STKEND RESTORE POSITION IN CONF. DATA + P RTN A14 +
0x178f98…17912c Dummy {f00=0x007c, f01=0x0190, f02=» * + < P* UPDDTE UPDATES CURRENT DTE BLOCK WITH ITS: * , < P* ====== * , L < P* NAME * , < P* TYPE * ,
0x17912c…1792c0 Dummy {f00=0x007c, f01=0x0190, f02=» * , < P******************************************************** - < P - | P - PUPDDTE EQU * - 4 P LDR A6,A12 GET START OF CURRENT DTE BLOCK ENTRY - P ADK A6,2 SKIP LINK ENTRY - , P LD A1,DTENAM+
0x1792c0…179454 (2, 226) Dummy {f00=0x007c, f01=0x0190, f02=» P STR A1,A6 AND SAVE IN DCT . P ADK A6,2 . & P LDK A5,4 GET NO OF SHIFTS . 8 . P ORKL A5,SLL0 AND CONFIG. SLL A1,8 INSTR. . Z 4 P LD A2,NALNG+STKEND GET LENGTH OF NETWORK ADDR. . $ P LDR A3,A2 SAVE NO OF CHARACTERS . P SLL A2,8 LEFT ADJUST . ,
0x179454…1795e8 Dummy {f00=0x007c, f01=0x0190, f02=»D PACK NA TO DCT . | $ P ANKL A5,/1F ISOLATE SHIFT COUNT / & P CWK A5,4 LESS THAN ONE BYTE LEFT? / @ P RF(NG) UPDTE2 YES! / j PUPDTE0 EQU * / P LDK A5,0 SET NO OF SHIFTS / P RF UPDTE4 / P* / PUPDTE2 EQU * / P STR A2,A6 STORE WORD IN DCT
0x1795e8…17977c Dummy {f00=0x007c, f01=0x0190, f02=» ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. / 4 P LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED 0 0 & P RF(Z) UPDTE8 NO SUBADDR. DEFINED 0 h P* 0 4 P LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR. 0 P LDR A3,A1 0 * P SLL A3,1 2 DIGITS FOR EACH SUDADD
0x17977c…179910 Dummy {f00=0x007c, f01=0x0190, f02=» 0 P STR A2,A6 YES! SAVE IN DCT 1 P LDK A2,0 CLEAR TABLE WORD 1 , " P ADK A6,2 ADVANCE DCT POINTER 1 N P LDK A5,16 NO OF SHIFTS 1 t , P ORKL A5,SLL0 CONFIGURE SLL A1,12 INSTR. 1 PUPDTE6 EQU * 1 P SUK A5,4 NEXT NIBBLE 1 ( P CALL HEXCPY COPY
0x179910…179aa4 Dummy {f00=0x007c, f01=0x018e, f02=»************** 1 f < P* * 2 < P* HEXCPY COPIES AND PACKS 4 HEXADECIMAL DIGITS * 2 V < P* IN ONE WORD. * 2 < P*
0x179aa4…179c38 Dummy {f00=0x007c, f01=0x0190, f02=» 2 V < P* A4 ADDRESS TO FIRST ASCII DIGIT * 3 < P* A5 PACKING INSTR. (SLL A1,N TIMES) * 3 H < P* A6 POINTER WHERE TO STORE PACKED WORD * 3 < P* * 3 < P
0x179c38…179dcc Dummy {f00=0x007c, f01=0x0190, f02=» PROCESSED DIGIT * 3 < P* A5 PACKING INSTR. (SLL A1,N TIMES) * 4 8 < P* A6 POINTER WHERE TO STORE NEXT WORD * 4 x < P* * 4 < P****************
0x179dcc…179f60 Dummy {f00=0x007c, f01=0x0190, f02=» 4 v P CALL HEXCNV CONVERT TO HEX 5 P EXR A5 SHIFT 5 , " P ORR A2,A1 CONFIGURE DCT WORD 5 B ( P SUK A3,1 DECREMENT NO OF CHARACTERS 5 h $ P RF(Z) HXCPY8 WHOLE NA PROCESSED 5 P* 5 P CWK A5,SLL0 FULL WORD? 5 P RF(NE) HXCPY6 NO! 5 P* 5
0x179f60…17a0f4 (2, 227) Dummy {f00=0x007c, f01=0x0190, f02=» 5 x , P ORKL A5,SLL0 CONFIGURE SSL A1,16 INSTR. 6 PHXCPY6 EQU * 6 8 P SUK A5,4 NEXT NIBBLE 6 L * P ADK A4,1 NEXT CHARACTER IN CONF. DATA 6 j P RB HEXCPY 6 P* 6 PHXCPY8 EQU * 6 P RTN A14 6 P EJECT 6 < P**********************************
0x17a0f4…17a288 Dummy {f00=0x007c, f01=0x018e, f02=»N ASCII CODE * 6 f < P* TO CORRESPONDING HEXADECIMAL VALUE * 7 < P* (4 BITS BINARY CODE) * 7 V < P* * 7 < P* ON ENTRY: A1 CHARACTER TO CONVERT
0x17a288…17a41c Dummy {f00=0x007c, f01=0x0190, f02=» 7 V < P* * 8 < P******************************************************** 8 H P 8 P 8 PHEXCNV EQU * 8 " P ANK A1,/FF ISOLATE CHARACTER 8 P CWK A1,/29 8 P RF(L) TYPERR ERRANEOUS TY
0x17a41c…17a5b0 Dummy {f00=0x007c, f01=0x0190, f02=» CWK A1,/46 DIGIT BETWEEN A-F? 8 P RF(G) TYPERR NO 9 & P* 9 > P ADK A1,9 YES! 9 H PHXCN00 EQU * 9 ^ " P ANK A1,/F ISOLATE HEX NUMBER 9 r P RTN A14 9 P* 9 PTYPERR EQU * 9 " P LDKL A1,LMP4 CONF. DATA ERROR 9 P CALL ERROR 9 P EJECT 9
0x17a5b0…17a744 Dummy {f00=0x007c, f01=0x0190, f02=» P:NA PROCESS NETWORK ADDRESS * 9 < P* * : > < P* SCANS THE NETWORK ADDRESS RECORD (NA=..) IN CONF. * : ~ < P* DATA AND REPACKS THE RECORD, OVERWRITING POSSIBLE * : < P* CONTIN
0x17a744…17a8d8 Dummy {f00=0x007c, f01=0x0190, f02=» * : ~ < P* * ; . < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN NETWORK * ; n < P* ADDRESS. * ; < P*
0x17a8d8…17aa6c Dummy {f00=0x007c, f01=0x0190, f02=»ORD IN CONF. DATA * ; n < P* * < < P******************************************************** < ^ P < P < PP:NA EQU * < $ P LDK A4,1 RESET PACKING CONSTANT < " P LDK A2,0 RESET ADDRESS
0x17aa6c…17ac00 Dummy {f00=0x007c, f01=0x0190, f02=»:NA06 END OF CONF. DATA < P* = P CCK A1,/FF END OF D-BLOCK? = * P RF(E) P:NA05 YES! = N P* = h & P CCK A1,'==' CONTINUATION RECORD? = r P RF(E) P:NA04 YES! = P* = . P CCK A1,'NN' NO! START OF NA OR NSA RECORD = P RF(E) P:NA06 YES! RET
0x17ac00…17ad94 (2, 228) Dummy {f00=0x007c, f01=0x0190, f02=»H = l P CWK A2,/FF TOO MANY DIGITS? > P RF(NG) P:NA02 NO! > . P* > H * P LDKL A1,LMP4 YES! ERROR IN CONF. DATA > R P CALL ERROR > PP:NA02 EQU * > P LDR A3,A4 > " P ADR A3,A11 REPACKING ADDRESS > * P SCR A1,A3 PUT CHARACTER BACK IN FILE >
0x17ad94…17af28 Dummy {f00=0x007c, f01=0x0190, f02=»R > d $ P SUK A4,2 SET REPACKING CONSTANT ? * P ADKL A11,1 ADVANCE TO NEXT CHARACTER ? 2 P RB P:NA00 ? ` P* ? r PP:NA05 EQU * ? | " P SUK A2,1 DECREMENT NA LENGTH ? * P SUKL A11,1 AND POSITION IN CONF. DATA ? P* ? PP:NA06 EQU * ? P RTN A
0x17af28…17b0bc Dummy {f00=0x007c, f01=0x0190, f02=» * ? h < P* ENDBLK LOOKS FOR END OF DATA COMMUNICATION BLOCK * @ < P* ================================================= * @ X < P* * @ < P* END OF BLOCK IS DEFINED BY A RECORD BEGINNIN
0x17b0bc…17b250 Dummy {f00=0x007c, f01=0x0190, f02=» @ X < P* CONFIGURATION DATA. * A < P* * A H < P* ON ENTRY: A11 CURRENT POSITION IN CONF. DATA * A < P* * A < P
0x17b250…17b3e4 Dummy {f00=0x007c, f01=0x0190, f02=» * A < P******************************************************** B 8 P B x P B PENDBLK EQU * B $ P LC A8,1,A11 GET NEXT CHARACTER B " P CCK A8,/00 END OF CONF. DATA? B P RF(E) ENDBL0 YES! B P* B
0x17b3e4…17b578 Dummy {f00=0x007c, f01=0x018e, f02=»8,A8 SET END OF D-BLOCK COND. B PENDBL2 EQU * C & P RTN A14 C : P XIF C J P EJECT C V 2 P********************************************* C d 2 P* I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * C 2 P********************************************* C P*
0x17b578…17b70c Dummy {f00=0x007c, f01=0x0190, f02=» C j * P* A6 - LINE CONNECTION NUMBER D P* D 6 * P* EXIT: A6 - CHANNEL PARAMETER - 1 D @ * P* A5 - CHANNEL PARAMETER - 2 D n . P* A3 - BITS 12-15 CONNECTION TYPE D * P* BITS 4 -11 LINE NUMBER D P* WORK REGI
0x17b70c…17b8a0 Dummy {f00=0x007c, f01=0x0190, f02=» P RF(G) NUMERR NO! E $ P CWK A6,1 CONNECTION NUMBER >=1? E P RF(L) NUMERR NO! E F , P SUK A6,1 MODIFY LINE CONNECTION NUMBER E ` 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT E $ P ANK A5,/3F CLEAR BITS TO MODIFY E 0 P LDR A3,A6 GET MODIFY LINE C
0x17b8a0…17ba34 (2, 229) Dummy {f00=0x007d, f01=0x0190, f02=»TYPE SALCUZ E r P RTN A14 RETURN F P XIF F , P IFT SALCUZ=0 F 8 P LDKL A1,LMP4 F N P CALL ERROR F d P XIF F x P EJECT F : P***************************************************** F 2 P* I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * F : P**
0x17ba34…17bbc8 Dummy {f00=0x007d, f01=0x018e, f02=»TO PROTOTYPE DWT F x ( P* A2 - POINTER TO REAL DWT G ( P* A4 - LINE CONNECTION TYPE G D * P* A6 - LINE CONNECTION NUMBER G p P* G * P* EXIT: A6 - CHANNEL PARAMETER - 1 G * P* A5 - CHANNEL PARAMETER - 2 G . P*
0x17bbc8…17bd5c Dummy {f00=0x007d, f01=0x018e, f02=» P* SUBROUTINES: H P* H PI:CHAZ EQU * H & P IFF ASCU4Z=0 H : & P CWK A6,32 CONNECTION NUMBER <=32? H P P RF(G) NUMERR NO! H z $ P CWK A6,1 CONNECTION NUMBER >=1? H P RF(L) NUMERR NO! H , P SUK A6,1 MODIFY LINE CONNECTION NUMBER H 0 P L
0x17bd5c…17bef0 Dummy {f00=0x007d, f01=0x018e, f02=» H b P ANK A3,3 GET BITS 14-15 I & P SLL A3,8 MOVE TO BITS TO BITS 6-7 I ( & P ORR A5,A3 MERGE WITH OLD CONTENTS I R 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER I | P SLL A3,4 I , P ANK A6,/1C GET BITS 11-13 BOARD NUMBER I P SRL A6,2 MOVE TO BI
0x17bef0…17c084 Dummy {f00=0x007d, f01=0x0190, f02=» P IFT ASCU4Z=0 J P LDKL A1,LMP4 J P CALL ERROR J 0 P XIF J D P EJECT J P : P***************************************************** J ^ 2 P* I:CHAZ - INIT CHANNEL PARAMETERS VCCU1/4 * J : P*****************************************************
0x17c084…17c218 Dummy {f00=0x007d, f01=0x0190, f02=»EAL DWT J t ( P* A4 - LINE CONNECTION TYPE K * P* A6 - LINE CONNECTION NUMBER K < P* K j * P* EXIT: A6 - CHANNEL PARAMETER - 1 K t * P* A5 - CHANNEL PARAMETER - 2 K . P* A3 - BITS 12-15 CONNECTION TYPE K * P*
0x17c218…17c3ac Dummy {f00=0x007d, f01=0x0190, f02=» P IFF VIDEO=0 L & P CWK A6,32 CONNECTION NUMBER <=32? L P RF(G) NUMERR NO! L B $ P CWK A6,1 CONNECTION NUMBER >=1? L P RF(L) NUMERR NO! L , P SUK A6,1 MODIFY LINE CONNECTION NUMBER L 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT L $ P ANK A
0x17c3ac…17c540 Dummy {f00=0x007d, f01=0x0190, f02=»BITS TO BITS 6-7 L ~ & P ORR A5,A3 MERGE WITH OLD CONTENTS M 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER M B P SLL A3,4 M x , P ANK A6,/1C GET BITS 11-13 BOARD NUMBER M P SRL A6,2 MOVE TO BITS 12-15 M * P ADK A3,7 ADD CONNECTION TYPE VCCU1/4 M
0x17c540…17c6d4 (2, 230) Dummy {f00=0x007d, f01=0x0190, f02=» M P XIF N P EJECT N . P****************************************** N " . P* I:CHPC - INIT CHANNEL PARAMETERS PLC * N T . P****************************************** N P* N P* REFERENCED IN: DWTGEN N P* N , P* ENTRY: A1 - POINTER TO P
0x17c6d4…17c868 Dummy {f00=0x007d, f01=0x0190, f02=»CHANNEL PARAMETER - 1 N * P* A5 - CHANNEL PARAMETER - 2 O . P* A3 - BITS 12-15 CONNECTION TYPE O L * P* BITS 4 -11 LINE NUMBER O ~ P* O P* WORK REGISTERS: O P* SUBROUTINES: O P* O PI:CHPC EQU * O P I
0x17c868…17c9fc Dummy {f00=0x007d, f01=0x0190, f02=»UMERR NO! O P SUK A6,1 P 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT P $ $ P ANK A5,/3F CLEAR BITS TO MODIFY P X * P LDR A3,A6 GET LINE CONNECTION NUMBER P P ANK A3,/1F GET BITS 11 - 15 P P ADK A3,1 P P SLL A3,8 MOVE TO BITS 2 - 7 P & P
0x17c9fc…17cb90 Dummy {f00=0x007d, f01=0x0190, f02=» P r & P ADK A3,5 ADD CONNECTION TYPE PLC Q , P ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER Q 2 " P SRL A6,5 MOVE TO BITS 12 - 15 Q b * P ADKL A6,/0500 ADD CONNECTION TYPE PLC Q P RTN A14 Q P XIF Q P IFT PLCL=0 Q P LDKL A1,LMP4 Q P CALL ERROR
0x17cb90…17cd24 Dummy {f00=0x007d, f01=0x0190, f02=»******************************* Q P* R ( P* REFERENCED IN: DWTGEN R 2 P* R R , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT R ( P* A2 - POINTER TO REAL DWT R * P* A6 - LINE CONNECTION NUMBER R P* R * P* EXIT: A6 - CHANNEL
0x17cd24…17ceb8 Dummy {f00=0x007d, f01=0x0190, f02=»TS 4-11 LINE NUMBER R ~ P* S P* WORK REGISTERS: S & P* S @ P* SUBROUTINES: S J P* S b P EJECT S l PI:CHLT EQU * S z P IFF SUML=0 S * P CWK A6,0032 CONNECTION NUMBER <= 32? S P RF(G) NUMERR NO! S ( P CWK A6,0001 CONNECTION NUMBER
0x17ceb8…17d04c Dummy {f00=0x007d, f01=0x0190, f02=» ( P ANKL A5,/003F CLEAR BITS TO MODIFY T 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER T 0 P ANK A3,7 GET BITS 13-15 T f P SLL A3,8 MOVE TO BITS 5-7 T & P ORR A5,A3 MERGE WITH OLD CONTENTS T 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER T P
0x17d04c…17d1e0 Dummy {f00=0x007d, f01=0x0190, f02=» LDKL A1,LMP4 T P CALL ERROR U P XIF U * P EJECT U 6 . P***************************************** U D . P* I:CHRT - INIT CHANNEL PARAMETERS RT * U v . P***************************************** U P* U P* REFERENCED IN: DWTGEN U P* U
0x17d1e0…17d374 (2, 231) Dummy {f00=0x007d, f01=0x0190, f02=» U j P* V * P* EXIT: A6 - CHANNEL PARAMETERS - 1 V * P* A5 - CHANNEL PARAMETERS - 2 V @ . P* A3 - BITS 12-15 CONNECTION TYPE V n * P* BITS 4-11 LINE NUMBER V P* V P* WORK REGISTERS: V P* V P* SUBROUTIN
0x17d374…17d508 Dummy {f00=0x007d, f01=0x0190, f02=»NO! V ( P CWK A6,0001 CONNECTION NUMBER >=1? W P RF(L) NUMERR NO! W 8 , P SUK A6,1 MODIFY LINE CONNECTION NUMBER W R 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT W ( P ANKL A5,/003F CLEAR BITS TO MODIFY W 2 P LDR A3,A6 GET MODIFIED LINE CONNECTIO
0x17d508…17d69c Dummy {f00=0x007d, f01=0x0190, f02=»ET MODIFIED LINE CONNECTION NUMBER W P SLL A3,4 X * $ P ADK A3,1 ADD CONNECTION TYPE RT X < P ANK A6,/C GET BITS 12-13 X d P SRL A6,2 MOVE TO BITS 14-15 X * P ADKL A6,/0100 ADD CONNECTION TYPE RT X P RTN A14 X P XIF X PNUMERR EQU * X ( P
0x17d69c…17d830 Dummy {f00=0x007d, f01=0x0190, f02=»********** X l 2 P* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE * Y 2 P********************************************** Y H P* Y ~ P* REFERENCED IN: DWTGEN Y P* Y * P* ENTRY: SCTSFA - START OF FREE AREA Y P* Y , P* EXIT: REAL TIME INTERRUP
0x17d830…17d9c4 Dummy {f00=0x007d, f01=0x0190, f02=» EQU * BUILD REAL-TIME INTERRUPT TABLES Y P* Z 0 . P* BUILD REAL-TIME INTERRUPT TABLES FOR LT Z : P* Z l P XIF Z v PB:ITLT EQU * Z P IFF SUML=0 Z $ P LDKL A8,0 CONNECTION TYPE = LT Z P LDKL A9,7 1:ST BOARD Z . P LDK A1,16 MAX.LENGTH OF
0x17d9c4…17db58 Dummy {f00=0x007d, f01=0x0190, f02=»EAR Z ~ PBIT10 EQU * [ P CALL B:BTAB [ P CALL B:LTAB [ 4 * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB [ H " P LD A2,STKEND+WRK3 ANY LINES? [ v P RF(Z) BIT15 NO! [ P CM STKEND+WRK3 CLEAR [ : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE
0x17db58…17dcec Dummy {f00=0x007d, f01=0x0190, f02=» ST A9,STKEND+WRK1 STORE [ P ADKL A9,7 NEXT BOARD P CWK A9,31 LAST BOARD? > P RF(G) B:ITRT YES! P RB BIT10 v P XIF P EJECT P* . P* BUILD REAL-TIME INTERRUPT TABLES FOR RT P* PB:ITRT EQU * P IFF SUMR=0
0x17dcec…17de80 Dummy {f00=0x007d, f01=0x0190, f02=»TKEND+WRK4 SAVE P CM STKEND+WRK1 CLEAR ] P CM STKEND+WRK2 CLEAR ] 6 P CM STKEND+WRK3 CLEAR ] T PBRT10 EQU * ] r P CALL B:BTAB ] P CALL B:LTAB ] * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB ] " P LD A2,STKEND+WRK3 ANY LINES? ] P RF(Z)
0x17de80…17e014 (2, 232) Dummy {f00=0x007d, f01=0x0190, f02=» PBRT15 EQU * ^ P ADK A1,2 ^ & P ST A1,STKEND+WRK2 STORE NEW INDEX ^ * P ADKL A9,1 ^ T P ST A9,STKEND+WRK1 STORE ^ f P ADKL A9,3 NEXT BOARD ^ P CWK A9,15 LAST BOARD? ^ P RF(G) B:ITPC YES! ^ P RB BRT10 ^ P XIF ^ P EJECT ^ P
0x17e014…17e1a8 Dummy {f00=0x007d, f01=0x018e, f02=» = PLC ^ v P LDKL A9,32 1:ST BOARD _ 0 P LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2 _ , P ST A1,STKEND+WRK4 _ ` P LDK A1,1 =2 _ z P ST A1,STKEND+WRK1 =2 _ P CM STKEND+WRK2 CLEAR _ P CM STKEND+WRK3 CLEAR _ PBPC10 EQU * _ P CALL B:BT
0x17e1a8…17e33c Dummy {f00=0x007d, f01=0x018e, f02=» P CM STKEND+WRK3 ` B P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE ` P ST A2,INTPL1,A1 SAVE ` b PBPC15 EQU * ` P ADK A1,2 ` & P ST A1,STKEND+WRK2 STORE NEW INDEX ` P ADKL A9,1 ` P ST A9,STKEND+WRK1 ` P ADKL A9,31
0x17e33c…17e4d0 Dummy {f00=0x007d, f01=0x0190, f02=» 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR VCCU1/4 a P* a : PB:ITVU EQU * a D P IFF VIDEO=0 a X ( P LDKL A8,7 CONNECTION TYPE = VCCU1/4 a l P LDKL A9,3 1:ST BOARD a . P LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE a P ST A1,STKEND+WRK4 SAVE a P
0x17e4d0…17e664 Dummy {f00=0x007d, f01=0x0190, f02=»B:LTAB a * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB b " P LD A2,STKEND+WRK3 ANY LINES? b < P RF(Z) BVU15 NO! b b P CM STKEND+WRK3 CLEAR b z : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE b P ST A2,INTVU1,A1 SAVE b PBVU15 EQU * b P
0x17e664…17e7f8 Dummy {f00=0x007d, f01=0x0190, f02=» P CWK A9,31 LAST BOARD? c P RF(G) B:ITSZ YES! c " P RB BVU10 c < P XIF c N P c Z P EJECT c b P* c p 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR SALCUZ c z P* c PB:ITSZ EQU * c P IFF SALCUZ=0 c ( P LDKL A8,2 CONNECTION TYPE = SALCUZ
0x17e7f8…17e98c Dummy {f00=0x007d, f01=0x0190, f02=» c z P CM STKEND+WRK2 CLEAR d P CM STKEND+WRK3 CLEAR d & PBSZ10 EQU * d D P CALL B:BTAB d X P CALL B:LTAB d l * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB d " P LD A2,STKEND+WRK3 ANY LINES? d P RF(Z) BSZ15 d P CM STKEND+WRK3 d : P LD A2,S
0x17e98c…17eb20 Dummy {f00=0x007d, f01=0x0190, f02=»WRK2 STORE NEW INDEX d P ADKL A9,1 e P ST A9,STKEND+WRK1 e . P CWK A9,7 LAST BOARD? e H P RF(G) B:ITAZ YES! e f P RB BSZ10 e P XIF e P EJECT e P* e 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR ASCU4Z e P* e PB:ITAZ EQU * e
0x17eb20…17ecb4 (2, 233) Dummy {f00=0x007e, f01=0x0190, f02=»BLE e j P ST A1,STKEND+WRK4 f P CM STKEND+WRK1 CLEAR f & P CM STKEND+WRK2 CLEAR f D P CM STKEND+WRK3 CLEAR f b PBAZ10 EQU * f P CALL B:BTAB f P CALL B:LTAB f * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB f P LD A2,STKEND+WRK3 ANY LINES f
0x17ecb4…17ee48 Dummy {f00=0x007e, f01=0x0190, f02=» SAVE f PBAZ15 EQU * g P ADK A1,2 g " & P ST A1,STKEND+WRK2 STORE NEW INDEX g 4 P ADKL A9,1 g ^ P ST A9,STKEND+WRK1 g p P ADKL A9,3 NEXT BOARD g P CWK A9,31 LAST BOARD? g P RF(G) BAZ20 YES! g P RB BAZ10 g PBAZ20 EQU * g P X
0x17ee48…17efdc Dummy {f00=0x007e, f01=0x0190, f02=» GENERAL SUBROUTINES * g T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= h 2 P h P h P h 8 P**************************************************** h 8 P* GETTSK - GET NUMBER OF TASKS IN A TASK
0x17efdc…17f170 Dummy {f00=0x007e, f01=0x0190, f02=»************ h h P* i " P* REFERENCED IN: B:TCT,B:CDT i P* i D > P* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK i N P* i F P* EXIT: A1 - NUMBER OF TASKS IN THE TASK CLASS (BINARY VALUE) i P* i P* WORK REGISTERS: A5 i
0x17f170…17f304 Dummy {f00=0x007e, f01=0x0190, f02=»D i h . PGETCOP EQU * GET NO OF COPIES OF LAST DTE j 0 PGETNSA EQU * GET NO OF SUBADDRESSES DEFINED j < P LC A5,TDBNT,A11 j p P SLL A5,8 j P LC A5,TDBNT+1,A11 j P CALL CONVRT j P RTN A14 j P EJECT j 8 P**********************************
0x17f304…17f498 Dummy {f00=0x007e, f01=0x0190, f02=»** j ^ P* k P* REFERENCED IN: B:TT k P* k 4 > P* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK k > P* k D P* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE) k P* k P* WORK REGISTERS: A5 k P* k P* S
0x17f498…17f62c Dummy {f00=0x007e, f01=0x0190, f02=» k P RTN A14 l P EJECT l 8 P*************************************************** l & 8 P* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * l b 8 P*************************************************** l P* l P* REFERENCED IN: B:TT l P* l
0x17f62c…17f7c0 Dummy {f00=0x007e, f01=0x0190, f02=» l P P* m P* WORK REGISTERS: A5 m P* m 0 P* SUBROUTINES: CONVRT m : P* m Z PGETSDC EQU * m d P LCR A5,A9 m x P SLL A5,8 m P LC A5,1,A9 m P CALL CONVRT m P RTN A14 m P EJECT m 2 P**************************************
0x17f7c0…17f954 (2, 234) Dummy {f00=0x007e, f01=0x0190, f02=» REFERENCED IN: B:TT m P* n 6 P* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD n ( P* n b > P* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) n l P* n P* WORK REGISTERS: A5 n P* n P* SUBROUTINES: CONVRT n P* n
0x17f954…17fae8 Dummy {f00=0x007e, f01=0x0190, f02=»CT n . P***************************************** o . P* GETLCN - GET LINE CONNECTION NUMBER * o < . P***************************************** o n P* o P* REFERENCED IN: B:DWTT o P* o 8 P* ENTRY: A9 - POINTER TO CLASS DEFINITION RECOR
0x17fae8…17fc7c Dummy {f00=0x007e, f01=0x0190, f02=»UBROUTINES: CONVRT o P* p PGETLCN EQU * p & * P STR A4,A15 SAVE REGISTER A4 ON STACK p : * P STR A6,A15 SAVE REGISTER A6 ON STACK p h & P LDR A6,A9 GET START OF TDC RECORD p 2 P ADK A6,TDCLCN ADDRESS LINE CONNECTION NUMBER p , P CALL GETNUM GET L
0x17fc7c…17fe10 Dummy {f00=0x007e, f01=0x0190, f02=»RE REGISTER A4 FROM STACK p ~ P RTN A14 q " P EJECT q 2 : P***************************************************** q @ : P* * q ~ : P* GETTCL - GET TASK CLASS TO MATCH * q : P* ===========
0x17fe10…17ffa4 Dummy {f00=0x007e, f01=0x0190, f02=» * q v : P* * r $ : P* ENTRY: A5 - TCL IN CURRENT TASK DEF. BLOCK * r b : P* * r : P* EXIT: A5 - TCL START VALUE FOR THIS TA
0x17ffa4…180138 Dummy {f00=0x007e, f01=0x018e, f02=» r Z : P* * s : P* SUBROUTINES: GETTSK,NXTBLK * s F : P* * s : P***************************************************** s P s P
0x180138…1802cc Dummy {f00=0x007e, f01=0x0190, f02=» s Z 6 P LD A11,STKEND+LCDSTA START OF CONFIGURATION DATA t 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? t B P RF(E) TCL:60 YES! t z . P LC A5,TDBMC+4,A11 GET FIRST CHAR. IN TCL t P SLL A5,8 MOVE TO LEFT BYTE t . P LC A5,TDBMC+5,A11 GET SECOND
0x1802cc…180460 Dummy {f00=0x007e, f01=0x018e, f02=» TCL t | 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK u P RB TCL:10 u @ , PTCL:60 LDR A5,A7 SAVE START VALUE OF TCL u R P RTN A14 u P EJECT u . P***************************************** u . P* GETCON - GET CONTENT IN MEMORY WORD * u . P****
0x180460…1805f4 (2, 235) Dummy {f00=0x007e, f01=0x018e, f02=» . P* MMUOPT - MMU OPTION SWITCH (X) v P* v 6 , P* EXIT: A1 - CONTENT OF MEMORY ADDRESS v @ P* v p P* WORK REGISTER: v z P* v P* SUBROUTINES: v P* v PGETCON EQU * v " P LD A1,SCTOPT GET OPTION WORD v P ANK A1,1 MMU
0x1805f4…180788 Dummy {f00=0x007e, f01=0x018e, f02=» P RTN A14 RETURN w P EJECT w . P****************************************** w * . P* B:TTAB - BUILD TEMP. INTERRUPT TABLE * w . P****************************************** w P* w P* REFERENCED IN: DWTGEN w P* w 4 P* ENTRY: INTTAB - S
0x180788…18091c Dummy {f00=0x007e, f01=0x0190, f02=» w f P* x P* EXIT: x P* x " P* WORK REGISTERS: x , P* x F PB:TTAB EQU * x P P* x d P* BUILD ONE BLOCK IN T.I.T. x n P* x , P LD A4,STKEND+INTTAB GET START OF T.I.T. x $ P LDR* A2,A4 GET NUMBER OF BLOCKS x P SUK A4,2 x P x
0x18091c…180ab0 Dummy {f00=0x007e, f01=0x0190, f02=» x P RB TTA10 y P* y P* AREA TO BUILD BLOCKS y $ P* y B PTTA11 EQU * y L P LDR A2,A4 y ` P LD A3,STKEND+FWTFLG y r * P RF(P) TTA15 BUILD BLOCKS IN FREE AREA y P EJECT y P* y P* BUILD BLOCKS IN FWT AREA y P* y PTTA09 EQ
0x180ab0…180c44 Dummy {f00=0x007e, f01=0x0190, f02=»E) TTA14 y P SUK A3,1 z P RF(Z) TTA20 z " P RB TTA12 z 6 PTTA14 EQU * z H P LD A2,STKEND+LIMIT z P* z x P* BUILD BLOCKS IN FREE AREA z P* z PTTA15 EQU * z P LDK A3,5 z PTTA16 EQU * z P SUK A2,2 z P CWR A2,A12
0x180c44…180dd8 Dummy {f00=0x007e, f01=0x0190, f02=»L A1,LMP3 z P CALL ERROR { PTTA20 EQU * { & , P ST A5,-2,A4 STORE RUN TIME DWT-ADDRESS { : P LD A3,STKEND+CONTYP { j P ST A3,-4,A4 { PTTA30 EQU * { P ADK A2,4 { 0 P STR A2,A4 STRORE POINTER TO NEXT FREE BLOCK { P* { P* STORE NU
0x180dd8…180f6c Dummy {f00=0x007e, f01=0x0190, f02=»****************************** { 2 P* B:BTAB - BUILD BOARD CONFIGURATION TABLE * | & 2 P********************************************** | P* | P* REFERENCED IN: B:ITAB | P* | " P* ENTRY: A8 - CONNECTION TYPE | P* A9 - BOARD NUMBER
0x180f6c…181100 Dummy {f00=0x007e, f01=0x0190, f02=»K REGISTERS: A1,A2,A3,A10,A11,A12 | P* } * PB:BTAB EQU * } 4 : P LD A4,STKEND+WRK4 GET MAX LENGTH OF BOARD CONF.TABLE } H ( P CALL M:TST TEST IF MEMORY OVERFLOW? } , P LD A12,SCTSFA NO!GET START OF FREE AREA } P LDR A11,A12 SAVE } P ADKL A12,2
0x181100…181294 (2, 236) Dummy {f00=0x007e, f01=0x0190, f02=»OF BLOCKS.ZERO? } x P ~ P SUKL A10,2 ~ P LDR A1,A1 ZERO? ~ 4 PBTA10 EQU * ~ L P RF(Z) BTA40 YES! ~ ` 6 P LD A2,-4,A10 GET LINE NUMBER AND CONNECTION TYPE ~ z P LDR A3,A2 SAVE ~ $ P ANK A3,/0F GET CONNECTION TYPE ~ P SUR A3,A8 RIGHT TYP
0x181294…181428 Dummy {f00=0x007e, f01=0x018e, f02=» ~ PBTA30 EQU * " P ANKL A2,/0FFF GET LINE NUMBER , P SRL A2,4 SHIFT LINE NUMBER TO BITS 8-15 B P CWR A2,A9 THIS LINE TABLE? r P RB(G) BTA20 NO! P* P LD A3,STKEND+WRK1 P CWR A2,A3 P RB(L) BTA20 NO! P* & P*
0x181428…1815bc Dummy {f00=0x007e, f01=0x0190, f02=» P SUK A3,1 =2 PBTA35 EQU * =2 P SUR A2,A3 2 P ADR A2,A2 D P LDR A12,A11 V P ADKL A12,2 j ( P ADR A12,A2 GET ENTRY IN BOARD TABLE ~ P STR A11,A12 STORE P RB BTA20 PBTA40 EQU * P* 2 P* COMPUTE LENGTH OF
0x1815bc…181750 Dummy {f00=0x007e, f01=0x0190, f02=»ARD CONF. TABLE r P ADR A12,A1 PBTA50 EQU * , P LDR* A2,A12 @ P RF(NZ) BTA60 T P SUK A1,2 j P RF(Z) BTA70 | P SUKL A12,2 P RB BTA50 PBTA60 EQU * : P STR A1,A11 STORE LENGTH OF BOARD CONFIGURATION TABLE P
0x181750…1818e4 Dummy {f00=0x007e, f01=0x0190, f02=»**************************************** 2 P* B:LTAB - BUILD LINE CONFIGURATION TABLES * 0 2 P********************************************** f P* P* REFERENCED IN: B:ITAB P* " P* ENTRY: WRK1 - BOARD NUMBER & P* A8 -
0x1818e4…181a78 Dummy {f00=0x007e, f01=0x0190, f02=»B:LTAB EQU * 8 P LDR* A1,A11 GET LENGTH OF BOARD CONFIGURATION TABLE P RF(Z) BLT70 P P LDKL A3,-1 LINE COUNTER d P RF BLT15 PBLT10 EQU * P SUK A1,2 DECREMENT LENGTH P RF(Z) BLT70 RETURN P* PBLT15 EQU * P L
0x181a78…181c0c Dummy {f00=0x007e, f01=0x0190, f02=»URATION TABLE | P* P ADK A3,1 ADD LINE COUNTER P ADKL A11,2 B P LDR* A2,A11 READ LINE.ZERO? V P RB(Z) BLT10 YES! z P LDK A4,32 GET TEST LENGTH ( P CALL M:TST TEST IF MEMORY OVERFLOW? P* $ P* SCAN TEMPORARY INTERRUPT T
0x181c0c…181da0 Dummy {f00=0x007e, f01=0x0190, f02=»2,1 =2 PBLT17 EQU * =2 P ADR A2,A3 ADD LINE NUMBER ( P SLL A2,4 J " P ADR A2,A8 ADD CONNECTION TYPE . P LD A10,STKEND+INTTAB GET START OF T.I.T. & P LDR* A4,A10 GET NUMBER OF BLOCKS P SUKL A10,2 PBLT20 EQU * 6 P L
0x181da0…181f34 (2, 237) Dummy {f00=0x007f, f01=0x0190, f02=»WT-ADDRESS IN LINE CONFIGURATION TABLE ~ P* . * P LD A5,-2,A10 GET RUN TIME DWT-ADDRESS 8 P LDR A6,A5 f " P ANK A6,/0001 DOUBLE KEYBOARD? x P RF(Z) BLT25 N0! & P LD A6,DWTDEV,A5 GET DEVICE STATUS ( P ANK A6,/FF GET EIGHT RIGHTMOST BITS
0x181f34…1820c8 Dummy {f00=0x007f, f01=0x0190, f02=»7 GET DEVICE ADDRESS PBLT26 EQU * P ADR A6,A6 0 P LDR A7,A12 SAVE B P ADR A7,A6 Z P LD A6,2,A7 ZERO? l P RF(Z) BLT27 YES! ( P LD A6,DWTST,A5 NO!GET DEVICE STATUS P ANK A6,/0040 INPUT DEVICE? P RF(Z) BLT28 NO! $ P
0x1820c8…18225c Dummy {f00=0x007f, f01=0x0190, f02=» TIME DWT-ADDRESS | & P ST A6,STKEND+FWTFLG STORE POINTER * P LD A5,-2,A10 GET RUM TIME DWT-ADDRESS D PBLT27 EQU * r * P ST A5,2,A7 STORE RUN TIME DWT-ADDRESS P RF BLT30 PBLT28 EQU * 2 P LD A6,STKEND+FWTFLG GET POINTER TO TEMP.AREA
0x18225c…1823f0 Dummy {f00=0x007f, f01=0x0190, f02=»0 GET NEXT BLOCK P SUK A4,1 LAST BLOCK? P RF(Z) BLT40 YES! 6 P RB BLT20 NO! P P* f D P* MOVE DWT-ADR.IN TEMP.AREA TO FREE LOCATIONS IN LINE CONF.TABLE p P* PBLT40 EQU * 2 P LD A6,STKEND+FWTFLG GET POINTER TO TEMP. AREA
0x1823f0…182584 Dummy {f00=0x007f, f01=0x0190, f02=» ADK A4,2 P LDR* A2,A4 P RF(Z) BLT42 & P RB BLT41 : PBLT42 EQU * L * P STR A5,A4 STORE RUN TIME DWT-ADDRESS ` P SUK A6,2 P RB BLT43 P* P* CLEAR TEMP.AREA P* PBLT45 EQU * 2 P LD A6,STKEND+FWTFLG
0x182584…182718 Dummy {f00=0x007f, f01=0x018e, f02=»EMORY WORD ~ P SUK A6,2 DECREMENT POINTER P RB BLT46 6 P* H 0 P* COMPUTE LENGTH OF LINE CONFIGURATION TABLE R P* PBLT48 EQU * P LDR A2,A12 SAVE 2 P ADK A2,22 ADD. MAX LENGTH OF LINE CONF.TABLE P LDK A4,22 PBLT5
0x182718…1828ac Dummy {f00=0x007f, f01=0x0190, f02=» PBLT60 EQU * 8 P STR A4,A12 STORE LENGTH OF LINE CONFIGURATION TABLE P ADKL A12,2 X J P STR A12,A11 STORE THE ADDRESS IN BOARD CONF.TABLE TO LINE CONF.TABLE l 4 P ADR A12,A4 A12 - START OF NEXT LINE CONF.TABLE 2 PBLT65 ST A12,SCTSFA ST
0x1828ac…182a40 Dummy {f00=0x007f, f01=0x0190, f02=»******************* ~ * P* M:TST - TEST IF MEMORY OVERFLOW * * P************************************* J P* x P* ENTRY: A4 - TEST LENGTH P* P* WORK REGISTERS: A2,A4 P* PM:TST EQU * $ P LD A2,SCTSFA START OF FREE
0x182a40…182bd4 (2, 238) Dummy {f00=0x007f, f01=0x0190, f02=» LDKL A1,LMP3 P CALL ERROR MEMORY OVERFLOW PMTST20 EQU * : P CWR A2,A4 N P RB(NE) MTST10 ` P RTN A14 RETURN v P EJECT B P************************************************************** B P* BINASC - CONVERT A BINARY NUMBER TO
0x182bd4…182d68 Dummy {f00=0x007f, f01=0x0190, f02=»************************************************** P* : P* REFERENCED IN: B:DWTT D P* f , P* ENTRY: A1 - BINARY NUMBER TO CONVERT p P* $ P* EXIT: A1,A5 - ASCII OUTPUT P* P* WORK REGISTER: A2 P* P* S
0x182d68…182efc Dummy {f00=0x007f, f01=0x0190, f02=»=2 P LDKL A5,/100 =2 PBIN:10 CWK A1,10 =2 $ P RF(L) BIN:20 =2 @ P SUK A1,10 =2 Z P ADK A5,/1 =2 p P RB BIN:10 =2 PBIN:20 ORKL A5,/3030 =2 P ORK A1,/30 =2 P SRC A5,8 =2 P LDR A2,A5 =2 P ANKL A2
0x182efc…183090 Dummy {f00=0x007f, f01=0x0190, f02=»************************************** : P* * . : P* MMUINI - INIT MMU TABLE IN TTAB * l : P* =============================== * : P*
0x183090…183224 Dummy {f00=0x007f, f01=0x0190, f02=» * d : P* ENTRY: APCSTA - APPL. CONTROL BLOCK ADDRESS * : P* * P : P* EXIT: * : P* * :
0x183224…1833b8 Dummy {f00=0x007f, f01=0x0190, f02=»INES: * : P* * 4 : P****************************************************** r P EJECT PMMUINI EQU * < P LD A2,STKEND+APCSTA GET ADDRESS TO APPL. CONTROL BLOC
0x1833b8…18354c Dummy {f00=0x007f, f01=0x0190, f02=»ET LOGICAL PAGE ADDRESS ~ ( P SRL A2,12 ISOLATE MMU ENTRY NUMBER P RF(NZ) MMI:10 PAGES DEFINED L ( P LDK A2,16 MAX NUMBER OF MMU ENTRIES p 0 PMMI:10 SUR A2,A3 NUMBER OF ENTRIES TO WRITE P SLL A3,1 TWICE P ADR A3,A12 ADD TTAB ADDRESS
0x18354c…1836e0 Dummy {f00=0x007f, f01=0x0190, f02=»OF MMU TABLE =6 l P LDKL A4,/FC00 =6 PMMI:15 EQU * =6 2 2 P CWR A5,A3 INIT MMU ENTRY WHITH PAGE ERROR? =6 J P RF(E) MMI:16 NO! =6 0 P STR A4,A5 STORE PAGE ERROR IN MMU TABLE =6 P ADK A5,2 NEXT MMU ENTRY =6 P RB MMI:15 =6
0x1836e0…183874 (2, 239) Dummy {f00=0x007f, f01=0x0190, f02=» P RF(N) MMI:30 NO " P STR A4,A3 STORE PAGE ADDRESS P ADK A3,2 NEXT MMU ENTRY B $ P ADKL A4,/400 NEXT PAGE ADDRESS b P RB MMI:20 PMMI:30 RTN A14 RETURN P XIF P EJECT 6 P*************************************************
0x183874…183a08 Dummy {f00=0x007f, f01=0x0190, f02=»========================= * 6 P* * , 6 P* REFERENCED IN: * f 6 P* * 6 P* ENTRY:
0x183a08…183b9c Dummy {f00=0x007f, f01=0x0190, f02=» A11- START OF CONFIGURATION DATA * 6 P* * 2 6 P* WORK REGISTERS: A2 * l 6 P* * 6 P* SUBROUTINES:
0x183b9c…183d30 Dummy {f00=0x007f, f01=0x018e, f02=»TAPL EQU * , P LD A2,SYSLOD GET NUMBER OF APPLICATIONS P ST A2,STKEND+APLNO SAVE B 6 P LDKL A2,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK b P ST A2,STKEND+APCSTA SAVE 6 P LD A11,STKCOM+CONSTA START OF CONFIGURATION DATA P RTN A14 RETURN
0x183d30…183ec4 Dummy {f00=0x007f, f01=0x0190, f02=» 6 P* NXTAPL - GET NEXT APPLICATION * 6 P* ============================= * > 6 P* * x 6 P* REFERENCED IN: * 6 P*
0x183ec4…184058 Dummy {f00=0x007f, f01=0x0190, f02=»* ` 6 P* BLOCK ADDRESS * 6 P* * D 6 P* EXIT: APLNO - REMAINING NUMBER OF APPL.-1 * ~ 6 P* APCSTA - NEXT APPL. CONTROL BLOCK * 6 P* ADDR
0x184058…1841ec Dummy {f00=0x007f, f01=0x0190, f02=» * f 6 P* * 6 P* SUBROUTINES: * J 6 P* * 6 P************************************************* P EJECT PNX
0x1841ec…184380 Dummy {f00=0x007f, f01=0x0190, f02=»BER OF APPL. j P RF(Z) NOAPL NO MORE! * P CALL NXTADB GET NEXT APPL DEF. BLOCK 2 @ P LD A2,STKEND+APCSTA GET ADDRESS TO CURRENT APPL. CTRL BLOCK ` ( P ADK A2,ACBLEN NEXT APPL. CTRL BLOCK & P ST A2,STKEND+APCSTA SAVE ADDRESS 4 P LD A1,STKEND+
0x184380…184514 (2, 240) Dummy {f00=0x007f, f01=0x0190, f02=»**************************************************************** D P* * H D P* NXTADB - GET NEXT APPLICATION DEF. BLOCK * D P* =====================================
0x184514…1846a8 Dummy {f00=0x007f, f01=0x0190, f02=» * h D P* * D P* ENTRY: A11 - CURRENT POINTER TO CONFIGURATION DATA * h D P* * D P* EXIT: A2 -
0x1846a8…18483c Dummy {f00=0x007f, f01=0x0190, f02=» * D P* WORK REGISTERS: * @ D P* * D P* SUBROUTINES: ERROR
0x18483c…1849d0 Dummy {f00=0x007f, f01=0x0190, f02=»**************** ` PNXT10 ADKL A11,1 NEXT CHAR ( PNXTADB LCR A2,A11 GET NEXT CHARACTER : $ P CCK A2,/0000 END OF CONF DATA? f P RF(NE) NEXT20 NOT YET P LDKL A1,LMP4 FORMAT ERROR P CALL ERROR 2 PNEXT20 CCK A2,/FFFF APPL DEF BLOCK SEP
0x1849d0…184b64 Dummy {f00=0x007f, f01=0x0190, f02=» 2 P********************************************* 2 P* * > 2 P* CHKMOV - CHECK MEMORY OVERFLOW AND MOVE * t 2 P* ======================================= * 2 P*
0x184b64…184cf8 Dummy {f00=0x007f, f01=0x0190, f02=»- FROM-ADDRESS * 2 P* A2 - TO-ADDRESS * ( 2 P* A3 - LENGTH * ^ 2 P* STKEND+LIMIT - END OF SYSTEM * 2 P* AREA * 2 P*
0x184cf8…184e8c Dummy {f00=0x007f, f01=0x0190, f02=» * l 2 P* WORK REGISTERS: * 2 P* * H 2 P* SUBROUTINES: MOVE,ERROR * ~ 2 P* * 2 P******************************
0x184e8c…185020 Dummy {f00=0x007f, f01=0x0190, f02=»NGTH ~ . P XRR A9,A9 PHYSICAL END OF FIRST PARTITION 0 P SUR A9,A2 COMPUTE AREA LEFT IN FIRST PART. > & P CALL CMPADR ENOUGTH MEMORY LEFT? r P RF(L) CHK20 YES 0 PCHK10 LDKL A1,LMP3 INDICATE MEMORY OVERFLOW P CALL ERROR $ PCHK20 ADR A1
0x185020…1851b4 (2, 241) Dummy {f00=0x0080, f01=0x0190, f02=»AREA OVERFLOW! | P CALL MOVE MOVE AREA P LDR* A11,A15 RESTORE A11 2 P LDR* A9,A15 RESTORE A9 T P RTN A14 t P EJECT D P**************************************************************** D P* START MONITOR SAVE01URATION
0x1851b4…185348 Dummy {f00=0x0080, f01=0x018e, f02=»TASK CONTROL TABLE ~ P IFF FM=0 & P CALL B:FWT BUILD FILE WORK TABLES , P XIF V ( P CALL MONBLK GENERATE MONITOR BLOCKS b P IFF EDM=0 2 P CALL B:MXTT BUILD MONITOR EXTENT TASK TABLES 6 P CALL B:MSEG BUILD MONITOR SEGMENT TABLES & TTAB:S
0x185348…1854dc Dummy {f00=0x0080, f01=0x018e, f02=» P XIF P IFF MMUPAG+DSKPAG=0 ( P CALL B:STAB BUILD SEGMENT TABLE(S) , P XIF X P IFF SPDVCL+TEDVCL=0 d 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES P XIF P IFF TEDVCL=0 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK TABLES
0x1854dc…185670 Dummy {f00=0x0080, f01=0x018e, f02=» P XIF P IFF TEDVCL=0 & P CALL B:ITAB BUILD INTERRUPT TABLE & P XIF P P EJECT F P***************************************************************** j F P* END OF MONITOR SAVE01URATION PART * F P* -C
0x185670…185804 Dummy {f00=0x0080, f01=0x4014, f02=» P END @ TEDVCL=0 & P CALL B:ITAB BUILD INTERRUPT TABLE & P XIF P P EJECT F P***************************************************************** j F P* END OF MONITOR SAVE01URATION PART * F P* -C
0x185804…185998 Dummy {f00=0x0080, f01=0x403c, f02=» 0 P******************************************** @ 8ERRUPT TABLE & P XIF P P EJECT F P***************************************************************** j F P* END OF MONITOR SAVE01URATION PART * F P* -C
0x185998…185b2c Dummy {f00=0x0080, f01=0x2008, f02=» P X ` h p
0x185b2c…185cc0 Dummy {f00=0x0080, f01=0x0190, f02=»160 THIS T:A IS NOT USED!!!!! T " P ADR A11,A7 ACCUMULATE LENGTH U & , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH U L , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS U | ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS U 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLA
0x185cc0…185e54 (2, 242) Opaque[0x194]
0x185e54…185fe8 # DirEnt {nam=»SYSLCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1008, f03=0x0000}
0x185e54…185fe8 IdxSect {
0x185e54…185fe8 f00 = 0x0080 // 0x185e54 @0x0
0x185e54…185fe8 f01 = 0x0044 // 0x185e56 @0x2
0x185e54…185fe8 gno = [ // 0x185e58 @0x4
0x185e54…185fe8 [0x00]: C0x0080.0x1.0
0x185e54…185fe8 [0x01]: C0x0080.0x2.0
0x185e54…185fe8 [0x02]: C0x0080.0x3.0
0x185e54…185fe8 [0x03]: C0x0081.0x0.0
0x185e54…185fe8 [0x04]: C0x0081.0x1.0
0x185e54…185fe8 [0x05]: C0x0081.0x2.0
0x185e54…185fe8 [0x06]: C0x0081.0x3.0
0x185e54…185fe8 [0x07]: C0x0082.0x0.0
0x185e54…185fe8 [0x08]: C0x0082.0x1.0
0x185e54…185fe8 [0x09]: C0x0082.0x2.0
0x185e54…185fe8 [0x0a]: C0x0082.0x3.0
0x185e54…185fe8 [0x0b]: C0x0083.0x0.0
0x185e54…185fe8 [0x0c]: C0x0083.0x1.0
0x185e54…185fe8 [0x0d]: C0x0083.0x2.0
0x185e54…185fe8 [0x0e]: C0x0083.0x3.0
0x185e54…185fe8 [0x0f]: C0x0084.0x0.0
0x185e54…185fe8 [0x10]: C0x0084.0x1.0
0x185e54…185fe8 [0x11]: C0x0084.0x2.0
0x185e54…185fe8 [0x12]: C0x0084.0x3.0
0x185e54…185fe8 [0x13]: C0x0085.0x0.0
0x185e54…185fe8 [0x14]: C0x0085.0x1.0
0x185e54…185fe8 [0x15]: C0x0085.0x2.0
0x185e54…185fe8 [0x16]: C0x0085.0x3.0
0x185e54…185fe8 [0x17]: C0x0086.0x0.0
0x185e54…185fe8 [0x18]: C0x0086.0x1.0
0x185e54…185fe8 [0x19]: C0x0086.0x2.0
0x185e54…185fe8 [0x1a]: C0x0086.0x3.0
0x185e54…185fe8 [0x1b]: C0x0087.0x0.0
0x185e54…185fe8 [0x1c]: C0x0087.0x1.0
0x185e54…185fe8 [0x1d]: C0x0087.0x2.0
0x185e54…185fe8 [0x1e]: C0x0087.0x3.0
0x185e54…185fe8 [0x1f]: C0x0088.0x0.0
0x185e54…185fe8 [0x20]: C0x0088.0x1.0
0x185e54…185fe8 [0x21]: C0x0088.0x2.0
0x185e54…185fe8 ]
0x185e54…185fe8 }
0x185fe8…18617c Dummy {f00=0x0080, f01=0x018e, f02=» 2 P IDENT SYSLCR REL 11.0 81-05-19 870105041100 P : , P =3,WHEN MMUPAG=1 APPLICATION CODE IS B * P OVERWRITTEN IF P:MTAB STARTS ON r P 4K BOUNDARY P REL 11.0 81-01-26 0 P =2,UPDATE SCTSFA WHEN ALLOCATING BUFFERS
0x18617c…186310 Dummy {f00=0x0080, f01=0x0190, f02=» P PRR 11.0 80-11-19 P $ P 0 > P********************************************************** < P* ~ $ P* PHILIPS TERMINAL SYSTEM PTS P* D P* SYSLCR = SYSTEM LOAD - CREDIT APPLICATION CONFIGURATION PART P*
0x186310…1864a4 Dummy {f00=0x0080, f01=0x0190, f02=»EDIT APPLICATION: F P* SYSLCR READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD B P* SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS & d . P* NUMBER OF USER WORK-BLOCK COPIES). H P* SYSLCR THEN MOVES ITSELF TO FOLLOW MO
0x1864a4…186638 Dummy {f00=0x0080, f01=0x0190, f02=»RE NOW R H P* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS H P* ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF Z T P* MEMORY; ELSE, IF NO MMU AND NO PAGING,BUFFER ARE ALLOCATED AFTER MONITOR P* 'OV
0x186638…1867cc Dummy {f00=0x0080, f01=0x0190, f02=»ERNALS * ~ P* * P*************************** 6 P Z P* LABEL ENTRIES f P ENTRY SYSLCR ~ P P* EXTERNALS SUBROUTINES * P EXTRN MOVE MOVE BLOCKS INSIDE MEMORY P EXTRN MOVING 2 P EXTRN X
0x1867cc…186960 Dummy {f00=0x0080, f01=0x0190, f02=»FIND TTAB-ADDRESS 0 P EXTRN MMENT FIND LAST USED ENTRY IN MM-TAB ( P EXTRN ERROR ERROR HANDLING ROUTINE N $ P EXTRN CMPADR COMPARE ADDRESSES z 2 P EXTRN NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 P EXTRN NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK
0x186960…186af4 (2, 243) Dummy {f00=0x0080, f01=0x0190, f02=»OUTINE t 4 P EXTRN GETAPP FIND APPLICATION AND ITS CONF.FILE P EXTRN QUEJOB QUEUE TASK F P f " P* SAVE AND WORK AREA EXTERNALS n " P EXTRN MMTAB WORK-TABLE 1 (MMU 6 P EXTRN TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 4 P EXTRN MMEND ABSOLUT
0x186af4…186c88 Dummy {f00=0x0080, f01=0x0190, f02=»NI t , P EXTRN LSTPAG DISPL. TO 'ENTRY-POINTER' P EXTRN MMBEG : P N P EJECT V $ P* SYSTEM CONTROL TABLE EXTERNALS d $ P EXTRN SCTSFA START OF FREE AREA P EXTRN SCTTCT TC:TAB ADDRESS P EXTRN SCTSTB A15 STACK-BASE " P EXTRN SCTEF
0x186c88…186e1c Dummy {f00=0x0080, f01=0x0190, f02=»RN SCTPAG PAGE TABLE ADDRESS 4 P EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE $ P EXTRN SCTBUG BUGGER ADDRESS , P EXTRN STKEND START OF SCRATCH-PAD AREA 0 P EXTRN STKMOV START OF MOVE-ROUTINE IN STACK * P EXTRN STKCOM START OF COMMON-PAD AR
0x186e1c…186fb0 Dummy {f00=0x0080, f01=0x0190, f02=»RRENT SEGMENT BASE ADDRESS v & P EXTRN TTB:MT DISPL. TO MMU TABLE " $ P EXTRN TTB:ID DISPL. TO TASK ID L , P EXTRN TTB:SB DISPL. TO SEGM. BLOCK PTR t , P EXTRN TTB:PP DISLL. TO PENDING POINTER P EJECT P P , P**********************
0x186fb0…187144 Dummy {f00=0x0080, f01=0x0190, f02=» EQU 1 0 = NO MMU P . PSWPBLK EQU 0 0 = NO SWAPPABLE WORK BLOCKS " P T 2 P********************************************* 2 P* * 2 P* APCTAB DISPLACEMENTS * 2 P* =====
0x187144…1872d8 Dummy {f00=0x0080, f01=0x0190, f02=»******* j P 4 PAPLADA EQU 22 APPL. DISC FILE ADDR. (2 WORDS) =1 ( PAPLREL EQU 18 APPL. RELOCATION BASE P , PAPLIOE EQU 0 APPLICATION RESTART ADDRESS | 8 PAPLDAD EQU 0 APPLICATION FILE DISC ADDR. (BIT 0-15) 8 PAPLLAC EQU 14 APPLICATION LOAD A
0x1872d8…18746c Dummy {f00=0x0080, f01=0x0190, f02=» EQU 10 APPLICATION MMU START ENTRY ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY , . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT X . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU PAPLSWB EQU 2 APPLICATION SWB * PAPLSTA EQU 16 APPL. PGM START ADDRESS
0x18746c…187600 Dummy {f00=0x0080, f01=0x0190, f02=»: | P F P* ENTRY ->! * SYSLCR ENTRY * ! N P* ! READ CONFIGURATION FILE AND BUILD SHADOW-TABLES ! PART 1 F P* ! ! F P* ! T:
0x187600…187794 (2, 244) Dummy {f00=0x0080, f01=0x0190, f02=» ! THE END OF MONITOR. ! F P* ! U:BTAB: ! F F P* ! -A TABLE OF 'NUMBER OF REAL UWB'S' IS BUILT IN ! F P* ! U:BTAB PROTOTYPE.
0x187794…187928 Dummy {f00=0x0080, f01=0x0190, f02=»DDRESSES IN DDIV-PROTOTYPE. ! n F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB ! ( F P* ! -RELOCATE ADDRESSES IN U:BTAB ! r H P* ! -MOVE SYSLCR (NOT PART 1)(AND IF THEY EXIST ! < P
0x187928…187abc Dummy {f00=0x0080, f01=0x0190, f02=»IN PART 2.A ! x F P* ------------------------------------------------------- 2 P EJECT | T P* ! -MOVE DDIV PROTOTYPE TO FOLLOW CONF.DATA ! PART 2.A F P* !
0x187abc…187c50 Dummy {f00=0x0080, f01=0x0190, f02=»MON DATA AREA. PROCESS CWB'S & UWB'S. ! v F P* ! -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO ! 0 F P* ! SHADOW-TABLE. ! z F P* ! !
0x187c50…187de4 Dummy {f00=0x0080, f01=0x0190, f02=», UWB'S ! X F P* ! AND DWB'S. ! F P* ! -BUILD MM-TABLE ! F P* ! -MOVE T:D ! F P* ! -MOVE D.T.
0x187de4…187f78 Dummy {f00=0x0080, f01=0x0190, f02=» -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE ! F P* ! W.B.-ADDRESS ! > F P* ! ! F P* ! P R O D A T
0x187f78…18810c Dummy {f00=0x0080, f01=0x018e, f02=»FOR SWB'S ! f F P* ! -ALLOCATE FIXED BUFFERS AND TERMINAL STACK ! F P* ! -MOVE T:A ! j F P* ! -INCLUDE DDIV-PROTOTYPE IN FREE AREA. ! F P*
0x18810c…1882a0 Dummy {f00=0x0080, f01=0x0190, f02=» P P* ! R E A L T A ! PART 2.B F P* ! BUILD REAL TASK-LOCAL DATA AREAS ! X F P* ! -FILL MM-TABLE IN TTAB ! F P* ! -COPY T:A'S AC
0x1882a0…188434 (2, 245) Dummy {f00=0x0081, f01=0x0190, f02=»LLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE ! : F P* !-----------------------------------------------------! J P* ! SUBROUTINES -COMMON TO ALL PARTS IN THIS PRO
0x188434…1885c8 Dummy {f00=0x0081, f01=0x0190, f02=»************* t . P* * . P* COMMON DISPLACEMENTS AND CONSTANTS * H . P* * z . P***************************************** P 0 PAPLTAB EQU 12 ADDRESS TO APPL. CON
0x1885c8…18875c Dummy {f00=0x0081, f01=0x018e, f02=»ON DATA n , PCONSTA EQU 2 START OF CONFIGURATION DATA ( PDATEND EQU 34 END OF DDIV PROTOTYPE @ $ PDYNSTA EQU 52 START OF DYNTAB:S l : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER * PFSTPAG EQU 22 1ST FREE PAGE (PHYSICAL) , PFYSPAG E
0x18875c…1888f0 Dummy {f00=0x0081, f01=0x0190, f02=» j * PMMFROM EQU 36 2ND MMU TABLE WORK AREA ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA 6 $ PM:REL EQU 16 RELOCATION CONSTANT b , PSYSBUF EQU 28 START OF TEMPORARY BUFFER ( PSWBFSA EQU 4 SWB-FILE START ADDRESS & PSWBFSE EQU 8 SWB-FILE END ADDRESS
0x1888f0…188a84 Dummy {f00=0x0081, f01=0x0190, f02=»G j $ PCOM01 EQU 40 COMMON WORK AREA 1 $ PCOM02 EQU 42 COMMON WORK AREA 2 2 $ PCOM03 EQU 44 COMMON WORK AREA 3 Z $ PCOM04 EQU 50 COMMON WORK AREA 4 P EJECT P*************************** P* TABLEN DISPLACEMENTS * P********
0x188a84…188c18 Dummy {f00=0x0081, f01=0x0190, f02=»:BTAB 'OLD' ADDRESS & PT:ATNW EQU 6 T:ATAB 'NEW' ADDRESS & PU:BTNW EQU 8 U:BTAB 'NEW' ADDRESS F & PS:BTNW EQU 10 S:BTAB 'NEW' ADDRESS p . PBTASK EQU 12 INDICATE BUGGER TASK PRESENT ( PSHADOW EQU 14 START OF SHADOW-TABLE & PT:ANO EQU 16 TOT
0x188c18…188dac Dummy {f00=0x0081, f01=0x0190, f02=» OF PDDIV AND S:GTAB | P EJECT & P********************************* * & P* SCRATCH-PAD DISPLACEMENTS * T & P********************************* ~ P* . PAPCBLK EQU 98 START OF APL. CONTROL BLOCK " PBIT EQU 72 SAVE FOR SUPER-LOOP (
0x188dac…188f40 Dummy {f00=0x0081, f01=0x0190, f02=»R FOR TABLE-SCANNING n 4 PFLAG EQU 80 REAL TASK DATA PROCESSING INDICATOR $ PMMREL1 EQU 96 PHYSICAL PAGE BASE T , PMOVADD EQU 102 ADDRESS CHANGE AFTER MOVE | 2 PMOVED EQU 104 INDICATOR IF BLOCK ALREADY MOVED PMOVLE1 EQU 106 MOVE LENGTH 1 PMO
0x188f40…1890d4 (2, 246) Dummy {f00=0x0081, f01=0x0190, f02=»NDICATE IF SPACE IN PDDIV , PRELOCA EQU 100 SAVE FOR RELOCATION BASE " PSWITCH EQU 114 D.T.INDICATOR R . PSHADST EQU 120 START OF NEXT SHADOW-TABLE v 6 PTADISP EQU 122 DISPLACEMENT IN T:A TO W.B. ADDRESS PUWB EQU 116 U.W.B. INDICATOR $ PWB
0x1890d4…189268 Dummy {f00=0x0081, f01=0x0190, f02=» 86 PSAVE06 EQU 88 PSAVE07 EQU 90 " 2 PSAEFA1 EQU 92 SAVE SCTEFA BITS 0-5 PAGE NUMBER 8 2 PSAEFA2 EQU 94 SAVE SCTEFA+2 BITS 4-15 "OFFSET" n P EJECT P P ***************** P ***************** P ** *
0x189268…1893fc Dummy {f00=0x0081, f01=0x018e, f02=»******** P* P:MTAB * P********** " PT:ATAB EQU 0 4 PU:BTAB EQU 2 H PP:BAS EQU 6 SEGMENT BASE . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' | & POPTION EQU 34 DISPL TO OPTION WORD ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS , PI:RS
0x1893fc…189590 Dummy {f00=0x0081, f01=0x0190, f02=» P********** ! 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL U:BTAB ! " PUPADDR EQU 2 PROTOTYPE ADDRESS ! J PUPNAME EQU 4 PROTOTYPE NAME ! p 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) ! P* ! . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB !
0x189590…189724 Dummy {f00=0x0081, f01=0x0190, f02=» ! P " P " $ P******************************* " " $ P* CONFIGURATION FILE (CONFIG) * " J $ P******************************* " r P " P* TASK DEFINITION BLOCK: " PTDBBT EQU 0 1A BLOCK TYPE " ( PTDBNT EQU TDBBT+1 2N NUMBER OF T
0x189724…1898b8 Dummy {f00=0x0081, f01=0x0190, f02=»VEL " t : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES # P* # J & PTDBFST EQU TDBNC+2 FIRST TERM DEF # T $ PTDC EQU 7 TERMINAL DEVICE CLASS # ~ PTLC EQU 7 LINE CONNECTION # ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH # P* # * PSDC EQU 7
0x1898b8…189a4c Dummy {f00=0x0081, f01=0x0190, f02=» NUMBER OF SPEC. DEV. CLASSES # | ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD $ & P* $ R P* $ & P* USER WORK BLOCK TYPE DEF. BLOCK $ f PUDBBT EQU 0 1A BLOCK TYPE $ , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES $ P* $ ( PUDBFST EQU UDBNU+3 FIRST UDB
0x189a4c…189be0 Dummy {f00=0x0081, f01=0x0190, f02=» EJECT $ P % P % P********* % & P* T:A * % 8 P********* % J PT:ASTA EQU -14 T:A START % 6 PCSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) % | $ PCSB EQU -12 CURRENT SEGMENT BASE % 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE L
0x189be0…189d74 (2, 247) Dummy {f00=0x0081, f01=0x0190, f02=»DRESS % p ( P (HERE: DISPLACEMENT TO T:A-START) & P & : PT:ATID EQU -4 TASK ID & F PSTKE EQU -2 STACK END & d PPA EQU 0 STACK POINTER & PSTKB EQU 2 STACK BASE & " PWATFST EQU 4 FIRST WAT-ELEMENT & P* & P* DSCB-RECORD: & PDSCB
0x189d74…189f08 Dummy {f00=0x0081, f01=0x0190, f02=»ER POINTER & P EJECT ' P ' P ' , P********* ' 8 P* T:D * ' J P********* ' ( PFCD EQU 0 DISPLACEMENT TO FCB IN T:A ' n , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) ' , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) ' 8 PDATTAB EQU 6 D
0x189f08…18a09c Dummy {f00=0x0081, f01=0x0190, f02=» * PSWBMSK EQU 12 MASK FOR SWB'S -"- ( * PCWBMSK EQU 14 MASK FOR CWB'S -"- ( 2 * PUWBMSK EQU 16 MASK FOR UWB'S -"- ( ` ( PDWBFST EQU 18 FIRST WORD IN DBLK-TAB ( P ( . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS ( P ( P ( P****
0x18a09c…18a230 Dummy {f00=0x0081, f01=0x018e, f02=» P --------- ------- ) PLMP1 EQU /400 SYSLOAD RUNS ) " PLMP2 EQU /200 READ ERROR ) D " PLMP3 EQU /100 MEMORY OVERFLOW ) d & PLMP4 EQU /80 FORMAT ERROR (CONFIG) ) PLMP5 EQU /40 TID ERROR ) " PLMP6 EQU /20 UWB OR SWB ERROR ) " PLMP7 EQU /10 MM-
0x18a230…18a3c4 Dummy {f00=0x0081, f01=0x018e, f02=» ) x P* OTHER CONSTA+STKCOMNTS * * P********************* * , P * J & PWBLEN EQU -4 LENGTH OF WORK-BLOCK * V , PDTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE * & PSWBLEN EQU 4 DISP TO LENGTH OF SWB * P * $ PFCBDD1 EQU 8 DISP TO FIRST DSET *
0x18a3c4…18a558 Dummy {f00=0x0081, f01=0x0190, f02=» $ PSTKSZ EQU 128 DEFAULT STACK-SIZE + P + , ( PSEGREC EQU 6 RECORD LENGTH IN S:GTAB + 8 8 PNUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB + d P + PTTBTID EQU 2 TID IN TTAB + . PT:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB + P + ( PNTPA E
0x18a558…18a6ec Dummy {f00=0x0081, f01=0x0190, f02=»EN EQU 24 LENGTH OF EACH APL.TABLE IN SCRATCH-PAD AREA + 0 PACBLEN EQU 26 APPL. CONTROL BLOCK LENGTH =1 , > P , r F P***************************************************************** , z F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * ,
0x18a6ec…18a880 Dummy {f00=0x0081, f01=0x0190, f02=» * , X F P***************************************************************** - P - P - h P - t PCALL FORM 16=/F697,16 - P EJECT - P - P - 2 P********************************************* - 2 P*******
0x18a880…18aa14 (2, 248) Dummy {f00=0x0081, f01=0x018e, f02=» * - f 2 P** ** . 2 P***** ***** . B 2 P********************************************* . x P . 2 P* READ CONFIGURATION FILE & BUILD * . 2 P* SHADOW-TABLES
0x18aa14…18aba8 Dummy {f00=0x0081, f01=0x018e, f02=» P / P EJECT / P / P* START OF PROGRAM PART 1 * / & P / J P / R PSYSLCR EQU * / ^ P* / r P* CLEAR SCRATCH-PAD AREA / | P* / 0 P LDKL A1,STKEND A1=START OF SCRATCH-PAD AREA / . P LDKL A2,STKMOV A2=END OF SCRATCH-PAD AREA /
0x18aba8…18ad3c Dummy {f00=0x0081, f01=0x0190, f02=» / P LD A1,SCTSFA 0 8 P ST A1,SHADST+STKEND SAVE START OF 1:ST SHADOW-TABLE 0 * P LDKL A10,STKEND START OF 1:ST APPTAB 0 Z . P ST P,SAVE01+STKEND SAVE LOCATION COUNTER 0 0 P CM APPLNO+STKCOM CLEAR APPL.NUMBER COUNTER 0 P* 0 P* GET APPLICATIO
0x18ad3c…18aed0 Dummy {f00=0x0081, f01=0x0190, f02=») SYA105 MORE APPLICATIONS OF THIS TYPE 0 P LD A2,APPLNO+STKCOM 1 0 P RF(NZ) SYA102 1 L P LDKL A2,LCREND 1 b P RF SYA104 1 z PSYA102 EQU * 1 6 P LDKL A2,SYA152 NO MORE APPLICATIONS OF THIS TYPE 1 PSYA104 EQU * 1 P AD A2,M:REL+STKCOM 1
0x18aed0…18b064 Dummy {f00=0x0081, f01=0x0190, f02=»* READ CONFIG FILE AND BUILD SHADOWTABLE 1 P 2 0 P IFT MMUPAG=0 2 < * P LD* A2,APLLAC,A1 GET START OF P:MTAB 2 R $ P LD A12,T:ATAB,A2 T:ATAB ADDRESS 2 & P SUKL A12,2 ADJUST FOR LENGTH-WORD 2 P ST A12,T:ATOD,A10 SAVE 2 , P LD A4,U:BTAB,A2 GET U
0x18b064…18b1f8 Dummy {f00=0x0081, f01=0x0190, f02=»,S:BTAB,A2 GET S:BTAB ADDRESS 2 $ P SUK A4,2 ADJUST FOR LENGTH WORD 3 & P ST A4,S:BTOD,A10 SAVE 3 N P XIF 3 l P IFT MMUPAG=0 3 x P* T:ATAB PROCESSING: 3 P 3 P LDR* A4,A12 T:ATAB-LENGTH 3 P LDR A3,A4 SAVE 3 > P AD A3,SHADST+STKEND ADD
0x18b1f8…18b38c Dummy {f00=0x0081, f01=0x0190, f02=»ET LOCATION COUNTER 3 z P CALL CMPADR 4 P RF(L) SYA110 OK! 4 0 " P LDKL A1,LMP3 MEMORY OVERFLOW 4 J P CALL ERROR 4 p ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS 4 P LDK A2,0 4 P* CLEAR T:ATAB SHADOW-TABLE: 4 P 4 PZERO SUK A3,2 NEXT 4
0x18b38c…18b520 Dummy {f00=0x0081, f01=0x0190, f02=»READ CONF.FILE AND GET TASK CLASS 4 P* 5 * 8 P LD A11,CSTAPP+STKEND GET CONF.START FOR THIS APPL. 5 4 " P LC A2,TDBBT,A11 GET BLOCKTYPE 5 p P CCK A2,'TT' TASK DEF? 5 P RF(E) SYA120 OK! 5 P LDK A1,LMP4 NO TASK PRESENT 5 P CALL ERROR 5 ( PSY
0x18b520…18b6b4 (2, 249) Dummy {f00=0x0082, f01=0x0190, f02=»A125 NO! 5 2 P ST A2,BTASK,A10 INDICATE BUGGER TASK PRESENT 6 " P RF SYA136 SKIP TO NEXT BLOCK 6 F PSYA125 LDR A8,A12 SAVE 6 l P LDR* A4,A12 T:ATAB LENGTH 6 P* 6 P* SCAN T:ATAB 6 * P* FIND CORRESPONDING TASK CLASS IN T:A 6 P* 6 PSYA1
0x18b6b4…18b848 Dummy {f00=0x0082, f01=0x0190, f02=»D (TID ERROR) 6 r P CALL ERROR 7 PSYA135 EQU * 7 * P CW A2,T:ATID,A6 TID EQUAL? 7 > P RB(NE) SYA130 NO! 7 b P* 7 | , P* STORE NUMBER OF TASKS IN SHADOW TABLE 7 P* FOR THIS TASK CLASS 7 P* 7 P SUR* A4,A12 T:ATAB LENGTH 7 P XIF 7
0x18b848…18b9dc Dummy {f00=0x0082, f01=0x0190, f02=»OM GET LAST ADDRESS 7 ~ P ANKL A2,/FFF GET OFFSET 8 P ST A2,SAEFA2+STKEND SAVE 8 < , P LD* A2,APLMMC,A1 GET FIRST TTAB ADDRESS 8 ^ $ P TL TTB:MT,A2 LOAD MMU REGISTERS 8 * P EL* A2,APLLAC,A1 GET START OF P:MTAB 8 $ P EL A12,T:ATAB,A2 T:ATAB ADDRESS 8
0x18b9dc…18bb70 Dummy {f00=0x0082, f01=0x0190, f02=»ADJUST FOR LENGTH WORD 8 $ P ST A4,U:BTOD,A10 SAVE IN APPTAB 9 P XIF 9 F P IFT MMUPAG+SWPBLK=2 9 R ( P EL A4,S:BTAB,A2 GET S:BTAB ADDRESS 9 n $ P SUK A4,2 ADJUST FOR LENGTH WORD 9 P ST A4,S:BTOD,A10 SAVE 9 P XIF 9 P IFT MMUPAG=1 9 P* T:AT
0x18bb70…18bd04 Dummy {f00=0x0082, f01=0x0190, f02=» 9 d > P AD A3,SHADST+STKEND ADD LAST SHADOW (MONITOR) END ADDRESS : P* CHECK ADDRESSES : J P : d $ P LDR A11,A3 END OF SHADOW-TABLE : l . P LD A9,SAVE01+STKEND GET LOCATION COUNTER : P CALL CMPADR : P RF(L) SYA110 OK! : " P LDKL A1,LMP3 MEMORY
0x18bd04…18be98 Dummy {f00=0x0082, f01=0x0190, f02=» SUK A3,2 NEXT : P CMR A3 CLEAR ; P CW A3,SHADST+STKEND ALL? ; , P RB(NE) SYA115 NO! ; N " P STR A4,A3 STORE TABLE LENGTH ; h P* ; ( P* READ CONF.FILE AND GET TASK CLASS ; P* ; 8 P LD A11,CSTAPP+STKEND GET CONF.START FOR THIS APPL. ; "
0x18be98…18c02c Dummy {f00=0x0082, f01=0x018e, f02=»L ERROR ; ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID < P SLL A2,8 . < < P LC A2,TDBMC+5,A11 ... < P P CWK A2,'TB' BUGGER TASK? < n P RF(NE) SYA125 NO! < 4 P ST A2,BTASK,A10 INDICATE 'BUGGER TASK PRESENT' < P RF SYA136 SKIP THIS BLOCK < PSYA1
0x18c02c…18c1c0 Dummy {f00=0x0082, f01=0x0190, f02=» P* = PSYA130 ADKL A8,2 NEXT T:A = P ELR A6,A8 GET T:A ADDRESS = 0 P SUK A4,2 = R P RF(NZ) SYA135 = d , P LDK A1,LMP5 NO PROT. FOUND (TID ERROR) = z P CALL ERROR = PSYA135 EQU * = P EL A5,T:ATID,A6 GET TID = P CWR A2,A5 TID EQUAL?
0x18c1c0…18c354 (2, 250) Dummy {f00=0x0082, f01=0x0190, f02=» A5,A12 = P SUR A4,A5 T:ATAB LENGTH > P XIF > 0 . P NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB > < ( P LC A5,TDBNT,A11 GET NUMBER OF TASKS > n P SLL A5,8 > P LC A5,TDBNT+1,A11 > P CALL CONVRT > . P LD A2,SHADST+STKEND START OF SHADOW TABLE >
0x18c354…18c4e8 Dummy {f00=0x0082, f01=0x0190, f02=»36 CALL NXTBLK > PSYA137 EQU * ? P CCK A2,'TT' ? * & P RB(E) SYA120 NEXT TASK DEF BLOCK ? > P CCK A2,'CC' ? h P RF(NE) SYA140 ? | * P ADKL A11,1 STEP TO NUMBER OF COM.DEV. ? P CALL NXTCOM SKIP COMMON DEF ? PSYA140 CCK A2,'UU' ? P RF(NE) SY
0x18c4e8…18c67c Dummy {f00=0x0082, f01=0x0190, f02=»A141 EQU * ? P IFT SWPBLK=1 @ P LCR A2,A11 @ ( P CCK A2,'SS' @ < P RF(NE) SYA143 @ P P LD A8,S:BTOD,A10 @ f P CALL USWBTP @ P XIF @ PSYA143 EQU * @ 2 P LD A2,SHADST+STKEND GET START OF SHADOW-TABLE @ $ P ST A2,SHADOW,A10 SAVE IN APPT
0x18c67c…18c810 Dummy {f00=0x0082, f01=0x0190, f02=»TKEND SAVE START OF NEXT SHADOW-TABLE @ P ADKL A10,TABLEN NEXT APPTAB A . P LDKL A1,SYA100 A R P AD A1,M:REL+STKCOM A j ( P ABR A1 CHECK IF MORE APPLICATIONS? A P EJECT A L P***********************************************************************
0x18c810…18c9a4 Dummy {f00=0x0082, f01=0x0190, f02=»BTAB PROTOTYPE TABLE * A ` L P* ================================================================= * B L P* * B p L P* REFERENCED IN: SYSLCR *
0x18c9a4…18cb38 Dummy {f00=0x0082, f01=0x0190, f02=»B PROTOTYPE TABLE * B ` L P* A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * C L P* * C p L P* EXIT: *
0x18cb38…18cccc Dummy {f00=0x0082, f01=0x0190, f02=» * C ` L P* * D L P* SUBROUTINES: GETNUM,ERROR * D n L P* * D
0x18cccc…18ce60 Dummy {f00=0x0082, f01=0x0190, f02=» D P ADKL A11,1 E P LDR A6,A11 E * P CALL GETNUM PACK 3 DIG. RESULT IN A5 E 0 $ P LDR A1,A5 SAVE NUMBER OF UWB'S E ^ PSYA142 EQU * E P LDR A12,A8 E " P LDR* A3,A12 LENGTH OF U:BTAB E ( P ADKL A11,UDBFST-1 FIRST UDB RECORD E PSYA145 E
0x18ce60…18cff4 (2, 251) Dummy {f00=0x0082, f01=0x0190, f02=»MPARE W. 1:ST WORD IN PROTOTYP E | * P RF(E) FRSTOK FIRST TWO CHARACTERS OK! F & 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S F T P RF(NN) SYA150 F P LDK A1,LMP6 UWB NOT FOUND F P CALL ERROR F PSYA150 EQU * F ( P ADKL A12,UP:REC ADD TO NEXT REC
0x18cff4…18d188 Dummy {f00=0x0082, f01=0x018e, f02=» P G P* PROTOTYPE FOUND * G P G , 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG G 8 P LDR A6,A11 G t P CALL GETNUM CONVERT G 2 P SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE) G . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE G
0x18d188…18d31c Dummy {f00=0x0082, f01=0x018e, f02=» G * P CALL GETNUM PACK 3 DIG. RESULT IN A5 H $ P LDR A1,A5 SAVE NUMBER OF UWB'S H 6 PSYA142 EQU * H ^ P LDR A12,A8 START OF TABLE H r P ELR A3,A12 LENGTH OF U:BTAB H ( P ADKL A11,UDBFST-1 FIRST UDB RECORD H PSYA145 EQU * H 0 P LCR A2,A11 GET
0x18d31c…18d4b0 Dummy {f00=0x0082, f01=0x0190, f02=» H ` P CWR A2,A4 I P RF(E) FRSTOK FIRST WORD OK! I 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S I > P RF(NN) SYA150 I r P LDK A1,LMP6 UWB NOT FOUND I P CALL ERROR I PSYA150 EQU * I ( P ADKL A12,UP:REC ADD TO NEXT RECORD I P RB SYA145
0x18d4b0…18d644 Dummy {f00=0x0082, f01=0x0190, f02=»4,/FF I P CWR A4,A2 J P RB(NE) SYA147 .NEQ. J P EJECT J < P J J P* PROTOTYPE FOUND * J V P******************* J r P J 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG J P LDR A6,A11 J P CALL GETNUM CONVERT J 4 P E
0x18d644…18d7d8 Dummy {f00=0x0082, f01=0x0190, f02=» NO OF TYPES IN CONFIG FILE J P RB(P) SYA142 K $ P ADKL A11,UDBFST-1 K : P RTN A14 K T P XIF K d P EJECT K p PSYA152 EQU * K ~ P* K $ P* GET START OF SYSLCR AFTER MOVE K P* K : P LD A7,SHADST+STKEND TO-ADDRESS (AFTER SHADOW-TABLES) K
0x18d7d8…18d96c Dummy {f00=0x0082, f01=0x0190, f02=»PART2 K t , P AD A2,M:REL+STKCOM ADD RELOCATION BASE L P LDR A3,A2 L > P SUR A2,A7 MOVE LENGTH L P P NGR A2,A2 L n . P ST A2,RELOCA+STKEND SAVE RELOCATION BASE L P IFT MMUPAG=1 L P* L F P* CREATE MM-TABLE FOR SYSLCR (AND IF THEY EXIST SYSLCO
0x18d96c…18db00 Dummy {f00=0x0082, f01=0x0190, f02=»A2,MMREL1+STKEND SAVE PHYSIVAL PAGE L " P SRL A2,2 SHIFT FOR MM-PAGING M , P LDKL A11,MMDDIV M R , P ADR A11,A13 GET MM-TABLE START ADDRESS M j P LDK A1,16 SET COUNTER M ( PSYA157 STR A2,A11 STORE PAGE POINTER M P ADKL A11,2 NEXT ENTRY M P ADKL
0x18db00…18dc94 (2, 252) Dummy {f00=0x0082, f01=0x0190, f02=» M 2 P ST A7,SHADST+STKEND SAVE (LOGICAL) TO-ADDRESS N $ P LDR A2,A13 A13=START OF SYSINI N > P SUR A2,A3 LENGTH N f , P ST A2,MOVLE1+STKEND SAVE MOVE LENGTH 1 N * P ADKL A2,INILEN ADKLD LENGTH OF SYSINI N , P ST A2,MOVLE2+STKEND SAVE LENGTH TO MOVE N
0x18dc94…18de28 Dummy {f00=0x0082, f01=0x0190, f02=» N " P* CALCULATE DDIV FROM-ADDRESS O P* O . , P CM APPLNO+STKCOM RESET NUMBER OF APPL. O 8 * P LDKL A10,STKEND START OF 1:ST APPTAB O h PSYA156 EQU * O P LDKL A5,OUT01 O P AD A5,M:REL+STKCOM O $ P LDKL A1,'CR' CREDIT APPLICATION O P CAL
0x18de28…18dfbc Dummy {f00=0x0082, f01=0x0190, f02=»DDRESS TO S:GTAB O z $ P LDR* A9,A2 GET START OF P:MTAB P 0 P ST A3,OPTION,A9 STORE OPTION WORD IN P:MTAB P @ 0 P LD A3,I:RSTE,A9 GET INTERPRETER ERROR ENTRY P t " P ST A3,APLIOE,A1 STORE IN ACB P , P LD A3,NUMSEG,A2 GET NUMBER OF SEGMENTS P P XIF P
0x18dfbc…18e150 Dummy {f00=0x0082, f01=0x0190, f02=»N WORD IN P:MTAB P t 0 P EL A3,I:RSTE,A9 GET INTERPRETER ERROR ENTRY Q " P ST A3,APLIOE,A1 STORE IN ACB Q L , P EL A3,NUMSEG,A2 GET NUMBER OF SEGMENTS Q r P XIF Q P LDR A1,A2 Q . P LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH Q " P CALL MULT A2*A3 RESUL
0x18e150…18e2e4 Dummy {f00=0x0082, f01=0x0190, f02=» OF DDIV AFTER MOVE Q r " P SUR A6,A1 RELOCATION FOR DDIV R P EJECT R B P R P P R X P R d 0 P* RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * R p . P* CALCULATE TOTAL (=REAL) LENGTH * R . P* REMOVE NOT USED ENTRIES IN T:ATAB * R . P
0x18e2e4…18e478 Dummy {f00=0x0082, f01=0x0190, f02=»IATE POINTERS R P S ( P LD A8,T:ATOD,A10 GET T:ATAB ADDRESS S P LDR* A3,A8 GET LENGTH S J P ADR A3,A8 END OF T:ATAB S h P ST A3,ENDADD+STKEND SAVE S 4 P LD A5,SHADOW,A10 GET START OF T:ATAB SHADOW-TAB S P LDR A4,A5 2:ND POINTER S & P LDR A
0x18e478…18e60c Dummy {f00=0x0082, f01=0x0190, f02=»* SCAN T:ATAB: S P T " PSYA160 ADKL A8,2 TAKE NEXT T:A T $ P ADK A5,2 NEXT T:A IN SHADOW-TAB T D P CW A8,ENDADD+STKEND T l P RF(E) SYA170 ALL DONE T P LDR* A1,A8 GET T:A T * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB T , P RB(Z) SYA160 THIS T:A I
0x18e60c…18e7a0 Dummy {f00=0x0082, f01=0x0190, f02=»OW-TAB ADDRESS T v ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS U 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) U B P LDR* A12,A8 GET T:A-ADDRESS U ~ P ADR A12,A6 RELOCATE U . P STR A12,A2 STORE ADDR. (EV. ON NEW PLACE) U P* RELOCATE W.B.-ADDRESSE
0x18e7a0…18e934 (2, 253) Dummy {f00=0x0083, f01=0x018e, f02=»RESS U j PSYA165 SUK A7,1 DEC. COUNTER V P RB(N) SYA160 TAKE NEXT T:A V 0 P ADRS A6,A1 RELOCATE V T P XIF V p P IFT MMUPAG=1 V | P V P* INITIATE POINTERS V P V P LD A8,T:ATOD,A10 T:ATAB V P ELR A3,A8 GET LENGTH V P ADR A3,A8 E
0x18e934…18eac8 Dummy {f00=0x0083, f01=0x0190, f02=» V v & P LDR A2,A8 2:ND POINTER IN T:ATAB W & P LDK A3,2 SET 'NEW' T:ATAB COUNTER W 2 . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR W P W P* SCAN T:ATAB: W P W " PSYA160 ADKL A8,2 TAKE NEXT T:A W $ P ADK A5,2 NEXT T:A IN SHADOW-TAB W P CW A8
0x18eac8…18ec5c Dummy {f00=0x0083, f01=0x0190, f02=»0 THIS T:A IS NOT USED!!!!! W " P ADR A11,A7 ACCUMULATE LENGTH X $ , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH X J , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS X z ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS X 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE
0x18ec5c…18edf0 Dummy {f00=0x0083, f01=0x0190, f02=».B.-ADDRESSES X P Y $ P EL A12,T:DAD,A1 GET T:D-ADDRESS Y $ P EL A7,WATLEN,A12 LENGTH OF WAT Y F . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS Y n PSYA165 SUK A7,1 DEC. COUNTER Y P RB(N) SYA160 TAKE NEXT T:A Y P ST A10,SAVE04+STKEND SAVE Y
0x18edf0…18ef84 Dummy {f00=0x0083, f01=0x0190, f02=» A1,4 NEXT W.B. Y P RB SYA165 Z P Z * PSYA170 EQU * Z 2 > P ST* A3,SHADOW,A10 STORE NEW TABLE LENGTH IN SHADOW-TABLE Z F P IFT MMUPAG=1 Z $ P ES* A3,T:ATOD,A10 AND IN T:ATAB Z P XIF Z P IFT MMUPAG=0 Z $ P ST* A3,T:ATOD,A10 AND IN T:ATAB
0x18ef84…18f118 Dummy {f00=0x0083, f01=0x0190, f02=»T A2,T:ANO,A10 SAVE TOT. NUMBER OF T:A'S Z P [ 0 P EJECT [ < " P****************************** [ J $ P* RELOCATE ADDRESSES IN U:BTAB * [ p $ P* (REAL LENGTH=PROTOTYPE LEN.) * [ $ P******************************** [ P [ P IFT MMUPAG=0 [ $ P L
0x18f118…18f2ac Dummy {f00=0x0083, f01=0x0190, f02=»YA185 ALL DONE! [ P ADRS A6,A5 RELOCATE P XIF 4 P IFT MMUPAG=1 @ $ P LD A5,U:BTOD,A10 U:BTAB ADDRESS V P ELR A3,A5 TABLE LENGTH ~ P ADK A5,2 P SUK A3,2 SUB LENGTH-WORD PSYA180 RF(Z) SYA185 P ST A10,SAVE04+STKEND STOR
0x18f2ac…18f440 Dummy {f00=0x0083, f01=0x0190, f02=» 8 P ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP ] P SUK A3,UP:REC ] @ P RB SYA180 ] V P EJECT ] h PSYA185 EQU * ] v P IFT MMUPAG+SWPBLK=2 ] P* ] $ P* COMPUTE REAL LENGTH OF S:BTAB ] P* ] $ P LD A5,S:BTOD,A10 S:BTAB ADDRESS ] "
0x18f440…18f5d4 (2, 254) Dummy {f00=0x0083, f01=0x0190, f02=»ANNED! ] n $ P EL A4,2,A5 GET PROT. W.B.-ADDR. ^ P ADR A4,A6 RELOCATE ^ 6 P ES A4,2,A5 STORE IT BACK ^ R , P EL A4,UPNUMB-1,A5 GET NUMBER OF COPIES ^ t P ANK A4,/FF GET RIGHT BYTE ^ . PSYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE! ^ P ADK A2,2 INCREM
0x18f5d4…18f768 Dummy {f00=0x0083, f01=0x0190, f02=» $ P SUK A3,UP:REC DECREMENT LENGTH _ P RB SYA190 _ , P XIF _ > P IFT SWPBLK-MMUPAG=1 _ J $ P LD A5,S:BTOD,A10 S:BTAB ADDRESS _ f * P LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE _ P LDR A2,A3 SAVE _ " P SUK A3,2 EXCLUDE LENGTH WORD _ , PSYA195 RF(Z) S
0x18f768…18f8fc Dummy {f00=0x0083, f01=0x0190, f02=» LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES _ P ANK A4,/FF ` 0 . PSYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE! ` D P ADK A2,2 INCREMENT LENGTH ` v ( P SUK A4,1 DECREMENT NUMBER OF COPIES ` P RB SYA196 ` 8 PSYA198 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTY
0x18f8fc…18fa90 Dummy {f00=0x0083, f01=0x0190, f02=»S:BTAB ADDRESS ` n 0 P ST A2,S:BLEN,A10 SAVE LENGTH OF REAL S:BTAB a P XIF a J P EJECT a V P a d 6 P* RELOCATE T:ATAB- AND U:BTAB-ADDRESSES IN P:MTAB a l P a P ADS A6,T:ATOD,A10 a P ADS A6,U:BTOD,A10 a P ADKL A10,TABLEN NEXT APPTAB a
0x18fa90…18fc24 Dummy {f00=0x0083, f01=0x0190, f02=»LCO AND SYSLBA) a l P* AND SYSINI b P* b , ( P LD A2,SHADST+STKEND GET TO-ADDRESS b 6 * P OR A2,MMREL1+STKEND PHYSICAL ADDRESS b b P LDR A5,A2 b , P AD A5,MOVLE1+STKEND A5=START OF SYSINI b P LDR A7,A2 b & P LDKL A1,PART2 GET START OF PART2 b
0x18fc24…18fdb8 Dummy {f00=0x0083, f01=0x0190, f02=»ATION BASE b r , P ADS A4,M:REL+STKCOM NEW RELOCATION BASE c P EJECT c B P* c P , P* JUMP TO MOVE ROUTINE IN SYSTEM-STACK c Z P* c P* INPUT : A1=FROM-ADDRESS c P* A2=TO-ADDRESS c P* A3=LENGTH c P* A7=RETURN-A
0x18fdb8…18ff4c Dummy {f00=0x0083, f01=0x0190, f02=»GRAM PART 2.A * c " P***************************** d P d > P d F PPART2 EQU * d R " P LDR A8,P LOAD TEMP. STACKBASE d f ( P ADK A5,2 ADD FOR RELOCATION ROUTINE d P CFR A8,A5 d P* d P* MOVE CONF.FILE d P* d * P LD A1,CONSTA+STKC
0x18ff4c…1900e0 Dummy {f00=0x0083, f01=0x0190, f02=» UPDATE START OF CONF. DATA d | $ P ABL STKMOV JUMP TO MOVE-ROUTINE e $ * P LDKL A10,STKEND START OF 1:ST APPTAB e L 0 P CM APPLNO+STKCOM CLEAR APPL.NUMBER COUNTER e z P* e P* GET APPLICATION e P* e PSYA200 EQU * e $ P LDKL A1,'CR' CREDIT APP
0x1900e0…190274 (2, 255) Dummy {f00=0x0083, f01=0x0190, f02=»STKEND GET PAGE e P ST A2,FYSPAG+STKCOM f * P LD A2,SAEFA2+STKEND GET DISPLACEMENT f 4 P ST A2,LSTADR+STKCOM f b P XIF f ~ P IFT MMUPAG=0 f P LD A2,SCTEFA+2 f P ST A2,LSTADR+STKCOM f P XIF f . P LDKL A2,LCREND NO MORE APPL. OF THIS TY
0x190274…190408 Dummy {f00=0x0083, f01=0x0190, f02=» LDR A4,A1 SAVE f * P LD A2,APLLAC,A1 GET ADDRESS TO S:GTAB g P IFT MMUPAG=0 g F $ P LDR* A9,A2 GET START OF P:MTAB g * P ST A9,APLLAC,A1 SAVE START OF P:MTAB g P* g P* CALCULATE DDIV END g P LDR A5,A9 DDIV END g " P SU A5,DDIVFR,A10 EN
0x190408…19059c Dummy {f00=0x0083, f01=0x0190, f02=»S:GTAB g p P* h " P LDR A3,A9 GET START OF P:MTAB h . P SUR A3,A2 GET LENGTH OF PDDIV AND S:GTAB h > P IM PDDIV+STKEND SET FLAG h p ( P LD A1,SCTEFA+2 GET END OF FREE AREA h * P CWR A1,A2 START OF S:GTAB = SCTEFA+2 h P RF(NE) SYA206 NO! h $ P C
0x19059c…190730 Dummy {f00=0x0083, f01=0x0190, f02=»PAG=1 h " P ELR A9,A2 GET START OF P:MTAB i * P ST A9,APLLAC,A1 SAVE START OF P:MTAB i 4 P* i b P* CALCULATE DDIV END i l P* i P LDR A5,A9 DDIV END i " P SU A5,DDIVFR,A10 END - START i & P AD A5,DDIVST+STKEND ADD NEW START i P LDR A6,A5
0x190730…1908c4 Dummy {f00=0x0083, f01=0x0190, f02=»RESS i j P ADR A6,A13 RELOCATE j & P LDR* A6,A6 GET MM-TABLE CONTENTS j ( P ST A6,FSTPAG+STKCOM SAVE j R " P ANKL A5,/FFF GET DISPLACEMENT j t P ST A5,FSTADR+STKCOM SAVE j P* j P* CHECK IF MEMORY OVERFLOW j P* j P LDR A3,A9 SAVE A9 j
0x1908c4…190a58 Dummy {f00=0x0083, f01=0x0190, f02=» RF(L) SYA208 NOK! j P LDR A9,A5 GET DISPLACEMENT k P LD A11,SAEFA2+STKEND k > P CALL CMPADR k P RF(NL) SYA201 OK! k p PSYA208 EQU * k P LDKL A1,LMP3 k P CALL ERROR k PSYA201 EQU * k P LDR A9,A3 RELOAD k P* k ( P* CHECK
0x190a58…190bec Dummy {f00=0x0083, f01=0x0190, f02=» SRL A3,11 ADJUST FOR ADDRESSING k . P ADKL A3,MMTAB ADD RELATIVE START ADDRESS l ( P ADR A3,A13 RELOCATE l Z & P LDR* A3,A3 GET MM-TABLE CONTENTS l v P ANKL A3,/FC00 l P CW A3,SAEFA1+STKEND l P RF(NE) SYA202 PAGE EQUAL? l " P LDR A3,A2 YES! CO
0x190bec…190d80 Dummy {f00=0x0083, f01=0x0190, f02=»ET EQUAL? l ~ P* m * P* CALCULATE LENGTH OF PDDIV AND S:GTAB m P* m J PSYA202 EQU * m T " P LDR A3,A2 GET START OF S:GTAB m h P ANKL A3,/FFF GET OFFSET m , P SUKL A3,/800 MORE THAN 2K LEFT IN PAGE? m P RF(NP) SYA204 m " P LDR A3,A2 GET START
0x190d80…190f14 (2, 256) Dummy {f00=0x0083, f01=0x0190, f02=» m PSYA204 EQU * n " P LDR A3,A9 GET START OF P:MTAB n * P SUR A3,A2 LENGTH OF PDDIV AND S:GTAB n B P IM PDDIV+STKEND SET FLAG n p 6 P ST A3,PDDIVL,A10 STORE LENGTH OF PDDIV AND S:GTAB n PSYA203 EQU * n P* n P* STORE MM-TABLES ADDRESSES n
0x190f14…1910a8 Dummy {f00=0x0083, f01=0x0190, f02=»L A4,MMTAB n " P ADR A4,A13 GET TABLE ADDRESS o 0 P ST A4,MMFROM+STKCOM SAVE 2:ND TABLE ADDRESS o 8 P XIF o l P* o x P* MOVE DDIV o P* o P LDR A3,A9 o & P LD A1,DDIVFR,A10 GET FROM ADDRESS o ( P LD A2,DDIVST+STKEND GET TO-ADDRESS o P
0x1910a8…19123c Dummy {f00=0x0083, f01=0x0190, f02=»0 o P LD A8,STKCOM+TOTSGM PAGING? p P RF(NZ) PAGING YES! p . & P LD A8,SCTOPT NO! GET OPTION WORD p J P BIT 0:AS,1:BA,2:CO,3:CR p t , P ANKL A8,/6000 ANY BASIC OR COBOL APPL. p P RF(Z) NOSGMT NO! p 6 PPAGING LDKL A8,0 RESET FSTADR+STKCOM IF
0x19123c…1913d0 Dummy {f00=0x0083, f01=0x0190, f02=» LDR* A4,A1 GET WORD p P STR A4,A2 STORE q P ADK A1,2 q 4 P ADK A2,2 q F P SUK A3,2 DEC LENGTH q X P RB(NN) MOVNXT q t P LDR A3,A9 SAVE q & P LDR A11,A2 GET START OF FREE AREA q ( P LD A9,SCTEFA+2 GET END OF FREE AREA q P CALL CMPADR q
0x1913d0…191564 Dummy {f00=0x0083, f01=0x018e, f02=» RESERVE 5 WORDS FOR DEBUGGER q P XIF r & P IFT MMUPAG=1 r 2 P CALL XMOVE r H & P* REMOVE DDIV ENTRIES IN MM-TABLE r P r " P LDR A3,A9 GET P:MTAB ADDRESS r , P SUK A3,10 RESERVE 5 WORDS FOR DEBUGGER r , P LDR A1,A3 GET P:MTAB ADDRESS-5WORDS
0x191564…1916f8 Dummy {f00=0x0083, f01=0x0190, f02=» r z , P ADR A1,A2 P:MTAB-5WORDS START ENTRY =3 s P LDKL A4,/FC00 s 8 PSYA206 CWR A1,A2 ALL? s N P RF(E) SYA207 YES! s l , P STR A4,A1 REPLACE ENTRY WITH PAGE ERROR s P SUK A1,2 s P RB SYA206 s PSYA207 EQU * s P* s P* CHANGE TABLE -
0x1916f8…19188c Dummy {f00=0x0083, f01=0x0190, f02=» XIF s P ANKL A3,/FFFE EVEN ADDRESS t . P ST A3,LSTADR+STKCOM SAVE END OF FREE AREA t 0 P t b P t j P t r . P* RESERVE SPACE FOR REAL T:A- AND U:BTAB * t ~ P t P t P IFT MMUPAG=1 t ( P LDKL A3,MMTAB GET CURRENT MM-TABLE t P ADR A
0x19188c…191a20 Dummy {f00=0x0083, f01=0x0190, f02=» SAVE PHYSICALL PAGE t | * P LD A3,T:ANO,A10 GET LENGTH OF T:ATAB u P LDR A5,A3 SAVE u J * P CALL CALLMO RESERVE SPACE FOR T:ATAB u b & P TL* MMTO+STKCOM SET CORRECT TABLE u " P ESR A5,A2 STORE T:ATAB LENGTH u . P ST A2,T:ATNW,A10 SAVE NEW T:ATAB ADDRES
0x191a20…191bb4 (2, 257) Dummy {f00=0x0084, f01=0x0190, f02=»ESS u p $ P ES A2,T:ATAB,A9 STORE IN P:MTAB v $ P* RESERVE PLACE FOR T:AID TABLE v 4 P v P LDR A3,A5 GET LENGTH v d P CALL CALLMO v P TL* MMTO+STKCOM v P LDR A3,A9 GET P:MTAB v & P ADK A3,T:AID ADD TO ADDRESS WORD v 0 P ESR A5,A2 STORE T
0x191bb4…191d48 Dummy {f00=0x0084, f01=0x0190, f02=»SS v r ( P TL* MMFROM+STKCOM SET CORRECT TABLE w P ELR A3,A5 GET LENGTH w 6 P LDR A5,A3 SAVE w T P CALL CALLMO RESERVE SPACE w l 4 P ST A2,U:BTNW,A10 SAVE NEW (REAL) U:BTAB ADDRESS w P XIF w P IFT MMUPAG=0 w ( P LD* A3,U:BTOD,A10 GET U:BTOD LE
0x191d48…191edc Dummy {f00=0x0084, f01=0x0190, f02=» STORE LENGTH w P ADK A2,2 x : P ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB x ( * P LD A3,T:ANO,A10 GET LENGTH OF T:ATAB x f P LDR A5,A3 SAVE x * P CALL CALLMO RESERVE SPACE FOR T:ATAB x " P STR A5,A2 STORE T:ATAB LENGTH x . P ST A2,T
0x191edc…192070 Dummy {f00=0x0084, f01=0x0190, f02=» x P LDR A3,A5 LENGTH y P CALL CALLMO y " P STR A5,A2 STORE LENGTH y 6 $ P ADK A2,2 ADJUST FOR LENGTH-WORD y V , P ST A2,T:AID,A9 STORE ADDRESS IN P:MTAB y ~ P XIF y P IFT MMUPAG=1 y & P TL* MMTO+STKCOM SET CORRECT TABLE y P ESR A5,A2 STO
0x192070…192204 Dummy {f00=0x0084, f01=0x018e, f02=»* RESERV SPACE FOR REAL S:BTAB TABLE y P* z . $ P LD A5,S:BTOD,A10 S:BTAB ADDRESS z 8 0 P LD A3,S:BLEN,A10 GET LENGTH OF REAL S:BTAB z ` P LDR A5,A3 SAVE z P CALL CALLMO z P ST A2,S:BTNW,A10 z P XIF z P IFT MMUPAG+SWPBLK=2 z P TL* M
0x192204…192398 Dummy {f00=0x0084, f01=0x0190, f02=» P STR A5,A2 { P ADK A2,2 { P ST A2,S:BTAB,A9 { ( P CALL B:RSWT { @ P XIF { T P IFT MMUPAG=1 { ` $ P TL* MMFROM+STKCOM RELOAD TABLE { v P XIF { P EJECT { P { P* BUILD COMMON DATA AREA * { P************************** { P
0x192398…19252c Dummy {f00=0x0084, f01=0x0190, f02=» { P IFT MMUPAG=1 | P ELR A3,A8 GET LENGTH | P XIF | < P ADR A3,A8 | H 4 P ST A3,ENDADD+STKEND SAVE END OF T:ATAB ADDRESS | Z PSYA210 EQU * | ( P CM UWB+STKEND INDICATE CWB-SCANNING | P ADKL A8,2 | " P CW A8,ENDADD+STKEND ALL DONE? |
0x19252c…1926c0 Dummy {f00=0x0084, f01=0x0190, f02=» P IFT MMUPAG=1 } P EL A7,CWBMSK,A12 } P XIF } 4 P CALL SHIFT SUPER-LOOPA } @ PSYA220 RF(Z) UWBCOM ALL! } ` P CALL MOVCOM } P CALL SKIFTA } P RB SYA220 } P EJECT } P } P } PUWBCOM EQU * } P* SEARCH UWB'S: }
0x1926c0…192854 (2, 258) Dummy {f00=0x0084, f01=0x0190, f02=» P EL A7,UWBMSK,A12 ~ P XIF ~ P CALL SHIFT ~ * " PSYA230 RB(Z) SYA210 ALL DONE! ~ > PSYA235 CALL MOVCOM ~ d PSYA240 CALL SKIFTA ~ ~ P RB SYA230 ~ P EJECT ~ P ~ * P* TASK CLASS DATA CONFIGURATION PART * ~ * P**********************
0x192854…1929e8 Dummy {f00=0x0084, f01=0x0190, f02=» CM UWB+STKEND INDICATE CWB ~ ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS $ P CW A8,ENDADD+STKEND P P RF(E) SYA270 ALL T:A'S DONE l ( P CALL T:DADD GET T:D ADDRESS TO A12 P P* CALCULATE LENGTH OF T:D P 2 P LD A1,WATLEN,A12 NUMBER O
0x1929e8…192b7c Dummy {f00=0x0084, f01=0x0190, f02=» GET NUMBER OF START-POINTS P ADR A3,A12 ADD T:D-ADDRESS $ P LDR* A3,A3 . H 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH ^ P CALL MULT AND MULTIPLY P ADK A3,2 'NUMBER-WORD' P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS
0x192b7c…192d10 Dummy {f00=0x0084, f01=0x0190, f02=»GET CWBMASK ~ P XIF P IFT MMUPAG=1 ( P* INITIATE MM-ADDRESS TABLE POINTER 6 P b ( P LD A1,SHADOW,A10 SHADOW TABLE START j * P AD* A1,SHADOW,A10 ADDRESS TABLE START P ST A1,SAVE02+STKEND SAVE & PSYA250 CM UWB+STKEND INDICATE CWB
0x192d10…192ea4 Dummy {f00=0x0084, f01=0x0190, f02=»TAB-ADDRESS ~ P CALL MOVMMT MOVE MM-TABLE " P* FILL MM-TABLE ADDRESS TABLE 6 P P LD A1,SAVE02+STKEND d & P ADK A1,2 INCREMENT TABLE POINTER P ST A1,SAVE02+STKEND RESTORE P STR A2,A1 FILL TABLE ( P CALL T:DADD GET T:D ADDRESS
0x192ea4…193038 Dummy {f00=0x0084, f01=0x0190, f02=»A12 NUMBER OF BYTES-1 IN DBLKTAB P ADK A1,2 ( P ANKL A1,/FFFE EVEN ADDRESS : ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST ^ , P LDR A3,A1 GET NUMB. OF START-POINTS... P ADR A3,A12 . P ELR A3,A3 . 0 P LDK A2,STPREC GET STARTPOINTS RECOR
0x193038…1931cc Dummy {f00=0x0084, f01=0x018e, f02=» P CALL CALLMO MOVE T:D P ELR A1,A8 GET T:A ADDRESS " * P ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS D " P EL A7,CWBMSK,A12 GET CWBMASK r P XIF P P CALL MOVCLA P EJECT P P P* TASK CLASS DATA UWB'S * P
0x1931cc…193360 Dummy {f00=0x0084, f01=0x0190, f02=» P XIF P IFT MMUPAG=1 P EL A7,UWBMSK,A12 & P XIF @ P CALL MOVCLA L P EJECT ` P n P z " P* MOVE DT:S OF SWB'S & TWB'S * " P****************************** P PSYA260 EQU * P IFT MMUPAG=0 P LD
0x193360…1934f4 (2, 259) Dummy {f00=0x0084, f01=0x0190, f02=»L A7,SWBMSK,A12 P RF(Z) SYA265 NONE P CALL SKRITT 2 PSYA265 EL A7,TWBMSK,A12 F P XIF f P RB(Z) SYA250 r P CALL SKRITT P RB SYA250 P PSYA270 RF PRODAT P EJECT P P 4 P**
0x1934f4…193688 Dummy {f00=0x0084, f01=0x0190, f02=» ** h 4 P** ** 4 P*********************************************** H PSKRITT EQU * P CALL SHIFT PNO RF(NZ) NES P RTN A14 PNES CALL GETWB P CALL MOVDT 0 P CM NEWAD2+STKEN
0x193688…19381c Dummy {f00=0x0084, f01=0x0190, f02=»TOTYPE AREA * | & P********************************* PPRODAT EQU * @ * P LD A1,BTASK,A10 BUGGER TASK INCLUDED? T P RF(Z) SYA275 NO! 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 ( P CM TTB:PP,A2 CLEAR PENDING POINTER P LDR A8,A2
0x19381c…1939b0 Dummy {f00=0x0084, f01=0x0190, f02=» h P CALL CALLMO GET P:BAS * P LD A3,TTB:ID,A8 GET TRABUG'S TASK ID & P IFT MMUPAG=0 T 8 P LD A1,APCBLK+STKEND GET START OF APL. CONTROL TABLE j ( P LD A1,APLLAC,A1 GET START OF P:MTAB 4 P ST A3,TRABUG,A1 SAVE TRABUG'S TASK ID IN P:MTAB
0x1939b0…193b44 Dummy {f00=0x0084, f01=0x0190, f02=» z P RF(Z) SYA272 NO P XIF 0 P ST A2,TTB:CB,A8 SAVE ADDRESS TO CSB-POINTER , . P CM TTB:SB,A8 CLEAR SEGMENT BLOCK ADDRESS ` PSYA272 EQU * 2 P SUKL A2,CSB ADD DISPL. TO CURRENT SEGMENT BAE P ST A2,TTB:SA+26,A8 SAVE A13 P IFT MMU
0x193b44…193cd8 Dummy {f00=0x0084, f01=0x0190, f02=»OAD CORRECT TABLE ~ 4 P ES A3,TRABUG,A1 SAVE TRABUG'S TASK ID IN P:MTAB P EL A1,P:BAS,A1 GET P:BAS R ( P TL MMBEG,A8 LOAD TRABUG'S MMU-TABLE t , P ES A1,CSB,A2 STORE CURRENT SEGMENT BASE ( P TL* MMFROM+STKCOM RELOAD DDIV TABLE P XIF P
0x193cd8…193e6c Dummy {f00=0x0084, f01=0x0190, f02=» P CW A8,ENDADD+STKEND P RF(E) SYA290 ALL DONE P IFT MMUPAG=0 > " P LDR* A12,A8 GET T:D ADDRESS.. T P LD A12,T:DAD,A12 . z 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P " P* CALCULATE LENGTH OF DSCB'S * " P***
0x193e6c…194000 Dummy {f00=0x0084, f01=0x018e, f02=»ENGTH | ( P CALL MULT A3() X (A2) RESULT IN A3 & P ST A3,CSN,A1 SAVE LENG OF DSCB'S : P LDR A2,A1 d P LDR A4,A1 v P ADKL A2,T:ASTA ( P AD A4,DATTAB,A12 GET START OF DSCB P SUR A2,A4 LENGTH OF DAT'S , P ADR A3,A2 A3=LENGTH OF DS
0x194000…194194 (2, 260) Dummy {f00=0x0084, f01=0x0190, f02=» l , P ADKL A2,T:ASTA INCREMENT TO FIRST WORD 6 PSYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START 8 " P LD A2,STKB,A1 GET STACK SIZE r $ P ST A2,CSE,A1 AND SAVE TEMPORARY 8 P LD A2,APCBLK+STKEND GET START OF APL.CONTROL TABLE ( P LD A2,APLLA
0x194194…194328 Dummy {f00=0x0084, f01=0x0190, f02=»ALL MOVT:A MOVE T:A * P STR A2,A8 STORE NEW ADDRESS IN T:ATAB P XIF J P IFT MMUPAG=1 V * P CALL GETTAB SET CORRECT TTAB-ADDRESS l , P LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS P 2 P* GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE P
0x194328…1944bc Dummy {f00=0x0084, f01=0x0190, f02=»E IN WORK-AREA ~ $ P TL MMDDIV,A13 RELOAD DDIV TABLE P CALL MMENT GET ENTRY > " P ST A3,T:DSAV,A2 SAVE IN TTAB 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S " P* CALCULATE LENGTH OF DSCB'S * " P*** *** P
0x1944bc…194650 Dummy {f00=0x0084, f01=0x0190, f02=»2) RESULT IN A3 | & P ES A3,CSN,A1 SAVE LENG OF DSCB'S P LDR A2,A1 B P ADKL A2,T:ASTA T & P EL A4,DATTAB,A12 GET DISPLACEMENT l P ADR A4,A1 GET START OF DSCB P SUR A2,A4 LENGTH OF DAT'S , P ADR A3,A2 A3=LENGTH OF DSCB'S AND DAT'S
0x194650…1947e4 Dummy {f00=0x0084, f01=0x0190, f02=»STA INCREMENT TO FIRST WORD 6 PSYA285 ES A2,CIA,A1 SAVE DISPLACEMENT TO T:A-ESART $ " P EL A2,STKB,A1 GET STACK SIZE ^ & P ES A2,CSE,A1 AND SAVE (TEMPORARY) 8 P LD A2,APCBLK+STKEND GET START OF APL.CONTROL TABLE ( P LD A2,APLLAC,A2 GET START OF
0x1947e4…194978 Dummy {f00=0x0084, f01=0x0190, f02=» ES A2,CSB,A1 AND SAVE " P CALL ALLBUF ALLOCATE BUFFERS P CALL MOVT:A MOVE T:A D * P ESR A2,A8 STORE NEW ADDRESS IN T:ATAB b P XIF P RB SYA280 NEXT P EJECT PSYA290 EQU * 6 P IM FLAG+STKEND INDICATE REAL DATA-PART PROCESSING
0x194978…194b0c Dummy {f00=0x0084, f01=0x0190, f02=»L A1,/F000 P SRL A1,11 P ADKL A1,MMDDIV $ P ADR A1,A13 < P LDR* A1,A1 P P ST A1,FSTPAG+STKCOM d P ANKL A2,/FFF P ST A2,FSTADR+STKCOM P XIF P IFT MMUPAG=0 P ST A1,DATEND+STKCOM P XIF P* MOVE T:ATA
0x194b0c…194ca0 Dummy {f00=0x0084, f01=0x018e, f02=» OF TABLE ADDRESS P ST A2,ENDADD+STKEND SAVE & P LD A1,T:ATOD,A10 GET FROM-ADDRESS < P LDR* A3,A1 MOVE-LENGTH f P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A10 SAVE P CALL MOVE P XIF P IFT MMUPAG=1 ( P TL* MMTO+STKCOM L
0x194ca0…194e34 (2, 261) Dummy {f00=0x0085, f01=0x0190, f02=» 8 P ST A2,ENDADD+STKEND SAVE 'END-OF-T:ATAB-CONDITION' * P LD A1,T:ATOD,A10 GET PROTOTYP T:ATAB @ P ELR A3,A1 GET LENGTH n P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A10 SAVE P CALL XMOVE P XIF P P EJECT P P
0x194e34…194fc8 Dummy {f00=0x0085, f01=0x0190, f02=»OAD PART 2.B ** ~ 4 P** ** & 4 P************************************************ ^ P 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * 4 P* SHADOW TABLE *
0x194fc8…19515c Dummy {f00=0x0085, f01=0x018e, f02=» * P P PREALTA EQU * , P LD A5,SHADOW,A10 START OF SHADOW TABLE . . P LD A8,T:ATOD,A10 T:ATAB PROTOTYP ADDRESS ^ * P LD A7,T:ATNW,A10 REAL T:ATAB ADDRESS P ADK A7,2 P ST A8,SAVE01+STKEND SAVE A8 * PSYA310 LD A8,SAVE01+
0x19515c…1952f0 Dummy {f00=0x0085, f01=0x0190, f02=» $ P ADK A5,2 A5=SHADOW TAB POINTER P IFT MMUPAG=0 , 2 P CALL GETTAB GET CORRESPONDING TTAB AND QUEUE B P IMR A4 SET QUEUE TASK FLAG x : P ST A3,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) " P LD A1,SCTOPT GET OPTION WORD P ANK A1,
0x1952f0…195484 Dummy {f00=0x0085, f01=0x0190, f02=»T A1,TTB:CB,A2 STORE IN TTAB & PSYA320 LDR* A1,A8 GET T:A ADDRESS $ $ P STR A1,A7 STORE IN REAL T:ATAB N P ADK A7,2 v $ P LDR* A6,A5 GET NUMBER OF COPIES P EJECT PSYA340 SUK A6,1 P RF(P) SYA345 NEXT TASK 2 P CALL CHTAID REPLA
0x195484…195618 Dummy {f00=0x0085, f01=0x0190, f02=»A | P IM T:ATID,A2 UPDATE TID $ P STR A2,A7 STORE IN REAL T:ATAB * " P LDR A8,A7 CHANGE T:A TO COPY R 2 P CALL GETTAB GET CORRESPONDING TTAB AND QUEUE x P IMR A4 SET QUEUE TASK FLAG 0 P ST A3,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB " P L
0x195618…1957ac Dummy {f00=0x0085, f01=0x0190, f02=»SB ADDRESS TO CURRENT SEGMENT BASE " P ST A1,TTB:CB,A2 STORE IN TTAB * . PSYA348 ADK A7,2 NEXT ENTRY IN REAL T:ATAB P 2 P CALL TWBSWB MOVE TWB'S AND RESERVE FOR SWB'S " P CALL ALLBUF ALLOCATE BUFFERS P XIF P IFT MMUPAG=1 * P* GET AC
0x1957ac…195940 Dummy {f00=0x0085, f01=0x0190, f02=»LE ADDRESS z P TLR A1 LOAD & P ST A1,MMFROM+STKCOM SAVE ADDRESS & ( P CALL GETTAB GET CORRESPONDING TTAB P P IMR A4 SET QUEUE TASK FLAG | : P ST A3,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) P LDR A1,A3 GET T:A-ADDRESS 0 P ADKL A1
0x195940…195ad4 (2, 262) Dummy {f00=0x0085, f01=0x018e, f02=»DKL A2,MMTAB GET WORK TABLE ADDRESS P ADR A2,A13 , " P TSR A2 SAVE CLASS-DATA TABLE @ , P* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE f P P SUK A2,2 START OF TABLE P LDKL A12,/FC00 PSYA320 SUK A1,2 NEXT ENTRY P CWR A1,A2 ALL?
0x195ad4…195c68 Dummy {f00=0x0085, f01=0x0190, f02=» $ P ESR A1,A7 STORE IN REAL T:ATAB $ P EL A12,T:DAD,A1 GET T:D ADDRESS , P EL A1,T:ATID,A1 GET TID T ( P ADK A7,2 NEXT ENTRY IN REAL T:ATAB t $ P LDR* A6,A5 GET NUMBER OF COPIES PSYA340 SUK A6,1 P RF(P) SYA345 NEXT TASK 2 P CALL CH
0x195c68…195dfc Dummy {f00=0x0085, f01=0x018e, f02=»RRESPONDING TTAB | P IMR A4 SET QUEUE TASK FLAG & P CALL MOVMMT MOVE MM-TABLE TO TTAB < P CALL MOVT:A MOVE T:A f $ 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 P LDR A8,A2 GET T:A-ADDRE
0x195dfc…195f90 Dummy {f00=0x0085, f01=0x0190, f02=» , P ADK A7,2 NEXT FREE WORD IN REAL T:ATAB P A2=NEW ADDRESS 4 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S N $ P LD A1,MMTO+STKCOM GET TO-TABLE 2 P ST A1,MMFROM+STKCOM CHANGE T:A ADDRESS-TABLE P TLR A1 " P CALL ALLBUF ALLOCATE BU
0x195f90…196124 Dummy {f00=0x0085, f01=0x018e, f02=» p P EL A1,T:ATID,A3 GET TID P ADK A1,1 UPDATE TID ( $ P ES A1,T:ATID,A3 RESTORE IN T:A D P XIF l P RB SYA340 x P* ( P* SCAN TCTAB FOR TASKS TO BE QUEUED P* , PSYA350 LD* A9,SCTTCT GET LENGTH OF TCTAB $ P AD A9,SCTTCT
0x196124…1962b8 Dummy {f00=0x0085, f01=0x0190, f02=» P LDR* A5,A9 GET TTAB ADDRESS ( P ANKL A5,/FFFE SKIP QUEUE TASK FLAG ( $ P CWR* A5,A9 QUEUE TASK FLAG SET? T P RB(E) SYA355 NO | $ P STR A5,A9 RESET QUEUE TASK FLAG ( P LD A12,TTB:SA+26,A5 GET T:A ADDRESS , P LD A2,APCBLK+STKEND GET ADDRESS
0x1962b8…19644c Dummy {f00=0x0085, f01=0x0190, f02=»D,A12 GET T:D 0 P EL A2,NTPA,A2 GET INTERPRETER START ADDRESS P XIF J P IFF MMUPAG=1 V P LD A12,T:DAD,A12 GET T:D l 0 P LD A2,NTPA,A2 GET INTERPRETER START ADDRESS P XIF P CALL QUEJOB QUEUE TASK P RB SYA355 P EJECT
0x19644c…1965e0 Dummy {f00=0x0085, f01=0x0190, f02=»FLAG x : P RF(NZ) SYA370 MORE SPACE IN CURRENT PDDIV AND S:GTAB? P IFT MMUPAG=0 J . P LD A1,LSTADR+STKCOM N0! GET LAST ADDRESS ` P ST A1,SCTEFA+2 SAVE P XIF P IFT MMUPAG=1 6 P LD A1,FYSPAG+STKCOM GET LAST PHYSICAL PAGE NUMBER
0x1965e0…196774 (2, 263) Dummy {f00=0x0085, f01=0x0190, f02=»TORE z P* P* ADJUST END OF FREE AREA P* 8 ( P LD A1,LSTADR+STKCOM GET LAST ADDRSS B P ANKL A1,/FFF n 0 P LD A2,FYSPAG+STKCOM GET LAST PHYSICAL PAGE P SLL A2,2 P ORR A1,A2 P ST A1,SCTEFA+2 P LD A1,FYSPAG+STKCOM
0x196774…196908 Dummy {f00=0x0085, f01=0x0190, f02=» A1 CHECK IF MORE APPLICATIONS P EJECT & < P******************************************************* 4 < P* SUBROUTINES - COMMON TO ALL PARTS IN THIS PROGRAM * t < P******************************************************* P EJECT 2 P**
0x196908…196a9c Dummy {f00=0x0085, f01=0x0190, f02=»REA TO ** n 2 P** BUILD DDIV ** 2 P** ** J 2 P** INPUT: PDDIV = IF "1" INDICATE THAT ** 2 P** MORE SPACE IN PDDIV ** 2 P** PDDIVL = LENGTH O
0x196a9c…196c30 Dummy {f00=0x0085, f01=0x018e, f02=» ** 2 P** WORK REGISTERS: A2 ** 4 2 P** ** j 2 P** SUBROUTINES: MOVING ** 2 P** **
0x196c30…196dc4 Dummy {f00=0x0085, f01=0x0190, f02=» ` P RF(Z) CALL:10 NO! & P LD A2,PDDIVL,A10 YES! GET LENGTH " P SUR A2,A3 L " P RF(NN) CALL:20 ENOUGH SPACE? ^ P IFT MMUPAG=0 , P LD A2,SCTEFA+2 N0! GET END OF FREE AREA , P ST A2,LSTADR+STKCOM UPDATE LAST ADDRESS P XIF P I
0x196dc4…196f58 Dummy {f00=0x0085, f01=0x018e, f02=»G+STKCOM UPDATE PHYSICAL PAGE NUMBER P XIF , P CM PDDIV+STKEND RESET FLAG 8 PCALL:20 EQU * $ P ST A2,PDDIVL,A10 UPDATE PDDIVL r PCALL:10 EQU * P CALL MOVING P RTN A14 P EJECT P 4 P** G E T W B
0x196f58…1970ec Dummy {f00=0x0085, f01=0x0190, f02=» ^ 4 P** GET WORK BLOCK ADDRESS AND DISPLACE- ** 4 P** MENT IN T:A ** @ 4 P** ** x 4 P** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** 4 P** BIT=BIT NUMBER SAT I
0x1970ec…197280 Dummy {f00=0x0085, f01=0x0190, f02=»** A11=W.B.-ADDRESS ** 4 P** WBADD=POINTER TO W.B.-ADD IN T:A ** 8 4 P*********************************************** p P PGETWB EQU * $ P LD A4,BIT+STKEND GET BIT NUMBER $ P SLL A4,2 ADJUST FOR ADD
0x197280…197414 (2, 264) Dummy {f00=0x0085, f01=0x0190, f02=» t P ADR A11,A4 ADD DISPLACEMENT P ST A11,WBADD+STKEND SAVE , " P LDR* A11,A11 GET W.B.-ADDRESS N P XIF t P IFT MMUPAG=1 2 P LD A11,FLAG+STKEND REAL TASK-DATA PROCESSING? P RF(Z) GETW10 NO! " P TL* MMTO+STKCOM LOAD TO-TABLE
0x197414…1975a8 Dummy {f00=0x0085, f01=0x0190, f02=».-ADDRESS | ( P TL* MMFROM+STKCOM RELOAD FROM-TABLE P XIF > P RTN A14 J P EJECT Z P h P t 8 P** M O V W B ** 8 P** ** 8 P**
0x1975a8…19773c Dummy {f00=0x0085, f01=0x0190, f02=» ** p 8 P** INPUT: A11=W.B.-ADDRESS ** 8 P** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS ** X 8 P** WORK-REGS: A1-A4 ** 8 P****************************************************
0x19773c…1978d0 Dummy {f00=0x0085, f01=0x0190, f02=»1 LENGTH P CALL CALLMO 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT $ 8 P ST* A2,WBADD+STKEND UPDATE W.B.-ADDRESS AFTER MOVE ^ P XIF P IFT MMUPAG=1 P ELR A3,A1 LENGTH P CALL CALLMO 6 P SUKL A2,WBLEN ADJUST TO-ADDRE
0x1978d0…197a64 Dummy {f00=0x0085, f01=0x0190, f02=»LE t > PMOVW10 ES* A2,WBADD+STKEND UPDATE W.B.-ADDRESS AFTER MOVE ( P TL* MMFROM+STKCOM RELOAD FROM-TABLE L P XIF x P RTN A14 P EJECT P P : P** M O V D T ** : P**
0x197a64…197bf8 Dummy {f00=0x0085, f01=0x0190, f02=».T.-ADDRESS IS UPDATED ** t : P** ** " : P** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** ` : P** OUTPUT: A3=POINTER TO W.B.-ADDRESS ** : P** WORK REGS: A1-A4
0x197bf8…197d8c Dummy {f00=0x0085, f01=0x0190, f02=»POINTER TO W.B-ADDRESS IN WAT x & P SUK A1,2 POINTER TO D.T.-ADDRESS & P IFT MMUPAG=0 P P LDR* A1,A1 D.T.-ADDRESS f * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD " P AD A1,MOVADD+STKEND RELOCATE P LDR* A3,A1 LENGTH P CALL CALLMO P
0x197d8c…197f20 Dummy {f00=0x0085, f01=0x0190, f02=» P IFT MMUPAG=1 P ELR A1,A1 D.T.-ADDRESS * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD : " P AD A1,MOVADD+STKEND RELOCATE h P ELR A3,A1 LENGTH P CALL CALLMO P LD A3,WBADD+STKEND P SUKL A2,DTLEN P SUKL A1,DTLEN 4 P ES
0x197f20…1980b4 (2, 265) Dummy {f00=0x0086, f01=0x0190, f02=»W B ** r < P** ** " < P** ** b < P** SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. ** < P** AND UPDATE ADDRESSES (W.B. & D.T.)
0x1980b4…198248 Dummy {f00=0x0086, f01=0x0190, f02=» ** b < P** A8= POINTER TO T:A-ADDRESS ** < P** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) ** R < P** WORK.REGS: A1-A4 ** < P******************************************************
0x198248…1983dc Dummy {f00=0x0086, f01=0x0190, f02=»VD10 LD A4,BIT+STKEND GET BIT NUMBER " P ADK A4,1 FIRST WAT-ELEMENT =1 , P IFT MMUPAG=0 R P LD A2,WATLEN,A12 h P XIF P IFT MMUPAG=1 P EL A2,WATLEN,A12 P XIF " P SUR A2,A6 ACTUAL TABLE LENGTH P ADR A6,A12 A6=TABLE POI
0x1983dc…198570 Dummy {f00=0x0086, f01=0x0190, f02=» SHARED W.B.? P XIF P IFT MMUPAG=1 " * P EL A10,DWBFST,A6 CHECK IF SHARED W.B. 8 " P SRC A6,1 RIGHT OR LEFT BYTE? f P RF(N) MOVD30 RIGHT! P ANKL A10,/FF00 P ECR A10,A10 P RF MOVD40 PMOVD30 ANKL A10,/FF " PMOVD40
0x198570…198704 Dummy {f00=0x0086, f01=0x0190, f02=»ALCULATE DISPLACEMENT IN T:A P IFT MMUPAG=0 $ P AD A4,WATLEN,A12 : P XIF T P IFT MMUPAG=1 ` P EL A10,WATLEN,A12 v P ADR A4,A10 P XIF P LDR A6,A4 SAVE TABLE INDEX P SUK A4,1 P SLL A4,2 P ADK A4,WATFST+2
0x198704…198898 Dummy {f00=0x0086, f01=0x0190, f02=»TR A3,A4 CHANGE W.B.-ADDRESS P XIF $ P IFT MMUPAG=1 0 2 P LD A2,FLAG+STKEND REAL DATA-PART PROCESSING? F P RF(Z) MOVD50 NO! | " P TL* MMTO+STKCOM LOAD TO-TABLE PMOVD50 EQU * . P ELR A10,A8 A4=POINTER TO W.B.-ADDR IN T:A P ADR A
0x198898…198a2c Dummy {f00=0x0086, f01=0x0190, f02=» LD A2,SWITCH+STKEND WB-ADDRESS CHANGE ONLY? P RB(NZ) MOVD10 YES! 4 & P LD A10,SAVE07+STKEND RESTORE A10 P P CALL MOVDT MOVE D.T. z P RB MOVD10 PMOVD60 EQU * $ P LD A6,SAVE05+STKEND RESTORE A6 & P LD A10,SAVE07+STKEND RESTORE A10
0x198a2c…198bc0 Dummy {f00=0x0086, f01=0x0190, f02=» ** v 4 P** COPY TWB'S AND RESERVE SPACE FOR SWB'S ** 4 P** ** V 4 P** INPUT : A8=ACTUAL T:A-ADDRESS ** 4 P** A12=T:D-ADDRESS ** 4 P** WORK-R
0x198bc0…198d54 (2, 266) Dummy {f00=0x0086, f01=0x0190, f02=»,SAVE04+STKEND SAVE A7 " P LD A7,TWBMSK,A12 GET TWB MASK P IFT MMUPAG=1 D " P EL A7,TWBMSK,A12 GET TWB MASK Z P XIF P CALL SHIFT " PTWSW10 RF(Z) TWSW20 ALL DONE! P CALL GETWB P CALL MOVWB , P ST A2,NEWAD2+STKEND SAVE
0x198d54…198ee8 Dummy {f00=0x0086, f01=0x0190, f02=» P EJECT P P " P* RESERVE SPACE FOR SWB'S * . P*************************** R P XIF v P IFT SWPBLK-MMUPAG=1 P LD A7,SWBMSK,A12 P XIF P IFT MMUPAG+SWPBLK=2 P EL A7,SWBMSK,A12 P XIF P I
0x198ee8…19907c Dummy {f00=0x0086, f01=0x018e, f02=»,NEWAD2+STKEND SAVE W.B.-ADDRESS & P CALL MOVDWB CHANGE DWB- ADDRESSES ( P CALL SKIFTA R P RB TWSW30 f PTARZAN EQU * x P XIF $ P LD A7,SAVE04+STKEND RESTORE A7 P RTN A14 P EJECT P P 4 P** A L L B
0x19907c…199210 Dummy {f00=0x0086, f01=0x0190, f02=» ^ 4 P** TERMINAL STACK ** 4 P** ** @ 4 P** INPUT : A8=ACTUAL T:A-ADDRESS IN T:ATAB ** x 4 P** A12=T:D-ADDRESS ** 4 P** CSN (IN T:A)=LENGTH
0x199210…1993a4 Dummy {f00=0x0086, f01=0x0190, f02=»** WORK-REGS. :A1-A4,A9,A11 ** 4 P************************************************ 8 P p PALLBUF EQU * x P IFT MMUPAG=0 2 P LD A9,FSTADR+STKCOM GET BUFFER START ADDRESS P LDR* A1,A8 GET T:A-ADDRESS ( P LD A3,CSN,A
0x1993a4…199538 Dummy {f00=0x0086, f01=0x0190, f02=»TART ADDRESS ~ P XIF P IFT MMUPAG=1 P ELR A1,A8 GET T:A-ADDRESS 6 ( P EL A3,CSN,A1 GET DSCB TOTAL LENGTH X P RF(Z) ALLB70 NO DSCB * P EL A11,DATTAB,A12 GET DISPL. TO DAT'S P ADR A1,A11 START OF DAT'S " P LDR A11,A1 SAVE START
0x199538…1996cc Dummy {f00=0x0086, f01=0x0190, f02=» END OF DSCB-RECORDS l : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD P CW A1,SAVE04+STKEND ALL? Z P RF(E) ALLB70 YES! | P IFT MMUPAG=0 : P LD A3,BL,A1 GET LENGTH OF THE REQUESTED BUFFER.ZERO? P RB(Z) ALLB10 YES! * P LD
0x1996cc…199860 Dummy {f00=0x0086, f01=0x0190, f02=» $ P LDR A2,A11 GET START OF DSCB'S P SUR A2,A3 GET SHARED DSCB , $ P LD A4,BP,A2 GET BUFFER POINTER N & P ST A4,BP,A1 STORE IN CURRENT DSCB v P XIF P IFT MMUPAG=1 0 P EL A3,BL,A1 GET LENGTH OF REQ.BUFFER.ZERO? P RB(Z) ALLB10 YES!
0x199860…1999f4 (2, 267) Dummy {f00=0x0086, f01=0x0190, f02=»T IN A3 z $ P LDR A2,A11 GET START OF DSCB'S P SUR A2,A3 GET SHARED DSCB 8 $ P EL A4,BP,A2 GET BUFFER POINTER Z & P ES A4,BP,A1 STORE IN CURRENT DSCB P XIF P RB ALLB10 P P IFT MMUPAG=0 : PNOTSH ADK A3,2 ONE EXTRA WORD US
0x1999f4…199b88 Dummy {f00=0x0086, f01=0x0190, f02=»2,2 BUFFER MASK AT DISPL. -2 & P ST A2,BP,A1 STORE BUFFER ADDRESS $ P RB ALLB10 N PNOTS10 LDR A2,A9 SAVE ` P XRR A9,A9 ~ , P SUR A9,A2 MAX LENGTH OF REM. MEM. AREA P LDR A4,A11 SAVE REGISTER P LDR A11,A3 LENGTH OF BUFFER P C
0x199b88…199d1c Dummy {f00=0x0086, f01=0x0190, f02=»TOP p P ADKL A9,1 P ANKL A9,/FFFE EVEN ADDRESS P* CHECK ADDRESS: B P Z $ P LD A11,LSTADR+STKCOM DATA START f P CALL CMPADR P RF(NL) ALLB60 OK! PALLB50 LDKL A1,LMP3 P CALL ERROR PALLB60 EQU * P LDR A11
0x199d1c…199eb0 Dummy {f00=0x0086, f01=0x018e, f02=»E BUFFER END ADDRESS x . P ST A9,SCTSFA UPDATE START OF FREE AREA =2 P XIF N P IFT MMUPAG=1 Z : PNOTSH ADK A3,2 ONE EXTRA WORD USED BY THE INTERPRETER p . P CALL CALLMO ALLOCATE BUFFER FROM 'BOTTOM' & P ADK A2,2 BUFFER MASK AT DISPL. -2 &
0x199eb0…19a044 Dummy {f00=0x0086, f01=0x0190, f02=» PALLB70 EQU * P IFT MMUPAG=0 P LDR* A1,A8 GET T:A-ADDRESS 2 P LD A3,CSE,A1 GET STACK SIZE V P RF(NZ) ALLB80 z $ P LDK A3,STKSZ DEFAULT STACKSIZE PALLB80 EQU * , P ST A3,STKB,A1 STORE ACTUAL STACK SIZE P CALL CALLMO
0x19a044…19a1d8 Dummy {f00=0x0086, f01=0x0190, f02=» SUK A2,2 ADDRESS TO LAST WORD $ P ST A2,STKB,A1 STORE STACK BASE & * P STR A2,A1 STORE CURRENT STACK POINTER N P XIF | P IFT MMUPAG=1 P ELR A1,A8 GET T:A-ADDRESS P EL A3,CSE,A1 GET STACK SIZE * P RF(NZ) ALLB80 USER DEFINED STACK SI
0x19a1d8…19a36c Dummy {f00=0x0086, f01=0x0190, f02=»,STKE,A1 STORE STACK END " P EL A3,STKB,A1 GET STACK SIZE " P ADR A2,A3 COMPUTE STACK BASE F " P SUK A2,2 ADDRESS TO LAST WORD l $ P ES A2,STKB,A1 STORE STACK BASE * P ESR A2,A1 STORE CURRENT STACK POINTER P XIF P RTN A14 P EJE
0x19a36c…19a500 Dummy {f00=0x0086, f01=0x0190, f02=»VE T:A AND UPDATE DATA SET ADDRESSES IN ** 4 P** FORMAT CONTROL BLOCK ** 2 4 P** ** j 4 P** INPUT : A8=T:A-ADDRESS ** 4 P** A12=T:D-ADDRESS
0x19a500…19a694 (2, 268) Dummy {f00=0x0086, f01=0x0190, f02=»A1-A4 ** 4 P************************************************ * P b PMOVT:A EQU * j " P ST A10,SAVE07+STKEND SAVE A10 ~ P IFT MMUPAG=0 P LDR* A1,A8 GET T:A-ADDRESS ( P LD A3,WATLEN,A12 GET LENGTH OF WAT
0x19a694…19a828 Dummy {f00=0x0086, f01=0x0190, f02=» P CALL CALLMO P LDR* A4,A8 " P SU A2,CIA,A4 NEW T:A-ADDRESS , $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS R P z 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * P P LD A3,FCD,A12 ANY FCD? P RF(Z) MOVT10 NO! P ADR A3,
0x19a828…19a9bc Dummy {f00=0x0086, f01=0x0190, f02=» : P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS) PMOVT05 EQU * B P ADS A4,FCBDD1,A3 V P ADS A4,FCBDD2,A3 p P ADS A4,FCBDD3,A3 P ADS A4,FCBDD4,A3 , PMOVT10 LD A10,SAVE07+STKEND RESTORE A10 P RTN A14 P XIF
0x19a9bc…19ab50 Dummy {f00=0x0086, f01=0x0190, f02=»L A10,CIA,A1 $ P SUR A3,A10 ADD DISPL. TO START P ADK A3,WATFST A3=LENGTH < P ADR A1,A10 FROM-ADDRESS & P LD A10,SAVE07+STKEND RESTORE A10 | P CALL CALLMO P ELR A4,A8 P EL A10,CIA,A4 P SUR A2,A10 NEW T:A-ADDRESS " P S
0x19ab50…19ace4 Dummy {f00=0x0086, f01=0x0190, f02=» RF(Z) MOVT10 NO! P LDR A4,A2 GET T:A-ADDRESS 2 P LD A10,FLAG+STKEND REAL TASK DATA PROCESSING? < P RF(Z) MOVT05 NO! r 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) PMOVT05 EQU * P ADR A3,A2 START OF FCB " P TL* MMTO+ST
0x19ace4…19ae78 Dummy {f00=0x0086, f01=0x0190, f02=» P ES A10,FCBDD2,A3 P EL A10,FCBDD3,A3 " P ADR A10,A4 < P ES A10,FCBDD3,A3 P P EL A10,FCBDD4,A3 j P ADR A10,A4 P ES A10,FCBDD4,A3 ( P TL* MMFROM+STKCOM RELOAD FROM-TABLE , PMOVT10 LD A10,SAVE07+STKEND RESTORE A10
0x19ae78…19b00c Dummy {f00=0x0086, f01=0x0190, f02=» * D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * 8 D P* ===================================== * D P* *
0x19b00c…19b1a0 Dummy {f00=0x0086, f01=0x0190, f02=» * X D P* ENTRY: A8 - FIRST T:A POINTER * D P* A6 - SECOND T:A POINTER * X D P* BIT - BIT NUMBER SET IN CWB- OR UWB-MASK * D P*
0x19b1a0…19b334 (2, 269) Dummy {f00=0x0087, f01=0x0190, f02=» * x D P* * 0 D P* WORK REGISTERS: A1,A2 * x D P* * D P
0x19b334…19b4c8 Dummy {f00=0x0087, f01=0x018e, f02=» P D P*************************************************************** P EJECT P PICBMVD EQU * ^ P LDKL A1,/8000 SET BIT 0 r 8 P LD A2,BIT+STKEND GET BIT NUMBER IN CWB- OR UWB-MASK " PIBAM10 RF(Z) IBAM20 BIT FOUND & P SRL A1,1 SHIFT BIT
0x19b4c8…19b65c Dummy {f00=0x0087, f01=0x0190, f02=» P IFT MMUPAG=0 & PIBAM20 LDR* A2,A8 GET T:A POINTER $ P LDR* A3,A2 GET MOVED BLOCK MASK H , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED p * P STR A3,A2 STORE NEW MOVED BLOCK MASK P* & P* UPDATE MOVED MASK IN SECOND T:A P*
0x19b65c…19b7f0 Dummy {f00=0x0087, f01=0x0190, f02=»A2 STORE NEW MOVED BLOCK MASK P XIF & P IFT MMUPAG=1 2 $ PIBAM20 ELR A2,A8 GET T:A POINTER H $ P ELR A3,A2 GET MOVED BLOCK MASK p , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED * P ESR A3,A2 STORE NEW MOVED BLOCK MASK P* & P* UPDAT
0x19b7f0…19b984 Dummy {f00=0x0087, f01=0x0190, f02=»E CURRENT BLOCK MOVED ~ * P ESR A3,A2 STORE NEW MOVED BLOCK MASK P XIF L P X P RTN A14 b P EJECT r J P********************************************************************* J P*
0x19b984…19bb18 Dummy {f00=0x0087, f01=0x0190, f02=»=============== * j J P* * ( J P* REFERENCED IN: MOVCOM,MOVCLA * v J P*
0x19bb18…19bcac Dummy {f00=0x0087, f01=0x0190, f02=» * ` J P* * J P* EXIT: IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2 * l J P* * J P
0x19bcac…19be40 Dummy {f00=0x0087, f01=0x0190, f02=» * V J P* SUBROUTINES: * J P* * b J P********************************************************************* P EJECT
0x19be40…19bfd4 (2, 270) Dummy {f00=0x0087, f01=0x0190, f02=»FT MMUPAG=1 P ELR A1,A8 GET T:A POINTER $ P ELR A1,A1 GET MOVED BLOCK MASK 6 P XIF ^ P j 6 P LD A2,BIT+STKEND GET BIT SET IN CWB- OR UWB-MASK t 6 PCHKM10 RF(Z) CHKM20 BIT IN MOVED BLOCK MASK FOUND * P SLL A1,1 NEXT BIT IN MOVED BLOC
0x19bfd4…19c168 Dummy {f00=0x0087, f01=0x0190, f02=»PSW n P RTN A14 P EJECT P * P 6 : P***** S * U * P * E * R * L * O * O * P **** B : P** ** : P** S H I F T & SKIFTA ** : P**
0x19c168…19c2fc Dummy {f00=0x0087, f01=0x018e, f02=» ** x : P** OUTPUT: BIT=BIT NUMBER ** & : P** CONDITION CODE IN PSW ON RETURN ** d : P****************************************************** P PSHIFT EQU * $ P CM BIT+
0x19c2fc…19c490 Dummy {f00=0x0087, f01=0x0190, f02=» P SLL A7,1 PSHIF20 EQU * $ P RF(Z) SHIF30 NO MOORE BITS SAT * P RB(NN) SHIF10 R * PSHIF30 CFI A14,PSW,A13 PUT COND IN PSW h P RTN A14 P EJECT @ P************************************************************ @ P*
0x19c490…19c624 Dummy {f00=0x0087, f01=0x0190, f02=» REAL TID IN AUXILIARY TABLE FOR DEBUGGER * @ P* ====================================================== * 6 @ P* * z @ P* * @ P* REF
0x19c624…19c7b8 Dummy {f00=0x0087, f01=0x018e, f02=»RY: A5 - POINTER TO NUMBER OF COPIES * @ P* A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB * > @ P* * @ P* EXIT: * @
0x19c7b8…19c94c Dummy {f00=0x0087, f01=0x0190, f02=» @ P* * @ P* SUBROUTINES: GETTTB * H @ P* * @ P********************************************************
0x19c94c…19cae0 Dummy {f00=0x0087, f01=0x0190, f02=»Z) CHT:90 NO MOORE! . P SUKL A8,2 LAST USED ENTRY IN REAL T:ATAB P IFT MMUPAG=0 N ( P LDR* A1,A8 GET POINTER TO REAL T:A d $ P LD A1,T:ATID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB * P LD A4,TTBTID,A2 GET REAL TID
0x19cae0…19cc74 (2, 271) Dummy {f00=0x0087, f01=0x0190, f02=»L T:ATAB POINTER ~ 6 P SU* A3,T:ATNW,A10 COMPUTE ENTRY IN AUX. TID TABLE , P STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE R P XIF P IFT MMUPAG=1 & 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
0x19cc74…19ce08 Dummy {f00=0x0087, f01=0x0190, f02=»3 4 P LD A4,TTBTID,A2 GET REAL TID IN TTAB *79-04-11* 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS B 2 P ES A4,T:ATID,A3 REPLACE TCL IN T:A *79-04-11* | 0 P EL* A3,T:ATNW,A10 GET LENGTH OF REAL T:ATAB $ P NGR A3,A3 NEGATIVE DISPLACEMENT
0x19ce08…19cf9c Dummy {f00=0x0087, f01=0x0190, f02=»PP,A2 CLEAR TCL SAVE AREA P SUK A1,1 DECREMENT TCL " P SUKL A8,2 DECREMENT B ( P SUK A6,1 DECREMENT NUMBER OF COPIES ^ P RB(P) CHT:20 NEXT COPY PCHT:90 RTN A14 P 4 P** T : D A D D ** 4 P**
0x19cf9c…19d130 Dummy {f00=0x0087, f01=0x0190, f02=» ** t 4 P** ** 4 P** INPUT : A8=POINTER TO T:A (IN T:ATAB) ** T 4 P** OUTPUT: A12=T:D ADDRESS ** 4 P************************************************ PT:DADD EQU *
0x19d130…19d2c4 Dummy {f00=0x0087, f01=0x0190, f02=»A ADDRESS P EL A12,T:DAD,A12 P XIF , " P AD A12,MOVADD+STKEND RELOCATE 8 P RTN A14 ^ P EJECT n P | P 6 P** M O V C O M ** 6 P** ** 6 P
0x19d2c4…19d458 Dummy {f00=0x0087, f01=0x0190, f02=» LEAST TWO T:A'S, AND MOVE ** | 6 P** TO COMMON AREA ** & 6 P** ** ` 6 P** INPUT : A8=POINTER IN T:ATAB ** 6 P** BIT=BIT NUMBER, SAT IN MASK **
0x19d458…19d5ec Dummy {f00=0x0087, f01=0x0190, f02=» A1-A6,A9,A11,A12 ** 6 P************************************************* , P f PMOVCOM EQU * r & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(N) MOVC20 YES! : P CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL , P
0x19d5ec…19d780 Dummy {f00=0x0087, f01=0x0190, f02=» x " P CW A6,ENDADD+STKEND ALL DONE? P RF(NE) MOVC30 NO . PMOVC20 RTN A14 YES! H P IFT MMUPAG=0 d PMOVC30 LDR* A11,A6 z P LD A2,T:DAD,A11 T:D-ADDRESS " P AD A2,MOVADD+STKEND RELOCATE P ST A2,SAVE03+STKEND SAVE , P LD A2,W
0x19d780…19d914 (2, 272) Dummy {f00=0x0087, f01=0x0190, f02=»A11,TADISP+STKEND W.B.-ADDRESS TO EXAMINE P LDR* A11,A11 2 0 P CW A11,SAVE06+STKEND COMPARE W.B.-ADDRESSES H P XIF | P IFT MMUPAG=1 PMOVC30 ELR A11,A6 P EL A2,T:DAD,A11 T:D-ADDRESS " P AD A2,MOVADD+STKEND RELOCATE 4 P ST A2
0x19d914…19daa8 Dummy {f00=0x0087, f01=0x018e, f02=»NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A 2 P AD A11,TADISP+STKEND W.B.-ADDRESS TO EXAMINE 6 P ELR A11,A11 l 0 P CW A11,SAVE06+STKEND COMPARE W.B.-ADDRESSES P XIF P RB(NE) MOVC10 .NEQ. , P LD A9,MOVED+STKEND W.B. ALREADY MOVED?
0x19daa8…19dc3c Dummy {f00=0x0087, f01=0x0190, f02=» h P CALL MOVWB MOV WORK BLOCK $ P IM MOVED+STKEND INDICATE MOVED * " P LD A4,UWB+STKEND UWB-BLOCKS? R P RF(Z) MOVC40 NO! x " P CALL GETPRO CREATE REAL UWB'S 8 PMOVC40 ST A2,NEWAD2+STKEND SAVE NEW ADDRESS TO W.B. P CALL MOVDWB & P
0x19dc3c…19ddd0 Dummy {f00=0x0087, f01=0x0190, f02=»SAVE04+STKEND SAVE T:A-ADDRESS & P LDR A8,A6 REPLACE POINTER TO T:A & . P LD A12,SAVE03+STKEND REPLACE T:D-ADDRESS P P CALL MOVDWB P LDR A8,A11 , P LD A12,SAVE04+STKEND RELOAD T:D-ADDRESS P RB MOVC10 P EJECT P P
0x19ddd0…19df64 Dummy {f00=0x0087, f01=0x0190, f02=» ** 4 P** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF ** * 4 P** COPIES. FILL REAL U:BTAB ** b 4 P** ** 4 P** INPUT : A11=PROTOTYPE ADDRESS ** 4
0x19df64…19e0f8 Dummy {f00=0x0087, f01=0x0190, f02=»9 ** z 4 P************************************************ " P Z PGETPRO EQU * f ( P LD A3,U:BTOD,A10 GET U:BTAB ADDRESS z P IFT MMUPAG=0 P LDR* A4,A3 LENGTH PGETP10 EQU * 6 P SUK A4,UP:REC SUB RECORD LENG
0x19e0f8…19e28c Dummy {f00=0x0087, f01=0x0190, f02=»ADDR,A3 SAME W.B.? , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A3,UP:REC NEXT J P RB GETP10 f P x 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * P PGETP30 EQU * P
0x19e28c…19e420 Dummy {f00=0x0087, f01=0x0190, f02=»CEMENT n . P AD A3,U:BTNW,A10 ADD TO NEW TABLE ADDRESS P LDR A9,A3 @ " P ST A4,URLENG,A9 STORE LENGTH R * P ST A5,URNUMB,A9 STORE IN REAL U:BTAB x 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * 0 P********************************************
0x19e420…19e5b4 (2, 273) Dummy {f00=0x0088, f01=0x0190, f02=» P & P* UPDATE POINTER IN REAL U:BTAB * & P********************************* > PGETP50 EQU * h 6 P ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB | P XIF P IFT MMUPAG=1 P ELR A4,A3 LENGTH PGETP10 EQU * 6 P S
0x19e5b4…19e748 Dummy {f00=0x0088, f01=0x0190, f02=»TP20 EQU * ( P EL A9,UPADDR,A3 CHECK IF SAME W.B. P CWR A11,A9 > , P RF(E) GETP30 YES! GET NUMBER OF COPIES R P ADK A3,UP:REC NEXT P RB GETP10 P 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE
0x19e748…19e8dc Dummy {f00=0x0088, f01=0x0190, f02=» t , P EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES P ANK A5,/FF 8 , P SU A3,U:BTOD,A10 GET TABLE DISPLACEMENT L . P AD A3,U:BTNW,A10 ADD TO NEW TABLE ADDRESS | P LDR A9,A3 " P TL* MMTO+STKCOM LOAD TO-TABLE * P ES A5,URNUMB,A9 ESORE IN REAL U:B
0x19e8dc…19ea70 Dummy {f00=0x0088, f01=0x0190, f02=» * f 0 P******************************************** . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') > P RF(NP) GETP50 p PGETP40 CALL MOVWB P SUK A5,1 P RB(NZ) GETP40 P & P* UPDATE POINTER IN REAL U:BTAB * & P**********
0x19ea70…19ec04 Dummy {f00=0x0088, f01=0x018e, f02=»L* MMFROM+STKCOM P XIF P RTN A14 $ P EJECT 4 P B 2 P** M O V C L A ** N 2 P** ** 2 P** ** 2 P** CHECKS IF W.B. ALREA
0x19ec04…19ed98 Dummy {f00=0x0088, f01=0x0190, f02=» 2 P** ** 2 P** A LOT OF WORKREGS. ** : 2 P********************************************* p P PMOVCLA EQU * P CALL SHIFT P RF(Z) MVCL30 * PMVCL10 CALL GETWB W.B.-ADDRE
0x19ed98…19ef2c Dummy {f00=0x0088, f01=0x0190, f02=»B(NZ) MVCL10 PMVCL30 RTN A14 PMVCL40 CALL MOVDT * P CALL MOVWB D " P LD A4,UWB+STKEND UWB-SCANNING X P RF(Z) MVCL50 NO! ~ P CALL GETPRO DUPLICATE WB'S 0 PMVCL50 ST A2,NEWAD2+STKEND SAVE W.B.-ADDRESS P CALL MOVDWB PROCESS DWB
0x19ef2c…19f0c0 Dummy {f00=0x0088, f01=0x0190, f02=» ** 6 P** ** . 6 P** CHANGE ADDRESS TO W.B. & D.T. IN T:A, ** h 6 P** BLOCKS ALREDY MOVED ** 6 P**
0x19f0c0…19f254 (2, 274) Dummy {f00=0x0088, f01=0x0190, f02=» NEWAD2= NEW W.B.-ADDRESS ** 6 P** TADISP=DISPLACEMENT TO WB-ADDR ** 4 6 P** WORK.REGS: A1,A2 ** n 6 P************************************************* P PCHADR EQU * P IFT M
0x19f254…19f3e8 Dummy {f00=0x0088, f01=0x018e, f02=»2,A1 & P SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1+STKEND 6 P STR A2,A1 R P XIF d P IFT MMUPAG=1 p P ELR A1,A6 T:A-ADDRESS 2 P AD A1,TADISP+STKEND ADDRESS TO W.B.-ADDRESS P LD A2,NEWAD2+STKEND P ESR A2,A1 & P
0x19f3e8…19f57c Dummy {f00=0x0088, f01=0x0190, f02=» P EJECT B P************************************************************** B P* * X B P* * B P* B:RSWT - BUILD REAL SWB CONTROL T
0x19f57c…19f710 Dummy {f00=0x0088, f01=0x0190, f02=» * p B P* REFERENCED IN: SYSLDA * & B P* * l B P* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB * B P* A5 -
0x19f710…19f8a4 Dummy {f00=0x0088, f01=0x0190, f02=» * B P* * : B P* WORK REGISTERS: A1-A7 * B P* *
0x19f8a4…19fa38 Dummy {f00=0x0088, f01=0x0190, f02=» R B P************************************************************** P EJECT N PB:RSWT EQU * * P LDR A8,A2 SAVE POINTER TO FIRST BLOCK p 8 P LD A1,APCBLK+STKEND GET START OF APL.CONTROL TABLE 0 P LD A1,APLSWB,A1 POINTER TO SWB BLOCK TABLE
0x19fa38…19fbcc Dummy {f00=0x0088, f01=0x0190, f02=» SUK A5,2 SKIP LENGTH WORD PRSWB10 ADK A1,2 NEXT TYPE " P LDR* A4,A1 POINTER TO BLOCK D P LCR A6,A4 NUMBER OF COPIES h $ P LD A7,SWBLEN,A4 LENGTH IN BYTES P XIF P IFT MMUPAG+SWPBLK=2 & P ES A6,2,A2 STORE NUMBER OF COPIES , P E
0x19fbcc…19fd60 Dummy {f00=0x0088, f01=0x0190, f02=»,A2 STORE LENGTH OF SWB IN BYTES P XIF ( P IFT SWPBLK=1 4 & P SUK A5,6 DECREMENTS S:BTAB LENGTH J ( P ADK A2,6 INCREMENT POINTER IN BLOCK t ( P SUK A3,1 DECREMENT NUMBER OF TYPES P RB(P) RSWB10 P LDR A4,A2 P* 4 P* INIT PO
0x19fd60…19fef4 (2, 275) Dummy {f00=0x0088, f01=0x0190, f02=»DDRESS TO TID BLOCK $ P SUR A6,A8 COMPUTE DISPLACEMENT P IFT SWPBLK-MMUPAG=1 D P LD A1,2,A8 NUMBER OF COPIES ` P RF(Z) RSWB50 NO COPIES! * P STR A6,A8 STORE POINTER TO TID BLOCK PRSWB30 STR A3,A2 RESET TID , P ADK A2,2 INCREMENT
0x19fef4…1a0088 Dummy {f00=0x0088, f01=0x0190, f02=» COPY ~ P XIF P IFT MMUPAG+SWPBLK=2 $ P EL A1,2,A8 GET NUMBER OF COPIES 6 P RF(Z) RSWB50 NO COPIES! ^ * P ESR A6,A8 STORE POINTER TO TID BLOCK ~ PRSWB40 ESR A3,A2 RESET TID , P ADK A2,2 INCREMENT POINTER IN TID BLOCK . P SUK A5,2
0x1a0088…1a021c Dummy {f00=0x0088, f01=0x4112, f02=»BLK=1 PRSWB50 ADKL A8,6 P CWR A8,A4 & P RB(NE) RSWB20 8 " P LDR A5,A5 S:BTAB CONSISTENT? N P RF(Z) RSWBEX YES t P LDKL A1,LMP6 SWB ERROR! P CALL ERROR PRSWBEX RTN A14 P XIF PLCREND EQU * P P END
0x1a021c…1a03b0 Dummy {f00=0x0088, f01=0x2008, f02=» -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
0x1a03b0…1a0544 Dummy {f00=0x0088, f01=0x0190, f02=» EJECT PDWT45 CALL DWT50 P RF DWT60 . PDWT50 EQU * @ * T P* OUTPUT DEVICE* ^ , P* IF BIT 0 IN SIXTH WORD IN DWT IS SET x 0 P* THE DEVICE IS TO BE USED FOR ECHOING ON. 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTI
0x1a0544…1a06d8 Dummy {f00=0x0088, f01=0x0190, f02=»DWT59 NO ECHOING ON THIS DEVICE : P LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE ( & P RF(NZ) DWT55 ALREADY INITIALIZED! f P ADK A3,2 INCLUDE LENGTH PDWT55 LDR A4,A3 SAVE LENGTH ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY . P STR A1,
0x1a06d8…1a086c Dummy {f00=0x0088, f01=0x0190, f02=»+ECHTAB STORE NEW LENGTH PDWT59 RTN A14 PDWT60 EQU * 6 * J * CHECK IF PAGING T * n " P LD A5,SCTOPT GET OPTION WORD x P ANK A5,1 MMU PAGING? RF(Z) DWT70 P EJECT , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS
0x1a086c…1a0a00 Dummy {f00=0x0088, f01=0x018e, f02=» h $ P ANKL A5,/FFFE MAKE EVEN ADDRESS " P ST A5,DWTMEC,A2 STORE IT BACK 0 * V < P* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED ` P* & P LD A5,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER $
0x1a0a00…1a0b94 (2, 276) Opaque[0x194]
0x1a0b94…1a0d28 # DirEnt {nam=»SYSINI«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1118, f03=0x0000}
0x1a0b94…1a0d28 IdxSect {
0x1a0b94…1a0d28 f00 = 0x0088 // 0x1a0b94 @0x0
0x1a0b94…1a0d28 f01 = 0x0028 // 0x1a0b96 @0x2
0x1a0b94…1a0d28 gno = [ // 0x1a0b98 @0x4
0x1a0b94…1a0d28 [0x00]: C0x0088.0x3.0
0x1a0b94…1a0d28 [0x01]: C0x0089.0x0.0
0x1a0b94…1a0d28 [0x02]: C0x0089.0x1.0
0x1a0b94…1a0d28 [0x03]: C0x0089.0x2.0
0x1a0b94…1a0d28 [0x04]: C0x0089.0x3.0
0x1a0b94…1a0d28 [0x05]: C0x008a.0x0.0
0x1a0b94…1a0d28 [0x06]: C0x008a.0x1.0
0x1a0b94…1a0d28 [0x07]: C0x008a.0x2.0
0x1a0b94…1a0d28 [0x08]: C0x008a.0x3.0
0x1a0b94…1a0d28 [0x09]: C0x008b.0x0.0
0x1a0b94…1a0d28 [0x0a]: C0x008b.0x1.0
0x1a0b94…1a0d28 [0x0b]: C0x008b.0x2.0
0x1a0b94…1a0d28 [0x0c]: C0x008b.0x3.0
0x1a0b94…1a0d28 [0x0d]: C0x008c.0x0.0
0x1a0b94…1a0d28 [0x0e]: C0x008c.0x1.0
0x1a0b94…1a0d28 [0x0f]: C0x008c.0x2.0
0x1a0b94…1a0d28 [0x10]: C0x008c.0x3.0
0x1a0b94…1a0d28 [0x11]: C0x008d.0x0.0
0x1a0b94…1a0d28 [0x12]: C0x008d.0x1.0
0x1a0b94…1a0d28 [0x13]: C0x008d.0x2.0
0x1a0b94…1a0d28 ]
0x1a0b94…1a0d28 }
0x1a0d28…1a0ebc Dummy {f00=0x0088, f01=0x0190, f02=» 2 P IDENT SYSINI REL 11.0 81-01-26 870105041100 P : . P =2,WHEN MMUPAG=0 INITIATE PAGE ADDRESS B $ P IN PAGTAB WITH RIGHT VALUE t P PRR 11.0 80-12-03 , P =1,CREATE PAGES FOR APPLICATIONS WITH " P DIFFERENT SEGMENT SIZE
0x1a0ebc…1a1050 Dummy {f00=0x0088, f01=0x0190, f02=» * P* ENTRIES AND EXTERNALS * P* * @ P*************************** d P P* LABEL ENTRIES P ENTRY SYSINI P ENTRY INILEN PROGRAM LENGTH P ENTRY INIEND END OF SYSINI
0x1a1050…1a11e4 Dummy {f00=0x0088, f01=0x018e, f02=» ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 P ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK 6 * P ENTRY CONVRT CONVERSION ASCII-BINARY n 2 P ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY & P ENTRY MULT MULTIPLICATION ROUTINE 2 P ENTRY XMOVE
0x1a11e4…1a1378 Dummy {f00=0x0088, f01=0x0190, f02=» l $ P ENTRY GETTAB FIND TTAB-ADDRESS $ P ENTRY GETTTB FIND TTAB-ADDRESS 0 0 P ENTRY MMENT FIND LAST USED ENTRY IN MM-TAB X , P ENTRY PUSH STORE REGISTERS ON A15-STACK 0 P ENTRY POB RESTORE REGISTERS FROM A15-STACK P ENTRY GETAPP P E
0x1a1378…1a150c Dummy {f00=0x0088, f01=0x0190, f02=»RY MMTAB WORK-TABLE 1 (MMU 6 P ENTRY TABBE ABSOLUTE 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' P ENTRY MMBEG , P ENTRY LSTPAG DISPL. TO 'ENTRY POINTER'
0x1a150c…1a16a0 Dummy {f00=0x0088, f01=0x0190, f02=»CTLAC LOGICALL ADDRESS TO COMMON PART P EXTRN SCTTCT TC:TAB ADDRESS . P EXTRN SCTSTB A15 STACK-BASE R " P EXTRN SCTEFA END OF FREE AREA v " P EXTRN SCTNOP NUMBER OF PAGES P EXTRN SCTPSZ PAGE SIZE P EXTRN SCTMMC =00002 P EXTRN S
0x1a16a0…1a1834 (2, 277) Dummy {f00=0x0089, f01=0x0190, f02=»G BUGGER ADDRESS , P EXTRN STKEND START OF SCRATCH-PAD AREA * P EXTRN STKCOM START OF COMMON-PAD AREA H P v P* EXTERNAL LABELS ~ $ P EXTRN PAGQUE PAGE QUEUE POINTER P P* EXTERNAL SUBROUTINES P EXTRN ACTOT QUEUE TASK P E
0x1a1834…1a19c8 Dummy {f00=0x0089, f01=0x0190, f02=»48 SWITCH TO LEVEL 48 P P* & , P EXTRN TTB:SA START OF SAVE AREA IN TTAB 0 8 P EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS ` 8 P EXTRN TTB:MT DISPL. TO 1:ST MMU-TABLE ENTRY IN TTAB 0 P EXTRN TTB:SP DISPL TO SEGMENT TABLE ADDRESS
0x1a19c8…1a1b5c Dummy {f00=0x0089, f01=0x0190, f02=»************************************* , P* CONDITIONAL ASSEMBLY * . , P*************************************** ^ P $ PDSKPAG EQU 0 0 = NO DISC PAGING PMMUPAG EQU 1 0 = NO MMU PCPU852 EQU 0 0 = NOT 852 CPU 2 P******
0x1a1b5c…1a1cf0 Dummy {f00=0x0089, f01=0x018e, f02=» * n 2 P* ==================== * 2 P* * J 2 P********************************************* P P . PAPLADA EQU 22 APPL. REL. BASE (2 WORDS) =1 . PAPLREL EQU 18 NU
0x1a1cf0…1a1e84 Dummy {f00=0x0089, f01=0x0190, f02=» Z 8 PAPLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.) & PAPLLAP EQU 12 LOGICAL PAGE ADDRESS D 8 PAPLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.) n . PAPLMMC EQU 10 APPLICATION MMU START ENTRY ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY . P
0x1a1e84…1a2018 Dummy {f00=0x0089, f01=0x018e, f02=»APLSTA EQU 16 APPL. PGM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE . . PAPLPSZ EQU 20 APPLICATION SEGMENT SIZE =1 T P EJECT . P***************************************** . P* * . P* COMMON DISPLA
0x1a2018…1a21ac Dummy {f00=0x0089, f01=0x0190, f02=» 0 PAPLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE $ PAPPLNO EQU 18 APPLICATION NUMBER < ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE d . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA , PCONSTA EQU 2 START OF CONFIGURATION DATA ( PDATEND EQU 34 END OF D
0x1a21ac…1a2340 Dummy {f00=0x0089, f01=0x018e, f02=»2 1ST FREE PAGE (PHYSICAL) , PFYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER " 6 PLSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART R ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA ( PMMTO EQU 38 1:ST MMU TABLE WORK AR
0x1a2340…1a24d4 (2, 278) Dummy {f00=0x0089, f01=0x0190, f02=» j & PSWBFSE EQU 8 SWB-FILE END ADDRESS ( PTTAB EQU 32 WORK AREA FOR MMU TABLE 2 * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS ^ , PSWBFLG EQU 48 SWAPPABLE WORK BLOCK FLAG $ PCOM01 EQU 40 COMMON WORK AREA 1 $ PCOM02 EQU 42 COMMON WORK AREA 2
0x1a24d4…1a2668 Dummy {f00=0x0089, f01=0x018e, f02=» $ P******************************* $ P* SCRATCH-PAD DISPLACEMENTS * , $ P******************************* T P* | . PAPCBLK EQU 0 START OF APPL. CONTROL BLOCK P EJECT P P ***************** P *****************
0x1a2668…1a27fc Dummy {f00=0x0089, f01=0x0190, f02=» z P P********** P* P:MTAB * & P********** 8 PT:ATAB EQU 0 J PU:BTAB EQU 2 ^ PP:BAS EQU 6 SEGMENT BASE r . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS P EJECT P
0x1a27fc…1a2990 Dummy {f00=0x0089, f01=0x0190, f02=»* r P P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE 6 ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS X , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A TASK LEVEL
0x1a2990…1a2b24 Dummy {f00=0x0089, f01=0x0190, f02=» DEVICE CLASS ~ PTLC EQU 7 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH 8 P* d * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD n P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CDBBT+1 2N NUMBER
0x1a2b24…1a2cb8 Dummy {f00=0x0089, f01=0x0190, f02=»UDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES " P* R ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH P EJECT
0x1a2cb8…1a2e4c Dummy {f00=0x0089, f01=0x0190, f02=»SEGMENT END (HERE: STACKSIZE) | $ PCSB EQU -12 CURRENT SEGMENT BASE & 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH N 2 P OF ALL DSCB-RECORDS PT:DAD EQU -8 ADDRESS TO T:D * PCIA EQU -6 CURRENT INSTUCTION ADDRESS
0x1a2e4c…1a2fe0 Dummy {f00=0x0089, f01=0x0190, f02=» POINTER PSTKB EQU 2 STACK BASE " PWATFST EQU 4 FIRST WAT-ELEMENT . P* T P* DSCB-RECORD: ^ PDSCBL EQU 20 RECORD LENGTH t " PBL EQU 2 LENGTH OF FIX BUFFER 2 PSB EQU 4 INDEX TO DSCB WHICH SHARE THE BUFFER PBP EQU 18 BUFFER POINT
0x1a2fe0…1a3174 (2, 279) Dummy {f00=0x0089, f01=0x0190, f02=»:A n , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) : 8 PDATTAB EQU 6 DISPLACEMENT TO BEGINNING OF DAT-TABLE j & PWATLEN EQU 8 NUMBER OF WATELEMENTS 0 PTWBMSK EQU 10 MASK FOR TWB'S (ONE BIT/ENTRY) * PSWBM
0x1a3174…1a3308 Dummy {f00=0x0089, f01=0x0190, f02=»BFST EQU 18 FIRST WORD IN DBLK-TAB P * . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS 2 P d P p P**************** x P* SOP-HANDLING * P**************** PSOP EQU /2E DEVICE ADDRESS P P LAMP CODE MEANING P
0x1a3308…1a349c Dummy {f00=0x0089, f01=0x0190, f02=»P4 EQU /80 FORMAT ERROR (CONFIG) PLMP5 EQU /40 TID ERROR ( " PLMP6 EQU /20 UWB OR SWB ERROR F " PLMP7 EQU /10 MM-TABLE OVERFLOW l PLMP8 EQU 8 PLMP9 EQU 4 PLMP10 EQU 2 PLMP11 EQU 1 P EJECT " P****************************
0x1a349c…1a3630 Dummy {f00=0x0089, f01=0x0190, f02=»AX EQU 500 DEFAULT SPL STACK-SIZE 4 PENTFIN EQU /FFFF PROGRAMMER DEFINED ENTRY POINT * & PSPLSTS EQU 4 DIAGNOSTIC,STACK-SIZE b PSPLSTB EQU 52 STACK-BASE PSPLENT EQU 54 ENTRY-FINI PSPLSTA EQU 88 STACK-AREA P P P************
0x1a3630…1a37c4 Dummy {f00=0x0089, f01=0x0190, f02=» n , PDTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE & PSWBLEN EQU 4 DISP TO LENGTH OF SWB 8 P b $ PFCBDD1 EQU 8 DISP TO FIRST DSET n $ PFCBDD2 EQU 10 DISP TO 2:ND DSET P $ PSTKSZ EQU 128 DEFAULT STACK-SIZE P ( PSEGREC EQU
0x1a37c4…1a3958 Dummy {f00=0x0089, f01=0x0190, f02=»DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB * PTTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB 0 P ^ ( PNTPA EQU 4 INTERPRETER START ADDRESS f & PIHRTC EQU 4 RTC INTERRUPT ADDRESS $ PRTCDA EQU /1B RTC DEVICE ADDRESS P > PTABLEN EQU 20 LENGTH OF
0x1a3958…1a3aec Dummy {f00=0x0089, f01=0x0190, f02=»********************************* p F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * * F P* DATA [REL-ADDRESS] * t F P* * F P
0x1a3aec…1a3c80 Dummy {f00=0x0089, f01=0x0190, f02=» P EJECT P LDKL A1,SYSINI P AD A1,M:REL+STKCOM * " P ABR A1 GO TO START OF SYSINI F P EJECT l P z 6 P************************************************** 6 P************************************************** 6 P**
0x1a3c80…1a3e14 (2, 280) Dummy {f00=0x0089, f01=0x0190, f02=» ** n 6 P************************************************** 6 P************************************************** R P , PREL RF SUBBA JUMP TO SUBROUTINE HANDLER & P LDR A13,P GET BASE ADDRESS TO A13 P SUKL A13,4 P*
0x1a3e14…1a3fa8 Dummy {f00=0x0089, f01=0x0190, f02=»SOLUT DITO 4 P ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE P* LOAD STACKBASE * J P****************** d P ~ P LDKL A14,STACKB P ADR A14,A13 RELOCATE P RTN A8 P P P* STACK * P********* P
0x1a3fa8…1a413c Dummy {f00=0x0089, f01=0x0190, f02=»************** P* PPSW EQU *-REL P DATA GETPSW 6 P J D P**************************************************************** V D P* G E T P S W * D P* LITTLE SUBROUTINE TO PUT PSW IN
0x1a413c…1a42d0 Dummy {f00=0x0089, f01=0x0190, f02=»EL $ P STR A2,A14 SAVE A2 ON A14-STACK ! 0 P LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE ! 2 . P ST A2,6,A14 REPLACE PSW FROM MAIN PROGRAM ! f P LDR* A2,A14 RESTORE A2 ! P RTN A14 ! P EJECT ! P ! & P********************************* ! & P
0x1a42d0…1a4464 Dummy {f00=0x0089, f01=0x018e, f02=»*********************** ! P " PSUBSUB EQU *-REL " ( & PSUBBA ST A10,COM04+STKCOM SAVE A10 " @ . P LD* A10,4,A14 GET SUBROUTINE REL ADDRESS " j $ P IM 4,A14 ADJUST RETURN ADDRESS " P IM 4,A14 " 2 P AD A10,M:REL+STKCOM ADD FOR SYSLDM RELOCATION "
0x1a4464…1a45f8 Dummy {f00=0x0089, f01=0x0190, f02=» " P* MMU TABLES * # P # P # & . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE # . P IFT MMUPAG=1 # ` P RES 16 # v P XIF # P # $ PMMTAB EQU *-REL WORK AREA MM-TAB # PTABBE EQU * # P IFT MMUPAG=1 # P DATA 0,0,0,0,0,0,0,0 #
0x1a45f8…1a478c Dummy {f00=0x0089, f01=0x0190, f02=»M BOTTOM) IN MM-TAB # t P DATA 0 $ 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' $ , ( P DATA 0 APPL. CONTROL BLOCK ADDRESS $ ` P $ PMMBEG EQU TABBE-* $ P EJECT $ P $ 6 P*** *** $ 6 P***
0x1a478c…1a4920 Dummy {f00=0x0089, f01=0x018e, f02=»*********************** $ v 6 P************************************************* % P % Z P % f , P** E R R O R ** % r , P** ** % , P** ** % , P** ER
0x1a4920…1a4ab4 (2, 281) Dummy {f00=0x008a, f01=0x0190, f02=» , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** & , P** (REG-CONTENTS IS SAVED) ** & 4 , P**************************************** & d P & PERROR EQU * & P ST A2,COM01+STKCOM SAVE A2 & . P LD A2,4,A14 GET CALLING ABSOLUTE ADDRESS & P S
0x1a4ab4…1a4c48 Dummy {f00=0x008a, f01=0x018e, f02=» P U S H ** & ( P** ** ' " ( P** ** ' N ( P** STORE REGISTERS ON A15-STACK ** ' z ( P** ** ' ( P************************************ ' PPUSH EQU *
0x1a4c48…1a4ddc Dummy {f00=0x008a, f01=0x0190, f02=» ' z P STR A5,A15 SAVE A5 ( P STR A6,A15 SAVE A6 ( $ P STR A7,A15 SAVE A7 ( @ P STR A8,A15 SAVE A8 ( P STR A9,A15 SAVE A9 ( x P STR A10,A15 SAVE A10 ( P STR A11,A15 SAVE A11 ( P STR A12,A15 SAVE A12 ( P STR A13,A15 SAVE A13 (
0x1a4ddc…1a4f70 Dummy {f00=0x008a, f01=0x0190, f02=» P EJECT ) P ) P** P O B ) P** ) 6 P** ) @ , P** RESTORE REGISTERS FROM A15-STACK ** ) J , P** ** ) z , P**************************************** ) P ) PPOB EQU * ) P IFT CPU852=1 )
0x1a4f70…1a5104 Dummy {f00=0x008a, f01=0x0190, f02=»A10,A15 RESTORE A5 ) P LDR* A9,A15 RESTORE A6 * P LDR* A8,A15 RESTORE A7 * : P LDR* A7,A15 RESTORE A8 * Z P LDR* A6,A15 RESTORE A9 * z P LDR* A5,A15 RESTORE A10 * P LDR* A4,A15 RESTORE A11 * P LDR* A3,A15 RESTORE A12 * P LDR* A2,A15 R
0x1a5104…1a5298 Dummy {f00=0x008a, f01=0x0190, f02=»IF * P RTN A14 + P EJECT + P + ( & P** M O V E ** + 0 & P** ** + Z & P** ** + & P** MOVE BLOCKS INSIDE MEMORY ** + & P** ** + & P** IN
0x1a5298…1a542c Dummy {f00=0x008a, f01=0x0190, f02=» ** + & P** WORK-REG: A4 ** , & P********************************* , D P , n PMOVE EQU * , z $ PMOVES ADR A1,A3 END OF FROM AREA , P ADR A2,A3 END OF TO-AREA , PMOVE10 SUK A3,1 DEC LENGTH , P RF(N) MOVE20 AL
0x1a542c…1a55c0 Dummy {f00=0x008a, f01=0x0190, f02=»VE20 RTN A14 , P IFT MMUPAG=0 - P EJECT - * P - 8 P - D 4 P** M O V I N G ** - P 4 P** ** - 4 P** ** - 4 P** USES ROUTINE
0x1a55c0…1a5754 (2, 282) Dummy {f00=0x008a, f01=0x0190, f02=» ** - h 4 P** ADDRESS. LSTADR IS UPDATED AND CHECKED ** . 4 P** ** . H 4 P** INPUT:A3 & A1 AS IN 'MOVE' ** . 4 P** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** . 4 P** WORK-REG: A4
0x1a5754…1a58e8 Dummy {f00=0x008a, f01=0x0190, f02=» REGISTERS ON A15-STACK . * P LD A2,LSTADR+STKCOM GET LAST ADDRESS / P LDR A9,A2 / N P LDR A11,A3 / ` & P CALL CMPADR ENOUGTH MEMORY LEFT? / t P RF(NL) MOV010 NO! / P SUR A2,A3 SUB LENGTH / $ P ANKL A2,/FFFE MAKE EVEN ADDRESS / P LDR A11,A
0x1a58e8…1a5a7c Dummy {f00=0x008a, f01=0x0190, f02=»MP3 MEMORY OVERFLOW / P CALL ERROR 0 8 PMOV020 LD A9,FSTADR+STKCOM CHECK FIRST FREE ADDRESS 0 0 P CALL CMPADR 0 l P RB(L) MOV010 0 $ P ST A2,LSTADR+STKCOM NEW ADDRESS 0 . P CALL POB RESTORE REGISTERS FROM A15-STACK 0 P LD A2,LSTADR+STKCOM 0
0x1a5a7c…1a5c10 Dummy {f00=0x008a, f01=0x0190, f02=» ** 0 x 4 P** ** 1 4 P** MOVE BLOCK INSIDE MEMORY VIA MMU ** 1 X 4 P** TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) ** 1 4 P** -MOVE TO USER AREA ** 1 4 P** IF '
0x1a5c10…1a5da4 Dummy {f00=0x008a, f01=0x018e, f02=» ** 1 p 4 P** INPUT :A1=FROM-ADDR(MMFROM=MM-TABLE ADDR.)** 2 4 P** A2=TO-ADDRESS (MMTO=MM-TABLE ADDR.)** 2 P 4 P** A3=LENGTH (IN BYTES) ** 2 4 P** WORK.REGS:A4,A10 ** 2 4 P****************
0x1a5da4…1a5f38 Dummy {f00=0x008a, f01=0x0190, f02=» P ST A1,COM01+STKCOM 3 P ST A2,COM02+STKCOM 3 P ST A3,COM03+STKCOM 3 < PXMOV05 EQU * 3 X P LDR A10,A3 SAVE LENGTH 3 l , P LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER 3 * P LDR A11,A3 GET LENGTH OF AREA TO MOVE 3 2 P LD A9,BUFSIZ+STKCOM GET TEMPO
0x1a5f38…1a60cc Dummy {f00=0x008a, f01=0x0190, f02=»NGTH 3 x ( P LD A1,COM01+STKCOM GET FROM ADDRESS 4 8 P LD A2,SYSBUF+STKCOM GET TEMP. BUFFER START-ADDRESS 4 8 & P TL* MMFROM+STKCOM LOAD FROM-TABLE 4 t , P MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER 4 2 P ST A1,COM01+STKCOM SAVE END OF 'FROM' ADDRESS 4 P LD
0x1a60cc…1a6260 Dummy {f00=0x008a, f01=0x0190, f02=»LE 4 t ( P MVSU A3 MOVE DATA-BLOCK FROM BUFFER 5 " P SUK A4,1 MORE PARTS TO MOVE? 5 6 P RF(N) XMOV30 NO! 5 P ADR A2,A10 5 v 2 P ST A2,COM02+STKCOM SAVE START OF 'TO' ADDRESS 5 , P LD A3,COM03+STKCOM GET REQUESTED LENGTH 5 $ P SUR A3,A10 SUBTRACT MOV
0x1a6260…1a63f4 (2, 283) Dummy {f00=0x008a, f01=0x0190, f02=»ALL CMPADR REMAINING LENGTH<CURRENT BUFFER LENGTH? 5 P RB(NL) XMOV10 6 : P LDR A10,A3 LAST LENGTH 6 P P RB XMOV10 6 p P EJECT 6 P 6 PSPLIT EQU * 6 P LDR A1,A3 GET DIVISOR 6 * P SRL A1,15 MOST SIGN. PART OF DIVISOR 6 P LDR A2,A3 GET D
0x1a63f4…1a6588 Dummy {f00=0x008a, f01=0x0190, f02=»ENGTH 6 p P RB XMOV10 7 P 7 4 PXMOV30 CALL POB RESTORE REGISTERS FROM A15-STACK 7 ( P RTN A14 7 ` P EJECT 7 p P 7 ~ 4 P** M O V I N G ** 7 4 P** ** 7 4 P**
0x1a6588…1a671c Dummy {f00=0x008a, f01=0x018e, f02=» ** 7 f 4 P** IS ALWAYS ASSUMED TO BE DATA PART OF ** 8 4 P** MEMORY. LSTADR & FYSPAG POINTS AT LAST ** 8 F 4 P** (HIGHEST) FREE ADDRESS. LSTADR &FYSPAG ** 8 ~ 4 P** IS UPDATED AND CHECKED. ** 8 4 P**
0x1a671c…1a68b0 Dummy {f00=0x008a, f01=0x0190, f02=» 8 ^ 4 P** OUTPUT:A2=LOGICALL TO-ADDRESS ** 9 4 P** WORK-REGS: A4,A10 ** 9 @ 4 P*********************************************** 9 x P 9 PMOVING EQU * 9 , P CALL PUSH STORE REGISTERS ON A15-STACK 9 0 P LD A4,FYSPA
0x1a68b0…1a6a44 Dummy {f00=0x008a, f01=0x0190, f02=» " P LDR* A9,A2 GET PAGE IN TABLE : P ANKL A9,/FC00 : * * P CWR A9,A4 CORRECT PAGE IN MMU-TABLE? : @ P RF(E) MOV010 YES! : n & P ADKL A4,/400 ADJUST FOR 'SETTAB' : $ P CALL SETTAB NEW PAGE IN TABLE! : : PMOV010 LD A11,LSTADR+STKCOM GET LAST LOGICALL
0x1a6a44…1a6bd8 Dummy {f00=0x008a, f01=0x0190, f02=» RF(NL) MOV020 YES! : , P SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE ; PMOV015 RF(NP) MOV025 ; L * P CALL SETTAB INITIALIZE NEW PAGE ENTRY ; h * P ADKL A11,4096 PHYSICAL PAGE INCREMENT ; P RB MOV015 ; 2 PMOV020 SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE ;
0x1a6bd8…1a6d6c Dummy {f00=0x008a, f01=0x0190, f02=»T ENOUGH. NEW PAGE! ; P < ( P* MM-TABLE CORRECT. SAVE ADDRESSES * < $ P < P P* A4=PHYSICALL PAGE NUMBER < X P* A11=DISPLACEM. WITHIN PAGE < z " P* A2=CURRENT ENTRY IN MM-TABLE < P < PMOV050 EQU * < , P ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB
0x1a6d6c…1a6f00 Dummy {f00=0x008a, f01=0x0190, f02=»LUTE ENTRY ADDRESS < * P ST A4,MMTO+STKCOM SAVE TABLE ADDRESS = P SUR A2,A4 RELATIVE ADDRESS = H 2 P SLL A2,11 SHIFT TO FOUR FIRST BITS & DIV BY 2 = l * P ORR A2,A11 GET DISPLACEM. WITHIN PAGE = P ANKL A2,/FFFE EVEN ADDRESS = . P ST A2,LSTADR+STKCOM
0x1a6f00…1a7094 (2, 284) Dummy {f00=0x008a, f01=0x018e, f02=»AVE A11 = z P LD A11,FYSPAG+STKCOM > P CALL CMPADR AND COMPARE > . P RF(G) MOV090 OK! > N P RF(L) MOV070 NOK! > h ( P LD A11,COM01+STKCOM RESTORE DISPL. > P LD A9,FSTADR+STKCOM > P CALL CMPADR > P RF(NL) MOV090 OK! > PMOV070 LDKL A1,L
0x1a7094…1a7228 Dummy {f00=0x008a, f01=0x0190, f02=» ( P CALL INBIMA INIT ALLOCATION BIT MAP ? 4 PMOV100 CALL POB RESTORE REGISTERS FROM A15-STACK ? 0 0 P LD A2,LSTADR+STKCOM GET LOGICAL TO-ADDRESS ? h ( P TL* MMFROM+STKCOM RESTORE MM-TABLE ? P RTN A14 ? P XIF ? P EJECT ? P ? 6 P**
0x1a7228…1a73bc Dummy {f00=0x008a, f01=0x0190, f02=» ** ? n 6 P** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** @ 6 P** OVERFLOW. ** @ R 6 P** ** @ 6 P** INPUT :A2-ADDRESS TO CURRENT ENTRY ** @ 6 P**
0x1a73bc…1a7550 Dummy {f00=0x008a, f01=0x0190, f02=» ** @ t 6 P************************************************* A P A X PSETTAB EQU * A ` P IFT MMUPAG=1 A t P SUKL A4,/400 GET NEXT PAGE A P SUK A2,2 GET NEXT ENTRY A P A " P* CHECK IF MM-TABLE OVERFLOW * A P A ( P LDR
0x1a7550…1a76e4 Dummy {f00=0x008a, f01=0x0190, f02=» P RF SETT05 B PSETT00 CWR A2,A9 OVERFLOW? B PSETT05 RF(NL) SETT10 NO B 8 P LDK A1,LMP7 B X P CALL ERROR B l PSETT10 EQU * B P STR A4,A2 STORE IN TABLE B P RTN A14 B P XIF B P EJECT B P B P B P B 6 P**
0x1a76e4…1a7878 Dummy {f00=0x008a, f01=0x018e, f02=» ** B l 6 P** COMPARE ADDRESSES. RESULT IN PSW ON RETURN ** C 6 P** ** C P 6 P** INPUT : A11 COMPARED TO.. ** C 6 P** A9 ** C 6 P** OUTPUT
0x1a7878…1a7a0c Dummy {f00=0x008a, f01=0x0190, f02=» P TNM A11,A9 D P RF(NN) CMPA10 D P CWR A9,A11 D . P RF CMPA20 D B PCMPA10 CWR A11,A9 D T . PCMPA20 CFI A14,PSW,A13 PUT RESULT ON STACK D n P RTN A14 D P EJECT D P D P D 4 P** M U L T ** D
0x1a7a0c…1a7ba0 Dummy {f00=0x008a, f01=0x0190, f02=» (A2) X A3(), A2#0 ** D ~ 4 P** ** E & 4 P** INPUT : A3,A2 ** E ^ 4 P** OUTPUT:A3=RESULT ** E 4 P************************************************ E PMU
0x1a7ba0…1a7d34 (2, 285) Dummy {f00=0x008b, f01=0x0190, f02=»2,1 E P RB(NZ) ADD F P LDR* A2,A14 F P RTN A14 F 4 P EJECT F D P F R 4 P** M M E N T ** F Z 4 P** ** F 4 P** ** F 4 P** FI
0x1a7d34…1a7ec8 Dummy {f00=0x008b, f01=0x0190, f02=» ** F r 4 P** INPUT :A3=MM-TABLE ADDRESS ** G 4 P** OUTPUT:A3=ENTRY ADDRESS ** G R 4 P** A9=TTAB-ADDRESS ** G 4 P** LSTPAG IN TTAB=A3 ** G 4 P** A1=
0x1a7ec8…1a805c Dummy {f00=0x008b, f01=0x0190, f02=»G=1 G P LDR A9,A3 GET TABLE ADDRESS H 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER) H 0 P SUK A3,2 H j & PMMEN10 ADK A3,2 INCREMENT ADDRESS H | ( P LDR* A1,A3 GET CONTENTS OF MM-TABLE H P ANKL A1,/FC00 H P CWK A1,/FC00 H P RB(Z) MME
0x1a805c…1a81f0 Dummy {f00=0x008b, f01=0x0190, f02=»T T A B ** H | 2 P** ** I " 2 P** ** I X 2 P** FIND TTAB ADDRESS ** I 2 P** ** I 2 P** INPUT :A8=
0x1a81f0…1a8384 Dummy {f00=0x008b, f01=0x0190, f02=» ** I f 2 P** WORKREGS:A3,A4,A10 ** J 2 P********************************************** J B P J x PGETTAB EQU * J P IFT MMUPAG=0 J P LDR* A3,A8 T:A ADDRESS J & P LD A1,T:ATID,A3 GET TID TO MATCH J P LD A12,T:DAD,A3 T:D
0x1a8384…1a8518 Dummy {f00=0x008b, f01=0x0190, f02=» XIF J & PGETTTB EQU * ENTRY. INPUT: A1=TID K " P ST A10,COM04+STKCOM SAVE A10 K 6 $ P LD A4,SCTTCT GET TC:TAB ADDRESS K P LDR* A10,A4 TCTAB LENGTH K PGETT10 ADK A4,2 K P SUKL A10,2 ALL? K P RF(NN) GETT20 NO! K * P LDR A3,A1 SAVE A1 (DEBU
0x1a8518…1a86ac Dummy {f00=0x008b, f01=0x0190, f02=»? K v P RB(NE) GETT10 NO! L P ST A2,TTAB+STKCOM SAVE L $ P LD A10,COM04+STKCOM L D P RTN A14 L ` P EJECT L p > P********************************************************** L ~ > P* * L > P*
0x1a86ac…1a8840 Dummy {f00=0x008b, f01=0x0190, f02=» * L > P* REFERENCED IN: MOVING,SYSLDB PART 2 * M 8 > P* * M z > P* ENTRY: MAPLEN - LENGTH OF AREA TO BE MAPPED * M > P*
0x1a8840…1a89d4 (2, 286) Dummy {f00=0x008b, f01=0x0190, f02=» * M > P* EXIT: * N 4 > P* * N v > P* WORK REGISTERS: A1,A2,A3,A4 * N > P*
0x1a89d4…1a8b68 Dummy {f00=0x008b, f01=0x0190, f02=» * N ~ > P********************************************************** O 0 PINBIMA EQU * O r P IFT MMUPAG=1 O P LDKL A1,/8000 INIT BIT MASK O * P LD A2,STKCOM+LSTADR GET LAST ADDRESS O P LDR A4,A2 SAVE O . P A
0x1a8b68…1a8cfc Dummy {f00=0x008b, f01=0x0190, f02=»NT O n ( P AD A4,STKCOM+TTAB ADD TTAB ADDRESS P " P LDR A3,A2 GET LOGICAL ADDRESS P 6 , P ANKL A3,/3000 SELECT ENTRY IN PARTITION P . P SRL A3,12 DISPL. REL. START OF PARTITION P * PMAP:40 SUK A3,1 CORRECT NIBBLE FOUND? P P RF(N) MAP:50 YES P P S
0x1a8cfc…1a8e90 Dummy {f00=0x008b, f01=0x0190, f02=»E P * PMAP:60 SUK A3,1 CORRECT 1K-PARTITION? Q P RF(N) MAP:65 YES Q 8 P SRL A1,1 NEXT 1K-PARTITION Q R P RB MAP:60 Q v * PMAP:65 LD A3,STKCOM+MAPLEN GET LENGTH Q * P ANKL A2,/3FF REMANING PART OF 1K-PAGE Q P ADR A3,A2 ADJUST LENGTH Q . P LDK
0x1a8e90…1a9024 Dummy {f00=0x008b, f01=0x0190, f02=»OCCUPIED Q h P LDR A3,A3 GET LENGTH R P RF(N) MAP:80 >32K R . " P SUKL A3,/400 DECREMENT LENGTH R H $ P RF(NP) MAP100 MAPPING FINISHED R n P RF MAP:90 R ( PMAP:80 SUKL A3,/400 DECREMENT LENGTH R & PMAP:90 SRL A1,1 NEXT 1K-PARTITION R , P RB(NZ) MA
0x1a9024…1a91b8 Dummy {f00=0x008b, f01=0x0190, f02=»DKL A1,/8000 INIT BIT MASK R P RB MAP:70 S " PMAP100 EQU * S 4 P XIF S H P RTN A14 S T P EJECT S d P S r 2 P** M M R S T ** S z 2 P** ** S 2 P** RESET MMTAB ENTRIES FROM ADDRE
0x1a91b8…1a934c Dummy {f00=0x008b, f01=0x0190, f02=» ** S 2 P** INPUT : A1 = LAST USED ENTRY ** T . 2 P** OUTPUT: A1 = MMTAB START ADDRESS ** T d 2 P** A2 = MMTAB START ADDRESS ** T 2 P** A12= /FC00 ** T 2 P**
0x1a934c…1a94e0 Dummy {f00=0x008b, f01=0x0190, f02=» T n P ADR A2,A13 U P SUK A2,2 U P LDKL A12,/FC00 INDICATOR U . PMMRST1 EQU * U P P SUK A1,2 NEXT ENTRY U d P CWR A1,A2 ALL DONE ? U P RF(E) MMRST2 YES U $ P STR A12,A1 INDICATE FREE ENTRY U P RB MMRST1 NEXT ENTRY U PMMRST2 EQU
0x1a94e0…1a9674 (2, 287) Dummy {f00=0x008b, f01=0x0190, f02=» * U p 0 P* GET START OF APLTAB-BLOCK AND CONFIGURA- * V 0 P* TION-DATA FOR SPECIFIED APPLICATION * V H 0 P* AND IF MMU-CASE ,LOAD HARDWARE MMU-TABLE * V | 0 P* AND MMTAB WITH MMU-TABLE FROM TTAB * V 0 P*
0x1a9674…1a9808 Dummy {f00=0x008b, f01=0x0190, f02=» APPL.TYPE 0,1,2,3... * V 0 P* CONSTA=START OF CONF.DATA * W $ 0 P* * W X 0 P* OUTPUT: A1=ADDRESS TO FIRST ENTRY IN * W 0 P* APLTAB-BLOCK * W 0 P* A2=BLOCK T
0x1a9808…1a999c Dummy {f00=0x008b, f01=0x0190, f02=»* APPLICATION * W 0 P* APPLNO=APPLNO+1 IF APPLICATION * X 4 0 P* IS FOUND * X h 0 P* ELSE APPLNO IS UNCHANGED * X 0 P* CONSTA=START OF CONF.DATA * X 0 P*
0x1a999c…1a9b30 Dummy {f00=0x008b, f01=0x0190, f02=» * X l 0 P* WORK REGISTERS : A1-A4,A11 * Y 0 P* * Y D 0 P******************************************** Y x PGETAPP EQU * Y . P* INITIATE REGISTERS AND INCREMENT APPLNO Y ( P LD A3,APLTAB+STKCOM A
0x1a9b30…1a9cc4 Dummy {f00=0x008b, f01=0x0190, f02=»DK A2,0 CLEAR APPL.COUNTER OF Y P ALL APPL.TYPES Z & 8 P* FIND RIGHT APLTAB-BLOCK FOR SPECIFIED APPLICATION Z @ PGTA100 EQU * Z | ( P ADK A2,1 INCREMENT APPL.COUNTER OF Z P ALL APPL.TYPES Z 0 P CW* A2,APLTAB+STKCOM ANY APPLICATION LEFT? Z
0x1a9cc4…1a9e58 Dummy {f00=0x008b, f01=0x0190, f02=»P,A3 RIGHT APPL.TYPE? Z P RF(E) GTA200 YES! [ . P ADK A3,ACBLEN UPDATE APLTAB-BLOCK ADDRESS [ 8 & P RB GTA100 SHECK NEXT APLTAB-BLOCK [ j PGTA200 EQU * [ . P CW A4,APPLNO+STKCOM RIGHT APPL.NUMBER OF [ P CURRENT APPL.TYPE? [ P RF(E) GTA300 YE
0x1a9e58…1a9fec Dummy {f00=0x008b, f01=0x0190, f02=»GTA100 SHECK NEXT APLTAB-BLOCK [ PGTA300 EQU * & P IFT MMUPAG=1 : . P* GET MMU-TABLE FROM TTAB OF CURRENT TASK P 6 P LD* A4,APLMMC,A3 GET TCTAB-ENTRY FOR CURRENT TASK 4 P ADKL A4,TTB:MT ADDRESS TO 1:ST MMU-TABLE ENTRY P IN TTAB P T
0x1a9fec…1aa180 Dummy {f00=0x008b, f01=0x0190, f02=»N ^ $ P LDK A4,0 CLEAR APPL.COUNTER OF ] P ALL APPL.TYPES ] 2 , P LDR A1,A3 LOAD APLTAB-BLOCK ADDRESS TO ] L P OUTPUT REGISTER ] | 0 P LD A11,CONSTA+STKCOM GET START OF CONF.DATA ] ( P ADK A4,1 INCREMENT APPL.COUNTER OF ] P ALL APPL.TYPES
0x1aa180…1aa314 (2, 288) Dummy {f00=0x008b, f01=0x0190, f02=» A3,A11 GET CHAR. FROM CONF.DATA ] , P ADKL A11,1 INCREMENT CONF.DATA POINTER ^ ( * P CCK A3,/FFFF IS CONF.DATA CHAR. /FF? ^ X P RB(NE) GTA400 NO! ^ ( P ADK A4,1 INCREMENT APPL.COUNTER OF ^ P ALL APL.TYPES ^ $ P CWR A2,A4 RIGHT APPL.NUMBER OF ^
0x1aa314…1aa4a8 Dummy {f00=0x008b, f01=0x018e, f02=» TO PSW OF THIS ^ x ( P* SUBRUTIN,AND RETURN FROM SUBRUTIN _ PGTA800 EQU * _ D . P IM APPLNO+STKCOM INCREMENT APPL.NUMBER OF _ X P CURRENT APPL.TYPE _ P LDK A2,0 CLEAR REGISTER _ ( P LCR A2,A11 GET CHAR FROM CONF.DATA _ 0 P LDK A4,1 MAKE COND.RE
0x1aa4a8…1aa63c Dummy {f00=0x008b, f01=0x0190, f02=» P ` P ` 6 P** C O N V R T ** ` 6 P** ** ` V 6 P** ** ` 6 P** CONVERSION OF TWO ASCII-DIGITS TO BINARY ** ` 6 P**
0x1aa63c…1aa7d0 Dummy {f00=0x008b, f01=0x0190, f02=»SULT ** ` x 6 P** WORK.REGS: A3,A2 ** a " 6 P************************************************** a P a PCONVRT EQU * a P LDK A1,0 CLEAR RESULT REG a P LDR A3,A5 a P SRL A3,8 GET TEN'S a P S
0x1aa7d0…1aa964 Dummy {f00=0x008b, f01=0x0190, f02=»3,A5 a P ANK A3,/F GET ONE'S b P ADR A1,A3 b ( P RTN A14 b : P EJECT b J P b X 6 P** N X T B L K ** b ` 6 P** ** b 6 P** ** b
0x1aa964…1aaaf8 Dummy {f00=0x008b, f01=0x0190, f02=»=ADDRESS TO CURRENT BLOCK-START ** b 6 P** OUTPUT:A11=ADDRESS TO NEXT BLOCK ** c , 6 P** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE ** c f 6 P** WORKREGS: A1,A3-A5 ** c 6 P**********************************************
0x1aaaf8…1aac8c Dummy {f00=0x008b, f01=0x0190, f02=»N-BLOCK c j P LCR A5,A11 d P SLL A5,8 d $ P LC A5,1,A11 d 6 P CALL CONVRT d J P LDK A2,TDBREC d ^ P LDR A3,A1 d t P CALL MULT d P ADR A11,A3 d P ADKL A11,2 d 0 P LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES d P SLL A5,8 d P L
0x1aac8c…1aae20 Dummy {f00=0x008b, f01=0x0190, f02=»1=NEXT BLOCK d P ADKL A11,2 e $ P LC A2,TDBBT,A11 GET BLOCK TYPE e ( P RTN A14 e P P EJECT e ` P e n P e z 8 P** G E T N U M ** e 8 P** ** e 8 P**
0x1aae20…1aafb4 (2, 289) Dummy {f00=0x008c, f01=0x018e, f02=» ** e v 8 P** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER ** f " 8 P** OUTPUT: A5=BINARY VALUE ** f ^ 8 P** WORK.REGS: A2,A4 ** f 8 P**************************************************
0x1aafb4…1ab148 Dummy {f00=0x008c, f01=0x0190, f02=» f x PGET030 ADK A6,1 NEXT DIGIT g P LCR A2,A6 GET CHAR g * P ANK A2,/F g F PGET050 SUK A2,1 g X " P RF(N) GET100 THIS DIGIT READY g p P ADR A5,A4 ACCUMULATE g P RB GET050 g , PGET100 SUK A4,90 NEXT INCREMENT (TEN'S) g P RB(P) GET030 g
0x1ab148…1ab2dc Dummy {f00=0x008c, f01=0x0190, f02=» Q U E J O B ** g 8 P** ** h 2 8 P** ** h n 8 P** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** h 8 P** 0, ENB.
0x1ab2dc…1ab470 Dummy {f00=0x008c, f01=0x0190, f02=»AB-ADDRESS ** h 8 P*************************************************** i , P i h PQUEJOB EQU * i p P* QUEUE THIS TASK (THIS TID) i P i 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS i P ADR A3,A13 RELOCATE i P STR A3,
0x1ab470…1ab604 Dummy {f00=0x008c, f01=0x0190, f02=»0 CLEAR ABORT INDICATOR i P IFT MMUPAG=0 j , P LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS j 6 P ADK A4,2 j f P ANKL A4,/FFFE j x P ADK A4,DWBFST+4 j 8 P ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS j & P LDR* A6,A4 NUMBER OF START POINTS j
0x1ab604…1ab798 Dummy {f00=0x008c, f01=0x0190, f02=»ER j x P XIF k P IFT MMUPAG=1 k , P EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS k , P ADK A4,2 k P ANKL A4,/FFFE k n P ADK A4,DWBFST+4 k 8 P ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS k & P ELR A6,A4 NUMBER OF START-POINTS k . PGETT30
0x1ab798…1ab92c Dummy {f00=0x008c, f01=0x0190, f02=» XIF k P CF A15,ACTOT l $ P ADK A4,STPREC NEXT START-POINT l " P RB GETT30 l J $ PGETT40 ABL RETUR8 RELOAD 8 REGS l PRETUR EQU *-REL l P RTN A14 l P EJECT l P l 4 P** M O V M M T ** l 4 P**
0x1ab92c…1abac0 Dummy {f00=0x008c, f01=0x0190, f02=» ** l j 4 P** ** m 4 P** INPUT :A2=TTAB-ADDRESS ** m J 4 P** MMTAB HOLDS TABLE TO MOVE ** m 4 P** OUTPUT:A2=START OF MM-TABLE IN TTAB ** m 4 P** A9=TTAB AD
0x1abac0…1abc54 (2, 290) Dummy {f00=0x008c, f01=0x0190, f02=»* m b P n PMOVMMT EQU * n P IFT MMUPAG=1 n & ( P ADKL A2,MMBEG GET TO-TABLE ADDRESS n < " P TL MMTAB,A13 LOAD FROM-TABLE n h P TSR A2 MOVE n P LDR A3,A2 n ( P CALL MMENT FILL LAST ENTRY ADDRESS n $ P TL* MMFROM+STKCOM RELOAD TABLE n P
0x1abc54…1abde8 Dummy {f00=0x008c, f01=0x0190, f02=»NITIATE DYNAMIC CORE FOR COBOL n P* o & " P LD A2,SCTOPT GET OPTION WORD o 0 " P ANKL A2,/2000 ANY COBOL APPL? o V P RF(Z) PBSEND NO! o | . P LD A8,DYNSTA+STKCOM GET START OF DYNTAB:S o & P LDR* A2,A8 GET NUMBER OF DYNTAB:S o ( P ADKL A8,2 INCREMENT D
0x1abde8…1abf7c Dummy {f00=0x008c, f01=0x0190, f02=»POINTER o t P LDR* A7,A8 GET SPL-PBS ADR p P LDR A6,A13 p 4 * P ADKL A6,PBSTAB CONSTANT-TABLE ADDRESS p H P SUK A3,2 END OF DYNTAB p v P RF(Z) INDY50 YES! p PINDY20 EQU * p $ P LDR* A5,A6 GET NUMBER OF COPIES p P CWK A5,/FFFF END OF TABLE?
0x1abf7c…1ac110 Dummy {f00=0x008c, f01=0x0190, f02=»EMENT NBR.OF COPIES p . P RB(N) INDY20 ALL DONE FOR THIS CHARACTER q * P STR A4,A7 STORE CHARACTER IN SPL-PBS q N " P ADK A7,2 STEP SPL-PBS POINTER q | P RB INDY30 NEXT WORD q PINDY40 EQU * q P LDR* A4,A8 SPL-PBS ADR q P LDKL A5,STKMAX STACK-
0x1ac110…1ac2a4 Dummy {f00=0x008c, f01=0x0190, f02=» P LDR A6,A4 SPL-PBS ADDR r & P ADK A6,SPLSTA POINT AT STACK AREA r $ P ADR A5,A6 +STACK AREA ADDR r N 0 P ST A5,SPLSTB,A4 STORE IN SPL-PBS STACK-BASE r r P RB INDY10 r PINDY50 EQU * r P SUK A2,1 ANY DYNTAB:S LEFT? r P RB(NZ) INDY05 YES! r
0x1ac2a4…1ac438 Dummy {f00=0x008c, f01=0x0190, f02=» ** r j 6 P** EACH WORD IN THIS TABLE CONSISTS OF: ** s 6 P** WORD1=COUNTER,NBR OF COPIES OF NEXT WORD ** s N 6 P** WORD2=WORD ** s 6 P** ** s 6 P** BYTE1 (C
0x1ac438…1ac5cc Dummy {f00=0x008c, f01=0x0190, f02=»****************** s p PPBSTAB EQU *-REL t P DATA 1 TERMINATION-CODE t 2 P DATA 0 t R P DATA 1 STACK-USED t b P DATA /6 t | P DATA 1 STACK-SIZE t P DATA 0 t P DATA 3 PROCEDURE-NAME t P DATA /2020 t & P DATA 20 PGM-DATA UNTIL STACK-BA
0x1ac5cc…1ac760 Dummy {f00=0x008c, f01=0x0190, f02=»ORK-AREA t v P DATA 0 u & P DATA /FFFF E N D O F T A B L E u PPBSEND EQU * u J P XIF u ^ P IFF MMUPAG+DSKPAG=0 u j P* u 4 P* RESERVE PAGES IN MEMORY AND BUILD PAGE TABLE u P* u PPAGGEN EQU * u P LDKL A2,PAGEX EXIT ADDRESS u
0x1ac760…1ac8f4 (2, 291) Dummy {f00=0x008c, f01=0x0190, f02=»ORD u v P ANK A1,3 PAGING? v P ABR(Z) A2 NO! v & P* v < L P* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS v F P* v * P LD A11,SCTSFA GET START OF FREE AREA v " P ST A11,SCTPAG STORE IN SYSTAB v $ P LDR A8,A13 GET RELO
0x1ac8f4…1aca88 Dummy {f00=0x008c, f01=0x0190, f02=»P EQUAL TO NUMBER OF PAGES? v P RF(E) PAG:30 YES! w $ $ P LDK A1,0 RESET NUMBER OF WORDS w > PPAG:20 EQU * w f " P ADKL A11,2 INCLUDE NEXT WORD w z 0 P RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) w $ P ADK A1,1 INCREMENT WORD COUNTER w P CWK A1,4 4
0x1aca88…1acc1c Dummy {f00=0x008c, f01=0x0190, f02=»PAG:20 w 0 PPAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER x P RB PAG:10 x B PPAG:30 EQU * x T P* x h 4 P* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY x r 6 P* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER x P* OF PAGE BLOCKS. x P* x P
0x1acc1c…1acdb0 Dummy {f00=0x008c, f01=0x0190, f02=»NKL A2,/FFF GET DISPLACEMENT x & P SRL A2,2 SKIP TWO RIGHTMOST BITS y $ , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS y N P LDR A3,A1 SAVE y ~ P LD A2,SCTPSZ GET PAGE SIZE y & P SRL A2,2 SKIP TWO RIGHTMOST BITS y P LDR A10,A2 SAVE y 0 P ANKL A1,/FC
0x1acdb0…1acf44 Dummy {f00=0x008c, f01=0x0190, f02=»PAGE ADDRESS LIMIT y ~ P XIF z P IFT DSKPAG-MMUPAG=1 z & 2 P LD A1,LSTADR+STKCOM GET PHYSICAL LAST ADDRESS z B P LD A10,SCTPSZ PAGE SIZE z x P XIF z P IFF MMUPAG+DSKPAG=0 z P LDR A9,A1 INIT PAGE ADDRESS z P LDR A6,A9 SAVE z PPAG:31 EQU *
0x1acf44…1ad0d8 Dummy {f00=0x008c, f01=0x0190, f02=»PAG:32 CWR A6,A10 z PPAG:33 RF(NG) PAG:40 { , P SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE { 6 P LDR A1,A6 GET PAGE ADDRESS { f P IFT MMUPAG=1 { * P ANKL A1,/C000 ADDRESS IN SYSTEM AREA? { P RF(NZ) PAG:34 NO! { . P LDR A1,A6 PHYSICAL ADDRESS IN
0x1ad0d8…1ad26c Dummy {f00=0x008c, f01=0x0190, f02=» P IFF MMUPAG+DSKPAG=0 | & PPAG:36 LDK A2,0 RESET WORD COUNTER | . PPAG:38 CWR A11,A8 CHECK PROGRAM OVERWRITE | J * P RF(E) PAG:40 NO MORE MEMORY AVALIABLE | | $ P ADKL A11,2 INCR. PAGBLK POINTER | $ P ADK A2,1 INCREMENT WORD COUNTER | P CWK A2,4 BLOC
0x1ad26c…1ad400 Dummy {f00=0x008c, f01=0x0190, f02=»T CHECK | z P RF(NN) PAG382 } P CWR A11,A1 } & P RF PAG384 } : PPAG382 CWR A1,A11 } L . PPAG384 RB(G) PAG:38 MORE MEMORY AVALIABLE } f PPAG:40 EQU * } " P ADK A7,0 ANY PAGES RESERVED? } P RF(Z) MEMOFL NO! } 6 P CW A7,SCTNOP ONLY PAGES FOR
0x1ad400…1ad594 (2, 292) Dummy {f00=0x008c, f01=0x0190, f02=»AG:50 YES! } PMEMOFL LDKL A1,LMP3 ~ * P OTR A1,0,SOP INDICATE MEMORY OVERFLOW ~ . P HLT HALT PROGRAM ~ : PPAG:45 CW A7,STKCOM+TOTSGM ONE PAGE/SEGMENT ALLOCATED? ~ v , P CW A7,STKCOM+TOTSGM MORE PAGES WANTED? ~ P RF(E) PAG:50 YES! ~ $ P ADK A7,1
0x1ad594…1ad728 Dummy {f00=0x008c, f01=0x0190, f02=»ES ~ p ( P LDR A1,A9 GET ADDRESS TO FIRST PAGE P LDR A2,A1 SAVE 6 P IFT MMUPAG=1 N * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS d P ST A1,SCTEFA SAVE . P SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS P XIF P IFF MMUPAG+DSKPAG=0 P S
0x1ad728…1ad8bc Dummy {f00=0x008c, f01=0x0190, f02=»APLTAB GET START OF ACB:S * P LDR* A4,A7 GET NUMBER OF APPLICATIONS " . PINI10 LD* A3,APLMMC+2,A7 GET TTAB ADDRESS P P IFF MMUPAG+DSKPAG=0 0 P LD A11,TTB:SP,A3 GET SEGMENT TABLE ADDRESS " P RF(Z) INI40 NO SEGMENT TABLE , P LD A6,SEG:NS,A1
0x1ad8bc…1ada50 Dummy {f00=0x008c, f01=0x0190, f02=»4K PAGE l & P SRL A1,2 SKIP TWO RIGHTMOST BITS : P OR A1,APLSEG+2,A7 MERGE WITH PHYSICL 4K PAGE ADDRESS : P XIF x P IFT DSKPAG-MMUPAG=1 4 P LD A1,APLSEG+2,A7 GET PHYSICAL 4K PAGE ADDRESS P SLL A1,2 MULTIPLY BY 4 6 P OR A1,APLNPE+2,
0x1ada50…1adbe4 Dummy {f00=0x008c, f01=0x0190, f02=» FOR CORE RESIDENT SEGMENTS x 8 P* AND STORE PAGE BLOCK ADDRESSES IN SEGMENT BLOCKS $ P* ` " P ADKL A11,8 NEXT SEGMENT BLOCK j P LDR* A2,A11 GET STATUS , P RF(NN) INI30 SEGMENT NOT LOADED IN CORE * P ST A12,6,A11 STORE PAGE BLOCK ADDRESS
0x1adbe4…1add78 Dummy {f00=0x008c, f01=0x0190, f02=» ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS * P LD A2,APLPSZ+2,A7 GET SEGMENT SIZE =1 2 P XIF =2 ` P IFT MMUPAG=1 =2 r P SRL A2,2 =1 P XIF =2 P IFF MMUPAG+DSKPAG=0 =2 & P ADR A1,A2 ADDRESS TO NEXT PAGE =1 P ADKL A12,
0x1add78…1adf0c Dummy {f00=0x008c, f01=0x0190, f02=»PAG+DSKPAG=0 P* 0 P* SAVE START OF DYNTAB:S IN SYSINI (STADYN) , P* BEFORE ENABLE IS SET BECAUSE INTERUPT R & P* CAN DESTROY DYNSTA IN A15-STACK P* . P LD A1,DYNSTA+STKCOM GET START OF DYNTAB:S . P ST A1,SAVDYN,A13 SAVE IN SYSINI
0x1adf0c…1ae0a0 Dummy {f00=0x008c, f01=0x0190, f02=»* , P LD A1,APLMMP+2,A7 GET APPLICATION TYPE ( P CWK A1,'AS' ASSEMBLER APPLICATION? : P RF(NE) INI50 NO f P* ~ " P* SWITCH TO LEVEL 0 & ENABLE P* " P LDKL A1,INI45 RETURN ADDRESS P ADR A1,A13 RELOCATE P STR A1,A15 ST
0x1ae0a0…1ae234 (2, 293) Dummy {f00=0x008d, f01=0x0190, f02=»APLMMC+2,A7 GET TTAB ADDRESS ( P LD A2,APLSTA+2,A7 GET START ADDRESS $ P AD A2,APLREL+2,A7 RELOCATE P P LDK A3,0 SEGMENT NUMBER t P CF A15,ACTOT QUEUE TASK P EJECT PINI50 EQU * P IFT MMUPAG=1 0 P LD A1,APLLAP+2,A7 GET LOGIC
0x1ae234…1ae3c8 Dummy {f00=0x008d, f01=0x0190, f02=»M APLMMP+2,A7 CLEAR DISPL. TO PAGE ENTRY P IFT MMUPAG=1 0 P RF INI60 F PINI55 EQU * X P SRL A1,12 PAGE ENTRY NUMBER l $ P LDK A2,16 NUMBER OF MMU ENTRIES & P SUR A2,A1 NUMBER OF PAGE ENTRIES P ST A2,APLNPE+2,A7 SAVE P SLL A
0x1ae3c8…1ae55c Dummy {f00=0x008d, f01=0x018e, f02=»LOGICAL ADDR. TO COMMON PART t P SRL A1,11 ENTRY NUMBER $ P ANK A1,/1E 2*ENTRY NUMBER D 4 P ADKL A1,TTB:MT DISPL TO FIRST COMMON PART ENTRY f P ST A1,APLMMC+2,A7 SAVE P XIF P ADK A7,ACBLEN NEXT ACB P SUK A4,1 MORE APPLICATIONS?
0x1ae55c…1ae6f0 Dummy {f00=0x008d, f01=0x0190, f02=» P LDR A12,A12 ANY PAGES? P RF(Z) INI90 NO! ( $ P CW A12,SCTSFA ANY FREE BLOCKS? @ P RF(E) INI90 NO! h 4 P ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK & P LDKL A11,PAGQUE POINTER TO PAGQUE 0 P LDR A1,A12 SAVE ADDRESS TO FIRST PAGE
0x1ae6f0…1ae884 Dummy {f00=0x008d, f01=0x0190, f02=»NDICATE PAGE FREE & P ADK A1,8 ADDRESS NEXT PAGE BLOCK " P CW A1,SCTSFA LAST PAGE BLOCK? D P RF(E) INI80 YES! j , P LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK & P STR A1,A12 STORE FORWARD POINTER P LDR A12,A1 NEXT PAGE BLOCK P ADR A
0x1ae884…1aea18 Dummy {f00=0x008d, f01=0x0190, f02=» p & P ST A12,PAGQUE+2 STORE IN PAGQUE+2 PINI90 EQU * 2 P EJECT F P XIF T P ` P h P* START BUGGER (IF ANY) p P P P* GET APPLICATION START , P LD A14,STKCOM+APLTAB GET START OF ACB:S , P LD A14,APLREL+2,A14 GET
0x1aea18…1aebac Dummy {f00=0x008d, f01=0x0190, f02=»A1,SCTBUG GET BUGGER ADDRESS P ABR(NZ) A1 $ P 8 PINI100 EQU *-REL @ P LDR A13,P X PINI110 EQU *-REL j 0 P SUKL A13,INI110 RESTORE PROGRAM BASE OINTER P* P* INIT A15 STACK P* P LD A15,SCTSTB P SUKL A15,4
0x1aebac…1aed40 Dummy {f00=0x008d, f01=0x0190, f02=»A1,IHRTCO LOAD TEMPORARY INTERRUPT ADDRESS P ADR A1,A13 RELOCATE 2 * P ST A1,IHRTC STORE IN INTERRUPT VECTOR N & P CF A15,PFINIT INITIALIZE DEVICES | P CF A15,SAVE8 SAVE REGISTERS $ P CF A15,SWL48 SWITCH TO LEVEL 48 P* F P* WAIT APPR
0x1aed40…1aeed4 (2, 294) Dummy {f00=0x008d, f01=0x018e, f02=»1,1 P RB(NZ) DELAY P INH " ( P LDKL A1,0 GET RTC INTERRUPT ADDRESS . PSAVRTC EQU *-REL-2 Z P ST A1,IHRTC RESTORE t $ P LDR A1,A13 GET START OF SYSINI . P ADKL A1,INISTA START OF INIT. INSTR. SEQ. . P ADKL A13,INILEN END OF INIT.
0x1aeed4…1af068 Dummy {f00=0x008d, f01=0x0190, f02=» p $ P ADK A1,2 INCREMENT FROM-ADDRESS " P ADK A2,2 INCREMENT TO-ADDRESS 0 P CWR A1,A13 ALL WORDS MOVED? V P ABL(E) STKEND YES z P RB INI150 P* * P* TEMPORARY INTERRUPT ROUTINE FOR RTC P* PIHRTCO EQU *-REL P RIT RTC
0x1af068…1af1fc Dummy {f00=0x008d, f01=0x0190, f02=»LICATIONS AND BRANCH TO DISPATCHER P* * PINDY00 EQU * 4 " P LD A2,SCTOPT GET OPTION WORD H " P ANKL A2,/2000 ANY COBOL APPL? n P RF(Z) PBSEND NO! P LDKL A2,STKEND * P LD A8,STADYN,A2 GET START OF DYNTAB:S ( P RF(Z) PBSEND NO COB
0x1af1fc…1af390 Dummy {f00=0x008d, f01=0x0190, f02=»A3,A8 GET DYNTAB LENGTH (BYTES) PINDY10 EQU * ( ( P ADKL A8,2 INCREMENT DYNTAB POINTER < P LDR* A7,A8 GET SPL-PBS ADR h , P LDKL A6,STKEND START OF INIT.INSTR.SEQ. * P ADKL A6,PBSTAB CONSTANT-TABLE ADDRESS P SUK A3,2 END OF DYNTAB
0x1af390…1af524 Dummy {f00=0x008d, f01=0x0190, f02=»0 YES! P LD A4,2,A6 GET WORD TO COPY P ADK A6,4 ADJUST PBSTAB 2 PINDY30 EQU * R & P SUK A5,1 DECREMENT NBR.OF COPIES f . P RB(N) INDY20 ALL DONE FOR THIS CHARACTER * P STR A4,A7 STORE CHARACTER IN SPL-PBS " P ADK A7,2 STEP SPL-PBS P
0x1af524…1af6b8 Dummy {f00=0x008d, f01=0x018e, f02=»PLSTS,A4 STORE IN SPL-PBS ( P LDKL A7,ENTFIN ENTRY-FINI (ADDRESS) " & P ST A7,SPLENT,A4 STORE IN SPL-PBS N P LDR A6,A4 SPL-PBS ADDR x & P ADK A6,SPLSTA POINT AT STACK AREA P ADR A5,A6 +STACK AREA ADDR 0 P ST A5,SPLSTB,A4 STORE IN SPL-PBS
0x1af6b8…1af84c Dummy {f00=0x008d, f01=0x0190, f02=» PSAVDYN EQU *-REL PSTADYN EQU *-INDY00 P DATA 0 SAVE AREA FOR DYNSTA < P EJECT ` 6 P************************************************** n 6 P** ** 6 P** EACH WORD IN THIS TABLE CONSISTS O
0x1af84c…1af9e0 Dummy {f00=0x008d, f01=0x0190, f02=»** ** 6 P** BYTE1 (COUNTER)=/FF MEANS END OF TABLE ** : 6 P** ** t 6 P************************************************** PPBSTAB EQU *-INDY00 P DAT
0x1af9e0…1afb74 (2, 295) Dummy {f00=0x008d, f01=0x018e, f02=»PROCEDURE-NAME P DATA /2020 & P DATA 20 PGM-DATA UNTIL STACK-BASE * P DATA 0 T P DATA 1 STACK-BASE d P DATA 0 ~ P DATA 1 ENTRY-FINI P DATA 0 & P DATA 16 LAST-TS,RUNTIME-WORK-AREA P DATA 0 & P DATA /FFFF E N D O F
0x1afb74…1afd08 Dummy {f00=0x008d, f01=0x400c, f02=» @ ME P DATA /2020 & P DATA 20 PGM-DATA UNTIL STACK-BASE * P DATA 0 T P DATA 1 STACK-BASE d P DATA 0 ~ P DATA 1 ENTRY-FINI P DATA 0 & P DATA 16 LAST-TS,RUNTIME-WORK-AREA P DATA 0 & P DATA /FFFF E N D O F
0x1afd08…1afe9c Dummy {f00=0x008d, f01=0x2008, f02=» -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
0x1afe9c…1b0030 Dummy {f00=0x008d, f01=0x0190, f02=»MON DATA AREA. PROCESS CWB'S & UWB'S. ! v F P* ! -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO ! 0 F P* ! SHADOW-TABLE. ! z F P* ! !
0x1b0030…1b01c4 Dummy {f00=0x008d, f01=0x0190, f02=», UWB'S ! X F P* ! AND DWB'S. ! F P* ! -BUILD MM-TABLE ! F P* ! -MOVE T:D ! F P* ! -MOVE D.T.
0x1b01c4…1b0358 Dummy {f00=0x008d, f01=0x0190, f02=» -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE ! F P* ! W.B.-ADDRESS ! > F P* ! ! F P* ! P R O D A T
0x1b0358…1b04ec Dummy {f00=0x008d, f01=0x018e, f02=»FOR SWB'S ! f F P* ! -ALLOCATE FIXED BUFFERS AND TERMINAL STACK ! F P* ! -MOVE T:A ! j F P* ! -INCLUDE DDIV-PROTOTYPE IN FREE AREA. ! F P*
0x1b04ec…1b0680 Dummy {f00=0x008d, f01=0x0190, f02=» P P* ! R E A L T A ! PART 2.B F P* ! BUILD REAL TASK-LOCAL DATA AREAS ! X F P* ! -FILL MM-TABLE IN TTAB ! F P* ! -COPY T:A'S AC
0x1b0680…1b0814 (2, 296) Opaque[0x194]
0x1b0814…1b09a8 # DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11b8, f03=0x0000}
0x1b0814…1b09a8 IdxSect {
0x1b0814…1b09a8 f00 = 0x008d // 0x1b0814 @0x0
0x1b0814…1b09a8 f01 = 0x000a // 0x1b0816 @0x2
0x1b0814…1b09a8 gno = [ // 0x1b0818 @0x4
0x1b0814…1b09a8 [0x00]: C0x008d.0x3.0
0x1b0814…1b09a8 [0x01]: C0x008e.0x0.0
0x1b0814…1b09a8 [0x02]: C0x008e.0x1.0
0x1b0814…1b09a8 [0x03]: C0x008e.0x2.0
0x1b0814…1b09a8 [0x04]: C0x008e.0x3.0
0x1b0814…1b09a8 ]
0x1b0814…1b09a8 }
0x1b09a8…1b0b3c Dummy {f00=0x008d, f01=0x018e, f02=» 2 P IDENT DSKSUB REL 11.0 81-01-26 870105041100 P : " P =1, DM NVL BITS TAKEN AWAY B P PRR 11.0 80-11-19 CHLO h P* , P**************************************** P* , P* PHILIPS TERMINAL SYSTEM PTS * P* ,
0x1b0b3c…1b0cd0 Dummy {f00=0x008d, f01=0x0190, f02=» P* P* ( P* DSKSUB HOLDS THE FOLLOWING DISC ( P* AND FILE MANAGEMENT SUBROUTINES: D P* p 4 P* - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT z < P* - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER 6 P* - VOLADR = COMPUTE
0x1b0cd0…1b0e64 Dummy {f00=0x008d, f01=0x0190, f02=»OM DISC BUFFER TO DWT n . P* - NEWVOL = SET NEW VOLUME LOADED BITS 6 P* - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX P 8 P* - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL P* P* P EJECT DSKSUB P* P* P****
0x1b0e64…1b0ff8 Dummy {f00=0x008d, f01=0x0190, f02=»M MOVE VOLUME NAME FROM DWT TO USER BUFFER 4 P ENTRY VOLADR COMPUTE VOLUME NAME ADDRESS IN DWT 2 . P ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED j : P ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT , P ENTRY NEWVOL SET NEW VOLUME LOADED BITS 4
0x1b0ff8…1b118c Dummy {f00=0x008d, f01=0x0190, f02=»RY NVLEND END OF NVLTAB P ENTRY NVLBIT NVL BIT MASK P EJECT DSKSUB B P* X P* b P************* l P* EXTERNALS * P************* P* P* 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS P EXTRN TTABLD
0x1b118c…1b1320 Dummy {f00=0x008d, f01=0x018e, f02=»DER l P EXTRN DWTOR INDEX AND ORDER P EXTRN DWTTAB TTAB ADDRESS 0 " P EXTRN DWTUEC USER ECB ADDRESS R P EXTRN DWTVOL VOLUME NAME x ( P EXTRN DWTNVL NEW VOLUME LOADED FLAG " P EXTRN EWTVOL VOLUME FILE CODE 2 P EXTRN FWTEW1 POINTER TO 2ND
0x1b1320…1b14b4 (2, 297) Dummy {f00=0x008e, f01=0x018e, f02=» & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH . P EJECT DSKSUB X P* n P* x , P*************************************** P* P* CONDITIONAL ASSEMBLY P* , P************************************
0x1b14b4…1b1648 Dummy {f00=0x008e, f01=0x018e, f02=» PMMUPAG EQU 1 P* P* " 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION , . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. f P* PCPU852 EQU 0 P* P* . P* A PROGRAM VERSION USING TOSS DISC PAGING * P* IS OBTAINE
0x1b1648…1b17dc Dummy {f00=0x008e, f01=0x0190, f02=» 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* > PSWPBLK EQU 0 H P* P EJECT DSKSUB f P* ~ P* 2 P* A PROGRAM VERSION SUPPORTING FILE MANAGEMENT * P* IS OBTAINED BY SETTING FILMAN EQU 1. P* PX:A EQU
0x1b17dc…1b1970 Dummy {f00=0x008e, f01=0x0190, f02=»N EQU 1. r P* PX:B EQU 0 PDATMAN EQU X:B , P* B P EJECT DSKSUB L P* d P* n P********** x P* VOLCLR * P********** P* P* 6 P* VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S) " P* IN THE R
0x1b1970…1b1b04 Dummy {f00=0x008e, f01=0x0190, f02=»OUTPUT: A1, A2 ARE DESTROYED P* $ PVOLCLR EQU * . P LDR A2,A1 B & P CF A15,VOLADR VOLUME NAME ADDRESS T P* ~ PVCLR10 EQU * P CMR A1 CLEAR ONE WORD P ADK A1,2 INCREMENT POINTER $ P SUK A2,2 DECREMENT LOOP COUNTER P R
0x1b1b04…1b1c98 Dummy {f00=0x008e, f01=0x0190, f02=» P* P* : P* VOLNAM WILL MOVE THE VOLUME NAME OF SELECTED DISC 4 P* TO THE USER BUFFER IF REQUESTED LENGTH = 6. Z P* P* INPUT: A6 = DWT ADDRESS P* A8 = ECB ADDRESS P* $ P* OUTPUT: A1-A4 ARE DEST
0x1b1c98…1b1e2c Dummy {f00=0x008e, f01=0x0190, f02=»ED n * P CF A15,VOLADR GET DWT VOLUME ADDRESS ( P ST A4,ECBEL,A8 SET EFFECTIVE LENGTH 8 P* d P IFT MMUPAG=0 n ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS P* P EJECT DSKSUB P* P* PVNAM10 EQU * P LDR* A3,A1 MO
0x1b1e2c…1b1fc0 Dummy {f00=0x008e, f01=0x018e, f02=» P RB(P) VNAM10 P RF RETURN P XIF , P* 8 P IFT MMUPAG=1 B 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK X P TS -30,A15 SAVE RUNNING MMU P TL TTB:MT,A2 LOAD USER MMU & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,E
0x1b1fc0…1b2154 (2, 298) Dummy {f00=0x008e, f01=0x018e, f02=» P* P EJECT DSKSUB P* $ P* . P********** 8 P* VOLADR * J P********** P* n P* x P* INPUT: A6 = DWT ADDRESS P* ( P* OUTPUT: A1 = VOLUME NAME ADDRESS P* A4 = 6 P* PVOLADR EQU *
0x1b2154…1b22e8 Dummy {f00=0x008e, f01=0x0190, f02=» PVOLA10 EQU * P ADK A1,6 UPDATE ADDRESS P SUK A4,1 8 P RB(NN) VOLA10 J P LDK A4,6 ` P RF RETURN r P* P EJECT DSKSUB P* P* P********** P* NVLCHK * P********** P* P* 8 P*
0x1b22e8…1b247c Dummy {f00=0x008e, f01=0x0190, f02=»D TO THE CALLING TASK (RC=/20). | P* ( P* INPUT: A6 = DWT ADDRESS 2 P* V 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 E
0x1b247c…1b2610 Dummy {f00=0x008e, f01=0x0190, f02=»DR A2,A6 P LD A1,DWTNVL,A2 NVL FLAG 2 P ANKL A1,/7FFF RESET BIT 0 (FIRST REQUEST BIT) 2 P ST A1,DWTNVL,A2 h , P ANKL A1,/3FFF NOT 1ST REQ. OR FIX DISK " P RF(Z) RETURN RETURN IF NO NVL " P LD A4,DWTTAB,A6 TTAB ADDRESS P LDK A1,1
0x1b2610…1b27a4 Dummy {f00=0x008e, f01=0x0190, f02=»CK IF END OF TABLE REACHED ~ P RF(E) NVL:20 END OF NVLTAB " " P CWR* A4,A3 CHECK TTAB ADDRESS F $ P RF(E) NVL:20 NVL FOR THIS TASK l P SLL A1,1 SHIFT NVL BIT MASK * P ADK A3,2 POINT TO NEXT TTAB IN NVLTAB P RB NVL:10 P* PNVL:20
0x1b27a4…1b2938 Dummy {f00=0x008e, f01=0x0190, f02=»BIT t P LDK A1,/20 RETURN CODE P* , P EJECT DSKSUB 6 P* N P* X $ PRETURN EQU * COMMON RETURN LABEL b P IFT CPU852=1 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS P XIF P* P IFT CPU852=0 P RTN A
0x1b2938…1b2acc Dummy {f00=0x008e, f01=0x0190, f02=» P* 6 P* VOLGET WILL READ VOLUME NAME FROM DISC BUFFER @ P* TO DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. H P* ( P* INPUT: A2 = DISC BUFFER ADDRESS 2 P* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) 0 P* BIT 0
0x1b2acc…1b2c60 Dummy {f00=0x008e, f01=0x0190, f02=» A1-A3, A7-A8 ARE DESTROYED P* , P* 6 PVOLGET EQU * @ * P CF A15,VOLADR DWT VOLUME NAME ADDRESS T P LDK A7,0 RESET NVL FLAG P* PVGET10 EQU * , P LDR* A8,A2 ONE WORD OF NEW VOLUME NAME , P CWR* A8,A1 COMPARE WITH
0x1b2c60…1b2df4 (2, 299) Dummy {f00=0x008e, f01=0x018e, f02=»SKSUB P* P* PVGET20 EQU * " ( P ADK A1,2 INCREMENT BUFFER POINTERS 6 P ADK A2,2 b $ P SUK A4,2 DECREMENT LOOP COUNTER t P RB(P) VGET10 P CF A15,INXDWT P ADK A7,0 CHECK NVL FLAG " P RB(Z) RETURN RETURN IF NO NVL
0x1b2df4…1b2f88 Dummy {f00=0x008e, f01=0x0190, f02=» j P LD A7,DWTNVL,A4 NVL FLAGS 2 P RB(N) RETURN NO REQUESTS SO FAR ON THIS DISC * P SLL A7,1 ` $ P RB(N) RETURN FIXED DISC, NO NVL r P* P EJECT DSKSUB P* P* P********** P* NEWVOL * P********** P*
0x1b2f88…1b311c Dummy {f00=0x008e, f01=0x0190, f02=» 6 P* THE NEW VOLUME LOADED FLAG IS THEN SET BY THIS 6 P* ROUTINE FOR THE CONCERNED FILE CODE AND FILES > 8 P* OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE x 4 P* TABLE NVLTAB WILL GET RETURN CODE /20 AT THE ( P* NEXT REQUEST ON THAT FIL
0x1b311c…1b32b0 Dummy {f00=0x008e, f01=0x0190, f02=» A6 = DWT ADDRESS P* & P* OUTPUT: A3 = ACTUAL FILE CODE $ P* A1-A2 ARE DESTROYED N P* n PNEWVOL EQU * x 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,
0x1b32b0…1b3444 Dummy {f00=0x008e, f01=0x0190, f02=» P XIF P* P IFT FILMAN=1 * P LDKL A1,SCTFWT ADDRESS TO FWT POINTER 0 P* ^ > P* SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME h P* PNEW:10 EQU * P LDR* A2,A1 NEXT FWT ADDRESS P RB(Z) RETURN NO MORE FWT:S
0x1b3444…1b35d8 Dummy {f00=0x008e, f01=0x0190, f02=»,A2 ADDRESS TO 2ND EWT BLOCK $ P CC A3,EWTVOL,A2 CHECK FILE CODE $ P RF(NE) NEW:30 L P LDKL A2,/8000 NVL BIT b 0 P ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED P RB NEW:10 P* PNEW:30 EQU * . P LDR* A2,A2 ADDRESS TO NEXT EWT STRU
0x1b35d8…1b376c Dummy {f00=0x008e, f01=0x0190, f02=» DSKSUB P* P* P********** $ P* INXDWT * 6 P********** H P* Z P* d H P* INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. n P* P* INPUT: A6 = DWT ADDRESS P* 0 P* OUTPUT: A4 = DWT A
0x1b376c…1b3900 Dummy {f00=0x008e, f01=0x0190, f02=» ANK A4,/3 P ADR A4,A4 DOUBLE INDEX P ADR A4,A6 2 P RB RETURN D P* V P EJECT DSKSUB ` P* x P* P********** P* NVLTAB * P********** P* P* 4 P* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS
0x1b3900…1b3a94 (2, 300) Dummy {f00=0x008e, f01=0x0190, f02=»WTNVL v PNVLTAB EQU * P IFT FILMAN=1 " $ P DATA TTABFM FMTASK TTAB 15 8 P* ` P IFF DSKPAG+SWPBLK=0 j $ P DATA TTABLD LDTASK TTAB 14 P XIF P* =1 P IFT FILMAN=1 PNVLEND EQU * P* PNVLBIT DAT
0x1b3a94…1b3c28 Dummy {f00=0x008e, f01=0x413a, f02=» P DATA TTABLD LDTASK TTAB P* $ PNVLEND EQU * . P* B PNVLBIT DATA 3 NVL BIT MASK L P XIF n P* z P IFT FILMAN=0 P IFT DSKPAG+SWPBLK=0 P* PNVLEND EQU * P* PNVLBIT DATA 1 NVL BIT MASK P XIF
0x1b3c28…1b3dbc Dummy {f00=0x008e, f01=0x2008, f02=» NT DSKSUB PRR 10.1 79-08-09 CHLO END 2@ >
0x1b3dbc…1b3f50 Dummy {f00=0x008e, f01=0x0190, f02=» LDR* A4,A1 GET WORD p P STR A4,A2 STORE q P ADK A1,2 q 4 P ADK A2,2 q F P SUK A3,2 DEC LENGTH q X P RB(NN) MOVNXT q t P LDR A3,A9 SAVE q & P LDR A11,A2 GET START OF FREE AREA q ( P LD A9,SCTEFA+2 GET END OF FREE AREA q P CALL CMPADR q
0x1b3f50…1b40e4 Dummy {f00=0x008e, f01=0x018e, f02=» RESERVE 5 WORDS FOR DEBUGGER q P XIF r & P IFT MMUPAG=1 r 2 P CALL XMOVE r H & P* REMOVE DDIV ENTRIES IN MM-TABLE r P r " P LDR A3,A9 GET P:MTAB ADDRESS r , P SUK A3,10 RESERVE 5 WORDS FOR DEBUGGER r , P LDR A1,A3 GET P:MTAB ADDRESS-5WORDS
0x1b40e4…1b4278 Dummy {f00=0x008e, f01=0x0190, f02=» r z , P ADR A1,A2 P:MTAB-5WORDS START ENTRY =3 s P LDKL A4,/FC00 s 8 PSYA206 CWR A1,A2 ALL? s N P RF(E) SYA207 YES! s l , P STR A4,A1 REPLACE ENTRY WITH PAGE ERROR s P SUK A1,2 s P RB SYA206 s PSYA207 EQU * s P* s P* CHANGE TABLE -
0x1b4278…1b440c Dummy {f00=0x008e, f01=0x0190, f02=» XIF s P ANKL A3,/FFFE EVEN ADDRESS t . P ST A3,LSTADR+STKCOM SAVE END OF FREE AREA t 0 P t b P t j P t r . P* RESERVE SPACE FOR REAL T:A- AND U:BTAB * t ~ P t P t P IFT MMUPAG=1 t ( P LDKL A3,MMTAB GET CURRENT MM-TABLE t P ADR A
0x1b440c…1b45a0 Dummy {f00=0x008e, f01=0x0190, f02=» SAVE PHYSICALL PAGE t | * P LD A3,T:ANO,A10 GET LENGTH OF T:ATAB u P LDR A5,A3 SAVE u J * P CALL CALLMO RESERVE SPACE FOR T:ATAB u b & P TL* MMTO+STKCOM SET CORRECT TABLE u " P ESR A5,A2 STORE T:ATAB LENGTH u . P ST A2,T:ATNW,A10 SAVE NEW T:ATAB ADDRES
0x1b45a0…1b4734 (2, 301) Opaque[0x194]
0x1b4734…1b48c8 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11e0, f03=0x0000}
0x1b4734…1b48c8 IdxSect {
0x1b4734…1b48c8 f00 = 0x008f // 0x1b4734 @0x0
0x1b4734…1b48c8 f01 = 0x0002 // 0x1b4736 @0x2
0x1b4734…1b48c8 gno = [ // 0x1b4738 @0x4
0x1b4734…1b48c8 [0x00]: C0x008f.0x0.0
0x1b4734…1b48c8 ]
0x1b4734…1b48c8 }
0x1b48c8…1b4a5c Dummy {f00=0x008f, f01=0x0190, f02=» 0 P IDENT DVTKB REL 11.0 81-01-26 870105041100 P 8 P* @ " P* KEYBOARD DEVICE WORK TABLE J P* p P ENTRY DVTKB TABLE ENTRY z P EXTRN COD P EXTRN ECH P EXTRN KBAD4 PMMUPAG EQU 0 P* P* P* PDVTK
0x1b4a5c…1b4bf0 Dummy {f00=0x008f, f01=0x0190, f02=»ATA DWTEND-DVTKB ORDER ( P DATA KBAD4 POINTER TO ADDRESS BLOCK P DATA 'KB' TTAB ADDRESS J " P DATA 0 WAIT/ACTIVE INDICATOR j P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB ADDRE
0x1b4bf0…1b4d84 Dummy {f00=0x008f, f01=0x018e, f02=»A FOR A5 P RES 4 DWT STACK P DATA 0 SAVE AREA FOR A7 ( P DATA 0 SAVE AREA FOR A8 H $ P DATA /2222 CHANNEL PARAMETER-2 h " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS P DATA ECH
0x1b4d84…1b4f18 Dummy {f00=0x008f, f01=0x4168, f02=» P DATA 0 TIMER , P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE , P DATA DWTSQ+DVTKB POINTER TO LAST PLACE J PDWTSQ EQU *-DVTKB z P DATA 0,0,0,0,0,0,0,0 P DATA 0,0 P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P
0x1b4f18…1b50ac Dummy {f00=0x008f, f01=0x2008, f02=» TRIPLE ZERO " DATA 0 POINTER TO FIRST PLACE " DATA 0 POINTER TO LAST PLACE B DWTSQ/EQU/*-DVTKB h RES 0 IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @ PRESENT CONVERSI
0x1b50ac…1b5240 Dummy {f00=0x008f, 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
0x1b5240…1b53d4 (2, 302) Opaque[0x194]
0x1b53d4…1b5568 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11e8, f03=0x0000}
0x1b53d4…1b5568 IdxSect {
0x1b53d4…1b5568 f00 = 0x008f // 0x1b53d4 @0x0
0x1b53d4…1b5568 f01 = 0x0002 // 0x1b53d6 @0x2
0x1b53d4…1b5568 gno = [ // 0x1b53d8 @0x4
0x1b53d4…1b5568 [0x00]: C0x008f.0x1.0
0x1b53d4…1b5568 ]
0x1b53d4…1b5568 }
0x1b5568…1b56fc Dummy {f00=0x008f, f01=0x018e, f02=» 0 P IDENT DVTDI REL 11.0 81-01-26 870105041100 P 8 P* @ . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR J P* | P* & P ENTRY DVTDI DISPLAY INDICATOR 03 P* P* ( P EXTRN DIAD POINTER TO ADDRESS-BLOCK PMMUPAG EQU 0
0x1b56fc…1b5890 Dummy {f00=0x008f, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVTDI ORDER ( P DATA DIAD POINTER TO ADDRESS-BLOCK @ P DATA 'DI' TTAB ADDRESS l P DATA 0 WAIT ACTIVATE P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS
0x1b5890…1b5a24 Dummy {f00=0x008f, f01=0x018e, f02=» P DATA 0 SAVE AREA A5 =1 P RES 4 DWT STACK $ P DATA 0 SAVE AREA A7 =1 < P DATA 0 SAVE AREA A8 $ P DATA /2222 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS
0x1b5a24…1b5bb8 Dummy {f00=0x008f, f01=0x4082, f02=» x P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF > PDWTEND EQU * J P* ^ P* h P END r@ ~2 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS
0x1b5bb8…1b5d4c Dummy {f00=0x008f, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x1b5d4c…1b5ee0 Dummy {f00=0x008f, f01=0x0190, f02=» A1,A2 GET PRINTER STATUS $ P ANK A1,/25 TEST PRINTER STATUS " P RF(Z) WRJL70 NO ERRORS J " P ANK A1,1 TEST PRINTER STATUS j P RF(NZ) WRJL70 NOT OPERABLE " P ANK A2,4 TEST PRINTER STATUS P RF(NZ) WRJL80 REQUEST ERROR P LDKL A1,E
0x1b5ee0…1b6074 (2, 303) Opaque[0x194]
0x1b6074…1b6208 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11f0, f03=0x0000}
0x1b6074…1b6208 IdxSect {
0x1b6074…1b6208 f00 = 0x008f // 0x1b6074 @0x0
0x1b6074…1b6208 f01 = 0x0002 // 0x1b6076 @0x2
0x1b6074…1b6208 gno = [ // 0x1b6078 @0x4
0x1b6074…1b6208 [0x00]: C0x008f.0x2.0
0x1b6074…1b6208 ]
0x1b6074…1b6208 }
0x1b6208…1b639c Dummy {f00=0x008f, f01=0x0190, f02=» 0 P IDENT DVTDY REL 11.0 81-01-26 870105041100 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
0x1b639c…1b6530 Dummy {f00=0x008f, 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
0x1b6530…1b66c4 Dummy {f00=0x008f, f01=0x0190, f02=»A FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 ( P DATA 0 SAVE AREA FOR A8 H $ P DATA /2222 CHANNEL PARAMETER 2 h $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA
0x1b66c4…1b6858 Dummy {f00=0x008f, f01=0x407a, f02=»K v P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF @ PDWTEND EQU * L P* ` P END j@ vL PARAMETER 2 h $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA
0x1b6858…1b69ec Dummy {f00=0x008f, 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
0x1b69ec…1b6b80 Dummy {f00=0x008f, f01=0x0190, f02=» P* - PORDER EQU * - P CF A5,STABLK START OF BLOCK - " P RF(NZ) ERTP JMP IF ERROR - F * P LDK A2,RESET SEND RESET JUST IN CASE - h P CF A5,OUTPUT - P RF(NZ) ERTP JMP IF ERROR - P LDR A2,A3 - P RF OUT10 SEND PRINTER ORDER - P -
0x1b6b80…1b6d14 (2, 304) Opaque[0x194]
0x1b6d14…1b6ea8 # DirEnt {nam=»DVTG1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11f8, f03=0x0000}
0x1b6d14…1b6ea8 IdxSect {
0x1b6d14…1b6ea8 f00 = 0x008f // 0x1b6d14 @0x0
0x1b6d14…1b6ea8 f01 = 0x0004 // 0x1b6d16 @0x2
0x1b6d14…1b6ea8 gno = [ // 0x1b6d18 @0x4
0x1b6d14…1b6ea8 [0x00]: C0x008f.0x3.0
0x1b6d14…1b6ea8 [0x01]: C0x0090.0x0.0
0x1b6d14…1b6ea8 ]
0x1b6d14…1b6ea8 }
0x1b6ea8…1b703c Dummy {f00=0x008f, f01=0x0190, f02=» 0 P IDENT DVTG1 REL 11.0 81-01-26 870105041100 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTG1 TABLE ENTRY z P* P* * P EXTRN GPAD8 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND. P*
0x1b703c…1b71d0 Dummy {f00=0x008f, f01=0x0190, f02=»ECB ADDRESS P DATA DWTEND-DVTG1 ORDER ( P DATA GPAD8 POINTER TO ADDRESS BLOCK 4 P DATA 'GP' TTAB-ADDRESS ` $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P D
0x1b71d0…1b7364 Dummy {f00=0x008f, f01=0x0190, f02=»0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 0 $ P DATA /2222 CHANNEL PARAMETER 2 L $ P DATA 0 LINE DRIVER DEPENDENT 1 t $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 TIMER POINTER " P DAT
0x1b7364…1b74f8 Dummy {f00=0x008f, f01=0x0190, f02=»H t P DATA 0 ACTUAL LINE DOCUMENT $ P DATA 0 REQUESTED LINE DOCUMENT . P DATA 0 RETURN CODE V $ P DATA 0 CONTROL SEQUENCE ADRESS r 6 P DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. 0 P DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER P
0x1b74f8…1b768c Dummy {f00=0x008f, f01=0x406e, f02=»CB EQU * P DATA 0,0,0,0,0,0 P XIF * PDWTEND EQU * 6 P* J P* T P END ^@ j $ P DATA 0 CONTROL SEQUENCE ADRESS r 6 P DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. 0 P DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER P
0x1b768c…1b7820 Dummy {f00=0x008f, 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
0x1b7820…1b79b4 (2, 305) Dummy {f00=0x0090, f01=0x0190, f02=» A2 EQ ZERO SUCCESS 5 ~ 8 P* A2 NOT EQ ZERO NO SUCCESS 6 & P* 6 b P* 6 l PREPOS EQU * 6 v $ P LDK A4,8 SET REPOSITIONING BIT 6 " P ORS A4,DWTST,A6 STORE IN DWT 6 P* 6 PREP005 EQU * 6 & P LDK A4,PSUBS SET
0x1b79b4…1b7b48 Dummy {f00=0x0090, f01=0x0190, f02=»A6 GET BLOCK COUNTER 6 P SUK A2,8 GREATER 8 ? 7 P RF(G) REPER YES 7 : . P CF A8,SBOT NO DATA; SEARCH BEGIN OF TAPE 7 R P SLL A2,5 7 P RF(NN) REPER BOT NOT FOUND 7 " P LDKL A5,-1 RESET SEQ. COUNTER 7 P RF REP020 READ SEQ. CHAR 7 P* 7
0x1b7b48…1b7cdc Dummy {f00=0x0090, f01=0x0190, f02=»D SET NO OF MAX READ 7 P* 8 & PREP017 CF A8,READSQ READ SEQ. CHAR 8 & P LDKL A7,/180F SET READ MASK 8 P P TM A2,A7 8 t P RF(Z) REP020 READ OK 8 P SUK A4,1 COUNT READ 8 $ P RB(P) REP017 NOT ALL READ DONE 8 P RF REP060 GIVE UP 8 P* 8
0x1b7cdc…1b7e70 Dummy {f00=0x0090, f01=0x0190, f02=». 8 x P CWK A4,PINT TOO MANY BLOCKS 9 P RF(G) REPER YES 9 . P* 9 F P EJECT DRTC01 9 P P* 9 h P* 9 r " PREP030 SUK A4,1 POSITION TAPE 9 | P RF(N) REP040 READY 9 " P CF A8,READSQ READ NEXT BLOCK 9 P RB REP030 9 P* 9 ( PREP040 L
0x1b7e70…1b8004 Dummy {f00=0x0090, f01=0x0190, f02=»UK A4,1 COUNT RETRY 9 P RF(NP) REP060 GIVE UP : P CF A8,BKSP BACKSPACE : : " P CF A8,READSQ READ SEQ NUMBER : X P RB REP042 : ~ P* : P EJECT DRTC01 : P* : P* : PREP045 SLC A2,3 : P RF(NN) REP050 NOT TAPE MARK : P ANK A
0x1b8004…1b8198 Dummy {f00=0x0090, f01=0x018e, f02=»,DWTBKC+1,A6 : P RF(E) REPOK EQUAL ; P* ; . PREP060 LD A7,DWTST,A6 ; 8 $ P ANK A7,8 TRY POSITIONING AGAIN? ; V P RF(Z) REPER NO ; ~ , P XRS A7,DWTST,A6 RESET REPOSITIONING BIT ; P RB REP005 YES ; P* ; P* ; 6 PREPER LDK A2,2 IND RECOV
0x1b8198…1b832c Dummy {f00=0x0090, f01=0x0190, f02=» ; j P RTN A8 < P* < P EJECT DRTC01 < " P* < : P* < D P* D W T C 0 2 < N P* < f 2 P* DEVICE WORK TABLE FOR CASSETTE RECORDER 02 < p P* < P* < PDWTC02 EQU * TABLE ENTRY < P IFT DBCAS=2 < P DATA DWTC01+1 DWT NO. 1 <
0x1b832c…1b84c0 Dummy {f00=0x0090, f01=0x018e, f02=»S BLOCK < t 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 ECBTC2 MMU ECB ADDRESS = XIF = P IFT DBCAS=2 = P DATA 0 BLOCK COUN
0x1b84c0…1b8654 (2, 306) Opaque[0x194]
0x1b8654…1b87e8 # DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1208, f03=0x0000}
0x1b8654…1b87e8 IdxSect {
0x1b8654…1b87e8 f00 = 0x0090 // 0x1b8654 @0x0
0x1b8654…1b87e8 f01 = 0x0002 // 0x1b8656 @0x2
0x1b8654…1b87e8 gno = [ // 0x1b8658 @0x4
0x1b8654…1b87e8 [0x00]: C0x0090.0x1.0
0x1b8654…1b87e8 ]
0x1b8654…1b87e8 }
0x1b87e8…1b897c Dummy {f00=0x0090, f01=0x0190, f02=» 2 P IDENT DWII01 REL 11.0 81-01-26 870105041100 P : P* B P* L ( P* INTERTASK COMMUNICATION INPUT DWT V P* P ENTRY DWII01 TABLE ENTRY P P EXTRN ITAD DRIVER ENTRY & P EXTRN IT:BUF INTERTASK MMU BUFFER PMMUPAG E
0x1b897c…1b8b10 Dummy {f00=0x0090, f01=0x0190, f02=»I01 ORDER " P DATA ITAD+1 ACTIVATION ENTRY P DATA 0 TTAB ADDRESS 8 $ P DATA 0 WAIT/ACTIVATE INDICATOR T P DATA 0 TERMINAL QUEUE | P* P IFT MMUPAG=1 P DATA 0 USER ECB ADDRESS P DATA ITECB MMU ECB ADDRESS P XIF
0x1b8b10…1b8ca4 Dummy {f00=0x0090, f01=0x40e8, f02=» p P DATA 0,0 SAVE AREA P* $ P IFT MMUPAG=1 . PITECB EQU * MMU ECB D P DATA 0 ` P DATA IT:BUF p P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P* P* P END @ U ECB ADDRESS P XIF
0x1b8ca4…1b8e38 Dummy {f00=0x0090, f01=0x2008, f02=» DATA 0 TTAB ADDRESS $ DATA 0 WAIT/ACTIVATE INDICATOR $ DATA 0 TERMINAL QUEUE L DATA 0 TIMER POINTER j DATA 0 TIME OUT DATA 0 DATA 0,0 SAVE AREA END @ & ! DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x1b8e38…1b8fcc Dummy {f00=0x0090, f01=0x0190, f02=» P RF(Z) READ:E ASCII MODE 4 P =1 4 $ P ANK A1,X'FF' MASK CHARACTER 4 2 P SUK A1,X'30' 4 V P ABL(N) ERROR 4 l P CWK A1,X'09' 4 P RF(NG) READ:6 HEX-CHARACTER 4 P SUK A1,X'07' 4 P CWK A1,X'0A' 4 P ABL(L) ERROR 4 P CWK A1,X'
0x1b8fcc…1b9160 Dummy {f00=0x0090, f01=0x0190, f02=»F-BYTE MODE 4 x P SLL A6,4 5 P RB READ GET NEXT HALF BYTE 5 & . PREAD:F SC A6,BUF1 SAVE NON ASCII CHARACTER 5 J * PREAD:E CM C:COUNT CLEAR NON ASCII MODE 5 | ( P SUR A6,A6 CLEAR HALF BYTE SAVE REG. 5 P 5 P RTN A14 5 P 5 P EJECT 5 * P****
0x1b9160…1b92f4 (2, 307) Opaque[0x194]
0x1b92f4…1b9488 # DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1210, f03=0x0000}
0x1b92f4…1b9488 IdxSect {
0x1b92f4…1b9488 f00 = 0x0090 // 0x1b92f4 @0x0
0x1b92f4…1b9488 f01 = 0x0002 // 0x1b92f6 @0x2
0x1b92f4…1b9488 gno = [ // 0x1b92f8 @0x4
0x1b92f4…1b9488 [0x00]: C0x0090.0x2.0
0x1b92f4…1b9488 ]
0x1b92f4…1b9488 }
0x1b9488…1b961c Dummy {f00=0x0090, f01=0x0190, f02=» 2 P IDENT DWIO01 REL 11.0 81-01-26 870105041100 P : P* B P* L * P* INTERTASK COMMUNICATION OUTPUT DWT V P* P ENTRY DWIO01 TABLE ENTRY P P EXTRN ITAD DRIVER ENTRY & P EXTRN IT:BUF INTERTASK MMU BUFFER PMMUPAG
0x1b961c…1b97b0 Dummy {f00=0x0090, f01=0x0190, f02=»WIO01 ORDER P DATA ITAD ACTIVATION ENTRY P DATA 0 TTAB ADDRESS 8 $ P DATA 0 WAIT/ACTIVATE INDICATOR T P DATA 0 TERMINAL QUEUE | P* P IFT MMUPAG=1 P DATA 0 USER ECB ADDRESS P DATA ITECB MMU ECB ADDRESS P XIF
0x1b97b0…1b9944 Dummy {f00=0x0090, f01=0x40e8, f02=» p P DATA 0,0 SAVE AREA P* $ P IFT MMUPAG=1 . PITECB EQU * MMU ECB D P DATA 0 ` P DATA IT:BUF p P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P* P* P END @ U ECB ADDRESS P XIF
0x1b9944…1b9ad8 Dummy {f00=0x0090, f01=0x2008, f02=» DATA 0 TTAB ADDRESS $ DATA 0 WAIT/ACTIVATE INDICATOR $ DATA 0 TERMINAL QUEUE L DATA 0 TIMER POINTER j DATA 0 TIME OUT DATA 0 DATA 0,0 SAVE AREA END @ & ! DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x1b9ad8…1b9c6c Dummy {f00=0x0090, f01=0x0190, f02=»DECR REQUESTED LENGTH k P RB ACV170 l , PACV190 LCR A4,A1 GET THE CHARACTER AGAIN l 2 P ANK A4,/FF l b * P SUK A4,/12 TRAILING UNDERLINE START? l v P RB(Z) ACV170 YES. SKIP IT l , P SUK A4,/C TRAILING LOW INTENSITY START? l P RB(Z) ACV170 YES.
0x1b9c6c…1b9e00 Dummy {f00=0x0090, f01=0x0190, f02=»EW) REQUESTED LENGTH l r P EJECT m P XIF m * PACV210 EQU * m 6 , P CF A15,GETCHR GET CHAR FROM ECB BUFFER m J " P LDR A1,A1 END OF ECB BUFFER ? m z P RF(NP) ACV380 YES m P ANK A2,/7F CLEAN m P CWK A2,SPACE < /20 ? m 4 P RF(L) ACV220 YES. THE
0x1b9e00…1b9f94 (2, 308) Opaque[0x194]
0x1b9f94…1ba128 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1218, f03=0x0000}
0x1b9f94…1ba128 IdxSect {
0x1b9f94…1ba128 f00 = 0x0090 // 0x1b9f94 @0x0
0x1b9f94…1ba128 f01 = 0x0002 // 0x1b9f96 @0x2
0x1b9f94…1ba128 gno = [ // 0x1b9f98 @0x4
0x1b9f94…1ba128 [0x00]: C0x0090.0x3.0
0x1b9f94…1ba128 ]
0x1b9f94…1ba128 }
0x1ba128…1ba2bc Dummy {f00=0x0090, f01=0x0190, f02=» 0 P IDENT DW1501 REL 11.0 81-01-26 870105041100 P 8 P* @ : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 J P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 1 P*
0x1ba2bc…1ba450 Dummy {f00=0x0090, f01=0x0190, f02=»ESS P DATA DWTEND-DW1501 P RIGHT BYTE=ORDER ( * P DATA DC15AD POINTER TO ADDRESS-BLOCK D P DATA 'DC' TTAB-ADDRESS r $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P* P IFT MMUPAG=1 P DATA 0 USER ECB
0x1ba450…1ba5e4 Dummy {f00=0x0090, f01=0x0190, f02=» LINK HEAD DWT | & P DATA 0 CONFIG CHAIN LINK NEXT DWT & P DATA 0 LOCAL SYMBOLIC DTE ADDRESS @ ( P DATA 0 REMOTE SYMBOLIC DTE ADDRESS j P DATA 0 SYMBOLIC SUBADDRESS P DATA 0 REQUEST CONTROL WORD P DATA 0 REQUEST TIMER VALUE " P DATA
0x1ba5e4…1ba778 Dummy {f00=0x0090, f01=0x413e, f02=»ATA 0 I/P DATA Q LINK TO BUFFER " P DATA 0 I/P DATA TIMER POINTER ( P DATA 0 CURSOR ADDRESS N " P DATA 0 DEVICE BUFFER ADDRESS l P DATA 0 DWT STATUS P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0,0 P XIF
0x1ba778…1ba90c Dummy {f00=0x0090, f01=0x2008, f02=» R ( P DATA DCAD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P DATA 0,0 SAVE ARE
0x1ba90c…1baaa0 Dummy {f00=0x0090, f01=0x40e2, f02=» L H IDENT T:DK20 TRA 11.0 82-04-22 F1 O1111 REL 11.0 81-10-18 87015054110 T:DK20 T T:DK20D f KBVGO z * & K2 @ * * @ * &
0x1baaa0…1bac34 (2, 309) Opaque[0x194]
0x1bac34…1badc8 # DirEnt {nam=»DRKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1220, f03=0x0000}
0x1bac34…1badc8 IdxSect {
0x1bac34…1badc8 f00 = 0x0091 // 0x1bac34 @0x0
0x1bac34…1badc8 f01 = 0x0016 // 0x1bac36 @0x2
0x1bac34…1badc8 gno = [ // 0x1bac38 @0x4
0x1bac34…1badc8 [0x00]: C0x0091.0x0.0
0x1bac34…1badc8 [0x01]: C0x0091.0x1.0
0x1bac34…1badc8 [0x02]: C0x0091.0x2.0
0x1bac34…1badc8 [0x03]: C0x0091.0x3.0
0x1bac34…1badc8 [0x04]: C0x0092.0x0.0
0x1bac34…1badc8 [0x05]: C0x0092.0x1.0
0x1bac34…1badc8 [0x06]: C0x0092.0x2.0
0x1bac34…1badc8 [0x07]: C0x0092.0x3.0
0x1bac34…1badc8 [0x08]: C0x0093.0x0.0
0x1bac34…1badc8 [0x09]: C0x0093.0x1.0
0x1bac34…1badc8 [0x0a]: C0x0093.0x2.0
0x1bac34…1badc8 ]
0x1bac34…1badc8 }
0x1badc8…1baf5c Dummy {f00=0x0091, f01=0x0190, f02=» 2 P IDENT DRKB04 REL 11.0 81-06-26 870105041100 P : 4 P =4 WRONG RETURN CODE (UNDEFINED KEY, BIT 13) B P REL 11.0 81-06-16 z 4 P =3 ODD DWT-ADDRESS WAS NOT MADE EVEN IN IHKB P REL 11.0 81-05-25 0 P =2 GREEK CHARACTER SET
0x1baf5c…1bb0f0 Dummy {f00=0x0091, f01=0x0190, f02=»LAR INPUT BUFFER x P REL 11.0 81-01-26 P* 4 . P****************************************** > P* p P* z : P* P H I L I P S T E R M I N A L S Y S T E M P T S P* P* DRKB04 = DRIVER KEYBOARD P* . P**************
0x1bb0f0…1bb284 Dummy {f00=0x0091, f01=0x0190, f02=» n 2 P* -71, -72, 6331, 6342 AND BADGE CARD READER 4 P* PTS 6261 WITH CONNECTED PIN (PERSONAL IDEN- > & P* TIFICATION NUMBER -KEYBOARD). v P* 4 P* ONLY INPUT DATA ARE HANDLED BY THIS DRIVER. P* 0 P* AN ECHO DEVICE CAN BE AT
0x1bb284…1bb418 Dummy {f00=0x0091, f01=0x018e, f02=»LOWING PARTS: r " P* R C K B = RECOVERY ROUTINE " P* A C K B = ACTIVATION PART < P* M A K B = MAIN PART b $ P* I H K B = INTERRUPT HANDLER P* * P* THE FOLLOWING ORDERS ARE TREATED: P* ORDER 01: BASIC READ " P*
0x1bb418…1bb5ac Dummy {f00=0x0091, f01=0x0190, f02=» P* NORMAL REGISTER USAGE: $ P* REGISTER A1: RETURN CODE * ( P* A2: INPUT CHARACTER R $ P* A3: BUFFER INDEX ~ & P* A4: WORK REGISTER " P* A5: STACK BASE $ P* A6:
0x1bb5ac…1bb740 Dummy {f00=0x0091, f01=0x0190, f02=» 2 P* DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE P* DEFINED IN DWT. > P* Z 2 P* IF TIMING IS WANTED, BIT 0 IN DWTDEV MUST d 8 P* BE SET UNEQUAL TO ZERO. STANDARD VALUE FOR TIME- 6 P* OUT IS 30 SECONDS SINCE LAST DEPRESSED KEY. IF
0x1bb740…1bb8d4 (2, 310) Dummy {f00=0x0091, f01=0x0190, f02=»IN DWTDEV IS SET TO ZERO IF CHARACTERS WITHIN : P* /30-/39 AND /70-/79 ARE ACCEPTED FOR NUMERIC READ. 6 8 P* IF IT IS SET TO ONE, ONLY /30-/39 ARE ACCEPTED. t P* > P* BIT 2 IN DWTDEV IS SET TO ZERO IF /20-/5F ARE ACCEPTED < P* FOR STAN
0x1bb8d4…1bba68 Dummy {f00=0x0091, f01=0x0190, f02=» 8 P* IN DWTDEV MUST BE SET IF PTS 6236/71/72 IS USED. P* D < P* BIT 4 IN DWTDEV IS USED BY THE DRIVER TO INDICATE IF N * P* MORE CHARACTERS ARE TO BE ECHOED. P* @ P* SPACE FOR THE CIRCULAR INPUT BUFFER IS RESERVED IN DWT.
0x1bba68…1bbbfc Dummy {f00=0x0091, f01=0x0190, f02=»ON | P* ---- TIME OUT FUNCTION . P* ---- KEYBOARD LOCKED IF NO KEYLOCK ON , 4 P* ---- COMPLETION OF READ REQUEST AT POWER-ON ^ B P* ---- SHIFT KEY ON NUMERIC PART OF 6272 USED AS NORMAL KEY P* P EJECT P* ENTRIES P
0x1bbbfc…1bbd90 Dummy {f00=0x0091, f01=0x0190, f02=»SPATCH p " P EXTRN INPUT READ A CHARACTER P EXTRN ECHO ECHO 4 P EXTRN ECHEND END OF ECHO L P EXTRN LDISP DISPATCH n P EXTRN SETIME SETS TIME & P EXTRN LENDIS END I/O AND DISPATCH P EXTRN ABORT ABORT REQUESTS P EXTRN ABTADR
0x1bbd90…1bbf24 Dummy {f00=0x0091, f01=0x0190, f02=»RN DWTST P EXTRN DWTA3 P EXTRN DWTA5 $ P EXTRN DWTADR 8 P EXTRN DWTECH N P EXTRN DWTSB2 d P EXTRN DWTECB z P* P* ECB PARAMETERS P* P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LENGTH " P
0x1bbf24…1bc0b8 Dummy {f00=0x0091, f01=0x0190, f02=» IN INPUT BUFFER z " PTIME EQU 300 TIMEOUT CONSTANT P EJECT > P* L ( P************************************ V P* P* CONDITIONAL ASSEMBLY P* ( P************************************ P* < P* TIME OUT FUNCTION MAY BE
0x1bc0b8…1bc24c Dummy {f00=0x0091, f01=0x0190, f02=»TING X:B = 0 h P* PX:B EQU 1 PCECHO EQU 00 0 P* D 6 P* COMPLETION OF READ REQUEST AT POWER ON MAY BE N " P* INCLUDED BY SETTING X:C =1 P* PX:C EQU 1 PRECOV EQU X:C P* : P* THE LENGTH OF THE CIRCULAR
0x1bc24c…1bc3e0 Dummy {f00=0x0091, f01=0x0190, f02=» P* CODE CONVERSION DUMMY P* * PX:E EQU 0 4 P* F P EJECT P P* ^ @ P* BY SETTING X:F=0 THE KEY A15 ON KB 71/72 GIVES THE CODE h ( P* /00 INSTEAD OF BEING A SHIFT KEY P* PX:F EQU 1 PNSHIFT EQU 1 P
0x1bc3e0…1bc574 (2, 311) Dummy {f00=0x0091, f01=0x0190, f02=»* P* MMU BUFFER SIZE P* & PX:H EQU 10 0 PDVBLEN EQU X:H B P* X P* MMU KEY TABLE SIZE b P* PX:I EQU 10 PDVBKTB EQU X:I P* 6 P* X:J SHOULD BE SET TO 1 IF KB 6236, 71 OR 72 =2 " P* IS INCLUDED IN
0x1bc574…1bc708 Dummy {f00=0x0091, f01=0x0190, f02=» * P* 71 OR 72 IS INCLUDED IN SYSTEM =2 P* 2 PX:K EQU 1 < POLDKB EQU 00 N P* b 2 P* X:L SHOULD BE SET TO 1 IF PLC IS USED =2 l P* PX:L EQU 1 PPLC EQU X:L P* , P* IF X:M = 1 IT IS POSSIBLE TO USE =2
0x1bc708…1bc89c Dummy {f00=0x0091, f01=0x0190, f02=» b * P* OBTAINED BY SETTING MMUPAG EQU 1. P* 6 PMMUPAG EQU 1 @ P* T P EJECT ^ P* l P* DWT-DISPLACEMENT v P* " PDWTKEY EQU /04 KEYLOCK MEMORY $ PDWTCS EQU /06 CRTL-SHIFT MEMORY . PDWTCTB EQU /08 CONVERSION POIN
0x1bc89c…1bca30 Dummy {f00=0x0091, f01=0x0190, f02=»FIRST PLACE v ( PDWTUTQ EQU /0E POINTER TO LAST PLACE " PDWTSQ EQU /10 START OF BUFFER @ ( PDWTEQ EQU DWTSQ+DWTLNG END OF BUFFER f P* P* ADDRESS BLOCK P* P DATA DVBKTB MMU KEY TABLE P DATA DVBLEN MMU BUFFER SIZE P D
0x1bca30…1bcbc4 Dummy {f00=0x0091, f01=0x0190, f02=»DLER x P IFF RECOV=1 P DATA 0 NO RECOVERY ROUTINE P XIF D P IFT RECOV=1 P P DATA RCKB RECOVERY ROUTINE d P EJECT ( P************************************ P* P* RECOVERY ROUTINE P* * P**********************
0x1bcbc4…1bcd58 Dummy {f00=0x0091, f01=0x018e, f02=»ER OFF r P ABL LENDIS DISPATCH ! P* , PRC10 CWK A7,1 BASIC READ ? 6 P ABL(E) LDISP YES ! X P* NO ! t , P CF A15,ABORT RESET INPUT REQUESTED FLAG , P LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH & PRC15 CM ECBCW,A8 COMPLETE REQUEST
0x1bcd58…1bceec Dummy {f00=0x0091, f01=0x0190, f02=» P* A C K B P* ACTIVATION PART P* 4 P* > ( P************************************ H PACKB EQU * t P ENB P* P LDK A1,0 RESET REGISTERS P LDK A3,0 P* P* CHECK ORDER P* P LDR A4,A7
0x1bceec…1bd080 Dummy {f00=0x0091, f01=0x0190, f02=»DER 31 P* P* ILLEGAL ORDER P* 2 PAKB100 EQU * < P ABL LENDER COMPLETE REQUEST P P EJECT t P* & P* ORDER 31. RESET INPUT BUFFER. P* PAKB110 EQU * P INH $ P LD A1,DWTDEV+DWTUTQ,A6 BUF END * P
0x1bd080…1bd214 (2, 312) Dummy {f00=0x0091, f01=0x0190, f02=»A4,DWTDEV,A6 ( P ANKL A4,/1000 PTS 6236, -71, -72 ? P RF(Z) AKB118 NO ! @ P XIF Z P IFT NEWKB=1 =2 f P* ~ : P* SHIFT, CTRL AND KEYLOCK CHARACTERS ARE NOT REMOVED . P* FROM BUFFER WHEN KB 6236/71/72 IS USED P* " PAKB112
0x1bd214…1bd3a8 Dummy {f00=0x0091, f01=0x0190, f02=»SKIP CHARACTER | P XIF P IFT NEWKB=1 =2 " P SUK A4,/80 SKIP CHARACTER ? : P RF(Z) AKB113 YES ! ^ & P ADK A4,/10 SHIFT, CTRL, KEYLOCK ? z P RF(NN) AKB120 YES ! P* * PAKB113 CF A15,EOQUEU GET NEXT POINTER ( P CW A1,DWTDEV+DW
0x1bd3a8…1bd53c Dummy {f00=0x0091, f01=0x0190, f02=»YES! x PAKB119 ENB . P ABL MKB335 SET RC=0 AND COMPLETE REQUEST P* P P IFT NEWKB=1 =2 Z $ PAKB120 ADK A4,/70 RESTORE CHAR. r P SCR A4,A2 STORE IN BUF. " P LDR A3,A1 EXCHANGE REGISTERS P LDR A1,A2 $ P CF A15,EOQUEU GET NEX
0x1bd53c…1bd6d0 Dummy {f00=0x0091, f01=0x0190, f02=» RECOV=1 P* P* POWER OFF TEST P* 4 P LD A2,DWTDEV,A6 POWER OFF ? > P ANKL A2,/400 b P RF(E) AKB205 NO ! x * P XRS A2,DWTDEV,A6 RESET POWER OFF BIT P CWK A7,1 BASIC READ ? ( P RB(NE) RC15 NO ! COMPLETE REQUEST !
0x1bd6d0…1bd864 Dummy {f00=0x0091, f01=0x0190, f02=»DEV,A6 TIMING ? P RF(NN) AKB210 NO! P* 2 @ P LD A4,DWTTP+DWTDEV,A6 YES ! IS THERE AN EXISTING POINTER ? < P RF(E) AKBTIM NO! P* & P CF A15,RESTRT YES ! RESTART TIMER P RF AKB210 P* PAKBTIM EQU * P LDR A1,A6
0x1bd864…1bd9f8 Dummy {f00=0x0091, f01=0x0190, f02=»TP+DWTDEV,A6 STORE TIMER ADDRESS IN DWT P XIF 0 P EJECT < P* J P* REQUESTED LENGTH OK ? T P* v 8 PAKB210 LD A2,ECBRL,A8 REQUESTED LENGTH IN ECB = 0 ? , P ABL(E) MKBEND YES ! COMPLETE REQUEST ! P* P* CLEAR ECB-BUFF
0x1bd9f8…1bdb8c Dummy {f00=0x0091, f01=0x018e, f02=» A3,A1 CLEAR BUFFER UNTIL REQUESTED LENGTH P SUK A1,1 2 P SUK A2,1 F P RB(NE) AKB230 NOT READY YET X P EJECT | P* ( P************************************ P* P* P* M K B $ P* MAIN PART OF KEYBOARD DRIVER
0x1bdb8c…1bdd20 Dummy {f00=0x0091, f01=0x0190, f02=» 2 P* CHARACTERS AND NO OVERFLOW HAS OCCURRED, A $ P* CHARACTER WILL BE PUT IN A2 : P* b PMKB100 EQU * l P INH 2 P LD A1,DWTDEV+DWTUTQ,A6 FETCH A CHARACTER FROM " P LCR A2,A1 CIRCULAR BUFFER END P* P LDR A4,A2 P XRK
0x1bdd20…1bdeb4 (2, 313) Dummy {f00=0x0092, f01=0x018e, f02=» P ABL MKBEND COMPLETE REQUEST P* ( 6 PMKB130 CW A1,DWTDEV+DWTINQ,A6 ANYTHING IN BUFFER ? 2 P RF(E) MKB140 NO ! l & P CF A15,EOQUEU YES ! MOVE POINTER . P ST A1,DWTDEV+DWTUTQ,A6 STORE NEW POINTER P =1 P IFT PLC=1 =2 P*
0x1bdeb4…1be048 Dummy {f00=0x0092, f01=0x0190, f02=» ^ , P CW A1,DWTDEV+DWTINQ,A6 MORE IN BUFFER ? P RF(E) MKB135 NO ! 8 P ORS A4,DWTDEV,A6 R P XIF l PMKB133 ENB x P RF MKB150 P* P IFT PLC=1 =2 PMKB135 C1R A4,A4 8 P ANS A4,DWTDEV,A6 CLEAR "MORE CHARACTERS" INDICATION
0x1be048…1be1dc Dummy {f00=0x0092, f01=0x018e, f02=»F A5,INPUT READ CHARACTER P ENB " P* . & P ANK A2,/7F MASK TO GET CHARACTER 8 P* b P IFT PLC=1 =2 l 6 P* SET "MORE CHARACTERS" INDICATION BIT IF THERE P* ARE MORE CHARACTERS P* ( P ANK A1,/1 MASK NOT SIGNIFICANT BI
0x1be1dc…1be370 Dummy {f00=0x0092, f01=0x0190, f02=» j P XIF ! P* ! PMKB150 EQU * ! P IFT NEWKB+OLDKB=2 =2 ! 2 P* ! P * P* CHECK WHICH KEYBOARD THAT IS USED ! Z P* ! " P LD A4,DWTDEV,A6 KEYBOARD WITH ! ( P ANKL A4,/1000 SPECIAL CONVERSION ? ! P RF(Z) MKB290 PERHAPS ! ! P XIF
0x1be370…1be504 Dummy {f00=0x0092, f01=0x0190, f02=» , P SUK A4,/80 SKIP CHAR. FROM CIRC. BUF.? " * P RB(Z) MKB100 YES, READ NEXT CHARACTER " 4 P ADK A4,/8 CTRL/SHIFT ? " b P RF(NN) MKB220 YES ! " " P ADK A4,/8 NORMAL CHARACTER ? " P RF(N) MKB300 YES ! " P EJECT " P* " > P* KEYLOCK IS T
0x1be504…1be698 Dummy {f00=0x0092, f01=0x0190, f02=»BECAUSE OF POWER UP, THE CHARAC- " x P* TER SHOULD BE IGNORED. # ( P* # J P LDK A1,1 "FLAG BIT" # T " P LDR A4,A4 KEYLOCK CHAR. - /70 # p $ PMKB160 RF(Z) MKB170 KEYLOCK ON ! # P SUK A4,1 # P RF(Z) MKB180 KEYLOCK OFF ! # $ P SLC A1,1 SHIFT "FLA
0x1be698…1be82c Dummy {f00=0x0092, f01=0x0190, f02=»ST IF KEYLOCK IS CHANGED # v P TM A4,A1 $ . P RB(NE) MKB100 NO CHANGE, READ A NEW CHAR. $ 2 , P ORS A1,DWTDEV+DWTKEY,A6 SET "FLAG BIT" $ d P RF MKB190 $ PMKB180 EQU * $ 4 P LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK CHANGED $ P TM A4,A1 $ P RB(
0x1be82c…1be9c0 Dummy {f00=0x0092, f01=0x0190, f02=» $ 0 P CF A15,STORE STORE KEYLOCK CHARACTER IN ECB % P LDR A4,A7 LOAD ORDER CODE % < P SUK A4,2 % ^ P RF(N) MKB325 ORDER 1 ! % p P EJECT % P* % 0 P* KEYLOCK IS TURNED ! MAKE A NEGATIVE CODE % 6 P* TO THE CONTROLWORD IN ECB AND COMPLETE R
0x1be9c0…1beb54 (2, 314) Dummy {f00=0x0092, f01=0x0190, f02=» P RF(N) MKB210 ON OR OFF ? & P ADK A4,/4 ON ! & & $ PMKB210 SLL A4,1 MAKE WORD POSI- & > P SRL A4,1 TIVE AGAIN & f , P C1R A4,A4 CHANGE 0 TO 1 AND VICE VERSA & & P ST A4,ECBCW,A8 STORE CODE IN ECB & , P RF MKB335 SET RC=0 AND COMPLETE REQUEST &
0x1beb54…1bece8 Dummy {f00=0x0092, f01=0x0190, f02=»DWTKEY,A6 IS KB LOCKED ? & , P RB(Z) MKB100 YES ! READ A NEW CHARACTER ' P XIF ' P P IFT NEWKB=1 =2 ' P IFT NSHIFT=0 ' t P* ' 2 P* MAKE CHARACTER /00 IF NUMERIC SHIFT KEY IS ' 2 P* DEPRESSED, AND SKIP THE INCOMING CHARACTER ' P* IF I
0x1bece8…1bee7c Dummy {f00=0x0092, f01=0x0190, f02=»F MKB300 ' P* ( " PMKB230 CCK A2,/7D00 RELEASED ? ( & P RB(E) MKB100 YES ! SKIP CHARACTER ( @ P XIF ( j P IFT NEWKB=1 =2 ( v PMKB250 LDK A1,/2 SHIFT BIT ( P LDR A4,A4 SHIFT ON ? ( P RF(Z) MKB260 YES ! ( P SUK A4,1 SHIFT OFF ? ( P
0x1bee7c…1bf010 Dummy {f00=0x0092, f01=0x018e, f02=»F ? ( | P RF(Z) MKB270 YES ! ) P SUK A4,1 NUMERIC SHIFT ? ) ( P RB MKB250 YES ! ) J P* ) b & PMKB260 ORS A1,DWTDEV+DWTCS,A6 SET ) l P RF MKB280 ) PMKB270 C1R A1,A1 COMPLEMENT ) " P ANS A1,DWTDEV+DWTCS,A6 CLEAR ) P* ) $ PMKB280 ABL M
0x1bf010…1bf1a4 Dummy {f00=0x0092, f01=0x0190, f02=» P* NUMERIC PART OF 6234. * P* * & PMKB290 EQU * * 0 $ P LDR A1,A6 IF THE DWT-ADDRESS IS * D , P ANK A1,1 ODD, SHOULD SPECIAL CONVERSION * l P RF(NZ) MKB295 BE USED * ( P LDR A4,A2 IF BIT 8 IN CHARACTER IS * 0 P ANK A4,/80 SET SHOULD SPECIAL CON
0x1bf1a4…1bf338 Dummy {f00=0x0092, f01=0x0190, f02=»ION ! * t P* + 2 PMKB295 ANKL A6,/FFFE MAKE THE DWT-ADDRESS EVEN + P LDK A4,/8 LOAD SPECIAL BIT + N P ST A4,DWTDEV+DWTCS,A6 + r P RF MKB310 + P XIF + P EJECT + P* + P* NORMAL CONVERSION + P* + PMKB300 EQU * + P* +
0x1bf338…1bf4cc Dummy {f00=0x0092, f01=0x018e, f02=» + PMKB310 EQU * , , P LD A1,DWTDEV+DWTCTB,A6 GET CTAB ADDRESS , P RF(E) MKB320 NO CONVERSION , L 8 P AD A1,DWTDEV+DWTCS,A6 GET CURRENT CONVERSION TABLE , p P LDR* A1,A1 , & P RF(E) MKB320 NO CONVERSION TABLE , P LDR A4,A2 , P SRL A4,3 LI
0x1bf4cc…1bf660 Dummy {f00=0x0092, f01=0x0190, f02=» , P ADR A1,A4 ADD ROW INDEX - P LCR A2,A1 LOAD CHARACTER - ( P* - J PMKB320 EQU * - T P IFT OLDKB=1 =2 - h P LDK A4,/7 RESET SPECIAL BIT - P ANS A4,DWTDEV+DWTCS,A6 - P XIF - P EJECT - P* - , P* CHECK IF BASIC READ OR ORDER
0x1bf660…1bf7f4 (2, 315) Dummy {f00=0x0092, f01=0x018e, f02=»1, BASIC READ - P* . , P CF A5,STOECH STORE CHAR. IN ECB-BUFFER . H P* AND SEND IT TO ECHO-DEVICE . P < P* IF ECHO WANTED . P* . PMKB325 EQU * . 0 P CW A3,ECBRL,A
0x1bf7f4…1bf988 Dummy {f00=0x0092, f01=0x0190, f02=» . j P EJECT / P* / . P* ORDER 2 OR 3, STANDARD OR NUMERIC READ / P* / R PMKB330 EQU * / P* / p , P* CHECK IF IT IS AN END-OF-RECORD-KEY / z P* / & P LD A1,ECBCW,A8 KEY-TABLE ADDRESS / P RF(Z) MKB360 NO KEYTABLE ! / " P LCR A
0x1bf988…1bfb1c Dummy {f00=0x0092, f01=0x0190, f02=»1 / , P RF(N) MKB360 KEY NOT FOUND IN KEYTABLE 0 P SUK A1,1 NEXT KEY 0 : P CCR A2,A1 EOR-CHARACTER ? 0 T 0 P RB(NE) MKB340 NO ! TRY NEXT KEY IN KEYTABLE 0 v P* 0 ( P ADK A4,1 YES ! MAKE KEYTABLE INDEX 0 PMKB350 EQU * 0 0 P ST A4,ECBCW,A8 STOR
0x1bfb1c…1bfcb0 Dummy {f00=0x0092, f01=0x0190, f02=»OR CHARACTER 0 z P CF A5,EORECH ECHO CHARACTER 1 P XIF 1 8 P* 1 D PMKB335 EQU * 1 N " P LDK A1,0 SET RETURN CODE = 0 1 b $ P RF MKBEND AND COMPLETE REQUEST 1 P* 1 P EJECT 1 P* 1 P* 1 P* CHARACTER CHECK 1 P* 1 PMKB360
0x1bfcb0…1bfe44 Dummy {f00=0x0092, f01=0x0190, f02=» 1 | P LDK A4,/20 LOWER LIMIT 2 P SLC A1,2 /20-/7F ? 2 ( P RF(NN) MKB370 YES ! =4 2 D P LDK A1,/5F NO ! UPPER LIMIT 2 d P RF MKB400 2 P* 2 " PMKB370 LDK A1,/7F UPPER LIMIT 2 P RF MKB400 2 P* 2 ( PMKB380 SLC A1,1 /30-/39 & /70-/79
0x1bfe44…1bffd8 Dummy {f00=0x0092, f01=0x0190, f02=»R LIMIT 2 P* 3 PMKB400 SUR A1,A2 3 $ P RF(N) MKB420 NOT WITHIN LIMITS 3 2 P SUR A4,A2 3 Z $ P RF(P) MKB420 NOT WITHIN LIMITS 3 l P LDR* A1,A15 DUMMY LOAD 3 P EJECT 3 P* 3 $ P* IT IS A "NORMAL" CHARACTER ! 3 P* 3 PMKB405 EQU
0x1bffd8…1c016c Dummy {f00=0x0092, f01=0x0190, f02=»T CHARACTER 3 t P* 4 ( PMKB410 LDK A1,8 YES ! SET ERROR CODE 4 P RF MKBEND 4 J P* 4 8 P* CHECK IF IT IS BACKSPACE, CLEAR, MULTIPLE ZERO, 4 f 0 P* STANDARD EOR, SKIP OR UNKNOWN CHARACTER 4 P* 4 ( PMKB420 LDR* A2,A15 RELOAD CHARACTER 4
0x1c016c…1c0300 Dummy {f00=0x0092, f01=0x018e, f02=» IN ECBCW IF STANDARD EOR 4 x P CCK A1,/0D00 STANDARD EOR ? 5 " P RB(E) MKB350 YES ! 5 F PMKB440 EQU * 5 b $ P SUK A1,/1B TRIPLE ZERO ? (/1B) 5 v P ABL(E) MZ30 YES ! 5 P* 5 " P ADK A1,/13 BACKSPACE ? (/08) 5 P ABL(E) BACKSP YES ! 5 P* 5
0x1c0300…1c0494 (2, 316) Dummy {f00=0x0092, f01=0x0190, f02=» 5 | P* 6 $ P SUK A1,/E5 SKIP CHARACTER (/FF) 6 P ABL(E) MKB100 YES ! 6 : P IFT GREECE=1 =2 6 V $ P LDR A1,A2 CHECK IF CHARACTER IS 6 p & P SUK A1,/B0 WITHIN LIMITS FOR THE 6 & P RF(N) MKB460 GREEK CHARACTER SET 6 P SUK A1,/9 6 P RB(NP) MK
0x1c0494…1c0628 Dummy {f00=0x0092, f01=0x0190, f02=»ORE STORE CHARACTER IN ECB-BUFFER 6 P LDK A1,4 7 * P* 7 < P EJECT 7 F , P**************************************** 7 T P* 7 P* 7 P* COMMON END 7 P* 7 P* 7 * P************************************* 7 PMKBEND EQU * 7 P* 7
0x1c0628…1c07bc Dummy {f00=0x0092, f01=0x0190, f02=»M DWTTP+DWTDEV,A6 7 P XIF 8 P* 8 & PMKBE10 EQU * 8 0 * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH 8 D P* 8 r P IFT CECHO=1 8 | P LDR A4,A1 SAVE A1 8 P CF A5,ECHEND END OF ECHOING 8 P LDR A1,A4 8 P XIF 8 P* 8 , P ABL LENDIS PERFOR
0x1c07bc…1c0950 Dummy {f00=0x0092, f01=0x0190, f02=» P* 9 P* 9 * P************************************** 9 PIHKB EQU * 9 F & P ANK A2,/7F MASK TO GET CHARACTER 9 X P IFT CTIMUT=1 9 ( P CF A15,RESTRT RESTART TIMEOUT TIMER 9 P XIF 9 P* 9 4 P* STORE INCOMING CHARACTER IN CIRCULAR BUFFE
0x1c0950…1c0ae4 Dummy {f00=0x0092, f01=0x0190, f02=»/80 YES INDICATE BY SETTING BIT 8 9 & P SUK A6,1 MAKE DWT-ADDRESS EVEN =3 : * P XIF : T " PIHKB02 LD A1,DWTDEV+DWTINQ,A6 : ` P LCR A4,A1 : " P XRK A4,/FF ALREADY OVERFLOW ? : P RF(E) IHKB05 YES ! : P* : P LDR A4,A1 : 4 P CF A15,EOQUEU GET
0x1c0ae4…1c0c78 Dummy {f00=0x0092, f01=0x0190, f02=»OW INDICATION : ~ ( P SCR A1,A4 SET OVFL. IND. IN BUFFER ; P* ; B PIHKB05 EQU * ; L P IFT NEWKB+OLDKB=2 =2 ; ` $ P LD A1,DWTDEV,A6 6236, 71, 72 ? ; ~ P ANKL A1,/1000 ; P RF(Z) EXIT NO ! ; P* ; P XIF ; P IFT NEWKB=1 =2 ; & P SUK A
0x1c0c78…1c0e0c Dummy {f00=0x0092, f01=0x0190, f02=» P LD A1,DWTDEV+DWTINQ,A6 < P LDR A4,A1 < $ P CF A15,EOQUEU < 6 , P CW A1,DWTDEV+DWTUTQ,A6 BUFFER FILLED ? < L P RF(E) IHKB07 YES ! < | " P SCR A2,A4 STORE NEW CHARACTER < ( P LDK A2,/FF MOVE OVERFLOW INDICATION < P LDR A4,A1 FORWARD IN BUFFER <
0x1c0e0c…1c0fa0 Dummy {f00=0x0092, f01=0x0190, f02=»KB10 EQU * < * P CW A1,DWTDEV+DWTUTQ,A6 END OF QUEUE ? = P RF(E) IHKB19 YES ! = @ ( P CF A15,SOQUEU GET PREVIOUS POINTER = P* = P LCR A4,A1 GET CHARACTER = P ANK A4,/7F = P XRR A4,A2 = " P RF(Z) EXIT EQUAL CHARACTER ! = P SUK A4,
0x1c0fa0…1c1134 (2, 317) Dummy {f00=0x0093, f01=0x0190, f02=»IHKB17 EQU * = & P SUK A4,/F CTRL, SHIFT, KEYLOCK ? > P RB(N) IHKB10 YES ! > > P* > Z . PIHKB18 SCR A2,A1 NO ! STORE CHAR IN BUFFER > d P RF EXIT > P* > ( P* CHECK BUFFER AGAIN AND SORT OUT > " P* EQUAL AND INV. CHARACTERS > P* >
0x1c1134…1c12c8 Dummy {f00=0x0093, f01=0x0190, f02=»EU > ~ P SUK A4,1 ? P RB(NN) IHKB21 ? P IM DWTDEV,A6 ? 2 ( P LCR A4,A1 GET OLD CHAR FROM BUFFER ? H " P CCK A4,/FF00 END OF BUFFER ? ? t P RF(E) EXIT YES ! ? P SCR A2,A1 STORE THE NEW ONE ? P LDR A2,A4 PUT CHAR IN A2 ? P ANK A2,/7F ?
0x1c12c8…1c145c Dummy {f00=0x0093, f01=0x018e, f02=»ER IN INPUT BUFFER ? r P* @ PEXIT ABL LDISP DISPATCH ! @ $ P EJECT @ F P* @ T & P* STORING (&ECHOING) SUBROUTINE @ ^ . P* SKIPS OTHER CHARACTERS THAN DIGITS IF @ P* NUMERIC READ @ P* @ PSTOECH EQU * @ , P CF A15,STORE STORE CHAR
0x1c145c…1c15f0 Dummy {f00=0x0093, f01=0x018e, f02=» @ , PECHSUB ANK A2,/7F MASK TO GET CHARACTER A PEORECH EQU * A 8 P IFT PLC=1 =2 A L : P LD A1,DWTDEV,A6 GET "MORE CHARACTERS" INDICATION BIT A b P ANKL A1,/0800 A * P XRS A1,DWTDEV,A6 RESET INDICATION BIT A P SLC A1,5 A P XIF A P IFT C
0x1c15f0…1c1784 Dummy {f00=0x0093, f01=0x0190, f02=» A $ P* THIS IS THE TIMEOUT ROUTINE B P* B 0 PAKBTUT EQU * B : P LDR A6,A1 LOAD DWT-ADDRESS B N P CM DWTTP+DWTDEV,A6 B r P LD A2,DWTST,A6 B , P ABL(N) LDISP DISPATCH IF NO REQUEST ON B P* B , P CF A15,ABORT RESET INPUT REQUESTED FLAG
0x1c1784…1c1918 Dummy {f00=0x0093, f01=0x0190, f02=»D A8,DWTECB,A6 RELOAD ECB-ADDRESS B P LDK A1,/40 SET RETURN CODE C * P ABL MKBEND COMPLETE REQUEST C N P* C r P* RESTART TIMEOUT TIMER C | P* C PRESTRT EQU * C P LD A4,DWTTP+DWTDEV,A6 C P RF(E) NOTIME NO TIMING C P LDKL A4,-TIME
0x1c1918…1c1aac Dummy {f00=0x0093, f01=0x0190, f02=»O STORE A CHARACTER C x 0 P* IN ECB-BUFFER AND INCREMENT BUFFER INDEX D P* D P , P* ON ENTRY: A2 = CHARACTER TO STORE D Z & P* A3 = BUFFER INDEX D P* D PSTORE EQU * D " P LD A1,ECBBA,A8 BUFFER ADDRESS D P ADR A1,A3 ADD B
0x1c1aac…1c1c40 Dummy {f00=0x0093, f01=0x0190, f02=»QUEU = SUBROUTINE TO GET NEXT QUEUE POINTER D P* E 4 ( P* ON ENTRY: A1 = QUEUE POINTER E > & P* A6 = DWT-ADDRESS E j P* E PEOQUEU EQU * E P ADK A1,1 E P SUR A1,A6 E ( P CWK A1,DWTDEV+DWTEQ END OF QUEUE ? E P RF(NE
0x1c1c40…1c1dd4 (2, 318) Dummy {f00=0x0093, f01=0x018e, f02=»BROUTINE TO GET PREVIOUS QUEUE POINTER E P* F . ( P* ON ENTRY: A1 = QUEUE POINTER F 8 & P* A6 = DWT-ADDRESS F d P* F PSOQUEU EQU * F P SUR A1,A6 F . P CWK A1,DWTDEV+DWTSQ FIRST POS IN QUEUE ? F P RF(NE) SOQ10 NO ! F 0
0x1c1dd4…1c1f68 Dummy {f00=0x0093, f01=0x0190, f02=» P EJECT G P* G P* BACKSPACE G P* G 2 PBACKSP EQU * G < P LDR A3,A3 G P " P RF(Z) KBBSPA ECB-BUFFER EMPTY G b P SUK A3,1 ONE STEP BACKWARDS G P SUR A2,A2 CLEAR A2 G 4 P CF A15,STORE STORE A BLANK INSTEAD OF LAST CHAR G " P SUK A3,
0x1c1f68…1c20fc Dummy {f00=0x0093, f01=0x0190, f02=»BSP2 EQU * G P IFT CECHO=1 H " P CF A5,ECHSUB ECHSUB CHARACTER H & P XIF H L P ABL MKB100 NEXT CHARACTER H X P* H z P* CLEAR H P* H PCLEAR EQU * H P LDK A3,0 RESET ECB-BUFFER H P RB KBBSP2 NEXT CHARACTER H P EJECT H P*
0x1c20fc…1c2290 Dummy {f00=0x0093, f01=0x0190, f02=»ZERO H ~ P LDK A4,3 I P* I PMZ50 EQU * I ( P SUK A4,1 ANY MORE ZEROES ? I : & P ABL(L) MKB100 NO, NEXT CHARACTER I ^ P* I P EJECT I P INH I 0 P LD A1,DWTDEV+DWTUTQ,A6 GET OUTQUEUE POINTER I ( P CF A15,SOQUEU GET PREVIOUS POINTER I
0x1c2290…1c2424 Dummy {f00=0x0093, f01=0x0190, f02=»W OUTQUEUE POINTER I p , P LDK A2,/30 STORE ZERO IN CIRCULAR BUFF. J P SCR A2,A1 J J P RB MZ50 J P* J l PMZ80 EQU * J v ( P LDK A4,/FF INDICATE BUFFER OVERFLOW J P SCR A4,A1 J , P ST A1,DWTDEV+DWTUTQ,A6 UPPDATE POINTER J 2 P LDK A1,/A SET RET
0x1c2424…1c25b8 Dummy {f00=0x0093, f01=0x0190, f02=» ALL ZEROES ? J P RB(E) MZ80 YES K & P LDKL A2,/FFFF NO, MOVE IN-POINTER K . P ADS A2,DWTDEV+DWTINQ,A6 K X P RB MZ75 K x P EJECT K P* K , P**************************************** K P* K P* ABORT ROUTINE K P* K , P**********
0x1c25b8…1c274c Dummy {f00=0x0093, f01=0x0190, f02=»,DWTTP+DWTDEV,A6 K P RF(Z) ABKB05 NO TIMER ! L P CM* DWTTP+DWTDEV,A6 L 8 $ P CM DWTTP+DWTDEV,A6 RESET TIMER L T PABKB05 EQU * L | P XIF L P* L $ P LD A4,DWTST,A6 GET STATUS WORD L & P CF A15,TENDIO END I/O ON KEYBOARD L * P SLC A4,2 GET EC
0x1c274c…1c28e0 Dummy {f00=0x0093, f01=0x418e, f02=»F ECHO DEVICE L n & P LD A3,DWTADR,A4 GET ADDRESS BLOCK M 6 P LD A3,ABTADR,A3 GET ABORT-ADDRESS OF ECHO DEVICE M @ . P RB(Z) ABKB10 ABORT-ADDRESS = 0 ! NO ABORT M z P* M 2 P LDR A6,A4 RESTORE DWT-ADDRESS OF ECHO DEVICE M . P LDKL A5,DWTSB2 STACK BASE 2
0x1c28e0…1c2a74 (2, 319) Dummy {f00=0x0093, f01=0x2008, f02=» N
0x1c2a74…1c2c08 Dummy {f00=0x0093, f01=0x0190, f02=» DATA ZERO:3 N P DATA NUMCOM O P DATA COPY O ( P DATA IDENT O : P IFT KEYLST=1 O N P DATA KEYL O d P DATA KEYL O v P DATA KEYL O P DATA KEYL O P DATA KEYL O P DATA KEYL O P DATA KEYL O P DATA KEYL O P XIF O P IFF KEY
0x1c2c08…1c2d9c Dummy {f00=0x0093, f01=0x0190, f02=»ATA RETURN O P DATA RETURN P P XIF P & 8 P DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) P 2 8 P DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) P n 8 P DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) P P*FIRST P. A. KEY P P IFT OFLIN
0x1c2d9c…1c2f30 Dummy {f00=0x0093, f01=0x0190, f02=» P P DATA SYSREQ Q P DATA CLEAR Q P DATA ATTN Q 0 P XIF Q B P IFF SNA=1 Q N P DATA RETURN Q ` P DATA CLEAR Q t P DATA RETURN Q P XIF Q P IFT NBRLIN=2 Q P DATA MFCHGE Q P XIF Q P IFF NBRLIN=2 Q P DATA RETURN Q P
0x1c2f30…1c30c4 Dummy {f00=0x0093, f01=0x018e, f02=»2 Q P DATA PA3 R $ P DATA PAALFA PA4-PA10 (ALFASKOP) R P DATA PAALFA R D P DATA PAALFA R X P DATA PAALFA R l P DATA PAALFA R P DATA PAALFA R P DATA PAALFA R P*B0 R P IFT PFX=1 R P DATA PFEX R P XIF R P IFF PFX=1 R
0x1c30c4…1c3258 Dummy {f00=0x0093, f01=0x0190, f02=» R P DATA PF 7 S P DATA PF 8 S P DATA PF 9 S , P DATA PF 10 S > P DATA PF 11 S R P DATA PF 12 S f P DATA PF 13 S z P DATA PF 14 S P DATA PF 15 S P*C0 S P DATA PF 16 S P DATA PF 17 S P DATA PF 18 S P DATA PF 1
0x1c3258…1c33ec Dummy {f00=0x0093, f01=0x0190, f02=»RETURN S P XIF T P IFT TEST=1 T P DATA TESTM T . P XIF T B P EJECT T N B P************************************************************** T D P* * T B P* CHAR ALPHABETIC
0x1c33ec…1c3580 Dummy {f00=0x0093, f01=0x0190, f02=»************************************ T v P* REGISTERS U , P* U @ P* A2= KEY-CHAR U J P* A3= ATTRIBUTE MASKL U ` P* A4= RESERVED U ~ P* A5= RESERVED U P* A6= RESERVED U P* A11= RESERVED U P* A13= RESERVED U P* U B P**************
0x1c3580…1c3714 (2, 320) Opaque[0x194]
0x1c3714…1c38a8 # DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1278, f03=0x0000}
0x1c3714…1c38a8 IdxSect {
0x1c3714…1c38a8 f00 = 0x0093 // 0x1c3714 @0x0
0x1c3714…1c38a8 f01 = 0x0008 // 0x1c3716 @0x2
0x1c3714…1c38a8 gno = [ // 0x1c3718 @0x4
0x1c3714…1c38a8 [0x00]: C0x0093.0x3.0
0x1c3714…1c38a8 [0x01]: C0x0094.0x0.0
0x1c3714…1c38a8 [0x02]: C0x0094.0x1.0
0x1c3714…1c38a8 [0x03]: C0x0094.0x2.0
0x1c3714…1c38a8 ]
0x1c3714…1c38a8 }
0x1c38a8…1c3a3c Dummy {f00=0x0093, f01=0x0190, f02=» 2 P IDENT DRDI01 REL 11.0 81-01-26 870105041100 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDI01 = DRIVER INDICATOR DISPLAY P*
0x1c3a3c…1c3bd0 Dummy {f00=0x0093, f01=0x0190, f02=»* THIS DRIVER HANDLES OUTPUT TO SIGNAL DISPLAYS PTS 6241 > P* AND 6242. IT ALSO CONTROLS LAMPS ON KEYBOARDS PTS 6232 B " P* 6233, 6236 AND 633, 62361. * P* IT IS ALSO POSSIBLE TO OPEN CASH- P* BOXES ON FT80. P* 4 P* THE DRIV
0x1c3bd0…1c3d64 Dummy {f00=0x0093, f01=0x0190, f02=» P* * P* THE FOLLOWING ORDERS ARE TREATED: P* < " P* ORDER 37: WRITE LIGHTS ON F " P* 38: WRITE LIGHTS OFF l ( P* 06: WRITE PROGRAM DISPLAY , P* 39: WRITE FLASHING LIGHTS P EJECT P* P*
0x1c3d64…1c3ef8 Dummy {f00=0x0093, f01=0x0190, f02=» WORK REGISTER " P* A4: WORK REGISTER " P* A5: WORK REGISTER < P* A6: DWT-ADDRESS b P* A7: ORDER P* A8: ECB-ADDRESS P* P* P* SYSTEM ADAPTATION P* . P*
0x1c3ef8…1c408c Dummy {f00=0x0093, f01=0x0190, f02=»1,6242,6233 t P* : P* ORDER 06, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY P* CONDITIONAL ASSEMBLY P* | P EJECT P* P* P*************** P* ENTRIES * P*************** P* ( P ENTRY DIAD AD
0x1c408c…1c4220 Dummy {f00=0x0093, f01=0x0190, f02=»XTRN LENDIS PERFORM END I/O AND DISPATCH * P EXTRN LDISP DISPATCHER ORDINARY INT. 0 P EXTRN OUTPUT SEND ONE CHAR. ^ P EXTRN GETCHR GET CHARACTER $ P EXTRN LENDER I/O REQUEST ERROR P EXTRN DWTST STATUS WORD P EXTRN DWTDEV STATUS
0x1c4220…1c43b4 (2, 321) Dummy {f00=0x0094, f01=0x0190, f02=»XTRN ENDBLK END BLOCK $ P EXTRN ECBCW CONTROL WORD OF ECB P* F P* P P EJECT Z P* h P* r P*************** | P* TABLES * P*************** P* P* " P DATA DVBLEN BUFFER SIZE (MMU) P DATA 2 DEVI
0x1c43b4…1c4548 Dummy {f00=0x0094, f01=0x0190, f02=»A 0 NO INTERRUPT HANDLER P DATA RCDI RECOVERY ROUTINE P* D " PCCERR EQU /4 CODE CHECK ERROR N P* t P EJECT ~ P* P* P************************* P* CONDITIONAL ASSEMBLY * P************************* P*
0x1c4548…1c46dc Dummy {f00=0x0094, f01=0x0190, f02=»D6 EQU 0 P* P* 8 P* ORDER 39, WRITE FLASHING LIGHTS MAY BE INCLUDED $ ( P* IN THIS DRIVER BY SETTING X:B=1 ` P* PX:B EQU 0 PFLASH EQU 1 P* P* P EJECT P* P* P* MMU BUFFER SIZE
0x1c46dc…1c4870 Dummy {f00=0x0094, f01=0x0190, f02=»********************* P* PDWTDIB EQU /02 SAVE AREA ( , PDWTFLA EQU /08 SAVE AREA FOR FLASH IMAGE H PDWTTP EQU /0A TIMER POINTER x PTIME EQU 5 FLASH TIME P* P EJECT P* P* A C D I P* > P* ACTIVATION
0x1c4870…1c4a04 Dummy {f00=0x0094, f01=0x0190, f02=» CCK A7,/0606 P RF(E) ADI050 ORDER /06 P XIF 6 & P LD A4,ECBCW,A8 CONTROL WORD TO A4 B 8 P LD A3,DWTDEV,A6 TEST IF ONE OR TWO CHARACTER DEVICE l & P RF(N) ADI005 ONE CHARACTER DEVICE " P LDR A3,A4 CONTROL WORD tO A3 P ANK A4,/F
0x1c4a04…1c4b98 Dummy {f00=0x0094, f01=0x0190, f02=» RF(E) FLA05 P XIF P SUK A7,/37 P RF(E) ADI010 ORDER 37 4 P SUK A7,1 R P RF(E) ADI007 ORDER 38 d " P ABL(NE) LENDER REQUEST ERROR P EJECT P IFT FLASH=1 P* P* FLASH ORDER /39 P* P* 2 P
0x1c4b98…1c4d2c Dummy {f00=0x0094, f01=0x018e, f02=»ADY STARTED x P LDR A1,A6 P CF A15,SETIME & P DATA FLTUT,TIME < P ST A4,DWTTP+DWTDEV,A6 T . P LD A4,DWTFLA+DWTDEV,A6 RELOAD FLASH IMAGE r P* PFLA10 EQU * P LDKL A3,/200 ( P XRS A3,DWTDEV,A6 SWITCH 0N-OFF FLAG P*
0x1c4d2c…1c4ec0 Dummy {f00=0x0094, f01=0x0190, f02=» j P RF ADI020 TURN ON LAMPS P* ( PFLA20 C1R A4,A4 2 & P ANS A4,DWTDIB+DWTDEV,A6 ON-FLASH J P RF ADI020 TURN OFF LAMPS t P EJECT P* P* P* FLASH TIME OUT ROUTINE P* P* PFLTUT EQU * $ P LDR A
0x1c4ec0…1c5054 (2, 322) Dummy {f00=0x0094, f01=0x0190, f02=»BUSY v P ANS A4,DWTST,A6 P* $ P LD A4,DWTFLA+DWTDEV,A6 . * P RF(Z) FLA30 NO MORE LAMPS TO FLASHER N P* | * P LDR A5,A6 INITIATE DWT-STACK POINTER P ADKL A5,DWTSB2 P LDKL A1,-TIME RESTART TIMER P ST* A1,DWTTP+DWTDEV,A6
0x1c5054…1c51e8 Dummy {f00=0x0094, f01=0x0190, f02=» P LDKL A1,-TIME RESTART TIMER P ST* A1,DWTTP+DWTDEV,A6 ( P ABL LDISP H P XIF Z P EJECT f P IFT ORD6=1 t P* P* ( P* ORDER 06: WRITE PROGRAM DISPLAY P* PADI050 LDK A3,0 & PADI060 CF A15,GETCHR GET CHARA
0x1c51e8…1c537c Dummy {f00=0x0094, f01=0x0190, f02=»TER ? v P RF(L) ADI100 YES P CWK A4,3 UNDEFINED ? ( P RF(G) ADI100 YES F P ADKL A4,DWTDIB+2 ` P ADR A4,A6 z , P SCR A2,A4 STORE CHARACTER IN DWT-BUFFER " P RB ADI060 GET NEXT CHARACTER < PADI070 SC A1,DWTDEV+1,A6 SET START V
0x1c537c…1c5510 Dummy {f00=0x0094, f01=0x0190, f02=»00 SEND CHARACTERS P* P* $ P* CODE CHECK ERROR . P* L ( PADI100 LDK A1,CCERR SET RETURN CODE V P ORS A1,8,A8 IN ECB " P RB ADI060 GET NEXT CHARACTER P XIF P* P EJECT P* P* $ P* ORDER 3
0x1c5510…1c56a4 Dummy {f00=0x0094, f01=0x018e, f02=»FT FLASH=1 6 P ANS A4,DWTFLA+DWTDEV,A6 RESET BITS IN FLASH IMAGE P XIF L P RF ADI020 X P* j P* t P* ~ P* P* ORDER 37: TURN ON LAMPS P* P* P* : PADI010 ORS A4,DWTDIB+DWTDEV,A6 SET BITS IN DWT-BUFFE
0x1c56a4…1c5838 Dummy {f00=0x0094, f01=0x018e, f02=» P* SENDING SEQUENCE P* $ " PADI020 LDK A2,/2 BLOCK LENGTH . P CF A5,STABLK START OF BLOCK T P RF(NZ) DIER10 NOT OK ! x 0 P LC A2,DWTDIB+DWTDEV,A6 GET FIRST CHARACTER PADI035 LDK A1,1 6 P SC A1,DWTDEV+1,A6 SET START VALUE I
0x1c5838…1c59cc Dummy {f00=0x0094, f01=0x0190, f02=» P ADR A2,A6 P LD A4,DWTDEV,A6 P ANK A4,/FF 0 P ADR A2,A4 D P LCR A2,A2 GET CHARACTER V P LD A8,DWTECB,A6 v < P RF(Z) SSEQ10 IF POWER FAIL NO BELL OR CASH-BOX OPENING P LD A3,ECBCW,A8 BELL? P RF(NN) SSEQ05 NO $ P O
0x1c59cc…1c5b60 Dummy {f00=0x0094, f01=0x0190, f02=» OF BOX 2 n PSSEQ07 SLC A3,1 OPEN BOX 1 ? P RF(NN) SSEQ10 NO ! 6 0 P ORK A2,/10 YES ! INDICATE OPENING OF BOX 1 R P EJECT P* . PSSEQ10 IM DWTDEV,A6 INCREMENT BYTE COUNTER P* " PSSEQ20 CF A5,OUTPUT SEND CHAR. P RF(NZ)
0x1c5b60…1c5cf4 (2, 323) Dummy {f00=0x0094, f01=0x0190, f02=»BYTE COUNTER $ P SUK A4,2 TWO CHARACTERS SENT ? P EJECT < P IFT ORD6=1 J P RF(NZ) SSEQ25 NO ! ^ P LDR A7,A7 GET ORDER z P IFT ORD6=1 0 P CWK A7,06 ORDER 06, WRITE PROGRAM DISPLAY ? P RF(NE) SSEQ30 NO ! $ PSSEQ25 SUK A4,
0x1c5cf4…1c5e88 Dummy {f00=0x0094, f01=0x0190, f02=»EQ00 NO ! GET NEXT CHARACTER P XIF $ P* 0 $ PSSEQ30 CF A5,ENDBLK END OF BLOCK : P RF(NZ) DIER10 b P* x PENDIO EQU * , P ABL LENDIS PERFORM END I/O AND DISPATCH P EJECT P* P* P* ERROR ROUTINE P*
0x1c5e88…1c601c Dummy {f00=0x0094, f01=0x0190, f02=»(N) LDISP YES, GO TO DISPATCHER P* ( P RF RCDI PERFORM RECOVERY 2 P* T PDIER20 EQU * ^ $ P SLC A1,1 SET "NOT OPERABLE" BIT r P RB ENDIO END I/O P EJECT P* P* R C D I P* > P* RECOVERY ROUTINE: AT POWER
0x1c601c…1c61b0 Dummy {f00=0x0094, f01=0x4180, f02=» RESTORED r P* P* PRCDI EQU * & " P LDKL A2,/7FFF SET DEVICE BUSY 8 P ANS A2,DWTST,A6 ^ P* v P LDK A2,/4 BLOCK LENGTH P CF A5,STABLK START OF BLOCK P RB(NZ) DIER10 P* 0 P LC A2,DWTDIB+DWTDEV,A6 GET FIRST CH
0x1c61b0…1c6344 Dummy {f00=0x0094, f01=0x2008, f02=» POWER FAILURE TIME.THE INFORMATION ~ , P* OM PROGRAM DISPLAY IS ALSO RESTORED 4 P* d P* n PRCDI EQU * x P CF A15,SAVE8 SAVE REGS. ( P LC A2,DWTDIB,A6 GET FIRST CHARACTER P RB ADI035 P* P* P END P
0x1c6344…1c64d8 Dummy {f00=0x0094, f01=0x0190, f02=»TH IN ECB = 0 ? l , ' ABL(E) MKBEND YES ! COMPLETE REQUEST ! * H * CLEAR ECB-BUFFER R * n " P LD A1,ECBBA,A8 BUFFER ADDRESS x SUK A1,1 $ ADR A1,A2 ADD REQUESTED LENGTH * 8 4AKB230 SCR A3,A1 CLEAR BUFFER UNTIL RE
0x1c64d8…1c666c Dummy {f00=0x0094, f01=0x0190, f02=»******************** * * & * M K B 0 $ * MAIN PART OF KEYBOARD DRIVER B * j * t * &************************************** ~ * 4 /* CHECK CIRCULAR INPUT BUFFER. IF IT CONTAINS 2 .* CHARACTERS AND NO OVER
0x1c666c…1c6800 Dummy {f00=0x0094, f01=0x0190, f02=»TCH A CHARACTER FROM v " LCR A2,A1 CIRCULAR BUFFER END * B P LDR A4,A2 L XRK A4,/FF OVERFLOW ? ^ P RF(NE) MKB130 NO ! | * P SCR A4,A1 YES ! P ENB $ LDK A1,OVMASK SET OVERFLOW BIT ABL MKBEND COMPLETE REQUE
0x1c6800…1c6994 (2, 324) Opaque[0x194]
0x1c6994…1c6b28 # DirEnt {nam=»DRDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1298, f03=0x0000}
0x1c6994…1c6b28 IdxSect {
0x1c6994…1c6b28 f00 = 0x0094 // 0x1c6994 @0x0
0x1c6994…1c6b28 f01 = 0x0022 // 0x1c6996 @0x2
0x1c6994…1c6b28 gno = [ // 0x1c6998 @0x4
0x1c6994…1c6b28 [0x00]: C0x0094.0x3.0
0x1c6994…1c6b28 [0x01]: C0x0095.0x0.0
0x1c6994…1c6b28 [0x02]: C0x0095.0x1.0
0x1c6994…1c6b28 [0x03]: C0x0095.0x2.0
0x1c6994…1c6b28 [0x04]: C0x0095.0x3.0
0x1c6994…1c6b28 [0x05]: C0x0096.0x0.0
0x1c6994…1c6b28 [0x06]: C0x0096.0x1.0
0x1c6994…1c6b28 [0x07]: C0x0096.0x2.0
0x1c6994…1c6b28 [0x08]: C0x0096.0x3.0
0x1c6994…1c6b28 [0x09]: C0x0097.0x0.0
0x1c6994…1c6b28 [0x0a]: C0x0097.0x1.0
0x1c6994…1c6b28 [0x0b]: C0x0097.0x2.0
0x1c6994…1c6b28 [0x0c]: C0x0097.0x3.0
0x1c6994…1c6b28 [0x0d]: C0x0098.0x0.0
0x1c6994…1c6b28 [0x0e]: C0x0166.0x1.0
0x1c6994…1c6b28 [0x0f]: C0x0166.0x2.0
0x1c6994…1c6b28 [0x10]: C0x0166.0x3.0
0x1c6994…1c6b28 ]
0x1c6994…1c6b28 }
0x1c6b28…1c6cbc Dummy {f00=0x0094, f01=0x0190, f02=» 2 P IDENT DRDY02 REL 11.1 82-08-20 870105041110 P : 6 P =14,BLOCKING OF REQUESTS,CW NOT CLEARED IF ERR. B P =14,REL 11.1 82-04-06 | : P =13 ERRORCHECK IN ECHO AND END OF ECHOING CORRECTED P REL 11.1 82-02-12 4 P =12 A5 DESTROYE
0x1c6cbc…1c6e50 Dummy {f00=0x0094, f01=0x0190, f02=»ECOVERY IN ECHO MODE IMPLEMENTED P REL 11.0 81-12-09 ( 0 P =10 ECBRL DESTROYED BY ORDER 05 IF X:E=1 D P REL 11.0 81-09-30 x 6 P =9 ERR. FOR 6342/51 AND EMPTY BLOCK IN ORD. /05 : P CHAR. CHECK AT FAST OUTPUT. ULINE&LOWINT ON 6387
0x1c6e50…1c6fe4 Dummy {f00=0x0094, f01=0x018e, f02=»D87 IMPLEMENTED z P REL 11.0 81-06-30 D P = 6 "SUPPRESSION OF TRAILING BLANKS" REMOVED FROM BASIC WRITE 4 P REL 11.0 81-06-24 | . P = 5 SUPPRESSION OF TABULATION CORRECTED P REL 11.0 81-05-24 8 P = 4 GREEK CHARACTER SET HANDLIN
0x1c6fe4…1c7178 Dummy {f00=0x0094, f01=0x0190, f02=» z 4 P = 2 ECB-ADDRESS CHECKED IF LRC-ERROR OCCURED P REL 11.0 81-02-13 @ 0 P = 1 ECB-ADDRESS CHECKED IN ERROR-ROUTINE P REL 11.0 81-02-03 P* @ P************************************************************ P* P*
0x1c7178…1c730c Dummy {f00=0x0094, f01=0x0190, f02=»****************************************************** P* > 0 P* THIS DRIVER HANDLES OUTPUT TO THE VIDEO H 0 P* DISPLAYS PTS 6342, 6344, 6346 AND TO THE | * P* DISPLAYS PTS 6351, 6385 AND 6386. 2 P* THE DRIVER INCLUDES DEVICE DEPENDENT E
0x1c730c…1c74a0 Dummy {f00=0x0094, f01=0x0190, f02=»* P* * P* THE FOLLOWING ORDERS ARE TREATED : P* B P* ORDER 00 TEST STATUS L P* 05 BASIC WRITE p " P* 06 STANDARD WRITE ( P* 0B SET CURSOR AND WRITE P* 31 ERASE P*
0x1c74a0…1c7634 (2, 325) Dummy {f00=0x0095, f01=0x0190, f02=»REGISTER A1 = RETURN CODE * P* A2 = OUTPUT CHARACTER $ & P* A3 = BUFFER INDEX R * P* A4 = WORKING REGISTER | $ P* A5 = STACK BASE $ P* A6 = DWT-ADDRESS P*
0x1c7634…1c77c8 Dummy {f00=0x0095, f01=0x0190, f02=»ESS TO ADDRESSBLOCK P* P* & P* EXTERNALS 0 P* F P* P P* TOSS ROUTINES Z P* t $ P EXTRN LENDER I/O-REQUEST ERROR ~ " P EXTRN LENDIS END I/O-REQUEST P EXTRN STABLK START OF BLOCK P EXTRN OUTPUT SEND
0x1c77c8…1c795c Dummy {f00=0x0095, f01=0x0190, f02=» TENDIO END OF I/O P EXTRN SETIME TIMER ROUTINE P EXTRN LDISP DISPATCH > P* P* DWT DISPLACEMENTS f P* , P EXTRN DWTCHP CHANNEL PARAMETER WORD =14 ( P EXTRN DWTDEV TERMINAL DEVICE STATUS P EXTRN DWTST DEVICE STATUS
0x1c795c…1c7af0 Dummy {f00=0x0095, f01=0x0190, f02=»ESS x " P EXTRN ECBRL REQUESTED LENGTH " P EXTRN ECBEL EFFECTIVE LENGTH 2 P EXTRN ECBRC RETURN CODE X P EXTRN ECBCW CONTROL WORD x P* @ P************************************************************ P* P* CONSTANTS P
0x1c7af0…1c7c84 Dummy {f00=0x0095, f01=0x0190, f02=»U /2 HEAD POSITION POINTER " PDWTBC EQU /1 POSITION COUNTER " PDWTLIN EQU /4 LINES H PDWTPOS EQU /5 POSITIONS d & PDWTBLC EQU /6 CHARACTERS IN BLOCK PDWTTP EQU /8 TIMER POINTER P* P* CHARACTERS P* PDUMMY EQU /3 D
0x1c7c84…1c7e18 Dummy {f00=0x0095, f01=0x0190, f02=» EQU /0C CLEAR AND CURSOR HOME PCR EQU /0D CARRIAGE RETURN & PCURRIG EQU /10 CURSOR RIGHT H $ PSCADD EQU /11 SET CURSOR ADDRESS l " PULSTOP EQU /13 UNDERLINE STOP PFASOUT EQU /14 FAST OUTPUT PSTILL EQU /18 CURSOR STEADY $ PCTYCOD E
0x1c7e18…1c7fac Dummy {f00=0x0095, f01=0x0190, f02=»* " PCCERR EQU /4 CODE CHECK ERROR P* 0 P* OTHER : P* L PMINBLK EQU 6 BLOCK SIZE V @ PFASTNR EQU 6 LEAST NUMBER OF CHARS TO SEND WITH FAST OUTPUT v PTIME EQU 1 P* @ P**************************************************
0x1c7fac…1c8140 Dummy {f00=0x0095, f01=0x0190, f02=»A DVBLEN BUFFER LENGTH P DATA 2 DEVICE INDEX PDYAD EQU * : ( P DATA ACDY DRIVER ACTIVATION ADDRESS L P DATA ABDY ABORT ROUTINE x P DATA 0 NO INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE P DATA ECHODY ECHO ROUTINE P*
0x1c8140…1c82d4 (2, 326) Dummy {f00=0x0095, f01=0x0190, f02=»************************************************ P* 8 4 P* IF THE CONSTANT X:A IS SET TO 1, FAST OUTPUT B < P* WILL BE USED IF A NUMBER (SEE THE CONSTANT "FASTNR") z 8 P* OF CONSECUTIVE CHARACTERS IN THE ECB-BUFFER ARE P* FOUND EQUAL.
0x1c82d4…1c8468 Dummy {f00=0x0095, f01=0x0190, f02=»S 6344 R P* 6346, 6385 AND 6386. P* . PX:B EQU 0 8 PWHATDY EQU X:B J P* ` P* j 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR t & P* (COLUMNS 6 AND 7) CAN BE USED PX:C EQU 1 PLOWCHA EQU X:C P*
0x1c8468…1c85fc Dummy {f00=0x0095, f01=0x0190, f02=» THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 P* : PX:D EQU 0 D PEORECH EQU X:D V P* l 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS v T P* POSSIBLE TO SUPPRESS TRAILING BLANKS, TABULATIONS, /1E AND /1F. (NOT BASIC W P*
0x1c85fc…1c8790 Dummy {f00=0x0095, f01=0x0190, f02=» P* PX:F EQU 1 PSTEADY EQU X:F P* 6 4 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POS- @ . P* SIBLE TO CHOOSE BETWEEN TEN DIFFERENT x , P* CHARACTER SETS, IF PTS 6385 IS USED. P* P* CODE COUNTRY P* 0 GB/NL/B
0x1c8790…1c8924 Dummy {f00=0x0095, f01=0x0190, f02=»* 9 US PX:G EQU 0 PCOUNTRY EQU 6 P* 6 & P* MEMORY MANAGEMENT BUFFER SIZE @ P* j PX:H EQU 82 t PDVBLEN EQU 162 P* P* MAXIMUM BLOCK SIZE P* PX:J EQU 140 PMAXBLK EQU X:J P* L P* X:
0x1c8924…1c8ab8 Dummy {f00=0x0095, f01=0x0190, f02=» IF X:K = 1 IT IS POSSIBLE TO USE GREEK =4 P* CHARACTER SET =4 4 P* R PX:K EQU 0 =4 PGREECE EQU X:K =4 r P* 4 P* IF DISPLAY VD 87 IS USED, X:L SHOULD BE 1 =7 8 P* THE WORD DWTDEV IN THE DISPLAY-DWT SHOULD BE SET .
0x1c8ab8…1c8c4c Dummy {f00=0x0095, f01=0x0190, f02=»*************************************************** P* < & P* A C T I V A T I O N P A R T F P* p 4 P* THIS PART MAKES A START OF BLOCK, CHECKS THE z 8 P* REQUESTED ORDER AND BRANCHES TO THE APPROPRIATE P* PART OF THE DRIVER.
0x1c8c4c…1c8de0 Dummy {f00=0x0095, f01=0x018e, f02=» t P* $ P* CHECK IF BLOCKING ORDER =14 P* : P LDR A2,A7 GET ORDER =14 D " P SUK A2,/3D START WRITE ? =14 d P ABL(Z) DY760 YES ! =14 P SUK A2,1 STOP WRITE ? =14 P ABL(Z) DY780 YES ! =14 P* 0 P CM DWTBLC+DWTDEV,
0x1c8de0…1c8f74 (2, 327) Dummy {f00=0x0095, f01=0x0190, f02=» P* TEST ORDER P* P LDR A7,A7 GET ORDER ( & P RF(Z) DY100 ORDER 00, TEST STATUS D P* n P SUK A7,/5 x & P RF(Z) DY200 ORDER 05, BASIC WRITE P* P SUK A7,1 ( P RF(Z) DY300 ORDER 06,STANDARD WRITE P* P S
0x1c8f74…1c9108 Dummy {f00=0x0095, f01=0x0190, f02=» IFT VD87=1 =7 P ADK A7,/A 0 P ABL(Z) ORD27 ORDER /27, TRANSFER PARAMETERS * P XIF ^ P* j P* I/O-REQUEST ERROR t P* P CF A5,ENDBLK END OF BLOCK , P ABL LENDER SET RETURN CODE AND END I/O P EJECT P* @ P**
0x1c9108…1c929c Dummy {f00=0x0095, f01=0x0190, f02=»Y CHARACTER TO THE DISPLAY v : P* AND SETS BIT 15 IN THE RETURN CODE IF THE DISPLAY " P* IS NOT OPERABLE. ` : P* THE CURSOR POSITION IS RETURNED IN CONTROL WORD OF | 8 P* ECB, WITH LINE NUMBER IN LEFT BYTE AND COLUMN IN P* THE RIGHT.
0x1c929c…1c9430 Dummy {f00=0x0095, f01=0x0190, f02=»F A5,OUTPUT SEND DUMMY P RF(NZ) DYER10 P* 4 . P LD A4,DWTAP+DWTDEV,A6 GET CURSOR POSITION > 0 P ST A4,ECBCW,A8 SAVE CURSOR POSITION IN ECB p P* P ABL ENDIO P EJECT P* @ P************************************************
0x1c9430…1c95c4 Dummy {f00=0x0095, f01=0x018e, f02=»E DISPLAY AND SETS THE | 0 P* INTERNAL CURSOR POSITION COUNTER TO HOME P* POSITION. (/0101) R P* p @ P************************************************************ z P* PDY200 EQU * 2 P CF A15,GETCHR FETCH CHARACTER FROM ECB-BUFF
0x1c95c4…1c9758 Dummy {f00=0x0095, f01=0x0190, f02=» P XIF P* & P CF A5,OUTPUT YES ! SEND CHARACTER P RF(NZ) DYER05 D P* Z * P CF A15,POSUPD UPDATE POSITION COUNTER d P* 4 P* CHECK IF MAX. BLOCKSIZE IS REACHED. START A P* NEW BLOCK IF IT IS. P* 4 P IM DWTBLC
0x1c9758…1c98ec Dummy {f00=0x0095, f01=0x018e, f02=» $ P RB(G) DY200 NO ! NEXT CHARACTER P* , $ P CF A15,GETCHR MORE TO SEND ? =9 6 P LDR A1,A1 =9 ^ P RF(NP) DY210 NO ! =9 t $ P SUK A3,1 DECR. CHAR. COUNTER =9 P* " P CF A5,ENDBLK YES ! END BLOCK P RF(NZ) DYER05 " P LDKL A2
0x1c98ec…1c9a80 Dummy {f00=0x0095, f01=0x0190, f02=» b P RB DY200 NEXT CHARACTER P* ( PDY210 EQU * 2 * P CF A15,UPDAPP RESET POSITION COUNTER F P* t , P LDKL A4,/0101 SET HEAD POSITION COUNTER ~ 4 P ST A4,DWTAP+DWTDEV,A6 TO HOME POSITION. (/0101) : P CM DWTBLC+DWTDEV,A6 RESET CHARACT
0x1c9a80…1c9c14 (2, 328) Dummy {f00=0x0095, f01=0x0190, f02=»ERS-IN-BLOCK COUNTER BEFORE n ( P RF DYER10 ERROR ROUTINE IS ENTERED $ P EJECT P P* ^ @ P************************************************************ h P* " P* ORDER 06, STANDARD WRITE. : P* THIS PART CHECKS IF THE REQUESTED LENGTH
0x1c9c14…1c9da8 Dummy {f00=0x0095, f01=0x0190, f02=»PART LOOKS FOR A CONTROL CHARACTER IN THE FIRST WORD @ P* IN THE ECB-BUFFER AND CARRIES OUT THE DESIRED FUNCTION. < < P* THEN IT CHECKS AND SENDS THE REST OF THE CHARACTERS : P* IN THE ECB-BUFFER TO THE DISPLAY UNLESS A SPECIAL L P* CHARAC
0x1c9da8…1c9f3c Dummy {f00=0x0095, f01=0x0190, f02=» 6 P* IS CARRIED OUT BEFORE NEXT CHARACTER IS SENT. < P* WHEN ALL CHARACTERS ARE SENT, THE CURSOR POSITION IS > * P* SAVED IN THE CONTROL WORD OF ECB. ~ P* @ P************************************************************ P* PDY30
0x1c9f3c…1ca0d0 Dummy {f00=0x0095, f01=0x0190, f02=»Y307 YES ! P* ! P* TEST CONTROL CHARACTER ! P* ! > & P LD A2,ECBBA,A8 GET BUFFER ADDRESS ! H & P LC A2,1,A2 GET CONTROL CHARACTER ! r P ANK A2,/FF ! $ P ADK A3,2 INCREMENT BUFFER INDEX ! P* ! P SUK A2,/2B ! $ P RF(Z) DY335 NO MO
0x1ca0d0…1ca264 Dummy {f00=0x0095, f01=0x0190, f02=»EAD POSITION COUNTER ! p P* " P SUK A2,/5 TWO LINE FEED ? " & P RF(NZ) DY310 NO ! " H * P LDK A4,2 YES ! INDICATE TWO LINE FEED " b P* " PDY310 EQU * " P SUK A2,1 ERASE ? " 4 P RF(Z) DY330 YES ! CONTROL CHARACTER MEANS ERASE " P* "
0x1ca264…1ca3f8 Dummy {f00=0x0095, f01=0x0190, f02=»4,1 READY ? " 0 P RF(N) DY335 YES ! START WRITING ON DISPLAY # P* # H < P LC A1,DWTLIN+DWTDEV,A6 MAX. NUMBER OF LINES ON DISPLAY # R 2 P CC A1,DWTAP+DWTDEV,A6 ALREADY ON LAST LINE ? # P RF(NG) DY325 YES ! # P* # . P LDKL A2,/100 NO ! INCREME
0x1ca3f8…1ca58c Dummy {f00=0x0095, f01=0x0190, f02=»NE FEED # z P* $ PDY330 EQU * $ . P SC A4,DWTAP+DWTDEV,A6 RESET LINE COUNTER $ . ( P LDK A2,CLEHOM CLEAR AND CURSOR HOME $ ` 2 P LDK A4,0 INDICATE ONLY ONE CHARACTER TO SEND $ P RB DY320 SEND $ P EJECT $ P* $ P* $ 8 P* WRITING PA
0x1ca58c…1ca720 Dummy {f00=0x0095, f01=0x0190, f02=»ING SPACES $ t P XIF % PDY340 EQU * % 0 P CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER % 2 P* % f & P LDR A1,A1 ANY CHARACTER TO SEND ? % p P ABL(NP) DY405 NO ! % P IFT GREECE=1 =4 % P CF A15,GRCHAR =4 % P XIF % P* % P LDR A4,
0x1ca720…1ca8b4 (2, 329) Dummy {f00=0x0096, f01=0x0190, f02=»PECIAL CHARACTER % z P IFT FASTO=1 & P IFT WHATDY=1 & , 6 P LDK A4,0 RESET A4 BEFORE ENTERING THE OUTPUT SEQ. & B * P LD A1,DWTDEV,A6 6344, 6385 OR 6386 ? & | P ANKL A1,/1000 & P RF(NZ) FAST80 NO ! & P XIF & P IFT FASTO=1 & P* & P*
0x1ca8b4…1caa48 Dummy {f00=0x0096, f01=0x0190, f02=»8 GET BUFFER ADDRESS & P ADR A1,A3 ADD BUFFER INDEX ' P* ' @ P* ' J 4 P LC A4,DWTBC+DWTDEV,A6 GET POSITION ON THE LINE ' T P AD A4,DWTAP+DWTDEV,A6 ' P ANK A4,/FF ' P* ' PFAST10 EQU * ' * P ADK A4,1 INCREMENT CHARACTER COUNTER ' 6
0x1caa48…1cabdc Dummy {f00=0x0096, f01=0x0190, f02=» ? ' j P RF(NL) FAST40 YES ! ( P* ( & & P CW A3,ECBRL,A8 REQUESTED LENGTH ? ( 0 P RF(NL) FAST40 YES ! ( Z P* ( v P ADK A1,1 INCREMENT COUNTERS ( P ADK A3,1 ( $ P RB FAST10 CHECK NEXT CHARACTER ( P* ( PFAST40 EQU * ( : P LD A1,DWTAP
0x1cabdc…1cad70 Dummy {f00=0x0096, f01=0x0190, f02=»FASTNR COND. FOR FAST OUTPUT FULLFILLED ? ( P RF(L) FAST80 NO ! ) 2 P* ) L . P* YES ! SEND CHARACTERS WITH FAST OUTPUT ) V P* ) 4 P ADS A4,DWTBC+DWTDEV,A6 UPDATE POSITION COUNTER ) P* ) " P SLC A3,8 SAVE BUFFER POINTER ) P ADR A4,A3 )
0x1cad70…1caf04 Dummy {f00=0x0096, f01=0x0190, f02=» XIF ) P IFT FASTO=1 * $ P LDR A3,A2 PUT CHARACTER INTO A3 * P* * H P CF A5,FASTER * R P* * h & P LDR A3,A4 RESTORE BUFFER POINTER * r P SRL A3,8 * P* * . P LC A4,DWTBC+DWTDEV,A6 GET CURSOR POSITION * P ANK A4,/FF * P AD A4,DWT
0x1caf04…1cb098 Dummy {f00=0x0096, f01=0x0190, f02=» IFT LOWCHA=0 LOWER CASE IS USED * P LDR A1,A2 + ( P SUK A1,/5F + : P RF(NP) DY360 + N P SUK A2,/20 + d PDY360 EQU * + x P XIF + PDY370 EQU * + P CF A5,OUTPUT SEND CHARACTER + PDYER15 ABL(NZ) DYER20 + * P CF A15,POSUPD POSITION CO
0x1cb098…1cb22c Dummy {f00=0x0096, f01=0x0190, f02=») FAST90 NO ! + P XIF , P IFT FASTO=1 , " * P SUK A4,1 DECREMENT CHARACTER COUNTER , 6 2 P RB(NP) DY340 ALL CHECKED CHARS. SENT ! NEXT ! , d 0 P LD A2,ECBBA,A8 GET CHARACTER TO SEND AGAIN , P ADR A2,A3 , P LC A2,-1,A2 , P ANK A2,/7F MASK CHA
0x1cb22c…1cb3c0 Dummy {f00=0x0096, f01=0x0190, f02=» , r P* - PDY380 EQU * - P LDK A4,0 RESET A4 - & P LDR A1,A2 CHARACTER - @ P* - P SUK A1,/07 BELL ( /07 ) ? - f P RF(Z) DY467 YES ! SEND - P* - $ P SUK A1,/A TABULATION ( /11 ) ? - 2 P ABL(Z) ADY140 YES ! GO TO TABULATION ROUTINE
0x1cb3c0…1cb554 (2, 330) Dummy {f00=0x0096, f01=0x0190, f02=»E ) ? - z $ P RF(Z) DY410 YES ! LOAD AND SEND . P IFF WHATDY+PLASM=0 =4 . 6 0 P LD A4,DWTDEV,A6 CHECK WHICH DISPLAY IS USED . V P RF(N) DY382 VD87 ! =9 . P ANKL A4,/3000 . * P RF(NZ) DY385 6342, 6351, 6385, 6386 ! . PDY382 EQU * =9 . P XIF
0x1cb554…1cb6e8 Dummy {f00=0x0096, f01=0x0190, f02=» . l P RF(Z) DY467 YES ! / P* / " , P SUK A1,/B LOW INTENSITY START ( /1E) ? / , P RF(Z) DY467 YES ! / P* / v , P SUK A1,/1 LOW INTENSITY STOP ( /1F ) ? / P RF(Z) DY467 YES ! / P* / P* ILLEGAL CHARACTER / P* / PDY385 EQU *
0x1cb6e8…1cb87c Dummy {f00=0x0096, f01=0x0190, f02=» P* 0 P* ROUTINE FOR FAST OUTPUT 0 P* 0 2 PDY390 EQU * 0 < P IFT TRASPA=1 0 P * P LD A4,ECBCW,A8 RESTORE OLD REQ. LEN. 0 f P ST A4,ECBRL,A8 0 P XIF 0 ( P CF A15,GETCHR GET OUTPUT CHARACTER 0 P* 0 $ P LD A4,ECBRL,A8 REQUESTED
0x1cb87c…1cba10 Dummy {f00=0x0096, f01=0x0190, f02=»=4 0 P XIF 1 P* 1 $ P LDR A3,A2 LOAD CHARACTER IN A3 1 P SUK A2,/20 IS CHAR. OK ? =9 1 H P RB(N) DY385 NO ! =9 1 l P SUK A2,/5F =9 1 P RB(P) DY385 NO ! =9 1 P* 1 ( P CF A5,FASTER SEND WITH FAST OUTPUT 1 P* 1 PDY400 EQU *
0x1cba10…1cbba4 Dummy {f00=0x0096, f01=0x0190, f02=» POINT 1 P* 2 PDY410 EQU * 2 " P LDK A2,/2E GET CODE FOR POINT 2 , P RB DY370 SEND POINT 2 R P* 2 n PDY467 EQU * 2 x ( P CF A5,OUTPUT SEND SPECIAL CHARACTER 2 P RF(NZ) DYER20 NOT OK ! 2 P ABL DY340 NEXT CHARACTER ! 2 P EJECT 2 @
0x1cbba4…1cbd38 Dummy {f00=0x0096, f01=0x0190, f02=»************************************** 2 z PADY140 EQU * 3 . , P CF A15,GETCHR GET FIRST ASCII CHARACTER 3 B P LDR A4,A2 3 r . P CF A15,GETCHR GET SECOND ASCII CHARACTER 3 P ANK A2,/F 3 P ANK A4,/F 3 P RF(E) ADY144 3 0 PADY143 ADK A2,/A FROM DE
0x1cbd38…1cbecc Dummy {f00=0x0096, f01=0x0190, f02=»ION POINTER 3 r P LC A4,DWTBC+DWTDEV,A6 4 , P SUR A2,A4 AND REQUESTS POSITION COUNTER 4 2 & P TO GET NUMBER OF SPACES TO SEND 4 b " P ABL(NP) DY340 NEXT CHARACTER 4 P LDR A4,A2 4 & PADY145 LDK A2,CURRIG CURSOR RIGHT 4 P CF A5,OUTPUT 4 P RF(
0x1cbecc…1cc060 Dummy {f00=0x0096, f01=0x0190, f02=»ARACTER 4 ~ P EJECT 5 B P************************************************************** 5 P* 5 d > P* COMMON END. ALL CHARACTERS ARE SENT. RESET MODES WHICH 5 n . P* HAS BEEN SET UP BY SPECIAL CHARACTERS. 5 P* 5 B P****************************
0x1cc060…1cc1f4 (2, 331) Dummy {f00=0x0096, f01=0x0190, f02=»DYER20 RF(NZ) DYER30 5 P* 6 & P LDK A2,LISTOP LOW INTENSITY STOP 6 & P CF A5,OUTPUT SEND 6 P P RF(NZ) DYER30 6 j P* 6 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER 6 P* 6 P IFT TRASPA=1 6 P LD A2,ECBCW,A8 6 0 P ST A2,ECBRL,A8 RE
0x1cc1f4…1cc388 Dummy {f00=0x0096, f01=0x0190, f02=»V,A6 SET HEAD POSITION POINTER 6 ~ * P ST A2,ECBCW,A8 IN CONTROL WORD OF ECB 7 & PENDIO EQU * 7 T P CF A5,ENDBLK END OF BLOCK 7 h P RF(NZ) DYER30 7 P ABL LENDIS END I/O 7 P EJECT 7 @ P************************************************************ 7
0x1cc388…1cc51c Dummy {f00=0x0096, f01=0x0190, f02=»WORD OF ECB AND SENDS THE CHARACTERS 7 : P* TO THE DISPLAY, CHECKING THE SAME SPECIAL CHARAC- 8 , P* TERS AS ORDER 06. 8 j P* 8 @ P************************************************************ 8 P* 8 PDY600 EQU * 8 P IFT WHATDY=1 8 0
0x1cc51c…1cc6b0 Dummy {f00=0x0096, f01=0x0190, f02=»8 8 & P LC A4,ECBCW,A8 GET REQUESTED LINE 9 , P CC A4,DWTLIN+DWTDEV,A6 OUTSIDE SCREEN? 9 4 P RF(NG) ADY207 NO! 9 d : P LC A4,DWTLIN+DWTDEV,A6 YES! SET CURSOR AT END OF LINE 9 ~ PADY207 EQU * 9 * P LC A3,DWTAP+DWTDEV,A6 GET ACTUAL LINE 9 PADY210 CWR
0x1cc6b0…1cc844 Dummy {f00=0x0096, f01=0x0190, f02=»CREMENT ACTUAL LINE NUMBER 9 PADY230 CF A5,OUTPUT SEND : " P RF(NZ) DYER30 : B P LDR A4,A4 REQUESTED LINE : X " P RB(NZ) ADY210 NOT EQUAL ZERO : z P LDK A4,1 : P RF ADY300 : PADY250 LDK A2,HOME HOME : & P LDK A3,1 RESET ACTUAL LINE NUMBER :
0x1cc844…1cc9d8 Dummy {f00=0x0096, f01=0x0190, f02=»A4,DWTAP+DWTDEV,A6 UPDATE HEAD LINE COUNTER : , P LC A4,ECBCW+1,A8 GET REQUESTED POSITION ; 4 , P CC A4,DWTPOS+DWTDEV,A6 OUTSIDE SCREEN? ; d P RF(NG) ADY303 NO! ; * P LC A4,DWTPOS+DWTDEV,A6 SET LAST LINE ; PADY303 EQU * ; P CWK A4,1 FIRST POSITION
0x1cc9d8…1ccb6c Dummy {f00=0x0096, f01=0x0190, f02=»Y330 ; * PADY305 RF(NL) ADY307 REQ. POS NOT ZERO < P LDK A4,1 < : 6 PADY307 LC A3,DWTAP+DWTDEV+1,A6 GET ACTUAL POSITION < L $ P CC A3,DWTPOS+DWTDEV,A6 MAX-POS? < P RF(NG) ADY310 NO! < P SUK A3,1 < * PADY310 CWR A4,A3 FORWARDS OR BACKWARDS < P
0x1ccb6c…1ccd00 Dummy {f00=0x0096, f01=0x0190, f02=» PADY330 CF A5,OUTPUT SEND = P RF(NZ) DYER30 = $ P RB ADY310 = : . PADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. = L , P CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY = ~ P RF(L) ADY345 BACKSPACE WAY = P LDK A2,CR CARRIAGE RETURN = & P LDK A3,1 INDICATE F
0x1ccd00…1cce94 (2, 332) Dummy {f00=0x0096, f01=0x0190, f02=»LAST BACKSPACE ? = P RB(NE) ADY345 > @ PADY370 SC A4,DWTAP+DWTDEV+1,A6 UPDATE HEAD POSITION POINTER > . P RF DY620 > r PDY610 EQU * > P XIF > 2 P LD A4,ECBCW,A8 GET REQUESTED CURSOR POSITION > 8 P ST A4,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION CO
0x1cce94…1cd028 Dummy {f00=0x0096, f01=0x0190, f02=»END CHARACTERS WITH STANDARD WRITE > P EJECT ? * @ P************************************************************ ? 8 P* ? | * P* CURPOS = SUBROUTINE TO SET CURSOR ? > P* AT ENTRY A4 = CURSOR POS (POSITION AND LINE) ? P* ? @ P********
0x1cd028…1cd1bc Dummy {f00=0x0096, f01=0x0190, f02=»ND ? P RF(NZ) DYER30 @ P* @ P LDR A2,A4 GET POSITIONS @ * 6 P CC A4,DWTPOS+DWTDEV,A6 MORE THAN MAX. POSITIONS ? @ J P RF(NG) CURR10 NO ! @ 4 P LC A2,DWTPOS+DWTDEV,A6 YES ! SET MAX. POSITIONS @ P* @ PCURR10 ADK A2,/1F CONVERT @ P CF
0x1cd1bc…1cd350 Dummy {f00=0x0096, f01=0x0190, f02=»HAN MAX. LINES ? @ r P RF(NG) CURR20 NO ! A 0 P LC A2,DWTLIN+DWTDEV,A6 YES ! SET MAX LINES A 4 P* A h PCURR20 EQU * A r P ADK A2,/1F CONVERT A P CF A5,OUTPUT SEND A PDYER32 ABL(NZ) DYER48 =13 A P RTN A5 A P EJECT A P IFT VD87=1
0x1cd350…1cd4e4 Dummy {f00=0x0096, f01=0x0190, f02=»IS ORDER MAKES IT POSSIBLE TO A , P* CHANGE BACKGROUND COLOUR, CHARACTER B & , P* WIDTH, SCREEN INTENSITY AND TURN ON B V , P* OR OFF THE CURSOR. NOTE: THIS ORDER B & P* AFFECTS ONLY THE VD87 DISPLAY. B P* B > P******************************
0x1cd4e4…1cd678 Dummy {f00=0x0096, f01=0x0190, f02=»TINE B r $ P CF A15,TSTBIT CHECK BITS IN CW C P LDR A2,A2 C 4 & P RF(Z) TEST10 NO CHANGE IN COLOUR C F P* C p P SLC A4,4 CHANGE COLOUR C z " P CF A15,SETBIT SET BIT IN DWT C P SRC A2,4 C P ST A2,DWTDEV,A6 C P* C ( P LCK A4,/3000 GET CO
0x1cd678…1cd80c Dummy {f00=0x0096, f01=0x0190, f02=»A2 C $ P RF(Z) TEST20 NO CHANGE IN WITDH D P* D 2 P SLC A4,5 CHANGE WIDTH D < P CF A15,SETBIT D Z P SRC A2,5 D p P ST A2,DWTDEV,A6 D P* D P LCK A4,/3200 D P CF A5,PSEND1 D P* D . P LDKL A4,/0101 CURSOR IS SET TO HOME POS. D
0x1cd80c…1cd9a0 Dummy {f00=0x0096, f01=0x0190, f02=» RF(Z) TEST30 NO CHANGE IN INTENSITY D P* E , P SLC A4,6 CHANGE INTENSITY E 6 P CF A15,SETBIT E X P SRC A2,6 E n P ST A2,DWTDEV,A6 E P* E P LCK A4,/3600 E P CF A5,PSEND1 E P* E PTEST30 EQU * E P CF A15,TSTBIT CHECK CW E
0x1cd9a0…1cdb34 (2, 333) Dummy {f00=0x0097, f01=0x0190, f02=» A2,7 E P ST A2,DWTDEV,A6 F P LCK A4,/1500 F & P CF A5,PSEND2 F < P* F R PTEST40 EQU * F P ABL ENDIO READY ! F p P XIF F P EJECT F @ P************************************************************ F P* F P* ORDER 31, ERASE. F
0x1cdb34…1cdcc8 Dummy {f00=0x0097, f01=0x0190, f02=»****************************************************** F P* G > PDY700 EQU * G H 6 P LD A4,ECBCW,A8 GET NUMBER OF CHARACTERS TO ERASE G P IFT WHATDY=1 G , P LD A1,DWTDEV,A6 PTS 6344,6385 OR 6386 ? G P ANKL A1,/1000 G P RF(Z) DY750 YES ! G
0x1cdcc8…1cde5c Dummy {f00=0x0097, f01=0x018e, f02=» A3,/FF G , P SUR A2,A3 NR OF CHARS. TO END OF SCREEN H P LDK A3,0 ADJUST =8 H @ P ADK A2,1 ADJUST LENGTH H P CWR A4,A2 OUTSIDE SCREEN ? H | P RF(L) DY710 NO ! H " P LDR A4,A2 YES ! MODIFY LENGTH H P SUK A3,1 =8 H PDY710 EQU * H "
0x1cde5c…1cdff0 Dummy {f00=0x0097, f01=0x0190, f02=» P RF(N) DY730 ERASE READY I P* I $ P CF A5,OUTPUT SEND I . P RF(NZ) DYER40 I H P RB DY720 I ^ P* I p PDY730 EQU * I z P CF A5,ENDBLK END OF BLOCK I P RF(NZ) DYER40 I P LDKL A2,MAXBLK BLOCK SIZE I $ P CF A5,STABLK START OF NEW BLOCK
0x1cdff0…1ce184 Dummy {f00=0x0097, f01=0x018e, f02=»RSOR IN ORIGINAL POSITION ? I P ABL(N) ENDIO YES ! J $ . P CF A5,OUTPUT NO ! SEND ANOTHER BACKSPACE J @ PDYER40 ABL(NZ) DYER48 =13 J r P RB DY740 J PDY750 EQU * J P XIF J P LDK A3,/20 SPACE J ( P CF A5,FASTER SEND WITH FAST OUTPUT J
0x1ce184…1ce318 Dummy {f00=0x0097, f01=0x0190, f02=» P* K 6 P************************************************* K P* K H PDY760 EQU * =14 K R * P LDK A2,/80 SET FLAG FOR BLOCKING =14 K j & P ORS A2,DWTCHP,A6 OF REQUESTS =14 K PDY770 EQU * =14 K P LDK A1,0 RETURN CODE =14 K P ABL LENDIS
0x1ce318…1ce4ac Dummy {f00=0x0097, f01=0x0190, f02=»*************************************************** K P* L < PDY780 EQU * =14 L F * P LD A2,DWTCHP,A6 CHECK IF BLOCKING =14 L ^ P ANK A2,/80 FLAG IS SET =14 L P RB(Z) DY770 NO ! =14 L P* L * P XRS A2,DWTCHP,A6 YES, RESET FLAG =14 L P A
0x1ce4ac…1ce640 Dummy {f00=0x0097, f01=0x0190, f02=»* ECHODY, DEVICE-DEPENDENT ECHO-ROUTINE L 0 P* THIS ROUTINE CHECKS IF THE ECHO-CHARCTER M 2 . P* IS A BACKSPACE, CLEAR OR EOR-KEY ( IF M f . P* "SUPPRESS ECHOING OF EOR" IS REQUESTED M 0 P* AT SYSGEN ). ELSE THE CHARACTER WILL BE M P* SENT T
0x1ce640…1ce7d4 (2, 334) Dummy {f00=0x0097, f01=0x0190, f02=»7,A7 END OF ECHOING ? M P RF(NN) EDY110 NO ! N P* N : P* N D 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER N N , P LD A1,DWTBLC+DWTDEV,A6 BLOCK RESERVED ? N , P RF(Z) EDY105 NO, RETURN TO KEYBOARD =13 N * P CM DWTBLC+DWTDEV,A6 RESET COUNTER =13
0x1ce7d4…1ce968 Dummy {f00=0x0097, f01=0x0190, f02=» PEDY110 EQU * O 0 P LDR A4,A1 SAVE "MORE CHARACTERS" INDICATION O P IFT GREECE=1 =4 O L P CF A15,GRCHAR =4 O f P XIF =4 O P LDR A3,A2 SAVE CHARACTER O P* O P IFT EORECH=0 O P SUK A3,/80 O $ P RF(NN) EDY130 NOT TO BE ECHOED
0x1ce968…1ceafc Dummy {f00=0x0097, f01=0x0190, f02=»S IT FULL ? O z P RF(L) EDY118 NO ! P 6 P CM DWTBLC+DWTDEV,A6 YES ! CLEAR CHARACTER COUNTER P . P CF A5,ENDBLK FINISH BLOCK P h PEDY116 EQU * P P LDK A2,MINBLK P P CF A5,STABLK DECLARE BLOCK P PEDY118 EQU * P P LDR A2,A3 RELOAD CHARACTER
0x1ceafc…1cec90 Dummy {f00=0x0097, f01=0x0190, f02=» P* Q & P* SEND CHARACTER TO ECHO-DEVICE Q P* Q 8 * P IM DWTBLC+DWTDEV,A6 INCREMENT COUNTER Q B P CF A5,OUTPUT SEND Q p , P CF A15,POSUPD POSITION COUNTER UPDATING Q P SUK A4,1 MORE CHARACTERS ? Q P RF(Z) EDY130 YES ! Q P* Q PEDY1
0x1cec90…1cee24 Dummy {f00=0x0097, f01=0x0190, f02=» P EJECT R @ P************************************************************ R P* R V P* BACKSPACE R ` 6 P* CHECKS CURSOR POSITION, MOVES CURSOR ONE STEP R v 6 P* BACKWARDS, SENDS A SPACE AND MOVES CURSOR ONE R P* STEP BACKWARDS AGAIN. R
0x1cee24…1cefb8 Dummy {f00=0x0097, f01=0x0190, f02=»ET POSITION COUNTER R x P ANK A3,/FF S P RB(Z) EDY120 FIRST POSITION S 0 P* S T " P CF A5,ENDBLK FINISH OLD BLOCK S ^ P LDK A2,MINBLK S $ P CF A5,STABLK START A NEW BLOCK S P* S $ P LDK A4,2 SET "SEND AGAIN" FLAG S $ P SUK A3,1 INDICATE O
0x1cefb8…1cf14c Dummy {f00=0x0097, f01=0x0190, f02=» 4 P CC A3,DWTPOS+DWTDEV,A6 LAST POSITION ON LINE ? T P RF(L) DY810 NO ! T < P RB(G) DY800 NO, OUTSIDE ! T V P* T x P* T PDY805 EQU * T P* T P LDK A2,SPACE SPACE T P CF A5,OUTPUT SEND T P* T PDY810 EQU * T , P LDK A2,BA
0x1cf14c…1cf2e0 Dummy {f00=0x0097, f01=0x0190, f02=»NO, BACKSPACE FINISHED T P RB EDY120 U P EJECT U 0 < P******************************************************** U > P* U ~ P* CLEAR U 6 P* CHECKS CURSOR POSITION, SETS CURSOR WHERE LAST U 4 P* REQUEST ENDED AND SENDS SPACES TO ERASE THE U
0x1cf2e0…1cf474 (2, 335) Dummy {f00=0x0097, f01=0x0190, f02=»* U PDY850 EQU * V " P CF A5,ENDBLK FINISH OLD BLOCK V " P LDKL A2,MAXBLK GET BLOCKSIZE V D P CF A5,STABLK START OF BLOCK V j 0 P LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER V P ANK A3,/FF V P RB(Z) EDY120 FIRST POSITION V P* V P IFT
0x1cf474…1cf608 Dummy {f00=0x0097, f01=0x018e, f02=»CURRENT REQUEST V | P RB EDY120 W P XIF W * PDY860 EQU * W 6 4 P LD A4,DWTAP+DWTDEV,A6 GET HEAD POSITION COUNTER W J P CF A5,CURPOS SET CURSOR W P* W $ P LDR A4,A3 GET POSITION COUNTER W & P ADK A4,1 UPDATE POSITION COUNTER W $ P LDK A3,SP
0x1cf608…1cf79c Dummy {f00=0x0097, f01=0x0190, f02=» P RB EDY120 X P IFT WHATDY=1 X P EJECT X , @ P************************************************************ X : P* X ~ 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR X 0 P* AT THE PLACE BEFORE REQUEST IF X P* CLEAR. X
0x1cf79c…1cf930 Dummy {f00=0x0097, f01=0x0190, f02=»ER COUNTER X n P LDR A4,A3 Y 0 P LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER Y $ P ANK A2,/FF Y X 4 P AD A2,DWTAP+DWTDEV,A6 ADD HEAD POSITION COUNTER Y l P ANK A2,/FF Y * P CC A2,DWTPOS+DWTDEV,A6 LAST POSITION Y P RF(NP) BACA10 NO Y $ P LDK A2,
0x1cf930…1cfac4 Dummy {f00=0x0097, f01=0x0190, f02=»AXBLK-3 GET BLOCKSIZE - 3 Y : P CW A2,DWTBLC+DWTDEV,A6 WILL IT BE OVERFLOW IN BLOCK ? Z " P RF(G) BACA30 NO ! Z ` P* Z z & P CF A5,ENDBLK YES ! END OLD BLOCK Z P RF(NZ) DYER50 Z P LDKL A2,MAXBLK BLOCK SIZE Z $ P CF A5,STABLK START A NEW BLOCK Z
0x1cfac4…1cfc58 Dummy {f00=0x0097, f01=0x0190, f02=»A5,OUTPUT SEND Z P RF(NZ) DYER50 [ $ P LDK A2,SPACE DESTRUCTIVE SPACE [ , P CF A5,OUTPUT SEND [ T P RF(NZ) DYER50 [ n P LDK A2,BACKSP BACKSPACE [ PBACA20 CF A5,OUTPUT SEND [ P RF(NZ) DYER50 [ P SUK A4,1 [ P RB(NE) BACA10 [ P NGR A
0x1cfc58…1cfdec Dummy {f00=0x0097, f01=0x0190, f02=»************************************************** [ P* : , P* FASTER = SUBROUTINE FOR FAST OUTPUT D 4 P* AT ENTRY A4 = NUMBER OF CHARACTERS t 2 P* A3 = CHARACTER TO SEND P* @ P****************************
0x1cfdec…1cff80 Dummy {f00=0x0097, f01=0x0190, f02=»1 ? v P RF(Z) FAS005 NO ! ] P* ] & 6 P* SIMULATED "FAST OUTPUT" FOR PTS 6342 AND 6351 ] 0 P* ] j P LC A2,DWTBC+DWTDEV,A6 ] t ( P AD A2,DWTAP+DWTDEV,A6 GET POSITION ] P ANK A2,/FF ] ( P ADR A2,A4 ADD NUMBER OF CHARACTERS ] P* ] . P
0x1cff80…1d0114 (2, 336) Dummy {f00=0x0097, f01=0x0190, f02=»A1 ADJUST LENGTH ] . P RF(N) FAS008 LAST POS. ALREADY WRITTEN =9 ^ $ P LDR A2,A4 ONE BACKSPACE LESS =9 ^ J * P ADK A4,1 ADJUST NUMBER OF CHARACTERS ^ r P RF FAS007 =9 ^ P* ^ PFAS002 EQU * ^ P* ^ & P LDR A2,A4 PUT TWO COUNTERS IN A4 ^ P
0x1d0114…1d02a8 Dummy {f00=0x0097, f01=0x0190, f02=»,OUTPUT SEND ^ P RF(NZ) DYER50 _ P SUK A4,1 DECREMENT COUNTER _ * P LDK A2,/FF _ N P ANR A2,A4 _ b P RB(P) FAS004 NEXT CHARACTER _ t P* _ & P CF A5,ENDBLK START A NEW BLOCK TO _ $ P RF(NZ) DYER50 AVOID OVERFLOW IN _ P LDKL A2,MAXBLK THE
0x1d02a8…1d043c Dummy {f00=0x0097, f01=0x0190, f02=»SEND =9 _ r PFAS003 EQU * ` P LDK A2,BACKSP ` $ P CF A5,OUTPUT SEND BACKSPACE ` : P RF(NZ) DYER50 ` ^ P SUK A4,1 DECREMENT COUNTER ` t P RB(P) FAS003 NEXT ` PFAS008 EQU * =9 ` P RTN A5 ` PFAS005 EQU * ` P XIF ` 6 P CC A4,DWTPOS+
0x1d043c…1d05d0 Dummy {f00=0x0097, f01=0x0190, f02=» ON DISPLAY ` f PFAS010 EQU * a P ADK A4,/20 ADD CONSTANT a ( P LDK A2,FASOUT FAST OUTPUT a H P CF A5,OUTPUT SEND a j PDYER48 RF(NZ) DYER50 a P LDR A2,A4 NO OF CHAR a P ANK A2,/FF a P CF A5,OUTPUT SEND a P RF(NZ) DYER50 a P LDR A
0x1d05d0…1d0764 Dummy {f00=0x0097, f01=0x018e, f02=»****** a b P* b 6 P* ERROR ROUTINE. ENTERED WHEN RETURN CODE IS SET b ( P* AFTER STABLK, OUTPUT OR ENDBLK. b R P* b ~ : P****************************************************** b PDYER50 EQU * b P LD A7,DWTST,A6 b P SLC A7,2 ECHO ? b .
0x1d0764…1d08f8 Dummy {f00=0x0097, f01=0x0190, f02=» b l P SLC A1,5 NO ! RESTORE A1 c P* c * * P LD A7,DWTOR,A6 GET ORDER. ORDER 00 ? c 4 P ANK A7,/FF c b P RF(Z) DYER52 YES ! c v P SUK A7,5 ORDER 5 ? c P RF(Z) DYER52 YES ! c P SUK A7,/2B ORDER 31 ? c P RF(Z) DYER52 YES ! c P* c
0x1d08f8…1d0a8c Dummy {f00=0x0097, f01=0x0190, f02=»! c ~ 8 P LDKL A1,/2000 YES ! SET SHIFTED "NOT OPERABLE" BIT d PDYER55 SLC A1,3 SHIFT BACK d F P* d h P* 4 LINES DELETED =14 d r P ABL LENDIS COMPLETE REQUEST d P* d P* LRC-ERROR d P* d PDYER70 EQU * d ( P LDKL A5,DWTSB2 INITIA
0x1d0a8c…1d0c20 Dummy {f00=0x0097, f01=0x0190, f02=» WHATDY=1 d ( P LD A4,DWTDEV,A6 6344,6385 OR 6386 ? e P ANKL A4,/1000 e > P RF(Z) DYER90 YES ! e T 6 P LC A4,DWTBC+DWTDEV,A6 GET NUMBER OF POS. TO BACK e p P ANK A4,/FF e P RF(Z) DYER80 e . P CF A5,BACCAN SEND BACKSPACES AND RUB OUT e P L
0x1d0c20…1d0db4 (2, 337) Dummy {f00=0x0098, f01=0x0190, f02=» HEAD POS. COUNTER e v ( P CF A5,CURPOS SET CURSOR ON DISPLAY f P LDK A3,0 RESET BUFFER INDEX f F P LD A7,DWTOR,A6 GET ORDER f j P ANK A7,/FF f P ABL ACDY f P EJECT f @ P************************************************************ f P* f
0x1d0db4…1d0f48 Dummy {f00=0x0098, f01=0x018e, f02=»D f n P* g @ P************************************************************ g PUPDAPP EQU * g X 0 P LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER g l P ANK A2,/FF g 8 P ADS A2,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER g P LDK A2,0 g 2 P SC A2
0x1d0f48…1d10dc Dummy {f00=0x0098, f01=0x0190, f02=» g 6 P* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION h 0 P* COUNTER WHEN REQUEST RUNNING. h B D P* A CHECK THAT POINTER NOT EXCEEDS THE LIMIT IS DONE h v P* h @ P************************************************************ h
0x1d10dc…1d1270 Dummy {f00=0x0098, f01=0x0190, f02=» ANK A2,/FF h ( P CC A2,DWTPOS+DWTDEV,A6 END OF ROW ? i P RF(G) POSU10 i @ ( P IM DWTBC+DWTDEV,A6 POSITION COUNTER i V PPOSU10 RTN A15 i P IFT GREECE=1 =4 i P EJECT =4 i : P*************************************************** =4 i P*
0x1d1270…1d1404 Dummy {f00=0x0098, f01=0x0190, f02=» =4 i : P*************************************************** =4 j PGRCHAR EQU * =4 j L , P LDR A1,A2 IS IT A GREEK CHARACTER ? =4 j d P SUK A1,/B9 =4 j P RF(P) GRCH10 NO =4 j P ADK A1,9 =4 j P RF(N) GRCH10 NO =4 j P* =4 j 0
0x1d1404…1d1598 Dummy {f00=0x0098, f01=0x0190, f02=» RTN A15 =4 j P* =4 k PGRTAB EQU * =4 k $ , P DATA /265B,/5C23,/5D22,/4021,/5E5F =4 k < P XIF =4 k l P IFT TRASPA=1 k ~ P EJECT k 6 P************************************************** k P* k 4 P* TRASP = SUBROUTINE THAT ELIMIN
0x1d1598…1d172c Dummy {f00=0x0098, f01=0x0190, f02=» INTENSITY START AND TABULATIONS. k P* l . 6 P************************************************** l 8 P* l r PTRASP EQU * l | , P LD A1,ECBBA,A8 GET BUFFER ADDRESS (BA) l , P LD A2,ECBRL,A8 GET REQUESTED LENGTH(RL) l P ADR A1,A2 GET END OF BU
0x1d172c…1d18c0 Dummy {f00=0x0098, f01=0x0190, f02=» P SUK A4,/20 SPACE ? m P RF(Z) SKIP07 YES m P ADK A4,1 LOW INT. STOP ? m : P RF(Z) SKIP07 YES ! m P ADK A4,1 LOW INT. START ? m x P RF(Z) SKIP07 YES ! m P CWK A2,4 m " P RF(NG) SKIP30 REQ, LENGTH < 5 m P LC A4,-2,A1 GET CHARACTER
0x1d18c0…1d1a54 (2, 338) Dummy {f00=0x0166, f01=0x0190, f02=»1 DECR RL m P RB SKIP05 GET NEXT n PSKIP30 EQU * n . P LD A4,ECBRL,A8 n B ( P ST A4,ECBCW,A8 SAVE OLD REQ. LENGTH n Z P* n P ST A2,ECBRL,A8 STORE NEW RL n P* n P RTN A15 n P XIF n P IFT VD87=1 =7 n P EJECT n P* n D
0x1d1a54…1d1be8 Dummy {f00=0x0166, f01=0x0190, f02=» n > P* ON ENTRY: A4, RIGHT BYTE: CONTROL CHAR. FOR FIRST TYPE o J P* A4, LEFT BYTE: BIT 0 = 0 FOR FIRST TYPE, 1 = SECOND TYPE o J < P* PSEND1 SENDS CHARACTER /1B BEFORE CONTROL CHARACTER o P* o D P**************************************
0x1d1be8…1d1d7c Dummy {f00=0x0166, f01=0x0190, f02=» DYER50 NOT OK ! o P* p PPSEND2 EQU * p " P LDR A2,A4 FIRST TYPE ? p 6 P RF(NN) PS10 YES ! p V * P ADK A2,1 NO, CHANGE CONTROL CHARACTER p p PPS10 EQU * p ( P CF A5,OUTPUT SEND CONTROL CHARACTER p P ABL(NZ) DYER50 NOT OK ! p P RTN A5 RETU
0x1d1d7c…1d1f10 Dummy {f00=0x0166, f01=0x0190, f02=»T TESTS BITS IN A3 p ~ P* q F P***************************************************************** q $ P* q n PTSTBIT EQU * q x P LD A4,DWTDEV,A6 q P SRC A3,2 q P LDR A2,A3 q P ANKL A2,/8001 q P RTN A15 q P* q F P****************
0x1d1f10…1d20a4 Dummy {f00=0x0166, f01=0x0190, f02=»WTDEV, SHIFTED SO THAT BIT 0 IS ACTUAL INDICATION BIT q ~ . P* A2=INDICATION BIT IN BIT 15 r > @ P* ON EXIT: A2 AND A4=DWTDEV WITH NEW IND. BIT IN BIT ZERO r p P* r F P***************************************************************** r P
0x1d20a4…1d2238 Dummy {f00=0x0166, f01=0x0190, f02=» A2,1 SHIFT INDICATION BIT TO BIT ZERO r P LDR A4,A2 s . P RTN A15 s @ P XIF s P P EJECT s @ P************************************************************ s j P* s P* RCDY = RECOVERY ROUTINE s 6 P* CLEARS DISPLAY AND SETS CURSOR & HEAD PO
0x1d2238…1d23cc Dummy {f00=0x0166, f01=0x0190, f02=» P* t PRCDY EQU * t P LDKL A2,/7FFF t " P ANS A2,DWTST,A6 INDICATE BUSY t 6 P* t $ P LDKL A2,MAXBLK MAX. BLOCK SIZE t f P CF A5,STABLK START OF BLOCK t P IFT PLASM=1 =11 t P* t 8 P* WAIT FOR PLASMA DISPLAY'S INTERNAL RECOVERY =11
0x1d23cc…1d2560 Dummy {f00=0x0166, f01=0x0190, f02=» P CF A15,SETIME SET TIMER =11 u P DATA RCTIME,TIME =11 u ( P ST A4,DWTTP+DWTDEV,A6 =11 u F P ABL LDISP WAIT =11 u j PRCTIME EQU * READY =11 u & P LDR A6,A1 RESTORE DWT-ADDRESS =11 u . P LDR A5,A6 INITIATE DWT STACK POINTER =12 u P ADKL A5
0x1d2560…1d26f4 (2, 339) Dummy {f00=0x0166, f01=0x0190, f02=» DISPLAY u j P* v & P LD A4,DWTDEV,A6 GET DEVICE STATUS v P RF(NN) RCDY05 NOT VD87 ! v D P* v f ( P SLL A4,4 GET BIT FOR BACKGR. COLOUR v p 2 P LCK A4,/3000 CONTR. CHAR. FOR BACKGR. COLOUR v " P CF A5,RSEND1 SEND PARAMETERS v P* v P SLL A
0x1d26f4…1d2888 Dummy {f00=0x0166, f01=0x0190, f02=» SCREEN INTENSITY v r P CF A5,RSEND1 w P* w 0 P SLL A4,1 w : * P LCK A4,/1500 CONTR. CHAR. FOR CURSOR w L P CF A5,RSEND2 w z PRCDY05 EQU * w P XIF w P IFF STEADY+VD87=0 w & P LD A2,DWTDEV,A6 GET DEVICE STATUS w , P ANKL A2,/2000 PTS 6
0x1d2888…1d2a1c Dummy {f00=0x0166, f01=0x0190, f02=»TEADY IF SO w v * P CF A5,OUTPUT SEND CURSOR INFORMATION x P XIF x B P IFF COUNTRY=0 x N * P LDK A2,CTYCOD SEND "SET COUNTRY CODE" x d P CF A5,OUTPUT x P IFT VD87=1 =7 x P* x D P* SEND AN EXTRA CONTROL CHARACTER TO VD87 BEFORE COUNTRY COD
0x1d2a1c…1d2bb0 Dummy {f00=0x0166, f01=0x0190, f02=»EQU * x P XIF y P IFF COUNTRY=0 y ( P LDK A2,COUNTRY SEND "COUNTRY CODE" y 0 P ORK A2,/30 MAKE ASCII DIGIT y P CF A5,OUTPUT y P XIF y PRCDY20 EQU * y P* y ( P LDK A2,CLEHOM CLEAR AND CURSOR HOME y P CF A5,OUTPUT SEND y P C
0x1d2bb0…1d2d44 Dummy {f00=0x0166, f01=0x0190, f02=» y : P SC A2,DWTBC+DWTDEV,A6 RESET CURRENT POSITION COUNTER z P* z F , P LD A2,DWTST,A6 GO TO DISPATCHER IF =11 z P * P SLC A2,2 DISPLAY IS IN ECHO MODE =11 z P ABL(N) LDISP =11 z P IFT VD87=1 =12 z P LDR A8,A8 REQUEST ON ? =12 z P RF(
0x1d2d44…1d2ed8 Dummy {f00=0x0166, f01=0x018e, f02=»QU * =12 z P XIF =12 { P ABL LENDIS =11 { $ P* { < P IFT VD87=1 =11 { F P* { ^ & P* RECOVERY SUBROUTINES FOR VD87 { h P* { PRSEND1 EQU * =11 { * P LDK A2,/1B SEND CONTROL CHARACTER =11 { P CF A5,OUTPUT =11 { P* { P
0x1d2ed8…1d306c Dummy {f00=0x0166, f01=0x0190, f02=» { d PRS10 EQU * =11 | , P CF A5,OUTPUT SEND CONTROL CHARACTER =11 | P RTN A5 RETURN =11 | P P* | j P XIF | t P EJECT | P* | , P**************************************** | P* | P* ABORT ROUTINE | P* | , P******************
0x1d306c…1d3200 Dummy {f00=0x0166, f01=0x400e, f02=»ND | @ } QU * =11 | , P CF A5,OUTPUT SEND CONTROL CHARACTER =11 | P RTN A5 RETURN =11 | P P* | j P XIF | t P EJECT | P* | , P**************************************** | P* | P* ABORT ROUTINE | P* | , P******************
0x1d3200…1d3394 (2, 340) Dummy {f00=0x0166, f01=0x2008, f02=» ~ E & | CF A5,STABLK START OF BLOCK ' * ' 6 ( $ LDK A2,CLEHOM CLEAR AND CURSOR HOME ' @ CF A5,OUTPUT SEND ' l * ' LDKL A2,/0101 HOME POSITION ' 4 0 ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER ' * ' ABL ENDIO '
0x1d3394…1d3528 Dummy {f00=0x0166, f01=0x0190, f02=» PPLCNRL EQU X:A P* D P* PLCNRR DEFINES THE NUMBER OF REMOTE PLC:S ACTUALLY CONN. (0-4) ( P* p PX:B EQU 0 z PPLCNRR EQU X:B P* P* P EJECT P* P************* P* CONSTANTS * P*************
0x1d3528…1d36bc Dummy {f00=0x0166, f01=0x0190, f02=»* 4 P* MAXIMAL NUMBER OF WORK STATIONS PER PLC (1-32) PMAXWS EQU 32 B P* V > P* DELAY BEFORE EXECUTING "TEST CU" AT RESTART. (IN 100 MS) ` PSTADLY EQU 100 10 SECONDS P* B P* LENGTH OF USER PART OF SHORT OUTPUT BUFFER IN WORDS (1-1
0x1d36bc…1d3850 Dummy {f00=0x0166, f01=0x0190, f02=» ( P* INACTIVITY TIMER (MINUTES) PTIMACT EQU 5 4 P* H < P* IF PLCTST IS 1 THE PLC DIAGNOSTIC COMMANDS ARE HANDLED R P* BY THIS DRIVER. P* PPLCTST EQU 0 P* P* D P* A TEST VERSION OF THE DRIVER IS OBTAINED
0x1d3850…1d39e4 Dummy {f00=0x0166, f01=0x0190, f02=»D AND TRAP IS USED j P* PUTTEST EQU 0 $ P* 8 P* B 6 P* LOBUFN IS THE NUMBER OF LONG OUTPUT BUFFERS USED L P* FOR EACH PLC (1-6) P* PLOBUFN EQU 3 P* P* 6 P* LOBUFU IS THE LENGTH OF THE USER PART OF A LONG
0x1d39e4…1d3b78 Dummy {f00=0x0166, f01=0x0190, f02=»UPT LEVELS | 0 P* THESE LEVELS MUST CORRESPOND TO INTERRUPT P* VECTOR IN SYSTAB F P* ` PINTLV0 EQU 26 PLC NUMBER 1 j PINTLV1 EQU 27 PLC NUMBER 2 PINTLV2 EQU 24 PLC NUMBER 3 PINTLV3 EQU 25 PLC NUMBER 4 & PINTRV0 EQU 18 PLC NUMB
0x1d3b78…1d3d0c Dummy {f00=0x0166, f01=0x0190, f02=»TE p P* & P* CHANNEL UNIT DEVICE ADDRESSES P* > PPLCDA0 EQU /06 PLC 1 H PPLCDA1 EQU /07 PLC 2 d PPLCDA2 EQU /26 PLC 3 PPLCDA3 EQU /27 PLC 4 PPLCDA4 EQU /3A PLC 5 PPLCDA5 EQU /3B PLC 6 PPLCDA6 EQU /2A PLC 7
0x1d3d0c…1d3ea0 Dummy {f00=0x0166, f01=0x0190, f02=»UFFER HEADER LENGTH (WORDS) 2 PFLOWLW EQU 2 FLOW CONTROL FIELD LENGTH (WORDS) $ 2 PSYSTLW EQU HEADLW+FLOWLW SYSTEM PART OF BUFFER Z P* P* LONG OUTPUT BUFFERS : PLOBUF1 EQU SYSTLW+LOBUFU LENGTH OF ONE BUFFER (WORDS) & PLOBUF2 EQU LOB
0x1d3ea0…1d4034 (2, 341) Opaque[0x194]
0x1d4034…1d41c8 # DirEnt {nam=»DRGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1308, f03=0x0000}
0x1d4034…1d41c8 IdxSect {
0x1d4034…1d41c8 f00 = 0x0098 // 0x1d4034 @0x0
0x1d4034…1d41c8 f01 = 0x0018 // 0x1d4036 @0x2
0x1d4034…1d41c8 gno = [ // 0x1d4038 @0x4
0x1d4034…1d41c8 [0x00]: C0x0098.0x1.0
0x1d4034…1d41c8 [0x01]: C0x0098.0x2.0
0x1d4034…1d41c8 [0x02]: C0x0098.0x3.0
0x1d4034…1d41c8 [0x03]: C0x0099.0x0.0
0x1d4034…1d41c8 [0x04]: C0x0099.0x1.0
0x1d4034…1d41c8 [0x05]: C0x0099.0x2.0
0x1d4034…1d41c8 [0x06]: C0x0099.0x3.0
0x1d4034…1d41c8 [0x07]: C0x009a.0x0.0
0x1d4034…1d41c8 [0x08]: C0x009a.0x1.0
0x1d4034…1d41c8 [0x09]: C0x009a.0x2.0
0x1d4034…1d41c8 [0x0a]: C0x009a.0x3.0
0x1d4034…1d41c8 [0x0b]: C0x009b.0x0.0
0x1d4034…1d41c8 ]
0x1d4034…1d41c8 }
0x1d41c8…1d435c Dummy {f00=0x0098, f01=0x0190, f02=» 2 P IDENT DRGP02 REL 11.0 82-07-07 870105041100 P : P DK2, BASIC WRITE B P DK1 STR. TERM = /9C9C ^ ( P =1,TIME OUT IF INACTIVE, 25 SEC. ~ P PRR 11.0 80-11-19 P* < P*******************************************************
0x1d435c…1d44f0 Dummy {f00=0x0098, f01=0x0190, f02=»* * 4 P* DRGP02 = DRIVER GENERAL PRINTER * @ < P* * x < P* * < P*
0x1d44f0…1d4684 Dummy {f00=0x0098, f01=0x0190, f02=»R HANDLES GENERAL PRINTER PTS 8081 P* * 4 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS : 4 P* l $ P* A C T P : ACTIVATION PART v P* $ P* R C T P : RECOVERY ROUTINE P* P* P EJECT P* * P* THE FOLL
0x1d4684…1d4818 Dummy {f00=0x0098, f01=0x0190, f02=» WRITE DK2 ~ * P* ORDER 0B : POSITION DOCUMENT . P* ORDER 24 : SET PRINTER PARAMETERS @ ( P* ORDER 38 : RELEASE DOCUMENT r P* , P* THE FOLLOWING RETURN CODES ARE USED: P* & P* BIT 0 : REQUEST ERROR
0x1d4818…1d49ac Dummy {f00=0x0098, f01=0x018e, f02=»ERABLE v P* P* P* NORMAL REGISTER USAGE: " P* D " P* REGISTER A1: WORK REGISTER N " P* A2: INPUT/OUTPUT t $ P* A3: BUFFER POINTER " P* A4: WORK REGISTER " P* A5: STACK POINTER
0x1d49ac…1d4b40 Dummy {f00=0x0098, f01=0x0190, f02=» P* P* 0 P******************************************* P* P P* ENTRIES Z P* l 0 P******************************************* v P* P* P ENTRY GPAD8 ADDRESS BLOCK P* P* P* 0 P**********
0x1d4b40…1d4cd4 (2, 342) Dummy {f00=0x0098, f01=0x018e, f02=» P* , P EXTRN LDISP DISPATCHING FROM INTERRUPT $ P EXTRN LENDER DISPATCH I/O ERROR B & P EXTRN LENDIS END I/O AND DISPATCH j & P EXTRN OUTPUT OUTPUT ONE CHARACTER 0 P EXTRN GETCHR GET CHARACTER FROM ECB BUFFER P EXTRN SETIMP SET TIME
0x1d4cd4…1d4e68 Dummy {f00=0x0098, f01=0x018e, f02=» j P EXTRN DWTSB2 STACK BASE 2 P EXTRN INPUT STORE REG = GET STATUS INPUT CHAR ( $ P EXTRN STABLK DEF START OF BLOCK ^ " P EXTRN ENDBLK DEF END OF BLOCK P EXTRN DWTDEV DEVICE STATUS P EJECT P* P* . P******************
0x1d4e68…1d4ffc Dummy {f00=0x0098, f01=0x0190, f02=» " PSPEC EQU /2E SPECIAL CHARACTER PLF EQU /0A LINE FEED . PFF EQU /0C FORM FEED J PCR EQU /0D CARRIAGE RETURN f PSO EQU /0E SHIFT OUT PSI EQU /0F SHIFT IN PESC EQU /1B ESCAPE , PCSI EQU /5B CONTROL SEQUENCE INTRODUCER
0x1d4ffc…1d5190 Dummy {f00=0x0098, f01=0x0190, f02=»SITION FRONT FEED x " PEJFF EQU /38 EJECT FRONT FEED ( PSNV EQU /77 SELECT NATIONAL VERSION @ $ PSLPL EQU /76 SELECT PAGE LENGTH l & PRIS EQU /63 RESET TO INITIAL STATE $ PDSR EQU /6E DEVICE STATUS REPORT & PDCS EQU /50 DEVICE CONTROL STRING
0x1d5190…1d5324 Dummy {f00=0x0098, f01=0x0190, f02=»TIMER =1 | P EJECT P* " P* , > P********************************************************* 6 P* x P* CONTROL SEQUENCES P* > P********************************************************* P* P* PBYTE FORM
0x1d5324…1d54b8 Dummy {f00=0x0098, f01=0x0190, f02=»NEG * PCSVPR EQU * VERTICAL POSITION RELATIVE P BYTE ESC,CSI : P BYTE ZERO,ZERO P P BYTE ZERO,VPR h P BYTE NEG,NEG ~ " PCSINFF EQU * INPUT FRONT FEED P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE INFF,NEG . PCSVPFF EQU
0x1d54b8…1d564c Dummy {f00=0x0098, f01=0x0190, f02=»D t P BYTE ESC,EJFF P BYTE NEG,NEG P EJECT 6 PCSSNV EQU * D P SELECT NATIONAL VERSION X P BYTE ESC,CSI z P BYTE ZERO,ZERO P BYTE SNV,NEG " PCSSLPL EQU * SELECT PAGELENGTH P BYTE ESC,CSI P BYTE ZERO,ZER
0x1d564c…1d57e0 Dummy {f00=0x0098, f01=0x0190, f02=» $ PCSDSR EQU * DEVICE STATUS REPORT P BYTE ESC,CSI 0 P BYTE /35,DSR F P BYTE NEG,NEG P EJECT r P* P* < P******************************************************* P* P* CONDITIONAL ASSEMBLY P* < P**
0x1d57e0…1d5974 (2, 343) Dummy {f00=0x0098, f01=0x0190, f02=»OSEN d 8 P* BY SETTING X:A TO 1-15 ACCORDING TO THE LIST BELOW P* H P* R 4 P* NCV=1 GERMANY,AUSTRIA,LUXEMBOURG,SWITZERLAND F P =2 GREAT BRITAIN,NETHERLANDS,BELGIUM,NEW ZEELAND,SOUTH AFRICA 0 P =3 FRANCE,SWITZERLAND,BELGIUM,LUXEMBOU
0x1d5974…1d5b08 Dummy {f00=0x0098, f01=0x0190, f02=»ORWAY P =8 PORTUGAL,BRAZIL P =9 YUGOSLAVIA , P =10 USA,CANADA,AUSTRALIA F $ P =11 SWEDEN (SPECIAL VERSION) j P =13 GREEK $ P =14 JAPAN (KATAKANA VERSION) $ P =15 ISRAEL (HEBREW VERSION) P* P*
0x1d5b08…1d5c9c Dummy {f00=0x0098, f01=0x0190, f02=»XCLUDED p P* BY SETTING X:B = 0 P* , P* 6 PX:B EQU 1 @ " PFFDEV EQU 0 FRONT FEED DEVICE R P* x P* P* ( P* THE STANDARD PAGELENGTH IS DEFINED & P* BY SETTING X:C = NUMBER OF LINES P* P* PX:C EQU
0x1d5c9c…1d5e30 Dummy {f00=0x0098, f01=0x0190, f02=» n P* P* PX:D EQU 36 * PDOCLEN EQU 48 2 P EJECT H P* V P* ` P* j P* MMU BUFFER SIZE t P* P* PX:E EQU 132 PDVBLEN EQU 256 P* P* P* . P* A PROGRAM VERSION USING TOSS
0x1d5e30…1d5fc4 Dummy {f00=0x0098, f01=0x0190, f02=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0 : P* l P* v PCPU852 EQU 0 P EJECT P* P* 0 P******************************************* P* P* DWT - DISPLACEMENT
0x1d5fc4…1d6158 Dummy {f00=0x0098, f01=0x0190, f02=»INED PART n P* P IFT MMUPAG=0 PSTART EQU DWTDRD 2 P XIF J P* V P IFT MMUPAG=1 ` PSTART EQU DWTDRD+4 v P XIF P* " PDWTTP EQU /2 TIMER POINTER =1 ( PDWTDCS EQU /4 DOCUMENT CHARACTER SET ( PDWTPCS EQU /6 PR
0x1d6158…1d62ec Dummy {f00=0x0098, f01=0x0190, f02=»E ON DOCUMENT x , PDWTRLN EQU /E REQUESTED LINE ON DOCUMENT , PDWTRC EQU /11 RETURN CODE (ACKUMULATED) F * PDWTSTR EQU /12 CONTROL SEQUENCE ADRESS v > PDWTDISP EQU /14 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. * PDWTACD EQU /16 ACTUAL COLUMN DOCUM
0x1d62ec…1d6480 Dummy {f00=0x0098, f01=0x0190, f02=»TSYST EQU /22 SYSTEM START IND. , PDWTLFD EQU /24 LINE/FORM FEED INDICATOR ( P EJECT X P* f P* p 0 P******************************************* z P* P* ECB - DISPLACEMENTS P* 0 P****************************************
0x1d6480…1d6614 (2, 344) Dummy {f00=0x0099, f01=0x0190, f02=» IN ECB t " PECBRC EQU 8 RETURN CODE IN ECB $ PECBCW EQU 10 CONTROL WORD IN ECB 6 P EJECT ^ P* l 0 P******************************************* v P* P* TABLES P* 0 P******************************************* P*
0x1d6614…1d67a8 Dummy {f00=0x0099, f01=0x0190, f02=»IVER x " P DATA 0 ABORT ROUTINE ADDRESS P DATA 0 INTERRUPT HANDLER 2 P DATA RCTP RECOVERY ROUTINE T PTPTAB EQU * x P IFT FFDEV=1 P DATA /0107,/0C25,/3939 P XIF P DATA /0006,/2424,/0505 DK2 PTPLEN EQU *-TPTAB
0x1d67a8…1d693c Dummy {f00=0x0099, f01=0x0190, f02=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR P* B P* L P* V PACTP EQU * ACTIVATION ENTRY ` P* P* : P* GET DWT INDEX: 0=CONTINUOUS STATIONARY, 1=DOCUMENT P* " P LC A2,DWTOR,A6 GET DWT INDEX P A
0x1d693c…1d6ad0 Dummy {f00=0x0099, f01=0x018e, f02=» r P CWK A7,/05 ORDER 5? DK2 P RF(E) ACT003 YES DK2 ( & P ADR A7,A2 ADD DWT INDEX TO ORDER F PACT003 EQU * DK2 p * P SC A7,DWTOR+1,A6 STORE MODIFIED ORDER PACT005 LDK A3,TPLEN-1 . PACT010 CC A7,TPTAB,A3 CHECK IF LEGAL ORDER P
0x1d6ad0…1d6c64 Dummy {f00=0x0099, f01=0x0190, f02=» P* PACT020 EQU * P ADR A3,A3 GET INDEX " P ABI TPFUC,A3 EXECUTE ORDER > P EJECT b PTPFUC EQU * p P IFT FFDEV=1 4 P DATA TSTSTA,WRTDOC,POSDOC,DOCPAR,RELDOC,RELDOC P XIF 8 P DATA TSTSTA,WRTCON,CSTPAR,CSTPAR,BASWRT,BAS
0x1d6c64…1d6df8 Dummy {f00=0x0099, f01=0x0190, f02=» CF A5,RESREC * P CF A5,GTSTAT GET STATUS FROM PRINTER P ABL LENDIS END REQUEST D P* d P* n P* ORDER 05 : BASIC WRITE x P* P* PBASWRT EQU * P LDK A3,0 PBAS10 EQU * & P LDK A4,/90 TEST FOR END OF BLOC
0x1d6df8…1d6f8c Dummy {f00=0x0099, f01=0x0190, f02=» CF A15,GETCHR GET A CHARACTER P LDR A1,A1 FINISHED? ( P RF(Z) BAS25 YES F P CF A5,OUTPUT NO, SEND IT ` " P ABL(NZ) ERROUT QUIT IF ERROR P SUK A4,1 END OF BLOCK? P RF(Z) BAS20 YES $ P RB BAS15 NO, GET ANOTHER CHAR.
0x1d6f8c…1d7120 Dummy {f00=0x0099, f01=0x0190, f02=»U * P CF A5,ENDBLK " P ABL(NZ) ERROUT QUIT IF ERROR $ ( P RB TSTSTA TEST STATUS & END REQUEST J P EJECT v P EJECT P IFT FFDEV=1 P* P* P* ORDER 06: WRITE DOCUMENT P* P* PWRTDOC EQU * P
0x1d7120…1d72b4 (2, 345) Dummy {f00=0x0099, f01=0x0190, f02=»L A3,/2000 * P TM A1,A3 DOCUMENT OUT? P RF(Z) WRDO06 NO 6 0 P LDKL A3,/8000 YES.SET BIT 0 (REQUEST ERROR) N . P ORS A3,ECBRC,A8 SET REQUEST ERROR IN R.C. P ABL LENDIS END REQUEST PWRDO05 EQU * * PWRDO06 LDK A3,1 P TM
0x1d72b4…1d7448 Dummy {f00=0x0099, f01=0x0190, f02=»K START OF BLOCK P ABL(NZ) ERROUT JMP IF ERROR , P LD A3,DWTDEV+DWTALN,A6 GET ACTUAL LINE < P RF(NZ) WRDO15 l ( P LDK A3,1 SET UP ECB BUFFER POINTER * P CF A15,GETCHR GET CONTROL CHARACTER P SUK A2,/31 CTRL CHAR=/31 ? , P ABL(NE)
0x1d7448…1d75dc Dummy {f00=0x0099, f01=0x0190, f02=»L A2,CSINFF INPUT FRONT FEED : P LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NO DISPLACEMENT & & P CF A5,SEND SEND INPUT FRONT FEED d P LD A3,DWTDEV+DWTRLN,A6 4 P ST A3,DWTDEV+DWTALN,A6 SET DWTDEV+DWTALN=DWTRLN P 0 PWRDO15 LDKL A2,CSSNV SELEC
0x1d75dc…1d7770 Dummy {f00=0x0099, f01=0x018e, f02=» P CF A5,ENDBLK END OF BLOCK ! P ABL(NZ) ERROUT JMP IF ERROR ! & P* ! J " P* EXAMINE CONTROL CHARACTER ! T P* ! z $ P LDK A3,1 SET ECB BUFFER POINTER ! ( P CF A15,GETCHR GET CONTROL CHARACTER ! & P LD A1,DWTDEV,A6 GET DEVICE STATUS ! ( P ANKL
0x1d7770…1d7904 Dummy {f00=0x0099, f01=0x0190, f02=» ! ~ , PWRT04 LDR A4,A2 SAVE CONTROL CHAR. IN A4 " P LD A2,ECBRL,A8 " 8 P ADK A2,/8 MAX BLOCK SIZE " P P CF A5,STABLK START OF BLOCK " r P ABL(NZ) ERROUT JMP IF ERROR " ( P LDR A2,A4 RESTORE CONT. CHAR. IN A2 " 6 P CM DWTDEV+DWTCO2,A6 CLEAR DOCUMEN
0x1d7904…1d7a98 Dummy {f00=0x0099, f01=0x018e, f02=»D ? " r & P ABL(Z) WRT14 YES, ALLREADY DONE ! # P* # 6 * P RF ONELF1 PRINT AFTER ONE LINE FEED ! # @ P* # n " P* EXECUTE CONTROL CHARACTER # x P* # 2 PWRT03 LD A4,DWTDEV+DWTCO2,A6 GET ACTUAL COLUMN # P RF(Z) WRT05 # & P SUK A4,1 FOR CORRECT
0x1d7a98…1d7c2c Dummy {f00=0x0099, f01=0x018e, f02=» B P SC A4,DWTDEV+DWTACD+2,A6 STORE THE VALUE IN ACTUAL COL. DOC. $ P SRL A4,8 $ J 6 P SC A4,DWTDEV+DWTACD+1,A6 SHIFT FOR CORRECT DIGITS $ P* $ PWRT09 LDKL A2,/8C BLOCK SIZE $ P CF A5,STABLK START OF BLOCK $ P ABL(NZ) ERROUT JMP IF ERROR $
0x1d7c2c…1d7dc0 Dummy {f00=0x0099, f01=0x0190, f02=» P ABL(NZ) ERROUT JMP IF ERROR % P LDKL A2,CSREP REPEAT % ( > P LDKL A3,DWTDEV+DWTACD ACTUAL COLUMN DOCUMENT DISPLACEMENT % F P CF A5,SEND SEND REPEAT % P ABL WRT15 % P* % 2 PTWOLF1 LD A1,DWTDEV+DWTRLN,A6 GET REQ LINE NO % & P CF A5,BINARY
0x1d7dc0…1d7f54 (2, 346) Dummy {f00=0x0099, f01=0x0190, f02=»O % d P CF A5,BINARY & " PTWO SUK A3,1 INCR REQ LINE NO & P LDR A4,A3 & F & P CF A5,KONVER CONV BINARY TO ASCII & X . P ST A4,DWTDEV+DWTRLN,A6 STORE REQ LINE NO & 0 P LDKL A2,CSVPFF VERTICAL POSITION FRONT FEED & > P LDKL A3,DWTDEV+DWTRLN REQUESTED
0x1d7f54…1d80e8 Dummy {f00=0x0099, f01=0x018e, f02=»NE & ^ P RF WRT14 ' P* ' 2 P* REPEAT WRITE REQUEST AT DOCUMENT STATION ' & P* ' PREP1 CF A5,RESREC ' f * P SUK A2,/2B PRINT WITHOUT LINE FEED ? ' P RB(Z) WRT09 YES ' * P LD A1,DWTDEV+DWTLFD,A6 GET INDICATOR ' $ P RF(NZ) WRT15 JMP IF
0x1d80e8…1d827c Dummy {f00=0x0099, f01=0x0190, f02=» ' f P* ( P* ( PWRTCON EQU * ( $ P CF A5,GTSTAT GET DEVICE STATUS ( 0 P LDKL A3,/2000 * ( X P TM A1,A3 END OF PAPER? ( r P RF(Z) WRCO05 NO. ( P ABL ENDIO END REQUEST ( " PWRCO05 LDK A3,1 NOT OPERABLE? ( P TM A1,A3 ( P RF(Z)
0x1d827c…1d8410 Dummy {f00=0x0099, f01=0x0190, f02=» ERROUT JMP IF ERROR ( * P LDKL A2,CSSNV SELECT NATIONAL VERSION ) : P LDKL A3,DWTDEV+DWTPCS PRINTER CHAR. SET DISPLACEMENT ) J , P CF A5,SEND SEND SELECT NATIONAL VERSION ) P CF A5,ENDBLK END OF BLOCK ) P ABL(NZ) ERROUT JMP IF ERROR ) P* ) . P
0x1d8410…1d85a4 Dummy {f00=0x0099, f01=0x0190, f02=»CTER ) p & P LD A1,DWTDEV,A6 GET DEVICE STATUS * ( P ANKL A1,/20 HAS POWER OFF OCCURED ? * 6 P RF(NZ) REP2 YES * b P* * z * P SUK A2,/2B PRINT WITHOUT LINE FEED ? * P RF(Z) WRC03 YES * , PWRC04 LDR A4,A2 SAVE CONTROL CHAR. IN A4 * P LD A2,ECBRL,A
0x1d85a4…1d8738 Dummy {f00=0x0099, f01=0x0190, f02=»T. CHAR. IN A2 * z 2 P CM DWTDEV+DWTCO1,A6 CLEAR PAPER COL. COUNTER + * P SUK A2,5 PRINT AFTER TWO LINE FEED ? + L P RF(Z) TWOLF2 YES + z P* + & P SUK A2,1 PRINT AFTER FORM FEED ? + P RF(Z) FORMF YES + P* + * P RF ONELF2 PRINT AFTER ONE LIN
0x1d8738…1d88cc Dummy {f00=0x0099, f01=0x0190, f02=» * P RF(Z) WRC05 FOR CORRECT NO OF SPACES , P SUK A4,1 , 2 . PWRC05 CF A5,KONVER CONVERT BINARY TO ASCII , D D P SC A2,DWTDEV+DWTACP,A6 STORE THE VALUE IN ACTUAL COL. CONTINOUS , v @ P ST A4,DWTDEV+DWTACP+2,A6 STORE THE VALUE IN ACT. COL. CONT. , P* ,
0x1d88cc…1d8a60 Dummy {f00=0x0099, f01=0x0190, f02=»6 , z , P RF(Z) WRT15 JMP IF NO PRECEIDING SPACES - P LDK A2,/20 SEND SPACE - : P CF A5,OUTPUT - X P ABL(NZ) ERROUT JMP IF ERROR - n P LDKL A2,CSREP REPEAT - < P LDKL A3,DWTDEV+DWTACP ACTUAL COLUMN PAPER DISPLACEMENT - P CF A5,SEND SEND REPEAT
0x1d8a60…1d8bf4 (2, 347) Dummy {f00=0x0099, f01=0x0190, f02=»ELF2 LDK A2,LF SEND LINE FEED - P CF A5,OUTPUT . & P ABL(NZ) ERROUT JMP IF ERROR . < P RF WRT14 . ` P* . r " PFORMF LDK A2,FF SEND FORM FEED . | P CF A5,OUTPUT . P ABL(NZ) ERROUT JMP IF ERROR . P RF WRT14 . P* . 2 P* REPEAT WRIT
0x1d8bf4…1d8d88 Dummy {f00=0x0099, f01=0x018e, f02=» . * P LD A1,DWTDEV+DWTLFD,A6 GET INDICATOR / $ P RF(NZ) WRT15 JMP IF LF/FF DONE / 6 P RB WRC04 / ^ P EJECT / p P* / ~ 2 P* ORDER 06 : THIS PART SENDS THE CHARACTERS / . P* TO DOCUMENT OR CONTINOUS STATIONARY. / P* / 2 PWRT14 IM DWTDE
0x1d8d88…1d8f1c Dummy {f00=0x0099, f01=0x0190, f02=» P LDR A4,A1 BUFFER FINISHED ? 0 P RF(P) WRT20 NO 0 ( . PWRT17 SUK A3,/02 ECB BUFFER POINTER = /02 0 @ P RF(Z) WRT18 YES. 0 r ( P LDK A2,CR NO. SEND CARRIAGE RETURN 0 P CF A5,OUTPUT 0 P ABL(NZ) ERROUT JMP IF ERROR 0 $ PWRT18 CF A5,ENDBLK END
0x1d8f1c…1d90b0 Dummy {f00=0x0099, f01=0x0190, f02=»* 0 P LDR A4,A2 1 P* 1 @ P* EXAMINE CHARACTER AND SEND DEPENDING ON TYPE OF CHARACTER 1 & P* 1 j P 1 t P SUK A4,/20 CHAR < /20? 1 | ( P RB(N) WRT16 YES GET A NEW CHARACTER 1 P SUK A4,/5F CHAR < /7F? 1 P RF(N) WRT25 YES. 1 P SUK A
0x1d90b0…1d9244 Dummy {f00=0x0099, f01=0x0190, f02=»4,ECBRC,A8 1 P RB WRT16 2 PWRT30 LDK A2,/2E 2 $ PWRT25 LDR A4,A1 2 < P CF A5,OUTPUT SEND CHARACTER 2 T P ABL(NZ) ERROUT JMP IF ERROR 2 x $ P LC A2,DWTOR+1,A6 GET DWT INDEX 2 P ANK A2,1 DOCUMENT? 2 P RF(NZ) WRT40 YES 2 . P IM DWTDEV+DWT
0x1d9244…1d93d8 Dummy {f00=0x0099, f01=0x0190, f02=»* 2 . P CM DWTDEV+DWTLFD,A6 CLEAR LF/FF INDICATOR 3 P ABL LENDIS END REQUEST 3 < P EJECT 3 P IFT FFDEV=1 3 j P* 3 ~ P* 3 $ P* ORDER 0B : POSITION DOCUMENT 3 0 P* CONTROL WORD CONTAINS REQUESTED LINE NO 3 P* 3 P* 3 " PPOSDOC
0x1d93d8…1d956c Dummy {f00=0x0099, f01=0x0190, f02=»* 3 P RF(NZ) POS020 YES 4 P LDK A2,/E BLOCK LENGTH 4 & P CF A5,STABLK START OF BLOCK 4 F P ABL(NZ) ERROUT JMP IF ERROR 4 j * P LDKL A2,CSSNV SELECT NATIONAL VERSION 4 , P LDKL A3,DWTDEV+DWTDCS DOCUMENT VERSION 4 P CF A5,SEND SEND SNV 4 P
0x1d956c…1d9700 Dummy {f00=0x0099, f01=0x0190, f02=»Z) POSERR ILLEGAL LINE NUMBER 4 $ P LD A1,DWTDEV+DWTDL,A6 MAX. LINE 5 & * P CF A5,BINARY CONVERT ASCII TO BINARY 5 N " P CWR A4,A3 REQ. LINE>MAX. LINE 5 | P RF(G) POSERR YES 5 P ADK A3,1 CORRECT POSITION 5 P SUR A4,A3 INVERT LINE NO. 5 ( P NGR A4,
0x1d9700…1d9894 (2, 348) Dummy {f00=0x009a, f01=0x0190, f02=»A4,DWTDEV+DWTALN,A6 GET ACTUAL LINE 5 . P RF(NZ) POS030 DOCUMENT ALREADY POSITIONED 6 , PPOS005 EQU * 6 ^ P LDK A2,/6 BLOCK LENGTH 6 r P CF A5,STABLK START OF BLOCK 6 P ABL(NZ) ERROUT JMP IF ERROR 6 $ P LDKL A2,CSINFF INPUT FRONT FEED 6 > P LDKL
0x1d9894…1d9a28 Dummy {f00=0x009a, f01=0x0190, f02=»END OF BLOCK 6 P ABL(NZ) ERROUT JMP IF ERROR 7 P CF A5,GTSTAT GET STATUS 7 8 P LDR A2,A1 GET RETURN CODE 7 X ( P ANKL A2,/2000 PAPER DOCUMENT OUT ? 7 z 8 P RB(NZ) POS005 YES WAIT FOR DOCUMENT TO BE INSERTED 7 . P LD A4,DWTDEV+DWTRLN,A6 GET REQUESTED
0x1d9a28…1d9bbc Dummy {f00=0x009a, f01=0x0190, f02=» 7 x P CF A5,STABLK START OF BLOCK 8 P ABL(NZ) ERROUT JMP IF ERROR 8 , 0 P LDKL A2,CSVPFF VERTICAL POSITION FRONT FEED 8 P > P LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT 8 2 P CF A5,SEND SEND VERTICAL POSITION FRONT FEED 8 P RB POS010 8
0x1d9bbc…1d9d50 Dummy {f00=0x009a, f01=0x0190, f02=»* ORDER 24 : SET DOCUMENT PARAMETERS 8 P* 9 , P* 9 6 $ PDOCPAR EQU * DOCUMENT PARAMETERS 9 @ P LDK A1,0 CLEAR A1 9 h P CF A5,RESREC 9 ( P LD A4,ECBCW,A8 GET NUMBER OF LINES 9 P SRL A4,8 GET LINES 9 $ P RF(Z) DOC010 NO CHANGE OF LINES 9
0x1d9d50…1d9ee4 Dummy {f00=0x009a, f01=0x0190, f02=»RDING TO INDEX 9 r 8 P ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH FOR DOCUMENT : PDOC010 EQU * : R 4 P LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION : f P ANK A4,/FF : 6 P RF(Z) DOC020 NO CHANGE OF NATIONAL CHARACTER SET : P CWK A4,/F INDEX TO BIG :
0x1d9ee4…1da078 Dummy {f00=0x009a, f01=0x0190, f02=»DEV+DWTDCS,A6 SET CHARACTER SET FOR DOCUMENT : PDOC020 EQU * ; 4 P RB ENDIO END REQUEST ; H P XIF ; f P EJECT ; r P* ; P* ; 6 P* ORDER 24 : SET CONTINUOUS STATIONARY PARAMETERS ; P* ; P* ; 6 PCSTPAR EQU * SET PARAMETERS CONTINUOUS
0x1da078…1da20c Dummy {f00=0x009a, f01=0x0190, f02=»S ; ~ $ P RF(Z) CST010 NO CHANGE OF LINES < P CWK A4,/10 INDEX TO BIG < 2 P RB(G) POSERR YES < R * P ADR A4,A4 ADJUST INDEX TO LINE TABLE < l 2 P LD A4,LINNUM,A4 GET LINES ACCORDING TO INDEX < : P ST A4,DWTDEV+DWTPL,A6 SET PAGE LENGTH FOR CONT.STAT. <
0x1da20c…1da3a0 Dummy {f00=0x009a, f01=0x0190, f02=»ELENGTH < v 6 P LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. = & P CF A5,SEND SEND SLECT PAGELENGTH = J P CF A5,ENDBLK END OF BLOCK = t P ABL(NZ) ERROUT JMP IF ERROR = PCST010 EQU * = 4 P LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION = P A
0x1da3a0…1da534 (2, 349) Dummy {f00=0x009a, f01=0x0190, f02=» ADJUST INDEX TO NAT. CHAR. TABLE = 6 P LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. TO INDEX > * > P ST A4,DWTDEV+DWTPCS,A6 SET NAT. CHAR. SET FOR CONT.STAT. > d PCST020 EQU * > P ABL ENDIO END REQUEST > P EJECT > P IFT FFDEV=1 > P* > P* >
0x1da534…1da6c8 Dummy {f00=0x009a, f01=0x0190, f02=»OF BLOCK > | P ABL(NZ) ERROUT JMP IF ERROR ? P CF A5,RESREC ? 4 2 P LDKL A2,CSEJFF CONTROL SEQ. EJECT FRONT FEED ? J P CF A5,SEND SEND SEQUENCE ? P CF A5,ENDBLK END OF BLOCK ? P ABL(NZ) ERROUT JMP IF ERROR ? * P CF A5,GTSTAT GET STATUS FROM PR
0x1da6c8…1da85c Dummy {f00=0x009a, f01=0x0190, f02=»00 REQUEST ERROR ? * P CM DWTDEV+DWTALN,A6 RESET ACTUAL LINE @ . P CM DWTDEV+DWTRLN,A6 RESET REQUESTED LINE @ F P ABL ENDIO END REQUEST @ x P XIF @ P EJECT @ P* @ P* @ P* R C T P @ P* @ : P* RECOVERY ROUTINE REPEATS RUNNING REQUE
0x1da85c…1da9f0 Dummy {f00=0x009a, f01=0x0190, f02=» LDKL A5,DWTSB2 STACK BASE @ P ADR A5,A6 A " P LDK A2,/F BLOCK LENGTH A 4 P CF A5,STABLK START OF BLOCK A T P ABL(NZ) ERROUT JMP IF ERROR A x * P LDKL A2,CSRIS RESET TO INITIAL STATE A , P CF A5,SEND SEND RESET TO INITIAL STATE A 8 P LD A1,DWTDEV+
0x1da9f0…1dab84 Dummy {f00=0x009a, f01=0x0190, f02=» INDICATOR A j P * B 0 P LDKL A4,STDNCV GET STANDARD NAT. CHAR. SET B " * P CF A5,KONVER CONVERT BIANARY TO ASCII B V 2 P ST A4,DWTDEV+DWTDCS,A6 SET CHAR. SET DOCUMENT B 4 P ST A4,DWTDEV+DWTPCS,A6 SET CHAR. SET CONT.STAT. B ( P LDKL A4,PAGLEN STANDA
0x1dab84…1dad18 Dummy {f00=0x009a, f01=0x0190, f02=»SSLPL SELECT PAGELENGTH B 6 P LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. C & P CF A5,SEND SEND SELECT PAGELENGTH C Z 6 P LDKL A4,DOCLEN GET STANDARD PAGE LENGTH DOCUMENT C * P CF A5,KONVER CONVERT BINARY TO ASCII C 4 P ST A4,DWTDEV+DWTDL,A6 SET P
0x1dad18…1daeac Dummy {f00=0x009a, f01=0x0190, f02=»A6 RESET ACTUAL LINE C ~ , P LDKL A1,/20 INDICATE POWER OFF OCCURED D P ORS A1,DWTDEV,A6 D L $ P LD A1,DWTECB,A6 RUNNING REQUEST D f , P ABL(NZ) ACT005 YES , REPEAT THE REQUEST D P ABL LENDIS DISPATCH D P EJECT D P* D P* D P* GTSTAT D
0x1daeac…1db040 Dummy {f00=0x009a, f01=0x018e, f02=»T FROM THE PRINTER D l P* E P* AT EXIT A1 = RETURN CODE E $ P* E F P* E P PGTSTAT EQU * E Z * P CM DWTDEV+DWTRC,A6 RESET RETURN CODE E n P LDK A2,/4 BLOCK LENGTH E P CF A5,STABLK START OF BLOCK E P ABL(NZ) ERROUT JMP IF ERROR E P LDK
0x1db040…1db1d4 (2, 350) Dummy {f00=0x009a, f01=0x0190, f02=» P CF A5,OUTPUT SEND CSI F P ABL(NZ) ERROUT JMP IF ERROR F " P LDK A2,/35 F F P CF A5,OUTPUT SEND /35 F Z P ABL(NZ) ERROUT JMP IF ERROR F x $ P LDK A2,DSR DEVICE STATUS REPORT F P CF A5,OUTPUT SEND DSR F P ABL(NZ) ERROUT JMP IF ERROR F P C
0x1db1d4…1db368 Dummy {f00=0x009a, f01=0x0190, f02=» P ADR A4,A6 =1 G P CF A15,SETIMP SET TIMER =1 G . P DATA ERGP00,TIME RETURN ADDR., TIMEOUT =1 G > ( PGTST05 LDKL A4,TAB GET TABLE ADDRESS G p PGTST10 EQU * G P LDK A3,0 RESET INDEX G * P CF A5,INPUT READ STATUS FROM PRINTER G P ANK A2,/FF
0x1db368…1db4fc Dummy {f00=0x009a, f01=0x0190, f02=»A3 G * P LDKL A3,/3AC0 SHIFT LEFT CIRCULAR A2 H P LC A3,1,A4 A3 TIMES H 8 $ P EXR A3 EXECUT SHIFT INSTRUCTION H T 8 P ORS A2,DWTDEV+DWTRC,A6 SAVE RETURN CODE TEMPORARILY H | P ADK A4,2 INCREMENT ADRESS H ( P RB GTST10 GET NEXT STATUS CHARACTER H PGT
0x1db4fc…1db690 Dummy {f00=0x009a, f01=0x0190, f02=» =1 H l ( P CM* DWTDEV+DWTTP,A6 RESET TIMER =1 I 4 PGTST20 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1 I 8 P RTN A5 I p P EJECT I P* I : P* THIS ROUTINE CONVERTS A BINARY VALUE TO ASCII CODE I P* I P* REGISTERS : I P* A1= WORK REGIS
0x1db690…1db824 Dummy {f00=0x009a, f01=0x0190, f02=» LDK A2,0 CLEAR A2 I P CWK A4,100 VALUE > 100 ? J P RF(L) KONV05 NO J < P SUKL A4,100 J T & P LDKL A2,/100 LEFT BYTE OF A2=X=1 J h * PKONV05 CWK A4,10 ARE THERE ANY TENS ? J P RF(L) KONV04 NO J P SUK A4,10 J 2 P ADK A2,/1 NUMBER OF TENS IN R
0x1db824…1db9b8 Dummy {f00=0x009a, f01=0x0190, f02=» P LDR A1,A2 K P ANKL A1,/FF00 KEEP Y IN A1 K . P ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII K : P ORR A4,A1 YZ IN A1. ASCII K l P RTN A5 K P EJECT K P* K P* RESET RECORVERY K P* K PRESREC EQU * K " P LD A4,DWTDEV,A6 DEVICE ST
0x1db9b8…1dbb4c Dummy {f00=0x009a, f01=0x0190, f02=»RN K ~ P* L P* L P* L P* L ( : P* ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK AND TIMER L 2 P* L p P* INPUT : A1 = RETURN CODE L z P* L PERROUT EQU * L 0 P ANK A1,/1A OUTP. ERR, SOFTW T-OUT, LRC-ERR L P ABL(NZ) RCTP RECOVERY L
0x1dbb4c…1dbce0 Dummy {f00=0x009a, f01=0x018e, f02=»M DWTDEV+DWTTP,A6 RESET TIMER POINTER =1 L P RB ERGP10 M 0 P EJECT M B P* M P P* M Z P* S E N D M d P* M v , P* THIS ROUTINE SENDS AN CONTROL SEQUENCE M P* TO THE PRINTER M P* M P* M P* AT ENTRY : M " P* A2 = CONTROL SEQUENCE
0x1dbce0…1dbe74 (2, 351) Dummy {f00=0x009a, f01=0x0190, f02=» M v P* N P* N P* N $ PSEND EQU * SEND CONTROL SEQUENCE N & 2 P ST A3,DWTDEV+DWTDISP,A6 SAVE DWT-DISPLACEMENT N N 4 P ST A2,DWTDEV+DWTSTR,A6 CONTROL SEQUENCE ADRESS N PSEND10 EQU * N 8 P LD A3,DWTDEV+DWTSTR,A6 GET CONTROL SEQUENCE ADRESS N
0x1dbe74…1dc008 Dummy {f00=0x009a, f01=0x0190, f02=»N N x & P CWK A2,/3000 LINE NO,CHAR.SET,ETC O P RF(E) SEND30 YES O 4 ( P SRL A2,8 PREPARE TO SEND CHARACTER O N P CF A5,OUTPUT SEND CHARACTER O z P ABL(NZ) ERROUT JMP IF ERROR O PSEND20 EQU * O 4 P IM DWTDEV+DWTSTR,A6 INC. CONTROLSEQUENCE ADRESS O
0x1dc008…1dc19c Dummy {f00=0x009a, f01=0x0190, f02=» O t P LCR A2,A3 GET CHARACTER P P CF A5,OUTPUT SEND CHARACTER P ( P ABL(NZ) ERROUT JMP IF ERROR P L 2 P IM DWTDEV+DWTDISP,A6 INC. DISPLACEMENT ADRESS P p P RB SEND20 GET NEXT P PSENDEND EQU * P P RTN A5 P P EJECT P P* P P* P
0x1dc19c…1dc330 Dummy {f00=0x009a, f01=0x0190, f02=» P ~ P* A2= WORK REGISTER Q P* A3= BINARY OUTPUT Q $ P* Q @ P* Q J P* Q T PBINARY SUR A3,A3 CLEAR A3 Q ^ P LDR A2,A1 MAX. LINE ASCII Q P SRL A2,8 Q P SUK A2,/30 Q P ADR A3,A2 Q P ADR A3,A2 Q P SLL A2,3 Q P ADR A3,A2
0x1dc330…1dc4c4 Dummy {f00=0x009a, f01=0x0190, f02=»/3132,/3135,/3138,/3234 Q " P DATA /3235,/3330,/3333,/3335 R " P DATA /3336,/3438,/3530,/3531 R F " P DATA /3630,/3636,/3730,/3732 R l P* R P* R P* R P* R 6 PNCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE R " P DATA /3031,/3032,/3
0x1dc4c4…1dc658 Dummy {f00=0x009a, f01=0x40ba, f02=»MASK TABLE FOR STATUS REPORT FROM PRINTER R P DATA /C0,/C0,/C0,/2CC * S 2 P DATA /2CF,/4CB,/C0,/C0 * S T P DATA /C0,/C0,/C0,/C0 S v P DATA /C0,/C0 S P END S @ S NCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE R " P DATA /3031,/3032,/3
0x1dc658…1dc7ec Dummy {f00=0x009a, f01=0x4008, f02=»@ T @
0x1dc7ec…1dc980 Dummy {f00=0x009a, f01=0x2008, f02=» U * 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
0x1dc980…1dcb14 (2, 352) Dummy {f00=0x009b, f01=0x0190, f02=»
[…0x7…]
0x1dd620…1dd7b4 (2, 353) Opaque[0x194]
0x1dd7b4…1dd948 # DirEnt {nam=»DRPL01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1368, f03=0x0000}
0x1dd7b4…1dd948 IdxSect {
0x1dd7b4…1dd948 f00 = 0x009b // 0x1dd7b4 @0x0
0x1dd7b4…1dd948 f01 = 0x0062 // 0x1dd7b6 @0x2
0x1dd7b4…1dd948 gno = [ // 0x1dd7b8 @0x4
0x1dd7b4…1dd948 [0x00]: C0x009b.0x1.0
0x1dd7b4…1dd948 [0x01]: C0x009b.0x2.0
0x1dd7b4…1dd948 [0x02]: C0x009b.0x3.0
0x1dd7b4…1dd948 [0x03]: C0x009c.0x0.0
0x1dd7b4…1dd948 [0x04]: C0x009c.0x1.0
0x1dd7b4…1dd948 [0x05]: C0x009c.0x2.0
0x1dd7b4…1dd948 [0x06]: C0x009c.0x3.0
0x1dd7b4…1dd948 [0x07]: C0x009d.0x0.0
0x1dd7b4…1dd948 [0x08]: C0x009d.0x1.0
0x1dd7b4…1dd948 [0x09]: C0x009d.0x2.0
0x1dd7b4…1dd948 [0x0a]: C0x009d.0x3.0
0x1dd7b4…1dd948 [0x0b]: C0x009e.0x0.0
0x1dd7b4…1dd948 [0x0c]: C0x009e.0x1.0
0x1dd7b4…1dd948 [0x0d]: C0x009e.0x2.0
0x1dd7b4…1dd948 [0x0e]: C0x009e.0x3.0
0x1dd7b4…1dd948 [0x0f]: C0x009f.0x0.0
0x1dd7b4…1dd948 [0x10]: C0x009f.0x1.0
0x1dd7b4…1dd948 [0x11]: C0x009f.0x2.0
0x1dd7b4…1dd948 [0x12]: C0x009f.0x3.0
0x1dd7b4…1dd948 [0x13]: C0x00a0.0x0.0
0x1dd7b4…1dd948 [0x14]: C0x00a0.0x1.0
0x1dd7b4…1dd948 [0x15]: C0x00a0.0x2.0
0x1dd7b4…1dd948 [0x16]: C0x00a0.0x3.0
0x1dd7b4…1dd948 [0x17]: C0x00a1.0x0.0
0x1dd7b4…1dd948 [0x18]: C0x00a1.0x1.0
0x1dd7b4…1dd948 [0x19]: C0x00a1.0x2.0
0x1dd7b4…1dd948 [0x1a]: C0x00a1.0x3.0
0x1dd7b4…1dd948 [0x1b]: C0x00a2.0x0.0
0x1dd7b4…1dd948 [0x1c]: C0x00a2.0x1.0
0x1dd7b4…1dd948 [0x1d]: C0x00a2.0x2.0
0x1dd7b4…1dd948 [0x1e]: C0x00a2.0x3.0
0x1dd7b4…1dd948 [0x1f]: C0x00a3.0x0.0
0x1dd7b4…1dd948 [0x20]: C0x00a3.0x1.0
0x1dd7b4…1dd948 [0x21]: C0x00a3.0x2.0
0x1dd7b4…1dd948 [0x22]: C0x00a3.0x3.0
0x1dd7b4…1dd948 [0x23]: C0x00a4.0x0.0
0x1dd7b4…1dd948 [0x24]: C0x00a4.0x1.0
0x1dd7b4…1dd948 [0x25]: C0x00a4.0x2.0
0x1dd7b4…1dd948 [0x26]: C0x00a4.0x3.0
0x1dd7b4…1dd948 [0x27]: C0x00a5.0x0.0
0x1dd7b4…1dd948 [0x28]: C0x00a5.0x1.0
0x1dd7b4…1dd948 [0x29]: C0x00a5.0x2.0
0x1dd7b4…1dd948 [0x2a]: C0x00a5.0x3.0
0x1dd7b4…1dd948 [0x2b]: C0x00a6.0x0.0
0x1dd7b4…1dd948 [0x2c]: C0x00a6.0x1.0
0x1dd7b4…1dd948 [0x2d]: C0x00a6.0x2.0
0x1dd7b4…1dd948 [0x2e]: C0x00a6.0x3.0
0x1dd7b4…1dd948 [0x2f]: C0x0167.0x0.0
0x1dd7b4…1dd948 [0x30]: C0x0167.0x1.0
0x1dd7b4…1dd948 ]
0x1dd7b4…1dd948 }
0x1dd948…1ddadc Dummy {f00=0x009b, f01=0x0190, f02=» 2 P IDENT DRPL01 REL 11.1 82-08-19 870105041110 P : P =17,BLOCKING IMPROVED B P REL 11.1 82-08-13 b & P =16,CHANGED BLOCKING OF OUTPUT ~ P REL 11.1 82-07-08 P =15,COMPARE ADDR. CORR. P REL 11.1 82-02-12 P =14
0x1ddadc…1ddc70 Dummy {f00=0x009b, f01=0x0190, f02=»SI x P REL 11.0 81-08-27 P =11,CH. OF PARAMETERS & P REL 11.0 81-08-10 F P =10,CORR. OF RWSI b P REL 11.0 81-08-10 ~ " P =9,CORR. OF INTERRUPT ENTRY P REL 11.0 81-06-24 " P =8,OPEN LINE PARAM. CHANGED P REL
0x1ddc70…1dde04 Dummy {f00=0x009b, f01=0x0190, f02=»1.0 81-05-27 P =5,CORR. OF RWSI-CWT:S , $ P OPEN LINE PROC. & COND. ASS. 8 P REL 11.0 81-05-22 ` P =4,CORR. OF CWT-DISPL. | P REL 11.0 81-05-20 P =3,CORR. OF TIMER NAME P REL 11.0 81-04-29 & P =2,CORR. OF O
0x1dde04…1ddf98 Dummy {f00=0x009b, f01=0x0190, f02=»M. AREA EXPANDED | P PRR 11.0 80-11-19 P EJECT 4 P* B P* L P* V P* ` @ P************************************************************ j P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 6 P* DRPL01 = DRIVER PROCESSO
0x1ddf98…1de12c Dummy {f00=0x009b, f01=0x0190, f02=»******************************** t P* ( P* 2 2 P* THIS PROGRAM HANDLES I/O OPERATIONS ON THE < 0 P* PROCESSOR FOR LINE CONTROL (PLC). IT IS r 0 P* CALLED FROM THE TERMINAL DEVICE DRIVERS. P* 2 P* INPUT AND OUTPUT OF CHARACTERS F
0x1de12c…1de2c0 Dummy {f00=0x009b, f01=0x018e, f02=»IN DATA PACKETS ARE HANDLED BY THIS DRIVER. P* 4 P EJECT > P* L : P* THE PROGRAM IS DIVIDED INTO A NUMBER OF SECTIONS. V 4 P* SECTIONS CONTAINING PROGRAM CODE ARE DIVIDED 2 P* INTO ROUTINES. THE ROUTINES ARE LISTED AT 4 P* BE
0x1de2c0…1de454 (2, 354) Dummy {f00=0x009b, f01=0x0190, f02=» & P* ENTRIES DECLARE ENTRY POINTS . P* EXTERNALS DECLARE EXTERNAL REFERENCES 2 6 P* CONDITION SET CONDITIONAL ASSEMBLY PARAMETERS d & P* CONSTANTS SET CONSTANT VALUES P* DATA DATA AREAS P* 0 P* REQUEST DEVICE DRIVER
0x1de454…1de5e8 Dummy {f00=0x009b, f01=0x0190, f02=» LOCAL PLC DISPATCHER ( P* ROUTINE COMMON SERVICE ROUTINES , P* SUBROUTIN COMMON SERVICE SUBROUTINES L * P* TBUFF BUFFER HANDLING SUBROUTINES | P* P EJECT P* P*********** P* ENTRIES * P*********** P
0x1de5e8…1de77c Dummy {f00=0x009b, f01=0x0190, f02=»NTRY PLCHRO CHARACTER OUTPUT , P ENTRY PLENBL DEFINE END OF OUTPUT BLOCK $ " P ENTRY PLDISP LOCAL DISPATCHER T " P ENTRY PRCHRI CHR INP REMOTE z , P ENTRY PRSTBL START OUTP BLOCK, REMOTE $ P ENTRY PRCHRO CHR OUTP. REMOTE * P ENTRY PRENBL EN
0x1de77c…1de910 Dummy {f00=0x009b, f01=0x0190, f02=» $ P ENTRY GETDWT GET DWT SUBROUTINE " P ENTRY PLCLOG LOGG POINTER =11 , & P ENTRY TIMACT INACTIVITY TIMER =11 R 2 P ENTRY POLRTL POLL FREQ. & NO OF RETRANSM =11 | , P ENTRY POLRTR POLL FR. & NO OF RETR. =11 P EJECT P* P* P*
0x1de910…1deaa4 Dummy {f00=0x009b, f01=0x0190, f02=»RY IHPL04 PLC NUMBER 4 P* & P ENTRY IHPR01 PLC NUMBER 5,REMOTE ( & P ENTRY IHPR02 6,REMOTE R & P ENTRY IHPR03 7,REMOTE | & P ENTRY IHPR04 8,REMOTE P* P* RECOVERY AT TC POWER UP P* * P
0x1deaa4…1dec38 Dummy {f00=0x009b, f01=0x0190, f02=»* P* P* TOSS MONITOR P* . P* ROUTINES 8 P EXTRN TDISP TOSS DISPATCHER P " P EXTRN QMJOB QUEUE MONITOR JOB t & P EXTRN MEXIT EXIT FROM MONITOR JOB $ P EXTRN GETBLK GET MONITOR BLOCK & P EXTRN FREBLK RETURN MONITOR
0x1dec38…1dedcc Dummy {f00=0x009b, f01=0x0190, f02=»FAIL FLAG | , P EXTRN INTSAV LATEST INTERRUPT SAVE AREA P* B P* L P* DRND01 SERVICE ROUTINES V P* z * P EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT , P EXTRN NDGET8 GET A3-A5, A7-A8 FROM DWT 2 P EXTRN NDREWS CALL RECOVERY FOR ALL DE
0x1dedcc…1def60 Dummy {f00=0x009b, f01=0x0190, f02=»ESS v P* P EJECT P* $ 4 P* DRND01 ROUTINES FOR RETURN TO DEVICE DRIVER . P* f " P EXTRN NDREPO POP, OK & RETURN p P EXTRN NDRETO OK & RETURN P EXTRN NDREP POP & RETURN P EXTRN NDRET RETURN P* P*
0x1def60…1df0f4 (2, 355) Dummy {f00=0x009b, f01=0x0190, f02=»RIGHT BYTE) | . P EXTRN DWTADR DRIVER ADDRESS BLOCK ADDRESS P EXTRN DWTOTQ QUEUE LINK F 0 P EXTRN DWTCP2 SECOND CHANNEL PARAMETER WORD f . P EXTRN DWTLD1 PLC INPUT/OUTPUT BUFFER ADDR , P EXTRN DWTLD2 PLC FLOW CONTROL COUNTERS 0 P EXTRN DWTTB
0x1df0f4…1df288 Dummy {f00=0x009b, f01=0x018e, f02=»RAM f ( P EXTRN DWTWAT WAIT/ACT INDICATOR =16 P* 8 P EJECT B P* P P* WORK STATION TABLES Z P* z P EXTRN INTPL1 PLC 1 P EXTRN INTPL2 PLC 2 P EXTRN INTPL3 PLC 3 P EXTRN INTPL4 PLC 4 P* P EXTRN INT
0x1df288…1df41c Dummy {f00=0x009b, f01=0x0190, f02=» P* 6 P EXTRN INTADR INTERRUPT ADDR IN DRIVER ADDR BLOCK P* H P EJECT R P* ` P************************ j P* CONDITIONAL ASSEMBLY * P************************ P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INS
0x1df41c…1df5b0 Dummy {f00=0x009b, f01=0x018e, f02=»BER OF LOCAL PLC:S ACTUALLY CONNECTED (0-4) | P* 4 PX:A EQU 1 > PPLCNRL EQU X:A P P* f D P* PLCNRR DEFINES THE NUMBER OF REMOTE PLC:S ACTUALLY CONN. (0-4) p P* PX:B EQU 0 PPLCNRR EQU 1 P* P* P EJECT
0x1df5b0…1df744 Dummy {f00=0x009b, f01=0x0190, f02=» , P* LEVEL 3 FLOW CONTROL WINDOW SIZE (1-7) PWINDOW EQU 2 4 P* H 4 P* MAXIMAL NUMBER OF WORK STATIONS PER PLC (1-32) R PMAXWS EQU 32 P* > P* DELAY BEFORE EXECUTING "TEST CU" AT RESTART. (IN 100 MS) PSTADLY EQU 100 10 SECONDS
0x1df744…1df8d8 Dummy {f00=0x009b, f01=0x0190, f02=»OF GENERAL READ BUFFER IN WORDS (1-128) z PGRBUFU EQU 70 0 P* F ( P* INACTIVITY TIMER (MINUTES) P PTIMACT EQU 3 U =8 | P* J P* POLLING FREQUENCY (L BYTE) & NUMBER OF RETRANSMISSIONS (R BYTE) =11 PPOLRTL EQU /1805 LOCAL =11
0x1df8d8…1dfa6c Dummy {f00=0x009b, f01=0x0190, f02=» ~ P* PPLCTST EQU 0 P* & P* 0 D P* A TEST VERSION OF THE DRIVER IS OBTAINED BY SETTING UTTEST><0 : @ P* IF UTTEST=1 THE TEST CODE IS INCLUDUD BUT TRAP IS NOT USED < P* IF UTTEST=2 THE TEST CODE IS INCLUDED AND TRAP IS USED P*
0x1dfa6c…1dfc00 Dummy {f00=0x009b, f01=0x0190, f02=»* PLOBUFN EQU 3 P* P* ( 6 P* LOBUFU IS THE LENGTH OF THE USER PART OF A LONG 2 $ P* OUTPUT BUFFER IN WORDS (1-128) l P* PLOBUFU EQU 128 U =6,=16 P* P EJECT P* " P* HARDWARE INTERRUPT LEVELS 0 P*
0x1dfc00…1dfd94 (2, 356) Dummy {f00=0x009c, f01=0x0190, f02=»C NUMBER 2 PINTLV2 EQU 24 PLC NUMBER 3 PINTLV3 EQU 25 PLC NUMBER 4 4 & PINTRV0 EQU 18 PLC NUMBER 5, REMOTE V & PINTRV1 EQU 19 6, REMOTE & PINTRV2 EQU 20 7, REMOTE & PINTRV3 EQU 21 8, REMOTE P* & P
0x1dfd94…1dff28 Dummy {f00=0x009c, f01=0x0190, f02=»PLCDA3 EQU /27 PLC 4 PPLCDA4 EQU /3A PLC 5 PPLCDA5 EQU /3B PLC 6 8 PPLCDA6 EQU /2A PLC 7 T PPLCDA7 EQU /2B PLC 8 p P* P EJECT P* * P* BUFFER AREA PARAMETER DEFINITION P* . PHEADLW EQU 4 BUFFER HEADER LENGTH
0x1dff28…1e00bc Dummy {f00=0x009c, f01=0x0190, f02=» LONG OUTPUT BUFFERS : PLOBUF1 EQU SYSTLW+LOBUFU LENGTH OF ONE BUFFER (WORDS) & PLOBUF2 EQU LOBUF1+LOBUF1 2 BUFFERS ^ PLOBUF3 EQU LOBUF2+LOBUF1 PLOBUF4 EQU LOBUF3+LOBUF1 PLOBUF5 EQU LOBUF4+LOBUF1 PLOBUF6 EQU LOBUF5+LOBUF1 " P
0x1e00bc…1e0250 Dummy {f00=0x009c, f01=0x0190, f02=»F1 . =17 z " PLOBU11 EQU LOBU10+LOBUF1 . =17 " PLOBU12 EQU LOBU11+LOBUF1 . =17 6 " PLOBU13 EQU LOBU12+LOBUF1 . =17 " PLOBU14 EQU LOBU13+LOBUF1 . =17 " PLOBU15 EQU LOBU14+LOBUF1 . =17 " PLOBU16 EQU LOBU15+LOBUF1 . =17 " PLOBU17 EQU LOBU16+LO
0x1e0250…1e03e4 Dummy {f00=0x009c, f01=0x0190, f02=»21 EQU LOBU20+LOBUF1 . =17 " PLOBU22 EQU LOBU21+LOBUF1 . =17 " " PLOBU23 EQU LOBU22+LOBUF1 . =17 H " PLOBU24 EQU LOBU23+LOBUF1 . =17 n " PLOBU25 EQU LOBU24+LOBUF1 . =17 " PLOBU26 EQU LOBU25+LOBUF1 . =17 " PLOBU27 EQU LOBU26+LOBUF1 . =17 " PLO
0x1e03e4…1e0578 Dummy {f00=0x009c, f01=0x0190, f02=» . =17 x " PLOBU32 EQU LOBU31+LOBUF1 . =17 P IFT LOBUFN=1 4 4 PLOBUFS EQU LOBUF1 LENGTH OF BUFFER AREA (WORDS) J P XIF P IFT LOBUFN=2 4 PLOBUFS EQU LOBUF2 LENGTH OF BUFFER AREA (WORDS) P XIF P IFT LOBUFN=3 4 PLOBUFS EQU
0x1e0578…1e070c Dummy {f00=0x009c, f01=0x0190, f02=» XIF P IFT LOBUFN=5 4 PLOBUFS EQU LOBUF5 LENGTH OF BUFFER AREA (WORDS) " P XIF Z P IFT LOBUFN=6 f 4 PLOBUFS EQU LOBUF6 LENGTH OF BUFFER AREA (WORDS) | P XIF P IFT LOBUFN=7 . =17 PLOBUFS EQU LOBUF7 . =17 P XIF P
0x1e070c…1e08a0 Dummy {f00=0x009c, f01=0x0190, f02=» P IFT LOBUFN=10 . =17 PLOBUFS EQU LOBU10 . =17 $ P XIF D P IFT LOBUFN=11 . =17 P PLOBUFS EQU LOBU11 . =17 l P XIF P IFT LOBUFN=12 . =17 PLOBUFS EQU LOBU12 . =17 P XIF P IFT LOBUFN=13 . =17 PLOBUFS EQU L
0x1e08a0…1e0a34 (2, 357) Dummy {f00=0x009c, f01=0x0190, f02=»FS EQU LOBU15 . =17 P XIF P IFT LOBUFN=16 . =17 ( PLOBUFS EQU LOBU16 . =17 D P XIF d P IFT LOBUFN=17 . =17 p PLOBUFS EQU LOBU17 . =17 P XIF P IFT LOBUFN=18 . =17 PLOBUFS EQU LOBU18 . =17 P XIF P IFT LOB
0x1e0a34…1e0bc8 Dummy {f00=0x009c, f01=0x0190, f02=» IFT LOBUFN=21 . =17 PLOBUFS EQU LOBU21 . =17 P XIF < P IFT LOBUFN=22 . =17 H PLOBUFS EQU LOBU22 . =17 d P XIF P IFT LOBUFN=23 .17 PLOBUFS EQU LOBU23 . =17 P XIF P IFT LOBUFN=24 . =17 PLOBUFS EQU LOBU24 . =1
0x1e0bc8…1e0d5c Dummy {f00=0x009c, f01=0x0190, f02=»U26 . =17 P XIF P IFT LOBUFN=27 . =17 PLOBUFS EQU LOBU27 . =17 : P XIF Z P IFT LOBUFN=28 . =17 f PLOBUFS EQU LOBU28 . =17 P XIF P IFT LOBUFN=29 . =17 PLOBUFS EQU LOBU29 . =17 P XIF P IFT LOBUFN=30 . =
0x1e0d5c…1e0ef0 Dummy {f00=0x009c, f01=0x018e, f02=»N=32 . =17 PLOBUFS EQU LOBU32 . =17 ! P XIF ! 2 P* ! > P EJECT ! H P* ! V P* SHORT OUTPUT BUFFERS ! ` : PSOBUF1 EQU SYSTLW+SOBUFU LENGTH OF ONE BUFFER (WORDS) ! & PSOBUF2 EQU SOBUF1+SOBUF1 2 BUFFERS ! PSOBUF4 EQU SOBUF2+SOBUF2 !
0x1e0ef0…1e1084 Dummy {f00=0x009c, f01=0x018e, f02=» : PGRBUF1 EQU SYSTLW+GRBUFU LENGTH OF ONE BUFFER (WORDS) " PGRBUF2 EQU GRBUF1+GRBUF1 " B 4 PGRBUFS EQU GRBUF2 LENGTH OF BUFFER AREA (WORDS) " b P* " 2 P* LENGTHS OF USER PART OF BUFFERS (BYTES) " 2 PSOBUFL EQU SOBUFU+SOBUFU SHORT OUTPUT BUFFERS
0x1e1084…1e1218 Dummy {f00=0x009c, f01=0x0190, f02=» P* # 0 P* CONTROLLER COMMAND RECORD (CCR) LAYOUT # P* # B ( PCCRDLS EQU 0 DATA LINK STATION INDEX # L PCCRCMD EQU 1 COMMAND CODE # x " PCCRSU1 EQU 2 SUBCOMMAND BYTE 1 # " PCCRSU2 EQU 3 SUBCOMMAND BYTE 2 # PCCRSUB EQU 2 SUBCOMMAND WORD #
0x1e1218…1e13ac Dummy {f00=0x009c, f01=0x0190, f02=»ER LENGTH (BYTES) # ~ 6 PCCRC1B EQU 12 DATA CHAINING CTRL & MSB BUFFER ADDR $ PCCRBUF EQU 14 BUFFER ADDRESS $ T P* $ x P* $ P* BUFFER LAYOUT $ P* $ P* HEADER LENGTH $ , PBUFHLN EQU HEADLW+HEADLW LENGTH (BYTES) $ P* HEADE
0x1e13ac…1e1540 Dummy {f00=0x009c, f01=0x0190, f02=»IX EQU -2 BYTE INDEX $ $ P* X25 CONTROL FIELD LAYOUT % . PX25LGN EQU 0 LOGICAL CHANNEL GROUP NUMBER % D ( PX25LCN EQU 1 LOGICAL CHANNEL NUMBER % v * PX25FLW EQU 2 FLOW CONTROL INFORMATION % $ PX25DAT EQU 3 START OF USER DATA % P* % P EJECT
0x1e1540…1e16d4 (2, 358) Dummy {f00=0x009c, f01=0x0190, f02=»EQU /85 OPEN DLS % & PCMDPS EQU /84 GET LINE STATISTICS & $ PCMDDS EQU /83 GET DLS STATISTICS & B $ PCMDRM EQU /87 READ LOCAL MEMORY & j PCMDSW EQU /40 STANDARD WRITE & PCMDFW EQU /41 FAST WRITE & PCMDGR EQU /20 GENERAL READ & P* & P* &
0x1e16d4…1e1868 Dummy {f00=0x009c, f01=0x0190, f02=»ORDRM EQU 3 READ LOCAL MEMORY & P* ' & P* ' 0 P* MESSAGE TYPES ' : P* ' T & PTYERR EQU 0 ILLEGAL TYPE OR ERROR ' ^ 2 PTYNFLO EQU 2 DATA PACKET WITH NO FLOW CONTROL ' & PTYSTAT EQU 4 DEVICE STATUS MESSAGE ' $ PTYDATA EQU 6 NORMAL DATA PACKET
0x1e1868…1e19fc Dummy {f00=0x009c, f01=0x0190, f02=» P EJECT ( P* ( " P* DWT STATUS FLAGS (DWTST) ( P* ( B $ PDWFBSY EQU /8000 DEVICE NOT BUSY ( L PDWFECH EQU /2000 ECHO MODE ( t $ PDWFINP EQU /0020 INPUT REQUESTED ( * PDWFRES EQU /0008 RESET SEQUENCE ACTIVE ( , PDWFAK3 EQU /0004 WAITING FOR
0x1e19fc…1e1b90 Dummy {f00=0x009c, f01=0x0190, f02=»T FOR LEVEL 3 ACK ( | P* ) P* ) $ " P* PLC STATUS FLAGS (CCRSTA) ) . P* ) T " PSTANOC EQU /0001 NO CONNECTION ) ^ PSTALIR EQU /0004 LINK RESET ) & PSTADNO EQU /1000 DCE NOT OPERABLE ) " PSTAE1 EQU STANOC+STALIR DUMMY ) 2 PSTAERR EQU STAE1
0x1e1b90…1e1d24 Dummy {f00=0x009c, f01=0x0190, f02=» EQU /0100 POLLING STOPPED ) 0 PSTACOM EQU /0080 COMMUNICATION REESTABLISHED * " $ PSTASEQ EQU /0010 SEQUENCE ERROR * V $ PSTAILL EQU /0008 ILLEGAL LENGTH * ~ PSTALER EQU /0002 LINK ERROR * P* * P EJECT * P* * " P* WORK STATION STATUS FLA
0x1e1d24…1e1eb8 Dummy {f00=0x009c, f01=0x0190, f02=»SKPL EQU /0F PLC NUMBER (0-3 USED) * 2 PMASKWS EQU /3F WORK STATION NUMBER (1-32 USED) + * . PMASKLC EQU /3F LOGICAL CHANNEL (0-7 USED) + ` P* + P* + P* RETURN CODES + P* + P* AT REQUEST RETURN + " PNOTOPR EQU /0001 NOT OPERABLE
0x1e1eb8…1e204c Dummy {f00=0x009c, f01=0x0190, f02=»OWER UP + | ( PRESECP EQU /0002 SECONDARY POWER UP , PRELINE EQU /0004 LINK ERROR , < P* , ` P* , j P* MISCELLANEOUS , t P* , * PPLCERR EQU /F1 SOP ERROR CODE AT TRAP , 0 PCIDINT EQU 8 OFFSET TO INTERRUPT DESCRIPTOR , 2 PMAXFR EQU 4 MA
0x1e204c…1e21e0 Dummy {f00=0x009c, f01=0x0190, f02=» , P* DATA AREAS * - P************** - P* - 4 P* CWT ADDRESS TABLE - > P* - PCWTPLC EQU * - f PTABCWT EQU * - z P IFF PLCNRL=0 - " P DATA PL0CWT CWT FOR PLC NR 1 - P IFF PLCNRL=1 - " P DATA PL1CWT CWT FOR PLC NR 2 - P I
0x1e21e0…1e2374 (2, 359) Dummy {f00=0x009c, f01=0x018e, f02=» P IFF PLCNRL=4 . " P DATA 0 PLC NR 4 NOT CONNECTED . P IFF PLCNRL=3 . @ " P DATA 0 PLC NR 3 NOT CONNECTED . V P IFF PLCNRL=2 . | " P DATA 0 PLC NR 2 NOT CONNECTED . P IFF PLCNRL=1 =5 . & P DATA 0 PLC NR 1 NOT CONNECTED =5 . P XIF . P
0x1e2374…1e2508 Dummy {f00=0x009c, f01=0x018e, f02=» . j P IFF PLCNRR=2 / ( P DATA PR3CWT CWT FOR PLC NR. 7, REM. / P IFF PLCNRR=3 / J ( P DATA PR4CWT CWT FOR PLC NR. 8, REM. / ` P XIF / P* / P IFF PLCNRR=4 / " P DATA 0 PLC NR 8 NOT CONNECTED / P IFF PLCNRR=3 / " P DATA 0 PLC NR 7 NOT
0x1e2508…1e269c Dummy {f00=0x009c, f01=0x0190, f02=» P XIF 0 P* 0 P EJECT 0 P* 0 ( P* 0 2 POPARR1 EQU * 0 < P IFF PLCNRR=0 U =5 0 P P DATA OPNR10 LINE 0 0 j P DATA OPNR11 LINE 1 0 P DATA OPNR12 LINE 2 0 P DATA OPNR13 LINE 3 0 P XIF 0 POPARR2 EQU * 0 P IFF PLCNRR=0
0x1e269c…1e2830 Dummy {f00=0x009c, f01=0x0190, f02=»INE 3 0 P XIF 1 POPARR3 EQU * 1 P IFF PLCNRR=0 U =5 1 . P IFF PLCNRR=1 U =5 1 H P IFF PLCNRR=2 U =5 1 b P DATA OPNR30 LINE 0 1 | P DATA OPNR31 LINE 1 1 P DATA OPNR32 LINE 2 1 P DATA OPNR33 LINE 3 1 P XIF 1 POPARR4 EQU * 1
0x1e2830…1e29c4 Dummy {f00=0x009c, f01=0x0190, f02=» DATA OPNR41 LINE 1 1 P DATA OPNR42 LINE 2 2 P DATA OPNR43 LINE 3 2 8 P XIF 2 T P* 2 ` POPARL1 EQU * U =5 2 j P DATA OPNL10 LOCAL PLC 1 =5 2 POPARL2 EQU * U =5 2 P DATA OPNL20 LOCAL PLC 2 =5 2 POPARL3 EQU * U =5 2 P DATA OP
0x1e29c4…1e2b58 Dummy {f00=0x009c, f01=0x0190, f02=»AREAS, LOCAL 2 z P* 3 P* STANDARD AREAS : 3 P* PRIMARY STATION 3 : P* FULL DUPLEX 3 T P* 96000 BITS/SEC 3 j P* NO NRZI ENCODING 3 P* POLLING 24HZ U =8 3 P* 5 RETRANSMISSIONS 3 P* 3 MIN. TIME OUT 3 P* 3 P* 3 $ POPNL40
0x1e2b58…1e2cec Dummy {f00=0x009c, f01=0x0190, f02=»000,POLRTL,TIMACT,/0120,0 =8,=11 3 P XIF 4 ( $ POPNL30 EQU * LOCAL PLC 3, LINE 0 4 4 P IFF PLCNRL=0 4 P IFF PLCNRL=1 4 r P IFF PLCNRL=2 4 2 P DATA /0101,/A000,POLRTL,TIMACT,/0120,0 =8,=11 4 P XIF 4 $ POPNL20 EQU * LOCAL PLC 2, LINE 0 4 P
0x1e2cec…1e2e80 Dummy {f00=0x009c, f01=0x0190, f02=»LINE 0 4 v P IFF PLCNRL=0 5 2 P DATA /0101,/A000,POLRTL,TIMACT,/0120,0 =8,=11 5 $ P XIF 5 Z P* 5 f ( P* END OF LOCAL LINE PARAMETER AREAS 5 p P* 5 P EJECT 5 P* 5 ( P* OPEN LINE PARAMETER AREAS, REMOTE 5 P* 5 P* STANDARD AREAS :
0x1e2e80…1e3014 (2, 360) Dummy {f00=0x009d, f01=0x0190, f02=»ANSMISSIONS 5 P* 5 MIN. TIME OUT 6 P* 6 . P* 6 8 P* REMOTE PLC 4 6 B POPNR40 EQU * LINE 0 6 X P IFF PLCNRR=0 6 t P IFF PLCNRR=1 6 P IFF PLCNRR=2 6 P IFF PLCNRR=3 6 0 P DATA /0103,/0400,POLRTR,TIMACT,/0108,0 =11 6 P XIF 6
0x1e3014…1e31a8 Dummy {f00=0x009d, f01=0x0190, f02=»0,POLRTR,TIMACT,/0908,0 =11 6 P XIF 7 $ POPNR42 EQU * LINE 2 7 0 P IFF PLCNRR=0 7 L P IFF PLCNRR=1 7 b P IFF PLCNRR=2 7 x P IFF PLCNRR=3 7 4 P DATA /0103,/0400,POLRTR,TIMACT,/1108,0 =10,=11 7 P XIF 7 POPNR43 EQU * LINE 3 7 P IFF
0x1e31a8…1e333c Dummy {f00=0x009d, f01=0x0190, f02=» P XIF 8 P* REMOTE PLC 3 8 POPNR30 EQU * LINE 0 8 & P IFF PLCNRR=0 8 B P IFF PLCNRR=1 8 X P IFF PLCNRR=2 8 n 0 P DATA /0103,/0400,POLRTR,TIMACT,/0108,0 =11 8 P XIF 8 POPNR31 EQU * LINE 1 8 P IFF PLCNRR=0 8 P IFF PLCNRR=1 8
0x1e333c…1e34d0 Dummy {f00=0x009d, f01=0x0190, f02=» P IFF PLCNRR=1 9 P IFF PLCNRR=2 9 4 P DATA /0103,/0400,POLRTR,TIMACT,/1108,0 =10,=11 9 0 P XIF 9 h POPNR33 EQU * LINE 3 9 t P IFF PLCNRR=0 9 P IFF PLCNRR=1 9 P IFF PLCNRR=2 9 4 P DATA /0103,/0400,POLRTR,TIMACT,/1908,0 =10,=11 9
0x1e34d0…1e3664 Dummy {f00=0x009d, f01=0x0190, f02=»POLRTR,TIMACT,/0108,0 =11 9 ~ P XIF : " POPNR21 EQU * LINE 1 : . P IFF PLCNRR=0 : J P IFF PLCNRR=1 : ` 0 P DATA /0103,/0400,POLRTR,TIMACT,/0908,0 =11 : v P XIF : POPNR22 EQU * LINE 2 : P IFF PLCNRR=0 : P IFF PLCNRR=1 : 4 P DATA /010
0x1e3664…1e37f8 Dummy {f00=0x009d, f01=0x0190, f02=»/0103,/0400,POLRTR,TIMACT,/1908,0 =10,=11 : P XIF ; 2 P* ; > P* REMOTE PLC 1 ; H POPNR10 EQU * LINE 0 ; ^ P IFF PLCNRR=0 ; z 0 P DATA /0103,/0400,POLRTR,TIMACT,/0108,0 =11 ; P XIF ; POPNR11 EQU * LINE 1 ; P IFF PLCNRR=0 ; 0 P DATA
0x1e37f8…1e398c Dummy {f00=0x009d, f01=0x018e, f02=»ACT,/1108,0 =10,=11 ; t P XIF < POPNR13 EQU * LINE 3 < ( P IFF PLCNRR=0 < D 4 P DATA /0103,/0400,POLRTR,TIMACT,/1908,0 =10,=11 < Z P XIF < ( P* END OF REMOTE LINE PARAMETER AREAS < P* < P* < , PPLCPFP DATA 0 PLC LOCAL POWER FAIL FLAG <
0x1e398c…1e3b20 Dummy {f00=0x009d, f01=0x0190, f02=» P* = P* = " P* QUEUE STATISTICS COUNTERS = & P* EACH COUNTER HAS ONE WORD / PLC = > P* = h PSTATAR EQU * = r PWIQSTA RES 8 WINDOW QUEUE = $ PSBQSTA RES 8 SHORT BUFFERS QUEUE = $ PLBQSTA RES 8 LONG BUFFERS QUEUE = PCCQSTA RES 8 CCA
0x1e3b20…1e3cb4 (2, 361) Dummy {f00=0x009d, f01=0x0190, f02=» P* > PCWTOPR EQU /00 CU OPERABLE > PCWTCCB EQU /02 CCA BUSY > 0 ( PCWTGR EQU /04 GENERAL READ ALLOWED > P " PCWTPNR EQU /06 CU NUMBER (0-7) > | PCWTABW EQU /08 WS TO ABORT > ( PCWTPLS EQU /0A LATEST PLC RCA STATUS > $ PCWTLNO EQU /0C LINE NO I
0x1e3cb4…1e3e48 Dummy {f00=0x009d, f01=0x0190, f02=» WS TABLE ADDRESS > ( PCWTBUF EQU /14 INP. BUFFER ADDRESS ? 2 PCWTSBQ EQU /16 QUEUE FOR SHORT OUTP. BUFFERS ? F 0 PCWTLBQ EQU /18 QUEUE FOR LONG OUTP. BUFFERS ? | & PCWTCCQ EQU /1A QUEUE FOR CCA FREE ? 2 PCWTMBQ EQU /1C QUEUE OF ALLOCATED MON. BLOCKS
0x1e3e48…1e3fdc Dummy {f00=0x009d, f01=0x0190, f02=»TRL UNIT START DESCRIPTOR ? , PCWTCID EQU /2A CTRL UNIT INTERF. DESCR. @ " & PCWTCCA EQU /34 COMMAND CTRL AREA @ R & PCWTRCA EQU /44 RESPONSE CTRL AREA @ | 0 PCWTPBS EQU /54 POOLBL. SHORT OUTP. BUFFERS @ 0 PCWTPBL EQU /5E POOLBL. LONG OUTP. BUFFERS =2 @
0x1e3fdc…1e4170 Dummy {f00=0x009d, f01=0x0190, f02=» =4 @ d " PCWTLB1 EQU CWTSOB+SOBUFS U =7 A 2 PCWTLOB EQU CWTLB1+SOBUFS LONG OUTP. BUFFERS =7 A 2 " PCWTGR1 EQU CWTLOB+LOBUFS U =7 A h 2 PCWTGRB EQU CWTGR1+LOBUFS GEN. READ BUFFERS =7 A P EJECT A P* A P IFF PLCNRL=0 A P* CWT FOR PLC NUM
0x1e4170…1e4304 Dummy {f00=0x009d, f01=0x0190, f02=» A r , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) B P* B 8 P* DATA WORDS B B P DATA 0 PLC NUMBER (0-3) B . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) B | " P DATA 0 LATEST PLC RCA STATUS B P DATA 0 LINE NO INDICATOR B P DATA 0 INDEX PARA
0x1e4304…1e4498 Dummy {f00=0x009d, f01=0x0190, f02=»STATION TABLE ADDRESS B ~ P DATA 0 INPUT BUFFER ADDRESS C * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER C B ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER C p P DATA 0 QUEUE FOR CCA FREE C . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS C , P DATA 0 TIMER POINTER FO
0x1e4498…1e462c Dummy {f00=0x009d, f01=0x0190, f02=» RESET INTERRUPT C r P* D P* PLC CONTROL AREAS D " . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) D B P DATA 0 DUMMY & MSB ADDRESS D t $ P DATA PL0CWT+CWTCID CID ADDRESS D P DATA INTLV0 INTERRUPT LEVEL D 2 P* CONTROL UNIT INTERFACE DESCRIPTOR
0x1e462c…1e47c0 Dummy {f00=0x009d, f01=0x0190, f02=»PL0CWT+CWTRCA RCA ADDRESS D $ P DATA 0 INTERRUPT SPECIFICATION E " P RES 8 COMMAND CONTROL AREA E J P RES 8 RESPONSE CONTROL AREA E n P* E P* POOLBLOCKS E P DATA 'SO',0 ID & FLAGS E 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH E
0x1e47c0…1e4954 (2, 362) Dummy {f00=0x009d, f01=0x018e, f02=» E P DATA 0,GRBUF1+GRBUF1 F P DATA GRBUFS+GRBUFS F & P* F B 2 P* WORK STATION STATUS WORDS. 1 WORD / WS F L 2 P RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. F P* F P* BUFFER AREAS F $ P RES SOBUFS SHORT OUTPUT BUFFERS F $ P R
0x1e4954…1e4ae8 Dummy {f00=0x009d, f01=0x0190, f02=» F P EJECT G P* G P* CWT FOR PLC NUMBER 2 G P* G B PPL1CWT EQU * G L P* G ` P* FLAGS G j P RES 1 PLC OPERABLE FLAG G ~ " P DATA 0 CCA BUSY FLAG (0=FREE) G , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) G P* G P* DAT
0x1e4ae8…1e4c7c Dummy {f00=0x009d, f01=0x0190, f02=» DATA 0 LINE NO INDICATOR G $ P DATA 0 INDEX TO PARAMETER AREA H " P* H J $ P* POINTERS AND QUEUE HEADS H T . P DATA OPARL2 OPEN LINE PARAMETER AREA ADDR H | , P DATA INTPL2 WORK STATION TABLE ADDRESS H P DATA 0 INPUT BUFFER ADDRESS H * P DATA
0x1e4c7c…1e4e10 Dummy {f00=0x009d, f01=0x0190, f02=»LLOCATED MONITOR BLOCKS H ~ , P DATA 0 TIMER POINTER FOR RESTART DELAY I P* I P P* INSTRUCTIONS I Z ( P CIO A3,1,PLCDA1 START I/O OPERATION I v 2 P SST A3,PLCDA1 RELEASE RCA AND RESET INTERRUPT I P* I P* PLC CONTROL AREAS I . P* CONT
0x1e4e10…1e4fa4 Dummy {f00=0x009d, f01=0x0190, f02=»ERRUPT LEVEL I 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) J P DATA 0 DUMMY & MSB ADDRESS J J $ P DATA PL1CWT+CWTCCA CCA ADDRESS J n P DATA 0 DUMMY & MSB ADDRESS J $ P DATA PL1CWT+CWTRCA RCA ADDRESS J $ P DATA 0 INTERRUPT SPECIFICATION J
0x1e4fa4…1e5138 Dummy {f00=0x009d, f01=0x0190, f02=»O',0 ID = "SHORT OUTPUT" & FLAGS J 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH K ( $ P DATA SOBUFS+SOBUFS AREA LENGTH K ` $ P DATA 'LO',0 ID = "LONG OUTPUT" K P DATA 0,LOBUF1+LOBUF1 K P DATA LOBUFS+LOBUFS K $ P DATA 'GR',0 ID = "GENERAL REA
0x1e5138…1e52cc Dummy {f00=0x009d, f01=0x0190, f02=» MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. K P* L 2 P* BUFFER AREAS L < $ P RES SOBUFS SHORT OUTPUT BUFFERS L X $ P RES LOBUFS LONG OUTPUT BUFFERS L $ P RES GRBUFS GENERAL READ BUFFERS L P* L P* L P IFF PLCNRL=2 L P* L P EJE
0x1e52cc…1e5460 Dummy {f00=0x009d, f01=0x0190, f02=»AG L z " P DATA 0 CCA BUSY FLAG (0=FREE) M , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) M 0 P* M ` P* DATA WORDS M j P DATA 2 PLC NUMBER (0-3) M . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) M " P DATA 0 LATEST PLC RCA STATUS M P DATA 0 LINE
0x1e5460…1e55f4 (2, 363) Dummy {f00=0x009d, f01=0x0190, f02=»ARAMETER AREA ADDR M x , P DATA INTPL3 WORK STATION TABLE ADDRESS N P DATA 0 INPUT BUFFER ADDRESS N J * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER N n ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER N P DATA 0 QUEUE FOR CCA FREE N . P DATA 0 QUEUE OF ALLOCATED MON
0x1e55f4…1e5788 Dummy {f00=0x009d, f01=0x018e, f02=»RATION N r 2 P SST A3,PLCDA2 RELEASE RCA AND RESET INTERRUPT O P* O D P* PLC CONTROL AREAS O N . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) O n P DATA 0 DUMMY & MSB ADDRESS O $ P DATA PL2CWT+CWTCID CID ADDRESS O P DATA INTLV2 INTERRUPT LEVEL
0x1e5788…1e591c Dummy {f00=0x009d, f01=0x0190, f02=» P DATA 0 DUMMY & MSB ADDRESS P $ P DATA PL2CWT+CWTRCA RCA ADDRESS P ( $ P DATA 0 INTERRUPT SPECIFICATION P P P RES 8 COMMAND CONTROL AREA P x P RES 8 RESPONSE CONTROL AREA P P* P ( P* POOLBLOCKS (5 WORDS / BLOCK) P , P DATA 'SO',0 ID =
0x1e591c…1e5ab0 Dummy {f00=0x009d, f01=0x0190, f02=»,0 ID = "LONG OUTPUT" P P DATA 0,LOBUF1+LOBUF1 Q P DATA LOBUFS+LOBUFS Q < $ P DATA 'GR',0 ID = "GENERAL READ" Q X P DATA 0,GRBUF1+GRBUF1 Q P DATA GRBUFS+GRBUFS Q P* Q 2 P* WORK STATION STATUS WORDS. 1 WORD / WS Q 2 P RES MAXWS+1 L
0x1e5ab0…1e5c44 Dummy {f00=0x009d, f01=0x0190, f02=»UTPUT BUFFERS Q ~ $ P RES GRBUFS GENERAL READ BUFFERS R P* R > P* R H P IFF PLCNRL=3 R R P* R h P EJECT R r P* R P* CWT FOR PLC NUMBER 4 R P* R PPL3CWT EQU * R P* R P* FLAGS R P RES 1 PLC OPERABLE FLAG R " P
0x1e5c44…1e5dd8 Dummy {f00=0x009d, f01=0x0190, f02=»MBER (0-3) R . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) S " P DATA 0 LATEST PLC RCA STATUS S D P DATA 0 LINE NO INDICATOR S j $ P DATA 0 INDEX TO PARAMETER AREA S P* S $ P* POINTERS AND QUEUE HEADS S . P DATA OPARL4 OPEN LINE PARAMETER A
0x1e5dd8…1e5f6c Dummy {f00=0x009d, f01=0x0190, f02=»R S l ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER T P DATA 0 QUEUE FOR CCA FREE T 6 . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS T X , P DATA 0 TIMER POINTER FOR RESTART DELAY T P* T P* INSTRUCTIONS T ( P CIO A3,1,PLCDA3 START I/O OPERATION T
0x1e5f6c…1e6100 Dummy {f00=0x009d, f01=0x0190, f02=»ORDS) T l P DATA 0 DUMMY & MSB ADDRESS U $ P DATA PL3CWT+CWTCID CID ADDRESS U 2 P DATA INTLV3 INTERRUPT LEVEL U Z 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) U ~ P DATA 0 DUMMY & MSB ADDRESS U $ P DATA PL3CWT+CWTCCA CCA ADDRESS U P DATA 0
0x1e6100…1e6294 (2, 364) Dummy {f00=0x009e, f01=0x0190, f02=» U t P RES 8 RESPONSE CONTROL AREA V P* V , ( P* POOLBLOCKS (5 WORDS / BLOCK) V 6 , P DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS V b 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH V $ P DATA SOBUFS+SOBUFS AREA LENGTH V $ P DATA 'LO',0 ID = "LON
0x1e6294…1e6428 Dummy {f00=0x009e, f01=0x0190, f02=»1 V | P DATA GRBUFS+GRBUFS W P* W & 2 P* WORK STATION STATUS WORDS. 1 WORD / WS W 0 2 P RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. W f P* W P* BUFFER AREAS W $ P RES SOBUFS SHORT OUTPUT BUFFERS W $ P RES LOBUFS LONG OUTPUT BUFFER
0x1e6428…1e65bc Dummy {f00=0x009e, f01=0x0190, f02=»UMBER 5 REMOTE W ~ P* X PPR1CWT EQU * X P* X 4 P* FLAGS X > P RES 1 PLC OPERABLE FLAG X R " P DATA 0 CCA BUSY FLAG (0=FREE) X r , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) X P* X P* DATA WORDS X P DATA 4 PLC NUMBER (4-7) =5
0x1e65bc…1e6750 Dummy {f00=0x009e, f01=0x0190, f02=»0 INDEX TO PARAMETER AREAS X P* Y " $ P* POINTERS AND QUEUE HEADS Y , 4 P DATA OPARR1 OPEN LINE PARAMETER AREA ADDRESSES Y T , P DATA INTPR1 WORK STATION TABLE ADDRESS Y P DATA 0 INPUT BUFFER ADDRESS Y * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER Y
0x1e6750…1e68e4 Dummy {f00=0x009e, f01=0x0190, f02=»ATA 0 TIMER POINTER FOR RESTART DELAY Y P* Z . P* INSTRUCTIONS Z 8 ( P CIO A3,1,PLCDA4 START I/O OPERATION Z T 2 P SST A3,PLCDA4 RELEASE RCA AND RESET INTERRUPT Z P* Z P* PLC CONTROL AREAS Z . P* CONTROL UNIT START DESCRIPTOR (3 WORDS
0x1e68e4…1e6a78 Dummy {f00=0x009e, f01=0x018e, f02=» INTERFACE DESCRIPTOR (5 WORDS) Z P DATA 0 DUMMY & MSB ADDRESS [ ( $ P DATA PR1CWT+CWTCCA CCA ADDRESS [ L P DATA 0 DUMMY & MSB ADDRESS [ t $ P DATA PR1CWT+CWTRCA RCA ADDRESS [ $ P DATA 0 INTERRUPT SPECIFICATION [ P RES 8 COMMAND CONTROL AREA [
0x1e6a78…1e6c0c Dummy {f00=0x009e, f01=0x0190, f02=» [ f 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH $ P DATA SOBUFS+SOBUFS AREA LENGTH @ $ P DATA 'LO',0 ID = "LONG OUTPUT" h P DATA 0,LOBUF1+LOBUF1 P DATA LOBUFS+LOBUFS $ P DATA 'GR',0 ID = "GENERAL READ" P DATA 0,GRBUF1+GRBUF1
0x1e6c0c…1e6da0 Dummy {f00=0x009e, f01=0x0190, f02=» = FLAGS. l P* ] P* BUFFER AREAS ] $ P RES SOBUFS SHORT OUTPUT BUFFERS ] 8 $ P RES LOBUFS LONG OUTPUT BUFFERS ] ` $ P RES GRBUFS GENERAL READ BUFFERS ] P* ] P* ] P EJECT ] P IFF PLCNRR=1 ] P* ] $ P* CWT FOR PLC NUMBE
0x1e6da0…1e6f34 (2, 365) Dummy {f00=0x009e, f01=0x018e, f02=»REE) ] v , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) ^ P* ^ < P* DATA WORDS ^ F P DATA 5 PLC NUMBER (4-7) =5 ^ ` . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) ^ " P DATA 0 LATEST PLC RCA STATUS ^ P DATA 0 LINE NO INDICATOR =5 ^ ( P DATA 0
0x1e6f34…1e70c8 Dummy {f00=0x009e, f01=0x0190, f02=» ^ ^ , P DATA INTPR2 WORK STATION TABLE ADDRESS _ P DATA 0 INPUT BUFFER ADDRESS _ 8 * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER _ ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER _ P DATA 0 QUEUE FOR CCA FREE _ . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS _ ,
0x1e70c8…1e725c Dummy {f00=0x009e, f01=0x0190, f02=» A3,PLCDA5 RELEASE RCA AND RESET INTERRUPT _ P* ` 2 P* PLC CONTROL AREAS ` < . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) ` P DATA 0 DUMMY & MSB ADDRESS ` $ P DATA PR2CWT+CWTCID CID ADDRESS ` P DATA INTRV1 INTERRUPT LEVEL ` 2 P* CONTROL
0x1e725c…1e73f0 Dummy {f00=0x009e, f01=0x0190, f02=»MSB ADDRESS ` $ P DATA PR2CWT+CWTRCA RCA ADDRESS a $ P DATA 0 INTERRUPT SPECIFICATION a < P RES 8 COMMAND CONTROL AREA a d P RES 8 RESPONSE CONTROL AREA a P* a ( P* POOLBLOCKS (5 WORDS / BLOCK) a , P DATA 'SO',0 ID = "SHORT OUTPUT" & FLA
0x1e73f0…1e7584 Dummy {f00=0x009e, f01=0x018e, f02=»" a r P DATA 0,LOBUF1+LOBUF1 b P DATA LOBUFS+LOBUFS b ( $ P DATA 'GR',0 ID = "GENERAL READ" b D P DATA 0,GRBUF1+GRBUF1 b l P DATA GRBUFS+GRBUFS b P* b 2 P* WORK STATION STATUS WORDS. 1 WORD / WS b 2 P RES MAXWS+1 L BYTE = STATUS. R BY
0x1e7584…1e7718 Dummy {f00=0x009e, f01=0x0190, f02=» $ P RES GRBUFS GENERAL READ BUFFERS c P* c , P* c 6 P EJECT c @ P IFF PLCNRR=2 c N P* c d $ P* CWT FOR PLC NUMBER 7 REMOTE c n P* c PPR3CWT EQU * c P* c P* FLAGS c P RES 1 PLC OPERABLE FLAG c " P DATA 0 CCA BUSY FLAG
0x1e7718…1e78ac Dummy {f00=0x009e, f01=0x0190, f02=» DATA 0 WORK STATION TO ABORT (0=NO ABORT) c " P DATA 0 LATEST PLC RCA STATUS d 2 P DATA 0 LINE NO INDICATOR d X $ P DATA 0 INDEX TO PARAMETER AREAS d z P* d $ P* POINTERS AND QUEUE HEADS d 4 P DATA OPARR3 OPEN LINE PARAMETER AREA ADDRESSES d
0x1e78ac…1e7a40 Dummy {f00=0x009e, f01=0x018e, f02=»ATA 0 QUEUE FOR LONG OUTPUT BUFFER d P DATA 0 QUEUE FOR CCA FREE e * . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS e L , P DATA 0 TIMER POINTER FOR RESTART DELAY e ~ P* e P* INSTRUCTIONS e ( P CIO A3,1,PLCDA6 START I/O OPERATION e 2 P SST A3,
0x1e7a40…1e7bd4 (2, 366) Dummy {f00=0x009e, f01=0x0190, f02=» P DATA 0 DUMMY & MSB ADDRESS f $ P DATA PR3CWT+CWTCID CID ADDRESS f ( P DATA INTRV2 INTERRUPT LEVEL f P 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) f t P DATA 0 DUMMY & MSB ADDRESS f $ P DATA PR3CWT+CWTCCA CCA ADDRESS f P DATA 0 DUMMY & MS
0x1e7bd4…1e7d68 Dummy {f00=0x009e, f01=0x0190, f02=»ES 8 RESPONSE CONTROL AREA f P* g " ( P* POOLBLOCKS (5 WORDS / BLOCK) g , , P DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS g X 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH g $ P DATA SOBUFS+SOBUFS AREA LENGTH g $ P DATA 'LO',0 ID = "LONG OUTPUT"
0x1e7d68…1e7efc Dummy {f00=0x009e, f01=0x0190, f02=» DATA GRBUFS+GRBUFS g P* h 2 P* WORK STATION STATUS WORDS. 1 WORD / WS h & 2 P RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. h P* h P* BUFFER AREAS h $ P RES SOBUFS SHORT OUTPUT BUFFERS h $ P RES LOBUFS LONG OUTPUT BUFFERS h $ P
0x1e7efc…1e8090 Dummy {f00=0x009e, f01=0x0190, f02=»TE h r P* i PPR4CWT EQU * i P* i ( P* FLAGS i 2 P RES 1 PLC OPERABLE FLAG i F " P DATA 0 CCA BUSY FLAG (0=FREE) i f , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) i P* i P* DATA WORDS i P DATA 7 PLC NUMBER (4-7) =5 i . P DAT
0x1e8090…1e8224 Dummy {f00=0x009e, f01=0x0190, f02=»ARAMETER AREAS i ~ P* j $ P* POINTERS AND QUEUE HEADS j 4 P DATA OPARR4 OPEN LINE PARAMETER AREA ADDRESSES j H , P DATA INTPR4 WORK STATION TABLE ADDRESS j P DATA 0 INPUT BUFFER ADDRESS j * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER j ( P DATA
0x1e8224…1e83b8 Dummy {f00=0x009e, f01=0x0190, f02=»POINTER FOR RESTART DELAY j P* k " P* INSTRUCTIONS k , ( P CIO A3,1,PLCDA7 START I/O OPERATION k H 2 P SST A3,PLCDA7 RELEASE RCA AND RESET INTERRUPT k t P* k P* PLC CONTROL AREAS k . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) k P D
0x1e83b8…1e854c Dummy {f00=0x009e, f01=0x0190, f02=»ESCRIPTOR (5 WORDS) k v P DATA 0 DUMMY & MSB ADDRESS l $ P DATA PR4CWT+CWTCCA CCA ADDRESS l @ P DATA 0 DUMMY & MSB ADDRESS l h $ P DATA PR4CWT+CWTRCA RCA ADDRESS l $ P DATA 0 INTERRUPT SPECIFICATION l P RES 8 COMMAND CONTROL AREA l P RES 8 R
0x1e854c…1e86e0 Dummy {f00=0x009e, f01=0x0190, f02=»0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH l $ P DATA SOBUFS+SOBUFS AREA LENGTH m 2 $ P DATA 'LO',0 ID = "LONG OUTPUT" m Z P DATA 0,LOBUF1+LOBUF1 m P DATA LOBUFS+LOBUFS m $ P DATA 'GR',0 ID = "GENERAL READ" m P DATA 0,GRBUF1+GRBUF1 m P DATA
0x1e86e0…1e8874 (2, 367) Dummy {f00=0x009e, f01=0x0190, f02=» P* n P* BUFFER AREAS n $ P RES SOBUFS SHORT OUTPUT BUFFERS n * $ P RES LOBUFS LONG OUTPUT BUFFERS n R $ P RES GRBUFS GENERAL READ BUFFERS n z P* n P* n P XIF n P EJECT n P* n & P* I/O COMPLETION DISPATCH TABLE n P* n
0x1e8874…1e8a08 Dummy {f00=0x009e, f01=0x0190, f02=»* n PCMDTAB EQU * o 0 P DATA CMDTC COMMAND CODE "TEST CHANNEL UNIT" o 6 P DATA COMPTC START OF "TEST CU" COMPLETION ROUTINE o R 0 P DATA 0 ALLOWED STATUS FOR "TEST CU" COMMAND o , PCMDTB1 EQU *-CMDTAB LENGTH OF ONE ENTRY o P DATA CMDOP OPEN LINE o
0x1e8a08…1e8b9c Dummy {f00=0x009e, f01=0x0190, f02=» $ P DATA CMDPS GET LINE STATISTICS p P DATA COMPPS p , " PSTAE2 EQU STAREQ+STAILL DUMMY p @ " PSTAE3 EQU STASEQ+STANOB DUMMY p f P DATA STAE2+STAE3 p " P DATA CMDDS GET DLS STATISTICS p P DATA COMPDS p P DATA STAE2+STAE3 p " P DATA CMDRM RE
0x1e8b9c…1e8d30 Dummy {f00=0x009e, f01=0x018e, f02=» p v P DATA COMPSW q P DATA STAERR q P DATA CMDFW FAST WRITE q 0 P DATA COMPFW q N P DATA STAERR q b P DATA CMDGR GENERAL READ q v P DATA COMPGR q P DATA 0 q $ PCMDTBL EQU *-CMDTAB TABLE LENGTH q P* q P EJECT q P* q ( P*
0x1e8d30…1e8ec4 Dummy {f00=0x009e, f01=0x0190, f02=» PREAROU EQU * r P DATA GRERR1 ERROR ROUTINE r 6 P DATA GRERR1 DATA PACKET NO FLOW C. (NOT IMPLEM.) r : * P DATA GRSTAT DEVICE STATUS DATA PACKET r t $ P DATA GRDATA NORMAL DATA PACKET r $ P DATA GRRR RECIEVE READY PACKET r P DATA GRRES RESET PACK
0x1e8ec4…1e9058 Dummy {f00=0x009e, f01=0x0190, f02=» 2 P* THIS TABLE IS INDEXED BY THE "MESSAGE TYPE" s P* CONSTANTS DEFINED ABOVE. s : PWRIROU EQU * s P DATA WRERR ERROR ROUTINE s p 2 P DATA WRNFLO DATA PACKET WITHOUT FLOW CONTROL s 2 P DATA WRERR DEVICE STATUS DATA (NOT RELEVANT) s $ P DATA WRDA
0x1e9058…1e91ec Dummy {f00=0x009e, f01=0x0190, f02=»ET CONFIRMATION PACKET s P* t P EJECT t ( P* t 6 P******************** t @ P* REQUEST ROUTINES * t P******************** t x P* t 8 P* THIS SECTION CONTAINS REQUEST HANDLING ROUTINES. t 6 P* THE REQUEST ROUTINES ARE CALLED FROM TERMI
0x1e91ec…1e9380 Dummy {f00=0x009e, f01=0x0190, f02=»THE DISTRIBUTOR DRIVER WILL SWITCH CALL TO t 6 P* CONNECTED LINE DRIVER. RETURN IS MADE DIRECTLY u 2 4 P* FROM THIS DRIVER TO TERMINAL DEVICE DRIVER. u l 6 P* A CALL WILL NORMALLY RESULT IN A WAIT FOR SOME u 8 P* I/O ACTION AND DISPATCHING. THIS MEANS
0x1e9380…1e9514 (2, 368) Dummy {f00=0x009f, f01=0x018e, f02=»N ORDER OF APPEARANCE IN CODE: u P* v & P* NAME FUNCTION v 0 P* v H $ P* PLCHRI INPUT OF ONE CHARACTER v R * P* PLSTBL DEFINE START OF OUTPUT BLOCK v z $ P* PLCHRO OUTPUT OF ONE CHARACTER v ( P* PLENBL DEFINE END OF OUTPUT BLOCK v & P* PLTEST PER
0x1e9514…1e96a8 Dummy {f00=0x009f, f01=0x0190, f02=» v P* ROUTINE NAME: w P* PLCHRI w P* w 0 P* FUNCTION: w : 2 P* THIS ROUTINE FETCHES ONE CHARACTER FROM THE w N 4 P* INPUT BUFFER. IF NO BUFFER HAS ARRIVED, "INPUT w 0 P* REQUESTED" FLAG IN DWT IS SET, AND CALLING w 2 P* PROCESS IS SUSPENDED U
0x1e96a8…1e983c Dummy {f00=0x009f, f01=0x018e, f02=»DWT ADDRESS w P* x P* OUTPUT: x P* AT RETURN TO DEVICE DRIVER x 0 P* A1 = BITS 0-14 CHANGED x T ( P* BIT 15 1 IF MORE CHAR IN BUFFER x v P* A2 = BITS 0-7 ZERO x P* BITS 8-15 CHARACTER x P* INTERR. ENABLED x P* x @ P****
0x1e983c…1e99d0 Dummy {f00=0x009f, f01=0x0190, f02=» x z ( P LD A4,DWTLD1,A6 INPUT TEXT WAITING? y " P RF(Z) CI100 NO, WAIT FOR TEXT y 4 P* y Z P EJECT y d P* y r , P CF A15,PLGECH GET CHARACTER FROM BUFFER y | " P LDR A1,A1 CHECK RETURN STATUS y , P RF(N) CI100 BUFFER EMPTY, WAIT FOR NEXT y P LDR*
0x1e99d0…1e9b64 Dummy {f00=0x009f, f01=0x0190, f02=» A2,DWFINP FLAG "INPUT REQUESTED" y 0 P ORS A2,DWTST,A6 SET INPUT REQUESTED IN DWT z * , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT z ^ P ABL PLDISP LOCAL DISPATCHER z P* z P* z : P* ENTRY IS MADE HERE WHEN A NEW BUFFER HAS ARRIVED z P*
0x1e9b64…1e9cf8 Dummy {f00=0x009f, f01=0x0190, f02=» P* A4 = BUFFER ADDRESS { P* A6 = DWT ADDRESS { " P* { > PINPRST EQU * { H 2 P LDKL A3,/FFFF-DWFINP MASK FOR INPUT REQUESTED { P ANS A3,DWTST,A6 RESET FLAG { ( P ST A4,DWTLD1,A6 LINK BUFFER TO DWT { P* { , P CF A15,NDGET8 GET A3-A5, A7
0x1e9cf8…1e9e8c Dummy {f00=0x009f, f01=0x0190, f02=»N BUFFER? { v P RF(Z) CI120 NO, CONTINUE | & P LDK A1,1 INDICATE MORE CHARACTERS | 4 P RF CI130 | ^ P* | p PCI120 EQU * | z P CM DWTLD1,A6 UNLINK BUFFER | PCI130 EQU * | P ENB | P RTN A5 | P* | P EJECT | P* | @ P****
0x1e9e8c…1ea020 Dummy {f00=0x009f, f01=0x0190, f02=» | 4 P* THIS ROUTINE DEFINES START OF AN OUTPUT BLOCK. } 2 P* IT ALLOCATES AN OUTPUT BUFFER, AND LINKS IT } @ P* TO THE DWT. } v P* } P* CALL: } P* ABI STBTAB,A1 } P* CF A5,PLSTBL } P* } P* INPUT: } 4 P* A2 = MAXIMAL LENGTH OF
0x1ea020…1ea1b4 (2, 369) Dummy {f00=0x009f, f01=0x0190, f02=» CODE } P* 0 IF OK ~ P* NOT 0 IF ERROR ~ 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) ~ : P* CR = CONTENTS OF A1 ~ n P* INTERR. ENABLED ~ P* ~ @ P************************************************************ ~ P* ~ PPLSTBL EQU
0x1ea1b4…1ea348 Dummy {f00=0x009f, f01=0x0190, f02=» P EJECT P* PSB050 EQU * . =16 . P LD A1,DWTLD1,A6 BUFFER ALREADY ALLOCATED? 6 ( P ABL(NZ) NDREPO YES, SET OK & RETURN h & P CF A15,GETLCS A1 := STATUS & INH P RF(NZ) SBERR2 ERROR, RETURN , P LD A3,DWTCHP,A6 CHANNEL PARAMETERS =1
0x1ea348…1ea4dc Dummy {f00=0x009f, f01=0x018e, f02=»0 EQU * . =16 P* P* CHECK LEVEL 3 WINDOW $ P LDR A3,A2 SAVE MAX BLOCK LENGTH B P LD A1,DWTST,A6 DWT STATUS j 0 P ANKL A1,DWFECH+DWFTY1 ECHO OR ONLY TYPE 1? * P RF(NZ) SB090 YES, DON'T CHECK WINDOW 2 P CF A15,GETOFR A2 := NR OF
0x1ea4dc…1ea670 Dummy {f00=0x009f, f01=0x0190, f02=» 0 P ANK A1,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? 2 P RF(NZ) SBERR YES, NO FRAMES MAY BE OUT. ERROR 8 P SUK A2,WINDOW WINDOW FULL? n P RF(N) SB090 NO, CONTINUE 0 P* DWT WILL HAVE TO WAIT UNTIL WINDOW IS OPEN 2 P ST A3,DWTLD1,A6 SAVE REQUESTED
0x1ea670…1ea804 Dummy {f00=0x009f, f01=0x018e, f02=»0 QUEUE STATISTICS P LD A1,CWTPNR,A5 PLC NUMBER P SLA A1,1 MAKE INDEX > 4 P IM WIQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER Z P XIF P ABL PLDSP2 LOCAL DISPATCHER P* P* 6 P* ENTRY IS MADE HERE WHEN WINDOW IS OPEN AGAIN
0x1ea804…1ea998 Dummy {f00=0x009f, f01=0x0190, f02=» z P* A6 = DWT ADDRESS P* $ PWINRST EQU * . 4 P LD A3,DWTLD1,A6 RESTORE REQUESTED BUFFER LENGTH B P CM DWTLD1,A6 z P LDR A1,A1 RETURN CODE 2 P RF(NZ) SBERR2 ERROR, RETURN TO DEVICE DRIVER P* P* PSB090 EQU *
0x1ea998…1eab2c Dummy {f00=0x009f, f01=0x0190, f02=»T OUTPUT BUFFER ~ . P ADK A7,CWTPBS POOLBLOCK FOR SHORT BUFFERS " P CF A15,PLGTBU ALLOCATE BUFFER J , P RF(NZ) SB120 COMMON PART FOR SHORT/LONG p 2 P LDK A7,CWTSBQ NO BUFFER LEFT. SET QUEUE HEAD " P IFF UTTEST=0 QUEUE STATISTICS P LD A1,CWTPN
0x1eab2c…1eacc0 Dummy {f00=0x009f, f01=0x0190, f02=» PART FOR NO BUFFER P* PSB100 EQU * & & P CWK A3,LOBUFL LONG BUFFER ENOUGH? : P RF(G) SBERR NO, ERROR d $ P* ALLOCATE LONG OUTPUT BUFFER . P ADK A7,CWTPBL POOLBLOCK FOR LONG BUFFERS " P CF A15,PLGTBU ALLOCATE BUFFER , P RF(NZ
0x1eacc0…1eae54 (2, 370) Dummy {f00=0x009f, f01=0x0190, f02=»D A1,CWTPNR,A5 PLC NUMBER P SLA A1,1 MAKE INDEX " 4 P IM LBQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER > P XIF v P* PSB110 EQU * 8 P* NO BUFFER WAS AVAILABLE. PUT REQUEST IN QUEUE. ( P ADR A7,A5 A7 := QUEUE HEAD ADDRESS P
0x1eae54…1eafe8 Dummy {f00=0x009f, f01=0x0190, f02=»CHER x P* P* 2 P* ENTRY IS MADE HERE WHEN A BUFFER IS FREE P* REGISTERS ON ENTRY: V P* A1 = RETURN CODE v $ P* A4 = BUFFER ADDRESS (IF A1=0) P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS P* PBUFRST EQU *
0x1eafe8…1eb17c Dummy {f00=0x009f, f01=0x0190, f02=» 0 P ST A2,BUFBIX,A4 BYTE INDEX := START OF DATA 0 P ST A4,DWTLD1,A6 SAVE BUFFER ADDRESS IN DWT 8 P* l ( P ABL NDREPO RETURN TO DEVICE DRIVER v P* RETURN CODE := OK P* P* PSBERR EQU * ( P LDK A1,PLSERR RET CODE := SW ER
0x1eb17c…1eb310 Dummy {f00=0x009f, f01=0x0190, f02=»* @ P************************************************************ P* N P* ROUTINE NAME: X P* PLCHRO p P* P* FUNCTION: : P* THIS ROUTINE WRITES ONE CHARACTER TO OUTPUT BUFFER. P* P* CALL: P* ABI OUPTAB,A1
0x1eb310…1eb4a4 Dummy {f00=0x009f, f01=0x0190, f02=»DRESS P* P* OUTPUT: P* AT RETURN TO DEVICE DRIVER * P* A1 = RETURN CODE N P* 0 IF OK j P* NOT 0 IF ERROR | 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) P* CR = CONTENTS OF A1 P* INTERR. ENABLED P*
0x1eb4a4…1eb638 Dummy {f00=0x009f, f01=0x0190, f02=» P EJECT P* P STR A4,A15 PUSH A4 $ P LD A4,DWTLD1,A6 BUFFER ADDRESS < $ P RF(Z) COERR2 ERROR IF NO BUFFER d * P CF A15,PLPUCH PUT CHARACTER IN BUFFER P LDR A1,A1 CHECK RETURN CODE ( P RF(NZ) COERR1 ERROR IF BUFFER FULL &
0x1eb638…1eb7cc Dummy {f00=0x009f, f01=0x018e, f02=» P* FASTER PROCESSING. & P CWK A2,LOBUFL+3 BUFFER FULL? =16 P RF(NE) OP100 NO =16 J * P LD A2,DWTCHP,A6 CHANNEL PARAMETER =16 f ( P ANK A2,CHABLO CHANGED BLOCKING? =16 & P RF(NZ) EB050 YES SEND BUFFER =16 POP100 EQU * . =16 P ENB
0x1eb7cc…1eb960 Dummy {f00=0x009f, f01=0x0190, f02=» P* PCOERR1 EQU * " P CF A15,PLRLBU RELEASE BUFFER " $ P CM DWTLD1,A6 INDICATE NO BUFFER H PCOERR2 EQU * p P LDR* A4,A15 POP A4 ( P LDK A1,PLSERR RET CODE := SW ERROR & P ABL NDRET RETURN TO DEVICE DRIVER P* P EJECT
0x1eb960…1ebaf4 (2, 371) Dummy {f00=0x009f, f01=0x0190, f02=» P* FUNCTION: 0 P* THIS ROUTINE DEFINES END OF OUTPUT BLOCK. . P* IT SENDS THE BLOCK TO PLC AND WAITS FOR P P* ACKNOWLEDGE. P* P* CALL: P* ABI ENBTAB,A1 P* CF A5,PLENBL P* P* INPUT: P* A6 = DWT AD
0x1ebaf4…1ebc88 Dummy {f00=0x009f, f01=0x0190, f02=»ERROR 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) P* CR = CONTENTS OF A1 B P* INTERR. ENABLED ` P* z @ P************************************************************ P* PPLENBL EQU * PPRENBL EQU * $ P LDK A1,0 SET
0x1ebc88…1ebe1c Dummy {f00=0x009f, f01=0x0190, f02=»,/FFFF-CHABLO RESET CHANGED BLOCKING =16 P ANS A2,DWTCHP,A6 . =16 0 PEB040 EQU * . =16 P * P LD A2,DWTCHP,A6 CHANNEL PARAMETER =16 j ( P ANK A2,CHABLO CHANGED BLOCKING =16 " P RB(NZ) OP100 YES, RETURN =16 PEB050 EQU * . =16 P ENB
0x1ebe1c…1ebfb0 Dummy {f00=0x009f, f01=0x0190, f02=»1,PLSERR SET RET CODE JUST IN CASE $ P LD A2,DWTLD1,A6 BUFFER ADDRESS * 2 P ABL(Z) NDREPO ERROR IF NO BUFFER. RETURN =16 R & P CF A15,GETLCS A1 := STATUS & INH " P RF(NZ) EBERR1 RETURN IF ERROR P* P LDR A3,A6 DWT ADDRESS " P ADKL A3
0x1ebfb0…1ec144 Dummy {f00=0x009f, f01=0x0190, f02=» z " P RF(NZ) EBERR1 RETURN IF ERROR P* . 0 P* WRITE PARAMETERS IN CCA AND X25 HEADER 8 P ENB l $ P LD A4,DWTLD1,A6 BUFFER ADDRESS x " P ST A4,CWTCCA+CCRBUF,A5 TO CCA : P CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR $ P LDK
0x1ec144…1ec2d8 Dummy {f00=0x009f, f01=0x0190, f02=»F(NZ) EB090 YES, USE TYPE 1 . P LDK A3,CMDSW NOT ECHO, USE STANDARD WRITE $ ( P ANK A2,DWFTY1 ONLY TYPE 1 ALLOWED? V P RF(Z) EB100 NO, USE TYPE 2 P* P EJECT P* PEB090 EQU * P* NO FLOW CONTROL 0 P CF A15,WRADR1
0x1ec2d8…1ec46c Dummy {f00=0x009f, f01=0x0190, f02=»U * P* FLOW CONTROL 0 P CF A15,WRADR2 WRITE LINE ADDRESS. FLOW CTRL ( 0 P CF A15,FWOPSR FETCH AND UPDATE FLOW CONTROL * P SC A2,X25FLW,A4 P(R) & P(S) TO PACKET . P LDK A2,TYDATA MESSAGE TYPE := NORMAL DATA P* PEB110 EQU *
0x1ec46c…1ec600 Dummy {f00=0x009f, f01=0x0190, f02=»ESS TO CCA p P LD A3,BUFBIX,A4 BYTE INDEX 0 P ST A3,CWTCCA+CCRLEN,A5 BUFFER LENGTH TO CCA 6 P* j & P CF A15,GETLCS A1 := STATUS & INH t " P RF(NZ) EBERR2 RETURN IF ERROR $ P CF A15,PLCCIO EXECUTE CIO START P RF(NZ) EBERR1 HANDLE ERROR
0x1ec600…1ec794 (2, 372) Dummy {f00=0x00a0, f01=0x0190, f02=» IS COMPLETED. & P* REGISTER CONTENTS ON ENTRY: P* A1 = RETURN CODE B P* A5 = CWT ADDRESS ^ P* A6 = DWT ADDRESS z P* A7 = MESSAGE TYPE P* PACKRST EQU * " P LDK A2,0 RESET DEVICE STATUS P LDR A1,A1 ANY ERR
0x1ec794…1ec928 Dummy {f00=0x00a0, f01=0x0190, f02=»RECIEVED? t P RF(Z) EB120 NO . P LDK A1,LINERR YES. RET CODE := LINK RESET * P RF EB130 RETURN P* t PEB120 EQU * ~ 0 P CWK A7,TYNFLO PACKET WITH NO FLOW CONTROL? P RF(E) EB130 YES, RETURN ( P ANK A3,DWFSAC WAIT FOR LEVEL 3 AC
0x1ec928…1ecabc Dummy {f00=0x00a0, f01=0x018e, f02=»WT STATUS r P ABL PLDSP2 LOCAL DISPATCHER P* 6 P EJECT @ P* N B P* ENTRY IS MADE HERE WHEN ACK ON LEVEL 3 HAVE BEEN RECIEVED X & P* REGISTER CONTENTS ON ENTRY: P* A1 = RETURN CODE 0 P* A2 = DEVICE STATUS (IF RELEVANT,
0x1ecabc…1ecc50 Dummy {f00=0x00a0, f01=0x0190, f02=» * P LD A2,DWTCHP,A6 CHANNEL PARAMETER =16 ( P ANK A2,CHABLO CHANGED BLOCKING? =16 6 , P ABL(NZ) SB050 YES, START NEW BLOCK =16 b & P ABL NDREP RETURN TO DEVICE DRIVER P* P* P* PEBERR2 EQU * P CM CWTCCB,A5 SET CCA FREE
0x1ecc50…1ecde4 Dummy {f00=0x00a0, f01=0x0190, f02=»O BUFFER x $ P CM DWTLD2,A6 RESET FLOW CONTROL & P ABL NDREP RETURN TO DEVICE DRIVER 8 P* b P EJECT l P* z @ P************************************************************ P* P* ROUTINE NAME: P* PLTEST P* P* FU
0x1ecde4…1ecf78 Dummy {f00=0x00a0, f01=0x0190, f02=»VER" WITH AN INTERFACE SIMILAR TO 2 P* THAT OF THE NORMAL TERMINAL DEVICE DRIVERS. * 2 P* CALL IS MADE DIRECTLY TO THE PLC DRIVER, AND ` 4 P* NOT THROUGH THE TERMINAL NETWORK DISTRIBUTOR, 2 P* AS THIS FUNCTION IS NOT AVAILABLE FOR OTHER P* LI
0x1ecf78…1ed10c Dummy {f00=0x00a0, f01=0x0190, f02=»TPUT: P* AT RETURN TO DEVICE DRIVER P* A1 = RETURN CODE 2 P* 0 IF OK N P* NOT 0 IF ERROR ` P* A2 = CHANGED z P* CR = CONTENTS OF A1 P* INTERR. ENABLED P* @ P****************************************************
0x1ed10c…1ed2a0 Dummy {f00=0x00a0, f01=0x018e, f02=» $ P CF A15,GETCWT A5 := CWT ADDRESS P CF A15,PLCCCA RESERVE CCA , P* N P ENB X . P ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA d < P CM CWTCCA+CCRC1B,A5 DATA CHAINING & MSB OF BUFFER ADDR 0 P LD A4,DWTTBU,A6 USER REQUEST BUFFER ADDRESS "
0x1ed2a0…1ed434 (2, 373) Dummy {f00=0x00a0, f01=0x0190, f02=» . P LD A3,DWTTCW,A6 USER REQUEST CONTROL WORD P* 6 & P* DETERMINE TYPE OF TEST ORDER @ . P LC A1,DWTOR+1,A6 USER REQUEST ORDER CODE j P ANK A1,/3F CLEAN & P CWK A1,ORDPS GET LINE STATISTICS? P RF(E) TE100 YES, HANDLE & P CWK A1,
0x1ed434…1ed5c8 Dummy {f00=0x00a0, f01=0x0190, f02=» DEFINED. ERROR r P* P* READ LOCAL MEMORY " 6 P ST A3,CWTCCA+CCRSUB,A5 PLC MEMORY ADDRESS TO CCA @ 0 P LDK A3,CMDRM PLC COMMAND READ LOCAL MEMORY z P RF TE120 TO COMMON PART P* PTE100 EQU * P* GET LINE STATISTICS
0x1ed5c8…1ed75c Dummy {f00=0x00a0, f01=0x0190, f02=»N PART ~ P* PTE110 EQU * P* GET DLS STATISTICS , & P LC A3,DWTCP2,A6 CHANNEL PARAMETER L " P ANK A3,MASKWS CLEAN WS NUMBER v P SLL A3,8 TO LEFT BYTE 0 P ADK A3,CMDDS PLC COMMAND GET DLS STATISTICS P* PTE120 EQU *
0x1ed75c…1ed8f0 Dummy {f00=0x00a0, f01=0x0190, f02=»NDLE x & P ABL PLDSP2 LOCAL DISPATCER. WAIT P* 6 P* @ < P* ENTRY IS MADE TO TSTRST WHEN COMMAND IS COMPLETED. J & P* REGISTER CONTENTS ON ENTRY: P* A1 = RETURN CODE P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS P
0x1ed8f0…1eda84 Dummy {f00=0x00a0, f01=0x0190, f02=»CA FREE x ( P LDK A1,PLSERR RET CODE := SW ERROR PTEERR1 EQU * < & P ABL NDREP RETURN TO DEVICE DRIVER P P XIF z P* P EJECT P* P********************** P* INTERRUPT ROUTINES * P********************** P*
0x1eda84…1edc18 Dummy {f00=0x00a0, f01=0x0190, f02=»/O COMPLETION INTERRUPT. ~ " P* ALL ROUTINES ARE EXECUTED 8 P* ON INTERRUPT PRIORITY. AFTER PROCESSING, EXIT IS F > P* MADE EITHER TO SOME ROUTINE WAITING FOR THE INTERRUPT, : P* TO THE LOCAL PLC DISPATCHER OR TO TOSS DISPATCHER. 8 P* ON
0x1edc18…1eddac Dummy {f00=0x00a0, f01=0x0190, f02=» d P* P* NAME FUNCTION P* * P* IHPL INTERRUPT ENTRY 4 $ P* PLIHR HANDLE RELEASE INTERRUPT R & P* PLIHA HANDLE ATTENTION INTERRUPT z , P* PLIHC HANDLE I/O COMPLETION INTERRUPT 2 P* COMPSTA HANDLE COMPLETION OF START COMMANDS &
0x1eddac…1edf40 Dummy {f00=0x00a0, f01=0x0190, f02=»OCAL MEMORY) j 2 P* COMPWRI HANDLE COMPLETION OF WRITE COMMANDS 8 P* COMPGR HANDLE COMPLETION OF GENERAL READ COMMANDS J * P* GRERR HANDLE ERRORS AT GENERAL READ 6 P* GRSACK HANDLE STATUS AND RR MESSAGE FROM DEVICE * P* GRDATA HANDLE DATA INPUT
0x1edf40…1ee0d4 (2, 374) Dummy {f00=0x00a0, f01=0x0190, f02=»****************************** r P* & P* ROUTINE NAME: 0 P* IHPL H P* V P* FUNCTION: ` 2 P* THIS ROUTINE CONTAINS INTERRUPT ENTRIES FOR t 2 P* ALL PLC:S INCLUDED. IT SAVES A1-A8, SETS CWT 4 P* ADDRESS AND EXITS TO RELEASE OR I/O CO
0x1ee0d4…1ee268 Dummy {f00=0x00a0, f01=0x0190, f02=»EM STACK POINTER P* INTERR. INHIBITED P* MODE SYSTEM 4 P* J P* OUTPUT: T P* A5 = CWT ADDRESS f P* @ P************************************************************ P* PIHPL01 EQU * P IFF PLCNRL=0 U =5 P
0x1ee268…1ee3fc Dummy {f00=0x00a0, f01=0x0190, f02=» z P XIF P* P IFF PLCNRL=0 U =5 & P LDKL A5,PL0CWT CWT ADDRESS, PLC 0 8 $ P RF IHPL COMMON PART, ALL PLC:S b P XIF P* P EJECT P* PIHPL02 EQU * P IFF PLCNRL=0 U =5 P IFF PLCNRL=1 P IFT CPU852=
0x1ee3fc…1ee590 Dummy {f00=0x00a0, f01=0x0190, f02=»SR 8,A15 PUSH A1-A8 P XIF P* ( P IFF PLCNRL=0 U =5 2 P IFF PLCNRL=1 L & P LDKL A5,PL1CWT CWT ADDRESS, PLC 1 b $ P RF IHPL COMMON PART, ALL PLC:S P XIF P* PIHPL03 EQU * P IFF PLCNRL=0 U =5 P IFF PLCNRL=1
0x1ee590…1ee724 Dummy {f00=0x00a0, f01=0x0190, f02=»LCNRL=1 P IFF PLCNRL=2 P IFF CPU852=1 & P MSR 8,A15 PUSH A1-A8 < P XIF Z P* f P IFF PLCNRL=0 U =5 p P IFF PLCNRL=1 P IFF PLCNRL=2 & P LDKL A5,PL2CWT CWT ADDRESS, PLC 2 $ P RF IHPL COMMON PART, ALL PLC:S P
0x1ee724…1ee8b8 Dummy {f00=0x00a0, f01=0x0190, f02=»FT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 P XIF 4 P* @ P IFF PLCNRL=0 U =5 J P IFF PLCNRL=1 d P IFF PLCNRL=2 z P IFF PLCNRL=3 P IFF CPU852=1 P MSR 8,A15 PUSH A1-A8 P XIF P* P IFF PLCNRL=0 U =5
0x1ee8b8…1eea4c Dummy {f00=0x00a0, f01=0x0190, f02=»PLC:S v P XIF P* PIHPR01 EQU * $ P IFF PLCNRR=0 8 P IFT CPU852=1 N P CF A15,SAVE8 PUSH A1-A8 d P XIF P IFF PLCNRR=0 P IFF CPU852=1 P MSR 8,A15 PUSH A1-A8 P XIF P IFF PLCNRR=0 , P LDKL A5,PR1
0x1eea4c…1eebe0 Dummy {f00=0x00a0, f01=0x0190, f02=»NRR=1 P IFT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 $ P XIF D P IFF PLCNRR=0 P P IFF PLCNRR=1 f P IFF CPU852=1 | P MSR 8,A15 PUSH A1-A8 P XIF P IFF PLCNRR=0 P IFF PLCNRR=1 , P LDKL A5,PR2CWT CWTADDRESS PLC 2
0x1eebe0…1eed74 (2, 375) Dummy {f00=0x00a0, f01=0x0190, f02=»LCNRR=2 P IFT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 & P XIF F P IFF PLCNRR=0 R P IFF PLCNRR=1 h P IFF PLCNRR=2 ~ P IFF CPU852=1 P MSR 8,A15 PUSH A1-A8 P XIF P IFF PLCNRR=0 P IFF PLCNRR=1 P IFF PLC
0x1eed74…1eef08 Dummy {f00=0x00a0, f01=0x0190, f02=» PLCNRR=0 P IFF PLCNRR=1 P IFF PLCNRR=2 ( P IFF PLCNRR=3 > P IFT CPU852=1 T P CF A15,SAVE8 PUSH A1-A8 j P XIF P IFF PLCNRR=0 P IFF PLCNRR=1 P IFF PLCNRR=2 P IFF PLCNRR=3 P IFF CPU852=1 P MSR
0x1eef08…1ef09c Dummy {f00=0x00a0, f01=0x0190, f02=»DKL A5,PR4CWT CWTADDRESS PLC 4 REMOTE " P RF IHPL COMMON PART ALL CWT:S . P XIF T P EJECT ` P* n PIHPL EQU * x & P ST P,INTSAV SAVE LATEST INTERRUPT P LDK A1,0 RESET HIGH BYTE , P LC A1,CWTCID+CIDINT,A5 INTERRUPT SOURCE P C
0x1ef09c…1ef230 Dummy {f00=0x00a0, f01=0x0190, f02=»0 ATTENTION? P RF(E) PLIHA YES, HANDLE P* 4 2 P CF A15,PLCNOP ILLEGAL CODE, SET NOT OPERABLE > P ABL TDISP EXIT t P* P EJECT P* @ P************************************************************ P* P* ROUTINE NA
0x1ef230…1ef3c4 Dummy {f00=0x00a0, f01=0x0190, f02=»ND IF ANOTHER t , P* PROCESS IS WAITING FOR THE CCA, RETURN ( P* IS MADE TO CCA ALLOCATION ROUTINE. F P* r P* CALL: | P* RF PLIHR P* P* INPUT: P* A5 = CWT ADDRESS P* P* OUTPUT: P* IF PROCESS WAITING
0x1ef3c4…1ef558 Dummy {f00=0x00a0, f01=0x0190, f02=»************** b P* PPLIHR EQU * " P EX CWTST3,A5 RESET INTERRUPT 4 . P LD A4,CWTCCQ,A5 PROCESS WAITING FOR CCA? Z * P ABL(NZ) CCARST YES, ACTIVATE PROCESS " P CM CWTCCB,A5 NO, SET CCA FREE P ABL TDISP EXIT P* P EJECT
0x1ef558…1ef6ec Dummy {f00=0x00a0, f01=0x0190, f02=»* P* FUNCTION: 4 P* THIS ROUTINE HANDLES ATTENTION INTERRUPTS. IF 4 P* ERROR, IT SETS AN ERROR CODE AND STARTS ABORT V 4 P* OF ALL CALLS. IF COMMUNICATION REESTABLISHED, P* IT STARTS RECOVERY. P* P* CALL: P* RF PLIHA
0x1ef6ec…1ef880 Dummy {f00=0x00a0, f01=0x018e, f02=» ~ P* @ P************************************************************ P* V PPLIHA EQU * ` & P LD A1,CWTRCA+CCRSTA,A5 PLC STATUS t & P ST A1,CWTPLS,A5 SAVE FOR TESTING P IFF UTTEST=0 P CF A15,LOGATT LOG RCA P XIF & P
0x1ef880…1efa14 (2, 376) Dummy {f00=0x00a1, f01=0x018e, f02=» P LDKL A2,/FFFF-STACOM-STAERR P* MASK FOR ALLOWED ERRORS ( P ANR A2,A1 FATAL ERROR? L P RF(Z) IA100 NO, CONTINUE l ( P CF A15,PLCNOP SET PLC NOT OPERABLE P ABL TDISP EXIT P* PIA100 EQU * P LDR A2,A1 STATUS 0
0x1efa14…1efba8 Dummy {f00=0x00a1, f01=0x0190, f02=» z & P CF A15,STAHAN HANDLE ERROR STATUS P ABL PLDSP2 LOCAL DISPATCHER 2 P* V P EJECT ` P* n @ P************************************************************ x P* P* ROUTINE NAME: P* PLIHC P* P* FUNCTION:
0x1efba8…1efd3c Dummy {f00=0x00a1, f01=0x0190, f02=»ORRESPONDING COMMAND HANDLER. P* & P* CALL: 0 P* RF PLIHC @ P* R P* INPUT: P* A5 = CWT ADDRESS l P* P* OUTPUT: P* A1 = PLC STATUS P* A2 = FATAL PLC STATUS P* A5 = CWT ADDRESS P* A6 = USER P
0x1efd3c…1efed0 Dummy {f00=0x00a1, f01=0x0190, f02=»A+CCRSTA,A5 PLC STATUS & P ST A1,CWTPLS,A5 SAVE FOR TESTING P IFF UTTEST=0 H P CF A15,LOGIOC LOG CCR ^ P XIF | P ANKL A1,/FFFF-STAPOL-STALER & P* RESET POLL STOP & LINK ERROR < P LD A6,CWTRCA+CCRIDW,A5 USER PARAMETER (DWT, DLS O
0x1efed0…1f0064 Dummy {f00=0x00a1, f01=0x0190, f02=»0 EQU * , P* SCAN TABLE TO FIND MATCHING COMMAND " P SUK A3,CMDTB1 DECREMENT INDEX @ $ P RF(N) IC120 END OF TABLE. ERROR f & P CC A2,CMDTAB+1,A3 COMMAND FOUND? P RB(NE) IC100 NO, CONTINUE P* . P C1 A2,CMDTAB+4,A3 MASK FOR ALLOWED
0x1f0064…1f01f8 Dummy {f00=0x00a1, f01=0x0190, f02=» 2 P ABI CMDTAB+2,A3 CALL COMMAND HANDLING ROUTINE P* > PIC120 EQU * H P EX CWTST3,A5 RELEASE RCA ( P CF A15,PLCNOP SET PLC NOT OPERABLE ~ P ABL PLDSP2 LOCAL DISPATCHER P* P EJECT P* @ P************************
0x1f01f8…1f038c Dummy {f00=0x00a1, f01=0x0190, f02=»UTINES HANDLE COMPLETION OF TEST CU, & P* OPEN LINE AND OPEN DLS COMMANDS. , 0 P* THEY CHECK THE RETURN CODE AND EXIT TO THE V & P* ROUTINE THAT MADE THE I/O CALL. P* P* CALL: P* ABI CMDROU,A3 P* P* INPUT: P* A1 =
0x1f038c…1f0520 Dummy {f00=0x00a1, f01=0x0190, f02=»: P* A1 = PLC STATUS P* A2 = FATAL PLC STATUS $ P* A5 = CWT ADDRESS D * P* A6 = DLS INDEX (IF EXIT TO ODLRST) ` P* @ P************************************************************ P* PCOMPTC EQU * P EX CWTST3,A5
0x1f0520…1f06b4 (2, 377) Dummy {f00=0x00a1, f01=0x018e, f02=»MPLETION ~ P* PCOMPOP EQU * P EX CWTST3,A5 RELEASE RCA . 2 P ABL OPLRST RETURN TO ROUTINE MAKING I/O CALL P P* P* P* OPEN DLS, COMPLETION P* PCOMPOD EQU * P EX CWTST3,A5 RELEASE RCA P LDR A2,A2 F
0x1f06b4…1f0848 Dummy {f00=0x00a1, f01=0x0190, f02=» n & P LDK A2,0 CLEAR FATAL STATUS FLAGS P* 2 PCD100 EQU * < 2 P ABL ODLRST RETURN TO ROUTINE MAKING I/O CALL P P* P EJECT P* @ P************************************************************ P* P* ROUTINE NAME:
0x1f0848…1f09dc Dummy {f00=0x00a1, f01=0x0190, f02=»TICS AND READ LOCAL t P* MEMORY COMMANDS. . P* IT CHECKS THE PLC STATUS, SETS EFFECTIVE 6 2 P* LENGTH IN DWT AND EXITS TO THE ROUTINE THAT h P* MADE THE I/O CALL. P* P* CALL: P* ABI CMDROU,A3 P* P* INPUT: P*
0x1f09dc…1f0b70 Dummy {f00=0x00a1, f01=0x0190, f02=»* A5 = CWT ADDRESS P* A6 = DWT ADDRESS P* 8 @ P************************************************************ B P* P IFT PLCTST=1 PCOMPPS EQU * PCOMPDS EQU * PCOMPRM EQU * P* P EJECT P* P LDR
0x1f0b70…1f0d04 Dummy {f00=0x00a1, f01=0x018e, f02=» TO DWT P RF TS110 EXIT. A1 = 0 P* . PTS100 EQU * 8 . P LDK A1,NOTOPR RETURN CODE := NOT OPERABLE L ( P CM DWTTLN,A6 EFFECTIVE LENGTH := 0 ~ P* PTS110 EQU * P EX CWTST3,A5 RELEASE RCA 2 P ABL TSTRST RETURN TO ROUTINE
0x1f0d04…1f0e98 Dummy {f00=0x00a1, f01=0x018e, f02=» P* P* ROUTINE NAME: P* COMPWRI & P* 8 P* FUNCTION: B 2 P* THIS ROUTINE HANDLES COMPLETION OF STANDARD V P* WRITE AND FAST WRITE. 6 P* IT CHECKS THE PLC STATUS AND RELEASES THE OUTPUT 2 P* BUFFER, IF ANY WAS ALLOCATED. IF
0x1f0e98…1f102c Dummy {f00=0x00a1, f01=0x0190, f02=» P* ABI CMDROU,A3 P* P* INPUT: * P* A1 = PLC STATUS : P* A2 = FATAL PLC STATUS T P* A5 = CWT ADDRESS t P* A6 = DWT ADDRESS P* P* OUTPUT: 0 P* WHEN RETURN TO ROUTINE MAKING OUTPUT CALL P* A1 = RETU
0x1f102c…1f11c0 Dummy {f00=0x00a1, f01=0x018e, f02=»* @ P************************************************************ P* N P EJECT X P* f PCOMPSW EQU * p PCOMPFW EQU * P LDR A2,A2 FATAL PLC STATUS? P RF(NZ) WRERR1 YES, HANDLE P* & P LC A2,DWTCP2,A6 CHANEL PARAMETE
0x1f11c0…1f1354 (2, 378) Dummy {f00=0x00a1, f01=0x0190, f02=» ` P ANK A7,/FF CLEAN * P LD A4,CWTRCA+CCRBUF,A5 BUFFER ADDRESS " P EX CWTST3,A5 RELEASE RCA P . P ABI WRIROU,A7 CALL CORRESPONDING ROUTINE r P* P* P* IRRECOVERABLE ERROR P* PWRERR1 EQU * P EX CWTST3,A5 RELE
0x1f1354…1f14e8 Dummy {f00=0x00a1, f01=0x0190, f02=»WRNFLO EQU * PWRDATA EQU * ( P CF A15,PLRLBU RELEASE OUTPUT BUFFER ( $ P CM DWTLD1,A6 INDICATE NO BUFFER T * P ABL ACKRST RETURN TO REQUEST HANDLER | P* P* 4 P* COMPLETION OF RECIEVE READY MESSAGE OUTPUT P* PWRRR EQU
0x1f14e8…1f167c Dummy {f00=0x00a1, f01=0x018e, f02=»LNKOUT REMOVE FROM QUEUE P CF A15,FREBLK RETURN BLOCK P* D P ABL PLDSP2 EXIT N P* f P* p 8 P* COMPLETION OF RESET CONFIRMATION MESSAGE OUTPUT z P* PWRRESC EQU * $ P SUK A4,2 START OF MONITOR BLOCK P LDR A7,A5 C
0x1f167c…1f1810 Dummy {f00=0x00a1, f01=0x018e, f02=» r P* . P LDKL A2,/FFFF-DWFRES MASK FOR RESET FLAG ( P ANS A2,DWTST,A6 CLEAR "RESET" FLAG D 0 P LDK A4,RELINE RECOVERY CAUSE := LINK RESET p ( P CF A15,NDREDW CALL RECOVERY FOR DWT P ABL PLDSP2 LOCAL DISPATCHER P* P EJECT
0x1f1810…1f19a4 Dummy {f00=0x00a1, f01=0x0190, f02=» P* FUNCTION: 0 P* THIS ROUTINE HANDLES COMPLETION OF GENERAL P* READ COMMANDS. P * P* IT CHECKS TYPE OF MESSAGE AND CALLS h P* CORRESPONDING ROUTINE. P* P* CALL: P* ABI CMDROU,A3 P* P* INPUT: P* A1
0x1f19a4…1f1b38 Dummy {f00=0x00a1, f01=0x0190, f02=»A4 = BUFFER ADDRESS P* A5 = CWT ADDRESS P* A6 = DLS INDEX 8 ( P* A7 = DEVICE ADDRESS (IF RELEVANT) R P* ~ @ P************************************************************ P* PCOMPGR EQU * P LDR A2,A2 FATAL STATUS?
0x1f1b38…1f1ccc Dummy {f00=0x00a1, f01=0x0190, f02=»BUFFER ADDRESS x & P LC A6,CWTRCA+CCRDLS,A5 DLS INDEX P ANK A6,MASKWS CLEAN @ $ P LC A7,X25LCN,A4 DEVICE ADDRESS P ANK A7,MASKLC CLEAN P* 0 P ABI REAROU,A3 ROUTINE FOR THIS MESSAGE TYPE P* P EJECT P* @ P********
0x1f1ccc…1f1e60 Dummy {f00=0x00a1, f01=0x0190, f02=» 2 P* THIS ROUTINE HANDLES ILLEGAL INPUT MESSAGES. P* GRERR1 RETURNS BUFFER : P* Z P* CALL: d P* ABI REAROU,A3 t P* RB GRERR1 P* RF GRERR2 P* P* INPUT: & P* A4 = BUFFER ADDRESS (IF GRERR1) P* A5 = CWT ADDR
0x1f1e60…1f1ff4 (2, 379) Dummy {f00=0x00a1, f01=0x0190, f02=» PGRERR1 EQU * . P CF A15,PLRLBU RELEASE GENERAL READ BUFFER P* J PGRERR2 EQU * T P EX CWTST3,A5 RELEASE RCA h P* P ABL PLDSP2 EXIT P* P EJECT P* @ P**********************************************************
0x1f1ff4…1f2188 Dummy {f00=0x00a1, f01=0x0190, f02=»Y b P* MESSAGES FROM A DEVICE. 4 P* IT RELEASES THE BUFFER AND RETURNS TO ROUTINE , P* MAKING I/O CALL. d P* ~ P* CALL: P* ABI REAROU,A3 P* P* INPUT: P* A4 = BUFFER ADDRESS P* A5 = CWT ADDRESS P* A6
0x1f2188…1f231c Dummy {f00=0x00a1, f01=0x0190, f02=»F ERROR P* A2 = BITS 0-7 ZERO P* BITS 8-15 DEVICE STATUS . P* A5 = CWT ADDRESS R P* A6 = DWT ADDRESS n P* @ P************************************************************ P* P EJECT P* PGRSTAT EQU *
0x1f231c…1f24b0 Dummy {f00=0x00a1, f01=0x0190, f02=»C A2,X25DAT,A4 DEVICE STATUS BYTE P ANK A2,/FF CLEAN * P RF SR100 COMMON PART D P* b P* l PGRRR EQU * v $ P CF A15,GETDWT A6 := DWT ADDRESS P RB(Z) GRERR1 NO DWT DEFINED . P CF A15,FWIPR UPDATE FLOW CONTROL COUNTERS & P L
0x1f24b0…1f2644 Dummy {f00=0x00a1, f01=0x0190, f02=»SAGES X P EX CWTST3,A5 RELEASE RCA . P CF A15,PLRLBU RELEASE GENERAL READ BUFFER 0 P LD A3,DWTST,A6 DWT STATUS b P LDR A4,A3 4 P ANK A4,DWFAK3 ANYONE WAITING FOR THIS MESSAGE? P ABL(Z) PLDSP2 NO, DISPATCH P* $ P XRS A4,DWTS
0x1f2644…1f27d8 Dummy {f00=0x00a1, f01=0x0190, f02=» RETURN WITH ACK 3 | * P ABL WINRST NO, RETURN TO WINDOW QUEUE P* H P EJECT R P* ` @ P************************************************************ j P* P* ROUTINE NAME: P* GRDATA P* P* FUNCTION: 0 P* THIS ROU
0x1f27d8…1f296c Dummy {f00=0x00a1, f01=0x0190, f02=» P* INPUT: P* A4 = BUFFER ADDRESS P* A5 = CWT ADDRESS 6 P* A6 = DLS INDEX R P* A7 = DEVICE ADDRESS l P* P* OUTPUT: P* - P* @ P************************************************************ P*
0x1f296c…1f2b00 Dummy {f00=0x00a1, f01=0x018e, f02=»ONTROL COUNTERS t 4 P ST A4,CWTBUF,A5 SAVE INPUT DATA BUFFER ADDRESS 0 P ST A6,BUFDWT,A4 SAVE DWT ADDRESS IN BUFFER P , P LD A2,CWTRCA+CCRLEN,A5 EFFECTIVE LENGTH $ P ST A2,BUFLEN,A4 SAVE IN BUFFER & P LDK A2,X25DAT START OF USER DATA " P S
0x1f2b00…1f2c94 (2, 380) Dummy {f00=0x00a2, f01=0x0190, f02=» P EJECT P* @ P************************************************************ P* ` P* ROUTINE NAME: j P* GRRES P* P* FUNCTION: 2 P* THIS ROUTINE HANDLES RESET MESSAGES FROM THE P* SECONDARY. 6 P* IT RESETS TH
0x1f2c94…1f2e28 Dummy {f00=0x00a2, f01=0x0190, f02=»NT. IF THE n 8 P* PROCESS IS WAITING FOR LEVEL 3 ACK OR IN A BUFFER P* QUEUE IT IS ABORTED. N P* l P* CALL: v P* ABI REAROU,A3 P* P* INPUT: P* A4 = BUFFER ADDRESS P* A5 = CWT ADDRESS P* A6 = DLS INDEX
0x1f2e28…1f2fbc Dummy {f00=0x00a2, f01=0x0190, f02=»******** P* PGRRES EQU * $ P CF A15,GETDWT A6 := DWT ADDRESS . P RB(Z) GRERR1 NO DWT DEFINED V P* z P EJECT P* P EX CWTST3,A5 RELEASE RCA . P CF A15,PLRLBU RELEASE GENERAL READ BUFFER . P CM DWTLD2,A6 RESET FLOW
0x1f2fbc…1f3150 Dummy {f00=0x00a2, f01=0x0190, f02=» EXIT | P LDK A2,DWFRES , P ORS A2,DWTST,A6 INDICATE RESET RECIEVED $ P* T " P CF A15,PLCCCA RESERVE PLC CCA ^ P ENB P* $ P CF A15,GETBLK GET OUTPUT BUFFER P LDR A7,A5 CWT ADDRESS , P ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD
0x1f3150…1f32e4 Dummy {f00=0x00a2, f01=0x0190, f02=» CCA j : P CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR 0 P CF A15,WRADR2 WRITE ADDRESS IN CCA (TYPE 2) J 0 P LDK A2,CMDSW COMMAND CODE "STANDARD WRITE" ~ " P SC A2,CWTCCA+CCRCMD,A5 TO CCA " P LDK A2,/1F MESSAGE TYPE FLAGS & P SC A2,X25
0x1f32e4…1f3478 Dummy {f00=0x00a2, f01=0x0190, f02=»,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA, COMMAND ID ( P LDK A2,X25DAT LENGTH OF SYSTEM PART 8 * P ST A2,CWTCCA+CCRLEN,A5 TO CCA LENGTH d P* P EJECT P* P LD A2,DWTST,A6 DWT STATUS & P ANK A2,DWFRES RESET STILL WANTED? P RF(Z) R
0x1f3478…1f360c Dummy {f00=0x00a2, f01=0x0190, f02=» P RF(NZ) REERR2 EXIT IF ERROR P* ( * P LDK A1,LINERR RET CODE := LINK ERROR 2 P LD A2,DWTST,A6 DWT STATUS ` P LDR A3,A2 , P ANK A2,DWFAK3 WAITING FOR LEVEL 3 ACK? P RF(Z) RE100 NO, CONTINUE $ P XRS A2,DWTST,A6 RESET ACK3 FLAG
0x1f360c…1f37a0 Dummy {f00=0x00a2, f01=0x0190, f02=» QUEUE p P* PRE100 EQU * 0 P CF A15,OUTBUQ REMOVE DWT FROM BUFFER QUEUE , P LDR A2,A2 FOUND? ` 0 P ABL(NZ) BUFRST YES, RETURN WITH ERROR CODE z P* P ABL PLDSP2 LOCAL DISPATCHER P* P* PREERR1 EQU * P CM
0x1f37a0…1f3934 (2, 381) Dummy {f00=0x00a2, f01=0x0190, f02=»OR BLOCK p 4 P CF A15,LNKOUT REMOVE FROM QUEUE. A7 ALREADY SET ( P CF A15,FREBLK RETURN MONITOR BLOCK H P ABL PLDSP2 LOCAL DISPATCHER t P* P EJECT P* P********************* P* RECOVERY ROUTINES * P******************
0x1f3934…1f3ac8 Dummy {f00=0x00a2, f01=0x0190, f02=» RUNNING ^ : P* OUTPUT OPERATIONS. AFTER THAT, THE PLC IS STARTED, 8 P* AND LAST RECOVERY ROUTINES IN DEVICE DRIVERS ARE N P* CALLED FOR ALL DWT:S. 8 P* THE SECTION ALSO CONTAINS ROUTINES FOR RECOVERY P* OF I/O ERRORS. P*
0x1f3ac8…1f3c5c Dummy {f00=0x00a2, f01=0x0190, f02=»FOR EACH PLC CHANNEL UNIT v 0 P* PLSTRT START PLC AND CALL DEVICE RECOVERY " P* V P EJECT ` P* n @ P************************************************************ x P* P* ROUTINE NAME: P* PLON P* P* FUNCTION: .
0x1f3c5c…1f3df0 Dummy {f00=0x00a2, f01=0x0190, f02=»NITOR JOB WILL CALL THE RECOVERY ROUTINE ONCE P* FOR EACH PLC DEFINED. 6 P* V P* CALL: ` P* CF A15,PLON p P* P* INPUT: P* - P* P* OUTPUT: P* AT ENTRY TO PLSTRT: P* A5 = CWT ADDRESS P*
0x1f3df0…1f3f84 Dummy {f00=0x00a2, f01=0x0190, f02=» p P RF(NZ) PO100 YES, EXIT ( P IM PLCPFP INDICATE POWER UP STARTED ( P* T P LDKL A2,PO110 START ADDRESS ^ & P CF A15,QMJOB ACTIVATE MONITOR JOB P* PPO100 EQU * P RTN A15 P* P EJECT P* PPO110 EQU *
0x1f3f84…1f4118 Dummy {f00=0x00a2, f01=0x0190, f02=»RS n P LDK A1,STATLN TABLE LENGTH PPO113 EQU * . P SUK A1,2 NEXT WORD B $ P RF(N) PO116 READY WHEN ALL DONE ^ P CM STATAR,A1 RESET COUNTER P RB PO113 NEXT WORD PPO116 EQU * P XIF P* ( P LDK A1,16 (MAX NUMBER O
0x1f4118…1f42ac Dummy {f00=0x00a2, f01=0x0190, f02=»IF ALL DONE ~ P LD A5,TABCWT,A1 CWT ADDRESS * P RB(Z) PO120 TAKE NEXT IF NOT DEFINED 8 P CF A15,PLSTRT START ONE PLC f P RB PO120 NEXT PLC P* PPO130 EQU * P ABL MEXIT MONITOR JOB EXIT P* P EJECT P* @ P
0x1f42ac…1f4440 Dummy {f00=0x00a2, f01=0x0190, f02=»ON: 2 P* THIS ROUTINE FIRST CLEARS ALL WORK AREAS AND 4 P* DWT:S, AND SETS THE DWT:S BUSY. IT THEN STARTS B 2 P* THE PLC, AND CALLS RECOVERY ROUTINES IN ALL z P* DEVICE DRIVERS. P* P* CALL: P* CF A15,PLSTRT P* P*
0x1f4440…1f45d4 (2, 382) Dummy {f00=0x00a2, f01=0x0190, f02=»**************** d P* PPLSTRT EQU * " P IFT CPU852=1 6 P CF A15,SAVE8 PUSH A1-A8 L P XIF l P IFF CPU852=1 x P MSR 8,A15 PUSH A1-A8 P XIF P* P ENB 2 P IM CWTGR,A5 INDICATE GENERAL READ NOT ALLOWED " P CM
0x1f45d4…1f4768 Dummy {f00=0x00a2, f01=0x018e, f02=» EJECT P* PST100 EQU * . P* RETURN MONITOR BLOCKS USED AS BUFFERS , P LDR A7,A5 ^ , P ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD p P LDR* A4,A7 FIRST BLOCK $ P RF(Z) ST105 CONTINUE IF NO LEFT $ P CF A15,LNKOUT REMOVE FROM QUEUE
0x1f4768…1f48fc Dummy {f00=0x00a2, f01=0x018e, f02=» d P LDR A7,A5 " P ADK A7,CWTCCQ CCA QUEUE HEAD P LDR* A4,A7 FIRST BLOCK @ $ P RF(Z) ST110 CONTINUE IF NO LEFT ` $ P CF A15,LNKOUT REMOVE FROM QUEUE P CF A15,FREBLK RETURN BLOCK P RB ST105 TAKE NEXT P* PST110 EQU *
0x1f48fc…1f4a90 Dummy {f00=0x00a2, f01=0x018e, f02=» 2 P ADK A7,CWTPBS POOLBLOCK, SHORT OUTPUT BUFFERS ( P CF A15,INIBUF INITIATE BUFFER AREA > P LDR A4,A5 CWT ADDRESS j 0 P ADKL A4,CWTLOB AREA FOR LONG OUTPUT BUFFERS P LDR A7,A5 2 P ADK A7,CWTPBL POOLBLOCK, LONG OUTPUT BUFFERS ( P CF
0x1f4a90…1f4c24 Dummy {f00=0x00a2, f01=0x0190, f02=» 2 P ADK A7,CWTPBG POOLBLOCK, GENERAL READ BUFFERS ( P CF A15,INIBUF INITIATE BUFFER AREA > P* j 0 P* RESET ALL DWT:S AND WORK STATION STATUS t 0 P LDK A3,MAXWS+1 NUMBER OF WORK STATIONS + 1 PST120 EQU * P SUK A3,1 NEXT WORK STAT
0x1f4c24…1f4db8 Dummy {f00=0x00a2, f01=0x018e, f02=» ADDRESS ~ , P ADK A2,CWTWSS WORK STATION STATUS WORD P CMR A2 CLEAR STATUS @ P LDK A1,NOTOPR " P SCR A1,A2 WS := NOT OPERABLE r 0 P LD* A1,CWTINT,A5 WORK STATION TABLE ADDRESS " P LDR A6,A3 WORK STATION NUMBER 0 P CF A15,NDGEDN A7 := H
0x1f4db8…1f4f4c Dummy {f00=0x00a2, f01=0x0190, f02=» P LDR A6,A3 WS NUMBER $ P CF A15,GETDWT A6 := DWT ADDRESS P RB(Z) ST130 NOT DEFINED H $ P CM DWTLD2,A6 RESET FLOW CONTROL h P LDKL A2,/FFFF-DWFBSY-DWFPLC $ P* MASK FOR BUSY AND PLC FLAGS P ANS A2,DWTST,A6 RESET FLAGS ( P CM DWTL
0x1f4f4c…1f50e0 Dummy {f00=0x00a2, f01=0x0190, f02=»B ST120 NEXT WORK STATION P* " PST150 EQU * , , P* DELAY UNTIL PLC IS READY FOR START @ , P LD A4,CWTTPR,A5 TIMER ALREADY STARTED? p P RF(Z) ST152 NO, START TIMER " P LDKL A1,-STADLY-1 DELAY TIME P STR A1,A4 RESTART TIMER
0x1f50e0…1f5274 (2, 383) Dummy {f00=0x00a2, f01=0x0190, f02=»STADLY RESTART ADDRESS & DELAY TIME ( P ST A4,CWTTPR,A5 SAVE TIMER POINTER , PST154 EQU * X ( P ABL TDISP WAIT UNTIL TIMER EXPIRES l P* PST156 EQU * " P LDR A5,A1 RESTORE CWT ADDRESS , P CM CWTTPR,A5 INDICATE NO TIMER RUNNING
0x1f5274…1f5408 Dummy {f00=0x00a2, f01=0x0190, f02=»DK A2,CMDTC COMMAND CODE TEST CU 8 P ST A2,CWTCCA+CCRDLS,A5 COMMAND AND DLS INDEX TO CCA ( , P CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING d P LDR A3,A5 CWT ADDRESS 6 P ADK A3,CWTCSD CONTROL UNIT START DESCRIPTOR ADDR P INH P CF A15,PLCCIO C
0x1f5408…1f559c Dummy {f00=0x00a2, f01=0x0190, f02=»TION v P* P* 6 P* ENTRY IS MADE HERE WHEN TEST CU IS COMPLETED. & P* REGISTER CONTENTS ON ENTRY: Z P* A1 = PLC STATUS P* A5 = CWT ADDRESS P* PTCURST EQU * P LDR A1,A1 OPERATION OK? P RF(NZ) STERR2 N
0x1f559c…1f5730 Dummy {f00=0x00a2, f01=0x0190, f02=»O,A5 PST157 EQU * P CF A15,PLCCCA RESERVE CCA P* B P LD A2,CWTLNO,A5 GET LINE NO L 2 P SC A2,CWTCCA+CCRSU1,A5 SET UP LINE IN CCA =5 p " P SLL A2,1 MAKE OPEN LINE PARA- P ST A2,CWTPAR,A5 METER AREA PST158 EQU * $ P LD
0x1f5730…1f58c4 Dummy {f00=0x00a2, f01=0x0190, f02=»T UP IN CCA v $ P LDK A2,CMDOP COMMAND OPEN LINE 8 P ST A2,CWTCCA+CCRDLS,A5 COMMAND AND DLS INDEX TO CCA < : P CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR x ( P LDK A2,12 PARAMETER AREA LENGTH =1 " P ST A2,CWTCCA+CCRLEN,A5 TO CCA P
0x1f58c4…1f5a58 Dummy {f00=0x00a2, f01=0x0190, f02=»SPATCHER | P* P* 8 P* ENTRY TO OPLRST WILL BE MADE WHEN THE OPEN LINE $ P* OPERATION IS COMPLETED. ` & P* REGISTER CONTENTS ON ENTRY: P* A1 = PLC STATUS P* A5 = CWT ADDRESS P* POPLRST EQU * P LDR A
0x1f5a58…1f5bec Dummy {f00=0x00a2, f01=0x0190, f02=» RF(NP) ST159 YES ( P IM CWTLNO,A5 INCREMENT LINE NUMBER P LD A2,CWTLNO,A5 GET LINE NO F P SUK A2,4 ALL LINES OPENED ? j P RB(NZ) ST157 NO, TAKE NEXT P CM CWTLNO,A5 PST159 EQU * P* . P CM CWTGR,A5 INDICATE GENERAL READ
0x1f5bec…1f5d80 Dummy {f00=0x00a2, f01=0x0190, f02=»1 n PST160 EQU * & P SUK A6,1 NEXT WORK STATION (DLS) " P RF(N) ST180 EXIT IF ALL DONE H ( P LD* A1,CWTINT,A5 WORK STATION TABLE n 0 P CF A15,NDGEDN A7 := HIGEST DWT NUMBER ON WS P LDR A7,A7 ANY DWT:S? " P RB(N) ST160 NO, TAKE NEXT W
0x1f5d80…1f5f14 (2, 384) Dummy {f00=0x00a3, f01=0x0190, f02=»WT ADDRESS " P CM CWTWSS,A3 CLEAR WS STATUS 8 P SC A6,CWTCCA+CCRDLS,A5 DLS INDEX (WS NUMBER) TO CCA 8 * P ST A6,CWTCCA+CCRIDW,A5 SAVE DLS INDEX t " P LDK A2,CMDOD COMMAND OPEN DLS " P SC A2,CWTCCA+CCRCMD,A5 TO CCA ( P LDK A2,MAXFR MAX OUTSTAND
0x1f5f14…1f60a8 Dummy {f00=0x00a3, f01=0x0190, f02=»RT z P RF(NZ) STERR2 EXIT IF ERROR * P ABL PLDSP2 EXIT. WAIT FOR COMPLETION . P* P* f > P* ENTRY TO ODLRST IS MADE WHEN OPERATION IS COMPLETED. p & P* REGISTER CONTENTS ON ENTRY: P* A2 = FATAL PLC STATUS P* A5 = CWT
0x1f60a8…1f623c Dummy {f00=0x00a3, f01=0x018e, f02=»ERR2 YES, EXIT 0 P LD* A3,CWTINT,A5 WORK STATION TABLE ADDRESS $ P LDK A4,RETCP FLAG "TC POWER UP" J . P CF A15,NDREWS RECOVERY OF ALL DWT:S ON WS r $ P RB ST160 TAKE NEXT WORK STATION P* P* PST180 EQU * * P* ALL DATA LINKS
0x1f623c…1f63d0 Dummy {f00=0x00a3, f01=0x0190, f02=» n P* P ABL TDISP EXIT P* * P EJECT 4 P* B P******************** L P* LOCAL DISPATCHER * h P******************** P* > P* THIS SECTION CONTAINS A DISPATCHER FOR THE PLC DRIVER. < P* IT CAN BE CALLED EITHER
0x1f63d0…1f6564 Dummy {f00=0x00a3, f01=0x0190, f02=» : P* SOME INTERRUPTS OR DEVICE DRIVER CALLS SET SEVERAL 8 P* RESOURCES FREE. THIS MEANS THAT SEVERAL WAITING B < P* PROCERSSES MAY BECOME READY FOR ACTIVATION. ONLY ONE ~ : P* OF THESE PROCESSES CAN BE ACTIVATED DIRECTLY. THE > P* OTHER PR
0x1f6564…1f66f8 Dummy {f00=0x00a3, f01=0x0190, f02=»ORDER OF APPEARANCE IN CODE: P* $ P* NAME FUNCTION . P* F 8 P* PLDISP ACTIVATE PROCESS OR PERFORM COMMON FUNCTION P P* P EJECT P* @ P************************************************************ P* P* ROUTINE NA
0x1f66f8…1f688c Dummy {f00=0x00a3, f01=0x0190, f02=»CHING. IF ANY IS FOUND, IT IS ~ 8 P* ACTIVATED. THE ROUTINE ALSO PERFORMS ACTIONS THAT & 8 P* ARE NOT EXPLICITLY REQUESTED BY USER PROCESSES, EG b < P* GENERAL READ. WHEN NOTHING IS LEFT TO DO, THE ROUTINE P* EXITS TO TOSS DISPATCHER. 8 P* TWO
0x1f688c…1f6a20 Dummy {f00=0x00a3, f01=0x018e, f02=» P* CALL: P* ABL PLDISP P* ABL PLDSP2 , P* @ P* INPUT: J $ P* A5 = CWT ADDRESS (IF PLDSP2) Z $ P* A6 = DWT ADDRESS (IF PLDISP) P* A1-A8 ON A15 STACK P* P* OUTPUT: P* - P* @ P****************
0x1f6a20…1f6bb4 (2, 385) Dummy {f00=0x00a3, f01=0x0190, f02=» n P LDR A5,A5 $ P ABL(Z) TDISP NOT DEFINED. EXIT P* B P* L PPLDSP2 EQU * V P* j P* t PDP100 EQU * ~ P ENB P* HANDLE CHARACTER INPUT * P LD A4,CWTBUF,A5 INPUT BUFFER WAITING? P RF(Z) DP200 NO, CONTINU
0x1f6bb4…1f6d48 Dummy {f00=0x00a3, f01=0x0190, f02=» DP110 BUFFER EMPTY " P LD A3,DWTST,A6 DEVICE STATUS $ P ANK A3,DWFINP INPUT REQUESTED? B 0 P ABL(NZ) INPRST YES, RETURN TO DEVICE DRIVER j P* " P LD A1,DWTADR,A6 ADDRESS BLOCK . P LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED? , P ABR(NZ)
0x1f6d48…1f6edc Dummy {f00=0x00a3, f01=0x0190, f02=»NO, CONTINUE P CM DWTLD1,A6 REMOVE LINK PDP120 EQU * 6 $ P CM CWTBUF,A5 NO BUFFER WAITING J " P CF A15,PLRLBU RELEASE BUFFER r P* 8 P* CHECK IF LEVEL 3 RECIEVE READY SHOULD BE SENT 0 P CF A15,GETIFR A2 := NR OF FRAMES NOT ACK:
0x1f6edc…1f7070 Dummy {f00=0x00a3, f01=0x0190, f02=»POWER UP FOR TC ( P LD A1,PFPOST POWER UP TASK PENDING? ( P OR A1,PLCPFP PLC POWER UP PENDING? D P ABL(NZ) TDISP YES, EXIT p P* P* PDP300 EQU * * P* HANDLE ABORT OF ONE WORK STATION ( P LD A6,CWTABW,A5 WS TO ABORT, IF A
0x1f7070…1f7204 Dummy {f00=0x00a3, f01=0x0190, f02=» * P LD A4,CWTCCQ,A5 ANYONE IN CCA QUEUE? P RF(Z) DP500 NO, CONTINUE 2 P LD A1,CWTCCB,A5 CCA FREE? T P RF(NZ) DP500 NO, CONTINUE v P IM CWTCCB,A5 SET CCA BUSY ( P ABL CCARST ACTIVATE WAITING PROCESS P* P* PDP500 EQU *
0x1f7204…1f7398 Dummy {f00=0x00a3, f01=0x0190, f02=»7,A5 CWT ADDRESS . P ADK A7,CWTPBS POOLBLOCK FOR SHORT BUFFERS ( P CF A15,PLGTBU A4 := BUFFER ADDRESS J $ P RF(Z) DP510 NO BUFFER AVAILABLE v , P LDK A7,CWTSBQ OFFSET TO CWT QUEUE HEAD ( P RF DP520 COMMON PART FOR SHORT/LONG P* PDP51
0x1f7398…1f752c Dummy {f00=0x00a3, f01=0x0190, f02=»DK A7,CWTPBL POOLBLOCK FOR LONG BUFFERS ( P CF A15,PLGTBU A4 := BUFFER ADDRESS 0 0 P RF(Z) DP600 CONTINUE IF NO BUFFER AVAILABLE 4 P LDK A7,CWTLBQ OFFSET TO LONG BUFFERS QUEUE HEAD P* PDP520 EQU * & P* SHORT OR LONG BUFFER FOUND
0x1f752c…1f76c0 Dummy {f00=0x00a3, f01=0x0190, f02=»E FROM QUEUE | & P SUKL A6,DWTOTQ A6 := DWT ADDRESS & P LDR A4,A2 RESTORE BUFFER ADDRESS > P LDK A1,0 RET CODE := OK h * P ABL BUFRST RETURN TO ROUTINE WAITING P* P* PDP600 EQU * 2 P* CHECK IF GENERAL READ SHOULD BE PERFO
0x1f76c0…1f7854 (2, 386) Dummy {f00=0x00a3, f01=0x0190, f02=»CWTPBG POOLBLOCK FOR GENERAL READ BUFFERS ( P CF A15,PLGTBU A4 := BUFFER ADDRESS 2 . P ABL(NZ) GREAD PERFORM GR IF BUFFER FOUND ^ P* P* PDP800 EQU * 0 P* NOTHING MORE TO DO. EXIT TO DISPATCHER P ABL TDISP TOSS DISPATCHER
0x1f7854…1f79e8 Dummy {f00=0x00a3, f01=0x0190, f02=»MISCELLANEOUS SERVICE ROUTINES. v B P* ALL ROUTINES ARE CALLED BY AN ABL "NAME" INSTRUCTION. ( : P* REGISTER INTERFACE IS DESCRIBED FOR EACH ROUTINE. n < P* WHEN A ROUTINE HAS PERFORMED THE REQUESTED FUNCTION, . P* IT WILL EXIT TO THE LOCA
0x1f79e8…1f7b7c Dummy {f00=0x00a3, f01=0x0190, f02=» ABORT ALL WAITING DWT:S ON A WORK STATION 0 P* PLREWS HANDLE RECOVERY OF ONE WORK STATION 2 0 P* SENDRR SEND LEVEL 3 RECIEVE READY MESSAGE f P* GREAD PERFORM GENERAL READ P* P EJECT P* @ P****************************************
0x1f7b7c…1f7d10 Dummy {f00=0x00a3, f01=0x0190, f02=»BORTS FOR ONE WORK t 0 P* STATION. ALL REQUESTS OF DWT:S WAITING FOR 4 P* LEVEL 3 ACK OR WAITING IN CCA OR BUFFER QUEUES N 2 P* WILL BE ABORTED. ONE CALL IS NEEDED FOR EACH P* REQUEST TO BE ABORTED. P* P* CALL: P* ABL ABTHAN
0x1f7d10…1f7ea4 Dummy {f00=0x00a3, f01=0x0190, f02=» TO REQUEST: P* A1 = RETURN CODE P* A5 = CWT ADDRESS 0 P* A6 = DWT ADDRESS L P* h @ P************************************************************ r P* PABTHAN EQU * " P LDR A3,A6 WORK STATION NUMBER P SLA A3,1 MAKE
0x1f7ea4…1f8038 Dummy {f00=0x00a3, f01=0x0190, f02=» LDR A8,A6 SAVE WS NUMBER ( P LD* A1,CWTINT,A5 WORK STATION TABLE " , P CF A15,NDGEDN A7 := HIGEST DWT NR ON WS N P LDK A1,0 ~ " P LCR A1,A3 WORK STATION STATUS P* P ADK A7,1 PREPARE FOR SUK PAH100 EQU * P SUK A7,1 NEXT DWT
0x1f8038…1f81cc Dummy {f00=0x00a3, f01=0x0190, f02=»ED z P* $ P CM DWTLD2,A6 RESET FLOW CONTROL P LD A2,DWTST,A6 DWT STATUS < P LDR A3,A2 ^ , P LDKL A4,/FFFF-DWFPLC MASK FOR PLC FLAGS p P ANS A4,DWTST,A6 RESET FLAGS 2 P ANK A2,DWFAK3 IS DWT WAITING FOR LEVEL 3 ACK? P RF(Z) AH105 N
0x1f81cc…1f8360 Dummy {f00=0x00a3, f01=0x0190, f02=»TURN TO WINDOW QUEUE ~ P* PAH105 EQU * & . P LD A4,DWTOTQ,A6 CCA QUEUE ELEMENT POINTER : " P LDR A2,A7 SAVE DEVICE ADDRESS l P LDR A3,A1 SAVE RETURN CODE P LDR A7,A5 CWT ADDRESS " P ADK A7,CWTCCQ CCA QUEUE HEAD 2 P CF A15,LNKOUT
0x1f8360…1f84f4 (2, 387) Dummy {f00=0x00a3, f01=0x0190, f02=»DRESS t " P LDR A1,A3 RESTORE RETURN CODE P* 4 , P CF A15,OUTBUQ REMOVE FROM BUFFER QUEUE > P LDR A2,A2 FOUND IN QUEUE? n * P ABL(NZ) BUFRST YES, TERMINATE REQUEST P RB AH100 NEXT DWT P* PAH110 EQU * B P* ALL PROCESSES
0x1f84f4…1f8688 Dummy {f00=0x00a3, f01=0x018e, f02=»JECT P* @ P************************************************************ P* Z P* ROUTINE NAME: d P* PLREWS | P* P* FUNCTION: 4 P* THIS ROUTINE WILL HANDLE RECOVERY OF ONE WORK 4 P* STATION. ACTUAL CALL TO TERMINAL DEV
0x1f8688…1f881c Dummy {f00=0x00a3, f01=0x0190, f02=» P* A5 = CWT ADDRESS P* A6 = WORK STATION NUMBER $ P* H P* OUTPUT: R ( P* AT ENTRY TO DEVICE RECOVERY: d P* SEE NDREWS P* @ P************************************************************ P* PPLREWS EQU *
0x1f881c…1f89b0 Dummy {f00=0x00a3, f01=0x0190, f02=» OF STATUS FOR WS t P* . P LDKL A2,/FFFF-WSFERR MASK FOR ERROR FLAG $ 0 P ANRS A2,A3 INDICATE WS WORKING AFTER ERROR V P LCR A1,A3 WS STATUS P LDK A2,0 P SCR A2,A3 RESET STATUS , P LDK A4,RESECP ASSUME SECONDARY POWER UP P
0x1f89b0…1f8b44 Dummy {f00=0x00a3, f01=0x018e, f02=» STATION TABLE z 4 P CF A15,NDREWS CALL RECOVERY FOR ALL DWT:S ON WS P* N P ABL PLDSP2 LOCAL DISPATCHER X P* | P EJECT P* @ P************************************************************ P* P* ROUTINE NAME: P* SE
0x1f8b44…1f8cd8 Dummy {f00=0x00a3, f01=0x0190, f02=» l P* P* CALL: P* ABL SENDRR " P* 6 P* INPUT: @ P* A5 = CWT ADDRESS P P* A6 = DWT ADDRESS l P* P* OUTPUT: P* - P* @ P************************************************************ P* P
0x1f8cd8…1f8e6c Dummy {f00=0x00a3, f01=0x0190, f02=»SS | 2 P ADK A7,CWTMBQ QUEUE FOR KEEPING TRACK OF MB:S . P CF A15,LNKFST PUT MONITOR BLOCK IN QUEUE @ & P ADK A4,2 A4 := START OF USER PART r 6 P CF A15,WRADR2 WRITE LINE ADDRESS IN CCA & BUFFER , P LDK A2,CMDSW COMMAND := STANDARD WRITE " P S
0x1f8e6c…1f9000 Dummy {f00=0x00a3, f01=0x0190, f02=»DK A2,X25DAT LENGTH OF X25 HEADER 0 P ST A2,CWTCCA+CCRLEN,A5 BUFFER LENGTH TO CCA * < P CM CWTCCA+CCRC1B,A5 RESET DATA CHAIN & MSB BUFFER ADDR ^ 2 P ST A4,CWTCCA+CCRBUF,A5 BUFFER ADDRESS TO CCA P* & P CF A15,GETLCS A1 := STATUS & INH P
0x1f9000…1f9194 (2, 388) Dummy {f00=0x00a4, f01=0x0190, f02=»P(R). UPDATE FLOW CTRL | " P ORK A2,/01 MESSAGE TYPE := RR P SC A2,X25FLW,A4 TO BUFFER D $ P CF A15,PLCCIO EXECUTE CIO START f P RF(Z) RR120 EXIT IF OK PRR110 EQU * , P SUK A4,2 START ADDRESS OF MONITOR BLOCK 4 P CF A15,LNKOUT REMOVE
0x1f9194…1f9328 Dummy {f00=0x00a4, f01=0x0190, f02=» t P* P EJECT P* @ P************************************************************ * P* n P* ROUTINE NAME: x P* GREAD P* P* FUNCTION: 0 P* THIS ROUTINE WILL PERFORM ONE GENERAL READ P* OPERATION TO THE PLC
0x1f9328…1f94bc Dummy {f00=0x00a4, f01=0x0190, f02=» P* P* OUTPUT: P* - P* , @ P************************************************************ 6 P* z PGREAD EQU * * P LDR A6,A4 PARAMETER := BUFFER ADDRESS " P CF A15,PLCCCA RESERVE PLC CCA P* SET CCA PARAMETERS
0x1f94bc…1f9650 Dummy {f00=0x00a4, f01=0x018e, f02=»LENGTH x P ST A2,CWTCCA+CCRLEN,A5 & P LDK A2,CMDGR COMMAND GENERAL READ . 0 P ST A2,CWTCCA+CCRDLS,A5 DLS INDEX & COMMAND X $ P CF A15,PLCCIO EXECUTE CIO START & P ABL PLDSP2 CHECK WHAT TO DO NEXT P* P EJECT P* P********
0x1f9650…1f97e4 Dummy {f00=0x00a4, f01=0x0190, f02=» R 6 P* ALL ROUTINES ARE CALLED BY A CF A15,"NAME" > P* INSTRUCTION. REGISTER INTERFACE IS DESCRIBED FOR EACH B < P* ROUTINE. ONLY REGISTERS A1-A8 & PSW ARE CONSIDERED. < P* REGISTERS NOT MENTIONED UNDER "OUTPUT" ARE UNCHANGED P*
0x1f97e4…1f9978 Dummy {f00=0x00a4, f01=0x0190, f02=»Y, Z > P* IF THE REQUESTED FUNCTION IS OCCUPIED OR NOT USEABLE, < P* EXIT TO THE LOCAL DISPATCHER AND/OR TOSS DISPATCHER. L : P* THIS MEANS THAT THE A15 STACK AT CALL MUST CONTAIN > P* INTERRUPT RETURN, A1-A8 AND NOTHING ELSE. COMPUTATION
0x1f9978…1f9b0c Dummy {f00=0x00a4, f01=0x0190, f02=» P EJECT P* 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: P* T P* NAME FUNCTION ^ P* v P* ASYNCHRONOUS ROUTINES $ P* PLCCCA RESERVE CCA FOR PROCESS P* PLCCIO EXECUTE CIO START P* P* COMPUTATI
0x1f9b0c…1f9ca0 Dummy {f00=0x00a4, f01=0x0190, f02=»DDRESS x , P* GETFR GET NUMBER OF OUTSTANDING FRAMES * P* FLWINP HANDLE FLOW CONTROL FOR INPUT > , P* FLWOUT HANDLE FLOW CONTROL FOR OUTPUT l 2 P* WRADDR WRITE LINE ADDRESS IN CCA AND BUFFER & P* STAHAN PLC RETURN STATUS HANDLER * P* GETSTA GET
0x1f9ca0…1f9e34 (2, 389) Dummy {f00=0x00a4, f01=0x0190, f02=»PLCHAR GET/PUT CHARACTER FROM/IN PLC FORMAT BUFFER * P* INTYPE DECIDE TYPE OF INPUT MESSAGE : . P* OUTBUQ REMOVE ELEMENT FROM BUFFER QUEUE h ( P* LNKFST LINK ELEMENT FIRST IN QUEUE ( P* LNKLST LINK ELEMENT LAST IN QUEUE & P* LNKOUT LINK ELEMENT
0x1f9e34…1f9fc8 Dummy {f00=0x00a4, f01=0x0190, f02=»UTINE NAME: P* PLCCCA P* $ P* FUNCTION: . 4 P* THIS ROUTINE IS CALLED WHEN A PROCESS WANTS TO B 4 P* USE THE PLC COMMAND COMMUNICATION AREA (CCA). z 4 P* IF THE AREA IS FREE, THE ROUTINE SETS IT BUSY 4 P* AND RETURNS. IF THE AREA IS
0x1f9fc8…1fa15c Dummy {f00=0x00a4, f01=0x0190, f02=» THE AREA. z 2 P* PLCCCS ALSO SAVES THE QUEUE ELEMENT ADDRESS. P* H P* CALL: R P* CF A15,PLCCCA b P* CF A15,PLCCCS z P* P* INPUT: 8 P* A3 = QUEUE ELEMENT ADDRESS SAVE AREA (IF PLCCCS) P* A5 = CWT ADDRESS P* A6
0x1fa15c…1fa2f0 Dummy {f00=0x00a4, f01=0x0190, f02=»-A4 CHANGED P* A7-A8 CHANGED ! P* CR = CHANGED ! , P* INTERR. INHIBITED ! D P* ! ` @ P************************************************************ ! j P* ! P EJECT ! P* ! PPLCCCA EQU * ! . P LDK A3,0 DON'T SAVE QUEUE ELEMENT A
0x1fa2f0…1fa484 Dummy {f00=0x00a4, f01=0x0190, f02=» ! p P LD A4,CWTCCB,A5 PLC BUSY? " $ P RF(NZ) CA100 YES, PUT IN QUEUE " * P* " R P* PLC FREE " P IM CWTCCB,A5 SET PLC BUSY " r ( P ADKL A15,4 ADJUST STACK FOR RETURN " P LDK A1,0 RETURN CODE := OK " $ P ABR* A15 RETURN IN INHIBIT MODE "
0x1fa484…1fa618 Dummy {f00=0x00a4, f01=0x0190, f02=»KIP PSW " $ P LDR* A2,A15 SAVE RETURN ADDRESS # 4 P CF A15,GETBLK GET MONITOR BLOCK AND SAVE A1-A2 # 8 P LDR A3,A3 SAVE POINTER? # p P RF(Z) CA110 NO, CONTINUE # * P STR A4,A3 SAVE QUEUE ELEMENT ADDRESS # PCA110 EQU * # P LDR A7,A5 CWT ADDRE
0x1fa618…1fa7ac Dummy {f00=0x00a4, f01=0x0190, f02=» LD A1,CWTPNR,A5 PLC NUMBER # P SLA A1,1 MAKE INDEX $ $ 4 P IM CCQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER $ @ P XIF $ x P ABL PLDSP2 LOCAL DISPATCHER $ P* $ P* $ 2 P* RETURN IS MADE HERE WHEN THE CCA IS FREE. $ 6 P* (AT A RELEASE INT
0x1fa7ac…1fa940 Dummy {f00=0x00a4, f01=0x0190, f02=»* $ PCCARST EQU * % P INH % P LDR A7,A5 CWT ADDRESS % * " P ADK A7,CWTCCQ CCA QUEUE HEAD % H , P CF A15,LNKOUT REMOVE PROCESS FROM QUEUE % n P LDK A3,0 RETURN CODE := OK % P* % P* % < P* ENTRY IS MADE HERE WHEN A REQUEST SHOULD BE A
0x1fa940…1faad4 (2, 390) Dummy {f00=0x00a4, f01=0x0190, f02=» % r P* A5 = CWT ADDRESS & P* & $ PCCAABT EQU * & . P INH & B P LDR A7,A3 SAVE RETURN CODE & N 4 P CF A15,FREBLK RETURN MONITOR BLOCK. LOAD A1-A2 & r P LDR A6,A1 PARAMETER & P LDR A1,A7 A1 := RETURN CODE & P ABR A2 RETURN & P* &
0x1faad4…1fac68 Dummy {f00=0x00a4, f01=0x0190, f02=» & P* ' P* FUNCTION: ' < P* THIS ROUTINE CHECKS IF THE PLC CAN BE USED. IF IT CAN, ' & 4 P* THE ROUTINE EXECUTES A CIO START INSTRUCTION. ' f 4 P* IF THE PLC IS NOT OPERABLE DUE TO TC POWER UP, ' < P* THE ROUTINE WILL EXIT TO TOSS DISPATCHER. IN ALL
0x1fac68…1fadfc Dummy {f00=0x00a4, f01=0x0190, f02=» ' P* ( P* INPUT: ( P* A5 = CWT ADDRESS ( " P* A1-A8 ON A15 STACK ( > P* ( Z P* OUTPUT: ( d P* A1 = RETURN CODE ( v P* 0 IF OK ( P* NOT 0 ELSE ( P* A2 = CHANGED ( P* CR = CONTENTS OF A1 ( P* INTERR. INHIBITED (
0x1fadfc…1faf90 Dummy {f00=0x00a4, f01=0x018e, f02=»15 SKIP PSW ( $ P LDR* A2,A15 GET RETURN ADDRESS ) P* ) < P EJECT ) F P* ) T ( P LD A1,PFPOST POWER UP TASK PENDING? ) ^ ( P OR A1,PLCPFP PLC POWER UP PENDING? ) . P ABL(NZ) TDISP YES, GO TO TOSS DISPATCHER ) " P LD A1,CWTOPR,A5 PLC OPERABLE? )
0x1faf90…1fb124 Dummy {f00=0x00a4, f01=0x0190, f02=» ) n & P RF(U) CS090 UNDEFINED, NOT OK =13 * P LDKL A1,0 SET CR, OK =14 * 2 P ABR A2 * T PCS090 EQU * * d P* * x * P CF A15,PLCNOP ERROR. SET NOT OPERABLE * PCS100 EQU * * . P LDK A1,NOTOPR RETURN CODE := NOT OPERABLE * P CM CWTCCB,A5 SET
0x1fb124…1fb2b8 Dummy {f00=0x00a4, f01=0x0190, f02=»********************** * j P* + P* ROUTINE NAME: + ( P* PLCNOP + @ P* + P P* FUNCTION: + Z 8 P* THIS ROUTINE SETS A FLAG TO INDICATE THAT THE PLC + n P* IS "NOT OPERABLE". + P* + P* CALL: + P* CF A15,PLCNOP + P* + P* INPU
0x1fb2b8…1fb44c Dummy {f00=0x00a4, f01=0x0190, f02=»************ + ` P* , PPLCNOP EQU * , P STR A1,A15 PUSH A1 , 2 $ P LD A1,CWTPLS,A5 GET PLC STATUS , N P RF(NZ) PN100 , v $ P LDKL A1,-1 SET DUMMY ERROR CODE , PPN100 EQU * , * P ST A1,CWTOPR,A5 SET PLC NOT OPERABLE , P* , P IFF UTT
0x1fb44c…1fb5e0 Dummy {f00=0x00a4, f01=0x0190, f02=» P LDK A1,PLCERR ERROR CODE - P OTR A1,0,/2E TO SOP LAMPS - & P DATA /6300 TRAP TO BUGGER - H PPN120 EQU * - j P* - ~ P XIF - P* - P LDR* A1,A15 POP A1 - P RTN A15 - P EJECT - P* - @ P**************************************
0x1fb5e0…1fb774 (2, 391) Dummy {f00=0x00a4, f01=0x0190, f02=»THE DWT ADDRESS FOR A - v P* DEVICE CONNECTED TO A PLC. . P* . B P* CALL: . L P* CF A15,GETDWT . P* . t P* INPUT: . ~ P* A5 = CWT ADDRESS . P* A6 = DLS INDEX . P* A7 = DEVICE ADDRESS . P* . P* OUTPUT: . " P* A6 = DW
0x1fb774…1fb908 Dummy {f00=0x00a4, f01=0x0190, f02=»************************************** . z P* / . PGETDWT EQU * / 8 P INH / L P STR A1,A15 PUSH A1 / X ( P LD* A1,CWTINT,A5 WORK STATION TABLE / t $ P CF A15,NDGEDW A6 := DWT ADDRESS / P LDR* A1,A15 POP A1 / ( P ADKL A15,4 ADJUST STACK FOR RETURN
0x1fb908…1fba9c Dummy {f00=0x00a4, f01=0x0190, f02=»************************************** / z P* 0 . P* ROUTINE NAME: 0 8 P* GETCWT 0 P P* 0 ` P* FUNCTION: 0 j 2 P* THIS ROUTINE CALCULATES THE CWT ADDRESS FOR 0 ~ * P* THE PLC CONTROLLING CALLING DEVICE. 0 P* 0 P* CALL: 0 P* CF A15,GET
0x1fba9c…1fbc30 Dummy {f00=0x00a4, f01=0x0190, f02=»ELSE 0 0 " P* A7 = 0 IF LOCAL CONNECTION 1 P* CR = CHANGED 1 4 P* 1 L @ P************************************************************ 1 V P* 1 PGETCWT EQU * 1 ( P LD A5,DWTCHP,A6 CHANNEL PARAMETERS 1 , P ANK A5,MASKPL CLEAN CHANNEL UNIT IN
0x1fbc30…1fbdc4 Dummy {f00=0x00a4, f01=0x0190, f02=» MASK =10 1 P SUKL A7,/0500 REMOTE ? 2 P RF(Z) GET010 NO 2 2 & P ADK A5,8 ADJUST INDEX FOR REMOTE 2 J P XIF 2 t , PGET010 LD A5,TABCWT,A5 A5 := CWT ADDRESS 2 P* 2 P IFT CPU852=1 2 P ADKL A15,2 SKIP PSW 2 P LDR* P,A15 RETURN 2 P X
0x1fbdc4…1fbf58 Dummy {f00=0x00a4, f01=0x018e, f02=»****************** 2 f P* 3 P* ROUTINE NAME: 3 $ P* GETFR 3 < P* 3 L P* FUNCTION: 3 V 8 P* THIS ROUTINE CALCULATES THE NUMBER OF OUTSTANDING 3 j 6 P* FRAMES, IE FRAMES THAT HAVE BEEN TRANSFERRED BUT 3 0 P* NOT ACKNOWLEDGED ON LEVEL 3, FOR A LOG
0x1fbf58…1fc0ec Dummy {f00=0x00a4, f01=0x018e, f02=» P* 4 P* CALL: 4 P* CF A15,GETIFR 4 P* CF A15,GETOFR 4 6 P* 4 N P* INPUT: 4 X P* A6 = DWT ADDRESS 4 h P* 4 P* OUTPUT: 4 P* A1 = CHANGED 4 ( P* A2 = NUMBER OF OUTSTANDING FRAMES 4 P* CR = CHANGED 4 P* 4 @ P**
0x1fc0ec…1fc280 Dummy {f00=0x00a4, f01=0x0190, f02=» 4 h P LDR A1,A2 5 . P SRL A2,9 BITS 13-15 := NEXT EXPECTED P(S) 5 * P SRL A1,5 BITS 13-15 := LAST SENT P(R) 5 L P RF GF100 TO COMMON PART 5 z P* 5 P EJECT 5 P* 5 PGETOFR EQU * 5 * P LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS 5 P LDR A1,A2
0x1fc280…1fc414 (2, 392) Dummy {f00=0x00a5, f01=0x018e, f02=»U * 5 ( P SUR A2,A1 A2 := OUTSTANDING FRAMES 6 P ANK A2,/07 CLEAN & MODULO 8 6 8 P* 6 P IFT CPU852=1 6 f P ADKL A15,2 SKIP PSW 6 | P LDR* P,A15 RETURN 6 P XIF 6 P* 6 P IFF CPU852=1 6 P RTN A15 6 P XIF 6 P* 6 P EJE
0x1fc414…1fc5a8 Dummy {f00=0x00a5, f01=0x0190, f02=» P* 7 P* FUNCTION: 7 > P* THIS ROUTINE HANDLES FLOW CONTROL FOR INPUT. IT FETCHES 7 " 8 P* FLOW CONTROL INFORMATION FROM MESSAGE AND UPDATES 7 d P* COUNTERS IN DWT. 7 2 P* FWIPR IS FOR MESSAGES ONLY CONTAINING P(R). 7 6 P* FWIPSR IS FOR MESSAGES
0x1fc5a8…1fc73c Dummy {f00=0x00a5, f01=0x0190, f02=» P* 8 P* INPUT: 8 P* A4 = BUFFER ADDRESS 8 P* A6 = DWT ADDRESS 8 < P* 8 X P* OUTPUT: 8 b P* A1 = CHANGED 8 t P* CR = CHANGED 8 P* 8 @ P************************************************************ 8 P* 8 PFWIPR EQU *
0x1fc73c…1fc8d0 Dummy {f00=0x00a5, f01=0x0190, f02=»2,A6 OLD FLOW CONTROL 8 ( P ANK A2,/0E BITS 12-14 = OLD P(S) IN 9 P ORR A1,A2 KEEP OLD P(S) 9 J P LDR* A2,A15 POP A2 9 j P RF FI100 COMMON ENDING 9 P* 9 P* 9 PFWIPSR EQU * 9 , P LC A1,X25FLW,A4 FLOW CONTROL FROM INPUT 9 P ANK A1,/E
0x1fc8d0…1fca64 Dummy {f00=0x00a5, f01=0x0190, f02=» * P SC A1,DWTLD2,A6 SAVE NEW FLOW CONTROL : P* : 2 P IFT CPU852=1 : < P ADKL A15,2 SKIP PSW : R P LDR* P,A15 RETURN : n P XIF : P* : P IFF CPU852=1 : P RTN A15 : P XIF : P* : P EJECT : P* : @ P**********************
0x1fca64…1fcbf8 Dummy {f00=0x00a5, f01=0x0190, f02=»TINE HANDLES FLOW CONTROL FOR OUTPUT. FLOW : < P* CONTROL INFORMATION IS FETCHED FROM DWT, AND COUNTERS ; 2 P* IN DWT ARE UPDATED. ; r 2 P* FWOPR IS FOR MESSAGES CONTAINING ONLY P(R). ; 6 P* FWOPSR IS FOR MESSAGES CONTAINING P(S) AND P(R). ; P* ;
0x1fcbf8…1fcd8c Dummy {f00=0x00a5, f01=0x0190, f02=»: ; P* A1 = CHANGED < P* A2 = BITS 0-7 ZERO < " P* BITS 8-10 P(R) TO SEND < @ P* BIT 11 ZERO < b * P* BITS 12-14 P(S) TO SEND IF FWOPSR < z P* ELSE ZERO < P* BIT 15 ZERO < P* CR = CHANGED < P* < @ P****
0x1fcd8c…1fcf20 Dummy {f00=0x00a5, f01=0x0190, f02=» P LDR A1,A2 = 0 P SRL A2,4 BITS 8-10 := NEXT EXPECTED P(S) IN = P* (= P(R) TO SEND) = J P ANK A2,/E0 CLEAN = h . P ANK A1,/0E BITS 12-14 = NEXT P(S) TO SEND = & P ORR A1,A2 P(S) := SAME AS BEFORE = P RF FO100 COMMON ENDING = P* = P
0x1fcf20…1fd0b4 (2, 393) Dummy {f00=0x00a5, f01=0x0190, f02=»IN = f P* (= P(R) TO SEND) > P ANK A2,/E0 CLEAN > ( . P ANK A1,/0E BITS 12-14 = NEXT P(S) TO SEND > B $ P ORR A2,A1 COUNTERS FOR MESSAGE > t P LDR A1,A2 > & P ADK A1,/02 INCREMENT P(S) TO SEND > P ANK A1,/EE MODULO 8 > P* > P* > P
0x1fd0b4…1fd248 Dummy {f00=0x00a5, f01=0x0190, f02=»DR* P,A15 RETURN > P XIF ? P* ? $ P IFF CPU852=1 ? . P RTN A15 ? D P XIF ? T P EJECT ? ` P* ? n @ P************************************************************ ? x P* ? P* ROUTINE NAME: ? P* WRADDR ? P* ? P* FUNCTION: ?
0x1fd248…1fd3dc Dummy {f00=0x00a5, f01=0x0190, f02=»ICE ADDRESS. WRADR1 SETS ? z 6 P* GROUP=1 INDICATING NO FLOW CONTROL, WRADR2 SETS @ & P* GROUP=0 INDICATING FLOW CONTROL. @ Z P* @ P* CALL: @ P* CF A15,WRADR1 @ P* CF A15,WRADR2 @ P* @ P* INPUT: @ P* A4 = BUFFER ADDRESS @ P*
0x1fd3dc…1fd570 Dummy {f00=0x00a5, f01=0x0190, f02=» @ P************************************************************ A P* A H PWRADR1 EQU * A R P LDK A2,/11 GROUP NUMBER 1 A f P RF WA100 TO COMMON PART A P* A P EJECT A P* A PWRADR2 EQU * A P LDK A2,/10 GROUP NUMBER 0 A P* A
0x1fd570…1fd704 Dummy {f00=0x00a5, f01=0x0190, f02=»WS CLEAN WS NUMBER A " P SC A2,CWTCCA+CCRDLS,A5 TO CCA B P LC A2,DWTCP2+1,A6 B @ ( P ANK A2,MASKLC CLEAN DEVICE ADDRESS B Z P SC A2,X25LCN,A4 TO BUFFER B P* B P IFT CPU852=1 B P ADKL A15,2 SKIP PSW B P LDR* P,A15 RETURN B P XIF B
0x1fd704…1fd898 Dummy {f00=0x00a5, f01=0x0190, f02=»******************** B h P* C P* ROUTINE NAME: C & P* STAHAN C > P* C N P* FUNCTION: C X 2 P* THIS ROUTINE HANDLES PLC STATUS WORD FOR ONE C l 4 P* WORK STATION. IF "NO CONNECTION", "LINK RESET" C 2 P* OR "DCE NOT OPERABLE" IS INDICATED, AN ERROR
0x1fd898…1fda2c Dummy {f00=0x00a5, f01=0x0190, f02=» P* CALL: D P* CF A15,STAHAN D P* D , P* INPUT: D 6 P* A1 = PLC STATUS D F P* A2 = WORK STATION NUMBER D ` P* A5 = CWT ADDRESS D P* D P* OUTPUT: D P* A1 = DEVICE RETURN CODE D P* CR = CHANGED D P* D @ P********
0x1fda2c…1fdbc0 Dummy {f00=0x00a5, f01=0x0190, f02=»OR? D ~ P RF(Z) SH120 NO, RETURN E P STR A4,A15 PUSH A4 E , P* E H P EJECT E R P* E ` ( P LDK A1,NOTOPR ASSUME NO CONNECTION E j " P ANKL A3,STADNO+STANOC IS IT? E P RF(NZ) SH100 YES, CONTINUE E " P LDK A1,LINERR NO, LINK ERROR E PSH
0x1fdbc0…1fdd54 (2, 394) Dummy {f00=0x00a5, f01=0x018e, f02=»:= ADDRESS OF STATUS FOR WS E ~ P SCR A1,A3 SAVE ERROR CODE F $ & P LDK A4,WSFERR WORK STATION ERROR F F " P ANR* A4,A3 ALREADY DETECTED? F p P RF(NZ) SH110 YES, RETURN F P LDK A4,WSFERR F " P ORRS A4,A3 SET ERROR DETECTED F 0 P ST A2,CWTABW,A5 IND
0x1fdd54…1fdee8 Dummy {f00=0x00a5, f01=0x018e, f02=» P* G P IFT CPU852=1 G P ADKL A15,2 SKIP PSW G $ P LDR* P,A15 RETURN G @ P XIF G Z P IFF CPU852=1 G f P RTN A15 G | P XIF G P* G P EJECT G P* G @ P************************************************************ G P* G P
0x1fdee8…1fe07c Dummy {f00=0x00a5, f01=0x0190, f02=» G 0 P* GETWSS WILL ONLY CHECK THE STATUS FOR THE H P* WORK STATION CONNECTION. H < 0 P* GETLCS WILL CHECK BOTH LOGICAL CHANNEL AND H ^ P* WORK STATION STATUS. H P* H P* CALL: H P* CF A15,GETLCS H P* CF A15,GETWSS H P* H P* IN
0x1fe07c…1fe210 Dummy {f00=0x00a5, f01=0x0190, f02=»ENTS OF A1 H P* INTERR. INHIBITED I P* I . @ P************************************************************ I 8 P* I | PGETLCS EQU * I P INH I P STR A3,A15 PUSH A3 I P* I * P LDK A1,LINERR SET RETURN CODE IN CASE I P LD A3,DWTST,A
0x1fe210…1fe3a4 Dummy {f00=0x00a5, f01=0x0190, f02=»T. CHECK WSS I ~ P* J P* J PGETWSS EQU * J ( P INH J < P STR A3,A15 PUSH A3 J H P* J d P* J n PLS100 EQU * J x P LC A3,DWTCP2,A6 WS NUMBER J P ANK A3,MASKWS CLEAN J P SLA A3,1 MAKE INDEX J P ADR A3,A5 CWT ADDRESS J P LC
0x1fe3a4…1fe538 Dummy {f00=0x00a5, f01=0x0190, f02=»1,/FF CLEAN RETURN CODE & SET CR J P ABR* A15 RETURN K ( P* K @ P EJECT K J P* K X @ P************************************************************ K b P* K P* ROUTINE NAME: K P* PLGTBU K P* K P* FUNCTION: K 8 P* THIS ROUTINE WIL
0x1fe538…1fe6cc Dummy {f00=0x00a5, f01=0x0190, f02=»U K P* L P* INPUT: L P* A7 = POOLBLOCK ADDRESS L $ P* L F P* OUTPUT: L P * P* A2 = LENGTH OF USER PART OF BUFFER L b 2 P* A4 = START OF USER PART OF BUFFER (IF ANY) L & P* CR = NOT 0 IF BUFFER ALLOCATED L P* 0 IF NO BUFFER ALLOCA
0x1fe6cc…1fe860 Dummy {f00=0x00a5, f01=0x0190, f02=»QU * L P LDR* A2,A15 SKIP PSW M $ P LDR* A2,A15 GET RETURN ADDRESS M * $ P CF A15,GETBUF A4 := BUFFER. INH M R " P ABR(Z) A2 RETURN IF NO BUFFER M z P* M $ P ST A2,0,A15 SAVE RETURN ADDRESS M & P ADK A4,BUFHLN START OF USER PART M , P ST A7,BUFLN
0x1fe860…1fe9f4 (2, 395) Dummy {f00=0x00a5, f01=0x0190, f02=»TINUE IF OK M 0 P ANK A2,0 TOO SHORT. BUFFER LENGTH & CR := 0 N PGU100 EQU * N H ( P ST A2,BUFLEN,A4 USER BUFFER LENGTH N P ABR* A15 RETURN N P* N P EJECT N P* N @ P************************************************************ N P*
0x1fe9f4…1feb88 Dummy {f00=0x00a5, f01=0x0190, f02=»AT USED BY THIS DRIVER. N P* O P* CALL: O * P* CF A15,PLRLBU O : P* O R P* INPUT: O P* A4 = BUFFER ADDRESS O l P* O P* OUTPUT: O P* A4 = CHANGED O P* CR = CHANGED O " P* INTERR. INHIBITED IF CPU 852 O P* O @ P**
0x1feb88…1fed1c Dummy {f00=0x00a5, f01=0x018e, f02=»K,A4 POOLBLOCK ADDRESS O 2 P SUK A4,BUFHLN A4 :- PHYSICAL START OF BUFFER P ( P CF A15,RELBUF RELEASE BUFFER & INH P T P LDR* A7,A15 POP A7 P P* P P IFT CPU852=1 P P ADKL A15,2 SKIP PSW P P LDR* P,A15 RETURN P P XIF P P IFF CPU85
0x1fed1c…1feeb0 Dummy {f00=0x00a5, f01=0x0190, f02=» P P* ROUTINE NAME: Q P* PLCHAR Q P* Q 0 P* FUNCTION: Q : 0 P* THESE ROUTINES ARE USED TO GET A CHARACTER Q N 4 P* FROM A BUFFER OR PUT A CHARACTER IN A BUFFER. Q 4 P* THE BUFFER SHOULD HAVE A HEADER OF THE NORMAL Q . P* PLC FORMAT (SE "BUFF
0x1feeb0…1ff044 Dummy {f00=0x00a5, f01=0x0190, f02=»INPUT: Q P* A2 = IF PUT CHAR R P* BITS 0-7 IRRELEVANT R * P* BITS 8-15 CHARACTER R H P* A4 = BUFFER ADDRESS R f P* R P* OUTPUT: R P* A1 = RETURN CODE R & P* -1 IF OVERFLOW/UNDERFLOW, ELSE R P* AT PLPUCH: 0 R , P* AT PLG
0x1ff044…1ff1d8 Dummy {f00=0x00a5, f01=0x0190, f02=». INHIBITED R P* S @ P************************************************************ S P* S b P EJECT S l P* S z PPLGECH EQU * S P INH S P* S . P LD A1,BUFLEN,A4 LENGTH OF TEXT IN BUFFER S P LD A2,BUFBIX,A4 BYTE INDEX S P SUR
0x1ff1d8…1ff36c Dummy {f00=0x00a5, f01=0x0190, f02=»2,A4 ABSOLUTE ADDRESS OF CHARACTER S P LCR A2,A2 GET CHARACTER T * P ANK A2,/FF CLEAN T J P* T d P RF CH110 NORMAL EXIT T n P* T P* T PPLPUCH EQU * T P INH T P* T P LD A1,BUFBIX,A4 BYTE INDEX T $ P CW A1,BUFLEN,A4 OUTSIDE B
0x1ff36c…1ff500 Dummy {f00=0x00a5, f01=0x0190, f02=»UT CHARACTER IN BUFFER T P LDK A1,0 RETURN CODE := OK U P RF CH110 NORMAL EXIT U B P* U ` P* U j PCH100 EQU * U t $ P LDKL A1,-1 RETURN CODE := ERROR U PCH110 EQU * U P ADKL A15,4 ADJUST STACK U P ABR* A15 RETURN U P* U P E
0x1ff500…1ff694 (2, 396) Dummy {f00=0x00a6, f01=0x0190, f02=» P* V P* FUNCTION: V 4 P* THIS ROUTINE CHECKS A GENERAL READ ANSWER FROM V " , P* THE PLC TO DETERMINE TYPE OF MESSAGE. V Z P* V P* CALL: V P* CF A15,INTYPE V P* V P* INPUT: V P* A5 = CWT ADDRESS V P* V P* OUTPUT: V
0x1ff694…1ff828 Dummy {f00=0x00a6, f01=0x0190, f02=»******************************** V t P* W ( PINTYPE EQU * W 2 ( P LDK A2,X25DAT MINIMUM INPUT LENGTH W F . P CW A2,CWTRCA+CCRLEN,A5 LENGTH >= MINIMUM? W r P RF(G) ITERR NO, ERROR W P* W P EJECT W P* W * P LD A3,CWTRCA+CCRBUF,A5 BUFFER ADDRE
0x1ff828…1ff9bc Dummy {f00=0x00a6, f01=0x0190, f02=» W . P* CHANNEL GROUP ZERO. NORMAL MESSAGES. X & P LC A3,X25FLW,A3 FLOW CONTROL BYTE X : P LDR A4,A3 SAVE X d P ANK A4,/01 FLAG X | " P RF(NZ) IT100 NOT DATA PACKET X & P LDK A3,TYDATA ASSUME NORMAL DATA X P ANK A2,/80 QUALIFY BIT SET? X ( P
0x1ff9bc…1ffb50 Dummy {f00=0x00a6, f01=0x0190, f02=» & P LDR A4,A3 SAVE FLOW CONTROL BYTE Y P ANK A3,/02 RECIEVE READY? Y . P RF(NZ) IT110 NO Y P & P LDK A3,TYRR TYPE := RECIEVE READY Y h P RF ITEXIT EXIT Y P* Y PIT110 EQU * Y & P LDK A3,TYRES ASSUME TYPE = RESET Y P ANK A4,/04 IS IT RESE
0x1ffb50…1ffce4 Dummy {f00=0x00a6, f01=0x018e, f02=» Y P* Z PIT120 EQU * Z P* NOT NORMAL MESSAGE Z & 0 P LDK A3,TYNFLO ASSUME TYPE = NO FLOW CONTROL Z F $ P SUK A4,1 IS IT NO FLOW CONTROL? Z z P RF(Z) ITEXIT YES, EXIT Z P* Z PITERR EQU * Z & P LDK A3,TYERR IRRECOVERABLE ERROR Z
0x1ffce4…1ffe78 Dummy {f00=0x00a6, f01=0x0190, f02=» Z P RTN A15 [ P XIF [ P* [ $ P EJECT [ . P* [ < @ P************************************************************ [ F P* [ P* ROUTINE NAME: [ P* OUTBUQ [ P* [ P* FUNCTION: [ 8 P* THIS ROUTINE WILL REMOVE A DWT FROM THE QUEU
0x1ffe78…20000c Dummy {f00=0x00a6, f01=0x0190, f02=» [ P* P* INPUT: P* A5 = CWT ADDRESS " P* A6 = DWT ADDRESS > P* Z P* OUTPUT: d P* A2 = NOT 0 IF DWT FOUND v P* 0 IF DWT NOT FOUND P* A4 = CHANGED P* CR = CHANGED P* @ P************************
0x20000c…2001a0 Dummy {f00=0x00a6, f01=0x0190, f02=»4,A6 DWT ADDRESS P ADKL A4,DWTOTQ QUEUE LINK ] P* ] : P LDR A7,A5 CWT ADDRESS ] D & P ADK A7,CWTSBQ SHORT BUFFERS QUEUE ] b ( P CF A15,LNKOUT REMOVE DWT FROM QUEUE ] P LDR A7,A7 FOUND? ] P RF(NZ) OB100 YES, RETURN ] P* ] P LDR A7,A5
0x2001a0…200334 (2, 397) Dummy {f00=0x00a6, f01=0x0190, f02=» FOUND / NOT FOUND ] P* ^ P LDR* A7,A15 POP A7 ^ $ P LDR* A1,A15 POP A1 ^ @ P IFT CPU852=1 ^ P ADKL A15,2 SKIP PSW ^ r P LDR* P,A15 RETURN ^ P XIF ^ P IFF CPU852=1 ^ P RTN A15 ^ P XIF ^ P* ^ P EJECT ^ P* ^ @ P
0x200334…2004c8 Dummy {f00=0x00a6, f01=0x018e, f02=»ON: ^ 2 P* THIS ROUTINE LINKS A QUEUE ELEMENT FIRST IN _ & P* A QUEUE (CLOSEST TO QUEUE HEAD). _ B 2 P* ONE WORD IN EACH ELEMENT IS USED AS A LINK. _ l 2 P* END OF QUEUE IS INDICATED BY LINK=0 IN LAST _ P* ELEMENT. _ P* _ P* CALL: _ P* CF
0x2004c8…20065c Dummy {f00=0x00a6, f01=0x0190, f02=» P* OUTPUT: ` P* A1 = CHANGED ` P* CR = CHANGED ` . P* ` F @ P************************************************************ ` P P* ` PLNKFST EQU * ` $ P LDR* A1,A7 FIRST QUEUE ELEMENT ` ( P STR A1,A4 SET LINK FROM NEW ELEMENT ` $ P S
0x20065c…2007f0 Dummy {f00=0x00a6, f01=0x0190, f02=» XIF ` P* a P EJECT a P* a $ @ P************************************************************ a . P* a r P* ROUTINE NAME: a | P* LNKLST a P* a P* FUNCTION: a 0 P* THIS ROUTINE LINKS A QUEUE ELEMENT LAST IN a * P* A QUEUE (OPOSITE
0x2007f0…200984 Dummy {f00=0x00a6, f01=0x0190, f02=»* ELEMENT. a P* b P* CALL: b P* CF A15,LNKLST b , P* b D P* INPUT: b N & P* A4 = QUEUE ELEMENT LINK ADDRESS b ^ $ P* A7 = QUEUE HEAD LINK ADDRESS b P* b P* OUTPUT: b P* A1 = CHANGED b P* A7 = CHANGED b P* CR = CHAN
0x200984…200b18 Dummy {f00=0x00a6, f01=0x0190, f02=»PRESENT ELEMENT b P LDR* A7,A7 NEXT ELEMENT c 0 P RB(NZ) LNKLST CONTINUE IF NOT LAST ELEMENT c 8 * P STR A4,A1 LINK NEW ELEMENT AFTER LAST c l * P CMR A4 SET END MARKER IN LAST ELEMENT c P* c P EJECT c P* c P IFT CPU852=1 c P RF LNKR
0x200b18…200cac Dummy {f00=0x00a6, f01=0x0190, f02=»************************************** c z P* d . P* ROUTINE NAME: d 8 P* LNKOUT d P P* d ` P* FUNCTION: d j 4 P* THIS ROUTINE REMOVES AN ELEMENT FROM A QUEUE. d ~ 2 P* ONE WORD IN EACH ELEMENT IS USED AS A LINK. d 2 P* END OF QUEUE IS INDICATED
0x200cac…200e40 Dummy {f00=0x00a6, f01=0x0190, f02=»EMENT LINK ADDRESS d $ P* A7 = QUEUE HEAD LINK ADDRESS e P* e B P* OUTPUT: e L P* A1 = CHANGED e ^ $ P* A7 = =0 IF ELEMENT NOT FOUND e v P* ><0 IF ELEMENT FOUND e P* CR = CHANGED e P* e @ P****************************************
0x200e40…200fd4 (2, 398) Dummy {f00=0x00a6, f01=0x018e, f02=» LO100 EXIT IF END OF QUEUE e P CWR A4,A7 ELEMENT FOUND? f $ " P RB(NE) LNKOUT NO, CHECK NEXT f F P* f l P EJECT f v P* f , P LDR* A7,A7 ELEMENT AFTER WANTED ELEMENT f . P STR A7,A1 SET LINK FROM PREVIOUS TO NEXT f $ P LDK A7,1 INDICATE ELEME
0x200fd4…201168 Dummy {f00=0x00a6, f01=0x0190, f02=» f j 6 P* RETURN WITHOUT CHANGING INTERRUPT ENABLE FLAG g P ADKL A15,2 SKIP PSW g B P LDR* P,A15 RETURN g ^ P XIF g x P* g P IFF CPU852=1 g P RTN A15 g P XIF g P* g P EJECT g P* g P* g P* g P* g @ P********
0x201168…2012fc Dummy {f00=0x00a6, f01=0x0190, f02=»SS BUFFER HANDLING SUBROUTINES g P* h & P* h 0 P* h : @ P************************************************************ h D P* h 6 P* THIS PROGRAM CONTAINS A SET OF BUFFER HANDLING h 6 P* SUBROUTINES. THEY OPERATE ON BUFFERS ORGANIZED h 4 P*
0x2012fc…201490 Dummy {f00=0x00a6, f01=0x0190, f02=»HE POOLBLOCK AND BUFFER h x 0 P* AREA(S) SHOULD BE SUPPLIED BY THE USER. i P* i T 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: i ^ P* i P* NAME FUNCTION i P* i " P* GETBUF GET BUFFER FROM POOL i " P* RELBUF RETURN BUFFER TO POOL i &
0x201490…201624 Dummy {f00=0x00a6, f01=0x0190, f02=» i P* j P* j $ P* POOLBLOCK LAYOUT DEFINITION j P* j D " P* POOLBLOCK WORD OFFSETS j N PPOBID EQU 0 POOL IDENTITY j t PPOBFLG EQU 2 BINARY FLAGS j $ PPOBFRE EQU 4 FREE LIST LINK HEAD j $ PPOBBUS EQU 6 BUFFER SIZE (BYTES) j " P
0x201624…2017b8 Dummy {f00=0x00a6, f01=0x0190, f02=» P* k @ P************************************************************ k P* k R P* ROUTINE NAME: k P* GETBUF k t P* k P* FUNCTION: k 4 P* THIS ROUTINE FETCHES ONE BUFFER FROM A BUFFER k & P* POOL AND GIVES IT TO THE CALLER. k P* k
0x2017b8…20194c Dummy {f00=0x00a6, f01=0x0190, f02=»A4 = BUFFER ADDRESS IF BUFFER ALLOCATED k P* ELSE ZERO l 0 P* CR = CONTENTS OF A4 l F P* INTERR.= INHIBITED l d P* l @ P************************************************************ l P* l PGETBUF EQU * l P INH l $ P LD A4,POBFRE,A7
0x20194c…201ae0 Dummy {f00=0x00a6, f01=0x0190, f02=»,A4 NEW START OF FREE LIST l " P ST A1,POBFRE,A7 TO POOLBLOCK m " P LDR* A1,A15 POP A1 m H P* m d PGB100 EQU * m n P ADKL A15,4 ADJUST STACK m $ P LDR A4,A4 CR := CONTENTS OF A4 m P ABR* A15 RETURN m P* m P EJECT m P* m @ P****
0x201ae0…201c74 (2, 399) Dummy {f00=0x00a6, f01=0x0190, f02=» m 2 P* THIS ROUTINE RELEASES ONE BUFFER AND RETURNS n P* IT TO A BUFFER POOL. n > P* n P* CALL: n f P* CF A15,RELBUF n v P* n P* INPUT: n P* A4 = BUFFER ADDRESS n P* A7 = POOLBLOCK ADDRESS n P* n P* OUTPUT: n P* CR
0x201c74…201e08 Dummy {f00=0x00a6, f01=0x0190, f02=»RELBUF EQU * n P INH o P STR A1,A15 PUSH A1 o P* o < ( P LD A1,POBFRE,A7 OLD FREE LIST START o F $ P STR A1,A4 LINK AFTER NEW BUFFER o r , P ST A4,POBFRE,A7 SET NEW FREE LIST START o P* o P LDR* A1,A15 POP A1 o P ADKL A15,4 ADJUST STACK
0x201e08…201f9c Dummy {f00=0x00a6, f01=0x0190, f02=» o P* ROUTINE NAME: p P* AREBUF p P* p 0 P* FUNCTION: p : 6 P* THIS ROUTINE ALLOCATES A SPECIFIED DATA AREA TO p N 2 P* A BUFFER POOL. THIS CAN BE DONE IN TWO WAYS. p 0 P* "INIBUF" IS USED WHEN A NEW BUFFER POOL IS p 2 P* INITIATED. IT DIVIDE
0x201f9c…202130 Dummy {f00=0x00a6, f01=0x0190, f02=»1) p b 6 P* IN THE LAST BUFFER. "LNKBUF" IS USED WHEN A NEW q 2 P* AREA IS ADDED TO AN EXISTING BUFFER POOL. IT q D 2 P* DIVIDES THE AREA INTO BUFFERS, AND LINKS THE q z & P* BUFFERS FIRST IN THE FREE LIST. q P* q P* CALL: q P* CF A15,INIBUF q
0x202130…2022c4 Dummy {f00=0x00a6, f01=0x018e, f02=» q P* CR = CHANGED IF CPU852 r P* r * @ P************************************************************ r 4 P* r x P EJECT r P* r PINIBUF EQU * r P IFT CPU852=1 r P STR A1,A15 PUSH A1 r P XIF r P* r P IFF CPU852=1 r
0x2022c4…202458 Dummy {f00=0x00a6, f01=0x018e, f02=» r P* s PLNKBUF EQU * s P IFT CPU852=1 s & P STR A1,A15 PUSH A1 s < P XIF s X P* s d P IFF CPU852=1 s n P MSR 4,A15 PUSH A1-A4 s P XIF s P* s ( P LD A1,POBFRE,A7 LINK TO OLD BUFFERS s P* s P* s PIL100 EQU * s
0x202458…2025ec Dummy {f00=0x00a6, f01=0x0190, f02=» s P STR A4,A15 t P XIF t P* t ( P EJECT t 2 P* t @ P LDR A2,A7 t J " P ADK A2,POBFRE FREE LIST START t P LDR A3,A4 t P AD A3,POBARS,A7 END OF AREA t 0 P SU A3,POBBUS,A7 HIGEST BUFFER START IN AREA t P* t PIL110 EQU * t
0x2025ec…202780 Dummy {f00=0x00a6, f01=0x0190, f02=» NO, FINISH t P* u P SLL A3,1 . =15 u P SLL A4,1 . =15 u 6 0 P STR A4,A2 SET LINK FROM PREVIOUS TO PRESENT u N P LDR A2,A4 NEW PREVIOUS u P AD A4,POBBUS,A7 NEW PRESENT u P RB IL110 TAKE NEXT BUFFER u P* u PIL120 EQU * u P S
0x202780…202914 (2, 400) Dummy {f00=0x0167, f01=0x0190, f02=»,A15 POP A1-A4 u P LDR* A3,A15 v P LDR* A2,A15 v * P LDR* A1,A15 v > P ADKL A15,2 ADJUST STACK v R P LDR* P,A15 RETURN v r P XIF v P* v P IFF CPU852=1 v P MLR 4,A15 POP A1-A4 v P RTN A15 v P XIF v P* v P IFF UTTEST=0
0x202914…202aa8 Dummy {f00=0x0167, f01=0x0190, f02=» LOGIOC v P* LOGATT w 0 P* FUNCTION: LOG MSG TYPE AND CCR+BUFFER w 4 : P* DLSSEL SPECIFIES DLS TO BE SELECTED w h & P* 0 MEANS LOG ALL w P* w 4 P* RECORD FORMAT: BYTE 1-2 MSG TYPE (CO,RE,AT
0x202aa8…202c3c Dummy {f00=0x0167, f01=0x018e, f02=»US-1 w p . P* BYTE 7 BUFFER LENGTH x 0 P* BYTE 8 PACKET HEADER -1 x > B P* BYTE 9 PACKET HEADER -2 (LOGICAL CHANNEL) x r > P* BYTE 10 PACKET HEADER -3 (FLOW CONTOL) x 6 P*
0x202c3c…202dd0 Dummy {f00=0x0167, f01=0x0190, f02=» x v P* ELSE DLS TO BE LOGGED y P XIF y * PPLCLOG EQU * y 6 P IFF UTTEST=0 y J 2 PLOGPTR DATA LOGARE RECORD POINTER IN LOG AREA y ` PLOGARE RES 960 LOG AREA y PLOGEND EQU * y ( P DATA 'ENDLOG' MARK END OF LOG AREA y 2 P*-----------------
0x202dd0…202f64 Dummy {f00=0x0167, f01=0x018e, f02=» STR A3,A15 y P XIF z P IFF UTTEST=0 z P IFF CPU852=1 z 6 P MSR 3,A15 PUSH A1-A3 z L P XIF z j P IFF UTTEST=0 z v P LDKL A1,'CO' MSG TYPE z P LDK A2,CWTCCA CCA OFFSET z P RF LOG:10 z P z " PLOGIOC EQU * SUBROUTINE ENTRY z
0x202f64…2030f8 Dummy {f00=0x0167, f01=0x018e, f02=» z P MSR 3,A15 PUSH A1-A3 { P XIF { & P IFF UTTEST=0 { 2 P LDKL A1,'RE' MSG TYPE { H P LDK A2,CWTRCA RCA OFFSET { f P RF LOG:10 { P { " PLOGATT EQU * SUBROUTINE ENTRY { P IFT CPU852=1 { P STR A1,A15 { P STR A2,A15 { P S
0x2030f8…20328c Dummy {f00=0x0167, f01=0x0190, f02=» P LDKL A1,'AT' MSG TYPE | P LDK A2,CWTRCA RCA OFFSET | " 0 P*------------------------------------------ | D PLOG:10 EQU * COMMON PART | x P LD A3,LOGPTR | P STR A1,A3 LOG MSG TYPE | P ADR A2,A5 CCR PTR | P LD A1,DLSSEL SELECTED DLS |
0x20328c…203420 Dummy {f00=0x0167, f01=0x018e, f02=» INDEX | | " P ST A1,2,A3 +COMMAND INTO LOG } P LD A1,CCRSTA,A2 STATUS-1 } 4 P ST A1,4,A3 LOG STATUS-1 } V " P LD A1,CCRLEN,A2 BUFFER LENGTH } v P SC A1,6,A3 INTO LOG } $ P LD A2,CCRBUF,A2 BUFFER ADDRESS } P LDR* A1,A2 BYTE 0-1 } P SC A1,8,A3
0x203420…2035b4 (2, 401) Dummy {f00=0x0167, f01=0x018e, f02=» } P SRL A1,8 ~ P SC A1,9,A3 ~ P LD A1,4,A2 BYTE 2-3 ~ . P SC A1,12,A3 ~ J P SRL A1,8 ~ ^ P SC A1,11,A3 ~ p P LD A1,6,A2 BYTE 4-5 ~ P SC A1,14,A3 ~ P SRL A1,8 ~ P SC A1,13,A3 ~ P LD A1,8,A2 ~ P SRL A1,8 ~ P SC A1,1
0x2035b4…203748 Dummy {f00=0x0167, f01=0x4164, f02=» ~ | P LDKL A1,LOGARE RESET PTR P ST A1,LOGPTR * PLOG:20 EQU * @ P IFT CPU852=1 T P LDR* A3,A15 RESTORE j P LDR* A2,A15 P LDR* A1,A15 P ADKL A15,4 P ABR* A15 RETURN P XIF P IFF UTTEST=0 P IFF CPU852=
0x203748…2038dc Dummy {f00=0x0167, f01=0x2008, f02=» n PDRRET2 EQU * 0 & ! ADK A5,4 ADJUST STACK FOR RETURN 0 " LDR A1,A1 SET RETURN CODE 0 L INH 0 n ABR* A5 RETURN 0 z * 0 * 0 P* 0 PIHPL01 EQU * 0 PIHPL02 EQU * 0 PIHPL03 EQU * 0 PIHPL04 EQU * 0 P* 0
0x2038dc…203a70 Dummy {f00=0x0167, f01=0x0190, f02=»
[…0x4…]
0x2040c0…204254 (2, 402) Opaque[0x194]
0x204254…2043e8 # DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14e0, f03=0x0000}
0x204254…2043e8 IdxSect {
0x204254…2043e8 f00 = 0x00a7 // 0x204254 @0x0
0x204254…2043e8 f01 = 0x000a // 0x204256 @0x2
0x204254…2043e8 gno = [ // 0x204258 @0x4
0x204254…2043e8 [0x00]: C0x00a7.0x0.0
0x204254…2043e8 [0x01]: C0x00a7.0x1.0
0x204254…2043e8 [0x02]: C0x00a7.0x2.0
0x204254…2043e8 [0x03]: C0x00a7.0x3.0
0x204254…2043e8 [0x04]: C0x00a8.0x0.0
0x204254…2043e8 ]
0x204254…2043e8 }
0x2043e8…20457c Dummy {f00=0x00a7, f01=0x018e, f02=» 2 P IDENT DRIC01 REL 11.0 81-04-02 870105041100 P : & P =1, ADDR.WR.REQ.IN WRONG QUEUE B P =1, REL 11.0 81-01-26 l P* P* 2 P********************************************** P* 2 P* PHILIPS TERMINAL SYSTEM PTS
0x20457c…204710 Dummy {f00=0x00a7, f01=0x0190, f02=» 2 P********************************************** P* : 8 P* THIS MODULE HANDLES THE INTERTASK COMMUNICATION D P* P EJECT DRIC01 P* P* P*********** P* ENTRIES * P*********** P* P* P E
0x204710…2048a4 Dummy {f00=0x00a7, f01=0x0190, f02=»***** P* EXTERNALS * P************* $ P* : P* D P EXTRN TDISP DISPATCHER N P EXTRN TENDIO ENDIO n P EXTRN DISIOE REQUEST ERROR & P EXTRN DISEND TENDIO AND DISPATCH P EXTRN DWTST DWT STATUS P EXTRN DWTECB EC
0x2048a4…204a38 Dummy {f00=0x00a7, f01=0x0190, f02=» P EXTRN SETIMP TIMER , P EXTRN FNDTID FIND TTAB ADDRESS FROM TID & P EXTRN TTB:ID TASK IDENTIFICATION P P EXTRN TTB:ST TASK STATUS z " P EXTRN TTB:TD TERMINAL DEVICES 4 P EXTRN IHRTN RTN A15 WITHOUT ENABLING INTERRUPTS $ P EXTRN ECBBA E
0x204a38…204bcc Dummy {f00=0x00a7, f01=0x0190, f02=»ORD v P EJECT DRIC01 TOSSIO P* , P* 6 . P***************************************** @ P* r P* CONDITIONAL ASSEMBLY | P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGIN
0x204bcc…204d60 Dummy {f00=0x00a7, f01=0x0190, f02=»EXTENDED INSTRUCTION r . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* N PCPU852 EQU 0 X P* l P* MMU BUFFER SIZE v P* PX:A EQU 50 PDVBLEN EQU 999 P* P* INTERTASK DEVICE INDEX P* PDEVIND EQU 8
0x204d60…204ef4 (2, 403) Dummy {f00=0x00a7, f01=0x0190, f02=»* | P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* R P IFT MMUPAG=0 PSTART EQU DWTDRD r P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF P* & PDWTTP EQU START+/00 TIMER POINTER
0x204ef4…205088 Dummy {f00=0x00a7, f01=0x0190, f02=»DRESS l P* P EJECT DRIC01 P* 0 P* : P***************** D P* ADDRESS BLOCK * ^ P***************** x P* P* ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE ( P DATA DEVIND INTERTASK DEVICE INDEX & PITAD DATA
0x205088…20521c Dummy {f00=0x00a7, f01=0x0190, f02=» ^ 8 PWR:QUE DATA 0 QUEUE ANCHOR NOT-ADDRESSED WRITE REQ. P* D $ P* INTERTASK DRIVER BUFFER (MMU) N P* v PIT:BUF EQU * P IFT MMUPAG=1 P RES DVBLEN+1 MMU BUFFER P XIF P* P EJECT DRIC01 P* P* A
0x20521c…2053b0 Dummy {f00=0x00a7, f01=0x0190, f02=» P* ENTRY PARAMETERS: P* P* A5 = STACK BASE 2 IN DWT * P* A6 = DWT ADDRESS L P* A7 = ORDER CODE f P* A8 = ECB ADDRESS * P* A12= ADDRESS TO DRIVER ADDRESS BLOCK P* PICAD EQU * P LDR A1,A7 ORDER CODE * P LD A7
0x2053b0…205544 Dummy {f00=0x00a7, f01=0x0190, f02=»EQUEST | P SUK A1,/39-/06 P RF(NZ) DIS:OE REQUEST ERROR & P* J P EJECT DRIC01 T P* l P* S E T T I M E O U T v P* P ST A7,DWTIME,A6 P RF END:IO P* P* REQUEST ERROR EXIT P* $ PDIS:OE ABL D
0x205544…2056d8 Dummy {f00=0x00a7, f01=0x0190, f02=»SED REQUEST OR NOT v P ADK A7,0 CHECK ADDRESS MODE . P ABL(Z) RD:NAD NOT-ADDRESSED READ REQUEST > P* p P* WRITE REQUEST ENTRY z P* 8 PWRITE EQU * CHECK IF ADDRESSED WRITE REQUEST OR NOT P ADK A7,0 CHECK ADDRESS MODE . P RF(Z)
0x2056d8…20586c Dummy {f00=0x00a7, f01=0x0190, f02=»W R I T E, A D D R E S S E D P* $ $ P* FIND TTAB OF ADDRESSED TASK . P* V & P CF A15,FNDTID TTAB ADDRESS TO A2 ` P ADK A2,0 SET CR P RB(Z) DIS:OE NOT FOUND 4 P ADKL A2,TTB:TD ADDRESS TO TERMINAL DEVICE TABLE P LDR* A1,A2 TA
0x20586c…205a00 Dummy {f00=0x00a7, f01=0x0190, f02=»RIC01 P* $ P* FIND DWT OF ADDRESSED TASK P* @ 0 PITC:05 ADK A2,4 ADDRESS TO NEXT DWT ADDRESS J P SUK A1,4 ~ P RB(N) DIS:OE NOT FOUND P* P LDR* A4,A2 DWT ADDRESS " P CW A7,DWTADR,A4 SEARCHED DWT P RB(NE)
0x205a00…205b94 (2, 404) Dummy {f00=0x00a7, f01=0x0190, f02=»QUE,A2 QUEUE ANCHOR ADDRESS " P CWR A1,A6 CHECK QUEUE ANCHOR $ . P RF(E) ITC:10 REQUEST ISSUED FOR THIS TASK J P* | P ANK A7,1 P RF(Z) ITC:45 READ P CWK A1,RD:QUE 4 P RF(NE) ITC:50 NO READ REQUEST IN READ QUEUE =1 P*
0x205b94…205d28 Dummy {f00=0x00a7, f01=0x0190, f02=»D:N05 READ P* P EJECT DRIC01 P* 4 P* MOVE BUFFER > P* V PITC:15 EQU * ` P LD A8,DWTECB,A6 SENDING ECB t P LDK A1,0 " P LD A9,DWTECB,A2 RECEIVING ECB , P LD A3,ECBRL,A8 SENDING REQUESTED LENGTH P RB(NP)
0x205d28…205ebc Dummy {f00=0x00a7, f01=0x0190, f02=»NP) DIS:OE P* PITC:20 EQU * P IFT MMUPAG=1 0 2 P LDKL A4,ITAD ADDRESS TO DRIVER ADDRESS BLOCK F * P CW A3,BUFLEN,A4 CHECK MMU BUFFER SIZE | * P RF(NG) ITC:25 MMU BUFFER LARGE ENOUGH & P LDKL A1,/8008 NO, INDICATE ERROR 0 P RF EN
0x205ebc…206050 Dummy {f00=0x00a7, f01=0x0190, f02=»TH r $ P ST A3,ECBEL,A9 EFFECTIVE LENGTH P* 2 P IFT MMUPAG=0 < P ENB R * P LD A4,ECBBA,A8 SENDING BUFFER ADDRESS ^ , P LD A7,ECBBA,A9 RECEIVING BUFFER ADDRESS P* ( PITC:30 LCR A5,A4 MOVE ONE CHARACTER P SCR A5,A7 P ADK
0x206050…2061e4 Dummy {f00=0x00a7, f01=0x0190, f02=»ER SENDING TASK ID TO RECEIVING ECB AND VICE VERSA P* : ( P LD A3,DWTTAB,A2 TTAB RECEIVING TASK D P LD A3,TTB:ID,A3 TASK ID p 2 P ST A3,ECBCW,A8 RETURN TASK ID TO SENDING TASK & P LD A3,DWTTAB,A6 TTAB SENDING TASK P LD A3,TTB:ID,A3 TASK ID
0x2061e4…206378 Dummy {f00=0x00a7, f01=0x0190, f02=»1 8 P LD A3,ECBBA,A8 DRIVER BUFFER ADDRESS (EVEN/UNEVEN) $ P ST A3,ECBBA,A9 SET IN OTHER DWT F P XIF n P* z PEND:IO EQU * 0 P ABL DISEND END REQUEST VIA TENDIO AND TDISP P* PITC:35 EQU * P CMR A6 RESET QUEUE LINK
0x206378…20650c Dummy {f00=0x00a7, f01=0x0190, f02=»ITC:45 EQU * P CWK A1,WR:QUE ( P RB(E) ITC:10 COMPLEMENTARY REQUEST * P* V . PITC:50 LDK A7,0 INDICATE ADDRESSED REQUEST ` P* 2 P* CHECK TIMER VALUE AND SET TIMER IF REQUESTED P* PITC:60 EQU * P LD A3,DWTIME,A6 TIME
0x20650c…2066a0 Dummy {f00=0x00a7, f01=0x0190, f02=» b P LDK A4,DWTTP P ADR A4,A6 TIMER POINTER P ST A3,TIME > P CF A15,SETIMP SET TIMER R P DATA TIMOUT TIMEOUT ADDRESS r PTIME DATA 0 P* P EJECT DRIC01 P* ( P* INSERT IN QUEUE WITHIN PRIORITY P*
0x2066a0…206834 (2, 405) Dummy {f00=0x00a7, f01=0x0190, f02=» x P SUK A7,1 ( P RF(Z) ITC:80 NOT-ADDRESSED REQUEST : P ADK A2,DWTANC POINT TO ADDRESS OF FIRST DWT IN QUEUE F P* PITC:80 LDR A4,A2 SAVE P LDR* A2,A2 NEXT IN QUEUE P RF(Z) ITC:90 END FOUND " P LD A5,DWTTAB,A2 TTAB ADDR
0x206834…2069c8 Dummy {f00=0x00a7, f01=0x0190, f02=» P ABL TDISP GO TO DISPATCHER P* , P EJECT DRIC01 6 P* N * P* W R I T E, N O T A D D R E S S E D X P* & PWR:NAD EQU * WRITE, NOT-ADDRESSED < P LD A2,DWTANC,A6 CHECK QUEUE OF ADDRESSED READ REQUESTS $ P RF(NZ) WR:N10
0x2069c8…206b5c Dummy {f00=0x00a7, f01=0x0190, f02=»REMOVE FROM QUEUE & P ST A3,RD:QUE UPDATE QUEUE ANCHOR P* D , PWR:N05 CF A15,ABTIM2 ABORT TIMER IF ANY N P RB ITC:15 ~ P* ( PWR:N10 LDR* A3,A2 REMOVE FROM QUEUE ( P ST A3,DWTANC,A6 UPDATE QUEUE ANCHOR P RB WR:N05 P*
0x206b5c…206cf0 Dummy {f00=0x00a7, f01=0x018e, f02=»60 INSERT IN QUEUE P* P EJECT DRIC01 $ P* < ( P* R E A D, N O T A D D R E S S E D F P* r $ PRD:NAD EQU * READ, NOT-ADDRESSED | < P LD A2,DWTANC,A6 CHECK QUEUE OF ADDRESSED WRITE REQUESTS $ P RF(NZ) RD:N10 ANYTHING IN QUEUE
0x206cf0…206e84 Dummy {f00=0x00a7, f01=0x0190, f02=» l & P ST A3,WR:QUE UPDATE QUEUE ANCHOR P* 2 PRD:N00 EQU * < & P CF A15,ABTIM2 ABORT TIMER IF ANY P P* z PRD:N05 EQU * " P XRR A2,A6 EXCHANGE A2 AND A6 P XRR A6,A2 P XRR A2,A6 P RB ITC:15 P* ( PRD:N10 LDR
0x206e84…207018 Dummy {f00=0x00a7, f01=0x0190, f02=»DDRESS r P RB WR:N30 INSERT IN QUEUE P* 0 P EJECT DRIC01 : P* R P* T I M E O U T P* t 0 P* THIS ENTRY IS CALLED AT TIMEOUT. IT WILL ~ 4 P* RESET TIMER POINTER AND REMOVE DWT FROM QUEUE 2 P* BEFORE TERMINATING THE REQU
0x207018…2071ac Dummy {f00=0x00a7, f01=0x0190, f02=» EQU * " P CM* 0,A2 RESET TIMER POINTER P LDR A2,A1 4 ( P CF A15,ABR:10 REMOVE DWT FROM QUEUE F P LDR A6,A2 DWT ADDRESS r 0 P RB ITC:40 END REQUEST VIA TENDIO AND TDISP P* P EJECT DRIC01 P* P* I T A B R T P*
0x2071ac…207340 Dummy {f00=0x00a7, f01=0x0190, f02=» REQUEST VIA TENDIO. | P* P* INPUT: A6 = DWT ADDRESS & P* A8 = ECB ADDRESS J P* f PITABRT EQU * p P LDR A2,A6 8 P CF A15,ABREQ ABORT TIMER AND REMOVE DWT FROM QUEUE P LDK A1,0 RETURN CODE 0 P RB END:IO END REQUEST V
0x207340…2074d4 (2, 406) Dummy {f00=0x00a8, f01=0x0190, f02=» QUEUE. n P* P* INPUT: A2 = DWT ADDRESS P* > $ P* OUTPUT: A1, A3 ARE DESTROYED H P* p PABREQ EQU * z P CF A15,ABTIM ABORT TIMER P* P* REMOVE DWT FROM QUEUE P* PABR:10 EQU * " P LD A1,DWTQUE,A2
0x2074d4…207668 Dummy {f00=0x00a8, f01=0x0190, f02=»ESSED WRITE REQUEST z : P ADK A1,DWTANC POINT TO ADDRESS OF FIRST DWT IN QUEUE P* Z PABR:20 LDR A3,A1 SAVE d P LDR* A1,A1 NEXT IN QUEUE P CWR A1,A2 SEARCHED DWT P RB(NE) ABR:20 NO " P LDR* A1,A1 REMOVE FROM QUEUE " P STR
0x207668…2077fc Dummy {f00=0x00a8, f01=0x0190, f02=»* A B T I M P* . P* SUBROUTINE FOR ABORTING TIMER (IF ANY). P* P P* INPUT: A2 = DWT ADDRESS Z P* ~ $ P* OUTPUT: A1, A3 ARE DESTROYED P* PABTIM2 EQU * P CMR A2 RESET QUEUE LINK P* PABTIM LDK A1,DWT
0x2077fc…207990 Dummy {f00=0x00a8, f01=0x40d0, f02=»DICATE NO TIMER SET P* ! P IFT CPU852=1 ! & PIH:RTN ABL IHRTN ! < P XIF ! T P* ! ` P IFT CPU852=0 ! j PIH:RTN RTN A15 ! P XIF ! P* ! P* ! P* ! P END ! @ ! MR A2 RESET QUEUE LINK P* PABTIM LDK A1,DWT
0x207990…207b24 Dummy {f00=0x00a8, f01=0x2008, f02=» " A5 END @ ODE LD A3,4,A1 0 D MOV:10 EQU * L & " LD A4,2,A8 SENDING BUFFER ADDRESS ` " LD A7,2,A2 REC. BUFFER ADDR. ADR A3,A4 END OF BUFFER CWR A4,A3 " RF(E) MOV:20 ALL CHAR. MOVED
0x207b24…207cb8 Dummy {f00=0x00a8, f01=0x0190, f02=» P* # PCWTPLC EQU * # PTABCWT EQU * # " P IFF PLCNRL=0 # 6 " P DATA PL0CWT CWT FOR PLC NR 1 # L P IFF PLCNRL=1 # r " P DATA PL1CWT CWT FOR PLC NR 2 # P IFF PLCNRL=2 # " P DATA PL2CWT CWT FOR PLC NR 3 # P IFF PLCNRL=3 # " P DATA PL
0x207cb8…207e4c Dummy {f00=0x00a8, f01=0x018e, f02=»ATA 0 PLC NR 3 NOT CONNECTED # P IFF PLCNRL=2 $ $ " P DATA 0 PLC NR 2 NOT CONNECTED $ : P IFF PLCNRL=1 =5 $ ` & P DATA 0 PLC NR 1 NOT CONNECTED =5 $ z P XIF $ P* $ P IFF PLCNRR=0 $ ( P DATA PR1CWT CWT FOR PLC NR. 5, REM. $ P IFF PLCNRR=
0x207e4c…207fe0 Dummy {f00=0x00a8, f01=0x0190, f02=» $ ( P DATA PR4CWT CWT FOR PLC NR. 8, REM. % P XIF % 4 P* % @ P IFF PLCNRR=4 % J " P DATA 0 PLC NR 8 NOT CONNECTED % ` P IFF PLCNRR=3 % " P DATA 0 PLC NR 7 NOT CONNECTED % P IFF PLCNRR=2 % " P DATA 0 PLC NR 6 NOT CONNECTED % P IFF PLCNR
0x207fe0…208174 (2, 407) Opaque[0x194]
0x208174…208308 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1508, f03=0x0000}
0x208174…208308 IdxSect {
0x208174…208308 f00 = 0x00a8 // 0x208174 @0x0
0x208174…208308 f01 = 0x003e // 0x208176 @0x2
0x208174…208308 gno = [ // 0x208178 @0x4
0x208174…208308 [0x00]: C0x00a8.0x1.0
0x208174…208308 [0x01]: C0x00a8.0x2.0
0x208174…208308 [0x02]: C0x00a8.0x3.0
0x208174…208308 [0x03]: C0x00a9.0x0.0
0x208174…208308 [0x04]: C0x00a9.0x1.0
0x208174…208308 [0x05]: C0x00a9.0x2.0
0x208174…208308 [0x06]: C0x00a9.0x3.0
0x208174…208308 [0x07]: C0x00aa.0x0.0
0x208174…208308 [0x08]: C0x00aa.0x1.0
0x208174…208308 [0x09]: C0x00aa.0x2.0
0x208174…208308 [0x0a]: C0x00aa.0x3.0
0x208174…208308 [0x0b]: C0x00ab.0x0.0
0x208174…208308 [0x0c]: C0x00ab.0x1.0
0x208174…208308 [0x0d]: C0x00ab.0x2.0
0x208174…208308 [0x0e]: C0x00ab.0x3.0
0x208174…208308 [0x0f]: C0x00ac.0x0.0
0x208174…208308 [0x10]: C0x00ac.0x1.0
0x208174…208308 [0x11]: C0x00ac.0x2.0
0x208174…208308 [0x12]: C0x00ac.0x3.0
0x208174…208308 [0x13]: C0x00ad.0x0.0
0x208174…208308 [0x14]: C0x00ad.0x1.0
0x208174…208308 [0x15]: C0x00ad.0x2.0
0x208174…208308 [0x16]: C0x00ad.0x3.0
0x208174…208308 [0x17]: C0x00ae.0x0.0
0x208174…208308 [0x18]: C0x00ae.0x1.0
0x208174…208308 [0x19]: C0x00ae.0x2.0
0x208174…208308 [0x1a]: C0x00ae.0x3.0
0x208174…208308 [0x1b]: C0x00af.0x0.0
0x208174…208308 [0x1c]: C0x00af.0x1.0
0x208174…208308 [0x1d]: C0x00af.0x2.0
0x208174…208308 [0x1e]: C0x00af.0x3.0
0x208174…208308 ]
0x208174…208308 }
0x208308…20849c Dummy {f00=0x00a8, f01=0x0190, f02=» 4 P IDENT DRDC15 REL 11.0 DK 82-07-08 870105041100 P < " P =17, RETURN CODE AT CONNECT D ( P =16, DLOBUF DESTROYED AT CONNECT j . P =15, NO NEED TO RES 1 WORD BEFORE DATA * P =14, LOSS OF DRIVER RECEIVE BUFFER P REL 11.0 81-05-
0x20849c…208630 Dummy {f00=0x00a8, f01=0x0190, f02=» =11, PROCEDURE TIMER PROBLEM P =10, EOT ON SPECIFIC POLL ( $ P =9, REMAINING TIME IN ECBCW1 L P REL 11.0 81-04-12 t " P =8, ODD USER BUFFER ADDRESS P =7, BINARY STORE PROBLEM P REL 11.0 81-04-07 ( P =6, ERROR IN PO
0x208630…2087c4 Dummy {f00=0x00a8, f01=0x0190, f02=»ETE INSTRUCTIONS NOT USED $ P =2, CHANGES IN STATUS HANLING " ( P =1, ERROR IN OPEN/CLOSE REQUESTS J P REL 11.0 81-01-26 v P* P* 2 P********************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x2087c4…208958 Dummy {f00=0x00a8, f01=0x0190, f02=»SV1 x P* P* P* P* * P* 4 8 P**************************************************** > P EJECT z P* P* P* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT IN
0x208958…208aec Dummy {f00=0x00a8, f01=0x0190, f02=»JECT P* P* P* EXTERNAL REFERENCES P* > " P EXTRN TDISP DISPATCHER ENTRY H ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK n $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN SETIME SET TIMER P EXTRN DWTCHP DWT ADDRESS P EXT
0x208aec…208c80 Dummy {f00=0x00a8, f01=0x0190, f02=»USER ECB IF MMU P EXTRN DWTMEC MMU ECB P EXTRN ECBFC FILE CODE 6 P EXTRN ECBBA BUFFER ADDRESS T " P EXTRN ECBRL REQUESTED LENGTH x " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBCW1 CONTROL WORD 1 P EXTRN ECBCW2 CONTROL WORD 2
0x208c80…208e14 (2, 408) Dummy {f00=0x00a8, f01=0x0190, f02=» TO ASCII TABLE | . P EXTRN DCSRED READ STATISTICS ENTRY POINT : P EXTRN DCSRLL RESET ALL STATISTICS BUFFERS ENTRY POINT J : P EXTRN DCSUPS UPDATE STATISTICS ENTRY POINT IN DCSTAT 8 P EXTRN GETDNA VALIDATE AND CONVERT SYMBOLIC DTE ADDR 8 P EXTRN
0x208e14…208fa8 Dummy {f00=0x00a8, f01=0x018e, f02=»FFER l 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH * P EXTRN PFPOST WAIT FOR POWER UP IF SET @ P EJECT n J P********************************************************************** ~ P* P* REGISTER USAGE: P* P* A1 WORK (RET
0x208fa8…20913c Dummy {f00=0x00a8, f01=0x0190, f02=» P* A6 DWT ADDRESS $ P* A7 ORDER CODE, DTETAB ADDRESS P* A8 ECB ADDRESS D P* L P************************************************************************ f P EJECT < P******************************************************* P*
0x20913c…2092d0 Dummy {f00=0x00a8, f01=0x0190, f02=»X:B EQU 0 IF 1 INTERRUPT LOGGING PLOGG EQU X:B ( " PX:C EQU 600 POLL TIMEOUT VALUE < PTIMPOL EQU X:C b * PX:D EQU 0 STATUS AND RVI HANDLING IF=1 x PSTARVI EQU 1 * PX:E EQU 0 READ COMMAND HANDLING IF =1 PRCOM EQU 1 & PX:F EQU 252
0x2092d0…209464 Dummy {f00=0x00a8, f01=0x018e, f02=»C POLL HANDLING z PSPECP EQU X:H , PX:I EQU 0 IF = 1 LINE SPEED SET TO HIGH . ( P IF = 0 LINE SPEED IS SET TO LOW ^ PSPEED EQU 1 * PX:J EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU X:J . PX:K EQU 2 NUMBER OF RECEIVE BUFFERS (2-5
0x209464…2095f8 Dummy {f00=0x00a8, f01=0x0190, f02=» , PLCUIN EQU X:M DEVICE ADDRESS OF RECEIVER P XIF 8 P IFT P6805=1 D , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER X P XIF P IFT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCUZ P I
0x2095f8…20978c Dummy {f00=0x00a8, f01=0x0190, f02=» IF 1 IBM CHARACTER HANDLING . PX:O EQU 0 IF 1 MESSAGE PASSING TO DC TASK $ PMESPAS EQU X:O V 4 PX:P EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 l PEM3270 EQU 1 PX:Q EQU 0 * PTPMODE EQU X:Q IF = 1 TRANSPARANT MODE PX:R EQU 0 .
0x20978c…209920 Dummy {f00=0x00a8, f01=0x0190, f02=» TRANSMISSION x , PDMRK EQU 1 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT F 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT ~ 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". P =2 P PREMTIM EQU 0
0x209920…209ab4 (2, 409) Dummy {f00=0x00a8, f01=0x0190, f02=»EIVE REQUESTS =9 ~ P* P IFT SPEED=1 " PLSPEED EQU /0200 6 P XIF N P IFT SPEED=0 Z PLSPEED EQU 0 n P XIF P EJECT P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY
0x209ab4…209c48 Dummy {f00=0x00a8, f01=0x0190, f02=»BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 * P* > P* H 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION R . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* 0 PDEVIND EQU 0 DEVICE INDEX DATA COM
0x209c48…209ddc Dummy {f00=0x00a8, f01=0x0190, f02=» j P* 2 P* DCDEFS COMMON DEFS FOR DC DRIVERS/PACKAGES P* H * P************************************** R P , P*************************************** P* P* TABLE AND PACKET LAYOUTS P* , P************************
0x209ddc…209f70 Dummy {f00=0x00a8, f01=0x0190, f02=»* P* DWT, DEVICE WORK TABLE P* * L P************************************************************************ 4 P* P* ................... P* 0 . DWTCHP . P* ................... P* 2 . DWTST
0x209f70…20a104 Dummy {f00=0x00a8, f01=0x018e, f02=»OR . | P* ................... P* 8 . DWTADR . 0 P* ................... R P* 10 . DWTTAB . t P* ................... P* 12 . DWTWAT . P* ................... P* 14 . DWT
0x20a104…20a298 Dummy {f00=0x00a8, f01=0x0190, f02=» , P* (18). DWTMEC . IF MMUPAG P* ................... 4 $ P* DWTDRD +2 . DWTSTB . V $ P* ................... ~ P* +4 . DWTCHD . P* ................... P* +6 . DWTCHN .
0x20a298…20a42c Dummy {f00=0x00a8, f01=0x0190, f02=» P* ................... P* +12 . DWTDR1/SUB . & P* ................... H P* +14 . DWTRCL . j P* ................... P* +16 . DWTRTV . P* ................... P* +18 . DWTRTP
0x20a42c…20a5c0 Dummy {f00=0x00a8, f01=0x0190, f02=» . z P* ................... P* +24 . DWTIPC . . P* ................... P P* +26 . DWTIPT . r P* ................... P* +28 . . P* / DRIVER DEPEND / P* /
0x20a5c0…20a754 (2, 410) Dummy {f00=0x00a9, f01=0x0190, f02=» /=0 ` P* / BUFFER / P* ................... . P* P P EJECT Z P* h > P********************************************************* r P* & P* D W T D I S P L A C E M E N T S P* > P**********************
0x20a754…20a8e8 Dummy {f00=0x00a9, f01=0x0190, f02=» OF DRIVER DEPENDENT AREA x P XIF " P IFT MMUPAG=1 . 6 PDWTDRD EQU DWTTQ+6 START OF DRIVER DEPENDENT AREA D P XIF ~ D PDWTSTB EQU DWTDRD OFFSET REL START DWT TO STATISTIC BUFF IF ANY 2 PDWTCHD EQU DWTDRD+2 CONFIG CHAIN LINK HEAD DWT 2 P
0x20a8e8…20aa7c Dummy {f00=0x00a9, f01=0x0190, f02=»YMBOLIC DTE ADDRESS t * PDWTDR1 EQU DWTDRD+10 DRIVER DEP WORD 1 * PDWTSUB EQU DWTDR1 SYMBOLIC SUBADDRESS J . PDWTRCL EQU DWTDRD+12 REQUEST CONTROL WORD x , PDWTRTV EQU DWTDRD+14 REQUEST TIMER VALUE . PDWTRTP EQU DWTDRD+16 REQUEST TIMER POINTER
0x20aa7c…20ac10 Dummy {f00=0x00a9, f01=0x0190, f02=»TIPC EQU DWTDRD+22 I/P DATA Q LINK TO BUFFER 0 PDWTIPT EQU DWTDRD+24 I/P DATA TIMER POINTER 4 ( PDWTCUR EQU DWTDRD+26 CURSOR ADDRESS h . PDWTBUF EQU DWTDRD+28 DEVICE BUFFER ADDRESS $ PDWTSTA EQU DWTDRD+30 DWT STATUS P EJECT J P************
0x20ac10…20ada4 Dummy {f00=0x00a9, f01=0x0190, f02=»****************************************************** ~ P* > P* ................... H P* 0 . DTECHP . j P* ................... P* 2 . DTEST . P* ................... P* 4 . DTEECB
0x20ada4…20af38 Dummy {f00=0x00a9, f01=0x0190, f02=» . z P* ................... P* 10 . DTETAB . . P* ................... P P* 12 . DTEWAT . r P* ................... P* 14 . DTETQ . P* ................... , P* (16). DTEUE
0x20af38…20b0cc Dummy {f00=0x00a9, f01=0x0190, f02=»..... | $ P* DTEDRD +2 . DTESTB . $ P* ................... 6 P* +4 . DTECHD . ^ P* ................... P* +6 . DTECHN . P* ................... P* +8 . DTELAD . P
0x20b0cc…20b260 Dummy {f00=0x00a9, f01=0x0190, f02=»* / / P* ................... " 8 P* . STATISTIC . IF STAT AND DTESTB /=0 D P* / BUFFER / P* ................... P* PDTETQ EQU 14 PDTEUEC EQU DTETQ+2 PDTEMEC EQU D
0x20b260…20b3f4 (2, 411) Dummy {f00=0x00a9, f01=0x0190, f02=»EDRD EQU DTEMEC+2 START OF DC DEPENDENT AREA P XIF 4 D PDTESTB EQU DTEDRD OFFSET REL START DTE TO STATISTIC BUFF IF ANY @ 2 PDTECHD EQU DTEDRD+2 CONFIG CHAIN LINK HEAD DTE 2 PDTECHN EQU DTEDRD+4 CONFIG CHAIN LINK NEXT DTE 2 PDTELAD EQU DTEDRD+6
0x20b3f4…20b588 Dummy {f00=0x00a9, f01=0x0190, f02=»NK STATUS t $ PDTESTA EQU DTEDRD+12 DTE STATUS ( PDTEDWT EQU DTEDRD+14 CHAIN LINK DWT : 0 PDTEDDT EQU DTEDRD+16 CHAIN LINK DISCARD DWT f P* STATITICS BUFFER 2 PSTWSID EQU DTEDRD+18 RESERVED FOR SYMBOLIC ID . PSTWCST EQU DTEDRD+20 COUNTER S
0x20b588…20b71c Dummy {f00=0x00a9, f01=0x0190, f02=»**************************************************** ~ P* < , P* COUNTER INDECES - PARAMETER-1 EQUATES F P* v P* REQUEST LEVEL COUNTERS: P* D P*************************************************************** P* * PCSRCON EQU
0x20b71c…20b8b0 Dummy {f00=0x00a9, f01=0x0190, f02=»HR EQU /C5 CHARACTERS RECEIVED ( PCSRMST EQU /06 MESSAGES TRANSMITTED ! & * PCSRCHT EQU /C8 CHARACTERS TRANSMITTED ! R PCSRTOP EQU /09 TIMEOUT ! PCSRABT EQU /0A ABORTED ! PCSRERR EQU /0B ERROR ! & PCSRTRE EQU /0C TRANSMISSION ERROR ! & PCSRXC1
0x20b8b0…20ba44 Dummy {f00=0x00a9, f01=0x018e, f02=»CSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY ! > PCSSRBO EQU /12 " DATA BLOCKS REJECTED BUFFER OVERFLOW " > 6 PCSSRAB EQU /13 " DATA BLOCKS REJECTED ABORTED " : PCSSRPE EQU /14 " DATA BLOCKS REJECTED PARITY ERROR " 0 PCSSTBL EQU /15
0x20ba44…20bbd8 Dummy {f00=0x00a9, f01=0x018e, f02=» 4 PCSSXC1 EQU /18 NBR OF REPLY REQUESTS TRANSMITTED # & PCSSXC2 EQU /19 PROCEDURE TIME OUTS # < 8 PCSSXC3 EQU /1A NBR OF TIMES POLL TIMEOUT HAS OCCURED # f P # P # P EJECT # P* DTE/DCE LEVEL COUNTERS # P # $ PCSCDTE EQU /28 DTE NOT OPE
0x20bbd8…20bd6c Dummy {f00=0x00a9, f01=0x0190, f02=» # n * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT $ PCSCXC2 EQU /2D " $ 6 PCSCXC3 EQU /2E " $ R P EJECT $ n P* $ | P* $ P* REQUEST HANDLING $ P* $ P* $ P* ORDER CODE (A7) $ P* $ POPEN EQU /21 OPEN $ PCLOSE EQU /2
0x20bd6c…20bf00 Dummy {f00=0x00a9, f01=0x0190, f02=» $ ~ PRSTAT EQU /00 READ STATUS % PSSTAT EQU /38 SET STATUS % * ( PSTATIS EQU /2D READ/RESET STATISTICS % J $ PSTIMOT EQU /39 SET TIMEOUT VALUE % v P* % P* OPTIONS: % P* % 2 PTYPRR EQU /4343 RESET STATISTICS AFTER READ =5 % P EJECT % P
0x20bf00…20c094 (2, 412) Dummy {f00=0x00a9, f01=0x0190, f02=»* % > P********************************************************** & P* & L L P*---------------------------------------------------------------------- & V " PR:REQ EQU /8000 REQUEST ERROR & $ PR:ABRT EQU /4000 REQUEST ABORTED & PR:2 EQU /2000 &
0x20c094…20c228 Dummy {f00=0x00a9, f01=0x0190, f02=»0 & PR:6 EQU /0200 ' , PR:DATA EQU /0100 DATA AVAILABLE (QUEUED) ' J P*--------------------------------------------------------------------- ' P PR:8 EQU /0080 ' PR:TIME EQU /0040 TIME OUT ' PR:10 EQU /0020 ' " PR:SEQ EQU /0010 SEQUENCE ERR
0x20c228…20c3bc Dummy {f00=0x00a9, f01=0x0190, f02=» /0004 ' . PR:LOGC EQU /0002 LOGICAL CONNECTION ERROR ( . PR:PHYC EQU /0001 PHYSICAL CONNECTION ERROR ( @ L P*---------------------------------------------------------------------- ( r P* ( P EJECT ( P* ( < P************************************
0x20c3bc…20c550 Dummy {f00=0x00a9, f01=0x0190, f02=»*******************= ( j P* ) L P*---------------------------------------------------------------------- ) & PH:0 EQU /8000 ) v PH:1 EQU /4000 ) PH:2 EQU /2000 ) PH:3 EQU /1000 ) L P*---------------------------------------------------------
0x20c550…20c6e4 Dummy {f00=0x00a9, f01=0x0190, f02=»--------------------------------------------- ) v PH:8 EQU /0080 * 6 PH:9 EQU /0040 * L PH:CARR EQU /0020 CARRIER OFF * b PH:11 EQU /0010 * J P*-------------------------------------------------------------------- * PH:12 EQU /0008 * " PH:PARI E
0x20c6e4…20c878 Dummy {f00=0x00a9, f01=0x0190, f02=»--------------------------------------------- * v P EJECT + 6 > P********************************************************** + H P* + P* LINE CONTROL CHAR EQU:S + P* + > P********************************************************** + P
0x20c878…20ca0c Dummy {f00=0x00a9, f01=0x0190, f02=»EQU /1F + PSOH EQU /01 , PENQ EQU /05 , $ PDLE EQU /10 , 8 PEOT EQU /04 , L PNAK EQU /15 , ` PESC EQU /1B , t PSBA EQU /11 , PGP EQU /22 , PRDBCOM EQU /32 , PRDMCOM EQU /36 , P EJECT , P IFT CODE=0 , PPAR EQU /80
0x20ca0c…20cba0 Dummy {f00=0x00a9, f01=0x018e, f02=» P IFT CODE=0 - P IFT MSV1=1 - 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE - , P XIF - ` P IFT CODE=1 - l PPAR EQU /00 - PWACK EQU /2C - PRVI EQU /40 - PACK0 EQU /18 - PACK1 EQU /2F - PSYNEBC EQU /32 - PENQEBC EQU /2D
0x20cba0…20cd34 (2, 413) Dummy {f00=0x00a9, f01=0x0190, f02=» PACKPAR EQU ACK0+PAR . P XIF . P IFT P6805=1 . , PENQPAR EQU ENQ . @ PRVIPAR EQU RVI . V PACKPAR EQU ACK0 . l P XIF . P EJECT . P* . P* . $ P* 3270 SENSE/STATUS INFORMATION . P* . P* . P IFF STARVI=0 . . PSSTA
0x20cd34…20cec8 Dummy {f00=0x00a9, f01=0x0190, f02=» NO INTERVENTION REQUIRED . | , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED / " P XIF / R P* / ^ P* / h P* TIMER VALUES / r P* / P* / ( PTIMPRO EQU 30 PROCEDURE TIMER 3 SEC / P* / P* / P EJECT / B P******************************
0x20cec8…20d05c Dummy {f00=0x00a9, f01=0x0190, f02=»*********************************** / v P* 0 , P IFT CODE=0 0 6 PSYNC EQU /16 0 J P XIF 0 ^ P IFT CODE=1 0 j PSYNC EQU /32 0 ~ P XIF 0 P IFT P6805=0 0 PCBCARR EQU /100+LSPEED 0 P XIF 0 P IFT P6805=1 0 PCBSTOP EQU /00 0 P I
0x20d05c…20d1f0 Dummy {f00=0x00a9, f01=0x0190, f02=» 8 P*************************************************** 1 P* 1 @ ( P* LINE CONTROL UNIT SST STATUS BITS 1 J P* 1 v 8 P*************************************************** 1 P* 1 P IFT P6805=0 1 & PH:ERR EQU /23 H:NOOP+H:THRU+H:CARR 1 P XIF
0x20d1f0…20d384 Dummy {f00=0x00a9, f01=0x0190, f02=»************************************ 1 t P* 2 , P* DRIVER ADDRESS BLOCK 2 6 P* 2 T D P*************************************************************** 2 ^ P* 2 P DATA BUFLEN MMU BUFFER SIZE 2 P DATA DEVIND DEVICE INDEX 2 ( PDC15AD DATA DCACT
0x20d384…20d518 Dummy {f00=0x00a9, f01=0x0190, f02=» , P RES 15 SUBROUTINE STACK FOR INTERRUPTS 3 PSTB RES 1 3 4 P EJECT 3 F P 3 T @ P************************************************************ 3 P* 3 P* ABORT ROUTINE 3 P* 3 P************************ 3 P 3 ( PABORT LD A1,DWTRTP
0x20d518…20d6ac Dummy {f00=0x00a9, f01=0x0190, f02=»R,A6 ORDER CODE 3 P ANK A2,/7F 4 P SUK A2,6 4 , P RF(NE) AB:RTN 4 > . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE 4 T & P LD A2,FDWTUT WRITING DWT ADDRESS 4 P CWR A2,A6 4 P RF(NE) AB:RTN NOT THIS DWT 4 P CM FDWTUT REST SENDING DWT 4
0x20d6ac…20d840 Dummy {f00=0x00a9, f01=0x0190, f02=»********************************** 4 l J P********************************************************************** 5 * P* 5 x P* 5 , P* REQUEST HANDLER/APPLICATION INTERFACE 5 P* 5 P* 5 J P********************************************************
0x20d840…20d9d4 (2, 414) Dummy {f00=0x00aa, f01=0x0190, f02=» TASKS 5 v P* 6 PDCACT EQU * 6 P LDK A1,0 PRESET RETURN CODE 6 , & P LDR A2,A7 ORDER CODE AS PARAMETER 6 P P LDKL A7,DTETAB DTE TAB ADDR 6 z & P ANK A2,/FF STRIP OFF OPTION BITS 6 : P CF A15,LOOKUP BRANCH ON CODES, TABLE ADDRESS TO STACK 6 0 P D
0x20d9d4…20db68 Dummy {f00=0x00aa, f01=0x018e, f02=»A OPEN,RQOPEN OPEN REQUEST 6 $ P DATA CLOSE,RQCLOS CLOSE REQUEST 7 " . P DATA CONPAS,RQCON CONNECT PASSIVE REQUEST 7 J ( P DATA DISCO,RQDIS DISCONNECT REQUEST 7 | * P DATA RSTAT,RQRSTS READ STATUS REQUEST 7 ( P DATA SSTAT,RQSST SET STATUS REQUEST 7 , P DATA
0x20db68…20dcfc Dummy {f00=0x00aa, f01=0x0190, f02=» P* OPEN REQUEST 8 P* 8 P* ACTIVATION PARAMETERS: 8 $ $ P* SYMBOLIC DTE-ADDRESS (ECBCW2) 8 D P* 8 l P* FUNCTIONS: 8 v 8 P* 1. CHECK IF ALREADY OPEN & IF SO SAME DTE-ADDRESS 8 & P* 2. CONVERT & VERIFY DTE ADDRESS 8 P* 8 PRQOPEN EQU * 8
0x20dcfc…20de90 Dummy {f00=0x00aa, f01=0x0190, f02=» , P ABI RQOPTB,A2 BRANCH ON INDEX IN TABLE 9 & PRQOPTB DATA RQOP20 CLOSED/INACTIVE 9 4 " P DATA RQOP15 OPEN IN PROGRESS 9 ^ P DATA RQOP10 OPEN 9 " P DATA RQOP15 CLOSE IN PROGRESS 9 PRQOP10 EQU * 9 2 P CW A1,DTELAD,A7 SAME AS THE ONE WHO OPENED ? 9
0x20de90…20e024 Dummy {f00=0x00aa, f01=0x0190, f02=»TA,A7 SET OPEN IN PROGRESS 9 . P ST A1,DTELAD,A7 SAVE SYMBOLIC DTE ADDRESS : " 2 P LDR A2,A7 ADDR TO SELECT AND POLL IN DTE TAB : T 0 P CF A15,GETDNA CONVERT AND VALIDATE DTE ADDR : P LDR A1,A1 : P RF(NN) RQOP80 OK : P CM DTELAD,A7 CLEAR DTE ADDR :
0x20e024…20e1b8 Dummy {f00=0x00aa, f01=0x0190, f02=»DR* A2,A7 DTE ADDRESS IN EBCDIC : P LDR A1,A2 ; ( P ANK A2,/FF ; : P RF(Z) RQOP30 ONLY ONE BYTE ; N ( P LC A2,TASCII,A2 CONVERT INTO ASCII ; r P SLL A2,8 ; PRQOP30 EQU * ; P ECR A1,A1 ; P ANK A1,/FF ; P LC A2,TASCII,A1 ; * P STR A
0x20e1b8…20e34c Dummy {f00=0x00aa, f01=0x0190, f02=» PHYSICAL CONNECTION ? ; P ABL(NZ) RTOK YES RETURN OK < * P ABL RTPHYC RETURN PHYSICAL CONNECTION < B P EJECT < p P* < ~ P* CLOSE REQUEST < P* < P* ACTIVATION PARAMETERS: < " P* OPTION /00 = UNCONDITIONAL < P* /80 = CONDITIONAL <
0x20e34c…20e4e0 Dummy {f00=0x00aa, f01=0x0190, f02=» UNCONDITIONAL, DISCONNECT ALL DWT:S < P* = , PRQCLOS EQU * = 6 ( P LD A5,DWTOR,A6 GET OPTION AND ORDER = J , P LD A2,ECBCW2,A8 GET SYMBOLIC DTE - ADDR = v P RF(Z) RQCL20 = " P CW A2,DTELAD,A7 CORRECT DTE ? = ( P ABL(NE) RTREQ RETURN: REQUEST ERROR =
0x20e4e0…20e674 (2, 415) Dummy {f00=0x00aa, f01=0x018e, f02=» RTSEQ RETURN: SEQUENCE ERROR = $ P IM DTESTA,A7 CLOSE IN PROGRESS > & ( P LDR A8,A6 SAVE REQUESTING DWT-ADDR > N P* > z PRQCL40 EQU * > P IFT MESPAS=1 > * P LD A6,DTEDDT,A7 GET DISCARD DWT ADDR > P RF(Z) RQCL50 > " P LDR A5,A5 CONDITIONAL
0x20e674…20e808 Dummy {f00=0x00aa, f01=0x0190, f02=» > d P RF RQCL60 ? PRQCL50 EQU * ? P XIF ? . " P LD A6,DTEDWT,A7 GET DWT ADDR ? : " P RF(Z) RQCL90 NO DWT IN QUEUE ? ` " P LDR A5,A5 CONDITIONAL CLOSE ? ? P RF(N) RQCL95 YES ! ? 6 P LD A2,DWTCHN,A6 GET POINTER TO NEXT DWT IN CHAIN ? 0 P ST A2
0x20e808…20e99c Dummy {f00=0x00aa, f01=0x0190, f02=» ON DWT ? l " P CM DWTSTA,A6 CLEAR DWT-STATUS @ P LDK A1,0 PRESET RETURN CODE @ 6 P CWR A8,A6 REQUESTING DWT ? @ Z & P RF(E) RQCL80 YES-COMPLETE REQUEST @ ~ ( P LD A2,DWTST,A6 A PENDING REQUEST ? @ " P RB(N) RQCL40 NO TAKE NEXT DWT @ 6 P LDK A1,R:SEQ
0x20e99c…20eb30 Dummy {f00=0x00aa, f01=0x0190, f02=»E @ t PRQCL90 EQU * A P =1 A & P LDR A6,A8 GET REQUESTING DWT ADDR A , ( P LD A8,DWTECB,A6 RESTORE ECB ADDRESS A V P =1 A . P RF(Z) RQCL92 REQUEST ALREADY COMPLETED =1 A P LDK A1,0 RC=0 =1 A , P CF A15,TENDIO COMPLETE CLOSE REQUEST =1 A
0x20eb30…20ecc4 Dummy {f00=0x00aa, f01=0x0190, f02=»/P DEVICE =1 A | P LDK A2,0 =1 B ( P CIO A2,1,LCUIN DISCONNECT MODEM =1 B * P XIF =1 B V P IFT P6805=1 =1 B h " P LDK A2,1 DISCONNECT ORDER =1 B ( P CIO A2,0,LCUIN DISCONNECT MODEM =1 B P XIF =1 B & P CMR A7 REMOVE NETWORK ADDRESS =1 B
0x20ecc4…20ee58 Dummy {f00=0x00aa, f01=0x0190, f02=»IMER =6 B ~ P CM DCTPGP CLEAR POINTER =6 C PRQCL94 EQU * =6 C 4 , P CM DTEDLS,A7 INDICATE DATA LINK DOWN =6 C L P ABL TDISP =1 C | PRQCL95 EQU * C P LDK A2,2 C ( P ST A2,DTESTA,A7 SET DTE OPEN AGAIN C " P LDR A6,A8 RESTORE DWT ADDRESS C
0x20ee58…20efec Dummy {f00=0x00aa, f01=0x0190, f02=»* - SYMBOLIC SUBADDRESS (RIGHTMOST BYTE IN ECBBA-BFR) C & P* - DEVICE ADDRESSES IN ECBBA-BFR D > " P* - LENGTH OF BUFFER (ECBRL) D h & P* - SYMBOLIC DTE-ADDRESS (ECBCW2) D P* D P* FUNCTIONS: D 0 P* 1. VERIFY DTE-ADDRESS AS PER OPEN REQUEST D .
0x20efec…20f180 Dummy {f00=0x00aa, f01=0x0190, f02=» P* E PRQCON EQU * E & P LD A2,DTELAD,A7 SYMBOLIC DTE-ADDR E " " P CW A2,ECBCW2,A8 CORRECT DTE ? E L , P ABL(NE) RTREQ NO, RETURN: REQUEST ERROR E r $ P LD A2,DTESTA,A7 GET DTE STATUS E P SUK A2,2 OPEN ? E . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ER
0x20f180…20f314 (2, 416) Dummy {f00=0x00aa, f01=0x0190, f02=» MESPAS=1 =13 E P LDK A2,/40 OPTION CODE =13 F & P CC A2,DWTOPT,A6 DISCARD DWT ? =13 F : P RF(NE) RQCN10 NO =13 F d * P CM DWTCHP,A6 INDICATE DISCARD DWT =13 F 0 P LD A1,DTEDDT,A7 POINTER TO DISCARD DWT =13 F 0 P RF(NZ) RQCN50 MORE THAN ONE DISC. D
0x20f314…20f4a8 Dummy {f00=0x00aa, f01=0x0190, f02=» F P IFF MMUPAG=0 G * P LDKL A4,SUBBUF MMU BUFFER ADDRESS =16 G P ST A4,ECBBA,A8 TO ECB G L * P CF A15,DC:MOT MOVE DATA TO MMU BUFFER G j P XIF G * P LD A4,ECBBA,A8 GET ECB-BUFFER ADDRESS G P IFT MSV1=1 G P LDK A2,0 RESET A2 G & P LCR A2,
0x20f4a8…20f63c Dummy {f00=0x00aa, f01=0x0190, f02=»GETSNA VALIDATE AND TRANSLATE THE SUB-ADDR G P LDR A1,A1 IS IT OK ? H 2 P RF(NN) RQCN20 YES H P $ P CM DWTSUB,A7 CLEAR SUB-ADDRESS H j $ P ABL RTREQ RETURN REQUEST ERROR H PRQCN20 EQU * H P IFT CODE=1 H 2 P LC A1,TASCII,A1 CONVERT FROM EBCDIC T
0x20f63c…20f7d0 Dummy {f00=0x00aa, f01=0x0190, f02=»SS =8 H r * P SC A2,DWTSUB+1,A6 SAVE IT IN THE DWT I . P LD A1,ECBCW2,A8 GET SYMBOLIC DTE ADDRESS I < ( P ST A1,DWTLAD,A6 SAVE IT IN THE DWT I n : P CF A15,GETSNA VALIDATE AND TRANSLATE THE SUB-ADDRESS I P LDR A1,A1 IS IT OK ? I P RF(NN) RQCN30 YES
0x20f7d0…20f964 Dummy {f00=0x00aa, f01=0x0190, f02=»QU * I P IFT CODE=1 J 2 P LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII J P XIF J V , P SC A1,DWTCHP+1,A6 SAVE NETWORK ADDRESS J b P IFT EM3270=1 J P ST A1,ECBCW2,A8 J P XIF J P* J P* J & P* LINK DWT TO CONFIGURATION CHAIN J
0x20f964…20faf8 Dummy {f00=0x00aa, f01=0x0190, f02=»T,A7 SAVE POINTER TO DWT QUEUE J P RF RQCN60 K & PRQCN50 EQU * K 8 P LDR A2,A1 MOV ADDR TO A2 K L ( P LD A1,DWTCHN,A2 POINTER TO NEXT DWT K n . P RB(NZ) RQCN50 KEEP ON UNTIL LAST IN CHAIN K * P ST A6,DWTCHN,A2 ADD NEW DWT TO CHAIN K PRQCN60 EQU * K
0x20faf8…20fc8c Dummy {f00=0x00aa, f01=0x0190, f02=»TATUS: CONNECTED K z P LDKL A2,/8000 L $ P ST A2,DWTRTV,A6 STORE NO TIMING L . P =13 L V P IFT STARVI=1 L f & P LD A1,DWTCHP,A6 DISCARD DWT ? =13 L | * P RF(Z) RQCN65 YES, DO NOT SEND DE =13 L P LDK A1,4 STORE DEVICE L $ P ORS A1,DWTST,A6 END I
0x20fc8c…20fe20 Dummy {f00=0x00aa, f01=0x0190, f02=» P* M $ P LD A2,DCTPGP POLL TIMER POINTER M , P RF(NZ) RQCN70 TIMER ALREADY STARTED =6 M 6 P CF A15,SPOTIM M f PRQCN70 EQU * M | P ABL RQOP90 M P EJECT M P* M P* DISCONNECT REQUEST M P* M P* ACTIVATION PARAMETERS: M P* DWT
0x20fe20…20ffb4 (2, 417) Dummy {f00=0x00aa, f01=0x0190, f02=»N CHAIN M f & P* 3. SET DWT STATUS DISCONNECTED N P* N : P* COMPLETION PARAMETERS: N D P* RETURN CODE (A1) N d P* N PRQDIS EQU * N 0 P LD A2,DWTSTA,A6 DWT STATUS = DISCONNECTED ? N P ABL(Z) RTOK YES, RETURN: OK N * P LD A3,DTEDWT,A7 F
0x20ffb4…210148 Dummy {f00=0x00aa, f01=0x0190, f02=»SE QUEUED BUFFERS N | 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT O P CM DWTSTA,A6 SET DWT FREE O P . P ST A3,DTEDWT,A7 STORE DWT-ADDR IN DTETAB O r P RB RQCN70 O PRQDI10 EQU * O . P LDR A5,A3 A5 CONTAINES PREVIOUS DWT-ADDR O < P LD A3,DWTCH
0x210148…2102dc Dummy {f00=0x00aa, f01=0x0190, f02=» NEXT IN CHAIN O z * P CF A15,RELBUF RELEASE QUEUED BUFFERS P 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT P D 2 P ST A3,DWTCHN,A5 AND STORE IT IN PREVIOUS DWT P z P CM DWTSTA,A6 SET DWT FREE P P RB RQCN70 P PRQDI20 EQU * P P IFT MESPAS=1 P
0x2102dc…210470 Dummy {f00=0x00aa, f01=0x018e, f02=» RELEASE BUFFERS QUEUED P P CM DTEDDT,A7 Q P CM DWTSTA,A6 SET DWT FREE Q 6 P RB RQCN70 Q X PRQDI30 EQU * Q j P XIF Q ~ P ABL RTSEQ SEQUENCE ERROR Q P EJECT Q P* Q P* Q P* READ STATUS REQUEST Q P* Q P* ACTIVATION PARAM
0x210470…210604 Dummy {f00=0x00aa, f01=0x018e, f02=» P* R P* COMPLETION PARAMETERS: R * P* LOGICAL CONNECTION STATUS (ECBCW1) R . P* R . P* 0 3 4 7 8 11 12 15 R f . P* ........................................ R . P* . DWT . DTE . DATA . PHYS . R . P* . STATE .
0x210604…210798 Dummy {f00=0x00aa, f01=0x0190, f02=» P* S PRQRSTS EQU * S P IFT EM3270=1 S " $ P LD A2,ECBCW1,A8 GET OPTION CODE S 8 & P RF(NZ) RQRS10 TEST IF ANY MESSAGE S ` P XIF S P LD A2,DWTSTA,A6 DWT STATUS S P SLL A2,4 BITS 0-3 S P AD A2,DTESTA,A7 DTE STATUS S P SLL A2,4 BITS 4
0x210798…21092c Dummy {f00=0x00aa, f01=0x0190, f02=» 2 P ST A2,ECBCW1,A8 STATUS TO ECB CONTROL WORD 1 T P ABL RTOK RETURN: OK T : P IFT EM3270=1 T V P* T l P* T v . P* ANY MESSAGE ORDER (ONLY IF EM3270 = 1) T P* T PRQRS10 EQU * T $ P LD A2,DTESTA,A7 GET DTE STATUS T P SUK A2,2 OPEN ?
0x21092c…210ac0 Dummy {f00=0x00aa, f01=0x0190, f02=»SEQUENCE ERROR T ~ 6 P LD A4,DWTIPC,A6 ANY QUEUED MESSAGE ON THIS DWT ? U * P ABL(NZ) RTOK YES COMPLETE THE REQUEST U P P ABL TDISP TO DISPATCHER U ~ P XIF U P EJECT U P* U P* SET STATUS REQUEST U P* U P* U P* ACTIVATION PARAMETER
0x210ac0…210c54 (2, 418) Dummy {f00=0x00ab, f01=0x0190, f02=»VICE END : X`'00' U P* V ( P* IR INTERVENTION REQUIRED : X'01' V $ P* V P P* DB DEVICE BUSY :X'10' V Z P* V z P* COMPLETION PARAMETERS: V P* RETURN CODE (A1) V P* V PRQSST EQU * V P IFT STARVI=0 V & P ABL RTREQ SET STATU
0x210c54…210de8 Dummy {f00=0x00ab, f01=0x0190, f02=»ST90 NOT DE V & P LD A1,DWTST,A6 GET DEVICE STATUS W ( P ANK A1,/B WACK SENT, DB OR IR ? =2 W > P RF(Z) RQST90 NO =2 W j , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE W P LDK A1,4 SET DE W PRQST90 EQU * W P ST A1,DWTST,A6 SAVE STATUS W P A
0x210de8…210f7c Dummy {f00=0x00ab, f01=0x0190, f02=»S: W z P* TYPE = BITS 0-7 OF ECBCW1 X P* ECB-ADDRESS (A8) X . ( P* DWT-ADDRESS OF LOW-LEVEL DWT (A6) X J P* X v P* FUNCTIONS: X & P* 1. READ STATISTICS TO USER AREA X & P* 2. RESET ALL STATISTICS BUFFERS X P* X P* COMPLETION PARAMETER
0x210f7c…211110 Dummy {f00=0x00ab, f01=0x0190, f02=» ABL RTREQ RC : REQUEST ERROR NO STATISTICS INCLUDED X P XIF Y < P IFF STTSTS=0 Y H " P CF A15,DCSRED READ STATISTICS Y ^ P LDR A1,A1 OK? Y , P ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR Y P LD A1,ECBCW1,A8 GET TYPE Y & P SRL A1,8 TYPE FIELD TO LEFT
0x211110…2112a4 Dummy {f00=0x00ab, f01=0x0190, f02=»UCKY AGAIN? Y , P ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR Z PRQST40 EQU * Z D P ABL RTOK RETURN: OK Z X P XIF Z t P EJECT Z P* Z P* SET TIMEOUT VALUE Z P* Z P* ACTIVATION PARAMETERS: Z , P* ECBCW1 >= 0 : ACTIVATE TIMING CONTROL Z
0x2112a4…211438 Dummy {f00=0x00ab, f01=0x0190, f02=»ACTIVATE TIMING CONTROL Z | P* [ P* FUNCTIONS: [ * , P* STORE VALUE DIRECTLY IN CALLER'S DWT [ > P* [ n P* COMPLETION PARAMETERS: [ x & P* DWTRTV = TIMEOUT VALUE = ECBCW1 [ P* [ PRQTIME EQU * [ 0 P LD A2,ECBCW1,A8 GET TIMEOUT VALUE FROM
0x211438…2115cc Dummy {f00=0x00ab, f01=0x018e, f02=»ACTIVATION PARAMETERS: [ P* BUFFER ADDRESS (ECBBA) P* BUFFER LENGTH (ECBRL) @ P* SUBTERMINAL ADDRESS (DWT) ` P* ECB CONTROL WORD 1 P* P* FUNCTIONS: < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. $ P* 2. VE
0x2115cc…211760 Dummy {f00=0x00ab, f01=0x0190, f02=» $ P LD A2,DWTSTA,A6 GET DWT STATUS ] P SUK A2,2 CONNECTED ? ] 0 . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR ] N 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTICE ? ] 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNECTION ERROR ] 0 P LD A2,DTEDLS,A7 LOGIC
0x211760…2118f4 (2, 419) Dummy {f00=0x00ab, f01=0x018e, f02=»F ] $ P RF(Z) RQSE10 THERE IS NO OPTION ^ P SUK A2,/20 WHICH OPTION ? ^ 2 . P ABL(NZ) RTREQ WRONG OPTION :REQUEST ERROR ^ T * P CF A15,RELBUF RELEASE BUFFERS QUEUED ^ PRQSE10 EQU * ^ P IFT MMUPAG=1 ^ $ P LD A2,ECBRL,A8 REQUESTED LENGTH ^ $ P C
0x2118f4…211a88 Dummy {f00=0x00ab, f01=0x0190, f02=» ^ t $ P CF A15,INSWQ QUEUE SEND REQUEST _ P ABL TDISP _ 0 P* _ B P EJECT _ L P* _ Z P* RECEIVE REQUEST _ d P* _ ~ P* ACTIVATION PARAMETERS: _ P* BUFFER ADDRESS (ECBBA) _ 0 P* REQUESTED BUFFER LENGTH IN CHARS. (ECBRL) _ P* SUBTERM
0x211a88…211c1c Dummy {f00=0x00ab, f01=0x0190, f02=»O THE APPLICATION ANY MESSAGE QUEUED FOR THE DWT, _ @ P* 3. COMPLETE WHEN MESSAGE RECEIVED OR NO MESSAGE RECEIVED ` : P* WITHIN TIMEOUT PERIOD. ` ~ P* ` P* COMPLETION PARAMETERS: ` 0 P* ACTUAL LENGTH OF RECEIVED MESSAGE (ECBEL) ` P* RETUR
0x211c1c…211db0 Dummy {f00=0x00ab, f01=0x018e, f02=»O, RETURN: SEQUENCE ERROR ` 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTIVE ? a " 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNECTION ERROR a X * P LD A4,DWTIPC,A6 ANY BUFFER ON QUEUE ? a P RF(NZ) RQRE10 YES a 0 P LD A2,DTEDLS,A7 LOGICAL CONNECTION ACTIVE ?
0x211db0…211f44 Dummy {f00=0x00ab, f01=0x0190, f02=» PRQRE10 EQU * b P LD A3,2,A4 EFFECTIVE LENGTH b P ST A3,ECBEL,A8 b < * P LD A1,DWTLAD,A6 SYMBOLIC DTE-ADDRESS b T $ P LD A2,4,A4 NETWORK SUB-ADDRESS b , P CF A15,GETSSA GET SYMBOLIC SUB-ADDRESS b ( P ST A1,ECBCW2,A8 AND SAVE IT IN ECB b P I
0x211f44…2120d8 Dummy {f00=0x00ab, f01=0x0190, f02=» =9 b * P LDK A1,0 RC : ACCEPTED AND COMPLETED c ( P LDR* A2,A4 GET NEXT BUFFER IN QUEUE c < * P RF(Z) RQRE20 NO MORE BUFFERS IN QUEUE c h 0 P ORKL A1,R:DATA RC: AND MORE DATA AVAILABLE c PRQRE20 EQU * c . P ST A2,DWTIPC,A6 STORE AS FIRST IN QUEUE
0x2120d8…21226c Dummy {f00=0x00ab, f01=0x018e, f02=» c P* d P* d $ P* COMPLETE APPLICATION REQUEST d P* d D PRTREQ EQU * d N & P LDKL A1,R:REQ RC = REQUEST ERROR d b P RF RQRTN d PRTABRT EQU * d P LDKL A1,R:ABRT RC = ABORTED d P RF RQRTN d PRTTIME EQU * d P LDK A1,R:TI
0x21226c…212400 Dummy {f00=0x00ab, f01=0x0190, f02=» d & P LDK A1,R:LGTH RC = ILLEGAL LENGTH e P RF RQRTN e 2 PRTLOGC EQU * e D 0 P LDK A1,R:LOGC RC = LOGICAL CONNECTION ERROR e X P RF RQRTN e PRTPHYC EQU * e 2 P LDK A1,R:PHYC RC = PHYSICAL CONNECTION ERROR e P RF RQRTN e PRTOK EQU * e
0x212400…212594 (2, 420) Dummy {f00=0x00ab, f01=0x018e, f02=»OKUP - LOOK UP KEY IN TABLE & BRANCH ON ADDRESS e P* f 8 P* CALL: f B 8 P* CF A15,LOOKUP TABLE ADDRESS TO STACK f R < P* DATA LAST,ADDRE LAST ENTRY; ERROR ADDRESS f > P* DATA KEY1,ADDR1 KEY (A2); ADDRESS FOR BRANCH
0x212594…212728 Dummy {f00=0x00ab, f01=0x0190, f02=» f t P* g PLOOKUP EQU * g < P LDR* A3,A15 POINT TO NEXT INSTRUCTION ADDRESS IN STACK g & . P LDR* A3,A15 GET CONTENTS = TABLE ADDRESS g f & P LDR* A4,A3 GET LAST LEGAL ADDRESS g P LD A1,2,A3 ERROR ADDRESS g P* g PLOOK50 EQU * LOOP ENTRY g
0x212728…2128bc Dummy {f00=0x00ab, f01=0x0190, f02=»Y = VALUE IN TABLE? g ( P RB(NE) LOOK50 NO - CHECK NEXT ENTRY h & P ABI 2,A3 BRANCH TO TABLE ADDRESS h H P* KEY NOT FOUND h r PLOOK90 EQU * h " P LDR P,A1 GO TO ERROR ADDRESS h P EJECT h P* h P* h P* h " P* REQUEST TIMER HANDLING
0x2128bc…212a50 Dummy {f00=0x00ab, f01=0x018e, f02=»A6 GET TIMEOUT VALUE h P RF(N) TIMRTN NO TIMING i . P RF(Z) ITOUTR TIMER=0 => IMMEDIATE TIMEOUT i < P ST A2,TIMERR i n P CF A15,SETIME i P DATA TOUTRE i PTIMERR DATA 0 i ( P ST A4,DWTRTP,A6 STORE TIMER POINTER i PTIMRTN EQU * i P ABL
0x212a50…212be4 Dummy {f00=0x00ab, f01=0x0190, f02=» i P LDR A6,A1 FETCH DWT j P CM DWTRTP,A6 j $ * P RF TIMOUT COMPLETE REQUEST RC=TIMEOUT j : P* j h P* j r " P* RETURN FROM TIMER HANDLING j | P* j P EJECT j P* j P* SEND TIMER=TIMWR j P* j PTIMEWR LDR A1,A6 j & P LD A2,D
0x212be4…212d78 Dummy {f00=0x00ab, f01=0x0190, f02=» CF A15,SETIME j P DATA TOUTWR k PTIMWR DATA 0 k * P ST A4,DWTRTP,A6 k > P RB TIMRTN k V P* k h P* TIMEOUT WRITE TIMER k r P* k PTOUTWR EQU * k P LDR A6,A1 FETCH DWT k P CM DWTRTP,A6 k * P CF A15,REMOVW REMOVE FROM WRITE QUEUE k
0x212d78…212f0c Dummy {f00=0x00ab, f01=0x0190, f02=» k * P RF(NE) TIMOUT THIS DWT IS NOT WRITING l ( P CM XACK INDICATE 'ACK NOT EXPECTED' l 6 P CM FDWTUT l b PTIMOUT EQU * l t , P ABL RTTIME COMPLETE REQUEST RC=TIMEOUT l P EJECT l P* l P* l P* STOP REQUEST TIMING l P* l & P* REMA
0x212f0c…2130a0 Dummy {f00=0x00ab, f01=0x0190, f02=»RUNNING l ~ P IFT REMTIM=1 =9 m P LDR* A2,A2 =9 m * $ P NGR A2,A2 GET REMAINING TIME =9 m B P XIF =9 m j P CM* DWTRTP,A6 KILL TIMER =9 m | P CM DWTRTP,A6 m P =3 m PCTIM10 EQU * m P ABL RTNA15 m P EJECT m P* m P* GE
0x2130a0…213234 (2, 421) Dummy {f00=0x00ab, f01=0x018e, f02=»ADDRESS m v P* A2 AND A3 ARE DESTROYED n P* n 2 P* n < ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS n F P INH n r P LDR* A4,A2 n ~ P RF(Z) GBUF10 NO BUFFER FREE n . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN n P STR A3,A2 n PGBUF10 EQU * n
0x213234…2133c8 Dummy {f00=0x00ab, f01=0x0190, f02=» $ P* CALLING SEQUENCE: CF A15,RRBUF o P* A2 AND A3 ARE DESTROYED o , P* o N P* o X ( PRRBUF LDKL A2,DCRBUF RECEIVE BUFFERS o b P INH o PRBUF10 EQU * o P LDR* A3,A2 o P RF(Z) RBUF20 o P LDR A2,A3 o P RB RBUF10 o PRBUF20 EQU *
0x2133c8…21355c Dummy {f00=0x00ab, f01=0x0190, f02=»ED ON A DWT o n P* p P* A6 - DWT ADDR p P* A1 AND A4 ARE DESTROYED p 6 ( P* CALLING SEQUENCE: CF A15,RELBUF p X P* p P* p PRELBUF EQU * p * P LDK A1,DWTIPC SET BUFFER QUEUE DISP. p P ADR A1,A6 p PRLBU10 EQU * p $ P LDR* A4
0x21355c…2136f0 Dummy {f00=0x00ab, f01=0x0190, f02=»FFER p x P RB RLBU10 q P EJECT q P* q , P* q 6 & P* INSERT DWT IN SEND REQUEST QUEUE q @ P* q j P* A2,A3,A4 DESTROYED q t P* A6=DWT q P* q ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR q P LDK A4,DWTOPN q PINSWQ2 LDR* A3,A2 q $ P R
0x2136f0…213884 Dummy {f00=0x00ab, f01=0x0190, f02=» A4 INDICATE END OF QUEUE q P RB GBUF10 RETURN r " P EJECT r < P* r J P* r T ( P* REMOVE DWT FROM SEND REQUEST QUEUE r ^ P* r P* A2,A3,A4 DESTROYED r P* A6=DWT r P* r * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR r . P LDK A4,DWTOPN G
0x213884…213a18 Dummy {f00=0x00ab, f01=0x0190, f02=» P CWR A3,A4 s P RF(E) REM15 s P LDR A2,A3 GET NEXT s * P RB REM10 s F PREM15 LDR* A3,A4 REMOVE s X P STR A3,A2 s x P RB GBUF10 RETURN s P EJECT s P* s P* s P* INSERT DWT IN STATUS QUEUE s P* s P IFF STARVI=0 s
0x213a18…213bac Dummy {f00=0x00ab, f01=0x018e, f02=» P* t P* t " P* REMOVE DWT FROM STATUS QUEUE t P* t > P* A2,A3,A4 DESTROYED t H P* A6=DWT t d P* t t * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR t ~ P LDK A4,DWTOPE t P RB REM06 t P XIF t P EJECT t P* t P* t $ P* QUEU
0x213bac…213d40 Dummy {f00=0x00ab, f01=0x0190, f02=» t * P LDK A2,DWTIPC SET BUFFER QUEUE DISP. u P ADR A2,A6 u 6 PQR100 EQU * u H P LDR* A3,A2 u $ P RF(Z) QR200 END OF QUEUE FOUND u p P LDR A2,A3 u P RB QR100 u & PQR200 STR A4,A2 INSERT INTO QUEUE u " P CMR A4 INDICATE END OF QUEUE u
0x213d40…213ed4 (2, 422) Dummy {f00=0x00ac, f01=0x0190, f02=»REG ST A3,LCA3 u P ST A4,LCA4 v P ST A5,LCA5 v * P ST A6,LCA6 v > P ST A7,LCA7 v R P ST A8,LCA8 v f P RF RTNA15 RETURN v z P* v P* v P* RESTORE v $ P* CALLING SEQUENCE: CF A15,LDREG v P* v PLDREG LDKL A3,0 v PLCA3
0x213ed4…214068 Dummy {f00=0x00ac, f01=0x0190, f02=»A7,0 v PLCA7 EQU *-2 w P LDKL A8,0 w PLCA8 EQU *-2 w 2 P* w F P* w P P* RETURN VIA REGISTER 15 w Z P* w | PRTNA15 EQU * w P ADKL A15,4 w P ABR* A15 w P EJECT w P* w P* POLL TIME OUT w P* w ( PPTOUT LDKL A5,
0x214068…2141fc Dummy {f00=0x00ac, f01=0x0190, f02=»* w P* x P* COUNT POLL TIME OUT x P* x 2 P LDK A1,CSSXC3 x < P CF A15,DCSUPS x R P XIF x h $ P CF A15,SPOTIM START POLL TIMER x t P ABL TDISP x P* x 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED x P* x PCPTIM EQU * x
0x2141fc…214390 Dummy {f00=0x00ac, f01=0x0190, f02=»5 x P* y P* START POLL TIMER y P* y . PSPOTIM EQU * y 8 , P LDR A1,A6 LOAD DWT ADDRESS AS PARAMETER y L P CF A15,SETIME START TIMER y | P DATA PTOUT,TIMPOL y & P ST A4,DCTPGP STORE TIMER POINTER y P RB RTNA15 RETURN y P EJECT y
0x214390…214524 Dummy {f00=0x00ac, f01=0x0190, f02=» DATA PRTOUT,TIMPRO y $ P ST A4,DCTPP SAVE TIMER POINTER z P RTN A5 z D P* z T P* PROCEDURE TIMEOUT z ^ P* z z PPRTOUT CM DCTPP z P LDR A6,A1 RELOAD A6 z P LDKL A5,STB LOAD STACK BASE z P LDKL A7,DTETAB z P IFT STTSTS=1 z
0x214524…2146b8 Dummy {f00=0x00ac, f01=0x0190, f02=»I HALT INPUT IF OPEN SALCUZ z P LD A1,XACK { $ " P RF(Z) PRT10 ACK NOT EXPECTED { 8 P CF A5,TRENQ SEND ENQ { ^ & P CF A5,SPTIM START PROCEDURE TIMER { | PPRT10 ABL BRM { P EJECT { P* { P* STOP PROCEDURE TIMER { P* { ( PHPTIM LD A1,
0x2146b8…21484c Dummy {f00=0x00ac, f01=0x0190, f02=»* { P* | ( P* WAIT 1 SEC. FOR MODEM CONNECTION | P* | @ P | J PDTE:ON LDR A1,A6 DWT ADDRESS | R P CF A15,SETIME WAIT 1 SEC. | v P DATA DTE:10,10 | P =1 | P LDKL A5,STB =1 | " P CF A5,CSYNCI CONNECT MODEM =1 | * P CF A5,CHALT
0x21484c…2149e0 Dummy {f00=0x00ac, f01=0x0190, f02=» | PDTE:10 LDR A6,A1 DWT ADDRESS } P LDKL A7,DTETAB } , $ P IM DTESTA,A7 SET OPEN STATUS =1 } D P LDKL A5,STB =1 } l * P CF A5,CSYNCI PUT CU IN ACTIVE MODE =1 } 8 P CF A5,CHALTI HALT I/P DEVICE TO GET MODEM STATUS =1 } 0 P IM DTEPLS,A7 PRESET PHYSI
0x2149e0…214b74 (2, 423) Dummy {f00=0x00ac, f01=0x0190, f02=»E:20 EQU * =1 } " P LDR A1,A2 SET RETURN CODE =1 ~ * P CF A15,TENDIO COMPLETE THE REQUEST =1 ~ < & P CF A15,SPOTIM START POLL TIMER =6 ~ j P ABL BRM START I/P =1 ~ P EJECT ~ P IFT MESPAS=1 ~ P* ~ P* ~ P* GET DWT ADDRESS ~ P* ~
0x214b74…214d08 Dummy {f00=0x00ac, f01=0x018e, f02=»WR A6,A2 IS IT DDT-ADDR ~ P RF(E) MES200 YES " P LD A2,DWTST,A6 ANY REQUEST ? : P RF(N) MESD50 NO ` ( P LD A2,DWTOR,A6 ANY MESSAGE ORDER ? x P ANK A2,/FF P RF(Z) MES200 YES & P SUK A2,RECEIVE A RECEIVE ORDER ? P RF(Z) MES20
0x214d08…214e9c Dummy {f00=0x00ac, f01=0x018e, f02=» v P RF MES200 PMES100 EQU * P LDR A6,A7 GET DTETAB-ADDR . PMES200 EQU * P P ABL RTNA15 RETURN VIA A15 d P XIF P EJECT P* P* P* BASIC RECEIVE MODE P* " P* ENTERED EVERY TIME A MESSAGE & P* IS EXP
0x214e9c…215030 Dummy {f00=0x00ac, f01=0x0190, f02=» t " P CM TPM CLEAR TRANSPARENT TEXT , P CF A5,CSYNCI START INPUT WITH SYNC DEF . P* ^ P* h P* r P CF A5,READP READ CHARACTER | P RF(NZ) BRM120 PARITY ERROR P* P* * P* CHECK IF IT IS A CONTROL CHARACTER P*
0x215030…2151c4 Dummy {f00=0x00ac, f01=0x0190, f02=»QUENCE ` & P DATA PAD,BRM130 PAD RECEIVED DK1 " P DATA STX,STX100 STX RECEIVED 8 " P DATA EOT,EOT100 EOT RECEIVED ^ " P DATA ENQ,ENQ100 ENQ RECEIVED " P DATA DLE,DLE100 DLE RECEIVED ( PBRM100 DATA NAK,NAK100 NAK RECEIVED P EJECT
0x2151c4…215358 Dummy {f00=0x00ac, f01=0x0190, f02=» LOAD STACKBASE TO A5 , P CF A5,CSYNCI START INPUT WITH SYNC DEF P* N P* X $ P* WAIT FOR MARK HOLD TO RESYNC. b P* PBRM120 EQU * P CF A5,READ READ CHARACTER 0 P LD A1,DCSTCU ANY STATUS FROM CONTROL UNIT ? P RF(NZ) BR
0x215358…2154ec Dummy {f00=0x00ac, f01=0x018e, f02=»HALTI HALT INPUT P RB BRM P EJECT ( P* 6 P* @ 2 P* CHECK IF IT IS A POLL OR A SELECT SEQUENCE J P* PBRM200 EQU * P IFT MSV1=0 P LDR A4,A2 P CF A5,READP READ CHARACTER P CWR A2,A4 ( P RB(NE) BRM125
0x2154ec…215680 Dummy {f00=0x00ac, f01=0x018e, f02=» P CCR A2,A7 IS IT A SELECT ? ( P RB(NE) BRM125 INVALID SEQUENCE DK1 , PBRM210 EQU * X P CF A5,READP READ 1:ST STA l P RB(NZ) BRM PARITY ERROR P LDR A4,A2 P IFT MSV1=0 P CF A5,READP READ 2:ND STA P CWR A2,A4 $ P
0x215680…215814 (2, 424) Dummy {f00=0x00ac, f01=0x0190, f02=» n P* P* $ P* YES SEQUENCE OK - HALT INPUT P* D P CF A5,CHALTI N P EJECT d P* r P* | 0 P* CHECK IF IT IS A SELECT OR A POLL ADDRESS P* P LDK A1,1 P ST A1,CACK LOAD ACK-COUNTER P LDR A2,A4
0x215814…2159a8 Dummy {f00=0x00ac, f01=0x0190, f02=»ERAL POLL 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) P =10 L P* P EJECT f P* t P* ~ & P* SPECIFIC POLL HAS BEEN RECEIVED P* P* P IFF STARVI+SPECP=0 P LD A1,XACK P RF(NZ) POL100 ACK
0x2159a8…215b3c Dummy {f00=0x00ac, f01=0x018e, f02=» CHECK POLLTIMER P IFT STARVI=1 P LD A1,DWTST,A6 GET STATUS . P ANK A1,7 P " P RF(NZ) POL120 PENDING STATUS b P XIF P IFF STARVI+SPECP=0 P LD A1,DWTST,A6 P RF(N) POL150 NO REQUEST P LD A1,DWTOR,A6 GET ORDER &
0x215b3c…215cd0 Dummy {f00=0x00ac, f01=0x0190, f02=» P EJECT P* P* $ P* GENERAL POLL HAS BEEN RECEIVED & P* N P* X PGPOLL EQU * b P LD A1,XACK v " P RF(Z) POL110 ACK NOT EXPECTED P =11 PPOL100 EQU * * P CF A5,HPTIM KILL PROCEDURE TIMER =11 P CF A5
0x215cd0…215e64 Dummy {f00=0x00ac, f01=0x0190, f02=»HECK POLL TIMER P IFF STARVI=0 P LD A6,DCSTQ . & P RF(Z) POL140 NO STATUS TO BE SENT D " P SUK A6,DWTOPE GET DWT ADDRESS n PPOL120 EQU * P CF A5,TRSTA SEND STATUS & P CF A5,SPTIM START PROCEDURE TIMER P IM XACK SET 'ACK EXPE
0x215e64…215ff8 Dummy {f00=0x00ac, f01=0x0190, f02=»D A6,DCWRQ " P RF(NZ) POL160 WRITE ON QUEUE PPOL150 EQU * 8 P CF A5,TREOT SEND EOT L P RB POL130 j PPOL160 EQU * | " P SUK A6,DWTOPN GET DWT ADDRESS PPOL170 EQU * $ P LD A8,DWTECB,A6 GET ECB ADDRESS P RF(NZ) POL180 P
0x215ff8…21618c Dummy {f00=0x00ac, f01=0x0190, f02=»G=0 $ P LDKL A4,MMUBUF MMU WORK BUFFER P ST A4,ECBBA,A8 4 . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER L P XIF ~ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS P LD A3,ECBRL,A8 GET LENGTH PPOL190 EQU * & P ST A4,FECBBA SAVE BUFFER ADDR
0x21618c…216320 Dummy {f00=0x00ac, f01=0x0190, f02=»X SENT' ~ P CM XSTA P CF A5,TRTEXT SEND ONE BLOCK & P CF A5,SPTIM START PROCEDURE TIMER D P IM XACK SET 'ACK EXPECTED' n P RB POL130 P EJECT P* P* P* SELECT HAS BEEN RECEIVED P* PSELECT EQU * P
0x216320…2164b4 (2, 425) Dummy {f00=0x00ac, f01=0x0190, f02=» RF(NZ) SEL100 P XIF P LDKL A6,DTETAB DTETAB ADRR " PSEL100 EQU * F P LD A1,XACK Z & P RB(NZ) POL100 ERROR. ACK EXPECTED n P IFF STARVI=0 P LD A1,DWTST,A6 GET STATUS P LDR A3,A1 P ANK A1,1 $ P RF(Z) SEL120 NO PEN
0x2164b4…216648 Dummy {f00=0x00ac, f01=0x0190, f02=»BL BRM PSEL120 EQU * P =2 " P IFT STARVI=1 =2 0 $ P ANK A3,/A WACK SENT OR DB ? =2 J P RF(NZ) SEL140 YES =2 r P XIF P =2 P LD A1,DCRBUF $ P RF(NZ) SEL150 BUFFER AVAILABLE P IFT STTSTS=1 ( P LDK A1,CS
0x216648…2167dc Dummy {f00=0x00ac, f01=0x0190, f02=»2 P CF A5,TRWACK SEND WACK P XIF * P RB SEL110 6 PSEL150 EQU * H , P CF A5,PRREC PREPARE FOR TEXT RECEPTION P ADK A1,6 P ST A1,FBLST P CF A5,TRACK SEND ACK,0 P RB SEL110 P EJECT P* P* P*
0x2167dc…216970 Dummy {f00=0x00ac, f01=0x0190, f02=»XRB RESET READ BUFFER P XIF P LD A1,XACK * & P RF(Z) EOT120 ACK IS NOT EXPECTED > " P LD A6,FDWTUT GET WRITING DWT h P RF(Z) EOT110 NO ONE WRITING P LDK A1,2 SET RC=2 ( P CF A5,CWRITE COMPLETE WRITE REQUEST PEOT110 EQU *
0x216970…216b04 Dummy {f00=0x00ac, f01=0x0190, f02=»* P* STX HAS BEEN RECEIVED P* * P* 4 PSTX100 EQU * > P CF A5,HPTIM R P IFT TPMODE=1 f P ABL BRM120 INVALID SEQENCE | PSTX110 EQU * P XIF P LD A1,XSEL P RF(Z) STX150 NOT SELECTED P LD A1,DCRBUF
0x216b04…216c98 Dummy {f00=0x00ac, f01=0x0190, f02=»NO BUFFER AVAILABLE P* P LDK A1,CSSRBY & $ P CF A15,DCSUPS INCREMENT COUNTER < P ABL BRM120 d P XIF x PSTX120 EQU * P CF A5,RDMESS READ MESSAGE P IFT STTSTS=1 P* P* P* COUNT MESSAGES RECEIVED P*
0x216c98…216e2c Dummy {f00=0x00ac, f01=0x0190, f02=» CM XSTA INDICATE 'INVALID MESSAGE' PSTX140 EQU * , P CF A5,TRNAK SEND NAK @ P ABL BRM ^ PSTX150 EQU * n P IFT RCOM=1 P LD A1,XACK & P RF(Z) STX160 ACK IS NOT EXPECTED P LD A1,DCRBUF & P RF(Z) STX160 NO BUFFER AVAILA
0x216e2c…216fc0 Dummy {f00=0x00ac, f01=0x0190, f02=»,PRREC PREPARE FOR TEXT RECEPTION P LDK A1,0 SET RC=0 * ( P CF A5,CWRITE COMPLETE WRITE REQUEST D P CM CACK PRESET ACK-1 p P RB STX120 READ THE MESSAGE P XIF ( PSTX160 CF A5,READ READ ONE CHARACTER P CWK A2,ENQPAR IS IT ENQ ?
0x216fc0…217154 (2, 426) Dummy {f00=0x00ad, f01=0x018e, f02=»GET BUFFER ADDRESS P ADK A4,6 P CW A4,FBLST , " P RF(NE) STX180 NOT FIRST BLOCK @ P IFF RCOM=0 f P LDK A1,ESC z P CCR A1,A4 P RB(NE) STX130 ESC NOT FOUND P LC A1,1,A4 GET COMMAND CODE P SUK A1,RDBCOM ( P RF(Z) RDB
0x217154…2172e8 Dummy {f00=0x00ad, f01=0x0190, f02=» P SUK A3,1 P RF(Z) STX280 SEND ACK P LD A6,FDWTIN GET INPUT DWT 4 P IFT MESPAS=1 X P CF A15,MESDWT n P XIF P CWR A7,A6 IS IT DTETAB ? P RF(E) STX280 SEND ACK P LD A2,DWTSTA,A6 . =14 , P RF(Z) STX280 TERMINAL DIS
0x2172e8…21747c Dummy {f00=0x00ad, f01=0x018e, f02=»T ADDRESS , P LC A2,TEBCDIC,A2 TRANSLATE IT TO EBCDIC $ P LD A1,DCRBUF IS THERE A BUFFER B P RF(Z) STX200 NO j P ST A2,+4,A1 STORE THE ADDR PSTX200 EQU * P XIF " P LD A2,DWTST,A6 ANY REQUEST ? P RF(N) STX220 NO P LD
0x21747c…217610 Dummy {f00=0x00ad, f01=0x0190, f02=» r P RF(NE) STX220 NO PSTX210 EQU * " P =12 6 $ P LD A8,DWTECB,A6 GET ECB ADDRESS F P LD A3,-4,A4 GET LENGTH n * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH . P LD A1,DWTLAD,A6 SYMBOLIC DTE ADDRESS =12 ( P LD A2,-2,A4 NETWORK SUB-A
0x217610…2177a4 Dummy {f00=0x00ad, f01=0x0190, f02=»TURN CODE =12 ~ & P CF A15,CTIME STOP REQUEST TIMING P IFT REMTIM=1 =9 @ * P ST A2,ECBCW1,A8 STORE REMAINING TIME Z P XIF =9 PSTX220 EQU * P IFT STARVI=1 P LC A2,+2,A4 GET WCC/CCC P ANK A2,/FF P LC A2,TEBCDIC,A
0x2177a4…217938 Dummy {f00=0x00ad, f01=0x0190, f02=» XIF " P LD A2,DWTST,A6 ANY REQUEST ? P RF(NN) STX240 YES 2 P CF A5,QRBUF QUEUE BUFFER L P RF STX270 n PSTX240 EQU * P LD A2,DWTOR,A6 GET ORDER $ P CWK A2,RECEIVE RECEIVE ORDER ? P RF(NE) STX260 NO P =12 P
0x217938…217acc Dummy {f00=0x00ad, f01=0x0190, f02=»X250 EQU * & P CF A15,DC:MIN MOVE TO USER BUFFER P RF STX270 < PSTX260 EQU * N P CF A5,QRBUF QUEUE BUFFER b P IFT EM3270=1 P LD A2,DWTOR,A6 GET ORDER ( P RF(NZ) STX270 NOT ANY MESSAGE ORDER $ P CF A15,TENDIO COMPLETE REQUEST
0x217acc…217c60 Dummy {f00=0x00ad, f01=0x0190, f02=» P CF A5,TRWACK SEN WACK P RF STX290 & P XIF 8 PSTX280 EQU * D P CF A5,TRACK SEND ACK X PSTX290 EQU * v P ABL BRM P EJECT P* P* , P* READ MODIFIED OR READ BUFFER RECEIVED P* P* P IFF RCO
0x217c60…217df4 (2, 427) Dummy {f00=0x00ad, f01=0x018e, f02=»FOR ADDRESSED TERMINAL v $ P LD A4,DWTBUF,A6 BUFFER ADDRESS $ P SUK A4,2 SDJUST BUFFER ADDRESS F " P LDKL A3,1922 REQUESTED LENGTH n " P IM XRB SET READ BUFFER SWITCH P CM FDWTUT P LDK A1,1 & P XRS A1,CACK INCREMENT ACK COUNTER P
0x217df4…217f88 Dummy {f00=0x00ad, f01=0x018e, f02=» & P CF A5,HPTIM STOP PROCEDURE TIMER P LD A1,XACK . , P RF(NZ) NAK110 RETRANSMISSION OF MESSAGE B P OR A1,XSEL r " P RF(Z) ENQ110 IN CONTROL STATE . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE PENQ110 EQU * P ABL BRM P EJECT
0x217f88…21811c Dummy {f00=0x00ad, f01=0x0190, f02=» l P LD A1,XACK P RF(NZ) NAK110 ACK EXPECTED P OR A1,XSEL @ " P RB(Z) ENQ110 IN CONTROL STATE T P RF DLE160 z PNAK110 EQU * " P LD A6,FDWTUT GET WRITING DWT P IFF STARVI=0 P LD A1,XSTA 0 P ABL(NZ) POL120 STATUS H
0x21811c…2182b0 Dummy {f00=0x00ad, f01=0x0190, f02=»T A1,FBAX P IFT STTSTS=1 P* ( P* 2 $ P* COUNT MESSAGES RETRANSMITTED < P* d P LDK A1,CSSTRT n P CF A15,DCSUPS P XIF P ABL POL200 P EJECT P* P* P* DLE HAS BEEN RECEIVED P* P*
0x2182b0…218444 Dummy {f00=0x00ad, f01=0x0190, f02=»F A5,READ P CWK A2,STX * P ABL(Z) STX110 YES - TRANSPARENT TEXT & P XIF T P RB ENQ110 ` PDLE110 EQU * r & P CF A5,READ READ SECOND CHARACTER P CWK A2,ACKPAR IS IT ACK 0 ? P RF(NE) DLE130 P* P* ACK , 0 RECEIVED
0x218444…2185d8 Dummy {f00=0x00ad, f01=0x0190, f02=» CF A5,SPTIM START PROCEDURE TIMER P RB ENQ110 * PDLE130 EQU * < P CWK A2,ACK1 P P RF(NE) DLE180 d P* z P* ACK , 1 RECEIVED P* P LD A1,CACK GET ACK COUNTER $ P RB(Z) DLE120 ACK,1 NOT EXPECTED PDLE140 EQU * P
0x2185d8…21876c Dummy {f00=0x00ad, f01=0x0190, f02=» LDK A1,0 SET RC=0 PDLE150 EQU * P IFF STARVI=0 . P LD A2,XSTA D . P RF(NZ) DLE200 STATUS HAS BEEN TRANSMITTED X P XIF ( P CF A5,CWRITE COMPLETE WRITE REQUEST PDLE160 EQU * P CF A5,TREOT SEND EOT P IFT RCOM=1 P
0x21876c…218900 Dummy {f00=0x00ad, f01=0x0190, f02=» n P ABL POL200 PDLE180 EQU * P CWK A2,RVIPAR IS IT RVI ? 0 ( P RB(NE) DLE120 INVALID DLE SEQUENCE R " P CM XACK RESET 'EXPECTING ACK' ~ P LD A1,XETX $ P RF(NZ) DLE190 ETX HAS BEEN SENT P LDK A1,2 SET RC=2 P RB DLE150
0x218900…218a94 (2, 428) Dummy {f00=0x00ad, f01=0x0190, f02=» BEEN TRANSMITTED P* P* $ PDLE200 EQU * . " P LD A6,FDWTUT GET DWT ADDRESS B , P CF A15,REMOVS REMOVE FROM STATUS QUEUE h P CM XSTA CLEAR 'STATUS SENT' " P CM XACK CLEAR 'ACK EXPECTED' P LD A1,DWTST,A6 GET STATUS P ANK
0x218a94…218c28 Dummy {f00=0x00ad, f01=0x0190, f02=»CT P* < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 P* T ( P* CALLING SEQUENCE: CF A5,FINTER(S) ^ P* A2=SUBTERMINAL ADDRESS P* A4 DESTROYED " P* A3#0: DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1
0x218c28…218dbc Dummy {f00=0x00ad, f01=0x0190, f02=» P* P* P* PFINTES EQU * " P IFT MSV1=1 6 P LDK A4,0 J P RF FINT05 P XIF n PFINTEP EQU * z P LDK A4,1 RIGTH BYTE PFINT05 EQU * " P LD A3,DTEDWT,A7 GET FIRST DWT PFINT10 EQU * P RF(Z) FINT20 EN
0x218dbc…218f50 Dummy {f00=0x00ad, f01=0x0190, f02=» NEXT DWT | P RB FINT10 PFINT20 EQU * $ P ANKL A3,/FFFE 8 P RTN A5 N P EJECT ^ P* l P* v P* PREPARE FOR TEXT RECEPTION P* P* PPRREC EQU * P IM XSEL SET 'SELECTED' P CM FBAX RESET BUFFER INDEX
0x218f50…2190e4 Dummy {f00=0x00ad, f01=0x0190, f02=»TA " P ST A6,FDWTIN STORE INPUT DWT P RTN A5 0 P EJECT @ P* N P* X 6 P* CHECK IF THERE IS A SEND REQUEST TO BE COMPLETED b P* P* A1 CONTAINS RETURN CODE P* P* PCWRITE LD A6,FDWTUT $ P RF(Z) CWR900 NO
0x2190e4…219278 Dummy {f00=0x00ad, f01=0x0190, f02=»OPTION PART z P SUK A2,6 $ P RF(NZ) CWR900 NOT SEND REQUEST & 4 P LD A2,DWTIPC,A6 ANY RECEIVED BUFFERS ON QUEU ? N P RF(Z) CWR110 NO 0 P ORKL A1,R:DATA ACCEPTED AND DATA AVAILABLE PCWR110 EQU * P LD A8,DWTECB,A6 P CF A15,CT
0x219278…21940c Dummy {f00=0x00ad, f01=0x0190, f02=» EQU * * P CF A15,REMOVW REMOVE FROM WRITE QUEUE PCWR900 EQU * < " P CM XACK RESET 'ACK EXPECTED' P P CM FDWTUT v P RTN A5 P EJECT P* P* P* READ ONE TEXT BLOCK P* P* ON EXIT A3 CONTAINS : ( P* 0 :
0x21940c…2195a0 Dummy {f00=0x00ad, f01=0x0190, f02=»* PRDMESS EQU * $ P LD A4,DCRBUF GET BUFFER ADDRESS P ADK A4,6 RESERVE HEADER F P LDK A3,0 f P LD A1,XSTA x $ P RF(NZ) RDM050 LAST INPUT WAS OK " P LD A1,FBLST COMPUTE NEW INDEX P SUR A1,A4 P ST A1,FBAX PRDM050 E
0x2195a0…219734 (2, 429) Dummy {f00=0x00ad, f01=0x0190, f02=» P IFT IBMCHR=1 P IFF TPMODE=1 P LD A1,FBAX 4 " P RF(NZ) RDM100 NOT FIRST BLOCK H P CF A5,READP n P RF(NZ) RDM120 PARITY ERROR P CWK A2,ESC P RF(NE) RDM110 * P CF A5,READP SKIP NEXT TWO CHARACTERS P CF A5,REA
0x219734…2198c8 Dummy {f00=0x00ad, f01=0x0190, f02=» PRDM110 EQU * P XIF P IFT TPMODE=1 $ & P IM TPM INDICATE TRANSPARENT TEXT : PRDM100 CF A5,READ d P CWK A2,DLE CHECK IF DLE ~ P RF(NE) RDM112 NO 0 P CF A5,READ SKIP DLE AND READ NEXT CHARACTER P CWK A2,SYNEBC CHECK IF SYN
0x2198c8…219a5c Dummy {f00=0x00ad, f01=0x0190, f02=»E DLE AS DATA x P CWK A2,ETX CHECK IF ETX P RF(E) RDM130 YES 6 P CWK A2,ETBEBC CHECK IF ETB P P RF(E) RDM160 YES t P CWK A2,ITB CHECK IF ITB P RF(E) RDM175 YES P CWK A2,ENQEBC CHECK IF ENQ P RF(E) RDM140 YES SEND NAK
0x219a5c…219bf0 Dummy {f00=0x00ad, f01=0x0190, f02=» P CF A5,READ P CWK A2,ETX $ P RF(E) RDM110 YES - END OF BLOCK 0 P CWK A2,ETBEBC X $ P RB(NE) RDM105 NOT END OF BLOCK n PRDM110 EQU * $ P CM TPM OUT OF TRANSPARENT TEXT P CF A5,RDCRC ( P RF RDM140 INDICATE INVALID MESSAG
0x219bf0…219d84 Dummy {f00=0x00ad, f01=0x0190, f02=» P CWK A2,ETB P RF(E) RDM160 ETB RECEIVED P CWK A2,ITB : P RF(E) RDM170 ITB RECEIVED N P CWK A2,ENQ p 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAGE P CWK A2,/FF $ P RF(E) RDM140 MARK HOLD RECEIVED P IFT CODE=0
0x219d84…219f18 Dummy {f00=0x00ad, f01=0x0190, f02=»1-DC3 | P SLL A1,6 P SCR A1,A4 =7 * P CF A5,READP 8-BIT CHAR GET NEXT PART 6 P RF(NZ) RDM120 PARITY ERROR d P LCR A1,A4 =7 * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER P ORR A2,A1 =7 P XIF PRDM115 EQU * & P ADK A
0x219f18…21a0ac Dummy {f00=0x00ad, f01=0x0190, f02=» IM FBAX INCREMENT BUFFER INDEX P LD A1,FBAX ( P CWK A1,RBUFL+RBUFL < P RB(NG) RDM100 NOT OVERFLOW X P* | P* BUFFER OVERFLOW P* & P LDK A3,1 INDICATE BUFFER OVERFLOW P IFT STTSTS=1 " P LDK A1,CSSRBO BUFFER OVERFLOW
0x21a0ac…21a240 Dummy {f00=0x00ad, f01=0x0190, f02=» EQU * P IFT STTSTS=1 P LDK A1,CSSRPE $ $ P CF A15,DCSUPS INCREMENT COUNTER : P XIF b & P LDK A3,1 INDICATE INVALID MESSAGE n P SUK A2,/7F $ P RF(Z) RDM150 MARK HOLD RECEIVED P RB RDM100 P* P* ETX RECEIVED P*
0x21a240…21a3d4 (2, 430) Dummy {f00=0x00ae, f01=0x0190, f02=»GTH IN HEADER p P IFF CODE=1 P CF A5,RDLRC * P RF(Z) RDM150 LRC WAS OK > P XIF ^ P IFT CODE=1 j & P CF A5,RDCRC READ CRC AND CHECK IT ~ P RF(E) RDM150 CRC WAS OK P XIF PRDM140 EQU * & P LDK A3,1 INDICATE INVALID MESSA
0x21a3d4…21a568 Dummy {f00=0x00ae, f01=0x018e, f02=»5 P LDK A3,1 PARITY ERROR PRDM155 EQU * ( P XIF < P IFT TPMODE=1 H & P CWK A3,1 ERROR DETECTED EARLIER ? ^ P RF(NE) RDM158 NO $ P CM TPM OUT OF TRANSPARENT TEXT PRDM158 EQU * P XIF P RTN A5 P* P* ET
0x21a568…21a6fc Dummy {f00=0x00ae, f01=0x018e, f02=» p P RB RDM130 P* P* ITB RECEIVED $ P* : PRDM170 EQU * D P IFF CODE=1 X P CF A5,RDLRC l " P RB(NZ) RDM120 LRC WAS NOT OK P XIF P IFT CODE=1 & P CF A5,RDCRC READ CRC AND CHECK IT " P RB(NE) RDM120 CRC WAS N
0x21a6fc…21a890 Dummy {f00=0x00ae, f01=0x0190, f02=» " P RB(NE) RDM105 CRC WAS NOT OK PRDM180 CF A5,READ * P CWK A2,SYNEBC D P RB(E) RDM180 SKIP SYN Z P CWK A2,DLE x $ P RB(NE) RDM105 ILLEGAL CHARACTER P CF A5,READ P CWK A2,STX $ P RB(NE) RDM105 ILLEGAL CHARACTER P XIF
0x21a890…21aa24 Dummy {f00=0x00ae, f01=0x018e, f02=»1 x & P XRS A2,CACK INCREMENT ACK COUNTER P RF(NZ) TRDLE 4 P LDK A3,ACK0 LOAD ACK0 J P RF TRDLE h P* z P* TRANSMIT WACK P* PTRWACK LDK A3,WACK LOAD WACK P RF TRDLE P* P* TRANSMIT RVI P* P I
0x21aa24…21abb8 Dummy {f00=0x00ae, f01=0x0190, f02=» t " P SC A2,RESEND PUT INSAVE AREA P SC A3,RESEND+1 . P RF TRREP F P EJECT X P* f P* TRANSMIT NAK p P* PTRNAK LDK A3,NAK LOAD NAK P RF TREN10 P* P* TRANSMIT EOT P* PTREOT LDK A3,EOT LOAD EOT
0x21abb8…21ad4c Dummy {f00=0x00ae, f01=0x0190, f02=»IN SAVE AREA x P LDK A2,/FF P SC A2,RESEND+1 ( $ PTRREP CF A5,TRSYNC START OUTPUT @ & P LC A2,RESEND GET FIRST CHARACTER h P CF A5,WRITEP SEND IT & P LC A2,RESEND+1 GET NEXT CHARACTER P CF A5,WRITEP SEND IT PTRRE10 LDK A2,/F
0x21ad4c…21aee0 Dummy {f00=0x00ae, f01=0x0190, f02=» CF A5,LOGSST LOG TRANSMITTER STATUS P XIF , P RTN A5 8 P EJECT H P* V P* ` P* TRANSMIT ONE TEXT BLOCK j P* P* PTRTEXT EQU * P CF A5,TRSYNC START OUTPUT P IFF TPMODE=0 P LDK A2,DLE P CF A5,W
0x21aee0…21b074 (2, 431) Dummy {f00=0x00ae, f01=0x0190, f02=» ADDRESS x P AD A4,FBAX ADD BUFFER INDEX ( P ST A4,FBLST REMEMBER START OF BLOCK 4 P . =15 ` & P LDK A3,0 RESET CHARACTER COUNTER p P LD A1,FBAX GET BUFFER INDEX " P RF(NZ) TRT100 NOT FIRST BLOCK " P LDR* A2,A7 NETWORK POLL ADDR
0x21b074…21b208 Dummy {f00=0x00ae, f01=0x0190, f02=» z P IFT IBMCHR=1 P IFF RCOM=1 " P LDK A2,/27 SEND ENTER AS AID 2 P CF A5,WRITEP X " P LDK A2,/20 AND CURSOR ADDRESS n P CF A5,WRITEP P LDK A2,/20 P CF A5,WRITEP P XIF P IFT RCOM=1 P & P LD A1,XRB R
0x21b208…21b39c Dummy {f00=0x00ae, f01=0x0190, f02=»F A5,WRITEP SEND AID P $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS $ . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER L P LDK A3,5 SET BLOCK COUNT ~ P RF TRT100 PTRT070 EQU * P XIF P P LDK A3,2 PTRT100 EQU * P IFT TPM
0x21b39c…21b530 Dummy {f00=0x00ae, f01=0x0190, f02=»2,/7F P IFT RCOM=1 & P LD A1,XRB READ BUFFER COMMAND ??? " P RF(Z) TRT105 NO!! L P f @ P************************************************************ n P* , P* CHECK IF ATTRIBUTE CHARACTER OR NULL P* 4 P******************
0x21b530…21b6c4 Dummy {f00=0x00ae, f01=0x0190, f02=»K=1 P CWK A2,/7E LINE FEED ? " P RF(NE) TRT102 NO,GO TO TRT102 , P LDK A2,/0A R PTRT102 EQU * f P CWK A2,/7D END OF MESSAGE ? z " P RF(NE) TRT103 NO,GO TO TRT103 P LDK A2,/19 PTRT103 EQU * P CWK A2,X'7F' NULL ??
0x21b6c4…21b858 Dummy {f00=0x00ae, f01=0x0190, f02=»SF " P CF A5,WRITEP SEND START FIELD P 0 ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER 8 P ANK A2,X'7F' d ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE z P ANK A1,1 P ANK A2,/1E MASK P SLL A2,1 & P ORR A2,A1 IBM ATTRIBUTE COMPOSED
0x21b858…21b9ec Dummy {f00=0x00ae, f01=0x0190, f02=»2,/30 PTRT104 EQU * P CF A5,WRITEP SEND ATTRIBUTE " P ADK A3,1 F P RF TRT110 X PTRT105 EQU * j P XIF ~ P EJECT P IFF TPMODE=1 P CWK A2,/07 ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT P XIF P CF A5,WRITEP
0x21b9ec…21bb80 Dummy {f00=0x00ae, f01=0x0190, f02=» " P RF(NG) TRT130 END OF MESSAGE * P ADK A3,1 INCREMENT CHARACTER COUNTER . P CWK A3,TBLEN P IFT TPMODE=1 r P RB(L) TRT105 NOT FULL BLOCK P XIF P RB(L) TRT100 NOT FULL BLOCK P IFT RCOM=1 , P LDK A1,SBA CHECK IF SBA
0x21bb80…21bd14 (2, 432) Dummy {f00=0x00ae, f01=0x0190, f02=»ET FIRST BYTE AFTER SBA P ADK A4,1 INREMENT POINTER P CF A5,WRITEP SEND IT B P IM FBAX INCREMENT INDEX ` . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA P CF A5,WRITEP SEND IT P IM FBAX INCREMENT INDEX P XIF PTRT116 EQU *
0x21bd14…21bea8 Dummy {f00=0x00ae, f01=0x0190, f02=» EQU * P IFT TPMODE=1 P CM TPM $ P XIF 4 P CF A5,WRITEP SEND IT @ P IFF CODE=1 ^ P LDR A2,A8 GET LRC r P CF A5,WRITEP SEND LRC P XIF P IFT CODE=1 P LDR A6,A8 GET CRC DK P LDR A2,A6 P ANK A2,/FF
0x21bea8…21c03c Dummy {f00=0x00ae, f01=0x018e, f02=» STTSTS=1 P* P* " P* COUNT MESSAGES TRANSMITTED & P* L P LDK A1,CSSTBL V P CF A15,DCSUPS l P XIF P ABL TRRE10 HALT OUTPUT PTRT130 EQU * P IM XETX INDICATE 'ETX SENT' P IFT TPMODE=1 P LDK A2,DLE
0x21c03c…21c1d0 Dummy {f00=0x00ae, f01=0x018e, f02=» P* P* P* TRANSMIT STATUS MESSAGE P* : P* D P IFF STARVI=0 N PTRSTA EQU * d $ P IM XSTA INDICATE 'STATUS SENT' x P ST A6,FDWTUT SAVE A6 P CF A5,TRSYNC START OUTPUT P LDK A2,SOH P CF A5,WRITE SEND SO
0x21c1d0…21c364 Dummy {f00=0x00ae, f01=0x0190, f02=» P LDK A2,STX P CF A5,WRITE SEND STX P LDR* A2,A7 6 P CF A5,WRITEP SEND TCA J " P LD A4,FDWTUT GET DWT-ADDRESS h ( P LDR* A2,A4 GET NETWORK SUB-ADDRESS P CF A5,WRITEP SEND STA P LD A1,DWTST,A4 GET STATUS P ANK A1,/06 MA
0x21c364…21c4f8 Dummy {f00=0x00ae, f01=0x0190, f02=» v P LD A1,DWTST,A4 GET STATUS P ANK A1,5 * P RF(Z) TRST10 NOT 'IR' < P ANK A1,4 Z P RF(NZ) TRST10 NO IR IF DE l P LDK A2,IR PTRST10 EQU * P CF A5,WRITEP SEND S/S 1 P RB TRT130 SEND ETX AND LRC P XIF P EJE
0x21c4f8…21c68c Dummy {f00=0x00ae, f01=0x0190, f02=»NE n , P CF A5,CSYNCO START OUTPUT WITH SYNC DEF * P CF A5,READ WAIT FOR OUTPUT INTERRUPT : P* h P* r P* SEND 4 SYN-CHARACTERS | P* P LDK A3,4 PTRS100 EQU * P LDK A2,SYN P CF A5,WRITE SEND CHARACTER P SUK
0x21c68c…21c820 Dummy {f00=0x00ae, f01=0x0190, f02=»NPUT DATA n P* PCSYNCI EQU * P LD A2,PFPOST 0 $ P RF(NZ) CSYN:I WAIT FOR POWER UP F P CF A5,CHALTI STOP INPUT n & P ST A5,DCLCI SET INPUT ACTIVE FLAG P IFT P6805=1 . P LDK A2,PARITY CHAR PARITY FUNCTION FOR LC P CIO A2,1,
0x21c820…21c9b4 (2, 433) Dummy {f00=0x00ae, f01=0x0190, f02=» * P LDKL A2,CBCARR+SYNC DEF SYNC-PATTERN 2 P CIO A2,1,LCUIN SEND INPUT SYNC-PATTERN TO LC 6 P =1 l P XIF z PCSYN:I EQU * P RTN A5 RETURN TO CALLER P* P* " P* CHALTI : HALT INPUT CHANNEL P* PCHALTI EQU
0x21c9b4…21cb48 Dummy {f00=0x00ae, f01=0x0190, f02=»T ACTIVE FLAG | P SST A2,LCUIN READ STATUS " P RF(A) CHALTR SST ACCEPTED =1 8 : P LDK A2,1 INSTRUCTION NOT ACCEPTED, SET MODEM ERR. =1 ^ PCHALTR EQU * =1 P IFF LOGG=0 $ P CF A5,LOGSST LOGG INPUT STATUS P XIF P RTN A5 RETU
0x21cb48…21ccdc Dummy {f00=0x00ae, f01=0x0190, f02=» LD A2,PFPOST $ P RF(NZ) CSYN:O WAIT FOR POWER UP P IFT P6805=1 > * P LDK A2,PARITY CHAR PARITY CHECK BY CU R P CIO A2,1,LCUUT CIO START P RF(A) CSYNC1 ACCEPTED $ P SST A2,LCUUT TRY TO READ STATUS * P ABL BRM NOT ACCEPTED TIMEOUT RE
0x21ccdc…21ce70 Dummy {f00=0x00ae, f01=0x0190, f02=»=0 & P CIO A2,1,LCUUT START TRANSMITTER P XIF 4 PCSYN:O EQU * @ P RTN A5 RETURN TO CALLER T P* t P* ~ $ P* CHALTO : HALT OUTPUT CHANNEL P* PCHALTO EQU * P IFT P6805=1 P LDK A2,CBSTOP STOP FUNCTION P X
0x21ce70…21d004 Dummy {f00=0x00ae, f01=0x0190, f02=»TION NOT ACCEPTED =1 z " P CF A5,READ WAIT FOR INTERRUPT P XIF B P SST A2,LCUUT GET STATUS N PCHLT00 EQU * n P IFT STTSTS=1 P ANK A2,H:NOOP+H:THRU P RF(Z) CHLTO2 $ P LDK A1,CSCDCE DCE NOT OPERABLE P ANK A2,H:NOOP
0x21d004…21d198 Dummy {f00=0x00ae, f01=0x0190, f02=»LTO2 EQU * P XIF P RTN A5 RETURN TO CALLER P EJECT > P* L P* V P* RECEIVER INTERRUPT ` P* ~ P* PIH1501 EQU * P ST P,INTSAV P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF P P IFF
0x21d198…21d32c Dummy {f00=0x00ae, f01=0x0190, f02=» , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS P IFF LOGG=0 4 ( P CF A5,LOGIN LOG RECEIVED CHARACTER H P XIF t P IFT TPMODE=1 P C2 TPM 8 P RF(NZ) IHLC10 DO NOT SKIP SYNC IN TRANSPARENT TEXT P XIF P C2 SYNSW 0 P RF(NZ)
0x21d32c…21d4c0 Dummy {f00=0x00ae, f01=0x0190, f02=»ALCULATE LRC P XIF P IFT CODE=1 $ P LD A1,XSEL SEE IF SELECTED DK1 4 " P RF(Z) IHLC07 NO, SKIP IT DK1 P CF A5,CRCCAL CALCULATE CRC PIHLC07 EQU * DK1 ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P XIF PIHLC10 EQU *
0x21d4c0…21d654 (2, 434) Dummy {f00=0x00af, f01=0x0190, f02=» v P LDK A1,1 P ST A1,DTEPLS,A7 CU OPERABLE P RTN A5 RETURN TO CALLER > PIHIN20 EQU * ^ P CF A5,SST PERFORM SST r P ABL BRM P EJECT P* P* P* TRANSMITTER INTERRUPT P* P* PIH1502 EQU *
0x21d654…21d7e8 Dummy {f00=0x00af, f01=0x0190, f02=»E A1-A8 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RTN A5 J P EJECT Z P* h P* r & P* SST INSTRUCTION AND STATUS CHECK | P* ( P* LCU STATUS : BIT 10=CARRIER OFF . P* BIT 13=PARITY ERROR (6805 ONLY) SALCUZ
0x21d7e8…21d97c Dummy {f00=0x00af, f01=0x0190, f02=»2,LCUIN GET STATUS P LDR A1,A2 P IFT LOGG=1 , & P CF A5,LOGSST LOGG SST INFORMATION @ P XIF j P ANK A2,H:ERR ERROR BIT SET v P RF(NZ) SST050 YES P IFT P6805=0 P LD A2,DCLCI INPUT STATUS * P RF(Z) SST125 INPUT NOT ACTIVE
0x21d97c…21db10 Dummy {f00=0x00af, f01=0x0190, f02=»AIN r $ P RF SST125 RETURN TO DISPATCHER P XIF 4 P IFT P6805=1 @ P RF SST100 T P XIF f PSST050 EQU * r P ANK A2,H:CARR CARRIR OFF P RF(Z) SST075 NO P LD A2,DCLCI INPUT STATUS 0 P RF(Z) SST125 NOT ACTIVE IGNORE CARRIE
0x21db10…21dca4 Dummy {f00=0x00af, f01=0x0190, f02=»THRU THROUGHPUT ERROR P RF(Z) SST100 NO P IFT STTSTS=1 6 P* L P* V $ P* COUNT INPUT THROUGHPUT ERROR ` P* P LDK A1,CSCDIT P CF A15,DCSUPS P XIF P ABL BRM110 P* PSST100 EQU * P LDR A2,A1
0x21dca4…21de38 Dummy {f00=0x00af, f01=0x018e, f02=» P* P LDK A1,CSCDCE P CF A15,DCSUPS $ P XIF : P CF A15,STREG SAVE REGISTERS F P CF A15,SETIME DELAY 1 SEC j P DATA SST150,10 PSST125 EQU * $ P ABL TDISP RETURN TO DISPATCHER P* PSST150 EQU * P CF A15,LD
0x21de38…21dfcc Dummy {f00=0x00af, f01=0x0190, f02=» 4 P XRK A1,H:CARR CHECK STATUS IF ONLY CARRIER OFF P RF(Z) SST250 YES < PSST225 EQU * V 0 P ST A1,DCSTCU STORE STATUS AS CURRENT STATUS j PSST250 EQU * P RTN A5 RETURN TO CALLER P EJECT P* P* , P* WRITE FROM OR READ
0x21dfcc…21e160 Dummy {f00=0x00af, f01=0x0190, f02=»DE p P CWK A2,DLE CHECK IF DLE P RF(NZ) WRIT05 NO * P CF A5,WRIDLE SEND EXTRA DLE D P LDK A2,DLE h P RF WRIT05 | PWRIT02 EQU * P ANK A2,/FF P CWK A2,/FF 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEB
0x21e160…21e2f4 (2, 435) Dummy {f00=0x00af, f01=0x0190, f02=»E=1 $ PWRIT10 XRR A8,A2 ACCUMULATE BCC P XIF 4 P IFT CODE=1 @ & PWRIT10 CF A5,CRCCAL CALCULATE CRC T P XIF ~ PWRIT15 EQU * P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER P XIF P* PREAD CF A15,STREG
0x21e2f4…21e488 Dummy {f00=0x00af, f01=0x0190, f02=»NFIGURED r P* PWRIDLE EQU * " P OTR A2,0,LCUUT SEND CHARACTER . P RB(A) WRIT15 ACCEPTED T $ P RB READ OUTPUT THROUGHPUT ERROR r P EJECT P* P* P*** WRITEP P* P* WRITE A2 WITH PARITY P* P*
0x21e488…21e61c Dummy {f00=0x00af, f01=0x0190, f02=»100 P RB(Z) WRITE WRITE P XRK A2,/80 & P RB WRI100 : P XIF L P IFF CODE+P6805=0 SALCUZ X PWRITEP RB WRITE z P XIF P* P* P* P*** READP P* . P* READ CHARACTER TO A2 AND CHECK PARITY
0x21e61c…21e7b0 Dummy {f00=0x00af, f01=0x0190, f02=» P RB(NN) RE100 P XRK A2,/80 P RB RE100 . PRE110 LDR A1,A2 @ P ANK A2,/7F X P XIF l P IFF CODE+P6805=0 SALCUZ x P LDK A1,/80 P XIF P ADK A5,4 P ANK A1,/80 P XRK A1,/80 P ABR* A5 P*
0x21e7b0…21e944 Dummy {f00=0x00af, f01=0x0190, f02=» P CF A15,SAVE8 SAVE A1-A8 P XIF $ P 0 P IFF CPU852=1 8 P MSR 8,A15 SAVE A1-A8 N P XIF l " P LDKL A7,DTETAB DTETAB ADDRESS x P IFT STARVI=1 P LDK A5,4 SET DEVICE END ( P LD A6,DTEDWT,A7 GET FIRST DWT ADDR PDC1510 E
0x21e944…21ead8 Dummy {f00=0x00af, f01=0x0190, f02=» LD A6,DWTCHN,A6 GET NEXT DWT IN CHAIN P RB DC1510 . PDC1520 EQU * @ P =4 T P =13 b P XIF r P LD A2,DTESTA,A7 DTE STATUS ~ P SUK A2,2 $ P ABL(NZ) TDISP OPEN NOT EXECUTED * P CM DCLCI INIT LINE CONTROL UNIT INFO (
0x21ead8…21ec6c Dummy {f00=0x00af, f01=0x0190, f02=» P ABL BRM P EJECT P IFT CODE=1 & P* : P* D P* CALCULATION OF CRC N P* j P* A2 = CHARACTER t P* A8 = ACCUMULATED CRC P* P* PCRCCAL EQU * P ST A1,CRCSAV+2 P ST A2,CRCSAV+6 P ST A3
0x21ec6c…21ee00 Dummy {f00=0x00af, f01=0x0190, f02=» A3,A2 P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 2 P XRKL A4,/A001 H PCRC110 SUK A1,1 ^ P RB(NZ) CRC100 v P LDR A8,A4 SAVE NEW CRC PCRCSAV EQU * P LDKL A1,0 P LDKL A2,0 P LDKL A3,0 P LDKL A4,0 P
0x21ee00…21ef94 (2, 436) Dummy {f00=0x00af, f01=0x018e, f02=»* PRDCRC EQU * P STR A8,A5 SAVE CURRENT CRC " P SUK A5,2 ADJUST STACK POINTER B $ P IM SYNSW DO NOT SKIP SYNCS NOW h P CF A5,READ READ BYTE 1 P LD A4,CRCSAV+6 SAVE IT P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN BE S
0x21ef94…21f128 Dummy {f00=0x00af, f01=0x0190, f02=» P XIF P IFT CODE=0 P* ( & P* RDLRC READ LRC CHARACTER 2 " P* CR=0 IF LRC OK P* PRDLRC IM SYNSW P CF A5,READP P ADK A5,4 P LDR A1,A1 P RF(NZ) LRCEND P ANKL A8,/007F PLR
0x21f128…21f2bc Dummy {f00=0x00af, f01=0x0190, f02=» P* DRIVER WORK AREAS P* $ , P**************************************** . P* ^ P* h P* DC RECEIVE BUFFER POOL r P* PRLINK EQU RBUFL+RBUFL+8 P* PDCRBUF EQU * P DATA *+2 FREE BUFFER ANCHOR P IFF RBUFN
0x21f2bc…21f450 Dummy {f00=0x00af, f01=0x0190, f02=» P DATA *+RLINK P RES RBUFL+3 P XIF . P DATA *+RLINK : P RES RBUFL+3 P P DATA 0 END OF CHAIN d P RES RBUFL+3 P P IFF MMUPAG=0 & PMMUBUF RES TBUFL+1 MMU WORK BUFFER 4 PSUBBUF RES 3 MMU BUFFER FOR CONNECT REQUEST
0x21f450…21f5e4 Dummy {f00=0x00af, f01=0x0190, f02=»GSST ST A2,SAVE2 P ORKL A2,/F000 P RF LOG10 . PLOGOUT ST A2,SAVE2 @ P ORKL A2,/0F00 Z P RF LOG10 p PLOGIN CWK A2,/FF P RF(E) LOGE10 P ST A2,SAVE2 PLOG10 ST A3,SAVE3 P LD A3,LOGPNT P STR A2,A3 P A
0x21f5e4…21f778 Dummy {f00=0x00af, f01=0x0190, f02=»A3,SAVE3 PLOGE10 RTN A5 P EJECT & P* 4 P* > PLOGPNT DATA LOGSTA H PLOGSTA EQU * b P RES 300 v PLOGEND EQU *-4 PSAVE2 DATA 0 PSAVE3 DATA 0 P XIF P* P* P* P IFT RCOM=1 P EJECT
0x21f778…21f90c Dummy {f00=0x00af, f01=0x0190, f02=»OR ADDRESS TO LINE AND COLUMN NUMBER ~ P* , > P********************************************************** 6 P x PLINCOL EQU * " P LDR A2,A3 COPY CURSOR ADDRESS P SRL A2,6 P ANK A2,X'3F' & P LC A2,LICO:T,A2 ASCII LINE NUMBER
0x21f90c…21faa0 Dummy {f00=0x00af, f01=0x0190, f02=»F A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN & P* < P* F P* P P EJECT Z P h P p PLICO:T EQU * x * P DATA /2041,/4243,/4445,/4647 /00-/07 * P DATA /4849,/5B2E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /1
0x21faa0…21fc34 (2, 437) Dummy {f00=0x00af, f01=0x0190, f02=»/28-/2F r ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A23,/4027,/3D22 /38-3F < P XIF h P EJECT t P* P* DTETAB P* P* FIXED PART P* PDW1500 EQU * PDTETAB DATA 0,0 P DATA 0,0,0,0,0,0
0x21fc34…21fdc8 Dummy {f00=0x00af, f01=0x0190, f02=» P DATA 0,0,0,0,0,0 P DATA 0,0,0,0,0,0 * PDTESBU EQU * : P DATA 0 SYMBOLIC ID N P DATA 0 COUNTER STATUS WORD j $ P DATA /20 MAX NUMBER OF COUNTERS P RES /20 STATISTIC BUFFER P EJECT P* P* P* PROCEDURE WO
0x21fdc8…21ff5c Dummy {f00=0x00af, f01=0x0190, f02=» DATA 0 ACK EXPECTED PXSEL DATA 0 SELECTED PXETX DATA 0 ETX SENT 8 2 PXSTA DATA 0 STATUS SENT / MESSAGE INPUT RESULT T " PXRB DATA 0 READ BUFFER SWITCH PCACK DATA 0 ACK COUNTER * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP & PTPM DATA 0
0x21ff5c…2200f0 Dummy {f00=0x00af, f01=0x0190, f02=» BUFFER LENGTH | PFBAX DATA 0 BUFFER INDEX 0 PFBLST DATA 0 START OF LAST TRANSMITTED BLOCK 6 $ PDCSTQ DATA 0 STATUS QUEUE ANCHOR j . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING $ PDCWRQ DATA 0 WRITE REQUEST QUEUE , PRESEND DATA 0 CONTROL SEQUEN
0x2200f0…220284 Dummy {f00=0x00af, f01=0x407c, f02=»ENT STATUS ~ , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL & PDCLCI DATA 0 DC UNIT INPUT STATUS B P END l@ xS QUEUE ANCHOR j . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING $ PDCWRQ DATA 0 WRITE REQUEST QUEUE , PRESEND DATA 0 CONTROL SEQUEN
0x220284…220418 Dummy {f00=0x00af, f01=0x2008, f02=» H P X ` h p x
0x220418…2205ac Dummy {f00=0x00af, f01=0x0190, f02=» * v > P********************************************************* ( P* REGISTERS j P* ~ P* A8= BUFFER ADDRESS P* A11= RESERVED P* A13= RESERVED P* > P******************************************
0x2205ac…220740 Dummy {f00=0x00af, f01=0x409c, f02=» P RF(Z) RELB90 P LDR A7,A1 P RB RELB10 , PRELB90 EQU * > P STR A8,A7 R P CMR A8 d P RTN A14 t P P END @ P* A11= RESERVED P* A13= RESERVED P* > P******************************************
0x220740…2208d4 (2, 438) Opaque[0x194]
0x2208d4…220a68 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1600, f03=0x0000}
0x2208d4…220a68 IdxSect {
0x2208d4…220a68 f00 = 0x00b0 // 0x2208d4 @0x0
0x2208d4…220a68 f01 = 0x0004 // 0x2208d6 @0x2
0x2208d4…220a68 gno = [ // 0x2208d8 @0x4
0x2208d4…220a68 [0x00]: C0x00b0.0x0.0
0x2208d4…220a68 [0x01]: C0x00b0.0x1.0
0x2208d4…220a68 ]
0x2208d4…220a68 }
0x220a68…220bfc Dummy {f00=0x00b0, f01=0x018e, f02=» 0 P IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 P 8 P* @ 4 P************************************************ J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x220bfc…220d90 Dummy {f00=0x00b0, f01=0x018e, f02=» P* P* . P* CONDITIONAL ASSEMBLY (SEE ALSO DRDC15) P* J 2 PX:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15) T PCODE EQU X:A 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P* : P* VERSION FOR SCAND
0x220d90…220f24 Dummy {f00=0x00b0, f01=0x0190, f02=» P* 7C 5C P* 00 7C P* 5A 24 $ P* 6A 40 4 P EJECT D P* R P* 2 P* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII f P* P* PTASCII EQU * P IFT CODE=1 ( P DATA /0001,/0203,/0009,/0000 00-07 ( P DAT
0x220f24…2210b8 Dummy {f00=0x00b0, f01=0x0190, f02=»000,/0000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F $ ( P DATA /0000,/1600,/0000,/0004 30-37 P ( P DATA /0000,/0000,/1415,/001A 38-3F | ( P DATA /2041,/4243,/4445,/4647 40-47 ( P DATA /4849,/232E,/3C28,/2B21 48-4F ( P DATA /2
0x2210b8…22124c Dummy {f00=0x00b0, f01=0x0190, f02=»/402C,/255F,/3E3F 68-6F ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3839,/3A5B,/5C27,/3D22 78-7F L ( P DATA /2061,/6263,/6465,/6667 80-87 x ( P DATA /6869,/5B2E,/3C28,/2B21 88-8F ( P DATA /266A,/6B6C,/6D6E,/6F70 90-97 ( P DATA /7172,
0x22124c…2213e0 Dummy {f00=0x00b0, f01=0x0190, f02=»3,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4647 C0-C7 H ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF t ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7 ( P DATA /5152,/5D24,/2A29,/3B5E D8-DF ( P DATA /7F2F,/535
0x2213e0…221574 (2, 439) Dummy {f00=0x00b0, f01=0x0190, f02=»027,/3DFF F8-FF | P XIF P EJECT $ P* 2 P* < 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC F P* | P* PTEBCDIC EQU * P IFF CODE+RCOM=0 ( P DATA /0001,/0203,/372D,/0000 00-07 ( P DATA /0005,/1500,/0C00,/0000
0x221574…221708 Dummy {f00=0x00b0, f01=0x018e, f02=»7 n ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 6 ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F b ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-5
0x221708…22189c Dummy {f00=0x00b0, f01=0x40b4, f02=» j ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/0000 78-7F 4 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 ` P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-5
0x22189c…221a30 Dummy {f00=0x00b0, f01=0x2008, f02=» 68-6F z ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F B 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 n P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,
0x221a30…221bc4 Dummy {f00=0x00b0, f01=0x0190, f02=» P A A x , ( . , + - ; # , ( $ : X " H W X " H TTB:AP x ACBRELA , ( * 9 H H A W W L , ( W@ H A A _p @ P A 1+ , ( !T u X A
0x221bc4…221d58 Dummy {f00=0x00b0, f01=0x0190, f02=»NDTID , ( ! ? > " @ , ( D @ T " ( ^ @ P > , ( R A A " @ T @ n , ( 3 W @ A W W 0 , ( $ S _, W W , ( s
0x221d58…221eec Dummy {f00=0x00b0, f01=0x0190, f02=» _` A , ( @ T @ W @ T @ W @ @ . , ( >a @ A ^ , ( 3 A , ( S ;a ]@ 1 _L W @ , ( s $ 0
0x221eec…222080 Dummy {f00=0x00b0, f01=0x0190, f02=» @ Q A @ ~ , ( BT A " T @ W @ A , ( ! A P @ _2 N , ( 3 T 0 P P ~ , ( S _ @ @ , ( P s @ @ P
0x222080…222214 (2, 440) Opaque[0x194]
0x222214…2223a8 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1610, f03=0x0000}
0x222214…2223a8 IdxSect {
0x222214…2223a8 f00 = 0x00b0 // 0x222214 @0x0
0x222214…2223a8 f01 = 0x0006 // 0x222216 @0x2
0x222214…2223a8 gno = [ // 0x222218 @0x4
0x222214…2223a8 [0x00]: C0x00b0.0x2.0
0x222214…2223a8 [0x01]: C0x00b0.0x3.0
0x222214…2223a8 [0x02]: C0x00b1.0x0.0
0x222214…2223a8 ]
0x222214…2223a8 }
0x2223a8…22253c Dummy {f00=0x00b0, f01=0x0190, f02=» 0 P IDENT TIMER REL 11.0 81-01-26 870105041100 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x22253c…2226d0 Dummy {f00=0x00b0, 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
0x2226d0…222864 Dummy {f00=0x00b0, 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
0x222864…2229f8 Dummy {f00=0x00b0, 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**
0x2229f8…222b8c Dummy {f00=0x00b0, 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
0x222b8c…222d20 Dummy {f00=0x00b0, 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
0x222d20…222eb4 (2, 441) Dummy {f00=0x00b0, 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
0x222eb4…223048 Dummy {f00=0x00b0, 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
0x223048…2231dc Dummy {f00=0x00b0, 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
0x2231dc…223370 Dummy {f00=0x00b0, 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
0x223370…223504 Dummy {f00=0x00b0, 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*
0x223504…223698 Dummy {f00=0x00b0, 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
0x223698…22382c Dummy {f00=0x00b0, 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
0x22382c…2239c0 Dummy {f00=0x00b0, 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*
0x2239c0…223b54 (2, 442) Dummy {f00=0x00b1, 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
0x223b54…223ce8 Dummy {f00=0x00b1, f01=0x0190, f02=»ET END OF CONFIGURATION DATA t 0 P LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA $ * P CM -2,A2 MAKE SURE CONFIGURATION FILE X " P SUK A2,1 IS FOLLOWED BY X'00' , P SUR A3,A1 LENGTH OF CONFIGURATION DATA 2 P ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DA
0x223ce8…223e7c Dummy {f00=0x00b1, f01=0x0190, f02=» SAVE START OF CONFIGURATION DATA | 2 P LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA * 0 P ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH ` P ANKL A1,/FFFE AND MAKE EVEN P ST A1,CONLEN+STKCOM & P LDR A1,A9 GET START OF FREE AREA P LDR A12,A
0x223e7c…224010 Dummy {f00=0x00b1, f01=0x0190, f02=»T MXSTAB ADDRESS $ P RF(Z) CMOV20 NO MXSTAB PRESENT P* @ 0 P AD A2,M:REL+STKCOM RELOCATE MXSTAB ADDRESS J * P ST A2,SCTMXS AND SAVE AS NEW ADDRESS ~ PCMOV20 EQU * , P LD A2,CONSTA+STKCOM GET START OF CONFF P* < P* MOVE SYSLDA
0x224010…2241a4 Dummy {f00=0x00b1, f01=0x018e, f02=» P LDR* A4,A1 P STR A4,A2 P CWR A1,A13 * P RB(NE) MOPRO > ( P ABR A2 CONTINUE EXECUTION IN SYSLDM T P EJECT D P*************************************************************** D P* SUROUTINES USED TO TEST THE SYNTAX OF THE CONFI
0x2241a4…224338 Dummy {f00=0x00b1, f01=0x018e, f02=» 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS RECORD P* : 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER D P LDR A2,A1 SAVE ~ & P LDK A3,0 RESET CHARACTER COUNTER P LDR A4,A8 START OF RECORD PCOR:30 EQU * P LCR A5,A4 GET CHA
0x224338…2244cc Dummy {f00=0x00b1, f01=0x018e, f02=» h PCOR:38 EQU *-2 P RF(E) COR:40 YES! * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? 8 P RF(E) MEMOFL YES! f & P ADK A1,1 INCREMENT BUFFER POINTER * P ADK A3,1 INCREMENT CHARACTER COUNTER & P ADK A4,1 INCREMENT RECORD POINTER P RB CO
0x2244cc…224660 Dummy {f00=0x00b1, f01=0x0190, f02=» * P CWK A3,NCHTID CHECK IF END OF RECORD 4 P RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD 2 PCOR:45 EQU * j 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION ~ P LDR A1,A8 START OF RECORD P CALL MOVE PCOR:48 EQU * ( P ADKL A10,1
0x224660…2247f4 (2, 443) Opaque[0x194]
0x2247f4…224988 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1628, f03=0x0000}
0x2247f4…224988 IdxSect {
0x2247f4…224988 f00 = 0x00b1 // 0x2247f4 @0x0
0x2247f4…224988 f01 = 0x0006 // 0x2247f6 @0x2
0x2247f4…224988 gno = [ // 0x2247f8 @0x4
0x2247f4…224988 [0x00]: C0x00b1.0x1.0
0x2247f4…224988 [0x01]: C0x00b1.0x2.0
0x2247f4…224988 [0x02]: C0x00b1.0x3.0
0x2247f4…224988 ]
0x2247f4…224988 }
0x224988…224b1c Dummy {f00=0x00b1, f01=0x0190, f02=» 2 P IDENT TMMLKM REL 11.0 81-01-26 870105041100 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* TMMLKM = TOSS MMU LKM PROCESSORS P* P*
0x224b1c…224cb0 Dummy {f00=0x00b1, 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**
0x224cb0…224e44 Dummy {f00=0x00b1, 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
0x224e44…224fd8 Dummy {f00=0x00b1, 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.
0x224fd8…22516c Dummy {f00=0x00b1, 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
0x22516c…225300 Dummy {f00=0x00b1, 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
0x225300…225494 (2, 444) Dummy {f00=0x00b1, 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*
0x225494…225628 Dummy {f00=0x00b1, 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
0x225628…2257bc Dummy {f00=0x00b1, 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
0x2257bc…225950 Dummy {f00=0x00b1, 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 &
0x225950…225ae4 Dummy {f00=0x00b1, 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,
0x225ae4…225c78 Dummy {f00=0x00b1, 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
0x225c78…225e0c Dummy {f00=0x00b1, 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 *
0x225e0c…225fa0 Dummy {f00=0x00b1, f01=0x4036, f02=» P* 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 *
0x225fa0…226134 (2, 445) Dummy {f00=0x00b1, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x226134…2262c8 Dummy {f00=0x00b1, f01=0x0190, f02=»UK A1,1 & P RB(P) TMW:10 MORE ECB:S IN ECBBLK : P ST A3,DWTWAT,A9 NO, SET FIRST DWT ADDRESS IN THE LAST : P RB T:DISP GO TO DISPATCHER x P* PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG I
0x2262c8…22645c Dummy {f00=0x00b1, f01=0x4184, f02=»OR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S 2 P CMR A3 SET TO NO WAIT AGAIN V P LDR A3,A2 z P RB TMW:40 P* P EJECT TPROC P* P* PTP:RQE EQU * " P ABL LKMRQE LKM REQUEST ERROR
0x22645c…2265f0 Dummy {f00=0x00b1, 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
0x2265f0…226784 Dummy {f00=0x00b1, f01=0x0190, f02=» A x , ( A A A A A A A , ( *T A _ P A A H , ( . , + - ; # x , ( + $ : X " H W X " ACBREL , ( * K H H A W W
0x226784…226918 Dummy {f00=0x00b1, f01=0x0190, f02=» P " W U z , ( :U A " FNDTID@ J , ( ! ? > " @ , ( D @ T " ( ^ @ P , ( R % A A " @ ,T @ , ( E W @ A W
0x226918…226aac Dummy {f00=0x00b1, f01=0x0190, f02=»P V | , ( W _x , ( _` A L , ( @ ,T @ W @ T @ W @ @ | , ( % >a @ A , ( E A ,
0x226aac…226c40 Dummy {f00=0x00b1, f01=0x0190, f02=» l , ( P 3P C @ P @ , ( @ P @ Q A , @ < , ( BT A " T @ W @ A l , ( ! % A ,P @ _2 , ( E ,T 2 0 P nP , ( e _
0x226c40…226dd4 (2, 446) Opaque[0x194]
0x226dd4…226f68 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1640, f03=0x0000}
0x226dd4…226f68 IdxSect {
0x226dd4…226f68 f00 = 0x00b2 // 0x226dd4 @0x0
0x226dd4…226f68 f01 = 0x0008 // 0x226dd6 @0x2
0x226dd4…226f68 gno = [ // 0x226dd8 @0x4
0x226dd4…226f68 [0x00]: C0x00b2.0x0.0
0x226dd4…226f68 [0x01]: C0x00b2.0x1.0
0x226dd4…226f68 [0x02]: C0x00b2.0x2.0
0x226dd4…226f68 [0x03]: C0x00b2.0x3.0
0x226dd4…226f68 ]
0x226dd4…226f68 }
0x226f68…2270fc Dummy {f00=0x00b2, f01=0x0190, f02=» 2 P IDENT TLDSEG REL 11.0 81-01-26 870105041100 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x2270fc…227290 Dummy {f00=0x00b2, 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 TLSEG1
0x227290…227424 Dummy {f00=0x00b2, f01=0x0190, f02=» P* EXTERNALS * P************* P* 0 P* : 0 P EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM D P EXTRN TDISP DISPATCHER x P EXTRN RELPAG RELEASE PAGE $ P EXTRN LKM030 LKM REQUEST ERROR & P EXTRN PAG:QB QUEUE LINK BACKWARDS
0x227424…2275b8 Dummy {f00=0x00b2, f01=0x0190, f02=»GE BLOCK ADDRESS P EXTRN TTB:AP ACB ADDRESS & P EXTRN TTB:PW PROGRAM STATUS WORD : P EXTRN TTB:SA TTAB SAVE AREA d P EXTRN TTB:MT MMU TABLE & P EXTRN TTB:CB CURRENT SEGMENT BASE ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS ( P EXTRN TTB
0x2275b8…22774c Dummy {f00=0x00b2, f01=0x0190, f02=» ACBNPE NUMBER OF PAGE ENTRIES * P EXTRN ACBLAP LOGICAL ADDRESS OF PAGES & P EJECT TLDSEG T P* l P* v . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P************************************
0x22774c…2278e0 Dummy {f00=0x00b2, f01=0x0190, f02=» EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION " . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P* . P* A PROGRAM VERSION USING TOSS DISC PAGING * P* IS OBTAINED BY SETTI
0x2278e0…227a74 (2, 447) Dummy {f00=0x00b2, f01=0x0190, f02=» P********** P* P* $ 0 P* THIS IS THE LOAD SEGMENT LKM PROCESSOR. . P* b * P* IT IS ENTERED FROM THE LKM HANDLER l & P* WITH THE FOLLOWING PARAMETERS: P* P* A2 = DISPATCH ADDRESS P* A5 = TTAB ADDRESS
0x227a74…227c08 Dummy {f00=0x00b2, f01=0x0190, f02=» > P* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE & P* A7 = -1 IF REQUEST ERROR, ELSE F ( P* A7 = -2 IF DISC I/O ERROR, ELSE p $ P* A7 = -3 IF DISC NOT OPERABLE P* 2 P* WHEN REQUESTED SEGMENT IS ALREADY IN CORE: < P*
0x227c08…227d9c Dummy {f00=0x00b2, f01=0x0190, f02=»POSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. P* 6 : P* WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL @ : P* ACTIVATE LDTASK WHICH WILL LOAD SEGMENT INTO CORE. ~ P* P* P EJECT TLDSEG P* P* PTLDSEG EQU *
0x227d9c…227f30 Dummy {f00=0x00b2, f01=0x0190, f02=»MENT STATUS , P ANK A4,/1E CHECK IF CORE RESIDENT OR... 2 P RF(NZ) TLDS00 ...USED BY AN INTERRUPTED TASK D P* z ( P* INSERT PAGE BLOCK IN PAGE QUEUE P* P CF A15,RELPAG RELEASE PAGE P LD A4,TTB:PW,A5 PSW & P ST A4,-2,A15
0x227f30…2280c4 Dummy {f00=0x00b2, f01=0x0190, f02=»A5 SEGTAB ADDRESS * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0 P RF(N) TLDERR REQUEST ERROR H 4 P CW A1,SEG:NS,A3 CHECK IF SEGMENT NUMBER TOO BIG l P RF(NG) TLDS03 OK P* $ PTLDERR LDK A6,/FF INDICATE ERROR , P ABL LKM030 BRANCH TO LK
0x2280c4…228258 Dummy {f00=0x00b2, f01=0x0190, f02=»LL A1,3 ADJUST FOR INDEXING IN SEGTAB " P ADR A1,A3 ADD SEGTAB ADDRESS . P LDR A3,A5 GET TTAB ADDRESS T P* x P IFT DSKPAG=0 $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* " P
0x228258…2283ec Dummy {f00=0x00b2, f01=0x0190, f02=»:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 P* 0 P IFT DSKPAG=1 : $ P SUKL A15,4 ADJUST STACKPOINTER P . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK x P XIF P RF TLDS40 P* P EJECT TLDSEG P* P* PTLDS05 EQU
0x2283ec…228580 Dummy {f00=0x00b2, f01=0x018e, f02=»0 SEGMENT LOADED IN CORE P ST A2,TTB:SA,A3 P CM PRUN 8 P* H P* ACTIVATE LOAD TASK R P* n 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK x P ABL TDISP GO TO DISPATCHER P* PTLDS10 EQU * $ P SUKL A15,4 ADJUST S
0x228580…228714 (2, 448) Dummy {f00=0x00b2, f01=0x0190, f02=» P* TLSEG1 * P* TLSEG2 * P********** , P* > P* H > P* ENTRIES USED BY LDTASK IN PURPOSE TO REMOVE PAGE BLOCK R @ P* FROM PAGQUE, UPDATE CURRENT SEGMENT BASE AND MMU TABLE. P* P* INPUT: $ P* TLSEG1: A1 = SEG
0x228714…2288a8 Dummy {f00=0x00b2, f01=0x0190, f02=»G2: A1 = PAGBLK ADDRESS ( P* A3 = TTAB ADDRESS LDTASK & P* A5 = " " " L P* v . P* OUTPUT: A1-A6 FROM TTAB SAVE AREA (A5) P* P XIF P* & PTLSEG1 EQU * ENTRY USED BY LDTASK ( P LD A1,SEG:P
0x2288a8…228a3c Dummy {f00=0x00b2, f01=0x0190, f02=»N QUEUE r , P LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD 4 P CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK @ " P STR A2,A4 UPDATE QUEUE LINKS x P ST A4,PAG:QB,A2 P XIF P* P EJECT TLDSEG P* , P* GET PAGE ADDRESS OF REQU
0x228a3c…228bd0 Dummy {f00=0x00b2, f01=0x0190, f02=»G=1 P ECR A2,A1 P ANK A2,/FC P* 2 4 P* GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE < P* t P LD A6,TTB:AP,A5 ACB ADDRESS ~ 4 P AD A3,ACBMMP,A6 POINT TO FIRST USED PAGE ENTRY 0 P LD A4,ACBNPE,A6 GET NUMBER OF PAGE ENTRIES
0x228bd0…228d64 Dummy {f00=0x00b2, f01=0x0190, f02=» RF(NP) TLDS30 NO MORE PAGE ENTRIES & P ADK A3,2 POINT TO NEXT PAGE ENTRY , " P ADK A2,4 UPDATE PAGE ADDRESS V P RB TLDS25 | P* P EJECT TLDSEG P* P* 4 PTLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE P SLL A1,2
0x228d64…228ef8 Dummy {f00=0x00b2, f01=0x0190, f02=»MENT BASE l P XIF P* P IFT MMUPAG=0 ( PTLDS40 EQU * > 2 P ST* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE R P XIF P* P IFT CPU852=0 P LDR A6,A5 $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x228ef8…22908c Dummy {f00=0x00b2, f01=0x40c2, f02=»A+6,A5 P LD A4,TTB:SA+8,A5 P LD A6,TTB:SA+12,A5 ( P LD A5,TTB:SA+10,A5 D $ P RTN A15 RETURN TO CALLING TASK ` P XIF P* P* P* P END @ $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x22908c…229220 Dummy {f00=0x00b2, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x229220…2293b4 (2, 449) Dummy {f00=0x00b2, f01=0x0190, f02=» POINTER n & P CW A8,PLDADR+STKEND END OF BUFFER P RF(NE) COR:10 NO! : P CALL READC READ SECTOR T $ PCOR:10 LDR A4,A8 START OF RECORD t P RTN A14 P XIF P IFT CFTEST+CASS=2 PCON:40 EQU * " P CF A14,RDBLK READ NEXT BLOCK
0x2293b4…229548 Dummy {f00=0x00b2, f01=0x0002, f02=»
0x229548…2296dc Dummy {f00=0x00b2, f01=0x0190, f02=» J F IDENT TMMLKM REL 11.0 81-01-26 870105041100 TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x2296dc…229870 Dummy {f00=0x00b2, f01=0x407a, f02=» ,$ T -_> | RELPAG Q - _H . P -U 3U IT H X d@ vPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x229870…229a04 Dummy {f00=0x00b2, f01=0x2008, f02=»
0x229a04…229b98 Dummy {f00=0x00b2, f01=0x0190, f02=»EGAL DIGITS z $ P ST A5,NDEVCL+STKEND SAVE NUMBER " PNN:50 LCR A5,A4 GET CHARACTER < P CCK A5,';;' END OF RECORD? b P RF(NE) CONERR NO! P RTN A14 P EJECT PAA EQU * P LDK A3,2 PAA:10 EQU * P LCR A5,A4 GET CHARA
0x229b98…229d2c Dummy {f00=0x00b2, f01=0x0190, f02=» P RF(NG) AA:20 NO! 0 P CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? P RF(L) CONERR R 0 P CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? h P RF(G) CONERR PAA:20 EQU * & P ADK A4,1 INCREMENT BUFFER POINTER P SUK A3,1 P RB(NZ
0x229d2c…229ec0 Dummy {f00=0x00b2, f01=0x0190, f02=»CT PTID EQU * " P LDKL A2,SEQ1 SELECT SEQUENCE & P LDK A3,4 GET NUMBER OF CHARACTERS B P RTN A14 l PTCL EQU * | " P LDKL A2,SEQ2 SELECT SEQUENCE & P LDK A3,4 GET NUMBER OF CHARACTERS P RTN A14 PLEV EQU * " P LDKL A2
0x229ec0…22a054 (2, 450) Opaque[0x194]
0x22a054…22a1e8 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1660, f03=0x0000}
0x22a054…22a1e8 IdxSect {
0x22a054…22a1e8 f00 = 0x00b3 // 0x22a054 @0x0
0x22a054…22a1e8 f01 = 0x0004 // 0x22a056 @0x2
0x22a054…22a1e8 gno = [ // 0x22a058 @0x4
0x22a054…22a1e8 [0x00]: C0x00b3.0x0.0
0x22a054…22a1e8 [0x01]: C0x00b3.0x1.0
0x22a054…22a1e8 ]
0x22a054…22a1e8 }
0x22a1e8…22a37c Dummy {f00=0x00b3, f01=0x0190, f02=» 2 P IDENT TABORT REL 11.0 81-01-26 870105041100 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x22a37c…22a510 Dummy {f00=0x00b3, 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*
0x22a510…22a6a4 Dummy {f00=0x00b3, 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 DWTECB ECB ADDRESS ( P EXTRN DWTSB2 2ND STACK BASE IN DWT * P EXTRN DWTECH ECHO DEVIC
0x22a6a4…22a838 Dummy {f00=0x00b3, f01=0x0190, f02=»XTRN LKMRQE LKM REQUEST ERROR P EXTRN FREBLK FREE ONE BLOCK & P EXTRN ECBRC ECN RETURN CODE J P EJECT TABORT n P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P**********
0x22a838…22a9cc Dummy {f00=0x00b3, f01=0x0190, f02=»1. l P* PMMUPAG EQU 1 P* ( P EJECT TABORT 2 P* J P* T P********** ^ P* TABORT * p P********** P* P* 4 P* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR. P* * P* IT IS ENTERED FROM THE LKM
0x22a9cc…22ab60 Dummy {f00=0x00b3, f01=0x018e, f02=»* A PENDING I/O REQUEST IS ABORTED. < P* THE ABORT REQUEST MUST BE ISSUED FROM THE SAME TASK . : P* THAT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN n P* NOT BE ABORTED. P* P* PTABORT EQU * P IFT MMUPAG=0 " P L
0x22ab60…22acf4 (2, 451) Dummy {f00=0x00b3, f01=0x0190, f02=» , P RF(N) TABRQE REQUEST ALREADY COMPLETED ( P CF A15,FNDDWT LOOK FOR DWT ADDRESS 4 P LDR A7,A6 SAVE DWT ADDRESS ` P RF(Z) TABRQE DWT UNKNOWN P* P EJECT TABORT P* P* P CW A5,DWTTAB,A6 P RF(NE) TABRQE ILLEG
0x22acf4…22ae88 Dummy {f00=0x00b3, f01=0x018e, f02=» RF(E) TABRQE ABORT NOT ALLOWED P LD A4,DWTST,A6 ( " P RF(N) TABRQE DEVICE NOT BUSY @ P SLC A4,2 f $ P RF(NN) TAB:20 NOT ECHO REQUEST x & P LD A6,DWTECH,A6 ECHO DWT ADDRESS : P LD A3,DWTADR,A6 ADDRESS TO ECHO DRIVER ADDRESS BLOCK * P
0x22ae88…22b01c Dummy {f00=0x00b3, f01=0x0190, f02=» P SUK A3,1 2 P RF(Z) TABRQE ABORT NOT ALLOWED ON ECHO DEVICE " P LDR A6,A7 RESTORE DWT ADDRESS P P* v PTAB:20 EQU * P LD A4,DWTWAT,A6 " P RF(Z) TAB:30 I/O WITH NO WAIT : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK
0x22b01c…22b1b0 Dummy {f00=0x00b3, f01=0x0190, f02=» " P ST A1,DWTWAT,A6 INDICATE WAIT P SRC A1,2 A1 := /4000 . 0 P ORS A1,ECBRC,A8 SET RETURN CODE TO ABORTED L 6 P LDKL A5,DWTSB2 2ND STACK BASE DISPLACEMENT IN DWT P ADR A5,A6 ADD DWT ADDRESS P* , P* EXIT IS MADE TO DRIVER ABORT R
0x22b1b0…22b344 Dummy {f00=0x00b3, f01=0x4124, f02=»A8 = ECB ADDRESS (IN SYSTEM AREA IF MMU) P* 0 $ P LDR A9,A9 ABORT ROUTINE ADDRESS : . P ABR(NZ) A9 PERFORM ABORT ROUTINE (IF ANY) b P ABL DISEND TENDIO AND TDISP P* 0 PTABRQE ABL LKMRQE GO AND INDICATE LKM ERROR P* P*
0x22b344…22b4d8 Dummy {f00=0x00b3, f01=0x2008, f02=»
0x22b4d8…22b66c Dummy {f00=0x00b3, f01=0x0190, f02=»:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 P* 0 P IFT DSKPAG=1 : $ P SUKL A15,4 ADJUST STACKPOINTER P . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK x P XIF P RF TLDS40 P* P EJECT TLDSEG P* P* PTLDS05 EQU
0x22b66c…22b800 Dummy {f00=0x00b3, f01=0x018e, f02=»0 SEGMENT LOADED IN CORE P ST A2,TTB:SA,A3 P CM PRUN 8 P* H P* ACTIVATE LOAD TASK R P* n 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK x P ABL TDISP GO TO DISPATCHER P* PTLDS10 EQU * $ P SUKL A15,4 ADJUST S
0x22b800…22b994 (2, 452) Opaque[0x194]
0x22b994…22bb28 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1670, f03=0x0000}
0x22b994…22bb28 IdxSect {
0x22b994…22bb28 f00 = 0x00b3 // 0x22b994 @0x0
0x22b994…22bb28 f01 = 0x0006 // 0x22b996 @0x2
0x22b994…22bb28 gno = [ // 0x22b998 @0x4
0x22b994…22bb28 [0x00]: C0x00b3.0x2.0
0x22b994…22bb28 [0x01]: C0x00b3.0x3.0
0x22b994…22bb28 [0x02]: C0x00b4.0x0.0
0x22b994…22bb28 ]
0x22b994…22bb28 }
0x22bb28…22bcbc Dummy {f00=0x00b3, f01=0x0190, f02=» 2 P IDENT MONTIM REL 11.0 81-01-26 870105041100 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* MONTIM = MONITOR CLOCK/DATE PROCESSORS P*
0x22bcbc…22be50 Dummy {f00=0x00b3, f01=0x0190, f02=» @ P* THIS MODULE CONTAINS TOSS MONITOR CLOCK/DATE PROCESSORS P* H 0 P* -GETTIM GET TIME FROM MONITOR CLOCK R P* . P* -SETTIM SET TIME IN MONITOR CLOCK P* 0 P* -GETDAT GET DATE FROM MONITOR CLOCK P* .
0x22be50…22bfe4 Dummy {f00=0x00b3, f01=0x0190, f02=»* P*********** P* P* ( . P ENTRY GETTIM GET TIME FROM MONITOR CLOCK 2 , P ENTRY SETTIM SET TIME IN MONITOR CLOCK d . P ENTRY TDATE GET/SET DATE IN MONITOR CLOCK P EJECT MONTIM P* P* P************* P
0x22bfe4…22c178 Dummy {f00=0x00b3, f01=0x0190, f02=»H l P EXTRN TTB:SA TTAB SAVE AREA P EJECT MONTIM . P* F P* P . P***************************************** Z P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P* . P* A PROGRAM VE
0x22c178…22c30c Dummy {f00=0x00b3, f01=0x0190, f02=»M P* P* P********** P* GETTIM * 0 P********** B P* T P* ^ , P* THIS IS THE GET TIME LKM PROCESSOR. h P* , P* IT IS ENTERED FROM THE LKM HANDLER 0 P* WITH ADDRESS TO THE USER TIMER CONTROL 2 P*
0x22c30c…22c4a0 Dummy {f00=0x00b3, f01=0x0190, f02=»ONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P* 0 $ PGETDAT EQU * ENTRY USED BY TDATE : P LDK A3,6 COUNTER b P LDR* A6,A7 SECONDS | P STR A6,A15 SAVE ON STACK P SUK A7,2 P LDR* A6,A7 MINUTES P STR A6,A15 SAVE ON STACK
0x22c4a0…22c634 (2, 453) Dummy {f00=0x00b3, f01=0x0190, f02=» SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 . ( P SCR A6,A8 STORE LEFTHAND CHARACTER @ P XIF l P* x P EJECT MONTIM P* P* P IFT MMUPAG=1 . P LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS P ANK A4,1 " P
0x22c634…22c7c8 Dummy {f00=0x00b3, f01=0x0190, f02=»A1,1,A8 P ELR A4,A8 P SRL A6,8 " P ANKL A4,/FF00 4 P ORR A6,A4 J P* 6 PGETT15 ESR A6,A8 SET VALUE IN TIMER CONTROL BLOCK f P XIF P* P SUK A3,2 P RF(E) GETT20 P ADKL A8,2 , P LDR* A6,A15 GET ACTUAL
0x22c7c8…22c95c Dummy {f00=0x00b3, f01=0x0190, f02=»ACCUMULATED 24 HOUR CARRY 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 " P* X PTPDIS EQU * b P CMR A7 CLEAR MIDNIGTH CARRY v P ABL LKMQDI P* P EJECT MONTIM P* P* P********** P* SETTIM * P
0x22c95c…22caf0 Dummy {f00=0x00b3, f01=0x0190, f02=»WITH h 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS @ $ P* COPIED INTO MONITOR CLOCK. t P* P* PSETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P* $ P
0x22caf0…22cc84 Dummy {f00=0x00b3, f01=0x0190, f02=»6,A8 GET LEFTHAND CHARACTER P ECR A6,A6 $ ( P LC A6,1,A8 GET RIGHTHAND CHARACTER 6 P XIF b P* n P EJECT MONTIM x P* P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CON
0x22cc84…22ce18 Dummy {f00=0x00b3, f01=0x0190, f02=» SLL A6,8 P SRL A4,8 P ORR A6,A4 $ P* 6 PSETT15 EQU * @ P XIF T P* ` $ P CF A15,ASCTBY CONVERT TO BINARY j P SUK A3,2 END P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15 SAVE ON STACK (HOURS AND MINUTES P RB
0x22ce18…22cfac Dummy {f00=0x00b3, f01=0x0190, f02=» l P SUK A7,2 P LDR* A6,A15 ( P STR A6,A7 MINUTES TO MONITOR CLOCK . P SUK A7,2 Z P LDR* A6,A15 l & P STR A6,A7 HOURS TO MONITOR CLOCK P SUK A7,2 P RB TPDIS P* P EJECT MONTIM P* P* P****
0x22cfac…22d140 Dummy {f00=0x00b3, f01=0x0190, f02=» IT IS ENTERED FROM THE LKM HANDLER ( P* WITH THE FOLLOWING PARAMETERS: , P* X $ P* A7 = GET/SET DATE PARAMETER b < P* (A7 = 0 MEANS GET DATE, A7 = 1 MEANS SET DATE) & P* A8 = DATE CONTROL BLOCK (DCB) P* P* 0 P
0x22d140…22d2d4 (2, 454) Dummy {f00=0x00b4, f01=0x0190, f02=»DK A1,0 SET CR P RB(Z) GETDAT GET DATE P RB SETDAT SET DATE 4 P* P P EJECT MONTIM Z P* r P* | P********** P* BYTASC * P********** P* P* 2 P* BYTASC = SUBROUTINE TO CONVERT A6-CONTENT ( P*
0x22d2d4…22d468 Dummy {f00=0x00b4, f01=0x0190, f02=»* PBYTA10 SUK A6,/A P RF(N) BYTA20 " P ADKL A4,/100 8 P RB BYTA10 N P* ` PBYTA20 ADK A6,/A j P ADR A6,A4 P ORKL A6,/3030 P RTN A15 P* P EJECT MONTIM P* P* P********** P* ASCT
0x22d468…22d5fc Dummy {f00=0x00b4, f01=0x414e, f02=»RY. p P* RESULT IN A6. P* 0 P* : PASCTBY EQU * D P LDR A4,A6 X P ANK A6,/F j P SRL A4,8 | P ANK A4,/F P RF(E) ASCT20 P* PASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 P*
0x22d5fc…22d790 Dummy {f00=0x00b4, 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
0x22d790…22d924 Dummy {f00=0x00b4, f01=0x4124, f02=»A8 = ECB ADDRESS (IN SYSTEM AREA IF MMU) P* 0 $ P LDR A9,A9 ABORT ROUTINE ADDRESS : . P ABR(NZ) A9 PERFORM ABORT ROUTINE (IF ANY) b P ABL DISEND TENDIO AND TDISP P* 0 PTABRQE ABL LKMRQE GO AND INDICATE LKM ERROR P* P*
0x22d924…22dab8 Dummy {f00=0x00b4, f01=0x2008, f02=»
0x22dab8…22dc4c Dummy {f00=0x00b4, f01=0x0190, f02=»=2 + j P RF(E) AP2345 =2 , 6 P AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOWED =2 , $ P RF(NZ) AP2345 YES =2 , ^ , P LDK A1,LMP9 NO, WRONG MONITOR OPTION =2 , | P CALL ERROR =2 , PAP2345 EQU * =2 , & P ORR A2,A4 SET BIT IN OPTION WORD , P
0x22dc4c…22dde0 Dummy {f00=0x00b4, f01=0x018e, f02=»PAGE SIZE , r 6 P CW A3,SCTPSZ COMPARE WITH PREVIOUSLY DEFINED SIZE - . P RF(NG) AP2350 IF LESS, DON'T UPDATE SIZE - L P* - ~ 0 P ST A3,SCTPSZ SAVE LARGEST DEFINED PAGE SIZE - PAP2350 EQU * - P IFT MMUPAG=1 - P EJECT - P* - 2 P* EXECUTI
0x22dde0…22df74 (2, 455) Opaque[0x194]
0x22df74…22e108 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1688, f03=0x0000}
0x22df74…22e108 IdxSect {
0x22df74…22e108 f00 = 0x00b4 // 0x22df74 @0x0
0x22df74…22e108 f01 = 0x0004 // 0x22df76 @0x2
0x22df74…22e108 gno = [ // 0x22df78 @0x4
0x22df74…22e108 [0x00]: C0x00b4.0x1.0
0x22df74…22e108 [0x01]: C0x00b4.0x2.0
0x22df74…22e108 ]
0x22df74…22e108 }
0x22e108…22e29c Dummy {f00=0x00b4, f01=0x0190, f02=» $ P IDENT CTAB01 REL. 11.0 81/10/28 P , 8 P*************************************************** 4 8 P* * p 8 P* CTAB01, CTAB02, CTAB03, KEY CONVERSION FOR * 8 P* 6271, 6272 KEYBOARDS FOR DAN
0x22e29c…22e430 Dummy {f00=0x00b4, f01=0x0190, f02=»*** ` P EJECT P********************* P* ENTRIES * 8 P********************* V P ENTRY CTAB01,CTAB02,CTAB03 t P EJECT PCTAB01 EQU * PCTAB02 EQU * PCTAB03 EQU * P " P DATA UNSH,SHIFT,UNSH,SHIFT,0
0x22e430…22e5c4 Dummy {f00=0x00b4, f01=0x0190, f02=»3,SHIFT4,SHIFT5,SHIFT6,0 p PUNSH0 EQU * : P DATA /BAB1,/B2B3,/B4B5,/B6B7,/B8B9,/B0A2,/8489,/88A0 4 PUNSH1 EQU * r : P DATA /3031,/3233,/3435,/3637,/3839,/8F90,/852D,/8C8D PUNSH2 EQU * : P DATA /207F,/7F7F,/7F7F,/7F27,/A43C,/7F2B,/2C2D,
0x22e5c4…22e758 Dummy {f00=0x00b4, f01=0x0190, f02=»445,/4647,/4849,/4A4B,/4C4D,/4E4F | PUNSH5 EQU * * : P DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/5E7F > PUNSH6 EQU * | : P DATA /7F92,/7FA5,/7F8A,/8B7F,/7F7F,/7F7F,/7F7F,/7F7F P EJECT PSHIFT0 EQU * : P DATA /C6B1,/B2B3,/B4B5,
0x22e758…22e8ec Dummy {f00=0x00b4, f01=0x018e, f02=» : P DATA /207F,/7F7F,/7F7F,/7F2A,/A43E,/7F3F,/3B5F,/3A7F PSHIFT3 EQU * B : P DATA /3D21,/2223,/2425,/262F,/2829,/8682,/8780,/8183 V PSHIFT4 EQU * : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F PSHIFT5 EQU * : P DATA /5051,/5
0x22e8ec…22ea80 Dummy {f00=0x00b4, f01=0x400c, f02=» @ 07F,/7F7F,/7F7F,/7F2A,/A43E,/7F3F,/3B5F,/3A7F PSHIFT3 EQU * B : P DATA /3D21,/2223,/2425,/262F,/2829,/8682,/8780,/8183 V PSHIFT4 EQU * : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F PSHIFT5 EQU * : P DATA /5051,/5
0x22ea80…22ec14 (2, 456) Dummy {f00=0x00b4, f01=0x2008, f02=»
0x22ec14…22eda8 Dummy {f00=0x00b4, f01=0x0010, f02=» h H P X
0x22eda8…22ef3c Dummy {f00=0x00b4, f01=0x0190, f02=»4T >X~ RCR @ D = ( @ B P Q a ! K1 > d T K1 @ * *
0x22ef3c…22f0d0 Dummy {f00=0x00b4, f01=0x0190, f02=» @ B P Q a b ! K2 > d T K2 @ * * 0 P Q a p P1 > d T P1 @
0x22f0d0…22f264 Dummy {f00=0x00b4, f01=0x0190, f02=» 0 P Q a b " P2 > d T P2 @ * * d
0x22f264…22f3f8 Dummy {f00=0x00b4, f01=0x0190, f02=»
[…0x2…]
0x22f720…22f8b4 (2, 457) Opaque[0x194]
0x22f8b4…22fa48 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1698, f03=0x0000}
0x22f8b4…22fa48 IdxSect {
0x22f8b4…22fa48 f00 = 0x00b4 // 0x22f8b4 @0x0
0x22f8b4…22fa48 f01 = 0x0002 // 0x22f8b6 @0x2
0x22f8b4…22fa48 gno = [ // 0x22f8b8 @0x4
0x22f8b4…22fa48 [0x00]: C0x00b4.0x3.0
0x22f8b4…22fa48 ]
0x22f8b4…22fa48 }
0x22fa48…22fbdc Dummy {f00=0x00b4, f01=0x0190, f02=» 2 P IDENT DVKB00 REL 11.0 81-01-26 870105041100 P : P* B " P* KEYBOARD DEVICE WORK TABLE L P* r P ENTRY DVKB00 TABLE ENTRY | P EXTRN CTAB01 P EXTRN KBAD4 PMMUPAG EQU 1 P* P* P* PDVKB00 EQU *
0x22fbdc…22fd70 Dummy {f00=0x00b4, f01=0x0190, f02=»-DVKB00 ORDER ( P DATA KBAD4 POINTER TO ADDRESS BLOCK P DATA 'KB' TTAB ADDRESS B " P DATA 0 WAIT/ACTIVE INDICATOR b P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB ADDRESS
0x22fd70…22ff04 Dummy {f00=0x00b4, f01=0x0190, f02=» x P RES 4 DWT STACK P DATA 0 SAVE AREA FOR A7 P DATA 0 SAVE AREA FOR A8 @ $ P DATA /0001 CHANNEL PARAMETER-2 ` " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /3000 DEVICE STATUS P DATA
0x22ff04…230098 Dummy {f00=0x00b4, f01=0x4164, f02=»ATA 0 TIMER . P DATA DWTSQ+DVKB00 POINTER TO FIRST PLACE , P DATA DWTSQ+DVKB00 POINTER TO LAST PLACE F PDWTSQ EQU *-DVKB00 v P DATA 0,0,0,0,0,0,0,0 P DATA 0,0 P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P DAT
0x230098…23022c Dummy {f00=0x00b4, f01=0x2008, f02=» TRIPLE ZERO " DATA 0 POINTER TO FIRST PLACE " DATA 0 POINTER TO LAST PLACE B DWTSQ/EQU/*-DVTKB h RES 0 IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @ PRESENT CONVERSI
0x23022c…2303c0 Dummy {f00=0x00b4, f01=0x0190, f02=»
0x2303c0…230554 (2, 458) Opaque[0x194]
0x230554…2306e8 # DirEnt {nam=»DVDI00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16a0, f03=0x0000}
0x230554…2306e8 IdxSect {
0x230554…2306e8 f00 = 0x00b5 // 0x230554 @0x0
0x230554…2306e8 f01 = 0x0002 // 0x230556 @0x2
0x230554…2306e8 gno = [ // 0x230558 @0x4
0x230554…2306e8 [0x00]: C0x00b5.0x0.0
0x230554…2306e8 ]
0x230554…2306e8 }
0x2306e8…23087c Dummy {f00=0x00b5, f01=0x0190, f02=» 2 P IDENT DVDI00 REL 11.0 81-01-26 870105041100 P : P* B . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR L P* ~ P* & P ENTRY DVDI00 DISPLAY INDICATOR 03 P* P* ( P EXTRN DIAD POINTER TO ADDRESS-BLOCK PMMUPAG EQU 1
0x23087c…230a10 Dummy {f00=0x00b5, f01=0x0190, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVDI00 ORDER ( P DATA DIAD POINTER TO ADDRESS-BLOCK B P DATA 'DI' TTAB ADDRESS n P DATA 0 WAIT ACTIVATE P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS
0x230a10…230ba4 Dummy {f00=0x00b5, f01=0x018e, f02=» P DATA 0 SAVE AREA A5 =1 P RES 4 DWT STACK $ P DATA 0 SAVE AREA A7 =1 < P DATA 0 SAVE AREA A8 $ P DATA /0001 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /8000 DEVICE STATUS
0x230ba4…230d38 Dummy {f00=0x00b5, f01=0x4082, f02=» x P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF > PDWTEND EQU * J P* ^ P* h P END r@ ~1 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /8000 DEVICE STATUS
0x230d38…230ecc Dummy {f00=0x00b5, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x230ecc…231060 Dummy {f00=0x00b5, f01=0x018e, f02=» P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 < P DATA ILLINT 56 X P DATA ILLINT 57 t P DATA ILLINT 58 P DATA ILLINT 59 P DATA ILLINT 60 P DATA ILLINT 61 P DATA IL
0x231060…2311f4 (2, 459) Opaque[0x194]
0x2311f4…231388 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16a8, f03=0x0000}
0x2311f4…231388 IdxSect {
0x2311f4…231388 f00 = 0x00b5 // 0x2311f4 @0x0
0x2311f4…231388 f01 = 0x0002 // 0x2311f6 @0x2
0x2311f4…231388 gno = [ // 0x2311f8 @0x4
0x2311f4…231388 [0x00]: C0x00b5.0x1.0
0x2311f4…231388 ]
0x2311f4…231388 }
0x231388…23151c Dummy {f00=0x00b5, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 11.0 81-01-26 870105041100 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY00 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY00 EQU * T
0x23151c…2316b0 Dummy {f00=0x00b5, 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 P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB
0x2316b0…231844 Dummy {f00=0x00b5, f01=0x0190, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 . P DATA 0 SAVE AREA FOR A8 N $ P DATA /0004 CHANNEL PARAMETER 2 n $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P
0x231844…2319d8 Dummy {f00=0x00b5, f01=0x4082, f02=» IN BLOCK ~ P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 ( P XIF H PDWTEND EQU * T P* h P END r@ ~PARAMETER 2 n $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P
0x2319d8…231b6c Dummy {f00=0x00b5, 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
0x231b6c…231d00 Dummy {f00=0x00b5, f01=0x0190, f02=» ANK A4,/3 P ADR A4,A4 DOUBLE INDEX P ADR A4,A6 2 P RB RETURN D P* V P EJECT DSKSUB ` P* x P* P********** P* NVLTAB * P********** P* P* 4 P* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS
0x231d00…231e94 (2, 460) Opaque[0x194]
0x231e94…232028 # DirEnt {nam=»DVG100«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16b0, f03=0x0000}
0x231e94…232028 IdxSect {
0x231e94…232028 f00 = 0x00b5 // 0x231e94 @0x0
0x231e94…232028 f01 = 0x0004 // 0x231e96 @0x2
0x231e94…232028 gno = [ // 0x231e98 @0x4
0x231e94…232028 [0x00]: C0x00b5.0x2.0
0x231e94…232028 [0x01]: C0x00b5.0x3.0
0x231e94…232028 ]
0x231e94…232028 }
0x232028…2321bc Dummy {f00=0x00b5, f01=0x0190, f02=» 2 P IDENT DVG100 REL 11.0 81-01-26 870105041100 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVG100 TABLE ENTRY | P* P* * P EXTRN GPAD8 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 1 MEM. MAN.UNIT COND. P
0x2321bc…232350 Dummy {f00=0x00b5, f01=0x0190, f02=»A 0 ECB ADDRESS P DATA DWTEND-DVG100 ORDER ( P DATA GPAD8 POINTER TO ADDRESS BLOCK : P DATA 'GP' TTAB-ADDRESS f $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS
0x232350…2324e4 Dummy {f00=0x00b5, f01=0x0190, f02=»ATA 0,0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 6 $ P DATA /0003 CHANNEL PARAMETER 2 R $ P DATA 0 LINE DRIVER DEPENDENT 1 z $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P DATA 0 TIMER POINTER "
0x2324e4…232678 Dummy {f00=0x00b5, f01=0x018e, f02=» LENGTH z P DATA 0 ACTUAL LINE DOCUMENT $ P DATA 0 REQUESTED LINE DOCUMENT 4 P DATA 0 RETURN CODE $ P DATA 0 CONTROL SEQUENCE ADRESS x 6 P DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. 0 P DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER
0x232678…23280c Dummy {f00=0x00b5, f01=0x4076, f02=» PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF 2 PDWTEND EQU * > P* R P* P END f@ r P DATA 0 CONTROL SEQUENCE ADRESS x 6 P DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. 0 P DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER
0x23280c…2329a0 Dummy {f00=0x00b5, 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
0x2329a0…232b34 (2, 461) Dummy {f00=0x00b5, f01=0x018e, f02=» PCIOPA2 EQU * P DATA /4000+128 PCIOAD2 EQU * 0 P DATA 0 ADDRESS 2 D PCIOPA3 EQU * ^ P DATA 128 r PCIOAD3 EQU * P DATA 0 ADDRESS 3 P XIF P IFT CDDI16=1 =9 P EJECT ( P**********************************
0x232b34…232cc8 Dummy {f00=0x00b5, f01=0x0190, f02=» j ( P* * ( P* REFERENCED IN: SYSLOD,GETFIL * 4 ( P* * ` ( P* ENTRY: A1 - DEVICE ADDRESS * ( P* * ( P* EXIT: *
0x232cc8…232e5c Dummy {f00=0x00b5, f01=0x0190, f02=» ( P* SUBROUTINES: * ( P* * 0 ( P*********************************** P PCDINIT EQU * P* ( P* INIT 16M OR 80M CDC DISC COMMANDS P* P LDR A2,A1 =9 & P ANK A1,/3F MA
0x232e5c…232ff0 Dummy {f00=0x00b5, f01=0x0190, f02=»ARTRIDGE INDICATOR =9 n , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. P ST A1,READC1 N ( P ORKL A1,/800 FORM SST A1,XX INSTR. d P ST A1,READC2 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST A1,SEEKC1 ( P ORKL A1,/800 FORM SST A2,XX
0x232ff0…233184 Dummy {f00=0x00b5, f01=0x0190, f02=»DC DISC v P ST A2,SAVCON SAVE LENGTH 4 P LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. 2 P ST A2,READ j P ST A2,READS ~ & P CF A14,GETVLB GET VOLUME LABEL =9 $ P LC A2,FORDEV+1,A9 GET FORMAT =9 P ANK A2,1 FORMAT 4 OR 5 =9 ( P L
0x233184…233318 Dummy {f00=0x00b5, f01=0x0190, f02=» ( P ST A2,DIVCON SET DIVIDE CONSTANT =9 P RTN A14 4 P EJECT D 4 P*********************************************** R 4 P* * 4 P* CRDSEC- READ ONE SECTOR FROM DISC * 4 P* ===========
0x233318…2334ac Dummy {f00=0x00b5, f01=0x0190, f02=» * j 4 P* * 4 P* ENTRY: A9 = BUFFER ADDRESS * J 4 P* * 4 P* A11 - SECTOR NBR LEAST SIGNIFICANT * 4 P* A12 - SECTOR
0x2334ac…233640 Dummy {f00=0x00b5, f01=0x0190, f02=»* b 4 P* * 4 P* WORK REGISTERS: A1,A2,A3,A6 * B 4 P* * z 4 P* SUBROUTINES: ERROR * 4 P*
0x233640…2337d4 (2, 462) Opaque[0x194]
0x2337d4…233968 # DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16c0, f03=0x0000}
0x2337d4…233968 IdxSect {
0x2337d4…233968 f00 = 0x00b6 // 0x2337d4 @0x0
0x2337d4…233968 f01 = 0x0002 // 0x2337d6 @0x2
0x2337d4…233968 gno = [ // 0x2337d8 @0x4
0x2337d4…233968 [0x00]: C0x00b6.0x0.0
0x2337d4…233968 ]
0x2337d4…233968 }
0x233968…233afc Dummy {f00=0x00b6, f01=0x0190, f02=» 2 P IDENT DVKB01 REL 11.0 81-01-26 870105041100 P : P* B " P* KEYBOARD DEVICE WORK TABLE L P* r P ENTRY DVKB01 TABLE ENTRY | P EXTRN CTAB02 P EXTRN KBAD4 PMMUPAG EQU 1 P* P* P* PDVKB01 EQU *
0x233afc…233c90 Dummy {f00=0x00b6, f01=0x0190, f02=»-DVKB01 ORDER ( P DATA KBAD4 POINTER TO ADDRESS BLOCK P DATA 'KB' TTAB ADDRESS B " P DATA 0 WAIT/ACTIVE INDICATOR b P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB ADDRESS
0x233c90…233e24 Dummy {f00=0x00b6, f01=0x0190, f02=» x P RES 4 DWT STACK P DATA 0 SAVE AREA FOR A7 P DATA 0 SAVE AREA FOR A8 @ $ P DATA /0005 CHANNEL PARAMETER-2 ` " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /3000 DEVICE STATUS P DATA
0x233e24…233fb8 Dummy {f00=0x00b6, f01=0x4164, f02=»ATA 0 TIMER . P DATA DWTSQ+DVKB01 POINTER TO FIRST PLACE , P DATA DWTSQ+DVKB01 POINTER TO LAST PLACE F PDWTSQ EQU *-DVKB01 v P DATA 0,0,0,0,0,0,0,0 P DATA 0,0 P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P DAT
0x233fb8…23414c Dummy {f00=0x00b6, f01=0x2008, f02=» TRIPLE ZERO " DATA 0 POINTER TO FIRST PLACE " DATA 0 POINTER TO LAST PLACE B DWTSQ/EQU/*-DVTKB h RES 0 IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @ PRESENT CONVERSI
0x23414c…2342e0 Dummy {f00=0x00b6, f01=0x414a, f02=» L H D ! P W VP Rt P P W Rh R )W~ /P 3P 9P =P H D ! @ GW WP _P iP wV { W" P R Wv T V W W R T H D !' R Q W8 T 5P ; ATt IRr [ aP D @ !@ iWL sP w P< T W
0x2342e0…234474 (2, 463) Opaque[0x194]
0x234474…234608 # DirEnt {nam=»DVDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16c8, f03=0x0000}
0x234474…234608 IdxSect {
0x234474…234608 f00 = 0x00b6 // 0x234474 @0x0
0x234474…234608 f01 = 0x0002 // 0x234476 @0x2
0x234474…234608 gno = [ // 0x234478 @0x4
0x234474…234608 [0x00]: C0x00b6.0x1.0
0x234474…234608 ]
0x234474…234608 }
0x234608…23479c Dummy {f00=0x00b6, f01=0x0190, f02=» 2 P IDENT DVDI01 REL 11.0 81-01-26 870105041100 P : P* B . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR L P* ~ P* & P ENTRY DVDI01 DISPLAY INDICATOR 03 P* P* ( P EXTRN DIAD POINTER TO ADDRESS-BLOCK PMMUPAG EQU 1
0x23479c…234930 Dummy {f00=0x00b6, f01=0x0190, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVDI01 ORDER ( P DATA DIAD POINTER TO ADDRESS-BLOCK B P DATA 'DI' TTAB ADDRESS n P DATA 0 WAIT ACTIVATE P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS
0x234930…234ac4 Dummy {f00=0x00b6, f01=0x018e, f02=» P DATA 0 SAVE AREA A5 =1 P RES 4 DWT STACK $ P DATA 0 SAVE AREA A7 =1 < P DATA 0 SAVE AREA A8 $ P DATA /0005 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /8000 DEVICE STATUS
0x234ac4…234c58 Dummy {f00=0x00b6, f01=0x4082, f02=» x P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF > PDWTEND EQU * J P* ^ P* h P END r@ ~5 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /8000 DEVICE STATUS
0x234c58…234dec Dummy {f00=0x00b6, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x234dec…234f80 Dummy {f00=0x00b6, f01=0x0190, f02=» ( P* ENTRY: A1 - DEVICE ADDRESS * ( P* * 0 ( P* EXIT: * ( P* * ( P* WORK REGISTERS: A1,A2 * ( P* *
0x234f80…235114 (2, 464) Opaque[0x194]
0x235114…2352a8 # DirEnt {nam=»PTMGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x16d0, f03=0x0000}
0x235114…2352a8 IdxSect {
0x235114…2352a8 f00 = 0x00b6 // 0x235114 @0x0
0x235114…2352a8 f01 = 0x0002 // 0x235116 @0x2
0x235114…2352a8 gno = [ // 0x235118 @0x4
0x235114…2352a8 [0x00]: C0x00b6.0x2.0
0x235114…2352a8 ]
0x235114…2352a8 }
0x2352a8…23543c Dummy {f00=0x00b6, f01=0x00e4, f02=» PASG 2,LP0F PSCR PINC SYSTAB " PINC DEBUGM 4 PNOD AM F PINC SYSLOD T PINC SYSLDM f PINC SYSLCR x PINC SYSINI PLKE M PKPF /L,PTMON P$PDISC M=PTMON PASG /E0,TY10
0x23543c…2355d0 Dummy {f00=0x00b6, f01=0x2008, f02=» 2,LP0F PSCR PINC SYSTAB " PINC DEBUGM 4 PNOD AM F PINC SYSLOD T PINC SYSLDM f PINC SYSLCR x PINC SYSINI PLKE M PKPF /L,PTMON P$PDISC M=PTMON PASG /E0,TY10
0x2355d0…235764 Dummy {f00=0x00b6, f01=0x018e, f02=»C POLL HANDLING z PSPECP EQU X:H , PX:I EQU 0 IF = 1 LINE SPEED SET TO HIGH . ( P IF = 0 LINE SPEED IS SET TO LOW ^ PSPEED EQU 1 * PX:J EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU X:J . PX:K EQU 2 NUMBER OF RECEIVE BUFFERS (2-5
0x235764…2358f8 Dummy {f00=0x00b6, f01=0x0190, f02=» , PLCUIN EQU X:M DEVICE ADDRESS OF RECEIVER P XIF 8 P IFT P6805=1 D , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER X P XIF P IFT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCUZ P I
0x2358f8…235a8c Dummy {f00=0x00b6, f01=0x0190, f02=» IF 1 IBM CHARACTER HANDLING . PX:O EQU 0 IF 1 MESSAGE PASSING TO DC TASK $ PMESPAS EQU X:O V 4 PX:P EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 l PEM3270 EQU 1 PX:Q EQU 0 * PTPMODE EQU X:Q IF = 1 TRANSPARANT MODE PX:R EQU 0 .
0x235a8c…235c20 Dummy {f00=0x00b6, f01=0x0190, f02=» TRANSMISSION x , PDMRK EQU 0 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT F 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT ~ 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". P =2 P PREMTIM EQU 0
0x235c20…235db4 (2, 465) Opaque[0x194]
0x235db4…235f48 # DirEnt {nam=»SYSPRO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16d8, f03=0x0000}
0x235db4…235f48 IdxSect {
0x235db4…235f48 f00 = 0x00b6 // 0x235db4 @0x0
0x235db4…235f48 f01 = 0x0006 // 0x235db6 @0x2
0x235db4…235f48 gno = [ // 0x235db8 @0x4
0x235db4…235f48 [0x00]: C0x00b6.0x3.0
0x235db4…235f48 [0x01]: C0x00b7.0x0.0
0x235db4…235f48 [0x02]: C0x00b7.0x1.0
0x235db4…235f48 ]
0x235db4…235f48 }
0x235f48…2360dc Dummy {f00=0x00b6, f01=0x0190, f02=» 4 P IDENT SYSPRO REL 11.0 DK 82-04-14 870105041100 " P** SYSTEM WITH TWO MAIN-FRAMES < P b P* j P* t 8 P*************************************************** ~ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTER
0x2360dc…236270 Dummy {f00=0x00b6, f01=0x0190, f02=» 8 P*************************************************** P* @ P* J P EJECT SYSTAB T P* l P* v P*********** P* ENTRIES * P*********** P* P* & P ENTRY SCTMSZ,SCTSFA,SCTEFA,SCTIPL & P ENTRY SCTANO,
0x236270…236404 Dummy {f00=0x00b6, f01=0x0190, f02=»FWL,SCTBLK x & P ENTRY SCTDCT,SCTNOS,SCTMXS,SCTMOX P ENTRY SEG:FC,SEG:NS < & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB X & P ENTRY PAG:QF,PAG:QB,PAG:PA,PAG:SB & P ENTRY SWB:NC,SWB:DS,SWB:EL,SWB:NS P ENTRY STKEND,STKCOM,STKMOV & P ENTRY ACBIOE,
0x236404…236598 Dummy {f00=0x00b6, f01=0x0190, f02=» P* P************* P* EXTERNALS * $ P************* : P* P P* Z P EXTRN TDISP d , P EXTRN IHPFAR POWER FAIL / AUTO RESTART x P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER
0x236598…23672c Dummy {f00=0x00b6, f01=0x0190, f02=» EXTRN IH1501 P EXTRN IH1502 P EXTRN IH2501 8 P EXTRN IH2502 N * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 d P EXTRN CHRT3 P EXTRN CHRT4 ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 ( P EXTRN IHCC2
0x23672c…2368c0 Dummy {f00=0x00b6, f01=0x0190, f02=»XTRN CHLT2,IHSVU6,IHSVU7,IHSVU8 LOCAL CHANNEL UNIT NO. 2 4 P EXTRN IHPL01,IHPVU1,IHPVU2,IHPVU3,IHPVU4,IHPVU5 @ & P EXTRN IHPL02,IHPVU6,IHPVU7,IHPVU8 x 0 P EXTRN IHFD,IHCD FLOPPY DISC,CDC (80 M) DISC * P EXTRN IHLP,IHPL03,IHPL04 LINE PRINTER ( P EXT
0x2368c0…236a54 (2, 466) Dummy {f00=0x00b7, f01=0x0190, f02=» EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT ROUTINE F P EXTRN BUG DEBUGGER f P EXTRN IHPR01 RWSI CARD P EJECT SYSTAB P* F P* DISPLACEMENTS IN SEGTAB, PAGTAB , SWBTAB AND APPL. CONTROL BLOCK
0x236a54…236be8 Dummy {f00=0x00b7, f01=0x0190, f02=»CTOR ADDRESS | " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS : & PPAG:QF EQU 0 QUEUE POINTER FORWARD b ( PPAG:QB EQU 2 QUEUE POINTER BACKWARD PPAG:PA EQU 4 PAGE ADDRESS & PPAG:SB EQU 6 SEGMENT BLOCK ADDRESS P*
0x236be8…236d7c Dummy {f00=0x00b7, f01=0x0190, f02=»H (BYTES) z & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* < , PACBIOE EQU 0 APPLICATION RESTART ADDRESS F PACBSWB EQU 2 SWBTAB ADDRESS v $ PACBSEG EQU 4 SEGMENT TABLE POOL ( PACBNPE EQU 6 NUMBER OF PAGE ENTRIES & PACBMMP EQU 8 MMU TABLE PAG
0x236d7c…236f10 Dummy {f00=0x00b7, f01=0x018e, f02=»DRESS TO COMMON PART x 4 PACBSTA EQU 16 APPLICATION PROGRAM START ADDRESS . PACBREL EQU 18 APPLICATION RELOCATION BASE T 0 PACBADA EQU 20 APPLICATION DISC FILE ADDRESS P P P PSTART EQU * P EJECT SYSTAB P* P
0x236f10…2370a4 Dummy {f00=0x00b7, f01=0x0190, f02=» P DATA ILLINT P DATA ILLINT P DATA ILLINT , P DATA ILLINT @ P DATA ILLINT T P DATA ILLINT h P DATA ILLINT | P DATA IH1501 P DATA IH1502 P DATA IH2501 P DATA IH2502 P DATA ILLINT P DATA ILLINT P
0x2370a4…237238 Dummy {f00=0x00b7, f01=0x0190, f02=» P DATA ILLINT P DATA IHPL01 P DATA IHPL02 , P DATA ILLINT @ P DATA ILLINT T P DATA ILLINT h P DATA ILLINT | P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P
0x237238…2373cc Dummy {f00=0x00b7, f01=0x0190, f02=» P DATA ILLINT P DATA ILLINT P DATA ILLINT , P DATA ILLINT @ P DATA ILLINT T P DATA ILLINT h P DATA ILLINT | P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P
0x2373cc…237560 Dummy {f00=0x00b7, f01=0x0190, f02=»CT SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER & P* L P DATA SCT V P h P p P* x P* SYSTEM TRAP P* PTRAP LDK A1,/D P CF A15,HALT P RES 4 P HLT P P* P* DEBUG RESTART
0x237560…2376f4 (2, 467) Dummy {f00=0x00b7, f01=0x0190, f02=» SYSTAB P* P* PX:A EQU 0 MONITOR OPTION $ ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM D * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE p $ PX:D EQU 0 DM/FM NUMBER OF FILES ( PX:E EQU 0 DM/FM NUMBER OF FILES/TASK $ PX:F EQU 0 FILE WORK TA
0x2376f4…237888 Dummy {f00=0x00b7, f01=0x0190, f02=» P* P* SYSTEM CONTROL TABLE P* 0 PSCT EQU * : P L * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES T & PSCTSFA DATA 0,0 START OF FREE AREA $ PSCTEFA DATA 0,0 END OF FREE AREA ( PSCTIPL DATA 0 IPL DEVICE FILE CODE: * P TC:C0
0x237888…237a1c Dummy {f00=0x00b7, f01=0x0190, f02=»DRESS z PSCTPAG DATA 0 PAGTAB ADDRESS " PSCTNOP DATA 0 NUMBER OF PAGES 2 PSCTPSZ DATA 0 PAGE SIZE X & PSCTSTB DATA STB SYSTEM STACK BASE x & PSCTOPT DATA 04097 MONITOR OPTION: " P BIT 10:MPO,11:EMM,12:SWPBLK $ P BIT 13:FM,14:DSKPAG
0x237a1c…237bb0 Dummy {f00=0x00b7, f01=0x0190, f02=»MI DATA 00000 DM INDEX RECORD BUFFER SIZE * PSCTFWT DATA 0 FWT CHAIN START ADDRESS 2 & PSCTNOF DATA 00000 NUMBER OF FILES ` * PSCTNFT DATA 00000 NUMBER OF FILES/TASK , PSCTFWL DATA 00000 FILE WORK TABLE LENGTH ( PSCTBLK DATA 6 NUMBER OF BLOCKS/T
0x237bb0…237d44 Dummy {f00=0x00b7, f01=0x0190, f02=»XSTAB v 0 PSCTMOX DATA 0 ADDRESS TO START-ADDRESS TABLE P EJECT SYSTAB B P Z P* b P* SYSTEM STACK l P* $ PSTKEND EQU * END OF SYSTEM STACK P RES 68 PSTKMOV LDR* A4,A1 P STR A4,A2 P ADK A1,2 P ADK A
0x237d44…237ed8 Dummy {f00=0x00b7, f01=0x40b6, f02=»0 AND PSW & PSTB DATA LOOP AND PC FOR IDLE LOOP P < P D P* L P* IDLE LOOP V P* j P t PLOOP RB * | P P P P END @ ES 68 PSTKMOV LDR* A4,A1 P STR A4,A2 P ADK A1,2 P ADK A
0x237ed8…23806c Dummy {f00=0x00b7, 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
0x23806c…238200 Dummy {f00=0x00b7, f01=0x0190, f02=» P P @5^ P X 2P A5x 8 Hd2 @ P E X R. X P T" P C X P N C J P " Hd2" P X * Y X V ! W* X T X *P LW ! X T X ! P ! W ! A5d @5^ X 0 A5j A5` A5l ! @5bT @5dP ! !
0x238200…238394 (2, 468) Opaque[0x194]
0x238394…238528 # DirEnt {nam=»PROGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x16f0, f03=0x0000}
0x238394…238528 IdxSect {
0x238394…238528 f00 = 0x00b7 // 0x238394 @0x0
0x238394…238528 f01 = 0x0002 // 0x238396 @0x2
0x238394…238528 gno = [ // 0x238398 @0x4
0x238394…238528 [0x00]: C0x00b7.0x2.0
0x238394…238528 ]
0x238394…238528 }
0x238528…2386bc Dummy {f00=0x00b7, f01=0x00e4, f02=» PASG 2,LP0F PSCR PINC SYSPRO " PINC DEBUGM 4 PNOD AM F PINC SYSLOD T PINC SYSLDM f PINC SYSLCR x PINC SYSINI PLKE M PKPF /L,PTMON P$PDISC M=PTMON PASG /E0,TY10
0x2386bc…238850 Dummy {f00=0x00b7, f01=0x2008, f02=» 2,LP0F PSCR PINC SYSPRO " PINC DEBUGM 4 PNOD AM F PINC SYSLOD T PINC SYSLDM f PINC SYSLCR x PINC SYSINI PLKE M PKPF /L,PTMON P$PDISC M=PTMON PASG /E0,TY10
0x238850…2389e4 Dummy {f00=0x00b7, f01=0x00b6, f02=»S ANY COMBINATION OF ALTERNATIVE 1,2,3 AND 4 IS VALID, 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN > 8 HMES ALTERNATIVES 5,6 AND 7 MAY BE INCLUDED IF NEEDED r HEND FILE 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE 2 HMES 5 FC FI
0x2389e4…238b78 Dummy {f00=0x00b7, f01=0x2008, f02=» MBINATION OF ALTERNATIVE 1,2,3 AND 4 IS VALID, 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN > 8 HMES ALTERNATIVES 5,6 AND 7 MAY BE INCLUDED IF NEEDED r HEND FILE 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE 2 HMES 5 FC FI
0x238b78…238d0c Dummy {f00=0x00b7, f01=0x0190, f02=» MMEND , ( F ;j , ( Y P F P > , ( @ P - P _ n , ( :L E A W , ( F D AST =l R , ( ?
0x238d0c…238ea0 Dummy {f00=0x00b7, f01=0x0190, f02=» P :L AST , ( A A E E A A , , ( 8 P W 89B @ V , ( $ W Zb A @ @ , ( A A @ D , ( # B AS @
0x238ea0…239034 (2, 469) Opaque[0x194]
0x239034…2391c8 # DirEnt {nam=»DRDC25«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16f8, f03=0x0000}
0x239034…2391c8 IdxSect {
0x239034…2391c8 f00 = 0x00b7 // 0x239034 @0x0
0x239034…2391c8 f01 = 0x003e // 0x239036 @0x2
0x239034…2391c8 gno = [ // 0x239038 @0x4
0x239034…2391c8 [0x00]: C0x00b7.0x3.0
0x239034…2391c8 [0x01]: C0x00b8.0x0.0
0x239034…2391c8 [0x02]: C0x00b8.0x1.0
0x239034…2391c8 [0x03]: C0x00b8.0x2.0
0x239034…2391c8 [0x04]: C0x00b8.0x3.0
0x239034…2391c8 [0x05]: C0x00b9.0x0.0
0x239034…2391c8 [0x06]: C0x00b9.0x1.0
0x239034…2391c8 [0x07]: C0x00b9.0x2.0
0x239034…2391c8 [0x08]: C0x00b9.0x3.0
0x239034…2391c8 [0x09]: C0x00ba.0x0.0
0x239034…2391c8 [0x0a]: C0x00ba.0x1.0
0x239034…2391c8 [0x0b]: C0x00ba.0x2.0
0x239034…2391c8 [0x0c]: C0x00ba.0x3.0
0x239034…2391c8 [0x0d]: C0x00bb.0x0.0
0x239034…2391c8 [0x0e]: C0x00bb.0x1.0
0x239034…2391c8 [0x0f]: C0x00bb.0x2.0
0x239034…2391c8 [0x10]: C0x00bb.0x3.0
0x239034…2391c8 [0x11]: C0x00bc.0x0.0
0x239034…2391c8 [0x12]: C0x00bc.0x1.0
0x239034…2391c8 [0x13]: C0x00bc.0x2.0
0x239034…2391c8 [0x14]: C0x00bc.0x3.0
0x239034…2391c8 [0x15]: C0x00bd.0x0.0
0x239034…2391c8 [0x16]: C0x00bd.0x1.0
0x239034…2391c8 [0x17]: C0x00bd.0x2.0
0x239034…2391c8 [0x18]: C0x00bd.0x3.0
0x239034…2391c8 [0x19]: C0x00be.0x0.0
0x239034…2391c8 [0x1a]: C0x00be.0x1.0
0x239034…2391c8 [0x1b]: C0x00be.0x2.0
0x239034…2391c8 [0x1c]: C0x00be.0x3.0
0x239034…2391c8 [0x1d]: C0x00bf.0x0.0
0x239034…2391c8 [0x1e]: C0x00bf.0x1.0
0x239034…2391c8 ]
0x239034…2391c8 }
0x2391c8…23935c Dummy {f00=0x00b7, f01=0x0190, f02=» 4 P IDENT DRDC25 REL 11.0 DK 82-04-02 870105041100 P < " P =17, RETURN CODE AT CONNECT D ( P =16, DLOBUF DESTROYED AT CONNECT j . P =15, NO NEED TO RES 1 WORD BEFORE DATA * P =14, LOSS OF DRIVER RECEIVE BUFFER P REL 11.0 81-05-
0x23935c…2394f0 Dummy {f00=0x00b7, f01=0x0190, f02=» =11, PROCEDURE TIMER PROBLEM P =10, EOT ON SPECIFIC POLL ( $ P =9, REMAINING TIME IN ECBCW1 L P REL 11.0 81-04-12 t " P =8, ODD USER BUFFER ADDRESS P =7, BINARY STORE PROBLEM P REL 11.0 81-04-07 ( P =6, ERROR IN PO
0x2394f0…239684 Dummy {f00=0x00b7, f01=0x0190, f02=»ETE INSTRUCTIONS NOT USED $ P =2, CHANGES IN STATUS HANLING " ( P =1, ERROR IN OPEN/CLOSE REQUESTS J P REL 11.0 81-01-26 v P* P* 2 P********************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x239684…239818 Dummy {f00=0x00b7, f01=0x0190, f02=»SV1 x P* P* P* P* * P* 4 8 P**************************************************** > P EJECT z P* P* P* ENTRY POINTS P* 2 P ENTRY DC25AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH2501 INPUT IN
0x239818…2399ac Dummy {f00=0x00b7, f01=0x0190, f02=»JECT P* P* P* EXTERNAL REFERENCES P* > " P EXTRN TDISP DISPATCHER ENTRY H ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK n $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN SETIME SET TIMER P EXTRN DWTCHP DWT ADDRESS P EXT
0x2399ac…239b40 Dummy {f00=0x00b7, f01=0x0190, f02=»USER ECB IF MMU P EXTRN DWTMEC MMU ECB P EXTRN ECBFC FILE CODE 6 P EXTRN ECBBA BUFFER ADDRESS T " P EXTRN ECBRL REQUESTED LENGTH x " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBCW1 CONTROL WORD 1 P EXTRN ECBCW2 CONTROL WORD 2
0x239b40…239cd4 (2, 470) Dummy {f00=0x00b8, f01=0x0190, f02=» TO ASCII TABLE | . P EXTRN DCSRED READ STATISTICS ENTRY POINT : P EXTRN DCSRLL RESET ALL STATISTICS BUFFERS ENTRY POINT J : P EXTRN DCSUPS UPDATE STATISTICS ENTRY POINT IN DCSTAT 8 P EXTRN GETDNA VALIDATE AND CONVERT SYMBOLIC DTE ADDR 8 P EXTRN
0x239cd4…239e68 Dummy {f00=0x00b8, f01=0x018e, f02=»FFER l 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH * P EXTRN PFPOST WAIT FOR POWER UP IF SET @ P EJECT n J P********************************************************************** ~ P* P* REGISTER USAGE: P* P* A1 WORK (RET
0x239e68…239ffc Dummy {f00=0x00b8, f01=0x0190, f02=» P* A6 DWT ADDRESS $ P* A7 ORDER CODE, DTETAB ADDRESS P* A8 ECB ADDRESS D P* L P************************************************************************ f P EJECT < P******************************************************* P*
0x239ffc…23a190 Dummy {f00=0x00b8, f01=0x0190, f02=»X:B EQU 0 IF 1 INTERRUPT LOGGING PLOGG EQU X:B ( " PX:C EQU 600 POLL TIMEOUT VALUE < PTIMPOL EQU X:C b * PX:D EQU 0 STATUS AND RVI HANDLING IF=1 x PSTARVI EQU 1 * PX:E EQU 0 READ COMMAND HANDLING IF =1 PRCOM EQU 1 & PX:F EQU 254
0x23a190…23a324 Dummy {f00=0x00b8, f01=0x018e, f02=»C POLL HANDLING z PSPECP EQU X:H , PX:I EQU 0 IF = 1 LINE SPEED SET TO HIGH . ( P IF = 0 LINE SPEED IS SET TO LOW ^ PSPEED EQU 1 * PX:J EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU X:J . PX:K EQU 2 NUMBER OF RECEIVE BUFFERS (2-5
0x23a324…23a4b8 Dummy {f00=0x00b8, f01=0x0190, f02=» , PLCUIN EQU X:M DEVICE ADDRESS OF RECEIVER P XIF 8 P IFT P6805=1 D , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER X P XIF P IFT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCUZ P I
0x23a4b8…23a64c Dummy {f00=0x00b8, f01=0x0190, f02=» IF 1 IBM CHARACTER HANDLING . PX:O EQU 0 IF 1 MESSAGE PASSING TO DC TASK $ PMESPAS EQU X:O V 4 PX:P EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 l PEM3270 EQU 1 PX:Q EQU 0 * PTPMODE EQU X:Q IF = 1 TRANSPARANT MODE PX:R EQU 0 .
0x23a64c…23a7e0 Dummy {f00=0x00b8, f01=0x0190, f02=» TRANSMISSION x , PDMRK EQU 1 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT F 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT ~ 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". P =2 P PREMTIM EQU 0
0x23a7e0…23a974 (2, 471) Dummy {f00=0x00b8, f01=0x0190, f02=»EIVE REQUESTS =9 ~ P* P IFT SPEED=1 " PLSPEED EQU /0200 6 P XIF N P IFT SPEED=0 Z PLSPEED EQU 0 n P XIF P EJECT P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY
0x23a974…23ab08 Dummy {f00=0x00b8, f01=0x0190, f02=»BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 * P* > P* H 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION R . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* 0 PDEVIND EQU 0 DEVICE INDEX DATA COM
0x23ab08…23ac9c Dummy {f00=0x00b8, f01=0x0190, f02=» j P* 2 P* DCDEFS COMMON DEFS FOR DC DRIVERS/PACKAGES P* H * P************************************** R P , P*************************************** P* P* TABLE AND PACKET LAYOUTS P* , P************************
0x23ac9c…23ae30 Dummy {f00=0x00b8, f01=0x0190, f02=»* P* DWT, DEVICE WORK TABLE P* * L P************************************************************************ 4 P* P* ................... P* 0 . DWTCHP . P* ................... P* 2 . DWTST
0x23ae30…23afc4 Dummy {f00=0x00b8, f01=0x018e, f02=»OR . | P* ................... P* 8 . DWTADR . 0 P* ................... R P* 10 . DWTTAB . t P* ................... P* 12 . DWTWAT . P* ................... P* 14 . DWT
0x23afc4…23b158 Dummy {f00=0x00b8, f01=0x0190, f02=» , P* (18). DWTMEC . IF MMUPAG P* ................... 4 $ P* DWTDRD +2 . DWTSTB . V $ P* ................... ~ P* +4 . DWTCHD . P* ................... P* +6 . DWTCHN .
0x23b158…23b2ec Dummy {f00=0x00b8, f01=0x0190, f02=» P* ................... P* +12 . DWTDR1/SUB . & P* ................... H P* +14 . DWTRCL . j P* ................... P* +16 . DWTRTV . P* ................... P* +18 . DWTRTP
0x23b2ec…23b480 Dummy {f00=0x00b8, f01=0x0190, f02=» . z P* ................... P* +24 . DWTIPC . . P* ................... P P* +26 . DWTIPT . r P* ................... P* +28 . . P* / DRIVER DEPEND / P* /
0x23b480…23b614 (2, 472) Dummy {f00=0x00b8, f01=0x0190, f02=» /=0 ` P* / BUFFER / P* ................... . P* P P EJECT Z P* h > P********************************************************* r P* & P* D W T D I S P L A C E M E N T S P* > P**********************
0x23b614…23b7a8 Dummy {f00=0x00b8, f01=0x0190, f02=» OF DRIVER DEPENDENT AREA x P XIF " P IFT MMUPAG=1 . 6 PDWTDRD EQU DWTTQ+6 START OF DRIVER DEPENDENT AREA D P XIF ~ D PDWTSTB EQU DWTDRD OFFSET REL START DWT TO STATISTIC BUFF IF ANY 2 PDWTCHD EQU DWTDRD+2 CONFIG CHAIN LINK HEAD DWT 2 P
0x23b7a8…23b93c Dummy {f00=0x00b8, f01=0x0190, f02=»YMBOLIC DTE ADDRESS t * PDWTDR1 EQU DWTDRD+10 DRIVER DEP WORD 1 * PDWTSUB EQU DWTDR1 SYMBOLIC SUBADDRESS J . PDWTRCL EQU DWTDRD+12 REQUEST CONTROL WORD x , PDWTRTV EQU DWTDRD+14 REQUEST TIMER VALUE . PDWTRTP EQU DWTDRD+16 REQUEST TIMER POINTER
0x23b93c…23bad0 Dummy {f00=0x00b8, f01=0x0190, f02=»TIPC EQU DWTDRD+22 I/P DATA Q LINK TO BUFFER 0 PDWTIPT EQU DWTDRD+24 I/P DATA TIMER POINTER 4 ( PDWTCUR EQU DWTDRD+26 CURSOR ADDRESS h . PDWTBUF EQU DWTDRD+28 DEVICE BUFFER ADDRESS $ PDWTSTA EQU DWTDRD+30 DWT STATUS P EJECT J P************
0x23bad0…23bc64 Dummy {f00=0x00b8, f01=0x0190, f02=»****************************************************** ~ P* > P* ................... H P* 0 . DTECHP . j P* ................... P* 2 . DTEST . P* ................... P* 4 . DTEECB
0x23bc64…23bdf8 Dummy {f00=0x00b8, f01=0x0190, f02=» . z P* ................... P* 10 . DTETAB . . P* ................... P P* 12 . DTEWAT . r P* ................... P* 14 . DTETQ . P* ................... , P* (16). DTEUE
0x23bdf8…23bf8c Dummy {f00=0x00b8, f01=0x0190, f02=»..... | $ P* DTEDRD +2 . DTESTB . $ P* ................... 6 P* +4 . DTECHD . ^ P* ................... P* +6 . DTECHN . P* ................... P* +8 . DTELAD . P
0x23bf8c…23c120 Dummy {f00=0x00b8, f01=0x0190, f02=»* / / P* ................... " 8 P* . STATISTIC . IF STAT AND DTESTB /=0 D P* / BUFFER / P* ................... P* PDTETQ EQU 14 PDTEUEC EQU DTETQ+2 PDTEMEC EQU D
0x23c120…23c2b4 (2, 473) Dummy {f00=0x00b8, f01=0x0190, f02=»EDRD EQU DTEMEC+2 START OF DC DEPENDENT AREA P XIF 4 D PDTESTB EQU DTEDRD OFFSET REL START DTE TO STATISTIC BUFF IF ANY @ 2 PDTECHD EQU DTEDRD+2 CONFIG CHAIN LINK HEAD DTE 2 PDTECHN EQU DTEDRD+4 CONFIG CHAIN LINK NEXT DTE 2 PDTELAD EQU DTEDRD+6
0x23c2b4…23c448 Dummy {f00=0x00b8, f01=0x0190, f02=»NK STATUS t $ PDTESTA EQU DTEDRD+12 DTE STATUS ( PDTEDWT EQU DTEDRD+14 CHAIN LINK DWT : 0 PDTEDDT EQU DTEDRD+16 CHAIN LINK DISCARD DWT f P* STATITICS BUFFER 2 PSTWSID EQU DTEDRD+18 RESERVED FOR SYMBOLIC ID . PSTWCST EQU DTEDRD+20 COUNTER S
0x23c448…23c5dc Dummy {f00=0x00b8, f01=0x0190, f02=»**************************************************** ~ P* < , P* COUNTER INDECES - PARAMETER-1 EQUATES F P* v P* REQUEST LEVEL COUNTERS: P* D P*************************************************************** P* * PCSRCON EQU
0x23c5dc…23c770 Dummy {f00=0x00b8, f01=0x0190, f02=»HR EQU /C5 CHARACTERS RECEIVED ( PCSRMST EQU /06 MESSAGES TRANSMITTED ! & * PCSRCHT EQU /C8 CHARACTERS TRANSMITTED ! R PCSRTOP EQU /09 TIMEOUT ! PCSRABT EQU /0A ABORTED ! PCSRERR EQU /0B ERROR ! & PCSRTRE EQU /0C TRANSMISSION ERROR ! & PCSRXC1
0x23c770…23c904 Dummy {f00=0x00b8, f01=0x018e, f02=»CSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY ! > PCSSRBO EQU /12 " DATA BLOCKS REJECTED BUFFER OVERFLOW " > 6 PCSSRAB EQU /13 " DATA BLOCKS REJECTED ABORTED " : PCSSRPE EQU /14 " DATA BLOCKS REJECTED PARITY ERROR " 0 PCSSTBL EQU /15
0x23c904…23ca98 Dummy {f00=0x00b8, f01=0x018e, f02=» 4 PCSSXC1 EQU /18 NBR OF REPLY REQUESTS TRANSMITTED # & PCSSXC2 EQU /19 PROCEDURE TIME OUTS # < 8 PCSSXC3 EQU /1A NBR OF TIMES POLL TIMEOUT HAS OCCURED # f P # P # P EJECT # P* DTE/DCE LEVEL COUNTERS # P # $ PCSCDTE EQU /28 DTE NOT OPE
0x23ca98…23cc2c Dummy {f00=0x00b8, f01=0x0190, f02=» # n * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT $ PCSCXC2 EQU /2D " $ 6 PCSCXC3 EQU /2E " $ R P EJECT $ n P* $ | P* $ P* REQUEST HANDLING $ P* $ P* $ P* ORDER CODE (A7) $ P* $ POPEN EQU /21 OPEN $ PCLOSE EQU /2
0x23cc2c…23cdc0 Dummy {f00=0x00b8, f01=0x0190, f02=» $ ~ PRSTAT EQU /00 READ STATUS % PSSTAT EQU /38 SET STATUS % * ( PSTATIS EQU /2D READ/RESET STATISTICS % J $ PSTIMOT EQU /39 SET TIMEOUT VALUE % v P* % P* OPTIONS: % P* % 2 PTYPRR EQU /4343 RESET STATISTICS AFTER READ =5 % P EJECT % P
0x23cdc0…23cf54 (2, 474) Dummy {f00=0x00b9, f01=0x0190, f02=»* % > P********************************************************** & P* & L L P*---------------------------------------------------------------------- & V " PR:REQ EQU /8000 REQUEST ERROR & $ PR:ABRT EQU /4000 REQUEST ABORTED & PR:2 EQU /2000 &
0x23cf54…23d0e8 Dummy {f00=0x00b9, f01=0x0190, f02=»0 & PR:6 EQU /0200 ' , PR:DATA EQU /0100 DATA AVAILABLE (QUEUED) ' J P*--------------------------------------------------------------------- ' P PR:8 EQU /0080 ' PR:TIME EQU /0040 TIME OUT ' PR:10 EQU /0020 ' " PR:SEQ EQU /0010 SEQUENCE ERR
0x23d0e8…23d27c Dummy {f00=0x00b9, f01=0x0190, f02=» /0004 ' . PR:LOGC EQU /0002 LOGICAL CONNECTION ERROR ( . PR:PHYC EQU /0001 PHYSICAL CONNECTION ERROR ( @ L P*---------------------------------------------------------------------- ( r P* ( P EJECT ( P* ( < P************************************
0x23d27c…23d410 Dummy {f00=0x00b9, f01=0x0190, f02=»*******************= ( j P* ) L P*---------------------------------------------------------------------- ) & PH:0 EQU /8000 ) v PH:1 EQU /4000 ) PH:2 EQU /2000 ) PH:3 EQU /1000 ) L P*---------------------------------------------------------
0x23d410…23d5a4 Dummy {f00=0x00b9, f01=0x0190, f02=»--------------------------------------------- ) v PH:8 EQU /0080 * 6 PH:9 EQU /0040 * L PH:CARR EQU /0020 CARRIER OFF * b PH:11 EQU /0010 * J P*-------------------------------------------------------------------- * PH:12 EQU /0008 * " PH:PARI E
0x23d5a4…23d738 Dummy {f00=0x00b9, f01=0x0190, f02=»--------------------------------------------- * v P EJECT + 6 > P********************************************************** + H P* + P* LINE CONTROL CHAR EQU:S + P* + > P********************************************************** + P
0x23d738…23d8cc Dummy {f00=0x00b9, f01=0x0190, f02=»EQU /1F + PSOH EQU /01 , PENQ EQU /05 , $ PDLE EQU /10 , 8 PEOT EQU /04 , L PNAK EQU /15 , ` PESC EQU /1B , t PSBA EQU /11 , PGP EQU /22 , PRDBCOM EQU /32 , PRDMCOM EQU /36 , P EJECT , P IFT CODE=0 , PPAR EQU /80
0x23d8cc…23da60 Dummy {f00=0x00b9, f01=0x018e, f02=» P IFT CODE=0 - P IFT MSV1=1 - 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE - , P XIF - ` P IFT CODE=1 - l PPAR EQU /00 - PWACK EQU /2C - PRVI EQU /40 - PACK0 EQU /18 - PACK1 EQU /2F - PSYNEBC EQU /32 - PENQEBC EQU /2D
0x23da60…23dbf4 (2, 475) Dummy {f00=0x00b9, f01=0x0190, f02=» PACKPAR EQU ACK0+PAR . P XIF . P IFT P6805=1 . , PENQPAR EQU ENQ . @ PRVIPAR EQU RVI . V PACKPAR EQU ACK0 . l P XIF . P EJECT . P* . P* . $ P* 3270 SENSE/STATUS INFORMATION . P* . P* . P IFF STARVI=0 . . PSSTA
0x23dbf4…23dd88 Dummy {f00=0x00b9, f01=0x0190, f02=» NO INTERVENTION REQUIRED . | , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED / " P XIF / R P* / ^ P* / h P* TIMER VALUES / r P* / P* / ( PTIMPRO EQU 30 PROCEDURE TIMER 3 SEC / P* / P* / P EJECT / B P******************************
0x23dd88…23df1c Dummy {f00=0x00b9, f01=0x0190, f02=»*********************************** / v P* 0 , P IFT CODE=0 0 6 PSYNC EQU /16 0 J P XIF 0 ^ P IFT CODE=1 0 j PSYNC EQU /32 0 ~ P XIF 0 P IFT P6805=0 0 PCBCARR EQU /100+LSPEED 0 P XIF 0 P IFT P6805=1 0 PCBSTOP EQU /00 0 P I
0x23df1c…23e0b0 Dummy {f00=0x00b9, f01=0x0190, f02=» 8 P*************************************************** 1 P* 1 @ ( P* LINE CONTROL UNIT SST STATUS BITS 1 J P* 1 v 8 P*************************************************** 1 P* 1 P IFT P6805=0 1 & PH:ERR EQU /23 H:NOOP+H:THRU+H:CARR 1 P XIF
0x23e0b0…23e244 Dummy {f00=0x00b9, f01=0x0190, f02=»************************************ 1 t P* 2 , P* DRIVER ADDRESS BLOCK 2 6 P* 2 T D P*************************************************************** 2 ^ P* 2 P DATA BUFLEN MMU BUFFER SIZE 2 P DATA DEVIND DEVICE INDEX 2 ( PDC25AD DATA DCACT
0x23e244…23e3d8 Dummy {f00=0x00b9, f01=0x0190, f02=» , P RES 15 SUBROUTINE STACK FOR INTERRUPTS 3 PSTB RES 1 3 4 P EJECT 3 F P 3 T @ P************************************************************ 3 P* 3 P* ABORT ROUTINE 3 P* 3 P************************ 3 P 3 ( PABORT LD A1,DWTRTP
0x23e3d8…23e56c Dummy {f00=0x00b9, f01=0x0190, f02=»R,A6 ORDER CODE 3 P ANK A2,/7F 4 P SUK A2,6 4 , P RF(NE) AB:RTN 4 > . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE 4 T & P LD A2,FDWTUT WRITING DWT ADDRESS 4 P CWR A2,A6 4 P RF(NE) AB:RTN NOT THIS DWT 4 P CM FDWTUT REST SENDING DWT 4
0x23e56c…23e700 Dummy {f00=0x00b9, f01=0x0190, f02=»********************************** 4 l J P********************************************************************** 5 * P* 5 x P* 5 , P* REQUEST HANDLER/APPLICATION INTERFACE 5 P* 5 P* 5 J P********************************************************
0x23e700…23e894 (2, 476) Dummy {f00=0x00b9, f01=0x0190, f02=» TASKS 5 v P* 6 PDCACT EQU * 6 P LDK A1,0 PRESET RETURN CODE 6 , & P LDR A2,A7 ORDER CODE AS PARAMETER 6 P P LDKL A7,DTETAB DTE TAB ADDR 6 z & P ANK A2,/FF STRIP OFF OPTION BITS 6 : P CF A15,LOOKUP BRANCH ON CODES, TABLE ADDRESS TO STACK 6 0 P D
0x23e894…23ea28 Dummy {f00=0x00b9, f01=0x018e, f02=»A OPEN,RQOPEN OPEN REQUEST 6 $ P DATA CLOSE,RQCLOS CLOSE REQUEST 7 " . P DATA CONPAS,RQCON CONNECT PASSIVE REQUEST 7 J ( P DATA DISCO,RQDIS DISCONNECT REQUEST 7 | * P DATA RSTAT,RQRSTS READ STATUS REQUEST 7 ( P DATA SSTAT,RQSST SET STATUS REQUEST 7 , P DATA
0x23ea28…23ebbc Dummy {f00=0x00b9, f01=0x0190, f02=» P* OPEN REQUEST 8 P* 8 P* ACTIVATION PARAMETERS: 8 $ $ P* SYMBOLIC DTE-ADDRESS (ECBCW2) 8 D P* 8 l P* FUNCTIONS: 8 v 8 P* 1. CHECK IF ALREADY OPEN & IF SO SAME DTE-ADDRESS 8 & P* 2. CONVERT & VERIFY DTE ADDRESS 8 P* 8 PRQOPEN EQU * 8
0x23ebbc…23ed50 Dummy {f00=0x00b9, f01=0x0190, f02=» , P ABI RQOPTB,A2 BRANCH ON INDEX IN TABLE 9 & PRQOPTB DATA RQOP20 CLOSED/INACTIVE 9 4 " P DATA RQOP15 OPEN IN PROGRESS 9 ^ P DATA RQOP10 OPEN 9 " P DATA RQOP15 CLOSE IN PROGRESS 9 PRQOP10 EQU * 9 2 P CW A1,DTELAD,A7 SAME AS THE ONE WHO OPENED ? 9
0x23ed50…23eee4 Dummy {f00=0x00b9, f01=0x0190, f02=»TA,A7 SET OPEN IN PROGRESS 9 . P ST A1,DTELAD,A7 SAVE SYMBOLIC DTE ADDRESS : " 2 P LDR A2,A7 ADDR TO SELECT AND POLL IN DTE TAB : T 0 P CF A15,GETDNA CONVERT AND VALIDATE DTE ADDR : P LDR A1,A1 : P RF(NN) RQOP80 OK : P CM DTELAD,A7 CLEAR DTE ADDR :
0x23eee4…23f078 Dummy {f00=0x00b9, f01=0x0190, f02=»DR* A2,A7 DTE ADDRESS IN EBCDIC : P LDR A1,A2 ; ( P ANK A2,/FF ; : P RF(Z) RQOP30 ONLY ONE BYTE ; N ( P LC A2,TASCII,A2 CONVERT INTO ASCII ; r P SLL A2,8 ; PRQOP30 EQU * ; P ECR A1,A1 ; P ANK A1,/FF ; P LC A2,TASCII,A1 ; * P STR A
0x23f078…23f20c Dummy {f00=0x00b9, f01=0x0190, f02=» PHYSICAL CONNECTION ? ; P ABL(NZ) RTOK YES RETURN OK < * P ABL RTPHYC RETURN PHYSICAL CONNECTION < B P EJECT < p P* < ~ P* CLOSE REQUEST < P* < P* ACTIVATION PARAMETERS: < " P* OPTION /00 = UNCONDITIONAL < P* /80 = CONDITIONAL <
0x23f20c…23f3a0 Dummy {f00=0x00b9, f01=0x0190, f02=» UNCONDITIONAL, DISCONNECT ALL DWT:S < P* = , PRQCLOS EQU * = 6 ( P LD A5,DWTOR,A6 GET OPTION AND ORDER = J , P LD A2,ECBCW2,A8 GET SYMBOLIC DTE - ADDR = v P RF(Z) RQCL20 = " P CW A2,DTELAD,A7 CORRECT DTE ? = ( P ABL(NE) RTREQ RETURN: REQUEST ERROR =
0x23f3a0…23f534 (2, 477) Dummy {f00=0x00b9, f01=0x018e, f02=» RTSEQ RETURN: SEQUENCE ERROR = $ P IM DTESTA,A7 CLOSE IN PROGRESS > & ( P LDR A8,A6 SAVE REQUESTING DWT-ADDR > N P* > z PRQCL40 EQU * > P IFT MESPAS=1 > * P LD A6,DTEDDT,A7 GET DISCARD DWT ADDR > P RF(Z) RQCL50 > " P LDR A5,A5 CONDITIONAL
0x23f534…23f6c8 Dummy {f00=0x00b9, f01=0x0190, f02=» > d P RF RQCL60 ? PRQCL50 EQU * ? P XIF ? . " P LD A6,DTEDWT,A7 GET DWT ADDR ? : " P RF(Z) RQCL90 NO DWT IN QUEUE ? ` " P LDR A5,A5 CONDITIONAL CLOSE ? ? P RF(N) RQCL95 YES ! ? 6 P LD A2,DWTCHN,A6 GET POINTER TO NEXT DWT IN CHAIN ? 0 P ST A2
0x23f6c8…23f85c Dummy {f00=0x00b9, f01=0x0190, f02=» ON DWT ? l " P CM DWTSTA,A6 CLEAR DWT-STATUS @ P LDK A1,0 PRESET RETURN CODE @ 6 P CWR A8,A6 REQUESTING DWT ? @ Z & P RF(E) RQCL80 YES-COMPLETE REQUEST @ ~ ( P LD A2,DWTST,A6 A PENDING REQUEST ? @ " P RB(N) RQCL40 NO TAKE NEXT DWT @ 6 P LDK A1,R:SEQ
0x23f85c…23f9f0 Dummy {f00=0x00b9, f01=0x0190, f02=»E @ t PRQCL90 EQU * A P =1 A & P LDR A6,A8 GET REQUESTING DWT ADDR A , ( P LD A8,DWTECB,A6 RESTORE ECB ADDRESS A V P =1 A . P RF(Z) RQCL92 REQUEST ALREADY COMPLETED =1 A P LDK A1,0 RC=0 =1 A , P CF A15,TENDIO COMPLETE CLOSE REQUEST =1 A
0x23f9f0…23fb84 Dummy {f00=0x00b9, f01=0x0190, f02=»/P DEVICE =1 A | P LDK A2,0 =1 B ( P CIO A2,1,LCUIN DISCONNECT MODEM =1 B * P XIF =1 B V P IFT P6805=1 =1 B h " P LDK A2,1 DISCONNECT ORDER =1 B ( P CIO A2,0,LCUIN DISCONNECT MODEM =1 B P XIF =1 B & P CMR A7 REMOVE NETWORK ADDRESS =1 B
0x23fb84…23fd18 Dummy {f00=0x00b9, f01=0x0190, f02=»IMER =6 B ~ P CM DCTPGP CLEAR POINTER =6 C PRQCL94 EQU * =6 C 4 , P CM DTEDLS,A7 INDICATE DATA LINK DOWN =6 C L P ABL TDISP =1 C | PRQCL95 EQU * C P LDK A2,2 C ( P ST A2,DTESTA,A7 SET DTE OPEN AGAIN C " P LDR A6,A8 RESTORE DWT ADDRESS C
0x23fd18…23feac Dummy {f00=0x00b9, f01=0x0190, f02=»* - SYMBOLIC SUBADDRESS (RIGHTMOST BYTE IN ECBBA-BFR) C & P* - DEVICE ADDRESSES IN ECBBA-BFR D > " P* - LENGTH OF BUFFER (ECBRL) D h & P* - SYMBOLIC DTE-ADDRESS (ECBCW2) D P* D P* FUNCTIONS: D 0 P* 1. VERIFY DTE-ADDRESS AS PER OPEN REQUEST D .
0x23feac…240040 Dummy {f00=0x00b9, f01=0x0190, f02=» P* E PRQCON EQU * E & P LD A2,DTELAD,A7 SYMBOLIC DTE-ADDR E " " P CW A2,ECBCW2,A8 CORRECT DTE ? E L , P ABL(NE) RTREQ NO, RETURN: REQUEST ERROR E r $ P LD A2,DTESTA,A7 GET DTE STATUS E P SUK A2,2 OPEN ? E . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ER
0x240040…2401d4 (2, 478) Dummy {f00=0x00ba, f01=0x0190, f02=» MESPAS=1 =13 E P LDK A2,/40 OPTION CODE =13 F & P CC A2,DWTOPT,A6 DISCARD DWT ? =13 F : P RF(NE) RQCN10 NO =13 F d * P CM DWTCHP,A6 INDICATE DISCARD DWT =13 F 0 P LD A1,DTEDDT,A7 POINTER TO DISCARD DWT =13 F 0 P RF(NZ) RQCN50 MORE THAN ONE DISC. D
0x2401d4…240368 Dummy {f00=0x00ba, f01=0x0190, f02=» F P IFF MMUPAG=0 G * P LDKL A4,SUBBUF MMU BUFFER ADDRESS =16 G P ST A4,ECBBA,A8 TO ECB G L * P CF A15,DC:MOT MOVE DATA TO MMU BUFFER G j P XIF G * P LD A4,ECBBA,A8 GET ECB-BUFFER ADDRESS G P IFT MSV1=1 G P LDK A2,0 RESET A2 G & P LCR A2,
0x240368…2404fc Dummy {f00=0x00ba, f01=0x0190, f02=»GETSNA VALIDATE AND TRANSLATE THE SUB-ADDR G P LDR A1,A1 IS IT OK ? H 2 P RF(NN) RQCN20 YES H P $ P CM DWTSUB,A7 CLEAR SUB-ADDRESS H j $ P ABL RTREQ RETURN REQUEST ERROR H PRQCN20 EQU * H P IFT CODE=1 H 2 P LC A1,TASCII,A1 CONVERT FROM EBCDIC T
0x2404fc…240690 Dummy {f00=0x00ba, f01=0x0190, f02=»SS =8 H r * P SC A2,DWTSUB+1,A6 SAVE IT IN THE DWT I . P LD A1,ECBCW2,A8 GET SYMBOLIC DTE ADDRESS I < ( P ST A1,DWTLAD,A6 SAVE IT IN THE DWT I n : P CF A15,GETSNA VALIDATE AND TRANSLATE THE SUB-ADDRESS I P LDR A1,A1 IS IT OK ? I P RF(NN) RQCN30 YES
0x240690…240824 Dummy {f00=0x00ba, f01=0x0190, f02=»QU * I P IFT CODE=1 J 2 P LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII J P XIF J V , P SC A1,DWTCHP+1,A6 SAVE NETWORK ADDRESS J b P IFT EM3270=1 J P ST A1,ECBCW2,A8 J P XIF J P* J P* J & P* LINK DWT TO CONFIGURATION CHAIN J
0x240824…2409b8 Dummy {f00=0x00ba, f01=0x0190, f02=»T,A7 SAVE POINTER TO DWT QUEUE J P RF RQCN60 K & PRQCN50 EQU * K 8 P LDR A2,A1 MOV ADDR TO A2 K L ( P LD A1,DWTCHN,A2 POINTER TO NEXT DWT K n . P RB(NZ) RQCN50 KEEP ON UNTIL LAST IN CHAIN K * P ST A6,DWTCHN,A2 ADD NEW DWT TO CHAIN K PRQCN60 EQU * K
0x2409b8…240b4c Dummy {f00=0x00ba, f01=0x0190, f02=»TATUS: CONNECTED K z P LDKL A2,/8000 L $ P ST A2,DWTRTV,A6 STORE NO TIMING L . P =13 L V P IFT STARVI=1 L f & P LD A1,DWTCHP,A6 DISCARD DWT ? =13 L | * P RF(Z) RQCN65 YES, DO NOT SEND DE =13 L P LDK A1,4 STORE DEVICE L $ P ORS A1,DWTST,A6 END I
0x240b4c…240ce0 Dummy {f00=0x00ba, f01=0x0190, f02=» P* M $ P LD A2,DCTPGP POLL TIMER POINTER M , P RF(NZ) RQCN70 TIMER ALREADY STARTED =6 M 6 P CF A15,SPOTIM M f PRQCN70 EQU * M | P ABL RQOP90 M P EJECT M P* M P* DISCONNECT REQUEST M P* M P* ACTIVATION PARAMETERS: M P* DWT
0x240ce0…240e74 (2, 479) Dummy {f00=0x00ba, f01=0x0190, f02=»N CHAIN M f & P* 3. SET DWT STATUS DISCONNECTED N P* N : P* COMPLETION PARAMETERS: N D P* RETURN CODE (A1) N d P* N PRQDIS EQU * N 0 P LD A2,DWTSTA,A6 DWT STATUS = DISCONNECTED ? N P ABL(Z) RTOK YES, RETURN: OK N * P LD A3,DTEDWT,A7 F
0x240e74…241008 Dummy {f00=0x00ba, f01=0x0190, f02=»SE QUEUED BUFFERS N | 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT O P CM DWTSTA,A6 SET DWT FREE O P . P ST A3,DTEDWT,A7 STORE DWT-ADDR IN DTETAB O r P RB RQCN70 O PRQDI10 EQU * O . P LDR A5,A3 A5 CONTAINES PREVIOUS DWT-ADDR O < P LD A3,DWTCH
0x241008…24119c Dummy {f00=0x00ba, f01=0x0190, f02=» NEXT IN CHAIN O z * P CF A15,RELBUF RELEASE QUEUED BUFFERS P 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT P D 2 P ST A3,DWTCHN,A5 AND STORE IT IN PREVIOUS DWT P z P CM DWTSTA,A6 SET DWT FREE P P RB RQCN70 P PRQDI20 EQU * P P IFT MESPAS=1 P
0x24119c…241330 Dummy {f00=0x00ba, f01=0x018e, f02=» RELEASE BUFFERS QUEUED P P CM DTEDDT,A7 Q P CM DWTSTA,A6 SET DWT FREE Q 6 P RB RQCN70 Q X PRQDI30 EQU * Q j P XIF Q ~ P ABL RTSEQ SEQUENCE ERROR Q P EJECT Q P* Q P* Q P* READ STATUS REQUEST Q P* Q P* ACTIVATION PARAM
0x241330…2414c4 Dummy {f00=0x00ba, f01=0x018e, f02=» P* R P* COMPLETION PARAMETERS: R * P* LOGICAL CONNECTION STATUS (ECBCW1) R . P* R . P* 0 3 4 7 8 11 12 15 R f . P* ........................................ R . P* . DWT . DTE . DATA . PHYS . R . P* . STATE .
0x2414c4…241658 Dummy {f00=0x00ba, f01=0x0190, f02=» P* S PRQRSTS EQU * S P IFT EM3270=1 S " $ P LD A2,ECBCW1,A8 GET OPTION CODE S 8 & P RF(NZ) RQRS10 TEST IF ANY MESSAGE S ` P XIF S P LD A2,DWTSTA,A6 DWT STATUS S P SLL A2,4 BITS 0-3 S P AD A2,DTESTA,A7 DTE STATUS S P SLL A2,4 BITS 4
0x241658…2417ec Dummy {f00=0x00ba, f01=0x0190, f02=» 2 P ST A2,ECBCW1,A8 STATUS TO ECB CONTROL WORD 1 T P ABL RTOK RETURN: OK T : P IFT EM3270=1 T V P* T l P* T v . P* ANY MESSAGE ORDER (ONLY IF EM3270 = 1) T P* T PRQRS10 EQU * T $ P LD A2,DTESTA,A7 GET DTE STATUS T P SUK A2,2 OPEN ?
0x2417ec…241980 Dummy {f00=0x00ba, f01=0x0190, f02=»SEQUENCE ERROR T ~ 6 P LD A4,DWTIPC,A6 ANY QUEUED MESSAGE ON THIS DWT ? U * P ABL(NZ) RTOK YES COMPLETE THE REQUEST U P P ABL TDISP TO DISPATCHER U ~ P XIF U P EJECT U P* U P* SET STATUS REQUEST U P* U P* U P* ACTIVATION PARAMETER
0x241980…241b14 (2, 480) Dummy {f00=0x00ba, f01=0x0190, f02=»VICE END : X`'00' U P* V ( P* IR INTERVENTION REQUIRED : X'01' V $ P* V P P* DB DEVICE BUSY :X'10' V Z P* V z P* COMPLETION PARAMETERS: V P* RETURN CODE (A1) V P* V PRQSST EQU * V P IFT STARVI=0 V & P ABL RTREQ SET STATU
0x241b14…241ca8 Dummy {f00=0x00ba, f01=0x0190, f02=»ST90 NOT DE V & P LD A1,DWTST,A6 GET DEVICE STATUS W ( P ANK A1,/B WACK SENT, DB OR IR ? =2 W > P RF(Z) RQST90 NO =2 W j , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE W P LDK A1,4 SET DE W PRQST90 EQU * W P ST A1,DWTST,A6 SAVE STATUS W P A
0x241ca8…241e3c Dummy {f00=0x00ba, f01=0x0190, f02=»S: W z P* TYPE = BITS 0-7 OF ECBCW1 X P* ECB-ADDRESS (A8) X . ( P* DWT-ADDRESS OF LOW-LEVEL DWT (A6) X J P* X v P* FUNCTIONS: X & P* 1. READ STATISTICS TO USER AREA X & P* 2. RESET ALL STATISTICS BUFFERS X P* X P* COMPLETION PARAMETER
0x241e3c…241fd0 Dummy {f00=0x00ba, f01=0x0190, f02=» ABL RTREQ RC : REQUEST ERROR NO STATISTICS INCLUDED X P XIF Y < P IFF STTSTS=0 Y H " P CF A15,DCSRED READ STATISTICS Y ^ P LDR A1,A1 OK? Y , P ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR Y P LD A1,ECBCW1,A8 GET TYPE Y & P SRL A1,8 TYPE FIELD TO LEFT
0x241fd0…242164 Dummy {f00=0x00ba, f01=0x0190, f02=»UCKY AGAIN? Y , P ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR Z PRQST40 EQU * Z D P ABL RTOK RETURN: OK Z X P XIF Z t P EJECT Z P* Z P* SET TIMEOUT VALUE Z P* Z P* ACTIVATION PARAMETERS: Z , P* ECBCW1 >= 0 : ACTIVATE TIMING CONTROL Z
0x242164…2422f8 Dummy {f00=0x00ba, f01=0x0190, f02=»ACTIVATE TIMING CONTROL Z | P* [ P* FUNCTIONS: [ * , P* STORE VALUE DIRECTLY IN CALLER'S DWT [ > P* [ n P* COMPLETION PARAMETERS: [ x & P* DWTRTV = TIMEOUT VALUE = ECBCW1 [ P* [ PRQTIME EQU * [ 0 P LD A2,ECBCW1,A8 GET TIMEOUT VALUE FROM
0x2422f8…24248c Dummy {f00=0x00ba, f01=0x018e, f02=»ACTIVATION PARAMETERS: [ P* BUFFER ADDRESS (ECBBA) P* BUFFER LENGTH (ECBRL) @ P* SUBTERMINAL ADDRESS (DWT) ` P* ECB CONTROL WORD 1 P* P* FUNCTIONS: < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. $ P* 2. VE
0x24248c…242620 Dummy {f00=0x00ba, f01=0x0190, f02=» $ P LD A2,DWTSTA,A6 GET DWT STATUS ] P SUK A2,2 CONNECTED ? ] 0 . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR ] N 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTICE ? ] 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNECTION ERROR ] 0 P LD A2,DTEDLS,A7 LOGIC
0x242620…2427b4 (2, 481) Dummy {f00=0x00ba, f01=0x018e, f02=»F ] $ P RF(Z) RQSE10 THERE IS NO OPTION ^ P SUK A2,/20 WHICH OPTION ? ^ 2 . P ABL(NZ) RTREQ WRONG OPTION :REQUEST ERROR ^ T * P CF A15,RELBUF RELEASE BUFFERS QUEUED ^ PRQSE10 EQU * ^ P IFT MMUPAG=1 ^ $ P LD A2,ECBRL,A8 REQUESTED LENGTH ^ $ P C
0x2427b4…242948 Dummy {f00=0x00ba, f01=0x0190, f02=» ^ t $ P CF A15,INSWQ QUEUE SEND REQUEST _ P ABL TDISP _ 0 P* _ B P EJECT _ L P* _ Z P* RECEIVE REQUEST _ d P* _ ~ P* ACTIVATION PARAMETERS: _ P* BUFFER ADDRESS (ECBBA) _ 0 P* REQUESTED BUFFER LENGTH IN CHARS. (ECBRL) _ P* SUBTERM
0x242948…242adc Dummy {f00=0x00ba, f01=0x0190, f02=»O THE APPLICATION ANY MESSAGE QUEUED FOR THE DWT, _ @ P* 3. COMPLETE WHEN MESSAGE RECEIVED OR NO MESSAGE RECEIVED ` : P* WITHIN TIMEOUT PERIOD. ` ~ P* ` P* COMPLETION PARAMETERS: ` 0 P* ACTUAL LENGTH OF RECEIVED MESSAGE (ECBEL) ` P* RETUR
0x242adc…242c70 Dummy {f00=0x00ba, f01=0x018e, f02=»O, RETURN: SEQUENCE ERROR ` 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTIVE ? a " 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNECTION ERROR a X * P LD A4,DWTIPC,A6 ANY BUFFER ON QUEUE ? a P RF(NZ) RQRE10 YES a 0 P LD A2,DTEDLS,A7 LOGICAL CONNECTION ACTIVE ?
0x242c70…242e04 Dummy {f00=0x00ba, f01=0x0190, f02=» PRQRE10 EQU * b P LD A3,2,A4 EFFECTIVE LENGTH b P ST A3,ECBEL,A8 b < * P LD A1,DWTLAD,A6 SYMBOLIC DTE-ADDRESS b T $ P LD A2,4,A4 NETWORK SUB-ADDRESS b , P CF A15,GETSSA GET SYMBOLIC SUB-ADDRESS b ( P ST A1,ECBCW2,A8 AND SAVE IT IN ECB b P I
0x242e04…242f98 Dummy {f00=0x00ba, f01=0x0190, f02=» =9 b * P LDK A1,0 RC : ACCEPTED AND COMPLETED c ( P LDR* A2,A4 GET NEXT BUFFER IN QUEUE c < * P RF(Z) RQRE20 NO MORE BUFFERS IN QUEUE c h 0 P ORKL A1,R:DATA RC: AND MORE DATA AVAILABLE c PRQRE20 EQU * c . P ST A2,DWTIPC,A6 STORE AS FIRST IN QUEUE
0x242f98…24312c Dummy {f00=0x00ba, f01=0x018e, f02=» c P* d P* d $ P* COMPLETE APPLICATION REQUEST d P* d D PRTREQ EQU * d N & P LDKL A1,R:REQ RC = REQUEST ERROR d b P RF RQRTN d PRTABRT EQU * d P LDKL A1,R:ABRT RC = ABORTED d P RF RQRTN d PRTTIME EQU * d P LDK A1,R:TI
0x24312c…2432c0 Dummy {f00=0x00ba, f01=0x0190, f02=» d & P LDK A1,R:LGTH RC = ILLEGAL LENGTH e P RF RQRTN e 2 PRTLOGC EQU * e D 0 P LDK A1,R:LOGC RC = LOGICAL CONNECTION ERROR e X P RF RQRTN e PRTPHYC EQU * e 2 P LDK A1,R:PHYC RC = PHYSICAL CONNECTION ERROR e P RF RQRTN e PRTOK EQU * e
0x2432c0…243454 (2, 482) Dummy {f00=0x00bb, f01=0x018e, f02=»OKUP - LOOK UP KEY IN TABLE & BRANCH ON ADDRESS e P* f 8 P* CALL: f B 8 P* CF A15,LOOKUP TABLE ADDRESS TO STACK f R < P* DATA LAST,ADDRE LAST ENTRY; ERROR ADDRESS f > P* DATA KEY1,ADDR1 KEY (A2); ADDRESS FOR BRANCH
0x243454…2435e8 Dummy {f00=0x00bb, f01=0x0190, f02=» f t P* g PLOOKUP EQU * g < P LDR* A3,A15 POINT TO NEXT INSTRUCTION ADDRESS IN STACK g & . P LDR* A3,A15 GET CONTENTS = TABLE ADDRESS g f & P LDR* A4,A3 GET LAST LEGAL ADDRESS g P LD A1,2,A3 ERROR ADDRESS g P* g PLOOK50 EQU * LOOP ENTRY g
0x2435e8…24377c Dummy {f00=0x00bb, f01=0x0190, f02=»Y = VALUE IN TABLE? g ( P RB(NE) LOOK50 NO - CHECK NEXT ENTRY h & P ABI 2,A3 BRANCH TO TABLE ADDRESS h H P* KEY NOT FOUND h r PLOOK90 EQU * h " P LDR P,A1 GO TO ERROR ADDRESS h P EJECT h P* h P* h P* h " P* REQUEST TIMER HANDLING
0x24377c…243910 Dummy {f00=0x00bb, f01=0x018e, f02=»A6 GET TIMEOUT VALUE h P RF(N) TIMRTN NO TIMING i . P RF(Z) ITOUTR TIMER=0 => IMMEDIATE TIMEOUT i < P ST A2,TIMERR i n P CF A15,SETIME i P DATA TOUTRE i PTIMERR DATA 0 i ( P ST A4,DWTRTP,A6 STORE TIMER POINTER i PTIMRTN EQU * i P ABL
0x243910…243aa4 Dummy {f00=0x00bb, f01=0x0190, f02=» i P LDR A6,A1 FETCH DWT j P CM DWTRTP,A6 j $ * P RF TIMOUT COMPLETE REQUEST RC=TIMEOUT j : P* j h P* j r " P* RETURN FROM TIMER HANDLING j | P* j P EJECT j P* j P* SEND TIMER=TIMWR j P* j PTIMEWR LDR A1,A6 j & P LD A2,D
0x243aa4…243c38 Dummy {f00=0x00bb, f01=0x0190, f02=» CF A15,SETIME j P DATA TOUTWR k PTIMWR DATA 0 k * P ST A4,DWTRTP,A6 k > P RB TIMRTN k V P* k h P* TIMEOUT WRITE TIMER k r P* k PTOUTWR EQU * k P LDR A6,A1 FETCH DWT k P CM DWTRTP,A6 k * P CF A15,REMOVW REMOVE FROM WRITE QUEUE k
0x243c38…243dcc Dummy {f00=0x00bb, f01=0x0190, f02=» k * P RF(NE) TIMOUT THIS DWT IS NOT WRITING l ( P CM XACK INDICATE 'ACK NOT EXPECTED' l 6 P CM FDWTUT l b PTIMOUT EQU * l t , P ABL RTTIME COMPLETE REQUEST RC=TIMEOUT l P EJECT l P* l P* l P* STOP REQUEST TIMING l P* l & P* REMA
0x243dcc…243f60 Dummy {f00=0x00bb, f01=0x0190, f02=»RUNNING l ~ P IFT REMTIM=1 =9 m P LDR* A2,A2 =9 m * $ P NGR A2,A2 GET REMAINING TIME =9 m B P XIF =9 m j P CM* DWTRTP,A6 KILL TIMER =9 m | P CM DWTRTP,A6 m P =3 m PCTIM10 EQU * m P ABL RTNA15 m P EJECT m P* m P* GE
0x243f60…2440f4 (2, 483) Dummy {f00=0x00bb, f01=0x018e, f02=»ADDRESS m v P* A2 AND A3 ARE DESTROYED n P* n 2 P* n < ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS n F P INH n r P LDR* A4,A2 n ~ P RF(Z) GBUF10 NO BUFFER FREE n . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN n P STR A3,A2 n PGBUF10 EQU * n
0x2440f4…244288 Dummy {f00=0x00bb, f01=0x0190, f02=» $ P* CALLING SEQUENCE: CF A15,RRBUF o P* A2 AND A3 ARE DESTROYED o , P* o N P* o X ( PRRBUF LDKL A2,DCRBUF RECEIVE BUFFERS o b P INH o PRBUF10 EQU * o P LDR* A3,A2 o P RF(Z) RBUF20 o P LDR A2,A3 o P RB RBUF10 o PRBUF20 EQU *
0x244288…24441c Dummy {f00=0x00bb, f01=0x0190, f02=»ED ON A DWT o n P* p P* A6 - DWT ADDR p P* A1 AND A4 ARE DESTROYED p 6 ( P* CALLING SEQUENCE: CF A15,RELBUF p X P* p P* p PRELBUF EQU * p * P LDK A1,DWTIPC SET BUFFER QUEUE DISP. p P ADR A1,A6 p PRLBU10 EQU * p $ P LDR* A4
0x24441c…2445b0 Dummy {f00=0x00bb, f01=0x0190, f02=»FFER p x P RB RLBU10 q P EJECT q P* q , P* q 6 & P* INSERT DWT IN SEND REQUEST QUEUE q @ P* q j P* A2,A3,A4 DESTROYED q t P* A6=DWT q P* q ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR q P LDK A4,DWTOPN q PINSWQ2 LDR* A3,A2 q $ P R
0x2445b0…244744 Dummy {f00=0x00bb, f01=0x0190, f02=» A4 INDICATE END OF QUEUE q P RB GBUF10 RETURN r " P EJECT r < P* r J P* r T ( P* REMOVE DWT FROM SEND REQUEST QUEUE r ^ P* r P* A2,A3,A4 DESTROYED r P* A6=DWT r P* r * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR r . P LDK A4,DWTOPN G
0x244744…2448d8 Dummy {f00=0x00bb, f01=0x0190, f02=» P CWR A3,A4 s P RF(E) REM15 s P LDR A2,A3 GET NEXT s * P RB REM10 s F PREM15 LDR* A3,A4 REMOVE s X P STR A3,A2 s x P RB GBUF10 RETURN s P EJECT s P* s P* s P* INSERT DWT IN STATUS QUEUE s P* s P IFF STARVI=0 s
0x2448d8…244a6c Dummy {f00=0x00bb, f01=0x018e, f02=» P* t P* t " P* REMOVE DWT FROM STATUS QUEUE t P* t > P* A2,A3,A4 DESTROYED t H P* A6=DWT t d P* t t * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR t ~ P LDK A4,DWTOPE t P RB REM06 t P XIF t P EJECT t P* t P* t $ P* QUEU
0x244a6c…244c00 Dummy {f00=0x00bb, f01=0x0190, f02=» t * P LDK A2,DWTIPC SET BUFFER QUEUE DISP. u P ADR A2,A6 u 6 PQR100 EQU * u H P LDR* A3,A2 u $ P RF(Z) QR200 END OF QUEUE FOUND u p P LDR A2,A3 u P RB QR100 u & PQR200 STR A4,A2 INSERT INTO QUEUE u " P CMR A4 INDICATE END OF QUEUE u
0x244c00…244d94 (2, 484) Dummy {f00=0x00bb, f01=0x0190, f02=»REG ST A3,LCA3 u P ST A4,LCA4 v P ST A5,LCA5 v * P ST A6,LCA6 v > P ST A7,LCA7 v R P ST A8,LCA8 v f P RF RTNA15 RETURN v z P* v P* v P* RESTORE v $ P* CALLING SEQUENCE: CF A15,LDREG v P* v PLDREG LDKL A3,0 v PLCA3
0x244d94…244f28 Dummy {f00=0x00bb, f01=0x0190, f02=»A7,0 v PLCA7 EQU *-2 w P LDKL A8,0 w PLCA8 EQU *-2 w 2 P* w F P* w P P* RETURN VIA REGISTER 15 w Z P* w | PRTNA15 EQU * w P ADKL A15,4 w P ABR* A15 w P EJECT w P* w P* POLL TIME OUT w P* w ( PPTOUT LDKL A5,
0x244f28…2450bc Dummy {f00=0x00bb, f01=0x0190, f02=»* w P* x P* COUNT POLL TIME OUT x P* x 2 P LDK A1,CSSXC3 x < P CF A15,DCSUPS x R P XIF x h $ P CF A15,SPOTIM START POLL TIMER x t P ABL TDISP x P* x 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED x P* x PCPTIM EQU * x
0x2450bc…245250 Dummy {f00=0x00bb, f01=0x0190, f02=»5 x P* y P* START POLL TIMER y P* y . PSPOTIM EQU * y 8 , P LDR A1,A6 LOAD DWT ADDRESS AS PARAMETER y L P CF A15,SETIME START TIMER y | P DATA PTOUT,TIMPOL y & P ST A4,DCTPGP STORE TIMER POINTER y P RB RTNA15 RETURN y P EJECT y
0x245250…2453e4 Dummy {f00=0x00bb, f01=0x0190, f02=» DATA PRTOUT,TIMPRO y $ P ST A4,DCTPP SAVE TIMER POINTER z P RTN A5 z D P* z T P* PROCEDURE TIMEOUT z ^ P* z z PPRTOUT CM DCTPP z P LDR A6,A1 RELOAD A6 z P LDKL A5,STB LOAD STACK BASE z P LDKL A7,DTETAB z P IFT STTSTS=1 z
0x2453e4…245578 Dummy {f00=0x00bb, f01=0x0190, f02=»I HALT INPUT IF OPEN SALCUZ z P LD A1,XACK { $ " P RF(Z) PRT10 ACK NOT EXPECTED { 8 P CF A5,TRENQ SEND ENQ { ^ & P CF A5,SPTIM START PROCEDURE TIMER { | PPRT10 ABL BRM { P EJECT { P* { P* STOP PROCEDURE TIMER { P* { ( PHPTIM LD A1,
0x245578…24570c Dummy {f00=0x00bb, f01=0x0190, f02=»* { P* | ( P* WAIT 1 SEC. FOR MODEM CONNECTION | P* | @ P | J PDTE:ON LDR A1,A6 DWT ADDRESS | R P CF A15,SETIME WAIT 1 SEC. | v P DATA DTE:10,10 | P =1 | P LDKL A5,STB =1 | " P CF A5,CSYNCI CONNECT MODEM =1 | * P CF A5,CHALT
0x24570c…2458a0 Dummy {f00=0x00bb, f01=0x0190, f02=» | PDTE:10 LDR A6,A1 DWT ADDRESS } P LDKL A7,DTETAB } , $ P IM DTESTA,A7 SET OPEN STATUS =1 } D P LDKL A5,STB =1 } l * P CF A5,CSYNCI PUT CU IN ACTIVE MODE =1 } 8 P CF A5,CHALTI HALT I/P DEVICE TO GET MODEM STATUS =1 } 0 P IM DTEPLS,A7 PRESET PHYSI
0x2458a0…245a34 (2, 485) Dummy {f00=0x00bb, f01=0x0190, f02=»E:20 EQU * =1 } " P LDR A1,A2 SET RETURN CODE =1 ~ * P CF A15,TENDIO COMPLETE THE REQUEST =1 ~ < & P CF A15,SPOTIM START POLL TIMER =6 ~ j P ABL BRM START I/P =1 ~ P EJECT ~ P IFT MESPAS=1 ~ P* ~ P* ~ P* GET DWT ADDRESS ~ P* ~
0x245a34…245bc8 Dummy {f00=0x00bb, f01=0x018e, f02=»WR A6,A2 IS IT DDT-ADDR ~ P RF(E) MES200 YES " P LD A2,DWTST,A6 ANY REQUEST ? : P RF(N) MESD50 NO ` ( P LD A2,DWTOR,A6 ANY MESSAGE ORDER ? x P ANK A2,/FF P RF(Z) MES200 YES & P SUK A2,RECEIVE A RECEIVE ORDER ? P RF(Z) MES20
0x245bc8…245d5c Dummy {f00=0x00bb, f01=0x018e, f02=» v P RF MES200 PMES100 EQU * P LDR A6,A7 GET DTETAB-ADDR . PMES200 EQU * P P ABL RTNA15 RETURN VIA A15 d P XIF P EJECT P* P* P* BASIC RECEIVE MODE P* " P* ENTERED EVERY TIME A MESSAGE & P* IS EXP
0x245d5c…245ef0 Dummy {f00=0x00bb, f01=0x0190, f02=» t " P CM TPM CLEAR TRANSPARENT TEXT , P CF A5,CSYNCI START INPUT WITH SYNC DEF . P* ^ P* h P* r P CF A5,READP READ CHARACTER | P RF(NZ) BRM120 PARITY ERROR P* P* * P* CHECK IF IT IS A CONTROL CHARACTER P*
0x245ef0…246084 Dummy {f00=0x00bb, f01=0x0190, f02=»QUENCE ` & P DATA PAD,BRM130 PAD RECEIVED DK1 " P DATA STX,STX100 STX RECEIVED 8 " P DATA EOT,EOT100 EOT RECEIVED ^ " P DATA ENQ,ENQ100 ENQ RECEIVED " P DATA DLE,DLE100 DLE RECEIVED ( PBRM100 DATA NAK,NAK100 NAK RECEIVED P EJECT
0x246084…246218 Dummy {f00=0x00bb, f01=0x0190, f02=» LOAD STACKBASE TO A5 , P CF A5,CSYNCI START INPUT WITH SYNC DEF P* N P* X $ P* WAIT FOR MARK HOLD TO RESYNC. b P* PBRM120 EQU * P CF A5,READ READ CHARACTER 0 P LD A1,DCSTCU ANY STATUS FROM CONTROL UNIT ? P RF(NZ) BR
0x246218…2463ac Dummy {f00=0x00bb, f01=0x018e, f02=»HALTI HALT INPUT P RB BRM P EJECT ( P* 6 P* @ 2 P* CHECK IF IT IS A POLL OR A SELECT SEQUENCE J P* PBRM200 EQU * P IFT MSV1=0 P LDR A4,A2 P CF A5,READP READ CHARACTER P CWR A2,A4 ( P RB(NE) BRM125
0x2463ac…246540 Dummy {f00=0x00bb, f01=0x018e, f02=» P CCR A2,A7 IS IT A SELECT ? ( P RB(NE) BRM125 INVALID SEQUENCE DK1 , PBRM210 EQU * X P CF A5,READP READ 1:ST STA l P RB(NZ) BRM PARITY ERROR P LDR A4,A2 P IFT MSV1=0 P CF A5,READP READ 2:ND STA P CWR A2,A4 $ P
0x246540…2466d4 (2, 486) Dummy {f00=0x00bc, f01=0x0190, f02=» n P* P* $ P* YES SEQUENCE OK - HALT INPUT P* D P CF A5,CHALTI N P EJECT d P* r P* | 0 P* CHECK IF IT IS A SELECT OR A POLL ADDRESS P* P LDK A1,1 P ST A1,CACK LOAD ACK-COUNTER P LDR A2,A4
0x2466d4…246868 Dummy {f00=0x00bc, f01=0x0190, f02=»ERAL POLL 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) P =10 L P* P EJECT f P* t P* ~ & P* SPECIFIC POLL HAS BEEN RECEIVED P* P* P IFF STARVI+SPECP=0 P LD A1,XACK P RF(NZ) POL100 ACK
0x246868…2469fc Dummy {f00=0x00bc, f01=0x018e, f02=» CHECK POLLTIMER P IFT STARVI=1 P LD A1,DWTST,A6 GET STATUS . P ANK A1,7 P " P RF(NZ) POL120 PENDING STATUS b P XIF P IFF STARVI+SPECP=0 P LD A1,DWTST,A6 P RF(N) POL150 NO REQUEST P LD A1,DWTOR,A6 GET ORDER &
0x2469fc…246b90 Dummy {f00=0x00bc, f01=0x0190, f02=» P EJECT P* P* $ P* GENERAL POLL HAS BEEN RECEIVED & P* N P* X PGPOLL EQU * b P LD A1,XACK v " P RF(Z) POL110 ACK NOT EXPECTED P =11 PPOL100 EQU * * P CF A5,HPTIM KILL PROCEDURE TIMER =11 P CF A5
0x246b90…246d24 Dummy {f00=0x00bc, f01=0x0190, f02=»HECK POLL TIMER P IFF STARVI=0 P LD A6,DCSTQ . & P RF(Z) POL140 NO STATUS TO BE SENT D " P SUK A6,DWTOPE GET DWT ADDRESS n PPOL120 EQU * P CF A5,TRSTA SEND STATUS & P CF A5,SPTIM START PROCEDURE TIMER P IM XACK SET 'ACK EXPE
0x246d24…246eb8 Dummy {f00=0x00bc, f01=0x0190, f02=»D A6,DCWRQ " P RF(NZ) POL160 WRITE ON QUEUE PPOL150 EQU * 8 P CF A5,TREOT SEND EOT L P RB POL130 j PPOL160 EQU * | " P SUK A6,DWTOPN GET DWT ADDRESS PPOL170 EQU * $ P LD A8,DWTECB,A6 GET ECB ADDRESS P RF(NZ) POL180 P
0x246eb8…24704c Dummy {f00=0x00bc, f01=0x0190, f02=»G=0 $ P LDKL A4,MMUBUF MMU WORK BUFFER P ST A4,ECBBA,A8 4 . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER L P XIF ~ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS P LD A3,ECBRL,A8 GET LENGTH PPOL190 EQU * & P ST A4,FECBBA SAVE BUFFER ADDR
0x24704c…2471e0 Dummy {f00=0x00bc, f01=0x0190, f02=»X SENT' ~ P CM XSTA P CF A5,TRTEXT SEND ONE BLOCK & P CF A5,SPTIM START PROCEDURE TIMER D P IM XACK SET 'ACK EXPECTED' n P RB POL130 P EJECT P* P* P* SELECT HAS BEEN RECEIVED P* PSELECT EQU * P
0x2471e0…247374 (2, 487) Dummy {f00=0x00bc, f01=0x0190, f02=» RF(NZ) SEL100 P XIF P LDKL A6,DTETAB DTETAB ADRR " PSEL100 EQU * F P LD A1,XACK Z & P RB(NZ) POL100 ERROR. ACK EXPECTED n P IFF STARVI=0 P LD A1,DWTST,A6 GET STATUS P LDR A3,A1 P ANK A1,1 $ P RF(Z) SEL120 NO PEN
0x247374…247508 Dummy {f00=0x00bc, f01=0x0190, f02=»BL BRM PSEL120 EQU * P =2 " P IFT STARVI=1 =2 0 $ P ANK A3,/A WACK SENT OR DB ? =2 J P RF(NZ) SEL140 YES =2 r P XIF P =2 P LD A1,DCRBUF $ P RF(NZ) SEL150 BUFFER AVAILABLE P IFT STTSTS=1 ( P LDK A1,CS
0x247508…24769c Dummy {f00=0x00bc, f01=0x0190, f02=»2 P CF A5,TRWACK SEND WACK P XIF * P RB SEL110 6 PSEL150 EQU * H , P CF A5,PRREC PREPARE FOR TEXT RECEPTION P ADK A1,6 P ST A1,FBLST P CF A5,TRACK SEND ACK,0 P RB SEL110 P EJECT P* P* P*
0x24769c…247830 Dummy {f00=0x00bc, f01=0x0190, f02=»XRB RESET READ BUFFER P XIF P LD A1,XACK * & P RF(Z) EOT120 ACK IS NOT EXPECTED > " P LD A6,FDWTUT GET WRITING DWT h P RF(Z) EOT110 NO ONE WRITING P LDK A1,2 SET RC=2 ( P CF A5,CWRITE COMPLETE WRITE REQUEST PEOT110 EQU *
0x247830…2479c4 Dummy {f00=0x00bc, f01=0x0190, f02=»* P* STX HAS BEEN RECEIVED P* * P* 4 PSTX100 EQU * > P CF A5,HPTIM R P IFT TPMODE=1 f P ABL BRM120 INVALID SEQENCE | PSTX110 EQU * P XIF P LD A1,XSEL P RF(Z) STX150 NOT SELECTED P LD A1,DCRBUF
0x2479c4…247b58 Dummy {f00=0x00bc, f01=0x0190, f02=»NO BUFFER AVAILABLE P* P LDK A1,CSSRBY & $ P CF A15,DCSUPS INCREMENT COUNTER < P ABL BRM120 d P XIF x PSTX120 EQU * P CF A5,RDMESS READ MESSAGE P IFT STTSTS=1 P* P* P* COUNT MESSAGES RECEIVED P*
0x247b58…247cec Dummy {f00=0x00bc, f01=0x0190, f02=» CM XSTA INDICATE 'INVALID MESSAGE' PSTX140 EQU * , P CF A5,TRNAK SEND NAK @ P ABL BRM ^ PSTX150 EQU * n P IFT RCOM=1 P LD A1,XACK & P RF(Z) STX160 ACK IS NOT EXPECTED P LD A1,DCRBUF & P RF(Z) STX160 NO BUFFER AVAILA
0x247cec…247e80 Dummy {f00=0x00bc, f01=0x0190, f02=»,PRREC PREPARE FOR TEXT RECEPTION P LDK A1,0 SET RC=0 * ( P CF A5,CWRITE COMPLETE WRITE REQUEST D P CM CACK PRESET ACK-1 p P RB STX120 READ THE MESSAGE P XIF ( PSTX160 CF A5,READ READ ONE CHARACTER P CWK A2,ENQPAR IS IT ENQ ?
0x247e80…248014 (2, 488) Dummy {f00=0x00bc, f01=0x018e, f02=»GET BUFFER ADDRESS P ADK A4,6 P CW A4,FBLST , " P RF(NE) STX180 NOT FIRST BLOCK @ P IFF RCOM=0 f P LDK A1,ESC z P CCR A1,A4 P RB(NE) STX130 ESC NOT FOUND P LC A1,1,A4 GET COMMAND CODE P SUK A1,RDBCOM ( P RF(Z) RDB
0x248014…2481a8 Dummy {f00=0x00bc, f01=0x0190, f02=» P SUK A3,1 P RF(Z) STX280 SEND ACK P LD A6,FDWTIN GET INPUT DWT 4 P IFT MESPAS=1 X P CF A15,MESDWT n P XIF P CWR A7,A6 IS IT DTETAB ? P RF(E) STX280 SEND ACK P LD A2,DWTSTA,A6 . =14 , P RF(Z) STX280 TERMINAL DIS
0x2481a8…24833c Dummy {f00=0x00bc, f01=0x018e, f02=»T ADDRESS , P LC A2,TEBCDIC,A2 TRANSLATE IT TO EBCDIC $ P LD A1,DCRBUF IS THERE A BUFFER B P RF(Z) STX200 NO j P ST A2,+4,A1 STORE THE ADDR PSTX200 EQU * P XIF " P LD A2,DWTST,A6 ANY REQUEST ? P RF(N) STX220 NO P LD
0x24833c…2484d0 Dummy {f00=0x00bc, f01=0x0190, f02=» r P RF(NE) STX220 NO PSTX210 EQU * " P =12 6 $ P LD A8,DWTECB,A6 GET ECB ADDRESS F P LD A3,-4,A4 GET LENGTH n * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH . P LD A1,DWTLAD,A6 SYMBOLIC DTE ADDRESS =12 ( P LD A2,-2,A4 NETWORK SUB-A
0x2484d0…248664 Dummy {f00=0x00bc, f01=0x0190, f02=»TURN CODE =12 ~ & P CF A15,CTIME STOP REQUEST TIMING P IFT REMTIM=1 =9 @ * P ST A2,ECBCW1,A8 STORE REMAINING TIME Z P XIF =9 PSTX220 EQU * P IFT STARVI=1 P LC A2,+2,A4 GET WCC/CCC P ANK A2,/FF P LC A2,TEBCDIC,A
0x248664…2487f8 Dummy {f00=0x00bc, f01=0x0190, f02=» XIF " P LD A2,DWTST,A6 ANY REQUEST ? P RF(NN) STX240 YES 2 P CF A5,QRBUF QUEUE BUFFER L P RF STX270 n PSTX240 EQU * P LD A2,DWTOR,A6 GET ORDER $ P CWK A2,RECEIVE RECEIVE ORDER ? P RF(NE) STX260 NO P =12 P
0x2487f8…24898c Dummy {f00=0x00bc, f01=0x0190, f02=»X250 EQU * & P CF A15,DC:MIN MOVE TO USER BUFFER P RF STX270 < PSTX260 EQU * N P CF A5,QRBUF QUEUE BUFFER b P IFT EM3270=1 P LD A2,DWTOR,A6 GET ORDER ( P RF(NZ) STX270 NOT ANY MESSAGE ORDER $ P CF A15,TENDIO COMPLETE REQUEST
0x24898c…248b20 Dummy {f00=0x00bc, f01=0x0190, f02=» P CF A5,TRWACK SEN WACK P RF STX290 & P XIF 8 PSTX280 EQU * D P CF A5,TRACK SEND ACK X PSTX290 EQU * v P ABL BRM P EJECT P* P* , P* READ MODIFIED OR READ BUFFER RECEIVED P* P* P IFF RCO
0x248b20…248cb4 (2, 489) Dummy {f00=0x00bc, f01=0x018e, f02=»FOR ADDRESSED TERMINAL v $ P LD A4,DWTBUF,A6 BUFFER ADDRESS $ P SUK A4,2 SDJUST BUFFER ADDRESS F " P LDKL A3,1922 REQUESTED LENGTH n " P IM XRB SET READ BUFFER SWITCH P CM FDWTUT P LDK A1,1 & P XRS A1,CACK INCREMENT ACK COUNTER P
0x248cb4…248e48 Dummy {f00=0x00bc, f01=0x018e, f02=» & P CF A5,HPTIM STOP PROCEDURE TIMER P LD A1,XACK . , P RF(NZ) NAK110 RETRANSMISSION OF MESSAGE B P OR A1,XSEL r " P RF(Z) ENQ110 IN CONTROL STATE . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE PENQ110 EQU * P ABL BRM P EJECT
0x248e48…248fdc Dummy {f00=0x00bc, f01=0x0190, f02=» l P LD A1,XACK P RF(NZ) NAK110 ACK EXPECTED P OR A1,XSEL @ " P RB(Z) ENQ110 IN CONTROL STATE T P RF DLE160 z PNAK110 EQU * " P LD A6,FDWTUT GET WRITING DWT P IFF STARVI=0 P LD A1,XSTA 0 P ABL(NZ) POL120 STATUS H
0x248fdc…249170 Dummy {f00=0x00bc, f01=0x0190, f02=»T A1,FBAX P IFT STTSTS=1 P* ( P* 2 $ P* COUNT MESSAGES RETRANSMITTED < P* d P LDK A1,CSSTRT n P CF A15,DCSUPS P XIF P ABL POL200 P EJECT P* P* P* DLE HAS BEEN RECEIVED P* P*
0x249170…249304 Dummy {f00=0x00bc, f01=0x0190, f02=»F A5,READ P CWK A2,STX * P ABL(Z) STX110 YES - TRANSPARENT TEXT & P XIF T P RB ENQ110 ` PDLE110 EQU * r & P CF A5,READ READ SECOND CHARACTER P CWK A2,ACKPAR IS IT ACK 0 ? P RF(NE) DLE130 P* P* ACK , 0 RECEIVED
0x249304…249498 Dummy {f00=0x00bc, f01=0x0190, f02=» CF A5,SPTIM START PROCEDURE TIMER P RB ENQ110 * PDLE130 EQU * < P CWK A2,ACK1 P P RF(NE) DLE180 d P* z P* ACK , 1 RECEIVED P* P LD A1,CACK GET ACK COUNTER $ P RB(Z) DLE120 ACK,1 NOT EXPECTED PDLE140 EQU * P
0x249498…24962c Dummy {f00=0x00bc, f01=0x0190, f02=» LDK A1,0 SET RC=0 PDLE150 EQU * P IFF STARVI=0 . P LD A2,XSTA D . P RF(NZ) DLE200 STATUS HAS BEEN TRANSMITTED X P XIF ( P CF A5,CWRITE COMPLETE WRITE REQUEST PDLE160 EQU * P CF A5,TREOT SEND EOT P IFT RCOM=1 P
0x24962c…2497c0 Dummy {f00=0x00bc, f01=0x0190, f02=» n P ABL POL200 PDLE180 EQU * P CWK A2,RVIPAR IS IT RVI ? 0 ( P RB(NE) DLE120 INVALID DLE SEQUENCE R " P CM XACK RESET 'EXPECTING ACK' ~ P LD A1,XETX $ P RF(NZ) DLE190 ETX HAS BEEN SENT P LDK A1,2 SET RC=2 P RB DLE150
0x2497c0…249954 (2, 490) Dummy {f00=0x00bd, f01=0x0190, f02=» BEEN TRANSMITTED P* P* $ PDLE200 EQU * . " P LD A6,FDWTUT GET DWT ADDRESS B , P CF A15,REMOVS REMOVE FROM STATUS QUEUE h P CM XSTA CLEAR 'STATUS SENT' " P CM XACK CLEAR 'ACK EXPECTED' P LD A1,DWTST,A6 GET STATUS P ANK
0x249954…249ae8 Dummy {f00=0x00bd, f01=0x0190, f02=»CT P* < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 P* T ( P* CALLING SEQUENCE: CF A5,FINTER(S) ^ P* A2=SUBTERMINAL ADDRESS P* A4 DESTROYED " P* A3#0: DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1
0x249ae8…249c7c Dummy {f00=0x00bd, f01=0x0190, f02=» P* P* P* PFINTES EQU * " P IFT MSV1=1 6 P LDK A4,0 J P RF FINT05 P XIF n PFINTEP EQU * z P LDK A4,1 RIGTH BYTE PFINT05 EQU * " P LD A3,DTEDWT,A7 GET FIRST DWT PFINT10 EQU * P RF(Z) FINT20 EN
0x249c7c…249e10 Dummy {f00=0x00bd, f01=0x0190, f02=» NEXT DWT | P RB FINT10 PFINT20 EQU * $ P ANKL A3,/FFFE 8 P RTN A5 N P EJECT ^ P* l P* v P* PREPARE FOR TEXT RECEPTION P* P* PPRREC EQU * P IM XSEL SET 'SELECTED' P CM FBAX RESET BUFFER INDEX
0x249e10…249fa4 Dummy {f00=0x00bd, f01=0x0190, f02=»TA " P ST A6,FDWTIN STORE INPUT DWT P RTN A5 0 P EJECT @ P* N P* X 6 P* CHECK IF THERE IS A SEND REQUEST TO BE COMPLETED b P* P* A1 CONTAINS RETURN CODE P* P* PCWRITE LD A6,FDWTUT $ P RF(Z) CWR900 NO
0x249fa4…24a138 Dummy {f00=0x00bd, f01=0x0190, f02=»OPTION PART z P SUK A2,6 $ P RF(NZ) CWR900 NOT SEND REQUEST & 4 P LD A2,DWTIPC,A6 ANY RECEIVED BUFFERS ON QUEU ? N P RF(Z) CWR110 NO 0 P ORKL A1,R:DATA ACCEPTED AND DATA AVAILABLE PCWR110 EQU * P LD A8,DWTECB,A6 P CF A15,CT
0x24a138…24a2cc Dummy {f00=0x00bd, f01=0x0190, f02=» EQU * * P CF A15,REMOVW REMOVE FROM WRITE QUEUE PCWR900 EQU * < " P CM XACK RESET 'ACK EXPECTED' P P CM FDWTUT v P RTN A5 P EJECT P* P* P* READ ONE TEXT BLOCK P* P* ON EXIT A3 CONTAINS : ( P* 0 :
0x24a2cc…24a460 Dummy {f00=0x00bd, f01=0x0190, f02=»* PRDMESS EQU * $ P LD A4,DCRBUF GET BUFFER ADDRESS P ADK A4,6 RESERVE HEADER F P LDK A3,0 f P LD A1,XSTA x $ P RF(NZ) RDM050 LAST INPUT WAS OK " P LD A1,FBLST COMPUTE NEW INDEX P SUR A1,A4 P ST A1,FBAX PRDM050 E
0x24a460…24a5f4 (2, 491) Dummy {f00=0x00bd, f01=0x0190, f02=» P IFT IBMCHR=1 P IFF TPMODE=1 P LD A1,FBAX 4 " P RF(NZ) RDM100 NOT FIRST BLOCK H P CF A5,READP n P RF(NZ) RDM120 PARITY ERROR P CWK A2,ESC P RF(NE) RDM110 * P CF A5,READP SKIP NEXT TWO CHARACTERS P CF A5,REA
0x24a5f4…24a788 Dummy {f00=0x00bd, f01=0x0190, f02=» PRDM110 EQU * P XIF P IFT TPMODE=1 $ & P IM TPM INDICATE TRANSPARENT TEXT : PRDM100 CF A5,READ d P CWK A2,DLE CHECK IF DLE ~ P RF(NE) RDM112 NO 0 P CF A5,READ SKIP DLE AND READ NEXT CHARACTER P CWK A2,SYNEBC CHECK IF SYN
0x24a788…24a91c Dummy {f00=0x00bd, f01=0x0190, f02=»E DLE AS DATA x P CWK A2,ETX CHECK IF ETX P RF(E) RDM130 YES 6 P CWK A2,ETBEBC CHECK IF ETB P P RF(E) RDM160 YES t P CWK A2,ITB CHECK IF ITB P RF(E) RDM175 YES P CWK A2,ENQEBC CHECK IF ENQ P RF(E) RDM140 YES SEND NAK
0x24a91c…24aab0 Dummy {f00=0x00bd, f01=0x0190, f02=» P CF A5,READ P CWK A2,ETX $ P RF(E) RDM110 YES - END OF BLOCK 0 P CWK A2,ETBEBC X $ P RB(NE) RDM105 NOT END OF BLOCK n PRDM110 EQU * $ P CM TPM OUT OF TRANSPARENT TEXT P CF A5,RDCRC ( P RF RDM140 INDICATE INVALID MESSAG
0x24aab0…24ac44 Dummy {f00=0x00bd, f01=0x0190, f02=» P CWK A2,ETB P RF(E) RDM160 ETB RECEIVED P CWK A2,ITB : P RF(E) RDM170 ITB RECEIVED N P CWK A2,ENQ p 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAGE P CWK A2,/FF $ P RF(E) RDM140 MARK HOLD RECEIVED P IFT CODE=0
0x24ac44…24add8 Dummy {f00=0x00bd, f01=0x0190, f02=»1-DC3 | P SLL A1,6 P SCR A1,A4 =7 * P CF A5,READP 8-BIT CHAR GET NEXT PART 6 P RF(NZ) RDM120 PARITY ERROR d P LCR A1,A4 =7 * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER P ORR A2,A1 =7 P XIF PRDM115 EQU * & P ADK A
0x24add8…24af6c Dummy {f00=0x00bd, f01=0x0190, f02=» IM FBAX INCREMENT BUFFER INDEX P LD A1,FBAX ( P CWK A1,RBUFL+RBUFL < P RB(NG) RDM100 NOT OVERFLOW X P* | P* BUFFER OVERFLOW P* & P LDK A3,1 INDICATE BUFFER OVERFLOW P IFT STTSTS=1 " P LDK A1,CSSRBO BUFFER OVERFLOW
0x24af6c…24b100 Dummy {f00=0x00bd, f01=0x0190, f02=» EQU * P IFT STTSTS=1 P LDK A1,CSSRPE $ $ P CF A15,DCSUPS INCREMENT COUNTER : P XIF b & P LDK A3,1 INDICATE INVALID MESSAGE n P SUK A2,/7F $ P RF(Z) RDM150 MARK HOLD RECEIVED P RB RDM100 P* P* ETX RECEIVED P*
0x24b100…24b294 (2, 492) Dummy {f00=0x00bd, f01=0x0190, f02=»GTH IN HEADER p P IFF CODE=1 P CF A5,RDLRC * P RF(Z) RDM150 LRC WAS OK > P XIF ^ P IFT CODE=1 j & P CF A5,RDCRC READ CRC AND CHECK IT ~ P RF(E) RDM150 CRC WAS OK P XIF PRDM140 EQU * & P LDK A3,1 INDICATE INVALID MESSA
0x24b294…24b428 Dummy {f00=0x00bd, f01=0x018e, f02=»5 P LDK A3,1 PARITY ERROR PRDM155 EQU * ( P XIF < P IFT TPMODE=1 H & P CWK A3,1 ERROR DETECTED EARLIER ? ^ P RF(NE) RDM158 NO $ P CM TPM OUT OF TRANSPARENT TEXT PRDM158 EQU * P XIF P RTN A5 P* P* ET
0x24b428…24b5bc Dummy {f00=0x00bd, f01=0x018e, f02=» p P RB RDM130 P* P* ITB RECEIVED $ P* : PRDM170 EQU * D P IFF CODE=1 X P CF A5,RDLRC l " P RB(NZ) RDM120 LRC WAS NOT OK P XIF P IFT CODE=1 & P CF A5,RDCRC READ CRC AND CHECK IT " P RB(NE) RDM120 CRC WAS N
0x24b5bc…24b750 Dummy {f00=0x00bd, f01=0x0190, f02=» " P RB(NE) RDM105 CRC WAS NOT OK PRDM180 CF A5,READ * P CWK A2,SYNEBC D P RB(E) RDM180 SKIP SYN Z P CWK A2,DLE x $ P RB(NE) RDM105 ILLEGAL CHARACTER P CF A5,READ P CWK A2,STX $ P RB(NE) RDM105 ILLEGAL CHARACTER P XIF
0x24b750…24b8e4 Dummy {f00=0x00bd, f01=0x018e, f02=»1 x & P XRS A2,CACK INCREMENT ACK COUNTER P RF(NZ) TRDLE 4 P LDK A3,ACK0 LOAD ACK0 J P RF TRDLE h P* z P* TRANSMIT WACK P* PTRWACK LDK A3,WACK LOAD WACK P RF TRDLE P* P* TRANSMIT RVI P* P I
0x24b8e4…24ba78 Dummy {f00=0x00bd, f01=0x0190, f02=» t " P SC A2,RESEND PUT INSAVE AREA P SC A3,RESEND+1 . P RF TRREP F P EJECT X P* f P* TRANSMIT NAK p P* PTRNAK LDK A3,NAK LOAD NAK P RF TREN10 P* P* TRANSMIT EOT P* PTREOT LDK A3,EOT LOAD EOT
0x24ba78…24bc0c Dummy {f00=0x00bd, f01=0x0190, f02=»IN SAVE AREA x P LDK A2,/FF P SC A2,RESEND+1 ( $ PTRREP CF A5,TRSYNC START OUTPUT @ & P LC A2,RESEND GET FIRST CHARACTER h P CF A5,WRITEP SEND IT & P LC A2,RESEND+1 GET NEXT CHARACTER P CF A5,WRITEP SEND IT PTRRE10 LDK A2,/F
0x24bc0c…24bda0 Dummy {f00=0x00bd, f01=0x0190, f02=» CF A5,LOGSST LOG TRANSMITTER STATUS P XIF , P RTN A5 8 P EJECT H P* V P* ` P* TRANSMIT ONE TEXT BLOCK j P* P* PTRTEXT EQU * P CF A5,TRSYNC START OUTPUT P IFF TPMODE=0 P LDK A2,DLE P CF A5,W
0x24bda0…24bf34 (2, 493) Dummy {f00=0x00bd, f01=0x0190, f02=» ADDRESS x P AD A4,FBAX ADD BUFFER INDEX ( P ST A4,FBLST REMEMBER START OF BLOCK 4 P . =15 ` & P LDK A3,0 RESET CHARACTER COUNTER p P LD A1,FBAX GET BUFFER INDEX " P RF(NZ) TRT100 NOT FIRST BLOCK " P LDR* A2,A7 NETWORK POLL ADDR
0x24bf34…24c0c8 Dummy {f00=0x00bd, f01=0x0190, f02=» z P IFT IBMCHR=1 P IFF RCOM=1 " P LDK A2,/27 SEND ENTER AS AID 2 P CF A5,WRITEP X " P LDK A2,/20 AND CURSOR ADDRESS n P CF A5,WRITEP P LDK A2,/20 P CF A5,WRITEP P XIF P IFT RCOM=1 P & P LD A1,XRB R
0x24c0c8…24c25c Dummy {f00=0x00bd, f01=0x0190, f02=»F A5,WRITEP SEND AID P $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS $ . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER L P LDK A3,5 SET BLOCK COUNT ~ P RF TRT100 PTRT070 EQU * P XIF P P LDK A3,2 PTRT100 EQU * P IFT TPM
0x24c25c…24c3f0 Dummy {f00=0x00bd, f01=0x0190, f02=»2,/7F P IFT RCOM=1 & P LD A1,XRB READ BUFFER COMMAND ??? " P RF(Z) TRT105 NO!! L P f @ P************************************************************ n P* , P* CHECK IF ATTRIBUTE CHARACTER OR NULL P* 4 P******************
0x24c3f0…24c584 Dummy {f00=0x00bd, f01=0x0190, f02=»K=1 P CWK A2,/7E LINE FEED ? " P RF(NE) TRT102 NO,GO TO TRT102 , P LDK A2,/0A R PTRT102 EQU * f P CWK A2,/7D END OF MESSAGE ? z " P RF(NE) TRT103 NO,GO TO TRT103 P LDK A2,/19 PTRT103 EQU * P CWK A2,X'7F' NULL ??
0x24c584…24c718 Dummy {f00=0x00bd, f01=0x0190, f02=»SF " P CF A5,WRITEP SEND START FIELD P 0 ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER 8 P ANK A2,X'7F' d ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE z P ANK A1,1 P ANK A2,/1E MASK P SLL A2,1 & P ORR A2,A1 IBM ATTRIBUTE COMPOSED
0x24c718…24c8ac Dummy {f00=0x00bd, f01=0x0190, f02=»2,/30 PTRT104 EQU * P CF A5,WRITEP SEND ATTRIBUTE " P ADK A3,1 F P RF TRT110 X PTRT105 EQU * j P XIF ~ P EJECT P IFF TPMODE=1 P CWK A2,/07 ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT P XIF P CF A5,WRITEP
0x24c8ac…24ca40 Dummy {f00=0x00bd, f01=0x0190, f02=» " P RF(NG) TRT130 END OF MESSAGE * P ADK A3,1 INCREMENT CHARACTER COUNTER . P CWK A3,TBLEN P IFT TPMODE=1 r P RB(L) TRT105 NOT FULL BLOCK P XIF P RB(L) TRT100 NOT FULL BLOCK P IFT RCOM=1 , P LDK A1,SBA CHECK IF SBA
0x24ca40…24cbd4 (2, 494) Dummy {f00=0x00be, f01=0x0190, f02=»ET FIRST BYTE AFTER SBA P ADK A4,1 INREMENT POINTER P CF A5,WRITEP SEND IT B P IM FBAX INCREMENT INDEX ` . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA P CF A5,WRITEP SEND IT P IM FBAX INCREMENT INDEX P XIF PTRT116 EQU *
0x24cbd4…24cd68 Dummy {f00=0x00be, f01=0x0190, f02=» EQU * P IFT TPMODE=1 P CM TPM $ P XIF 4 P CF A5,WRITEP SEND IT @ P IFF CODE=1 ^ P LDR A2,A8 GET LRC r P CF A5,WRITEP SEND LRC P XIF P IFT CODE=1 P LDR A6,A8 GET CRC DK P LDR A2,A6 P ANK A2,/FF
0x24cd68…24cefc Dummy {f00=0x00be, f01=0x018e, f02=» STTSTS=1 P* P* " P* COUNT MESSAGES TRANSMITTED & P* L P LDK A1,CSSTBL V P CF A15,DCSUPS l P XIF P ABL TRRE10 HALT OUTPUT PTRT130 EQU * P IM XETX INDICATE 'ETX SENT' P IFT TPMODE=1 P LDK A2,DLE
0x24cefc…24d090 Dummy {f00=0x00be, f01=0x018e, f02=» P* P* P* TRANSMIT STATUS MESSAGE P* : P* D P IFF STARVI=0 N PTRSTA EQU * d $ P IM XSTA INDICATE 'STATUS SENT' x P ST A6,FDWTUT SAVE A6 P CF A5,TRSYNC START OUTPUT P LDK A2,SOH P CF A5,WRITE SEND SO
0x24d090…24d224 Dummy {f00=0x00be, f01=0x0190, f02=» P LDK A2,STX P CF A5,WRITE SEND STX P LDR* A2,A7 6 P CF A5,WRITEP SEND TCA J " P LD A4,FDWTUT GET DWT-ADDRESS h ( P LDR* A2,A4 GET NETWORK SUB-ADDRESS P CF A5,WRITEP SEND STA P LD A1,DWTST,A4 GET STATUS P ANK A1,/06 MA
0x24d224…24d3b8 Dummy {f00=0x00be, f01=0x0190, f02=» v P LD A1,DWTST,A4 GET STATUS P ANK A1,5 * P RF(Z) TRST10 NOT 'IR' < P ANK A1,4 Z P RF(NZ) TRST10 NO IR IF DE l P LDK A2,IR PTRST10 EQU * P CF A5,WRITEP SEND S/S 1 P RB TRT130 SEND ETX AND LRC P XIF P EJE
0x24d3b8…24d54c Dummy {f00=0x00be, f01=0x0190, f02=»NE n , P CF A5,CSYNCO START OUTPUT WITH SYNC DEF * P CF A5,READ WAIT FOR OUTPUT INTERRUPT : P* h P* r P* SEND 4 SYN-CHARACTERS | P* P LDK A3,4 PTRS100 EQU * P LDK A2,SYN P CF A5,WRITE SEND CHARACTER P SUK
0x24d54c…24d6e0 Dummy {f00=0x00be, f01=0x0190, f02=»NPUT DATA n P* PCSYNCI EQU * P LD A2,PFPOST 0 $ P RF(NZ) CSYN:I WAIT FOR POWER UP F P CF A5,CHALTI STOP INPUT n & P ST A5,DCLCI SET INPUT ACTIVE FLAG P IFT P6805=1 . P LDK A2,PARITY CHAR PARITY FUNCTION FOR LC P CIO A2,1,
0x24d6e0…24d874 (2, 495) Dummy {f00=0x00be, f01=0x0190, f02=» * P LDKL A2,CBCARR+SYNC DEF SYNC-PATTERN 2 P CIO A2,1,LCUIN SEND INPUT SYNC-PATTERN TO LC 6 P =1 l P XIF z PCSYN:I EQU * P RTN A5 RETURN TO CALLER P* P* " P* CHALTI : HALT INPUT CHANNEL P* PCHALTI EQU
0x24d874…24da08 Dummy {f00=0x00be, f01=0x0190, f02=»T ACTIVE FLAG | P SST A2,LCUIN READ STATUS " P RF(A) CHALTR SST ACCEPTED =1 8 : P LDK A2,1 INSTRUCTION NOT ACCEPTED, SET MODEM ERR. =1 ^ PCHALTR EQU * =1 P IFF LOGG=0 $ P CF A5,LOGSST LOGG INPUT STATUS P XIF P RTN A5 RETU
0x24da08…24db9c Dummy {f00=0x00be, f01=0x0190, f02=» LD A2,PFPOST $ P RF(NZ) CSYN:O WAIT FOR POWER UP P IFT P6805=1 > * P LDK A2,PARITY CHAR PARITY CHECK BY CU R P CIO A2,1,LCUUT CIO START P RF(A) CSYNC1 ACCEPTED $ P SST A2,LCUUT TRY TO READ STATUS * P ABL BRM NOT ACCEPTED TIMEOUT RE
0x24db9c…24dd30 Dummy {f00=0x00be, f01=0x0190, f02=»=0 & P CIO A2,1,LCUUT START TRANSMITTER P XIF 4 PCSYN:O EQU * @ P RTN A5 RETURN TO CALLER T P* t P* ~ $ P* CHALTO : HALT OUTPUT CHANNEL P* PCHALTO EQU * P IFT P6805=1 P LDK A2,CBSTOP STOP FUNCTION P X
0x24dd30…24dec4 Dummy {f00=0x00be, f01=0x0190, f02=»TION NOT ACCEPTED =1 z " P CF A5,READ WAIT FOR INTERRUPT P XIF B P SST A2,LCUUT GET STATUS N PCHLT00 EQU * n P IFT STTSTS=1 P ANK A2,H:NOOP+H:THRU P RF(Z) CHLTO2 $ P LDK A1,CSCDCE DCE NOT OPERABLE P ANK A2,H:NOOP
0x24dec4…24e058 Dummy {f00=0x00be, f01=0x0190, f02=»LTO2 EQU * P XIF P RTN A5 RETURN TO CALLER P EJECT > P* L P* V P* RECEIVER INTERRUPT ` P* ~ P* PIH2501 EQU * P ST P,INTSAV P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF P P IFF
0x24e058…24e1ec Dummy {f00=0x00be, f01=0x0190, f02=» , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS P IFF LOGG=0 4 ( P CF A5,LOGIN LOG RECEIVED CHARACTER H P XIF t P IFT TPMODE=1 P C2 TPM 8 P RF(NZ) IHLC10 DO NOT SKIP SYNC IN TRANSPARENT TEXT P XIF P C2 SYNSW 0 P RF(NZ)
0x24e1ec…24e380 Dummy {f00=0x00be, f01=0x0190, f02=»ALCULATE LRC P XIF P IFT CODE=1 $ P LD A1,XSEL SEE IF SELECTED DK1 4 " P RF(Z) IHLC07 NO, SKIP IT DK1 P CF A5,CRCCAL CALCULATE CRC PIHLC07 EQU * DK1 ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P XIF PIHLC10 EQU *
0x24e380…24e514 (2, 496) Dummy {f00=0x00be, f01=0x0190, f02=» v P LDK A1,1 P ST A1,DTEPLS,A7 CU OPERABLE P RTN A5 RETURN TO CALLER > PIHIN20 EQU * ^ P CF A5,SST PERFORM SST r P ABL BRM P EJECT P* P* P* TRANSMITTER INTERRUPT P* P* PIH2502 EQU *
0x24e514…24e6a8 Dummy {f00=0x00be, f01=0x0190, f02=»E A1-A8 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RTN A5 J P EJECT Z P* h P* r & P* SST INSTRUCTION AND STATUS CHECK | P* ( P* LCU STATUS : BIT 10=CARRIER OFF . P* BIT 13=PARITY ERROR (6805 ONLY) SALCUZ
0x24e6a8…24e83c Dummy {f00=0x00be, f01=0x0190, f02=»2,LCUIN GET STATUS P LDR A1,A2 P IFT LOGG=1 , & P CF A5,LOGSST LOGG SST INFORMATION @ P XIF j P ANK A2,H:ERR ERROR BIT SET v P RF(NZ) SST050 YES P IFT P6805=0 P LD A2,DCLCI INPUT STATUS * P RF(Z) SST125 INPUT NOT ACTIVE
0x24e83c…24e9d0 Dummy {f00=0x00be, f01=0x0190, f02=»AIN r $ P RF SST125 RETURN TO DISPATCHER P XIF 4 P IFT P6805=1 @ P RF SST100 T P XIF f PSST050 EQU * r P ANK A2,H:CARR CARRIR OFF P RF(Z) SST075 NO P LD A2,DCLCI INPUT STATUS 0 P RF(Z) SST125 NOT ACTIVE IGNORE CARRIE
0x24e9d0…24eb64 Dummy {f00=0x00be, f01=0x0190, f02=»THRU THROUGHPUT ERROR P RF(Z) SST100 NO P IFT STTSTS=1 6 P* L P* V $ P* COUNT INPUT THROUGHPUT ERROR ` P* P LDK A1,CSCDIT P CF A15,DCSUPS P XIF P ABL BRM110 P* PSST100 EQU * P LDR A2,A1
0x24eb64…24ecf8 Dummy {f00=0x00be, f01=0x018e, f02=» P* P LDK A1,CSCDCE P CF A15,DCSUPS $ P XIF : P CF A15,STREG SAVE REGISTERS F P CF A15,SETIME DELAY 1 SEC j P DATA SST150,10 PSST125 EQU * $ P ABL TDISP RETURN TO DISPATCHER P* PSST150 EQU * P CF A15,LD
0x24ecf8…24ee8c Dummy {f00=0x00be, f01=0x0190, f02=» 4 P XRK A1,H:CARR CHECK STATUS IF ONLY CARRIER OFF P RF(Z) SST250 YES < PSST225 EQU * V 0 P ST A1,DCSTCU STORE STATUS AS CURRENT STATUS j PSST250 EQU * P RTN A5 RETURN TO CALLER P EJECT P* P* , P* WRITE FROM OR READ
0x24ee8c…24f020 Dummy {f00=0x00be, f01=0x0190, f02=»DE p P CWK A2,DLE CHECK IF DLE P RF(NZ) WRIT05 NO * P CF A5,WRIDLE SEND EXTRA DLE D P LDK A2,DLE h P RF WRIT05 | PWRIT02 EQU * P ANK A2,/FF P CWK A2,/FF 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEB
0x24f020…24f1b4 (2, 497) Dummy {f00=0x00be, f01=0x0190, f02=»E=1 $ PWRIT10 XRR A8,A2 ACCUMULATE BCC P XIF 4 P IFT CODE=1 @ & PWRIT10 CF A5,CRCCAL CALCULATE CRC T P XIF ~ PWRIT15 EQU * P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER P XIF P* PREAD CF A15,STREG
0x24f1b4…24f348 Dummy {f00=0x00be, f01=0x0190, f02=»NFIGURED r P* PWRIDLE EQU * " P OTR A2,0,LCUUT SEND CHARACTER . P RB(A) WRIT15 ACCEPTED T $ P RB READ OUTPUT THROUGHPUT ERROR r P EJECT P* P* P*** WRITEP P* P* WRITE A2 WITH PARITY P* P*
0x24f348…24f4dc Dummy {f00=0x00be, f01=0x0190, f02=»100 P RB(Z) WRITE WRITE P XRK A2,/80 & P RB WRI100 : P XIF L P IFF CODE+P6805=0 SALCUZ X PWRITEP RB WRITE z P XIF P* P* P* P*** READP P* . P* READ CHARACTER TO A2 AND CHECK PARITY
0x24f4dc…24f670 Dummy {f00=0x00be, f01=0x0190, f02=» P RB(NN) RE100 P XRK A2,/80 P RB RE100 . PRE110 LDR A1,A2 @ P ANK A2,/7F X P XIF l P IFF CODE+P6805=0 SALCUZ x P LDK A1,/80 P XIF P ADK A5,4 P ANK A1,/80 P XRK A1,/80 P ABR* A5 P*
0x24f670…24f804 Dummy {f00=0x00be, f01=0x0190, f02=» P CF A15,SAVE8 SAVE A1-A8 P XIF $ P 0 P IFF CPU852=1 8 P MSR 8,A15 SAVE A1-A8 N P XIF l " P LDKL A7,DTETAB DTETAB ADDRESS x P IFT STARVI=1 P LDK A5,4 SET DEVICE END ( P LD A6,DTEDWT,A7 GET FIRST DWT ADDR PDC1510 E
0x24f804…24f998 Dummy {f00=0x00be, f01=0x0190, f02=» LD A6,DWTCHN,A6 GET NEXT DWT IN CHAIN P RB DC1510 . PDC1520 EQU * @ P =4 T P =13 b P XIF r P LD A2,DTESTA,A7 DTE STATUS ~ P SUK A2,2 $ P ABL(NZ) TDISP OPEN NOT EXECUTED * P CM DCLCI INIT LINE CONTROL UNIT INFO (
0x24f998…24fb2c Dummy {f00=0x00be, f01=0x0190, f02=» P ABL BRM P EJECT P IFT CODE=1 & P* : P* D P* CALCULATION OF CRC N P* j P* A2 = CHARACTER t P* A8 = ACCUMULATED CRC P* P* PCRCCAL EQU * P ST A1,CRCSAV+2 P ST A2,CRCSAV+6 P ST A3
0x24fb2c…24fcc0 Dummy {f00=0x00be, f01=0x0190, f02=» A3,A2 P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 2 P XRKL A4,/A001 H PCRC110 SUK A1,1 ^ P RB(NZ) CRC100 v P LDR A8,A4 SAVE NEW CRC PCRCSAV EQU * P LDKL A1,0 P LDKL A2,0 P LDKL A3,0 P LDKL A4,0 P
0x24fcc0…24fe54 (2, 498) Dummy {f00=0x00bf, f01=0x018e, f02=»* PRDCRC EQU * P STR A8,A5 SAVE CURRENT CRC " P SUK A5,2 ADJUST STACK POINTER B $ P IM SYNSW DO NOT SKIP SYNCS NOW h P CF A5,READ READ BYTE 1 P LD A4,CRCSAV+6 SAVE IT P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN BE S
0x24fe54…24ffe8 Dummy {f00=0x00bf, f01=0x0190, f02=» P XIF P IFT CODE=0 P* ( & P* RDLRC READ LRC CHARACTER 2 " P* CR=0 IF LRC OK P* PRDLRC IM SYNSW P CF A5,READP P ADK A5,4 P LDR A1,A1 P RF(NZ) LRCEND P ANKL A8,/007F PLR
0x24ffe8…25017c Dummy {f00=0x00bf, f01=0x0190, f02=» P* DRIVER WORK AREAS P* $ , P**************************************** . P* ^ P* h P* DC RECEIVE BUFFER POOL r P* PRLINK EQU RBUFL+RBUFL+8 P* PDCRBUF EQU * P DATA *+2 FREE BUFFER ANCHOR P IFF RBUFN
0x25017c…250310 Dummy {f00=0x00bf, f01=0x0190, f02=» P DATA *+RLINK P RES RBUFL+3 P XIF . P DATA *+RLINK : P RES RBUFL+3 P P DATA 0 END OF CHAIN d P RES RBUFL+3 P P IFF MMUPAG=0 & PMMUBUF RES TBUFL+1 MMU WORK BUFFER 4 PSUBBUF RES 3 MMU BUFFER FOR CONNECT REQUEST
0x250310…2504a4 Dummy {f00=0x00bf, f01=0x0190, f02=»GSST ST A2,SAVE2 P ORKL A2,/F000 P RF LOG10 . PLOGOUT ST A2,SAVE2 @ P ORKL A2,/0F00 Z P RF LOG10 p PLOGIN CWK A2,/FF P RF(E) LOGE10 P ST A2,SAVE2 PLOG10 ST A3,SAVE3 P LD A3,LOGPNT P STR A2,A3 P A
0x2504a4…250638 Dummy {f00=0x00bf, f01=0x0190, f02=»A3,SAVE3 PLOGE10 RTN A5 P EJECT & P* 4 P* > PLOGPNT DATA LOGSTA H PLOGSTA EQU * b P RES 300 v PLOGEND EQU *-4 PSAVE2 DATA 0 PSAVE3 DATA 0 P XIF P* P* P* P IFT RCOM=1 P EJECT
0x250638…2507cc Dummy {f00=0x00bf, f01=0x0190, f02=»OR ADDRESS TO LINE AND COLUMN NUMBER ~ P* , > P********************************************************** 6 P x PLINCOL EQU * " P LDR A2,A3 COPY CURSOR ADDRESS P SRL A2,6 P ANK A2,X'3F' & P LC A2,LICO:T,A2 ASCII LINE NUMBER
0x2507cc…250960 Dummy {f00=0x00bf, f01=0x0190, f02=»F A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN & P* < P* F P* P P EJECT Z P h P p PLICO:T EQU * x * P DATA /2041,/4243,/4445,/4647 /00-/07 * P DATA /4849,/5B2E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /1
0x250960…250af4 (2, 499) Dummy {f00=0x00bf, f01=0x0190, f02=»/28-/2F r ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A23,/4027,/3D22 /38-3F < P XIF h P EJECT t P* P* DTETAB P* P* FIXED PART P* PDW2500 EQU * PDTETAB DATA 0,0 P DATA 0,0,0,0,0,0
0x250af4…250c88 Dummy {f00=0x00bf, f01=0x0190, f02=» P DATA 0,0,0,0,0,0 P DATA 0,0,0,0,0,0 * PDTESBU EQU * : P DATA 0 SYMBOLIC ID N P DATA 0 COUNTER STATUS WORD j $ P DATA /20 MAX NUMBER OF COUNTERS P RES /20 STATISTIC BUFFER P EJECT P* P* P* PROCEDURE WO
0x250c88…250e1c Dummy {f00=0x00bf, f01=0x0190, f02=» DATA 0 ACK EXPECTED PXSEL DATA 0 SELECTED PXETX DATA 0 ETX SENT 8 2 PXSTA DATA 0 STATUS SENT / MESSAGE INPUT RESULT T " PXRB DATA 0 READ BUFFER SWITCH PCACK DATA 0 ACK COUNTER * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP & PTPM DATA 0
0x250e1c…250fb0 Dummy {f00=0x00bf, f01=0x0190, f02=» BUFFER LENGTH | PFBAX DATA 0 BUFFER INDEX 0 PFBLST DATA 0 START OF LAST TRANSMITTED BLOCK 6 $ PDCSTQ DATA 0 STATUS QUEUE ANCHOR j . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING $ PDCWRQ DATA 0 WRITE REQUEST QUEUE , PRESEND DATA 0 CONTROL SEQUEN
0x250fb0…251144 Dummy {f00=0x00bf, f01=0x407c, f02=»ENT STATUS ~ , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL & PDCLCI DATA 0 DC UNIT INPUT STATUS B P END l@ xS QUEUE ANCHOR j . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING $ PDCWRQ DATA 0 WRITE REQUEST QUEUE , PRESEND DATA 0 CONTROL SEQUEN
0x251144…2512d8 Dummy {f00=0x00bf, f01=0x2008, f02=» H P X ` h p x
0x2512d8…25146c Dummy {f00=0x00bf, f01=0x0190, f02=»COR:38 EQU *-2 P RF(E) COR:40 YES! * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? 0 P RF(E) MEMOFL YES! ^ & P ADK A1,1 INCREMENT BUFFER POINTER x * P ADK A3,1 INCREMENT CHARACTER COUNTER & P ADK A4,1 INCREMENT RECORD POINTER P RB COR:30 LOO
0x25146c…251600 Dummy {f00=0x00bf, f01=0x018e, f02=»3,NCHTID CHECK IF END OF RECORD 4 P RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD ( PCOR:45 EQU * ` 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION t P LDR A1,A8 START OF RECORD P CALL MOVE PCOR:48 EQU * ( P ADKL A10,1 INCREMENT
0x251600…251794 (2, 500) Opaque[0x194]
0x251794…251928 # DirEnt {nam=»SYS2DC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17f0, f03=0x0000}
0x251794…251928 IdxSect {
0x251794…251928 f00 = 0x00bf // 0x251794 @0x0
0x251794…251928 f01 = 0x0006 // 0x251796 @0x2
0x251794…251928 gno = [ // 0x251798 @0x4
0x251794…251928 [0x00]: C0x00bf.0x2.0
0x251794…251928 [0x01]: C0x00bf.0x3.0
0x251794…251928 [0x02]: C0x00c0.0x0.0
0x251794…251928 ]
0x251794…251928 }
0x251928…251abc Dummy {f00=0x00bf, f01=0x0190, f02=» 4 P IDENT SYS2DC REL 11.0 DK 82-04-14 870105041100 " P** SYSTEM WITH TWO MAIN-FRAMES < P b P* j P* t 8 P*************************************************** ~ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTER
0x251abc…251c50 Dummy {f00=0x00bf, f01=0x0190, f02=» 8 P*************************************************** P* @ P* J P EJECT SYSTAB T P* l P* v P*********** P* ENTRIES * P*********** P* P* & P ENTRY SCTMSZ,SCTSFA,SCTEFA,SCTIPL & P ENTRY SCTANO,
0x251c50…251de4 Dummy {f00=0x00bf, f01=0x0190, f02=»FWL,SCTBLK x & P ENTRY SCTDCT,SCTNOS,SCTMXS,SCTMOX P ENTRY SEG:FC,SEG:NS < & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB X & P ENTRY PAG:QF,PAG:QB,PAG:PA,PAG:SB & P ENTRY SWB:NC,SWB:DS,SWB:EL,SWB:NS P ENTRY STKEND,STKCOM,STKMOV & P ENTRY ACBIOE,
0x251de4…251f78 Dummy {f00=0x00bf, f01=0x0190, f02=» P* P************* P* EXTERNALS * $ P************* : P* P P* Z P EXTRN TDISP d , P EXTRN IHPFAR POWER FAIL / AUTO RESTART x P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER
0x251f78…25210c Dummy {f00=0x00bf, f01=0x0190, f02=» EXTRN IH1501 P EXTRN IH1502 P EXTRN IH2501 8 P EXTRN IH2502 N * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 d P EXTRN CHRT3 P EXTRN CHRT4 ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 ( P EXTRN IHCC2
0x25210c…2522a0 Dummy {f00=0x00bf, f01=0x0190, f02=»XTRN CHLT2,IHSVU6,IHSVU7,IHSVU8 LOCAL CHANNEL UNIT NO. 2 4 P EXTRN IHPL01,IHPVU1,IHPVU2,IHPVU3,IHPVU4,IHPVU5 @ & P EXTRN IHPL02,IHPVU6,IHPVU7,IHPVU8 x 0 P EXTRN IHFD,IHCD FLOPPY DISC,CDC (80 M) DISC * P EXTRN IHLP,IHPL03,IHPL04 LINE PRINTER ( P EXT
0x2522a0…252434 (2, 501) Dummy {f00=0x00bf, f01=0x0190, f02=» EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT ROUTINE F P EXTRN BUG DEBUGGER f P EXTRN IHPR01 RWSI CARD P EJECT SYSTAB P* F P* DISPLACEMENTS IN SEGTAB, PAGTAB , SWBTAB AND APPL. CONTROL BLOCK
0x252434…2525c8 Dummy {f00=0x00bf, f01=0x0190, f02=»CTOR ADDRESS | " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS : & PPAG:QF EQU 0 QUEUE POINTER FORWARD b ( PPAG:QB EQU 2 QUEUE POINTER BACKWARD PPAG:PA EQU 4 PAGE ADDRESS & PPAG:SB EQU 6 SEGMENT BLOCK ADDRESS P*
0x2525c8…25275c Dummy {f00=0x00bf, f01=0x0190, f02=»H (BYTES) z & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* < , PACBIOE EQU 0 APPLICATION RESTART ADDRESS F PACBSWB EQU 2 SWBTAB ADDRESS v $ PACBSEG EQU 4 SEGMENT TABLE POOL ( PACBNPE EQU 6 NUMBER OF PAGE ENTRIES & PACBMMP EQU 8 MMU TABLE PAG
0x25275c…2528f0 Dummy {f00=0x00bf, f01=0x018e, f02=»DRESS TO COMMON PART x 4 PACBSTA EQU 16 APPLICATION PROGRAM START ADDRESS . PACBREL EQU 18 APPLICATION RELOCATION BASE T 0 PACBADA EQU 20 APPLICATION DISC FILE ADDRESS P P P PSTART EQU * P EJECT SYSTAB P* P
0x2528f0…252a84 Dummy {f00=0x00bf, f01=0x0190, f02=» P DATA ILLINT P DATA ILLINT P DATA ILLINT , P DATA ILLINT @ P DATA ILLINT T P DATA ILLINT h P DATA ILLINT | P DATA IH1501 P DATA IH1502 P DATA IH2501 P DATA IH2502 P DATA ILLINT P DATA ILLINT P
0x252a84…252c18 Dummy {f00=0x00bf, f01=0x0190, f02=» P DATA ILLINT P DATA IHPL01 P DATA IHPL02 , P DATA ILLINT @ P DATA ILLINT T P DATA ILLINT h P DATA ILLINT | P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P
0x252c18…252dac Dummy {f00=0x00bf, f01=0x0190, f02=» P DATA ILLINT P DATA ILLINT P DATA ILLINT , P DATA ILLINT @ P DATA ILLINT T P DATA ILLINT h P DATA ILLINT | P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P
0x252dac…252f40 Dummy {f00=0x00bf, f01=0x0190, f02=»CT SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER & P* L P DATA SCT V P h P p P* x P* SYSTEM TRAP P* PTRAP LDK A1,/D P CF A15,HALT P RES 4 P HLT P P* P* DEBUG RESTART
0x252f40…2530d4 (2, 502) Dummy {f00=0x00c0, f01=0x0190, f02=» SYSTAB P* P* PX:A EQU 0 MONITOR OPTION $ ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM D * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE p $ PX:D EQU 0 DM/FM NUMBER OF FILES ( PX:E EQU 0 DM/FM NUMBER OF FILES/TASK $ PX:F EQU 0 FILE WORK TA
0x2530d4…253268 Dummy {f00=0x00c0, f01=0x0190, f02=» P* P* SYSTEM CONTROL TABLE P* 0 PSCT EQU * : P L * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES T & PSCTSFA DATA 0,0 START OF FREE AREA $ PSCTEFA DATA 0,0 END OF FREE AREA ( PSCTIPL DATA 0 IPL DEVICE FILE CODE: * P TC:C0
0x253268…2533fc Dummy {f00=0x00c0, f01=0x0190, f02=»DRESS z PSCTPAG DATA 0 PAGTAB ADDRESS " PSCTNOP DATA 0 NUMBER OF PAGES 2 PSCTPSZ DATA 0 PAGE SIZE X & PSCTSTB DATA STB SYSTEM STACK BASE x & PSCTOPT DATA 04097 MONITOR OPTION: " P BIT 10:MPO,11:EMM,12:SWPBLK $ P BIT 13:FM,14:DSKPAG
0x2533fc…253590 Dummy {f00=0x00c0, f01=0x0190, f02=»TDMI DATA 00000 DM INDEX RECORD BUFFER SIZE * PSCTFWT DATA 0 FWT CHAIN START ADDRESS 4 & PSCTNOF DATA 00000 NUMBER OF FILES b * PSCTNFT DATA 00000 NUMBER OF FILES/TASK , PSCTFWL DATA 00000 FILE WORK TABLE LENGTH ( PSCTBLK DATA 6 NUMBER OF BLOCKS
0x253590…253724 Dummy {f00=0x00c0, f01=0x0190, f02=» MXSTAB x 0 PSCTMOX DATA 0 ADDRESS TO START-ADDRESS TABLE P EJECT SYSTAB D P P* d P* SYSTEM STACK n P* $ PSTKEND EQU * END OF SYSTEM STACK P RES 68 PSTKMOV LDR* A4,A1 P STR A4,A2 P ADK A1,2 P ADK
0x253724…2538b8 Dummy {f00=0x00c0, f01=0x40b8, f02=»CC0 AND PSW & PSTB DATA LOOP AND PC FOR IDLE LOOP P > P F P* N P* IDLE LOOP X P* l P v PLOOP RB * ~ P P P P END @ ES 68 PSTKMOV LDR* A4,A1 P STR A4,A2 P ADK A1,2 P ADK
0x2538b8…253a4c Dummy {f00=0x00c0, 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
0x253a4c…253be0 Dummy {f00=0x00c0, f01=0x0190, f02=»ICATION CONTROL BLOCK r 4 PSCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK 2 PEXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK V , PNBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS . PSWBBLK EQU FWTFLG START OF SWB CONF. DATA * PSWBNAM EQU FWTSTA ADDRESS
0x253be0…253d74 (2, 503) Opaque[0x194]
0x253d74…253f08 # DirEnt {nam=»S2CLAS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1808, f03=0x0000}
0x253d74…253f08 IdxSect {
0x253d74…253f08 f00 = 0x00c0 // 0x253d74 @0x0
0x253d74…253f08 f01 = 0x0002 // 0x253d76 @0x2
0x253d74…253f08 gno = [ // 0x253d78 @0x4
0x253d74…253f08 [0x00]: C0x00c0.0x1.0
0x253d74…253f08 ]
0x253d74…253f08 }
0x253f08…25409c Dummy {f00=0x00c0, f01=0x0190, f02=» 4 P IDENT S2CLAS REL 11.0 DK 82-04-14 870105041100 P < P* D P* N P ENTRY SCLASS X P* n P* x P EXTRN DWII01 P EXTRN DWIO01 P EXTRN DW1501 P EXTRN DW2501 P* P*
0x25409c…254230 Dummy {f00=0x00c0, f01=0x4172, f02=» DATA TC00E-* P DATA /0050 P DATA DWII01 > P DATA /0051 ^ P DATA DWIO01 ~ P DATA /0061 P DATA DW1501 P DATA /0062 P DATA DW2501 P
0x254230…2543c4 Dummy {f00=0x00c0, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x2543c4…254558 Dummy {f00=0x00c0, f01=0x0190, f02=» P DATA ILLINT P DATA IHPL01 P DATA IHPL02 , P DATA ILLINT @ P DATA ILLINT T P DATA ILLINT h P DATA ILLINT | P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P
0x254558…2546ec Dummy {f00=0x00c0, f01=0x0190, f02=» P DATA ILLINT P DATA ILLINT P DATA ILLINT , P DATA ILLINT @ P DATA ILLINT T P DATA ILLINT h P DATA ILLINT | P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P
0x2546ec…254880 Dummy {f00=0x00c0, f01=0x0190, f02=»CT SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER & P* L P DATA SCT V P h P p P* x P* SYSTEM TRAP P* PTRAP LDK A1,/D P CF A15,HALT P RES 4 P HLT P P* P* DEBUG RESTART
0x254880…254a14 (2, 504) Opaque[0x194]
0x254a14…254ba8 # DirEnt {nam=»P2TAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1810, f03=0x0000}
0x254a14…254ba8 IdxSect {
0x254a14…254ba8 f00 = 0x00c0 // 0x254a14 @0x0
0x254a14…254ba8 f01 = 0x0002 // 0x254a16 @0x2
0x254a14…254ba8 gno = [ // 0x254a18 @0x4
0x254a14…254ba8 [0x00]: C0x00c0.0x2.0
0x254a14…254ba8 ]
0x254a14…254ba8 }
0x254ba8…254d3c Dummy {f00=0x00c0, f01=0x0190, f02=» 4 P IDENT P2TAB REL 11.0 DK 82-04-14 870105041100 P < P* D P* N P* POWER FAIL TABLE X P* r D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED | P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE E
0x254d3c…254ed0 Dummy {f00=0x00c0, f01=0x0190, f02=» TWON TYPEWRITER P EXTRN TCDRON TAPE CASSETTE P EXTRN SOPR SOP. PANEL < ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS Z P EXTRN FDON FLEXIBLE DISC P EXTRN LPON LINE PRINTER P EXTRN CRON CARD READER P EXTRN DUON DISC UNIT P E
0x254ed0…255064 Dummy {f00=0x00c0, f01=0x418e, f02=»UON SALCUZ P EXTRN ASCUON ASCU4Z P EXTRN CDON CDC DISC . P EXTRN PLON LINE CONTROLLER J P EXTRN VUON VIDEO n P EXTRN X25:ON X25 LEVEL 3 P P P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA
0x255064…2551f8 Dummy {f00=0x00c0, 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
0x2551f8…25538c Dummy {f00=0x00c0, f01=0x0190, f02=» HALT & 6 SCTMSZ N SCTSFA b SCTEFA v SCTIPL SCTANO SCTTCT SCTCDT , ( @
0x25538c…255520 Dummy {f00=0x00c0, f01=0x0190, f02=» SCTDMT SCTDMI SCTFWT ( SCTNOF < SCTNFT P SCTFWL d SCTBLK x SCTDCT SCTNOS , ( SCTMXS SCTMOX
0x255520…2556b4 (2, 505) Opaque[0x194]
0x2556b4…255848 # DirEnt {nam=»DW2501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1818, f03=0x0000}
0x2556b4…255848 IdxSect {
0x2556b4…255848 f00 = 0x00c0 // 0x2556b4 @0x0
0x2556b4…255848 f01 = 0x0002 // 0x2556b6 @0x2
0x2556b4…255848 gno = [ // 0x2556b8 @0x4
0x2556b4…255848 [0x00]: C0x00c0.0x3.0
0x2556b4…255848 ]
0x2556b4…255848 }
0x255848…2559dc Dummy {f00=0x00c0, f01=0x0190, f02=» 4 P IDENT DW2501 REL 11.0 DK 82-04-14 870105041100 P < P* D : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 N P* P ENTRY DW2501 TABLE ENTRY * P EXTRN DC25AD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 1 P*
0x2559dc…255b70 Dummy {f00=0x00c0, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DW2501 P RIGHT BYTE=ORDER , * P DATA DC25AD POINTER TO ADDRESS-BLOCK H P DATA 'DC' TTAB-ADDRESS v $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P* P IFT MMUPAG=1 P DATA 0 USER
0x255b70…255d04 Dummy {f00=0x00c0, f01=0x018e, f02=»HAIN LINK HEAD DWT & P DATA 0 CONFIG CHAIN LINK NEXT DWT & P DATA 0 LOCAL SYMBOLIC DTE ADDRESS D ( P DATA 0 REMOTE SYMBOLIC DTE ADDRESS n P DATA 0 SYMBOLIC SUBADDRESS P DATA 0 REQUEST CONTROL WORD P DATA 0 REQUEST TIMER VALUE " P D
0x255d04…255e98 Dummy {f00=0x00c0, f01=0x4144, f02=» & P DATA 0 I/P DATA Q LINK TO BUFFER " P DATA 0 I/P DATA TIMER POINTER . P DATA 0 CURSOR ADDRESS T " P DATA 0 DEVICE BUFFER ADDRESS r P DATA 0 DWT STATUS P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0,0
0x255e98…25602c Dummy {f00=0x00c0, f01=0x2008, f02=» R ( P DATA DCAD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P DATA 0,0 SAVE ARE
0x25602c…2561c0 Dummy {f00=0x00c0, f01=0x0190, f02=»T Wj , ! V _ P W , ! Z P6 ! " - X ) Y , ! ^( - X ) Y _ G : P2 T PZ " P , PD ! Z P W P , ! ^* - _( : U O ! R*
0x2561c0…256354 (2, 506) Opaque[0x194]
0x256354…2564e8 # DirEnt {nam=»PT2GEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1820, f03=0x0000}
0x256354…2564e8 IdxSect {
0x256354…2564e8 f00 = 0x00c1 // 0x256354 @0x0
0x256354…2564e8 f01 = 0x0002 // 0x256356 @0x2
0x256354…2564e8 gno = [ // 0x256358 @0x4
0x256354…2564e8 [0x00]: C0x00c1.0x0.0
0x256354…2564e8 ]
0x256354…2564e8 }
0x2564e8…25667c Dummy {f00=0x00c1, f01=0x011e, f02=» PASG 2,LP0F PSCR PINC SYS2DC " PINC DEBUGM 4 PINC FILLER F PNOD AM X PINC SYSLOD f PINC SYSLDM x PINC SYSLCR PINC SYSINI PINC TCLASS PINC SCLASS PLKE M PKPF /L,PT2MON P$PDISC M=PT2MON
0x25667c…256810 Dummy {f00=0x00c1, f01=0x2008, f02=» 2,LP0F PSCR PINC SYS2DC " PINC DEBUGM 4 PINC FILLER F PNOD AM X PINC SYSLOD f PINC SYSLDM x PINC SYSLCR PINC SYSINI PINC TCLASS PINC SCLASS PLKE M PKPF /L,PT2MON P$PDISC M=PT2MON
0x256810…2569a4 Dummy {f00=0x00c1, f01=0x0190, f02=» SWB:EL SWB:NS ACBIOE ( ACBSWB < ACBSEG P ACBNPE d ACBMMP x ACBMMC ACBLAP ACBLAC ACBSTA ACBREL ACBADA I
0x2569a4…256b38 Dummy {f00=0x00c1, f01=0x0190, f02=»502 IH2501 IH2502 , ( 0 IHPR01 ` , ( ! r IHPL01 IHPL02 , ( 1 , ( A
0x256b38…256ccc Dummy {f00=0x00c1, f01=0x0190, f02=» HALT & 6 SCTMSZ N SCTSFA b SCTEFA v SCTIPL SCTANO SCTTCT SCTCDT , ( @
0x256ccc…256e60 Dummy {f00=0x00c1, f01=0x0190, f02=» SCTDMT SCTDMI SCTFWT ( SCTNOF < SCTNFT P SCTFWL d SCTBLK x SCTDCT SCTNOS , ( SCTMXS SCTMOX
0x256e60…256ff4 (2, 507) Opaque[0x194]
0x256ff4…257188 # DirEnt {nam=»PT2MON«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1828, f03=0x0000}
0x256ff4…257188 IdxSect {
0x256ff4…257188 f00 = 0x00c1 // 0x256ff4 @0x0
0x256ff4…257188 f01 = 0x0028 // 0x256ff6 @0x2
0x256ff4…257188 gno = [ // 0x256ff8 @0x4
0x256ff4…257188 [0x00]: C0x00c1.0x1.0
0x256ff4…257188 [0x01]: C0x00c1.0x2.0
0x256ff4…257188 [0x02]: C0x00c1.0x3.0
0x256ff4…257188 [0x03]: C0x00c2.0x0.0
0x256ff4…257188 [0x04]: C0x00c2.0x1.0
0x256ff4…257188 [0x05]: C0x00c2.0x2.0
0x256ff4…257188 [0x06]: C0x00c2.0x3.0
0x256ff4…257188 [0x07]: C0x00c3.0x0.0
0x256ff4…257188 [0x08]: C0x00c3.0x1.0
0x256ff4…257188 [0x09]: C0x00c3.0x2.0
0x256ff4…257188 [0x0a]: C0x00c3.0x3.0
0x256ff4…257188 [0x0b]: C0x00c4.0x0.0
0x256ff4…257188 [0x0c]: C0x00c4.0x1.0
0x256ff4…257188 [0x0d]: C0x00c4.0x2.0
0x256ff4…257188 [0x0e]: C0x00c4.0x3.0
0x256ff4…257188 [0x0f]: C0x00c5.0x0.0
0x256ff4…257188 [0x10]: C0x00c5.0x1.0
0x256ff4…257188 [0x11]: C0x00c5.0x2.0
0x256ff4…257188 [0x12]: C0x00c5.0x3.0
0x256ff4…257188 [0x13]: C0x0167.0x2.0
0x256ff4…257188 ]
0x256ff4…257188 }
0x257188…25731c Dummy {f00=0x00c1, f01=0x0190, f02=» 4 b n % % P0Pv { { { @
0x25731c…2574b0 Dummy {f00=0x00c1, f01=0x0190, f02=» _ A :U A A " @ ~ A h A ~ @ A < A @ A L A @ A X A @ A A
0x2574b0…257644 Dummy {f00=0x00c1, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ j S A _ @ T :a R T <a Z
0x257644…2577d8 Dummy {f00=0x00c1, f01=0x0190, f02=» S v T 8 Y D G P ( H L V > I z U z _v A t_ NO! A A A A A A A A *T A _ P A A . * , : + n - n ; # R $ X : X " H W* X " H H A W W L H A A _p
0x2577d8…25796c Dummy {f00=0x00c1, f01=0x0190, f02=» > " @ @ T " ( ^ @ P A A " @ $T @ tW @ A t W W 0 _, W W Pf @ & 0 T* A P P V W _x _`
0x25796c…257b00 Dummy {f00=0x00c1, f01=0x0190, f02=» $ ;a ]@ 1 $ _L W @ $ 0 W $ A W @ A P 3P C @ P @ @ P @ Q A $ @ A " T @ W @ A F A $P l @ _2 l $T * 0 P fP _
0x257b00…257c94 (2, 508) Dummy {f00=0x00c1, f01=0x0190, f02=» & A *<a P j A ) " A H A @ & @ @ T A A P@ @ PB @ ! T A @ A # A $ RE bRN cME nMN o W R, ( T ( W P T $ ; V ;
0x257c94…257e28 Dummy {f00=0x00c1, f01=0x0190, f02=» Y W Y Y @ " P$ @ 4 = ] ] ] W A A A W ^ P _ " ^ T @ 9J A T _ 1@ _ ^ 9 V >! D A A > > > > > > > > ^ _ ^ _ ? ? ? ? ? A D ^ @ ?
0x257e28…257fbc Dummy {f00=0x00c1, f01=0x0190, f02=» A ^ " , , A A :B A Q (P _ # # H A " A F 0R$ 9U AR FQ 0:D A F _* A F " A p A r T A r A p " R _U . " A : A " A A $ T !
0x257fbc…258150 Dummy {f00=0x00c1, f01=0x0190, f02=» H > " ! R :W" W W W ?W /W : A W ! A A PL _ " @ _ I T " T A P I T$! A A A A A A A A A F
0x258150…2582e4 Dummy {f00=0x00c1, f01=0x0190, f02=» A P A < V A > > @ 4 A 4 W W p ^ ! Z2 2 (X: @ 4P T M ]J , ) A 4 P* P Y U ( ) 5 & > > [ [
0x2582e4…258478 Dummy {f00=0x00c1, f01=0x0190, f02=» U P @ V L U #P A A hQ ? b b > ? @ 2 XB ) A 2 A l_N A l A j A 4_` A A Q > ? A A Q _ A < Q P Q R Y _ A _0 ^ 8 > Q Z P 0 9
0x258478…25860c Dummy {f00=0x00c1, f01=0x0190, f02=» 5 % > ? HW ? W ? T T U T U U > > $ $ 4 T - 1_( U T P 0 U H H _h ? @ .T 0 A . 1 Q Q > > 0 @ . 1 A . P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @
0x25860c…2587a0 Dummy {f00=0x00c1, f01=0x0190, f02=»A. B $ ( , 0 4 8 < #M 1 L ^ ~ ~ ~ ~ H V V V H H $ ( , 0 4 8 < C C P T 8P Y ^ 5 ) P U ` XJ XF Y @ P R
0x2587a0…258934 (2, 509) Dummy {f00=0x00c1, f01=0x0190, f02=» # P Y '? Y Y T # P W $ Y P R R P T T P (@ p(@ " 2 @ _ > X $? P $ > > F C F C > B R Q F ! P C > C > F 8D D ! 9b8d9D #
0x258934…258ac8 Dummy {f00=0x00c1, f01=0x0190, f02=» $ T C x > C $ ) _ X 9BV X 0 p X X D C > X H UJ H B P PL $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ ^ > >
0x258ac8…258c5c Dummy {f00=0x00c1, f01=0x0190, f02=»P 4 Y X 1 1 X P - M T $ PJ _ T " # p X L R P P P (@ ^ X P, P$ # P( T P 0 1 Y > > H _ T R L U 9C _ T M D W2 D D " T X X -
0x258c5c…258df0 Dummy {f00=0x00c1, f01=0x0190, f02=» X $P % Y $ X " T n @C$ T AC$ AC& n B " f h ! j " ' j / 8 9 - B H x P> x ] ] ^ V ] ] h < " P H :H ! D = X B P h x ] "P( R^
0x258df0…258f84 Dummy {f00=0x00c1, f01=0x0190, f02=» h x X 2 BL C B P Y B Y V Y Y h D Y C "T ] "W H I Y Y Y 2 Y " X P Y @CJT X 2 "P4 T F X Y 2 ] "_( T P F X U Y 2_F x B T X 2:D :D :D
0x258f84…259118 Dummy {f00=0x00c1, f01=0x0190, f02=» X " P h F B | X X 2 x X *T W, P C X P C 0P Y * W @ W @W W W W W X > > , L Q , L X "R P A Y $ W> Y $W6 X "Z X A Y $_.
0x259118…2592ac Dummy {f00=0x00c1, f01=0x0190, f02=»P _ ) 1_@ CD ( (XL P _ 0 )_Z C@ &_2 C@ &_$ * (P _ ) 1 4 A A A A A W > B ] ] aCJ 4 X ACJ_< * ACB 4 ACB B !% @C&P !# ! @CBP % ACB 4 v
0x2592ac…259440 Dummy {f00=0x00c1, f01=0x0190, f02=»" ! AC, !% !& @CHT " !% _Z !& ] P = $ !& x !& > !& F !% AC0 P "P, !" @C&T( PV ! X ! T4 X RD X ! PBW8 @C&P ! N !# ! ! @C@P & !% ! AC& @CDT !# _ ( T n_ C6 AC$ 9N C B B AC8 A
0x259440…2595d4 (2, 510) Dummy {f00=0x00c2, f01=0x0190, f02=»C$P !" AC& AC( ! N @C(P @'D !# T> AC, !# @C&P @'DP @C$ 8 !" !" AC0_: !& X8_` AC, @'D @C>T 1 T P 2P P P @C" P X 2P AC< 8 H @'DP E X R. X P T" P C X P C P " H " P X * Y
0x2595d4…259768 Dummy {f00=0x00c2, f01=0x0190, f02=» ! N @C&T @C(P !# ! N @C&T @C(X W` @C$ @C, @C> @C8 AC< ! N @C&T _> !& T @C0P !# ! _X /T, @C0X @C*P @C,T0 !" !# AC._ AC0 @ B AC& @C*T _2 _6 @C$ AC, AC& X ! XD Y _N "P -P L _ 4 AC( AC< H E AC,
0x259768…2598fc Dummy {f00=0x00c2, f01=0x0190, f02=»P: PN PP P P4 ( 1 AC< @C< ]: _> P _F @'D @C< E !' P !% 4 _" !' 0_p / AC0T W ,W @ ACF ACGW W W ACF ACG !%f @CF !& @CG !& !& !& !% 4 !%f !&b @C8 @C< AC> @C<T* < !& @C$ ( !& @C.P - !& x . !BR W
0x2598fc…259a90 Dummy {f00=0x00c2, f01=0x0190, f02=»UH Zx Q P Q T 0 !& AC< 0 !& AC< !& " !& " !& # AC* _" AC, AC$ !%f !&b % !& R !& !&b < !& @C$ 0 !& P ! 9a D !& P ! P ! T & !& _d !% !% !& !&b 4 @ lT !% ACL 2B 4B ACLJ P 4 @ lT B 4B J 4 A ? J
0x259a90…259c24 Dummy {f00=0x00c2, f01=0x0190, f02=»" P " P &N " P 1 P ACH 4 AC4P T !& W " P H B P !& B X _ _8 !& ! 1 4 ? B "P Y X _ ACL @CJT A' A' A' A' <a :a# P 4 AC2 !& @' !& AC2 @'
0x259c24…259db8 Dummy {f00=0x00c2, f01=0x0190, f02=»
[…0x11…]
0x25b88c…25ba20 Dummy {f00=0x00c2, f01=0x0190, f02=» :f"? HBn !& "? HBn !& 4 ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>?0123456789:#@'=" .
0x25ba20…25bbb4 (2, 513) Dummy {f00=0x00c2, f01=0x0190, f02=» T G @m T Am Am F m*" G C F F FJ !C "DL 'D /E E 8F 9F> -F: B HC D D C D P> F ] ] ^ V ] ] F < " P H :H ! D = H G G X B P F G F ] "P( R^ X ] " G Y 2 P X Z&
0x25bbb4…25bd48 Dummy {f00=0x00c2, f01=0x0190, f02=»l C B P Y B Y V Y Y F D Y C "T ] "W H I Y Y Y 2 Y " X P Y H @m T H D@ X 2 G "P4 T G X Y 2 ] "_( T P G X U Y 2_F F B T X 2:D :D :D C G F X 2 F
0x25bd48…25bedc Dummy {f00=0x00c2, f01=0x0190, f02=»F GP G X 2 F G X *T F G$W, P C X P C 0P Y * W @ W @W W W W W X > > , L Q , L X "R P AG8 GH Y $ HZ W> Y $W6 X "Z X AGd Gl Y $_. Y $ G @m T Am Am
0x25bedc…25c070 Dummy {f00=0x00c2, f01=0x0190, f02=»P _ 0 )_Z m &_2 m &_$ * (P _ ) 1 4 AHD AHH AHL AHP AHT HXW > C| m* ] H ] am 4 H` X Am _< H Am 4 Am C| m* !P @m P !NJ !H I" @m P % Am 4 H C| !O !P m* ] C|
0x25c070…25c204 Dummy {f00=0x00c2, f01=0x0190, f02=»" !P _Z !Q ] P = $ !Q x !Q > !Q F !P Am P "P, !M @m T( PV !Hv X ! T4 X RD X ! PBW8 @m P !H !NJ !H I" !Hv @m P & !O !H Am I" @m T !NF_ ( T G _ m Am c C B B Am Am Am Am Am !N| !H Am _
0x25c204…25c398 Dummy {f00=0x00c2, f01=0x0190, f02=»m P @Q If !M T> Am !NB I" @m P @Q P @m If 8 !M8 !MR Am _: !Q X8_` Am @Q @m T 1 T P 2P P P @m P X 2P Am G 8 H @Q P E X R. X P T" P C X P C G P " H " P X * Y X V !H W* X T X *
0x25c398…25c52c Dummy {f00=0x00c2, f01=0x0190, f02=» @m T @m X W` @m @m J @m @m Am Jb !H @m T _> !Q T @m P !NJ !H _X /T, @m X @m P @m T0 !MR !NF Am _ Am Jb @ B Am @m T _2 _6 @m H Am Am X ! XD Y _N "P -P L _ 4 Am Am H E Am Am 4 @m P* X R$ X " T
0x25c52c…25c6c0 Dummy {f00=0x00c2, f01=0x0190, f02=» ( 1 Am @m ]: _> P _F @Q @m E !Q P !P 4 _" !Q 0_p / Am T W ,W @ Am Am W W W Am Am !O @m !Q @m !Q !P !P !P* 4 !O !P @m @m Am @m T* < !Q @m ( !Q @m P - !Q x . !l W 0 " @m PL R ~T
0x25c6c0…25c854 (2, 514) Dummy {f00=0x00c3, f01=0x0190, f02=» !Q Am 0 !Q Am !Q " !P " !P Nj Am _" Am Am !O !P % !Q R !Q !P < !Q @m 0 !Q P ! 9a DCN !Q P ! P ! T & !Q _d !P !P !Q !P 4 @ lT !P Am 2B 4B Am J P 4 @ lT B 4B J 4 A ? HBJ"T0 Am T 2P @m P !Q H
0x25c854…25c9e8 Dummy {f00=0x00c3, f01=0x0190, f02=» HB " P 1 P Am 4 Am P T !Q W " P H B2P !Q H( B2X _ _8 !Q ! 1 4 ? m* "P Y H X _ Am @m T H I" AQ AQ AQ AQ <a :a# P 4 Am !Q @Q !Q Am @Q :H T 4Q Z
0x25c9e8…25cb7c Dummy {f00=0x00c3, f01=0x0190, f02=»
[…0x11…]
0x25e650…25e7e4 Dummy {f00=0x00c3, f01=0x0190, f02=» :f"? Hl !Q "? Hl !Q 4 ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>?0123456789:#@'=" .
0x25e7e4…25e978 Dummy {f00=0x00c3, f01=0x0190, f02=» m C K nZ nd nt SO LO $GR 0
0x25e978…25eb0c Dummy {f00=0x00c3, f01=0x0190, f02=»
[…0x2…]
0x25ee34…25efc8 Dummy {f00=0x00c3, f01=0x0190, f02=» SO LO $GR 0
0x25efc8…25f15c Dummy {f00=0x00c3, f01=0x0190, f02=»
[…0x1…]
0x25f2f0…25f484 Dummy {f00=0x00c3, f01=0x0190, f02=» |v |~ | @|
0x25f484…25f618 Dummy {f00=0x00c3, f01=0x0190, f02=» d X * N T X # P X T. P& X ! Td R Y * Y * X * Y * TH Q T T( W Q, ^ T * T Q Y * N X(@ ? X *P, T P > T X " T2(@ 4 Y * > X P Y X " 2(@ d
0x25f618…25f7ac Dummy {f00=0x00c3, f01=0x0190, f02=» T@ VT> * T" X $ P W P # P Y * X " y X U X * Y * Y , X ? n0W ? s W A T 2 @P PV P U " T < U T H U T D&? U " z P " Z * T H U T L T E $ R Mya Lyd P L
0x25f7ac…25f940 Dummy {f00=0x00c3, f01=0x0190, f02=» H * H Y * T ( T R T D&? P '? Ly U " * X P " W X$ U " X $ * Y # { z6 XT U Q T N Q Q U " * X| U " Y , X " * Y (@ $ U B U @ > @ U 5 Q
0x25f940…25fad4 (2, 518) Dummy {f00=0x00c4, f01=0x0190, f02=» > An. R Dm X ~l_ > ?(@ U U U U <P H_ <P H_ T D ^ h h ! R> : r ) ) t R X Y , Y Y * Y _"_B T P 1W 2 d U U U U U 4 U @ $ VT U
0x25fad4…25fc68 Dummy {f00=0x00c4, f01=0x0190, f02=» RL t Z ; M r U 4 U < U 5 U 6 U @ VT * T t _P * (@ T P< P R X # y X D X *T Y * U (@ @ l @n. T T P T T U < T P T P W T P" ^ P
0x25fc68…25fdfc Dummy {f00=0x00c4, f01=0x0190, f02=» H p zv_R U * ; r - , - ! T t * $(@ > @ U 5 U ; U > U @ U B P U W * Q VP H * U @ U B X U > U 4 V * T T T T U > > > $ P - *
0x25fdfc…25ff90 Dummy {f00=0x00c4, f01=0x0190, f02=»% =A 8 P Tm > X , :i9eW X , :a9 " > ? P ! X ," >W P ! ! Y , > X , :d" ! W X , :d" ! ! Y - > W Q X ("? U 4 X )"? Q > ? P& ? T ; r - ,T - U > > > ? X # T W ? X (#?; L r > ! > > >
0x25ff90…260124 Dummy {f00=0x00c4, f01=0x0190, f02=» T R L $ T( L $ T " P W # T W $ P W P > ? ? T > > > < 1 = > < % 1 > <P < % > P ? 0 ] > > ? 1 ] > > ? W ? ;a<a Q ;A<A ) _ ;A<A ) > > d d @ t
0x260124…2602b8 Dummy {f00=0x00c4, f01=0x0190, f02=» Y6 G _f P ,P - _ H P ? W ? P P B Tn C 9 ! R& 8 )X T R $ (! P B _V B P _ _ 6 ? W ? W ?W ? _ B B ? ' V& T _ _P Z 8 ) _ ?W ? _ 8 T
0x2602b8…26044c Dummy {f00=0x00c4, f01=0x0190, f02=» J Y 8 X 6 Y . X .P Y 0WV Y 0WN X V$ Y X 6P " y 8_B Y 8W y 8 6 Y 0 Y 6W Y 0 Y 6 ! T X 0 Y / X .V. 0 X .$ ( P B V *@; V * ; V * Y . ! T X .R $ P _B ! T 29 R 9 6W 9 _ Y ! X 0_~ 0
0x26044c…2605e0 Dummy {f00=0x00c4, f01=0x0190, f02=» X 4Y U ! T$ ! T Y 4_@ < Y 0 Y 4 j Y 4W, B P B H " +P< Y 1 T P" ! T R X 2 Y 0U Y 0 _ Y 0 _* R _Q| B X / X 0$ %T Y 3V B V _ X 0 X /! R" Y /; ! ;h X /$ X 0 ! _p !
0x2605e0…260774 (2, 519) Dummy {f00=0x00c4, f01=0x0190, f02=» ! TF . " $ P X 1 X / . ! T N . ! TN ! TF < C X 0 C ! T0 2 B Y 0 ! . ! T Y 3U X 3 ! T :h Y 2U X 2 ! 4 B ! v Y 2 X " X Y v V < X 4P Y 4 ! pWF V>
0x260774…260908 Dummy {f00=0x00c4, f01=0x0190, f02=» ! _F ! ! X /# XZ X 0 ! ! Y /_r Y 3R X 3 ! T " ! T ! T 4 X ? L9 d9 X ' P P +P 9 R 9 9 V 9 2 " v X 0 ! X ' 0 X /" Y 0 Y / > X / X 0" Y 3Q Y / > Y ! X . P ! ! *0
0x260908…260a9c Dummy {f00=0x00c4, f01=0x0190, f02=» . $$ X " X /# Y / P Y M P ^ . L @ L X X ! f ! 2 ! v P ! v P _ ! v_, ! v_D ! P P ! v 4 ! ! v X . T +P B ! v Y J PB PTWF X JP ! 6
0x260a9c…260c30 Dummy {f00=0x00c4, f01=0x0190, f02=» P ! v ! v ! W6 Z* _R /P C _: . ! v X " T Y J_T Y L_Z Y R 2 . ! f B <hP. Y P Y 6 ! v 6 ! ! v B $ P YN P Y 4 Y " ! v ! X PP8 Y P ! 6 Y 2 Y 4 0 ! 6 Y 6 6 !
0x260c30…260dc4 Dummy {f00=0x00c4, f01=0x0190, f02=» ! " ! P 0 : P Y ? _$ X ? X 0P y 0 Y 0 4 dR d R _ 00,0: " 4 X . P Y . 4! . 2 Y 0_ Y B Y @ X @ ," :HR, 0 P :h ! v Y @_" X B , ! v Y B_ 4 :h 0 :C ! 41215182425303335364850
0x260dc4…260f58 Dummy {f00=0x00c4, f01=0x0190, f02=»
[…0x4…]
0x2615a8…26173c Dummy {f00=0x00c4, f01=0x0190, f02=» B P P 3T Y W T Z P X ( ( 7 Z& ( P H R H P ' Pt DTt ' P B ]` F U F ]n @ P U W. C G H L C X L
0x26173c…2618d0 Dummy {f00=0x00c4, f01=0x0190, f02=» @ DP ( A D _ ( Y _ F _l X T @ FP ( A F _ ( Y _ D_0 i _ _ H DP FP $ $ - )W ) $P e % > ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ
0x2618d0…261a64 Dummy {f00=0x00c4, f01=0x0190, f02=»]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSS J J J J Jy y J J J J J Jy y J J J J J Jz z J J J J J Jz z J
0x261a64…261bf8 Dummy {f00=0x00c4, f01=0x0190, f02=» Y > p X ! 9 D W z W z(@ 4 Y Y Y Y $ & > X X X X $ & > ? R* & X X P X( _. ?(@ " X '? X D X T X ? P >A D V 8P X ?!W > >?A P >A D
0x261bf8…261d8c Dummy {f00=0x00c4, f01=0x0190, f02=» ^ 4 _ $ $ @ ^ 1 A ^ _ P 9 > >' "?:B ] P P H U _ T U P U H;C ,$ T -_> - _H "Rf ` P^ X TX X PJ X RD< V X 0 X L T p P* X P H Y 9 C " X H < ?
0x261d8c…261f20 Dummy {f00=0x00c4, f01=0x0190, f02=» ?_" = > = > = _D X _F R _ 00 > & <h$ P > n ~ n ~ . > N ^ 0123456789 - ' < +,-. 0123456789 'ABCDEFGHIJKLMNOPQRSTUVWXYZ []^ 0123456789 -
0x261f20…2620b4 (2, 521) Dummy {f00=0x00c4, f01=0x0190, f02=» 6 $ X C b(@ U RL -P . X < X :P $$ P V X : % Y :(@ b p ) _* X . P Y . v B B % X < $ 4 T %(@ X :P" Y < X :P Y .(@W Y ._ ! (@" ! 9 Y . XV VP Rz P P 9
0x2620b4…262248 Dummy {f00=0x00c4, f01=0x0190, f02=» , X 6P X 4 $P <c $P $ $ V ! z B ,W" B P $$ R % C Wv ? X . T 9 V _W W 9 R "? 9 0 R Q > ! z B , W8 > ! B T ! X^ , C 2" X : $4 P X <Tt 1 pRr p Y / X :
0x262248…2623dc Dummy {f00=0x00c4, f01=0x0190, f02=» B % > HT > > >T H > P , _ W , X < X :P Y < 0 %_ % Y < (@ X Y :_( $ X p< 6 X 0 P L X " A A A A A A | - M 4 @ " A. v
0x2623dc…262570 Dummy {f00=0x00c4, f01=0x0190, f02=» A & @ f @ $ A P A @ | ~ @ | $ A A @ @ @ E E E E E A & E @ F CRP <A COP <A BAP AS<A E ASP @ T ( A ASP F @ U A AS F P ( F F ;j
0x262570…262704 Dummy {f00=0x00c4, f01=0x0190, f02=»R W$ R Q R< 9 WJ P R* 9 P4:l P R R 9_ ( ( P :L AST A A E E A A 8 P W 89B @ V W Zb A @ @ A A @ D AS @ A W l @
0x262704…262898 Dummy {f00=0x00c4, f01=0x0190, f02=» t @ @ A @ L P :l l 9b ) V l_ @ A A ~ L A A E @ < V4 @ R, U < 8 !RRT A " @ Pf A A @ > V T P T
0x262898…262a2c Dummy {f00=0x00c4, f01=0x0190, f02=» < 9B A : " A @ A @ | E A @ V @ P A @ $ A A r ( ~ @ 00P& ~ @ _0 @ 00P ~ _
0x262a2c…262bc0 Dummy {f00=0x00c4, f01=0x0190, f02=» P T TT A l A , @ ! P S A 1 A { @ f @ P " T . @ R T @ ! T @ .A @ r @ @ I A p @ A r @ p A p @ P @ A @ r D $ ) @ 0 !;;P P @ P@ _ P
0x262bc0…262d54 (2, 522) Dummy {f00=0x00c5, f01=0x0190, f02=»LLP& !RRP !AAP !SSP !PPP !VVP !QQP W W P W A 0 !;;T : 0 !00R !99U !AAR !ZZQ 0 !;;T : : : > : B : F : L : P : 0 )TV : !00T A : 0 !99Q0 !00R*P P =H_ :TID=TCL=LEV=TDC=T0LC=0SDC=S0
0x262d54…262ee8 Dummy {f00=0x00c5, f01=0x0190, f02=» A * " Z0X X._D! A A A A ! T W A A A 4 D A ~ A F 0 A : A A : @ @ ! P V :AW 9E R _ <e @ $ T 9A $ < :B 9A) @ *P A * A I Td W 9D @ @ &r s @ $A I T -
0x262ee8…26307c Dummy {f00=0x00c5, f01=0x0190, f02=» P(_ P =H P @ T X A : Y h C !CCTr B. ^ X B.9 H . A _ !SSTF 0 U 8 J X X A t A v X X S W A x A z A : & V W, Q( T W& @ T R P @
0x26307c…263210 Dummy {f00=0x00c5, f01=0x0190, f02=» @ | 0 A;T ( P T _* @ f @ | ` | P A : V T 0 !;;P 0 !;; V V - a | =! 0 - Y : 8 0 ! P P Y V_0 L Q
0x263210…2633a4 Dummy {f00=0x00c5, f01=0x0190, f02=» 7 ( W $SWAP v @ 4 4 ZP t A Z t A WL , P@ , - 4 ] 4 Y 5 X * _6 : @ % @ @ 4 6 R6 r . !TTP ( V Y ( !TTX _: :
0x2633a4…263538 Dummy {f00=0x00c5, f01=0x0190, f02=» S S _* : A A A V A N =H N A @ T CRT N =H N A N =H N A , @ %!5!T W @ = V W = V f P0 " U ( _2 v P0
0x263538…2636cc Dummy {f00=0x00c5, f01=0x0190, f02=» @ " S @ S A @ S T CRT @ S A A _ ( !TTT @ rP @ @ a : 8 rT ` @ W H A h J AS BAT :a A K @ ;C W @ " P " J ;C U
0x2636cc…263860 Dummy {f00=0x00c5, f01=0x0190, f02=» S J Rh # 9h !RRP @ ! T W* J S W J U ( 3 S S S _p P " I _ @ P < : A A H V A * f P _ v Pd A
0x263860…2639f4 (2, 523) Dummy {f00=0x00c5, f01=0x0190, f02=»Y % @ : A @ T @ A A H A V A f P~ A ( A @ @ < F !AAT T B YP G 9h G G @ P A _l @ A @ Y ( !TTX rY : ( !TTX
0x2639f4…263b88 Dummy {f00=0x00c5, f01=0x0190, f02=» _. rY ( !TTX @ @ @ ! P @ 8 8 8 3 U ( . !TTT (_ !CCP R rY W V P0 A A @ @ < @ _2 v ]X @ 8 8 8 4 D P$ @ # P
0x263b88…263d1c Dummy {f00=0x00c5, f01=0x0190, f02=» F !SST WN !AAT WB !VVT W6 !PPT W* !LLT dW !RRT lW !QQP ( , A A A @ 0 PV @ P P 0 _ P H (&? @ #? H & D # * H D > R @ D @ @ ) I ( D #@PV D L Tp D 0
0x263d1c…263eb0 Dummy {f00=0x00c5, f01=0x0190, f02=»% PD H I H T P( H U @ ~U A ~ < + + P @ : ` P: @ @ @ D (P W H $ I 0 % E , a : @ Q A % @ B A A A A F @ @ P A @ E A
0x263eb0…264044 Dummy {f00=0x00c5, f01=0x0190, f02=» ( ( QZ RT D (%? # ;H ;D &`>e : Q* R$ D (%? # ;H ;D &`>e : ( ( ( P< r A V R A @ _ S : 0 N N !TTP 9H N A V A & N 9H N A
0x264044…2641d8 Dummy {f00=0x00c5, f01=0x0190, f02=» P @ # _R @ 0=H A B PT N !DDPJ !SSP" A " B P, N !SST" V A $ P Y (9A *_ : @ " 9a @ $ 3 V ( : @ 9 @ 9 9@ @ " :HP @ U W 9 9@
0x2641d8…26436c Dummy {f00=0x00c5, f01=0x0190, f02=» ! : ( N PD ! P8 !==P( !NNP2 !SSP, U ( - _> _H : P AAT : N =H N : N =H N : &=H F : F =H F : ? ? f > > : P N =H N T V (_ : @ ! P (W ( : @
0x26436c…264500 Dummy {f00=0x00c5, f01=0x0190, f02=» * PF J # P _ :d Y @ Z A P T _: @ 2T P _ / : .P W P A .X @ P T :D * J TT J & P T .& >aW T (& P T &@P @ 9 A
0x264500…264694 (2, 524) Dummy {f00=0x00c5, f01=0x0190, f02=» @ T ( : dR d R _ 00)0= % : @ H ;l H :lT ;A P 5 _ ` R - _ : @ 4 A 6 A r : @ A P @ A @ @ : . ! T ( ! . : R (
0x264694…264828 Dummy {f00=0x00c5, f01=0x0190, f02=» @ $ @ A 6 @ A 8 d H d H K 2 ;A @ R V R ( - @ R - $ N !TTP ( N :H N TBT K W8 2 " T @ ( X 2 N =H N @ R ) ( !TTXX !CCT , !UUT Z @ R K (9A A R
0x264828…2649bc Dummy {f00=0x00c5, f01=0x0190, f02=» @ R 4 @ A > A ::b l / A R A D A F @ p A & A @ CR @ D G " F * E H K @ & " A ( J (P6 " 4X 1 R Z0 . . _ k
0x2649bc…264b50 Dummy {f00=0x00c5, f01=0x0190, f02=» @ r @ p A r b A CR T @ 6 A @ 8 A j @ A < D J @ & >k l 8 A A 6 Q R 8 V ( ;k , @ 6T A , @ 8P( U U A , K l A A J
0x264b50…264ce4 Dummy {f00=0x00c5, f01=0x0190, f02=» @ < G l ` ) - J ` 4 l K ` ) G ` " A ( A N (P0 0 R P < _ A N R X4 < _ J PJ l I H I $ @ < D ` E , D H C ` J j A X A N (Pn
0x264ce4…264e78 Dummy {f00=0x00c5, f01=0x0190, f02=» A J _ A L (P H - V l I " R E R R T E D E @ < H ` H ` E , #_ A * @ & 9k l $ A A J ` ( ` A ( J $ K T J J V V
0x264e78…26500c Dummy {f00=0x00c5, f01=0x0190, f02=» , = G $ @ A $ @ E " L M _V P* & &X ' $ @ < H T H _4 A L A * @ ,T2 @ A 6 @ A 8 @ @ :B A @ 9n A V @ @ ,P J V @ 8 A @ 6 A A , K : @ "<B A T *
0x26500c…2651a0 Dummy {f00=0x00c5, f01=0x0190, f02=» R RV > R W > <B @ J @ *P ` 1 ` A P @ L ` 4 _j @ 0 4 : A . R R P A J _ @ . : " D PH A . @ .P. D X D P H E _( l E _6 " D T E l E D
0x2651a0…265334 (2, 525) Dummy {f00=0x00c5, f01=0x0190, f02=» B ` 4 : @ "P 9a _ " ( ) 8 ( ) : " $ @ "P 9A _ @ : A " W A "?AP ^ @ : 4P: " D , H H $ M j - I Y0 : @ : R 2 A B @ (T : N @ @ A Z H @ "]" T 2 . BT" A H A B @ N
0x265334…2654c8 Dummy {f00=0x00c5, f01=0x0190, f02=»U ` G ` : P V : @ NP A J _$ 8 @ T @ J % @ H % : @ WN B W @ > " B ; Z [ : : [ [ :
0x2654c8…26565c Dummy {f00=0x00c5, f01=0x0190, f02=» x A @ @ ` p R0 A @ A ^B _F 9o @ ~ ~_X < : 8 @ J P V U _ V Z K A A :K A Q R V ( T @ P < @ ` :
0x26565c…2657f0 Dummy {f00=0x00c5, f01=0x0190, f02=» V @ ( 0 H A : @ <m @ 0 ;l R 9d_ ;b# R 9a_ @ @ 1 R U W 9a P _" : P _ : @ | ` |U WP L P _ @ P _" l 0 W r P . ! A
0x2657f0…265984 Dummy {f00=0x00c5, f01=0x0190, f02=»" R _ ZY QY : L ? ? ` R 0 R P P _ 6 : V ) ` : R @ @ ! @ P P P P _ _ @ @ :b @ :b V W U4 T 9BW P
0x265984…265b18 Dummy {f00=0x00c5, f01=0x0190, f02=» .V 3 S S :b Y* AST" ? ? > | T ] ] W 9l ] 9A ] 9k! ] Y P: P4 0 0 S @ P 3 _ 0 3 2 | Z A. @ @ W A
0x265b18…265cac Dummy {f00=0x00c5, f01=0x0190, f02=» P t Q a b , A H , @ H B DC @ r tKB ` 0 d L L
0x265cac…265e40 Dummy {f00=0x00c5, f01=0x0190, f02=» P ` GP @ r tKB 0 d
0x265e40…265fd4 (2, 526) Dummy {f00=0x0167, f01=0x0190, f02=»
0x265fd4…266168 Dummy {f00=0x0167, f01=0x0190, f02=» : d v , ( R d R _ 00)0= , ( % : @ H ;l H :lT F , ( ;A ( ( P 5 v , ( _ ` R - _ : @ A , ( D : A : @ :
0x266168…2662fc Dummy {f00=0x0167, f01=0x0190, f02=» R t MOVEN , ( "D Y b $ , ( U : ~ V T P 0 H D !d P 0 ) 0 /WL 9P@ R6 P P P # P 7V SP( [T H D ! T d T W V W
0x2662fc…266490 Dummy {f00=0x0167, f01=0x0190, f02=» Q Y kRh s P T W* S W U P H D !v P # " 'P + @ I 2 QPd Y @ sP$ { t P . T < H D ! " P~ + @ A P MT YT gP o P . Tr P, H D ! @ U 2 P, # @ 1U O . U sP U T P
0x266490…266624 Dummy {f00=0x0167, f01=0x0190, f02=» W T ( W P 3PV l H D !x( =P | t PV Tp P T P6 W( W" V T ( H D ! 7PD SP( qU P P: P W Q #P GQ i m wP Q t H D ! f QZ RT Q* R$ 5P< I QR ] t P P T P
0x266624…2667b8 Dummy {f00=0x0167, f01=0x413a, f02=» kP qT R X H D ! R P Q PD P8 P( P2 P, U P T qP T P W P H D ! Q P P$ P P %PF 1P SP YT wT {P P W P ` H D ! P T TT P W P P %W 7P AP IP YP iT mP T R ( $ R T P
0x2667b8…26694c Dummy {f00=0x0167, f01=0x8190, f02=» > @ IDENT SYSPRO REL 11.0 81-02-23 870105041100 F B SCTMSZ SCTSFA SCTEFA SCTIPL SCTANO SCTTCT SCTCDT SCTPAG F F B SCTNOP SCTPSZ SCTSTB SCTOPT SCTBUG SCTDMT SCTDMI SCTFWT F B SCTNOF SCTNFT SCTFWL SCTBLK SCTDCT SCT
0x26694c…266ae0 Dummy {f00=0x0167, f01=0x8190, f02=» SWB:EL SWB:NS STKEND STKCOM n F B STKMOV ACBIOE ACBSWB ACBSEG ACBNPE ACBMMP ACBMMC ACBLAP ( & " ACBLAC ACBSTA ACBREL ACBADA r SEG:FC SEG:NS SEG:ST SEG:DS SEG:EL SEG:P
0x266ae0…266c74 (2, 527) Opaque[0x194]
0x266c74…266e08 # DirEnt {nam=»FILLER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18c0, f03=0x0000}
0x266c74…266e08 IdxSect {
0x266c74…266e08 f00 = 0x00c6 // 0x266c74 @0x0
0x266c74…266e08 f01 = 0x0002 // 0x266c76 @0x2
0x266c74…266e08 gno = [ // 0x266c78 @0x4
0x266c74…266e08 [0x00]: C0x00c6.0x0.0
0x266c74…266e08 ]
0x266c74…266e08 }
0x266e08…266f9c Dummy {f00=0x00c6, f01=0x4048, f02=» IDENT FILLER DK 82-04-14 RES 50 & END 6@ DC FILLER F PNOD AM X PINC SYSLOD f PINC SYSLDM x PINC SYSLCR PINC SYSINI PLKE M PKPF /L,PT2MON P$PDISC M=PT2MON PASG /E0,TY10 4 HMES 1 M,
0x266f9c…267130 Dummy {f00=0x00c6, f01=0x2008, f02=» NT FILLER DK 82-04-14 RES 50 & END 6@ DC FILLER F PNOD AM X PINC SYSLOD f PINC SYSLDM x PINC SYSLCR PINC SYSINI PLKE M PKPF /L,PT2MON P$PDISC M=PT2MON PASG /E0,TY10 4 HMES 1 M,
0x267130…2672c4 Dummy {f00=0x00c6, f01=0x0190, f02=» P A A x , ( . , + - ; # , ( $ : X " H W X " H TTB:AP x ACBRELA , ( * 9 H H A W W L , ( W@ H A A _p @ P A 1+ , ( !T u X A
0x2672c4…267458 Dummy {f00=0x00c6, f01=0x0190, f02=»NDTID , ( ! ? > " @ , ( D @ T " ( ^ @ P > , ( R A A " @ T @ n , ( 3 W @ A W W 0 , ( $ S _, W W , ( s
0x267458…2675ec Dummy {f00=0x00c6, f01=0x0190, f02=» _` A , ( @ T @ W @ T @ W @ @ . , ( >a @ A ^ , ( 3 A , ( S ;a ]@ 1 _L W @ , ( s $ 0
0x2675ec…267780 Dummy {f00=0x00c6, f01=0x0190, f02=» @ Q A @ ~ , ( BT A " T @ W @ A , ( ! A P @ _2 N , ( 3 T 0 P P ~ , ( S _ @ @ , ( P s @ @ P
0x267780…267914 (2, 528) Opaque[0x194]
0x267914…267aa8 # DirEnt {nam=»PTMON «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0998, f03=0x0000}
0x267914…267aa8 IdxSect {
0x267914…267aa8 f00 = 0x004c // 0x267914 @0x0
0x267914…267aa8 f01 = 0x0028 // 0x267916 @0x2
0x267914…267aa8 gno = [ // 0x267918 @0x4
0x267914…267aa8 [0x00]: C0x004c.0x3.0
0x267914…267aa8 [0x01]: C0x004d.0x0.0
0x267914…267aa8 [0x02]: C0x004d.0x1.0
0x267914…267aa8 [0x03]: C0x004d.0x2.0
0x267914…267aa8 [0x04]: C0x004d.0x3.0
0x267914…267aa8 [0x05]: C0x004e.0x0.0
0x267914…267aa8 [0x06]: C0x004e.0x1.0
0x267914…267aa8 [0x07]: C0x004e.0x2.0
0x267914…267aa8 [0x08]: C0x004e.0x3.0
0x267914…267aa8 [0x09]: C0x004f.0x0.0
0x267914…267aa8 [0x0a]: C0x004f.0x1.0
0x267914…267aa8 [0x0b]: C0x004f.0x2.0
0x267914…267aa8 [0x0c]: C0x004f.0x3.0
0x267914…267aa8 [0x0d]: C0x0050.0x0.0
0x267914…267aa8 [0x0e]: C0x0050.0x1.0
0x267914…267aa8 [0x0f]: C0x0050.0x2.0
0x267914…267aa8 [0x10]: C0x0050.0x3.0
0x267914…267aa8 [0x11]: C0x0051.0x0.0
0x267914…267aa8 [0x12]: C0x0165.0x3.0
0x267914…267aa8 [0x13]: C0x0166.0x0.0
0x267914…267aa8 ]
0x267914…267aa8 }
0x267aa8…267c3c Dummy {f00=0x004c, f01=0x0190, f02=» 4 b j P %P% O P {b {Z{b @
0x267c3c…267dd0 Dummy {f00=0x004c, f01=0x0190, f02=» _ A :U A A " @ ~ A h A ~ @ A < A @ A L A @ A X A @ A A
0x267dd0…267f64 Dummy {f00=0x004c, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ j S A _ @ T :a R T <a Z
0x267f64…2680f8 Dummy {f00=0x004c, f01=0x0190, f02=» S v T 8 Y D G P ( H L V > I z U z _v A t_ NO! A A A A A A A A *T A _ P A A . * , : + n - n ; # R $ X : X " H W* X " H H A W W L H A A _p
0x2680f8…26828c Dummy {f00=0x004c, f01=0x0190, f02=» < > " @ @ T " ( ^ @ P A A " @ $T @ tW @ A t W W 0 _, W W Pf @ & 0 T* A P P V W _x _`
0x26828c…268420 Dummy {f00=0x004c, f01=0x0190, f02=» $ ;a ]@ 1 $ _L W @ $ 0 W $ A W @ A P 3P C @ P @ @ P @ Q A $ @ A " T @ W @ A F A $P l @ _2 l $T * 0 P fP _
0x268420…2685b4 (2, 529) Dummy {f00=0x004d, f01=0x0190, f02=» & A *<a P j A ) " A H A @ & @ @ T A A P@ @ PB @ ! T A @ A # A $ RE bRN cME nMN o W R, ( T ( W P T $ ; V ;
0x2685b4…268748 Dummy {f00=0x004d, f01=0x0190, f02=» Y W Y Y @ " P$ @ = ] ] ] W A A A W ^ P _ " ^ T @ 9J A T _ 1@ _ ^ 9 V >! D A A > > > > > > > > ^ _ ^ _ ? ? ? ? ? A D ^ @ ?
0x268748…2688dc Dummy {f00=0x004d, f01=0x0190, f02=» A ^ " , , A A :B A Q (P _ # # H A " A F 0R$ 9U AR FQ 0:D A F _* A F " A p A r T A r A p " R _U . " A : A " A A $ T !
0x2688dc…268a70 Dummy {f00=0x004d, f01=0x0190, f02=» < H > " ! R :W" W W W ?W /W : A W ! A A PL _ " @ _ I T " T A P I T$! A A A A A A A A A F
0x268a70…268c04 Dummy {f00=0x004d, f01=0x0190, f02=» A P A < V A > > " @ A W XW ^ ! Z2 (X: @ P T M ]J , ) A P* P Y U ( ) 5 & > > [ [ Z Z Z ? Z > A _ @ > > U # T @ 8 H ( ( P c P W6 A
0x268c04…268d98 Dummy {f00=0x004d, f01=0x0190, f02=» XB ) A A _N A A h A _` A A Q > ? A F A Q _ A < Q P Q R Y _ A _0 8 Q Z P 0 9 _ _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ $P T
0x268d98…268f2c Dummy {f00=0x004d, f01=0x0190, f02=» U T P 0 U _h ? @ T 0 A 1 Q Q > > 0 @ 1 A P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @mfV ? mf > _ > ? _ > > ? ^ ! Y ^ _
0x268f2c…2690c0 Dummy {f00=0x004d, f01=0x0190, f02=» p $ ( , 0 4 8 < C C T 8P Y ^ 5 ) P U XJ XF Y @ P R T X 0P Xh I Y T # C C W4 O " # X Y ) C C
0x2690c0…269254 (2, 530) Dummy {f00=0x004d, f01=0x0190, f02=» X $? P $ > > F C F C > B R Q F ! P C > C > F 8D D ! 9b8d9D # C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x269254…2693e8 Dummy {f00=0x004d, f01=0x0190, f02=»P PL $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ ^ > > ? _ X T (@ X L U L Q4 M X L P ( L ) 1_f _& ?
0x2693e8…26957c Dummy {f00=0x004d, f01=0x0190, f02=» P (@ " ^ X P, P$ # P( T P 0 1 " Y > > X_ T R L U 9C _ T M D W2 D D " T X X - U _ 9B X T u X > & 8 r BHBB &
0x26957c…269710 Dummy {f00=0x004d, f01=0x0190, f02=» 8 < 9 ^ - Z B H & " " P> ] ] V ] ] < " P H r:H ! D r = $ X B P $ ] "P( R^ X ] " Y 2 P X Z& _. P !%2 !%J B = ] @B P aB AB ] ]
0x269710…2698a4 Dummy {f00=0x004d, f01=0x0190, f02=»W H I Y Y Y 2 Y " X P Y $ @B T ` X 2 $ "P4 T X Y 2 ] "_( T P X U Y 2_F B T X 2:D :D :D C $ X 2 X * $ B ! T X ! P $ Y $ B Y " $ X 2
0x2698a4…269a38 Dummy {f00=0x004d, f01=0x0190, f02=» C 0P Y * W @ W @W W W W W > > , L Q , L X "R P A X 2 h Y $ z W> Y $W6 X "Z X A 2 Y $_. Y $ @B T AB AB X $P y $ Y $ z & (P 0 ) z & (P _ ) 1_ * $X 0 %
0x269a38…269bcc Dummy {f00=0x004d, f01=0x0190, f02=»W > BJ ] ] aB 4 2 X AB _< 2 AB 4 AB BJ !%2 @B P !#j ! B @B P % AB 4 2 !% !%2 BJ ] !% !%2 ] " P ] B AB AB !% !&6T. * v
0x269bcc…269d60 Dummy {f00=0x004d, f01=0x0190, f02=» P "P, !"< @B T( PV ! X ! T4 X RD X ! PBW8 @B P ! !#j ! B ! @B P & !$ ! AB B @B T !#f_ ( T _ B AB 8 C B B AB AB AB AB AB !# ! AB _ !"< T BJ @B X ! P !#T B# T @& T !#P_ !"X AB !#B_$ !
0x269d60…269ef4 (2, 531) Dummy {f00=0x004d, f01=0x0190, f02=»&& X8_` AB @& @B T 1 T P 2P P P @B P X 2P AB 8 H r @& P E X R. X P T" P C X P < C P " H r" P X * Y X V ! 4W* X T X *P W ! 4 X T X ! P !#PW !#B B AB @B X 0 AB A
0x269ef4…26a088 Dummy {f00=0x004d, f01=0x0190, f02=»#j ! _X /T, @B X @B P @B T0 !"r !#f AB _ AB @ B AB @B T _2 _6 @B , AB AB X ! XD Y _N "P -P L _ 4 AB AB H r E AB AB 4 @B P* X R$ X " T X *P AB AB 4 @& @B T @B AB @B AB AB
0x26a088…26a21c Dummy {f00=0x004d, f01=0x0190, f02=»_p / AB T W ,W @ AB AB W W W AB AB !% @B !&4 @B !&4 !& !& !%J 4 !% !% @B @B AB @B T* < !&4 @B ( !&4 @B P - !&4 x . !A W 0 " @B PL R ~T }T T0 W, !&4 P " ! " :A *@ H r T 0 !&4 W R !&4
0x26a21c…26a3b0 Dummy {f00=0x004d, f01=0x0190, f02=» % !&4 R !&4 !% < !&4 @B 0 !&4 P ! 9a D n !&4 P ! P ! T & !&4_d !%2 !%@ !&& !% 4 @ T !%2 AB 2B 4B AB J P 4 @ T B 4B J 4 A ? bJ T0 AB T 2P @B P !&| H r AB AB ] 4 !% B A ? b 4J "#T @B P6R" 2B W," P @
0x26a3b0…26a544 Dummy {f00=0x004d, f01=0x0190, f02=»X _ _8 !&& ! 1 4 ? BJ "P Y $ X _ AB @B T B A& A& A& A& <a :a# P 4 AB !&& @& !&& AB @& :H T 4& /
0x26a544…26a6d8 Dummy {f00=0x004d, f01=0x0190, f02=»
[…0xa…]
0x26b6a0…26b834 (2, 533) Dummy {f00=0x004e, f01=0x0190, f02=»
[…0x6…]
0x26c1ac…26c340 Dummy {f00=0x004e, f01=0x0190, f02=»+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>?0123456789:#@'=" . BHBB CHC Q X $P
0x26c340…26c4d4 (2, 534) Dummy {f00=0x004e, f01=0x0190, f02=»C C C C P> F ] ] V ] ] F < " P H r:H ! D r = Ht F F X B P F F F ] "P( R^ X ] " G^ Y 2 P X Z& _. P C !O !O B = ] @mbP amb Amb ] ] F B F F
0x26c4d4…26c668 Dummy {f00=0x004e, f01=0x0190, f02=» Y " X P Y G @mbT H" C X 2 F "P4 T G^ X Y 2 ] "_( T P G^ X U Y 2_F F B T X 2:D :D :D C F F X 2 F X * F B ! T X ! P G Y F F B Y " F X 2 F F F X " P F
0x26c668…26c7fc Dummy {f00=0x004e, f01=0x0190, f02=» W @ W @W W W W W > > , L Q , L X "R P AF 2F Y $ G W> Y $W6 X "Z X AG 2G Y $_. Y $ G @m< T Am> Am< F X $P y $ Y $ G Q (P 0 ) G Q (P _ ) 1_ * $X 0 % GJ_ m ( (P _ ) 1_@
0x26c7fc…26c990 Dummy {f00=0x004e, f01=0x0190, f02=» > C l ] H" ] amb 4 2G X Amb_< 2HB AmZ 4 AmZ C l !O @m>P !M !H2 H @mZP % AmZ 4 2H C !O !O l ] C !O !O ] " P ] H" H C AmJ AmL !O !P T. F H I I J~ JX K L& K AmD C !
0x26c990…26cb24 Dummy {f00=0x004e, f01=0x0190, f02=» X ! T4 X RD X ! PBW8 @m>P !Hf !M !H2 H !H @mXP & !O" !H2 Am> H @m T !M _ ( T G _ mN Am< cf C B B AmP AmR AmT AmB AmD !N !H2 Am>_ !L T l @m> X ! P !M H # T @Q T !M _ !L AmV !M _$ !Hf AmF @m>P @m<P !L Am> A
0x26cb24…26ccb8 Dummy {f00=0x004e, f01=0x0190, f02=» 1 T P 2P P P @m: P X 2P AmT G8 8 H r @Q P E X R. X P T" P C X P < C G& P " H r" P X * Y X V !G W* X T X *P W !G X T X ! P !M W !M H Am@ @m: X 0 AmF Am< AmH I !Hf @m>T @m@P
0x26ccb8…26ce4c Dummy {f00=0x004e, f01=0x0190, f02=» @mDT0 !L !M AmF_ AmH I @ B Am> @mBT _2 _6 @m< G AmD Am> X ! XD Y _N "P -P L _ 4 Am@ AmT H r E AmD Am: 4 @m<P* X R$ X " T X *P G& G Am> Am< 4 @Q @mDT @mV AmT @mT AmV AmD !P T8 P: PN PP
0x26ce4c…26cfe0 Dummy {f00=0x004e, f01=0x0190, f02=» Am_W W W Am^ Am_ !O~ @m^ !P @m_ !P !P !P !O 4 !O~ !Pz @mP @mT AmV @mTT* < !P @m< ( !P @mFP - !P x . !lj W 0 " @mFPL R ~T }T T0 W, !P P " ! " :A *@ H r T 0 !P W R !P AmT @mR @mTUH Zx Q
0x26cfe0…26d174 (2, 535) Dummy {f00=0x004e, f01=0x0190, f02=»m< 0 !P P ! 9a DB !P P ! P ! T & !P _d !O !O !P !Pz 4 @ T !O Amd 2B 4B AmdJ P 4 @ T B 4B J 4 A ? G J"T0 AmJT 2P @m@P !P H r Amd Am` ] 4 !P H A ? G 4J "#T @mdP6R" 2B W," P @mdP"W ] " P H " P
0x26d174…26d308 Dummy {f00=0x004e, f01=0x0190, f02=» "P Y G X _ Amd @mbT H" H AQ$ AQ( AQ, AQ0 <a :a# P 4 AmJ !P @Q( !P AmJ @Q(:H T 4Q^Zb
0x26d308…26d49c Dummy {f00=0x004e, f01=0x0190, f02=»
[…0xd…]
0x26e920…26eab4 (2, 537) Dummy {f00=0x004f, f01=0x0190, f02=»
[…0x3…]
0x26ef70…26f104 Dummy {f00=0x004f, f01=0x0190, f02=»|,%_>?0123456789:#@'=" . &DP } m sd m m m m m m m m
0x26f104…26f298 Dummy {f00=0x004f, f01=0x0190, f02=» LO $GR 0
0x26f298…26f42c Dummy {f00=0x004f, f01=0x0190, f02=»
[…0x1…]
0x26f5c0…26f754 (2, 538) Dummy {f00=0x004f, f01=0x0190, f02=» m~ N C K s s s
0x26f754…26f8e8 Dummy {f00=0x004f, f01=0x0190, f02=»
[…0x2…]
0x26fc10…26fda4 Dummy {f00=0x004f, f01=0x0190, f02=» | | |" @|6 A|6 | | | | } | }.| |Z|^|Z|^|j|Z|| ? X *P R >W > Y Y Y * P W
0x26fda4…26ff38 Dummy {f00=0x004f, f01=0x0190, f02=» RT( W Q, ^ RT < T Q Y * (@ ? X *P, T P > T X " T2(@ 4 v Y * > X P Y X " 2(@ P X * &T Y T (@ X * U B U @ A X T @" P W Q U ; U 5
0x26ff38…2700cc Dummy {f00=0x004f, f01=0x0190, f02=»W ? sdW A T 2 @P PV P $ U " T U T H U T D&? U " z P $ " T H U T L T E $ R Mx Ly P $ Lx U " $ U " ~ U " B U " T T X ("? T K' T R U " y. U " v Y *
0x2700cc…270260 Dummy {f00=0x004f, f01=0x0190, f02=» 8X$ U " v X $ Y # {4 y 8XT U Q T N Q Q U " 8X| U " v Y , X " Y (@ 4 U B U @ @ U 5 Q U ; U < U > X " P4 6T. T, X " P Y # {4 y z U H @m T
0x270260…2703f4 (2, 539) Dummy {f00=0x004f, f01=0x0190, f02=» D ^ h h ! R> : r ) ) t R 8X Y , Y Y * Y _"_B T P 1W 2~ d U U U U U 4 U @ $ T U T U T U 6:A U T T ( U B U 4 U @ U > U Tz Tr T U U T
0x2703f4…270588 Dummy {f00=0x004f, f01=0x0190, f02=» T P< P R X # y` X D X *T Y * U v l (@ @ @m T T P T T U T P T RP W T P" ^ RP H z T T h R | ; r t , RN 8X Y , X Y " P # {4 y X
0x270588…27071c Dummy {f00=0x004f, f01=0x0190, f02=» U ; U > U @ U B &P U W * Q P H U @ U B X U > U 4 T T T T U > > > P - < H > > @ @m T T U S $ U ? T T U > > ? t >
0x27071c…2708b0 Dummy {f00=0x004f, f01=0x0190, f02=» W X , :d" ! ! Y - > W Q X ("? U 4 X )"? Q > ? P& ? T ; r - ,T - U > > > ? X # T W ? X (#?; L r > ! > > > Z _ Q Q " Q > ? P t > > P P R$ Q (" W P P V Q % W
0x2708b0…270a44 Dummy {f00=0x004f, f01=0x0190, f02=» > > < 1 = > < % 1 > <P < % > P ? 0 ] > > ? 1 ] > > ? W ? ;a<a Q ;A<A ) _ ;A<A ) > > P "R Y < Pp " T T Pb <UR "R4 PB X R< X T6 X T0.
0x270a44…270bd8 Dummy {f00=0x004f, f01=0x0190, f02=» R& 8 )X T R $ (! P B _V B P _ _ ? W ? W ?W ? _ B B ? ' V& T _ _P Z 8 ) _ ?W ? _ 8 T 0 9Xz Y _~ ?W ? _*" /] Z 8_ B X .R $ # ;D !99P 7P Pt Y
0x270bd8…270d6c Dummy {f00=0x004f, f01=0x0190, f02=» Y 0 Y 6W Y 0 Y 6 ! hT X 0 Y / X .V. 0 X .$ ( P B V *@; V * ; V * Y . ! zT X .R $ P _B ! T 9 R 9 W 9 _ Y ! h X 0_~ V = r ~ Y 4 ! hT P P, P & d ! ! zT X 0 C U8 !
0x270d6c…270f00 Dummy {f00=0x004f, f01=0x0190, f02=» P" ! zT R X 2 Y 0U Y 0 _ Y 0 _* R _Q| B X / X 0$ %T Y 3V B V _ X 0 X /! R" Y /; ! Z ;h X /$ X 0 ! ._p ! z ] B H " _ _ PJ P P8 P8 P4 P0 P, C _ B U Z _Y !
0x270f00…271094 (2, 540) Dummy {f00=0x004f, f01=0x0190, f02=» ! T0 B Y 0 ! . ! zT Y 3U X 3 ! zT :h Y 2U X 2 ! z l 4 B ! Z Y X " X Y V X 4P Y 4 ! WF V> X 4P R Y 4 ! ! h PZ P Y 4 ! z P Y 4 ! X /# X ! ! h Y / X 0 Y 3
0x271094…271228 Dummy {f00=0x004f, f01=0x0190, f02=» 9 9 X ' P P +P 9 R 9 9 V 9 " X 0 ! . X ' X /" Y 0 Y / > X / X 0" Y 3Q Y / > Y ! h X . P ! z ! z *0 ! z ! z ! Y 0 Y / X : [000b [000e [00t [00q 8 [00w [00v c
0x271228…2713bc Dummy {f00=0x004f, f01=0x0190, f02=» P ! z P _ ! _, ! _D ! H P f P f ! h ~ 4 ! & ! X . T +P B ! h Y J PB PTWF X JP ! Y G Y I ! h X JPN ! z ^ G ! &W6 ! z ! z W ! z W ! +XR X RT _ Y
0x2713bc…271550 Dummy {f00=0x004f, f01=0x0190, f02=» B <hP. Y P | Y 6 ! h 6 ! & ! B $ P YN P Y 4 f Y " ! h ! & X PP8 Y P ! Y 2 Y 4 0 ! Y 6 6 ! & 0 ! Y 8 ! Y : Y . X Y ? ! h ! z [ ! z 5 ! z n ! z !
0x271550…2716e4 Dummy {f00=0x004f, f01=0x0190, f02=»00,0: " 4 X . P Y . 4! Y 0_ Y B Y @ X @ ," :HR, 0 P :h ! z Y @_" X B , ! z Y B_ 4 :h 0 :C ! 412151824253033353648505160667072010203040506070809101111131415 0
0x2716e4…271878 Dummy {f00=0x004f, f01=0x0190, f02=»
[…0x2…]
0x271ba0…271d34 (2, 541) Dummy {f00=0x0050, f01=0x0190, f02=»
[…0x1…]
0x271ec8…27205c Dummy {f00=0x0050, f01=0x0190, f02=»P 3T Y W P < X ( ( 7 Z& ( P H R H P ' Pt Tt :' P B ]` F U F ]n P U W. C G H L C X L G B G 9 @_ Xt X X R A 4 " Y X T P (P H U ^ 9
0x27205c…2721f0 Dummy {f00=0x0050, f01=0x0190, f02=»_ b H P P $ $ - )W ) $P e % > ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>? 123456789:[ '=" abcdefghi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(
0x2721f0…272384 Dummy {f00=0x0050, f01=0x0190, f02=»noj {|[_m TOSS y<y< y y z,z, zjzj X ! 9 D W~ X ! 9 D Wl X ! 9 D WZ X ! 9 D &WH B U B (" W C
0x272384…272518 Dummy {f00=0x0050, f01=0x0190, f02=» & > ? R* X X P X( j_. ?(@ " X '? X D X T ? P >A D V 8P X ?!W > >?A P >A D V 8P X V 8W ?a > T 2 " < 2 & _
0x272518…2726ac Dummy {f00=0x0050, f01=0x0190, f02=» P U ;C ,$ T -_> - _H "Rf P^ X TX X PJ X RD< V X 0 X L T P* X P Y 9 C " < ? < ? <(@ $ P B $ 9H C ">h # P >_2 < U = (@ " $ P B >H<h
0x2726ac…272840 Dummy {f00=0x0050, f01=0x0190, f02=» 0123456789 - ' < +,-. 0123456789 'ABCDEFGHIJKLMNOPQRSTUVWXYZ []^ 0123456789 - * > ?;_: =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ []^ B T
0x272840…2729d4 (2, 542) Dummy {f00=0x0050, f01=0x0190, f02=» ( _* X . P Y . v B x B % X < $ 4 T %(@ x X :P" ( Y < X :P Y .(@W Y ._ ! V(@" ! 9 Y . XV VP Rz P P 9 _ X 2 v Y 2W X 2 X Y 2 Rv p< R <A<a C W X 2X P P P P _ Y 4W
0x2729d4…272b68 Dummy {f00=0x0050, f01=0x0190, f02=» T 9 V _W W 9 R "? 9 0 R Q > ! B W8 > ! B T ! X^ f L ^ b C " X : $4 P ( X <Tt 1 pRr p Y / X : ( X <P 1 WL X : X <P : $$ P< T W Z %W, X /$ X : : ^ Y . $ ! P % " _L Y :
0x272b68…272cfc Dummy {f00=0x0050, f01=0x0190, f02=» < 0 %_ % Y < (@ x X Y :_( X < X 0 P L X " A A A A A A | - M 4 @ " A. v
0x272cfc…272e90 Dummy {f00=0x0050, f01=0x0190, f02=» A & @ f @ $ A P A @ | ~ @ | $ A A @ @ @ E E E E E A & E @ F CRP <A COP <A BAP AS<A E ASP @ T ( A ASP F @ U A AS F P ( F F ;j
0x272e90…273024 Dummy {f00=0x0050, f01=0x0190, f02=»R W$ R Q R< 9 WJ P R* 9 P4:l P R R 9_ ( ( P :L AST A A E E A A 8 P W 89B @ V W Zb A @ @ A A @ D AS @ A W l @
0x273024…2731b8 Dummy {f00=0x0050, f01=0x0190, f02=» t @ @ A @ L P :l l 9b ) V l_ @ A A ~ L A A E @ < V4 @ R, U < 8 !RRT A " @ Pf A A @ > V T P T
0x2731b8…27334c Dummy {f00=0x0050, f01=0x0190, f02=» < 9B A : " A @ A @ | E A @ V @ P A @ $ A A r ( ~ @ 00P& ~ @ _0 @ 00P ~ _
0x27334c…2734e0 Dummy {f00=0x0050, f01=0x0190, f02=» P T TT A l A , @ ! P S A 1 A { @ f @ P " T . @ R T @ ! T @ .A @ r @ @ I A p @ A r @ p A p @ P @ A @ r D $ ) @ 0 !;;P P @ P@ _ P
0x2734e0…273674 (2, 543) Dummy {f00=0x0050, f01=0x0190, f02=»LLP& !RRP !AAP !SSP !PPP !VVP !QQP W W P W A 0 !;;T : 0 !00R !99U !AAR !ZZQ 0 !;;T : : : > : B : F : L : P : 0 )TV : !00T A : 0 !99Q0 !00R*P P =H_ :TID=TCL=LEV=TDC=T0LC=0SDC=S0
0x273674…273808 Dummy {f00=0x0050, f01=0x0190, f02=» A * " Z0X X._D! A A A A ! T W A A A 4 D A ~ A F 0 A : A A : @ @ ! P V :AW 9E R _ <e @ $ T 9A $ < :B 9A) @ *P A * A I Td W 9D @ @ &r s @ $A I T -
0x273808…27399c Dummy {f00=0x0050, f01=0x0190, f02=» P(_ P =H P @ T X A : Y h C !CCTr B. ^ X B.9 H . A _ !SSTF 0 U 8 J X X A t A v X X S W A x A z A : & V W, Q( T W& @ T R P @
0x27399c…273b30 Dummy {f00=0x0050, f01=0x0190, f02=» @ | 0 A;T ( P T _* @ f @ | ` | P A : V T 0 !;;P 0 !;; V V - a | =! 0 - Y : 8 0 ! P P Y V_0 L Q
0x273b30…273cc4 Dummy {f00=0x0050, f01=0x0190, f02=» 7 ( W $SWAP v @ 4 4 lP t A l t A WL , P@ , - 4 ] 4 Y 5 X * _6 : @ % @ @ 4 6 R6 r . !TTP ( V Y ( !TTX _: :
0x273cc4…273e58 Dummy {f00=0x0050, f01=0x0190, f02=» S S _* : A A A V A N =H N A @ T CRT N =H N A N =H N A , @ %!5!T W @ = V W = V f P0 " U ( _2 v P0
0x273e58…273fec Dummy {f00=0x0050, f01=0x0190, f02=» @ " S @ S A @ S T CRT @ S A A _ ( !TTT @ rP @ @ a : 8 rT ` @ W H A h J AS BAT :a A K @ ;C W @ " P " J ;C U
0x273fec…274180 Dummy {f00=0x0050, f01=0x0190, f02=» S J Rh # 9h !RRP @ ! T W* J S W J U ( 3 S S S _p P " I _ @ P < : A A H V A * f P _ v Pd A
0x274180…274314 (2, 544) Dummy {f00=0x0050, f01=0x0190, f02=»Y % @ : A @ T @ A A H A V A f P~ A ( A @ @ < F !AAT T B YP G 9h G G @ P A _l @ A @ Y ( !TTX rY : ( !TTX
0x274314…2744a8 Dummy {f00=0x0050, f01=0x0190, f02=» _. rY ( !TTX @ @ @ ! P @ 8 8 8 3 U ( . !TTT (_ !CCP R rY W V P0 A A @ @ < @ _2 v ]X @ 8 8 8 4 D P$ @ # P
0x2744a8…27463c Dummy {f00=0x0050, f01=0x0190, f02=» F !SST WN !AAT WB !VVT W6 !PPT W* !LLT dW !RRT lW !QQP ( , A A A @ 0 PV @ P P 0 _ P H (&? @ #? H & D # * H D > R @ D @ @ ) I ( D #@PV D L Tp D 0
0x27463c…2747d0 Dummy {f00=0x0050, f01=0x0190, f02=»% PD H I H T P( H U @ ~U A ~ < + + P @ : ` P: @ @ @ D (P W H $ I 0 % E , a : @ Q A % @ B A A A A F @ @ P A @ E F A
0x2747d0…274964 Dummy {f00=0x0050, f01=0x0190, f02=» ( ( QZ RT D (%? # ;H ;D &`>e : Q* R$ D (%? # ;H ;D &`>e : ( ( ( P< r A V R A @ _ S : 0 N N !TTP 9H N A V A & N 9H N A
0x274964…274af8 Dummy {f00=0x0050, f01=0x0190, f02=» P @ # _R @ 0=H A B PT N !DDPJ !SSP" A " B P, N !SST" V A $ P Y (9A *_ : @ " 9a @ $ 3 V ( : @ 9 @ 9 9@ @ " :HP @ U W 9 9@
0x274af8…274c8c Dummy {f00=0x0050, f01=0x0190, f02=» ! : ( N PD ! P8 !==P( !NNP2 !SSP, U ( - _> _H : P AAT : N =H N : N =H N : &=H F : F =H F : ? ? f > > : P N =H N T V (_ : @ ! P (W ( : @
0x274c8c…274e20 Dummy {f00=0x0050, f01=0x0190, f02=» * PF J # P _ :d Y @ Z A P T _: @ 2T P _ / : .P W P A .X @ P T :D * J TT J & P T .& >aW T (& P T &@P @ 9 A
0x274e20…274fb4 (2, 545) Dummy {f00=0x0051, f01=0x0190, f02=» @ T ( : dR d R _ 00)0= % : @ H ;l H :lT ;A P 5 _ ` R - _ : @ 4 A 6 A r : @ A P @ A @ @ : . ! T ( ! . : R (
0x274fb4…275148 Dummy {f00=0x0051, f01=0x0190, f02=» @ $ @ A 6 @ A 8 d H d H K 2 ;A @ R V R ( - @ R - $ N !TTP ( N :H N TBT K W8 2 " T @ ( X 2 N =H N @ R ) ( !TTXX !CCT , !UUT Z @ R K (9A A R
0x275148…2752dc Dummy {f00=0x0051, f01=0x0190, f02=» @ R 4 @ A > A ::b l / A R A D A F @ p A & A @ CR @ D G " F * E H K @ & " A ( J (P6 " 4X 1 R Z0 . . _ k
0x2752dc…275470 Dummy {f00=0x0051, f01=0x0190, f02=» @ r @ p A r b A CR T @ 6 A @ 8 A j @ A < D J @ & >k l 8 A A 6 Q R 8 V ( ;k , @ 6T A , @ 8P( U U A , K l A A J
0x275470…275604 Dummy {f00=0x0051, f01=0x0190, f02=» @ < G l ` ) - J ` 4 l K ` ) G ` " A ( A N (P0 0 R P < _ A N R X4 < _ J PJ l I H I $ @ < D ` E , D H C ` J j A X A N (Pn
0x275604…275798 Dummy {f00=0x0051, f01=0x0190, f02=» A J _ A L (P H - V l I " R E R R T E D E @ < H ` H ` E , #_ A * @ & 9k l $ A A J ` ( ` A ( J $ K T J J V V
0x275798…27592c Dummy {f00=0x0051, f01=0x0190, f02=» , = G $ @ A $ @ E " L M _V P* & &X ' $ @ < H T H _4 A L A * @ ,T2 @ A 6 @ A 8 @ @ :B A @ 9n A V @ @ ,P J V @ 8 A @ 6 A A , K : @ "<B A T *
0x27592c…275ac0 Dummy {f00=0x0051, f01=0x0190, f02=» R RV > R W > <B @ J @ *P ` 1 ` A P @ L ` 4 _j @ 0 4 : A . R R P A J _ @ . : " D PH A . @ .P. D X D P H E _( l E _6 " D T E l E D
0x275ac0…275c54 (2, 546) Dummy {f00=0x0165, f01=0x0190, f02=» B ` 4 : @ "P 9a _ " ( ) 8 ( ) : " $ @ "P 9A _ @ : A " W A "?AP ^ @ : 4P: " D , H H $ M j - I Y0 : @ : R 2 A B @ (T : N @ @ A Z H @ "]" T 2 . BT" A H A B @ N
0x275c54…275de8 Dummy {f00=0x0165, f01=0x0190, f02=»U ` G ` : P V : @ NP A J _$ 8 @ T @ J % @ H % : @ WN B W @ > " B ; Z [ : : [ [ :
0x275de8…275f7c Dummy {f00=0x0165, f01=0x0190, f02=» x A @ @ ` p R0 A @ A ^B _F 9o @ ~ ~_X < : 8 @ J P V U _ V Z K A A :K A Q R V ( T @ P < @ ` :
0x275f7c…276110 Dummy {f00=0x0165, f01=0x0190, f02=» V @ ( 0 H A : @ <m @ 0 ;l R 9d_ ;b# R 9a_ @ @ 1 R U W 9a P _" : P _ : @ | ` |U WP L P _ @ P _" l 0 W r P . ! A
0x276110…2762a4 Dummy {f00=0x0165, f01=0x0190, f02=»" R _ ZY QY : L ? ? R 0 R P P X _ : V ) ` : R @ @ ! @ P P P P _ _ @ @ :b @ :b V W U4 T 9BW P
0x2762a4…276438 Dummy {f00=0x0165, f01=0x0190, f02=» .V 3 S S :b Y* AST" ? ? > | X T ] ] W 9l ] 9A ] 9k! ] Y P: P4 S @ P 3 _ 3 | Z A. @ @ W A
0x276438…2765cc Dummy {f00=0x0165, f01=0x0190, f02=» r KB 0 F DI ?O_o B Y H P ` GP
0x2765cc…276760 Dummy {f00=0x0165, f01=0x0190, f02=» 0 F DI ` ?O_o r P Q a b , ,
0x276760…2768f4 (2, 547) Dummy {f00=0x0166, f01=0x0190, f02=»
[…0x7…]
0x277400…2780a0 (3, 0) DirGranule ((3, 0)) {
0x277400…2780a0 DirEnt {nam=»PT3272«, typ=» «, f00=0x0000, f01=0x0000, f02=0x18c8, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»DATBSC«, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x18d0, f03=0x0008}
0x277400…2780a0 DirEnt {nam=»APPGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x18e8, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»APPGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x18f8, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»DCBSC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1908, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»DSPBSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1948, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»KEYB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2fd0, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»VDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a30, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»PAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ab8, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b48, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»CONVER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bb0, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1bc8, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1998, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»APLINK«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d58, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»GTCONF«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d60, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d68, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»UPDAPP«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d78, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»MINCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d80, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»TWOCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d88, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»MAXCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d90, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»TSTCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d98, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»CONFIG«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1da0, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»ONECON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1da8, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»LISTO «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1db0, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»PT3272«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1978, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»RUN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1df8, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»KJLCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1e00, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»KJRUN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1e08, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»NPLINK«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1e10, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»PRTMOD«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1e18, f03=0x0000}
0x277400…2780a0 DirEnt {nam=»DISKS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2cf8, f03=0x0000}
0x277400…2780a0 }
0x2780a0…278234 (3, 1) Opaque[0x194]
0x278234…2783c8 # DirEnt {nam=»DATBSC«, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x18d0, f03=0x0008}
0x278234…2783c8 IdxSect {
0x278234…2783c8 f00 = 0x00c6 // 0x278234 @0x0
0x278234…2783c8 f01 = 0x0006 // 0x278236 @0x2
0x278234…2783c8 gno = [ // 0x278238 @0x4
0x278234…2783c8 [0x00]: C0x00c6.0x2.0
0x278234…2783c8 [0x01]: C0x00c6.0x3.0
0x278234…2783c8 [0x02]: C0x00c7.0x0.0
0x278234…2783c8 ]
0x278234…2783c8 }
0x2783c8…27855c Dummy {f00=0x00c6, f01=0x0190, f02=» 0 P IDENT DATBSC REL 11.0 82-07-07 870150541100 P 8 L P************************************************************************ @ L P* * L P* DATBSC DATA DIVISION FOR
0x27855c…2786f0 Dummy {f00=0x00c6, f01=0x0190, f02=» CREDIT CODED START-UP ROUTINES. * | L P* * < L P************************************************************************ P EJECT P DDIV 8 P****************
0x2786f0…278884 Dummy {f00=0x00c6, f01=0x0190, f02=»****************************** z P TERM K1 & P* 6 P CWB CB1 @ P TWB TB1 P P* ` P START KBVGO j P* ~ & PDSKBAN DSET FC=X'20',DEV=KA,BUFL=2 & PDSKBSD DSET FC=X'40',DEV=KI,BUFL=2 ( PDSVDU DSET FC=X'42',DEV=DY,BUFL=162 P
0x278884…278a18 Dummy {f00=0x00c6, f01=0x0190, f02=»IC FOR P&T h P EJECT 8 P*************************************************** P* . P* KB/VDU TERMINAL WITH TWO DC-LINES f P* 8 P*************************************************** P TERM K2 P* P CWB CB1 P
0x278a18…278bac Dummy {f00=0x00c6, f01=0x0190, f02=» ( PDSVDU DSET FC=X'42',DEV=DY,BUFL=162 PDSICR DSET FC=X'50',DEV=II 0 PDSICW DSET FC=X'51',DEV=IO R PDSDC1 DSET FC=X'61' t PDSDC2 DSET FC=X'62' ( PDSKBN2 DSET FC=X'21',DEV=KBN,BUFL=2 P P EJECT 8 P**************************
0x278bac…278d40 Dummy {f00=0x00c6, f01=0x0190, f02=»******************** p P TERM P1 P* , P CWB CB1 6 P TWB TB1 F P* V P START PRTGO ` P* t @ PPDSPRT DSET FC=X'30',BUFL=256 GENERAL DATA SET FOR PRINTERS ~ PPDSICR DSET FC=X'50',DEV=II PPDSICW DSET FC=X'51',DEV=IO
0x278d40…278ed4 (3, 2) Dummy {f00=0x00c6, f01=0x0190, f02=»MINAL WITH TWO DC-LINES | P* : P****************************************************** * P TERM P2 h P* x P CWB CB1 P TWB TB1 P* P START PRTGO P* @ PPDSPRT DSET FC=X'30',BUFL=256 GENERAL DATA SET FOR PRINTERS
0x278ed4…279068 Dummy {f00=0x00c6, f01=0x0190, f02=»JECT L P************************************************************************ L P* * L P* WORK AREA FOR KB/VDU TASKS * L P*
0x279068…2791fc Dummy {f00=0x00c6, f01=0x0190, f02=»**** L PTB1 BLK P* & PTCT01 BIN 4X'0' TID AND STACKBASE & ( PBVDU STRG 3840X'0' VDU SCREEN BUFFER P * PLINFLG STRG 48X'0' INTERNAL LINE FLAGS | ( PPCURS STRG 4X'0' REL. CURSOR ADDRESS . PATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER , P
0x2791fc…279390 Dummy {f00=0x00c6, f01=0x0190, f02=»TRG 4X'0' . PDCLENG STRG 4X'0' DC READ EFFECTIVE LENGTH * PINTATT STRG 4X'0' INTENSITY ATTRIBUTE D " POFFFLG STRG 4X'0' OFFLINE FLAG r ( PPRTID STRG 4X'0' TASKID FOR HARDCOPY PBRAGE STRG 192X'0' LEKSAND P* " P* FORMATION OF BRAGE - L
0x279390…279524 Dummy {f00=0x00c6, f01=0x018e, f02=»ATOR t $ P* KEYS 4X KEY LOCK STATUS 0 P* ECBBLK 20X ECB BLOCK FOR MULTIPLE WAIT 4 2 P* RDMORE 4X NEXT ADDRESS OF READ MORE KEYS h $ P* CURPOS 4X CURSOR POSITION " P* BUFPNT 4X BUFFER POINTER P* REGI 4X SAVE AREA
0x279524…2796b8 Dummy {f00=0x00c6, f01=0x0190, f02=» v P* ECBTAB ECB TABLE P* ECBKB 4X ECB KB * P* ECBPRT 4X ECB PRINTER H & P* ECBSD 4X ECB SIGNAL DISPLAY l P* ECBVDU 4X ECB VDU & P* ECBICR 4X ECB INTERTASK READ ( P* ECBICW 4X ECB INTERTASK WRITE
0x2796b8…27984c Dummy {f00=0x00c6, f01=0x018e, f02=» ( P* PRBA 4X PRINTER BUFFER ADDRESS =24 , P* PRLMAR 4X LEFT MARGIN FOR PRINTER =24 0 P EJECT ` F P****************************************************************** n F P* * F P*
0x27984c…2799e0 Dummy {f00=0x00c6, f01=0x018e, f02=» L F P****************************************************************** PCB1 BLK R P* b 0 PMF1CU STRG X'4142' SYMBOLIC CLUSTER ADDRESS l . PMF2CU STRG X'4344' SYMBOLIC CLUSTER ADDR. : PIDTEXT STRG 22'IDENT NOT OPERABLE ' IDENT KEY TEXT
0x2799e0…279b74 (3, 3) Dummy {f00=0x00c7, f01=0x0190, f02=» " P***SC STRG 15'PRO REC REJ-BSY' " P***SD STRG 15'PRO REC REJ-OVF' * " P***SE STRG 15'PRO REC REJ-PAR' P " P***SF STRG 15'PRO SND BLOCKS ' v " P***SG STRG 15'PRO SND RESND ' " P***SH STRG 15'PRO PROC-TIMOUT' " P***SI STRG 15'PRO POLL-TIMOUT'
0x279b74…279d08 Dummy {f00=0x00c7, f01=0x0190, f02=»ATUS j " PENDTAB STRG 4X'FFFF' END MARK P PDIV 2 P* @ 2 P* ENTRY POINTS AND EXTERNAL REFERENCES J P* P ENTRY KBVGO P ENTRY PRTGO P EXT VDUKB P EXT PRINT " P EXT GETTID GET TASK IDENTITY 2 P* EXT OFFLNE
0x279d08…279e9c Dummy {f00=0x00c7, f01=0x0190, f02=»VDU TASK z P* , P**************************************** P J PKBVGO R P CALL GETTID,TCT01 ` PKB050 | P CALL VDUKB,TCT01 ( P* PERF OFFLNE BRANCH TO CREDIT CODE * P B KB050 RETURN TO IBM-3270 EMULATION P EJECT
0x279e9c…27a030 Dummy {f00=0x00c7, f01=0x4084, f02=»******************************* P ( PPRTGO 0 P CALL GETTID,TCT01 > P CALL PRINT,TCT01 Z P END t@ | P CALL VDUKB,TCT01 ( P* PERF OFFLNE BRANCH TO CREDIT CODE * P B KB050 RETURN TO IBM-3270 EMULATION P EJECT
0x27a030…27a1c4 Dummy {f00=0x00c7, f01=0x2008, f02=» * END @ * $ * . GP1 BLK 8 * H GPAREA STRG 2000 R EJECT j PDIV x * * ENTRY KBGO ENTRY VDUGO ENTRY GTPGO * EXT VDUKB EXT VDTASK E
0x27a1c4…27a358 Dummy {f00=0x00c7, f01=0x0190, f02=» 2 P ANKL A10,/FFFF-NXTCHA RESET TAKE NEXT CHAR =3 3 P ADK A3,1 3 : P ADK A4,1 3 L P RB COP200 3 ^ PCOP850 EQU * 3 p P IFF BASWRI=1 . =24 3 ( P LDR A9,A9 SOMETHING LEFT TO PRINT? 3 P RF(Z) COP950 NO! =19 3 " P CF A14,PRLINE PRINT LAST LINE
0x27a358…27a4ec Dummy {f00=0x00c7, f01=0x0190, f02=»XTRA LINE FEED 3 P XIF . =24 4 P IFT BASWRI=1 . =24 4 * , P LDR A9,A9 SOME TEXT LEFT TO PRINT? =24 4 F P RF(Z) COP860 NO! =24 4 v " P CF A14,PRLINE PRINT TEXT =24 4 PCOP860 EQU * . =24 4 P IFF SCS=1 . =26 4 $ P ANKL A10,ENDPRT END MESS.?
0x27a4ec…27a680 Dummy {f00=0x00c7, f01=0x0190, f02=» . =26 4 P IFT BASWRI=1 . =26 5 PCOP870 EQU * . =24 5 , . P CF A14,PRCCH CONTROL CH:S TO PRINTER =24 5 F P XIF . =24 5 x PCOP900 EQU * 5 P LDR A1,A1 PRINTER FAILED? 5 P RF(Z) COP950 NO 5 P LD A2,WCC,A11 . =32 5 $ P CWK A2,/38 LOCAL
0x27a680…27a814 (3, 4) Opaque[0x194]
0x27a814…27a9a8 # DirEnt {nam=»APPGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x18e8, f03=0x0000}
0x27a814…27a9a8 IdxSect {
0x27a814…27a9a8 f00 = 0x00c7 // 0x27a814 @0x0
0x27a814…27a9a8 f01 = 0x0004 // 0x27a816 @0x2
0x27a814…27a9a8 gno = [ // 0x27a818 @0x4
0x27a814…27a9a8 [0x00]: C0x00c7.0x1.0
0x27a814…27a9a8 [0x01]: C0x00c7.0x2.0
0x27a814…27a9a8 ]
0x27a814…27a9a8 }
0x27a9a8…27ab3c Dummy {f00=0x00c7, f01=0x0190, f02=» h B b B b * F ` SNA/SDLC COMMUNICATION? (Y/N): MAXIMAL NUMBER OF WORKSTATIONS?: OFFLINE KEY HANDLING? (Y/N): $ENTRY NAME OF OFFLINE APPLICATION? : NUMBER OF DC-LINES? (1-2): REQUEST TIMEOUT? (100MS): KEYLOC
0x27ab3c…27acd0 Dummy {f00=0x00c7, f01=0x0190, f02=»NDLING? (Y/N): : KEYBOARD 6272?(Y/N): NUMBER OF DC-BUFFERS?(1-32): SIZE OF DC-BUFFERS? (WORDS): COPY COMMAND INCLUDED?(Y/N): EBCDIC CODE?(Y/N): TEST MODE HANDLING? (Y/N): COPY LOCK FUNCTION? (Y/N): ASSEMBLY LISTING? (Y/N): NAME OF PACKAGE? : MOV DATBSC
0x27acd0…27ae64 Dummy {f00=0x00c7, f01=0x0190, f02=»F /S MOV DCSNA,/S,IBM3270 KPF /S MOV DSPSNA,/S,IBM3270 KPF /S SCR MOV KEYB,/S,IBM3270 KPF /S MOV VDU,/S,IBM3270 KPF /S MOV PAD,/S,IBM3270 KPF /S MOV PRINT,/S,IBM3270 KPF /S MOV CONVER,/S,IBM3270 KPF /S SCR !!CH $$ X:A$$ 0$$ !!CH $$ X:B$
0x27ae64…27aff8 Dummy {f00=0x00c7, f01=0x0190, f02=»!!CH $$ X:H$$ 0$$ !!CH $$ X:I$$ 1$$ !!CH $$ X:J$$ 1$$ !!CH $$ X:K$$ 00$$ !!CH $$ X:L$$ 0000$$ !!CH $$ X:M$$ 0$$ !!CH $$ X:N$$ 1$$ !!CH $$ X:O$$ 0$$ !!CH $$ X:P$$ 0$$ !!EN KPF /S BEA /S KPF /O SCR !!CH $$***S$$S$$ !!CH $$** $$ $$ !!CH $
0x27aff8…27b18c Dummy {f00=0x00c7, f01=0x0190, f02=»LED DATBSC LED DATSNA LED DSPBSC LED DSPSNA LED DCBSC LED DCSNA LED KEYB LED VDU LED PAD LED PRINT MOV CONVER,/S KPF /S SCR SCR TRA DATBSC TRA DATSNA TLK U,M LKE M KPF /L, ASG /E0,TY10 APPGEN R
0x27b18c…27b320 Dummy {f00=0x00c7, f01=0x0190, f02=» ~ 9H L d 9A F_" @ W @ 2 2 F C C < (^ * X P W( F 9A D , C C < C < * F b C C 4 b 9h !##P B B * l " 6 6
0x27b320…27b4b4 (3, 5) Dummy {f00=0x00c7, f01=0x0190, f02=» A * Q :h !YYT 1 A W !NNT A A * Q P y 0 5 A * Q :h A " A * Q P : P 5 A * Q :h !YYT 1 A NW !NNT A * Q :h !YYT 1 A bW !NNT A * Q :h !YYT 1 A vW !NNT A * Q :h !NNT 0
0x27b4b4…27b648 Dummy {f00=0x00c7, f01=0x0190, f02=» 5 A * Q :h !YYT 1 A W !NNT A A * Q :h !NNT 0 A W !YYT A * Q :h !YYT 1 A W !NNT A * Q :h !YYT 1 A W !NNT A * Q :h !YYT A W !NNT A * Q P 0 5 A * ( * ( * @
0x27b648…27b7dc Dummy {f00=0x00c7, f01=0x0190, f02=» @ "! T @ @ @ v v * @ P @ @ ! T( @ @ T4 @ _ @ @ T @ $ $ _ @ 2 2 @ @ > > @ @ J J @ @ V V @ @ d d
0x27b7dc…27b970 Dummy {f00=0x00c7, f01=0x0190, f02=» * T ( ( * . D | : (
0x27b970…27bb04 Dummy {f00=0x00c7, f01=0x0190, f02=» a P RB DISI10 b PDISI20 EQU * b P LD A6,ECBBA,A8 b . . P ST A1,ECBBA+52,A6 SAVE TASK ID IN BUFFER b F & P LC A2,X'1F' HIGH INTENSITY CHAR. b x P SC A2,ECBBA+45,A6 b ( P LDKL A10,1 INDICATE NOT ONLY SPACES b P LDKL A9,1 1 INTENSITY CHAR. b
0x27bb04…27bc98 Dummy {f00=0x00c7, f01=0x0190, f02=» b B P************************************************************** c P* c N P* DISSTA DISPLAY STATISTICS c X P* c | D P*************************************************************** c P* REGISTERS c P* c P* c D P************
0x27bc98…27be2c Dummy {f00=0x00c7, f01=0x0190, f02=»ALIN WHERE TO START c P SLL A1,8 d P LDK A2,1 d . & P ORR A2,A1 FIRST POS. ON THAT LINE d @ P ST A2,ECBCW,A8 d j $ P CF A14,SPACES CLEAN THE BUFFER d P LDK A5,0 RESET INDEX d P LD A3,6,A13 d P ADK A3,STATXT POINT TO TEXT d PDISS10 E
0x27be2c…27bfc0 Dummy {f00=0x00c7, f01=0x018e, f02=»LINE d l ( P CF A14,MOVTXT MOVE IT IN TO BUFFER e $ P ADK A6,5+STAPOS MAKE SOME ROOM e 8 P LC A1,INDEX,A5 e ` P SLL A1,1 e x $ P ADR A1,A12 POINT OUT STAT VALUE e P LCR A2,A1 e " P CF A14,CONASC MAKE IT VISABLE e P LDR A4,A2 e P SLL A4,8 e
0x27bfc0…27c154 (3, 6) Opaque[0x194]
0x27c154…27c2e8 # DirEnt {nam=»APPGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x18f8, f03=0x0000}
0x27c154…27c2e8 IdxSect {
0x27c154…27c2e8 f00 = 0x00c7 // 0x27c154 @0x0
0x27c154…27c2e8 f01 = 0x0004 // 0x27c156 @0x2
0x27c154…27c2e8 gno = [ // 0x27c158 @0x4
0x27c154…27c2e8 [0x00]: C0x00c7.0x3.0
0x27c154…27c2e8 [0x01]: C0x00c8.0x0.0
0x27c154…27c2e8 ]
0x27c154…27c2e8 }
0x27c2e8…27c47c Dummy {f00=0x00c7, f01=0x0190, f02=» ASG 2,NO MOV DATBSC,/S,IBM3270 KPF /S 2 MOV DCBSC,/S,IBM3270 @ KPF /S MOV DSPBSC,/S,IBM3270 j KPF /S SCR MOV KEYB,/S,IBM3270 KPF /S MOV VDU,/S,IBM3270 KPF /S MOV PAD,/S,IBM3270
0x27c47c…27c610 Dummy {f00=0x00c7, f01=0x0190, f02=»!!EN KPF /S SCR ASG 2,LP0F & LED DSPBSC 8 !!CH $$ X:A$$ 0$$ J !!CH $$ X:B$$ 08$$ d !!CH $$ X:C$$ 0$$ ~ !!CH $$ X:D$$ 1$$ !!CH $$ X:E$$ 00300$$ !!CH $$ X:F$$ 0$$ !!CH $$ X:G$$ 0$$ !!CH
0x27c610…27c7a4 Dummy {f00=0x00c7, f01=0x0190, f02=»X:M$$ 1$$ !!CH $$ X:N$$ 1$$ !!CH $$ X:O$$ 0$$ , !!CH $$ X:P$$ 0$$ F !!EN ` KPF /S l BEA /S z KPF /O SCR LED DCBSC !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 08$$ !!CH $$ X:C$$ 0$$ !!CH $
0x27c7a4…27c938 Dummy {f00=0x00c7, f01=0x0190, f02=»X:I$$ 1$$ !!CH $$ X:J$$ 1$$ !!CH $$ X:K$$ 02$$ , !!CH $$ X:L$$ 1150$$ F !!CH $$ X:M$$ 1$$ b !!CH $$ X:N$$ 1$$ | !!CH $$ X:O$$ 0$$ !!CH $$ X:P$$ 0$$ !!EN KPF /S BEA /S KPF /O SCR
0x27c938…27cacc Dummy {f00=0x00c7, f01=0x0190, f02=»$ 00300$$ !!CH $$ X:F$$ 0$$ !!CH $$ X:G$$ 0$$ , !!CH $$ X:H$$ 0$$ F !!CH $$ X:I$$ 1$$ ` !!CH $$ X:J$$ 1$$ z !!CH $$ X:K$$ 02$$ !!CH $$ X:L$$ 1150$$ !!CH $$ X:M$$ 1$$ !!CH $$ X:N$$ 1$$ !!CH $$ X:
0x27cacc…27cc60 Dummy {f00=0x00c7, f01=0x0190, f02=»$ 0$$ !!CH $$ X:B$$ 08$$ !!CH $$ X:C$$ 0$$ ( !!CH $$ X:D$$ 1$$ B !!CH $$ X:E$$ 00300$$ !!CH $$ X:F$$ 0$$ z !!CH $$ X:G$$ 0$$ !!CH $$ X:H$$ 0$$ !!CH $$ X:I$$ 1$$ !!CH $$ X:J$$ 1$$ !!CH $$ X:K$
0x27cc60…27cdf4 (3, 7) Dummy {f00=0x00c8, f01=0x0190, f02=»$ !!EN KPF /S BEA /S $ KPF /O 2 SCR @ LED PAD L !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 08$$ v !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 1$$ !!CH $$ X:E$$ 00300$$ !!CH $$ X:F$$ 0$$ !!CH $$ X:G$
0x27cdf4…27cf88 Dummy {f00=0x00c8, f01=0x0190, f02=»$$ ~ !!CH $$ X:M$$ 1$$ !!CH $$ X:N$$ 1$$ $ !!CH $$ X:O$$ 0$$ > !!CH $$ X:P$$ 0$$ X !!EN r KPF /S ~ BEA /S KPF /O SCR LED PRINT !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 08$$ !!CH $$ X:C$$
0x27cf88…27d11c Dummy {f00=0x00c8, f01=0x0190, f02=»$ !!CH $$ X:I$$ 1$$ !!CH $$ X:J$$ 1$$ $ !!CH $$ X:K$$ 02$$ > !!CH $$ X:L$$ 1150$$ X !!CH $$ X:M$$ 1$$ t !!CH $$ X:N$$ 1$$ !!CH $$ X:O$$ 0$$ !!CH $$ X:P$$ 0$$ !!EN KPF /S BEA /S KPF
0x27d11c…27d2b0 Dummy {f00=0x00c8, f01=0x003c, f02=» LKE M KPF /L,PT3270 ASG /E0,TY10 , !!CH $$ X:K$$ 02$$ > !!CH $$ X:L$$ 1150$$ X !!CH $$ X:M$$ 1$$ t !!CH $$ X:N$$ 1$$ !!CH $$ X:O$$ 0$$ !!CH $$ X:P$$ 0$$ !!EN KPF /S BEA /S KPF
0x27d2b0…27d444 Dummy {f00=0x00c8, f01=0x2008, f02=» LKE M KPF /L,PT3270 ASG /E0,TY10 , !!CH $$ X:K$$ 02$$ > !!CH $$ X:L$$ 1150$$ X !!CH $$ X:M$$ 1$$ t !!CH $$ X:N$$ 1$$ !!CH $$ X:O$$ 0$$ !!CH $$ X:P$$ 0$$ !!EN KPF /S BEA /S KPF
0x27d444…27d5d8 Dummy {f00=0x00c8, f01=0x0190, f02=»IT INITIALIZE THE TASK * * P* COMINI COMMON INIT ROUTINE @ $ P* ECBINI INIT OF ECB:S n D P* TSTDEV TEST KEYBOARD AND DISPLAY * D P*
0x27d5d8…27d76c Dummy {f00=0x00c8, f01=0x0190, f02=»************************************** | > P* * . > P* ENTRY POINTS * p > P* * > P********************
0x27d76c…27d900 Dummy {f00=0x00c8, f01=0x0190, f02=»INE r P ENTRY ECBINI INIT OF ECB:S . P ENTRY MATCH MATCH TASID AND PHYS. ADDRESS 0 P b > P********************************************************** j > P* * > P* EXTERNAL REFERENC
0x27d900…27da94 (3, 8) Opaque[0x194]
0x27da94…27dc28 # DirEnt {nam=»DCBSC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1908, f03=0x0000}
0x27da94…27dc28 IdxSect {
0x27da94…27dc28 f00 = 0x00c8 // 0x27da94 @0x0
0x27da94…27dc28 f01 = 0x0010 // 0x27da96 @0x2
0x27da94…27dc28 gno = [ // 0x27da98 @0x4
0x27da94…27dc28 [0x00]: C0x00c8.0x1.0
0x27da94…27dc28 [0x01]: C0x00c8.0x2.0
0x27da94…27dc28 [0x02]: C0x00c8.0x3.0
0x27da94…27dc28 [0x03]: C0x00c9.0x0.0
0x27da94…27dc28 [0x04]: C0x00c9.0x1.0
0x27da94…27dc28 [0x05]: C0x00c9.0x2.0
0x27da94…27dc28 [0x06]: C0x00c9.0x3.0
0x27da94…27dc28 [0x07]: C0x00ca.0x0.0
0x27da94…27dc28 ]
0x27da94…27dc28 }
0x27dc28…27ddbc Dummy {f00=0x00c8, f01=0x0190, f02=» 0 P IDENT DCBSC REL 11.0 82-04-23 870150541100 P 8 P =2 TWO DC-LINES @ P =1, CHARAC. ADDR. Z P 81-01-26 v D P**************************************************************** D P*
0x27ddbc…27df50 Dummy {f00=0x00c8, f01=0x0190, f02=»UNICATION * b D P* BETWEEN THE SLU AND CLUSTER CONTROLLER * @ P* (EMULATION 3270 BSC) * b D P* * D P**************************
0x27df50…27e0e4 Dummy {f00=0x00c8, f01=0x0190, f02=» * @ P* ROUTINES * < @ P* * @ P* DCINP DC-INPUT MAIN ROUTINE * @ P
0x27e0e4…27e278 Dummy {f00=0x00c8, f01=0x0190, f02=»* TSTMES TEST MESSAGE * @ P* SETSTA SET STATUS * D @ P* TSTSTA TEST STATUS * @ P* DCABOR ABORT DC REQUEST *
0x27e278…27e40c Dummy {f00=0x00c8, f01=0x0190, f02=» T @ P* TRPA TRANSMIT SHORT READ * @ P* TRPF TRANSMIT READ MODIFIED * L @ P* * @ P****************************************************
0x27e40c…27e5a0 Dummy {f00=0x00c8, f01=0x0190, f02=» * n D P* ENTRY POINTS * & D P* * n D P**************************************************************** P & P E
0x27e5a0…27e734 (3, 9) Dummy {f00=0x00c8, f01=0x0190, f02=» CONCT CONNECT PASSIVE P ENTRY DISCON DISCONNECT =2 $ P ENTRY SETTYM SET REQUEST TIMER B P ENTRY TSTMES TEST MESSAGE. j " P ENTRY DCABOR ABORT DC REQUEST $ P ENTRY TRPA TRANSMIT SHORT READ & P ENTRY TRPF TRANSMIT READ MODIFIED . P E
0x27e734…27e8c8 Dummy {f00=0x00c8, f01=0x0190, f02=» READ DC WITH WAIT " P ENTRY RDSTAT READ STATISTICS P @ B P************************************************************* H B P* * B P* EXTERNAL REFERENCES
0x27e8c8…27ea5c Dummy {f00=0x00c8, f01=0x0190, f02=»************* ` P " P EXTRN GETBUF GET BUFFER (PAD) & P EXTRN RELBUF RELEASE BUFFER (PAD) D 2 P EXTRN PAID STORE AID-CODE IN DC BUFFER (PAD) n . P EXTRN SCRINF GET SCREEN INFORMATION (VDU) : P EXTRN BUFADR STORE BUFFER ADDRESS IN DC BUFFER (P
0x27ea5c…27ebf0 Dummy {f00=0x00c8, f01=0x0190, f02=»IELDS (VDU) p ( P EXTRN UNPACK UNPACK DC BUFFER (PAD) & P EXTRN ERROR INDICATE ERROR (KEYB) @ . P EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) j & P EXTRN LMP1ON SYSTEM AVAILABLE DK ( P EXTRN LMP3ON ON & P EXTRN LMP1OF SYSTEM A
0x27ebf0…27ed84 Dummy {f00=0x00c8, f01=0x0190, f02=» * l > P* CONDITIONAL ASSEMBLY PARAMETERS * > P* * ` > P********************************************************* & PX:C EQU 0 OFFLINE HANDLING IF :=1
0x27ed84…27ef18 Dummy {f00=0x00c8, f01=0x0190, f02=»IM EQU 00300 * PX:L EQU 1000 MAX BUFFER SIZE IN WORDS PBUFFL EQU 1150 B " PX:O EQU 0 TEST INCLUDED IF:=1 X PTEST EQU 0 ~ P EJECT D P*************************************************************** D P*
0x27ef18…27f0ac Dummy {f00=0x00c8, f01=0x0190, f02=» * X D P*************************************************************** P X P* ` $ P* EQUATES FOR ECB HANDLING j P* PECBBA EQU 2 BUFFER ADDRESS PECBRL EQU 4 REQUESTED LENGTH PECBEL EQU 6 EFFECTIVE LENGTH PEC
0x27f0ac…27f240 Dummy {f00=0x00c8, f01=0x0190, f02=»K x P* PDC EQU 4 P EJECT $ P* 2 P* RELATIVE ADDRESSES IN < P* TERMINAL WORKBLOCK P* x PWCC EQU 1952 WCC CHAR. ( PKBINH EQU WCC+2 KB INHIBIT INDICATOR 0 PDCLENG EQU KBINH+4 DC READ EFFECTIVE LENGTH & PMAIN EQU
0x27f240…27f3d4 (3, 10) Dummy {f00=0x00c8, f01=0x0190, f02=»QU BUFPNT+2 SAVE AREA $ PECBDC1 EQU REGI+46 ECB DC LINE 1 & PECBDC2 EQU ECBDC1+2 ECB DC LINE 2 F P* p P* RELATIVE ADDRESSES IN z P* COMMON WORKBLOCK P* PMF1CU EQU 0 SYMBOLIC ADDRESS ( PMF2CU EQU MF1CU+2 SYMBOLIC ADDRESS
0x27f3d4…27f568 Dummy {f00=0x00c8, f01=0x0190, f02=» * ` @ P* DCINP DC INPUT MAIN ROUTINE * @ P* * X @ P************************************************************ P* REGISTERS P* P* A11= CRE
0x27f568…27f6fc Dummy {f00=0x00c8, f01=0x0190, f02=»GETBUF GET BUFFER P LDR A3,A8 " P CF A14,READW READ ONE BUFFER , P ANK A1,8 OK? R P RF(Z) DCIN10 YES h P LDR A8,A12 " P CF A14,RELBUF RELEASE BUFFER P RF DCIN15 PDCIN10 EQU * P LD A1,ECBEL,A8 " P ST A1,DCLENG,
0x27f6fc…27f890 Dummy {f00=0x00c8, f01=0x0190, f02=» EQU * P LD A1,KBINH,A11 P LDR A2,A1 & ( P ANK A1,1 KEYBOARD TOTALLY INHIBIT? 8 P RF(Z) DCIN20 NO d , P ANK A2,/E KEYBOARD NOT TOTALLY INHIBIT | P LD A1,WCC,A11 P ANK A1,2 RESTORE KEYBOARD? P RF(Z) DCIN30 NO PDCIN20 EQU
0x27f890…27fa24 Dummy {f00=0x00c8, f01=0x018e, f02=» A1,0 " P CF A14,SETSTA SET DEVICE END P RTN A14 4 P EJECT D B P************************************************************** R B P* * P* OPEN OPEN B P*
0x27fa24…27fbb8 Dummy {f00=0x00c8, f01=0x018e, f02=» P* P* A8= DC ECB P* A11= CREDIT WORK AREA " P* A13= RESERVED B P* Z B P************************************************************** d POPEN EQU * & P LD A8,ECBDC1,A11 GET ECB ADDRESS P LDK A4,0 RESET INDICATOR P
0x27fbb8…27fd4c Dummy {f00=0x00c8, f01=0x0190, f02=» P LKM P DATA 1 P LD A1,ECBRC,A8 P RF(N) OPEN20 8 P IFT NBRLIN=2 N $ P LDR A4,A4 ANOTHER LINE TO OPEN d P RF(NZ) OPEN20 NO P LD A8,ECBDC2,A11 GET LINE 2 , P LD A2,MF2CU,A3 GET SECOND SYMB. ADD DK P LDK A4,1
0x27fd4c…27fee0 Dummy {f00=0x00c8, f01=0x0190, f02=»***** > P* * P* CONCT CONNECT PASSIVE P > P* * p > P********************************************************* P* REGISTERS P
0x27fee0…280074 (3, 11) Dummy {f00=0x00c9, f01=0x0190, f02=»********** h PCONCT EQU * P CF A14,GETBUF GET BUFFER & P LD A8,ECBDC1,A11 GET LINE 1 H P LD A3,6,A13 GET BASE =2 l P . =2 P IFT NBRLIN=2 . =2 $ P LD A1,MAIN,A11 SECOND LINE? =2 P RF(Z) CONC10 NO! =2 P LD A8,ECBDC2,
0x280074…280208 Dummy {f00=0x00c9, f01=0x0190, f02=» x P ANK A1,/FF ( P SC A1,+1,A12 SAVE ADDRESS IN BUFFER P LDK A1,2 LENGTH H P ST A1,ECBRL,A8 ` P . =2 x P LD A1,MF1CU,A3 P ST A1,ECBCW2,A8 . =1 P LDK A7,/A7 CONNECT PASSIVE P LKM P DATA 1 4 P LD A1,REG
0x280208…28039c Dummy {f00=0x00c9, f01=0x0190, f02=» P LDR A8,A12 " P CF A14,RELBUF RELEASE BUFFER P RTN A14 B P EJECT . =2 R B P************************************************************** f P* " P* DISCON - DISCONNECT P* B P**********************************
0x28039c…280530 Dummy {f00=0x00c9, f01=0x0190, f02=»*********************************************************** P* D PDISCON EQU * . =2 N ( P CF A14,DCABOR ABORT TEST MESSAGE =2 h P LDK A7,/AF DISCONNECT =2 P LKM . =2 P DATA 1 . =2 P RTN A14 . =2 P EJECT F P********
0x280530…2806c4 Dummy {f00=0x00c9, f01=0x0190, f02=»*************************************************** P* REGISTERS < P* P* f F P***************************************************************** p PSETTYM EQU * P LD A8,ECBDC1,A11 GET ECB P LDK A4,0 RESET INDICATO
0x2806c4…280858 Dummy {f00=0x00c9, f01=0x0190, f02=» P DATA 1 P IFT NBRLIN=2 P LDR A4,A4 MORE TO TIME? * P RF(NZ) SETT20 NO J P LD A8,ECBDC2,A11 GET LINE 2 d P LDK A4,1 NO MORE P RB SETT10 PSETT20 EQU * P XIF P RTN A14 P EJECT > P********************
0x280858…2809ec Dummy {f00=0x00c9, f01=0x0190, f02=»* * > P********************************************************* B P* REGISTERS P* P* A3= BUFFER ADDRESS P* A8= DC ECB P* A11= CREDIT WORK AREA P* A13= RESERVED
0x2809ec…280b80 Dummy {f00=0x00c9, f01=0x0190, f02=»BRLIN=2 P LD A1,MAIN,A11 MORE LINES P RF(Z) REDW10 NO 2 P LD A8,ECBDC2,A11 LINE 2 J PREDW10 EQU * j P XIF ~ $ P LDKL A1,BUFFL+BUFFL GET LENGTH P ST A1,ECBRL,A8 P ST A3,ECBBA,A8 P LDK A7,/82 RECEIVE P LKM
0x280b80…280d14 (3, 12) Dummy {f00=0x00c9, f01=0x0190, f02=»8 INDICATE ERROR P RF REDW30 PREDW20 EQU * * P LDK A1,2 > PREDW30 EQU * P P RTN A14 d P EJECT t > P********************************************************* > P* * P*
0x280d14…280ea8 Dummy {f00=0x00c9, f01=0x0190, f02=»******* ^ P* REGISTERS P* $ 0 P* A1= AT ENTRY CHAIN INDICATOR, RETURN CODE . P* A8= DC ECB b P* A9= DC BUFFER LENGTH v P* A11= CREDIT WORK AREA P* A13= RESERVED P* : P**************************************************
0x280ea8…28103c Dummy {f00=0x00c9, f01=0x0190, f02=» P LD A8,ECBDC2,A11 LINE 2 PDCWR10 EQU * $ P XIF 8 , P LDK A2,2 KEYBOARD INHIBIT BUT RESETABLE D P ORS A2,KBINH,A11 t P LDK A7,/86 WRITE ORDER $ P ST A12,ECBBA,A8 BUFFER ADDRESS P ST A9,ECBRL,A8 P LKM P DATA 1
0x28103c…2811d0 Dummy {f00=0x00c9, f01=0x0190, f02=» P LD A1,KBINH,A11 ! $ P ANK A1,/D RESET KEYBOARD PARTLY ! P ST A1,KBINH,A11 ! D $ P CF A14,LMP3OF INHIBIT LAMP OFF ! " P CF A14,RESKB RESET KB BUFFER ! P LDK A1,1 RETURN CODE ! PDCWR90 EQU * ! P RTN A14 ! P EJECT ! > P**************
0x2811d0…281364 Dummy {f00=0x00c9, f01=0x0190, f02=» TEST IF ANY MESSAGE, NO WAIT * ! ~ > P* * " 0 > P********************************************************* " r P* REGISTERS " P* " P* A1= RETURN CODE " & P* A11= ADDRESS TO CREDIT WOR
0x281364…2814f8 Dummy {f00=0x00c9, f01=0x0190, f02=» " P LD A8,ECBDC1,A11 LINE 1 # P IFT NBRLIN=2 # ( P LD A1,MAIN,A11 LINE 2 # > P RF(Z) TSTM10 NO # P LD A8,ECBDC2,A11 LINE 2 # t PTSTM10 EQU * # P XIF # P LDK A2,1 # * P ST A2,ECBCW1,A8 INDICATE TEST MESSAGE # " P LDK A7,0 TEST MESS.
0x2814f8…28168c Dummy {f00=0x00c9, f01=0x0190, f02=»* # T B P* * $ B P* SETSTA SET STATUS * $ P B P* * $ B P********************************************
0x28168c…281820 Dummy {f00=0x00c9, f01=0x0190, f02=» ADDRESS TO ECB AREA $ P* % @ P************************************************************ % & PSETSTA EQU * % j P LD A8,ECBDC1,A11 % ~ P IFT NBRLIN=2 % P LD A2,MAIN,A11 % P RF(Z) SETS10 % P LD A8,ECBDC2,A11 % PSETS10 EQU * %
0x281820…2819b4 (3, 13) Dummy {f00=0x00c9, f01=0x0190, f02=»********************************** % | : P* * & * : P* TSTSTA TEST STATUS * & h : P* * & : P************************************
0x2819b4…281b48 Dummy {f00=0x00c9, f01=0x0190, f02=»RESS TO ECB AREA & P* ' : P***************************************************** ' " PTSTSTA EQU * ' ` P LD A8,ECBDC1,A11 LINE 1 ' t P IFT NBRLIN=2 ' P LD A1,MAIN,A11 LINE 2? ' P RF(Z) TSTS10 NO ' P LD A8,ECBDC2,A11 LINE 2 ' PTSTS10
0x281b48…281cdc Dummy {f00=0x00c9, f01=0x0190, f02=» P RTN A14 ( P EJECT ( J P********************************************************************* ( " P* ( p P* RDSTAT READ STATISTICS ( z P* ( J P********************************************************************** ( P* REGISTERS (
0x281cdc…281e70 Dummy {f00=0x00c9, f01=0x0190, f02=» ( P LD A8,ECBDC1,A11 ) P IFT NBRLIN=2 ) " " P LD A1,MAIN,A11 THE OTHER LINE ) 8 P RF(Z) RDST10 NO ) ^ P LD A8,ECBDC2,A11 ) v PRDST10 EQU * ) P XIF ) P IFT TEST=1 ) P ST A12,ECBBA,A8 ) P LDKL A1,BUFFL+BUFFL ) P ST A1,ECBRL,A8
0x281e70…282004 Dummy {f00=0x00c9, f01=0x0190, f02=» > P********************************************************** * > P* * * F > P* DCABOR ABORT TEST MESSAGE REQUEST * * > P* * *
0x282004…282198 Dummy {f00=0x00c9, f01=0x018e, f02=»O CREDIT WORK AREA * P* A13= ADDRESS TO ECB AREA + P* + > > P********************************************************* + H PDCABOR EQU * + P LD A8,ECBDC1,A11 LINE 1 + P IFT NBRLIN=2 + P LD A1,MAIN,A11 LINE 2? + P RF(Z) DCAB10 NO +
0x282198…28232c Dummy {f00=0x00c9, f01=0x0190, f02=» + , P RF(NZ) DCAB20 NO, ALREADY COMPLETED =2 , P CM ECBBLK+DC,A11 , 8 PDCAB20 EQU * . =2 , R P RTN A14 , l P EJECT , | P* , P* , P* , P* DC RETURN CODE , P , P* , P* , P* , " P* BIT 0 REQUEST ERROR ,
0x28232c…2824c0 Dummy {f00=0x00c9, f01=0x0190, f02=»11 SEQUENCE ERROR , & P* 12 INCORRECT LENGTH - P* 13 RESERVED - D ( P* 14 TRANSMISSION ERROR - f " P* 15 NO CONNECTION - P* - P* - P* - P EJECT - : P************************************
0x2824c0…282654 (3, 14) Dummy {f00=0x00c9, f01=0x018e, f02=» * - ` : P* * . : P****************************************************** . L P* REGISTERS . P* . . P* A1= AT ENTRY DC RETURN CODE, RETURN CODE . P* A11= CREDIT WORK AREA . P* A13= RESERVE
0x282654…2827e8 Dummy {f00=0x00c9, f01=0x0190, f02=» P ANKL A1,/2211 LINE OK? / P XRKL A1,/2211 / $ P RF(NZ) CHKS10 NO / : P CF A14,LMP1ON SYSTEM AVAIL. / T P RF CHKS20 / x PCHKS10 EQU * / * P* LAMP ONE OFF DELETED P & T * / PCHKS20 EQU * / P RTN A14 / P EJECT / > P**********
0x2827e8…28297c Dummy {f00=0x00c9, f01=0x0190, f02=»N INDICATE OFFLINE TO CLUSTER * / > P* * 0 4 > P********************************************************* 0 v P* REGISTERS 0 P* 0 P* A11= CREDIT WORK AREA 0 P* A13= RESERVED 0
0x28297c…282b10 Dummy {f00=0x00c9, f01=0x0190, f02=» XIF 0 P RTN A14 1 P EJECT 1 : P***************************************************** 1 * : P* * 1 h : P* TRPA TRANSMIT SHORT READ AT PA-KEY * 1 : P*
0x282b10…282ca4 Dummy {f00=0x00c9, f01=0x0190, f02=» P* A11= CREDIT WORK AREA 2 P* A13= RESERVED 2 $ P* 2 < : P***************************************************** 2 F PTRPA EQU * 2 & P CF A14,GETBUF GET TRANSMIT BUFFER 2 $ P CF A14,PAID STORE AID IN BUFFER 2 P CF A14,DCWRIT TRANSMIT 2 " P
0x282ca4…282e38 Dummy {f00=0x00c9, f01=0x018e, f02=»************************ 2 r : P* * 3 : P* TRPF TRANSMIT MODIFIED READ AT PF-KEY * 3 ^ : P* * 3 : P**********************************************
0x282e38…282fcc Dummy {f00=0x00c9, f01=0x0190, f02=» 3 P* A11= CREDIT WORK AREA 4 P* A13= RESERVED 4 ( P* 4 @ : P****************************************************** 4 J PTRPF EQU * 4 & P CF A14,GETBUF GET TRANSMIT BUFFER 4 P CF A14,PAID SAVE AID-CODE 4 * P CF A14,SCRINF GET SCREEN INFORMAT
0x282fcc…283160 Dummy {f00=0x00c9, f01=0x4046, f02=»ED FIELDS AND TRANSMIT 4 l P RTN A14 5 P 5 . P END 5 6@ 5 B : P****************************************************** 4 J PTRPF EQU * 4 & P CF A14,GETBUF GET TRANSMIT BUFFER 4 P CF A14,PAID SAVE AID-CODE 4 * P CF A14,SCRINF GET SCREEN INFORMAT
0x283160…2832f4 (3, 15) Dummy {f00=0x00ca, f01=0x2008, f02=» 6 FIED FIELDS v CF A14,DCWRTE TRANSMIT RTN A14 < L END T@ `RANSMIT BUFFER P & ! LD A1,SNAMOD,TCABAS GET SNA MODE z CWK A1,2 SYSTEM MODE? RF(E) TRPF10 YES * % CF A14,SCRINF GET SCREEN INFORMATION
0x2832f4…283488 Dummy {f00=0x00ca, f01=0x0190, f02=»========================= * 6 P* * , 6 P* REFERENCED IN: * f 6 P* * 6 P* ENTRY:
0x283488…28361c Dummy {f00=0x00ca, f01=0x0190, f02=» A11- START OF CONFIGURATION DATA * 6 P* * 2 6 P* WORK REGISTERS: A2 * l 6 P* * 6 P* SUBROUTINES:
0x28361c…2837b0 Dummy {f00=0x00ca, f01=0x018e, f02=»TAPL EQU * , P LD A2,SYSLOD GET NUMBER OF APPLICATIONS P ST A2,STKEND+APLNO SAVE B 6 P LDKL A2,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK b P ST A2,STKEND+APCSTA SAVE 6 P LD A11,STKCOM+CONSTA START OF CONFIGURATION DATA P RTN A14 RETURN
0x2837b0…283944 Dummy {f00=0x00ca, f01=0x0190, f02=» 6 P* NXTAPL - GET NEXT APPLICATION * 6 P* ============================= * > 6 P* * x 6 P* REFERENCED IN: * 6 P*
0x283944…283ad8 Dummy {f00=0x00ca, f01=0x0190, f02=»* ` 6 P* BLOCK ADDRESS * 6 P* * D 6 P* EXIT: APLNO - REMAINING NUMBER OF APPL.-1 * ~ 6 P* APCSTA - NEXT APPL. CONTROL BLOCK * 6 P* ADDR
0x283ad8…283c6c Dummy {f00=0x00ca, f01=0x0190, f02=» * f 6 P* * 6 P* SUBROUTINES: * J 6 P* * 6 P************************************************* P EJECT PNX
0x283c6c…283e00 Dummy {f00=0x00ca, f01=0x0190, f02=»BER OF APPL. j P RF(Z) NOAPL NO MORE! * P CALL NXTADB GET NEXT APPL DEF. BLOCK 2 @ P LD A2,STKEND+APCSTA GET ADDRESS TO CURRENT APPL. CTRL BLOCK ` ( P ADK A2,ACBLEN NEXT APPL. CTRL BLOCK & P ST A2,STKEND+APCSTA SAVE ADDRESS 4 P LD A1,STKEND+
0x283e00…283f94 (3, 16) Opaque[0x194]
0x283f94…284128 # DirEnt {nam=»DSPBSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1948, f03=0x0000}
0x283f94…284128 IdxSect {
0x283f94…284128 f00 = 0x00ca // 0x283f94 @0x0
0x283f94…284128 f01 = 0x000c // 0x283f96 @0x2
0x283f94…284128 gno = [ // 0x283f98 @0x4
0x283f94…284128 [0x00]: C0x00ca.0x1.0
0x283f94…284128 [0x01]: C0x00ca.0x2.0
0x283f94…284128 [0x02]: C0x00ca.0x3.0
0x283f94…284128 [0x03]: C0x00cb.0x0.0
0x283f94…284128 [0x04]: C0x00cb.0x1.0
0x283f94…284128 [0x05]: C0x00cb.0x2.0
0x283f94…284128 ]
0x283f94…284128 }
0x284128…2842bc Dummy {f00=0x00ca, f01=0x0190, f02=» 2 P IDENT DSPBSC REL 11.0 82-07-08DK 870150541100 P : P #1 HARDCOPY PROBLEM B P 82-06-25 ` P DK1, POWER OFF ON TERM.. t B P************************************************************* B P*
0x2842bc…284450 Dummy {f00=0x00ca, f01=0x0190, f02=»THE START UP OF THE * j B P* VDUKB TASK, CONTROLLING SNA MODES * B P* AND MULTIPLE WAIT FOR KB AND DC. * f < P* (EMULATION 3270 BSC) * B P*
0x284450…2845e4 Dummy {f00=0x00ca, f01=0x0190, f02=»****************************************************** D P* * > D P* LIST OF ROUTINES * D P*
0x2845e4…284778 Dummy {f00=0x00ca, f01=0x0190, f02=»L I/O COMPLETION . P* MATCH MATCH ADDRESS AND TASKID D P* INIT INITIALIZE THE TASK * P * P* COMINI COMMON INIT ROUTINE $ P* ECBINI INIT OF ECB:S D P* TSTDEV TEST KEY
0x284778…28490c Dummy {f00=0x00ca, f01=0x018e, f02=»********************************************** ~ P EJECT 6 > P********************************************************** D > P* * > P* ENTRY POINTS * >
0x28490c…284aa0 Dummy {f00=0x00ca, f01=0x0190, f02=» 0 P ENTRY VDUKB START LABEL FROM DATSNA(CREDIT) & P ENTRY COMINI COMMON INIT ROUTINE < P ENTRY ECBINI INIT OF ECB:S f . P ENTRY MATCH MATCH TASID AND PHYS. ADDRESS P > P********************************************************** > P*
0x284aa0…284c34 (3, 17) Dummy {f00=0x00ca, f01=0x0190, f02=» * > P********************************************************** < P ~ , P EXTRN I:EVA0 CREDIT EVALUATION ROUTINE P EXTRN OPEN OPEN DC (DCBSC) $ P EXTRN CONCT CONNECT DC (DCBSC) . P EXTRN
0x284c34…284dc8 Dummy {f00=0x00ca, f01=0x0190, f02=»NA) j 4 P EXTRN READKB READ KEYBOARD WITH NO WAIT (KEYB) 4 P EXTRN KBINP MAIN ROUTINE IN KEYB-MODULE (KEYB) D 6 P EXTRN DCINP MAIN ROUTINE IN DCSNA-MODULE (DCSNA) | * P EXTRN LMP6OF OFFLINE LAMP OFF (KEYB) " P EXTRN LMP1ON DC LINE 1 (KEYB) "
0x284dc8…284f5c Dummy {f00=0x00ca, f01=0x0190, f02=»RN LMP5OF ERROR LAMP OFF (KEYB) . P EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) ( 0 P EXTRN STOINF SAVE SCREEN INFORMATION (VDU) Z ( P EXTRN ICVRED INTERTASK READ (KEYB) ( P EXTRN ICINP INTERTASK INPUT (KEYB) * P EXTRN CHKSTA CHECK DC STATUS (DCB
0x284f5c…2850f0 Dummy {f00=0x00ca, f01=0x0190, f02=»********************************************************* B P* * B B P* CONDITIONAL ASSEMBLY PARAMETERS * B P*
0x2850f0…285284 Dummy {f00=0x00ca, f01=0x0190, f02=» EQU 16 & PX:C EQU 0 OFFLINE HANDLING IF :=1 POFLIN EQU 0 : $ PX:D EQU 1 NUMBER OF LINES (1-2) N PNBRLIN EQU 2 v * PX:M EQU 0 COPY COMMNAND INCLUDED IF:=1 PCOPCMD EQU 1 " PX:O EQU 0 TEST INCLUDED IF:=1 PTEST EQU 0 P EJE
0x285284…285418 Dummy {f00=0x00ca, f01=0x0190, f02=»* V & P* DECLARATIONS OF DATA AND EQUATES @ P* * 4 @ P*********************************************************** x P P* P* ECB INDEX TABLE P* PECBIND EQU * P D
0x285418…2855ac Dummy {f00=0x00ca, f01=0x0190, f02=»ATA X'4206' ECB VDU $ P DATA X'5008' ECB INTERTASK READ & P DATA X'510A' ECB INTERTASK WRITE D P DATA X'610C' ECB DC LINE1 n " P DATA X'620E' ECB DC LINE2 DK ( P DATA X'2110' ECB FOR NUMERIC KB DK P* $ P* SCREEN SIZE ON DIS
0x2855ac…285740 Dummy {f00=0x00ca, f01=0x0190, f02=»* TASK IDENTIFICATION CODE P* " PVDUCOD EQU 'VV' KB/VDU , P EJECT J P* X P* RELATIVE ADDRESSES IN b P* TERMINAL WORKBLOCK TB1 P* POFFFLG EQU 1962 OFFLINE FLAG * PPRTID EQU OFFFLG+2 TASKID FOR HARDCOPY " PMAIN EQU P
0x285740…2858d4 (3, 18) Dummy {f00=0x00ca, f01=0x018e, f02=» MODE z " PECBTAB EQU BSCMOD+2 ECB TABLE P* 4 P* RELATIVE ADDRESSES IN > P* COMMON WORKBLOCK CB1 ^ P* | * PMF1CU EQU 0 SYMBOLIC CLUSTER ADDDRESS P IFF TEST=1 " PTSKTAB EQU MF1CU+26 TASK TABLE P XIF P IFT TEST=1
0x2858d4…285a68 Dummy {f00=0x00ca, f01=0x0190, f02=» > P* * > P* VDUKB MAIN ROUTINE * F > P* * > P*********************************************************
0x285a68…285bfc Dummy {f00=0x00ca, f01=0x018e, f02=»**** d PVDUKB EQU * $ P CF A14,INIT INITIALIZE THE TASK PVDU200 EQU * H " P CF A14,IOACT PREPARE ECB-BLK P LDKL A7,ECBBLK P ADR A7,A11 P LKM P DATA 7 MULTIPLE WAIT & P CF A14,IOCPL TAKE CARE OF REQUEST P RB VD
0x285bfc…285d90 Dummy {f00=0x00ca, f01=0x0190, f02=» P* MODE /0000 /4000 P* , P* 6 P* BLK 2 3 @ P* KB KB b P* DC DC P* IC P* P* P* P EJECT @ P**************
0x285d90…285f24 Dummy {f00=0x00ca, f01=0x0190, f02=» I/O ACTIVATION @ P* * @ P************************************************************ b P* REGISTERS P* ( P* A4= NUMBER OF ENTRIES IN ECB BLOCK P* A11= CREDI
0x285f24…2860b8 Dummy {f00=0x00ca, f01=0x0190, f02=» $ P LDK A4,1 COUNT NUMBER OF I-O'S P . #1 , , P LD A2,ECBBLK+4,A11 REQ. ALREADY OUTST.? < P RF(NZ) IOAC10 YES l P CF A14,TSTMES TEST MESSAGE P ST A8,ECBBLK+4,A11 PIOAC10 EQU * P IFT COPCMD=1 P LD A1,BSCMOD,A11 . #1
0x2860b8…28624c Dummy {f00=0x00ca, f01=0x0190, f02=»F(NZ) IOAC30 INTERTASK ALREDY OUTSTANDING " P CF A14,ICVRED READ INTERATSK 2 P ST A8,ECBBLK+8,A11 X PIOAC30 EQU * t P ADK A4,1 ( P LD A2,ECBBLK+2,A11 KB OUTSTANDING? P RF(NZ) IOAC35 YES P CF A14,READKB READ KEYBOARD P ST
0x28624c…2863e0 Dummy {f00=0x00ca, f01=0x0190, f02=»2 OUTSTANDING z P RF(NZ) IOAC40 YES ( P CF A14,READK2 READ SECOND KEYBOARD 2 P ST A8,ECBBLK+6,A11 ^ P** END DK ** z PIOAC40 EQU * * P ST A4,ECBBLK,A11 SAVE NUMBER OF WAITS P RTN A14 P EJECT @ P****************
0x2863e0…286574 (3, 19) Dummy {f00=0x00cb, f01=0x0190, f02=» I/O COMPLETION @ P* * @ P************************************************************ ` P* REGISTERS P* P* A11= CREDIT WORK AREA P* A13= RESERVED P* @ P****
0x286574…286708 Dummy {f00=0x00cb, f01=0x0190, f02=»O P CM ECBBLK+2,A11 " P CF A14,KBINP TAKE CARE OF KB " P RF IOCP90 H 6 P** SECOND KEYBOARD HANDLING P & T,81-10-19 DK ** Z PIOCP05 EQU * $ P CW A8,ECBBLK+6,A11 KB2 INPUT ? P RF(NE) IOCP10 NO P CM ECBBLK+6,A11 $ P C
0x286708…28689c Dummy {f00=0x00cb, f01=0x0190, f02=» P RF(NE) IOCP20 NO P CM ECBBLK+4,A11 " P CF A14,DCINP TAKE CARE OF DC 6 P RF IOCP90 PIOCP20 EQU * n P CM ECBBLK+8,A11 ( P CF A14,ICINP TAKE CARE OF INTERTASK PIOCP90 EQU * P RTN A14 P EJECT D P****************
0x28689c…286a30 Dummy {f00=0x00cb, f01=0x018e, f02=»************************************************* P* REGISTERS : P* V P* ` D P**************************************************************** j PMATCH EQU * P IFT COPCMD=1 ( P LDK A1,NBRTSK GET NUMBER OF ENTRIES P
0x286a30…286bc4 Dummy {f00=0x00cb, f01=0x0190, f02=» P ADK A3,4 NEXT P SUK A1,1 ALL CHECKED? P RB(NZ) MATC10 NO 8 PMATC20 EQU * R P LDK A1,1 INDICATE NOT FOUND f P RF MATC90 PMATC30 EQU * P LCR A1,A3 , P CCK A1,VDUCOD COPY IN RIGHT DIRECTION? P RB(NE) MATC20 NO
0x286bc4…286d58 Dummy {f00=0x00cb, f01=0x0190, f02=»**************************** p @ P* * $ @ P* INIT INITIALIZE THE TASK * h @ P* * @ P************************
0x286d58…286eec Dummy {f00=0x00cb, f01=0x0190, f02=» 6 P************************************************* PINIT EQU * > P CF A14,COMINI COMMON INIT P P CF A14,ECBINI INIT OF ECB:S r P CF A14,OPEN OPEN DC P LDKL A8,20 P LKM P DATA 6 . P CF A14,TSTDEV WAIT FOR TERM OPERABLE
0x286eec…287080 Dummy {f00=0x00cb, f01=0x018e, f02=»A9,REGI,A11 RESTORE TASKTAB ADDRESS PINIT10 EQU * , P SUK A2,1 @ P RF(N) INIT20 R P ADKL A9,4 h P LCR A1,A9 z P ANK A1,/FF ANY TASK AT ALL? P RB(Z) INIT10 NO P CCK A1,'VV' DISPLAY TASK? P RB(E) INIT10 YES P SLL
0x287080…287214 (3, 20) Dummy {f00=0x00cb, f01=0x0190, f02=» P ST A12,4,A14 P ST A13,2,A14 P STR A2,A14 0 P ST A1,-2,A14 D $ P SUKL A14,4 UPDATE STACK POINTER Z P CM OFFFLG,A11 ( P CF A14,LMP6OF TURN OFF OFFLINE LAMP P XIF P LDK A4,0 ( P LDKL A5,LBVDU+1 UNFORMATTED SCREEN
0x287214…2873a8 Dummy {f00=0x00cb, f01=0x0190, f02=» LD A1,MAIN,A11 DC LINE 1? P RF(Z) INIT30 YES " & P CF A14,LMP2ON INDICATE DC LINE 2 < P RF INIT40 f PINIT30 EQU * x P XIF & P CF A14,LMP1ON INDICATE DC LINE 1 PINIT40 EQU * $ P CF A14,CHKSTA CHECK IF LINE OK P RTN A14
0x2873a8…28753c Dummy {f00=0x00cb, f01=0x0190, f02=» * ^ > P* COMINI COMMON INIT ROUTINE * > P* * R > P********************************************************** P* REGISTERS P* P* A11=
0x28753c…2876d0 Dummy {f00=0x00cb, f01=0x0190, f02=» * P CF A14,I:EVA0 ! $ P LDR A11,A9 LOAD TASK AREA BASE ! P LDR* A2,A11 GET TASKID ! H " P LD A3,6,A13 COMMON BLOCK BASE ! h P LDR A1,A2 ! P ANK A1,X'FF' ! * P SUK A1,X'30' GET OFFSET IN TASK TABLE ! P SLL A1,2 TWO WORDS ENTRIES ! P
0x2876d0…287864 Dummy {f00=0x00cb, f01=0x0190, f02=» SAVE TASKID ! P SRL A2,8 " P SCR A2,A1 " & P RTN A14 " 8 P EJECT " H P* " V P* " ` P* ECB TABLE LAYOUT " j P* " P* " P* " 4 P* DISPLACEMENT I/O FILECODE " P* " 2 P* 0 KB
0x287864…2879f8 Dummy {f00=0x00cb, f01=0x0190, f02=» 6 VDU /42 " 2 P* 8 INTERTASK R. /50 # , 2 P* 10 INTERTASK W. /51 # b 2 P* 12 DC LINE 1 /61 # 2 P* 14 DC LINE 2 /62 # P* #
0x2879f8…287b8c Dummy {f00=0x00cb, f01=0x0190, f02=» * # B P* ECBINI INIT OF ECB:S * $ 6 B P* * $ | B P************************************************************* $ P
0x287b8c…287d20 Dummy {f00=0x00cb, f01=0x0190, f02=» = ECB FC POINTER $ P* A8 = DATA SET POINTER % P* A11= CREDIT WORK AREA % : P* A13= RESERVED % Z P* % r @ P************************************************************ % | PECBINI EQU * % " P LD A2,-8,A13 GET T:D ADDRESS % & P LD A4,+4,A2 G
0x287d20…287eb4 (3, 21) Dummy {f00=0x00cb, f01=0x0190, f02=»BI10 EQU * % P LD A5,ECBIND NUMBER OF FC:S & & P LDKL A7,ECBIND+2 FIRST FILE CODE & 6 P LC A2,+1,A6 DATA SET FC & ` PECBI20 EQU * & * P CCR A2,A7 FC IN DAT = FC CONFIGURED? & P RF(E) ECBI30 YES & P ADK A7,2 NEXT & P SUK A5,1 NOT FOUND? &
0x287eb4…288048 Dummy {f00=0x00cb, f01=0x0190, f02=»BI30 EQU * & $ P SC A2,+1,A8 SAVE FC IN DATA SET ' ( P LD A2,+2,A6 GET FIXED LENGTH IF ANY ' : " P ST A2,+4,A8 SAVE IN DATA SET ' f * P LD A2,+18,A8 GET FIXED BUFFER IF ANY ' " P ST A2,+2,A8 SAVE IN DATA SET ' ( P LC A2,+1,A7 GET INDEX TO ECB TABLE '
0x288048…2881dc Dummy {f00=0x00cb, f01=0x0190, f02=»L DONE? ' P RB(NZ) ECBI10 NO ( P RTN A14 ( * P EJECT ( : B P************************************************************* ( H B P* * ( B P* TSTDEV TEST KEYBOARD AND DISPLAY
0x2881dc…288370 Dummy {f00=0x00cb, f01=0x0190, f02=»************* ( ` P* REGISTERS ) P* ) * P* A11= CREDIT WORK AREA ) 4 P* A13= RESERVED ) T P* ) l 6 P************************************************* ) v PTSTDEV EQU * ) , P CF A14,SOUND TURN ON SOUND ALARM AT VDU ) $ P LDR A1,A1 CHECK RET
0x288370…288504 Dummy {f00=0x00cb, f01=0x403e, f02=»90 EQU * DK1 ) P RTN A14 * P * & P END * .@ * :DIT WORK AREA ) 4 P* A13= RESERVED ) T P* ) l 6 P************************************************* ) v PTSTDEV EQU * ) , P CF A14,SOUND TURN ON SOUND ALARM AT VDU ) $ P LDR A1,A1 CHECK RET
0x288504…288698 Dummy {f00=0x00cb, f01=0x2008, f02=» + * ! j @ <************************************************************ " I/OACT EQU * " b * & DATA VDU400 ACT. ONLY KB IN OPEN MODE " v . * DATA VDU300 ACT. KB AND DC IN SYSTEM MODE " . * DATA VDU300 ACT. KB AND DC IN MY JOB MODE "
0x288698…28882c Dummy {f00=0x00cb, f01=0x0190, f02=» 2! : 6 2 4 W& " # 4l;b ; : ;f" #?_" W " T & T + : * & !@P `1` P 6 Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R
0x28882c…2889c0 Dummy {f00=0x00cb, f01=0x0190, f02=»P * U P 1`! T "# 9e! # K : P8" T * & : * & !`P :J +_ +Q 6 _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
0x2889c0…288b54 (3, 22) Opaque[0x194]
0x288b54…288ce8 # DirEnt {nam=»KEYB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2fd0, f03=0x0000}
0x288b54…288ce8 IdxSect {
0x288b54…288ce8 f00 = 0x017e // 0x288b54 @0x0
0x288b54…288ce8 f01 = 0x002e // 0x288b56 @0x2
0x288b54…288ce8 gno = [ // 0x288b58 @0x4
0x288b54…288ce8 [0x00]: C0x017e.0x2.0
0x288b54…288ce8 [0x01]: C0x017e.0x3.0
0x288b54…288ce8 [0x02]: C0x017f.0x0.0
0x288b54…288ce8 [0x03]: C0x017f.0x1.0
0x288b54…288ce8 [0x04]: C0x017f.0x2.0
0x288b54…288ce8 [0x05]: C0x017f.0x3.0
0x288b54…288ce8 [0x06]: C0x0180.0x0.0
0x288b54…288ce8 [0x07]: C0x0180.0x1.0
0x288b54…288ce8 [0x08]: C0x0180.0x2.0
0x288b54…288ce8 [0x09]: C0x0180.0x3.0
0x288b54…288ce8 [0x0a]: C0x0181.0x0.0
0x288b54…288ce8 [0x0b]: C0x0181.0x1.0
0x288b54…288ce8 [0x0c]: C0x0181.0x2.0
0x288b54…288ce8 [0x0d]: C0x0181.0x3.0
0x288b54…288ce8 [0x0e]: C0x0182.0x0.0
0x288b54…288ce8 [0x0f]: C0x0182.0x1.0
0x288b54…288ce8 [0x10]: C0x0182.0x2.0
0x288b54…288ce8 [0x11]: C0x0182.0x3.0
0x288b54…288ce8 [0x12]: C0x0183.0x0.0
0x288b54…288ce8 [0x13]: C0x0183.0x1.0
0x288b54…288ce8 [0x14]: C0x0183.0x2.0
0x288b54…288ce8 [0x15]: C0x0183.0x3.0
0x288b54…288ce8 [0x16]: C0x0184.0x0.0
0x288b54…288ce8 ]
0x288b54…288ce8 }
0x288ce8…288e7c Dummy {f00=0x017e, f01=0x0190, f02=» 2 P IDENT KEYB REL 11.0 DK 83-01-07 870150541100 P : $ P DK2 RESTORE A1 AFTER DC ABRT B P DK1,ERASE ONE LINE 'EOF' j P =3 ERASE TO END OF FIELD P =2 TWO DC-LINES P 82-02-28 P =1, SYSTEM MODE CURSOR P 8
0x288e7c…289010 Dummy {f00=0x017e, f01=0x0190, f02=» * ` D P* MODULE KEYB * D P* MODULE HANDLING THE KEYBOARD DEVICE * ` D P* (EMULATION 3270 SNA/SDLC, BSC) * D P*
0x289010…2891a4 Dummy {f00=0x017e, f01=0x0190, f02=»************************************************************* D P* * F D P* LIST OF ROUTINES * D P*
0x2891a4…289338 Dummy {f00=0x017e, f01=0x0190, f02=»OR DIFF. MODES * f < P* KBCPLO KB-COMPLETION ROUTINE IN LOCAL MODE D P* KBCPSY KB-COMPLETION ROUTINE IN SYSTEM MODE * ^ D P* KBCPJO KB-COMPLETION ROUTINE IN MY JOB MODE * D P* READKB READ
0x289338…2894cc Dummy {f00=0x017e, f01=0x0190, f02=» KB/VDU INTERTASK READ ~ ( P* ICINP INTERTASK INPUT . P* ICSET SET INTERTASK TIMEOUT L ( P* ICREAD READ INTERTASK ~ ( P* ICWRT WRITE INTERTASK D P* ERROR ILLEGAL KEY-HANDLING
0x2894cc…289660 Dummy {f00=0x017e, f01=0x018e, f02=» * f D P* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * D P* CHAR ALPHA. CHAR HANDLING * f D P* NUM NUM. CHAR HANDLING * D P* ANCOMM
0x289660…2897f4 (3, 23) Dummy {f00=0x017e, f01=0x0190, f02=» D P* BAKTAB TAB. UNPROT. BACKWARDS * D P* TAB TAB. UNPROT. FORWARDS * L D P* CRNL TAB. UNPROT. NEXT LINE * D P* RDHOME TAB. UNPROT. FIRST ON S
0x2897f4…289988 Dummy {f00=0x017e, f01=0x0190, f02=»NTIRE SCREEN * l D P* INSERT INSERT HANDLING * $ D P* DELETE DELETE HANDLING * l D P* RESET RESET HANDLING * D P* D
0x289988…289b1c Dummy {f00=0x017e, f01=0x0190, f02=» ZERO:2,3 DOUBLE & TRIPLE ZERO HANDLING * D P* OFLINE OFFLINE HANDLING * D D P* MFCHGE MAIN FRAME CHANGE * D P* COPY LOCAL HARDCOPY
0x289b1c…289cb0 Dummy {f00=0x017e, f01=0x0190, f02=» * d " P* TESTM TEST MODE D P* ENTER ENTER HANDLING * B D P* CLEAR CLEAR HANDLING * D P* SYSREQ SYSTEM REQUEST HANDLING
0x289cb0…289e44 Dummy {f00=0x017e, f01=0x0190, f02=» * b D P* PF PROGRAM FUNCTION HANDLING * D P* RETURN RETURN * b D P* * D P**********************
0x289e44…289fd8 Dummy {f00=0x017e, f01=0x0190, f02=» * 8 P* ENTRY POINTS * 0 8 P* * l 8 P**************************************************** P . P ENTRY KBINP,KBINP2 START LA
0x289fd8…28a16c Dummy {f00=0x017e, f01=0x0190, f02=» P ENTRY LMP1OF . P ENTRY LMP2ON . P ENTRY LMP2OF . 4 P ENTRY LMP3ON . L P ENTRY LMP3OF . d P ENTRY LMP4ON . | P ENTRY LMP4OF . P ENTRY LMP5ON . P ENTRY LMP5OF . P ENTRY LMP6ON . P ENTRY LMP6OF .
0x28a16c…28a300 Dummy {f00=0x017e, f01=0x0190, f02=» TAB TAB FOREWARD UNPROTECTED , P ENTRY CRDOWN MOVE CURSOR DOWN ONE LINE & $ P ENTRY ICVRED VDU INTERTASK READ V P ENTRY ICINP INTERTASK INPUT ~ & P ENTRY ICSET SET INTERTASK TIMEOUT P ENTRY ICWRT WRITE INTERTASK P ENTRY ICREAD READ INTER
0x28a300…28a494 (3, 24) Dummy {f00=0x017f, f01=0x0190, f02=» * h : P* EXTERNAL REFERENCES * : P* * T : P****************************************************** P & P EXTRN I:RT1 RETURN TO CREDIT CODE 2 P EXTRN
0x28a494…28a628 Dummy {f00=0x017f, f01=0x0190, f02=»A,DCBSC) l * P EXTRN ERASE ERASE ENTIRE SCREEN (VDU) 8 P EXTRN ERASUA ERASE ALL UNPROTECTED TO ADDRESS (VDU) > . P EXTRN ERASUP ERASE ALL UNPROTECTED (VDU) z 2 P EXTRN TRPA TRANSMIT SHORT READ (DCSNA,DCBSC) 4 P EXTRN TRPF TRANSMIT MODIFIED READ (DC
0x28a628…28a7bc Dummy {f00=0x017f, f01=0x0190, f02=»D ALARM ON DISPLAY (VDU) ~ . P EXTRN SCRINF GET SCREEN INFORMATION (VDU) 0 P EXTRN STOINF SAVE SCREEN INFORMATION (VDU) R 0 P EXTRN GETVDU GET CHAR. IN VDU BUFFER (VDU) 2 P EXTRN STOVDU STORE CHAR. IN VDU BUFFER (VDU) & P EXTRN DISCHA DISPLAY CH
0x28a7bc…28a950 Dummy {f00=0x017f, f01=0x018e, f02=»N INDICATE OFFLINE TO DC (DCSNA,DCBSC) 0 P EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) . . P EXTRN CONPF CONVERT PF-KEY TABLE (CONVER) b * P EXTRN OPSYS OPEN SYSTEM (DCSNA,DCBSC) $ P EXTRN LINE GET LINE FLAG (VDU) & P EXTRN SAVE1 SAVE1 REGISTERS (
0x28a950…28aae4 Dummy {f00=0x017f, f01=0x0190, f02=» & P EXTRN RELBUF RELEASE BUFFER (PAD) * P EXTRN DISSTA DISPLAY STATISTICS (VDU) . * P EXTRN RDSTAT READ STATISTICS (DCBSC) 2 P EXTRN CHKSTA CHECK LINE STATUS (DCBSC,DCSNA) $ P EXTRN SETSTA SET STATUS (DCSNA) $ P EXTRN CONCT CONNECT (DCXXX) =2
0x28aae4…28ac78 Dummy {f00=0x017f, f01=0x0190, f02=»* * B P* CONDITIONAL ASSEMBLY PARAMETERS * F B P* * B P******************************************************
0x28ac78…28ae0c Dummy {f00=0x017f, f01=0x0190, f02=»EQU 0 $ PX:D EQU 1 NUMBER OF LINES (1-2) PNBRLIN EQU 2 6 $ PX:F EQU 0 KEY-LOCK STATUS IF:=1 J PKEYLST EQU 0 r $ PX:G EQU 0 PF KEY HANDLING IF:=1 PPFX EQU 1 $ PX:H EQU 0 PA KEY HANDLING IF :=1 PPAX EQU 1 , PX:I EQU 1 INSE
0x28ae0c…28afa0 Dummy {f00=0x017f, f01=0x0190, f02=» INCLUDED IF:=1 z PCOPCMD EQU 1 & PX:O EQU 0 TEST MODE INCLUDED IF:=1 , PTEST EQU 0 V 0 PX:P EQU 0 COPY LOCK FUNCTION INCLUDED IF:=1 h PCOPL EQU 0 P EJECT D P*************************************************************** D P*
0x28afa0…28b134 (3, 25) Dummy {f00=0x017f, f01=0x0190, f02=» * v D P*************************************************************** . P v P* ~ P* PREDEFINED KEYS P* * PCRUP EQU /80 FIRST "MOVE CURSOR " KEY , PERFKEY EQU /88 ERASE TO END OF FIELD-KEY
0x28b134…28b2c8 Dummy {f00=0x017f, f01=0x0190, f02=»CK VALUE v & PLKLKEY EQU /9C LAST KEYLOCK VALUE ( PFIPA EQU /9F FIRST PROGRAM ATTN. KEY : PENTKEY EQU /A0 ENTER KEY f & PSYSKEY EQU /A1 SYSTEM REQUEST KEY PCLRKEY EQU /A2 CLEAR KEY & PPFKEY EQU /B1 PROGRAM FUNTION KEY ( PLAKEY EQU /C9
0x28b2c8…28b45c Dummy {f00=0x017f, f01=0x0190, f02=»REQUESTED LENGTH PECBEL EQU 6 EFFECTIVE LENGTH PECBRC EQU 8 RETURN CODE < PECBCW EQU 10 CONTROL WORD & PECBCW2 EQU 12 CONTROL WORD TWO DK ~ P* P* SPECIAL CHARACTERS P* PNULL EQU 0 NULL CHAR. " PDUPCH EQU /1C DUPL
0x28b45c…28b5f0 Dummy {f00=0x017f, f01=0x0190, f02=»/B8 PLFL EQU /B9 FLASH P IFT KB6272=1 & PLAMP1 EQU /20 < PLAMP2 EQU /10 R PLAMP3 EQU 8 h PLAMP4 EQU 4 | PLAMP5 EQU 2 PLAMP6 EQU 1 P XIF P IFF KB6272=1 PLAMP1 EQU 0 PLAMP2 EQU 0 PLAMP3
0x28b5f0…28b784 Dummy {f00=0x017f, f01=0x0190, f02=»E EQU 80 LINE LENGTH PLBVDU EQU 1920 TOTAL SIZE P* > P* MODES H P* X PNEWMOD EQU /8000 NEW MODE b * PHCPMOD EQU /4000 HARDCOPY OUTSTANDING PMYJOB EQU /0004 MY JOB MODE ( PSYSOP EQU /0002 SYSTEM OPERATOR MODE PLOCMOD
0x28b784…28b918 Dummy {f00=0x017f, f01=0x018e, f02=» P* RELATIVE ADDRESSES IN P* TERMINAL WORKBLOCK ( P* D PBVDU EQU 2 VDU SCREEN BUFFER N $ PLINFLG EQU BVDU+1920 LINE FLAGS r PWCC EQU LINFLG+30 WCC CHAR. . PKBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR $ POFFFLG EQU KBINH+8 OFFLI
0x28b918…28baac Dummy {f00=0x017f, f01=0x0190, f02=» $ PKEYS EQU MODE+2 KEY LOCK STATUS 4 PRDMORE EQU KEYS+12 BRANCH ADDRESS TO NEXT KB-KEY , 2 PCURPOS EQU RDMORE+2 CURSOR POS. IN SYSTEM MODE d PREGI EQU CURPOS+4 SAVE AREA PSNAMOD EQU REGI+32 SNA MODE PBSCMOD EQU SNAMOD BSC MODE PECBK
0x28baac…28bc40 Dummy {f00=0x017f, f01=0x0190, f02=»R+2 ECB INTERTAS WRITE , PECBKB2 EQU ECBICW+6 ECB 2ND KEYBOARD DK P* N P* RELATIVE ADDRESSES IN X P* COMMON WORKBLOCK x P* P IFF TEST=1 PTSKTAB EQU 26 TASK TABLE P XIF P IFT TEST=1 PTSKTAB EQU 219 TASK TABL
0x28bc40…28bdd4 (3, 26) Dummy {f00=0x017f, f01=0x0190, f02=» * t D P* KBINP MAIN ROUTINE * , D P* * t D P**************************************************************** P* R
0x28bdd4…28bf68 Dummy {f00=0x017f, f01=0x0190, f02=»ED P* A7= KEY-HANDLING INDICATOR P* A11= CREDIT WORK AREA . P* A13= RESERVED N P* f @ P*********************************************************** p PKBINP2 EQU * . P LDK A1,1 INDICATE 2ND KEYBOARD PRESENT DK P ST A1,ECBCW
0x28bf68…28c0fc Dummy {f00=0x017f, f01=0x0190, f02=»LOCK ? DK v P RF(N) KBIN80 SKIP IT DK P XIF 2 P IFT KEYLST=1 > & P LC* A2,ECBBA,A8 GET KEYLOCK VALUE T * P ADKL A2,FKLKEY-/70 PREPARE FOR TABLE ~ P SC* A2,ECBBA,A8 RESTORE P XIF P LD A1,ECBRC,A8 ERROR? P ANKL A1,/FFF3
0x28c0fc…28c290 Dummy {f00=0x017f, f01=0x0190, f02=» INPUT CHAR. | P ANK A2,/FF ! P LD A1,KBINH,A11 ! ( " P ANK A1,6 MUST BE A RESET KEY? ! @ P RF(Z) KBIN30 NO ! f P CWK A2,RSET RESET KEY? ! ~ P IFT SNA=1 ! P RF(E) KBIN30 YES ! & P CWK A2,SYSKEY SYSTEM REQUEST KEY? ! P XIF ! P RF(NE)
0x28c290…28c424 Dummy {f00=0x017f, f01=0x018e, f02=»LAKEY ! P RF(G) KBIN80 ILLEGAL CHAR " P IFT SNA=1 " 0 " P LD A1,SNAMOD,A11 GET SNA MODE " B P ANK A1,/FF " h 2 P CFI A14,CPLKB,A1 COMPLETE KB IN CURRENT MODE " | P XIF " P IFF SNA=1 " P LDK A7,0 " " P CWK A2,FIPA PROGRAM ATTN KEY? " P
0x28c424…28c5b8 Dummy {f00=0x017f, f01=0x018e, f02=» P LDR A7,A7 ANY KEY-HANDLING # P RF(NZ) KBIN80 NO # ( $ P ADR A3,A3 PREPARE FOR KEY-TABLE # B & P LD A1,RDMORE,A11 KEY IN SEQUENCE? # j P RF(Z) KBIN50 NO # $ P CF A14,DCABOR KILL DC AGAIN DK # $ P LD A1,RDMORE,A11 RESTORE A1 DK2 # ( P CFR A14,A1
0x28c5b8…28c74c Dummy {f00=0x017f, f01=0x0190, f02=» # PKBIN80 EQU * $ " P CF A14,RESKB RESET KB BUFFER $ PKBIN90 EQU * $ B P RTN A14 $ V P EJECT $ f P IFT SNA=1 $ t J P********************************************************************* $ J P*
0x28c74c…28c8e0 Dummy {f00=0x017f, f01=0x0190, f02=» * $ p J P********************************************************************* % . PCPLKB EQU * % | ( P DATA KBCPLO KB-COMPL. IN LOCAL MODE % * P DATA KBCPSY KB-COMPL. IN SYSTEM MODE % * P DATA KBCPJO KB-COMPL. IN MY J
0x28c8e0…28ca74 (3, 27) Dummy {f00=0x017f, f01=0x0190, f02=» * % t J P* KBCLO KB-COMPLETION IN LOCAL MODE * & 2 J P* * & J P**********************************************************
0x28ca74…28cc08 Dummy {f00=0x017f, f01=0x0190, f02=»ED & P* A6= RESERVED ' P* A7= KEY-HANDLING INDICATOR ' P* A11= CREDIT WORK AREA ' D P* A13= RESERVED ' d P* ' | @ P*********************************************************** ' PKBCPLO EQU * ' $ P LDK A7,0 INDICATE KEY-HANDLING ' $ P C
0x28cc08…28cd9c Dummy {f00=0x017f, f01=0x0190, f02=» RF(NE) KBCL80 NO ' & P CF A14,OPSYS START COMMUNICATION ( P CF A14,TSTSTA TEST STATUS ( D P ANKL A1,/101 ACTIVE? ( f P RF(NZ) KBCL90 NO ( & P LDK A1,SYSOP INDICATE SYSTEM MODE ( , P ORKL A1,/8000 INDICATE MODE ACTIVATION ( P ST A1,SNAMOD,A1
0x28cd9c…28cf30 Dummy {f00=0x017f, f01=0x0190, f02=»NT ROUTINE? ( t P RF(Z) KBCL85 NO ) $ P LDK A7,0 INDICATE KEY-HANDLING ) , P RF KBCL90 ) T PKBCL85 EQU * ) f P CF A14,ERROR ILLEGAL KEY ) z PKBCL90 EQU * ) P RTN A14 ) P EJECT ) H P**********************************************************
0x28cf30…28d0c4 Dummy {f00=0x017f, f01=0x018e, f02=»EM MODE * ) f H P* * * " H P******************************************************************** * n P* REGISTERS * P* * P* A2= KEY-CHAR * P* A3= KEY-TABLE INDEX *
0x28d0c4…28d258 Dummy {f00=0x017f, f01=0x018e, f02=» P* A13= RESERVED + P* + @ P*********************************************************** + & PKBCPSY EQU * + j $ P LDK A7,0 INDICATE KEY-HANDLING + ~ $ P CWK A2,FIPA PROGRAM ATTN. KEY? + P RF(L) KBCS20 NO + 0 P CWK A2,CLRKEY UNALLOWED PROGRAM A
0x28d258…28d3ec Dummy {f00=0x017f, f01=0x0190, f02=» P RF KBCS80 , PKBCS10 EQU * , P RF(G) KBCS70 YES , * P CM MODE,A11 , D $ P CF A14,LMP6OF CLEAR INSERT MODE , X P CF A14,DCABOR ABORT DC , P RF KBCS80 , PKBCS20 EQU * , $ P CWK A2,ERIKEY ERASE INPUT KEY? , P RF(E) KBCS80 YES , * P
0x28d3ec…28d580 Dummy {f00=0x017f, f01=0x0190, f02=» P LD A1,CURPOS,A11 - " P CWK A1,/800 CURSOR INITIATED? - P RF(NE) KBCS90 YES - D $ P CF A14,SCRINF GET SCREEN INFO. - ^ & P ST A4,CURPOS,A11 INITIATE CURSOR - P RF KBCS90 - PKBCS70 EQU * - P CF A14,ERROR INDICATE ERROR - P LDK A7,1 NO K
0x28d580…28d714 (3, 28) Dummy {f00=0x0180, f01=0x0190, f02=»90 EQU * - P RTN A14 . P EJECT . F P****************************************************************** . . F P* * . x F P* KBCPJO KB-COMPLETION IN MY JOB MODE * .
0x28d714…28d8a8 Dummy {f00=0x0180, f01=0x0190, f02=»******** . V P* REGISTERS / P* / $ P* A2= KEY-CHAR / . P* A3= KEY-TABLE INDEX / D P* A4= RESERVED / b P* A5= RESRVED / x P* A6= RESRVED / P* A7= KEY-HANDLING INDICATOR / P* A11= CREDIT WORK AREA / P* A13= RESERVED / P* / @
0x28d8a8…28da3c Dummy {f00=0x0180, f01=0x0190, f02=»2,FIPA PROGRAM ATTN. KEY? / P RF(L) KBCJ90 NO 0 " P IFT OFLIN=1 0 : P RF(E) KBCJ80 0 N P XIF 0 d P IFT SNA=1 0 p P CM MODE,A11 0 ( P CF A14,LMP6OF TURN OFF INSERT LAMP 0 P CF A14,DCABOR ABORT DC 0 P IFT OFLIN=1 0 P RF KBCJ90 0 P
0x28da3c…28dbd0 Dummy {f00=0x0180, f01=0x018e, f02=» P RTN A14 1 P XIF 1 P EJECT 1 D P*************************************************************** 1 . D P* * 1 v D P* READKB READ KEYBOARD WITH NO WAIT * 1 D P*
0x28dbd0…28dd64 Dummy {f00=0x0180, f01=0x0190, f02=» 1 N P* REGISTERS 2 P* 2 $ P* A8= KB-ECB 2 . P* A11= CREDIT WORK AREA 2 B P* A13= RESERVED 2 b P* 2 z : P***************************************************** 2 PREADKB EQU * 2 P LD A8,ECBKB,A11 2 P LDK A7,0 CLEAR ECBCW 2
0x28dd64…28def8 Dummy {f00=0x0180, f01=0x0190, f02=»STANDARD READ 2 P LKM 3 P DATA 1 3 " P RTN A14 3 2 0 P** READ FROM SECOND KEYBOARD, P & T, DK ** 3 B PREADK2 EQU * 3 v P LD A8,ECBKB2,A11 GET ECB 3 P LDK A7,0 CLEAR ECBCW 3 P ST A7,ECBCW,A8 3 P LDK A7,1 3 P ST A7,ECBRL,A8
0x28def8…28e08c Dummy {f00=0x0180, f01=0x018e, f02=»*************************************************************** 3 D P* * 4 H D P* RESKB RESET KEYBOARD BUFFER * 4 D P*
0x28e08c…28e220 Dummy {f00=0x0180, f01=0x0190, f02=» P* A11= CREDIT WORK AREA 5 P* A13= RESERVED 5 $ P* 5 < : P****************************************************** 5 F PRESKB EQU * 5 2 P* REMOVED UNTIL NEEDED......DK, 811028....** 5 P RTN A14 5 P EJECT 5 @ P****************************
0x28e220…28e3b4 (3, 29) Dummy {f00=0x0180, f01=0x0190, f02=»AD 5 t @ P* * 6 @ P*********************************************************** 6 N P* REGISTERS 6 P* 6 P* A2= RESERVED 6 P* A11= CREDIT WORK AREA 6 P* A13= RESERVED 6 P
0x28e3b4…28e548 Dummy {f00=0x0180, f01=0x0190, f02=»T SET NO TIMEOUT 6 P IFF COPCMD=1 7 P LD A1,PRTID,A11 7 . P XIF 7 F P IFT COPCMD=1 7 R P LDK A1,0 UNADDRESSED 7 h P XIF 7 P LDKL A3,REGI 7 P ADR A3,A11 7 P LDK A2,2 LENGTH 7 " P CF A14,ICREAD READ INTERTASK 7 P RTN A14 7
0x28e548…28e6dc Dummy {f00=0x0180, f01=0x0190, f02=» * 7 ` D P* ICINP INTERTASK INPUT * 8 D P* * 8 ` D P**************************************************************** 8 P* REGISTERS
0x28e6dc…28e870 Dummy {f00=0x0180, f01=0x0190, f02=»************ 8 PICINP EQU * 9 P LD* A2,ECBBA,A8 9 ( P IFT COPCMD=1 9 @ P LDR A1,A2 COPY COMMAND? 9 V P RF(NN) ICIN80 NO 9 v P LDKL A3,BVDU BUFFER TO SEND 9 P ADR A3,A11 9 P IFT COPL=1 9 ( P LCR A2,A3 CHECK IF ALLOWED TO COPY 9 P
0x28e870…28ea04 Dummy {f00=0x0180, f01=0x0190, f02=» 9 P XIF : P IFT COPCMD=1 : P LD A2,ECBCW,A8 GET TO WHOM : * P LD A8,ECBICW,A11 : N P CF A14,ICSET SET TIMEOUT : h P LDR A1,A2 : P LDKL A2,LBVDU+/20 LENGTH : P CF A14,ICWRT SEND IT AWAY : ( P LDKL A1,HCPMOD HARDCOPY OUTSTANDING :
0x28ea04…28eb98 Dummy {f00=0x0180, f01=0x0190, f02=»NA=1 : P XRS A1,SNAMOD,A11 ; P XIF ; & P IFF SNA=1 ; 2 P XRS A1,BSCMOD,A11 ; D P XIF ; ^ P ANK A2,1 PRINTER OK? ; j P RF(Z) ICIN90 YES ; PICIN90 EQU * ; P RTN A14 ; P EJECT ; @ P****************************************************
0x28eb98…28ed2c Dummy {f00=0x0180, f01=0x0190, f02=» * ; Z > P* * < @ P*********************************************************** < P P* REGISTERS < P* < P* A2= RESERVED < P* A8= INTERTASK ECB < P* A11= RESERVED < P
0x28ed2c…28eec0 Dummy {f00=0x0180, f01=0x0190, f02=»IMEOUT < P ST A1,ECBCW,A8 = P LDK A7,/B9 SET TIMEOUT = & P LKM = F P DATA 1 = R P RTN A14 = b P EJECT = r B P************************************************************* = B P* * =
0x28eec0…28f054 (3, 30) Dummy {f00=0x0180, f01=0x0190, f02=» = R B P************************************************************** > P* REGISTERS > N P* > p P* A1= TASK ID > z P* A2= LENGTH > P* A3= BUFFER ADDRESS > P* A8= INTETASK READ ECB > P* A11= RESERVED > P* A13= RESERVED
0x28f054…28f1e8 Dummy {f00=0x0180, f01=0x0190, f02=» P ST A2,ECBRL,A8 LENGTH ? " P ST A3,ECBBA,A8 BUFFER ADDRESS ? " P LDK A7,/02 READ ? H P LKM ? ` P DATA 1 ? l P RTN A14 ? | P EJECT ? D P*************************************************************** ? D P*
0x28f1e8…28f37c Dummy {f00=0x0180, f01=0x0190, f02=» * ? r D P*************************************************************** @ * P* REGISTERS @ r P* @ P* A1= TASK ID @ P* A2= LENGTH @ P* A3= BUFFER ADDRESS @ P* A8= INTERTASK WRITE ECB @ P*
0x28f37c…28f510 Dummy {f00=0x0180, f01=0x0190, f02=»U * @ P ST A1,ECBCW,A8 TASK ID A P ST A2,ECBRL,A8 LENGTH A , " P ST A3,ECBBA,A8 BUFFER ADDRESS A J P LDK A7,/86 WRITE A p P LKM A P DATA 1 A P RTN A14 A P EJECT A H P*******************************************************************
0x28f510…28f6a4 Dummy {f00=0x0180, f01=0x0190, f02=» * A H P* * B H P******************************************************************* B d P* REGISTERS B P* B P* A11= CREDIT WORK AREA B P* A13= RESERVED B
0x28f6a4…28f838 Dummy {f00=0x0180, f01=0x0190, f02=» B l P LDK A1,4 RESET ALLOWED C P ORS A1,KBINH,A11 C ( & P CF A14,SOUND TURN ON SOUND ALARM C B P RTN A14 C l P C | P EJECT C B P************************************************************* C B P*
0x28f838…28f9cc Dummy {f00=0x0180, f01=0x0190, f02=» * C d B P************************************************************* D PLMP1ON LDK A1,LAMP1 D ` P RF LMPON D | PLMP1OF LDK A1,LAMP1 D P RF LMPOF D PLMP2ON LDK A1,LAMP2 D P RF LMPON D PLMP2OF LDK A1,LAMP2 D P R
0x28f9cc…28fb60 Dummy {f00=0x0180, f01=0x0190, f02=» RF LMPON D PLMP4OF LDK A1,LAMP4 E P RF LMPOF E . PLMP5ON LDK A1,LAMP5 E @ P RF LMPON E PLMP5OF LDK A1,LAMP5 E n P RF LMPOF E PLMP5FL LDK A1,LAMP5 E P RF LMPFL E PLMP6ON LDK A1,LAMP6 E P RF LMPON E PLMP6OF LDK A1,LA
0x28fb60…28fcf4 (3, 31) Dummy {f00=0x0180, f01=0x0190, f02=»,LFL E P RF SDISP F P EJECT F B P************************************************************* F , B P* * F r B P* SDISP SIGNAL ROUTINE * F B P*
0x28fcf4…28fe88 Dummy {f00=0x0180, f01=0x0190, f02=» REGISTERS F P* G P* A8= SIGNAL ECB G P* A11= CREDIT WORK AREA G 8 P* A13= RESERVED G X P* G p < P******************************************************* G z PSDISP EQU * G P LD A8,ECBSD,A11 G P ST A1,ECBCW,A8 G * P** SECOND
0x28fe88…29001c Dummy {f00=0x0180, f01=0x0190, f02=»KM G $ P DATA 1 LAMPS ON SECOND KEYB'RD H PSDISP1 EQU * H 4 P LD A8,ECBSD,A11 H J * P LDK A1,/40 RESTORE FILE CODE 1ST KB H d P SC A1,1,A8 H P** END OF DK MODS ** H P LKM H P DATA 1 H P RTN A14 H P EJECT H D P**********
0x29001c…2901b0 Dummy {f00=0x0180, f01=0x0190, f02=» KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * H D P* * I F D P**************************************************************** I PKEYTAB EQU * I P*20 I P DATA CHAR SPACE I
0x2901b0…290344 Dummy {f00=0x0180, f01=0x0190, f02=» I P DATA CHAR ( J P DATA CHAR ) J P DATA CHAR * J 0 P DATA NUM + J D P DATA NUM , J X P DATA NUM - J l P DATA NUM . J P DATA CHAR / J P*30 J P DATA NUM 0 J P DATA NUM 1 J P DATA NUM 2 J P DATA NUM 3 J P DAT
0x290344…2904d8 Dummy {f00=0x0180, f01=0x0190, f02=» DATA CHAR ; J P DATA CHAR < K P DATA CHAR = K ( P DATA CHAR > K < P DATA CHAR ? K P P*40 K d P DATA CHAR K p P DATA CHAR A K P DATA CHAR B K P DATA CHAR C K P DATA CHAR D K P DATA CHAR E K P DATA CHAR F K P DATA CHAR G K
0x2904d8…29066c Dummy {f00=0x0180, f01=0x0190, f02=» N K P DATA CHAR O L P*50 L P DATA CHAR P L * P DATA CHAR Q L > P DATA CHAR R L R P DATA CHAR S L f P DATA CHAR T L z P DATA CHAR U L P DATA CHAR V L P DATA CHAR W L P DATA CHAR X L P DATA CHAR Y L P DATA CHAR Z L P D
0x29066c…290800 Dummy {f00=0x0180, f01=0x018e, f02=»CHAR a LOWER CASE A-Z L P DATA CHAR b M P DATA CHAR c M 2 P DATA CHAR d M F P DATA CHAR e M Z P DATA CHAR f M n P DATA CHAR g M P DATA CHAR h M P DATA CHAR i M P DATA CHAR j M P DATA CHAR k M P DATA CHAR l M P DATA CHAR m M
0x290800…290994 (3, 32) Dummy {f00=0x0181, f01=0x0190, f02=» P DATA CHAR t N P DATA CHAR u N P DATA CHAR v N , P DATA CHAR w N @ P DATA CHAR x N T P DATA CHAR y N h P DATA CHAR z N | P DATA CHAR N P DATA CHAR N P DATA CHAR N P DATA CHAR N P DATA RETURN N P*80 N P DATA CURMOV N
0x290994…290b28 Dummy {f00=0x0181, f01=0x0190, f02=» P DATA EREOF O P DATA ERINPT O P IFT IN:DL=1 O , P DATA INSERT O @ P DATA DELETE O T P XIF O h P IFF IN:DL=1 O t P DATA RETURN O P DATA RETURN O P XIF O P DATA RESET O P DATA DUP O P DATA FLDMRK O P DATA ZERO:2 O
0x290b28…290cbc Dummy {f00=0x0181, f01=0x0190, f02=»A KEYL O P DATA KEYL P P DATA KEYL P P DATA KEYL P 2 P DATA KEYL P D P DATA KEYL P V P DATA KEYL P h P XIF P z P IFF KEYLST=1 P P DATA RETURN P P DATA RETURN P P DATA RETURN P P DATA RETURN P P DATA RETURN P P DATA RE
0x290cbc…290e50 Dummy {f00=0x0181, f01=0x0190, f02=» FREE LABEL FOR NEW KEY (NOT P. A. KEY) P 8 P DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) Q 0 P*FIRST P. A. KEY Q l P IFT OFLIN=1 Q P DATA OFLINE Q P XIF Q P IFF OFLIN=1 Q P DATA RETURN Q P XIF Q P*A0 Q P DATA ENTER Q
0x290e50…290fe4 Dummy {f00=0x0181, f01=0x018e, f02=»CLEAR Q P DATA RETURN R P XIF R " P IFT NBRLIN=2 R . P DATA MFCHGE R D P XIF R X P IFF NBRLIN=2 R d P DATA RETURN R z P XIF R P IFT PAX=1 R P DATA PAEX R P XIF R P IFF PAX=1 R P DATA RETURN R P XIF R P DATA PA1 R
0x290fe4…291178 Dummy {f00=0x0181, f01=0x0190, f02=» R P DATA PAALFA S P DATA PAALFA S P DATA PAALFA S 0 P*B0 S D P IFT PFX=1 S P P DATA PFEX S b P XIF S t P IFF PFX=1 S P DATA RETURN S P XIF S P DATA PF 1 S P DATA PF 2 S P DATA PF 3 S P DATA PF 4 S P DATA PF 5 S
0x291178…29130c Dummy {f00=0x0181, f01=0x0190, f02=» DATA PF 13 S P DATA PF 14 T P DATA PF 15 T ( P*C0 T < P DATA PF 16 T H P DATA PF 17 T P DATA PF 18 T p P DATA PF 19 T P DATA PF 20 T P DATA PF 21 T P DATA PF 22 T P DATA PF 23 T P DATA PF 24 T P IFF TEST=1
0x29130c…2914a0 Dummy {f00=0x0181, f01=0x0190, f02=»******************************** T r D P* * U ( B P* CHAR ALPHABETIC AND SPEC. CHAR UPDAT. DISPL. * U p B P* * U B P************
0x2914a0…291634 (3, 33) Dummy {f00=0x0181, f01=0x0190, f02=» P* A4= RESERVED V P* A5= RESERVED V P* A6= RESERVED V 0 P* A11= RESERVED V F P* A13= RESERVED V ^ P* V v B P************************************************************** V PCHAR EQU * V $ P LDK A3,/30 LOAD ATTRIBUTE MASK V & P CF A14,
0x291634…2917c8 Dummy {f00=0x0181, f01=0x018e, f02=» * V B P* NUM NUMERIC UPDAT. DISPL. * W D B P* NUMCOM NUMERIC COMMA * W D P*
0x2917c8…29195c Dummy {f00=0x0181, f01=0x0190, f02=» P* A3= ATTRIBUTE MASK X P* A4= RESERVED X P* A5= RESERVED X 6 P* A6= RESERVED X L P* A11= RESERVED X b P* A13= RESERVED X z P* X B P************************************************************* X PNUMCOM EQU * X P LDK A2,/2C INSERT
0x29195c…291af0 Dummy {f00=0x0181, f01=0x0190, f02=» X D P*************************************************************** Y D P* * Y P D P* ANCOMM COMMON ROUTINE FOR ALPHANUM. CHAR. * Y D P*
0x291af0…291c84 Dummy {f00=0x0181, f01=0x0190, f02=»A2= KEY-CHAR Y " P* A3= AT ENTRY ATTRIBUTE MASK Z P* A4= REL. CURSOR POS. Z : P* A5= REL. ATTRIBUTE POS. Z X P* A6= ATTRIBUTE CHAR. Z z P* A11= CREDIT WORK AREA Z P* A13= RESERVED Z P* Z D P**********************************************
0x291c84…291e18 Dummy {f00=0x0181, f01=0x0190, f02=» ANC800 YES Z P LDR A1,A6 [ P ANR A1,A3 ALLOWED POS. ? [ & P RF(NZ) ANC800 NO [ H P IFT IN:DL=1 [ b P LD A1,MODE,A11 INSERT MODE? [ v P RF(Z) ANC100 NO [ P CF A14,INSMOD [ P LDR A7,A1 [ P ANK A7,1 INSRETED NORMAL? [ P RF(NZ) ANC9
0x291e18…291fac Dummy {f00=0x0181, f01=0x0190, f02=»A2 [ 0 P CF A14,STOVDU STORE KEY-CHAR IN VDU BUFFER * P CF A14,WCHAR DISPLAY CHAR AND CURSOR > 8 P CF A14,POSUNP MOVE CURSOR TO NEXT UNPROTECTED POS. l P RF ANC900 PANC800 EQU * P CF A14,ERROR INDICATE ERROR PANC900 EQU * P R
0x291fac…292140 Dummy {f00=0x0181, f01=0x0190, f02=» * h @ P* CURMOV MOVE CURSOR ON SCREEN * ] @ P* * ] ` @ P************************************************************ ] P* REGISTERS ] P* ] P*
0x292140…2922d4 (3, 34) Dummy {f00=0x0181, f01=0x0190, f02=»* A13= RESERVED ] P* ^ @ P************************************************************ ^ " PCURMOV EQU * ^ f $ P CF A14,SCRINF GET SCREEN INFO. ^ z P SUK A2,CRUP GET INDEX ^ P ADR A2,A2 ^ , P CFI A14,CURTAB,A2 JUMP IN CURSOR TABLE ^ * P CF A1
0x2922d4…292468 Dummy {f00=0x0181, f01=0x0190, f02=»MASB UPDATE ATTRIBUTE ^ PCURM10 EQU * _ P LDK A1,2 REQ. LENGTH _ 2 P CF A14,DISCHA SET CURSOR _ P P RTN A14 _ r P EJECT _ $ P* CURTAB CURSOR JUMP TABLE _ PCURTAB EQU * _ $ P DATA CRLEFT MOVE CURSOR TO LEFT _ & P DATA CRRIGT MOVE CU
0x292468…2925fc Dummy {f00=0x0181, f01=0x0190, f02=»CRLEFT EQU * _ P SUK A4,1 ` $ P RF(NN) CRRET NOT LEFTMOST POS. ` & ( P LDKL A4,LBVDU-1 LAST POS. ON SCREEN ` N P RF CRRET ` z ( P* CRRIGT MOVE CURSOR TO RIGHT ` PCRRIGT EQU * ` P ADK A4,1 ` P CWK A4,LBVDU END OF BUFFER? ` P RF(L)
0x2925fc…292790 Dummy {f00=0x0181, f01=0x0190, f02=» CWK A4,LBVDU LAST LINE? ` P RF(L) CRRET NO a P SUKL A4,LBVDU a 8 P RF CRRET a N P* CURUP MOVE CURSOR UP a ` PCURUP EQU * a P SUKL A4,LLINE a P RF(NN) CRRET UPMOST LINE a P ADKL A4,LBVDU a PCRRET EQU * a P RTN A14 a
0x292790…292924 Dummy {f00=0x0181, f01=0x0190, f02=» * a ^ B P* BAKTAB TAB. UNPROTECTED BACKWARDS * b B P* * b Z B P************************************************************** b P* REGISTERS b P* b P* A4
0x292924…292ab8 Dummy {f00=0x0181, f01=0x0190, f02=» RESERVED b P* A13= RESERVED c P* c * D P*************************************************************** c 4 PBAKTAB EQU * c | * P CF A14,SCRINF GET SCREEN INFORMATION c P LDR A9,A5 c ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? c P RF(E) BAK60
0x292ab8…292c4c Dummy {f00=0x0181, f01=0x0190, f02=»EEN c l ( P LDKL A4,LBVDU-1 LAST POS. ON SCREEN d PBAK100 EQU * d 8 0 P CWR A4,A5 STANDING ON POS. AFTER ATTRIBUTE? d L P RF(E) BAK300 YES d P LDR A4,A5 d P LDR A7,A6 d P ANK A7,/20 PROTECTED FIELD? d P RF(Z) BAK500 NO d PBAK300 EQU * d
0x292c4c…292de0 Dummy {f00=0x0181, f01=0x0190, f02=»UTE BACKWARDS AND MASK IT d t P LDR A7,A6 e " P ANK A7,/20 PROTECTED FIELD? e 4 P RF(Z) BAK500 NO e X P LDR A4,A5 e p & P CWR A5,A9 WHOLE SCREEN SEARCHED? e P RB(NE) BAK300 NO e P LDK A1,0 FIRST SCREEN POS. e , P CF A14,ATMASB UPDATE FIELD IN
0x292de0…292f74 (3, 35) Dummy {f00=0x0181, f01=0x0190, f02=»BAK700 NO e PBAK600 EQU * f P LDK A4,0 FIRST SCREEN POS. f & PBAK700 EQU * f J * P CF A14,STOINF SAVE SCREEN INFORMATION f ^ P LDK A1,2 REQ. LENGTH f P CF A14,DISCHA SET CURSOR f P RTN A14 f P EJECT f B P******************************
0x292f74…293108 Dummy {f00=0x0181, f01=0x018e, f02=»PROTECTED FORWARD * f v B P* * g , B P************************************************************* g r P* REGISTERS g P* g P* A4= REL. CURSOR POS. g P* A5= REL. ATTRIBUTE
0x293108…29329c Dummy {f00=0x0181, f01=0x0190, f02=» g B P************************************************************** h PTAB EQU * h N * P CF A14,SCRINF GET SCREEN INFORMATION h ` P LDR A9,A5 h ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? h P RF(E) TAB200 YES h PTAB100 EQU * h P LDR A1,A4 h
0x29329c…293430 Dummy {f00=0x0181, f01=0x0190, f02=» P RF(Z) TAB150 NO i & P CWR A5,A9 WHOLE SCREEN SEARCHED? i P RB(NE) TAB100 NO i F " P LDK A1,0 FIRST POS. ON SCREEN i ` , P CF A14,ATMASB UPDATE FIELD INFORMATION i P RF TAB200 i PTAB150 EQU * i P ADK A4,1 i & P CWK A4,LBVDU-1 LAST SCREE
0x293430…2935c4 Dummy {f00=0x0181, f01=0x0190, f02=»E SCREEN INFORMATION i ~ P LDK A1,2 REQ. LENGTH j P CF A14,DISCHA SET CURSOR j : P RTN A14 j P EJECT j l H P******************************************************************* j z H P*
0x2935c4…293758 Dummy {f00=0x0181, f01=0x0190, f02=» * j ^ H P******************************************************************* k P* REGISTERS k f P* k z P* A4= REL. CURSOR POS. k P* A5= REL. ATTRIBUTE POS. k P* A6= ATTRIBUTE CHAR. k P* A11= RESERVED k P* A13= RESERVE
0x293758…2938ec Dummy {f00=0x0181, f01=0x0190, f02=»N INFORMATION k x $ P CF A14,CRDOWN MOVE CURSOR DOWN l $ P LDK A1,0 COMPUTE LEFTMOST POS. l > PCRN100 EQU * l f P SUK A4,LLINE l z P RF(N) CRN200 l P ADK A1,LLINE l P RB CRN100 l PCRN200 EQU * l P LDR A4,A1 l ( P CWK A5,LBVDU+1 UNFO
0x2938ec…293a80 Dummy {f00=0x0181, f01=0x0190, f02=»N400 YES l P LDR A1,A4 m , P CF A14,ATMASB SEARCH ATTRIBUTE BACKWARD m " P LDR A7,A6 m R P ANK A7,/20 PROTECTED? m d P RF(Z) CRN800 NO m P RF CRN500 m PCRN400 EQU * m P SUK A4,1 m " P RF(NN) CRN500 NOT WRAP AROUND m & P LDKL A4,LBVDU-1
0x293a80…293c14 (3, 36) Dummy {f00=0x0182, f01=0x0190, f02=» RF CRN900 m PCRN800 EQU * n * P CF A14,STOINF SAVE SCREEN INFORMATION n & P LDK A1,2 REQ. LENGTH n T P CF A14,DISCHA SET CURSOR n r PCRN900 EQU * n P RTN A14 n P EJECT n J P******************************************************************
0x293c14…293da8 Dummy {f00=0x0182, f01=0x0190, f02=»N SCREEN * n b J P* * o J P********************************************************************* o n P* REGISTERS o P* o P* A4= REL. CURSOR POS. o P* A5= REL. ATTRI
0x293da8…293f3c Dummy {f00=0x0182, f01=0x018e, f02=»*************************************** o r PRDHOME EQU * p 0 * P CF A14,SCRINF GET SCREEN INFORMATION p D " P LDK A4,0 FIRST POS. ON SCREEN p r P CF A14,STOINF p ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? p P RF(E) RDH800 YES p P LDR A1,A4 p * P C
0x293f3c…2940d0 Dummy {f00=0x0182, f01=0x018e, f02=» p l * P CF A14,STOINF SAVE SCREEN INFORMATION q P RF RDH300 q 6 PRDH100 EQU * q H P LDR A1,A4 q * P CF A14,ATMASB GET ATTRIBUTE BACKWARD q n P LDR A7,A6 q P ANK A7,/20 PROTECTED? q P RF(Z) RDH800 NO q PRDH300 EQU * q ( P CF A14,TAB TAB.
0x2940d0…294264 Dummy {f00=0x0182, f01=0x0190, f02=» q x P CF A14,DISCHA SET CURSOR r PRDH900 EQU * r * P RTN A14 r > P EJECT r N B P************************************************************* r B P* * r B P* EREOF ERASE TO EN
0x294264…2943f8 Dummy {f00=0x0182, f01=0x0190, f02=»******************************* r r P* REGISTERS s ( P* s < P* A4= REL. CURSOR POS. s F P* A5= REL. ATTRIBUTE POS. s d P* A6= ATTRIBUTE CHAR. s P* A11= RESERVED s P* A13= RESERVED s P* s H P******************************************
0x2943f8…29458c Dummy {f00=0x0182, f01=0x0190, f02=» s l P RF(E) ERE700 YES t P LDR A7,A6 t " P ANK A7,/20 PROTECTED FIELD? t 4 P RF(NZ) ERE600 YES t X & P CWR A5,A4 STANDING ON ATTRIBUTE? t r P RF(E) ERE600 YES t P LDR A1,A4 t P LDR A8,A6 SAVE OLD t P LDR A9,A5 SAVE OLD t , P CF A14,
0x29458c…294720 Dummy {f00=0x0182, f01=0x018e, f02=» LDR A7,A6 t P LDR A1,A5 u 4 P CF A14,STOVDU STORE NEW ATTRIBUTE IN VDU BUFFER u $ . P CF A14,STOINF SAVE NEW SCREEN INFORMATION u P LDR A1,A3 STOP ADDRESS u P RF ERE800 u PERE600 EQU * u P CF A14,ERROR INDICATE ERROR u P RF ERE900 u
0x294720…2948b4 (3, 37) Dummy {f00=0x0182, f01=0x0190, f02=» P LDK A1,0 STOP ADDRESS =3 v PERE710 EQU * DK1 v & P CF A14,SCRINF DK1 v @ PERE800 EQU * v P SUR A10,A10 v p 0 P CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS v * P CF A14,DISMOD DISPLAY MODIFIED FIELD v PERE900 EQU * v P RTN A14 v
0x2948b4…294a48 Dummy {f00=0x0182, f01=0x0190, f02=» * v d H P* ERINPT ERASE UNPROTECTED ENTIRE SCREEN * w H P* * w l H P******************************************************************* w P* R
0x294a48…294bdc Dummy {f00=0x0182, f01=0x0190, f02=» w P* A13= RESERVED x P* x H P******************************************************************* x * PERINPT EQU * x v * P CF A14,SCRINF GET SCREEN INFORMATION x ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? x P RF(NE) ERI100 NO x & P CF A14,ER
0x294bdc…294d70 Dummy {f00=0x0182, f01=0x0190, f02=» ERASED FIELDS x z 4 P CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN y PERI900 EQU * y N P RTN A14 y b P EJECT y r P IFT IN:DL=1 y < P******************************************************** y < P*
0x294d70…294f04 Dummy {f00=0x0182, f01=0x0190, f02=» < P******************************************************** z P* REGISTERS z D P* z X P* A11= CREDIT WORK AREA z b P* A13= RESERVED z P* z 8 P*************************************************** z PINSERT EQU * z P IM MODE,A11 SET INS
0x294f04…295098 Dummy {f00=0x0182, f01=0x018e, f02=» * z t : P* DELETE DELETE CHAR. HANDLING * { " : P* * { ` < P******************************************************* { P* REGISTERS { P* { P* A4= REL. C
0x295098…29522c Dummy {f00=0x0182, f01=0x0190, f02=» P* | < P******************************************************* | PDELETE EQU * | N * P CF A14,SCRINF GET SCREEN INFORMATION | b P LDKL A3,-1 | PDEL025 EQU * | P ADK A3,LLINE | * P CWR A3,A4 LAST POS. ON CURRENT LINE? | P RB(L) DEL02
0x29522c…2953c0 Dummy {f00=0x0182, f01=0x0190, f02=»0 YES | P LDR A7,A6 } P ANK A7,/20 PROTECTED? } P RF(NZ) DEL700 YES } > P ORK A6,1 SET MDT-BIT } X P LDR A7,A6 } v P LDR A1,A5 } & P CF A14,STOVDU SAVE NEW ATTRIBUTE } P LDR A8,A6 SAVE OLD } P LDR A9,A5 SAVE OLD } , P CF A14,ATMA
0x2953c0…295554 (3, 38) Dummy {f00=0x0182, f01=0x0190, f02=» CWR A3,A1 ATTRIBUTE BEFOR END OF LINE? } P RF(NG) DEL200 NO ~ 0 P LDR A3,A1 ~ J PDEL200 EQU * ~ P LDR A1,A4 ~ p PDEL300 EQU * ~ P ADK A1,1 ~ , P CF A14,GETVDU GET CHAR. IN VDU BUFFER ~ P SUK A1,1 ~ , P CF A14,STOVDU STORE CHAR. IN
0x295554…2956e8 Dummy {f00=0x0182, f01=0x018e, f02=»4,STOVDU STORE NULL CHAR IN VDU BUFFER ~ P CF A14,SAVE1 . P LDK A5,LLINE D P LDR A6,A11 Z P SUR A10,A10 n P CF A14,LINE GET LINE FLAG P LC A1,LINFLG,A6 P ORK A1,1 P SC A1,LINFLG,A6 P CF A14,REST1 ( P CF A14,DISM
0x2956e8…29587c Dummy {f00=0x0182, f01=0x0190, f02=» P XIF P EJECT < P******************************************************** " < P* * b < P* RESET RESET KEY HANDLING * < P*
0x29587c…295a10 Dummy {f00=0x0182, f01=0x0190, f02=»RK AREA P* A13= RESERVED P* ( 8 P**************************************************** 2 PRESET EQU * n " P CM MODE,A11 RESET INSERT MODE * P CF A14,LMP6OF TURN OFF "INSERT" LAMP $ P CM KBINH,A11 RESSTORE KEYBOARD ( P CF A14,LM
0x295a10…295ba4 Dummy {f00=0x0182, f01=0x0190, f02=»******************************************* @ P* * 4 @ P* DUP DUPLICATE KEY * x @ P* * @ P********
0x295ba4…295d38 Dummy {f00=0x0182, f01=0x0190, f02=»* A13= RESERVED P* @ P************************************************************ " PDUP EQU * f P LDK A2,DUPCH GET DUP CHAR. x P CF A14,NUM P CF A14,TAB P RTN A14 P EJECT @ P**************************************
0x295d38…295ecc Dummy {f00=0x0182, f01=0x018e, f02=» * j @ P* * @ P*********************************************************** b P* REGISTERS P* P* A2= KEY-CHAR P* A11= RESERVED P* A13= RESERVED
0x295ecc…296060 Dummy {f00=0x0182, f01=0x0190, f02=» l P CF A14,NUM P RTN A14 P EJECT , D P*************************************************************** : P* & P* Z E R O : 3 TRIPLE ZERO KEY ( P* Z E R O : 2 DOUBLE ZERO KEY P* 6 P****************************
0x296060…2961f4 (3, 39) Dummy {f00=0x0182, f01=0x0190, f02=» > P********************************************************* P F PZERO:3 EQU * N P LDK A2,/30 ZERO CHAR. b " P CF A14,NUM DISPLAY CHARACTER PZERO:2 EQU * P LDK A2,/30 ZERO CHAR. " P CF A14,NUM DISPLAY CHARACTER P LDK A2,/3
0x2961f4…296388 Dummy {f00=0x0182, f01=0x0190, f02=»************************** r < P* * " < P* OFLINE OFFLINE KEY HANDLING * b < P* * < P**************************************
0x296388…29651c Dummy {f00=0x0182, f01=0x0190, f02=»***************************************** POFLINE EQU * 2 P CF A14,CLEAR F P CF A14,RESET * P CF A14,DCOFLN INDICATE OFFLINE TO DC r ( P CF A14,LMP6ON TURN ON OFFLINE LAMP $ P IM OFFFLG,A11 SET OFFLINE FLAG $ P ADKL A14,4 SKIP ONE
0x29651c…2966b0 Dummy {f00=0x0182, f01=0x0190, f02=»T1 RETURN TO "OFFLINE" PROGRAM P XIF & P EJECT 2 > P********************************************************* @ > P* * > P* MFCHGE MAIN FRAME CHANGE * > P*
0x2966b0…296844 Dummy {f00=0x0182, f01=0x0190, f02=»ISTERS P* P* A11= CREDIT WORK AREA P* A13= RESERVED 8 P* P < P******************************************************* Z P IFT NBRLIN=2 PMFCHGE EQU * P CF A14,CLEAR P CF A14,RESET P CF A14,LMP1OF P C
0x296844…2969d8 Dummy {f00=0x0182, f01=0x0190, f02=»N FRAME CHANGE =2 x P RF(NZ) MFCH10 P CF A14,LMP1ON 0 P RF MFCH90 F PMFCH10 EQU * X P CF A14,LMP2ON l PMFCH90 EQU * P . =2 ( P CF A14,CONCT CONNECT ON NEW LINE =2 $ P CF A14,CHKSTA CHECK LINE STATUS P RTN A14
0x2969d8…296b6c Dummy {f00=0x0182, f01=0x0190, f02=» * h @ P* COPY LOCAL HARDCOPY * @ P* * ` @ P*********************************************************** P* REGISTERS P*
0x296b6c…296d00 Dummy {f00=0x0182, f01=0x0190, f02=»* T PCOPY EQU * P LD A1,SNAMOD,A11 2 P ANKL A1,HCPMOD HARDCOPY ALREADY OUTSTANDING? 6 $ P RF(NZ) COPY80 YES,WAIT A WHILE l P LD A1,PRTID,A11 & P RF(Z) COPY80 PRINTER NOT ASSIGNED 2 P ANK A1,/FF CHECK IF PRINTER OK IN TASK TABLE
0x296d00…296e94 (3, 40) Dummy {f00=0x0183, f01=0x0190, f02=»ER ASSIGNED FOUND P LC A1,+3,A3 P ANK A1,/FF PRINTER OK? . P RF(Z) COPY10 YES N P RF COPY90 h PCOPY10 EQU * z ( P LDK A1,/38 INDICATE HARDCOPY IN WCC P ST A1,WCC,A11 P LDKL A3,BVDU BUFFER P ADR A3,A11 ADDRESSS
0x296e94…297028 Dummy {f00=0x0183, f01=0x0190, f02=»TH r " P CF A14,ICWRT WRITE INTERTASK P IFT SNA=1 0 2 P LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING B P ORS A1,SNAMOD,A11 x P XIF P IFF SNA=1 2 P LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING P ORS A1,BSCMOD,A11 P XIF
0x297028…2971bc Dummy {f00=0x0183, f01=0x0190, f02=»***************************************** z D P* * 2 0 P* IDENT PRINTER IDENT. HANDLING z D P* * D P******************
0x2971bc…297350 Dummy {f00=0x0183, f01=0x0190, f02=»1= CREDIT WORK AREA P* A13= T:A ADDRESS P* 6 B P************************************************************* @ PIDENT EQU * ( P LD A1,PRTID,A11 GET CURRENT TASKID $ P LD A4,+6,A13 COMMON BLOCK BASE P ANK A1,X'FF' GET OFFSET
0x297350…2974e4 Dummy {f00=0x0183, f01=0x0190, f02=»ET ID P SLL A5,8 P LC A5,+1,A3 P LC A4,+3,A3 GET STATUS 4 P CF A14,SAVE1 SAVE REGISTERS T P CF A14,DISID DISPLAY TASKID x " P LDKL A1,IDEN40 NEXT KEY ENTRY P ST A1,RDMORE,A11 P RF IDEN90 NEXT KEY PIDEN40 EQU *
0x2974e4…297678 Dummy {f00=0x0183, f01=0x0190, f02=»N80 YES " P CWK A9,IDKEY GET NEXT TASKID? ( P RF(NE) IDEN90 NO KEEP THE FIRST ONE 6 PIDEN50 EQU * b & P ADK A3,4 SEARCH FOR NEXT PRINTER v P LCR A2,A3 P ANK A2,/FF P LDR A1,A2 P RB(Z) IDEN50 P SLL A1,8 P RF(N) I
0x297678…29780c Dummy {f00=0x0183, f01=0x018e, f02=»D A3,6,A13 P ADR A3,A2 P SUK A3,4 $ P RB IDEN50 6 PIDEN80 EQU * H " P LCR A1,A3 GET PRINTER TO SAVE P SLL A1,8 P LC A1,+1,A3 ( P ST A1,PRTID,A11 NEW HARDCOPY TASKID PIDEN90 EQU * P RTN A14 P EJECT B P**
0x29780c…2979a0 Dummy {f00=0x0183, f01=0x0190, f02=» B P* KEYL KEYLOCK STATUS * B P* * J B P************************************************************* P* REGISTERS P* P* A2= KEYLOCK VALUE
0x2979a0…297b34 (3, 41) Dummy {f00=0x0183, f01=0x0190, f02=» R P IFT KEYLST=1 P IFT KB6272=1 PKEYL EQU * 4 * P SUK A2,LKLKEY GET NEG KEY LOCK VALUE F P LD A3,KEYS,A11 OLD STATUS t P LDK A4,/10 PKEYL10 EQU * P SRL A4,1 P ADK A2,2 1 = OFF,0 = ON P RB(N) KEYL10 P A
0x297b34…297cc8 Dummy {f00=0x0183, f01=0x0190, f02=»KEYL30 NOW ON PKEYL20 EQU * WAS ON P LDR A2,A2 2 $ P RF(Z) KEYL99 NOW ON, NO CHANGE D PKEYL30 EQU * CHANGE l P LD A3,KEYS,A11 P XRR A3,A4 CHANGE STATUS $ P ST A3,KEYS,A11 STORE NEW STATUS P* P* KEYLOCK STATUS CHANG
0x297cc8…297e5c Dummy {f00=0x0183, f01=0x0190, f02=» A2 = 1, IF CHANGED TO OFF ELSE 0 P* * * P* INSERT USER ROUTINE BELOW THIS LINE 4 P* b PKEYL99 EQU * l P RTN A14 P XIF P EJECT > P********************************************************** P* P* TESTM TEST MODE
0x297e5c…297ff0 Dummy {f00=0x0183, f01=0x0190, f02=» P* A13= RESERVED P* > P********************************************************* * P IFT TEST=1 l PTESTM EQU * P CF A14,ERASE P CF A14,GETBUF P CF A14,RDSTAT P CF A14,DISSTA P LDR A8,A12 P CF A14,
0x297ff0…298184 Dummy {f00=0x0183, f01=0x0190, f02=» * > P* ENTER ENTER KEY HANDLING * 4 > P* * v > P********************************************************* P* REGISTERS
0x298184…298318 Dummy {f00=0x0183, f01=0x0190, f02=»***************** h PENTER EQU * P LDK A2,/27 AID-CODE . . P CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" J . P CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT | P RTN A14 P EJECT B P************************************************************
0x298318…2984ac Dummy {f00=0x0183, f01=0x0190, f02=» * X B P* * B P************************************************************** T P* REGISTERS P* P* A2= AID-CODE P* A11= RESERVED P* A13= RESERVED P* B P
0x2984ac…298640 Dummy {f00=0x0183, f01=0x0190, f02=»P3ON TURN ON "KEYBOARD INHIBIT" ( P CF A14,TRPA UPDATE AID AND TRANSMIT ( & P CF A14,ERASE ERASE ENTIRE SCREEN T P RTN A14 ~ P EJECT D P*************************************************************** D P*
0x298640…2987d4 (3, 42) Dummy {f00=0x0183, f01=0x0190, f02=» * t D P*************************************************************** , P* REGISTERS t P* P* A11= CREDIT WORK AREA P* A13= RESERVED P* 8 P****************************************************
0x2987d4…298968 Dummy {f00=0x0183, f01=0x0190, f02=» P RF(Z) SYS100 YES & P LDK A1,LOCMOD INDICATE LOCAL MODE P RF SYS500 H PSYS100 EQU * Z P LDR A2,A1 GET STATUS n P ANKL A2,/C00 MY JOB MODE? P RF(NZ) SYS200 NO & P CF A14,CLEAR CLEAR SCREEN AND DC ( P CF A14,RESKB RESET KE
0x298968…298afc Dummy {f00=0x0183, f01=0x018e, f02=»? n P RF(NE) SYS300 NO & P LDK A1,SYSOP INDICATE SYSTEM MODE $ P RF SYS500 N PSYS300 EQU * ` $ P ANKL A2,/800 SSCP-LU AND LU-LU? t P RF(NZ) SYS400 YES & P LDK A1,SYSOP INDICATE SYSTEM MODE P RF SYS500 PSYS400 EQU * & P L
0x298afc…298c90 Dummy {f00=0x0183, f01=0x018e, f02=» P RTN A14 P XIF P EJECT D P*************************************************************** . D P* * v D P* ATTN ATTENTION KEY HANDLING * D P*
0x298c90…298e24 Dummy {f00=0x0183, f01=0x0190, f02=» N P* REGISTERS P* & P* A11= RESERVED 0 P* A13= RESERVED H P* ` > P********************************************************** j P IFT SNA=1 PATTN EQU * $ P LDK A1,/4B SIGNAL ATTENTION KEY P CF A14,SETSTA S
0x298e24…298fb8 Dummy {f00=0x0183, f01=0x0190, f02=» * @ P* PA PROGRAM ACCESS KEY HANDLING * @ B P* * B P**************************************************************
0x298fb8…29914c Dummy {f00=0x0183, f01=0x0190, f02=»******************************************** ~ PPA1 EQU * 4 P LDK A2,/25 AID-CODE F P RF PA500 b PPA2 EQU * t P LDK A2,/3E AID-CODE P RF PA500 PPA3 EQU * P LDK A2,/2C AID-CODE PPA500 EQU * , P CF A14,LMP3ON TUR
0x29914c…2992e0 Dummy {f00=0x0183, f01=0x0190, f02=» P EJECT H P******************************************************************* H P* * ^ H P* PAEX PAEX KEY FOLLOWED BY NUMBER * H P*
0x2992e0…299474 (3, 43) Dummy {f00=0x0183, f01=0x018e, f02=» REGISTERS P* P* A11= CREDIT WORK AREA P* A13= RESERVED < P* T 8 P*************************************************** ^ P IFT PAX=1 PPAEX EQU * P LDKL A1,PAEXA P ST A1,RDMORE,A11 P RTN A14 PPAEXA EQU
0x299474…299608 Dummy {f00=0x0183, f01=0x0190, f02=» P RF(G) PAERR ILLEGAL CHAR. P RF(NZ) PAEX10 & P CF A14,PA3 PA3 KEY < P RF PARET X PPAEX10 EQU * j P ADK A2,1 ~ P RF(NZ) PAEX20 P CF A14,PA2 PA2 KEY P RF PARET PPAEX20 EQU * P CF A14,PA1 PA1 KEY P RF
0x299608…29979c Dummy {f00=0x0183, f01=0x0190, f02=»************************************************************** F P* * F F P* PF PROGRAM FUNTION KEY HANDLING * F P*
0x29979c…299930 Dummy {f00=0x0183, f01=0x0190, f02=»= AID-CODE P* A11= RESERVED P* A13= RESERVED * P* B F P****************************************************************** L PPF EQU * & P SUK A2,PFKEY GET INDEX TO CONVERT P LC A2,CONPF,A2 GET AID , P CF A14,LMP3ON TURN ON K
0x299930…299ac4 Dummy {f00=0x0183, f01=0x0190, f02=»************************************* t F P* * . F P* PFEX PFEX KEY FOLLOWED BY NUMBER * x F P* *
0x299ac4…299c58 Dummy {f00=0x0183, f01=0x0190, f02=» P* A13= RESERVED P* 6 P************************************************* & P IFT PFX=1 ` PPFEX EQU * r P LDKL A1,PFEXA P RF PFNXT PPFEXA EQU * P CM RDMORE,A11 P SUK A2,/30 LEGAL CHAR ? , P RF(L) PFERR ILLEG
0x299c58…299dec Dummy {f00=0x0183, f01=0x0190, f02=» SUK A2,1 P RF(NZ) PFEX20 P LDKL A1,PF1A FIRST NUM 1 ( P RF PFNXT NEXT NUMBER J PPFEX20 EQU * h P SUK A2,1 | P RF(NZ) PFERR ILLEGAL NUM P LDKL A1,PF2A FIRST NUM 2 P RF PFNXT NEXT NUMBER PPF0A EQU * P CM RD
0x299dec…299f80 Dummy {f00=0x0183, f01=0x0190, f02=»/9+PFKEY PF1-PF9 P RF PFHAND PPF1A EQU * * P CM RDMORE,A11 < P SUK A2,/30 ILLEGAL NUM? R P RF(N) PFERR YES r P SUK A2,/A ILLEGAL NUM? P RF(NN) PFERR YES " P ADK A2,/A+PFKEY+/9 PF10-PF19 P RF PFHAND PPF2A EQU *
0x299f80…29a114 (3, 44) Dummy {f00=0x0184, f01=0x0190, f02=» " P ADK A2,/5+PFKEY+/13 PF20-PF24 PPFHAND EQU * * , P CF A14,PF PROGRAM FUNCTION KEY HANDLING > P RF PFRET n PPFNXT EQU * P ST A1,RDMORE,A11 P RF PFRET PPFERR EQU * P CF A14,ERROR PPFRET EQU * P RTN A14
0x29a114…29a2a8 Dummy {f00=0x0184, f01=0x0190, f02=» * r > P* RETURN RETURN * $ > P* * f @ P*********************************************************** P* REGISTERS P
0x29a2a8…29a43c Dummy {f00=0x0184, f01=0x4038, f02=»RN EQU * P RTN A14 P P END (@ 4 RETURN * $ > P* * f @ P*********************************************************** P* REGISTERS P
0x29a43c…29a5d0 Dummy {f00=0x0184, f01=0x2008, f02=» ) DATA PF 24 * * $ END * ,@ * 8 6 ) 4 DATA PF 7 ) F DATA PF 8 ) X DATA PF 9 ) j DATA PF 10 ) | DATA PF 11 ) DATA PF 12 ) DATA PF 13 ) DATA PF 14 ) DATA PF 15 ) *C0 ) DATA PF
0x29a5d0…29a764 Dummy {f00=0x0184, f01=0x0000, f02=»
[…0x3…]
0x29ac20…29adb4 (3, 45) Opaque[0x194]
0x29adb4…29af48 # DirEnt {nam=»VDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a30, f03=0x0000}
0x29adb4…29af48 IdxSect {
0x29adb4…29af48 f00 = 0x00d1 // 0x29adb4 @0x0
0x29adb4…29af48 f01 = 0x0022 // 0x29adb6 @0x2
0x29adb4…29af48 gno = [ // 0x29adb8 @0x4
0x29adb4…29af48 [0x00]: C0x00d1.0x2.0
0x29adb4…29af48 [0x01]: C0x00d1.0x3.0
0x29adb4…29af48 [0x02]: C0x00d2.0x0.0
0x29adb4…29af48 [0x03]: C0x00d2.0x1.0
0x29adb4…29af48 [0x04]: C0x00d2.0x2.0
0x29adb4…29af48 [0x05]: C0x00d2.0x3.0
0x29adb4…29af48 [0x06]: C0x00d3.0x0.0
0x29adb4…29af48 [0x07]: C0x00d3.0x1.0
0x29adb4…29af48 [0x08]: C0x00d3.0x2.0
0x29adb4…29af48 [0x09]: C0x00d3.0x3.0
0x29adb4…29af48 [0x0a]: C0x00d4.0x0.0
0x29adb4…29af48 [0x0b]: C0x00d4.0x1.0
0x29adb4…29af48 [0x0c]: C0x00d4.0x2.0
0x29adb4…29af48 [0x0d]: C0x00d4.0x3.0
0x29adb4…29af48 [0x0e]: C0x00d5.0x0.0
0x29adb4…29af48 [0x0f]: C0x00d5.0x1.0
0x29adb4…29af48 [0x10]: C0x00d5.0x2.0
0x29adb4…29af48 ]
0x29adb4…29af48 }
0x29af48…29b0dc Dummy {f00=0x00d1, f01=0x0190, f02=» . P IDENT VDU REL 11.0 82-09-28 870150541100 P 6 P =22, BLOCK OUTPUT > $ P MOVE TO UNPROT, ONLY FOR P&T Z P $ P =37 DUP OR FM CHAR ON PRINTER & P =21 LOOP WHEN VDU NOT OPERABLE P 82-05-17 P =2 LOOP IN ERASUA
0x29b0dc…29b270 Dummy {f00=0x00d1, f01=0x0190, f02=»-26 D P**************************************************************** D P* * T D P* MODULE VDU * D P* MODULE HANDLING T
0x29b270…29b404 Dummy {f00=0x00d1, f01=0x0190, f02=»N 3270 SNA/SDLC, BSC) * t D P* * , D P**************************************************************** t P EJECT @ P***********************************************************
0x29b404…29b598 Dummy {f00=0x00d1, f01=0x0190, f02=»LINE r 6 P* SPACES MOVE SPACES INTO ECB BUFFER . P* INTCHK GET INTENSITY CHAR. F 0 P* SETIND SET DISPLAY INDICATOR x & P* INSMOD INSERT CHAR. * P* UPDCNT UPDATE COUNTERS 2 P*
0x29b598…29b72c Dummy {f00=0x00d1, f01=0x0190, f02=» INFORMATION p 2 P* STOINF STORE SCREEN INFORMATION & P* SOUND SOUND ALARM J . P* WRAP CHECK IF WRAP AROUND t , P* LINWRP CHECK IF LINE WRAP * P* LINE UPDATE LINE FLAG < P*
0x29b72c…29b8c0 Dummy {f00=0x00d1, f01=0x0190, f02=»TIRE SCREEN r 0 P* ERASUP ERASE ALL UNPROTECTED 6 P* ERASUA ERASE UNPROTECTED TO ADDRESS H 8 P* POSUNP MOVE CURSOR TO NEXT UNPRO. POS 2 P* DISID DISPLAY HARDCOPY TASKID , P* DISSTA
0x29b8c0…29ba54 (3, 46) Dummy {f00=0x00d1, f01=0x0190, f02=»SEARCH ATTRIBUTE FORWARD z 4 P* ATMASB SEARCH ATTRIBUTE BACKWARD 2 P* SNULL SEARCH FIRST NULL CHAR. X 2 P* WCHAR DISPLAY CHAR. AND CURSOR 8 P* RFMDUP REPLACE FM OR DUP CHAR. IF ANY ( P*
0x29ba54…29bbe8 Dummy {f00=0x00d1, f01=0x0190, f02=»****************************************************************** H P* * J H P* ENTRY POINTS * H P*
0x29bbe8…29bd7c Dummy {f00=0x00d1, f01=0x0190, f02=»INSERT CHARACTER , P ENTRY GETVDU GET CHAR. FROM VDU BUFFER , P ENTRY STOVDU STORE CHAR. IN VDU BUFFER H ( P ENTRY SCRINF GET SCREEN INFORMATION x * P ENTRY STOINF SAVE SCREEN INFORMATION 0 P ENTRY POSUNP MOVE TO NEXT UNPROTECTED POS. , P E
0x29bd7c…29bf10 Dummy {f00=0x00d1, f01=0x0190, f02=» WCHAR DISPLAY CHAR. AND CURSOR * P ENTRY DISMOD DISPLAY MODIFIED FIELDS ( ( P ENTRY DISID DISPLAY HARDCOPY TASKID V . P ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS $ P ENTRY ERASE ERASE ENTIRE SCREEN $ P ENTRY SOUND SOUND ALARM ON VDU ( P ENT
0x29bf10…29c0a4 Dummy {f00=0x00d1, f01=0x0190, f02=»K LINE WRAP ~ P ENTRY LINE UPDATE LINE FLAG P ENTRY LINATT UPADTE 8 $ P ENTRY DISSTA DISPLAY STATISTICS T , P ENTRY RFMDUP REPLACE FM OR DUP CHAR =37 | P P EJECT H P********************************************************************
0x29c0a4…29c238 Dummy {f00=0x00d1, f01=0x0190, f02=» * Z H P* * H P******************************************************************** b P 0 P EXTRN TAB TAB UNPROCTECTED FOREWARD (KEYB) : P EXTRN CRDOWN MOVE CURSOR UNPR
0x29c238…29c3cc Dummy {f00=0x00d1, f01=0x0190, f02=» REST1 RESTORE REGISTERS (PAD) P EJECT & P 4 P < J P********************************************************************* D J P* * J P* CONDITIONAL ASSEMBLY PARAMETERS
0x29c3cc…29c560 Dummy {f00=0x00d1, f01=0x0190, f02=»************************************************* | P : $ PX:I EQU 1 INSERT/DELETE HANDLING B PIN:DL EQU 1 j " PX:O EQU 0 TEST INCLUDED IF:=1 ~ PTEST EQU 0 P EJECT D P***************************************************************
0x29c560…29c6f4 (3, 47) Dummy {f00=0x00d2, f01=0x0190, f02=» * ~ D P*************************************************************** 6 P ~ P* $ P* EQUATES FOR ECB HANDLING P* PECBBA EQU 2 BUFFER ADDRESS PECBRL EQU 4 REQUESTED LENGTH P
0x29c6f4…29c888 Dummy {f00=0x00d2, f01=0x0190, f02=» P* PNULL EQU 0 NULL CHAR. " PNEWLIN EQU /0A NEW LINE CHAR. , " PFORMFD EQU /0C FORM FEED CHAR. R $ PENDMES EQU /19 END MESSAGE CHAR. x " PDUPCH EQU /1C DUPLICATE CHAR. " PFMCH EQU /1E FIELD MARK CHAR. P* P* TASK IDENTIFICAT
0x29c888…29ca1c Dummy {f00=0x00d2, f01=0x0190, f02=»D t ( PATTREC EQU /0002 ATTRIBUTE RECEIVED P* 6 P* VDU SCREEN SIZE @ P* Z PLLINE EQU 80 LINE LENGTH d PLBVDU EQU 1920 TOTAL SIZE P IFT TEST=1 P* P* STAT. LAYOUT P* , PNUMLIN EQU 13 NUMBER OF LINES YO DIS
0x29ca1c…29cbb0 Dummy {f00=0x00d2, f01=0x0190, f02=» l 8 PINDEX DATA /0102,/0405,/0608,/090A,/0C0E,/1D1E,/1F00 P XIF D P EJECT P P* ^ P* RELATIVE ADDRESSES IN h P* TERMINAL WORKBLOCK P* $ PTCT01 EQU 0 TASK IDENTIFICATION " PBVDU EQU TCT01+2 SCREEN BUFFER , PLINFLG EQU B
0x29cbb0…29cd44 Dummy {f00=0x00d2, f01=0x0190, f02=»TTRIB+2 & PWCC EQU CURATT+2 WCC/CCC CHARACTER ( PINTATT EQU WCC+8 INTENSITY ATTRIBUTE : $ PREGI EQU INTATT+32 WORK REGISTER f PECBVDU EQU REGI+40 P* P* RELATIVE ADDRESSES IN P* COMMON WORKBLOCK P* " PIDTEXT EQU 2 IDENT
0x29cd44…29ced8 Dummy {f00=0x00d2, f01=0x0190, f02=»************************************* | > P* * . > P* DISMOD DISPLAY MODIFIED FIELDS * p > P* * > P********************
0x29ced8…29d06c Dummy {f00=0x00d2, f01=0x018e, f02=»= REL. CURSOR POS. P* A5= REL. ATTRIBUTE POS. P* A6= ADDRESS IN ECB < P* A7= INDEX IN ECB X P* A8= VDU ECB r P* A9= INTENSITY COUNTER P* A10= INDICATOR P* A11= CREDIT WORK AREA P* A13= RESERVED P* : P******
0x29d06c…29d200 Dummy {f00=0x00d2, f01=0x018e, f02=» P LKM =22 P DATA 1 =22 P LDKL A1,/101 LINE 1 POS. 1 * P ST A1,ECBCW,A8 N & P SUR A9,A9 RESET INTENSITY COUNTER f P SUR A10,A10 P LDKL A3,BVDU P ADR A3,A11 P CF A14,SCRINF " P LDK A4,0 FIRST SCREEN POS. DK (
0x29d200…29d394 (3, 48) Dummy {f00=0x00d2, f01=0x0190, f02=» P RF(NE) DIS100 NO P LDK A2,0 LOW INTENSITY P ST A2,INTATT,A11 > PDIS100 EQU * X P LDR A10,A10 l P RF(NZ) DIS900 ( P CF A14,INTCHK CHECK INTENSITY CHAR. P LDR A1,A10 P SUR A10,A10 P LDR A1,A1 P RF(N) DIS80
0x29d394…29d528 Dummy {f00=0x00d2, f01=0x018e, f02=») DIS100 NO P RF DIS900 PDIS400 EQU * & " P CWK A7,LLINE LINE COMPLETED? : P RF(L) DIS500 NO ` P CF A14,DISLIN DISPLAY LINE x P RB DIS100 PDIS500 EQU * & P LCR A2,A3 GET CHAR. IN VDU-BUFFER & P CF A14,SETIND SET SPACE IND
0x29d528…29d6bc Dummy {f00=0x00d2, f01=0x0190, f02=» v P RB(E) DIS400 YES " P CWK A2,NEWLIN NEW LINE CHAR.? " P RB(E) DIS400 YES H & P CWK A2,ENDMES END MESSAGE CHAR.? b P RB(E) DIS400 YES $ P CWK A2,FORMFD FORM FEED CHAR.? P RB(E) DIS400 YES , P CF A14,RFMDUP REPLACE DUP AND F
0x29d6bc…29d850 Dummy {f00=0x00d2, f01=0x0190, f02=» P ANK A1,8 LOW INTENSITY? P RF(Z) DIS725 YES ( P ANK A2,4 HIGH INTENSITY? B P RF(Z) DIS715 YES d " P CF A14,UPDCNT UPDATE COUNTERS ~ P RF DIS800 NONDISPLAY PDIS715 EQU * P LDK A2,/1F HIGH P RF DIS750 PDIS725 E
0x29d850…29d9e4 Dummy {f00=0x00d2, f01=0x0190, f02=»ATE COUNTERS ~ P ADK A6,1 P RB DIS400 & PDIS800 EQU * 8 " P CWK A7,LLINE LINE COMPLETED? L P RF(L) DIS850 NO r P CF A14,DISLIN DISPLAY LINE P RB DIS100 PDIS850 EQU * & P LCR A2,A3 GET CHAR. IN VDU-BUFFER P CCK A2,/8
0x29d9e4…29db78 Dummy {f00=0x00d2, f01=0x018e, f02=»NF GET SCREEN INFORMATION P LDK A1,2 REQ. LENGTH " P CF A14,DISCHA SET CURSOR @ P LDK A7,/BE END OF BLOCK =22 b P LKM =22 P DATA 1 =22 P RTN A14 P EJECT @ P***********************************************************
0x29db78…29dd0c Dummy {f00=0x00d2, f01=0x0190, f02=» R @ P* * @ P*********************************************************** L P* REGISTERS P* P* A3= RESERVED P* A4= RESERVED P* A5= RESERVED P* A6= RESERVED P*
0x29dd0c…29dea0 Dummy {f00=0x00d2, f01=0x0190, f02=»********************************************************* PDISLIN EQU * B P LDK A7,2 REQ. LENGTH V P LDR A1,A10 t P ANKL A1,1 ONLY SPACES? P RF(Z) DISL10 YES P LDKL A7,LLINE+2 REQ. LENGTH , P ADR A7,A9 ADD NUMBER OF INTENSITY
0x29dea0…29e034 (3, 49) Dummy {f00=0x00d2, f01=0x0190, f02=» n P LKM P DATA 1 P LD A1,ECBRC,A8 . =21 $ P ANK A1,1 NOT OPERABLE? =21 B " P RF(Z) DISL20 VDU OPERABLE =21 f 0 P ST A2,ECBCW,A8 NOT OP. REST CURSOR POS =21 & P RF DISL90 TERMINATE VDU LINE =21 PDISL20 EQU * . =21 $ P LD
0x29e034…29e1c8 Dummy {f00=0x00d2, f01=0x0190, f02=»,ECBBA,A8 P LDK A2,/2B P SC A2,1,A6 & P LDKL A2,/1420 : P SC A2,3,A6 P P SRL A2,8 d P SC A2,2,A6 v P LDK A2,84 P ST A2,ECBRL,A8 P LDK A7,/86 WRITE P LKM P DATA 1 PDISL90 EQU * P ADK A5,1
0x29e1c8…29e35c Dummy {f00=0x00d2, f01=0x0190, f02=»UR A10,A10 P LD A2,ECBCW,A8 P CWK A2,/1901 END OF SCREEN * P RF(NE) DISL95 NO N P LDKL A10,1 h PDISL95 EQU * | , P CF A14,SPACES MOVE SPACES TO ECB BUFFER P RTN A14 P EJECT @ P******************************************
0x29e35c…29e4f0 Dummy {f00=0x00d2, f01=0x0190, f02=»UFFER * f @ P* * ! @ P************************************************************ ! ^ P* REGISTERS ! P* ! P* A2= CHAR. ! P* A3= RESERVED ! P* A4= RESERVED ! P* A5= RE
0x29e4f0…29e684 Dummy {f00=0x00d2, f01=0x0190, f02=» INDICATOR ! P* A11= RESERVED " P* A13= RESERVED " * P* " B @ P************************************************************ " L PSPACES EQU * " & P LD A6,ECBBA,A8 GET BUFFER ADDRESS " P ADK A6,2 " P LDK A7,LLINE LINE LENGTH " P ADR A
0x29e684…29e818 Dummy {f00=0x00d2, f01=0x018e, f02=»7,2 WHOLE BUFFER SPACED? " P RB(P) SPAC10 NO # P LDK A2,0 CHAR. # 8 " P LD A6,ECBBA,A8 BUFFER ADDRESS # P P ADK A6,2 # v " P LDK A7,0 RESET CHAR. COUNTER # P RTN A14 # P EJECT # > P********************************************************* #
0x29e818…29e9ac Dummy {f00=0x00d2, f01=0x0190, f02=» > P* * $ > P********************************************************* $ F P* REGISTERS $ P* $ P* A2= CHAR. $ P* A3= RESERVED $ P* A4= RESERVED $ P* A5= RESERVED $ P* A6= ADDRES
0x29e9ac…29eb40 Dummy {f00=0x00d2, f01=0x0190, f02=»T WORK AREA $ P* A13= RESERVED % P* % , 4 P************************************************ % 6 PINTCHK EQU * % n & P SUR A9,A9 RESET INTENSITY COUNTER % $ P LC A2,LINFLG,A5 GET LINE FLAG % P ANK A2,1 MODIFIED? % P RF(NZ) INT100 YES %
0x29eb40…29ecd4 (3, 50) Dummy {f00=0x00d2, f01=0x0190, f02=» P ADS A2,ECBCW,A8 & P LDKL A10,0 & P RF INT900 & 0 PINT100 EQU * & B P LC A2,LINFLG,A5 & V P ANK A2,2 & n P SC A2,LINFLG,A5 & P LDKL A10,1 & P LD A2,REGI,A11 & ( P CWK A2,LBVDU+1 UNFORMATTED SCREEN? & P RF(E) INT200 YES &
0x29ecd4…29ee68 Dummy {f00=0x00d2, f01=0x0190, f02=» & l P ST A6,INTATT,A11 ' P LDR A5,A2 ' " P LDR A6,A3 ' 4 P CF A14,STOINF ' F P CF A14,REST1 ' P LDK A7,0 ' r PINT200 EQU * ' P LD A2,INTATT,A11 ' P LDR A1,A2 ' P ANK A1,8 LOW INTENSITY? ' P RF(Z) INT300 YES ' P ANK A2,4
0x29ee68…29effc Dummy {f00=0x00d2, f01=0x0190, f02=»LOW ' PINT400 EQU * ( " P SCR A2,A6 SAVE IN ECB BUFFER ( P ADK A6,1 ( F P ADKL A9,1 ( X P RF INT900 ( j PINT800 EQU * ( | P LDKL A10,/8000 ( PINT900 EQU * ( P RTN A14 ( P EJECT ( 4 P**********************************************
0x29effc…29f190 Dummy {f00=0x00d2, f01=0x0190, f02=» * ( 4 P************************************************ ) * P* REGISTERS ) b P* ) v P* A2= CHAR ) P* A3= RESERVED ) P* A4= RESERVED ) P* A5= RESERVED ) P* A6= RESERVED ) P* A7= RESERVED ) P* A8= RE
0x29f190…29f324 Dummy {f00=0x00d2, f01=0x0190, f02=»************************ ) PSETIND EQU * * P CWK A2,NULL NULL CHAR? * 4 P RF(E) SETI90 YES * T ( P ORKL A10,1 INDICATE NOT ONLY SPACES * n PSETI90 EQU * * P RTN A14 * P EJECT * D P************************************************************
0x29f324…29f4b8 Dummy {f00=0x00d2, f01=0x0190, f02=» * * D P* * + D P**************************************************************** + P* REGISTERS + P* + D P* A1= AT RETURN 0=NULL IN POS., 1=NORMAL INSERT, 2=NOT ALLOWED +
0x29f4b8…29f64c Dummy {f00=0x00d2, f01=0x0190, f02=» AREA + ~ P* A13= RESERVED , P* , & D P*************************************************************** , 0 PINSMOD EQU * , x P IFT IN:DL=1 , P LDR A1,A4 , * P CF A14,GETVDU GET CHAR. IN VDU BUFFER , P CCK A7,NULL NULL CHAR.? , P RF(NE)
0x29f64c…29f7e0 Dummy {f00=0x00d2, f01=0x0190, f02=»UNFORMATTED SCREEN? , P RF(E) INS200 YES - P LDR A8,A6 SAVE OLD - 6 P LDR A9,A5 SAVE OLD - R , P CF A14,ATMASF SEARCH ATTRIBUTE FORWARD - n P LDR A3,A5 - P ST A8,ATTRIB,A11 RESTORE - P ST A9,CURATT,A11 RESTORE - P LDR A6,A8 - P L
0x29f7e0…29f974 (3, 51) Dummy {f00=0x00d3, f01=0x018e, f02=» A1,2 INDICATE ERROR - P RF INS900 . PINS300 EQU * . . ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? . B P RF(E) INS350 YES . n * P ORK A6,1 SET MDT-BIT ON IN ATTRIBUTE . P ST A6,ATTRIB,A11 . P LDR A1,A5 . P LDR A7,A6 . 4 P CF A14,STOVDU SAVE
0x29f974…29fb08 Dummy {f00=0x00d3, f01=0x0190, f02=» P LDR A6,A11 / P SUR A10,A10 / P LDR A9,A1 / , " P CF A14,LINE UPDATE LINE FLAG / > P LDR A1,A9 / d PINS400 EQU * / v . P CWK A1,0 CHAR TO MOVE IN LAST SCREEN POS? / P RF(E) INS500 YES / P SUK A1,1 / * P CF A14,GETVDU GET CHAR IN VDU B
0x29fb08…29fc9c Dummy {f00=0x00d3, f01=0x018e, f02=»,LINFLG,A6 / P ORKL A9,1 0 P SC A9,LINFLG,A6 0 $ , P CF A14,STOVDU STORE CHAR IN VDU BUFFER 0 < P SUK A1,1 0 l P SUK A4,1 0 ~ PINS450 EQU * 0 P CW A1,REGI,A11 ALL SHIFTED? 0 P RF(E) INS600 YES 0 P RB INS400 0 PINS500 EQU * 0 " P
0x29fc9c…29fe30 Dummy {f00=0x00d3, f01=0x0190, f02=» P LDK A5,LLINE 1 P LDR A6,A11 1 P CF A14,LINE 1 . P LDR A1,A9 1 B P LC A9,LINFLG,A6 1 T P ORKL A9,1 1 l P SC A9,LINFLG,A6 1 ~ , P CF A14,STOVDU STORE CHAR IN VDU BUFFER 1 & P LDKL A1,LBVDU-1 LAST SCREEN POS. 1 P LDKL A4,LBVDU-1 1 P
0x29fe30…29ffc4 Dummy {f00=0x00d3, f01=0x0190, f02=» P LDR A6,A11 2 P CF A14,LINE 2 P LC A9,LINFLG,A6 2 , P ORKL A9,1 2 D P SC A9,LINFLG,A6 2 V P IM PCURS,A11 MOVE CURSOR 2 n P LD A4,REGI,A11 2 P ADK A4,1 2 P CWK A4,LBVDU-1 WRAP AROUND? 2 P RF(NG) INS700 NO 2 " P LDK A4,0 FIRST
0x29ffc4…2a0158 Dummy {f00=0x00d3, f01=0x018e, f02=»INSERT 2 v PINS900 EQU * 3 P RTN A14 3 " P XIF 3 2 P EJECT 3 > > P********************************************************* 3 L > P* * 3 > P* UPDCNT UPDATE COUNTERS
0x2a0158…2a02ec Dummy {f00=0x00d3, f01=0x0190, f02=» 3 T P* REGISTERS 4 P* 4 $ P* A3= ADDRESS IN VDU BUFFER 4 . P* A4= REL CURSOR POS 4 R P* A5= RESERVED 4 n P* A6= ADDRESS IN ECB 4 P* A7= INDEX IN ECB 4 P* A8= RESERVED 4 P* A9= RESERVED 4 P* A10= RESERVED 4 P* A11= RES
0x2a02ec…2a0480 Dummy {f00=0x00d3, f01=0x0190, f02=»DK A3,1 4 P ADK A4,1 5 P ADK A6,1 5 " P ADK A7,1 5 4 P RTN A14 5 F P EJECT 5 V D P**************************************************************** 5 d D P* * 5 D P* GETVDU
0x2a0480…2a0614 (3, 52) Dummy {f00=0x00d3, f01=0x018e, f02=»**************************************************** 5 P* REGISTERS 6 < P* 6 P P* A1= REL. POS IN VDU BUFFER 6 Z P* A2= RESERVED 6 ~ P* A3= RESERVED 6 P* A4= RESERVED 6 P* A5= RESERVED 6 P* A6= RESERVED 6 P* A7= CHAR. FROM VDU BUFFER
0x2a0614…2a07a8 Dummy {f00=0x00d3, f01=0x0190, f02=» 6 < P******************************************************** 7 PGETVDU EQU * 7 H P LDKL A7,BVDU 7 P ADR A7,A11 7 r P ADR A7,A1 7 P LCR A7,A7 7 P ANK A7,/FF 7 P RTN A14 7 P EJECT 7 B P********************************************
0x2a07a8…2a093c Dummy {f00=0x00d3, f01=0x0190, f02=» BUFFER * 7 h B P* * 8 B P************************************************************** 8 d P* REGISTERS 8 P* 8 " P* A1= REL. POS. IN VDU BUFFER 8 P* A2= RESERVED 8 P* A3
0x2a093c…2a0ad0 Dummy {f00=0x00d3, f01=0x0190, f02=»RVED 8 P* A10= RESERVED 9 P* A11= CREDIT WORK AREA 9 $ P* A13= RESERVED 9 D P* 9 < P******************************************************** 9 f PSTOVDU EQU * 9 P LDKL A8,BVDU 9 P ADR A8,A11 9 P ADR A8,A1 9 P SCR A7,A8 9 P
0x2a0ad0…2a0c64 Dummy {f00=0x00d3, f01=0x0190, f02=» * 9 f < P* SCRINF GET SCREEN INFORMATION * : < P* * : V < P******************************************************** : P* REGISTERS : P* : P* A2= RESERVED :
0x2a0c64…2a0df8 Dummy {f00=0x00d3, f01=0x0190, f02=»ESERVED : P* ; < P******************************************************* ; PSCRINF EQU * ; Z $ P LD A4,PCURS,A11 GET CURSOR POS. ; n ( P LD A5,CURATT,A11 GET ATTRIBUTE POS. ; * P LD A6,ATTRIB,A11 GET ATTRIBUTE CHAR. ; P RTN A14 ; P EJECT ;
0x2a0df8…2a0f8c Dummy {f00=0x00d3, f01=0x0190, f02=» STOINF STORE SCREEN INFORMATION * ; < P* * < > < P******************************************************** < ~ P* REGISTERS < P* < P* A4= REL. CURSOR POS. < P* A5= REL. ATT
0x2a0f8c…2a1120 Dummy {f00=0x00d3, f01=0x0190, f02=»************************************ < | PSTOINF EQU * = , P ST A4,PCURS,A11 = @ P ST A5,CURATT,A11 = X P ST A6,ATTRIB,A11 = r P RTN A14 = P EJECT = < P******************************************************* = < P*
0x2a1120…2a12b4 (3, 53) Dummy {f00=0x00d3, f01=0x0190, f02=» * = j < P******************************************************* > P* REGISTERS > Z P* > n P* A1= RETURN CODE > x P* A8= ECBVDU > P* A11= CREDIT WORK AREA > P* A13= RESERVED > P* > < P********************************
0x2a12b4…2a1448 Dummy {f00=0x00d3, f01=0x0190, f02=» SC A2,1,A1 > P LDK A2,/07 BELL CHAR. ? P SC A2,2,A1 ? 2 P LDK A2,3 REQ. LENGTH ? F P ST A2,ECBRL,A8 ? d P LDK A7,/86 ? | P LKM ? P DATA 1 ? $ P LD A1,ECBRC,A8 GET RETURN CODE ? P RTN A14 ? P EJECT ? : P**********************
0x2a1448…2a15dc Dummy {f00=0x00d3, f01=0x0190, f02=»AROUND * ? n : P* * @ : P***************************************************** @ Z P* REGISTERS @ P* @ P* A2= RESERVED @ P* A3= ADDRESS IN VDU BUFFER @ P* A4= REL. CURSOR POS. @
0x2a15dc…2a1770 Dummy {f00=0x00d3, f01=0x0190, f02=» P* A11= CREDIT WORK AREA A P* A13= RESERVED A $ P* A < : P***************************************************** A F PWRAP EQU * A P CWK A4,LBVDU WRAP AROUND A P RF(L) WRAP90 NO A P LDK A4,0 FIRST SCREEN POS. A P LDKL A3,BVDU A
0x2a1770…2a1904 Dummy {f00=0x00d3, f01=0x0190, f02=» @ P* * B B P* LINWRP CHECK LINE WRAP * B H @ P* * B @ P******************************************************
0x2a1904…2a1a98 Dummy {f00=0x00d3, f01=0x0190, f02=»SERVED B P* A8= RESERVED C P* A9= RESERVED C $ P* A10= RESERVED C : P* A11= RESERVED C R P* A13= RESERVED C j P* C @ P*********************************************************** C PLINWRP EQU * C P CWR A5,A4 END OF LINE? C P RF(
0x2a1a98…2a1c2c Dummy {f00=0x00d3, f01=0x0190, f02=»******************************** C t @ P* * D ( @ P* LINE UPDATE LINE FLAG * D l @ P* * D B P********************
0x2a1c2c…2a1dc0 Dummy {f00=0x00d3, f01=0x0190, f02=» D | P* A5= LAST IN ROW REL POS E $ P* A6= INTERNAL LINE FLAG ADDRESS E * P* A8= RESERVED E R P* A9= RESERVED E h P* A10= RESERFED E ~ P* A11= CREDIT WORK AREA E P* A13= RESERVED E P* E @ P************************************************
0x2a1dc0…2a1f54 (3, 54) Dummy {f00=0x00d3, f01=0x018e, f02=»TTRIBUTE RECEIVED? E P RF(Z) LIN100 NO F P LC A1,LINFLG,A6 F 2 P ORK A1,2 F J P SC A1,LINFLG,A6 F PLIN100 EQU * F t P SUR A6,A11 F P ADK A6,1 UPDATE ADDRESS F P CWK A6,23 WRAP SCREEN? F P RF(G) LIN300 YES F P ADK A5,LLINE F
0x2a1f54…2a20e8 Dummy {f00=0x00d3, f01=0x0190, f02=» P LDR A6,A11 G P LDK A5,LLINE G PLIN400 EQU * G . P SUR A5,A4 G B P CWK A5,81 G V P RF(L) LIN500 THIS LINE G h P LDK A5,LLINE G P LDR A6,A11 G P RB LINE G PLIN500 EQU * G P ADR A5,A4 RESTORE G P RTN A14 G P EJECT G
0x2a20e8…2a227c Dummy {f00=0x00d3, f01=0x0190, f02=»* G T B P* LINATT UPADTE LINFLG AT ATTRIBUTE CHANGE * H B P* * H P B P************************************************************* H P* REGISTERS H P* H P* A3= ADDRESS
0x2a227c…2a2410 Dummy {f00=0x00d3, f01=0x0190, f02=»ED H P* A9= RESERVED I P* A10= RESERVED I P* A11= CREDIT WORK AREA I 8 P* A13= RESERVED I X P* I p B P************************************************************** I z PLINATT EQU * I P CF A14,SAVE1 I P SUR A6,A11 I P LDK A2,0
0x2a2410…2a25a4 Dummy {f00=0x00d3, f01=0x018e, f02=» I P ADR A6,A11 J P LC A1,LINFLG,A6 J P ORK A1,1 J 4 P SC A1,LINFLG,A6 J F P SUR A6,A11 J ^ P ADK A6,1 J r P CWK A6,23 WRAP AROUND? J P RF(G) LINA20 YES J P ADK A5,LLINE J P RF LINA30 J PLINA20 EQU * J P LDK A6,0 J
0x2a25a4…2a2738 Dummy {f00=0x00d3, f01=0x0190, f02=» J r P RF(E) LINA40 YES =1 K P LCR A2,A3 K $ P CWK A2,/80 ATTRIBUTE K 6 P RB(NG) LINA10 YES K T PLINA40 EQU * . =1 K n P CF A14,REST1 K P RTN A14 K P EJECT K @ P*********************************************************** K @ P*
0x2a2738…2a28cc Dummy {f00=0x00d3, f01=0x0190, f02=» * K @ P*********************************************************** L < P* REGISTERS L P* L P* A3= ADDRES IN VDU BUFFER L P* A4= REL CURSOR POS L P* A5= RESERVED L P* A6= RESERVED L P
0x2a28cc…2a2a60 Dummy {f00=0x00d3, f01=0x0190, f02=»************************************************* L PNLROUT EQU * M : P LDR A1,A4 SAVE CURSOR POS. M N . P CF A14,CRDOWN MOVE CURSOR ON E LINE DOWN M r P LDK A7,0 M PNLR100 EQU * M ( P SUK A4,LLINE COMPUTE LEFTMOST POS. M P RF(N) NLR200 M
0x2a2a60…2a2bf4 (3, 55) Dummy {f00=0x00d4, f01=0x0190, f02=» NULLED? M P RF(E) NLR900 YES N " P SCR A2,A3 NULL IN VDU BUFFER N * P LC A1,LINFLG,A6 N P P ORKL A1,1 N h P SC A1,LINFLG,A6 N z P ADK A3,1 N P ADK A4,1 N P CF A14,LINWRP N P RB NLR300 N PNLR900 EQU * N P RTN A14 N P EJECT
0x2a2bf4…2a2d88 Dummy {f00=0x00d4, f01=0x0190, f02=» * N H P* ERASE ERASE ENTIRE SCREEN * O H P* * O d H P******************************************************************* O P* REGISTERS
0x2a2d88…2a2f1c Dummy {f00=0x00d4, f01=0x0190, f02=» P* A6= ATTRIBUTE CHAR P P* A11= CREDIT WORK AREA P P* A13= RESERVED P @ P* P X > P********************************************************* P b PERASE EQU * P P LDK A4,0 FIRST SCREEN POS. P P LDKL A3,BVDU P P ADR A3,A11 P " P L
0x2a2f1c…2a30b0 Dummy {f00=0x00d4, f01=0x0190, f02=»A3 STORE CHAR. P P ADK A3,1 Q P ADK A4,1 Q ( P RB ERAS10 Q : PERAS20 EQU * Q L P LDK A4,0 FIRST SCREEN POS. Q ` ( P LDKL A5,LBVDU+1 UNFORMATTED SCREEN Q P LDK A6,0 Q * P CF A14,STOINF SAVE SCREEN INFORMATION Q P LC A1,TCT01,A11 Q " P
0x2a30b0…2a3244 Dummy {f00=0x00d4, f01=0x0190, f02=»8 Q P SC A2,1,A1 R P LDK A1,2 REQ. LENGTH R P ST A1,ECBRL,A8 R < P LDK A7,/86 WRITE R T P LKM R n P DATA 1 R z PERAS30 EQU * R P RTN A14 R P EJECT R > P********************************************************* R > P*
0x2a3244…2a33d8 Dummy {f00=0x00d4, f01=0x0190, f02=» * R > P********************************************************* S 4 P* REGISTERS S v P* S P* A2= CHAR. S P* A3= ADDRESS IN VDU-BUFFER S P* A4= REL. CURSOR POS. S P* A5= REL. ATTRIBUTE POS. S
0x2a33d8…2a356c Dummy {f00=0x00d4, f01=0x0190, f02=»******************************* S v PERASUP EQU * T ( " P LDK A1,2 RESTORE KEYBOARD-BIT T < P ST A1,WCC,A11 T b P LDK A4,0 FIRST SCREEN POS. T x P LDKL A3,BVDU T P ADR A3,A11 T " P LDK A7,NULL STORE NULL CHAR. T ( P CWK A5,LBVDU+1 UNFORMATTED
0x2a356c…2a3700 Dummy {f00=0x00d4, f01=0x0190, f02=»2,/8000 ATTRIBUTE? T P RF(NL) ERUP20 YES U P ADK A3,1 U 4 P ADK A4,1 U F P RB ERUP10 U X PERUP20 EQU * U j $ P LDR A9,A4 FIRST ATTRIBUTE POS. U ~ P LDK A5,LLINE U P LDR A6,A11 U P SUR A10,A10 U P CF A14,LINE U P RF ERUP47 U
0x2a3700…2a3894 (3, 56) Dummy {f00=0x00d4, f01=0x0190, f02=» A2,/8000 ATTRIBUTE? U P RB(L) ERUP30 NO V PERUP45 EQU * V 4 P CWR A9,A4 ALL SCANNED? V H P RF(E) ERUP70 YES V h PERUP47 EQU * V P LDR A1,A2 V P ANK A1,/20 PROTECTED? V P RB(NZ) ERUP30 YES V P ANK A2,/FE RESET MDT-BIT V P SCR A
0x2a3894…2a3a28 Dummy {f00=0x00d4, f01=0x0190, f02=» EQU * V * P CF A14,LINWRP CHECK IF LINWRP AROUND W P LCR A2,A3 GET CHAR. W < P CCK A2,/8000 ATTRIBUTE? W X P RB(NL) ERUP45 YES W x . P SCR A7,A3 STORE NULL CHAR. IN VDU BUFFER W P LC A1,LINFLG,A6 W P ORK A1,1 W P SC A1,LINFLG,A6 W P A
0x2a3a28…2a3bbc Dummy {f00=0x00d4, f01=0x0190, f02=»QU * W P RTN A14 X P EJECT X D P**************************************************************** X * P* X r D P* ERASUA ERASE UNPROTECTED TO ADDRESS * X | D P* * X
0x2a3bbc…2a3d50 Dummy {f00=0x00d4, f01=0x018e, f02=»= CHAR. X P* A3= ADDRESS IN VDU-BUFFER Y P* A4= REL. CURSOR POS. Y 4 P* A5= REL ATTRIBUTE POS. Y R P* A6= ATTRIBUTE CHAR. Y r P* A7= NULL CHAR. Y P* A11= CREDIT WORK AREA Y P* A13= RESERVED Y P* Y D P******************************
0x2a3d50…2a3ee4 Dummy {f00=0x00d4, f01=0x018e, f02=» Y P ADR A3,A4 BUFFER POS. Z ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? Z & P RF(E) ERUA47 YES Z R $ P LDR A2,A6 GET CURRENT ATTRIBUTE Z l & P CWR A5,A4 STANDING ON ATTRIBUTE? Z P RF(NE) ERUA10 NO Z P ADK A3,1 Z P ADK A4,1 Z P CWR A1,A4 A
0x2a3ee4…2a4078 Dummy {f00=0x00d4, f01=0x0190, f02=» Z r P RF(Z) ERUA47 NO [ PERUA30 EQU * [ & P CF A14,WRAP CHECK IF WRAP AROUND [ 4 P CWR A1,A4 ALL NULLED? =2 [ ^ P RF(E) ERUA70 YES =2 [ P LCR A2,A3 GET CHAR. [ P ADK A3,1 [ P ADK A4,1 [ P . =2 [ P CCK A2,/8000 ATTRIBUTE? [
0x2a4078…2a420c Dummy {f00=0x00d4, f01=0x0190, f02=» [ P LDR A6,A11 P LDK A5,LLINE P LDR A8,A1 2 P CF A14,LINE D P LDR A1,A8 X P RF ERUA60 j PERUA50 EQU * | P LDR A8,A1 P CF A14,LINWRP P LDR A1,A8 P CWR A1,A4 ALL NULLED? P RF(E) ERUA70 YES PERUA60
0x2a420c…2a43a0 Dummy {f00=0x00d4, f01=0x0190, f02=» RB(NZ) ERUA30 YES =3 P RF ERUA64 =3 ] PERUA62 EQU * =3 ] 4 . P SCR A7,A3 STORE NULL CHAR, IN VDU-BUFFER ] L P LC A8,LINFLG,A6 ] ~ P ORKL A8,1 ] P SC A8,LINFLG,A6 ] PERUA64 EQU * =3 ] P ADK A3,1 ] P ADK A4,1 ] P RB ERUA50 ]
0x2a43a0…2a4534 (3, 57) Dummy {f00=0x00d4, f01=0x0190, f02=» * ] > P* POSUNP MOVE CURSOR TO NEXT UNPR. POS. * ^ 4 > P* * ^ v > P********************************************************** ^ P* REGISTERS ^
0x2a4534…2a46c8 Dummy {f00=0x00d4, f01=0x0190, f02=» CREDIT WORK AREA ^ P* A13= RESERVED _ P* _ 2 @ P*********************************************************** _ < PPOSUNP EQU * _ P CWK A4,LBVDU-1 WRAP AROUND? _ P RF(NG) POSU20 NO _ " P LDK A4,0 FIRST POS. ON SCREEN _ P ST A4,PCURS,A11
0x2a46c8…2a485c Dummy {f00=0x00d4, f01=0x0190, f02=»0 NO _ P LDR A6,A7 ` P ANK A7,/20 ` P CWK A7,/20 PROTECTED? DKPT ` 2 P RF(E) POSU25 YES ` V P LDR A5,A1 ` p P IM PCURS,A11 MOVE CURSOR ` P ADK A4,1 ` P CWK A4,LBVDU-1 WRAP AROUND? ` P RF(NG) POSU23 NO ` P LDK A4,0 ` PPO
0x2a485c…2a49f0 Dummy {f00=0x00d4, f01=0x0190, f02=»30 ` PPOSU25 EQU * a * P CF A14,TAB TAB NEXT UNPROTECTED FIELD a PPOSU30 EQU * a L P LD A8,ECBVDU,A11 a ` P LD A1,ECBCW,A8 a z P ANK A1,/FF LINE POS. a " P SUK A1,81 LAST POS. ON LINE? a P RF(NZ) POSU90 NO a P LDK A1,2 REQ. LENGTH a
0x2a49f0…2a4b84 Dummy {f00=0x00d4, f01=0x0190, f02=»************** a b @ P* * b @ P* DISID DISPLAY HARDCOPY TASKID * b Z @ P* * b @ P**************************************
0x2a4b84…2a4d18 Dummy {f00=0x00d4, f01=0x0190, f02=»****** b Z PDISID EQU * c P LD A8,ECBVDU,A11 c " & P CF A14,SPACES SPACE IN ECB BUFFER c < & P LD A3,6,A13 GET COMMON BLOCK BASE c f P LDR A1,A5 SAVE TASK ID c P LDK A5,IDTEXT c P ADR A5,A3 POINT ON IDBUFFER c P ADK A6,46 c P LDK A3,6 c
0x2a4d18…2a4eac Dummy {f00=0x00d4, f01=0x0190, f02=» c r P RF(N) DISI20 COMPLETED d P LDR* A2,A5 d ( P STR A2,A6 d < P ADK A5,2 d N P ADK A6,2 d ` P RB DISI10 d r PDISI20 EQU * d P LD A6,ECBBA,A8 d . P ST A1,ECBBA+52,A6 SAVE TASK ID IN BUFFER d & P LC A2,X'1F' HIGH INTENSITY CHAR. d
0x2a4eac…2a5040 Dummy {f00=0x00d4, f01=0x0190, f02=»N LAST ROW d v P ST A2,ECBCW,A8 e & P CF A14,DISLIN DISPLAY IDENT TEXT e * P RTN A14 e T P EJECT e d B P************************************************************** e r P* e P* DISSTA DISPLAY STATISTICS e P* e D P************************
0x2a5040…2a51d4 (3, 58) Dummy {f00=0x00d4, f01=0x0190, f02=»********************* e f PDISSTA EQU * f P IFT TEST=1 f 2 P LD A8,ECBVDU,A11 f F " P LDK A1,STALIN WHERE TO START f ` P SLL A1,8 f P LDK A2,1 f & P ORR A2,A1 FIRST POS. ON THAT LINE f P ST A2,ECBCW,A8 f $ P CF A14,SPACES CLEAN THE BUF
0x2a51d4…2a5368 Dummy {f00=0x00d4, f01=0x0190, f02=»NTENSITY f ~ P SCR A2,A6 g P ADK A6,1 g " P LDKL A9,1 g 4 , P LDK A1,TXTSIZ GET SIZE OF TEXT PER LINE g F ( P CF A14,MOVTXT MOVE IT IN TO BUFFER g v $ P ADK A6,5+STAPOS MAKE SOME ROOM g P LC A1,INDEX,A5 g P SLL A1,1 g $ P ADR A1,A12 POINT OU
0x2a5368…2a54fc Dummy {f00=0x00d4, f01=0x0190, f02=»4,CONASC g P SLL A2,8 h P ORR A2,A4 h " P SC A2,+1,A6 h 4 P SRL A2,8 h H P SCR A2,A6 h Z P ADK A6,2 h l P LC A2,+1,A1 h ~ P CF A14,CONASC AS ABOVE h P LDR A4,A2 h P LC A2,+1,A1 h P SRL A2,4 h P CF A14,CONASC h P SLL A2,
0x2a54fc…2a5690 Dummy {f00=0x00d4, f01=0x0190, f02=»ISPLAY STAT. h " P CWK A5,NUMLIN LIMIT REACHED? i P RB(NE) DISS10 NO i : P XIF i T P RTN A14 i ` P IFT TEST=1 i p P EJECT i @ P*********************************************************** i P* i P* MOVTXT MOVE TEXT i P* i @ P****
0x2a5690…2a5824 Dummy {f00=0x00d4, f01=0x0190, f02=»******************************** i v P j ( PMOVTXT EQU * j 0 P LCR A2,A3 j D P ADK A3,1 j V P SC A2,STAPOS,A6 j h P ADK A6,1 j P SUK A1,1 j P RB(NZ) MOVTXT j P RTN A14 j P EJECT j > P************************************************
0x2a5824…2a59b8 Dummy {f00=0x00d4, f01=0x0190, f02=»* REGISTERS j P* k P* k < P******************************************************** k * PCONASC EQU * k j P ANK A2,/0F k ~ P CCK A2,/0909 k P RF(G) CONA10 k P ORK A2,/30 k P RF CONA90 k PCONA10 EQU * k P ADK A2,/37 k
0x2a59b8…2a5b4c Dummy {f00=0x00d4, f01=0x0190, f02=» * k > P* ATMASF SEARCH ATTRIBUTE FORWARD * l > > P* * l > P********************************************************* l P* R
0x2a5b4c…2a5ce0 Dummy {f00=0x00d4, f01=0x0190, f02=» l z P* A5= REL. ATTRIBUTE POS. m P* A6= ATTRIBUTE CHAR. m * P* A8= RESERVED m H P* A9= RESERVED m ^ P* A10= RESERVED m t P* A11= CREDIT WORK AREA m P* A13= RESERVED m P* m > P*********************************************************
0x2a5ce0…2a5e74 (3, 59) Dummy {f00=0x00d5, f01=0x0190, f02=»F200 NO m " P LDK A1,0 FIRST POS. ON SCREEN n PASF200 EQU * n 6 * P CW A1,REGI,A11 WHOLE SCREEN SEARCHED? n J P RF(E) ASF900 YES n x * P CF A14,GETVDU GET CHAR. IN VDU BUFFER n P CCK A7,/8000 ATTRIBUTE? n P RB(L) ASF100 NO n P LDR A6,A7 n
0x2a5e74…2a6008 Dummy {f00=0x00d5, f01=0x0190, f02=»******************************************************* n L P* * o @ L P* ATMASB SEARCH ATTRIBUTE BACKWARD * o L P*
0x2a6008…2a619c Dummy {f00=0x00d5, f01=0x018e, f02=» P* p $ P* A1= ATENTRY START SEARCH ADDR. p P* A2= RESERVED p 6 P* A3= RESERVED p L P* A4= REL. CURSOR POS. p b P* A5= REL. ATTRIBUTE POS. p P* A6= ATTRIBUTE CHAR. p P* A8= RESERVED p P* A9= RESERVED p P* A10= RESERVED p P* A1
0x2a619c…2a6330 Dummy {f00=0x00d5, f01=0x018e, f02=» p F PATMASB EQU * q P ST A1,REGI,A11 q PASB100 EQU * q 4 * P CF A14,GETVDU GET CHAR. IN VDU BUFFER q H P CCK A7,/8000 ATTRIBUTE? q v P RF(NL) ASB300 YES q P SUK A1,1 q " P RF(NN) ASB200 NOT WRAP AROUND q ( P LDKL A1,LBVDU-1 LAST POS. ON SC
0x2a6330…2a64c4 Dummy {f00=0x00d5, f01=0x0190, f02=» q P LDR A6,A7 r P LDR A5,A1 r * P CF A14,STOINF SAVE SCREEN INFORMATION r , PASB900 EQU * r Z P RTN A14 r n P EJECT r ~ D P*************************************************************** r D P*
0x2a64c4…2a6658 Dummy {f00=0x00d5, f01=0x018e, f02=» * r d D P*************************************************************** s P* REGISTERS s d P* s x 2 P* A1= AT RETURN 1=NULL FOUND, 2=NO NULL FOUND s P* A2= RESERVED s B P* A3= AT ENTRY LAST SEARCH ADDR., AT RETURN NULL ADDR. IF
0x2a6658…2a67ec Dummy {f00=0x00d5, f01=0x0190, f02=» s ~ P* t D P**************************************************************** t PSNULL EQU * t Z P LDR A1,A4 t n PSNU100 EQU * t P ADK A1,1 t P CWK A1,LBVDU-1 WRAP AROUND? t P RF(NG) SNU200 NO t P LDK A1,0 FIRST SCREEN POS. t P
0x2a67ec…2a6980 Dummy {f00=0x00d5, f01=0x0190, f02=» NULL CHAR? t P RB(NE) SNU100 NO u P LDR A3,A1 u . " P LDK A1,1 INDICATE NULL FOUND u @ P RF SNU900 u f PSNU300 EQU * u x P LDK A1,2 u PSNU900 EQU * u P RTN A14 u P EJECT u @ P********************************************************
0x2a6980…2a6b14 (3, 60) Dummy {f00=0x00d5, f01=0x0190, f02=» * u X @ P* * v @ P************************************************************ v P P* REGISTERS v P* v P* A2= KEY-CHAR v P* A4= REL. CURSOR POS. v P* A5= REL. ATTRIBUTE POS. v P
0x2a6b14…2a6ca8 Dummy {f00=0x00d5, f01=0x0190, f02=»******************************************* v ~ PWCHAR EQU * w 4 P LD A8,ECBVDU,A11 w H $ P LDK A1,/1E LOW INTENSITY CHAR. w b P LDR A7,A6 w P ANK A7,/8 STANDARD DISPLAY? w P RF(Z) WCH300 YES w P LDR A7,A6 w $ P ANK A7,/4 INTENSIFIED DISPL
0x2a6ca8…2a6e3c Dummy {f00=0x00d5, f01=0x0190, f02=»AY w | PWCH300 EQU * x & P LD A7,ECBBA,A8 GET BUFFER ADDRESS x $ P SC A1,2,A7 SAVE INTENSITY CHAR. x H * P CF A14,RFMDUP REPLACE FM OR DUP CHAR. x p * P SC A2,3,A7 STORE CHAR. IN VDU BUFFER x P LDK A1,4 REQ. LENGTH x P CF A14,DISCHA DISPLAY x P
0x2a6e3c…2a6fd0 Dummy {f00=0x00d5, f01=0x0190, f02=»ATTRIBUTE x v P ST A6,ATTRIB,A11 y P LDR A1,A5 y , P LDR A7,A6 y > , P CF A14,STOVDU STORE CHAR. IN VDU BUFFER y P PWCH900 EQU * y P RTN A14 y P EJECT y > P********************************************************* y > P*
0x2a6fd0…2a7164 Dummy {f00=0x00d5, f01=0x0190, f02=» * y x > P********************************************************* z * P* REGISTERS z l P* A2= KEY-CHAR z P* A4= RESERVED z P* A5= RESERVED z P* A6= RESERVED z P* A11= CREDIT WORK AREA z P* A13= RESERVED
0x2a7164…2a72f8 Dummy {f00=0x00d5, f01=0x0190, f02=»MD10 NO z P LDK A2,/2A REPLACE { P RF RFMD90 { , PRFMD10 EQU * { > P CWK A2,FMCH FM CHAR? { R P RF(NE) RFMD90 NO { p P LDK A2,/3B REPLACE { PRFMD90 EQU * { P RTN A14 { P EJECT { 4 P************************************************
0x2a72f8…2a748c Dummy {f00=0x00d5, f01=0x018e, f02=» * { 4 P************************************************ | ( P* REGISTERS | ` P* | t P* A1= REQ. LENGTH | ~ P* A2= RESERVED | P* A4= RESERVED | P* A5= RESERVED | P* A6= RESERVED | P* A8= VDU-ECB | P*
0x2a748c…2a7620 Dummy {f00=0x00d5, f01=0x018e, f02=» | P LC A2,TCT01,A11 } " P CCK A2,VDUCOD PRINTER UNPACK? } P RF(NE) DISC95 YES } F P LD A8,ECBVDU,A11 } ` P ST A1,ECBRL,A8 } z ( P LDKL A1,/101 START AT LINE 1 POS. 1 } P ST A1,ECBCW,A8 } P LDKL A1,/100 } P LDR A7,A4 CURSOR POS. }
0x2a7620…2a77b4 (3, 61) Dummy {f00=0x00d5, f01=0x40d8, f02=» } P RB DISC10 ~ PDISC90 EQU * ~ & P ADS A7,ECBCW,A8 POSITION IN LINE ~ . $ P LDK A7,/8B SET CURSOR AND WRITE ~ X P LKM ~ P DATA 1 ~ PDISC95 EQU * ~ P RTN A14 ~ P ~ P END ~ @ ~
0x2a77b4…2a7948 Dummy {f00=0x00d5, f01=0x2008, f02=» ) DATA PF 24 * * $ END * ,@ * 8 6 ) 4 DATA PF 7 ) F DATA PF 8 ) X DATA PF 9 ) j DATA PF 10 ) | DATA PF 11 ) DATA PF 12 ) DATA PF 13 ) DATA PF 14 ) DATA PF 15 ) *C0 ) DATA PF
0x2a7948…2a7adc Dummy {f00=0x00d5, f01=0x0190, f02=» @dDP E X R. X P T" P C X P C Z P " H " P X * Y X V !Z W* X T X *P W !Z X T p X ! P !` W !` [ A ( @ " X 0 A . A $ A 0 ![N @ &T @ (P !` [ ![N @ &T @ (X W` @ $ @ , @ > @ 8 A
0x2a7adc…2a7c70 Dummy {f00=0x00d5, f01=0x0190, f02=»_2 _6 @ $ Z A , A & X ! XD Y _N "P -P L _ 4 A ( A < H E A , A " 4 @ $P* X R$ X " T X *P Z p Zn A & A $ 4 @dD @ ,T @ > A < @ < A > A , !c T8 P: PN PP P P4 ( 1 A < @ < ]: _> P _F @dD
0x2a7c70…2a7e04 Dummy {f00=0x00d5, f01=0x0190, f02=» !c !c !b 4 !bf !cb @ 8 @ < A > @ <T* < !c @ $ ( !c @ .P - !c x . ! R W 0 " @ .PL R ~T }T T0 W, !c P " ! " :A *@ H T 0 !c W R !c A < @ : @ <UH Zx Q P Q T 0 !c A < 0 !c A < !c " !c
0x2a7e04…2a7f98 Dummy {f00=0x00d5, f01=0x0190, f02=»b !b !c !cb 4 @ lT !b A L 2B 4B A LJ P 4 @ lT B 4B J 4 A ? Z J"T0 A 2T 2P @ (P !c H A L A H ] 4 !c [ A ? Z 4J "#T @ LP6R" 2B W," P @ LP"W ] " P [ " P Z * cN Z " P 1 P A H 4 A 4P T !
0x2a7f98…2a812c Dummy {f00=0x00d5, f01=0x0190, f02=» Ad Ad Ad Ad <a :a# P 4 A 2 !c @d !c A 2 @d :H T 4dFmJ
0x2a812c…2a82c0 Dummy {f00=0x00d5, f01=0x0190, f02=»
0x2a82c0…2a8454 (3, 62) Opaque[0x194]
0x2a8454…2a85e8 # DirEnt {nam=»PAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ab8, f03=0x0000}
0x2a8454…2a85e8 IdxSect {
0x2a8454…2a85e8 f00 = 0x00d5 // 0x2a8454 @0x0
0x2a8454…2a85e8 f01 = 0x0024 // 0x2a8456 @0x2
0x2a8454…2a85e8 gno = [ // 0x2a8458 @0x4
0x2a8454…2a85e8 [0x00]: C0x00d5.0x3.0
0x2a8454…2a85e8 [0x01]: C0x00d6.0x0.0
0x2a8454…2a85e8 [0x02]: C0x00d6.0x1.0
0x2a8454…2a85e8 [0x03]: C0x00d6.0x2.0
0x2a8454…2a85e8 [0x04]: C0x00d6.0x3.0
0x2a8454…2a85e8 [0x05]: C0x00d7.0x0.0
0x2a8454…2a85e8 [0x06]: C0x00d7.0x1.0
0x2a8454…2a85e8 [0x07]: C0x00d7.0x2.0
0x2a8454…2a85e8 [0x08]: C0x00d7.0x3.0
0x2a8454…2a85e8 [0x09]: C0x00d8.0x0.0
0x2a8454…2a85e8 [0x0a]: C0x00d8.0x1.0
0x2a8454…2a85e8 [0x0b]: C0x00d8.0x2.0
0x2a8454…2a85e8 [0x0c]: C0x00d8.0x3.0
0x2a8454…2a85e8 [0x0d]: C0x00d9.0x0.0
0x2a8454…2a85e8 [0x0e]: C0x00d9.0x1.0
0x2a8454…2a85e8 [0x0f]: C0x00d9.0x2.0
0x2a8454…2a85e8 [0x10]: C0x00d9.0x3.0
0x2a8454…2a85e8 [0x11]: C0x00da.0x0.0
0x2a8454…2a85e8 ]
0x2a8454…2a85e8 }
0x2a85e8…2a877c Dummy {f00=0x00d5, f01=0x0190, f02=» 0 P IDENT PAD REL 11.0 DK 82-09-28 870150541100 P 8 P =9, CORRECTION IN PTORD @ P #8 CALL TO COPP b P 82-05-27 | P =7,ERROR IN SF P =6,2ND ERROR IN EUA ( P =5 ERROR IN ERASE UNPROT TO ADDR & P DK1, ATTRIBUTE ER
0x2a877c…2a8910 Dummy {f00=0x00d5, f01=0x0190, f02=» P 81-01-26 P =1, RA ON EUQ ADDRESS P 81-01-26 < B P************************************************************* P B P* * B P* MODULE PAD
0x2a8910…2a8aa4 Dummy {f00=0x00d5, f01=0x0190, f02=»CBUFFER. THE VDU * h B P* BUFFER IS UPDATED * B P* (EMULATION 3270 SNA/SDLC, BSC) * d B P* * B P************************
0x2a8aa4…2a8c38 Dummy {f00=0x00d5, f01=0x0190, f02=» P* LIST OF ROUTINES P* " @ P* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER , 8 P* UNPACK UNPACK DC-BUFFER AND UPDATE VDU p ( P* RETTAB RETURN ADDRESSES ( P* UNPCOM UNPACK COMMANDS & P*
0x2a8c38…2a8dcc Dummy {f00=0x00d5, f01=0x0190, f02=» SET BUFFER ADDRESS ~ & P* IC INSERT CURSOR $ P* PT PROGRAM TAB. F * P* RA REPEAT TO ADDRESS n 0 P* EUA ERASE UNPRO. TO ADDRESS ( P* CHAR < /20 BUT NOT ORDERS 6 P* PAC
0x2a8dcc…2a8f60 Dummy {f00=0x00d5, f01=0x0190, f02=»ECK NEXT BUFFER r 8 P* PUTCHA PUT CHAR. IN DC-BUFFER AND WRITE , P* PDCCH PUT CHAR. IN BUFFER T , P* GDCCH GET CHAR. IN BUFFER , P* PAID STORE AID IN BUFFER : P* BUFADR STORE BUFFER ADD
0x2a8f60…2a90f4 (3, 63) Dummy {f00=0x00d6, f01=0x0190, f02=» 6 P* P2WCC TAKE CARE OF WCC AFTER UPDATE 8 P* SAVE SAVE PACK AND UNPACK INFORMATION > < P* RESTOR RESTORE PACK AND UNPACK INFORMATION z $ P* BUFFER BUFFER POOL " P* GETBUF GET BUFFER & P
0x2a90f4…2a9288 Dummy {f00=0x00d6, f01=0x0190, f02=» B P************************************************************* B P* * J B P* ENTRY POINTS * B P*
0x2a9288…2a941c Dummy {f00=0x00d6, f01=0x0190, f02=»UFFER j 2 P ENTRY UNPACK UNPACK DC BUFFER AND UPDATE VDU 2 P ENTRY UNPSYS UNPACK DC BUFFER IN SYSTEM MODE D P ENTRY GETBUF GET DC BUFFER z $ P ENTRY RELBUF RELEASE DC BUFFER , P ENTRY PAID STORE AID CODE IN DC BUFFER 2 P ENTRY BUFADR SORE
0x2a941c…2a95b0 Dummy {f00=0x00d6, f01=0x0190, f02=» RESTORE REGISTERS P P EJECT " 8 P*************************************************** 0 8 P* * l 8 P* EXTERNAL REFERENCES * 8 P*
0x2a95b0…2a9744 Dummy {f00=0x00d6, f01=0x0190, f02=» d 0 P EXTRN CONASC CONVERT EBCDIC-ASCII (CONVER) * P EXTRN ERASE ERASE ENTIRE SCREEN (VDU) < 4 P EXTRN ERASUA ERASE UNPROTECTED TO ADDRESS (VDU) j 2 P EXTRN CONORD CONVERT ORDER TO INDEX (CONVER) . P EXTRN CONATT CONVERT ATTRIBUTE (CONVER) .
0x2a9744…2a98d8 Dummy {f00=0x00d6, f01=0x0190, f02=»PY (KEYB) x * P EXTRN SOUND SOUND ALARM ON VDU (VDU) 2 P EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU) @ 2 P EXTRN CONADR CONVERT BUFFER ADDRESS (CONVER) v * P EXTRN WRAP CHECK IF WRAP AROUND (VDU) 0 P EXTRN STOINF SAVE SCREEN INFORMATION (VDU)
0x2a98d8…2a9a6c Dummy {f00=0x00d6, f01=0x0190, f02=»CBSC) p 0 P EXTRN DCWRIT WRITE DC BUFFER (DCSNA,DCBSC) 0 P EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) B . P EXTRN THRBUF THROW BUFFERS (DCSNA,DCBSC) v ( P EXTRN NLROUT NEW LINE ROUTINE (VDU) " P EXTRN LINE WRAP ROUTINE (VDU) 2 P EXTRN LINATT
0x2a9a6c…2a9c00 Dummy {f00=0x00d6, f01=0x018e, f02=» MATCH MATCH ADDRESS AND TASKID (DSPBSC) * P EXTRN ICSET INTERTASK TIMEOUT (KEYB) 0 ( P EXTRN ICWRT INTERTASK WRITE (KEYB) ^ , P EXTRN COPP COPY ON PRINTER DIRECTLY =4 P EXTRN LMP3ON P EJECT 8 P******************************************
0x2a9c00…2a9d94 (3, 64) Dummy {f00=0x00d6, f01=0x0190, f02=» 8 P* * 8 P*************************************************** @ P | PX:A EQU 0 SNA HANDLING IF:=1 PSNA EQU 0 & PX:K EQU 2 NUMBER OF BUFFERS (1-32) PBUFFNR EQU 02 * PX:L EQU 1000 M
0x2a9d94…2a9f28 Dummy {f00=0x00d6, f01=0x0190, f02=» CHAR IF:=1 PEBCDIC EQU 1 * PX:Z EQU 1 =0,WHOLE,=1 CHAIN,=2 SEGMENT ( PDISHOW EQU X:Z V P EJECT l D P*************************************************************** z D P* * &
0x2a9f28…2aa0bc Dummy {f00=0x00d6, f01=0x0190, f02=»******************************************* | P 4 P* < $ P* EQUATES FOR ECB HANDLING F P* n PECBBA EQU 2 BUFFER ADDRESS x PECBRL EQU 4 REQUESTED LENGTH PECBEL EQU 6 EFFECTIVE LENGTH PECBRC EQU 8 RETURN CODE PECBCW
0x2aa0bc…2aa250 Dummy {f00=0x00d6, f01=0x018e, f02=»00 THROW BUFFERS PNEWCH EQU /0400 NEW CHAIN ( PATTREC EQU /0002 ATTRIBUTE RECEIVED : & PPTORD EQU /0001 PT ORDER INDICATOR f P IFT SNA=1 P* P* SNA MODES P* PLOCMOD EQU 0 LOCAL MODE PSYSOP EQU 2 SYSTEM MODE
0x2aa250…2aa3e4 Dummy {f00=0x00d6, f01=0x0190, f02=» r P* P* SPECIAL CHARACTERS P* . PNULL EQU 0 NULL CHAR. 8 PSBACH EQU /11 SBA CHAR. V PESCCHA EQU /1B ESCAPE CHAR. v P* P* VDU SCREEN SIZE P* PLBVDU EQU 1920 TOTAL SIZE PLLINE EQU 80 LINE LENGTH
0x2aa3e4…2aa578 Dummy {f00=0x00d6, f01=0x0190, f02=» x P* TERMINAL WORKBLOCK P* $ $ PTCT01 EQU 0 TASK IDENTIFICATION . " PBVDU EQU TCT01+2 SCREEN BUFFER V , PLINFLG EQU BVDU+1920 INTERNAL LINE FLAGS | 0 PPCURS EQU LINFLG+24 CURSOR ADDRESS , BINARY PCURATT EQU PCURS+4 & PWCC EQU CURATT
0x2aa578…2aa70c Dummy {f00=0x00d6, f01=0x0190, f02=» CURSOR POS IN SYSTEM MODE | & PBUFPNT EQU CURPOS+2 BUFFER ADDRESS " $ PREGI EQU BUFPNT+2 WORK REGISTER L $ PSTACK1 EQU REGI+2 INTERNAL STACK t PSTACK2 EQU STACK1+14 $ PUNPMOD EQU STACK2+14 UNPACK MODE PSNAMOD EQU UNPMOD+2 SNA MODE 0 PECBI
0x2aa70c…2aa8a0 Dummy {f00=0x00d6, f01=0x0190, f02=» * B P* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * > B P* * B P*************************************************************
0x2aa8a0…2aaa34 (3, 65) Dummy {f00=0x00d6, f01=0x0190, f02=»TTRIBUTE POS. P* A6= ATTRIBUTE CHAR P* A8= ADDRESS IN DC-BUFFER 2 P* A9= DC-BUFFER INDEX T P* A10= START ADDRESS r P* A11= RESERVED P* A12= BUFFER ADDRESS P* A13= RESERVED P* @ P**********************************
0x2aaa34…2aabc8 Dummy {f00=0x00d6, f01=0x0190, f02=»DKL A3,BVDU P ADR A3,A11 P LDR A10,A4 INITIATE ADDRESS ( ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? L P RF(E) PACK70 YES x PPACK10 EQU * P LCR A2,A3 GET CHAR. P CCK A2,/8000 ATTRIBUTE? P RF(NL) PACK15 YES P ADK A3,1
0x2aabc8…2aad5c Dummy {f00=0x00d6, f01=0x0190, f02=»F A14,WRAP CHECK IF WRAP AROUND P CWR A10,A4 ALL SCANNED? ( P RF(E) PACK80 YES H PPACK30 EQU * b P LCR A2,A3 GET CHAR. v P ADK A3,1 P ADK A4,1 P CCK A2,/8000 ATTRIBUTE? P RB(L) PACK20 NO P ANK A2,1 MODIFIED FIELD?
0x2aad5c…2aaef0 Dummy {f00=0x00d6, f01=0x0190, f02=»TO DC-BUFFER ~ P LDKL A1,/8000 INDICATE SBA & P CF A14,PUTCHA PUT CHAR. IN BUFFER 8 P LDR A1,A1 TRANSMISSION OK? b P RF(NZ) PACK90 NO * P LDR A1,A4 BUFFER ADDRESS TO DC-BUFFER P CF A14,BUFADR PPACK60 EQU * & P CF A14,WRAP CHE
0x2aaef0…2ab084 Dummy {f00=0x00d6, f01=0x0190, f02=» A2,/8000 ATTRIBUTE? P RB(NL) PACK20 YES P CWK A2,NULL NULL CHAR? 6 " P RF(E) PACK75 YES,DON'T STORE V & P CF A14,PUTCHA PUT CHAR. IN BUFFER | P LDR A1,A1 TRANSMISSION OK? P RF(NZ) PACK90 NO PPACK75 EQU * P ADK A3,1
0x2ab084…2ab218 Dummy {f00=0x00d6, f01=0x0190, f02=»PACK90 EQU * " P LDR A8,A12 BUFFER TO RELEASE " P CF A14,RELBUF RELEASE BUFFER : P RTN A14 ` P EJECT p @ P************************************************************ ~ @ P* * @ P*
0x2ab218…2ab3ac Dummy {f00=0x00d6, f01=0x0190, f02=»********************************************************** P* REGISTERS B P* V P* A2= CHAR. ` P* A3= POINTER IN VDU-BUFFER t P* A4= REL. CURSOR POS. P* A5= LAST IN ROW REL POS $ P* A6= INTERNAL LINE FLAG ADDRESS P* A8= AD
0x2ab3ac…2ab540 Dummy {f00=0x00d6, f01=0x0190, f02=»* A13= RESERVED P* < P******************************************************** " PUNPACK EQU * b P LDK A1,3 KB TOTALLY INHIBIT v P ORS A1,KBINH,A11 P LC A1,TCT01,A11 " P CCK A1,VDUCOD PRINTER UNPACK? P RF(NE) UNP050 YES
0x2ab540…2ab6d4 (3, 66) Dummy {f00=0x00d6, f01=0x0190, f02=»LLINE * P CF A14,LINE CHECK WRAP AND LINE FLAG P SUR A9,A9 < ( P LD A8,BUFPNT,A11 GET BUFFER ADDRESS N " P LDK A1,ICOMND PROCESS COMMAND z P ST A1,UNPMOD,A11 PUNP100 EQU * P CF A14,GDCCH GET CHAR. P LDR A1,A1 ANYTHING LEFT?
0x2ab6d4…2ab868 Dummy {f00=0x00d6, f01=0x018e, f02=» OKEY? ~ P RB(Z) UNP100 YES P RF UNP300 ( PUNP200 EQU * : P IFT SNA=1 N " P CF A14,GETNXT GET NEXT BUFFER ` P LDR A1,A1 FINISHED? P RB(Z) UNP100 NO P XIF PUNP300 EQU * " P CF A14,SCRINF GET LATEST NEWS P LDR A1,
0x2ab868…2ab9fc Dummy {f00=0x00d6, f01=0x0190, f02=» ~ P CF A14,THRBUF THROW BUFFERS P RF UNP600 , PUNP400 EQU * > P IFF DISHOW=2 R P LC A1,TCT01,A11 h P CCK A1,VDUCOD P RF(NE) UNP500 6 P CF A14,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! PUNP500 EQU * P XIF * P C
0x2ab9fc…2abb90 Dummy {f00=0x00d6, f01=0x0190, f02=» P RTN A14 ! P EJECT ! J P********************************************************************** ! & J P* * ! t J P* INDEX FOR RETURNS AFTER GET CHARCTER *
0x2abb90…2abd24 Dummy {f00=0x00d6, f01=0x0190, f02=»******************** ! ^ P " PICOMND EQU 0 " $ PICOMN1 EQU ICOMND+2 " 8 P IFT COPCMD=1 " T PICOCOP EQU ICOMN1+2 " j PICOWCC EQU ICOCOP+2 " P XIF " P IFF COPCMD=1 " PICOWCC EQU ICOMN1+2 " P XIF " PIORDER EQU ICOWCC+2 " P
0x2abd24…2abeb8 Dummy {f00=0x00d6, f01=0x0190, f02=» PIORACH EQU IORAA2+2 # PIOEUA1 EQU IORACH+2 # PIOEUA2 EQU IOEUA1+2 # < P EJECT # X J P********************************************************************* # f J P* * # J P*
0x2abeb8…2ac04c Dummy {f00=0x00d6, f01=0x0190, f02=» * # P J P********************************************************************* $ PRETTAB EQU * $ & P DATA UNPCOM PROCESS COMMAND CHAR. $ p 0 P DATA UNC100 PROCESS COMMAND CHAR AFTER ESC. $ P IFT COPCMD=1 $ $ P DATA UNC150 PROCESS FROM DEVICE $
0x2ac04c…2ac1e0 Dummy {f00=0x00d6, f01=0x0190, f02=»A SBA100 PROCESS FIRST ADDRESS BYTE $ , P DATA SBA200 PROCESS SECOND ADDRESS BYTE % , * P DATA RA100 PROCESS FIRST ADDRESS BYTE % , P DATA RA200 PROCESS SECOND ADDRESS BYTE % ( P DATA RA250 PROCESS CHAR. TO REPEAT % , P DATA EUA100 PROCESS FIRST ADDRESS
0x2ac1e0…2ac374 (3, 67) Dummy {f00=0x00d7, f01=0x0190, f02=»*********** % T L P* * & L P* UNPCOM UNPACK COMMAND * & d L P* * & L P****
0x2ac374…2ac508 Dummy {f00=0x00d7, f01=0x0190, f02=»ESS IN VDU-BUFFER & P* A4= REL. CURSOR ADDRESS ' P* A5= LAST IN ROW REL POS ' < $ P* A6= INTERNAL LINE FLAG ADDRESS ' ^ P* A8= ADDRESS IN DC-BUFFER ' P* A9= RESERVED ' P* A10= INDICATOR ' P* A11= CREDIT WORK AREA ' P* A12= RESERVED '
0x2ac508…2ac69c Dummy {f00=0x00d7, f01=0x0190, f02=»RY LABEL FROM RETTAB ' P IFF SNA=1 ( $ P LDK A1,ICOMN1 WHERE TO CONTINUE ( . P ST A1,UNPMOD,A11 ( V P LDK A1,0 RETURN CODE ( p P CWK A2,ESCCHA ESCAPE? ( P RF(E) UNC900 YES ( P LDK A1,1 NO INDICATE ERROR ( P RF UNC900 ( P XIF ( P
0x2ac69c…2ac830 Dummy {f00=0x00d7, f01=0x0190, f02=»WK A2,/3F ERASE ALL UNPROTECTED? ( P RF(E) UNC300 YES ) ( P IFT COPCMD=1 ) B P CWK A2,/37 COPY COMMAND? ) X P RF(NE) UNC175 NO ) z P LDK A1,ICOCOP RESTART ENTRY ) P RF UNC800 ) ( PUNC150 EQU * ENTRY LABEL FROM RETTAB ) P CF A14,MATCH GET
0x2ac830…2ac9c4 Dummy {f00=0x00d7, f01=0x0190, f02=» ) P LD A8,ECBICW,A11 * P CF A14,ICSET SET TIMEOUT * " P LDR A1,A2 TASK TO CALL * D P LDK A2,2 LENGTH * d P LDKL A3,REGI * | P ADR A3,A11 BUFFER * P CF A14,ICWRT SEND IT * PUNC175 EQU * * P XIF * $ P LDKL A10,THROWB THROW THE RES
0x2ac9c4…2acb58 Dummy {f00=0x00d7, f01=0x0190, f02=»ASE ENTIRE SCREEN * P LD A8,REGI,A11 + P LDR A6,A11 + 2 P LDK A5,LLINE + F & P LDK A4,0 INITIATE BUFFER ADDRESS + P RF UNC500 + PUNC300 EQU * + ( P CF A14,ERASUP ERASE ALL UNPROTECTED + " P LDKL A10,THROWB THROW IT AWAY + P LDK A1,1
0x2acb58…2accec Dummy {f00=0x00d7, f01=0x0190, f02=» RF UNC900 + ( PUNC600 EQU * ENTRY LABEL FROM RETTAB , , P CF A14,P1WCC PROCESS WCC BEFORE UPDATE , > P LDR A3,A4 , n " P ADKL A3,BVDU GET REAL ADDRESS , P ADR A3,A11 , & P ORKL A10,PTORD INDICATE PT ORDER , & P LDK A1,IORDER INDICATE NEXT CALL ,
0x2accec…2ace80 Dummy {f00=0x00d7, f01=0x0190, f02=»****************************************** , > P* * - 2 > P* UNPORD UNPACK ORDERS * - t > P* * - > P****************
0x2ace80…2ad014 (3, 68) Dummy {f00=0x00d7, f01=0x0190, f02=»* A4= REL. CURSOR POS. - P* A5= LAST IN ROW REL POS . $ P* A6= INTERNAL LINE FLAG ADDRESS . @ P* A8= RESERVED . h P* A9= RESERVED . ~ P* A10= INDICATOR . P* A11= RESERVED . P* A12= RESERVED . P* A13= RESERVED . P* . > P**********
0x2ad014…2ad1a8 Dummy {f00=0x00d7, f01=0x0190, f02=»100 YES . P ANKL A10,/FFFF-PTORD =9 / P CWR A5,A4 NEW LINE? / 2 P RF(G) UNO050 NO / N P CF A14,LINE CHECK WRAP / f PUNO050 EQU * / ( P SCR A2,A3 STORE CHAR. IN VDU BUFFER / P LC A1,LINFLG,A6 / P ORK A1,1 / P SC A1,LINFLG,A6 / P
0x2ad1a8…2ad33c Dummy {f00=0x00d7, f01=0x0190, f02=» A14,ORDTAB,A1 TAKE CARE OF ORDER / PUNO200 EQU * 0 * P RTN A14 0 > P EJECT 0 N B P************************************************************* 0 B P* * 0 B P* ORDTAB ORDER TABL
0x2ad33c…2ad4d0 Dummy {f00=0x00d7, f01=0x0190, f02=»********************************* 0 t PORDTAB EQU * 1 * P DATA INVAL INVALID CHAR. 1 > P DATA SF START FIELD 1 ` P DATA SBA SET BUFFER ADDRESS 1 | P DATA IC INSERT CURSOR 1 P DATA PT TAB. 1 P DATA RA REPEAT TO AADRESS 1 * P DATA EUA ERASE UN
0x2ad4d0…2ad664 Dummy {f00=0x00d7, f01=0x0190, f02=» DATA EM END MESSAGE 1 P DATA CR CARRIAGE RETURN 2 P EJECT 2 < @ P*********************************************************** 2 J @ P* * 2 @ P* SF START FIELD
0x2ad664…2ad7f8 Dummy {f00=0x00d7, f01=0x0190, f02=»***** 2 Z P* REGISTERS 3 P* 3 " P* A1= RETURN CODE 3 , P* A2= RESERVED 3 F P* A3= POINTER IN VDU BUFFER 3 P* A4= REL. CURSOR POS. 3 P* A5= RESERVED 3 P* A6= RESERVED 3 P* A8= RESERVED 3 P* A9= DC-BUFFER INDEX 3 P* A10= IND
0x2ad7f8…2ad98c Dummy {f00=0x00d7, f01=0x018e, f02=»**************************** 3 p PSF EQU * 4 $ & P LDK A1,IOSFAT INDICATE NEXT CALL 4 4 P ST A1,UNPMOD,A11 4 ^ P RF SF900 GET CHAR. 4 x ( PSF100 EQU * ENTRY LABEL FROM RETTAB 4 P LDK A1,IORDER NEXT ALBEL 4 P ST A1,UNPMOD,A11 4 P LC A2,CONAT
0x2ad98c…2adb20 Dummy {f00=0x00d7, f01=0x0190, f02=» P LC A1,LINFLG,A6 5 P ANK A1,2 LINE IN FIELD? 5 P RF(Z) SF600 NO 5 < . P CF A14,LINATT INDICATE ATTRIBUTE OVERRUN 5 T PSF600 EQU * 5 0 P ORKL A10,ATTREC INDICATE ATTRIBUTE RECEIVED 5 P SCR A2,A3 STORE CHAR. 5 P ADK A3,1 5 P ADK A4,1
0x2adb20…2adcb4 (3, 69) Dummy {f00=0x00d7, f01=0x0190, f02=»*********************************** 5 x @ P* * 6 , @ P* SBA SET BUFFER ADDRESS * 6 p @ P* * 6 @ P****************
0x2adcb4…2ade48 Dummy {f00=0x00d7, f01=0x018e, f02=»SERVED 6 P* A4= RESERVED 7 P* A5= RESERVED 7 $ P* A6= RESERVED 7 : P* A8= RESERVED 7 P P* A9= RESERVED 7 f P* A10= INDICATOR 7 | P* A11= CREDIT WORK AREA 7 P* A12= RESERVED 7 P* A13= RESERVED 7 P* 7 @ P**************************
0x2ade48…2adfdc Dummy {f00=0x00d7, f01=0x0190, f02=» P RF SBA900 FIRST BYTE 8 ( PSBA100 EQU * ENTRY LABEL FROM RETTAB 8 " P LC A7,CONATT,A2 CONVERT 8 N P ANK A7,/3F 8 n P SLL A7,6 8 P LDK A1,IOSBA2 8 P ST A1,UNPMOD,A11 8 P LDK A1,0 8 P RF SBA900 NEXT BYTE 8 ( PSBA200 EQU * ENTRY LAB
0x2adfdc…2ae170 Dummy {f00=0x00d7, f01=0x0190, f02=» 8 ~ " P CWK A7,LBVDU ILLEGAL ADDRESS? 9 P RF(NL) SBA800 YES 9 . P LDR A3,A7 9 H P LDR A4,A3 9 Z P ADKL A3,BVDU 9 l P ADR A3,A11 9 & P ORKL A10,PTORD INDICATE PT ORDER 9 * P CF A14,LINE CHECK WRAP AND LINE FLAGS 9 P LDK A1,0 REURN CODE 9
0x2ae170…2ae304 Dummy {f00=0x00d7, f01=0x0190, f02=» 9 P EJECT : > P********************************************************** : > P* * : X > P* IC INSERT CURSOR * : > P*
0x2ae304…2ae498 Dummy {f00=0x00d7, f01=0x0190, f02=» : ~ P* A2= RESERVED ; P* A3= RESERVED ; P* A4= REL. CURSOR POS. ; 4 P* A5= RESERVED ; R P* A6= RESERVED ; h P* A9= RESERVED ; ~ P* A10= INDICATOR ; P* A11= CREDIT WORK AREA ; P* A12= RESERVED ; P* A13= RESERVED ; P* ; 4 P**
0x2ae498…2ae62c Dummy {f00=0x00d7, f01=0x0190, f02=»RETURN CODE ; P RTN A14 < P EJECT < $ @ P*********************************************************** < 2 @ P* * < v @ P* PT PROGRAM TAB. * < @ P*
0x2ae62c…2ae7c0 Dummy {f00=0x00d7, f01=0x018e, f02=»RS < P* = P* A1= RETURN CODE = P* A2= CHAR. = . P* A3= ADDRESS IN VDU-BUFFER = B P* A4= REL. CURSOR POS. = f P* A5= RESERVED = P* A6= ATTRIBUTE CHAR. = P* A8= RESERVED = P* A9= RESERVED = P* A10= INDICATOR = P* A11= RESER
0x2ae7c0…2ae954 (3, 70) Dummy {f00=0x00d7, f01=0x0190, f02=» PPT EQU * > P LDR A1,A10 > . P ANK A1,PTORD FOLLOWING ORDER OR COMMAND? > ( P RF(NZ) PT300 YES > Z 0 P LDK A7,NULL FILL WITH NULLS TO END OF FIELD > t " P LDR A4,A4 AT POS. ZERO ? DK1 > $ P RF(Z) PT210 YES, PROCESS IT DK1 > PPT200 EQU * >
0x2ae954…2aeae8 Dummy {f00=0x00d7, f01=0x0190, f02=» A2,A3 > P ANK A2,/80 ATTRIBUTE? ? P RF(NZ) PT400 YES ? , P SCR A7,A3 STORE NULL CHAR. ? F P LC A1,LINFLG,A6 ? j P ORK A1,1 ? P SC A1,LINFLG,A6 ? P ADK A3,1 ? P ADK A4,1 ? P RB PT200 ? PPT300 EQU * DK1 ? " P LDR A4,A4 AT
0x2aeae8…2aec7c Dummy {f00=0x00d7, f01=0x0190, f02=»F BUFFER? ? P RF(Z) PT700 YES OS AND DOS @ PPT410 EQU * DK1 @ 6 P LCR A2,A3 GET CHAR. @ N P ANK A2,/80 ATTRIBUTE? @ j P RF(NZ) PT500 YES @ PPT420 EQU * DK1 @ P ADK A4,1 @ P ADK A3,1 @ P RB PT400 @ PPT500 EQU * @ & P LCR
0x2aec7c…2aee10 Dummy {f00=0x00d7, f01=0x0190, f02=»4,LINWRP CHECK WRAP @ PPT700 EQU * A P ORKL A10,PTORD A 0 PPT800 EQU * A H P LDK A1,0 RETURN CODE A P RTN A14 A z P EJECT A B P************************************************************* A B P*
0x2aee10…2aefa4 Dummy {f00=0x00d7, f01=0x0190, f02=» * A j B P************************************************************* B P* REGISTERS B f P* B z P* A1= RETURN CODE B P* A2= CHAR. TO BE REPEATED B P* A3= ADDRESS IN VDU-BUFFER B P* A4= REL. CURSOR POS. B P* A5=
0x2aefa4…2af138 Dummy {f00=0x00d7, f01=0x0190, f02=»1= CREDIT WORK AREA B P* A12= RESERVED C P* A13= RESERVED C 4 P* C L 6 P************************************************** C V PRA EQU * C P LDK A1,IORAA1 NEXT LABEL C P ST A1,UNPMOD,A11 C P LDK A1,0 C P RF RA900 FIRST BYTE C (
0x2af138…2af2cc Dummy {f00=0x00d7, f01=0x0190, f02=»LABEL C | P ST A1,UNPMOD,A11 D P LDK A1,0 D ( P RF RA900 SECOND BYTE D : ( PRA200 EQU * ENTRY LABEL FROM RETTAB D X P LC A2,CONATT,A2 D P ANK A2,/3F D P ORR A7,A2 D " P CWK A7,LBVDU INVALID ADDRESS D P RF(NL) RA800 YES D P LDK A
0x2af2cc…2af460 Dummy {f00=0x00d7, f01=0x018e, f02=» D l P LDK A1,IORDER E P ST A1,UNPMOD,A11 E PRA300 EQU * E 8 " P SCR A2,A3 STORE IN VDU-BUFFER E L P LC A1,LINFLG,A6 E r P ORK A1,1 E P SC A1,LINFLG,A6 E P ADK A3,1 E P ADK A4,1 E P CF A14,LINWRP CHECK WRAP =1 E P CWR A4,A7 A
0x2af460…2af5f4 (3, 71) Dummy {f00=0x00d8, f01=0x0190, f02=» E PRA800 EQU * F " P ORKL A10,THROWB THROW IT AWAY F P LDK A1,1 RETURN CODE F B PRA900 EQU * F ` P RTN A14 F t P EJECT F : P****************************************************** F : P* * F
0x2af5f4…2af788 Dummy {f00=0x00d8, f01=0x0190, f02=»************************************************ F P* REGISTERS G 8 P* G L P* A1= RETURN CODE G V P* A2= CHAR. G p P* A3= RESERVED G P* A4= RESERVED G P* A5= RESERVED G P* A6= RESERVED G P* A8= RESERVED G P* A9= RESERVED G P
0x2af788…2af91c Dummy {f00=0x00d8, f01=0x0190, f02=»********************************* G z PEUA EQU * H * P LDK A1,IOEUA1 NEXT LABEL H < P ST A1,UNPMOD,A11 H ^ P LDK A1,0 H x P RF EUA900 FIRST BYTE H ( PEUA100 EQU * ENTRY LABEL FROM RETTAB H P LC A7,CONATT,A2 CONVERT H P ANK A7,/3F H P
0x2af91c…2afab0 Dummy {f00=0x00d8, f01=0x0190, f02=» * ENTRY LABEL FROM RETTAB H P LC A2,CONATT,A2 I " P ANK A2,/3F I : P ORR A7,A2 I N P LDK A1,IORDER NEXT LABEL I ` P ST A1,UNPMOD,A11 I P LDR A1,A7 RESTORE ADDR. =6 I " P CWK A1,LBVDU INVALID ADDRESS? I P RF(NL) EUA800 YES I P LDR A2,
0x2afab0…2afc44 Dummy {f00=0x00d8, f01=0x0190, f02=»SAVE DCBF-POINTER =5 I ( P SUKL A14,2 ADJUST STACK POINTER =5 J * P CF A14,ERASUA ERASE UNPRO. TO ADDRESS J H ( P ADKL A14,2 ADJUST STACK POINTER =5 J v ( P LDR* A8,A14 RESTORE DCBF-POINTER =5 J P LDK A1,0 RETURN CODE J & P ORKL A10,PTORD INDICATE PT
0x2afc44…2afdd8 Dummy {f00=0x00d8, f01=0x018e, f02=» A14 J P EJECT K < P******************************************************** K < P* * K Z < P* CHAR. < /20 BUT NOT ORDER * K < P*
0x2afdd8…2aff6c Dummy {f00=0x00d8, f01=0x0190, f02=» P* A2= CHAR. L P* A3= ADDRESS IN VDU-BUFFER L P* A4= REL. CURSOR POS. L < P* A5= RESERVED L Z $ P* A6= INTERNAL LINE FLAG ADDRESS L p P* A8= RESERVED L P* A9= RESERVED L P* A10= INDICATOR L P* A11= CREDIT WORK AREA L P* A12= RESER
0x2aff6c…2b0100 Dummy {f00=0x00d8, f01=0x0190, f02=» INDICATE COMMAND L P LDK A1,1 STOP ORDER PROCESS M P RF CHARET M > PINVAL EQU * M P " P ORKL A10,/9800 END UNPACKING M d P LDK A1,1 M P RF CHARET M PNULCHA EQU * M PNL EQU * M PFF EQU * M PEM EQU * M PCR EQU * M P CF A1
0x2b0100…2b0294 (3, 72) Dummy {f00=0x00d8, f01=0x0190, f02=»FFF-PTORD =9 M P ADK A3,1 N P ADK A4,1 N ( P LDK A1,0 CONTINUE N : PCHARET EQU * N T P RTN A14 N h P EJECT N x D P**************************************************************** N D P*
0x2b0294…2b0428 Dummy {f00=0x00d8, f01=0x0190, f02=» * N ^ D P**************************************************************** O P* REGISTERS O ^ P* O r P* A2= CHAR O | P* A3= ADDRESS IN VDU-BUFFER O P* A4= REL. CURSOR POS. O P* A5= RESERVED O P* A6= RESERVED O P* A8= ADDRES
0x2b0428…2b05bc Dummy {f00=0x00d8, f01=0x0190, f02=» P* P D P*************************************************************** P PPACKSY EQU * P V P IFT SNA=1 P j P LDKL A9,0 COUNTER P | $ P LD A3,CURPOS,A11 GET START POS. P & P CWK A3,/800 ANY CHAR. ON DISPLAY? P P RF(E) PASY40 NO P * P CF A14,
0x2b05bc…2b0750 Dummy {f00=0x00d8, f01=0x0190, f02=»DKL A1,LBVDU-1 LAST POS. ON SCREEN P P SUR A1,A3 GET LENGTH AGAIN Q * PPASY10 EQU * Q N P CWK A1,256 ILLEGAL LENGTH? Q b P RF(NG) PASY20 NO Q P LDKL A1,256 ADJUST LENGTH Q PPASY20 EQU * Q P ADKL A3,BVDU Q P ADR A3,A11 Q PPASY30 E
0x2b0750…2b08e4 Dummy {f00=0x00d8, f01=0x0190, f02=»2,NULL NULL CHAR.? Q " P RB(E) PASY30 YES, DON'T STORE R * P CF A14,PDCCH STORE CHAR. IN DC BUFFER R @ P RB PASY30 R n PPASY40 EQU * R $ P LDK A1,0 INDICATE LAST IN CHAIN R P CF A14,DCWRIT SEND BUFFER R & P LDR A8,A12 GET BUFFER TO RELEASE R " P
0x2b08e4…2b0a78 Dummy {f00=0x00d8, f01=0x0190, f02=»***** R X B P* * S B P* UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * S T B P* * S B P****************************************
0x2b0a78…2b0c0c Dummy {f00=0x00d8, f01=0x0190, f02=»S. S | P* A5= LAST IN ROW REL POS T $ P* A6= INTERNAL LINE FLAG ADDRESS T , P* A8= ADDRESS IN DC-BUFFER T T P* A9= INDEX IN DC-BUFFER T v P* A10= INDICATOR T P* A11= CREDIT WORK AREA T P* A12= RESERVED T P* A13= RESERVED T P* T B P
0x2b0c0c…2b0da0 Dummy {f00=0x00d8, f01=0x0190, f02=» A1,3 T P ST A1,KBINH,A11 U P CF A14,LMP4ON U & * P CF A14,SCRINF GET SCREEN INFORMATION U < P LDR A3,A4 CURSOR ADDRESS U j P ADKL A3,BVDU U " P ADR A3,A11 VDU BUFFER ADDRESS U , P LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS U " P SUR A9,A9 INDEX
0x2b0da0…2b0f34 (3, 73) Dummy {f00=0x00d8, f01=0x0190, f02=»CCH GET CHAR. IN DC BUFFER U P LDR A1,A1 ANYTHING LEFT? V $ P RF(NZ) UNPS60 NO V F P CWK A2,/31 BIND? V ` P RF(E) UNPS50 YES,PERHAPS V z PUNPS07 EQU * V P CWK A2,/20 ORDER? V P RF(NL) UNPS40 NO V P CWK A2,/0A NEW LINE? V P RF(NE
0x2b0f34…2b10c8 Dummy {f00=0x00d8, f01=0x0190, f02=» NO V P LDK A2,/2A REPLACE WITH * W P RF UNPS40 W . PUNPS20 EQU * W @ P CWK A2,/1E IRS? W T P RF(NE) UNPS30 NO W l P LDK A2,/3B REPLACE WITH ; W P RF UNPS40 W PUNPS30 EQU * W P CWK A2,NULL NULL? W P RF(NE) UNPS40 NO W " P LDK A
0x2b10c8…2b125c Dummy {f00=0x00d8, f01=0x0190, f02=»G,A6 W P ORK A1,1 X P SC A1,LINFLG,A6 X P ADK A3,1 X 6 P ADK A4,1 X H P RB UNPS05 X Z PUNPS50 EQU * X l P CF A14,GDCCH X P ANK A2,/FE SHURE OF BIND? X P RF(Z) UNPS55 ALMOST X P SUKL A8,2 X P SUKL A9,2 X P CF A14,GDCCH X
0x2b125c…2b13f0 Dummy {f00=0x00d8, f01=0x0190, f02=»NAMOD,A11 X P LDKL A10,1 NO DISPLAY Y P RF UNPS70 Y 0 PUNPS60 EQU * Y B P LDKL A5,LBVDU+1 Y V P LDK A6,0 Y n . P CF A14,STOINF SAVE NEW SCREEN INFORMATION Y P LDKL A10,0 Y PUNPS70 EQU * Y , P LD A8,BUFPNT,A11 GET BUFFER TO RELEASE Y "
0x2b13f0…2b1584 Dummy {f00=0x00d8, f01=0x0190, f02=»****** Y Z @ P* * Z 4 P* GETNXT GET AND CHECK NEXT BUFFER Z R @ P* * Z @ P**********************************************************
0x2b1584…2b1718 Dummy {f00=0x00d8, f01=0x0190, f02=»ESERVED Z P* [ @ P************************************************************ [ PGETNXT EQU * [ ^ P IFT SNA=1 [ r * P CF A14,SAVE2 SAVE UNPACK INFORMATION [ , P LD A8,BUFPNT,A11 GET BUFFER TO RELEASE [ " P CF A14,RELBUF RELEASE BUFFER [ P
0x2b1718…2b18ac Dummy {f00=0x00d8, f01=0x018e, f02=»IFIED FIELDS [ v P XIF P IFT SNA=1 PGETC10 EQU * 2 P CF A14,WAIT SYNCHRONIZE F " P LD A2,ECBEL,A8 SAVE LENGTH =4 f P ST A2,DCLENG,A11 . =4 P LDR A9,A1 P CF A14,REST2 P LDR A1,A9 GET RETURN CODE ( P SRC A1,1 FIRST OR M
0x2b18ac…2b1a40 Dummy {f00=0x00d8, f01=0x0190, f02=» P RF(Z) GETC60 NO ] P LC A1,TCT01,A11 ] " P CCK A1,VDUCOD PRINTER UNPACK? ] 4 P RF(NE) GETC20 YES ] Z 0 P CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE ] t PGETC20 EQU * ] ( P XRKL A10,LICREC RESET LAST IN CHAIN ] P ORKL A10,NEWCH NEW CHAIN ]
0x2b1a40…2b1bd4 (3, 74) Dummy {f00=0x00d8, f01=0x0190, f02=»A10 GET INTERNAL STATUS ] , P ORKL A10,LICREC LAST IN CHAIN RECEIVED ^ , P ANKL A1,LICREC LAST IN CHAIN RECEIVED? ^ P P RF(Z) GETC60 NO ^ 0 P CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE ^ P ORKL A10,NEWCH NEW CHAIN ^ PGETC60 EQU * ^ * P ST A1
0x2b1bd4…2b1d68 Dummy {f00=0x00d8, f01=0x0190, f02=»UFFER ADDRESS ^ $ P CF A14,READNW READ WITH NO WAIT _ , P CF A14,REST2 RESTORE UNPACK INFORMATION _ > P LDR A1,A10 _ n P ANKL A1,NEWCH NEW CHAIN? _ P RF(Z) GETC80 NO _ P IFT DISHOW=1 _ P XRKL A10,NEWCH RESET _ P LC A1,TCT01,A11 _ P
0x2b1d68…2b1efc Dummy {f00=0x00d8, f01=0x0190, f02=» PGETC70 EQU * ` P LDK A1,ICOMN1 NEXT LABEL ` P ST A1,UNPMOD,A11 ` : PGETC80 EQU * ` T P LD A8,BUFPNT,A11 ` h P SUR A9,A9 ` P LDK A1,0 RETUR N CODE ` PGETC90 EQU * ` P XIF ` P RTN A14 ` P EJECT ` B P************************
0x2b1efc…2b2090 Dummy {f00=0x00d8, f01=0x018e, f02=» PUT CHAR. IN DC BUFFER * ` | B P* * a 2 B P************************************************************* a x P* REGISTERS a P* a P* A1= RETURN CODE a P* A11= CREDIT WORK
0x2b2090…2b2224 Dummy {f00=0x00d8, f01=0x0190, f02=» a P PPUTCHA EQU * b P LDR A1,A1 SBA TO STORE? b P RF(N) PUTC10 YES b < $ P CWK A9,BUFFL+BUFFL BUFFER FULL? b V P RF(NL) PUTC20 YES b ~ P RF PUTC30 b PPUTC10 EQU * b P LDKL A1,BUFFL+BUFFL-3 b ( P SUR A1,A9 ROOM FOR SBA AND ADDRESS? b P
0x2b2224…2b23b8 Dummy {f00=0x00d8, f01=0x0190, f02=»IN CHAIN b t " P CF A14,DCWRIT WRITE DC BUFFER c P LDR A9,A1 c 6 P CF A14,REST2 c H P LDR A9,A9 TRANSMISSION OK? c ^ P RF(NZ) PUTC90 NO c P SUR A9,A9 BUFFER INDEX c P LDR A8,A12 BUFFER ADDRESS c P XIF c P IFF SNA=1 c P CF A14,ERRO
0x2b23b8…2b254c Dummy {f00=0x00d8, f01=0x0190, f02=»IN DC BUFFER c x P LDK A1,0 RETURN CODE d PPUTC90 EQU * d 2 P RTN A14 d F P EJECT d V 6 P************************************************** d d 6 P* * d 6 P* PDCCH PUT CHAR. IN DC BUFFER
0x2b254c…2b26e0 Dummy {f00=0x00d8, f01=0x0190, f02=»RS d P* e P* A2= CHAR. e P* A3= RESERVED e ( P* A4= RESERVED e > P* A5= RESERVED e T P* A6= RESERVED e j P* A8= ADDRESS IN DC-BUFFER e P* A9= DC-BUFFER INDEX e P* A10= INDICATOR e P* A11= RESERVED e P* A12= RESERVED e P
0x2b26e0…2b2874 (3, 75) Dummy {f00=0x00d9, f01=0x0190, f02=»ERFLOW? e z P RF(NL) PDC100 YES f P ANK A2,/FF f * P IFT EBCDIC=1 f > * P* CONVERSION DELETED * DK 82-03-30 * f T P XIF f " P SCR A2,A8 STORE IN DC-BUFFER f P ADKL A8,1 f P ADKL A9,1 f PPDC100 EQU * f P RTN A14 f P EJECT f D
0x2b2874…2b2a08 Dummy {f00=0x00d9, f01=0x0190, f02=»* f R D P* GDCCH GET CHAR. IN DC BUFFER * g D P* * g R D P*************************************************************** g P* REGISTERS g P* g P* A1= RE
0x2b2a08…2b2b9c Dummy {f00=0x00d9, f01=0x018e, f02=» P* A8= ADDRESS IN DC-BUFFER h P* A9= DC-BUFFER INDEX h & P* A10= INDICATOR h D P* A11= CREDIT WORK AREA h P* A12= RESERVED h | P* A13= RESERVED h P* h 8 P**************************************************** h PGDCCH EQU * h P L
0x2b2b9c…2b2d30 Dummy {f00=0x00d9, f01=0x0190, f02=» h z P ANK A2,/FF i P IFT EBCDIC=1 i 4 P* EBCDIC-ASCII CONVERSION DELETED PR. 8625,DK* i 2 P XIF i j P ADKL A8,1 i v P ADKL A9,1 i PGDCC90 EQU * i P RTN A14 i P EJECT i @ P***********************************************************
0x2b2d30…2b2ec4 Dummy {f00=0x00d9, f01=0x0190, f02=» i T @ P* * j @ P*********************************************************** j L P* REGISTERS j P* j P* A2= AID j P* A11= RESERVED j P* A13= RESERVED j P* j > P**************
0x2b2ec4…2b3058 Dummy {f00=0x00d9, f01=0x0190, f02=»****************************************************** j > P* * k > > P* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER * k > P* * k > P****
0x2b3058…2b31ec Dummy {f00=0x00d9, f01=0x0190, f02=»A4= RESERVED k P* A5= RESERVED l P* A6= RESERVED l * P* A8= RESERVED l @ P* A9= RESERVED l V P* A10= RESERVED l l P* A11= RESERVED l P* A12= RESERVED l P* A13= RESERVED l P* l > P**************************************************
0x2b31ec…2b3380 Dummy {f00=0x00d9, f01=0x0190, f02=»CII l r $ P CF A14,PDCCH STORE IN DC-BUFFER m P LDR A2,A1 GET REL. POS. m 4 P ANK A2,/3F m T & P LC A2,CONADR,A2 CONVERT TO ASCII m h $ P CF A14,PDCCH STORE IN DC-BUFFER m P RTN A14 m P EJECT m @ P************************************************
0x2b3380…2b3514 (3, 76) Dummy {f00=0x00d9, f01=0x0190, f02=»IBUTES * m ` @ P* * n @ P************************************************************ n X P* REGISTERS n P* n P* A2= CHAR. n P* A3= ADDRESS IN VDU-BUFFER n P* A4= RESERVED n P
0x2b3514…2b36a8 Dummy {f00=0x00d9, f01=0x0190, f02=» n x P* A12= RESERVED o P* A13= RESERVED o P* o 8 B P************************************************************* o B PRESMDT EQU * o P LDK A1,0 FIRST SCREEN POS. o P LDKL A3,BVDU o P ADR A3,A11 o PRESM10 EQU * o P CWK A1,LB
0x2b36a8…2b383c Dummy {f00=0x00d9, f01=0x0190, f02=»NK A2,/FE RESET MDT-BIT o P SCR A2,A3 RESTORE p PRESM20 EQU * p : P ADK A1,1 p N P ADK A3,1 p ` P RB RESM10 p r PRESM90 EQU * p P RTN A14 p P EJECT p < P******************************************************** p < P*
0x2b383c…2b39d0 Dummy {f00=0x00d9, f01=0x0190, f02=» * p l < P******************************************************** q P* REGISTERS q P* q p P* A2= CHAR. q z P* A3= RESERVED q P* A4= RESERVED q P* A5= RESERVED q P* A6= RESERVED q P* A8= RESERVED q P* A9= RESERV
0x2b39d0…2b3b64 Dummy {f00=0x00d9, f01=0x0190, f02=»*************************************** q PP1WCC EQU * r 0 P LC A2,CONATT,A2 IN EBCDIC r D P ST A2,WCC,A11 SAVE r f P ANK A2,1 RESET MDT-BITS? r P RF(Z) P1W900 NO r & P CF A14,RESMDT RESET ALL MDT-BITS r PP1W900 EQU * r P RTN A14 r
0x2b3b64…2b3cf8 Dummy {f00=0x00d9, f01=0x0190, f02=» * r Z > P* P2WCC TAKE CARE OF WCC AFTER UPDATE * s > P* * s N > P********************************************************* s P* REGISTERS s P* s P* A11= CREDIT WORK AREA
0x2b3cf8…2b3e8c Dummy {f00=0x00d9, f01=0x0190, f02=»C EQU * s " P CF A14,SAVE2 KEEP IT AWAY =4 t P LD A1,WCC,A11 t 6 P LDR A7,A1 t L P ANK A7,4 SOUND? t ^ P RF(Z) P2W100 NO t v P CF A14,SOUND SOUND t PP2W100 EQU * t P ANK A1,8 COPY? t P RF(Z) P2W300 NO t P LC A1,TCT01,A11 . =4 t
0x2b3e8c…2b4020 Dummy {f00=0x00d9, f01=0x0190, f02=»4 t P CF A14,COPP PRINT #8 u PP2W300 EQU * u ( " P CF A14,REST2 TAKE IT BACK =4 u < P RTN A14 u b P EJECT u r F P****************************************************************** u F P*
0x2b4020…2b41b4 (3, 77) Dummy {f00=0x00d9, f01=0x0190, f02=» * u ^ F P****************************************************************** v P* REGISTERS v b P* v v P* A1= STACK POINTER v P* A2= CHAR. v P* A3= VDU BUFFER ADDRESS v P* A4= REL CURSOR POS. v P* A5= REL STTRIBUTE POS. v
0x2b41b4…2b4348 Dummy {f00=0x00d9, f01=0x0190, f02=»ERVED v P* w D P**************************************************************** w PSAVE1 EQU * w ` & P LDKL A1,STACK1 GET STACK ADDRESS w t P RF SAVE w PSAVE2 EQU * w P LDKL A1,STACK2 w PSAVE EQU * w P ADR A1,A11 w P STR A2,
0x2b4348…2b44dc Dummy {f00=0x00d9, f01=0x0190, f02=» STR A6,A1 w P ADK A1,2 x P STR A7,A1 x $ P ADK A1,2 x 6 P STR A10,A1 x H P RTN A14 x P EJECT x l H P******************************************************************* x z H P*
0x2b44dc…2b4670 Dummy {f00=0x00d9, f01=0x0190, f02=» * x ^ H P******************************************************************* y P* REGISTERS y f P* y z P* A1= STACK POINTER y P* A2= CHAR. y P* A3= VDU BUFFER ADDRESS y P* A4= REL. CURSOR POS. y P* A5= REL. ATTRIBUTE P
0x2b4670…2b4804 Dummy {f00=0x00d9, f01=0x018e, f02=» RESERVED y P* A13= RESERVED z P* z * D P*************************************************************** z 4 PREST1 EQU * z | & P LDKL A1,STACK1 GET STACK ADDRESS z P RF RESTOR z PREST2 EQU * z P LDKL A1,STACK2 z PRESTOR EQU * z
0x2b4804…2b4998 Dummy {f00=0x00d9, f01=0x0190, f02=» P LDR* A5,A1 { P ADK A1,2 { P LDR* A6,A1 { * P ADK A1,2 { > P LDR* A7,A1 { P P ADK A1,2 { d P LDR* A10,A1 { v P RTN A14 { P EJECT { < P******************************************************* { < P*
0x2b4998…2b4b2c Dummy {f00=0x00d9, f01=0x018e, f02=» * { h < P******************************************************* | PBUFFER EQU * | X P DATA *+2 POINTER FIRST FREE | l P IFF BUFFNR=1 | P DATA *+LINK | P RES BUFFL | P IFF BUFFNR=2 | P DATA *+LINK | P RES BUFFL | P
0x2b4b2c…2b4cc0 Dummy {f00=0x00d9, f01=0x018e, f02=» | P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=6 } . P DATA *+LINK } D P RES BUFFL } X P IFF BUFFNR=7 } j P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=8 } P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=9 } P DATA *+LINK }
0x2b4cc0…2b4e54 (3, 78) Dummy {f00=0x00d9, f01=0x0190, f02=» } P IFF BUFFNR=12 ~ P DATA *+LINK ~ P RES BUFFL ~ 2 P IFF BUFFNR=13 ~ D P DATA *+LINK ~ Z P RES BUFFL ~ n P IFF BUFFNR=14 ~ P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=15 ~ P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=16 ~
0x2b4e54…2b4fe8 Dummy {f00=0x00d9, f01=0x0190, f02=»NK ~ P RES BUFFL P IFF BUFFNR=19 P DATA *+LINK 2 P RES BUFFL F P IFF BUFFNR=20 X P DATA *+LINK n P RES BUFFL P IFF BUFFNR=21 P DATA *+LINK P RES BUFFL P IFF BUFFNR=22 P DATA *+LINK P RES BUFFL
0x2b4fe8…2b517c Dummy {f00=0x00d9, f01=0x0190, f02=»25 P DATA *+LINK P RES BUFFL P IFF BUFFNR=26 0 P DATA *+LINK F P RES BUFFL Z P IFF BUFFNR=27 l P DATA *+LINK P RES BUFFL P IFF BUFFNR=28 P DATA *+LINK P RES BUFFL P IFF BUFFNR=29 P DATA *+LINK
0x2b517c…2b5310 Dummy {f00=0x00d9, f01=0x0190, f02=» P IFF BUFFNR=32 P DATA *+LINK P RES BUFFL 2 P XIF D P DATA 0 P P RES BUFFL ` P EJECT r < P******************************************************* < P* * < P*
0x2b5310…2b54a4 Dummy {f00=0x00d9, f01=0x0190, f02=»*************************************** P* REGISTERS 0 P* D P* A8= DC-BUFFER ADDRESS N P* A9= INDEX IN DC-BUFFER n P* A11= RESERVED P* A12= BUFFER ADDRESS P* A13= RESERVED P* < P**********************************
0x2b54a4…2b5638 Dummy {f00=0x00d9, f01=0x0190, f02=»FREE z P LKM P DATA 0 SWITCH TASK P RB GETB10 4 PGETB90 EQU * F P LDR* A1,A8 Z P STR A1,A7 n P ADKL A8,2 P LDR A12,A8 P SUR A9,A9 P RTN A14 P EJECT > P**************************************************
0x2b5638…2b57cc Dummy {f00=0x00d9, f01=0x018e, f02=» * Z > P* * > P********************************************************* N P* REGISTERS P* P* A8= BUFFER ADDRESS P* A11= RESERVED P* A13= RESERVED P* > P****
0x2b57cc…2b5960 Dummy {f00=0x00d9, f01=0x40c4, f02=» PRELB10 EQU * P LDR* A1,A7 P RF(Z) RELB90 , P LDR A7,A1 B P RB RELB10 T PRELB90 EQU * f P STR A8,A7 z P CMR A8 P RTN A14 P P END @ P* A11= RESERVED P* A13= RESERVED P* > P****
0x2b5960…2b5af4 (3, 79) Dummy {f00=0x00da, f01=0x2008, f02=»
0x2b5af4…2b5c88 Dummy {f00=0x00da, f01=0x0190, f02=» _. rY ( !TTX @ @ @ ! P @ 8 8 8 3 U ( . !TTT (_ !CCP R rY W V P0 A A @ @ < @ _2 v ]X @ 8 8 8 4 D P$ @ # P
0x2b5c88…2b5e1c Dummy {f00=0x00da, f01=0x0190, f02=» F !SST WN !AAT WB !VVT W6 !PPT W* !LLT dW !RRT lW !QQP ( , A A A @ 0 PV @ P P 0 _ P H (&? @ #? H & D # * H D > R @ D @ @ ) I ( D #@PV D L Tp D 0
0x2b5e1c…2b5fb0 Dummy {f00=0x00da, f01=0x0190, f02=»% PD H I H T P( H U @ ~U A ~ < + + P @ : ` P: @ @ @ D (P W H $ I 0 % E , a : @ Q A % @ B A A A A F @ @ P A @ E A
0x2b5fb0…2b6144 Dummy {f00=0x00da, f01=0x0190, f02=» ( ( QZ RT D (%? # ;H ;D &`>e : Q* R$ D (%? # ;H ;D &`>e : ( ( ( P< r A V R A @ _ S : 0 N N !TTP 9H N A V A & N 9H N A
0x2b6144…2b62d8 Dummy {f00=0x00da, f01=0x0190, f02=» P @ # _R @ 0=H A B PT N !DDPJ !SSP" A " B P, N !SST" V A $ P Y (9A *_ : @ " 9a @ $ 3 V ( : @ 9 @ 9 9@ @ " :HP @ U W 9 9@
0x2b62d8…2b646c Dummy {f00=0x00da, f01=0x0190, f02=» ! : ( N PD ! P8 !==P( !NNP2 !SSP, U ( - _> _H : P AAT : N =H N : N =H N : &=H F : F =H F : ? ? f > > : P N =H N T V (_ : @ ! P (W ( : @
0x2b646c…2b6600 Dummy {f00=0x00da, f01=0x0190, f02=» * PF J # P _ :d Y @ Z A P T _: @ 2T P _ / : .P W P A .X @ P T :D * J TT J & P T .& >aW T (& P T &@P @ 9 A
0x2b6600…2b6794 (3, 80) Opaque[0x194]
0x2b6794…2b6928 # DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b48, f03=0x0000}
0x2b6794…2b6928 IdxSect {
0x2b6794…2b6928 f00 = 0x00da // 0x2b6794 @0x0
0x2b6794…2b6928 f01 = 0x001a // 0x2b6796 @0x2
0x2b6794…2b6928 gno = [ // 0x2b6798 @0x4
0x2b6794…2b6928 [0x00]: C0x00da.0x1.0
0x2b6794…2b6928 [0x01]: C0x00da.0x2.0
0x2b6794…2b6928 [0x02]: C0x00da.0x3.0
0x2b6794…2b6928 [0x03]: C0x00db.0x0.0
0x2b6794…2b6928 [0x04]: C0x00db.0x1.0
0x2b6794…2b6928 [0x05]: C0x00db.0x2.0
0x2b6794…2b6928 [0x06]: C0x00db.0x3.0
0x2b6794…2b6928 [0x07]: C0x00dc.0x0.0
0x2b6794…2b6928 [0x08]: C0x00dc.0x1.0
0x2b6794…2b6928 [0x09]: C0x00dc.0x2.0
0x2b6794…2b6928 [0x0a]: C0x00dc.0x3.0
0x2b6794…2b6928 [0x0b]: C0x00dd.0x0.0
0x2b6794…2b6928 [0x0c]: C0x00dd.0x1.0
0x2b6794…2b6928 ]
0x2b6794…2b6928 }
0x2b6928…2b6abc Dummy {f00=0x00da, f01=0x0190, f02=» 2 P IDENT PRINT REL 11.1 82-07-16 DK 870150541110 P : P =DK38,LF ON END MESS. B $ P =37 DUP OR FM CHAR ON PRINTER b P =36 IMPROVEMENT OF =24 P 82-06-28 P =35 IMPROVEMENT OF =24 0 P =32 MISSING PRINTING AFTER PRINTER
0x2b6abc…2b6c50 Dummy {f00=0x00da, f01=0x0190, f02=»BORT r P =26 LONG SNA CH STRING " P =25 LEFT MARGIN FOR PRINTER . P 82-05-12 T " P =24 BASIC WRITE ON PRINTER h P 82-04-28 P =23 PRINTER RETURN CODE $ P =19 ERRONEOUS PRINTER STATUS P =18 DOUBLE SETTIM ENTRIES
0x2b6c50…2b6de4 Dummy {f00=0x00da, f01=0x0190, f02=»EFORE CONNECT | P =6 SET PRINTER STATUS " P =5 DIFFERENT FF CH FOR GP74 6 P 82-01-26 P =4 NATIONAL CHAR p P 81-11-20 P =3 SPACE SUPRESSION P 81-05-12 P =2 NEW LABEL P 81-04-08 P =1, EOC
0x2b6de4…2b6f78 Dummy {f00=0x00da, f01=0x0190, f02=» * ~ H P* MODULE PRINT : : H P* MODULE HANDLING THE PRINTOUTS BOTH FROM * H P* DISPLAY AND MAIN-FRAME
0x2b6f78…2b710c Dummy {f00=0x00da, f01=0x0190, f02=» * j H P******************************************************************* & P EJECT r < P******************************************************** P* P* LIST OF ROUTINES P* $ P* PRINT
0x2b710c…2b72a0 Dummy {f00=0x00da, f01=0x0190, f02=»CPINP DC PRINTER INPUT ( P* ICPINP INTERTASK INPUT " & P* ICPRED INTERTASK READ N ( P* ICPWRT INTERTASK WRITE x ( P* ICABOR INTERTASK ABORT 6 P* COPP COPY SCREEN BUFFER TO PRINTER $
0x2b72a0…2b7434 (3, 81) Dummy {f00=0x00da, f01=0x0190, f02=» FFVAL FORM FEED ( P* CR CARRIAGE RETURN $ P* EM END MESSAGE H . P* INVAL INVALID PRINTER ORDER p , P* FFCHK CHECK IF FF IS VALID " P* PRLINE PRINT LINE $ P* INIT
0x2b7434…2b75c8 Dummy {f00=0x00da, f01=0x0190, f02=»******************************************* P EJECT 4 H P******************************************************************* B H P* * H P* ENTRY POINTS
0x2b75c8…2b775c Dummy {f00=0x00da, f01=0x018e, f02=»************************************* r P . 8 P ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT) 6 0 P ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2 r P H P******************************************************************* H P*
0x2b775c…2b78f0 Dummy {f00=0x00da, f01=0x0190, f02=» H P* * H P******************************************************************* P P 2 P EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA) 2 P EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9
0x2b78f0…2b7a84 Dummy {f00=0x00da, f01=0x0190, f02=»M SET REQUEST TIMER (DCBSC) =18 , P EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS ( & P EXTRN TSTMES TEST MESSAGE (DCSNA) X ( P EXTRN READW READ WITH WAIT (DCSNA) , P EXTRN READNW READ WITH NO WAIT (DCSNA) " P EXTRN GETBUF GET BUFFER (PAD) & P EXT
0x2b7a84…2b7c18 Dummy {f00=0x00da, f01=0x0190, f02=»ET SET INTERTASK TIMEOUT (KEYB) ( P EXTRN ICWRT INTERTASK WRITE (KEYB) ( ( P EXTRN ICREAD INTERTASK READ (KEYB) T $ P EXTRN SETSTA SET STATUS (DCBSC) * P EXTRN CONNAT TRANSFORM OF NAT CHAR =4 , P EXTRN RFMDUP REPLACE FM OR DUP CHAR =37 P E
0x2b7c18…2b7dac Dummy {f00=0x00da, f01=0x0190, f02=» * D P* CONDITIONAL ASSEMBLY * D P* * D P*************************************************************** P PX:A EQU 0 SNA HANDLI
0x2b7dac…2b7f40 Dummy {f00=0x00da, f01=0x0190, f02=» EQU X:O , PX:R EQU 0 TRANSFORM OF NAT.CHAR IF:=1 =4 PTRANAT EQU X:R . =4 @ P* , PBASWRI EQU 1 BASIC WRITE ON PRINTER =24 f 0 PSCS EQU 0 SIMPLE SNA CH STRING HANDLING =26 , PLMARG EQU 0 LEFT MARGIN FOR PRINTER =25 P EJECT H P
0x2b7f40…2b80d4 (3, 82) Dummy {f00=0x00da, f01=0x0190, f02=» * T & P* DECLARATIONS OF DATA AND EQUATES H P* * : H P******************************************************************* P P* P* TABLE OF PRINTER TYPES P*
0x2b80d4…2b8268 Dummy {f00=0x00da, f01=0x018e, f02=»,4 GP 74 P DATA 'CC',6 COPY 80 P* , . P* DEFAULT VALUES FOR DIFF. PRINTERS 6 " P* BYTE1= NUMBER OF LINES/PAGE h " P* BYTE2= NUMBER OF CHAR./LINE P* PPRTLEN DATA /2382 GTP P DATA /2382 LP P DATA /2382 GP 74
0x2b8268…2b83fc Dummy {f00=0x00da, f01=0x0190, f02=» P DATA 0 LP =25 P DATA 3 GP74 =25 P DATA 0 COPY80 =25 2 P XIF . =25 L P* =24 ` P IFF BASWRI=1 . =36 p , PPRBFL EQU 132 PRINTER BUFFER LENGTH =24 P =BUFL-2 (IN DATXXX) =24 P XIF . =36 P IFT BASWRI=1 . =36
0x2b83fc…2b8590 Dummy {f00=0x00da, f01=0x0190, f02=»FROM WCC z P* 4 PLINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE P* R & P* EQUATES FOR ECB HANDLING P* PECBBA EQU 2 BUFFER ADDRESS PECBRL EQU 4 REQUESTED LENGTH PECBEL EQU 6 EFFECTIVE LENGTH PECBRC EQU 8 RE
0x2b8590…2b8724 Dummy {f00=0x00da, f01=0x0190, f02=» 2 SHARED MODE P* P* PRINTER STATUS IN PRTMOD P* B " PPRTERR EQU /4000 PRINTER ERROR L P* r " P* COPY INTERNAL STATUS IN A10 | P* $ PNXTCHA EQU /8000 GET NEXT CHAR. " PENDPRT EQU /4000 END PRINTING $ PNTONLY EQU /20
0x2b8724…2b88b8 Dummy {f00=0x00da, f01=0x018e, f02=»D(EM) DK38 n P* ( P* RELATIVE POS. IN ECB-BLOCK P* H PIC EQU 2 INTERTASK R P* l P* SCREEN SIZE v P* PLBVDU EQU 1920 P* P* RECEIVE STATUS P* PLICREC EQU /2000 . =1 P EJECT P*
0x2b88b8…2b8a4c Dummy {f00=0x00da, f01=0x0190, f02=» " PLINCNT EQU WCC+4 LINE COUNTER 2 PDCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER * & PPRTID EQU DCLENG+6 PRINTER TASKID ` $ PPRTTYP EQU PRTID+2 PRINTER TYPE " PMAIN EQU PRTTYP+4 WHAT DC LINE PECBBLK EQU MAIN+6 ECB BLOCK ( PBUFPNT EQU E
0x2b8a4c…2b8be0 Dummy {f00=0x00da, f01=0x0190, f02=»ECB t * PECBICR EQU ECBPRT+6 INTERTASK READ ECB , PECBICW EQU ECBICR+2 INTERTASK WRITE ECB : PECBDC EQU ECBICW+2 ECB DC j " PECBDC1 EQU ECBDC ECB DC LINE 1 & PECBDC2 EQU ECBDC1+2 ECB DC LINE 2 P IFF SNA=1 . =24 . PPRCCCT EQU ECBDC2+2
0x2b8be0…2b8d74 (3, 83) Dummy {f00=0x00db, f01=0x0190, f02=» 0 PPRBA EQU PRCCCT+2 PRINTER BUFFER ADDRESS =24 4 PPRLMAR EQU PRBA+2 NO. OF POS IN LEFT MARGIN =25 < P* t P* RELATIVE ADDRESSES IN ~ P* COMMON WORKBLOCK P* P IFF TEST=1 " PTSKTAB EQU 26 DEVICE TABLE =17 P XIF P
0x2b8d74…2b8f08 Dummy {f00=0x00db, f01=0x0190, f02=»***** R H P* * H P* PRINT MAIN ROUTINE PRINTER * Z H P* * H P**********************
0x2b8f08…2b909c Dummy {f00=0x00db, f01=0x0190, f02=»A14,TSTPRT TEST HARDWARE =7 P XIF . =15 $ P IFT SNA=1 8 , P CF A14,OPINIT OPEN CONNECTION INITIATE J P RF(N) PRI100 DC NOT PRESENT z P CF A14,OPSYS OPEN SYSTEM P XIF P IFF SNA=1 P CF A14,OPEN OPEN P RF(N) PRI100 NO
0x2b909c…2b9230 Dummy {f00=0x00db, f01=0x0190, f02=»DK A1,1 CONNECT FOR SECOND LINE =17 P XRS A1,MAIN,A11 . =17 , P CF A14,CONCT . =17 J P LDK A1,1 . =17 f 2 P XRS A1,MAIN,A11 INDICATE FIRST LINE AGAIN =17 ~ P XIF . =17 P IFF SNA=1 . =17 * P CF A14,SETTYM SET REQUEST TIMEOUT =18
0x2b9230…2b93c4 Dummy {f00=0x00db, f01=0x0190, f02=» t PPRI200 EQU * * P CF A14,IOACT ACTIVATE IN CURRENT MODE P LDKL A7,ECBBLK J P ADR A7,A11 b P LKM v P DATA 7 MULTIPLE WAIT * P CF A14,IOCPL COMPLET IN CURRENT MODE P LD A1,PRTMOD,A11 " P ANKL A1,PRTERR PRINTER ERROR?
0x2b93c4…2b9558 Dummy {f00=0x00db, f01=0x0190, f02=»*********************************** n J P* * , $ P* IOACT ACTIVATE IN CURRENT MODE z J P* * J P************************
0x2b9558…2b96ec Dummy {f00=0x00db, f01=0x0190, f02=»F(Z) IOAC20 LOCAL " P ADK A4,1 ADD NUMBER OF WAITS 4 P LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY? @ P RF(NZ) IOAC10 YES x P CM MAIN,A11 INDICATE LINE 1 P CF A14,TSTMES TEST MESSAGE P ST A8,ECBBLK+4,A11 PIOAC10 EQU *
0x2b96ec…2b9880 Dummy {f00=0x00db, f01=0x0190, f02=»ATE LINE 2 ~ P CF A14,TSTMES TEST MESSAGE P ST A8,ECBBLK+6,A11 6 P XIF R PIOAC20 EQU * ^ P ADK A4,1 r P LD A2,ECBBLK+2,A11 ALREADY? P RF(NZ) IOAC30 YES " P CF A14,ICPRED READ INTERTASK P ST A8,ECBBLK+2,A11 PIOAC
0x2b9880…2b9a14 (3, 84) Dummy {f00=0x00db, f01=0x0190, f02=»********************* ` J P* * $ P* IOCPL COMPLETE IN CURRENT MODE l J P* * J P**************************************
0x2b9a14…2b9ba8 Dummy {f00=0x00db, f01=0x0190, f02=»,A11 P CF A14,ICPINP MAKE HARDCOPY P RF IOCP90 0 PIOCP10 EQU * B " P CW A8,ECBBLK+4,A11 DC LINE 1? V P IFT NBRLIN=2 | P RF(NE) IOCP20 NO P XIF P IFF NBRLIN=2 P RF(NE) IOCP90 NO FORGET IT P XIF P CM ECBBLK
0x2b9ba8…2b9d3c Dummy {f00=0x00db, f01=0x0190, f02=»E 2? v P RF(NE) IOCP90 NO P CM ECBBLK+6,A11 & P IM MAIN,A11 INDICATE LINE 2 > P XIF b PIOCP30 EQU * n " P CF A14,DCPINP TAKE CARE OF DC PIOCP90 EQU * P RTN A14 P EJECT D P**********************************************
0x2b9d3c…2b9ed0 Dummy {f00=0x00db, f01=0x0190, f02=» * j D P* * ! " D P*************************************************************** ! j PDCPINP EQU * ! ( P CF A14,ICABOR ABORT LOCAL HARD COPY ! " P LDR A7,A7 ALREADY COM
0x2b9ed0…2ba064 Dummy {f00=0x00db, f01=0x0190, f02=»BRLIN=2 ! P LD A1,MAIN,A11 LINE 1 " P RF(Z) DCP150 YES " . P LD A8,ECBDC2,A11 " H PDCP150 EQU * " b P XIF " v P IFT SNA=1 " P LD A1,ECBRC,A8 OK? " P ANKL A1,/701 OK? " P RF(NZ) DCP500 NO STOP IT " P XIF " P CF A14,GETBUF G
0x2ba064…2ba1f8 Dummy {f00=0x00db, f01=0x0190, f02=»2 " " P CF A14,RELBUF RELEASE BUFFER # P RF DCP500 # 0 PDCP400 EQU * # B . P SUR A10,A10 RESET INTERNAL UNPACK STATUS # V P IFT SNA=1 . =1 # P ANK A1,2 . =1 # P RF(Z) DCP450 . =1 # P ORKL A10,LICREC . =1 # PDCP450 EQU * . =1 # P
0x2ba1f8…2ba38c Dummy {f00=0x00db, f01=0x0190, f02=» # & P CF A14,GETBUF GET ANOTHER BUFFER $ P LDR A3,A8 $ 2 $ P CF A14,READNW READ WITH NO WAIT $ D P XIF $ l ( P CF A14,UNPACK UPDATE SCREEN BUFFER $ x PDCP500 EQU * $ P IFF SNA=1 $ P LDK A1,0 $ " P CF A14,SETSTA SET DEVICE END $ P XIF $
0x2ba38c…2ba520 Dummy {f00=0x00db, f01=0x0190, f02=» * $ t D P* ICPINP INTERTASK INPUT * % , D P* * % t D P**************************************************************** % PICPI
0x2ba520…2ba6b4 (3, 85) Dummy {f00=0x00db, f01=0x0190, f02=» RTN A14 % P EJECT & F P****************************************************************** & F P* * & h F P* ICPRED INTERTASK READ * & F P*
0x2ba6b4…2ba848 Dummy {f00=0x00db, f01=0x018e, f02=»ICPRED EQU * & P LD A8,ECBICR,A11 ' P CF A14,ICSET SET NO TIMEOUT ' . P LDK A1,0 NOT ADDRESSED READ ' R P LDKL A3,BVDU ' v P ADR A3,A11 ' P LDKL A2,LBVDU+/20 ' " P CF A14,ICREAD READ INTERTASK ' P RTN A14 ' P EJECT ' H P**********
0x2ba848…2ba9dc Dummy {f00=0x00db, f01=0x0190, f02=» ' J H P* ICPWRT WRITE INTERTASK * ( H P* * ( T H P******************************************************************** ( PICPWRT EQU * ( P LD A8,E
0x2ba9dc…2bab70 Dummy {f00=0x00db, f01=0x0190, f02=»E ( z P LDKL A3,REGI RETURN CODE ) P ADR A3,A11 ) , P LDK A2,2 LENGTH ) @ " P CF A14,ICWRT WRITE INTERTASK ) X PICPW90 EQU * ) ~ P RTN A14 ) P EJECT ) B P************************************************************* ) B P*
0x2bab70…2bad04 Dummy {f00=0x00db, f01=0x0190, f02=» * ) B P************************************************************* * 8 PICABOR EQU * * ~ P LDK A7,0 * P CM ECBBLK+IC,A11 * P LD A8,ECBICR,A11 * P LKM * P DATA 10 * P RTN A14 * P EJE
0x2bad04…2bae98 Dummy {f00=0x00db, f01=0x0190, f02=» * * ` J P* COPP COPY SCREEN BUFFER TO PRINTER * + J P* * + l J P********************************************************************* + P
0x2bae98…2bb02c Dummy {f00=0x00db, f01=0x0190, f02=»RESS + r P* A5= LINE LENGTH , P* A6= CURRENT ATTRIBUTE , ( P* A8= ECB BUFFER POINTER , J P* A9= ECB BUFFER INDEX , l P* A10= INTERNAL STATUS , P* A11= TASK BLOCK BASE , P* A13= ECB BASE , P* , J P************************
0x2bb02c…2bb1c0 Dummy {f00=0x00db, f01=0x0190, f02=»=3 , p P LDK A1,0 - P LDK A6,0 RESET ATTRIBUTE - . P CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS - > & P CM LINCNT,A11 RESET LINE COUNTER - p P LD A1,WCC,A11 - P ANK A1,/38 MASK RELEVANT - P LDR A5,A1 - P ANK A1,8 START PRINT? - $ P ABL(Z
0x2bb1c0…2bb354 (3, 86) Dummy {f00=0x00db, f01=0x0190, f02=» RF(NZ) COP100 NO - * P LD A1,PRTTYP,A11 GET MAX LINE LENGTH . P LC A5,PRTLEN+1,A1 . H PCOP100 EQU * . b P LDKL A3,BVDU . v P ADR A3,A11 . P IFT BASWRI=1 . =24 . P LDR A1,A8 . =24 . . P LD A8,PRBA,A11 PRINTER BUFFER ADDRESS =24 . $ P S
0x2bb354…2bb4e8 Dummy {f00=0x00db, f01=0x0190, f02=» . ^ P XIF . =24 / P IFF BASWRI=1 . =24 / P LD A8,ECBBA,A8 / 8 P CMR A8 RESET CONTROL CHAR. / P P ADKL A8,2 / t P XIF . =24 / P SUR A9,A9 / P LDK A2,0 / P LDK A4,0 / P SUR A10,A10 RESET STATUS / PCOP200 EQU * / P C
0x2bb4e8…2bb67c Dummy {f00=0x00db, f01=0x0190, f02=»E / x P LDR A1,A1 PRINTER ERROR? 0 P RF(NZ) COP900 YES 0 , PCOP400 EQU * 0 F P LCR A2,A3 GET CHAR. 0 Z P ANK A2,/FF 0 v P RF(Z) COP650 NULL CHAR. 0 P CCK A2,/8000 ATTRIBUTE? 0 P RF(L) COP500 NO 0 P LDR A6,A2 GET NEW ATTRIBUTE 0 P R
0x2bb67c…2bb810 Dummy {f00=0x00db, f01=0x018e, f02=» RF COP600 0 PCOP550 EQU * 1 " P CF A14,GETTAB GET ORDERINDEX 1 & " P CFR A14,A1 TAKE CARE OF ORDER 1 L P LDR A1,A1 PRINTER ERROR? 1 r P RF(NZ) COP900 YES 1 P LDR A1,A10 GET STATUS 1 P RF(N) COP800 GET NEXT CHAR. 1 P SLL A1,1 1 P RF(N)
0x2bb810…2bb9a4 Dummy {f00=0x00db, f01=0x0190, f02=» 1 x , P ORKL A10,NTONLY INIDICATE NOT ONLY NOT 2 P RF COP700 2 8 PCOP650 EQU * 2 J " P LDK A2,/20 REPLACE WITH SPACE 2 ^ PCOP700 EQU * 2 P IFF TRANAT=0 . =4 2 * P LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =4 2 P XIF . =4 2 P SCR A2,A8 2 P ADK
0x2bb9a4…2bbb38 Dummy {f00=0x00db, f01=0x0190, f02=»ECB =3 2 z 2 P ST A9,ECBRL,A1 UPDATE LAST POS. NOT SPACE =3 3 PCOP800 EQU * 3 D 2 P ANKL A10,/FFFF-NXTCHA RESET TAKE NEXT CHAR =3 3 X P ADK A3,1 3 P ADK A4,1 3 P RB COP200 3 PCOP850 EQU * 3 P IFF BASWRI=1 . =24 3 ( P LDR A9,A9 SOMETHING
0x2bbb38…2bbccc Dummy {f00=0x00db, f01=0x0190, f02=»OP900 NO STOP IT 3 ( P ORKL A10,NTONLY INDICATE PRINTABLE 4 " P CF A14,PRLINE EXTRA LINE FEED 4 D P XIF . =24 4 j P IFT BASWRI=1 . =24 4 ~ , P LDR A9,A9 SOME TEXT LEFT TO PRINT? =24 4 P RF(Z) COP860 NO! =24 4 " P CF A14,PRLINE PRINT TEXT =24 4
0x2bbccc…2bbe60 Dummy {f00=0x00db, f01=0x0190, f02=»870 DK38 4 2 P ANKL A10,NOEMLF TEST IF EXTRA LF NECESS. DK38 5 $ P RF(NZ) COP870 NO, SKIP IT DK38 5 H , P ORKL A10,NTONLY INDICATE PRINTABLE =24 5 p & P CF A14,PRLINE EXTRA LINEFEED =24 5 P XIF . =26 5 P IFT BASWRI=1 . =26 5 PCOP870 EQU * .
0x2bbe60…2bbff4 (3, 87) Dummy {f00=0x00dc, f01=0x0190, f02=» RF(Z) COP950 NO 5 P LD A2,WCC,A11 . =32 6 $ P CWK A2,/38 LOCAL HARDCOPY? =32 6 4 ( P RF(E) COP910 YES. SKIP PRINTING =32 6 2 P CF A14,TSTPRT WAIT UNTIL PRINTER OPERABLE =32 6 " P ABL COPP RESUME PRINTING =34 6 PCOP910 EQU * . =32 6 " P LDKL A2,P
0x2bbff4…2bc188 Dummy {f00=0x00dc, f01=0x0190, f02=»**************************************** 6 p P* 7 0 P* TABLE FOR PRINTERORDERS 7 : P* 7 L P************************************************************************ 7 f PPRTORD EQU * 7 & P DATA /0004 NUMBER OF ORDER CODES 7 $ P DATA /0A0A,NL,NL,NL
0x2bc188…2bc31c Dummy {f00=0x00dc, f01=0x0190, f02=»EM,EM END MESSAGE 7 ~ " P DATA INVAL INVALID ORDER CODE 8 P EJECT 8 @ P P**************************************************************************** 8 N P P* * 8 P P* NL
0x2bc31c…2bc4b0 Dummy {f00=0x00dc, f01=0x018e, f02=» * 8 J P P**************************************************************************** 9 PNL EQU * 9 b * P ORKL A10,NXTCHA+NTONLY GET NEXT CHAR. 9 r " P ADK A3,1 GET NEXT CHAR. DK38 9 P LCR A1,A3 DK38 9 P ANK A1,/FF MASK IT DK38 9 P CWK A1,/1
0x2bc4b0…2bc644 Dummy {f00=0x00dc, f01=0x0190, f02=» PNL005 EQU * DK38 : ( P ORKL A10,NOEMLF INDICATE NO LF DK38 : PNL010 EQU * DK38 : J " P SUK A3,1 RESTORE POINTER DK38 : d , P CF A14,PRLINE PRINT LINE AFTER NEW LINE : P . =DK : P RTN A14 : P EJECT : J P********************************
0x2bc644…2bc7d8 Dummy {f00=0x00dc, f01=0x0190, f02=»UM SIMULATED FORM FEED * : J P* * ; B J P********************************************************************** ; PFFDUM EQU * ; . P CF A14,FFCHK CHECK IF
0x2bc7d8…2bc96c Dummy {f00=0x00dc, f01=0x0190, f02=»R ; p P LC A7,PRTLEN,A1 PAGE SIZE < PFFD100 EQU * < , P CW A7,LINCNT,A11 NEW PAGE? < @ " P RF(L) FFD200 YES BUT TO MANY < d P RF(E) FFD300 YES FINISHED < P ORKL A10,NTONLY < P ST A7,REGI,A11 SAVE < $ P CF A14,PRLINE ADVANCE ONE LINE < P
0x2bc96c…2bcb00 Dummy {f00=0x00dc, f01=0x0190, f02=»1,A7 < * P ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE = P RB FFD100 = : PFFD300 EQU * = L P CM LINCNT,A11 TOP OF PAGE = ` & P LDK A2,/20 REPLACE FF WITH SPACE = PFFD400 EQU * = P LDK A1,0 RETURN CODE = PFFD500 EQU * = P RTN A14 = P EJECT
0x2bcb00…2bcc94 (3, 88) Dummy {f00=0x00dc, f01=0x0190, f02=» * = ^ J P* FFVAL FORM FEED * > J P* * > j J P********************************************************************* > PFF
0x2bcc94…2bce28 Dummy {f00=0x00dc, f01=0x0190, f02=»I=1 . =30 > * P LDK A1,/31 FF FOR STANDARD WRITE =30 ? ( P SC A1,-1,A8 STORE FF CONTROL CHAR. ? @ P XIF . =24 ? l P IFT BASWRI=1 . =24 ? $ P ORKL A10,FFCCH IND. FF CCH =36 ? " P CF A14,PRLINE PRINT LINE =36 ? P XIF . =24 ? P ORKL A10,
0x2bce28…2bcfbc Dummy {f00=0x00dc, f01=0x0190, f02=»******************************************************************** ? J P* * @ L J P* CR CARRIAGE RETURN * @ J P*
0x2bcfbc…2bd150 Dummy {f00=0x00dc, f01=0x0190, f02=» P LDR A1,A6 GET ATTRIBUTE A P ANK A1,/C A $ P XRK A1,/C NONPRINT FIELD? A 6 P RF(Z) CR100 YES A X P LD A1,WCC,A11 A p P ANK A1,/30 FORMATTED? A P RF(NZ) CR100 NO A & P ORKL A10,NTONLY+CRREC CR RECEIVED A PCR100 EQU * A " P LDK A2,/20 RE
0x2bd150…2bd2e4 Dummy {f00=0x00dc, f01=0x0190, f02=»***************** A H P* * B H P* EM END MESSAGE * B f H P* * B H P**********
0x2bd2e4…2bd478 Dummy {f00=0x00dc, f01=0x0190, f02=» CODE B P RTN A14 C P EJECT C F P****************************************************************** C , F P* * C v F P* INVAL INVALID PRINTER ORDER * C F
0x2bd478…2bd60c Dummy {f00=0x00dc, f01=0x0190, f02=»****** C T P* D P* ALSO HANDLING: D P* DUP & FM CHARACTERS D 0 P* D N PINVAL EQU * D X P LDR A1,A2 SAVE CHAR =37 D l , P CF A14,RFMDUP REPLACE IF DUP OR FM =37 D P SUR A1,A2 REPLACED? =37 D P RF(NZ) INVA10 YES! =37 D " P NO! I.E.
0x2bd60c…2bd7a0 Dummy {f00=0x00dc, f01=0x0190, f02=»TURN CODE D P RTN A14 E P EJECT E " F P***************************************************************** E 0 F P* * E z F P* FFCHK CHECK IF FF IS VALID * E
0x2bd7a0…2bd934 (3, 89) Dummy {f00=0x00dc, f01=0x0190, f02=»********* E X PFFCHK EQU * F P LD A1,WCC,A11 F & P ANK A1,/30 F < P XRK A1,/30 FORMATTED? F P 0 P RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY F n P LD A1,WCC,A11 F P ANK A1,/40 LOCAL HARD COPY? F & P RF(Z) FFCH20 YES, FF NOT ALLOWED F PFF
0x2bd934…2bdac8 Dummy {f00=0x00dc, f01=0x018e, f02=») FFCH30 YES F PFFCH20 EQU * G " P LDK A2,/20 REPLACE WITH SPACE G ( P LDK A1,1 RETURN CODE G N P RF FFCH40 G l PFFCH30 EQU * G ~ * P ANKL A10,/FFFF-CRREC RESET CR RCV =3 G P LDR A9,A9 EMPTY LINE G P RF(Z) FFCH35 YES G P CF A14,PRLINE P
0x2bdac8…2bdc5c Dummy {f00=0x00dc, f01=0x0190, f02=» P EJECT H D P**************************************************************** H D P* * H Z D P* PRLINE PRINT LINE * H D P*
0x2bdc5c…2bddf0 Dummy {f00=0x00dc, f01=0x0190, f02=»D A8,ECBPRT,A11 H P LDR A1,A10 I P ANKL A1,NTONLY ONLY RUBB.? I , P RF(NZ) PRL050 NO I P P LD A1,WCC,A11 I j P LDR A2,A1 I P ANK A1,/30 I P XRK A1,/30 HRADCOPY? I P RF(NZ) PRL200 NO I P ANK A2,/40 HARDCOPY????? I P RF(NZ)
0x2bddf0…2bdf84 Dummy {f00=0x00dc, f01=0x0190, f02=» ADD CONTROL CHAR. TO LENGTH =3 I P ADS A9,ECBRL,A8 . =3 J ( P LDK A7,/06 PRINT J F P LKM J ` P DATA 1 J l P XIF . =24 J | P IFT BASWRI=1 . =24 J & P LD A1,ECBRL,A8 TEXT TO PRINT? =24 J * P RF(Z) PRL070 NO! JUST CONTROL CH =24 J $ P EJE
0x2bdf84…2be118 Dummy {f00=0x00dc, f01=0x0190, f02=» WITH SPACE =36 J t P LD A1,PRLMAR,A11 . =36 K P AD A1,ECBBA,A8 . =36 K 8 P SUK A1,1 . =36 K V PPRL055 EQU * . =36 K n P SCR A7,A1 . =36 K P SUK A1,1 . =36 K " P CW A1,ECBBA,A8 FINISHED? =36 K P RB(G) PRL055 NO! =36 K P XIF . =36
0x2be118…2be2ac Dummy {f00=0x00dc, f01=0x018e, f02=»M LINCNT,A11 ANOTHER LINE =24 K P LDK A1,/0A LF CCH =24 L & P LD A7,ECBRL,A8 . =24 L D P AD A7,ECBBA,A8 . =24 L b 0 P AD A7,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25 L & P SCR A1,A7 LF CCH LAST IN BUF =25 L P . =35 L P CALCULATE LINE LENGTH =
0x2be2ac…2be440 Dummy {f00=0x00dc, f01=0x0190, f02=» 0 P ADS A1,PRCCCT,A11 NO. OF CH:S TO PRINT =36 M 2 P ADS A1,ECBBA,A8 UPDATE POINTER TO BUFFER =36 M 8 P EJECT . =36 M n 4 PPRL060 EQU * ENOUGH SPACE FOR ANOTHER LINE? =36 M $ P LDKL A1,PRBFL BUFFER LENGTH =36 M . P SU A1,PRCCCT,A11 USED PART OF BUFFE
0x2be440…2be5d4 (3, 90) Dummy {f00=0x00dc, f01=0x0190, f02=»=36 M h P . =36 N " PPRL065 EQU * PRINT BUFFER =36 N P LD A1,PRCCCT,A11 . =36 N B $ P ST A1,ECBRL,A8 REQ. LENGTH =36 N b P LD A1,PRBA,A11 . =36 N & P ST A1,ECBBA,A8 BUFFER ADDRESS =36 N P LDK A7,/05 BASIC WRITE =24 N P LKM . =24 N
0x2be5d4…2be768 Dummy {f00=0x00dc, f01=0x0190, f02=»36 N j * PPRL070 EQU * STORE CCH IN BUFFER =24 O $ P IM LINCNT,A11 ANOTHER LINE =24 O 8 P LDK A7,/0A LF CCH =24 O ` P LDR A1,A10 . =36 O ~ " P ANKL A1,FFCCH FORM FEED? =36 O P RF(Z) PRL075 NO =36 O P LDK A7,/0C YES. FF CCH =36 O , P ANKL A10,
0x2be768…2be8fc Dummy {f00=0x00dc, f01=0x0190, f02=»SS =36 O r 2 P IM PRCCCT,A11 STEP NO. OF CH:S IN BUFFER =36 P & P ADKL A8,1 STEP BUFFER POINTER =36 P D * P RB PRL060 CHECK IF END OF BUFFER =36 P n P EJECT . =36 P PPRL090 EQU * . =24 P P XIF . =24 P P LDK A1,50 NUMBER OF DELAYS P PPRL1
0x2be8fc…2bea90 Dummy {f00=0x00dc, f01=0x0190, f02=» P RF(N) PRL150 YES Q P SUK A1,1 MORE TO WAIT FOR? Q P RB(NZ) PRL100 YES Q B P LKM Q P DATA 10 ABORT Q h P . =27 Q ~ P LDK A1,1 INDICATE ERROR =27 Q P RF PRL300 Q PPRL150 EQU * Q P LKM Q P DATA 2 RESYNCHRONIZE Q P IFF
0x2bea90…2bec24 Dummy {f00=0x00dc, f01=0x0190, f02=»8 OK? Q 6 P ANKL A1,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 R P RF(NZ) PRL300 YES! =23 R H PPRL200 EQU * R h P IFT BASWRI=1 . =24 R | ( P CM ECBRL,A8 RESET PRINT LENGTH =36 R * P LD A8,ECBBA,A8 SET BUFFER POINTER =36 R 0 P AD A8,PRLMAR,A11 ALLO
0x2bec24…2bedb8 Dummy {f00=0x00dc, f01=0x0190, f02=»NTROL CHAR. R P XIF . =24 S P SUR A9,A9 S ( P IFF BASWRI=1 . =24 S : P ADKL A8,2 S V P XIF . =24 S h P LDK A1,0 RETURN CODE S | P RF PRL900 . =6 S PPRL300 EQU * S * P LD A2,PRTID,A11 GET PRINTER TASKID =6 S P ANK A2,/FF . =6 S
0x2bedb8…2bef4c Dummy {f00=0x00dc, f01=0x018e, f02=» S & P SC A1,+3,A3 SET PRINTER STATUS =6 T PPRL900 EQU * . =6 T 2 P RTN A14 T L P IFT BASWRI=1 . =24 T P EJECT . =24 T x L P************************************************************************ T P* T B P* PRCCH - SEND BUFFER
0x2bef4c…2bf0e0 Dummy {f00=0x00dc, f01=0x0190, f02=» PPRCCH EQU * . =24 U , P LD A1,PRCCCT,A11 ANYTHING TO SEND? =24 U P RB(Z) PRL900 NO! RETURN =24 U N & P LD A8,ECBPRT,A11 ECB ADDRESS =24 U r ( P RB PRL065 SEND CH:S TO PRINTER =36 U P XIF . =24 U P EJECT U H P******************************
0x2bf0e0…2bf274 (3, 91) Dummy {f00=0x00dd, f01=0x0190, f02=» INIT ROUTINE * U H P* * V > H P******************************************************************* V PINIT EQU * V P CF A14,COMINI COMMON INIT V
0x2bf274…2bf408 Dummy {f00=0x00dd, f01=0x0190, f02=» LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX V " P LD A7,PRTTAB NUMBER OF TYPES W 6 , P LDKL A1,PRTTAB+2 START OF PRINTER TABLE W PINI100 EQU * W $ P CCR A2,A1 CONVERT TYPE TO INDEX W P RF(E) INI200 W P ADK A1,4 W P SUK A7,1 ILLEGAL ID? W
0x2bf408…2bf59c Dummy {f00=0x00dd, f01=0x0190, f02=»A1,+2,A1 W ( P ST A1,PRTTYP,A11 SAVE PRINTER TYPE X P IFT BASWRI=1 . =24 X < . P LD A2,ECBPRT,A11 PRINTER ECB ADDRESS =24 X X . P LD A2,ECBBA,A2 PRINTER BUFFER ADDRESS =24 X , P ST A2,PRBA,A11 SAVE IT IN WORK AREA =24 X P LDK A2,1 . =25 X & P ST
0x2bf59c…2bf730 Dummy {f00=0x00dd, f01=0x0190, f02=»AVE VALUE IN WORK AREA =25 X | P XIF . =24 Y " P RTN A14 Y 6 P EJECT Y F F P***************************************************************** Y T F P* * Y F P* TSTPRT TEST HARDW
0x2bf730…2bf8c4 Dummy {f00=0x00dd, f01=0x0190, f02=»********************************************* Y | PTSTPRT EQU * Z 6 P . =6 Z J P LD A8,ECBPRT,A11 Z Z P LDK A7,/80 TEST STATUS Z t PTSTP10 EQU * Z P LKM Z P DATA 1 Z P LD A4,ECBRC,A8 . =6 Z 6 P ANKL A4,/2011 PAPER OUT/HARDWARE T-O/NO
0x2bf8c4…2bfa58 Dummy {f00=0x00dd, f01=0x0190, f02=»A2,PRTID,A11 . =6 Z P ANK A2,/FF [ P SUK A2,/30 [ . P SLL A2,2 [ B P LD A3,+6,A13 [ T P LDK A1,TSKTAB [ j P ADR A3,A1 [ P ADR A3,A2 [ P . =6 [ 0 P SC A4,+3,A3 INDICATE STATUS IN DEV TABLE =6 [ P ANK A4,1 OPERABLE? =6 [ P R
0x2bfa58…2bfbec Dummy {f00=0x00dd, f01=0x0190, f02=»10 [ P . =6 P . =6 P . =6 * P . =6 : PTSTP90 EQU * J P RTN A14 ^ P EJECT n H P******************************************************************* | H P*
0x2bfbec…2bfd80 Dummy {f00=0x00dd, f01=0x0190, f02=» * ` H P******************************************************************* ] PGETTAB EQU * ] h . P LD A7,PRTORD NUMBER OF VALID ORDER CODES ] | & P LDKL A1,PRTORD+2 ORDERTABLE BASE ] PGETT10 EQU * ] , P CCR A2,A1 CONVERT ORDER COD
0x2bfd80…2bff14 (3, 92) Dummy {f00=0x00dd, f01=0x40dc, f02=»F(Z) GETT30 NO INVALID ] P RB GETT10 TRY AGAIN ^ PGETT20 EQU * ^ : P ADK A1,2 ^ N P LD A2,PRTTYP,A11 ^ ` P ADR A1,A2 ^ z PGETT30 EQU * ^ P LDR* A1,A1 ^ P RTN A14 ^ P ^ P END ^ @ ^
0x2bff14…2c00a8 Dummy {f00=0x00dd, f01=0x2008, f02=» _ A1,TSKTAB ADR A3,A1 ADR A3,A2 0 LDK A1,1 B " SC A1,+2,A3 INDICATE NOT OP. T LKM z DATA 0 SWITCH TASK $ LDK A2,1 INDICATE ONCE NOT OP. RB TSTP10 TSTP80 EQU * LDR A2,A2 NOT OP. ONC
0x2c00a8…2c023c Dummy {f00=0x00dd, f01=0x0190, f02=» * & & * & T & " L H IDENT D:TB10 TRA 11.0 82-07-16 F1 O1111 REL 11.0 82
0x2c023c…2c03d0 Dummy {f00=0x00dd, f01=0x0190, f02=» ` v : L H IDENT C:CB10 TRA 11.0 82-07-16 F1 O1111 REL 11.0 82-07-07 87015054110 $ C:CB10 t C:CB10C * & ABCDIDENT NOT OPERABLE * & * & =
0x2c03d0…2c0564 Dummy {f00=0x00dd, f01=0x40e2, f02=» L H IDENT D:CB10 TRA 11.0 82-07-16 F1 O1111 REL 11.0 82-07-07 87015054110 0 D:CB10 D:CB10C " :C @ * & =
0x2c0564…2c06f8 Dummy {f00=0x00dd, f01=0x0190, f02=» IDENT P:PIL < 8 P:BAS T:BAT T:PAT T:CAT T:LIT T:PIC T:KEY T:FMT P:END P:BAS ` T:CAT r GETTID VDUKB PRINT T T:BAT T:PAT T:LIT
0x2c06f8…2c088c Dummy {f00=0x00dd, f01=0x4028, f02=» P:END @ $ T:BAT T:PAT T:CAT T:LIT T:PIC T:KEY T:FMT P:END P:BAS ` T:CAT r GETTID VDUKB PRINT T T:BAT T:PAT T:LIT
0x2c088c…2c0a20 Dummy {f00=0x00dd, f01=0x4016, f02=» HNOD D @ @ $ T:BAT T:PAT T:CAT T:LIT T:PIC T:KEY T:FMT P:END P:BAS ` T:CAT r GETTID VDUKB PRINT T T:BAT T:PAT T:LIT
0x2c0a20…2c0bb4 (3, 93) Opaque[0x194]
0x2c0bb4…2c0d48 # DirEnt {nam=»CONVER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bb0, f03=0x0000}
0x2c0bb4…2c0d48 IdxSect {
0x2c0bb4…2c0d48 f00 = 0x00dd // 0x2c0bb4 @0x0
0x2c0bb4…2c0d48 f01 = 0x0006 // 0x2c0bb6 @0x2
0x2c0bb4…2c0d48 gno = [ // 0x2c0bb8 @0x4
0x2c0bb4…2c0d48 [0x00]: C0x00dd.0x2.0
0x2c0bb4…2c0d48 [0x01]: C0x00dd.0x3.0
0x2c0bb4…2c0d48 [0x02]: C0x00de.0x0.0
0x2c0bb4…2c0d48 ]
0x2c0bb4…2c0d48 }
0x2c0d48…2c0edc Dummy {f00=0x00dd, f01=0x0190, f02=» 2 P IDENT CONVER REL 11.0 DK82-04-01 870150541100 P : < P**************** SCANDINAVIAN ALPHABET****************** B P DK CORRECTED CONATT D P**************************************************************** D P*
0x2c0edc…2c1070 Dummy {f00=0x00dd, f01=0x0190, f02=»CDIC-ASCII * x D P* ASCII-EBCDIC * 0 D P* ATTRIBUTES,BUFFER ADDRESSES * x D P* PF-KEYS * D P
0x2c1070…2c1204 Dummy {f00=0x00dd, f01=0x0190, f02=» P D P**************************************************************** P EJECT P D P**************************************************************** ^ D P* * D P* ENTRY POINTS
0x2c1204…2c1398 Dummy {f00=0x00dd, f01=0x0190, f02=»********************************************** ~ P 6 P ENTRY CONASC > P ENTRY CONEBC T P ENTRY CONATT j P ENTRY CONADR P ENTRY CONPF P ENTRY CONORD P EJECT F P**********************************************************
0x2c1398…2c152c Dummy {f00=0x00dd, f01=0x0190, f02=» * b F P* * F P***************************************************************** f PCONASC EQU * ( P DATA /0001,/0203,/0009,/0000 00-07 ( P DATA /0000,/000B,/0C0D,
0x2c152c…2c16c0 Dummy {f00=0x00dd, f01=0x0190, f02=»B 20-27 t ( P DATA /0000,/0000,/0005,/0607 28-2F ( P DATA /0031,/1600,/001E,/0004 30-37 < ( P DATA /0000,/0000,/1415,/001A 38-3F h ( P DATA /2041,/4243,/4445,/4647 40-47 ( P DATA /4849,/242E,/3C28,/2B7C 48-4F ( P DATA /264A,/4B4C,/4D4E,/4F5
0x2c16c0…2c1854 (3, 94) Dummy {f00=0x00dd, f01=0x0190, f02=»-6F p ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3860,/3A23,/4027,/3D22 78-7F 8 ( P DATA /2061,/6263,/6465,/6667 80-87 d ( P DATA /6869,/5B2E,/3C28,/2B21 88-8F ( P DATA /266A,/6B6C,/6D6E,/6F70 90-97 ( P DATA /7172,/5D24,/2A29,/3B5E 98
0x2c1854…2c19e8 Dummy {f00=0x00dd, f01=0x0190, f02=» l ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /7B41,/4243,/4445,/4647 C0-C7 4 ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF ` ( P DATA /7D4A,/4B4C,/4D4E,/4F50 D0-D7 ( P DATA /5152,/5D24,/2A29,/3B5E D8-DF ( P DATA /5C2F,/5354,/5556,/5758 E0-E7
0x2c19e8…2c1b7c Dummy {f00=0x00dd, f01=0x0190, f02=» P EJECT H P******************************************************************* H P* * ^ H P* CONEBC CONVERT ASCII-EBCDIC * H P*
0x2c1b7c…2c1d10 Dummy {f00=0x00dd, f01=0x0190, f02=»NEBC EQU * ( P DATA /0001,/0203,/372D,/2E2F 00-07 ( P DATA /1605,/150B,/0C0D,/0E0F 08-0F > ( P DATA /1011,/124F,/3C3D,/3226 10-17 j ( P DATA /7019,/3F27,/1C1D,/1E1F 18-1F ( P DATA /405A,/7F7B,/4A6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4
0x2c1d10…2c1ea4 Dummy {f00=0x00dd, f01=0x0190, f02=»40-47 r ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-57 : ( P DATA /E7E8,/E97B,/E05B,/5F6D 58-5F f ( P DATA /7981,/8283,/8485,/8687 60-67 ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6
0x2c1ea4…2c2038 Dummy {f00=0x00dd, f01=0x0190, f02=» P D P* * D P* CONATT CONVERT ATTRIBUTE AND ADDRESSES * P D P* * D P****************************************
0x2c2038…2c21cc Dummy {f00=0x00dd, f01=0x0190, f02=» ( P DATA /1011,/1213,/3C3D,/3226 10-17 ( P DATA /7019,/3F27,/1C1D,/1E1F 18-1F 0 ( P DATA /404F,/7F4A,/5A6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F
0x2c21cc…2c2360 Dummy {f00=0x00dd, f01=0x0190, f02=» DATA /E7E8,/E97B,/7C5B,/5F6D 58-5F ( P DATA /0081,/8283,/8485,/8687 60-67 , ( P DATA /8889,/9192,/9394,/9596 68-6F X ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/0000 78-7F P EJECT B P******************************
0x2c2360…2c24f4 (3, 95) Dummy {f00=0x00de, f01=0x0190, f02=»RT ADDRESSES TO ASCII * v B P* * , B P************************************************************* r PCONADR EQU * * P DATA /2041,/4243,/4445,/4647 /00-/07 ( P DATA /4849,/2
0x2c24f4…2c2688 Dummy {f00=0x00de, f01=0x0190, f02=»354,/5556,/5758 /20-/27 * P DATA /595A,/402C,/255F,/3E3F /28-/2F * P DATA /3031,/3233,/3435,/3637 /30-/37 N * P DATA /3839,/3A5B,/5C27,/3D22 /38-/3F | P EJECT D P**************************************************************** D P*
0x2c2688…2c281c Dummy {f00=0x00de, f01=0x0190, f02=» * D P*************************************************************** : PCONPF EQU * 4 P DATA /3132,/3334,/3536,/3738,/393A,/235C PF1-12 6 P DATA /4142,/4344,/4546,/4748,/497F,/2E3C PF13-24 P
0x2c281c…2c29b0 Dummy {f00=0x00de, f01=0x0190, f02=» * ` F P* CONORD CONVERT ORDER CODES TO INDEX * F P* * d F P****************************************************************** PCONORD EQU *
0x2c29b0…2c2b44 Dummy {f00=0x00de, f01=0x403c, f02=» DATA /0016,/000E,/0002,/0000 18-1F P END ,@ 8ER CODES TO INDEX * F P* * d F P****************************************************************** PCONORD EQU *
0x2c2b44…2c2cd8 Dummy {f00=0x00de, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x2c2cd8…2c2e6c Dummy {f00=0x00de, f01=0x0190, f02=» ? F C I M Q , U Y j ] d a l e . i : m q u H D ! y } 4 p p j T P B H D ! 0 d d | H N # /W* 3 GW K MW Q g H D !j| mP P W P W
0x2c2e6c…2c3000 Dummy {f00=0x00de, f01=0x0190, f02=»V W r H D ! > T j W T W # ' + 3 7 > ; . H D ! ? I j M h ] g oW W P z H D !6n P P P T W < P # b + 5 b ;
0x2c3000…2c3194 (3, 96) Opaque[0x194]
0x2c3194…2c3328 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1bc8, f03=0x0000}
0x2c3194…2c3328 IdxSect {
0x2c3194…2c3328 f00 = 0x00de // 0x2c3194 @0x0
0x2c3194…2c3328 f01 = 0x005a // 0x2c3196 @0x2
0x2c3194…2c3328 gno = [ // 0x2c3198 @0x4
0x2c3194…2c3328 [0x00]: C0x00de.0x1.0
0x2c3194…2c3328 [0x01]: C0x00de.0x2.0
0x2c3194…2c3328 [0x02]: C0x00de.0x3.0
0x2c3194…2c3328 [0x03]: C0x00df.0x0.0
0x2c3194…2c3328 [0x04]: C0x00df.0x1.0
0x2c3194…2c3328 [0x05]: C0x00df.0x2.0
0x2c3194…2c3328 [0x06]: C0x00df.0x3.0
0x2c3194…2c3328 [0x07]: C0x00e0.0x0.0
0x2c3194…2c3328 [0x08]: C0x00e0.0x1.0
0x2c3194…2c3328 [0x09]: C0x00e0.0x2.0
0x2c3194…2c3328 [0x0a]: C0x00e0.0x3.0
0x2c3194…2c3328 [0x0b]: C0x00e1.0x0.0
0x2c3194…2c3328 [0x0c]: C0x00e1.0x1.0
0x2c3194…2c3328 [0x0d]: C0x00e1.0x2.0
0x2c3194…2c3328 [0x0e]: C0x00e1.0x3.0
0x2c3194…2c3328 [0x0f]: C0x00e2.0x0.0
0x2c3194…2c3328 [0x10]: C0x00e2.0x1.0
0x2c3194…2c3328 [0x11]: C0x00e2.0x2.0
0x2c3194…2c3328 [0x12]: C0x00e2.0x3.0
0x2c3194…2c3328 [0x13]: C0x00e3.0x0.0
0x2c3194…2c3328 [0x14]: C0x00e3.0x1.0
0x2c3194…2c3328 [0x15]: C0x00e3.0x2.0
0x2c3194…2c3328 [0x16]: C0x00e3.0x3.0
0x2c3194…2c3328 [0x17]: C0x00e4.0x0.0
0x2c3194…2c3328 [0x18]: C0x00e4.0x1.0
0x2c3194…2c3328 [0x19]: C0x00e4.0x2.0
0x2c3194…2c3328 [0x1a]: C0x00e4.0x3.0
0x2c3194…2c3328 [0x1b]: C0x00e5.0x0.0
0x2c3194…2c3328 [0x1c]: C0x00e5.0x1.0
0x2c3194…2c3328 [0x1d]: C0x00e5.0x2.0
0x2c3194…2c3328 [0x1e]: C0x00e5.0x3.0
0x2c3194…2c3328 [0x1f]: C0x00e6.0x0.0
0x2c3194…2c3328 [0x20]: C0x00e6.0x1.0
0x2c3194…2c3328 [0x21]: C0x00e6.0x2.0
0x2c3194…2c3328 [0x22]: C0x00e6.0x3.0
0x2c3194…2c3328 [0x23]: C0x00e7.0x0.0
0x2c3194…2c3328 [0x24]: C0x00e7.0x1.0
0x2c3194…2c3328 [0x25]: C0x00e7.0x2.0
0x2c3194…2c3328 [0x26]: C0x00e7.0x3.0
0x2c3194…2c3328 [0x27]: C0x00e8.0x0.0
0x2c3194…2c3328 [0x28]: C0x00e8.0x1.0
0x2c3194…2c3328 [0x29]: C0x00e8.0x2.0
0x2c3194…2c3328 [0x2a]: C0x00e8.0x3.0
0x2c3194…2c3328 [0x2b]: C0x00e9.0x0.0
0x2c3194…2c3328 [0x2c]: C0x00e9.0x1.0
0x2c3194…2c3328 ]
0x2c3194…2c3328 }
0x2c3328…2c34bc Dummy {f00=0x00de, f01=0x0190, f02=» @ @ IDENT DSPBSC REL 11.0 82-07-08DK 870150541100 " VDUKB COMINI ECBINI MATCH H VDUKB n , ( 0 @ B P Q a b ! TSTMES , ( ! ( _ N T N ICVRED , (
0x2c34bc…2c3650 Dummy {f00=0x00de, f01=0x0190, f02=» KBINP2 , ( y : T O W T O DCINP J ICINP Z , ( @ W T O W O j MATCH , ( : V M P W OPEN , ( , !VV , :
0x2c3650…2c37e4 Dummy {f00=0x00de, f01=0x0190, f02=» !VVX 9H F O ERASE LMP2ON 0 LMP1ON B CHKSTA T , ( +H" N P W f COMINI H I:EVA0 , ( CD : " . V ! 09B ECBINI r , ( _
0x2c37e4…2c3978 Dummy {f00=0x00de, f01=0x40e6, f02=» SOUND , ( " L : $ P ( _ : @ H D ! , ) | 3T EP MT ]T mT T W( T W T W P W X ( $ H r R 7P =W P P @ ECBINI r , ( _
0x2c3978…2c3b0c Dummy {f00=0x00de, f01=0x818e, f02=» > @ IDENT DCBSC REL 11.0 81-04-08 870150541100 F B DCINP TSTSTA SETSTA OPEN CONCT SETTIM TSTMES DCABOR TRPA F 2 . TRPF DCOFLN CHKSTA DCWRIT READW RDSTAT DCINP GETBUF RELBUF , ( @
0x2c3b0c…2c3ca0 Dummy {f00=0x00de, f01=0x818e, f02=» OPEN P , ( 9 ! P " O : CONCT p F , ( W V L C ( B R : X , ( u .! S C V L SETTIM , ( C ( N B E : READW
0x2c3ca0…2c3e34 (3, 97) Dummy {f00=0x00de, f01=0x8190, f02=» , ( O ( B ![P RESKB 4 , ( @ N ! O D TSTMES 0 t SETSTA B , ( - : C ( : C TSTSTA R RDSTAT f DCABOR f , (
0x2c3e34…2c3fc8 Dummy {f00=0x00de, f01=0xc14c, f02=»COFLN TRPA PAID " * & @ W : : 2 TRPF ` SCRINF r BUFADR PACK , ( " : @ : D @ P W 3P =P M
0x2c3fc8…2c415c Dummy {f00=0x00de, f01=0x0190, f02=» > @ IDENT VDU REL 11.0 82-09-28 870150541100 F B INSMOD GETVDU STOVDU SCRINF STOINF POSUNP ATMASB ATMASF F D @ DISCHA WCHAR DISMOD DISID ERASUA ERASE SOUND ERASUP WRAP 4 0 NLROUT LINWRP LINE LINATT DISSTA RFMDUP
0x2c415c…2c42f0 Dummy {f00=0x00de, f01=0x0190, f02=» R T B W PR , ( a _* , ! V X" $ , ( X( X. X4 Y _> O ! T , ( P " P W W 9 _f , ( PR _ , ! ^< _ , ( ( : P R
0x2c42f0…2c4484 Dummy {f00=0x00de, f01=0x0190, f02=» C B t , ( a T : B P 9 Y , ( Y B : T " T P D , ( P C C W T " U t SAVE1 , ( @ N P REST1 , ( @ O
0x2c4484…2c4618 Dummy {f00=0x00de, f01=0x0190, f02=» h , ( = ! P , ( ] W P . O O P 8 , ( } P P h , ( N P , ( _6 P , (
0x2c4618…2c47ac Dummy {f00=0x00de, f01=0x018e, f02=» < l STOVDU @ SCRINF L STOINF Z 4 , ( = ' : # : N N N : O H SOUND h x , ( ] O O : B + E E WRAP , ( } C ( B : R LINWRP
0x2c47ac…2c4940 Dummy {f00=0x00de, f01=0x0190, f02=» , ( QR P _> : , ( Q X ) Y Q PW 8 NLROUT 4 h CRDOWN | , ( P P , ]: : , ( 9 PR P_ P - X ERASE f , ( W
0x2c4940…2c4ad4 (3, 98) Dummy {f00=0x00de, f01=0x0190, f02=»( : O t , ( @ T fW , ! V , ( _ P W , ! D , ( Z P ! " - X ) Y t RDHOME * & , ! ^( - X ) Y _ ERASUA 8 , ( 5 :
0x2c4ad4…2c4c68 Dummy {f00=0x00de, f01=0x0190, f02=»P , ! R " BW - POSUNP ( , ( _. : U O 2 ! R < , ( ' P O U Z l bTAB DISID , ( W B ! QT : , ( n V .
0x2c4c68…2c4dfc Dummy {f00=0x00de, f01=0x0190, f02=» U t ATMASB , ( q N P 2 ! Z Z : O ( , ( 2 ! V V N P _ Z X , ( : U P 2 ! WCHAR , ( W : ' P ' T W B , ( ]
0x2c4dfc…2c4f90 Dummy {f00=0x00de, f01=0x0190, f02=» !VVT C C , ( Q PR C P_ C ( : " H D ! l L % n 5T ?T C KRt MT YW _R c k qV& u ( P P R H D ! ( W W ( R ( L 4 P P W. #P$ cT k n T H D !8# W^ P$ L Z P
0x2c4f90…2c5124 Dummy {f00=0x00de, f01=0x4120, f02=» Q, P Q R Q& Q W %P ?R KP uV T T H D ! Wj V W P6 GP2 MT UP` ]P ePP W P" R W U R* P > H D !H U 4 W T 4 )P /R mU uP V V P U P W P 0 , 0 T W 4 P %T )W /T =T0 YR
0x2c5124…2c52b8 Dummy {f00=0x00de, f01=0x0190, f02=» B @ IDENT PAD REL 11.0 DK 82-09-28 870150541100 H D ! PACK UNPACK UNPSYS GETBUF RELBUF PAID BUFADR PACKSY SAVE1 J REST1 PACK SCRINF , ( @ P , ! V WRAP ,
0x2c52b8…2c544c Dummy {f00=0x00de, f01=0x0190, f02=» P T _$ | UNPACK LMP3ON 0 , ( {@ : O N !VVT B LINE r , ( P O ATMASB , ( T N X W , (
0x2c544c…2c55e0 Dummy {f00=0x00de, f01=0x0190, f02=» ICSET ICWRT , ( - T O $ ERASE T , ( K @ W P d ERASUP , ( g W W O W , ( O : R
0x2c55e0…2c5774 (3, 99) Dummy {f00=0x00df, f01=0x0190, f02=» O W O H * O LINWRP ( LINATT : , ( @ X ! P - L , ( @ : O W H '??F | , ( 5 O W H "? O V , ( S W : O
0x2c5774…2c5908 Dummy {f00=0x00df, f01=0x0190, f02=» j , ( : O W H '??F , ( O W H "? V O : , ( W O - X ) Y j , ( # W : O W H , ( C '??F O W H "? O ERASUA
0x2c5908…2c5a9c Dummy {f00=0x00df, f01=0x0190, f02=» j PACKSY UNPSYS , ( : : : : R V W 2 ERROR b , ( V " O ( : r , ( V " # : V "" PAID BUFADR " CONADR ,
0x2c5a9c…2c5c30 Dummy {f00=0x00df, f01=0x0190, f02=» j SOUND , ( o > : N ' P &! P N COPY J COPP Z SAVE1 j , ( !VVT (W * : W | , ( % % % % % % REST1 , ( : W $
0x2c5c30…2c5dc4 Dummy {f00=0x00df, f01=0x0190, f02=» : v <P _ # : H D ! ) PH V %W -PJ =T I MT0 S " [P iP m qT T 8 H D !_ T W r & ~ * < H D ! @ R P W Pd P> PL !T* %Wj -T SWB gW sW"
0x2c5dc4…2c5f58 Dummy {f00=0x00df, f01=0x40c2, f02=» T P P T WV WD V0 h H D ! W, -W ?WP QW> gV" W W" W R V W V V V KV $ 8 4 ! SR kP u P P T W W W T P p " @ H D ! @ R P W Pd P> PL !T* %Wj -T SWB gW sW"
0x2c5f58…2c60ec Dummy {f00=0x00df, f01=0x8190, f02=» B @ IDENT PRINT REL 11.0 DK 82-05-26 870150541100 PRINT COPP J PRINT ` , ( TT LL GG CC # # # # (@P r OPEN CONCT , ( ! ( O SETTYM , (
0x2c60ec…2c6280 Dummy {f00=0x00df, f01=0x8190, f02=» _, N P N T O , ( @ N T O N ( , ( T O : T O W X , ( T O O W T O O GETBUF , ( : P N P READW
0x2c6280…2c6414 (3, 100) Dummy {f00=0x00df, f01=0x818e, f02=»CREAD , ( K O : , ( iA : N D P > ICWRT n COPP ~ , ( : O ( : ATMASB , ( O N !8 ! P =d T , (
0x2c6414…2c65a8 Dummy {f00=0x00df, f01=0x8190, f02=» , ( ! 9AR ! 1 P W # , ( A _d P @ P 4 , ( a P @ O : d , ( , ( : T N D N R P , ( O N
0x2c65a8…2c673c Dummy {f00=0x00df, f01=0x8190, f02=» : N !010T N !@T , ( A P T W P $ , ( a : T N !010T "@T T , ( B C $ ! T B , ( P _ B B C , ( ( 2 ( "R
0x2c673c…2c68d0 Dummy {f00=0x00df, f01=0x8190, f02=» h , ( P @ %P . O ( D , ( = O : ( B ! P N 8 , ( ] " 0:B V M d( h , ( Q } _6 P M : @ n p %P @ $ @ @ P _ N $ : H D ! P ! 7 D S | a s D
0x2c68d0…2c6a64 Dummy {f00=0x00df, f01=0xc156, f02=» Tj P6 R W, R W TD R #R$ +P 1W MP Q d WP H D ! _ d cP s u w y } D H D ! " d , T6 R P d T , T P T 5T =T H D ! AP IT OW WP [ d oT {Tz Tv T P
0x2c6a64…2c6bf8 Dummy {f00=0x00df, f01=0x0190, f02=» @ @ IDENT CONVER REL 11.0 DK82-04-01 870150541100 4 0 CONASC CONEBC CONATT CONADR CONPF CONORD H CONASC , ( , ( ! 1 , ( A ABCDEFGHI$.
0x2c6bf8…2c6d8c Dummy {f00=0x00df, f01=0x0190, f02=»uvwxyz|,%_>?0123456789:#@'=" , ( {ABCDEFGHI[.<(+!}JKLMNOPQR]$*);^ $ CONEBC T , ( /STUVWXYZ|,%_>?0123456789:#@'= h , ( 7-./ O<=2&p ?' , ( ! @Z {JlP}M] Nk`Ka z^L~no , ( A |
0x2c6d8c…2c6f20 Dummy {f00=0x00df, f01=0x0190, f02=» l , ( @O JZlP}M] Nk`Ka z^L~no , ( j {|[_m < CONADR l , ( , ( ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^ CONPF @ , ( ! -/STUVWXYZ@,%_
0x2c6f20…2c70b4 (3, 101) Dummy {f00=0x00df, f01=0x4014, f02=» x @ @O JZlP}M] Nk`Ka z^L~no , ( j {|[_m < CONADR l , ( , ( ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^ CONPF @ , ( ! -/STUVWXYZ@,%_
0x2c70b4…2c7248 Dummy {f00=0x00df, f01=0x4110, f02=» > @ IDENT FMOVE P,REL=11.0,810128,870136941100 FMOVE F FMOVE V I:EVA0 h I:EVA5 z , ( B & + P I:RT1 _ P (
0x2c7248…2c73dc Dummy {f00=0x00df, f01=0x40cc, f02=» > @ IDENT TYPET P,REL=11.0,810128,870136941100 TYPET F TYPET V I:EVA0 h I:RT1 z ( $ D ;d # + @ :RT1 RETURN TO INTERPRETER P END @
0x2c73dc…2c7570 Dummy {f00=0x00df, f01=0x40fc, f02=» > @ IDENT ICLEAR P,REL=11.0,810128,870136941100 ICLEAR F ICLEAR X I:EVA0 l I:RT1 ~ , ( @ #0 0T ' ' _ T $ @
0x2c7570…2c7704 Dummy {f00=0x00df, f01=0x411c, f02=» > @ IDENT EMPTYT P,REL=11.0,810128,870136941100 EMPTYT F EMPTYT X I:EVA0 l , ( @ #0 0T & ! T ~ I:RT1 , ( P & ! X T C T T !P
0x2c7704…2c7898 Dummy {f00=0x00df, f01=0x0190, f02=» > @ IDENT T:STIN P,REL=11.0,810128,870136941100 STRIN1 F STRIN1 X T:STEV l , ( @ X x & Y " X R ~ T:RNOK , ( W R P _ Y $ T:LOFS I:E
0x2c7898…2c7a2c Dummy {f00=0x00df, f01=0x0190, f02=» h , ( u [ z [ }T 0W 3R V : , ( %W X $ X " R W V 8 , ( R W V % _ [ h I:MOV , ( " D $ D Z P Z T:GRFC , ( @ % z " * {
0x2c7a2c…2c7bc0 Dummy {f00=0x00df, f01=0x402e, f02=» V P @ *
0x2c7bc0…2c7d54 (3, 102) Dummy {f00=0x00df, f01=0x0190, f02=» > @ IDENT T:STOU P,REL=11.0,810128,870136941100 STROU1 F STROU1 X T:STEV l T:LOFS ~ * & @ X x & Y " I:EVA0 T:LOPS , ( !0P <
0x2c7d54…2c7ee8 Dummy {f00=0x00df, f01=0x40fe, f02=»R W V r T:DUPX T:GRFC $ , ( y & Y $ 8 " X X 6 T:ROK f T:RNOK v $ x ( y $ 4 0 1P< ;T( AT GW$ WP cW mW wP R W V, @ !0P <
0x2c7ee8…2c807c Dummy {f00=0x00df, f01=0x40f4, f02=» > @ IDENT T:STEV P,REL=11.0,810128,870136941100 T:STEV F T:STEV X T:GRFC l I:EVA0 ~ , ( H Y Y & ( : & @ P RTN PS P I
0x2c807c…2c8210 Dummy {f00=0x00df, f01=0x0190, f02=» > @ IDENT T:EDFL P,REL=11.0,810128,870136941100 T:EDFL F T:EDFL X T:PRKB l T:PRDY ~ T:PM1 T:PM2 T:CASP , ( I$ Y , ( ( x P Y *
0x2c8210…2c83a4 Dummy {f00=0x00df, f01=0x0190, f02=» X 0 v , ( s P X T 5 ! Y * T:SCUW F T:CLRD X , ( y X V X X ( j , ( x C ( Y * , ( X Y , X X C & , ( C
0x2c83a4…2c8538 Dummy {f00=0x00df, f01=0x018e, f02=» X l , ( I *YrP y X " x Y X " T T:BELL < , ( i Y _ _ B U C Q N T:CLR1 ~ T:CLR2 , ( P C D X , ( X * $" ~_> @ Y X * _R X , (
0x2c8538…2c86cc Dummy {f00=0x00df, f01=0x0190, f02=» , ( ! @ " X # X * y _< X , ( ? # X * y X 1 1 4 , ( ] X !@T X $ " P y d T:CLIT T:EKEY , ( } @ _ x T X H , ( X X * , )$ P
0x2c86cc…2c8860 Dummy {f00=0x00df, f01=0x405c, f02=»T {U Q < V P eT uP T P F@ X
0x2c8860…2c89f4 (3, 103) Dummy {f00=0x00e0, f01=0x0190, f02=» > @ IDENT T:DYKI P,REL=11.0,810128,870136941100 J F " T:DYKI T:PM1 T:PM2 T:CLR1 T:CLIT T:CLR2 T:IOER T:EKEY T:BELL F T:DYKI T:PRKB T:PRDY I:EVA7 * & H ' Y
0x2c89f4…2c8b88 Dummy {f00=0x00e0, f01=0x0190, f02=» X l T:CASP * & y ! T _ y C Q " T T:CLRD L , ( X ! X ^ , ( X ! x Y~ Y _ X "@P B , ( R y C B P 9 V _F9 , ( V X ! T X !@X
0x2c8b88…2c8d1c Dummy {f00=0x00e0, f01=0x0190, f02=» B y " y $ c C T:CLR1 X & T:CLR2 f : T:SCUW N , ( Q _$ _ y _6 ( x X@ X ` , ( qA X # C _. B , ( ]d P C Q X8_H x XD @ Y , ( c C y
0x2c8d1c…2c8eb0 Dummy {f00=0x00e0, f01=0x0190, f02=» T:IOWR , ( # B P B C : T:CLIT : F , ( ' + X Z T:LOFS I:EVA0 T:LOPS T:CLMI , ( A ( ( T:P
0x2c8eb0…2c9044 Dummy {f00=0x00e0, f01=0x4104, f02=» , ( B Y Y . : & " " $ : 8 H D ! ! n # aTf i mR s J }T Q T Z P R P V b < 8 ` VV T 'P +Q( [ * P Q8 Z P & a j {V P @ T:P
0x2c9044…2c91d8 Dummy {f00=0x00e0, f01=0x0190, f02=» > @ IDENT T:UPDF P,REL=11.0,810128,870136941100 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x2c91d8…2c936c Dummy {f00=0x00e0, f01=0x4032, f02=» =T P @ .870136941100 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x2c936c…2c9500 Dummy {f00=0x00e0, f01=0x018e, f02=» > @ IDENT T:DUPL P,REL=11.0,810128,870136941100 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x2c9500…2c9694 (3, 104) Dummy {f00=0x00e0, f01=0x4052, f02=» UD : CT OV $ ` <@ N:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x2c9694…2c9828 Dummy {f00=0x00e0, f01=0x4140, f02=» > @ IDENT T:GETC P,REL=11.0,810128,870136941100 T:GETC F T:GETC X T:GRFC l I:EVA0 ~ , ( @ 2' R P P X I:RT1 , ( ' ' X _ X ' _ X '? ;
0x2c9828…2c99bc Dummy {f00=0x00e0, f01=0x4124, f02=» > @ IDENT T:GETA P,REL=11.0,810128,870136941100 T:GETA F T:GETA X T:GRFC l I:EVA0 ~ T:RNOK T:ROK , ( H X ' X ! T:RCR H
0x2c99bc…2c9b50 Dummy {f00=0x00e0, f01=0x410e, f02=» > @ IDENT T:TSTC P,REL=11.0,810128,870136941100 T:TSTC F T:TSTC X T:GRFC l , ( @ X " 9b! X :c 2" ~ T:RTES $ H @ % , 4 @
0x2c9b50…2c9ce4 Dummy {f00=0x00e0, f01=0x0190, f02=» > @ IDENT T:TFWD P,REL=11.0,810128,870136941100 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
0x2c9ce4…2c9e78 Dummy {f00=0x00e0, f01=0x4132, f02=» Y ( Y 09H Y * T:TABE * & = Y 4 Y 2 Y 69h Q X :h Y 0 2 T:SCR2 ` T:TABC r , ( [ W U X Q W Y 0 T:TABN w 8 4 W W W W W W !W MQ ]W
0x2c9e78…2ca00c Dummy {f00=0x00e0, f01=0x0190, f02=» > @ IDENT T:DISP P,REL=11.0,810827,870136941100 T:PRIN T:DISP T:ERAS F T:PRIN h T:GDSP | T:DSM T:EDWI T:GRFC , ( D 9H Y T:GTIP T
0x2ca00c…2ca1a0 Dummy {f00=0x00e0, f01=0x0190, f02=» 0 X +" X *9h P R , ( Q Y ?_ P P Y +W T:TABD P , ( q Y + W T W b , ( Q W Y + U T:TABC , ( Q P W W Y ( C T
0x2ca1a0…2ca334 (3, 105) Dummy {f00=0x00e0, f01=0x4134, f02=» h , ( 0 X 0 X 2] X 8 Y 0 : , ( # X 0 :H* : X 2T Y 2 : 8 T:EDIO h $ C @ C 1 B ] : z H D ! !W %W KP2 OR YP _P gW^ k < w . }WL T . W> Q W , ( U Q P W W
0x2ca334…2ca4c8 Dummy {f00=0x00e0, f01=0x0190, f02=» > @ IDENT T:GETF P,REL=11.0,810128,870136941100 T:GETF T:GTIT T:GTIP F T:GETF h T:PRDY | , ( @ X +! U 9K Y ( Y T:TABC T:TABN T:GTIT ( T:GRFC
0x2ca4c8…2ca65c Dummy {f00=0x00e0, f01=0x405a, f02=» 0 p W 6 2 : ! ( U ! 0 d ! D@ ! V:GTIP F T:GETF h T:PRDY | , ( @ X +! U 9K Y ( Y T:TABC T:TABN T:GTIT ( T:GRFC
0x2ca65c…2ca7f0 Dummy {f00=0x00e0, f01=0x8190, f02=» > @ IDENT T:REWR P,REL=11.0,810128,870136941100 " . * T:REWR T:SCUW T:CLRD T:IOWR T:CASP " F T:IOWR " x T:SCUW " , ( C ( C : " T:CLRD * " T:REWR 0 " T:PRDY " ,
0x2ca7f0…2ca984 Dummy {f00=0x00e0, f01=0xc160, f02=» _ X D D : K " I:EVA3 # 0 I:EPIC # B , ( } $ + Q 2 P P # T T:LOPS # , ( ( B X # V # I:EVA0 # I:ECPY # I:EVI # , ( :
0x2ca984…2cab18 Dummy {f00=0x00e0, f01=0x0190, f02=» > @ IDENT T:DEDT P,REL=11.0,810827,870136941100 . * T:TABC T:TABD T:TABE T:TABN T:SCR2 F I:EVNO x I:ESKI I:EVA0 I:EBRI I:EBRB I:EBR , (
0x2cab18…2cacac Dummy {f00=0x00e0, f01=0x0190, f02=» z T:DSL I:RET * T:TABC , : T:TABD 0 N T:TABE 4 b , ( ! W W v , ( 5 X 0Q Y ( Y *P T:EDWI I:EVT I:EDSK ,
0x2cacac…2cae40 Dummy {f00=0x00e0, f01=0x0190, f02=» P X 0P V _` " P T T:LOPS , , ( & (W " P Y 0] > T:EOR n * & Y (_t " X _. X *# T ~ T:EDWF , ( *W , B 1 ,W T:SCR2 , (
0x2cae40…2cafd4 (3, 106) Dummy {f00=0x00e0, f01=0x40d4, f02=» , ( ; (T W X y 6 Y ( : X (;n [@ 0 8 H D ! /W 3W ;Q ? C OP Qv P P: Vv P4 T WZ P T W N W P !P 5W =T AW ^ @ 1 ,W T:SCR2 , (
0x2cafd4…2cb168 Dummy {f00=0x00e0, f01=0x8190, f02=» > @ IDENT T:ENLI P,REL=11.0,810615,870136941100 T:DNL T:DSL F I:EVNO I:ECPY n I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR * &
0x2cb168…2cb2fc Dummy {f00=0x00e0, f01=0x8190, f02=» I:ESKI . I:EXPY @ I:RET R I:ATTR b T:DSL , t T:GRFC , ( ! H " $ & ( Y . T:DNL : , ( 5 Y ,W ( Y . X ( X ." P X
0x2cb2fc…2cb490 Dummy {f00=0x00e0, f01=0xc190, f02=» . l I:ECTR , ( X . X 2Q Y *T 0 : " , ( P X 0U X *# P P T N T:ENIN ~ * & @ " T : Y . 2 Y ( , ( ( Y *T " T ! 1 W ! ) 0 : H
0x2cb490…2cb624 Dummy {f00=0x00e0, f01=0x0190, f02=» > @ IDENT T:EINP P,REL=11.0,810827,870136941100 " T:PKI T:PINP T:TKI T:TINP F T:PKI l T:PINP ~ T:GRFC I:ETAB I:EVIN , ( I P & , ( Y *T
0x2cb624…2cb7b8 Dummy {f00=0x00e0, f01=0x0190, f02=»Q X &P V D ! P | T:TINP T:TKI 0 * & u $ ! P %_ : B , ( V Y " X .9H $ p , ( P & X ( " Q Y +Q R , ( " P W " U Y , " Q X . , (
0x2cb7b8…2cb94c Dummy {f00=0x00e0, f01=0x0190, f02=» M X (# P X # :! R W T:ENIN 0 T:ENI B * & m T @ Y (W Y , W R I:EXIT , ( Y ( : X *:h X (! , ( # P X & V L T W X , X 0 , ( P T X *
0x2cb94c…2cbae0 Dummy {f00=0x00e0, f01=0x0190, f02=» , ( @ % P Y 8 & X 8 X $ , ( E@ W _ " P X ( T X & V 4 , ( c H "@T P V Y d , ( X (P X ( T:CLMI , ( P 8 Y 0 X 2P X , (
0x2cbae0…2cbc74 (3, 107) Dummy {f00=0x00e1, f01=0x0190, f02=» P : : x , ( "0P $ T W %T , ( ; : : Y ( X $ Y X " Y X & H , ( [ Y X < Y > : Y : X : x , ( y X ( T X & V H " V T:SPAC X $ : H D !
0x2cbc74…2cbe08 Dummy {f00=0x00e1, f01=0x4100, f02=» 3P< R H D ! 7 @ 9WZ IP< KQ SP2 aR$ cW g @ k oT$ wW W P Tb W P@ H D ! T, T @ P !P* ) -P| IWh QP [T kTF o sP6 P h Z @ < A P P V T P P #P )T -W 1T T V @ H D !
0x2cbe08…2cbf9c Dummy {f00=0x00e1, f01=0x0190, f02=» > @ IDENT T:ENIN P,REL=11.0,810128,870136941100 1 T:ENIN T:ENI T:EVOU 1 F T:ENIN 1 f T:ENI 1 z , ( X Y " X Y $ X Y & X >W X 1 T:LOFS 1 , ( ! < Y = " 1 I:EGTB
0x2cbf9c…2cc130 Dummy {f00=0x00e1, f01=0x0190, f02=» X (P 1 n T:WRDY 2 , ( W X & V D ! P @ W X 2 , ( W Y ( : X , Y X $ Y 2 P , ( X &T Y Y Y W V $ 2 , ( :H D Y D :H Y ! P V 2 I:EVA0 2 I:EVA1 2 , (
0x2cc130…2cc2c4 Dummy {f00=0x00e1, f01=0x411a, f02=» 2 , ( Q : 2' " P T 3 I:EVA3 3 8 I:EPIC 3 J , ( mD W : N : 3 H D ! W CT IW SP a mT" }T W4 W, P W" P W W T WD 3 ( $ P W )P /W A X aP gT qW 3
0x2cc2c4…2cc458 Dummy {f00=0x00e1, f01=0x415c, f02=» > @ IDENT T:SETC P,REL=11.0,810128,870136941100 4 T:SETC T:SCUR 4 F T:SETC 4 ` T:PRDY 4 t T:GRFC 4 T:EDWI 4 T:RCTS 4 , ( H C 4 T:SCUR 4 T:WRD
0x2cc458…2cc5ec Dummy {f00=0x00e1, f01=0x40e2, f02=» > @ IDENT T:CLMI P,REL=11.0,810128,870136941100 5 T:CLMI 5 F T:CLMI 5 X , ( "0P ' Q W ' 5 l ! Y : 5 P Q W 5 ( 5 @ 5 A2,0 PCLRM20 EQU * P SCR
0x2cc5ec…2cc780 Dummy {f00=0x00e1, f01=0x0190, f02=» > @ IDENT T:ATTF P,REL=11.0,810827,870136941100 J F " T:ATTF T:DETF T:ROK T:RNOK T:RCR T:RCTS T:RTES T:GRFC T:WRDY F . * T:PRKB T:PRDY T:ADDY T:SPAC T:CHBU T:DETF T:ATTF I:EVA6 I:FFS
0x2cc780…2cc914 (3, 108) Dummy {f00=0x00e1, f01=0x0190, f02=»TES : , ( Y Y Y < V E B T:RNOK < > T:GRFC @ R T:WRDY H f T:EDIO z * & ; X _ v : C C T:SPAC T:CHBU n , ( Y : H C : +
0x2cc914…2ccaa8 Dummy {f00=0x00e1, f01=0x4080, f02=» W @ X B ; [ Z : : . ` W @ _ n W N j@ |DIO z * & ; X _ v : C C T:SPAC T:CHBU n , ( Y : H C : +
0x2ccaa8…2ccc3c Dummy {f00=0x00e1, f01=0x0190, f02=» > @ IDENT T:LSEG P,REL=11.0,810128,870136941100 9 & " T:LOFS T:LOPS T:LSEG T:CSEG 9 F T:LSEG 9 p T:CSEG 9 , ( ( R : V E V D ' 9 , ( ! $ T ( W P 9 I:RT1 9
0x2ccc3c…2ccdd0 Dummy {f00=0x00e1, f01=0x401a, f02=» f : @ : G P,REL=11.0,810128,870136941100 9 & " T:LOFS T:LOPS T:LSEG T:CSEG 9 F T:LSEG 9 p T:CSEG 9 , ( ( R : V E V D ' 9 , ( ! $ T ( W P 9 I:RT1 9
0x2ccdd0…2ccf64 Dummy {f00=0x00e1, f01=0x4146, f02=» > @ IDENT T:DC00 P,REL=11.0,810128,870136941100 ; DCREAD DCWRTE DCEXCH ; F T:FDS0 ; h DCREAD ; z T:DCR1 ; DCWRTE ; T:DCW1 ; DCEXCH ; T:DCE1 ; , ( I$
0x2ccf64…2cd0f8 Dummy {f00=0x00e1, f01=0x40aa, f02=» > @ IDENT T:SWI0 P,REL=11.0,810128,870136941100 < SWITCH < F T:SWIT < X SWITCH < j @ < ~ < @ < ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x2cd0f8…2cd28c Dummy {f00=0x00e1, f01=0x40da, f02=» > @ IDENT T:TEI0 P,REL=11.0,810128,870136941100 = TESTIO ABORT = F T:TEST = ^ TESTIO = p T:ABOR = ABORT = H = = @ = . P*
0x2cd28c…2cd420 Dummy {f00=0x00e1, f01=0x40de, f02=» > @ IDENT T:CLO0 P,REL=11.0,810128,870136941100 > SETTIM GETTIM > F T:SETT > ` SETTIM > r T:GETT > GETTIM > H > > @ > . P*
0x2cd420…2cd5b4 (3, 109) Dummy {f00=0x00e1, f01=0x40a6, f02=» > @ IDENT T:DEL0 P,REL=11.0,810128,870136941100 ? DELAY ? F T:DELA ? V DELAY ? h @ ? z ? @ ? * ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x2cd5b4…2cd748 Dummy {f00=0x00e1, f01=0x40aa, f02=» > @ IDENT T:GTI0 P,REL=11.0,810128,870136941100 @ GETTID @ F T:GETI @ X GETTID @ j @ @ ~ @ @ @ ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x2cd748…2cd8dc Dummy {f00=0x00e1, f01=0x0190, f02=» > @ IDENT T:DC P,REL=11.0,810128,870136941100 A 6 2 T:DCRE T:DCR1 T:DCWR T:DCW1 T:DCEX T:DCE1 A F T:DCRE A T:GDSP A T:DCR1 A T:DCWR A T:DCW1 A T:EDIO A , ( @@ /
0x2cd8dc…2cda70 Dummy {f00=0x00e1, f01=0x40ca, f02=»:EVA0 A , ( 7 ' / C B , ( Q$ C B > & " k &P C & C : B n V W V 1 V B B @ B T:DCW1 A T:EDIO A , ( @@ /
0x2cda70…2cdc04 Dummy {f00=0x00e1, f01=0x40b6, f02=» > @ IDENT T:SWI P,REL=11.0,810128,870136941100 C T:SWIT C F T:SWIT C X I:RT1 C l ( C | C @ C E LEVEL P* PT:SWIT EQU * P LDK A7,0 " P SU PP,CSB,TCA GET
0x2cdc04…2cdd98 Dummy {f00=0x00e1, f01=0x4174, f02=» > @ IDENT T:TEI P,REL=11.0,810128,870136941100 D T:TEST T:ABOR D F T:TEST D ` T:GDSP D t I:RT1 D T:ABOR D * & @ "Q V I D T:KIAA D , ( ( T
0x2cdd98…2cdf2c Dummy {f00=0x00e1, f01=0x4178, f02=» > @ IDENT T:CLO P,REL=11.0,810128,870136941100 E & " T:SETT T:GETT T:SETD T:GETD E F T:SETT E p I:EVA0 E I:RT1 E T:GETT E * & @ ( E T:SETD . E , (
0x2cdf2c…2ce0c0 Dummy {f00=0x00e1, f01=0x40d0, f02=» > @ IDENT T:DEL P,REL=11.0,810128,870136941100 F T:DELA F F T:DELA F X I:EVA0 F l I:RT1 F ~ ( $ @ ( F F @ F RY * P LDK WK1,2 NOT BINARY; SET ERROR CODE P
0x2ce0c0…2ce254 (3, 110) Dummy {f00=0x00e1, f01=0x40cc, f02=» > @ IDENT T:MSK0 P,REL=11.0,810128,870136941100 G MASK G F MASK G V I:EVA0 G h I:RT1 G z ( $ D V G G @ G TYPE? P RF(NZ) MSK010 NOT BINARY P XIF P
0x2ce254…2ce3e8 Dummy {f00=0x00e1, f01=0x0190, f02=» > @ IDENT T:SCD P,REL=11.0,810224,870136941100 T:ACTV T:PAUS T:RSTR F T:ACTV h , ( 2 ;B P J | P:BAS I:NTPB , ( ! T ( T:BAT
0x2ce3e8…2ce57c Dummy {f00=0x00e1, f01=0x408e, f02=» ( W V x I:RT1 y V I ( ( $ ( P0 #T + X ?W6 I X WW uW V L x@ P J | P:BAS I:NTPB , ( ! T ( T:BAT
0x2ce57c…2ce710 Dummy {f00=0x00e1, f01=0x0190, f02=» > @ IDENT T:UNUS P,REL=11.0,810224,870136941100 T:UNUS F T:UNUS X , ( 2 ' >A >A 2 $ l P:MTAB , ( ! V L ;a ; R @ ( 8 , ( ? ? X Q ( V )<B
0x2ce710…2ce8a4 Dummy {f00=0x00e1, f01=0x402a, f02=» 5RF OQ0 @ &,810224,870136941100 T:UNUS F T:UNUS X , ( 2 ' >A >A 2 $ l P:MTAB , ( ! V L ;a ; R @ ( 8 , ( ? ? X Q ( V )<B
0x2ce8a4…2cea38 Dummy {f00=0x00e1, f01=0x4096, f02=» > @ IDENT T:EXIT P,REL=11.0,810128,870136941100 N T:EXIT N F T:EXIT N X ( N l N @ N KM P DATA 3 P* P END @ LDKL A6,-1 P ABL T:UERR END @ P ADR
0x2cea38…2cebcc Dummy {f00=0x00e1, f01=0x413a, f02=» > @ IDENT T:GTCW P,REL=11.0,810128,870136941100 O GETCW O F T:GDSP O V GETCW O h I:EVA0 O z T:BINB O * & H V 0V B B O T:GTCW O I:RT1 O W
0x2cebcc…2ced60 Dummy {f00=0x00e1, f01=0x40cc, f02=» > @ IDENT T:GTID P,REL=11.0,810128,870136941100 P T:GETI P F T:GETI P X I:EVA0 P l I:RT1 P ~ $ @ V G 9h ' P P @ P VALUE " P SC WK1,1,OP2A STORE FOR USER P SRL WK1
0x2ced60…2ceef4 (3, 111) Dummy {f00=0x00e2, f01=0x4184, f02=» > @ IDENT T:DMR P,REL=11.0,810128,870136941100 & " T:DREA T:IREA T:XREA T:IXID F T:DREA p T:REAX T:SCW2 T:IO2 T:IREA , ( $ T:XREA
0x2ceef4…2cf088 Dummy {f00=0x00e2, f01=0x0190, f02=» > @ IDENT T:DMW P,REL=11.0,810128,870136941100 > : T:SWRI T:DWRI T:IWRI T:XWRI T:DREW T:CREW T:IREW F T:SWRI T:WRIX T:IO1 T:XWRI T:DWRI , ( / W
0x2cf088…2cf21c Dummy {f00=0x00e2, f01=0x40a2, f02=» T:CREW > T:IREW L , ( 5D" / / ( M X W | @ RIX T:IO1 T:XWRI T:DWRI , ( / W
0x2cf21c…2cf3b0 Dummy {f00=0x00e2, f01=0x416a, f02=» > @ IDENT T:DMDI P,REL=11.0,810128,870136941100 T:DDIS T:CDIS T:IDIS F T:DDIS h T:DSB | T:SCW2 T:IO2 T:CDIS , ( $ C <H / T:IDIS
0x2cf3b0…2cf544 Dummy {f00=0x00e2, f01=0x4162, f02=» > @ IDENT T:DMPO P,REL=11.0,810128,870136941100 T:DPOS T:IPOS F T:DPOS ` T:DSB t T:SCW2 T:GTBY T:IO2 , ( H@ C <H / T:IPOS T:WRIX
0x2cf544…2cf6d8 Dummy {f00=0x00e2, f01=0x0190, f02=» > @ IDENT T:DCC P,REL=11.0,810128,870136941100 X F B T:COPE T:COP1 T:CCLO T:CCL1 T:CCL2 T:ACON T:ACO1 T:ACO2 X F F B T:ACO3 T:PCON T:PCO1 T:PCO2 T:DISC T:DIS1 T:DIS2 T:DIS3 X T:DIS4 T:OPT X T:COPE X
0x2cf6d8…2cf86c Dummy {f00=0x00e2, f01=0x018e, f02=» T:CCLO " X T:CCL1 & Y T:CCL2 * Y & , ( W W /" C Y : T:ACON P Y j T:ACO1 T Y ~ , ( 7 C C P P _2 W Y T:ACO2 X Y T:ACO3 Y T:PCON f Y T:PCO1
0x2cf86c…2cfa00 Dummy {f00=0x00e2, f01=0x0190, f02=» T:DIS3 Z T:DIS4 Z , ( s /'W W W W W Z , T:STCW Z , ( // C C C P P Z n * & C P P Z T:OPT Z I:EVA0 Z &<H
0x2cfa00…2cfb94 (3, 112) Dummy {f00=0x00e2, f01=0x400c, f02=» Z @ [ 3 Z T:DIS4 Z , ( s /'W W W W W Z , T:STCW Z , ( // C C C P P Z n * & C P P Z T:OPT Z I:EVA0 Z &<H
0x2cfb94…2cfd28 Dummy {f00=0x00e2, f01=0x0190, f02=» > @ IDENT T:DCR P,REL=11.0,810128,870136941100 & " T:RECE T:REC1 T:AREC T:ARE1 F T:RECE p T:REC1 T:REAX T:OPT T:IO2 , ( W C C P T:AREC
0x2cfd28…2cfebc Dummy {f00=0x00e2, f01=0x403a, f02=» v W P #W 3P ] D ] $@ ] 61100 & " T:RECE T:REC1 T:AREC T:ARE1 F T:RECE p T:REC1 T:REAX T:OPT T:IO2 , ( W C C P T:AREC
0x2cfebc…2d0050 Dummy {f00=0x00e2, f01=0x0190, f02=» > @ IDENT T:DCS P,REL=11.0,810128,870136941100 ^ & " T:SEND T:SEN1 T:ASEN T:ASE1 ^ F T:SEND ^ p T:SEN1 ^ T:WRIX ^ T:OPT ^ * & W / C C P ^ T:IO1 ^ T:ASEN " ^
0x2d0050…2d01e4 Dummy {f00=0x00e2, f01=0x403e, f02=» _* ^ t W P %W 7P _ H _ (@ _ : ^ & " T:SEND T:SEN1 T:ASEN T:ASE1 ^ F T:SEND ^ p T:SEN1 ^ T:WRIX ^ T:OPT ^ * & W / C C P ^ T:IO1 ^ T:ASEN " ^
0x2d01e4…2d0378 Dummy {f00=0x00e2, f01=0x018e, f02=» > @ IDENT T:IO P,REL=11.0,810803,870136941100 J F " T:WRIT T:READ T:SREA T:KI T:NKI T:EDWR T:DSC0 T:DSC1 T:DSC2 F H D ! T:EDWE T:EDWF T:EDWI T:EDIO T:XSTA T:WAIT T:IO1 T:IO2 T:IO3 D @ T:IO5 T:FDS0 T:FDSP T:GDSP T:KIPR
0x2d0378…2d050c Dummy {f00=0x00e2, f01=0x0190, f02=» p T:KI T:NKI T:WRIT , T:WRIL @ T:LWRI T , ( W / h T:WRIX " T:WRIO & I:EVA0 , ( ! _ C P <H T:S
0x2d050c…2d06a0 Dummy {f00=0x00e2, f01=0x0190, f02=» V C / <H : C T:DSC1 " , ( } C W C 9HR 6 T:DSC2 f , ( ' W 781"&$ 39#$;< '()*+,-! z T:XSTA , ( P _J T:WAIT T:M
0x2d06a0…2d0834 (3, 113) Dummy {f00=0x00e2, f01=0x0190, f02=» ( v , ( 7 0 W T:IO1 F T:IO2 ` X T:IO3 d j T:IO5 p | T:IORE t , ( W : 1W C C ( ' P T:GCW2 , ( w @ P V ,V W B
0x2d0834…2d09c8 Dummy {f00=0x00e2, f01=0x0190, f02=» I:EDW , ( B P B P B 5 : T:EDWE > T:EDWF R , ( @ C C C B f T:EDWI , ( B P C : V I C T:EDIO , ( B : (
0x2d09c8…2d0b5c Dummy {f00=0x00e2, f01=0x018e, f02=» & R r , ( i V C : B T:FDS0 B , ( T T T V : 2 V T:GDSP P:MTAB I:EVTO * & ' W 2 6 2 @ & " T # ' ?D I:FML , ( @
0x2d0b5c…2d0cf0 Dummy {f00=0x00e2, f01=0x0190, f02=» , ( : _: L C L C T:DSB , 8 T:FDSP 6 J , ( B C : : ^ T:GTBY P , ( ? : C : : T:SCW2 T:DSCX n I:EVA2 ,
0x2d0cf0…2d0e84 Dummy {f00=0x00e2, f01=0x414e, f02=» : H D !~ W 6 d " % , - @ 1P G L K ` O , S @ _P eV u , y P H D !V W R W @ P W W| P [W sP0 H D ! w }P& V W P z P P P )P - z @ < 9 , = @ cR iV
0x2d0e84…2d1018 Dummy {f00=0x00e2, f01=0x0190, f02=» > @ IDENT T:CW P,REL=11.0,810615,870136941100 F B T:GCW2 T:GTCW T:SCW2 T:STCW T:SCW0 T:BCDB T:BINB T:KIAA F T:KIAC T:STCW I:EVA2 T:SCW0 , ( @ #0 T & C C : C
0x2d1018…2d11ac Dummy {f00=0x00e2, f01=0x0190, f02=» X R _ S W T:GTCW , ( 4 _T :#0 T B 'W B B 4 T:BINB d , ( " : x , ( P P L R R , ( _ R _ # Q R , (
0x2d11ac…2d1340 Dummy {f00=0x00e2, f01=0x0190, f02=» h , ( _ B@ ' d w5 1 T:KIAA 8 T:KIAC L T:GCW2 ` , ( #0 T t T:SCW2 , ( @ B ' : B B : V C , ( @ P C #0 T &
0x2d1340…2d14d4 (3, 114) Dummy {f00=0x00e2, f01=0x404e, f02=» X R R Q P 'P 7P GR T P T 8@ J T:KIAC L T:GCW2 ` , ( #0 T t T:SCW2 , ( @ B ' : B B : V C , ( @ P C #0 T &
0x2d14d4…2d1668 Dummy {f00=0x00e2, f01=0x40d0, f02=» > @ IDENT T:LEN P,REL=11.0,810128,870136941100 l GETLEN l F GETLEN l X I:EVA0 l l I:RT1 l ~ ( $ A #03 1 l l @ l XIF * % LDR A4,OP2A SAVE ADDR. TO RETURNITEM
0x2d1668…2d17fc Dummy {f00=0x00e2, f01=0x0190, f02=» > @ IDENT T:ADIT P,REL=11.0,810128,870136941100 m & " T:RREA T:RRE1 T:RWRI T:RWR1 m F T:RREA m p T:DSB m T:RRE1 m I:EVA0 m T:STCW m , ( A &P C m T:IO2 m
0x2d17fc…2d1990 Dummy {f00=0x00e2, f01=0x4034, f02=» : m t 6 + 6 n F n @ n 0
0x2d1990…2d1b24 Dummy {f00=0x00e2, f01=0x0190, f02=» > @ IDENT T:KIA P,REL=11.0,810128,870136941100 o T:KIA T:NKIA o F T:KIA o ^ T:NKIA o p T:ABUF o T:KIPR o , ( W 6 V :a o , ( ' ( ( o
0x2d1b24…2d1cb8 Dummy {f00=0x00e2, f01=0x0190, f02=» y K V K V 6V ( - o , ( _ : J 7 J V W J p , , ( :A V 6V $ - _ * p , ( + : D T E D :A D p , ( ;A 9A Q 5 U _ 5 p T:KIAA p T:KIAC
0x2d1cb8…2d1e4c Dummy {f00=0x00e2, f01=0x40c8, f02=» D V p p , ( @ m D V ( 2 C C q _, q @ H D !r W ^ - 2 IT MP Y V V T> Q U ! R /P 7P ?W q R [R ]P q q @ q 9A Q 5 U _ 5 p T:KIAA p T:KIAC
0x2d1e4c…2d1fe0 Dummy {f00=0x00e2, f01=0x4098, f02=» > @ IDENT T:ABUF P,REL=11.0,810128,870136941100 r T:ABUF r F M r X T:ABUF r n r @ r IN T:ABUF f & !T:ABUF RES SIZE KIA/NKIA SAVEAREA P EJECT T:ABUF END @
0x2d1fe0…2d2174 (3, 115) Dummy {f00=0x00e3, f01=0x414a, f02=» > @ IDENT WRITEL P,REL=11.0,810128,870136941100 s WRITEL s F WRITEL s X T:FDS0 s l T:DSM s ~ I:EVA0 s , ( H / C s T:IO2 s , ( @ &P C & C
0x2d2174…2d2308 Dummy {f00=0x00e3, f01=0x0190, f02=» > @ IDENT I:NTP P,REL=11.0,810803,870136941100 B > I:TRC I:NTP I:NTPA I:NTPB I:NTPR I:RST I:RT0 I:RT1 I:RT2 F I:MOV I:ADD I:SUB I:CMP I:MUL * & T
0x2d2308…2d249c Dummy {f00=0x00e3, f01=0x0190, f02=»:DLT I:MCH I:XCP I:EDS , , ( / < I:TRC l I:RST D ~ T:CSEG I:NTPA H I:NTPB H P:MTAB , ( A V 7 @ " ! P
0x2d249c…2d2630 Dummy {f00=0x00e3, f01=0x0190, f02=» 9c D 9a1 P I:EVA2 $ * & $ & Q W 6 I:RT2 d I:RT1 v I:RT0 , ( :aW _J( 2 P T:BAT , ( V W _ 2 # ;B V T ,
0x2d2630…2d27c4 Dummy {f00=0x00e3, f01=0x0190, f02=» 8 j T:PAT , ( M ^n D . V @ 2 ! 9B V T , ( m@ *W V P D $ V 6 V J , ( % V E W 2 % z T:CAT , ( ^ 6 E 7_ 2 # L , ( , $ 2#
0x2d27c4…2d2958 Dummy {f00=0x00e3, f01=0x4170, f02=» W F z I:EVB , ( P E . V & * c H L 'W 'W '_8 Z H D ! H L D ! # % ' ) + - = l ~ H D ! ? h A r C t [P eP q r T P Q W W P W8 T
0x2d2958…2d2aec Dummy {f00=0x00e3, f01=0x0190, f02=» > @ IDENT I:EVA P,REL=11.0,810910,870136941100 J F " I:EVA0 I:EVA1 I:EVA2 I:EVA3 I:EVA5 I:EVA6 I:EVA7 I:EVB I:EVI F I:FML I:FML2 I:EVTO P:MTAB , ( :l:d:h I:EVA2
0x2d2aec…2d2c80 Dummy {f00=0x00e3, f01=0x018e, f02=» 6 2 n , ( 9 # W @ $ E " T ; [ , ( W # :H 2 T Z L > , ( @ w L D V W # n , ( L D V $ W D V I:EVA0 , ( @ L , W 6 2 W "
0x2d2c80…2d2e14 (3, 116) Dummy {f00=0x00e3, f01=0x0190, f02=» , ( Z Z , ( 3 : R ; 8 , ( S 6 : F _v :B , h , ( s (V ; H [ [ [ , ( z ;AV Z H # , ( ;
0x2d2e14…2d2fa8 Dummy {f00=0x00e3, f01=0x0190, f02=» & @ $ ! P , ( 1 [ 6 [ Z 7 . Z ( I:FML ^ X I:FML2 n j , ( Q 7 : T # ( ~ I:EVTO , ( H q : " T # :A ( , ( @ @ & " P !
0x2d2fa8…2d313c Dummy {f00=0x00e3, f01=0x4110, f02=» : 6 2 W v , ( " # ^;b ; : ;f" #?_" F H D ! #W 'W -P 1W = ?W4 KT> [ ^ kT V, W ^ V W W f D @ W$ P& Pd ^ Wv yVv V$ P P P R W&
0x2d313c…2d32d0 Dummy {f00=0x00e3, f01=0x0190, f02=» > @ IDENT I:ADS P,REL=11.0,810128,870136941100 ~ I:ADD I:SUB ~ F I:ADD ~ I:SUB ~ n , ( W " T & T + : ~ I:CPA ~ , ( ! * & !@P `1` P Q ~ " ? [
0x2d32d0…2d3464 Dummy {f00=0x00e3, f01=0x0190, f02=» $ P T ~ v , ( R R ` ; <( , ( Q P # W " <! =# T W = Z F , ( P _ V ^< `_@ v , ( R Q <# =_ P :" P * U , ( 5 P 1`! T "# 9e! # K
0x2d3464…2d35f8 Dummy {f00=0x00e3, f01=0x4008, f02=»@ T ~ v , ( R R ` ; <( , ( Q P # W " <! =# T W = Z F , ( P _ V ^< `_@ v , ( R Q <# =_ P :" P * U , ( 5 P 1`! T "# 9e! # K
0x2d35f8…2d378c Dummy {f00=0x00e3, f01=0x4166, f02=» > @ IDENT I:CMP P,REL=11.0,810128,870136941100 I:CMP F I:CMP V , ( P " T * & : * & h I:CPA , ( ! !`P :J +_ +Q , ( A _0 , T T XD W 1
0x2d378c…2d3920 Dummy {f00=0x00e3, f01=0x4172, f02=» > @ IDENT I:CPA P,REL=11.0,810128,870136941100 I:CPA F I:CPA V * & R W h , ( ( V W Q P W ! W V , ( ? P , V W Q P W $ W V * & _ P
0x2d3920…2d3ab4 (3, 117) Dummy {f00=0x00e3, f01=0x0190, f02=» > @ IDENT I:MOV P,REL=11.0,810910,870136941100 " I:MOV I:MVC I:MBTD I:MDTB F I:MOV l I:MVC ~ , ( $0#0;b P P P , ( ! 0 - P _ 4 , ( A V W Q P )
0x2d3ab4…2d3c48 Dummy {f00=0x00e3, f01=0x0190, f02=» , ( # ; [ I:MDTB 4 , ( _ ' d V W V H , ( 4! P < X 4 x , ( 9d $ & ! R + : , ( ! V W R 4 0R Y 7 Y& , (
0x2d3c48…2d3ddc Dummy {f00=0x00e3, f01=0x414a, f02=» h , ( Y " W , ( Q V V 7 Y P _& & Q 8 , ( 9d! )0 + P 7 Y Z $ h _ : H D ! t P Pd P /PN IQ KP SP YP _P qP wT P Q 4 0 R
0x2d3ddc…2d3f70 Dummy {f00=0x00e3, f01=0x4140, f02=» > @ IDENT I:MMOV P,REL=11.0,810128,870136941100 I:MMOV F I:MMOV X I:EVA2 l , ( 2' ~ I:EVA0 , ( [ [ Z I:MOV & " =
0x2d3f70…2d4104 Dummy {f00=0x00e3, f01=0x0190, f02=» > @ IDENT I:MUL P,REL=11.0,810128,870136941100 I:MUL I:SH1L F I:MUL ^ , ( V ) " T *V &V p , ( ! : V S W P 9 S W _ , ( A V P W T V E + , ( a
0x2d4104…2d4298 Dummy {f00=0x00e3, f01=0x0190, f02=» [ , ( P Z P [ 9a Z ( , ( $" T 9d! P P [ Z w X I:ADD , ( [ P V H )_ , ( _X z R z ! P 1` { , ( / V (9h
0x2d4298…2d442c Dummy {f00=0x00e3, f01=0x4066, f02=» l D @ @ TV %V 3P CV OW PP P6 P( P X R 'P aP oP sP P@ b9d! P P [ Z w X I:ADD , ( [ P V H )_ , ( _X z R z ! P 1` { , ( / V (9h
0x2d442c…2d45c0 Dummy {f00=0x00e3, f01=0x0190, f02=» > @ IDENT I:DIV P,REL=11.0,810128,870136941100 I:DIV I:SH1R F I:DIV ^ , ( " T *V &V p ! P = , ( ' ;@ R P W ;a , ( G =a P " R & R
0x2d45c0…2d4754 (3, 118) Dummy {f00=0x00e3, f01=0x0190, f02=» [ [ x I:MOV I:NTFA , ( &! P 0 I:SUB ` , ( z " ! ! p , ( R 2` { z " P ! R 2` { 1 I:CPA , ( ! { [ Z
0x2d4754…2d48e8 Dummy {f00=0x00e3, f01=0x0190, f02=» { R [ _ , ( Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x2d48e8…2d4a7c Dummy {f00=0x00e3, f01=0x4040, f02=» 7Q CP W _Q@ sR Q* R W *@ < Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x2d4a7c…2d4c10 Dummy {f00=0x00e3, f01=0x40da, f02=» > @ IDENT I:NTF P,REL=11.0,810128,870136941100 I:NTFA F I:NTFA X , ( Z H D & H l $ ! D % [ ( 8 @ P ABR* WK2 P P END ,PS
0x2d4c10…2d4da4 Dummy {f00=0x00e3, f01=0x818e, f02=» > @ IDENT I:EDT P,REL=11.0,810615,870136941100 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 I:RET I:ATTR , (
0x2d4da4…2d4f38 Dummy {f00=0x00e3, f01=0x8190, f02=» I:EVA5 I:EVB I:EGTB * I:EVI < I:EVA3 L I:EVA0 ^ * & AUT p I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR * &
0x2d4f38…2d50cc Dummy {f00=0x00e3, f01=0x8190, f02=»DSK ~ , ( { 6 K K I:EDT > I:ED1 P I:EDW b , ( K K V K : t I:EVA6 , ( R B " V , ( V Z P 2 "
0x2d50cc…2d5260 Dummy {f00=0x00e3, f01=0x8190, f02=»SEG , ( 7 _Z Z [ Z P I:RET r < , ( W@ $ [ V 7_ N I:EXIT x ~ P:MTAB * & u W Z @ " &! P , ( $ Z 7 Z Z P $ I:F
0x2d5260…2d53f4 (3, 119) Dummy {f00=0x00e4, f01=0x8190, f02=» , ( J P v I < : J I:ECPY : I:ETXT ( N I:EXPY ( b , ( Q : P 4 ! T _ v I:ATTR : I:ECTR < I:ESL F , ( ) P 4 W K W
0x2d53f4…2d5588 Dummy {f00=0x00e4, f01=0xc188, f02=»E I:ECWC z I:EFIL , ( i @X *W X & , J K : 2 I:SCB b V : 1 t H D ! U Y ( [ e f g x i p k 8 m P s u F y ( { r } : @ H D ! @ P T W T W ? U
0x2d5588…2d571c Dummy {f00=0x00e4, f01=0x0190, f02=» > @ IDENT I:EPIC P,REL=11.0,810625,870136941100 I:EPIC F I:EPIC X I:EVA0 l : + ~ [ [ < , ( ! !AAP !TTT W !**T * [ !FF A
0x2d571c…2d58b0 Dummy {f00=0x00e4, 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
0x2d58b0…2d5a44 Dummy {f00=0x00e4, f01=0x4120, f02=» } !++P !-- z ;$# + ^$ _* $ T tX. PT*AXYZ9 . H D ! ` %P +T /W 5T AP GT KW OR S P Wn W8 Wf V H D ! T& W, P T W F W@ P U T P W R( R P U ; ?U kP
0x2d5a44…2d5bd8 Dummy {f00=0x00e4, f01=0x0190, f02=» > @ IDENT I:EDTE P,REL=11.0,810128,870136941100 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 , ( @
0x2d5bd8…2d5d6c Dummy {f00=0x00e4, 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
0x2d5d6c…2d5f00 Dummy {f00=0x00e4, f01=0x40ea, f02=» > @ IDENT I:EDS P,REL=11.0,810128,870136941100 I:EDS F I:EDS V I:EVS2 h I:ED1 z , ( : { : & @ P2E,OP1E END OF MAIN STRING
0x2d5f00…2d6094 (3, 120) Dummy {f00=0x00e4, f01=0x0190, f02=» > @ IDENT I:STR P,REL=11.0,810128,870136941100 $ I:INS I:DLT I:MCH I:CPY I:XCP F I:DLT n I:EVS1 I:MCH , ( @ P 9 _ , ( @ [ , (
0x2d6094…2d6228 Dummy {f00=0x00e4, f01=0x0190, f02=» 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 _. :
0x2d6228…2d63bc Dummy {f00=0x00e4, f01=0x400e, 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 _. :
0x2d63bc…2d6550 Dummy {f00=0x00e4, f01=0x4152, f02=» > @ IDENT I:EVS P,REL=11.0,810128,870136941100 I:EVS1 I:EVS2 F I:EVA0 ` , ( A jP kT r I:EVS1 8 , ( T : & 9! " : $ : I:EVA2 I:EVS2
0x2d6550…2d66e4 Dummy {f00=0x00e4, f01=0x0190, f02=» > @ IDENT STRIX P,REL=11.0,810128,870136941100 STRIX STROUX USRFMT F I:EVNO f I:ESKI x I:EVA0 I:EBRI I:EBRB I:EBR , ( I:ECW
0x2d66e4…2d6878 Dummy {f00=0x00e4, f01=0x0190, f02=» STRIN2 USRFLD STROUX . , STRIX 2 @ USRFMT 6 R , ( # W W f T:GRFC T:STEV , ( 7! Y * & Y + , ( Q 8 & Y 0 4 y 4
0x2d6878…2d6a0c Dummy {f00=0x00e4, f01=0x0190, f02=»VT I:EDSK * & " $ X <' X X I:RT1 J I:EVIN Z , ( & x 4 X 2P y 6 ( l T:EVOU , ( HH * , , , , ( X +! Q P P P y 4 x 4 X
0x2d6a0c…2d6ba0 Dummy {f00=0x00e4, f01=0x4022, f02=» R$ ` B @ " $ X <' X X I:RT1 J I:EVIN Z , ( & x 4 X 2P y 6 ( l T:EVOU , ( HH * , , , , ( X +! Q P P P y 4 x 4 X
0x2d6ba0…2d6d34 (3, 121) Dummy {f00=0x00e4, f01=0x018e, f02=» > @ IDENT STRIN2 P,REL=11.0,810128,870136941100 STRIN2 F STRIN2 X , ( X x & Y " X R W l I:EXIT , ( ! V P _ y 6 : Y I:EVA0 T:CLMI , ( ?
0x2d6d34…2d6ec8 Dummy {f00=0x00e4, f01=0x4150, f02=» , ( W V R W V % _ I:MOV 4 * & [ " D $ D D T:GRFC r * & Z P Z % z " * { $ X $ X y & : H D ! R W !V %P SP ]P* uT yW }R< V8
0x2d6ec8…2d705c Dummy {f00=0x00e4, f01=0x0190, f02=» > @ IDENT STROU2 P,REL=11.0,810128,870136941100 STROU2 F STROU2 X I:EVA0 l , ( X x & Y " !0P <! ~ , ( T T W < X ! P , ( ? ?A W ?AW <! P
0x2d705c…2d71f0 Dummy {f00=0x00e4, f01=0x408a, f02=» I:EXIT " @ y $ : y 6 : 8 4 P6 !T$ 'T +W ;P EW MW WP mR qW uV* P 8 t@
0x2d71f0…2d7384 Dummy {f00=0x00e4, f01=0x4094, f02=» > @ IDENT USRFLD P,REL=11.0,810128,870136941100 USRFLD F USRFLD X : l ~@ E P=IDIOT4 * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x2d7384…2d7518 Dummy {f00=0x00e4, f01=0x0190, f02=» > @ IDENT T:DM P,REL=11.0,810827,870136941100 F B T:OPEN T:CLOS T:DCLO T:COMM T:PCOM T:ROLL T:RSTA T:OPCH F T:IXCH T:STCH T:OPEN T:DSB , ( @ 2 2 ! <e T:WRIO
0x2d7518…2d76ac Dummy {f00=0x00e4, f01=0x0190, f02=» T:DCLO Z T:COMM f I:EVA0 , , ( Y <H _ ( > I:RT1 n T:PCOM ~ T:GTBY * & u@ R ' T:GDSP , ( &
0x2d76ac…2d7840 Dummy {f00=0x00e4, f01=0x40bc, f02=» l T:SCW2 T:IO3 T:OPCH , T:STCH @ T:IXCH T " @ C / h ;T {R R @ T:GDSP , ( &
0x2d7840…2d79d4 (3, 122) Dummy {f00=0x00e4, f01=0x0190, f02=» > @ IDENT T:USE P,REL=11.0,810224,870136941100 T:USE T:UERR T:UER F T:USE d I:EVA0 v * & 2 & >A >A 2 $ P:MTAB , ( & V D 9a 9 V , ( =D @ W
0x2d79d4…2d7b68 Dummy {f00=0x00e4, f01=0x0190, f02=»_ X @ 9 X ( R , ( 9 8 ? X ( , ( Q , V ( X , ( R - 4T V 5 , ( ( R W V P W U V T:UERR T I:RT0
0x2d7b68…2d7cfc Dummy {f00=0x00e4, f01=0x4058, f02=»R R< V R Q" Rf T #R< %W, n +P& /W$ IT * f B@ T Q , V ( X , ( R - 4T V 5 , ( ( R W V P W U V T:UERR T I:RT0
0x2d7cfc…2d7e90 Dummy {f00=0x00e4, f01=0x8190, f02=» B @ IDENT KEYB REL 11.0 DK 82-02-28 870150541100 J F " KBINP KBINP2 READKB READK2 RESKB LMP1ON LMP1OF LMP2ON LMP2OF J F B LMP3ON LMP3OF LMP4ON LMP4OF LMP5ON LMP5OF LMP6ON LMP6OF H D ! RDHOME COPY ERRORdTAB CRDOWN ICV
0x2d7e90…2d8024 Dummy {f00=0x00e4, f01=0x8190, f02=» N ! P T R Q DCABOR $ , ( A R O T N P 6 READKB r f , ( _@ W W : C z READK2 , ( } C ( : C C RESKB ICVRE
0x2d8024…2d81b8 Dummy {f00=0x00e4, f01=0x8190, f02=» , ( @ O W @ O " P : ICREAD 8 ICWRT L , ( C ( : C C C ( : ^ ERROR 0 SOUND , ( C C C ( : O LMP1ON @ LMP1OF D
0x2d81b8…2d834c Dummy {f00=0x00e4, f01=0x8190, f02=»W l LMP4OF LMP5ON ` LMP5OF d 4 LMP6ON l H LMP6OF p , ( [ W W W W W W W W p , ( { W W C A C ( , ( @ C ( : , (
0x2d834c…2d84e0 Dummy {f00=0x00e4, f01=0x818e, f02=» , ( ; 0 , ( [ ` , ( { , ( , (
0x2d84e0…2d8674 (3, 123) Dummy {f00=0x00e5, f01=0x8190, f02=» INSMOD STOVDU * & T N P ' T ! T ( WCHAR V POSUNP f , ( 5 W 0 : x STOINF ATMASB DISCHA * & M P
0x2d8674…2d8808 Dummy {f00=0x00e5, f01=0x8190, f02=» P P V P , ( @ ' P V ' P , ( W U P |TAB ATMASF , ( D : P , ( ' P W U , ( 5
0x2d8808…2d899c Dummy {f00=0x00e5, f01=0x8190, f02=» W t RDHOME , ( " : P ( , ( @B ! R W X * & ' P W : , ( P ' T P , ( .
0x2d899c…2d8b30 Dummy {f00=0x00e5, f01=0x8190, f02=» ' : T W , ( ?H : O : , , ( Y P Z P P ' T . , ( y U SAVE1 , ( LINE
0x2d8b30…2d8cc4 Dummy {f00=0x00e5, f01=0x8190, f02=» : : 0 z COPY , ( 0 0 : N @ T N P , , ( # ! 09B V L ! P W 8 O , ( C N @ O , ( c W 0 : N V ! 09B DISID , ( ,=H
0x2d8cc4…2d8e58 Dummy {f00=0x00e5, f01=0x8190, f02=»RPF TRPA , ( 9H L O : ' P * : _ P * & H , : %W >W , P L , ( , : O : O 1R Q T z CONPF * & 3 W T W W 0 : H , ( Q . P * : W O
0x2d8e58…2d8fec Dummy {f00=0x00e5, f01=0x8190, f02=» W 0 : : x H D ! R` TV TN +P 1T: 7R4 =Q. ER M p UT ]P eW i kW o H D ! V& W P 3 X CW0 GW0 KW( OW( SW WW [W _W cW ` H D ! gW kW oW sW wW {W W H D !
0x2d8fec…2d9180 Dummy {f00=0x00e5, f01=0x8190, f02=» ! H D ! ! # % ' ) + - / 1 3 5 7 L H D ! 9 ; = ? A C E G I K M O Q S U W H D ! Y [ ] _ a c e g F
0x2d9180…2d9314 (3, 124) Dummy {f00=0x00e5, f01=0x8190, f02=» | H D ! L L L L L L L L 8 H D ! L L L L L L L L L L L L L L L L H D ! ^ P, T& P )T -T ?W Q j [P k r m |
0x2d9314…2d94a8 Dummy {f00=0x00e5, f01=0xc142, f02=» W P( R W P W P2 h H D ! T& P" W W !W 7T =W eP, iPd oT^ U W TJ !PD 9P ;W. $ H D !@ eW WF P* T0 R W W " )R -Q /T 5W 9T ?W EW p H D ! _ b aWX iRV kT o qWH uT y {W> T@ W4 R2 V. W R"
0x2d94a8…2d963c Dummy {f00=0x00e5, f01=0x0190, f02=» B @ IDENT KEYB REL 11.0 DK 83-01-07 870150541100 J F " KBINP KBINP2 READKB READK2 RESKB LMP1ON LMP1OF LMP2ON LMP2OF J F B LMP3ON LMP3OF LMP4ON LMP4OF LMP5ON LMP5OF LMP6ON LMP6OF H D ! RDHOME COPY ERRORdTAB CRDOWN ICV
0x2d963c…2d97d0 Dummy {f00=0x00e5, f01=0x0190, f02=» N ! P T R Q DCABOR $ , ( A R O T N P 6 READKB v f , ( _@ N W W : z READK2 , ( } C C ( : C C RESKB ICVRE
0x2d97d0…2d9964 Dummy {f00=0x00e5, f01=0x0190, f02=» , ( @ O W @ O " P : ICREAD 8 , ( C ( : C C C ( L ICWRT | ERROR 4 , ( : C C C ( : O SOUND LMP1ON D LMP1OF H
0x2d9964…2d9af8 Dummy {f00=0x00e5, f01=0x0190, f02=»N LMP4OF ` LMP5ON d LMP5OF h 4 LMP6ON p H LMP6OF t , ( [ W W W W W W W W p , ( { W W W C A C ( , ( @ C ( : , (
0x2d9af8…2d9c8c Dummy {f00=0x00e5, f01=0x018e, f02=» , ( ; 0 , ( [ ` , ( { , ( , (
0x2d9c8c…2d9e20 Dummy {f00=0x00e5, f01=0x0190, f02=» INSMOD STOVDU , ( T N P ' T ! T ( WCHAR X POSUNP h , ( 7I W 4 : z STOINF ATMASB DISCHA , ( O P
0x2d9e20…2d9fb4 (3, 125) Dummy {f00=0x00e5, f01=0x0190, f02=» P P V P , ( @ ' P V ' P $ , ( W U T |TAB ATMASF , ( D : P , ( ' P W U , (
0x2d9fb4…2da148 Dummy {f00=0x00e5, f01=0x0190, f02=» W x RDHOME , ( " : P , , ( @B ! R W * & ' P W : , ( P ' T P , ( .
0x2da148…2da2dc Dummy {f00=0x00e5, f01=0x0190, f02=» ERASUP * & +D : T W , ( C " : O : > * & ] P Z P P ' T . n , ( { U SAVE1 , (
0x2da2dc…2da470 Dummy {f00=0x00e5, f01=0x0190, f02=» : : 0 z , ( 0 0 : H P DISCON J CONCT * & @$ % X ( O T DW L l CHKSTA COPY H , ( A * , : N @ T N P ! 0 , ( ] 9B V L !
0x2da470…2da604 Dummy {f00=0x00e5, f01=0x0190, f02=» L L $ . O W O , ( & P T ," X . , ( 9HR !VV H_ V _$ ,9H L ^ TRPF TRPA * & O : ' T 0 : _ T , ( 3 2 : %W >W , T 2
0x2da604…2da798 Dummy {f00=0x00e5, f01=0x0190, f02=» W O 0R T W | , ( T W T W O 1R V , ( W O 0R V W O 0R V L " W O W 4 : : | H D ! Rd TZ TR +P 1T> 7R8 =Q2 ER M t UT ]P iW m oW s H D ! V& W
0x2da798…2da92c Dummy {f00=0x00e5, f01=0x0190, f02=» H D ! B H D ! H D ! ! # % ' ) + - / 1
0x2da92c…2daac0 Dummy {f00=0x00e5, f01=0x0190, f02=» k J m J o J q J s u w B y { r H D ! } 0 N T H . H D ! * N : > B z H D ! L L L L L L L
0x2daac0…2dac54 (3, 126) Dummy {f00=0x00e5, f01=0x018e, f02=» v q s u yV, ^ H D ! W& R W R W V PD P V P P" V P W U P" H D ! P +W 3U OR [P* eV qP sW wV W P( R W P W P2 f H D ! T& P" W W R 9T ?W gP, kPd qT^ U W * 3T 9W QTJ H D ! WPD o
0x2dac54…2dade8 Dummy {f00=0x00e5, f01=0x404e, f02=» J , ( V. W R" V W R V W W 8@ J P W U P" H D ! P +W 3U OR [P* eV qP sW wV W P( R W P W P2 f H D ! T& P" W W R 9T ?W gP, kPd qT^ U W * 3T 9W QTJ H D ! WPD o
0x2dade8…2daf7c Dummy {f00=0x00e5, f01=0x0190, f02=» > @ IDENT DCBSC REL 11.0 82-04-23 870150541100 ! H D ! DCINP TSTSTA SETSTA OPEN CONCT DISCON SETTYM TSTMES DCABOR ! F 8 4 TRPA TRPF DCOFLN CHKSTA DCWRIT READW RDSTAT ! DCINP ! GETBUF ! RELBUF ! , (
0x2daf7c…2db110 Dummy {f00=0x00e5, f01=0x0190, f02=»F ! OPEN P " , ( 9 ! P " O : " , ( W V L C ( B R T " L CONCT " | , ( w L _ : V N P " , ( .! S C L C " DISCON " , (
0x2db110…2db2a4 Dummy {f00=0x00e5, f01=0x0190, f02=» _ : N P C C " DCWRIT . # ( , ( ( B ![P W : # < , ( 3 N P O ( B # l ERROR # RESKB # , ( S ![P N ! O # TSTMES v # , ( o@
0x2db2a4…2db438 Dummy {f00=0x00e5, f01=0x0190, f02=»T # DCABOR $ , ( N P C ( B : $ CHKSTA $ P , ( N P ( T O : $ d LMP1ON $ DCOFLN $ TRPA $ PAID $ * & " " T W : : $
0x2db438…2db5cc Dummy {f00=0x00e5, f01=0x40a6, f02=» : $ H D ! D P W 3P =P M mR qT P T P !P % )W 7P % , ( @ WP _ P P P P T T W % ` , % @ % DCOFLN $ TRPA $ PAID $ * & " " T W : : $
0x2db5cc…2db760 Dummy {f00=0x00e5, f01=0x0190, f02=» > @ IDENT T:REWR P,REL=11.0,810827,870136941100 4 0 T:REWR T:SCUW T:CLRD T:IOWR T:CASP T:SCW F T:IOWR ~ T:SCW T:CHBU , ( C ( C : T:SCUW $ T:CLRD 6
0x2db760…2db8f4 (3, 127) Dummy {f00=0x00e6, f01=0x018e, f02=» T:CASP ^ T:LOFS , ( ] @_^ ( X D * I:EVA3 Z , ( { D : K + Q 2 P P l I:EPIC T:LOPS , ( H ( B I:EVA0 I:E
0x2db8f4…2dba88 Dummy {f00=0x00e6, f01=0x401a, f02=» @ T:LOFS , ( ] @_^ ( X D * I:EVA3 Z , ( { D : K + Q 2 P P l I:EPIC T:LOPS , ( H ( B I:EVA0 I:E
0x2dba88…2dbc1c Dummy {f00=0x00e6, f01=0x0190, f02=» > @ IDENT T:ENLI P,REL=11.0,810827,870136941100 T:DNL T:DSL T:ECW T:EOR F I:EVNO h I:ECPY z I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR * &
0x2dbc1c…2dbdb0 Dummy {f00=0x00e6, f01=0x0190, f02=» T I:EXPY . I:RET @ I:ATTR P T:DSL , b T:GRFC t T:DNL : , ( % @ " $ Y . Y ,W , ( ;@ $ Y . X ( X ." P X 0R T , ( @ Y K
0x2dbdb0…2dbf44 Dummy {f00=0x00e6, f01=0x0190, f02=»:ENL I:ESL , ( *_ ,W . X . X 2Q I:ECTR L , ( Y *T 0 : " P X 0U X * ^ , ( # P P T " T : T:ENIN T:ECW T:EOR , ( @ Y . 2
0x2dbf44…2dc0d8 Dummy {f00=0x00e6, f01=0x4086, f02=» : # , 9W OPj UR WT eT6 mP( }Q W W QH T2 , ( P$ U P P T T %T -T 3W @ > p@ ^ , ( # P P T " T : T:ENIN T:ECW T:EOR , ( @ Y . 2
0x2dc0d8…2dc26c Dummy {f00=0x00e6, f01=0x0190, f02=» > @ IDENT I:EDT P,REL=11.0,810827,870136941100 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F F B I:ECTR I:ESL I:ENL I:ENL1 I:EOR I:ECW I:ECWC I:EFIL I:EFLA * & I:SCB I:FFSN I:EXPY I:RET I:ATTR , (
0x2dc26c…2dc400 Dummy {f00=0x00e6, f01=0x0190, f02=»:EVA2 I:EVA5 I:EVB I:EGTB 0 I:EVI B I:EVA3 R I:EVA0 d * & AUT v I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR
0x2dc400…2dc594 (3, 128) Dummy {f00=0x00e6, f01=0x0190, f02=» I:EDSK ~ , ( { 6 K K I:EDT D I:ED1 V I:EDW h , ( K K V K : z I:EVA6 , ( R B " V , ( V Z P
0x2dc594…2dc728 Dummy {f00=0x00e6, f01=0x0190, f02=» T:LSEG , ( 7 _Z Z [ Z P I:RET r B , ( W@ $ [ V 7_ T I:EXIT x P:MTAB * & u W Z @ " &! P , ( $ Z 7 Z Z P $
0x2dc728…2dc8bc Dummy {f00=0x00e6, f01=0x0190, f02=»:ETAB , ( J P v I < : J I:ECPY @ I:ETXT ( T I:EXPY ( h , ( Q : P 4 ! T _ | I:ATTR : I:ECTR < I:ESL F , ( ) P 4 W K
0x2dc8bc…2dca50 Dummy {f00=0x00e6, f01=0x0190, f02=» I:ECW p T:EDWE I:ECWC z $ I:EFIL 8 , ( i @X *W X & , J K : L I:SCB | V : 1 H D ! U Y ( [ e f g x i p k 8 m P s u F y ( { r } : @ H D ! @
0x2dca50…2dcbe4 Dummy {f00=0x00e6, f01=0x4012, f02=» @
0x2dcbe4…2dcd78 Dummy {f00=0x00e6, f01=0x4146, f02=» > @ IDENT T:DCOM P,REL=11.0,810910,870136941100 DCREAD DCWRTE DCEXCH F T:FDS0 h DCREAD z T:DCR1 DCWRTE T:DCW1 DCEXCH T:DCE1 , ( I$
0x2dcd78…2dcf0c Dummy {f00=0x00e6, f01=0x0190, f02=» B @ IDENT PRINT REL 11.1 82-07-16 DK 870150541110 PRINT COPP J PRINT ` , ( TT LL GG CC # # # # (@P r OPEN CONCT , ( ! R ( O SETTYM , (
0x2dcf0c…2dd0a0 Dummy {f00=0x00e6, f01=0x0190, f02=» v , ( N T O N T , ( O : T O W T F , ( O O W T O O : v GETBUF READW , ( P N P RELBUF ,
0x2dd0a0…2dd234 (3, 129) Dummy {f00=0x00e6, f01=0x0190, f02=» ICSET ICREAD , ( K : ICWRT P , ( g N D P ` COPP ATMASB , ( : O ( : C , ( O N !8 ! =d T
0x2dd234…2dd3c8 Dummy {f00=0x00e6, f01=0x0190, f02=»W T t , ( ! R 9AR ! 1 P W # , ( A ! P N _r P D , ( a @ P T P t , ( N 8P @ O : , ( , (
0x2dd3c8…2dd55c Dummy {f00=0x00e6, f01=0x018e, f02=» , ( ! _& O : T , ( A O : ! 1 P N !0T 0 4 RFMDUP d , ( a : @ : T : v , ( N !010T N !@P P T , ( W P : , (
0x2dd55c…2dd6f0 Dummy {f00=0x00e6, f01=0x0190, f02=» f , ( N C ( O W O , ( ? P c C O _R 2 8 , ( _ ( "R ( W ( B h , ( T C W N " COMINI , ( 0:B V M : N X _
0x2dd6f0…2dd884 Dummy {f00=0x00e6, f01=0x0190, f02=» O : ( B | , ( P N " 0:B V M , ( ; $ P d( _: : @ %P L ( $ P [ @ @ P _ N $ : | H D ! ( ! % +R& U Y x g P( T T T J T < W" T W H D !h T P
0x2dd884…2dda18 Dummy {f00=0x00e6, f01=0x4136, f02=» oT w { P P , , H H H D ! b H H b b b b j P W ~ T6 R P T H H D ! / ~ 3T ; OP WT sT T P P T W P T T T < 8 PX Qn 3W& AP kR wW T W P
0x2dda18…2ddbac Dummy {f00=0x00e6, f01=0x2008, f02=» L = PT002 DATE = 811031 6876PACK NBR = 0002 `
0x2ddbac…2ddd40 Dummy {f00=0x00e6, f01=0x0190, f02=»W Y P @ Q @ ~ , ( - . P A. @ . @ . P SCTEFA L * & G _l A 9n A :B A ^ TTB:SPW SEG:NS , ( _ D @ < | P N P , ( w 9b .V 3 S S
0x2ddd40…2dded4 (3, 130) Dummy {f00=0x00e6, f01=0x0190, f02=» ] 9A n , ( @ ] 9k! ] PAGQUE > , ( Y P P P , ( ) S @ P 3 _ SCTBUG8 , ( G 3 A. @ SCTSTB , (
0x2dded4…2de068 Dummy {f00=0x00e6, f01=0x0190, f02=» , ( A * $ TDISP 8 INILEN H INIEND & " ) *_ > , p H D ! , n WN B @ > K B R > QF 1R0 I > P > V U H D ! @ V > Q R >
0x2de068…2de1fc Dummy {f00=0x00e6, f01=0x40ac, f02=»P P V W U4 T W P P( V W #P )Q ~ H D ! /P AP oP: uP4 V T" T W P: P4 9P Y Z y } : @ @ > K B R > QF 1R0 I > P > V U H D ! @ V > Q R >
0x2de1fc…2de390 Dummy {f00=0x00e6, f01=0x2008, f02=» g
0x2de390…2de524 Dummy {f00=0x00e6, f01=0x0190, f02=» 2 @ IDENT CTAB01 REL. 11.0 81/10/28 CTAB01 CTAB02 CTAB03 : CTAB01 CTAB02 p CTAB03 , ( , ( ! 0123 , ( A 456789
0x2de524…2de6b8 Dummy {f00=0x00e6, f01=0x4106, f02=» 0123456789 - , ( * > ?8_: =!"#$%&/() @ABC ( , ( DEFGHIJKLMNOPQRSTUVWXYZ []^ X H D ! , < L l | ! # % ' ) @
0x2de6b8…2de84c Dummy {f00=0x00e6, f01=0x0190, f02=» 2 @ IDENT CTAB01 REL. 11.0 81/10/28 CTAB01 CTAB02 CTAB03 : CTAB01 CTAB02 p CTAB03 , ( , ( ! 012345 , ( A 6789 -
0x2de84c…2de9e0 Dummy {f00=0x00e6, f01=0x4118, f02=» 0123456789 - , ( * > ?8_: =!"#$%&/() @ABCDE ( , ( FGHIJKLMNOPQRSTUVWXYZ []^ X H D ! * : J Z j z ! # % '
0x2de9e0…2deb74 (3, 131) Dummy {f00=0x00e7, f01=0x018e, f02=» L H IDENT T:AP10 TRA 11.0 81-10-28 F1 O1111 REL 11.0 81-10-18 87015054110 T:AP10 T T:AP10A n f . * T:DP10 D:CB10 C:CB10 D:TB10 Z:TB10 z * & * & * &
0x2deb74…2ded08 Dummy {f00=0x00e7, f01=0x4008, f02=»@ NT T:AP10 TRA 11.0 81-10-28 F1 O1111 REL 11.0 81-10-18 87015054110 T:AP10 T T:AP10A n f . * T:DP10 D:CB10 C:CB10 D:TB10 Z:TB10 z * & * & * &
0x2ded08…2dee9c Dummy {f00=0x00e7, f01=0x0190, f02=»=1 / PCBSTOP EQU /00 0 P IFT CODE=0 0 PPARITY EQU /0C 0 4 P XIF 0 J P IFT P6805=1 0 V P IFT CODE=1 0 j PPARITY EQU /00 0 ~ P XIF 0 P EJECT 0 8 P*************************************************** 0 P* 0 ( P* LINE CONTROL UNIT
0x2dee9c…2df030 Dummy {f00=0x00e7, f01=0x0190, f02=»3 H:NOOP+H:THRU+H:CARR 0 P XIF 1 P IFT P6805=1 1 * . PH:ERR EQU /27 H:NOOP+H:THRU+H:CARR+H:PARI 1 > P XIF 1 p P EJECT 1 | D P**************************************************************** 1 P* 1 P* DRIVER ADDRESS BLOCK 1 P* 1 D P
0x2df030…2df1c4 Dummy {f00=0x00e7, f01=0x0190, f02=»E INDEX 1 ~ ( PDC15AD DATA DCACT ACTIVATION ADDRESS 2 P DATA ABORT ABORT ROUTINE 2 < $ P DATA DCRBUF REC. BUFFER ANCHOR 2 ^ P DATA 6 HEADER LENGTH 2 P* 2 , P RES 15 SUBROUTINE STACK FOR INTERRUPTS 2 PSTB RES 1 2 P EJECT 2 P 2 @ P**
0x2df1c4…2df358 Dummy {f00=0x00e7, f01=0x0190, f02=» 2 x P 3 ( PABORT LD A1,DWTRTP,A6 TIMER POINTER 3 " P RF(Z) AB:10 NO TIMER RUNNING 3 < P CMR A1 KILL TIMER 3 b P CM DWTRTP,A6 3 | P 3 $ PAB:10 LD A2,DWTOR,A6 ORDER CODE 3 P ANK A2,/7F 3 P SUK A2,6 3 P RF(NE) AB:RTN 3 . P CF A15,RE
0x2df358…2df4ec Dummy {f00=0x00e7, f01=0x0190, f02=» CM FDWTUT REST SENDING DWT 3 P CM XACK RESET ACK EXPECTED 4 $ P 4 H PAB:RTN EQU * 4 P P ABL RTABRT 4 d P EJECT 4 x J P********************************************************************** 4 J P****************************************************
0x2df4ec…2df680 Dummy {f00=0x00e7, f01=0x0190, f02=»************************************************ 4 z J P********************************************************************** 5 8 P* 5 $ P* ACTIVATION FROM TERMINAL TASKS 5 P* 5 PDCACT EQU * 5 P LDK A1,0 PRESET RETURN CODE 5 & P LDR A2,A7 ORD
0x2df680…2df814 (3, 132) Dummy {f00=0x00e7, f01=0x0190, f02=»A1,A11 GET TASKID P ANK A1,/FF ( P SC A1,+1,A12 SAVE ADDRESS IN BUFFER . P LDK A1,2 LENGTH Z P ST A1,ECBRL,A8 r P LD A3,6,A13 GET BASE P LD A1,MF1CU,A3 P ST A1,ECBCW2,A8 . =1 P LDK A7,/A7 CONNECT PASSIVE P LKM
0x2df814…2df9a8 Dummy {f00=0x00e7, f01=0x0190, f02=»OR COPY COMMAND z P IFT NBRLIN=2 P LDR A4,A4 MORE TO CONNECT . P RF(NZ) CONC20 NO P P LDK A4,1 NO MORE j P LD A8,ECBDC2,A11 LINE 2 P RB CONC10 PCONC20 EQU * P XIF P LDR A8,A12 " P CF A14,RELBUF RELEASE BUFFER
0x2df9a8…2dfb3c Dummy {f00=0x00e7, f01=0x018e, f02=»EQUEST TIMEOUT P* F P***************************************************************** P* REGISTERS j P* P* F P***************************************************************** PSETTIM EQU * P LD A8,ECBDC
0x2dfb3c…2dfcd0 Dummy {f00=0x00e7, f01=0x0190, f02=» ~ P LDK A7,/B9 SET TIMEOUT P LKM ( P DATA 1 4 P IFT NBRLIN=2 D P LDR A4,A4 MORE TO TIME? Z P RF(NZ) SETT20 NO z P LD A8,ECBDC2,A11 GET LINE 2 P LDK A4,1 NO MORE P RB SETT10 PSETT20 EQU * P XIF P R
0x2dfcd0…2dfe64 Dummy {f00=0x00e7, f01=0x0190, f02=» * f P* READW RECEIVE > P* * 0 > P********************************************************* r P* REGISTERS P* P* A3= BUFFER ADDRESS P* A8= DC ECB P* A11=
0x2dfe64…2dfff8 Dummy {f00=0x00e7, f01=0x0190, f02=»* P LD A8,ECBDC1,A11 LINE 1 P IFT NBRLIN=2 * P LD A1,MAIN,A11 MORE LINES @ P RF(Z) REDW10 NO b P LD A8,ECBDC2,A11 LINE 2 z PREDW10 EQU * P XIF $ P LDKL A1,BUFFL+BUFFL GET LENGTH P ST A1,ECBRL,A8 P ST A3,ECBBA,A
0x2dfff8…2e018c Dummy {f00=0x00e7, f01=0x0190, f02=» P CF A14,CHKSTA CHECK STATUS P LDK A1,8 INDICATE ERROR ( P RF REDW30 H PREDW20 EQU * Z P LDK A1,2 n PREDW30 EQU * P RTN A14 P EJECT > P********************************************************* > P*
0x2e018c…2e0320 Dummy {f00=0x00e7, f01=0x0190, f02=»******************************************************* P* REGISTERS @ P* T 0 P* A1= AT ENTRY CHAIN INDICATOR, RETURN CODE ^ P* A8= DC ECB P* A9= DC BUFFER LENGTH P* A11= CREDIT WORK AREA P* A13= RESERVED P* : P**
0x2e0320…2e04b4 (3, 133) Dummy {f00=0x00e7, f01=0x0190, f02=»A1,MAIN,A11 LINE 2? P RF(Z) DCWR10 NO P LD A8,ECBDC2,A11 LINE 2 4 PDCWR10 EQU * T P XIF h , P LDK A2,2 KEYBOARD INHIBIT BUT RESETABLE t P ORS A2,KBINH,A11 P LDK A7,/86 WRITE ORDER $ P ST A12,ECBBA,A8 BUFFER ADDRESS P S
0x2e04b4…2e0648 Dummy {f00=0x00e7, f01=0x0190, f02=»ERROR " P CF A14,CHKSTA CHECK DC STATUS P LD A1,KBINH,A11 4 $ P ANK A1,/D RESET KEYBOARD PARTLY L P ST A1,KBINH,A11 t $ P CF A14,LMP3OF INHIBIT LAMP OFF " P CF A14,RESKB RESET KB BUFFER P LDK A1,1 RETURN CODE PDCWR90 EQU *
0x2e0648…2e07dc Dummy {f00=0x00e7, f01=0x0190, f02=» * l > P* TSTMES TEST IF ANY MESSAGE, NO WAIT * > P* * ` > P********************************************************* P* REGISTERS P* P* A1=
0x2e07dc…2e0970 Dummy {f00=0x00e7, f01=0x0190, f02=»*************************** r PTSTMES EQU * ! $ P LD A8,ECBDC1,A11 LINE 1 ! 8 P IFT NBRLIN=2 ! X P LD A1,MAIN,A11 LINE 2 ! n P RF(Z) TSTM10 NO ! P LD A8,ECBDC2,A11 LINE 2 ! PTSTM10 EQU * ! P XIF ! P LDK A2,1 ! * P ST A2,ECBCW1,A8 I
0x2e0970…2e0b04 Dummy {f00=0x00e7, f01=0x0190, f02=»************************************************* ! B P* * " : B P* SETSTA SET STATUS * " B P* * "
0x2e0b04…2e0c98 Dummy {f00=0x00e7, f01=0x0190, f02=»A8= DC ECB " P* A11= RESERVED # P* A13= ADDRESS TO ECB AREA # * P* # L @ P************************************************************ # V PSETSTA EQU * # P LD A8,ECBDC1,A11 # P IFT NBRLIN=2 # P LD A2,MAIN,A11 # P RF(Z) SETS10 #
0x2e0c98…2e0e2c Dummy {f00=0x00e7, f01=0x0190, f02=»TN A14 # P EJECT $ : P****************************************************** $ : P* * $ Z : P* TSTSTA TEST STATUS * $ : P*
0x2e0e2c…2e0fc0 Dummy {f00=0x00e7, f01=0x0190, f02=»DC ECB $ P* A11= RESERVED % P* A13= ADDRESS TO ECB AREA % & P* % H : P***************************************************** % R PTSTSTA EQU * % P LD A8,ECBDC1,A11 LINE 1 % P IFT NBRLIN=2 % P LD A1,MAIN,A11 LINE 2? % P RF(Z) TSTS10
0x2e0fc0…2e1154 (3, 134) Dummy {f00=0x00e7, f01=0x0190, f02=» LKM % P DATA 1 & P LD A1,ECBCW1,A8 & P RTN A14 & 4 P EJECT & D J P********************************************************************* & R P* & P* RDSTAT READ STATISTICS & P* & J P****************************************************
0x2e1154…2e12e8 Dummy {f00=0x00e7, f01=0x0190, f02=»******* & R PRDSTAT EQU * ' P IFT TEST=1 ' $ P LD A8,ECBDC1,A11 ' 8 P IFT NBRLIN=2 ' R " P LD A1,MAIN,A11 THE OTHER LINE ' h P RF(Z) RDST10 NO ' P LD A8,ECBDC2,A11 ' PRDST10 EQU * ' P XIF ' P IFT TEST=1 ' P ST A12,ECBBA,A8 '
0x2e12e8…2e147c Dummy {f00=0x00e7, f01=0x018e, f02=»1 ' P RTN A14 ( P XIF ( P EJECT ( & > P********************************************************** ( 4 > P* * ( v > P* DCABOR ABORT TEST MESSAGE REQUEST * ( > P*
0x2e147c…2e1610 Dummy {f00=0x00e7, f01=0x0190, f02=» P* ) P* A8= DC ECB ) ( P* A11= ADDRESS TO CREDIT WORK AREA ) " P* A13= ADDRESS TO ECB AREA ) N P* ) p > P********************************************************* ) z PDCABOR EQU * ) P LD A8,ECBDC1,A11 LINE 1 ) P IFT NBRLIN=2 ) P L
0x2e1610…2e17a4 Dummy {f00=0x00e7, f01=0x0190, f02=» LKM ) P DATA 10 * P LDR A7,A7 OK? * ( P RF(NZ) DCAB10 NO,ALREADY COMPLETED * 2 P CM ECBBLK+DC,A11 * ^ PDCAB10 EQU * * x P RTN A14 * P EJECT * P* * P* * P* * P* DC RETURN CODE * P * P* * P* * P* * " P*
0x2e17a4…2e1938 Dummy {f00=0x00e7, f01=0x0190, f02=»ST TIMEOUT * z $ P* 11 SEQUENCE ERROR + & P* 12 INCORRECT LENGTH + : P* 13 RESERVED + d ( P* 14 TRANSMISSION ERROR + " P* 15 NO CONNECTION + P* + P* + P* + P EJECT + : P****
0x2e1938…2e1acc Dummy {f00=0x00e7, f01=0x0190, f02=» CHECK DC STATUS * + : P* * , . : P****************************************************** , l P* REGISTERS , P* , . P* A1= AT ENTRY DC RETURN CODE, RETURN CODE , P* A11= CREDIT
0x2e1acc…2e1c60 Dummy {f00=0x00e7, f01=0x0190, f02=» CF A14,TSTSTA TEST STATUS , P ANKL A1,/2211 LINE OK? - " P XRKL A1,/2211 - B P RF(NZ) CHKS10 NO - X P CF A14,LMP1ON SYSTEM AVAIL. - r P RF CHKS20 - PCHKS10 EQU * - * P* LAMP ONE OFF DELETED P & T * - PCHKS20 EQU * - P RTN A14 -
0x2e1c60…2e1df4 (3, 135) Dummy {f00=0x00e8, f01=0x0190, f02=» P P V P , ( @ ' P V ' P , ( W U P |TAB ATMASF , ( D : P , ( ' P W U , ( 5
0x2e1df4…2e1f88 Dummy {f00=0x00e8, f01=0x0190, f02=» W t RDHOME , ( " : P ( , ( @B ! R W X * & ' P W : , ( P ' T P , ( .
0x2e1f88…2e211c Dummy {f00=0x00e8, f01=0x0190, f02=» ' : T W , ( ?H : O : , , ( Y P Z P P ' T . , ( y U SAVE1 , ( LINE
0x2e211c…2e22b0 Dummy {f00=0x00e8, f01=0x0190, f02=» : : 0 z , ( 0 0 : D L CHKSTA J , ( A # T N 1 T @W H O ( COPY B , ( A : N @ T N P ! 09B V , ( a L ! P W 8 O , ( N
0x2e22b0…2e2444 Dummy {f00=0x00e8, f01=0x0190, f02=» & n , ( P T ," X 9HR !VV H , ( _ V _$ ,9H L O : ' > TRPF n TRPA ~ , ( @ $ P , : _ P . : , ( 5 %W >W , P . : O : , ( S O 1R Q T <
0x2e2444…2e25d8 Dummy {f00=0x00e8, f01=0x0190, f02=» T W O 1R V W O 0R , ( V W O 0R V |W O . W 0 : : ^ H D ! R` TV TN +P 1T: 7R4 =Q. ER M p UT ]P eW i kW o x H D ! V& W P 3 X CW0 GW0 KW( OW( SW WW [W _W cW
0x2e25d8…2e276c Dummy {f00=0x00e8, f01=0x0190, f02=» H D ! H D ! d H D ! ! # % ' ) + - / 1 3 5 7 H D ! 9 ;
0x2e276c…2e2900 Dummy {f00=0x00e8, f01=0x0190, f02=» H D ! y . { L } R B H D ! $ H 4 8 < P H D ! F F F F F F F | | | | | | | | H D ! | | | | | | |
0x2e2900…2e2a94 (3, 136) Dummy {f00=0x00e8, f01=0x0190, f02=»100 YES & P LDK A1,LOCMOD INDICATE LOCAL MODE P RF SYS500 : PSYS100 EQU * L P LDR A2,A1 GET STATUS ` P ANKL A2,/C00 MY JOB MODE? ~ P RF(NZ) SYS200 NO & P CF A14,CLEAR CLEAR SCREEN AND DC ( P CF A14,RESKB RESET KEYBOARD BUFFER
0x2e2a94…2e2c28 Dummy {f00=0x00e8, f01=0x0190, f02=»NE) SYS300 NO & P LDK A1,SYSOP INDICATE SYSTEM MODE P RF SYS500 @ PSYS300 EQU * R $ P ANKL A2,/800 SSCP-LU AND LU-LU? f P RF(NZ) SYS400 YES & P LDK A1,SYSOP INDICATE SYSTEM MODE P RF SYS500 PSYS400 EQU * & P LDK A1,MYJOB IN
0x2e2c28…2e2dbc Dummy {f00=0x00e8, f01=0x0190, f02=» P XIF P EJECT D P*************************************************************** D P* * f D P* ATTN ATTENTION KEY HANDLING * D P*
0x2e2dbc…2e2f50 Dummy {f00=0x00e8, f01=0x0190, f02=» REGISTERS P* P* A11= RESERVED P* A13= RESERVED 6 P* N > P********************************************************** X P IFT SNA=1 PATTN EQU * $ P LDK A1,/4B SIGNAL ATTENTION KEY P CF A14,SETSTA SET STATUS P
0x2e2f50…2e30e4 Dummy {f00=0x00e8, f01=0x0190, f02=» * x @ P* PA PROGRAM ACCESS KEY HANDLING * . B P* * r B P************************************************************** P* REGISTE
0x2e30e4…2e3278 Dummy {f00=0x00e8, f01=0x0190, f02=»************************** l PPA1 EQU * " P LDK A2,/25 AID-CODE 4 P RF PA500 P PPA2 EQU * b P LDK A2,/3E AID-CODE t P RF PA500 PPA3 EQU * P LDK A2,/2C AID-CODE PPA500 EQU * , P CF A14,LMP3ON TURN ON KEYBOARD INHI
0x2e3278…2e340c Dummy {f00=0x00e8, f01=0x0190, f02=»******************************************************************* H P* * L H P* PAEX PAEX KEY FOLLOWED BY NUMBER * H P*
0x2e340c…2e35a0 Dummy {f00=0x00e8, f01=0x0190, f02=»* P* A11= CREDIT WORK AREA P* A13= RESERVED * P* B 8 P*************************************************** L P IFT PAX=1 PPAEX EQU * P LDKL A1,PAEXA P ST A1,RDMORE,A11 P RTN A14 PPAEXA EQU * P CM RDMO
0x2e35a0…2e3734 (3, 137) Dummy {f00=0x00e8, f01=0x0190, f02=»RT OF RECORD % ( P LDK A5,'S' STANDARD FILE CHARACTER & P CC A5,27,A6 STANDARD FILE? & @ P RF(NE) GET:50 NO! & d * P LDK A5,'$' LEADING CHAR IN CONF. FILE & ~ " P CCR A5,A4 CONFIGURATION FILE? & P RF(NE) GET:50 NO! & 2 PGET:25 LDK A3,'C' THIS INSTR
0x2e3734…2e38c8 Dummy {f00=0x00e8, f01=0x000c, f02=») * * * * *
0x2e38c8…2e3a5c Dummy {f00=0x00e8, f01=0x0190, f02=» 0 P IDENT DSPBSC REL 11.0 811101DK 870150541100 P 8 B P************************************************************* @ B P* * B P* MODULE DSPBSC
0x2e3a5c…2e3bf0 Dummy {f00=0x00e8, f01=0x0190, f02=» * X B P* AND MULTIPLE WAIT FOR KB AND DC. * < P* (EMULATION 3270 BSC) * T B P* * B P**********************************************
0x2e3bf0…2e3d84 Dummy {f00=0x00e8, f01=0x0190, f02=» * v D P* LIST OF ROUTINES * . D P* * v D P* VDUKB MAIN ROUTINE * $ P*
0x2e3d84…2e3f18 Dummy {f00=0x00e8, f01=0x0190, f02=»IT INITIALIZE THE TASK * * P* COMINI COMMON INIT ROUTINE @ $ P* ECBINI INIT OF ECB:S n D P* TSTDEV TEST KEYBOARD AND DISPLAY * D P*
0x2e3f18…2e40ac Dummy {f00=0x00e8, f01=0x0190, f02=»************************************** | > P* * . > P* ENTRY POINTS * p > P* * > P********************
0x2e40ac…2e4240 Dummy {f00=0x00e8, f01=0x0190, f02=»INE r P ENTRY ECBINI INIT OF ECB:S . P ENTRY MATCH MATCH TASID AND PHYS. ADDRESS 0 P b > P********************************************************** j > P* * > P* EXTERNAL REFERENC
0x2e4240…2e43d4 (3, 138) Dummy {f00=0x00e8, f01=0x0190, f02=»**************************** r P $ , P EXTRN I:EVA0 CREDIT EVALUATION ROUTINE , P EXTRN OPEN OPEN DC (DCBSC) $ P EXTRN CONCT CONNECT DC (DCBSC) . P EXTRN SETTIM SET REQUEST TIMEOUT (DCBSC) 2 P EXTRN ERASE ERASE SCREEN AND VDU BUFFER (VDU)
0x2e43d4…2e4568 Dummy {f00=0x00e8, f01=0x0190, f02=»INE IN KEYB-MODULE (KEYB) z 6 P EXTRN DCINP MAIN ROUTINE IN DCSNA-MODULE (DCSNA) " * P EXTRN LMP6OF OFFLINE LAMP OFF (KEYB) " P EXTRN LMP1ON DC LINE 1 (KEYB) " P EXTRN LMP2ON DC LINE 2 (KEYB) . P EXTRN SOUND SOUND ALARM AT DISPLAY (VDU) & P
0x2e4568…2e46fc Dummy {f00=0x00e8, f01=0x0190, f02=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) ( P EXTRN ICVRED INTERTASK READ (KEYB) 4 ( P EXTRN ICINP INTERTASK INPUT (KEYB) ` * P EXTRN CHKSTA CHECK DC STATUS (DCBSC) 6 P EXTRN READK2 READ NUMERIC KEYB'RD, NO-WAIT (KEYB) , P EXTRN KBINP2 ROUTIN
0x2e46fc…2e4890 Dummy {f00=0x00e8, f01=0x0190, f02=» * x B P* CONDITIONAL ASSEMBLY PARAMETERS * . B P* * t B P************************************************************* P $ P
0x2e4890…2e4a24 Dummy {f00=0x00e8, f01=0x0190, f02=»MBER OF LINES (1-2) PNBRLIN EQU 2 * PX:M EQU 0 COPY COMMNAND INCLUDED IF:=1 0 PCOPCMD EQU 1 ^ " PX:O EQU 0 TEST INCLUDED IF:=1 r PTEST EQU 0 P EJECT @ P*********************************************************** @ P*
0x2e4a24…2e4bb8 Dummy {f00=0x00e8, f01=0x0190, f02=» * j @ P*********************************************************** P b P* j P* ECB INDEX TABLE t P* PECBIND EQU * P DATA 8 NUMBER OF ENTRIES P DATA X'2000' ECB KB P DATA X'3002' ECB PRINTER
0x2e4bb8…2e4d4c Dummy {f00=0x00e8, f01=0x018e, f02=»RTASK WRITE z P DATA X'610C' ECB DC LINE1 ( P DATA X'210E' ECB FOR NUMERIC KB DK 6 P* b $ P* SCREEN SIZE ON DISPLAY l P* PLBVDU EQU 1920 P* P* MODES P* * PHCPMOD EQU /4000 HARDCOPY OUTSTANDING P*
0x2e4d4c…2e4ee0 Dummy {f00=0x00e8, f01=0x0190, f02=» P* TERMINAL WORKBLOCK TB1 P* $ POFFFLG EQU 1962 OFFLINE FLAG . * PPRTID EQU OFFFLG+2 TASKID FOR HARDCOPY R " PMAIN EQU PRTID+6 WHICH DC LINE . PECBBLK EQU MAIN+6 ECBBLK FOR MULTIPLE WAIT PREGI EQU ECBBLK+16 SAVE AREA PBSCMOD EQU R
0x2e4ee0…2e5074 (3, 139) Dummy {f00=0x00e9, f01=0x0190, f02=»A11,TADISP+STKEND W.B.-ADDRESS TO EXAMINE P LDR* A11,A11 2 0 P CW A11,SAVE06+STKEND COMPARE W.B.-ADDRESSES H P XIF | P IFT MMUPAG=1 PMOVC30 ELR A11,A6 P EL A2,T:DAD,A11 T:D-ADDRESS " P AD A2,MOVADD+STKEND RELOCATE 4 P ST A2
0x2e5074…2e5208 Dummy {f00=0x00e9, f01=0x018e, f02=»NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A 2 P AD A11,TADISP+STKEND W.B.-ADDRESS TO EXAMINE 6 P ELR A11,A11 l 0 P CW A11,SAVE06+STKEND COMPARE W.B.-ADDRESSES P XIF P RB(NE) MOVC10 .NEQ. , P LD A9,MOVED+STKEND W.B. ALREADY MOVED?
0x2e5208…2e539c Dummy {f00=0x00e9, f01=0x0190, f02=» h P CALL MOVWB MOV WORK BLOCK $ P IM MOVED+STKEND INDICATE MOVED * " P LD A4,UWB+STKEND UWB-BLOCKS? R P RF(Z) MOVC40 NO! x " P CALL GETPRO CREATE REAL UWB'S 8 PMOVC40 ST A2,NEWAD2+STKEND SAVE NEW ADDRESS TO W.B. P CALL MOVDWB & P
0x2e539c…2e5530 Dummy {f00=0x00e9, f01=0x0190, f02=»SAVE04+STKEND SAVE T:A-ADDRESS & P LDR A8,A6 REPLACE POINTER TO T:A & . P LD A12,SAVE03+STKEND REPLACE T:D-ADDRESS P P CALL MOVDWB P LDR A8,A11 , P LD A12,SAVE04+STKEND RELOAD T:D-ADDRESS P RB MOVC10 P EJECT P P
0x2e5530…2e56c4 Dummy {f00=0x00e9, f01=0x0190, f02=» ** 4 P** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF ** * 4 P** COPIES. FILL REAL U:BTAB ** b 4 P** ** 4 P** INPUT : A11=PROTOTYPE ADDRESS ** 4
0x2e56c4…2e5858 Dummy {f00=0x00e9, f01=0x0190, f02=»9 ** z 4 P************************************************ " P Z PGETPRO EQU * f ( P LD A3,U:BTOD,A10 GET U:BTAB ADDRESS z P IFT MMUPAG=0 P LDR* A4,A3 LENGTH PGETP10 EQU * 6 P SUK A4,UP:REC SUB RECORD LENG
0x2e5858…2e59ec Dummy {f00=0x00e9, f01=0x0190, f02=»ADDR,A3 SAME W.B.? , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A3,UP:REC NEXT J P RB GETP10 f P x 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * P PGETP30 EQU * P
0x2e59ec…2e5b80 Dummy {f00=0x00e9, f01=0x0190, f02=»CEMENT n . P AD A3,U:BTNW,A10 ADD TO NEW TABLE ADDRESS P LDR A9,A3 @ " P ST A4,URLENG,A9 STORE LENGTH R * P ST A5,URNUMB,A9 STORE IN REAL U:BTAB x 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * 0 P********************************************
0x2e5b80…2e5d14 (3, 140) Dummy {f00=0x00e9, f01=0x0190, f02=» P & P* UPDATE POINTER IN REAL U:BTAB * & P********************************* > PGETP50 EQU * h 6 P ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB | P XIF P IFT MMUPAG=1 P ELR A4,A3 LENGTH PGETP10 EQU * 6 P S
0x2e5d14…2e5ea8 Dummy {f00=0x00e9, f01=0x0190, f02=»TP20 EQU * ( P EL A9,UPADDR,A3 CHECK IF SAME W.B. P CWR A11,A9 > , P RF(E) GETP30 YES! GET NUMBER OF COPIES R P ADK A3,UP:REC NEXT P RB GETP10 P 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE
0x2e5ea8…2e603c Dummy {f00=0x00e9, f01=0x0190, f02=» t , P EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES P ANK A5,/FF 8 , P SU A3,U:BTOD,A10 GET TABLE DISPLACEMENT L . P AD A3,U:BTNW,A10 ADD TO NEW TABLE ADDRESS | P LDR A9,A3 " P TL* MMTO+STKCOM LOAD TO-TABLE * P ES A5,URNUMB,A9 ESORE IN REAL U:B
0x2e603c…2e61d0 Dummy {f00=0x00e9, f01=0x0190, f02=» * f 0 P******************************************** . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') > P RF(NP) GETP50 p PGETP40 CALL MOVWB P SUK A5,1 P RB(NZ) GETP40 P & P* UPDATE POINTER IN REAL U:BTAB * & P**********
0x2e61d0…2e6364 Dummy {f00=0x00e9, f01=0x018e, f02=»L* MMFROM+STKCOM P XIF P RTN A14 $ P EJECT 4 P B 2 P** M O V C L A ** N 2 P** ** 2 P** ** 2 P** CHECKS IF W.B. ALREA
0x2e6364…2e64f8 Dummy {f00=0x00e9, f01=0x0190, f02=» 2 P** ** 2 P** A LOT OF WORKREGS. ** : 2 P********************************************* p P PMOVCLA EQU * P CALL SHIFT P RF(Z) MVCL30 * PMVCL10 CALL GETWB W.B.-ADDRE
0x2e64f8…2e668c Dummy {f00=0x00e9, f01=0x0190, f02=»B(NZ) MVCL10 PMVCL30 RTN A14 PMVCL40 CALL MOVDT * P CALL MOVWB D " P LD A4,UWB+STKEND UWB-SCANNING X P RF(Z) MVCL50 NO! ~ P CALL GETPRO DUPLICATE WB'S 0 PMVCL50 ST A2,NEWAD2+STKEND SAVE W.B.-ADDRESS P CALL MOVDWB PROCESS DWB
0x2e668c…2e6820 Dummy {f00=0x00e9, f01=0x0190, f02=» ** 6 P** ** . 6 P** CHANGE ADDRESS TO W.B. & D.T. IN T:A, ** h 6 P** BLOCKS ALREDY MOVED ** 6 P**
0x2e6820…2e69b4 (3, 141) Opaque[0x194]
0x2e69b4…2e6b48 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1998, f03=0x0000}
0x2e69b4…2e6b48 IdxSect {
0x2e69b4…2e6b48 f00 = 0x00cc // 0x2e69b4 @0x0
0x2e69b4…2e6b48 f01 = 0x000a // 0x2e69b6 @0x2
0x2e69b4…2e6b48 gno = [ // 0x2e69b8 @0x4
0x2e69b4…2e6b48 [0x00]: C0x00cc.0x3.0
0x2e69b4…2e6b48 [0x01]: C0x00cd.0x0.0
0x2e69b4…2e6b48 [0x02]: C0x00cd.0x1.0
0x2e69b4…2e6b48 [0x03]: C0x00cd.0x2.0
0x2e69b4…2e6b48 [0x04]: C0x00cd.0x3.0
0x2e69b4…2e6b48 ]
0x2e69b4…2e6b48 }
0x2e6b48…2e6cdc Dummy {f00=0x00cc, f01=0x000c, f02=»830107 ! ECBINI v I:EOR f T:EDWF I:ECW p T:EDWE I:ECWC z I:EFIL I:SCB lT:DCOM 830107 T:FDS0 DCREAD T:DCR1 DCWRTE T:DCW1 DCEXCH T:DCE1 PRINT 830107 PRINT
0x2e6cdc…2e6e70 Dummy {f00=0x00cc, f01=0x0190, f02=» DSPBSC 830107 VDUKB TSTMES ICVRED READKB READK2 KBINP KBINP2 DCINP ICINP MATCH OPEN CONCT SETTYM STOINF ERASE LMP2ON LMP1ON CHKSTA COMINI H I:EVA0 ECBINI r SOUND RVDU 830107
0x2e6e70…2e7004 Dummy {f00=0x00cc, f01=0x0190, f02=» LINATT NLROUT 4 CRDOWN ERASE f ERASUP RDHOME ERASUA 8 POSUNP bTAB DISID DISSTA ` ATMASF b ATMASB WCHAR RFMDUP DISCHA 4 p NPAD 830107 PACK SCRINF WRAP DCWRIT UNPACK LMP
0x2e7004…2e7198 Dummy {f00=0x00cc, f01=0x0190, f02=» ERROR PAID BUFADR " CONADR SOUND COPY COPP SAVE1 REST1 GETBUF RELBUF " fCONVER # 830107 CONASC CONEBC CONATT CONADR CONPF @ CONORD X x FFMOVE ' 830107 FMOVE I:E
0x2e7198…2e732c Dummy {f00=0x00cc, f01=0x0190, f02=»VA0 I:RT1 $ >EMPTYT * 830107 EMPTYT I:EVA0 I:RT1 < T:STIN + 830107 STRIN1 T:STEV T:RNOK T:LOFS I:EVA0 T:LOPS T:CLMI I:MOV T:GRFC T:ROK zT:STOU . 830107 STROU1 T:STEV
0x2e732c…2e74c0 Dummy {f00=0x00cc, f01=0x0190, f02=» & T:EDFL 1 830107 T:EDFL T:PRKB T:PRDY T:PM1 T:PM2 T:CASP T:DUPX T:GRFC T:SCUW T:CLRD T:IOER T:BELL T:CLR1 T:CLR2 T:CLIT T:EKEY T:DYKI 6 830107 T:DYKI T:PRKB T:PRDY I:EVA
0x2e74c0…2e7654 (3, 142) Dummy {f00=0x00cd, f01=0x0190, f02=»:EVA0 T:LOPS T:CLMI T:PM1 n T:GRFC T:PM2 xT:UPDF ; 830107 T:UPDF T:GRFC T:LOFS I:EVA0 T:LOPS I:MOV T:RCR T:REWR T:RCTS P zT:DUPL = 830107 T:DUPL T:GRFC I:EVA0 T:RNOK T:ROK
0x2e7654…2e77e8 Dummy {f00=0x00cd, f01=0x0190, f02=»830107 T:GETA T:GRFC I:EVA0 T:RNOK T:ROK T:RCR " @T:TSTC A 830107 T:TSTC T:GRFC T:RTES 4 T:TFWD B 830107 T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBWD T:THOM "
0x2e77e8…2e797c Dummy {f00=0x00cd, f01=0x0190, f02=»:GRFC T:GTIP T:DISP " T:ERAS & T:GTIT T:PRDY T:TABD T:TABC T:RNOK I:RT1 T:SPAC T:EDIO X T:GETF G 830107 T:GETF T:PRDY T:TABC T:TABN T:GTIT ( T:GRFC T:GTIP 8 I:EVA0 I:EVA2 d <T:DE
0x2e797c…2e7b10 Dummy {f00=0x00cd, f01=0x0190, f02=»:DSL I:RET T:TABC , T:TABD 0 T:TABE 4 T:EDWI I:EVT I:EDSK T:GRFC T:ENIN T:LOPS T:EOR T:EDWF T:SCR2 T:SCUR T:TABN T T:RCR ^ T:EINP R 830107 T:PKI T:PINP T:GRFC I:ETAB I:EVIN I:ECTR
0x2e7b10…2e7ca4 Dummy {f00=0x00cd, f01=0x0190, f02=»:ENIN T:ENI T:LOFS I:EGTB T:WRDY I:EVA0 I:EVA1 I:ECPY T:EVOU X I:EVI I:EVA3 I:EPIC jT:SETC [ 830107 T:SETC T:PRDY T:GRFC T:EDWI T:RCTS T:SCUR T:WRDY * ,T:CLMI 830107 T
0x2e7ca4…2e7e38 Dummy {f00=0x00cd, f01=0x0190, f02=» : T:RNOK < T:GRFC @ T:WRDY H T:EDIO T:SPAC T:CHBU n T:PRKB T:PRDY T:ADDY T:DSM XT:LSEG ` 830107 T:LSEG T:CSEG I:RT1 T:LOFS F T:LOPS R f lT:DC00 b 830107 T:FDS0 DCREAD
0x2e7e38…2e7fcc Dummy {f00=0x00cd, f01=0x0190, f02=»07 T:TEST TESTIO T:ABOR ABORT LT:CLO0 e 830107 T:SETT SETTIM T:GETT GETTIM 4T:DEL0 f 830107 T:DELA DELAY 6T:GTI0 g 830107 T:GETI GETTID T:DC h 8301
0x2e7fcc…2e8160 Dummy {f00=0x00cd, f01=0x0190, f02=» 830107 T:SWIT I:RT1 ^T:TEI k 830107 T:TEST T:GDSP I:RT1 T:ABOR T:KIAA T:KIAC B bT:CLO l 830107 T:SETT I:EVA0 I:RT1 T:GETT T:SETD . T:GETD D H >T:DEL m 830107
0x2e8160…2e82f4 (3, 143) Dummy {f00=0x00cd, f01=0x0190, f02=» P:BAS I:NTPB T:BAT T:RSTR F I:EVA0 T:PAUS f I:RT1 PT:UNUS q 830107 T:UNUS P:MTAB T:UER I:RT1 T:UERR ,T:EXIT s 830107 T:EXIT ZT:GTCW t 830107 T:GDSP GETCW I:EVA0
0x2e82f4…2e8488 Dummy {f00=0x00cd, f01=0x0190, f02=» T:REAX T:SCW2 T:IO2 T:IREA T:XREA T:IXID I:EVA2 , T:DMW w 830107 T:SWRI T:WRIX T:IO1 T:XWRI T:DWRI T:SCW2 T:IO2 T:DREW $ T:IWRI 0 T:CREW > T:IREW L pT:DMDI y 830107
0x2e8488…2e861c Dummy {f00=0x00cd, f01=0x0190, f02=»:SCW2 T:GTBY T:IO2 T:IPOS T:WRIX T:IXID . .T:DCC { 830107 T:COPE T:COP1 T:DSB T:SCW2 T:WRIO T:IO1 T:CCLO " T:CCL1 & T:CCL2 * T:ACON P T:ACO1 T T:ACO2 X T:ACO3 T:PCON f T:PCO1 j T:P
0x2e861c…2e87b0 Dummy {f00=0x00cd, f01=0x0190, f02=»ECE T:REC1 T:REAX T:OPT T:IO2 T:AREC T:ARE1 $ T:STCW T:SCW2 D ~T:DCS 830107 T:SEND T:SEN1 T:WRIX T:OPT T:IO1 T:ASEN " T:ASE1 & T:STCW T:SCW2 H HT:IO 830107 T:KI T
0x2e87b0…2e8944 Dummy {f00=0x00cd, f01=0x0190, f02=» T:DSC2 T:XSTA T:WAIT T:MWAI T:IO1 T:IO2 ` T:IO3 d T:IO5 p T:IORE t T:GCW2 T:GTCW I:RT1 T:IOEN T:EDWR I:EDW T:EDWE T:EDWF T:EDWI T:EDIO T:KIPR 6 I:EVA7 T:FDS0 T:GDSP P:MTAB
0x2e8944…2e8ad8 Dummy {f00=0x00cd, f01=0x0190, f02=» T:CW 830107 T:STCW I:EVA2 T:SCW0 T:BCDB $ T:GTCW T:BINB T:KIAA T:KIAC T:GCW2 T:SCW2 >T:LEN 830107 GETLEN I:EVA0 I:RT1 |T:ADIT 830107 T:RREA
0x2e8ad8…2e8c6c Dummy {f00=0x00cd, f01=0x0190, f02=» T:ABUF T:KIPR T:LSEG T:IORE T:KIAA T:KIAC ,T:ABUF 830107 T:ABUF PWRITEL 830107 WRITEL T:FDS0 T:DSM I:EVA0 T:IO2 8 DI:NTP 830107 I:MOV I:ADD I:SUB I:CMP I:MUL
0x2e8c6c…2e8e00 Dummy {f00=0x00cd, f01=0x0190, f02=» T:LSEG I:NTP r I:NTPR r I:EVA0 I:EVA2 I:RT2 I:RT1 I:RT0 T:BAT T:PAT T:CAT I:EVB I v I:EVA 830107 P:MTAB I:EVA2 I:EVA1 I:EVA3 $ I:EVA6 ( I:EVA5 . I:EVA7 2 I:EVA0 T:LOFS T:LOPS
0x2e8e00…2e8f94 (3, 144) Dummy {f00=0x00cd, f01=0x0190, f02=» 830107 I:CMP I:CPA n *I:CPA 830107 I:CPA | LI:MOV 830107 I:MOV I:MVC I:MBTD I:MDTB HI:MMOV 830107 I:MMOV I:EVA2 I:EVA0 I:MOV T VI:MUL 830107 I
0x2e8f94…2e9128 Dummy {f00=0x00cd, f01=0x0190, f02=» I:ADD I:SH1R ,I:NTF 830107 I:NTFA 8 >I:EPIC 830107 I:EPIC I:EVA0 I:SCB I:EDTE 830107 I:EKIH I:EINH I:ETAB I:EVIN I:EVA0 I:EVA1 I:EBRI F I:EBR j I:EBRB n
0x2e9128…2e92bc Dummy {f00=0x00cd, f01=0x0190, f02=»0107 I:DLT I:EVS1 I:MCH I:INS p I:EVS2 I:CPY I:XCP I:MVC LI:EVS 830107 I:EVA0 I:EVS1 8 I:EVA2 I:EVS2 J STRIX 830107 I:EVNO I:ESKI I:EVA0 I:EBRI I:EBRB I:EBR I:ECW
0x2e92bc…2e9450 Dummy {f00=0x00cd, f01=0x0190, f02=»:EVT I:EDSK I:RT1 I:EVIN T:EVOU B STRIN2 830107 STRIN2 I:EXIT I:EVA0 T:CLMI I:MOV T:GRFC RSTROU2 830107 STROU2 I:EVA0 I:MOV T:GRFC I:EXIT ,USRFLD 830107 USRFLD
0x2e9450…2e95e4 Dummy {f00=0x00cd, f01=0x0190, f02=»M T:GTBY T:GDSP T:ROLL T:RSTA T:SCW2 T:IO3 T:OPCH T:STCH T:IXCH T:USE 830107 T:USE I:EVA0 P:MTAB T:UERR T I:RT0 T:UER ` f @KEYB 830107 KBINP2 KBINP DCABOR
0x2e95e4…2e9778 Dummy {f00=0x00cd, f01=0x0190, f02=»N L LMP2OF P LMP3ON T LMP3OF X LMP4ON LMP4OF ` LMP5ON d LMP5OF h LMP6ON p LMP6OF t SCRINF INSMOD STOVDU WCHAR POSUNP STOINF ATMASB DISCHA CRDOWN |TAB ATMASF GETVDU RDHOME LINE ERASUA D
0x2e9778…2e990c Dummy {f00=0x00cd, f01=0x0190, f02=»0107 DCINP GETBUF RELBUF UNPACK DISMOD LMP3OF OPEN P CONCT DISCON SETTYM READW DCWRIT . ERROR RESKB TSTMES v SETSTA TSTSTA RDSTAT DCABOR CHKSTA LMP1ON DCOFLN TRPA PAID
0x2e990c…2e9aa0 Dummy {f00=0x00cd, f01=0x0190, f02=» < T:PRDY T:CASP ^ T:LOFS I:EVA3 I:EPIC T:LOPS I:EVA0 I:ECPY I:EVI 8T:ENLI 830107 I:EVNO I:ECPY I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR I:EXIT I:EFLA T:PINP T:PKI I:EFIL I:ESKI
0x2e9aa0…2e9c34 (3, 145) Dummy {f00=0x00cd, f01=0x0190, f02=»:EOR > I:EDT 830107 I:EVT B I:EGTD I:EVA2 I:EVA5 I:EVB I:EGTB I:EVI I:EVA3 I:EVA0 I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR I:EINH I:EKIH I:EDSK ~ I:EDT I:ED1 I:EDW I:EVA6 I:EFL
0x2e9c34…2e9dc8 Dummy {f00=0x00cd, f01=0x0190, f02=» < I:ESL F I:ENL P I:ENL1 T I:EOR f T:EDWF I:ECW p T:EDWE I:ECWC z I:EFIL I:SCB lT:DCOM 830107 T:FDS0 DCREAD T:DCR1 DCWRTE T:DCW1 DCEXCH T:DCE1 PRINT 830107 PRINT
0x2e9dc8…2e9f5c Dummy {f00=0x00cd, f01=0x4022, f02=»P COMINI ECBINI v I:EOR f T:EDWF I:ECW p T:EDWE I:ECWC z I:EFIL I:SCB lT:DCOM 830107 T:FDS0 DCREAD T:DCR1 DCWRTE T:DCW1 DCEXCH T:DCE1 PRINT 830107 PRINT
0x2e9f5c…2ea0f0 Dummy {f00=0x00cd, f01=0x0190, f02=»
[…0x4…]
0x2ea740…2ea8d4 (3, 146) Opaque[0x194]
0x2ea8d4…2eaa68 # DirEnt {nam=»APLINK«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d58, f03=0x0000}
0x2ea8d4…2eaa68 IdxSect {
0x2ea8d4…2eaa68 f00 = 0x00ea // 0x2ea8d4 @0x0
0x2ea8d4…2eaa68 f01 = 0x0002 // 0x2ea8d6 @0x2
0x2ea8d4…2eaa68 gno = [ // 0x2ea8d8 @0x4
0x2ea8d4…2eaa68 [0x00]: C0x00ea.0x3.0
0x2ea8d4…2eaa68 ]
0x2ea8d4…2eaa68 }
0x2eaa68…2eabfc Dummy {f00=0x00ea, f01=0x00ac, f02=» PASG 2,NO PSCR PTRA DATBSC PTLK U,M 2 PASG 2,LP0F B PLKE M T PKPF /L,PT3272 b PSCR x P$PDISC A=PT3272 PASG /E0,TY10 GAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: 4 HMES 1 M,
0x2eabfc…2ead90 Dummy {f00=0x00ea, f01=0x2008, f02=» 2,NO PSCR PTRA DATBSC PTLK U,M 2 PASG 2,LP0F B PLKE M T PKPF /L,PT3272 b PSCR x P$PDISC A=PT3272 PASG /E0,TY10 GAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: 4 HMES 1 M,
0x2ead90…2eaf24 Dummy {f00=0x00ea, f01=0x0016, f02=»NEEDED b HEND FILE t 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE " 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 X 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF ALT
0x2eaf24…2eb0b8 Dummy {f00=0x00ea, f01=0x2008, f02=» b HEND FILE t 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE " 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 X 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF ALT
0x2eb0b8…2eb24c Dummy {f00=0x00ea, f01=0x018e, f02=» L H IDENT T:AK20 TRA 11.0 82-09-28 F1 O1111 REL 11.0 82-07-07 87015054110 T:AK20 T T:AK20A f . * T:DK20 D:CB10 C:CB10 D:TB10 Z:TB10 z * & * & * &
0x2eb24c…2eb3e0 Dummy {f00=0x00ea, f01=0x4098, f02=» * & @ B P Q * & @ a b ! K2 2 U ` @ B10 Z:TB10 z * & * & * &
0x2eb3e0…2eb574 (3, 147) Opaque[0x194]
0x2eb574…2eb708 # DirEnt {nam=»GTCONF«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d60, f03=0x0000}
0x2eb574…2eb708 IdxSect {
0x2eb574…2eb708 f00 = 0x00eb // 0x2eb574 @0x0
0x2eb574…2eb708 f01 = 0x0002 // 0x2eb576 @0x2
0x2eb574…2eb708 gno = [ // 0x2eb578 @0x4
0x2eb574…2eb708 [0x00]: C0x00eb.0x0.0
0x2eb574…2eb708 ]
0x2eb574…2eb708 }
0x2eb708…2eb89c Dummy {f00=0x00eb, f01=0x018e, f02=» PT; P02; PTID=V0; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P02; PTID=T0; PTCL=P1; PLEV=60; P01; PTDC=
0x2eb89c…2eba30 Dummy {f00=0x00eb, f01=0x0040, f02=» PNSA=04; P40; PC1; PC8; , PC9; 8; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P02; PTID=T0; PTCL=P1; PLEV=60; P01; PTDC=
0x2eba30…2ebbc4 Dummy {f00=0x00eb, f01=0x2008, f02=» 04; P40; PC1; PC8; , PC9; 8; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P02; PTID=T0; PTCL=P1; PLEV=60; P01; PTDC=
0x2ebbc4…2ebd58 Dummy {f00=0x00eb, f01=0x018e, f02=»************************* v P* " . P* KB/VDU TERMINAL WITH TWO DC-LINES , P* ^ 8 P*************************************************** h P* TERM K2 P* P* CWB CB1 P* TWB TB1 P* P* START KBVGO P*
0x2ebd58…2ebeec Dummy {f00=0x00eb, f01=0x0190, f02=» P*DSICR DSET FC=X'50',DEV=II P*DSICW DSET FC=X'51',DEV=IO ( P*DSDC1 DSET FC=X'61' L P*DSDC2 DSET FC=X'62' h P EJECT 8 P**************************************************** P* . P* PRINTER TERMINAL WITH ONE DC-LINE
0x2ebeec…2ec080 Dummy {f00=0x00eb, f01=0x0190, f02=» P START PRTGO P* @ PPDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS " PPDSICR DSET FC=X'50',DEV=II f PPDSICW DSET FC=X'51',DEV=IO PPDSDC1 DSET FC=X'61' P EJECT : P************************************************
0x2ec080…2ec214 (3, 148) Opaque[0x194]
0x2ec214…2ec3a8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d68, f03=0x0000}
0x2ec214…2ec3a8 IdxSect {
0x2ec214…2ec3a8 f00 = 0x00eb // 0x2ec214 @0x0
0x2ec214…2ec3a8 f01 = 0x0004 // 0x2ec216 @0x2
0x2ec214…2ec3a8 gno = [ // 0x2ec218 @0x4
0x2ec214…2ec3a8 [0x00]: C0x00eb.0x1.0
0x2ec214…2ec3a8 [0x01]: C0x00eb.0x2.0
0x2ec214…2ec3a8 ]
0x2ec214…2ec3a8 }
0x2ec3a8…2ec53c Dummy {f00=0x00eb, f01=0x0190, f02=» $ P IDENT CTAB01 REL. 11.0 81/10/28 P , 8 P*************************************************** 4 8 P* * p 8 P* CTAB01, CTAB02, CTAB03, KEY CONVERSION FOR * 8 P* 6271, 6272 KEYBOARDS FOR DAN
0x2ec53c…2ec6d0 Dummy {f00=0x00eb, f01=0x0190, f02=»*** ` P EJECT P********************* P* ENTRIES * 8 P********************* V P ENTRY CTAB01,CTAB02,CTAB03 t P EJECT PCTAB01 EQU * PCTAB02 EQU * PCTAB03 EQU * P " P DATA UNSH,SHIFT,UNSH,SHIFT,0
0x2ec6d0…2ec864 Dummy {f00=0x00eb, f01=0x0190, f02=»3,SHIFT4,SHIFT5,SHIFT6,0 p PUNSH0 EQU * : P DATA /BAB1,/B2B3,/B4B5,/B6B7,/B8B9,/B0A2,/8489,/88A0 4 PUNSH1 EQU * r : P DATA /3031,/3233,/3435,/3637,/3839,/8F90,/852D,/8C8D PUNSH2 EQU * : P DATA /207F,/7F7F,/7F7F,/7F27,/7F3C,/7F2B,/2C2D,
0x2ec864…2ec9f8 Dummy {f00=0x00eb, f01=0x0190, f02=»445,/4647,/4849,/4A4B,/4C4D,/4E4F | PUNSH5 EQU * * : P DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/5E7F > PUNSH6 EQU * | : P DATA /7F92,/7FA5,/7F8A,/8B7F,/7F7F,/7F7F,/7F7F,/7F7F P EJECT PSHIFT0 EQU * : P DATA /C6B1,/B2B3,/B4B5,
0x2ec9f8…2ecb8c Dummy {f00=0x00eb, f01=0x018e, f02=» : P DATA /207F,/7F7F,/7F7F,/7F2A,/7F3E,/7F3F,/385F,/3A7F PSHIFT3 EQU * B : P DATA /3D21,/2223,/2425,/262F,/2829,/8682,/8780,/8183 V PSHIFT4 EQU * : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F PSHIFT5 EQU * : P DATA /5051,/5
0x2ecb8c…2ecd20 Dummy {f00=0x00eb, f01=0x400c, f02=» @ 07F,/7F7F,/7F7F,/7F2A,/7F3E,/7F3F,/385F,/3A7F PSHIFT3 EQU * B : P DATA /3D21,/2223,/2425,/262F,/2829,/8682,/8780,/8183 V PSHIFT4 EQU * : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F PSHIFT5 EQU * : P DATA /5051,/5
0x2ecd20…2eceb4 (3, 149) Dummy {f00=0x00eb, f01=0x2008, f02=»
0x2eceb4…2ed048 Dummy {f00=0x00eb, f01=0x0190, f02=» X 2:D :D :D C . . X 2 . X * . B ! T X ! P / Y . . B Y " . X 2 . . . X " P . /l B . . /~ X 2 . . X *T . . W, P C X P q C 0P Y *
0x2ed048…2ed1dc Dummy {f00=0x00eb, f01=0x0190, f02=»Z X A/ * / Y $_. Y $ / @pV T ApX ApV . X $P y $ Y $ 0 9j (P 0 ) 0 9j (P _ ) 1_ * $X 0 % /X_ pv ( (P _ ) 1_@ pv ( (XL P _ 0 )_Z pr &_2 pr &_$ * (P _ ) 1 4 A/ A/ A/ A/ A/ 0 W
0x2ed1dc…2ed370 Dummy {f00=0x00eb, f01=0x0190, f02=»P % Apt 4 * 0 +& !7 !7 o ] +& !7 !7 ] " P ] 00 0 +& Apd Apf !7 !8 T. . 1 1& 1 2 2f 3 44 4 Ap^ +& !7 !8 @pzT " !7 _Z !8 ] P = $ !8 x !8 > !8 F !7 Apb P "P, !4 @pXT( PV !0 X
0x2ed370…2ed504 Dummy {f00=0x00eb, f01=0x0190, f02=» C B B Apj Apl Apn Ap Ap^ !6& !0@ ApX_ !4 T o @pX X ! P !5 0 # T @9jT !5 _ !4 App !5 _$ !0t Ap` @pXP @pVP !4 ApX ApZ 0 !0t @pZP @9j 1 !56 T> Ap^ !5 0 @pXP @9jP @pV 1 8 !4 !4 Apb_: !8 X8_` Ap^ @9j @ppT 1
0x2ed504…2ed698 Dummy {f00=0x00eb, f01=0x0190, f02=» " H " P X * Y X V !/ W* X T X *P W !/ X T X ! P !5 W !5 0 ApZ @pT X 0 Ap` ApV Apb 2 !0t @pXT @pZP !6 0 !0t @pXT @pZX W` @pV @p^ 1 @pp @pj Apn 2 !0t @pXT _> !8 T @pbP !5 !0@_X /T, @pbX @p P @
0x2ed698…2ed82c Dummy {f00=0x00eb, f01=0x0190, f02=» 4 ApZ Apn H E Ap^ ApT 4 @pVP* X R$ X " T X *P /4 / ApX ApV 4 @9j @p^T @pp Apn @pn App Ap^ !8 T8 P: PN PP P P4 ( 1 Apn @pn ]: _> P _F @9j @pn E !9BP !7 4 _" !9B 0_p / ApbT W ,W @ Apx A
0x2ed82c…2ed9c0 Dummy {f00=0x00eb, f01=0x0190, f02=»p`P - !8 x . !o W 0 " @p`PL R ~T }T T0 W, !8 P " ! " :A *@ H T 0 !8 W R !8 Apn @pl @pnUH Zx Q P Q T 0 !8 Apn 0 !8 Apn !8 " !8 " !8 6 Ap _" Ap^ ApV !7 !8 % !8 R !8 !8 < !8 @pV
0x2ed9c0…2edb54 (3, 150) Opaque[0x194]
0x2edb54…2edce8 # DirEnt {nam=»UPDAPP«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d78, f03=0x0000}
0x2edb54…2edce8 IdxSect {
0x2edb54…2edce8 f00 = 0x00eb // 0x2edb54 @0x0
0x2edb54…2edce8 f01 = 0x0002 // 0x2edb56 @0x2
0x2edb54…2edce8 gno = [ // 0x2edb58 @0x4
0x2edb54…2edce8 [0x00]: C0x00eb.0x3.0
0x2edb54…2edce8 ]
0x2edb54…2edce8 }
0x2edce8…2ede7c Dummy {f00=0x00eb, f01=0x0088, f02=» SCR ASM KEYB KPF /O SCR . ASM DSPBSC : KPF /O L SCR Z ASG /E0,DK,APLINK f END ( _ ( l : H D ! . + ~ 9T GP OT _T oT T W& T T W P W 8 b
0x2ede7c…2ee010 Dummy {f00=0x00eb, f01=0x2008, f02=» ASM KEYB KPF /O SCR . ASM DSPBSC : KPF /O L SCR Z ASG /E0,DK,APLINK f END ( _ ( l : H D ! . + ~ 9T GP OT _T oT T W& T T W P W 8 b
0x2ee010…2ee1a4 Dummy {f00=0x00eb, f01=0x0190, f02=»MBER OF LINES (1-2) PNBRLIN EQU 1 * PX:M EQU 0 COPY COMMNAND INCLUDED IF:=1 0 PCOPCMD EQU 1 ^ " PX:O EQU 0 TEST INCLUDED IF:=1 r PTEST EQU 0 P EJECT @ P*********************************************************** @ P*
0x2ee1a4…2ee338 Dummy {f00=0x00eb, f01=0x0190, f02=» * j @ P*********************************************************** P b P* j P* ECB INDEX TABLE t P* PECBIND EQU * P DATA 8 NUMBER OF ENTRIES P DATA X'2000' ECB KB P DATA X'3002' ECB PRINTER
0x2ee338…2ee4cc Dummy {f00=0x00eb, f01=0x018e, f02=»RTASK WRITE z P DATA X'610C' ECB DC LINE1 ( P DATA X'210E' ECB FOR NUMERIC KB DK 6 P* b $ P* SCREEN SIZE ON DISPLAY l P* PLBVDU EQU 1920 P* P* MODES P* * PHCPMOD EQU /4000 HARDCOPY OUTSTANDING P*
0x2ee4cc…2ee660 Dummy {f00=0x00eb, f01=0x0190, f02=» P* TERMINAL WORKBLOCK TB1 P* $ POFFFLG EQU 1962 OFFLINE FLAG . * PPRTID EQU OFFFLG+2 TASKID FOR HARDCOPY R " PMAIN EQU PRTID+6 WHICH DC LINE . PECBBLK EQU MAIN+6 ECBBLK FOR MULTIPLE WAIT PREGI EQU ECBBLK+16 SAVE AREA PBSCMOD EQU R
0x2ee660…2ee7f4 (3, 151) Opaque[0x194]
0x2ee7f4…2ee988 # DirEnt {nam=»MINCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d80, f03=0x0000}
0x2ee7f4…2ee988 IdxSect {
0x2ee7f4…2ee988 f00 = 0x00ec // 0x2ee7f4 @0x0
0x2ee7f4…2ee988 f01 = 0x0002 // 0x2ee7f6 @0x2
0x2ee7f4…2ee988 gno = [ // 0x2ee7f8 @0x4
0x2ee7f4…2ee988 [0x00]: C0x00ec.0x0.0
0x2ee7f4…2ee988 ]
0x2ee7f4…2ee988 }
0x2ee988…2eeb1c Dummy {f00=0x00ec, f01=0x018e, f02=» PT; P01; PTID=V0; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=T1; PTCL=P1; PLEV=60; P01; PTDC=
0x2eeb1c…2eecb0 Dummy {f00=0x00ec, f01=0x0028, f02=» PNSA=02; P40; PC8; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=T1; PTCL=P1; PLEV=60; P01; PTDC=
0x2eecb0…2eee44 Dummy {f00=0x00ec, f01=0x2008, f02=» 02; P40; PC8; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=T1; PTCL=P1; PLEV=60; P01; PTDC=
0x2eee44…2eefd8 Dummy {f00=0x00ec, f01=0x2008, f02=» b HEND FILE t 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE " 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 X 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF ALT
0x2eefd8…2ef16c Dummy {f00=0x00ec, f01=0x0190, f02=»
[…0x1…]
0x2ef300…2ef494 (3, 152) Opaque[0x194]
0x2ef494…2ef628 # DirEnt {nam=»TWOCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d88, f03=0x0000}
0x2ef494…2ef628 IdxSect {
0x2ef494…2ef628 f00 = 0x00ec // 0x2ef494 @0x0
0x2ef494…2ef628 f01 = 0x0002 // 0x2ef496 @0x2
0x2ef494…2ef628 gno = [ // 0x2ef498 @0x4
0x2ef494…2ef628 [0x00]: C0x00ec.0x1.0
0x2ef494…2ef628 ]
0x2ef494…2ef628 }
0x2ef628…2ef7bc Dummy {f00=0x00ec, f01=0x018e, f02=» PT; P02; PTID=V0; PTCL=K2; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=L2; PTCL=P2; PLEV=60; P01; PTDC=
0x2ef7bc…2ef950 Dummy {f00=0x00ec, f01=0x00a4, f02=» PNSA=03; P40; PC1; PC8; , PSDTE=CD; 8 P01; H PTYPE=LT; T PNA=C161; d PNSA=03; t P40; PC1; PC8; C=S01; PT; P01; PTID=L2; PTCL=P2; PLEV=60; P01; PTDC=
0x2ef950…2efae4 Dummy {f00=0x00ec, f01=0x2008, f02=» 03; P40; PC1; PC8; , PSDTE=CD; 8 P01; H PTYPE=LT; T PNA=C161; d PNSA=03; t P40; PC1; PC8; C=S01; PT; P01; PTID=L2; PTCL=P2; PLEV=60; P01; PTDC=
0x2efae4…2efc78 Dummy {f00=0x00ec, f01=0x0190, f02=»502 IH2501 IH2502 , ( 0 IHPR01 ` , ( ! r IHPL01 IHPL02 , ( 1 , ( A
0x2efc78…2efe0c Dummy {f00=0x00ec, f01=0x0190, f02=» HALT & 6 SCTMSZ N SCTSFA b SCTEFA v SCTIPL SCTANO SCTTCT SCTCDT , ( @
0x2efe0c…2effa0 Dummy {f00=0x00ec, f01=0x0190, f02=» SCTDMT SCTDMI SCTFWT ( SCTNOF < SCTNFT P SCTFWL d SCTBLK x SCTDCT SCTNOS , ( SCTMXS SCTMOX
0x2effa0…2f0134 (3, 153) Opaque[0x194]
0x2f0134…2f02c8 # DirEnt {nam=»MAXCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d90, f03=0x0000}
0x2f0134…2f02c8 IdxSect {
0x2f0134…2f02c8 f00 = 0x00ec // 0x2f0134 @0x0
0x2f0134…2f02c8 f01 = 0x0002 // 0x2f0136 @0x2
0x2f0134…2f02c8 gno = [ // 0x2f0138 @0x4
0x2f0134…2f02c8 [0x00]: C0x00ec.0x2.0
0x2f0134…2f02c8 ]
0x2f0134…2f02c8 }
0x2f02c8…2f045c Dummy {f00=0x00ec, f01=0x018e, f02=» PT; P05; PTID=V0; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P05; PTID=T8; PTCL=P1; PLEV=60; P01; PTDC=
0x2f045c…2f05f0 Dummy {f00=0x00ec, f01=0x00ac, f02=» PNSA=13; P40; PC1; PC2; , PC3; 8 PC4; D P00; P P00; P00; h PC8; t PC9; P4A; P4B; P4C; PT; P05; PTID=T8; PTCL=P1; PLEV=60; P01; PTDC=
0x2f05f0…2f0784 Dummy {f00=0x00ec, f01=0x2008, f02=» 13; P40; PC1; PC2; , PC3; 8 PC4; D P00; P P00; P00; h PC8; t PC9; P4A; P4B; P4C; PT; P05; PTID=T8; PTCL=P1; PLEV=60; P01; PTDC=
0x2f0784…2f0918 Dummy {f00=0x00ec, f01=0x2008, f02=» MBINATION OF ALTERNATIVE 1,2,3 AND 4 IS VALID, 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN > 8 HMES ALTERNATIVES 5,6 AND 7 MAY BE INCLUDED IF NEEDED r HEND FILE 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE 2 HMES 5 FC FI
0x2f0918…2f0aac Dummy {f00=0x00ec, f01=0x0190, f02=»
[…0x1…]
0x2f0c40…2f0dd4 (3, 154) Opaque[0x194]
0x2f0dd4…2f0f68 # DirEnt {nam=»TSTCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d98, f03=0x0000}
0x2f0dd4…2f0f68 IdxSect {
0x2f0dd4…2f0f68 f00 = 0x00ec // 0x2f0dd4 @0x0
0x2f0dd4…2f0f68 f01 = 0x0002 // 0x2f0dd6 @0x2
0x2f0dd4…2f0f68 gno = [ // 0x2f0dd8 @0x4
0x2f0dd4…2f0f68 [0x00]: C0x00ec.0x3.0
0x2f0dd4…2f0f68 ]
0x2f0dd4…2f0f68 }
0x2f0f68…2f10fc Dummy {f00=0x00ec, f01=0x018e, f02=» PT; P11; PTID=V0; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P05; PTID=T8; PTCL=P1; PLEV=60; P01; PTDC=
0x2f10fc…2f1290 Dummy {f00=0x00ec, f01=0x00ac, f02=» PNSA=13; P40; PC1; PC2; , PC3; 8 PC4; D P00; P P00; P00; h PC8; t PC9; P4A; P4B; P4C; PT; P05; PTID=T8; PTCL=P1; PLEV=60; P01; PTDC=
0x2f1290…2f1424 Dummy {f00=0x00ec, f01=0x2008, f02=» 13; P40; PC1; PC2; , PC3; 8 PC4; D P00; P P00; P00; h PC8; t PC9; P4A; P4B; P4C; PT; P05; PTID=T8; PTCL=P1; PLEV=60; P01; PTDC=
0x2f1424…2f15b8 Dummy {f00=0x00ec, f01=0x2008, f02=» ED f HEND FILE x 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE & 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF
0x2f15b8…2f174c Dummy {f00=0x00ec, f01=0x0190, f02=» J F IDENT SYSINI REL 11.0 81-01-26 870105041100 F B SYSINIK INILEN INIEND dREL MOVEY ERROR CMPADRL NXTBLK NXTCOM R H D ! CONVRT GETNUM MULTY XMOVE MOVING MOVMMT MMRST GETTAB GETTTB H D ! MMENT PUSHYdPOB GETAPP8 SETTA
0x2f174c…2f18e0 Dummy {f00=0x00ec, f01=0x0190, f02=» W z " tPSW @ . , ( K @ ; Z [ : : 2 [ [ > MMDDIV0 l n i" 2 : MMTAB TABBE MMEND , (
0x2f18e0…2f1a74 (3, 155) Opaque[0x194]
0x2f1a74…2f1c08 # DirEnt {nam=»CONFIG«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1da0, f03=0x0000}
0x2f1a74…2f1c08 IdxSect {
0x2f1a74…2f1c08 f00 = 0x00ed // 0x2f1a74 @0x0
0x2f1a74…2f1c08 f01 = 0x0002 // 0x2f1a76 @0x2
0x2f1a74…2f1c08 gno = [ // 0x2f1a78 @0x4
0x2f1a74…2f1c08 [0x00]: C0x00ed.0x0.0
0x2f1a74…2f1c08 ]
0x2f1a74…2f1c08 }
0x2f1c08…2f1d9c Dummy {f00=0x00ed, f01=0x018e, f02=» PT; P02; PTID=V1; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=T3; PTCL=P1; PLEV=60; P01; PTDC=
0x2f1d9c…2f1f30 Dummy {f00=0x00ed, f01=0x0034, f02=» PNSA=03; P40; PC1; PC8; , * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=T3; PTCL=P1; PLEV=60; P01; PTDC=
0x2f1f30…2f20c4 Dummy {f00=0x00ed, f01=0x2008, f02=» 03; P40; PC1; PC8; , * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=T3; PTCL=P1; PLEV=60; P01; PTDC=
0x2f20c4…2f2258 Dummy {f00=0x00ed, f01=0x2008, f02=» b HEND FILE t 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE " 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 X 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF ALT
0x2f2258…2f23ec Dummy {f00=0x00ed, f01=0x0190, f02=»
[…0x1…]
0x2f2580…2f2714 (3, 156) Opaque[0x194]
0x2f2714…2f28a8 # DirEnt {nam=»ONECON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1da8, f03=0x0000}
0x2f2714…2f28a8 IdxSect {
0x2f2714…2f28a8 f00 = 0x00ed // 0x2f2714 @0x0
0x2f2714…2f28a8 f01 = 0x0002 // 0x2f2716 @0x2
0x2f2714…2f28a8 gno = [ // 0x2f2718 @0x4
0x2f2714…2f28a8 [0x00]: C0x00ed.0x1.0
0x2f2714…2f28a8 ]
0x2f2714…2f28a8 }
0x2f28a8…2f2a3c Dummy {f00=0x00ed, f01=0x018e, f02=» PT; P01; PTID=V0; PTCL=K2; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=T2; PTCL=P2; PLEV=60; P01; PTDC=
0x2f2a3c…2f2bd0 Dummy {f00=0x00ed, f01=0x00a4, f02=» PNSA=03; P40; PC1; PC8; , PSDTE=CD; 8 P01; H PTYPE=LT; T PNA=C161; d PNSA=03; t P40; PC1; PC8; C=S01; PT; P01; PTID=T2; PTCL=P2; PLEV=60; P01; PTDC=
0x2f2bd0…2f2d64 Dummy {f00=0x00ed, f01=0x2008, f02=» 03; P40; PC1; PC8; , PSDTE=CD; 8 P01; H PTYPE=LT; T PNA=C161; d PNSA=03; t P40; PC1; PC8; C=S01; PT; P01; PTID=T2; PTCL=P2; PLEV=60; P01; PTDC=
0x2f2d64…2f2ef8 Dummy {f00=0x00ed, f01=0x2008, f02=» b HEND FILE t 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE " 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 X 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF ALT
0x2f2ef8…2f308c Dummy {f00=0x00ed, f01=0x0190, f02=»
[…0x1…]
0x2f3220…2f33b4 (3, 157) Opaque[0x194]
0x2f33b4…2f3548 # DirEnt {nam=»LISTO «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1db0, f03=0x0000}
0x2f33b4…2f3548 IdxSect {
0x2f33b4…2f3548 f00 = 0x00ed // 0x2f33b4 @0x0
0x2f33b4…2f3548 f01 = 0x0002 // 0x2f33b6 @0x2
0x2f33b4…2f3548 gno = [ // 0x2f33b8 @0x4
0x2f33b4…2f3548 [0x00]: C0x00ed.0x2.0
0x2f33b4…2f3548 ]
0x2f33b4…2f3548 }
0x2f3548…2f36dc Dummy {f00=0x00ed, f01=0x00ec, f02=» ASM DSPBSC KPF /O SCR $ ASM KEYB 0 KPF /O @ SCR N ASM DCBSC Z KPF /O l SCR z ASM PRINT KPF /O SCR TRA DATBSC SCR ASG /E0,TY10 END
0x2f36dc…2f3870 Dummy {f00=0x00ed, f01=0x2008, f02=» DSPBSC KPF /O SCR $ ASM KEYB 0 KPF /O @ SCR N ASM DCBSC Z KPF /O l SCR z ASM PRINT KPF /O SCR TRA DATBSC SCR ASG /E0,TY10 END
0x2f3870…2f3a04 Dummy {f00=0x00ed, f01=0x0190, f02=»DIFIED ADDRESS Y PREADS EQU *-2 Z P RTN A14 Z , P EJECT Z < P* Z J P* DATA AREA DEFINITION Z T P* Z t PSYSBAS EQU * Z ~ PSAVCON DATA BUFLEN Z 2 PMXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS Z PSAVMEM DATA 0 SAVE AREA Z & PCYLNBR
0x2f3a04…2f3b98 Dummy {f00=0x00ed, f01=0x411c, f02=»AB DATA 0,/1909,/3717,/2808,/1404 Z P XIF =9 [ * P IFF CDDISC-CDDI16=1 =9 [ < , PDEVTAB DATA 0,/1909,/3717,/2808,/5717 =9 [ P XIF =9 [ $ PSWPTAB DATA '$S','WA','P ',' ' [ PFCTAB EQU * =5 [ P DATA /F1F3,/F0F2 =5 [ P* [ P END
0x2f3b98…2f3d2c Dummy {f00=0x00ed, f01=0x2008, f02=» P X ` h p
0x2f3d2c…2f3ec0 Dummy {f00=0x00ed, f01=0x0190, f02=» x " PLMP3 EQU /100 MEMORY OVERFLOW , PLMP4 EQU /80 ERROR IN CONFIGURATION DATA . PLMP5 EQU /40 NOT USED ^ PLMP6 EQU /20 NOT USED | PLMP7 EQU /10 NOT USED PLMP8 EQU 8 NOT USED PLMP9 EQU 4 NOT USED PLMP10 EQU 2 NOT USED
0x2f3ec0…2f4054 (3, 158) Opaque[0x194]
0x2f4054…2f41e8 # DirEnt {nam=»PT3272«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1978, f03=0x0000}
0x2f4054…2f41e8 IdxSect {
0x2f4054…2f41e8 f00 = 0x00cb // 0x2f4054 @0x0
0x2f4054…2f41e8 f01 = 0x0010 // 0x2f4056 @0x2
0x2f4054…2f41e8 gno = [ // 0x2f4058 @0x4
0x2f4054…2f41e8 [0x00]: C0x00cb.0x3.0
0x2f4054…2f41e8 [0x01]: C0x00cc.0x0.0
0x2f4054…2f41e8 [0x02]: C0x00cc.0x1.0
0x2f4054…2f41e8 [0x03]: C0x00cc.0x2.0
0x2f4054…2f41e8 [0x04]: C0x00ce.0x1.0
0x2f4054…2f41e8 [0x05]: C0x00ce.0x2.0
0x2f4054…2f41e8 [0x06]: C0x00ce.0x3.0
0x2f4054…2f41e8 [0x07]: C0x00cf.0x0.0
0x2f4054…2f41e8 ]
0x2f4054…2f41e8 }
0x2f41e8…2f437c Dummy {f00=0x00cb, f01=0x0190, f02=»/ >Y LCR & @ B P Q a ! K1 8 ^ N K1 @ * *
0x2f437c…2f4510 Dummy {f00=0x00cb, f01=0x0190, f02=» @ B P Q a b ! K2 8 ^ N K2 @ * * 0 P Q a j P1 8 ^ N P1 @ * *
0x2f4510…2f46a4 Dummy {f00=0x00cb, f01=0x0190, f02=» P Q a b P2 8 ^ N P2 @ * * ^
0x2f46a4…2f4838 Dummy {f00=0x00cb, f01=0x0190, f02=»
[…0x2…]
0x2f4b60…2f4cf4 (3, 159) Dummy {f00=0x00cc, f01=0x0190, f02=»
[…0x1…]
0x2f4e88…2f501c Dummy {f00=0x00cc, f01=0x0190, f02=» > H/ J/ 0 0 _ 0 0 / L" 0 @ B P Q a b !
0x2f501c…2f51b0 Dummy {f00=0x00cc, f01=0x0190, f02=» O ?DW T O GBW O @ : V M P W , !VV , : G ( z G H R &! X !VVX 9H F O N P @ W @ I* : 2 . V ! 09B O E :h % : V H @ X =P
0x2f51b0…2f5344 Dummy {f00=0x00cc, f01=0x0190, f02=» O N T O T RtT B W PR v_* , ! V& X" X( X. X4 Y _> O ! P " P W W 9 _f PR v_ , ! ^< _ ( : P R C B ( B ! P C W. B ! QP$ B + Y
0x2f5344…2f54d8 Dummy {f00=0x00cc, f01=0x0190, f02=» P P C C W^ T " U N P$ O N ! P " T W 9 W : P : ! T W P <! P W P . O O P 2 P0 P 2
0x2f54d8…2f566c Dummy {f00=0x00cc, f01=0x0190, f02=» U O : : <' : # : N N N : O O O : B + E E C ( B : R : Q 2 : Q, ! P X ) Y Q P _$ P QR P _> : Q& X ) Y Q PW
0x2f566c…2f5800 Dummy {f00=0x00cc, f01=0x0190, f02=» !VVT 1 B E C ( : O T Wj , ! V _ P 2W ( , ! Z P6 ! " - X ) Y ( , ! ^( - X ) Y _ C : P2 T P` " P PP , ! Z P 2 W ( P" ,
0x2f5800…2f5994 (3, 160) Dummy {f00=0x00cc, f01=0x0190, f02=»T : V . $ P R 4 9 _ B Y 6 @ Y / C v : : O U N P ! Z : O ! V V N P _ : U P ! W : ' P ' T W B ] ] O
0x2f5994…2f5b28 Dummy {f00=0x00cc, f01=0x0190, f02=» PH , ! V _ W PJ , ! Z " T _ T0 P , ! ^> P T _$ Hp - : O N !VVT @ P 2 O T N X W l - : x $ 6 : L O P W 1Pd 5P>
0x2f5b28…2f5cbc Dummy {f00=0x00cc, f01=0x0190, f02=» O : R Q 2 - X ) Y W H/t : h t 0 O W2 O H. * O ( X ! P t - ( : O WB H. '??F O W0 H. "? O V 2 W : O : ! T& P ( PB
0x2f5cbc…2f5e50 Dummy {f00=0x00cc, f01=0x0190, f02=» O W, O - X ) Y ( W : O WP H. '??F O W> H. "? O V" W : W" W ( - X ) Y : : : : R V W V @x O ( : V " # :
0x2f5e50…2f5fe4 Dummy {f00=0x00cc, f01=0x0190, f02=» N ' P ! P N !VVT E W M : W % % % % % % : W $ $ $ $ $ $ : #
0x2f5fe4…2f6178 Dummy {f00=0x00cc, f01=0x0190, f02=»
[…0xa…]
0x2f7140…2f72d4 (3, 162) Dummy {f00=0x00ce, f01=0x0190, f02=» T ( _ " = : <P _
0x2f72d4…2f7468 Dummy {f00=0x00ce, f01=0x0190, f02=»%_>? 12345678`:#@'=" abcdefghi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'="{ABCDEFGHI[.<(+!}JKLMNOPQR]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7-./ O<=2&p ?' @Z {JlP}M] Nk`Ka z^L~no| { [_my
0x2f7468…2f75fc Dummy {f00=0x00ce, f01=0x0190, f02=» ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="123456789:# ABCDEFGHI .< / 2 V G 9h ' 0f0:0:0:0 1 0l1 7 5@5F6 9 ;h;h9 1j1j1x0f1 0f1x1xJ > >J= = > = 2 2 2 2 Q~ V 7 @ n! P
0x2f75fc…2f7790 Dummy {f00=0x00ce, f01=0x0190, f02=»P V W8 _ 2 # ;B V T W V P L , V 2P " 2 P V D ! R T V P V Qz W V _ 8^n D/ Vt @ 2 ! 9B V T W V P D $ V 6 V % V E W 2 % ^ 6 E 7_ 2 # L 2 2
0x2f7790…2f7924 Dummy {f00=0x00ce, f01=0x0190, f02=» /z 0f 5 V & 0 H/ 'W 'W '_8 Z b ^ f :l:d:h 2 W W P W 6 2# 4 W4 @ p E22" T> ; [ # 4 :H 2 T Z L L2" D V, W # 4 L2" D V $ W D V L2* , W 6 2 4 W$ "
0x2f7924…2f7ab8 Dummy {f00=0x00ce, f01=0x0190, f02=» ; 2 6 : F _v :B , (Vv ; H [ [ [ 2 z ;AV$ Z H # 4 ; 2 : & Z 4 4 : Z 4 " 2@P : [ [ 2 & @ p! P [ 6 [ Z 7 2P
0x2f7ab8…2f7c4c Dummy {f00=0x00ce, f01=0x0190, f02=»XR : ; V Y : 2! : 6 2 4 W& " # 4 ;b ; : ;f" #?_" W " T & T + : * & !@P `1` P 7 Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X
0x2f7c4c…2f7de0 Dummy {f00=0x00ce, f01=0x0190, f02=» <# =_ P :" P * U P 1`! T "# 9e! # K : P8" T * & : * & !`P :J +_ +Q 7 _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
0x2f7de0…2f7f74 (3, 163) Dummy {f00=0x00ce, f01=0x0190, f02=») P ! P ! P 9_. &" ! ! P $ T 9 : & P Q 8D ,^ , < 8L # ; [ _ ' d V W V 4! P < X 4 9d $ & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8
0x2f7f74…2f8108 Dummy {f00=0x00ce, f01=0x0190, f02=» V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : 2' 2: [ [ 2 Z Z 7 : V ) " TV *V &V : V S W P 9 S W _ V P W T V E + : & [
0x2f8108…2f829c Dummy {f00=0x00ce, f01=0x0190, f02=» P( [ Z w [ P =|5@ V H )_ =|;6 _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
0x2f829c…2f8430 Dummy {f00=0x00ce, f01=0x0190, f02=» =R =|7 =|7 =|5F z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z =|7 Q =|;6 P _ T { [ =|=^ [ Q@ [ =|5F { R [ _ =|5@ =|;6 Z ! Z $ Z %_N [ Q* =|5@ =|7 R [ Z { =|5@ z 9e
0x2f8430…2f85c4 Dummy {f00=0x00ce, f01=0x0190, f02=» ( > J$ : { : ?2 > PX 9 _ ?2 [ ?2 Z : R" P $ 1T Y W 5 _$ : ?2 $ R W R # P W ) V E > WX ?2 [ > : Z !0P0
0x2f85c4…2f8758 Dummy {f00=0x00ce, f01=0x0190, f02=»" : $ : > 2: $ : C B Rd B TZ N ! TR b " N ! P T> R8 Q2 R O @ I T N P I N W @ W ? : C C ( : C C ( : : @@ @P : b V& B @@ @d @ O
0x2f8758…2f88ec Dummy {f00=0x00ce, f01=0x0190, f02=» W W W W W W W W W W C A C ( @ C ( :BBBBBBBBBBBBBBBBBBBBBBBLBLBLBLBBBLBLBLBLBLBLBLBLBLBLBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
0x2f88ec…2f8a80 Dummy {f00=0x00ce, f01=0x0190, f02=»F F F F F F F F F F F F F F F F F F F F G@ 0 BT : , BT : P, T& N P ' T ! T ` BW @x : B P :B B B B V, W& R W P R W PV : PD P V P ' P" V
0x2f8a80…2f8c14 (3, 164) Dummy {f00=0x00ce, f01=0x0190, f02=» PR P_ P* ! V ' P W V CJW : P( ! R W ' P CJW : P2 ' T& P" . W @xW 2 R : T W : C : O :
0x2f8c14…2f8da8 Dummy {f00=0x00ce, f01=0x0190, f02=» W @x : O @ O @ @ : BL CJ : BL : 0 BL 0 BL 0 BL : Fn E @ @ @ H O T @ W @ G I* : N @ TJ N PD! 09B V L ! P W. 8 O @@ N @d @ O W @x : N V ! 09B ,=H L L
0x2f8da8…2f8f3c Dummy {f00=0x00ce, f01=0x0190, f02=»W >W , @ IB : F O : O 1R Q T F W T F W F~W @x : H/ @ IV : F WX O 0RVT G WH T G W> T@ G W4 O 1R2 V. W O 0R" V W O 0R V F W O W @x : : , H<! P - W B O N ! P " N ! P @ " O
0x2f8f3c…2f90d0 Dummy {f00=0x00ce, f01=0x0190, f02=» N B E - : I ( : , C ( T _ : N P C C ( B ![P I* W : N P O ( B ![P @x I* N ! O @ ? : N P C ( : N P C ( : N P C
0x2f90d0…2f9264 Dummy {f00=0x00ce, f01=0x0190, f02=»!! gg++ L 33 Y 2:2P5 Y 4 2F2 Y K WdK KhY Y Y Y K J K J K Y Y K K Y K J K J 6 J K K K K V K : 2 I I J 2J V K, J KR V Z P 2 " T W "@T '?
0x2f9264…2f93f8 Dummy {f00=0x00ce, f01=0x0190, f02=» Z KR @ n! P Qz Z 7 Z Z P Qz : V R (Q V : : I J P v I < : J Qz : Pp 4 ! Tj_ PZ 4 WV K K WJ K W +_ K K K W. _& X S W X & S J K
0x2f93f8…2f958c Dummy {f00=0x00ce, f01=0x0190, f02=» ( L N @ X O _& N P( N T O H N T O H N T MN O : T O M@W" T O O W T O O L : M P M@ N P , H<! T - W B O H : M O Mh : @@ @P :
0x2f958c…2f9720 Dummy {f00=0x00ce, f01=0x0190, f02=» O Vl R O T ," P6 ! R W, ! R W QR T R,9AR2 ! 1 P W # ! P N _r P O @ P T O P P N 8P Q M @ O : N N N N N O0O0N OLOLOLOL OfOfOfOfOn ,! P
0x2f9720…2f98b4 (3, 165) Dummy {f00=0x00cf, f01=0x0190, f02=»1 P N !0T 0 : @ : T : N !010T N !@P P T W P O : T N !010T "@T B PX c O B B N = B N O C N N Qn N C N C ( O W& O P c C O
0x2f98b4…2f9a48 Dummy {f00=0x00cf, f01=0x0190, f02=» $:H D O $ @L L %P P O ( D O N H O O : ( B P N " 0:B V M $ P d( _: : @N N %P @L @L P _ N $ :( R : V E V D ' $ T ( W Qz P 0f X =' V W V
0x2f9a48…2f9bdc Dummy {f00=0x00cf, f01=0x0190, f02=» B V C / <H : U U0 C C W U< C 9HR R ' W 781"&$ 39#$;< '()*+,-! U< U 2 P _J T B 2 'W T ( W| 2 U0 T 1 ( 0 W : 1W C C
0x2f9bdc…2f9d70 Dummy {f00=0x00cf, f01=0x0190, f02=»S C C S C B B P C S : V I C B : ( ' P TZ I : U U % Y 2T C 2 & R V C 2 : B T T T V : 2 ' W 2 6 2 @ r" T # ' ?D 4 W<' #? 4 ;B V D
0x2f9d70…2f9f04 Dummy {f00=0x00cf, f01=0x0190, f02=» : U U0 ,V W* : 2: P C W $0 P C U| : 2:#0 T & C C : U C C : & T ;d# P S W P P, 9A:AV X R _ S W 4 _T :#0 T B 'W B B " V : P
0x2f9f04…2fa098 Dummy {f00=0x00cf, f01=0x0190, f02=» 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 V 2: #0 T B ' : B B V : V C 2: P C #0 T & C C : U C C : : + 2 [ [ < !AAP !TTT W !**T * [ !FFP !EET W
0x2fa098…2fa22c Dummy {f00=0x00cf, f01=0x0190, f02=»P # U 1 W !00T ; K _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ :P K _ W 8 8 !++P !-- z ;$# + ^$ _* T tX. PT*AXYZ9 Kh Y : ! P
0x2fa22c…2fa3c0 Dummy {f00=0x00cf, f01=0x0190, f02=» : : :
0x2fa3c0…2fa554 (3, 166) Opaque[0x194]
0x2fa554…2fa6e8 # DirEnt {nam=»RUN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1df8, f03=0x0000}
0x2fa554…2fa6e8 IdxSect {
0x2fa554…2fa6e8 f00 = 0x00ef // 0x2fa554 @0x0
0x2fa554…2fa6e8 f01 = 0x0002 // 0x2fa556 @0x2
0x2fa554…2fa6e8 gno = [ // 0x2fa558 @0x4
0x2fa554…2fa6e8 [0x00]: C0x00ef.0x3.0
0x2fa554…2fa6e8 ]
0x2fa554…2fa6e8 }
0x2fa6e8…2fa87c Dummy {f00=0x00ef, f01=0x0084, f02=» ASG 2,LP0F ASM DCBSC ASM KEYB,NL ( ASM PRINT,NL < ASM DSPBSC,NL P KPF /O f ASG /E0,TY10 t
0x2fa87c…2faa10 Dummy {f00=0x00ef, f01=0x2008, f02=» 2,LP0F ASM DCBSC ASM KEYB,NL ( ASM PRINT,NL < ASM DSPBSC,NL P KPF /O f ASG /E0,TY10 t
0x2faa10…2faba4 Dummy {f00=0x00ef, f01=0x0016, f02=»NEEDED b HEND FILE t 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE " 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 X 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF ALT
0x2faba4…2fad38 Dummy {f00=0x00ef, f01=0x2008, f02=» b HEND FILE t 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE " 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 X 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF ALT
0x2fad38…2faecc Dummy {f00=0x00ef, f01=0x0190, f02=» j * & * & 6 * & d * & ) * & G * & e
0x2faecc…2fb060 Dummy {f00=0x00ef, f01=0x0190, f02=» x * & * & D * & r * & 7 * & U * & s
0x2fb060…2fb1f4 (3, 167) Opaque[0x194]
0x2fb1f4…2fb388 # DirEnt {nam=»KJLCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1e00, f03=0x0000}
0x2fb1f4…2fb388 IdxSect {
0x2fb1f4…2fb388 f00 = 0x00f0 // 0x2fb1f4 @0x0
0x2fb1f4…2fb388 f01 = 0x0002 // 0x2fb1f6 @0x2
0x2fb1f4…2fb388 gno = [ // 0x2fb1f8 @0x4
0x2fb1f4…2fb388 [0x00]: C0x00f0.0x0.0
0x2fb1f4…2fb388 ]
0x2fb1f4…2fb388 }
0x2fb388…2fb51c Dummy {f00=0x00f0, f01=0x0190, f02=» PT; P01; PTID=V0; PTCL=K2; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PD; P02; PSDTE=AB; P01; PTYPE=LT; PNA=4060; PNSA=
0x2fb51c…2fb6b0 Dummy {f00=0x00f0, f01=0x0014, f02=»C1; PC8; PTID=V0; PTCL=K2; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PD; P02; PSDTE=AB; P01; PTYPE=LT; PNA=4060; PNSA=
0x2fb6b0…2fb844 Dummy {f00=0x00f0, f01=0x2008, f02=» PC8; PTID=V0; PTCL=K2; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PD; P02; PSDTE=AB; P01; PTYPE=LT; PNA=4060; PNSA=
0x2fb844…2fb9d8 Dummy {f00=0x00f0, f01=0x2008, f02=» b HEND FILE t 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE " 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 X 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF ALT
0x2fb9d8…2fbb6c Dummy {f00=0x00f0, f01=0x0190, f02=»
[…0x1…]
0x2fbd00…2fbe94 (3, 168) Opaque[0x194]
0x2fbe94…2fc028 # DirEnt {nam=»KJRUN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1e08, f03=0x0000}
0x2fbe94…2fc028 IdxSect {
0x2fbe94…2fc028 f00 = 0x00f0 // 0x2fbe94 @0x0
0x2fbe94…2fc028 f01 = 0x0002 // 0x2fbe96 @0x2
0x2fbe94…2fc028 gno = [ // 0x2fbe98 @0x4
0x2fbe94…2fc028 [0x00]: C0x00f0.0x1.0
0x2fbe94…2fc028 ]
0x2fbe94…2fc028 }
0x2fc028…2fc1bc Dummy {f00=0x00f0, f01=0x0034, f02=» PASM DSPBSC PKPF /O PASG /E0,TY10 $******************************************* ) . PTSTDEV EQU * ) h , P CF A14,SOUND TURN ON SOUND ALARM AT VDU ) | $ P LDR A1,A1 CHECK RETURN CODE DK1 ) " P RF(Z) TSTD90 OK, GO ON.. DK1 ) P LKM ) P
0x2fc1bc…2fc350 Dummy {f00=0x00f0, f01=0x2008, f02=» DSPBSC PKPF /O PASG /E0,TY10 $******************************************* ) . PTSTDEV EQU * ) h , P CF A14,SOUND TURN ON SOUND ALARM AT VDU ) | $ P LDR A1,A1 CHECK RETURN CODE DK1 ) " P RF(Z) TSTD90 OK, GO ON.. DK1 ) P LKM ) P
0x2fc350…2fc4e4 Dummy {f00=0x00f0, f01=0x0190, f02=» J : { : ? > PX 9 _ ? [ ? Z : R" P $ 1T Y W 5 _$ : ? $ R W R # P W ) V E > WX ? [ > : Z !0P0 R* 4 R :d" 8 R !
0x2fc4e4…2fc678 Dummy {f00=0x00f0, f01=0x0190, f02=» $ : C B R` B TV N ! TN b " N ! P T: R4 Q. R O @ H T N P H W @ W ? : C C ( : C C ( : : @( @8 : b V& B @( @L @ O W @ O " P : C
0x2fc678…2fc80c Dummy {f00=0x00f0, f01=0x0190, f02=» W W W W C A C ( @ C ( :B*B*B*B*B*B*B*B*B*B*B*B4B4B4B4B*B4B4B4B4B4B4B4B4B4B4B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*B*G(BvBvBvBvB C2CnC D
0x2fc80c…2fc9a0 Dummy {f00=0x00f0, f01=0x0190, f02=»F F F F F F F F G( 0 B< : , B< : P, T& N P ' T ! T L .W @` : B P :B B B B V, W& R W P R W PV : PD P V P ' P" V ' P W
0x2fc9a0…2fcb34 (3, 169) Opaque[0x194]
0x2fcb34…2fccc8 # DirEnt {nam=»NPLINK«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1e10, f03=0x0000}
0x2fcb34…2fccc8 IdxSect {
0x2fcb34…2fccc8 f00 = 0x00f0 // 0x2fcb34 @0x0
0x2fcb34…2fccc8 f01 = 0x0002 // 0x2fcb36 @0x2
0x2fcb34…2fccc8 gno = [ // 0x2fcb38 @0x4
0x2fcb34…2fccc8 [0x00]: C0x00f0.0x2.0
0x2fcb34…2fccc8 ]
0x2fcb34…2fccc8 }
0x2fccc8…2fce5c Dummy {f00=0x00f0, f01=0x009c, f02=» PASG 2,NO PSCR PTRA DATBSC PTLK U,M,4K 2 PLKE M D PKPF /L,PT3272 R PSCR h P$PDISC A=PT3272 t PASG /E0,TY10
0x2fce5c…2fcff0 Dummy {f00=0x00f0, f01=0x2008, f02=» 2,NO PSCR PTRA DATBSC PTLK U,M,4K 2 PLKE M D PKPF /L,PT3272 R PSCR h P$PDISC A=PT3272 t PASG /E0,TY10
0x2fcff0…2fd184 Dummy {f00=0x00f0, f01=0x0190, f02=» 0 P Q a b " P2 > d T P2 @ * * d
0x2fd184…2fd318 Dummy {f00=0x00f0, f01=0x0190, f02=»
[…0x2…]
0x2fd640…2fd7d4 (3, 170) Opaque[0x194]
0x2fd7d4…2fd968 # DirEnt {nam=»PRTMOD«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1e18, f03=0x0000}
0x2fd7d4…2fd968 IdxSect {
0x2fd7d4…2fd968 f00 = 0x00f0 // 0x2fd7d4 @0x0
0x2fd7d4…2fd968 f01 = 0x0002 // 0x2fd7d6 @0x2
0x2fd7d4…2fd968 gno = [ // 0x2fd7d8 @0x4
0x2fd7d4…2fd968 [0x00]: C0x00f0.0x3.0
0x2fd7d4…2fd968 ]
0x2fd7d4…2fd968 }
0x2fd968…2fdafc Dummy {f00=0x00f0, f01=0x00ae, f02=» PASG 2,NO PSCR PTRA DATBSC PTLK U,M,4K 2 PASG 2,LP0F D PLKE M V PKPF /L,PTPRNT d PSCR z P$PDISC A=PT3272 PASG /E0,TY10 LNE BRANCH TO CREDIT CODE * P B KB050 RETURN TO IBM-3270 EMULATION P EJECT
0x2fdafc…2fdc90 Dummy {f00=0x00f0, f01=0x2008, f02=» 2,NO PSCR PTRA DATBSC PTLK U,M,4K 2 PASG 2,LP0F D PLKE M V PKPF /L,PTPRNT d PSCR z P$PDISC A=PT3272 PASG /E0,TY10 LNE BRANCH TO CREDIT CODE * P B KB050 RETURN TO IBM-3270 EMULATION P EJECT
0x2fdc90…2fde24 Dummy {f00=0x00f0, f01=0x0190, f02=»****************************** z P TERM K1 & P* 6 P CWB CB1 @ P TWB TB1 P P* ` P START KBVGO j P* ~ & PDSKBAN DSET FC=X'20',DEV=KA,BUFL=2 & PDSKBSD DSET FC=X'40',DEV=KI,BUFL=2 ( PDSVDU DSET FC=X'42',DEV=DY,BUFL=162 P
0x2fde24…2fdfb8 Dummy {f00=0x00f0, f01=0x0190, f02=»IC FOR P&T h P EJECT 8 P*************************************************** P* . P* KB/VDU TERMINAL WITH TWO DC-LINES f P* 8 P*************************************************** P TERM K2 P* P CWB CB1 P
0x2fdfb8…2fe14c Dummy {f00=0x00f0, f01=0x0190, f02=» ( PDSVDU DSET FC=X'42',DEV=DY,BUFL=162 PDSICR DSET FC=X'50',DEV=II 0 PDSICW DSET FC=X'51',DEV=IO R PDSDC1 DSET FC=X'61' t PDSDC2 DSET FC=X'62' ( PDSKBN2 DSET FC=X'21',DEV=KBN,BUFL=2 P P EJECT 8 P**************************
0x2fe14c…2fe2e0 Dummy {f00=0x00f0, f01=0x0190, f02=»******************** p P TERM P1 P* , P CWB CB1 6 P TWB TB1 F P* V P START PRTGO ` P* t @ PPDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS ~ PPDSICR DSET FC=X'50',DEV=II PPDSICW DSET FC=X'51',DEV=IO
0x2fe2e0…2fe474 (3, 171) Opaque[0x194]
0x2fe474…2fe608 # DirEnt {nam=»DISKS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2cf8, f03=0x0000}
0x2fe474…2fe608 IdxSect {
0x2fe474…2fe608 f00 = 0x0167 // 0x2fe474 @0x0
0x2fe474…2fe608 f01 = 0x0002 // 0x2fe476 @0x2
0x2fe474…2fe608 gno = [ // 0x2fe478 @0x4
0x2fe474…2fe608 [0x00]: C0x0167.0x3.0
0x2fe474…2fe608 ]
0x2fe474…2fe608 }
0x2fe608…2fe79c Dummy {f00=0x0167, f01=0x0088, f02=» ASG 2,NO $PDISC A=PT3272,C=TWOCON " $PDISC A=PT3272,C=TWOCON,FC=F5 4 ASG 2,LP0F Z ASG /E0,TY10 l END DISCE P=PTMON * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: 4 HMES 1 M,M+MU,M
0x2fe79c…2fe930 Dummy {f00=0x0167, f01=0x2008, f02=» 2,NO $PDISC A=PT3272,C=TWOCON " $PDISC A=PT3272,C=TWOCON,FC=F5 4 ASG 2,LP0F Z ASG /E0,TY10 l END DISCE P=PTMON * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: 4 HMES 1 M,M+MU,M
0x2fe930…2feac4 Dummy {f00=0x0167, f01=0x0190, f02=» SWB:EL SWB:NS ACBIOE ( ACBSWB < ACBSEG P ACBNPE d ACBMMP x ACBMMC ACBLAP ACBLAC ACBSTA ACBREL ACBADA I
0x2feac4…2fec58 Dummy {f00=0x0167, f01=0x0190, f02=»502 IH2501 IH2502 , ( 0 IHPR01 ` , ( ! r IHPL01 IHPL02 , ( 1 , ( A
0x2fec58…2fedec Dummy {f00=0x0167, f01=0x018e, f02=» HALT & 6 SCTMSZ N SCTSFA b SCTEFA v SCTIPL SCTANO SCTTCT SCTCDT , ( @
0x2fedec…2fef80 Dummy {f00=0x0167, f01=0x0190, f02=» SCTDMI SCTFWT SCTNOF 0 SCTNFT D SCTFWL X SCTBLK l SCTDCT SCTNOS SCTMXS , ( SCTMOX STKEN
0x2fef80…2ffc20 (4, 0) DirGranule ((4, 0)) {
0x2fef80…2ffc20 DirEnt {nam=»MODIFY«, typ=» «, f00=0x0000, f01=0x0000, f02=0x1e20, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»DATBSC«, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x1e28, f03=0x0008}
0x2fef80…2ffc20 DirEnt {nam=»APPGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1e40, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»APPGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1e50, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»DCBSC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e60, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»DSPBSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e98, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»KEYB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ec8, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»VDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f80, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»PAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2008, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2098, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»CONVER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20e8, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x2100, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2238, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»PT3270«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2260, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»APLINK«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x22a0, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»GTCONF«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x22a8, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»PT32XX«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x22b0, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x22f0, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»UPDAPP«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2300, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»MINCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2308, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»TWOCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2310, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»MAXCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2318, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»TSTCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2320, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»KAFFE «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2328, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»CONFIG«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2330, f03=0x0000}
0x2fef80…2ffc20 DirEnt {nam=»ONECON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2338, f03=0x0000}
0x2fef80…2ffc20 }
0x2ffc20…2ffdb4 (4, 1) Opaque[0x194]
0x2ffdb4…2fff48 # DirEnt {nam=»DATBSC«, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x1e28, f03=0x0008}
0x2ffdb4…2fff48 IdxSect {
0x2ffdb4…2fff48 f00 = 0x00f1 // 0x2ffdb4 @0x0
0x2ffdb4…2fff48 f01 = 0x0006 // 0x2ffdb6 @0x2
0x2ffdb4…2fff48 gno = [ // 0x2ffdb8 @0x4
0x2ffdb4…2fff48 [0x00]: C0x00f1.0x1.0
0x2ffdb4…2fff48 [0x01]: C0x00f1.0x2.0
0x2ffdb4…2fff48 [0x02]: C0x00f1.0x3.0
0x2ffdb4…2fff48 ]
0x2ffdb4…2fff48 }
0x2fff48…3000dc Dummy {f00=0x00f1, f01=0x0190, f02=» 0 P IDENT DATBSC REL 11.0 81-10-18 870150541100 P 8 L P************************************************************************ @ L P* * L P* DATBSC DATA DIVISION FOR
0x3000dc…300270 Dummy {f00=0x00f1, f01=0x0190, f02=» CREDIT CODED START-UP ROUTINES. * | L P* * < L P************************************************************************ P EJECT P DDIV 8 P****************
0x300270…300404 Dummy {f00=0x00f1, f01=0x0190, f02=»****************************** z P TERM K1 & P* 6 P CWB CB1 @ P TWB TB1 P P* ` P START KBVGO j P* ~ & PDSKBAN DSET FC=X'20',DEV=KA,BUFL=2 & PDSKBSD DSET FC=X'40',DEV=KI,BUFL=2 ( PDSVDU DSET FC=X'42',DEV=DY,BUFL=162 P
0x300404…300598 Dummy {f00=0x00f1, f01=0x0190, f02=»IC FOR P&T h P EJECT 8 P*************************************************** P* . P* KB/VDU TERMINAL WITH TWO DC-LINES f P* 8 P*************************************************** P* TERM K2 P* P* CWB CB1
0x300598…30072c Dummy {f00=0x00f1, f01=0x0190, f02=»,BUFL=2 t ( P*DSVDU DSET FC=X'42',DEV=DY,BUFL=162 P*DSICR DSET FC=X'50',DEV=II < P*DSICW DSET FC=X'51',DEV=IO ` P*DSDC1 DSET FC=X'61' P*DSDC2 DSET FC=X'62' P EJECT 8 P**************************************************** P*
0x30072c…3008c0 Dummy {f00=0x00f1, f01=0x018e, f02=» P* P CWB CB1 P TWB TB1 " P* 2 P START PRTGO < P* P @ PPDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS Z PPDSICR DSET FC=X'50',DEV=II PPDSICW DSET FC=X'51',DEV=IO PPDSDC1 DSET FC=X'61' P EJECT
0x3008c0…300a54 (4, 2) Dummy {f00=0x00f1, f01=0x0190, f02=» : P****************************************************** P* TERM P2 F P* X P* CWB CB1 b P* TWB TB1 t P* P* START PRTGO P* @ P*PDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS P*PDSICR DSET FC=X'50
0x300a54…300be8 Dummy {f00=0x00f1, f01=0x018e, f02=»************************************************************** L P* * F L P* WORK AREA FOR KB/VDU TASKS * L P*
0x300be8…300d7c Dummy {f00=0x00f1, f01=0x0190, f02=» P* & PTCT01 BIN 4X'0' TID AND STACKBASE ( PBVDU STRG 3840X'0' VDU SCREEN BUFFER < * PLINFLG STRG 48X'0' INTERNAL LINE FLAGS h ( PPCURS STRG 4X'0' REL. CURSOR ADDRESS . PATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER , PCURATT STRG 4X'0' RE
0x300d7c…300f10 Dummy {f00=0x00f1, f01=0x0190, f02=»LENG STRG 4X'0' DC READ EFFECTIVE LENGTH * PINTATT STRG 4X'0' INTENSITY ATTRIBUTE 0 " POFFFLG STRG 4X'0' OFFLINE FLAG ^ ( PPRTID STRG 4X'0' TASKID FOR HARDCOPY PBRAGE STRG 192X'0' LEKSAND P* " P* FORMATION OF BRAGE - LEKSAND P*
0x300f10…3010a4 Dummy {f00=0x00f1, f01=0x0190, f02=» 4X KEY LOCK STATUS 0 P* ECBBLK 20X ECB BLOCK FOR MULTIPLE WAIT 2 P* RDMORE 4X NEXT ADDRESS OF READ MORE KEYS T $ P* CURPOS 4X CURSOR POSITION " P* BUFPNT 4X BUFFER POINTER P* REGI 4X SAVE AREA P* STACK1 28X
0x3010a4…301238 Dummy {f00=0x00f1, f01=0x0190, f02=» ECB TABLE P* ECBKB 4X ECB KB P* ECBPRT 4X ECB PRINTER 2 & P* ECBSD 4X ECB SIGNAL DISPLAY V P* ECBVDU 4X ECB VDU & P* ECBICR 4X ECB INTERTASK READ ( P* ECBICW 4X ECB INTERTASK WRITE " P* ECBDC1 4X EC
0x301238…3013cc Dummy {f00=0x00f1, f01=0x0190, f02=»************ Z F P* * F P* COMMON WORK AREA FOR ALL TASKS * ^ F P* * F P**********************
0x3013cc…301560 Dummy {f00=0x00f1, f01=0x0190, f02=» STRG 22'IDENT NOT OPERABLE ' IDENT KEY TEXT 2 P***STATXT STRG 15'DTE ADDRESS ' STAT LAYOUT 8 " P***SA STRG 15'STAT OVERFLOW ' n " P***SB STRG 15'PRO REC BLOCKS ' " P***SC STRG 15'PRO REC REJ-BSY' " P***SD STRG 15'PRO REC REJ-OVF' " P**
0x301560…3016f4 (4, 3) Dummy {f00=0x00f1, f01=0x0190, f02=»IMOUT' x " P***SI STRG 15'PRO POLL-TIMOUT' " P***SJ STRG 15'DTE REC ERROR ' 4 2 P***SK STRG 30'DTE SND ERROR DCE ERROR ' Z . PTSKTAB STRG 256X'0' TASK TABLE WITH STATUS " PENDTAB STRG 4X'FFFF' END MARK P PDIV P* 2 P*
0x3016f4…301888 Dummy {f00=0x00f1, f01=0x0190, f02=» GETTID GET TASK IDENTITY 2 P** EXT OFFLNE CREDIT APPLICATION START ADDRESS " P EJECT X , P**************************************** f P* " P* START ADDRESS FOR VDU TASK P* , P**************************************** P P
0x301888…301a1c Dummy {f00=0x00f1, f01=0x413a, f02=»ETURN TO IBM-3270 EMULATION P EJECT $ 2 P********************************************* 2 P* h ( P* START ADDRESS FOR PRINTER TASK r P* 2 P********************************************* P PPRTGO P CALL GETTID,TCT01
0x301a1c…301bb0 Dummy {f00=0x00f1, f01=0x2008, f02=» * END @ * $ * . GP1 BLK 8 * H GPAREA STRG 2000 R EJECT j PDIV x * * ENTRY KBGO ENTRY VDUGO ENTRY GTPGO * EXT VDUKB EXT VDTASK E
0x301bb0…301d44 Dummy {f00=0x00f1, f01=0x0190, f02=» P " U * & } _2 @ & , ( " P . 0 T , ( I V TTB:ST , ( H . 0 S $ @ S ,=J TTB:PW
0x301d44…301ed8 Dummy {f00=0x00f1, f01=0x0190, f02=»:PP| , ( $BT @ S 4 A A , ( % _ !TTT @ , < PUSHN l , ( ? $ P @ * @ a : | , ( WA 6 T ` @ , ( q W H A J AS
0x301ed8…30206c Dummy {f00=0x00f1, f01=0x0190, f02=» @ ;C , ( @ U BAT @ , , ( * @ 8 : A . @ , ( ) @ P S SCTIPL , ( - _ S A . @ < 3 , ( I 3
0x30206c…302200 Dummy {f00=0x00f1, f01=0x0190, f02=» J U 3 S TTB:SP . , ( B S S _p P " I > @ bPOB p , ( D _ @ : P @ : ~ , ( $ A A < H A * & $ P
0x302200…302394 (4, 4) Opaque[0x194]
0x302394…302528 # DirEnt {nam=»APPGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1e40, f03=0x0000}
0x302394…302528 IdxSect {
0x302394…302528 f00 = 0x00f2 // 0x302394 @0x0
0x302394…302528 f01 = 0x0004 // 0x302396 @0x2
0x302394…302528 gno = [ // 0x302398 @0x4
0x302394…302528 [0x00]: C0x00f2.0x0.0
0x302394…302528 [0x01]: C0x00f2.0x1.0
0x302394…302528 ]
0x302394…302528 }
0x302528…3026bc Dummy {f00=0x00f2, f01=0x0190, f02=» h B b B b * F ` SNA/SDLC COMMUNICATION? (Y/N): MAXIMAL NUMBER OF WORKSTATIONS?: OFFLINE KEY HANDLING? (Y/N): $ENTRY NAME OF OFFLINE APPLICATION? : NUMBER OF DC-LINES? (1-2): REQUEST TIMEOUT? (100MS): KEYLOC
0x3026bc…302850 Dummy {f00=0x00f2, f01=0x0190, f02=»NDLING? (Y/N): : KEYBOARD 6272?(Y/N): NUMBER OF DC-BUFFERS?(1-32): SIZE OF DC-BUFFERS? (WORDS): COPY COMMAND INCLUDED?(Y/N): EBCDIC CODE?(Y/N): TEST MODE HANDLING? (Y/N): COPY LOCK FUNCTION? (Y/N): ASSEMBLY LISTING? (Y/N): NAME OF PACKAGE? : MOV DATBSC
0x302850…3029e4 Dummy {f00=0x00f2, f01=0x0190, f02=»F /S MOV DCSNA,/S,IBM3270 KPF /S MOV DSPSNA,/S,IBM3270 KPF /S SCR MOV KEYB,/S,IBM3270 KPF /S MOV VDU,/S,IBM3270 KPF /S MOV PAD,/S,IBM3270 KPF /S MOV PRINT,/S,IBM3270 KPF /S MOV CONVER,/S,IBM3270 KPF /S SCR !!CH $$ X:A$$ 0$$ !!CH $$ X:B$
0x3029e4…302b78 Dummy {f00=0x00f2, f01=0x0190, f02=»!!CH $$ X:H$$ 0$$ !!CH $$ X:I$$ 1$$ !!CH $$ X:J$$ 1$$ !!CH $$ X:K$$ 00$$ !!CH $$ X:L$$ 0000$$ !!CH $$ X:M$$ 0$$ !!CH $$ X:N$$ 1$$ !!CH $$ X:O$$ 0$$ !!CH $$ X:P$$ 0$$ !!EN KPF /S BEA /S KPF /O SCR !!CH $$***S$$S$$ !!CH $$** $$ $$ !!CH $
0x302b78…302d0c Dummy {f00=0x00f2, f01=0x0190, f02=»LED DATBSC LED DATSNA LED DSPBSC LED DSPSNA LED DCBSC LED DCSNA LED KEYB LED VDU LED PAD LED PRINT MOV CONVER,/S KPF /S SCR SCR TRA DATBSC TRA DATSNA TLK U,M LKE M KPF /L, ASG /E0,TY10 APPGEN R
0x302d0c…302ea0 Dummy {f00=0x00f2, f01=0x0190, f02=» ~ 9H L d 9A F_" @ W @ 2 2 F C C < (^ * X P W( F 9A D , C C < C < * F b C C 4 b 9h !##P B B * l " 6 6
0x302ea0…303034 (4, 5) Dummy {f00=0x00f2, f01=0x0190, f02=» A * Q :h !YYT 1 A W !NNT A A * Q P y 0 5 A * Q :h A " A * Q P : P 5 A * Q :h !YYT 1 A NW !NNT A * Q :h !YYT 1 A bW !NNT A * Q :h !YYT 1 A vW !NNT A * Q :h !NNT 0
0x303034…3031c8 Dummy {f00=0x00f2, f01=0x0190, f02=» 5 A * Q :h !YYT 1 A W !NNT A A * Q :h !NNT 0 A W !YYT A * Q :h !YYT 1 A W !NNT A * Q :h !YYT 1 A W !NNT A * Q :h !YYT A W !NNT A * Q P 0 5 A * ( * ( * @
0x3031c8…30335c Dummy {f00=0x00f2, f01=0x0190, f02=» @ "! T @ @ @ v v * @ P @ @ ! T( @ @ T4 @ _ @ @ T @ $ $ _ @ 2 2 @ @ > > @ @ J J @ @ V V @ @ d d
0x30335c…3034f0 Dummy {f00=0x00f2, f01=0x0190, f02=» * T ( ( * . D | : (
0x3034f0…303684 Dummy {f00=0x00f2, f01=0x0190, f02=» a P RB DISI10 b PDISI20 EQU * b P LD A6,ECBBA,A8 b . . P ST A1,ECBBA+52,A6 SAVE TASK ID IN BUFFER b F & P LC A2,X'1F' HIGH INTENSITY CHAR. b x P SC A2,ECBBA+45,A6 b ( P LDKL A10,1 INDICATE NOT ONLY SPACES b P LDKL A9,1 1 INTENSITY CHAR. b
0x303684…303818 Dummy {f00=0x00f2, f01=0x0190, f02=» b B P************************************************************** c P* c N P* DISSTA DISPLAY STATISTICS c X P* c | D P*************************************************************** c P* REGISTERS c P* c P* c D P************
0x303818…3039ac Dummy {f00=0x00f2, f01=0x0190, f02=»ALIN WHERE TO START c P SLL A1,8 d P LDK A2,1 d . & P ORR A2,A1 FIRST POS. ON THAT LINE d @ P ST A2,ECBCW,A8 d j $ P CF A14,SPACES CLEAN THE BUFFER d P LDK A5,0 RESET INDEX d P LD A3,6,A13 d P ADK A3,STATXT POINT TO TEXT d PDISS10 E
0x3039ac…303b40 Dummy {f00=0x00f2, f01=0x018e, f02=»LINE d l ( P CF A14,MOVTXT MOVE IT IN TO BUFFER e $ P ADK A6,5+STAPOS MAKE SOME ROOM e 8 P LC A1,INDEX,A5 e ` P SLL A1,1 e x $ P ADR A1,A12 POINT OUT STAT VALUE e P LCR A2,A1 e " P CF A14,CONASC MAKE IT VISABLE e P LDR A4,A2 e P SLL A4,8 e
0x303b40…303cd4 (4, 6) Opaque[0x194]
0x303cd4…303e68 # DirEnt {nam=»APPGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1e50, f03=0x0000}
0x303cd4…303e68 IdxSect {
0x303cd4…303e68 f00 = 0x00f2 // 0x303cd4 @0x0
0x303cd4…303e68 f01 = 0x0004 // 0x303cd6 @0x2
0x303cd4…303e68 gno = [ // 0x303cd8 @0x4
0x303cd4…303e68 [0x00]: C0x00f2.0x2.0
0x303cd4…303e68 [0x01]: C0x00f2.0x3.0
0x303cd4…303e68 ]
0x303cd4…303e68 }
0x303e68…303ffc Dummy {f00=0x00f2, f01=0x0190, f02=» ASG 2,NO MOV DATBSC,/S,IBM3270 KPF /S 2 MOV DCBSC,/S,IBM3270 @ KPF /S MOV DSPBSC,/S,IBM3270 j KPF /S SCR MOV KEYB,/S,IBM3270 KPF /S MOV VDU,/S,IBM3270 KPF /S MOV PAD,/S,IBM3270
0x303ffc…304190 Dummy {f00=0x00f2, f01=0x0190, f02=»!!EN KPF /S SCR ASG 2,LP0F & LED DSPBSC 8 !!CH $$ X:A$$ 0$$ J !!CH $$ X:B$$ 08$$ d !!CH $$ X:C$$ 0$$ ~ !!CH $$ X:D$$ 1$$ !!CH $$ X:E$$ 00300$$ !!CH $$ X:F$$ 0$$ !!CH $$ X:G$$ 0$$ !!CH
0x304190…304324 Dummy {f00=0x00f2, f01=0x0190, f02=»X:M$$ 1$$ !!CH $$ X:N$$ 1$$ !!CH $$ X:O$$ 0$$ , !!CH $$ X:P$$ 0$$ F !!EN ` KPF /S l BEA /S z KPF /O SCR LED DCBSC !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 08$$ !!CH $$ X:C$$ 0$$ !!CH $
0x304324…3044b8 Dummy {f00=0x00f2, f01=0x0190, f02=»X:I$$ 1$$ !!CH $$ X:J$$ 1$$ !!CH $$ X:K$$ 02$$ , !!CH $$ X:L$$ 1150$$ F !!CH $$ X:M$$ 1$$ b !!CH $$ X:N$$ 1$$ | !!CH $$ X:O$$ 0$$ !!CH $$ X:P$$ 0$$ !!EN KPF /S BEA /S KPF /O SCR
0x3044b8…30464c Dummy {f00=0x00f2, f01=0x0190, f02=»$ 00300$$ !!CH $$ X:F$$ 0$$ !!CH $$ X:G$$ 0$$ , !!CH $$ X:H$$ 0$$ F !!CH $$ X:I$$ 1$$ ` !!CH $$ X:J$$ 1$$ z !!CH $$ X:K$$ 02$$ !!CH $$ X:L$$ 1150$$ !!CH $$ X:M$$ 1$$ !!CH $$ X:N$$ 1$$ !!CH $$ X:
0x30464c…3047e0 Dummy {f00=0x00f2, f01=0x0190, f02=»$ 0$$ !!CH $$ X:B$$ 08$$ !!CH $$ X:C$$ 0$$ ( !!CH $$ X:D$$ 1$$ B !!CH $$ X:E$$ 00300$$ !!CH $$ X:F$$ 0$$ z !!CH $$ X:G$$ 0$$ !!CH $$ X:H$$ 0$$ !!CH $$ X:I$$ 1$$ !!CH $$ X:J$$ 1$$ !!CH $$ X:K$
0x3047e0…304974 (4, 7) Dummy {f00=0x00f2, f01=0x0190, f02=»$ !!EN KPF /S BEA /S $ KPF /O 2 SCR @ LED PAD L !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 08$$ v !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 1$$ !!CH $$ X:E$$ 00300$$ !!CH $$ X:F$$ 0$$ !!CH $$ X:G$
0x304974…304b08 Dummy {f00=0x00f2, f01=0x0190, f02=»$$ ~ !!CH $$ X:M$$ 1$$ !!CH $$ X:N$$ 1$$ $ !!CH $$ X:O$$ 0$$ > !!CH $$ X:P$$ 0$$ X !!EN r KPF /S ~ BEA /S KPF /O SCR LED PRINT !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 08$$ !!CH $$ X:C$$
0x304b08…304c9c Dummy {f00=0x00f2, f01=0x0190, f02=»$ !!CH $$ X:I$$ 1$$ !!CH $$ X:J$$ 1$$ $ !!CH $$ X:K$$ 02$$ > !!CH $$ X:L$$ 1150$$ X !!CH $$ X:M$$ 1$$ t !!CH $$ X:N$$ 1$$ !!CH $$ X:O$$ 0$$ !!CH $$ X:P$$ 0$$ !!EN KPF /S BEA /S KPF
0x304c9c…304e30 Dummy {f00=0x00f2, f01=0x003c, f02=» LKE M KPF /L,PT3270 ASG /E0,TY10 , !!CH $$ X:K$$ 02$$ > !!CH $$ X:L$$ 1150$$ X !!CH $$ X:M$$ 1$$ t !!CH $$ X:N$$ 1$$ !!CH $$ X:O$$ 0$$ !!CH $$ X:P$$ 0$$ !!EN KPF /S BEA /S KPF
0x304e30…304fc4 Dummy {f00=0x00f2, f01=0x2008, f02=» LKE M KPF /L,PT3270 ASG /E0,TY10 , !!CH $$ X:K$$ 02$$ > !!CH $$ X:L$$ 1150$$ X !!CH $$ X:M$$ 1$$ t !!CH $$ X:N$$ 1$$ !!CH $$ X:O$$ 0$$ !!CH $$ X:P$$ 0$$ !!EN KPF /S BEA /S KPF
0x304fc4…305158 Dummy {f00=0x00f2, f01=0x0190, f02=»IT INITIALIZE THE TASK * * P* COMINI COMMON INIT ROUTINE @ $ P* ECBINI INIT OF ECB:S n D P* TSTDEV TEST KEYBOARD AND DISPLAY * D P*
0x305158…3052ec Dummy {f00=0x00f2, f01=0x0190, f02=»************************************** | > P* * . > P* ENTRY POINTS * p > P* * > P********************
0x3052ec…305480 Dummy {f00=0x00f2, f01=0x0190, f02=»INE r P ENTRY ECBINI INIT OF ECB:S . P ENTRY MATCH MATCH TASID AND PHYS. ADDRESS 0 P b > P********************************************************** j > P* * > P* EXTERNAL REFERENC
0x305480…305614 (4, 8) Opaque[0x194]
0x305614…3057a8 # DirEnt {nam=»DCBSC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e60, f03=0x0000}
0x305614…3057a8 IdxSect {
0x305614…3057a8 f00 = 0x00f3 // 0x305614 @0x0
0x305614…3057a8 f01 = 0x000e // 0x305616 @0x2
0x305614…3057a8 gno = [ // 0x305618 @0x4
0x305614…3057a8 [0x00]: C0x00f3.0x0.0
0x305614…3057a8 [0x01]: C0x00f3.0x1.0
0x305614…3057a8 [0x02]: C0x00f3.0x2.0
0x305614…3057a8 [0x03]: C0x00f3.0x3.0
0x305614…3057a8 [0x04]: C0x00f4.0x0.0
0x305614…3057a8 [0x05]: C0x00f4.0x1.0
0x305614…3057a8 [0x06]: C0x00f4.0x2.0
0x305614…3057a8 ]
0x305614…3057a8 }
0x3057a8…30593c Dummy {f00=0x00f3, f01=0x0190, f02=» 0 P IDENT DCBSC REL 11.0 81-04-08 870150541100 P 8 P =1, CHARAC. ADDR. @ P 81-01-26 D P**************************************************************** p D P* * D P*
0x30593c…305ad0 Dummy {f00=0x00f3, f01=0x0190, f02=»* BETWEEN THE SLU AND CLUSTER CONTROLLER * @ P* (EMULATION 3270 BSC) * H D P* * D P****************************************************
0x305ad0…305c64 Dummy {f00=0x00f3, f01=0x0190, f02=» * n @ P* ROUTINES * " @ P* * f @ P* DCINP DC-INPUT MAIN ROUTINE * @ P* READW READ WIT
0x305c64…305df8 Dummy {f00=0x00f3, f01=0x0190, f02=»SAGE * v @ P* SETSTA SET STATUS * * @ P* TSTSTA TEST STATUS * n @ P* DCABOR ABORT DC REQUEST * @ P* CHKSTA
0x305df8…305f8c Dummy {f00=0x00f3, f01=0x0190, f02=»TRANSMIT SHORT READ * ~ @ P* TRPF TRANSMIT READ MODIFIED * 2 @ P* * v @ P*********************************************************** P EJECT
0x305f8c…306120 Dummy {f00=0x00f3, f01=0x0190, f02=» * T D P* ENTRY POINTS * D P* * T D P**************************************************************** P & P ENTRY DCINP DC-INPUT MAIN R
0x306120…3062b4 (4, 9) Dummy {f00=0x00f3, f01=0x018e, f02=» $ P ENTRY SETTIM SET REQUEST TIMER P ENTRY TSTMES TEST MESSAGE. , " P ENTRY DCABOR ABORT DC REQUEST P $ P ENTRY TRPA TRANSMIT SHORT READ v & P ENTRY TRPF TRANSMIT READ MODIFIED . P ENTRY DCOFLN INDICATE OFFLINE TO CLUSTER " P ENTRY CHKSTA
0x3062b4…306448 Dummy {f00=0x00f3, f01=0x0190, f02=» P B P************************************************************* B P* * R B P* EXTERNAL REFERENCES * B P*
0x306448…3065dc Dummy {f00=0x00f3, f01=0x0190, f02=» r & P EXTRN RELBUF RELEASE BUFFER (PAD) 2 P EXTRN PAID STORE AID-CODE IN DC BUFFER (PAD) 2 . P EXTRN SCRINF GET SCREEN INFORMATION (VDU) h : P EXTRN BUFADR STORE BUFFER ADDRESS IN DC BUFFER (PAD) * P EXTRN PACK PACK MODIFIED FIELDS (PAD) * P E
0x3065dc…306770 Dummy {f00=0x00f3, f01=0x0190, f02=» & P EXTRN ERROR INDICATE ERROR (KEYB) . P EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) . & P EXTRN LMP1ON SYSTEM AVAILABLE DK ` ( P EXTRN LMP3ON ON & P EXTRN LMP1OF SYSTEM AVAILABLE DK P EJECT > P**************************
0x306770…306904 Dummy {f00=0x00f3, f01=0x018e, f02=»PARAMETERS * r > P* * $ > P********************************************************* f & PX:C EQU 0 OFFLINE HANDLING IF :=1 POFLIN EQU 0 $ PX:D EQU 1 NUMBER OF LINES (1-2)
0x306904…306a98 Dummy {f00=0x00f3, f01=0x0190, f02=» h PBUFFL EQU 1150 " PX:O EQU 0 TEST INCLUDED IF:=1 PTEST EQU 0 D P EJECT V D P*************************************************************** d D P* * & P* DECLARATIONS OF DA
0x306a98…306c2c Dummy {f00=0x00f3, f01=0x018e, f02=»********************* f P P* & $ P* EQUATES FOR ECB HANDLING 0 P* X PECBBA EQU 2 BUFFER ADDRESS b PECBRL EQU 4 REQUESTED LENGTH PECBEL EQU 6 EFFECTIVE LENGTH PECBRC EQU 8 RETURN CODE PECBCW1 EQU 10 CONTROL WORD 1
0x306c2c…306dc0 Dummy {f00=0x00f3, f01=0x0190, f02=» P* RELATIVE ADDRESSES IN P* TERMINAL WORKBLOCK $ P* @ PWCC EQU 1952 WCC CHAR. J ( PKBINH EQU WCC+2 KB INHIBIT INDICATOR h 0 PDCLENG EQU KBINH+4 DC READ EFFECTIVE LENGTH 0 PECBBLK EQU DCLENG+18 ECB:S FOR MULTIPLE WAIT * PBUFPNT EQU E
0x306dc0…306f54 (4, 10) Dummy {f00=0x00f3, f01=0x0190, f02=» LINE 2 v P* P* RELATIVE ADDRESSES IN P* COMMON WORKBLOCK : P* T PMF1CU EQU 0 SYMBOLIC ADDRESS ^ P EJECT @ P************************************************************ @ P*
0x306f54…3070e8 Dummy {f00=0x00f3, f01=0x0190, f02=» * @ P************************************************************ P* REGISTERS T P* h P* A11= CREDIT WORK AREA r P* A13= RESERVED P* 0 P******************************************** PDCINP EQU * P CF A14,GETB
0x3070e8…30727c Dummy {f00=0x00f3, f01=0x0190, f02=»2 " P CF A14,RELBUF RELEASE BUFFER P RF DCIN15 0 PDCIN10 EQU * B P LD A1,ECBEL,A8 V " P ST A1,DCLENG,A11 SAVE LENGTH n P ST A12,BUFPNT,A11 $ P CF A14,UNPACK UNPACK THE BUFFER $ P CF A14,DISMOD DISPLAY THE NEWS PDCIN15 EQU
0x30727c…307410 Dummy {f00=0x00f3, f01=0x0190, f02=»ARD NOT TOTALLY INHIBIT P LD A1,WCC,A11 P ANK A1,2 RESTORE KEYBOARD? 6 P RF(Z) DCIN30 NO Z PDCIN20 EQU * r ( P CF A14,LMP3OF TUR OFF INHIBIT LAMP P ANK A2,4 RESTORE KEYBOARD PDCIN30 EQU * P ST A2,KBINH,A11 P LDK A1,
0x307410…3075a4 Dummy {f00=0x00f3, f01=0x0190, f02=»**** V B P* * P* OPEN OPEN R B P* * f B P************************************************************** P* REGISTERS P*
0x3075a4…307738 Dummy {f00=0x00f3, f01=0x0190, f02=»******************** f POPEN EQU * & P LD A8,ECBDC1,A11 GET ECB ADDRESS . P LDK A4,0 RESET INDICATOR X P LD A3,6,A13 GET BASE z P LD A2,MF1CU,A3 ADDRESS =1 POPEN10 EQU * P ST A2,ECBCW2,A8 . =1 P LDK A7,/A1 OPEN P LKM
0x307738…3078cc Dummy {f00=0x00f3, f01=0x0190, f02=»NZ) OPEN20 NO P LD A8,ECBDC2,A11 GET LINE 2 P LDK A4,1 : P RB OPEN10 L P XIF ^ POPEN20 EQU * j P RTN A14 ~ P EJECT > P********************************************************* > P*
0x3078cc…307a60 Dummy {f00=0x00f3, f01=0x0190, f02=»******************************************* P* REGISTERS 4 P* H P* A8= DC ECB R P* A11= CREDIT WORK AREA f P* A13= RESERVED P* 6 P************************************************** PCONCT EQU * P CF A14,GETBUF GET
0x307a60…307bf4 (4, 11) Dummy {f00=0x00f3, f01=0x0190, f02=»A1,A11 GET TASKID P ANK A1,/FF ( P SC A1,+1,A12 SAVE ADDRESS IN BUFFER . P LDK A1,2 LENGTH Z P ST A1,ECBRL,A8 r P LD A3,6,A13 GET BASE P LD A1,MF1CU,A3 P ST A1,ECBCW2,A8 . =1 P LDK A7,/A7 CONNECT PASSIVE P LKM
0x307bf4…307d88 Dummy {f00=0x00f3, f01=0x0190, f02=»OR COPY COMMAND z P IFT NBRLIN=2 P LDR A4,A4 MORE TO CONNECT . P RF(NZ) CONC20 NO P P LDK A4,1 NO MORE j P LD A8,ECBDC2,A11 LINE 2 P RB CONC10 PCONC20 EQU * P XIF P LDR A8,A12 " P CF A14,RELBUF RELEASE BUFFER
0x307d88…307f1c Dummy {f00=0x00f3, f01=0x018e, f02=»EQUEST TIMEOUT P* F P***************************************************************** P* REGISTERS j P* P* F P***************************************************************** PSETTIM EQU * P LD A8,ECBDC
0x307f1c…3080b0 Dummy {f00=0x00f3, f01=0x0190, f02=» ~ P LDK A7,/B9 SET TIMEOUT P LKM ( P DATA 1 4 P IFT NBRLIN=2 D P LDR A4,A4 MORE TO TIME? Z P RF(NZ) SETT20 NO z P LD A8,ECBDC2,A11 GET LINE 2 P LDK A4,1 NO MORE P RB SETT10 PSETT20 EQU * P XIF P R
0x3080b0…308244 Dummy {f00=0x00f3, f01=0x0190, f02=» * f P* READW RECEIVE > P* * 0 > P********************************************************* r P* REGISTERS P* P* A3= BUFFER ADDRESS P* A8= DC ECB P* A11=
0x308244…3083d8 Dummy {f00=0x00f3, f01=0x0190, f02=»* P LD A8,ECBDC1,A11 LINE 1 P IFT NBRLIN=2 * P LD A1,MAIN,A11 MORE LINES @ P RF(Z) REDW10 NO b P LD A8,ECBDC2,A11 LINE 2 z PREDW10 EQU * P XIF $ P LDKL A1,BUFFL+BUFFL GET LENGTH P ST A1,ECBRL,A8 P ST A3,ECBBA,A
0x3083d8…30856c Dummy {f00=0x00f3, f01=0x0190, f02=» P CF A14,CHKSTA CHECK STATUS P LDK A1,8 INDICATE ERROR ( P RF REDW30 H PREDW20 EQU * Z P LDK A1,2 n PREDW30 EQU * P RTN A14 P EJECT > P********************************************************* > P*
0x30856c…308700 Dummy {f00=0x00f3, f01=0x0190, f02=»******************************************************* P* REGISTERS @ P* T 0 P* A1= AT ENTRY CHAIN INDICATOR, RETURN CODE ^ P* A8= DC ECB P* A9= DC BUFFER LENGTH P* A11= CREDIT WORK AREA P* A13= RESERVED P* : P**
0x308700…308894 (4, 12) Dummy {f00=0x00f4, f01=0x0190, f02=»A1,MAIN,A11 LINE 2? P RF(Z) DCWR10 NO P LD A8,ECBDC2,A11 LINE 2 4 PDCWR10 EQU * T P XIF h , P LDK A2,2 KEYBOARD INHIBIT BUT RESETABLE t P ORS A2,KBINH,A11 P LDK A7,/86 WRITE ORDER $ P ST A12,ECBBA,A8 BUFFER ADDRESS P S
0x308894…308a28 Dummy {f00=0x00f4, f01=0x0190, f02=»ERROR " P CF A14,CHKSTA CHECK DC STATUS P LD A1,KBINH,A11 4 $ P ANK A1,/D RESET KEYBOARD PARTLY L P ST A1,KBINH,A11 t $ P CF A14,LMP3OF INHIBIT LAMP OFF " P CF A14,RESKB RESET KB BUFFER P LDK A1,1 RETURN CODE PDCWR90 EQU *
0x308a28…308bbc Dummy {f00=0x00f4, f01=0x0190, f02=» * l > P* TSTMES TEST IF ANY MESSAGE, NO WAIT * > P* * ` > P********************************************************* P* REGISTERS P* P* A1=
0x308bbc…308d50 Dummy {f00=0x00f4, f01=0x0190, f02=»*************************** r PTSTMES EQU * ! $ P LD A8,ECBDC1,A11 LINE 1 ! 8 P IFT NBRLIN=2 ! X P LD A1,MAIN,A11 LINE 2 ! n P RF(Z) TSTM10 NO ! P LD A8,ECBDC2,A11 LINE 2 ! PTSTM10 EQU * ! P XIF ! P LDK A2,1 ! * P ST A2,ECBCW1,A8 I
0x308d50…308ee4 Dummy {f00=0x00f4, f01=0x0190, f02=»************************************************* ! B P* * " : B P* SETSTA SET STATUS * " B P* * "
0x308ee4…309078 Dummy {f00=0x00f4, f01=0x0190, f02=»A8= DC ECB " P* A11= RESERVED # P* A13= ADDRESS TO ECB AREA # * P* # L @ P************************************************************ # V PSETSTA EQU * # P LD A8,ECBDC1,A11 # P IFT NBRLIN=2 # P LD A2,MAIN,A11 # P RF(Z) SETS10 #
0x309078…30920c Dummy {f00=0x00f4, f01=0x0190, f02=»TN A14 # P EJECT $ : P****************************************************** $ : P* * $ Z : P* TSTSTA TEST STATUS * $ : P*
0x30920c…3093a0 Dummy {f00=0x00f4, f01=0x0190, f02=»DC ECB $ P* A11= RESERVED % P* A13= ADDRESS TO ECB AREA % & P* % H : P***************************************************** % R PTSTSTA EQU * % P LD A8,ECBDC1,A11 LINE 1 % P IFT NBRLIN=2 % P LD A1,MAIN,A11 LINE 2? % P RF(Z) TSTS10
0x3093a0…309534 (4, 13) Dummy {f00=0x00f4, f01=0x0190, f02=» LKM % P DATA 1 & P LD A1,ECBCW1,A8 & P RTN A14 & 4 P EJECT & D J P********************************************************************* & R P* & P* RDSTAT READ STATISTICS & P* & J P****************************************************
0x309534…3096c8 Dummy {f00=0x00f4, f01=0x0190, f02=»******* & R PRDSTAT EQU * ' P IFT TEST=1 ' $ P LD A8,ECBDC1,A11 ' 8 P IFT NBRLIN=2 ' R " P LD A1,MAIN,A11 THE OTHER LINE ' h P RF(Z) RDST10 NO ' P LD A8,ECBDC2,A11 ' PRDST10 EQU * ' P XIF ' P IFT TEST=1 ' P ST A12,ECBBA,A8 '
0x3096c8…30985c Dummy {f00=0x00f4, f01=0x018e, f02=»1 ' P RTN A14 ( P XIF ( P EJECT ( & > P********************************************************** ( 4 > P* * ( v > P* DCABOR ABORT TEST MESSAGE REQUEST * ( > P*
0x30985c…3099f0 Dummy {f00=0x00f4, f01=0x0190, f02=» P* ) P* A8= DC ECB ) ( P* A11= ADDRESS TO CREDIT WORK AREA ) " P* A13= ADDRESS TO ECB AREA ) N P* ) p > P********************************************************* ) z PDCABOR EQU * ) P LD A8,ECBDC1,A11 LINE 1 ) P IFT NBRLIN=2 ) P L
0x3099f0…309b84 Dummy {f00=0x00f4, f01=0x0190, f02=» LKM ) P DATA 10 * P LDR A7,A7 OK? * ( P RF(NZ) DCAB10 NO,ALREADY COMPLETED * 2 P CM ECBBLK+DC,A11 * ^ PDCAB10 EQU * * x P RTN A14 * P EJECT * P* * P* * P* * P* DC RETURN CODE * P * P* * P* * P* * " P*
0x309b84…309d18 Dummy {f00=0x00f4, f01=0x0190, f02=»ST TIMEOUT * z $ P* 11 SEQUENCE ERROR + & P* 12 INCORRECT LENGTH + : P* 13 RESERVED + d ( P* 14 TRANSMISSION ERROR + " P* 15 NO CONNECTION + P* + P* + P* + P EJECT + : P****
0x309d18…309eac Dummy {f00=0x00f4, f01=0x0190, f02=» CHECK DC STATUS * + : P* * , . : P****************************************************** , l P* REGISTERS , P* , . P* A1= AT ENTRY DC RETURN CODE, RETURN CODE , P* A11= CREDIT
0x309eac…30a040 Dummy {f00=0x00f4, f01=0x0190, f02=» CF A14,TSTSTA TEST STATUS , P ANKL A1,/2211 LINE OK? - " P XRKL A1,/2211 - B P RF(NZ) CHKS10 NO - X P CF A14,LMP1ON SYSTEM AVAIL. - r P RF CHKS20 - PCHKS10 EQU * - * P* LAMP ONE OFF DELETED P & T * - PCHKS20 EQU * - P RTN A14 -
0x30a040…30a1d4 (4, 14) Dummy {f00=0x00f4, f01=0x0190, f02=» * - ^ > P* DCOFLN INDICATE OFFLINE TO CLUSTER * . > P* * . R > P********************************************************* . P* REGISTERS . P* . P* A11= CREDIT WORK A
0x30a1d4…30a368 Dummy {f00=0x00f4, f01=0x018e, f02=» . P CF A14,DCABOR / P XIF / P RTN A14 / * P EJECT / : : P***************************************************** / H : P* * / : P* TRPA TRANSMIT SHORT READ AT PA-KEY * / : P*
0x30a368…30a4fc Dummy {f00=0x00f4, f01=0x018e, f02=» P* 0 P* A2= AID CODE 0 P* A11= CREDIT WORK AREA 0 $ P* A13= RESERVED 0 D P* 0 : P***************************************************** 0 f PTRPA EQU * 0 & P CF A14,GETBUF GET TRANSMIT BUFFER 0 $ P CF A14,PAID STORE AID IN BUFFER 0 P
0x30a4fc…30a690 Dummy {f00=0x00f4, f01=0x0190, f02=» : P****************************************************** 1 : P* * 1 B : P* TRPF TRANSMIT MODIFIED READ AT PF-KEY * 1 : P* * 1 : P************
0x30a690…30a824 Dummy {f00=0x00f4, f01=0x0190, f02=»= RESERVED 1 P* A6= RESERVED 2 P* A11= CREDIT WORK AREA 2 ( P* A13= RESERVED 2 H P* 2 ` : P****************************************************** 2 j PTRPF EQU * 2 & P CF A14,GETBUF GET TRANSMIT BUFFER 2 P CF A14,PAID SAVE AID-CODE 2 * P C
0x30a824…30a9b8 Dummy {f00=0x00f4, f01=0x4066, f02=»A14,PACK PACK BUFFER WITH MODIFIED FIELDS AND TRANSMIT 2 P RTN A14 3 > P 3 N P END 3 V@ 3 b : P****************************************************** 2 j PTRPF EQU * 2 & P CF A14,GETBUF GET TRANSMIT BUFFER 2 P CF A14,PAID SAVE AID-CODE 2 * P C
0x30a9b8…30ab4c Dummy {f00=0x00f4, f01=0x2008, f02=» 4 FIED FIELDS v CF A14,DCWRTE TRANSMIT RTN A14 < L END T@ `RANSMIT BUFFER P & ! LD A1,SNAMOD,TCABAS GET SNA MODE z CWK A1,2 SYSTEM MODE? RF(E) TRPF10 YES * % CF A14,SCRINF GET SCREEN INFORMATION
0x30ab4c…30ace0 Dummy {f00=0x00f4, f01=0x0190, f02=»33 F 6r6 9>F 9,6~7 F C D D C F FxF F DNCbDXC"D8F2F2DlD.F D C B| 6 C* K K K K V K : 7 B> B. B| 6 V C C* C V Z P 2 " T W "@T '?W "? HA " K :e J J " J
0x30ace0…30ae74 (4, 15) Opaque[0x194]
0x30ae74…30b008 # DirEnt {nam=»DSPBSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e98, f03=0x0000}
0x30ae74…30b008 IdxSect {
0x30ae74…30b008 f00 = 0x00f4 // 0x30ae74 @0x0
0x30ae74…30b008 f01 = 0x000c // 0x30ae76 @0x2
0x30ae74…30b008 gno = [ // 0x30ae78 @0x4
0x30ae74…30b008 [0x00]: C0x00f4.0x3.0
0x30ae74…30b008 [0x01]: C0x00f5.0x0.0
0x30ae74…30b008 [0x02]: C0x00f5.0x1.0
0x30ae74…30b008 [0x03]: C0x00f5.0x2.0
0x30ae74…30b008 [0x04]: C0x00f5.0x3.0
0x30ae74…30b008 [0x05]: C0x00f6.0x0.0
0x30ae74…30b008 ]
0x30ae74…30b008 }
0x30b008…30b19c Dummy {f00=0x00f4, f01=0x0190, f02=» 0 P IDENT DSPBSC REL 11.0 811101DK 870150541100 P 8 B P************************************************************* @ B P* * B P* MODULE DSPBSC
0x30b19c…30b330 Dummy {f00=0x00f4, f01=0x0190, f02=» * X B P* AND MULTIPLE WAIT FOR KB AND DC. * < P* (EMULATION 3270 BSC) * T B P* * B P**********************************************
0x30b330…30b4c4 Dummy {f00=0x00f4, f01=0x0190, f02=» * v D P* LIST OF ROUTINES * . D P* * v D P* VDUKB MAIN ROUTINE * $ P*
0x30b4c4…30b658 Dummy {f00=0x00f4, f01=0x0190, f02=»IT INITIALIZE THE TASK * * P* COMINI COMMON INIT ROUTINE @ $ P* ECBINI INIT OF ECB:S n D P* TSTDEV TEST KEYBOARD AND DISPLAY * D P*
0x30b658…30b7ec Dummy {f00=0x00f4, f01=0x0190, f02=»************************************** | > P* * . > P* ENTRY POINTS * p > P* * > P********************
0x30b7ec…30b980 Dummy {f00=0x00f4, f01=0x0190, f02=»INE r P ENTRY ECBINI INIT OF ECB:S . P ENTRY MATCH MATCH TASID AND PHYS. ADDRESS 0 P b > P********************************************************** j > P* * > P* EXTERNAL REFERENC
0x30b980…30bb14 (4, 16) Dummy {f00=0x00f5, f01=0x0190, f02=»**************************** r P $ , P EXTRN I:EVA0 CREDIT EVALUATION ROUTINE , P EXTRN OPEN OPEN DC (DCBSC) $ P EXTRN CONCT CONNECT DC (DCBSC) . P EXTRN SETTIM SET REQUEST TIMEOUT (DCBSC) 2 P EXTRN ERASE ERASE SCREEN AND VDU BUFFER (VDU)
0x30bb14…30bca8 Dummy {f00=0x00f5, f01=0x0190, f02=»INE IN KEYB-MODULE (KEYB) z 6 P EXTRN DCINP MAIN ROUTINE IN DCSNA-MODULE (DCSNA) " * P EXTRN LMP6OF OFFLINE LAMP OFF (KEYB) " P EXTRN LMP1ON DC LINE 1 (KEYB) " P EXTRN LMP2ON DC LINE 2 (KEYB) . P EXTRN SOUND SOUND ALARM AT DISPLAY (VDU) & P
0x30bca8…30be3c Dummy {f00=0x00f5, f01=0x0190, f02=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) ( P EXTRN ICVRED INTERTASK READ (KEYB) 4 ( P EXTRN ICINP INTERTASK INPUT (KEYB) ` * P EXTRN CHKSTA CHECK DC STATUS (DCBSC) 6 P EXTRN READK2 READ NUMERIC KEYB'RD, NO-WAIT (KEYB) , P EXTRN KBINP2 ROUTIN
0x30be3c…30bfd0 Dummy {f00=0x00f5, f01=0x0190, f02=» * x B P* CONDITIONAL ASSEMBLY PARAMETERS * . B P* * t B P************************************************************* P $ P
0x30bfd0…30c164 Dummy {f00=0x00f5, f01=0x0190, f02=»MBER OF LINES (1-2) PNBRLIN EQU 1 * PX:M EQU 0 COPY COMMNAND INCLUDED IF:=1 0 PCOPCMD EQU 1 ^ " PX:O EQU 0 TEST INCLUDED IF:=1 r PTEST EQU 0 P EJECT @ P*********************************************************** @ P*
0x30c164…30c2f8 Dummy {f00=0x00f5, f01=0x0190, f02=» * j @ P*********************************************************** P b P* j P* ECB INDEX TABLE t P* PECBIND EQU * P DATA 8 NUMBER OF ENTRIES P DATA X'2000' ECB KB P DATA X'3002' ECB PRINTER
0x30c2f8…30c48c Dummy {f00=0x00f5, f01=0x018e, f02=»RTASK WRITE z P DATA X'610C' ECB DC LINE1 ( P DATA X'210E' ECB FOR NUMERIC KB DK 6 P* b $ P* SCREEN SIZE ON DISPLAY l P* PLBVDU EQU 1920 P* P* MODES P* * PHCPMOD EQU /4000 HARDCOPY OUTSTANDING P*
0x30c48c…30c620 Dummy {f00=0x00f5, f01=0x0190, f02=» P* TERMINAL WORKBLOCK TB1 P* $ POFFFLG EQU 1962 OFFLINE FLAG . * PPRTID EQU OFFFLG+2 TASKID FOR HARDCOPY R " PMAIN EQU PRTID+6 WHICH DC LINE . PECBBLK EQU MAIN+6 ECBBLK FOR MULTIPLE WAIT PREGI EQU ECBBLK+16 SAVE AREA PBSCMOD EQU R
0x30c620…30c7b4 (4, 17) Dummy {f00=0x00f5, f01=0x0190, f02=» * PMF1CU EQU 0 SYMBOLIC CLUSTER ADDDRESS P IFF TEST=1 6 " PTSKTAB EQU MF1CU+24 TASK TABLE J P XIF p P IFT TEST=1 | $ PTSKTAB EQU MF1CU+219 TASK TABLE P XIF P EJECT > P******************************************************
0x30c7b4…30c948 Dummy {f00=0x00f5, f01=0x0190, f02=» V > P* * > P********************************************************* J P* REGISTERS P* P* A11= RESERVED P* A13= RESERVED P* 4 P************************************
0x30c948…30cadc Dummy {f00=0x00f5, f01=0x0190, f02=»QU * " P CF A14,IOACT PREPARE ECB-BLK P LDKL A7,ECBBLK 2 P ADR A7,A11 J P LKM ^ P DATA 7 MULTIPLE WAIT j & P CF A14,IOCPL TAKE CARE OF REQUEST P RB VDU200 HERE WE GO AGAIN P EJECT P* P* " P* POSSIBLE LAYOU
0x30cadc…30cc70 Dummy {f00=0x00f5, f01=0x0190, f02=» 3 ~ P* KB KB P* DC DC 4 P* IC X P* | P* P* P EJECT @ P************************************************************ @ P*
0x30cc70…30ce04 Dummy {f00=0x00f5, f01=0x0190, f02=» * @ P************************************************************ P* REGISTERS T P* t ( P* A4= NUMBER OF ENTRIES IN ECB BLOCK ~ P* A11= CREDIT WORK AREA P* A13= RESERVED P* > P****************************
0x30ce04…30cf98 Dummy {f00=0x00f5, f01=0x0190, f02=»K+4,A11 REQ. ALREADY OUTST.? P RF(NZ) IOAC10 YES $ P CF A14,TSTMES TEST MESSAGE > P ST A8,ECBBLK+4,A11 b PIOAC10 EQU * ~ P IFT COPCMD=1 * P ANKL A1,HCPMOD HARDCOPY OUTSTANDING? P RF(Z) IOAC30 NO P XIF P ADK A4,1
0x30cf98…30d12c Dummy {f00=0x00f5, f01=0x0190, f02=»8,A11 PIOAC30 EQU * P ADK A4,1 " ( P LD A2,ECBBLK+2,A11 KB OUTSTANDING? 4 P RF(NZ) IOAC35 YES ` P CF A14,READKB READ KEYBOARD z P ST A8,ECBBLK+2,A11 PIOAC35 EQU * . P* SECOND KEYBOARD HANDLING 81-10-18 DK * P ADK A
0x30d12c…30d2c0 Dummy {f00=0x00f5, f01=0x0190, f02=»CBBLK+6,A11 P** END DK ** PIOAC40 EQU * 2 * P ST A4,ECBBLK,A11 SAVE NUMBER OF WAITS F P RTN A14 t P EJECT @ P************************************************************ @ P*
0x30d2c0…30d454 (4, 18) Dummy {f00=0x00f5, f01=0x0190, f02=»****************************************************** P* REGISTERS > P* R P* A11= CREDIT WORK AREA P* A13= RESERVED | P* @ P************************************************************ PIOCPL EQU * P CW A8,ECBBLK+2,A1
0x30d454…30d5e8 Dummy {f00=0x00f5, f01=0x0190, f02=»EYBOARD HANDLING P & T,81-10-19 DK ** PIOCP05 EQU * . $ P CW A8,ECBBLK+6,A11 KB2 INPUT ? D P RF(NE) IOCP10 NO l P CM ECBBLK+6,A11 $ P CF A14,KBINP2 TAKE CARE OF KB2 P RF IOCP90 P** END DK P & T ** PIOCP10 EQU *
0x30d5e8…30d77c Dummy {f00=0x00f5, f01=0x0190, f02=» PIOCP20 EQU * P CM ECBBLK+8,A11 ( P CF A14,ICINP TAKE CARE OF INTERTASK 4 PIOCP90 EQU * ` P RTN A14 t P EJECT D P*************************************************************** P* * P* MATCH MATCH TASKID AND PHYS. ADDRE
0x30d77c…30d910 Dummy {f00=0x00f5, f01=0x0190, f02=» D P**************************************************************** PMATCH EQU * L P IFT COPCMD=1 ` ( P LDK A1,NBRTSK GET NUMBER OF ENTRIES v P LD A3,6,A13 " P ADKL A3,TSKTAB START OF TABLE PMATC10 EQU * P CC A2,+2,A3 SAME ADDRES
0x30d910…30daa4 Dummy {f00=0x00f5, f01=0x0190, f02=»DK A1,1 INDICATE NOT FOUND P RF MATC90 " PMATC30 EQU * 4 P LCR A1,A3 H , P CCK A1,VDUCOD COPY IN RIGHT DIRECTION? Z P RB(NE) MATC20 NO P LDK A1,0 P LDR* A2,A3 PMATC90 EQU * P XIF P RTN A14 P EJECT @ P
0x30daa4…30dc38 Dummy {f00=0x00f5, f01=0x0190, f02=»* INIT INITIALIZE THE TASK * @ P* * D @ P************************************************************ P* REGISTERS P* P* A11= CREDIT WORK AREA
0x30dc38…30ddcc Dummy {f00=0x00f5, f01=0x0190, f02=»IT x P CF A14,ECBINI INIT OF ECB:S P CF A14,OPEN OPEN DC . P LDKL A8,20 J P LKM ^ P DATA 6 j P CF A14,CONCT CONNECT DC z & P CF A14,SETTIM SET REQUEST TIMEOUT * P LDK A2,NBRTSK NUMBER OF TASK ENTRIES , P LD A9,REGI,A11 RESTOR
0x30ddcc…30df60 Dummy {f00=0x00f5, f01=0x0190, f02=»Y TASK AT ALL? P RB(Z) INIT10 NO P CCK A1,'VV' DISPLAY TASK? . P RB(E) INIT10 YES P P SLL A1,8 j P LC A1,+1,A9 | P ST A1,PRTID,A11 PINIT20 EQU * P IFT OFLIN=1 P LD A1,2,A14 P LD A2,4,A14 P ST A12,4,A14
0x30df60…30e0f4 (4, 19) Dummy {f00=0x00f5, f01=0x0190, f02=»A14,LMP6OF TURN OFF OFFLINE LAMP P XIF ( P LDK A4,0 4 ( P LDKL A5,LBVDU+1 UNFORMATTED SCREEN F P LDK A6,0 r * P CF A14,STOINF SAVE SCREEN INFORMATION ( P CF A14,ERASE ERASE THE WHOLE SCREEN P IFT NBRLIN=2 P LD A1,MAIN,A11 DC L
0x30e0f4…30e288 Dummy {f00=0x00f5, f01=0x0190, f02=»A14,LMP1ON INDICATE DC LINE 1 PINIT40 EQU * & $ P CF A14,CHKSTA CHECK IF LINE OK : P RTN A14 b P EJECT r > P********************************************************** > P* * > P*
0x30e288…30e41c Dummy {f00=0x00f5, f01=0x0190, f02=»************************************************** P* REGISTERS : P* P* A11= CREDIT WORK AREA f P* A13= RESERVED P* > P********************************************************** PCOMINI EQU * P CF A14,I:
0x30e41c…30e5b0 Dummy {f00=0x00f5, f01=0x018e, f02=» P ANK A1,X'FF' ! * P SUK A1,X'30' GET OFFSET IN TASK TABLE ! P SLL A1,2 TWO WORDS ENTRIES ! H P LDKL A4,TSKTAB ! l P ADR A4,A3 ! " P ADR A1,A4 POINT TO YOUR LABLE ! ( P ST A1,REGI,A11 SAVE TASKTAB ADDRESS ! P SC A2,+1,A1 SAVE TASKID ! P
0x30e5b0…30e744 Dummy {f00=0x00f5, f01=0x0190, f02=» ! 4 P* DISPLACEMENT I/O FILECODE " P* " @ 2 P* 0 KB /20 " J 2 P* 2 PRINTER /30 " 2 P* 4 SIGNAL/DISP. /40 " 2 P* 6 V
0x30e744…30e8d8 Dummy {f00=0x00f5, f01=0x0190, f02=» 12 DC LINE 1 /61 " 2 P* 14 DC LINE 2 /62 # 4 P* # j P* # t P* # ~ P* # P EJECT # B P************************************************************* # B P*
0x30e8d8…30ea6c Dummy {f00=0x00f5, f01=0x0190, f02=» * # r B P************************************************************* $ ( P* REGISTERS $ n P* $ P* A4 = NUMBER OF ENTRIES $ P* A5 = NUMBER OF FC ALLOWED $ P* A6 = DAT POINTER $ P* A7 = ECB FC POINTER
0x30ea6c…30ec00 Dummy {f00=0x00f5, f01=0x0190, f02=»****************************** $ r PECBINI EQU * % & " P LD A2,-8,A13 GET T:D ADDRESS % : & P LD A4,+4,A2 GET NUMBER OF ENTRIES % ` P LD A8,+6,A2 % P ADR A8,A13 % P LDR A6,A8 DAT POINTER % P SUKL A8,20 DATA SET POINTER % PECBI10 EQU * % P
0x30ec00…30ed94 (4, 20) Dummy {f00=0x00f6, f01=0x0190, f02=»2,A7 FC IN DAT = FC CONFIGURED? % P RF(E) ECBI30 YES & ( P ADK A7,2 NEXT & B P SUK A5,1 NOT FOUND? & X P RB(NZ) ECBI20 NOT YET & t P LDKL A1,* DIAGNOSTIC & P ST A1,REGI,A11 & P LKM & P DATA 3 WRONG GENERATION & PECBI30 EQU * & $ P
0x30ed94…30ef28 Dummy {f00=0x00f6, f01=0x0190, f02=»GET FIXED BUFFER IF ANY & " P ST A2,+2,A8 SAVE IN DATA SET ' ( P LC A2,+1,A7 GET INDEX TO ECB TABLE ' F P ANK A2,/FF ' r P ADR A2,A11 ' & P ST A8,ECBTAB,A2 SAVE ECB ADDRESS ' P ADK A6,4 ' P SUKL A8,20 ' P SUK A4,1 ALL DONE? ' P R
0x30ef28…30f0bc Dummy {f00=0x00f6, f01=0x0190, f02=» * ' B P* TSTDEV TEST KEYBOARD AND DISPLAY * ( : B P* * ( B P************************************************************* (
0x30f0bc…30f250 Dummy {f00=0x00f6, f01=0x4082, f02=»************* ( l PTSTDEV EQU * ) , P CF A14,SOUND TURN ON SOUND ALARM AT VDU ) * P RTN A14 ) Z P ) j P END ) r@ ) ~ * ( B P************************************************************* (
0x30f250…30f3e4 Dummy {f00=0x00f6, f01=0x2008, f02=» * * ! j @ <************************************************************ " I/OACT EQU * " b * & DATA VDU400 ACT. ONLY KB IN OPEN MODE " v . * DATA VDU300 ACT. KB AND DC IN SYSTEM MODE " . * DATA VDU300 ACT. KB AND DC IN MY JOB MODE "
0x30f3e4…30f578 Dummy {f00=0x00f6, f01=0x0190, f02=»
[…0x2…]
0x30f8a0…30fa34 (4, 21) Opaque[0x194]
0x30fa34…30fbc8 # DirEnt {nam=»KEYB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ec8, f03=0x0000}
0x30fa34…30fbc8 IdxSect {
0x30fa34…30fbc8 f00 = 0x00f6 // 0x30fa34 @0x0
0x30fa34…30fbc8 f01 = 0x002e // 0x30fa36 @0x2
0x30fa34…30fbc8 gno = [ // 0x30fa38 @0x4
0x30fa34…30fbc8 [0x00]: C0x00f6.0x1.0
0x30fa34…30fbc8 [0x01]: C0x00f6.0x2.0
0x30fa34…30fbc8 [0x02]: C0x00f6.0x3.0
0x30fa34…30fbc8 [0x03]: C0x00f7.0x0.0
0x30fa34…30fbc8 [0x04]: C0x00f7.0x1.0
0x30fa34…30fbc8 [0x05]: C0x00f7.0x2.0
0x30fa34…30fbc8 [0x06]: C0x00f7.0x3.0
0x30fa34…30fbc8 [0x07]: C0x00f8.0x0.0
0x30fa34…30fbc8 [0x08]: C0x00f8.0x1.0
0x30fa34…30fbc8 [0x09]: C0x00f8.0x2.0
0x30fa34…30fbc8 [0x0a]: C0x00f8.0x3.0
0x30fa34…30fbc8 [0x0b]: C0x00f9.0x0.0
0x30fa34…30fbc8 [0x0c]: C0x00f9.0x1.0
0x30fa34…30fbc8 [0x0d]: C0x00f9.0x2.0
0x30fa34…30fbc8 [0x0e]: C0x00f9.0x3.0
0x30fa34…30fbc8 [0x0f]: C0x00fa.0x0.0
0x30fa34…30fbc8 [0x10]: C0x00fa.0x1.0
0x30fa34…30fbc8 [0x11]: C0x00fa.0x2.0
0x30fa34…30fbc8 [0x12]: C0x00fa.0x3.0
0x30fa34…30fbc8 [0x13]: C0x00fb.0x0.0
0x30fa34…30fbc8 [0x14]: C0x00fb.0x1.0
0x30fa34…30fbc8 [0x15]: C0x00fb.0x2.0
0x30fa34…30fbc8 [0x16]: C0x00fb.0x3.0
0x30fa34…30fbc8 ]
0x30fa34…30fbc8 }
0x30fbc8…30fd5c Dummy {f00=0x00f6, f01=0x0190, f02=» 2 P IDENT KEYB REL 11.0 DK 82-02-28 870150541100 P : P =1, SYSTEM MODE CURSOR B P 81-01-26 d D P*************************************************************** x D P* * D P
0x30fd5c…30fef0 Dummy {f00=0x00f6, f01=0x0190, f02=» P D P* (EMULATION 3270 SNA/SDLC, BSC) * D P* * P D P*************************************************************** P EJECT D P**************************
0x30fef0…310084 Dummy {f00=0x00f6, f01=0x018e, f02=»OUTINES * ~ D P* * 6 D P* KBINP MAIN ROUTINE * ~ D P* CPLKB KB-COMPLETION TABLE FOR DIFF. MODES *
0x310084…310218 Dummy {f00=0x00f6, f01=0x0190, f02=» N D P* KBCPJO KB-COMPLETION ROUTINE IN MY JOB MODE * D P* READKB READ KEYBOARD WITH NO WAIT * P D P* RESKB RESET KEYBOARD-BUFFER * . P* ICVRED KB/VDU INTERTASK RE
0x310218…3103ac Dummy {f00=0x00f6, f01=0x0190, f02=»ASK p ( P* ICWRT WRITE INTERTASK D P* ERROR ILLEGAL KEY-HANDLING * 8 D P* LAMPROUTINES * D P* SDISP SIGNAL ROUTINE *
0x3103ac…310540 Dummy {f00=0x00f6, f01=0x0190, f02=» * X D P* NUM NUM. CHAR HANDLING * D P* ANCOMM ALPHANUM. CHAR HANDLING * X P P* CURMOV MOVE CURSOR ON SCREEN * D P* BAKTAB
0x310540…3106d4 (4, 22) Dummy {f00=0x00f6, f01=0x0190, f02=»RNL TAB. UNPROT. NEXT LINE * D P* RDHOME TAB. UNPROT. FIRST ON SCREEN * < D P* EREOF ERASE TO END OF FIELD * D P* ERINPT ERASE UNPROT. ENTIRE SCREEN
0x3106d4…310868 Dummy {f00=0x00f6, f01=0x0190, f02=» * D P* RESET RESET HANDLING * D P* DUP DUPLICATE HANDLING * D P* FLDMRK FIELDMARK HANDLING * D P* ZERO:2,3 DOUBLE
0x310868…3109fc Dummy {f00=0x00f6, f01=0x0190, f02=» MAIN FRAME CHANGE * | D P* COPY LOCAL HARDCOPY * 4 D P* IDENT PRINTER IDENT. HANDLING * | D P* KEYL KEYLOCK STATUS HANDLING *
0x3109fc…310b90 Dummy {f00=0x00f6, f01=0x0190, f02=»LEAR HANDLING * z D P* SYSREQ SYSTEM REQUEST HANDLING * 2 D P* ATTN ATTENTION HANDLING * z D P* PA PROGRAM ACCESS HANDLING * D
0x310b90…310d24 Dummy {f00=0x00f6, f01=0x0190, f02=»* R D P* * D P*************************************************************** R P EJECT 8 P*************************************************** 8 P*
0x310d24…310eb8 Dummy {f00=0x00f6, f01=0x0190, f02=» 8 P**************************************************** P D . P ENTRY KBINP,KBINP2 START LABEL FOR MODULE L & P ENTRY READKB,READK2 READ KEYBOARD ~ & P ENTRY RESKB RESET KEYBOARD BUFFER P ENTRY LMP1ON LAMPROUTINES P ENTRY LMP1OF .
0x310eb8…31104c Dummy {f00=0x00f6, f01=0x018e, f02=»F . P ENTRY LMP5ON . P ENTRY LMP5OF . $ P ENTRY LMP6ON . < P ENTRY LMP6OF . T 2 P ENTRY RDHOME TAB. UNPROTECTED FIRST ON SCREEN l P ENTRY COPY LOCAL HARDCOPY " P ENTRY ERROR ERROR INDICATION ( P ENTRY TAB TAB FOREWARD UNPROT
0x31104c…3111e0 Dummy {f00=0x00f6, f01=0x0190, f02=» & P ENTRY ICSET SET INTERTASK TIMEOUT P ENTRY ICWRT WRITE INTERTASK . P ENTRY ICREAD READ INTERTASK R P EJECT v P : P****************************************************** : P* * : P
0x3111e0…311374 (4, 23) Dummy {f00=0x00f6, f01=0x0190, f02=»****************************************** P 2 & P EXTRN I:RT1 RETURN TO CREDIT CODE : 2 P EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU) d 0 P EXTRN ATMASF SEARCH ATTRIBUTE FORWARD (VDU) 0 P EXTRN DCABOR ABORT DC-REQUEST (DCSNA,DCBSC) * P EXTRN
0x311374…311508 Dummy {f00=0x00f6, f01=0x0190, f02=»(VDU) l 2 P EXTRN TRPA TRANSMIT SHORT READ (DCSNA,DCBSC) 4 P EXTRN TRPF TRANSMIT MODIFIED READ (DCSNA,DCBSC) D , P EXTRN TSTSTA TEST STATUS (DCSNA,DCBSC) | 0 P EXTRN WCHAR DISPLAY CHAR. AND CURSOR (VDU) . P EXTRN SOUND SOUND ALARM ON DISPLAY (VD
0x311508…31169c Dummy {f00=0x00f6, f01=0x0190, f02=»IN VDU BUFFER (VDU) x 2 P EXTRN STOVDU STORE CHAR. IN VDU BUFFER (VDU) & P EXTRN DISCHA DISPLAY CHAR. (VDU) R 6 P EXTRN POSUNP MOVE CURSOR TO NEXT UNPR. POS. (VDU) | , P EXTRN INSMOD INSERT MODE ROUTINE (VDU) 6 P EXTRN DCOFLN INDICATE OFFLINE TO
0x31169c…311830 Dummy {f00=0x00f6, f01=0x0190, f02=»YS OPEN SYSTEM (DCSNA,DCBSC) $ P EXTRN LINE GET LINE FLAG (VDU) $ & P EXTRN SAVE1 SAVE1 REGISTERS (PAD) L ( P EXTRN REST1 REST1E REGISTERS (PAD) v ( P EXTRN DISID DISPLAY HARDCOPY TASKID " P EXTRN GETBUF GET BUFFER (PAD) & P EXTRN RELBUF RELEAS
0x311830…3119c4 Dummy {f00=0x00f6, f01=0x0190, f02=»NE STATUS (DCBSC,DCSNA) z $ P EXTRN SETSTA SET STATUS (DCSNA) P EJECT H B P************************************************************* V B P* * B P* CONDITIONAL ASSEMBLY PARAMETE
0x3119c4…311b58 Dummy {f00=0x00f6, f01=0x018e, f02=»*************************** n P $ * PX:A EQU 0 SNA HANDLING INCLUDED IF:=1 , PSNA EQU 0 Z & PX:C EQU 0 OFFLINE HANDLING IF :=1 l POFLIN EQU 0 $ PX:D EQU 1 NUMBER OF LINES (1-2) PNBRLIN EQU 1 $ PX:F EQU 0 KEY-LOCK STATUS IF:=1
0x311b58…311cec Dummy {f00=0x00f6, f01=0x0190, f02=» , PX:I EQU 1 INSERT/DELETE HANDLING IF :=1 PIN:DL EQU 1 8 $ PX:J EQU 1 KB6272 INCLUDED IF :=1 L PKB6272 EQU 1 t * PX:M EQU 0 COPY COMMAND INCLUDED IF:=1 PCOPCMD EQU 1 & PX:O EQU 0 TEST MODE INCLUDED IF:=1 PTEST EQU 0 0 PX:
0x311cec…311e80 Dummy {f00=0x00f6, f01=0x0190, f02=»********* Z D P* * & P* DECLARATIONS OF DATA AND EQUATES Z D P* * D P************************************************************
0x311e80…312014 (4, 24) Dummy {f00=0x00f7, f01=0x0190, f02=»SE TO END OF FIELD-KEY ~ $ PERIKEY EQU /89 ERASE ALL UNPROT. PRSET EQU /8C RESET KEY F PIDKEY EQU /93 IDENT KEY d & PFKLKEY EQU /94 FIRST KEYLOCK VALUE & PLKLKEY EQU /9C LAST KEYLOCK VALUE ( PFIPA EQU /9F FIRST PROGRAM ATTN. KEY PENTK
0x312014…3121a8 Dummy {f00=0x00f7, f01=0x0190, f02=» n ( PLAKEY EQU /C9 LAST KEY IN KEY-TABLE P* 4 $ P* EQUATES FOR ECB HANDLING > P* f PECBBA EQU 2 BUFFER ADDRESS p PECBRL EQU 4 REQUESTED LENGTH PECBEL EQU 6 EFFECTIVE LENGTH PECBRC EQU 8 RETURN CODE PECBCW EQU 10 C
0x3121a8…31233c Dummy {f00=0x00f7, f01=0x0190, f02=» " PDUPCH EQU /1C DUPLICATE CHAR. " PFMCH EQU /1E FIELD MARK CHAR. * P* P P* LAMPCONSTANTS Z P* x PLON EQU /B7 PLOF EQU /B8 PLFL EQU /B9 FLASH P IFT KB6272=1 PLAMP1 EQU /20 PLAMP2 EQU /10 PLA
0x31233c…3124d0 Dummy {f00=0x00f7, f01=0x0190, f02=»2 EQU 0 PLAMP3 EQU 1 PLAMP4 EQU 2 $ PLAMP5 EQU 4 8 PLAMP6 EQU 8 L P XIF ` P* l P* VDU SCREEN SIZE v P* PLLINE EQU 80 LINE LENGTH PLBVDU EQU 1920 TOTAL SIZE P* P* MODES P* PNEWMOD E
0x3124d0…312664 Dummy {f00=0x00f7, f01=0x0190, f02=»TOR MODE t PLOCMOD EQU /0000 LOCAL MODE P* 4 P* TASK IDENTIFICATION CODE > P* ` PVDUCOD EQU 'VV' VDU KB TASK j P EJECT P* P* RELATIVE ADDRESSES IN P* TERMINAL WORKBLOCK P* PBVDU EQU 2 VDU SCREEN BUFFER
0x312664…3127f8 Dummy {f00=0x00f7, f01=0x0190, f02=»FFLG EQU KBINH+8 OFFLINE FLAG ( PPRTID EQU OFFFLG+2 HARDCOPY PRINTER & PMAIN EQU PRTID+6 MAIN FRAME R & PMODE EQU MAIN+2 INSERT MODE SWITCH v $ PKEYS EQU MODE+2 KEY LOCK STATUS 4 PRDMORE EQU KEYS+12 BRANCH ADDRESS TO NEXT KB-KEY 2 PCURPOS E
0x3127f8…31298c Dummy {f00=0x00f7, f01=0x0190, f02=»BSC MODE ~ PECBKB EQU BSCMOD+2 ECB KB ( PECBSD EQU ECBKB+4 ECB SIGNAL DISPLAY 2 * PECBICR EQU ECBSD+4 ECB INTERTASK READ ^ * PECBICW EQU ECBICR+2 ECB INTERTAS WRITE , PECBKB2 EQU ECBICW+4 ECB 2ND KEYBOARD DK P* P* RELATIVE ADDRESSES
0x31298c…312b20 Dummy {f00=0x00f7, f01=0x0190, f02=»AB EQU 219 TASK TABLE P XIF P EJECT * D P**************************************************************** 8 D P* * D P* KBINP MAIN ROUTINE *
0x312b20…312cb4 (4, 25) Dummy {f00=0x00f7, f01=0x0190, f02=»******** X P* REGISTERS P* $ P* A2= KEY-CHAR. . P* A3= KEY-TABLE INDEX F P* A4= RESERVED d P* A5= RESERVED z P* A6= RESERVED P* A7= KEY-HANDLING INDICATOR P* A11= CREDIT WORK AREA P* A13= RESERVED P*
0x312cb4…312e48 Dummy {f00=0x00f7, f01=0x018e, f02=» f P ST A1,ECBCW2,A8 DK PKBINP EQU * $ 0 P* NO CHECK ON POWER OFF....DK 81-10-17 * 8 P IFT KEYLST=0 l ( P LD A1,ECBCW,A8 SEE IF KEYLOCK ? DK P RF(N) KBIN80 SKIP IT DK P XIF P IFT KEYLST=1 & P LC* A2,ECBBA,A8 GET KEY
0x312e48…312fdc Dummy {f00=0x00f7, f01=0x018e, f02=» P ANKL A1,/FFF3 P RF(NZ) KBIN80 YES P LD A1,KBINH,A11 4 P ANK A1,1 KB TOTALY INHIBIT? L P RF(NZ) KBIN80 YES p $ P LC* A2,ECBBA,A8 GET INPUT CHAR. P ANK A2,/FF P LD A1,KBINH,A11 " P ANK A1,6 MUST BE A RESET KEY? P RF(
0x312fdc…313170 Dummy {f00=0x00f7, f01=0x0190, f02=» P XIF ! P RF(NE) KBIN80 NO ! PKBIN30 EQU * ! * P LDR A3,A2 ! > " P SUK A3,/20 INDEX TO KEY-TABLE ! P P RF(N) KBIN80 ILLEGAL CHAR ! v P CWK A2,LAKEY ! P RF(G) KBIN80 ILLEGAL CHAR ! P IFT SNA=1 ! " P LD A1,SNAMOD,A11 GET SNA MODE ! P
0x313170…313304 Dummy {f00=0x00f7, f01=0x0190, f02=»ROGRAM ATTN KEY? ! P RF(L) KBIN40 NO " P CM MODE,A11 " 0 $ P CF A14,LMP6OF CLEAR INSERT MODE " D P CF A14,DCABOR " l PKBIN40 EQU * " P XIF " P LDR A7,A7 ANY KEY-HANDLING " P RF(NZ) KBIN80 NO " $ P ADR A3,A3 PREPARE FOR KEY-TABLE " & P
0x313304…313498 Dummy {f00=0x00f7, f01=0x018e, f02=»LABEL " r P RF KBIN90 # PKBIN50 EQU * # 2 P CFI A14,KEYTAB,A3 BRANCH TO RESP. KEY-HANDLER # 4 P RF KBIN90 # j PKBIN80 EQU * # | " P CF A14,RESKB RESET KB BUFFER # PKBIN90 EQU * # P RTN A14 # P EJECT # P IFT SNA=1 # J P**************
0x313498…31362c Dummy {f00=0x00f7, f01=0x0190, f02=» # H J P* CPLKB KB-COMPLETION TABLE * $ J P* * $ V J P********************************************************************* $ PCPLKB EQU * $ ( P D
0x31362c…3137c0 Dummy {f00=0x00f7, f01=0x018e, f02=»JECT $ J P********************************************************************* % J P* * % Z J P* KBCLO KB-COMPLETION IN LOCAL MODE * % J P*
0x3137c0…313954 (4, 26) Dummy {f00=0x00f7, f01=0x0190, f02=» P* REGISTERS & P* & P* A2= KEY-CHAR & " P* A3= KEY-TABLE INDEX & 8 P* A4= RESERVED & V P* A5= RESERVED & l P* A6= RESERVED & P* A7= KEY-HANDLING INDICATOR & P* A11= CREDIT WORK AREA & P* A13= RESERVED & P* & @ P**********
0x313954…313ae8 Dummy {f00=0x00f7, f01=0x0190, f02=»AM ATTN, KEY? & ~ P RF(NG) KBCL90 NO ' P LDK A7,1 NO KEY-HANDLING ' 0 " P CWK A2,SYSKEY SYSTEM REQUEST? ' R P RF(NE) KBCL80 NO ' x & P CF A14,OPSYS START COMMUNICATION ' P CF A14,TSTSTA TEST STATUS ' P ANKL A1,/101 ACTIVE? ' P RF(NZ) KBCL
0x313ae8…313c7c Dummy {f00=0x00f7, f01=0x018e, f02=»CL90 ' PKBCL80 EQU * ( P CWK A2,ENTKEY ENTER KEY? ( P RF(NE) KBCL85 NO ( B , P LD A1,RDMORE,A11 INSIDE IDENT ROUTINE? ( P RF(Z) KBCL85 NO ( $ P LDK A7,0 INDICATE KEY-HANDLING ( P RF KBCL90 ( PKBCL85 EQU * ( P CF A14,ERROR ILLEGAL
0x313c7c…313e10 Dummy {f00=0x00f7, f01=0x0190, f02=» H P* * ) H P* KBCPSY KB-COMPLETION IN SYSTEM MODE * ) P H P* * ) H P********************************
0x313e10…313fa4 Dummy {f00=0x00f7, f01=0x018e, f02=»RVED ) P* A5= RESERVED * P* A6= RESERVED * " P* A7= KEY-HANDLING INDICATOR * 8 P* A11= CREDIT WORK AREA * P* A13= RESERVED * | P* * @ P*********************************************************** * PKBCPSY EQU * * $ P LDK A7,0 INDICATE
0x313fa4…314138 Dummy {f00=0x00f7, f01=0x0190, f02=» P RF(NE) KBCS10 NOT CLEAR KEY + & P LDK A7,1 INDICATE NO KEY-HANDLING + ( & P CF A14,ERASE ERASE ENTIRE SCREEN + R P RF KBCS80 + | PKBCS10 EQU * + P RF(G) KBCS70 YES + P CM MODE,A11 + $ P CF A14,LMP6OF CLEAR INSERT MODE + P CF A14,DCABOR A
0x314138…3142cc Dummy {f00=0x00f7, f01=0x0190, f02=»RASE END OF FIELD KEY? + P RF(E) KBCS80 YES , $ P CWK A2,CRUP INITIATE CURSOR? =1 , 8 P RF(NL) KBCS90 NO =1 , ` P LD A1,CURPOS,A11 , | " P CWK A1,/800 CURSOR INITIATED? , P RF(NE) KBCS90 YES , $ P CF A14,SCRINF GET SCREEN INFO. , & P ST A4,CUR
0x3142cc…314460 Dummy {f00=0x00f7, f01=0x0190, f02=» P RF KBCS90 - PKBCS80 EQU * - , P LDKL A1,NEWMOD INDICATE MODE ACTIVATION - * P ORS A1,SNAMOD,A11 - Z PKBCS90 EQU * - t P RTN A14 - P EJECT - F P****************************************************************** - F P*
0x314460…3145f4 (4, 27) Dummy {f00=0x00f7, f01=0x0190, f02=» * - F P****************************************************************** . > P* REGISTERS . P* . P* A2= KEY-CHAR . P* A3= KEY-TABLE INDEX . P* A4= RESERVED . P* A5= RESRVED . P*
0x3145f4…314788 Dummy {f00=0x00f7, f01=0x0190, f02=»********************************************** . PKBCPJO EQU * / 6 $ P LDK A7,0 INDICATE KEY-HANDLING / J $ P CWK A2,FIPA PROGRAM ATTN. KEY? / r P RF(L) KBCJ90 NO / P IFT OFLIN=1 / P RF(E) KBCJ80 / P XIF / P IFT SNA=1 / P CM MODE,A11 /
0x314788…31491c Dummy {f00=0x00f7, f01=0x0190, f02=» P CF A14,ERROR INDICATE ERROR 0 P LDK A7,1 NO KEY-HANDLING 0 ( P XIF 0 J P IFT SNA=1 0 V PKBCJ90 EQU * 0 h P RTN A14 0 | P XIF 0 P EJECT 0 D P*************************************************************** 0 D P*
0x31491c…314ab0 Dummy {f00=0x00f7, f01=0x0190, f02=» * 0 ~ D P*************************************************************** 1 6 P* REGISTERS 1 ~ P* 1 P* A8= KB-ECB 1 P* A11= CREDIT WORK AREA 1 P* A13= RESERVED 1 P* 1 : P**************
0x314ab0…314c44 Dummy {f00=0x00f7, f01=0x0190, f02=»8 1 P LDK A7,1 2 P ST A7,ECBRL,A8 2 2 P* NO POWER OF INDICATOR ,...DK 81-10-17 * 2 6 P LDK A7,2 STANDARD READ 2 l P LKM 2 P DATA 1 2 P RTN A14 2 0 P** READ FROM SECOND KEYBOARD, P & T, DK ** 2 PREADK2 EQU * 2 P LD A8
0x314c44…314dd8 Dummy {f00=0x00f7, f01=0x018e, f02=»STANDARD READ 2 P LKM 3 P DATA 1 3 $ P RTN A14 3 4 P**END DK MODIFICATION ** 3 F P EJECT 3 h D P*************************************************************** 3 v D P* * 3 D P*
0x314dd8…314f6c Dummy {f00=0x00f7, f01=0x0190, f02=» 3 N D P*************************************************************** 4 P* REGISTERS 4 P P* 4 p P* A11= CREDIT WORK AREA 4 z P* A13= RESERVED 4 P* 4 : P****************************************************** 4 PRESKB EQU * 4
0x314f6c…315100 Dummy {f00=0x00f7, f01=0x0190, f02=»************* 4 b @ P* * 5 " P* ICVRED KB/VDU INTERTASK READ 5 Z @ P* * 5 @ P*********************************************************** 5 P
0x315100…315294 (4, 28) Dummy {f00=0x00f8, f01=0x0190, f02=»*************************************************** 5 PICVRED EQU * 6 < P LD A8,ECBICR,A11 6 P P CF A14,ICSET SET NO TIMEOUT 6 j P IFF COPCMD=1 6 P LD A1,PRTID,A11 6 P XIF 6 P IFT COPCMD=1 6 P LDK A1,0 UNADDRESSED 6 P XIF 6 P
0x315294…315428 Dummy {f00=0x00f8, f01=0x0190, f02=»************************************************************** 6 D P* * 7 F D P* ICINP INTERTASK INPUT * 7 D P*
0x315428…3155bc Dummy {f00=0x00f8, f01=0x0190, f02=»* A11= CREDIT WORK AREA 7 P* A13= RESERVED 8 P* 8 8 D P**************************************************************** 8 B PICINP EQU * 8 P LD* A2,ECBBA,A8 8 P IFT COPCMD=1 8 P LDR A1,A2 COPY COMMAND? 8 P RF(NN) ICIN80 NO 8 P L
0x3155bc…315750 Dummy {f00=0x00f8, f01=0x0190, f02=»IBUTE? 8 ~ P RF(L) ICIN20 NO 9 P ANK A2,/20 PROTECTED? 9 & " P RF(NZ) ICIN90 YES DON'T COPY 9 D PICIN20 EQU * 9 j P XIF 9 ~ P IFT COPCMD=1 9 P LD A2,ECBCW,A8 GET TO WHOM 9 P LD A8,ECBICW,A11 9 P CF A14,ICSET SET TIMEOUT 9 P LDR A1,
0x315750…3158e4 Dummy {f00=0x00f8, f01=0x0190, f02=»,A11 9 P RF ICIN90 : PICIN80 EQU * : P XIF : 2 . P LDKL A1,HCPMOD RESET HARDCOPY OUTSTANDING : > P IFT SNA=1 : p P XRS A1,SNAMOD,A11 : P XIF : P IFF SNA=1 : P XRS A1,BSCMOD,A11 : P XIF : P ANK A2,1 PRINTER OK? : P RF(Z) ICI
0x3158e4…315a78 Dummy {f00=0x00f8, f01=0x018e, f02=» * : @ P* ICSET SET INTERTASK TIMEOUT * ; @ > P* * ; @ P*********************************************************** ;
0x315a78…315c0c Dummy {f00=0x00f8, f01=0x0190, f02=» ; ~ P* < > P********************************************************** < PICSET EQU * < T P LDKL A1,-1 NO TIMEOUT < h P ST A1,ECBCW,A8 < P LDK A7,/B9 SET TIMEOUT < P LKM < P DATA 1 < P RTN A14 < P EJECT < B P****************
0x315c0c…315da0 Dummy {f00=0x00f8, f01=0x018e, f02=»AD INTERTASK READ * < B P* * = : B P************************************************************** = P* REGISTERS = P* = P* A1= TASK ID = P
0x315da0…315f34 (4, 29) Dummy {f00=0x00f8, f01=0x0190, f02=» B P************************************************************* > PICREAD EQU * > J P ST A1,ECBCW,A8 TASK ID > ^ P ST A2,ECBRL,A8 LENGTH > ~ " P ST A3,ECBBA,A8 BUFFER ADDRESS > P LDK A7,/02 READ > P LKM > P DATA 1 > P RTN A14 > P E
0x315f34…3160c8 Dummy {f00=0x00f8, f01=0x0190, f02=» * > D P* ICWRT INTERTASK WRITE * ? D P* * ? D P*************************************************************** ? P* REGISTERS ?
0x3160c8…31625c Dummy {f00=0x00f8, f01=0x0190, f02=» ? P* A13= RESERVED @ P* @ D P**************************************************************** @ * PICWRT EQU * @ r P ST A1,ECBCW,A8 TASK ID @ P ST A2,ECBRL,A8 LENGTH @ " P ST A3,ECBBA,A8 BUFFER ADDRESS @ P LDK A7,/86 WRITE @ P LKM
0x31625c…3163f0 Dummy {f00=0x00f8, f01=0x018e, f02=» * @ H P* ERROR ILLEGAL KEY-HANDLING * A F H P* * A H P******************************************
0x3163f0…316584 Dummy {f00=0x00f8, f01=0x0190, f02=» < P******************************************************* B PERROR EQU * B D ( P CF A14,LMP4ON TURN ON 'ERROR' LAMP B X P LDK A1,4 RESET ALLOWED B P ORS A1,KBINH,A11 B & P CF A14,SOUND TURN ON SOUND ALARM B P RTN A14 B P B P EJECT B
0x316584…316718 Dummy {f00=0x00f8, f01=0x0190, f02=»* B T B P* LAMPROUTINES * C B P* * C P B P************************************************************* C PLMP1ON LDK A1,LAMP1 C P RF LMPON C
0x316718…3168ac Dummy {f00=0x00f8, f01=0x0190, f02=» PLMP3ON LDK A1,LAMP3 D P RF LMPON D PLMP3OF LDK A1,LAMP3 D 2 P RF LMPOF D N PLMP4ON LDK A1,LAMP4 D ` P RF LMPON D | PLMP4OF LDK A1,LAMP4 D P RF LMPOF D PLMP5ON LDK A1,LAMP5 D P RF LMPON D PLMP5OF LDK A1,LAMP5 D P R
0x3168ac…316a40 Dummy {f00=0x00f8, f01=0x0190, f02=» RF LMPOF D P* E PLMPON LDK A7,LON E P RF SDISP E 4 PLMPOF LDK A7,LOF E F P RF SDISP E ^ PLMPFL LDK A7,LFL E p P RF SDISP E P EJECT E B P************************************************************* E B P*
0x316a40…316bd4 (4, 30) Dummy {f00=0x00f8, f01=0x0190, f02=» * E z B P************************************************************* F 0 P* REGISTERS F v P* F P* A8= SIGNAL ECB F P* A11= CREDIT WORK AREA F P* A13= RESERVED F P* F < P******************
0x316bd4…316d68 Dummy {f00=0x00f8, f01=0x0190, f02=»S, DK, P & T ** F z $ P LD A8,ECBSD,A11 GET DISP. ECB G " P LDK A1,/41 CHANGE FILE CODE G @ P SC A1,1,A8 G f P LKM G z $ P DATA 1 LAMPS ON SECOND KEYB'RD G PSDISP1 EQU * G P LD A8,ECBSD,A11 G * P LDK A1,/40 RESTORE FILE CODE 1ST KB G
0x316d68…316efc Dummy {f00=0x00f8, f01=0x0190, f02=»****************************************** G z D P* * H 2 D P* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * H z D P* * H D
0x316efc…317090 Dummy {f00=0x00f8, f01=0x0190, f02=»CHAR ! H P DATA CHAR " I P DATA CHAR I " P DATA CHAR $ I 4 P DATA CHAR I H P DATA CHAR & I P DATA CHAR ' I p P DATA CHAR ( I P DATA CHAR ) I P DATA CHAR * I P DATA NUM + I P DATA NUM , I P DATA NUM - I P DATA NUM .
0x317090…317224 Dummy {f00=0x00f8, f01=0x0190, f02=» P DATA NUM 5 J P DATA NUM 6 J P DATA NUM 7 J , P DATA NUM 8 J @ P DATA NUM 9 J T P DATA CHAR : J h P DATA CHAR ; J | P DATA CHAR < J P DATA CHAR = J P DATA CHAR > J P DATA CHAR ? J P*40 J P DATA CHAR J P DATA CHAR
0x317224…3173b8 Dummy {f00=0x00f8, f01=0x0190, f02=»CHAR H J P DATA CHAR I K P DATA CHAR J K " P DATA CHAR K K 6 P DATA CHAR L K J P DATA CHAR M K ^ P DATA CHAR N K r P DATA CHAR O K P*50 K P DATA CHAR P K P DATA CHAR Q K P DATA CHAR R K P DATA CHAR S K P DATA CHAR T K
0x3173b8…31754c Dummy {f00=0x00f8, f01=0x0190, f02=» P DATA CHAR L P DATA CHAR L P DATA CHAR ^ L ( P DATA CHAR UNDERLINE L < P*60 L X P DATA CHAR L d P DATA CHAR a LOWER CASE A-Z L v P DATA CHAR b L P DATA CHAR c L P DATA CHAR d L P DATA CHAR e L P DATA CHAR f L P DATA CHAR
0x31754c…3176e0 Dummy {f00=0x00f8, f01=0x0190, f02=»CHAR n L P DATA CHAR o M P*70 M " P DATA CHAR p M . P DATA CHAR q M B P DATA CHAR r M V P DATA CHAR s M j P DATA CHAR t M ~ P DATA CHAR u M P DATA CHAR v M P DATA CHAR w M P DATA CHAR x M P DATA CHAR y M P DATA CHAR z M
0x3176e0…317874 (4, 31) Dummy {f00=0x00f8, f01=0x0190, f02=»OV M P DATA CURMOV N P DATA CURMOV N P DATA BAKTAB N 2 P DATA TAB N F P DATA CRNL N X P DATA RDHOME N j P DATA EREOF N ~ P DATA ERINPT N P IFT IN:DL=1 N P DATA INSERT N P DATA DELETE N P XIF N P IFF IN:DL=1 N P DATA
0x317874…317a08 Dummy {f00=0x00f8, f01=0x0190, f02=» DATA ZERO:3 N P DATA NUMCOM O P DATA COPY O ( P DATA IDENT O : P IFT KEYLST=1 O N P DATA KEYL O d P DATA KEYL O v P DATA KEYL O P DATA KEYL O P DATA KEYL O P DATA KEYL O P DATA KEYL O P DATA KEYL O P XIF O P IFF KEY
0x317a08…317b9c Dummy {f00=0x00f8, f01=0x0190, f02=»ATA RETURN O P DATA RETURN P P XIF P & 8 P DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) P 2 8 P DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) P n 8 P DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) P P*FIRST P. A. KEY P P IFT OFLIN
0x317b9c…317d30 Dummy {f00=0x00f8, f01=0x0190, f02=» P P DATA SYSREQ Q P DATA CLEAR Q P DATA ATTN Q 0 P XIF Q B P IFF SNA=1 Q N P DATA RETURN Q ` P DATA CLEAR Q t P DATA RETURN Q P XIF Q P IFT NBRLIN=2 Q P DATA MFCHGE Q P XIF Q P IFF NBRLIN=2 Q P DATA RETURN Q P
0x317d30…317ec4 Dummy {f00=0x00f8, f01=0x018e, f02=»2 Q P DATA PA3 R $ P DATA PAALFA PA4-PA10 (ALFASKOP) R P DATA PAALFA R D P DATA PAALFA R X P DATA PAALFA R l P DATA PAALFA R P DATA PAALFA R P DATA PAALFA R P*B0 R P IFT PFX=1 R P DATA PFEX R P XIF R P IFF PFX=1 R
0x317ec4…318058 Dummy {f00=0x00f8, f01=0x0190, f02=» R P DATA PF 7 S P DATA PF 8 S P DATA PF 9 S , P DATA PF 10 S > P DATA PF 11 S R P DATA PF 12 S f P DATA PF 13 S z P DATA PF 14 S P DATA PF 15 S P*C0 S P DATA PF 16 S P DATA PF 17 S P DATA PF 18 S P DATA PF 1
0x318058…3181ec Dummy {f00=0x00f8, f01=0x0190, f02=»RETURN S P XIF T P IFT TEST=1 T P DATA TESTM T . P XIF T B P EJECT T N B P************************************************************** T D P* * T B P* CHAR ALPHABETIC
0x3181ec…318380 Dummy {f00=0x00f8, f01=0x0190, f02=»************************************ T v P* REGISTERS U , P* U @ P* A2= KEY-CHAR U J P* A3= ATTRIBUTE MASKL U ` P* A4= RESERVED U ~ P* A5= RESERVED U P* A6= RESERVED U P* A11= RESERVED U P* A13= RESERVED U P* U B P**************
0x318380…318514 (4, 32) Dummy {f00=0x00f9, f01=0x018e, f02=»RE OF CHAR. U z P RTN A14 V P EJECT V $ B P************************************************************** V 2 B P* * V x B P* NUM NUMERIC UPDAT. DISPL. * V B P*
0x318514…3186a8 Dummy {f00=0x00f9, f01=0x0190, f02=» B P************************************************************** W P* REGISTERS W J P* W ^ P* A2= KEY-CHAR W h P* A3= ATTRIBUTE MASK W ~ P* A4= RESERVED W P* A5= RESERVED W P* A6= RESERVED W P* A11= RESERVED W P* A13= RESERVED W
0x3186a8…31883c Dummy {f00=0x00f9, f01=0x0190, f02=»NUM EQU * W $ P LDK A3,/20 LOAD ATTRIBUTE MASK X & P CF A14,ANCOMM TAKE CARE OF CHAR. X : P RTN A14 X d P EJECT X t D P*************************************************************** X D P*
0x31883c…3189d0 Dummy {f00=0x00f9, f01=0x0190, f02=» * X Z D P*************************************************************** Y P* REGISTERS Y Z P* Y n P* A2= KEY-CHAR Y x " P* A3= AT ENTRY ATTRIBUTE MASK Y P* A4= REL. CURSOR POS. Y P* A5= REL. ATTRIBUTE POS. Y P* A6= ATTRIBUTE CHAR
0x3189d0…318b64 Dummy {f00=0x00f9, f01=0x0190, f02=»*** Y T PANCOMM EQU * Z * P CF A14,SCRINF GET SCREEN INFORMATION Z " P CWR A4,A5 CURSOR ON ATTRIBUTE Z N P RF(E) ANC800 YES Z t P LDR A1,A6 Z P ANR A1,A3 ALLOWED POS. ? Z P RF(NZ) ANC800 NO Z P IFT IN:DL=1 Z P LD A1,MODE,A11 INSERT M
0x318b64…318cf8 Dummy {f00=0x00f9, f01=0x0190, f02=» ANK A1,2 INSERT NOT ALLOWED? Z P RF(NZ) ANC800 YES [ & P XIF [ @ PANC100 EQU * [ L P LDR A1,A4 [ ` P LDR A7,A2 [ r 0 P CF A14,STOVDU STORE KEY-CHAR IN VDU BUFFER [ * P CF A14,WCHAR DISPLAY CHAR AND CURSOR [ 8 P CF A14,POSUNP MOVE CURSOR TO NEXT
0x318cf8…318e8c Dummy {f00=0x00f9, f01=0x018e, f02=» EJECT [ @ P************************************************************ @ P* * R @ P* CURMOV MOVE CURSOR ON SCREEN * @ P*
0x318e8c…319020 Dummy {f00=0x00f9, f01=0x0190, f02=» P* A4= REL. CURSOR POS. ] P* A5= REL. ATTRIBUTE POS. ] & P* A6= ATTRIBUTE CHAR ] H P* A11= RESERVED ] d P* A13= RESERVED ] | P* ] @ P************************************************************ ] PCURMOV EQU * ] $ P CF A14,SCRINF GET
0x319020…3191b4 (4, 33) Dummy {f00=0x00f9, f01=0x0190, f02=»E SCREEN INFORMATION ] ~ & P CWK A5,LBVDU+1 UNFORMATTED SCREEN ^ P RF(E) CURM10 YES ^ F P LDR A1,A4 ^ ` $ P CF A14,ATMASB UPDATE ATTRIBUTE ^ r PCURM10 EQU * ^ P LDK A1,2 REQ. LENGTH ^ P CF A14,DISCHA SET CURSOR ^ P RTN A14 ^ P EJECT ^
0x3191b4…319348 Dummy {f00=0x00f9, f01=0x018e, f02=»T ^ p " P DATA CRDOWN MOVE CURSOR DOWN _ P DATA CURUP MOVE CURSOR UP _ 0 & P* CRLEFT MOVE CURSOR TO LEFT _ R PCRLEFT EQU * _ | P SUK A4,1 _ $ P RF(NN) CRRET NOT LEFTMOST POS. _ ( P LDKL A4,LBVDU-1 LAST POS. ON SCREEN _ P RF CRRET _ ( P
0x319348…3194dc Dummy {f00=0x00f9, f01=0x018e, f02=» _ ~ P LDK A4,0 ` P RF CRRET ` $ P* CRDOWN MOVE CURSOR DOWN ` , PCRDOWN EQU * ` T P ADKL A4,LLINE ` h P CWK A4,LBVDU LAST LINE? ` ~ P RF(L) CRRET NO ` P SUKL A4,LBVDU ` P RF CRRET ` P* CURUP MOVE CURSOR UP ` PCURUP
0x3194dc…319670 Dummy {f00=0x00f9, f01=0x0190, f02=» ` B P************************************************************** a B P* * a N B P* BAKTAB TAB. UNPROTECTED BACKWARDS * a B P*
0x319670…319804 Dummy {f00=0x00f9, f01=0x018e, f02=»URSOR POS. a P* A5= REL. ATTRIBUTE POS. b P* A6= ATTRIBUTE CHAR. b 4 $ P* A9= REL. ATTRIBUTE START POS. b R P* A11= RESERVED b z P* A13= RESERVED b P* b D P*************************************************************** b PBAKTAB EQU *
0x319804…319998 Dummy {f00=0x00f9, f01=0x0190, f02=» b | & P CWR A4,A5 STANDING ON ATTRIBUTE? c P RF(E) BAK300 YES c 2 P SUK A4,1 c L , P RF(NN) BAK100 NOT FIRST POS. ON SCREEN c ^ ( P LDKL A4,LBVDU-1 LAST POS. ON SCREEN c PBAK100 EQU * c 0 P CWR A4,A5 STANDING ON POS. AFTER ATTRIBUTE? c P RF(E)
0x319998…319b2c Dummy {f00=0x00f9, f01=0x0190, f02=» SUK A4,1 c P RF(NN) BAK400 d P LDKL A4,LBVDU-1 d ( PBAK400 EQU * d @ P LDR A1,A4 d T : P CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS AND MASK IT d f P LDR A7,A6 d P ANK A7,/20 PROTECTED FIELD? d P RF(Z) BAK500 NO d P LDR A4,A5 d & P CWR
0x319b2c…319cc0 Dummy {f00=0x00f9, f01=0x0190, f02=»ION d l P RF BAK600 e PBAK500 EQU * e P LDR A4,A5 e 2 P ADK A4,1 e D P CWK A4,LBVDU-1 WRAP AROUND? e V P RF(NG) BAK700 NO e z PBAK600 EQU * e P LDK A4,0 FIRST SCREEN POS. e PBAK700 EQU * e * P CF A14,STOINF SAVE SCREEN INFORMATION e
0x319cc0…319e54 (4, 34) Dummy {f00=0x00f9, f01=0x0190, f02=»************************* e l B P* * f " B P* TAB TAB. UNPROTECTED FORWARD * f h B P* * f B P********************
0x319e54…319fe8 Dummy {f00=0x00f9, f01=0x0190, f02=» f v P* A6= ATTRIBUTE CHAR. g $ P* A9= REL. ATTRIBUTE START POS. g & P* A11= RESERVED g N P* A13= RESERVED g f P* g ~ B P************************************************************** g PTAB EQU * g * P CF A14,SCRINF GET SCREEN INFORMATION g
0x319fe8…31a17c Dummy {f00=0x00f9, f01=0x0190, f02=»A14,ATMASF SEARCH ATTRIBUTE FORWARD g P LDR A4,A5 NEW CURSOR POS. h , P LDR A7,A6 h N P ANK A7,/20 PROTECTED FIELD? h ` P RF(Z) TAB150 NO h & P CWR A5,A9 WHOLE SCREEN SEARCHED? h P RB(NE) TAB100 NO h " P LDK A1,0 FIRST POS. ON SCREEN h , P C
0x31a17c…31a310 Dummy {f00=0x00f9, f01=0x018e, f02=» h n P RF(NG) TAB300 NO i PTAB200 EQU * i " P LDK A4,0 FIRST SCREEN POS. i 6 PTAB300 EQU * i Z * P CF A14,STOINF SAVE SCREEN INFORMATION i n P LDK A1,2 REQ. LENGTH i P CF A14,DISCHA SET CURSOR i P RTN A14 i P EJECT i H P**************
0x31a310…31a4a4 Dummy {f00=0x00f9, f01=0x0190, f02=» H P* CRNL TAB. UNPROTECTED TO NEXT LINE * j H P* * j P H P******************************************************************* j P* REGISTERS j P* j P*
0x31a4a4…31a638 Dummy {f00=0x00f9, f01=0x0190, f02=» P* k F P***************************************************************** k PCRNL EQU * k X * P CF A14,SCRINF GET SCREEN INFORMATION k j $ P CF A14,CRDOWN MOVE CURSOR DOWN k $ P LDK A1,0 COMPUTE LEFTMOST POS. k PCRN100 EQU * k P SUK A4,LLIN
0x31a638…31a7cc Dummy {f00=0x00f9, f01=0x0190, f02=»D SCREEN? k v P RF(E) CRN800 YES l * P CF A14,GETVDU GET CHAR. IN VDU BUFFER l , P CCK A7,/80 ATTRIBUTE? l Z P RF(NL) CRN400 YES l x P LDR A1,A4 l , P CF A14,ATMASB SEARCH ATTRIBUTE BACKWARD l P LDR A7,A6 l P ANK A7,/20 PROTECTED? l P RF(
0x31a7cc…31a960 Dummy {f00=0x00f9, f01=0x018e, f02=»SCREEN POS. l z PCRN500 EQU * m * P CF A14,STOINF SAVE SCREEN INFORMATION m ( ( P CF A14,TAB TAB. UNPROTECTED FORWARD m V P RF CRN900 m PCRN800 EQU * m * P CF A14,STOINF SAVE SCREEN INFORMATION m P LDK A1,2 REQ. LENGTH m P CF A14,DISCHA SET C
0x31a960…31aaf4 (4, 35) Dummy {f00=0x00f9, f01=0x0190, f02=» m H J P* * n J P* RDHOME TAB. UNPROTECTED FIRST ON SCREEN * n V J P* * n J P**********************
0x31aaf4…31ac88 Dummy {f00=0x00f9, f01=0x0190, f02=» POS. n | P* A6= ATTRIBUTE CHAR. o P* A11= RESERVED o , P* A13= RESERVED o D P* o J P********************************************************************* o f PRDHOME EQU * o * P CF A14,SCRINF GET SCREEN INFORMATION o " P LDK A4,0 FIRST PO
0x31ac88…31ae1c Dummy {f00=0x00f9, f01=0x0190, f02=»4,GETVDU GET CHAR. IN VDU BUFFER o P CCK A7,/8000 ATTRIBUTE? p ( P RF(L) RDH100 NO p H & P LDKL A4,LBVDU-1 LAST SCREEN POS. p ` * P CF A14,STOINF SAVE SCREEN INFORMATION p P RF RDH300 p PRDH100 EQU * p P LDR A1,A4 p * P CF A14,ATMASB GET ATTRI
0x31ae1c…31afb0 Dummy {f00=0x00f9, f01=0x0190, f02=»TECTED FORWARD p z P RF RDH900 q PRDH800 EQU * q ( * P CF A14,STOINF SAVE SCREEN INFORMATION q < P LDK A1,2 REQ. LENGTH q j P CF A14,DISCHA SET CURSOR q PRDH900 EQU * q P RTN A14 q P EJECT q B P********************************************
0x31afb0…31b144 Dummy {f00=0x00f9, f01=0x0190, f02=»LD * q h @ P* * r B P************************************************************* r b P* REGISTERS r P* r P* A4= REL. CURSOR POS. r P* A5= REL. ATTRIBUTE POS. r P*
0x31b144…31b2d8 Dummy {f00=0x00f9, f01=0x0190, f02=»***************** r ^ PEREOF EQU * s * P CF A14,SCRINF GET SCREEN INFORMATION s . ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? s P RF(E) ERE700 YES s P LDR A7,A6 s P ANK A7,/20 PROTECTED FIELD? s P RF(NZ) ERE600 YES s & P CWR A5,A4 STANDING ON
0x31b2d8…31b46c Dummy {f00=0x00f9, f01=0x0190, f02=»EARCH ATTRIBUTE FORWARD s P LDR A3,A5 t P LDR A6,A8 t 2 P LDR A5,A9 t D & P ORK A6,1 SET MDT-BIT IN ATTRIBUTE t V P LDR A7,A6 t P LDR A1,A5 t 4 P CF A14,STOVDU STORE NEW ATTRIBUTE IN VDU BUFFER t . P CF A14,STOINF SAVE NEW SCREEN INFORMATION t
0x31b46c…31b600 Dummy {f00=0x00f9, f01=0x0190, f02=» EQU * t P LDR A10,A4 u & P CF A14,ERASE ERASE ENTIRE SCREEN u " P LDR A4,A10 u L P CF A14,STOINF u ` P LDK A1,2 u v P CF A14,DISCHA SET CURSOR u P RF ERE900 u PERE800 EQU * u P SUR A10,A10 u 0 P CF A14,ERASUA ERASE UNPROTECTED TO
0x31b600…31b794 (4, 36) Dummy {f00=0x00fa, f01=0x0190, f02=»******************************************* u x H P* * v 4 H P* ERINPT ERASE UNPROTECTED ENTIRE SCREEN * v H P*
0x31b794…31b928 Dummy {f00=0x00fa, f01=0x0190, f02=»SOR POS. v P* A5= REL. ATTRIBUTE POS. w P* A6= ATTRIBUTE CHAR. w 2 P* A11= RESERVED w P P* A13= RESERVED w h P* w H P******************************************************************* w PERINPT EQU * w * P CF A14,SCRINF GET SCREEN INFO
0x31b928…31babc Dummy {f00=0x00fa, f01=0x0190, f02=»00 w PERI100 EQU * x ( P CF A14,ERASUP ERASE ALL UNPROTECTED x ( P CF A14,DISMOD DISPLAY ERASED FIELDS x J 4 P CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN x v PERI900 EQU * x P RTN A14 x P EJECT x P IFT IN:DL=1 x < P********************
0x31babc…31bc50 Dummy {f00=0x00fa, f01=0x018e, f02=» KEY HANDLING * x t < P* * y $ < P******************************************************** y d P* REGISTERS y P* y P* A11= CREDIT WORK AREA y P* A13= RESERVED y P* y 8 P****
0x31bc50…31bde4 Dummy {f00=0x00fa, f01=0x0190, f02=» y : P****************************************************** z : P* * z F : P* DELETE DELETE CHAR. HANDLING * z : P* * z < P********
0x31bde4…31bf78 Dummy {f00=0x00fa, f01=0x0190, f02=» POS. z | P* A6= ATTRIBUTE CHAR. { P* A11= CREDIT WORK AREA { , P* A13= RESERVED { L P* { d < P******************************************************* { n PDELETE EQU * { * P CF A14,SCRINF GET SCREEN INFORMATION { P LDKL A3,-1 { PDEL0
0x31bf78…31c10c Dummy {f00=0x00fa, f01=0x0190, f02=»SCREEN? { t P RF(E) DEL200 YES | & P CWR A4,A5 STANDING ON ATTRIBUTE? | * P RF(E) DEL700 YES | T P LDR A7,A6 | n P ANK A7,/20 PROTECTED? | P RF(NZ) DEL700 YES | P ORK A6,1 SET MDT-BIT | P LDR A7,A6 | P LDR A1,A5 | & P CF A14,STOVDU
0x31c10c…31c2a0 Dummy {f00=0x00fa, f01=0x0190, f02=» A1,A5 | P LDR A6,A8 } P LDR A5,A9 } * P CF A14,STOINF SAVE SCREEN INFORMATION } 2 , P CWR A3,A1 ATTRIBUTE BEFOR END OF LINE? } ` P RF(NG) DEL200 NO } P LDR A3,A1 } PDEL200 EQU * } P LDR A1,A4 } PDEL300 EQU * } P ADK A1,1 } , P
0x31c2a0…31c434 (4, 37) Dummy {f00=0x00fa, f01=0x0190, f02=» A1,A3 ALL SHIFTED? } P RB(NE) DEL300 NO ~ P LDK A7,NULL GET NULL CHAR. ~ 6 0 P CF A14,STOVDU STORE NULL CHAR IN VDU BUFFER ~ Z P CF A14,SAVE1 ~ P LDK A5,LLINE ~ P LDR A6,A11 ~ P SUR A10,A10 ~ P CF A14,LINE GET LINE FLAG ~ P LC
0x31c434…31c5c8 Dummy {f00=0x00fa, f01=0x0190, f02=»00 ~ PDEL700 EQU * P CF A14,ERROR INDICATE ERROR PDEL900 EQU * B P RTN A14 V P XIF f P EJECT r < P******************************************************** < P* * < P*
0x31c5c8…31c75c Dummy {f00=0x00fa, f01=0x0190, f02=»**************************************** P* REGISTERS 0 P* D P* A11= CREDIT WORK AREA N P* A13= RESERVED n P* 8 P**************************************************** PRESET EQU * " P CM MODE,A11 RESET INSERT MODE * P C
0x31c75c…31c8f0 Dummy {f00=0x00fa, f01=0x0190, f02=»LMP3OF TURN OFF 'KEYBOARD INHIBIT' LAMP P RTN A14 0 P EJECT @ @ P*********************************************************** N @ P* * @ P* DUP DUPLICATE KEY
0x31c8f0…31ca84 Dummy {f00=0x00fa, f01=0x0190, f02=»********* ^ P* REGISTERS P* & P* A2= KEY-CHAR 0 P* A11= RESERVED F P* A13= RESERVED ^ P* v @ P************************************************************ PDUP EQU * P LDK A2,DUPCH GET DUP CHAR. P CF A14,NUM
0x31ca84…31cc18 Dummy {f00=0x00fa, f01=0x0190, f02=» * @ P* FLDMRK FIELD MARK KEY * 8 @ P* * | @ P*********************************************************** P* R
0x31cc18…31cdac Dummy {f00=0x00fa, f01=0x018e, f02=»***************************** r PFLDMRK EQU * & & P LDK A2,FMCH GET FIELD MARK CHAR. : P CF A14,NUM d P RTN A14 x P EJECT D P*************************************************************** P* & P* Z E R O : 3 TRIPLE ZERO K
0x31cdac…31cf40 Dummy {f00=0x00fa, f01=0x018e, f02=» P* P* A2= KEY-CHAR P* A11= RESERVED ( P* A13= RESERVED @ P* X > P********************************************************* b P PZERO:3 EQU * P LDK A2,/30 ZERO CHAR. " P CF A14,NUM DISPLAY CHARACTER PZERO
0x31cf40…31d0d4 (4, 38) Dummy {f00=0x00fa, f01=0x018e, f02=» p P RTN A14 RETURN P EJECT P IFT OFLIN=1 . < P******************************************************** B < P* * < P* OFLINE OFFLINE KEY HANDLING * < P*
0x31d0d4…31d268 Dummy {f00=0x00fa, f01=0x0190, f02=» P* P* A11= CREDIT WORK AREA P* A13= RESERVED 2 P* J < P******************************************************* T POFLINE EQU * P CF A14,CLEAR P CF A14,RESET * P CF A14,DCOFLN INDICATE OFFLINE TO DC ( P CF A1
0x31d268…31d3fc Dummy {f00=0x00fa, f01=0x0190, f02=»AD REGISTERS A12-A13 ~ P LD A12,4,A14 $ P ADKL A14,4 UPDATE STACK POINTER 2 * P ABL I:RT1 RETURN TO "OFFLINE" PROGRAM Z P XIF P EJECT > P********************************************************* > P*
0x31d3fc…31d590 Dummy {f00=0x00fa, f01=0x0190, f02=» * h > P********************************************************* P* REGISTERS P* p P* A11= CREDIT WORK AREA z P* A13= RESERVED P* < P******************************************************* P IFT NBRLIN=
0x31d590…31d724 Dummy {f00=0x00fa, f01=0x0190, f02=» P LD A1,MAIN,A11 P XRK A1,1 P RF(NZ) MFCH10 . P CF A14,LMP1ON D P RF MFCH90 Z PMFCH10 EQU * l P CF A14,LMP2ON PMFCH90 EQU * P ST A1,MAIN,A11 $ P CF A14,CHKSTA CHECK LINE STATUS P RTN A14 P XIF P E
0x31d724…31d8b8 Dummy {f00=0x00fa, f01=0x0190, f02=» * X @ P* COPY LOCAL HARDCOPY * @ P* * P @ P*********************************************************** P* REGISTERS P* P* A11= C
0x31d8b8…31da4c Dummy {f00=0x00fa, f01=0x0190, f02=»QU * P LD A1,SNAMOD,A11 2 P ANKL A1,HCPMOD HARDCOPY ALREADY OUTSTANDING? & $ P RF(NZ) COPY80 YES,WAIT A WHILE P LD A1,PRTID,A11 & P RF(Z) COPY80 PRINTER NOT ASSIGNED 2 P ANK A1,/FF CHECK IF PRINTER OK IN TASK TABLE P SUK A1,/30
0x31da4c…31dbe0 Dummy {f00=0x00fa, f01=0x0190, f02=»D p P LC A1,+3,A3 P ANK A1,/FF PRINTER OK? P RF(Z) COPY10 YES > P RF COPY90 X PCOPY10 EQU * j ( P LDK A1,/38 INDICATE HARDCOPY IN WCC ~ P ST A1,WCC,A11 P LDKL A3,BVDU BUFFER P ADR A3,A11 ADDRESSS P LD A8,ECBICW,
0x31dbe0…31dd74 (4, 39) Dummy {f00=0x00fa, f01=0x0190, f02=»4,ICWRT WRITE INTERTASK P IFT SNA=1 2 P LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING 2 P ORS A1,SNAMOD,A11 h P XIF P IFF SNA=1 2 P LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING P ORS A1,BSCMOD,A11 P XIF P RF COPY90
0x31dd74…31df08 Dummy {f00=0x00fa, f01=0x0190, f02=»************************* j D P* * " 0 P* IDENT PRINTER IDENT. HANDLING j D P* * D P**********************************
0x31df08…31e09c Dummy {f00=0x00fa, f01=0x0190, f02=»REA | P* A13= T:A ADDRESS P* & B P************************************************************* 0 PIDENT EQU * v ( P LD A1,PRTID,A11 GET CURRENT TASKID $ P LD A4,+6,A13 COMMON BLOCK BASE P ANK A1,X'FF' GET OFFSET P SUK A1,/3
0x31e09c…31e230 Dummy {f00=0x00fa, f01=0x0190, f02=»LL A5,8 P LC A5,+1,A3 P LC A4,+3,A3 GET STATUS $ P CF A14,SAVE1 SAVE REGISTERS D P CF A14,DISID DISPLAY TASKID h " P LDKL A1,IDEN40 NEXT KEY ENTRY P ST A1,RDMORE,A11 P RF IDEN90 NEXT KEY PIDEN40 EQU * P CM RDMORE,A
0x31e230…31e3c4 Dummy {f00=0x00fa, f01=0x018e, f02=» CWK A9,IDKEY GET NEXT TASKID? ( P RF(NE) IDEN90 NO KEEP THE FIRST ONE & PIDEN50 EQU * R & P ADK A3,4 SEARCH FOR NEXT PRINTER f P LCR A2,A3 P ANK A2,/FF P LDR A1,A2 P RB(Z) IDEN50 P SLL A1,8 P RF(N) IDEN60 P C
0x31e3c4…31e558 Dummy {f00=0x00fa, f01=0x0190, f02=» P ADR A3,A2 P SUK A3,4 P RB IDEN50 ( PIDEN80 EQU * : " P LCR A1,A3 GET PRINTER TO SAVE N P SLL A1,8 t P LC A1,+1,A3 ( P ST A1,PRTID,A11 NEW HARDCOPY TASKID PIDEN90 EQU * P RTN A14 P EJECT B P****************
0x31e558…31e6ec Dummy {f00=0x00fa, f01=0x0190, f02=»L KEYLOCK STATUS * B P* * : B P************************************************************* P* REGISTERS P* P* A2= KEYLOCK VALUE P* A11= C
0x31e6ec…31e880 Dummy {f00=0x00fa, f01=0x018e, f02=»LST=1 P IFT KB6272=1 PKEYL EQU * $ * P SUK A2,LKLKEY GET NEG KEY LOCK VALUE 6 P LD A3,KEYS,A11 OLD STATUS d P LDK A4,/10 PKEYL10 EQU * P SRL A4,1 P ADK A2,2 1 = OFF,0 = ON P RB(N) KEYL10 P ANR A3,A4 CHECK O
0x31e880…31ea14 (4, 40) Dummy {f00=0x00fb, f01=0x0190, f02=» | PKEYL20 EQU * WAS ON P LDR A2,A2 $ $ P RF(Z) KEYL99 NOW ON, NO CHANGE 6 PKEYL30 EQU * CHANGE ^ P LD A3,KEYS,A11 z P XRR A3,A4 CHANGE STATUS $ P ST A3,KEYS,A11 STORE NEW STATUS P* P* KEYLOCK STATUS CHANGED J P*
0x31ea14…31eba8 Dummy {f00=0x00fb, f01=0x0190, f02=»HANGED TO OFF ELSE 0 P* * P* INSERT USER ROUTINE BELOW THIS LINE & P* T PKEYL99 EQU * ^ P RTN A14 r P XIF P EJECT > P********************************************************** P* P* TESTM TEST MODE P*
0x31eba8…31ed3c Dummy {f00=0x00fb, f01=0x0190, f02=» RESERVED P* > P********************************************************* P IFT TEST=1 ^ PTESTM EQU * r P CF A14,ERASE P CF A14,GETBUF P CF A14,RDSTAT P CF A14,DISSTA P LDR A8,A12 P CF A14,RELBUF P
0x31ed3c…31eed0 Dummy {f00=0x00fb, f01=0x0190, f02=» * t > P* ENTER ENTER KEY HANDLING * & > P* * h > P********************************************************* P* REGISTERS P*
0x31eed0…31f064 Dummy {f00=0x00fb, f01=0x0190, f02=»*** Z PENTER EQU * P LDK A2,/27 AID-CODE . P CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" < . P CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT n P RTN A14 P EJECT B P************************************************************** B P*
0x31f064…31f1f8 Dummy {f00=0x00fb, f01=0x0190, f02=»* * B P************************************************************** F P* REGISTERS P* P* A2= AID-CODE P* A11= RESERVED P* A13= RESERVED P* B P**************
0x31f1f8…31f38c Dummy {f00=0x00fb, f01=0x0190, f02=»KEYBOARD INHIBIT" x ( P CF A14,TRPA UPDATE AID AND TRANSMIT & P CF A14,ERASE ERASE ENTIRE SCREEN F P RTN A14 p P EJECT D P*************************************************************** D P*
0x31f38c…31f520 Dummy {f00=0x00fb, f01=0x0190, f02=» * f D P*************************************************************** P* REGISTERS f P* z P* A11= CREDIT WORK AREA P* A13= RESERVED P* 8 P**************************************************** P IFT S
0x31f520…31f6b4 (4, 41) Dummy {f00=0x00fb, f01=0x0190, f02=»100 YES & P LDK A1,LOCMOD INDICATE LOCAL MODE P RF SYS500 : PSYS100 EQU * L P LDR A2,A1 GET STATUS ` P ANKL A2,/C00 MY JOB MODE? ~ P RF(NZ) SYS200 NO & P CF A14,CLEAR CLEAR SCREEN AND DC ( P CF A14,RESKB RESET KEYBOARD BUFFER
0x31f6b4…31f848 Dummy {f00=0x00fb, f01=0x0190, f02=»NE) SYS300 NO & P LDK A1,SYSOP INDICATE SYSTEM MODE P RF SYS500 @ PSYS300 EQU * R $ P ANKL A2,/800 SSCP-LU AND LU-LU? f P RF(NZ) SYS400 YES & P LDK A1,SYSOP INDICATE SYSTEM MODE P RF SYS500 PSYS400 EQU * & P LDK A1,MYJOB IN
0x31f848…31f9dc Dummy {f00=0x00fb, f01=0x0190, f02=» P XIF P EJECT D P*************************************************************** D P* * f D P* ATTN ATTENTION KEY HANDLING * D P*
0x31f9dc…31fb70 Dummy {f00=0x00fb, f01=0x0190, f02=» REGISTERS P* P* A11= RESERVED P* A13= RESERVED 6 P* N > P********************************************************** X P IFT SNA=1 PATTN EQU * $ P LDK A1,/4B SIGNAL ATTENTION KEY P CF A14,SETSTA SET STATUS P
0x31fb70…31fd04 Dummy {f00=0x00fb, f01=0x0190, f02=» * x @ P* PA PROGRAM ACCESS KEY HANDLING * . B P* * r B P************************************************************** P* REGISTE
0x31fd04…31fe98 Dummy {f00=0x00fb, f01=0x0190, f02=»************************** l PPA1 EQU * " P LDK A2,/25 AID-CODE 4 P RF PA500 P PPA2 EQU * b P LDK A2,/3E AID-CODE t P RF PA500 PPA3 EQU * P LDK A2,/2C AID-CODE PPA500 EQU * , P CF A14,LMP3ON TURN ON KEYBOARD INHI
0x31fe98…32002c Dummy {f00=0x00fb, f01=0x0190, f02=»******************************************************************* H P* * L H P* PAEX PAEX KEY FOLLOWED BY NUMBER * H P*
0x32002c…3201c0 Dummy {f00=0x00fb, f01=0x0190, f02=»* P* A11= CREDIT WORK AREA P* A13= RESERVED * P* B 8 P*************************************************** L P IFT PAX=1 PPAEX EQU * P LDKL A1,PAEXA P ST A1,RDMORE,A11 P RTN A14 PPAEXA EQU * P CM RDMO
0x3201c0…320354 (4, 42) Dummy {f00=0x00fb, f01=0x0190, f02=»EGAL CHAR. P RF(NZ) PAEX10 P CF A14,PA3 PA3 KEY ( P RF PARET D PPAEX10 EQU * V P ADK A2,1 j P RF(NZ) PAEX20 | P CF A14,PA2 PA2 KEY P RF PARET PPAEX20 EQU * P CF A14,PA1 PA1 KEY P RF PARET PPAERR
0x320354…3204e8 Dummy {f00=0x00fb, f01=0x0190, f02=»****************************************** x F P* * 2 F P* PF PROGRAM FUNTION KEY HANDLING * | F P* *
0x3204e8…32067c Dummy {f00=0x00fb, f01=0x0190, f02=»A11= RESERVED P* A13= RESERVED P* . F P****************************************************************** 8 PPF EQU * & P SUK A2,PFKEY GET INDEX TO CONVERT P LC A2,CONPF,A2 GET AID , P CF A14,LMP3ON TURN ON KEYBOARD INHIBIT
0x32067c…320810 Dummy {f00=0x00fb, f01=0x0190, f02=»***************** ` F P* * F P* PFEX PFEX KEY FOLLOWED BY NUMBER * d F P* * F P****************
0x320810…3209a4 Dummy {f00=0x00fb, f01=0x0190, f02=» P* 6 P************************************************* P IFT PFX=1 L PPFEX EQU * ^ P LDKL A1,PFEXA p P RF PFNXT PPFEXA EQU * P CM RDMORE,A11 P SUK A2,/30 LEGAL CHAR ? , P RF(L) PFERR ILLEGAL,GO TO ERR.HANDLIN
0x3209a4…320b38 Dummy {f00=0x00fb, f01=0x0190, f02=»F(NZ) PFEX20 P LDKL A1,PF1A FIRST NUM 1 P RF PFNXT NEXT NUMBER 6 PPFEX20 EQU * T P SUK A2,1 h P RF(NZ) PFERR ILLEGAL NUM z P LDKL A1,PF2A FIRST NUM 2 P RF PFNXT NEXT NUMBER PPF0A EQU * P CM RDMORE,A11 P SUK
0x320b38…320ccc Dummy {f00=0x00fb, f01=0x0190, f02=» P RF PFHAND PPF1A EQU * P CM RDMORE,A11 ( P SUK A2,/30 ILLEGAL NUM? > P RF(N) PFERR YES ^ P SUK A2,/A ILLEGAL NUM? v P RF(NN) PFERR YES " P ADK A2,/A+PFKEY+/9 PF10-PF19 P RF PFHAND PPF2A EQU * P CM RDMORE,A11
0x320ccc…320e60 Dummy {f00=0x00fb, f01=0x0190, f02=»+/13 PF20-PF24 PPFHAND EQU * , P CF A14,PF PROGRAM FUNCTION KEY HANDLING * P RF PFRET Z PPFNXT EQU * l P ST A1,RDMORE,A11 P RF PFRET PPFERR EQU * P CF A14,ERROR PPFRET EQU * P RTN A14 P XIF P E
0x320e60…320ff4 (4, 43) Dummy {f00=0x00fb, f01=0x0190, f02=» * ^ > P* RETURN RETURN * > P* * R @ P*********************************************************** P* REGISTERS P* P* A11= RES
0x320ff4…321188 Dummy {f00=0x00fb, f01=0x4024, f02=» A14 P P END @ RETURN * > P* * R @ P*********************************************************** P* REGISTERS P* P* A11= RES
0x321188…32131c Dummy {f00=0x00fb, f01=0x2008, f02=» ) DATA PF 24 * * $ END * ,@ * 8 6 ) 4 DATA PF 7 ) F DATA PF 8 ) X DATA PF 9 ) j DATA PF 10 ) | DATA PF 11 ) DATA PF 12 ) DATA PF 13 ) DATA PF 14 ) DATA PF 15 ) *C0 ) DATA PF
0x32131c…3214b0 Dummy {f00=0x00fb, f01=0x0190, f02=»
[…0x4…]
0x321b00…321c94 (4, 44) Opaque[0x194]
0x321c94…321e28 # DirEnt {nam=»VDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f80, f03=0x0000}
0x321c94…321e28 IdxSect {
0x321c94…321e28 f00 = 0x00fc // 0x321c94 @0x0
0x321c94…321e28 f01 = 0x0022 // 0x321c96 @0x2
0x321c94…321e28 gno = [ // 0x321c98 @0x4
0x321c94…321e28 [0x00]: C0x00fc.0x0.0
0x321c94…321e28 [0x01]: C0x00fc.0x1.0
0x321c94…321e28 [0x02]: C0x00fc.0x2.0
0x321c94…321e28 [0x03]: C0x00fc.0x3.0
0x321c94…321e28 [0x04]: C0x00fd.0x0.0
0x321c94…321e28 [0x05]: C0x00fd.0x1.0
0x321c94…321e28 [0x06]: C0x00fd.0x2.0
0x321c94…321e28 [0x07]: C0x00fd.0x3.0
0x321c94…321e28 [0x08]: C0x00fe.0x0.0
0x321c94…321e28 [0x09]: C0x00fe.0x1.0
0x321c94…321e28 [0x0a]: C0x00fe.0x2.0
0x321c94…321e28 [0x0b]: C0x00fe.0x3.0
0x321c94…321e28 [0x0c]: C0x00ff.0x0.0
0x321c94…321e28 [0x0d]: C0x00ff.0x1.0
0x321c94…321e28 [0x0e]: C0x00ff.0x2.0
0x321c94…321e28 [0x0f]: C0x00ff.0x3.0
0x321c94…321e28 [0x10]: C0x0100.0x0.0
0x321c94…321e28 ]
0x321c94…321e28 }
0x321e28…321fbc Dummy {f00=0x00fc, f01=0x018e, f02=» . P IDENT VDU REL 11.0 82-03-10 870150541100 P 6 " P DK1 BAD CHECK ON ATTRIBUTE > P DK BAD TEST ON INTESITY d P =1, LINFLG AT UNFORM. P 81-01-26 D P**************************************************************** D P*
0x321fbc…322150 Dummy {f00=0x00fc, f01=0x0190, f02=» D P* MODULE HANDLING THE DISPLAY SCREEN AND * D P* BUFFER * L D P* (EMULATION 3270 SNA/SDLC, BSC) * D P*
0x322150…3222e4 Dummy {f00=0x00fc, f01=0x0190, f02=»************************************* z P* . P* LIST OF ROUTINES 8 P* R 2 P* DISMOD DISPLAY MODIFIED FIELDS & P* DISLIN DISPLAY LINE 6 P* SPACES MOVE SPACES INTO ECB BUFFER . P* INTCHK
0x3222e4…322478 Dummy {f00=0x00fc, f01=0x0190, f02=»PDCNT UPDATE COUNTERS 2 P* GETVDU GET CHAR. IN VDU BUFFER $ 2 P* STOVDU STORE CHAR IN VDU BUFFER Z 0 P* SCRINF GET SCREEN INFORMATION 2 P* STOINF STORE SCREEN INFORMATION & P* SOUND
0x322478…32260c Dummy {f00=0x00fc, f01=0x0190, f02=»INE UPDATE LINE FLAG < P* LINATT UPDATE LINFLG AT ATTRIBUTE CHANGE $ * P* NLROUT NEW LINE ROUTINE d . P* ERASE ERASE ENTIRE SCREEN 0 P* ERASUP ERASE ALL UNPROTECTED 6 P* ERASUA
0x32260c…3227a0 Dummy {f00=0x00fc, f01=0x0190, f02=»COPY TASKID n , P* DISSTA DISPLAY STATISTICS $ P* MOVTXT MOVE TEXT D * P* CONASC CONVERT TO ASCII l 2 P* ATMASF SEARCH ATTRIBUTE FORWARD 4 P* ATMASB SEARCH ATTRIBUTE BACKWARD 2 P
0x3227a0…322934 (4, 45) Dummy {f00=0x00fc, f01=0x018e, f02=»E FM OR DUP CHAR. IF ANY t ( P* DISCHA DISPLAY CHAR. P* L F P***************************************************************** V P EJECT H P******************************************************************** H P*
0x322934…322ac8 Dummy {f00=0x00fc, f01=0x0190, f02=» H P* * H P******************************************************************** P P " P ENTRY INSMOD INSERT CHARACTER , P ENTRY GETVDU GET CHAR. FROM VDU BUFFER , P ENTRY STOVDU
0x322ac8…322c5c Dummy {f00=0x00fc, f01=0x0190, f02=»P MOVE TO NEXT UNPROTECTED POS. , P ENTRY ATMASB SEARCH ATTRIBUTE BACKWARDS ( , P ENTRY ATMASF SEARCH ATTRIBUTE FOREWARD X P ENTRY DISCHA DISPLAY CHAR. * P ENTRY WCHAR DISPLAY CHAR. AND CURSOR * P ENTRY DISMOD DISPLAY MODIFIED FIELDS ( P
0x322c5c…322df0 Dummy {f00=0x00fc, f01=0x0190, f02=»NTRY SOUND SOUND ALARM ON VDU ( P ENTRY ERASUP ERASE ALL UNPROTECTED & $ P ENTRY WRAP CHECK IF WRAP AROUND R " P ENTRY NLROUT NEW LINE ROUTINE z " P ENTRY LINWRP CHECK LINE WRAP P ENTRY LINE UPDATE LINE FLAG P ENTRY LINATT UPADTE $ P E
0x322df0…322f84 Dummy {f00=0x00fc, f01=0x0190, f02=»* * H P* EXTERNAL REFERENCES * L H P* * H P************************************
0x322f84…323118 Dummy {f00=0x00fc, f01=0x0190, f02=»D NEXT LINE (KEYB) l 4 P EXTRN RDHOME UNPROTECTED FIRST ON SCREEN (KEYB) & P EXTRN SAVE1 SAVE REGISTERS (PAD) R ( P EXTRN REST1 RESTORE REGISTERS (PAD) | P EJECT P P J P******************************************************************
0x323118…3232ac Dummy {f00=0x00fc, f01=0x0190, f02=» * b J P* * J P********************************************************************* n P $ PX:I EQU 1 INSERT/DELETE HANDLING PIN:DL EQU 1 " PX:O EQU
0x3232ac…323440 Dummy {f00=0x00fc, f01=0x0190, f02=» * & P* DECLARATIONS OF DATA AND EQUATES F D P* * p D P*************************************************************** P P
0x323440…3235d4 (4, 46) Dummy {f00=0x00fc, f01=0x0190, f02=»EQU 6 EFFECTIVE LENGTH PECBRC EQU 8 RETURN CODE PECBCW EQU 10 CONTROL WORD > P* ` P* SPECIAL CHARACTERS j P* PNULL EQU 0 NULL CHAR. " PNEWLIN EQU /0A NEW LINE CHAR. " PFORMFD EQU /0C FORM FEED CHAR. $ PENDMES EQU /19
0x3235d4…323768 Dummy {f00=0x00fc, f01=0x018e, f02=»DE x P* PVDUCOD EQU 'VV' VDU KB TASK P* 8 P* INTERNAL STATUS B P* " PLINUPD EQU /0001 LINE UPDATED f ( PATTREC EQU /0002 ATTRIBUTE RECEIVED P* P* VDU SCREEN SIZE P* PLLINE EQU 80 LINE LENGTH PLB
0x323768…3238fc Dummy {f00=0x00fc, f01=0x0190, f02=» f * PSTALIN EQU 5 STARTING LINE OF DISPLAY & PSTAPOS EQU 5 STARTTING POS ON LINE 6 ( PTXTSIZ EQU 15 SIZE OF PERMANENT TEXT ` 8 PINDEX DATA /0102,/0405,/0608,/090A,/0C0E,/1D1E,/1F00 P XIF P EJECT P* P* RELATIVE ADDRESSES IN
0x3238fc…323a90 Dummy {f00=0x00fc, f01=0x0190, f02=»1920 INTERNAL LINE FLAGS & PPCURS EQU LINFLG+24 CURSOR ADDRESS * PATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR J PCURATT EQU ATTRIB+2 x & PWCC EQU CURATT+2 WCC/CCC CHARACTER ( PINTATT EQU WCC+8 INTENSITY ATTRIBUTE $ PREGI EQU INTATT+32 WORK REGIST
0x323a90…323c24 Dummy {f00=0x00fc, f01=0x0190, f02=»T LAYOUT z P IFT TEST=1 . PSTATXT EQU IDTEXT+22 STATISTIC TEXT LAYOUT $ P XIF V P EJECT b > P********************************************************* p > P* * > P* DISMOD
0x323c24…323db8 Dummy {f00=0x00fc, f01=0x0190, f02=»********************************* x P* REGISTERS * P* > P* A2= CHAR. H P* A3= ADDRESS IN VDU-BUFFER P* A4= REL. CURSOR POS. P* A5= REL. ATTRIBUTE POS. P* A6= ADDRESS IN ECB P* A7= INDEX IN ECB P* A8= VDU ECB
0x323db8…323f4c Dummy {f00=0x00fc, f01=0x0190, f02=»******************************************* PDISMOD EQU * 4 P LD A8,ECBVDU,A11 H P LDKL A1,/101 LINE 1 POS. 1 b P ST A1,ECBCW,A8 & P SUR A9,A9 RESET INTENSITY COUNTER P SUR A10,A10 P LDKL A3,BVDU P ADR A3,A11 P C
0x323f4c…3240e0 Dummy {f00=0x00fc, f01=0x0190, f02=»BVDU+1 P LDR A5,A11 P CW A1,REGI,A11 " P RF(NE) DIS100 NO : P LDK A2,0 LOW INTENSITY T P ST A2,INTATT,A11 t PDIS100 EQU * P LDR A10,A10 P RF(NZ) DIS900 ( P CF A14,INTCHK CHECK INTENSITY CHAR. P LDR A1,A10
0x3240e0…324274 (4, 47) Dummy {f00=0x00fc, f01=0x0190, f02=»ATION v P CWK A2,/1901 ALLDISPLAYED P RB(NE) DIS100 NO 0 P RF DIS900 J PDIS400 EQU * " P CWK A7,LLINE LINE COMPLETED? p P RF(L) DIS500 NO P CF A14,DISLIN DISPLAY LINE P RB DIS100 PDIS500 EQU * & P LCR A2,A3 GET C
0x324274…324408 Dummy {f00=0x00fc, f01=0x0190, f02=»DCNT UPDATE COUNTERS P CWK A2,NULL NULL CHAR.? P RB(E) DIS400 YES < " P CWK A2,NEWLIN NEW LINE CHAR.? V P RB(E) DIS400 YES | & P CWK A2,ENDMES END MESSAGE CHAR.? P RB(E) DIS400 YES $ P CWK A2,FORMFD FORM FEED CHAR.? P RB(E)
0x324408…32459c Dummy {f00=0x00fc, f01=0x0190, f02=»00 EQU * P ST A2,INTATT,A11 P LDR A1,A2 * P ANK A1,8 LOW INTENSITY? < P RF(Z) DIS725 YES P ANK A2,4 HIGH INTENSITY? v P RF(Z) DIS715 YES " P CF A14,UPDCNT UPDATE COUNTERS P RF DIS800 NONDISPLAY PDIS715 EQU *
0x32459c…324730 Dummy {f00=0x00fc, f01=0x018e, f02=» BUFFER t P ADKL A9,1 " P CF A14,UPDCNT UPDATE COUNTERS " P ADK A6,1 H P RB DIS400 Z PDIS800 EQU * l " P CWK A7,LLINE LINE COMPLETED? P RF(L) DIS850 NO P CF A14,DISLIN DISPLAY LINE P RB DIS100 PDIS850 EQU * & P
0x324730…3248c4 Dummy {f00=0x00fc, f01=0x0190, f02=» P RB DIS800 PDIS900 EQU * * P CF A14,SCRINF GET SCREEN INFORMATION * P LDK A1,2 REQ. LENGTH X P CF A14,DISCHA SET CURSOR v P RTN A14 P EJECT @ P*********************************************************** @ P*
0x3248c4…324a58 Dummy {f00=0x00fc, f01=0x0190, f02=» * @ P*********************************************************** 6 P* REGISTERS z P* P* A3= RESERVED P* A4= RESERVED P* A5= RESERVED P* A6= RESERVED P* A8= ECB VDU P*
0x324a58…324bec Dummy {f00=0x00fc, f01=0x0190, f02=»*********************************** x PDISLIN EQU * , P LDK A7,2 REQ. LENGTH @ P LDR A1,A10 ^ P ANKL A1,1 ONLY SPACES? r P RF(Z) DISL10 YES P LDKL A7,LLINE+2 REQ. LENGTH , P ADR A7,A9 ADD NUMBER OF INTENSITY CHAR. PDISL10 E
0x324bec…324d80 Dummy {f00=0x00fc, f01=0x0190, f02=». r P ANK A1,/FF , P SUK A1,81 LAST POS. ON LINE DISPLAYED? P RF(Z) DISL90 YES N P LD A6,ECBBA,A8 h P LDK A2,/2B P SC A2,1,A6 P LDKL A2,/1420 P SC A2,3,A6 P SRL A2,8 P SC A2,2,A6 P LDK A2,84
0x324d80…324f14 (4, 48) Dummy {f00=0x00fd, f01=0x0190, f02=»S. ON LINE ~ P SC A2,ECBCW+1,A8 $ P LDKL A2,/100 MOVE ONE LINE DOWN , P ADS A2,ECBCW,A8 T P SUR A10,A10 l P LD A2,ECBCW,A8 P CWK A2,/1901 END OF SCREEN P RF(NE) DISL95 NO P LDKL A10,1 PDISL95 EQU * , P CF A14,SP
0x324f14…3250a8 Dummy {f00=0x00fd, f01=0x0190, f02=»* * @ P* SPACES MOVE SPACES TO ECB BUFFER * D @ P* * @ P************************************************************
0x3250a8…32523c Dummy {f00=0x00fd, f01=0x0190, f02=»S IN ECB BUFFER P* A7= INDEX IN ECB P* A8= VDU ECB 2 P* A9= INTENSITY COUNTER H P* A10= INDICATOR h P* A11= RESERVED P* A13= RESERVED P* @ P************************************************************ PSPACES EQU
0x32523c…3253d0 Dummy {f00=0x00fd, f01=0x0190, f02=» LDKL A2,' ' SPACES PSPAC10 EQU * ! P SCR A2,A6 ! 0 P SC A2,1,A6 ! B P ADK A6,2 ! V " P SUK A7,2 WHOLE BUFFER SPACED? ! h P RB(P) SPAC10 NO ! P LDK A2,0 CHAR. ! " P LD A6,ECBBA,A8 BUFFER ADDRESS ! P ADK A6,2 ! " P LDK A7,0 RESET CH
0x3253d0…325564 Dummy {f00=0x00fd, f01=0x0190, f02=» * ! | > P* INTCHK GET INTENSITY CHAR. * " . > P* * " p > P********************************************************* " P* REGISTERS " P
0x325564…3256f8 Dummy {f00=0x00fd, f01=0x018e, f02=»= RESERVED " P* A8= RESERVED # P* A9= INTENSITY COUNTER # ( P* A10= INDICATOR # H P* A11= CREDIT WORK AREA # ` P* A13= RESERVED # P* # 4 P************************************************ # PINTCHK EQU * # & P SUR A9,A9 RESET INTENSITY
0x3256f8…32588c Dummy {f00=0x00fd, f01=0x0190, f02=» # v P ADK A4,LLINE $ P ADK A5,1 $ P LDK A2,1 $ 0 P SC A2,ECBCW+1,A8 $ B P LDKL A2,/100 $ P ADS A2,ECBCW,A8 $ r P LDKL A10,0 $ P RF INT900 $ PINT100 EQU * $ P LC A2,LINFLG,A5 $ P ANK A2,2 $ P SC A2,LINFLG,A5 $ P L
0x32588c…325a20 Dummy {f00=0x00fd, f01=0x0190, f02=»DR A1,A4 $ P CF A14,SCRINF % P LDR A2,A5 % & P LDR A3,A6 % 8 ( P CF A14,ATMASB GET CURRENT ATTRIBUTE % J P ST A6,INTATT,A11 % v P LDR A5,A2 % P LDR A6,A3 % P CF A14,STOINF % P CF A14,REST1 % P LDK A7,0 % PINT200 EQU * % P L
0x325a20…325bb4 (4, 49) Dummy {f00=0x00fd, f01=0x0190, f02=»F(NZ) INT800 NO, NONDISPLAY % P LDK A2,/1F HIGH & $ P RF INT400 & < PINT300 EQU * & N P LDK A2,/1E LOW & b PINT400 EQU * & z " P SCR A2,A6 SAVE IN ECB BUFFER & P ADK A6,1 & P ADKL A9,1 & P RF INT900 & PINT800 EQU * & P LDKL A10,
0x325bb4…325d48 Dummy {f00=0x00fd, f01=0x0190, f02=» * & 4 P* SETIND SET DISPLAY INDICATOR * ' ( 4 P* * ' ` 4 P************************************************ ' P* REGISTERS ' P* ' P* A2= CHAR ' P* A3= RE
0x325d48…325edc Dummy {f00=0x00fd, f01=0x0190, f02=»ED ' P* A10= DISPLAY INDICATOR ( P* A11= RESERVED ( * P* A13= RESERVED ( B P* ( Z & P********************************** ( d PSETIND EQU * ( P CWK A2,NULL NULL CHAR? ( P RF(E) SETI90 YES ( ( P ORKL A10,1 INDICATE NOT ONLY SPACES ( P
0x325edc…326070 Dummy {f00=0x00fd, f01=0x0190, f02=» * ( D P* INSMOD INSERT CHARACTER * ) : D P* * ) D P**************************************************************
0x326070…326204 Dummy {f00=0x00fd, f01=0x0190, f02=»A4= REL. CURSOR POS. ) P* A5= REL. ATTRIBUTE POS. * P* A6= ATTRIBUTE CHAR. * > P* A11= CREDIT WORK AREA * P* A13= RESERVED * | P* * D P*************************************************************** * PINSMOD EQU * * P IFT IN:DL=1 *
0x326204…326398 Dummy {f00=0x00fd, f01=0x0190, f02=»0 INDICATE NULL IN CURSOR POS. * P RF INS900 + & PINS100 EQU * + 8 P LDR A3,A4 + L ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? + ^ P RF(E) INS200 YES + P LDR A8,A6 SAVE OLD + P LDR A9,A5 SAVE OLD + , P CF A14,ATMASF SEARCH ATTRIBUTE FORWARD +
0x326398…32652c Dummy {f00=0x00fd, f01=0x0190, f02=» * + $ P CF A14,SNULL SEARCH FIRST NULL , P ANK A1,2 NULL FOUND? , 2 P RF(Z) INS300 YES , P P LDK A1,2 INDICATE ERROR , j P RF INS900 , PINS300 EQU * , ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? , P RF(E) INS350 YES , * P ORK A6,1 SET MDT-
0x32652c…3266c0 Dummy {f00=0x00fd, f01=0x0190, f02=»R , b PINS350 EQU * - P LDR A1,A3 - P ST A4,REGI,A11 - 0 P LDR A4,A1 - H P LDK A5,LLINE - Z P LDR A6,A11 - p P SUR A10,A10 - P LDR A9,A1 - " P CF A14,LINE UPDATE LINE FLAG - P LDR A1,A9 - PINS400 EQU * - . P CWK A1,0 CHAR TO
0x3266c0…326854 (4, 50) Dummy {f00=0x00fd, f01=0x0190, f02=» P LDR A9,A1 . P LDK A5,LLINE . P LDR A6,A11 . , P CF A14,LINE . @ P LDR A1,A9 . T P LC A9,LINFLG,A6 . f P ORKL A9,1 . ~ P SC A9,LINFLG,A6 . , P CF A14,STOVDU STORE CHAR IN VDU BUFFER . P SUK A1,1 . P SUK A4,1 . PINS450 EQU *
0x326854…3269e8 Dummy {f00=0x00fd, f01=0x0190, f02=»AR . t * P CF A14,GETVDU GET CHAR IN VDU BUFFER / P LDK A1,0 / 8 P LDK A4,0 / J P LDR A9,A1 / P LDK A5,LLINE / n P LDR A6,A11 / P CF A14,LINE / P LDR A1,A9 / P LC A9,LINFLG,A6 / P ORKL A9,1 / P SC A9,LINFLG,A6 / , P CF A14,
0x3269e8…326b7c Dummy {f00=0x00fd, f01=0x0190, f02=» / P LDR A7,A2 GET KEY-CHAR 0 , P CF A14,STOVDU STORE CHAR IN VDU BUFFER 0 ( P LDK A5,LLINE 0 X P LDR A6,A11 0 n P CF A14,LINE 0 P LC A9,LINFLG,A6 0 P ORKL A9,1 0 P SC A9,LINFLG,A6 0 P IM PCURS,A11 MOVE CURSOR 0 P LD A4,REGI,A1
0x326b7c…326d10 Dummy {f00=0x00fd, f01=0x0190, f02=»S,A11 0 PINS700 EQU * 1 * P CF A14,DISMOD DISPLAY MODIFIED FIELD 1 " $ P LDK A1,1 INDICATE NORMAL INSERT 1 P PINS900 EQU * 1 x P RTN A14 1 P XIF 1 P EJECT 1 > P********************************************************* 1 > P*
0x326d10…326ea4 Dummy {f00=0x00fd, f01=0x018e, f02=» * 1 | > P********************************************************* 2 . P* REGISTERS 2 p P* 2 P* A3= ADDRESS IN VDU BUFFER 2 P* A4= REL CURSOR POS 2 P* A5= RESERVED 2 P* A6= ADDRESS IN ECB 2 P
0x326ea4…327038 Dummy {f00=0x00fd, f01=0x0190, f02=» 2 ~ P* 3 > P********************************************************* 3 PUPDCNT EQU * 3 T P ADK A3,1 3 h P ADK A4,1 3 z P ADK A6,1 3 P ADK A7,1 3 P RTN A14 3 P EJECT 3 D P**********************************************************
0x327038…3271cc Dummy {f00=0x00fd, f01=0x0190, f02=» * 3 ^ D P* * 4 D P**************************************************************** 4 ^ P* REGISTERS 4 P* 4 P* A1= REL. POS IN VDU BUFFER 4 P* A2= RESERVED 4 P* A3= RESE
0x3271cc…327360 Dummy {f00=0x00fd, f01=0x0190, f02=»* A9= RESERVED 4 P* A10= RESERVED 5 P* A11= CREDIT WORK AREA 5 . P* A13= RESERVED 5 N P* 5 f < P******************************************************** 5 p PGETVDU EQU * 5 P LDKL A7,BVDU 5 P ADR A7,A11 5 P ADR A7,A1 5 P LCR A7,
0x327360…3274f4 (4, 51) Dummy {f00=0x00fd, f01=0x0190, f02=» * 5 B P* STOVDU STORE CHAR. IN VDU BUFFER * 6 @ B P* * 6 B P************************************************************
0x3274f4…327688 Dummy {f00=0x00fd, f01=0x0190, f02=» 6 P* A5= RESERVED 7 P* A6= RESERVED 7 & P* A7= CHAR. TO STORE IN VDU BUFFER 7 4 P* A9= RESERVED 7 ^ P* A10= RESERVED 7 t P* A11= CREDIT WORK AREA 7 P* A13= RESERVED 7 P* 7 < P******************************************************** 7
0x327688…32781c Dummy {f00=0x00fd, f01=0x0190, f02=»****************************************************** 7 < P* * 8 > < P* SCRINF GET SCREEN INFORMATION * 8 ~ < P* * 8 < P**********
0x32781c…3279b0 Dummy {f00=0x00fd, f01=0x0190, f02=»* A5= REL. ATTRIBUTE POS. 8 P* A6= ATTRIBUTE CHAR. 9 " P* A11= CREDIT WORK AREA 9 @ P* A13= RESERVED 9 ` P* 9 x < P******************************************************* 9 PSCRINF EQU * 9 $ P LD A4,PCURS,A11 GET CURSOR POS. 9 ( P LD A5,CUR
0x3279b0…327b44 Dummy {f00=0x00fd, f01=0x0190, f02=»****************************** 9 v < P* * : & < P* STOINF STORE SCREEN INFORMATION * : f < P* * : < P**********************************
0x327b44…327cd8 Dummy {f00=0x00fd, f01=0x018e, f02=»UTE CHAR. : P* A11= CREDIT WORK AREA ; P* A13= RESERVED ; 2 P* ; J < P******************************************************** ; T PSTOINF EQU * ; P ST A4,PCURS,A11 ; P ST A5,CURATT,A11 ; P ST A6,ATTRIB,A11 ; P RTN A14 ; P EJE
0x327cd8…327e6c Dummy {f00=0x00fd, f01=0x018e, f02=» < P* SOUND SOUND ALARM ON VDU * < < P* * < D < P******************************************************* < P* REGISTERS < P* < P* A1= RETURN CODE < P* A8= ECBVDU
0x327e6c…328000 Dummy {f00=0x00fd, f01=0x0190, f02=» PSOUND EQU * = P LD A8,ECBVDU,A11 = P LD A1,ECBBA,A8 = 2 P LDK A2,/2B CONTROL CHAR. = J P SC A2,1,A1 = l P LDK A2,/07 BELL CHAR. = P SC A2,2,A1 = P LDK A2,3 REQ. LENGTH = P ST A2,ECBRL,A8 = P LDK A7,/86 = P LKM = P
0x328000…328194 (4, 52) Dummy {f00=0x00fe, f01=0x0190, f02=»*** = ^ : P* * > : P* WRAP CHECK IF WRAP AROUND * > J : P* * > : P***************************************************** > P* R
0x328194…328328 Dummy {f00=0x00fe, f01=0x0190, f02=»* A6= RESERVED > P* A7= RESERVED ? P* A8= RESERVED ? , P* A9= RESERVED ? B P* A10= RESERVED ? X P* A11= CREDIT WORK AREA ? p P* A13= RESERVED ? P* ? : P***************************************************** ? PWRAP EQU * ? P CWK A
0x328328…3284bc Dummy {f00=0x00fe, f01=0x018e, f02=» EQU * ? P RTN A14 @ P EJECT @ @ P************************************************************ @ , @ P* * @ p B P* LINWRP CHECK LINE WRAP * @ @ P*
0x3284bc…328650 Dummy {f00=0x00fe, f01=0x0190, f02=» @ P* A P* A3= RESERVED A P* A4= REL CURSOR POS A ( P* A5= LAST IN ROW REL POS A D P* A6= RESERVED A f P* A8= RESERVED A | P* A9= RESERVED A P* A10= RESERVED A P* A11= RESERVED A P* A13= RESERVED A P* A @ P**************
0x328650…3287e4 Dummy {f00=0x00fe, f01=0x0190, f02=»4,LINE UPDATE LINE FLAG A PLINW10 EQU * B P RTN A14 B 4 P EJECT B D @ P************************************************************ B R @ P* * B @ P* LINE UPDATE LINE FLAG
0x3287e4…328978 Dummy {f00=0x00fe, f01=0x0190, f02=»*************** B b P* REGISTERS C P* C , P* A3= ADDRESS IN VDU BUFFER C 6 P* A4= REL CURSOR POS C Z P* A5= LAST IN ROW REL POS C v $ P* A6= INTERNAL LINE FLAG ADDRESS C P* A8= RESERVED C P* A9= RESERVED C P* A10= RESERFED C P* A1
0x328978…328b0c Dummy {f00=0x00fe, f01=0x0190, f02=»QU * C P CWR A5,A4 THIS LINE? D P RF(G) LIN400 YES,MAYBE D * P LDR A1,A10 D J & P ANK A1,ATTREC ATTRIBUTE RECEIVED? D ^ P RF(Z) LIN100 NO D P LC A1,LINFLG,A6 D P ORK A1,2 D P SC A1,LINFLG,A6 D PLIN100 EQU * D P SUR A6,A11 D
0x328b0c…328ca0 Dummy {f00=0x00fe, f01=0x0190, f02=»B LINE D PLIN300 EQU * E P LDK A4,0 FIRST SCREEN POS. E " P LDKL A3,BVDU E F P ADR A3,A11 E P LDR A6,A11 E p P LDK A5,LLINE E PLIN400 EQU * E P SUR A5,A4 E P CWK A5,81 E P RF(L) LIN500 THIS LINE E P LDK A5,LLINE E
0x328ca0…328e34 (4, 53) Dummy {f00=0x00fe, f01=0x0190, f02=»*************************************** E z B P* * F 0 B P* LINATT UPADTE LINFLG AT ATTRIBUTE CHANGE * F v B P* * F B P******
0x328e34…328fc8 Dummy {f00=0x00fe, f01=0x0190, f02=»REL CURSOR POS F P* A5= LAST IN ROW REL POS G $ P* A6= INTERNAL LINE FLAG ADDRESS G 8 P* A8= RESERVED G ` P* A9= RESERVED G v P* A10= RESERVED G P* A11= CREDIT WORK AREA G P* A13= RESERVED G P* G B P**********************************
0x328fc8…32915c Dummy {f00=0x00fe, f01=0x0190, f02=» PLINA10 EQU * H P ADK A4,1 H P ADK A3,1 H * P CWR A5,A4 END OF LINE? H < P RF(G) LINA30 NO H P ADR A6,A11 H t P LC A1,LINFLG,A6 H P ORK A1,1 H P SC A1,LINFLG,A6 H P SUR A6,A11 H P ADK A6,1 H P CWK A6,23 WRAP AROUND?
0x32915c…3292f0 Dummy {f00=0x00fe, f01=0x0190, f02=»A3,BVDU H P ADR A3,A11 I P LDK A5,LLINE I $ PLINA30 EQU * I : P CWR A4,A10 ALL CHECKED? =1 I N P RF(E) LINA40 YES =1 I r P LCR A2,A3 I P CWK A2,/80 ATTRIBUTE I P RB(NG) LINA10 YES I PLINA40 EQU * . =1 I P CF A14,REST1 I P
0x3292f0…329484 Dummy {f00=0x00fe, f01=0x0190, f02=» * I j @ P* NLROUT NEW LINE ROUTINE * J @ P* * J b @ P*********************************************************** J P* REGISTERS J P* J P
0x329484…329618 Dummy {f00=0x00fe, f01=0x0190, f02=»SERVED J P* A10= RESERVED K P* A11= RESERVED K & P* A13= RESERVED K > P* K V @ P*********************************************************** K ` PNLROUT EQU * K P LDR A1,A4 SAVE CURSOR POS. K . P CF A14,CRDOWN MOVE CURSOR ON E LINE DOWN K
0x329618…3297ac Dummy {f00=0x00fe, f01=0x0190, f02=»NLR100 K PNLR200 EQU * L P LDR A4,A1 L " P LDK A2,NULL L 4 PNLR300 EQU * L H P CWR A7,A4 ALL NULLED? L P RF(E) NLR900 YES L z " P SCR A2,A3 NULL IN VDU BUFFER L P LC A1,LINFLG,A6 L P ORKL A1,1 L P SC A1,LINFLG,A6 L P ADK A3,1 L
0x3297ac…329940 Dummy {f00=0x00fe, f01=0x0190, f02=»********************************************** L z H P* * M 6 H P* ERASE ERASE ENTIRE SCREEN * M H P*
0x329940…329ad4 (4, 54) Dummy {f00=0x00fe, f01=0x018e, f02=» M P* A3= ADDRESS IN VDU-BUFFER N P* A4= REL. CURSOR ADDRESS N , P* A5= REL ATTRIBUTE POS N N P* A6= ATTRIBUTE CHAR N n P* A11= CREDIT WORK AREA N P* A13= RESERVED N P* N > P********************************************************* N
0x329ad4…329c68 Dummy {f00=0x00fe, f01=0x0190, f02=» N p PERAS10 EQU * O * P CWK A4,LBVDU+24 WHOLE SCREEN NULLED? O P RF(NL) ERAS20 YES O J P SCR A2,A3 STORE CHAR. O d P ADK A3,1 O P ADK A4,1 O P RB ERAS10 O PERAS20 EQU * O P LDK A4,0 FIRST SCREEN POS. O ( P LDKL A5,LBVDU+1 UNFORMA
0x329c68…329dfc Dummy {f00=0x00fe, f01=0x0190, f02=»K? O t P RF(NE) ERAS30 YES P P LD A8,ECBVDU,A11 P $ P LDK A2,'1' ERASE CHAR. P > P LD A1,ECBBA,A8 P ^ P SC A2,1,A1 P v P LDK A1,2 REQ. LENGTH P P ST A1,ECBRL,A8 P P LDK A7,/86 WRITE P P LKM P P DATA 1 P PERAS30 EQU * P
0x329dfc…329f90 Dummy {f00=0x00fe, f01=0x0190, f02=» * P j > P* ERASUP ERASE ALL UNPROTECTED * Q > P* * Q ^ > P********************************************************* Q P* REGISTERS Q P* Q P* A2= CH
0x329f90…32a124 Dummy {f00=0x00fe, f01=0x0190, f02=» ADDRESS Q x P* A11= CREDIT WORK AREA R P* A13= RESERVED R 0 P* R H > P********************************************************* R R PERASUP EQU * R " P LDK A1,2 RESTORE KEYBOARD-BIT R P ST A1,WCC,A11 R P LDK A4,0 FIRST SCREEN POS. R P
0x32a124…32a2b8 Dummy {f00=0x00fe, f01=0x0190, f02=»10 NO R P CF A14,ERASE S P RF ERUP90 S $ PERUP10 EQU * S 6 P LCR A2,A3 GET CHAR. S J P CCK A2,/8000 ATTRIBUTE? S f P RF(NL) ERUP20 YES S P ADK A3,1 S P ADK A4,1 S P RB ERUP10 S PERUP20 EQU * S $ P LDR A9,A4 FIRST ATTRIBUTE POS
0x32a2b8…32a44c Dummy {f00=0x00fe, f01=0x0190, f02=»3,1 S P ADK A4,1 T * P CF A14,LINWRP CHECK IF LINWRP AROUND T P LCR A2,A3 GET CHAR. T L P CCK A2,/8000 ATTRIBUTE? T h P RB(L) ERUP30 NO T PERUP45 EQU * T P CWR A9,A4 ALL SCANNED? T P RF(E) ERUP70 YES T PERUP47 EQU * T P LDR A
0x32a44c…32a5e0 Dummy {f00=0x00fe, f01=0x018e, f02=» LC A1,LINFLG,A6 T P ORK A1,1 U P SC A1,LINFLG,A6 U * P ADK A3,1 U B P ADK A4,1 U T PERUP50 EQU * U f * P CF A14,LINWRP CHECK IF LINWRP AROUND U z P LCR A2,A3 GET CHAR. U P CCK A2,/8000 ATTRIBUTE? U P RB(NL) ERUP45 YES U . P SCR A7,A3
0x32a5e0…32a774 (4, 55) Dummy {f00=0x00fe, f01=0x0190, f02=» U P RB ERUP50 V PERUP70 EQU * V 4 P CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN V . PERUP90 EQU * V f P RTN A14 V z P EJECT V D P**************************************************************** V P* V D P* ERASUA ERASE UN
0x32a774…32a908 Dummy {f00=0x00fe, f01=0x0190, f02=»****************************************** V z P* REGISTERS W 2 P* W F P* A1= STOP ADDRESS W P P* A2= CHAR. W j P* A3= ADDRESS IN VDU-BUFFER W ~ P* A4= REL. CURSOR POS. W P* A5= REL ATTRIBUTE POS. W P* A6= ATTRIBUTE CHAR. W P* A7= NULL
0x32a908…32aa9c Dummy {f00=0x00fe, f01=0x0190, f02=»******** W X PERASUA EQU * X " P LDK A7,NULL STORE NULL CHAR. X $ P LDKL A3,BVDU X J P ADR A3,A11 X ` P ADR A3,A4 BUFFER POS. X t ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? X P RF(E) ERUA47 YES X $ P LDR A2,A6 GET CURRENT ATTRIBUTE X & P CWR A5,
0x32aa9c…32ac30 Dummy {f00=0x00fe, f01=0x0190, f02=»A70 YES X & P CF A14,WRAP CHECK IF WRAP AROUND Y PERUA10 EQU * Y : P ANK A2,/20 PROTECTED FIELD? Y N P RF(Z) ERUA47 NO Y r PERUA30 EQU * Y & P CF A14,WRAP CHECK IF WRAP AROUND Y P LCR A2,A3 GET CHAR. Y P ADK A3,1 Y P ADK A4,1 Y P
0x32ac30…32adc4 Dummy {f00=0x00fe, f01=0x0190, f02=» A8,A2 Y P ANKL A8,/20 PROTECTED? Z P RB(NZ) ERUA30 YES Z . PERUA47 EQU * Z H P LDR A6,A11 Z P LDK A5,LLINE Z p P LDR A8,A1 Z P CF A14,LINE Z P LDR A1,A8 Z P RF ERUA60 Z PERUA50 EQU * Z P LDR A8,A1 Z P CF A14,LINWRP Z
0x32adc4…32af58 Dummy {f00=0x00fe, f01=0x0190, f02=»000 ATTRIBUTE? Z P RB(NL) ERUA45 YES [ . P SCR A7,A3 STORE NULL CHAR, IN VDU-BUFFER [ 0 P LC A8,LINFLG,A6 [ b P ORKL A8,1 [ z P SC A8,LINFLG,A6 [ P ADK A3,1 [ P ADK A4,1 [ P RB ERUA50 [ PERUA70 EQU * [ P RTN A14 [ P EJECT [
0x32af58…32b0ec Dummy {f00=0x00fe, f01=0x0190, f02=»* POSUNP MOVE CURSOR TO NEXT UNPR. POS. * [ > P* * B > P********************************************************** P* REGISTERS P* P* A2= RESERVED P* A4= REL. CUR
0x32b0ec…32b280 Dummy {f00=0x00fe, f01=0x0190, f02=» @ P*********************************************************** ] PPOSUNP EQU * ] L P CWK A4,LBVDU-1 WRAP AROUND? ] ` P RF(NG) POSU20 NO ] " P LDK A4,0 FIRST POS. ON SCREEN ] P ST A4,PCURS,A11 ] PPOSU20 EQU * ] P LDR A1,A4 ] * P CF A1
0x32b280…32b414 (4, 56) Dummy {f00=0x00ff, f01=0x0190, f02=»WK A7,/30 PROTECTED AND NUMERIC? ] P RF(E) POSU25 YES ^ ( P LDR A5,A1 ^ B P IM PCURS,A11 MOVE CURSOR ^ T P ADK A4,1 ^ v P CWK A4,LBVDU-1 WRAP AROUND? ^ P RF(NG) POSU23 NO ^ P LDK A4,0 ^ PPOSU23 EQU * ^ * P CF A14,STOINF SAVE SCREEN I
0x32b414…32b5a8 Dummy {f00=0x00ff, f01=0x0190, f02=»NEXT UNPROTECTED FIELD ^ PPOSU30 EQU * _ P LD A8,ECBVDU,A11 _ 2 P LD A1,ECBCW,A8 _ L P ANK A1,/FF LINE POS. _ d " P SUK A1,81 LAST POS. ON LINE? _ P RF(NZ) POSU90 NO _ P LDK A1,2 REQ. LENGTH _ P CF A14,DISCHA SET CURSOR _ PPOSU90
0x32b5a8…32b73c Dummy {f00=0x00ff, f01=0x0190, f02=» * _ x @ P* DISID DISPLAY HARDCOPY TASKID * ` , @ P* * ` p @ P************************************************************ ` P* R
0x32b73c…32b8d0 Dummy {f00=0x00ff, f01=0x0190, f02=»U,A11 ` & P CF A14,SPACES SPACE IN ECB BUFFER a & P LD A3,6,A13 GET COMMON BLOCK BASE a 8 P LDR A1,A5 SAVE TASK ID a b P LDK A5,IDTEXT a P ADR A5,A3 POINT ON IDBUFFER a P ADK A6,46 a P LDK A3,6 a P ANK A4,1 PRINTER OPERABLE? a P RF(
0x32b8d0…32ba64 Dummy {f00=0x00ff, f01=0x0190, f02=»A2,A5 a P STR A2,A6 b P ADK A5,2 b P ADK A6,2 b 2 P RB DISI10 b D PDISI20 EQU * b V P LD A6,ECBBA,A8 b j . P ST A1,ECBBA+52,A6 SAVE TASK ID IN BUFFER b & P LC A2,X'1F' HIGH INTENSITY CHAR. b P SC A2,ECBBA+45,A6 b ( P LDKL A10,1 INDI
0x32ba64…32bbf8 Dummy {f00=0x00ff, f01=0x0190, f02=»A14,DISLIN DISPLAY IDENT TEXT b P RTN A14 c & P EJECT c 6 B P************************************************************** c D P* c P* DISSTA DISPLAY STATISTICS c P* c D P*************************************************************** c
0x32bbf8…32bd8c Dummy {f00=0x00ff, f01=0x018e, f02=» P IFT TEST=1 d P LD A8,ECBVDU,A11 d " P LDK A1,STALIN WHERE TO START d 2 P SLL A1,8 d X P LDK A2,1 d j & P ORR A2,A1 FIRST POS. ON THAT LINE d | P ST A2,ECBCW,A8 d $ P CF A14,SPACES CLEAN THE BUFFER d P LDK A5,0 RESET INDEX d P LD
0x32bd8c…32bf20 Dummy {f00=0x00ff, f01=0x0190, f02=» d P LDKL A9,1 e , P LDK A1,TXTSIZ GET SIZE OF TEXT PER LINE e ( P CF A14,MOVTXT MOVE IT IN TO BUFFER e J $ P ADK A6,5+STAPOS MAKE SOME ROOM e v P LC A1,INDEX,A5 e P SLL A1,1 e $ P ADR A1,A12 POINT OUT STAT VALUE e P LCR A2,A1 e " P CF A1
0x32bf20…32c0b4 (4, 57) Dummy {f00=0x00ff, f01=0x0190, f02=» e P SC A2,+1,A6 f P SRL A2,8 f P SCR A2,A6 f . P ADK A6,2 f @ P LC A2,+1,A1 f R P CF A14,CONASC AS ABOVE f f P LDR A4,A2 f P LC A2,+1,A1 f P SRL A2,4 f P CF A14,CONASC f P SLL A2,8 f P ORR A2,A4 f P SC A2,+1,A6 f
0x32c0b4…32c248 Dummy {f00=0x00ff, f01=0x0190, f02=»CHED? f x P RB(NE) DISS10 NO g P XIF g ( P RTN A14 g 4 P IFT TEST=1 g D P EJECT g X @ P*********************************************************** g f P* g P* MOVTXT MOVE TEXT g P* g @ P************************************************
0x32c248…32c3dc Dummy {f00=0x00ff, f01=0x0190, f02=» PMOVTXT EQU * h P LCR A2,A3 h P ADK A3,1 h * P SC A2,STAPOS,A6 h < P ADK A6,1 h T P SUK A1,1 h f P RB(NZ) MOVTXT h x P RTN A14 h P EJECT h > P********************************************************** h P* h P* CONASC CONVERT
0x32c3dc…32c570 Dummy {f00=0x00ff, f01=0x0190, f02=»****************************************************** h PCONASC EQU * i > P ANK A2,/0F i R P CCK A2,/0909 i f P RF(G) CONA10 i | P ORK A2,/30 i P RF CONA90 i PCONA10 EQU * i P ADK A2,/37 i PCONA90 EQU * i P RTN A14 i P XIF
0x32c570…32c704 Dummy {f00=0x00ff, f01=0x0190, f02=» * i ` > P* ATMASF SEARCH ATTRIBUTE FORWARD * j > P* * j T > P********************************************************* j P* REGISTERS j P* j ( P* A1= AT ENTRY STA
0x32c704…32c898 Dummy {f00=0x00ff, f01=0x0190, f02=»A6= ATTRIBUTE CHAR. j P* A8= RESERVED k P* A9= RESERVED k 2 P* A10= RESERVED k H P* A11= CREDIT WORK AREA k ` P* A13= RESERVED k P* k > P********************************************************* k PATMASF EQU * k P ST A1,REGI,A11
0x32c898…32ca2c Dummy {f00=0x00ff, f01=0x0190, f02=»EN k t PASF200 EQU * l * P CW A1,REGI,A11 WHOLE SCREEN SEARCHED? l P RF(E) ASF900 YES l L * P CF A14,GETVDU GET CHAR. IN VDU BUFFER l f P CCK A7,/8000 ATTRIBUTE? l P RB(L) ASF100 NO l P LDR A6,A7 l P LDR A5,A1 l . P CF A14,STOINF SAVE NEW
0x32ca2c…32cbc0 Dummy {f00=0x00ff, f01=0x0190, f02=»*********** l T L P* * m L P* ATMASB SEARCH ATTRIBUTE BACKWARD * m d L P* * m L P****
0x32cbc0…32cd54 (4, 58) Dummy {f00=0x00ff, f01=0x018e, f02=»R. m r P* A2= RESERVED n P* A3= RESERVED n P* A4= REL. CURSOR POS. n 6 P* A5= REL. ATTRIBUTE POS. n T P* A6= ATTRIBUTE CHAR. n v P* A8= RESERVED n P* A9= RESERVED n P* A10= RESERVED n P* A11= CREDIT WORK AREA n P* A13= RESERVED
0x32cd54…32cee8 Dummy {f00=0x00ff, f01=0x0190, f02=» n ~ PASB100 EQU * o * P CF A14,GETVDU GET CHAR. IN VDU BUFFER o P CCK A7,/8000 ATTRIBUTE? o J P RF(NL) ASB300 YES o j P SUK A1,1 o " P RF(NN) ASB200 NOT WRAP AROUND o ( P LDKL A1,LBVDU-1 LAST POS. ON SCREEN o PASB200 EQU * o * P CW A1,REGI,
0x32cee8…32d07c Dummy {f00=0x00ff, f01=0x0190, f02=»F A14,STOINF SAVE SCREEN INFORMATION o PASB900 EQU * p , P RTN A14 p @ P EJECT p P D P*************************************************************** p ^ D P* * p D P* SNULL SEARC
0x32d07c…32d210 Dummy {f00=0x00ff, f01=0x0190, f02=»********************************************* p ~ P* REGISTERS q 6 P* q J 2 P* A1= AT RETURN 1=NULL FOUND, 2=NO NULL FOUND q T P* A2= RESERVED q B P* A3= AT ENTRY LAST SEARCH ADDR., AT RETURN NULL ADDR. IF ANY q P* A4= REL. CURSOR POS. q P* A5
0x32d210…32d3a4 Dummy {f00=0x00ff, f01=0x0190, f02=»********************************** q r PSNULL EQU * r * P LDR A1,A4 r > PSNU100 EQU * r P P ADK A1,1 r d P CWK A1,LBVDU-1 WRAP AROUND? r v P RF(NG) SNU200 NO r P LDK A1,0 FIRST SCREEN POS. r PSNU200 EQU * r P CWR A1,A3 ALL SEARCHED? r
0x32d3a4…32d538 Dummy {f00=0x00ff, f01=0x0190, f02=»DR A3,A1 r " P LDK A1,1 INDICATE NULL FOUND s P RF SNU900 s 6 PSNU300 EQU * s H P LDK A1,2 s PSNU900 EQU * s n P RTN A14 s P EJECT s @ P************************************************************ s @ P*
0x32d538…32d6cc Dummy {f00=0x00ff, f01=0x0190, f02=» * s l @ P************************************************************ t P* REGISTERS t d P* t x P* A2= KEY-CHAR t P* A4= REL. CURSOR POS. t P* A5= REL. ATTRIBUTE POS. t P* A6= ATTRIBUTE CHAR. t P* A8= VDU-ECB t
0x32d6cc…32d860 Dummy {f00=0x00ff, f01=0x0190, f02=» PWCHAR EQU * u P LD A8,ECBVDU,A11 u $ P LDK A1,/1E LOW INTENSITY CHAR. u 2 P LDR A7,A6 u Z P ANK A7,/8 STANDARD DISPLAY? u l P RF(Z) WCH300 YES u P LDR A7,A6 u $ P ANK A7,/4 INTENSIFIED DISPLAY? u P RF(NZ) WCH200 NO u $ P LDK A1,/1
0x32d860…32d9f4 (4, 59) Dummy {f00=0x00ff, f01=0x0190, f02=»T BUFFER ADDRESS u ~ $ P SC A1,2,A7 SAVE INTENSITY CHAR. v * P CF A14,RFMDUP REPLACE FM OR DUP CHAR. v @ * P SC A2,3,A7 STORE CHAR. IN VDU BUFFER v n P LDK A1,4 REQ. LENGTH v P CF A14,DISCHA DISPLAY v P ADK A4,1 v P IM PCURS,A11 v ( P CWK A5,
0x32d9f4…32db88 Dummy {f00=0x00ff, f01=0x0190, f02=» A1,A5 v P LDR A7,A6 w , P CF A14,STOVDU STORE CHAR. IN VDU BUFFER w PWCH900 EQU * w P P RTN A14 w d P EJECT w t > P********************************************************* w > P* * w > P*
0x32db88…32dd1c Dummy {f00=0x00ff, f01=0x0190, f02=»*************************************************** w P* REGISTERS x < P* A2= KEY-CHAR x P P* A4= RESERVED x f P* A5= RESERVED x | P* A6= RESERVED x P* A11= CREDIT WORK AREA x P* A13= RESERVED x P* x 4 P******************************
0x32dd1c…32deb0 Dummy {f00=0x00ff, f01=0x0190, f02=»RFMD90 x PRFMD10 EQU * y P CWK A2,FMCH FM CHAR? y " P RF(NE) RFMD90 NO y @ P LDK A2,/3B REPLACE y Z PRFMD90 EQU * y v P RTN A14 y P EJECT y 4 P************************************************ y 4 P*
0x32deb0…32e044 Dummy {f00=0x00ff, f01=0x0190, f02=»**************************************** y P* REGISTERS z 0 P* z D P* A1= REQ. LENGTH z N P* A2= RESERVED z h P* A4= RESERVED z ~ P* A5= RESERVED z P* A6= RESERVED z P* A8= VDU-ECB z P* A11= CREDIT WORK AREA z P* A13= RESERVED z
0x32e044…32e1d8 Dummy {f00=0x00ff, f01=0x0190, f02=»NTER UNPACK? z ~ P RF(NE) DISC95 YES { P LD A8,ECBVDU,A11 { . P ST A1,ECBRL,A8 { H ( P LDKL A1,/101 START AT LINE 1 POS. 1 { ` P ST A1,ECBCW,A8 { P LDKL A1,/100 { P LDR A7,A4 CURSOR POS. { PDISC10 EQU * { P CWK A7,LLINE NEXT LINE? {
0x32e1d8…32e36c Dummy {f00=0x00ff, f01=0x40a4, f02=»7,ECBCW,A8 POSITION IN LINE { $ P LDK A7,/8B SET CURSOR AND WRITE | $ P LKM | L P DATA 1 | X PDISC95 EQU * | h P RTN A14 | | P | P END | @ | LDKL A1,/100 { P LDR A7,A4 CURSOR POS. { PDISC10 EQU * { P CWK A7,LLINE NEXT LINE? {
0x32e36c…32e500 Dummy {f00=0x00ff, f01=0x2008, f02=» } ) DATA PF 24 * * $ END * ,@ * 8 6 ) 4 DATA PF 7 ) F DATA PF 8 ) X DATA PF 9 ) j DATA PF 10 ) | DATA PF 11 ) DATA PF 12 ) DATA PF 13 ) DATA PF 14 ) DATA PF 15 ) *C0 ) DATA PF
0x32e500…32e694 (4, 60) Dummy {f00=0x0100, f01=0x0190, f02=» & A *<a P j A ) " A H A @ & @ @ T A A P@ @ PB @ ! T A @ A # A $ RE bRN cME nMN o W R, ( T ( W P T $ ; V ;
0x32e694…32e828 Dummy {f00=0x0100, f01=0x0190, f02=» Y W Y Y @ " P$ @ = ] ] ] W A A A W ^ P _ " ^ T @ 9J A T _ 1@ _ ^ 9 V >! D A A > > > > > > > > ^ _ ^ _ ? ? ? ? ? A D ^ @ ?
0x32e828…32e9bc Dummy {f00=0x0100, f01=0x0190, f02=» A ^ " , , A A :B A Q (P _ # # H A " A F 0R$ 9U AR FQ 0:D A F _* A F " A p A r T A r A p " R _U . " A : A " A A $ T !
0x32e9bc…32eb50 Dummy {f00=0x0100, f01=0x0190, f02=» < H > " ! R :W" W W W ?W /W : A W ! A A PL _ " @ _ I T " T A P I T$! A A A A A A A A A F
0x32eb50…32ece4 Dummy {f00=0x0100, f01=0x0190, f02=» A P A < V A > > " @ A W XW ^ ! Z2 (X: @ P T M ]J , ) A P* P Y U ( ) 5 & > > [ [ Z Z Z ? Z > A _ @ > > U # T @ 8 H ( ( P c P W6 *^ A
0x32ece4…32ee78 Dummy {f00=0x0100, f01=0x0190, f02=» XB ) A A _N A A h A _` A A Q > ? A F A Q _ A < Q P Q R Y _ A _0 8 Q Z P 0 9 _ _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ $P T
0x32ee78…32f00c Dummy {f00=0x0100, f01=0x0190, f02=» U T P 0 U _h ? @plT 0 Apl 1 Q Q > > 0 @pl 1 Apl P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @* V ? * > _ > ? _ > > ? ^ ! Y ^ _
0x32f00c…32f1a0 Dummy {f00=0x0100, f01=0x0190, f02=» p $ ( , 0 4 8 < C C T 8P Y ^ 5 ) P U XJ XF Y @ P R T X 0P Xh I Y T # C C W4 O " # X Y ) C C
0x32f1a0…32f334 (4, 61) Opaque[0x194]
0x32f334…32f4c8 # DirEnt {nam=»PAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2008, f03=0x0000}
0x32f334…32f4c8 IdxSect {
0x32f334…32f4c8 f00 = 0x0100 // 0x32f334 @0x0
0x32f334…32f4c8 f01 = 0x0024 // 0x32f336 @0x2
0x32f334…32f4c8 gno = [ // 0x32f338 @0x4
0x32f334…32f4c8 [0x00]: C0x0100.0x1.0
0x32f334…32f4c8 [0x01]: C0x0100.0x2.0
0x32f334…32f4c8 [0x02]: C0x0100.0x3.0
0x32f334…32f4c8 [0x03]: C0x0101.0x0.0
0x32f334…32f4c8 [0x04]: C0x0101.0x1.0
0x32f334…32f4c8 [0x05]: C0x0101.0x2.0
0x32f334…32f4c8 [0x06]: C0x0101.0x3.0
0x32f334…32f4c8 [0x07]: C0x0102.0x0.0
0x32f334…32f4c8 [0x08]: C0x0102.0x1.0
0x32f334…32f4c8 [0x09]: C0x0102.0x2.0
0x32f334…32f4c8 [0x0a]: C0x0102.0x3.0
0x32f334…32f4c8 [0x0b]: C0x0103.0x0.0
0x32f334…32f4c8 [0x0c]: C0x0103.0x1.0
0x32f334…32f4c8 [0x0d]: C0x0103.0x2.0
0x32f334…32f4c8 [0x0e]: C0x0103.0x3.0
0x32f334…32f4c8 [0x0f]: C0x0104.0x0.0
0x32f334…32f4c8 [0x10]: C0x0104.0x1.0
0x32f334…32f4c8 [0x11]: C0x0104.0x2.0
0x32f334…32f4c8 ]
0x32f334…32f4c8 }
0x32f4c8…32f65c Dummy {f00=0x0100, f01=0x0190, f02=» 0 P IDENT PAD REL 11.0 DK 82-04-22 870150541100 P 8 & P DK1, ATTRIBUTE ERROR + 2X PRINT @ P =4 COPY TO PRINTER j P 81-05-06 P =3, MISSING ITEM P 81-01-26 P =2, SAVE REG. P 81-01-26 P =1, RA ON EUQ
0x32f65c…32f7f0 Dummy {f00=0x0100, f01=0x0190, f02=» * r B P* MODULE PAD * ( B P* MODULE HANDLING THE PACKING AND * n B P* UNPACKING OF THE DCBUFFER. THE VDU * B P*
0x32f7f0…32f984 Dummy {f00=0x0100, f01=0x0190, f02=» * B P************************************************************* < P EJECT F P***************************************************************** P* P* LIST OF ROUTINES P* @ P
0x32f984…32fb18 Dummy {f00=0x0100, f01=0x0190, f02=» RETTAB RETURN ADDRESSES ( P* UNPCOM UNPACK COMMANDS $ & P* UNPORD UNPACK ORDERS P $ P* ORDTAB ORDER TABLE z $ P* SF START FIELD * P* SBA SET BUFFER ADDRESS & P* IC
0x32fb18…32fcac Dummy {f00=0x0100, f01=0x0190, f02=»E UNPRO. TO ADDRESS x ( P* CHAR < /20 BUT NOT ORDERS 6 P* PACKSY PACK DC-BUFFER IN SYSTEM MODE H 8 P* UNPSYS UNPACK DC-BUFFER IN SYSTEM MODE 2 P* GETNXT GET AND CHECK NEXT BUFFER 8 P* PUTCHA
0x32fcac…32fe40 Dummy {f00=0x0100, f01=0x018e, f02=»* PAID STORE AID IN BUFFER : P* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER 0 8 P* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES n 2 P* P1WCC PROCESS WCC BEFORE UPDATE 6 P* P2WCC TAKE CARE OF WCC AFT
0x32fe40…32ffd4 (4, 62) Dummy {f00=0x0100, f01=0x0190, f02=» V $ P* BUFFER BUFFER POOL " P* GETBUF GET BUFFER 0 & P* RELBUF RELEASE BUFFER V P* F P****************************************************************** P EJECT B P**************************************
0x32ffd4…330168 Dummy {f00=0x0100, f01=0x0190, f02=» * n B P* * $ B P************************************************************* j P 0 P ENTRY PACK PACK MOD. FIELDS INTO DC BUFFER 2 P ENTRY UNPACK UNPACK DC BUFF
0x330168…3302fc Dummy {f00=0x0100, f01=0x0190, f02=»E DC BUFFER | , P ENTRY PAID STORE AID CODE IN DC BUFFER 2 P ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER D 0 P ENTRY PACKSY PACK DC BUFFER IN SYSTEM MODE z P ENTRY SAVE1 SAVE REGISTERS " P ENTRY REST1 RESTORE REGISTERS P P EJECT
0x3302fc…330490 Dummy {f00=0x0100, f01=0x0190, f02=»XTERNAL REFERENCES * 8 P* * 2 8 P*************************************************** n P 0 P EXTRN CONEBC CONVERT ASCII-EBCDIC (CONVER) 0 P EXTRN CONASC CONVERT EBCDIC-ASCI
0x330490…330624 Dummy {f00=0x0100, f01=0x0190, f02=»NVERT ORDER TO INDEX (CONVER) . P EXTRN CONATT CONVERT ATTRIBUTE (CONVER) & . P EXTRN SCRINF GET SCREEN INFORMATION (VDU) X 8 P EXTRN ERASUP ERASE UNPROTECTED ENTIRE SCREEN (VDU) & P EXTRN COPY LOCAL HARDCOPY (KEYB) * P EXTRN SOUND SOUND ALARM
0x330624…3307b8 Dummy {f00=0x0100, f01=0x0190, f02=» WRAP CHECK IF WRAP AROUND (VDU) 0 P EXTRN STOINF SAVE SCREEN INFORMATION (VDU) ( ( P EXTRN LMP4ON INHIBIT LAMP ON (KEYB) 2 P EXTRN READNW READ WITH NO WAIT (DCSNA,DCBSC) * P EXTRN WAIT SYNCHRONIZE (DCSNA,DCBSC) 0 P EXTRN DCWRIT WRITE DC BUFFE
0x3307b8…33094c Dummy {f00=0x0100, f01=0x0190, f02=»OUT NEW LINE ROUTINE (VDU) " P EXTRN LINE WRAP ROUTINE (VDU) " 2 P EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) H , P EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU) ~ & P EXTRN ERROR ERROR INCATOR (KEYB) 2 P EXTRN MATCH MATCH ADDRESS AND TASKID (DSPBSC)
0x33094c…330ae0 Dummy {f00=0x0100, f01=0x018e, f02=» h P EXTRN LMP3ON P EJECT 8 P*************************************************** , 8 P* * h 8 P* CONDITIONAL ASSEMBLY PARAMETERS * 8 P*
0x330ae0…330c74 (4, 63) Dummy {f00=0x0100, f01=0x0190, f02=» & PX:K EQU 2 NUMBER OF BUFFERS (1-32) PBUFFNR EQU 02 2 * PX:L EQU 1000 MAX BUFFER SIZE IN WORDS H PBUFFL EQU 1150 v * PX:M EQU 0 COPY COMMAND INCLUDED IF:=1 PCOPCMD EQU 1 PX:N EQU 1 EBCDIC CHAR IF:=1 PEBCDIC EQU 1 * PX:
0x330c74…330e08 Dummy {f00=0x0100, f01=0x0190, f02=»******* X D P* * & P* DECLARATION OF DATA AND EQUATES X D P* * D P**************************************************************
0x330e08…330f9c Dummy {f00=0x0100, f01=0x0190, f02=»NGTH x PECBEL EQU 6 EFFECTIVE LENGTH PECBRC EQU 8 RETURN CODE 0 PECBCW EQU 10 CONTROL WORD P P* r P* INTERNAL STATUS | P* , PLICREC EQU /2000 LAST IN CHAIN RECEIVED " PTHROWB EQU /0800 THROW BUFFERS PNEWCH EQU /0400 NE
0x330f9c…331130 Dummy {f00=0x0100, f01=0x0190, f02=» SNA MODES P* PLOCMOD EQU 0 LOCAL MODE PSYSOP EQU 2 SYSTEM MODE > PMYJOB EQU 4 MY JOB MODE ^ P XIF ~ P* P* TASK IDENTIFICATION CODE P* PVDUCOD EQU 'VV' VDU KB TASK P* P* SPECIAL CHARACTERS
0x331130…3312c4 Dummy {f00=0x0100, f01=0x0190, f02=»E P* PLBVDU EQU 1920 TOTAL SIZE PLLINE EQU 80 LINE LENGTH 6 P* V P* BUFFER LINK LENGTH ` P* PLINK EQU BUFFL+BUFFL+2 P EJECT P* P* RELATIVE ADDRESSES IN P* TERMINAL WORKBLOCK P* $
0x3312c4…331458 Dummy {f00=0x0100, f01=0x0190, f02=»U LINFLG+24 CURSOR ADDRESS , BINARY PCURATT EQU PCURS+4 , & PWCC EQU CURATT+2 WCC/CCC CHARACTER F & PKBINH EQU WCC+2 INHIBIT INDICATOR p * PDCLENG EQU KBINH+4 LENGTH OF DC BUFFER 2 PCURPOS EQU DCLENG+30 CURSOR POS IN SYSTEM MODE & PBUFPNT EQU
0x331458…3315ec Dummy {f00=0x0100, f01=0x0190, f02=» $ PUNPMOD EQU STACK2+14 UNPACK MODE PSNAMOD EQU UNPMOD+2 SNA MODE , 0 PECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 P P EJECT @ P************************************************************ @ P*
0x3315ec…331780 Dummy {f00=0x0100, f01=0x0190, f02=» * ` B P************************************************************* P* REGISTERS P* p P* A2= CHAR. z P* A3= ADDRESS IN VDU-BUFFER P* A4= REL. CURSOR POS. P* A5= REL. ATTRIBUTE POS. P* A6= ATTRIBUTE CHAR
0x331780…331914 (4, 64) Dummy {f00=0x0101, f01=0x0190, f02=»ADDRESS P* A13= RESERVED P* ( @ P************************************************************ 2 PPACK EQU * v * P CF A14,SCRINF GET SCREEN INFORMATION P LDK A4,0 FIRST SCREEN POS. P LDKL A3,BVDU P ADR A3,A11 P LDR
0x331914…331aa8 Dummy {f00=0x0101, f01=0x018e, f02=» CHAR. P CCK A2,/8000 ATTRIBUTE? P RF(NL) PACK15 YES . P ADK A3,1 H P ADK A4,1 Z P RB PACK10 l PPACK15 EQU * ~ P LDR A10,A4 START ADDRESS P RF PACK30 PPACK20 EQU * & P CF A14,WRAP CHECK IF WRAP AROUND P CWR
0x331aa8…331c3c Dummy {f00=0x0101, f01=0x0190, f02=» P CCK A2,/8000 ATTRIBUTE? P RB(L) PACK20 NO $ P ANK A2,1 MODIFIED FIELD? < P RF(NZ) PACK50 YES ^ * P* POINTER UPDATE REMOVED DK1 x P RB PACK20 PPACK50 EQU * " P LDK A2,SBACH SBA TO DC-BUFFER P LDKL A1,/8000 INDICAT
0x331c3c…331dd0 Dummy {f00=0x0101, f01=0x0190, f02=»ADDRESS TO DC-BUFFER ~ P CF A14,BUFADR PPACK60 EQU * 2 & P CF A14,WRAP CHECK IF WRAP AROUND F P CWR A10,A4 ALL SCANNED? p P RF(E) PACK80 YES PPACK70 EQU * P LCR A2,A3 GET CHAR. P CCK A2,/8000 ATTRIBUTE? P RB(NL) PACK20
0x331dd0…331f64 Dummy {f00=0x0101, f01=0x0190, f02=»RANSMISSION OK? P RF(NZ) PACK90 NO PPACK75 EQU * 2 P ADK A3,1 F P ADK A4,1 X P RB PACK60 j PPACK80 EQU * | $ P LDK A1,0 INDICATE LAST IN CHAIN " P CF A14,DCWRIT WRITE DC BUFFER PPACK90 EQU * " P LDR A8,A12 BUFFER TO
0x331f64…3320f8 Dummy {f00=0x0101, f01=0x0190, f02=»******** @ P* * @ P* UNPACK UNPACK DC-BUFFER AND UPDATE VDU * T @ P* * @ P********************************************
0x3320f8…33228c Dummy {f00=0x0101, f01=0x018e, f02=» P* A5= LAST IN ROW REL POS $ P* A6= INTERNAL LINE FLAG ADDRESS & P* A8= ADDRESS IN DC-BUFFER N P* A9= DC-BUFFER INDEX p P* A10= INDICATOR P* A11= CREDIT WORK AREA P* A12= RESERVED P* A13= RESERVED P* < P********
0x33228c…332420 Dummy {f00=0x0101, f01=0x0190, f02=» P LC A1,TCT01,A11 " P CCK A1,VDUCOD PRINTER UNPACK? P RF(NE) UNP050 YES B " P CF A14,LMP3ON INHIBIT LAMP ON PUNP050 EQU * * P CF A14,SCRINF GET SCREEN INFORMATION P LDR A6,A11 P LDK A5,LLINE * P CF A14,LINE CHECK WRAP AN
0x332420…3325b4 (4, 65) Dummy {f00=0x0101, f01=0x0190, f02=»1 PUNP100 EQU * P CF A14,GDCCH GET CHAR. P LDR A1,A1 ANYTHING LEFT? > P RF(NZ) UNP200 NO ` . P LD A1,UNPMOD,A11 GET ADDRESS TO START AT z P CFI A14,RETTAB,A1 RESTART P LDR A1,A1 PROCESS OKEY? P RB(Z) UNP100 YES P
0x3325b4…332748 Dummy {f00=0x0101, f01=0x0190, f02=»NO P XIF PUNP300 EQU * " P CF A14,SCRINF GET LATEST NEWS * P LDR A1,A4 P . P CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS b P IFT SNA=1 $ P ANKL A10,THROWB THROW BUFFERS? P RF(Z) UNP400 NO P CF A14,THRBUF THROW BUFFERS
0x332748…3328dc Dummy {f00=0x0101, f01=0x0190, f02=»4,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! PUNP500 EQU * 4 P XIF H * P CF A14,P2WCC CHECK IT A LAST TIME =4 T & P LDR A8,A12 GET BUFFER TO RELEASE " P CF A14,RELBUF RELEASE BUFFER PUNP600 EQU * P RTN A14 P EJECT J P****
0x3328dc…332a70 Dummy {f00=0x0101, f01=0x0190, f02=» * R J P* INDEX FOR RETURNS AFTER GET CHARCTER * ! J P* * ! ^ J P********************************************************************** ! P ! PICOMND
0x332a70…332c04 Dummy {f00=0x0101, f01=0x018e, f02=» COPCMD=1 ! PICOWCC EQU ICOMN1+2 " P XIF " . PIORDER EQU ICOWCC+2 " : PIOSFAT EQU IORDER+2 " V PIOSBA1 EQU IOSFAT+2 " r PIOSBA2 EQU IOSBA1+2 " PIORAA1 EQU IOSBA2+2 " PIORAA2 EQU IORAA1+2 " PIORACH EQU IORAA2+2 " PIOEUA1 EQU
0x332c04…332d98 Dummy {f00=0x0101, f01=0x0190, f02=» J P* * # J P* RETURN ADDRESSES AFTER GET CHARACTER * # R J P* * # J P**************************
0x332d98…332f2c Dummy {f00=0x0101, f01=0x0190, f02=»OMMAND CHAR AFTER ESC. # z P IFT COPCMD=1 $ $ P DATA UNC150 PROCESS FROM DEVICE $ 4 P XIF $ P DATA UNC600 PROCESS WCC $ h * P DATA UNPORD PROCESS ORDERS AND CHAR. $ " P DATA SF100 PROCESS ATTRIBUTE $ , P DATA SBA100 PROCESS FIRST ADDRESS BYTE $
0x332f2c…3330c0 Dummy {f00=0x0101, f01=0x0190, f02=»E $ j ( P DATA RA250 PROCESS CHAR. TO REPEAT % , P DATA EUA100 PROCESS FIRST ADDRESS BYTE % 6 , P DATA EUA200 PROCESS FIRST ADDRESS BYTE % f P EJECT % L P*********************************************************************** % L P*
0x3330c0…333254 (4, 66) Dummy {f00=0x0101, f01=0x0190, f02=» L P* * & L P*********************************************************************** & T P* REGISTERS & P* & P* A2= CHAR. & P* A3= ADDRESS IN VDU-BUFFER & P* A4= REL. CUR
0x333254…3333e8 Dummy {f00=0x0101, f01=0x0190, f02=»SERVED & P* A10= INDICATOR ' P* A11= CREDIT WORK AREA ' & P* A12= RESERVED ' F P* A13= RESERVED ' ^ P* ' v L P************************************************************************ ' ( PUNPCOM EQU * ENTRY LABEL FROM RETTAB ' P IFF SNA=1 '
0x3333e8…33357c Dummy {f00=0x0101, f01=0x0190, f02=»E) UNC900 YES ' P LDK A1,1 NO INDICATE ERROR ( P RF UNC900 ( : P XIF ( L PUNC100 EQU * ( X P CWK A2,/31 WRITE? ( l P RF(E) UNC500 YES ( P CWK A2,/35 ERASE AND WITE? ( P RF(E) UNC200 YES ( & P CWK A2,/3F ERASE ALL UNPROTECTED? ( P
0x33357c…333710 Dummy {f00=0x0101, f01=0x0190, f02=» ( t P RF UNC800 ) ( PUNC150 EQU * ENTRY LABEL FROM RETTAB ) P CF A14,MATCH GET TASKID ) F P LDR A1,A1 OK? ) f P RF(NZ) UNC175 NO ) | 6 P LDKL A1,/8000 RETURN CODE TO INDICATE COPY COMND. ) P ST A1,REGI,A11 ) P LD A8,ECBICW,A11 ) P CF A1
0x333710…3338a4 Dummy {f00=0x0101, f01=0x0190, f02=»A14,ICWRT SEND IT ) PUNC175 EQU * * P XIF * . $ P LDKL A10,THROWB THROW THE REST * : P LDK A1,1 INDICATE ERROR * b P RF UNC900 INVALID COMMAND * PUNC200 EQU * * P ST A8,REGI,A11 * & P CF A14,ERASE ERASE ENTIRE SCREEN * P LD A8,REGI,A1
0x3338a4…333a38 Dummy {f00=0x0101, f01=0x0190, f02=»A14,ERASUP ERASE ALL UNPROTECTED * " P LDKL A10,THROWB THROW IT AWAY + ( P LDK A1,1 INDICATE ERROR + N P RF UNC900 + n PUNC500 EQU * + P LDK A1,ICOWCC GET INDEX + P ST A1,UNPMOD,A11 + P LDK A1,0 + P RF UNC900 + ( PUNC600 EQU * ENTRY LAB
0x333a38…333bcc Dummy {f00=0x0101, f01=0x018e, f02=»1 + & P ORKL A10,PTORD INDICATE PT ORDER , & P LDK A1,IORDER INDICATE NEXT CALL , 4 PUNC800 EQU * , ^ P ST A1,UNPMOD,A11 , r P LDK A1,0 , PUNC900 EQU * , P RTN A14 , P EJECT , > P********************************************************
0x333bcc…333d60 Dummy {f00=0x0101, f01=0x0190, f02=» , T > P* * - > P********************************************************** - J P* REGISTERS - P* - P* A2= CHAR. - P* A3= POINTER IN VDU BUFFER - P* A4= REL. CURSOR POS. - P* A5= LA
0x333d60…333ef4 (4, 67) Dummy {f00=0x0101, f01=0x0190, f02=»A11= RESERVED - P* A12= RESERVED . P* A13= RESERVED . . P* . F > P********************************************************** . P ( PUNPORD EQU * ENTRY LABEL FROM RETTAB . P CWK A2,/20 ORDER? . P RF(L) UNO100 YES . * P XRKL A10,PTORD INDICA
0x333ef4…334088 Dummy {f00=0x0101, f01=0x0190, f02=»A3 STORE CHAR. IN VDU BUFFER . P LC A1,LINFLG,A6 / $ P ORK A1,1 / < P SC A1,LINFLG,A6 / N P ADK A4,1 / f P ADK A3,1 / x P LDK A1,0 / P RF UNO200 / PUNO100 EQU * / $ P LC A1,CONORD,A2 GET ORDER INDEX / * P CFI A14,ORDTAB,A1 TAKE CARE O
0x334088…33421c Dummy {f00=0x0101, f01=0x0190, f02=»* * / B P* ORDTAB ORDER TABLE * 0 F B P* * 0 B P******************************************************
0x33421c…3343b0 Dummy {f00=0x0101, f01=0x0190, f02=»ATA IC INSERT CURSOR 0 P DATA PT TAB. 1 P DATA RA REPEAT TO AADRESS 1 2 * P DATA EUA ERASE UNPROTECTED TO ADDRESS 1 T P DATA ESC ESCAPE 1 P DATA NULCHA NULL CHAR. 1 P DATA NL NEW LINE 1 P DATA FF FORM FEED 1 P DATA EM END MESSAGE 1
0x3343b0…334544 Dummy {f00=0x0101, f01=0x0190, f02=» * 1 | @ P* SF START FIELD * 2 0 @ P* * 2 t @ P*********************************************************** 2 P* REGISTERS
0x334544…3346d8 Dummy {f00=0x0101, f01=0x0190, f02=»= RESERVED 2 P* A6= RESERVED 3 P* A8= RESERVED 3 ( P* A9= DC-BUFFER INDEX 3 > P* A10= INDICATOR 3 P* A11= CREDIT WORK AREA 3 t P* A12= RESERVED 3 P* A13= RESERVED 3 P* 3 @ P**********************************************************
0x3346d8…33486c Dummy {f00=0x0101, f01=0x0190, f02=»TRY LABEL FROM RETTAB 3 P LDK A1,IORDER NEXT ALBEL 4 P ST A1,UNPMOD,A11 4 @ P LC A2,CONATT,A2 IN EBCDIC 4 Z P ORK A2,/80 ATTR. BIT 4 | P CM CURATT,A11 4 P ORKL A10,ATTREC+PTORD 4 P CF A14,LINWRP CHECK WRAP 4 P LC A1,LINFLG,A6 4 P
0x33486c…334a00 Dummy {f00=0x0101, f01=0x0190, f02=»ATTREC INDICATE ATTRIBUTE RECEIVED 4 P SCR A2,A3 STORE CHAR. 5 * P ADK A3,1 5 H P ADK A4,1 5 Z PSF900 EQU * 5 l P LDK A1,0 5 P RTN A14 5 P EJECT 5 @ P*********************************************************** 5 @ P*
0x334a00…334b94 (4, 68) Dummy {f00=0x0102, f01=0x0190, f02=» * 5 | @ P*********************************************************** 6 0 P* REGISTERS 6 t P* 6 P* A1= RETURN CODE 6 P* A2= CHAR. 6 P* A3= RESERVED 6 P* A4= RESERVED 6 P* A5= RESERVED 6 P* A6=
0x334b94…334d28 Dummy {f00=0x0102, f01=0x0190, f02=» P* A13= RESERVED 7 P* 7 @ P*********************************************************** 7 & PSBA EQU * 7 j P LDK A1,IOSBA1 NEXT LABEL 7 | P ST A1,UNPMOD,A11 7 P LDK A1,0 7 P RF SBA900 FIRST BYTE 7 ( PSBA100 EQU * ENTRY LABEL FROM RE
0x334d28…334ebc Dummy {f00=0x0102, f01=0x0190, f02=»1,0 7 P RF SBA900 NEXT BYTE 8 ( PSBA200 EQU * ENTRY LABEL FROM RETTAB 8 ( P LC A2,CONATT,A2 8 T P ANK A2,/3F 8 l P ORR A7,A2 8 P LDK A1,IORDER NEXT LABEL 8 P ST A1,UNPMOD,A11 8 " P CWK A7,LBVDU ILLEGAL ADDRESS? 8 P RF(NL) SBA800 YES 8
0x334ebc…335050 Dummy {f00=0x0102, f01=0x0190, f02=»NE CHECK WRAP AND LINE FLAGS 8 P LDK A1,0 REURN CODE 9 $ P RF SBA900 9 @ PSBA800 EQU * 9 R " P ORKL A10,THROWB DON'T SAVE IT 9 f P LDK A1,1 RETURN CODE 9 PSBA900 EQU * 9 P RTN A14 9 P EJECT 9 > P********************************************
0x335050…3351e4 Dummy {f00=0x0102, f01=0x018e, f02=» * 9 ` > P* * : > P********************************************************** : T P* REGISTERS : P* : P* A1= RETURN CODE : P* A2= RESERVED : P* A3= RESERVED : P* A4= REL. CUR
0x3351e4…335378 Dummy {f00=0x0102, f01=0x0190, f02=» P* A12= RESERVED ; P* A13= RESERVED ; P* ; 4 4 P*********************************************** ; > PIC EQU * ; v P ST A4,PCURS,A11 ; P ORKL A10,PTORD INDICATE ; P LDK A1,0 RETURN CODE ; P RTN A14 ; P EJECT ; @ P**************
0x335378…33550c Dummy {f00=0x0102, f01=0x018e, f02=» PROGRAM TAB. * ; @ P* * < 6 @ P*********************************************************** < z P* REGISTERS < P* < P* A1= RETURN CODE < P* A2= CHAR. <
0x33550c…3356a0 Dummy {f00=0x0102, f01=0x018e, f02=» < P* A9= RESERVED = P* A10= INDICATOR = P* A11= RESERVED = 6 P* A12= RESERVED = N P* A13= RESERVED = f P* = ~ @ P************************************************************ = PPT EQU * = P LDR A1,A10 = . P ANK A1,PTORD FOLLOWING
0x3356a0…335834 (4, 69) Dummy {f00=0x0102, f01=0x0190, f02=» = p $ P RF(Z) PT210 YES, PROCESS IT DK1 > PPT200 EQU * > 0 P CF A14,LINWRP CHECK WRAP > D P LDR A4,A4 END OF BUFFER? > f " P RF(Z) PT800 YES, KUNTA KINTE > PPT210 EQU * DK1 > P LCR A2,A3 > P ANK A2,/80 ATTRIBUTE? > P RF(NZ) PT400 YES
0x335834…3359c8 Dummy {f00=0x0102, f01=0x018e, f02=»1 > P RB PT200 ? PPT300 EQU * DK1 ? " P LDR A4,A4 AT POS. ZERO ? DK1 ? 4 & P RF(Z) PT410 YES, PROCESS IT. DK1 ? Z PPT400 EQU * ? P CF A14,LINWRP CHECK WRAP ? P LDR A4,A4 END OF BUFFER? ? P RF(Z) PT700 YES OS AND DOS ? PPT410 EQ
0x3359c8…335b5c Dummy {f00=0x0102, f01=0x0190, f02=» ? P ADK A3,1 @ P RB PT400 @ PPT500 EQU * @ , & P LCR A2,A3 GET ATTRIBUTE AGAIN DK1 @ @ P ANK A2,/20 PROTECTED? @ j P RB(NZ) PT420 YES @ P ADK A4,1 @ P ADK A3,1 @ P CF A14,LINWRP CHECK WRAP @ PPT700 EQU * @ P ORKL A10,PT
0x335b5c…335cf0 Dummy {f00=0x0102, f01=0x0190, f02=»***************** @ d B P* * A B P* RA REPEAT TO ADDRESS * A ` B P* * A B P****************************
0x335cf0…335e84 Dummy {f00=0x0102, f01=0x0190, f02=»= ADDRESS IN VDU-BUFFER A P* A4= REL. CURSOR POS. B P* A5= RESERVED B > $ P* A6= INTERNAL LINE FLAG ADDRESS B T P* A8= RESERVED B | P* A9= DC-BUFFER INDEX B P* A10= INDICATOR B P* A11= CREDIT WORK AREA B P* A12= RESERVED B P* A13= R
0x335e84…336018 Dummy {f00=0x0102, f01=0x0190, f02=»T A1,UNPMOD,A11 B P LDK A1,0 C P RF RA900 FIRST BYTE C * ( PRA100 EQU * ENTRY LABEL FROM RETTAB C F P LC A7,CONATT,A2 CONVERT C r P ANK A7,/3F C P SLL A7,6 C P LDK A1,IORAA2 NEXT LABEL C P ST A1,UNPMOD,A11 C P LDK A1,0 C P R
0x336018…3361ac Dummy {f00=0x0102, f01=0x018e, f02=»WK A7,LBVDU INVALID ADDRESS C P RF(NL) RA800 YES D $ P LDK A1,IORACH NEXT LABEL D > P ST A1,UNPMOD,A11 D ` P LDK A1,0 D z P RF RA900 CHAR. BYTE D ( PRA250 EQU * ENTRY LABEL FROM RETTAB D P LDK A1,IORDER D P ST A1,UNPMOD,A11 D PRA30
0x3361ac…336340 Dummy {f00=0x0102, f01=0x0190, f02=» P ADK A4,1 E P CF A14,LINWRP CHECK WRAP =1 E P CWR A4,A7 ALL REPEATED? =1 E : P RB(NE) RA300 NO =1 E ^ & P ORKL A10,PTORD INDICATE PT ORDER E z P LDK A1,0 RETURN CODE E P RF RA900 E PRA800 EQU * E " P ORKL A10,THROWB THROW IT AWAY E
0x336340…3364d4 (4, 70) Dummy {f00=0x0102, f01=0x018e, f02=»**** E ^ : P* * F : P* EUA ERASE UNPRO. TO ADDRESS * F J : P* * F : P****************************************************** F P* R
0x3364d4…336668 Dummy {f00=0x0102, f01=0x0190, f02=» P* A6= RESERVED G P* A8= RESERVED G P* A9= RESERVED G 0 P* A10= INDICATOR G F P* A11= CREDIT WORK AREA G ^ P* A12= RESERVED G ~ P* A13= RESERVED G P* G < P******************************************************* G PEUA EQU * G
0x336668…3367fc Dummy {f00=0x0102, f01=0x0190, f02=»ROM RETTAB G v P LC A7,CONATT,A2 CONVERT H P ANK A7,/3F H 2 P SLL A7,6 H F P LDK A1,IOEUA2 NEXT LABEL H X P ST A1,UNPMOD,A11 H z P LDK A1,0 H P RF EUA900 SECOND BYTE H ( PEUA200 EQU * ENTRY LABEL FROM RETTAB H P LC A2,CONATT,A2 H P
0x3367fc…336990 Dummy {f00=0x0102, f01=0x0190, f02=» RF(NL) EUA800 YES H P LDR A1,A7 I * P CF A14,ERASUA ERASE UNPRO. TO ADDRESS I , P CF A14,SCRINF I Z P LDK A1,0 RETURN CODE I p & P ORKL A10,PTORD INDICATE PT ORDER I P RF EUA900 I PEUA800 EQU * I P ORKL A10,THROWB RUBB. I P LDK A1,1 RE
0x336990…336b24 Dummy {f00=0x0102, f01=0x0190, f02=» * I < P* CHAR. < /20 BUT NOT ORDER * J < < P* * J | < P******************************************************** J P* REGISTERS
0x336b24…336cb8 Dummy {f00=0x0102, f01=0x0190, f02=»RESERVED J $ P* A6= INTERNAL LINE FLAG ADDRESS K P* A8= RESERVED K 8 P* A9= RESERVED K N P* A10= INDICATOR K d P* A11= CREDIT WORK AREA K | P* A12= RESERVED K P* A13= RESERVED K P* K 4 P************************************************ K
0x336cb8…336e4c Dummy {f00=0x0102, f01=0x0190, f02=» " P ORKL A10,/9800 END UNPACKING L P LDK A1,1 L * P RF CHARET L < PNULCHA EQU * L N PNL EQU * L b PFF EQU * L r PEM EQU * L PCR EQU * L P CF A14,LINWRP CHECK WRAP L P SCR A2,A3 STORE CHAR. L P LC A1,LINFLG,A6 L P ORK A1,1 L
0x336e4c…336fe0 Dummy {f00=0x0102, f01=0x018e, f02=»ET EQU * L P RTN A14 M P EJECT M D P**************************************************************** M . D P* * M v D P* PACKSY PACK DC BUFFER IN SYSTEM MODE * M D P*
0x336fe0…337174 (4, 71) Dummy {f00=0x0102, f01=0x0190, f02=» M N P* REGISTERS N P* N P* A2= CHAR N & P* A3= ADDRESS IN VDU-BUFFER N 8 P* A4= REL. CURSOR POS. N P* A5= RESERVED N z P* A6= RESERVED N P* A8= ADDRESS IN DC-BUFFER N P* A9= INDEX IN DC-BUFFER N P* A11= CREDIT WORK AREA N P
0x337174…337308 Dummy {f00=0x0102, f01=0x0190, f02=»PACKSY EQU * N P IFT SNA=1 O P LDKL A9,0 COUNTER O & $ P LD A3,CURPOS,A11 GET START POS. O @ & P CWK A3,/800 ANY CHAR. ON DISPLAY? O h P RF(E) PASY40 NO O * P CF A14,SCRINF GET SCREEN INFORMATION O P LDR A1,A4 O $ P SUR A1,A3 GET LENGTH OF MESSA
0x337308…33749c Dummy {f00=0x0102, f01=0x0190, f02=»QU * O P CWK A1,256 ILLEGAL LENGTH? P P RF(NG) PASY20 NO P 0 P LDKL A1,256 ADJUST LENGTH P J PPASY20 EQU * P l P ADKL A3,BVDU P P ADR A3,A11 P PPASY30 EQU * P P CWR A1,A9 ALL EXAMINED? P P RF(E) PASY40 YES P & P LCR A2,A3 GET C
0x33749c…337630 Dummy {f00=0x0102, f01=0x0190, f02=»AR. IN DC BUFFER P z P RB PASY30 Q PPASY40 EQU * Q * $ P LDK A1,0 INDICATE LAST IN CHAIN Q > P CF A14,DCWRIT SEND BUFFER Q f & P LDR A8,A12 GET BUFFER TO RELEASE Q " P CF A14,RELBUF RELEASE BUFFER Q P XIF Q P RTN A14 Q P EJECT Q B P******
0x337630…3377c4 Dummy {f00=0x0102, f01=0x0190, f02=» UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * Q B P* * R D B P************************************************************* R P* REGISTERS R P* R P* A2= CHAR. R P* A3=
0x3377c4…337958 Dummy {f00=0x0102, f01=0x0190, f02=»A8= ADDRESS IN DC-BUFFER R P* A9= INDEX IN DC-BUFFER S P* A10= INDICATOR S @ P* A11= CREDIT WORK AREA S X P* A12= RESERVED S x P* A13= RESERVED S P* S B P************************************************************** S PUNPSYS EQU * S
0x337958…337aec Dummy {f00=0x0102, f01=0x0190, f02=»INFORMATION S v P LDR A3,A4 CURSOR ADDRESS T P ADKL A3,BVDU T 6 " P ADR A3,A11 VDU BUFFER ADDRESS T L , P LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS T r " P SUR A9,A9 INDEX IN DC BUFFER T P LDR A6,A11 T P LDK A5,LLINE T & P CF A14,LINE GET INTER
0x337aec…337c80 Dummy {f00=0x0102, f01=0x0190, f02=»O T P CWK A2,/31 BIND? U P RF(E) UNPS50 YES,PERHAPS U $ PUNPS07 EQU * U F P CWK A2,/20 ORDER? U Z P RF(NL) UNPS40 NO U t P CWK A2,/0A NEW LINE? U P RF(NE) UNPS10 NO U $ P CF A14,NLROUT PERFORM NEW LINE U P RB UNPS05 U PUNPS10 E
0x337c80…337e14 (4, 72) Dummy {f00=0x0103, f01=0x0190, f02=»WK A2,/1E IRS? U P RF(NE) UNPS30 NO V P LDK A2,/3B REPLACE WITH ; V 0 P RF UNPS40 V R PUNPS30 EQU * V d P CWK A2,NULL NULL? V x P RF(NE) UNPS40 NO V " P LDK A2,/20 REPLACE WITH SPACE V PUNPS40 EQU * V P CF A14,LINWRP CHECK WRAP V " P
0x337e14…337fa8 Dummy {f00=0x0103, f01=0x0190, f02=» P RB UNPS05 W PUNPS50 EQU * W P CF A14,GDCCH W * P ANK A2,/FE SHURE OF BIND? W @ P RF(Z) UNPS55 ALMOST W b P SUKL A8,2 W ~ P SUKL A9,2 W P CF A14,GDCCH W P RB UNPS07 W PUNPS55 EQU * W & P LDK A1,MYJOB INDICATE MY JOB MODE W & P
0x337fa8…33813c Dummy {f00=0x0103, f01=0x0190, f02=» LDKL A5,LBVDU+1 W P LDK A6,0 X . P CF A14,STOINF SAVE NEW SCREEN INFORMATION X * P LDKL A10,0 X PUNPS70 EQU * X p , P LD A8,BUFPNT,A11 GET BUFFER TO RELEASE X " P CF A14,RELBUF RELEASE BUFFER X P XIF X P RTN A14 X P EJECT X @ P****
0x33813c…3382d0 Dummy {f00=0x0103, f01=0x0190, f02=» GETNXT GET AND CHECK NEXT BUFFER X @ P* * Y 4 @ P************************************************************ Y x P* REGISTERS Y P* Y P* A1= RETURN CODE Y P* A11= CREDIT WORK A
0x3382d0…338464 Dummy {f00=0x0103, f01=0x0190, f02=» Y T PGETNXT EQU * Z P IFT SNA=1 Z * P CF A14,SAVE2 SAVE UNPACK INFORMATION Z . , P LD A8,BUFPNT,A11 GET BUFFER TO RELEASE Z " P CF A14,RELBUF RELEASE BUFFER Z P IFT DISHOW=2 Z P LC A1,TCT01,A11 Z " P CCK A1,VDUCOD PRINTER UNPACK? Z P R
0x338464…3385f8 Dummy {f00=0x0103, f01=0x018e, f02=»CHRONIZE Z " P LD A2,ECBEL,A8 SAVE LENGTH =4 [ P ST A2,DCLENG,A11 . =4 [ 6 P LDR A9,A1 [ T P CF A14,REST2 [ f P LDR A1,A9 GET RETURN CODE [ | ( P SRC A1,1 FIRST OR MODDLE IN CHAIN? [ P RF(NN) GETC30 NO [ $ P LDR A1,A10 GET INTERNAL STATUS [
0x3385f8…33878c Dummy {f00=0x0103, f01=0x0190, f02=» P RF(NE) GETC20 YES 0 P CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE PGETC20 EQU * R ( P XRKL A10,LICREC RESET LAST IN CHAIN f P ORKL A10,NEWCH NEW CHAIN P RF GETC60 PGETC30 EQU * & P SRC A1,1 LAST IN CHAIN RECEIVED? P RF(
0x33878c…338920 Dummy {f00=0x0103, f01=0x0190, f02=»A1,LICREC LAST IN CHAIN RECEIVED? P RF(Z) GETC60 NO ] * 0 P CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE ] B P ORKL A10,NEWCH NEW CHAIN ] v PGETC60 EQU * ] * P ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS ] & P CF A14,SAVE2 SAVE INFORMATION =2 ] " P CF
0x338920…338ab4 (4, 73) Dummy {f00=0x0103, f01=0x0190, f02=»PACK INFORMATION ] x P LDR A1,A10 ^ P ANKL A1,NEWCH NEW CHAIN? ^ , P RF(Z) GETC80 NO ^ N P IFT DISHOW=1 ^ f P XRKL A10,NEWCH RESET ^ | P LC A1,TCT01,A11 ^ P CCK A1,VDUCOD ^ P RF(NE) GETC70 ^ P CF A14,SAVE2 ^ P CF A14,DISMOD ^
0x338ab4…338c48 Dummy {f00=0x0103, f01=0x0190, f02=»TC80 EQU * ^ P LD A8,BUFPNT,A11 _ P SUR A9,A9 _ , P LDK A1,0 RETUR N CODE _ > PGETC90 EQU * _ P XIF _ p P RTN A14 _ | P EJECT _ B P************************************************************* _ B P*
0x338c48…338ddc Dummy {f00=0x0103, f01=0x0190, f02=» * _ l B P************************************************************* ` " P* REGISTERS ` h P* ` | P* A1= RETURN CODE ` P* A11= CREDIT WORK AREA ` P* A12= RESERVED ` P* A13= RESERVED ` P* ` B P**************
0x338ddc…338f70 Dummy {f00=0x0103, f01=0x018e, f02=»WK A9,BUFFL+BUFFL BUFFER FULL? ` P RF(NL) PUTC20 YES a & P RF PUTC30 a @ PPUTC10 EQU * a R P LDKL A1,BUFFL+BUFFL-3 a f ( P SUR A1,A9 ROOM FOR SBA AND ADDRESS? a P RF(NN) PUTC30 YES a PPUTC20 EQU * a P IFT SNA=1 a ( P CF A14,SAVE2 SAVE PACK
0x338f70…339104 Dummy {f00=0x0103, f01=0x0190, f02=» a P LDR A9,A9 TRANSMISSION OK? b P RF(NZ) PUTC90 NO b , P SUR A9,A9 BUFFER INDEX b F P LDR A8,A12 BUFFER ADDRESS b f P XIF b P IFF SNA=1 b P CF A14,ERROR b P LDKL A1,* b P ST A1,REGI,A11 b P LKM b P DATA 3 b P XIF b
0x339104…339298 Dummy {f00=0x0103, f01=0x0190, f02=» EJECT b 6 P************************************************** c 6 P* * c H 6 P* PDCCH PUT CHAR. IN DC BUFFER * c 6 P* * c 6 P******************
0x339298…33942c Dummy {f00=0x0103, f01=0x0190, f02=»A5= RESERVED c P* A6= RESERVED d P* A8= ADDRESS IN DC-BUFFER d * P* A9= DC-BUFFER INDEX d L P* A10= INDICATOR d j P* A11= RESERVED d P* A12= RESERVED d P* A13= RESERVED d P* d 8 P***************************************************
0x33942c…3395c0 Dummy {f00=0x0103, f01=0x0190, f02=»CONVERSION DELETED * DK 82-03-30 * d P XIF e , " P SCR A2,A8 STORE IN DC-BUFFER e 8 P ADKL A8,1 e ^ P ADKL A9,1 e p PPDC100 EQU * e P RTN A14 e P EJECT e D P*************************************************************** e D P*
0x3395c0…339754 (4, 74) Dummy {f00=0x0103, f01=0x018e, f02=» * e D P*************************************************************** f D P* REGISTERS f P* f P* A1= RETURN CODE f P* A2= CHAR. f P* A3= POINTER IN VDU BUFFER f P* A4= RESERV
0x339754…3398e8 Dummy {f00=0x0103, f01=0x0190, f02=» f ~ P* A11= CREDIT WORK AREA g P* A12= RESERVED g ( P* A13= RESERVED g @ P* g X 8 P**************************************************** g b PGDCCH EQU * g P LDK A1,1 PRESET ERROR g & P CW A9,DCLENG,A11 BUFFER EMPTIED? g P RF(NL) GDCC90
0x3398e8…339a7c Dummy {f00=0x0103, f01=0x0190, f02=»R. 8625,DK* g l P XIF h P ADKL A8,1 h P ADKL A9,1 h 2 PGDCC90 EQU * h D P RTN A14 h X P EJECT h h @ P*********************************************************** h v @ P* * h @ P* P
0x339a7c…339c10 Dummy {f00=0x0103, f01=0x0190, f02=»************************************************* h P* REGISTERS i : P* i N P* A2= AID i X P* A11= RESERVED i j P* A13= RESERVED i P* i > P********************************************************** i PPAID EQU * i P CF A14,PDCCH ST
0x339c10…339da4 Dummy {f00=0x0103, f01=0x0190, f02=» * i x > P* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER * j * > P* * j l > P********************************************************** j P* REGISTERS j P* j
0x339da4…339f38 Dummy {f00=0x0103, f01=0x0190, f02=»* A9= RESERVED j P* A10= RESERVED k P* A11= RESERVED k . P* A12= RESERVED k F P* A13= RESERVED k ^ P* k v > P********************************************************** k PBUFADR EQU * k P LDR A2,A1 GET REL. POS. k P SRL A2,6 k P
0x339f38…33a0cc Dummy {f00=0x0103, f01=0x018e, f02=»NK A2,/3F k & P LC A2,CONADR,A2 CONVERT TO ASCII l $ P CF A14,PDCCH STORE IN DC-BUFFER l < P RTN A14 l d P EJECT l t @ P************************************************************ l @ P* * l @
0x33a0cc…33a260 Dummy {f00=0x0103, f01=0x0190, f02=» @ P************************************************************ m P* REGISTERS m H P* m P* A2= CHAR. m f P* A3= ADDRESS IN VDU-BUFFER m z P* A4= RESERVED m P* A5= RESERVED m P* A6= RESERVED m P* A8= RESERVED m P* A9= RESERVED m
0x33a260…33a3f4 (4, 75) Dummy {f00=0x0103, f01=0x0190, f02=»******************************************* m ~ PRESMDT EQU * n 4 P LDK A1,0 FIRST SCREEN POS. n H P LDKL A3,BVDU n l P ADR A3,A11 n PRESM10 EQU * n P CWK A1,LBVDU ALL SCANNED? n P RF(NL) RESM90 YES n P LCR A2,A3 GET CHAR. n P CCK A
0x33a3f4…33a588 Dummy {f00=0x0103, f01=0x0190, f02=»1,1 n P ADK A3,1 o P RB RESM10 o PRESM90 EQU * o 0 P RTN A14 o D P EJECT o T < P******************************************************** o b < P* * o 2 P* P1WCC PROCESS WCC BEFOR
0x33a588…33a71c Dummy {f00=0x0103, f01=0x0190, f02=» o X P* REGISTERS p P* p P* A2= CHAR. p & P* A3= RESERVED p : P* A4= RESERVED p P P* A5= RESERVED p f P* A6= RESERVED p | P* A8= RESERVED p P* A9= RESERVED p P* A10= RESERVED p P* A11= CREDIT WORK AREA p P* A12= RESERVED p
0x33a71c…33a8b0 Dummy {f00=0x0103, f01=0x0190, f02=» IN EBCDIC p P ST A2,WCC,A11 SAVE q P ANK A2,1 RESET MDT-BITS? q . P RF(Z) P1W900 NO q P & P CF A14,RESMDT RESET ALL MDT-BITS q h PP1W900 EQU * q P RTN A14 q P EJECT q > P********************************************************* q > P*
0x33a8b0…33aa44 Dummy {f00=0x0103, f01=0x0190, f02=» * q > P********************************************************* r < P* REGISTERS r ~ P* r P* A11= CREDIT WORK AREA r P* A12= RESERVED r P* A13= RESERVED r P* r > P******************
0x33aa44…33abd8 Dummy {f00=0x0103, f01=0x0190, f02=»A1 r P ANK A7,4 SOUND? s P RF(Z) P2W100 NO s " P CF A14,SOUND SOUND s : PP2W100 EQU * s V P ANK A1,8 COPY? s j P RF(Z) P2W300 NO s P LC A1,TCT01,A11 . =4 s P CCK A1,VDUCOD VDU =4 s P RF(NE) P2W200 NO PRINTER =4 s P CF A14,COPY C
0x33abd8…33ad6c Dummy {f00=0x0103, f01=0x0190, f02=»2 TAKE IT BACK =4 s P RTN A14 t P EJECT t * F P****************************************************************** t 8 F P* * t F P* SAVE SAVE PACK AND UNPACK INFORMATION
0x33ad6c…33af00 Dummy {f00=0x0103, f01=0x0190, f02=»****************** t ` P* REGISTERS u P* u . P* A1= STACK POINTER u 8 P* A2= CHAR. u T P* A3= VDU BUFFER ADDRESS u h P* A4= REL CURSOR POS. u P* A5= REL STTRIBUTE POS. u P* A6= ATTRIBUTE CHAR. u P* A10= INTERNAL INDICATOR u P*
0x33af00…33b094 (4, 76) Dummy {f00=0x0104, f01=0x0190, f02=»**************** u ` PSAVE1 EQU * v & P LDKL A1,STACK1 GET STACK ADDRESS v , P RF SAVE v V PSAVE2 EQU * v f P LDKL A1,STACK2 v z PSAVE EQU * v P ADR A1,A11 v P STR A2,A1 v P ADK A1,2 v P STR A3,A1 v P ADK A1,2 v P STR A4,
0x33b094…33b228 Dummy {f00=0x0104, f01=0x0190, f02=» STR A10,A1 v P RTN A14 w P EJECT w $ H P******************************************************************* w 2 H P* * w ~ H P* RESTOR RESTORE PACK AND UNPACK INFORMATION
0x33b228…33b3bc Dummy {f00=0x0104, f01=0x0190, f02=»********************* w b P* REGISTERS x P* x 2 P* A1= STACK POINTER x < P* A2= CHAR. x X P* A3= VDU BUFFER ADDRESS x l P* A4= REL. CURSOR POS. x P* A5= REL. ATTRIBUTE POS. x P* A6= ATTRIBUTE CHAR. x P* A7= RESERVED x P* A10= I
0x33b3bc…33b550 Dummy {f00=0x0104, f01=0x018e, f02=»******************************************* x | PREST1 EQU * y 4 & P LDKL A1,STACK1 GET STACK ADDRESS y H P RF RESTOR y r PREST2 EQU * y P LDKL A1,STACK2 y PRESTOR EQU * y P ADR A1,A11 y P LDR* A2,A1 y P ADK A1,2 y P LDR* A3,A
0x33b550…33b6e4 Dummy {f00=0x0104, f01=0x0190, f02=» y P LDR* A7,A1 z P ADK A1,2 z P LDR* A10,A1 z . P RTN A14 z B P EJECT z R < P******************************************************* z ` < P* * z < P* BUFFER POOL
0x33b6e4…33b878 Dummy {f00=0x0104, f01=0x0190, f02=»******* z ` PBUFFER EQU * { P DATA *+2 POINTER FIRST FREE { $ P IFF BUFFNR=1 { H P DATA *+LINK { ^ P RES BUFFL { r P IFF BUFFNR=2 { P DATA *+LINK { P RES BUFFL { P IFF BUFFNR=3 { P DATA *+LINK { P RES BUFFL { P IFF BUFFNR=
0x33b878…33ba0c Dummy {f00=0x0104, f01=0x0190, f02=»*+LINK { P RES BUFFL | P IFF BUFFNR=7 | P DATA *+LINK | 6 P RES BUFFL | J P IFF BUFFNR=8 | P DATA *+LINK | r P RES BUFFL | P IFF BUFFNR=9 | P DATA *+LINK | P RES BUFFL | P IFF BUFFNR=10 | P DATA *+LINK | P RES BUFFL
0x33ba0c…33bba0 Dummy {f00=0x0104, f01=0x0190, f02=»FNR=13 | P DATA *+LINK } P RES BUFFL } " P IFF BUFFNR=14 } 4 P DATA *+LINK } J P RES BUFFL } ^ P IFF BUFFNR=15 } p P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=16 } P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=17 } P DATA *+LI
0x33bba0…33bd34 (4, 77) Dummy {f00=0x0104, f01=0x0190, f02=»UFFL } P IFF BUFFNR=20 ~ P DATA *+LINK ~ " P RES BUFFL ~ 6 P IFF BUFFNR=21 ~ H P DATA *+LINK ~ ^ P RES BUFFL ~ r P IFF BUFFNR=22 ~ P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=23 ~ P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=
0x33bd34…33bec8 Dummy {f00=0x0104, f01=0x0190, f02=»*+LINK ~ P RES BUFFL P IFF BUFFNR=27 P DATA *+LINK 6 P RES BUFFL J P IFF BUFFNR=28 P DATA *+LINK r P RES BUFFL P IFF BUFFNR=29 P DATA *+LINK P RES BUFFL P IFF BUFFNR=30 P DATA *+LINK P RES BUFFL
0x33bec8…33c05c Dummy {f00=0x0104, f01=0x018e, f02=» P DATA 0 P RES BUFFL P EJECT & < P******************************************************* 4 < P* * t < P* GETBUF GET BUFFER * < P*
0x33c05c…33c1f0 Dummy {f00=0x0104, f01=0x0190, f02=» P* A8= DC-BUFFER ADDRESS P* A9= INDEX IN DC-BUFFER $ P* A11= RESERVED D P* A12= BUFFER ADDRESS P* A13= RESERVED z P* < P******************************************************** PGETBUF EQU * P LDKL A7,BUFFER P
0x33c1f0…33c384 Dummy {f00=0x0104, f01=0x0190, f02=»90 EQU * P LDR* A1,A8 P STR A1,A7 $ P ADKL A8,2 6 P LDR A12,A8 H P SUR A9,A9 P RTN A14 n P EJECT ~ > P********************************************************* > P* *
0x33c384…33c518 Dummy {f00=0x0104, f01=0x0190, f02=» > P********************************************************* P* REGISTERS F P* Z P* A8= BUFFER ADDRESS d P* A11= RESERVED P* A13= RESERVED P* > P********************************************************* PRELBUF EQU *
0x33c518…33c6ac Dummy {f00=0x0104, f01=0x4078, f02=» P RB RELB10 PRELB90 EQU * P STR A8,A7 . P CMR A8 @ P RTN A14 P P ` P END h@ t d P* A11= RESERVED P* A13= RESERVED P* > P********************************************************* PRELBUF EQU *
0x33c6ac…33c840 Dummy {f00=0x0104, f01=0x2008, f02=»
0x33c840…33c9d4 (4, 78) Dummy {f00=0x0104, f01=0x0190, f02=» J (P6 " 4X 1 R Z0 . . _ k k :A K J 4 P . . _ K K @ @ R @ : @ D @ @ F @ > A b @ r @ p A r b A CR T @ 6 A @ 8 A @ A <
0x33c9d4…33cb68 Dummy {f00=0x0104, f01=0x0190, f02=»T A , @ 8P( U U A , K l A A J @ & A @ 9k! P % _ @ @ A A A & A J ` ) K @ < G ` ) - J ` 4 K ` ) G `
0x33cb68…33ccfc Dummy {f00=0x0104, f01=0x0190, f02=» I $ @ < D ` E , D H C ` J j A X A N (Pn B @ X A X % R , " E R z A N R z R P z R Xv z_|W 0T : < A J d 8_ A L (P B H - V l & I
0x33ccfc…33ce90 Dummy {f00=0x0104, f01=0x0190, f02=»9k l $ A A J ` ( ` A ( J $ K J J V V (P V j $ $ A B 1 I $ I H ) P _ " = D 4 Q H_l L 1 = G $ @ A $ @ E " L M _V
0x33ce90…33d024 Dummy {f00=0x0104, f01=0x0190, f02=» @ 9n A @ @ ,P J V @ 8 A @ 6 A A , K , : @ "<B A T *P ` P ` : $ @ *P ` a P ` : @ P $ @ @ $ @ P M : 4 A 0 @ " R RV > R W > <B @ J @ *P `
0x33d024…33d1b8 Dummy {f00=0x0104, f01=0x0190, f02=» . @ .P. D X D P H E _( E _6 " D T E E D E % : 4 " R ;B 4 " R P< *P ` @ @ B B ` 4 : @ "P 9a _ " ( ) 8 ( ) : " $ @ "P 9A _ @ :
0x33d1b8…33d34c Dummy {f00=0x0104, f01=0x0190, f02=» 2 A B @ (T : N @ @ A Z H @ "]" T 2 . BT" < A H A B @ NP A J d . Z d ._v J , V P _ N L % J J ` G G ` U ` G ` : 0P V 8 : < @ NP A J
0x33d34c…33d4e0 Dummy {f00=0x0104, f01=0x0190, f02=» : : [ [ : A Z A. c ? : > : R $ )_ : A A A ~ QF @ @ ` x A @ @ ` p R0 A @ A ^B _F 9o @ ~
0x33d4e0…33d674 (4, 79) Opaque[0x194]
0x33d674…33d808 # DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2098, f03=0x0000}
0x33d674…33d808 IdxSect {
0x33d674…33d808 f00 = 0x0104 // 0x33d674 @0x0
0x33d674…33d808 f01 = 0x0014 // 0x33d676 @0x2
0x33d674…33d808 gno = [ // 0x33d678 @0x4
0x33d674…33d808 [0x00]: C0x0104.0x3.0
0x33d674…33d808 [0x01]: C0x0105.0x0.0
0x33d674…33d808 [0x02]: C0x0105.0x1.0
0x33d674…33d808 [0x03]: C0x0105.0x2.0
0x33d674…33d808 [0x04]: C0x0105.0x3.0
0x33d674…33d808 [0x05]: C0x0106.0x0.0
0x33d674…33d808 [0x06]: C0x0106.0x1.0
0x33d674…33d808 [0x07]: C0x0106.0x2.0
0x33d674…33d808 [0x08]: C0x0106.0x3.0
0x33d674…33d808 [0x09]: C0x0107.0x0.0
0x33d674…33d808 ]
0x33d674…33d808 }
0x33d808…33d99c Dummy {f00=0x0104, f01=0x0190, f02=» 2 P IDENT PRINT REL 11.0 DK 82-04-22 870150541100 P : P DK2, FORM-FEED CHAR. B P DK3, HARD COPY ERROR. b $ P DK1, SUPPRESS TRAILING SPACES P =2 NEW LABEL P 81-04-08 P =1, EOC ON FIRST READ P 81-01-26 H
0x33d99c…33db30 Dummy {f00=0x0104, f01=0x0190, f02=» * V H P* MODULE PRINT : H P* MODULE HANDLING THE PRINTOUTS BOTH FROM * ^ H P* DISPLAY AND MAIN-FRAME * H P*
0x33db30…33dcc4 Dummy {f00=0x0104, f01=0x0190, f02=»***************************************************************** P EJECT J < P******************************************************** X P* P* LIST OF ROUTINES P* $ P* PRINT MAIN ROUTINE 0 P* IOACT
0x33dcc4…33de58 Dummy {f00=0x0104, f01=0x0190, f02=» ICPINP INTERTASK INPUT & P* ICPRED INTERTASK READ & ( P* ICPWRT INTERTASK WRITE P ( P* ICABOR INTERTASK ABORT | 6 P* COPP COPY SCREEN BUFFER TO PRINTER $ P* TABLE OF PRINTERORDERS
0x33de58…33dfec Dummy {f00=0x0104, f01=0x0190, f02=»R CARRIAGE RETURN $ P* EM END MESSAGE . P* INVAL INVALID PRINTER ORDER H , P* FFCHK CHECK IF FF IS VALID z " P* PRLINE PRINT LINE $ P* INIT INIT ROUTINE & P* TSTPRT
0x33dfec…33e180 Dummy {f00=0x0104, f01=0x018e, f02=»*** X P EJECT H P******************************************************************* H P* * f H P* ENTRY POINTS * H P*
0x33e180…33e314 (4, 80) Dummy {f00=0x0105, f01=0x0190, f02=» J P 8 P ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT) 0 P ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2 L P H P******************************************************************* H P*
0x33e314…33e4a8 Dummy {f00=0x0105, f01=0x0190, f02=» * l H P******************************************************************* ( P t 2 P EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA) | 2 P EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9 $ P EXTRN OPSYS OPEN SYSTEM (DCSNA)
0x33e4a8…33e63c Dummy {f00=0x0105, f01=0x0190, f02=»RN ATMASB SEARCH ATTRIBUTE BACKWARDS & P EXTRN TSTMES TEST MESSAGE (DCSNA) , ( P EXTRN READW READ WITH WAIT (DCSNA) V , P EXTRN READNW READ WITH NO WAIT (DCSNA) " P EXTRN GETBUF GET BUFFER (PAD) & P EXTRN RELBUF RELEASE BUFFER (PAD) ( P EXTRN
0x33e63c…33e7d0 Dummy {f00=0x0105, f01=0x0190, f02=»RN ICWRT INTERTASK WRITE (KEYB) ( P EXTRN ICREAD INTERTASK READ (KEYB) ( $ P EXTRN SETSTA SET STATUS (DCBSC) T P EJECT | D P*************************************************************** D P*
0x33e7d0…33e964 Dummy {f00=0x0105, f01=0x0190, f02=» * b D P*************************************************************** P b PX:A EQU 0 SNA HANDLING IF:=1 j PSNA EQU 0 & PX:D EQU 1 NUMBER OF DC LINES (1-2) PNBRLIN EQU 1 PX:O EQU 0 TEST MODE IF:=1 PTEST EQU
0x33e964…33eaf8 Dummy {f00=0x0105, f01=0x0190, f02=»********* V H P* * & P* DECLARATIONS OF DATA AND EQUATES ^ H P* * H P****************************************************
0x33eaf8…33ec8c Dummy {f00=0x0105, f01=0x0190, f02=»ES p P DATA 'TT',0 GTP P DATA 'LL',2 LINE PRINTER " P DATA 'GG',4 GP 74 D P DATA 'CC',6 COPY 80 ^ P* z . P* DEFAULT VALUES FOR DIFF. PRINTERS " P* BYTE1= NUMBER OF LINES/PAGE " P* BYTE2= NUMBER OF CHAR./LINE P*
0x33ec8c…33ee20 Dummy {f00=0x0105, f01=0x0190, f02=»NGTHS FROM WCC P* 4 PLINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE P* X & P* EQUATES FOR ECB HANDLING b P* PECBBA EQU 2 BUFFER ADDRESS PECBRL EQU 4 REQUESTED LENGTH PECBEL EQU 6 EFFECTIVE LENGTH PECBRC EQ
0x33ee20…33efb4 (4, 81) Dummy {f00=0x0105, f01=0x0190, f02=»ED EQU 2 SHARED MODE P* P* PRINTER STATUS IN PRTMOD & P* H " PPRTERR EQU /4000 PRINTER ERROR R P* x " P* COPY INTERNAL STATUS IN A10 P* $ PNXTCHA EQU /8000 GET NEXT CHAR. " PENDPRT EQU /4000 END PRINTING $ PNTONLY E
0x33efb4…33f148 Dummy {f00=0x0105, f01=0x0190, f02=»QU 2 INTERTASK P* P* SCREEN SIZE P* 6 PLBVDU EQU 1920 @ P* V P* RECEIVE STATUS ` P* x PLICREC EQU /2000 . =1 P EJECT P* P* RELATIVE ADDRESSES IN P* TERMINAL WORKBLOCK P* PBVDU EQU 2
0x33f148…33f2dc Dummy {f00=0x0105, f01=0x0190, f02=» b & PPRTID EQU DCLENG+6 PRINTER TASKID $ PPRTTYP EQU PRTID+2 PRINTER TYPE 2 " PMAIN EQU PRTTYP+4 WHAT DC LINE Z PECBBLK EQU MAIN+6 ECB BLOCK ( PBUFPNT EQU ECBBLK+14 BUFFER POINTER PREGI EQU BUFPNT+2 SAVE AREA $ PPRTMOD EQU REGI+32 P
0x33f2dc…33f470 Dummy {f00=0x0105, f01=0x0190, f02=»WRITE ECB r PECBDC EQU ECBICW+2 ECB DC " PECBDC1 EQU ECBDC ECB DC LINE 1 4 & PECBDC2 EQU ECBDC1+2 ECB DC LINE 2 Z P* P* RELATIVE ADDRESSES IN P* COMMON WORKBLOCK P* P IFF TEST=1 PTSKTAB EQU 24 DEVICE TABLE P
0x33f470…33f604 Dummy {f00=0x0105, f01=0x0190, f02=»*********** X H P* * H P* PRINT MAIN ROUTINE PRINTER * ` H P* * H P****************
0x33f604…33f798 Dummy {f00=0x0105, f01=0x018e, f02=»A14,OPINIT OPEN CONNECTION INITIATE P RF(N) PRI100 DC NOT PRESENT , P CF A14,OPSYS OPEN SYSTEM P P XIF r P IFF SNA=1 ~ P CF A14,OPEN OPEN * P* CHECK ON DC REMOVED PR. 8623, DK * P LDKL A8,20 P LKM P DATA 6 P
0x33f798…33f92c Dummy {f00=0x0105, f01=0x0190, f02=» , P CF A14,CONCT CONNECT PASSIVE IF PRTR OK $ P CF A14,SETTIM SET REQUEST TIME 4 PPRI200 EQU * * P CF A14,IOACT ACTIVATE IN CURRENT MODE p P LDKL A7,ECBBLK P ADR A7,A11 P LKM P DATA 7 MULTIPLE WAIT * P CF A14,IOCPL COMPLE
0x33f92c…33fac0 Dummy {f00=0x0105, f01=0x018e, f02=» P RB PRI100 TRY TO FIX IT P EJECT $ J P********************************************************************* 2 J P* * $ P* IOACT ACTIVATE IN CURRENT MODE J P*
0x33fac0…33fc54 (4, 82) Dummy {f00=0x0105, f01=0x018e, f02=» PIOACT EQU * P LDK A4,0 & P LD A1,PRTMOD,A11 SHARED OR LOCAL? * P RF(Z) IOAC20 LOCAL T " P ADK A4,1 ADD NUMBER OF WAITS p 4 P LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY? P RF(NZ) IOAC10 YES P CM MAIN,A11 INDICATE LINE 1
0x33fc54…33fde8 Dummy {f00=0x0105, f01=0x0190, f02=» v P LD A2,ECBBLK+6,A11 ALREADY? P RF(NZ) IOAC20 YES , P IM MAIN,A11 INDICATE LINE 2 F P CF A14,TSTMES TEST MESSAGE j P ST A8,ECBBLK+6,A11 P XIF PIOAC20 EQU * P ADK A4,1 P LD A2,ECBBLK+2,A11 ALREADY? P RF(NZ)
0x33fde8…33ff7c Dummy {f00=0x0105, f01=0x0190, f02=»S p P RTN A14 P EJECT J P********************************************************************* ( J P* * v $ P* IOCPL COMPLETE IN CURRENT MODE J P*
0x33ff7c…340110 Dummy {f00=0x0105, f01=0x018e, f02=»U * " P CW A8,ECBBLK+2,A11 INTERTASK? P RF(NE) IOCP10 NO 2 P CM ECBBLK+2,A11 L P CF A14,ICPINP MAKE HARDCOPY d P RF IOCP90 PIOCP10 EQU * " P CW A8,ECBBLK+4,A11 DC LINE 1? P IFT NBRLIN=2 P RF(NE) IOCP20 NO P XIF
0x340110…3402a4 Dummy {f00=0x0105, f01=0x0190, f02=» P RF IOCP30 P IFT NBRLIN=2 PIOCP20 EQU * , " P CW A8,ECBBLK+6,A11 DC LINE 2? @ P RF(NE) IOCP90 NO f P CM ECBBLK+6,A11 P IM MAIN,A11 INDICATE LINE 2 P XIF PIOCP30 EQU * " P CF A14,DCPINP TAKE CARE OF DC PIOCP90
0x3402a4…340438 Dummy {f00=0x0105, f01=0x0190, f02=» * | D P* DCPINP DC PRINTER INPUT * 4 D P* * | D P***************************************************************
0x340438…3405cc Dummy {f00=0x0105, f01=0x0190, f02=»4,ICPINP TAKE CARE OF THAT FIRST PDCP100 EQU * ( P LD A8,ECBDC,A11 < P IFT NBRLIN=2 T P LD A1,MAIN,A11 LINE 1 j P RF(Z) DCP150 YES P LD A8,ECBDC2,A11 PDCP150 EQU * P XIF P IFT SNA=1 P LD A1,ECBRC,A8 OK?
0x3405cc…340760 Dummy {f00=0x0105, f01=0x0190, f02=»READW READ FIRST BUFFER P ANK A1,3 ERROR? P RF(NZ) DCP400 NO 8 P RF DCP500 R PDCP400 EQU * d . P SUR A10,A10 RESET INTERNAL UNPACK STATUS x P IFT SNA=1 . =1 P ANK A1,2 . =1 P RF(Z) DCP450 . =1 P ORKL A10,LICREC . =1
0x340760…3408f4 (4, 83) Dummy {f00=0x0105, f01=0x018e, f02=»E BUFFER ADDRESS z P IFT SNA=1 & P CF A14,GETBUF GET ANOTHER BUFFER * P LDR A3,A8 T $ P CF A14,READNW READ WITH NO WAIT f P XIF ( P CF A14,UNPACK UPDATE SCREEN BUFFER P LD A1,WCC,A11 P ANK A1,/8 ANY COPY NEEDED P RF(Z) DCP
0x3408f4…340a88 Dummy {f00=0x0105, f01=0x018e, f02=» P XIF P RTN A14 P EJECT D P**************************************************************** . D P* * v D P* ICPINP INTERTASK INPUT * D P*
0x340a88…340c1c Dummy {f00=0x0105, f01=0x0190, f02=» N PICPINP EQU * P CF A14,COPP MAKE HARDCOPP , P ST A1,REGI,A11 RETURN CODE TO TERMINAL > " P CF A14,ICPWRT WRITE INTERTASK n P RTN A14 P EJECT F P****************************************************************** F P*
0x340c1c…340db0 Dummy {f00=0x0105, f01=0x018e, f02=»* * F P****************************************************************** ! J PICPRED EQU * ! P LD A8,ECBICR,A11 ! P CF A14,ICSET SET NO TIMEOUT ! P LDK A1,0 NOT ADDRESSED READ !
0x340db0…340f44 Dummy {f00=0x0105, f01=0x0190, f02=» H P******************************************************************** " H P* * " P H P* ICPWRT WRITE INTERTASK * " H P*
0x340f44…3410d8 Dummy {f00=0x0105, f01=0x0190, f02=» P LD A8,ECBICW,A11 # P CF A14,ICSET SET NO TIMEOUT # P LD A1,ECBICR,A11 # B P LD A1,ECBCW,A1 GET TASKID # P RF(Z) ICPW90 NOT THERE # ~ P LDKL A3,REGI RETURN CODE # P ADR A3,A11 # P LDK A2,2 LENGTH # " P CF A14,ICWRT WRITE INTERTAS
0x3410d8…34126c Dummy {f00=0x0105, f01=0x0190, f02=» * # B P* ICABOR INTERTASK ABORT * $ @ B P* * $ B P************************************************************
0x34126c…341400 Dummy {f00=0x0105, f01=0x0190, f02=» $ P EJECT % J P********************************************************************* % J P* * % d J P* COPP COPY SCREEN BUFFER TO PRINTER * % J P*
0x341400…341594 (4, 84) Dummy {f00=0x0106, f01=0x0190, f02=»*** % N P* REGISTERS & P* & 0 P* A2= CHAR. & : " P* A3= SCREEN BUFFER POINTER & P & P* A4= REL. SCREEN BUFFER ADDRESS & v P* A5= LINE LENGTH & P* A6= CURRENT ATTRIBUTE & P* A8= ECB BUFFER POINTER & P* A9=
0x341594…341728 Dummy {f00=0x0106, f01=0x0190, f02=»********************************************************* & PCOPP EQU * . =2 ' B P LD A8,ECBPRT,A11 ' Z P LDK A1,0 ' t P LDK A6,0 RESET ATTRIBUTE ' . P CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS ' & P CM LINCNT,A11 RESET LINE COUNTER ' P LD
0x341728…3418bc Dummy {f00=0x0106, f01=0x0190, f02=»RL A5,4 ' $ P LC A5,LINLEN,A5 GET LINE LENGTH ( ( P LDR A5,A5 NL,EM AND CR DET. LENGTH? ( 8 P RF(NZ) COP100 NO ( d * P LD A1,PRTTYP,A11 GET MAX LINE LENGTH ( ~ P LC A5,PRTLEN+1,A1 ( PCOP100 EQU * ( P LDKL A3,BVDU ( P ADR A3,A11 ( P LD
0x3418bc…341a50 Dummy {f00=0x0106, f01=0x0190, f02=»,A10 RESET STATUS ( PCOP200 EQU * ) P CWK A4,LBVDU ALL PRINTED? ) . P RF(NL) COP850 YES ) P P CWR A9,A5 LINE FULL? ) j P RF(L) COP400 NO ) P CF A14,PRLINE PRINT LINE ) P LDR A1,A1 PRINTER ERROR? ) P RF(NZ) COP900 YES ) PCOP400 EQU
0x341a50…341be4 Dummy {f00=0x0106, f01=0x0190, f02=»NO ) P LDR A6,A2 GET NEW ATTRIBUTE * P RF COP650 * . PCOP500 EQU * * @ P CCK A2,/2020 ORDER? * T P RF(L) COP550 YES * p P XRKL A10,CRREC RESET * P RF COP600 * PCOP550 EQU * * " P CF A14,GETTAB GET ORDERINDEX * " P CFR A14,A1 TAKE CAR
0x341be4…341d78 Dummy {f00=0x0106, f01=0x0190, f02=» * t P SLL A1,1 + P RF(N) COP850 END + PCOP600 EQU * + 4 P LDR A1,A6 CHECK IF NONPRINT + H P ANK A1,/C + l P XRK A1,/C + ~ P RF(Z) COP650 NONPRINT + , P ORKL A10,NTONLY INIDICATE NOT ONLY NOT + P RF COP700 + PCOP650 EQU * + " P LDK
0x341d78…341f0c Dummy {f00=0x0106, f01=0x018e, f02=»0,NXTCHA RESET + P ADK A3,1 , P ADK A4,1 , ( P RB COP200 , : PCOP850 EQU * , L ( P LDR A9,A9 SOMETHING LEFT TO PRINT? , ` P RF(Z) COP900 NO , " P CF A14,PRLINE PRINT LAST LINE , P ANKL A10,ENDPRT END MESS.? , P RF(Z) COP900 NO STOP IT ,
0x341f0c…3420a0 Dummy {f00=0x0106, f01=0x0190, f02=» , t P RF(Z) COP950 NO - " P LDKL A2,PRTERR INDICATE ERROR - P ORS A2,PRTMOD,A11 - F PCOP950 EQU * - ` P RTN A14 - t P EJECT - L P************************************************************************ - P* - P* TABLE FOR PRINTERORDERS -
0x3420a0…342234 (4, 85) Dummy {f00=0x0106, f01=0x0190, f02=»F ORDER CODES - | $ P DATA /0A0A,NL,NL,NL,NL NEW LINE . 2 P DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED . > ( P DATA /0D0D,CR,CR,CR,CR CARR. RETURN . t ( P DATA /1919,EM,EM,EM,EM END MESSAGE . " P DATA INVAL INVALID ORDER CODE . P EJECT . P P********
0x342234…3423c8 Dummy {f00=0x0106, f01=0x018e, f02=» * . T P P* NL NEW LINE * / P P* * / l P P************************************************************************
0x3423c8…34255c Dummy {f00=0x0106, f01=0x0190, f02=» P EJECT 0 J P********************************************************************** 0 J P* * 0 ` J P* FFDUM SIMULATED FORM FEED * 0 J P*
0x34255c…3426f0 Dummy {f00=0x0106, f01=0x0190, f02=» 0 J PFFDUM EQU * 1 . P CF A14,FFCHK CHECK IF FORM FEED IS VALID 1 P LDR A1,A1 VALID? 1 N P RF(NZ) FFD400 NO 1 h P LDK A7,0 RESET 1 & P LD A1,PRTTYP,A11 TYPE OF PRINTER 1 P LC A7,PRTLEN,A1 PAGE SIZE 1 PFFD100 EQU * 1 P CW A7,LINCNT,
0x3426f0…342884 Dummy {f00=0x0106, f01=0x0190, f02=»VE 1 ~ $ P CF A14,PRLINE ADVANCE ONE LINE 2 P LD A7,REGI,A11 RESTORE 2 2 P LDR A1,A1 PRINTER ERROR? 2 R P RF(NZ) FFD500 YES 2 t P RB FFD100 2 PFFD200 EQU * 2 P NGR A1,A7 2 * P ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE 2 P RB FFD100 2 PFF
0x342884…342a18 Dummy {f00=0x0106, f01=0x0190, f02=» 2 z PFFD500 EQU * 3 P RTN A14 3 P EJECT 3 , J P********************************************************************* 3 : J P* * 3 J P* FFVAL FORM FEED
0x342a18…342bac Dummy {f00=0x0106, f01=0x0190, f02=»*************************************** 3 r PFFVAL EQU * 4 0 $ P CF A14,FFCHK CHECK IF FF VALID 4 D P LDR A1,A1 VALID? 4 l P RF(NZ) FFV200 NO 4 P LDK A1,/31 FORM FEED DK2 4 ( P SC A1,-1,A8 STORE FF CONTROL CHAR. 4 & P LDK A2,/20 REPLACE FF WIT
0x342bac…342d40 Dummy {f00=0x0106, f01=0x0190, f02=»**************************************************************** 4 J P* * 5 H J P* CR CARRIAGE RETURN * 5 J P*
0x342d40…342ed4 (4, 86) Dummy {f00=0x0106, f01=0x0190, f02=» LDR A1,A6 GET ATTRIBUTE 5 P ANK A1,/C 6 P XRK A1,/C NONPRINT FIELD? 6 2 P RF(Z) CR100 YES 6 T P LD A1,WCC,A11 6 l P ANK A1,/30 FORMATTED? 6 P RF(NZ) CR100 NO 6 & P ORKL A10,NTONLY+CRREC CR RECEIVED 6 PCR100 EQU * 6 " P LDK A2,/20 REPLAC
0x342ed4…343068 Dummy {f00=0x0106, f01=0x0190, f02=»************* 6 X H P* * 7 H P* EM END MESSAGE * 7 b H P* * 7 H P**************
0x343068…3431fc Dummy {f00=0x0106, f01=0x0190, f02=»E 7 | P RTN A14 8 P EJECT 8 F P****************************************************************** 8 ( F P* * 8 r F P* INVAL INVALID PRINTER ORDER * 8 F P*
0x3431fc…343390 Dummy {f00=0x0106, f01=0x0190, f02=»** 8 P PINVAL EQU * 9 " P LDK A2,/20 REPLACE WITH SPACE 9 P ORKL A10,NTONLY NOT ONLY 9 D P LDK A1,0 RETURN CODE 9 f P RTN A14 9 P EJECT 9 F P***************************************************************** 9 F P*
0x343390…343524 Dummy {f00=0x0106, f01=0x0190, f02=» * 9 F P***************************************************************** : : PFFCHK EQU * : P LD A1,WCC,A11 : P ANK A1,/30 : P XRK A1,/30 FORMATTED? : 0 P RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARD
0x343524…3436b8 Dummy {f00=0x0106, f01=0x0190, f02=» A9,A9 FF ALLOWED : P RF(Z) FFCH30 NOT ; P LDR A1,A10 ; 4 P ANKL A1,CRREC CR RECEIVED? ; H P RF(NZ) FFCH30 YES ; l PFFCH20 EQU * ; " P LDK A2,/20 REPLACE WITH SPACE ; P LDK A1,1 RETURN CODE ; P RF FFCH40 ; PFFCH30 EQU * ; P XRK
0x3436b8…34384c Dummy {f00=0x0106, f01=0x018e, f02=» LDK A1,0 RETURN CODE ; PFFCH40 EQU * < P ORKL A10,NTONLY NOT ONLY < 2 P RTN A14 < T P EJECT < d D P**************************************************************** < r D P* * < D P*
0x34384c…3439e0 Dummy {f00=0x0106, f01=0x0190, f02=» D P**************************************************************** = PPRLINE EQU * = L P LD A8,ECBPRT,A11 = ` P LDR A1,A10 = z P ANKL A1,NTONLY ONLY RUBB.? = P RF(NZ) PRL050 NO = P LD A1,WCC,A11 = P LDR A2,A1 = P ANK A1,/30 = P
0x3439e0…343b74 (4, 87) Dummy {f00=0x0106, f01=0x0190, f02=» XRKL A10,NTONLY RESET = P IFT SUPSPC=1 DK1 > 6 P LD A1,ECBBA,A8 FIND LENGTH AND END OF BUFFER DK1 > 8 & P ADK A1,1 SKIP CONTROL CHARS. DK1 > r P ST A1,ECBBA,A8 DK1 > " P LDR A2,A9 GET REQ. LENGTH DK1 > . P ADR A1,A2 GET ADDR. TO END OF BUFFER DK1
0x343b74…343d08 Dummy {f00=0x0106, f01=0x0190, f02=»DK1 > z $ P RF(NE) PRL070 NO, FINISHED DK1 ? P SUK A1,1 ADJUST POINTER DK1 ? 4 2 P CW A1,ECBBA,A8 END OF BUFFER,(FRONT-END) DK1 ? X $ P RF(E) PRL070 YES, FINISHED DK1 ? P RB PRL060 CONTINUE DK1 ? PPRL070 EQU * DK1 ? * P LD A2,ECBBA,A8 COMPUTE
0x343d08…343e9c Dummy {f00=0x0106, f01=0x0190, f02=»STORE CONT. CHAR. ADDR. DK1 ? ~ P SUK A1,1 DK1 @ & P ST A1,ECBBA,A8 DK1 @ < P XIF DK1 @ X P ADKL A9,2 @ j P ST A9,ECBRL,A8 @ | P LDK A7,/06 PRINT @ P LKM @ P DATA 1 @ P LDK A1,50 NUMBER OF DELAYS @ PPRL100 EQU * @ P LDKL
0x343e9c…344030 Dummy {f00=0x0106, f01=0x0190, f02=» @ ~ P SUK A1,1 MORE TO WAIT FOR? A P RB(NZ) PRL100 YES A , P LKM A F P DATA 10 ABORT A R " P RF(N) PRL150 FINSHED AT LAST A h & P LDK A1,1 NO CONSIDER IT AS #$&%$ A P RF PRL300 A PPRL150 EQU * A P LKM A P DATA 2 RESYNCHRONIZE A
0x344030…3441c4 Dummy {f00=0x0106, f01=0x0190, f02=»ER ADDRESS A x P CMR A8 RESET CONTROL CHAR. B P SUR A9,A9 B 6 P ADKL A8,2 B H P LDK A1,0 RETURN CODE B Z PPRL300 EQU * B x P RTN A14 B P EJECT B H P******************************************************************* B H P*
0x3441c4…344358 Dummy {f00=0x0106, f01=0x0190, f02=» * B H P******************************************************************* C J PINIT EQU * C P CF A14,COMINI COMMON INIT C P CF A14,ECBINI INIT OF ECB:S C P LCR A2,A1 C P SLL A2,
0x344358…3444ec Dummy {f00=0x0106, f01=0x0190, f02=»TAB NUMBER OF TYPES C , P LDKL A1,PRTTAB+2 START OF PRINTER TABLE D PINI100 EQU * D L $ P CCR A2,A1 CONVERT TYPE TO INDEX D ` P RF(E) INI200 D P ADK A1,4 D P SUK A7,1 ILLEGAL ID? D P RB(NZ) INI100 NO D P LDKL A1,* D P ST A1,REGI,A1
0x3444ec…344680 Dummy {f00=0x0106, f01=0x0190, f02=» A14 D P EJECT E F P***************************************************************** E F P* * E d F P* TSTPRT TEST HARDWARE * E F P*
0x344680…344814 (4, 88) Dummy {f00=0x0107, f01=0x0190, f02=»RT EQU * E P LDK A2,0 F P LD A8,ECBPRT,A11 F " P LDK A7,/80 TEST STATUS F < PTSTP10 EQU * F P LKM F p P DATA 1 F | P LD A1,ECBRC,A8 F P ANK A1,1 OPERABLE? F P RF(Z) TSTP80 YES F 8 P LD A2,PRTID,A11 NO INDICATE NOT OP. IN DEVICE
0x344814…3449a8 Dummy {f00=0x0107, f01=0x0190, f02=»DR A3,A2 F P LDK A1,1 G " P SC A1,+3,A3 INDICATE NOT OP. G " P LDR A1,A8 G H P LDKL A8,100 G Z P LKM G n P DATA 6 G z P LDR A8,A1 G $ P LDK A2,1 INDICATE ONCE NOT OP. G P RB TSTP10 G PTSTP80 EQU * G P LDR A2,A2 NOT OP. ONCE? G
0x3449a8…344b3c Dummy {f00=0x0107, f01=0x0190, f02=»***************************************** G v H P* * H 2 H P* GETTAB GET ORDER INDEX * H ~ H P*
0x344b3c…344cd0 Dummy {f00=0x0107, f01=0x0190, f02=»LID ORDER CODES H v & P LDKL A1,PRTORD+2 ORDERTABLE BASE I PGETT10 EQU * I B , P CCR A2,A1 CONVERT ORDER CODE TO ADDRESS I V P RF(E) GETT20 I P AD A1,PRTTAB I P AD A1,PRTTAB I P ADK A1,2 I P SUK A7,1 ORDER FOUND? I P RF(Z) GETT30 NO
0x344cd0…344e64 Dummy {f00=0x0107, f01=0x4046, f02=» * I P LDR* A1,A1 J P RTN A14 J P J . P END J 6@ J B10 EQU * I B , P CCR A2,A1 CONVERT ORDER CODE TO ADDRESS I V P RF(E) GETT20 I P AD A1,PRTTAB I P AD A1,PRTTAB I P ADK A1,2 I P SUK A7,1 ORDER FOUND? I P RF(Z) GETT30 NO
0x344e64…344ff8 Dummy {f00=0x0107, f01=0x2008, f02=» K A1,TSKTAB ADR A3,A1 ADR A3,A2 0 LDK A1,1 B " SC A1,+2,A3 INDICATE NOT OP. T LKM z DATA 0 SWITCH TASK $ LDK A2,1 INDICATE ONCE NOT OP. RB TSTP10 TSTP80 EQU * LDR A2,A2 NOT OP. ONC
0x344ff8…34518c Dummy {f00=0x0107, f01=0x0190, f02=» B B W$ : V C 6 P C #0 T & C C : V C C :
0x34518c…345320 Dummy {f00=0x0107, f01=0x0190, f02=» ( $0 0 _ 0 0
0x345320…3454b4 (4, 89) Opaque[0x194]
0x3454b4…345648 # DirEnt {nam=»CONVER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20e8, f03=0x0000}
0x3454b4…345648 IdxSect {
0x3454b4…345648 f00 = 0x0107 // 0x3454b4 @0x0
0x3454b4…345648 f01 = 0x0006 // 0x3454b6 @0x2
0x3454b4…345648 gno = [ // 0x3454b8 @0x4
0x3454b4…345648 [0x00]: C0x0107.0x1.0
0x3454b4…345648 [0x01]: C0x0107.0x2.0
0x3454b4…345648 [0x02]: C0x0107.0x3.0
0x3454b4…345648 ]
0x3454b4…345648 }
0x345648…3457dc Dummy {f00=0x0107, f01=0x0190, f02=» 2 P IDENT CONVER REL 11.0 DK82-04-01 870150541100 P : < P**************** SCANDINAVIAN ALPHABET****************** B P DK CORRECTED CONATT D P**************************************************************** D P*
0x3457dc…345970 Dummy {f00=0x0107, f01=0x0190, f02=»CDIC-ASCII * x D P* ASCII-EBCDIC * 0 D P* ATTRIBUTES,BUFFER ADDRESSES * x D P* PF-KEYS * D P
0x345970…345b04 Dummy {f00=0x0107, f01=0x0190, f02=» P D P**************************************************************** P EJECT P D P**************************************************************** ^ D P* * D P* ENTRY POINTS
0x345b04…345c98 Dummy {f00=0x0107, f01=0x0190, f02=»********************************************** ~ P 6 P ENTRY CONASC > P ENTRY CONEBC T P ENTRY CONATT j P ENTRY CONADR P ENTRY CONPF P ENTRY CONORD P EJECT F P**********************************************************
0x345c98…345e2c Dummy {f00=0x0107, f01=0x0190, f02=» * b F P* * F P***************************************************************** f PCONASC EQU * ( P DATA /0001,/0203,/0009,/0000 00-07 ( P DATA /0000,/000B,/0C0D,
0x345e2c…345fc0 Dummy {f00=0x0107, f01=0x0190, f02=»B 20-27 t ( P DATA /0000,/0000,/0005,/0607 28-2F ( P DATA /0031,/1600,/001E,/0004 30-37 < ( P DATA /0000,/0000,/1415,/001A 38-3F h ( P DATA /2041,/4243,/4445,/4647 40-47 ( P DATA /4849,/242E,/3C28,/2B7C 48-4F ( P DATA /264A,/4B4C,/4D4E,/4F5
0x345fc0…346154 (4, 90) Dummy {f00=0x0107, f01=0x0190, f02=»-6F p ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3860,/3A23,/4027,/3D22 78-7F 8 ( P DATA /2061,/6263,/6465,/6667 80-87 d ( P DATA /6869,/5B2E,/3C28,/2B21 88-8F ( P DATA /266A,/6B6C,/6D6E,/6F70 90-97 ( P DATA /7172,/5D24,/2A29,/3B5E 98
0x346154…3462e8 Dummy {f00=0x0107, f01=0x0190, f02=» l ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /7B41,/4243,/4445,/4647 C0-C7 4 ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF ` ( P DATA /7D4A,/4B4C,/4D4E,/4F50 D0-D7 ( P DATA /5152,/5D24,/2A29,/3B5E D8-DF ( P DATA /5C2F,/5354,/5556,/5758 E0-E7
0x3462e8…34647c Dummy {f00=0x0107, f01=0x0190, f02=» P EJECT H P******************************************************************* H P* * ^ H P* CONEBC CONVERT ASCII-EBCDIC * H P*
0x34647c…346610 Dummy {f00=0x0107, f01=0x0190, f02=»NEBC EQU * ( P DATA /0001,/0203,/372D,/2E2F 00-07 ( P DATA /1605,/150B,/0C0D,/0E0F 08-0F > ( P DATA /1011,/124F,/3C3D,/3226 10-17 j ( P DATA /7019,/3F27,/1C1D,/1E1F 18-1F ( P DATA /405A,/7F7B,/4A6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4
0x346610…3467a4 Dummy {f00=0x0107, f01=0x0190, f02=»40-47 r ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-57 : ( P DATA /E7E8,/E97B,/E05B,/5F6D 58-5F f ( P DATA /7981,/8283,/8485,/8687 60-67 ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6
0x3467a4…346938 Dummy {f00=0x0107, f01=0x0190, f02=» P D P* * D P* CONATT CONVERT ATTRIBUTE AND ADDRESSES * P D P* * D P****************************************
0x346938…346acc Dummy {f00=0x0107, f01=0x0190, f02=» ( P DATA /1011,/1213,/3C3D,/3226 10-17 ( P DATA /7019,/3F27,/1C1D,/1E1F 18-1F 0 ( P DATA /404F,/7F4A,/5A6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F
0x346acc…346c60 Dummy {f00=0x0107, f01=0x0190, f02=» DATA /E7E8,/E97B,/7C5B,/5F6D 58-5F ( P DATA /0081,/8283,/8485,/8687 60-67 , ( P DATA /8889,/9192,/9394,/9596 68-6F X ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/0000 78-7F P EJECT B P******************************
0x346c60…346df4 (4, 91) Dummy {f00=0x0107, f01=0x0190, f02=»RT ADDRESSES TO ASCII * v B P* * , B P************************************************************* r PCONADR EQU * * P DATA /2041,/4243,/4445,/4647 /00-/07 ( P DATA /4849,/2
0x346df4…346f88 Dummy {f00=0x0107, f01=0x0190, f02=»354,/5556,/5758 /20-/27 * P DATA /595A,/402C,/255F,/3E3F /28-/2F * P DATA /3031,/3233,/3435,/3637 /30-/37 N * P DATA /3839,/3A5B,/5C27,/3D22 /38-/3F | P EJECT D P**************************************************************** D P*
0x346f88…34711c Dummy {f00=0x0107, f01=0x0190, f02=» * D P*************************************************************** : PCONPF EQU * 4 P DATA /3132,/3334,/3536,/3738,/393A,/235C PF1-12 6 P DATA /4142,/4344,/4546,/4748,/497F,/2E3C PF13-24 P
0x34711c…3472b0 Dummy {f00=0x0107, f01=0x0190, f02=» * ` F P* CONORD CONVERT ORDER CODES TO INDEX * F P* * d F P****************************************************************** PCONORD EQU *
0x3472b0…347444 Dummy {f00=0x0107, f01=0x403c, f02=» DATA /0016,/000E,/0002,/0000 18-1F P END ,@ 8ER CODES TO INDEX * F P* * d F P****************************************************************** PCONORD EQU *
0x347444…3475d8 Dummy {f00=0x0107, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x3475d8…34776c Dummy {f00=0x0107, f01=0x0190, f02=» ? F C I M Q , U Y j ] d a l e . i : m q u H D ! y } 4 p p j T P B H D ! 0 d d | H N # /W* 3 GW K MW Q g H D !j| mP P W P W
0x34776c…347900 Dummy {f00=0x0107, f01=0x0190, f02=»V W r H D ! > T j W T W # ' + 3 7 > ; . H D ! ? I j M h ] g oW W P z H D !6n P P P T W < P # b + 5 b ;
0x347900…347a94 (4, 92) Opaque[0x194]
0x347a94…347c28 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x2100, f03=0x0000}
0x347a94…347c28 IdxSect {
0x347a94…347c28 f00 = 0x0108 // 0x347a94 @0x0
0x347a94…347c28 f01 = 0x004e // 0x347a96 @0x2
0x347a94…347c28 gno = [ // 0x347a98 @0x4
0x347a94…347c28 [0x00]: C0x0108.0x0.0
0x347a94…347c28 [0x01]: C0x0108.0x1.0
0x347a94…347c28 [0x02]: C0x0108.0x2.0
0x347a94…347c28 [0x03]: C0x0108.0x3.0
0x347a94…347c28 [0x04]: C0x0109.0x0.0
0x347a94…347c28 [0x05]: C0x0109.0x1.0
0x347a94…347c28 [0x06]: C0x0109.0x2.0
0x347a94…347c28 [0x07]: C0x0109.0x3.0
0x347a94…347c28 [0x08]: C0x010a.0x0.0
0x347a94…347c28 [0x09]: C0x010a.0x1.0
0x347a94…347c28 [0x0a]: C0x010a.0x2.0
0x347a94…347c28 [0x0b]: C0x010a.0x3.0
0x347a94…347c28 [0x0c]: C0x010b.0x0.0
0x347a94…347c28 [0x0d]: C0x010b.0x1.0
0x347a94…347c28 [0x0e]: C0x010b.0x2.0
0x347a94…347c28 [0x0f]: C0x010b.0x3.0
0x347a94…347c28 [0x10]: C0x010c.0x0.0
0x347a94…347c28 [0x11]: C0x010c.0x1.0
0x347a94…347c28 [0x12]: C0x010c.0x2.0
0x347a94…347c28 [0x13]: C0x010c.0x3.0
0x347a94…347c28 [0x14]: C0x010d.0x0.0
0x347a94…347c28 [0x15]: C0x010d.0x1.0
0x347a94…347c28 [0x16]: C0x010d.0x2.0
0x347a94…347c28 [0x17]: C0x010d.0x3.0
0x347a94…347c28 [0x18]: C0x010e.0x0.0
0x347a94…347c28 [0x19]: C0x010e.0x1.0
0x347a94…347c28 [0x1a]: C0x010e.0x2.0
0x347a94…347c28 [0x1b]: C0x010e.0x3.0
0x347a94…347c28 [0x1c]: C0x010f.0x0.0
0x347a94…347c28 [0x1d]: C0x010f.0x1.0
0x347a94…347c28 [0x1e]: C0x010f.0x2.0
0x347a94…347c28 [0x1f]: C0x010f.0x3.0
0x347a94…347c28 [0x20]: C0x0110.0x0.0
0x347a94…347c28 [0x21]: C0x0110.0x1.0
0x347a94…347c28 [0x22]: C0x0110.0x2.0
0x347a94…347c28 [0x23]: C0x0110.0x3.0
0x347a94…347c28 [0x24]: C0x0111.0x0.0
0x347a94…347c28 [0x25]: C0x0111.0x1.0
0x347a94…347c28 [0x26]: C0x0111.0x2.0
0x347a94…347c28 ]
0x347a94…347c28 }
0x347c28…347dbc Dummy {f00=0x0108, f01=0x018e, f02=» > @ IDENT DSPBSC REL 11.0 811101DK 870150541100 " VDUKB COMINI ECBINI MATCH F VDUKB l , ( 0 @ B P Q a ! ~ TSTMES , ( ! ( _ N N T ICVRED , ( ?
0x347dbc…347f50 Dummy {f00=0x0108, f01=0x0190, f02=» , ( y @ O : T O W T O KBINP2 8 DCINP J ICINP Z , ( W T O W O j MATCH , ( @ : V M P OPEN , ( W , !VV , :
0x347f50…3480e4 Dummy {f00=0x0108, f01=0x0190, f02=»VVX 9H F O ERASE LMP1ON 0 CHKSTA B COMINI : T I:EVA0 h , ( + D : z , ( A . V ! 09B O E :h ECBINI d , ( a % : V H
0x3480e4…348278 Dummy {f00=0x0108, f01=0x409e, f02=» L : " : H D ! . + ~ 9T GP OT _T oT T W( T W T W P ` W : d R P h @ z , ( A . V ! 09B O E :h ECBINI d , ( a % : V H
0x348278…34840c Dummy {f00=0x0108, f01=0x018e, f02=» > @ IDENT DCBSC REL 11.0 81-04-08 870150541100 F B DCINP TSTSTA SETSTA OPEN CONCT SETTIM TSTMES DCABOR TRPA F 2 . TRPF DCOFLN CHKSTA DCWRIT READW RDSTAT DCINP GETBUF RELBUF , ( @
0x34840c…3485a0 Dummy {f00=0x0108, f01=0x018e, f02=» OPEN P , ( 9 ! P " O : CONCT p F , ( W V L C ( B R : X , ( u .! S C V L SETTIM , ( C ( N B E : READW
0x3485a0…348734 (4, 93) Dummy {f00=0x0108, f01=0x0190, f02=» , ( O ( B ![P RESKB 4 , ( @ N ! O D TSTMES 0 t SETSTA B , ( - : C ( : C TSTSTA R RDSTAT f DCABOR f , (
0x348734…3488c8 Dummy {f00=0x0108, f01=0x414c, f02=»COFLN TRPA PAID " * & @ W : : 2 TRPF ` SCRINF r BUFADR PACK , ( " : @ : D @ P W 3P =P M
0x3488c8…348a5c Dummy {f00=0x0108, f01=0x0190, f02=» > @ IDENT VDU REL 11.0 82-03-10 870150541100 F B INSMOD GETVDU STOVDU SCRINF STOINF POSUNP ATMASB ATMASF F D @ DISCHA WCHAR DISMOD DISID ERASUA ERASE SOUND ERASUP WRAP , ( NLROUT LINWRP LINE LINATT DISSTA
0x348a5c…348bf0 Dummy {f00=0x0108, f01=0x0190, f02=» W PR _* | , ( a , ! V X" X( , ( X. X4 Y _> O ! P " P L , ( W W 9 _f PR | , ( _ , ! ^< _ : , ( P R C ( B
0x348bf0…348d84 Dummy {f00=0x0108, f01=0x0190, f02=» 9 l , ( a Y Y B : T " T , ( P P C C W T " < SAVE1 l , ( U N P | REST1 , ( O N , ( ! P " T W 9
0x348d84…348f18 Dummy {f00=0x0108, f01=0x0190, f02=» = W P . O O , ( ] P P P 0 , ( } N ` , ( P _6 P , ( _: P , (
0x348f18…3490ac Dummy {f00=0x0108, f01=0x0190, f02=»TOINF < , ( <' : # : N N N : SOUND J @ , ( = O O O : B + E E R WRAP p , ( ] C ( B : R LINWRP LINE , ( } : Q : Q !
0x3490ac…349240 Dummy {f00=0x0108, f01=0x0190, f02=» Q X ) Y Q PW NLROUT . CRDOWN B , ( P P , ]: : T , ( @ PR P_ P - X ERASE H , ( 7 Y _ : , ( W V - _
0x349240…3493d4 (4, 94) Dummy {f00=0x0108, f01=0x0190, f02=»V j , ( _ P W , ! , ( Z P ! " - X ) Y : RDHOME j , ( @ , ! ^( - X ) Y _ | ERASUA , ( : P T , ( 5 P p" P p
0x3493d4…349568 Dummy {f00=0x0108, f01=0x0190, f02=» , ( U O ! R '0 0 bTAB 4 , ( P O U < W B DISID r , ( B ! QT : , ( P V . $ P R 4 9 , ( _ B Y 6 @ Y /
0x349568…3496fc Dummy {f00=0x0108, f01=0x0190, f02=»Z < : O ! , ( s V V N P _ < : WCHAR P , ( U P ! W : b , ( ' P ' T W B ] , ( ] O P . O DISCHA , (
0x3496fc…349890 Dummy {f00=0x0108, f01=0x0190, f02=» ! l . P /T 9T = v ERt GT SW YR ] e kV& o P P H D ! W W R . P P$ ET M P T W^ P$ L H D ! . f < P T W W P T W P % > 7 ;P ?W H D !n EP S " g oP0 u " P4
0x349890…349a24 Dummy {f00=0x0108, f01=0x40be, f02=» 7PZ ?P MPD iW uP U R* P U W T | H D ! P R IU QP sV wV P U P W P T W 8 P T W T T0 5R L @ T W P % > 7 ;P ?W H D !n EP S " g oP0 u " P4
0x349a24…349bb8 Dummy {f00=0x0108, f01=0x0190, f02=» B @ IDENT PAD REL 11.0 DK 82-04-22 870150541100 H D ! PACK UNPACK UNPSYS GETBUF RELBUF PAID BUFADR PACKSY SAVE1 J REST1 PACK SCRINF , ( @ P , ! V WRAP ,
0x349bb8…349d4c Dummy {f00=0x0108, f01=0x0190, f02=» P T _$ | UNPACK LMP3ON 0 , ( {@ : O N !VVT B LINE r , ( P O ATMASB , ( T N X W , (
0x349d4c…349ee0 Dummy {f00=0x0108, f01=0x0190, f02=» ICSET ICWRT , ( - T O $ ERASE T , ( K @ W P d ERASUP , ( g W W O W , ( O : R
0x349ee0…34a074 (4, 95) Dummy {f00=0x0108, f01=0x0190, f02=» O W O H * O LINWRP ( LINATT : , ( @ X ! P - L , ( : O W H '??F O | , ( 7 W H "? O V , ( U W : O
0x34a074…34a208 Dummy {f00=0x0108, f01=0x018e, f02=» l , ( : O W H '??F O , ( W H "? V O W O < , ( - X ) Y l , ( ' W : O W H '??F , ( E O W H "? O V ERASUA
0x34a208…34a39c Dummy {f00=0x0108, f01=0x0190, f02=» , ( : : : : R V W ERROR 8 , ( V " O ( : H , ( V " # : V " x PAID BUFADR CONADR , ( " : : :f"? H $
0x34a39c…34a530 Dummy {f00=0x0108, f01=0x0190, f02=» N ' P &! P COPY SAVE1 0 , ( s N !VVT (W : W B REST1 r , ( % % % % % % : , ( W $ $ $ $ $ $ :
0x34a530…34a6c4 Dummy {f00=0x0108, f01=0x0190, f02=» PH V %W -PJ =T I MT0 S [P iP m qT T H D !_ T W & ~ & 8 H H D ! < N P W Pd P> PL !T* %Wj -T SWB gW sW" }W J R H D !? Q W j v
0x34a6c4…34a858 Dummy {f00=0x0108, f01=0x4086, f02=» sW W" W R V W V V V 5V x 8 4 ! =R UP _ iP qP {T W W W T P 4 p@ H H D ! < N P W Pd P> PL !T* %Wj -T SWB gW sW" }W J R H D !? Q W j v
0x34a858…34a9ec Dummy {f00=0x0108, f01=0x0190, f02=» B @ IDENT PRINT REL 11.0 DK 82-04-22 870150541100 PRINT COPP J PRINT ` , ( TT LL GG CC # # # # (@P r OPEN CONCT SETTIM , ( ! ( O , (
0x34a9ec…34ab80 Dummy {f00=0x0108, f01=0x0190, f02=» O : t , ( T O W T O O W GETBUF D READW V * & : P f UNPACK , ( ! T W B O N SETSTA , ( ! P :
0x34ab80…34ad14 (4, 96) Dummy {f00=0x0109, f01=0x0190, f02=» D P z COPP X ATMASB * , ( E : O ( : < , ( c O N !8 ! P =d T T N l , ( D # , ( V R T ," P ! R W , ( !
0x34ad14…34aea8 Dummy {f00=0x0109, f01=0x0190, f02=» ! O : , ( A : , , ( a T N D N R P O , ( N T _ O _& O : , ( T 1 C O : ! 1 P N , ( !0T 0 : @
0x34aea8…34b03c Dummy {f00=0x0109, f01=0x0190, f02=»!010T "@T B | , ( A C $ ! T B P _ B , ( a B C ( 2 L , ( ( "R ( R W ( | COMINI ECBINI , ( O B T # : , ( @
0x34b03c…34b1d0 Dummy {f00=0x0109, f01=0x0190, f02=» M d( _6 P M , ( P = : @ & ( %P @ @ P _ 0 ] N $ : ` H D ! F ! 7 C b Q iP qT T T W T W H P | H D ! T W P X X ( 9P sP }T V^ R Th P6
0x34b1d0…34b364 Dummy {f00=0x0109, f01=0x40c6, f02=» K M O Q U ` H D ! _ cT6 sR uP T T P T T T P T W P D @ %T 1Tx 5Tt QT YP R R W T P P* 9P KP YP h h @
0x34b364…34b4f8 Dummy {f00=0x0109, f01=0x0190, f02=» @ @ IDENT CONVER REL 11.0 DK82-04-01 870150541100 4 0 CONASC CONEBC CONATT CONADR CONPF CONORD H CONASC , ( , ( ! 1 , ( A ABCDEFGHI$.
0x34b4f8…34b68c Dummy {f00=0x0109, f01=0x0190, f02=»uvwxyz|,%_>?0123456789:#@'=" , ( {ABCDEFGHI[.<(+!}JKLMNOPQR]$*);^ $ CONEBC T , ( /STUVWXYZ|,%_>?0123456789:#@'= h , ( 7-./ O<=2&p ?' , ( ! @Z {JlP}M] Nk`Ka z^L~no , ( A |
0x34b68c…34b820 Dummy {f00=0x0109, f01=0x0190, f02=» l , ( @O JZlP}M] Nk`Ka z^L~no , ( j {|[_m < CONADR l , ( , ( ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^ CONPF @ , ( ! -/STUVWXYZ@,%_
0x34b820…34b9b4 (4, 97) Dummy {f00=0x0109, f01=0x4014, f02=» x @ @O JZlP}M] Nk`Ka z^L~no , ( j {|[_m < CONADR l , ( , ( ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^ CONPF @ , ( ! -/STUVWXYZ@,%_
0x34b9b4…34bb48 Dummy {f00=0x0109, f01=0x4110, f02=» > @ IDENT FMOVE P,REL=11.0,810128,870136941100 FMOVE F FMOVE V I:EVA0 h I:EVA5 z , ( B & + P I:RT1 _ P (
0x34bb48…34bcdc Dummy {f00=0x0109, f01=0x40cc, f02=» > @ IDENT TYPET P,REL=11.0,810128,870136941100 TYPET F TYPET V I:EVA0 h I:RT1 z ( $ D ;d # + @ :RT1 RETURN TO INTERPRETER P END @
0x34bcdc…34be70 Dummy {f00=0x0109, f01=0x40fc, f02=» > @ IDENT ICLEAR P,REL=11.0,810128,870136941100 ICLEAR F ICLEAR X I:EVA0 l I:RT1 ~ , ( @ #0 0T ' ' _ T $ @
0x34be70…34c004 Dummy {f00=0x0109, f01=0x411c, f02=» > @ IDENT EMPTYT P,REL=11.0,810128,870136941100 EMPTYT F EMPTYT X I:EVA0 l , ( @ #0 0T & ! T ~ I:RT1 , ( P & ! X T C T T !P
0x34c004…34c198 Dummy {f00=0x0109, f01=0x0190, f02=» > @ IDENT T:STIN P,REL=11.0,810128,870136941100 STRIN1 F STRIN1 X T:STEV l , ( @ X x & Y " X R ~ T:RNOK , ( W R P _ Y $ T:LOFS I:E
0x34c198…34c32c Dummy {f00=0x0109, f01=0x0190, f02=» h , ( u [ z [ }T 0W 3R V : , ( %W X $ X " R W V 8 , ( R W V % _ [ h I:MOV , ( " D $ D Z P Z T:GRFC , ( @ % z " * {
0x34c32c…34c4c0 Dummy {f00=0x0109, f01=0x402e, f02=» V P @ *
0x34c4c0…34c654 (4, 98) Dummy {f00=0x0109, f01=0x0190, f02=» > @ IDENT T:STOU P,REL=11.0,810128,870136941100 STROU1 F STROU1 X T:STEV l T:LOFS ~ * & @ X x & Y " I:EVA0 T:LOPS , ( !0P <
0x34c654…34c7e8 Dummy {f00=0x0109, f01=0x40fe, f02=»R W V r T:DUPX T:GRFC $ , ( y & Y $ 8 " X X 6 T:ROK f T:RNOK v $ x ( y $ 4 0 1P< ;T( AT GW$ WP cW mW wP R W V, @ !0P <
0x34c7e8…34c97c Dummy {f00=0x0109, f01=0x40f4, f02=» > @ IDENT T:STEV P,REL=11.0,810128,870136941100 T:STEV F T:STEV X T:GRFC l I:EVA0 ~ , ( H Y Y & ( : & @ P RTN PS P I
0x34c97c…34cb10 Dummy {f00=0x0109, f01=0x0190, f02=» > @ IDENT T:EDFL P,REL=11.0,810128,870136941100 T:EDFL F T:EDFL X T:PRKB l T:PRDY ~ T:PM1 T:PM2 T:CASP , ( I$ Y , ( ( x P Y *
0x34cb10…34cca4 Dummy {f00=0x0109, f01=0x0190, f02=» X 0 v , ( s P X T 5 ! Y * T:SCUW F T:CLRD X , ( y X V X X ( j , ( x C ( Y * , ( X Y , X X C & , ( C
0x34cca4…34ce38 Dummy {f00=0x0109, f01=0x018e, f02=» X l , ( I *YrP y X " x Y X " T T:BELL < , ( i Y _ _ B U C Q N T:CLR1 ~ T:CLR2 , ( P C D X , ( X * $" ~_> @ Y X * _R X , (
0x34ce38…34cfcc Dummy {f00=0x0109, f01=0x0190, f02=» , ( ! @ " X # X * y _< X , ( ? # X * y X 1 1 4 , ( ] X !@T X $ " P y d T:CLIT T:EKEY , ( } @ _ x T X H , ( X X * , )$ P
0x34cfcc…34d160 Dummy {f00=0x0109, f01=0x405c, f02=»T {U Q < V P eT uP T P F@ X
0x34d160…34d2f4 (4, 99) Dummy {f00=0x0109, f01=0x0190, f02=» > @ IDENT T:DYKI P,REL=11.0,810128,870136941100 J F " T:DYKI T:PM1 T:PM2 T:CLR1 T:CLIT T:CLR2 T:IOER T:EKEY T:BELL F T:DYKI T:PRKB T:PRDY I:EVA7 * & H ' Y
0x34d2f4…34d488 Dummy {f00=0x0109, f01=0x0190, f02=» X l T:CASP * & y ! T _ y C Q " T T:CLRD L , ( X ! X ^ , ( X ! x Y~ Y _ X "@P B , ( R y C B P 9 V _F9 , ( V X ! T X !@X
0x34d488…34d61c Dummy {f00=0x0109, f01=0x0190, f02=» B y " y $ c C T:CLR1 X & T:CLR2 f : T:SCUW N , ( Q _$ _ y _6 ( x X@ X ` , ( qA X # C _. B , ( ]d P C Q X8_H x XD @ Y , ( c C y
0x34d61c…34d7b0 Dummy {f00=0x0109, f01=0x0190, f02=» T:IOWR , ( # B P B C : T:CLIT : F , ( ' + X Z T:LOFS I:EVA0 T:LOPS T:CLMI , ( A ( ( T:P
0x34d7b0…34d944 Dummy {f00=0x0109, f01=0x4104, f02=» , ( B Y Y . : & " " $ : 8 H D ! ! n # aTf i mR s J }T Q T Z P R P V b < 8 ` VV T 'P +Q( [ * P Q8 Z P & a j {V P @ T:P
0x34d944…34dad8 Dummy {f00=0x0109, f01=0x0190, f02=» > @ IDENT T:UPDF P,REL=11.0,810128,870136941100 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x34dad8…34dc6c Dummy {f00=0x0109, f01=0x4032, f02=» =T P @ .870136941100 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x34dc6c…34de00 Dummy {f00=0x0109, f01=0x018e, f02=» > @ IDENT T:DUPL P,REL=11.0,810128,870136941100 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x34de00…34df94 (4, 100) Dummy {f00=0x010a, f01=0x4052, f02=» UD : CT OV $ ` <@ N:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x34df94…34e128 Dummy {f00=0x010a, f01=0x4140, f02=» > @ IDENT T:GETC P,REL=11.0,810128,870136941100 T:GETC F T:GETC X T:GRFC l I:EVA0 ~ , ( @ 2' R P P X I:RT1 , ( ' ' X _ X ' _ X '? ;
0x34e128…34e2bc Dummy {f00=0x010a, f01=0x4124, f02=» > @ IDENT T:GETA P,REL=11.0,810128,870136941100 T:GETA F T:GETA X T:GRFC l I:EVA0 ~ T:RNOK T:ROK , ( H X ' X ! T:RCR H
0x34e2bc…34e450 Dummy {f00=0x010a, f01=0x410e, f02=» > @ IDENT T:TSTC P,REL=11.0,810128,870136941100 T:TSTC F T:TSTC X T:GRFC l , ( @ X " 9b! X :c 2" ~ T:RTES $ H @ % , 4 @
0x34e450…34e5e4 Dummy {f00=0x010a, f01=0x0190, f02=» > @ IDENT T:TFWD P,REL=11.0,810128,870136941100 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
0x34e5e4…34e778 Dummy {f00=0x010a, f01=0x4132, f02=» Y ( Y 09H Y * T:TABE * & = Y 4 Y 2 Y 69h Q X :h Y 0 2 T:SCR2 ` T:TABC r , ( [ W U X Q W Y 0 T:TABN w 8 4 W W W W W W !W MQ ]W
0x34e778…34e90c Dummy {f00=0x010a, f01=0x0190, f02=» > @ IDENT T:DISP P,REL=11.0,810827,870136941100 T:PRIN T:DISP T:ERAS F T:PRIN h T:GDSP | T:DSM T:EDWI T:GRFC , ( D 9H Y T:GTIP T
0x34e90c…34eaa0 Dummy {f00=0x010a, f01=0x0190, f02=» 0 X +" X *9h P R , ( Q Y ?_ P P Y +W T:TABD P , ( q Y + W T W b , ( Q W Y + U T:TABC , ( Q P W W Y ( C T
0x34eaa0…34ec34 (4, 101) Dummy {f00=0x010a, f01=0x4134, f02=» h , ( 0 X 0 X 2] X 8 Y 0 : , ( # X 0 :H* : X 2T Y 2 : 8 T:EDIO h $ C @ C 1 B ] : z H D ! !W %W KP2 OR YP _P gW^ k < w . }WL T . W> Q W , ( U Q P W W
0x34ec34…34edc8 Dummy {f00=0x010a, f01=0x0190, f02=» > @ IDENT T:GETF P,REL=11.0,810128,870136941100 T:GETF T:GTIT T:GTIP F T:GETF h T:PRDY | , ( @ X +! U 9K Y ( Y T:TABC T:TABN T:GTIT ( T:GRFC
0x34edc8…34ef5c Dummy {f00=0x010a, f01=0x405a, f02=» 0 p W 6 2 : ! ( U ! 0 d ! D@ ! V:GTIP F T:GETF h T:PRDY | , ( @ X +! U 9K Y ( Y T:TABC T:TABN T:GTIT ( T:GRFC
0x34ef5c…34f0f0 Dummy {f00=0x010a, f01=0x8190, f02=» > @ IDENT T:REWR P,REL=11.0,810128,870136941100 " . * T:REWR T:SCUW T:CLRD T:IOWR T:CASP " F T:IOWR " x T:SCUW " , ( C ( C : " T:CLRD * " T:REWR 0 " T:PRDY " ,
0x34f0f0…34f284 Dummy {f00=0x010a, f01=0xc160, f02=» _ X D D : K " I:EVA3 # 0 I:EPIC # B , ( } $ + Q 2 P P # T T:LOPS # , ( ( B X # V # I:EVA0 # I:ECPY # I:EVI # , ( :
0x34f284…34f418 Dummy {f00=0x010a, f01=0x0190, f02=» > @ IDENT T:DEDT P,REL=11.0,810827,870136941100 . * T:TABC T:TABD T:TABE T:TABN T:SCR2 F I:EVNO x I:ESKI I:EVA0 I:EBRI I:EBRB I:EBR , (
0x34f418…34f5ac Dummy {f00=0x010a, f01=0x0190, f02=» z T:DSL I:RET * T:TABC , : T:TABD 0 N T:TABE 4 b , ( ! W W v , ( 5 X 0Q Y ( Y *P T:EDWI I:EVT I:EDSK ,
0x34f5ac…34f740 Dummy {f00=0x010a, f01=0x0190, f02=» P X 0P V _` " P T T:LOPS , , ( & (W " P Y 0] > T:EOR n * & Y (_t " X _. X *# T ~ T:EDWF , ( *W , B 1 ,W T:SCR2 , (
0x34f740…34f8d4 (4, 102) Dummy {f00=0x010a, f01=0x40d4, f02=» , ( ; (T W X y 6 Y ( : X (;n [@ 0 8 H D ! /W 3W ;Q ? C OP Qv P P: Vv P4 T WZ P T W N W P !P 5W =T AW ^ @ 1 ,W T:SCR2 , (
0x34f8d4…34fa68 Dummy {f00=0x010a, f01=0x8190, f02=» > @ IDENT T:ENLI P,REL=11.0,810615,870136941100 T:DNL T:DSL F I:EVNO I:ECPY n I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR * &
0x34fa68…34fbfc Dummy {f00=0x010a, f01=0x8190, f02=» I:ESKI . I:EXPY @ I:RET R I:ATTR b T:DSL , t T:GRFC , ( ! H " $ & ( Y . T:DNL : , ( 5 Y ,W ( Y . X ( X ." P X
0x34fbfc…34fd90 Dummy {f00=0x010a, f01=0xc190, f02=» . l I:ECTR , ( X . X 2Q Y *T 0 : " , ( P X 0U X *# P P T N T:ENIN ~ * & @ " T : Y . 2 Y ( , ( ( Y *T " T ! 1 W ! ) 0 : H
0x34fd90…34ff24 Dummy {f00=0x010a, f01=0x0190, f02=» > @ IDENT T:EINP P,REL=11.0,810827,870136941100 " T:PKI T:PINP T:TKI T:TINP F T:PKI l T:PINP ~ T:GRFC I:ETAB I:EVIN , ( I P & , ( Y *T
0x34ff24…3500b8 Dummy {f00=0x010a, f01=0x0190, f02=»Q X &P V D ! P | T:TINP T:TKI 0 * & u $ ! P %_ : B , ( V Y " X .9H $ p , ( P & X ( " Q Y +Q R , ( " P W " U Y , " Q X . , (
0x3500b8…35024c Dummy {f00=0x010a, f01=0x0190, f02=» M X (# P X # :! R W T:ENIN 0 T:ENI B * & m T @ Y (W Y , W R I:EXIT , ( Y ( : X *:h X (! , ( # P X & V L T W X , X 0 , ( P T X *
0x35024c…3503e0 Dummy {f00=0x010a, f01=0x0190, f02=» , ( @ % P Y 8 & X 8 X $ , ( E@ W _ " P X ( T X & V 4 , ( c H "@T P V Y d , ( X (P X ( T:CLMI , ( P 8 Y 0 X 2P X , (
0x3503e0…350574 (4, 103) Dummy {f00=0x010a, f01=0x0190, f02=» P : : x , ( "0P $ T W %T , ( ; : : Y ( X $ Y X " Y X & H , ( [ Y X < Y > : Y : X : x , ( y X ( T X & V H " V T:SPAC X $ : H D !
0x350574…350708 Dummy {f00=0x010a, f01=0x4100, f02=» 3P< R H D ! 7 @ 9WZ IP< KQ SP2 aR$ cW g @ k oT$ wW W P Tb W P@ H D ! T, T @ P !P* ) -P| IWh QP [T kTF o sP6 P h Z @ < A P P V T P P #P )T -W 1T T V @ H D !
0x350708…35089c Dummy {f00=0x010a, f01=0x0190, f02=» > @ IDENT T:ENIN P,REL=11.0,810128,870136941100 1 T:ENIN T:ENI T:EVOU 1 F T:ENIN 1 f T:ENI 1 z , ( X Y " X Y $ X Y & X >W X 1 T:LOFS 1 , ( ! < Y = " 1 I:EGTB
0x35089c…350a30 Dummy {f00=0x010a, f01=0x0190, f02=» X (P 1 n T:WRDY 2 , ( W X & V D ! P @ W X 2 , ( W Y ( : X , Y X $ Y 2 P , ( X &T Y Y Y W V $ 2 , ( :H D Y D :H Y ! P V 2 I:EVA0 2 I:EVA1 2 , (
0x350a30…350bc4 Dummy {f00=0x010a, f01=0x411a, f02=» 2 , ( Q : 2' " P T 3 I:EVA3 3 8 I:EPIC 3 J , ( mD W : N : 3 H D ! W CT IW SP a mT" }T W4 W, P W" P W W T WD 3 ( $ P W )P /W A X aP gT qW 3
0x350bc4…350d58 Dummy {f00=0x010a, f01=0x415c, f02=» > @ IDENT T:SETC P,REL=11.0,810128,870136941100 4 T:SETC T:SCUR 4 F T:SETC 4 ` T:PRDY 4 t T:GRFC 4 T:EDWI 4 T:RCTS 4 , ( H C 4 T:SCUR 4 T:WRD
0x350d58…350eec Dummy {f00=0x010a, f01=0x40e2, f02=» > @ IDENT T:CLMI P,REL=11.0,810128,870136941100 5 T:CLMI 5 F T:CLMI 5 X , ( "0P ' Q W ' 5 l ! Y : 5 P Q W 5 ( 5 @ 5 A2,0 PCLRM20 EQU * P SCR
0x350eec…351080 Dummy {f00=0x010a, f01=0x0190, f02=» > @ IDENT T:ATTF P,REL=11.0,810827,870136941100 J F " T:ATTF T:DETF T:ROK T:RNOK T:RCR T:RCTS T:RTES T:GRFC T:WRDY F . * T:PRKB T:PRDY T:ADDY T:SPAC T:CHBU T:DETF T:ATTF I:EVA6 I:FFS
0x351080…351214 (4, 104) Dummy {f00=0x010b, f01=0x0190, f02=»TES : , ( Y Y Y < V E B T:RNOK < > T:GRFC @ R T:WRDY H f T:EDIO z * & ; X _ v : C C T:SPAC T:CHBU n , ( Y : H C : +
0x351214…3513a8 Dummy {f00=0x010b, f01=0x4080, f02=» W @ X B ; [ Z : : . ` W @ _ n W N j@ |DIO z * & ; X _ v : C C T:SPAC T:CHBU n , ( Y : H C : +
0x3513a8…35153c Dummy {f00=0x010b, f01=0x0190, f02=» > @ IDENT T:LSEG P,REL=11.0,810128,870136941100 9 & " T:LOFS T:LOPS T:LSEG T:CSEG 9 F T:LSEG 9 p T:CSEG 9 , ( ( R : V E V D ' 9 , ( ! $ T ( W P 9 I:RT1 9
0x35153c…3516d0 Dummy {f00=0x010b, f01=0x401a, f02=» f : @ : G P,REL=11.0,810128,870136941100 9 & " T:LOFS T:LOPS T:LSEG T:CSEG 9 F T:LSEG 9 p T:CSEG 9 , ( ( R : V E V D ' 9 , ( ! $ T ( W P 9 I:RT1 9
0x3516d0…351864 Dummy {f00=0x010b, f01=0x4146, f02=» > @ IDENT T:DC00 P,REL=11.0,810128,870136941100 ; DCREAD DCWRTE DCEXCH ; F T:FDS0 ; h DCREAD ; z T:DCR1 ; DCWRTE ; T:DCW1 ; DCEXCH ; T:DCE1 ; , ( I$
0x351864…3519f8 Dummy {f00=0x010b, f01=0x40aa, f02=» > @ IDENT T:SWI0 P,REL=11.0,810128,870136941100 < SWITCH < F T:SWIT < X SWITCH < j @ < ~ < @ < ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x3519f8…351b8c Dummy {f00=0x010b, f01=0x40da, f02=» > @ IDENT T:TEI0 P,REL=11.0,810128,870136941100 = TESTIO ABORT = F T:TEST = ^ TESTIO = p T:ABOR = ABORT = H = = @ = . P*
0x351b8c…351d20 Dummy {f00=0x010b, f01=0x40de, f02=» > @ IDENT T:CLO0 P,REL=11.0,810128,870136941100 > SETTIM GETTIM > F T:SETT > ` SETTIM > r T:GETT > GETTIM > H > > @ > . P*
0x351d20…351eb4 (4, 105) Dummy {f00=0x010b, f01=0x40a6, f02=» > @ IDENT T:DEL0 P,REL=11.0,810128,870136941100 ? DELAY ? F T:DELA ? V DELAY ? h @ ? z ? @ ? * ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x351eb4…352048 Dummy {f00=0x010b, f01=0x40aa, f02=» > @ IDENT T:GTI0 P,REL=11.0,810128,870136941100 @ GETTID @ F T:GETI @ X GETTID @ j @ @ ~ @ @ @ ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x352048…3521dc Dummy {f00=0x010b, f01=0x0190, f02=» > @ IDENT T:DC P,REL=11.0,810128,870136941100 A 6 2 T:DCRE T:DCR1 T:DCWR T:DCW1 T:DCEX T:DCE1 A F T:DCRE A T:GDSP A T:DCR1 A T:DCWR A T:DCW1 A T:EDIO A , ( @@ /
0x3521dc…352370 Dummy {f00=0x010b, f01=0x40ca, f02=»:EVA0 A , ( 7 ' / C B , ( Q$ C B > & " k &P C & C : B n V W V 1 V B B @ B T:DCW1 A T:EDIO A , ( @@ /
0x352370…352504 Dummy {f00=0x010b, f01=0x40b6, f02=» > @ IDENT T:SWI P,REL=11.0,810128,870136941100 C T:SWIT C F T:SWIT C X I:RT1 C l ( C | C @ C E LEVEL P* PT:SWIT EQU * P LDK A7,0 " P SU PP,CSB,TCA GET
0x352504…352698 Dummy {f00=0x010b, f01=0x4174, f02=» > @ IDENT T:TEI P,REL=11.0,810128,870136941100 D T:TEST T:ABOR D F T:TEST D ` T:GDSP D t I:RT1 D T:ABOR D * & @ "Q V I D T:KIAA D , ( ( T
0x352698…35282c Dummy {f00=0x010b, f01=0x4178, f02=» > @ IDENT T:CLO P,REL=11.0,810128,870136941100 E & " T:SETT T:GETT T:SETD T:GETD E F T:SETT E p I:EVA0 E I:RT1 E T:GETT E * & @ ( E T:SETD . E , (
0x35282c…3529c0 Dummy {f00=0x010b, f01=0x40d0, f02=» > @ IDENT T:DEL P,REL=11.0,810128,870136941100 F T:DELA F F T:DELA F X I:EVA0 F l I:RT1 F ~ ( $ @ ( F F @ F RY * P LDK WK1,2 NOT BINARY; SET ERROR CODE P
0x3529c0…352b54 (4, 106) Dummy {f00=0x010b, f01=0x40cc, f02=» > @ IDENT T:MSK0 P,REL=11.0,810128,870136941100 G MASK G F MASK G V I:EVA0 G h I:RT1 G z ( $ D V G G @ G TYPE? P RF(NZ) MSK010 NOT BINARY P XIF P
0x352b54…352ce8 Dummy {f00=0x010b, f01=0x0190, f02=» > @ IDENT T:SCD P,REL=11.0,810224,870136941100 T:ACTV T:PAUS T:RSTR F T:ACTV h , ( 2 ;B P J | P:BAS I:NTPB , ( ! T ( T:BAT
0x352ce8…352e7c Dummy {f00=0x010b, f01=0x408e, f02=» ( W V x I:RT1 y V I ( ( $ ( P0 #T + X ?W6 I X WW uW V L x@ P J | P:BAS I:NTPB , ( ! T ( T:BAT
0x352e7c…353010 Dummy {f00=0x010b, f01=0x0190, f02=» > @ IDENT T:UNUS P,REL=11.0,810224,870136941100 T:UNUS F T:UNUS X , ( 2 ' >A >A 2 $ l P:MTAB , ( ! V L ;a ; R @ ( 8 , ( ? ? X Q ( V )<B
0x353010…3531a4 Dummy {f00=0x010b, f01=0x402a, f02=» 5RF OQ0 @ &,810224,870136941100 T:UNUS F T:UNUS X , ( 2 ' >A >A 2 $ l P:MTAB , ( ! V L ;a ; R @ ( 8 , ( ? ? X Q ( V )<B
0x3531a4…353338 Dummy {f00=0x010b, f01=0x4096, f02=» > @ IDENT T:EXIT P,REL=11.0,810128,870136941100 N T:EXIT N F T:EXIT N X ( N l N @ N KM P DATA 3 P* P END @ LDKL A6,-1 P ABL T:UERR END @ P ADR
0x353338…3534cc Dummy {f00=0x010b, f01=0x413a, f02=» > @ IDENT T:GTCW P,REL=11.0,810128,870136941100 O GETCW O F T:GDSP O V GETCW O h I:EVA0 O z T:BINB O * & H V 0V B B O T:GTCW O I:RT1 O W
0x3534cc…353660 Dummy {f00=0x010b, f01=0x40cc, f02=» > @ IDENT T:GTID P,REL=11.0,810128,870136941100 P T:GETI P F T:GETI P X I:EVA0 P l I:RT1 P ~ $ @ V G 9h ' P P @ P VALUE " P SC WK1,1,OP2A STORE FOR USER P SRL WK1
0x353660…3537f4 (4, 107) Dummy {f00=0x010b, f01=0x4184, f02=» > @ IDENT T:DMR P,REL=11.0,810128,870136941100 & " T:DREA T:IREA T:XREA T:IXID F T:DREA p T:REAX T:SCW2 T:IO2 T:IREA , ( $ T:XREA
0x3537f4…353988 Dummy {f00=0x010b, f01=0x0190, f02=» > @ IDENT T:DMW P,REL=11.0,810128,870136941100 > : T:SWRI T:DWRI T:IWRI T:XWRI T:DREW T:CREW T:IREW F T:SWRI T:WRIX T:IO1 T:XWRI T:DWRI , ( / W
0x353988…353b1c Dummy {f00=0x010b, f01=0x40a2, f02=» T:CREW > T:IREW L , ( 5D" / / ( M X W | @ RIX T:IO1 T:XWRI T:DWRI , ( / W
0x353b1c…353cb0 Dummy {f00=0x010b, f01=0x416a, f02=» > @ IDENT T:DMDI P,REL=11.0,810128,870136941100 T:DDIS T:CDIS T:IDIS F T:DDIS h T:DSB | T:SCW2 T:IO2 T:CDIS , ( $ C <H / T:IDIS
0x353cb0…353e44 Dummy {f00=0x010b, f01=0x4162, f02=» > @ IDENT T:DMPO P,REL=11.0,810128,870136941100 T:DPOS T:IPOS F T:DPOS ` T:DSB t T:SCW2 T:GTBY T:IO2 , ( H@ C <H / T:IPOS T:WRIX
0x353e44…353fd8 Dummy {f00=0x010b, f01=0x0190, f02=» > @ IDENT T:DCC P,REL=11.0,810128,870136941100 X F B T:COPE T:COP1 T:CCLO T:CCL1 T:CCL2 T:ACON T:ACO1 T:ACO2 X F F B T:ACO3 T:PCON T:PCO1 T:PCO2 T:DISC T:DIS1 T:DIS2 T:DIS3 X T:DIS4 T:OPT X T:COPE X
0x353fd8…35416c Dummy {f00=0x010b, f01=0x018e, f02=» T:CCLO " X T:CCL1 & Y T:CCL2 * Y & , ( W W /" C Y : T:ACON P Y j T:ACO1 T Y ~ , ( 7 C C P P _2 W Y T:ACO2 X Y T:ACO3 Y T:PCON f Y T:PCO1
0x35416c…354300 Dummy {f00=0x010b, f01=0x0190, f02=» T:DIS3 Z T:DIS4 Z , ( s /'W W W W W Z , T:STCW Z , ( // C C C P P Z n * & C P P Z T:OPT Z I:EVA0 Z &<H
0x354300…354494 (4, 108) Dummy {f00=0x010c, f01=0x400c, f02=» Z @ [ 3 Z T:DIS4 Z , ( s /'W W W W W Z , T:STCW Z , ( // C C C P P Z n * & C P P Z T:OPT Z I:EVA0 Z &<H
0x354494…354628 Dummy {f00=0x010c, f01=0x0190, f02=» > @ IDENT T:DCR P,REL=11.0,810128,870136941100 & " T:RECE T:REC1 T:AREC T:ARE1 F T:RECE p T:REC1 T:REAX T:OPT T:IO2 , ( W C C P T:AREC
0x354628…3547bc Dummy {f00=0x010c, f01=0x403a, f02=» v W P #W 3P ] D ] $@ ] 61100 & " T:RECE T:REC1 T:AREC T:ARE1 F T:RECE p T:REC1 T:REAX T:OPT T:IO2 , ( W C C P T:AREC
0x3547bc…354950 Dummy {f00=0x010c, f01=0x0190, f02=» > @ IDENT T:DCS P,REL=11.0,810128,870136941100 ^ & " T:SEND T:SEN1 T:ASEN T:ASE1 ^ F T:SEND ^ p T:SEN1 ^ T:WRIX ^ T:OPT ^ * & W / C C P ^ T:IO1 ^ T:ASEN " ^
0x354950…354ae4 Dummy {f00=0x010c, f01=0x403e, f02=» _* ^ t W P %W 7P _ H _ (@ _ : ^ & " T:SEND T:SEN1 T:ASEN T:ASE1 ^ F T:SEND ^ p T:SEN1 ^ T:WRIX ^ T:OPT ^ * & W / C C P ^ T:IO1 ^ T:ASEN " ^
0x354ae4…354c78 Dummy {f00=0x010c, f01=0x018e, f02=» > @ IDENT T:IO P,REL=11.0,810803,870136941100 J F " T:WRIT T:READ T:SREA T:KI T:NKI T:EDWR T:DSC0 T:DSC1 T:DSC2 F H D ! T:EDWE T:EDWF T:EDWI T:EDIO T:XSTA T:WAIT T:IO1 T:IO2 T:IO3 D @ T:IO5 T:FDS0 T:FDSP T:GDSP T:KIPR
0x354c78…354e0c Dummy {f00=0x010c, f01=0x0190, f02=» p T:KI T:NKI T:WRIT , T:WRIL @ T:LWRI T , ( W / h T:WRIX " T:WRIO & I:EVA0 , ( ! _ C P <H T:S
0x354e0c…354fa0 Dummy {f00=0x010c, f01=0x0190, f02=» V C / <H : C T:DSC1 " , ( } C W C 9HR 6 T:DSC2 f , ( ' W 781"&$ 39#$;< '()*+,-! z T:XSTA , ( P _J T:WAIT T:M
0x354fa0…355134 (4, 109) Dummy {f00=0x010c, f01=0x0190, f02=» ( v , ( 7 0 W T:IO1 F T:IO2 ` X T:IO3 d j T:IO5 p | T:IORE t , ( W : 1W C C ( ' P T:GCW2 , ( w @ P V ,V W B
0x355134…3552c8 Dummy {f00=0x010c, f01=0x0190, f02=» I:EDW , ( B P B P B 5 : T:EDWE > T:EDWF R , ( @ C C C B f T:EDWI , ( B P C : V I C T:EDIO , ( B : (
0x3552c8…35545c Dummy {f00=0x010c, f01=0x018e, f02=» & R r , ( i V C : B T:FDS0 B , ( T T T V : 2 V T:GDSP P:MTAB I:EVTO * & ' W 2 6 2 @ & " T # ' ?D I:FML , ( @
0x35545c…3555f0 Dummy {f00=0x010c, f01=0x0190, f02=» , ( : _: L C L C T:DSB , 8 T:FDSP 6 J , ( B C : : ^ T:GTBY P , ( ? : C : : T:SCW2 T:DSCX n I:EVA2 ,
0x3555f0…355784 Dummy {f00=0x010c, f01=0x414e, f02=» : H D !~ W 6 d " % , - @ 1P G L K ` O , S @ _P eV u , y P H D !V W R W @ P W W| P [W sP0 H D ! w }P& V W P z P P P )P - z @ < 9 , = @ cR iV
0x355784…355918 Dummy {f00=0x010c, f01=0x0190, f02=» > @ IDENT T:CW P,REL=11.0,810615,870136941100 F B T:GCW2 T:GTCW T:SCW2 T:STCW T:SCW0 T:BCDB T:BINB T:KIAA F T:KIAC T:STCW I:EVA2 T:SCW0 , ( @ #0 T & C C : C
0x355918…355aac Dummy {f00=0x010c, f01=0x0190, f02=» X R _ S W T:GTCW , ( 4 _T :#0 T B 'W B B 4 T:BINB d , ( " : x , ( P P L R R , ( _ R _ # Q R , (
0x355aac…355c40 Dummy {f00=0x010c, f01=0x0190, f02=» h , ( _ B@ ' d w5 1 T:KIAA 8 T:KIAC L T:GCW2 ` , ( #0 T t T:SCW2 , ( @ B ' : B B : V C , ( @ P C #0 T &
0x355c40…355dd4 (4, 110) Dummy {f00=0x010c, f01=0x404e, f02=» X R R Q P 'P 7P GR T P T 8@ J T:KIAC L T:GCW2 ` , ( #0 T t T:SCW2 , ( @ B ' : B B : V C , ( @ P C #0 T &
0x355dd4…355f68 Dummy {f00=0x010c, f01=0x40d0, f02=» > @ IDENT T:LEN P,REL=11.0,810128,870136941100 l GETLEN l F GETLEN l X I:EVA0 l l I:RT1 l ~ ( $ A #03 1 l l @ l XIF * % LDR A4,OP2A SAVE ADDR. TO RETURNITEM
0x355f68…3560fc Dummy {f00=0x010c, f01=0x0190, f02=» > @ IDENT T:ADIT P,REL=11.0,810128,870136941100 m & " T:RREA T:RRE1 T:RWRI T:RWR1 m F T:RREA m p T:DSB m T:RRE1 m I:EVA0 m T:STCW m , ( A &P C m T:IO2 m
0x3560fc…356290 Dummy {f00=0x010c, f01=0x4034, f02=» : m t 6 + 6 n F n @ n 0
0x356290…356424 Dummy {f00=0x010c, f01=0x0190, f02=» > @ IDENT T:KIA P,REL=11.0,810128,870136941100 o T:KIA T:NKIA o F T:KIA o ^ T:NKIA o p T:ABUF o T:KIPR o , ( W 6 V :a o , ( ' ( ( o
0x356424…3565b8 Dummy {f00=0x010c, f01=0x0190, f02=» y K V K V 6V ( - o , ( _ : J 7 J V W J p , , ( :A V 6V $ - _ * p , ( + : D T E D :A D p , ( ;A 9A Q 5 U _ 5 p T:KIAA p T:KIAC
0x3565b8…35674c Dummy {f00=0x010c, f01=0x40c8, f02=» D V p p , ( @ m D V ( 2 C C q _, q @ H D !r W ^ - 2 IT MP Y V V T> Q U ! R /P 7P ?W q R [R ]P q q @ q 9A Q 5 U _ 5 p T:KIAA p T:KIAC
0x35674c…3568e0 Dummy {f00=0x010c, f01=0x4098, f02=» > @ IDENT T:ABUF P,REL=11.0,810128,870136941100 r T:ABUF r F M r X T:ABUF r n r @ r IN T:ABUF f & !T:ABUF RES SIZE KIA/NKIA SAVEAREA P EJECT T:ABUF END @
0x3568e0…356a74 (4, 111) Dummy {f00=0x010c, f01=0x414a, f02=» > @ IDENT WRITEL P,REL=11.0,810128,870136941100 s WRITEL s F WRITEL s X T:FDS0 s l T:DSM s ~ I:EVA0 s , ( H / C s T:IO2 s , ( @ &P C & C
0x356a74…356c08 Dummy {f00=0x010c, f01=0x0190, f02=» > @ IDENT I:NTP P,REL=11.0,810803,870136941100 B > I:TRC I:NTP I:NTPA I:NTPB I:NTPR I:RST I:RT0 I:RT1 I:RT2 F I:MOV I:ADD I:SUB I:CMP I:MUL * & T
0x356c08…356d9c Dummy {f00=0x010c, f01=0x0190, f02=»:DLT I:MCH I:XCP I:EDS , , ( / < I:TRC l I:RST D ~ T:CSEG I:NTPA H I:NTPB H P:MTAB , ( A V 7 @ " ! P
0x356d9c…356f30 Dummy {f00=0x010c, f01=0x0190, f02=» 9c D 9a1 P I:EVA2 $ * & $ & Q W 6 I:RT2 d I:RT1 v I:RT0 , ( :aW _J( 2 P T:BAT , ( V W _ 2 # ;B V T ,
0x356f30…3570c4 Dummy {f00=0x010c, f01=0x0190, f02=» 8 j T:PAT , ( M ^n D . V @ 2 ! 9B V T , ( m@ *W V P D $ V 6 V J , ( % V E W 2 % z T:CAT , ( ^ 6 E 7_ 2 # L , ( , $ 2#
0x3570c4…357258 Dummy {f00=0x010c, f01=0x4170, f02=» W F z I:EVB , ( P E . V & * c H L 'W 'W '_8 Z H D ! H L D ! # % ' ) + - = l ~ H D ! ? h A r C t [P eP q r T P Q W W P W8 T
0x357258…3573ec Dummy {f00=0x010c, f01=0x0190, f02=» > @ IDENT I:EVA P,REL=11.0,810910,870136941100 J F " I:EVA0 I:EVA1 I:EVA2 I:EVA3 I:EVA5 I:EVA6 I:EVA7 I:EVB I:EVI F I:FML I:FML2 I:EVTO P:MTAB , ( :l:d:h I:EVA2
0x3573ec…357580 Dummy {f00=0x010c, f01=0x018e, f02=» 6 2 n , ( 9 # W @ $ E " T ; [ , ( W # :H 2 T Z L > , ( @ w L D V W # n , ( L D V $ W D V I:EVA0 , ( @ L , W 6 2 W "
0x357580…357714 (4, 112) Dummy {f00=0x010d, f01=0x0190, f02=» , ( Z Z , ( 3 : R ; 8 , ( S 6 : F _v :B , h , ( s (V ; H [ [ [ , ( z ;AV Z H # , ( ;
0x357714…3578a8 Dummy {f00=0x010d, f01=0x0190, f02=» & @ $ ! P , ( 1 [ 6 [ Z 7 . Z ( I:FML ^ X I:FML2 n j , ( Q 7 : T # ( ~ I:EVTO , ( H q : " T # :A ( , ( @ @ & " P !
0x3578a8…357a3c Dummy {f00=0x010d, f01=0x4110, f02=» : 6 2 W v , ( " # ^;b ; : ;f" #?_" F H D ! #W 'W -P 1W = ?W4 KT> [ ^ kT V, W ^ V W W f D @ W$ P& Pd ^ Wv yVv V$ P P P R W&
0x357a3c…357bd0 Dummy {f00=0x010d, f01=0x0190, f02=» > @ IDENT I:ADS P,REL=11.0,810128,870136941100 ~ I:ADD I:SUB ~ F I:ADD ~ I:SUB ~ n , ( W " T & T + : ~ I:CPA ~ , ( ! * & !@P `1` P Q ~ " ? [
0x357bd0…357d64 Dummy {f00=0x010d, f01=0x0190, f02=» $ P T ~ v , ( R R ` ; <( , ( Q P # W " <! =# T W = Z F , ( P _ V ^< `_@ v , ( R Q <# =_ P :" P * U , ( 5 P 1`! T "# 9e! # K
0x357d64…357ef8 Dummy {f00=0x010d, f01=0x4008, f02=»@ T ~ v , ( R R ` ; <( , ( Q P # W " <! =# T W = Z F , ( P _ V ^< `_@ v , ( R Q <# =_ P :" P * U , ( 5 P 1`! T "# 9e! # K
0x357ef8…35808c Dummy {f00=0x010d, f01=0x4166, f02=» > @ IDENT I:CMP P,REL=11.0,810128,870136941100 I:CMP F I:CMP V , ( P " T * & : * & h I:CPA , ( ! !`P :J +_ +Q , ( A _0 , T T XD W 1
0x35808c…358220 Dummy {f00=0x010d, f01=0x4172, f02=» > @ IDENT I:CPA P,REL=11.0,810128,870136941100 I:CPA F I:CPA V * & R W h , ( ( V W Q P W ! W V , ( ? P , V W Q P W $ W V * & _ P
0x358220…3583b4 (4, 113) Dummy {f00=0x010d, f01=0x0190, f02=» > @ IDENT I:MOV P,REL=11.0,810910,870136941100 " I:MOV I:MVC I:MBTD I:MDTB F I:MOV l I:MVC ~ , ( $0#0;b P P P , ( ! 0 - P _ 4 , ( A V W Q P )
0x3583b4…358548 Dummy {f00=0x010d, f01=0x0190, f02=» , ( # ; [ I:MDTB 4 , ( _ ' d V W V H , ( 4! P < X 4 x , ( 9d $ & ! R + : , ( ! V W R 4 0R Y 7 Y& , (
0x358548…3586dc Dummy {f00=0x010d, f01=0x414a, f02=» h , ( Y " W , ( Q V V 7 Y P _& & Q 8 , ( 9d! )0 + P 7 Y Z $ h _ : H D ! t P Pd P /PN IQ KP SP YP _P qP wT P Q 4 0 R
0x3586dc…358870 Dummy {f00=0x010d, f01=0x4140, f02=» > @ IDENT I:MMOV P,REL=11.0,810128,870136941100 I:MMOV F I:MMOV X I:EVA2 l , ( 2' ~ I:EVA0 , ( [ [ Z I:MOV & " =
0x358870…358a04 Dummy {f00=0x010d, f01=0x0190, f02=» > @ IDENT I:MUL P,REL=11.0,810128,870136941100 I:MUL I:SH1L F I:MUL ^ , ( V ) " T *V &V p , ( ! : V S W P 9 S W _ , ( A V P W T V E + , ( a
0x358a04…358b98 Dummy {f00=0x010d, f01=0x0190, f02=» [ , ( P Z P [ 9a Z ( , ( $" T 9d! P P [ Z w X I:ADD , ( [ P V H )_ , ( _X z R z ! P 1` { , ( / V (9h
0x358b98…358d2c Dummy {f00=0x010d, f01=0x4066, f02=» l D @ @ TV %V 3P CV OW PP P6 P( P X R 'P aP oP sP P@ b9d! P P [ Z w X I:ADD , ( [ P V H )_ , ( _X z R z ! P 1` { , ( / V (9h
0x358d2c…358ec0 Dummy {f00=0x010d, f01=0x0190, f02=» > @ IDENT I:DIV P,REL=11.0,810128,870136941100 I:DIV I:SH1R F I:DIV ^ , ( " T *V &V p ! P = , ( ' ;@ R P W ;a , ( G =a P " R & R
0x358ec0…359054 (4, 114) Dummy {f00=0x010d, f01=0x0190, f02=» [ [ x I:MOV I:NTFA , ( &! P 0 I:SUB ` , ( z " ! ! p , ( R 2` { z " P ! R 2` { 1 I:CPA , ( ! { [ Z
0x359054…3591e8 Dummy {f00=0x010d, f01=0x0190, f02=» { R [ _ , ( Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x3591e8…35937c Dummy {f00=0x010d, f01=0x4040, f02=» 7Q CP W _Q@ sR Q* R W *@ < Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x35937c…359510 Dummy {f00=0x010d, f01=0x40da, f02=» > @ IDENT I:NTF P,REL=11.0,810128,870136941100 I:NTFA F I:NTFA X , ( Z H D & H l $ ! D % [ ( 8 @ P ABR* WK2 P P END ,PS
0x359510…3596a4 Dummy {f00=0x010d, f01=0x818e, f02=» > @ IDENT I:EDT P,REL=11.0,810615,870136941100 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 I:RET I:ATTR , (
0x3596a4…359838 Dummy {f00=0x010d, f01=0x8190, f02=» I:EVA5 I:EVB I:EGTB * I:EVI < I:EVA3 L I:EVA0 ^ * & AUT p I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR * &
0x359838…3599cc Dummy {f00=0x010d, f01=0x8190, f02=»DSK ~ , ( { 6 K K I:EDT > I:ED1 P I:EDW b , ( K K V K : t I:EVA6 , ( R B " V , ( V Z P 2 "
0x3599cc…359b60 Dummy {f00=0x010d, f01=0x8190, f02=»SEG , ( 7 _Z Z [ Z P I:RET r < , ( W@ $ [ V 7_ N I:EXIT x ~ P:MTAB * & u W Z @ " &! P , ( $ Z 7 Z Z P $ I:F
0x359b60…359cf4 (4, 115) Dummy {f00=0x010d, f01=0x8190, f02=» , ( J P v I < : J I:ECPY : I:ETXT ( N I:EXPY ( b , ( Q : P 4 ! T _ v I:ATTR : I:ECTR < I:ESL F , ( ) P 4 W K W
0x359cf4…359e88 Dummy {f00=0x010d, f01=0xc188, f02=»E I:ECWC z I:EFIL , ( i @X *W X & , J K : 2 I:SCB b V : 1 t H D ! U Y ( [ e f g x i p k 8 m P s u F y ( { r } : @ H D ! @ P T W T W ? U
0x359e88…35a01c Dummy {f00=0x010d, f01=0x0190, f02=» > @ IDENT I:EPIC P,REL=11.0,810625,870136941100 I:EPIC F I:EPIC X I:EVA0 l : + ~ [ [ < , ( ! !AAP !TTT W !**T * [ !FF A
0x35a01c…35a1b0 Dummy {f00=0x010d, 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
0x35a1b0…35a344 Dummy {f00=0x010d, f01=0x4120, f02=» } !++P !-- z ;$# + ^$ _* $ T tX. PT*AXYZ9 . H D ! ` %P +T /W 5T AP GT KW OR S P Wn W8 Wf V H D ! T& W, P T W F W@ P U T P W R( R P U ; ?U kP
0x35a344…35a4d8 Dummy {f00=0x010d, f01=0x0190, f02=» > @ IDENT I:EDTE P,REL=11.0,810128,870136941100 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 , ( @
0x35a4d8…35a66c Dummy {f00=0x010d, 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
0x35a66c…35a800 Dummy {f00=0x010d, f01=0x40ea, f02=» > @ IDENT I:EDS P,REL=11.0,810128,870136941100 I:EDS F I:EDS V I:EVS2 h I:ED1 z , ( : { : & @ P2E,OP1E END OF MAIN STRING
0x35a800…35a994 (4, 116) Dummy {f00=0x010e, f01=0x0190, f02=» > @ IDENT I:STR P,REL=11.0,810128,870136941100 $ I:INS I:DLT I:MCH I:CPY I:XCP F I:DLT n I:EVS1 I:MCH , ( @ P 9 _ , ( @ [ , (
0x35a994…35ab28 Dummy {f00=0x010e, f01=0x0190, f02=» 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 _. :
0x35ab28…35acbc Dummy {f00=0x010e, f01=0x400e, 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 _. :
0x35acbc…35ae50 Dummy {f00=0x010e, f01=0x4152, f02=» > @ IDENT I:EVS P,REL=11.0,810128,870136941100 I:EVS1 I:EVS2 F I:EVA0 ` , ( A jP kT r I:EVS1 8 , ( T : & 9! " : $ : I:EVA2 I:EVS2
0x35ae50…35afe4 Dummy {f00=0x010e, f01=0x0190, f02=» > @ IDENT STRIX P,REL=11.0,810128,870136941100 STRIX STROUX USRFMT F I:EVNO f I:ESKI x I:EVA0 I:EBRI I:EBRB I:EBR , ( I:ECW
0x35afe4…35b178 Dummy {f00=0x010e, f01=0x0190, f02=» STRIN2 USRFLD STROUX . , STRIX 2 @ USRFMT 6 R , ( # W W f T:GRFC T:STEV , ( 7! Y * & Y + , ( Q 8 & Y 0 4 y 4
0x35b178…35b30c Dummy {f00=0x010e, f01=0x0190, f02=»VT I:EDSK * & " $ X <' X X I:RT1 J I:EVIN Z , ( & x 4 X 2P y 6 ( l T:EVOU , ( HH * , , , , ( X +! Q P P P y 4 x 4 X
0x35b30c…35b4a0 Dummy {f00=0x010e, f01=0x4022, f02=» R$ ` B @ " $ X <' X X I:RT1 J I:EVIN Z , ( & x 4 X 2P y 6 ( l T:EVOU , ( HH * , , , , ( X +! Q P P P y 4 x 4 X
0x35b4a0…35b634 (4, 117) Dummy {f00=0x010e, f01=0x018e, f02=» > @ IDENT STRIN2 P,REL=11.0,810128,870136941100 STRIN2 F STRIN2 X , ( X x & Y " X R W l I:EXIT , ( ! V P _ y 6 : Y I:EVA0 T:CLMI , ( ?
0x35b634…35b7c8 Dummy {f00=0x010e, f01=0x4150, f02=» , ( W V R W V % _ I:MOV 4 * & [ " D $ D D T:GRFC r * & Z P Z % z " * { $ X $ X y & : H D ! R W !V %P SP ]P* uT yW }R< V8
0x35b7c8…35b95c Dummy {f00=0x010e, f01=0x0190, f02=» > @ IDENT STROU2 P,REL=11.0,810128,870136941100 STROU2 F STROU2 X I:EVA0 l , ( X x & Y " !0P <! ~ , ( T T W < X ! P , ( ? ?A W ?AW <! P
0x35b95c…35baf0 Dummy {f00=0x010e, f01=0x408a, f02=» I:EXIT " @ y $ : y 6 : 8 4 P6 !T$ 'T +W ;P EW MW WP mR qW uV* P 8 t@
0x35baf0…35bc84 Dummy {f00=0x010e, f01=0x4094, f02=» > @ IDENT USRFLD P,REL=11.0,810128,870136941100 USRFLD F USRFLD X : l ~@ E P=IDIOT4 * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x35bc84…35be18 Dummy {f00=0x010e, f01=0x0190, f02=» > @ IDENT T:DM P,REL=11.0,810827,870136941100 F B T:OPEN T:CLOS T:DCLO T:COMM T:PCOM T:ROLL T:RSTA T:OPCH F T:IXCH T:STCH T:OPEN T:DSB , ( @ 2 2 ! <e T:WRIO
0x35be18…35bfac Dummy {f00=0x010e, f01=0x0190, f02=» T:DCLO Z T:COMM f I:EVA0 , , ( Y <H _ ( > I:RT1 n T:PCOM ~ T:GTBY * & u@ R ' T:GDSP , ( &
0x35bfac…35c140 Dummy {f00=0x010e, f01=0x40bc, f02=» l T:SCW2 T:IO3 T:OPCH , T:STCH @ T:IXCH T " @ C / h ;T {R R @ T:GDSP , ( &
0x35c140…35c2d4 (4, 118) Dummy {f00=0x010e, f01=0x0190, f02=» > @ IDENT T:USE P,REL=11.0,810224,870136941100 T:USE T:UERR T:UER F T:USE d I:EVA0 v * & 2 & >A >A 2 $ P:MTAB , ( & V D 9a 9 V , ( =D @ W
0x35c2d4…35c468 Dummy {f00=0x010e, f01=0x0190, f02=»_ X @ 9 X ( R , ( 9 8 ? X ( , ( Q , V ( X , ( R - 4T V 5 , ( ( R W V P W U V T:UERR T I:RT0
0x35c468…35c5fc Dummy {f00=0x010e, f01=0x4058, f02=»R R< V R Q" Rf T #R< %W, n +P& /W$ IT * f B@ T Q , V ( X , ( R - 4T V 5 , ( ( R W V P W U V T:UERR T I:RT0
0x35c5fc…35c790 Dummy {f00=0x010e, f01=0x0190, f02=» B @ IDENT KEYB REL 11.0 DK 82-02-28 870150541100 J F " KBINP KBINP2 READKB READK2 RESKB LMP1ON LMP1OF LMP2ON LMP2OF J F B LMP3ON LMP3OF LMP4ON LMP4OF LMP5ON LMP5OF LMP6ON LMP6OF H D ! RDHOME COPY ERRORdTAB CRDOWN ICV
0x35c790…35c924 Dummy {f00=0x010e, f01=0x0190, f02=» N ! P T R Q DCABOR $ , ( A R O T N P 6 READKB r f , ( _@ W W : C z READK2 , ( } C ( : C C RESKB ICVRE
0x35c924…35cab8 Dummy {f00=0x010e, f01=0x0190, f02=» , ( @ O W @ O " P : ICREAD 8 ICWRT L , ( C ( : C C C ( : ^ ERROR 0 SOUND , ( C C C ( : O LMP1ON @ LMP1OF D
0x35cab8…35cc4c Dummy {f00=0x010e, f01=0x0190, f02=»W l LMP4OF LMP5ON ` LMP5OF d 4 LMP6ON l H LMP6OF p , ( [ W W W W W W W W p , ( { W W C A C ( , ( @ C ( : , (
0x35cc4c…35cde0 Dummy {f00=0x010e, f01=0x018e, f02=» , ( ; 0 , ( [ ` , ( { , ( , (
0x35cde0…35cf74 (4, 119) Dummy {f00=0x010e, f01=0x0190, f02=» INSMOD STOVDU * & T N P ' T ! T ( WCHAR V POSUNP f , ( 5 W 0 : x STOINF ATMASB DISCHA * & M P
0x35cf74…35d108 Dummy {f00=0x010e, f01=0x0190, f02=» P P V P , ( @ ' P V ' P , ( W U P |TAB ATMASF , ( D : P , ( ' P W U , ( 5
0x35d108…35d29c Dummy {f00=0x010e, f01=0x0190, f02=» W t RDHOME , ( " : P ( , ( @B ! R W X * & ' P W : , ( P ' T P , ( .
0x35d29c…35d430 Dummy {f00=0x010e, f01=0x0190, f02=» ' : T W , ( ?H : O : , , ( Y P Z P P ' T . , ( y U SAVE1 , ( LINE
0x35d430…35d5c4 Dummy {f00=0x010e, f01=0x0190, f02=» : : 0 z COPY , ( 0 0 : N @ T N P , , ( # ! 09B V L ! P W 8 O , ( C N @ O , ( c W 0 : N V ! 09B DISID , ( ,=H
0x35d5c4…35d758 Dummy {f00=0x010e, f01=0x0190, f02=»RPF TRPA , ( 9H L O : ' P * : _ P * & H , : %W >W , P L , ( , : O : O 1R Q T z CONPF * & 3 W T W W 0 : H , ( Q . P * : W O
0x35d758…35d8ec Dummy {f00=0x010e, f01=0x0190, f02=» W 0 : : x H D ! R` TV TN +P 1T: 7R4 =Q. ER M p UT ]P eW i kW o H D ! V& W P 3 X CW0 GW0 KW( OW( SW WW [W _W cW ` H D ! gW kW oW sW wW {W W H D !
0x35d8ec…35da80 Dummy {f00=0x010e, f01=0x0190, f02=» ! H D ! ! # % ' ) + - / 1 3 5 7 L H D ! 9 ; = ? A C E G I K M O Q S U W H D ! Y [ ] _ a c e g F
0x35da80…35dc14 (4, 120) Dummy {f00=0x010f, f01=0x0190, f02=» | H D ! L L L L L L L L 8 H D ! L L L L L L L L L L L L L L L L H D ! ^ P, T& P )T -T ?W Q j [P k r m |
0x35dc14…35dda8 Dummy {f00=0x010f, f01=0x4142, f02=» W P( R W P W P2 h H D ! T& P" W W !W 7T =W eP, iPd oT^ U W TJ !PD 9P ;W. $ H D !@ eW WF P* T0 R W W " )R -Q /T 5W 9T ?W EW p H D ! _ b aWX iRV kT o qWH uT y {W> T@ W4 R2 V. W R"
0x35dda8…35df3c Dummy {f00=0x010f, f01=0x0190, f02=» > @ IDENT T:REWR P,REL=11.0,810827,870136941100 4 0 T:REWR T:SCUW T:CLRD T:IOWR T:CASP T:SCW F T:IOWR ~ T:SCW T:CHBU , ( C ( C : T:SCUW $ T:CLRD 6
0x35df3c…35e0d0 Dummy {f00=0x010f, f01=0x018e, f02=» T:CASP ^ T:LOFS , ( ] @_^ ( X D * I:EVA3 Z , ( { D : K + Q 2 P P l I:EPIC T:LOPS , ( H ( B I:EVA0 I:E
0x35e0d0…35e264 Dummy {f00=0x010f, f01=0x401a, f02=» @ T:LOFS , ( ] @_^ ( X D * I:EVA3 Z , ( { D : K + Q 2 P P l I:EPIC T:LOPS , ( H ( B I:EVA0 I:E
0x35e264…35e3f8 Dummy {f00=0x010f, f01=0x0190, f02=» > @ IDENT T:ENLI P,REL=11.0,810827,870136941100 T:DNL T:DSL T:ECW T:EOR F I:EVNO h I:ECPY z I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR * &
0x35e3f8…35e58c Dummy {f00=0x010f, f01=0x0190, f02=» T I:EXPY . I:RET @ I:ATTR P T:DSL , b T:GRFC t T:DNL : , ( % @ " $ Y . Y ,W , ( ;@ $ Y . X ( X ." P X 0R T , ( @ Y K
0x35e58c…35e720 Dummy {f00=0x010f, f01=0x0190, f02=»:ENL I:ESL , ( *_ ,W . X . X 2Q I:ECTR L , ( Y *T 0 : " P X 0U X * ^ , ( # P P T " T : T:ENIN T:ECW T:EOR , ( @ Y . 2
0x35e720…35e8b4 (4, 121) Dummy {f00=0x010f, f01=0x4086, f02=» : # , 9W OPj UR WT eT6 mP( }Q W W QH T2 , ( P$ U P P T T %T -T 3W @ > p@ ^ , ( # P P T " T : T:ENIN T:ECW T:EOR , ( @ Y . 2
0x35e8b4…35ea48 Dummy {f00=0x010f, f01=0x0190, f02=» > @ IDENT I:EDT P,REL=11.0,810827,870136941100 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F F B I:ECTR I:ESL I:ENL I:ENL1 I:EOR I:ECW I:ECWC I:EFIL I:EFLA * & I:SCB I:FFSN I:EXPY I:RET I:ATTR , (
0x35ea48…35ebdc Dummy {f00=0x010f, f01=0x0190, f02=»:EVA2 I:EVA5 I:EVB I:EGTB 0 I:EVI B I:EVA3 R I:EVA0 d * & AUT v I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR
0x35ebdc…35ed70 Dummy {f00=0x010f, f01=0x0190, f02=» I:EDSK ~ , ( { 6 K K I:EDT D I:ED1 V I:EDW h , ( K K V K : z I:EVA6 , ( R B " V , ( V Z P
0x35ed70…35ef04 Dummy {f00=0x010f, f01=0x0190, f02=» T:LSEG , ( 7 _Z Z [ Z P I:RET r B , ( W@ $ [ V 7_ T I:EXIT x P:MTAB * & u W Z @ " &! P , ( $ Z 7 Z Z P $
0x35ef04…35f098 Dummy {f00=0x010f, f01=0x0190, f02=»:ETAB , ( J P v I < : J I:ECPY @ I:ETXT ( T I:EXPY ( h , ( Q : P 4 ! T _ | I:ATTR : I:ECTR < I:ESL F , ( ) P 4 W K
0x35f098…35f22c Dummy {f00=0x010f, f01=0x0190, f02=» I:ECW p T:EDWE I:ECWC z $ I:EFIL 8 , ( i @X *W X & , J K : L I:SCB | V : 1 H D ! U Y ( [ e f g x i p k 8 m P s u F y ( { r } : @ H D ! @
0x35f22c…35f3c0 Dummy {f00=0x010f, f01=0x4012, f02=» @
0x35f3c0…35f554 (4, 122) Dummy {f00=0x010f, f01=0x4146, f02=» > @ IDENT T:DCOM P,REL=11.0,810910,870136941100 DCREAD DCWRTE DCEXCH F T:FDS0 h DCREAD z T:DCR1 DCWRTE T:DCW1 DCEXCH T:DCE1 , ( I$
0x35f554…35f6e8 Dummy {f00=0x010f, f01=0x2008, f02=» L = PT002 DATE = 811031 6876PACK NBR = 0002 h 0 @ @
0x35f6e8…35f87c Dummy {f00=0x010f, f01=0x0000, f02=»
0x35f87c…35fa10 Dummy {f00=0x010f, f01=0x0026, f02=» ( 0 8 @ H P X ` h p x
0x35fa10…35fba4 Dummy {f00=0x010f, f01=0x0190, f02=» j P B BH + + + + + @
0x35fba4…35fd38 Dummy {f00=0x010f, f01=0x0190, f02=» _ A :U A A " @ ~ A h A ~ @ A < A @ A L A @ A X A @ A A
0x35fd38…35fecc Dummy {f00=0x010f, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ j S A _ @ T :a R T <a Z
0x35fecc…360060 Dummy {f00=0x010f, f01=0x0190, f02=» S v T 8 Y D G P ( H L V > I z U z _v A t_ NO! A A A A A A A A *T A _ P A A . * , : + n - n ; # R $ X : X " H W* X " H H A W W L H A A _p
0x360060…3601f4 (4, 123) Dummy {f00=0x010f, f01=0x0190, f02=» < > " @ @ T " ( ^ @ P A A " @ $T @ tW @ A t W W 0 _, W W Pf @ & 0 T* A P P V W _x _`
0x3601f4…360388 Dummy {f00=0x010f, f01=0x0190, f02=» $ ;a ]@ 1 $ _L W @ $ 0 W $ A W @ A P 3P C @ P @ @ P @ Q A $ @ A " T @ W @ A F A $P l @ _2 l $T * 0 P fP _
0x360388…36051c Dummy {f00=0x010f, f01=0x0190, f02=» & A *<a P j A ) " A H A @ & @ @ T A A P@ @ PB @ ! T A @ A # A $ RE bRN cME nMN o W R, ( T ( W P T $ ; V ;
0x36051c…3606b0 Dummy {f00=0x010f, f01=0x0190, f02=» Y W Y Y @ " P$ @ = ] ] ] W A A A W ^ P _ " ^ T @ 9J A T _ 1@ _ ^ 9 V >! D A A > > > > > > > > ^ _ ^ _ ? ? ? ? ? A D ^ @ ?
0x3606b0…360844 Dummy {f00=0x010f, f01=0x0190, f02=» A ^ " , , A A :B A Q (P _ # # H A " A F 0R$ 9U AR FQ 0:D A F _* A F " A p A r T A r A p " R _U . " A : A " A A $ T !
0x360844…3609d8 Dummy {f00=0x010f, f01=0x0190, f02=» < H > " ! R :W" W W W ?W /W : A W ! A A PL _ " @ _ I T " T A P I T$! A A A A A A A A A F
0x3609d8…360b6c Dummy {f00=0x010f, f01=0x0190, f02=» A P A < V A > > " @ A W XW ^ ! Z2 (X: @ P T M ]J , ) A P* P Y U ( ) 5 & > > [ [ Z Z Z ? Z > A _ @ > > U # T @ 8 H ( ( P c P W6 ~ A
0x360b6c…360d00 Dummy {f00=0x010f, f01=0x0190, f02=» XB ) A A _N A A h A _` A A Q > ? A F A Q _ A < Q P Q R Y _ A _0 8 Q Z P 0 9 _ _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ $P T
0x360d00…360e94 (4, 124) Dummy {f00=0x0110, f01=0x0190, f02=» U T P 0 U _h ? @ HT 0 A H 1 Q Q > > 0 @ H 1 A H P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @ <V ? < > _ > ? _ > > ? ^ ! Y ^ _
0x360e94…361028 Dummy {f00=0x0110, f01=0x0190, f02=» p $ ( , 0 4 8 < C C T 8P Y ^ 5 ) P U XJ XF Y @ P R T X 0P Xh I Y T # C C W4 O " # X Y ) C C
0x361028…3611bc Dummy {f00=0x0110, f01=0x0190, f02=» X $? P $ > > F C F C > B R Q F ! P C > C > F 8D D ! 9b8d9D # C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x3611bc…361350 Dummy {f00=0x0110, f01=0x0190, f02=»P PL $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T ^ > > ? _ X T X L U L Q4 M X L P ( L ) 1_d _& ?(@
0x361350…3614e4 Dummy {f00=0x0110, f01=0x0190, f02=»P (@ " ^ X P, P$ # P( T P 0 1 " Y > > X_ !4%| r ~ B N Z f * 6
0x3614e4…361678 Dummy {f00=0x0110, f01=0x0190, f02=»SO LO GR 0
0x361678…36180c Dummy {f00=0x0110, f01=0x0190, f02=»
[…0x3…]
0x361cc8…361e5c Dummy {f00=0x0110, f01=0x0190, f02=» V U _ * & @V Z K A A ( , ( & :K A ( V , ( @ Q R ( V * & @ P @ SETTABN , ( ` $
0x361e5c…361ff0 Dummy {f00=0x0110, f01=0x0190, f02=» Q ( ; @ ( : : GETTAB ~ 0 GETTTB D * & m , X G : " L X SCTTCT( , ( 2 @ V @ 0 H INBIMA , ( A 2 : @
0x361ff0…362184 Dummy {f00=0x0110, f01=0x0190, f02=» @ @ 1 R U W 9a MMRST 0 , ( P _" : P _ B GETAPP8 8 r , ( 7 @ : @ ` U W L , ( S P _ @ P _" l 0 , ( o W P .
0x362184…362318 Dummy {f00=0x0110, f01=0x0190, f02=» :C # : .=H N , ( D N .=H N " GETNUM R , ( N N : d 8" f QUEJOBR SAVE8 , ( R _ ZY QY : ? ? , ( + R 0
0x362318…3624ac Dummy {f00=0x0110, f01=0x0190, f02=» SCTOPT , ( @ e " b ` $ : @ . @ SCTSFA F SCTPAG X SCTNOPW j , ( ! @ P | , ( P P P _ _ @ SCTPSZ , ( @@ @ :b @
0x3624ac…362640 Dummy {f00=0x0110, f01=0x0190, f02=»W Y P @ Q @ ~ , ( - . P A. @ . @ . P SCTEFA L * & G _l A 9n A :B A ^ TTB:SPW SEG:NS , ( _ D @ < | P N P , ( w 9b .V 3 S S
0x362640…3627d4 (4, 126) Dummy {f00=0x0110, f01=0x0190, f02=» ] 9A n , ( @ ] 9k! ] PAGQUE > , ( Y P P P , ( ) S @ P 3 _ SCTBUG8 , ( G 3 A. @ SCTSTB , (
0x3627d4…362968 Dummy {f00=0x0110, f01=0x0190, f02=» , ( A * $ TDISP 8 INILEN H INIEND & " ) *_ > , p H D ! , n WN B @ > K B R > QF 1R0 I > P > V U H D ! @ V > Q R >
0x362968…362afc Dummy {f00=0x0110, f01=0x40ac, f02=»P P V W U4 T W P P( V W #P )Q ~ H D ! /P AP oP: uP4 V T" T W P: P4 9P Y Z y } : @ @ > K B R > QF 1R0 I > P > V U H D ! @ V > Q R >
0x362afc…362c90 Dummy {f00=0x0110, f01=0x2008, f02=» g
0x362c90…362e24 Dummy {f00=0x0110, f01=0x0190, f02=» 2 @ IDENT CTAB01 REL. 11.0 81/10/28 CTAB01 CTAB02 CTAB03 : CTAB01 CTAB02 p CTAB03 , ( , ( ! 0123 , ( A 456789
0x362e24…362fb8 Dummy {f00=0x0110, f01=0x4106, f02=» 0123456789 - , ( * > ?8_: =!"#$%&/() @ABC ( , ( DEFGHIJKLMNOPQRSTUVWXYZ []^ X H D ! , < L l | ! # % ' ) @
0x362fb8…36314c Dummy {f00=0x0110, f01=0x0190, f02=» 2 @ IDENT CTAB01 REL. 11.0 81/10/28 CTAB01 CTAB02 CTAB03 : CTAB01 CTAB02 p CTAB03 , ( , ( ! 012345 , ( A 6789 -
0x36314c…3632e0 Dummy {f00=0x0110, f01=0x4118, f02=» 0123456789 - , ( * > ?8_: =!"#$%&/() @ABCDE ( , ( FGHIJKLMNOPQRSTUVWXYZ []^ X H D ! * : J Z j z ! # % '
0x3632e0…363474 (4, 127) Dummy {f00=0x0110, f01=0x018e, f02=» L H IDENT T:AP10 TRA 11.0 81-10-28 F1 O1111 REL 11.0 81-10-18 87015054110 T:AP10 T T:AP10A n f . * T:DP10 D:CB10 C:CB10 D:TB10 Z:TB10 z * & * & * &
0x363474…363608 Dummy {f00=0x0110, f01=0x4008, f02=»@ NT T:AP10 TRA 11.0 81-10-28 F1 O1111 REL 11.0 81-10-18 87015054110 T:AP10 T T:AP10A n f . * T:DP10 D:CB10 C:CB10 D:TB10 Z:TB10 z * & * & * &
0x363608…36379c Dummy {f00=0x0110, f01=0x0190, f02=»=1 / PCBSTOP EQU /00 0 P IFT CODE=0 0 PPARITY EQU /0C 0 4 P XIF 0 J P IFT P6805=1 0 V P IFT CODE=1 0 j PPARITY EQU /00 0 ~ P XIF 0 P EJECT 0 8 P*************************************************** 0 P* 0 ( P* LINE CONTROL UNIT
0x36379c…363930 Dummy {f00=0x0110, f01=0x0190, f02=»3 H:NOOP+H:THRU+H:CARR 0 P XIF 1 P IFT P6805=1 1 * . PH:ERR EQU /27 H:NOOP+H:THRU+H:CARR+H:PARI 1 > P XIF 1 p P EJECT 1 | D P**************************************************************** 1 P* 1 P* DRIVER ADDRESS BLOCK 1 P* 1 D P
0x363930…363ac4 Dummy {f00=0x0110, f01=0x0190, f02=»E INDEX 1 ~ ( PDC15AD DATA DCACT ACTIVATION ADDRESS 2 P DATA ABORT ABORT ROUTINE 2 < $ P DATA DCRBUF REC. BUFFER ANCHOR 2 ^ P DATA 6 HEADER LENGTH 2 P* 2 , P RES 15 SUBROUTINE STACK FOR INTERRUPTS 2 PSTB RES 1 2 P EJECT 2 P 2 @ P**
0x363ac4…363c58 Dummy {f00=0x0110, f01=0x0190, f02=» 2 x P 3 ( PABORT LD A1,DWTRTP,A6 TIMER POINTER 3 " P RF(Z) AB:10 NO TIMER RUNNING 3 < P CMR A1 KILL TIMER 3 b P CM DWTRTP,A6 3 | P 3 $ PAB:10 LD A2,DWTOR,A6 ORDER CODE 3 P ANK A2,/7F 3 P SUK A2,6 3 P RF(NE) AB:RTN 3 . P CF A15,RE
0x363c58…363dec Dummy {f00=0x0110, f01=0x0190, f02=» CM FDWTUT REST SENDING DWT 3 P CM XACK RESET ACK EXPECTED 4 $ P 4 H PAB:RTN EQU * 4 P P ABL RTABRT 4 d P EJECT 4 x J P********************************************************************** 4 J P****************************************************
0x363dec…363f80 Dummy {f00=0x0110, f01=0x0190, f02=»************************************************ 4 z J P********************************************************************** 5 8 P* 5 $ P* ACTIVATION FROM TERMINAL TASKS 5 P* 5 PDCACT EQU * 5 P LDK A1,0 PRESET RETURN CODE 5 & P LDR A2,A7 ORD
0x363f80…364114 (4, 128) Dummy {f00=0x0111, f01=0x018e, f02=» p P RTN A14 RETURN P EJECT P IFT OFLIN=1 . < P******************************************************** B < P* * < P* OFLINE OFFLINE KEY HANDLING * < P*
0x364114…3642a8 Dummy {f00=0x0111, f01=0x0190, f02=» P* P* A11= CREDIT WORK AREA P* A13= RESERVED 2 P* J < P******************************************************* T POFLINE EQU * P CF A14,CLEAR P CF A14,RESET * P CF A14,DCOFLN INDICATE OFFLINE TO DC ( P CF A1
0x3642a8…36443c Dummy {f00=0x0111, f01=0x0190, f02=»AD REGISTERS A12-A13 ~ P LD A12,4,A14 $ P ADKL A14,4 UPDATE STACK POINTER 2 * P ABL I:RT1 RETURN TO "OFFLINE" PROGRAM Z P XIF P EJECT > P********************************************************* > P*
0x36443c…3645d0 Dummy {f00=0x0111, f01=0x0190, f02=» * h > P********************************************************* P* REGISTERS P* p P* A11= CREDIT WORK AREA z P* A13= RESERVED P* < P******************************************************* P IFT NBRLIN=
0x3645d0…364764 Dummy {f00=0x0111, f01=0x0190, f02=» P LD A1,MAIN,A11 P XRK A1,1 P RF(NZ) MFCH10 . P CF A14,LMP1ON D P RF MFCH90 Z PMFCH10 EQU * l P CF A14,LMP2ON PMFCH90 EQU * P ST A1,MAIN,A11 $ P CF A14,CHKSTA CHECK LINE STATUS P RTN A14 P XIF P E
0x364764…3648f8 Dummy {f00=0x0111, f01=0x0190, f02=» * X @ P* COPY LOCAL HARDCOPY * @ P* * P @ P*********************************************************** P* REGISTERS P* P* A11= C
0x3648f8…364a8c Dummy {f00=0x0111, f01=0x0190, f02=»QU * P LD A1,SNAMOD,A11 2 P ANKL A1,HCPMOD HARDCOPY ALREADY OUTSTANDING? & $ P RF(NZ) COPY80 YES,WAIT A WHILE P LD A1,PRTID,A11 & P RF(Z) COPY80 PRINTER NOT ASSIGNED 2 P ANK A1,/FF CHECK IF PRINTER OK IN TASK TABLE P SUK A1,/30
0x364a8c…364c20 Dummy {f00=0x0111, f01=0x0190, f02=»D p P LC A1,+3,A3 P ANK A1,/FF PRINTER OK? P RF(Z) COPY10 YES > P RF COPY90 X PCOPY10 EQU * j ( P LDK A1,/38 INDICATE HARDCOPY IN WCC ~ P ST A1,WCC,A11 P LDKL A3,BVDU BUFFER P ADR A3,A11 ADDRESSS P LD A8,ECBICW,
0x364c20…364db4 (4, 129) Dummy {f00=0x0111, f01=0x0190, f02=»4,ICWRT WRITE INTERTASK P IFT SNA=1 2 P LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING 2 P ORS A1,SNAMOD,A11 h P XIF P IFF SNA=1 2 P LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING P ORS A1,BSCMOD,A11 P XIF P RF COPY90
0x364db4…364f48 Dummy {f00=0x0111, f01=0x0190, f02=»************************* j D P* * " 0 P* IDENT PRINTER IDENT. HANDLING j D P* * D P**********************************
0x364f48…3650dc Dummy {f00=0x0111, f01=0x0190, f02=»REA | P* A13= T:A ADDRESS P* & B P************************************************************* 0 PIDENT EQU * v ( P LD A1,PRTID,A11 GET CURRENT TASKID $ P LD A4,+6,A13 COMMON BLOCK BASE P ANK A1,X'FF' GET OFFSET P SUK A1,/3
0x3650dc…365270 Dummy {f00=0x0111, f01=0x0190, f02=»LL A5,8 P LC A5,+1,A3 P LC A4,+3,A3 GET STATUS $ P CF A14,SAVE1 SAVE REGISTERS D P CF A14,DISID DISPLAY TASKID h " P LDKL A1,IDEN40 NEXT KEY ENTRY P ST A1,RDMORE,A11 P RF IDEN90 NEXT KEY PIDEN40 EQU * P CM RDMORE,A
0x365270…365404 Dummy {f00=0x0111, f01=0x018e, f02=» CWK A9,IDKEY GET NEXT TASKID? ( P RF(NE) IDEN90 NO KEEP THE FIRST ONE & PIDEN50 EQU * R & P ADK A3,4 SEARCH FOR NEXT PRINTER f P LCR A2,A3 P ANK A2,/FF P LDR A1,A2 P RB(Z) IDEN50 P SLL A1,8 P RF(N) IDEN60 P C
0x365404…365598 Dummy {f00=0x0111, f01=0x0190, f02=» P ADR A3,A2 P SUK A3,4 P RB IDEN50 ( PIDEN80 EQU * : " P LCR A1,A3 GET PRINTER TO SAVE N P SLL A1,8 t P LC A1,+1,A3 ( P ST A1,PRTID,A11 NEW HARDCOPY TASKID PIDEN90 EQU * P RTN A14 P EJECT B P****************
0x365598…36572c Dummy {f00=0x0111, f01=0x0190, f02=»L KEYLOCK STATUS * B P* * : B P************************************************************* P* REGISTERS P* P* A2= KEYLOCK VALUE P* A11= C
0x36572c…3658c0 Dummy {f00=0x0111, f01=0x018e, f02=»LST=1 P IFT KB6272=1 PKEYL EQU * $ * P SUK A2,LKLKEY GET NEG KEY LOCK VALUE 6 P LD A3,KEYS,A11 OLD STATUS d P LDK A4,/10 PKEYL10 EQU * P SRL A4,1 P ADK A2,2 1 = OFF,0 = ON P RB(N) KEYL10 P ANR A3,A4 CHECK O
0x3658c0…365a54 (4, 130) Dummy {f00=0x0111, f01=0x0190, f02=» | PKEYL20 EQU * WAS ON P LDR A2,A2 $ $ P RF(Z) KEYL99 NOW ON, NO CHANGE 6 PKEYL30 EQU * CHANGE ^ P LD A3,KEYS,A11 z P XRR A3,A4 CHANGE STATUS $ P ST A3,KEYS,A11 STORE NEW STATUS P* P* KEYLOCK STATUS CHANGED J P*
0x365a54…365be8 Dummy {f00=0x0111, f01=0x0190, f02=»HANGED TO OFF ELSE 0 P* * P* INSERT USER ROUTINE BELOW THIS LINE & P* T PKEYL99 EQU * ^ P RTN A14 r P XIF P EJECT > P********************************************************** P* P* TESTM TEST MODE P*
0x365be8…365d7c Dummy {f00=0x0111, f01=0x0190, f02=» RESERVED P* > P********************************************************* P IFT TEST=1 ^ PTESTM EQU * r P CF A14,ERASE P CF A14,GETBUF P CF A14,RDSTAT P CF A14,DISSTA P LDR A8,A12 P CF A14,RELBUF P
0x365d7c…365f10 Dummy {f00=0x0111, f01=0x0190, f02=» * t > P* ENTER ENTER KEY HANDLING * & > P* * h > P********************************************************* P* REGISTERS P*
0x365f10…3660a4 Dummy {f00=0x0111, f01=0x0190, f02=»*** Z PENTER EQU * P LDK A2,/27 AID-CODE . P CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" < . P CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT n P RTN A14 P EJECT B P************************************************************** B P*
0x3660a4…366238 Dummy {f00=0x0111, f01=0x0190, f02=»* * B P************************************************************** F P* REGISTERS P* P* A2= AID-CODE P* A11= RESERVED P* A13= RESERVED P* B P**************
0x366238…3663cc Dummy {f00=0x0111, f01=0x0190, f02=»KEYBOARD INHIBIT" x ( P CF A14,TRPA UPDATE AID AND TRANSMIT & P CF A14,ERASE ERASE ENTIRE SCREEN F P RTN A14 p P EJECT D P*************************************************************** D P*
0x3663cc…366560 Dummy {f00=0x0111, f01=0x0190, f02=» * f D P*************************************************************** P* REGISTERS f P* z P* A11= CREDIT WORK AREA P* A13= RESERVED P* 8 P**************************************************** P IFT S
0x366560…3666f4 (4, 131) Opaque[0x194]
0x3666f4…366888 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2238, f03=0x0000}
0x3666f4…366888 IdxSect {
0x3666f4…366888 f00 = 0x0111 // 0x3666f4 @0x0
0x3666f4…366888 f01 = 0x000a // 0x3666f6 @0x2
0x3666f4…366888 gno = [ // 0x3666f8 @0x4
0x3666f4…366888 [0x00]: C0x0111.0x3.0
0x3666f4…366888 [0x01]: C0x0112.0x0.0
0x3666f4…366888 [0x02]: C0x0112.0x1.0
0x3666f4…366888 [0x03]: C0x0112.0x2.0
0x3666f4…366888 [0x04]: C0x0112.0x3.0
0x3666f4…366888 ]
0x3666f4…366888 }
0x366888…366a1c Dummy {f00=0x0111, f01=0x000c, f02=»820422 x P:MTAB I:FFSN P:BAS I:ETAB I:ECPY I:ETXT ( I:EXPY ( I:ATTR : I:ECTR < I:ESL F I:ENL P I:ENL1 T I:EOR f T:EDWF I:ECW p T:EDWE I:ECWC z I:EFIL I:SCB lT:DCOM 820422 T:FDS
0x366a1c…366bb0 Dummy {f00=0x0111, f01=0x0190, f02=» DSPBSC 820422 VDUKB TSTMES ICVRED READKB READK2 KBINP KBINP2 DCINP ICINP MATCH OPEN CONCT SETTIM STOINF ERASE LMP1ON CHKSTA COMINI : I:EVA0 ECBINI d SOUND 8DCBSC 820422 DCI
0x366bb0…366d44 Dummy {f00=0x0111, f01=0x0190, f02=» SETSTA B TSTSTA R RDSTAT f DCABOR f CHKSTA z LMP1ON DCOFLN TRPA PAID TRPF SCRINF BUFADR PACK FVDU 820422 DISMOD SAVE1 REST1 INSMOD GETVDU STOVDU " SCRINF . STOINF < S
0x366d44…366ed8 Dummy {f00=0x0111, f01=0x0190, f02=» DISID DISSTA < ATMASF > ATMASB f WCHAR DISCHA L FPAD 820422 PACK SCRINF WRAP DCWRIT UNPACK LMP3ON LINE ATMASB MATCH ICSET ICWRT ERASE ERASUP CONORD CONATT LINWRP LINATT E
0x366ed8…36706c Dummy {f00=0x0111, f01=0x0190, f02=» PRINT 820422 PRINT OPEN CONCT SETTIM TSTMES GETBUF READW UNPACK SETSTA ICSET ICREAD ICWRT COPP X ATMASB COMINI ECBINI h fCONVER # 820422 CONASC CONEBC CONATT CONADR C
0x36706c…367200 Dummy {f00=0x0111, f01=0x0190, f02=» I:EVA0 I:RT1 >ICLEAR ) 820422 ICLEAR I:EVA0 I:RT1 $ >EMPTYT * 820422 EMPTYT I:EVA0 I:RT1 < T:STIN + 820422 STRIN1 T:STEV T:RNOK T:LOFS I:EVA0 T:LOPS T:CLMI I:MOV T:G
0x367200…367394 (4, 132) Dummy {f00=0x0112, f01=0x0190, f02=» @T:STEV 0 820422 T:STEV T:GRFC I:EVA0 & T:EDFL 1 820422 T:EDFL T:PRKB T:PRDY T:PM1 T:PM2 T:CASP T:DUPX T:GRFC T:SCUW T:CLRD T:IOER T:BELL T:CLR1 T:CLR2 T:CLIT T:EKEY
0x367394…367528 Dummy {f00=0x0112, f01=0x0190, f02=» T:CLR2 f T:SCUW T:BELL T:IOWR T:CLIT : T:LOFS I:EVA0 T:LOPS T:CLMI T:PM1 n T:GRFC T:PM2 xT:UPDF ; 820422 T:UPDF T:GRFC T:LOFS I:EVA0 T:LOPS I:MOV T:RCR T:REWR T:RCTS P zT:DUPL
0x367528…3676bc Dummy {f00=0x0112, f01=0x0190, f02=» T:GETC T:GRFC I:EVA0 I:RT1 < ZT:GETA @ 820422 T:GETA T:GRFC I:EVA0 T:RNOK T:ROK T:RCR " @T:TSTC A 820422 T:TSTC T:GRFC T:RTES 4 T:TFWD B 820422 T:TLEF T:TRIG T
0x3676bc…367850 Dummy {f00=0x0112, f01=0x0190, f02=» T:DISP D 820422 T:PRIN T:GDSP T:DSM T:EDWI T:GRFC T:GTIP T:DISP " T:ERAS & T:GTIT T:PRDY T:TABD T:TABC T:RNOK I:RT1 T:SPAC T:EDIO X T:GETF G 820422 T:GETF T:PRDY T:TABC T:TABN
0x367850…3679e4 Dummy {f00=0x0112, f01=0x0190, f02=» I:EBR I:ECWC I:EXIT I:EFLA T:DNL T:TINP T:TKI T:DSL I:RET T:TABC , T:TABD 0 T:TABE 4 T:EDWI I:EVT I:EDSK T:GRFC T:ENIN T:LOPS T:EOR T:EDWF T:SCR2 T:SCUR T:TABN T T:RCR ^ T:EINP R 820422
0x3679e4…367b78 Dummy {f00=0x0112, f01=0x0190, f02=» T:CLMI I:EVA0 T:SPAC T:ENIN X 820422 T:ENIN T:ENI T:LOFS I:EGTB T:WRDY I:EVA0 I:EVA1 I:ECPY T:EVOU X I:EVI I:EVA3 I:EPIC jT:SETC [ 820422 T:SETC T:PRDY T:GRFC T:EDWI
0x367b78…367d0c Dummy {f00=0x0112, f01=0x0190, f02=» I:EVA6 I:FFSN T:ROK ( T:RCR * I:RT1 T:RCTS 6 T:RTES : T:RNOK < T:GRFC @ T:WRDY H T:EDIO T:SPAC T:CHBU n T:PRKB T:PRDY T:ADDY T:DSM XT:LSEG ` 820422 T:LSEG T:CSEG I:RT1 T:LOFS F
0x367d0c…367ea0 Dummy {f00=0x0112, f01=0x0190, f02=»I0 c 820422 T:SWIT SWITCH JT:TEI0 d 820422 T:TEST TESTIO T:ABOR ABORT LT:CLO0 e 820422 T:SETT SETTIM T:GETT GETTIM 4T:DEL0 f 820422 T:DELA DELAY 6T:GT
0x367ea0…368034 (4, 133) Dummy {f00=0x0112, f01=0x0190, f02=»:EDIO T:IO2 T:DCEX & T:DCE1 * I:EVA0 4T:SWI j 820422 T:SWIT I:RT1 ^T:TEI k 820422 T:TEST T:GDSP I:RT1 T:ABOR T:KIAA T:KIAC B bT:CLO l 820422 T:SETT I:EVA0 I:RT1
0x368034…3681c8 Dummy {f00=0x0112, f01=0x0190, f02=»ASK I:EVA0 I:RT1 pT:SCD o 820422 T:ACTV P:BAS I:NTPB T:BAT T:RSTR F I:EVA0 T:PAUS f I:RT1 PT:UNUS q 820422 T:UNUS P:MTAB T:UER I:RT1 T:UERR ,T:EXIT s 820422 T:EXIT
0x3681c8…36835c Dummy {f00=0x0112, f01=0x0190, f02=»I I:EVA0 I:RT1 vT:DMR v 820422 T:DREA T:REAX T:SCW2 T:IO2 T:IREA T:XREA T:IXID I:EVA2 , T:DMW w 820422 T:SWRI T:WRIX T:IO1 T:XWRI T:DWRI T:SCW2 T:IO2 T:DREW $ T
0x36835c…3684f0 Dummy {f00=0x0112, f01=0x0190, f02=»X T:IO1 0 pT:DMPO z 820422 T:DPOS T:DSB T:SCW2 T:GTBY T:IO2 T:IPOS T:WRIX T:IXID . .T:DCC { 820422 T:COPE T:COP1 T:DSB T:SCW2 T:WRIO T:IO1 T:CCLO " T:CCL1 & T:CCL2 * T:ACON
0x3684f0…368684 Dummy {f00=0x0112, f01=0x0190, f02=» T:STCW T:OPT I:EVA0 ~T:DCR 820422 T:RECE T:REC1 T:REAX T:OPT T:IO2 T:AREC T:ARE1 $ T:STCW T:SCW2 D ~T:DCS 820422 T:SEND T:SEN1 T:WRIX T:OPT T:IO1 T:ASEN " T:ASE1 &
0x368684…368818 Dummy {f00=0x0112, f01=0x0190, f02=» I:EVA0 T:SREA B T:READ B T:REAX L T:DSC0 r T:DSC1 T:DSC2 T:XSTA T:WAIT T:MWAI T:IO1 T:IO2 ` T:IO3 d T:IO5 p T:IORE t T:GCW2 T:GTCW I:RT1 T:IOEN T:EDWR I:EDW T:EDWE T:EDWF T:EDWI
0x368818…3689ac Dummy {f00=0x0112, f01=0x0190, f02=»DSP 6 T:GTBY P T:SCW2 T:DSCX n I:EVA2 T:SCW0 T:DSR T:CW 820422 T:STCW I:EVA2 T:SCW0 T:BCDB $ T:GTCW T:BINB T:KIAA T:KIAC T:GCW2 T:SCW2 >T:LEN 820422 GETLE
0x3689ac…368b40 Dummy {f00=0x0112, f01=0x0190, f02=»1 ( T:IO1 F rT:KIA 820422 T:KIA T:NKIA T:ABUF T:KIPR T:LSEG T:IORE T:KIAA T:KIAC ,T:ABUF 820422 T:ABUF PWRITEL 820422 WRITEL T:FDS0 T:DSM I:EVA0 T:IO2 8
0x368b40…368cd4 (4, 134) Dummy {f00=0x0112, f01=0x0190, f02=»:EDS I:TRC I:RST D T:CSEG I:NTPA H I:NTPB H P:MTAB T:LSEG I:NTP r I:NTPR r I:EVA0 I:EVA2 I:RT2 I:RT1 I:RT0 T:BAT T:PAT T:CAT I:EVB I v I:EVA 820422 P:MTAB I:EVA2 I:EVA1 I:EVA3 $
0x368cd4…368e68 Dummy {f00=0x0112, f01=0x0190, f02=»S 820422 I:ADD I:SUB I:CPA X 2I:CMP 820422 I:CMP I:CPA n *I:CPA 820422 I:CPA | LI:MOV 820422 I:MOV I:MVC I:MBTD I:MDTB HI:MMOV 820422 I:MMOV
0x368e68…368ffc Dummy {f00=0x0112, f01=0x0190, f02=» 820422 I:DIV I:MOV I:NTFA I:SUB I:CPA I:SH1L I:ADD I:SH1R ,I:NTF 820422 I:NTFA 8 >I:EPIC 820422 I:EPIC I:EVA0 I:SCB I:EDTE 820422 I:EKIH I:EINH I:ETA
0x368ffc…369190 Dummy {f00=0x0112, f01=0x0190, f02=» 820422 I:EDS I:EVS2 I:ED1 & nI:STR 820422 I:DLT I:EVS1 I:MCH I:INS p I:EVS2 I:CPY I:XCP I:MVC LI:EVS 820422 I:EVA0 I:EVS1 8 I:EVA2 I:EVS2 J STRIX 820422
0x369190…369324 Dummy {f00=0x0112, f01=0x0190, f02=» STROUX . STRIX 2 USRFMT 6 T:GRFC T:STEV T:EDWI I:EVT I:EDSK I:RT1 I:EVIN T:EVOU B STRIN2 820422 STRIN2 I:EXIT I:EVA0 T:CLMI I:MOV T:GRFC RSTROU2 820422 STROU2 I:EVA0 I
0x369324…3694b8 Dummy {f00=0x0112, f01=0x0190, f02=» T:IO1 T:CLOS F T:DCLO Z T:COMM f I:EVA0 I:RT1 T:PCOM T:GTBY T:GDSP T:ROLL T:RSTA T:SCW2 T:IO3 T:OPCH T:STCH T:IXCH T:USE 820422 T:USE I:EVA0 P:MTAB T:UERR T I:RT0 T:UER `
0x3694b8…36964c Dummy {f00=0x0112, f01=0x0190, f02=»CREAD ICWRT ERROR 0 SOUND LMP1ON @ LMP1OF D LMP2ON H LMP2OF L LMP3ON P LMP3OF T LMP4ON X LMP4OF LMP5ON ` LMP5OF d LMP6ON l LMP6OF p SCRINF INSMOD STOVDU WCHAR POSUNP STOINF ATMASB DISCHA CRD
0x36964c…3697e0 Dummy {f00=0x0112, f01=0x0190, f02=» TRPA CONPF T:REWR 820422 T:IOWR T:SCW T:CHBU T:SCUW $ T:CLRD 6 T:REWR < T:PRDY T:CASP ^ T:LOFS I:EVA3 I:EPIC T:LOPS I:EVA0 I:ECPY I:EVI 8T:ENLI 820422 I:EVNO I:ECPY I
0x3697e0…369974 (4, 135) Dummy {f00=0x0112, f01=0x0190, f02=»TTR T:DSL , T:GRFC T:DNL : I:ECWC I:ENL1 T:WRDY I:ENL I:ESL I:ECTR T:ENIN T:ECW T:EOR > I:EDT 820422 I:EVT B I:EGTD I:EVA2 I:EVA5 I:EVB I:EGTB I:EVI I:EVA3 I:EVA0 I:EVNO I:EPIC I
0x369974…369b08 Dummy {f00=0x0112, f01=0x4158, f02=» r I:EXIT x P:MTAB I:FFSN P:BAS I:ETAB I:ECPY I:ETXT ( I:EXPY ( I:ATTR : I:ECTR < I:ESL F I:ENL P I:ENL1 T I:EOR f T:EDWF I:ECW p T:EDWE I:ECWC z I:EFIL I:SCB lT:DCOM 820422 T:FDS
0x369b08…369c9c Dummy {f00=0x0112, f01=0x0190, f02=» * / ^ B P* ORDTAB ORDER TABLE * 0 B P* * 0 Z B P************************************************************* 0 PORDTAB EQU * 0 P DATA INVAL IN
0x369c9c…369e30 Dummy {f00=0x0112, f01=0x0190, f02=» DATA RA REPEAT TO AADRESS 0 * P DATA EUA ERASE UNPROTECTED TO ADDRESS 1 " P DATA ESC ESCAPE 1 P P DATA NULCHA NULL CHAR. 1 h P DATA NL NEW LINE 1 P DATA FF FORM FEED 1 P DATA EM END MESSAGE 1 P DATA CR CARRIAGE RETURN 1 P EJECT 1 @ P**
0x369e30…369fc4 Dummy {f00=0x0112, f01=0x0190, f02=» SF START FIELD * 1 @ P* * 2 B @ P*********************************************************** 2 P* REGISTERS 2 P* 2 P* A1= RETURN CODE 2 P* A2=
0x369fc4…36a158 Dummy {f00=0x0112, f01=0x0190, f02=»RVED 2 P* A9= DC-BUFFER INDEX 3 P* A10= INDICATOR 3 * P* A11= CREDIT WORK AREA 3 B P* A12= RESERVED 3 b P* A13= RESERVED 3 z P* 3 @ P************************************************************ 3 PSF EQU * 3 & P LDK A1,IOSFAT INDICATE
0x36a158…36a2ec Dummy {f00=0x0112, f01=0x0190, f02=»ALBEL 3 | P ST A1,UNPMOD,A11 4 P LC A2,CONATT,A2 IN EBCDIC 4 ( P ORK A2,/80 ATTR. BIT 4 J P CM CURATT,A11 4 h P ORKL A10,ATTREC+PTORD 4 ~ P CF A14,LINWRP CHECK WRAP 4 P LC A1,LINFLG,A6 4 P ANK A1,2 LINE IN FIELD? 4 P RF(Z) SF600 NO 4
0x36a2ec…36a480 Dummy {f00=0x0112, f01=0x0190, f02=»A3 STORE CHAR. 4 P ADK A3,1 5 P ADK A4,1 5 ( PSF900 EQU * 5 : P LDK A1,0 5 N P RTN A14 5 ` P EJECT 5 p @ P*********************************************************** 5 ~ @ P* * 5 @ P*
0x36a480…36a614 (4, 136) Opaque[0x194]
0x36a614…36a7a8 # DirEnt {nam=»PT3270«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2260, f03=0x0000}
0x36a614…36a7a8 IdxSect {
0x36a614…36a7a8 f00 = 0x0113 // 0x36a614 @0x0
0x36a614…36a7a8 f01 = 0x0010 // 0x36a616 @0x2
0x36a614…36a7a8 gno = [ // 0x36a618 @0x4
0x36a614…36a7a8 [0x00]: C0x0113.0x0.0
0x36a614…36a7a8 [0x01]: C0x0113.0x1.0
0x36a614…36a7a8 [0x02]: C0x0113.0x2.0
0x36a614…36a7a8 [0x03]: C0x0113.0x3.0
0x36a614…36a7a8 [0x04]: C0x0114.0x0.0
0x36a614…36a7a8 [0x05]: C0x0114.0x1.0
0x36a614…36a7a8 [0x06]: C0x0114.0x2.0
0x36a614…36a7a8 [0x07]: C0x0114.0x3.0
0x36a614…36a7a8 ]
0x36a614…36a7a8 }
0x36a7a8…36a93c Dummy {f00=0x0113, f01=0x0190, f02=»4 <U CR @ D ; ( @ B P Q a ! K1 K1 @ * *
0x36a93c…36aad0 Dummy {f00=0x0113, f01=0x0190, f02=»P1 @ * * j
0x36aad0…36ac64 Dummy {f00=0x0113, f01=0x0190, f02=»
[…0x3…]
0x36b120…36b2b4 (4, 137) Dummy {f00=0x0113, f01=0x0190, f02=» :
0x36b2b4…36b448 Dummy {f00=0x0113, f01=0x0190, f02=» 4 4 3 - 0 @ B P Q a ! ( f_ N N T @ P N T H N T H
0x36b448…36b5dc Dummy {f00=0x0113, f01=0x0190, f02=» , : " L 0 ( P R &! X !VVX 9H F O In Z : 6 . V ! 09B O E :h % : V H @ X =P v O ( C X C B C " L : ! P I ,( _ I
0x36b5dc…36b770 Dummy {f00=0x0113, f01=0x0190, f02=» L C ( B R : , .! S C V L C ( N B E , : , C ( : C C ( B ![P Z W : O ( B ![P I^ Z N ! O I H : C ( : 8 C ( : C (
0x36b770…36b904 Dummy {f00=0x0113, f01=0x0190, f02=» O N T O T RtT B W PR _* , ! V& X" X( X. X4 Y _> O ! P " P W W 9 _f PR _ , ! ^< _ : P R C ( B ! QP$ B + Y Y
0x36b904…36ba98 Dummy {f00=0x0113, f01=0x0190, f02=» C C W^ T " U N P$ t O N ! P " T W 9 W : P : ! T W P 0! P W P . O O P , P0 P ,
0x36ba98…36bc2c Dummy {f00=0x0113, f01=0x0190, f02=» O : : <' : # : N N N : O O O : B + E E C ( B : R : Q , : Q, ! P X ) Y Q P _$ P QR P _> : t Q& X ) Y Q PW P
0x36bc2c…36bdc0 Dummy {f00=0x0113, f01=0x0190, f02=» 1 B E C ( : O T Wj , ! V _ P ,W " , ! Z P6 ! " - X ) Y " , ! ^( - X ) Y _ L : P2 T PZ " P , PD ! Z P , W " P , ! ^*
0x36bdc0…36bf54 (4, 138) Dummy {f00=0x0113, f01=0x0190, f02=» V . $ P R 4 9 _ B Y 6 @ Y / C : : O U N P ! Z : O ! V V N P _ : U P ! W : ' P ' T W B ] ] O P . O
0x36bf54…36c0e8 Dummy {f00=0x0113, f01=0x0190, f02=»V _ W PN , ! Z " T _ T0 P , ! ^B P T _$ , : O N !VVT I P , O T N X W D , : p * $ 6 O P W 1Pd 5P> ?PL
0x36c0e8…36c27c Dummy {f00=0x0113, f01=0x0190, f02=» O : R Q , - X ) Y W H3 : l h d t t t t t O W. O H2 * O " X ! P n - : O WB H2 '??F O W0 H2 "? O V , W : O : ! T" " P< ," T - X ) Y
0x36c27c…36c410 Dummy {f00=0x0113, f01=0x0190, f02=») Y " W : O W> H2 '??F O W, H2 "? O V W : W" W " - X ) Y : : : : R V W V I^ O ( : V " # : V "" : : :f"? H3.
0x36c410…36c5a4 Dummy {f00=0x0113, f01=0x0190, f02=» : W % % % % % % : W $ $ $ $ $ $ : #
0x36c5a4…36c738 Dummy {f00=0x0113, f01=0x0190, f02=»
[…0xa…]
0x36d700…36d894 (4, 140) Dummy {f00=0x0114, f01=0x0190, f02=» T ( _ " = : <P _ # : TT LL GG CC # # # # (@P 0
0x36d894…36da28 Dummy {f00=0x0114, f01=0x0190, f02=» T O - W T O O W - : .B P - , ! T , W B O x N ! P .R " : .R O ." : I& I6 : I& N D P IJ : O ( : O N !8 ! P =d T- T N D- #
0x36da28…36dbbc Dummy {f00=0x0114, f01=0x0190, f02=» 0 @ P 0 P @ O : /L/L/L/L /V/ / /V / / / / / / / / / 0 : / T6 N D- N R P O 0 N T _ O _& O : / T C O : ! 1 P N !0T 0 : @ : : N !010T N !@P P T W P
0x36dbbc…36dd50 Dummy {f00=0x0114, f01=0x0190, f02=» : " L $:H D O $ @, , %P 0 O ( D O : ( B ! P* N " 0:B V M d( _6 P M : @/ /" %P @, @, P _ N $ : 1 ABCDEFGHI$.<(+|&J
0x36dd50…36dee4 Dummy {f00=0x0114, f01=0x0190, f02=»BCDEFGHI[.<(+!}JKLMNOPQR]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7-./ O<=2&p ?' @Z {JlP}M] Nk`Ka z^L~no| { [_my O ZJ 7- <=2&p ?' @Z {JlP}M] Nk`Ka z^L~no|
0x36dee4…36e078 Dummy {f00=0x0114, f01=0x0190, f02=»:#@'="123456789:# ABCDEFGHI .< 3 6 V G 9h ' 4x4L4L4L5 6 4~6 ; 9R9X: = ?z?z= 5|5|5 4x5 4x5 5 BvG|G4F F G|F 6*6&6062 P V 7 @ ! P P P W 40 5 9c D3 9a1 P 6 6L Q 3 W
0x36e078…36e20c Dummy {f00=0x0114, f01=0x0190, f02=» R T V P V P W V _ 8^n D3 Vt @ 2 ! 9B V T W V P D $ V 6 V % V E W 2 % ^ 6 E 7_ 2 # L 6 2# &X 3Y $! 2P R P _ 9B 4 _ 6 D " 7 $ V
0x36e20c…36e3a0 Dummy {f00=0x0114, f01=0x0190, f02=» W P W 6 2# 8 W4 @ E6D" T> ; [ # 8 :H 2 T Z L L64 D V, W # 8 L64 D V $ W D V L6< , W 6 2 8 W$ " P& Pd" # 8 ;b Wv " ;d# _ [ v [ PN 6 PZ
0x36e3a0…36e534 (4, 141) Dummy {f00=0x0114, f01=0x0190, f02=» ;AV$ Z H # 8 ; 6 : & Z 4 8 : Z 4 " 2@P : [ [ 6 & @ ! P [ 6 [ Z 7 6b Z 7 : T # ( 7n 7. " T # :A ( @ " P ! P [
0x36e534…36e6c8 Dummy {f00=0x0114, f01=0x0190, f02=» ;f" #?_" W " T & T + : * & !@P `1` P ; Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V
0x36e6c8…36e85c Dummy {f00=0x0114, f01=0x0190, f02=» : * & !`P :J +_ +Q ; _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 = P < Pd P 0 - PN
0x36e85c…36e9f0 Dummy {f00=0x0114, f01=0x0190, f02=»<^ # ; [ _ ' 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
0x36e9f0…36eb84 Dummy {f00=0x0114, f01=0x0190, f02=»6L [ [ 6 Z Z ; : V ) " TV *V &V : V S W P 9 S W _ V P W T V E + : & [ [ [ [ $ [ [ >h [ [ A ; A ; A 9X Z PP
0x36eb84…36ed18 Dummy {f00=0x0114, f01=0x0190, f02=»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 E + : V & [ [ [ [ $
0x36ed18…36eeac Dummy {f00=0x0114, f01=0x0190, f02=» Z A ; Q A ?H P _ T { [ A Ap [ Q@ [ A 9X { R [ _ A 9R A ?H Z ! Z $ Z %_N [ Q* A 9R A ; R [ Z { A 9R z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D &
0x36eeac…36f040 Dummy {f00=0x0114, f01=0x0190, f02=»F C DZC C F FRFzFvD(C<D2B D F F DFD F C C6 BV 6 C K K K K V K : 6 B B BV 6 V C C C V Z P 2 " T W "@T '?W "? HA " K :e J J " J _Z Z C [ Z P P
0x36f040…36f1d4 (4, 142) Dummy {f00=0x0114, f01=0x0190, f02=»Q V : : B J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K DPWJ D W +_ D( D$ K W. _& X RXW X & RT J K : V : 1 : + 6 [ [ < !AAP !TTT W !**T * [ !FF
0x36f1d4…36f368 Dummy {f00=0x0114, f01=0x0190, f02=»XBW *X& FW@ :P # U 1 D !00T ; DR _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ :P K _ D 8 8 !++P !-- z ;$# + ^$ _* T tX. PT*AXYZ9 C
0x36f368…36f4fc Dummy {f00=0x0114, f01=0x0190, f02=» & _ &X _ : : : : G Bz : { : H G PX 9 _ H [ H Z : R" P $ 1T Y W 5 _$ : H $ R W R # P W ) V E G WX H [
0x36f4fc…36f690 Dummy {f00=0x0114, f01=0x0190, f02=» kT T : & 9! " : $ : G 6L $ : C B R B TR N ! TJ b " N ! P T6 R0 Q* R O I F T N P W I W H : C C ( : C C ( : : I& I6 : b V& B I&
0x36f690…36f824 Dummy {f00=0x0114, f01=0x0190, f02=»W0 W0 W( W( W W W W W W W W W W W W C B P A C ( @ C ( :K2K2K2K2K2K2K2K2K2K2K2K<K<K<K<K2K<K<K<K<K<K<K<K<K<K<K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2K2
0x36f824…36f9b8 Dummy {f00=0x0114, f01=0x0190, f02=»OXODOHOLOVOVOVOVOVOVOVO O O O O O O O O O O O O O O O O O O O O O O O O P 0 KD : , KD : P, T& N P ' T ! T T 6W I^ : K P :K K K K V, W& R W P R W PV : PD P V
0x36f9b8…36fb4c Dummy {f00=0x0114, f01=0x0190, f02=» U : K PR P_ P* ! V ' P W V L:W : P( ! R W ' P L:W : P2 ' T& P" . W I^W W :
0x36fb4c…36fce0 Dummy {f00=0x0114, f01=0x0190, f02=» t P , X ) Y W I^ : O I O I I : K< L: : K< : 0 K< 0 K< 0 K< : N @ TN N PH! 09B V L ! P I W. 8 O I& N IJ @ O W I^ : N V ! 09B ,=H L L t N O WF
0x36fce0…36fe74 (4, 143) Dummy {f00=0x0114, f01=0x0190, f02=»I v : Ob O : O 1R Q T OLW T OHW ODW I^ : H3n I : O WX O 0RVT O WH T O W> T@ O W4 O 1R2 V. W O 0R" V W O 0R V O W O W I^ : :( R : V E V D ' $ T ( W P P 4x X =' V
0x36fe74…370008 Dummy {f00=0x0114, f01=0x0190, f02=» &P B V C / <H : S S C C W S C 9HR Q ' W 781"&$ 39#$;< '()*+,-! S S 6 P _J S B 6 'W S ( W| 6 S S 1 ( 0 W : 1W C C
0x370008…37019c Dummy {f00=0x0114, f01=0x0190, f02=»B| RZ C C R C B B P C R : V I C B : ( ' P R I : S S % Y 6f C 6 & R V C 6 : B T T T V : 2 ' W 2 6 2 @ " T # ' ?D 8 W<' #? 8 ;B
0x37019c…370330 Dummy {f00=0x0114, f01=0x0190, f02=» : : S S ,V U : 6L P C W $0 P C T : 6L#0 T & C C : T& C C : & T ;d# P S W P P, 9A:AV X R _ S W 4 _T :#0 T B 'W B B " T :
0x370330…3704c4 Dummy {f00=0x0114, f01=0x0190, f02=» & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 U 6L #0 T B ' : B B T : V C 6L P C #0 T & C C : T& C C :
0x3704c4…370658 Dummy {f00=0x0114, f01=0x0190, f02=» ( $0 0 _ 0 0
0x370658…3707ec Dummy {f00=0x0114, f01=0x0190, f02=»! R T V P V P W V _ 8^n D3 Vt @ 2 ! 9B V T W V P D $ V 6 V % V E W 2 % ^ 6 E 7_ 2 # L 6 2# &X 3Y $! 2P R P _ 9B 4 _ 6 D " 7 $ V
0x3707ec…370980 Dummy {f00=0x0114, f01=0x0190, f02=»W W P W 6 2# 8 W4 @ E6F" T> ; [ # 8 :H 2 T Z L L66 D V, W # 8 L66 D V $ W D V L6> , W 6 2 8 W$ " P& Pd" # 8 ;b Wv " ;d# _ [ v [ PP 6
0x370980…370b14 (4, 144) Opaque[0x194]
0x370b14…370ca8 # DirEnt {nam=»APLINK«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x22a0, f03=0x0000}
0x370b14…370ca8 IdxSect {
0x370b14…370ca8 f00 = 0x0115 // 0x370b14 @0x0
0x370b14…370ca8 f01 = 0x0002 // 0x370b16 @0x2
0x370b14…370ca8 gno = [ // 0x370b18 @0x4
0x370b14…370ca8 [0x00]: C0x0115.0x0.0
0x370b14…370ca8 ]
0x370b14…370ca8 }
0x370ca8…370e3c Dummy {f00=0x0115, f01=0x00ae, f02=» PASG 2,NO PSCR PTRA DATBSC PTLK U,M,4K 2 PASG 2,LP0F D PLKE M V PKPF /L,PT32XX d PSCR z P$PDISC A=PT32XX PASG /E0,TY10
0x370e3c…370fd0 Dummy {f00=0x0115, f01=0x2008, f02=» 2,NO PSCR PTRA DATBSC PTLK U,M,4K 2 PASG 2,LP0F D PLKE M V PKPF /L,PT32XX d PSCR z P$PDISC A=PT32XX PASG /E0,TY10
0x370fd0…371164 Dummy {f00=0x0115, f01=0x0190, f02=»******** X P EJECT D P**************************************************************** D P* * f D P* ENTRY POINTS * D P*
0x371164…3712f8 Dummy {f00=0x0115, f01=0x0190, f02=»NTRY CONASC P ENTRY CONEBC P ENTRY CONATT * P ENTRY CONADR @ P ENTRY CONPF V P ENTRY CONORD j P EJECT F P***************************************************************** F P*
0x3712f8…37148c Dummy {f00=0x0115, f01=0x0190, f02=» * l F P***************************************************************** & PCONASC EQU * p ( P DATA /0001,/0203,/0009,/0000 00-07 ( P DATA /0000,/000B,/0C0D,/0E0F 08-0F ( P DATA /1011,/1213,/000A,/0800 10-17 ( P
0x37148c…371620 Dummy {f00=0x0115, f01=0x0190, f02=»A /0031,/1600,/001E,/0004 30-37 ( P DATA /0000,/0000,/1415,/001A 38-3F ( ( P DATA /2041,/4243,/4445,/4647 40-47 T ( P DATA /4849,/242E,/3C28,/2B7C 48-4F ( P DATA /264A,/4B4C,/4D4E,/4F50 50-57 ( P DATA /5152,/215D,/2A29,/3B5E 58-5F ( P DAT
0x371620…3717b4 (4, 145) Opaque[0x194]
0x3717b4…371948 # DirEnt {nam=»GTCONF«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x22a8, f03=0x0000}
0x3717b4…371948 IdxSect {
0x3717b4…371948 f00 = 0x0115 // 0x3717b4 @0x0
0x3717b4…371948 f01 = 0x0002 // 0x3717b6 @0x2
0x3717b4…371948 gno = [ // 0x3717b8 @0x4
0x3717b4…371948 [0x00]: C0x0115.0x1.0
0x3717b4…371948 ]
0x3717b4…371948 }
0x371948…371adc Dummy {f00=0x0115, f01=0x018e, f02=» PT; P02; PTID=V0; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P02; PTID=T0; PTCL=P1; PLEV=60; P01; PTDC=
0x371adc…371c70 Dummy {f00=0x0115, f01=0x0040, f02=» PNSA=04; P40; PC1; PC8; , PC9; 8; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P02; PTID=T0; PTCL=P1; PLEV=60; P01; PTDC=
0x371c70…371e04 Dummy {f00=0x0115, f01=0x2008, f02=» 04; P40; PC1; PC8; , PC9; 8; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P02; PTID=T0; PTCL=P1; PLEV=60; P01; PTDC=
0x371e04…371f98 Dummy {f00=0x0115, f01=0x018e, f02=»************************* v P* " . P* KB/VDU TERMINAL WITH TWO DC-LINES , P* ^ 8 P*************************************************** h P* TERM K2 P* P* CWB CB1 P* TWB TB1 P* P* START KBVGO P*
0x371f98…37212c Dummy {f00=0x0115, f01=0x0190, f02=» P*DSICR DSET FC=X'50',DEV=II P*DSICW DSET FC=X'51',DEV=IO ( P*DSDC1 DSET FC=X'61' L P*DSDC2 DSET FC=X'62' h P EJECT 8 P**************************************************** P* . P* PRINTER TERMINAL WITH ONE DC-LINE
0x37212c…3722c0 Dummy {f00=0x0115, f01=0x0190, f02=» P START PRTGO P* @ PPDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS " PPDSICR DSET FC=X'50',DEV=II f PPDSICW DSET FC=X'51',DEV=IO PPDSDC1 DSET FC=X'61' P EJECT : P************************************************
0x3722c0…372454 (4, 146) Opaque[0x194]
0x372454…3725e8 # DirEnt {nam=»PT32XX«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x22b0, f03=0x0000}
0x372454…3725e8 IdxSect {
0x372454…3725e8 f00 = 0x0115 // 0x372454 @0x0
0x372454…3725e8 f01 = 0x0010 // 0x372456 @0x2
0x372454…3725e8 gno = [ // 0x372458 @0x4
0x372454…3725e8 [0x00]: C0x0115.0x2.0
0x372454…3725e8 [0x01]: C0x0115.0x3.0
0x372454…3725e8 [0x02]: C0x0116.0x0.0
0x372454…3725e8 [0x03]: C0x0116.0x1.0
0x372454…3725e8 [0x04]: C0x0116.0x2.0
0x372454…3725e8 [0x05]: C0x0116.0x3.0
0x372454…3725e8 [0x06]: C0x0117.0x0.0
0x372454…3725e8 [0x07]: C0x0117.0x1.0
0x372454…3725e8 ]
0x372454…3725e8 }
0x3725e8…37277c Dummy {f00=0x0115, f01=0x0190, f02=»4 <U CR @ D ; ( @ B P Q a ! K1 K1 @ * *
0x37277c…372910 Dummy {f00=0x0115, f01=0x0190, f02=»P1 @ * * j
0x372910…372aa4 Dummy {f00=0x0115, f01=0x0190, f02=»
[…0x3…]
0x372f60…3730f4 (4, 147) Dummy {f00=0x0115, f01=0x0190, f02=» :
0x3730f4…373288 Dummy {f00=0x0115, f01=0x0190, f02=» 4 4 3 , 0 @ B P Q a ! ( f_ N N T @ P N T C N T C
0x373288…37341c Dummy {f00=0x0115, f01=0x0190, f02=» , : " L ( $ f R &! X !VVX 9H F O D . : 6 . V ! 09B O E :h % : V H @ X =P v O ( C X C B C " L : : , |! P ,
0x37341c…3735b0 Dummy {f00=0x0115, f01=0x0190, f02=» C V L C ( N B E , : , C ( : C C ( B ![P . W : O ( B ![P D . N ! O D C : C ( : C ( : C ( B : ( T O : " " T D
0x3735b0…373744 Dummy {f00=0x0115, f01=0x0190, f02=» RtT B W PR R_* , l ! V& | X" X( X. X4 n Y _> O ! P " P |W W 9 | _f PR R_ , ! ^< |_ : P R C ( B ! QP$ B + Y Y :h Y T C ( C C B T
0x373744…3738d8 Dummy {f00=0x0115, f01=0x0190, f02=» O n N ! P " T W 9 W : P : ! T W P ! P W P . O O P P0 P N P4_6 P
0x3738d8…373a6c Dummy {f00=0x0115, f01=0x0190, f02=» N N N : O O O : B + E E C ( B : R : Q : Q, ! P X ) Y Q P _$ P QR P _> : F Q& X ) Y Q PW P P , ]: n : F PR P_ P - X
0x373a6c…373c00 Dummy {f00=0x0115, f01=0x0190, f02=»T Wj , ! V _ P W , ! Z P6 ! " - X ) Y , ! ^( - X ) Y _ G : P2 T PZ " P , PD ! Z P W P , ! ^* - _( : U O ! R*
0x373c00…373d94 (4, 148) Dummy {f00=0x0116, f01=0x0190, f02=» @ Y / C R : : O U N P ! Z : O ! V V N P _ : U P ! W : ' P ' T W B ] n ] O P . O : T *W T ; : N !VVT0 C
0x373d94…373f28 Dummy {f00=0x0116, f01=0x0190, f02=» T0 P , ! ^> P l T _$ , : O N !VVT D P O T N X W , : < V O P W 1Pd 5P> ?PL 7T* Wj T O DN Dr
0x373f28…3740bc Dummy {f00=0x0116, f01=0x0190, f02=» : B ( 4 : J J J J J O W. O H2 * O X ! P > - : O WB H2 '??F O W0 H2 "? O V W : O : ! T& P PB ," T - X ) Y _ P P ," T _ ,"
0x3740bc…374250 Dummy {f00=0x0116, f01=0x0190, f02=»W> H2 '??F O W, H2 "? O V W : W" W - X ) Y : : : : R V W V D O ( : V " # : V "" : : :f"? H3. "? H3. : V , ! R " -
0x374250…3743e4 Dummy {f00=0x0116, f01=0x0190, f02=» W $ $ $ $ $ $ : #
0x3743e4…374578 Dummy {f00=0x0116, f01=0x0190, f02=»
[…0xa…]
0x375540…3756d4 (4, 150) Dummy {f00=0x0116, f01=0x0190, f02=» T ( _ " = : <P _ # : TT LL GG CC # # # # (@P 0 ( O 0 $ f -( ( -Z
0x3756d4…375868 Dummy {f00=0x0116, f01=0x0190, f02=» - , |! T W B O D N ! P . : . O - : DN D^ : DN N D P Dr : O ( : O N !8 ! P =d T, T N D, # V^ R / Th ," P6 ! R W, ! R
0x375868…3759fc Dummy {f00=0x0116, f01=0x0190, f02=»/" /|/|/|/| / / / / / / : / T6 N D, N R P O / N T _ O _& O : / T 1 C O : ! 1 P N !0T 0 : @ : : N !010T N !@T P T W P / : T N !010Tx"@Tt B C
0x3759fc…375b90 Dummy {f00=0x0116, f01=0x0190, f02=» : " L $:H D O $ @, , %P 0 O ( D O : ( B ! P* N " 0:B V M d( _6 P M : @. . %P @, @, P _ N $ : 1 ABCDEFGHI$.<(+|&J
0x375b90…375d24 Dummy {f00=0x0116, f01=0x0190, f02=»BCDEFGHI[.<(+!}JKLMNOPQR]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7-./ O<=2&p ?' @Z {JlP}M] Nk`Ka z^L~no| { [_my O ZJ 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj
0x375d24…375eb8 Dummy {f00=0x0116, f01=0x0190, f02=»:[ '="123456789:# ABCDEFGHI .< 3 6 V G 9h ' 4x4L4L4L5 6 4~6 ; 9R9X: = ?z?z= 5|5|5 4x5 4x5 5 K B B A B B A 6*6&6062 M V 7 @ ! P M P W 40 5 9c D3 9a1 P 6 6L Q 3 W
0x375eb8…37604c Dummy {f00=0x0116, f01=0x0190, f02=» R T V P V M W V _ 8^n D3 Vt @ 2 ! 9B V T W V P D $ V 6 V % V E W 2 % ^ 6 E 7_ 2 # L 6 2# &X 3Y $! 2P R P _ 9B 4 _ 6 D " 7 $ V
0x37604c…3761e0 Dummy {f00=0x0116, f01=0x0190, f02=» W P W 6 2# 8 W4 @ E6D" T> ; [ # 8 :H 2 T Z L L64 D V, W # 8 L64 D V $ W D V L6< , W 6 2 8 W$ " P& Pd" # 8 ;b Wv " ;d# _ [ v [ M 6 N
0x3761e0…376374 (4, 151) Dummy {f00=0x0116, f01=0x0190, f02=» ;AV$ Z H # 8 ; 6 : & Z 4 8 : Z 4 " 2@P : [ [ 6 & @ ! P [ 6 [ Z 7 6b Z 7 : T # ( 7n 7. " T # :A ( @ " P ! P [
0x376374…376508 Dummy {f00=0x0116, f01=0x0190, f02=» ;f" #?_" W " T & T + : * & !@P `1` P ; Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V
0x376508…37669c Dummy {f00=0x0116, f01=0x0190, f02=» : * & !`P :J +_ +Q ; _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 = P < Pd P 0 - PN
0x37669c…376830 Dummy {f00=0x0116, f01=0x0190, f02=»<^ # ; [ _ ' 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
0x376830…3769c4 Dummy {f00=0x0116, f01=0x0190, f02=»6L [ [ 6 Z Z ; : V ) " TV *V &V : V S W P 9 S W _ V P W T V E + : & [ [ [ [ $ [ [ >h [ [ A ; A ; A 9X Z PP
0x3769c4…376b58 Dummy {f00=0x0116, f01=0x0190, f02=»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 E + : V & [ [ [ [ $
0x376b58…376cec Dummy {f00=0x0116, f01=0x0190, f02=» Z A ; Q A ?H P _ T { [ A Ap [ Q@ [ A 9X { R [ _ A 9R A ?H Z ! Z $ Z %_N [ Q* A 9R A ; R [ Z { A 9R z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D &
0x376cec…376e80 Dummy {f00=0x0116, f01=0x0190, f02=» CD Z : R" P $ 1T Y W 5 _$ : CD $ R W R # P W ) V E C WX CD [ C : Z !0P0 R* 4 R :d" 8 R ! :DW ! 9 R R _. : ; : 6 6 jP
0x376e80…377014 (4, 152) Dummy {f00=0x0117, f01=0x0190, f02=» Q. R O D T N P W D W C : C C ( : C C ( : : DN D^ : b V& B DN Dr @ O W @ O " P : C ( : C C C ( : C C C ( : D O :
0x377014…3771a8 Dummy {f00=0x0117, f01=0x0190, f02=»FPFPFPFPFPFZFZFZFZFPFZFZFZFZFZFZFZFZFZFZFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPFPK F F F F F GXG G H(H H H I*I@ILIZITFXIhI K K K K K K K K K K K K J>K JJK K JnJZJ^JbJl
0x3771a8…37733c Dummy {f00=0x0117, f01=0x0190, f02=»! T $ W D : F P :F F F F V, W& R W P R W PV : PD P V P ' P" V ' P W U : P" ' P W U
0x37733c…3774d0 Dummy {f00=0x0117, f01=0x0190, f02=» ! R W ' P GXW : P2 ' T& P" . W D W W r : T W r G : O : P Z P, Pd ' T^. U
0x3774d0…377664 Dummy {f00=0x0117, f01=0x0190, f02=»TJ N PD! 09B V L ! P W. 8 O DN N Dr @ O W D : N V ! 09B ,=H L L F ^ I O WF O n P* T0 ," X 9HR !VV H_ V _$ ,9H L O : ' D Z : _ D F : %W >W , D F : Jx O :
0x377664…3777f8 Dummy {f00=0x0117, f01=0x0190, f02=» W O 0R" V W O 0R V J W O W D : : !! gg++ L 33 U 6L6b9 U 9 6X6 U M0S MFM U U U U M L M LVMnUPUPM MdU MFL MX K 6 L^ K K K K V K : 6 Kp K` K 6 V
0x3777f8…37798c Dummy {f00=0x0117, f01=0x0190, f02=» [ Z P M [ V 7_ W Z M @ ! P M Z 7 Z Z P M : V R (Q V : : Kp J P v I < : J Qz : Pp 4 ! Tj_ PZ 4 WV K M WJ Mj
0x37798c…377b20 Dummy {f00=0x0117, f01=0x0190, f02=» T ( W M P 4x X =' V W V Y =P M : W PP O~ N</ Ov _ QF C QZ P 6 <H : Nf Oz QF QZ 6 &P B V C / <H : QF Qj C C W Qv C 9HR N ' W 781"&$ 39#$;< '()*+,-! Qv QZ
0x377b20…377cb4 (4, 153) Dummy {f00=0x0117, f01=0x0190, f02=» 0 W : 1W C C ( ' P0 O P& V ,V S8W B % P C + R< 4x P I B P B P B 5 : P Q( P K P C C O C B B P C P4 : V I C B : ( ' P P I : QF QZ
0x377cb4…377e48 Dummy {f00=0x0117, f01=0x0190, f02=» 6 2 @ " T # ' ?D 8 W<' #? 8 ;B V D W ,"? :D;B D V : _: L C L C B C : P Q( : P Q( : 6 C : : QF Qj ,V Sd : 6L P C W $0 P C Q : 6L#0 T & C C : Q C
0x377e48…377fdc Dummy {f00=0x0117, f01=0x0190, f02=»T B 'W B B " RZ : PS S4PR LS R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 S4 6L
0x377fdc…378170 Dummy {f00=0x0117, f01=0x0190, f02=» < !AAP !TTT W !**T * [ !FFP !EET W R IUH * B Z 9 ! ; *Xt 8 ! DU8 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1 T !00T ; M _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ?
0x378170…378304 Dummy {f00=0x0117, f01=0x0190, f02=»^$ _* T tX. PT*AXYZ9 M UZ : ! P ! P ! P ! P 6 ! P 6TW : ! )P9H # T &W &" :I : U : P & _ &X _ : : : :
0x378304…378498 Dummy {f00=0x0117, f01=0x0190, f02=» ( $0 0 _ 0 0
0x378498…37862c Dummy {f00=0x0117, f01=0x0190, f02=» WCC AFTER UPDATE [ v PGETC20 EQU * ( P XRKL A10,LICREC RESET LAST IN CHAIN . P ORKL A10,NEWCH NEW CHAIN Z P RF GETC60 | PGETC30 EQU * & P SRC A1,1 LAST IN CHAIN RECEIVED? P RF(NN) GETC90 NO PGETC40 EQU * $ P LDR A1,A10 GE
0x37862c…3787c0 Dummy {f00=0x0117, f01=0x0190, f02=»NO 0 P CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE ] P ORKL A10,NEWCH NEW CHAIN ] > PGETC60 EQU * ] ` * P ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS ] t & P CF A14,SAVE2 SAVE INFORMATION =2 ] " P CF A14,GETBUF GET NEW BUFFER ] " P LDR A3,A8 GET BUFFER
0x3787c0…378954 (4, 154) Opaque[0x194]
0x378954…378ae8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x22f0, f03=0x0000}
0x378954…378ae8 IdxSect {
0x378954…378ae8 f00 = 0x0117 // 0x378954 @0x0
0x378954…378ae8 f01 = 0x0004 // 0x378956 @0x2
0x378954…378ae8 gno = [ // 0x378958 @0x4
0x378954…378ae8 [0x00]: C0x0117.0x2.0
0x378954…378ae8 [0x01]: C0x0117.0x3.0
0x378954…378ae8 ]
0x378954…378ae8 }
0x378ae8…378c7c Dummy {f00=0x0117, f01=0x0190, f02=» $ P IDENT CTAB01 REL. 11.0 81/10/28 P , 8 P*************************************************** 4 8 P* * p 8 P* CTAB01, CTAB02, CTAB03, KEY CONVERSION FOR * 8 P* 6271, 6272 KEYBOARDS FOR DAN
0x378c7c…378e10 Dummy {f00=0x0117, f01=0x0190, f02=»*** ` P EJECT P********************* P* ENTRIES * 8 P********************* V P ENTRY CTAB01,CTAB02,CTAB03 t P EJECT PCTAB01 EQU * PCTAB02 EQU * PCTAB03 EQU * P " P DATA UNSH,SHIFT,UNSH,SHIFT,0
0x378e10…378fa4 Dummy {f00=0x0117, f01=0x0190, f02=»3,SHIFT4,SHIFT5,SHIFT6,0 p PUNSH0 EQU * : P DATA /BAB1,/B2B3,/B4B5,/B6B7,/B8B9,/B0A2,/8489,/88A0 4 PUNSH1 EQU * r : P DATA /3031,/3233,/3435,/3637,/3839,/8F90,/852D,/8C8D PUNSH2 EQU * : P DATA /207F,/7F7F,/7F7F,/7F27,/7F3C,/7F2B,/2C2D,
0x378fa4…379138 Dummy {f00=0x0117, f01=0x0190, f02=»445,/4647,/4849,/4A4B,/4C4D,/4E4F | PUNSH5 EQU * * : P DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/5E7F > PUNSH6 EQU * | : P DATA /7F92,/7FA5,/7F8A,/8B7F,/7F7F,/7F7F,/7F7F,/7F7F P EJECT PSHIFT0 EQU * : P DATA /C6B1,/B2B3,/B4B5,
0x379138…3792cc Dummy {f00=0x0117, f01=0x018e, f02=» : P DATA /207F,/7F7F,/7F7F,/7F2A,/7F3E,/7F3F,/385F,/3A7F PSHIFT3 EQU * B : P DATA /3D21,/2223,/2425,/262F,/2829,/8682,/8780,/8183 V PSHIFT4 EQU * : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F PSHIFT5 EQU * : P DATA /5051,/5
0x3792cc…379460 Dummy {f00=0x0117, f01=0x400c, f02=» @ 07F,/7F7F,/7F7F,/7F2A,/7F3E,/7F3F,/385F,/3A7F PSHIFT3 EQU * B : P DATA /3D21,/2223,/2425,/262F,/2829,/8682,/8780,/8183 V PSHIFT4 EQU * : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F PSHIFT5 EQU * : P DATA /5051,/5
0x379460…3795f4 (4, 155) Dummy {f00=0x0117, f01=0x2008, f02=»
0x3795f4…379788 Dummy {f00=0x0117, f01=0x0190, f02=» X 2:D :D :D C . . X 2 . X * . B ! T X ! P / Y . . B Y " . X 2 . . . X " P . /l B . . /~ X 2 . . X *T . . W, P C X P q C 0P Y *
0x379788…37991c Dummy {f00=0x0117, f01=0x0190, f02=»Z X A/ * / Y $_. Y $ / @pV T ApX ApV . X $P y $ Y $ 0 9j (P 0 ) 0 9j (P _ ) 1_ * $X 0 % /X_ pv ( (P _ ) 1_@ pv ( (XL P _ 0 )_Z pr &_2 pr &_$ * (P _ ) 1 4 A/ A/ A/ A/ A/ 0 W
0x37991c…379ab0 Dummy {f00=0x0117, f01=0x0190, f02=»P % Apt 4 * 0 +& !7 !7 o ] +& !7 !7 ] " P ] 00 0 +& Apd Apf !7 !8 T. . 1 1& 1 2 2f 3 44 4 Ap^ +& !7 !8 @pzT " !7 _Z !8 ] P = $ !8 x !8 > !8 F !7 Apb P "P, !4 @pXT( PV !0 X
0x379ab0…379c44 Dummy {f00=0x0117, f01=0x0190, f02=» C B B Apj Apl Apn Ap Ap^ !6& !0@ ApX_ !4 T o @pX X ! P !5 0 # T @9jT !5 _ !4 App !5 _$ !0t Ap` @pXP @pVP !4 ApX ApZ 0 !0t @pZP @9j 1 !56 T> Ap^ !5 0 @pXP @9jP @pV 1 8 !4 !4 Apb_: !8 X8_` Ap^ @9j @ppT 1
0x379c44…379dd8 Dummy {f00=0x0117, f01=0x0190, f02=» " H " P X * Y X V !/ W* X T X *P W !/ X T X ! P !5 W !5 0 ApZ @pT X 0 Ap` ApV Apb 2 !0t @pXT @pZP !6 0 !0t @pXT @pZX W` @pV @p^ 1 @pp @pj Apn 2 !0t @pXT _> !8 T @pbP !5 !0@_X /T, @pbX @p P @
0x379dd8…379f6c Dummy {f00=0x0117, f01=0x0190, f02=» 4 ApZ Apn H E Ap^ ApT 4 @pVP* X R$ X " T X *P /4 / ApX ApV 4 @9j @p^T @pp Apn @pn App Ap^ !8 T8 P: PN PP P P4 ( 1 Apn @pn ]: _> P _F @9j @pn E !9BP !7 4 _" !9B 0_p / ApbT W ,W @ Apx A
0x379f6c…37a100 Dummy {f00=0x0117, f01=0x0190, f02=»p`P - !8 x . !o W 0 " @p`PL R ~T }T T0 W, !8 P " ! " :A *@ H T 0 !8 W R !8 Apn @pl @pnUH Zx Q P Q T 0 !8 Apn 0 !8 Apn !8 " !8 " !8 6 Ap _" Ap^ ApV !7 !8 % !8 R !8 !8 < !8 @pV
0x37a100…37a294 (4, 156) Opaque[0x194]
0x37a294…37a428 # DirEnt {nam=»UPDAPP«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2300, f03=0x0000}
0x37a294…37a428 IdxSect {
0x37a294…37a428 f00 = 0x0118 // 0x37a294 @0x0
0x37a294…37a428 f01 = 0x0002 // 0x37a296 @0x2
0x37a294…37a428 gno = [ // 0x37a298 @0x4
0x37a294…37a428 [0x00]: C0x0118.0x0.0
0x37a294…37a428 ]
0x37a294…37a428 }
0x37a428…37a5bc Dummy {f00=0x0118, f01=0x0088, f02=» SCR ASM KEYB KPF /O SCR . ASM DSPBSC : KPF /O L SCR Z ASG /E0,DK,APLINK f END ( _ ( l : H D ! . + ~ 9T GP OT _T oT T W& T T W P W 8 b
0x37a5bc…37a750 Dummy {f00=0x0118, f01=0x2008, f02=» ASM KEYB KPF /O SCR . ASM DSPBSC : KPF /O L SCR Z ASG /E0,DK,APLINK f END ( _ ( l : H D ! . + ~ 9T GP OT _T oT T W& T T W P W 8 b
0x37a750…37a8e4 Dummy {f00=0x0118, f01=0x0190, f02=»MBER OF LINES (1-2) PNBRLIN EQU 1 * PX:M EQU 0 COPY COMMNAND INCLUDED IF:=1 0 PCOPCMD EQU 1 ^ " PX:O EQU 0 TEST INCLUDED IF:=1 r PTEST EQU 0 P EJECT @ P*********************************************************** @ P*
0x37a8e4…37aa78 Dummy {f00=0x0118, f01=0x0190, f02=» * j @ P*********************************************************** P b P* j P* ECB INDEX TABLE t P* PECBIND EQU * P DATA 8 NUMBER OF ENTRIES P DATA X'2000' ECB KB P DATA X'3002' ECB PRINTER
0x37aa78…37ac0c Dummy {f00=0x0118, f01=0x018e, f02=»RTASK WRITE z P DATA X'610C' ECB DC LINE1 ( P DATA X'210E' ECB FOR NUMERIC KB DK 6 P* b $ P* SCREEN SIZE ON DISPLAY l P* PLBVDU EQU 1920 P* P* MODES P* * PHCPMOD EQU /4000 HARDCOPY OUTSTANDING P*
0x37ac0c…37ada0 Dummy {f00=0x0118, f01=0x0190, f02=» P* TERMINAL WORKBLOCK TB1 P* $ POFFFLG EQU 1962 OFFLINE FLAG . * PPRTID EQU OFFFLG+2 TASKID FOR HARDCOPY R " PMAIN EQU PRTID+6 WHICH DC LINE . PECBBLK EQU MAIN+6 ECBBLK FOR MULTIPLE WAIT PREGI EQU ECBBLK+16 SAVE AREA PBSCMOD EQU R
0x37ada0…37af34 (4, 157) Opaque[0x194]
0x37af34…37b0c8 # DirEnt {nam=»MINCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2308, f03=0x0000}
0x37af34…37b0c8 IdxSect {
0x37af34…37b0c8 f00 = 0x0118 // 0x37af34 @0x0
0x37af34…37b0c8 f01 = 0x0002 // 0x37af36 @0x2
0x37af34…37b0c8 gno = [ // 0x37af38 @0x4
0x37af34…37b0c8 [0x00]: C0x0118.0x1.0
0x37af34…37b0c8 ]
0x37af34…37b0c8 }
0x37b0c8…37b25c Dummy {f00=0x0118, f01=0x018e, f02=» PT; P01; PTID=V0; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=T1; PTCL=P1; PLEV=60; P01; PTDC=
0x37b25c…37b3f0 Dummy {f00=0x0118, f01=0x0028, f02=» PNSA=02; P40; PC8; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=T1; PTCL=P1; PLEV=60; P01; PTDC=
0x37b3f0…37b584 Dummy {f00=0x0118, f01=0x2008, f02=» 02; P40; PC8; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=T1; PTCL=P1; PLEV=60; P01; PTDC=
0x37b584…37b718 Dummy {f00=0x0118, f01=0x2008, f02=» b HEND FILE t 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE " 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 X 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF ALT
0x37b718…37b8ac Dummy {f00=0x0118, f01=0x0190, f02=»
[…0x1…]
0x37ba40…37bbd4 (4, 158) Opaque[0x194]
0x37bbd4…37bd68 # DirEnt {nam=»TWOCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2310, f03=0x0000}
0x37bbd4…37bd68 IdxSect {
0x37bbd4…37bd68 f00 = 0x0118 // 0x37bbd4 @0x0
0x37bbd4…37bd68 f01 = 0x0002 // 0x37bbd6 @0x2
0x37bbd4…37bd68 gno = [ // 0x37bbd8 @0x4
0x37bbd4…37bd68 [0x00]: C0x0118.0x2.0
0x37bbd4…37bd68 ]
0x37bbd4…37bd68 }
0x37bd68…37befc Dummy {f00=0x0118, f01=0x018e, f02=» PT; P02; PTID=V0; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=L2; PTCL=P1; PLEV=60; P01; PTDC=
0x37befc…37c090 Dummy {f00=0x0118, f01=0x0034, f02=» PNSA=03; P40; PC1; PC8; , * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=L2; PTCL=P1; PLEV=60; P01; PTDC=
0x37c090…37c224 Dummy {f00=0x0118, f01=0x2008, f02=» 03; P40; PC1; PC8; , * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=L2; PTCL=P1; PLEV=60; P01; PTDC=
0x37c224…37c3b8 Dummy {f00=0x0118, f01=0x40e2, f02=» L H IDENT T:DP20 TRA 11.0 82-04-22 F1 O1111 REL 11.0 81-10-18 87015054110 T:DP20 T T:DP20D f PRTGO z * & P2 @ * * @ * &
0x37c3b8…37c54c Dummy {f00=0x0118, f01=0x40dc, f02=» L H IDENT T:ATAB TRA 11.0 82-04-22 F1 O1111 REL 11.0 81-10-18 87015054110 T:ATAB T T:ATABA f & " T:AK10 T:AK20 T:AP10 T:AP20 z U :A @ * &
0x37c54c…37c6e0 Dummy {f00=0x0118, f01=0x40a2, f02=» L H IDENT U:BTAB TRA 11.0 82-04-22 F1 O1111 REL 11.0 81-10-18 87015054110 U:BTAB T U:BTABB f z :B @ U :A @ * &
0x37c6e0…37c874 (4, 159) Opaque[0x194]
0x37c874…37ca08 # DirEnt {nam=»MAXCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2318, f03=0x0000}
0x37c874…37ca08 IdxSect {
0x37c874…37ca08 f00 = 0x0118 // 0x37c874 @0x0
0x37c874…37ca08 f01 = 0x0002 // 0x37c876 @0x2
0x37c874…37ca08 gno = [ // 0x37c878 @0x4
0x37c874…37ca08 [0x00]: C0x0118.0x3.0
0x37c874…37ca08 ]
0x37c874…37ca08 }
0x37ca08…37cb9c Dummy {f00=0x0118, f01=0x018e, f02=» PT; P05; PTID=V0; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P05; PTID=T8; PTCL=P1; PLEV=60; P01; PTDC=
0x37cb9c…37cd30 Dummy {f00=0x0118, f01=0x00ac, f02=» PNSA=13; P40; PC1; PC2; , PC3; 8 PC4; D P00; P P00; P00; h PC8; t PC9; P4A; P4B; P4C; PT; P05; PTID=T8; PTCL=P1; PLEV=60; P01; PTDC=
0x37cd30…37cec4 Dummy {f00=0x0118, f01=0x2008, f02=» 13; P40; PC1; PC2; , PC3; 8 PC4; D P00; P P00; P00; h PC8; t PC9; P4A; P4B; P4C; PT; P05; PTID=T8; PTCL=P1; PLEV=60; P01; PTDC=
0x37cec4…37d058 Dummy {f00=0x0118, f01=0x2008, f02=» MBINATION OF ALTERNATIVE 1,2,3 AND 4 IS VALID, 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN > 8 HMES ALTERNATIVES 5,6 AND 7 MAY BE INCLUDED IF NEEDED r HEND FILE 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE 2 HMES 5 FC FI
0x37d058…37d1ec Dummy {f00=0x0118, f01=0x0190, f02=»
[…0x1…]
0x37d380…37d514 (4, 160) Opaque[0x194]
0x37d514…37d6a8 # DirEnt {nam=»TSTCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2320, f03=0x0000}
0x37d514…37d6a8 IdxSect {
0x37d514…37d6a8 f00 = 0x0119 // 0x37d514 @0x0
0x37d514…37d6a8 f01 = 0x0002 // 0x37d516 @0x2
0x37d514…37d6a8 gno = [ // 0x37d518 @0x4
0x37d514…37d6a8 [0x00]: C0x0119.0x0.0
0x37d514…37d6a8 ]
0x37d514…37d6a8 }
0x37d6a8…37d83c Dummy {f00=0x0119, f01=0x018e, f02=» PT; P11; PTID=V0; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P05; PTID=T8; PTCL=P1; PLEV=60; P01; PTDC=
0x37d83c…37d9d0 Dummy {f00=0x0119, f01=0x00ac, f02=» PNSA=13; P40; PC1; PC2; , PC3; 8 PC4; D P00; P P00; P00; h PC8; t PC9; P4A; P4B; P4C; PT; P05; PTID=T8; PTCL=P1; PLEV=60; P01; PTDC=
0x37d9d0…37db64 Dummy {f00=0x0119, f01=0x2008, f02=» 13; P40; PC1; PC2; , PC3; 8 PC4; D P00; P P00; P00; h PC8; t PC9; P4A; P4B; P4C; PT; P05; PTID=T8; PTCL=P1; PLEV=60; P01; PTDC=
0x37db64…37dcf8 Dummy {f00=0x0119, f01=0x2008, f02=» ED f HEND FILE x 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE & 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF
0x37dcf8…37de8c Dummy {f00=0x0119, f01=0x0190, f02=» J F IDENT SYSINI REL 11.0 81-01-26 870105041100 F B SYSINIK INILEN INIEND dREL MOVEY ERROR CMPADRL NXTBLK NXTCOM R H D ! CONVRT GETNUM MULTY XMOVE MOVING MOVMMT MMRST GETTAB GETTTB H D ! MMENT PUSHYdPOB GETAPP8 SETTA
0x37de8c…37e020 Dummy {f00=0x0119, f01=0x0190, f02=» W z " tPSW @ . , ( K @ ; Z [ : : 2 [ [ > MMDDIV0 l n i" 2 : MMTAB TABBE MMEND , (
0x37e020…37e1b4 (4, 161) Opaque[0x194]
0x37e1b4…37e348 # DirEnt {nam=»KAFFE «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2328, f03=0x0000}
0x37e1b4…37e348 IdxSect {
0x37e1b4…37e348 f00 = 0x0119 // 0x37e1b4 @0x0
0x37e1b4…37e348 f01 = 0x0002 // 0x37e1b6 @0x2
0x37e1b4…37e348 gno = [ // 0x37e1b8 @0x4
0x37e1b4…37e348 [0x00]: C0x0119.0x1.0
0x37e1b4…37e348 ]
0x37e1b4…37e348 }
0x37e348…37e4dc Dummy {f00=0x0119, f01=0x0052, f02=» ASM PRINT KPF /O SCR $ ASG /E0,DK,APLINK 0 END J
0x37e4dc…37e670 Dummy {f00=0x0119, f01=0x2008, f02=» PRINT KPF /O SCR $ ASG /E0,DK,APLINK 0 END J
0x37e670…37e804 Dummy {f00=0x0119, f01=0x0190, f02=» 6Z [ [ 7 Z Z ; : V ) " TV *V &V : V S W P 9 S W _ V P W T V E + : & [ [ [ [ $ [ [ >h [ [ A ; A ;
0x37e804…37e998 Dummy {f00=0x0119, f01=0x0190, f02=» { 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 E + : V & [ [ [
0x37e998…37eb2c Dummy {f00=0x0119, f01=0x0190, f02=»1 ! { [ Z A ;& Q A ?V P _ T { [ A A~ [ Q@ [ A 9f { R [ _ A 9` A ?V Z ! Z $ Z %_N [ Q* A 9` A ;& R [ Z { A 9` z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H
0x37eb2c…37ecc0 Dummy {f00=0x0119, f01=0x0190, f02=»6Z6p9&F 9 6f7 F C DhC C F F`F F D6CJD@C D F F DTD F C CD Bd 6 C K K K K V K : 7 B& B Bd 6j V C C C V Z P 2 " T W "@T '?W "? HA " K :e J J " J _Z Z C [
0x37ecc0…37ee54 (4, 162) Opaque[0x194]
0x37ee54…37efe8 # DirEnt {nam=»CONFIG«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2330, f03=0x0000}
0x37ee54…37efe8 IdxSect {
0x37ee54…37efe8 f00 = 0x0119 // 0x37ee54 @0x0
0x37ee54…37efe8 f01 = 0x0002 // 0x37ee56 @0x2
0x37ee54…37efe8 gno = [ // 0x37ee58 @0x4
0x37ee54…37efe8 [0x00]: C0x0119.0x2.0
0x37ee54…37efe8 ]
0x37ee54…37efe8 }
0x37efe8…37f17c Dummy {f00=0x0119, f01=0x018e, f02=» PT; P02; PTID=V1; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=T3; PTCL=P1; PLEV=60; P01; PTDC=
0x37f17c…37f310 Dummy {f00=0x0119, f01=0x0034, f02=» PNSA=03; P40; PC1; PC8; , * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=T3; PTCL=P1; PLEV=60; P01; PTDC=
0x37f310…37f4a4 Dummy {f00=0x0119, f01=0x2008, f02=» 03; P40; PC1; PC8; , * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=T3; PTCL=P1; PLEV=60; P01; PTDC=
0x37f4a4…37f638 Dummy {f00=0x0119, f01=0x2008, f02=» b HEND FILE t 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE " 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 X 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF ALT
0x37f638…37f7cc Dummy {f00=0x0119, f01=0x0190, f02=»
[…0x1…]
0x37f960…37faf4 (4, 163) Opaque[0x194]
0x37faf4…37fc88 # DirEnt {nam=»ONECON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2338, f03=0x0000}
0x37faf4…37fc88 IdxSect {
0x37faf4…37fc88 f00 = 0x0119 // 0x37faf4 @0x0
0x37faf4…37fc88 f01 = 0x0002 // 0x37faf6 @0x2
0x37faf4…37fc88 gno = [ // 0x37faf8 @0x4
0x37faf4…37fc88 [0x00]: C0x0119.0x3.0
0x37faf4…37fc88 ]
0x37faf4…37fc88 }
0x37fc88…37fe1c Dummy {f00=0x0119, f01=0x018e, f02=» PT; P01; PTID=V0; PTCL=K1; * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=L2; PTCL=P1; PLEV=60; P01; PTDC=
0x37fe1c…37ffb0 Dummy {f00=0x0119, f01=0x0034, f02=» PNSA=03; P40; PC1; PC8; , * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=L2; PTCL=P1; PLEV=60; P01; PTDC=
0x37ffb0…380144 Dummy {f00=0x0119, f01=0x2008, f02=» 03; P40; PC1; PC8; , * PLEV=60; : P02; J PTDC=T01; V PLC=001P; f PTDC=T02; v PLC=001P; P01; PSDC=S01; PT; P01; PTID=L2; PTCL=P1; PLEV=60; P01; PTDC=
0x380144…3802d8 Dummy {f00=0x0119, f01=0x018e, f02=» L H IDENT T:AK20 TRA 11.0 82-04-22 F1 O1111 REL 11.0 81-10-18 87015054110 T:AK20 T T:AK20A f . * T:DK20 D:CB10 C:CB10 D:TB10 Z:TB10 z * & * & * &
0x3802d8…38046c Dummy {f00=0x0119, f01=0x4098, f02=» * & @ B P Q * & @ a b ! K2 2 U ` @ B10 Z:TB10 z * & * & * &
0x38046c…380600 Dummy {f00=0x0119, f01=0x40e2, f02=» L H IDENT T:DK20 TRA 11.0 82-04-22 F1 O1111 REL 11.0 81-10-18 87015054110 T:DK20 T T:DK20D f KBVGO z * & K2 @ * * @ * &
0x380600…3812a0 (5, 0) DirGranule ((5, 0)) {
0x380600…3812a0 DirEnt {nam=»SYSLDM«, typ=» «, f00=0x0000, f01=0x0000, f02=0x2340, f03=0x0000}
0x380600…3812a0 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x2348, f03=0x0008}
0x380600…3812a0 }
0x3812a0…381434 (5, 1) Opaque[0x194]
0x381434…3815c8 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x2348, f03=0x0008}
0x381434…3815c8 IdxSect {
0x381434…3815c8 f00 = 0x011a // 0x381434 @0x0
0x381434…3815c8 f01 = 0x006c // 0x381436 @0x2
0x381434…3815c8 gno = [ // 0x381438 @0x4
0x381434…3815c8 [0x00]: C0x011a.0x1.0
0x381434…3815c8 [0x01]: C0x011a.0x2.0
0x381434…3815c8 [0x02]: C0x011a.0x3.0
0x381434…3815c8 [0x03]: C0x011b.0x0.0
0x381434…3815c8 [0x04]: C0x011b.0x1.0
0x381434…3815c8 [0x05]: C0x011b.0x2.0
0x381434…3815c8 [0x06]: C0x011b.0x3.0
0x381434…3815c8 [0x07]: C0x011c.0x0.0
0x381434…3815c8 [0x08]: C0x011c.0x1.0
0x381434…3815c8 [0x09]: C0x011c.0x2.0
0x381434…3815c8 [0x0a]: C0x011c.0x3.0
0x381434…3815c8 [0x0b]: C0x011d.0x0.0
0x381434…3815c8 [0x0c]: C0x011d.0x1.0
0x381434…3815c8 [0x0d]: C0x011d.0x2.0
0x381434…3815c8 [0x0e]: C0x011d.0x3.0
0x381434…3815c8 [0x0f]: C0x011e.0x0.0
0x381434…3815c8 [0x10]: C0x011e.0x1.0
0x381434…3815c8 [0x11]: C0x011e.0x2.0
0x381434…3815c8 [0x12]: C0x011e.0x3.0
0x381434…3815c8 [0x13]: C0x011f.0x0.0
0x381434…3815c8 [0x14]: C0x011f.0x1.0
0x381434…3815c8 [0x15]: C0x011f.0x2.0
0x381434…3815c8 [0x16]: C0x011f.0x3.0
0x381434…3815c8 [0x17]: C0x0120.0x0.0
0x381434…3815c8 [0x18]: C0x0120.0x1.0
0x381434…3815c8 [0x19]: C0x0120.0x2.0
0x381434…3815c8 [0x1a]: C0x0120.0x3.0
0x381434…3815c8 [0x1b]: C0x0121.0x0.0
0x381434…3815c8 [0x1c]: C0x0121.0x1.0
0x381434…3815c8 [0x1d]: C0x0121.0x2.0
0x381434…3815c8 [0x1e]: C0x0121.0x3.0
0x381434…3815c8 [0x1f]: C0x0122.0x0.0
0x381434…3815c8 [0x20]: C0x0122.0x1.0
0x381434…3815c8 [0x21]: C0x0122.0x2.0
0x381434…3815c8 [0x22]: C0x0122.0x3.0
0x381434…3815c8 [0x23]: C0x0123.0x0.0
0x381434…3815c8 [0x24]: C0x0123.0x1.0
0x381434…3815c8 [0x25]: C0x0123.0x2.0
0x381434…3815c8 [0x26]: C0x0123.0x3.0
0x381434…3815c8 [0x27]: C0x0124.0x0.0
0x381434…3815c8 [0x28]: C0x0124.0x1.0
0x381434…3815c8 [0x29]: C0x0124.0x2.0
0x381434…3815c8 [0x2a]: C0x0124.0x3.0
0x381434…3815c8 [0x2b]: C0x0125.0x0.0
0x381434…3815c8 [0x2c]: C0x0125.0x1.0
0x381434…3815c8 [0x2d]: C0x0125.0x2.0
0x381434…3815c8 [0x2e]: C0x0125.0x3.0
0x381434…3815c8 [0x2f]: C0x0126.0x0.0
0x381434…3815c8 [0x30]: C0x0126.0x1.0
0x381434…3815c8 [0x31]: C0x0126.0x2.0
0x381434…3815c8 [0x32]: C0x0126.0x3.0
0x381434…3815c8 [0x33]: C0x0127.0x0.0
0x381434…3815c8 [0x34]: C0x0127.0x1.0
0x381434…3815c8 [0x35]: C0x0127.0x2.0
0x381434…3815c8 ]
0x381434…3815c8 }
0x3815c8…38175c Dummy {f00=0x011a, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 11.0 81-02-16 870105041100 P : 2 P =6,INIT UNUSED MMU ENTRIES,AND INIT ACBSTA B ( P AND ACBREL FOR MONITOR EXTENTS x P REL 11.0 81-01-26 . P =5,CHANGES IN CONDITIONAL ASSEMBLY WHEN ( P BUILDING COM
0x38175c…3818f0 Dummy {f00=0x011a, f01=0x0190, f02=»L DEVICES v P PRR 11.0 80-12-03 0 P =3,APPLICATION CONTROL BLOCK IS EXTENDED 2 P WITH 1 WORD f P PRR 11.0 80-12-01 , P =2,IF NO S-BLOCK IN CONF.DATA,PROCESS , P EVEN NEXT CREDIT APPL. CONVERT A $ P BINARY
0x3818f0…381a84 Dummy {f00=0x011a, f01=0x0190, f02=»K IF MEMORY OVERFLOW WHEN BUILDING P USER TASK TABLES * P PRR 11.0 80-11-20 H 8 P =1,IF NO D-BLOCK IN CONF. DATA, SKIP DCT-CREATION h P PRR 11.0 80-11-19 P ENTRY SYSLDM P* 0 P* EXTERNALS DEFINED IN SYSTEM CONTR
0x381a84…381c18 Dummy {f00=0x011a, f01=0x0190, f02=»R ADDRESS z . P EXTRN SCTCDT COMMON DEVICE TABLE ADDRESS $ P EXTRN SCTDCT DATA COMMUNICATION D . P EXTRN SCTDMI DM: INDEX BUFFER RECORD SIZE l ( P EXTRN SCTDMT DATA MANAGEMENT TASKS " P EXTRN SCTEFA END OF FREE AREA , P EXTRN SCTFWL FM: FILE W
0x381c18…381dac Dummy {f00=0x011a, f01=0x0190, f02=» SCTMXS MONITOR EXTENT&SEGMENT TABLE . P EXTRN SCTNFT DM/FM: NUMBER OF FILES/TASK , ( P EXTRN SCTNOF DM/FM: NUMBER OF FILES ^ " P EXTRN SCTNOP NUMBER OF PAGES 6 P EXTRN SCTNOS NUMBER OF SEGMENTS/TASK (BASIC ONLY) P EXTRN SCTOPT SYSTEM OPTIONS
0x381dac…381f40 Dummy {f00=0x011a, f01=0x0190, f02=»START OF FREE AREA $ P EXTRN SCTTCT TASK CONTROL TABLE P EJECT B P* P " P* EXTERNALS DEFINED IN MONTAB Z P* * P EXTRN FREQUE FREE PAGES QUEUE ANCHOR " P EXTRN INTLT1 LOCAL CONNECTION $ P EXTRN INTRT1 REMOTE CONNECTION " P E
0x381f40…3820d4 (5, 2) Dummy {f00=0x011a, f01=0x0190, f02=»SYNCHRONOUS CONNECTION P* P* MISCELLANOEUS EXTERNALS ( P* J ( P EXTRN REL RELOCATION BASE IN SYSINI T , P EXTRN SCLASS SPECIAL DEVICE CLASS TABLE . P EXTRN TCLASS TERMINAL DEVICE CLASS TABLE " P EXTRN SYSLOD START OF SYSLOD ( P
0x3820d4…382268 Dummy {f00=0x011a, f01=0x0190, f02=» P EXTRN ERROR ERROR HANDLING $ P EXTRN MOVE MOVE AREAS IN MEMORY ( P EXTRN MULT MULTIPLY P ( P EXTRN PSW STORE PROGRAM STATUS WORD l $ P EXTRN CMPADR COMPARE ADDRESSES . P EXTRN CONVRT CONVERT FROM ASCII TO BINARY * P EXTRN NXTBLK GET NEXT
0x382268…3823fc Dummy {f00=0x011a, f01=0x0190, f02=»OCATION BIT MAP v . P EXTRN PUSH SAVE REGISTER A1-A14 ON STACK 2 P EXTRN POB RESTORE REGISTER A1-A14 FROM STACK J 8 P EXTRN GETAPP GET NEXT APPLICATION OF SPECIFIED TYPE P EJECT P* P* TTAB DISPLACEMENTS P* ( P EXTRN TTB:A
0x3823fc…382590 Dummy {f00=0x011a, f01=0x0190, f02=»GMENT BASE POINTER x ( P EXTRN TTB:SP SEGMENT TABLE POINTER ( P EXTRN TTB:SB SEGMENT BLOCK POINTER F P EXTRN TTB:ID TASK ID r P EXTRN TTB:ST STATUS " P EXTRN TTB:PP PENDING POINTER & P EXTRN TTB:PW PROGRAM STATUS WORD " P EXTRN TTB:S
0x382590…382724 Dummy {f00=0x011a, f01=0x0190, f02=»RAMETER-1 x P EXTRN DWTST STATUS P EXTRN DWTECB ECB ADDRESS . P EXTRN DWTOR ORDER P P EXTRN DWTADR ADDRESS BLOCK j P EXTRN DWTTAB TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR P EXTRN DWTTQ TERMINAL QUEUE " P EXTRN
0x382724…3828b8 Dummy {f00=0x011a, f01=0x018e, f02=» STATUS | P EXTRN DWTECH ECHO DEVICE P EXTRN DWTSQ START OF QUEUE 2 P EJECT V P d P l , P*************************************** t , P* CONDITIONAL ASSEMBLY * , P*************************************** P
0x3828b8…382a4c Dummy {f00=0x011a, f01=0x018e, f02=» ` * PEDM EQU 0 1 - EXTENDED DATA MANAGEMENT PX:A EQU 1 6 PX:B EQU 1 H PX:C EQU 1 Z PX:D EQU 1 l PX:E EQU 1 ~ PX:F EQU 1 PX:G EQU 1 PX:H EQU 1 PX:I EQU 1 PX:J EQU 1 PX:K EQU 0 PX:L EQU 1
0x382a4c…382be0 Dummy {f00=0x011a, f01=0x0190, f02=» PPLCL EQU X:F PPLCR EQU X:G PVIDEO EQU X:H , PTEDVCL EQU X:I B PSPDVCL EQU X:J X PNOEXMB EQU X:K n PFM EQU X:L PDC EQU X:M P EJECT P* * P* COMMON DISPLACEMENTS AND CONSTANTS P* . PACBLEN EQU 26 AP
0x382be0…382d74 (5, 3) Dummy {f00=0x011a, f01=0x0190, f02=» 14 TEMPORARY BUFFER SIZE . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA " , PCONSTA EQU 2 START OF CONFIGURATION DATA T ( PDATEND EQU 34 END OF DDIV PROTOTYPE : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER * PFSTPAG EQU 22 1ST FREE PAG
0x382d74…382f08 Dummy {f00=0x011a, f01=0x018e, f02=» 30 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA " ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA P $ PM:REL EQU 16 RELOCATION CONSTANT | , PSYSBUF EQU 28 START OF TEMPORARY BUFFER 2 PSWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) 0
0x382f08…38309c Dummy {f00=0x011a, f01=0x0190, f02=» $ PCOM02 EQU 42 COMMON SAVE AREA 2 $ PCOM03 EQU 44 COMMON SAVE AREA 3 , * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS T , PSWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG $ PCOM04 EQU 50 COMMON SAVE AREA 4 ( PDCBLK EQU 54 START OF DC CONF. DATA P E
0x38309c…383230 Dummy {f00=0x011a, f01=0x0190, f02=»LASS x & PCUTENT EQU 4 FIRST USER TASK ENTRY ( PFWTSIZ EQU 6 FWT AREA SIZE IN WORDS 6 , PAPCTAB EQU 8 CURRENT APPL CONTROL BLOCK b * PSFASAV EQU 10 SAVE START OF FREE AREA * PNBRTSK EQU 12 NUMBER OF TASKS IN CLASS & PTASKID EQU 14 TASK IDENTIF
0x383230…3833c4 Dummy {f00=0x011a, f01=0x0190, f02=»UPT TABLE v $ PFWTSTA EQU 24 START OF FWT AREA , PLIMIT EQU 26 CURRENT END OF SYSTEM AREA : ( PNBRCOM EQU 28 NUMBER OF COMMON TDC:S j PCLASID EQU 30 CLASS ID " PCONTYP EQU 32 CONNECTION TYPE ( PLCNBR EQU 34 LINE CONNECTION NUMBER PCL
0x3833c4…383558 Dummy {f00=0x011a, f01=0x0190, f02=»A 2 | PWRK3 EQU 46 WORK AREA 3 PWRK4 EQU 48 WORK AREA 4 , " PBRDTAB EQU 50 BOARD CONF TABLE L , PLCDSTA EQU 52 CONFIGURATION DATA POINTER r 2 PNBRSDC EQU 54 NUMBER OF SPECIAL DEVICE CLASSES 4 PNBRTDC EQU 56 NUMBER OF TERMINAL DEVICE CLASSES
0x383558…3836ec Dummy {f00=0x011a, f01=0x0190, f02=»QU 64 NUMBER OF DTE:S DEFINED & PDTENAM EQU 66 SDTE IDENTIFICATION & $ PDTETYP EQU 68 TYPE OF CONNECTION P 4 PNASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA x * PNALNG EQU 72 LENGTH OF NETWORK ADDRESS , PDTENSA EQU 74 NO OF SUBADDRESSES DEFINED
0x3836ec…383880 Dummy {f00=0x011a, f01=0x0190, f02=»APPLICATION CONTROL BLOCK v 4 PSCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK " 2 PEXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK Z , PNBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS . PSWBBLK EQU FWTFLG START OF SWB CONF. DATA * PSWBNAM EQU FWTSTA ADDR
0x383880…383a14 (5, 4) Dummy {f00=0x011b, f01=0x0190, f02=»SWB:S t P EJECT P* 0 P* DISPLACEMENT IN APPLICATION CONTROL TABLE & P* Z 0 PAPLREL EQU 18 APPLICATION RELOCATION BASE =6 d , PAPLIOE EQU 0 APPLICATION RESTART ADDRESS * PAPLLAC EQU 14 APPLICATION LOAD ADDRESS & PAPLLAP EQU 12 LOGI
0x383a14…383ba8 Dummy {f00=0x011b, f01=0x0190, f02=» START MMU ENTRY | . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU J " PAPLSWB EQU 2 SWB TABLE ADDRESS | , PAPLSTA EQU 16 APPL PROGRAM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE 8 PAPLADA EQU 22 AP
0x383ba8…383d3c Dummy {f00=0x011b, f01=0x0190, f02=»STANTS P* * PS:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS PSWBLEN EQU 4 LENGTH OF SWB F ( PSWBSEC EQU 6 DISPL. TO SECTOR LENGTH h 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB PUPNAME EQU 4 PROTOTYPE NAME $ PWBLEN EQU -4 LENGTH OF WORKB
0x383d3c…383ed0 Dummy {f00=0x011b, f01=0x0190, f02=»*************** P P* TASK DEFINITION BLOCK: $ PTDBBT EQU 0 1A BLOCK TYPE D ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS f , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A T
0x383ed0…384064 Dummy {f00=0x011b, f01=0x0190, f02=»EQU 7 TERMINAL DEVICE CLASS PTLC EQU 7 LINE CONNECTION $ ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH F P* r * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD | P* P* COMMON DEVICE DEF. BLOCK: P* PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBN
0x384064…3841f8 Dummy {f00=0x011b, f01=0x0190, f02=»TYPE DEF. BLOCK ~ P* PUDBBT EQU 0 1A BLOCK TYPE " , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES D P* t ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD ~ PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL
0x3841f8…38438c Dummy {f00=0x011b, f01=0x0190, f02=»FS EQU 7 START OF TYPE RECORD , PNANSA EQU 2 NA-NSA RECORD QUALIFIER POS. & " PNAOFS EQU 3 START OF NA NUMBER V $ PNSAOFS EQU 4 START OF NSA RECORD | & PDTEFIX EQU 8 FIX PART OF DTE BLOCK P EJECT P**************** P* SOP-HANDLING *
0x38438c…384520 Dummy {f00=0x011b, f01=0x0190, f02=»ED | " PLMP3 EQU /100 MEMORY OVERFLOW , PLMP4 EQU /80 ERROR IN CONFIGURATION DATA 0 PLMP5 EQU /40 NOT USED ` PLMP6 EQU /20 NOT USED ~ PLMP7 EQU /10 NOT USED PLMP8 EQU 8 NOT USED PLMP9 EQU 4 NOT USED PLMP10 EQU 2 NOT USED
0x384520…3846b4 (5, 5) Dummy {f00=0x011b, f01=0x018e, f02=»PERFORMS: CFR A14,A13 * F P* DATA [REL-ADDRESS] * : F P* * F P**********************************************************
0x3846b4…384848 Dummy {f00=0x011b, f01=0x0190, f02=» P* $ PMXSBL EQU 6 SEGMENT BLOCK LENGTH " PMXNOX EQU 6 NUMBER OF EXTENTS 6 * PMX:NOS EQU 8 NUMBER OF SEGMENT TABLES , PMX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH ( PMX:LEV EQU /0031 MONITOR TASK LEVEL & PMX:LEN EQU 4 MONITOR EXTENT LENGTH
0x384848…3849dc Dummy {f00=0x011b, f01=0x0190, f02=»2+2 NUMBER OF MONITOR EXTENTS , PMX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH & . PMX:STA EQU 2 MONITOR EXTENT START ADDRESS V P EJECT P* " P* *********** " P* * PAGTAB * " P* *********
0x3849dc…384b70 Dummy {f00=0x011b, f01=0x0190, f02=»PAGSB EQU 6 SEGMENT BLOCK ADDRESS P EJECT ! * P* ! 8 & P* ************* ! B & P* * SEGTAB * ! l & P* ************* ! P* ! PSEGPB EQU 6 SEGMENT POINTER ! " PSEGSB EQU 6 PAGE BLOCK ADD
0x384b70…384d04 Dummy {f00=0x011b, f01=0x0190, f02=»* ******************* ! P* " . PBUFLEN EQU -4 " 8 PDEVIND EQU -2 " N PDWTLEN EQU 6 " d PTDCDD1 EQU 5 " x PTDCDD2 EQU 6 " ( PTDCLCN EQU 10 DISP. TO LINE CON. NBR " $ PSLL0 EQU /3940 SLL A1,0 CONSTANT " 8 PNBRDPS EQU 12 NUMBER
0x384d04…384e98 Dummy {f00=0x011b, f01=0x0190, f02=» * " | : P* * # * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * # h : P* * # : P* IT IS ENTERED FROM SYSLOD WITH T
0x384e98…38502c Dummy {f00=0x011b, f01=0x0190, f02=» * # ` : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDX * $ : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * $ L : P* * $ : P* * $ : P**
0x38502c…3851c0 Dummy {f00=0x011b, f01=0x0190, f02=»ATION ROUTINE ENTRY $ | ( P AD A1,STKCOM+M:REL RELOCATE ADDRESS % P CFR A8,A1 % H $ P LDKL A11,SYSLOD START OF SYSLOD % Z * P LDKL A2,TCLASS GET ADDRESS TO TCLASS % . P CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? % $ P RF(E) NO:TCL YES:DUMMY TCLASS! % ,
0x3851c0…385354 (5, 6) Dummy {f00=0x011b, f01=0x0190, f02=»ADDRESS TO SCLASS % v , P CALL CHPTRS RELOCATE POINTERS IN SCLASS & 0 P ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS & J P RF CLEAR & ~ P EJECT & 4 /*********************************************** & 4 /* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * &
0x385354…3854e8 Dummy {f00=0x011b, f01=0x0190, f02=»SYSLOD START ADDRESS & ( #* A12 - RELOCATION CONSTANT ' * ' H 2 .* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS ' R * ' * WORK REGISTER:A1-A7 ' * ' * SUBROUTINES: ' * ' PCHPTRS EQU * ' P ADR A2,A12 RELOCATE POI
0x3854e8…38567c Dummy {f00=0x011b, f01=0x0190, f02=»UK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? ' RF(Z) CHPT30 NO! ( 0 ADK A3,2 NEXT ENTRY ( J $ ! LDR* A5,A3 GET POINTER TO CLASS ( f ADR A5,A12 RELOCATE ( STR A5,A3 STORE ( $ LDR* A6,A5 GET LENGTH OF CLASS ( CHPT20 EQU * ( * & SUK A6,4
0x38567c…385810 Dummy {f00=0x011b, f01=0x0190, f02=»A7 GET DWT-ADDRESS ( " P CALL CMPADR COMPARE ADDRESSES ) P RB(G) CHPT20 DWT IN DRIVER! ) @ ADR A7,A12 RELOCATE ) d * % STR A7,A5 STORE RELOCATED DW-ADDRESS ) " P LD A8,SCTOPT GET OPTION WORD ) P ANKL A8,1 MMU IN SYSTEM? ) P RB(Z) CHPT20 NO!
0x385810…3859a4 Dummy {f00=0x011b, f01=0x0190, f02=» ) j P RB(NZ) CHPT20 YES! * P ADR A8,A12 RELOCATE * $ . P ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED * @ , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS * r RB CHPT20 * CHPT30 EQU * * P RTN A14 * P EJECT * PCLEAR EQU * * P* * & P* C
0x3859a4…385b38 Dummy {f00=0x011b, f01=0x018e, f02=»2 * P CMR A1 + P CWR A1,A2 + P RB(NE) CLRSYS + , P LDKL A1,CONMON + B P AD A1,STKCOM+M:REL + Z P ABR A1 + v P EJECT + 6 2************************************************** + 6 2* B:TCT - BUILD TASK CONTROL TABLE * + 6 2
0x385b38…385ccc Dummy {f00=0x011b, f01=0x0190, f02=» P* , P* EXIT: , P* , & P* WORK REGISTERS: A1-A7,A11,A12 , ( * , R * SUBROUTINES: , * , t . )* TASK CONTROL TABLE LAYOUT , ~ . )* _________________________ , . ** I LENGTH
0x385ccc…385e60 Dummy {f00=0x011b, f01=0x0190, f02=»_________________ , x . ** I USER TASKS I - . )* __________________________ - L * - ~ EJECT - PB:TCT EQU * - * P LD A12,SCTSFA GET START OF FREE AREA - * P ST A12,SCTTCT STORE ADDRESS TO TCTAB - ( P A
0x385e60…385ff4 (5, 7) Dummy {f00=0x011b, f01=0x018e, f02=»OR SEGMENT TASKS - P* . ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB . " P RF(Z) BTCT20 NOT PRESENT! . N . P CALL MX:TDB GET FIRST MONITOR EXTENT TDB . p 0 PBTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS . P RF(N) BTCT05 NO MORE! . ( P LDR* A4,A1 GET NUMB
0x385ff4…386188 Dummy {f00=0x011b, f01=0x0190, f02=» P LDR* A2,A1 GET TASK ID / ( P CALL RESTCT RESERVE ENTRY IN TCTAB / $ P RB BTCT04 / P 4 PBTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB / b > PBTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES / P RF(N) BTCT20 NO MORE! / ( P LDR* A4,A1 GE
0x386188…38631c Dummy {f00=0x011b, f01=0x0190, f02=» / z P LDR* A2,A1 GET TASK ID 0 $ P CALL RESTCT RESERVE ENTRY TCTAB 0 ( P RB BTCT08 0 P P XIF 0 b P EJECT 0 n P* 0 | . P* RESERVE ENTRIES IN TCTAB FOR USER TASKS 0 * 0 PBTCT20 EQU * 0 6 P ST A12,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY
0x38631c…3864b0 Dummy {f00=0x011b, f01=0x0190, f02=»PPLICATIONS? 0 z P RF(N) BTCT70 NO! 1 6 P LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA 1 . * P AD A11,STKCOM+CONSTA RELOCATE POINTER 1 h 2 P ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY 1 LCR A2,A11 GET BLOCK TYPE 1 ( # CCK A2,'TT' TASK DEFINITI
0x3864b0…386644 Dummy {f00=0x011b, f01=0x018e, f02=»* 1 0 ,* COMPUTE NUMBER OF TASK IN EACH TASK CLASS 2 * 2 > PBTCT40 EQU * 2 H $ CALL GETTSK GET NUMBER OF TASKS 2 PBTCT50 EQU * 2 . P ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB 2 ( $ SUK A1,1 MOORE TASKS IN THIS CLASS? 2 RB(P) BTCT50 YES
0x386644…3867d8 Dummy {f00=0x011b, f01=0x0190, f02=» , P ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK 3 P RB BTCT30 3 4 * 3 F 4 0* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB 3 P * 3 0 PBTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA 3 " P SU A12,SCTTCT COMPUTE LENGTH 3 P ST* A12,SCTTCT STORE 3
0x3867d8…38696c Dummy {f00=0x011b, f01=0x0190, f02=» * 3 x : P* RESTCT - RESERVE ENTRY IN TCTAB * 4 & : P* =============================== * 4 d : P* * 4 : P* REFERENCED IN: B:TCT
0x38696c…386b00 Dummy {f00=0x011b, f01=0x0190, f02=»* 4 : P* A12 - NEXT FREE ENTRY IN TCTAB * 5 : P* * 5 H : P* EXIT: A12 - NEXT FREE ENTRY IN TCTAB * 5 : P* * 5 : P* WOR
0x386b00…386c94 (5, 8) Dummy {f00=0x011c, f01=0x0190, f02=» * 5 ~ : P* * 6 , : P***************************************************** 6 j PRESTCT EQU * 6 P LDR A3,A12 GET END OF TCTAB 6 PREST10 SUK A3,2 NEXT ENTRY 6 & P CW A3
0x386c94…386e28 Dummy {f00=0x011c, f01=0x0190, f02=» IN TCTAB 6 t PREST20 RTN A14 RETURN 7 , PREST30 CWR* A2,A3 CHECK IF SAME TASK ID 7 0 P RB(NE) REST10 NOT THE SAME 7 ` " P RB REST20 COINCIDENCE: RETURN 7 P XIF 7 P IFF FM=0 7 P EJECT 7 8 P**************************************************
0x386e28…386fbc Dummy {f00=0x011c, f01=0x0190, f02=» ============================= * 7 8 P* * 8 6 8 P*************************************************** 8 r 8 P* * 8 8 P* REFERENCED IN: CONMON
0x386fbc…387150 Dummy {f00=0x011c, f01=0x0190, f02=»K * 8 b 8 P* SCTNOF - NUMBER OF GENERAL FM-FILES * 9 8 P* SCTFWL - FILE WORK TABLE LENGTH IN * 9 J 8 P* BYTES * 9 8 P* * 9 8 P* EXIT:
0x387150…3872e4 Dummy {f00=0x011c, f01=0x0190, f02=» * 9 v 8 P* WORK REGISTERS: A2,A3 * : " 8 P* * : ^ 8 P* SUBROUTINES: ERROR,MULT * : 8 P*
0x3872e4…387478 Dummy {f00=0x011c, f01=0x0190, f02=»E WORK TABLES. * : 8 P* SIZE OF THE AREA RESERVED IS GIVEN BY THE * ; 6 8 P* FORMULA: A=L*(G+N*T) * ; r 8 P* WHERE A=AREA SIZE IN BYTES * ; 8 P* L= FWT LENGTH IN
0x387478…38760c Dummy {f00=0x011c, f01=0x0190, f02=» * ; b 8 P* N=NUMBER OF USER TASKS * < 8 P* * < J 8 P*************************************************** < P EJECT < PB:FWT EQU * < & P LD* A2,SCTTCT GET LENGTH OF TCTAB <
0x38760c…3877a0 Dummy {f00=0x011c, f01=0x0190, f02=»D A3,SCTNFT GET NUMBER OF FM-FILES PER TASK < P CALL MULT MULTIPLY = 4 0 P AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES = P 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
0x3877a0…387934 (5, 9) Dummy {f00=0x011c, f01=0x018e, f02=»EA SIZE IN WORDS = p ( P LD A2,SCTSFA GET START OF FREE AREA > , P ST A2,SCTFWT STORE ADDRESS TO FIRST FWT > D 0 P ST A2,STKEND+FWTSTA SAVE START OF FWT AREA > t 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA > . PFWT50 CW A2,STKEND+LIMIT MEMORY OVERFLOW? >
0x387934…387ac8 Dummy {f00=0x011c, f01=0x0190, f02=» " P ADK A2,2 RESERVE ANOTHER WORD ? $ P SUK A3,1 DECREMENT WORD COUNTER ? * * P RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW ? R , P ST A2,SCTSFA UPDATE START OF FREE AREA ? P SUK A2,2 ? 0 P ST A2,STKEND+INTTAB SAVE ADDRESS TO T.I.T. ? PFWT70 RTN A14 ?
0x387ac8…387c5c Dummy {f00=0x011c, f01=0x0190, f02=»************************ ? * @ ( $* NUMBER OF BLOCKS TO BE GENERATED: @ * ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) @ V $ P* WHERE N IS A SYSTEM CONSTANT @ $ P* DEFINED AT SYSTEM GENERATION @ P* @ * @ P* REFERENCED IN: SYSLOD @ *
0x387c5c…387df0 Dummy {f00=0x011c, f01=0x0190, f02=»TO FIRST BLOCK @ t * A $ * WORK REGISTERS: A1,A2,A7,A12 A * A H * SUBROUTINES: BLKGEN A R * A r EJECT A | PMONBLK EQU * A LDK A1,0 A & ! LD A12,SCTSFA START OF FREE AREA A . P ST A12,FREQUE SAVE POINTER TO FIRST BLOCK A
0x387df0…387f84 Dummy {f00=0x011c, f01=0x0190, f02=»LOCKS PER TASK TO GENERATE A ~ P* B " P LD A2,SCTBLK B , 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA B B PMON:10 EQU * B v SUK A7,2 MOORE TASKS? B RF(Z) MON:20 NO B P CALL BLKGEN B RB MON:10 B PMON:20 EQU * B * B $ P*
0x387f84…388118 Dummy {f00=0x011c, f01=0x0190, f02=»L BLKGEN B * C * GENERATE END BLOCK C * C 8 STR A1,A12 C B ST A1,2,A12 C V ST A1,4,A12 C j P* C ~ F P* CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A C 0 P* IF NOT - USE LAST MONITOR BLOCK AS BUFFER C P*
0x388118…3882ac Dummy {f00=0x011c, f01=0x0190, f02=» C z 0 P ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE D P ADKL A12,2 D < 0 P ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS D P PMON:30 EQU * D P ADKL A12,6 D P D * & ST A12,SCTSFA UPDATE END OF FREE AREA D RTN A14 D EJECT D * %********
0x3882ac…388440 Dummy {f00=0x011c, f01=0x0190, f02=» * REFERENCED IN: MONBLK E * E & * ENTRY: A1=0 E 0 4 0* A2 - NUMBER OF BLOCKS TO BE GENERATED E H $ * A12 - NEXT FREE ENTRY E * E * EXIT: A1=0 E " * A12 - NEXT FREE ENTRY E * E P* WORK REGISTES
0x388440…3885d4 (5, 10) Dummy {f00=0x011c, f01=0x0190, f02=»-------------------- E x 0 ,* I DATA *+6 I F 0 ,* -------------------- F P 0 ,* I DATA 0 I F 0 ,* -------------------- F 0 ,* I
0x3885d4…388768 Dummy {f00=0x011c, f01=0x0190, f02=» PBLK:10 EQU * G RF(Z) BLKEX G $ P LDK A4,3 NUMBER OF WORDS/BLOCK G , 0 PBLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? G T P RF(NE) BLK:30 NOT YET! G * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW G P CALL ERROR G * PBLK:30 ADKL A12,2 RESERVE ANOT
0x388768…3888fc Dummy {f00=0x011c, f01=0x0190, f02=» G SUK A3,1 H RB BLK:10 H PBLKEX EQU * H , RTN A14 H @ P IFF EDM=0 H P P EJECT H b H P******************************************************************* H p H P* * H H P
0x3888fc…388a90 Dummy {f00=0x011c, f01=0x0190, f02=» * H T H P* * I H P* REFERENCED IN: SYSLDM * I H P* * I H P* ENTRY:
0x388a90…388c24 Dummy {f00=0x011c, f01=0x0190, f02=»XIT: * I H P* * J H H P* WORK REGISTERS: A4 * J H P*
0x388c24…388db8 Dummy {f00=0x011c, f01=0x0190, f02=» * J x H P******************************************************************* K 4 PB:MXTT EQU * K ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB K P RF(Z) BMX99 NOT PRESENT K 0 P LDK A4,2 DISPLACEMENT TO FIRST EXTENT T
0x388db8…388f4c Dummy {f00=0x011c, f01=0x0190, f02=» TABLE K f " P RF(NZ) BMX05 ALREADY DEFINED L $ P LD A4,SCTSFA START OF FREE AREA L 4 0 P ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE L 4 P LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE L & P ST* A4,SCTMOX STORE IN FIRST WORD L $ P SUK A4,2 RESET TASK I
0x388f4c…3890e0 Dummy {f00=0x011c, f01=0x0190, f02=»TENTS? L z P RF(N) BMX03 NO M * P ADK A2,2 ADDRESS NUMBER OF TASK ID:S M & ( P LDR* A6,A2 GET NUMBER OF TASK ID:S M T ( P ADR* A4,A2 ADD NUMBER OF TASK ID:S M " PBMX02 SUK A6,1 MORE TASK ID:S? M P RB(N) BMX01 NO M " P ADK A2,2 ADDRESS NEXT TASK ID
0x3890e0…389274 (5, 11) Dummy {f00=0x011c, f01=0x0190, f02=»D OF START-ADDRESS TABLE M , P ST A4,SCTSFA UPDATE START OF FREE AREA N P LDR A11,A4 GET TABLE END N P " P LDR A9,P GET CURRENT LOCATION N r " P CALL CMPADR COMPARE ADDRESSES N P RF(NG) BMXS05 OK N * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW N P C
0x389274…389408 Dummy {f00=0x011c, f01=0x0190, f02=»ENTS N j P RF(N) BMX99 NO MORE O * P LD A12,SCTSFA GET START OF FREE AREA O ( 6 P ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK O V 4 P ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK O , P ST A12,SCTSFA UPDATE START OF FREE AREA O " P ADK A1,2 NUMBER
0x389408…38959c Dummy {f00=0x011c, f01=0x0190, f02=»RE O ~ P ADK A1,2 NEXT TASK ID P P CALL MXTTAB P ( P RB BMX20 P < PBMX99 RTN A14 RETURN P N P EJECT P j H P******************************************************************** P x H P* *
0x38959c…389730 Dummy {f00=0x011c, f01=0x0190, f02=»===== * P H P* * Q H P* ENTRY: A1 -POINTER TO TASK ID IN MXSTAB * Q d H P* A5 - POINTER TO MONITOR EXTENT BLOCK * Q H P* A1
0x389730…3898c4 Dummy {f00=0x011c, f01=0x0190, f02=» H P* EXIT: A1 - POINTER TO TASK ID IN MXSTAB * R H P* A5 - POINTER TO MONITOR EXTENT BLOCK * R P H P* * R H P* WORK REGISTER: A2
0x3898c4…389a58 Dummy {f00=0x011c, f01=0x018e, f02=» IMXTT,STRMOX,INBIMA * R H P* * S < H P******************************************************************** S P EJECT S PMXTTAB EQU * S , P MSR 4,A15 SAVE RE
0x389a58…389bec Dummy {f00=0x011c, f01=0x0190, f02=» S v P CALL STRMOX STORE IN MOXTAB T & P LD A2,MX:STA,A5 GET START ADDRESS T , 4 P LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6 T V , P ST A2,APLSTA,A3 STORE START ADDRESS =6 T P CALL STRMOX STORE IN MOXTAB T " P LDR* A2,A5 GET EXTENT ADDRESS T " P
0x389bec…389d80 Dummy {f00=0x011c, f01=0x0190, f02=» A2,12 T 0 P ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA U : P LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK U B 8 P ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART U . P ST A2,APLREL,A3 STORE RELOCATION BASE =6 U * P LDKL A2,TTB:MT DISPL. TO
0x389d80…389f14 (5, 12) Dummy {f00=0x011d, f01=0x0190, f02=»D A2,SCTOPT GET OPTION WORD U P ANK A2,/20 EMM? V $ P RF(Z) MXTT20 NO V < & P LD A2,MX:LEN,A5 GET EXTENT LENGTH V T P ST A2,MAPLEN,A13 SAVE V ~ & P ST A12,TTAB,A13 SAVE TTAB ADDRESS V P CALL INBIMA INIT BIP MAP V & PMXTT20 MLR 4,A15 RESTORE REGISTE
0x389f14…38a0a8 Dummy {f00=0x011d, f01=0x0190, f02=» * V n 2 P* STRMOX - STORE START ADDRRESS IN MOXTAB * W 2 P* ======================================= * W J 2 P* * W 2 P* REFERENCED IN: MXTTAB * W 2 P*
0x38a0a8…38a23c Dummy {f00=0x011d, f01=0x0190, f02=» EXIT: * W 2 P* * X 4 2 P* WORK REGISTERS: * X j 2 P* * X 2 P* SUBROUTINES: * X
0x38a23c…38a3d0 Dummy {f00=0x011d, f01=0x0190, f02=» A3,SCTMOX GET CURRENT LENGTH X , P AD A3,SCTMOX ADDRESS TO NEXT FREE ENTRY Y & " P STR A2,A3 STORE START ADDRESS Y V P IM* SCTMOX INCREMENT LENGTH Y | P IM* SCTMOX TWICE Y P RTN A14 RETURN Y P EJECT Y 8 P****************************************
0x38a3d0…38a564 Dummy {f00=0x011d, f01=0x0190, f02=» 8 P* ============================================== * Z 8 P* * Z @ 8 P* REFERENCED IN: MXTTAB * Z | 8 P* * Z 8 P* ENTRY: A1 - POIN
0x38a564…38a6f8 Dummy {f00=0x011d, f01=0x0190, f02=» * Z l 8 P* EXIT: * [ 8 P* * [ T 8 P* WORK REGISTERS: A2,A3,A4,A9,A11 * [ 8 P* * [ 8 P
0x38a6f8…38a88c Dummy {f00=0x011d, f01=0x0190, f02=»************************************ [ P EJECT , PIMXTT EQU * : P LDR A2,A12 GET TTAB ENTRY N * P ADKL A2,TTB:MT GET START OF MMU TABLE p . P LDR* A3,A5 GET PHYSICAL ADDRESS TO EXTENT P LDR A4,A3 SAVE ( P ANKL A3,/FC00 PHYSICAL PAGE ADD
0x38a88c…38aa20 Dummy {f00=0x011d, f01=0x0190, f02=»E ( P LD A11,MX:LEN,A5 GET EXTENT LENGTH ] 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? ] 6 P RF(G) IMX10 NO! ] j & P XRR A11,A11 INDICATE SINGLE ENTRY ] P RF IMX20 ] < PIMX10 SUR A11,A9 SUBTRACT REMAINING AREA IN CURRENT PAGE ] & PIMX20 STR
0x38aa20…38abb4 (5, 13) Dummy {f00=0x011d, f01=0x0190, f02=»TRY ENOUGTH? ] ~ P RF(Z) IMX99 YES! ^ P RF(NN) IMX30 <32KB ^ . $ P SUKL A11,/1000 DECREMENT LENGTH ^ J P RB IMX20 ^ r & PIMX30 STR A3,A2 STORE PAGE ADDRESS ^ ( P ADKL A3,/400 INCREMENT PAGE ADDRESS ^ & P ADK A2,2 INCREMENT ENTRY POINTER ^ $ P SUK
0x38abb4…38ad48 Dummy {f00=0x011d, f01=0x0190, f02=» GET END OF MMU-TABLE =6 ^ ~ P LDKL A3,/FC00 =6 _ PIMX100 EQU * =6 _ : , P CWR A4,A2 ENTRIES LEFT IN MMU-TABLE? =6 _ R P RF(E) IMX110 NO! =6 _ 0 P STR A3,A2 STORE PAGE ERROR IN MMU-ENTRY =6 _ P ADK A2,2 NEXT MMU-ENTRY =6 _ P RB IMX100 =6 _
0x38ad48…38aedc Dummy {f00=0x011d, f01=0x0190, f02=» * _ < P* B:MSEG - BUILD MONITOR TASK SEGMENT TABLES & TTABS * ` 6 < P* ================================================== * ` v < P* * ` < P* REFERENCED IN:
0x38aedc…38b070 Dummy {f00=0x011d, f01=0x0190, f02=» * ` v < P* * a & < P* EXIT: * a f < P* * a < P* WORK REGISTERS: A1-A12
0x38b070…38b204 Dummy {f00=0x011d, f01=0x0190, f02=»AD,BMXSTT * a f < P* * b < P******************************************************** b V P EJECT b PB:MSEG EQU * b 2 P CALL MX:MST FIND FIRST MONITOR SEGMENT TABLE b 0 P ST P,STKEND+LIMIT UPDATE
0x38b204…38b398 Dummy {f00=0x011d, f01=0x0190, f02=» 6 P CALL MX:STD FIND FIRST MONITOR SEGMENT TABLE TASK c P DEFINITION BLOCK c > > PBMSG10 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES c Z P RF(N) BMSG99 NO MORE! c < P CM STKEND+SCBTAB CLEAR ADDRESS TO SEGMENT CONTROL BLOCK c 0 P CM STKEND+MAX
0x38b398…38b52c Dummy {f00=0x011d, f01=0x0190, f02=» c h . P LDR* A7,A1 GET NUMBER OF TASKS IN SEGTAB d PBMSG20 ADK A1,2 NEXT TASK ID d : , P SUK A7,1 DECREMENT NUMBER OF TASK ID:S d ^ P RB(N) BMSG10 NO MORE! d . P CALL CHKTAD CHECK IF TASK ALREADY DEFINED d ( P RF(NZ) BMSG30 TASK ALREADY DEFINED! d 4
0x38b52c…38b6c0 Dummy {f00=0x011d, f01=0x018e, f02=» CONTROL BLOCK GENERATED d z * P LD A12,SCTSFA GET START OF FREE AREA e P LDR A10,A12 SAVE e N 6 P ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK e h , P ST A12,SCTSFA UPDATE START OF FREE AREA e D PBMSG25 ST A10,TTB:AP,A12 STORE ADDRESS TO SEGMENT CONT
0x38b6c0…38b854 (5, 14) Dummy {f00=0x011d, f01=0x0190, f02=» e V 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE f * P ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES f > 2 P ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES f l ( P LDKL A2,/F000 END OF LOGICAL MEMORY f , P SUR A2,A3 COMPUTE LOGICAL PAGE ADDRESS f 2 P LD A3,STK
0x38b854…38b9e8 Dummy {f00=0x011d, f01=0x0190, f02=»U ENTRY f v : PBMSG40 ST A2,APLLAP,A10 STORE IN SEGMENT CONTROL TABLE g P SRL A2,12 MMU TABLE ENTRY g N $ P LDK A3,16 NUMBER OF MMU ENTRIES g p . P SUR A3,A2 COMPUTE NUMBER OF PAGE ENTRIES g 4 P ST A3,APLNPE,A10 STORE IN SEGMENT CONTROL TABLE g P SLL A
0x38b9e8…38bb7c Dummy {f00=0x011d, f01=0x018e, f02=»P,A10 STORE IN SEGMENT CONTROL TABLE g 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE h , 0 P ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES h b 2 P ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIPLES h ( P LDR A11,A3 GET CURRENT SEGMENT SIZE h & P LD A9,SCTPSZ GE
0x38bb7c…38bd10 Dummy {f00=0x011d, f01=0x0190, f02=» h h P RB BMSG20 i PBMSG99 RTN A14 RETURN i P EJECT i 8 > P********************************************************** i F > P* * i > P* BMSTAB - BUILD MONITOR SEGMENT TABLE * i
0x38bd10…38bea4 Dummy {f00=0x011d, f01=0x0190, f02=»* REFERENCED IN: B:MSEG * i > P* * j B > P* ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS * j > P* A8 - POINTER TO SEGMENT CLUSTER IN MXSTAB * j > P
0x38bea4…38c038 Dummy {f00=0x011d, f01=0x018e, f02=» * j > P* WORK REGISTERS: A2,A3,A9,A11 * k > > P* * k > P* SUBROUTINES: CMPADR,ERROR * k > P*
0x38c038…38c1cc Dummy {f00=0x011d, f01=0x0190, f02=» k PBMSTAB EQU * l * P STR A1,A15 SAVE REGISTER A1 ON STACK l ( P LD A5,SCTSFA GET START OF FREE AREA l J * P LD A2,SCTIPL GET PROGRAM LOAD DEVICE l v & P STR A2,A5 STORE IN SEGMENT TABLE l * P ADK A5,2 NEXT ENTRY IN SEGMENT TABLE l & P LDR* A9,A4
0x38c1cc…38c360 Dummy {f00=0x011d, f01=0x0190, f02=»MBER OF SEGMENTS l h " P ADK A5,2 SEGMENT TABLE ENTRY m P LDR A3,A5 SAVE m > P* m V P* BUILD SEGMENT BLOCK 0 m ` P* m ( P LDKL A2,/8400 STATUS FOR SEGMENT 0 m ( P STR A2,A3 STORE IN SEGMENT BLOCK 0 m 6 PBMST20 ST A1,STKEND+SGMCNT SAVE NUMBER
0x38c360…38c4f4 (5, 15) Dummy {f00=0x011d, f01=0x0190, f02=» BLOCKS m r " P CALL CMPADR COMPARE ADDRESSES n P RF(NG) BMST25 OK n 6 * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW n P P CALL ERROR n ~ & PBMST25 LDR* A2,A8 GET SEGMENT TYPE n P SRL A2,8 ISOLATE n ( P CCK A2,'RR' CORE RESIDENT SEGMENT? n P RF(E)
0x38c4f4…38c688 Dummy {f00=0x011d, f01=0x018e, f02=»NG & DISC RESIDENT SEGMENT n P* o " ( P LD A1,SCTMXS GET ADDRESS TO MXSTAB o , 0 P LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31 o X 0 P LD A1,MX:DA1,A1 GET DISC ADDRESS BITS 0-15 o $ P LD A10,2,A8 GET RELOCATION BASE o & P ADR A2,A10 RELOCATE DISC ADDRES
0x38c688…38c81c Dummy {f00=0x011d, f01=0x0190, f02=» ( P LDKL A1,LMP10 DISC ADDRESS OVERFLOW p P CALL ERROR p 0 4 PBMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT p D 4 P STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 p | 6 P ST A2,2,A3 STORE SEGMENT DISC ADDRESS BITS 16-31 p P RF BMST50 p P* p .
0x38c81c…38c9b0 Dummy {f00=0x011d, f01=0x0190, f02=»TORE IN SEGMENT BLOCK p ( PBMST50 LD A9,4,A8 GET SEGMENT LENGTH q 4 P LD A11,STKEND+MAXSGM GET MAXIMUM SEGMENT LENGTH q J P CALL CMPADR q . P RF(NL) BMST55 CURRENT SEGMENT NOT GREATER q 6 P ST A9,STKEND+MAXSGM UPDATE MAXIMUM SEGMENT LENGTH q < PBMST55
0x38c9b0…38cb44 Dummy {f00=0x011d, f01=0x0190, f02=»OF SEGMENTS q p P SUK A1,1 r P RB(NZ) BMST20 MORE SEGMENTS r & " P ADK A3,8 END OF SEGMENT TABLE r J 2 PBMST60 ST A3,SCTSFA UPDATE START OF FREE AREA r p $ P LDR* A1,A15 RESTORE REGISTER A1 r P RTN A14 r P EJECT r @ P****************************
0x38cb44…38ccd8 Dummy {f00=0x011d, f01=0x0190, f02=» TASK ALREADY DEFINED * r t @ P* ====================================== * s ( @ P* * s l @ P* REFERENCED IN: B:MSEG * s @ P*
0x38ccd8…38ce6c Dummy {f00=0x011d, f01=0x0190, f02=»MONITOR SEGMENT TASK * s | @ P* * t 0 @ P* EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED * t t @ P* A12 = 0 IF TASK NOT DEFINED * t @ P*
0x38ce6c…38d000 Dummy {f00=0x011d, f01=0x0190, f02=» * t @ P* SUBROUTINES: PSW * u 8 @ P* * u | @ P************************************************************ u P EJE
0x38d000…38d194 (5, 16) Dummy {f00=0x011e, f01=0x018e, f02=»TER IN TCTAB u r " P CW A2,SCTTCT START OF TCTAB? v * P RF(E) CHKT30 YES: ALL TASKS CHECKED! v : $ P LDR* A3,A2 GET POINTER TO TTAB v h P LD A3,TTB:ID,A3 GET TASK ID v ( P CWR* A3,A1 EQUAL TO CURRENT TASKS? v P RB(NE) CHKT20 NO v " P LDR* A12,A2 G
0x38d194…38d328 Dummy {f00=0x011e, f01=0x0190, f02=» v d P RTN A14 w P EJECT w H P******************************************************************* w & H P* * w r H P* BMXSTT - BUILD MONITOR EXTENT & SEGMENT TTABS * w H
0x38d328…38d4bc Dummy {f00=0x011e, f01=0x0190, f02=» * w V H P* REFERENCED IN: MXTTAB,B:MSEG * x H P* * x ^ H P* ENTRY: * x H P*
0x38d4bc…38d650 Dummy {f00=0x011e, f01=0x0190, f02=» * x H P* WORK REGISTERS: A2,A9,A10,A11 * y J H P* * y H P* SUBROUTINES: CMPADR,ERROR
0x38d650…38d7e4 Dummy {f00=0x011e, f01=0x0190, f02=»********************************************* y z PBMXSTT EQU * z 6 * P LD A12,SCTSFA GET START OF FREE AREA z J , P LDKL A10,TTB:TD+2 STANDARD TTAB LENGTH z x " P LD A2,SCTOPT GET OPTION WORD z P ANK A2,/21 EMM? z P XRK A2,/21 z P RF(NZ) BMXS20
0x38d7e4…38d978 Dummy {f00=0x011e, f01=0x0190, f02=»CTOPT GET OPTION WORD z P ANK A2,1 MMU OPTION? { P RF(Z) BMXS30 NO! { < . P SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB { V $ P SUKL A10,TTB:MT INCLUDE LENGTH { P RF BMXS40 { ( PBMXS30 LD A2,SCTOPT GET OPTION WORD { P ANK A2,2 DISC PAGING? {
0x38d978…38db0c Dummy {f00=0x011e, f01=0x0190, f02=»0,SCTSFA COMPUTE START OF FREE AREA { P LDR A9,A10 SAVE | , 0 P LD A11,STKEND+LIMIT GET END OF SYSTEM AREA | D " P CALL CMPADR MEMORY OVERFLOW? | x P RF(NL) BMXS50 NO! | P LDKL A1,LMP3 | ( P CALL ERROR INDICATE MEMORY OVERFLOW | 2 PBMXS50 ST A10,
0x38db0c…38dca0 Dummy {f00=0x011e, f01=0x0190, f02=»,A2 STORE TTAB ADDRESS | ( P IM* SCTTCT INCREMENT CURRENT LENGTH } P IM* SCTTCT TWICE } J P LDR* A2,A1 GET TASK ID } d $ P ST A2,TTB:ID,A12 STORE IN TTAB } * P LDKL A2,MX:LEV GET MONITOR TASK LEVEL } $ P ST A2,TTB:ST,A12 STORE IN TTAB } P SLL A
0x38dca0…38de34 (5, 17) Dummy {f00=0x011e, f01=0x0190, f02=»NTROL BLOCK ADDRESS } n $ P ST A2,TTB:AP,A12 STORE IN TTAB ~ P LDK A2,2 ~ D 0 P ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH ~ V P RTN A14 RETURN ~ P EJECT ~ B P************************************************************** ~ B P* MX:MEB
0x38de34…38dfc8 Dummy {f00=0x011e, f01=0x018e, f02=» * ~ B P* REFERENCED IN: MX:MST * 8 B P* * ~ B P* ENTRY: SCTMXS - ADDRESS TO MONITOR EXTENT TABLE * B
0x38dfc8…38e15c Dummy {f00=0x011e, f01=0x0190, f02=» P B P* A5 - POINTER TO NUMBER OF SEGTABS * B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * N B P* A7 - NUMBER OF MONITOR EXTENTS * B P*
0x38e15c…38e2f0 Dummy {f00=0x011e, f01=0x0190, f02=» * f B P* SUBROUTINES: * B P* * b B P************************************************************** P EJECT PMX:MEB EQU *
0x38e2f0…38e484 Dummy {f00=0x011e, f01=0x0190, f02=»OF SEGTABS t P LDR A6,A2 SAVE & P LDR A1,A7 SAVE ADDRESS TO MXSTAB * * P LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS T , P ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS P LDR A5,A1 SAVE . PMEB10 ADK A1,2 ADDRESS NUMBER OF SEGMENTS P SUK A2,1 MO
0x38e484…38e618 Dummy {f00=0x011e, f01=0x0190, f02=»************** ` B P* * B P* MX:MST - GET FIRST MONITOR SEGMENT TABLE * B P* ======================================== * B P*
0x38e618…38e7ac Dummy {f00=0x011e, f01=0x0190, f02=» * t B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB * * B P* * p B P* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TABLE * B P* A5
0x38e7ac…38e940 Dummy {f00=0x011e, f01=0x0190, f02=» A7 - NUMBER OF MONITOR EXTENTS * B P* * > B P* WORK REGISTERS: A2 * B P* *
0x38e940…38ead4 (5, 18) Dummy {f00=0x011e, f01=0x0190, f02=» * V B P************************************************************** P EJECT R PMX:MST EQU * ` : P CALL MX:MEB GET POINTER TO FIRST MONITOR EXTENT BLOCK t 2 P LDR A2,A7 GET NUMBER OF MONITOR EXTENT BLOCKS < PMST10 SUK A2,1 DECREMENT NUMBER
0x38ead4…38ec68 Dummy {f00=0x011e, f01=0x018e, f02=»MST10 PMST99 RTN A14 RETURN P EJECT * B P************************************************************* 8 B P* * ~ B P* MX:TDB - GET FIRST MONITOR EXTENT TASK DEFINITION BLOCK * B
0x38ec68…38edfc Dummy {f00=0x011e, f01=0x0190, f02=» P B P* REFERENCED IN: MX:STD * B P* * N B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB * B P*
0x38edfc…38ef90 Dummy {f00=0x011e, f01=0x0190, f02=» * f B P* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * b B P* A7 - NUMBER OF MONITOR EXTENTS * B P*
0x38ef90…38f124 Dummy {f00=0x011e, f01=0x0190, f02=» * z B P* SUBROUTINES: MX:MST * 0 B P* * v B P************************************************************* P EJECT
0x38f124…38f2b8 Dummy {f00=0x011e, f01=0x0190, f02=»K A5,2 ADDRESS NUMBER OF SEGMENTS * P SUK A2,1 DECREMENT NUMBER OF SEGTABS * P RF(N) TDB99 NO MORE SEGTABS X & P LDR* A3,A5 GET NUMBER OF SEGMENTS | 0 PTDB20 SUK A3,1 DECREMENT NUMBER OF SEGMENTS " P RB(N) TDB10 NO MORE SEGMENTS 2 P ADK A1,
0x38f2b8…38f44c Dummy {f00=0x011e, f01=0x0190, f02=»******************************** r B P* * ( B P* MS:STD - GET FIRST MONITOR SEGMENT TASK DEFINITION BLOCK * n B P* ======================================================== * B P*
0x38f44c…38f5e0 Dummy {f00=0x011e, f01=0x0190, f02=» * B P* ENTRY: * < B P* * B P* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TASK *
0x38f5e0…38f774 (5, 19) Dummy {f00=0x011e, f01=0x0190, f02=» * T B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MONITOR EXTENTS * P B P* * B P* WORK REGISTERS: A2,A3
0x38f774…38f908 Dummy {f00=0x011e, f01=0x0190, f02=» * h B P* * B P************************************************************** d P EJECT PMX:STD EQU * 2 P CALL MX:TDB GET FIRST MONITOR TASK DEF. BLOCK , P LDR A
0x38f908…38fa9c Dummy {f00=0x011e, f01=0x0190, f02=» LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT " PSTD20 ADK A1,2 ADDRESS TASK ID 2 ( P SUK A3,1 DECREMENT NUMBER OF TASKS X P RB(NN) STD20 MORE TASKS P RB STD10 NEXT EXTENT PSTD99 RTN A14 RETURN P XIF EJECT " ****************
0x38fa9c…38fc30 Dummy {f00=0x011e, f01=0x0190, f02=» * P* ENTRY: * 8 4* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES * * f * WORK REGISERS: A1-A12 p * 8 3* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC * ( #* TASK TABLE LAYOUT
0x38fc30…38fdc4 Dummy {f00=0x011e, f01=0x0190, f02=» WORDS) I t * P* I______________________I * P* TTB:MT I MMU I @ * &* I TABLE I n * &* I 16 I * &* I WORDS I * P* I_
0x38fdc4…38ff58 Dummy {f00=0x011e, f01=0x0190, f02=»I SEGTAB POINTER I * P* I______________________I * P* TTB:SB I SEGM. BLOCK POINTER I N * P* I----------------------I | * P* TTB:AP I ACB POINTER I * &* ------------------------ * &*
0x38ff58…3900ec Dummy {f00=0x011e, f01=0x0190, f02=»* ------------------------ * &* TTB:ST I STATUS/LEVEL I . * &* ------------------------ * &* TTB:PP I PENDING QUEUE I * &* ------------------------ * &* TTB:PW I PROGRAM STATUS WOR
0x3900ec…390280 Dummy {f00=0x011e, f01=0x0190, f02=»------ p * &* I REGISTER I * &* I SAVE I < * &* I AREA I j * &* I 14 I * &* I WORDS I * &* ------
0x390280…390414 (5, 20) Dummy {f00=0x011f, f01=0x0190, f02=» TABLE I ~ * &* : : * &* : : J * &* I______________________I x 2 P* TASK SAVE01URATION TABLE LAYOUT 0 ,* ______________________________
0x390414…3905a8 Dummy {f00=0x011f, f01=0x0190, f02=»DEX/FILCODE I x 0 ,* ------------------------------ 0 ,* I DWT-ADDRESS I P 0 ,* ------------------------------ 0 ,* : : 0 ,* :
0x3905a8…39073c Dummy {f00=0x011f, f01=0x0190, f02=» ------------------------------ 0 ,* I DWT-ADDRESS I , 0 ,* ------------------------------ ` EJECT PB:TT EQU * & P CALL FSTAPL GET FIRST APPLICATION * P LD A12,SCTSFA GET START OF FREE AREA
0x39073c…3908d0 Dummy {f00=0x011f, f01=0x0190, f02=» ST A11,STKEND+LCDSTA SAVE CONFIGURATION DATA POINTER * P ST P,STKEND+WRK2 SAVE PROGRAM COUNTER > * l ( $* GET NUMBER OF TASKS IN THIS CLASS v * CALL GETTSK . P ST A1,STKEND+NBRTSK SAVE NUMBER OF TASKS * * GET TASK
0x3908d0…390a64 Dummy {f00=0x011f, f01=0x0190, f02=»ECOND ID DIGIT x 2 P ST A5,STKEND+TASKID SAVE TASK ID START VALUE P* L " P* CHECK IF CREDIT APPLICATION V P* | 6 P LD A5,STKEND+APCSTA GET APPLICATION CONTROL BLOCK * P LD A5,APLTYP,A5 GET APPLICATION TYPE $ P CWK A5,'CR' CREDIT APPLIC
0x390a64…390bf8 Dummy {f00=0x011f, f01=0x018e, f02=»ST CHAR IN TCL v P SLL A5,8 MOVE TO LEFT BYTE . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL : $ P CALL GETTCL GET TCL START VALUE l P ST A5,STKEND+TCLSAV SAVE PBTT21 EQU * P EJECT * * GET TASK LEVEL * 0 P L
0x390bf8…390d8c Dummy {f00=0x011f, f01=0x0190, f02=» " CALL CONVRT CONVERT TO BINARY P ST A1,STKEND+TSKLEV SAVE * P EJECT L * Z B P* COMPUTE SIZE OF CONFIGURATION DEPENDENT PART OF TASK TABLE d * & P LDKL A10,TTB:TD+4 STANDARD LENGTH " P LD A5,SCTOPT GET OPTION WORD 4 P ANK
0x390d8c…390f20 Dummy {f00=0x011f, f01=0x0190, f02=»DE BIT MAP IN LENGTH x . P SUKL A12,TTB:AM RESERV SPACE FOR BIT MAP P RF BTT30 N PBTT22 LD A5,SCTOPT ` P SRC A5,1 MMU PAGING? z P RF(NN) BTT25 NO . P SUKL A10,TTB:MT+2 16+2 WORD EXTRA IF MMU 2 - SUKL A12,TTB:MT RESERV SPACE FOR EXTR
0x390f20…3910b4 (5, 21) Dummy {f00=0x011f, f01=0x0190, f02=»RD EXTRA IF DISC PAGING v 0 P SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD PBTT30 EQU * T P EJECT h * v < 7* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART " P* OF TASK CONFIGURATION TABLE * LDK A6,0 RESET LENGTH
0x3910b4…391248 Dummy {f00=0x011f, f01=0x0190, f02=» GET NUMBER OF TDC:S LDR A7,A1 SAVE PBTT35 EQU * 4 RF(Z) BTT40 H ( $ CALL GETCLN GET CLASS NUMBER (1-99) & " ADR A1,A1 2*(BINARY CLASS NUMBER) , P LD A8,STKEND+TCLA GET POINTER TO TCLASS P LDR* A2,A8 P SUK A2,2 P
0x391248…3913dc Dummy {f00=0x011f, f01=0x0190, f02=»ET ENTRY IN TCLASS $ P LDR* A8,A8 GET POINTER TO CLASS $ P LDR* A8,A8 GET LENGTH OF CLASS B " SUKL A8,2 EXCLUDE LENGTH WORD j ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH . ) ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH ADKL A9,TDC+TLC NEXT CLAS
0x3913dc…391570 Dummy {f00=0x011f, f01=0x0190, f02=»PECIAL DEVICE CLASS DEPENDENT PART OF | P* TASK CONFIGURATION TABLE . * R 6 1 CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES P ADKL A9,2 FIRST SDC RECORD LDR A7,A1 SAVE PBTT50 EQU * RF(Z) BTT55 NO MOORE SDC:S (
0x391570…391704 Dummy {f00=0x011f, f01=0x0190, f02=» LDR* A2,A8 P SUK A2,2 P CWR A1,A2 & P RF(NG) BTT52 8 P LDKL A1,LMP4 N & P CALL ERROR INDICATE FORMAT ERROR d PBTT52 EQU * " P ADR A8,A1 GET ENTRY IN SCLASS $ P LDR* A8,A8 GET POINTER TO CLASS $ P LDR* A8,A8 GET LENGTH O
0x391704…391898 Dummy {f00=0x011f, f01=0x0190, f02=»GTH j ADKL A9,SDC NEXT CLASS ( # SUK A7,1 DECREMENT NUMBER OF SDC:S , RB BTT50 X PBTT55 EQU * j P IFF EDM=0 ~ & P ADKL A10,14 7 EXTRA WORDS FOR EDM P XIF " P ADK A6,2 INCLUDE LENGTH WORD 4 P LD A7,STKEND+CUTENT GET CUR
0x391898…391a2c Dummy {f00=0x011f, f01=0x0190, f02=»,STKEND+WRK3 SAVE A9 P ST A11,STKEND+WRK4 SAVE A11 P LDR A9,A10 GET TTAB LENGTH @ 4 P AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2 d P ST A9,STKEND+SFASAV =2 0 P LD A11,STKEND+LIMIT GET END OF SYSTEM AREA * P CALL CMPADR CHECK IF ME
0x391a2c…391bc0 Dummy {f00=0x011f, f01=0x0190, f02=»+WRK3 RESTORE A9 ~ $ P LD A11,STKEND+WRK4 RESTORE A11 * @ 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB J * P ST A6,TTB:TD,A12 * : 6* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD * ( P LD A5,STKEN
0x391bc0…391d54 (5, 22) Dummy {f00=0x011f, f01=0x0190, f02=»D Z * & P SLL A5,10 MOVE LEVEL TO LEFT BYTE P ORKL A5,/00C0 > " P LD A2,SCTOPT GET OPTION WORD T P ANK A2,1 MMU OPTION? z P ORR A5,A2 SET BIT 15 IF MMU $ ST A5,TTB:PW,A12 STORE IN TTAB P IFF MMUPAG=0 & P CALL MMUINI I
0x391d54…391ee8 Dummy {f00=0x011f, f01=0x018e, f02=»SK ID p $ ST A5,TTB:ID,A12 STORE IN TTAB ADK A5,1 INCREMENT TASK ID 6 8 P ST A5,STKEND+TASKID SAVE TO NEXT TASK IN SAME CLASS Z 0 P LD A5,STKEND+APCSTA GET APPL. CONTROL BLOCK , P ST A5,TTB:AP,A12 STORE ADDRESS IN TTAB $ P LD A5,APLTYP,
0x391ee8…39207c Dummy {f00=0x011f, f01=0x0190, f02=» , P LD A5,STKEND+TCLSAV GET TCL START VALUE " P ST A5,TTB:PP,A12 SAVE IN TTAB 8 P ADK A5,1 INCREMENT TCL ^ P ST A5,STKEND+TCLSAV SAVE ~ PBTT65 EQU * , ' STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB " ADK A7,2 NEXT ENTRY IN TC:TAB 6
0x39207c…392210 Dummy {f00=0x011f, f01=0x0190, f02=» NUMBER OF TASKS IN THIS CLASS | RB BTT60 & P EJECT 8 PBTT70 EQU * F * Z * &* RESET POINTER TO START OF FREE AREA d * P LD A12,STKEND+SFASAV PBTT90 EQU * CALL NXTBLK GET NEXT BLOCK ( # CCK A2,'TT' TASK DEFI
0x392210…3923a4 Dummy {f00=0x011f, f01=0x0190, f02=»TT98 P LD P,STKEND+WRK1 0 PBTT98 ST A12,SCTSFA SAVE START OF FREE AREA & P SU A7,SCTTCT COMPUTE LENGTH Z P ST* A7,SCTTCT STORE ~ RTN A14 RETURN P IFF SWPBLK=0 P EJECT PB:SWBT EQU * $ P CALL PUSH SAVE REGISTER A1-A1
0x3923a4…392538 Dummy {f00=0x011f, f01=0x0190, f02=»PLICATION COUNTER v , P ST P,STKEND+LIMIT SAVE LOCATION COUNTER 0 PBSWT05 LDKL A1,'CR' APPLICATION TYPE=CREDIT J , P CALL GETAPP GET NEXT CREDIT APPLICATION ~ & P RF(Z) BSWT42 NO MORE APPLICATIONS P LDR A10,A1 GET ACB ADDRESS P ST A10,STKE
0x392538…3926cc Dummy {f00=0x011f, f01=0x0190, f02=»* & PBSWT10 CALL NXTBLK GET NEXT BLOCK ( P CCK A2,'TT' TASK DEFINITION BLOCK? 4 P RB(E) BSWT10 YES! ` 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? z P RF(NE) BSWT20 NO! P ADKL A11,1 " P CALL NXTCOM SKIP COMMON BLOCK 2 PBSWT20
0x3926cc…392860 Dummy {f00=0x011f, f01=0x0190, f02=»GETNUM NUMBER OF UWB RECORDS P LDR A1,A5 SAVE $ $ P RF(Z) SWBERR ILLEGAL NUMBER!!! < ( P ADKL A11,UDBFST-1 FIRST UWB RECORD d ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD $ P SUK A1,1 DECR. NUMBER OF TYPES P RB(P) BSWT30 MOORE LEFT , P LCR
0x392860…3929f4 (5, 23) Dummy {f00=0x011f, f01=0x0190, f02=»SWB DEFINITION BLOCK! ( P ST A1,APLSWB,A10 CLEAR SWB POINTER : P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 J & PBSWT42 CALL POB RESTORE REGISTERS P RTN A14 & PBSWT44 ADKL A11,1 NUMBER OF TYPES . P ST A11,STKEND+SWBBLK START
0x3929f4…392b88 Dummy {f00=0x011f, f01=0x0190, f02=» 0 P ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS P ST A5,STKEND+WRK1 SAVE 8 . P LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP X P RF(NZ) BSWT48 FILE CREATED " PSWBERR LDKL A1,LMP6 SWB ERROR! P CALL ERROR : PBSWT48 ST A12,APLSWB,A10 SAVE AD
0x392b88…392d1c Dummy {f00=0x011f, f01=0x0190, f02=» $ PBSWT50 ADKL A10,2 BYPASS POINTER ( P SUK A5,1 DECREMENT NUMBER OF TYPES , P RB(P) BSWT50 X P* n & P* GET ADDRESS TO S:BTAB PROTOTYPE x P* , P LD A2,STKEND+APCSTA GET ADDRESS TO ACB & P LD* A1,APLMMC,A2 GET TTAB ADDRESS $ P T
0x392d1c…392eb0 Dummy {f00=0x011f, f01=0x0190, f02=»E , P ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS $ P CALL GETCON GET S:BTAB ADDRESS : * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB b * P RB(Z) SWBERR NO SWB:S IN APPLICATION! P ADK A1,2 ADDRESS TO NAME P ST A1,STKEND+SWBNAM SAVE 0 P SUK A
0x392eb0…393044 Dummy {f00=0x011f, f01=0x0190, f02=» IF ENOUGTH MEMORY IN FIRST PARTITION P* . P XRR A2,A2 RESET COUNTER 8 $ PBSWT52 SUK A1,6 DECREMENT LENGTH X $ P RF(N) BSWT55 NO MORE SWB-BLOCKS " P ADK A2,1 INCR. BLOCK COUNTER P RB BSWT52 " PBSWT55 SLL A2,3 MULTIPLY BY 8 $ P L
0x393044…3931d8 Dummy {f00=0x011f, f01=0x0190, f02=»ERFLOW? z P RF(NL) BSWT57 NO! * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW * P CALL ERROR X $ PBSWT57 SUK A4,2 SKIP LENGTH WORD l " P LDKL A9,0 RESET BLOCK COUNTER , PBSWT60 STR A10,A12 SAVE POINTER TO BLOCK P ST A4,STKEND+SWBTBL SAVE
0x3931d8…39336c Dummy {f00=0x011f, f01=0x0190, f02=»RECORD IN PROT. p $ P CALL GETCON GET TWO FIRST CHAR. ( P ADKL A11,NAMUWB NAME IN CONF. FILE @ P LCR A3,A11 GET FIRST CHAR. l P SLL A3,8 MOVE TO LEFT BYTE " P LC A3,1,A11 GET SECOND CHAR. & P CWR A1,A3 TWO FIRST CHAR. EQUAL? P RF(
0x39336c…393500 Dummy {f00=0x011f, f01=0x0190, f02=»,A11 GET THIRD CHAR. FROM CONF. FILE P ANK A3,/FF ISOLATE CHAR. , " P CWR A1,A3 THIRD CHAR. EQUAL? N P RF(E) BSWT75 YES! t $ PBSWT70 ADKL A11,NAMUWB SKIP NAME ( P SUK A7,1 DECREMENT NUMBER OF TYPES P RB(P) BSWT65 NEXT TYPE P*
0x393500…393694 (5, 24) Dummy {f00=0x0120, f01=0x0190, f02=»10 2:ND WORD P ST A7,4,A10 3:RD WORD P ST A7,6,A10 4:TH WORD 2 P RF BSWT95 P PBSWT75 EQU * b P* v P* MATCHING NAME FOUND P* . P LD A3,STKEND+WRK1 GET NUMBER OF SWB TYPES P SUK A3,1 DECREMENT P ST A3,STKEND+WRK1
0x393694…393828 Dummy {f00=0x0120, f01=0x0190, f02=»OPIES t , P SLL A5,8 NUMBER OF COPIES IN LEFT BYTE > P OR A5,STKCOM+SWBFSA+2 DISC ADDRESS BITS 0-7 IN RIGHT BYTE > " P STR A5,A10 STORE IN SWB BLOCK , P SRL A5,8 NUMBER OF COPIES TO RIGHT BYTE 4 P LD A8,STKCOM+SWBFSA GET DISC ADDRESS BITS 8-22
0x393828…3939bc Dummy {f00=0x0120, f01=0x0190, f02=»RESS r P LDR A2,A1 SAVE & P SUK A2,UPNAME LENGTH OF WORKBLOCK $ P CALL GETCON N * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB b 0 PBSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK " P LDK A1,0 RESET SECTOR COUNTER 4 PBSWT86 IM STKCOM+SWBFSA INCREM
0x3939bc…393b50 Dummy {f00=0x0120, f01=0x0190, f02=» * & P ADK A1,1 INCREMENT SECTOR COUNTER " P SUKL A3,256 DECREMENT LENGTH 4 P RB(P) BSWT86 MOORE SECTORS? Z P SUK A5,1 MOORE COPIES? ~ P RB(P) BSWT85 YES! * P ST A1,SWBSEC,A10 STORE SECTOR LENGTH 2 P IM STKCOM+SWBCNT INCREMENT SWP-BL
0x393b50…393ce4 Dummy {f00=0x0120, f01=0x0190, f02=»5 P LD A8,STKCOM+SWBFSA P CW A8,STKCOM+SWBFSE & ( P RF(G) BSWT98 SWAPP-FILE TOO SMALL! B * PBSWT95 ADKL A10,8 START OF NEXT BLOCK n P ADKL A12,2 NEXT POINTER & P ADKL A9,1 INCREMENT BLOCK COUNTER 8 P LD A2,STKEND+SWBNAM CURRENT RECOR
0x393ce4…393e78 Dummy {f00=0x0120, f01=0x0190, f02=»ENGTH OF PROT. S:BTAB v P SUK A4,UP:REC DECREMENT P RB(P) BSWT60 MOORE TYPES > . P LD A8,STKCOM+SWBCNT ANY BLOCKS GENERATED? ` P RF(Z) BSWT98 NO! . P LD A8,STKEND+WRK1 ALL SWB TYPES MATCHED? P RF(NP) BSWT99 YES! PBSWT98 LDKL A1
0x393e78…39400c Dummy {f00=0x0120, f01=0x0190, f02=»ADDRESS j * P ST* A9,APLSWB,A10 NUMBER OF SWB TYPES 6 P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION > P XIF x P IFF MMUPAG+DSKPAG=0 P EJECT 8 P*************************************************** 8 P*
0x39400c…3941a0 Dummy {f00=0x0120, f01=0x0190, f02=» * b 8 P* * 8 P* REFERENCED IN: SYSLDM * J 8 P* * 8 P* ENTRY: * 8 P*
0x3941a0…394334 (5, 25) Dummy {f00=0x0120, f01=0x0190, f02=» * v 8 P* WORK REGISTERS: A1-A14 (THEIR ORIGINAL * " 8 P* CONTENTS ARE SAVED ON STACK * ^ 8 P* AND RESTORED BEFORE EXIT) * 8 P*
0x394334…3944c8 Dummy {f00=0x0120, f01=0x0190, f02=»ERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * 8 P* CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * 6 8 P* EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * r 8 P* WORD IN THE NEXT SEGMENT TABLE. ALL OTHER LO- * 8 P* CATIONS CONTAIN ZERO.
0x3944c8…39465c Dummy {f00=0x0120, f01=0x0190, f02=» * b 8 P* DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * 8 P* WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * J 8 P* TABLE ADDRESS IS STORED IN THE TTAB FOR EACH * 8 P* TASK IN THE APPLICATION. * 8 P*
0x39465c…3947f0 Dummy {f00=0x0120, f01=0x0190, f02=» $ P CALL PUSH SAVE A1-A14 ON STACK & P CALL FSTAPL GET FIRST APPLICATION 0 " P LDR A9,P GET LIMIT FOR WRITE Z < PBST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB . P CALL NXTAPL GET NEXT APPL. CONTROL BLOCK P RF(NZ) BST020 NOT LAS
0x3947f0…394984 Dummy {f00=0x0120, f01=0x0190, f02=»ND OF TCTAB ENTRIES t $ PBST040 ST A2,STKEND+TCTEND SAVE P LDR A8,P D 8 PBST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS V 2 P LD A5,APLMMP,A10 GET CURRENT APPLICATION TYPE ( P CWK A5,'AS' ASSEMBLER APPLICATION? 2 P ABR(E) A8 YES; DON'
0x394984…394b18 Dummy {f00=0x0120, f01=0x0190, f02=» SUR A2,A8 2*NUMBER OF TASKS P SRL A2,1 NUMBER OF TASKS $ P ST A2,STKEND+WRK1 SAVE F P ST A2,APLNPE,A10 SAVE f . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK P SLL A3,3 MULTIPLY BY 8 $ P ADK A3,12 INCLUDE 6 FIRST WORDS P LDR A4,A3
0x394b18…394cac Dummy {f00=0x0120, f01=0x0190, f02=»ON WORD t P ANK A2,1 MMU? P RF(Z) BST070 NO & P LDR* A7,A8 GET TTAB ADDRESS > P TL TTB:MT,A7 LOAD MMU TABLE b * PBST070 LD A2,APLLAC,A10 ADDRESS S:GTAB * P ADK A2,10 ADDRESS NUMBER OF SEGMENTS ( P CALL GETCON GET NUMBER OF SEGMENTS
0x394cac…394e40 Dummy {f00=0x0120, f01=0x0190, f02=»A12,SCTSFA GET START OF FREE AREA ( P LDR A2,A11 SAVE CONF. DATA POINTER * P LDR A11,A12 SAVE V * P ADR A11,A3 END OF SEGMENT TABLE AREA p " P CALL CMPADR MEMORY OVERFLOW? P RF(NG) BST100 NO * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x394e40…394fd4 (5, 26) Dummy {f00=0x0120, f01=0x0190, f02=»A' BASIC? P RF(NE) BST200 NO * P LD A2,STKEND+WRK1 GET NUMBER OF TASKS , . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK Z 0 P ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK P CALL MULT MULTIPLY * P LDR A2,A3 GET MAX NUMBER OF SEGMENTS :
0x394fd4…395168 Dummy {f00=0x0120, f01=0x0190, f02=» P* P* CLEAR SEGMENT TABLE AREA P* 2 0 P LD A2,SCTSFA GET END OF SEGMENT TABLE AREA < & PBST110 SUK A2,2 DECREMENT POINTER p P CMR A2 CLEAR , P CWR A2,A12 START OF SEGMENT TABLE AREA? P RB(NE) BST110 NOT YET . PBST120 ADR
0x395168…3952fc Dummy {f00=0x0120, f01=0x0190, f02=»H WORD IN SEGMENT TABLE z 2 P ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE , P ADR A12,A4 START OF NEXT SEGMENT TABLE V P LDR A2,A12 SAVE P RB BST120 0 PBST200 ST A6,2,A12 STORE NUMBER OF SEGMENTS & P LDR A3,A6 GET NUMBER OF SEGMENTS
0x3952fc…395490 Dummy {f00=0x0120, f01=0x0190, f02=»E ( P ADKL A12,4 ADDRESS SEGMENT BLOCK 0 P LDR A4,A12 SAVE 6 . PBST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 N " P STR A2,A12 STORE IN SEGBLK 0 * P LD A2,APLLAC,A10 GET START OF S:GTAB & P CALL GETCON GET ADDRESS TO P:MTAB P LDR A2,A1
0x395490…395624 Dummy {f00=0x0120, f01=0x0190, f02=»T START OF S:GTAB | * P ADK A2,10 ADDRESS NUMBER OF SEGMENTS ( PBST220 ADKL A12,8 NEXT SEGMENT BLOCK H P SUK A6,1 ANY MORE SEGMENTS? t P RF(N) BST300 NO P LDK A7,0 INIT STATUS BYTE 2 P ADK A2,2 ADDRESS FIRST ENTRY IN SEGMENT BLOCK . P
0x395624…3957b8 Dummy {f00=0x0120, f01=0x0190, f02=»ENT TYPE z ( P CCK A1,'RR' CORE RESIDENT SEGMENT? P RF(E) BST230 YES < " P LD A1,SCTOPT GET OPTION WORD V P ANK A1,2 DISC PAGING? | P RF(NZ) BST240 YES " P XRR A3,A3 CLEAR DISC ADDRESS 4 P LDKL A7,/8800 INDICATE CORE RESIDENT AND LOAD
0x3957b8…39594c Dummy {f00=0x0120, f01=0x018e, f02=»ED * PBST240 ADK A2,2 DISC ADDRESS BIT 8-23 * P CALL GETCON GET SEGMENT DISC ADDRESS 8 0 P AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A. f P RF(O) BST250 CARRY P RF BST260 * PBST250 ADK A3,1 INCR. PART 1 OF D. A. . P ANKL A1,/7FFF RES
0x39594c…395ae0 Dummy {f00=0x0120, f01=0x0190, f02=» P RF(NG) BST270 NO! ( P LDKL A1,LMP10 INDICATE DEVICE ERROR P CALL ERROR J 2 PBST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS ^ P STR A7,A12 STORE , P ST A1,2,A12 STORE DISC ADDRESS BIT 8-23 $ P ADK A2,2 ADDRESS SEGMENT LENGTH $ P C
0x395ae0…395c74 (5, 27) Dummy {f00=0x0120, f01=0x0190, f02=»T300 CW A8,STKEND+TCTEND LAST TCTAB ENTRY? P RF(E) BST400 YES 2 P LDR* A2,A8 GET TTAB ADDRESS L 0 P ST A4,TTB:SP,A2 STORE SEGMENT TABLE POINTER p * P ADKL A8,2 INCREMENT POINTER IN TCTAB P RB BST300 8 PBST400 LD A1,STKEND+APLNO GET NUMBER
0x395c74…395e08 Dummy {f00=0x0120, f01=0x0190, f02=»REGISTERS ~ P RTN A14 RETURN P XIF * P IFF SPDVCL+TEDVCL=0 6 EJECT R L J************************************************************************ ` J J* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES L J**********
0x395e08…395f9c Dummy {f00=0x0120, f01=0x0190, f02=»FA - START OF FREE ARE (X) 2 P* CONSTA - START OF CONFIGURATION DATA " ( #* SCTEFA - END OF FREE AREA X * * EXIT: * * WORK REGISTERS: A1-A12 * < 8* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,E
0x395f9c…396130 Dummy {f00=0x0120, f01=0x0190, f02=»RT OF FREE AREA ~ * 6 2* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK " * & P CALL FSTAPL GET FIRST APPLICATION f 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA , P ST P,STKEND+ECHTAB START OF ECHO TABLE * * GET ADD
0x396130…3962c4 Dummy {f00=0x0120, f01=0x0190, f02=»* . )* GET NUMBER OF TASKS IN THIS TASK CLASS * < CALL GETTSK F PDWTS20 EQU * Z P ST A1,STKEND+NBRTSK SAVE n * * &* GET CORRESPONDING TASK TABLE (TTAB) * PDWTS25 EQU * " ADK A7,2 NEXT ENTRY IN TC:TAB
0x3962c4…396458 Dummy {f00=0x0120, f01=0x0190, f02=»TION BLOCK n * . * LDR A9,A11 START OF TASK DEFINITION BLOCK , ' ADKL A9,TDBFST START OF TDC DEFINITION N P EJECT ~ * 4 /* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS * CALL GETTDC P LDR A6,A1 PDWTS30 EQU
0x396458…3965ec Dummy {f00=0x0120, f01=0x0190, f02=»8,A1 GET CLASS ENTRY $ P LDR* A8,A8 GET POINTER TO CLASS $ P LDR* A8,A8 GET LENGTH OF CLASS D " P SUKL A8,2 EXCLUDE LENGTH WORD l * P ADR A10,A8 INCREMENT POINTER IN TTAB 0 + ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD ( P SUK A6,1 DECREMENT
0x3965ec…396780 Dummy {f00=0x0120, f01=0x0190, f02=»GETSDC ADKL A9,SDCFST-CDBNC LDR A1,A1 , PDWTS50 EQU * > P RF(Z) DWTS90 R P ST A1,STKEND+NBRSDC SAVE h * & P* GET SPECIAL DEVICE CLASS NUMBER * CALL GETCLN * 8 3* GET CORRESPONDING SPECIAL DEVIC
0x396780…396914 (5, 28) Dummy {f00=0x0121, f01=0x0190, f02=»A6,A6 GET POINTER TO CLASS P LDR A5,A6 SAVE " P LDR* A6,A6 GET LENGTH : " P SUK A6,2 EXCLUDE LENGTH WORD X PDWTS60 EQU * ~ ADK A5,4 GET DEVICE ( # LDR* A1,A5 GET ADDRESS TO TYPE DWT ( # LD A3,DWTLEN,A1 GENERATION OF DWT? P R
0x396914…396aa8 Dummy {f00=0x0121, f01=0x0190, f02=» P CALL CHKMOV COPY DWT P EJECT " P* 0 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM : P* r " P LD A3,SCTOPT GET OPTION WORD | P ANK A3,1 MMU IN SYSTEM? P RF(Z) DWTS65 NO! ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS * P
0x396aa8…396c3c Dummy {f00=0x0121, f01=0x0190, f02=» MAKE EVEN ADDRESS " P ST A4,DWTMEC,A2 STORE IT BACK PDWTS65 EQU * @ $ LDR A1,A2 DT-ADDRESS TO BE USED T PDWTS70 EQU * | * . ** STORE FILE-CODE AND DWT-ADDRESS IN TTAB * " ST A1,2,A10 STORE DWT-ADDRESS $ LD A1,-2,A5
0x396c3c…396dd0 Dummy {f00=0x0121, f01=0x0190, f02=»UK A6,4 DECREMENT NUMBER OF DEVICES RB(P) DWTS60 NEXT DEVICE , P EJECT N * 4 /* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS f * ADKL A9,SDC P LD A1,STKEND+NBRSDC SUK A1,1 RB DWTS50 PDWTS90 EQU
0x396dd0…396f64 Dummy {f00=0x0121, f01=0x018e, f02=» RB(P) DWTS20 * , (* CHECK IF MOORE TASK DEFINITION BLOCKS * P CALL NXTBLK Z ( # CCK A2,'TT' TASK DEFINITION BLOCK? n RB(E) DWTS10 YES & P CALL NXTAPL GET NEXT APPLICATION * P RB(P) DWTS05 PROCESS NEXT APPLICATION
0x396f64…3970f8 Dummy {f00=0x0121, f01=0x0190, f02=» & P LDR A1,P GET LOCATION COUNTER =4 0 PDWTS95 SUK A1,2 DECREMENT MEMORY ADDRESS =4 2 P CMR A1 CLEAR MEMORY AREA =4 f ( P CW A1,SCTSFA ALL WORDS CLEARED? =4 P RB(NE) DWTS95 NO! =4 RTN A14 RETURN P XIF P IFF TEDVCL=0
0x3970f8…39728c Dummy {f00=0x0121, f01=0x0190, f02=»******************************************** 4 0************************************************ 4 * l * REFERENCED IN: MONCON v * * ENTRY: * * EXIT: * * WORK REGISTERS: A1-A12 * D @* SUB
0x39728c…397420 Dummy {f00=0x0121, f01=0x018e, f02=»T FLAG v $ P LD A1,SCTFWT START OF FWT AREA $ P RF(NZ) BDWT15 FWT AREA RESERVED 6 P LD A1,STKEND+LIMIT ^ 8 P ST A1,STKEND+INTTAB START OF T.I.T. IF NO FWT AREA z P IM STKEND+FWTFLG INCREMENT PBDWT15 EQU * P EJECT * & P*
0x397420…3975b4 (5, 29) Dummy {f00=0x0121, f01=0x018e, f02=» * B >* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY * T . P LD A5,APLMMC,A2 GET FIRST USER TASK ENTRY ^ : P ST A5,STKEND+CUTENT STORE IN CURRENT USER TASK ENTRY PBDWT40 EQU * * . )* GET NUMBER OF TASKS IN TH
0x3975b4…397748 Dummy {f00=0x0121, f01=0x0190, f02=» * @ ;* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS * R CALL GETTDC * p $ * CHECK IF TASK WITHOUT DEVICES z * $ LDR A1,A1 ANY TERMINAL DEVICES? RF(Z) BDW100 NO : P ST A1,STKEND+NBRTDC SAVE NU
0x397748…3978dc Dummy {f00=0x0121, f01=0x0190, f02=» * ( #* GET TERMINAL DEVICE CLASS NUMBER * : . * LDR A9,A11 START OF TASK DEFINITION BLOCK D 4 0 ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION v PBDWT55 EQU * " CALL GETCLN GET CLASS NUMBER * P ST A1,STKEND+CLANBR SAVE BINARY
0x3978dc…397a70 Dummy {f00=0x0121, f01=0x0190, f02=» CLASS ID h ADR A2,A2 2*ID ( P LD A7,STKEND+TCLA POINTER TO TCLASS * P ADR A7,A2 GET ENTRY V $ P LDR* A7,A7 GET POINTER TO CLASS r * @ <* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS * IN THIS TASK * ,
0x397a70…397c04 Dummy {f00=0x0121, f01=0x0190, f02=»CK A4,'AA' ASCU4Z CONNECTION? P RF(NE) BDWT58 NO! & . P LDR* A8,A7 YES! GET LENGTH OF THIS CLASS @ $ P SUKL A8,2 EXCLUSIVE LENGTH WORD r P CWK A8,4 ONE DEVICE? P RF(NE) BDWT57 NO! ( P LD A8,4,A7 GET ADDRESS TO PROT.DWT P LD A4,DWT
0x397c04…397d98 Dummy {f00=0x0121, f01=0x0190, f02=»N NUMBER n PBDWT58 EQU * . * ADK A1,1 INCREMENT LINE CONNECTION NUMBER $ 4 P CALL BINASC CONVERT INCREMENTED VALUE TO ASCII V ( P SC A1,TDC+5,A9 STORE ASCII DIGIT =2 & P SRL A1,8 MOVE LEFT ASCII DIGIT =2 ( P SC A1,TDC+4,A9 STORE ASCII DIGIT =2
0x397d98…397f2c Dummy {f00=0x0121, f01=0x0190, f02=»ONNECTION NUMBER (BINARY VALUE) , (* A7 - POINTER TO TERMINAL DEVICE CLASS ( * X . ** THE ENTRY IN TEMPORARY INTERRUPT TABLE b . ** IS DERIVED FROM LINE CONNECTION NUMBER, : 6* DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT) *
0x397f2c…3980c0 Dummy {f00=0x0121, f01=0x0190, f02=»HIS TASK CLASS? x RF(Z) BDW100 NO . P ST A1,STKEND+NBRTDC SAVE REMAINING NUMBER 0 $ ADKL A9,TDC+TLC NEXT TDC RECORD b RB BDWT55 PBDW100 EQU * " P CALL ECHO INIT ECHO POINTERS 4 P LD A1,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB
0x3980c0…398254 (5, 30) Dummy {f00=0x0121, f01=0x018e, f02=» Z " SUK A1,1 ANY MOORE TASKS LEFT P RB(P) BDWT50 YES . , (* CHECK IF MOORE TASK DEFINITION BLOCKS H * x $ CALL NXTBLK SKIP TO NEXT BLOCK ( # CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) BDWT40 YES P EJECT & P CALL NXTA
0x398254…3983e8 Dummy {f00=0x0121, f01=0x0190, f02=» EJECT , (**************************************** , P* B:CDT - BUILD COMMON DEVICE TABLE * D , (**************************************** t * P* REFERENCED IN: SYSLDM * * &* ENTRY: SCTSFA - START OF FREE AREA 4 P
0x3983e8…39857c Dummy {f00=0x0121, f01=0x0190, f02=»TO COMMON DEVICE TABLE v * * WORK REGISTERS: A1-A12 ( * J < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE T * EJECT PB:CDT EQU * & ! LD A12,SCTSFA START OF FREE AREA P LDK A7,0 RESET LENGTH & P
0x39857c…398710 Dummy {f00=0x0121, f01=0x0190, f02=»TBLK ( # CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) CDG:10 YES 8 ( $ CCK A2,'CC' COMMON DEV. DEF. BLOCK? R P RF(NE) BCDTEX NO ~ P EJECT P* : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES 8 P* AND DWT-ADDRESSES USED
0x398710…3988a4 Dummy {f00=0x0121, f01=0x0190, f02=»L CLASSES h & P CALL GETCTC GET NUMBER OF C.T.C. P LDR A6,A1 SAVE < " PB:CT10 RF(Z) B:CT30 NO MOORE! T . P CALL GETCLN GET CLASS IDENT NUMBER (1-99) z , P ADR A1,A1 DISPLACEMENT TO CLASS POINTER , P LD A5,STKEND+TCLA GET POINTER TO TCLASS
0x3988a4…398a38 Dummy {f00=0x0121, f01=0x0190, f02=» ~ P LDKL A1,LMP4 FORMAT ERROR! P CALL ERROR , , PB:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS @ $ P LDR* A1,A1 GET POINTER TO CLASS p $ P LDR* A1,A1 GET LENGTH OF CLASS " P SUK A1,2 EXCLUDE LENGTH WORD & P ADR A7,A1 INCREMENT CDTAB LENGTH
0x398a38…398bcc Dummy {f00=0x0121, f01=0x018e, f02=»QU * P* : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES T P* CALL GETSDC ADKL A9,SDCFST-CDBNC LDR A6,A1 PBCDT10 EQU * RF(Z) BCDTEX
0x398bcc…398d60 Dummy {f00=0x0121, f01=0x0190, f02=» P RF(NG) BCDT15 P LDKL A1,LMP4 P CALL ERROR 4 PBCDT15 EQU * H P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS | P LDR* A1,A1 GET LENGTH SUK A1,2 ADKL A9,SDC ADR A7,A1 SUK A6,1
0x398d60…398ef4 (5, 31) Dummy {f00=0x0121, f01=0x0190, f02=» GET FIRST APPLICATION & PB:CT35 CALL NXTBLK GET NEXT BLOCK ( P CCK A2,'TT' TASK DEFINITION BLOCK? H P RB(E) B:CT35 YES t P EJECT P* < P* RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES 6 P* AND DWT-ADDRESSES USED FOR PHYS
0x398ef4…399088 Dummy {f00=0x0121, f01=0x0190, f02=»A COMMUNICATION d P* J P* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS " P* p & P LD A1,SCTDCT DATA COMMUNICATION? z " P LD A6,SCTDMT DATA MANAGEMENT P ORR A6,A1 DM OR DC? " P LD A1,SCTOPT GET OPTION WORD
0x399088…39921c Dummy {f00=0x0121, f01=0x0190, f02=» GET POINTER TO SCLASS ~ $ P LDR* A1,A6 GET LENGTH OF SCLASS " P SUK A1,2 EXCLUDE LENGTH WORD F $ P ADR A6,A1 LAST ENTRY IN SCLASS l * P LDR* A6,A6 GET POINTER TO LAST CLASS ( P LDR* A6,A6 GET LENGTH OF LAST CLASS " P SUK A6,2 EXCLUDE LENGTH W
0x39921c…3993b0 Dummy {f00=0x0121, f01=0x0190, f02=»DR A12,A7 P ST A11,STKEND+WRK1 SAVE A11 " P LDR A11,A12 GET END OF CDTAB 6 . P LD A9,STKEND+LIMIT GET END OF SYSTEM AREA * P CALL CMPADR CHECK IF MEMORY OVERFLOW P RF(NG) CDG:13 OK * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW P CAL
0x3993b0…399544 Dummy {f00=0x0121, f01=0x018e, f02=» ^ * ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT * PCDG:15 LCR A2,A11 GET FIRST CHARACTER > . PCDG:16 CCK A2,'TT' TASK DEFINITION BLOCK/ l P RF(NE) CDG:17 NO! P CALL NXTBLK GET NEXT BLCK P RB CDG:16 * PCDG:17 CCK A2,'CC' COMMON DE
0x399544…3996d8 Dummy {f00=0x0121, f01=0x0190, f02=» & P CALL NXTAPL GET NEXT APPLICATION $ P RB(P) CDG:15 MORE APPLICATIONS . " P RF CDGEX NO MORE APPLICATIONS V PCDG:19 EQU * | P* > P* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES P* * P LDR A9,A11 START OF COMMON DEF. B
0x3996d8…39986c Dummy {f00=0x0121, f01=0x0190, f02=»RMINAL CLASSES? x PB:CT40 RF(Z) B:CT50 NO! P ST A1,STKEND+NBRCOM SAVE 8 ( P CALL GETCLN GET CLASS IDENT NUMBER Z P ST A1,STKEND+CLASID SAVE , P CALL GETLCN GET LINE CONNECTION NUMBER P LDR A6,A1 SAVE 0 P LD A2,STKEND+CLASID GET
0x39986c…399a00 Dummy {f00=0x0121, f01=0x0190, f02=»ENTRY IN TCLASS ~ $ P LDR* A7,A7 GET POINTER TO CLASS . P CALL DWTGEN GENERATE DWT:S FOR THIS CLASS @ . P ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE r . P LD A1,STKEND+NBRCOM GET NUMBER OF C.T.C. P SUK A1,1 DECREMENT COUNTER P RB B:CT40
0x399a00…399b94 (5, 32) Dummy {f00=0x0122, f01=0x0190, f02=»A9,SDCFST-CDBNC P LDR A8,A1 PCDG:20 EQU * * P RB(NP) CDG:18 > * T & #* GET SPECIAL DEVICE CLASS NUMBER ^ * CALL GETCLN * 0 +* GET CORRESPONDING DEVICE CLASS IN SCLASS * ADR A1,A1 T , P LD
0x399b94…399d28 Dummy {f00=0x0122, f01=0x018e, f02=»INTER TO CLASS ~ $ P LDR* A6,A6 GET LENGTH OF CLASS " P SUK A6,2 EXCLUDE LENGTH WORD > PCDG:30 EQU * d ADK A5,4 NEXT DEVICE x LDR* A1,A5 GET DWT-ADDRESS ( # LD A3,DWTLEN,A1 GENERATION OF DWT? RF(Z) CDG:40 NO *
0x399d28…399ebc Dummy {f00=0x0122, f01=0x0190, f02=» P* 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM P* F " P LD A3,SCTOPT GET OPTION WORD P P ANK A3,1 MMU IN SYSTEM? v P RF(Z) CDG:35 NO! ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS * P SUR A3,A2 COMPUTE RELOCATION CONSTANT ,
0x399ebc…39a050 Dummy {f00=0x0122, f01=0x0190, f02=» IT BACK z PCDG:35 EQU * " LDR A1,A2 DWT-ADDRESS TO USE $ PCDG:40 EQU * J * ^ . ** STORE FILE-CODE AND DWT-ADDRESS IN TTAB h * " P ST A1,4,A10 STORE DWT-ADDRESS LD A1,-2,A5 GET FILE CODE P ST A1,2,A10 STORE IN TTAB
0x39a050…39a1e4 Dummy {f00=0x0122, f01=0x018e, f02=»* , (* CHECK IF MOORE SPECIAL DEVICE CLASSES * : ADKL A9,SDC D P SUKL A8,1 X RB CDG:20 j PCDGEX EQU * | " P LD A1,SCTDMT DATA MANAGEMENT $ P LD A5,SCTDCT DATA COMMUNICATION P ORR A1,A5 DM OR DC? " P LD A5,SCTOPT
0x39a1e4…39a378 Dummy {f00=0x0122, f01=0x018e, f02=» , P LD A5,STKEND+SCLA GET POINTER TO SCLASS $ P LDR* A1,A5 GET LENGTH OF SCLASS 4 " P SUK A1,2 EXCLUDE LENGTH WORD P ADR A5,A1 GET LAST ENTRY * P LDR* A5,A5 GET POINTER TO LAST CLASS ( P LDR* A6,A5 GET LENGTH OF LAST CLASS " P SUK A6,2
0x39a378…39a50c Dummy {f00=0x0122, f01=0x0190, f02=» P =6 EJECT J F********************************************************************** H C* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS n J F**********************************************************************
0x39a50c…39a6a0 Dummy {f00=0x0122, f01=0x0190, f02=» A6 - LINE CONNECTION NUMBER * * * EXIT: 4 * D * WORK REGISTERS: A1-A8 N * n * SUBROUTINES: I:CHP,MOVE x * EJECT PDWTGEN EQU * 4 P ST A6,STKEND+LCNBR SAVE LINE CONNECTION NUMBER ( $ LDR* A8,A
0x39a6a0…39a834 (5, 33) Dummy {f00=0x0122, f01=0x0190, f02=»7 GET ADDRESS OF PROTOTYPE DWT 2 P LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER ( P* ^ P* CHECK CONNECTION TYPE h P* , P LC A4,TDC+6,A9 GET LINE CONNECTION TYPE $ P CCK A4,'SS' SALCUZ CONNECTION? P RF(NE) DWT10 NO! 0 P CAL
0x39a834…39a9c8 Dummy {f00=0x0122, f01=0x018e, f02=» CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z P RF DWT31 2 * PDWT07 CCK A4,'VV' VCCU1/4 CONNECTION? D P RF(NE) DWT11 r 0 P CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4 P RF DWT31 & PDWT11 CCK A4,'PP' PLC CONNECTION? P RF(NE) DWT12 NO
0x39a9c8…39ab5c Dummy {f00=0x0122, f01=0x0190, f02=» | , P CALL I:CHLT INIT CHANNEL PARAMETERS LT P RF DWT31 8 $ PDWT08 CCK A4,'RR' RT CONNECTION? J P RF(E) DWT09 YES! r ( P LDKL A1,LMP4 INDICATE FORMAT ERROR P CALL ERROR 0 PDWT09 CALL I:CHRT INIT CHANNEL PARAMETERS RT PDWT31 EQ
0x39ab5c…39acf0 Dummy {f00=0x0122, f01=0x0190, f02=»ALREADY GENERATED ON THIS LINE * & , P LD A4,STKEND+INTTAB GET START OF T.I.T. 0 $ P LDR* A5,A4 GET NUMBER OF BLOCKS ` P SUK A4,2 P LDR A5,A5 PDWT13 EQU * P RF(Z) DWT32 6 P LD A3,STKEND+CONTYP GET LINE AND CONNECTION TYPE
0x39acf0…39ae84 Dummy {f00=0x0122, f01=0x0190, f02=»ER OF BLOCKS x P RB DWT13 PDWT15 EQU * & * P LD A2,-2,A4 GET RUN-TIME DWT-ADDRESS : , P LD A6,DWTCP2,A2 GET CHANNEL PARAMETER-2 h $ P ANK A6,/003F GET DEVICE ADDRESS . P LD A3,STKEND+WRK3 GET CHANNEL PARAMETER-2 $ P ANK A3,/003F GET DEVI
0x39ae84…39b018 Dummy {f00=0x0122, f01=0x0190, f02=» AND 9 x & P LD A3,DWTST,A1 GET DEVICE STATUS " P ANK A3,/00C0 GET BITS 8 AND 9 8 P SUR A3,A6 EQUAL? ^ P RB(NE) DWT14 x $ P LD A6,DWTTAB,A2 GET DEVICE TYPE $ P ANKL A6,/8000 ISOLATE ECHO BIT $ P LD A3,DWTTAB,A1 GET DEVICE TYPE $ P A
0x39b018…39b1ac Dummy {f00=0x0122, f01=0x0190, f02=»A1,STKCOM+M:REL P ABR A1 PDWT32 EQU * ( ( P LDR A5,A12 GET RUN TIME DWT-ADDRESS < * P CALL B:TTAB BUILD ONE BLOCK IN T.I.T. h * * COPY DEVICE TYPE DWT * LDR A2,A12 TO-ADDRESS P LD A3,DWTOR,A1 LENGTH A
0x39b1ac…39b340 Dummy {f00=0x0122, f01=0x0190, f02=» REAL DWT ~ * P LD A6,STKEND+WRK4 P LD A5,STKEND+WRK3 6 * P STR A6,A2 STORE CHANNEL PARAMETERS -1 P 0 P ST A5,DWTCP2,A2 STORE CHANNEL PARAMETERS -2 ~ * * CHECK IF INPUT DEVICE * P LD A3,2,A1 GET DWT STATUS P
0x39b340…39b4d4 (5, 34) Dummy {f00=0x0122, f01=0x0190, f02=»A3,DWTADR,A1 LD A3,DEVIND,A3 CWK A3,6 . RF(NE) DWT60 NOT KEYBOARD @ * b * INPUT DEVICE = KEYBOARD l * IF ECHO: P* , P* STORE ADDRESS OF KEYBOARD RUNTIME-DWT : P* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEV
0x39b4d4…39b668 Dummy {f00=0x0122, f01=0x0190, f02=»CHTAB GET LENGTH OF ECHO DEVICE TABLE ( P RF(NZ) DWT392 NOT FIRST ECHO DEVICE . 2 P ADK A3,2 INCLUDE LENGTH OF ECHO DEVICE TABLE Z PDWT392 LDR A4,A3 SAVE LENGTH ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY 8 P STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR
0x39b668…39b7fc Dummy {f00=0x0122, f01=0x0190, f02=»B SAVE NEW LENGTH | P EJECT PDWT40 EQU * ( * < 2 -* RELOCATE POINTERS TO CIRCULAR INPUT BUFFER F * | LDR A5,A2 GET DWT-ADDRESS 2 P ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER $ ST A5,DWTSQ-4,A2 STORE POINTER $ S
0x39b7fc…39b990 Dummy {f00=0x0122, f01=0x0190, f02=» TABLE V 6 2* IN ENTRY CORRESPONDING TO SECOND DEVICE ADDRESS * H 2 P LD A3,DWTDEV,A1 GET DEVICE STATUS OF TYPE DWT R ( P ANK A3,/FF GET EIGTH RIGHTMOST BITS $ P RF(Z) DWT60 NOT DOUBLE KEYBOARD $ P LDR A5,A2 GET REAL DWT-ADDRESS P ADK
0x39b990…39bb24 Dummy {f00=0x0122, f01=0x0190, f02=» EJECT PDWT45 CALL DWT50 P RF DWT60 . PDWT50 EQU * @ * T P* OUTPUT DEVICE* ^ , P* IF BIT 0 IN SIXTH WORD IN DWT IS SET x 0 P* THE DEVICE IS TO BE USED FOR ECHOING ON. 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTI
0x39bb24…39bcb8 Dummy {f00=0x0122, f01=0x0190, f02=»DWT59 NO ECHOING ON THIS DEVICE : P LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE ( & P RF(NZ) DWT55 ALREADY INITIALIZED! f P ADK A3,2 INCLUDE LENGTH PDWT55 LDR A4,A3 SAVE LENGTH ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY . P STR A1,
0x39bcb8…39be4c Dummy {f00=0x0122, f01=0x0190, f02=»+ECHTAB STORE NEW LENGTH PDWT59 RTN A14 PDWT60 EQU * 6 * J * CHECK IF PAGING T * n " P LD A5,SCTOPT GET OPTION WORD x P ANK A5,1 MMU PAGING? RF(Z) DWT70 P EJECT , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS
0x39be4c…39bfe0 Dummy {f00=0x0122, f01=0x018e, f02=» h $ P ANKL A5,/FFFE MAKE EVEN ADDRESS " P ST A5,DWTMEC,A2 STORE IT BACK 0 * V < P* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED ` P* & P LD A5,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER $
0x39bfe0…39c174 (5, 35) Dummy {f00=0x0122, f01=0x0190, f02=» , P LD A5,DWTMEC,A2 GET MONITOR ECB-ADDRESS ( # LDR A3,A12 INTERNAL BUFFER ADDRESS 8 ADK A3,1 d , ( ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS x P ST A3,2,A5 SAVE P LDR A3,A4 GET LENGTH & P ADK A3,3 ADD BO FERMS CONSTANT+1 ,
0x39c174…39c308 Dummy {f00=0x0122, f01=0x0190, f02=» SIZE OF BUFFER RESERVED FOR SYSLOD PART A. 4 0* IF YES,THAN STORE THE ADDRESS AND SIZE OF THE 4 , P* INTERNAL BUFFER IN SYSBUF AND BUFSIZ. l * P CW A3,STKCOM+BUFSIZ RF(NG) DWT65 P ST A3,STKCOM+BUFSIZ P ST A12,STKCOM+SYS
0x39c308…39c49c Dummy {f00=0x0122, f01=0x0190, f02=»WT-ADDRESS IN TTAB x P* " P ADKL A10,2 NEXT ENTRY IN TTAB $ " P LDR* A5,A7 GET INDEX/FILECODE J * P STR A5,A10 STORE IN TASK CONF. TABLE p " P ADKL A10,2 NEXT ENTRY IN TTAB " P STR A2,A10 STORE DWT-ADDRESS P* , '* CHECK IF MOORE DE
0x39c49c…39c630 Dummy {f00=0x0122, f01=0x0190, f02=»TKCOM+M:REL P ABR A1 PDWTEX EQU * $ P RTN A14 8 P EJECT H P* V 6 P* SCAN ECHO DEVICE TABLE - FOR EVERY COINCIDENCE ` 4 P* BETWEEN THE FIRST POINTER IN ONE POINTER-SET 4 P* AND SECOND POINTER IN THE OTHER POINTER-SET: 0
0x39c630…39c7c4 Dummy {f00=0x0122, f01=0x0190, f02=» CLEAR POINTERS OF t P* SECOND POINTER-SET. 8 P* WHEN ALL POINTER-SET HAS BEEN SCANNED,THE LENGTH 8 ( P* OF ECHO DEVICE TABLE IS CLEARED. t P* > PECHO LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE " P RF(Z) DWT160 NO ECHO DEVICE
0x39c7c4…39c958 Dummy {f00=0x0122, f01=0x0190, f02=» A1,2 BYPASS LENGTH < PDWT90 LD A2,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE P ADK A2,2 BYPASS LENGTH 6 PDWT100 LD A4,2,A1 GET SECOND POINTER IN FIRST SET | > PDWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET P RF(E) DWT130 CO
0x39c958…39caec Dummy {f00=0x0122, f01=0x0190, f02=» RF DWT140 : PDWT130 LD A4,2,A2 ADDRESS TO OUTPUT DEVICE RUNTIME-DWT 4 P LDR* A2,A1 ADDRESS TO INPUT DEVICE RUNTIME-DWT P 8 P ST A4,DWTECH,A2 STORE DEVICE-ADDRESS TO ECHO-DEVICE P CMR A1 CLEAR FIRST POINTER " P CM 2,A1 CLEAR SECOND POINTER
0x39caec…39cc80 Dummy {f00=0x0122, f01=0x0190, f02=»HTAB CLEAR LENGTH | PDWT160 RTN A14 RETURN P =6 8 P IFT DC=1 F P EJECT X < P******************************************************* f < P* * < P* B:CNA BUILD COMPUTER NETWORK
0x39cc80…39ce14 (5, 36) Dummy {f00=0x0123, f01=0x018e, f02=» * f < P* SCANS POSSIBLE D-BLOCK IN CONFIGURATION DATA * < P* AND BUILDS DATA COMMUNICATION TABLE IN MEMORY. * V < P* TABLE START IS DEFINED BY THE POINTER SCTDCT * < P* IN SYSTAB.
0x39ce14…39cfa8 Dummy {f00=0x0123, f01=0x0190, f02=» V < P* * < P* REFERENCED IN: CONMON * H < P* SUBROUTINES CALLED: GETDTE, P:DTE * < P* WORK REGISTERS: A1-A12 * < P
0x39cfa8…39d13c Dummy {f00=0x0123, f01=0x0190, f02=» P PB:CNA EQU * P LD A11,DCBLK+STKCOM $ * P RF(Z) B:CN20 NO DATA COMMUNICATION =1 @ P* n < P AD A11,CONSTA+STKCOM GET D BLOCK ADDRESS IN CONF. DATA x * P LD A12,SCTSFA GET START OF FREE AREA ( P ST A12,SCTDCT UPDATE SYSTAB POINT
0x39d13c…39d2d0 Dummy {f00=0x0123, f01=0x0190, f02=»F SDTE RECORD r PB:CN00 EQU * P SUK A1,1 * 2 P RF(N) B:CN10 NO DTE BLOCKS LEFT IN CONF. DATA < P* r . P ST A1,NUMDTE+STKEND SAVE NO OF DTE:S LEFT | , P ADKL A11,5 ADVANCE TO 1ST CHAR. IN NAME & P CALL P:DTE PROCESS THIS DTE BLOCK 2 P
0x39d2d0…39d464 Dummy {f00=0x0123, f01=0x0190, f02=»QU * P CM 0,A12 AND RESET IT P ADKL A12,2 * , P ST A12,SCTSFA UPDATE START OF FREE AREA > PB:CN20 EQU * =1 n P RTN A14 P EJECT < P******************************************************* < P*
0x39d464…39d5f8 Dummy {f00=0x0123, f01=0x018e, f02=»======== * f < P* * < P* SCANS DTE BLOCK IN CONF. DATA AND BUILDS CORRE- * V < P* SPONDING DTE-BLOCK IN SCTDCT. IF MULTIPLE COPIES * < P* ARE DEFINED CURRENT DTE IS DUPLICATED THE NO O
0x39d5f8…39d78c Dummy {f00=0x0123, f01=0x0190, f02=» V < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * < P* SDTE NAME IN CONF. DATA * H < P* A12 POINTER TO START OF CURRENT * < P* DTE BLOCK IN SCTDCT TABLE * < P
0x39d78c…39d920 Dummy {f00=0x0123, f01=0x0190, f02=» PROCESSED DTE-BLOCK IN CONF. DATA * < P* A12 POINTER TO LAST DEFINED DTE-BLOCK * 8 < P* DEFINED IN SCTDCT TABLE * x < P* * < P* REFERENCED I
0x39d920…39dab4 (5, 37) Dummy {f00=0x0123, f01=0x0190, f02=» AND MOVE * x < P* * ( < P******************************************************* h P P PP:DTE EQU * * P LDKL A1,/3000 INITIALIZE NAME FILLER , P LC A1
0x39dab4…39dc48 Dummy {f00=0x0123, f01=0x0190, f02=»PE RECORD? x P RF(E) PDTE00 YES! P* , & P SLL A1,8 NO LEFT ADJUST CHAR. AND 6 $ P LC A1,1,A11 GET NEXT CHARACTER ` P ADKL A11,1 PPDTE00 EQU * , P ST A1,DTENAM+STKEND SAVE NAME IN STACK " P CALL GETCOP GET NO OF COPIES " P S
0x39dc48…39dddc Dummy {f00=0x0123, f01=0x0190, f02=»ER t P LC A1,2,A11 & P ST A1,DTETYP+STKEND SAVE IN STACK P ADKL A11,2 H ( P LDK A2,0 RESET NETWORK ADDR. LENGTH P CALL ENDBLK END OF D-BLOCK? P LDR A8,A8 P RF(Z) PDTE05 YES! P* . P LC A7,NANSA,A11 GET NA-NSA-SDTE QUALI
0x39dddc…39df70 Dummy {f00=0x0123, f01=0x0190, f02=»T A11,NASTRT+STKEND SAVE ADDRESS & P CALL P:NA PROCESS NETWORK ADDRESS ! ( P LC A7,2,A11 ! R PPDTE05 EQU * ! f * P ST A2,NALNG+STKEND SAVE LENGTH OF NA ! z P LDK A1,0 ! P CALL ENDBLK END OF D-BLOCK? ! P LDR A8,A8 ! P RF(Z) PDTE07 YES! !
0x39df70…39e104 Dummy {f00=0x0123, f01=0x0190, f02=»TNSA ! * P ADKL A11,2 SKIP NSA NR IN CONF. DATA " PPDTE07 EQU * " : 2 P ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. DEF. " N $ P CWK A1,/FF LOOK IF LEGAL NUMBER " P RF(NG) PDTE10 YES! " P* " PNSAERR EQU * " * P LDKL A1,LMP4 NO, ERROR IN CONF. F
0x39e104…39e298 Dummy {f00=0x0123, f01=0x0190, f02=»END SAVE ADDR. OF 1ST SUBADDR. " ~ P SLL A1,1 # & . P ADR A11,A1 CALCULATE STAT OF NEXT RECORD # 8 PPDTE15 EQU * # j 2 P CALL DTESIZ CALCULATE SIZE OF THIS DTE BLOCK # ~ ( P CALL UPDDTE UPDATE DTE BLOCK IN DCT # * P LD A7,DTECOP+STKEND GET NO OF COPIES #
0x39e298…39e42c Dummy {f00=0x0123, f01=0x0190, f02=» * P LD A4,DTENAM+STKEND GET PREVIOUS NAME $ P LDR A3,A4 $ 2 * P ANK A3,/FF ISOLATE RIGHT BYTE OF NAME $ D P CWK A3,/5F UPPER BOUNDARY? $ r P RF(L) PDTE25 NO! $ P* $ , P LC A4,/30 RESET RIGHT BYTE TO ASCII '0' $ & P SLL A5,8 LEFT BYTE INCREMENTA
0x39e42c…39e5c0 Dummy {f00=0x0123, f01=0x0190, f02=»OCK? $ x P LDR A8,A8 % P RF(Z) PDTE35 YES! % P* % 8 . P LC A1,2,A11 GET 2ND CHAR. IN NEXT RECORD % B 0 P CCK A1,'DD' IF A SDTE-RECORD USE OLD ADDR. % t P RF(E) PDTE35 % P* % P CCK A1,'SS' IF NSA RECORD % * P RF(E) PDTE30 USE OLD NETWORK
0x39e5c0…39e754 (5, 38) Dummy {f00=0x0123, f01=0x0190, f02=»RESS % r * P ST A2,NALNG+STKEND SAVE LENGTH OF NA & P* & : P CALL ENDBLK END OF D-BLOCK? & D P LDR A8,A8 & h P RF(Z) PDTE35 YES! & z P* & P LC A1,2,A11 & P CCK A1,'SS' & ( P RF(NE) PDTE35 NO NSA RECORD PRESENT & P* & PPDTE30 EQU *
0x39e754…39e8e8 Dummy {f00=0x0123, f01=0x018e, f02=»2 & P LDR A1,A1 ' P RF(Z) PDTE35 NO SUBADDRESSE ' P* ' @ P CWK A1,/FF ' J , P RB(G) NSAERR TOO MANY SUBADDR. DEFINED ' ^ P* ' 4 P ST A11,NSAADR+STKEND SAVE START OF 1ST SUBADDR. ' P SLL A1,1 ' . P ADR A11,A1 CALCULATE START OF NEXT RE
0x39e8e8…39ea7c Dummy {f00=0x0123, f01=0x0190, f02=» P CALL UPDDTE ( P RB PDTE20 ( P* ( * PPDTE40 EQU * ( 4 P RTN A14 ( H P EJECT ( X < P******************************************************** ( f < P* * ( < P* DTESIZ CALCULATES THE LENGTH
0x39ea7c…39ec10 Dummy {f00=0x0123, f01=0x018e, f02=» * ( f < P* ON ENTRY: A12 START OF CURRENT DTE BLOCK * ) < P* * ) V < P* WORK REGISTER: A1,A9 * ) < P*
0x39ec10…39eda4 Dummy {f00=0x0123, f01=0x0190, f02=» ) z 6 P LD A1,NALNG+STKEND GET LENGTH OF NETWORK ADDRESS * P ADK A1,1 * B $ P SRL A1,1 2 DIGITS IN EACH BYTE * T , P AD A1,DTENSA+STKEND ADD NO OF SUBADDR. * | . P ADK A1,DTEFIX+1 AND LENGTH OF FIX PART+1 * P ANKL A1,/FFFE MAKE EVEN * ( P ADR A1,A1
0x39eda4…39ef38 Dummy {f00=0x0123, f01=0x0190, f02=»1,LIMIT+STKEND GET END OF SYSTEM AREA * " P CALL CMPADR MEMORY OVERFLOW? + . P RF(NL) DTSIZ0 NO! + T P* + n P LDKL A1,LMP3 YES! + x P CALL ERROR + P* + PDTSIZ0 EQU * + 6 P LD A11,WRK1+STKEND RESTORE POSITION IN CONF. DATA + P RTN A14 +
0x39ef38…39f0cc Dummy {f00=0x0123, f01=0x0190, f02=» * + < P* UPDDTE UPDATES CURRENT DTE BLOCK WITH ITS: * , < P* ====== * , L < P* NAME * , < P* TYPE * ,
0x39f0cc…39f260 Dummy {f00=0x0123, f01=0x0190, f02=» * , < P******************************************************** - < P - | P - PUPDDTE EQU * - 4 P LDR A6,A12 GET START OF CURRENT DTE BLOCK ENTRY - P ADK A6,2 SKIP LINK ENTRY - , P LD A1,DTENAM+
0x39f260…39f3f4 (5, 39) Dummy {f00=0x0123, f01=0x0190, f02=» P STR A1,A6 AND SAVE IN DCT . P ADK A6,2 . & P LDK A5,4 GET NO OF SHIFTS . 8 . P ORKL A5,SLL0 AND CONFIG. SLL A1,8 INSTR. . Z 4 P LD A2,NALNG+STKEND GET LENGTH OF NETWORK ADDR. . $ P LDR A3,A2 SAVE NO OF CHARACTERS . P SLL A2,8 LEFT ADJUST . ,
0x39f3f4…39f588 Dummy {f00=0x0123, f01=0x0190, f02=»D PACK NA TO DCT . | $ P ANKL A5,/1F ISOLATE SHIFT COUNT / & P CWK A5,4 LESS THAN ONE BYTE LEFT? / @ P RF(NG) UPDTE2 YES! / j PUPDTE0 EQU * / P LDK A5,0 SET NO OF SHIFTS / P RF UPDTE4 / P* / PUPDTE2 EQU * / P STR A2,A6 STORE WORD IN DCT
0x39f588…39f71c Dummy {f00=0x0123, f01=0x0190, f02=» ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. / 4 P LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED 0 0 & P RF(Z) UPDTE8 NO SUBADDR. DEFINED 0 h P* 0 4 P LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR. 0 P LDR A3,A1 0 * P SLL A3,1 2 DIGITS FOR EACH SUDADD
0x39f71c…39f8b0 Dummy {f00=0x0123, f01=0x0190, f02=» 0 P STR A2,A6 YES! SAVE IN DCT 1 P LDK A2,0 CLEAR TABLE WORD 1 , " P ADK A6,2 ADVANCE DCT POINTER 1 N P LDK A5,16 NO OF SHIFTS 1 t , P ORKL A5,SLL0 CONFIGURE SLL A1,12 INSTR. 1 PUPDTE6 EQU * 1 P SUK A5,4 NEXT NIBBLE 1 ( P CALL HEXCPY COPY
0x39f8b0…39fa44 Dummy {f00=0x0123, f01=0x018e, f02=»************** 1 f < P* * 2 < P* HEXCPY COPIES AND PACKS 4 HEXADECIMAL DIGITS * 2 V < P* IN ONE WORD. * 2 < P*
0x39fa44…39fbd8 Dummy {f00=0x0123, f01=0x0190, f02=» 2 V < P* A4 ADDRESS TO FIRST ASCII DIGIT * 3 < P* A5 PACKING INSTR. (SLL A1,N TIMES) * 3 H < P* A6 POINTER WHERE TO STORE PACKED WORD * 3 < P* * 3 < P
0x39fbd8…39fd6c Dummy {f00=0x0123, f01=0x0190, f02=» PROCESSED DIGIT * 3 < P* A5 PACKING INSTR. (SLL A1,N TIMES) * 4 8 < P* A6 POINTER WHERE TO STORE NEXT WORD * 4 x < P* * 4 < P****************
0x39fd6c…39ff00 Dummy {f00=0x0123, f01=0x0190, f02=» 4 v P CALL HEXCNV CONVERT TO HEX 5 P EXR A5 SHIFT 5 , " P ORR A2,A1 CONFIGURE DCT WORD 5 B ( P SUK A3,1 DECREMENT NO OF CHARACTERS 5 h $ P RF(Z) HXCPY8 WHOLE NA PROCESSED 5 P* 5 P CWK A5,SLL0 FULL WORD? 5 P RF(NE) HXCPY6 NO! 5 P* 5
0x39ff00…3a0094 (5, 40) Dummy {f00=0x0124, f01=0x0190, f02=» 5 x , P ORKL A5,SLL0 CONFIGURE SSL A1,16 INSTR. 6 PHXCPY6 EQU * 6 8 P SUK A5,4 NEXT NIBBLE 6 L * P ADK A4,1 NEXT CHARACTER IN CONF. DATA 6 j P RB HEXCPY 6 P* 6 PHXCPY8 EQU * 6 P RTN A14 6 P EJECT 6 < P**********************************
0x3a0094…3a0228 Dummy {f00=0x0124, f01=0x018e, f02=»N ASCII CODE * 6 f < P* TO CORRESPONDING HEXADECIMAL VALUE * 7 < P* (4 BITS BINARY CODE) * 7 V < P* * 7 < P* ON ENTRY: A1 CHARACTER TO CONVERT
0x3a0228…3a03bc Dummy {f00=0x0124, f01=0x0190, f02=» 7 V < P* * 8 < P******************************************************** 8 H P 8 P 8 PHEXCNV EQU * 8 " P ANK A1,/FF ISOLATE CHARACTER 8 P CWK A1,/29 8 P RF(L) TYPERR ERRANEOUS TY
0x3a03bc…3a0550 Dummy {f00=0x0124, f01=0x0190, f02=» CWK A1,/46 DIGIT BETWEEN A-F? 8 P RF(G) TYPERR NO 9 & P* 9 > P ADK A1,9 YES! 9 H PHXCN00 EQU * 9 ^ " P ANK A1,/F ISOLATE HEX NUMBER 9 r P RTN A14 9 P* 9 PTYPERR EQU * 9 " P LDKL A1,LMP4 CONF. DATA ERROR 9 P CALL ERROR 9 P EJECT 9
0x3a0550…3a06e4 Dummy {f00=0x0124, f01=0x0190, f02=» P:NA PROCESS NETWORK ADDRESS * 9 < P* * : > < P* SCANS THE NETWORK ADDRESS RECORD (NA=..) IN CONF. * : ~ < P* DATA AND REPACKS THE RECORD, OVERWRITING POSSIBLE * : < P* CONTIN
0x3a06e4…3a0878 Dummy {f00=0x0124, f01=0x0190, f02=» * : ~ < P* * ; . < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN NETWORK * ; n < P* ADDRESS. * ; < P*
0x3a0878…3a0a0c Dummy {f00=0x0124, f01=0x0190, f02=»ORD IN CONF. DATA * ; n < P* * < < P******************************************************** < ^ P < P < PP:NA EQU * < $ P LDK A4,1 RESET PACKING CONSTANT < " P LDK A2,0 RESET ADDRESS
0x3a0a0c…3a0ba0 Dummy {f00=0x0124, f01=0x0190, f02=»:NA06 END OF CONF. DATA < P* = P CCK A1,/FF END OF D-BLOCK? = * P RF(E) P:NA05 YES! = N P* = h & P CCK A1,'==' CONTINUATION RECORD? = r P RF(E) P:NA04 YES! = P* = . P CCK A1,'NN' NO! START OF NA OR NSA RECORD = P RF(E) P:NA06 YES! RET
0x3a0ba0…3a0d34 (5, 41) Dummy {f00=0x0124, f01=0x0190, f02=»H = l P CWK A2,/FF TOO MANY DIGITS? > P RF(NG) P:NA02 NO! > . P* > H * P LDKL A1,LMP4 YES! ERROR IN CONF. DATA > R P CALL ERROR > PP:NA02 EQU * > P LDR A3,A4 > " P ADR A3,A11 REPACKING ADDRESS > * P SCR A1,A3 PUT CHARACTER BACK IN FILE >
0x3a0d34…3a0ec8 Dummy {f00=0x0124, f01=0x0190, f02=»R > d $ P SUK A4,2 SET REPACKING CONSTANT ? * P ADKL A11,1 ADVANCE TO NEXT CHARACTER ? 2 P RB P:NA00 ? ` P* ? r PP:NA05 EQU * ? | " P SUK A2,1 DECREMENT NA LENGTH ? * P SUKL A11,1 AND POSITION IN CONF. DATA ? P* ? PP:NA06 EQU * ? P RTN A
0x3a0ec8…3a105c Dummy {f00=0x0124, f01=0x0190, f02=» * ? h < P* ENDBLK LOOKS FOR END OF DATA COMMUNICATION BLOCK * @ < P* ================================================= * @ X < P* * @ < P* END OF BLOCK IS DEFINED BY A RECORD BEGINNIN
0x3a105c…3a11f0 Dummy {f00=0x0124, f01=0x0190, f02=» @ X < P* CONFIGURATION DATA. * A < P* * A H < P* ON ENTRY: A11 CURRENT POSITION IN CONF. DATA * A < P* * A < P
0x3a11f0…3a1384 Dummy {f00=0x0124, f01=0x0190, f02=» * A < P******************************************************** B 8 P B x P B PENDBLK EQU * B $ P LC A8,1,A11 GET NEXT CHARACTER B " P CCK A8,/00 END OF CONF. DATA? B P RF(E) ENDBL0 YES! B P* B
0x3a1384…3a1518 Dummy {f00=0x0124, f01=0x018e, f02=»8,A8 SET END OF D-BLOCK COND. B PENDBL2 EQU * C & P RTN A14 C : P XIF C J P EJECT C V 2 P********************************************* C d 2 P* I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * C 2 P********************************************* C P*
0x3a1518…3a16ac Dummy {f00=0x0124, f01=0x0190, f02=» C j * P* A6 - LINE CONNECTION NUMBER D P* D 6 * P* EXIT: A6 - CHANNEL PARAMETER - 1 D @ * P* A5 - CHANNEL PARAMETER - 2 D n . P* A3 - BITS 12-15 CONNECTION TYPE D * P* BITS 4 -11 LINE NUMBER D P* WORK REGI
0x3a16ac…3a1840 Dummy {f00=0x0124, f01=0x0190, f02=» P RF(G) NUMERR NO! E $ P CWK A6,1 CONNECTION NUMBER >=1? E P RF(L) NUMERR NO! E F , P SUK A6,1 MODIFY LINE CONNECTION NUMBER E ` 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT E $ P ANK A5,/3F CLEAR BITS TO MODIFY E 0 P LDR A3,A6 GET MODIFY LINE C
0x3a1840…3a19d4 (5, 42) Dummy {f00=0x0124, f01=0x0190, f02=»TYPE SALCUZ E r P RTN A14 RETURN F P XIF F , P IFT SALCUZ=0 F 8 P LDKL A1,LMP4 F N P CALL ERROR F d P XIF F x P EJECT F : P***************************************************** F 2 P* I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * F : P**
0x3a19d4…3a1b68 Dummy {f00=0x0124, f01=0x018e, f02=»TO PROTOTYPE DWT F x ( P* A2 - POINTER TO REAL DWT G ( P* A4 - LINE CONNECTION TYPE G D * P* A6 - LINE CONNECTION NUMBER G p P* G * P* EXIT: A6 - CHANNEL PARAMETER - 1 G * P* A5 - CHANNEL PARAMETER - 2 G . P*
0x3a1b68…3a1cfc Dummy {f00=0x0124, f01=0x018e, f02=» P* SUBROUTINES: H P* H PI:CHAZ EQU * H & P IFF ASCU4Z=0 H : & P CWK A6,32 CONNECTION NUMBER <=32? H P P RF(G) NUMERR NO! H z $ P CWK A6,1 CONNECTION NUMBER >=1? H P RF(L) NUMERR NO! H , P SUK A6,1 MODIFY LINE CONNECTION NUMBER H 0 P L
0x3a1cfc…3a1e90 Dummy {f00=0x0124, f01=0x018e, f02=» H b P ANK A3,3 GET BITS 14-15 I & P SLL A3,8 MOVE TO BITS TO BITS 6-7 I ( & P ORR A5,A3 MERGE WITH OLD CONTENTS I R 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER I | P SLL A3,4 I , P ANK A6,/1C GET BITS 11-13 BOARD NUMBER I P SRL A6,2 MOVE TO BI
0x3a1e90…3a2024 Dummy {f00=0x0124, f01=0x0190, f02=» P IFT ASCU4Z=0 J P LDKL A1,LMP4 J P CALL ERROR J 0 P XIF J D P EJECT J P : P***************************************************** J ^ 2 P* I:CHAZ - INIT CHANNEL PARAMETERS VCCU1/4 * J : P*****************************************************
0x3a2024…3a21b8 Dummy {f00=0x0124, f01=0x0190, f02=»EAL DWT J t ( P* A4 - LINE CONNECTION TYPE K * P* A6 - LINE CONNECTION NUMBER K < P* K j * P* EXIT: A6 - CHANNEL PARAMETER - 1 K t * P* A5 - CHANNEL PARAMETER - 2 K . P* A3 - BITS 12-15 CONNECTION TYPE K * P*
0x3a21b8…3a234c Dummy {f00=0x0124, f01=0x0190, f02=» P IFF VIDEO=0 L & P CWK A6,32 CONNECTION NUMBER <=32? L P RF(G) NUMERR NO! L B $ P CWK A6,1 CONNECTION NUMBER >=1? L P RF(L) NUMERR NO! L , P SUK A6,1 MODIFY LINE CONNECTION NUMBER L 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT L $ P ANK A
0x3a234c…3a24e0 Dummy {f00=0x0124, f01=0x0190, f02=»BITS TO BITS 6-7 L ~ & P ORR A5,A3 MERGE WITH OLD CONTENTS M 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER M B P SLL A3,4 M x , P ANK A6,/1C GET BITS 11-13 BOARD NUMBER M P SRL A6,2 MOVE TO BITS 12-15 M * P ADK A3,7 ADD CONNECTION TYPE VCCU1/4 M
0x3a24e0…3a2674 (5, 43) Dummy {f00=0x0124, f01=0x0190, f02=» M P XIF N P EJECT N . P****************************************** N " . P* I:CHPC - INIT CHANNEL PARAMETERS PLC * N T . P****************************************** N P* N P* REFERENCED IN: DWTGEN N P* N , P* ENTRY: A1 - POINTER TO P
0x3a2674…3a2808 Dummy {f00=0x0124, f01=0x0190, f02=»CHANNEL PARAMETER - 1 N * P* A5 - CHANNEL PARAMETER - 2 O . P* A3 - BITS 12-15 CONNECTION TYPE O L * P* BITS 4 -11 LINE NUMBER O ~ P* O P* WORK REGISTERS: O P* SUBROUTINES: O P* O PI:CHPC EQU * O P I
0x3a2808…3a299c Dummy {f00=0x0124, f01=0x0190, f02=»UMERR NO! O P SUK A6,1 P 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT P $ $ P ANK A5,/3F CLEAR BITS TO MODIFY P X * P LDR A3,A6 GET LINE CONNECTION NUMBER P P ANK A3,/1F GET BITS 11 - 15 P P ADK A3,1 P P SLL A3,8 MOVE TO BITS 2 - 7 P & P
0x3a299c…3a2b30 Dummy {f00=0x0124, f01=0x0190, f02=» P r & P ADK A3,5 ADD CONNECTION TYPE PLC Q , P ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER Q 2 " P SRL A6,5 MOVE TO BITS 12 - 15 Q b * P ADKL A6,/0500 ADD CONNECTION TYPE PLC Q P RTN A14 Q P XIF Q P IFT PLCL=0 Q P LDKL A1,LMP4 Q P CALL ERROR
0x3a2b30…3a2cc4 Dummy {f00=0x0124, f01=0x0190, f02=»******************************* Q * R ( * REFERENCED IN: DWTGEN R 2 * R R , (* ENTRY: A1 - POINTER TO PROTOTYPE DWT R ( #* A2 - POINTER TO REAL DWT R * &* A6 - LINE CONNECTION NUMBER R * R * P* EXIT: A6 - CHANNEL
0x3a2cc4…3a2e58 Dummy {f00=0x0124, f01=0x0190, f02=»TS 4-11 LINE NUMBER R ~ * S P* WORK REGISTERS: S & * S @ * SUBROUTINES: S J * S b EJECT S l PI:CHLT EQU * S z P IFF SUML=0 S * P CWK A6,0032 CONNECTION NUMBER <= 32? S P RF(G) NUMERR NO! S ( P CWK A6,0001 CONNECTION NUMBER
0x3a2e58…3a2fec Dummy {f00=0x0124, f01=0x0190, f02=» ( P ANKL A5,/003F CLEAR BITS TO MODIFY T 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER T 0 P ANK A3,7 GET BITS 13-15 T f P SLL A3,8 MOVE TO BITS 5-7 T & P ORR A5,A3 MERGE WITH OLD CONTENTS T 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER T P
0x3a2fec…3a3180 Dummy {f00=0x0124, f01=0x0190, f02=» LDKL A1,LMP4 T P CALL ERROR U P XIF U * P EJECT U 6 . P***************************************** U D . P* I:CHRT - INIT CHANNEL PARAMETERS RT * U v . P***************************************** U P* U P* REFERENCED IN: DWTGEN U P* U
0x3a3180…3a3314 (5, 44) Dummy {f00=0x0125, f01=0x0190, f02=» U j P* V * P* EXIT: A6 - CHANNEL PARAMETERS - 1 V * P* A5 - CHANNEL PARAMETERS - 2 V @ . P* A3 - BITS 12-15 CONNECTION TYPE V n * P* BITS 4-11 LINE NUMBER V P* V P* WORK REGISTERS: V P* V P* SUBROUTIN
0x3a3314…3a34a8 Dummy {f00=0x0125, f01=0x0190, f02=»NO! V ( P CWK A6,0001 CONNECTION NUMBER >=1? W P RF(L) NUMERR NO! W 8 , P SUK A6,1 MODIFY LINE CONNECTION NUMBER W R 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT W ( P ANKL A5,/003F CLEAR BITS TO MODIFY W 2 P LDR A3,A6 GET MODIFIED LINE CONNECTIO
0x3a34a8…3a363c Dummy {f00=0x0125, f01=0x0190, f02=»ET MODIFIED LINE CONNECTION NUMBER W P SLL A3,4 X * $ P ADK A3,1 ADD CONNECTION TYPE RT X < P ANK A6,/C GET BITS 12-13 X d P SRL A6,2 MOVE TO BITS 14-15 X * P ADKL A6,/0100 ADD CONNECTION TYPE RT X P RTN A14 X P XIF X PNUMERR EQU * X ( P
0x3a363c…3a37d0 Dummy {f00=0x0125, f01=0x0190, f02=»********** X l 2 .* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE * Y 2 .********************************************** Y H * Y ~ * REFERENCED IN: DWTGEN Y * Y * &* ENTRY: SCTSFA - START OF FREE AREA Y * Y , P* EXIT: REAL TIME INTERRUP
0x3a37d0…3a3964 Dummy {f00=0x0125, f01=0x0190, f02=» EQU * BUILD REAL-TIME INTERRUPT TABLES Y P* Z 0 . P* BUILD REAL-TIME INTERRUPT TABLES FOR LT Z : P* Z l P XIF Z v PB:ITLT EQU * Z P IFF SUML=0 Z $ P LDKL A8,0 CONNECTION TYPE = LT Z P LDKL A9,7 1:ST BOARD Z . P LDK A1,16 MAX.LENGTH OF
0x3a3964…3a3af8 Dummy {f00=0x0125, f01=0x0190, f02=»EAR Z ~ PBIT10 EQU * [ P CALL B:BTAB [ P CALL B:LTAB [ 4 * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB [ H " P LD A2,STKEND+WRK3 ANY LINES? [ v P RF(Z) BIT15 NO! [ P CM STKEND+WRK3 CLEAR [ : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE
0x3a3af8…3a3c8c Dummy {f00=0x0125, f01=0x0190, f02=» ST A9,STKEND+WRK1 STORE [ P ADKL A9,7 NEXT BOARD P CWK A9,31 LAST BOARD? > P RF(G) B:ITRT YES! P RB BIT10 v P XIF P EJECT P* . P* BUILD REAL-TIME INTERRUPT TABLES FOR RT P* PB:ITRT EQU * P IFF SUMR=0
0x3a3c8c…3a3e20 Dummy {f00=0x0125, f01=0x0190, f02=»TKEND+WRK4 SAVE P CM STKEND+WRK1 CLEAR ] P CM STKEND+WRK2 CLEAR ] 6 P CM STKEND+WRK3 CLEAR ] T PBRT10 EQU * ] r P CALL B:BTAB ] P CALL B:LTAB ] * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB ] " P LD A2,STKEND+WRK3 ANY LINES? ] P RF(Z)
0x3a3e20…3a3fb4 (5, 45) Dummy {f00=0x0125, f01=0x0190, f02=» PBRT15 EQU * ^ P ADK A1,2 ^ & P ST A1,STKEND+WRK2 STORE NEW INDEX ^ * P ADKL A9,1 ^ T P ST A9,STKEND+WRK1 STORE ^ f P ADKL A9,3 NEXT BOARD ^ P CWK A9,15 LAST BOARD? ^ P RF(G) B:ITPC YES! ^ P RB BRT10 ^ P XIF ^ P EJECT ^ P
0x3a3fb4…3a4148 Dummy {f00=0x0125, f01=0x018e, f02=» = PLC ^ v P LDKL A9,32 1:ST BOARD _ 0 P LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2 _ , P ST A1,STKEND+WRK4 _ ` P LDK A1,1 =2 _ z P ST A1,STKEND+WRK1 =2 _ P CM STKEND+WRK2 CLEAR _ P CM STKEND+WRK3 CLEAR _ PBPC10 EQU * _ P CALL B:BT
0x3a4148…3a42dc Dummy {f00=0x0125, f01=0x018e, f02=» P CM STKEND+WRK3 ` B P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE ` P ST A2,INTPL1,A1 SAVE ` b PBPC15 EQU * ` P ADK A1,2 ` & P ST A1,STKEND+WRK2 STORE NEW INDEX ` P ADKL A9,1 ` P ST A9,STKEND+WRK1 ` P ADKL A9,31
0x3a42dc…3a4470 Dummy {f00=0x0125, f01=0x0190, f02=» 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR VCCU1/4 a P* a : PB:ITVU EQU * a D P IFF VIDEO=0 a X ( P LDKL A8,7 CONNECTION TYPE = VCCU1/4 a l P LDKL A9,3 1:ST BOARD a . P LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE a P ST A1,STKEND+WRK4 SAVE a P
0x3a4470…3a4604 Dummy {f00=0x0125, f01=0x0190, f02=»B:LTAB a * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB b " P LD A2,STKEND+WRK3 ANY LINES? b < P RF(Z) BVU15 NO! b b P CM STKEND+WRK3 CLEAR b z : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE b P ST A2,INTVU1,A1 SAVE b PBVU15 EQU * b P
0x3a4604…3a4798 Dummy {f00=0x0125, f01=0x0190, f02=» P CWK A9,31 LAST BOARD? c P RF(G) B:ITSZ YES! c " P RB BVU10 c < P XIF c N P c Z P EJECT c b P* c p 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR SALCUZ c z P* c PB:ITSZ EQU * c P IFF SALCUZ=0 c ( P LDKL A8,2 CONNECTION TYPE = SALCUZ
0x3a4798…3a492c Dummy {f00=0x0125, f01=0x0190, f02=» c z P CM STKEND+WRK2 CLEAR d P CM STKEND+WRK3 CLEAR d & PBSZ10 EQU * d D P CALL B:BTAB d X P CALL B:LTAB d l * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB d " P LD A2,STKEND+WRK3 ANY LINES? d P RF(Z) BSZ15 d P CM STKEND+WRK3 d : P LD A2,S
0x3a492c…3a4ac0 Dummy {f00=0x0125, f01=0x0190, f02=»WRK2 STORE NEW INDEX d P ADKL A9,1 e P ST A9,STKEND+WRK1 e . P CWK A9,7 LAST BOARD? e H P RF(G) B:ITAZ YES! e f P RB BSZ10 e P XIF e P EJECT e P* e 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR ASCU4Z e P* e PB:ITAZ EQU * e
0x3a4ac0…3a4c54 (5, 46) Dummy {f00=0x0125, f01=0x0190, f02=»BLE e j P ST A1,STKEND+WRK4 f P CM STKEND+WRK1 CLEAR f & P CM STKEND+WRK2 CLEAR f D P CM STKEND+WRK3 CLEAR f b PBAZ10 EQU * f P CALL B:BTAB f P CALL B:LTAB f * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB f P LD A2,STKEND+WRK3 ANY LINES f
0x3a4c54…3a4de8 Dummy {f00=0x0125, f01=0x0190, f02=» SAVE f PBAZ15 EQU * g P ADK A1,2 g " & P ST A1,STKEND+WRK2 STORE NEW INDEX g 4 P ADKL A9,1 g ^ P ST A9,STKEND+WRK1 g p P ADKL A9,3 NEXT BOARD g P CWK A9,31 LAST BOARD? g P RF(G) BAZ20 YES! g P RB BAZ10 g PBAZ20 EQU * g P X
0x3a4de8…3a4f7c Dummy {f00=0x0125, f01=0x0190, f02=» GENERAL SUBROUTINES * g T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= h 2 h h h 8 4**************************************************** h 8 4* GETTSK - GET NUMBER OF TASKS IN A TASK
0x3a4f7c…3a5110 Dummy {f00=0x0125, f01=0x0190, f02=»************ h h * i " P* REFERENCED IN: B:TCT,B:CDT i * i D > :* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK i N * i F A* EXIT: A1 - NUMBER OF TASKS IN THE TASK CLASS (BINARY VALUE) i * i * WORK REGISTERS: A5 i
0x3a5110…3a52a4 Dummy {f00=0x0125, f01=0x0190, f02=»D i h . PGETCOP EQU * GET NO OF COPIES OF LAST DTE j 0 PGETNSA EQU * GET NO OF SUBADDRESSES DEFINED j < P LC A5,TDBNT,A11 j p SLL A5,8 j P LC A5,TDBNT+1,A11 j CALL CONVRT j RTN A14 j EJECT j 8 4**********************************
0x3a52a4…3a5438 Dummy {f00=0x0125, f01=0x0190, f02=»** j ^ * k * REFERENCED IN: B:TT k * k 4 > :* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK k > * k D @* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE) k * k * WORK REGISTERS: A5 k * k * S
0x3a5438…3a55cc Dummy {f00=0x0125, f01=0x0190, f02=» k RTN A14 l EJECT l 8 3*************************************************** l & 8 3* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * l b 8 3*************************************************** l * l * REFERENCED IN: B:TT l * l
0x3a55cc…3a5760 Dummy {f00=0x0125, f01=0x0190, f02=» l P * m * WORK REGISTERS: A5 m * m 0 * SUBROUTINES: CONVRT m : * m Z PGETSDC EQU * m d LCR A5,A9 m x P SLL A5,8 m LC A5,1,A9 m CALL CONVRT m RTN A14 m EJECT m 2 .**************************************
0x3a5760…3a58f4 (5, 47) Dummy {f00=0x0125, f01=0x0190, f02=» REFERENCED IN: B:TT m * n 6 2* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD n ( * n b > :* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) n l * n * WORK REGISTERS: A5 n * n * SUBROUTINES: CONVRT n * n
0x3a58f4…3a5a88 Dummy {f00=0x0125, f01=0x0190, f02=»CT n . )***************************************** o . )* GETLCN - GET LINE CONNECTION NUMBER * o < . )***************************************** o n * o * REFERENCED IN: B:DWTT o * o 8 3* ENTRY: A9 - POINTER TO CLASS DEFINITION RECOR
0x3a5a88…3a5c1c Dummy {f00=0x0125, f01=0x0190, f02=»UBROUTINES: CONVRT o * p PGETLCN EQU * p & * P STR A4,A15 SAVE REGISTER A4 ON STACK p : * P STR A6,A15 SAVE REGISTER A6 ON STACK p h & P LDR A6,A9 GET START OF TDC RECORD p 2 P ADK A6,TDCLCN ADDRESS LINE CONNECTION NUMBER p , P CALL GETNUM GET L
0x3a5c1c…3a5db0 Dummy {f00=0x0125, f01=0x0190, f02=»RE REGISTER A4 FROM STACK p ~ RTN A14 q " P EJECT q 2 : P***************************************************** q @ : P* * q ~ : P* GETTCL - GET TASK CLASS TO MATCH * q : P* ===========
0x3a5db0…3a5f44 Dummy {f00=0x0125, f01=0x0190, f02=» * q v : P* * r $ : P* ENTRY: A5 - TCL IN CURRENT TASK DEF. BLOCK * r b : P* * r : P* EXIT: A5 - TCL START VALUE FOR THIS TA
0x3a5f44…3a60d8 Dummy {f00=0x0125, f01=0x018e, f02=» r Z : P* * s : P* SUBROUTINES: GETTSK,NXTBLK * s F : P* * s : P***************************************************** s P s P
0x3a60d8…3a626c Dummy {f00=0x0125, f01=0x0190, f02=» s Z 6 P LD A11,STKEND+LCDSTA START OF CONFIGURATION DATA t 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? t B P RF(E) TCL:60 YES! t z . P LC A5,TDBMC+4,A11 GET FIRST CHAR. IN TCL t P SLL A5,8 MOVE TO LEFT BYTE t . P LC A5,TDBMC+5,A11 GET SECOND
0x3a626c…3a6400 Dummy {f00=0x0125, f01=0x018e, f02=» TCL t | 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK u P RB TCL:10 u @ , PTCL:60 LDR A5,A7 SAVE START VALUE OF TCL u R P RTN A14 u EJECT u . )***************************************** u . )* GETCON - GET CONTENT IN MEMORY WORD * u . )****
0x3a6400…3a6594 (5, 48) Dummy {f00=0x0126, f01=0x018e, f02=» . )* MMUOPT - MMU OPTION SWITCH (X) v * v 6 , (* EXIT: A1 - CONTENT OF MEMORY ADDRESS v @ * v p * WORK REGISTER: v z * v * SUBROUTINES: v * v PGETCON EQU * v " P LD A1,SCTOPT GET OPTION WORD v P ANK A1,1 MMU
0x3a6594…3a6728 Dummy {f00=0x0126, f01=0x018e, f02=» RTN A14 RETURN w P EJECT w . P****************************************** w * . P* B:TTAB - BUILD TEMP. INTERRUPT TABLE * w . P****************************************** w P* w P* REFERENCED IN: DWTGEN w P* w 4 P* ENTRY: INTTAB - S
0x3a6728…3a68bc Dummy {f00=0x0126, f01=0x0190, f02=» w f P* x P* EXIT: x P* x " P* WORK REGISTERS: x , P* x F PB:TTAB EQU * x P P* x d P* BUILD ONE BLOCK IN T.I.T. x n P* x , P LD A4,STKEND+INTTAB GET START OF T.I.T. x $ P LDR* A2,A4 GET NUMBER OF BLOCKS x P SUK A4,2 x P x
0x3a68bc…3a6a50 Dummy {f00=0x0126, f01=0x0190, f02=» x P RB TTA10 y P* y P* AREA TO BUILD BLOCKS y $ P* y B PTTA11 EQU * y L P LDR A2,A4 y ` P LD A3,STKEND+FWTFLG y r * P RF(P) TTA15 BUILD BLOCKS IN FREE AREA y P EJECT y P* y P* BUILD BLOCKS IN FWT AREA y P* y PTTA09 EQ
0x3a6a50…3a6be4 Dummy {f00=0x0126, f01=0x0190, f02=»E) TTA14 y P SUK A3,1 z P RF(Z) TTA20 z " P RB TTA12 z 6 PTTA14 EQU * z H P LD A2,STKEND+LIMIT z P* z x P* BUILD BLOCKS IN FREE AREA z P* z PTTA15 EQU * z P LDK A3,5 z PTTA16 EQU * z P SUK A2,2 z P CWR A2,A12
0x3a6be4…3a6d78 Dummy {f00=0x0126, f01=0x0190, f02=»L A1,LMP3 z P CALL ERROR { PTTA20 EQU * { & , P ST A5,-2,A4 STORE RUN TIME DWT-ADDRESS { : P LD A3,STKEND+CONTYP { j P ST A3,-4,A4 { PTTA30 EQU * { P ADK A2,4 { 0 P STR A2,A4 STRORE POINTER TO NEXT FREE BLOCK { P* { P* STORE NU
0x3a6d78…3a6f0c Dummy {f00=0x0126, f01=0x0190, f02=»****************************** { 2 P* B:BTAB - BUILD BOARD CONFIGURATION TABLE * | & 2 P********************************************** | P* | P* REFERENCED IN: B:ITAB | P* | " P* ENTRY: A8 - CONNECTION TYPE | P* A9 - BOARD NUMBER
0x3a6f0c…3a70a0 Dummy {f00=0x0126, f01=0x0190, f02=»K REGISTERS: A1,A2,A3,A10,A11,A12 | P* } * PB:BTAB EQU * } 4 : P LD A4,STKEND+WRK4 GET MAX LENGTH OF BOARD CONF.TABLE } H ( P CALL M:TST TEST IF MEMORY OVERFLOW? } , P LD A12,SCTSFA NO!GET START OF FREE AREA } P LDR A11,A12 SAVE } P ADKL A12,2
0x3a70a0…3a7234 (5, 49) Dummy {f00=0x0126, f01=0x0190, f02=»OF BLOCKS.ZERO? } x P ~ P SUKL A10,2 ~ P LDR A1,A1 ZERO? ~ 4 PBTA10 EQU * ~ L P RF(Z) BTA40 YES! ~ ` 6 P LD A2,-4,A10 GET LINE NUMBER AND CONNECTION TYPE ~ z P LDR A3,A2 SAVE ~ $ P ANK A3,/0F GET CONNECTION TYPE ~ P SUR A3,A8 RIGHT TYP
0x3a7234…3a73c8 Dummy {f00=0x0126, f01=0x018e, f02=» ~ PBTA30 EQU * " P ANKL A2,/0FFF GET LINE NUMBER , P SRL A2,4 SHIFT LINE NUMBER TO BITS 8-15 B P CWR A2,A9 THIS LINE TABLE? r P RB(G) BTA20 NO! P* P LD A3,STKEND+WRK1 P CWR A2,A3 P RB(L) BTA20 NO! P* & P*
0x3a73c8…3a755c Dummy {f00=0x0126, f01=0x0190, f02=» P SUK A3,1 =2 PBTA35 EQU * =2 P SUR A2,A3 2 P ADR A2,A2 D P LDR A12,A11 V P ADKL A12,2 j ( P ADR A12,A2 GET ENTRY IN BOARD TABLE ~ P STR A11,A12 STORE P RB BTA20 PBTA40 EQU * P* 2 P* COMPUTE LENGTH OF
0x3a755c…3a76f0 Dummy {f00=0x0126, f01=0x0190, f02=»ARD CONF. TABLE r P ADR A12,A1 PBTA50 EQU * , P LDR* A2,A12 @ P RF(NZ) BTA60 T P SUK A1,2 j P RF(Z) BTA70 | P SUKL A12,2 P RB BTA50 PBTA60 EQU * : P STR A1,A11 STORE LENGTH OF BOARD CONFIGURATION TABLE P
0x3a76f0…3a7884 Dummy {f00=0x0126, f01=0x0190, f02=»**************************************** 2 P* B:LTAB - BUILD LINE CONFIGURATION TABLES * 0 2 P********************************************** f P* P* REFERENCED IN: B:ITAB P* " P* ENTRY: WRK1 - BOARD NUMBER & P* A8 -
0x3a7884…3a7a18 Dummy {f00=0x0126, f01=0x0190, f02=»B:LTAB EQU * 8 P LDR* A1,A11 GET LENGTH OF BOARD CONFIGURATION TABLE P RF(Z) BLT70 P P LDKL A3,-1 LINE COUNTER d P RF BLT15 PBLT10 EQU * P SUK A1,2 DECREMENT LENGTH P RF(Z) BLT70 RETURN P* PBLT15 EQU * P L
0x3a7a18…3a7bac Dummy {f00=0x0126, f01=0x0190, f02=»URATION TABLE | P* P ADK A3,1 ADD LINE COUNTER P ADKL A11,2 B P LDR* A2,A11 READ LINE.ZERO? V P RB(Z) BLT10 YES! z P LDK A4,32 GET TEST LENGTH ( P CALL M:TST TEST IF MEMORY OVERFLOW? P* $ P* SCAN TEMPORARY INTERRUPT T
0x3a7bac…3a7d40 Dummy {f00=0x0126, f01=0x0190, f02=»2,1 =2 PBLT17 EQU * =2 P ADR A2,A3 ADD LINE NUMBER ( P SLL A2,4 J " P ADR A2,A8 ADD CONNECTION TYPE . P LD A10,STKEND+INTTAB GET START OF T.I.T. & P LDR* A4,A10 GET NUMBER OF BLOCKS P SUKL A10,2 PBLT20 EQU * 6 P L
0x3a7d40…3a7ed4 (5, 50) Dummy {f00=0x0126, f01=0x0190, f02=»WT-ADDRESS IN LINE CONFIGURATION TABLE ~ P* . * P LD A5,-2,A10 GET RUN TIME DWT-ADDRESS 8 P LDR A6,A5 f " P ANK A6,/0001 DOUBLE KEYBOARD? x P RF(Z) BLT25 N0! & P LD A6,DWTDEV,A5 GET DEVICE STATUS ( P ANK A6,/FF GET EIGHT RIGHTMOST BITS
0x3a7ed4…3a8068 Dummy {f00=0x0126, f01=0x0190, f02=»7 GET DEVICE ADDRESS PBLT26 EQU * P ADR A6,A6 0 P LDR A7,A12 SAVE B P ADR A7,A6 Z P LD A6,2,A7 ZERO? l P RF(Z) BLT27 YES! ( P LD A6,DWTST,A5 NO!GET DEVICE STATUS P ANK A6,/0040 INPUT DEVICE? P RF(Z) BLT28 NO! $ P
0x3a8068…3a81fc Dummy {f00=0x0126, f01=0x0190, f02=» TIME DWT-ADDRESS | & P ST A6,STKEND+FWTFLG STORE POINTER * P LD A5,-2,A10 GET RUM TIME DWT-ADDRESS D PBLT27 EQU * r * P ST A5,2,A7 STORE RUN TIME DWT-ADDRESS P RF BLT30 PBLT28 EQU * 2 P LD A6,STKEND+FWTFLG GET POINTER TO TEMP.AREA
0x3a81fc…3a8390 Dummy {f00=0x0126, f01=0x0190, f02=»0 GET NEXT BLOCK P SUK A4,1 LAST BLOCK? P RF(Z) BLT40 YES! 6 P RB BLT20 NO! P P* f D P* MOVE DWT-ADR.IN TEMP.AREA TO FREE LOCATIONS IN LINE CONF.TABLE p P* PBLT40 EQU * 2 P LD A6,STKEND+FWTFLG GET POINTER TO TEMP. AREA
0x3a8390…3a8524 Dummy {f00=0x0126, f01=0x0190, f02=» ADK A4,2 P LDR* A2,A4 P RF(Z) BLT42 & P RB BLT41 : PBLT42 EQU * L * P STR A5,A4 STORE RUN TIME DWT-ADDRESS ` P SUK A6,2 P RB BLT43 P* P* CLEAR TEMP.AREA P* PBLT45 EQU * 2 P LD A6,STKEND+FWTFLG
0x3a8524…3a86b8 Dummy {f00=0x0126, f01=0x018e, f02=»EMORY WORD ~ P SUK A6,2 DECREMENT POINTER P RB BLT46 6 P* H 0 P* COMPUTE LENGTH OF LINE CONFIGURATION TABLE R P* PBLT48 EQU * P LDR A2,A12 SAVE 2 P ADK A2,22 ADD. MAX LENGTH OF LINE CONF.TABLE P LDK A4,22 PBLT5
0x3a86b8…3a884c Dummy {f00=0x0126, f01=0x0190, f02=» PBLT60 EQU * 8 P STR A4,A12 STORE LENGTH OF LINE CONFIGURATION TABLE P ADKL A12,2 X J P STR A12,A11 STORE THE ADDRESS IN BOARD CONF.TABLE TO LINE CONF.TABLE l 4 P ADR A12,A4 A12 - START OF NEXT LINE CONF.TABLE 2 PBLT65 ST A12,SCTSFA ST
0x3a884c…3a89e0 Dummy {f00=0x0126, f01=0x0190, f02=»******************* ~ * P* M:TST - TEST IF MEMORY OVERFLOW * * P************************************* J P* x P* ENTRY: A4 - TEST LENGTH P* P* WORK REGISTERS: A2,A4 P* PM:TST EQU * $ P LD A2,SCTSFA START OF FREE
0x3a89e0…3a8b74 (5, 51) Dummy {f00=0x0126, f01=0x0190, f02=» LDKL A1,LMP3 P CALL ERROR MEMORY OVERFLOW PMTST20 EQU * : P CWR A2,A4 N P RB(NE) MTST10 ` P RTN A14 RETURN v EJECT B >************************************************************** B >* BINASC - CONVERT A BINARY NUMBER TO
0x3a8b74…3a8d08 Dummy {f00=0x0126, f01=0x0190, f02=»************************************************** * : * REFERENCED IN: B:DWTT D * f , (* ENTRY: A1 - BINARY NUMBER TO CONVERT p * $ P* EXIT: A1,A5 - ASCII OUTPUT * * WORK REGISTER: A2 * * S
0x3a8d08…3a8e9c Dummy {f00=0x0126, f01=0x0190, f02=»=2 P LDKL A5,/100 =2 PBIN:10 CWK A1,10 =2 $ P RF(L) BIN:20 =2 @ P SUK A1,10 =2 Z P ADK A5,/1 =2 p P RB BIN:10 =2 PBIN:20 ORKL A5,/3030 =2 P ORK A1,/30 =2 P SRC A5,8 =2 P LDR A2,A5 =2 P ANKL A2
0x3a8e9c…3a9030 Dummy {f00=0x0126, f01=0x0190, f02=»************************************** : P* * . : P* MMUINI - INIT MMU TABLE IN TTAB * l : P* =============================== * : P*
0x3a9030…3a91c4 Dummy {f00=0x0126, f01=0x0190, f02=» * d : P* ENTRY: APCSTA - APPL. CONTROL BLOCK ADDRESS * : P* * P : P* EXIT: * : P* * :
0x3a91c4…3a9358 Dummy {f00=0x0126, f01=0x0190, f02=»INES: * : P* * 4 : P****************************************************** r P EJECT PMMUINI EQU * < P LD A2,STKEND+APCSTA GET ADDRESS TO APPL. CONTROL BLOC
0x3a9358…3a94ec Dummy {f00=0x0126, f01=0x0190, f02=»ET LOGICAL PAGE ADDRESS ~ ( P SRL A2,12 ISOLATE MMU ENTRY NUMBER P RF(NZ) MMI:10 PAGES DEFINED L ( P LDK A2,16 MAX NUMBER OF MMU ENTRIES p 0 PMMI:10 SUR A2,A3 NUMBER OF ENTRIES TO WRITE P SLL A3,1 TWICE P ADR A3,A12 ADD TTAB ADDRESS
0x3a94ec…3a9680 Dummy {f00=0x0126, f01=0x0190, f02=»OF MMU TABLE =6 l P LDKL A4,/FC00 =6 PMMI:15 EQU * =6 2 2 P CWR A5,A3 INIT MMU ENTRY WHITH PAGE ERROR? =6 J P RF(E) MMI:16 NO! =6 0 P STR A4,A5 STORE PAGE ERROR IN MMU TABLE =6 P ADK A5,2 NEXT MMU ENTRY =6 P RB MMI:15 =6
0x3a9680…3a9814 (5, 52) Dummy {f00=0x0127, f01=0x0190, f02=» P RF(N) MMI:30 NO " P STR A4,A3 STORE PAGE ADDRESS P ADK A3,2 NEXT MMU ENTRY B $ P ADKL A4,/400 NEXT PAGE ADDRESS b P RB MMI:20 PMMI:30 RTN A14 RETURN P XIF P EJECT 6 P*************************************************
0x3a9814…3a99a8 Dummy {f00=0x0127, f01=0x0190, f02=»========================= * 6 P* * , 6 P* REFERENCED IN: * f 6 P* * 6 P* ENTRY:
0x3a99a8…3a9b3c Dummy {f00=0x0127, f01=0x0190, f02=» A11- START OF CONFIGURATION DATA * 6 P* * 2 6 P* WORK REGISTERS: A2 * l 6 P* * 6 P* SUBROUTINES:
0x3a9b3c…3a9cd0 Dummy {f00=0x0127, f01=0x018e, f02=»TAPL EQU * , P LD A2,SYSLOD GET NUMBER OF APPLICATIONS P ST A2,STKEND+APLNO SAVE B 6 P LDKL A2,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK b P ST A2,STKEND+APCSTA SAVE 6 P LD A11,STKCOM+CONSTA START OF CONFIGURATION DATA P RTN A14 RETURN
0x3a9cd0…3a9e64 Dummy {f00=0x0127, f01=0x0190, f02=» 6 P* NXTAPL - GET NEXT APPLICATION * 6 P* ============================= * > 6 P* * x 6 P* REFERENCED IN: * 6 P*
0x3a9e64…3a9ff8 Dummy {f00=0x0127, f01=0x0190, f02=»* ` 6 P* BLOCK ADDRESS * 6 P* * D 6 P* EXIT: APLNO - REMAINING NUMBER OF APPL.-1 * ~ 6 P* APCSTA - NEXT APPL. CONTROL BLOCK * 6 P* ADDR
0x3a9ff8…3aa18c Dummy {f00=0x0127, f01=0x0190, f02=» * f 6 P* * 6 P* SUBROUTINES: * J 6 P* * 6 P************************************************* P EJECT PNX
0x3aa18c…3aa320 Dummy {f00=0x0127, f01=0x0190, f02=»BER OF APPL. j P RF(Z) NOAPL NO MORE! * P CALL NXTADB GET NEXT APPL DEF. BLOCK 2 @ P LD A2,STKEND+APCSTA GET ADDRESS TO CURRENT APPL. CTRL BLOCK ` ( P ADK A2,ACBLEN NEXT APPL. CTRL BLOCK & P ST A2,STKEND+APCSTA SAVE ADDRESS 4 P LD A1,STKEND+
0x3aa320…3aa4b4 (5, 53) Dummy {f00=0x0127, f01=0x0190, f02=»**************************************************************** D P* * H D P* NXTADB - GET NEXT APPLICATION DEF. BLOCK * D P* =====================================
0x3aa4b4…3aa648 Dummy {f00=0x0127, f01=0x0190, f02=» * h D P* * D P* ENTRY: A11 - CURRENT POINTER TO CONFIGURATION DATA * h D P* * D P* EXIT: A2 -
0x3aa648…3aa7dc Dummy {f00=0x0127, f01=0x0190, f02=» * D P* WORK REGISTERS: * @ D P* * D P* SUBROUTINES: ERROR
0x3aa7dc…3aa970 Dummy {f00=0x0127, f01=0x0190, f02=»**************** ` PNXT10 ADKL A11,1 NEXT CHAR ( PNXTADB LCR A2,A11 GET NEXT CHARACTER : $ P CCK A2,/0000 END OF CONF DATA? f P RF(NE) NEXT20 NOT YET P LDKL A1,LMP4 FORMAT ERROR P CALL ERROR 2 PNEXT20 CCK A2,/FFFF APPL DEF BLOCK SEP
0x3aa970…3aab04 Dummy {f00=0x0127, f01=0x0190, f02=» 2 P********************************************* 2 P* * > 2 P* CHKMOV - CHECK MEMORY OVERFLOW AND MOVE * t 2 P* ======================================= * 2 P*
0x3aab04…3aac98 Dummy {f00=0x0127, f01=0x0190, f02=»- FROM-ADDRESS * 2 P* A2 - TO-ADDRESS * ( 2 P* A3 - LENGTH * ^ 2 P* STKEND+LIMIT - END OF SYSTEM * 2 P* AREA * 2 P*
0x3aac98…3aae2c Dummy {f00=0x0127, f01=0x0190, f02=» * l 2 P* WORK REGISTERS: * 2 P* * H 2 P* SUBROUTINES: MOVE,ERROR * ~ 2 P* * 2 P******************************
0x3aae2c…3aafc0 Dummy {f00=0x0127, f01=0x0190, f02=»NGTH ~ . P XRR A9,A9 PHYSICAL END OF FIRST PARTITION 0 P SUR A9,A2 COMPUTE AREA LEFT IN FIRST PART. > & P CALL CMPADR ENOUGTH MEMORY LEFT? r P RF(L) CHK20 YES 0 PCHK10 LDKL A1,LMP3 INDICATE MEMORY OVERFLOW P CALL ERROR $ PCHK20 ADR A1
0x3aafc0…3ab154 (5, 54) Dummy {f00=0x0127, f01=0x0190, f02=»AREA OVERFLOW! | P CALL MOVE MOVE AREA P LDR* A11,A15 RESTORE A11 2 P LDR* A9,A15 RESTORE A9 T P RTN A14 t P EJECT D P**************************************************************** D P* START MONITOR SAVE01URATION
0x3ab154…3ab2e8 Dummy {f00=0x0127, f01=0x018e, f02=»TASK CONTROL TABLE ~ P IFF FM=0 & P CALL B:FWT BUILD FILE WORK TABLES , P XIF V ( P CALL MONBLK GENERATE MONITOR BLOCKS b P IFF EDM=0 2 P CALL B:MXTT BUILD MONITOR EXTENT TASK TABLES 6 P CALL B:MSEG BUILD MONITOR SEGMENT TABLES & TTAB:S
0x3ab2e8…3ab47c Dummy {f00=0x0127, f01=0x018e, f02=» P XIF P IFF MMUPAG+DSKPAG=0 ( P CALL B:STAB BUILD SEGMENT TABLE(S) , P XIF X P IFF SPDVCL+TEDVCL=0 d 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES P XIF P IFF TEDVCL=0 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK TABLES
0x3ab47c…3ab610 Dummy {f00=0x0127, f01=0x018e, f02=» P XIF P IFF TEDVCL=0 & P CALL B:ITAB BUILD INTERRUPT TABLE & P XIF P P EJECT F P***************************************************************** j F P* END OF MONITOR SAVE01URATION PART * F P* -C
0x3ab610…3ab7a4 Dummy {f00=0x0127, f01=0x4014, f02=» P END @ TEDVCL=0 & P CALL B:ITAB BUILD INTERRUPT TABLE & P XIF P P EJECT F P***************************************************************** j F P* END OF MONITOR SAVE01URATION PART * F P* -C
0x3ab7a4…3ab938 Dummy {f00=0x0127, f01=0x403c, f02=» 0 P******************************************** @ 8ERRUPT TABLE & P XIF P P EJECT F P***************************************************************** j F P* END OF MONITOR SAVE01URATION PART * F P* -C
0x3ab938…3abacc Dummy {f00=0x0127, f01=0x2008, f02=» P X ` h p
0x3abacc…3abc60 Dummy {f00=0x0127, f01=0x0190, f02=» P LDK A3,/30 CPU851: LEVEL 12 E P XIF E ( P* E 4 P* E > ( P SC A3,2,A15 SET NEW LEVEL ON STACK E H " P RTN A15 RETURN WITH NEW LEVEL E t P* E P EJECT TOSSIO E P* E P* E P IFT MMUPAG=0 E 0 PTIOMXI EQU * DUMMY ENTRY IN NON-MM
0x3abc60…3ac900 (6, 0) DirGranule ((6, 0)) {
0x3abc60…3ac900 DirEnt {nam=»DRDC15«, typ=» «, f00=0x0000, f01=0x0000, f02=0x24f8, f03=0x0000}
0x3abc60…3ac900 DirEnt {nam=»CR1500«, typ=»UF«, f00=0x019a, f01=0x0196, f02=0x2500, f03=0x0008}
0x3abc60…3ac900 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2510, f03=0x0000}
0x3abc60…3ac900 DirEnt {nam=»XXXX15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2608, f03=0x0000}
0x3abc60…3ac900 DirEnt {nam=»XXDW15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26f8, f03=0x0000}
0x3abc60…3ac900 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x2700, f03=0x0000}
0x3abc60…3ac900 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2728, f03=0x0000}
0x3abc60…3ac900 DirEnt {nam=»CD1500«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2730, f03=0x0000}
0x3abc60…3ac900 DirEnt {nam=»CR1501«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2738, f03=0x0000}
0x3abc60…3ac900 DirEnt {nam=»CR1502«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2748, f03=0x0000}
0x3abc60…3ac900 DirEnt {nam=»CR1503«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2758, f03=0x0000}
0x3abc60…3ac900 DirEnt {nam=»CR1504«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2768, f03=0x0000}
0x3abc60…3ac900 DirEnt {nam=»CR1505«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2780, f03=0x0000}
0x3abc60…3ac900 DirEnt {nam=»UPFILE«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2798, f03=0x0000}
0x3abc60…3ac900 }
0x3ac900…3aca94 (6, 1) Opaque[0x194]
0x3aca94…3acc28 # DirEnt {nam=»CR1500«, typ=»UF«, f00=0x019a, f01=0x0196, f02=0x2500, f03=0x0008}
0x3aca94…3acc28 IdxSect {
0x3aca94…3acc28 f00 = 0x0128 // 0x3aca94 @0x0
0x3aca94…3acc28 f01 = 0x0004 // 0x3aca96 @0x2
0x3aca94…3acc28 gno = [ // 0x3aca98 @0x4
0x3aca94…3acc28 [0x00]: C0x0128.0x0.0
0x3aca94…3acc28 [0x01]: C0x0128.0x1.0
0x3aca94…3acc28 ]
0x3aca94…3acc28 }
0x3acc28…3acdbc Dummy {f00=0x0128, f01=0x0190, f02=» PLED XXXX15 P!!RE 0,$$01-26$$03-27$$ !!IL 1 6 P =4, ERROR IN POWER UP D ( P =3, DELETE INSTRUCTIONS NOT USED d $ =2, CHANGES IN STATUS HANLING ( # =1, ERROR IN OPEN/CLOSE REQUESTS REL 11.0 81-01-26 !!DL 139
0x3acdbc…3acf50 Dummy {f00=0x0128, f01=0x018e, f02=»T ALREADY COMPLETED =1 | P LDK A1,0 RC=0 =1 , P CF A15,TENDIO COMPLETE CLOSE REQUEST =1 8 PRQCL92 EQU * =1 h P IFT P6805=0 =1 P LDKL A5,STB =1 $ P CF A5,CHALTI HALT I/P DEVICE =1 $ CF A5,CHALTO HALT O/P DEVICE =1 LDK A2,
0x3acf50…3ad0e4 Dummy {f00=0x0128, f01=0x0190, f02=» ( P CIO A2,0,LCUIN DISCONNECT MODEM =1 P XIF =1 0 & ! CMR A7 REMOVE NETWORK ADDRESS =1 B " P CM DTESTA,A7 CLEAR STATUS =1 l ABL TDISP =1 !!RE 799,$$LEFT$$RIGHT$$ !!DL 1040,1041 ( # ANK A1,/B WACK SENT, DB OR IR ? =2
0x3ad0e4…3ad278 Dummy {f00=0x0128, f01=0x0190, f02=»CONNECT MODEM =1 * P CF A5,CHALTI NO INTERRUPTS ALLOWED =1 ABL TDISP =1 F P!!DL 1608 $ P IM DTESTA,A7 SET OPEN STATUS =1 n LDKL A5,STB =1 * P CF A5,CSYNCI PUT CU IN ACTIVE MODE =1 8 P CF A5,CHALTI HALT I/P DEVICE TO GET MODEM S
0x3ad278…3ad40c Dummy {f00=0x0128, f01=0x0190, f02=»LS,A7 INDICATE PHYSICAL ERROR =1 DTE:20 EQU * =1 ( " P LDR A1,A2 SET RETURN CODE =1 @ * P CF A15,TENDIO COMPLETE THE REQUEST =1 f P ABL BRM START I/P =1 P!!DL 1864,1866 =2 IFT STARVI=1 =2 $ ANK A3,/A WACK SENT OR
0x3ad40c…3ad5a0 Dummy {f00=0x0128, f01=0x0178, f02=» P!!DL 2851,2853 =1 !!IL 2867 ( " P RF(A) CHALTR SST ACCEPTED =1 : : P LDK A2,1 INSTRUCTION NOT ACCEPTED, SET MODEM ERR. =1 ` PCHALTR EQU * =1 P!!IL 2904 , P LDK A2,1 PRESET STATUS = MODEM ERROR =1 . P RF(NA) CHLT00 I
0x3ad5a0…3ad734 (6, 2) Dummy {f00=0x0128, f01=0x2008, f02=»
0x3ad734…3ad8c8 Dummy {f00=0x0128, f01=0x0190, f02=»UT VALUE z PTIMPOL EQU X:C * PX:D EQU 0 STATUS AND RVI HANDLING IF=1 & PSTARVI EQU X:D T ( PX:E EQU 0 READ COMMAND HANDLING IF=1 j PRCOM EQU X:E & PX:F EQU 254 TRANSMIT BLOCK LENGTH PTBLEN EQU X:F ( PX:G EQU 0 CODE , 0=ASCII , 1=E
0x3ad8c8…3ada5c Dummy {f00=0x0128, f01=0x0190, f02=» HIGH n ( P IF = 0 LINE SPEED IS SET TO LOW PSPEED EQU X:I : * PX:J EQU 0 IF 1 SIEMENS MSV1 PROCEDURE P PMSV1 EQU X:J ~ . PX:K EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) PRBUFNR EQU X:K . PX:L EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ
0x3ada5c…3adbf0 Dummy {f00=0x0128, f01=0x0190, f02=»=1 , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER P XIF : P IFT P6805=0 SALCUZ F < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ b P XIF SALCUZ P IFT P6805=1 < PLCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER SALCUZ
0x3adbf0…3add84 Dummy {f00=0x0128, f01=0x0190, f02=» f PMESPAS EQU X:O 4 PX:P EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU X:P V PX:Q EQU 0 l * PTPMODE EQU X:Q IF = 1 TRANSPARANT MODE ~ PX:R EQU 0 . PSTTSTS EQU X:R IF = 1 STATISTICS INCLUDED PX:S EQU 500 $ PTBUF
0x3add84…3adf18 Dummy {f00=0x0128, f01=0x0190, f02=» EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 2 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". f , P ONLY WORKING IF STAT IS SET TO "ONE". P* P IFT SPEED=1 PLSPEED EQU /0200 P XIF
0x3adf18…3ae0ac Dummy {f00=0x0128, f01=0x0190, f02=» P* P* CONDITIONAL ASSEMBLY P* , . P***************************************** 6 P* h . P* A PROGRAM VERSION USING TOSS MMU PAGING r * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P* 6 P* A
0x3ae0ac…3ae240 Dummy {f00=0x0128, f01=0x0190, f02=» 0 PDEVIND EQU 0 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER SIZE < P* j P EJECT t * * &************************************** * 2 -* DCDEFS COMMON DEFS FOR DC DRIVERS/PACKAGES * * &****
0x3ae240…3ae3d4 (6, 3) Opaque[0x194]
0x3ae3d4…3ae568 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2510, f03=0x0000}
0x3ae3d4…3ae568 IdxSect {
0x3ae3d4…3ae568 f00 = 0x0128 // 0x3ae3d4 @0x0
0x3ae3d4…3ae568 f01 = 0x003e // 0x3ae3d6 @0x2
0x3ae3d4…3ae568 gno = [ // 0x3ae3d8 @0x4
0x3ae3d4…3ae568 [0x00]: C0x0128.0x2.0
0x3ae3d4…3ae568 [0x01]: C0x0128.0x3.0
0x3ae3d4…3ae568 [0x02]: C0x0129.0x0.0
0x3ae3d4…3ae568 [0x03]: C0x0129.0x1.0
0x3ae3d4…3ae568 [0x04]: C0x0129.0x2.0
0x3ae3d4…3ae568 [0x05]: C0x0129.0x3.0
0x3ae3d4…3ae568 [0x06]: C0x012a.0x0.0
0x3ae3d4…3ae568 [0x07]: C0x012a.0x1.0
0x3ae3d4…3ae568 [0x08]: C0x012a.0x2.0
0x3ae3d4…3ae568 [0x09]: C0x012a.0x3.0
0x3ae3d4…3ae568 [0x0a]: C0x012b.0x0.0
0x3ae3d4…3ae568 [0x0b]: C0x012b.0x1.0
0x3ae3d4…3ae568 [0x0c]: C0x012b.0x2.0
0x3ae3d4…3ae568 [0x0d]: C0x012b.0x3.0
0x3ae3d4…3ae568 [0x0e]: C0x012c.0x0.0
0x3ae3d4…3ae568 [0x0f]: C0x012c.0x1.0
0x3ae3d4…3ae568 [0x10]: C0x012c.0x2.0
0x3ae3d4…3ae568 [0x11]: C0x012c.0x3.0
0x3ae3d4…3ae568 [0x12]: C0x012d.0x0.0
0x3ae3d4…3ae568 [0x13]: C0x012d.0x1.0
0x3ae3d4…3ae568 [0x14]: C0x012d.0x2.0
0x3ae3d4…3ae568 [0x15]: C0x012d.0x3.0
0x3ae3d4…3ae568 [0x16]: C0x012e.0x0.0
0x3ae3d4…3ae568 [0x17]: C0x012e.0x1.0
0x3ae3d4…3ae568 [0x18]: C0x012e.0x2.0
0x3ae3d4…3ae568 [0x19]: C0x012e.0x3.0
0x3ae3d4…3ae568 [0x1a]: C0x012f.0x0.0
0x3ae3d4…3ae568 [0x1b]: C0x012f.0x1.0
0x3ae3d4…3ae568 [0x1c]: C0x012f.0x2.0
0x3ae3d4…3ae568 [0x1d]: C0x012f.0x3.0
0x3ae3d4…3ae568 [0x1e]: C0x0130.0x0.0
0x3ae3d4…3ae568 ]
0x3ae3d4…3ae568 }
0x3ae568…3ae6fc Dummy {f00=0x0128, f01=0x0190, f02=» 0 P IDENT DRDC15 REL 11.0 81-09-09 870105041100 P 8 " P =17, RETURN CODE AT CONNECT @ ( P =16, DLOBUF DESTROYED AT CONNECT f . P =15, NO NEED TO RES 1 WORD BEFORE DATA * P =14, LOSS OF DRIVER RECEIVE BUFFER P REL 11.0 81-05-21
0x3ae6fc…3ae890 Dummy {f00=0x0128, f01=0x0190, f02=»11, PROCEDURE TIMER PROBLEM P =10, EOT ON SPECIFIC POLL $ $ P =9, REMAINING TIME IN ECBCW1 H P REL 11.0 81-04-12 p " P =8, ODD USER BUFFER ADDRESS P =7, BINARY STORE PROBLEM P REL 11.0 81-04-07 ( P =6, ERROR IN POLL T
0x3ae890…3aea24 Dummy {f00=0x0128, f01=0x0190, f02=»INSTRUCTIONS NOT USED $ P =2, CHANGES IN STATUS HANLING ( P =1, ERROR IN OPEN/CLOSE REQUESTS F P REL 11.0 81-01-26 r P* P* 2 P********************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x3aea24…3aebb8 Dummy {f00=0x0128, f01=0x0190, f02=» t P* P* P* P* & P* 0 8 P**************************************************** : P EJECT v P* P* P* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERR
0x3aebb8…3aed4c Dummy {f00=0x0128, f01=0x0190, f02=» P* P* P* EXTERNAL REFERENCES P* : " P EXTRN TDISP DISPATCHER ENTRY D ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK j $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN SETIME SET TIMER P EXTRN DWTCHP DWT ADDRESS P EXTRN D
0x3aed4c…3aeee0 Dummy {f00=0x0128, f01=0x0190, f02=» ECB IF MMU ~ P EXTRN DWTMEC MMU ECB P EXTRN ECBFC FILE CODE 2 P EXTRN ECBBA BUFFER ADDRESS P " P EXTRN ECBRL REQUESTED LENGTH t " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBCW1 CONTROL WORD 1 P EXTRN ECBCW2 CONTROL WORD 2 P
0x3aeee0…3af074 (6, 4) Dummy {f00=0x0128, f01=0x0190, f02=»ASCII TABLE x . P EXTRN DCSRED READ STATISTICS ENTRY POINT : P EXTRN DCSRLL RESET ALL STATISTICS BUFFERS ENTRY POINT F : P EXTRN DCSUPS UPDATE STATISTICS ENTRY POINT IN DCSTAT 8 P EXTRN GETDNA VALIDATE AND CONVERT SYMBOLIC DTE ADDR 8 P EXTRN GET
0x3af074…3af208 Dummy {f00=0x0128, f01=0x0190, f02=» h 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH * P EXTRN PFPOST WAIT FOR POWER UP IF SET < P EJECT j J P********************************************************************** z P* P* REGISTER USAGE: P* P* A1 WORK (RETURN
0x3af208…3af39c Dummy {f00=0x0128, f01=0x0190, f02=»A6 DWT ADDRESS $ P* A7 ORDER CODE, DTETAB ADDRESS P* A8 ECB ADDRESS > P* V L P************************************************************************ ` P EJECT < P******************************************************* P* * P
0x3af39c…3af530 Dummy {f00=0x0128, f01=0x0190, f02=»U 0 IF 1 INTERRUPT LOGGING PLOGG EQU X:B " " PX:C EQU 600 POLL TIMEOUT VALUE 6 PTIMPOL EQU X:C * PX:D EQU 1 STATUS AND RVI HANDLING IF=1 r PSTARVI EQU X:D ( PX:E EQU 1 READ COMMAND HANDLING IF=1 PRCOM EQU X:E & PX:F EQU 254 TRANSM
0x3af530…3af6c4 Dummy {f00=0x0128, f01=0x018e, f02=»LL HANDLING v PSPECP EQU X:H , PX:I EQU 1 IF = 1 LINE SPEED SET TO HIGH * ( P IF = 0 LINE SPEED IS SET TO LOW Z PSPEED EQU X:I * PX:J EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU X:J . PX:K EQU 2 NUMBER OF RECEIVE BUFFERS (2-5)
0x3af6c4…3af858 Dummy {f00=0x0128, f01=0x0190, f02=» , PLCUIN EQU X:M DEVICE ADDRESS OF RECEIVER P XIF 8 P IFT P6805=1 D , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER X P XIF P IFT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCUZ P I
0x3af858…3af9ec Dummy {f00=0x0128, f01=0x0190, f02=» IF 1 IBM CHARACTER HANDLING . PX:O EQU 0 IF 1 MESSAGE PASSING TO DC TASK $ PMESPAS EQU X:O V 4 PX:P EQU 1 IBM-3271 EMULATION PACKAGE, IF NOT = 1 l PEM3270 EQU X:P PX:Q EQU 0 * PTPMODE EQU X:Q IF = 1 TRANSPARANT MODE PX:R EQU 0
0x3af9ec…3afb80 Dummy {f00=0x0128, f01=0x0190, f02=»RY TRANSMISSION z , PDMRK EQU 0 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT H 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". P =2 P PREMTIM EQU
0x3afb80…3afd14 (6, 5) Dummy {f00=0x0129, f01=0x0190, f02=»ECEIVE REQUESTS =9 P* P IFT SPEED=1 $ PLSPEED EQU /0200 8 P XIF P P IFT SPEED=0 PLSPEED EQU 0 p P XIF P EJECT P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY
0x3afd14…3afea8 Dummy {f00=0x0129, f01=0x0190, f02=»D BY SETTING MMUPAG EQU 1. P* " PMMUPAG EQU 1 , P* @ P* J 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION T . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* 0 PDEVIND EQU 0 DEVICE INDEX DATA C
0x3afea8…3b003c Dummy {f00=0x0129, f01=0x018e, f02=»** l P* 2 P* DCDEFS COMMON DEFS FOR DC DRIVERS/PACKAGES P* J * P************************************** T P , P*************************************** P* P* TABLE AND PACKET LAYOUTS P* , P**********************
0x3b003c…3b01d0 Dummy {f00=0x0129, f01=0x0190, f02=» P* P* DWT, DEVICE WORK TABLE P* . L P************************************************************************ 8 P* P* ................... P* 0 . DWTCHP . P* ................... P* 2 . DWTST
0x3b01d0…3b0364 Dummy {f00=0x0129, f01=0x018e, f02=» DWTOR . P* ................... P* 8 . DWTADR . 4 P* ................... V P* 10 . DWTTAB . x P* ................... P* 12 . DWTWAT . P* ................... P* 14 .
0x3b0364…3b04f8 Dummy {f00=0x0129, f01=0x0190, f02=» t , P* (18). DWTMEC . IF MMUPAG P* ................... 8 $ P* DWTDRD +2 . DWTSTB . Z $ P* ................... P* +4 . DWTCHD . P* ................... P* +6 . DWTCHN .
0x3b04f8…3b068c Dummy {f00=0x0129, f01=0x0190, f02=» v P* ................... P* +12 . DWTDR1/SUB . * P* ................... L P* +14 . DWTRCL . n P* ................... P* +16 . DWTRTV . P* ................... P* +18 . DWTRTP
0x3b068c…3b0820 Dummy {f00=0x0129, f01=0x0190, f02=» . ~ P* ................... P* +24 . DWTIPC . 2 P* ................... T P* +26 . DWTIPT . v P* ................... P* +28 . . P* / DRIVER DEPEND / P* /
0x3b0820…3b09b4 (6, 6) Dummy {f00=0x0129, f01=0x0190, f02=»TSTB /=0 d P* / BUFFER / P* ................... 2 P* T P EJECT ^ P* l > P********************************************************* v P* & P* D W T D I S P L A C E M E N T S P* > P******************
0x3b09b4…3b0b48 Dummy {f00=0x0129, f01=0x0190, f02=»TART OF DRIVER DEPENDENT AREA | P XIF & P IFT MMUPAG=1 2 6 PDWTDRD EQU DWTTQ+6 START OF DRIVER DEPENDENT AREA H P XIF D PDWTSTB EQU DWTDRD OFFSET REL START DWT TO STATISTIC BUFF IF ANY 2 PDWTCHD EQU DWTDRD+2 CONFIG CHAIN LINK HEAD DWT
0x3b0b48…3b0cdc Dummy {f00=0x0129, f01=0x018e, f02=»TE SYMBOLIC DTE ADDRESS x * PDWTDR1 EQU DWTDRD+10 DRIVER DEP WORD 1 * PDWTSUB EQU DWTDR1 SYMBOLIC SUBADDRESS N . PDWTRCL EQU DWTDRD+12 REQUEST CONTROL WORD | , PDWTRTV EQU DWTDRD+14 REQUEST TIMER VALUE . PDWTRTP EQU DWTDRD+16 REQUEST TIMER POINTER
0x3b0cdc…3b0e70 Dummy {f00=0x0129, f01=0x0190, f02=» 2 PDWTIPC EQU DWTDRD+22 I/P DATA Q LINK TO BUFFER 0 PDWTIPT EQU DWTDRD+24 I/P DATA TIMER POINTER : ( PDWTCUR EQU DWTDRD+26 CURSOR ADDRESS n . PDWTBUF EQU DWTDRD+28 DEVICE BUFFER ADDRESS $ PDWTSTA EQU DWTDRD+30 DWT STATUS P EJECT J P******
0x3b0e70…3b1004 Dummy {f00=0x0129, f01=0x0190, f02=»************************************************************ P* D P* ................... N P* 0 . DTECHP . p P* ................... P* 2 . DTEST . P* ................... P* 4 . DTEECB
0x3b1004…3b1198 Dummy {f00=0x0129, f01=0x0190, f02=» . P* ................... P* 10 . DTETAB . 4 P* ................... V P* 12 . DTEWAT . x P* ................... P* 14 . DTETQ . P* ................... , P* (16).
0x3b1198…3b132c Dummy {f00=0x0129, f01=0x018e, f02=»........... $ P* DTEDRD +2 . DTESTB . $ P* ................... < P* +4 . DTECHD . d P* ................... P* +6 . DTECHN . P* ................... P* +8 . DTELAD .
0x3b132c…3b14c0 Dummy {f00=0x0129, f01=0x018e, f02=» t P* / / P* ................... * 8 P* . STATISTIC . IF STAT AND DTESTB /=0 L P* / BUFFER / P* ................... P* PDTETQ EQU 14 PDTEUEC EQU DTETQ+2 PDTEM
0x3b14c0…3b1654 (6, 7) Dummy {f00=0x0129, f01=0x0190, f02=» 2 PDTEDRD EQU DTEMEC+2 START OF DC DEPENDENT AREA P XIF > D PDTESTB EQU DTEDRD OFFSET REL START DTE TO STATISTIC BUFF IF ANY J 2 PDTECHD EQU DTEDRD+2 CONFIG CHAIN LINK HEAD DTE 2 PDTECHN EQU DTEDRD+4 CONFIG CHAIN LINK NEXT DTE 2 PDTELAD EQU
0x3b1654…3b17e8 Dummy {f00=0x0129, f01=0x0190, f02=»10 DATA LINK STATUS ~ $ PDTESTA EQU DTEDRD+12 DTE STATUS ( PDTEDWT EQU DTEDRD+14 CHAIN LINK DWT D 0 PDTEDDT EQU DTEDRD+16 CHAIN LINK DISCARD DWT p P* STATITICS BUFFER 2 PSTWSID EQU DTEDRD+18 RESERVED FOR SYMBOLIC ID . PSTWCST EQU DTEDRD+20
0x3b17e8…3b197c Dummy {f00=0x0129, f01=0x018e, f02=»************************************************************** P* F , P* COUNTER INDECES - PARAMETER-1 EQUATES P P* P* REQUEST LEVEL COUNTERS: P* D P*************************************************************** P* * P
0x3b197c…3b1b10 Dummy {f00=0x0129, f01=0x0190, f02=» n & PCSRCHR EQU /C5 CHARACTERS RECEIVED ! ( PCSRMST EQU /06 MESSAGES TRANSMITTED ! 2 * PCSRCHT EQU /C8 CHARACTERS TRANSMITTED ! ^ PCSRTOP EQU /09 TIMEOUT ! PCSRABT EQU /0A ABORTED ! PCSRERR EQU /0B ERROR ! & PCSRTRE EQU /0C TRANSMISSION ERROR !
0x3b1b10…3b1ca4 Dummy {f00=0x0129, f01=0x0190, f02=»VED ! j : PCSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY " > PCSSRBO EQU /12 " DATA BLOCKS REJECTED BUFFER OVERFLOW " J 6 PCSSRAB EQU /13 " DATA BLOCKS REJECTED ABORTED " : PCSSRPE EQU /14 " DATA BLOCKS REJECTED PARITY ERROR " 0 PCSST
0x3b1ca4…3b1e38 Dummy {f00=0x0129, f01=0x0190, f02=»BORTED " n 4 PCSSXC1 EQU /18 NBR OF REPLY REQUESTS TRANSMITTED # & PCSSXC2 EQU /19 PROCEDURE TIME OUTS # F 8 PCSSXC3 EQU /1A NBR OF TIMES POLL TIMEOUT HAS OCCURED # p P # P # P EJECT # P* DTE/DCE LEVEL COUNTERS # P # $ PCSCDTE EQU /28 D
0x3b1e38…3b1fcc Dummy {f00=0x0129, f01=0x0190, f02=»PERABLE # x * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT $ PCSCXC2 EQU /2D " $ > PCSCXC3 EQU /2E " $ Z P EJECT $ v P* $ P* $ P* REQUEST HANDLING $ P* $ P* $ P* ORDER CODE (A7) $ P* $ POPEN EQU /21 OPEN $ PCLOS
0x3b1fcc…3b2160 Dummy {f00=0x0129, f01=0x0190, f02=»06 SEND $ PRSTAT EQU /00 READ STATUS % PSSTAT EQU /38 SET STATUS % 2 ( PSTATIS EQU /2D READ/RESET STATISTICS % R $ PSTIMOT EQU /39 SET TIMEOUT VALUE % ~ P* % P* OPTIONS: % P* % 2 PTYPRR EQU /4343 RESET STATISTICS AFTER READ =5 % P EJECT
0x3b2160…3b22f4 (6, 8) Dummy {f00=0x0129, f01=0x0190, f02=» % f P* & > P********************************************************** & P* & T L P*---------------------------------------------------------------------- & ^ " PR:REQ EQU /8000 REQUEST ERROR & $ PR:ABRT EQU /4000 REQUEST ABORTED & PR:2 EQU /200
0x3b22f4…3b2488 Dummy {f00=0x0129, f01=0x0190, f02=»EQU /0400 & PR:6 EQU /0200 ' , PR:DATA EQU /0100 DATA AVAILABLE (QUEUED) ' ( J P*--------------------------------------------------------------------- ' X PR:8 EQU /0080 ' PR:TIME EQU /0040 TIME OUT ' PR:10 EQU /0020 ' " PR:SEQ EQU /0010 SEQU
0x3b2488…3b261c Dummy {f00=0x0129, f01=0x0190, f02=»R:13 EQU /0004 ' . PR:LOGC EQU /0002 LOGICAL CONNECTION ERROR ( . PR:PHYC EQU /0001 PHYSICAL CONNECTION ERROR ( H L P*---------------------------------------------------------------------- ( z P* ( P EJECT ( P* ( < P****************************
0x3b261c…3b27b0 Dummy {f00=0x0129, f01=0x0190, f02=»***************************= ( r P* ) $ L P*---------------------------------------------------------------------- ) . PH:0 EQU /8000 ) ~ PH:1 EQU /4000 ) PH:2 EQU /2000 ) PH:3 EQU /1000 ) L P*-------------------------------------------------
0x3b27b0…3b2944 Dummy {f00=0x0129, f01=0x0190, f02=»----------------------------------------------------- ) ~ PH:8 EQU /0080 * > PH:9 EQU /0040 * T PH:CARR EQU /0020 CARRIER OFF * j PH:11 EQU /0010 * J P*-------------------------------------------------------------------- * PH:12 EQU /0008 * " P
0x3b2944…3b2ad8 Dummy {f00=0x0129, f01=0x0190, f02=»----------------------------------------------------- * ~ P EJECT + > > P********************************************************** + P P* + P* LINE CONTROL CHAR EQU:S + P* + > P**********************************************************
0x3b2ad8…3b2c6c Dummy {f00=0x0129, f01=0x0190, f02=» PITB EQU /1F , PSOH EQU /01 , PENQ EQU /05 , , PDLE EQU /10 , @ PEOT EQU /04 , T PNAK EQU /15 , h PESC EQU /1B , | PSBA EQU /11 , PGP EQU /22 , PRDBCOM EQU /32 , PRDMCOM EQU /36 , P EJECT , P IFT CODE=0 , PPAR
0x3b2c6c…3b2e00 Dummy {f00=0x0129, f01=0x0190, f02=» XIF , P IFT CODE=0 - P IFT MSV1=1 - 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE - 4 P XIF - h P IFT CODE=1 - t PPAR EQU /00 - PWACK EQU /2C - PRVI EQU /40 - PACK0 EQU /18 - PACK1 EQU /2F - PSYNEBC EQU /32 - PENQEBC
0x3b2e00…3b2f94 (6, 9) Dummy {f00=0x012a, f01=0x0190, f02=»0+PAR - P XIF . P IFT P6805=1 . PENQPAR EQU ENQ . . PRVIPAR EQU RVI . D PACKPAR EQU ACK0 . Z P XIF . r P EJECT . ~ P* . P* . $ P* 3270 SENSE/STATUS INFORMATION . P* . P* . P IFF STARVI=0 . . PSSTAB EQU * S/S 0 : NO
0x3b2f94…3b3128 Dummy {f00=0x012a, f01=0x0190, f02=»EQUIRED . j , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED / P XIF / @ P* / L P* / V P* TIMER VALUES / ` P* / v P* / ( PTIMPRO EQU 30 PROCEDURE TIMER 3 SEC / P* / P* / P EJECT / B P************************************************
0x3b3128…3b32bc Dummy {f00=0x012a, f01=0x0190, f02=»***************** / d P* 0 P IFT CODE=0 0 $ PSYNC EQU /16 0 8 P XIF 0 L P IFT CODE=1 0 X PSYNC EQU /32 0 l P XIF 0 P IFT P6805=0 0 PCBCARR EQU /100+LSPEED 0 P XIF 0 P IFT P6805=1 0 PCBSTOP EQU /00 0 P IFT CODE=0 0 P
0x3b32bc…3b3450 Dummy {f00=0x012a, f01=0x0190, f02=»************************************* 0 P* 1 . ( P* LINE CONTROL UNIT SST STATUS BITS 1 8 P* 1 d 8 P*************************************************** 1 n P* 1 P IFT P6805=0 1 & PH:ERR EQU /23 H:NOOP+H:THRU+H:CARR 1 P XIF 1 P IFT P6805
0x3b3450…3b35e4 Dummy {f00=0x012a, f01=0x0190, f02=»****************** 1 b P* 2 P* DRIVER ADDRESS BLOCK 2 $ P* 2 B D P*************************************************************** 2 L P* 2 P DATA BUFLEN MMU BUFFER SIZE 2 P DATA DEVIND DEVICE INDEX 2 ( PDC15AD DATA DCACT ACTIVATION ADDRESS
0x3b35e4…3b3778 Dummy {f00=0x012a, f01=0x018e, f02=»TINE STACK FOR INTERRUPTS 2 PSTB RES 1 3 " P EJECT 3 4 P 3 B @ P************************************************************ 3 J P* 3 P* ABORT ROUTINE 3 P* 3 P************************ 3 P 3 ( PABORT LD A1,DWTRTP,A6 TIMER POINTER
0x3b3778…3b390c Dummy {f00=0x012a, f01=0x0190, f02=» 3 n P ANK A2,/7F 4 P SUK A2,6 4 P RF(NE) AB:RTN 4 . . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE 4 D & P LD A2,FDWTUT WRITING DWT ADDRESS 4 v P CWR A2,A6 4 P RF(NE) AB:RTN NOT THIS DWT 4 P CM FDWTUT REST SENDING DWT 4 P CM XACK RESET
0x3b390c…3b3aa0 Dummy {f00=0x012a, f01=0x0190, f02=»****************** 4 J P********************************************************************** 5 P* 5 h P* 5 r , P* REQUEST HANDLER/APPLICATION INTERFACE 5 | P* 5 P* 5 J P********************************************************************** 5
0x3b3aa0…3b3c34 (6, 10) Dummy {f00=0x012a, f01=0x0190, f02=» 5 PDCACT EQU * 6 P LDK A1,0 PRESET RETURN CODE 6 & P LDR A2,A7 ORDER CODE AS PARAMETER 6 @ P LDKL A7,DTETAB DTE TAB ADDR 6 j & P ANK A2,/FF STRIP OFF OPTION BITS 6 : P CF A15,LOOKUP BRANCH ON CODES, TABLE ADDRESS TO STACK 6 0 P DATA TREQX,RTREQ
0x3b3c34…3b3dc8 Dummy {f00=0x012a, f01=0x0190, f02=»EN REQUEST 6 | $ P DATA CLOSE,RQCLOS CLOSE REQUEST 7 . P DATA CONPAS,RQCON CONNECT PASSIVE REQUEST 7 : ( P DATA DISCO,RQDIS DISCONNECT REQUEST 7 l * P DATA RSTAT,RQRSTS READ STATUS REQUEST 7 ( P DATA SSTAT,RQSST SET STATUS REQUEST 7 , P DATA STIMOT,RQTIME SE
0x3b3dc8…3b3f5c Dummy {f00=0x012a, f01=0x0190, f02=» 7 P* 8 P* ACTIVATION PARAMETERS: 8 $ P* SYMBOLIC DTE-ADDRESS (ECBCW2) 8 2 P* 8 Z P* FUNCTIONS: 8 d 8 P* 1. CHECK IF ALREADY OPEN & IF SO SAME DTE-ADDRESS 8 x & P* 2. CONVERT & VERIFY DTE ADDRESS 8 P* 8 PRQOPEN EQU * 8 . P LD A1,ECBCW
0x3b3f5c…3b40f0 Dummy {f00=0x012a, f01=0x0190, f02=» BRANCH ON INDEX IN TABLE 8 & PRQOPTB DATA RQOP20 CLOSED/INACTIVE 9 " " P DATA RQOP15 OPEN IN PROGRESS 9 L P DATA RQOP10 OPEN 9 r " P DATA RQOP15 CLOSE IN PROGRESS 9 PRQOP10 EQU * 9 2 P CW A1,DTELAD,A7 SAME AS THE ONE WHO OPENED ? 9 P RF(E) RQOP9
0x3b40f0…3b4284 Dummy {f00=0x012a, f01=0x0190, f02=»PROGRESS 9 v . P ST A1,DTELAD,A7 SAVE SYMBOLIC DTE ADDRESS : 2 P LDR A2,A7 ADDR TO SELECT AND POLL IN DTE TAB : B 0 P CF A15,GETDNA CONVERT AND VALIDATE DTE ADDR : x P LDR A1,A1 : P RF(NN) RQOP80 OK : P CM DTELAD,A7 CLEAR DTE ADDR : " P CM DTESTA,A
0x3b4284…3b4418 Dummy {f00=0x012a, f01=0x0190, f02=»ESS IN EBCDIC : | P LDR A1,A2 ; P ANK A2,/FF ; ( P RF(Z) RQOP30 ONLY ONE BYTE ; < ( P LC A2,TASCII,A2 CONVERT INTO ASCII ; ` P SLL A2,8 ; PRQOP30 EQU * ; P ECR A1,A1 ; P ANK A1,/FF ; P LC A2,TASCII,A1 ; * P STR A2,A7 SAVE ASCII VA
0x3b4418…3b45ac Dummy {f00=0x012a, f01=0x0190, f02=»ON ? ; n P ABL(NZ) RTOK YES RETURN OK < * P ABL RTPHYC RETURN PHYSICAL CONNECTION < 0 P EJECT < ^ P* < l P* CLOSE REQUEST < v P* < P* ACTIVATION PARAMETERS: < " P* OPTION /00 = UNCONDITIONAL < P* /80 = CONDITIONAL < P* FUNCTIONS:
0x3b45ac…3b4740 Dummy {f00=0x012a, f01=0x0190, f02=»SCONNECT ALL DWT:S < v P* = PRQCLOS EQU * = $ ( P LD A5,DWTOR,A6 GET OPTION AND ORDER = 8 , P LD A2,ECBCW2,A8 GET SYMBOLIC DTE - ADDR = d P RF(Z) RQCL20 = " P CW A2,DTELAD,A7 CORRECT DTE ? = ( P ABL(NE) RTREQ RETURN: REQUEST ERROR = PRQCL20 EQU *
0x3b4740…3b48d4 (6, 11) Dummy {f00=0x012a, f01=0x018e, f02=»UENCE ERROR = v $ P IM DTESTA,A7 CLOSE IN PROGRESS > ( P LDR A8,A6 SAVE REQUESTING DWT-ADDR > < P* > h PRQCL40 EQU * > r P IFT MESPAS=1 > * P LD A6,DTEDDT,A7 GET DISCARD DWT ADDR > P RF(Z) RQCL50 > " P LDR A5,A5 CONDITIONAL CLOSE ? > P R
0x3b48d4…3b4a68 Dummy {f00=0x012a, f01=0x0190, f02=» > PRQCL50 EQU * ? P XIF ? " P LD A6,DTEDWT,A7 GET DWT ADDR ? ( " P RF(Z) RQCL90 NO DWT IN QUEUE ? N " P LDR A5,A5 CONDITIONAL CLOSE ? ? t P RF(N) RQCL95 YES ! ? 6 P LD A2,DWTCHN,A6 GET POINTER TO NEXT DWT IN CHAIN ? 0 P ST A2,DTEDWT,A7 DWT FIR
0x3b4a68…3b4bfc Dummy {f00=0x012a, f01=0x0190, f02=»M DWTSTA,A6 CLEAR DWT-STATUS ? P LDK A1,0 PRESET RETURN CODE @ $ P CWR A8,A6 REQUESTING DWT ? @ H & P RF(E) RQCL80 YES-COMPLETE REQUEST @ l ( P LD A2,DWTST,A6 A PENDING REQUEST ? @ " P RB(N) RQCL40 NO TAKE NEXT DWT @ 6 P LDK A1,R:SEQ COMPLETE REQUEST W
0x3b4bfc…3b4d90 Dummy {f00=0x012a, f01=0x018e, f02=»QU * @ P =1 A & P LDR A6,A8 GET REQUESTING DWT ADDR A ( P LD A8,DWTECB,A6 RESTORE ECB ADDRESS A D P =1 A p . P RF(Z) RQCL92 REQUEST ALREADY COMPLETED =1 A ~ P LDK A1,0 RC=0 =1 A , P CF A15,TENDIO COMPLETE CLOSE REQUEST =1 A PRQCL92 EQU *
0x3b4d90…3b4f24 Dummy {f00=0x012a, f01=0x0190, f02=» P LDK A2,0 =1 B ( P CIO A2,1,LCUIN DISCONNECT MODEM =1 B P XIF =1 B F P IFT P6805=1 =1 B X " P LDK A2,1 DISCONNECT ORDER =1 B p ( P CIO A2,0,LCUIN DISCONNECT MODEM =1 B P XIF =1 B & P CMR A7 REMOVE NETWORK ADDRESS =1 B " P CM DTESTA
0x3b4f24…3b50b8 Dummy {f00=0x012a, f01=0x0190, f02=» CM DCTPGP CLEAR POINTER =6 B PRQCL94 EQU * =6 C $ , P CM DTEDLS,A7 INDICATE DATA LINK DOWN =6 C < P ABL TDISP =1 C l PRQCL95 EQU * C P LDK A2,2 C ( P ST A2,DTESTA,A7 SET DTE OPEN AGAIN C " P LDR A6,A8 RESTORE DWT ADDRESS C P ABL RTSEQ SEQ
0x3b50b8…3b524c Dummy {f00=0x012a, f01=0x0190, f02=»BADDRESS (RIGHTMOST BYTE IN ECBBA-BFR) C & P* - DEVICE ADDRESSES IN ECBBA-BFR D . " P* - LENGTH OF BUFFER (ECBRL) D X & P* - SYMBOLIC DTE-ADDRESS (ECBCW2) D ~ P* D P* FUNCTIONS: D 0 P* 1. VERIFY DTE-ADDRESS AS PER OPEN REQUEST D . P* 2. VERIFY &
0x3b524c…3b53e0 Dummy {f00=0x012a, f01=0x018e, f02=»CON EQU * D & P LD A2,DTELAD,A7 SYMBOLIC DTE-ADDR E " P CW A2,ECBCW2,A8 CORRECT DTE ? E < , P ABL(NE) RTREQ NO, RETURN: REQUEST ERROR E b $ P LD A2,DTESTA,A7 GET DTE STATUS E P SUK A2,2 OPEN ? E . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR E $ P LD
0x3b53e0…3b5574 (6, 12) Dummy {f00=0x012a, f01=0x0190, f02=» E | P LDK A2,/40 OPTION CODE =13 F & P CC A2,DWTOPT,A6 DISCARD DWT ? =13 F , P RF(NE) RQCN10 NO =13 F V * P CM DWTCHP,A6 INDICATE DISCARD DWT =13 F t 0 P LD A1,DTEDDT,A7 POINTER TO DISCARD DWT =13 F 0 P RF(NZ) RQCN50 MORE THAN ONE DISC. DWT ? =13 F 8
0x3b5574…3b5708 Dummy {f00=0x012a, f01=0x0190, f02=»MUPAG=0 F * P LDKL A4,SUBBUF MMU BUFFER ADDRESS =16 G P ST A4,ECBBA,A8 TO ECB G > * P CF A15,DC:MOT MOVE DATA TO MMU BUFFER G P XIF G * P LD A4,ECBBA,A8 GET ECB-BUFFER ADDRESS G P IFT MSV1=1 G P LDK A2,0 RESET A2 G & P LCR A2,A4 GET SELECT
0x3b5708…3b589c Dummy {f00=0x012a, f01=0x0190, f02=»E AND TRANSLATE THE SUB-ADDR G z P LDR A1,A1 IS IT OK ? H $ P RF(NN) RQCN20 YES H B $ P CM DWTSUB,A7 CLEAR SUB-ADDRESS H $ P ABL RTREQ RETURN REQUEST ERROR H PRQCN20 EQU * H P IFT CODE=1 H 2 P LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII H
0x3b589c…3b5a30 Dummy {f00=0x012a, f01=0x0190, f02=» SC A2,DWTSUB+1,A6 SAVE IT IN THE DWT H . P LD A1,ECBCW2,A8 GET SYMBOLIC DTE ADDRESS I . ( P ST A1,DWTLAD,A6 SAVE IT IN THE DWT I ` : P CF A15,GETSNA VALIDATE AND TRANSLATE THE SUB-ADDRESS I P LDR A1,A1 IS IT OK ? I P RF(NN) RQCN30 YES I $ P CM DW
0x3b5a30…3b5bc4 Dummy {f00=0x012a, f01=0x0190, f02=»FT CODE=1 I 2 P LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII J P XIF J H , P SC A1,DWTCHP+1,A6 SAVE NETWORK ADDRESS J T P IFT EM3270=1 J P ST A1,ECBCW2,A8 J P XIF J P* J P* J & P* LINK DWT TO CONFIGURATION CHAIN J P* J P
0x3b5bc4…3b5d58 Dummy {f00=0x012a, f01=0x0190, f02=»TER TO DWT QUEUE J v P RF RQCN60 K PRQCN50 EQU * K * P LDR A2,A1 MOV ADDR TO A2 K > ( P LD A1,DWTCHN,A2 POINTER TO NEXT DWT K ` . P RB(NZ) RQCN50 KEEP ON UNTIL LAST IN CHAIN K * P ST A6,DWTCHN,A2 ADD NEW DWT TO CHAIN K PRQCN60 EQU * K & P CM DWTC
0x3b5d58…3b5eec Dummy {f00=0x012a, f01=0x0190, f02=»ED K l P LDKL A2,/8000 L $ P ST A2,DWTRTV,A6 STORE NO TIMING L P =13 L H P IFT STARVI=1 L X & P LD A1,DWTCHP,A6 DISCARD DWT ? =13 L n * P RF(Z) RQCN65 YES, DO NOT SEND DE =13 L P LDK A1,4 STORE DEVICE L $ P ORS A1,DWTST,A6 END IN THE DWT L
0x3b5eec…3b6080 Dummy {f00=0x012a, f01=0x018e, f02=» LD A2,DCTPGP POLL TIMER POINTER L , P RF(NZ) RQCN70 TIMER ALREADY STARTED =6 M ( P CF A15,SPOTIM M X PRQCN70 EQU * M n P ABL RQOP90 M P EJECT M P* M P* DISCONNECT REQUEST M P* M P* ACTIVATION PARAMETERS: M P* DWT-ADDRESS (A6)
0x3b6080…3b6214 (6, 13) Dummy {f00=0x012b, f01=0x0190, f02=» & P* 3. SET DWT STATUS DISCONNECTED N P* N . P* COMPLETION PARAMETERS: N 8 P* RETURN CODE (A1) N X P* N t PRQDIS EQU * N ~ 0 P LD A2,DWTSTA,A6 DWT STATUS = DISCONNECTED ? N P ABL(Z) RTOK YES, RETURN: OK N * P LD A3,DTEDWT,A7 FIRST DWT ADD
0x3b6214…3b63a8 Dummy {f00=0x012b, f01=0x0190, f02=»FFERS N p 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT O P CM DWTSTA,A6 SET DWT FREE O D . P ST A3,DTEDWT,A7 STORE DWT-ADDR IN DTETAB O f P RB RQCN70 O PRQDI10 EQU * O . P LDR A5,A3 A5 CONTAINES PREVIOUS DWT-ADDR O < P LD A3,DWTCHN,A5 A3 CONT
0x3b63a8…3b653c Dummy {f00=0x012b, f01=0x0190, f02=»IN O n * P CF A15,RELBUF RELEASE QUEUED BUFFERS P 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT P 8 2 P ST A3,DWTCHN,A5 AND STORE IT IN PREVIOUS DWT P n P CM DWTSTA,A6 SET DWT FREE P P RB RQCN70 P PRQDI20 EQU * P P IFT MESPAS=1 P . P LD A3
0x3b653c…3b66d0 Dummy {f00=0x012b, f01=0x0190, f02=»FERS QUEUED P v P CM DTEDDT,A7 Q P CM DWTSTA,A6 SET DWT FREE Q * P RB RQCN70 Q L PRQDI30 EQU * Q ^ P XIF Q r P ABL RTSEQ SEQUENCE ERROR Q ~ P EJECT Q P* Q P* Q P* READ STATUS REQUEST Q P* Q P* ACTIVATION PARAMETERS: Q
0x3b66d0…3b6864 Dummy {f00=0x012b, f01=0x0190, f02=»* COMPLETION PARAMETERS: Q * P* LOGICAL CONNECTION STATUS (ECBCW1) R P* R N . P* 0 3 4 7 8 11 12 15 R X . P* ........................................ R . P* . DWT . DTE . DATA . PHYS . R . P* . STATE . STATE . LI
0x3b6864…3b69f8 Dummy {f00=0x012b, f01=0x0190, f02=»RSTS EQU * R P IFT EM3270=1 S $ P LD A2,ECBCW1,A8 GET OPTION CODE S ( & P RF(NZ) RQRS10 TEST IF ANY MESSAGE S P P XIF S z P LD A2,DWTSTA,A6 DWT STATUS S P SLL A2,4 BITS 0-3 S P AD A2,DTESTA,A7 DTE STATUS S P SLL A2,4 BITS 4-7 S & P AD A2
0x3b69f8…3b6b8c Dummy {f00=0x012b, f01=0x018e, f02=»1,A8 STATUS TO ECB CONTROL WORD 1 S P ABL RTOK RETURN: OK T * P IFT EM3270=1 T F P* T P* T f . P* ANY MESSAGE ORDER (ONLY IF EM3270 = 1) T p P* T PRQRS10 EQU * T $ P LD A2,DTESTA,A7 GET DTE STATUS T P SUK A2,2 OPEN ? T $ P ABL(NZ)
0x3b6b8c…3b6d20 Dummy {f00=0x012b, f01=0x0190, f02=» T n 6 P LD A4,DWTIPC,A6 ANY QUEUED MESSAGE ON THIS DWT ? U * P ABL(NZ) RTOK YES COMPLETE THE REQUEST U B P ABL TDISP TO DISPATCHER U p P XIF U P EJECT U P* U P* SET STATUS REQUEST U P* U P* U P* ACTIVATION PARAMETERS U P* D
0x3b6d20…3b6eb4 (6, 14) Dummy {f00=0x012b, f01=0x018e, f02=»00' U z P* V ( P* IR INTERVENTION REQUIRED : X'01' V P* V B P* DB DEVICE BUSY :X'10' V L P* V l P* COMPLETION PARAMETERS: V v P* RETURN CODE (A1) V P* V PRQSST EQU * V P IFT STARVI=0 V & P ABL RTREQ SET STATUS NOT INCLUDED
0x3b6eb4…3b7048 Dummy {f00=0x012b, f01=0x0190, f02=» V x & P LD A1,DWTST,A6 GET DEVICE STATUS W ( P ANK A1,/B WACK SENT, DB OR IR ? =2 W 2 P RF(Z) RQST90 NO =2 W ^ , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE W z P LDK A1,4 SET DE W PRQST90 EQU * W P ST A1,DWTST,A6 SAVE STATUS W P ABL RTOK RETY
0x3b7048…3b71dc Dummy {f00=0x012b, f01=0x0190, f02=» TYPE = BITS 0-7 OF ECBCW1 W P* ECB-ADDRESS (A8) X " ( P* DWT-ADDRESS OF LOW-LEVEL DWT (A6) X > P* X j P* FUNCTIONS: X t & P* 1. READ STATISTICS TO USER AREA X & P* 2. RESET ALL STATISTICS BUFFERS X P* X P* COMPLETION PARAMETERS: X * P*
0x3b71dc…3b7370 Dummy {f00=0x012b, f01=0x0190, f02=»C : REQUEST ERROR NO STATISTICS INCLUDED X P XIF Y 0 P IFF STTSTS=0 Y < " P CF A15,DCSRED READ STATISTICS Y R P LDR A1,A1 OK? Y x , P ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR Y P LD A1,ECBCW1,A8 GET TYPE Y & P SRL A1,8 TYPE FIELD TO LEFT BYTE Y
0x3b7370…3b7504 Dummy {f00=0x012b, f01=0x0190, f02=» Y x , P ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR Z PRQST40 EQU * Z 8 P ABL RTOK RETURN: OK Z L P XIF Z h P EJECT Z t P* Z P* SET TIMEOUT VALUE Z P* Z P* ACTIVATION PARAMETERS: Z , P* ECBCW1 >= 0 : ACTIVATE TIMING CONTROL Z : P*
0x3b7504…3b7698 Dummy {f00=0x012b, f01=0x0190, f02=»ING CONTROL Z p P* [ P* FUNCTIONS: [ , P* STORE VALUE DIRECTLY IN CALLER'S DWT [ 2 P* [ b P* COMPLETION PARAMETERS: [ l & P* DWTRTV = TIMEOUT VALUE = ECBCW1 [ P* [ PRQTIME EQU * [ 0 P LD A2,ECBCW1,A8 GET TIMEOUT VALUE FROM ECB [ " P
0x3b7698…3b782c Dummy {f00=0x012b, f01=0x0190, f02=»ARAMETERS: [ P* BUFFER ADDRESS (ECBBA) P* BUFFER LENGTH (ECBRL) 4 P* SUBTERMINAL ADDRESS (DWT) T P* ECB CONTROL WORD 1 x P* P* FUNCTIONS: < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. $ P* 2. VERIFY BUFFER
0x3b782c…3b79c0 Dummy {f00=0x012b, f01=0x0190, f02=»,DWTSTA,A6 GET DWT STATUS P SUK A2,2 CONNECTED ? ] " . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR ] @ 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTICE ? ] r 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNECTION ERROR ] 0 P LD A2,DTEDLS,A7 LOGICAL CONNECTION
0x3b79c0…3b7b54 (6, 15) Dummy {f00=0x012b, f01=0x0190, f02=»Z) RQSE10 THERE IS NO OPTION ] P SUK A2,/20 WHICH OPTION ? ^ $ . P ABL(NZ) RTREQ WRONG OPTION :REQUEST ERROR ^ F * P CF A15,RELBUF RELEASE BUFFERS QUEUED ^ x PRQSE10 EQU * ^ P IFT MMUPAG=1 ^ $ P LD A2,ECBRL,A8 REQUESTED LENGTH ^ $ P CWK A2,BUFLEN I
0x3b7b54…3b7ce8 Dummy {f00=0x012b, f01=0x0190, f02=»INSWQ QUEUE SEND REQUEST ^ P ABL TDISP _ P* _ 2 P EJECT _ < P* _ J P* RECEIVE REQUEST _ T P* _ n P* ACTIVATION PARAMETERS: _ x P* BUFFER ADDRESS (ECBBA) _ 0 P* REQUESTED BUFFER LENGTH IN CHARS. (ECBRL) _ P* SUBTERMINAL ADDRESS (DW
0x3b7ce8…3b7e7c Dummy {f00=0x012b, f01=0x0190, f02=»N ANY MESSAGE QUEUED FOR THE DWT, _ p @ P* 3. COMPLETE WHEN MESSAGE RECEIVED OR NO MESSAGE RECEIVED ` * P* WITHIN TIMEOUT PERIOD. ` n P* ` P* COMPLETION PARAMETERS: ` 0 P* ACTUAL LENGTH OF RECEIVED MESSAGE (ECBEL) ` P* RETURN CODE (A1) `
0x3b7e7c…3b8010 Dummy {f00=0x012b, f01=0x018e, f02=»NCE ERROR ` p 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTIVE ? a 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNECTION ERROR a H * P LD A4,DWTIPC,A6 ANY BUFFER ON QUEUE ? a P RF(NZ) RQRE10 YES a 0 P LD A2,DTEDLS,A7 LOGICAL CONNECTION ACTIVE ? a 8 P ABL(Z)
0x3b8010…3b81a4 Dummy {f00=0x012b, f01=0x0190, f02=» a P LD A3,2,A4 EFFECTIVE LENGTH b P ST A3,ECBEL,A8 b , * P LD A1,DWTLAD,A6 SYMBOLIC DTE-ADDRESS b D $ P LD A2,4,A4 NETWORK SUB-ADDRESS b r , P CF A15,GETSSA GET SYMBOLIC SUB-ADDRESS b ( P ST A1,ECBCW2,A8 AND SAVE IT IN ECB b P IFT REMTIM=1 =9
0x3b81a4…3b8338 Dummy {f00=0x012b, f01=0x018e, f02=»DK A1,0 RC : ACCEPTED AND COMPLETED b ( P LDR* A2,A4 GET NEXT BUFFER IN QUEUE c , * P RF(Z) RQRE20 NO MORE BUFFERS IN QUEUE c X 0 P ORKL A1,R:DATA RC: AND MORE DATA AVAILABLE c PRQRE20 EQU * c . P ST A2,DWTIPC,A6 STORE AS FIRST IN QUEUE c P ADK A4,
0x3b8338…3b84cc Dummy {f00=0x012b, f01=0x0190, f02=» P* d $ P* COMPLETE APPLICATION REQUEST d P* d 6 PRTREQ EQU * d @ & P LDKL A1,R:REQ RC = REQUEST ERROR d T P RF RQRTN d ~ PRTABRT EQU * d P LDKL A1,R:ABRT RC = ABORTED d P RF RQRTN d PRTTIME EQU * d P LDK A1,R:TIME RC = TIME O
0x3b84cc…3b8660 Dummy {f00=0x012b, f01=0x0190, f02=»R:LGTH RC = ILLEGAL LENGTH d P RF RQRTN e " PRTLOGC EQU * e 4 0 P LDK A1,R:LOGC RC = LOGICAL CONNECTION ERROR e H P RF RQRTN e | PRTPHYC EQU * e 2 P LDK A1,R:PHYC RC = PHYSICAL CONNECTION ERROR e P RF RQRTN e PRTOK EQU * e P LDK A1,0 RC
0x3b8660…3b87f4 (6, 16) Dummy {f00=0x012b, f01=0x0190, f02=»EY IN TABLE & BRANCH ON ADDRESS e | P* f ( P* CALL: f 2 8 P* CF A15,LOOKUP TABLE ADDRESS TO STACK f B < P* DATA LAST,ADDRE LAST ENTRY; ERROR ADDRESS f ~ > P* DATA KEY1,ADDR1 KEY (A2); ADDRESS FOR BRANCH f P* "
0x3b87f4…3b8988 Dummy {f00=0x012b, f01=0x0190, f02=»LOOKUP EQU * f < P LDR* A3,A15 POINT TO NEXT INSTRUCTION ADDRESS IN STACK g . P LDR* A3,A15 GET CONTENTS = TABLE ADDRESS g T & P LDR* A4,A3 GET LAST LEGAL ADDRESS g P LD A1,2,A3 ERROR ADDRESS g P* g PLOOK50 EQU * LOOP ENTRY g * P ADK A3,4 GE
0x3b8988…3b8b1c Dummy {f00=0x012b, f01=0x0190, f02=»? g p ( P RB(NE) LOOK50 NO - CHECK NEXT ENTRY h & P ABI 2,A3 BRANCH TO TABLE ADDRESS h 6 P* KEY NOT FOUND h ` PLOOK90 EQU * h x " P LDR P,A1 GO TO ERROR ADDRESS h P EJECT h P* h P* h P* h " P* REQUEST TIMER HANDLING PART h P* h
0x3b8b1c…3b8cb0 Dummy {f00=0x012b, f01=0x0190, f02=»UE h p P RF(N) TIMRTN NO TIMING i . P RF(Z) ITOUTR TIMER=0 => IMMEDIATE TIMEOUT i * P ST A2,TIMERR i P CF A15,SETIME i r P DATA TOUTRE i PTIMERR DATA 0 i ( P ST A4,DWTRTP,A6 STORE TIMER POINTER i PTIMRTN EQU * i P ABL RTNA15 i P*
0x3b8cb0…3b8e44 Dummy {f00=0x012b, f01=0x018e, f02=»ETCH DWT i P CM DWTRTP,A6 j * P RF TIMOUT COMPLETE REQUEST RC=TIMEOUT j & P* j T P* j ^ " P* RETURN FROM TIMER HANDLING j h P* j P EJECT j P* j P* SEND TIMER=TIMWR j P* j PTIMEWR LDR A1,A6 j & P LD A2,DWTRTV,A6 GET TIMEOUT
0x3b8e44…3b8fd8 Dummy {f00=0x012b, f01=0x0190, f02=» P DATA TOUTWR k PTIMWR DATA 0 k P ST A4,DWTRTP,A6 k , P RB TIMRTN k D P* k V P* TIMEOUT WRITE TIMER k ` P* k ~ PTOUTWR EQU * k P LDR A6,A1 FETCH DWT k P CM DWTRTP,A6 k * P CF A15,REMOVW REMOVE FROM WRITE QUEUE k P* k P*
0x3b8fd8…3b916c Dummy {f00=0x012b, f01=0x0190, f02=»MOUT THIS DWT IS NOT WRITING k ( P CM XACK INDICATE 'ACK NOT EXPECTED' l $ P CM FDWTUT l P PTIMOUT EQU * l b , P ABL RTTIME COMPLETE REQUEST RC=TIMEOUT l v P EJECT l P* l P* l P* STOP REQUEST TIMING l P* l & P* REMAINING TIME IS RETU
0x3b916c…3b9300 Dummy {f00=0x012b, f01=0x0190, f02=»FT REMTIM=1 =9 l P LDR* A2,A2 =9 m $ P NGR A2,A2 GET REMAINING TIME =9 m 0 P XIF =9 m X P CM* DWTRTP,A6 KILL TIMER =9 m j P CM DWTRTP,A6 m P =3 m PCTIM10 EQU * m P ABL RTNA15 m P EJECT m P* m P* GET RECEIVE BUFFER m
0x3b9300…3b9494 (6, 17) Dummy {f00=0x012c, f01=0x0190, f02=»A2 AND A3 ARE DESTROYED m P* n P* n * ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS n 4 P INH n ` P LDR* A4,A2 n l P RF(Z) GBUF10 NO BUFFER FREE n . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN n P STR A3,A2 n PGBUF10 EQU * n P ABL RTNA15
0x3b9494…3b9628 Dummy {f00=0x012c, f01=0x0190, f02=»CE: CF A15,RRBUF n P* A2 AND A3 ARE DESTROYED o P* o : P* o D ( PRRBUF LDKL A2,DCRBUF RECEIVE BUFFERS o N P INH o z PRBUF10 EQU * o P LDR* A3,A2 o P RF(Z) RBUF20 o P LDR A2,A3 o P RB RBUF10 o PRBUF20 EQU * o P STR A4,A2 o
0x3b9628…3b97bc Dummy {f00=0x012c, f01=0x0190, f02=»* o P* A6 - DWT ADDR p P* A1 AND A4 ARE DESTROYED p " ( P* CALLING SEQUENCE: CF A15,RELBUF p D P* p p P* p z PRELBUF EQU * p * P LDK A1,DWTIPC SET BUFFER QUEUE DISP. p P ADR A1,A6 p PRLBU10 EQU * p $ P LDR* A4,A1 NEXT IN BUFFER Q
0x3b97bc…3b9950 Dummy {f00=0x012c, f01=0x0190, f02=»10 p P EJECT q P* q P* q " & P* INSERT DWT IN SEND REQUEST QUEUE q , P* q V P* A2,A3,A4 DESTROYED q ` P* A6=DWT q | P* q ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR q P LDK A4,DWTOPN q PINSWQ2 LDR* A3,A2 q $ P RF(Z) INSWQ3 END OF Q
0x3b9950…3b9ae4 Dummy {f00=0x012c, f01=0x018e, f02=»QUEUE q x P RB GBUF10 RETURN r P EJECT r ( P* r 6 P* r @ ( P* REMOVE DWT FROM SEND REQUEST QUEUE r J P* r v P* A2,A3,A4 DESTROYED r P* A6=DWT r P* r * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR r . P LDK A4,DWTOPN GET DWT-LINK TO BE RE
0x3b9ae4…3b9c78 Dummy {f00=0x012c, f01=0x018e, f02=» P RF(E) REM15 s P LDR A2,A3 GET NEXT s P RB REM10 s 4 PREM15 LDR* A3,A4 REMOVE s F P STR A3,A2 s f P RB GBUF10 RETURN s x P EJECT s P* s P* s P* INSERT DWT IN STATUS QUEUE s P* s P IFF STARVI=0 s P* A2,A3,A4 DESTR
0x3b9c78…3b9e0c Dummy {f00=0x012c, f01=0x0190, f02=» s " P* REMOVE DWT FROM STATUS QUEUE t P* t . P* A2,A3,A4 DESTROYED t 8 P* A6=DWT t T P* t d * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR t n P LDK A4,DWTOPE t P RB REM06 t P XIF t P EJECT t P* t P* t $ P* QUEUE ALLOCATED RECE
0x3b9e0c…3b9fa0 Dummy {f00=0x012c, f01=0x0190, f02=»TIPC SET BUFFER QUEUE DISP. t P ADR A2,A6 u $ PQR100 EQU * u 6 P LDR* A3,A2 u J $ P RF(Z) QR200 END OF QUEUE FOUND u ^ P LDR A2,A3 u P RB QR100 u & PQR200 STR A4,A2 INSERT INTO QUEUE u " P CMR A4 INDICATE END OF QUEUE u P RTN A5 u
0x3b9fa0…3ba134 (6, 18) Dummy {f00=0x012c, f01=0x0190, f02=» P ST A4,LCA4 v P ST A5,LCA5 v P ST A6,LCA6 v , P ST A7,LCA7 v @ P ST A8,LCA8 v T P RF RTNA15 RETURN v h P* v P* v P* RESTORE v $ P* CALLING SEQUENCE: CF A15,LDREG v P* v PLDREG LDKL A3,0 v PLCA3 EQU *-2 v P L
0x3ba134…3ba2c8 Dummy {f00=0x012c, f01=0x018e, f02=»QU *-2 v P LDKL A8,0 w PLCA8 EQU *-2 w P* w 4 P* w > P* RETURN VIA REGISTER 15 w H P* w j PRTNA15 EQU * w t P ADKL A15,4 w P ABR* A15 w P EJECT w P* w P* POLL TIME OUT w P* w ( PPTOUT LDKL A5,STB LOAD A5 STACK
0x3ba2c8…3ba45c Dummy {f00=0x012c, f01=0x0190, f02=» P* COUNT POLL TIME OUT x P* x " P LDK A1,CSSXC3 x , P CF A15,DCSUPS x B P XIF x X $ P CF A15,SPOTIM START POLL TIMER x d P ABL TDISP x P* x 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED x P* x PCPTIM EQU * x P LDK A2,1
0x3ba45c…3ba5f0 Dummy {f00=0x012c, f01=0x0190, f02=» P* START POLL TIMER y P* y PSPOTIM EQU * y ( , P LDR A1,A6 LOAD DWT ADDRESS AS PARAMETER y < P CF A15,SETIME START TIMER y l P DATA PTOUT,TIMPOL y & P ST A4,DCTPGP STORE TIMER POINTER y P RB RTNA15 RETURN y P EJECT y P* y P* ST
0x3ba5f0…3ba784 Dummy {f00=0x012c, f01=0x0190, f02=»PRO y $ P ST A4,DCTPP SAVE TIMER POINTER z P RTN A5 z 4 P* z D P* PROCEDURE TIMEOUT z N P* z j PPRTOUT CM DCTPP z t P LDR A6,A1 RELOAD A6 z P LDKL A5,STB LOAD STACK BASE z P LDKL A7,DTETAB z P IFT STTSTS=1 z P* z P* z
0x3ba784…3ba918 Dummy {f00=0x012c, f01=0x0190, f02=»OPEN SALCUZ z t P LD A1,XACK { " P RF(Z) PRT10 ACK NOT EXPECTED { ( P CF A5,TRENQ SEND ENQ { N & P CF A5,SPTIM START PROCEDURE TIMER { l PPRT10 ABL BRM { P EJECT { P* { P* STOP PROCEDURE TIMER { P* { ( PHPTIM LD A1,DCTPP GET TIMER
0x3ba918…3baaac Dummy {f00=0x012c, f01=0x0190, f02=» ( P* WAIT 1 SEC. FOR MODEM CONNECTION | P* | 0 P | : PDTE:ON LDR A1,A6 DWT ADDRESS | B P CF A15,SETIME WAIT 1 SEC. | f P DATA DTE:10,10 | P =1 | P LDKL A5,STB =1 | " P CF A5,CSYNCI CONNECT MODEM =1 | * P CF A5,CHALTI NO INTERRUPTS
0x3baaac…3bac40 Dummy {f00=0x012c, f01=0x018e, f02=»DR A6,A1 DWT ADDRESS | P LDKL A7,DTETAB } $ P IM DTESTA,A7 SET OPEN STATUS =1 } 4 P LDKL A5,STB =1 } * P CF A5,CSYNCI PUT CU IN ACTIVE MODE =1 } t 8 P CF A5,CHALTI HALT I/P DEVICE TO GET MODEM STATUS =1 } 0 P IM DTEPLS,A7 PRESET PHYSICAL STATUS = OK
0x3bac40…3badd4 (6, 19) Dummy {f00=0x012c, f01=0x0190, f02=» } ~ " P LDR A1,A2 SET RETURN CODE =1 ~ * P CF A15,TENDIO COMPLETE THE REQUEST =1 ~ . & P CF A15,SPOTIM START POLL TIMER =6 ~ P ABL BRM START I/P =1 ~ P EJECT ~ P IFT MESPAS=1 ~ P* ~ P* ~ P* GET DWT ADDRESS ~ P* ~ PMESDWT E
0x3badd4…3baf68 Dummy {f00=0x012c, f01=0x0190, f02=» DDT-ADDR ~ P RF(E) MES200 YES " P LD A2,DWTST,A6 ANY REQUEST ? , P RF(N) MESD50 NO R ( P LD A2,DWTOR,A6 ANY MESSAGE ORDER ? j P ANK A2,/FF P RF(Z) MES200 YES & P SUK A2,RECEIVE A RECEIVE ORDER ? P RF(Z) MES200 YES P
0x3baf68…3bb0fc Dummy {f00=0x012c, f01=0x0190, f02=»00 PMES100 EQU * P LDR A6,A7 GET DTETAB-ADDR PMES200 EQU * @ P ABL RTNA15 RETURN VIA A15 T P XIF v P EJECT P* P* P* BASIC RECEIVE MODE P* " P* ENTERED EVERY TIME A MESSAGE & P* IS EXPECTED FROM THE M
0x3bb0fc…3bb290 Dummy {f00=0x012c, f01=0x0190, f02=»EAR TRANSPARENT TEXT , P CF A5,CSYNCI START INPUT WITH SYNC DEF P* L P* V P* ` P CF A5,READP READ CHARACTER j P RF(NZ) BRM120 PARITY ERROR P* P* * P* CHECK IF IT IS A CONTROL CHARACTER P* P LDR A1,A2
0x3bb290…3bb424 Dummy {f00=0x012c, f01=0x0190, f02=»A STX,STX100 STX RECEIVED " P DATA EOT,EOT100 EOT RECEIVED " " P DATA ENQ,ENQ100 ENQ RECEIVED H " P DATA DLE,DLE100 DLE RECEIVED n ( PBRM100 DATA NAK,NAK100 NAK RECEIVED P EJECT P* P* P* THROUGHPUT ERROR P* P
0x3bb424…3bb5b8 Dummy {f00=0x012c, f01=0x0190, f02=» SYNC DEF r P* P* $ P* WAIT FOR MARK HOLD TO RESYNC. & P* N PBRM120 EQU * X P CF A5,READ READ CHARACTER l 0 P LD A1,DCSTCU ANY STATUS FROM CONTROL UNIT ? P RF(NZ) BRM130 YES P ANK A2,/7F P SUK A2,/7F P RB(
0x3bb5b8…3bb74c Dummy {f00=0x012c, f01=0x0190, f02=»IT IS A POLL OR A SELECT SEQUENCE P* * PBRM200 EQU * 4 P IFT MSV1=0 H P LDR A4,A2 P CF A5,READP READ CHARACTER n P CWR A2,A4 $ P RB(NE) BRM120 INVALID SEQUENCE P XIF P LDK A3,0 P CC A2,1,A7 IS IT A POLL ?
0x3bb74c…3bb8e0 Dummy {f00=0x012c, f01=0x018e, f02=»QU * P CF A5,READP READ 1:ST STA P RB(NZ) BRM PARITY ERROR . P LDR A4,A2 N P IFT MSV1=0 ` P CF A5,READP READ 2:ND STA t P CWR A2,A4 $ P RB(NE) BRM120 INVALID SEQUENCE P XIF P CF A5,READP READ ENQ P SUK A2,ENQ
0x3bb8e0…3bba74 (6, 20) Dummy {f00=0x012c, f01=0x018e, f02=» P EJECT P* P* 0 P* CHECK IF IT IS A SELECT OR A POLL ADDRESS & P* Z P LDK A1,1 d P ST A1,CACK LOAD ACK-COUNTER v P LDR A2,A4 P SUK A3,2 P RF(Z) SELECT SELECTING P* P* P* POLLING P*
0x3bba74…3bbc08 Dummy {f00=0x012c, f01=0x0190, f02=» P EJECT P* P* & P* SPECIFIC POLL HAS BEEN RECEIVED * P* T P* ^ P IFF STARVI+SPECP=0 h P LD A1,XACK P RF(NZ) POL100 ACK EXPECTED * P LDR A6,A3 LOAD DWT ADDRESS IN A6 =10 8 P RF(Z) POL150 REQ. DEV. NOT CO
0x3bbc08…3bbd9c Dummy {f00=0x012c, f01=0x018e, f02=» " P RF(NZ) POL120 PENDING STATUS P XIF * P IFF STARVI+SPECP=0 6 P LD A1,DWTST,A6 R P RF(N) POL150 NO REQUEST j P LD A1,DWTOR,A6 GET ORDER & P ANK A1,/FF MASK AWAY OPTION PART P SUK A1,6 P RF(Z) POL170 WRITE REQUEST
0x3bbd9c…3bbf30 Dummy {f00=0x012c, f01=0x0190, f02=» PGPOLL EQU * P LD A1,XACK " P RF(Z) POL110 ACK NOT EXPECTED , P =11 R PPOL100 EQU * b * P CF A5,HPTIM KILL PROCEDURE TIMER =11 v P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER P ABL BRM WAIT FOR RESPONSE
0x3bbf30…3bc0c4 Dummy {f00=0x012c, f01=0x0190, f02=» BE SENT v " P SUK A6,DWTOPE GET DWT ADDRESS PPOL120 EQU * 6 P CF A5,TRSTA SEND STATUS J & P CF A5,SPTIM START PROCEDURE TIMER j P IM XACK SET 'ACK EXPECTED' P XIF P IFF STARVI=1 P RF POL140 P XIF PPOL130 EQU *
0x3bc0c4…3bc258 Dummy {f00=0x012c, f01=0x0190, f02=»EOT ~ P RB POL130 PPOL160 EQU * " P SUK A6,DWTOPN GET DWT ADDRESS 2 PPOL170 EQU * X $ P LD A8,DWTECB,A6 GET ECB ADDRESS l P RF(NZ) POL180 P CF A15,REMOVW P RB POL150 PPOL180 EQU * P ST A8,FECB SAVE ECB ADDRESS
0x3bc258…3bc3ec Dummy {f00=0x012c, f01=0x0190, f02=»E DATA FROM USER BUFFER ~ P XIF & P LD A4,ECBBA,A8 GET BUFFER ADDRESS , P LD A3,ECBRL,A8 GET LENGTH V PPOL190 EQU * x & P ST A4,FECBBA SAVE BUFFER ADDRESS P . =15 P ST A3,FECBRL SAVE LENGTH P CM FBAX RESET BUFFER INDEX
0x3bc3ec…3bc580 Dummy {f00=0x012c, f01=0x0190, f02=»RE TIMER v P IM XACK SET 'ACK EXPECTED' P RB POL130 4 P EJECT F P* T P* ^ P* SELECT HAS BEEN RECEIVED h P* PSELECT EQU * P CF A5,FINTES P LDR A6,A3 GET DWT-ADDR P RF(NZ) SEL100 P IFT MESPAS=1
0x3bc580…3bc714 (6, 21) Dummy {f00=0x012d, f01=0x0190, f02=»A1,XACK & P RB(NZ) POL100 ERROR. ACK EXPECTED P IFF STARVI=0 : P LD A1,DWTST,A6 GET STATUS P P LDR A3,A1 r P ANK A1,1 $ P RF(Z) SEL120 NO PENDING STATUS P CF A5,TRRVI SEND RVI P XIF P IFF STARVI=1 P RF SEL120
0x3bc714…3bc8a8 Dummy {f00=0x012d, f01=0x0190, f02=» OR DB ? =2 | P RF(NZ) SEL140 YES =2 P XIF 2 P =2 > P LD A1,DCRBUF L $ P RF(NZ) SEL150 BUFFER AVAILABLE b P IFT STTSTS=1 ( P LDK A1,CSSRBY BUFFER NOT AVAILABLE $ P CF A15,DCSUPS INCREMENT COUNTER P XIF PSEL140 E
0x3bc8a8…3bca3c Dummy {f00=0x012d, f01=0x0190, f02=»F A5,PRREC PREPARE FOR TEXT RECEPTION P ADK A1,6 . P ST A1,FBLST @ P CF A5,TRACK SEND ACK,0 T P RB SEL110 t P EJECT P* P* P* EOT HAS BEEN RECEIVED P* P* PEOT100 EQU * & P CF A5,HPTIM STOP PROCED
0x3bca3c…3bcbd0 Dummy {f00=0x012d, f01=0x0190, f02=»D p " P LD A6,FDWTUT GET WRITING DWT P RF(Z) EOT110 NO ONE WRITING 0 P LDK A1,2 SET RC=2 T ( P CF A5,CWRITE COMPLETE WRITE REQUEST n PEOT110 EQU * " P CM XACK RESET 'ACK EXPECTED' PEOT120 EQU * P CM XSEL RESET 'SELECTED'
0x3bcbd0…3bcd64 Dummy {f00=0x012d, f01=0x018e, f02=» P IFT TPMODE=1 P ABL BRM120 INVALID SEQENCE PSTX110 EQU * B P XIF V P LD A1,XSEL b P RF(Z) STX150 NOT SELECTED v P LD A1,DCRBUF P IFF STTSTS=1 & P ABL(Z) BRM120 NO BUFFER AVAILABLE P XIF P IFT STTSTS=1
0x3bcd64…3bcef8 Dummy {f00=0x012d, f01=0x018e, f02=» n P ABL BRM120 P XIF PSTX120 EQU * ( P CF A5,RDMESS READ MESSAGE < P IFT STTSTS=1 ^ P* t P* ~ P* COUNT MESSAGES RECEIVED P* P LDK A1,CSSRBL P CF A15,DCSUPS P XIF P SUK A3,1 P RF(NZ) ST
0x3bcef8…3bd08c Dummy {f00=0x012d, f01=0x0190, f02=» P ABL BRM PSTX150 EQU * P IFT RCOM=1 ( P LD A1,XACK < & P RF(Z) STX160 ACK IS NOT EXPECTED P P LD A1,DCRBUF z & P RF(Z) STX160 NO BUFFER AVAILABLE " P LD A6,FDWTUT GET WRITING DWT 0 P ABL(Z) BRM120 NO ONE WRITING. RESYNCHRO
0x3bd08c…3bd220 Dummy {f00=0x012d, f01=0x0190, f02=» WRITE REQUEST z P CM CACK PRESET ACK-1 P RB STX120 READ THE MESSAGE 4 P XIF X ( PSTX160 CF A5,READ READ ONE CHARACTER d P CWK A2,ENQPAR IS IT ENQ ? ( P RB(Z) STX140 FORWARD ABORT SEQUENCE P RB EOT120 PSTX170 EQU * P IM
0x3bd220…3bd3b4 (6, 22) Dummy {f00=0x012d, f01=0x0190, f02=»LOCK v P IFF RCOM=0 P LDK A1,ESC P CCR A1,A4 4 P RB(NE) STX130 ESC NOT FOUND F P LC A1,1,A4 GET COMMAND CODE j P SUK A1,RDBCOM ( P RF(Z) RDBUF READ MODIFIED RECEIVED P SUK A1,RDMCOM-RDBCOM & P RF(Z) RDMOD READ BUFFER R
0x3bd3b4…3bd548 Dummy {f00=0x012d, f01=0x0190, f02=» MESPAS=1 P CF A15,MESDWT P XIF ( P CWR A7,A6 IS IT DTETAB ? 4 P RF(E) STX280 SEND ACK V P LD A2,DWTSTA,A6 . =14 t , P RF(Z) STX280 TERMINAL DISCONNECTED =14 P CM FBAX * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER P ADK A4,
0x3bd548…3bd6dc Dummy {f00=0x012d, f01=0x0190, f02=»UFFER v P RF(Z) STX200 NO P ST A2,+4,A1 STORE THE ADDR & PSTX200 EQU * J P XIF ^ " P LD A2,DWTST,A6 ANY REQUEST ? j P RF(N) STX220 NO P LD A2,DWTOR,A6 GET ORDER P IFT EM3270=1 & P RF(Z) STX210 ANY MESSAGE ORDER ?
0x3bd6dc…3bd870 Dummy {f00=0x012d, f01=0x0190, f02=» ADDRESS x P LD A3,-4,A4 GET LENGTH * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH 0 . P LD A1,DWTLAD,A6 SYMBOLIC DTE ADDRESS =12 ^ ( P LD A2,-2,A4 NETWORK SUB-ADDRESS =12 0 P CF A15,GETSSA GET SYMBOLIC SUB ADDRESS =12 , P ST A1,ECBCW2,A8 AND SAV
0x3bd870…3bda04 Dummy {f00=0x012d, f01=0x0190, f02=»A2,ECBCW1,A8 STORE REMAINING TIME P XIF =9 * PSTX220 EQU * < P IFT STARVI=1 P P LC A2,+2,A4 GET WCC/CCC f P ANK A2,/FF P LC A2,TEBCDIC,A2 P ANK A2,8 P RF(Z) STX230 P LD A2,DWTST,A6 P ORK A2,/A P S
0x3bda04…3bdb98 Dummy {f00=0x012d, f01=0x0190, f02=» BUFFER ~ P RF STX270 PSTX240 EQU * " P LD A2,DWTOR,A6 GET ORDER 6 $ P CWK A2,RECEIVE RECEIVE ORDER ? X P RF(NE) STX260 NO P =12 P LDK A1,0 RESET RETURN CODE * P LD A2,DWTIPC,A6 ANY QUEUED MESSAGES ? P RF(Z) STX25
0x3bdb98…3bdd2c Dummy {f00=0x012d, f01=0x0190, f02=» P CF A5,QRBUF QUEUE BUFFER P IFT EM3270=1 & P LD A2,DWTOR,A6 GET ORDER < ( P RF(NZ) STX270 NOT ANY MESSAGE ORDER ^ $ P CF A15,TENDIO COMPLETE REQUEST P XIF PSTX270 EQU * P IFT STARVI=1 P LD A1,DWTST,A6 GET STATUS
0x3bdd2c…3bdec0 Dummy {f00=0x012d, f01=0x0190, f02=»,TRACK SEND ACK PSTX290 EQU * P ABL BRM , P EJECT < P* J P* T , P* READ MODIFIED OR READ BUFFER RECEIVED ^ P* P* P IFF RCOM=0 $ PRDBUF EQU * READ BUFFER COMMAND PRDMOD EQU * " P CM XSEL RESET SELECT
0x3bdec0…3be054 (6, 23) Dummy {f00=0x012d, f01=0x0190, f02=»ADDRESS x " P LDKL A3,1922 REQUESTED LENGTH " P IM XRB SET READ BUFFER SWITCH 6 P CM FDWTUT P LDK A1,1 n & P XRS A1,CACK INCREMENT ACK COUNTER P ABL POL190 P XIF P EJECT P* P* P* ENQ HAS BEEN RECEIVED
0x3be054…3be1e8 Dummy {f00=0x012d, f01=0x0190, f02=»OF MESSAGE r P OR A1,XSEL " P RF(Z) ENQ110 IN CONTROL STATE & . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE L PENQ110 EQU * ~ P ABL BRM P EJECT P* P* P* NAK HAS BEEN RECEIVED P* P* PNAK100 EQU *
0x3be1e8…3be37c Dummy {f00=0x012d, f01=0x018e, f02=»IN CONTROL STATE P RF DLE160 PNAK110 EQU * * " P LD A6,FDWTUT GET WRITING DWT > P IFF STARVI=0 d P LD A1,XSTA z 0 P ABL(NZ) POL120 STATUS HAS BEEN TRANSMITTED P XIF 0 P LD A1,FBLST GET START POINT FOR LAST BLOCK & P SU A1
0x3be37c…3be510 Dummy {f00=0x012d, f01=0x0190, f02=» P* P LDK A1,CSSTRT P CF A15,DCSUPS $ P XIF : P ABL POL200 F P EJECT Z P* h P* r P* DLE HAS BEEN RECEIVED | P* P* PDLE100 EQU * & P CF A5,HPTIM STOP PROCEDURE TIMER P LD A1,XACK P RF(NZ
0x3be510…3be6a4 Dummy {f00=0x012d, f01=0x0190, f02=» RB ENQ110 PDLE110 EQU * & P CF A5,READ READ SECOND CHARACTER & P CWK A2,ACKPAR IS IT ACK 0 ? P P RF(NE) DLE130 t P* P* ACK , 0 RECEIVED P* P LD A1,CACK GET ACKCOUNTER P RF(Z) DLE140 ACK,0 EXPECTED PDLE120 EQU
0x3be6a4…3be838 Dummy {f00=0x012d, f01=0x0190, f02=» P RF(NE) DLE180 P* P* ACK , 1 RECEIVED $ P* > P LD A1,CACK GET ACK COUNTER H $ P RB(Z) DLE120 ACK,1 NOT EXPECTED l PDLE140 EQU * P LD A1,XETX P RF(Z) DLE170 ETX NOT SENT P EJECT P* , P* ACK HAS BEEN REC
0x3be838…3be9cc Dummy {f00=0x012d, f01=0x0190, f02=»DLE200 STATUS HAS BEEN TRANSMITTED P XIF * ( P CF A5,CWRITE COMPLETE WRITE REQUEST 6 PDLE160 EQU * b P CF A5,TREOT SEND EOT v P IFT RCOM=1 P CM XRB RESET READ BUFFER P XIF P RB ENQ110 PDLE170 EQU * P LDK A1,1
0x3be9cc…3beb60 Dummy {f00=0x012d, f01=0x0190, f02=» INVALID DLE SEQUENCE " P CM XACK RESET 'EXPECTING ACK' P LD A1,XETX D $ P RF(NZ) DLE190 ETX HAS BEEN SENT X P LDK A1,2 SET RC=2 P RB DLE150 PDLE190 EQU * P LDK A1,0 SET RC=0 P RB DLE150 P EJECT P IFF STARVI=0
0x3beb60…3becf4 (6, 24) Dummy {f00=0x012d, f01=0x0190, f02=» r , P CF A15,REMOVS REMOVE FROM STATUS QUEUE P CM XSTA CLEAR 'STATUS SENT' 8 " P CM XACK CLEAR 'ACK EXPECTED' P LD A1,DWTST,A6 GET STATUS P ANK A1,4 P RB(Z) DLE160 NOT DE P LDKL A1,/8000 " P ANS A1,DWTST,A6 CLEAR STATUS
0x3becf4…3bee88 Dummy {f00=0x012d, f01=0x0190, f02=»CALLING SEQUENCE: CF A5,FINTER(S) P* A2=SUBTERMINAL ADDRESS * P* A4 DESTROYED J " P* A3#0: DWT TO FOUND TERMINAL ` P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES * P* ENTRY: FINTES - CHECK SELECT ADDRESS , P* F
0x3bee88…3bf01c Dummy {f00=0x012d, f01=0x0190, f02=»FINT05 P XIF PFINTEP EQU * P LDK A4,1 RIGTH BYTE . PFINT05 EQU * J " P LD A3,DTEDWT,A7 GET FIRST DWT ^ PFINT10 EQU * P RF(Z) FINT20 END QUEUE P ADR A3,A4 " P CCR A2,A3 THIS SUB-ADDRESS ? P RF(E) FINT20 YES
0x3bf01c…3bf1b0 Dummy {f00=0x012d, f01=0x018e, f02=»JECT P* P* P* PREPARE FOR TEXT RECEPTION P* D P* N PPRREC EQU * X P IM XSEL SET 'SELECTED' l P CM FBAX RESET BUFFER INDEX P IFT CODE=1 . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC P XIF $ P ST A2
0x3bf1b0…3bf344 Dummy {f00=0x012d, f01=0x0190, f02=» 6 P* CHECK IF THERE IS A SEND REQUEST TO BE COMPLETED P* > P* A1 CONTAINS RETURN CODE H P* j P* t PCWRITE LD A6,FDWTUT ~ $ P RF(Z) CWR900 NO WRITE GOING ON P LD A2,DWTST,A6 P RF(N) CWR900 NO REQUEST P LD A2,DWTOR,A
0x3bf344…3bf4d8 Dummy {f00=0x012d, f01=0x0190, f02=» ANY RECEIVED BUFFERS ON QUEU ? P RF(Z) CWR110 NO ( 0 P ORKL A1,R:DATA ACCEPTED AND DATA AVAILABLE @ PCWR110 EQU * t P LD A8,DWTECB,A6 P CF A15,CTIME STOP TIMER P IFT REMTIM=1 =9 P ST A2,ECBCW1,A8 P XIF =9 $ P CF
0x3bf4d8…3bf66c Dummy {f00=0x012d, f01=0x0190, f02=» 'ACK EXPECTED' P CM FDWTUT P RTN A5 * P EJECT : P* H P* R P* READ ONE TEXT BLOCK P* z P* ON EXIT A3 CONTAINS : ( P* 0 : IF CORRECT ETX BLOCK RECEIVED 2 P* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW ( P*
0x3bf66c…3bf800 Dummy {f00=0x012d, f01=0x0190, f02=» x P LDK A3,0 P LD A1,XSTA $ P RF(NZ) RDM050 LAST INPUT WAS OK . " P LD A1,FBLST COMPUTE NEW INDEX V P SUR A1,A4 | P ST A1,FBAX PRDM050 EQU * P AD A4,FBAX ADD BUFFER INDEX ( P ST A4,FBLST REMEMBER START OF BLOCK P C
0x3bf800…3bf994 (6, 25) Dummy {f00=0x012e, f01=0x018e, f02=»ST BLOCK z P CF A5,READP P RF(NZ) RDM120 PARITY ERROR $ P CWK A2,ESC H P RF(NE) RDM110 * P CF A5,READP SKIP NEXT TWO CHARACTERS r P CF A5,READP P XIF P IFF TPMODE=1 PRDM100 EQU * $ P CF A5,READP READ ONE CHARACTE
0x3bf994…3bfb28 Dummy {f00=0x012e, f01=0x0190, f02=» l PRDM100 CF A5,READ P CWK A2,DLE CHECK IF DLE " P RF(NE) RDM112 NO B 0 P CF A5,READ SKIP DLE AND READ NEXT CHARACTER P CWK A2,SYNEBC CHECK IF SYN P RB(E) RDM100 SKIP SYN P CF A5,CRCCAL CALCULATE CRC " P CWK A2,DLE CHECK
0x3bfb28…3bfcbc Dummy {f00=0x012e, f01=0x0190, f02=»BC CHECK IF ETB P RF(E) RDM160 YES P CWK A2,ITB CHECK IF ITB 2 P RF(E) RDM175 YES R P CWK A2,ENQEBC CHECK IF ENQ l P RF(E) RDM140 YES SEND NAK P* P* P* GET END OF BLOCK P* PRDM105 EQU * P CF A5,REA
0x3bfcbc…3bfe50 Dummy {f00=0x012e, f01=0x0190, f02=» A2,ETBEBC $ P RB(NE) RDM105 NOT END OF BLOCK PRDM110 EQU * : $ P CM TPM OUT OF TRANSPARENT TEXT N P CF A5,RDCRC v ( P RF RDM140 INDICATE INVALID MESSAGE & PRDM112 CF A5,CRCCAL CALCULATE CRC P XIF P IFF TPMODE=1 P CWK A
0x3bfe50…3bffe4 Dummy {f00=0x012e, f01=0x0190, f02=»ITB RECEIVED P CWK A2,ENQ 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAGE ( P CWK A2,/FF ^ $ P RF(E) RDM140 MARK HOLD RECEIVED r P IFT CODE=0 P IFT BINTRM=1 P LDR A1,A2 P SUK A1,DC1+3 P RF(P) RDM115 NOT DC1-DC3
0x3bffe4…3c0178 Dummy {f00=0x012e, f01=0x0190, f02=» j P RF(NZ) RDM120 PARITY ERROR P LCR A1,A4 =7 , * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER B P ORR A2,A1 =7 p P XIF PRDM115 EQU * & P ADK A3,0 ERROR DETECTED EARLIER ? P RB(NZ) RDM100 YES !!! P SCR A2,A4 STORE CHARACTER
0x3c0178…3c030c Dummy {f00=0x012e, f01=0x018e, f02=»NG) RDM100 NOT OVERFLOW P* P* BUFFER OVERFLOW * P* D & P LDK A3,1 INDICATE BUFFER OVERFLOW N P IFT STTSTS=1 x " P LDK A1,CSSRBO BUFFER OVERFLOW $ P CF A15,DCSUPS INCREMENT COUNTER P XIF P RB RDM100 P* P* PA
0x3c030c…3c04a0 Dummy {f00=0x012e, f01=0x0190, f02=» n P XIF & P LDK A3,1 INDICATE INVALID MESSAGE P SUK A2,/7F > $ P RF(Z) RDM150 MARK HOLD RECEIVED R P RB RDM100 z P* P* ETX RECEIVED P* PRDM130 EQU * $ P LD A1,DCRBUF GET BUFFER ADDRESS P LD A2,FBAX GET BUFFER
0x3c04a0…3c0634 (6, 26) Dummy {f00=0x012e, f01=0x0190, f02=» P XIF P IFT CODE=1 & P CF A5,RDCRC READ CRC AND CHECK IT $ P RF(E) RDM150 CRC WAS OK N P XIF n PRDM140 EQU * z & P LDK A3,1 INDICATE INVALID MESSAGE PRDM150 EQU * P CF A5,CHALTI HALT INPUT P IFT P6805=1 P IFT COD
0x3c0634…3c07c8 Dummy {f00=0x012e, f01=0x0190, f02=» & P CWK A3,1 ERROR DETECTED EARLIER ? P RF(NE) RDM158 NO . $ P CM TPM OUT OF TRANSPARENT TEXT H PRDM158 EQU * p P XIF P RTN A5 P* P* ETB RECEIVED P* PRDM160 EQU * P LDR A3,A3 " P RB(NZ) RDM130 ALREADY I
0x3c07c8…3c095c Dummy {f00=0x012e, f01=0x0190, f02=» CODE=1 P CF A5,RDLRC " P RB(NZ) RDM120 LRC WAS NOT OK $ P XIF J P IFT CODE=1 V & P CF A5,RDCRC READ CRC AND CHECK IT j " P RB(NE) RDM120 CRC WAS NOT OK P IFT TPMODE=1 * PRDM175 CM TPM OUT OF TRANSPARENT TEXT $ P CF A5,RDC
0x3c095c…3c0af0 Dummy {f00=0x012e, f01=0x0190, f02=»E) RDM180 SKIP SYN P CWK A2,DLE $ P RB(NE) RDM105 ILLEGAL CHARACTER . P CF A5,READ V P CWK A2,STX j $ P RB(NE) RDM105 ILLEGAL CHARACTER ~ P XIF P RB RDM100 P EJECT P* P* TRANSMIT ACK 0 OR 1 P* PTRAC
0x3c0af0…3c0c84 Dummy {f00=0x012e, f01=0x018e, f02=»K0 | P RF TRDLE P* P* TRANSMIT WACK & P* > PTRWACK LDK A3,WACK LOAD WACK H P RF TRDLE l P* ~ P* TRANSMIT RVI P* P IFF STARVI=0 PTRRVI LDK A3,RVI LOAD RVI P XIF P* P* TRANSMIT DLE
0x3c0c84…3c0e18 Dummy {f00=0x012e, f01=0x0190, f02=» P* P* TRANSMIT NAK P* ( PTRNAK LDK A3,NAK LOAD NAK 2 P RF TREN10 T P* f P* TRANSMIT EOT p P* PTREOT LDK A3,EOT LOAD EOT P RF TREN10 P* P* TRANSMIT ENQ P* PTRENQ LDK A3,ENQ LOAD ENQ
0x3c0e18…3c0fac Dummy {f00=0x012e, f01=0x018e, f02=»T r & P LC A2,RESEND GET FIRST CHARACTER P CF A5,WRITEP SEND IT 4 & P LC A2,RESEND+1 GET NEXT CHARACTER R P CF A5,WRITEP SEND IT | PTRRE10 LDK A2,/FF P CF A5,WRIT05 SEND PAD P LDK A2,/FF P CF A5,WRIT05 P CF A5,CHALT
0x3c0fac…3c1140 Dummy {f00=0x012e, f01=0x0190, f02=» P* P* TRANSMIT ONE TEXT BLOCK P* 0 P* : PTRTEXT EQU * D P CF A5,TRSYNC START OUTPUT X P IFF TPMODE=0 z P LDK A2,DLE P CF A5,WRIDLE SEND DLE P XIF P LDK A2,STX P CF A5,WRITE SEND STX P SUR A8,
0x3c1140…3c12d4 (6, 27) Dummy {f00=0x012e, f01=0x0190, f02=» P . =15 & P LDK A3,0 RESET CHARACTER COUNTER P LD A1,FBAX GET BUFFER INDEX > " P RF(NZ) TRT100 NOT FIRST BLOCK b " P LDR* A2,A7 NETWORK POLL ADDR P CF A5,WRITEP SEND TCA " P LD A2,FDWTUT GET DWT-ADDRESS ( P LDR* A2,A2 GET NETWOR
0x3c12d4…3c1468 Dummy {f00=0x012e, f01=0x0190, f02=»A5,WRITEP " P LDK A2,/20 AND CURSOR ADDRESS P CF A5,WRITEP 8 P LDK A2,/20 N P CF A5,WRITEP b P XIF x P IFT RCOM=1 P & P LD A1,XRB READ BUFFER COMMAND ??? P RF(Z) TRT070 NO!! P P ********************
0x3c1468…3c15fc Dummy {f00=0x012e, f01=0x0190, f02=»ND LINE AND COLUMN NUMBER P LDK A3,5 SET BLOCK COUNT " P RF TRT100 D PTRT070 EQU * V P XIF j P v P LDK A3,2 ~ PTRT100 EQU * P IFT TPMODE=1 P IM TPM TRANSPARENT TEXT P XIF P LCR A2,A4 GET ONE CHARACTER
0x3c15fc…3c1790 Dummy {f00=0x012e, f01=0x0190, f02=»!! P @ P************************************************************ P* V , P* CHECK IF ATTRIBUTE CHARACTER OR NULL ` P* 4 P*********************************************** P & P CWK A2,X'20' ATTRIBUTE CHARACTER P RF(
0x3c1790…3c1924 Dummy {f00=0x012e, f01=0x0190, f02=»A PTRT102 EQU * P CWK A2,/7D END OF MESSAGE ? " P RF(NE) TRT103 NO,GO TO TRT103 B P LDK A2,/19 h PTRT103 EQU * | P CWK A2,X'7F' NULL ?? P RF(NE) TRT105 P SUK A2,1 P XIF P IFT RCOM=1 P RF TRT105 P
0x3c1924…3c1ab8 Dummy {f00=0x012e, f01=0x0190, f02=» l P ANK A2,X'7F' ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE P ANK A1,1 J P ANK A2,/1E MASK P SLL A2,1 t & P ORR A2,A1 IBM ATTRIBUTE COMPOSED " P ORK A2,/40 BIT ALWAYS SET ONE P LC A2,TASCII,A2 & P CWK A2,/18 CHECK SPECIAL
0x3c1ab8…3c1c4c Dummy {f00=0x012e, f01=0x0190, f02=»TRT110 PTRT105 EQU * P XIF " P EJECT . P IFF TPMODE=1 < P CWK A2,/07 R ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT f P XIF P CF A5,WRITEP SEND CHARACTER PTRT110 EQU * $ P IM FBAX INCREMENT BUFFER INDEX & P LD A1,FEC
0x3c1c4c…3c1de0 Dummy {f00=0x012e, f01=0x0190, f02=» CWK A3,TBLEN P IFT TPMODE=1 P RB(L) TRT105 NOT FULL BLOCK , P XIF P P RB(L) TRT100 NOT FULL BLOCK P IFT RCOM=1 , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK P CC A1,-2,A4 P RF(E) TRT115 YES P CC A1,-1,A4 P R
0x3c1de0…3c1f74 (6, 28) Dummy {f00=0x012e, f01=0x018e, f02=» P IM FBAX INCREMENT INDEX . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA $ P CF A5,WRITEP SEND IT V P IM FBAX INCREMENT INDEX t P XIF PTRT116 EQU * P IFT TPMODE=1 P LDK A2,DLE $ P CF A5,WRIDLE SEND AN EXTRA DLE P X
0x3c1f74…3c2108 Dummy {f00=0x012e, f01=0x0190, f02=» P IFF CODE=1 P LDR A2,A8 GET LRC P CF A5,WRITEP SEND LRC 2 P XIF P P IFT CODE=1 P LDR A2,A6 p P ANK A2,/FF " P CF A5,WRIT05 SEND CRC BYTE 1 P ECR A2,A6 P ANK A2,/FF " P CF A5,WRIT05 SEND CRC BYTE 2 P
0x3c2108…3c229c Dummy {f00=0x012e, f01=0x0190, f02=»PS P XIF P ABL TRRE10 HALT OUTPUT PTRT130 EQU * 6 P IM XETX INDICATE 'ETX SENT' J P IFT TPMODE=1 n P LDK A2,DLE $ P CF A5,WRIDLE SEND AN EXTRA DLE P XIF P LDK A2,ETX LOAD ETX P RB TRT120 SEND ETX AND LRC
0x3c229c…3c2430 Dummy {f00=0x012e, f01=0x0190, f02=»M XSTA INDICATE 'STATUS SENT' P ST A6,FDWTUT SAVE A6 & P CF A5,TRSYNC START OUTPUT D P LDK A2,SOH f P CF A5,WRITE SEND SOH z P SUR A8,A8 RESET LRC P LDK A2,'%' P CF A5,WRITEP SEND '%' P LDK A2,'R' P CF A5,WRITEP
0x3c2430…3c25c4 Dummy {f00=0x012e, f01=0x0190, f02=»T-ADDRESS | ( P LDR* A2,A4 GET NETWORK SUB-ADDRESS P CF A5,WRITEP SEND STA > P LD A1,DWTST,A4 GET STATUS P ANK A1,/06 MASK FOR S/S 0 ~ P SRL A1,1 $ P LC A2,SSTAB,A1 GET STATUS BYTE P CF A5,WRITEP SEND S/S 0 P LDK A2,NOIR P
0x3c25c4…3c2758 Dummy {f00=0x012e, f01=0x0190, f02=»O IR IF DE P LDK A2,IR PTRST10 EQU * $ P CF A5,WRITEP SEND S/S 1 8 P RB TRT130 SEND ETX AND LRC X P XIF | P EJECT P* P* & P* TRSYNC : TRANSMIT SYNC SEQUENCE P* PTRSYNC EQU * ( P CF A5,CHALTI HALT INP
0x3c2758…3c28ec Dummy {f00=0x012e, f01=0x0190, f02=»* SEND 4 SYN-CHARACTERS P* P LDK A3,4 * PTRS100 EQU * < P LDK A2,SYN P P CF A5,WRITE SEND CHARACTER d P SUK A3,1 P RB(NZ) TRS100 P RTN A5 RETURN TO CALLER P EJECT P* P* 0 P* CSYNCI :SEND SYNC-P
0x3c28ec…3c2a80 Dummy {f00=0x012e, f01=0x0190, f02=»STOP INPUT & P ST A5,DCLCI SET INPUT ACTIVE FLAG P IFT P6805=1 < . P LDK A2,PARITY CHAR PARITY FUNCTION FOR LC P P CIO A2,1,LCUIN START I/O P LDK A2,SYNC SYNC PATTERN 2 P OTR A2,1,LCUIN SEND INPUT SYNC-PATTERN TO LC P XIF P
0x3c2a80…3c2c14 (6, 29) Dummy {f00=0x012f, f01=0x0190, f02=»IF PCSYN:I EQU * P RTN A5 RETURN TO CALLER P* > P* H " P* CHALTI : HALT INPUT CHANNEL R P* x PCHALTI EQU * P IFT P6805=1 $ P LDK A2,CBSTOP STOP FUNCTION BIT P XIF P CIO A2,0,LCUIN HALT INPUT & P CM DCLC
0x3c2c14…3c2da8 Dummy {f00=0x012f, f01=0x0190, f02=»PTED, SET MODEM ERR. =1 r PCHALTR EQU * =1 P IFF LOGG=0 8 $ P CF A5,LOGSST LOGG INPUT STATUS L P XIF t P RTN A5 RETURN TO CALLER P EJECT P* P* 0 P* CSYNCO : START TRANSMITTER WITH SYNC DEF P* PCSYNCO E
0x3c2da8…3c2f3c Dummy {f00=0x012f, f01=0x018e, f02=» P CIO A2,1,LCUUT CIO START P RF(A) CSYNC1 ACCEPTED & $ P SST A2,LCUUT TRY TO READ STATUS D * P ABL BRM NOT ACCEPTED TIMEOUT REQUEST l PCSYNC1 EQU * " P LDK A2,SYNC DEF SYNC PATTERN & P OTR A2,1,LCUUT SEND SYNC PATTERN P XIF
0x3c2f3c…3c30d0 Dummy {f00=0x012f, f01=0x0190, f02=» P* $ P* CHALTO : HALT OUTPUT CHANNEL P* 6 PCHALTO EQU * @ P IFT P6805=1 T P LDK A2,CBSTOP STOP FUNCTION h P XIF P CIO A2,0,LCUUT HALT OUTPUT P IFT P6805=1 , P LDK A2,1 PRESET STATUS = MODEM ERROR =1 . P RF(NA)
0x3c30d0…3c3264 Dummy {f00=0x012f, f01=0x0190, f02=» P IFT STTSTS=1 P ANK A2,H:NOOP+H:THRU P RF(Z) CHLTO2 < $ P LDK A1,CSCDCE DCE NOT OPERABLE R P ANK A2,H:NOOP z P RF(NZ) CHLTO1 YES * P LDK A1,CSCDOT OUTPUT THROUGHPUT ERROR PCHLTO1 EQU * $ P CF A15,DCSUPS INCREMENT COU
0x3c3264…3c33f8 Dummy {f00=0x012f, f01=0x018e, f02=» P* P* PIH1501 EQU * P ST P,INTSAV , P IFT CPU852=1 @ P CF A15,SAVE8 SAVE A1-A8 V P XIF v P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P INR A2,0,LCUIN
0x3c33f8…3c358c Dummy {f00=0x012f, f01=0x0190, f02=» P IFT TPMODE=1 P C2 TPM 8 P RF(NZ) IHLC10 DO NOT SKIP SYNC IN TRANSPARENT TEXT . P XIF j P C2 SYNSW v 0 P RF(NZ) IHLC05 DO NOT SKIP SYNS IN BCC FRAME P CWK A2,SYNC P RF(E) READ PIHLC05 EQU * P IFT CODE=0
0x3c358c…3c3720 Dummy {f00=0x012f, f01=0x0190, f02=»CII p P XIF PIHLC10 EQU * P LDR A1,A2 , * P ORKL A1,/FF00 SET FLAG FOR CARRIER ON > & P ST A1,DCLCI SET INPUT ACTIV FLAG l P CM DCSTCU CLEAR SST SAVE P LDK A1,1 P ST A1,DTEPLS,A7 CU OPERABLE P RTN A5 RETURN TO CALLER
0x3c3720…3c38b4 (6, 30) Dummy {f00=0x012f, f01=0x0190, f02=» P* P* PIH1502 EQU * P ST P,INTSAV , P IFT CPU852=1 @ P CF A15,SAVE8 SAVE A1 - A8 V P XIF x P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RTN A5
0x3c38b4…3c3a48 Dummy {f00=0x012f, f01=0x0190, f02=»IT 13=PARITY ERROR (6805 ONLY) SALCUZ , P* BIT 14=THROUGHPUT ERROR . , P* BIT 15=MODEM NOT READY ^ P* PSST EQU * P SST A2,LCUIN GET STATUS P LDR A1,A2 P IFT LOGG=1 & P CF A5,LOGSST LOGG SST I
0x3c3a48…3c3bdc Dummy {f00=0x012f, f01=0x0190, f02=»S x * P RF(Z) SST125 INPUT NOT ACTIVE IGNORE ( P RF(N) SST100 INPUT ACTIVE WITH DATA 8 * P LDKL A2,CBCARR+SYNC DEF SYNC PATTERN d & P CIO A2,1,LCUIN START INPUT AGAIN $ P RF SST125 RETURN TO DISPATCHER P XIF P IFT P6805=1 P RF
0x3c3bdc…3c3d70 Dummy {f00=0x012f, f01=0x018e, f02=»075 NO P LD A2,DCLCI INPUT STATUS 0 P RF(Z) SST125 NOT ACTIVE IGNORE CARRIER OFF 0 P RF SST100 ACTIVE d PSST075 EQU * ~ P LDR A2,A1 $ P ANK A2,H:THRU THROUGHPUT ERROR P RF(Z) SST100 NO P IFT STTSTS=1 P* P*
0x3c3d70…3c3f04 Dummy {f00=0x012f, f01=0x0190, f02=» PSST100 EQU * P LDR A2,A1 P ANK A2,H:NOOP NOT OPERABLE . P RF(Z) SST200 R P IFT STTSTS=1 h P* ~ P* P* COUNT DCE NOT OPERABLE P* P LDK A1,CSCDCE P CF A15,DCSUPS P XIF P CF A15,STREG SAVE
0x3c3f04…3c4098 Dummy {f00=0x012f, f01=0x0190, f02=»* PSST150 EQU * P CF A15,LDREG LOAD REGISTERS PSST200 EQU * B P LDR A2,A1 V . P ANK A2,H:CARR CHECK STATUS IF CARRIER OFF h P RF(Z) SST225 NO 4 P XRK A1,H:CARR CHECK STATUS IF ONLY CARRIER OFF P RF(Z) SST250 YES PSST2
0x3c4098…3c422c Dummy {f00=0x012f, f01=0x0190, f02=» P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* B P* L PWRITE EQU * V P IFT CODE=1 j P C2 TPM ~ & P RF(Z) WRIT02 NOT TRANSPARENT MODE P CWK A2,DLE CHECK IF DLE P RF(NZ) WRIT05 NO P CF A5,WRIDLE SEND EXT
0x3c422c…3c43c0 Dummy {f00=0x012f, f01=0x018e, f02=»TION OF TRAILING PAD x * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC P XIF J PWRIT05 EQU * V " P OTR A2,0,LCUUT SEND CHARACTER j P RF(A) WRIT10 P IFF CODE=1 $ PWRIT10 XRR A8,A2 ACCUMULATE BCC P XIF P IFT CODE=1 & PWRIT10
0x3c43c0…3c4554 (6, 31) Dummy {f00=0x012f, f01=0x0190, f02=» P* PREAD CF A15,STREG P ABL TDISP , P* > P* H < P* THESE INSTRUCTIONS ARE ONLY USED TO SEND AN EXTRA DLE R * P* WHEN TRANSPARENT MODE IS CONFIGURED P* PWRIDLE EQU * " P OTR A2,0,LCUUT SEND CHARACTER P RB(
0x3c4554…3c46e8 Dummy {f00=0x012f, f01=0x0190, f02=»E A2 WITH PARITY P* P* " P IFT CODE+P6805=0 SALCUZ , PWRITEP ANK A2,/FF N P ECR A1,A2 h P ORK A2,/80 z PWRI100 SLL A1,1 P RB(P) WRI100 P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 P XIF P
0x3c46e8…3c487c Dummy {f00=0x012f, f01=0x0190, f02=» CHARACTER TO A2 AND CHECK PARITY P* * P* 4 PREADP CF A5,READ > P IFT CODE+P6805=0 SALCUZ V P ECR A1,A2 x PRE100 SLL A1,1 P RF(Z) RE110 P RB(NN) RE100 P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P
0x3c487c…3c4a10 Dummy {f00=0x012f, f01=0x0190, f02=» XRK A1,/80 P ABR* A5 P* $ P* . P EJECT 8 P* F P* P P* POWER ON FUNCTIONS Z P* v P* PDC15ON EQU * P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF P P IFF CPU852=1 P MSR 8,A15
0x3c4a10…3c4ba4 Dummy {f00=0x012f, f01=0x0190, f02=»T,A7 GET FIRST DWT ADDR PDC1510 EQU * P RF(Z) DC1520 END OF CHAIN 4 & P ORS A5,DWTST,A6 STORE DEVICE END V , P CF A15,INSSQ INSERT DWT IN STAUS QUEUE * P LD A6,DWTCHN,A6 GET NEXT DWT IN CHAIN P RB DC1510 PDC1520 EQU * P
0x3c4ba4…3c4d38 Dummy {f00=0x012f, f01=0x0190, f02=»DCLCI INIT LINE CONTROL UNIT INFO ( P LD A2,DCTPGP GET POLL TIMER POINTER * " P RF(NZ) DC1540 ALREADY STARTED V $ P CF A15,SPOTIM START POLL TIMER | PDC1540 EQU * P ABL BRM P EJECT P IFT CODE=1 P* P* P* CALCULAT
0x3c4d38…3c4ecc Dummy {f00=0x012f, f01=0x0190, f02=»2 P ST A2,CRCSAV+6 P ST A3,CRCSAV+10 " P ST A4,CRCSAV+14 : P LDK A1,8 R P LDR A4,A8 GET OLD CRC d PCRC100 LDR A3,A4 P SRL A4,1 P XRR A3,A2 P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 P XRKL A4,/A001
0x3c4ecc…3c5060 Dummy {f00=0x012f, f01=0x0190, f02=» P LDKL A3,0 P LDKL A4,0 P RTN A5 ( P EJECT 8 P* F P* P ( P* READ CRC CHARACTERS AND CHECK THEM Z P* CR = (E) IF CRC WAS OK P* P* PRDCRC EQU * P STR A8,A5 SAVE CURRENT CRC " P SUK A5,2 ADJUST STACK
0x3c5060…3c51f4 (6, 32) Dummy {f00=0x012f, f01=0x0190, f02=» BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+6 SAVE IT < P SLL A2,8 P XRR A2,A4 n P ADK A5,6 P CW A2,-4,A5 P ABR* A5 P XIF P IFT CODE=0 P* & P* RDLRC READ LRC CHARACTER "
0x3c51f4…3c5388 Dummy {f00=0x012f, f01=0x0190, f02=»LRCEND P ANKL A8,/007F PLRCEND EQU * $ P CM SYNSW 8 P ABR* A5 J P Z P XIF b P EJECT n , P**************************************** | P* P* DRIVER WORK AREAS P* , P****************************************
0x3c5388…3c551c Dummy {f00=0x012f, f01=0x0190, f02=»2 FREE BUFFER ANCHOR P IFF RBUFNR=2 P DATA *+RLINK 2 P RES RBUFL+3 H P IFF RBUFNR=3 P DATA *+RLINK r P RES RBUFL+3 P IFF RBUFNR=4 P DATA *+RLINK P RES RBUFL+3 P XIF P DATA *+RLINK P RES RBUFL
0x3c551c…3c56b0 Dummy {f00=0x012f, f01=0x0190, f02=» RES 3 MMU BUFFER FOR CONNECT REQUEST =16 P XIF 2 P EJECT > P* L P* V P* INTERRUPT LOGGING ROUTINE ` P* P* P IFF LOGG=0 PLOGSST ST A2,SAVE2 P ORKL A2,/F000 P RF LOG10 PLOGOUT ST A2,SAVE2 P
0x3c56b0…3c5844 Dummy {f00=0x012f, f01=0x018e, f02=»A3,LOGPNT P STR A2,A3 P ADK A3,2 $ P CWK A3,LOGEND 6 P RF(L) LOGEXI L P LDKL A3,LOGSTA b PLOGEXI ST A3,LOGPNT z P LD A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 P EJECT P* P* PLOGPNT DATA LOGSTA
0x3c5844…3c59d8 Dummy {f00=0x012f, f01=0x018e, f02=» P* P IFT RCOM=1 P EJECT " < P******************************************************* 0 P* p P* L I N C O L z P* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* > P**********************************
0x3c59d8…3c5b6c Dummy {f00=0x012f, f01=0x0190, f02=» & P LC A2,LICO:T,A2 ASCII LINE NUMBER " P CF A5,WRITEP SEND LINE NUMBER . P T P LDR A2,A3 P ANK A2,X'3F' n ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN P* P* P*
0x3c5b6c…3c5d00 Dummy {f00=0x012f, f01=0x0190, f02=»F l * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/5D24,/2A29,/3B5E /18-/1F 8 * P DATA /2D2F,/5354,/5556,/5758 /20-/27 f * P DATA /595A,/7C2C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A23,/4027,/3
0x3c5d00…3c5e94 (6, 33) Dummy {f00=0x0130, f01=0x0190, f02=» DATA 0,0 P DATA 0,0,0,0,0,0 P IFT MMUPAG=1 , P DATA 0,0 B P XIF T P* DRIVER DEPENDENT PART ` 2 P DATA DTESBU-DTETAB START OF STATISTIC BUFFER P DATA 0,0,0,0,0,0 P DATA 0,0,0,0,0,0 * PDTESBU EQU * P DATA 0
0x3c5e94…3c6028 Dummy {f00=0x0130, f01=0x0190, f02=» P* P* P* PROCEDURE WORK AREAS P* : P* D * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION N . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION | PXACK DATA 0 ACK EXPECTED PXSEL DATA 0 SELECTED PXETX DATA 0 ETX SENT 2 PXS
0x3c6028…3c61bc Dummy {f00=0x0130, f01=0x0190, f02=»=SKIP SYNS, 1=DON'T SKIP & PTPM DATA 0 IF =1 TRANSPARENT TEXT P* J PFECB RES 1 WRITING ECB T ( PFECBBA RES 1 WRITING BUFFER ADDRESS r & PFECBRL RES 1 WRITING BUFFER LENGTH PFBAX DATA 0 BUFFER INDEX 0 PFBLST DATA 0 START OF LAST TRANS
0x3c61bc…3c6350 Dummy {f00=0x0130, f01=0x412e, f02=» QUEUE v , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA P* > P EJECT H P* V P* ` P* CONSTANTS AND WORK AREAS j P* P* PDCSTCU DATA 0 CURRENT STATUS , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL & PDCLCI DATA 0 DC UNIT
0x3c6350…3c64e4 Dummy {f00=0x0130, f01=0x2008, f02=» H P X ` h p x
0x3c64e4…3c6678 Dummy {f00=0x0130, f01=0x0190, f02=»=ADDRESS TO CURRENT BLOCK-START ** b 6 P** OUTPUT:A11=ADDRESS TO NEXT BLOCK ** c , 6 P** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE ** c f 6 P** WORKREGS: A1,A3-A5 ** c 6 P**********************************************
0x3c6678…3c680c Dummy {f00=0x0130, f01=0x0190, f02=»N-BLOCK c j P LCR A5,A11 d P SLL A5,8 d $ P LC A5,1,A11 d 6 P CALL CONVRT d J P LDK A2,TDBREC d ^ P LDR A3,A1 d t P CALL MULT d P ADR A11,A3 d P ADKL A11,2 d 0 P LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES d P SLL A5,8 d P L
0x3c680c…3c69a0 Dummy {f00=0x0130, f01=0x0190, f02=»1=NEXT BLOCK d P ADKL A11,2 e $ P LC A2,TDBBT,A11 GET BLOCK TYPE e ( P RTN A14 e P P EJECT e ` P e n P e z 8 P** G E T N U M ** e 8 P** ** e 8 P**
0x3c69a0…3c6b34 (6, 34) Opaque[0x194]
0x3c6b34…3c6cc8 # DirEnt {nam=»XXXX15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2608, f03=0x0000}
0x3c6b34…3c6cc8 IdxSect {
0x3c6b34…3c6cc8 f00 = 0x0130 // 0x3c6b34 @0x0
0x3c6b34…3c6cc8 f01 = 0x003c // 0x3c6b36 @0x2
0x3c6b34…3c6cc8 gno = [ // 0x3c6b38 @0x4
0x3c6b34…3c6cc8 [0x00]: C0x0130.0x1.0
0x3c6b34…3c6cc8 [0x01]: C0x0130.0x2.0
0x3c6b34…3c6cc8 [0x02]: C0x0130.0x3.0
0x3c6b34…3c6cc8 [0x03]: C0x0131.0x0.0
0x3c6b34…3c6cc8 [0x04]: C0x0131.0x1.0
0x3c6b34…3c6cc8 [0x05]: C0x0131.0x2.0
0x3c6b34…3c6cc8 [0x06]: C0x0131.0x3.0
0x3c6b34…3c6cc8 [0x07]: C0x0132.0x0.0
0x3c6b34…3c6cc8 [0x08]: C0x0132.0x1.0
0x3c6b34…3c6cc8 [0x09]: C0x0132.0x2.0
0x3c6b34…3c6cc8 [0x0a]: C0x0132.0x3.0
0x3c6b34…3c6cc8 [0x0b]: C0x0133.0x0.0
0x3c6b34…3c6cc8 [0x0c]: C0x0133.0x1.0
0x3c6b34…3c6cc8 [0x0d]: C0x0133.0x2.0
0x3c6b34…3c6cc8 [0x0e]: C0x0133.0x3.0
0x3c6b34…3c6cc8 [0x0f]: C0x0134.0x0.0
0x3c6b34…3c6cc8 [0x10]: C0x0134.0x1.0
0x3c6b34…3c6cc8 [0x11]: C0x0134.0x2.0
0x3c6b34…3c6cc8 [0x12]: C0x0134.0x3.0
0x3c6b34…3c6cc8 [0x13]: C0x0135.0x0.0
0x3c6b34…3c6cc8 [0x14]: C0x0135.0x1.0
0x3c6b34…3c6cc8 [0x15]: C0x0135.0x2.0
0x3c6b34…3c6cc8 [0x16]: C0x0135.0x3.0
0x3c6b34…3c6cc8 [0x17]: C0x0136.0x0.0
0x3c6b34…3c6cc8 [0x18]: C0x0136.0x1.0
0x3c6b34…3c6cc8 [0x19]: C0x0136.0x2.0
0x3c6b34…3c6cc8 [0x1a]: C0x0136.0x3.0
0x3c6b34…3c6cc8 [0x1b]: C0x0137.0x0.0
0x3c6b34…3c6cc8 [0x1c]: C0x0137.0x1.0
0x3c6b34…3c6cc8 [0x1d]: C0x0137.0x2.0
0x3c6b34…3c6cc8 ]
0x3c6b34…3c6cc8 }
0x3c6cc8…3c6e5c Dummy {f00=0x0130, f01=0x0190, f02=» 0 P IDENT DRDC15 REL 11.0 81-01-26 870105041100 P 8 P* @ P* J 2 P********************************************* T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDC15: DRIVER DATA COMMUNICATION . P* BSC MULT
0x3c6e5c…3c6ff0 Dummy {f00=0x0130, f01=0x0190, f02=»******************************** | P EJECT ( P* 6 P* @ P* ENTRY POINTS J P* ` 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS j " P ENTRY IH1501 INPUT INTERRUPT " P ENTRY IH1502 OUTPUT INTERRUPT " P ENTRY DC15ON POWER ON ROUTI
0x3c6ff0…3c7184 Dummy {f00=0x0130, f01=0x018e, f02=»SP DISPATCHER ENTRY ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK $ P EXTRN TENDIO COMPLETE I/O EVENT H P EXTRN SETIME SET TIMER p P EXTRN DWTCHP DWT ADDRESS P EXTRN DWTST DWT STATUS P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB
0x3c7184…3c7318 Dummy {f00=0x0130, f01=0x0190, f02=» P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LENGTH ( " P EXTRN ECBEL EFFECTIVE LENGTH N P EXTRN ECBCW1 CONTROL WORD 1 t P EXTRN ECBCW2 CONTROL WORD 2 P EXTRN GETSSA * P EXTRN INTSAV SAVE AREA LAST INTERRUPT ( P EXTRN T
0x3c7318…3c74ac Dummy {f00=0x0130, f01=0x0190, f02=» DCSRLL RESET ALL STATISTICS BUFFERS ENTRY POINT : P EXTRN DCSUPS UPDATE STATISTICS ENTRY POINT IN DCSTAT 8 8 P EXTRN GETDNA VALIDATE AND CONVERT SYMBOLIC DTE ADDR v 8 P EXTRN GETSNA VALIDATE AND CONVERT SYMBOLIC SUB ADDR * P EXTRN DC:MIN MOVE DATA TO
0x3c74ac…3c7640 Dummy {f00=0x0130, f01=0x0190, f02=»IT FOR POWER UP IF SET P EJECT J P********************************************************************** . P* | P* REGISTER USAGE: P* P* A1 WORK (RETURN CODE) P* A2 WORK P* A3 WORK (BUFFER LENGTH) P* A4 WORK
0x3c7640…3c77d4 (6, 35) Dummy {f00=0x0130, f01=0x0190, f02=»SS P* L P************************************************************************ P EJECT d < P******************************************************* r P* * P* PARAMETERS FOR CONDITIONAL ASSEMBLY P* P* & PX:A EQU 10
0x3c77d4…3c7968 Dummy {f00=0x0130, f01=0x0190, f02=»UT VALUE z PTIMPOL EQU X:C * PX:D EQU 0 STATUS AND RVI HANDLING IF=1 & PSTARVI EQU X:D T ( PX:E EQU 0 READ COMMAND HANDLING IF=1 j PRCOM EQU X:E & PX:F EQU 254 TRANSMIT BLOCK LENGTH PTBLEN EQU X:F ( PX:G EQU 0 CODE , 0=ASCII , 1=E
0x3c7968…3c7afc Dummy {f00=0x0130, f01=0x0190, f02=» HIGH n ( P IF = 0 LINE SPEED IS SET TO LOW PSPEED EQU X:I : * PX:J EQU 0 IF 1 SIEMENS MSV1 PROCEDURE P PMSV1 EQU X:J ~ . PX:K EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) PRBUFNR EQU X:K . PX:L EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ
0x3c7afc…3c7c90 Dummy {f00=0x0130, f01=0x0190, f02=»=1 , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER P XIF : P IFT P6805=0 SALCUZ F < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ b P XIF SALCUZ P IFT P6805=1 < PLCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER SALCUZ
0x3c7c90…3c7e24 Dummy {f00=0x0130, f01=0x0190, f02=» f PMESPAS EQU X:O 4 PX:P EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU X:P V PX:Q EQU 0 l * PTPMODE EQU X:Q IF = 1 TRANSPARANT MODE ~ PX:R EQU 0 . PSTTSTS EQU X:R IF = 1 STATISTICS INCLUDED PX:S EQU 500 $ PTBUF
0x3c7e24…3c7fb8 Dummy {f00=0x0130, f01=0x0190, f02=» EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 2 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". f , P ONLY WORKING IF STAT IS SET TO "ONE". P* P IFT SPEED=1 PLSPEED EQU /0200 P XIF
0x3c7fb8…3c814c Dummy {f00=0x0130, f01=0x0190, f02=» P* P* CONDITIONAL ASSEMBLY P* , . P***************************************** 6 P* h . P* A PROGRAM VERSION USING TOSS MMU PAGING r * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P* 6 P* A
0x3c814c…3c82e0 Dummy {f00=0x0130, f01=0x0190, f02=» 0 PDEVIND EQU 0 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER SIZE < P* j P EJECT t * * &************************************** * 2 -* DCDEFS COMMON DEFS FOR DC DRIVERS/PACKAGES * * &****
0x3c82e0…3c8474 (6, 36) Dummy {f00=0x0130, f01=0x0190, f02=» v * , '*************************************** B L EJECT V J P********************************************************************** d * * DWT, DEVICE WORK TABLE * L P**********************************
0x3c8474…3c8608 Dummy {f00=0x0130, f01=0x0190, f02=»............. P* 2 . DWTST . P* ................... 8 P* 4 . DWTECB . Z P* ................... | P* 6 . DWTOPT . DWTOR . P* ................... P* 8 . DWTADR . P*
0x3c8608…3c879c Dummy {f00=0x0130, f01=0x0190, f02=» ................... P* 14 . DWTTQ . P* ................... @ , P* (16). DWTUEC . IF MMUPAG b P* ................... , P* (18). DWTMEC . IF MMUPAG P* ................... $ P*
0x3c879c…3c8930 Dummy {f00=0x0130, f01=0x0190, f02=». x P* +6 . DWTCHN . P* ................... , P* +8 . DWTLAD . N P* ................... p P* +10 . DWTRAD . P* ................... P* +12 . DWTDR1/SUB . P* ..........
0x3c8930…3c8ac4 Dummy {f00=0x0130, f01=0x0190, f02=»......... P* +18 . DWTRTP . P* ................... 4 P* +20 . DWTOPE . V P* ................... x P* +22 . DWTOPN . P* ................... P* +24 . DWTIPC . P* ..
0x3c8ac4…3c8c58 Dummy {f00=0x0130, f01=0x0190, f02=» DRIVER DEPEND / P* / / P* / / < P* ................... ^ 8 P* . STATISTIC . IF STAT AND DWTSTB /=0 P* / BUFFER / P* ................... P*
0x3c8c58…3c8dec Dummy {f00=0x0130, f01=0x0190, f02=» n P* > P********************************************************* P* T PDWTTQ EQU /0E TERMINAL QUEUE ^ P IFT MMUPAG=0 6 PDWTDRD EQU DWTTQ+2 START OF DRIVER DEPENDENT AREA P XIF P IFT MMUPAG=1 6 PDWTDRD EQU DWTTQ+6 S
0x3c8dec…3c8f80 Dummy {f00=0x0130, f01=0x0190, f02=»DRD+2 CONFIG CHAIN LINK HEAD DWT 2 PDWTCHN EQU DWTDRD+4 CONFIG CHAIN LINK NEXT DWT ( 2 PDWTLAD EQU DWTDRD+6 LOCAL SYMBOLIC DTE ADDRESS ^ 4 PDWTRAD EQU DWTDRD+8 REMOTE SYMBOLIC DTE ADDRESS * PDWTDR1 EQU DWTDRD+10 DRIVER DEP WORD 1 * PDWTSUB EQU DWT
0x3c8f80…3c9114 (6, 37) Dummy {f00=0x0131, f01=0x0190, f02=» EQU DWTDRD+16 REQUEST TIMER POINTER B PDWTOPE EQU DWTDRD+18 O/P DATA Q EXPEDITED/STATUS LINK NXT DWT , 8 PDWTOPN EQU DWTDRD+20 O/P DATA Q NORMAL LINK NXT DWT r 2 PDWTIPC EQU DWTDRD+22 I/P DATA Q LINK TO BUFFER 0 PDWTIPT EQU DWTDRD+24 I/P DATA TIMER
0x3c9114…3c92a8 Dummy {f00=0x0131, f01=0x0190, f02=»TATUS v EJECT J P********************************************************************** * j P* DTE, DTE CONTROL TABLE t * L P************************************************************************ * P* ..........
0x3c92a8…3c943c Dummy {f00=0x0131, f01=0x0190, f02=»......... P* 4 . DTEECB . P* ................... 4 P* 6 . DTEOPT . DTEOR . V P* ................... x P* 8 . DTEADR . P* ................... P* 10 . DTETAB . P* ..
0x3c943c…3c95d0 Dummy {f00=0x0131, f01=0x018e, f02=»................. , P* (16). DTEUEC . IF MMUPAG P* ................... J , P* (18). DTEMEC . IF MMUPAG l P* ................... $ P* DTEDRD +2 . DTESTB . $ P* ...................
0x3c95d0…3c9764 Dummy {f00=0x0131, f01=0x0190, f02=» t P* +8 . DTELAD . P* ................... * P* +10 . . L P* / DRIVER DEPEND / n P* / / P* / / P* ................... 8 P* . STATISTIC
0x3c9764…3c98f8 Dummy {f00=0x0131, f01=0x0190, f02=» PDTEUEC EQU DTETQ+2 PDTEMEC EQU DTEUEC+2 P : P IFT MMUPAG=0 B 2 PDTEDRD EQU DTETQ+2 START OF DC DEPENDENT AREA X P XIF P IFT MMUPAG=1 2 PDTEDRD EQU DTEMEC+2 START OF DC DEPENDENT AREA P XIF D PDTESTB EQU DTEDRD OFFS
0x3c98f8…3c9a8c Dummy {f00=0x0131, f01=0x0190, f02=» LINK NEXT DTE p 2 PDTELAD EQU DTEDRD+6 LOCAL SYMBOLIC DTE ADDRESS P* DRIVER DEPENDENT L , PDTEPLS EQU DTEDRD+8 PHYSICAL LINK STATUS f * PDTEDLS EQU DTEDRD+10 DATA LINK STATUS $ PDTESTA EQU DTEDRD+12 DTE STATUS ( PDTEDWT EQU DTEDRD+14 CHAIN L
0x3c9a8c…3c9c20 Dummy {f00=0x0131, f01=0x0190, f02=» ID f . PSTWCST EQU DTEDRD+20 COUNTER STATUS INDEX * PSTWMIX EQU DTEDRD+22 MAX COUNTER INDEX > " PSTWCTA EQU DTEDRD+24 COUNTERS l P EJECT J P********************************************************************** P* , P* COUNTER INDECE
0x3c9c20…3c9db4 (6, 38) Dummy {f00=0x0131, f01=0x0190, f02=»************* ^ P* * PCSRCON EQU /01 CONNECTIONS ESTABLISHED 4 PCSRCBY EQU /02 CONNECTION NOT ESTABLISHED - BUSY N $ PCSRMSR EQU /03 MESSAGES RECEIVED & PCSRCHR EQU /C5 CHARACTERS RECEIVED ( PCSRMST EQU /06 MESSAGES TRANSMITTED * PCSRC
0x3c9db4…3c9f48 Dummy {f00=0x0131, f01=0x0190, f02=» EQU /0C TRANSMISSION ERROR & PCSRXC1 EQU /0D PROTOCOL DEPENDENT $ P* N P* LINK LEVEL COUNTERS X P v . PCSSRBL EQU /10 SYNCH DATA BLOCKS RECEIVED : PCSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY > PCSSRBO EQU /12 " DAT
0x3c9f48…3ca0dc Dummy {f00=0x0131, f01=0x0190, f02=»ECTED PARITY ERROR l 0 PCSSTBL EQU /15 " DATA BLOCKS TRANSMITTED 2 PCSSTRT EQU /16 " DATA BLOCKS RETRANSMITTED N , PCSSTAB EQU /17 " DATA BLOCKS ABORTED 4 PCSSXC1 EQU /18 NBR OF REPLY REQUESTS TRANSMITTED & PCSSXC2 EQU /19 PROCEDURE TIM
0x3ca0dc…3ca270 Dummy {f00=0x0131, f01=0x0190, f02=» P ! $ PCSCDTE EQU /28 DTE NOT OPERABLE ! ( PCSCDIT EQU /29 I/P THROUGHPUT ERROR ! 6 ( PCSCDOT EQU /2A O/P THROUGHPUT ERROR ! b $ PCSCDCE EQU /2B DCE NOT OPERABLE ! * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT ! PCSCXC2 EQU /2D " ! PCSCXC3 E
0x3ca270…3ca404 Dummy {f00=0x0131, f01=0x0190, f02=»OPEN EQU /21 OPEN ! PCLOSE EQU /22 CLOSE " " PCONPAS EQU /27 CONNECT PASSIVE " 6 PDISCO EQU /2F DISCONNECT " PRECEIVE EQU /02 RECEIVE " | PSEND EQU /06 SEND " PRSTAT EQU /00 READ STATUS " PSSTAT EQU /38 SET STATUS " ( PSTATIS EQU /2D R
0x3ca404…3ca598 Dummy {f00=0x0131, f01=0x0190, f02=» AFTER READ " r P EJECT # P* # " > P********************************************************** # , P* # n . P* S O F T W A R E R E T U R N C O D E S # x P* # > P********************************************************** # P* # L P*-------
0x3ca598…3ca72c Dummy {f00=0x0131, f01=0x018e, f02=»BORTED # v PR:2 EQU /2000 $ PR:3 EQU /1000 $ $ J P*--------------------------------------------------------------------- $ : PR:4 EQU /0800 $ PR:5 EQU /0400 $ PR:6 EQU /0200 $ , PR:DATA EQU /0100 DATA AVAILABLE (QUEUED) $ J P*-------------
0x3ca72c…3ca8c0 Dummy {f00=0x0131, f01=0x0190, f02=» $ " PR:SEQ EQU /0010 SEQUENCE ERROR % J P*--------------------------------------------------------------------- % . $ PR:LGTH EQU /0008 ILLEGAL LENGTH % | PR:13 EQU /0004 % . PR:LOGC EQU /0002 LOGICAL CONNECTION ERROR % . PR:PHYC EQU /0001 PHYSICAL CO
0x3ca8c0…3caa54 (6, 39) Dummy {f00=0x0131, f01=0x0190, f02=»******************************************************** % P* & @ . P* H A R D W A R E R E T U R N C O D E S & J P* & | > P*********************************************************= & P* & L P*-----------------------------------------------------
0x3caa54…3cabe8 Dummy {f00=0x0131, f01=0x018e, f02=»------------------------------------------------- & z PH:4 EQU /0800 ' : PH:5 EQU /0400 ' P PH:6 EQU /0200 ' f PH:7 EQU /0100 ' | L P*---------------------------------------------------------------------- ' PH:8 EQU /0080 ' PH:9 EQU /0040 '
0x3cabe8…3cad7c Dummy {f00=0x0131, f01=0x0190, f02=» ' H PH:12 EQU /0008 ( " PH:PARI EQU /0004 PARITY ERROR ( & PH:THRU EQU /0002 THROUGHPUT ERROR ( D " PH:NOOP EQU /0001 NOT OPERABLE ( n L P*---------------------------------------------------------------------- ( P EJECT ( > P******************
0x3cad7c…3caf10 Dummy {f00=0x0131, f01=0x018e, f02=»****************************** ( t P* ) & & PSF EQU X'1D' START FIELD CHARACTER ) 0 PSYN EQU /16 ) Z PSTX EQU /02 ) n PETX EQU /03 ) PETB EQU /17 ) PITB EQU /1F ) PSOH EQU /01 ) PENQ EQU /05 ) PDLE EQU /10 ) PEOT EQU /04 )
0x3caf10…3cb0a4 Dummy {f00=0x0131, f01=0x0190, f02=» ) P IFT CODE=0 * PPAR EQU /80 * PRVI EQU /3C * 0 PACK0 EQU /30 * D PACK1 EQU /31 * X PDC1 EQU /11 * l P IFT MSV1=0 * PWACK EQU /3B * P XIF * P IFT CODE=0 * P IFT MSV1=1 * 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE
0x3cb0a4…3cb238 Dummy {f00=0x0131, f01=0x0190, f02=» PSYNEBC EQU /32 + PENQEBC EQU /2D + PETBEBC EQU /26 + 0 P XIF + F P IFT P6805=0 + R PENQPAR EQU ENQ+PAR + f PRVIPAR EQU RVI+PAR + PACKPAR EQU ACK0+PAR + P XIF + P IFT P6805=1 + PENQPAR EQU ENQ + PRVIPAR EQU RVI + PACKPAR
0x3cb238…3cb3cc Dummy {f00=0x0131, f01=0x0190, f02=»0 + . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE , P* , < P* , F P DATA /4248 , P P DATA /4242 , d P* , x 2 PNOIR EQU /20 S/S 1 : NO INTERVENTION REQUIRED , , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED , P XIF , P* , P* , P
0x3cb3cc…3cb560 Dummy {f00=0x0131, f01=0x0190, f02=»********************************************* , P* - 6 . P* LINE CONTROL UNIT FUNCTION CONTROL EQU:S - @ P* - r B P************************************************************* - | P* - P IFT CODE=0 - PSYNC EQU /16 - P XIF - P IFT COD
0x3cb560…3cb6f4 (6, 40) Dummy {f00=0x0131, f01=0x0190, f02=» /00 - P IFT CODE=0 . PPARITY EQU /0C . P XIF . 6 P IFT P6805=1 . B P IFT CODE=1 . V PPARITY EQU /00 . j P XIF . P EJECT . 8 P*************************************************** . P* . ( P* LINE CONTROL UNIT SST STATUS BITS .
0x3cb6f4…3cb888 Dummy {f00=0x0131, f01=0x0190, f02=»RR . p P XIF / P IFT P6805=1 / . PH:ERR EQU /27 H:NOOP+H:THRU+H:CARR+H:PARI / * P XIF / P EJECT / h D P**************************************************************** / z P* / P* DRIVER ADDRESS BLOCK / P* / D P********************
0x3cb888…3cba1c Dummy {f00=0x0131, f01=0x0190, f02=»AD DATA DCACT ACTIVATION ADDRESS / P DATA ABORT ABORT ROUTINE 0 ( $ P DATA DCRBUF REC. BUFFER ANCHOR 0 J P DATA 6 HEADER LENGTH 0 r P* 0 , P RES 15 SUBROUTINE STACK FOR INTERRUPTS 0 PSTB RES 1 0 P EJECT 0 P 0 @ P**********************
0x3cba1c…3cbbb0 Dummy {f00=0x0131, f01=0x0190, f02=»T LD A1,DWTRTP,A6 TIMER POINTER 0 " P RF(Z) AB:10 NO TIMER RUNNING 1 ( P CMR A1 KILL TIMER 1 N P CM DWTRTP,A6 1 h P 1 ~ $ PAB:10 LD A2,DWTOR,A6 ORDER CODE 1 P ANK A2,/7F 1 P SUK A2,6 1 P RF(NE) AB:RTN 1 . P CF A15,REMOVW REMOVE DWT FROM
0x3cbbb0…3cbd44 Dummy {f00=0x0131, f01=0x0190, f02=»ING DWT 1 | P CM XACK RESET ACK EXPECTED 2 P 2 4 PAB:RTN EQU * 2 < P ABL RTABRT 2 P P EJECT 2 d J P********************************************************************** 2 r J P********************************************************************** 2
0x3cbd44…3cbed8 Dummy {f00=0x0131, f01=0x0190, f02=»**************************** 2 f J P********************************************************************** 3 $ P* 3 r $ P* ACTIVATION FROM TERMINAL TASKS 3 | P* 3 PDCACT EQU * 3 P LDK A1,0 PRESET RETURN CODE 3 & P LDR A2,A7 ORDER CODE AS PARAMETER
0x3cbed8…3cc06c Dummy {f00=0x0131, f01=0x0190, f02=»TACK 3 ^ 0 P DATA TREQX,RTREQ LAST ENTRY; ERROR ADDRESS 4 ( P DATA RECEIVE,RQRECE RECEIVE REQUEST 4 @ " P DATA SEND,RQSEND SEND REQUEST 4 l " P DATA OPEN,RQOPEN OPEN REQUEST 4 $ P DATA CLOSE,RQCLOS CLOSE REQUEST 4 . P DATA CONPAS,RQCON CONNECT PASSIVE REQUE
0x3cc06c…3cc200 Dummy {f00=0x0131, f01=0x0190, f02=» 4 l , P DATA STIMOT,RQTIME SET REQUEST TIMEOUT 5 : PTREQX DATA STATIS,RQSTAT READ/RESET STATISTICS REQUEST 5 8 P EJECT 5 v P* 5 P* 5 P* OPEN REQUEST 5 P* 5 P* ACTIVATION PARAMETERS: 5 $ P* SYMBOLIC DTE-ADDRESS (ECBCW2) 5 P* 5
0x3cc200…3cc394 (6, 41) Dummy {f00=0x0132, f01=0x0190, f02=»OPEN EQU * 5 . P LD A1,ECBCW2,A8 GET SYMBOLIC DTE-ADDRESS 6 $ P LD A2,DTESTA,A7 GET DTE STATUS 6 D ( P ADR A2,A2 WORD ALIGNED INDEX VALUE 6 l , P ABI RQOPTB,A2 BRANCH ON INDEX IN TABLE 6 & PRQOPTB DATA RQOP20 CLOSED/INACTIVE 6 " P DATA RQOP15 OPEN IN P
0x3cc394…3cc528 Dummy {f00=0x0132, f01=0x0190, f02=» OPENED ? 6 l P RF(E) RQOP90 YES - OK 7 PRQOP15 EQU * 7 0 & P ABL RTSEQ RETURN: SEQUENCE ERROR 7 D P* 7 n PRQOP20 EQU * 7 x & P IM DTESTA,A7 SET OPEN IN PROGRESS 7 . P ST A1,DTELAD,A7 SAVE SYMBOLIC DTE ADDRESS 7 2 P LDR A2,A7 ADDR TO SELECT AND PO
0x3cc528…3cc6bc Dummy {f00=0x0132, f01=0x018e, f02=»R DTE ADDR 7 ~ " P CM DTESTA,A7 CLEAR DTE STATUS 8 $ P ABL RTREQ RETURN: REQUEST ERROR 8 8 P* 8 ` PRQOP80 EQU * 8 j P IFT CODE=1 8 ~ & P LDR* A2,A7 DTE ADDRESS IN EBCDIC 8 P LDR A1,A2 8 P ANK A2,/FF 8 P RF(Z) RQOP30 ONLY ONE BYTE 8 ( P L
0x3cc6bc…3cc850 Dummy {f00=0x0132, f01=0x0190, f02=» 8 ~ * P STR A2,A7 SAVE ASCII VALUE IN DTETAB 9 P XIF 9 6 " P IM DTESTA,A7 SET OPEN STATUS 9 B P ABL DTE:ON CONNECT MODEM 9 h PRQOP90 EQU * 9 * P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ? 9 P ABL(NZ) RTOK YES RETURN OK 9 * P ABL RTPHYC RETURN PHYSI
0x3cc850…3cc9e4 Dummy {f00=0x0132, f01=0x0190, f02=»IONAL 9 x P* /80 = CONDITIONAL : P* FUNCTIONS: : , L P* 1. IF CONDITIONAL, CHECK IF ANY LOGICAL CONNECTIONS (DWTS) ARE ACTIVE : @ P* ACTIVE. : 0 P* 2. IF UNCONDITIONAL, DISCONNECT ALL DWT:S : P* : PRQCLOS EQU * : ( P LD A5,DWTOR,A6
0x3cc9e4…3ccb78 Dummy {f00=0x0132, f01=0x0190, f02=» ABL(NE) RTREQ RETURN: REQUEST ERROR : PRQCL20 EQU * ; , $ P LD A2,DTESTA,A7 GET DTE STATUS ; @ P ABL(Z) RTOK RETURN : OK ; h P SUK A2,2 DTE OPENED ? ; * P ABL(NZ) RTSEQ RETURN: SEQUENCE ERROR ; $ P IM DTESTA,A7 CLOSE IN PROGRESS ; ( P LDR A8,A6 S
0x3ccb78…3ccd0c Dummy {f00=0x0132, f01=0x0190, f02=» RQCL50 ; " P LDR A5,A5 CONDITIONAL CLOSE ? < P RF(N) RQCL95 YES ! < 6 , P LD A2,DWTCHN,A6 GET POINTER TO NEXT DWT < R . P ST A2,DTEDDT,A7 DISCARD DWT ADDR REMOVED < P RF RQCL60 < PRQCL50 EQU * < P XIF < " P LD A6,DTEDWT,A7 GET DWT ADDR <
0x3ccd0c…3ccea0 Dummy {f00=0x0132, f01=0x0190, f02=» TO NEXT DWT IN CHAIN < t 0 P ST A2,DTEDWT,A7 DWT FIRST IN QUEUE REMOVED = P IFT MESPAS=1 = R PRQCL60 EQU * = h P XIF = | 0 P CF A15,RELBUF REMOVE BUFFERS QUEUED ON DWT = " P CM DWTSTA,A6 CLEAR DWT-STATUS = P LDK A1,0 PRESET RETURN CODE = P C
0x3ccea0…3cd034 (6, 42) Dummy {f00=0x0132, f01=0x0190, f02=» TAKE NEXT DWT = 6 P LDK A1,R:SEQ COMPLETE REQUEST WITH SEQUENCE ERROR > PRQCL80 EQU * > P ( P CF A15,TENDIO COMPLETE THE REQUEST > d " P RB RQCL40 TAKE NEXT ON QUEUE > PRQCL90 EQU * > " P CMR A7 REMOVE NETWORK ADDRESS > P CM DTESTA,A7 CLEAR STAT
0x3cd034…3cd1c8 Dummy {f00=0x0132, f01=0x0190, f02=» * > P LDK A2,2 ? ( P ST A2,DTESTA,A7 SET DTE OPEN AGAIN ? " P LDR A6,A8 RESTORE DWT ADDRESS ? H P ABL RTSEQ SEQUENCE ERROR ? n P EJECT ? P* ? P* CONNECT PASSIVE REQUEST ? P* ? P* ACTIVATION PARAMETERS: ? : P* - SYMBOLIC SUBADD
0x3cd1c8…3cd35c Dummy {f00=0x0132, f01=0x018e, f02=»DTE-ADDRESS (ECBCW2) ? P* @ P* FUNCTIONS: @ & 0 P* 1. VERIFY DTE-ADDRESS AS PER OPEN REQUEST @ : . P* 2. VERIFY & CONVERT SUBTERMINAL ADDRESS @ n , P* 3. VERIFY AND STORE DEVICE ADDRESSES @ $ P* 4. LINK CALLING DWT TO QUEUE @ P* @ PRQCON
0x3cd35c…3cd4f0 Dummy {f00=0x0132, f01=0x018e, f02=» @ f $ P LD A2,DTESTA,A7 GET DTE STATUS A P SUK A2,2 OPEN ? A 0 . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR A H $ P LD A2,DWTSTA,A6 GET DWT STATUS A z " P SUK A2,2 ALREADY CONNECTED ? A . P ABL(Z) RTSEQ YES, RETURN: SEQUENCE ERROR A P IFF MMUPAG=0
0x3cd4f0…3cd684 Dummy {f00=0x0132, f01=0x0190, f02=» * P LD A4,ECBBA,A8 GET ECB-BUFFER ADDRESS B P IFT MSV1=1 B 2 P LDK A2,0 RESET A2 B F & P LCR A2,A4 GET SELECT SUB-ADDRESS B ` ( P SC A2,DWTSUB,A6 SAVE IT IN THE DWT B . P LD A1,ECBCW2,A8 GET SYMBOLIC DTE-ADDRESS B 6 P CF A15,GETSNA VALIDATE AND TRAN
0x3cd684…3cd818 Dummy {f00=0x0132, f01=0x0190, f02=»URN REQUEST ERROR B PRQCN20 EQU * C P IFT CODE=1 C . 2 P LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII C B P XIF C x P IFT MSV1=1 C * P SC A1,DWTCHP,A6 SAVE NETWORK ADDRESS C P XIF C $ P LDR* A2,A4 GET SYMBOLIC ADDRESS C * P SC A2,DWTSUB+
0x3cd818…3cd9ac Dummy {f00=0x0132, f01=0x0190, f02=»TSNA VALIDATE AND TRANSLATE THE SUB-ADDRESS C P LDR A1,A1 IS IT OK ? D 4 P RF(NN) RQCN30 YES D R $ P CM DWTSUB,A6 CLEAR SUB-ADDRESS D l $ P CM DWTLAD,A6 CLEAR DTE ADDRESS D $ P ABL RTREQ RETURN REQUEST ERROR D PRQCN30 EQU * D P IFT CODE=1 D
0x3cd9ac…3cdb40 Dummy {f00=0x0132, f01=0x0190, f02=» P ST A1,ECBCW2,A8 E P XIF E P* E ( P* E 2 & P* LINK DWT TO CONFIGURATION CHAIN E < P* E f P IFT MESPAS=1 E p P LDK A2,/40 OPTION CODE E P CC A2,DWTOPT,A6 DISCARD DWT E P RF(NZ) RQCN40 NO E , P LD A1,DTEDDT,A7 POINTER TO DISCARD
0x3cdb40…3cdcd4 (6, 43) Dummy {f00=0x0132, f01=0x0190, f02=» LD A1,DTEDWT,A7 GET POINTER TO DWT QUEUE E P RF(NZ) RQCN50 YES F 2 . P ST A6,DTEDWT,A7 SAVE POINTER TO DWT QUEUE F L P RF RQCN60 F ~ PRQCN50 EQU * F P LDR A2,A1 MOV ADDR TO A2 F ( P LD A1,DWTCHN,A2 POINTER TO NEXT DWT F . P RB(NZ) RQCN50 KEEP ON
0x3cdcd4…3cde68 Dummy {f00=0x0132, f01=0x0190, f02=» ST A7,DWTCHD,A6 BACKWARD LINK TO ANCHOR F P LDK A2,2 G 0 * P ST A2,DWTSTA,A6 SET STATUS: CONNECTED G B P LDKL A2,/8000 G p $ P ST A2,DWTRTV,A6 STORE NO TIMING G P IFT RCOM=1 G ( P LD A3,ECBBA,A8 SAVE BUFFER ADDRESS G P ST A3,DWTBUF,A6 IN THE DW
0x3cde68…3cdffc Dummy {f00=0x0132, f01=0x0190, f02=»4 STORE DEVICE G $ P ORS A1,DWTST,A6 END IN THE DWT H , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE H > P XIF H n P* H z P* START POLL TIMER H P* H $ P LD A2,DCTPGP POLL TIMER POINTER H ( P RF(Z) RQCN70 TIMER ALREADY STARTED H P CF A15,SPOT
0x3cdffc…3ce190 Dummy {f00=0x0132, f01=0x0190, f02=» H x P* DWT-ADDRESS (A6) I P* I $ P* FUNCTIONS: I . & P* 1. CHECK IF IN CONNECTED STATE I B 6 P* 2. REMOVE DWT-ADDRESS FROM CONFIGURATION CHAIN I l & P* 3. SET DWT STATUS DISCONNECTED I P* I P* COMPLETION PARAMETERS: I P* RETURN CODE
0x3ce190…3ce324 Dummy {f00=0x0132, f01=0x018e, f02=»A3,DTEDWT,A7 FIRST DWT ADDR TO A3 I P RF(Z) RQDI20 END OF CHAIN J * P CWR A3,A6 OUR DWT ? J L P RF(NE) RQDI10 NO J h * P CF A15,RELBUF RELEASE QUEUED BUFFERS J 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT J P CM DWTSTA,A6 SET DWT FREE J . P
0x3ce324…3ce4b8 Dummy {f00=0x0132, f01=0x0190, f02=» < P LD A3,DWTCHN,A5 A3 CONTAINES ADDR TO NEXT DWT ON CHAIN K P RF(Z) RQDI20 END OF CHAIN K D P CWR A3,A6 OUR DWT ? K f ( P RB(NE) RQDI10 NO TAKE NEXT IN CHAIN K * P CF A15,RELBUF RELEASE QUEUED BUFFERS K 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DW
0x3ce4b8…3ce64c Dummy {f00=0x0132, f01=0x0190, f02=» IFT MESPAS=1 K . P LD A3,DTEDDT,A7 TAKE THE DISCARD DWT ADDR L P CWR A3,A6 OUR DWT ? L H " P RF(NE) RQDI30 SEQUENCE ERROR L d * P CF A15,RELBUF RELEASE BUFFERS QUEUED L P CM DTEDDT,A7 L P CM DWTSTA,A6 SET DWT FREE L P RB RQCN70 L PRQDI30
0x3ce64c…3ce7e0 Dummy {f00=0x0132, f01=0x018e, f02=»ACTIVATION PARAMETERS: L P* DWT - ADDRESS (A6) M P* M < P* FUNCTIONS: M F < P* 1. TRANSFER LOGICAL CONNECTION STATUS TO APPLICATION M Z P* M P* COMPLETION PARAMETERS: M * P* LOGICAL CONNECTION STATUS (ECBCW1) M P* M . P* 0 3
0x3ce7e0…3ce974 (6, 44) Dummy {f00=0x0132, f01=0x0190, f02=» . P* . STATE . STATE . LINK . LINK . N . P* . . . STATUS . STATUS . N 6 . P* ........................................ N h P* N PRQRSTS EQU * N P IFT EM3270=1 N $ P LD A2,ECBCW1,A8 GET OPTION CODE N & P RF(NZ) RQRS10 TES
0x3ce974…3ceb08 Dummy {f00=0x0132, f01=0x0190, f02=»LL A2,4 BITS 4-7 N & P AD A2,DTEDLS,A7 DATA LINK STATUS O P SLL A2,4 BITS 8-11 O B 8 P AD A2,DTEPLS,A7 PHYSICAL LINK STATUS (BITS 12 - 15) O ^ 2 P ST A2,ECBCW1,A8 STATUS TO ECB CONTROL WORD 1 O P ABL RTOK RETURN: OK O P IFT EM3270=1 O P* O
0x3ceb08…3cec9c Dummy {f00=0x0132, f01=0x0190, f02=»UK A2,2 OPEN ? O $ P ABL(NZ) RTSEQ NO,SEQUENCE ERROR P $ P LD A2,DWTSTA,A6 GET DWT STATUS P > P SUK A2,2 CONNECTED ? P f $ P ABL(NZ) RTSEQ NO,SEQUENCE ERROR P 6 P LD A4,DWTIPC,A6 ANY QUEUED MESSAGE ON THIS DWT ? P * P ABL(NZ) RTOK YES COMPLETE THE REQ
0x3cec9c…3cee30 Dummy {f00=0x0132, f01=0x0190, f02=»TION PARAMETERS P P* DWT ADDRESS (A6) Q P* Q 4 P* FUNCTIONS: Q > . P* SET DEVICE STATUS (ONLY IF STARVI = 1) Q R P* Q P* DE DEVICE END : X`'00' Q P* Q ( P* IR INTERVENTION REQUIRED : X'01' Q P* Q P* DB DEVICE BUSY :X'10'
0x3cee30…3cefc4 Dummy {f00=0x0132, f01=0x0190, f02=»TREQ SET STATUS NOT INCLUDED Q P XIF R $ P IFT STARVI=1 R 0 & P LD A1,ECBCW1,A8 GET DEVICE STATUS R F P ANK A1,3 MASK DB,IR R p P RF(NZ) RQST90 NOT DE R & P LD A1,DWTST,A6 GET DEVICE STATUS R P ANK A1,9 R & P RF(NZ) RQST90 WACK HAS BEEN SENT
0x3cefc4…3cf158 Dummy {f00=0x0132, f01=0x0190, f02=» ABL RTOK RETYURN : OK R P XIF S P EJECT S * P* S 8 $ P* READ/RESET STATISTICS REQUEST S B P* S j P* ACTIVATION PARAMETERS: S t P* TYPE = BITS 0-7 OF ECBCW1 S P* ECB-ADDRESS (A8) S ( P* DWT-ADDRESS OF LOW-LEVEL DWT (A6) S P* S
0x3cf158…3cf2ec Dummy {f00=0x0132, f01=0x0190, f02=»ERS: S | * P* NUMBER OF BYTES TRANSFERRED (ECBEL) T P* RETURN CODE (A1) T : P* T V PRQSTAT EQU * T ` P IFT STTSTS=0 T t 8 P ABL RTREQ RC : REQUEST ERROR NO STATISTICS INCLUDED T P XIF T P IFF STTSTS=0 T " P CF A15,DCSRED READ STATISTICS T
0x3cf2ec…3cf480 Dummy {f00=0x0132, f01=0x0190, f02=»FT BYTE T v P CCK A1,TYPRR CORRECT TYPE? U P RF(NE) RQST40 U 4 0 P CF A15,DCSRLL RESET ALL STATISTICS BUFFERS U J P LDR A1,A1 LUCKY AGAIN? U ~ , P ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR U PRQST40 EQU * U P ABL RTOK RETURN: OK U P XIF U
0x3cf480…3cf614 (6, 45) Dummy {f00=0x0133, f01=0x0190, f02=» U h : P* TIMEOUT VALUE IN MULTIPLES OF 100 MS; V , P* 0 = IMMEDIATE TIMEOUT. V F 0 P* < 0: DE-ACTIVATE TIMING CONTROL V v P* V P* FUNCTIONS: V , P* STORE VALUE DIRECTLY IN CALLER'S DWT V P* V P* COMP
0x3cf614…3cf7a8 Dummy {f00=0x0133, f01=0x0190, f02=»M ECB V j " P ST A2,DWTRTV,A6 STORE IN DWT W P ABL RTOK RETURN: OK W 4 P EJECT W P P* W ^ P* SEND REQUEST W h P* W ~ P* ACTIVATION PARAMETERS: W P* BUFFER ADDRESS (ECBBA) W P* BUFFER LENGTH (ECBRL) W P* SUBTERMINAL ADDRESS (DWT) W
0x3cf7a8…3cf93c Dummy {f00=0x0133, f01=0x0190, f02=»VERIFY BUFFER SIZE IF MMU W P* 3. QUEUE REQUESTING DWT X " * P* 4. COMPLETE WHEN ACK'D OR TIMEOUT. X D P* X r PRQSEND EQU * X | $ P LD A2,DWTSTA,A6 GET DWT STATUS X P SUK A2,2 CONNECTED ? X . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR X 2 P
0x3cf93c…3cfad0 Dummy {f00=0x0133, f01=0x0190, f02=»AL CONNECTION ACTIVE ? X z 8 P ABL(Z) RTLOGC NO, RETURN: LOGICAL CONNECTION ERROR Y P LC A2,DWTOPT,A6 GET OPTION Y Z P ANK A2,/FF Y ~ $ P RF(Z) RQSE10 THERE IS NO OPTION Y P SUK A2,/20 WHICH OPTION ? Y . P ABL(NZ) RTREQ WRONG OPTION :REQUEST ERROR Y
0x3cfad0…3cfc64 Dummy {f00=0x0133, f01=0x0190, f02=»WK A2,BUFLEN ILLEGAL LENGTH ? Y 6 P ABL(G) RTLGTH YES, RETURN: ILLEGAL BUFFER LENGTH Z & P XIF Z ` P CF A15,TIMEWR START TIMER Z l $ P CF A15,INSWQ QUEUE SEND REQUEST Z P ABL TDISP Z P* Z P EJECT Z P* Z P* RECEIVE REQUEST Z P* Z
0x3cfc64…3cfdf8 Dummy {f00=0x0133, f01=0x0190, f02=»AL ADDRESS (DWT) Z P* [ P* FUNCTIONS: [ " < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. [ 6 F P* 2. TRANSFER TO THE APPLICATION ANY MESSAGE QUEUED FOR THE DWT, [ v @ P* 3. COMPLETE WHEN MESSAGE RECEIVED OR NO MESSAGE RECEIVED [ P*
0x3cfdf8…3cff8c Dummy {f00=0x0133, f01=0x018e, f02=»CODE (A1) [ P* PRQRECE EQU * $ P LD A2,DWTSTA,A6 GET DWT STATUS 0 P SUK A2,2 CONNECTED ? X . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR v 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTIVE ? 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNEC
0x3cff8c…3d0120 Dummy {f00=0x0133, f01=0x0190, f02=» b 8 P ABL(Z) RTLOGC NO, RETURN: LOGICAL CONNECTION ERROR ] P CF A15,TIMERE START TIMER ] D P RF RQRE40 GO TO DISPATCHER ] f PRQRE10 EQU * ] P LD A3,2,A4 EFFECTIVE LENGTH ] P ST A3,ECBEL,A8 ] * P LD A1,DWTLAD,A6 SYMBOLIC DTE-ADDRESS ] $ P
0x3d0120…3d02b4 (6, 46) Dummy {f00=0x0133, f01=0x0190, f02=» A1,0 RC : ACCEPTED AND COMPLETED ] ( P LDR* A2,A4 GET NEXT BUFFER IN QUEUE ^ * * P RF(Z) RQRE20 NO MORE BUFFERS IN QUEUE ^ V 0 P ORKL A1,R:DATA RC: AND MORE DATA AVAILABLE ^ PRQRE20 EQU * ^ . P ST A2,DWTIPC,A6 STORE AS FIRST IN QUEUE ^ P ADK A4,6
0x3d02b4…3d0448 Dummy {f00=0x0133, f01=0x0190, f02=»* ^ $ P* COMPLETE APPLICATION REQUEST _ P* _ 2 PRTREQ EQU * _ < & P LDKL A1,R:REQ RC = REQUEST ERROR _ P P RF RQRTN _ z PRTABRT EQU * _ P LDKL A1,R:ABRT RC = ABORTED _ P RF RQRTN _ PRTTIME EQU * _ P LDK A1,R:TIME RC = TIME OUT _
0x3d0448…3d05dc Dummy {f00=0x0133, f01=0x0190, f02=»TH RC = ILLEGAL LENGTH _ P RF RQRTN ` PRTLOGC EQU * ` 0 0 P LDK A1,R:LOGC RC = LOGICAL CONNECTION ERROR ` D P RF RQRTN ` x PRTPHYC EQU * ` 2 P LDK A1,R:PHYC RC = PHYSICAL CONNECTION ERROR ` P RF RQRTN ` PRTOK EQU * ` P LDK A1,0 RC = O
0x3d05dc…3d0770 Dummy {f00=0x0133, f01=0x0190, f02=»N TABLE & BRANCH ON ADDRESS ` x P* a $ P* CALL: a . 8 P* CF A15,LOOKUP TABLE ADDRESS TO STACK a > < P* DATA LAST,ADDRE LAST ENTRY; ERROR ADDRESS a z > P* DATA KEY1,ADDR1 KEY (A2); ADDRESS FOR BRANCH a P* "
0x3d0770…3d0904 Dummy {f00=0x0133, f01=0x018e, f02=»UP EQU * a < P LDR* A3,A15 POINT TO NEXT INSTRUCTION ADDRESS IN STACK b . P LDR* A3,A15 GET CONTENTS = TABLE ADDRESS b P & P LDR* A4,A3 GET LAST LEGAL ADDRESS b P LD A1,2,A3 ERROR ADDRESS b P* b PLOOK50 EQU * LOOP ENTRY b * P ADK A3,4 GET NE
0x3d0904…3d0a98 Dummy {f00=0x0133, f01=0x0190, f02=» b l ( P RB(NE) LOOK50 NO - CHECK NEXT ENTRY c & P ABI 2,A3 BRANCH TO TABLE ADDRESS c 4 P* KEY NOT FOUND c ^ PLOOK90 EQU * c v " P LDR P,A1 GO TO ERROR ADDRESS c P EJECT c P* c P* c P* c " P* REQUEST TIMER HANDLING PART c P* c
0x3d0a98…3d0c2c Dummy {f00=0x0133, f01=0x0190, f02=» c n P RF(N) TIMRTN NO TIMING d . P RF(Z) ITOUTR TIMER=0 => IMMEDIATE TIMEOUT d ( P ST A2,TIMERR d Z P CF A15,SETIME d p P DATA TOUTRE d PTIMERR DATA 0 d ( P ST A4,DWTRTP,A6 STORE TIMER POINTER d PTIMRTN EQU * d P ABL RTNA15 d P* d
0x3d0c2c…3d0dc0 Dummy {f00=0x0133, f01=0x0190, f02=»CH DWT d P CM DWTRTP,A6 e * P RF TIMOUT COMPLETE REQUEST RC=TIMEOUT e $ P* e R P* e " P* RETURN FROM TIMER HANDLING e f P* e P EJECT e P* e P* SEND TIMER=TIMWR e P* e PTIMEWR LDR A1,A6 e & P LD A2,DWTRTV,A6 GET TIMEOUT V
0x3d0dc0…3d0f54 (6, 47) Dummy {f00=0x0133, f01=0x0190, f02=» DATA TOUTWR e PTIMWR DATA 0 f P ST A4,DWTRTP,A6 f ( P RB TIMRTN f @ P* f R P* TIMEOUT WRITE TIMER f P* f z PTOUTWR EQU * f P LDR A6,A1 FETCH DWT f P CM DWTRTP,A6 f * P CF A15,REMOVW REMOVE FROM WRITE QUEUE f P* f P* f
0x3d0f54…3d10e8 Dummy {f00=0x0133, f01=0x0190, f02=» THIS DWT IS NOT WRITING f ( P CM XACK INDICATE 'ACK NOT EXPECTED' g P CM FDWTUT g L PTIMOUT EQU * g ^ , P ABL RTTIME COMPLETE REQUEST RC=TIMEOUT g r P EJECT g P* g P* g P* STOP REQUEST TIMING g P* g & P* REMAINING TIME IS RETURNED
0x3d10e8…3d127c Dummy {f00=0x0133, f01=0x0190, f02=»2 KILL TIMER g P CM DWTRTP,A6 h P LDR* A2,A2 h * " P NGR A2,A2 GET REMAINING TIME h > PCTIM10 EQU * h d P ABL RTNA15 h x P EJECT h P* h P* GET RECEIVE BUFFER h P* h $ P* CALLING SEQUENCE: CF A15,GRBUF h P* A4=0 IF NO BUFFER IS
0x3d127c…3d1410 Dummy {f00=0x0133, f01=0x0190, f02=»VE BUFFERS h v P INH i P LDR* A4,A2 i P RF(Z) GBUF10 NO BUFFER FREE i 2 . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN i V P STR A3,A2 i PGBUF10 EQU * i P ABL RTNA15 i P EJECT i P* i P* i P* RELEASE RECEIVE BUFFER i P* i
0x3d1410…3d15a4 Dummy {f00=0x0133, f01=0x0190, f02=»RRBUF LDKL A2,DCRBUF RECEIVE BUFFERS i P INH j , PRBUF10 EQU * j 8 P LDR* A3,A2 j L P RF(Z) RBUF20 j ` P LDR A2,A3 j v P RB RBUF10 j PRBUF20 EQU * j P STR A4,A2 j P CMR A4 j P RB GBUF10 RETURN TO CALLER j P EJECT j P* j
0x3d15a4…3d1738 Dummy {f00=0x0133, f01=0x0190, f02=»SEQUENCE: CF A15,RELBUF j P* k " P* k , PRELBUF EQU * k 6 * P LDK A1,DWTIPC SET BUFFER QUEUE DISP. k J P ADR A1,A6 k x PRLBU10 EQU * k $ P LDR* A4,A1 NEXT IN BUFFER QUEUE k P RB(Z) GBUF10 k " P LDR* A2,A4 REMOVE FROM QUEUE k P STR A
0x3d1738…3d18cc Dummy {f00=0x0133, f01=0x0190, f02=» k n P* l P* A2,A3,A4 DESTROYED l P* A6=DWT l . P* l > ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR l H P LDK A4,DWTOPN l t PINSWQ2 LDR* A3,A2 l $ P RF(Z) INSWQ3 END OF QUEUE FOUND l P LDR A2,A3 l P RB INSWQ2 l PINSWQ3 ADR A4,A6 l P
0x3d18cc…3d1a60 Dummy {f00=0x0133, f01=0x0190, f02=»MOVE DWT FROM SEND REQUEST QUEUE l P* m ( P* A2,A3,A4 DESTROYED m 2 P* A6=DWT m N P* m ^ * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR m h . P LDK A4,DWTOPN GET DWT-LINK TO BE REMOVED m PREM06 EQU * m P ADR A4,A6 m PREM10 LDR* A3,A2 m & P
0x3d1a60…3d1bf4 (6, 48) Dummy {f00=0x0133, f01=0x018e, f02=» A3,A4 REMOVE m P STR A3,A2 n P RB GBUF10 RETURN n ( P EJECT n B P* n P P* n Z P* INSERT DWT IN STATUS QUEUE n d P* n P IFF STARVI=0 n P* A2,A3,A4 DESTROYED n P* A6=DWT n P* n ( PINSSQ LDKL A2,DCSTQ GET QUEUE ANCHOR n
0x3d1bf4…3d1d88 Dummy {f00=0x0133, f01=0x0190, f02=» P* A6=DWT o P* o * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR o P LDK A4,DWTOPE o L P RB REM06 o b P XIF o t P EJECT o P* o P* o $ P* QUEUE ALLOCATED RECEIVE BUFFER o P* o P* A4=BUFFER ADDR o P* A2,A3 DESTROYED o P*
0x3d1d88…3d1f1c Dummy {f00=0x0133, f01=0x0190, f02=»A3,A2 o $ P RF(Z) QR200 END OF QUEUE FOUND p P LDR A2,A3 p 6 P RB QR100 p H & PQR200 STR A4,A2 INSERT INTO QUEUE p Z " P CMR A4 INDICATE END OF QUEUE p P RTN A5 p P EJECT p P* p P* p P* STORE REGISTER A3-A8 p $ P* CALLING SEQU
0x3d1f1c…3d20b0 Dummy {f00=0x0133, f01=0x0190, f02=» P ST A8,LCA8 q P RF RTNA15 RETURN q P* q 2 P* q < P* RESTORE q F $ P* CALLING SEQUENCE: CF A15,LDREG q X P* q PLDREG LDKL A3,0 q PLCA3 EQU *-2 q P LDKL A4,0 q PLCA4 EQU *-2 q P LDKL A5,0 q PLCA5 EQU *-2 q P LDKL
0x3d20b0…3d2244 Dummy {f00=0x0133, f01=0x018e, f02=»N VIA REGISTER 15 q P* r PRTNA15 EQU * r $ P ADKL A15,4 r 8 P ABR* A15 r L P EJECT r ^ P* r l P* POLL TIME OUT r v P* r ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE r " P LDR A6,A1 RELOAD DWT ADDRESS r P LDKL A7,DTETAB r P CM DT
0x3d2244…3d23d8 Dummy {f00=0x0133, f01=0x0190, f02=» r P XIF s $ P CF A15,SPOTIM START POLL TIMER s P ABL TDISP s < P* s N 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED s X P* s PCPTIM EQU * s P LDK A2,1 INDICATE s " P ST A2,DTEDLS,A7 DATA LINK UP s P LDKL A2,-TIMPOL s P S
0x3d23d8…3d256c Dummy {f00=0x0133, f01=0x0190, f02=»ADDRESS AS PARAMETER s | P CF A15,SETIME START TIMER t P DATA PTOUT,TIMPOL t > & P ST A4,DCTPGP STORE TIMER POINTER t X P RB RTNA15 RETURN t P EJECT t P* t P* START PROCEDURE TIMER t P* t PSPTIM EQU * t $ P LDR A1,A6 LOAD DWT AS
0x3d256c…3d2700 Dummy {f00=0x0133, f01=0x0190, f02=»PROCEDURE TIMEOUT t P* u PPRTOUT CM DCTPP u $ P LDR A6,A1 RELOAD A6 u < P LDKL A5,STB LOAD STACK BASE u X P LDKL A7,DTETAB u | P IFT STTSTS=1 u P* u P* u P* COUNT PROCEDURE TIME OUT u P* u P LDK A1,CSSXC2 u P CF A1
0x3d2700…3d2894 (6, 49) Dummy {f00=0x0134, f01=0x0190, f02=»F A5,TRENQ SEND ENQ u & P CF A5,SPTIM START PROCEDURE TIMER v PPRT10 ABL BRM v F P EJECT v P* v j P* STOP PROCEDURE TIMER v t P* v ( PHPTIM LD A1,DCTPP GET TIMER POINTER v P RF(Z) HPT10 NOT RUNNING v P CMR A1 STOP TIMER v P CM DC
0x3d2894…3d2a28 Dummy {f00=0x0134, f01=0x018e, f02=»A6 DWT ADDRESS v P CF A15,SETIME WAIT 1 SEC. w P DATA DTE:10,10 w 8 P RF BRM CONNECT MODEM w P P w n P w v P* w ~ P* w P* MODEM-CONNECT TIMEOUT w P* w P w PDTE:10 LDR A6,A1 DWT ADDRESS w P LDKL A7,DTETAB w P ABL R
0x3d2a28…3d2bbc Dummy {f00=0x0134, f01=0x0190, f02=» w & P CWR A6,A7 IS IT DTETAB-ADDRESS ? x P RF(E) MES200 YES x 2 $ P LD A2,DTEDDT,A7 GET ADDR TO DDT x L P CWR A6,A2 IS IT DDT-ADDR x t P RF(E) MES200 YES x " P LD A2,DWTST,A6 ANY REQUEST ? x P RF(N) MESD50 NO x ( P LD A2,DWTOR,A6 ANY MESSAG
0x3d2bbc…3d2d50 Dummy {f00=0x0134, f01=0x0190, f02=»50 EQU * x 0 P LD A2,DTEDDT,A7 IS THERE A DDT CONNECTED ? y P RF(Z) MES100 NO y D P LDR A6,A2 GET DDT-ADDR y P RF MES200 y | PMES100 EQU * y P LDR A6,A7 GET DTETAB-ADDR y PMES200 EQU * y P ABL RTNA15 RETURN VIA A15 y P XIF y P E
0x3d2d50…3d2ee4 Dummy {f00=0x0134, f01=0x0190, f02=»R SIDE y t P* z P* z PBRM EQU * z " P LDKL A5,STB LOAD STACKBASE z 4 P CM SYNSW CLEAR SYN-SWITCH z X " P CM TPM CLEAR TRANSPARENT TEXT z z , P CF A5,CSYNCI START INPUT WITH SYNC DEF z P* z P* z P* z P CF A5,READP READ CHARACTE
0x3d2ee4…3d3078 Dummy {f00=0x0134, f01=0x0190, f02=» : P CF A15,LOOKUP BRANCH ON CODES, TABLE ADDRESS TO STACK { : P DATA BRM100,BRM200 LAST ENTRY,POLL OR SELECT SEQUENCE { B " P DATA STX,STX100 STX RECEIVED { " P DATA EOT,EOT100 EOT RECEIVED { " P DATA ENQ,ENQ100 ENQ RECEIVED { " P DATA DLE,DLE100 DLE R
0x3d3078…3d320c Dummy {f00=0x0134, f01=0x0190, f02=»10 EQU * { ( P CM XSTA INDICATE "INVALID MESSAGE" | & P LDKL A5,STB LOAD STACKBASE TO A5 | < , P CF A5,CSYNCI START INPUT WITH SYNC DEF | f P* | P* | $ P* WAIT FOR MARK HOLD TO RESYNC. | P* | PBRM120 EQU * | P CF A5,READ READ CHARACT
0x3d320c…3d33a0 Dummy {f00=0x0134, f01=0x0190, f02=»BRM120 NO | PBRM130 EQU * } P CF A5,CHALTI HALT INPUT } & P RB BRM } F P EJECT } V P* } d P* } n 2 P* CHECK IF IT IS A POLL OR A SELECT SEQUENCE } x P* } PBRM200 EQU * } P IFT MSV1=0 } P LDR A4,A2 } P CF A5,READP READ CHAR
0x3d33a0…3d3534 (6, 50) Dummy {f00=0x0134, f01=0x018e, f02=» RF(E) BRM210 POLLING } P LDK A3,2 ~ P CCR A2,A7 IS IT A SELECT ? ~ 0 $ P RB(NE) BRM120 INVALID SEQUENCE ~ T PBRM210 EQU * ~ | P CF A5,READP READ 1:ST STA ~ P RB(NZ) BRM PARITY ERROR ~ P LDR A4,A2 ~ P IFT MSV1=0 ~ P CF A5,READP REA
0x3d3534…3d36c8 Dummy {f00=0x0134, f01=0x018e, f02=» $ P RB(NE) BRM120 INVALID SEQUENCE P* , P* 6 $ P* YES SEQUENCE OK - HALT INPUT @ P* h P CF A5,CHALTI r P EJECT P* P* 0 P* CHECK IF IT IS A SELECT OR A POLL ADDRESS P* P LDK A1,1 P ST A1,CACK LO
0x3d36c8…3d385c Dummy {f00=0x0134, f01=0x018e, f02=» P CWK A4,GP P RF(E) GPOLL GENERAL POLL 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) 8 P LDR A6,A3 LOAD DWT TO A6 r P RB(Z) BRM INVALID POLL P* P EJECT P* P* & P* SPECIFIC POLL HAS BEEN RECEIVED
0x3d385c…3d39f0 Dummy {f00=0x0134, f01=0x0190, f02=» r P IFT STARVI=1 P LD A1,DWTST,A6 GET STATUS P ANK A1,7 @ " P RF(NZ) POL120 PENDING STATUS R P XIF x P IFF STARVI+SPECP=0 P LD A1,DWTST,A6 P RF(N) POL150 NO REQUEST P LD A1,DWTOR,A6 GET ORDER & P ANK A1,/FF MA
0x3d39f0…3d3b84 Dummy {f00=0x0134, f01=0x0190, f02=»* P* $ P* GENERAL POLL HAS BEEN RECEIVED P* < P* F PGPOLL EQU * P P LD A1,XACK d " P RF(Z) POL110 ACK NOT EXPECTED x PPOL100 CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER P ABL BRM WAIT FOR RESPONSE
0x3d3b84…3d3d18 Dummy {f00=0x0134, f01=0x0190, f02=» BE SENT v " P SUK A6,DWTOPE GET DWT ADDRESS PPOL120 EQU * 6 P CF A5,TRSTA SEND STATUS J & P CF A5,SPTIM START PROCEDURE TIMER j P IM XACK SET 'ACK EXPECTED' P XIF P IFF STARVI=1 P RF POL140 P XIF PPOL130 EQU *
0x3d3d18…3d3eac Dummy {f00=0x0134, f01=0x0190, f02=»EOT ~ P RB POL130 PPOL160 EQU * " P SUK A6,DWTOPN GET DWT ADDRESS 2 PPOL170 EQU * X $ P LD A8,DWTECB,A6 GET ECB ADDRESS l P RF(NZ) POL180 P CF A15,REMOVW P RB POL150 PPOL180 EQU * P ST A8,FECB SAVE ECB ADDRESS
0x3d3eac…3d4040 Dummy {f00=0x0134, f01=0x018e, f02=»E DATA FROM USER BUFFER ~ P XIF & P LD A4,ECBBA,A8 GET BUFFER ADDRESS , P LD A3,ECBRL,A8 GET LENGTH V PPOL190 EQU * x & P ST A4,FECBBA SAVE BUFFER ADDRESS ( P SUK A3,2 SKIP FIRST WORD OF BUFFER P ST A3,FECBRL SAVE LENGTH P CM
0x3d4040…3d41d4 (6, 51) Dummy {f00=0x0134, f01=0x018e, f02=» & P CF A5,SPTIM START PROCEDURE TIMER P IM XACK SET 'ACK EXPECTED' . P RB POL130 R P EJECT d P* r P* | P* SELECT HAS BEEN RECEIVED P* PSELECT EQU * P CF A5,FINTES P LDR A6,A3 GET DWT-ADDR P RF(NZ) SE
0x3d41d4…3d4368 Dummy {f00=0x0134, f01=0x0190, f02=» r PSEL100 EQU * P LD A1,XACK & P RB(NZ) POL100 ERROR. ACK EXPECTED 0 P IFF STARVI=0 Z P LD A1,DWTST,A6 GET STATUS p P LDR A3,A1 P ANK A1,1 $ P RF(Z) SEL120 NO PENDING STATUS P CF A5,TRRVI SEND RVI P XIF P
0x3d4368…3d44fc Dummy {f00=0x0134, f01=0x018e, f02=» ANK A3,8 P RF(NZ) SEL140 BUSY P XIF . P IFT STARVI+NOWACK=2 : P ANK A3,8 V " P RF(Z) SEL130 DEVICE NOT BUSY h P CF A5,TRWACK TRANSMIT WACK P ABL BRM PSEL130 EQU * P XIF P LD A1,DCRBUF $ P RF(NZ) SEL150 B
0x3d44fc…3d4690 Dummy {f00=0x0134, f01=0x0190, f02=» PSEL140 EQU * P IFF STARVI+NOWACK=2 P CF A5,TRWACK SEND WACK 8 P XIF X P RB SEL110 d PSEL150 EQU * v , P CF A5,PRREC PREPARE FOR TEXT RECEPTION P ADK A1,6 P ST A1,FBLST P CF A5,TRACK SEND ACK,0 P RB SEL1
0x3d4690…3d4824 Dummy {f00=0x0134, f01=0x018e, f02=»OCEDURE TIMER | P IFT RCOM=1 P CM XRB RESET READ BUFFER * P XIF L P LD A1,XACK X & P RF(Z) EOT120 ACK IS NOT EXPECTED l " P LD A6,FDWTUT GET WRITING DWT P RF(Z) EOT110 NO ONE WRITING P LDK A1,2 SET RC=2 ( P CF A5,CWRITE
0x3d4824…3d49b8 Dummy {f00=0x0134, f01=0x0190, f02=» t P ABL BRM P EJECT P* & P* 0 P* STX HAS BEEN RECEIVED : P* Z P* d PSTX100 EQU * n P CF A5,HPTIM P IFT TPMODE=1 P ABL BRM120 INVALID SEQENCE PSTX110 EQU * P XIF P LD A1,XSEL P RF(
0x3d49b8…3d4b4c Dummy {f00=0x0134, f01=0x0190, f02=»STS=1 P RF(NZ) STX120 P* $ P* NO BUFFER AVAILABLE . P* L P LDK A1,CSSRBY V $ P CF A15,DCSUPS INCREMENT COUNTER l P ABL BRM120 P XIF PSTX120 EQU * P CF A5,RDMESS READ MESSAGE P IFT STTSTS=1 P*
0x3d4b4c…3d4ce0 Dummy {f00=0x0134, f01=0x0190, f02=») STX170 MESSAGE OK PSTX130 EQU * ( P CM XSTA INDICATE 'INVALID MESSAGE' 0 PSTX140 EQU * P CF A5,TRNAK SEND NAK p P ABL BRM PSTX150 EQU * P IFT RCOM=1 P LD A1,XACK & P RF(Z) STX160 ACK IS NOT EXPECTED P LD
0x3d4ce0…3d4e74 (6, 52) Dummy {f00=0x0134, f01=0x0190, f02=»RONIZE j P LDR* A2,A6 GET STA , P CF A5,PRREC PREPARE FOR TEXT RECEPTION * P LDK A1,0 SET RC=0 Z ( P CF A5,CWRITE COMPLETE WRITE REQUEST t P CM CACK PRESET ACK-1 P RB STX120 READ THE MESSAGE P XIF ( PSTX160 CF A5,READ READ ONE
0x3d4e74…3d5008 Dummy {f00=0x0134, f01=0x0190, f02=»M XSTA INDICATE MESSAGE OK $ P LD A4,DCRBUF GET BUFFER ADDRESS " P ADK A4,6 J P CW A4,FBLST " P RF(NE) STX180 NOT FIRST BLOCK p P IFF RCOM=0 P LDK A1,ESC P CCR A1,A4 P RB(NE) STX130 ESC NOT FOUND P LC A1,1,A4 GET COMM
0x3d5008…3d519c Dummy {f00=0x0134, f01=0x0190, f02=» RECEIVED x P XIF PSTX180 EQU * P SUK A3,1 2 P RF(Z) STX280 SEND ACK D P LD A6,FDWTIN GET INPUT DWT b P IFT MESPAS=1 P CF A15,MESDWT P XIF P CWR A7,A6 IS IT DTETAB ? P RF(E) STX280 SEND ACK P CM FBAX
0x3d519c…3d5330 Dummy {f00=0x0134, f01=0x0190, f02=»,A2 TRANSLATE IT TO EBCDIC $ P LD A1,DCRBUF IS THERE A BUFFER " P RF(Z) STX200 NO J P ST A2,+4,A1 STORE THE ADDR b PSTX200 EQU * P XIF " P LD A2,DWTST,A6 ANY REQUEST ? P RF(N) STX220 NO P LD A2,DWTOR,A6 GET ORDER P I
0x3d5330…3d54c4 Dummy {f00=0x0134, f01=0x0190, f02=»STX210 EQU * P LDK A1,0 RESET RETURN CODE $ P LD A8,DWTECB,A6 GET ECB ADDRESS 8 P LD A3,-4,A4 GET LENGTH ` * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH & P CF A15,CTIME STOP REQUEST TIMING * P ST A2,ECBCW1,A8 STORE REMAINING TIME PST
0x3d54c4…3d5658 Dummy {f00=0x0134, f01=0x0190, f02=» RF(Z) STX230 P LD A2,DWTST,A6 P ORK A2,/A . P ST A2,DWTST,A6 @ PSTX230 EQU * X P XIF l " P LD A2,DWTST,A6 ANY REQUEST ? x P RF(NN) STX240 YES P CF A5,QRBUF QUEUE BUFFER P RF STX270 PSTX240 EQU * P LD A2,D
0x3d5658…3d57ec Dummy {f00=0x0134, f01=0x0190, f02=»WT ? z P RF(NE) STX245 NO * P LD A1,DWTLAD,A6 SYMBOLIC DTE-ADDRESS & P LDR* A2,A6 GET SUB-ADDRESS T P IFT CODE=1 x * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC P XIF P IFT MESPAS=1 , P CF A15,GETSSA GET SYMBOLIC SUB-ADDRESS
0x3d57ec…3d5980 Dummy {f00=0x0134, f01=0x0190, f02=»AGES ? p P RF(Z) STX250 NO P ORKL A1,R:DATA YES & PSTX250 EQU * B & P CF A15,DC:MIN MOVE TO USER BUFFER V P RF STX270 PSTX260 EQU * P CF A5,QRBUF QUEUE BUFFER P IFT EM3270=1 P LD A2,DWTOR,A6 GET ORDER ( P RF(NZ)
0x3d5980…3d5b14 (6, 53) Dummy {f00=0x0135, f01=0x0190, f02=»,DWTST,A6 GET STATUS P ANK A1,8 MASK A1 P RF(Z) STX280 6 P CF A5,TRWACK SEN WACK L P RF STX290 j P XIF | PSTX280 EQU * P CF A5,TRACK SEND ACK PSTX290 EQU * P ABL BRM P EJECT P* P* , P* READ M
0x3d5b14…3d5ca8 Dummy {f00=0x0135, f01=0x0190, f02=» " P CM XSEL RESET SELECT EXPECTED 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL * $ P LD A4,DWTBUF,A6 BUFFER ADDRESS b $ P SUK A4,2 SDJUST BUFFER ADDRESS " P LDKL A3,1922 REQUESTED LENGTH " P IM XRB SET READ BUFFER SWITCH P CM FDWTUT
0x3d5ca8…3d5e3c Dummy {f00=0x0135, f01=0x0190, f02=»ENQ HAS BEEN RECEIVED P* P* ( PENQ100 EQU * 2 & P CF A5,HPTIM STOP PROCEDURE TIMER F P LD A1,XACK p , P RF(NZ) NAK110 RETRANSMISSION OF MESSAGE P OR A1,XSEL " P RF(Z) ENQ110 IN CONTROL STATE . P CF A5,TRREP REPEAT LAST C
0x3d5e3c…3d5fd0 Dummy {f00=0x0135, f01=0x0190, f02=»* PNAK100 EQU * & P CF A5,HPTIM STOP PROCEDURE TIMER P LD A1,XACK H P RF(NZ) NAK110 ACK EXPECTED P OR A1,XSEL " P RB(Z) ENQ110 IN CONTROL STATE P RF DLE160 PNAK110 EQU * " P LD A6,FDWTUT GET WRITING DWT P I
0x3d5fd0…3d6164 Dummy {f00=0x0135, f01=0x0190, f02=» LAST BLOCK p & P SU A1,FECBBA COMPUTE BUFFER INDEX P ST A1,FBAX > P IFT STTSTS=1 R P* h P* r $ P* COUNT MESSAGES RETRANSMITTED | P* P LDK A1,CSSTRT P CF A15,DCSUPS P XIF P ABL POL200 P EJECT P
0x3d6164…3d62f8 Dummy {f00=0x0135, f01=0x0190, f02=»D A1,XACK P RF(NZ) DLE110 P IFT TPMODE=1 ( P CF A5,READ > P CWK A2,STX R * P ABL(Z) STX110 YES - TRANSPARENT TEXT f P XIF P RB ENQ110 PDLE110 EQU * & P CF A5,READ READ SECOND CHARACTER P CWK A2,ACKPAR IS IT ACK
0x3d62f8…3d648c Dummy {f00=0x0135, f01=0x018e, f02=»PECTED z PDLE120 EQU * P CF A5,TRENQ SEND ENQ " & P CF A5,SPTIM START PROCEDURE TIMER @ P RB ENQ110 j PDLE130 EQU * | P CWK A2,ACK1 P RF(NE) DLE180 P* P* ACK , 1 RECEIVED P* P LD A1,CACK GET ACK COUNTER
0x3d648c…3d6620 Dummy {f00=0x0135, f01=0x0190, f02=» , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK P* 8 P LDK A1,0 SET RC=0 B PDLE150 EQU * P IFF STARVI=0 p P LD A2,XSTA . P RF(NZ) DLE200 STATUS HAS BEEN TRANSMITTED P XIF ( P CF A5,CWRITE COMPLETE WRITE REQUEST PDLE1
0x3d6620…3d67b4 (6, 54) Dummy {f00=0x0135, f01=0x0190, f02=» EQU * P LDK A1,1 & P XRS A1,CACK INCREMENT ACK COUNTER P ABL POL200 J PDLE180 EQU * ^ P CWK A2,RVIPAR IS IT RVI ? r ( P RB(NE) DLE120 INVALID DLE SEQUENCE " P CM XACK RESET 'EXPECTING ACK' P LD A1,XETX $ P RF(NZ) DLE190
0x3d67b4…3d6948 Dummy {f00=0x0135, f01=0x0190, f02=»JECT P IFF STARVI=0 P* " P* , " P* STATUS HAS BEEN TRANSMITTED 6 P* P* f PDLE200 EQU * p " P LD A6,FDWTUT GET DWT ADDRESS , P CF A15,REMOVS REMOVE FROM STATUS QUEUE P CM XSTA CLEAR 'STATUS SENT' " P CM XACK C
0x3d6948…3d6adc Dummy {f00=0x0135, f01=0x0190, f02=»1,DWTST,A6 CLEAR STATUS P RB DLE160 P XIF 2 P EJECT > P* L < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 V P* ( P* CALLING SEQUENCE: CF A5,FINTER(S) P* A2=SUBTERMINAL ADDRESS P* A4 DESTROYED " P* A3#0
0x3d6adc…3d6c70 Dummy {f00=0x0135, f01=0x018e, f02=»SELECT ADDRESS x , P* FINTEP - CHECK SPECIFIC POLL ADDRESS P* F P* P P* Z PFINTES EQU * d P IFT MSV1=1 x P LDK A4,0 P RF FINT05 P XIF PFINTEP EQU * P LDK A4,1 RIGTH BYTE PFINT05 EQU * " P LD A3,D
0x3d6c70…3d6e04 Dummy {f00=0x0135, f01=0x0190, f02=» P RF(E) FINT20 YES P SUR A3,A4 " P LD A3,DWTCHN,A3 GET NEXT DWT 0 P RB FINT10 V PFINT20 EQU * h P ANKL A3,/FFFE | P RTN A5 P EJECT P* P* P* PREPARE FOR TEXT RECEPTION P* P* PPRREC EQU *
0x3d6e04…3d6f98 Dummy {f00=0x0135, f01=0x0190, f02=»C h P XIF $ P ST A2,+4,A1 SAVE STA IN BUFFER P IM XSTA > " P ST A6,FDWTIN STORE INPUT DWT N P RTN A5 t P EJECT P* P* 6 P* CHECK IF THERE IS A SEND REQUEST TO BE COMPLETED P* P* A1 CONTAINS RETURN CODE
0x3d6f98…3d712c Dummy {f00=0x0135, f01=0x0190, f02=»UEST | P LD A2,DWTOR,A6 GET ORDER & P ANK A2,/FF MASK AWAY OPTION PART . P SUK A2,6 X $ P RF(NZ) CWR900 NOT SEND REQUEST j 4 P LD A2,DWTIPC,A6 ANY RECEIVED BUFFERS ON QUEU ? P RF(Z) CWR110 NO 0 P ORKL A1,R:DATA ACCEPTED AND DATA AVAI
0x3d712c…3d72c0 Dummy {f00=0x0135, f01=0x0190, f02=»E REQUEST z PCWR150 EQU * * P CF A15,REMOVW REMOVE FROM WRITE QUEUE & PCWR900 EQU * T " P CM XACK RESET 'ACK EXPECTED' h P CM FDWTUT P RTN A5 P EJECT P* P* P* READ ONE TEXT BLOCK P* P* ON EXIT A3 C
0x3d72c0…3d7454 (6, 55) Dummy {f00=0x0135, f01=0x0190, f02=» BLOCK RECEIVED | P* PRDMESS EQU * " $ P LD A4,DCRBUF GET BUFFER ADDRESS 6 P ADK A4,6 RESERVE HEADER ^ P LDK A3,0 ~ P LD A1,XSTA $ P RF(NZ) RDM050 LAST INPUT WAS OK " P LD A1,FBLST COMPUTE NEW INDEX P SUR A1,A4 P ST
0x3d7454…3d75e8 Dummy {f00=0x0135, f01=0x0190, f02=» A8,A8 RESET LRC P P IFT IBMCHR=1 P IFF TPMODE=1 6 P LD A1,FBAX L " P RF(NZ) RDM100 NOT FIRST BLOCK ` P CF A5,READP P RF(NZ) RDM120 PARITY ERROR P CWK A2,ESC P RF(NE) RDM110 * P CF A5,READP SKIP NEXT TWO CHARA
0x3d75e8…3d777c Dummy {f00=0x0135, f01=0x0190, f02=»RDM120 PARITY ERROR PRDM110 EQU * P XIF 0 P IFT TPMODE=1 < & P IM TPM INDICATE TRANSPARENT TEXT R PRDM100 CF A5,READ | P CWK A2,DLE CHECK IF DLE P RF(NE) RDM112 NO 0 P CF A5,READ SKIP DLE AND READ NEXT CHARACTER P CWK
0x3d777c…3d7910 Dummy {f00=0x0135, f01=0x0190, f02=» RF(E) RDM115 YES - STORE DLE AS DATA P CWK A2,ETX CHECK IF ETX . P RF(E) RDM130 YES N P CWK A2,ETBEBC CHECK IF ETB h P RF(E) RDM160 YES P CWK A2,ITB CHECK IF ITB P RF(E) RDM175 YES P CWK A2,ENQEBC CHECK IF ENQ P RF(
0x3d7910…3d7aa4 Dummy {f00=0x0135, f01=0x0190, f02=»E P RB(NE) RDM105 P CF A5,READ P CWK A2,ETX 4 $ P RF(E) RDM110 YES - END OF BLOCK H P CWK A2,ETBEBC p $ P RB(NE) RDM105 NOT END OF BLOCK PRDM110 EQU * $ P CM TPM OUT OF TRANSPARENT TEXT P CF A5,RDCRC ( P RF RDM140
0x3d7aa4…3d7c38 Dummy {f00=0x0135, f01=0x0190, f02=» RDM130 ETX RECEIVED P CWK A2,ETB P RF(E) RDM160 ETB RECEIVED 0 P CWK A2,ITB R P RF(E) RDM170 ITB RECEIVED f P CWK A2,ENQ 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAGE P CWK A2,/FF $ P RF(E) RDM140 MARK HOLD RECEIVED
0x3d7c38…3d7dcc Dummy {f00=0x0135, f01=0x0190, f02=» P RF(N) RDM115 NOT DC1-DC3 P SLL A1,6 & P STR A1,A4 8 * P CF A5,READP 8-BIT CHAR GET NEXT PART J P RF(NZ) RDM120 PARITY ERROR x * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER P ORR* A2,A4 P XIF PRDM115 EQU * & P ADK A3,0
0x3d7dcc…3d7f60 Dummy {f00=0x0135, f01=0x0190, f02=»FBAX INCREMENT BUFFER INDEX P LD A1,FBAX $ P CWK A1,RBUFL+RBUFL 8 P RB(NG) RDM100 NOT OVERFLOW T P* x P* BUFFER OVERFLOW P* & P LDK A3,1 INDICATE BUFFER OVERFLOW P IFT STTSTS=1 " P LDK A1,CSSRBO BUFFER OVERFLOW
0x3d7f60…3d80f4 (6, 56) Dummy {f00=0x0135, f01=0x0190, f02=» * P IFT STTSTS=1 P LDK A1,CSSRPE $ P CF A15,DCSUPS INCREMENT COUNTER 6 P XIF ^ & P LDK A3,1 INDICATE INVALID MESSAGE j P SUK A2,/7F $ P RF(Z) RDM150 MARK HOLD RECEIVED P RB RDM100 P* P* ETX RECEIVED P*
0x3d80f4…3d8288 Dummy {f00=0x0135, f01=0x018e, f02=»IN HEADER l P IFF CODE=1 P CF A5,RDLRC & P RF(Z) RDM150 LRC WAS OK : P XIF Z P IFT CODE=1 f & P CF A5,RDCRC READ CRC AND CHECK IT z P RF(E) RDM150 CRC WAS OK P XIF PRDM140 EQU * & P LDK A3,1 INDICATE INVALID MESSAGE
0x3d8288…3d841c Dummy {f00=0x0135, f01=0x0190, f02=» P LDK A3,1 PARITY ERROR PRDM155 EQU * & P XIF : P IFT TPMODE=1 F & P CWK A3,1 ERROR DETECTED EARLIER ? P RF(NE) RDM158 NO $ P CM TPM OUT OF TRANSPARENT TEXT PRDM158 EQU * P XIF P RTN A5 P* P* ETB
0x3d841c…3d85b0 Dummy {f00=0x0135, f01=0x0190, f02=» P RB RDM130 P* P* ITB RECEIVED P* 6 PRDM170 EQU * @ P IFF CODE=1 T P CF A5,RDLRC h " P RB(NZ) RDM120 LRC WAS NOT OK | P XIF P IFT CODE=1 & P CF A5,RDCRC READ CRC AND CHECK IT " P RB(NE) RDM120 CRC WAS NOT O
0x3d85b0…3d8744 Dummy {f00=0x0135, f01=0x0190, f02=»B(NE) RDM105 CRC WAS NOT OK PRDM180 CF A5,READ $ P CWK A2,SYNEBC > P RB(E) RDM180 SKIP SYN T P CWK A2,DLE r $ P RB(NE) RDM105 ILLEGAL CHARACTER P CF A5,READ P CWK A2,STX $ P RB(NE) RDM105 ILLEGAL CHARACTER P XIF
0x3d8744…3d88d8 Dummy {f00=0x0135, f01=0x0190, f02=» & P XRS A2,CACK INCREMENT ACK COUNTER P RF(NZ) TRDLE . P LDK A3,ACK0 LOAD ACK0 D P RF TRDLE b P* t P* TRANSMIT WACK ~ P* PTRWACK LDK A3,WACK LOAD WACK P RF TRDLE P* P* TRANSMIT RVI P* P IFF STA
0x3d88d8…3d8a6c Dummy {f00=0x0135, f01=0x0190, f02=» SC A2,RESEND PUT INSAVE AREA P SC A3,RESEND+1 & P RF TRREP > P EJECT P P* ^ P* TRANSMIT NAK h P* ~ PTRNAK LDK A3,NAK LOAD NAK P RF TREN10 P* P* TRANSMIT EOT P* PTREOT LDK A3,EOT LOAD EOT P
0x3d8a6c…3d8c00 Dummy {f00=0x0135, f01=0x0190, f02=»AREA p P LDK A2,/FF P SC A2,RESEND+1 $ PTRREP CF A5,TRSYNC START OUTPUT 8 & P LC A2,RESEND GET FIRST CHARACTER ` P CF A5,WRITEP SEND IT & P LC A2,RESEND+1 GET NEXT CHARACTER P CF A5,WRITEP SEND IT PTRRE10 LDK A2,/FF
0x3d8c00…3d8d94 (6, 57) Dummy {f00=0x0136, f01=0x0190, f02=»OGSST LOG TRANSMITTER STATUS P XIF $ P RTN A5 0 P EJECT @ P* N P* X P* TRANSMIT ONE TEXT BLOCK b P* P* PTRTEXT EQU * P CF A5,TRSYNC START OUTPUT P IFF TPMODE=0 P LDK A2,DLE P CF A5,WRIDLE SE
0x3d8d94…3d8f28 Dummy {f00=0x0136, f01=0x0190, f02=» p P AD A4,FBAX ADD BUFFER INDEX ( P ST A4,FBLST REMEMBER START OF BLOCK , ( P ADK A4,2 SKIP FIRST WORD OF BUFFER X & P LDK A3,0 RESET CHARACTER COUNTER P LD A1,FBAX GET BUFFER INDEX " P RF(NZ) TRT100 NOT FIRST BLOCK " P LDR* A2,A7 NETW
0x3d8f28…3d90bc Dummy {f00=0x0136, f01=0x0190, f02=»F A5,WRITEP SEND STA P IFT IBMCHR=1 P IFF RCOM=1 2 " P LDK A2,/27 SEND ENTER AS AID F P CF A5,WRITEP l " P LDK A2,/20 AND CURSOR ADDRESS P CF A5,WRITEP P LDK A2,/20 P CF A5,WRITEP P XIF P IFT RCOM=1 P
0x3d90bc…3d9250 Dummy {f00=0x0136, f01=0x0190, f02=»R DISPLAY | P CF A5,WRITEP SEND AID P 0 $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS 8 . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER ` P LDK A3,5 SET BLOCK COUNT P RF TRT100 PTRT070 EQU * P XIF P P LDK A3,2 PTRT100 E
0x3d9250…3d93e4 Dummy {f00=0x0136, f01=0x0190, f02=»INTER z P ANK A2,/7F P IFT RCOM=1 " & P LD A1,XRB READ BUFFER COMMAND ??? 6 P RF(Z) TRT105 NO!! ` P z @ P************************************************************ P* , P* CHECK IF ATTRIBUTE CHARACTER OR NULL P* 4
0x3d93e4…3d9578 Dummy {f00=0x0136, f01=0x0190, f02=» XIF P IFT DMRK=1 P CWK A2,/7E LINE FEED ? " P RF(NE) TRT102 NO,GO TO TRT102 @ P LDK A2,/0A f PTRT102 EQU * z P CWK A2,/7D END OF MESSAGE ? " P RF(NE) TRT103 NO,GO TO TRT103 P LDK A2,/19 PTRT103 EQU * P CWK A2,
0x3d9578…3d970c Dummy {f00=0x0136, f01=0x0190, f02=» P P LDK A2,SF " P CF A5,WRITEP SEND START FIELD P D ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER L P ANK A2,X'7F' x ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE P ANK A1,1 P ANK A2,/1E MASK P SLL A2,1 & P ORR A2,A1 IBM ATT
0x3d970c…3d98a0 Dummy {f00=0x0136, f01=0x0190, f02=»TRT104 P LDK A2,/30 PTRT104 EQU * " P CF A5,WRITEP SEND ATTRIBUTE 6 P ADK A3,1 Z P RF TRT110 l PTRT105 EQU * ~ P XIF P EJECT P IFF TPMODE=1 P CWK A2,/07 ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT P XIF
0x3d98a0…3d9a34 (6, 58) Dummy {f00=0x0136, f01=0x0190, f02=» n P CW A1,FBAX " P RF(NG) TRT130 END OF MESSAGE * P ADK A3,1 INCREMENT CHARACTER COUNTER B P CWK A3,TBLEN p P IFT TPMODE=1 P RB(L) TRT105 NOT FULL BLOCK P XIF P RB(L) TRT100 NOT FULL BLOCK P IFT RCOM=1 , P LDK
0x3d9a34…3d9bc8 Dummy {f00=0x0136, f01=0x0190, f02=» v ( P LCR A2,A4 GET FIRST BYTE AFTER SBA P ADK A4,1 INREMENT POINTER 4 P CF A5,WRITEP SEND IT V P IM FBAX INCREMENT INDEX t . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA P CF A5,WRITEP SEND IT P IM FBAX INCREMENT INDEX P XIF
0x3d9bc8…3d9d5c Dummy {f00=0x0136, f01=0x0190, f02=»AD ETB PTRT120 EQU * P IFT TPMODE=1 " P CM TPM 8 P XIF H P CF A5,WRITEP SEND IT T P IFF CODE=1 r P LDR A2,A8 GET LRC P CF A5,WRITEP SEND LRC P XIF P IFT CODE=1 P LDR A2,A6 P ANK A2,/FF " P CF
0x3d9d5c…3d9ef0 Dummy {f00=0x0136, f01=0x018e, f02=» P* P* " P* COUNT MESSAGES TRANSMITTED P* B P LDK A1,CSSTBL L P CF A15,DCSUPS b P XIF x P ABL TRRE10 HALT OUTPUT PTRT130 EQU * P IM XETX INDICATE 'ETX SENT' P IFT TPMODE=1 P LDK A2,DLE $ P C
0x3d9ef0…3da084 Dummy {f00=0x0136, f01=0x0190, f02=» P* P* TRANSMIT STATUS MESSAGE P* 0 P* : P IFF STARVI=0 D PTRSTA EQU * Z $ P IM XSTA INDICATE 'STATUS SENT' n P ST A6,FDWTUT SAVE A6 P CF A5,TRSYNC START OUTPUT P LDK A2,SOH P CF A5,WRITE SEND SOH P
0x3da084…3da218 Dummy {f00=0x0136, f01=0x0190, f02=»STX P CF A5,WRITE SEND STX P LDR* A2,A7 * P CF A5,WRITEP SEND TCA > " P LD A4,FDWTUT GET DWT-ADDRESS ( P LDR* A2,A4 GET NETWORK SUB-ADDRESS P CF A5,WRITEP SEND STA P LD A1,DWTST,A4 GET STATUS P ANK A1,/06 MASK FOR S/S 0
0x3da218…3da3ac Dummy {f00=0x0136, f01=0x0190, f02=»A1,DWTST,A4 GET STATUS P ANK A1,5 P RF(Z) TRST10 NOT 'IR' 0 P ANK A1,4 N P RF(NZ) TRST10 NO IR IF DE ` P LDK A2,IR PTRST10 EQU * P CF A5,WRITEP SEND S/S 1 P RB TRT130 SEND ETX AND LRC P XIF P EJECT P*
0x3da3ac…3da540 Dummy {f00=0x0136, f01=0x018e, f02=»F A5,CSYNCO START OUTPUT WITH SYNC DEF * P CF A5,READ WAIT FOR OUTPUT INTERRUPT . P* P* f P* SEND 4 SYN-CHARACTERS p P* P LDK A3,4 PTRS100 EQU * P LDK A2,SYN P CF A5,WRITE SEND CHARACTER P SUK A3,1
0x3da540…3da6d4 (6, 59) Dummy {f00=0x0136, f01=0x0190, f02=» b P* PCSYNCI EQU * P LD A2,PFPOST & $ P RF(NZ) CSYN:I WAIT FOR POWER UP < P CF A5,CHALTI STOP INPUT d & P ST A5,DCLCI SET INPUT ACTIVE FLAG P IFT P6805=1 . P LDK A2,PARITY CHAR PARITY FUNCTION FOR LC P CIO A2,1,LCUIN STAR
0x3da6d4…3da868 Dummy {f00=0x0136, f01=0x0190, f02=»DKL A2,CBCARR+SYNC DEF SYNC-PATTERN 2 P CIO A2,1,LCUIN SEND INPUT SYNC-PATTERN TO LC , P RF(NA) CSYN:I b P LDK A1,1 x P ST A1,DTEPLS,A7 OPERABLE P XIF PCSYN:I EQU * P RTN A5 RETURN TO CALLER P* P* " P* CHALT
0x3da868…3da9fc Dummy {f00=0x0136, f01=0x0190, f02=» A2,0,LCUIN HALT INPUT & P CM DCLCI CLEAR INPUT ACTIVE FLAG P SST A2,LCUIN READ STATUS H P IFF LOGG=0 j $ P CF A5,LOGSST LOGG INPUT STATUS ~ P XIF P RTN A5 RETURN TO CALLER P EJECT P* P* 0 P* CSYNCO : START TR
0x3da9fc…3dab90 Dummy {f00=0x0136, f01=0x0190, f02=» * P LDK A2,PARITY CHAR PARITY CHECK BY CU P CIO A2,1,LCUUT CIO START 6 P RF(A) CSYNC1 ACCEPTED X $ P SST A2,LCUUT TRY TO READ STATUS v * P ABL BRM NOT ACCEPTED TIMEOUT REQUEST PCSYNC1 EQU * " P LDK A2,SYNC DEF SYNC PATTERN & P O
0x3dab90…3dad24 Dummy {f00=0x0136, f01=0x0190, f02=» * P RTN A5 RETURN TO CALLER P* * P* 4 $ P* CHALTO : HALT OUTPUT CHANNEL > P* f PCHALTO EQU * p P IFT P6805=1 P LDK A2,CBSTOP STOP FUNCTION P XIF P CIO A2,0,LCUUT HALT OUTPUT P IFT P6805=1 " P CF A5,R
0x3dad24…3daeb8 Dummy {f00=0x0136, f01=0x0190, f02=»TO2 $ P LDK A1,CSCDCE DCE NOT OPERABLE P ANK A2,H:NOOP 4 P RF(NZ) CHLTO1 YES J * P LDK A1,CSCDOT OUTPUT THROUGHPUT ERROR d PCHLTO1 EQU * $ P CF A15,DCSUPS INCREMENT COUNTER PCHLTO2 EQU * P XIF P RTN A5 RETURN TO CALLER
0x3daeb8…3db04c Dummy {f00=0x0136, f01=0x0190, f02=»PU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF 0 P < P IFF CPU852=1 D P MSR 8,A15 SAVE A1-A8 Z P XIF x * P CF A15,LDREG RESTORE DC REGS A3 - A8 P INR A2,0,LCUIN READ CHAR , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS P IFF
0x3db04c…3db1e0 Dummy {f00=0x0136, f01=0x0190, f02=» SYNC IN TRANSPARENT TEXT v P XIF " P C2 SYNSW . 0 P RF(NZ) IHLC05 DO NOT SKIP SYNS IN BCC FRAME @ P CWK A2,SYNC t P RF(E) READ PIHLC05 EQU * P IFT CODE=0 P XRR A8,A2 CALCULATE LRC P XIF P IFT CODE=1 P CF
0x3db1e0…3db374 (6, 60) Dummy {f00=0x0136, f01=0x0190, f02=»FF00 SET FLAG FOR CARRIER ON & P ST A1,DCLCI SET INPUT ACTIV FLAG $ P CM DCSTCU CLEAR SST SAVE N P LDK A1,1 p P ST A1,DTEPLS,A7 CU OPERABLE P RTN A5 RETURN TO CALLER PIHIN20 EQU * P CF A5,SST PERFORM SST P ABL BRM P
0x3db374…3db508 Dummy {f00=0x0136, f01=0x0190, f02=»852=1 P CF A15,SAVE8 SAVE A1 - A8 P XIF 0 P < P IFF CPU852=1 D P MSR 8,A15 SAVE A1-A8 Z P XIF x * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RTN A5 P EJECT P* P* & P* SST INSTRUCTION AND STATUS CHECK
0x3db508…3db69c Dummy {f00=0x0136, f01=0x0190, f02=»ROUGHPUT ERROR v , P* BIT 15=MODEM NOT READY P* F PSST EQU * P P SST A2,LCUIN GET STATUS b P LDR A1,A2 P IFT LOGG=1 & P CF A5,LOGSST LOGG SST INFORMATION P XIF P ANK A2,H:ERR ERROR BIT SET P RF(NZ
0x3db69c…3db830 Dummy {f00=0x0136, f01=0x0190, f02=»PUT ACTIVE WITH DATA * P LDKL A2,CBCARR+SYNC DEF SYNC PATTERN & P CIO A2,1,LCUIN START INPUT AGAIN J $ P RF SST125 RETURN TO DISPATCHER t P XIF P IFT P6805=1 P RF SST100 P XIF PSST050 EQU * * P CM DTEPLS,A7 CLEAR PHYS.
0x3db830…3db9c4 Dummy {f00=0x0136, f01=0x0190, f02=» IGNORE CARRIER OFF x P RF SST100 ACTIVE PSST075 EQU * 6 P LDR A2,A1 J $ P ANK A2,H:THRU THROUGHPUT ERROR P RF(Z) SST100 NO P IFT STTSTS=1 P* P* $ P* COUNT INPUT THROUGHPUT ERROR P* P LDK A1,CSCDIT
0x3db9c4…3dbb58 Dummy {f00=0x0136, f01=0x0190, f02=» t P RF(Z) SST200 P IFT STTSTS=1 P* 4 P* > P* COUNT DCE NOT OPERABLE H P* j P LDK A1,CSCDCE t P CF A15,DCSUPS P XIF P CF A15,STREG SAVE REGISTERS P CF A15,SETIME DELAY 1 SEC P DATA SST150,10
0x3dbb58…3dbcec Dummy {f00=0x0136, f01=0x018e, f02=»QU * P LDR A2,A1 . P ANK A2,H:CARR CHECK STATUS IF CARRIER OFF P RF(Z) SST225 NO P 4 P XRK A1,H:CARR CHECK STATUS IF ONLY CARRIER OFF h P RF(Z) SST250 YES PSST225 EQU * 0 P ST A1,DCSTCU STORE STATUS AS CURRENT STATUS PSST250
0x3dbcec…3dbe80 Dummy {f00=0x0136, f01=0x018e, f02=» P* PWRITE EQU * P IFT CODE=1 " P C2 TPM 6 & P RF(Z) WRIT02 NOT TRANSPARENT MODE F P CWK A2,DLE CHECK IF DLE p P RF(NZ) WRIT05 NO P CF A5,WRIDLE SEND EXTRA DLE P LDK A2,DLE P RF WRIT05 PWRIT02 EQU * P
0x3dbe80…3dc014 (6, 61) Dummy {f00=0x0137, f01=0x0190, f02=» P XIF PWRIT05 EQU * " P OTR A2,0,LCUUT SEND CHARACTER $ P RF(A) WRIT10 J P IFF CODE=1 ` $ PWRIT10 XRR A8,A2 ACCUMULATE BCC t P XIF P IFT CODE=1 & PWRIT10 CF A5,CRCCAL CALCULATE CRC P XIF PWRIT15 EQU * P I
0x3dc014…3dc1a8 Dummy {f00=0x0137, f01=0x018e, f02=»* < P* THESE INSTRUCTIONS ARE ONLY USED TO SEND AN EXTRA DLE * P* WHEN TRANSPARENT MODE IS CONFIGURED J P* x PWRIDLE EQU * " P OTR A2,0,LCUUT SEND CHARACTER P RB(A) WRIT15 ACCEPTED $ P RB READ OUTPUT THROUGHPUT ERROR P EJECT
0x3dc1a8…3dc33c Dummy {f00=0x0137, f01=0x0190, f02=» t PWRITEP ANK A2,/FF P ECR A1,A2 " P ORK A2,/80 4 PWRI100 SLL A1,1 H P RB(P) WRI100 ` P RB(Z) WRITE WRITE v P XRK A2,/80 P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE P XIF P
0x3dc33c…3dc4d0 Dummy {f00=0x0137, f01=0x0190, f02=» A5,READ P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 2 PRE100 SLL A1,1 D P RF(Z) RE110 Z P RB(NN) RE100 n P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ P LDK
0x3dc4d0…3dc664 Dummy {f00=0x0137, f01=0x0190, f02=»* P* P* POWER ON FUNCTIONS P* 0 P* : PDC15ON EQU * D P IFT CPU852=1 X P CF A15,SAVE8 SAVE A1-A8 n P XIF P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 P XIF " P LDKL A7,DTETAB DTETAB ADDRESS P
0x3dc664…3dc7f8 Dummy {f00=0x0137, f01=0x0190, f02=»OF CHAIN ~ & P ORS A5,DWTST,A6 STORE DEVICE END , P CF A15,INSSQ INSERT DWT IN STAUS QUEUE : * P LD A6,DWTCHN,A6 GET NEXT DWT IN CHAIN j P RB DC1510 PDC1520 EQU * P XIF P IFT MESPAS=1 * P LD A6,DTEDDT,A7 GET DISCARD DWT ADDR
0x3dc7f8…3dc98c Dummy {f00=0x0137, f01=0x018e, f02=»N STATUS QUEUE v PDC1530 EQU * P XIF * P LD A2,DTESTA,A7 DTE STATUS 6 P SUK A2,2 Z $ P ABL(NZ) TDISP OPEN NOT EXECUTED l * P CM DCLCI INIT LINE CONTROL UNIT INFO ( P LD A2,DCTPGP GET POLL TIMER POINTER " P RF(NZ) DC1540 ALREADY STA
0x3dc98c…3dcb20 Dummy {f00=0x0137, f01=0x018e, f02=» P* CALCULATION OF CRC P* $ P* A2 = CHARACTER . P* A8 = ACCUMULATED CRC F P* d P* n PCRCCAL EQU * x P ST A1,CRCSAV+2 P ST A2,CRCSAV+6 P ST A3,CRCSAV+10 P ST A4,CRCSAV+14 P LDK A1,8 P LDR A4,A8
0x3dcb20…3dccb4 (6, 62) Dummy {f00=0x0137, f01=0x0190, f02=» P XRKL A4,/A001 PCRC110 SUK A1,1 P RB(NZ) CRC100 2 P LDR A8,A4 SAVE NEW CRC H PCRCSAV EQU * h P LDKL A1,0 | P LDKL A2,0 P LDKL A3,0 P LDKL A4,0 P RTN A5 P EJECT P* P* ( P* READ CRC CHARACT
0x3dccb4…3dce48 Dummy {f00=0x0137, f01=0x0190, f02=»UK A5,2 ADJUST STACK POINTER $ P IM SYNSW DO NOT SKIP SYNCS NOW $ P CF A5,READ READ BYTE 1 L P LD A4,CRCSAV+6 SAVE IT l P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+6 SAVE IT P SLL A2,8
0x3dce48…3dcfdc Dummy {f00=0x0137, f01=0x0190, f02=»LRC CHARACTER | " P* CR=0 IF LRC OK P* < PRDLRC IM SYNSW F P CF A5,READP P ADK A5,4 p P LDR A1,A1 P RF(NZ) LRCEND P ANKL A8,/007F PLRCEND EQU * P CM SYNSW P ABR* A5 P P XIF
0x3dcfdc…3dd170 Dummy {f00=0x0137, f01=0x0190, f02=»**************** x P* P* " P* DC RECEIVE BUFFER POOL , P* L PRLINK EQU RBUFL+RBUFL+8 V P* v PDCRBUF EQU * P DATA *+2 FREE BUFFER ANCHOR P IFF RBUFNR=2 P DATA *+RLINK P RES RBUFL+3 P IFF RBUFNR=3
0x3dd170…3dd304 Dummy {f00=0x0137, f01=0x0190, f02=»K P RES RBUFL+3 P DATA 0 END OF CHAIN P RES RBUFL+3 : P N P IFF MMUPAG=0 V & PMMUBUF RES TBUFL+1 MMU WORK BUFFER l P XIF P EJECT P* P* P* INTERRUPT LOGGING ROUTINE P* P* P IFF LOGG=0
0x3dd304…3dd498 Dummy {f00=0x0137, f01=0x0190, f02=» PLOGIN CWK A2,/FF P RF(E) LOGE10 P ST A2,SAVE2 2 PLOG10 ST A3,SAVE3 F P LD A3,LOGPNT ` P STR A2,A3 v P ADK A3,2 P CWK A3,LOGEND P RF(L) LOGEXI P LDKL A3,LOGSTA PLOGEXI ST A3,LOGPNT P LD A2,SAVE2
0x3dd498…3dd62c Dummy {f00=0x0137, f01=0x018e, f02=» PLOGEND EQU *-4 PSAVE2 DATA 0 PSAVE3 DATA 0 2 P XIF F P* R P* P* f P IFT RCOM=1 p P EJECT < P******************************************************* P* P* L I N C O L P* : P* CO
0x3dd62c…3dd7c0 Dummy {f00=0x0137, f01=0x0190, f02=» PLINCOL EQU * " P LDR A2,A3 COPY CURSOR ADDRESS P SRL A2,6 > P ANK A2,X'3F' P & P LC A2,LICO:T,A2 ASCII LINE NUMBER f " P CF A5,WRITEP SEND LINE NUMBER P P LDR A2,A3 P ANK A2,X'3F' ( P LC A2,LICO:T,A2 ASCII COLUMN NUMB
0x3dd7c0…3dd954 (6, 63) Dummy {f00=0x0137, f01=0x018e, f02=»:T EQU * * P DATA /2041,/4243,/4445,/4647 /00-/07 * P DATA /4849,/5B2E,/3C28,/2B21 /08-/0F > * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 l * P DATA /5152,/5D24,/2A29,/3B5E /18-/1F * P DATA /2D2F,/5354,/5556,/5758 /20-/27 * P DATA /595A,/7C2C,
0x3dd954…3ddae8 Dummy {f00=0x0137, f01=0x0190, f02=» P* P* DTETAB P* " P* FIXED PART , P* @ PDW1500 EQU * J PDTETAB DATA 0,0 ^ P DATA 0,0,0,0,0,0 v P IFT MMUPAG=1 P DATA 0,0 P XIF P* DRIVER DEPENDENT PART 2 P DATA DTESBU-DTETAB START OF STATIST
0x3ddae8…3ddc7c Dummy {f00=0x0137, f01=0x0190, f02=»STATUS WORD $ P DATA /20 MAX NUMBER OF COUNTERS P RES /20 STATISTIC BUFFER < P EJECT ^ P* l P* v P* PROCEDURE WORK AREAS P* P* * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSIO
0x3ddc7c…3dde10 Dummy {f00=0x0137, f01=0x0190, f02=»T RESULT j " PXRB DATA 0 READ BUFFER SWITCH PCACK DATA 0 ACK COUNTER 6 * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP V & PTPM DATA 0 IF =1 TRANSPARENT TEXT P* PFECB RES 1 WRITING ECB ( PFECBBA RES 1 WRITING BUFFER ADDRESS & PFECBRL
0x3dde10…3ddfa4 Dummy {f00=0x0137, f01=0x018a, f02=»TUS QUEUE ANCHOR . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING $ PDCWRQ DATA 0 WRITE REQUEST QUEUE J , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA r P* P EJECT P* P* P* CONSTANTS AND WORK AREAS P* P* PDCST
0x3ddfa4…3de138 Dummy {f00=0x0137, f01=0x4008, f02=»@ E ANCHOR . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING $ PDCWRQ DATA 0 WRITE REQUEST QUEUE J , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA r P* P EJECT P* P* P* CONSTANTS AND WORK AREAS P* P* PDCST
0x3de138…3de2cc Dummy {f00=0x0137, f01=0x2008, f02=» H P X ` h p x
0x3de2cc…3de460 Dummy {f00=0x0137, f01=0x2008, f02=»
0x3de460…3de5f4 (6, 64) Opaque[0x194]
0x3de5f4…3de788 # DirEnt {nam=»XXDW15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26f8, f03=0x0000}
0x3de5f4…3de788 IdxSect {
0x3de5f4…3de788 f00 = 0x0137 // 0x3de5f4 @0x0
0x3de5f4…3de788 f01 = 0x0002 // 0x3de5f6 @0x2
0x3de5f4…3de788 gno = [ // 0x3de5f8 @0x4
0x3de5f4…3de788 [0x00]: C0x0137.0x3.0
0x3de5f4…3de788 ]
0x3de5f4…3de788 }
0x3de788…3de91c Dummy {f00=0x0137, f01=0x0190, f02=» 0 P IDENT DW1501 REL 11.0 81-01-26 870105041100 P 8 P* @ : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 J P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 0 P*
0x3de91c…3deab0 Dummy {f00=0x0137, f01=0x0190, f02=»ESS P DATA DWTEND-DW1501 P RIGHT BYTE=ORDER ( * P DATA DC15AD POINTER TO ADDRESS-BLOCK D P DATA 'DC' TTAB-ADDRESS r $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P* P IFT MMUPAG=1 P DATA 0 USER ECB
0x3deab0…3dec44 Dummy {f00=0x0137, f01=0x0190, f02=» LINK HEAD DWT | & P DATA 0 CONFIG CHAIN LINK NEXT DWT & P DATA 0 LOCAL SYMBOLIC DTE ADDRESS @ ( P DATA 0 REMOTE SYMBOLIC DTE ADDRESS j P DATA 0 SYMBOLIC SUBADDRESS P DATA 0 REQUEST CONTROL WORD P DATA 0 REQUEST TIMER VALUE " P DATA
0x3dec44…3dedd8 Dummy {f00=0x0137, f01=0x413c, f02=»ATA 0 I/P DATA Q LINK TO BUFFER " P DATA 0 I/P DATA TIMER POINTER ( P DATA 0 CURSOR ADDRESS N " P DATA 0 DEVICE BUFFER ADDRESS l P DATA 0 DWT STATUS P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF
0x3dedd8…3def6c Dummy {f00=0x0137, f01=0x2008, f02=» R ( P DATA DCAD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P DATA 0,0 SAVE ARE
0x3def6c…3df100 Dummy {f00=0x0137, f01=0x0190, f02=»IT FOR POWER UP IF SET P EJECT J P********************************************************************** . P* | P* REGISTER USAGE: P* P* A1 WORK (RETURN CODE) P* A2 WORK P* A3 WORK (BUFFER LENGTH) P* A4 WORK
0x3df100…3df294 (6, 65) Opaque[0x194]
0x3df294…3df428 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x2700, f03=0x0000}
0x3df294…3df428 IdxSect {
0x3df294…3df428 f00 = 0x0138 // 0x3df294 @0x0
0x3df294…3df428 f01 = 0x000a // 0x3df296 @0x2
0x3df294…3df428 gno = [ // 0x3df298 @0x4
0x3df294…3df428 [0x00]: C0x0138.0x0.0
0x3df294…3df428 [0x01]: C0x0138.0x1.0
0x3df294…3df428 [0x02]: C0x0138.0x2.0
0x3df294…3df428 [0x03]: C0x0138.0x3.0
0x3df294…3df428 [0x04]: C0x0139.0x0.0
0x3df294…3df428 ]
0x3df294…3df428 }
0x3df428…3df5bc Dummy {f00=0x0138, f01=0x0190, f02=» J F IDENT DRDC15 REL 11.0 81-09-09 870105041100 . * DC15ADK IH1501 IH1502 DC15ON DW1500 R DC15ADK BHBB DWTOR , ( 1 X $P % Y $ X " T @ , ( O T A
0x3df5bc…3df750 Dummy {f00=0x0138, f01=0x0190, f02=» j GETDNA , ( P ] ] V TASCIIW L , ( ] ] < " P H :H ! ^ , ( @ D = X B , ( P ] , ( # "P R X ]
0x3df750…3df8e4 Dummy {f00=0x0138, f01=0x0190, f02=» . ! ! B = ] @ TDISP " , ( { P a A ] ] 2 , ( B X 2 b ECBBA DC:MOT , ( C B P Y GETSNA0 , ( B B Y
0x3df8e4…3dfa78 Dummy {f00=0x0138, f01=0x018e, f02=» h , ( 'B X P Y @ T , ( C X 2 "P T X Y 2 8 , ( c ] "_( T P X U Y h ECBCW1 , ( 2_F B T X 2:D :D , ( :D C X 2 *
0x3dfa78…3dfc0c Dummy {f00=0x0138, f01=0x0190, f02=» f DWTOPTL ECBRL , ( X " P B * , ( - @ X 2 Z ECBEL , ( K X *T W P GETSSAB , ( k@ C X P " C 0P
0x3dfc0c…3dfda0 Dummy {f00=0x0138, f01=0x018e, f02=» > , L Q , L X "R SETIMEC 0 , ( P A ( Y $ W B , ( Y $W X "Z X A ( Y r , ( $_. Y $ @ T A A , ( ; X $P y $ Y $ (P 0 , ( [
0x3dfda0…3dff34 (6, 66) Dummy {f00=0x0138, f01=0x0190, f02=» , ( &_2 &_$ * (P _ ) 1 4 , ( A A A A A W 4 , ( > . d , ( ] ] a 4 , ( 9 ( X A _< ( A , ( U 4 A
0x3dff34…3e00c8 Dummy {f00=0x0138, f01=0x0190, f02=» ! ] " P ] , ( 8 . A A ! ! T $ , ( A T , ( . ! ! @ T " ! _V ! , ( / ] P = . ! t ! , ( O > ! F ! A P
0x3e00c8…3e025c Dummy {f00=0x0138, f01=0x0190, f02=» & ! ! H A t , ( @ T ! _ ( T , ( _ A C B D , ( @ B A A A A A ! ! t , ( H A _ ! T @ X , ( = ! P ! # T @ T ! _ ! , (
0x3e025c…3e03f0 Dummy {f00=0x0138, f01=0x018e, f02=» , ( @ P @ 8 ! ! A _: , ( ! X8_` A @ @ T 1 4 , ( T P 2P P P @ P X 2P d TEBCDI * & A N 8 H * @ P E X , ( 9 R X P T P C , (
0x3e03f0…3e0584 Dummy {f00=0x0138, f01=0x0190, f02=» , ( D $W ! X T X , ( ! P ! W ! A @ X 4 , ( 0 A A A ! | @ d , ( T @ P ! ! | @ T @ , ( X W @ @ @ @ A , ( @ 9 ! | @ T _>
0x3e0584…3e0718 Dummy {f00=0x0138, f01=0x0190, f02=» T _2 _6 @ A A , ( @ X ! XD Y _N "P $ , ( -P L _ 4 A A H * T * & E A A 4 @ P X R X , ( " T X *P < , ( + A A 4 @ @
0x3e0718…3e08ac Dummy {f00=0x0138, f01=0x018e, f02=» P _F @ r , ( @ E ! P ! 4 _" , ( ! 0_p / A T W ,W @ A B , ( A W W W A A ! r , ( @ ! @ ! ! ! ! , ( ) 4 ! ! @ @ A @ , ( I
0x3e08ac…3e0a40 Dummy {f00=0x0138, f01=0x018e, f02=» , ( T 0 ! W R ! A @ , ( @ U Z` Q P Q T 0 4 , ( ! A 0 ! A ! " ! d , ( " ! A _ A A ! , ( ' ! % ! R ! ! < ! , ( G @ 0 ! P
0x3e0a40…3e0bd4 (6, 67) Dummy {f00=0x0138, f01=0x018e, f02=» f , ( 2B 4B A J P 4 @ ,T B 4 IH1501 8 INTSAV L , ( B J 4 A . ? J T A T 2 ^ , ( P ! H A A ] IH1502 , ( 4 ! A . ? 4J "#T , (
0x3e0bd4…3e0d68 Dummy {f00=0x0138, f01=0x0190, f02=» , ( u T ! W " P H *B P ! , ( B X _ _8 ! ! 1 4 DC15ON d , ( @ 4 ? "P Y X _ x , ( A @ T 8 A , ( A A A <a :a# P , (
0x3e0d68…3e0efc Dummy {f00=0x0138, f01=0x0190, f02=» )] :f"? H ! "? H ! 4 ABC , ( )} DEFGHI[.<(+!&JKLMNOPQR]$*);^-/ST 0 DW1500 ) ` , ( ) UVWXYZ|,%_>?0123456789:#@'=" t , ( ) ) *1
0x3e0efc…3e1090 Dummy {f00=0x0138, f01=0x0190, f02=» D P> H D !] V P P )P( -R^ 9 t CP YP g > H D ! k y*T {P *T *T )V V T W +P 5 H D ! 9*T ;T ? 8 K QP4 UT Y t oP w t T
0x3e1090…3e1224 Dummy {f00=0x0138, f01=0x0190, f02=»W W W W W Q R P n H D ! m W> W6 ' +*. /T 3*0 7*. AP M Q N WP _ * H D ! ~ c N iP *N P *N P *J *J P W v H D ! ) # 8 5*T E*T O X U*L [*L e) i m*0 oP s { *L P *L
0x3e1224…3e13b8 Dummy {f00=0x0138, f01=0x018e, f02=» M U ] Z H D ! c*: iP oP, s w*0 yT( }PV T4 RD PB W8 *0 P *J P H D ! *0 *N T T *@ *. X *B *D *F *4 *6 * #*0 b H D ! ~ ) -T 1) 5*0 AP E MT Q N ST W ] c*H g q*8 u*0 wP H D ! {*. }P
0x3e13b8…3e154c Dummy {f00=0x0138, f01=0x0190, f02=» H D ! / N 1P ;R. AP GT" wP V W* T P W T P W H D ! k *2 *, *8 *. *: *0 T *2 P *0 T *2 W` *. #*6 P H D ! Z +*H /*B 3*F ?*0 AT G MT Q*: SP W cT, g*: m*4 oP u*6 wT0 H D ! { *8 *: *0 *4 T
0x3e154c…3e16e0 Dummy {f00=0x0138, f01=0x0190, f02=» wPP }P P4 *F *F P N *F & P & *: H D ! T W W *P *Q W W W *P *Q v *P *Q < H D ! { # ' - v 3 l 9*B =*F A*H G*F IT* O S*. Y ]*8 _P e m) H D !E< qW }*8 P4 R W, T W R *F
0x3e16e0…3e1874 (6, 68) Dummy {f00=0x0138, f01=0x411e, f02=» } l T *V *V P l H D !' T T* *< T P *V *R T *V P6 R" 'W, /P 3*V ( H D ! 5P 7W =P GP Q X aP eP i*R o*> qP wT { W P P t D @ ) P *V *T T " P -*< =*<)e)x)q)x) .
0x3e1874…3e1a08 Dummy {f00=0x0138, f01=0x4128, f02=» J F IDENT DW1501 REL 11.0 81-03-27 870105041100 DW1501K R DW1501K d DC15AD x , ( DC , ( ? @ B
0x3e1a08…3e1b9c Dummy {f00=0x0138, f01=0x2008, f02=» L = FIX0 DATE = 811023 6876PACK NBR = 0000 < 8 8 @ O ~
0x3e1b9c…3e1d30 Dummy {f00=0x0138, f01=0x0190, f02=» BRANCH ON INDEX IN TABLE 8 & PRQOPTB DATA RQOP20 CLOSED/INACTIVE 9 " " P DATA RQOP15 OPEN IN PROGRESS 9 L P DATA RQOP10 OPEN 9 r " P DATA RQOP15 CLOSE IN PROGRESS 9 PRQOP10 EQU * 9 2 P CW A1,DTELAD,A7 SAME AS THE ONE WHO OPENED ? 9 P RF(E) RQOP9
0x3e1d30…3e1ec4 Dummy {f00=0x0138, f01=0x0190, f02=»PROGRESS 9 v . P ST A1,DTELAD,A7 SAVE SYMBOLIC DTE ADDRESS : 2 P LDR A2,A7 ADDR TO SELECT AND POLL IN DTE TAB : B 0 P CF A15,GETDNA CONVERT AND VALIDATE DTE ADDR : x P LDR A1,A1 : P RF(NN) RQOP80 OK : P CM DTELAD,A7 CLEAR DTE ADDR : " P CM DTESTA,A
0x3e1ec4…3e2058 Dummy {f00=0x0138, f01=0x0190, f02=»ESS IN EBCDIC : | P LDR A1,A2 ; P ANK A2,/FF ; ( P RF(Z) RQOP30 ONLY ONE BYTE ; < ( P LC A2,TASCII,A2 CONVERT INTO ASCII ; ` P SLL A2,8 ; PRQOP30 EQU * ; P ECR A1,A1 ; P ANK A1,/FF ; P LC A2,TASCII,A1 ; * P STR A2,A7 SAVE ASCII VA
0x3e2058…3e21ec Dummy {f00=0x0138, f01=0x0190, f02=»ON ? ; n P ABL(NZ) RTOK YES RETURN OK < * P ABL RTPHYC RETURN PHYSICAL CONNECTION < 0 P EJECT < ^ P* < l P* CLOSE REQUEST < v P* < P* ACTIVATION PARAMETERS: < " P* OPTION /00 = UNCONDITIONAL < P* /80 = CONDITIONAL < P* FUNCTIONS:
0x3e21ec…3e2380 Dummy {f00=0x0138, f01=0x0190, f02=»SCONNECT ALL DWT:S < v P* = PRQCLOS EQU * = $ ( P LD A5,DWTOR,A6 GET OPTION AND ORDER = 8 , P LD A2,ECBCW2,A8 GET SYMBOLIC DTE - ADDR = d P RF(Z) RQCL20 = " P CW A2,DTELAD,A7 CORRECT DTE ? = ( P ABL(NE) RTREQ RETURN: REQUEST ERROR = PRQCL20 EQU *
0x3e2380…3e2514 (6, 69) Dummy {f00=0x0139, f01=0x018e, f02=» f , ( 2B 4B A J P 4 @ ,T B 4 IH1501 8 INTSAV L , ( B J 4 A . ? J T A T 2 ^ , ( P ! H A A ] IH1502 , ( 4 ! A . ? 4J "#T , (
0x3e2514…3e26a8 Dummy {f00=0x0139, f01=0x0190, f02=» , ( u T ! W " P H *B P ! , ( B X _ _8 ! ! 1 4 DC15ON d , ( @ 4 ? "P Y X _ x , ( A @ T 8 A , ( A A A <a :a# P , (
0x3e26a8…3e283c Dummy {f00=0x0139, f01=0x0190, f02=» )] :f"? H ! "? H ! 4 ABC , ( )} DEFGHI[.<(+!&JKLMNOPQR]$*);^-/ST 0 DW1500 ) ` , ( ) UVWXYZ|,%_>?0123456789:#@'=" t , ( ) ) *1
0x3e283c…3e29d0 Dummy {f00=0x0139, f01=0x0190, f02=» D P> H D !] V P P )P( -R^ 9 t CP YP g > H D ! k y*T {P *T *T )V V T W +P 5 H D ! 9*T ;T ? 8 K QP4 UT Y t oP w t T
0x3e29d0…3e2b64 Dummy {f00=0x0139, f01=0x0190, f02=»W W W W W Q R P n H D ! m W> W6 ' +*. /T 3*0 7*. AP M Q N WP _ * H D ! ~ c N iP *N P *N P *J *J P W v H D ! ) # 8 5*T E*T O X U*L [*L e) i m*0 oP s { *L P *L
0x3e2b64…3e2cf8 Dummy {f00=0x0139, f01=0x018e, f02=» M U ] Z H D ! c*: iP oP, s w*0 yT( }PV T4 RD PB W8 *0 P *J P H D ! *0 *N T T *@ *. X *B *D *F *4 *6 * #*0 b H D ! ~ ) -T 1) 5*0 AP E MT Q N ST W ] c*H g q*8 u*0 wP H D ! {*. }P
0x3e2cf8…3e2e8c Dummy {f00=0x0139, f01=0x0190, f02=» H D ! / N 1P ;R. AP GT" wP V W* T P W T P W H D ! k *2 *, *8 *. *: *0 T *2 P *0 T *2 W` *. #*6 P H D ! Z +*H /*B 3*F ?*0 AT G MT Q*: SP W cT, g*: m*4 oP u*6 wT0 H D ! { *8 *: *0 *4 T
0x3e2e8c…3e3020 Dummy {f00=0x0139, f01=0x0190, f02=» wPP }P P4 *F *F P N *F & P & *: H D ! T W W *P *Q W W W *P *Q v *P *Q < H D ! { # ' - v 3 l 9*B =*F A*H G*F IT* O S*. Y ]*8 _P e m) H D !E< qW }*8 P4 R W, T W R *F
0x3e3020…3e31b4 (6, 70) Opaque[0x194]
0x3e31b4…3e3348 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2728, f03=0x0000}
0x3e31b4…3e3348 IdxSect {
0x3e31b4…3e3348 f00 = 0x0139 // 0x3e31b4 @0x0
0x3e31b4…3e3348 f01 = 0x0002 // 0x3e31b6 @0x2
0x3e31b4…3e3348 gno = [ // 0x3e31b8 @0x4
0x3e31b4…3e3348 [0x00]: C0x0139.0x1.0
0x3e31b4…3e3348 ]
0x3e31b4…3e3348 }
0x3e3348…3e34dc Dummy {f00=0x0139, f01=0x0190, f02=» 0 P IDENT DW1501 REL 11.0 81-03-27 870105041100 P 8 P =1, ECBCW2 MISSING @ P REL 11.0 81-01-26 ^ P* z : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER TO A
0x3e34dc…3e3670 Dummy {f00=0x0139, f01=0x0190, f02=»0 STATUS./8000 MEANS DEVICE READY P DATA 0 ECB-ADDRESS * P DATA DWTEND-DW1501 F P RIGHT BYTE=ORDER b * P DATA DC15AD POINTER TO ADDRESS-BLOCK ~ P DATA 'DC' TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUE
0x3e3670…3e3804 Dummy {f00=0x0139, f01=0x0190, f02=»A 0 OFFSET TO STATISTIC BUFFER & P DATA 0 CONFIG CHAIN LINK HEAD DWT & & P DATA 0 CONFIG CHAIN LINK NEXT DWT P & P DATA 0 LOCAL SYMBOLIC DTE ADDRESS z ( P DATA 0 REMOTE SYMBOLIC DTE ADDRESS P DATA 0 SYMBOLIC SUBADDRESS P DATA 0 REQUEST CONT
0x3e3804…3e3998 Dummy {f00=0x0139, f01=0x417c, f02=»WT b * P DATA 0 O/P DATA Q NORMAL LINK NXT DWT & P DATA 0 I/P DATA Q LINK TO BUFFER 8 " P DATA 0 I/P DATA TIMER POINTER b P DATA 0 CURSOR ADDRESS " P DATA 0 DEVICE BUFFER ADDRESS P DATA 0 DWT STATUS P* P IFT MMUPAG=1 PDC
0x3e3998…3e3b2c Dummy {f00=0x0139, f01=0x2008, f02=» R ( P DATA DCAD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P DATA 0,0 SAVE ARE
0x3e3b2c…3e3cc0 Dummy {f00=0x0139, f01=0x018e, f02=» > , L Q , L X "R SETIMEC 0 , ( P A ( Y $ W B , ( Y $W X "Z X A ( Y r , ( $_. Y $ @ T A A , ( ; X $P y $ Y $ (P 0 , ( [
0x3e3cc0…3e3e54 (6, 71) Opaque[0x194]
0x3e3e54…3e3fe8 # DirEnt {nam=»CD1500«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2730, f03=0x0000}
0x3e3e54…3e3fe8 IdxSect {
0x3e3e54…3e3fe8 f00 = 0x0139 // 0x3e3e54 @0x0
0x3e3e54…3e3fe8 f01 = 0x0002 // 0x3e3e56 @0x2
0x3e3e54…3e3fe8 gno = [ // 0x3e3e58 @0x4
0x3e3e54…3e3fe8 [0x00]: C0x0139.0x2.0
0x3e3e54…3e3fe8 ]
0x3e3e54…3e3fe8 }
0x3e3fe8…3e417c Dummy {f00=0x0139, f01=0x00b6, f02=» LED XXDW15 !!RE 0,$$01-26$$03-27$$ !!IL 1 6 =1, ECBCW2 MISSING D REL 11.0 81-01-26 b !!DL 45 ~ DATA 0,0,0,0,0,0,0 =1 !!EN
0x3e417c…3e4310 Dummy {f00=0x0139, f01=0x2008, f02=» XXDW15 !!RE 0,$$01-26$$03-27$$ !!IL 1 6 =1, ECBCW2 MISSING D REL 11.0 81-01-26 b !!DL 45 ~ DATA 0,0,0,0,0,0,0 =1 !!EN
0x3e4310…3e44a4 Dummy {f00=0x0139, f01=0x0190, f02=»......... P* +18 . DWTRTP . P* ................... 4 P* +20 . DWTOPE . V P* ................... x P* +22 . DWTOPN . P* ................... P* +24 . DWTIPC . P* ..
0x3e44a4…3e4638 Dummy {f00=0x0139, f01=0x0190, f02=» DRIVER DEPEND / P* / / P* / / < P* ................... ^ 8 P* . STATISTIC . IF STAT AND DWTSTB /=0 P* / BUFFER / P* ................... P*
0x3e4638…3e47cc Dummy {f00=0x0139, f01=0x0190, f02=» n P* > P********************************************************* P* T PDWTTQ EQU /0E TERMINAL QUEUE ^ P IFT MMUPAG=0 6 PDWTDRD EQU DWTTQ+2 START OF DRIVER DEPENDENT AREA P XIF P IFT MMUPAG=1 6 PDWTDRD EQU DWTTQ+6 S
0x3e47cc…3e4960 Dummy {f00=0x0139, f01=0x0190, f02=»DRD+2 CONFIG CHAIN LINK HEAD DWT 2 PDWTCHN EQU DWTDRD+4 CONFIG CHAIN LINK NEXT DWT ( 2 PDWTLAD EQU DWTDRD+6 LOCAL SYMBOLIC DTE ADDRESS ^ 4 PDWTRAD EQU DWTDRD+8 REMOTE SYMBOLIC DTE ADDRESS * PDWTDR1 EQU DWTDRD+10 DRIVER DEP WORD 1 * PDWTSUB EQU DWT
0x3e4960…3e4af4 (6, 72) Opaque[0x194]
0x3e4af4…3e4c88 # DirEnt {nam=»CR1501«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2738, f03=0x0000}
0x3e4af4…3e4c88 IdxSect {
0x3e4af4…3e4c88 f00 = 0x0139 // 0x3e4af4 @0x0
0x3e4af4…3e4c88 f01 = 0x0004 // 0x3e4af6 @0x2
0x3e4af4…3e4c88 gno = [ // 0x3e4af8 @0x4
0x3e4af4…3e4c88 [0x00]: C0x0139.0x3.0
0x3e4af4…3e4c88 [0x01]: C0x013a.0x0.0
0x3e4af4…3e4c88 ]
0x3e4af4…3e4c88 }
0x3e4c88…3e4e1c Dummy {f00=0x0139, f01=0x0190, f02=» PLED XXXX15 P!!RE 0,$$01-26$$04-07$$ !!IL 1 6 ( P =6, ERROR IN POLL TIMER HANDLING D $ P =5, WRONG STATISTIC HANDLING p P REL 11.0 81-03-27 P =4, ERROR IN POWER UP ( P =3, DELETE INSTRUCTIONS NOT USED $ =2, C
0x3e4e1c…3e4fb0 Dummy {f00=0x0139, f01=0x0190, f02=»DL 417 2 PTYPRR EQU /4343 RESET STATISTICS AFTER READ =5 !!DL 720 D =1 T !!DL 784,785 b =1 v !!DL 788 =1 . P RF(Z) RQCL92 REQUEST ALREADY COMPLETED =1 P LDK A1,0 RC=0 =1 , P CF A15,TENDIO COMPLETE CL
0x3e4fb0…3e5144 Dummy {f00=0x0139, f01=0x0190, f02=»F A5,CHALTO HALT O/P DEVICE =1 LDK A2,0 =1 & ( # CIO A2,1,LCUIN DISCONNECT MODEM =1 < P XIF =1 h P IFT P6805=1 =1 z " P LDK A2,1 DISCONNECT ORDER =1 ( P CIO A2,0,LCUIN DISCONNECT MODEM =1 P XIF =1 & ! CMR A7 REMOVE NET
0x3e5144…3e52d8 Dummy {f00=0x0139, f01=0x0190, f02=» CM* DCTPGP KILL TIMER =6 P CM DCTPGP CLEAR POINTER =6 " PRQCL94 EQU * =6 F , P CM DTEDLS,A7 INDICATE DATA LINK DOWN =6 ^ ABL TDISP =1 !!RE 799,$$LEFT$$RIGHT$$ P!!DL 906 , P RF(NZ) RQCN70 TIMER ALREADY STARTED =6 !!DL
0x3e52d8…3e546c Dummy {f00=0x0139, f01=0x0190, f02=» =1 LDKL A5,STB =1 " CF A5,CSYNCI CONNECT MODEM =1 . * P CF A5,CHALTI NO INTERRUPTS ALLOWED =1 T ABL TDISP =1 P!!DL 1608 $ P IM DTESTA,A7 SET OPEN STATUS =1 LDKL A5,STB =1 * P CF A5,CSYNCI PUT CU IN ACTIVE
0x3e546c…3e5600 Dummy {f00=0x0139, f01=0x0190, f02=»1 MODEM OK ? =1 RF(Z) DTE:20 YES =1 , P CM DTEPLS,A7 INDICATE PHYSICAL ERROR =1 4 DTE:20 EQU * =1 d " P LDR A1,A2 SET RETURN CODE =1 | * P CF A15,TENDIO COMPLETE THE REQUEST =1 & P CF A15,SPOTIM START POLL TIMER =6 P ABL BRM START
0x3e5600…3e5794 (6, 73) Dummy {f00=0x013a, f01=0x0190, f02=» =2 ~ !!DL 1868,1874 P =2 " !!DL 1882 0 =2 B IFF NOWACK=1 =2 P P!!DL 2851,2853 j =1 !!IL 2867 " P RF(A) CHALTR SST ACCEPTED =1 : P LDK A2,1 INSTRUCTION NOT ACCEPTED, SET MODEM ERR. =1 PCHAL
0x3e5794…3e5928 Dummy {f00=0x013a, f01=0x004e, f02=»!!IL 2907 PCHLT00 EQU * !!DL 3185 & =4 8 !!EN F IFF NOWACK=1 =2 P P!!DL 2851,2853 j =1 !!IL 2867 " P RF(A) CHALTR SST ACCEPTED =1 : P LDK A2,1 INSTRUCTION NOT ACCEPTED, SET MODEM ERR. =1 PCHAL
0x3e5928…3e5abc Dummy {f00=0x013a, f01=0x2008, f02=» 7 PCHLT00 EQU * !!DL 3185 & =4 8 !!EN F IFF NOWACK=1 =2 P P!!DL 2851,2853 j =1 !!IL 2867 " P RF(A) CHALTR SST ACCEPTED =1 : P LDK A2,1 INSTRUCTION NOT ACCEPTED, SET MODEM ERR. =1 PCHAL
0x3e5abc…3e5c50 Dummy {f00=0x013a, f01=0x0190, f02=»....... ~ P* 10 . DTETAB . P* ................... 2 P* 12 . DTEWAT . T P* ................... v P* 14 . DTETQ . P* ................... , P* (16). DTEUEC . IF MMUPAG
0x3e5c50…3e5de4 Dummy {f00=0x013a, f01=0x0190, f02=»DTESTB . $ P* ................... P* +4 . DTECHD . @ P* ................... b P* +6 . DTECHN . P* ................... P* +8 . DTELAD . P* ...................
0x3e5de4…3e5f78 Dummy {f00=0x013a, f01=0x0190, f02=» P* ................... 8 P* . STATISTIC . IF STAT AND DTESTB /=0 & P* / BUFFER / b P* ................... P* PDTETQ EQU 14 PDTEUEC EQU DTETQ+2 PDTEMEC EQU DTEUEC+2 P P * IFT
0x3e5f78…3e610c Dummy {f00=0x013a, f01=0x0190, f02=»OF DC DEPENDENT AREA v P * XIF D PDTESTB EQU DTEDRD OFFSET REL START DTE TO STATISTIC BUFF IF ANY * 2 PDTECHD EQU DTEDRD+2 CONFIG CHAIN LINK HEAD DTE r 2 PDTECHN EQU DTEDRD+4 CONFIG CHAIN LINK NEXT DTE 2 PDTELAD EQU DTEDRD+6 LOCAL SYMBOLIC DTE ADD
0x3e610c…3e62a0 Dummy {f00=0x013a, f01=0x0190, f02=»TA EQU DTEDRD+12 DTE STATUS ( PDTEDWT EQU DTEDRD+14 CHAIN LINK DWT $ 0 PDTEDDT EQU DTEDRD+16 CHAIN LINK DISCARD DWT P P* STATITICS BUFFER 2 PSTWSID EQU DTEDRD+18 RESERVED FOR SYMBOLIC ID . PSTWCST EQU DTEDRD+20 COUNTER STATUS INDEX * PST
0x3e62a0…3e6434 (6, 74) Opaque[0x194]
0x3e6434…3e65c8 # DirEnt {nam=»CR1502«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2748, f03=0x0000}
0x3e6434…3e65c8 IdxSect {
0x3e6434…3e65c8 f00 = 0x013a // 0x3e6434 @0x0
0x3e6434…3e65c8 f01 = 0x0004 // 0x3e6436 @0x2
0x3e6434…3e65c8 gno = [ // 0x3e6438 @0x4
0x3e6434…3e65c8 [0x00]: C0x013a.0x1.0
0x3e6434…3e65c8 [0x01]: C0x013a.0x2.0
0x3e6434…3e65c8 ]
0x3e6434…3e65c8 }
0x3e65c8…3e675c Dummy {f00=0x013a, f01=0x0190, f02=» PLED XXXX15 P!!RE 0,$$01-26$$04-15$$ !!IL 1 6 " P =8, ODD USER BUFFER ADDRESS D P =7, BINARY STORE PROBLEM j P REL 11.0 81-04-07 ( P =6, ERROR IN POLL TIMER HANDLING $ P =5, WRONG STATISTIC HANDLING P REL 11.
0x3e675c…3e68f0 Dummy {f00=0x013a, f01=0x0190, f02=» =1, ERROR IN OPEN/CLOSE REQUESTS REL 11.0 81-01-26 * !!DL 139 F =2 V P!!DL 417 d 2 PTYPRR EQU /4343 RESET STATISTICS AFTER READ =5 t !!DL 720 =1 !!DL 784,785 =1 !!DL 788 =1 . P
0x3e68f0…3e6a84 Dummy {f00=0x013a, f01=0x0190, f02=» =1 P IFT P6805=0 =1 P LDKL A5,STB =1 $ $ P CF A5,CHALTI HALT I/P DEVICE =1 < $ CF A5,CHALTO HALT O/P DEVICE =1 d LDK A2,0 =1 ( # CIO A2,1,LCUIN DISCONNECT MODEM =1 P XIF =1 P IFT P6805=1 =1 " P LDK A2,1 DISCON
0x3e6a84…3e6c18 Dummy {f00=0x013a, f01=0x0190, f02=»,A7 CLEAR STATUS =1 * P LD A1,DCTPGP POLL TIMER RUNNING ? =6 P RF(Z) RQCL94 NO =6 J P CM* DCTPGP KILL TIMER =6 f P CM DCTPGP CLEAR POINTER =6 PRQCL94 EQU * =6 , P CM DTEDLS,A7 INDICATE DATA LINK DOWN =6 ABL TDISP =1
0x3e6c18…3e6dac Dummy {f00=0x013a, f01=0x0190, f02=»DY STARTED =6 v !!DL 1040,1041 ( # ANK A1,/B WACK SENT, DB OR IR ? =2 , P RF(Z) RQST90 NO =2 X !!DL 1332,1333 t =3 !!DL 1598 =1 LDKL A5,STB =1 " CF A5,CSYNCI CONNECT MODEM =1 * P CF A5,CHALTI NO I
0x3e6dac…3e6f40 Dummy {f00=0x013a, f01=0x0190, f02=»A5,CSYNCI PUT CU IN ACTIVE MODE =1 8 P CF A5,CHALTI HALT I/P DEVICE TO GET MODEM STATUS =1 * 0 P IM DTEPLS,A7 PRESET PHYSICAL STATUS = OK =1 f ANK A2,1 MODEM OK ? =1 RF(Z) DTE:20 YES =1 , P CM DTEPLS,A7 INDICATE PHYSICAL ERROR =1 DT
0x3e6f40…3e70d4 (6, 75) Dummy {f00=0x013a, f01=0x0190, f02=»R =6 r P ABL BRM START I/P =1 P!!DL 1864,1866 * =2 @ IFT STARVI=1 =2 N $ ANK A3,/A WACK SENT OR DB ? =2 h P RF(NZ) SEL140 YES =2 !!DL 1868,1874 P =2 !!DL 1882 =2 IFF NOWACK=1 =2
0x3e70d4…3e7268 Dummy {f00=0x013a, f01=0x0168, f02=»53 =1 !!IL 2867 " P RF(A) CHALTR SST ACCEPTED =1 * : P LDK A2,1 INSTRUCTION NOT ACCEPTED, SET MODEM ERR. =1 P PCHALTR EQU * =1 P!!IL 2904 , P LDK A2,1 PRESET STATUS = MODEM ERROR =1 . P RF(NA) CHLT00 INSTRUCTION NOT A
0x3e7268…3e73fc Dummy {f00=0x013a, f01=0x2008, f02=» =1 !!IL 2867 " P RF(A) CHALTR SST ACCEPTED =1 * : P LDK A2,1 INSTRUCTION NOT ACCEPTED, SET MODEM ERR. =1 P PCHALTR EQU * =1 P!!IL 2904 , P LDK A2,1 PRESET STATUS = MODEM ERROR =1 . P RF(NA) CHLT00 INSTRUCTION NOT A
0x3e73fc…3e7590 Dummy {f00=0x013a, f01=0x0190, f02=»! P l IH2301 SAVE8 IH2302 0 * & q @! 4 , D IH2303 r IH2304C IH2305 IH2306 IH2307 IH2308 DC23ON , (
0x3e7590…3e7724 Dummy {f00=0x013a, f01=0x0190, f02=» ] ] ] P , ( _n R 0 B , DEFDTEV , ( ! P , B . 8 , n ECBCW2( , ( ; ] Y J ! ] T B 0 Y , ( Y ] ] Y
0x3e7724…3e78b8 Dummy {f00=0x013a, f01=0x0190, f02=» ! p , ( P 0 ] ! $ X ! P * & ! T B X P % @ , ( $9 D ] ] b ] J n ECBRC , ( ) ! C 2 T ] B Y * & E ] ] " ] ] Y
0x3e78b8…3e7a4c Dummy {f00=0x013a, f01=0x0190, f02=» l , ( @ ! 0 X ! 8 B Y , ( X ] b 8 < , ( @ P X ! 0 Y ] T l , ( ] J ! ! ] , ( / @ ] $ , ( @ K
0x3e7a4c…3e7be0 Dummy {f00=0x013a, f01=0x0190, f02=»_ " X n * & X _" J P $ ' , ( $9 D ] d ! ] bP < GETDSA l , ( @ 6 V X " P P X ~ , ( T C Y ] , ( ] X $ 4 ! P $ ] "
0x3e7be0…3e7d74 (6, 76) Opaque[0x194]
0x3e7d74…3e7f08 # DirEnt {nam=»CR1503«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2758, f03=0x0000}
0x3e7d74…3e7f08 IdxSect {
0x3e7d74…3e7f08 f00 = 0x013a // 0x3e7d74 @0x0
0x3e7d74…3e7f08 f01 = 0x0004 // 0x3e7d76 @0x2
0x3e7d74…3e7f08 gno = [ // 0x3e7d78 @0x4
0x3e7d74…3e7f08 [0x00]: C0x013a.0x3.0
0x3e7d74…3e7f08 [0x01]: C0x013b.0x0.0
0x3e7d74…3e7f08 ]
0x3e7d74…3e7f08 }
0x3e7f08…3e809c Dummy {f00=0x013a, f01=0x0190, f02=» PLED XXXX15 P!!RE 0,$$01-26$$05-12$$ !!IL 1 6 $ P =11, PROCEDURE TIMER PROBLEM D P =10, EOT ON SPECIFIC POLL l $ P =9, REMAINING TIME IN ECBCW1 P REL 11.0 81-04-12 " P =8, ODD USER BUFFER ADDRESS P =7, BINARY
0x3e809c…3e8230 Dummy {f00=0x013a, f01=0x0190, f02=» REL 11.0 81-03-27 P =4, ERROR IN POWER UP ( P =3, DELETE INSTRUCTIONS NOT USED : $ =2, CHANGES IN STATUS HANLING f ( # =1, ERROR IN OPEN/CLOSE REQUESTS REL 11.0 81-01-26 !!DL 139 =2 P PREMTIM EQU 0
0x3e8230…3e83c4 Dummy {f00=0x013a, f01=0x0190, f02=»EIVE REQUESTS =9 ~ P!!DL 417 2 PTYPRR EQU /4343 RESET STATISTICS AFTER READ =5 ( !!DL 720 ^ =1 n !!DL 784,785 | =1 !!DL 788 =1 . P RF(Z) RQCL92 REQUEST ALREADY COMPLETED =1 P LDK A1,0 RC=0 =1 , P
0x3e83c4…3e8558 Dummy {f00=0x013a, f01=0x0190, f02=»LT I/P DEVICE =1 $ CF A5,CHALTO HALT O/P DEVICE =1 LDK A2,0 =1 @ ( # CIO A2,1,LCUIN DISCONNECT MODEM =1 V P XIF =1 P IFT P6805=1 =1 " P LDK A2,1 DISCONNECT ORDER =1 ( P CIO A2,0,LCUIN DISCONNECT MODEM =1 P XIF =1
0x3e8558…3e86ec Dummy {f00=0x013a, f01=0x0190, f02=»F(Z) RQCL94 NO =6 P CM* DCTPGP KILL TIMER =6 P CM DCTPGP CLEAR POINTER =6 < PRQCL94 EQU * =6 ` , P CM DTEDLS,A7 INDICATE DATA LINK DOWN =6 x ABL TDISP =1 !!RE 799,$$LEFT$$RIGHT$$ P!!DL 843 ( P LC A2,1,A4 GET SYMBOLIC A
0x3e86ec…3e8880 Dummy {f00=0x013a, f01=0x0190, f02=» =2 p P RF(Z) RQST90 NO =2 P!!IL 1180 ( P IFT REMTIM=1 =9 : 4 P LD A1,DWTRTV,A6 GET REQUESTED TIMEOUT VALUE =9 T 0 P ST A1,ECBCW1,A8 STORE IN CONTROL WORD 1 =9 P XIF =9 P!!DL 1330 P IFT REMTIM=1 =9 P LDR* A2,A
0x3e8880…3e8a14 (6, 77) Dummy {f00=0x013b, f01=0x0190, f02=» !!DL 1598 =1 LDKL A5,STB =1 ( " CF A5,CSYNCI CONNECT MODEM =1 @ * P CF A5,CHALTI NO INTERRUPTS ALLOWED =1 f ABL TDISP =1 P!!DL 1608 $ P IM DTESTA,A7 SET OPEN STATUS =1 LDKL A5,STB =1 * P CF A5,CSYNC
0x3e8a14…3e8ba8 Dummy {f00=0x013b, f01=0x0190, f02=»=1 f ANK A2,1 MODEM OK ? =1 RF(Z) DTE:20 YES =1 * , P CM DTEPLS,A7 INDICATE PHYSICAL ERROR =1 F DTE:20 EQU * =1 v " P LDR A1,A2 SET RETURN CODE =1 * P CF A15,TENDIO COMPLETE THE REQUEST =1 & P CF A15,SPOTIM START POLL TIMER =6
0x3e8ba8…3e8d3c Dummy {f00=0x013b, f01=0x0190, f02=» RF(Z) POL150 REQ. DEV. NOT CONNECTED, SEND EOT =10 P!!DL 1780 < P* =11 N PPOL100 EQU * ^ * P CF A5,HPTIM KILL PROCEDURE TIMER =11 r P CF A5,TRENQ SEND ENQ P!!DL 1864,1866 =2 IFT STARVI=1 =2 $ ANK A3,/A W
0x3e8d3c…3e8ed0 Dummy {f00=0x013b, f01=0x0190, f02=»K=1 =2 P!!IL 2026 P IFT REMTIM=1 =9 " P!!IL 2027 < P XIF =9 N P!!IL 2316 ` P IFT REMTIM=1 =9 r P!!IL 2317 P XIF =9 P!!DL 2424 P SCR A1,A4 =7 P!!IL 2426 P LCR A1,A4 =7 P!!DL 242
0x3e8ed0…3e9064 Dummy {f00=0x013b, f01=0x010c, f02=»STRUCTION NOT ACCEPTED, SET MODEM ERR. =1 PCHALTR EQU * =1 2 P!!IL 2904 J , P LDK A2,1 PRESET STATUS = MODEM ERROR =1 . P RF(NA) CHLT00 INSTRUCTION NOT ACCEPTED =1 P!!IL 2907 PCHLT00 EQU * !!DL 3185 =4 !!EN
0x3e9064…3e91f8 Dummy {f00=0x013b, f01=0x2008, f02=» N NOT ACCEPTED, SET MODEM ERR. =1 PCHALTR EQU * =1 2 P!!IL 2904 J , P LDK A2,1 PRESET STATUS = MODEM ERROR =1 . P RF(NA) CHLT00 INSTRUCTION NOT ACCEPTED =1 P!!IL 2907 PCHLT00 EQU * !!DL 3185 =4 !!EN
0x3e91f8…3e938c Dummy {f00=0x013b, f01=0x0190, f02=»A NETWORK SUB-ADDRESS * 6 P* GETSSA : TRANSLATES A SYMBOLIC DTE ADDRESS AND A ( > :* NETWORK SUB-ADDRESS INTO A SYMBOLIC SUB-ADDRESS b * @ ;* GETSST : TRANSLATES A SYMBOLIC DTE ADDRESS OF A SPECIFIED > 9* TYPE AND A
0x3e938c…3e9520 Dummy {f00=0x013b, f01=0x0190, f02=»MBERS IN THE =1 H P* DC DTE-TABLE POINTED TO BY S C T D C T (AKAN) =1 P* =1 d > :********************************************************** r * EJECT * * ENTRIES * ENTRY FNDDNA
0x3e9520…3e96b4 (6, 78) Opaque[0x194]
0x3e96b4…3e9848 # DirEnt {nam=»CR1504«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2768, f03=0x0000}
0x3e96b4…3e9848 IdxSect {
0x3e96b4…3e9848 f00 = 0x013b // 0x3e96b4 @0x0
0x3e96b4…3e9848 f01 = 0x0006 // 0x3e96b6 @0x2
0x3e96b4…3e9848 gno = [ // 0x3e96b8 @0x4
0x3e96b4…3e9848 [0x00]: C0x013b.0x1.0
0x3e96b4…3e9848 [0x01]: C0x013b.0x2.0
0x3e96b4…3e9848 [0x02]: C0x013b.0x3.0
0x3e96b4…3e9848 ]
0x3e96b4…3e9848 }
0x3e9848…3e99dc Dummy {f00=0x013b, f01=0x0190, f02=» PLED XXXX15 P!!RE 0,$$01-26$$05-21$$ !!IL 1 6 * P =13, ERRONEOUS DISCARD DWT HANDLING D 0 P =12, SUB-ADDR IN CW2 AT RECEIVE REQ COMPL r P REL 11.0 81-05-12 $ P =11, PROCEDURE TIMER PROBLEM P =10, EOT ON SPECIFIC POLL
0x3e99dc…3e9b70 Dummy {f00=0x013b, f01=0x018e, f02=»LEM x P REL 11.0 81-04-07 ( P =6, ERROR IN POLL TIMER HANDLING ( $ P =5, WRONG STATISTIC HANDLING T P REL 11.0 81-03-27 | P =4, ERROR IN POWER UP ( P =3, DELETE INSTRUCTIONS NOT USED $ =2, CHANGES IN STATUS HANLING
0x3e9b70…3e9d04 Dummy {f00=0x013b, f01=0x0190, f02=» 2 P IF = 1 THE REMAINING TIME UNTIL TIMEOUT =9 0 P IS DELIVERED IN ECBCW1 AT COMPLETION =9 : & P OF SEND AND RECEIVE REQUESTS =9 n P!!DL 417 2 PTYPRR EQU /4343 RESET STATISTICS AFTER READ =5 !!DL 720 =1 !!DL 784,785
0x3e9d04…3e9e98 Dummy {f00=0x013b, f01=0x0190, f02=»TENDIO COMPLETE CLOSE REQUEST =1 PRQCL92 EQU * =1 ( P IFT P6805=0 =1 @ P LDKL A5,STB =1 X $ P CF A5,CHALTI HALT I/P DEVICE =1 p $ CF A5,CHALTO HALT O/P DEVICE =1 LDK A2,0 =1 ( # CIO A2,1,LCUIN DISCONNECT MODEM =1 P XIF
0x3e9e98…3ea02c Dummy {f00=0x013b, f01=0x0190, f02=» CMR A7 REMOVE NETWORK ADDRESS =1 " P CM DTESTA,A7 CLEAR STATUS =1 * * P LD A1,DCTPGP POLL TIMER RUNNING ? =6 P P RF(Z) RQCL94 NO =6 ~ P CM* DCTPGP KILL TIMER =6 P CM DCTPGP CLEAR POINTER =6 PRQCL94 EQU * =6 , P CM DTEDLS,A7 IN
0x3ea02c…3ea1c0 Dummy {f00=0x013b, f01=0x0190, f02=»/40 OPTION CODE =13 & P CC A2,DWTOPT,A6 DISCARD DWT ? =13 P RF(NE) RQCN10 NO =13 F * P CM DWTCHP,A6 INDICATE DISCARD DWT =13 d 0 P LD A1,DTEDDT,A7 POINTER TO DISCARD DWT =13 0 P RF(NZ) RQCN50 MORE THAN ONE DISC. DWT ? =13 8 P ST A6,DTEDDT,
0x3ea1c0…3ea354 (6, 79) Dummy {f00=0x013b, f01=0x0190, f02=»,1,A4 GET SYMBOLIC ADDRESS =8 P!!DL 865,873 & P =13 : P!!DL 891,896 J P =13 ^ P!!IL 897 n & P LD A1,DWTCHP,A6 DISCARD DWT ? =13 ~ * P RF(Z) RQCN65 YES, DO NOT SEND DE =13 P!!IL 900 PRQCN65 EQU * =13 P!!DL 906
0x3ea354…3ea4e8 Dummy {f00=0x013b, f01=0x0190, f02=»NO =2 P!!IL 1180 P IFT REMTIM=1 =9 4 P LD A1,DWTRTV,A6 GET REQUESTED TIMEOUT VALUE =9 : 0 P ST A1,ECBCW1,A8 STORE IN CONTROL WORD 1 =9 r P XIF =9 P!!DL 1330 P IFT REMTIM=1 =9 P LDR* A2,A2 =9 $ P NGR A2,A2 G
0x3ea4e8…3ea67c Dummy {f00=0x013b, f01=0x0190, f02=» =1 LDKL A5,STB =1 " CF A5,CSYNCI CONNECT MODEM =1 & * P CF A5,CHALTI NO INTERRUPTS ALLOWED =1 L ABL TDISP =1 z P!!DL 1608 $ P IM DTESTA,A7 SET OPEN STATUS =1 LDKL A5,STB =1 * P CF A5,CSYNCI PUT CU IN ACTIVE MODE =1
0x3ea67c…3ea810 Dummy {f00=0x013b, f01=0x0190, f02=»OK ? =1 RF(Z) DTE:20 YES =1 , P CM DTEPLS,A7 INDICATE PHYSICAL ERROR =1 , DTE:20 EQU * =1 " P LDR A1,A2 SET RETURN CODE =1 t * P CF A15,TENDIO COMPLETE THE REQUEST =1 & P CF A15,SPOTIM START POLL TIMER =6 P ABL BRM START I/P =1
0x3ea810…3ea9a4 Dummy {f00=0x013b, f01=0x0190, f02=»T CONNECTED, SEND EOT =10 v P!!DL 1780 " P =11 4 PPOL100 EQU * D * P CF A5,HPTIM KILL PROCEDURE TIMER =11 X P CF A5,TRENQ SEND ENQ P!!DL 1864,1866 =2 IFT STARVI=1 =2 $ ANK A3,/A WACK SENT OR DB ? =2
0x3ea9a4…3eab38 Dummy {f00=0x013b, f01=0x0190, f02=» P =12 P!!IL 2025 . P LD A1,DWTLAD,A6 SYMBOLIC DTE ADDRESS =12 * ( P LD A2,4,A4 NETWORK SUB-ADDRESS =12 0 P CF A15,GETSSA GET SYMBOLIC SUB ADDRESS =12 , P ST A1,ECBCW2,A8 AND SAVE IT IN ECB =12 $ P LDK A1,0 RESET RETURN CODE
0x3eab38…3eaccc Dummy {f00=0x013b, f01=0x0190, f02=»316 P IFT REMTIM=1 =9 P!!IL 2317 & P XIF =9 8 P!!DL 2424 J P SCR A1,A4 =7 P!!IL 2426 r P LCR A1,A4 =7 P!!DL 2428 P ORR A2,A1 =7 P!!DL 2851,2853 =1 !!IL 2867 " P RF(A) CHALTR SS
0x3eaccc…3eae60 Dummy {f00=0x013b, f01=0x00cc, f02=»PRESET STATUS = MODEM ERROR =1 . P RF(NA) CHLT00 INSTRUCTION NOT ACCEPTED =1 & P!!IL 2907 X PCHLT00 EQU * j !!DL 3185 ~ =4 P!!DL 3186,3192 P =13 !!EN 2853 =1 !!IL 2867 " P RF(A) CHALTR SS
0x3eae60…3eaff4 (6, 80) Dummy {f00=0x013b, f01=0x2008, f02=»
0x3eaff4…3eb188 Dummy {f00=0x013b, f01=0x0190, f02=»* 6 h P* 7 P* MAIN ABORT ENTRY 7 P* 7 . . P***************************************** 7 8 P* 7 j PABORT EQU * . 7 t $ P LDK A5,DWTSTB SET A5 STACK BASE 7 & P ADR A5,A6 IN CASE IT WILL BE USED 7 4 P LD A1,DWTABT,A6 AN EARLIER ABORT IN PROGRES
0x3eb188…3eb31c Dummy {f00=0x013b, f01=0x0190, f02=»,A6 INDICATE ABORT ISSUED 7 . P ABL JUMP BRANCH TO CORRECT ABORT HANDLER 8 " P EJECT 8 T 4 P*********************************************** 8 b P* 8 P* REQUEST COMPLETION PART 8 P* 8 4 P*********************************************** 8 P
0x3eb31c…3eb4b0 Dummy {f00=0x013b, f01=0x0190, f02=» ERROR 8 | P* 9 PCONERR EQU * 9 P LDK A1,R:CERR 9 , P RF CMPLT 9 B P* 9 T P* BUFFER LENGTH DISAGREMENT 9 ^ P* 9 PLENERR EQU * 9 P LDK A1,R:LERR 9 P RF CMPLT 9 P* 9 P* SEQUENCE ERROR 9 P* 9 PSEQERR EQU * 9 P
0x3eb4b0…3eb644 Dummy {f00=0x013b, f01=0x018e, f02=» P RF CMPLT : P EJECT : P* : $ $ P* BLOCK ENDED WITH ETB RECEIVED : . P* : V PETBRTN EQU * : ` P LDKL A1,R:ETB : t P RF CMPLT : P* : P* EOT RECEIVED : P* : PEOTRTN EQU * : P LDKL A1,R:EOT : P RF CMPLT : P* :
0x3eb644…3eb7d8 Dummy {f00=0x013b, f01=0x0190, f02=» : P* REQUEST ERROR ; P* ; PREQERR EQU * ; * P LDKL A1,R:RERR ; > P RF CMPLT ; V P* ; h $ P* REQUEST COMPLETED SUCCESSFULLY ; r P* ; PRTN:OK EQU * ; P LDK A1,R:OK ; PCMPLT EQU * ; P ABL DISEND TENDIO+DISPATCH ; P EJE
0x3eb7d8…3eb96c Dummy {f00=0x013b, f01=0x0190, f02=»EST ; f P* < F P****************************************************************** < P* < ` PSETTIM EQU * < j & P LD A1,ECBCW1,A8 GET TIMEOUT VALUE < ~ P ST A1,DWTTIM,A6 SAVE IN DWT < $ P RB RTN:OK COMPLETE THE REQUEST < P EJECT < @ P******
0x3eb96c…3ebb00 Dummy {f00=0x013b, f01=0x0190, f02=»********************************************************** < P* = B PSETST EQU * = L ( P LDR A1,A1 'INITIAL CONTROL' MODE ? = ` " P RB(NZ) SEQERR NO, WRONG MODE = : P LD A1,ECBCW1,A8 GET CONNECTION TYPE (SWITCHED/LEASED) = P ST A1,DWTCON,A6 SAVE IN
0x3ebb00…3ebc94 (6, 81) Opaque[0x194]
0x3ebc94…3ebe28 # DirEnt {nam=»CR1505«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2780, f03=0x0000}
0x3ebc94…3ebe28 IdxSect {
0x3ebc94…3ebe28 f00 = 0x013c // 0x3ebc94 @0x0
0x3ebc94…3ebe28 f01 = 0x0006 // 0x3ebc96 @0x2
0x3ebc94…3ebe28 gno = [ // 0x3ebc98 @0x4
0x3ebc94…3ebe28 [0x00]: C0x013c.0x0.0
0x3ebc94…3ebe28 [0x01]: C0x013c.0x1.0
0x3ebc94…3ebe28 [0x02]: C0x013c.0x2.0
0x3ebc94…3ebe28 ]
0x3ebc94…3ebe28 }
0x3ebe28…3ebfbc Dummy {f00=0x013c, f01=0x0190, f02=» PLED XXXX15 P!!RE 0,$$01-26$$09-09$$ !!IL 1 6 " P =17, RETURN CODE AT CONNECT D ( P =16, DLOBUF DESTROYED AT CONNECT j . P =15, NO NEED TO RES 1 WORD BEFORE DATA * P =14, LOSS OF DRIVER RECEIVE BUFFER P REL 11.0 81-05-
0x3ebfbc…3ec150 Dummy {f00=0x013c, f01=0x0190, f02=» =11, PROCEDURE TIMER PROBLEM P =10, EOT ON SPECIFIC POLL ( $ P =9, REMAINING TIME IN ECBCW1 L P REL 11.0 81-04-12 t " P =8, ODD USER BUFFER ADDRESS P =7, BINARY STORE PROBLEM P REL 11.0 81-04-07 ( P =6, ERROR IN PO
0x3ec150…3ec2e4 Dummy {f00=0x013c, f01=0x0190, f02=»ETE INSTRUCTIONS NOT USED $ =2, CHANGES IN STATUS HANLING " ( # =1, ERROR IN OPEN/CLOSE REQUESTS J REL 11.0 81-01-26 v !!DL 139 =2 P PREMTIM EQU 0 =9 2 P IF = 1 THE REMAINING TIME UNTIL TIMEOUT =9 0 P
0x3ec2e4…3ec478 Dummy {f00=0x013c, f01=0x0190, f02=»TICS AFTER READ =5 t !!DL 720 =1 * !!DL 784,785 8 =1 L !!DL 788 Z =1 j . P RF(Z) RQCL92 REQUEST ALREADY COMPLETED =1 x P LDK A1,0 RC=0 =1 , P CF A15,TENDIO COMPLETE CLOSE REQUEST =1 PRQCL92 EQU * =1
0x3ec478…3ec60c Dummy {f00=0x013c, f01=0x0190, f02=» A2,0 =1 ( # CIO A2,1,LCUIN DISCONNECT MODEM =1 P XIF =1 > P IFT P6805=1 =1 P " P LDK A2,1 DISCONNECT ORDER =1 h ( P CIO A2,0,LCUIN DISCONNECT MODEM =1 P XIF =1 & ! CMR A7 REMOVE NETWORK ADDRESS =1 " P CM DTESTA,A7 CLEA
0x3ec60c…3ec7a0 Dummy {f00=0x013c, f01=0x0190, f02=»GP CLEAR POINTER =6 PRQCL94 EQU * =6 , P CM DTEDLS,A7 INDICATE DATA LINK DOWN =6 4 ABL TDISP =1 d !!RE 799,$$LEFT$$RIGHT$$ z P!!DL 819 & P ABL(Z) RTOK ALREADY CONNECTED =17 P IFT MESPAS=1 =13 P LDK A2,/40 OPTION CODE =1
0x3ec7a0…3ec934 (6, 82) Dummy {f00=0x013c, f01=0x018e, f02=»TEDDT,A7 POINTER TO DISCARD DWT =13 0 P RF(NZ) RQCN50 MORE THAN ONE DISC. DWT ? =13 , 8 P ST A6,DTEDDT,A7 SAVE POINTER TO TO DISCARD DWT =13 ` P RF RQCN60 =13 PRQCN10 EQU * =13 P XIF =13 P!!DL 821 * P LDKL A4,SUBBUF MMU BUFF
0x3ec934…3ecac8 Dummy {f00=0x013c, f01=0x0190, f02=» P =13 P!!IL 897 & P LD A1,DWTCHP,A6 DISCARD DWT ? =13 $ * P RF(Z) RQCN65 YES, DO NOT SEND DE =13 N P!!IL 900 | PRQCN65 EQU * =13 P!!DL 906 , P RF(NZ) RQCN70 TIMER ALREADY STARTED =6 !!DL 1040,1041 ( # ANK A1,/B W
0x3ecac8…3ecc5c Dummy {f00=0x013c, f01=0x0190, f02=»IMEOUT VALUE =9 p 0 P ST A1,ECBCW1,A8 STORE IN CONTROL WORD 1 =9 P XIF =9 L P!!DL 1330 ^ P IFT REMTIM=1 =9 p P LDR* A2,A2 =9 $ P NGR A2,A2 GET REMAINING TIME =9 P XIF =9 P CM* DWTRTP,A6 KILL TIMER =9 !!DL 133
0x3ecc5c…3ecdf0 Dummy {f00=0x013c, f01=0x018e, f02=»NO INTERRUPTS ALLOWED =1 ABL TDISP =1 P!!DL 1608 6 $ P IM DTESTA,A7 SET OPEN STATUS =1 H LDKL A5,STB =1 p * P CF A5,CSYNCI PUT CU IN ACTIVE MODE =1 8 P CF A5,CHALTI HALT I/P DEVICE TO GET MODEM STATUS =1 0 P IM DTEPLS,A7 PRESET P
0x3ecdf0…3ecf84 Dummy {f00=0x013c, f01=0x0190, f02=» DTE:20 EQU * =1 " P LDR A1,A2 SET RETURN CODE =1 * P CF A15,TENDIO COMPLETE THE REQUEST =1 B & P CF A15,SPOTIM START POLL TIMER =6 p P ABL BRM START I/P =1 P!!DL 1744,1745 P =10 P!!IL 1755 * P LDR A6,A3 LOAD DWT ADDR
0x3ecf84…3ed118 Dummy {f00=0x013c, f01=0x0190, f02=» CF A5,HPTIM KILL PROCEDURE TIMER =11 P CF A5,TRENQ SEND ENQ . P!!DL 1824 L P . =15 ^ P!!DL 1864,1866 n =2 IFT STARVI=1 =2 $ ANK A3,/A WACK SENT OR DB ? =2 P RF(NZ) SEL140 YES =2 !!DL 1868,1874 P
0x3ed118…3ed2ac Dummy {f00=0x013c, f01=0x0190, f02=»RMINAL DISCONNECTED =14 P!!DL 2022 P =12 2 P!!IL 2025 B . P LD A1,DWTLAD,A6 SYMBOLIC DTE ADDRESS =12 T ( P LD A2,-2,A4 NETWORK SUB-ADDRESS =12 0 P CF A15,GETSSA GET SYMBOLIC SUB ADDRESS =12 , P ST A1,ECBCW2,A8 AND SAVE IT IN EC
0x3ed2ac…3ed440 Dummy {f00=0x013c, f01=0x0190, f02=»DL 2048,2060 P =12 P!!IL 2316 $ P IFT REMTIM=1 =9 6 P!!IL 2317 P P XIF =9 b P!!DL 2424 t P SCR A1,A4 =7 P!!IL 2426 P LCR A1,A4 =7 P!!DL 2428 P ORR A2,A1 =7 P!!DL 2606 P . =15
0x3ed440…3ed5d4 (6, 83) Dummy {f00=0x013c, f01=0x0162, f02=»T MODEM ERR. =1 j PCHALTR EQU * =1 P!!IL 2904 0 , P LDK A2,1 PRESET STATUS = MODEM ERROR =1 B . P RF(NA) CHLT00 INSTRUCTION NOT ACCEPTED =1 r P!!IL 2907 PCHLT00 EQU * !!DL 3185 =4 P!!DL 3186,3192 P =13
0x3ed5d4…3ed768 Dummy {f00=0x013c, f01=0x2008, f02=» ERR. =1 j PCHALTR EQU * =1 P!!IL 2904 0 , P LDK A2,1 PRESET STATUS = MODEM ERROR =1 B . P RF(NA) CHLT00 INSTRUCTION NOT ACCEPTED =1 r P!!IL 2907 PCHLT00 EQU * !!DL 3185 =4 P!!DL 3186,3192 P =13
0x3ed768…3ed8fc Dummy {f00=0x013c, f01=0x018e, f02=»** l * 2 -* DCDEFS COMMON DEFS FOR DC DRIVERS/PACKAGES * J * &************************************** T , '*************************************** * * TABLE AND PACKET LAYOUTS * , '**********************
0x3ed8fc…3eda90 Dummy {f00=0x013c, f01=0x0190, f02=» * * DWT, DEVICE WORK TABLE * . L P************************************************************************ 8 * P* ................... P* 0 . DWTCHP . P* ................... P* 2 . DWTST
0x3eda90…3edc24 Dummy {f00=0x013c, f01=0x018e, f02=» DWTOR . P* ................... P* 8 . DWTADR . 4 P* ................... V P* 10 . DWTTAB . x P* ................... P* 12 . DWTWAT . P* ................... P* 14 .
0x3edc24…3eddb8 Dummy {f00=0x013c, f01=0x0190, f02=» t , P* (18). DWTMEC . IF MMUPAG P* ................... 8 $ P* DWTDRD +2 . DWTSTB . Z $ P* ................... P* +4 . DWTCHD . P* ................... P* +6 . DWTCHN .
0x3eddb8…3edf4c Dummy {f00=0x013c, f01=0x0190, f02=» v P* ................... P* +12 . DWTDR1/SUB . * P* ................... L P* +14 . DWTRCL . n P* ................... P* +16 . DWTRTV . P* ................... P* +18 . DWTRTP
0x3edf4c…3ee0e0 Dummy {f00=0x013c, f01=0x0190, f02=» . ~ P* ................... P* +24 . DWTIPC . 2 P* ................... T P* +26 . DWTIPT . v P* ................... P* +28 . . P* / DRIVER DEPEND / P* /
0x3ee0e0…3ee274 (6, 84) Opaque[0x194]
0x3ee274…3ee408 # DirEnt {nam=»UPFILE«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2798, f03=0x0000}
0x3ee274…3ee408 IdxSect {
0x3ee274…3ee408 f00 = 0x013c // 0x3ee274 @0x0
0x3ee274…3ee408 f01 = 0x0002 // 0x3ee276 @0x2
0x3ee274…3ee408 gno = [ // 0x3ee278 @0x4
0x3ee274…3ee408 [0x00]: C0x013c.0x3.0
0x3ee274…3ee408 ]
0x3ee274…3ee408 }
0x3ee408…3ee59c Dummy {f00=0x013c, f01=0x0044, f02=» ASG 2,NO ASG 2,LP0F $UPDP P1=A,P2=B,P3=C,P4=D & > PASG /E1,@D=FL09 L PASG /A,DK d PRUN READFL v PKPF /A,@N PEND P$ASGFL PASG /E1,@D=FL09 PASG /A,DK PRUN READFL PKPF /A,@N PASG /E
0x3ee59c…3ee730 Dummy {f00=0x013c, f01=0x2008, f02=» 2,NO ASG 2,LP0F $UPDP P1=A,P2=B,P3=C,P4=D & > PASG /E1,@D=FL09 L PASG /A,DK d PRUN READFL v PKPF /A,@N PEND P$ASGFL PASG /E1,@D=FL09 PASG /A,DK PRUN READFL PKPF /A,@N PASG /E
0x3ee730…3ee8c4 Dummy {f00=0x013c, f01=0x0190, f02=»MES @D= P$PCASE PEND P$PCASF * * PMES ILLEGAL PARAMETER COMBINATION!!!! 8 2 PMES M,M+A,A,M+A+C,M+A+C+D IS OK SO TRY AGAIN! f * PMES AND DON'T DO ANY MORE MISTAKES!!!! P$PCASE PEND P$PCASE PWEF 3,2 PULD /3
0x3ee8c4…3eea58 Dummy {f00=0x013c, f01=0x0190, f02=»@M=,FC=@FC=F4,FT=M,INP=@M= PSCR /A A=@A= " PSCR /L A=@A= 6 PMOV @A=,/L,@AU J PRUN PDISC,0 A=@A= ` , POPT OUT=@AOUT=@A,FC=@FC=F4,FT=A,INP=@A= z PSCR /A C=@C= PSCR /L C=@C= PMOV @C=,/A,@CU PRUN PDISC,0 C=@C= , POPT OU
0x3eea58…3eebec Dummy {f00=0x013c, f01=0x0190, f02=»ATION !!! t * PMES FOLLOWING COMBINATIONS ARE VALID: " PMES 1 A,A+AU,A+AOUT,A+AU+AOUT @ " PMES 2 C,C+CU,C+COUT,C+CU+COUT f " PMES 3 M,M+MU,M+MOUT,M+MU+MOUT PMES 4 FC : PMES ANY COMBINATION OF ALTERNATIVE 1,2 AND 3 IS VALID, 0 PMES AND
0x3eebec…3eed80 Dummy {f00=0x013c, f01=0x018e, f02=»$UPD H PMES UPDATE PROCEDURE VERSION 0.0 DELTA-TESTED 80-03-27 0758100001984 PASG 2,NO CR=@CR= X PASG 2,LP0F CR=@CR=,LP=@LP= p PMOV @CR=,/A,@UI PASG /E0,/A PASG /E0,TY10 CR=@CR= PASG 2,LP0F CR=@CR= PKPF /@FT=S,@NN CR=@CR=
0x3eed80…3efa20 (7, 0) DirGranule ((7, 0)) {
0x3eed80…3efa20 DirEnt {nam=»SAVE «, typ=» «, f00=0x0000, f01=0x0000, f02=0x27a0, f03=0x0000}
0x3eed80…3efa20 DirEnt {nam=»PAD «, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x27a8, f03=0x0008}
0x3eed80…3efa20 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2830, f03=0x0000}
0x3eed80…3efa20 DirEnt {nam=»DSPBSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2840, f03=0x0000}
0x3eed80…3efa20 }
0x3efa20…3efbb4 (7, 1) Opaque[0x194]
0x3efbb4…3efd48 # DirEnt {nam=»PAD «, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x27a8, f03=0x0008}
0x3efbb4…3efd48 IdxSect {
0x3efbb4…3efd48 f00 = 0x013d // 0x3efbb4 @0x0
0x3efbb4…3efd48 f01 = 0x0022 // 0x3efbb6 @0x2
0x3efbb4…3efd48 gno = [ // 0x3efbb8 @0x4
0x3efbb4…3efd48 [0x00]: C0x013d.0x1.0
0x3efbb4…3efd48 [0x01]: C0x013d.0x2.0
0x3efbb4…3efd48 [0x02]: C0x013d.0x3.0
0x3efbb4…3efd48 [0x03]: C0x013e.0x0.0
0x3efbb4…3efd48 [0x04]: C0x013e.0x1.0
0x3efbb4…3efd48 [0x05]: C0x013e.0x2.0
0x3efbb4…3efd48 [0x06]: C0x013e.0x3.0
0x3efbb4…3efd48 [0x07]: C0x013f.0x0.0
0x3efbb4…3efd48 [0x08]: C0x013f.0x1.0
0x3efbb4…3efd48 [0x09]: C0x013f.0x2.0
0x3efbb4…3efd48 [0x0a]: C0x013f.0x3.0
0x3efbb4…3efd48 [0x0b]: C0x0140.0x0.0
0x3efbb4…3efd48 [0x0c]: C0x0140.0x1.0
0x3efbb4…3efd48 [0x0d]: C0x0140.0x2.0
0x3efbb4…3efd48 [0x0e]: C0x0140.0x3.0
0x3efbb4…3efd48 [0x0f]: C0x0141.0x0.0
0x3efbb4…3efd48 [0x10]: C0x0141.0x1.0
0x3efbb4…3efd48 ]
0x3efbb4…3efd48 }
0x3efd48…3efedc Dummy {f00=0x013d, f01=0x0190, f02=» 0 P IDENT PAD REL 11.0 DK 82-03-08 870150541100 P 8 P DK PROGRAM TAB @ P =4 COPY TO PRINTER Z P 81-05-06 x P =3, MISSING ITEM P 81-01-26 P =2, SAVE REG. P 81-01-26 P =1, RA ON EUQ ADDRESS P
0x3efedc…3f0070 Dummy {f00=0x013d, f01=0x0190, f02=» * b B P* MODULE PAD * B P* MODULE HANDLING THE PACKING AND * ^ B P* UNPACKING OF THE DCBUFFER. THE VDU * B P* BUFFER I
0x3f0070…3f0204 Dummy {f00=0x013d, f01=0x0190, f02=» * v B P************************************************************* , P EJECT r F P***************************************************************** P* P* LIST OF ROUTINES P* @ P* PACK
0x3f0204…3f0398 Dummy {f00=0x013d, f01=0x0190, f02=»RN ADDRESSES x ( P* UNPCOM UNPACK COMMANDS & P* UNPORD UNPACK ORDERS @ $ P* ORDTAB ORDER TABLE j $ P* SF START FIELD * P* SBA SET BUFFER ADDRESS & P* IC INSERT CURSO
0x3f0398…3f052c Dummy {f00=0x013d, f01=0x0190, f02=»ESS h ( P* CHAR < /20 BUT NOT ORDERS 6 P* PACKSY PACK DC-BUFFER IN SYSTEM MODE 8 8 P* UNPSYS UNPACK DC-BUFFER IN SYSTEM MODE r 2 P* GETNXT GET AND CHECK NEXT BUFFER 8 P* PUTCHA PUT CHAR. IN DC-
0x3f052c…3f06c0 Dummy {f00=0x013d, f01=0x0190, f02=» STORE AID IN BUFFER : P* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER 8 P* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES ^ 2 P* P1WCC PROCESS WCC BEFORE UPDATE 6 P* P2WCC TAKE CARE OF WCC AFTER UPDATE 8
0x3f06c0…3f0854 (7, 2) Dummy {f00=0x013d, f01=0x0190, f02=»UFFER BUFFER POOL " P* GETBUF GET BUFFER & P* RELBUF RELEASE BUFFER D P* n F P****************************************************************** x P EJECT B P********************************************************
0x3f0854…3f09e8 Dummy {f00=0x013d, f01=0x018e, f02=» * B P* * B P************************************************************* X P 0 P ENTRY PACK PACK MOD. FIELDS INTO DC BUFFER 2 P ENTRY UNPACK UNPACK DC BUFFER AND UPDATE VDU
0x3f09e8…3f0b7c Dummy {f00=0x013d, f01=0x0190, f02=» , P ENTRY PAID STORE AID CODE IN DC BUFFER 2 P ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER 4 0 P ENTRY PACKSY PACK DC BUFFER IN SYSTEM MODE j P ENTRY SAVE1 SAVE REGISTERS " P ENTRY REST1 RESTORE REGISTERS P P EJECT 8 P**********
0x3f0b7c…3f0d10 Dummy {f00=0x013d, f01=0x0190, f02=»ES * v 8 P* * " 8 P*************************************************** ^ P 0 P EXTRN CONEBC CONVERT ASCII-EBCDIC (CONVER) 0 P EXTRN CONASC CONVERT EBCDIC-ASCII (CONVER) *
0x3f0d10…3f0ea4 Dummy {f00=0x013d, f01=0x0190, f02=»INDEX (CONVER) p . P EXTRN CONATT CONVERT ATTRIBUTE (CONVER) . P EXTRN SCRINF GET SCREEN INFORMATION (VDU) H 8 P EXTRN ERASUP ERASE UNPROTECTED ENTIRE SCREEN (VDU) z & P EXTRN COPY LOCAL HARDCOPY (KEYB) * P EXTRN SOUND SOUND ALARM ON VDU (VDU)
0x3f0ea4…3f1038 Dummy {f00=0x013d, f01=0x0190, f02=»RAP AROUND (VDU) z 0 P EXTRN STOINF SAVE SCREEN INFORMATION (VDU) ( P EXTRN LMP3ON INHIBIT LAMP ON (KEYB) L 2 P EXTRN READNW READ WITH NO WAIT (DCSNA,DCBSC) x * P EXTRN WAIT SYNCHRONIZE (DCSNA,DCBSC) 0 P EXTRN DCWRIT WRITE DC BUFFER (DCSNA,DCBSC)
0x3f1038…3f11cc Dummy {f00=0x013d, f01=0x018e, f02=»TINE (VDU) v " P EXTRN LINE WRAP ROUTINE (VDU) 2 P EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) 8 , P EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU) n & P EXTRN ERROR ERROR INCATOR (KEYB) 2 P EXTRN MATCH MATCH ADDRESS AND TASKID (DSPBSC) * P EXTRN ICS
0x3f11cc…3f1360 Dummy {f00=0x013d, f01=0x0190, f02=» 8 P*************************************************** 8 P* * D 8 P* CONDITIONAL ASSEMBLY PARAMETERS * 8 P* * 8 P****************
0x3f1360…3f14f4 (7, 3) Dummy {f00=0x013d, f01=0x0190, f02=»-32) r PBUFFNR EQU 02 * PX:L EQU 1150 MAX BUFFER SIZE IN WORDS " PBUFFL EQU 1150 P * PX:M EQU 0 COPY COMMAND INCLUDED IF:=1 f PCOPCMD EQU 1 PX:N EQU 1 EBCDIC CHAR IF:=1 PEBCDIC EQU 1 * PX:Z EQU 1 =0,WHOLE,=1 CHAIN,=2 SEGMENT
0x3f14f4…3f1688 Dummy {f00=0x013d, f01=0x0190, f02=» * z & P* DECLARATION OF DATA AND EQUATES 2 D P* * D P*************************************************************** P P* $ P* EQ
0x3f1688…3f181c Dummy {f00=0x013d, f01=0x0190, f02=»TH v PECBRC EQU 8 RETURN CODE PECBCW EQU 10 CONTROL WORD * P* L P* INTERNAL STATUS V P* p , PLICREC EQU /2000 LAST IN CHAIN RECEIVED z " PTHROWB EQU /0800 THROW BUFFERS PNEWCH EQU /0400 NEW CHAIN ( PATTREC EQU /0002 ATTRI
0x3f181c…3f19b0 Dummy {f00=0x013d, f01=0x0190, f02=»QU 0 LOCAL MODE PSYSOP EQU 2 SYSTEM MODE PMYJOB EQU 4 MY JOB MODE 8 P XIF X P* d P* TASK IDENTIFICATION CODE n P* PVDUCOD EQU 'VV' VDU KB TASK P* P* SPECIAL CHARACTERS P* PNULL EQU 0 NULL CHAR.
0x3f19b0…3f1b44 Dummy {f00=0x013d, f01=0x018e, f02=»AL SIZE ~ PLLINE EQU 80 LINE LENGTH P* 0 P* BUFFER LINK LENGTH : P* ^ PLINK EQU BUFFL+BUFFL+2 h P EJECT P* P* RELATIVE ADDRESSES IN P* TERMINAL WORKBLOCK P* $ PTCT01 EQU 0 TASK IDENTIFICATION
0x3f1b44…3f1cd8 Dummy {f00=0x013d, f01=0x0190, f02=» b PCURATT EQU PCURS+4 & PWCC EQU CURATT+2 WCC/CCC CHARACTER " & PKBINH EQU WCC+2 INHIBIT INDICATOR L * PDCLENG EQU KBINH+4 LENGTH OF DC BUFFER v 2 PCURPOS EQU DCLENG+30 CURSOR POS IN SYSTEM MODE & PBUFPNT EQU CURPOS+2 BUFFER ADDRESS $ PREGI
0x3f1cd8…3f1e6c Dummy {f00=0x013d, f01=0x0190, f02=» p PSNAMOD EQU UNPMOD+2 SNA MODE 0 PECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 , P EJECT ` @ P************************************************************ n @ P* * B P* PACK
0x3f1e6c…3f2000 Dummy {f00=0x013d, f01=0x0190, f02=»*********************************************** P* REGISTERS 8 P* L P* A2= CHAR. V P* A3= ADDRESS IN VDU-BUFFER j P* A4= REL. CURSOR POS. P* A5= REL. ATTRIBUTE POS. P* A6= ATTRIBUTE CHAR P* A8= ADDRESS IN DC-BUFFER
0x3f2000…3f2194 (7, 4) Dummy {f00=0x013e, f01=0x0190, f02=» P* @ P************************************************************ PPACK EQU * R * P CF A14,SCRINF GET SCREEN INFORMATION d P LDK A4,0 FIRST SCREEN POS. P LDKL A3,BVDU P ADR A3,A11 P LDR A10,A4 INITIATE ADDRESS ( P CWK
0x3f2194…3f2328 Dummy {f00=0x013e, f01=0x0190, f02=»E? z P RF(NL) PACK15 YES P ADK A3,1 $ P ADK A4,1 6 P RB PACK10 H PPACK15 EQU * Z P LDR A10,A4 START ADDRESS n P RF PACK30 PPACK20 EQU * & P CF A14,WRAP CHECK IF WRAP AROUND P CWR A10,A4 ALL SCANNED? P RF(E) P
0x3f2328…3f24bc Dummy {f00=0x013e, f01=0x018e, f02=»B(L) PACK20 NO P ANK A2,1 MODIFIED FIELD? P RF(NZ) PACK50 YES 8 P ADK A3,1 R P ADK A4,1 d P RB PACK20 v PPACK50 EQU * " P LDK A2,SBACH SBA TO DC-BUFFER P LDKL A1,/8000 INDICATE SBA & P CF A14,PUTCHA PUT CHAR. IN BUFFER
0x3f24bc…3f2650 Dummy {f00=0x013e, f01=0x0190, f02=» PPACK60 EQU * & P CF A14,WRAP CHECK IF WRAP AROUND P CWR A10,A4 ALL SCANNED? B P RF(E) PACK80 YES b PPACK70 EQU * | P LCR A2,A3 GET CHAR. P CCK A2,/8000 ATTRIBUTE? P RB(NL) PACK20 YES P CWK A2,NULL NULL CHAR? " P R
0x3f2650…3f27e4 Dummy {f00=0x013e, f01=0x0190, f02=» PPACK75 EQU * P ADK A3,1 P ADK A4,1 * P RB PACK60 < PPACK80 EQU * N $ P LDK A1,0 INDICATE LAST IN CHAIN b " P CF A14,DCWRIT WRITE DC BUFFER PPACK90 EQU * " P LDR A8,A12 BUFFER TO RELEASE " P CF A14,RELBUF RELEASE BUFFER
0x3f27e4…3f2978 Dummy {f00=0x013e, f01=0x0190, f02=» * r @ P* UNPACK UNPACK DC-BUFFER AND UPDATE VDU * & @ P* * j @ P************************************************************ P* REGISTERS P*
0x3f2978…3f2b0c Dummy {f00=0x013e, f01=0x0190, f02=»TERNAL LINE FLAG ADDRESS P* A8= ADDRESS IN DC-BUFFER P* A9= DC-BUFFER INDEX B P* A10= INDICATOR ` P* A11= CREDIT WORK AREA x P* A12= RESERVED P* A13= RESERVED P* < P******************************************************
0x3f2b0c…3f2ca0 Dummy {f00=0x013e, f01=0x0190, f02=»ER UNPACK? | P RF(NE) UNP050 YES " P CF A14,LMP3ON INHIBIT LAMP ON , PUNP050 EQU * R * P CF A14,SCRINF GET SCREEN INFORMATION f P LDR A6,A11 P LDK A5,LLINE * P CF A14,LINE CHECK WRAP AND LINE FLAG P SUR A9,A9 ( P LD A8,BUF
0x3f2ca0…3f2e34 (7, 5) Dummy {f00=0x013e, f01=0x0190, f02=»CHAR. ~ P LDR A1,A1 ANYTHING LEFT? P RF(NZ) UNP200 NO 0 . P LD A1,UNPMOD,A11 GET ADDRESS TO START AT J P CFI A14,RETTAB,A1 RESTART | P LDR A1,A1 PROCESS OKEY? P RB(Z) UNP100 YES P RF UNP300 PUNP200 EQU * P IFT SNA=1
0x3f2e34…3f2fc8 Dummy {f00=0x013e, f01=0x0190, f02=»4,SCRINF GET LATEST NEWS P LDR A1,A4 . P CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS 2 P IFT SNA=1 d $ P ANKL A10,THROWB THROW BUFFERS? v P RF(Z) UNP400 NO P CF A14,THRBUF THROW BUFFERS P RF UNP600 PUNP400 EQU * P IFF DIS
0x3f2fc8…3f315c Dummy {f00=0x013e, f01=0x0190, f02=» PUNP500 EQU * P XIF * P CF A14,P2WCC CHECK IT A LAST TIME =4 $ & P LDR A8,A12 GET BUFFER TO RELEASE R " P CF A14,RELBUF RELEASE BUFFER | PUNP600 EQU * P RTN A14 P EJECT J P****************************************************
0x3f315c…3f32f0 Dummy {f00=0x013e, f01=0x0190, f02=» GET CHARCTER * p J P* * ! . J P********************************************************************** ! | P ! PICOMND EQU 0 ! PICOMN1 EQU ICOMND+2 ! P IFT C
0x3f32f0…3f3484 Dummy {f00=0x013e, f01=0x0190, f02=»IF ! PIORDER EQU ICOWCC+2 " PIOSFAT EQU IORDER+2 " & PIOSBA1 EQU IOSFAT+2 " B PIOSBA2 EQU IOSBA1+2 " ^ PIORAA1 EQU IOSBA2+2 " z PIORAA2 EQU IORAA1+2 " PIORACH EQU IORAA2+2 " PIOEUA1 EQU IORACH+2 " PIOEUA2 EQU IOEUA1+2 " P E
0x3f3484…3f3618 Dummy {f00=0x013e, f01=0x018e, f02=» * " b J P* RETURN ADDRESSES AFTER GET CHARACTER * # J P* * # n J P********************************************************************* #
0x3f3618…3f37ac Dummy {f00=0x013e, f01=0x018e, f02=» $ P DATA UNC150 PROCESS FROM DEVICE $ P XIF $ , P DATA UNC600 PROCESS WCC $ 8 * P DATA UNPORD PROCESS ORDERS AND CHAR. $ X " P DATA SF100 PROCESS ATTRIBUTE $ , P DATA SBA100 PROCESS FIRST ADDRESS BYTE $ , P DATA SBA200 PROCESS SECOND ADDRESS BYTE $
0x3f37ac…3f3940 Dummy {f00=0x013e, f01=0x0190, f02=» $ j , P DATA EUA100 PROCESS FIRST ADDRESS BYTE % , P DATA EUA200 PROCESS FIRST ADDRESS BYTE % 8 P EJECT % h L P*********************************************************************** % v L P*
0x3f3940…3f3ad4 (7, 6) Dummy {f00=0x013e, f01=0x0190, f02=» * % f L P*********************************************************************** & & P* REGISTERS & v P* & P* A2= CHAR. & P* A3= ADDRESS IN VDU-BUFFER & P* A4= REL. CURSOR ADDRESS & P* A5= LAST IN ROW REL POS
0x3f3ad4…3f3c68 Dummy {f00=0x013e, f01=0x0190, f02=»REDIT WORK AREA & P* A12= RESERVED ' P* A13= RESERVED ' 0 P* ' H L P************************************************************************ ' R ( PUNPCOM EQU * ENTRY LABEL FROM RETTAB ' P IFF SNA=1 ' $ P LDK A1,ICOMN1 WHERE TO CONTINUE ' P
0x3f3c68…3f3dfc Dummy {f00=0x013e, f01=0x0190, f02=»ROR ' x P RF UNC900 ( P XIF ( PUNC100 EQU * ( * P CWK A2,/31 WRITE? ( > P RF(E) UNC500 YES ( X P CWK A2,/35 ERASE AND WITE? ( r P RF(E) UNC200 YES ( & P CWK A2,/3F ERASE ALL UNPROTECTED? ( P RF(E) UNC300 YES ( P IFT COPCMD=1 (
0x3f3dfc…3f3f90 Dummy {f00=0x013e, f01=0x0190, f02=»ABEL FROM RETTAB ( | P CF A14,MATCH GET TASKID ) P LDR A1,A1 OK? ) 8 P RF(NZ) UNC175 NO ) N 6 P LDKL A1,/8000 RETURN CODE TO INDICATE COPY COMND. ) h P ST A1,REGI,A11 ) P LD A8,ECBICW,A11 ) P CF A14,ICSET SET TIMEOUT ) P LDR A1,A2 TASK TO
0x3f3f90…3f4124 Dummy {f00=0x013e, f01=0x0190, f02=» XIF ) $ P LDKL A10,THROWB THROW THE REST * P LDK A1,1 INDICATE ERROR * 4 P RF UNC900 INVALID COMMAND * T PUNC200 EQU * * v P ST A8,REGI,A11 * & P CF A14,ERASE ERASE ENTIRE SCREEN * P LD A8,REGI,A11 * P LDR A6,A11 * P LDK A5,LLINE *
0x3f4124…3f42b8 Dummy {f00=0x013e, f01=0x018e, f02=»A10,THROWB THROW IT AWAY * P LDK A1,1 INDICATE ERROR + P RF UNC900 + @ PUNC500 EQU * + R P LDK A1,ICOWCC GET INDEX + f P ST A1,UNPMOD,A11 + P LDK A1,0 + P RF UNC900 + ( PUNC600 EQU * ENTRY LABEL FROM RETTAB + , P CF A14,P1WCC PROCESS WC
0x3f42b8…3f444c Dummy {f00=0x013e, f01=0x0190, f02=» + l & P LDK A1,IORDER INDICATE NEXT CALL , PUNC800 EQU * , 2 P ST A1,UNPMOD,A11 , F P LDK A1,0 , ` PUNC900 EQU * , r P RTN A14 , P EJECT , > P********************************************************** , > P*
0x3f444c…3f45e0 Dummy {f00=0x013e, f01=0x0190, f02=» * , j > P********************************************************** - P* REGISTERS - ^ P* - r P* A2= CHAR. - | P* A3= POINTER IN VDU BUFFER - P* A4= REL. CURSOR POS. - P* A5= LAST IN ROW REL POS - $ P* A6= INTERNAL LINE
0x3f45e0…3f4774 (7, 7) Dummy {f00=0x013e, f01=0x0190, f02=»* A13= RESERVED - P* . > P********************************************************** . " ( PUNPORD EQU * ENTRY LABEL FROM RETTAB . d P CWK A2,/20 ORDER? . P RF(L) UNO100 YES . * P XRKL A10,PTORD INDICATE FOR PT ORDER . P CWR A5,A4 NEW LINE? .
0x3f4774…3f4908 Dummy {f00=0x013e, f01=0x0190, f02=»FLG,A6 . P ORK A1,1 / P SC A1,LINFLG,A6 / P ADK A4,1 / 8 P ADK A3,1 / J P LDK A1,0 / P RF UNO200 / n PUNO100 EQU * / $ P LC A1,CONORD,A2 GET ORDER INDEX / * P CFI A14,ORDTAB,A1 TAKE CARE OF ORDER / PUNO200 EQU * / P RTN A14 /
0x3f4908…3f4a9c Dummy {f00=0x013e, f01=0x0190, f02=» * / b B P* ORDTAB ORDER TABLE * 0 B P* * 0 ^ B P************************************************************* 0 PORDTAB EQU * 0 P DATA INVA
0x3f4a9c…3f4c30 Dummy {f00=0x013e, f01=0x018e, f02=» P DATA RA REPEAT TO AADRESS 1 * P DATA EUA ERASE UNPROTECTED TO ADDRESS 1 & P DATA ESC ESCAPE 1 T P DATA NULCHA NULL CHAR. 1 l P DATA NL NEW LINE 1 P DATA FF FORM FEED 1 P DATA EM END MESSAGE 1 P DATA CR CARRIAGE RETURN 1 P EJECT 1 @
0x3f4c30…3f4dc4 Dummy {f00=0x013e, f01=0x0190, f02=» @ P* SF START FIELD * 2 @ P* * 2 H @ P*********************************************************** 2 P* REGISTERS 2 P* 2 P* A1= RETURN CODE 2 P
0x3f4dc4…3f4f58 Dummy {f00=0x013e, f01=0x0190, f02=»= RESERVED 2 P* A9= DC-BUFFER INDEX 3 P* A10= INDICATOR 3 0 P* A11= CREDIT WORK AREA 3 H P* A12= RESERVED 3 h P* A13= RESERVED 3 P* 3 @ P************************************************************ 3 PSF EQU * 3 & P LDK A1,IOSFAT IND
0x3f4f58…3f50ec Dummy {f00=0x013e, f01=0x0190, f02=» NEXT ALBEL 3 P ST A1,UNPMOD,A11 4 P LC A2,CONATT,A2 IN EBCDIC 4 . P ORK A2,/80 ATTR. BIT 4 P P CM CURATT,A11 4 n P ORKL A10,ATTREC+PTORD 4 P CF A14,LINWRP CHECK WRAP 4 P LC A1,LINFLG,A6 4 P ANK A1,2 LINE IN FIELD? 4 P RF(Z) SF600
0x3f50ec…3f5280 Dummy {f00=0x013e, f01=0x0190, f02=»CR A2,A3 STORE CHAR. 4 P ADK A3,1 5 P ADK A4,1 5 . PSF900 EQU * 5 @ P LDK A1,0 5 T P RTN A14 5 f P EJECT 5 v @ P*********************************************************** 5 @ P* * 5
0x3f5280…3f5414 (7, 8) Dummy {f00=0x013f, f01=0x0190, f02=» @ P*********************************************************** 6 P* REGISTERS 6 H P* 6 P* A1= RETURN CODE 6 f P* A2= CHAR. 6 P* A3= RESERVED 6 P* A4= RESERVED 6 P* A5= RESERVED 6 P* A6= RESERVED 6 P* A8= RESERVED 6 P* A9=
0x3f5414…3f55a8 Dummy {f00=0x013f, f01=0x0190, f02=»***************************************************** 6 PSBA EQU * 7 > P LDK A1,IOSBA1 NEXT LABEL 7 P P ST A1,UNPMOD,A11 7 r P LDK A1,0 7 P RF SBA900 FIRST BYTE 7 ( PSBA100 EQU * ENTRY LABEL FROM RETTAB 7 P LC A7,CONATT,A2 CONVERT 7 P
0x3f55a8…3f573c Dummy {f00=0x013f, f01=0x0190, f02=»00 EQU * ENTRY LABEL FROM RETTAB 7 P LC A2,CONATT,A2 8 ( P ANK A2,/3F 8 @ P ORR A7,A2 8 T P LDK A1,IORDER NEXT LABEL 8 f P ST A1,UNPMOD,A11 8 " P CWK A7,LBVDU ILLEGAL ADDRESS? 8 P RF(NL) SBA800 YES 8 P LDR A3,A7 8 P LDR A4,A3 8 P A
0x3f573c…3f58d0 Dummy {f00=0x013f, f01=0x0190, f02=»0 REURN CODE 8 P RF SBA900 9 PSBA800 EQU * 9 & " P ORKL A10,THROWB DON'T SAVE IT 9 : P LDK A1,1 RETURN CODE 9 ` PSBA900 EQU * 9 ~ P RTN A14 9 P EJECT 9 > P********************************************************** 9 > P*
0x3f58d0…3f5a64 Dummy {f00=0x013f, f01=0x018e, f02=» * 9 v > P********************************************************** : ( P* REGISTERS : j P* : ~ P* A1= RETURN CODE : P* A2= RESERVED : P* A3= RESERVED : P* A4= REL. CURSOR POS. : P* A5= RESERVED : P* A6=
0x3f5a64…3f5bf8 Dummy {f00=0x013f, f01=0x0190, f02=» : ~ P* ; 4 P*********************************************** ; PIC EQU * ; J P ST A4,PCURS,A11 ; Z P ORKL A10,PTORD INDICATE ; r P LDK A1,0 RETURN CODE ; P RTN A14 ; P EJECT ; @ P**********************************************************
0x3f5bf8…3f5d8c Dummy {f00=0x013f, f01=0x0190, f02=»* ; V @ P* * < @ P*********************************************************** < N P* REGISTERS < P* < P* A1= RETURN CODE < P* A2= CHAR. < P* A3= ADDRESS IN VDU-BUFFER < P* A4=
0x3f5d8c…3f5f20 Dummy {f00=0x013f, f01=0x0190, f02=» < P* A11= RESERVED = P* A12= RESERVED = P* A13= RESERVED = 8 P* = P @ P************************************************************ = Z PPT EQU * = P LDR A1,A10 = . P ANK A1,PTORD FOLLOWING ORDER OR COMMAND? = P RF(NZ) PT400 YES =
0x3f5f20…3f60b4 (7, 9) Dummy {f00=0x013f, f01=0x018e, f02=»? = x " P RF(Z) PT800 YES, KUNTA KINTE > P LCR A2,A3 > 0 P ANK A2,/80 ATTRIBUTE? > B P RF(NZ) PT400 YES > ` P SCR A7,A3 STORE NULL CHAR. > z P LC A1,LINFLG,A6 > P ORK A1,1 > P SC A1,LINFLG,A6 > P ADK A3,1 > P ADK A4,1 > P RB
0x3f60b4…3f6248 Dummy {f00=0x013f, f01=0x0190, f02=» P LCR A2,A3 GET CHAR. ? P ANK A2,/80 ATTRIBUTE? ? P RF(NZ) PT500 YES ? > P ADK A4,1 ? X P ADK A3,1 ? j P RB PT400 ? | PPT500 EQU * ? " P LCR A2,A3 GET CHAR. AGAIN DK ? P ANK A2,/20 PROTECTED? ? P RB(NZ) PT400 YES ? P ADK A4,
0x3f6248…3f63dc Dummy {f00=0x013f, f01=0x0190, f02=»RETURN CODE ? P RTN A14 @ P EJECT @ $ B P************************************************************* @ 2 B P* * @ x B P* RA REPEAT TO ADDRESS * @ B P*
0x3f63dc…3f6570 Dummy {f00=0x013f, f01=0x0190, f02=»* REGISTERS @ P* A P* A1= RETURN CODE A P* A2= CHAR. TO BE REPEATED A 8 P* A3= ADDRESS IN VDU-BUFFER A Z P* A4= REL. CURSOR POS. A ~ P* A5= RESERVED A $ P* A6= INTERNAL LINE FLAG ADDRESS A P* A8= RESERVED A P* A9= DC-BUFFER INDEX A
0x3f6570…3f6704 Dummy {f00=0x013f, f01=0x0190, f02=»********************************** A PRA EQU * B * P LDK A1,IORAA1 NEXT LABEL B : P ST A1,UNPMOD,A11 B P LDK A1,0 B v P RF RA900 FIRST BYTE B ( PRA100 EQU * ENTRY LABEL FROM RETTAB B P LC A7,CONATT,A2 CONVERT B P ANK A7,/3F B P SLL
0x3f6704…3f6898 Dummy {f00=0x013f, f01=0x0190, f02=»TRY LABEL FROM RETTAB B P LC A2,CONATT,A2 C P ANK A2,/3F C 6 P ORR A7,A2 C J " P CWK A7,LBVDU INVALID ADDRESS C P RF(NL) RA800 YES C P LDK A1,IORACH NEXT LABEL C P ST A1,UNPMOD,A11 C P LDK A1,0 C P RF RA900 CHAR. BYTE C ( PRA
0x3f6898…3f6a2c Dummy {f00=0x013f, f01=0x0190, f02=»FFER C v P LC A1,LINFLG,A6 D P ORK A1,1 D $ P SC A1,LINFLG,A6 D 6 P ADK A3,1 D N P ADK A4,1 D ` P CF A14,LINWRP CHECK WRAP =1 D r P CWR A4,A7 ALL REPEATED? =1 D P RB(NE) RA300 NO =1 D & P ORKL A10,PTORD INDICATE PT ORDER D P LDK A1,
0x3f6a2c…3f6bc0 Dummy {f00=0x013f, f01=0x0190, f02=»U * D P RTN A14 E P EJECT E : P****************************************************** E * : P* * E h : P* EUA ERASE UNPRO. TO ADDRESS * E : P*
0x3f6bc0…3f6d54 (7, 10) Dummy {f00=0x013f, f01=0x0190, f02=» E ~ P* A2= CHAR. F P* A3= RESERVED F P* A4= RESERVED F 2 P* A5= RESERVED F H P* A6= RESERVED F ^ P* A8= RESERVED F t P* A9= RESERVED F P* A10= INDICATOR F P* A11= CREDIT WORK AREA F P* A12= RESERVED F P* A13= RESERVED F P
0x3f6d54…3f6ee8 Dummy {f00=0x013f, f01=0x0190, f02=»MOD,A11 F P LDK A1,0 G P RF EUA900 FIRST BYTE G " ( PEUA100 EQU * ENTRY LABEL FROM RETTAB G @ P LC A7,CONATT,A2 CONVERT G l P ANK A7,/3F G P SLL A7,6 G P LDK A1,IOEUA2 NEXT LABEL G P ST A1,UNPMOD,A11 G P LDK A1,0 G P RF EUA9
0x3f6ee8…3f707c Dummy {f00=0x013f, f01=0x0190, f02=»IORDER NEXT LABEL G P ST A1,UNPMOD,A11 H " P CWK A1,LBVDU INVALID ADDRESS? H 4 P RF(NL) EUA800 YES H Z P LDR A1,A7 H t * P CF A14,ERASUA ERASE UNPRO. TO ADDRESS H P CF A14,SCRINF H P LDK A1,0 RETURN CODE H & P ORKL A10,PTORD INDICATE PT ORDE
0x3f707c…3f7210 Dummy {f00=0x013f, f01=0x0190, f02=» H P EJECT I < P******************************************************** I < P* * I V < P* CHAR. < /20 BUT NOT ORDER * I < P*
0x3f7210…3f73a4 Dummy {f00=0x013f, f01=0x0190, f02=»A2= CHAR. I P* A3= ADDRESS IN VDU-BUFFER J P* A4= REL. CURSOR POS. J 6 P* A5= RESERVED J T $ P* A6= INTERNAL LINE FLAG ADDRESS J j P* A8= RESERVED J P* A9= RESERVED J P* A10= INDICATOR J P* A11= CREDIT WORK AREA J P* A12= RESERVED J
0x3f73a4…3f7538 Dummy {f00=0x013f, f01=0x0190, f02=»ATE COMMAND J z P LDK A1,1 STOP ORDER PROCESS K P RF CHARET K 8 PINVAL EQU * K J " P ORKL A10,/9800 END UNPACKING K ^ P LDK A1,1 K P RF CHARET K PNULCHA EQU * K PNL EQU * K PFF EQU * K PEM EQU * K PCR EQU * K P CF A14,LINW
0x3f7538…3f76cc Dummy {f00=0x013f, f01=0x0190, f02=»DICATE PT ORDER K ~ P ADK A3,1 L P ADK A4,1 L * P LDK A1,0 CONTINUE L < PCHARET EQU * L V P RTN A14 L j P EJECT L z D P**************************************************************** L D P*
0x3f76cc…3f7860 Dummy {f00=0x013f, f01=0x018e, f02=» * L ` D P**************************************************************** M P* REGISTERS M ` P* M t P* A2= CHAR M ~ P* A3= ADDRESS IN VDU-BUFFER M P* A4= REL. CURSOR POS. M P* A5= RESERVED M P* A6= RESERVED M P* A8= ADDR
0x3f7860…3f79f4 (7, 11) Dummy {f00=0x013f, f01=0x018e, f02=» M ~ P* N D P*************************************************************** N PPACKSY EQU * N Z P IFT SNA=1 N n P LDKL A9,0 COUNTER N $ P LD A3,CURPOS,A11 GET START POS. N & P CWK A3,/800 ANY CHAR. ON DISPLAY? N P RF(E) PASY40 NO N * P CF
0x3f79f4…3f7b88 Dummy {f00=0x013f, f01=0x0190, f02=» ( P LDKL A1,LBVDU-1 LAST POS. ON SCREEN O P SUR A1,A3 GET LENGTH AGAIN O 0 PPASY10 EQU * O T P CWK A1,256 ILLEGAL LENGTH? O h P RF(NG) PASY20 NO O P LDKL A1,256 ADJUST LENGTH O PPASY20 EQU * O P ADKL A3,BVDU O P ADR A3,A11 O PPA
0x3f7b88…3f7d1c Dummy {f00=0x013f, f01=0x0190, f02=» CWK A2,NULL NULL CHAR.? O " P RB(E) PASY30 YES, DON'T STORE P * P CF A14,PDCCH STORE CHAR. IN DC BUFFER P F P RB PASY30 P t PPASY40 EQU * P $ P LDK A1,0 INDICATE LAST IN CHAIN P P CF A14,DCWRIT SEND BUFFER P & P LDR A8,A12 GET BUFFER TO RELEASE P
0x3f7d1c…3f7eb0 Dummy {f00=0x013f, f01=0x0190, f02=»*********** P ^ B P* * Q B P* UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * Q Z B P* * Q B P**********************************
0x3f7eb0…3f8044 Dummy {f00=0x013f, f01=0x018e, f02=»SOR POS. Q P* A5= LAST IN ROW REL POS R $ P* A6= INTERNAL LINE FLAG ADDRESS R 2 P* A8= ADDRESS IN DC-BUFFER R Z P* A9= INDEX IN DC-BUFFER R | P* A10= INDICATOR R P* A11= CREDIT WORK AREA R P* A12= RESERVED R P* A13= RESERVED R P* R
0x3f8044…3f81d8 Dummy {f00=0x013f, f01=0x0190, f02=» P ORK A1,3 S P ST A1,KBINH,A11 S P CF A14,LMP3ON S . * P CF A14,SCRINF GET SCREEN INFORMATION S D P LDR A3,A4 CURSOR ADDRESS S r P ADKL A3,BVDU S " P ADR A3,A11 VDU BUFFER ADDRESS S , P LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS S " P SUR A9,
0x3f81d8…3f836c Dummy {f00=0x013f, f01=0x0190, f02=»F A14,GDCCH GET CHAR. IN DC BUFFER S P LDR A1,A1 ANYTHING LEFT? T , P RF(NZ) UNPS60 NO T N P CWK A2,/31 BIND? T h P RF(E) UNPS50 YES,PERHAPS T PUNPS07 EQU * T P CWK A2,/20 ORDER? T P RF(NL) UNPS40 NO T P CWK A2,/0A NEW LINE? T
0x3f836c…3f8500 Dummy {f00=0x013f, f01=0x0190, f02=») UNPS20 NO T P LDK A2,/2A REPLACE WITH * U P RF UNPS40 U 6 PUNPS20 EQU * U H P CWK A2,/1E IRS? U P RF(NE) UNPS30 NO U t P LDK A2,/3B REPLACE WITH ; U P RF UNPS40 U PUNPS30 EQU * U P CWK A2,NULL NULL? U P RF(NE) UNPS40 NO U "
0x3f8500…3f8694 (7, 12) Dummy {f00=0x0140, f01=0x0190, f02=»A1,LINFLG,A6 U P ORK A1,1 V P SC A1,LINFLG,A6 V & P ADK A3,1 V > P ADK A4,1 V P P RB UNPS05 V b PUNPS50 EQU * V t P CF A14,GDCCH V P ANK A2,/FE SHURE OF BIND? V P RF(Z) UNPS55 ALMOST V P SUKL A8,2 V P SUKL A9,2 V P CF A14,
0x3f8694…3f8828 Dummy {f00=0x0140, f01=0x0190, f02=» ST A1,SNAMOD,A11 V P LDKL A10,1 NO DISPLAY W P RF UNPS70 W 8 PUNPS60 EQU * W J P LDKL A5,LBVDU+1 W ^ P LDK A6,0 W v . P CF A14,STOINF SAVE NEW SCREEN INFORMATION W P LDKL A10,0 W PUNPS70 EQU * W , P LD A8,BUFPNT,A11 GET BUFFER TO RELEAS
0x3f8828…3f89bc Dummy {f00=0x0140, f01=0x0190, f02=»************** W b @ P* * X 4 P* GETNXT GET AND CHECK NEXT BUFFER X Z @ P* * X @ P**************************************************
0x3f89bc…3f8b50 Dummy {f00=0x0140, f01=0x0190, f02=»* A13= RESERVED X P* Y @ P************************************************************ Y " PGETNXT EQU * Y f P IFT SNA=1 Y z * P CF A14,SAVE2 SAVE UNPACK INFORMATION Y , P LD A8,BUFPNT,A11 GET BUFFER TO RELEASE Y " P CF A14,RELBUF RELEASE BUFFER
0x3f8b50…3f8ce4 Dummy {f00=0x0140, f01=0x0190, f02=»PLAY MODIFIED FIELDS Y ~ P XIF Z P IFT SNA=1 Z ( PGETC10 EQU * Z : P CF A14,WAIT SYNCHRONIZE Z N " P LD A2,ECBEL,A8 SAVE LENGTH =4 Z n P ST A2,DCLENG,A11 . =4 Z P LDR A9,A1 Z P CF A14,REST2 Z P LDR A1,A9 GET RETURN CODE Z ( P SRC A1,1 FI
0x3f8ce4…3f8e78 Dummy {f00=0x0140, f01=0x0190, f02=»? Z j P RF(Z) GETC60 NO [ P LC A1,TCT01,A11 [ " " P CCK A1,VDUCOD PRINTER UNPACK? [ : P RF(NE) GETC20 YES [ ` 0 P CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE [ z PGETC20 EQU * [ ( P XRKL A10,LICREC RESET LAST IN CHAIN [ P ORKL A10,NEWCH NEW CHAIN
0x3f8e78…3f900c Dummy {f00=0x0140, f01=0x0190, f02=»DR A1,A10 GET INTERNAL STATUS [ , P ORKL A10,LICREC LAST IN CHAIN RECEIVED & , P ANKL A1,LICREC LAST IN CHAIN RECEIVED? V P RF(Z) GETC60 NO 0 P CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE P ORKL A10,NEWCH NEW CHAIN PGETC60 EQU * * P
0x3f900c…3f91a0 Dummy {f00=0x0140, f01=0x0190, f02=» GET BUFFER ADDRESS $ P CF A14,READNW READ WITH NO WAIT ] , P CF A14,REST2 RESTORE UNPACK INFORMATION ] D P LDR A1,A10 ] t P ANKL A1,NEWCH NEW CHAIN? ] P RF(Z) GETC80 NO ] P IFT DISHOW=1 ] P XRKL A10,NEWCH RESET ] P LC A1,TCT01,A11 ]
0x3f91a0…3f9334 (7, 13) Dummy {f00=0x0140, f01=0x0190, f02=»=1 ] PGETC70 EQU * ^ P LDK A1,ICOMN1 NEXT LABEL ^ P ST A1,UNPMOD,A11 ^ @ PGETC80 EQU * ^ Z P LD A8,BUFPNT,A11 ^ n P SUR A9,A9 ^ P LDK A1,0 RETUR N CODE ^ PGETC90 EQU * ^ P XIF ^ P RTN A14 ^ P EJECT ^ B P******************
0x3f9334…3f94c8 Dummy {f00=0x0140, f01=0x0190, f02=»A PUT CHAR. IN DC BUFFER * ^ B P* * _ 8 B P************************************************************* _ ~ P* REGISTERS _ P* _ P* A1= RETURN CODE _ P* A11= CREDI
0x3f94c8…3f965c Dummy {f00=0x0140, f01=0x0190, f02=»*** _ V PPUTCHA EQU * ` P LDR A1,A1 SBA TO STORE? ` P RF(N) PUTC10 YES ` @ $ P CWK A9,BUFFL+BUFFL BUFFER FULL? ` Z P RF(NL) PUTC20 YES ` P RF PUTC30 ` PPUTC10 EQU * ` P LDKL A1,BUFFL+BUFFL-3 ` ( P SUR A1,A9 ROOM FOR SBA AND ADDRESS? `
0x3f965c…3f97f0 Dummy {f00=0x0140, f01=0x0190, f02=»AST IN CHAIN ` x " P CF A14,DCWRIT WRITE DC BUFFER a P LDR A9,A1 a : P CF A14,REST2 a L P LDR A9,A9 TRANSMISSION OK? a b P RF(NZ) PUTC90 NO a P SUR A9,A9 BUFFER INDEX a P LDR A8,A12 BUFFER ADDRESS a P XIF a P IFF SNA=1 a P CF A14,
0x3f97f0…3f9984 Dummy {f00=0x0140, f01=0x0190, f02=»AR. IN DC BUFFER a | P LDK A1,0 RETURN CODE b PPUTC90 EQU * b 6 P RTN A14 b J P EJECT b Z 6 P************************************************** b h 6 P* * b 6 P* PDCCH PUT CHAR. IN DC BUFFER
0x3f9984…3f9b18 Dummy {f00=0x0140, f01=0x0190, f02=»ISTERS b P* c P* A2= CHAR. c P* A3= RESERVED c , P* A4= RESERVED c B P* A5= RESERVED c X P* A6= RESERVED c n P* A8= ADDRESS IN DC-BUFFER c P* A9= DC-BUFFER INDEX c P* A10= INDICATOR c P* A11= RESERVED c P* A12= RESERVED c
0x3f9b18…3f9cac Dummy {f00=0x0140, f01=0x0190, f02=»L OVERFLOW? c ~ P RF(NL) PDC100 YES d P ANK A2,/FF d . P IFT EBCDIC=1 d B 8 P** ASCII - EBCDIC CONVERSION DELETED PR. 8625, DK** d X P XIF d " P SCR A2,A8 STORE IN DC-BUFFER d P ADKL A8,1 d P ADKL A9,1 d PPDC100 EQU * d P RTN A14 d
0x3f9cac…3f9e40 Dummy {f00=0x0140, f01=0x0190, f02=» * d d D P* GDCCH GET CHAR. IN DC BUFFER * e D P* * e d D P*************************************************************** e P* REGISTERS e P
0x3f9e40…3f9fd4 (7, 14) Dummy {f00=0x0140, f01=0x0190, f02=»* A6= RESERVED e P* A8= ADDRESS IN DC-BUFFER f P* A9= DC-BUFFER INDEX f 8 P* A10= INDICATOR f V P* A11= CREDIT WORK AREA f n P* A12= RESERVED f P* A13= RESERVED f P* f 8 P**************************************************** f PGDCC
0x3f9fd4…3fa168 Dummy {f00=0x0140, f01=0x0190, f02=» A2,A8 GET CHAR. f P ANK A2,/FF g P IFT EBCDIC=1 g , 4 P* EBCDIC-ASCII CONVERSION DELETED PR. 8625,DK* g B P XIF g z P ADKL A8,1 g P ADKL A9,1 g PGDCC90 EQU * g P RTN A14 g P EJECT g @ P********************************************
0x3fa168…3fa2fc Dummy {f00=0x0140, f01=0x0190, f02=» * g d @ P* * h @ P*********************************************************** h P* REGISTERS h P* h P* A2= AID h P* A11= RESERVED h P* A13= RESERVED h P* h >
0x3fa2fc…3fa490 Dummy {f00=0x0140, f01=0x0190, f02=»JECT h > P********************************************************** i > P* * i N > P* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER * i > P*
0x3fa490…3fa624 Dummy {f00=0x0140, f01=0x0190, f02=»SERVED i P* A4= RESERVED j P* A5= RESERVED j $ P* A6= RESERVED j : P* A8= RESERVED j P P* A9= RESERVED j f P* A10= RESERVED j | P* A11= RESERVED j P* A12= RESERVED j P* A13= RESERVED j P* j > P**********************************
0x3fa624…3fa7b8 Dummy {f00=0x0140, f01=0x0190, f02=»A2 CONVERT TO ASCII j $ P CF A14,PDCCH STORE IN DC-BUFFER k P LDR A2,A1 GET REL. POS. k D P ANK A2,/3F k d & P LC A2,CONADR,A2 CONVERT TO ASCII k x $ P CF A14,PDCCH STORE IN DC-BUFFER k P RTN A14 k P EJECT k @ P********************************
0x3fa7b8…3fa94c Dummy {f00=0x0140, f01=0x0190, f02=»MDT-BITS IN ATTRIBUTES * k p @ P* * l $ @ P************************************************************ l h P* REGISTERS l P* l P* A2= CHAR. l P* A3= ADDRESS IN VDU-BUFFER l P* A4=
0x3fa94c…3faae0 Dummy {f00=0x0140, f01=0x0190, f02=»REDIT WORK AREA l P* A12= RESERVED m P* A13= RESERVED m 0 P* m H B P************************************************************* m R PRESMDT EQU * m P LDK A1,0 FIRST SCREEN POS. m P LDKL A3,BVDU m P ADR A3,A11 m PRESM10 EQU * m
0x3faae0…3fac74 (7, 15) Dummy {f00=0x0140, f01=0x0190, f02=»M20 NO m P ANK A2,/FE RESET MDT-BIT n P SCR A2,A3 RESTORE n 0 PRESM20 EQU * n J P ADK A1,1 n ^ P ADK A3,1 n p P RB RESM10 n PRESM90 EQU * n P RTN A14 n P EJECT n < P******************************************************** n < P*
0x3fac74…3fae08 Dummy {f00=0x0140, f01=0x0190, f02=» * n | < P******************************************************** o , P* REGISTERS o l P* o P* A2= CHAR. o P* A3= RESERVED o P* A4= RESERVED o P* A5= RESERVED o P* A6= RESERVED o P* A8= RESERVED o
0x3fae08…3faf9c Dummy {f00=0x0140, f01=0x0190, f02=» 8 P*************************************************** p PP1WCC EQU * p @ P LC A2,CONATT,A2 IN EBCDIC p T P ST A2,WCC,A11 SAVE p v P ANK A2,1 RESET MDT-BITS? p P RF(Z) P1W900 NO p & P CF A14,RESMDT RESET ALL MDT-BITS p PP1W900 EQU * p
0x3faf9c…3fb130 Dummy {f00=0x0140, f01=0x0190, f02=» * p j > P* P2WCC TAKE CARE OF WCC AFTER UPDATE * q > P* * q ^ > P********************************************************* q P* REGISTERS q P* q P* A11= C
0x3fb130…3fb2c4 Dummy {f00=0x0140, f01=0x0190, f02=»**** q Z PP2WCC EQU * r " P CF A14,SAVE2 KEEP IT AWAY =4 r P LD A1,WCC,A11 r F P LDR A7,A1 r P ANK A7,4 SOUND? r n P RF(Z) P2W100 NO r P CF A14,SOUND SOUND r PP2W100 EQU * r P ANK A1,8 COPY? r P RF(Z) P2W300 NO r P LC A1,TCT
0x3fb2c4…3fb458 Dummy {f00=0x0140, f01=0x0190, f02=»P2W200 EQU * . =4 r " P CF A14,COPP COPY DIRECTLY =4 s PP2W300 EQU * s @ " P CF A14,REST2 TAKE IT BACK =4 s T P RTN A14 s z P EJECT s F P****************************************************************** s F P*
0x3fb458…3fb5ec Dummy {f00=0x0140, f01=0x0190, f02=» * s v F P****************************************************************** t 0 P* REGISTERS t z P* t P* A1= STACK POINTER t P* A2= CHAR. t P* A3= VDU BUFFER ADDRESS t P* A4= REL CURSOR POS. t P*
0x3fb5ec…3fb780 Dummy {f00=0x0140, f01=0x018e, f02=»ERVED t P* A13= RESERVED u P* u & D P**************************************************************** u 0 PSAVE1 EQU * u x & P LDKL A1,STACK1 GET STACK ADDRESS u P RF SAVE u PSAVE2 EQU * u P LDKL A1,STACK2 u PSAVE EQU * u P ADR
0x3fb780…3fb914 (7, 16) Dummy {f00=0x0141, f01=0x0190, f02=» u P ADK A1,2 v P STR A6,A1 v P ADK A1,2 v , P STR A7,A1 v > P ADK A1,2 v P P STR A10,A1 v b P RTN A14 v v P EJECT v H P******************************************************************* v H P*
0x3fb914…3fbaa8 Dummy {f00=0x0141, f01=0x0190, f02=» * v x H P******************************************************************* w 4 P* REGISTERS w P* w P* A1= STACK POINTER w P* A2= CHAR. w P* A3= VDU BUFFER ADDRESS w P* A4= REL. CURSOR POS. w
0x3fbaa8…3fbc3c Dummy {f00=0x0141, f01=0x0190, f02=»T WORK AREA w P* A12= RESERVED x P* A13= RESERVED x , P* x D D P*************************************************************** x N PREST1 EQU * x & P LDKL A1,STACK1 GET STACK ADDRESS x P RF RESTOR x PREST2 EQU * x P LDKL A1,STACK
0x3fbc3c…3fbdd0 Dummy {f00=0x0141, f01=0x0190, f02=»1 x P ADK A1,2 y P LDR* A5,A1 y P ADK A1,2 y 0 P LDR* A6,A1 y B P ADK A1,2 y V P LDR* A7,A1 y h P ADK A1,2 y | P LDR* A10,A1 y P RTN A14 y P EJECT y < P******************************************************* y < P*
0x3fbdd0…3fbf64 Dummy {f00=0x0141, f01=0x0190, f02=» * y < P******************************************************* z 0 PBUFFER EQU * z p P DATA *+2 POINTER FIRST FREE z P IFF BUFFNR=1 z P DATA *+LINK z P RES BUFFL z P IFF BUFFNR=2 z P DATA *+LINK z
0x3fbf64…3fc0f8 Dummy {f00=0x0141, f01=0x0190, f02=» z P IFF BUFFNR=5 { P DATA *+LINK { P RES BUFFL { 2 P IFF BUFFNR=6 { D P DATA *+LINK { Z P RES BUFFL { n P IFF BUFFNR=7 { P DATA *+LINK { P RES BUFFL { P IFF BUFFNR=8 { P DATA *+LINK { P RES BUFFL { P IFF BUFFNR=9 {
0x3fc0f8…3fc28c Dummy {f00=0x0141, f01=0x0190, f02=»NK { P RES BUFFL | P IFF BUFFNR=12 | P DATA *+LINK | 2 P RES BUFFL | F P IFF BUFFNR=13 | X P DATA *+LINK | n P RES BUFFL | P IFF BUFFNR=14 | P DATA *+LINK | P RES BUFFL | P IFF BUFFNR=15 | P DATA *+LINK | P RES BUFFL |
0x3fc28c…3fc420 Dummy {f00=0x0141, f01=0x0190, f02=»18 | P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=19 } 0 P DATA *+LINK } F P RES BUFFL } Z P IFF BUFFNR=20 } l P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=21 } P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=22 } P DATA *+LINK }
0x3fc420…3fc5b4 (7, 17) Dummy {f00=0x0141, f01=0x0190, f02=» } P IFF BUFFNR=25 ~ P DATA *+LINK ~ P RES BUFFL ~ 2 P IFF BUFFNR=26 ~ D P DATA *+LINK ~ Z P RES BUFFL ~ n P IFF BUFFNR=27 ~ P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=28 ~ P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=29 ~
0x3fc5b4…3fc748 Dummy {f00=0x0141, f01=0x0190, f02=»NK ~ P RES BUFFL P IFF BUFFNR=32 P DATA *+LINK 2 P RES BUFFL F P XIF X P DATA 0 d P RES BUFFL t P EJECT < P******************************************************* < P*
0x3fc748…3fc8dc Dummy {f00=0x0141, f01=0x0190, f02=» < P******************************************************* P* REGISTERS D P* X P* A8= DC-BUFFER ADDRESS b P* A9= INDEX IN DC-BUFFER P* A11= RESERVED P* A12= BUFFER ADDRESS P* A13= RESERVED P* < P**************
0x3fc8dc…3fca70 Dummy {f00=0x0141, f01=0x0190, f02=»F(NZ) GETB90 BUFFER FREE P LKM P DATA 0 SWITCH TASK , P RB GETB10 H PGETB90 EQU * Z P LDR* A1,A8 n P STR A1,A7 P ADKL A8,2 P LDR A12,A8 P SUR A9,A9 P RTN A14 P EJECT > P******************************
0x3fca70…3fcc04 Dummy {f00=0x0141, f01=0x0190, f02=»ER * n > P* * > P********************************************************* b P* REGISTERS P* P* A8= BUFFER ADDRESS P* A11= RESERVED P* A13= RESERVED
0x3fcc04…3fcd98 Dummy {f00=0x0141, f01=0x40d6, f02=» POINT TO LINK PRELB10 EQU * P LDR* A1,A7 * P RF(Z) RELB90 > P LDR A7,A1 T P RB RELB10 f PRELB90 EQU * x P STR A8,A7 P CMR A8 P RTN A14 P P END @ P* A11= RESERVED P* A13= RESERVED
0x3fcd98…3fcf2c Dummy {f00=0x0141, f01=0x2008, f02=»
0x3fcf2c…3fd0c0 Dummy {f00=0x0141, f01=0x0190, f02=»" T H U T L T E $ R M I L L P %$ L J U " %$ " U " " U " "H U " T % " T X ("? % T K' T R U " z U " " & Y * '^ " '^ Y )V " T & T R T D&? P '? L l & U " " %8X % P " W %8X$
0x3fd0c0…3fd254 (7, 18) Opaque[0x194]
0x3fd254…3fd3e8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2830, f03=0x0000}
0x3fd254…3fd3e8 IdxSect {
0x3fd254…3fd3e8 f00 = 0x0141 // 0x3fd254 @0x0
0x3fd254…3fd3e8 f01 = 0x0004 // 0x3fd256 @0x2
0x3fd254…3fd3e8 gno = [ // 0x3fd258 @0x4
0x3fd254…3fd3e8 [0x00]: C0x0141.0x2.0
0x3fd254…3fd3e8 [0x01]: C0x0141.0x3.0
0x3fd254…3fd3e8 ]
0x3fd254…3fd3e8 }
0x3fd3e8…3fd57c Dummy {f00=0x0141, f01=0x0190, f02=» $ P IDENT CTAB01 REL. 11.0 81/10/28 P , 8 P*************************************************** 4 8 P* * p 8 P* CTAB01, CTAB02, CTAB03, KEY CONVERSION FOR * 8 P* 6271, 6272 KEYBOARDS FOR DAN
0x3fd57c…3fd710 Dummy {f00=0x0141, f01=0x0190, f02=»*** ` P EJECT P********************* P* ENTRIES * 8 P********************* V P ENTRY CTAB01,CTAB02,CTAB03 t P EJECT PCTAB01 EQU * PCTAB02 EQU * PCTAB03 EQU * P " P DATA UNSH,SHIFT,UNSH,SHIFT,0
0x3fd710…3fd8a4 Dummy {f00=0x0141, f01=0x0190, f02=»3,SHIFT4,SHIFT5,SHIFT6,0 p PUNSH0 EQU * : P DATA /BAB1,/B2B3,/B4B5,/B6B7,/B8B9,/B0A2,/8489,/88A0 4 PUNSH1 EQU * r : P DATA /3031,/3233,/3435,/3637,/3839,/8F90,/852D,/8C8D PUNSH2 EQU * : P DATA /207F,/7F7F,/7F7F,/7F27,/7F3C,/7F2B,/2C2D,
0x3fd8a4…3fda38 Dummy {f00=0x0141, f01=0x0190, f02=»465,/6667,/6869,/6A6B,/6C6D,/6E6F | PUNSH5 EQU * * : P DATA /7071,/7273,/7475,/7677,/7879,/7A7C,/7B7D,/7E7F > PUNSH6 EQU * | : P DATA /7F92,/7FA5,/7F8A,/8B7F,/7F7F,/7F7F,/7F7F,/7F7F P EJECT PSHIFT0 EQU * : P DATA /C6B1,/B2B3,/B4B5,
0x3fda38…3fdbcc Dummy {f00=0x0141, f01=0x018e, f02=» : P DATA /207F,/7F7F,/7F7F,/7F2A,/7F3E,/7F3F,/385F,/3A7F PSHIFT3 EQU * B : P DATA /3D21,/2223,/2425,/262F,/2829,/8682,/8780,/8183 V PSHIFT4 EQU * : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F PSHIFT5 EQU * : P DATA /5051,/5
0x3fdbcc…3fdd60 Dummy {f00=0x0141, f01=0x400c, f02=» @ 07F,/7F7F,/7F7F,/7F2A,/7F3E,/7F3F,/385F,/3A7F PSHIFT3 EQU * B : P DATA /3D21,/2223,/2425,/262F,/2829,/8682,/8780,/8183 V PSHIFT4 EQU * : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F PSHIFT5 EQU * : P DATA /5051,/5
0x3fdd60…3fdef4 (7, 19) Dummy {f00=0x0141, f01=0x2008, f02=»
0x3fdef4…3fe088 Dummy {f00=0x0141, f01=0x0190, f02=» J F IDENT DEBUGM REL 11.0 81-07-26 870105041100 dBUG R |BUG ` , ( A :U A A p , ( ! @ ~ A A ~ @ A A , ( A @ A A @ A A " a
0x3fe088…3fe21c Dummy {f00=0x0141, f01=0x0190, f02=» h , ( , ( $ ( , 0 4 8 , ( 8 < h , ( 9 , ( Y , ( y
0x3fe21c…3fe3b0 Dummy {f00=0x0141, f01=0x0190, f02=» T :a R T <a Z _ = , ( :A , >a @ ( , ( " A P UW B X , ( 9 @ = / M Q , ( Y R S T Y G P H L , ( y V I U _v
0x3fe3b0…3fe544 Dummy {f00=0x0141, f01=0x0190, f02=» P A A x , ( . , + - ; # , ( $ : X " H W X " H TTB:AP x ACBRELA , ( * 9 H H A W W L , ( W@ H A A _p @ P A 1+ , ( !T u X A
0x3fe544…3fe6d8 Dummy {f00=0x0141, f01=0x0190, f02=»NDTID , ( ! ? > " @ , ( D @ T " ( ^ @ P > , ( R A A " @ T @ n , ( 3 W @ A W W 0 , ( $ S _, W W , ( s
0x3fe6d8…3fe86c Dummy {f00=0x0141, f01=0x0190, f02=» _` A , ( @ T @ W @ T @ W @ @ . , ( >a @ A ^ , ( 3 A , ( S ;a ]@ 1 _L W @ , ( s $ 0
0x3fe86c…3fea00 Dummy {f00=0x0141, f01=0x0190, f02=» @ Q A @ ~ , ( BT A " T @ W @ A , ( ! A P @ _2 N , ( 3 T 0 P P ~ , ( S _ @ @ , ( P s @ @ P
0x3fea00…3feb94 (7, 20) Opaque[0x194]
0x3feb94…3fed28 # DirEnt {nam=»DSPBSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2840, f03=0x0000}
0x3feb94…3fed28 IdxSect {
0x3feb94…3fed28 f00 = 0x0142 // 0x3feb94 @0x0
0x3feb94…3fed28 f01 = 0x000c // 0x3feb96 @0x2
0x3feb94…3fed28 gno = [ // 0x3feb98 @0x4
0x3feb94…3fed28 [0x00]: C0x0142.0x0.0
0x3feb94…3fed28 [0x01]: C0x0142.0x1.0
0x3feb94…3fed28 [0x02]: C0x0142.0x2.0
0x3feb94…3fed28 [0x03]: C0x0142.0x3.0
0x3feb94…3fed28 [0x04]: C0x0143.0x0.0
0x3feb94…3fed28 [0x05]: C0x0143.0x1.0
0x3feb94…3fed28 ]
0x3feb94…3fed28 }
0x3fed28…3feebc Dummy {f00=0x0142, f01=0x0190, f02=» 2 P IDENT DSPBSC REL 11.0 82-04-15DK 870150541100 P : B P************************************************************* B B P* * B P* MODULE DSPBSC
0x3feebc…3ff050 Dummy {f00=0x0142, f01=0x0190, f02=»S * Z B P* AND MULTIPLE WAIT FOR KB AND DC. * < P* (EMULATION 3270 BSC) * V B P* * B P********************************************
0x3ff050…3ff1e4 Dummy {f00=0x0142, f01=0x0190, f02=» * x D P* LIST OF ROUTINES * 0 D P* * x D P* VDUKB MAIN ROUTINE * $ P
0x3ff1e4…3ff378 Dummy {f00=0x0142, f01=0x0190, f02=»INIT INITIALIZE THE TASK * * P* COMINI COMMON INIT ROUTINE B $ P* ECBINI INIT OF ECB:S p D P* TSTDEV TEST KEYBOARD AND DISPLAY * D P*
0x3ff378…3ff50c Dummy {f00=0x0142, f01=0x0190, f02=»**************************************** ~ > P* * 0 > P* ENTRY POINTS * r > P* * > P******************
0x3ff50c…3ff6a0 Dummy {f00=0x0142, f01=0x0190, f02=»UTINE t P ENTRY ECBINI INIT OF ECB:S . P ENTRY MATCH MATCH TASID AND PHYS. ADDRESS 2 P d > P********************************************************** l > P* * > P* EXTERNAL REFERE
0x3ff6a0…3ff834 (7, 21) Dummy {f00=0x0142, f01=0x0190, f02=»****************************** t P & , P EXTRN I:EVA0 CREDIT EVALUATION ROUTINE . P EXTRN OPEN OPEN DC (DCBSC) ^ $ P EXTRN CONCT CONNECT DC (DCBSC) . P EXTRN SETTYM SET REQUEST TIMEOUT (DCBSC) 2 P EXTRN ERASE ERASE SCREEN AND VDU BUFFER (VD
0x3ff834…3ff9c8 Dummy {f00=0x0142, f01=0x018e, f02=»UTINE IN KEYB-MODULE (KEYB) | 6 P EXTRN DCINP MAIN ROUTINE IN DCSNA-MODULE (DCSNA) $ * P EXTRN LMP6OF OFFLINE LAMP OFF (KEYB) ^ " P EXTRN LMP1ON DC LINE 1 (KEYB) " P EXTRN LMP2ON DC LINE 2 (KEYB) . P EXTRN SOUND SOUND ALARM AT DISPLAY (VDU) &
0x3ff9c8…3ffb5c Dummy {f00=0x0142, f01=0x0190, f02=» 0 P EXTRN STOINF SAVE SCREEN INFORMATION (VDU) ( P EXTRN ICVRED INTERTASK READ (KEYB) 8 ( P EXTRN ICINP INTERTASK INPUT (KEYB) d * P EXTRN CHKSTA CHECK DC STATUS (DCBSC) 6 P EXTRN READK2 READ NUMERIC KEYB'RD, NO-WAIT (KEYB) , P EXTRN KBINP2 RO
0x3ffb5c…3ffcf0 Dummy {f00=0x0142, f01=0x0190, f02=» * | B P* CONDITIONAL ASSEMBLY PARAMETERS * 2 B P* * x B P************************************************************* P
0x3ffcf0…3ffe84 Dummy {f00=0x0142, f01=0x0190, f02=»1 NUMBER OF LINES (1-2) PNBRLIN EQU 2 * PX:M EQU 0 COPY COMMNAND INCLUDED IF:=1 4 PCOPCMD EQU 1 b " PX:O EQU 0 TEST INCLUDED IF:=1 v PTEST EQU 0 P EJECT @ P*********************************************************** @ P*
0x3ffe84…400018 Dummy {f00=0x0142, f01=0x0190, f02=» * n @ P*********************************************************** " P f P* n P* ECB INDEX TABLE x P* PECBIND EQU * P DATA 9 NUMBER OF ENTRIES P DATA X'2000' ECB KB P DATA X'3002' ECB PRINTER
0x400018…4001ac Dummy {f00=0x0142, f01=0x018e, f02=»INTERTASK WRITE ~ P DATA X'610C' ECB DC LINE1 " P DATA X'620E' ECB DC LINE2 DK : ( P DATA X'2110' ECB FOR NUMERIC KB DK ` P* $ P* SCREEN SIZE ON DISPLAY P* PLBVDU EQU 1920 P* P* MODES P* * PHCPMOD
0x4001ac…400340 Dummy {f00=0x0142, f01=0x0190, f02=» P* P* RELATIVE ADDRESSES IN P* TERMINAL WORKBLOCK TB1 . P* N POFFFLG EQU 1962 OFFLINE FLAG X * PPRTID EQU OFFFLG+2 TASKID FOR HARDCOPY | " PMAIN EQU PRTID+6 WHICH DC LINE . PECBBLK EQU MAIN+6 ECBBLK FOR MULTIPLE WAIT PREGI E
0x400340…4004d4 (7, 22) Dummy {f00=0x0142, f01=0x0190, f02=»N z P* COMMON WORKBLOCK CB1 P* ( * PMF1CU EQU 0 SYMBOLIC CLUSTER ADDDRESS 2 P IFF TEST=1 ` " PTSKTAB EQU MF1CU+26 TASK TABLE t P XIF P IFT TEST=1 $ PTSKTAB EQU MF1CU+219 TASK TABLE P XIF P EJECT > P************
0x4004d4…400668 Dummy {f00=0x0142, f01=0x0190, f02=» MAIN ROUTINE * > P* * 2 > P********************************************************* t P* REGISTERS P* P* A11= RESERVED P* A13= RESERVED P*
0x400668…4007fc Dummy {f00=0x0142, f01=0x0190, f02=» TEST KEYBOARD AND DISPLAY PVDU200 EQU * " " P CF A14,IOACT PREPARE ECB-BLK 6 P LDKL A7,ECBBLK P ADR A7,A11 t P LKM P DATA 7 MULTIPLE WAIT & P CF A14,IOCPL TAKE CARE OF REQUEST P RB VDU200 HERE WE GO AGAIN P EJECT
0x4007fc…400990 Dummy {f00=0x0142, f01=0x0190, f02=» P* P* P* BLK 2 3 P* KB KB : P* DC DC ^ P* IC P* P* P* P EJECT @ P******************************************************
0x400990…400b24 Dummy {f00=0x0142, f01=0x0190, f02=» * @ P************************************************************ : P* REGISTERS ~ P* ( P* A4= NUMBER OF ENTRIES IN ECB BLOCK P* A11= CREDIT WORK AREA P* A13= RESERVED
0x400b24…400cb8 Dummy {f00=0x0142, f01=0x0190, f02=» P LD A1,BSCMOD,A11 , P LD A2,ECBBLK+4,A11 REQ. ALREADY OUTST.? P RF(NZ) IOAC10 YES N P CF A14,TSTMES TEST MESSAGE h P ST A8,ECBBLK+4,A11 PIOAC10 EQU * P IFT COPCMD=1 * P ANKL A1,HCPMOD HARDCOPY OUTSTANDING? P RF(Z) I
0x400cb8…400e4c Dummy {f00=0x0142, f01=0x0190, f02=»VRED READ INTERATSK P ST A8,ECBBLK+8,A11 PIOAC30 EQU * 8 P ADK A4,1 L ( P LD A2,ECBBLK+2,A11 KB OUTSTANDING? ^ P RF(NZ) IOAC35 YES P CF A14,READKB READ KEYBOARD P ST A8,ECBBLK+2,A11 PIOAC35 EQU * . P* SECOND KEYB
0x400e4c…400fe0 Dummy {f00=0x0142, f01=0x0190, f02=»ADK2 READ SECOND KEYBOARD P ST A8,ECBBLK+6,A11 " P** END DK ** > PIOAC40 EQU * * P ST A4,ECBBLK,A11 SAVE NUMBER OF WAITS p P RTN A14 P EJECT @ P************************************************************ @ P*
0x400fe0…401174 (7, 23) Dummy {f00=0x0142, f01=0x0190, f02=» * p @ P************************************************************ $ P* REGISTERS h P* | P* A11= CREDIT WORK AREA P* A13= RESERVED P* @ P************************************************************
0x401174…401308 Dummy {f00=0x0142, f01=0x0190, f02=» KB v P RF IOCP90 6 P** SECOND KEYBOARD HANDLING P & T,81-10-19 DK ** PIOCP05 EQU * X $ P CW A8,ECBBLK+6,A11 KB2 INPUT ? n P RF(NE) IOCP10 NO P CM ECBBLK+6,A11 $ P CF A14,KBINP2 TAKE CARE OF KB2 P RF IOCP90 P**
0x401308…40149c Dummy {f00=0x0142, f01=0x0190, f02=»4,DCINP TAKE CARE OF DC P RF IOCP90 PIOCP20 EQU * 2 P CM ECBBLK+8,A11 F ( P CF A14,ICINP TAKE CARE OF INTERTASK ^ PIOCP90 EQU * P RTN A14 P EJECT D P*************************************************************** P*
0x40149c…401630 Dummy {f00=0x0142, f01=0x0190, f02=» REGISTERS P* P* $ D P**************************************************************** . PMATCH EQU * v P IFT COPCMD=1 ( P LDK A1,NBRTSK GET NUMBER OF ENTRIES P LD A3,6,A13 " P ADKL A3,TSKTAB START OF TABLE PMA
0x401630…4017c4 Dummy {f00=0x0142, f01=0x0190, f02=») MATC10 NO PMATC20 EQU * P LDK A1,1 INDICATE NOT FOUND ( P RF MATC90 L PMATC30 EQU * ^ P LCR A1,A3 r , P CCK A1,VDUCOD COPY IN RIGHT DIRECTION? P RB(NE) MATC20 NO P LDK A1,0 P LDR* A2,A3 PMATC90 EQU * P
0x4017c4…401958 Dummy {f00=0x0142, f01=0x0190, f02=» * v @ P* INIT INITIALIZE THE TASK * * @ P* * n @ P************************************************************ P* REGISTERS
0x401958…401aec Dummy {f00=0x0142, f01=0x0190, f02=»INIT EQU * P CF A14,COMINI COMMON INIT P CF A14,ECBINI INIT OF ECB:S 4 P CF A14,OPEN OPEN DC X P LDKL A8,20 t P LKM P DATA 6 P CF A14,CONCT CONNECT DC & P CF A14,SETTYM SET REQUEST TIMEOUT * P LDK A2,NBRTSK NUMBER OF T
0x401aec…401c80 Dummy {f00=0x0142, f01=0x0190, f02=»,4 P LCR A1,A9 P ANK A1,/FF ANY TASK AT ALL? P RB(Z) INIT10 NO @ P CCK A1,'VV' DISPLAY TASK? X P RB(E) INIT10 YES z P SLL A1,8 P LC A1,+1,A9 P ST A1,PRTID,A11 PINIT20 EQU * P IFT OFLIN=1 P LD A1,2,A14
0x401c80…401e14 (7, 24) Dummy {f00=0x0143, f01=0x018e, f02=» POINTER x P CM OFFFLG,A11 ( P CF A14,LMP6OF TURN OFF OFFLINE LAMP & P XIF R P LDK A4,0 ^ ( P LDKL A5,LBVDU+1 UNFORMATTED SCREEN p P LDK A6,0 * P CF A14,STOINF SAVE SCREEN INFORMATION ( P CF A14,ERASE ERASE THE WHOLE SCREEN P
0x401e14…401fa8 Dummy {f00=0x0143, f01=0x0190, f02=» PINIT30 EQU * P XIF & P CF A14,LMP1ON INDICATE DC LINE 1 ( PINIT40 EQU * R $ P CF A14,CHKSTA CHECK IF LINE OK f P RTN A14 P EJECT > P********************************************************** > P*
0x401fa8…40213c Dummy {f00=0x0143, f01=0x0190, f02=» * r > P********************************************************** $ P* REGISTERS f P* P* A11= CREDIT WORK AREA P* A13= RESERVED P* > P****************************************************
0x40213c…4022d0 Dummy {f00=0x0143, f01=0x0190, f02=»,A13 COMMON BLOCK BASE P LDR A1,A2 ! P ANK A1,X'FF' ! 0 * P SUK A1,X'30' GET OFFSET IN TASK TABLE ! F P SLL A1,2 TWO WORDS ENTRIES ! t P LDKL A4,TSKTAB ! P ADR A4,A3 ! " P ADR A1,A4 POINT TO YOUR LABLE ! ( P ST A1,REGI,A11 SAVE TASKTAB ADD
0x4022d0…402464 Dummy {f00=0x0143, f01=0x0190, f02=»TABLE LAYOUT ! P* " P* " P* " ( 4 P* DISPLACEMENT I/O FILECODE " 2 P* " j 2 P* 0 KB /20 " t 2 P* 2 PRINTER /30 " 2 P* 4 SIGNAL/DISP.
0x402464…4025f8 Dummy {f00=0x0143, f01=0x0190, f02=» INTERTASK W. /51 " 2 P* 12 DC LINE 1 /61 # ( 2 P* 14 DC LINE 2 /62 # ^ P* # P* # P* # P* # P EJECT # B P*************************************************************
0x4025f8…40278c Dummy {f00=0x0143, f01=0x018e, f02=» * # V B P* * $ B P************************************************************* $ R P* REGISTERS $ P* $ P* A4 = NUMBER OF ENTRIES $ P* A5 = NUMBER OF FC ALLOWED $ P* A6 =
0x40278c…402920 Dummy {f00=0x0143, f01=0x0190, f02=» P* % @ P************************************************************ % PECBINI EQU * % R " P LD A2,-8,A13 GET T:D ADDRESS % f & P LD A4,+4,A2 GET NUMBER OF ENTRIES % P LD A8,+6,A2 % P ADR A8,A13 % P LDR A6,A8 DAT POINTER % P SUKL A8,20
0x402920…402ab4 (7, 25) Dummy {f00=0x0143, f01=0x0190, f02=»ATA SET FC % PECBI20 EQU * & * P CCR A2,A7 FC IN DAT = FC CONFIGURED? & & P RF(E) ECBI30 YES & T P ADK A7,2 NEXT & n P SUK A5,1 NOT FOUND? & P RB(NZ) ECBI20 NOT YET & P LDKL A1,* DIAGNOSTIC & P ST A1,REGI,A11 & P LKM & P DATA 3
0x402ab4…402c48 Dummy {f00=0x0143, f01=0x0190, f02=»4,A8 SAVE IN DATA SET & * P LD A2,+18,A8 GET FIXED BUFFER IF ANY ' " P ST A2,+2,A8 SAVE IN DATA SET ' L ( P LC A2,+1,A7 GET INDEX TO ECB TABLE ' r P ANK A2,/FF ' P ADR A2,A11 ' & P ST A8,ECBTAB,A2 SAVE ECB ADDRESS ' P ADK A6,4 ' P SUKL
0x402c48…402ddc Dummy {f00=0x0143, f01=0x0190, f02=»*********************** ' j B P* * ( B P* TSTDEV TEST KEYBOARD AND DISPLAY * ( f B P* * ( B P**********************
0x402ddc…402f70 Dummy {f00=0x0143, f01=0x40ae, f02=» ( 6 P************************************************* ) PTSTDEV EQU * ) B , P CF A14,SOUND TURN ON SOUND ALARM AT VDU ) V P RTN A14 ) P ) P END ) @ ) * ( B P**********************
0x402f70…403104 Dummy {f00=0x0143, f01=0x2008, f02=» * * ! j @ <************************************************************ " I/OACT EQU * " b * & DATA VDU400 ACT. ONLY KB IN OPEN MODE " v . * DATA VDU300 ACT. KB AND DC IN SYSTEM MODE " . * DATA VDU300 ACT. KB AND DC IN MY JOB MODE "
0x403104…403298 Dummy {f00=0x0143, f01=0x2008, f02=» END FILE n 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 R 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF ALTERNATI
0x403298…40342c Dummy {f00=0x0143, f01=0x018e, f02=»QU 7 START OF TYPE RECORD , PNANSA EQU 2 NA-NSA RECORD QUALIFIER POS. " " PNAOFS EQU 3 START OF NA NUMBER R $ PNSAOFS EQU 4 START OF NSA RECORD x & PDTEFIX EQU 8 FIX PART OF DTE BLOCK P EJECT P**************** P* SOP-HANDLING * P
0x40342c…4035c0 Dummy {f00=0x0143, f01=0x0190, f02=» x " PLMP3 EQU /100 MEMORY OVERFLOW , PLMP4 EQU /80 ERROR IN CONFIGURATION DATA . PLMP5 EQU /40 NOT USED ^ PLMP6 EQU /20 NOT USED | PLMP7 EQU /10 NOT USED PLMP8 EQU 8 NOT USED PLMP9 EQU 4 NOT USED PLMP10 EQU 2 NOT USED
0x4035c0…404260 (8, 0) DirGranule ((8, 0)) {
0x4035c0…404260 DirEnt {nam=»SCLASS«, typ=» «, f00=0x0000, f01=0x0000, f02=0x2870, f03=0x0000}
0x4035c0…404260 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x2878, f03=0x0008}
0x4035c0…404260 }
0x404260…4043f4 (8, 1) Opaque[0x194]
0x4043f4…404588 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x2878, f03=0x0008}
0x4043f4…404588 IdxSect {
0x4043f4…404588 f00 = 0x0143 // 0x4043f4 @0x0
0x4043f4…404588 f01 = 0x0002 // 0x4043f6 @0x2
0x4043f4…404588 gno = [ // 0x4043f8 @0x4
0x4043f4…404588 [0x00]: C0x0143.0x3.0
0x4043f4…404588 ]
0x4043f4…404588 }
0x404588…40471c Dummy {f00=0x0143, f01=0x018e, f02=» 2 P IDENT SCLASS REL 11.0 81-01-26 870105041100 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWII01 P EXTRN DWIO01 P EXTRN DW1501 P* P* P* P* P
0x40471c…4048b0 Dummy {f00=0x0143, f01=0x4132, f02=» t P DATA /0050 P DATA DWII01 ( P DATA /0051 H P DATA DWIO01 h P DATA /0061 P DATA DW1501 PTC00E EQU * PTC01 DATA TC01E-* PTC
0x4048b0…404a44 Dummy {f00=0x0143, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x404a44…404bd8 Dummy {f00=0x0143, f01=0x0190, f02=»GICAL ADDRESS 2 P* TO SEGMENT 3 P* 3 , P LDR A2,A8 GET MMU ENTRY 3 6 & P SLL A2,12 MOVE TO 4 LEFTMOST BITS 3 V 6 P ST A2,APLLAP,A1 SAVE IN APPLICATION CONTROL BLOCK 3 ( P ORR A2,A4 CONCATENATE DISPLACEMENT 3 8 P ST A2,LSTASG+STKEND AND SAVE AS L
0x404bd8…404d6c Dummy {f00=0x0143, f01=0x0190, f02=»MMU ENTRIES TO UPDATE 3 z ( P LDKL A6,MMEND INITIATE MMU POINTER 4 & P LDKL A8,16 AND MMU ENTRY POINTER 4 J & P LDR A4,A5 AREA LEFT IN LAST FRAME 4 t PAP:335 EQU * 4 P* 4 ( P* COMPUTE APPLICATION START ADDRESS 4 P* 4 0 P* A1 - POINTER TO APP
0x404d6c…404f00 Dummy {f00=0x0143, f01=0x0190, f02=»DRESS 4 | P* A8 - CURRENT MMU ENTRY 5 P* 5 0 0 P LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART 5 : * P LD A3,APLTYP,A1 GET APPLICATION TYPE 5 n P CWK A3,'AS' ASSEMBLER? 5 P RF(NE) AP:336 NO! 5 P* 5 , P ADK A2,10 YES, ADD 5 WORDS FOR DEBUGGER
0x404f00…405ba0 (9, 0) DirGranule ((9, 0)) {
0x404f00…405ba0 DirEnt {nam=»DRGP02«, typ=» «, f00=0x0000, f01=0x0000, f02=0x2880, f03=0x0000}
0x404f00…405ba0 DirEnt {nam=»DRGP02«, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x2888, f03=0x0008}
0x404f00…405ba0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x28e8, f03=0x0000}
0x404f00…405ba0 DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28f8, f03=0x0000}
0x404f00…405ba0 DirEnt {nam=»DATBSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2948, f03=0x0000}
0x404f00…405ba0 }
0x405ba0…405d34 (9, 1) Opaque[0x194]
0x405d34…405ec8 # DirEnt {nam=»DRGP02«, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x2888, f03=0x0008}
0x405d34…405ec8 IdxSect {
0x405d34…405ec8 f00 = 0x0144 // 0x405d34 @0x0
0x405d34…405ec8 f01 = 0x0018 // 0x405d36 @0x2
0x405d34…405ec8 gno = [ // 0x405d38 @0x4
0x405d34…405ec8 [0x00]: C0x0144.0x1.0
0x405d34…405ec8 [0x01]: C0x0144.0x2.0
0x405d34…405ec8 [0x02]: C0x0144.0x3.0
0x405d34…405ec8 [0x03]: C0x0145.0x0.0
0x405d34…405ec8 [0x04]: C0x0145.0x1.0
0x405d34…405ec8 [0x05]: C0x0145.0x2.0
0x405d34…405ec8 [0x06]: C0x0145.0x3.0
0x405d34…405ec8 [0x07]: C0x0146.0x0.0
0x405d34…405ec8 [0x08]: C0x0146.0x1.0
0x405d34…405ec8 [0x09]: C0x0146.0x2.0
0x405d34…405ec8 [0x0a]: C0x0146.0x3.0
0x405d34…405ec8 [0x0b]: C0x0147.0x0.0
0x405d34…405ec8 ]
0x405d34…405ec8 }
0x405ec8…40605c Dummy {f00=0x0144, f01=0x0190, f02=» 2 P IDENT DRGP02 REL 11.0 82-07-07 870105041100 P : P DK2, BASIC WRITE B P DK1 STR. TERM = /9C9C ^ ( P =1,TIME OUT IF INACTIVE, 25 SEC. ~ P PRR 11.0 80-11-19 P* < P*******************************************************
0x40605c…4061f0 Dummy {f00=0x0144, f01=0x0190, f02=»* * 4 P* DRGP02 = DRIVER GENERAL PRINTER * @ < P* * x < P* * < P*
0x4061f0…406384 Dummy {f00=0x0144, f01=0x0190, f02=»R HANDLES GENERAL PRINTER PTS 8081 P* * 4 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS : 4 P* l $ P* A C T P : ACTIVATION PART v P* $ P* R C T P : RECOVERY ROUTINE P* P* P EJECT P* * P* THE FOLL
0x406384…406518 Dummy {f00=0x0144, f01=0x0190, f02=» WRITE DK2 ~ * P* ORDER 0B : POSITION DOCUMENT . P* ORDER 24 : SET PRINTER PARAMETERS @ ( P* ORDER 38 : RELEASE DOCUMENT r P* , P* THE FOLLOWING RETURN CODES ARE USED: P* & P* BIT 0 : REQUEST ERROR
0x406518…4066ac Dummy {f00=0x0144, f01=0x018e, f02=»ERABLE v P* P* P* NORMAL REGISTER USAGE: " P* D " P* REGISTER A1: WORK REGISTER N " P* A2: INPUT/OUTPUT t $ P* A3: BUFFER POINTER " P* A4: WORK REGISTER " P* A5: STACK POINTER
0x4066ac…406840 Dummy {f00=0x0144, f01=0x0190, f02=» P* P* 0 P******************************************* P* P P* ENTRIES Z P* l 0 P******************************************* v P* P* P ENTRY GPAD8 ADDRESS BLOCK P* P* P* 0 P**********
0x406840…4069d4 (9, 2) Dummy {f00=0x0144, f01=0x018e, f02=» P* , P EXTRN LDISP DISPATCHING FROM INTERRUPT $ P EXTRN LENDER DISPATCH I/O ERROR B & P EXTRN LENDIS END I/O AND DISPATCH j & P EXTRN OUTPUT OUTPUT ONE CHARACTER 0 P EXTRN GETCHR GET CHARACTER FROM ECB BUFFER P EXTRN SETIMP SET TIME
0x4069d4…406b68 Dummy {f00=0x0144, f01=0x018e, f02=» j P EXTRN DWTSB2 STACK BASE 2 P EXTRN INPUT STORE REG = GET STATUS INPUT CHAR ( $ P EXTRN STABLK DEF START OF BLOCK ^ " P EXTRN ENDBLK DEF END OF BLOCK P EXTRN DWTDEV DEVICE STATUS P EJECT P* P* . P******************
0x406b68…406cfc Dummy {f00=0x0144, f01=0x0190, f02=» " PSPEC EQU /2E SPECIAL CHARACTER PLF EQU /0A LINE FEED . PFF EQU /0C FORM FEED J PCR EQU /0D CARRIAGE RETURN f PSO EQU /0E SHIFT OUT PSI EQU /0F SHIFT IN PESC EQU /1B ESCAPE , PCSI EQU /5B CONTROL SEQUENCE INTRODUCER
0x406cfc…406e90 Dummy {f00=0x0144, f01=0x0190, f02=»SITION FRONT FEED x " PEJFF EQU /38 EJECT FRONT FEED ( PSNV EQU /77 SELECT NATIONAL VERSION @ $ PSLPL EQU /76 SELECT PAGE LENGTH l & PRIS EQU /63 RESET TO INITIAL STATE $ PDSR EQU /6E DEVICE STATUS REPORT & PDCS EQU /50 DEVICE CONTROL STRING
0x406e90…407024 Dummy {f00=0x0144, f01=0x0190, f02=»TIMER =1 | P EJECT P* " P* , > P********************************************************* 6 P* x P* CONTROL SEQUENCES P* > P********************************************************* P* P* PBYTE FORM
0x407024…4071b8 Dummy {f00=0x0144, f01=0x0190, f02=»NEG * PCSVPR EQU * VERTICAL POSITION RELATIVE P BYTE ESC,CSI : P BYTE ZERO,ZERO P P BYTE ZERO,VPR h P BYTE NEG,NEG ~ " PCSINFF EQU * INPUT FRONT FEED P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE INFF,NEG . PCSVPFF EQU
0x4071b8…40734c Dummy {f00=0x0144, f01=0x0190, f02=»D t P BYTE ESC,EJFF P BYTE NEG,NEG P EJECT 6 PCSSNV EQU * D P SELECT NATIONAL VERSION X P BYTE ESC,CSI z P BYTE ZERO,ZERO P BYTE SNV,NEG " PCSSLPL EQU * SELECT PAGELENGTH P BYTE ESC,CSI P BYTE ZERO,ZER
0x40734c…4074e0 Dummy {f00=0x0144, f01=0x0190, f02=» $ PCSDSR EQU * DEVICE STATUS REPORT P BYTE ESC,CSI 0 P BYTE /35,DSR F P BYTE NEG,NEG P EJECT r P* P* < P******************************************************* P* P* CONDITIONAL ASSEMBLY P* < P**
0x4074e0…407674 (9, 3) Dummy {f00=0x0144, f01=0x0190, f02=»OSEN d 8 P* BY SETTING X:A TO 1-15 ACCORDING TO THE LIST BELOW P* H P* R 4 P* NCV=1 GERMANY,AUSTRIA,LUXEMBOURG,SWITZERLAND F P =2 GREAT BRITAIN,NETHERLANDS,BELGIUM,NEW ZEELAND,SOUTH AFRICA 0 P =3 FRANCE,SWITZERLAND,BELGIUM,LUXEMBOU
0x407674…407808 Dummy {f00=0x0144, f01=0x0190, f02=»ORWAY P =8 PORTUGAL,BRAZIL P =9 YUGOSLAVIA , P =10 USA,CANADA,AUSTRALIA F $ P =11 SWEDEN (SPECIAL VERSION) j P =13 GREEK $ P =14 JAPAN (KATAKANA VERSION) $ P =15 ISRAEL (HEBREW VERSION) P* P*
0x407808…40799c Dummy {f00=0x0144, f01=0x0190, f02=»XCLUDED p P* BY SETTING X:B = 0 P* , P* 6 PX:B EQU 1 @ " PFFDEV EQU 0 FRONT FEED DEVICE R P* x P* P* ( P* THE STANDARD PAGELENGTH IS DEFINED & P* BY SETTING X:C = NUMBER OF LINES P* P* PX:C EQU
0x40799c…407b30 Dummy {f00=0x0144, f01=0x0190, f02=» n P* P* PX:D EQU 36 * PDOCLEN EQU 48 2 P EJECT H P* V P* ` P* j P* MMU BUFFER SIZE t P* P* PX:E EQU 132 PDVBLEN EQU 256 P* P* P* . P* A PROGRAM VERSION USING TOSS
0x407b30…407cc4 Dummy {f00=0x0144, f01=0x0190, f02=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0 : P* l P* v PCPU852 EQU 0 P EJECT P* P* 0 P******************************************* P* P* DWT - DISPLACEMENT
0x407cc4…407e58 Dummy {f00=0x0144, f01=0x0190, f02=»INED PART n P* P IFT MMUPAG=0 PSTART EQU DWTDRD 2 P XIF J P* V P IFT MMUPAG=1 ` PSTART EQU DWTDRD+4 v P XIF P* " PDWTTP EQU /2 TIMER POINTER =1 ( PDWTDCS EQU /4 DOCUMENT CHARACTER SET ( PDWTPCS EQU /6 PR
0x407e58…407fec Dummy {f00=0x0144, f01=0x0190, f02=»E ON DOCUMENT x , PDWTRLN EQU /E REQUESTED LINE ON DOCUMENT , PDWTRC EQU /11 RETURN CODE (ACKUMULATED) F * PDWTSTR EQU /12 CONTROL SEQUENCE ADRESS v > PDWTDISP EQU /14 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. * PDWTACD EQU /16 ACTUAL COLUMN DOCUM
0x407fec…408180 Dummy {f00=0x0144, f01=0x0190, f02=»TSYST EQU /22 SYSTEM START IND. , PDWTLFD EQU /24 LINE/FORM FEED INDICATOR ( P EJECT X P* f P* p 0 P******************************************* z P* P* ECB - DISPLACEMENTS P* 0 P****************************************
0x408180…408314 (9, 4) Dummy {f00=0x0145, f01=0x0190, f02=» IN ECB t " PECBRC EQU 8 RETURN CODE IN ECB $ PECBCW EQU 10 CONTROL WORD IN ECB 6 P EJECT ^ P* l 0 P******************************************* v P* P* TABLES P* 0 P******************************************* P*
0x408314…4084a8 Dummy {f00=0x0145, f01=0x0190, f02=»IVER x " P DATA 0 ABORT ROUTINE ADDRESS P DATA 0 INTERRUPT HANDLER 2 P DATA RCTP RECOVERY ROUTINE T PTPTAB EQU * x P IFT FFDEV=1 P DATA /0107,/0C25,/3939 P XIF P DATA /0006,/2424,/0505 DK2 PTPLEN EQU *-TPTAB
0x4084a8…40863c Dummy {f00=0x0145, f01=0x0190, f02=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR P* B P* L P* V PACTP EQU * ACTIVATION ENTRY ` P* P* : P* GET DWT INDEX: 0=CONTINUOUS STATIONARY, 1=DOCUMENT P* " P LC A2,DWTOR,A6 GET DWT INDEX P A
0x40863c…4087d0 Dummy {f00=0x0145, f01=0x018e, f02=» r P CWK A7,/05 ORDER 5? DK2 P RF(E) ACT003 YES DK2 ( & P ADR A7,A2 ADD DWT INDEX TO ORDER F PACT003 EQU * DK2 p * P SC A7,DWTOR+1,A6 STORE MODIFIED ORDER PACT005 LDK A3,TPLEN-1 . PACT010 CC A7,TPTAB,A3 CHECK IF LEGAL ORDER P
0x4087d0…408964 Dummy {f00=0x0145, f01=0x0190, f02=» P* PACT020 EQU * P ADR A3,A3 GET INDEX " P ABI TPFUC,A3 EXECUTE ORDER > P EJECT b PTPFUC EQU * p P IFT FFDEV=1 4 P DATA TSTSTA,WRTDOC,POSDOC,DOCPAR,RELDOC,RELDOC P XIF 8 P DATA TSTSTA,WRTCON,CSTPAR,CSTPAR,BASWRT,BAS
0x408964…408af8 Dummy {f00=0x0145, f01=0x0190, f02=» CF A5,RESREC * P CF A5,GTSTAT GET STATUS FROM PRINTER P ABL LENDIS END REQUEST D P* d P* n P* ORDER 05 : BASIC WRITE x P* P* PBASWRT EQU * P LDK A3,0 PBAS10 EQU * & P LDK A4,/90 TEST FOR END OF BLOC
0x408af8…408c8c Dummy {f00=0x0145, f01=0x0190, f02=» CF A15,GETCHR GET A CHARACTER P LDR A1,A1 FINISHED? ( P RF(Z) BAS25 YES F P CF A5,OUTPUT NO, SEND IT ` " P ABL(NZ) ERROUT QUIT IF ERROR P SUK A4,1 END OF BLOCK? P RF(Z) BAS20 YES $ P RB BAS15 NO, GET ANOTHER CHAR.
0x408c8c…408e20 Dummy {f00=0x0145, f01=0x0190, f02=»U * P CF A5,ENDBLK " P ABL(NZ) ERROUT QUIT IF ERROR $ ( P RB TSTSTA TEST STATUS & END REQUEST J P EJECT v P EJECT P IFT FFDEV=1 P* P* P* ORDER 06: WRITE DOCUMENT P* P* PWRTDOC EQU * P
0x408e20…408fb4 (9, 5) Dummy {f00=0x0145, f01=0x0190, f02=»L A3,/2000 * P TM A1,A3 DOCUMENT OUT? P RF(Z) WRDO06 NO 6 0 P LDKL A3,/8000 YES.SET BIT 0 (REQUEST ERROR) N . P ORS A3,ECBRC,A8 SET REQUEST ERROR IN R.C. P ABL LENDIS END REQUEST PWRDO05 EQU * * PWRDO06 LDK A3,1 P TM
0x408fb4…409148 Dummy {f00=0x0145, f01=0x0190, f02=»K START OF BLOCK P ABL(NZ) ERROUT JMP IF ERROR , P LD A3,DWTDEV+DWTALN,A6 GET ACTUAL LINE < P RF(NZ) WRDO15 l ( P LDK A3,1 SET UP ECB BUFFER POINTER * P CF A15,GETCHR GET CONTROL CHARACTER P SUK A2,/31 CTRL CHAR=/31 ? , P ABL(NE)
0x409148…4092dc Dummy {f00=0x0145, f01=0x0190, f02=»L A2,CSINFF INPUT FRONT FEED : P LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NO DISPLACEMENT & & P CF A5,SEND SEND INPUT FRONT FEED d P LD A3,DWTDEV+DWTRLN,A6 4 P ST A3,DWTDEV+DWTALN,A6 SET DWTDEV+DWTALN=DWTRLN P 0 PWRDO15 LDKL A2,CSSNV SELEC
0x4092dc…409470 Dummy {f00=0x0145, f01=0x018e, f02=» P CF A5,ENDBLK END OF BLOCK ! P ABL(NZ) ERROUT JMP IF ERROR ! & P* ! J " P* EXAMINE CONTROL CHARACTER ! T P* ! z $ P LDK A3,1 SET ECB BUFFER POINTER ! ( P CF A15,GETCHR GET CONTROL CHARACTER ! & P LD A1,DWTDEV,A6 GET DEVICE STATUS ! ( P ANKL
0x409470…409604 Dummy {f00=0x0145, f01=0x0190, f02=» ! ~ , PWRT04 LDR A4,A2 SAVE CONTROL CHAR. IN A4 " P LD A2,ECBRL,A8 " 8 P ADK A2,/8 MAX BLOCK SIZE " P P CF A5,STABLK START OF BLOCK " r P ABL(NZ) ERROUT JMP IF ERROR " ( P LDR A2,A4 RESTORE CONT. CHAR. IN A2 " 6 P CM DWTDEV+DWTCO2,A6 CLEAR DOCUMEN
0x409604…409798 Dummy {f00=0x0145, f01=0x018e, f02=»D ? " r & P ABL(Z) WRT14 YES, ALLREADY DONE ! # P* # 6 * P RF ONELF1 PRINT AFTER ONE LINE FEED ! # @ P* # n " P* EXECUTE CONTROL CHARACTER # x P* # 2 PWRT03 LD A4,DWTDEV+DWTCO2,A6 GET ACTUAL COLUMN # P RF(Z) WRT05 # & P SUK A4,1 FOR CORRECT
0x409798…40992c Dummy {f00=0x0145, f01=0x018e, f02=» B P SC A4,DWTDEV+DWTACD+2,A6 STORE THE VALUE IN ACTUAL COL. DOC. $ P SRL A4,8 $ J 6 P SC A4,DWTDEV+DWTACD+1,A6 SHIFT FOR CORRECT DIGITS $ P* $ PWRT09 LDKL A2,/8C BLOCK SIZE $ P CF A5,STABLK START OF BLOCK $ P ABL(NZ) ERROUT JMP IF ERROR $
0x40992c…409ac0 Dummy {f00=0x0145, f01=0x0190, f02=» P ABL(NZ) ERROUT JMP IF ERROR % P LDKL A2,CSREP REPEAT % ( > P LDKL A3,DWTDEV+DWTACD ACTUAL COLUMN DOCUMENT DISPLACEMENT % F P CF A5,SEND SEND REPEAT % P ABL WRT15 % P* % 2 PTWOLF1 LD A1,DWTDEV+DWTRLN,A6 GET REQ LINE NO % & P CF A5,BINARY
0x409ac0…409c54 (9, 6) Dummy {f00=0x0145, f01=0x0190, f02=»O % d P CF A5,BINARY & " PTWO SUK A3,1 INCR REQ LINE NO & P LDR A4,A3 & F & P CF A5,KONVER CONV BINARY TO ASCII & X . P ST A4,DWTDEV+DWTRLN,A6 STORE REQ LINE NO & 0 P LDKL A2,CSVPFF VERTICAL POSITION FRONT FEED & > P LDKL A3,DWTDEV+DWTRLN REQUESTED
0x409c54…409de8 Dummy {f00=0x0145, f01=0x018e, f02=»NE & ^ P RF WRT14 ' P* ' 2 P* REPEAT WRITE REQUEST AT DOCUMENT STATION ' & P* ' PREP1 CF A5,RESREC ' f * P SUK A2,/2B PRINT WITHOUT LINE FEED ? ' P RB(Z) WRT09 YES ' * P LD A1,DWTDEV+DWTLFD,A6 GET INDICATOR ' $ P RF(NZ) WRT15 JMP IF
0x409de8…409f7c Dummy {f00=0x0145, f01=0x0190, f02=» ' f P* ( P* ( PWRTCON EQU * ( $ P CF A5,GTSTAT GET DEVICE STATUS ( 0 P LDKL A3,/2000 * ( X P TM A1,A3 END OF PAPER? ( r P RF(Z) WRCO05 NO. ( P ABL ENDIO END REQUEST ( " PWRCO05 LDK A3,1 NOT OPERABLE? ( P TM A1,A3 ( P RF(Z)
0x409f7c…40a110 Dummy {f00=0x0145, f01=0x0190, f02=» ERROUT JMP IF ERROR ( * P LDKL A2,CSSNV SELECT NATIONAL VERSION ) : P LDKL A3,DWTDEV+DWTPCS PRINTER CHAR. SET DISPLACEMENT ) J , P CF A5,SEND SEND SELECT NATIONAL VERSION ) P CF A5,ENDBLK END OF BLOCK ) P ABL(NZ) ERROUT JMP IF ERROR ) P* ) . P
0x40a110…40a2a4 Dummy {f00=0x0145, f01=0x0190, f02=»CTER ) p & P LD A1,DWTDEV,A6 GET DEVICE STATUS * ( P ANKL A1,/20 HAS POWER OFF OCCURED ? * 6 P RF(NZ) REP2 YES * b P* * z * P SUK A2,/2B PRINT WITHOUT LINE FEED ? * P RF(Z) WRC03 YES * , PWRC04 LDR A4,A2 SAVE CONTROL CHAR. IN A4 * P LD A2,ECBRL,A
0x40a2a4…40a438 Dummy {f00=0x0145, f01=0x0190, f02=»T. CHAR. IN A2 * z 2 P CM DWTDEV+DWTCO1,A6 CLEAR PAPER COL. COUNTER + * P SUK A2,5 PRINT AFTER TWO LINE FEED ? + L P RF(Z) TWOLF2 YES + z P* + & P SUK A2,1 PRINT AFTER FORM FEED ? + P RF(Z) FORMF YES + P* + * P RF ONELF2 PRINT AFTER ONE LIN
0x40a438…40a5cc Dummy {f00=0x0145, f01=0x0190, f02=» * P RF(Z) WRC05 FOR CORRECT NO OF SPACES , P SUK A4,1 , 2 . PWRC05 CF A5,KONVER CONVERT BINARY TO ASCII , D D P SC A2,DWTDEV+DWTACP,A6 STORE THE VALUE IN ACTUAL COL. CONTINOUS , v @ P ST A4,DWTDEV+DWTACP+2,A6 STORE THE VALUE IN ACT. COL. CONT. , P* ,
0x40a5cc…40a760 Dummy {f00=0x0145, f01=0x0190, f02=»6 , z , P RF(Z) WRT15 JMP IF NO PRECEIDING SPACES - P LDK A2,/20 SEND SPACE - : P CF A5,OUTPUT - X P ABL(NZ) ERROUT JMP IF ERROR - n P LDKL A2,CSREP REPEAT - < P LDKL A3,DWTDEV+DWTACP ACTUAL COLUMN PAPER DISPLACEMENT - P CF A5,SEND SEND REPEAT
0x40a760…40a8f4 (9, 7) Dummy {f00=0x0145, f01=0x0190, f02=»ELF2 LDK A2,LF SEND LINE FEED - P CF A5,OUTPUT . & P ABL(NZ) ERROUT JMP IF ERROR . < P RF WRT14 . ` P* . r " PFORMF LDK A2,FF SEND FORM FEED . | P CF A5,OUTPUT . P ABL(NZ) ERROUT JMP IF ERROR . P RF WRT14 . P* . 2 P* REPEAT WRIT
0x40a8f4…40aa88 Dummy {f00=0x0145, f01=0x018e, f02=» . * P LD A1,DWTDEV+DWTLFD,A6 GET INDICATOR / $ P RF(NZ) WRT15 JMP IF LF/FF DONE / 6 P RB WRC04 / ^ P EJECT / p P* / ~ 2 P* ORDER 06 : THIS PART SENDS THE CHARACTERS / . P* TO DOCUMENT OR CONTINOUS STATIONARY. / P* / 2 PWRT14 IM DWTDE
0x40aa88…40ac1c Dummy {f00=0x0145, f01=0x0190, f02=» P LDR A4,A1 BUFFER FINISHED ? 0 P RF(P) WRT20 NO 0 ( . PWRT17 SUK A3,/02 ECB BUFFER POINTER = /02 0 @ P RF(Z) WRT18 YES. 0 r ( P LDK A2,CR NO. SEND CARRIAGE RETURN 0 P CF A5,OUTPUT 0 P ABL(NZ) ERROUT JMP IF ERROR 0 $ PWRT18 CF A5,ENDBLK END
0x40ac1c…40adb0 Dummy {f00=0x0145, f01=0x0190, f02=»* 0 P LDR A4,A2 1 P* 1 @ P* EXAMINE CHARACTER AND SEND DEPENDING ON TYPE OF CHARACTER 1 & P* 1 j P 1 t P SUK A4,/20 CHAR < /20? 1 | ( P RB(N) WRT16 YES GET A NEW CHARACTER 1 P SUK A4,/5F CHAR < /7F? 1 P RF(N) WRT25 YES. 1 P SUK A
0x40adb0…40af44 Dummy {f00=0x0145, f01=0x0190, f02=»4,ECBRC,A8 1 P RB WRT16 2 PWRT30 LDK A2,/2E 2 $ PWRT25 LDR A4,A1 2 < P CF A5,OUTPUT SEND CHARACTER 2 T P ABL(NZ) ERROUT JMP IF ERROR 2 x $ P LC A2,DWTOR+1,A6 GET DWT INDEX 2 P ANK A2,1 DOCUMENT? 2 P RF(NZ) WRT40 YES 2 . P IM DWTDEV+DWT
0x40af44…40b0d8 Dummy {f00=0x0145, f01=0x0190, f02=»* 2 . P CM DWTDEV+DWTLFD,A6 CLEAR LF/FF INDICATOR 3 P ABL LENDIS END REQUEST 3 < P EJECT 3 P IFT FFDEV=1 3 j P* 3 ~ P* 3 $ P* ORDER 0B : POSITION DOCUMENT 3 0 P* CONTROL WORD CONTAINS REQUESTED LINE NO 3 P* 3 P* 3 " PPOSDOC
0x40b0d8…40b26c Dummy {f00=0x0145, f01=0x0190, f02=»* 3 P RF(NZ) POS020 YES 4 P LDK A2,/E BLOCK LENGTH 4 & P CF A5,STABLK START OF BLOCK 4 F P ABL(NZ) ERROUT JMP IF ERROR 4 j * P LDKL A2,CSSNV SELECT NATIONAL VERSION 4 , P LDKL A3,DWTDEV+DWTDCS DOCUMENT VERSION 4 P CF A5,SEND SEND SNV 4 P
0x40b26c…40b400 Dummy {f00=0x0145, f01=0x0190, f02=»Z) POSERR ILLEGAL LINE NUMBER 4 $ P LD A1,DWTDEV+DWTDL,A6 MAX. LINE 5 & * P CF A5,BINARY CONVERT ASCII TO BINARY 5 N " P CWR A4,A3 REQ. LINE>MAX. LINE 5 | P RF(G) POSERR YES 5 P ADK A3,1 CORRECT POSITION 5 P SUR A4,A3 INVERT LINE NO. 5 ( P NGR A4,
0x40b400…40b594 (9, 8) Dummy {f00=0x0146, f01=0x0190, f02=»A4,DWTDEV+DWTALN,A6 GET ACTUAL LINE 5 . P RF(NZ) POS030 DOCUMENT ALREADY POSITIONED 6 , PPOS005 EQU * 6 ^ P LDK A2,/6 BLOCK LENGTH 6 r P CF A5,STABLK START OF BLOCK 6 P ABL(NZ) ERROUT JMP IF ERROR 6 $ P LDKL A2,CSINFF INPUT FRONT FEED 6 > P LDKL
0x40b594…40b728 Dummy {f00=0x0146, f01=0x0190, f02=»END OF BLOCK 6 P ABL(NZ) ERROUT JMP IF ERROR 7 P CF A5,GTSTAT GET STATUS 7 8 P LDR A2,A1 GET RETURN CODE 7 X ( P ANKL A2,/2000 PAPER DOCUMENT OUT ? 7 z 8 P RB(NZ) POS005 YES WAIT FOR DOCUMENT TO BE INSERTED 7 . P LD A4,DWTDEV+DWTRLN,A6 GET REQUESTED
0x40b728…40b8bc Dummy {f00=0x0146, f01=0x0190, f02=» 7 x P CF A5,STABLK START OF BLOCK 8 P ABL(NZ) ERROUT JMP IF ERROR 8 , 0 P LDKL A2,CSVPFF VERTICAL POSITION FRONT FEED 8 P > P LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT 8 2 P CF A5,SEND SEND VERTICAL POSITION FRONT FEED 8 P RB POS010 8
0x40b8bc…40ba50 Dummy {f00=0x0146, f01=0x0190, f02=»* ORDER 24 : SET DOCUMENT PARAMETERS 8 P* 9 , P* 9 6 $ PDOCPAR EQU * DOCUMENT PARAMETERS 9 @ P LDK A1,0 CLEAR A1 9 h P CF A5,RESREC 9 ( P LD A4,ECBCW,A8 GET NUMBER OF LINES 9 P SRL A4,8 GET LINES 9 $ P RF(Z) DOC010 NO CHANGE OF LINES 9
0x40ba50…40bbe4 Dummy {f00=0x0146, f01=0x0190, f02=»RDING TO INDEX 9 r 8 P ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH FOR DOCUMENT : PDOC010 EQU * : R 4 P LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION : f P ANK A4,/FF : 6 P RF(Z) DOC020 NO CHANGE OF NATIONAL CHARACTER SET : P CWK A4,/F INDEX TO BIG :
0x40bbe4…40bd78 Dummy {f00=0x0146, f01=0x0190, f02=»DEV+DWTDCS,A6 SET CHARACTER SET FOR DOCUMENT : PDOC020 EQU * ; 4 P RB ENDIO END REQUEST ; H P XIF ; f P EJECT ; r P* ; P* ; 6 P* ORDER 24 : SET CONTINUOUS STATIONARY PARAMETERS ; P* ; P* ; 6 PCSTPAR EQU * SET PARAMETERS CONTINUOUS
0x40bd78…40bf0c Dummy {f00=0x0146, f01=0x0190, f02=»S ; ~ $ P RF(Z) CST010 NO CHANGE OF LINES < P CWK A4,/10 INDEX TO BIG < 2 P RB(G) POSERR YES < R * P ADR A4,A4 ADJUST INDEX TO LINE TABLE < l 2 P LD A4,LINNUM,A4 GET LINES ACCORDING TO INDEX < : P ST A4,DWTDEV+DWTPL,A6 SET PAGE LENGTH FOR CONT.STAT. <
0x40bf0c…40c0a0 Dummy {f00=0x0146, f01=0x0190, f02=»ELENGTH < v 6 P LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. = & P CF A5,SEND SEND SLECT PAGELENGTH = J P CF A5,ENDBLK END OF BLOCK = t P ABL(NZ) ERROUT JMP IF ERROR = PCST010 EQU * = 4 P LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION = P A
0x40c0a0…40c234 (9, 9) Dummy {f00=0x0146, f01=0x0190, f02=» ADJUST INDEX TO NAT. CHAR. TABLE = 6 P LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. TO INDEX > * > P ST A4,DWTDEV+DWTPCS,A6 SET NAT. CHAR. SET FOR CONT.STAT. > d PCST020 EQU * > P ABL ENDIO END REQUEST > P EJECT > P IFT FFDEV=1 > P* > P* >
0x40c234…40c3c8 Dummy {f00=0x0146, f01=0x0190, f02=»OF BLOCK > | P ABL(NZ) ERROUT JMP IF ERROR ? P CF A5,RESREC ? 4 2 P LDKL A2,CSEJFF CONTROL SEQ. EJECT FRONT FEED ? J P CF A5,SEND SEND SEQUENCE ? P CF A5,ENDBLK END OF BLOCK ? P ABL(NZ) ERROUT JMP IF ERROR ? * P CF A5,GTSTAT GET STATUS FROM PR
0x40c3c8…40c55c Dummy {f00=0x0146, f01=0x0190, f02=»00 REQUEST ERROR ? * P CM DWTDEV+DWTALN,A6 RESET ACTUAL LINE @ . P CM DWTDEV+DWTRLN,A6 RESET REQUESTED LINE @ F P ABL ENDIO END REQUEST @ x P XIF @ P EJECT @ P* @ P* @ P* R C T P @ P* @ : P* RECOVERY ROUTINE REPEATS RUNNING REQUE
0x40c55c…40c6f0 Dummy {f00=0x0146, f01=0x0190, f02=» LDKL A5,DWTSB2 STACK BASE @ P ADR A5,A6 A " P LDK A2,/F BLOCK LENGTH A 4 P CF A5,STABLK START OF BLOCK A T P ABL(NZ) ERROUT JMP IF ERROR A x * P LDKL A2,CSRIS RESET TO INITIAL STATE A , P CF A5,SEND SEND RESET TO INITIAL STATE A 8 P LD A1,DWTDEV+
0x40c6f0…40c884 Dummy {f00=0x0146, f01=0x0190, f02=» INDICATOR A j P * B 0 P LDKL A4,STDNCV GET STANDARD NAT. CHAR. SET B " * P CF A5,KONVER CONVERT BIANARY TO ASCII B V 2 P ST A4,DWTDEV+DWTDCS,A6 SET CHAR. SET DOCUMENT B 4 P ST A4,DWTDEV+DWTPCS,A6 SET CHAR. SET CONT.STAT. B ( P LDKL A4,PAGLEN STANDA
0x40c884…40ca18 Dummy {f00=0x0146, f01=0x0190, f02=»SSLPL SELECT PAGELENGTH B 6 P LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. C & P CF A5,SEND SEND SELECT PAGELENGTH C Z 6 P LDKL A4,DOCLEN GET STANDARD PAGE LENGTH DOCUMENT C * P CF A5,KONVER CONVERT BINARY TO ASCII C 4 P ST A4,DWTDEV+DWTDL,A6 SET P
0x40ca18…40cbac Dummy {f00=0x0146, f01=0x0190, f02=»A6 RESET ACTUAL LINE C ~ , P LDKL A1,/20 INDICATE POWER OFF OCCURED D P ORS A1,DWTDEV,A6 D L $ P LD A1,DWTECB,A6 RUNNING REQUEST D f , P ABL(NZ) ACT005 YES , REPEAT THE REQUEST D P ABL LENDIS DISPATCH D P EJECT D P* D P* D P* GTSTAT D
0x40cbac…40cd40 Dummy {f00=0x0146, f01=0x018e, f02=»T FROM THE PRINTER D l P* E P* AT EXIT A1 = RETURN CODE E $ P* E F P* E P PGTSTAT EQU * E Z * P CM DWTDEV+DWTRC,A6 RESET RETURN CODE E n P LDK A2,/4 BLOCK LENGTH E P CF A5,STABLK START OF BLOCK E P ABL(NZ) ERROUT JMP IF ERROR E P LDK
0x40cd40…40ced4 (9, 10) Dummy {f00=0x0146, f01=0x0190, f02=» P CF A5,OUTPUT SEND CSI F P ABL(NZ) ERROUT JMP IF ERROR F " P LDK A2,/35 F F P CF A5,OUTPUT SEND /35 F Z P ABL(NZ) ERROUT JMP IF ERROR F x $ P LDK A2,DSR DEVICE STATUS REPORT F P CF A5,OUTPUT SEND DSR F P ABL(NZ) ERROUT JMP IF ERROR F P C
0x40ced4…40d068 Dummy {f00=0x0146, f01=0x0190, f02=» P ADR A4,A6 =1 G P CF A15,SETIMP SET TIMER =1 G . P DATA ERGP00,TIME RETURN ADDR., TIMEOUT =1 G > ( PGTST05 LDKL A4,TAB GET TABLE ADDRESS G p PGTST10 EQU * G P LDK A3,0 RESET INDEX G * P CF A5,INPUT READ STATUS FROM PRINTER G P ANK A2,/FF
0x40d068…40d1fc Dummy {f00=0x0146, f01=0x0190, f02=»A3 G * P LDKL A3,/3AC0 SHIFT LEFT CIRCULAR A2 H P LC A3,1,A4 A3 TIMES H 8 $ P EXR A3 EXECUT SHIFT INSTRUCTION H T 8 P ORS A2,DWTDEV+DWTRC,A6 SAVE RETURN CODE TEMPORARILY H | P ADK A4,2 INCREMENT ADRESS H ( P RB GTST10 GET NEXT STATUS CHARACTER H PGT
0x40d1fc…40d390 Dummy {f00=0x0146, f01=0x0190, f02=» =1 H l ( P CM* DWTDEV+DWTTP,A6 RESET TIMER =1 I 4 PGTST20 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1 I 8 P RTN A5 I p P EJECT I P* I : P* THIS ROUTINE CONVERTS A BINARY VALUE TO ASCII CODE I P* I P* REGISTERS : I P* A1= WORK REGIS
0x40d390…40d524 Dummy {f00=0x0146, f01=0x0190, f02=» LDK A2,0 CLEAR A2 I P CWK A4,100 VALUE > 100 ? J P RF(L) KONV05 NO J < P SUKL A4,100 J T & P LDKL A2,/100 LEFT BYTE OF A2=X=1 J h * PKONV05 CWK A4,10 ARE THERE ANY TENS ? J P RF(L) KONV04 NO J P SUK A4,10 J 2 P ADK A2,/1 NUMBER OF TENS IN R
0x40d524…40d6b8 Dummy {f00=0x0146, f01=0x0190, f02=» P LDR A1,A2 K P ANKL A1,/FF00 KEEP Y IN A1 K . P ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII K : P ORR A4,A1 YZ IN A1. ASCII K l P RTN A5 K P EJECT K P* K P* RESET RECORVERY K P* K PRESREC EQU * K " P LD A4,DWTDEV,A6 DEVICE ST
0x40d6b8…40d84c Dummy {f00=0x0146, f01=0x0190, f02=»RN K ~ P* L P* L P* L P* L ( : P* ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK AND TIMER L 2 P* L p P* INPUT : A1 = RETURN CODE L z P* L PERROUT EQU * L 0 P ANK A1,/1A OUTP. ERR, SOFTW T-OUT, LRC-ERR L P ABL(NZ) RCTP RECOVERY L
0x40d84c…40d9e0 Dummy {f00=0x0146, f01=0x018e, f02=»M DWTDEV+DWTTP,A6 RESET TIMER POINTER =1 L P RB ERGP10 M 0 P EJECT M B P* M P P* M Z P* S E N D M d P* M v , P* THIS ROUTINE SENDS AN CONTROL SEQUENCE M P* TO THE PRINTER M P* M P* M P* AT ENTRY : M " P* A2 = CONTROL SEQUENCE
0x40d9e0…40db74 (9, 11) Dummy {f00=0x0146, f01=0x0190, f02=» M v P* N P* N P* N $ PSEND EQU * SEND CONTROL SEQUENCE N & 2 P ST A3,DWTDEV+DWTDISP,A6 SAVE DWT-DISPLACEMENT N N 4 P ST A2,DWTDEV+DWTSTR,A6 CONTROL SEQUENCE ADRESS N PSEND10 EQU * N 8 P LD A3,DWTDEV+DWTSTR,A6 GET CONTROL SEQUENCE ADRESS N
0x40db74…40dd08 Dummy {f00=0x0146, f01=0x0190, f02=»N N x & P CWK A2,/3000 LINE NO,CHAR.SET,ETC O P RF(E) SEND30 YES O 4 ( P SRL A2,8 PREPARE TO SEND CHARACTER O N P CF A5,OUTPUT SEND CHARACTER O z P ABL(NZ) ERROUT JMP IF ERROR O PSEND20 EQU * O 4 P IM DWTDEV+DWTSTR,A6 INC. CONTROLSEQUENCE ADRESS O
0x40dd08…40de9c Dummy {f00=0x0146, f01=0x0190, f02=» O t P LCR A2,A3 GET CHARACTER P P CF A5,OUTPUT SEND CHARACTER P ( P ABL(NZ) ERROUT JMP IF ERROR P L 2 P IM DWTDEV+DWTDISP,A6 INC. DISPLACEMENT ADRESS P p P RB SEND20 GET NEXT P PSENDEND EQU * P P RTN A5 P P EJECT P P* P P* P
0x40de9c…40e030 Dummy {f00=0x0146, f01=0x0190, f02=» P ~ P* A2= WORK REGISTER Q P* A3= BINARY OUTPUT Q $ P* Q @ P* Q J P* Q T PBINARY SUR A3,A3 CLEAR A3 Q ^ P LDR A2,A1 MAX. LINE ASCII Q P SRL A2,8 Q P SUK A2,/30 Q P ADR A3,A2 Q P ADR A3,A2 Q P SLL A2,3 Q P ADR A3,A2
0x40e030…40e1c4 Dummy {f00=0x0146, f01=0x0190, f02=»/3132,/3135,/3138,/3234 Q " P DATA /3235,/3330,/3333,/3335 R " P DATA /3336,/3438,/3530,/3531 R F " P DATA /3630,/3636,/3730,/3732 R l P* R P* R P* R P* R 6 PNCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE R " P DATA /3031,/3032,/3
0x40e1c4…40e358 Dummy {f00=0x0146, f01=0x40ba, f02=»MASK TABLE FOR STATUS REPORT FROM PRINTER R P DATA /C0,/C0,/C0,/2CC * S 2 P DATA /2CF,/4CB,/C0,/C0 * S T P DATA /C0,/C0,/C0,/C0 S v P DATA /C0,/C0 S P END S @ S NCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE R " P DATA /3031,/3032,/3
0x40e358…40e4ec Dummy {f00=0x0146, f01=0x4008, f02=»@ T @
0x40e4ec…40e680 Dummy {f00=0x0146, f01=0x2008, f02=» U * 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
0x40e680…40e814 (9, 12) Dummy {f00=0x0147, f01=0x0190, f02=»
[…0x7…]
0x40f320…40f4b4 (9, 13) Opaque[0x194]
0x40f4b4…40f648 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x28e8, f03=0x0000}
0x40f4b4…40f648 IdxSect {
0x40f4b4…40f648 f00 = 0x0147 // 0x40f4b4 @0x0
0x40f4b4…40f648 f01 = 0x0004 // 0x40f4b6 @0x2
0x40f4b4…40f648 gno = [ // 0x40f4b8 @0x4
0x40f4b4…40f648 [0x00]: C0x0147.0x1.0
0x40f4b4…40f648 [0x01]: C0x0147.0x2.0
0x40f4b4…40f648 ]
0x40f4b4…40f648 }
0x40f648…40f7dc Dummy {f00=0x0147, f01=0x0190, f02=» > @ IDENT DRGP02 REL 11.0 82-06-28 870105041100 GPAD8 F , ( [000b [000e [00t [00q 8 V GPAD8 < , ( ! [00w [00v c [5n DWTOR DWTDEV * & A $$ X " X
0x40f7dc…40f970 Dummy {f00=0x0147, f01=0x0190, f02=» l STABLK GETCHR OUTPUT 0 , ( ! P ! B ENDBLK r , ( P _ ! _, ! , ( _D ! P P , ( B ! ! !
0x40f970…40fb04 Dummy {f00=0x0147, f01=0x0190, f02=» Y ! t , ( S X P ! , ( m@ ! W ! ! B * & W ! W ! +XR X r , ( @ $ T _ Y $ Q P , ( B ! ! ! W Z* , (
0x40fb04…40fc98 Dummy {f00=0x0147, f01=0x0190, f02=» + P Y ! & , ( E ! ! B $ P YN P 0 DWTST ` DWTSB2 p , ( c H Y Y , ( }@" ! . ! X " P Y " * & ! Y Y 0 ! Y
0x40fc98…40fe2c Dummy {f00=0x0147, f01=0x018e, f02=» Y ! ! , ( [ ! 5 ! " SETIMP R , ( ! n ! ! d INPUT , ( 1@@ ! " ! P 0 * & M : P Y _$ X X , ( g
0x40fe2c…40ffc0 Dummy {f00=0x0147, f01=0x018e, f02=» * & DH Y _ Y Y X , ( ," :HR 0 P :h ! Y 2 , ( B _" X , ! Y b , ( _ 4 :h 0 :C ! 4121518 , ( ' 24253033353648505160667072010203 , ( G 04050607080910
0x40ffc0…410154 (9, 14) Dummy {f00=0x0147, f01=0x4176, f02=» H D !u P P P T P ) 3PB 7PT H D !6 9WF ?P E t W ]PN g s uW6 W W T Q P H D !q^ P W6 R P T !P. - ; G O WP H D ! c > P8 t t
0x410154…4102e8 Dummy {f00=0x0147, f01=0x2008, f02=» L = PT002 DATE = 811031 6876PACK NBR = 0002 8
0x4102e8…41047c Dummy {f00=0x0147, f01=0x0190, f02=»T FRONT FEED v : P LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NO DISPLACEMENT & P CF A5,SEND SEND INPUT FRONT FEED T P LD A3,DWTDEV+DWTRLN,A6 ~ 4 P ST A3,DWTDEV+DWTALN,A6 SET DWTDEV+DWTALN=DWTRLN P 0 PWRDO15 LDKL A2,CSSNV SELECT NATIONAL VERSI
0x41047c…410610 Dummy {f00=0x0147, f01=0x0190, f02=»K END OF BLOCK P ABL(NZ) ERROUT JMP IF ERROR ! P* ! : " P* EXAMINE CONTROL CHARACTER ! D P* ! j $ P LDK A3,1 SET ECB BUFFER POINTER ! t ( P CF A15,GETCHR GET CONTROL CHARACTER ! & P LD A1,DWTDEV,A6 GET DEVICE STATUS ! ( P ANKL A1,/20 HAS POWER
0x410610…4107a4 Dummy {f00=0x0147, f01=0x0190, f02=»A4,A2 SAVE CONTROL CHAR. IN A4 ! P LD A2,ECBRL,A8 " & P ADK A2,/8 MAX BLOCK SIZE " > P CF A5,STABLK START OF BLOCK " ` P ABL(NZ) ERROUT JMP IF ERROR " ( P LDR A2,A4 RESTORE CONT. CHAR. IN A2 " 6 P CM DWTDEV+DWTCO2,A6 CLEAR DOCUMENT COLUMN COUNTER "
0x4107a4…410938 Dummy {f00=0x0147, f01=0x0190, f02=») WRT14 YES, ALLREADY DONE ! " P* # $ * P RF ONELF1 PRINT AFTER ONE LINE FEED ! # . P* # " P* EXECUTE CONTROL CHARACTER # f P* # 2 PWRT03 LD A4,DWTDEV+DWTCO2,A6 GET ACTUAL COLUMN # P RF(Z) WRT05 # & P SUK A4,1 FOR CORRECT NO OF SPACES # .
0x410938…410acc Dummy {f00=0x0147, f01=0x0190, f02=»TACD+2,A6 STORE THE VALUE IN ACTUAL COL. DOC. # P SRL A4,8 $ 6 6 P SC A4,DWTDEV+DWTACD+1,A6 SHIFT FOR CORRECT DIGITS $ H P* $ PWRT09 LDKL A2,/8C BLOCK SIZE $ P CF A5,STABLK START OF BLOCK $ P ABL(NZ) ERROUT JMP IF ERROR $ P LD A4,DWTDEV+DW
0x410acc…410c60 Dummy {f00=0x0147, f01=0x0190, f02=»P IF ERROR $ ~ P LDKL A2,CSREP REPEAT % > P LDKL A3,DWTDEV+DWTACD ACTUAL COLUMN DOCUMENT DISPLACEMENT % 0 P CF A5,SEND SEND REPEAT % r P ABL WRT15 % P* % 2 PTWOLF1 LD A1,DWTDEV+DWTRLN,A6 GET REQ LINE NO % & P CF A5,BINARY CONV ASCII TO BINARY %
0x410c60…410df4 (9, 15) Opaque[0x194]
0x410df4…410f88 # DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28f8, f03=0x0000}
0x410df4…410f88 IdxSect {
0x410df4…410f88 f00 = 0x0147 // 0x410df4 @0x0
0x410df4…410f88 f01 = 0x0014 // 0x410df6 @0x2
0x410df4…410f88 gno = [ // 0x410df8 @0x4
0x410df4…410f88 [0x00]: C0x0147.0x3.0
0x410df4…410f88 [0x01]: C0x0148.0x0.0
0x410df4…410f88 [0x02]: C0x0148.0x1.0
0x410df4…410f88 [0x03]: C0x0148.0x2.0
0x410df4…410f88 [0x04]: C0x0148.0x3.0
0x410df4…410f88 [0x05]: C0x0149.0x0.0
0x410df4…410f88 [0x06]: C0x0149.0x1.0
0x410df4…410f88 [0x07]: C0x0149.0x2.0
0x410df4…410f88 [0x08]: C0x0149.0x3.0
0x410df4…410f88 [0x09]: C0x014a.0x0.0
0x410df4…410f88 ]
0x410df4…410f88 }
0x410f88…41111c Dummy {f00=0x0147, f01=0x0190, f02=» 2 P IDENT PRINT REL 11.0 DK 82-05-26 870150541100 P : P =8, MISSING FIRST NL B $ P =7, RECOVERY AFTER PRINT ERR. b " P =6 RETURN CODE AFTER ABORT P =5, RETURN CODE DESTROYED $ P =4 FF LP100 + ERROR IN FFCHK P =3 TWO D
0x41111c…4112b0 Dummy {f00=0x0147, f01=0x0190, f02=»RST READ P 81-01-26 H P******************************************************************* $ H P* * p H P* MODULE PRINT : H P
0x4112b0…411444 Dummy {f00=0x0147, f01=0x0190, f02=» * T H P* (EMULATION 3270 SNA/SDLC, BSC * H P* * H P******************************************************************* P EJECT < P******
0x411444…4115d8 Dummy {f00=0x0147, f01=0x0190, f02=» ROUTINE x 0 P* IOACT ACTIVATE IN CURRENT MODE 0 P* IOCPL COMPLETE IN CURRENT MODE D ( P* DCPINP DC PRINTER INPUT x ( P* ICPINP INTERTASK INPUT & P* ICPRED INTERTASK READ ( P* ICPWR
0x4115d8…41176c Dummy {f00=0x0147, f01=0x0190, f02=» TABLE OF PRINTERORDERS P* NL NEW LINE $ , P* FFDUM SIMULATED FORM FEED H " P* FFVAL FORM FEED x ( P* CR CARRIAGE RETURN $ P* EM END MESSAGE . P* INVAL IN
0x41176c…411900 Dummy {f00=0x0147, f01=0x0190, f02=»IT ROUTINE z & P* TSTPRT TEST HARDWARE ( P* GETTAB GET ORDER INDEX < P* h @ P*********************************************************** r P EJECT H P*******************************************************************
0x411900…411a94 (9, 16) Dummy {f00=0x0148, f01=0x0190, f02=» * H P* * H P******************************************************************* d P 8 P ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT) 0 P ENTRY COPP COPY SCR
0x411a94…411c28 Dummy {f00=0x0148, f01=0x0190, f02=» * | H P* EXTERNAL REFERENCES * 8 H P* * H P********************************************************
0x411c28…411dbc Dummy {f00=0x0148, f01=0x0190, f02=» EXTRN OPSYS OPEN SYSTEM (DCSNA) P EXTRN OPEN OPEN (DCBSC) ( ( P EXTRN CONCT CONNECT PASSIVE (DCBSC) H , P EXTRN SETTYM SET REQUEST TIMER (DCBSC) t , P EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS & P EXTRN TSTMES TEST MESSAGE (DCSNA) ( P EXTRN REA
0x411dbc…411f50 Dummy {f00=0x0148, f01=0x0190, f02=»LEASE BUFFER (PAD) ( P EXTRN UNPACK UNPACK DC BUFFER (PAD) ( P EXTRN ECBINI INIT IF ECB:S (DSPSNA) F . P EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) r ( P EXTRN ICWRT INTERTASK WRITE (KEYB) ( P EXTRN ICREAD INTERTASK READ (KEYB) $ P EXTRN SETST
0x411f50…4120e4 Dummy {f00=0x0148, f01=0x0190, f02=» * z D P* CONDITIONAL ASSEMBLY * 2 D P* * z D P***************************************************************
0x4120e4…412278 Dummy {f00=0x0148, f01=0x0190, f02=»TEST MODE IF:=1 PTEST EQU 0 2 PSUPSPC EQU 1 SUPRESS TRAILING SPACES IF =1 DK1 * P EJECT ` H P******************************************************************* n H P* * & P*
0x412278…41240c Dummy {f00=0x0148, f01=0x0190, f02=»*********************************************** | P 8 P* @ P* TABLE OF PRINTER TYPES J P* j PPRTTAB EQU * t & P DATA /0004 NUMBER OF PRINTERTYPES P DATA 'TT',0 GTP P DATA 'LL',2 LINE PRINTER P DATA 'GG',4 GP 74 P D
0x41240c…4125a0 Dummy {f00=0x0148, f01=0x0190, f02=»BER OF CHAR./LINE P* PPRTLEN DATA /2382 GTP $ P DATA /2382 LP B P DATA /2382 GP 74 X P DATA /2382 COPY 80 r P* " P* LINE LENGTHS FROM WCC P* 4 PLINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE P* &
0x4125a0…412734 (9, 17) Dummy {f00=0x0148, f01=0x0190, f02=»EFFECTIVE LENGTH PECBRC EQU 8 RETURN CODE PECBCW EQU 10 CONTROL WORD 8 P* Z P* PRINTER MODES d P* | PLOCAL EQU 0 LOCAL MODE PSHARED EQU 2 SHARED MODE P* P* PRINTER STATUS IN PRTMOD P* " PPRTERR EQU /40
0x412734…4128c8 Dummy {f00=0x0148, f01=0x0190, f02=»00 END PRINTING $ PNTONLY EQU /2000 NOT ONLY SPACES PCRREC EQU /1000 CR RECEIVED @ P* d ( P* RELATIVE POS. IN ECB-BLOCK n P* PIC EQU 2 INTERTASK P* P* SCREEN SIZE P* PLBVDU EQU 1920 P* P
0x4128c8…412a5c Dummy {f00=0x0148, f01=0x0190, f02=»LOCK P* PBVDU EQU 2 SCREEN BUFFER PWCC EQU BVDU+1950 WCC 6 " PLINCNT EQU WCC+4 LINE COUNTER T 2 PDCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER z & PPRTID EQU DCLENG+6 PRINTER TASKID $ PPRTTYP EQU PRTID+2 PRINTER TYPE " PMAIN E
0x412a5c…412bf0 Dummy {f00=0x0148, f01=0x0190, f02=»REA x $ PPRTMOD EQU REGI+32 PRINTER MODE $ PECBPRT EQU PRTMOD+4 PRINTER ECB 4 * PECBICR EQU ECBPRT+6 INTERTASK READ ECB , PECBICW EQU ECBICR+2 INTERTASK WRITE ECB PECBDC EQU ECBICW+2 ECB DC " PECBDC1 EQU ECBDC ECB DC LINE 1 & PECBDC2
0x412bf0…412d84 Dummy {f00=0x0148, f01=0x0190, f02=»KTAB EQU 26 DEVICE TABLE P XIF P IFT TEST=1 , PTSKTAB EQU 219 @ P XIF V P EJECT b H P******************************************************************* p H P* * H P
0x412d84…412f18 Dummy {f00=0x0148, f01=0x0190, f02=» * T H P******************************************************************* PPRINT EQU * P CF A14,INIT INIT ROUTINE p P IFT SNA=1 , P CF A14,OPINIT OPEN CONNECTION INITIATE P RF(N) PRI100 DC NOT PRESENT P CF A14,OPSYS OP
0x412f18…4130ac Dummy {f00=0x0148, f01=0x0190, f02=» P LKM P DATA 6 P XIF ( P LDK A1,SHARED ALWAYS SHARED IN BSC , P ST A1,PRTMOD,A11 X PPRI100 EQU * r P CF A14,TSTPRT TEST HARDWARE , P CF A14,CONCT CONNECT PASSIVE IF PRTR OK P IFT NBRLIN=2 . =3 ( P LDK A1,1 CONNECT FO
0x4130ac…413240 Dummy {f00=0x0148, f01=0x0190, f02=» . =3 $ P CF A14,SETTYM SET REQUEST TIME PPRI200 EQU * 6 * P CF A14,IOACT ACTIVATE IN CURRENT MODE J P LDKL A7,ECBBLK x P ADR A7,A11 P LKM P DATA 7 MULTIPLE WAIT * P CF A14,IOCPL COMPLET IN CURRENT MODE P LD A1,PRTMO
0x413240…4133d4 (9, 18) Dummy {f00=0x0148, f01=0x0190, f02=»7 n P LDK A1,0 SET DEVICE END =7 P CF A14,SETSTA =7 . P RB PRI200 =7 H P EJECT ^ J P********************************************************************* l J P* * $ P
0x4133d4…413568 Dummy {f00=0x0148, f01=0x0190, f02=»*************************************************** ~ PIOACT EQU * < P LDK A4,0 P & P LD A1,PRTMOD,A11 SHARED OR LOCAL? b P RF(Z) IOAC20 LOCAL " P ADK A4,1 ADD NUMBER OF WAITS 4 P LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY? P R
0x413568…4136fc Dummy {f00=0x0148, f01=0x018e, f02=» P IFT NBRLIN=2 P ADK A4,1 ADD MORE WAITS P LD A2,ECBBLK+6,A11 ALREADY? > P RF(NZ) IOAC20 YES b P IM MAIN,A11 INDICATE LINE 2 | P CF A14,TSTMES TEST MESSAGE P ST A8,ECBBLK+6,A11 P XIF PIOAC20 EQU * P ADK A4,
0x4136fc…413890 Dummy {f00=0x0148, f01=0x0190, f02=» PIOAC30 EQU * & P ST A4,ECBBLK,A11 NUMBER OF WAITS P RTN A14 B P EJECT R J P********************************************************************* ` J P* * $ P* IOCPL COMP
0x413890…413a24 Dummy {f00=0x0148, f01=0x0190, f02=»*************************************** r PIOCPL EQU * 0 " P CW A8,ECBBLK+2,A11 INTERTASK? D P RF(NE) IOCP10 NO j P CM ECBBLK+2,A11 P CF A14,ICPINP MAKE HARDCOPY P RF IOCP90 PIOCP10 EQU * " P CW A8,ECBBLK+4,A11 DC LINE 1?
0x413a24…413bb8 Dummy {f00=0x0148, f01=0x0190, f02=»M ECBBLK+4,A11 P CM MAIN,A11 INDICATE LINE 1 P RF IOCP30 : P IFT NBRLIN=2 L PIOCP20 EQU * b " P CW A8,ECBBLK+6,A11 DC LINE 2? v P RF(NE) IOCP90 NO P CM ECBBLK+6,A11 P IM MAIN,A11 INDICATE LINE 2 P XIF PIOCP30 EQU
0x413bb8…413d4c Dummy {f00=0x0148, f01=0x0190, f02=»************************* j D P* * " D P* DCPINP DC PRINTER INPUT * j D P* * D P**************
0x413d4c…413ee0 Dummy {f00=0x0148, f01=0x0190, f02=»EADY COMPLETED? P RF(Z) DCP100 NO * P CF A14,ICPINP TAKE CARE OF THAT FIRST 0 PDCP100 EQU * ^ P LD A8,ECBDC,A11 r P IFT NBRLIN=2 P LD A1,MAIN,A11 LINE 1 P RF(Z) DCP150 YES P LD A8,ECBDC2,A11 PDCP150 EQU * P X
0x413ee0…414074 (9, 19) Dummy {f00=0x0148, f01=0x0190, f02=»GETBUF GET BUFFER P LDR A3,A12 $ P CF A14,READW READ FIRST BUFFER . P ANK A1,3 ERROR? V P RF(NZ) DCP400 NO n P RF DCP500 PDCP400 EQU * . P SUR A10,A10 RESET INTERNAL UNPACK STATUS P IFT SNA=1 . =1 P ANK A1,2 . =1
0x414074…414208 Dummy {f00=0x0148, f01=0x0190, f02=»,DCLENG,A11 SAVE LENGTH * P ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS P IFT SNA=1 N & P CF A14,GETBUF GET ANOTHER BUFFER ` P LDR A3,A8 $ P CF A14,READNW READ WITH NO WAIT P XIF ( P CF A14,UNPACK UPDATE SCREEN BUFFER P LD A1,WCC,A
0x414208…41439c Dummy {f00=0x0148, f01=0x0190, f02=» LDK A1,0 " P CF A14,SETSTA SET DEVICE END P XIF 8 P RTN A14 D P EJECT T D P**************************************************************** b D P* * D P* ICPINP
0x41439c…414530 Dummy {f00=0x0148, f01=0x0190, f02=»************************************************** PICPINP EQU * ! : P CF A14,COPP MAKE HARDCOPP ! N , P ST A1,REGI,A11 RETURN CODE TO TERMINAL ! p " P CF A14,ICPWRT WRITE INTERTASK ! P RTN A14 ! P EJECT ! F P************************************
0x414530…4146c4 Dummy {f00=0x0148, f01=0x0190, f02=»TERTASK READ * ! x F P* * " 2 F P****************************************************************** " | PICPRED EQU * " P LD A8,ECBICR,A11 " P CF A14,ICSET SET NO
0x4146c4…414858 Dummy {f00=0x0148, f01=0x0190, f02=»EAD INTERTASK " P RTN A14 # P EJECT # & H P******************************************************************** # 4 H P* * # H P* ICPWRT WRITE INTERTASK
0x414858…4149ec Dummy {f00=0x0148, f01=0x0190, f02=»************************ # d PICPWRT EQU * $ P LD A8,ECBICW,A11 $ 4 P CF A14,ICSET SET NO TIMEOUT $ N P LD A1,ECBICR,A11 $ r P LD A1,ECBCW,A1 GET TASKID $ P RF(Z) ICPW90 NOT THERE $ P LDKL A3,REGI RETURN CODE $ P ADR A3,A11 $ P LDK
0x4149ec…414b80 Dummy {f00=0x0148, f01=0x0190, f02=»********************************* $ t B P* * % * B P* ICABOR INTERTASK ABORT * % p B P* * % B P************
0x414b80…414d14 (9, 20) Dummy {f00=0x0149, f01=0x0190, f02=»A11 % P LKM & P DATA 10 & P RTN A14 & ( P EJECT & 8 J P********************************************************************* & F J P* * & J P* COPP COPY SCREEN BUFFER
0x414d14…414ea8 Dummy {f00=0x0149, f01=0x0190, f02=»*************************************************** & ~ P* REGISTERS ' < P* ' ` P* A2= CHAR. ' j " P* A3= SCREEN BUFFER POINTER ' & P* A4= REL. SCREEN BUFFER ADDRESS ' P* A5= LINE LENGTH ' P* A6= CURRENT ATTRIBUTE '
0x414ea8…41503c Dummy {f00=0x0149, f01=0x0190, f02=»* A13= ECB BASE ' P* ( J P********************************************************************* ( $ PCOPP EQU * . =2 ( r P LD A8,ECBPRT,A11 ( P LDK A1,0 ( P LDK A6,0 RESET ATTRIBUTE ( . P CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS ( &
0x41503c…4151d0 Dummy {f00=0x0149, f01=0x0190, f02=»INT? ( ~ P RF(Z) COP900 NO FORGET IT ) P SRL A5,4 ) . $ P LC A5,LINLEN,A5 GET LINE LENGTH ) @ ( P LDR A5,A5 NL,EM AND CR DET. LENGTH? ) h P RF(NZ) COP100 NO ) * P LD A1,PRTTYP,A11 GET MAX LINE LENGTH ) P LC A5,PRTLEN+1,A1 ) PCOP100 EQU * )
0x4151d0…415364 Dummy {f00=0x0149, f01=0x018e, f02=» P LDK A2,0 * P LDK A4,0 * P SUR A10,A10 RESET STATUS * ( PCOP200 EQU * * J P CWK A4,LBVDU ALL PRINTED? * ^ P RF(NL) COP850 YES * P CWR A9,A5 LINE FULL? * P RF(L) COP400 NO * P CF A14,PRLINE PRINT LINE * P LDR A1,A1 PRINTER ERR
0x415364…4154f8 Dummy {f00=0x0149, f01=0x0190, f02=» P CCK A2,/8000 ATTRIBUTE? + P RF(L) COP500 NO + $ P LDR A6,A2 GET NEW ATTRIBUTE + < P RF COP650 + ` PCOP500 EQU * + r P CCK A2,/2020 ORDER? + P RF(L) COP550 YES + P XRKL A10,CRREC RESET + P RF COP600 + PCOP550 EQU * + " P CF A14,
0x4154f8…41568c Dummy {f00=0x0149, f01=0x0190, f02=»A10 GET STATUS + P RF(N) COP800 GET NEXT CHAR. , P SLL A1,1 , : P RF(N) COP830 END , L PCOP600 EQU * , f P LDR A1,A6 CHECK IF NONPRINT , z P ANK A1,/C , P XRK A1,/C , P RF(Z) COP650 NONPRINT , , P ORKL A10,NTONLY INIDICATE NOT ONLY NOT
0x41568c…415820 Dummy {f00=0x0149, f01=0x0190, f02=» P ADKL A8,1 - PCOP800 EQU * - P XRKL A10,NXTCHA RESET - * P ADK A3,1 - H P ADK A4,1 - Z P RB COP200 - l PCOP830 EQU * =5 - ~ $ P LDK A1,0 RESTORE RET. CODE. =5 - PCOP850 EQU * - ( P LDR A9,A9 SOMETHING LEFT TO PRINT? - P RF(Z) COP
0x415820…4159b4 (9, 21) Dummy {f00=0x0149, f01=0x0190, f02=» INDICATE PRINTABLE - " P CF A14,PRLINE EXTRA LINE FEED . PCOP900 EQU * . B P LDR A1,A1 PRINTER FAILED? . V P RF(Z) COP950 NO . x " P LDKL A2,PRTERR INDICATE ERROR . P ORS A2,PRTMOD,A11 . PCOP950 EQU * . P RTN A14 . P EJECT . L P******
0x4159b4…415b48 Dummy {f00=0x0149, f01=0x0190, f02=»**************************************************************** . PPRTORD EQU * / H & P DATA /0004 NUMBER OF ORDER CODES / $ P DATA /0A0A,NL,NL,NL,NL NEW LINE / 2 P DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED / ( P DATA /0D0D,CR,CR,CR,CR CARR. RETURN
0x415b48…415cdc Dummy {f00=0x0149, f01=0x0190, f02=»******************************************** / p P P* * 0 4 P P* NL NEW LINE * 0 P P*
0x415cdc…415e70 Dummy {f00=0x0149, f01=0x0190, f02=» P ORKL A10,NTONLY+NXTCHA =8 1 , P CF A14,PRLINE PRINT LINE AFTER NEW LINE 1 ( P RTN A14 1 X P EJECT 1 h J P********************************************************************** 1 v J P*
0x415e70…416004 Dummy {f00=0x0149, f01=0x0190, f02=» * 1 ` J P********************************************************************** 2 PFFDUM EQU * 2 l . P CF A14,FFCHK CHECK IF FORM FEED IS VALID 2 P LDR A1,A1 VALID? 2 P RF(NZ) FFD400 NO 2 P LDK A7,0 RESET 2 & P LD A1,PRT
0x416004…416198 Dummy {f00=0x0149, f01=0x0190, f02=»YES BUT TO MANY 2 P RF(E) FFD300 YES FINISHED 3 P ORKL A10,NTONLY 3 : P ST A7,REGI,A11 SAVE 3 R $ P CF A14,PRLINE ADVANCE ONE LINE 3 n P LD A7,REGI,A11 RESTORE 3 P LDR A1,A1 PRINTER ERROR? 3 P RF(NZ) FFD500 YES 3 P RB FFD100 3 PFFD2
0x416198…41632c Dummy {f00=0x0149, f01=0x0190, f02=» OF PAGE 3 ~ & P LDK A2,/20 REPLACE FF WITH SPACE 4 PFFD400 EQU * 4 : P LDK A1,0 RETURN CODE 4 N PFFD500 EQU * 4 l P RTN A14 4 P EJECT 4 J P********************************************************************* 4 J P*
0x41632c…4164c0 Dummy {f00=0x0149, f01=0x0190, f02=» * 4 J P********************************************************************* 5 F PFFVAL EQU * 5 $ P CF A14,FFCHK CHECK IF FF VALID 5 P LDR A1,A1 VALID? 5 P RF(NZ) FFV200 NO 5 P LDK
0x4164c0…416654 (9, 22) Dummy {f00=0x0149, f01=0x0190, f02=»V200 EQU * 5 P LDK A1,0 RETURN CODE 6 P RTN A14 6 0 P EJECT 6 @ J P********************************************************************** 6 N J P* * 6 J P* CR CARRIAGE RET
0x416654…4167e8 Dummy {f00=0x0149, f01=0x0190, f02=»************************************************************ 6 PCR EQU * 7 D P LDR A1,A6 GET ATTRIBUTE 7 T P ANK A1,/C 7 t P XRK A1,/C NONPRINT FIELD? 7 P RF(Z) CR100 YES 7 P LD A1,WCC,A11 7 P ANK A1,/30 FORMATTED? 7 P RF(NZ) CR100 NO 7
0x4167e8…41697c Dummy {f00=0x0149, f01=0x0190, f02=»TN A14 7 P EJECT 8 J P********************************************************************* 8 H P* * 8 j H P* EM END MESSAGE * 8 H P*
0x41697c…416b10 Dummy {f00=0x0149, f01=0x0190, f02=»** 8 N PEM EQU * 9 " P ORKL A10,ENDPRT END PRINTING 9 P LDK A1,0 RETURN CODE 9 @ P RTN A14 9 ^ P EJECT 9 n F P****************************************************************** 9 | F P* *
0x416b10…416ca4 Dummy {f00=0x0149, f01=0x0190, f02=» * 9 Z F P****************************************************************** : PINVAL EQU * : ^ " P LDK A2,/20 REPLACE WITH SPACE : r P ORKL A10,NTONLY NOT ONLY : P LDK A1,0 RETURN CODE : P RTN A14 : P EJECT : F P******************
0x416ca4…416e38 Dummy {f00=0x0149, f01=0x0190, f02=» FFCHK CHECK IF FF IS VALID * : F P* * ; D F P***************************************************************** ; PFFCHK EQU * ; P LD A1,WCC,A11 ; P ANK A
0x416e38…416fcc Dummy {f00=0x0149, f01=0x0190, f02=»HARD COPY? ; ~ * P RF(NZ) FFCH20 YES, FF NOT ALLOWED =4 < PFFCH10 EQU * < @ P LDR A9,A9 FF ALLOWED < T P RF(Z) FFCH30 NOT < r P LDR A1,A10 < P ANKL A1,CRREC CR RECEIVED? < P RF(NZ) FFCH30 YES < PFFCH20 EQU * < " P LDK A2,/20 REPLACE WI
0x416fcc…417160 Dummy {f00=0x0149, f01=0x0190, f02=» < z P RF(Z) FFCH35 YES = P CF A14,PRLINE PRINT LINE = " PFFCH35 EQU * = D P LDK A1,0 RETURN CODE = X PFFCH40 EQU * = v P ORKL A10,NTONLY NOT ONLY = P RTN A14 = P EJECT = D P**************************************************************
0x417160…4172f4 (9, 23) Dummy {f00=0x0149, f01=0x018e, f02=» * = Z D P* * > D P**************************************************************** > Z PPRLINE EQU * > P LD A8,ECBPRT,A11 > P LDR A1,A10 > P ANKL A1,NTONLY ONLY RUBB.? > P
0x4172f4…417488 Dummy {f00=0x0149, f01=0x018e, f02=» > | P ANK A2,/40 HARDCOPY????? ? P RF(NZ) PRL200 NO ? * PPRL050 EQU * ? D P XRKL A10,NTONLY RESET ? X P IFT SUPSPC=1 DK1 ? v 6 P LD A1,ECBBA,A8 FIND LENGTH AND END OF BUFFER DK1 ? & P ADK A1,1 SKIP CONTROL CHARS. DK1 ? P ST A1,ECBBA,A8 DK1
0x417488…41761c Dummy {f00=0x0149, f01=0x0190, f02=» PPRL060 EQU * DK1 @ " P LCR A2,A1 GET A CHARACTER DK1 @ P CCK A2,/2020 SPACE ? DK1 @ D $ P RF(NE) PRL070 NO, FINISHED DK1 @ f P SUK A1,1 ADJUST POINTER DK1 @ 2 P CW A1,ECBBA,A8 END OF BUFFER,(FRONT-END) DK1 @ $ P RF(E) PRL070 YES, FINISHED DK1
0x41761c…4177b0 Dummy {f00=0x0149, f01=0x0190, f02=» LDR A9,A1 PUT IN NEW REQ, LENGTH DK1 @ PPRL080 EQU * DK1 A . 4 P LD A1,ECBBA,A8 RESTORE CONT. CHAR. ADDR. DK1 A H P SUK A1,1 DK1 A P ST A1,ECBBA,A8 DK1 A P XIF DK1 A P ADKL A9,2 A P ST A9,ECBRL,A8 A P LDK A7,/06 PRINT A P
0x4177b0…417944 Dummy {f00=0x0149, f01=0x0190, f02=»A 6 A P LD A8,ECBPRT,A11 B P LDR* A2,A8 PRINT COMPL.? B & P RF(N) PRL150 YES B H P SUK A1,1 MORE TO WAIT FOR? B b P RB(NZ) PRL100 YES B P LKM B P DATA 10 ABORT B $ P LDR A7,A7 CHECK RETURN VALUE =6 B " P RF(N) PRL150 FINSHED AT LAST
0x417944…417ad8 Dummy {f00=0x0149, f01=0x0190, f02=»LINCNT,A11 ANOTHER LINE B P LD A1,ECBRC,A8 OK? C P RF(NZ) PRL300 NO C < PPRL200 EQU * C V & P LD A8,ECBBA,A8 GET BUFFER ADDRESS C j P CMR A8 RESET CONTROL CHAR. C P SUR A9,A9 C P ADKL A8,2 C P LDK A1,0 RETURN CODE C PPRL300 EQU * C
0x417ad8…417c6c Dummy {f00=0x0149, f01=0x0190, f02=» * C x H P* INIT INIT ROUTINE * D 4 H P* * D H P************************************************************
0x417c6c…417e00 Dummy {f00=0x0149, f01=0x0190, f02=» P LC A2,+1,A1 E & P ST A2,PRTID,A11 SAVE WHOLE TASKID E 2 P LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX E B " P LD A7,PRTTAB NUMBER OF TYPES E x , P LDKL A1,PRTTAB+2 START OF PRINTER TABLE E PINI100 EQU * E $ P CCR A2,A1 CONVERT TYPE TO INDEX E
0x417e00…417f94 (9, 24) Dummy {f00=0x014a, f01=0x0190, f02=» P LKM F P DATA 3 FORGET IT F PINI200 EQU * F * P LD A1,+2,A1 F > ( P ST A1,PRTTYP,A11 SAVE PRINTER TYPE F R P RTN A14 F ~ P EJECT F F P***************************************************************** F F P*
0x417f94…418128 Dummy {f00=0x014a, f01=0x0190, f02=» * F z F P***************************************************************** G 4 PTSTPRT EQU * G ~ P LDK A2,0 G P LD A8,ECBPRT,A11 G P LDK A7,/80 TEST STATUS G PTSTP10 EQU * G P LKM G P DATA 1 G
0x418128…4182bc Dummy {f00=0x014a, f01=0x0190, f02=» G P ANK A2,/FF H P SUK A2,/30 H P SLL A2,2 H 0 P LD A3,+6,A13 H B P LDK A1,TSKTAB H X P ADR A3,A1 H n P ADR A3,A2 H P LDK A1,1 H " P SC A1,+3,A3 INDICATE NOT OP. H P LDR A1,A8 H P LDKL A8,100 H P LKM H P DATA 6 H
0x4182bc…418450 Dummy {f00=0x014a, f01=0x0190, f02=»Z) TSTP90 NO H P SC A1,+3,A3 RESET STATUS I PTSTP90 EQU * I 6 P RTN A14 I J P EJECT I Z H P******************************************************************* I h H P* * I H P*
0x418450…4185e4 Dummy {f00=0x014a, f01=0x0190, f02=» I L H P******************************************************************* J PGETTAB EQU * J T . P LD A7,PRTORD NUMBER OF VALID ORDER CODES J h & P LDKL A1,PRTORD+2 ORDERTABLE BASE J PGETT10 EQU * J , P CCR A2,A1 CONVERT ORDER CODE TO ADDRESS J P
0x4185e4…418778 Dummy {f00=0x014a, f01=0x40c8, f02=»ID J z P RB GETT10 TRY AGAIN K PGETT20 EQU * K & P ADK A1,2 K : P LD A2,PRTTYP,A11 K L P ADR A1,A2 K f PGETT30 EQU * K x P LDR* A1,A1 K P RTN A14 K P K P END K @ K 10 EQU * J , P CCR A2,A1 CONVERT ORDER CODE TO ADDRESS J P
0x418778…41890c Dummy {f00=0x014a, f01=0x2008, f02=» L A1,TSKTAB ADR A3,A1 ADR A3,A2 0 LDK A1,1 B " SC A1,+2,A3 INDICATE NOT OP. T LKM z DATA 0 SWITCH TASK $ LDK A2,1 INDICATE ONCE NOT OP. RB TSTP10 TSTP80 EQU * LDR A2,A2 NOT OP. ONC
0x41890c…418aa0 Dummy {f00=0x014a, f01=0x4098, f02=» * & @ B P Q * & @ a b ! K2 2 U ` @ B10 Z:TB10 z * & * & * &
0x418aa0…418c34 (9, 25) Opaque[0x194]
0x418c34…418dc8 # DirEnt {nam=»DATBSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2948, f03=0x0000}
0x418c34…418dc8 IdxSect {
0x418c34…418dc8 f00 = 0x014a // 0x418c34 @0x0
0x418c34…418dc8 f01 = 0x0006 // 0x418c36 @0x2
0x418c34…418dc8 gno = [ // 0x418c38 @0x4
0x418c34…418dc8 [0x00]: C0x014a.0x1.0
0x418c34…418dc8 [0x01]: C0x014a.0x2.0
0x418c34…418dc8 [0x02]: C0x014a.0x3.0
0x418c34…418dc8 ]
0x418c34…418dc8 }
0x418dc8…418f5c Dummy {f00=0x014a, f01=0x0190, f02=» 0 P IDENT DATBSC REL 11.0 81-10-18 870150541100 P 8 L P************************************************************************ @ L P* * L P* DATBSC DATA DIVISION FOR
0x418f5c…4190f0 Dummy {f00=0x014a, f01=0x0190, f02=» CREDIT CODED START-UP ROUTINES. * | L P* * < L P************************************************************************ P EJECT P DDIV 8 P****************
0x4190f0…419284 Dummy {f00=0x014a, f01=0x0190, f02=»****************************** z P TERM K1 & P* 6 P CWB CB1 @ P TWB TB1 P P* ` P START KBVGO j P* ~ & PDSKBAN DSET FC=X'20',DEV=KA,BUFL=2 & PDSKBSD DSET FC=X'40',DEV=KI,BUFL=2 ( PDSVDU DSET FC=X'42',DEV=DY,BUFL=162 P
0x419284…419418 Dummy {f00=0x014a, f01=0x0190, f02=»IC FOR P&T h P EJECT 8 P*************************************************** P* . P* KB/VDU TERMINAL WITH TWO DC-LINES f P* 8 P*************************************************** P TERM K2 P* P CWB CB1 P
0x419418…4195ac Dummy {f00=0x014a, f01=0x0190, f02=» ( PDSVDU DSET FC=X'42',DEV=DY,BUFL=162 PDSICR DSET FC=X'50',DEV=II 0 PDSICW DSET FC=X'51',DEV=IO R PDSDC1 DSET FC=X'61' t PDSDC2 DSET FC=X'62' ( PDSKBN2 DSET FC=X'21',DEV=KBN,BUFL=2 P P EJECT 8 P**************************
0x4195ac…419740 Dummy {f00=0x014a, f01=0x0190, f02=»******************** p P TERM P1 P* , P CWB CB1 6 P TWB TB1 F P* V P START PRTGO ` P* t @ PPDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS ~ PPDSICR DSET FC=X'50',DEV=II PPDSICW DSET FC=X'51',DEV=IO
0x419740…4198d4 (9, 26) Dummy {f00=0x014a, f01=0x0190, f02=»MINAL WITH TWO DC-LINES | P* : P****************************************************** * P TERM P2 h P* x P CWB CB1 P TWB TB1 P* P START PRTGO P* @ PPDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS
0x4198d4…419a68 Dummy {f00=0x014a, f01=0x0190, f02=»JECT L P************************************************************************ L P* * L P* WORK AREA FOR KB/VDU TASKS * L P*
0x419a68…419bfc Dummy {f00=0x014a, f01=0x0190, f02=»**** L PTB1 BLK P* & PTCT01 BIN 4X'0' TID AND STACKBASE & ( PBVDU STRG 3840X'0' VDU SCREEN BUFFER P * PLINFLG STRG 48X'0' INTERNAL LINE FLAGS | ( PPCURS STRG 4X'0' REL. CURSOR ADDRESS . PATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER , P
0x419bfc…419d90 Dummy {f00=0x014a, f01=0x0190, f02=»TRG 4X'0' . PDCLENG STRG 4X'0' DC READ EFFECTIVE LENGTH * PINTATT STRG 4X'0' INTENSITY ATTRIBUTE D " POFFFLG STRG 4X'0' OFFLINE FLAG r ( PPRTID STRG 4X'0' TASKID FOR HARDCOPY PBRAGE STRG 192X'0' LEKSAND P* " P* FORMATION OF BRAGE - L
0x419d90…419f24 Dummy {f00=0x014a, f01=0x018e, f02=»ATOR t $ P* KEYS 4X KEY LOCK STATUS 0 P* ECBBLK 20X ECB BLOCK FOR MULTIPLE WAIT 4 2 P* RDMORE 4X NEXT ADDRESS OF READ MORE KEYS h $ P* CURPOS 4X CURSOR POSITION " P* BUFPNT 4X BUFFER POINTER P* REGI 4X SAVE AREA
0x419f24…41a0b8 Dummy {f00=0x014a, f01=0x0190, f02=» v P* ECBTAB ECB TABLE P* ECBKB 4X ECB KB * P* ECBPRT 4X ECB PRINTER H & P* ECBSD 4X ECB SIGNAL DISPLAY l P* ECBVDU 4X ECB VDU & P* ECBICR 4X ECB INTERTASK READ ( P* ECBICW 4X ECB INTERTASK WRITE
0x41a0b8…41a24c Dummy {f00=0x014a, f01=0x0190, f02=»********************************** p F P* * * F P* COMMON WORK AREA FOR ALL TASKS * t F P* * F P
0x41a24c…41a3e0 Dummy {f00=0x014a, f01=0x0190, f02=»ADDRESS l . PMF2CU STRG X'4344' SYMBOLIC CLUSTER ADDR. : PIDTEXT STRG 22'IDENT NOT OPERABLE ' IDENT KEY TEXT B 2 P***STATXT STRG 15'DTE ADDRESS ' STAT LAYOUT " P***SA STRG 15'STAT OVERFLOW ' " P***SB STRG 15'PRO REC BLOCKS ' " P***SC
0x41a3e0…41a574 (9, 27) Dummy {f00=0x014a, f01=0x0190, f02=» ' t " P***SG STRG 15'PRO SND RESND ' " P***SH STRG 15'PRO PROC-TIMOUT' 0 " P***SI STRG 15'PRO POLL-TIMOUT' V " P***SJ STRG 15'DTE REC ERROR ' | 2 P***SK STRG 30'DTE SND ERROR DCE ERROR ' . PTSKTAB STRG 256X'0' TASK TABLE WITH STATUS "
0x41a574…41a708 Dummy {f00=0x014a, f01=0x0190, f02=»BVGO P ENTRY PRTGO P EXT VDUKB P EXT PRINT 2 " P EXT GETTID GET TASK IDENTITY D 2 P* EXT OFFLNE CREDIT APPLICATION START ADDRESS j P EJECT , P**************************************** P* " P* START ADDRESS FOR VDU TASK
0x41a708…41a89c Dummy {f00=0x014a, f01=0x4182, f02=»UKB,TCT01 ( P* PERF OFFLNE BRANCH TO CREDIT CODE * P B KB050 RETURN TO IBM-3270 EMULATION > P EJECT l 2 P********************************************* z P* ( P* START ADDRESS FOR PRINTER TASK P* 2 P************************
0x41a89c…41aa30 Dummy {f00=0x014a, f01=0x2008, f02=» * END @ * $ * . GP1 BLK 8 * H GPAREA STRG 2000 R EJECT j PDIV x * * ENTRY KBGO ENTRY VDUGO ENTRY GTPGO * EXT VDUKB EXT VDTASK E
0x41aa30…41abc4 Dummy {f00=0x014a, f01=0x0190, f02=» " A A P R :UT , ( @ @ W 9D) 9 I 9 ^ @ W TTB:MT P $ - ? H > " b , ( ! R :W W , ( W W ?W /W : A W ! A A , ( P _ @ _
0x41abc4…41ad58 Dummy {f00=0x014a, f01=0x0190, f02=» A A @ z , ( B A A @ > @ _ , ( " a z | I R M A P T @ T J , ( D @ P A W ` @ @ P @ z , ( T A P A < V A @ H D ! )
0x41ad58…41aeec Dummy {f00=0x014a, f01=0x0190, f02=» ? F C I M Q , U Y j ] d a l e . i : m q u H D ! y } 4 p p j T P B H D ! 0 d d | H N # /W* 3 GW K MW Q g H D !j| mP P W P W
0x41aeec…41b080 Dummy {f00=0x014a, f01=0x0190, f02=»V W r H D ! > T j W T W # ' + 3 7 > ; . H D ! ? I j M h ] g oW W P z H D !6n P P P T W < P # b + 5 b ;
0x41b080…41bd20 (10, 0) DirGranule ((10, 0)) {
0x41b080…41bd20 DirEnt {nam=»KJELL «, typ=» «, f00=0x0000, f01=0x0000, f02=0x2960, f03=0x0000}
0x41b080…41bd20 DirEnt {nam=»PRINT «, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x2968, f03=0x0008}
0x41b080…41bd20 DirEnt {nam=»VDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29d0, f03=0x0000}
0x41b080…41bd20 DirEnt {nam=»EVDU «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2a58, f03=0x0000}
0x41b080…41bd20 DirEnt {nam=»XVDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a60, f03=0x0000}
0x41b080…41bd20 DirEnt {nam=»EPRINT«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2ae8, f03=0x0000}
0x41b080…41bd20 DirEnt {nam=»XPRINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2af0, f03=0x0000}
0x41b080…41bd20 DirEnt {nam=»RUN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2b58, f03=0x0000}
0x41b080…41bd20 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x2b60, f03=0x0000}
0x41b080…41bd20 DirEnt {nam=»XPAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2b90, f03=0x0000}
0x41b080…41bd20 DirEnt {nam=»EPAD «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2c20, f03=0x0000}
0x41b080…41bd20 DirEnt {nam=»PAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c28, f03=0x0000}
0x41b080…41bd20 }
0x41bd20…41beb4 (10, 1) Opaque[0x194]
0x41beb4…41c048 # DirEnt {nam=»PRINT «, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x2968, f03=0x0008}
0x41beb4…41c048 IdxSect {
0x41beb4…41c048 f00 = 0x014b // 0x41beb4 @0x0
0x41beb4…41c048 f01 = 0x001a // 0x41beb6 @0x2
0x41beb4…41c048 gno = [ // 0x41beb8 @0x4
0x41beb4…41c048 [0x00]: C0x014b.0x1.0
0x41beb4…41c048 [0x01]: C0x014b.0x2.0
0x41beb4…41c048 [0x02]: C0x014b.0x3.0
0x41beb4…41c048 [0x03]: C0x014c.0x0.0
0x41beb4…41c048 [0x04]: C0x014c.0x1.0
0x41beb4…41c048 [0x05]: C0x014c.0x2.0
0x41beb4…41c048 [0x06]: C0x014c.0x3.0
0x41beb4…41c048 [0x07]: C0x014d.0x0.0
0x41beb4…41c048 [0x08]: C0x014d.0x1.0
0x41beb4…41c048 [0x09]: C0x014d.0x2.0
0x41beb4…41c048 [0x0a]: C0x014d.0x3.0
0x41beb4…41c048 [0x0b]: C0x014e.0x0.0
0x41beb4…41c048 [0x0c]: C0x014e.0x1.0
0x41beb4…41c048 ]
0x41beb4…41c048 }
0x41c048…41c1dc Dummy {f00=0x014b, f01=0x0190, f02=» 2 P IDENT PRINT REL 11.1 82-07-07 DK 870150541110 P : $ P =37 DUP OR FM CHAR ON PRINTER B P =36 IMPROVEMENT OF =24 j P 82-06-28 P =35 IMPROVEMENT OF =24 0 P =32 MISSING PRINTING AFTER PRINTER ERROR $ P =31 PAPER OUT O
0x41c1dc…41c370 Dummy {f00=0x014b, f01=0x0190, f02=»TRING | " P =25 LEFT MARGIN FOR PRINTER P 82-05-12 4 " P =24 BASIC WRITE ON PRINTER H P 82-04-28 n P =23 PRINTER RETURN CODE $ P =19 ERRONEOUS PRINTER STATUS P =18 DOUBLE SETTIM ENTRIES P =17 TWO DC LINES
0x41c370…41c504 Dummy {f00=0x014b, f01=0x0190, f02=»PRINTER STATUS " P =5 DIFFERENT FF CH FOR GP74 P 82-01-26 < P =4 NATIONAL CHAR P P 81-11-20 l P =3 SPACE SUPRESSION P 81-05-12 P =2 NEW LABEL P 81-04-08 P =1, EOC ON FIRST READ P 81-01-2
0x41c504…41c698 Dummy {f00=0x014b, f01=0x018e, f02=» * ^ H P* MODULE PRINT : H P* MODULE HANDLING THE PRINTOUTS BOTH FROM * f H P* DISPLAY AND MAIN-FRAME * H P*
0x41c698…41c82c Dummy {f00=0x014b, f01=0x0190, f02=» J H P******************************************************************* P EJECT T < P******************************************************** b P* P* LIST OF ROUTINES P* $ P* PRINT MAIN ROUTINE 0 P*
0x41c82c…41c9c0 Dummy {f00=0x014b, f01=0x0190, f02=» ( P* ICPINP INTERTASK INPUT & P* ICPRED INTERTASK READ 0 ( P* ICPWRT INTERTASK WRITE Z ( P* ICABOR INTERTASK ABORT 6 P* COPP COPY SCREEN BUFFER TO PRINTER $ P* TABLE OF PRINTERORD
0x41c9c0…41cb54 (10, 2) Dummy {f00=0x014b, f01=0x0190, f02=» CR CARRIAGE RETURN $ P* EM END MESSAGE * . P* INVAL INVALID PRINTER ORDER R , P* FFCHK CHECK IF FF IS VALID " P* PRLINE PRINT LINE $ P* INIT INIT ROUTINE & P*
0x41cb54…41cce8 Dummy {f00=0x014b, f01=0x0190, f02=»************* b P EJECT H P******************************************************************* $ H P* * p H P* ENTRY POINTS * H P
0x41cce8…41ce7c Dummy {f00=0x014b, f01=0x0190, f02=»******* T P 8 P ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT) 0 P ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2 T P H P******************************************************************* H P*
0x41ce7c…41d010 Dummy {f00=0x014b, f01=0x0190, f02=» * t H P******************************************************************* 0 P | 2 P EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA) 2 P EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9 $ P EXTRN OPSYS OPEN SYSTEM
0x41d010…41d1a4 Dummy {f00=0x014b, f01=0x0190, f02=» d , P EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS & P EXTRN TSTMES TEST MESSAGE (DCSNA) 8 ( P EXTRN READW READ WITH WAIT (DCSNA) b , P EXTRN READNW READ WITH NO WAIT (DCSNA) " P EXTRN GETBUF GET BUFFER (PAD) & P EXTRN RELBUF RELEASE BUFFER (PAD)
0x41d1a4…41d338 Dummy {f00=0x014b, f01=0x0190, f02=» f ( P EXTRN ICWRT INTERTASK WRITE (KEYB) ( P EXTRN ICREAD INTERTASK READ (KEYB) 4 $ P EXTRN SETSTA SET STATUS (DCBSC) ` * P EXTRN CONNAT TRANSFORM OF NAT CHAR =4 , P EXTRN RFMDUP REPLACE FM OR DUP CHAR =37 P EJECT D P********************
0x41d338…41d4cc Dummy {f00=0x014b, f01=0x0190, f02=»DITIONAL ASSEMBLY * D P* * < D P*************************************************************** P PX:A EQU 0 SNA HANDLING IF:=1 PSNA EQU X:A
0x41d4cc…41d660 Dummy {f00=0x014b, f01=0x0190, f02=»ORM OF NAT.CHAR IF:=1 =4 PTRANAT EQU X:R . =4 P* < , PBASWRI EQU 1 BASIC WRITE ON PRINTER =24 F 0 PSCS EQU 0 SIMPLE SNA CH STRING HANDLING =26 v , PLMARG EQU 0 LEFT MARGIN FOR PRINTER =25 P EJECT H P********************************
0x41d660…41d7f4 (10, 3) Dummy {f00=0x014b, f01=0x0190, f02=»F DATA AND EQUATES H P* * H P******************************************************************* f P P* P* TABLE OF PRINTER TYPES P* PPRTTAB EQU * & P DATA
0x41d7f4…41d988 Dummy {f00=0x014b, f01=0x0190, f02=»Y 80 P* . P* DEFAULT VALUES FOR DIFF. PRINTERS " P* BYTE1= NUMBER OF LINES/PAGE H " P* BYTE2= NUMBER OF CHAR./LINE n P* PPRTLEN DATA /2382 GTP P DATA /2382 LP P DATA /2382 GP 74 P DATA /2382 COPY 80 P
0x41d988…41db1c Dummy {f00=0x014b, f01=0x0190, f02=»GP74 =25 P DATA 0 COPY80 =25 P XIF . =25 * P* =24 > P IFF BASWRI=1 . =36 N , PPRBFL EQU 132 PRINTER BUFFER LENGTH =24 j P =BUFL-2 (IN DATXXX) =24 P XIF . =36 P IFT BASWRI=1 . =36 , PPRBFL EQU 256 PRINTER BUFFER
0x41db1c…41dcb0 Dummy {f00=0x014b, f01=0x0190, f02=»ATA /0028,/4050 40, 64 AND 80 CHAR/LINE P* 0 & P* EQUATES FOR ECB HANDLING : P* d PECBBA EQU 2 BUFFER ADDRESS n PECBRL EQU 4 REQUESTED LENGTH PECBEL EQU 6 EFFECTIVE LENGTH PECBRC EQU 8 RETURN CODE PECBCW EQU 10 CON
0x41dcb0…41de44 Dummy {f00=0x014b, f01=0x0190, f02=»PRINTER STATUS IN PRTMOD P* " PPRTERR EQU /4000 PRINTER ERROR * P* P " P* COPY INTERNAL STATUS IN A10 Z P* $ PNXTCHA EQU /8000 GET NEXT CHAR. " PENDPRT EQU /4000 END PRINTING $ PNTONLY EQU /2000 NOT ONLY SPACES PCRREC EQ
0x41de44…41dfd8 Dummy {f00=0x014b, f01=0x0190, f02=»QU 2 INTERTASK P* P* SCREEN SIZE P* 6 PLBVDU EQU 1920 @ P* V P* RECEIVE STATUS ` P* x PLICREC EQU /2000 . =1 P EJECT P* P* RELATIVE ADDRESSES IN P* TERMINAL WORKBLOCK P* PBVDU EQU 2
0x41dfd8…41e16c Dummy {f00=0x014b, f01=0x0190, f02=» b & PPRTID EQU DCLENG+6 PRINTER TASKID $ PPRTTYP EQU PRTID+2 PRINTER TYPE 2 " PMAIN EQU PRTTYP+4 WHAT DC LINE Z PECBBLK EQU MAIN+6 ECB BLOCK ( PBUFPNT EQU ECBBLK+14 BUFFER POINTER PREGI EQU BUFPNT+2 SAVE AREA $ PPRTMOD EQU REGI+32 P
0x41e16c…41e300 Dummy {f00=0x014b, f01=0x0190, f02=»WRITE ECB r PECBDC EQU ECBICW+2 ECB DC " PECBDC1 EQU ECBDC ECB DC LINE 1 4 & PECBDC2 EQU ECBDC1+2 ECB DC LINE 2 Z P IFF SNA=1 . =24 . PPRCCCT EQU ECBDC2+2 CHARACTER COUNTER =24 P XIF . =24 P IFT SNA=1 . =24 . PPRCCCT EQU ECB
0x41e300…41e494 (10, 4) Dummy {f00=0x014c, f01=0x018e, f02=» IN LEFT MARGIN =25 t P* P* RELATIVE ADDRESSES IN & P* COMMON WORKBLOCK F P* ` P IFF TEST=1 j " PTSKTAB EQU 26 DEVICE TABLE =17 ~ P XIF P IFT TEST=1 PTSKTAB EQU 221 . =17 P XIF P EJECT H P**************
0x41e494…41e628 Dummy {f00=0x014c, f01=0x0190, f02=» H P* PRINT MAIN ROUTINE PRINTER * H P* * P H P******************************************************************* PPRINT EQU * P CF A14,INIT
0x41e628…41e7bc Dummy {f00=0x014c, f01=0x0190, f02=»IT OPEN CONNECTION INITIATE P RF(N) PRI100 DC NOT PRESENT $ P CF A14,OPSYS OPEN SYSTEM H P XIF j P IFF SNA=1 v P CF A14,OPEN OPEN P RF(N) PRI100 NO DC INVOLVED P LDKL A8,20 P LKM P DATA 6 " P CF A14,CONCT CONN
0x41e7bc…41e950 Dummy {f00=0x014c, f01=0x0190, f02=»T . =17 P LDK A1,1 . =17 2 P XRS A1,MAIN,A11 INDICATE FIRST LINE AGAIN =17 ( P XIF . =17 ^ P IFF SNA=1 . =17 r * P CF A14,SETTYM SET REQUEST TIMEOUT =18 P XIF ( P LDK A1,SHARED ALWAYS SHARED IN BSC P ST A1,PRTMOD,A11
0x41e950…41eae4 Dummy {f00=0x014c, f01=0x0190, f02=»BLK P ADR A7,A11 P LKM P DATA 7 MULTIPLE WAIT , * P CF A14,IOCPL COMPLET IN CURRENT MODE J P LD A1,PRTMOD,A11 x " P ANKL A1,PRTERR PRINTER ERROR? P RB(Z) PRI200 NO P XRS A1,PRTMOD,A11 P RB PRI100 TRY TO FIX IT
0x41eae4…41ec78 Dummy {f00=0x014c, f01=0x0190, f02=» * f $ P* IOACT ACTIVATE IN CURRENT MODE $ J P* * L J P********************************************************************* PIOACT EQU * P LDK A4,0
0x41ec78…41ee0c Dummy {f00=0x014c, f01=0x0190, f02=»QUEST OUTSTANDING ALREADY? z P RF(NZ) IOAC10 YES " P CM MAIN,A11 INDICATE LINE 1 < P CF A14,TSTMES TEST MESSAGE ` P ST A8,ECBBLK+4,A11 PIOAC10 EQU * P IFT NBRLIN=2 P ADK A4,1 ADD MORE WAITS P LD A2,ECBBLK+6,A11 ALREADY?
0x41ee0c…41efa0 Dummy {f00=0x014c, f01=0x0190, f02=» PIOAC20 EQU * P ADK A4,1 P LD A2,ECBBLK+2,A11 ALREADY? . P RF(NZ) IOAC30 YES R " P CF A14,ICPRED READ INTERTASK l P ST A8,ECBBLK+2,A11 PIOAC30 EQU * & P ST A4,ECBBLK,A11 NUMBER OF WAITS P RTN A14 P EJECT J
0x41efa0…41f134 (10, 5) Dummy {f00=0x014c, f01=0x0190, f02=» * X $ P* IOCPL COMPLETE IN CURRENT MODE J P* * > J P********************************************************************* PIOCPL EQU * " P CW A8,ECBBLK+2,A11 INTERT
0x41f134…41f2c8 Dummy {f00=0x014c, f01=0x0190, f02=» CW A8,ECBBLK+4,A11 DC LINE 1? P IFT NBRLIN=2 & P RF(NE) IOCP20 NO < P XIF V P IFF NBRLIN=2 b P RF(NE) IOCP90 NO FORGET IT x P XIF P CM ECBBLK+4,A11 P CM MAIN,A11 INDICATE LINE 1 P RF IOCP30 P IFT NBRLIN=2
0x41f2c8…41f45c Dummy {f00=0x014c, f01=0x0190, f02=»NE 2 x P XIF PIOCP30 EQU * " P CF A14,DCPINP TAKE CARE OF DC , PIOCP90 EQU * R P RTN A14 f P EJECT v D P*************************************************************** D P*
0x41f45c…41f5f0 Dummy {f00=0x014c, f01=0x0190, f02=» * D P*************************************************************** ! PDCPINP EQU * ! ( P CF A14,ICABOR ABORT LOCAL HARD COPY ! p " P LDR A7,A7 ALREADY COMPLETED? ! P RF(Z) DCP100 NO ! * P CF A14,ICPINP TAKE CARE OF THAT FIRST ! P
0x41f5f0…41f784 Dummy {f00=0x014c, f01=0x0190, f02=»A11 ! PDCP150 EQU * " P XIF " P IFT SNA=1 " , P LD A1,ECBRC,A8 OK? " > P ANKL A1,/701 OK? " Z P RF(NZ) DCP500 NO STOP IT " t P XIF " P CF A14,GETBUF GET BUFFER " P LDR A3,A8 " $ P CF A14,READW READ FIRST BUFFER " P ANK A1,3
0x41f784…41f918 Dummy {f00=0x014c, f01=0x0190, f02=» SUR A10,A10 RESET INTERNAL UNPACK STATUS " P IFT SNA=1 . =1 # 2 P ANK A1,2 . =1 # J P RF(Z) DCP450 . =1 # ` P ORKL A10,LICREC . =1 # z PDCP450 EQU * . =1 # P XIF . =1 # P LD A1,ECBEL,A8 # " P ST A1,DCLENG,A11 SAVE LENGTH # * P ST A1
0x41f918…41faac Dummy {f00=0x014c, f01=0x0190, f02=»D WITH NO WAIT # ~ P XIF $ ( P CF A14,UNPACK UPDATE SCREEN BUFFER $ " PDCP500 EQU * $ N P IFF SNA=1 $ b P LDK A1,0 $ t " P CF A14,SETSTA SET DEVICE END $ P XIF $ P RTN A14 $ P EJECT $ D P**************************************************
0x41faac…41fc40 Dummy {f00=0x014c, f01=0x0190, f02=» * $ f D P* * % D P**************************************************************** % f PICPINP EQU * % P CF A14,COPP MAKE HARDCOPP % , P ST A1,REGI,A11 RETURN CODE TO TERMI
0x41fc40…41fdd4 (10, 6) Dummy {f00=0x014c, f01=0x0190, f02=»********** % X F P* * & F P* ICPRED INTERTASK READ * & F P* * & F P************************
0x41fdd4…41ff68 Dummy {f00=0x014c, f01=0x0190, f02=» A1,0 NOT ADDRESSED READ & P LDKL A3,BVDU ' P ADR A3,A11 ' 6 P LDKL A2,LBVDU+/20 ' J " P CF A14,ICREAD READ INTERTASK ' d P RTN A14 ' P EJECT ' H P******************************************************************** ' H P*
0x41ff68…4200fc Dummy {f00=0x014c, f01=0x0190, f02=» * ' H P******************************************************************** ( H PICPWRT EQU * ( P LD A8,ECBICW,A11 ( P CF A14,ICSET SET NO TIMEOUT ( P LD A1,ECBICR,A11 ( P LD A1,E
0x4200fc…420290 Dummy {f00=0x014c, f01=0x0190, f02=» CF A14,ICWRT WRITE INTERTASK ( PICPW90 EQU * ) & P RTN A14 ) : P EJECT ) J B P************************************************************* ) X B P* * ) B P* ICABOR INTERTASK ABOR
0x420290…420424 Dummy {f00=0x014c, f01=0x0190, f02=»***************************** ) p PICABOR EQU * * & P LDK A7,0 * : P CM ECBBLK+IC,A11 * L P LD A8,ECBICR,A11 * f P LKM * P DATA 10 * P RTN A14 * P EJECT * J P********************************************************************* * J P
0x420424…4205b8 Dummy {f00=0x014c, f01=0x0190, f02=» * * V J P* * + J P********************************************************************* + b P* REGISTERS + P* + P* A2= CHAR. + " P* A3= SCREEN BUFFE
0x4205b8…42074c Dummy {f00=0x014c, f01=0x0190, f02=»FFER POINTER + P* A9= ECB BUFFER INDEX , P* A10= INTERNAL STATUS , 4 P* A11= TASK BLOCK BASE , T P* A13= ECB BASE , t P* , J P********************************************************************* , PCOPP EQU * . =2 , P LD A8,ECB
0x42074c…4208e0 Dummy {f00=0x014c, f01=0x0190, f02=»IBUTE BACKWARDS , v & P CM LINCNT,A11 RESET LINE COUNTER - P LD A1,WCC,A11 - B P ANK A1,/38 MASK RELEVANT - X P LDR A5,A1 - z P ANK A1,8 START PRINT? - $ P ABL(Z) COP950 NO FORGET IT =19 - P SRL A5,4 - $ P LC A5,LINLEN,A5 GET LINE LENGTH -
0x4208e0…420a74 (10, 7) Dummy {f00=0x014c, f01=0x0190, f02=»A1 - PCOP100 EQU * . P LDKL A3,BVDU . P ADR A3,A11 . 4 P IFT BASWRI=1 . =24 . H P LDR A1,A8 . =24 . d . P LD A8,PRBA,A11 PRINTER BUFFER ADDRESS =24 . | $ P ST A8,ECBBA,A1 STORE IN ECB =24 . , P AD A8,PRLMAR,A11 ALLOW LEFT MARG/CR =25 . 6 P C
0x420a74…420c08 Dummy {f00=0x014c, f01=0x018e, f02=»RESET CONTROL CHAR. . P ADKL A8,2 / P XIF . =24 / . P SUR A9,A9 / B P LDK A2,0 / T P LDK A4,0 / f P SUR A10,A10 RESET STATUS / x PCOP200 EQU * / P CWK A4,LBVDU ALL PRINTED? / P RF(NL) COP850 YES / P CWR A9,A5 LINE FULL? / P
0x420c08…420d9c Dummy {f00=0x014c, f01=0x0190, f02=» P LCR A2,A3 GET CHAR. 0 P ANK A2,/FF 0 P RF(Z) COP650 NULL CHAR. 0 4 P CCK A2,/8000 ATTRIBUTE? 0 T P RF(L) COP500 NO 0 t P LDR A6,A2 GET NEW ATTRIBUTE 0 P RF COP650 0 PCOP500 EQU * 0 P CCK A2,/2020 ORDER? 0 P RF(L) COP550 YES 0
0x420d9c…420f30 Dummy {f00=0x014c, f01=0x018e, f02=»1 TAKE CARE OF ORDER 0 P LDR A1,A1 PRINTER ERROR? 1 P RF(NZ) COP900 YES 1 > P LDR A1,A10 GET STATUS 1 X P RF(N) COP800 GET NEXT CHAR. 1 v P SLL A1,1 1 P RF(N) COP850 END 1 PCOP600 EQU * 1 P LDR A1,A6 CHECK IF NONPRINT 1 P ANK A1,/C
0x420f30…4210c4 Dummy {f00=0x014c, f01=0x018e, f02=» 1 " P LDK A2,/20 REPLACE WITH SPACE 2 PCOP700 EQU * 2 . P IFF TRANAT=0 . =4 2 B * P LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =4 2 P XIF . =4 2 P SCR A2,A8 2 P ADKL A9,1 2 P ADKL A8,1 2 P CCK A2,/2020 SPACE? =3 2 . P RF(E) COP800 YES, DON
0x4210c4…421258 Dummy {f00=0x014c, f01=0x0190, f02=» 2 P ANKL A10,/FFFF-NXTCHA RESET TAKE NEXT CHAR =3 3 P ADK A3,1 3 : P ADK A4,1 3 L P RB COP200 3 ^ PCOP850 EQU * 3 p P IFF BASWRI=1 . =24 3 ( P LDR A9,A9 SOMETHING LEFT TO PRINT? 3 P RF(Z) COP950 NO! =19 3 " P CF A14,PRLINE PRINT LAST LINE
0x421258…4213ec Dummy {f00=0x014c, f01=0x0190, f02=»XTRA LINE FEED 3 P XIF . =24 4 P IFT BASWRI=1 . =24 4 * , P LDR A9,A9 SOME TEXT LEFT TO PRINT? =24 4 F P RF(Z) COP860 NO! =24 4 v " P CF A14,PRLINE PRINT TEXT =24 4 PCOP860 EQU * . =24 4 P IFF SCS=1 . =26 4 $ P ANKL A10,ENDPRT END MESS.?
0x4213ec…421580 Dummy {f00=0x014c, f01=0x0190, f02=» . =26 4 P IFT BASWRI=1 . =26 5 PCOP870 EQU * . =24 5 , . P CF A14,PRCCH CONTROL CH:S TO PRINTER =24 5 F P XIF . =24 5 x PCOP900 EQU * 5 P LDR A1,A1 PRINTER FAILED? 5 P RF(Z) COP950 NO 5 P LD A2,WCC,A11 . =32 5 $ P CWK A2,/38 LOCAL
0x421580…421714 (10, 8) Dummy {f00=0x014d, f01=0x0190, f02=» PRINTING =34 5 PCOP910 EQU * . =32 6 " P LDKL A2,PRTERR INDICATE ERROR 6 0 P ORS A2,PRTMOD,A11 6 V PCOP950 EQU * 6 p P RTN A14 6 P EJECT 6 L P************************************************************************ 6 P* 6 P* TABLE FOR
0x421714…4218a8 Dummy {f00=0x014d, f01=0x0190, f02=»A /0004 NUMBER OF ORDER CODES 6 $ P DATA /0A0A,NL,NL,NL,NL NEW LINE 7 & 2 P DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED 7 N ( P DATA /0D0D,CR,CR,CR,CR CARR. RETURN 7 ( P DATA /1919,EM,EM,EM,EM END MESSAGE 7 " P DATA INVAL INVALID ORDER CODE 7 P EJECT
0x4218a8…421a3c Dummy {f00=0x014d, f01=0x018e, f02=» * 7 d P P* NL NEW LINE * 8 ( P P* * 8 | P P********************************************************
0x421a3c…421bd0 Dummy {f00=0x014d, f01=0x0190, f02=» P . =DK 9 P RTN A14 9 P EJECT 9 $ J P********************************************************************** 9 2 J P* * 9 J P* FFDUM SIMULATED FORM FEED
0x421bd0…421d64 Dummy {f00=0x014d, f01=0x0190, f02=»******************************** 9 j PFFDUM EQU * : ( . P CF A14,FFCHK CHECK IF FORM FEED IS VALID : < P LDR A1,A1 VALID? : n P RF(NZ) FFD400 NO : P LDK A7,0 RESET : & P LD A1,PRTTYP,A11 TYPE OF PRINTER : P LC A7,PRTLEN,A1 PAGE SIZE : PFF
0x421d64…421ef8 Dummy {f00=0x014d, f01=0x0190, f02=»NTONLY : P ST A7,REGI,A11 SAVE ; $ P CF A14,PRLINE ADVANCE ONE LINE ; * P LD A7,REGI,A11 RESTORE ; R P LDR A1,A1 PRINTER ERROR? ; r P RF(NZ) FFD500 YES ; P RB FFD100 ; PFFD200 EQU * ; P NGR A1,A7 ; * P ADS A1,LINCNT,A11 TAKE AWAY ONE P
0x421ef8…42208c Dummy {f00=0x014d, f01=0x018e, f02=» * ; P LDK A1,0 RETURN CODE < PFFD500 EQU * < ( P RTN A14 < < P EJECT < L J P********************************************************************* < Z J P* * < J P* FFVAL
0x42208c…422220 Dummy {f00=0x014d, f01=0x0190, f02=» J P********************************************************************* = PFFVAL EQU * = R $ P CF A14,FFCHK CHECK IF FF VALID = f P LDR A1,A1 VALID? = P RF(NZ) FFV200 NO = P . =36 = P IFF BASWRI=1 . =30 = * P LDK A1,/31 FF FOR STANDAR
0x422220…4223b4 (10, 9) Dummy {f00=0x014d, f01=0x0190, f02=»CCH =36 = x " P CF A14,PRLINE PRINT LINE =36 > P XIF . =24 > 6 P ORKL A10,NXTCHA . =DK > J P CM LINCNT,A11 TOP OF PAGE > h PFFV200 EQU * > P LDK A1,0 RETURN CODE > P RTN A14 > P EJECT > J P**********************************************
0x4223b4…422548 Dummy {f00=0x014d, f01=0x0190, f02=» RETURN * > v J P* * ? 4 J P********************************************************************** ? PCR EQU * ? P LDR A1,A6 GET ATTRIBUTE ? P ANK A1,
0x422548…4226dc Dummy {f00=0x014d, f01=0x0190, f02=» ? & P ORKL A10,NTONLY+CRREC CR RECEIVED @ PCR100 EQU * @ 2 " P LDK A2,/20 REPLACE WITH SPACE @ F P LDK A1,0 RETURN CODE @ l P RTN A14 @ P EJECT @ J P********************************************************************* @ H P*
0x4226dc…422870 Dummy {f00=0x014d, f01=0x0190, f02=» * @ H P******************************************************************** A J PEM EQU * A " P ORKL A10,ENDPRT END PRINTING A P LDK A1,0 RETURN CODE A P RTN A14 A P EJECT A F P
0x422870…422a04 Dummy {f00=0x014d, f01=0x0190, f02=» * A R F P* INVAL INVALID PRINTER ORDER * B F P* * B V F P****************************************************************** B P* B P* ALSO HANDLING: B
0x422a04…422b98 Dummy {f00=0x014d, f01=0x0190, f02=» B h P SUR A1,A2 REPLACED? =37 C P RF(NZ) INVA10 YES! =37 C ( " P NO! I.E. INVALID ORDER =37 C H " P LDK A2,/20 REPLACE WITH SPACE C n PINVA10 EQU * . =37 C P ORKL A10,NTONLY NOT ONLY C P LDK A1,0 RETURN CODE C P RTN A14 C P EJECT C
0x422b98…422d2c Dummy {f00=0x014d, f01=0x0190, f02=» * C V F P* FFCHK CHECK IF FF IS VALID * D F P* * D Z F P***************************************************************** D PFFCHK EQU * D P LD A1
0x422d2c…422ec0 Dummy {f00=0x014d, f01=0x0190, f02=» P ANK A1,/40 LOCAL HARD COPY? E & P RF(Z) FFCH20 YES, FF NOT ALLOWED E ( PFFCH10 EQU * E R P LDR A9,A9 FF ALLOWED E f P RF(Z) FFCH30 NOT E P LDR A1,A10 E P ANKL A1,CRREC CR RECEIVED? E P RF(NZ) FFCH30 YES E PFFCH20 EQU * E " P LDK
0x422ec0…423054 (10, 10) Dummy {f00=0x014d, f01=0x0190, f02=» =3 E n P LDR A9,A9 EMPTY LINE F P RF(Z) FFCH35 YES F * P CF A14,PRLINE PRINT LINE F D PFFCH35 EQU * F f P LDK A1,0 RETURN CODE F z PFFCH40 EQU * F P ORKL A10,NTONLY NOT ONLY F P RTN A14 F P EJECT F D P****************************
0x423054…4231e8 Dummy {f00=0x014d, f01=0x0190, f02=» PRINT LINE * F | D P* * G 4 D P**************************************************************** G | PPRLINE EQU * G P LD A8,ECBPRT,A11 G P LDR A1,A10 G P A
0x4231e8…42337c Dummy {f00=0x014d, f01=0x0190, f02=»COPY? G P RF(NZ) PRL200 NO H P ANK A2,/40 HARDCOPY????? H ( P RF(NZ) PRL200 NO H J PPRL050 EQU * H d 8 P ANKL A10,/FFFF-NTONLY RESET NOT ONLY SPACES RCV =3 H x P IFF BASWRI=1 . =24 H . P LDKL A9,2 ADD CONTROL CHAR. TO LENGTH =3 H P ADS A
0x42337c…423510 Dummy {f00=0x014d, f01=0x018e, f02=»RL,A8 TEXT TO PRINT? =24 H * P RF(Z) PRL070 NO! JUST CONTROL CH =24 I $ P EJECT HANDLING A TEXT LINE =36 I N * P PREPARE LINE. FIRST LEFT MARGIN =36 I v P IFF LMARG=0 . =36 I 0 P LDK A7,/20 FILL LEFT MARGIN WITH SPACE =36 I P LD A1,PRLMAR,A11 . =3
0x423510…4236a4 Dummy {f00=0x014d, f01=0x0190, f02=» " P CW A1,ECBBA,A8 FINISHED? =36 J P RB(G) PRL055 NO! =36 J * P XIF . =36 J H P IFT BASWRI=1 . =36 J P . =36 J x P LDK A7,/0D CR CCH =36 J 0 P SC* A7,ECBBA,A8 CR CCH FIRST IN BUFFER =36 J $ P IM LINCNT,A11 ANOTHER LINE =24 J P LDK A
0x4236a4…423838 Dummy {f00=0x014d, f01=0x018e, f02=» SCR A1,A7 LF CCH LAST IN BUF =25 J P . =35 K * P CALCULATE LINE LENGTH =36 K : P LDK A1,1 ALLOW FOR LF =36 K ^ & P AD A1,ECBRL,A8 ALLOW FOR TEXT =36 K 0 P AD A1,PRLMAR,A11 ALLOW FOR LEFT MARGIN =36 K 0 P ADS A1,PRCCCT,A11 NO. OF CH:S TO PRINT =
0x423838…4239cc Dummy {f00=0x014d, f01=0x0190, f02=» K ^ $ P LDKL A1,PRBFL BUFFER LENGTH =36 L . P SU A1,PRCCCT,A11 USED PART OF BUFFER =36 L 0 $ P SUR A1,A5 MAX. LINE LENGTH =36 L b & P SU A1,PRLMAR,A11 LEFT MARGIN =36 L 0 P RF(G) PRL200 ENOUGH SPACE. DON'T PRINT =36 L P . =36 L " PPRL065 EQU * PRI
0x4239cc…423b60 Dummy {f00=0x014d, f01=0x0190, f02=»,A8 BUFFER ADDRESS =36 L P LDK A7,/05 BASIC WRITE =24 M P LKM . =24 M B P DATA 1 . =24 M V . P CM PRCCCT,A11 CLEAR CHARACTER COUNTER =24 M l P RF PRL090 . =24 M , P EJECT HANDLING A CONTROL CHARACTER =36 M * PPRL070 EQU * STORE CCH IN BUFFER
0x423b60…423cf4 (10, 11) Dummy {f00=0x014d, f01=0x0190, f02=»6 M t P RF(Z) PRL075 NO =36 N P LDK A7,/0C YES. FF CCH =36 N & , P ANKL A10,/FFFF-FFCCH RESET FF IND. =36 N J PPRL075 EQU * . =36 N z & P SC* A7,ECBBA,A8 CCH TO BUFFER =36 N ( P IM ECBBA,A8 STEP BUFFER ADDRESS =36 N 2 P IM PRCCCT,A11 STEP NO. OF CH:
0x423cf4…423e88 Dummy {f00=0x014d, f01=0x0190, f02=»L090 EQU * . =24 N P XIF . =24 O P LDK A1,50 NUMBER OF DELAYS O , PPRL100 EQU * O P P LDKL A8,1 WAIT FOR A WHILE O d P LKM O P DATA 6 O P LD A8,ECBPRT,A11 O P LDR* A2,A8 PRINT COMPL.? O P RF(N) PRL150 YES O P SUK A1,1 MORE
0x423e88…42401c Dummy {f00=0x014d, f01=0x0190, f02=»F PRL300 O PPRL150 EQU * P P LKM P $ P DATA 2 RESYNCHRONIZE P 2 P IFF BASWRI=1 . =24 P P P IM LINCNT,A11 ANOTHER LINE P l & P CM ECBRL,A8 RESET PRINT LENGTH =3 P P XIF . =36 P P LD A1,ECBRC,A8 OK? P 6 P ANKL A1,/2011 PAPER OUT/HARDW
0x42401c…4241b0 Dummy {f00=0x014d, f01=0x0190, f02=»GTH =36 P t * P LD A8,ECBBA,A8 SET BUFFER POINTER =36 Q 0 P AD A8,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25 Q > P XIF . =24 Q r P IFF BASWRI=1 . =24 Q & P LD A8,ECBBA,A8 GET BUFFER ADDRESS Q P CMR A8 RESET CONTROL CHAR. Q P XIF . =24 Q P SUR
0x4241b0…424344 Dummy {f00=0x014d, f01=0x0190, f02=»L300 EQU * Q * P LD A2,PRTID,A11 GET PRINTER TASKID =6 R P ANK A2,/FF . =6 R @ P SUK A2,/30 . =6 R X P SLL A2,2 . =6 R p & P LD A3,+6,A13 COMMON BLOCK BASE =6 R P ADK A3,TSKTAB . =6 R P ADR A3,A2 . =6 R & P SC A1,+3,A3 SET PRINTER STATUS =6 R
0x424344…4244d8 Dummy {f00=0x014d, f01=0x0190, f02=»********************************** R j P* S * B P* PRCCH - SEND BUFFER WITH CONTROL CH:S TO PRINTER S 4 P* S z L P************************************************************************ S P* S PPRCCH EQU * . =24 S , P LD A1,PRCCCT,A1
0x4244d8…42466c Dummy {f00=0x014d, f01=0x0190, f02=»INTER =36 S v P XIF . =24 T P EJECT T & H P******************************************************************* T 4 H P* * T H P* INIT INIT ROUTINE
0x42466c…424800 Dummy {f00=0x014d, f01=0x0190, f02=»*********************** T d PINIT EQU * U P CF A14,COMINI COMMON INIT U 2 P CF A14,ECBINI INIT OF ECB:S U T P LCR A2,A1 U x P SLL A2,8 U P LC A2,+1,A1 U & P ST A2,PRTID,A11 SAVE WHOLE TASKID U 2 P LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX
0x424800…424994 (10, 12) Dummy {f00=0x014e, f01=0x018e, f02=»E TO INDEX U z P RF(E) INI200 V P ADK A1,4 V ( P SUK A7,1 ILLEGAL ID? V : P RB(NZ) INI100 NO V X P LDKL A1,* V r P ST A1,REGI,A11 V P LKM V P DATA 3 FORGET IT V PINI200 EQU * V P LD A1,+2,A1 V ( P ST A1,PRTTYP,A11 SAVE PRINTER
0x424994…424b28 Dummy {f00=0x014e, f01=0x0190, f02=» V d , P ST A2,PRBA,A11 SAVE IT IN WORK AREA =24 W P LDK A2,1 . =25 W 8 & P ST A2,PRLMAR,A11 ALLOW FOR CR =25 W P , P IFF LMARG=0 LEFT MARGIN FOR PRINTER =25 W z P LD A1,LMARGT,A1 . =25 W 2 P ADS A1,PRLMAR,A11 SAVE VALUE IN WORK AREA =25 W P XIF . =2
0x424b28…424cbc Dummy {f00=0x014e, f01=0x0190, f02=» * W z F P* TSTPRT TEST HARDWARE * X 4 F P* * X ~ F P****************************************************************
0x424cbc…424e50 Dummy {f00=0x014e, f01=0x0190, f02=» DATA 1 X P LD A4,ECBRC,A8 . =6 Y 6 P ANKL A4,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 Y , P RF(Z) TSTP20 NO! =31 Y f & P LDK A4,1 YES. INDICATE ERROR =31 Y PTSTP20 EQU * . =31 Y P . =6 Y P LD A2,PRTID,A11 . =6 Y P ANK A2,/FF Y
0x424e50…424fe4 Dummy {f00=0x014e, f01=0x0190, f02=» SC A4,+3,A3 INDICATE STATUS IN DEV TABLE =6 Y P ANK A4,1 OPERABLE? =6 Z 4 P RF(Z) TSTP90 YES! =6 Z R P LDR A1,A8 Z p P LDKL A8,100 Z P LKM Z P DATA 6 Z P LDR A8,A1 Z P . =6 Z P RB TSTP10 Z P . =6 Z P . =6 Z P
0x424fe4…425178 Dummy {f00=0x014e, f01=0x0190, f02=»*********** Z X H P* * [ H P* GETTAB GET ORDER INDEX * [ ` H P* * [ H P****************
0x425178…42530c Dummy {f00=0x014e, f01=0x0190, f02=»A1,PRTORD+2 ORDERTABLE BASE [ PGETT10 EQU * $ , P CCR A2,A1 CONVERT ORDER CODE TO ADDRESS 8 P RF(E) GETT20 h P AD A1,PRTTAB ~ P AD A1,PRTTAB P ADK A1,2 P SUK A7,1 ORDER FOUND? P RF(Z) GETT30 NO INVALID P RB GETT10 TRY
0x42530c…4254a0 Dummy {f00=0x014e, f01=0x4028, f02=» RTN A14 P ] P END ] @ ] $10 EQU * $ , P CCR A2,A1 CONVERT ORDER CODE TO ADDRESS 8 P RF(E) GETT20 h P AD A1,PRTTAB ~ P AD A1,PRTTAB P ADK A1,2 P SUK A7,1 ORDER FOUND? P RF(Z) GETT30 NO INVALID P RB GETT10 TRY
0x4254a0…425634 (10, 13) Dummy {f00=0x014e, f01=0x2008, f02=» ^ A1,TSKTAB ADR A3,A1 ADR A3,A2 0 LDK A1,1 B " SC A1,+2,A3 INDICATE NOT OP. T LKM z DATA 0 SWITCH TASK $ LDK A2,1 INDICATE ONCE NOT OP. RB TSTP10 TSTP80 EQU * LDR A2,A2 NOT OP. ONC
0x425634…4257c8 Dummy {f00=0x014e, f01=0x0190, f02=» ^ n P* =4 _ PGRCH10 EQU * =4 _ P RTN A15 =4 _ 0 P* =4 _ D PGRTAB EQU * =4 _ T , P DATA /2223,/263B,/405B,/5C5D,/5E5F =4 _ l P XIF =4 _ P IFT TRASPA=1 _ P EJECT _ 6 P************************************************** _
0x4257c8…42595c Dummy {f00=0x014e, f01=0x0190, f02=» LETES LOW INTENSITY START, HIGH _ P* INTENSITY START. ` * P* AND TABULATIONS ` N P* ` j 6 P************************************************** ` t P* ` PTRASP EQU * ` , P LD A1,ECBBA,A8 GET BUFFER ADDRESS (BA) ` , P LD A2,ECBRL
0x42595c…425af0 Dummy {f00=0x014e, f01=0x018e, f02=»DECR. BA ` P LCR A4,A1 GET CHAR a P ANK A4,/FF a , P SUK A4,/20 SPACE ? a @ P RF(Z) SKIP07 YES a P ADK A4,1 LOW INT. STOP ? a v P RF(Z) SKIP07 YES ! a P ADK A4,1 LOW INT. START ? a P RF(Z) SKIP07 YES ! a P CWK A2,4 a " P RF(
0x425af0…425c84 Dummy {f00=0x014e, f01=0x0190, f02=» PSKIP07 SUK A2,1 DECR RL b P RB SKIP05 GET NEXT b $ PSKIP30 EQU * b @ P LD A4,ECBRL,A8 b T ( P ST A4,ECBCW,A8 SAVE OLD REQ. LENGTH b l P* b P ST A2,ECBRL,A8 STORE NEW RL b P* b P RTN A15 b P XIF b P EJECT b @ P**************
0x425c84…425e18 Dummy {f00=0x014e, f01=0x018e, f02=» HEAD POSITION b l , P* COUNTER TO HOME POSITION ( /0101 ). c P* c F @ P************************************************************ c P P* c PRCDY EQU * c P LDKL A2,/7FFF c " P ANS A2,DWTST,A6 INDICATE BUSY c P* c $ P LDKL A2,MAXBLK MA
0x425e18…425fac Dummy {f00=0x014e, f01=0x0190, f02=» & P LD A2,DWTDEV,A6 GET DEVICE STATUS d & P ANKL A2,/2000 PTS 6385 OR 6386 ? d . P RF(Z) RCDY20 NO ! d X ( P LDK A3,/40 SET UP TRANSFER COUNTER d r P* d 0 PRCDY10 LDK A2,STILL-1 SET UP CURSOR BLINKING d * P ADK A2,STEADY ADJUST TO STEADY IF SO d *
0x425fac…426140 Dummy {f00=0x014e, f01=0x018e, f02=» TRANSFERS d x * P LDK A2,CTYCOD SEND "SET COUNTRY CODE" e P CF A5,OUTPUT e @ P RB(NZ) RCER e V ( P LDK A2,COUNTRY SEND "COUNTRY CODE" e j P ORK A2,/30 MAKE ASCII DIGIT e P CF A5,OUTPUT e P RB(NZ) RCER e PRCDY20 EQU * e P XIF e P* e
0x426140…4262d4 (10, 14) Opaque[0x194]
0x4262d4…426468 # DirEnt {nam=»VDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29d0, f03=0x0000}
0x4262d4…426468 IdxSect {
0x4262d4…426468 f00 = 0x014e // 0x4262d4 @0x0
0x4262d4…426468 f01 = 0x0022 // 0x4262d6 @0x2
0x4262d4…426468 gno = [ // 0x4262d8 @0x4
0x4262d4…426468 [0x00]: C0x014e.0x2.0
0x4262d4…426468 [0x01]: C0x014e.0x3.0
0x4262d4…426468 [0x02]: C0x014f.0x0.0
0x4262d4…426468 [0x03]: C0x014f.0x1.0
0x4262d4…426468 [0x04]: C0x014f.0x2.0
0x4262d4…426468 [0x05]: C0x014f.0x3.0
0x4262d4…426468 [0x06]: C0x0150.0x0.0
0x4262d4…426468 [0x07]: C0x0150.0x1.0
0x4262d4…426468 [0x08]: C0x0150.0x2.0
0x4262d4…426468 [0x09]: C0x0150.0x3.0
0x4262d4…426468 [0x0a]: C0x0151.0x0.0
0x4262d4…426468 [0x0b]: C0x0151.0x1.0
0x4262d4…426468 [0x0c]: C0x0151.0x2.0
0x4262d4…426468 [0x0d]: C0x0151.0x3.0
0x4262d4…426468 [0x0e]: C0x0152.0x0.0
0x4262d4…426468 [0x0f]: C0x0152.0x1.0
0x4262d4…426468 [0x10]: C0x0152.0x2.0
0x4262d4…426468 ]
0x4262d4…426468 }
0x426468…4265fc Dummy {f00=0x014e, f01=0x0190, f02=» . P IDENT VDU REL 11.0 82-07-07 870150541100 $ P MOVE TO UNPROT, ONLY FOR P&T 6 P ^ $ P =37 DUP OR FM CHAR ON PRINTER f & P =21 LOOP WHEN VDU NOT OPERABLE P 82-05-17 P =2 LOOP IN ERASUA P 82-03-10 " P DK1 BAD C
0x4265fc…426790 Dummy {f00=0x014e, f01=0x0190, f02=»**************************************** x D P* * 0 D P* MODULE VDU * x D P* MODULE HANDLING THE DISPLAY SCREEN AND * D P
0x426790…426924 Dummy {f00=0x014e, f01=0x0190, f02=» P D P* * D P**************************************************************** P P EJECT @ P*********************************************************** P* P* LIST OF ROUTINES
0x426924…426ab8 Dummy {f00=0x014e, f01=0x0190, f02=»VE SPACES INTO ECB BUFFER x . P* INTCHK GET INTENSITY CHAR. " 0 P* SETIND SET DISPLAY INDICATOR T & P* INSMOD INSERT CHAR. * P* UPDCNT UPDATE COUNTERS 2 P* GETVDU GET CHAR. IN VDU B
0x426ab8…426c4c Dummy {f00=0x014e, f01=0x0190, f02=» STORE SCREEN INFORMATION & P* SOUND SOUND ALARM & . P* WRAP CHECK IF WRAP AROUND P , P* LINWRP CHECK IF LINE WRAP * P* LINE UPDATE LINE FLAG < P* LINATT UPDATE LINFLG AT A
0x426c4c…426de0 Dummy {f00=0x014e, f01=0x0190, f02=» ERASE ALL UNPROTECTED 6 P* ERASUA ERASE UNPROTECTED TO ADDRESS $ 8 P* POSUNP MOVE CURSOR TO NEXT UNPRO. POS ^ 2 P* DISID DISPLAY HARDCOPY TASKID , P* DISSTA DISPLAY STATISTICS $ P*
0x426de0…426f74 (10, 15) Dummy {f00=0x014e, f01=0x0190, f02=» ATMASB SEARCH ATTRIBUTE BACKWARD 2 P* SNULL SEARCH FIRST NULL CHAR. 4 2 P* WCHAR DISPLAY CHAR. AND CURSOR j 8 P* RFMDUP REPLACE FM OR DUP CHAR. IF ANY ( P* DISCHA DISPLAY CHAR. P
0x426f74…427108 Dummy {f00=0x014e, f01=0x0190, f02=»****************************** j H P* * & H P* ENTRY POINTS * r H P* * H
0x427108…42729c Dummy {f00=0x014e, f01=0x0190, f02=»U GET CHAR. FROM VDU BUFFER , P ENTRY STOVDU STORE CHAR. IN VDU BUFFER $ ( P ENTRY SCRINF GET SCREEN INFORMATION T * P ENTRY STOINF SAVE SCREEN INFORMATION 0 P ENTRY POSUNP MOVE TO NEXT UNPROTECTED POS. , P ENTRY ATMASB SEARCH ATTRIBUTE BACKWAR
0x42729c…427430 Dummy {f00=0x014e, f01=0x0190, f02=» * P ENTRY DISMOD DISPLAY MODIFIED FIELDS ( P ENTRY DISID DISPLAY HARDCOPY TASKID 2 . P ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS ^ $ P ENTRY ERASE ERASE ENTIRE SCREEN $ P ENTRY SOUND SOUND ALARM ON VDU ( P ENTRY ERASUP ERASE ALL UNPROTECTED
0x427430…4275c4 Dummy {f00=0x014e, f01=0x0190, f02=»TE LINE FLAG P ENTRY LINATT UPADTE $ P ENTRY DISSTA DISPLAY STATISTICS 0 , P ENTRY RFMDUP REPLACE FM OR DUP CHAR =37 X P P EJECT H P******************************************************************** H P*
0x4275c4…427758 Dummy {f00=0x014e, f01=0x018e, f02=» * H P******************************************************************** > P 0 P EXTRN TAB TAB UNPROCTECTED FOREWARD (KEYB) : P EXTRN CRDOWN MOVE CURSOR UNPROTECTED NEXT LINE (KEYB) 4 P EXT
0x427758…4278ec Dummy {f00=0x014e, f01=0x0190, f02=» P EJECT P P J P********************************************************************* " J P* * p J P* CONDITIONAL ASSEMBLY PARAMETERS *
0x4278ec…427a80 Dummy {f00=0x014e, f01=0x0190, f02=»*************** Z P $ PX:I EQU 1 INSERT/DELETE HANDLING PIN:DL EQU 1 H " PX:O EQU 0 TEST INCLUDED IF:=1 PTEST EQU 0 P EJECT D P*************************************************************** D P*
0x427a80…427c14 (10, 16) Dummy {f00=0x014f, f01=0x0190, f02=» * D P*************************************************************** P P* d $ P* EQUATES FOR ECB HANDLING n P* PECBBA EQU 2 BUFFER ADDRESS PECBRL EQU 4 REQUESTED LENGTH PECBEL EQU 6 EFFECTIVE LENGTH
0x427c14…427da8 Dummy {f00=0x014f, f01=0x0190, f02=». | " PNEWLIN EQU /0A NEW LINE CHAR. " PFORMFD EQU /0C FORM FEED CHAR. 0 $ PENDMES EQU /19 END MESSAGE CHAR. V " PDUPCH EQU /1C DUPLICATE CHAR. ~ " PFMCH EQU /1E FIELD MARK CHAR. P* P* TASK IDENTIFICATION CODE P* PVDUCOD E
0x427da8…427f3c Dummy {f00=0x014f, f01=0x0190, f02=»TE RECEIVED x P* P* VDU SCREEN SIZE P* 8 PLLINE EQU 80 LINE LENGTH B PLBVDU EQU 1920 TOTAL SIZE b P IFT TEST=1 P* P* STAT. LAYOUT P* , PNUMLIN EQU 13 NUMBER OF LINES YO DISPLAY * PSTALIN EQU 5 STARTING
0x427f3c…4280d0 Dummy {f00=0x014f, f01=0x0190, f02=»08,/090A,/0C0E,/1D1E,/1F00 v P XIF " P EJECT . P* < P* RELATIVE ADDRESSES IN F P* TERMINAL WORKBLOCK f P* $ PTCT01 EQU 0 TASK IDENTIFICATION " PBVDU EQU TCT01+2 SCREEN BUFFER , PLINFLG EQU BVDU+1920 INTERNAL LINE FLAGS &
0x4280d0…428264 Dummy {f00=0x014f, f01=0x0190, f02=»CC/CCC CHARACTER ~ ( PINTATT EQU WCC+8 INTENSITY ATTRIBUTE $ PREGI EQU INTATT+32 WORK REGISTER D PECBVDU EQU REGI+40 l P* P* RELATIVE ADDRESSES IN P* COMMON WORKBLOCK P* " PIDTEXT EQU 2 IDENT TEXT LAYOUT P IFT TEST=1
0x428264…4283f8 Dummy {f00=0x014f, f01=0x0190, f02=»*** Z > P* * > P* DISMOD DISPLAY MODIFIED FIELDS * N > P* * > P******************************************************
0x4283f8…42858c Dummy {f00=0x014f, f01=0x0190, f02=»L. ATTRIBUTE POS. P* A6= ADDRESS IN ECB P* A7= INDEX IN ECB 6 P* A8= VDU ECB P P* A9= INTENSITY COUNTER f P* A10= INDICATOR P* A11= CREDIT WORK AREA P* A13= RESERVED P* : P****************************************
0x42858c…428720 Dummy {f00=0x014f, f01=0x0190, f02=»A9 RESET INTENSITY COUNTER P SUR A10,A10 " P LDKL A3,BVDU 6 P ADR A3,A11 L P CF A14,SCRINF ` " P LDK A4,0 FIRST SCREEN POS. DK v ( P CF A14,SPACES SPACES IN ECB BUFFER P ST A5,REGI,A11 P LDKL A1,LBVDU+1 P LDR A5,A11
0x428720…4288b4 (10, 17) Dummy {f00=0x014f, f01=0x0190, f02=» A10,A10 P RF(NZ) DIS900 ( P CF A14,INTCHK CHECK INTENSITY CHAR. & P LDR A1,A10 R P SUR A10,A10 f P LDR A1,A1 z P RF(N) DIS800 NONDISPLAY P RF(NZ) DIS400 DISPLAY LINE $ P LD A2,ECBCW,A8 NO MODIFICATION P CWK A2,/1901 AL
0x4288b4…428a48 Dummy {f00=0x014f, f01=0x0190, f02=» P CF A14,DISLIN DISPLAY LINE P RB DIS100 , PDIS500 EQU * > & P LCR A2,A3 GET CHAR. IN VDU-BUFFER R & P CF A14,SETIND SET SPACE INDICATOR | P CCK A2,/8000 ATTRIBUTE? P RF(NL) DIS700 YES " P CF A14,UPDCNT UPDATE COUNTERS P C
0x428a48…428bdc Dummy {f00=0x014f, f01=0x0190, f02=»ND MESSAGE CHAR.? P RB(E) DIS400 YES $ P CWK A2,FORMFD FORM FEED CHAR.? 4 P RB(E) DIS400 YES , P CF A14,RFMDUP REPLACE DUP AND FM CHAR. v * P SC A2,-1,A6 STORE CHAR. IN ECB BUFFER P RB DIS400 PDIS700 EQU * P ST A2,INTATT,
0x428bdc…428d70 Dummy {f00=0x014f, f01=0x0190, f02=»YES " P CF A14,UPDCNT UPDATE COUNTERS P RF DIS800 NONDISPLAY 2 PDIS715 EQU * P P LDK A2,/1F HIGH d P RF DIS750 | PDIS725 EQU * P LDK A2,/1E LOW PDIS750 EQU * ( P SCR A2,A6 SAVE CHAR. IN ECB BUFFER P ADKL A9,1
0x428d70…428f04 Dummy {f00=0x014f, f01=0x0190, f02=» RF(L) DIS850 NO P CF A14,DISLIN DISPLAY LINE P RB DIS100 < PDIS850 EQU * N & P LCR A2,A3 GET CHAR. IN VDU-BUFFER b P CCK A2,/8000 ATTRIBUTE? P RB(NL) DIS700 YES " P CF A14,UPDCNT UPDATE COUNTERS P RB DIS800 PDIS900 EQU
0x428f04…429098 Dummy {f00=0x014f, f01=0x018e, f02=» EJECT @ P*********************************************************** @ P* * R @ P* DISLIN DISPLAY LINE ON VDU * @ P*
0x429098…42922c Dummy {f00=0x014f, f01=0x018e, f02=» P* A4= RESERVED P* A5= RESERVED P* A6= RESERVED 4 P* A8= ECB VDU J P* A9= INTENSITY COUNTER ` P* A10= INDICATOR P* A11= RESERVED P* A13= RESERVED P* @ P******************************************************
0x42922c…4293c0 Dummy {f00=0x014f, f01=0x018e, f02=» | P LDKL A7,LLINE+2 REQ. LENGTH , P ADR A7,A9 ADD NUMBER OF INTENSITY CHAR. , PDISL10 EQU * P ST A7,ECBRL,A8 p ( P LD A2,ECBCW,A8 SAVE CURSOR POS =21 & P LDKL A7,/8B SET CURSOR AND WRITE P LKM P DATA 1 P LD A1,ECBRC,A
0x4293c0…429554 (10, 18) Dummy {f00=0x014f, f01=0x0190, f02=» b & P RF DISL90 TERMINATE VDU LINE =21 PDISL20 EQU * . =21 2 $ P LD A1,ECBCW,A8 GET CURSOR POS. L P ANK A1,/FF t , P SUK A1,81 LAST POS. ON LINE DISPLAYED? P RF(Z) DISL90 YES P LD A6,ECBBA,A8 P LDK A2,/2B P SC A2,1,A
0x429554…4296e8 Dummy {f00=0x014f, f01=0x0190, f02=» A7,/86 WRITE P LKM P DATA 1 " PDISL90 EQU * 2 P ADK A5,1 F P LDK A2,1 FIRST POS. ON LINE X P SC A2,ECBCW+1,A8 | $ P LDKL A2,/100 MOVE ONE LINE DOWN P ADS A2,ECBCW,A8 P SUR A10,A10 P LD A2,ECBCW,A8 P CWK A
0x4296e8…42987c Dummy {f00=0x014f, f01=0x0190, f02=» h P RTN A14 P EJECT @ P************************************************************ & @ P* * j @ P* SPACES MOVE SPACES TO ECB BUFFER * @ P*
0x42987c…429a10 Dummy {f00=0x014f, f01=0x0190, f02=» P* A2= CHAR. ! P* A3= RESERVED ! P* A4= RESERVED ! 2 P* A5= RESERVED ! H P* A6= ADDRESS IN ECB BUFFER ! ^ P* A7= INDEX IN ECB ! P* A8= VDU ECB ! P* A9= INTENSITY COUNTER ! P* A10= INDICATOR ! P* A11= RESERVED ! P* A13=
0x429a10…429ba4 Dummy {f00=0x014f, f01=0x018e, f02=»BUFFER ADDRESS ! | P ADK A6,2 " P LDK A7,LLINE LINE LENGTH " ( P ADR A7,A7 BUFFER LENGTH " J P LDKL A2,' ' SPACES " j PSPAC10 EQU * " P SCR A2,A6 " P SC A2,1,A6 " P ADK A6,2 " " P SUK A7,2 WHOLE BUFFER SPACED? " P RB(P) SPAC10 NO
0x429ba4…429d38 Dummy {f00=0x014f, f01=0x018e, f02=» " P EJECT # > P********************************************************* # > P* * # X > P* INTCHK GET INTENSITY CHAR. * # > P*
0x429d38…429ecc Dummy {f00=0x014f, f01=0x0190, f02=» P* A3= RESERVED $ P* A4= RESERVED $ P* A5= RESERVED $ 0 P* A6= ADDRESS IN ECB BUFFER $ F P* A7= RESERVED $ j P* A8= RESERVED $ P* A9= INTENSITY COUNTER $ P* A10= INDICATOR $ P* A11= CREDIT WORK AREA $ P* A13= RESERVED $ P*
0x429ecc…42a060 Dummy {f00=0x014f, f01=0x0190, f02=»FLG,A5 GET LINE FLAG $ P ANK A2,1 MODIFIED? % P RF(NZ) INT100 YES % : P ADK A3,LLINE NEXT LINE % T P ADK A4,LLINE % t P ADK A5,1 % P LDK A2,1 % P SC A2,ECBCW+1,A8 % P LDKL A2,/100 % P ADS A2,ECBCW,A8 % P LDKL A10,0 %
0x42a060…42a1f4 (10, 19) Dummy {f00=0x014f, f01=0x0190, f02=»I,A11 % ( P CWK A2,LBVDU+1 UNFORMATTED SCREEN? & P RF(E) INT200 YES & : P CF A14,SAVE1 & T P LDR A1,A4 & j P CF A14,SCRINF & | P LDR A2,A5 & P LDR A3,A6 & ( P CF A14,ATMASB GET CURRENT ATTRIBUTE & P ST A6,INTATT,A11 & P LDR A5,A2 &
0x42a1f4…42a388 Dummy {f00=0x014f, f01=0x018e, f02=» A1,A2 & P ANK A1,8 LOW INTENSITY? ' P RF(Z) INT300 YES ' . P ANK A2,4 HIGH INTENSITY? ' H " P RF(NZ) INT800 NO, NONDISPLAY ' j P LDK A2,/1F HIGH ' P RF INT400 ' PINT300 EQU * ' P LDK A2,/1E LOW ' PINT400 EQU * ' " P SCR A2,A6 SAV
0x42a388…42a51c Dummy {f00=0x014f, f01=0x0190, f02=» ' P RTN A14 ( P EJECT ( 4 P************************************************ ( & 4 P* * ( ^ 4 P* SETIND SET DISPLAY INDICATOR * ( 4 P* * ( 4 P**
0x42a51c…42a6b0 Dummy {f00=0x014f, f01=0x0190, f02=»ED ( P* A5= RESERVED ) P* A6= RESERVED ) P* A7= RESERVED ) 6 P* A8= RESERVED ) L P* A9= RESERVED ) b P* A10= DISPLAY INDICATOR ) x P* A11= RESERVED ) P* A13= RESERVED ) P* ) & P********************************** ) PSETIND EQU *
0x42a6b0…42a844 Dummy {f00=0x014f, f01=0x0190, f02=»14 ) P EJECT * D P**************************************************************** * D P* * * ` D P* INSMOD INSERT CHARACTER * * D P*
0x42a844…42a9d8 Dummy {f00=0x014f, f01=0x0190, f02=» P* + D P* A1= AT RETURN 0=NULL IN POS., 1=NORMAL INSERT, 2=NOT ALLOWED + P* A2= RESERVED + V P* A4= REL. CURSOR POS. + l P* A5= REL. ATTRIBUTE POS. + P* A6= ATTRIBUTE CHAR. + P* A11= CREDIT WORK AREA + P* A13= RESERVED + P* +
0x42a9d8…42ab6c Dummy {f00=0x014f, f01=0x0190, f02=»F A14,GETVDU GET CHAR. IN VDU BUFFER + P CCK A7,NULL NULL CHAR.? , , P RF(NE) INS100 NO , L * P LDK A1,0 INDICATE NULL IN CURSOR POS. , f P RF INS900 , PINS100 EQU * , P LDR A3,A4 , ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? , P RF(E) INS200 YE
0x42ab6c…42ad00 Dummy {f00=0x014f, f01=0x018e, f02=»A8,ATTRIB,A11 RESTORE , P ST A9,CURATT,A11 RESTORE - P LDR A6,A8 - @ P LDR A5,A9 - R PINS200 EQU * - d $ P CF A14,SNULL SEARCH FIRST NULL - x P ANK A1,2 NULL FOUND? - P RF(Z) INS300 YES - P LDK A1,2 INDICATE ERROR - P RF INS900 -
0x42ad00…42ae94 (10, 20) Dummy {f00=0x0150, f01=0x0190, f02=» P ST A6,ATTRIB,A11 . P LDR A1,A5 . P LDR A7,A6 . 0 4 P CF A14,STOVDU SAVE NEW ATTRIBUTE IN VDU-BUFFER . B PINS350 EQU * . z P LDR A1,A3 . P ST A4,REGI,A11 . P LDR A4,A1 . P LDK A5,LLINE . P LDR A6,A11 . P SUR A10,A10 . P
0x42ae94…42b028 Dummy {f00=0x0150, f01=0x0190, f02=» . f P RF(E) INS500 YES / P SUK A1,1 / " * P CF A14,GETVDU GET CHAR IN VDU BUFFER / 4 P ADK A1,1 / b P LDR A9,A1 / t P LDK A5,LLINE / P LDR A6,A11 / P CF A14,LINE / P LDR A1,A9 / P LC A9,LINFLG,A6 / P ORKL A9,1 / P SC A9,L
0x42b028…42b1bc Dummy {f00=0x0150, f01=0x0190, f02=»ALL SHIFTED? / P RF(E) INS600 YES 0 P RB INS400 0 . PINS500 EQU * 0 @ " P LDKL A1,LBVDU-1 GET LAST CHAR 0 T * P CF A14,GETVDU GET CHAR IN VDU BUFFER 0 z P LDK A1,0 0 P LDK A4,0 0 P LDR A9,A1 0 P LDK A5,LLINE 0 P LDR A6,A11 0 P
0x42b1bc…42b350 Dummy {f00=0x0150, f01=0x0190, f02=» BUFFER 0 p & P LDKL A1,LBVDU-1 LAST SCREEN POS. 1 P LDKL A4,LBVDU-1 1 : P RB INS450 1 R PINS600 EQU * 1 d P LDR A7,A2 GET KEY-CHAR 1 x , P CF A14,STOVDU STORE CHAR IN VDU BUFFER 1 P LDK A5,LLINE 1 P LDR A6,A11 1 P CF A14,LINE 1 P L
0x42b350…42b4e4 Dummy {f00=0x0150, f01=0x0190, f02=» P CWK A4,LBVDU-1 WRAP AROUND? 2 P RF(NG) INS700 NO 2 ( " P LDK A4,0 FIRST POS. ON SCREEN 2 B P CM PCURS,A11 2 h PINS700 EQU * 2 ~ * P CF A14,DISMOD DISPLAY MODIFIED FIELD 2 $ P LDK A1,1 INDICATE NORMAL INSERT 2 PINS900 EQU * 2 P RTN A14 2
0x42b4e4…42b678 Dummy {f00=0x0150, f01=0x018e, f02=» * 2 h > P* UPDCNT UPDATE COUNTERS * 3 > P* * 3 > P********************************************************* 3 P* REGISTERS 3 P* 3 P*
0x42b678…42b80c Dummy {f00=0x0150, f01=0x0190, f02=» P* A8= RESERVED 4 P* A9= RESERVED 4 P* A10= RESERVED 4 0 P* A11= RESERVED 4 H P* A13= RESERVED 4 ` P* 4 x > P********************************************************* 4 PUPDCNT EQU * 4 P ADK A3,1 4 P ADK A4,1 4 P ADK A6,1 4
0x42b80c…42b9a0 Dummy {f00=0x0150, f01=0x0190, f02=» * 4 D P* GETVDU GET CHAR. IN VDU BUFFER * 5 > D P* * 5 D P**********************************************************
0x42b9a0…42bb34 (10, 21) Dummy {f00=0x0150, f01=0x018e, f02=»ED 5 P* A5= RESERVED 6 P* A6= RESERVED 6 P* A7= CHAR. FROM VDU BUFFER 6 6 P* A8= RESERVED 6 Z P* A9= RESERVED 6 p P* A10= RESERVED 6 P* A11= CREDIT WORK AREA 6 P* A13= RESERVED 6 P* 6 < P****************************************
0x42bb34…42bcc8 Dummy {f00=0x0150, f01=0x0190, f02=» 6 P RTN A14 7 P EJECT 7 B P************************************************************** 7 & B P* * 7 l B P* STOVDU STORE CHAR. IN VDU BUFFER * 7 B P*
0x42bcc8…42be5c Dummy {f00=0x0150, f01=0x0190, f02=» 7 P* 8 " P* A1= REL. POS. IN VDU BUFFER 8 P* A2= RESERVED 8 8 P* A3= RESERVED 8 N P* A4= RESERVED 8 d P* A5= RESERVED 8 z P* A6= RESERVED 8 & P* A7= CHAR. TO STORE IN VDU BUFFER 8 P* A9= RESERVED 8 P* A10= RESERVED 8 P* A11= CRE
0x42be5c…42bff0 Dummy {f00=0x0150, f01=0x0190, f02=» P LDKL A8,BVDU 9 P ADR A8,A11 9 P ADR A8,A1 9 . P SCR A7,A8 9 @ P RTN A14 9 R P EJECT 9 b < P******************************************************** 9 p < P* * 9 < P* SCRINF GE
0x42bff0…42c184 Dummy {f00=0x0150, f01=0x0190, f02=»************************ 9 p P* REGISTERS : P* : 4 P* A2= RESERVED : > P* A4= REL. CURSOR POS. : T P* A5= REL. ATTRIBUTE POS. : r P* A6= ATTRIBUTE CHAR. : P* A11= CREDIT WORK AREA : P* A13= RESERVED : P* : < P********************
0x42c184…42c318 Dummy {f00=0x0150, f01=0x0190, f02=»POS. : p * P LD A6,ATTRIB,A11 GET ATTRIBUTE CHAR. ; P RTN A14 ; : P EJECT ; J < P******************************************************** ; X < P* * ; < P* STOINF STORE SCREEN INFORMATION
0x42c318…42c4ac Dummy {f00=0x0150, f01=0x0190, f02=» ; X P* REGISTERS < P* < P* A4= REL. CURSOR POS. < & P* A5= REL. ATTRIBUTE POS. < D P* A6= ATTRIBUTE CHAR. < f P* A11= CREDIT WORK AREA < P* A13= RESERVED < P* < < P******************************************************** < PST
0x42c4ac…42c640 Dummy {f00=0x0150, f01=0x0190, f02=»******************************************* < < P* * = 4 < P* SOUND SOUND ALARM ON VDU * = t < P* * = < P********************
0x42c640…42c7d4 (10, 22) Dummy {f00=0x0150, f01=0x0190, f02=»RK AREA = P* A13= RESERVED > P* > ( < P******************************************************* > 2 PSOUND EQU * > r P LD A8,ECBVDU,A11 > P LD A1,ECBBA,A8 > P LDK A2,/2B CONTROL CHAR. > P SC A2,1,A1 > P LDK A2,/07 BELL CHAR. >
0x42c7d4…42c968 Dummy {f00=0x0150, f01=0x0190, f02=»RC,A8 GET RETURN CODE > P RTN A14 ? P EJECT ? . : P***************************************************** ? < : P* * ? z : P* WRAP CHECK IF WRAP AROUND * ? : P*
0x42c968…42cafc Dummy {f00=0x0150, f01=0x018e, f02=»* A2= RESERVED ? P* A3= ADDRESS IN VDU BUFFER @ P* A4= REL. CURSOR POS. @ : P* A5= RESERVED @ X P* A6= RESERVED @ n P* A7= RESERVED @ P* A8= RESERVED @ P* A9= RESERVED @ P* A10= RESERVED @ P* A11= CREDIT WORK AREA @ P* A13= RES
0x42cafc…42cc90 Dummy {f00=0x0150, f01=0x0190, f02=» P RF(L) WRAP90 NO A P LDK A4,0 FIRST SCREEN POS. A P LDKL A3,BVDU A @ P ADR A3,A11 A V PWRAP90 EQU * A j P RTN A14 A ~ P EJECT A @ P************************************************************ A @ P*
0x42cc90…42ce24 Dummy {f00=0x0150, f01=0x0190, f02=» * A j @ P************************************************************ B P* REGISTERS B b P* B v P* A3= RESERVED B P* A4= REL CURSOR POS B P* A5= LAST IN ROW REL POS B P* A6= RESERVED B P* A8= RESERVED B P* A9= RE
0x42ce24…42cfb8 Dummy {f00=0x0150, f01=0x0190, f02=»******************* B h PLINWRP EQU * C P CWR A5,A4 END OF LINE? C 0 P RF(G) LINW10 NO C P " P CF A14,LINE UPDATE LINE FLAG C h PLINW10 EQU * C P RTN A14 C P EJECT C @ P************************************************************ C @ P*
0x42cfb8…42d14c Dummy {f00=0x0150, f01=0x018e, f02=» * C B P************************************************************* D @ P* REGISTERS D P* D P* A3= ADDRESS IN VDU BUFFER D P* A4= REL CURSOR POS D P* A5= LAST IN ROW REL POS D $ P*
0x42d14c…42d2e0 Dummy {f00=0x0150, f01=0x0190, f02=» P* A13= RESERVED E P* E @ P*********************************************************** E & PLINE EQU * E j P CWR A5,A4 THIS LINE? E | P RF(G) LIN400 YES,MAYBE E P LDR A1,A10 E & P ANK A1,ATTREC ATTRIBUTE RECEIVED? E P RF(Z) LIN100 NO
0x42d2e0…42d474 (10, 23) Dummy {f00=0x0150, f01=0x0190, f02=»SS E z P CWK A6,23 WRAP SCREEN? F P RF(G) LIN300 YES F * P ADK A5,LLINE F D P ADR A6,A11 F Z P RB LINE F n PLIN300 EQU * F ~ P LDK A4,0 FIRST SCREEN POS. F P LDKL A3,BVDU F P ADR A3,A11 F P LDR A6,A11 F P LDK A5,LLINE F
0x42d474…42d608 Dummy {f00=0x0150, f01=0x0190, f02=»B LINE F PLIN500 EQU * G P ADR A5,A4 RESTORE G " P RTN A14 G < P EJECT G L B P************************************************************* G Z B P* * G B P* LINATT UPADTE LINFL
0x42d608…42d79c Dummy {f00=0x0150, f01=0x0190, f02=»******************************* G r P* REGISTERS H ( P* H < P* A3= ADDRESS IN VDU BUFFER H F P* A4= REL CURSOR POS H j P* A5= LAST IN ROW REL POS H $ P* A6= INTERNAL LINE FLAG ADDRESS H P* A8= RESERVED H P* A9= RESERVED H P* A10= RESER
0x42d79c…42d930 Dummy {f00=0x0150, f01=0x0190, f02=»**** H V PLINATT EQU * I P CF A14,SAVE1 I P SUR A6,A11 I 6 P LDK A2,0 I J P LDR A10,A4 . =1 I PLINA10 EQU * I t P ADK A4,1 I P ADK A3,1 I P CWR A5,A4 END OF LINE? I P RF(G) LINA30 NO I P ADR A6,A11 I P LC A1,LINFLG,A6
0x42d930…42dac4 Dummy {f00=0x0150, f01=0x018e, f02=»S I P ADK A5,LLINE J P RF LINA30 J PLINA20 EQU * J 2 P LDK A6,0 J F P LDK A4,0 J X P LDKL A3,BVDU J j P ADR A3,A11 J P LDK A5,LLINE J PLINA30 EQU * J P CWR A4,A10 ALL CHECKED? =1 J P RF(E) LINA40 YES =1 J P LCR A2,A3
0x42dac4…42dc58 Dummy {f00=0x0150, f01=0x0190, f02=» J @ P*********************************************************** K @ P* * K L @ P* NLROUT NEW LINE ROUTINE * K @ P*
0x42dc58…42ddec Dummy {f00=0x0150, f01=0x018e, f02=»FFER K z P* A4= REL CURSOR POS L P* A5= RESERVED L ( P* A6= RESERVED L > P* A8= RESERVED L T P* A9= RESERVED L j P* A10= RESERVED L P* A11= RESERVED L P* A13= RESERVED L P* L @ P******************************************************
0x42ddec…42df80 Dummy {f00=0x0150, f01=0x0190, f02=» PNLR100 EQU * M ( P SUK A4,LLINE COMPUTE LEFTMOST POS. M P RF(N) NLR200 M D P ADK A7,LLINE M Z P RB NLR100 M p PNLR200 EQU * M P LDR A4,A1 M P LDK A2,NULL M PNLR300 EQU * M P CWR A7,A4 ALL NULLED? M P RF(E) NLR900 YES M " P
0x42df80…42e114 (10, 24) Dummy {f00=0x0151, f01=0x0190, f02=» P CF A14,LINWRP N P RB NLR300 N PNLR900 EQU * N , P RTN A14 N @ P EJECT N P H P******************************************************************** N ^ H P* * N H P* ERASE
0x42e114…42e2a8 Dummy {f00=0x0151, f01=0x018e, f02=»***************************************************************** N P* REGISTERS O J P* O ^ P* A2= CHAR. O h P* A3= ADDRESS IN VDU-BUFFER O | P* A4= REL. CURSOR ADDRESS O P* A5= REL ATTRIBUTE POS O P* A6= ATTRIBUTE CHAR O P* A11= CRE
0x42e2a8…42e43c Dummy {f00=0x0151, f01=0x0190, f02=» O P LDK A4,0 FIRST SCREEN POS. P P LDKL A3,BVDU P , P ADR A3,A11 P B " P LDK A2,NULL STORE NULL CHAR. P V PERAS10 EQU * P | * P CWK A4,LBVDU+24 WHOLE SCREEN NULLED? P P RF(NL) ERAS20 YES P P SCR A2,A3 STORE CHAR. P P ADK A3,1 P P
0x42e43c…42e5d0 Dummy {f00=0x0151, f01=0x0190, f02=» LDK A6,0 P * P CF A14,STOINF SAVE SCREEN INFORMATION Q P LC A1,TCT01,A11 Q @ " P CCK A1,VDUCOD PRINTER UNPACK? Q X P RF(NE) ERAS30 YES Q ~ P LD A8,ECBVDU,A11 Q P LDK A2,'1' ERASE CHAR. Q P LD A1,ECBBA,A8 Q P SC A2,1,A1 Q P LDK A1,2
0x42e5d0…42e764 Dummy {f00=0x0151, f01=0x0190, f02=»JECT Q > P********************************************************* R > P* * R N > P* ERASUP ERASE ALL UNPROTECTED * R > P*
0x42e764…42e8f8 Dummy {f00=0x0151, f01=0x018e, f02=»DRESS IN VDU-BUFFER R P* A4= REL. CURSOR POS. S P* A5= REL. ATTRIBUTE POS. S : $ P* A6= INTERNAL LINE FLAG ADDRESS S P* A11= CREDIT WORK AREA S P* A13= RESERVED S P* S > P********************************************************* S P
0x42e8f8…42ea8c Dummy {f00=0x0151, f01=0x0190, f02=» P ADR A3,A11 T " P LDK A7,NULL STORE NULL CHAR. T ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? T > P RF(NE) ERUP10 NO T j P CF A14,ERASE T P RF ERUP90 T PERUP10 EQU * T P LCR A2,A3 GET CHAR. T P CCK A2,/8000 ATTRIBUTE? T P RF(NL) ERUP
0x42ea8c…42ec20 Dummy {f00=0x0151, f01=0x0190, f02=»LLINE T P LDR A6,A11 U P SUR A10,A10 U " P CF A14,LINE U 6 P RF ERUP47 U J PERUP30 EQU * U P ADK A3,1 U p P ADK A4,1 U * P CF A14,LINWRP CHECK IF LINWRP AROUND U P LCR A2,A3 GET CHAR. U P CCK A2,/8000 ATTRIBUTE? U P RB(L) ERU
0x42ec20…42edb4 (10, 25) Dummy {f00=0x0151, f01=0x0190, f02=»1,/20 PROTECTED? U P RB(NZ) ERUP30 YES V P ANK A2,/FE RESET MDT-BIT V 2 P SCR A2,A3 SAVE ATTRIBUTE V T P LC A1,LINFLG,A6 V v P ORK A1,1 V P SC A1,LINFLG,A6 V P ADK A3,1 V P ADK A4,1 V PERUP50 EQU * V * P CF A14,LINWRP CHECK IF
0x42edb4…42ef48 Dummy {f00=0x0151, f01=0x0190, f02=»IN VDU BUFFER V t P LC A1,LINFLG,A6 W P ORK A1,1 W . P SC A1,LINFLG,A6 W @ P ADK A3,1 W X P ADK A4,1 W j P RB ERUP50 W | PERUP70 EQU * W 4 P CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN W PERUP90 EQU * W P RTN A14 W P EJECT W
0x42ef48…42f0dc Dummy {f00=0x0151, f01=0x0190, f02=» * W ^ D P* * X D P**************************************************************** X ^ P* REGISTERS X P* X P* A1= STOP ADDRESS X P* A2= CHAR. X P* A3= ADDRESS IN VDU-B
0x42f0dc…42f270 Dummy {f00=0x0151, f01=0x0190, f02=» CREDIT WORK AREA X P* A13= RESERVED Y P* Y 2 D P**************************************************************** Y < PERASUA EQU * Y " P LDK A7,NULL STORE NULL CHAR. Y P LDKL A3,BVDU Y P ADR A3,A11 Y P ADR A3,A4 BUFFER POS. Y ( P C
0x42f270…42f404 Dummy {f00=0x0151, f01=0x018e, f02=»BUTE? Y t P RF(NE) ERUA10 NO Z P ADK A3,1 Z ( P ADK A4,1 Z : P CWR A1,A4 ALL NULLED? Z L P RF(E) ERUA70 YES Z j & P CF A14,WRAP CHECK IF WRAP AROUND Z PERUA10 EQU * Z P ANK A2,/20 PROTECTED FIELD? Z P RF(Z) ERUA47 NO Z PERUA30 EQU
0x42f404…42f598 Dummy {f00=0x0151, f01=0x0190, f02=» Z z P ADK A3,1 [ P ADK A4,1 [ P . =2 [ , P CCK A2,/8000 ATTRIBUTE? [ < P RB(L) ERUA30 NO [ PERUA45 EQU * [ t P LDR A8,A2 [ P ANKL A8,/20 PROTECTED? [ P RB(NZ) ERUA30 YES [ PERUA47 EQU * [ P LDR A6,A11 [ P LDK A5,LLIN
0x42f598…42f72c Dummy {f00=0x0151, f01=0x0190, f02=» [ P LDR A1,A8 P CWR A1,A4 ALL NULLED? P RF(E) ERUA70 YES 8 PERUA60 EQU * R P LCR A2,A3 GET CHAR. f P CCK A2,/8000 ATTRIBUTE? P RF(L) ERUA62 NO =3 P ANK A2,/20 PROTECTED? =3 P RB(NZ) ERUA30 YES =3 P RF ERUA64
0x42f72c…42f8c0 Dummy {f00=0x0151, f01=0x0190, f02=»INFLG,A6 PERUA64 EQU * =3 ] P ADK A3,1 ] ( P ADK A4,1 ] : P RB ERUA50 ] L PERUA70 EQU * ] ^ P RTN A14 ] r P EJECT ] > P********************************************************** ] > P*
0x42f8c0…42fa54 (10, 26) Dummy {f00=0x0151, f01=0x0190, f02=» ] V > P********************************************************** ^ P* REGISTERS ^ J P* ^ ^ P* A2= RESERVED ^ h P* A4= REL. CURSOR POS. ^ ~ P* A5= REL. ATTRIBUTE POS. ^ P* A6= ATTRIBUTE CHAR ^ P* A11= CREDIT WORK AREA ^ P* A13= RESERVE
0x42fa54…42fbe8 Dummy {f00=0x0151, f01=0x018e, f02=» ^ t P RF(NG) POSU20 NO _ " P LDK A4,0 FIRST POS. ON SCREEN _ " P ST A4,PCURS,A11 _ H PPOSU20 EQU * _ ` P LDR A1,A4 _ t * P CF A14,GETVDU GET CHAR IN VDU BUFFER _ P CCK A7,/8000 ATTRIBUTE? _ P RF(L) POSU30 NO _ P LDR A6,A7 _ P ANK A7,/2
0x42fbe8…42fd7c Dummy {f00=0x0151, f01=0x018e, f02=» _ P CWK A4,LBVDU-1 WRAP AROUND? ` P RF(NG) POSU23 NO ` , P LDK A4,0 ` F PPOSU23 EQU * ` X * P CF A14,STOINF SAVE SCREEN INFORMATION ` l P LDK A1,2 REQ. LENGTH ` P CF A14,DISCHA SET CURSOR ` P RF POSU30 ` PPOSU25 EQU * ` * P CF A14,
0x42fd7c…42ff10 Dummy {f00=0x0151, f01=0x0190, f02=» " P SUK A1,81 LAST POS. ON LINE? a P RF(NZ) POSU90 NO a * P LDK A1,2 REQ. LENGTH a D P CF A14,DISCHA SET CURSOR a b PPOSU90 EQU * a P RTN A14 a P EJECT a @ P************************************************************ a @ P*
0x42ff10…4300a4 Dummy {f00=0x0151, f01=0x0190, f02=» * a @ P************************************************************ b 6 P* REGISTERS b z P* b P* b @ P************************************************************ b PDISID EQU * b P L
0x4300a4…430238 Dummy {f00=0x0151, f01=0x0190, f02=» P LDK A5,IDTEXT c P ADR A5,A3 POINT ON IDBUFFER c P ADK A6,46 c > P LDK A3,6 c P P ANK A4,1 PRINTER OPERABLE? c b P RF(Z) DISI10 YES c P ADK A3,16 c PDISI10 EQU * c " P SUK A3,2 MOVE INTO ECBBUFFER c P RF(N) DISI20 COMPLETED c
0x430238…4303cc Dummy {f00=0x0151, f01=0x0190, f02=» . P ST A1,ECBBA+52,A6 SAVE TASK ID IN BUFFER d & P LC A2,X'1F' HIGH INTENSITY CHAR. d 6 P SC A2,ECBBA+45,A6 d ` ( P LDKL A10,1 INDICATE NOT ONLY SPACES d z P LDKL A9,1 1 INTENSITY CHAR. d ( P LDKL A2,X'1801' DISPLAY ON LAST ROW d P ST A2,ECBCW,A8 d
0x4303cc…430560 Dummy {f00=0x0151, f01=0x0190, f02=»**** d V P* e P* DISSTA DISPLAY STATISTICS e P* e : D P*************************************************************** e D P* REGISTERS e P* e P* e D P*************************************************************** e PDISSTA
0x430560…4306f4 (10, 27) Dummy {f00=0x0151, f01=0x0190, f02=»RR A2,A1 FIRST POS. ON THAT LINE e P ST A2,ECBCW,A8 f ( $ P CF A14,SPACES CLEAN THE BUFFER f @ P LDK A5,0 RESET INDEX f h P LD A3,6,A13 f P ADK A3,STATXT POINT TO TEXT f PDISS10 EQU * f P LDK A2,/1F HIGH INTENSITY f P SCR A2,A6 f P A
0x4306f4…430888 Dummy {f00=0x0151, f01=0x018e, f02=»STAPOS MAKE SOME ROOM f P LC A1,INDEX,A5 g P SLL A1,1 g 6 $ P ADR A1,A12 POINT OUT STAT VALUE g H P LCR A2,A1 g p " P CF A14,CONASC MAKE IT VISABLE g P LDR A4,A2 g P LCR A2,A1 g P SRL A2,4 g P CF A14,CONASC g P SLL A2,8 g P O
0x430888…430a1c Dummy {f00=0x0151, f01=0x0190, f02=» g v P LDR A4,A2 h P LC A2,+1,A1 h P SRL A2,4 h . P CF A14,CONASC h @ P SLL A2,8 h V P ORR A2,A4 h h P SC A2,+1,A6 h z P SRL A2,8 h P SCR A2,A6 h P LDKL A10,1 NOT ONLY SPACES h P CF A14,DISLIN DISPLAY STAT. h " P CWK A5,NUMLIN
0x430a1c…430bb0 Dummy {f00=0x0151, f01=0x0190, f02=»*********************************** h x P* i , P* MOVTXT MOVE TEXT i 6 P* i P @ P*********************************************************** i Z P* REGISTERS i P* i P* i > P********************************************************** i
0x430bb0…430d44 Dummy {f00=0x0151, f01=0x0190, f02=») MOVTXT i P RTN A14 j P EJECT j > P********************************************************** j . P* j p P* CONASC CONVERT TO ASCII j z P* j < P******************************************************** j P* REGISTERS j P* j P*
0x430d44…430ed8 Dummy {f00=0x0151, f01=0x0190, f02=»F(G) CONA10 j P ORK A2,/30 k P RF CONA90 k ( PCONA10 EQU * k : P ADK A2,/37 k N PCONA90 EQU * k b P RTN A14 k v P XIF k P EJECT k > P********************************************************* k > P*
0x430ed8…43106c Dummy {f00=0x0151, f01=0x018e, f02=» * k f > P********************************************************* l P* REGISTERS l Z P* l n ( P* A1= AT ENTRY START SEARCH ADDRESS l x P* A2= RESERVED l P* A3= RESERVED l P* A4= REL. CURSOR POS. l P* A5= REL. ATTRIBUTE POS.
0x43106c…431200 Dummy {f00=0x0151, f01=0x0190, f02=» P* A13= RESERVED m P* m > P********************************************************* m & PATMASF EQU * m h P ST A1,REGI,A11 m | PASF100 EQU * m P ADK A1,1 m P CWK A1,LBVDU-1 WRAP AROUND? m P RF(NG) ASF200 NO m " P LDK A1,0 FIRST
0x431200…431394 (10, 28) Dummy {f00=0x0152, f01=0x0190, f02=»R. IN VDU BUFFER m z P CCK A7,/8000 ATTRIBUTE? n P RB(L) ASF100 NO n 8 P LDR A6,A7 n P P LDR A5,A1 n b . P CF A14,STOINF SAVE NEW SCREEN INFORMATION n t PASF900 EQU * n P RTN A14 n P EJECT n L P************************************************
0x431394…431528 Dummy {f00=0x0152, f01=0x0190, f02=»ARCH ATTRIBUTE BACKWARD * n x L P* * o 8 L P*********************************************************************** o P* REGISTERS o P* o $ P* A1= ATENTRY STAR
0x431528…4316bc Dummy {f00=0x0152, f01=0x018e, f02=»ATTRIBUTE CHAR. o P* A8= RESERVED p P* A9= RESERVED p . P* A10= RESERVED p D P* A11= CREDIT WORK AREA p P* A13= RESERVED p | P* p L P************************************************************************ p PATMASB EQU * p P ST A1
0x4316bc…431850 Dummy {f00=0x0152, f01=0x0190, f02=» p | P SUK A1,1 q " P RF(NN) ASB200 NOT WRAP AROUND q ( P LDKL A1,LBVDU-1 LAST POS. ON SCREEN q @ PASB200 EQU * q l * P CW A1,REGI,A11 WHOLE SCREEN SEARCHED? q P RF(E) ASB900 YES q P RB ASB100 q PASB300 EQU * q P LDR A6,A7 q P LDR A5,
0x431850…4319e4 Dummy {f00=0x0152, f01=0x0190, f02=»********************************* q r D P* * r * D P* SNULL SEARCH FIRST NULL CHAR. * r r D P* * r D P******
0x4319e4…431b78 Dummy {f00=0x0152, f01=0x0190, f02=» FOUND r h P* A2= RESERVED s B P* A3= AT ENTRY LAST SEARCH ADDR., AT RETURN NULL ADDR. IF ANY s $ P* A4= REL. CURSOR POS. s j P* A5= RESERVED s P* A6= RESERVED s P* A11= CREDIT WORK AREA s P* A13= RESERVED s P* s D P******************
0x431b78…431d0c Dummy {f00=0x0152, f01=0x018e, f02=»1,LBVDU-1 WRAP AROUND? s P RF(NG) SNU200 NO t P LDK A1,0 FIRST SCREEN POS. t 8 PSNU200 EQU * t P CWR A1,A3 ALL SEARCHED? t p P RF(E) SNU300 YES t * P CF A14,GETVDU GET CHAR IN VDU BUFFER t P CCK A7,NULL NULL CHAR? t P RB(NE) SNU100 N
0x431d0c…431ea0 Dummy {f00=0x0152, f01=0x0190, f02=» t P RTN A14 u P EJECT u @ P************************************************************ u & @ P* * u j @ P* WCHAR DISPLAY CHAR. AND CURSOR * u @ P*
0x431ea0…432034 (10, 29) Dummy {f00=0x0152, f01=0x0190, f02=» u P* A2= KEY-CHAR v P* A4= REL. CURSOR POS. v P* A5= REL. ATTRIBUTE POS. v < P* A6= ATTRIBUTE CHAR. v ^ P* A8= VDU-ECB v | P* A11= CREDIT WORK AREA v P* A13= RESERVED v P* v B P****************************************************
0x432034…4321c8 Dummy {f00=0x0152, f01=0x0190, f02=»NDARD DISPLAY? v P RF(Z) WCH300 YES w P LDR A7,A6 w 0 $ P ANK A7,/4 INTENSIFIED DISPLAY? w B P RF(NZ) WCH200 NO w j $ P LDK A1,/1F HIGH INTENSITY CHAR. w P RF WCH300 w PWCH200 EQU * w P LDK A2,/20 NONDISPLAY w PWCH300 EQU * w & P LD
0x4321c8…43235c Dummy {f00=0x0152, f01=0x0190, f02=»STORE CHAR. IN VDU BUFFER w P LDK A1,4 REQ. LENGTH x " P CF A14,DISCHA DISPLAY x @ P ADK A4,1 x ^ P IM PCURS,A11 x p ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? x P RF(E) WCH900 YES x ( P ORK A6,1 SET MDT-BITS IN ATTRIBUTE x P ST A6,ATTRIB,A1
0x43235c…4324f0 Dummy {f00=0x0152, f01=0x018e, f02=» x > P********************************************************* y > P* * y J > P* RFMDUP REPLACE FM OR DUP CHAR IF PRESENT * y > P* *
0x4324f0…432684 Dummy {f00=0x0152, f01=0x0190, f02=» P* A5= RESERVED z P* A6= RESERVED z P* A11= CREDIT WORK AREA z 0 P* A13= RESERVED z P P* z h 4 P*********************************************** z r PRFMDUP EQU * z P CWK A2,DUPCH DUP CHAR? z P RF(NE) RFMD10 NO z P LDK A2,/2A REPL
0x432684…432818 Dummy {f00=0x0152, f01=0x018e, f02=»MD90 EQU * z P RTN A14 { P EJECT { " 4 P************************************************ { 0 4 P* * { h 4 P* DISCHA DISPLAY CHAR * { 4 P* *
0x432818…4329ac Dummy {f00=0x0152, f01=0x0190, f02=» { P* A4= RESERVED | P* A5= RESERVED | P* A6= RESERVED | 4 P* A8= VDU-ECB | J P* A11= CREDIT WORK AREA | ` P* A13= RESERVED | P* | 6 P************************************************* | PDISCHA EQU * | P LC A2,TCT01,A11 | " P
0x4329ac…432b40 Dummy {f00=0x0152, f01=0x018e, f02=» LINE 1 POS. 1 | z P ST A1,ECBCW,A8 } P LDKL A1,/100 } . P LDR A7,A4 CURSOR POS. } D PDISC10 EQU * } b P CWK A7,LLINE NEXT LINE? } v P RF(L) DISC90 NO } & P ADS A1,ECBCW,A8 MOVE TO NEXT LINE } P SUKL A7,LLINE } P RB DISC10 } PDISC90 E
0x432b40…432cd4 (10, 30) Dummy {f00=0x0152, f01=0x4030, f02=» } P RTN A14 ~ P ~ P END ~ @ ~ ,
0x432cd4…432e68 Dummy {f00=0x0152, f01=0x2008, f02=» ) DATA PF 24 * * $ END * ,@ * 8 6 ) 4 DATA PF 7 ) F DATA PF 8 ) X DATA PF 9 ) j DATA PF 10 ) | DATA PF 11 ) DATA PF 12 ) DATA PF 13 ) DATA PF 14 ) DATA PF 15 ) *C0 ) DATA PF
0x432e68…432ffc Dummy {f00=0x0152, f01=0x2008, f02=»x 4 d R N ( p
0x432ffc…433190 Dummy {f00=0x0152, f01=0x2008, f02=» X | X j ^ ^ j VDUKB X | PRINT d GETTID DATBSC D C j PRTGO | KBVGO N ( p
0x433190…433324 Dummy {f00=0x0152, f01=0x2008, f02=» | X j ^ ^ j VDUKB X | PRINT d GETTID DATBSC D C j PRTGO | KBVGO N ( p
0x433324…4334b8 Dummy {f00=0x0152, f01=0x0190, f02=» = ! P W P . O , ( ] O P 0 , ( } P P ` , ( N P _6 , ( P , ( _: P
0x4334b8…43364c Dummy {f00=0x0152, f01=0x0190, f02=» <' : x SCRINF @ STOINF N , SOUND @ , ( = # : N N N : O O O : R , ( ] B + E E C ( WRAP LINWRP LINE , ( } B : R :
0x43364c…4337e0 Dummy {f00=0x0152, f01=0x0190, f02=» : Q X ) Y , ( Q PW P P . NLROUT ( ^ CRDOWN r , ( , ]: : PR P , ( 7 _ P - X Y ERASE Z , ( W _ :
0x4337e0…433974 (10, 31) Opaque[0x194]
0x433974…433b08 # DirEnt {nam=»EVDU «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2a58, f03=0x0000}
0x433974…433b08 IdxSect {
0x433974…433b08 f00 = 0x0152 // 0x433974 @0x0
0x433974…433b08 f01 = 0x0002 // 0x433976 @0x2
0x433974…433b08 gno = [ // 0x433978 @0x4
0x433974…433b08 [0x00]: C0x0152.0x3.0
0x433974…433b08 ]
0x433974…433b08 }
0x433b08…433c9c Dummy {f00=0x0152, f01=0x0190, f02=» PLED XVDU P!!RE 0,$$05-17$$07-07$$ P!!IL 2 4 $ P =37 DUP OR FM CHAR ON PRINTER B & P =21 LOOP WHEN VDU NOT OPERABLE j P 82-05-17 P!!IL 83 , P ENTRY RFMDUP REPLACE FM OR DUP CHAR =37 P!!IL 318 ( P LD A2,ECBCW,A8
0x433c9c…433e30 Dummy {f00=0x0152, f01=0x00ae, f02=» =21 v 0 P ST A2,ECBCW,A8 NOT OP. REST CURSOR POS =21 & P RF DISL90 TERMINATE VDU LINE =21 @ PDISL20 EQU * . =21 j P!!EN PKPF /S PASG /E0,TY10 3 , P ENTRY RFMDUP REPLACE FM OR DUP CHAR =37 P!!IL 318 ( P LD A2,ECBCW,A8
0x433e30…433fc4 Dummy {f00=0x0152, f01=0x2008, f02=» 0 P ST A2,ECBCW,A8 NOT OP. REST CURSOR POS =21 & P RF DISL90 TERMINATE VDU LINE =21 @ PDISL20 EQU * . =21 j P!!EN PKPF /S PASG /E0,TY10 3 , P ENTRY RFMDUP REPLACE FM OR DUP CHAR =37 P!!IL 318 ( P LD A2,ECBCW,A8
0x433fc4…434158 Dummy {f00=0x0152, f01=0x2008, f02=» b HEND FILE t 2 HMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE " 2 HMES 5 FC FILE CODE. DEFAULT VALUE IS F4 X 8 HMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 HMES 7 DATE UPDATING DATE < HMES ANY COMBINATION OF ALT
0x434158…4342ec Dummy {f00=0x0152, f01=0x0190, f02=»
[…0x1…]
0x434480…434614 (10, 32) Opaque[0x194]
0x434614…4347a8 # DirEnt {nam=»XVDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a60, f03=0x0000}
0x434614…4347a8 IdxSect {
0x434614…4347a8 f00 = 0x0153 // 0x434614 @0x0
0x434614…4347a8 f01 = 0x0022 // 0x434616 @0x2
0x434614…4347a8 gno = [ // 0x434618 @0x4
0x434614…4347a8 [0x00]: C0x0153.0x0.0
0x434614…4347a8 [0x01]: C0x0153.0x1.0
0x434614…4347a8 [0x02]: C0x0153.0x2.0
0x434614…4347a8 [0x03]: C0x0153.0x3.0
0x434614…4347a8 [0x04]: C0x0154.0x0.0
0x434614…4347a8 [0x05]: C0x0154.0x1.0
0x434614…4347a8 [0x06]: C0x0154.0x2.0
0x434614…4347a8 [0x07]: C0x0154.0x3.0
0x434614…4347a8 [0x08]: C0x0155.0x0.0
0x434614…4347a8 [0x09]: C0x0155.0x1.0
0x434614…4347a8 [0x0a]: C0x0155.0x2.0
0x434614…4347a8 [0x0b]: C0x0155.0x3.0
0x434614…4347a8 [0x0c]: C0x0156.0x0.0
0x434614…4347a8 [0x0d]: C0x0156.0x1.0
0x434614…4347a8 [0x0e]: C0x0156.0x2.0
0x434614…4347a8 [0x0f]: C0x0156.0x3.0
0x434614…4347a8 [0x10]: C0x0157.0x0.0
0x434614…4347a8 ]
0x434614…4347a8 }
0x4347a8…43493c Dummy {f00=0x0153, f01=0x0190, f02=» . P IDENT VDU REL 11.0 82-05-17 870150541100 $ P MOVE TO UNPROT, ONLY FOR P&T 6 P ^ P =2 LOOP IN ERASUA f P 82-03-10 " P DK1 BAD CHECK ON ATTRIBUTE P DK BAD TEST ON INTESITY P =1, LINFLG AT UNFORM. P 81-01-2
0x43493c…434ad0 Dummy {f00=0x0153, f01=0x0190, f02=» * Z D P* MODULE VDU * D P* MODULE HANDLING THE DISPLAY SCREEN AND * Z D P* BUFFER * D P* (EMULATION
0x434ad0…434c64 Dummy {f00=0x0153, f01=0x0190, f02=»****************************************** z P EJECT 2 @ P*********************************************************** @ P* P* LIST OF ROUTINES P* 2 P* DISMOD DISPLAY MODIFIED FIELDS & P* DISLIN DISPLAY LI
0x434c64…434df8 Dummy {f00=0x0153, f01=0x0190, f02=» SET DISPLAY INDICATOR ~ & P* INSMOD INSERT CHAR. " * P* UPDCNT UPDATE COUNTERS L 2 P* GETVDU GET CHAR. IN VDU BUFFER z 2 P* STOVDU STORE CHAR IN VDU BUFFER 0 P* SCRINF GET SCREEN I
0x434df8…434f8c Dummy {f00=0x0153, f01=0x0190, f02=»CHECK IF WRAP AROUND z , P* LINWRP CHECK IF LINE WRAP * P* LINE UPDATE LINE FLAG L < P* LINATT UPDATE LINFLG AT ATTRIBUTE CHANGE z * P* NLROUT NEW LINE ROUTINE . P* ERASE ERASE ENTI
0x434f8c…435120 Dummy {f00=0x0153, f01=0x0190, f02=» POSUNP MOVE CURSOR TO NEXT UNPRO. POS 2 P* DISID DISPLAY HARDCOPY TASKID 4 , P* DISSTA DISPLAY STATISTICS j $ P* MOVTXT MOVE TEXT * P* CONASC CONVERT TO ASCII 2 P* ATMASF SE
0x435120…4352b4 (10, 33) Dummy {f00=0x0153, f01=0x0190, f02=» 2 P* WCHAR DISPLAY CHAR. AND CURSOR 8 P* RFMDUP REPLACE FM OR DUP CHAR. IF ANY : ( P* DISCHA DISPLAY CHAR. v P* F P***************************************************************** P EJECT H P****
0x4352b4…435448 Dummy {f00=0x0153, f01=0x0190, f02=» * P H P* ENTRY POINTS * H P* * X H P******************************************************************** P " P ENTRY INSMOD IN
0x435448…4355dc Dummy {f00=0x0153, f01=0x0190, f02=»SCREEN INFORMATION ~ * P ENTRY STOINF SAVE SCREEN INFORMATION 0 P ENTRY POSUNP MOVE TO NEXT UNPROTECTED POS. H , P ENTRY ATMASB SEARCH ATTRIBUTE BACKWARDS | , P ENTRY ATMASF SEARCH ATTRIBUTE FOREWARD P ENTRY DISCHA DISPLAY CHAR. * P ENTRY W
0x4355dc…435770 Dummy {f00=0x0153, f01=0x0190, f02=»RASUA ERASE UNPROTECTED TO ADDRESS $ P ENTRY ERASE ERASE ENTIRE SCREEN * $ P ENTRY SOUND SOUND ALARM ON VDU R ( P ENTRY ERASUP ERASE ALL UNPROTECTED z $ P ENTRY WRAP CHECK IF WRAP AROUND " P ENTRY NLROUT NEW LINE ROUTINE " P ENTRY LINWRP CHECK
0x435770…435904 Dummy {f00=0x0153, f01=0x0190, f02=» H P******************************************************************** H P* * T H P* EXTERNAL REFERENCES * H P*
0x435904…435a98 Dummy {f00=0x0153, f01=0x0190, f02=»RN TAB TAB UNPROCTECTED FOREWARD (KEYB) : P EXTRN CRDOWN MOVE CURSOR UNPROTECTED NEXT LINE (KEYB) 0 4 P EXTRN RDHOME UNPROTECTED FIRST ON SCREEN (KEYB) n & P EXTRN SAVE1 SAVE REGISTERS (PAD) ( P EXTRN REST1 RESTORE REGISTERS (PAD) P EJECT
0x435a98…435c2c Dummy {f00=0x0153, f01=0x0190, f02=» * h J P* CONDITIONAL ASSEMBLY PARAMETERS * & J P* * t J P*********************************************************************
0x435c2c…435dc0 Dummy {f00=0x0153, f01=0x0190, f02=»CT D P*************************************************************** D P* * R & P* DECLARATIONS OF DATA AND EQUATES D P* *
0x435dc0…435f54 (10, 34) Dummy {f00=0x0153, f01=0x0190, f02=» PECBBA EQU 2 BUFFER ADDRESS PECBRL EQU 4 REQUESTED LENGTH * PECBEL EQU 6 EFFECTIVE LENGTH N PECBRC EQU 8 RETURN CODE r PECBCW EQU 10 CONTROL WORD P* P* SPECIAL CHARACTERS P* PNULL EQU 0 NULL CHAR. " PNEWLIN
0x435f54…4360e8 Dummy {f00=0x0153, f01=0x0190, f02=»AR. v " PFMCH EQU /1E FIELD MARK CHAR. P* 2 P* TASK IDENTIFICATION CODE < P* ^ PVDUCOD EQU 'VV' VDU KB TASK h P* P* INTERNAL STATUS P* " PLINUPD EQU /0001 LINE UPDATED ( PATTREC EQU /0002 ATTRIBUTE RECEIVED
0x4360e8…43627c Dummy {f00=0x0153, f01=0x0190, f02=»* P* STAT. LAYOUT P* , PNUMLIN EQU 13 NUMBER OF LINES YO DISPLAY * * PSTALIN EQU 5 STARTING LINE OF DISPLAY Z & PSTAPOS EQU 5 STARTTING POS ON LINE ( PTXTSIZ EQU 15 SIZE OF PERMANENT TEXT 8 PINDEX DATA /0102,/0405,/0608,/090A,/0C0E,/
0x43627c…436410 Dummy {f00=0x0153, f01=0x0190, f02=»TASK IDENTIFICATION " PBVDU EQU TCT01+2 SCREEN BUFFER , PLINFLG EQU BVDU+1920 INTERNAL LINE FLAGS B & PPCURS EQU LINFLG+24 CURSOR ADDRESS r * PATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR PCURATT EQU ATTRIB+2 & PWCC EQU CURATT+2 WCC/CCC CHARACTER
0x436410…4365a4 Dummy {f00=0x0153, f01=0x0190, f02=»VE ADDRESSES IN P* COMMON WORKBLOCK P* 2 " PIDTEXT EQU 2 IDENT TEXT LAYOUT < P IFT TEST=1 b . PSTATXT EQU IDTEXT+22 STATISTIC TEXT LAYOUT v P XIF P EJECT > P********************************************************* > P*
0x4365a4…436738 Dummy {f00=0x0153, f01=0x018e, f02=» * > P********************************************************* : P* REGISTERS | P* P* A2= CHAR. P* A3= ADDRESS IN VDU-BUFFER P* A4= REL. CURSOR POS. P* A5= REL. ATTRIBUTE POS
0x436738…4368cc Dummy {f00=0x0153, f01=0x018e, f02=» ~ P* A11= CREDIT WORK AREA P* A13= RESERVED ( P* @ : P***************************************************** J PDISMOD EQU * P LD A8,ECBVDU,A11 P LDKL A1,/101 LINE 1 POS. 1 P ST A1,ECBCW,A8 & P SUR A9,A9 RESET INTEN
0x4368cc…436a60 Dummy {f00=0x0153, f01=0x0190, f02=» p ( P CF A14,SPACES SPACES IN ECB BUFFER P ST A5,REGI,A11 4 P LDKL A1,LBVDU+1 L P LDR A5,A11 d P CW A1,REGI,A11 x P RF(NE) DIS100 NO P LDK A2,0 LOW INTENSITY P ST A2,INTATT,A11 PDIS100 EQU * P LDR A10,A10
0x436a60…436bf4 (10, 35) Dummy {f00=0x0153, f01=0x0190, f02=»IS800 NONDISPLAY P RF(NZ) DIS400 DISPLAY LINE $ P LD A2,ECBCW,A8 NO MODIFICATION < P CWK A2,/1901 ALLDISPLAYED d P RB(NE) DIS100 NO P RF DIS900 PDIS400 EQU * " P CWK A7,LLINE LINE COMPLETED? P RF(L) DIS500 NO P CF
0x436bf4…436d88 Dummy {f00=0x0153, f01=0x0190, f02=» INDICATOR x P CCK A2,/8000 ATTRIBUTE? P RF(NL) DIS700 YES 2 " P CF A14,UPDCNT UPDATE COUNTERS L P CWK A2,NULL NULL CHAR.? r P RB(E) DIS400 YES " P CWK A2,NEWLIN NEW LINE CHAR.? P RB(E) DIS400 YES & P CWK A2,ENDMES END MESSAGE C
0x436d88…436f1c Dummy {f00=0x0153, f01=0x0190, f02=» FM CHAR. r * P SC A2,-1,A6 STORE CHAR. IN ECB BUFFER P RB DIS400 @ PDIS700 EQU * R P ST A2,INTATT,A11 f P LDR A1,A2 P ANK A1,8 LOW INTENSITY? P RF(Z) DIS725 YES P ANK A2,4 HIGH INTENSITY? P RF(Z) DIS715 YES " P
0x436f1c…4370b0 Dummy {f00=0x0153, f01=0x0190, f02=» EQU * P LDK A2,/1E LOW PDIS750 EQU * & ( P SCR A2,A6 SAVE CHAR. IN ECB BUFFER : P ADKL A9,1 f " P CF A14,UPDCNT UPDATE COUNTERS x P ADK A6,1 P RB DIS400 PDIS800 EQU * " P CWK A7,LLINE LINE COMPLETED? P RF(L) DIS85
0x4370b0…437244 Dummy {f00=0x0153, f01=0x018e, f02=»/8000 ATTRIBUTE? P RB(NL) DIS700 YES " P CF A14,UPDCNT UPDATE COUNTERS 2 P RB DIS800 X PDIS900 EQU * j * P CF A14,SCRINF GET SCREEN INFORMATION ~ P LDK A1,2 REQ. LENGTH P CF A14,DISCHA SET CURSOR P RTN A14 P EJECT @
0x437244…4373d8 Dummy {f00=0x0153, f01=0x0190, f02=» @ P* DISLIN DISPLAY LINE ON VDU * @ P* * H @ P*********************************************************** P* REGISTERS P* P* A3= RESERVED P* A4
0x4373d8…43756c Dummy {f00=0x0153, f01=0x0190, f02=» P* A11= RESERVED P* A13= RESERVED P* 4 @ P*********************************************************** > PDISLIN EQU * P LDK A7,2 REQ. LENGTH P LDR A1,A10 P ANKL A1,1 ONLY SPACES? P RF(Z) DISL10 YES P LDKL
0x43756c…437700 Dummy {f00=0x0153, f01=0x018e, f02=»ET CURSOR AND WRITE P LKM P DATA 1 ( $ P LD A1,ECBCW,A8 GET CURSOR POS. 8 P ANK A1,/FF ` , P SUK A1,81 LAST POS. ON LINE DISPLAYED? t P RF(Z) DISL90 YES P LD A6,ECBBA,A8 P LDK A2,/2B P SC A2,1,A6 P LDKL A2,/
0x437700…437894 (10, 36) Dummy {f00=0x0154, f01=0x018e, f02=» P LKM P DATA 1 PDISL90 EQU * P ADK A5,1 4 P LDK A2,1 FIRST POS. ON LINE F P SC A2,ECBCW+1,A8 j $ P LDKL A2,/100 MOVE ONE LINE DOWN P ADS A2,ECBCW,A8 P SUR A10,A10 P LD A2,ECBCW,A8 P CWK A2,/1901 END OF SCR
0x437894…437a28 Dummy {f00=0x0154, f01=0x0190, f02=» P EJECT @ P************************************************************ @ P* * Z @ P* SPACES MOVE SPACES TO ECB BUFFER * @ P*
0x437a28…437bbc Dummy {f00=0x0154, f01=0x018e, f02=»AR. P* A3= RESERVED P* A4= RESERVED " P* A5= RESERVED 8 P* A6= ADDRESS IN ECB BUFFER N P* A7= INDEX IN ECB r P* A8= VDU ECB P* A9= INTENSITY COUNTER P* A10= INDICATOR P* A11= RESERVED P* A13= RESERVED
0x437bbc…437d50 Dummy {f00=0x0154, f01=0x018e, f02=» l P ADK A6,2 ! P LDK A7,LLINE LINE LENGTH ! P ADR A7,A7 BUFFER LENGTH ! < P LDKL A2,' ' SPACES ! PSPAC10 EQU * ! x P SCR A2,A6 ! P SC A2,1,A6 ! P ADK A6,2 ! " P SUK A7,2 WHOLE BUFFER SPACED? ! P RB(P) SPAC10 NO ! P LDK A
0x437d50…437ee4 Dummy {f00=0x0154, f01=0x0190, f02=» ! > P********************************************************* " > P* * " J > P* INTCHK GET INTENSITY CHAR. * " > P* *
0x437ee4…438078 Dummy {f00=0x0154, f01=0x0190, f02=»ED " P* A4= RESERVED # P* A5= RESERVED # P* A6= ADDRESS IN ECB BUFFER # 6 P* A7= RESERVED # Z P* A8= RESERVED # p P* A9= INTENSITY COUNTER # P* A10= INDICATOR # P* A11= CREDIT WORK AREA # P* A13= RESERVED # P* # 4 P********
0x438078…43820c Dummy {f00=0x0154, f01=0x0190, f02=»FLAG # v P ANK A2,1 MODIFIED? $ P RF(NZ) INT100 YES $ * P ADK A3,LLINE NEXT LINE $ D P ADK A4,LLINE $ d P ADK A5,1 $ z P LDK A2,1 $ P SC A2,ECBCW+1,A8 $ P LDKL A2,/100 $ P ADS A2,ECBCW,A8 $ P LDKL A10,0 $ P RF INT900 $
0x43820c…4383a0 Dummy {f00=0x0154, f01=0x0190, f02=»WK A2,LBVDU+1 UNFORMATTED SCREEN? $ P RF(E) INT200 YES % * P CF A14,SAVE1 % D P LDR A1,A4 % Z P CF A14,SCRINF % l P LDR A2,A5 % P LDR A3,A6 % ( P CF A14,ATMASB GET CURRENT ATTRIBUTE % P ST A6,INTATT,A11 % P LDR A5,A2 % P LDR A6,A3
0x4383a0…438534 (10, 37) Dummy {f00=0x0154, f01=0x018e, f02=»NK A1,8 LOW INTENSITY? % P RF(Z) INT300 YES & P ANK A2,4 HIGH INTENSITY? & 8 " P RF(NZ) INT800 NO, NONDISPLAY & Z P LDK A2,/1F HIGH & P RF INT400 & PINT300 EQU * & P LDK A2,/1E LOW & PINT400 EQU * & " P SCR A2,A6 SAVE IN ECB BUFFER
0x438534…4386c8 Dummy {f00=0x0154, f01=0x0190, f02=» & P EJECT ' 4 P************************************************ ' 4 P* * ' N 4 P* SETIND SET DISPLAY INDICATOR * ' 4 P* * ' 4 P******************
0x4386c8…43885c Dummy {f00=0x0154, f01=0x0190, f02=»RESERVED ' P* A6= RESERVED ( P* A7= RESERVED ( & P* A8= RESERVED ( < P* A9= RESERVED ( R P* A10= DISPLAY INDICATOR ( h P* A11= RESERVED ( P* A13= RESERVED ( P* ( & P********************************** ( PSETIND EQU * ( P CWK A2,
0x43885c…4389f0 Dummy {f00=0x0154, f01=0x0190, f02=» ( D P**************************************************************** ) D P* * ) P D P* INSMOD INSERT CHARACTER * ) D P*
0x4389f0…438b84 Dummy {f00=0x0154, f01=0x0190, f02=»A1= AT RETURN 0=NULL IN POS., 1=NORMAL INSERT, 2=NOT ALLOWED ) P* A2= RESERVED * F P* A4= REL. CURSOR POS. * P* A5= REL. ATTRIBUTE POS. * z P* A6= ATTRIBUTE CHAR. * P* A11= CREDIT WORK AREA * P* A13= RESERVED * P* * D P************
0x438b84…438d18 Dummy {f00=0x0154, f01=0x0190, f02=» CHAR. IN VDU BUFFER * ~ P CCK A7,NULL NULL CHAR.? + P RF(NE) INS100 NO + < * P LDK A1,0 INDICATE NULL IN CURSOR POS. + V P RF INS900 + PINS100 EQU * + P LDR A3,A4 + ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? + P RF(E) INS200 YES + P LDR A
0x438d18…438eac Dummy {f00=0x0154, f01=0x0190, f02=»STORE + | P ST A9,CURATT,A11 RESTORE , P LDR A6,A8 , 0 P LDR A5,A9 , B PINS200 EQU * , T $ P CF A14,SNULL SEARCH FIRST NULL , h P ANK A1,2 NULL FOUND? , P RF(Z) INS300 YES , P LDK A1,2 INDICATE ERROR , P RF INS900 , PINS300 EQU * ,
0x438eac…439040 Dummy {f00=0x0154, f01=0x0190, f02=»A11 , P LDR A1,A5 - P LDR A7,A6 - 4 P CF A14,STOVDU SAVE NEW ATTRIBUTE IN VDU-BUFFER - 0 PINS350 EQU * - h P LDR A1,A3 - | P ST A4,REGI,A11 - P LDR A4,A1 - P LDK A5,LLINE - P LDR A6,A11 - P SUR A10,A10 - P LDR A9,A1 - " P
0x439040…4391d4 (10, 38) Dummy {f00=0x0154, f01=0x018e, f02=»500 YES - P SUK A1,1 . * P CF A14,GETVDU GET CHAR IN VDU BUFFER . " P ADK A1,1 . P P LDR A9,A1 . b P LDK A5,LLINE . t P LDR A6,A11 . P CF A14,LINE . P LDR A1,A9 . P LC A9,LINFLG,A6 . P ORKL A9,1 . P SC A9,LINFLG,A6 . , P C
0x4391d4…439368 Dummy {f00=0x0154, f01=0x0190, f02=» P RF(E) INS600 YES / P RB INS400 / PINS500 EQU * / 0 " P LDKL A1,LBVDU-1 GET LAST CHAR / D * P CF A14,GETVDU GET CHAR IN VDU BUFFER / j P LDK A1,0 / P LDK A4,0 / P LDR A9,A1 / P LDK A5,LLINE / P LDR A6,A11 / P CF A14,LINE /
0x439368…4394fc Dummy {f00=0x0154, f01=0x0190, f02=» LDKL A1,LBVDU-1 LAST SCREEN POS. / P LDKL A4,LBVDU-1 0 * P RB INS450 0 B PINS600 EQU * 0 T P LDR A7,A2 GET KEY-CHAR 0 h , P CF A14,STOVDU STORE CHAR IN VDU BUFFER 0 P LDK A5,LLINE 0 P LDR A6,A11 0 P CF A14,LINE 0 P LC A9,LINFLG,A6 0
0x4394fc…439690 Dummy {f00=0x0154, f01=0x0190, f02=»U-1 WRAP AROUND? 0 P RF(NG) INS700 NO 1 " P LDK A4,0 FIRST POS. ON SCREEN 1 2 P CM PCURS,A11 1 X PINS700 EQU * 1 n * P CF A14,DISMOD DISPLAY MODIFIED FIELD 1 $ P LDK A1,1 INDICATE NORMAL INSERT 1 PINS900 EQU * 1 P RTN A14 1 P XIF 1 P
0x439690…439824 Dummy {f00=0x0154, f01=0x0190, f02=»* 1 X > P* UPDCNT UPDATE COUNTERS * 2 > P* * 2 L > P********************************************************* 2 P* REGISTERS 2 P* 2 P* A3= ADDRESS IN V
0x439824…4399b8 Dummy {f00=0x0154, f01=0x0190, f02=» 2 P* A9= RESERVED 3 P* A10= RESERVED 3 P* A11= RESERVED 3 6 P* A13= RESERVED 3 N P* 3 f > P********************************************************* 3 p PUPDCNT EQU * 3 P ADK A3,1 3 P ADK A4,1 3 P ADK A6,1 3 P ADK A7,1 3
0x4399b8…439b4c Dummy {f00=0x0154, f01=0x0190, f02=» * 3 t D P* GETVDU GET CHAR. IN VDU BUFFER * 4 , D P* * 4 t D P**************************************************************** 4 P* R
0x439b4c…439ce0 Dummy {f00=0x0154, f01=0x0190, f02=»SERVED 4 P* A6= RESERVED 5 P* A7= CHAR. FROM VDU BUFFER 5 $ P* A8= RESERVED 5 H P* A9= RESERVED 5 ^ P* A10= RESERVED 5 t P* A11= CREDIT WORK AREA 5 P* A13= RESERVED 5 P* 5 < P******************************************************** 5
0x439ce0…439e74 (10, 39) Dummy {f00=0x0154, f01=0x0190, f02=» P EJECT 6 B P************************************************************** 6 B P* * 6 X B P* STOVDU STORE CHAR. IN VDU BUFFER * 6 B P*
0x439e74…43a008 Dummy {f00=0x0154, f01=0x018e, f02=»A1= REL. POS. IN VDU BUFFER 6 P* A2= RESERVED 7 $ P* A3= RESERVED 7 : P* A4= RESERVED 7 P P* A5= RESERVED 7 f P* A6= RESERVED 7 | & P* A7= CHAR. TO STORE IN VDU BUFFER 7 P* A9= RESERVED 7 P* A10= RESERVED 7 P* A11= CREDIT WORK AREA 7
0x43a008…43a19c Dummy {f00=0x0154, f01=0x0190, f02=» 7 P ADR A8,A11 8 P ADR A8,A1 8 P SCR A7,A8 8 . P RTN A14 8 @ P EJECT 8 P < P******************************************************** 8 ^ < P* * 8 < P* SCRINF GET SCREEN INFORMATI
0x43a19c…43a330 Dummy {f00=0x0154, f01=0x0190, f02=»****** 8 ^ P* REGISTERS 9 P* 9 " P* A2= RESERVED 9 , P* A4= REL. CURSOR POS. 9 B P* A5= REL. ATTRIBUTE POS. 9 ` P* A6= ATTRIBUTE CHAR. 9 P* A11= CREDIT WORK AREA 9 P* A13= RESERVED 9 P* 9 < P**************************************
0x43a330…43a4c4 Dummy {f00=0x0154, f01=0x0190, f02=»,ATTRIB,A11 GET ATTRIBUTE CHAR. 9 P RTN A14 : ( P EJECT : 8 < P******************************************************** : F < P* * : < P* STOINF STORE SCREEN INFORMATION * : < P*
0x43a4c4…43a658 Dummy {f00=0x0154, f01=0x0190, f02=»RS : P* ; P* A4= REL. CURSOR POS. ; P* A5= REL. ATTRIBUTE POS. ; 2 P* A6= ATTRIBUTE CHAR. ; T P* A11= CREDIT WORK AREA ; r P* A13= RESERVED ; P* ; < P******************************************************** ; PSTOINF EQU * ; P
0x43a658…43a7ec Dummy {f00=0x0154, f01=0x0190, f02=»************************* ; r < P* * < " < P* SOUND SOUND ALARM ON VDU * < b < P* * < < P**************************************
0x43a7ec…43a980 Dummy {f00=0x0154, f01=0x0190, f02=»A13= RESERVED < P* = < P******************************************************* = PSOUND EQU * = ` P LD A8,ECBVDU,A11 = t P LD A1,ECBBA,A8 = P LDK A2,/2B CONTROL CHAR. = P SC A2,1,A1 = P LDK A2,/07 BELL CHAR. = P SC A2,2,A1 =
0x43a980…43ab14 (10, 40) Dummy {f00=0x0155, f01=0x0190, f02=»ODE = t P RTN A14 > P EJECT > : P***************************************************** > * : P* * > h : P* WRAP CHECK IF WRAP AROUND * > : P*
0x43ab14…43aca8 Dummy {f00=0x0155, f01=0x0190, f02=» P* A3= ADDRESS IN VDU BUFFER ? P* A4= REL. CURSOR POS. ? ( P* A5= RESERVED ? F P* A6= RESERVED ? P* A7= RESERVED ? r P* A8= RESERVED ? P* A9= RESERVED ? P* A10= RESERVED ? P* A11= CREDIT WORK AREA ? P* A13= RESERVED ? P* ?
0x43aca8…43ae3c Dummy {f00=0x0155, f01=0x0190, f02=» ? P LDK A4,0 FIRST SCREEN POS. @ P LDKL A3,BVDU @ , P ADR A3,A11 @ B PWRAP90 EQU * @ V P RTN A14 @ j P EJECT @ z @ P************************************************************ @ @ P* *
0x43ae3c…43afd0 Dummy {f00=0x0155, f01=0x0190, f02=» * @ V @ P************************************************************ A P* REGISTERS A N P* A b P* A3= RESERVED A l P* A4= REL CURSOR POS A P* A5= LAST IN ROW REL POS A P* A6= RESERVED A P* A8= RESERVED A P* A9= RESERVED A P* A10=
0x43afd0…43b164 Dummy {f00=0x0155, f01=0x0190, f02=» A T PLINWRP EQU * B P CWR A5,A4 END OF LINE? B P RF(G) LINW10 NO B < " P CF A14,LINE UPDATE LINE FLAG B T PLINW10 EQU * B z P RTN A14 B P EJECT B @ P************************************************************ B @ P*
0x43b164…43b2f8 Dummy {f00=0x0155, f01=0x018e, f02=» * B x B P************************************************************* C , P* REGISTERS C r P* C P* A3= ADDRESS IN VDU BUFFER C P* A4= REL CURSOR POS C P* A5= LAST IN ROW REL POS C $ P* A6= INTERNAL LINE FL
0x43b2f8…43b48c Dummy {f00=0x0155, f01=0x0190, f02=» C ~ P* D @ P*********************************************************** D PLINE EQU * D V P CWR A5,A4 THIS LINE? D h P RF(G) LIN400 YES,MAYBE D P LDR A1,A10 D & P ANK A1,ATTREC ATTRIBUTE RECEIVED? D P RF(Z) LIN100 NO D P LC A1,LINFL
0x43b48c…43b620 Dummy {f00=0x0155, f01=0x0190, f02=» WRAP SCREEN? D P RF(G) LIN300 YES E P ADK A5,LLINE E 0 P ADR A6,A11 E F P RB LINE E Z PLIN300 EQU * E j P LDK A4,0 FIRST SCREEN POS. E ~ P LDKL A3,BVDU E P ADR A3,A11 E P LDR A6,A11 E P LDK A5,LLINE E PLIN400 EQU * E
0x43b620…43b7b4 (10, 41) Dummy {f00=0x0155, f01=0x0190, f02=» EQU * E P ADR A5,A4 RESTORE F P RTN A14 F ( P EJECT F 8 B P************************************************************* F F B P* * F B P* LINATT UPADTE LINFLG AT ATTRIBUTE CHANG
0x43b7b4…43b948 Dummy {f00=0x0155, f01=0x0190, f02=»*********** F ^ P* REGISTERS G P* G ( P* A3= ADDRESS IN VDU BUFFER G 2 P* A4= REL CURSOR POS G V P* A5= LAST IN ROW REL POS G r $ P* A6= INTERNAL LINE FLAG ADDRESS G P* A8= RESERVED G P* A9= RESERVED G P* A10= RESERVED G P* A11= C
0x43b948…43badc Dummy {f00=0x0155, f01=0x0190, f02=»QU * G P CF A14,SAVE1 H P SUR A6,A11 H " P LDK A2,0 H 6 P LDR A10,A4 . =1 H H PLINA10 EQU * H ` P ADK A4,1 H t P ADK A3,1 H P CWR A5,A4 END OF LINE? H P RF(G) LINA30 NO H P ADR A6,A11 H P LC A1,LINFLG,A6 H P ORK A1,1 H
0x43badc…43bc70 Dummy {f00=0x0155, f01=0x0190, f02=»INE H P RF LINA30 I PLINA20 EQU * I P LDK A6,0 I 2 P LDK A4,0 I D P LDKL A3,BVDU I V P ADR A3,A11 I l P LDK A5,LLINE I PLINA30 EQU * I P CWR A4,A10 ALL CHECKED? =1 I P RF(E) LINA40 YES =1 I P LCR A2,A3 I P CWK A2,/80
0x43bc70…43be04 Dummy {f00=0x0155, f01=0x0190, f02=»********************************************* I @ P* * J 6 @ P* NLROUT NEW LINE ROUTINE * J z @ P* * J @ P******
0x43be04…43bf98 Dummy {f00=0x0155, f01=0x0190, f02=»CURSOR POS J P* A5= RESERVED K P* A6= RESERVED K ( P* A8= RESERVED K > P* A9= RESERVED K T P* A10= RESERVED K j P* A11= RESERVED K P* A13= RESERVED K P* K @ P*********************************************************** K PNLROUT E
0x43bf98…43c12c Dummy {f00=0x0155, f01=0x018e, f02=» SUK A4,LLINE COMPUTE LEFTMOST POS. K P RF(N) NLR200 L , P ADK A7,LLINE L B P RB NLR100 L X PNLR200 EQU * L j P LDR A4,A1 L ~ P LDK A2,NULL L PNLR300 EQU * L P CWR A7,A4 ALL NULLED? L P RF(E) NLR900 YES L " P SCR A2,A3 NULL IN VDU B
0x43c12c…43c2c0 Dummy {f00=0x0155, f01=0x0190, f02=» P RB NLR300 M PNLR900 EQU * M P RTN A14 M * P EJECT M : H P******************************************************************** M H H P* * M H P* ERASE ERASE ENTIRE SCREEN
0x43c2c0…43c454 (10, 42) Dummy {f00=0x0155, f01=0x0190, f02=»******************************************* M x P* REGISTERS N 4 P* N H P* A2= CHAR. N R P* A3= ADDRESS IN VDU-BUFFER N f P* A4= REL. CURSOR ADDRESS N P* A5= REL ATTRIBUTE POS N P* A6= ATTRIBUTE CHAR N P* A11= CREDIT WORK AREA N P
0x43c454…43c5e8 Dummy {f00=0x0155, f01=0x0190, f02=»SCREEN POS. N P LDKL A3,BVDU O P ADR A3,A11 O * " P LDK A2,NULL STORE NULL CHAR. O > PERAS10 EQU * O d * P CWK A4,LBVDU+24 WHOLE SCREEN NULLED? O x P RF(NL) ERAS20 YES O P SCR A2,A3 STORE CHAR. O P ADK A3,1 O P ADK A4,1 O P RB ER
0x43c5e8…43c77c Dummy {f00=0x0155, f01=0x0190, f02=»4,STOINF SAVE SCREEN INFORMATION O P LC A1,TCT01,A11 P ( " P CCK A1,VDUCOD PRINTER UNPACK? P @ P RF(NE) ERAS30 YES P f P LD A8,ECBVDU,A11 P P LDK A2,'1' ERASE CHAR. P P LD A1,ECBBA,A8 P P SC A2,1,A1 P P LDK A1,2 REQ. LENGTH P P ST
0x43c77c…43c910 Dummy {f00=0x0155, f01=0x0190, f02=»********************************************* P > P* * Q 6 > P* ERASUP ERASE ALL UNPROTECTED * Q x > P* * Q > P************
0x43c910…43caa4 Dummy {f00=0x0155, f01=0x0190, f02=» P* A4= REL. CURSOR POS. R P* A5= REL. ATTRIBUTE POS. R " $ P* A6= INTERNAL LINE FLAG ADDRESS R D P* A11= CREDIT WORK AREA R l P* A13= RESERVED R P* R > P********************************************************* R PERASUP EQU * R " P LDK
0x43caa4…43cc38 Dummy {f00=0x0155, f01=0x0190, f02=»DK A7,NULL STORE NULL CHAR. R ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? S $ P RF(NE) ERUP10 NO S P P CF A14,ERASE S j P RF ERUP90 S PERUP10 EQU * S P LCR A2,A3 GET CHAR. S P CCK A2,/8000 ATTRIBUTE? S P RF(NL) ERUP20 YES S P ADK A3,1 S
0x43cc38…43cdcc Dummy {f00=0x0155, f01=0x0190, f02=» S P SUR A10,A10 T P CF A14,LINE T P RF ERUP47 T 0 PERUP30 EQU * T B P ADK A3,1 T V P ADK A4,1 T h * P CF A14,LINWRP CHECK IF LINWRP AROUND T z P LCR A2,A3 GET CHAR. T P CCK A2,/8000 ATTRIBUTE? T P RB(L) ERUP30 NO T PERUP45 EQU *
0x43cdcc…43cf60 Dummy {f00=0x0155, f01=0x0190, f02=»B(NZ) ERUP30 YES T P ANK A2,/FE RESET MDT-BIT U P SCR A2,A3 SAVE ATTRIBUTE U : P LC A1,LINFLG,A6 U P ORK A1,1 U t P SC A1,LINFLG,A6 U P ADK A3,1 U P ADK A4,1 U PERUP50 EQU * U * P CF A14,LINWRP CHECK IF LINWRP AROUND U P LCR
0x43cf60…43d0f4 (10, 43) Dummy {f00=0x0155, f01=0x0190, f02=»A1,LINFLG,A6 U P ORK A1,1 V P SC A1,LINFLG,A6 V & P ADK A3,1 V > P ADK A4,1 V P P RB ERUP50 V b PERUP70 EQU * V t 4 P CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN V PERUP90 EQU * V P RTN A14 V P EJECT V D P**********************
0x43d0f4…43d288 Dummy {f00=0x0155, f01=0x0190, f02=» * V D P**************************************************************** W D P* REGISTERS W P* W P* A1= STOP ADDRESS W P* A2= CHAR. W P* A3= ADDRESS IN VDU-BUFFER W P* A4= REL. C
0x43d288…43d41c Dummy {f00=0x0155, f01=0x0190, f02=»* A13= RESERVED W P* X D P**************************************************************** X " PERASUA EQU * X j " P LDK A7,NULL STORE NULL CHAR. X ~ P LDKL A3,BVDU X P ADR A3,A11 X P ADR A3,A4 BUFFER POS. X ( P CWK A5,LBVDU+1 UNFORMATTED
0x43d41c…43d5b0 Dummy {f00=0x0155, f01=0x0190, f02=»10 NO X P ADK A3,1 Y P ADK A4,1 Y P CWR A1,A4 ALL NULLED? Y 2 P RF(E) ERUA70 YES Y P & P CF A14,WRAP CHECK IF WRAP AROUND Y j PERUA10 EQU * Y P ANK A2,/20 PROTECTED FIELD? Y P RF(Z) ERUA47 NO Y PERUA30 EQU * Y & P CF A14,WRAP CHE
0x43d5b0…43d744 Dummy {f00=0x0155, f01=0x0190, f02=»DK A4,1 Y P . =2 Z P CCK A2,/8000 ATTRIBUTE? Z P RB(L) ERUA30 NO Z @ PERUA45 EQU * Z X P LDR A8,A2 Z l P ANKL A8,/20 PROTECTED? Z ~ P RB(NZ) ERUA30 YES Z PERUA47 EQU * Z P LDR A6,A11 Z P LDK A5,LLINE Z P LDR A8,A1 Z P
0x43d744…43d8d8 Dummy {f00=0x0155, f01=0x0190, f02=»WR A1,A4 ALL NULLED? Z P RF(E) ERUA70 YES [ PERUA60 EQU * [ 6 P LCR A2,A3 GET CHAR. [ J P CCK A2,/8000 ATTRIBUTE? [ f P RF(L) ERUA62 NO =3 [ P ANK A2,/20 PROTECTED? =3 [ P RB(NZ) ERUA30 YES =3 [ P RF ERUA64 =3 [ PERUA62 EQU * =3
0x43d8d8…43da6c Dummy {f00=0x0155, f01=0x0190, f02=» =3 [ P ADK A3,1 P ADK A4,1 P RB ERUA50 0 PERUA70 EQU * B P RTN A14 V P EJECT f > P********************************************************** t > P* * > P* POSUNP
0x43da6c…43dc00 Dummy {f00=0x0155, f01=0x018e, f02=»************************************** | P* REGISTERS ] . P* ] B P* A2= RESERVED ] L P* A4= REL. CURSOR POS. ] b P* A5= REL. ATTRIBUTE POS. ] P* A6= ATTRIBUTE CHAR ] P* A11= CREDIT WORK AREA ] P* A13= RESERVED ] P* ] @ P********
0x43dc00…43dd94 (10, 44) Dummy {f00=0x0156, f01=0x0190, f02=» ] | " P LDK A4,0 FIRST POS. ON SCREEN ^ P ST A4,PCURS,A11 ^ . PPOSU20 EQU * ^ F P LDR A1,A4 ^ Z * P CF A14,GETVDU GET CHAR IN VDU BUFFER ^ l P CCK A7,/8000 ATTRIBUTE? ^ P RF(L) POSU30 NO ^ P LDR A6,A7 ^ P ANK A7,/20 ^ P CWK A7,/20 PROT
0x43dd94…43df28 Dummy {f00=0x0156, f01=0x0190, f02=» AROUND? ^ | P RF(NG) POSU23 NO _ P LDK A4,0 _ * PPOSU23 EQU * _ < * P CF A14,STOINF SAVE SCREEN INFORMATION _ P P LDK A1,2 REQ. LENGTH _ ~ P CF A14,DISCHA SET CURSOR _ P RF POSU30 _ PPOSU25 EQU * _ * P CF A14,TAB TAB NEXT UNPROTECTED FIE
0x43df28…43e0bc Dummy {f00=0x0156, f01=0x0190, f02=»NE? _ v P RF(NZ) POSU90 NO ` P LDK A1,2 REQ. LENGTH ` & P CF A14,DISCHA SET CURSOR ` D PPOSU90 EQU * ` f P RTN A14 ` z P EJECT ` @ P************************************************************ ` @ P*
0x43e0bc…43e250 Dummy {f00=0x0156, f01=0x0190, f02=» * ` d @ P************************************************************ a P* REGISTERS a P* a | P* a @ P************************************************************ a PDISID EQU * a P LD A8,ECBVDU,A11 a & P CF A1
0x43e250…43e3e4 Dummy {f00=0x0156, f01=0x0190, f02=» A5,A3 POINT ON IDBUFFER a P ADK A6,46 b P LDK A3,6 b 2 P ANK A4,1 PRINTER OPERABLE? b D P RF(Z) DISI10 YES b h P ADK A3,16 b PDISI10 EQU * b " P SUK A3,2 MOVE INTO ECBBUFFER b P RF(N) DISI20 COMPLETED b P LDR* A2,A5 b P STR A
0x43e3e4…43e578 Dummy {f00=0x0156, f01=0x0190, f02=»SK ID IN BUFFER b v & P LC A2,X'1F' HIGH INTENSITY CHAR. c P SC A2,ECBBA+45,A6 c B ( P LDKL A10,1 INDICATE NOT ONLY SPACES c P LDKL A9,1 1 INTENSITY CHAR. c ( P LDKL A2,X'1801' DISPLAY ON LAST ROW c P ST A2,ECBCW,A8 c & P CF A14,DISLIN DISPLAY I
0x43e578…43e70c Dummy {f00=0x0156, f01=0x0190, f02=» DISPLAY STATISTICS c P* d D P*************************************************************** d & P* REGISTERS d n P* d P* d D P*************************************************************** d PDISSTA EQU * d P IFT TEST=1 d
0x43e70c…43e8a0 Dummy {f00=0x0156, f01=0x0190, f02=»NE d p P ST A2,ECBCW,A8 e $ P CF A14,SPACES CLEAN THE BUFFER e " P LDK A5,0 RESET INDEX e J P LD A3,6,A13 e h P ADK A3,STATXT POINT TO TEXT e | PDISS10 EQU * e P LDK A2,/1F HIGH INTENSITY e P SCR A2,A6 e P ADK A6,1 e P LDKL A9,1 e
0x43e8a0…43ea34 (10, 45) Dummy {f00=0x0156, f01=0x0190, f02=» LC A1,INDEX,A5 e P SLL A1,1 f $ P ADR A1,A12 POINT OUT STAT VALUE f * P LCR A2,A1 f R " P CF A14,CONASC MAKE IT VISABLE f d P LDR A4,A2 f P LCR A2,A1 f P SRL A2,4 f P CF A14,CONASC f P SLL A2,8 f P ORR A2,A4 f P SC A2,+1,A6 f
0x43ea34…43ebc8 Dummy {f00=0x0156, f01=0x0190, f02=»,+1,A1 f P SRL A2,4 g P CF A14,CONASC g P SLL A2,8 g 6 P ORR A2,A4 g H P SC A2,+1,A6 g Z P SRL A2,8 g n P SCR A2,A6 g P LDKL A10,1 NOT ONLY SPACES g P CF A14,DISLIN DISPLAY STAT. g " P CWK A5,NUMLIN LIMIT REACHED? g P RB(NE)
0x43ebc8…43ed5c Dummy {f00=0x0156, f01=0x0190, f02=»*** g X P* h P* MOVTXT MOVE TEXT h P* h 0 @ P*********************************************************** h : P* REGISTERS h ~ P* h P* h > P********************************************************** h P h PMOVTXT EQU * h
0x43ed5c…43eef0 Dummy {f00=0x0156, f01=0x0190, f02=» EJECT h > P********************************************************** i P* i P P* CONASC CONVERT TO ASCII i Z P* i | < P******************************************************** i P* REGISTERS i P* i P* i < P************************
0x43eef0…43f084 Dummy {f00=0x0156, f01=0x0190, f02=» i P RF CONA90 j PCONA10 EQU * j P ADK A2,/37 j . PCONA90 EQU * j B P RTN A14 j V P XIF j f P EJECT j r > P********************************************************* j > P* * j > P*
0x43f084…43f218 Dummy {f00=0x0156, f01=0x0190, f02=»************************************************* j P* REGISTERS k : P* k N ( P* A1= AT ENTRY START SEARCH ADDRESS k X P* A2= RESERVED k P* A3= RESERVED k P* A4= REL. CURSOR POS. k P* A5= REL. ATTRIBUTE POS. k P* A6= ATTRIBUTE CHAR. k
0x43f218…43f3ac Dummy {f00=0x0156, f01=0x0190, f02=» > P********************************************************* l PATMASF EQU * l F P ST A1,REGI,A11 l Z PASF100 EQU * l r P ADK A1,1 l P CWK A1,LBVDU-1 WRAP AROUND? l P RF(NG) ASF200 NO l " P LDK A1,0 FIRST POS. ON SCREEN l PASF200 EQU *
0x43f3ac…43f540 Dummy {f00=0x0156, f01=0x0190, f02=»000 ATTRIBUTE? l P RB(L) ASF100 NO m P LDR A6,A7 m . P LDR A5,A1 m @ . P CF A14,STOINF SAVE NEW SCREEN INFORMATION m R PASF900 EQU * m P RTN A14 m P EJECT m L P*********************************************************************** m L P*
0x43f540…43f6d4 (10, 46) Dummy {f00=0x0156, f01=0x0190, f02=» * m V L P* * n L P*********************************************************************** n f P* REGISTERS n P* n $ P* A1= ATENTRY START SEARCH ADDR. n P* A2= RESERV
0x43f6d4…43f868 Dummy {f00=0x0156, f01=0x0190, f02=»RVED n P* A9= RESERVED o P* A10= RESERVED o " P* A11= CREDIT WORK AREA o : P* A13= RESERVED o Z P* o r L P************************************************************************ o | PATMASB EQU * o P ST A1,REGI,A11 o PASB100 EQU * o
0x43f868…43f9fc Dummy {f00=0x0156, f01=0x018e, f02=»B200 NOT WRAP AROUND o ( P LDKL A1,LBVDU-1 LAST POS. ON SCREEN p PASB200 EQU * p H * P CW A1,REGI,A11 WHOLE SCREEN SEARCHED? p P RF(E) ASB900 YES p P RB ASB100 p PASB300 EQU * p P LDR A6,A7 p P LDR A5,A1 p * P CF A14,STOINF SAVE SCREEN
0x43f9fc…43fb90 Dummy {f00=0x0156, f01=0x018e, f02=» p N D P* * q D P* SNULL SEARCH FIRST NULL CHAR. * q P D P* * q D P****************************************
0x43fb90…43fd24 Dummy {f00=0x0156, f01=0x0190, f02=» B P* A3= AT ENTRY LAST SEARCH ADDR., AT RETURN NULL ADDR. IF ANY r P* A4= REL. CURSOR POS. r J P* A5= RESERVED r h P* A6= RESERVED r ~ P* A11= CREDIT WORK AREA r P* A13= RESERVED r P* r D P**************************************************
0x43fd24…43feb8 Dummy {f00=0x0156, f01=0x0190, f02=»F(NG) SNU200 NO r P LDK A1,0 FIRST SCREEN POS. s PSNU200 EQU * s < P CWR A1,A3 ALL SEARCHED? s P P RF(E) SNU300 YES s p * P CF A14,GETVDU GET CHAR IN VDU BUFFER s P CCK A7,NULL NULL CHAR? s P RB(NE) SNU100 NO s P LDR A3,A1 s " P LDK
0x43feb8…44004c Dummy {f00=0x0156, f01=0x0190, f02=» @ P************************************************************ t @ P* * t H @ P* WCHAR DISPLAY CHAR. AND CURSOR * t @ P*
0x44004c…4401e0 Dummy {f00=0x0156, f01=0x0190, f02=»= REL. CURSOR POS. t P* A5= REL. ATTRIBUTE POS. u P* A6= ATTRIBUTE CHAR. u < P* A8= VDU-ECB u Z P* A11= CREDIT WORK AREA u p P* A13= RESERVED u P* u B P************************************************************* u PWCHAR EQU * u
0x4401e0…440374 (10, 47) Dummy {f00=0x0156, f01=0x0190, f02=»0 YES u P LDR A7,A6 v $ P ANK A7,/4 INTENSIFIED DISPLAY? v P RF(NZ) WCH200 NO v H $ P LDK A1,/1F HIGH INTENSITY CHAR. v b P RF WCH300 v PWCH200 EQU * v P LDK A2,/20 NONDISPLAY v PWCH300 EQU * v & P LD A7,ECBBA,A8 GET BUFFER ADDRESS v
0x440374…440508 Dummy {f00=0x0156, f01=0x0190, f02=» LDK A1,4 REQ. LENGTH v P CF A14,DISCHA DISPLAY w P ADK A4,1 w < P IM PCURS,A11 w N ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? w d P RF(E) WCH900 YES w ( P ORK A6,1 SET MDT-BITS IN ATTRIBUTE w P ST A6,ATTRIB,A11 w P LDR A1,A5 w P LDR A
0x440508…44069c Dummy {f00=0x0156, f01=0x0190, f02=»******************************* w v > P* * x ( > P* RFMDUP REPLACE FM OR DUP CHAR IF PRESENT * x j > P* * x > P**************************
0x44069c…440830 Dummy {f00=0x0156, f01=0x0190, f02=»RVED x P* A11= CREDIT WORK AREA y P* A13= RESERVED y , P* y D 4 P*********************************************** y N PRFMDUP EQU * y P CWK A2,DUPCH DUP CHAR? y P RF(NE) RFMD10 NO y P LDK A2,/2A REPLACE y P RF RFMD90 y PRFMD10
0x440830…4409c4 Dummy {f00=0x0156, f01=0x0190, f02=»JECT y 4 P************************************************ z 4 P* * z D 4 P* DISCHA DISPLAY CHAR * z | 4 P* * z 4 P****************************
0x4409c4…440b58 Dummy {f00=0x0156, f01=0x0190, f02=»SERVED z P* A6= RESERVED { P* A8= VDU-ECB { $ P* A11= CREDIT WORK AREA { : P* A13= RESERVED { Z P* { r 6 P************************************************* { | PDISCHA EQU * { P LC A2,TCT01,A11 { " P CCK A2,VDUCOD PRINTER UNPACK? { P
0x440b58…440cec Dummy {f00=0x0156, f01=0x0190, f02=» { P LDKL A1,/100 | P LDR A7,A4 CURSOR POS. | PDISC10 EQU * | < P CWK A7,LLINE NEXT LINE? | P P RF(L) DISC90 NO | p & P ADS A1,ECBCW,A8 MOVE TO NEXT LINE | P SUKL A7,LLINE | P RB DISC10 | PDISC90 EQU * | & P ADS A7,ECBCW,A8 POSITION
0x440cec…440e80 Dummy {f00=0x0156, f01=0x4008, f02=»@ } LDKL A1,/100 | P LDR A7,A4 CURSOR POS. | PDISC10 EQU * | < P CWK A7,LLINE NEXT LINE? | P P RF(L) DISC90 NO | p & P ADS A1,ECBCW,A8 MOVE TO NEXT LINE | P SUKL A7,LLINE | P RB DISC10 | PDISC90 EQU * | & P ADS A7,ECBCW,A8 POSITION
0x440e80…441014 (10, 48) Dummy {f00=0x0157, f01=0x2008, f02=» ~ ) DATA PF 24 * * $ END * ,@ * 8 6 ) 4 DATA PF 7 ) F DATA PF 8 ) X DATA PF 9 ) j DATA PF 10 ) | DATA PF 11 ) DATA PF 12 ) DATA PF 13 ) DATA PF 14 ) DATA PF 15 ) *C0 ) DATA PF
0x441014…4411a8 Dummy {f00=0x0157, f01=0x0190, f02=»UFFNR=22 ~ P DATA *+LINK P RES BUFFL $ P IFF BUFFNR=23 6 P DATA *+LINK L P RES BUFFL ` P IFF BUFFNR=24 r P DATA *+LINK P RES BUFFL P IFF BUFFNR=25 P DATA *+LINK P RES BUFFL P IFF BUFFNR=26 P DATA *+
0x4411a8…44133c Dummy {f00=0x0157, f01=0x2008, f02=»x 4 d R N ( p
0x44133c…4414d0 Dummy {f00=0x0157, f01=0x2008, f02=» X | X j ^ ^ j VDUKB X | PRINT d GETTID DATBSC D C j PRTGO | KBVGO N ( p
0x4414d0…441664 Dummy {f00=0x0157, f01=0x2008, f02=» | X j ^ ^ j VDUKB X | PRINT d GETTID DATBSC D C j PRTGO | KBVGO N ( p
0x441664…4417f8 Dummy {f00=0x0157, f01=0x0190, f02=» > P********************************************************* > P* * F > P* RELBUF RELEASE BUFFER * > P* *
0x4417f8…44198c Dummy {f00=0x0157, f01=0x4180, f02=»ESERVED P* A13= RESERVED P* ( > P********************************************************* 2 PRELBUF EQU * t P LDKL A7,BUFFER P SUKL A8,2 POINT TO LINK PRELB10 EQU * P LDR* A1,A7 P RF(Z) RELB90 P LDR A7,A1
0x44198c…441b20 Dummy {f00=0x0157, f01=0x2008, f02=»
0x441b20…441cb4 (10, 49) Opaque[0x194]
0x441cb4…441e48 # DirEnt {nam=»EPRINT«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2ae8, f03=0x0000}
0x441cb4…441e48 IdxSect {
0x441cb4…441e48 f00 = 0x0157 // 0x441cb4 @0x0
0x441cb4…441e48 f01 = 0x0002 // 0x441cb6 @0x2
0x441cb4…441e48 gno = [ // 0x441cb8 @0x4
0x441cb4…441e48 [0x00]: C0x0157.0x1.0
0x441cb4…441e48 ]
0x441cb4…441e48 }
0x441e48…441fdc Dummy {f00=0x0157, f01=0x0104, f02=» PLED XPRINT P!!CH $$ X:D$$ 2$$ P!!RE 0,$$07-06$$07-07 DK$$ 0 P!!RE 123,$$ 0$$ 1$$ R P!!JN 646,PRINT,648,648 n P!!DL 648 P . =DK P!!DL 704 P ORKL A10,NXTCHA . =DK P!!EN PKPF /S PASG /E0,TY10 P
0x441fdc…442170 Dummy {f00=0x0157, f01=0x2008, f02=» XPRINT P!!CH $$ X:D$$ 2$$ P!!RE 0,$$07-06$$07-07 DK$$ 0 P!!RE 123,$$ 0$$ 1$$ R P!!JN 646,PRINT,648,648 n P!!DL 648 P . =DK P!!DL 704 P ORKL A10,NXTCHA . =DK P!!EN PKPF /S PASG /E0,TY10 P
0x442170…442304 Dummy {f00=0x0157, f01=0x2008, f02=» XVDU P!!IL 318 ( P LD A2,ECBCW,A8 SAVE CURSOR POS =24 $ P!!IL 321 P P LD A1,ECBRC,A8 . =21 ` P ANK A1,1 NOT OPERABLE? =21 ~ " P RF(Z) DISL20 VDU OPERABLE =21 0 P ST A2,ECBCW,A8 NOT OP. REST CURSOR POS =21 & P RF DISL90 T
0x442304…442498 Dummy {f00=0x0157, f01=0x0190, f02=» U P @+0V L+0 U #P A A hQ ? b b > ? @ 2 XB ) A 2 A l_N A l A j A 4_` A A Q > ? A A Q _ A < Q P Q R Y _ A _0 ^ 8 > Q Z P 0 9
0x442498…44262c Dummy {f00=0x0157, f01=0x0190, f02=» 5 % > ? HW ? W ? T T U T U U > > $ $ 4 T - 1_( U T P 0 U H H _h ? @ T 0 A 1 Q Q > > 0 @ 1 A P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @
0x44262c…4427c0 Dummy {f00=0x0157, f01=0x0190, f02=»A. B $ ( , 0 4 8 < #M 1 L ^ ~ ~ ~ ~ H V V V H H $ ( , 0 4 8 < C C P T 8P Y ^ 5 ) P U ` XJ XF Y @ P R
0x4427c0…442954 (10, 50) Opaque[0x194]
0x442954…442ae8 # DirEnt {nam=»XPRINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2af0, f03=0x0000}
0x442954…442ae8 IdxSect {
0x442954…442ae8 f00 = 0x0157 // 0x442954 @0x0
0x442954…442ae8 f01 = 0x001a // 0x442956 @0x2
0x442954…442ae8 gno = [ // 0x442958 @0x4
0x442954…442ae8 [0x00]: C0x0157.0x2.0
0x442954…442ae8 [0x01]: C0x0157.0x3.0
0x442954…442ae8 [0x02]: C0x0158.0x0.0
0x442954…442ae8 [0x03]: C0x0158.0x1.0
0x442954…442ae8 [0x04]: C0x0158.0x2.0
0x442954…442ae8 [0x05]: C0x0158.0x3.0
0x442954…442ae8 [0x06]: C0x0159.0x0.0
0x442954…442ae8 [0x07]: C0x0159.0x1.0
0x442954…442ae8 [0x08]: C0x0159.0x2.0
0x442954…442ae8 [0x09]: C0x0159.0x3.0
0x442954…442ae8 [0x0a]: C0x015a.0x0.0
0x442954…442ae8 [0x0b]: C0x015a.0x1.0
0x442954…442ae8 [0x0c]: C0x015a.0x2.0
0x442954…442ae8 ]
0x442954…442ae8 }
0x442ae8…442c7c Dummy {f00=0x0157, f01=0x0190, f02=» 0 P IDENT PRINT REL 11.1 82-07-06 870150541110 P 8 $ P =37 DUP OR FM CHAR ON PRINTER @ P =36 IMPROVEMENT OF =24 h P 82-06-28 P =35 IMPROVEMENT OF =24 0 P =32 MISSING PRINTING AFTER PRINTER ERROR $ P =31 PAPER OUT ON
0x442c7c…442e10 Dummy {f00=0x0157, f01=0x0190, f02=»ING z " P =25 LEFT MARGIN FOR PRINTER P 82-05-12 2 " P =24 BASIC WRITE ON PRINTER F P 82-04-28 l P =23 PRINTER RETURN CODE $ P =19 ERRONEOUS PRINTER STATUS P =18 DOUBLE SETTIM ENTRIES P =17 TWO DC LINES
0x442e10…442fa4 Dummy {f00=0x0157, f01=0x0190, f02=»INTER STATUS " P =5 DIFFERENT FF CH FOR GP74 P 82-01-26 : P =4 NATIONAL CHAR N P 81-11-20 j P =3 SPACE SUPRESSION ~ P 81-05-12 P =2 NEW LABEL P 81-04-08 P =1, EOC ON FIRST READ P 81-01-26
0x442fa4…443138 Dummy {f00=0x0157, f01=0x0190, f02=» * H P* MODULE PRINT : H P* MODULE HANDLING THE PRINTOUTS BOTH FROM * d H P* DISPLAY AND MAIN-FRAME * H P*
0x443138…4432cc Dummy {f00=0x0157, f01=0x0190, f02=» H P******************************************************************* P EJECT P < P******************************************************** ^ P* P* LIST OF ROUTINES P* $ P* PRINT MAIN ROUTINE 0 P* IOA
0x4432cc…443460 Dummy {f00=0x0157, f01=0x0190, f02=»* ICPINP INTERTASK INPUT & P* ICPRED INTERTASK READ , ( P* ICPWRT INTERTASK WRITE V ( P* ICABOR INTERTASK ABORT 6 P* COPP COPY SCREEN BUFFER TO PRINTER $ P* TABLE OF PRINTERORDERS
0x443460…4435f4 (10, 51) Dummy {f00=0x0157, f01=0x0190, f02=» CR CARRIAGE RETURN $ P* EM END MESSAGE & . P* INVAL INVALID PRINTER ORDER N , P* FFCHK CHECK IF FF IS VALID " P* PRLINE PRINT LINE $ P* INIT INIT ROUTINE & P* T
0x4435f4…443788 Dummy {f00=0x0157, f01=0x0190, f02=»********* ^ P EJECT H P******************************************************************* H P* * l H P* ENTRY POINTS * H P*
0x443788…44391c Dummy {f00=0x0157, f01=0x0190, f02=»*** P P 8 P ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT) 0 P ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2 P P H P******************************************************************* H P*
0x44391c…443ab0 Dummy {f00=0x0157, f01=0x0190, f02=» * p H P******************************************************************* , P x 2 P EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA) 2 P EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9 $ P EXTRN OPSYS OPEN SYSTEM (DC
0x443ab0…443c44 Dummy {f00=0x0157, f01=0x0190, f02=» , P EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS & P EXTRN TSTMES TEST MESSAGE (DCSNA) 4 ( P EXTRN READW READ WITH WAIT (DCSNA) ^ , P EXTRN READNW READ WITH NO WAIT (DCSNA) " P EXTRN GETBUF GET BUFFER (PAD) & P EXTRN RELBUF RELEASE BUFFER (PAD) (
0x443c44…443dd8 Dummy {f00=0x0157, f01=0x0190, f02=» ( P EXTRN ICWRT INTERTASK WRITE (KEYB) ( P EXTRN ICREAD INTERTASK READ (KEYB) 0 $ P EXTRN SETSTA SET STATUS (DCBSC) * P EXTRN CONNAT TRANSFORM OF NAT CHAR =4 , P EXTRN RFMDUP REPLACE FM OR DUP CHAR =37 P EJECT D P************************
0x443dd8…443f6c Dummy {f00=0x0157, f01=0x0190, f02=»ONAL ASSEMBLY * D P* * 8 D P*************************************************************** P PX:A EQU 0 SNA HANDLING IF:=1 PSNA EQU X:A & P
0x443f6c…444100 Dummy {f00=0x0157, f01=0x0190, f02=»M OF NAT.CHAR IF:=1 =4 ~ PTRANAT EQU X:R . =4 P* : , PBASWRI EQU 0 BASIC WRITE ON PRINTER =24 D 0 PSCS EQU 0 SIMPLE SNA CH STRING HANDLING =26 t , PLMARG EQU 0 LEFT MARGIN FOR PRINTER =25 P EJECT H P**********************************
0x444100…444294 (10, 52) Dummy {f00=0x0158, f01=0x0190, f02=»DATA AND EQUATES ~ H P* * H P******************************************************************* d P P* P* TABLE OF PRINTER TYPES P* PPRTTAB EQU * & P DATA /0
0x444294…444428 Dummy {f00=0x0158, f01=0x0190, f02=»80 ~ P* . P* DEFAULT VALUES FOR DIFF. PRINTERS " P* BYTE1= NUMBER OF LINES/PAGE F " P* BYTE2= NUMBER OF CHAR./LINE l P* PPRTLEN DATA /2382 GTP P DATA /2382 LP P DATA /2382 GP 74 P DATA /2382 COPY 80 P I
0x444428…4445bc Dummy {f00=0x0158, f01=0x0190, f02=»74 =25 P DATA 0 COPY80 =25 P XIF . =25 ( P* =24 < P IFF BASWRI=1 . =36 L , PPRBFL EQU 132 PRINTER BUFFER LENGTH =24 h P =BUFL-2 (IN DATXXX) =24 P XIF . =36 P IFT BASWRI=1 . =36 , PPRBFL EQU 256 PRINTER BUFFER L
0x4445bc…444750 Dummy {f00=0x0158, f01=0x0190, f02=»A /0028,/4050 40, 64 AND 80 CHAR/LINE P* . & P* EQUATES FOR ECB HANDLING 8 P* b PECBBA EQU 2 BUFFER ADDRESS l PECBRL EQU 4 REQUESTED LENGTH PECBEL EQU 6 EFFECTIVE LENGTH PECBRC EQU 8 RETURN CODE PECBCW EQU 10 CONTR
0x444750…4448e4 Dummy {f00=0x0158, f01=0x0190, f02=»INTER STATUS IN PRTMOD P* " PPRTERR EQU /4000 PRINTER ERROR ( P* N " P* COPY INTERNAL STATUS IN A10 X P* ~ $ PNXTCHA EQU /8000 GET NEXT CHAR. " PENDPRT EQU /4000 END PRINTING $ PNTONLY EQU /2000 NOT ONLY SPACES PCRREC EQU
0x4448e4…444a78 Dummy {f00=0x0158, f01=0x018e, f02=» 2 INTERTASK P* P* SCREEN SIZE P* 4 PLBVDU EQU 1920 > P* T P* RECEIVE STATUS ^ P* v PLICREC EQU /2000 . =1 P EJECT P* P* RELATIVE ADDRESSES IN P* TERMINAL WORKBLOCK P* PBVDU EQU 2 S
0x444a78…444c0c Dummy {f00=0x0158, f01=0x0190, f02=» ` & PPRTID EQU DCLENG+6 PRINTER TASKID $ PPRTTYP EQU PRTID+2 PRINTER TYPE 2 " PMAIN EQU PRTTYP+4 WHAT DC LINE Z PECBBLK EQU MAIN+6 ECB BLOCK ( PBUFPNT EQU ECBBLK+14 BUFFER POINTER PREGI EQU BUFPNT+2 SAVE AREA $ PPRTMOD EQU REGI+32 P
0x444c0c…444da0 Dummy {f00=0x0158, f01=0x0190, f02=»WRITE ECB r PECBDC EQU ECBICW+2 ECB DC " PECBDC1 EQU ECBDC ECB DC LINE 1 4 & PECBDC2 EQU ECBDC1+2 ECB DC LINE 2 Z P IFF SNA=1 . =24 . PPRCCCT EQU ECBDC2+2 CHARACTER COUNTER =24 P XIF . =24 P IFT SNA=1 . =24 . PPRCCCT EQU ECB
0x444da0…444f34 (10, 53) Dummy {f00=0x0158, f01=0x018e, f02=» IN LEFT MARGIN =25 t P* P* RELATIVE ADDRESSES IN & P* COMMON WORKBLOCK F P* ` P IFF TEST=1 j " PTSKTAB EQU 26 DEVICE TABLE =17 ~ P XIF P IFT TEST=1 PTSKTAB EQU 221 . =17 P XIF P EJECT H P**************
0x444f34…4450c8 Dummy {f00=0x0158, f01=0x0190, f02=» H P* PRINT MAIN ROUTINE PRINTER * H P* * P H P******************************************************************* PPRINT EQU * P CF A14,INIT
0x4450c8…44525c Dummy {f00=0x0158, f01=0x0190, f02=»IT OPEN CONNECTION INITIATE P RF(N) PRI100 DC NOT PRESENT $ P CF A14,OPSYS OPEN SYSTEM H P XIF j P IFF SNA=1 v P CF A14,OPEN OPEN P RF(N) PRI100 NO DC INVOLVED P LDKL A8,20 P LKM P DATA 6 " P CF A14,CONCT CONN
0x44525c…4453f0 Dummy {f00=0x0158, f01=0x0190, f02=»T . =17 P LDK A1,1 . =17 2 P XRS A1,MAIN,A11 INDICATE FIRST LINE AGAIN =17 ( P XIF . =17 ^ P IFF SNA=1 . =17 r * P CF A14,SETTYM SET REQUEST TIMEOUT =18 P XIF ( P LDK A1,SHARED ALWAYS SHARED IN BSC P ST A1,PRTMOD,A11
0x4453f0…445584 Dummy {f00=0x0158, f01=0x0190, f02=»BLK P ADR A7,A11 P LKM P DATA 7 MULTIPLE WAIT , * P CF A14,IOCPL COMPLET IN CURRENT MODE J P LD A1,PRTMOD,A11 x " P ANKL A1,PRTERR PRINTER ERROR? P RB(Z) PRI200 NO P XRS A1,PRTMOD,A11 P RB PRI100 TRY TO FIX IT
0x445584…445718 Dummy {f00=0x0158, f01=0x0190, f02=» * f $ P* IOACT ACTIVATE IN CURRENT MODE $ J P* * L J P********************************************************************* PIOACT EQU * P LDK A4,0
0x445718…4458ac Dummy {f00=0x0158, f01=0x0190, f02=»QUEST OUTSTANDING ALREADY? z P RF(NZ) IOAC10 YES " P CM MAIN,A11 INDICATE LINE 1 < P CF A14,TSTMES TEST MESSAGE ` P ST A8,ECBBLK+4,A11 PIOAC10 EQU * P IFT NBRLIN=2 P ADK A4,1 ADD MORE WAITS P LD A2,ECBBLK+6,A11 ALREADY?
0x4458ac…445a40 Dummy {f00=0x0158, f01=0x0190, f02=» PIOAC20 EQU * P ADK A4,1 P LD A2,ECBBLK+2,A11 ALREADY? . P RF(NZ) IOAC30 YES R " P CF A14,ICPRED READ INTERTASK l P ST A8,ECBBLK+2,A11 PIOAC30 EQU * & P ST A4,ECBBLK,A11 NUMBER OF WAITS P RTN A14 P EJECT J
0x445a40…445bd4 (10, 54) Dummy {f00=0x0158, f01=0x0190, f02=» * X $ P* IOCPL COMPLETE IN CURRENT MODE J P* * > J P********************************************************************* PIOCPL EQU * " P CW A8,ECBBLK+2,A11 INTERT
0x445bd4…445d68 Dummy {f00=0x0158, f01=0x0190, f02=» CW A8,ECBBLK+4,A11 DC LINE 1? P IFT NBRLIN=2 & P RF(NE) IOCP20 NO < P XIF V P IFF NBRLIN=2 b P RF(NE) IOCP90 NO FORGET IT x P XIF P CM ECBBLK+4,A11 P CM MAIN,A11 INDICATE LINE 1 P RF IOCP30 P IFT NBRLIN=2
0x445d68…445efc Dummy {f00=0x0158, f01=0x0190, f02=»NE 2 x P XIF PIOCP30 EQU * " P CF A14,DCPINP TAKE CARE OF DC , PIOCP90 EQU * R P RTN A14 f P EJECT v D P*************************************************************** D P*
0x445efc…446090 Dummy {f00=0x0158, f01=0x0190, f02=» * D P*************************************************************** ! PDCPINP EQU * ! ( P CF A14,ICABOR ABORT LOCAL HARD COPY ! p " P LDR A7,A7 ALREADY COMPLETED? ! P RF(Z) DCP100 NO ! * P CF A14,ICPINP TAKE CARE OF THAT FIRST ! P
0x446090…446224 Dummy {f00=0x0158, f01=0x0190, f02=»A11 ! PDCP150 EQU * " P XIF " P IFT SNA=1 " , P LD A1,ECBRC,A8 OK? " > P ANKL A1,/701 OK? " Z P RF(NZ) DCP500 NO STOP IT " t P XIF " P CF A14,GETBUF GET BUFFER " P LDR A3,A8 " $ P CF A14,READW READ FIRST BUFFER " P ANK A1,3
0x446224…4463b8 Dummy {f00=0x0158, f01=0x0190, f02=» SUR A10,A10 RESET INTERNAL UNPACK STATUS " P IFT SNA=1 . =1 # 2 P ANK A1,2 . =1 # J P RF(Z) DCP450 . =1 # ` P ORKL A10,LICREC . =1 # z PDCP450 EQU * . =1 # P XIF . =1 # P LD A1,ECBEL,A8 # " P ST A1,DCLENG,A11 SAVE LENGTH # * P ST A1
0x4463b8…44654c Dummy {f00=0x0158, f01=0x0190, f02=»D WITH NO WAIT # ~ P XIF $ ( P CF A14,UNPACK UPDATE SCREEN BUFFER $ " PDCP500 EQU * $ N P IFF SNA=1 $ b P LDK A1,0 $ t " P CF A14,SETSTA SET DEVICE END $ P XIF $ P RTN A14 $ P EJECT $ D P**************************************************
0x44654c…4466e0 Dummy {f00=0x0158, f01=0x0190, f02=» * $ f D P* * % D P**************************************************************** % f PICPINP EQU * % P CF A14,COPP MAKE HARDCOPP % , P ST A1,REGI,A11 RETURN CODE TO TERMI
0x4466e0…446874 (10, 55) Dummy {f00=0x0158, f01=0x0190, f02=»********** % X F P* * & F P* ICPRED INTERTASK READ * & F P* * & F P************************
0x446874…446a08 Dummy {f00=0x0158, f01=0x0190, f02=» A1,0 NOT ADDRESSED READ & P LDKL A3,BVDU ' P ADR A3,A11 ' 6 P LDKL A2,LBVDU+/20 ' J " P CF A14,ICREAD READ INTERTASK ' d P RTN A14 ' P EJECT ' H P******************************************************************** ' H P*
0x446a08…446b9c Dummy {f00=0x0158, f01=0x0190, f02=» * ' H P******************************************************************** ( H PICPWRT EQU * ( P LD A8,ECBICW,A11 ( P CF A14,ICSET SET NO TIMEOUT ( P LD A1,ECBICR,A11 ( P LD A1,E
0x446b9c…446d30 Dummy {f00=0x0158, f01=0x0190, f02=» CF A14,ICWRT WRITE INTERTASK ( PICPW90 EQU * ) & P RTN A14 ) : P EJECT ) J B P************************************************************* ) X B P* * ) B P* ICABOR INTERTASK ABOR
0x446d30…446ec4 Dummy {f00=0x0158, f01=0x0190, f02=»***************************** ) p PICABOR EQU * * & P LDK A7,0 * : P CM ECBBLK+IC,A11 * L P LD A8,ECBICR,A11 * f P LKM * P DATA 10 * P RTN A14 * P EJECT * J P********************************************************************* * J P
0x446ec4…447058 Dummy {f00=0x0158, f01=0x0190, f02=» * * V J P* * + J P********************************************************************* + b P* REGISTERS + P* + P* A2= CHAR. + " P* A3= SCREEN BUFFE
0x447058…4471ec Dummy {f00=0x0158, f01=0x0190, f02=»FFER POINTER + P* A9= ECB BUFFER INDEX , P* A10= INTERNAL STATUS , 4 P* A11= TASK BLOCK BASE , T P* A13= ECB BASE , t P* , J P********************************************************************* , PCOPP EQU * . =2 , P LD A8,ECB
0x4471ec…447380 Dummy {f00=0x0158, f01=0x0190, f02=»IBUTE BACKWARDS , v & P CM LINCNT,A11 RESET LINE COUNTER - P LD A1,WCC,A11 - B P ANK A1,/38 MASK RELEVANT - X P LDR A5,A1 - z P ANK A1,8 START PRINT? - $ P ABL(Z) COP950 NO FORGET IT =19 - P SRL A5,4 - $ P LC A5,LINLEN,A5 GET LINE LENGTH -
0x447380…447514 (10, 56) Dummy {f00=0x0159, f01=0x0190, f02=»A1 - PCOP100 EQU * . P LDKL A3,BVDU . P ADR A3,A11 . 4 P IFT BASWRI=1 . =24 . H P LDR A1,A8 . =24 . d . P LD A8,PRBA,A11 PRINTER BUFFER ADDRESS =24 . | $ P ST A8,ECBBA,A1 STORE IN ECB =24 . , P AD A8,PRLMAR,A11 ALLOW LEFT MARG/CR =25 . 6 P C
0x447514…4476a8 Dummy {f00=0x0159, f01=0x018e, f02=»RESET CONTROL CHAR. . P ADKL A8,2 / P XIF . =24 / . P SUR A9,A9 / B P LDK A2,0 / T P LDK A4,0 / f P SUR A10,A10 RESET STATUS / x PCOP200 EQU * / P CWK A4,LBVDU ALL PRINTED? / P RF(NL) COP850 YES / P CWR A9,A5 LINE FULL? / P
0x4476a8…44783c Dummy {f00=0x0159, f01=0x0190, f02=» P LCR A2,A3 GET CHAR. 0 P ANK A2,/FF 0 P RF(Z) COP650 NULL CHAR. 0 4 P CCK A2,/8000 ATTRIBUTE? 0 T P RF(L) COP500 NO 0 t P LDR A6,A2 GET NEW ATTRIBUTE 0 P RF COP650 0 PCOP500 EQU * 0 P CCK A2,/2020 ORDER? 0 P RF(L) COP550 YES 0
0x44783c…4479d0 Dummy {f00=0x0159, f01=0x018e, f02=»1 TAKE CARE OF ORDER 0 P LDR A1,A1 PRINTER ERROR? 1 P RF(NZ) COP900 YES 1 > P LDR A1,A10 GET STATUS 1 X P RF(N) COP800 GET NEXT CHAR. 1 v P SLL A1,1 1 P RF(N) COP850 END 1 PCOP600 EQU * 1 P LDR A1,A6 CHECK IF NONPRINT 1 P ANK A1,/C
0x4479d0…447b64 Dummy {f00=0x0159, f01=0x018e, f02=» 1 " P LDK A2,/20 REPLACE WITH SPACE 2 PCOP700 EQU * 2 . P IFF TRANAT=0 . =4 2 B * P LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =4 2 P XIF . =4 2 P SCR A2,A8 2 P ADKL A9,1 2 P ADKL A8,1 2 P CCK A2,/2020 SPACE? =3 2 . P RF(E) COP800 YES, DON
0x447b64…447cf8 Dummy {f00=0x0159, f01=0x0190, f02=» 2 P ANKL A10,/FFFF-NXTCHA RESET TAKE NEXT CHAR =3 3 P ADK A3,1 3 : P ADK A4,1 3 L P RB COP200 3 ^ PCOP850 EQU * 3 p P IFF BASWRI=1 . =24 3 ( P LDR A9,A9 SOMETHING LEFT TO PRINT? 3 P RF(Z) COP950 NO! =19 3 " P CF A14,PRLINE PRINT LAST LINE
0x447cf8…447e8c Dummy {f00=0x0159, f01=0x0190, f02=»XTRA LINE FEED 3 P XIF . =24 4 P IFT BASWRI=1 . =24 4 * , P LDR A9,A9 SOME TEXT LEFT TO PRINT? =24 4 F P RF(Z) COP860 NO! =24 4 v " P CF A14,PRLINE PRINT TEXT =24 4 PCOP860 EQU * . =24 4 P IFF SCS=1 . =26 4 $ P ANKL A10,ENDPRT END MESS.?
0x447e8c…448020 Dummy {f00=0x0159, f01=0x0190, f02=» . =26 4 P IFT BASWRI=1 . =26 5 PCOP870 EQU * . =24 5 , . P CF A14,PRCCH CONTROL CH:S TO PRINTER =24 5 F P XIF . =24 5 x PCOP900 EQU * 5 P LDR A1,A1 PRINTER FAILED? 5 P RF(Z) COP950 NO 5 P LD A2,WCC,A11 . =32 5 $ P CWK A2,/38 LOCAL
0x448020…4481b4 (10, 57) Dummy {f00=0x0159, f01=0x0190, f02=» PRINTING =34 5 PCOP910 EQU * . =32 6 " P LDKL A2,PRTERR INDICATE ERROR 6 0 P ORS A2,PRTMOD,A11 6 V PCOP950 EQU * 6 p P RTN A14 6 P EJECT 6 L P************************************************************************ 6 P* 6 P* TABLE FOR
0x4481b4…448348 Dummy {f00=0x0159, f01=0x0190, f02=»A /0004 NUMBER OF ORDER CODES 6 $ P DATA /0A0A,NL,NL,NL,NL NEW LINE 7 & 2 P DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED 7 N ( P DATA /0D0D,CR,CR,CR,CR CARR. RETURN 7 ( P DATA /1919,EM,EM,EM,EM END MESSAGE 7 " P DATA INVAL INVALID ORDER CODE 7 P EJECT
0x448348…4484dc Dummy {f00=0x0159, f01=0x018e, f02=» * 7 d P P* NL NEW LINE * 8 ( P P* * 8 | P P********************************************************
0x4484dc…448670 Dummy {f00=0x0159, f01=0x0190, f02=» P RTN A14 9 P EJECT 9 J P********************************************************************** 9 " J P* * 9 p J P* FFDUM SIMULATED FORM FEED * 9
0x448670…448804 Dummy {f00=0x0159, f01=0x0190, f02=»**************** 9 Z PFFDUM EQU * : . P CF A14,FFCHK CHECK IF FORM FEED IS VALID : , P LDR A1,A1 VALID? : ^ P RF(NZ) FFD400 NO : x P LDK A7,0 RESET : & P LD A1,PRTTYP,A11 TYPE OF PRINTER : P LC A7,PRTLEN,A1 PAGE SIZE : PFFD100 EQU * :
0x448804…448998 Dummy {f00=0x0159, f01=0x0190, f02=»T A7,REGI,A11 SAVE : $ P CF A14,PRLINE ADVANCE ONE LINE ; P LD A7,REGI,A11 RESTORE ; B P LDR A1,A1 PRINTER ERROR? ; b P RF(NZ) FFD500 YES ; P RB FFD100 ; PFFD200 EQU * ; P NGR A1,A7 ; * P ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE ; P RB
0x448998…448b2c Dummy {f00=0x0159, f01=0x0190, f02=»1,0 RETURN CODE ; PFFD500 EQU * < P RTN A14 < , P EJECT < < J P********************************************************************* < J J P* * < J P* FFVAL FORM FEED
0x448b2c…448cc0 Dummy {f00=0x0159, f01=0x0190, f02=»******************************************************* < PFFVAL EQU * = @ $ P CF A14,FFCHK CHECK IF FF VALID = T P LDR A1,A1 VALID? = | P RF(NZ) FFV200 NO = P . =36 = P IFF BASWRI=1 . =30 = * P LDK A1,/31 FF FOR STANDARD WRITE =30 = (
0x448cc0…448e54 (10, 58) Dummy {f00=0x0159, f01=0x0190, f02=»F A14,PRLINE PRINT LINE =36 = P XIF . =24 > $ & P LDK A2,/20 REPLACE FF WITH SPACE > 8 P CM LINCNT,A11 TOP OF PAGE > b PFFV200 EQU * > P LDK A1,0 RETURN CODE > P RTN A14 > P EJECT > J P****************************************************
0x448e54…448fe8 Dummy {f00=0x0159, f01=0x018e, f02=»N * > p J P* * ? . J P********************************************************************** ? | PCR EQU * ? P LDR A1,A6 GET ATTRIBUTE ? P ANK A1,/C ?
0x448fe8…44917c Dummy {f00=0x0159, f01=0x0190, f02=» & P ORKL A10,NTONLY+CRREC CR RECEIVED @ PCR100 EQU * @ . " P LDK A2,/20 REPLACE WITH SPACE @ B P LDK A1,0 RETURN CODE @ h P RTN A14 @ P EJECT @ J P********************************************************************* @ H P*
0x44917c…449310 Dummy {f00=0x0159, f01=0x0190, f02=» * @ H P******************************************************************** A F PEM EQU * A " P ORKL A10,ENDPRT END PRINTING A P LDK A1,0 RETURN CODE A P RTN A14 A P EJECT A F P****
0x449310…4494a4 Dummy {f00=0x0159, f01=0x0190, f02=» A N F P* INVAL INVALID PRINTER ORDER * B F P* * B R F P****************************************************************** B P* B P* ALSO HANDLING: B P
0x4494a4…449638 Dummy {f00=0x0159, f01=0x0190, f02=» P SUR A1,A2 REPLACED? =37 C P RF(NZ) INVA10 YES! =37 C $ " P NO! I.E. INVALID ORDER =37 C D " P LDK A2,/20 REPLACE WITH SPACE C j PINVA10 EQU * . =37 C P ORKL A10,NTONLY NOT ONLY C P LDK A1,0 RETURN CODE C P RTN A14 C P EJECT C F P
0x449638…4497cc Dummy {f00=0x0159, f01=0x0190, f02=» * C R F P* FFCHK CHECK IF FF IS VALID * D F P* * D V F P***************************************************************** D PFFCHK EQU * D P LD A1,WCC
0x4497cc…449960 Dummy {f00=0x0159, f01=0x0190, f02=» ANK A1,/40 LOCAL HARD COPY? D & P RF(Z) FFCH20 YES, FF NOT ALLOWED E $ PFFCH10 EQU * E N P LDR A9,A9 FF ALLOWED E b P RF(Z) FFCH30 NOT E P LDR A1,A10 E P ANKL A1,CRREC CR RECEIVED? E P RF(NZ) FFCH30 YES E PFFCH20 EQU * E " P LDK A2,
0x449960…449af4 (10, 59) Dummy {f00=0x0159, f01=0x0190, f02=» E j P LDR A9,A9 EMPTY LINE F P RF(Z) FFCH35 YES F & P CF A14,PRLINE PRINT LINE F @ PFFCH35 EQU * F b P LDK A1,0 RETURN CODE F v PFFCH40 EQU * F P ORKL A10,NTONLY NOT ONLY F P RTN A14 F P EJECT F D P********************************
0x449af4…449c88 Dummy {f00=0x0159, f01=0x0190, f02=»INT LINE * F x D P* * G 0 D P**************************************************************** G x PPRLINE EQU * G P LD A8,ECBPRT,A11 G P LDR A1,A10 G P ANKL
0x449c88…449e1c Dummy {f00=0x0159, f01=0x0190, f02=»? G | P RF(NZ) PRL200 NO H P ANK A2,/40 HARDCOPY????? H $ P RF(NZ) PRL200 NO H F PPRL050 EQU * H ` 8 P ANKL A10,/FFFF-NTONLY RESET NOT ONLY SPACES RCV =3 H t P IFF BASWRI=1 . =24 H . P LDKL A9,2 ADD CONTROL CHAR. TO LENGTH =3 H P ADS A9,EC
0x449e1c…449fb0 Dummy {f00=0x0159, f01=0x0190, f02=»8 TEXT TO PRINT? =24 H * P RF(Z) PRL070 NO! JUST CONTROL CH =24 I $ P EJECT HANDLING A TEXT LINE =36 I J * P PREPARE LINE. FIRST LEFT MARGIN =36 I r P IFF LMARG=0 . =36 I 0 P LDK A7,/20 FILL LEFT MARGIN WITH SPACE =36 I P LD A1,PRLMAR,A11 . =36 I
0x449fb0…44a144 Dummy {f00=0x0159, f01=0x0190, f02=»W A1,ECBBA,A8 FINISHED? =36 I P RB(G) PRL055 NO! =36 J $ P XIF . =36 J B P IFT BASWRI=1 . =36 J V P . =36 J r P LDK A7,/0D CR CCH =36 J 0 P SC* A7,ECBBA,A8 CR CCH FIRST IN BUFFER =36 J $ P IM LINCNT,A11 ANOTHER LINE =24 J P LDK A1,/0A
0x44a144…44a2d8 Dummy {f00=0x0159, f01=0x0190, f02=»1,A7 LF CCH LAST IN BUF =25 J P . =35 K $ P CALCULATE LINE LENGTH =36 K 4 P LDK A1,1 ALLOW FOR LF =36 K X & P AD A1,ECBRL,A8 ALLOW FOR TEXT =36 K z 0 P AD A1,PRLMAR,A11 ALLOW FOR LEFT MARGIN =36 K 0 P ADS A1,PRCCCT,A11 NO. OF CH:S TO PRINT =36 K
0x44a2d8…44a46c Dummy {f00=0x0159, f01=0x0190, f02=» LDKL A1,PRBFL BUFFER LENGTH =36 K . P SU A1,PRCCCT,A11 USED PART OF BUFFER =36 L ( $ P SUR A1,A5 MAX. LINE LENGTH =36 L Z & P SU A1,PRLMAR,A11 LEFT MARGIN =36 L 0 P RF(G) PRL200 ENOUGH SPACE. DON'T PRINT =36 L P . =36 L " PPRL065 EQU * PRINT BUFFE
0x44a46c…44a600 Dummy {f00=0x0159, f01=0x018e, f02=»ER ADDRESS =36 L | P LDK A7,/05 BASIC WRITE =24 M P LKM . =24 M : P DATA 1 . =24 M N . P CM PRCCCT,A11 CLEAR CHARACTER COUNTER =24 M d P RF PRL090 . =24 M , P EJECT HANDLING A CONTROL CHARACTER =36 M * PPRL070 EQU * STORE CCH IN BUFFER =24 M
0x44a600…44a794 (10, 60) Dummy {f00=0x015a, f01=0x0190, f02=» P RF(Z) PRL075 NO =36 N P LDK A7,/0C YES. FF CCH =36 N , P ANKL A10,/FFFF-FFCCH RESET FF IND. =36 N D PPRL075 EQU * . =36 N t & P SC* A7,ECBBA,A8 CCH TO BUFFER =36 N ( P IM ECBBA,A8 STEP BUFFER ADDRESS =36 N 2 P IM PRCCCT,A11 STEP NO. OF CH:S IN B
0x44a794…44a928 Dummy {f00=0x015a, f01=0x0190, f02=»QU * . =24 N P XIF . =24 O P LDK A1,50 NUMBER OF DELAYS O & PPRL100 EQU * O J P LDKL A8,1 WAIT FOR A WHILE O ^ P LKM O P DATA 6 O P LD A8,ECBPRT,A11 O P LDR* A2,A8 PRINT COMPL.? O P RF(N) PRL150 YES O P SUK A1,1 MORE TO WA
0x44a928…44aabc Dummy {f00=0x015a, f01=0x0190, f02=»00 O PPRL150 EQU * P P LKM P P DATA 2 RESYNCHRONIZE P , P IFF BASWRI=1 . =24 P J P IM LINCNT,A11 ANOTHER LINE P f & P CM ECBRL,A8 RESET PRINT LENGTH =3 P P XIF . =36 P P LD A1,ECBRC,A8 OK? P 6 P ANKL A1,/2011 PAPER OUT/HARDWARE T-
0x44aabc…44ac50 Dummy {f00=0x015a, f01=0x0190, f02=»6 P n * P LD A8,ECBBA,A8 SET BUFFER POINTER =36 Q 0 P AD A8,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25 Q 8 P XIF . =24 Q l P IFF BASWRI=1 . =24 Q & P LD A8,ECBBA,A8 GET BUFFER ADDRESS Q P CMR A8 RESET CONTROL CHAR. Q P XIF . =24 Q P SUR A9,A9
0x44ac50…44ade4 Dummy {f00=0x015a, f01=0x0190, f02=»QU * Q * P LD A2,PRTID,A11 GET PRINTER TASKID =6 R P ANK A2,/FF . =6 R : P SUK A2,/30 . =6 R R P SLL A2,2 . =6 R j & P LD A3,+6,A13 COMMON BLOCK BASE =6 R P ADK A3,TSKTAB . =6 R P ADR A3,A2 . =6 R & P SC A1,+3,A3 SET PRINTER STATUS =6 R P
0x44ade4…44af78 Dummy {f00=0x015a, f01=0x0190, f02=»**************************** R d P* S $ B P* PRCCH - SEND BUFFER WITH CONTROL CH:S TO PRINTER S . P* S t L P************************************************************************ S ~ P* S PPRCCH EQU * . =24 S , P LD A1,PRCCCT,A11 ANYT
0x44af78…44b10c Dummy {f00=0x015a, f01=0x0190, f02=»=36 S p P XIF . =24 T P EJECT T H P******************************************************************* T . H P* * T z H P* INIT INIT ROUTINE
0x44b10c…44b2a0 Dummy {f00=0x015a, f01=0x0190, f02=»***************** T ^ PINIT EQU * U P CF A14,COMINI COMMON INIT U , P CF A14,ECBINI INIT OF ECB:S U N P LCR A2,A1 U r P SLL A2,8 U P LC A2,+1,A1 U & P ST A2,PRTID,A11 SAVE WHOLE TASKID U 2 P LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX U "
0x44b2a0…44b434 (10, 61) Dummy {f00=0x015a, f01=0x0190, f02=»NDEX U t P RF(E) INI200 V P ADK A1,4 V " P SUK A7,1 ILLEGAL ID? V 4 P RB(NZ) INI100 NO V R P LDKL A1,* V l P ST A1,REGI,A11 V ~ P LKM V P DATA 3 FORGET IT V PINI200 EQU * V P LD A1,+2,A1 V ( P ST A1,PRTTYP,A11 SAVE PRINTER TYPE
0x44b434…44b5c8 Dummy {f00=0x015a, f01=0x0190, f02=» ST A2,PRBA,A11 SAVE IT IN WORK AREA =24 V P LDK A2,1 . =25 W 0 & P ST A2,PRLMAR,A11 ALLOW FOR CR =25 W H , P IFF LMARG=0 LEFT MARGIN FOR PRINTER =25 W r P LD A1,LMARGT,A1 . =25 W 2 P ADS A1,PRLMAR,A11 SAVE VALUE IN WORK AREA =25 W P XIF . =24 W
0x44b5c8…44b75c Dummy {f00=0x015a, f01=0x0190, f02=» * W r F P* TSTPRT TEST HARDWARE * X , F P* * X v F P***************************************************************** X
0x44b75c…44b8f0 Dummy {f00=0x015a, f01=0x0190, f02=» X P LD A4,ECBRC,A8 . =6 Y 6 P ANKL A4,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 Y $ P RF(Z) TSTP20 NO! =31 Y ^ & P LDK A4,1 YES. INDICATE ERROR =31 Y | PTSTP20 EQU * . =31 Y P . =6 Y P LD A2,PRTID,A11 . =6 Y P ANK A2,/FF Y P SUK A
0x44b8f0…44ba84 Dummy {f00=0x015a, f01=0x0190, f02=»3,A3 INDICATE STATUS IN DEV TABLE =6 Y P ANK A4,1 OPERABLE? =6 Z , P RF(Z) TSTP90 YES! =6 Z J P LDR A1,A8 Z h P LDKL A8,100 Z z P LKM Z P DATA 6 Z P LDR A8,A1 Z P . =6 Z P RB TSTP10 Z P . =6 Z P . =6 Z P . =6 Z
0x44ba84…44bc18 Dummy {f00=0x015a, f01=0x0190, f02=»*** Z P H P* * [ H P* GETTAB GET ORDER INDEX * [ X H P* * [ H P************************
0x44bc18…44bdac Dummy {f00=0x015a, f01=0x0190, f02=»D+2 ORDERTABLE BASE [ PGETT10 EQU * , P CCR A2,A1 CONVERT ORDER CODE TO ADDRESS 0 P RF(E) GETT20 ` P AD A1,PRTTAB v P AD A1,PRTTAB P ADK A1,2 P SUK A7,1 ORDER FOUND? P RF(Z) GETT30 NO INVALID P RB GETT10 TRY AGAIN
0x44bdac…44bf40 Dummy {f00=0x015a, f01=0x4020, f02=» P ] P END ] @ ] 10 EQU * , P CCR A2,A1 CONVERT ORDER CODE TO ADDRESS 0 P RF(E) GETT20 ` P AD A1,PRTTAB v P AD A1,PRTTAB P ADK A1,2 P SUK A7,1 ORDER FOUND? P RF(Z) GETT30 NO INVALID P RB GETT10 TRY AGAIN
0x44bf40…44c0d4 (10, 62) Dummy {f00=0x015a, f01=0x2008, f02=» ^ A1,TSKTAB ADR A3,A1 ADR A3,A2 0 LDK A1,1 B " SC A1,+2,A3 INDICATE NOT OP. T LKM z DATA 0 SWITCH TASK $ LDK A2,1 INDICATE ONCE NOT OP. RB TSTP10 TSTP80 EQU * LDR A2,A2 NOT OP. ONC
0x44c0d4…44c268 Dummy {f00=0x015a, f01=0x0190, f02=» 6 P LDKL A3,REGI 7 P ADR A3,A11 7 P LDK A2,2 LENGTH 7 2 " P CF A14,ICREAD READ INTERTASK 7 J P RTN A14 7 p P EJECT 7 D P**************************************************************** 7 D P*
0x44c268…44c3fc Dummy {f00=0x015a, f01=0x018e, f02=» * 7 f D P**************************************************************** 8 P* REGISTERS 8 f P* 8 P* A11= CREDIT WORK AREA 8 P* A13= RESERVED 8 P* 8 D P******************************************************
0x44c3fc…44c590 Dummy {f00=0x015a, f01=0x018e, f02=» 8 | P LDKL A3,BVDU BUFFER TO SEND 9 P ADR A3,A11 9 , P IFT COPL=1 9 @ ( P LCR A2,A3 CHECK IF ALLOWED TO COPY 9 T P CCK A2,/8000 ATTRIBUTE? 9 P RF(L) ICIN20 NO 9 P ANK A2,/20 PROTECTED? 9 " P RF(NZ) ICIN90 YES DON'T COPY 9 PICIN20 EQU *
0x44c590…44c724 Dummy {f00=0x015a, f01=0x018e, f02=» P LDR A1,A2 : P LDKL A2,LBVDU+/20 LENGTH : P CF A14,ICWRT SEND IT AWAY : 8 ( P LDKL A1,HCPMOD HARDCOPY OUTSTANDING : Z P ORS A1,BSCMOD,A11 : P RF ICIN90 : PICIN80 EQU * : P XIF : . P LDKL A1,HCPMOD RESET HARDCOPY OUTSTANDING : P IFT
0x44c724…44c8b8 Dummy {f00=0x015a, f01=0x0190, f02=» P RF(Z) ICIN90 YES ; P CF A14,LMP5FL ; PICIN90 EQU * ; 4 P RTN A14 ; H P EJECT ; X @ P*********************************************************** ; f > P* * ; @ P* ICSET SET INTE
0x44c8b8…44ca4c Dummy {f00=0x015a, f01=0x0190, f02=»***************************** ; r P* REGISTERS < & P* < F P* A2= RESERVED < P P* A8= INTERTASK ECB < f P* A11= RESERVED < P* A13= RESERVED < P* < > P********************************************************** < PICSET EQU
0x44ca4c…44cbe0 Dummy {f00=0x015a, f01=0x018e, f02=» P EJECT = B P************************************************************* = B P* * = X B P* ICREAD INTERTASK READ * = B P*
0x44cbe0…44cd74 (10, 63) Opaque[0x194]
0x44cd74…44cf08 # DirEnt {nam=»RUN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2b58, f03=0x0000}
0x44cd74…44cf08 IdxSect {
0x44cd74…44cf08 f00 = 0x015a // 0x44cd74 @0x0
0x44cd74…44cf08 f01 = 0x0002 // 0x44cd76 @0x2
0x44cd74…44cf08 gno = [ // 0x44cd78 @0x4
0x44cd74…44cf08 [0x00]: C0x015a.0x3.0
0x44cd74…44cf08 ]
0x44cd74…44cf08 }
0x44cf08…44d09c Dummy {f00=0x015a, f01=0x0040, f02=» PASM VDU PXRF /S PKPF /O " PASG /E0,TY10 0
0x44d09c…44d230 Dummy {f00=0x015a, f01=0x2008, f02=» VDU PXRF /S PKPF /O " PASG /E0,TY10 0
0x44d230…44d3c4 Dummy {f00=0x015a, f01=0x40f8, f02=»P iV T T Z H D ! Wj V W P6 ;P2 AT IP` QP YPP {W P" R W U R* P H D !H U ( W T ( P #R aU iP V V P U P W P b 0 , 0 T W ( P T W #T 1T0 MR d @ W /P 7 V I
0x44d3c4…44d558 Dummy {f00=0x015a, f01=0x2008, f02=»
0x44d558…44d6ec Dummy {f00=0x015a, f01=0x0190, f02=»CKUMULATED) t * PDWTSTR EQU /12 CONTROL SEQUENCE ADRESS > PDWTDISP EQU /14 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. B * PDWTACD EQU /16 ACTUAL COLUMN DOCUMENT & PDWTACP EQU /19 ACTUAL COLUMN PAPER $ PDWTCO1 EQU /1C COLUMN COUNTER 1 $ PDWTC
0x44d6ec…44d880 Dummy {f00=0x015a, f01=0x0190, f02=» P* P* 0 P******************************************* P* L P* ECB - DISPLACEMENTS V P* t 0 P******************************************* ~ P* & PECBBA EQU 2 BUFFER ADDRESS IN ECB ( PECBRL EQU 4 REQUESTED LENGTH IN EC
0x44d880…44da14 (10, 64) Opaque[0x194]
0x44da14…44dba8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x2b60, f03=0x0000}
0x44da14…44dba8 IdxSect {
0x44da14…44dba8 f00 = 0x015b // 0x44da14 @0x0
0x44da14…44dba8 f01 = 0x000c // 0x44da16 @0x2
0x44da14…44dba8 gno = [ // 0x44da18 @0x4
0x44da14…44dba8 [0x00]: C0x015b.0x0.0
0x44da14…44dba8 [0x01]: C0x015b.0x1.0
0x44da14…44dba8 [0x02]: C0x015b.0x2.0
0x44da14…44dba8 [0x03]: C0x015b.0x3.0
0x44da14…44dba8 [0x04]: C0x015c.0x0.0
0x44da14…44dba8 [0x05]: C0x015c.0x1.0
0x44da14…44dba8 ]
0x44da14…44dba8 }
0x44dba8…44dd3c Dummy {f00=0x015b, f01=0x0190, f02=» B @ IDENT PRINT REL 11.1 82-07-07 DK 870150541110 PRINT COPP J PRINT ` , ( TT LL GG CC # # # # (@P r OPEN CONCT , ( ! R ( O SETTYM , (
0x44dd3c…44ded0 Dummy {f00=0x015b, f01=0x0190, f02=» v , ( N T O N T , ( O : T O W T F , ( O O W T O O : v GETBUF READW , ( P N P RELBUF ,
0x44ded0…44e064 Dummy {f00=0x015b, f01=0x0190, f02=» ICSET ICREAD , ( K : ICWRT P , ( g N D P ` COPP ATMASB , ( : O ( : C , ( O N !8 ! =d T
0x44e064…44e1f8 Dummy {f00=0x015b, f01=0x0190, f02=»W T t , ( ! R 9AR ! 1 P W # , ( A ! P N _r P D , ( a @ P P N 8 t , ( P @ O : , ( , (
0x44e1f8…44e38c Dummy {f00=0x015b, f01=0x018e, f02=» , ( ! O : ! 1 P N !0T 0 RFMDUP 4 , ( A : @ : T : F , ( _ N !010T N !@P P T v , ( W P : , ( T N !010T "@T B P , (
0x44e38c…44e520 Dummy {f00=0x015b, f01=0x0190, f02=» f , ( P c C O _R 2 , ( ? ( "R ( W ( B 8 , ( _ T C W N " h COMINI , ( 0:B V M : N X _ ECBINI , ( $:H D O
0x44e520…44e6b4 (10, 65) Dummy {f00=0x015b, f01=0x0190, f02=»" 0:B V M | , ( $ P d( _: : @ %P ( $ P ; @ @ P _ N $ : L H D ! ( ! % +R& U Y x g P( T T T J T < W" T W x H D !h T P < P T !W ? G d uP T Vl R
0x44e6b4…44e848 Dummy {f00=0x015b, f01=0x40fa, f02=» ( ( ( H D ! ( B B B B J ^ T6 R P T ^ T H D ! @ /P 7T ST gT oP sP {T W P T T T PX Qn W& d 0 , !P KR WW eT wW P P P 9P GP V @ T Vl R
0x44e848…44e9dc Dummy {f00=0x015b, f01=0x0190, f02=» > @ IDENT VDU REL 11.0 82-07-07 870150541100 F B INSMOD GETVDU STOVDU SCRINF STOINF POSUNP ATMASB ATMASF F D @ DISCHA WCHAR DISMOD DISID ERASUA ERASE SOUND ERASUP WRAP 4 0 NLROUT LINWRP LINE LINATT DISSTA RFMDUP
0x44e9dc…44eb70 Dummy {f00=0x015b, f01=0x0190, f02=»R T B W PR _* , ( a , ! V X" X( $ , ( X. X4 Y _> O ! P " P T , ( W W 9 _f PR , ( _ , ! ^< _ : , ( P R C B
0x44eb70…44ed04 Dummy {f00=0x015b, f01=0x0190, f02=» T t , ( a : B P 9 Y Y B , ( : T " T P P C D , ( C W T " U N t SAVE1 , ( P O REST1 , (
0x44ed04…44ee98 Dummy {f00=0x015b, f01=0x0190, f02=» h , ( = ! P W P . O , ( ] O P 8 , ( } P P h , ( N P _6 , ( P , ( _:
0x44ee98…44f02c Dummy {f00=0x015b, f01=0x018e, f02=» : <' : SCRINF @ STOINF N 4 SOUND H , ( = # : N N N : O O O : Z , ( ] B + E E C ( WRAP LINWRP LINE , ( } B : R
0x44f02c…44f1c0 Dummy {f00=0x015b, f01=0x0190, f02=» , ( : Q X ) Y , ( Q PW P P 8 NLROUT ( h CRDOWN | , ( , ]: : PR P , ( 7 _ P - X Y ERASE Z , ( W
0x44f1c0…44f354 (10, 66) Dummy {f00=0x015b, f01=0x0190, f02=» t , ( T ZW , ! V _ P , ( B W , ! Z P ! D , ( " - X ) Y , ! ^( - t RDHOME ERASUA , , ( @ X ) Y _ : , ( 5
0x44f354…44f4e8 Dummy {f00=0x015b, f01=0x0190, f02=»UNP , ( W - _. : U , ( O & ! R ' P O > bTAB n , ( U N W | DISID , ( B ! QT : b V , ( . $ P R
0x44f4e8…44f67c Dummy {f00=0x015b, f01=0x0190, f02=» N P & ! v ATMASB ~ , ( @ s Z N : O & ! V V * , ( N P _ N : U Z WCHAR , ( P & ! W : , ( ' P ' T W B ] ] , (
0x44f67c…44f810 Dummy {f00=0x015b, f01=0x0190, f02=» C C PR C S P_ C ( : $ H D ! l @ b /T 9T = ERt GT SW YR ] e kV& o P P F H D ! W W R @ ( P P W. P$ WT _ b T H D !8# W^ P$ @ ~ N P T W W
0x44f810…44f9a4 Dummy {f00=0x015b, f01=0x4114, f02=»Q R Q& Q W P 3R ?P iV T T v H D ! Wj V W P6 ;P2 AT IP` QP YPP {W P" R W U R* P 2 H D !H U ( W T ( P #R aU iP V V P U P W P ~ 0 , 0 T W ( P T W #T 1T0 MR d
0x44f9a4…44fb38 Dummy {f00=0x015b, f01=0x0190, f02=» B @ IDENT PAD REL 11.0 DK 82-07-08 870150541100 H D ! PACK UNPACK UNPSYS GETBUF RELBUF PAID BUFADR PACKSY SAVE1 J REST1 PACK SCRINF , ( @ P , ! V WRAP ,
0x44fb38…44fccc Dummy {f00=0x015b, f01=0x0190, f02=» P T _$ | UNPACK LMP3ON 0 , ( {@ : O N !VVT B LINE r , ( P O ATMASB , ( T N X W , (
0x44fccc…44fe60 Dummy {f00=0x015b, f01=0x0190, f02=» ICSET ICWRT , ( - T O $ ERASE T , ( K @ W P d ERASUP , ( g W W O W , ( O : R
0x44fe60…44fff4 (10, 67) Dummy {f00=0x015b, f01=0x0190, f02=» O W O H * O LINWRP ( LINATT : , ( @ X ! P - L , ( @ : O W H '??F | , ( 5 O W H "? O V , ( S W : O
0x44fff4…450188 Dummy {f00=0x015b, f01=0x0190, f02=» j , ( : O W H '??F , ( O W H "? V O : , ( W O - X ) Y j , ( # W : O W H , ( C '??F O W H "? O ERASUA
0x450188…45031c Dummy {f00=0x015b, f01=0x0190, f02=» j PACKSY UNPSYS , ( : : : : R V W 2 ERROR b , ( V " O ( : r , ( V " # : V "" PAID BUFADR " CONADR ,
0x45031c…4504b0 Dummy {f00=0x015b, f01=0x0190, f02=» j SOUND , ( o > : N ' P &! P N COPY J COPP Z SAVE1 j , ( !VVT (W * : W | , ( % % % % % % REST1 , ( : W $
0x4504b0…450644 Dummy {f00=0x015b, f01=0x0190, f02=» : v <P _ # : H D ! ) PH V %W -PJ =T I MT0 S " [P iP m qT T 8 H D !_ T W r & ~ * < H D ! @ R P W Pd P> PL !T* %Wj -T SWB gW sW"
0x450644…4507d8 Dummy {f00=0x015b, f01=0x40c2, f02=» T P P T WV WD V0 h H D ! W, -W ?WP QW> gV" W W" W R V W V V V KV $ 8 4 ! SR kP u P P T W W W T P p " @ H D ! @ R P W Pd P> PL !T* %Wj -T SWB gW sW"
0x4507d8…45096c Dummy {f00=0x015b, f01=0x2008, f02=» L = PT002 DATE = 811031 6876PACK NBR = 0002
0x45096c…450b00 Dummy {f00=0x015b, f01=0x018e, f02=»GET REQUESTED LINE 4 x 2 P ST A4,DWTDEV+DWTALN,A6 ACTUAL LINE = REQ LINE 5 PPOS020 ABL LENDIS 5 P PPOS030 EQU * 5 j P LDK A2,/6 BLOCK LENGTH 5 ~ P CF A5,STABLK START OF BLOCK 5 P ABL(NZ) ERROUT JMP IF ERROR 5 0 P LDKL A2,CSVPFF VERTICAL POSITION
0x450b00…450c94 (10, 68) Dummy {f00=0x015c, f01=0x0190, f02=»DK A3,CMDFW ASSUME FAST WRITE " P LD A2,DWTST,A6 DEVICE STATUS & P LDR A7,A2 SAVE L P ANKL A7,DWFECH ECHO OUTPUT? d " P RF(NZ) EB090 YES, USE TYPE 1 . P LDK A3,CMDSW NOT ECHO, USE STANDARD WRITE ( P ANK A2,DWFTY1 ONLY TYPE 1 ALLOWED?
0x450c94…450e28 Dummy {f00=0x015c, f01=0x0190, f02=»R1 WRITE LINE ADDRESS. NO FLOW C 2 P LDK A2,TYNFLO MESSAGE TYPE := NO FLOW CONTROL ( P RF EB110 CONTINUE ^ P* x PEB100 EQU * P* FLOW CONTROL 0 P CF A15,WRADR2 WRITE LINE ADDRESS. FLOW CTRL 0 P CF A15,FWOPSR FETCH AND UPDATE FL
0x450e28…450fbc Dummy {f00=0x015c, f01=0x0190, f02=» 0 P SC A2,CWTCCA+CCRIDB,A5 MESSAGE TYPE TO CCA * P SC A3,CWTCCA+CCRCMD,A5 COMMAND TO CCA < . P ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA j P LD A3,BUFBIX,A4 BYTE INDEX 0 P ST A3,CWTCCA+CCRLEN,A5 BUFFER LENGTH TO CCA P* & P CF A15,GE
0x450fbc…451150 Dummy {f00=0x015c, f01=0x0190, f02=»R v P ABL PLDSP2 LOCAL DISPATCHER P* . P EJECT 8 P* F 4 P* ENTRY TO ACKRST IS MADE WHEN I/O OPERATION P P* IS COMPLETED. & P* REGISTER CONTENTS ON ENTRY: P* A1 = RETURN CODE P* A5 = CWT ADDRESS P* A6
0x451150…4512e4 Dummy {f00=0x015c, f01=0x0190, f02=»RROR? P RF(NZ) EB130 YES, RETURN P* 0 P LD A3,DWTST,A6 DWT STATUS : P LDR A4,A3 * P ANK A4,DWFRES RESET PACKET RECIEVED? n P RF(Z) EB120 NO . P LDK A1,LINERR YES. RET CODE := LINK RESET P RF EB130 RETURN P* P
0x4512e4…451478 Dummy {f00=0x015c, f01=0x0190, f02=»ACK? p P RF(Z) EB130 NO, RETURN P* , 2 P LDK A3,DWFAK3 FLAG "WAITING FOR LEVEL 3 ACK" 6 , P ORS A3,DWTST,A6 SET FLAG IN DWT STATUS l P ABL PLDSP2 LOCAL DISPATCHER P* P EJECT P* B P* ENTRY IS MADE HERE WHEN ACK ON LE
0x451478…45160c Dummy {f00=0x015c, f01=0x0190, f02=», IE A1=0) n P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS . P* J PAK3RST EQU * T P* h PEB130 EQU * r P* & P ABL NDREP RETURN TO DEVICE DRIVER P* P* P* PEBERR2 EQU * P CM CWTCCB,A5 SET CCA FREE
0x45160c…4517a0 Dummy {f00=0x015c, f01=0x0190, f02=»BUFFER v $ P CM DWTLD2,A6 RESET FLOW CONTROL & P ABL NDREP RETURN TO DEVICE DRIVER 6 P* ` P EJECT j P* x @ P************************************************************ P* P* ROUTINE NAME: P* PLTEST P* P* FUNC
0x4517a0…451934 (10, 69) Dummy {f00=0x015c, f01=0x0190, f02=»R" WITH AN INTERFACE SIMILAR TO 2 P* THAT OF THE NORMAL TERMINAL DEVICE DRIVERS. ( 2 P* CALL IS MADE DIRECTLY TO THE PLC DRIVER, AND ^ 4 P* NOT THROUGH THE TERMINAL NETWORK DISTRIBUTOR, 2 P* AS THIS FUNCTION IS NOT AVAILABLE FOR OTHER P* LINE
0x451934…451ac8 Dummy {f00=0x015c, f01=0x018e, f02=»UT: P* AT RETURN TO DEVICE DRIVER P* A1 = RETURN CODE 0 P* 0 IF OK L P* NOT 0 IF ERROR ^ P* A2 = CHANGED x P* CR = CONTENTS OF A1 P* INTERR. ENABLED P* @ P******************************************************
0x451ac8…451c5c Dummy {f00=0x015c, f01=0x018e, f02=» $ P CF A15,GETCWT A5 := CWT ADDRESS P CF A15,PLCCCA RESERVE CCA , P* N P ENB X . P ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA d < P CM CWTCCA+CCRC1B,A5 DATA CHAINING & MSB OF BUFFER ADDR 0 P LD A4,DWTTBU,A6 USER REQUEST BUFFER ADDRESS "
0x451c5c…451df0 Dummy {f00=0x015c, f01=0x0190, f02=» . P LD A3,DWTTCW,A6 USER REQUEST CONTROL WORD P* 6 & P* DETERMINE TYPE OF TEST ORDER @ . P LC A1,DWTOR+1,A6 USER REQUEST ORDER CODE j P ANK A1,/3F CLEAN & P CWK A1,ORDPS GET LINE STATISTICS? P RF(E) TE100 YES, HANDLE & P CWK A1,
0x451df0…451f84 Dummy {f00=0x015c, f01=0x0190, f02=» DEFINED. ERROR r P* P* READ LOCAL MEMORY " 6 P ST A3,CWTCCA+CCRSUB,A5 PLC MEMORY ADDRESS TO CCA @ 0 P LDK A3,CMDRM PLC COMMAND READ LOCAL MEMORY z P RF TE120 TO COMMON PART P* PTE100 EQU * P* GET LINE STATISTICS
0x451f84…452118 Dummy {f00=0x015c, f01=0x0190, f02=»TISTICS & P LC A3,DWTCP2,A6 CHANNEL PARAMETER " P ANK A3,MASKWS CLEAN WS NUMBER : P SLL A3,8 TO LEFT BYTE ` 0 P ADK A3,CMDDS PLC COMMAND GET DLS STATISTICS ~ P* PTE120 EQU * 6 P ST A3,CWTCCA+CCRDLS,A5 DLS INDEX & COMMAND TO CCA
0x452118…4522ac Dummy {f00=0x015c, f01=0x0190, f02=» P* < P* ENTRY IS MADE TO TSTRST WHEN COMMAND IS COMPLETED. & P* REGISTER CONTENTS ON ENTRY: N P* A1 = RETURN CODE x P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS P* PTSTRST EQU * & P ABL NDREP RETURN TO DEVICE DR
0x4522ac…452440 Dummy {f00=0x015c, f01=0x0190, f02=»TEERR1 EQU * & P ABL NDREP RETURN TO DEVICE DRIVER P XIF > P* J P EJECT T P* b P********************** l P* INTERRUPT ROUTINES * P********************** P* : P* THIS SECTION CONTAINS INTERRUPT HANDLING ROUTINES.
0x452440…4525d4 (10, 70) Opaque[0x194]
0x4525d4…452768 # DirEnt {nam=»XPAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2b90, f03=0x0000}
0x4525d4…452768 IdxSect {
0x4525d4…452768 f00 = 0x015c // 0x4525d4 @0x0
0x4525d4…452768 f01 = 0x0024 // 0x4525d6 @0x2
0x4525d4…452768 gno = [ // 0x4525d8 @0x4
0x4525d4…452768 [0x00]: C0x015c.0x2.0
0x4525d4…452768 [0x01]: C0x015c.0x3.0
0x4525d4…452768 [0x02]: C0x015d.0x0.0
0x4525d4…452768 [0x03]: C0x015d.0x1.0
0x4525d4…452768 [0x04]: C0x015d.0x2.0
0x4525d4…452768 [0x05]: C0x015d.0x3.0
0x4525d4…452768 [0x06]: C0x015e.0x0.0
0x4525d4…452768 [0x07]: C0x015e.0x1.0
0x4525d4…452768 [0x08]: C0x015e.0x2.0
0x4525d4…452768 [0x09]: C0x015e.0x3.0
0x4525d4…452768 [0x0a]: C0x015f.0x0.0
0x4525d4…452768 [0x0b]: C0x015f.0x1.0
0x4525d4…452768 [0x0c]: C0x015f.0x2.0
0x4525d4…452768 [0x0d]: C0x015f.0x3.0
0x4525d4…452768 [0x0e]: C0x0160.0x0.0
0x4525d4…452768 [0x0f]: C0x0160.0x1.0
0x4525d4…452768 [0x10]: C0x0160.0x2.0
0x4525d4…452768 [0x11]: C0x0160.0x3.0
0x4525d4…452768 ]
0x4525d4…452768 }
0x452768…4528fc Dummy {f00=0x015c, f01=0x0190, f02=» 0 P IDENT PAD REL 11.0 DK 82-05-27 870150541100 P 8 P =7,ERROR IN SF @ P =6,2ND ERROR IN EUA Z ( P =5 ERROR IN ERASE UNPROT TO ADDR x & P DK1, ATTRIBUTE ERROR + 2X PRINT P =4 COPY TO PRINTER P 81-05-06 P =3, M
0x4528fc…452a90 Dummy {f00=0x015c, f01=0x0190, f02=»************************************************************* B P* * F B P* MODULE PAD * B P* MODULE HANDLING THE PACKING AND
0x452a90…452c24 Dummy {f00=0x015c, f01=0x0190, f02=» * ^ B P* (EMULATION 3270 SNA/SDLC, BSC) * B P* * Z B P************************************************************* P EJECT F P********************
0x452c24…452db8 Dummy {f00=0x015c, f01=0x0190, f02=»U-FIELDS INTO DC-BUFFER l 8 P* UNPACK UNPACK DC-BUFFER AND UPDATE VDU ( P* RETTAB RETURN ADDRESSES ( P* UNPCOM UNPACK COMMANDS & P* UNPORD UNPACK ORDERS $ P* ORDTAB ORDER TABLE $ P*
0x452db8…452f4c Dummy {f00=0x015c, f01=0x0190, f02=» PT PROGRAM TAB. * P* RA REPEAT TO ADDRESS 0 P* EUA ERASE UNPRO. TO ADDRESS L ( P* CHAR < /20 BUT NOT ORDERS 6 P* PACKSY PACK DC-BUFFER IN SYSTEM MODE 8 P* UNPSYS UNPACK DC-BUFF
0x452f4c…4530e0 Dummy {f00=0x015c, f01=0x0190, f02=» , P* PDCCH PUT CHAR. IN BUFFER , P* GDCCH GET CHAR. IN BUFFER 4 , P* PAID STORE AID IN BUFFER d : P* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER 8 P* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES
0x4530e0…453274 (10, 71) Dummy {f00=0x015c, f01=0x0190, f02=» SAVE PACK AND UNPACK INFORMATION ~ < P* RESTOR RESTORE PACK AND UNPACK INFORMATION * $ P* BUFFER BUFFER POOL j " P* GETBUF GET BUFFER & P* RELBUF RELEASE BUFFER P* F P****************************
0x453274…453408 Dummy {f00=0x015c, f01=0x0190, f02=» * B P* ENTRY POINTS * @ B P* * B P************************************************************
0x453408…45359c Dummy {f00=0x015c, f01=0x0190, f02=»S UNPACK DC BUFFER IN SYSTEM MODE P ENTRY GETBUF GET DC BUFFER * $ P ENTRY RELBUF RELEASE DC BUFFER N , P ENTRY PAID STORE AID CODE IN DC BUFFER v 2 P ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER 0 P ENTRY PACKSY PACK DC BUFFER IN SYSTEM MODE
0x45359c…453730 Dummy {f00=0x015c, f01=0x0190, f02=»******************* p 8 P* * 8 P* EXTERNAL REFERENCES * X 8 P* * 8 P***************************************************
0x453730…4538c4 Dummy {f00=0x015c, f01=0x0190, f02=»NTIRE SCREEN (VDU) | 4 P EXTRN ERASUA ERASE UNPROTECTED TO ADDRESS (VDU) 2 P EXTRN CONORD CONVERT ORDER TO INDEX (CONVER) R . P EXTRN CONATT CONVERT ATTRIBUTE (CONVER) . P EXTRN SCRINF GET SCREEN INFORMATION (VDU) 8 P EXTRN ERASUP ERASE UNPROTEC
0x4538c4…453a58 Dummy {f00=0x015c, f01=0x0190, f02=»ARCH ATTRIBUTE BACKWARDS (VDU) 2 P EXTRN CONADR CONVERT BUFFER ADDRESS (CONVER) & * P EXTRN WRAP CHECK IF WRAP AROUND (VDU) 0 P EXTRN STOINF SAVE SCREEN INFORMATION (VDU) ( P EXTRN LMP4ON INHIBIT LAMP ON (KEYB) 2 P EXTRN READNW READ WITH NO WAI
0x453a58…453bec Dummy {f00=0x015c, f01=0x0190, f02=»DISPLAY MODIFIED FIELDS (VDU) . P EXTRN THRBUF THROW BUFFERS (DCSNA,DCBSC) & ( P EXTRN NLROUT NEW LINE ROUTINE (VDU) X " P EXTRN LINE WRAP ROUTINE (VDU) 2 P EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) , P EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU)
0x453bec…453d80 Dummy {f00=0x015c, f01=0x0190, f02=»KEYB) p ( P EXTRN ICWRT INTERTASK WRITE (KEYB) , P EXTRN COPP COPY ON PRINTER DIRECTLY =4 : P EXTRN LMP3ON j P EJECT 8 P*************************************************** 8 P* * 8 P*
0x453d80…453f14 (10, 72) Dummy {f00=0x015d, f01=0x0190, f02=»********************************* ~ P * PX:A EQU 0 SNA HANDLING IF:=1 2 PSNA EQU 0 V & PX:K EQU 2 NUMBER OF BUFFERS (1-32) h PBUFFNR EQU 02 * PX:L EQU 1000 MAX BUFFER SIZE IN WORDS PBUFFL EQU 1150 * PX:M EQU 0 COPY COMMAND INCLU
0x453f14…4540a8 Dummy {f00=0x015d, f01=0x0190, f02=» PDISHOW EQU X:Z P EJECT D P*************************************************************** ( D P* * p & P* DECLARATION OF DATA AND EQUATES D P*
0x4540a8…45423c Dummy {f00=0x015d, f01=0x0190, f02=»TES FOR ECB HANDLING P* PECBBA EQU 2 BUFFER ADDRESS & PECBRL EQU 4 REQUESTED LENGTH H PECBEL EQU 6 EFFECTIVE LENGTH l PECBRC EQU 8 RETURN CODE PECBCW EQU 10 CONTROL WORD P* P* INTERNAL STATUS P* , PLICREC E
0x45423c…4543d0 Dummy {f00=0x015d, f01=0x018e, f02=»TE RECEIVED x & PPTORD EQU /0001 PT ORDER INDICATOR P IFT SNA=1 > P* P P* SNA MODES Z P* t PLOCMOD EQU 0 LOCAL MODE ~ PSYSOP EQU 2 SYSTEM MODE PMYJOB EQU 4 MY JOB MODE P XIF P* P* TASK IDENTIFICATIO
0x4543d0…454564 Dummy {f00=0x015d, f01=0x0190, f02=» PSBACH EQU /11 SBA CHAR. PESCCHA EQU /1B ESCAPE CHAR. $ P* H P* VDU SCREEN SIZE R P* l PLBVDU EQU 1920 TOTAL SIZE v PLLINE EQU 80 LINE LENGTH P* P* BUFFER LINK LENGTH P* PLINK EQU BUFFL+BUFFL+2
0x454564…4546f8 Dummy {f00=0x015d, f01=0x0190, f02=» " PBVDU EQU TCT01+2 SCREEN BUFFER , PLINFLG EQU BVDU+1920 INTERNAL LINE FLAGS * 0 PPCURS EQU LINFLG+24 CURSOR ADDRESS , BINARY Z PCURATT EQU PCURS+4 & PWCC EQU CURATT+2 WCC/CCC CHARACTER & PKBINH EQU WCC+2 INHIBIT INDICATOR * PDCLENG EQU K
0x4546f8…45488c Dummy {f00=0x015d, f01=0x0190, f02=»QU BUFPNT+2 WORK REGISTER $ PSTACK1 EQU REGI+2 INTERNAL STACK " PSTACK2 EQU STACK1+14 J $ PUNPMOD EQU STACK2+14 UNPACK MODE f PSNAMOD EQU UNPMOD+2 SNA MODE 0 PECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 P EJECT @ P********************
0x45488c…454a20 Dummy {f00=0x015d, f01=0x018e, f02=»PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * | B P* * 2 B P************************************************************* x P* REGISTERS P* P* A2= CHAR. P* A3= ADDRESS IN VDU-BUF
0x454a20…454bb4 (10, 73) Dummy {f00=0x015d, f01=0x0190, f02=» P* A9= DC-BUFFER INDEX P* A10= START ADDRESS " P* A11= RESERVED > P* A12= BUFFER ADDRESS V P* A13= RESERVED t P* @ P************************************************************ PPACK EQU * * P CF A14,SCRINF GET SCREEN IN
0x454bb4…454d48 Dummy {f00=0x015d, f01=0x0190, f02=» A5,LBVDU+1 UNFORMATTED SCREEN? P RF(E) PACK70 YES ( PPACK10 EQU * B P LCR A2,A3 GET CHAR. V P CCK A2,/8000 ATTRIBUTE? r P RF(NL) PACK15 YES P ADK A3,1 P ADK A4,1 P RB PACK10 PPACK15 EQU * P LDR A10,A4 START
0x454d48…454edc Dummy {f00=0x015d, f01=0x0190, f02=»ACK80 YES PPACK30 EQU * P LCR A2,A3 GET CHAR. & P ADK A3,1 B P ADK A4,1 T P CCK A2,/8000 ATTRIBUTE? f P RB(L) PACK20 NO P ANK A2,1 MODIFIED FIELD? P RF(NZ) PACK50 YES * P* POINTER UPDATE REMOVED DK1 P
0x454edc…455070 Dummy {f00=0x015d, f01=0x018e, f02=» IN BUFFER x P LDR A1,A1 TRANSMISSION OK? P RF(NZ) PACK90 NO 6 * P LDR A1,A4 BUFFER ADDRESS TO DC-BUFFER P P CF A14,BUFADR ~ PPACK60 EQU * & P CF A14,WRAP CHECK IF WRAP AROUND P CWR A10,A4 ALL SCANNED? P RF(E) PACK80 YES
0x455070…455204 Dummy {f00=0x015d, f01=0x0190, f02=» v " P RF(E) PACK75 YES,DON'T STORE & P CF A14,PUTCHA PUT CHAR. IN BUFFER . P LDR A1,A1 TRANSMISSION OK? X P RF(NZ) PACK90 NO | PPACK75 EQU * P ADK A3,1 P ADK A4,1 P RB PACK60 PPACK80 EQU * $ P LDK A1,0 INDICATE L
0x455204…455398 Dummy {f00=0x015d, f01=0x0190, f02=»SE BUFFER | P RTN A14 P EJECT " @ P************************************************************ 0 @ P* * t @ P* UNPACK UNPACK DC-BUFFER AND UPDATE VDU * @ P*
0x455398…45552c Dummy {f00=0x015d, f01=0x0190, f02=» P* P* A2= CHAR. P* A3= POINTER IN VDU-BUFFER & P* A4= REL. CURSOR POS. J P* A5= LAST IN ROW REL POS h $ P* A6= INTERNAL LINE FLAG ADDRESS P* A8= ADDRESS IN DC-BUFFER P* A9= DC-BUFFER INDEX P* A10= INDICATOR
0x45552c…4556c0 Dummy {f00=0x015d, f01=0x0190, f02=»************ d PUNPACK EQU * P LDK A1,3 KB TOTALLY INHIBIT ( P ORS A1,KBINH,A11 L P LC A1,TCT01,A11 f " P CCK A1,VDUCOD PRINTER UNPACK? ~ P RF(NE) UNP050 YES " P CF A14,LMP3ON INHIBIT LAMP ON PUNP050 EQU * * P CF A14,SCRINF G
0x4556c0…455854 (10, 74) Dummy {f00=0x015d, f01=0x0190, f02=» LD A8,BUFPNT,A11 GET BUFFER ADDRESS " P LDK A1,ICOMND PROCESS COMMAND , P ST A1,UNPMOD,A11 R PUNP100 EQU * l P CF A14,GDCCH GET CHAR. P LDR A1,A1 ANYTHING LEFT? P RF(NZ) UNP200 NO . P LD A1,UNPMOD,A11 GET ADDRESS TO START AT
0x455854…4559e8 Dummy {f00=0x015d, f01=0x018e, f02=» IFT SNA=1 " P CF A14,GETNXT GET NEXT BUFFER P LDR A1,A1 FINISHED? 8 P RB(Z) UNP100 NO T P XIF l PUNP300 EQU * x " P CF A14,SCRINF GET LATEST NEWS P LDR A1,A4 . P CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS P IFT SNA=1 $ P
0x4559e8…455b7c Dummy {f00=0x015d, f01=0x0190, f02=» P IFF DISHOW=2 P LC A1,TCT01,A11 P CCK A1,VDUCOD 2 P RF(NE) UNP500 H 6 P CF A14,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! ^ PUNP500 EQU * P XIF * P CF A14,P2WCC CHECK IT A LAST TIME =4 & P LDR A8,A12 GET BUFFER TO RELEASE
0x455b7c…455d10 Dummy {f00=0x015d, f01=0x018e, f02=»****************************** h J P* * ! & J P* INDEX FOR RETURNS AFTER GET CHARCTER * ! t J P* *
0x455d10…455ea4 Dummy {f00=0x015d, f01=0x0190, f02=» ! z P IFT COPCMD=1 " PICOCOP EQU ICOMN1+2 " PICOWCC EQU ICOCOP+2 " : P XIF " V P IFF COPCMD=1 " b PICOWCC EQU ICOMN1+2 " x P XIF " PIORDER EQU ICOWCC+2 " PIOSFAT EQU IORDER+2 " PIOSBA1 EQU IOSFAT+2 " PIOSBA2 EQU IOSBA1+2
0x455ea4…456038 Dummy {f00=0x015d, f01=0x0190, f02=»1+2 " P EJECT # J P********************************************************************* # J P* * # h J P* RETURN ADDRESSES AFTER GET CHARACTER * # J P*
0x456038…4561cc Dummy {f00=0x015d, f01=0x0190, f02=»******* # R PRETTAB EQU * $ & P DATA UNPCOM PROCESS COMMAND CHAR. $ $ 0 P DATA UNC100 PROCESS COMMAND CHAR AFTER ESC. $ N P IFT COPCMD=1 $ $ P DATA UNC150 PROCESS FROM DEVICE $ P XIF $ P DATA UNC600 PROCESS WCC $ * P DATA UNPORD PROCESS ORDERS
0x4561cc…456360 Dummy {f00=0x015d, f01=0x0190, f02=»ESS BYTE $ p * P DATA RA100 PROCESS FIRST ADDRESS BYTE % , P DATA RA200 PROCESS SECOND ADDRESS BYTE % > ( P DATA RA250 PROCESS CHAR. TO REPEAT % n , P DATA EUA100 PROCESS FIRST ADDRESS BYTE % , P DATA EUA200 PROCESS FIRST ADDRESS BYTE % P EJECT % L P
0x456360…4564f4 (10, 75) Dummy {f00=0x015d, f01=0x0190, f02=» * % X L P* UNPCOM UNPACK COMMAND * & L P* * & h L P*********************************************************************** & P
0x4564f4…456688 Dummy {f00=0x015d, f01=0x0190, f02=»W REL POS & $ P* A6= INTERNAL LINE FLAG ADDRESS ' P* A8= ADDRESS IN DC-BUFFER ' : P* A9= RESERVED ' P* A10= INDICATOR ' r P* A11= CREDIT WORK AREA ' P* A12= RESERVED ' P* A13= RESERVED ' P* ' L P************************************
0x456688…45681c Dummy {f00=0x015d, f01=0x0190, f02=»UE ' r P ST A1,UNPMOD,A11 ( P LDK A1,0 RETURN CODE ( $ P CWK A2,ESCCHA ESCAPE? ( B P RF(E) UNC900 YES ( ` P LDK A1,1 NO INDICATE ERROR ( z P RF UNC900 ( P XIF ( PUNC100 EQU * ( P CWK A2,/31 WRITE? ( P RF(E) UNC500 YES ( P CWK
0x45681c…4569b0 Dummy {f00=0x015d, f01=0x0190, f02=»D=1 ( P CWK A2,/37 COPY COMMAND? ) P RF(NE) UNC175 NO ) . P LDK A1,ICOCOP RESTART ENTRY ) H P RF UNC800 ) l ( PUNC150 EQU * ENTRY LABEL FROM RETTAB ) ~ P CF A14,MATCH GET TASKID ) P LDR A1,A1 OK? ) P RF(NZ) UNC175 NO ) 6 P LDKL A1,/8000
0x4569b0…456b44 Dummy {f00=0x015d, f01=0x0190, f02=»A2 TASK TO CALL ) P LDK A2,2 LENGTH * P LDKL A3,REGI * 0 P ADR A3,A11 BUFFER * F P CF A14,ICWRT SEND IT * ` PUNC175 EQU * * ~ P XIF * $ P LDKL A10,THROWB THROW THE REST * P LDK A1,1 INDICATE ERROR * P RF UNC900 INVALID COMMAND * P
0x456b44…456cd8 Dummy {f00=0x015d, f01=0x0190, f02=»5,LLINE * & P LDK A4,0 INITIATE BUFFER ADDRESS + P RF UNC500 + : PUNC300 EQU * + L ( P CF A14,ERASUP ERASE ALL UNPROTECTED + ` " P LDKL A10,THROWB THROW IT AWAY + P LDK A1,1 INDICATE ERROR + P RF UNC900 + PUNC500 EQU * + P LDK A1,ICOWCC G
0x456cd8…456e6c Dummy {f00=0x015d, f01=0x0190, f02=»PROCESS WCC BEFORE UPDATE + P LDR A3,A4 , " " P ADKL A3,BVDU GET REAL ADDRESS , 4 P ADR A3,A11 , Z & P ORKL A10,PTORD INDICATE PT ORDER , n & P LDK A1,IORDER INDICATE NEXT CALL , PUNC800 EQU * , P ST A1,UNPMOD,A11 , P LDK A1,0 , PUNC900
0x456e6c…457000 Dummy {f00=0x015d, f01=0x0190, f02=» * , v > P* UNPORD UNPACK ORDERS * - ( > P* * - j > P********************************************************** - P* REGISTERS - P* -
0x457000…457194 (10, 76) Dummy {f00=0x015e, f01=0x0190, f02=»AL LINE FLAG ADDRESS - P* A8= RESERVED . P* A9= RESERVED . 2 P* A10= INDICATOR . H P* A11= RESERVED . ` P* A12= RESERVED . x P* A13= RESERVED . P* . > P********************************************************** . ( PUNPORD EQU * ENTRY L
0x457194…457328 Dummy {f00=0x015e, f01=0x0190, f02=» LINE? . P RF(G) UNO050 NO / P CF A14,LINE CHECK WRAP / & PUNO050 EQU * / F ( P SCR A2,A3 STORE CHAR. IN VDU BUFFER / Z P LC A1,LINFLG,A6 / P ORK A1,1 / P SC A1,LINFLG,A6 / P ADK A4,1 / P ADK A3,1 / P LDK A1,0 / P RF UNO200
0x457328…4574bc Dummy {f00=0x015e, f01=0x0190, f02=»TN A14 / P EJECT 0 B P************************************************************* 0 B P* * 0 b B P* ORDTAB ORDER TABLE * 0 B P*
0x4574bc…457650 Dummy {f00=0x015e, f01=0x0190, f02=»ATA INVAL INVALID CHAR. 0 P DATA SF START FIELD 1 P DATA SBA SET BUFFER ADDRESS 1 < P DATA IC INSERT CURSOR 1 ` P DATA PT TAB. 1 ~ P DATA RA REPEAT TO AADRESS 1 * P DATA EUA ERASE UNPROTECTED TO ADDRESS 1 P DATA ESC ESCAPE 1 P DATA NULCHA
0x457650…4577e4 Dummy {f00=0x015e, f01=0x018e, f02=»CT 1 @ P*********************************************************** 2 @ P* * 2 N @ P* SF START FIELD * 2 @ P*
0x4577e4…457978 Dummy {f00=0x015e, f01=0x0190, f02=» 2 | P* A2= RESERVED 3 P* A3= POINTER IN VDU BUFFER 3 P* A4= REL. CURSOR POS. 3 B P* A5= RESERVED 3 ` P* A6= RESERVED 3 v P* A8= RESERVED 3 P* A9= DC-BUFFER INDEX 3 P* A10= INDICATOR 3 P* A11= CREDIT WORK AREA 3 P* A12= RESERVED
0x457978…457b0c Dummy {f00=0x015e, f01=0x0190, f02=»SFAT INDICATE NEXT CALL 3 P ST A1,UNPMOD,A11 4 P RF SF900 GET CHAR. 4 : ( PSF100 EQU * ENTRY LABEL FROM RETTAB 4 V P LDK A1,IORDER NEXT ALBEL 4 P ST A1,UNPMOD,A11 4 P LC A2,CONATT,A2 IN EBCDIC 4 P ORK A2,/80 ATTR. BIT 4 P CM CURATT
0x457b0c…457ca0 Dummy {f00=0x015e, f01=0x0190, f02=»Z) SF600 NO 4 . P CF A14,LINATT INDICATE ATTRIBUTE OVERRUN 5 PSF600 EQU * 5 F 0 P ORKL A10,ATTREC INDICATE ATTRIBUTE RECEIVED 5 Z P SCR A2,A3 STORE CHAR. 5 P ADK A3,1 5 P ADK A4,1 5 P CF A14,LINWRP CHECK WRAP =7 5 PSF900 EQU * 5 P
0x457ca0…457e34 (10, 77) Dummy {f00=0x015e, f01=0x0190, f02=» * 5 | @ P* SBA SET BUFFER ADDRESS * 6 0 @ P* * 6 t @ P*********************************************************** 6 P* REGISTERS
0x457e34…457fc8 Dummy {f00=0x015e, f01=0x0190, f02=»RESERVED 6 P* A8= RESERVED 7 P* A9= RESERVED 7 & P* A10= INDICATOR 7 < P* A11= CREDIT WORK AREA 7 T P* A12= RESERVED 7 t P* A13= RESERVED 7 P* 7 @ P*********************************************************** 7 PSBA EQU * 7 P LDK
0x457fc8…45815c Dummy {f00=0x015e, f01=0x018e, f02=»TTAB 7 p P LC A7,CONATT,A2 CONVERT 8 P ANK A7,/3F 8 , P SLL A7,6 8 @ P LDK A1,IOSBA2 8 R P ST A1,UNPMOD,A11 8 h P LDK A1,0 8 P RF SBA900 NEXT BYTE 8 ( PSBA200 EQU * ENTRY LABEL FROM RETTAB 8 P LC A2,CONATT,A2 8 P ANK A2,/3F 8 P
0x45815c…4582f0 Dummy {f00=0x015e, f01=0x0190, f02=» 8 | P LDR A3,A7 9 P LDR A4,A3 9 P ADKL A3,BVDU 9 , P ADR A3,A11 9 B & P ORKL A10,PTORD INDICATE PT ORDER 9 V * P CF A14,LINE CHECK WRAP AND LINE FLAGS 9 P LDK A1,0 REURN CODE 9 P RF SBA900 9 PSBA800 EQU * 9 " P ORKL A10,THROWB DON'T S
0x4582f0…458484 Dummy {f00=0x015e, f01=0x0190, f02=»**************** 9 f > P* * : > P* IC INSERT CURSOR * : Z > P* * : > P******************************************
0x458484…458618 Dummy {f00=0x015e, f01=0x0190, f02=»URSOR POS. : P* A5= RESERVED ; P* A6= RESERVED ; ( P* A9= RESERVED ; > P* A10= INDICATOR ; T P* A11= CREDIT WORK AREA ; l P* A12= RESERVED ; P* A13= RESERVED ; P* ; 4 P*********************************************** ; PIC EQU * ;
0x458618…4587ac Dummy {f00=0x015e, f01=0x018e, f02=»********************************************* ; @ P* * < 6 @ P* PT PROGRAM TAB. * < z @ P* * < @ P******
0x4587ac…458940 Dummy {f00=0x015e, f01=0x0190, f02=» P* A3= ADDRESS IN VDU-BUFFER = P* A4= REL. CURSOR POS. = ( P* A5= RESERVED = F P* A6= ATTRIBUTE CHAR. = P* A8= RESERVED = z P* A9= RESERVED = P* A10= INDICATOR = P* A11= RESERVED = P* A12= RESERVED = P* A13= RESERVED = P*
0x458940…458ad4 (10, 78) Dummy {f00=0x015e, f01=0x018e, f02=»ORDER OR COMMAND? = x P RF(NZ) PT300 YES > 0 P LDK A7,NULL FILL WITH NULLS TO END OF FIELD > 4 " P LDR A4,A4 AT POS. ZERO ? DK1 > h $ P RF(Z) PT210 YES, PROCESS IT DK1 > PPT200 EQU * > P CF A14,LINWRP CHECK WRAP > P LDR A4,A4 END OF BUFFER? >
0x458ad4…458c68 Dummy {f00=0x015e, f01=0x0190, f02=» > | P SCR A7,A3 STORE NULL CHAR. ? P LC A1,LINFLG,A6 ? , P ORK A1,1 ? D P SC A1,LINFLG,A6 ? V P ADK A3,1 ? n P ADK A4,1 ? P RB PT200 ? PPT300 EQU * DK1 ? " P LDR A4,A4 AT POS. ZERO ? DK1 ? & P RF(Z) PT410 YES, PROCESS IT. DK1 ?
0x458c68…458dfc Dummy {f00=0x015e, f01=0x0190, f02=»U * DK1 ? P LCR A2,A3 GET CHAR. @ P ANK A2,/80 ATTRIBUTE? @ , P RF(NZ) PT500 YES @ J PPT420 EQU * DK1 @ d P ADK A4,1 @ | P ADK A3,1 @ P RB PT400 @ PPT500 EQU * @ & P LCR A2,A3 GET ATTRIBUTE AGAIN DK1 @ P ANK A2,/20 PROTECTED? @
0x458dfc…458f90 Dummy {f00=0x015e, f01=0x0190, f02=»D @ PPT800 EQU * A P LDK A1,0 RETURN CODE A P RTN A14 A < P EJECT A L B P************************************************************* A Z B P* * A B P* RA REPEAT TO ADDRES
0x458f90…459124 Dummy {f00=0x015e, f01=0x0190, f02=»******************************* A r P* REGISTERS B ( P* B < P* A1= RETURN CODE B F P* A2= CHAR. TO BE REPEATED B ` P* A3= ADDRESS IN VDU-BUFFER B P* A4= REL. CURSOR POS. B P* A5= RESERVED B $ P* A6= INTERNAL LINE FLAG ADDRESS B P* A8=
0x459124…4592b8 Dummy {f00=0x015e, f01=0x0190, f02=»ERVED B P* C 6 P************************************************** C PRA EQU * C R P LDK A1,IORAA1 NEXT LABEL C b P ST A1,UNPMOD,A11 C P LDK A1,0 C P RF RA900 FIRST BYTE C ( PRA100 EQU * ENTRY LABEL FROM RETTAB C P LC A7,CONATT,A2
0x4592b8…45944c Dummy {f00=0x015e, f01=0x0190, f02=»RA900 SECOND BYTE C ( PRA200 EQU * ENTRY LABEL FROM RETTAB D P LC A2,CONATT,A2 D F P ANK A2,/3F D ^ P ORR A7,A2 D r " P CWK A7,LBVDU INVALID ADDRESS D P RF(NL) RA800 YES D P LDK A1,IORACH NEXT LABEL D P ST A1,UNPMOD,A11 D P LDK A1,
0x45944c…4595e0 Dummy {f00=0x015e, f01=0x018e, f02=»EQU * D " P SCR A2,A3 STORE IN VDU-BUFFER E P LC A1,LINFLG,A6 E 4 P ORK A1,1 E L P SC A1,LINFLG,A6 E ^ P ADK A3,1 E v P ADK A4,1 E P CF A14,LINWRP CHECK WRAP =1 E P CWR A4,A7 ALL REPEATED? =1 E P RB(NE) RA300 NO =1 E & P ORKL A10,
0x4595e0…459774 (10, 79) Dummy {f00=0x015e, f01=0x0190, f02=» P LDK A1,1 RETURN CODE F PRA900 EQU * F " P RTN A14 F 6 P EJECT F F : P****************************************************** F T : P* * F : P* EUA ERASE UNPRO. TO ADDRESS * F
0x459774…459908 Dummy {f00=0x015e, f01=0x0190, f02=»ISTERS F P* G P* A1= RETURN CODE G P* A2= CHAR. G 2 P* A3= RESERVED G F P* A4= RESERVED G P* A5= RESERVED G r P* A6= RESERVED G P* A8= RESERVED G P* A9= RESERVED G P* A10= INDICATOR G P* A11= CREDIT WORK AREA G P* A12=
0x459908…459a9c Dummy {f00=0x015e, f01=0x0190, f02=»DK A1,IOEUA1 NEXT LABEL G P ST A1,UNPMOD,A11 H P LDK A1,0 H : P RF EUA900 FIRST BYTE H L ( PEUA100 EQU * ENTRY LABEL FROM RETTAB H j P LC A7,CONATT,A2 CONVERT H P ANK A7,/3F H P SLL A7,6 H P LDK A1,IOEUA2 NEXT LABEL H P ST A1,UNP
0x459a9c…459c30 Dummy {f00=0x015e, f01=0x0190, f02=» A2,/3F H P ORR A7,A2 I P LDK A1,IORDER NEXT LABEL I " P ST A1,UNPMOD,A11 I D P LDR A1,A7 RESTORE ADDR. =6 I ^ " P CWK A1,LBVDU INVALID ADDRESS? I P RF(NL) EUA800 YES I P LDR A2,A1 SAVE A1 =6 I P LDR A1,A4 =6 I , P CF A14,ATMASB SEA
0x459c30…459dc4 Dummy {f00=0x015e, f01=0x0190, f02=»5 I n * P CF A14,ERASUA ERASE UNPRO. TO ADDRESS J ( P ADKL A14,2 ADJUST STACK POINTER =5 J 8 ( P LDR* A8,A14 RESTORE DCBF-POINTER =5 J d P LDK A1,0 RETURN CODE J & P ORKL A10,PTORD INDICATE PT ORDER J P RF EUA900 J PEUA800 EQU * J P ORKL A10,
0x459dc4…459f58 Dummy {f00=0x015e, f01=0x0190, f02=»******************** J l < P* * K < P* CHAR. < /20 BUT NOT ORDER * K < P* * K < P********************************************
0x459f58…45a0ec Dummy {f00=0x015e, f01=0x0190, f02=»= REL. CURSOR POS. K P* A5= RESERVED L $ P* A6= INTERNAL LINE FLAG ADDRESS L 0 P* A8= RESERVED L X P* A9= RESERVED L n P* A10= INDICATOR L P* A11= CREDIT WORK AREA L P* A12= RESERVED L P* A13= RESERVED L P* L 4 P******************
0x45a0ec…45a280 Dummy {f00=0x015e, f01=0x018e, f02=»F CHARET L PINVAL EQU * M " P ORKL A10,/9800 END UNPACKING M $ P LDK A1,1 M J P RF CHARET M PNULCHA EQU * M n PNL EQU * M PFF EQU * M PEM EQU * M PCR EQU * M P CF A14,LINWRP CHECK WRAP M P SCR A2,A3 STORE CHAR. M P LC A1
0x45a280…45a414 (10, 80) Dummy {f00=0x015f, f01=0x0190, f02=» P LDK A1,0 CONTINUE N PCHARET EQU * N P RTN A14 N 2 P EJECT N B D P**************************************************************** N P D P* * N D P* PACKSY PACK DC BUFFER IN
0x45a414…45a5a8 Dummy {f00=0x015f, f01=0x0190, f02=»******************************** N p P* REGISTERS O ( P* O < P* A2= CHAR O F P* A3= ADDRESS IN VDU-BUFFER O X P* A4= REL. CURSOR POS. O | P* A5= RESERVED O P* A6= RESERVED O P* A8= ADDRESS IN DC-BUFFER O P* A9= INDEX IN DC-BUFFER O P
0x45a5a8…45a73c Dummy {f00=0x015f, f01=0x0190, f02=»*********************** O h PPACKSY EQU * P P IFT SNA=1 P 4 P LDKL A9,0 COUNTER P F $ P LD A3,CURPOS,A11 GET START POS. P ` & P CWK A3,/800 ANY CHAR. ON DISPLAY? P P RF(E) PASY40 NO P * P CF A14,SCRINF GET SCREEN INFORMATION P P LDR A1,A4 P $
0x45a73c…45a8d0 Dummy {f00=0x015f, f01=0x0190, f02=»ET LENGTH AGAIN P PPASY10 EQU * Q P CWK A1,256 ILLEGAL LENGTH? Q , P RF(NG) PASY20 NO Q P P LDKL A1,256 ADJUST LENGTH Q j PPASY20 EQU * Q P ADKL A3,BVDU Q P ADR A3,A11 Q PPASY30 EQU * Q P CWR A1,A9 ALL EXAMINED? Q P RF(E) PAS
0x45a8d0…45aa64 Dummy {f00=0x015f, f01=0x0190, f02=»RE Q t * P CF A14,PDCCH STORE CHAR. IN DC BUFFER R P RB PASY30 R 8 PPASY40 EQU * R J $ P LDK A1,0 INDICATE LAST IN CHAIN R ^ P CF A14,DCWRIT SEND BUFFER R & P LDR A8,A12 GET BUFFER TO RELEASE R " P CF A14,RELBUF RELEASE BUFFER R P XIF R P RTN
0x45aa64…45abf8 Dummy {f00=0x015f, f01=0x0190, f02=» * R h B P* UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * S B P* * S d B P************************************************************* S P* REGISTERS S P* S
0x45abf8…45ad8c Dummy {f00=0x015f, f01=0x018e, f02=»RNAL LINE FLAG ADDRESS S P* A8= ADDRESS IN DC-BUFFER T P* A9= INDEX IN DC-BUFFER T @ P* A10= INDICATOR T ` P* A11= CREDIT WORK AREA T x P* A12= RESERVED T P* A13= RESERVED T P* T B P******************************************************
0x45ad8c…45af20 Dummy {f00=0x015f, f01=0x0190, f02=» T * P CF A14,SCRINF GET SCREEN INFORMATION U P LDR A3,A4 CURSOR ADDRESS U 6 P ADKL A3,BVDU U X " P ADR A3,A11 VDU BUFFER ADDRESS U n , P LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS U " P SUR A9,A9 INDEX IN DC BUFFER U P LDR A6,A11 U P LDK A5,LL
0x45af20…45b0b4 (10, 81) Dummy {f00=0x015f, f01=0x0190, f02=»ING LEFT? U P RF(NZ) UNPS60 NO V P CWK A2,/31 BIND? V , P RF(E) UNPS50 YES,PERHAPS V F PUNPS07 EQU * V h P CWK A2,/20 ORDER? V | P RF(NL) UNPS40 NO V P CWK A2,/0A NEW LINE? V P RF(NE) UNPS10 NO V $ P CF A14,NLROUT PERFORM NEW LINE
0x45b0b4…45b248 Dummy {f00=0x015f, f01=0x018e, f02=»PS40 V PUNPS20 EQU * W P CWK A2,/1E IRS? W P RF(NE) UNPS30 NO W 8 P LDK A2,/3B REPLACE WITH ; W R P RF UNPS40 W t PUNPS30 EQU * W P CWK A2,NULL NULL? W P RF(NE) UNPS40 NO W " P LDK A2,/20 REPLACE WITH SPACE W PUNPS40 EQU * W P
0x45b248…45b3dc Dummy {f00=0x015f, f01=0x0190, f02=» P ADK A3,1 X P ADK A4,1 X P RB UNPS05 X ( PUNPS50 EQU * X : P CF A14,GDCCH X N P ANK A2,/FE SHURE OF BIND? X d P RF(Z) UNPS55 ALMOST X P SUKL A8,2 X P SUKL A9,2 X P CF A14,GDCCH X P RB UNPS07 X PUNPS55 EQU * X & P LDK A
0x45b3dc…45b570 Dummy {f00=0x015f, f01=0x0190, f02=»F UNPS70 X PUNPS60 EQU * Y P LDKL A5,LBVDU+1 Y $ P LDK A6,0 Y < . P CF A14,STOINF SAVE NEW SCREEN INFORMATION Y N P LDKL A10,0 Y PUNPS70 EQU * Y , P LD A8,BUFPNT,A11 GET BUFFER TO RELEASE Y " P CF A14,RELBUF RELEASE BUFFER Y P XIF Y
0x45b570…45b704 Dummy {f00=0x015f, f01=0x0190, f02=» * Y l 4 P* GETNXT GET AND CHECK NEXT BUFFER Z @ P* * Z X @ P************************************************************ Z P* REGISTERS Z P* Z P* A1= RETU
0x45b704…45b898 Dummy {f00=0x015f, f01=0x0190, f02=»************************************ Z x PGETNXT EQU * [ , P IFT SNA=1 [ @ * P CF A14,SAVE2 SAVE UNPACK INFORMATION [ R , P LD A8,BUFPNT,A11 GET BUFFER TO RELEASE [ " P CF A14,RELBUF RELEASE BUFFER [ P IFT DISHOW=2 [ P LC A1,TCT01,A11 [ " P CCK
0x45b898…45ba2c Dummy {f00=0x015f, f01=0x0190, f02=»GETC10 EQU * [ P CF A14,WAIT SYNCHRONIZE " P LD A2,ECBEL,A8 SAVE LENGTH =4 4 P ST A2,DCLENG,A11 . =4 Z P LDR A9,A1 x P CF A14,REST2 P LDR A1,A9 GET RETURN CODE ( P SRC A1,1 FIRST OR MODDLE IN CHAIN? P RF(NN) GETC30 NO $ P
0x45ba2c…45bbc0 Dummy {f00=0x015f, f01=0x0190, f02=» CCK A1,VDUCOD PRINTER UNPACK? P RF(NE) GETC20 YES ] & 0 P CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE ] @ PGETC20 EQU * ] t ( P XRKL A10,LICREC RESET LAST IN CHAIN ] P ORKL A10,NEWCH NEW CHAIN ] P RF GETC60 ] PGETC30 EQU * ] & P SRC A1,1 LA
0x45bbc0…45bd54 (10, 82) Dummy {f00=0x015f, f01=0x0190, f02=»T IN CHAIN RECEIVED ] | , P ANKL A1,LICREC LAST IN CHAIN RECEIVED? ^ P RF(Z) GETC60 NO ^ L 0 P CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE ^ d P ORKL A10,NEWCH NEW CHAIN ^ PGETC60 EQU * ^ * P ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS ^ & P CF A14,SAVE
0x45bd54…45bee8 Dummy {f00=0x015f, f01=0x018e, f02=»IT ^ r , P CF A14,REST2 RESTORE UNPACK INFORMATION _ P LDR A1,A10 _ : P ANKL A1,NEWCH NEW CHAIN? _ N P RF(Z) GETC80 NO _ p P IFT DISHOW=1 _ P XRKL A10,NEWCH RESET _ P LC A1,TCT01,A11 _ P CCK A1,VDUCOD _ P RF(NE) GETC70 _ P CF A14,
0x45bee8…45c07c Dummy {f00=0x015f, f01=0x0190, f02=» _ t P ST A1,UNPMOD,A11 ` PGETC80 EQU * ` " P LD A8,BUFPNT,A11 ` 6 P SUR A9,A9 ` P P LDK A1,0 RETUR N CODE ` b PGETC90 EQU * ` P XIF ` P RTN A14 ` P EJECT ` B P************************************************************* ` B P*
0x45c07c…45c210 Dummy {f00=0x015f, f01=0x0190, f02=»* * ` B P************************************************************* a F P* REGISTERS a P* a P* A1= RETURN CODE a P* A11= CREDIT WORK AREA a P* A12= RESERVED a P* A13= RESER
0x45c210…45c3a4 Dummy {f00=0x015f, f01=0x018e, f02=» a x P RF(N) PUTC10 YES b $ P CWK A9,BUFFL+BUFFL BUFFER FULL? b " P RF(NL) PUTC20 YES b J P RF PUTC30 b d PPUTC10 EQU * b v P LDKL A1,BUFFL+BUFFL-3 b ( P SUR A1,A9 ROOM FOR SBA AND ADDRESS? b P RF(NN) PUTC30 YES b PPUTC20 EQU * b P IFT S
0x45c3a4…45c538 Dummy {f00=0x015f, f01=0x0190, f02=» P LDR A9,A1 c P CF A14,REST2 c P LDR A9,A9 TRANSMISSION OK? c , P RF(NZ) PUTC90 NO c P P SUR A9,A9 BUFFER INDEX c j P LDR A8,A12 BUFFER ADDRESS c P XIF c P IFF SNA=1 c P CF A14,ERROR c P LDKL A1,* c P ST A1,REGI,A11 c
0x45c538…45c6cc Dummy {f00=0x015f, f01=0x0190, f02=»PUTC90 EQU * c P RTN A14 d P EJECT d $ 6 P************************************************** d 2 6 P* * d l 6 P* PDCCH PUT CHAR. IN DC BUFFER * d 6 P*
0x45c6cc…45c860 Dummy {f00=0x015f, f01=0x0190, f02=»RVED d P* A4= RESERVED e P* A5= RESERVED e " P* A6= RESERVED e 8 P* A8= ADDRESS IN DC-BUFFER e N P* A9= DC-BUFFER INDEX e p P* A10= INDICATOR e P* A11= RESERVED e P* A12= RESERVED e P* A13= RESERVED e P* e 8 P****************
0x45c860…45c9f4 (10, 83) Dummy {f00=0x015f, f01=0x0190, f02=»/FF e P IFT EBCDIC=1 f * P* CONVERSION DELETED * DK 82-03-30 * f " P XIF f P " P SCR A2,A8 STORE IN DC-BUFFER f P ADKL A8,1 f P ADKL A9,1 f PPDC100 EQU * f P RTN A14 f P EJECT f D P************************************************
0x45c9f4…45cb88 Dummy {f00=0x015f, f01=0x0190, f02=»FER * f h D P* * g D P*************************************************************** g h P* REGISTERS g P* g P* A1= RETURN CODE g P* A2= CHAR. g P* A3= POINTE
0x45cb88…45cd1c Dummy {f00=0x015f, f01=0x0190, f02=»FER INDEX g P* A10= INDICATOR h P* A11= CREDIT WORK AREA h * P* A12= RESERVED h J P* A13= RESERVED h b P* h z 8 P**************************************************** h PGDCCH EQU * h P LDK A1,1 PRESET ERROR h & P CW A9,DCLENG,A11 BUFF
0x45cd1c…45ceb0 Dummy {f00=0x015f, f01=0x0190, f02=» EBCDIC-ASCII CONVERSION DELETED PR. 8625,DK* h P XIF i 6 P ADKL A8,1 i B P ADKL A9,1 i T PGDCC90 EQU * i f P RTN A14 i z P EJECT i @ P*********************************************************** i @ P*
0x45ceb0…45d044 Dummy {f00=0x015f, f01=0x0190, f02=» * i d @ P*********************************************************** j P* REGISTERS j P* j p P* A2= AID j z P* A11= RESERVED j P* A13= RESERVED j P* j > P********************************************************** j P
0x45d044…45d1d8 Dummy {f00=0x015f, f01=0x0190, f02=»** j X > P* * k > P* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER * k L > P* * k > P********************************************************
0x45d1d8…45d36c Dummy {f00=0x015f, f01=0x0190, f02=»RVED k P* A8= RESERVED l P* A9= RESERVED l " P* A10= RESERVED l 8 P* A11= RESERVED l P P* A12= RESERVED l h P* A13= RESERVED l P* l > P********************************************************** l PBUFADR EQU * l P LDR A2,A1 GET R
0x45d36c…45d500 Dummy {f00=0x015f, f01=0x0190, f02=» LDR A2,A1 GET REL. POS. l P ANK A2,/3F m & P LC A2,CONADR,A2 CONVERT TO ASCII m 4 $ P CF A14,PDCCH STORE IN DC-BUFFER m ^ P RTN A14 m P EJECT m @ P************************************************************ m @ P*
0x45d500…45d694 (10, 84) Dummy {f00=0x0160, f01=0x0190, f02=» * m p @ P************************************************************ n $ P* REGISTERS n h P* n | P* A2= CHAR. n P* A3= ADDRESS IN VDU-BUFFER n P* A4= RESERVED n P* A5= RESERVED n P* A6= RESERVED n P* A8= RE
0x45d694…45d828 Dummy {f00=0x0160, f01=0x018e, f02=» P* o B P************************************************************* o PRESMDT EQU * o T P LDK A1,0 FIRST SCREEN POS. o h P LDKL A3,BVDU o P ADR A3,A11 o PRESM10 EQU * o P CWK A1,LBVDU ALL SCANNED? o P RF(NL) RESM90 YES o P L
0x45d828…45d9bc Dummy {f00=0x0160, f01=0x0190, f02=» o | PRESM20 EQU * p P ADK A1,1 p P ADK A3,1 p . P RB RESM10 p @ PRESM90 EQU * p R P RTN A14 p f P EJECT p v < P******************************************************** p < P* * p 2 P*
0x45d9bc…45db50 Dummy {f00=0x0160, f01=0x0190, f02=»********************************** p z P* REGISTERS q * P* q > P* A2= CHAR. q H P* A3= RESERVED q P* A4= RESERVED q r P* A5= RESERVED q P* A6= RESERVED q P* A8= RESERVED q P* A9= RESERVED q P* A10= RESERVED q P* A11= CREDIT WO
0x45db50…45dce4 Dummy {f00=0x0160, f01=0x0190, f02=»WCC EQU * q P LC A2,CONATT,A2 IN EBCDIC r P ST A2,WCC,A11 SAVE r 4 P ANK A2,1 RESET MDT-BITS? r P P RF(Z) P1W900 NO r r & P CF A14,RESMDT RESET ALL MDT-BITS r PP1W900 EQU * r P RTN A14 r P EJECT r > P**********************************
0x45dce4…45de78 Dummy {f00=0x0160, f01=0x0190, f02=»AFTER UPDATE * r j > P* * s > P********************************************************* s ^ P* REGISTERS s P* s P* A11= CREDIT WORK AREA s P* A12= RESERVED s P* A13= RESERVED s
0x45de78…45e00c Dummy {f00=0x0160, f01=0x018e, f02=» P LD A1,WCC,A11 t P LDR A7,A1 t P ANK A7,4 SOUND? t , P RF(Z) P2W100 NO t D P CF A14,SOUND SOUND t PP2W100 EQU * t x P ANK A1,8 COPY? t P RF(Z) P2W300 NO t P LC A1,TCT01,A11 . =4 t P CCK A1,VDUCOD VDU =4 t P RF(NE) P2W200 N
0x45e00c…45e1a0 Dummy {f00=0x0160, f01=0x0190, f02=» PP2W300 EQU * u " P CF A14,REST2 TAKE IT BACK =4 u P RTN A14 u > P EJECT u N F P****************************************************************** u F P* * u F P* SAVE SAVE
0x45e1a0…45e334 (10, 85) Dummy {f00=0x0160, f01=0x0190, f02=»****************************************************** u P* REGISTERS v > P* v R P* A1= STACK POINTER v P* A2= CHAR. v x P* A3= VDU BUFFER ADDRESS v P* A4= REL CURSOR POS. v P* A5= REL STTRIBUTE POS. v P* A6= ATTRIBUTE CHAR. v P
0x45e334…45e4c8 Dummy {f00=0x0160, f01=0x0190, f02=»**************************************************** v PSAVE1 EQU * w < & P LDKL A1,STACK1 GET STACK ADDRESS w P P RF SAVE w z PSAVE2 EQU * w P LDKL A1,STACK2 w PSAVE EQU * w P ADR A1,A11 w P STR A2,A1 w P ADK A1,2 w P STR A3,
0x45e4c8…45e65c Dummy {f00=0x0160, f01=0x0190, f02=» STR A7,A1 w P ADK A1,2 x P STR A10,A1 x $ P RTN A14 x 8 P EJECT x H H P******************************************************************* x V H P* * x H P* RESTOR REST
0x45e65c…45e7f0 Dummy {f00=0x0160, f01=0x018e, f02=»********************************************************* x P* REGISTERS y B P* y V P* A1= STACK POINTER y ` P* A2= CHAR. y | P* A3= VDU BUFFER ADDRESS y P* A4= REL. CURSOR POS. y P* A5= REL. ATTRIBUTE POS. y P* A6= ATTRIBUTE CHAR. y
0x45e7f0…45e984 Dummy {f00=0x0160, f01=0x018e, f02=» y ~ P* z D P*************************************************************** z PREST1 EQU * z Z & P LDKL A1,STACK1 GET STACK ADDRESS z n P RF RESTOR z PREST2 EQU * z P LDKL A1,STACK2 z PRESTOR EQU * z P ADR A1,A11 z P LDR* A2,A
0x45e984…45eb18 Dummy {f00=0x0160, f01=0x0190, f02=» z P LDR* A6,A1 { P ADK A1,2 { P LDR* A7,A1 { . P ADK A1,2 { B P LDR* A10,A1 { T P RTN A14 { h P EJECT { x < P******************************************************* { < P* * { < P*
0x45eb18…45ecac Dummy {f00=0x0160, f01=0x0190, f02=»********************************************* { PBUFFER EQU * | 6 P DATA *+2 POINTER FIRST FREE | J P IFF BUFFNR=1 | n P DATA *+LINK | P RES BUFFL | P IFF BUFFNR=2 | P DATA *+LINK | P RES BUFFL | P IFF BUFFNR=3 | P DATA *+LINK
0x45ecac…45ee40 Dummy {f00=0x0160, f01=0x0190, f02=»FL | P IFF BUFFNR=6 } P DATA *+LINK } P RES BUFFL } 4 P IFF BUFFNR=7 } F P DATA *+LINK } P RES BUFFL } p P IFF BUFFNR=8 } P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=9 } P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=10
0x45ee40…45efd4 (10, 86) Dummy {f00=0x0160, f01=0x0190, f02=»LINK } P RES BUFFL ~ P IFF BUFFNR=13 ~ P DATA *+LINK ~ 4 P RES BUFFL ~ H P IFF BUFFNR=14 ~ Z P DATA *+LINK ~ p P RES BUFFL ~ P IFF BUFFNR=15 ~ P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=16 ~ P DATA *+LINK ~ P RES BUFFL ~
0x45efd4…45f168 Dummy {f00=0x0160, f01=0x0190, f02=»R=19 ~ P DATA *+LINK P RES BUFFL P IFF BUFFNR=20 2 P DATA *+LINK H P RES BUFFL P IFF BUFFNR=21 n P DATA *+LINK P RES BUFFL P IFF BUFFNR=22 P DATA *+LINK P RES BUFFL P IFF BUFFNR=23 P DATA *+LINK
0x45f168…45f2fc Dummy {f00=0x0160, f01=0x0190, f02=»FL P IFF BUFFNR=26 P DATA *+LINK P RES BUFFL 4 P IFF BUFFNR=27 F P DATA *+LINK P RES BUFFL p P IFF BUFFNR=28 P DATA *+LINK P RES BUFFL P IFF BUFFNR=29 P DATA *+LINK P RES BUFFL P IFF BUFFNR=30
0x45f2fc…45f490 Dummy {f00=0x0160, f01=0x0190, f02=»LINK P RES BUFFL P XIF P DATA 0 * P RES BUFFL : P EJECT L < P******************************************************* Z < P* * < P* GETBUF GET BUFFER
0x45f490…45f624 Dummy {f00=0x0160, f01=0x0190, f02=»* Z P* REGISTERS P* P* A8= DC-BUFFER ADDRESS ( P* A9= INDEX IN DC-BUFFER H P* A11= RESERVED h P* A12= BUFFER ADDRESS P* A13= RESERVED P* < P******************************************************** PGETBUF E
0x45f624…45f7b8 Dummy {f00=0x0160, f01=0x0190, f02=» TASK P RB GETB10 PGETB90 EQU * P LDR* A1,A8 4 P STR A1,A7 H P ADKL A8,2 Z P LDR A12,A8 l P SUR A9,A9 P RTN A14 P EJECT > P********************************************************* > P*
0x45f7b8…45f94c Dummy {f00=0x0160, f01=0x0190, f02=» * v > P********************************************************* ( P* REGISTERS j P* ~ P* A8= BUFFER ADDRESS P* A11= RESERVED P* A13= RESERVED P* > P******************************************
0x45f94c…45fae0 Dummy {f00=0x0160, f01=0x409c, f02=» P RF(Z) RELB90 P LDR A7,A1 P RB RELB10 , PRELB90 EQU * > P STR A8,A7 R P CMR A8 d P RTN A14 t P P END @ P* A11= RESERVED P* A13= RESERVED P* > P******************************************
0x45fae0…45fc74 (10, 87) Dummy {f00=0x0160, f01=0x2008, f02=»
0x45fc74…45fe08 Dummy {f00=0x0160, f01=0x2008, f02=» IDENT P:S001 0 0 _ 0 0 " @ ! T % h ( |@
0x45fe08…45ff9c Dummy {f00=0x0160, f01=0x2008, f02=»x 4 d R N ( p
0x45ff9c…460130 Dummy {f00=0x0160, f01=0x2008, f02=» X | X j ^ ^ j VDUKB X | PRINT d GETTID DATBSC D C j PRTGO | KBVGO ! N ( p
0x460130…4602c4 Dummy {f00=0x0160, f01=0x2008, f02=» | X j ^ ^ j VDUKB X | PRINT d GETTID DATBSC D C j PRTGO | KBVGO ! N ( p
0x4602c4…460458 Dummy {f00=0x0160, f01=0x0190, f02=» P @ CR @ D G " F * E H K @ & " A ( J (P6 " 4X 1 R Z0 . . _ k k :A K J 4 P . . _ K K l @ @ R @ : @ D x @ @ F @ >
0x460458…4605ec Dummy {f00=0x0160, f01=0x0190, f02=» l 8 A A 6 Q R 8 V l ;k , @ 6T A , @ 8P( U U A , K l A A J @ & A @ 9k! P % _ @ @ A A A A J
0x4605ec…460780 Dummy {f00=0x0160, f01=0x0190, f02=» t R P "_ A N R X4 "_ J PJ 6 I H I $ @ < D ` E , D H C ` J j A X A N (Pn , @ X A X % t R , " E R d A N R d R P d R Xv d
0x460780…460914 (10, 88) Opaque[0x194]
0x460914…460aa8 # DirEnt {nam=»EPAD «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2c20, f03=0x0000}
0x460914…460aa8 IdxSect {
0x460914…460aa8 f00 = 0x0161 // 0x460914 @0x0
0x460914…460aa8 f01 = 0x0002 // 0x460916 @0x2
0x460914…460aa8 gno = [ // 0x460918 @0x4
0x460914…460aa8 [0x00]: C0x0161.0x0.0
0x460914…460aa8 ]
0x460914…460aa8 }
0x460aa8…460c3c Dummy {f00=0x0161, f01=0x00cc, f02=» LED XPAD, !!RE 0,$$05-27$$07-08$$ !!IL 1 6 #8 CALL TO COPP D 82-05-27 ^ !!DL 1435 r CF A14,COPP PRINT #8 !!EN KPF /S ASG /E0,TY10
0x460c3c…460dd0 Dummy {f00=0x0161, f01=0x2008, f02=» XPAD, !!RE 0,$$05-27$$07-08$$ !!IL 1 6 #8 CALL TO COPP D 82-05-27 ^ !!DL 1435 r CF A14,COPP PRINT #8 !!EN KPF /S ASG /E0,TY10
0x460dd0…460f64 Dummy {f00=0x0161, f01=0x0190, f02=» L H IDENT T:AP20 TRA 11.0 82-07-07 F1 O1111 REL 11.0 82-07-07 87015054110 T:AP20 T T:AP20A f . * T:DP20 D:CB10 C:CB10 D:TB10 Z:TB10 z * & * & * &
0x460f64…4610f8 Dummy {f00=0x0161, f01=0x402e, f02=» y @ * REL 11.0 82-07-07 87015054110 T:AP20 T T:AP20A f . * T:DP20 D:CB10 C:CB10 D:TB10 Z:TB10 z * & * & * &
0x4610f8…46128c Dummy {f00=0x0161, f01=0x40e2, f02=» L H IDENT T:DP20 TRA 11.0 82-07-07 F1 O1111 REL 11.0 82-07-07 87015054110 T:DP20 T T:DP20D f PRTGO z * & P2 @ * * @ * &
0x46128c…461420 Dummy {f00=0x0161, f01=0x40dc, f02=» L H IDENT T:ATAB TRA 11.0 82-07-07 F1 O1111 REL 11.0 82-07-07 87015054110 T:ATAB T T:ATABA f & " T:AK10 T:AK20 T:AP10 T:AP20 z U :A @ * &
0x461420…4615b4 (10, 89) Opaque[0x194]
0x4615b4…461748 # DirEnt {nam=»PAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c28, f03=0x0000}
0x4615b4…461748 IdxSect {
0x4615b4…461748 f00 = 0x0161 // 0x4615b4 @0x0
0x4615b4…461748 f01 = 0x0024 // 0x4615b6 @0x2
0x4615b4…461748 gno = [ // 0x4615b8 @0x4
0x4615b4…461748 [0x00]: C0x0161.0x1.0
0x4615b4…461748 [0x01]: C0x0161.0x2.0
0x4615b4…461748 [0x02]: C0x0161.0x3.0
0x4615b4…461748 [0x03]: C0x0162.0x0.0
0x4615b4…461748 [0x04]: C0x0162.0x1.0
0x4615b4…461748 [0x05]: C0x0162.0x2.0
0x4615b4…461748 [0x06]: C0x0162.0x3.0
0x4615b4…461748 [0x07]: C0x0163.0x0.0
0x4615b4…461748 [0x08]: C0x0163.0x1.0
0x4615b4…461748 [0x09]: C0x0163.0x2.0
0x4615b4…461748 [0x0a]: C0x0163.0x3.0
0x4615b4…461748 [0x0b]: C0x0164.0x0.0
0x4615b4…461748 [0x0c]: C0x0164.0x1.0
0x4615b4…461748 [0x0d]: C0x0164.0x2.0
0x4615b4…461748 [0x0e]: C0x0164.0x3.0
0x4615b4…461748 [0x0f]: C0x0165.0x0.0
0x4615b4…461748 [0x10]: C0x0165.0x1.0
0x4615b4…461748 [0x11]: C0x0165.0x2.0
0x4615b4…461748 ]
0x4615b4…461748 }
0x461748…4618dc Dummy {f00=0x0161, f01=0x0190, f02=» 0 P IDENT PAD REL 11.0 DK 82-07-08 870150541100 P 8 P #8 CALL TO COPP @ P 82-05-27 Z P =7,ERROR IN SF n P =6,2ND ERROR IN EUA ( P =5 ERROR IN ERASE UNPROT TO ADDR & P DK1, ATTRIBUTE ERROR + 2X PRINT P =4 COPY T
0x4618dc…461a70 Dummy {f00=0x0161, f01=0x0190, f02=» RA ON EUQ ADDRESS P 81-01-26 B P************************************************************* . B P* * t B P* MODULE PAD * B P*
0x461a70…461c04 Dummy {f00=0x0161, f01=0x0190, f02=» BUFFER IS UPDATED * B P* (EMULATION 3270 SNA/SDLC, BSC) * B B P* * B P**********************************************************
0x461c04…461d98 Dummy {f00=0x0161, f01=0x0190, f02=»* @ P* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER 8 P* UNPACK UNPACK DC-BUFFER AND UPDATE VDU N ( P* RETTAB RETURN ADDRESSES ( P* UNPCOM UNPACK COMMANDS & P* UNPORD UNPACK ORDERS
0x461d98…461f2c Dummy {f00=0x0161, f01=0x0190, f02=» IC INSERT CURSOR $ P* PT PROGRAM TAB. $ * P* RA REPEAT TO ADDRESS L 0 P* EUA ERASE UNPRO. TO ADDRESS z ( P* CHAR < /20 BUT NOT ORDERS 6 P* PACKSY PACK DC-BUFFER IN SYSTEM M
0x461f2c…4620c0 Dummy {f00=0x0161, f01=0x0190, f02=»UTCHA PUT CHAR. IN DC-BUFFER AND WRITE , P* PDCCH PUT CHAR. IN BUFFER 2 , P* GDCCH GET CHAR. IN BUFFER b , P* PAID STORE AID IN BUFFER : P* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER 8 P*
0x4620c0…462254 (10, 90) Dummy {f00=0x0161, f01=0x0190, f02=»OF WCC AFTER UPDATE r 8 P* SAVE SAVE PACK AND UNPACK INFORMATION < P* RESTOR RESTORE PACK AND UNPACK INFORMATION X $ P* BUFFER BUFFER POOL " P* GETBUF GET BUFFER & P* RELBUF RELEASE BUFFER
0x462254…4623e8 Dummy {f00=0x0161, f01=0x0190, f02=»******************************* r B P* * ( B P* ENTRY POINTS * n B P* * B P**************
0x4623e8…46257c Dummy {f00=0x0161, f01=0x0190, f02=» DC BUFFER AND UPDATE VDU | 2 P ENTRY UNPSYS UNPACK DC BUFFER IN SYSTEM MODE " P ENTRY GETBUF GET DC BUFFER X $ P ENTRY RELBUF RELEASE DC BUFFER | , P ENTRY PAID STORE AID CODE IN DC BUFFER 2 P ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER 0
0x46257c…462710 Dummy {f00=0x0161, f01=0x0190, f02=» EJECT 8 P*************************************************** 8 P* * J 8 P* EXTERNAL REFERENCES * 8 P* * 8 P**********
0x462710…4628a4 Dummy {f00=0x0161, f01=0x0190, f02=»DIC-ASCII (CONVER) v * P EXTRN ERASE ERASE ENTIRE SCREEN (VDU) 4 P EXTRN ERASUA ERASE UNPROTECTED TO ADDRESS (VDU) H 2 P EXTRN CONORD CONVERT ORDER TO INDEX (CONVER) . P EXTRN CONATT CONVERT ATTRIBUTE (CONVER) . P EXTRN SCRINF GET SCREEN INFORMA
0x4628a4…462a38 Dummy {f00=0x0161, f01=0x0190, f02=»ND ALARM ON VDU (VDU) 2 P EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU) 2 P EXTRN CONADR CONVERT BUFFER ADDRESS (CONVER) T * P EXTRN WRAP CHECK IF WRAP AROUND (VDU) 0 P EXTRN STOINF SAVE SCREEN INFORMATION (VDU) ( P EXTRN LMP4ON INHIBIT LAMP O
0x462a38…462bcc Dummy {f00=0x0161, f01=0x0190, f02=»DC BUFFER (DCSNA,DCBSC) | 0 P EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) . P EXTRN THRBUF THROW BUFFERS (DCSNA,DCBSC) T ( P EXTRN NLROUT NEW LINE ROUTINE (VDU) " P EXTRN LINE WRAP ROUTINE (VDU) 2 P EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU)
0x462bcc…462d60 Dummy {f00=0x0161, f01=0x0190, f02=»SPBSC) h * P EXTRN ICSET INTERTASK TIMEOUT (KEYB) ( P EXTRN ICWRT INTERTASK WRITE (KEYB) < , P EXTRN COPP COPY ON PRINTER DIRECTLY =4 h P EXTRN LMP3ON P EJECT 8 P*************************************************** 8 P*
0x462d60…462ef4 (10, 91) Dummy {f00=0x0161, f01=0x0190, f02=» * p 8 P*************************************************** P X PX:A EQU 0 SNA HANDLING IF:=1 ` PSNA EQU 0 & PX:K EQU 2 NUMBER OF BUFFERS (1-32) PBUFFNR EQU 02 * PX:L EQU 1000 MAX BUFFER SIZE IN WORDS PBUFF
0x462ef4…463088 Dummy {f00=0x0161, f01=0x0190, f02=» * PX:Z EQU 1 =0,WHOLE,=1 CHAIN,=2 SEGMENT PDISHOW EQU X:Z 2 P EJECT H D P*************************************************************** V D P* * & P* DECLARATION OF DATA AND EQUATES
0x463088…46321c Dummy {f00=0x0161, f01=0x0190, f02=»******* X P P* $ P* EQUATES FOR ECB HANDLING " P* J PECBBA EQU 2 BUFFER ADDRESS T PECBRL EQU 4 REQUESTED LENGTH v PECBEL EQU 6 EFFECTIVE LENGTH PECBRC EQU 8 RETURN CODE PECBCW EQU 10 CONTROL WORD P*
0x46321c…4633b0 Dummy {f00=0x0161, f01=0x0190, f02=»400 NEW CHAIN ( PATTREC EQU /0002 ATTRIBUTE RECEIVED & PPTORD EQU /0001 PT ORDER INDICATOR B P IFT SNA=1 l P* ~ P* SNA MODES P* PLOCMOD EQU 0 LOCAL MODE PSYSOP EQU 2 SYSTEM MODE PMYJOB EQU 4 MY JOB MODE
0x4633b0…463544 Dummy {f00=0x0161, f01=0x0190, f02=» | P* PNULL EQU 0 NULL CHAR. PSBACH EQU /11 SBA CHAR. 0 PESCCHA EQU /1B ESCAPE CHAR. P P* t P* VDU SCREEN SIZE ~ P* PLBVDU EQU 1920 TOTAL SIZE PLLINE EQU 80 LINE LENGTH P* P* BUFFER LINK LENGT
0x463544…4636d8 Dummy {f00=0x0161, f01=0x0190, f02=» $ PTCT01 EQU 0 TASK IDENTIFICATION " PBVDU EQU TCT01+2 SCREEN BUFFER 0 , PLINFLG EQU BVDU+1920 INTERNAL LINE FLAGS V 0 PPCURS EQU LINFLG+24 CURSOR ADDRESS , BINARY PCURATT EQU PCURS+4 & PWCC EQU CURATT+2 WCC/CCC CHARACTER & PKBINH EQU
0x4636d8…46386c Dummy {f00=0x0161, f01=0x0190, f02=»NT EQU CURPOS+2 BUFFER ADDRESS $ PREGI EQU BUFPNT+2 WORK REGISTER & $ PSTACK1 EQU REGI+2 INTERNAL STACK N PSTACK2 EQU STACK1+14 v $ PUNPMOD EQU STACK2+14 UNPACK MODE PSNAMOD EQU UNPMOD+2 SNA MODE 0 PECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =
0x46386c…463a00 Dummy {f00=0x0161, f01=0x0190, f02=» * d B P* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * B P* * ^ B P************************************************************* P* REGISTERS P* P
0x463a00…463b94 (10, 92) Dummy {f00=0x0162, f01=0x018e, f02=»CHAR P* A8= ADDRESS IN DC-BUFFER P* A9= DC-BUFFER INDEX . P* A10= START ADDRESS L P* A11= RESERVED h P* A12= BUFFER ADDRESS P* A13= RESERVED P* @ P************************************************************ PPACK
0x463b94…463d28 Dummy {f00=0x0162, f01=0x0190, f02=» P LDR A10,A4 INITIATE ADDRESS ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? ( P RF(E) PACK70 YES T PPACK10 EQU * n P LCR A2,A3 GET CHAR. P CCK A2,/8000 ATTRIBUTE? P RF(NL) PACK15 YES P ADK A3,1 P ADK A4,1 P RB PACK10
0x463d28…463ebc Dummy {f00=0x0162, f01=0x0190, f02=» P CWR A10,A4 ALL SCANNED? P RF(E) PACK80 YES $ PPACK30 EQU * > P LCR A2,A3 GET CHAR. R P ADK A3,1 n P ADK A4,1 P CCK A2,/8000 ATTRIBUTE? P RB(L) PACK20 NO P ANK A2,1 MODIFIED FIELD? P RF(NZ) PACK50 YES * P*
0x463ebc…464050 Dummy {f00=0x0162, f01=0x0190, f02=»NDICATE SBA & P CF A14,PUTCHA PUT CHAR. IN BUFFER P LDR A1,A1 TRANSMISSION OK? > P RF(NZ) PACK90 NO b * P LDR A1,A4 BUFFER ADDRESS TO DC-BUFFER | P CF A14,BUFADR PPACK60 EQU * & P CF A14,WRAP CHECK IF WRAP AROUND P CWR A10,A
0x464050…4641e4 Dummy {f00=0x0162, f01=0x0190, f02=»PACK20 YES P CWK A2,NULL NULL CHAR? " P RF(E) PACK75 YES,DON'T STORE 2 & P CF A14,PUTCHA PUT CHAR. IN BUFFER X P LDR A1,A1 TRANSMISSION OK? P RF(NZ) PACK90 NO PPACK75 EQU * P ADK A3,1 P ADK A4,1 P RB PACK60
0x4641e4…464378 Dummy {f00=0x0162, f01=0x0190, f02=»ER TO RELEASE " P CF A14,RELBUF RELEASE BUFFER P RTN A14 < P EJECT L @ P************************************************************ Z @ P* * @ P* UNPACK UNPACK DC-BUFFER
0x464378…46450c Dummy {f00=0x0162, f01=0x0190, f02=»********************** j P* REGISTERS P* 2 P* A2= CHAR. < P* A3= POINTER IN VDU-BUFFER P P* A4= REL. CURSOR POS. t P* A5= LAST IN ROW REL POS $ P* A6= INTERNAL LINE FLAG ADDRESS P* A8= ADDRESS IN DC-BUFFER P* A9= DC-B
0x46450c…4646a0 Dummy {f00=0x0162, f01=0x0190, f02=»****************************************************** PUNPACK EQU * > P LDK A1,3 KB TOTALLY INHIBIT R P ORS A1,KBINH,A11 v P LC A1,TCT01,A11 " P CCK A1,VDUCOD PRINTER UNPACK? P RF(NE) UNP050 YES " P CF A14,LMP3ON INHIBIT LAMP ON
0x4646a0…464834 (10, 93) Dummy {f00=0x0162, f01=0x0190, f02=»P AND LINE FLAG z P SUR A9,A9 ( P LD A8,BUFPNT,A11 GET BUFFER ADDRESS * " P LDK A1,ICOMND PROCESS COMMAND V P ST A1,UNPMOD,A11 | PUNP100 EQU * P CF A14,GDCCH GET CHAR. P LDR A1,A1 ANYTHING LEFT? P RF(NZ) UNP200 NO . P L
0x464834…4649c8 Dummy {f00=0x0162, f01=0x018e, f02=» P RF UNP300 PUNP200 EQU * P IFT SNA=1 * " P CF A14,GETNXT GET NEXT BUFFER < P LDR A1,A1 FINISHED? b P RB(Z) UNP100 NO ~ P XIF PUNP300 EQU * " P CF A14,SCRINF GET LATEST NEWS P LDR A1,A4 . P CF A14,ATMASB SEARCH ATTR
0x4649c8…464b5c Dummy {f00=0x0162, f01=0x018e, f02=» r P RF UNP600 PUNP400 EQU * P IFF DISHOW=2 . P LC A1,TCT01,A11 D P CCK A1,VDUCOD P RF(NE) UNP500 r 6 P CF A14,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! PUNP500 EQU * P XIF * P CF A14,P2WCC CHECK IT A LAST TIME =4
0x464b5c…464cf0 Dummy {f00=0x0162, f01=0x018e, f02=» J P********************************************************************** ! J P* * ! R J P* INDEX FOR RETURNS AFTER GET CHARCTER * ! J P*
0x464cf0…464e84 Dummy {f00=0x0162, f01=0x0190, f02=» PICOMND EQU 0 " PICOMN1 EQU ICOMND+2 " P IFT COPCMD=1 " 4 PICOCOP EQU ICOMN1+2 " J PICOWCC EQU ICOCOP+2 " f P XIF " P IFF COPCMD=1 " PICOWCC EQU ICOMN1+2 " P XIF " PIORDER EQU ICOWCC+2 " PIOSFAT EQU IORDER+2 " PIOSB
0x464e84…465018 Dummy {f00=0x0162, f01=0x0190, f02=»IOEUA1 EQU IORACH+2 " PIOEUA2 EQU IOEUA1+2 # P EJECT # 8 J P********************************************************************* # F J P* * # J P* RETURN ADDRESSES AFTER GET CH
0x465018…4651ac Dummy {f00=0x0162, f01=0x0190, f02=»*************************************************** # ~ PRETTAB EQU * $ < & P DATA UNPCOM PROCESS COMMAND CHAR. $ P 0 P DATA UNC100 PROCESS COMMAND CHAR AFTER ESC. $ z P IFT COPCMD=1 $ $ P DATA UNC150 PROCESS FROM DEVICE $ P XIF $ P DATA UNC600 PRO
0x4651ac…465340 Dummy {f00=0x0162, f01=0x0190, f02=»YTE $ l , P DATA SBA200 PROCESS SECOND ADDRESS BYTE % * P DATA RA100 PROCESS FIRST ADDRESS BYTE % < , P DATA RA200 PROCESS SECOND ADDRESS BYTE % j ( P DATA RA250 PROCESS CHAR. TO REPEAT % , P DATA EUA100 PROCESS FIRST ADDRESS BYTE % , P DATA EUA200 PROCE
0x465340…4654d4 (10, 94) Dummy {f00=0x0162, f01=0x0190, f02=» * % L P* UNPCOM UNPACK COMMAND * & D L P* * & L P************************************
0x4654d4…465668 Dummy {f00=0x0162, f01=0x0190, f02=»REL. CURSOR ADDRESS & P* A5= LAST IN ROW REL POS ' $ P* A6= INTERNAL LINE FLAG ADDRESS ' > P* A8= ADDRESS IN DC-BUFFER ' f P* A9= RESERVED ' P* A10= INDICATOR ' P* A11= CREDIT WORK AREA ' P* A12= RESERVED ' P* A13= RESERVED ' P*
0x465668…4657fc Dummy {f00=0x0162, f01=0x0190, f02=» SNA=1 ' $ P LDK A1,ICOMN1 WHERE TO CONTINUE ( P ST A1,UNPMOD,A11 ( 6 P LDK A1,0 RETURN CODE ( P P CWK A2,ESCCHA ESCAPE? ( n P RF(E) UNC900 YES ( P LDK A1,1 NO INDICATE ERROR ( P RF UNC900 ( P XIF ( PUNC100 EQU * ( P CWK A2,/31
0x4657fc…465990 Dummy {f00=0x0162, f01=0x018e, f02=» ( n P RF(E) UNC300 YES ) P IFT COPCMD=1 ) " P CWK A2,/37 COPY COMMAND? ) 8 P RF(NE) UNC175 NO ) Z P LDK A1,ICOCOP RESTART ENTRY ) t P RF UNC800 ) ( PUNC150 EQU * ENTRY LABEL FROM RETTAB ) P CF A14,MATCH GET TASKID ) P LDR A1,A1 OK? )
0x465990…465b24 Dummy {f00=0x0162, f01=0x0190, f02=» P CF A14,ICSET SET TIMEOUT * P LDR A1,A2 TASK TO CALL * & P LDK A2,2 LENGTH * F P LDKL A3,REGI * ^ P ADR A3,A11 BUFFER * t P CF A14,ICWRT SEND IT * PUNC175 EQU * * P XIF * $ P LDKL A10,THROWB THROW THE REST * P LDK A1,1 INDICATE E
0x465b24…465cb8 Dummy {f00=0x0162, f01=0x0190, f02=»A8,REGI,A11 * P LDR A6,A11 + P LDK A5,LLINE + ( & P LDK A4,0 INITIATE BUFFER ADDRESS + > P RF UNC500 + h PUNC300 EQU * + z ( P CF A14,ERASUP ERASE ALL UNPROTECTED + " P LDKL A10,THROWB THROW IT AWAY + P LDK A1,1 INDICATE ERROR + P RF UNC9
0x465cb8…465e4c Dummy {f00=0x0162, f01=0x0190, f02=» ENTRY LABEL FROM RETTAB + , P CF A14,P1WCC PROCESS WCC BEFORE UPDATE , P LDR A3,A4 , P " P ADKL A3,BVDU GET REAL ADDRESS , b P ADR A3,A11 , & P ORKL A10,PTORD INDICATE PT ORDER , & P LDK A1,IORDER INDICATE NEXT CALL , PUNC800 EQU * , P ST
0x465e4c…465fe0 Dummy {f00=0x0162, f01=0x0190, f02=»************ , b > P* * - > P* UNPORD UNPACK ORDERS * - V > P* * - > P**********************************************
0x465fe0…466174 (10, 95) Dummy {f00=0x0162, f01=0x0190, f02=»* A5= LAST IN ROW REL POS - $ P* A6= INTERNAL LINE FLAG ADDRESS . " P* A8= RESERVED . J P* A9= RESERVED . ` P* A10= INDICATOR . v P* A11= RESERVED . P* A12= RESERVED . P* A13= RESERVED . P* . > P****************************************
0x466174…466308 Dummy {f00=0x0162, f01=0x0190, f02=»D INDICATE FOR PT ORDER . P CWR A5,A4 NEW LINE? / P RF(G) UNO050 NO / < P CF A14,LINE CHECK WRAP / T PUNO050 EQU * / t ( P SCR A2,A3 STORE CHAR. IN VDU BUFFER / P LC A1,LINFLG,A6 / P ORK A1,1 / P SC A1,LINFLG,A6 / P ADK A4,1 / P
0x466308…46649c Dummy {f00=0x0162, f01=0x0190, f02=»E CARE OF ORDER / z PUNO200 EQU * 0 P RTN A14 0 , P EJECT 0 < B P************************************************************* 0 J B P* * 0 B P* ORDTAB ORDER TABLE
0x46649c…466630 Dummy {f00=0x0162, f01=0x0190, f02=»*************** 0 b PORDTAB EQU * 1 P DATA INVAL INVALID CHAR. 1 , P DATA SF START FIELD 1 N P DATA SBA SET BUFFER ADDRESS 1 j P DATA IC INSERT CURSOR 1 P DATA PT TAB. 1 P DATA RA REPEAT TO AADRESS 1 * P DATA EUA ERASE UNPROTECTED TO ADDRE
0x466630…4667c4 Dummy {f00=0x0162, f01=0x0190, f02=»GE 1 ~ P DATA CR CARRIAGE RETURN 2 P EJECT 2 * @ P*********************************************************** 2 8 @ P* * 2 | @ P* SF START FIELD * 2 @ P*
0x4667c4…466958 Dummy {f00=0x0162, f01=0x0190, f02=»EGISTERS 2 P* 3 P* A1= RETURN CODE 3 P* A2= RESERVED 3 4 P* A3= POINTER IN VDU BUFFER 3 J P* A4= REL. CURSOR POS. 3 n P* A5= RESERVED 3 P* A6= RESERVED 3 P* A8= RESERVED 3 P* A9= DC-BUFFER INDEX 3 P* A10= INDICATOR 3 P* A1
0x466958…466aec Dummy {f00=0x0162, f01=0x0190, f02=»********** 3 ^ PSF EQU * 4 & P LDK A1,IOSFAT INDICATE NEXT CALL 4 " P ST A1,UNPMOD,A11 4 L P RF SF900 GET CHAR. 4 f ( PSF100 EQU * ENTRY LABEL FROM RETTAB 4 P LDK A1,IORDER NEXT ALBEL 4 P ST A1,UNPMOD,A11 4 P LC A2,CONATT,A2 IN EBCDIC 4
0x466aec…466c80 Dummy {f00=0x0162, f01=0x0190, f02=» 4 P ANK A1,2 LINE IN FIELD? 5 P RF(Z) SF600 NO 5 ( . P CF A14,LINATT INDICATE ATTRIBUTE OVERRUN 5 @ PSF600 EQU * 5 r 0 P ORKL A10,ATTREC INDICATE ATTRIBUTE RECEIVED 5 P SCR A2,A3 STORE CHAR. 5 P ADK A3,1 5 P ADK A4,1 5 P CF A14,LINW
0x466c80…466e14 (10, 96) Dummy {f00=0x0163, f01=0x0190, f02=»*************** 5 d @ P* * 6 @ P* SBA SET BUFFER ADDRESS * 6 @ P* * 6 @ P************************************
0x466e14…466fa8 Dummy {f00=0x0163, f01=0x0190, f02=»RESERVED 6 P* A5= RESERVED 7 P* A6= RESERVED 7 & P* A8= RESERVED 7 < P* A9= RESERVED 7 R P* A10= INDICATOR 7 h P* A11= CREDIT WORK AREA 7 P* A12= RESERVED 7 P* A13= RESERVED 7 P* 7 @ P**********************************************
0x466fa8…46713c Dummy {f00=0x0163, f01=0x0190, f02=»YTE 7 ~ ( PSBA100 EQU * ENTRY LABEL FROM RETTAB 8 P LC A7,CONATT,A2 CONVERT 8 8 P ANK A7,/3F 8 X P SLL A7,6 8 l P LDK A1,IOSBA2 8 ~ P ST A1,UNPMOD,A11 8 P LDK A1,0 8 P RF SBA900 NEXT BYTE 8 ( PSBA200 EQU * ENTRY LABEL FROM RETTAB 8 P
0x46713c…4672d0 Dummy {f00=0x0163, f01=0x0190, f02=»ILLEGAL ADDRESS? 8 P RF(NL) SBA800 YES 9 P LDR A3,A7 9 2 P LDR A4,A3 9 D P ADKL A3,BVDU 9 V P ADR A3,A11 9 l & P ORKL A10,PTORD INDICATE PT ORDER 9 * P CF A14,LINE CHECK WRAP AND LINE FLAGS 9 P LDK A1,0 REURN CODE 9 P RF SBA900 9 PSB
0x4672d0…467464 Dummy {f00=0x0163, f01=0x0190, f02=»********************************************************** 9 > P* * : B > P* IC INSERT CURSOR * : > P* * : > P
0x467464…4675f8 Dummy {f00=0x0163, f01=0x0190, f02=» : P* A3= RESERVED ; P* A4= REL. CURSOR POS. ; P* A5= RESERVED ; < P* A6= RESERVED ; R P* A9= RESERVED ; h P* A10= INDICATOR ; ~ P* A11= CREDIT WORK AREA ; P* A12= RESERVED ; P* A13= RESERVED ; P* ; 4 P************************
0x4675f8…46778c Dummy {f00=0x0163, f01=0x0190, f02=»TN A14 ; P EJECT < @ P*********************************************************** < @ P* * < ` @ P* PT PROGRAM TAB. * < @ P*
0x46778c…467920 Dummy {f00=0x0163, f01=0x0190, f02=»A1= RETURN CODE < P* A2= CHAR. = P* A3= ADDRESS IN VDU-BUFFER = , P* A4= REL. CURSOR POS. = P P* A5= RESERVED = n P* A6= ATTRIBUTE CHAR. = P* A8= RESERVED = P* A9= RESERVED = P* A10= INDICATOR = P* A11= RESERVED = P* A12= RES
0x467920…467ab4 (10, 97) Dummy {f00=0x0163, f01=0x0190, f02=» A1,A10 = . P ANK A1,PTORD FOLLOWING ORDER OR COMMAND? > P RF(NZ) PT300 YES > B 0 P LDK A7,NULL FILL WITH NULLS TO END OF FIELD > " P LDR A4,A4 AT POS. ZERO ? DK1 > $ P RF(Z) PT210 YES, PROCESS IT DK1 > PPT200 EQU * > P CF A14,LINWRP CHECK W
0x467ab4…467c48 Dummy {f00=0x0163, f01=0x0190, f02=»0 ATTRIBUTE? > P RF(NZ) PT400 YES ? P SCR A7,A3 STORE NULL CHAR. ? . P LC A1,LINFLG,A6 ? R P ORK A1,1 ? j P SC A1,LINFLG,A6 ? | P ADK A3,1 ? P ADK A4,1 ? P RB PT200 ? PPT300 EQU * DK1 ? " P LDR A4,A4 AT POS. ZERO ? DK1 ? & P
0x467c48…467ddc Dummy {f00=0x0163, f01=0x0190, f02=» PT700 YES OS AND DOS ? PPT410 EQU * DK1 @ P LCR A2,A3 GET CHAR. @ 6 P ANK A2,/80 ATTRIBUTE? @ R P RF(NZ) PT500 YES @ p PPT420 EQU * DK1 @ P ADK A4,1 @ P ADK A3,1 @ P RB PT400 @ PPT500 EQU * @ & P LCR A2,A3 GET ATTRIBUTE AGA
0x467ddc…467f70 Dummy {f00=0x0163, f01=0x0190, f02=» PPT700 EQU * A P ORKL A10,PTORD A PPT800 EQU * A 0 P LDK A1,0 RETURN CODE A D P RTN A14 A b P EJECT A r B P************************************************************* A B P* * A
0x467f70…468104 Dummy {f00=0x0163, f01=0x0190, f02=» A R B P************************************************************* B P* REGISTERS B N P* B b P* A1= RETURN CODE B l P* A2= CHAR. TO BE REPEATED B P* A3= ADDRESS IN VDU-BUFFER B P* A4= REL. CURSOR POS. B P* A5= RESERVED B $ P* A6= IN
0x468104…468298 Dummy {f00=0x0163, f01=0x0190, f02=» P* A12= RESERVED C P* A13= RESERVED C P* C 4 6 P************************************************** C > PRA EQU * C x P LDK A1,IORAA1 NEXT LABEL C P ST A1,UNPMOD,A11 C P LDK A1,0 C P RF RA900 FIRST BYTE C ( PRA100 EQU * ENTRY LABE
0x468298…46842c Dummy {f00=0x0163, f01=0x018e, f02=»MOD,A11 C P LDK A1,0 D P RF RA900 SECOND BYTE D " ( PRA200 EQU * ENTRY LABEL FROM RETTAB D @ P LC A2,CONATT,A2 D l P ANK A2,/3F D P ORR A7,A2 D " P CWK A7,LBVDU INVALID ADDRESS D P RF(NL) RA800 YES D P LDK A1,IORACH NEXT LABEL D
0x46842c…4685c0 Dummy {f00=0x0163, f01=0x0190, f02=» D P ST A1,UNPMOD,A11 E PRA300 EQU * E " " P SCR A2,A3 STORE IN VDU-BUFFER E 6 P LC A1,LINFLG,A6 E P ORK A1,1 E t P SC A1,LINFLG,A6 E P ADK A3,1 E P ADK A4,1 E P CF A14,LINWRP CHECK WRAP =1 E P CWR A4,A7 ALL REPEATED? =1 E
0x4685c0…468754 (10, 98) Dummy {f00=0x0163, f01=0x0190, f02=» " P ORKL A10,THROWB THROW IT AWAY F P LDK A1,1 RETURN CODE F * PRA900 EQU * F H P RTN A14 F P EJECT F l : P****************************************************** F z : P* * F : P* EUA
0x468754…4688e8 Dummy {f00=0x0163, f01=0x0190, f02=»************************ F r P* REGISTERS G P* G 4 P* A1= RETURN CODE G > P* A2= CHAR. G X P* A3= RESERVED G l P* A4= RESERVED G P* A5= RESERVED G P* A6= RESERVED G P* A8= RESERVED G P* A9= RESERVED G P* A10= INDICATOR G P
0x4688e8…468a7c Dummy {f00=0x0163, f01=0x0190, f02=»********* G b PEUA EQU * H P LDK A1,IOEUA1 NEXT LABEL H $ P ST A1,UNPMOD,A11 H F P LDK A1,0 H ` P RF EUA900 FIRST BYTE H r ( PEUA100 EQU * ENTRY LABEL FROM RETTAB H P LC A7,CONATT,A2 CONVERT H P ANK A7,/3F H P SLL A7,6 H P LDK A
0x468a7c…468c10 Dummy {f00=0x0163, f01=0x0190, f02=»AB H n P LC A2,CONATT,A2 I P ANK A2,/3F I " P ORR A7,A2 I 6 P LDK A1,IORDER NEXT LABEL I H P ST A1,UNPMOD,A11 I j P LDR A1,A7 RESTORE ADDR. =6 I " P CWK A1,LBVDU INVALID ADDRESS? I P RF(NL) EUA800 YES I P LDR A2,A1 SAVE A1 =6 I P L
0x468c10…468da4 Dummy {f00=0x0163, f01=0x018e, f02=» ( P SUKL A14,2 ADJUST STACK POINTER =5 J * P CF A14,ERASUA ERASE UNPRO. TO ADDRESS J 0 ( P ADKL A14,2 ADJUST STACK POINTER =5 J ^ ( P LDR* A8,A14 RESTORE DCBF-POINTER =5 J P LDK A1,0 RETURN CODE J & P ORKL A10,PTORD INDICATE PT ORDER J P RF EUA900
0x468da4…468f38 Dummy {f00=0x0163, f01=0x0190, f02=» < P******************************************************** K < P* * K D < P* CHAR. < /20 BUT NOT ORDER * K < P* * K < P****
0x468f38…4690cc Dummy {f00=0x0163, f01=0x018e, f02=»* A3= ADDRESS IN VDU-BUFFER K P* A4= REL. CURSOR POS. L $ P* A5= RESERVED L B $ P* A6= INTERNAL LINE FLAG ADDRESS L X P* A8= RESERVED L P* A9= RESERVED L P* A10= INDICATOR L P* A11= CREDIT WORK AREA L P* A12= RESERVED L P* A13= RESER
0x4690cc…469260 Dummy {f00=0x0163, f01=0x0190, f02=» P LDK A1,1 STOP ORDER PROCESS M P RF CHARET M ( PINVAL EQU * M : " P ORKL A10,/9800 END UNPACKING M N P LDK A1,1 M t P RF CHARET M PNULCHA EQU * M PNL EQU * M PFF EQU * M PEM EQU * M PCR EQU * M P CF A14,LINWRP CHECK WRAP M
0x469260…4693f4 (10, 99) Dummy {f00=0x0163, f01=0x0190, f02=» M n P ADK A3,1 N P ADK A4,1 N P LDK A1,0 CONTINUE N , PCHARET EQU * N F P RTN A14 N Z P EJECT N j D P**************************************************************** N x D P* * N D P
0x4693f4…469588 Dummy {f00=0x0163, f01=0x0190, f02=» N P D P**************************************************************** O P* REGISTERS O P P* O d P* A2= CHAR O n P* A3= ADDRESS IN VDU-BUFFER O P* A4= REL. CURSOR POS. O P* A5= RESERVED O P* A6= RESERVED O P* A8= ADDRESS IN DC-BUFFER
0x469588…46971c Dummy {f00=0x0163, f01=0x0190, f02=»*************************************************************** O PPACKSY EQU * P H P IFT SNA=1 P P LDKL A9,0 COUNTER P n $ P LD A3,CURPOS,A11 GET START POS. P & P CWK A3,/800 ANY CHAR. ON DISPLAY? P P RF(E) PASY40 NO P * P CF A14,SCRINF GET SCR
0x46971c…4698b0 Dummy {f00=0x0163, f01=0x0190, f02=» LAST POS. ON SCREEN P P SUR A1,A3 GET LENGTH AGAIN Q PPASY10 EQU * Q @ P CWK A1,256 ILLEGAL LENGTH? Q T P RF(NG) PASY20 NO Q x P LDKL A1,256 ADJUST LENGTH Q PPASY20 EQU * Q P ADKL A3,BVDU Q P ADR A3,A11 Q PPASY30 EQU * Q P C
0x4698b0…469a44 Dummy {f00=0x0163, f01=0x0190, f02=»AR.? Q | " P RB(E) PASY30 YES, DON'T STORE R * P CF A14,PDCCH STORE CHAR. IN DC BUFFER R 2 P RB PASY30 R ` PPASY40 EQU * R r $ P LDK A1,0 INDICATE LAST IN CHAIN R P CF A14,DCWRIT SEND BUFFER R & P LDR A8,A12 GET BUFFER TO RELEASE R " P CF A14,RELBUF
0x469a44…469bd8 Dummy {f00=0x0163, f01=0x0190, f02=»* * R B P* UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * S F B P* * S B P******************************************************
0x469bd8…469d6c Dummy {f00=0x0163, f01=0x0190, f02=»= LAST IN ROW REL POS S $ P* A6= INTERNAL LINE FLAG ADDRESS T P* A8= ADDRESS IN DC-BUFFER T F P* A9= INDEX IN DC-BUFFER T h P* A10= INDICATOR T P* A11= CREDIT WORK AREA T P* A12= RESERVED T P* A13= RESERVED T P* T B P**************
0x469d6c…469f00 Dummy {f00=0x0163, f01=0x0190, f02=» ST A1,KBINH,A11 T P CF A14,LMP4ON U * P CF A14,SCRINF GET SCREEN INFORMATION U . P LDR A3,A4 CURSOR ADDRESS U P ADKL A3,BVDU U ~ " P ADR A3,A11 VDU BUFFER ADDRESS U , P LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS U " P SUR A9,A9 INDEX IN DC BUFFER
0x469f00…46a094 (10, 100) Dummy {f00=0x0164, f01=0x0190, f02=»IN DC BUFFER U x P LDR A1,A1 ANYTHING LEFT? V P RF(NZ) UNPS60 NO V 8 P CWK A2,/31 BIND? V R P RF(E) UNPS50 YES,PERHAPS V l PUNPS07 EQU * V P CWK A2,/20 ORDER? V P RF(NL) UNPS40 NO V P CWK A2,/0A NEW LINE? V P RF(NE) UNPS10 NO V
0x46a094…46a228 Dummy {f00=0x0164, f01=0x0190, f02=»DK A2,/2A REPLACE WITH * V P RF UNPS40 W PUNPS20 EQU * W 2 P CWK A2,/1E IRS? W F P RF(NE) UNPS30 NO W ^ P LDK A2,/3B REPLACE WITH ; W x P RF UNPS40 W PUNPS30 EQU * W P CWK A2,NULL NULL? W P RF(NE) UNPS40 NO W " P LDK A2,/20 REPLACE
0x46a228…46a3bc Dummy {f00=0x0164, f01=0x0190, f02=»RK A1,1 W P SC A1,LINFLG,A6 X P ADK A3,1 X ( P ADK A4,1 X : P RB UNPS05 X L PUNPS50 EQU * X ^ P CF A14,GDCCH X r P ANK A2,/FE SHURE OF BIND? X P RF(Z) UNPS55 ALMOST X P SUKL A8,2 X P SUKL A9,2 X P CF A14,GDCCH X P RB UNPS
0x46a3bc…46a550 Dummy {f00=0x0164, f01=0x0190, f02=» P LDKL A10,1 NO DISPLAY Y P RF UNPS70 Y " PUNPS60 EQU * Y 4 P LDKL A5,LBVDU+1 Y H P LDK A6,0 Y ` . P CF A14,STOINF SAVE NEW SCREEN INFORMATION Y r P LDKL A10,0 Y PUNPS70 EQU * Y , P LD A8,BUFPNT,A11 GET BUFFER TO RELEASE Y " P CF A14,RELB
0x46a550…46a6e4 Dummy {f00=0x0164, f01=0x018e, f02=»* * Y 4 P* GETNXT GET AND CHECK NEXT BUFFER Z D @ P* * Z | @ P************************************************************ Z P* R
0x46a6e4…46a878 Dummy {f00=0x0164, f01=0x0190, f02=» P* [ @ P************************************************************ [ PGETNXT EQU * [ R P IFT SNA=1 [ f * P CF A14,SAVE2 SAVE UNPACK INFORMATION [ x , P LD A8,BUFPNT,A11 GET BUFFER TO RELEASE [ " P CF A14,RELBUF RELEASE BUFFER [ P IFT DISHOW=
0x46a878…46aa0c Dummy {f00=0x0164, f01=0x0190, f02=» [ j P XIF P IFT SNA=1 PGETC10 EQU * & P CF A14,WAIT SYNCHRONIZE : " P LD A2,ECBEL,A8 SAVE LENGTH =4 Z P ST A2,DCLENG,A11 . =4 P LDR A9,A1 P CF A14,REST2 P LDR A1,A9 GET RETURN CODE ( P SRC A1,1 FIRST OR MODDLE IN CHA
0x46aa0c…46aba0 Dummy {f00=0x0164, f01=0x0190, f02=»C60 NO P LC A1,TCT01,A11 ] " P CCK A1,VDUCOD PRINTER UNPACK? ] & P RF(NE) GETC20 YES ] L 0 P CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE ] f PGETC20 EQU * ] ( P XRKL A10,LICREC RESET LAST IN CHAIN ] P ORKL A10,NEWCH NEW CHAIN ] P RF GETC60 ]
0x46aba0…46ad34 (10, 101) Dummy {f00=0x0164, f01=0x0190, f02=»AL STATUS ] z , P ORKL A10,LICREC LAST IN CHAIN RECEIVED ^ , P ANKL A1,LICREC LAST IN CHAIN RECEIVED? ^ B P RF(Z) GETC60 NO ^ r 0 P CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE ^ P ORKL A10,NEWCH NEW CHAIN ^ PGETC60 EQU * ^ * P ST A12,BUFPNT,A11 S
0x46ad34…46aec8 Dummy {f00=0x0164, f01=0x0190, f02=» ^ r $ P CF A14,READNW READ WITH NO WAIT _ , P CF A14,REST2 RESTORE UNPACK INFORMATION _ 0 P LDR A1,A10 _ ` P ANKL A1,NEWCH NEW CHAIN? _ t P RF(Z) GETC80 NO _ P IFT DISHOW=1 _ P XRKL A10,NEWCH RESET _ P LC A1,TCT01,A11 _ P CCK A1,VDUCOD
0x46aec8…46b05c Dummy {f00=0x0164, f01=0x0190, f02=» * _ P LDK A1,ICOMN1 NEXT LABEL ` P ST A1,UNPMOD,A11 ` , PGETC80 EQU * ` F P LD A8,BUFPNT,A11 ` Z P SUR A9,A9 ` t P LDK A1,0 RETUR N CODE ` PGETC90 EQU * ` P XIF ` P RTN A14 ` P EJECT ` B P**************************************
0x46b05c…46b1f0 Dummy {f00=0x0164, f01=0x0190, f02=» DC BUFFER * ` n B P* * a $ B P************************************************************* a j P* REGISTERS a P* a P* A1= RETURN CODE a P* A11= CREDIT WORK AREA a P
0x46b1f0…46b384 Dummy {f00=0x0164, f01=0x0190, f02=»QU * a P LDR A1,A1 SBA TO STORE? b P RF(N) PUTC10 YES b , $ P CWK A9,BUFFL+BUFFL BUFFER FULL? b F P RF(NL) PUTC20 YES b n P RF PUTC30 b PPUTC10 EQU * b P LDKL A1,BUFFL+BUFFL-3 b ( P SUR A1,A9 ROOM FOR SBA AND ADDRESS? b P RF(NN) PUTC30 Y
0x46b384…46b518 Dummy {f00=0x0164, f01=0x0190, f02=» CF A14,DCWRIT WRITE DC BUFFER b P LDR A9,A1 c & P CF A14,REST2 c 8 P LDR A9,A9 TRANSMISSION OK? c N P RF(NZ) PUTC90 NO c r P SUR A9,A9 BUFFER INDEX c P LDR A8,A12 BUFFER ADDRESS c P XIF c P IFF SNA=1 c P CF A14,ERROR c P LDKL
0x46b518…46b6ac Dummy {f00=0x0164, f01=0x0190, f02=» P LDK A1,0 RETURN CODE d PPUTC90 EQU * d " P RTN A14 d 6 P EJECT d F 6 P************************************************** d T 6 P* * d 6 P* PDCCH PUT CHAR. IN DC BUFFER * d 6 P*
0x46b6ac…46b840 Dummy {f00=0x0164, f01=0x0190, f02=» P* A2= CHAR. e P* A3= RESERVED e P* A4= RESERVED e . P* A5= RESERVED e D P* A6= RESERVED e Z P* A8= ADDRESS IN DC-BUFFER e p P* A9= DC-BUFFER INDEX e P* A10= INDICATOR e P* A11= RESERVED e P* A12= RESERVED e P* A13= RESERVED
0x46b840…46b9d4 (10, 102) Dummy {f00=0x0164, f01=0x0190, f02=» RF(NL) PDC100 YES e P ANK A2,/FF f P IFT EBCDIC=1 f . * P* CONVERSION DELETED * DK 82-03-30 * f D P XIF f r " P SCR A2,A8 STORE IN DC-BUFFER f ~ P ADKL A8,1 f P ADKL A9,1 f PPDC100 EQU * f P RTN A14 f P EJECT f D P**************
0x46b9d4…46bb68 Dummy {f00=0x0164, f01=0x0190, f02=» GDCCH GET CHAR. IN DC BUFFER * f D P* * g B D P*************************************************************** g P* REGISTERS g P* g P* A1= RETURN CODE g
0x46bb68…46bcfc Dummy {f00=0x0164, f01=0x0190, f02=»S IN DC-BUFFER g P* A9= DC-BUFFER INDEX h P* A10= INDICATOR h 4 P* A11= CREDIT WORK AREA h L P* A12= RESERVED h l P* A13= RESERVED h P* h 8 P**************************************************** h PGDCCH EQU * h P LDK A1,1 PRESET E
0x46bcfc…46be90 Dummy {f00=0x0164, f01=0x0190, f02=»F h P IFT EBCDIC=1 i 4 P* EBCDIC-ASCII CONVERSION DELETED PR. 8625,DK* i P XIF i X P ADKL A8,1 i d P ADKL A9,1 i v PGDCC90 EQU * i P RTN A14 i P EJECT i @ P*********************************************************** i @ P*
0x46be90…46c024 Dummy {f00=0x0164, f01=0x0190, f02=» * i @ P*********************************************************** j : P* REGISTERS j ~ P* j P* A2= AID j P* A11= RESERVED j P* A13= RESERVED j P* j > P********************************
0x46c024…46c1b8 Dummy {f00=0x0164, f01=0x018e, f02=»************************************ j z > P* * k , > P* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER * k n > P* * k > P**********************
0x46c1b8…46c34c Dummy {f00=0x0164, f01=0x0190, f02=» P* A5= RESERVED l P* A6= RESERVED l P* A8= RESERVED l 0 P* A9= RESERVED l F P* A10= RESERVED l P* A11= RESERVED l t P* A12= RESERVED l P* A13= RESERVED l P* l > P********************************************************** l P
0x46c34c…46c4e0 Dummy {f00=0x0164, f01=0x0190, f02=»A14,PDCCH STORE IN DC-BUFFER l P LDR A2,A1 GET REL. POS. m $ P ANK A2,/3F m D & P LC A2,CONADR,A2 CONVERT TO ASCII m X $ P CF A14,PDCCH STORE IN DC-BUFFER m P RTN A14 m P EJECT m @ P************************************************************ m
0x46c4e0…46c674 (10, 103) Dummy {f00=0x0164, f01=0x0190, f02=» @ P* * n @ P************************************************************ n H P* REGISTERS n P* n P* A2= CHAR. n P* A3= ADDRESS IN VDU-BUFFER n P* A4= RESERVED n P* A5= RESERVED n
0x46c674…46c808 Dummy {f00=0x0164, f01=0x0190, f02=»ESERVED n P* A13= RESERVED o P* o ( B P************************************************************* o 2 PRESMDT EQU * o x P LDK A1,0 FIRST SCREEN POS. o P LDKL A3,BVDU o P ADR A3,A11 o PRESM10 EQU * o P CWK A1,LBVDU ALL SCANNED?
0x46c808…46c99c Dummy {f00=0x0164, f01=0x0190, f02=»MDT-BIT o ~ P SCR A2,A3 RESTORE p PRESM20 EQU * p * P ADK A1,1 p > P ADK A3,1 p P P RB RESM10 p b PRESM90 EQU * p t P RTN A14 p P EJECT p < P******************************************************** p < P*
0x46c99c…46cb30 Dummy {f00=0x0164, f01=0x0190, f02=» * p < P******************************************************** q P* REGISTERS q L P* q ` P* A2= CHAR. q j P* A3= RESERVED q ~ P* A4= RESERVED q P* A5= RESERVED q P* A6= RESERVED q P* A8= RESERVED q P* A9= RESERVED q P* A10=
0x46cb30…46ccc4 Dummy {f00=0x0164, f01=0x0190, f02=»*********************** q t PP1WCC EQU * r P LC A2,CONATT,A2 IN EBCDIC r 4 P ST A2,WCC,A11 SAVE r V P ANK A2,1 RESET MDT-BITS? r r P RF(Z) P1W900 NO r & P CF A14,RESMDT RESET ALL MDT-BITS r PP1W900 EQU * r P RTN A14 r P EJECT r > P
0x46ccc4…46ce58 Dummy {f00=0x0164, f01=0x0190, f02=» P2WCC TAKE CARE OF WCC AFTER UPDATE * r > P* * s > > P********************************************************* s P* REGISTERS s P* s P* A11= CREDIT WORK AREA s P* A12= R
0x46ce58…46cfec Dummy {f00=0x0164, f01=0x0190, f02=» CF A14,SAVE2 KEEP IT AWAY =4 s P LD A1,WCC,A11 t & P LDR A7,A1 t < P ANK A7,4 SOUND? t N P RF(Z) P2W100 NO t f P CF A14,SOUND SOUND t ~ PP2W100 EQU * t P ANK A1,8 COPY? t P RF(Z) P2W300 NO t P LC A1,TCT01,A11 . =4 t P CCK A1,VDUC
0x46cfec…46d180 Dummy {f00=0x0164, f01=0x0190, f02=»4,COPP PRINT #8 t PP2W300 EQU * u " P CF A14,REST2 TAKE IT BACK =4 u , P RTN A14 u R P EJECT u b F P****************************************************************** u p F P* * u F P*
0x46d180…46d314 (10, 104) Dummy {f00=0x0165, f01=0x0190, f02=» u N F P****************************************************************** v P* REGISTERS v R P* v f P* A1= STACK POINTER v p P* A2= CHAR. v P* A3= VDU BUFFER ADDRESS v P* A4= REL CURSOR POS. v P* A5= REL STTRIBUTE POS. v P* A6= ATTR
0x46d314…46d4a8 Dummy {f00=0x0165, f01=0x018e, f02=» v D P**************************************************************** w PSAVE1 EQU * w P & P LDKL A1,STACK1 GET STACK ADDRESS w d P RF SAVE w PSAVE2 EQU * w P LDKL A1,STACK2 w PSAVE EQU * w P ADR A1,A11 w P STR A2,A1 w P ADK A
0x46d4a8…46d63c Dummy {f00=0x0165, f01=0x0190, f02=» P ADK A1,2 x P STR A7,A1 x P ADK A1,2 x ( P STR A10,A1 x : P RTN A14 x N P EJECT x ^ H P******************************************************************* x l H P* * x H P*
0x46d63c…46d7d0 Dummy {f00=0x0165, f01=0x0190, f02=» * x P H P******************************************************************* y P* REGISTERS y X P* y l P* A1= STACK POINTER y v P* A2= CHAR. y P* A3= VDU BUFFER ADDRESS y P* A4= REL. CURSOR POS. y P* A5= REL. ATTRIBUTE POS. y P*
0x46d7d0…46d964 Dummy {f00=0x0165, f01=0x0190, f02=» P* A13= RESERVED z P* z D P*************************************************************** z & PREST1 EQU * z n & P LDKL A1,STACK1 GET STACK ADDRESS z P RF RESTOR z PREST2 EQU * z P LDKL A1,STACK2 z PRESTOR EQU * z P ADR A1,A1
0x46d964…46daf8 Dummy {f00=0x0165, f01=0x0190, f02=» z P ADK A1,2 { P LDR* A6,A1 { P ADK A1,2 { . P LDR* A7,A1 { @ P ADK A1,2 { T P LDR* A10,A1 { f P RTN A14 { z P EJECT { < P******************************************************* { < P*
0x46daf8…46dc8c Dummy {f00=0x0165, f01=0x0190, f02=» { X < P******************************************************* | PBUFFER EQU * | H P DATA *+2 POINTER FIRST FREE | P IFF BUFFNR=1 | P DATA *+LINK | P RES BUFFL | P IFF BUFFNR=2 | P DATA *+LINK | P RES BUFFL | P IFF BUFFNR=3 |
0x46dc8c…46de20 Dummy {f00=0x0165, f01=0x0190, f02=»NK | P RES BUFFL } P IFF BUFFNR=6 } P DATA *+LINK } 2 P RES BUFFL } F P IFF BUFFNR=7 } X P DATA *+LINK } n P RES BUFFL } P IFF BUFFNR=8 } P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=9 } P DATA *+LINK } P RES BUFFL }
0x46de20…46dfb4 (10, 105) Dummy {f00=0x0165, f01=0x0190, f02=»12 } P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=13 ~ 0 P DATA *+LINK ~ F P RES BUFFL ~ Z P IFF BUFFNR=14 ~ l P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=15 ~ P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=16 ~ P DATA *+LINK ~
0x46dfb4…46e148 Dummy {f00=0x0165, f01=0x0190, f02=» ~ P IFF BUFFNR=19 P DATA *+LINK P RES BUFFL 2 P IFF BUFFNR=20 D P DATA *+LINK Z P RES BUFFL n P IFF BUFFNR=21 P DATA *+LINK P RES BUFFL P IFF BUFFNR=22 P DATA *+LINK P RES BUFFL P IFF BUFFNR=23
0x46e148…46e2dc Dummy {f00=0x0165, f01=0x0190, f02=»NK P RES BUFFL P IFF BUFFNR=26 P DATA *+LINK 2 P RES BUFFL F P IFF BUFFNR=27 X P DATA *+LINK n P RES BUFFL P IFF BUFFNR=28 P DATA *+LINK P RES BUFFL P IFF BUFFNR=29 P DATA *+LINK P RES BUFFL
0x46e2dc…46e470 Dummy {f00=0x0165, f01=0x0190, f02=»32 P DATA *+LINK P RES BUFFL P XIF 0 P DATA 0 < P RES BUFFL L P EJECT ^ < P******************************************************* l < P* * < P* GETBUF GET BU
0x46e470…46e604 Dummy {f00=0x0165, f01=0x0190, f02=»******************* l P* REGISTERS P* 0 P* A8= DC-BUFFER ADDRESS : P* A9= INDEX IN DC-BUFFER Z P* A11= RESERVED z P* A12= BUFFER ADDRESS P* A13= RESERVED P* < P******************************************************
0x46e604…46e798 Dummy {f00=0x0165, f01=0x0190, f02=» P DATA 0 SWITCH TASK P RB GETB10 PGETB90 EQU * 2 P LDR* A1,A8 F P STR A1,A7 Z P ADKL A8,2 l P LDR A12,A8 ~ P SUR A9,A9 P RTN A14 P EJECT > P********************************************************* > P*
0x46e798…46e92c Dummy {f00=0x0165, f01=0x018e, f02=» * > P********************************************************* : P* REGISTERS | P* P* A8= BUFFER ADDRESS P* A11= RESERVED P* A13= RESERVED P* > P************************
0x46e92c…46eac0 Dummy {f00=0x0165, f01=0x40b0, f02=» P LDR* A1,A7 P RF(Z) RELB90 P LDR A7,A1 . P RB RELB10 @ PRELB90 EQU * R P STR A8,A7 f P CMR A8 x P RTN A14 P P END @ P* A11= RESERVED P* A13= RESERVED P* > P************************
0x46eac0…46ec54 (10, 106) Dummy {f00=0x0165, f01=0x2008, f02=»
0x46ec54…46ede8 Dummy {f00=0x0165, f01=0x0190, f02=»M BUFFER n p " P LDR A1,A1 CHECK RETURN STATUS o , P RF(N) CI100 BUFFER EMPTY, WAIT FOR NEXT o 6 P LDR* A4,A15 POP A4 o f & P RF CI110 RETURN TO DEVICE DRIVER o P* o P* o PCI100 EQU * o P LDR* A4,A15 POP A4 o * P LDK A2,DWFINP FLAG "INP
0x46ede8…46ef7c Dummy {f00=0x0165, f01=0x0190, f02=»CAL DISPATCHER o P* p P* p : P* ENTRY IS MADE HERE WHEN A NEW BUFFER HAS ARRIVED p * P* REGISTERS ON ENTRY: p h , P* A1 = NR OF CHARACTERS LEFT IN BUFFER p P* A2 = BITS 0-7 ZERO p P* BITS 8-15 CHARACTER p P* A4 = BUFFER A
0x46ef7c…46f110 Dummy {f00=0x0165, f01=0x0190, f02=»TST,A6 RESET FLAG p ( P ST A4,DWTLD1,A6 LINK BUFFER TO DWT q P* q F , P CF A15,NDGET8 GET A3-A5, A7-A8 FROM DWT q P P* q P EJECT q P* q PCI110 EQU * q P* RETURN TO DEVICE DRIVER q ( P LDR A1,A1 ANY CHAR LEFT IN BUFFER? q P R
0x46f110…46f2a4 Dummy {f00=0x0165, f01=0x0190, f02=»UNLINK BUFFER q PCI130 EQU * r P ENB r * P RTN A5 r 6 P* r F P EJECT r P P* r ^ @ P************************************************************ r h P* r P* ROUTINE NAME: r P* PLSTBL r P* r P* FUNCTION: r 4 P* THIS ROUTI
0x46f2a4…46f438 Dummy {f00=0x0165, f01=0x0190, f02=»: r P* ABI STBTAB,A1 s P* CF A5,PLSTBL s " P* s 8 P* INPUT: s B 4 P* A2 = MAXIMAL LENGTH OF TEXT IN BLOCK (BYTES) s R P* A6 = DWT ADDRESS s P* s P* OUTPUT: s P* AT RETURN TO DEVICE DRIVER s P* A1 = RETURN CODE s P* 0 I
0x46f438…46f5cc Dummy {f00=0x0165, f01=0x0190, f02=»D s P* t @ P************************************************************ t P* t X PPLSTBL EQU * t b PPRSTBL EQU * t v P ENB t , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT t $ P CF A15,GETCWT A5 := CWT ADDRESS t P* t P EJECT t P*
0x46f5cc…46f760 Dummy {f00=0x0165, f01=0x0190, f02=» t n P RF(NZ) SBERR2 ERROR, RETURN u P* u , P* CHECK LEVEL 3 WINDOW u 6 $ P LDR A3,A2 SAVE MAX BLOCK LENGTH u X P LD A1,DWTST,A6 DWT STATUS u 0 P ANKL A1,DWFECH+DWFTY1 ECHO OR ONLY TYPE 1? u * P RF(NZ) SB090 YES, DON'T CHECK WINDOW u 2 P CF
0x46f760…470400 (11, 0) DirGranule ((11, 0)) {
0x46f760…470400 DirEnt {nam=»IMPROV«, typ=»E «, f00=0x0000, f01=0x0000, f02=0x2d00, f03=0x0000}
0x46f760…470400 DirEnt {nam=»DRDY02«, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x2d08, f03=0x0008}
0x46f760…470400 DirEnt {nam=»DRPL01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2d90, f03=0x0000}
0x46f760…470400 }
0x470400…470594 (11, 1) Opaque[0x194]
0x470594…470728 # DirEnt {nam=»DRDY02«, typ=»SC«, f00=0x019a, f01=0x0196, f02=0x2d08, f03=0x0008}
0x470594…470728 IdxSect {
0x470594…470728 f00 = 0x0168 // 0x470594 @0x0
0x470594…470728 f01 = 0x0022 // 0x470596 @0x2
0x470594…470728 gno = [ // 0x470598 @0x4
0x470594…470728 [0x00]: C0x0168.0x1.0
0x470594…470728 [0x01]: C0x0168.0x2.0
0x470594…470728 [0x02]: C0x0168.0x3.0
0x470594…470728 [0x03]: C0x0169.0x0.0
0x470594…470728 [0x04]: C0x0169.0x1.0
0x470594…470728 [0x05]: C0x0169.0x2.0
0x470594…470728 [0x06]: C0x0169.0x3.0
0x470594…470728 [0x07]: C0x016a.0x0.0
0x470594…470728 [0x08]: C0x016a.0x1.0
0x470594…470728 [0x09]: C0x016a.0x2.0
0x470594…470728 [0x0a]: C0x016a.0x3.0
0x470594…470728 [0x0b]: C0x016b.0x0.0
0x470594…470728 [0x0c]: C0x016b.0x1.0
0x470594…470728 [0x0d]: C0x016b.0x2.0
0x470594…470728 [0x0e]: C0x016b.0x3.0
0x470594…470728 [0x0f]: C0x016c.0x0.0
0x470594…470728 [0x10]: C0x016c.0x1.0
0x470594…470728 ]
0x470594…470728 }
0x470728…4708bc Dummy {f00=0x0168, f01=0x0190, f02=» 2 P IDENT DRDY02 REL 11.1 82-08-20 870105041110 P : 6 P =14,BLOCKING OF REQUESTS,CW NOT CLEARED IF ERR. B P =14,REL 11.1 82-04-06 | : P =13 ERRORCHECK IN ECHO AND END OF ECHOING CORRECTED P REL 11.1 82-02-12 4 P =12 A5 DESTROYE
0x4708bc…470a50 Dummy {f00=0x0168, f01=0x0190, f02=»ECOVERY IN ECHO MODE IMPLEMENTED P REL 11.0 81-12-09 ( 0 P =10 ECBRL DESTROYED BY ORDER 05 IF X:E=1 D P REL 11.0 81-09-30 x 6 P =9 ERR. FOR 6342/51 AND EMPTY BLOCK IN ORD. /05 : P CHAR. CHECK AT FAST OUTPUT. ULINE&LOWINT ON 6387
0x470a50…470be4 Dummy {f00=0x0168, f01=0x018e, f02=»D87 IMPLEMENTED z P REL 11.0 81-06-30 D P = 6 "SUPPRESSION OF TRAILING BLANKS" REMOVED FROM BASIC WRITE 4 P REL 11.0 81-06-24 | . P = 5 SUPPRESSION OF TABULATION CORRECTED P REL 11.0 81-05-24 8 P = 4 GREEK CHARACTER SET HANDLIN
0x470be4…470d78 Dummy {f00=0x0168, f01=0x0190, f02=» z 4 P = 2 ECB-ADDRESS CHECKED IF LRC-ERROR OCCURED P REL 11.0 81-02-13 @ 0 P = 1 ECB-ADDRESS CHECKED IN ERROR-ROUTINE P REL 11.0 81-02-03 P* @ P************************************************************ P* P*
0x470d78…470f0c Dummy {f00=0x0168, f01=0x0190, f02=»****************************************************** P* > 0 P* THIS DRIVER HANDLES OUTPUT TO THE VIDEO H 0 P* DISPLAYS PTS 6342, 6344, 6346 AND TO THE | * P* DISPLAYS PTS 6351, 6385 AND 6386. 2 P* THE DRIVER INCLUDES DEVICE DEPENDENT E
0x470f0c…4710a0 Dummy {f00=0x0168, f01=0x0190, f02=»* P* * P* THE FOLLOWING ORDERS ARE TREATED : P* B P* ORDER 00 TEST STATUS L P* 05 BASIC WRITE p " P* 06 STANDARD WRITE ( P* 0B SET CURSOR AND WRITE P* 31 ERASE P*
0x4710a0…471234 (11, 2) Dummy {f00=0x0168, f01=0x0190, f02=»REGISTER A1 = RETURN CODE * P* A2 = OUTPUT CHARACTER $ & P* A3 = BUFFER INDEX R * P* A4 = WORKING REGISTER | $ P* A5 = STACK BASE $ P* A6 = DWT-ADDRESS P*
0x471234…4713c8 Dummy {f00=0x0168, f01=0x0190, f02=»ESS TO ADDRESSBLOCK P* P* & P* EXTERNALS 0 P* F P* P P* TOSS ROUTINES Z P* t $ P EXTRN LENDER I/O-REQUEST ERROR ~ " P EXTRN LENDIS END I/O-REQUEST P EXTRN STABLK START OF BLOCK P EXTRN OUTPUT SEND
0x4713c8…47155c Dummy {f00=0x0168, f01=0x0190, f02=» TENDIO END OF I/O P EXTRN SETIME TIMER ROUTINE P EXTRN LDISP DISPATCH > P* P* DWT DISPLACEMENTS f P* , P EXTRN DWTCHP CHANNEL PARAMETER WORD =14 ( P EXTRN DWTDEV TERMINAL DEVICE STATUS P EXTRN DWTST DEVICE STATUS
0x47155c…4716f0 Dummy {f00=0x0168, f01=0x0190, f02=»ESS x " P EXTRN ECBRL REQUESTED LENGTH " P EXTRN ECBEL EFFECTIVE LENGTH 2 P EXTRN ECBRC RETURN CODE X P EXTRN ECBCW CONTROL WORD x P* @ P************************************************************ P* P* CONSTANTS P
0x4716f0…471884 Dummy {f00=0x0168, f01=0x0190, f02=»U /2 HEAD POSITION POINTER " PDWTBC EQU /1 POSITION COUNTER " PDWTLIN EQU /4 LINES H PDWTPOS EQU /5 POSITIONS d & PDWTBLC EQU /6 CHARACTERS IN BLOCK PDWTTP EQU /8 TIMER POINTER P* P* CHARACTERS P* PDUMMY EQU /3 D
0x471884…471a18 Dummy {f00=0x0168, f01=0x0190, f02=» EQU /0C CLEAR AND CURSOR HOME PCR EQU /0D CARRIAGE RETURN & PCURRIG EQU /10 CURSOR RIGHT H $ PSCADD EQU /11 SET CURSOR ADDRESS l " PULSTOP EQU /13 UNDERLINE STOP PFASOUT EQU /14 FAST OUTPUT PSTILL EQU /18 CURSOR STEADY $ PCTYCOD E
0x471a18…471bac Dummy {f00=0x0168, f01=0x0190, f02=»* " PCCERR EQU /4 CODE CHECK ERROR P* 0 P* OTHER : P* L PMINBLK EQU 6 BLOCK SIZE V @ PFASTNR EQU 6 LEAST NUMBER OF CHARS TO SEND WITH FAST OUTPUT v PTIME EQU 1 P* @ P**************************************************
0x471bac…471d40 Dummy {f00=0x0168, f01=0x0190, f02=»A DVBLEN BUFFER LENGTH P DATA 2 DEVICE INDEX PDYAD EQU * : ( P DATA ACDY DRIVER ACTIVATION ADDRESS L P DATA ABDY ABORT ROUTINE x P DATA 0 NO INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE P DATA ECHODY ECHO ROUTINE P*
0x471d40…471ed4 (11, 3) Dummy {f00=0x0168, f01=0x0190, f02=»************************************************ P* 8 4 P* IF THE CONSTANT X:A IS SET TO 1, FAST OUTPUT B < P* WILL BE USED IF A NUMBER (SEE THE CONSTANT "FASTNR") z 8 P* OF CONSECUTIVE CHARACTERS IN THE ECB-BUFFER ARE P* FOUND EQUAL.
0x471ed4…472068 Dummy {f00=0x0168, f01=0x0190, f02=»PTS 6344 T P* 6346, 6385 AND 6386. P* 0 PX:B EQU 0 : PWHATDY EQU X:B L P* b P* l 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR v & P* (COLUMNS 6 AND 7) CAN BE USED PX:C EQU 1 PLOWCHA EQU X:C P*
0x472068…4721fc Dummy {f00=0x0168, f01=0x018e, f02=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 P* < PX:D EQU 0 F PEORECH EQU X:D X P* n 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS x T P* POSSIBLE TO SUPPRESS TRAILING BLANKS, TABULATIONS, /1E AND /1F. (NOT BASIC W P*
0x4721fc…472390 Dummy {f00=0x0168, f01=0x0190, f02=» v P* PX:F EQU 1 PSTEADY EQU X:F $ P* : 4 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POS- D . P* SIBLE TO CHOOSE BETWEEN TEN DIFFERENT | , P* CHARACTER SETS, IF PTS 6385 IS USED. P* P* CODE COUNTRY P* 0 GB/NL/
0x472390…472524 Dummy {f00=0x0168, f01=0x0190, f02=» P* 9 US PX:G EQU 0 PCOUNTRY EQU X:G $ P* < & P* MEMORY MANAGEMENT BUFFER SIZE F P* p PX:H EQU 82 z PDVBLEN EQU X:H P* P* MAXIMUM BLOCK SIZE P* PX:J EQU 140 PMAXBLK EQU X:J P* L P
0x472524…4726b8 Dummy {f00=0x0168, f01=0x0190, f02=» 2 P* IF X:K = 1 IT IS POSSIBLE TO USE GREEK =4 P* CHARACTER SET =4 : P* X PX:K EQU 0 =4 b PGREECE EQU X:K =4 x P* 4 P* IF DISPLAY VD 87 IS USED, X:L SHOULD BE 1 =7 8 P* THE WORD DWTDEV IN THE DISPLAY-DWT SHOULD BE SET
0x4726b8…47284c Dummy {f00=0x0168, f01=0x0190, f02=» : P***************************************************** P* B & P* A C T I V A T I O N P A R T L P* v 4 P* THIS PART MAKES A START OF BLOCK, CHECKS THE 8 P* REQUESTED ORDER AND BRANCHES TO THE APPROPRIATE P* PART OF THE DRIV
0x47284c…4729e0 Dummy {f00=0x0168, f01=0x018e, f02=» INDEX z P* $ P* CHECK IF BLOCKING ORDER =14 P* @ P LDR A2,A7 GET ORDER =14 J " P SUK A2,/3D START WRITE ? =14 j P ABL(Z) DY760 YES ! =14 P SUK A2,1 STOP WRITE ? =14 P ABL(Z) DY780 YES ! =14 P* 0 P CM DWTBLC+D
0x4729e0…472b74 (11, 4) Dummy {f00=0x0169, f01=0x018e, f02=» P* P* TEST ORDER P* $ P LDR A7,A7 GET ORDER . & P RF(Z) DY100 ORDER 00, TEST STATUS J P* t P SUK A7,/5 ~ & P RF(Z) DY200 ORDER 05, BASIC WRITE P* P SUK A7,1 ( P RF(Z) DY300 ORDER 06,STANDARD WRITE P*
0x472b74…472d08 Dummy {f00=0x0169, f01=0x0190, f02=» p P IFT VD87=1 =7 P ADK A7,/A 0 P ABL(Z) ORD27 ORDER /27, TRANSFER PARAMETERS 2 P XIF f P* r P* I/O-REQUEST ERROR | P* P CF A5,ENDBLK END OF BLOCK , P ABL LENDER SET RETURN CODE AND END I/O P EJECT P*
0x472d08…472e9c Dummy {f00=0x0169, f01=0x018e, f02=»S A DUMMY CHARACTER TO THE DISPLAY ~ : P* AND SETS BIT 15 IN THE RETURN CODE IF THE DISPLAY * P* IS NOT OPERABLE. h : P* THE CURSOR POSITION IS RETURNED IN CONTROL WORD OF 8 P* ECB, WITH LINE NUMBER IN LEFT BYTE AND COLUMN IN P* THE RI
0x472e9c…473030 Dummy {f00=0x0169, f01=0x0190, f02=» P CF A5,OUTPUT SEND DUMMY P RF(NZ) DYER10 ( P* > . P LD A4,DWTAP+DWTDEV,A6 GET CURSOR POSITION H 0 P ST A4,ECBCW,A8 SAVE CURSOR POSITION IN ECB z P* P ABL ENDIO P EJECT P* @ P**************************************
0x473030…4731c4 Dummy {f00=0x0169, f01=0x0190, f02=»TERS TO THE DISPLAY AND SETS THE 0 P* INTERNAL CURSOR POSITION COUNTER TO HOME ( P* POSITION. (/0101) P* z @ P************************************************************ P* PDY200 EQU * 2 P CF A15,GETCHR FETCH CHARACTER FRO
0x4731c4…473358 Dummy {f00=0x0169, f01=0x018e, f02=» =4 P XIF P* & P CF A5,OUTPUT YES ! SEND CHARACTER " P RF(NZ) DYER05 L P* b * P CF A15,POSUPD UPDATE POSITION COUNTER l P* 4 P* CHECK IF MAX. BLOCKSIZE IS REACHED. START A P* NEW BLOCK IF IT IS. P* 4 P I
0x473358…4734ec Dummy {f00=0x0169, f01=0x0190, f02=» P* $ P RB(G) DY200 NO ! NEXT CHARACTER P* 6 $ P CF A15,GETCHR MORE TO SEND ? =9 @ P LDR A1,A1 =9 h P RF(NP) DY210 NO ! =9 ~ $ P SUK A3,1 DECR. CHAR. COUNTER =9 P* " P CF A5,ENDBLK YES ! END BLOCK P RF(NZ) DYER05 "
0x4734ec…473680 Dummy {f00=0x0169, f01=0x0190, f02=» COUNTER l P RB DY200 NEXT CHARACTER P* 0 PDY210 EQU * : * P CF A15,UPDAPP RESET POSITION COUNTER N P* | , P LDKL A4,/0101 SET HEAD POSITION COUNTER 4 P ST A4,DWTAP+DWTDEV,A6 TO HOME POSITION. (/0101) : P CM DWTBLC+DWTDEV,A6 RESET
0x473680…473814 (11, 5) Dummy {f00=0x0169, f01=0x0190, f02=» CHARACTERS-IN-BLOCK COUNTER BEFORE v ( P RF DYER10 ERROR ROUTINE IS ENTERED , P EJECT X P* f @ P************************************************************ p P* " P* ORDER 06, STANDARD WRITE. : P* THIS PART CHECKS IF THE REQUESTE
0x473814…4739a8 Dummy {f00=0x0169, f01=0x0190, f02=»SE THIS PART LOOKS FOR A CONTROL CHARACTER IN THE FIRST WORD @ P* IN THE ECB-BUFFER AND CARRIES OUT THE DESIRED FUNCTION. D < P* THEN IT CHECKS AND SENDS THE REST OF THE CHARACTERS : P* IN THE ECB-BUFFER TO THE DISPLAY UNLESS A SPECIAL L P*
0x4739a8…473b3c Dummy {f00=0x0169, f01=0x0190, f02=»ION V 6 P* IS CARRIED OUT BEFORE NEXT CHARACTER IS SENT. < P* WHEN ALL CHARACTERS ARE SENT, THE CURSOR POSITION IS F * P* SAVED IN THE CONTROL WORD OF ECB. P* @ P************************************************************ P*
0x473b3c…473cd0 Dummy {f00=0x0169, f01=0x0190, f02=» RF(Z) DY307 YES ! P* ! P* TEST CONTROL CHARACTER ! $ P* ! F & P LD A2,ECBBA,A8 GET BUFFER ADDRESS ! P & P LC A2,1,A2 GET CONTROL CHARACTER ! z P ANK A2,/FF ! $ P ADK A3,2 INCREMENT BUFFER INDEX ! P* ! P SUK A2,/2B ! $ P RF(Z) DY3
0x473cd0…473e64 Dummy {f00=0x0169, f01=0x018e, f02=» RESET HEAD POSITION COUNTER ! x P* " $ P SUK A2,/5 TWO LINE FEED ? " . P RF(NZ) DY310 NO ! " P * P LDK A4,2 YES ! INDICATE TWO LINE FEED " j P* " PDY310 EQU * " P SUK A2,1 ERASE ? " 4 P RF(Z) DY330 YES ! CONTROL CHARACTER MEANS ERASE " P
0x473e64…473ff8 Dummy {f00=0x0169, f01=0x0190, f02=» P SUK A4,1 READY ? # 0 P RF(N) DY335 YES ! START WRITING ON DISPLAY # P* # R < P LC A1,DWTLIN+DWTDEV,A6 MAX. NUMBER OF LINES ON DISPLAY # 2 P CC A1,DWTAP+DWTDEV,A6 ALREADY ON LAST LINE ? # P RF(NG) DY325 YES ! # P* # . P LDKL A2,/100 NO
0x473ff8…47418c Dummy {f00=0x0169, f01=0x0190, f02=»ND NEXT LINE FEED # P* $ PDY330 EQU * $ $ . P SC A4,DWTAP+DWTDEV,A6 RESET LINE COUNTER $ 8 ( P LDK A2,CLEHOM CLEAR AND CURSOR HOME $ j 2 P LDK A4,0 INDICATE ONLY ONE CHARACTER TO SEND $ P RB DY320 SEND $ P EJECT $ P* $ P* $ 8 P*
0x47418c…474320 Dummy {f00=0x0169, f01=0x0190, f02=»RESS TRAILING SPACES $ ~ P XIF % PDY340 EQU * % ( 0 P CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER % < P* % p & P LDR A1,A1 ANY CHARACTER TO SEND ? % z P ABL(NP) DY405 NO ! % P IFT GREECE=1 =4 % P CF A15,GRCHAR =4 % P XIF % P* %
0x474320…4744b4 (11, 6) Dummy {f00=0x0169, f01=0x0190, f02=» TEST IF SPECIAL CHARACTER % P IFT FASTO=1 & " P IFT WHATDY=1 & 6 6 P LDK A4,0 RESET A4 BEFORE ENTERING THE OUTPUT SEQ. & L * P LD A1,DWTDEV,A6 6344, 6385 OR 6386 ? & P ANKL A1,/1000 & P RF(NZ) FAST80 NO ! & P XIF & P IFT FASTO=1 & P*
0x4744b4…474648 Dummy {f00=0x0169, f01=0x0190, f02=»A1,ECBBA,A8 GET BUFFER ADDRESS & P ADR A1,A3 ADD BUFFER INDEX ' & P* ' J P* ' T 4 P LC A4,DWTBC+DWTDEV,A6 GET POSITION ON THE LINE ' ^ P AD A4,DWTAP+DWTDEV,A6 ' P ANK A4,/FF ' P* ' PFAST10 EQU * ' * P ADK A4,1 INCREMENT CHARACTER COUN
0x474648…4747dc Dummy {f00=0x0169, f01=0x018e, f02=» POSITIONS ? ' t P RF(NL) FAST40 YES ! ( P* ( 0 & P CW A3,ECBRL,A8 REQUESTED LENGTH ? ( : P RF(NL) FAST40 YES ! ( d P* ( P ADK A1,1 INCREMENT COUNTERS ( P ADK A3,1 ( $ P RB FAST10 CHECK NEXT CHARACTER ( P* ( PFAST40 EQU * ( : P L
0x4747dc…474970 Dummy {f00=0x0169, f01=0x0190, f02=» 6 P CWK A4,FASTNR COND. FOR FAST OUTPUT FULLFILLED ? ) P RF(L) FAST80 NO ! ) > P* ) X . P* YES ! SEND CHARACTERS WITH FAST OUTPUT ) b P* ) 4 P ADS A4,DWTBC+DWTDEV,A6 UPDATE POSITION COUNTER ) P* ) " P SLC A3,8 SAVE BUFFER POINTER ) P A
0x474970…474b04 Dummy {f00=0x0169, f01=0x018e, f02=»QU * ) P XIF * P IFT FASTO=1 * $ P LDR A3,A2 PUT CHARACTER INTO A3 * , P* * T P CF A5,FASTER * ^ P* * t & P LDR A3,A4 RESTORE BUFFER POINTER * ~ P SRL A3,8 * P* * . P LC A4,DWTBC+DWTDEV,A6 GET CURSOR POSITION * P ANK A4,/FF *
0x474b04…474c98 Dummy {f00=0x0169, f01=0x0190, f02=» P* + $ P IFT LOWCHA=0 LOWER CASE IS USED + P LDR A1,A2 + 6 P SUK A1,/5F + H P RF(NP) DY360 + P SUK A2,/20 + r PDY360 EQU * + P XIF + PDY370 EQU * + P CF A5,OUTPUT SEND CHARACTER + PDYER15 ABL(NZ) DYER20 + * P CF A15,POSU
0x474c98…474e2c Dummy {f00=0x0169, f01=0x0190, f02=» + P RF(NZ) FAST90 NO ! , P XIF , $ P IFT FASTO=1 , 0 * P SUK A4,1 DECREMENT CHARACTER COUNTER , D 2 P RB(NP) DY340 ALL CHECKED CHARS. SENT ! NEXT ! , r 0 P LD A2,ECBBA,A8 GET CHARACTER TO SEND AGAIN , P ADR A2,A3 , P LC A2,-1,A2 , P ANK A
0x474e2c…474fc0 Dummy {f00=0x0169, f01=0x0190, f02=»IAL CHARACTER , P* - PDY380 EQU * - P LDK A4,0 RESET A4 - 4 P LDR A1,A2 CHARACTER - N P* - j P SUK A1,/07 BELL ( /07 ) ? - t P RF(Z) DY467 YES ! SEND - P* - $ P SUK A1,/A TABULATION ( /11 ) ? - 2 P ABL(Z) ADY140 YES ! GO TO TABUL
0x474fc0…475154 (11, 7) Dummy {f00=0x0169, f01=0x0190, f02=»/9A POINT ( /AE ) ? - $ P RF(Z) DY410 YES ! LOAD AND SEND . P IFF WHATDY+PLASM=0 =4 . D 0 P LD A4,DWTDEV,A6 CHECK WHICH DISPLAY IS USED . d P RF(N) DY382 VD87 ! =9 . P ANKL A4,/3000 . * P RF(NZ) DY385 6342, 6351, 6385, 6386 ! . PDY382 EQU * =
0x475154…4752e8 Dummy {f00=0x0169, f01=0x0190, f02=»TOP ( /13 ) ? . z P RF(Z) DY467 YES ! / P* / 0 , P SUK A1,/B LOW INTENSITY START ( /1E) ? / : P RF(Z) DY467 YES ! / j P* / , P SUK A1,/1 LOW INTENSITY STOP ( /1F ) ? / P RF(Z) DY467 YES ! / P* / P* ILLEGAL CHARACTER / P* /
0x4752e8…47547c Dummy {f00=0x0169, f01=0x0190, f02=» P EJECT 0 P* 0 P* ROUTINE FOR FAST OUTPUT 0 P* 0 @ PDY390 EQU * 0 J P IFT TRASPA=1 0 ^ * P LD A4,ECBCW,A8 RESTORE OLD REQ. LEN. 0 t P ST A4,ECBRL,A8 0 P XIF 0 ( P CF A15,GETCHR GET OUTPUT CHARACTER 0 P* 0 $ P LD A4,ECBRL
0x47547c…475610 Dummy {f00=0x0169, f01=0x0190, f02=»F A15,GRCHAR =4 0 P XIF 1 P* 1 $ $ P LDR A3,A2 LOAD CHARACTER IN A3 1 . P SUK A2,/20 IS CHAR. OK ? =9 1 V P RB(N) DY385 NO ! =9 1 z P SUK A2,/5F =9 1 P RB(P) DY385 NO ! =9 1 P* 1 ( P CF A5,FASTER SEND WITH FAST OUTPUT 1 P* 1
0x475610…4757a4 Dummy {f00=0x0169, f01=0x0190, f02=» P* SEND A POINT 2 P* 2 PDY410 EQU * 2 & " P LDK A2,/2E GET CODE FOR POINT 2 : P RB DY370 SEND POINT 2 ` P* 2 | PDY467 EQU * 2 ( P CF A5,OUTPUT SEND SPECIAL CHARACTER 2 P RF(NZ) DYER20 NOT OK ! 2 P ABL DY340 NEXT CHARACTER ! 2
0x4757a4…475938 Dummy {f00=0x0169, f01=0x0190, f02=»**************************************************** 2 PADY140 EQU * 3 < , P CF A15,GETCHR GET FIRST ASCII CHARACTER 3 P P LDR A4,A2 3 . P CF A15,GETCHR GET SECOND ASCII CHARACTER 3 P ANK A2,/F 3 P ANK A4,/F 3 P RF(E) ADY144 3 0 PADY143 ADK
0x475938…475acc Dummy {f00=0x0169, f01=0x0190, f02=»ACT HEAD POSITION POINTER 3 P LC A4,DWTBC+DWTDEV,A6 4 " , P SUR A2,A4 AND REQUESTS POSITION COUNTER 4 @ & P TO GET NUMBER OF SPACES TO SEND 4 p " P ABL(NP) DY340 NEXT CHARACTER 4 P LDR A4,A2 4 & PADY145 LDK A2,CURRIG CURSOR RIGHT 4 P CF A5,OUTPU
0x475acc…475c60 Dummy {f00=0x0169, f01=0x0190, f02=» DY340 NEXT CHARACTER 4 P EJECT 5 B P************************************************************** 5 , P* 5 r > P* COMMON END. ALL CHARACTERS ARE SENT. RESET MODES WHICH 5 | . P* HAS BEEN SET UP BY SPECIAL CHARACTERS. 5 P* 5 B P**************
0x475c60…475df4 (11, 8) Dummy {f00=0x016a, f01=0x0190, f02=»T SEND 5 PDYER20 RF(NZ) DYER30 6 P* 6 * & P LDK A2,LISTOP LOW INTENSITY STOP 6 4 P CF A5,OUTPUT SEND 6 ^ P RF(NZ) DYER30 6 x P* 6 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER 6 P* 6 P IFT TRASPA=1 6 P LD A2,ECBCW,A8 6 0 P ST
0x475df4…475f88 Dummy {f00=0x016a, f01=0x0190, f02=»A2,DWTAP+DWTDEV,A6 SET HEAD POSITION POINTER 6 * P ST A2,ECBCW,A8 IN CONTROL WORD OF ECB 7 4 PENDIO EQU * 7 b P CF A5,ENDBLK END OF BLOCK 7 v P RF(NZ) DYER30 7 P ABL LENDIS END I/O 7 P EJECT 7 @ P************************************************
0x475f88…47611c Dummy {f00=0x016a, f01=0x018e, f02=» THE CONTROL WORD OF ECB AND SENDS THE CHARACTERS 7 : P* TO THE DISPLAY, CHECKING THE SAME SPECIAL CHARAC- 8 : P* TERS AS ORDER 06. 8 x P* 8 @ P************************************************************ 8 P* 8 PDY600 EQU * 8 P IFT W
0x47611c…4762b0 Dummy {f00=0x016a, f01=0x0190, f02=» P LDK A4,0 =8 9 & P LC A4,ECBCW,A8 GET REQUESTED LINE 9 , P CC A4,DWTLIN+DWTDEV,A6 OUTSIDE SCREEN? 9 D P RF(NG) ADY207 NO! 9 t : P LC A4,DWTLIN+DWTDEV,A6 YES! SET CURSOR AT END OF LINE 9 PADY207 EQU * 9 * P LC A3,DWTAP+DWTDEV,A6 GET ACTUAL LINE 9
0x4762b0…476444 Dummy {f00=0x016a, f01=0x018e, f02=» * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER : PADY230 CF A5,OUTPUT SEND : 2 P RF(NZ) DYER30 : R P LDR A4,A4 REQUESTED LINE : h " P RB(NZ) ADY210 NOT EQUAL ZERO : P LDK A4,1 : P RF ADY300 : PADY250 LDK A2,HOME HOME : & P LDK A3,1 RESET ACTU
0x476444…4765d8 Dummy {f00=0x016a, f01=0x0190, f02=» : : PADY300 SC A4,DWTAP+DWTDEV,A6 UPDATE HEAD LINE COUNTER ; , P LC A4,ECBCW+1,A8 GET REQUESTED POSITION ; F , P CC A4,DWTPOS+DWTDEV,A6 OUTSIDE SCREEN? ; v P RF(NG) ADY303 NO! ; * P LC A4,DWTPOS+DWTDEV,A6 SET LAST LINE ; PADY303 EQU * ; P CWK A
0x4765d8…47676c Dummy {f00=0x016a, f01=0x0190, f02=»OME ; x P RF ADY330 < * PADY305 RF(NL) ADY307 REQ. POS NOT ZERO < P LDK A4,1 < L 6 PADY307 LC A3,DWTAP+DWTDEV+1,A6 GET ACTUAL POSITION < ^ $ P CC A3,DWTPOS+DWTDEV,A6 MAX-POS? < P RF(NG) ADY310 NO! < P SUK A3,1 < * PADY310 CWR A4,A3 FORWARDS OR
0x47676c…476900 Dummy {f00=0x016a, f01=0x0190, f02=»ITION COUNTER < | PADY330 CF A5,OUTPUT SEND = P RF(NZ) DYER30 = 6 P RB ADY310 = L . PADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. = ^ , P CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY = P RF(L) ADY345 BACKSPACE WAY = P LDK A2,CR CARRIAGE RETURN = & P L
0x476900…476a94 (11, 9) Dummy {f00=0x016a, f01=0x018e, f02=» = P SUK A3,1 LAST BACKSPACE ? > P RB(NE) ADY345 > * @ PADY370 SC A4,DWTAP+DWTDEV+1,A6 UPDATE HEAD POSITION POINTER > @ P RF DY620 > PDY610 EQU * > P XIF > 2 P LD A4,ECBCW,A8 GET REQUESTED CURSOR POSITION > 8 P ST A4,DWTAP+DWTDEV,A6 UPDAT
0x476a94…476c28 Dummy {f00=0x016a, f01=0x0190, f02=» > r 2 P ABL DY335 SEND CHARACTERS WITH STANDARD WRITE ? P EJECT ? > @ P************************************************************ ? L P* ? * P* CURPOS = SUBROUTINE TO SET CURSOR ? > P* AT ENTRY A4 = CURSOR POS (POSITION AND LINE) ?
0x476c28…476dbc Dummy {f00=0x016a, f01=0x0190, f02=» P CF A5,OUTPUT SEND @ P RF(NZ) DYER30 @ P* @ 4 P LDR A2,A4 GET POSITIONS @ > 6 P CC A4,DWTPOS+DWTDEV,A6 MORE THAN MAX. POSITIONS ? @ ^ P RF(NG) CURR10 NO ! @ 4 P LC A2,DWTPOS+DWTDEV,A6 YES ! SET MAX. POSITIONS @ P* @ PCURR10 ADK A2,/1F
0x476dbc…476f50 Dummy {f00=0x016a, f01=0x0190, f02=»LIN+DWTDEV,A6 MORE THAN MAX. LINES ? @ P RF(NG) CURR20 NO ! A , 0 P LC A2,DWTLIN+DWTDEV,A6 YES ! SET MAX LINES A H P* A | PCURR20 EQU * A P ADK A2,/1F CONVERT A P CF A5,OUTPUT SEND A PDYER32 ABL(NZ) DYER48 =13 A P RTN A5 A P EJECT
0x476f50…4770e4 Dummy {f00=0x016a, f01=0x0190, f02=»TERS. A r ( P* THIS ORDER MAKES IT POSSIBLE TO B , P* CHANGE BACKGROUND COLOUR, CHARACTER B : , P* WIDTH, SCREEN INTENSITY AND TURN ON B j , P* OR OFF THE CURSOR. NOTE: THIS ORDER B & P* AFFECTS ONLY THE VD87 DISPLAY. B P* B > P**********
0x4770e4…477278 Dummy {f00=0x016a, f01=0x0190, f02=»ADJUST CW FOR SUBROUTINE B $ P CF A15,TSTBIT CHECK BITS IN CW C P LDR A2,A2 C H & P RF(Z) TEST10 NO CHANGE IN COLOUR C Z P* C P SLC A4,4 CHANGE COLOUR C " P CF A15,SETBIT SET BIT IN DWT C P SRC A2,4 C P ST A2,DWTDEV,A6 C P* C ( P
0x477278…47740c Dummy {f00=0x016a, f01=0x018e, f02=» CW C t P LDR A2,A2 D $ P RF(Z) TEST20 NO CHANGE IN WITDH D P* D F P SLC A4,5 CHANGE WIDTH D P P CF A15,SETBIT D n P SRC A2,5 D P ST A2,DWTDEV,A6 D P* D P LCK A4,/3200 D P CF A5,PSEND1 D P* D . P LDKL A4,/0101 CURSOR IS S
0x47740c…4775a0 Dummy {f00=0x016a, f01=0x0190, f02=» P LDR A2,A2 E ( P RF(Z) TEST30 NO CHANGE IN INTENSITY E P* E B P SLC A4,6 CHANGE INTENSITY E L P CF A15,SETBIT E n P SRC A2,6 E P ST A2,DWTDEV,A6 E P* E P LCK A4,/3600 E P CF A5,PSEND1 E P* E PTEST30 EQU * E P CF A1
0x4775a0…477734 (11, 10) Dummy {f00=0x016a, f01=0x018e, f02=»A15,SETBIT E P SRC A2,7 F P ST A2,DWTDEV,A6 F $ P LCK A4,/1500 F < P CF A5,PSEND2 F R P* F h PTEST40 EQU * F r P ABL ENDIO READY ! F P XIF F P EJECT F @ P************************************************************ F P* F P
0x477734…4778c8 Dummy {f00=0x016a, f01=0x0190, f02=» F d P* G @ P************************************************************ G P* G V PDY700 EQU * G ` 6 P LD A4,ECBCW,A8 GET NUMBER OF CHARACTERS TO ERASE G t P IFT WHATDY=1 G , P LD A1,DWTDEV,A6 PTS 6344,6385 OR 6386 ? G P ANKL A1,/1000 G
0x4778c8…477a5c Dummy {f00=0x016a, f01=0x0190, f02=»NT POSITION G r P ANK A3,/FF H , P SUR A2,A3 NR OF CHARS. TO END OF SCREEN H ( P LDK A3,0 ADJUST =8 H X P ADK A2,1 ADJUST LENGTH H t P CWR A4,A2 OUTSIDE SCREEN ? H P RF(L) DY710 NO ! H " P LDR A4,A2 YES ! MODIFY LENGTH H P SUK A3,1 =8 H
0x477a5c…477bf0 Dummy {f00=0x016a, f01=0x0190, f02=»MBER OF CHARACTERS H z P RF(N) DY730 ERASE READY I P* I : P CF A5,OUTPUT SEND I D P RF(NZ) DYER40 I ^ P RB DY720 I t P* I PDY730 EQU * I P CF A5,ENDBLK END OF BLOCK I P RF(NZ) DYER40 I P LDKL A2,MAXBLK BLOCK SIZE I $ P CF A5,STA
0x477bf0…477d84 Dummy {f00=0x016a, f01=0x0190, f02=»8 I t , P SUK A4,1 CURSOR IN ORIGINAL POSITION ? J P ABL(N) ENDIO YES ! J : . P CF A5,OUTPUT NO ! SEND ANOTHER BACKSPACE J V PDYER40 ABL(NZ) DYER48 =13 J P RB DY740 J PDY750 EQU * J P XIF J P LDK A3,/20 SPACE J ( P CF A5,FASTER SEND
0x477d84…477f18 Dummy {f00=0x016a, f01=0x0190, f02=» START WRITE =14 J P* K 6 P************************************************* K " P* K PDY760 EQU * =14 K f * P LDK A2,/80 SET FLAG FOR BLOCKING =14 K ~ & P ORS A2,DWTCHP,A6 OF REQUESTS =14 K PDY770 EQU * =14 K P LDK A1,0 RETURN CODE =14
0x477f18…4780ac Dummy {f00=0x016a, f01=0x0190, f02=»14 K v P* L 8 P*************************************************** L P* L P PDY780 EQU * =14 L Z * P LD A2,DWTCHP,A6 CHECK IF BLOCKING =14 L r P ANK A2,/80 FLAG IS SET =14 L P RB(Z) DY770 NO ! =14 L P* L * P XRS A2,DWTCHP,A6 YES, RESET
0x4780ac…478240 Dummy {f00=0x016a, f01=0x0190, f02=»** L V P* M . P* ECHODY, DEVICE-DEPENDENT ECHO-ROUTINE M 0 P* THIS ROUTINE CHECKS IF THE ECHO-CHARCTER M F . P* IS A BACKSPACE, CLEAR OR EOR-KEY ( IF M z . P* "SUPPRESS ECHOING OF EOR" IS REQUESTED M 0 P* AT SYSGEN ). ELSE THE CHARACTER WILL B
0x478240…4783d4 (11, 11) Dummy {f00=0x016a, f01=0x0190, f02=» EQU * M P LDR A7,A7 END OF ECHOING ? N P RF(NN) EDY110 NO ! N 2 P* N N P* N X 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER N b , P LD A1,DWTBLC+DWTDEV,A6 BLOCK RESERVED ? N , P RF(Z) EDY105 NO, RETURN TO KEYBOARD =13 N * P CM DWTBLC+DWTDEV,
0x4783d4…478568 Dummy {f00=0x016a, f01=0x0190, f02=» =13 N P* O PEDY110 EQU * O 0 P LDR A4,A1 SAVE "MORE CHARACTERS" INDICATION O , P IFT GREECE=1 =4 O ` P CF A15,GRCHAR =4 O z P XIF =4 O P LDR A3,A2 SAVE CHARACTER O P* O P IFT EORECH=0 O P SUK A3,/80 O $ P RF(NN) EDY1
0x478568…4786fc Dummy {f00=0x016a, f01=0x0190, f02=»WK A1,MINBLK YES ! IS IT FULL ? O P RF(L) EDY118 NO ! P ( 6 P CM DWTBLC+DWTDEV,A6 YES ! CLEAR CHARACTER COUNTER P B P CF A5,ENDBLK FINISH BLOCK P | PEDY116 EQU * P P LDK A2,MINBLK P P CF A5,STABLK DECLARE BLOCK P PEDY118 EQU * P P LDR A2,
0x4786fc…478890 Dummy {f00=0x016a, f01=0x0190, f02=» YES ! P P* Q P* Q & P* SEND CHARACTER TO ECHO-DEVICE Q " P* Q L * P IM DWTBLC+DWTDEV,A6 INCREMENT COUNTER Q V P CF A5,OUTPUT SEND Q , P CF A15,POSUPD POSITION COUNTER UPDATING Q P SUK A4,1 MORE CHARACTERS ? Q P RF(Z) EDY130 YES ! Q
0x478890…478a24 Dummy {f00=0x016a, f01=0x0190, f02=»TURN TO KEYBOARD Q | P EJECT R @ P************************************************************ R & P* R j P* BACKSPACE R t 6 P* CHECKS CURSOR POSITION, MOVES CURSOR ONE STEP R 6 P* BACKWARDS, SENDS A SPACE AND MOVES CURSOR ONE R P* STEP B
0x478a24…478bb8 Dummy {f00=0x016a, f01=0x0190, f02=»A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER R P ANK A3,/FF S 0 P RB(Z) EDY120 FIRST POSITION S D P* S h " P CF A5,ENDBLK FINISH OLD BLOCK S r P LDK A2,MINBLK S $ P CF A5,STABLK START A NEW BLOCK S P* S $ P LDK A4,2 SET "SEND AGAIN" FLAG S $ P
0x478bb8…478d4c Dummy {f00=0x016a, f01=0x0190, f02=»,DWTAP+DWTDEV,A6 S 4 P CC A3,DWTPOS+DWTDEV,A6 LAST POSITION ON LINE ? T P RF(L) DY810 NO ! T P P RB(G) DY800 NO, OUTSIDE ! T j P* T P* T PDY805 EQU * T P* T P LDK A2,SPACE SPACE T P CF A5,OUTPUT SEND T P* T PDY810 EQU
0x478d4c…478ee0 Dummy {f00=0x016a, f01=0x0190, f02=»5 YES ! T P* NO, BACKSPACE FINISHED U P RB EDY120 U 2 P EJECT U D < P******************************************************** U R P* U P* CLEAR U 6 P* CHECKS CURSOR POSITION, SETS CURSOR WHERE LAST U 4 P* REQUEST ENDED AND SENDS SPAC
0x478ee0…479074 (11, 12) Dummy {f00=0x016b, f01=0x0190, f02=»************ U ` P* V PDY850 EQU * V " P CF A5,ENDBLK FINISH OLD BLOCK V 2 " P LDKL A2,MAXBLK GET BLOCKSIZE V X P CF A5,STABLK START OF BLOCK V ~ 0 P LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER V P ANK A3,/FF V P RB(Z) EDY120 FIRST POSITION V
0x479074…479208 Dummy {f00=0x016b, f01=0x0190, f02=» CF A5,BACCAN ERASE CURRENT REQUEST V P RB EDY120 W , P XIF W > PDY860 EQU * W J 4 P LD A4,DWTAP+DWTDEV,A6 GET HEAD POSITION COUNTER W ^ P CF A5,CURPOS SET CURSOR W P* W $ P LDR A4,A3 GET POSITION COUNTER W & P ADK A4,1 UPDATE POSITION COUNTE
0x479208…47939c Dummy {f00=0x016b, f01=0x0190, f02=»ITION COUNTER W p P RB EDY120 X P IFT WHATDY=1 X ( P EJECT X > @ P************************************************************ X L P* X 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR X 0 P* AT THE PLACE BEFORE REQUEST IF X P*
0x47939c…479530 Dummy {f00=0x016b, f01=0x0190, f02=»V,A6 RESET CHARACTER COUNTER X P LDR A4,A3 Y $ 0 P LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER Y 6 P ANK A2,/FF Y j 4 P AD A2,DWTAP+DWTDEV,A6 ADD HEAD POSITION COUNTER Y ~ P ANK A2,/FF Y * P CC A2,DWTPOS+DWTDEV,A6 LAST POSITION Y P RF(NP) BACA10 N
0x479530…4796c4 Dummy {f00=0x016b, f01=0x0190, f02=» Y ` ( P LDKL A2,MAXBLK-3 GET BLOCKSIZE - 3 Z : P CW A2,DWTBLC+DWTDEV,A6 WILL IT BE OVERFLOW IN BLOCK ? Z 4 P RF(G) BACA30 NO ! Z r P* Z & P CF A5,ENDBLK YES ! END OLD BLOCK Z P RF(NZ) DYER50 Z P LDKL A2,MAXBLK BLOCK SIZE Z $ P CF A5,STABLK ST
0x4796c4…479858 Dummy {f00=0x016b, f01=0x0190, f02=»KSPACE Z ~ P CF A5,OUTPUT SEND [ P RF(NZ) DYER50 [ ( $ P LDK A2,SPACE DESTRUCTIVE SPACE [ > P CF A5,OUTPUT SEND [ f P RF(NZ) DYER50 [ P LDK A2,BACKSP BACKSPACE [ PBACA20 CF A5,OUTPUT SEND [ P RF(NZ) DYER50 [ P SUK A4,1 [ P RB(NE) BA
0x479858…4799ec Dummy {f00=0x016b, f01=0x0190, f02=» [ @ P************************************************************ P* L , P* FASTER = SUBROUTINE FOR FAST OUTPUT V 4 P* AT ENTRY A4 = NUMBER OF CHARACTERS 2 P* A3 = CHARACTER TO SEND P* @ P**********
0x4799ec…479b80 Dummy {f00=0x016b, f01=0x0190, f02=»,/1000 6342 OR 6351 ? P RF(Z) FAS005 NO ! ] P* ] 8 6 P* SIMULATED "FAST OUTPUT" FOR PTS 6342 AND 6351 ] B P* ] | P LC A2,DWTBC+DWTDEV,A6 ] ( P AD A2,DWTAP+DWTDEV,A6 GET POSITION ] P ANK A2,/FF ] ( P ADR A2,A4 ADD NUMBER OF CHARACTERS
0x479b80…479d14 (11, 13) Dummy {f00=0x016b, f01=0x0190, f02=»OK ] z P ADR A4,A1 ADJUST LENGTH ^ . P RF(N) FAS008 LAST POS. ALREADY WRITTEN =9 ^ * $ P LDR A2,A4 ONE BACKSPACE LESS =9 ^ * P ADK A4,1 ADJUST NUMBER OF CHARACTERS ^ P RF FAS007 =9 ^ P* ^ PFAS002 EQU * ^ P* ^ & P LDR A2,A4 PUT TWO COUNT
0x479d14…479ea8 Dummy {f00=0x016b, f01=0x0190, f02=»SEND ^ t P CF A5,OUTPUT SEND _ P RF(NZ) DYER50 _ & P SUK A4,1 DECREMENT COUNTER _ < P LDK A2,/FF _ ` P ANR A2,A4 _ t P RB(P) FAS004 NEXT CHARACTER _ P* _ & P CF A5,ENDBLK START A NEW BLOCK TO _ $ P RF(NZ) DYER50 AVOID OVERFLOW IN _ P L
0x479ea8…47a03c Dummy {f00=0x016b, f01=0x0190, f02=»8 NO BACKSPACE TO SEND =9 _ PFAS003 EQU * ` " P LDK A2,BACKSP ` 6 P CF A5,OUTPUT SEND BACKSPACE ` L P RF(NZ) DYER50 ` p P SUK A4,1 DECREMENT COUNTER ` P RB(P) FAS003 NEXT ` PFAS008 EQU * =9 ` P RTN A5 ` PFAS005 EQU * ` P XIF `
0x47a03c…47a1d0 Dummy {f00=0x016b, f01=0x0190, f02=»GET MAX. POSITIONS ON DISPLAY ` x PFAS010 EQU * a & P ADK A4,/20 ADD CONSTANT a : P LDK A2,FASOUT FAST OUTPUT a Z P CF A5,OUTPUT SEND a | PDYER48 RF(NZ) DYER50 a P LDR A2,A4 NO OF CHAR a P ANK A2,/FF a P CF A5,OUTPUT SEND a P RF(NZ) DY
0x47a1d0…47a364 Dummy {f00=0x016b, f01=0x0190, f02=»************************ a t P* b 6 P* ERROR ROUTINE. ENTERED WHEN RETURN CODE IS SET b * ( P* AFTER STABLK, OUTPUT OR ENDBLK. b d P* b : P****************************************************** b PDYER50 EQU * b P LD A7,DWTST,A6 b P SLC
0x47a364…47a4f8 Dummy {f00=0x016b, f01=0x0190, f02=» GO TO RECOVERY b ~ P SLC A1,5 NO ! RESTORE A1 c P* c : * P LD A7,DWTOR,A6 GET ORDER. ORDER 00 ? c D P ANK A7,/FF c r P RF(Z) DYER52 YES ! c P SUK A7,5 ORDER 5 ? c P RF(Z) DYER52 YES ! c P SUK A7,/2B ORDER 31 ? c P RF(Z) DYER52 YE
0x47a4f8…47a68c Dummy {f00=0x016b, f01=0x0190, f02=»F(NN) DYER55 NO ! c 8 P LDKL A1,/2000 YES ! SET SHIFTED "NOT OPERABLE" BIT d PDYER55 SLC A1,3 SHIFT BACK d V P* d x P* 4 LINES DELETED =14 d P ABL LENDIS COMPLETE REQUEST d P* d P* LRC-ERROR d P* d PDYER70 EQU * d ( P LDKL
0x47a68c…47a820 Dummy {f00=0x016b, f01=0x0190, f02=»= 2 d l P IFT WHATDY=1 e ( P LD A4,DWTDEV,A6 6344,6385 OR 6386 ? e " P ANKL A4,/1000 e N P RF(Z) DYER90 YES ! e d 6 P LC A4,DWTBC+DWTDEV,A6 GET NUMBER OF POS. TO BACK e P ANK A4,/FF e P RF(Z) DYER80 e . P CF A5,BACCAN SEND BACKSPACES AND RU
0x47a820…47a9b4 (11, 14) Dummy {f00=0x016b, f01=0x0190, f02=»AP+DWTDEV,A6 GET HEAD POS. COUNTER e ( P CF A5,CURPOS SET CURSOR ON DISPLAY f * P LDK A3,0 RESET BUFFER INDEX f V P LD A7,DWTOR,A6 GET ORDER f z P ANK A7,/FF f P ABL ACDY f P EJECT f @ P********************************************************
0x47a9b4…47ab48 Dummy {f00=0x016b, f01=0x0190, f02=»EQUEST IS REACHED f ~ P* g @ P************************************************************ g $ PUPDAPP EQU * g h 0 P LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER g | P ANK A2,/FF g 8 P ADS A2,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER g P LDK A2,
0x47ab48…47acdc Dummy {f00=0x016b, f01=0x0190, f02=»**** g X P* h 6 P* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION h 0 P* COUNTER WHEN REQUEST RUNNING. h P D P* A CHECK THAT POINTER NOT EXCEEDS THE LIMIT IS DONE h P* h @ P**************************************************
0x47acdc…47ae70 Dummy {f00=0x016b, f01=0x0190, f02=»OINTER h b P ANK A2,/FF i ( P CC A2,DWTPOS+DWTDEV,A6 END OF ROW ? i " P RF(G) POSU10 i N ( P IM DWTBC+DWTDEV,A6 POSITION COUNTER i d PPOSU10 RTN A15 i P IFT GREECE=1 =4 i P EJECT =4 i : P***************************************************
0x47ae70…47b004 Dummy {f00=0x016b, f01=0x0190, f02=» =4 i ` P* =4 j : P*************************************************** =4 j PGRCHAR EQU * =4 j Z , P LDR A1,A2 IS IT A GREEK CHARACTER ? =4 j r P SUK A1,/B9 =4 j P RF(P) GRCH10 NO =4 j P ADK A1,9 =4 j P RF(N) GRCH10 NO =4 j P
0x47b004…47b198 Dummy {f00=0x016b, f01=0x0190, f02=» * =4 j P RTN A15 =4 k P* =4 k " PGRTAB EQU * =4 k 2 , P DATA /265B,/5C23,/5D22,/4021,/5E5F =4 k J P XIF =4 k z P IFT TRASPA=1 k P EJECT k 6 P************************************************** k P* k 4 P* TRASP = SUBROUTI
0x47b198…47b32c Dummy {f00=0x016b, f01=0x0190, f02=» k d 0 P* INTENSITY START AND TABULATIONS. l P* l < 6 P************************************************** l F P* l PTRASP EQU * l , P LD A1,ECBBA,A8 GET BUFFER ADDRESS (BA) l , P LD A2,ECBRL,A8 GET REQUESTED LENGTH(RL) l P ADR A1,A2
0x47b32c…47b4c0 Dummy {f00=0x016b, f01=0x0190, f02=»NK A4,/FF l P SUK A4,/20 SPACE ? m P RF(Z) SKIP07 YES m . P ADK A4,1 LOW INT. STOP ? m H P RF(Z) SKIP07 YES ! m j P ADK A4,1 LOW INT. START ? m P RF(Z) SKIP07 YES ! m P CWK A2,4 m " P RF(NG) SKIP30 REQ, LENGTH < 5 m P LC A4,-2,A1
0x47b4c0…47b654 (11, 15) Dummy {f00=0x016b, f01=0x0190, f02=»SKIP07 SUK A2,1 DECR RL m P RB SKIP05 GET NEXT n PSKIP30 EQU * n < P LD A4,ECBRL,A8 n P ( P ST A4,ECBCW,A8 SAVE OLD REQ. LENGTH n h P* n P ST A2,ECBRL,A8 STORE NEW RL n P* n P RTN A15 n P XIF n P IFT VD87=1 =7 n P EJECT n
0x47b654…47b7e8 Dummy {f00=0x016b, f01=0x018e, f02=»D87 n j P* o > P* ON ENTRY: A4, RIGHT BYTE: CONTROL CHAR. FOR FIRST TYPE o J P* A4, LEFT BYTE: BIT 0 = 0 FOR FIRST TYPE, 1 = SECOND TYPE o X < P* PSEND1 SENDS CHARACTER /1B BEFORE CONTROL CHARACTER o P* o D P************************
0x47b7e8…47b97c Dummy {f00=0x016b, f01=0x0190, f02=» o P ABL(NZ) DYER50 NOT OK ! p P* p ( PPSEND2 EQU * p 2 P LDR A2,A4 FIRST TYPE ? p F P RF(NN) PS10 YES ! p f * P ADK A2,1 NO, CHANGE CONTROL CHARACTER p PPS10 EQU * p ( P CF A5,OUTPUT SEND CONTROL CHARACTER p P ABL(NZ) DYER50 NOT OK ! p
0x47b97c…47bb10 Dummy {f00=0x016b, f01=0x0190, f02=» SUBROUTINE THAT TESTS BITS IN A3 p P* q * F P***************************************************************** q 4 P* q ~ PTSTBIT EQU * q P LD A4,DWTDEV,A6 q P SRC A3,2 q P LDR A2,A3 q P ANKL A2,/8001 q P RTN A15 q P* q F P
0x47bb10…47bca4 Dummy {f00=0x016b, f01=0x0190, f02=» ON ENTRY: A4=DWTDEV, SHIFTED SO THAT BIT 0 IS ACTUAL INDICATION BIT q . P* A2=INDICATION BIT IN BIT 15 r N @ P* ON EXIT: A2 AND A4=DWTDEV WITH NEW IND. BIT IN BIT ZERO r P* r F P**********************************************************
0x47bca4…47be38 Dummy {f00=0x016b, f01=0x0190, f02=»BIT r r . P SRC A2,1 SHIFT INDICATION BIT TO BIT ZERO s P LDR A4,A2 s > P RTN A15 s P P XIF s ` P EJECT s l @ P************************************************************ s z P* s P* RCDY = RECOVERY ROUTINE s 6 P* CLEARS DISPLAY AND SETS
0x47be38…47bfcc Dummy {f00=0x016b, f01=0x0190, f02=»************ s ` P* t PRCDY EQU * t P LDKL A2,/7FFF t 0 " P ANS A2,DWTST,A6 INDICATE BUSY t F P* t l $ P LDKL A2,MAXBLK MAX. BLOCK SIZE t v P CF A5,STABLK START OF BLOCK t P IFT PLASM=1 =11 t P* t 8 P* WAIT FOR PLASMA DISPLAY'S INTERN
0x47bfcc…47c160 Dummy {f00=0x016b, f01=0x0190, f02=» A1,A6 =11 t P CF A15,SETIME SET TIMER =11 u P DATA RCTIME,TIME =11 u 8 P ST A4,DWTTP+DWTDEV,A6 =11 u V P ABL LDISP WAIT =11 u z PRCTIME EQU * READY =11 u & P LDR A6,A1 RESTORE DWT-ADDRESS =11 u . P LDR A5,A6 INITIATE DWT STACK POINTER =12
0x47c160…47c2f4 (11, 16) Dummy {f00=0x016c, f01=0x0190, f02=»USED BY THE VD87 DISPLAY u z P* v & P LD A4,DWTDEV,A6 GET DEVICE STATUS v * P RF(NN) RCDY05 NOT VD87 ! v T P* v v ( P SLL A4,4 GET BIT FOR BACKGR. COLOUR v 2 P LCK A4,/3000 CONTR. CHAR. FOR BACKGR. COLOUR v " P CF A5,RSEND1 SEND PARAMETERS v P
0x47c2f4…47c488 Dummy {f00=0x016c, f01=0x0190, f02=»CONTR. CHAR. FOR SCREEN INTENSITY v P CF A5,RSEND1 w * P* w @ P SLL A4,1 w J * P LCK A4,/1500 CONTR. CHAR. FOR CURSOR w P CF A5,RSEND2 w PRCDY05 EQU * w P XIF w P IFF STEADY+VD87=0 w & P LD A2,DWTDEV,A6 GET DEVICE STATUS w , P ANK
0x47c488…47c61c Dummy {f00=0x016c, f01=0x0190, f02=»EADY ADJUST TO STEADY IF SO w * P CF A5,OUTPUT SEND CURSOR INFORMATION x $ P XIF x R P IFF COUNTRY=0 x ^ * P LDK A2,CTYCOD SEND "SET COUNTRY CODE" x t P CF A5,OUTPUT x P IFT VD87=1 =7 x P* x D P* SEND AN EXTRA CONTROL CHARACTER TO VD87 BE
0x47c61c…47c7b0 Dummy {f00=0x016c, f01=0x018e, f02=». x z PNOT87 EQU * y P XIF y P IFF COUNTRY=0 y * ( P LDK A2,COUNTRY SEND "COUNTRY CODE" y @ P ORK A2,/30 MAKE ASCII DIGIT y l P CF A5,OUTPUT y P XIF y PRCDY20 EQU * y P* y ( P LDK A2,CLEHOM CLEAR AND CURSOR HOME y P CF A5,OUTPU
0x47c7b0…47c944 Dummy {f00=0x016c, f01=0x0190, f02=» y ^ P LDK A2,0 z : P SC A2,DWTBC+DWTDEV,A6 RESET CURRENT POSITION COUNTER z P* z X , P LD A2,DWTST,A6 GO TO DISPATCHER IF =11 z b * P SLC A2,2 DISPLAY IS IN ECHO MODE =11 z P ABL(N) LDISP =11 z P IFT VD87=1 =12 z P LDR A8,A8 REQUEST ON
0x47c944…47cad8 Dummy {f00=0x016c, f01=0x0190, f02=»2 z r PRCDY30 EQU * =12 { P XIF =12 { $ P ABL LENDIS =11 { 6 P* { N P IFT VD87=1 =11 { X P* { p & P* RECOVERY SUBROUTINES FOR VD87 { z P* { PRSEND1 EQU * =11 { * P LDK A2,/1B SEND CONTROL CHARACTER =11 { P CF A5,OUTPUT =11
0x47cad8…47cc6c Dummy {f00=0x016c, f01=0x0190, f02=»OL CHARACTER =11 { v PRS10 EQU * =11 | , P CF A5,OUTPUT SEND CONTROL CHARACTER =11 | 0 P RTN A5 RETURN =11 | ` P* | z P XIF | P EJECT | P* | , P**************************************** | P* | P* ABORT ROUTINE | P* | , P**
0x47cc6c…47ce00 Dummy {f00=0x016c, f01=0x401e, f02=»D I/O | P END } @ } QU * =11 | , P CF A5,OUTPUT SEND CONTROL CHARACTER =11 | 0 P RTN A5 RETURN =11 | ` P* | z P XIF | P EJECT | P* | , P**************************************** | P* | P* ABORT ROUTINE | P* | , P**
0x47ce00…47cf94 (11, 17) Dummy {f00=0x016c, f01=0x2008, f02=» ~ E & | CF A5,STABLK START OF BLOCK ' * ' 6 ( $ LDK A2,CLEHOM CLEAR AND CURSOR HOME ' @ CF A5,OUTPUT SEND ' l * ' LDKL A2,/0101 HOME POSITION ' 4 0 ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER ' * ' ABL ENDIO '
0x47cf94…47d128 Dummy {f00=0x016c, f01=0x0000, f02=»
[…0x6…]
0x47daa0…47dc34 (11, 18) Opaque[0x194]
0x47dc34…47ddc8 # DirEnt {nam=»DRPL01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2d90, f03=0x0000}
0x47dc34…47ddc8 IdxSect {
0x47dc34…47ddc8 f00 = 0x016c // 0x47dc34 @0x0
0x47dc34…47ddc8 f01 = 0x0062 // 0x47dc36 @0x2
0x47dc34…47ddc8 gno = [ // 0x47dc38 @0x4
0x47dc34…47ddc8 [0x00]: C0x016c.0x2.0
0x47dc34…47ddc8 [0x01]: C0x016c.0x3.0
0x47dc34…47ddc8 [0x02]: C0x016d.0x0.0
0x47dc34…47ddc8 [0x03]: C0x016d.0x1.0
0x47dc34…47ddc8 [0x04]: C0x016d.0x2.0
0x47dc34…47ddc8 [0x05]: C0x016d.0x3.0
0x47dc34…47ddc8 [0x06]: C0x016e.0x0.0
0x47dc34…47ddc8 [0x07]: C0x016e.0x1.0
0x47dc34…47ddc8 [0x08]: C0x016e.0x2.0
0x47dc34…47ddc8 [0x09]: C0x016e.0x3.0
0x47dc34…47ddc8 [0x0a]: C0x016f.0x0.0
0x47dc34…47ddc8 [0x0b]: C0x016f.0x1.0
0x47dc34…47ddc8 [0x0c]: C0x016f.0x2.0
0x47dc34…47ddc8 [0x0d]: C0x016f.0x3.0
0x47dc34…47ddc8 [0x0e]: C0x0170.0x0.0
0x47dc34…47ddc8 [0x0f]: C0x0170.0x1.0
0x47dc34…47ddc8 [0x10]: C0x0170.0x2.0
0x47dc34…47ddc8 [0x11]: C0x0170.0x3.0
0x47dc34…47ddc8 [0x12]: C0x0171.0x0.0
0x47dc34…47ddc8 [0x13]: C0x0171.0x1.0
0x47dc34…47ddc8 [0x14]: C0x0171.0x2.0
0x47dc34…47ddc8 [0x15]: C0x0171.0x3.0
0x47dc34…47ddc8 [0x16]: C0x0172.0x0.0
0x47dc34…47ddc8 [0x17]: C0x0172.0x1.0
0x47dc34…47ddc8 [0x18]: C0x0172.0x2.0
0x47dc34…47ddc8 [0x19]: C0x0172.0x3.0
0x47dc34…47ddc8 [0x1a]: C0x0173.0x0.0
0x47dc34…47ddc8 [0x1b]: C0x0173.0x1.0
0x47dc34…47ddc8 [0x1c]: C0x0173.0x2.0
0x47dc34…47ddc8 [0x1d]: C0x0173.0x3.0
0x47dc34…47ddc8 [0x1e]: C0x0174.0x0.0
0x47dc34…47ddc8 [0x1f]: C0x0174.0x1.0
0x47dc34…47ddc8 [0x20]: C0x0174.0x2.0
0x47dc34…47ddc8 [0x21]: C0x0174.0x3.0
0x47dc34…47ddc8 [0x22]: C0x0175.0x0.0
0x47dc34…47ddc8 [0x23]: C0x0175.0x1.0
0x47dc34…47ddc8 [0x24]: C0x0175.0x2.0
0x47dc34…47ddc8 [0x25]: C0x0175.0x3.0
0x47dc34…47ddc8 [0x26]: C0x0176.0x0.0
0x47dc34…47ddc8 [0x27]: C0x0176.0x1.0
0x47dc34…47ddc8 [0x28]: C0x0176.0x2.0
0x47dc34…47ddc8 [0x29]: C0x0176.0x3.0
0x47dc34…47ddc8 [0x2a]: C0x0177.0x0.0
0x47dc34…47ddc8 [0x2b]: C0x0177.0x1.0
0x47dc34…47ddc8 [0x2c]: C0x0177.0x2.0
0x47dc34…47ddc8 [0x2d]: C0x0177.0x3.0
0x47dc34…47ddc8 [0x2e]: C0x0178.0x0.0
0x47dc34…47ddc8 [0x2f]: C0x0178.0x1.0
0x47dc34…47ddc8 [0x30]: C0x0178.0x2.0
0x47dc34…47ddc8 ]
0x47dc34…47ddc8 }
0x47ddc8…47df5c Dummy {f00=0x016c, f01=0x0190, f02=» 2 P IDENT DRPL01 REL 11.1 82-08-19 870105041110 P : P =17,BLOCKING IMPROVED B P REL 11.1 82-08-13 b & P =16,CHANGED BLOCKING OF OUTPUT ~ P REL 11.1 82-07-08 P =15,COMPARE ADDR. CORR. P REL 11.1 82-02-12 P =14
0x47df5c…47e0f0 Dummy {f00=0x016c, f01=0x0190, f02=»SI x P REL 11.0 81-08-27 P =11,CH. OF PARAMETERS & P REL 11.0 81-08-10 F P =10,CORR. OF RWSI b P REL 11.0 81-08-10 ~ " P =9,CORR. OF INTERRUPT ENTRY P REL 11.0 81-06-24 " P =8,OPEN LINE PARAM. CHANGED P REL
0x47e0f0…47e284 Dummy {f00=0x016c, f01=0x0190, f02=»1.0 81-05-27 P =5,CORR. OF RWSI-CWT:S , $ P OPEN LINE PROC. & COND. ASS. 8 P REL 11.0 81-05-22 ` P =4,CORR. OF CWT-DISPL. | P REL 11.0 81-05-20 P =3,CORR. OF TIMER NAME P REL 11.0 81-04-29 & P =2,CORR. OF O
0x47e284…47e418 Dummy {f00=0x016c, f01=0x0190, f02=»M. AREA EXPANDED | P PRR 11.0 80-11-19 P EJECT 4 P* B P* L P* V P* ` @ P************************************************************ j P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 6 P* DRPL01 = DRIVER PROCESSO
0x47e418…47e5ac Dummy {f00=0x016c, f01=0x0190, f02=»******************************** t P* ( P* 2 2 P* THIS PROGRAM HANDLES I/O OPERATIONS ON THE < 0 P* PROCESSOR FOR LINE CONTROL (PLC). IT IS r 0 P* CALLED FROM THE TERMINAL DEVICE DRIVERS. P* 2 P* INPUT AND OUTPUT OF CHARACTERS F
0x47e5ac…47e740 Dummy {f00=0x016c, f01=0x018e, f02=»IN DATA PACKETS ARE HANDLED BY THIS DRIVER. P* 4 P EJECT > P* L : P* THE PROGRAM IS DIVIDED INTO A NUMBER OF SECTIONS. V 4 P* SECTIONS CONTAINING PROGRAM CODE ARE DIVIDED 2 P* INTO ROUTINES. THE ROUTINES ARE LISTED AT 4 P* BE
0x47e740…47e8d4 (11, 19) Dummy {f00=0x016c, f01=0x0190, f02=» & P* ENTRIES DECLARE ENTRY POINTS . P* EXTERNALS DECLARE EXTERNAL REFERENCES 2 6 P* CONDITION SET CONDITIONAL ASSEMBLY PARAMETERS d & P* CONSTANTS SET CONSTANT VALUES P* DATA DATA AREAS P* 0 P* REQUEST DEVICE DRIVER
0x47e8d4…47ea68 Dummy {f00=0x016c, f01=0x0190, f02=» LOCAL PLC DISPATCHER ( P* ROUTINE COMMON SERVICE ROUTINES , P* SUBROUTIN COMMON SERVICE SUBROUTINES L * P* TBUFF BUFFER HANDLING SUBROUTINES | P* P EJECT P* P*********** P* ENTRIES * P*********** P
0x47ea68…47ebfc Dummy {f00=0x016c, f01=0x0190, f02=»NTRY PLCHRO CHARACTER OUTPUT , P ENTRY PLENBL DEFINE END OF OUTPUT BLOCK $ " P ENTRY PLDISP LOCAL DISPATCHER T " P ENTRY PRCHRI CHR INP REMOTE z , P ENTRY PRSTBL START OUTP BLOCK, REMOTE $ P ENTRY PRCHRO CHR OUTP. REMOTE * P ENTRY PRENBL EN
0x47ebfc…47ed90 Dummy {f00=0x016c, f01=0x0190, f02=» $ P ENTRY GETDWT GET DWT SUBROUTINE " P ENTRY PLCLOG LOGG POINTER =11 , & P ENTRY TIMACT INACTIVITY TIMER =11 R 2 P ENTRY POLRTL POLL FREQ. & NO OF RETRANSM =11 | , P ENTRY POLRTR POLL FR. & NO OF RETR. =11 P EJECT P* P* P*
0x47ed90…47ef24 Dummy {f00=0x016c, f01=0x0190, f02=»RY IHPL04 PLC NUMBER 4 P* & P ENTRY IHPR01 PLC NUMBER 5,REMOTE ( & P ENTRY IHPR02 6,REMOTE R & P ENTRY IHPR03 7,REMOTE | & P ENTRY IHPR04 8,REMOTE P* P* RECOVERY AT TC POWER UP P* * P
0x47ef24…47f0b8 Dummy {f00=0x016c, f01=0x0190, f02=»* P* P* TOSS MONITOR P* . P* ROUTINES 8 P EXTRN TDISP TOSS DISPATCHER P " P EXTRN QMJOB QUEUE MONITOR JOB t & P EXTRN MEXIT EXIT FROM MONITOR JOB $ P EXTRN GETBLK GET MONITOR BLOCK & P EXTRN FREBLK RETURN MONITOR
0x47f0b8…47f24c Dummy {f00=0x016c, f01=0x0190, f02=»FAIL FLAG | , P EXTRN INTSAV LATEST INTERRUPT SAVE AREA P* B P* L P* DRND01 SERVICE ROUTINES V P* z * P EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT , P EXTRN NDGET8 GET A3-A5, A7-A8 FROM DWT 2 P EXTRN NDREWS CALL RECOVERY FOR ALL DE
0x47f24c…47f3e0 Dummy {f00=0x016c, f01=0x0190, f02=»ESS v P* P EJECT P* $ 4 P* DRND01 ROUTINES FOR RETURN TO DEVICE DRIVER . P* f " P EXTRN NDREPO POP, OK & RETURN p P EXTRN NDRETO OK & RETURN P EXTRN NDREP POP & RETURN P EXTRN NDRET RETURN P* P*
0x47f3e0…47f574 (11, 20) Dummy {f00=0x016d, f01=0x0190, f02=»RIGHT BYTE) | . P EXTRN DWTADR DRIVER ADDRESS BLOCK ADDRESS P EXTRN DWTOTQ QUEUE LINK F 0 P EXTRN DWTCP2 SECOND CHANNEL PARAMETER WORD f . P EXTRN DWTLD1 PLC INPUT/OUTPUT BUFFER ADDR , P EXTRN DWTLD2 PLC FLOW CONTROL COUNTERS 0 P EXTRN DWTTB
0x47f574…47f708 Dummy {f00=0x016d, f01=0x018e, f02=»RAM f ( P EXTRN DWTWAT WAIT/ACT INDICATOR =16 P* 8 P EJECT B P* P P* WORK STATION TABLES Z P* z P EXTRN INTPL1 PLC 1 P EXTRN INTPL2 PLC 2 P EXTRN INTPL3 PLC 3 P EXTRN INTPL4 PLC 4 P* P EXTRN INT
0x47f708…47f89c Dummy {f00=0x016d, f01=0x0190, f02=» P* 6 P EXTRN INTADR INTERRUPT ADDR IN DRIVER ADDR BLOCK P* H P EJECT R P* ` P************************ j P* CONDITIONAL ASSEMBLY * P************************ P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INS
0x47f89c…47fa30 Dummy {f00=0x016d, f01=0x0190, f02=»BER OF LOCAL PLC:S ACTUALLY CONNECTED (0-4) | P* 4 PX:A EQU 1 > PPLCNRL EQU X:A P P* f D P* PLCNRR DEFINES THE NUMBER OF REMOTE PLC:S ACTUALLY CONN. (0-4) p P* PX:B EQU 0 PPLCNRR EQU X:B P* P* P EJECT
0x47fa30…47fbc4 Dummy {f00=0x016d, f01=0x0190, f02=» , P* LEVEL 3 FLOW CONTROL WINDOW SIZE (1-7) PWINDOW EQU 2 4 P* H 4 P* MAXIMAL NUMBER OF WORK STATIONS PER PLC (1-32) R PMAXWS EQU 32 P* > P* DELAY BEFORE EXECUTING "TEST CU" AT RESTART. (IN 100 MS) PSTADLY EQU 100 10 SECONDS
0x47fbc4…47fd58 Dummy {f00=0x016d, f01=0x0190, f02=»OF GENERAL READ BUFFER IN WORDS (1-128) z PGRBUFU EQU 70 0 P* F ( P* INACTIVITY TIMER (MINUTES) P PTIMACT EQU 3 U =8 | P* J P* POLLING FREQUENCY (L BYTE) & NUMBER OF RETRANSMISSIONS (R BYTE) =11 PPOLRTL EQU /1805 LOCAL =11
0x47fd58…47feec Dummy {f00=0x016d, f01=0x0190, f02=» ~ P* PPLCTST EQU 0 P* & P* 0 D P* A TEST VERSION OF THE DRIVER IS OBTAINED BY SETTING UTTEST><0 : @ P* IF UTTEST=1 THE TEST CODE IS INCLUDUD BUT TRAP IS NOT USED < P* IF UTTEST=2 THE TEST CODE IS INCLUDED AND TRAP IS USED P*
0x47feec…480080 Dummy {f00=0x016d, f01=0x0190, f02=»* PLOBUFN EQU 3 P* P* ( 6 P* LOBUFU IS THE LENGTH OF THE USER PART OF A LONG 2 $ P* OUTPUT BUFFER IN WORDS (1-128) l P* PLOBUFU EQU 128 U =6,=16 P* P EJECT P* " P* HARDWARE INTERRUPT LEVELS 0 P*
0x480080…480214 (11, 21) Dummy {f00=0x016d, f01=0x0190, f02=»C NUMBER 2 PINTLV2 EQU 24 PLC NUMBER 3 PINTLV3 EQU 25 PLC NUMBER 4 4 & PINTRV0 EQU 18 PLC NUMBER 5, REMOTE V & PINTRV1 EQU 19 6, REMOTE & PINTRV2 EQU 20 7, REMOTE & PINTRV3 EQU 21 8, REMOTE P* & P
0x480214…4803a8 Dummy {f00=0x016d, f01=0x0190, f02=»PLCDA3 EQU /27 PLC 4 PPLCDA4 EQU /3A PLC 5 PPLCDA5 EQU /3B PLC 6 8 PPLCDA6 EQU /2A PLC 7 T PPLCDA7 EQU /2B PLC 8 p P* P EJECT P* * P* BUFFER AREA PARAMETER DEFINITION P* . PHEADLW EQU 4 BUFFER HEADER LENGTH
0x4803a8…48053c Dummy {f00=0x016d, f01=0x0190, f02=» LONG OUTPUT BUFFERS : PLOBUF1 EQU SYSTLW+LOBUFU LENGTH OF ONE BUFFER (WORDS) & PLOBUF2 EQU LOBUF1+LOBUF1 2 BUFFERS ^ PLOBUF3 EQU LOBUF2+LOBUF1 PLOBUF4 EQU LOBUF3+LOBUF1 PLOBUF5 EQU LOBUF4+LOBUF1 PLOBUF6 EQU LOBUF5+LOBUF1 " P
0x48053c…4806d0 Dummy {f00=0x016d, f01=0x0190, f02=»F1 . =17 z " PLOBU11 EQU LOBU10+LOBUF1 . =17 " PLOBU12 EQU LOBU11+LOBUF1 . =17 6 " PLOBU13 EQU LOBU12+LOBUF1 . =17 " PLOBU14 EQU LOBU13+LOBUF1 . =17 " PLOBU15 EQU LOBU14+LOBUF1 . =17 " PLOBU16 EQU LOBU15+LOBUF1 . =17 " PLOBU17 EQU LOBU16+LO
0x4806d0…480864 Dummy {f00=0x016d, f01=0x0190, f02=»21 EQU LOBU20+LOBUF1 . =17 " PLOBU22 EQU LOBU21+LOBUF1 . =17 " " PLOBU23 EQU LOBU22+LOBUF1 . =17 H " PLOBU24 EQU LOBU23+LOBUF1 . =17 n " PLOBU25 EQU LOBU24+LOBUF1 . =17 " PLOBU26 EQU LOBU25+LOBUF1 . =17 " PLOBU27 EQU LOBU26+LOBUF1 . =17 " PLO
0x480864…4809f8 Dummy {f00=0x016d, f01=0x0190, f02=» . =17 x " PLOBU32 EQU LOBU31+LOBUF1 . =17 P IFT LOBUFN=1 4 4 PLOBUFS EQU LOBUF1 LENGTH OF BUFFER AREA (WORDS) J P XIF P IFT LOBUFN=2 4 PLOBUFS EQU LOBUF2 LENGTH OF BUFFER AREA (WORDS) P XIF P IFT LOBUFN=3 4 PLOBUFS EQU
0x4809f8…480b8c Dummy {f00=0x016d, f01=0x0190, f02=» XIF P IFT LOBUFN=5 4 PLOBUFS EQU LOBUF5 LENGTH OF BUFFER AREA (WORDS) " P XIF Z P IFT LOBUFN=6 f 4 PLOBUFS EQU LOBUF6 LENGTH OF BUFFER AREA (WORDS) | P XIF P IFT LOBUFN=7 . =17 PLOBUFS EQU LOBUF7 . =17 P XIF P
0x480b8c…480d20 Dummy {f00=0x016d, f01=0x0190, f02=» P IFT LOBUFN=10 . =17 PLOBUFS EQU LOBU10 . =17 $ P XIF D P IFT LOBUFN=11 . =17 P PLOBUFS EQU LOBU11 . =17 l P XIF P IFT LOBUFN=12 . =17 PLOBUFS EQU LOBU12 . =17 P XIF P IFT LOBUFN=13 . =17 PLOBUFS EQU L
0x480d20…480eb4 (11, 22) Dummy {f00=0x016d, f01=0x0190, f02=»FS EQU LOBU15 . =17 P XIF P IFT LOBUFN=16 . =17 ( PLOBUFS EQU LOBU16 . =17 D P XIF d P IFT LOBUFN=17 . =17 p PLOBUFS EQU LOBU17 . =17 P XIF P IFT LOBUFN=18 . =17 PLOBUFS EQU LOBU18 . =17 P XIF P IFT LOB
0x480eb4…481048 Dummy {f00=0x016d, f01=0x0190, f02=» IFT LOBUFN=21 . =17 PLOBUFS EQU LOBU21 . =17 P XIF < P IFT LOBUFN=22 . =17 H PLOBUFS EQU LOBU22 . =17 d P XIF P IFT LOBUFN=23 .17 PLOBUFS EQU LOBU23 . =17 P XIF P IFT LOBUFN=24 . =17 PLOBUFS EQU LOBU24 . =1
0x481048…4811dc Dummy {f00=0x016d, f01=0x0190, f02=»U26 . =17 P XIF P IFT LOBUFN=27 . =17 PLOBUFS EQU LOBU27 . =17 : P XIF Z P IFT LOBUFN=28 . =17 f PLOBUFS EQU LOBU28 . =17 P XIF P IFT LOBUFN=29 . =17 PLOBUFS EQU LOBU29 . =17 P XIF P IFT LOBUFN=30 . =
0x4811dc…481370 Dummy {f00=0x016d, f01=0x018e, f02=»N=32 . =17 PLOBUFS EQU LOBU32 . =17 ! P XIF ! 2 P* ! > P EJECT ! H P* ! V P* SHORT OUTPUT BUFFERS ! ` : PSOBUF1 EQU SYSTLW+SOBUFU LENGTH OF ONE BUFFER (WORDS) ! & PSOBUF2 EQU SOBUF1+SOBUF1 2 BUFFERS ! PSOBUF4 EQU SOBUF2+SOBUF2 !
0x481370…481504 Dummy {f00=0x016d, f01=0x018e, f02=» : PGRBUF1 EQU SYSTLW+GRBUFU LENGTH OF ONE BUFFER (WORDS) " PGRBUF2 EQU GRBUF1+GRBUF1 " B 4 PGRBUFS EQU GRBUF2 LENGTH OF BUFFER AREA (WORDS) " b P* " 2 P* LENGTHS OF USER PART OF BUFFERS (BYTES) " 2 PSOBUFL EQU SOBUFU+SOBUFU SHORT OUTPUT BUFFERS
0x481504…481698 Dummy {f00=0x016d, f01=0x0190, f02=» P* # 0 P* CONTROLLER COMMAND RECORD (CCR) LAYOUT # P* # B ( PCCRDLS EQU 0 DATA LINK STATION INDEX # L PCCRCMD EQU 1 COMMAND CODE # x " PCCRSU1 EQU 2 SUBCOMMAND BYTE 1 # " PCCRSU2 EQU 3 SUBCOMMAND BYTE 2 # PCCRSUB EQU 2 SUBCOMMAND WORD #
0x481698…48182c Dummy {f00=0x016d, f01=0x0190, f02=»ER LENGTH (BYTES) # ~ 6 PCCRC1B EQU 12 DATA CHAINING CTRL & MSB BUFFER ADDR $ PCCRBUF EQU 14 BUFFER ADDRESS $ T P* $ x P* $ P* BUFFER LAYOUT $ P* $ P* HEADER LENGTH $ , PBUFHLN EQU HEADLW+HEADLW LENGTH (BYTES) $ P* HEADE
0x48182c…4819c0 Dummy {f00=0x016d, f01=0x0190, f02=»IX EQU -2 BYTE INDEX $ $ P* X25 CONTROL FIELD LAYOUT % . PX25LGN EQU 0 LOGICAL CHANNEL GROUP NUMBER % D ( PX25LCN EQU 1 LOGICAL CHANNEL NUMBER % v * PX25FLW EQU 2 FLOW CONTROL INFORMATION % $ PX25DAT EQU 3 START OF USER DATA % P* % P EJECT
0x4819c0…481b54 (11, 23) Dummy {f00=0x016d, f01=0x0190, f02=»EQU /85 OPEN DLS % & PCMDPS EQU /84 GET LINE STATISTICS & $ PCMDDS EQU /83 GET DLS STATISTICS & B $ PCMDRM EQU /87 READ LOCAL MEMORY & j PCMDSW EQU /40 STANDARD WRITE & PCMDFW EQU /41 FAST WRITE & PCMDGR EQU /20 GENERAL READ & P* & P* &
0x481b54…481ce8 Dummy {f00=0x016d, f01=0x0190, f02=»ORDRM EQU 3 READ LOCAL MEMORY & P* ' & P* ' 0 P* MESSAGE TYPES ' : P* ' T & PTYERR EQU 0 ILLEGAL TYPE OR ERROR ' ^ 2 PTYNFLO EQU 2 DATA PACKET WITH NO FLOW CONTROL ' & PTYSTAT EQU 4 DEVICE STATUS MESSAGE ' $ PTYDATA EQU 6 NORMAL DATA PACKET
0x481ce8…481e7c Dummy {f00=0x016d, f01=0x0190, f02=» P EJECT ( P* ( " P* DWT STATUS FLAGS (DWTST) ( P* ( B $ PDWFBSY EQU /8000 DEVICE NOT BUSY ( L PDWFECH EQU /2000 ECHO MODE ( t $ PDWFINP EQU /0020 INPUT REQUESTED ( * PDWFRES EQU /0008 RESET SEQUENCE ACTIVE ( , PDWFAK3 EQU /0004 WAITING FOR
0x481e7c…482010 Dummy {f00=0x016d, f01=0x0190, f02=»T FOR LEVEL 3 ACK ( | P* ) P* ) $ " P* PLC STATUS FLAGS (CCRSTA) ) . P* ) T " PSTANOC EQU /0001 NO CONNECTION ) ^ PSTALIR EQU /0004 LINK RESET ) & PSTADNO EQU /1000 DCE NOT OPERABLE ) " PSTAE1 EQU STANOC+STALIR DUMMY ) 2 PSTAERR EQU STAE1
0x482010…4821a4 Dummy {f00=0x016d, f01=0x0190, f02=» EQU /0100 POLLING STOPPED ) 0 PSTACOM EQU /0080 COMMUNICATION REESTABLISHED * " $ PSTASEQ EQU /0010 SEQUENCE ERROR * V $ PSTAILL EQU /0008 ILLEGAL LENGTH * ~ PSTALER EQU /0002 LINK ERROR * P* * P EJECT * P* * " P* WORK STATION STATUS FLA
0x4821a4…482338 Dummy {f00=0x016d, f01=0x0190, f02=»SKPL EQU /0F PLC NUMBER (0-3 USED) * 2 PMASKWS EQU /3F WORK STATION NUMBER (1-32 USED) + * . PMASKLC EQU /3F LOGICAL CHANNEL (0-7 USED) + ` P* + P* + P* RETURN CODES + P* + P* AT REQUEST RETURN + " PNOTOPR EQU /0001 NOT OPERABLE
0x482338…4824cc Dummy {f00=0x016d, f01=0x0190, f02=»OWER UP + | ( PRESECP EQU /0002 SECONDARY POWER UP , PRELINE EQU /0004 LINK ERROR , < P* , ` P* , j P* MISCELLANEOUS , t P* , * PPLCERR EQU /F1 SOP ERROR CODE AT TRAP , 0 PCIDINT EQU 8 OFFSET TO INTERRUPT DESCRIPTOR , 2 PMAXFR EQU 4 MA
0x4824cc…482660 Dummy {f00=0x016d, f01=0x0190, f02=» , P* DATA AREAS * - P************** - P* - 4 P* CWT ADDRESS TABLE - > P* - PCWTPLC EQU * - f PTABCWT EQU * - z P IFF PLCNRL=0 - " P DATA PL0CWT CWT FOR PLC NR 1 - P IFF PLCNRL=1 - " P DATA PL1CWT CWT FOR PLC NR 2 - P I
0x482660…4827f4 (11, 24) Dummy {f00=0x016e, f01=0x018e, f02=» P IFF PLCNRL=4 . " P DATA 0 PLC NR 4 NOT CONNECTED . P IFF PLCNRL=3 . @ " P DATA 0 PLC NR 3 NOT CONNECTED . V P IFF PLCNRL=2 . | " P DATA 0 PLC NR 2 NOT CONNECTED . P IFF PLCNRL=1 =5 . & P DATA 0 PLC NR 1 NOT CONNECTED =5 . P XIF . P
0x4827f4…482988 Dummy {f00=0x016e, f01=0x018e, f02=» . j P IFF PLCNRR=2 / ( P DATA PR3CWT CWT FOR PLC NR. 7, REM. / P IFF PLCNRR=3 / J ( P DATA PR4CWT CWT FOR PLC NR. 8, REM. / ` P XIF / P* / P IFF PLCNRR=4 / " P DATA 0 PLC NR 8 NOT CONNECTED / P IFF PLCNRR=3 / " P DATA 0 PLC NR 7 NOT
0x482988…482b1c Dummy {f00=0x016e, f01=0x0190, f02=» P XIF 0 P* 0 P EJECT 0 P* 0 ( P* 0 2 POPARR1 EQU * 0 < P IFF PLCNRR=0 U =5 0 P P DATA OPNR10 LINE 0 0 j P DATA OPNR11 LINE 1 0 P DATA OPNR12 LINE 2 0 P DATA OPNR13 LINE 3 0 P XIF 0 POPARR2 EQU * 0 P IFF PLCNRR=0
0x482b1c…482cb0 Dummy {f00=0x016e, f01=0x0190, f02=»INE 3 0 P XIF 1 POPARR3 EQU * 1 P IFF PLCNRR=0 U =5 1 . P IFF PLCNRR=1 U =5 1 H P IFF PLCNRR=2 U =5 1 b P DATA OPNR30 LINE 0 1 | P DATA OPNR31 LINE 1 1 P DATA OPNR32 LINE 2 1 P DATA OPNR33 LINE 3 1 P XIF 1 POPARR4 EQU * 1
0x482cb0…482e44 Dummy {f00=0x016e, f01=0x0190, f02=» DATA OPNR41 LINE 1 1 P DATA OPNR42 LINE 2 2 P DATA OPNR43 LINE 3 2 8 P XIF 2 T P* 2 ` POPARL1 EQU * U =5 2 j P DATA OPNL10 LOCAL PLC 1 =5 2 POPARL2 EQU * U =5 2 P DATA OPNL20 LOCAL PLC 2 =5 2 POPARL3 EQU * U =5 2 P DATA OP
0x482e44…482fd8 Dummy {f00=0x016e, f01=0x0190, f02=»AREAS, LOCAL 2 z P* 3 P* STANDARD AREAS : 3 P* PRIMARY STATION 3 : P* FULL DUPLEX 3 T P* 96000 BITS/SEC 3 j P* NO NRZI ENCODING 3 P* POLLING 24HZ U =8 3 P* 5 RETRANSMISSIONS 3 P* 3 MIN. TIME OUT 3 P* 3 P* 3 $ POPNL40
0x482fd8…48316c Dummy {f00=0x016e, f01=0x0190, f02=»000,POLRTL,TIMACT,/0120,0 =8,=11 3 P XIF 4 ( $ POPNL30 EQU * LOCAL PLC 3, LINE 0 4 4 P IFF PLCNRL=0 4 P IFF PLCNRL=1 4 r P IFF PLCNRL=2 4 2 P DATA /0101,/A000,POLRTL,TIMACT,/0120,0 =8,=11 4 P XIF 4 $ POPNL20 EQU * LOCAL PLC 2, LINE 0 4 P
0x48316c…483300 Dummy {f00=0x016e, f01=0x0190, f02=»LINE 0 4 v P IFF PLCNRL=0 5 2 P DATA /0101,/A000,POLRTL,TIMACT,/0120,0 =8,=11 5 $ P XIF 5 Z P* 5 f ( P* END OF LOCAL LINE PARAMETER AREAS 5 p P* 5 P EJECT 5 P* 5 ( P* OPEN LINE PARAMETER AREAS, REMOTE 5 P* 5 P* STANDARD AREAS :
0x483300…483494 (11, 25) Dummy {f00=0x016e, f01=0x0190, f02=»ANSMISSIONS 5 P* 5 MIN. TIME OUT 6 P* 6 . P* 6 8 P* REMOTE PLC 4 6 B POPNR40 EQU * LINE 0 6 X P IFF PLCNRR=0 6 t P IFF PLCNRR=1 6 P IFF PLCNRR=2 6 P IFF PLCNRR=3 6 0 P DATA /0103,/0400,POLRTR,TIMACT,/0108,0 =11 6 P XIF 6
0x483494…483628 Dummy {f00=0x016e, f01=0x0190, f02=»0,POLRTR,TIMACT,/0908,0 =11 6 P XIF 7 $ POPNR42 EQU * LINE 2 7 0 P IFF PLCNRR=0 7 L P IFF PLCNRR=1 7 b P IFF PLCNRR=2 7 x P IFF PLCNRR=3 7 4 P DATA /0103,/0400,POLRTR,TIMACT,/1108,0 =10,=11 7 P XIF 7 POPNR43 EQU * LINE 3 7 P IFF
0x483628…4837bc Dummy {f00=0x016e, f01=0x0190, f02=» P XIF 8 P* REMOTE PLC 3 8 POPNR30 EQU * LINE 0 8 & P IFF PLCNRR=0 8 B P IFF PLCNRR=1 8 X P IFF PLCNRR=2 8 n 0 P DATA /0103,/0400,POLRTR,TIMACT,/0108,0 =11 8 P XIF 8 POPNR31 EQU * LINE 1 8 P IFF PLCNRR=0 8 P IFF PLCNRR=1 8
0x4837bc…483950 Dummy {f00=0x016e, f01=0x0190, f02=» P IFF PLCNRR=1 9 P IFF PLCNRR=2 9 4 P DATA /0103,/0400,POLRTR,TIMACT,/1108,0 =10,=11 9 0 P XIF 9 h POPNR33 EQU * LINE 3 9 t P IFF PLCNRR=0 9 P IFF PLCNRR=1 9 P IFF PLCNRR=2 9 4 P DATA /0103,/0400,POLRTR,TIMACT,/1908,0 =10,=11 9
0x483950…483ae4 Dummy {f00=0x016e, f01=0x0190, f02=»POLRTR,TIMACT,/0108,0 =11 9 ~ P XIF : " POPNR21 EQU * LINE 1 : . P IFF PLCNRR=0 : J P IFF PLCNRR=1 : ` 0 P DATA /0103,/0400,POLRTR,TIMACT,/0908,0 =11 : v P XIF : POPNR22 EQU * LINE 2 : P IFF PLCNRR=0 : P IFF PLCNRR=1 : 4 P DATA /010
0x483ae4…483c78 Dummy {f00=0x016e, f01=0x0190, f02=»/0103,/0400,POLRTR,TIMACT,/1908,0 =10,=11 : P XIF ; 2 P* ; > P* REMOTE PLC 1 ; H POPNR10 EQU * LINE 0 ; ^ P IFF PLCNRR=0 ; z 0 P DATA /0103,/0400,POLRTR,TIMACT,/0108,0 =11 ; P XIF ; POPNR11 EQU * LINE 1 ; P IFF PLCNRR=0 ; 0 P DATA
0x483c78…483e0c Dummy {f00=0x016e, f01=0x018e, f02=»ACT,/1108,0 =10,=11 ; t P XIF < POPNR13 EQU * LINE 3 < ( P IFF PLCNRR=0 < D 4 P DATA /0103,/0400,POLRTR,TIMACT,/1908,0 =10,=11 < Z P XIF < ( P* END OF REMOTE LINE PARAMETER AREAS < P* < P* < , PPLCPFP DATA 0 PLC LOCAL POWER FAIL FLAG <
0x483e0c…483fa0 Dummy {f00=0x016e, f01=0x0190, f02=» P* = P* = " P* QUEUE STATISTICS COUNTERS = & P* EACH COUNTER HAS ONE WORD / PLC = > P* = h PSTATAR EQU * = r PWIQSTA RES 8 WINDOW QUEUE = $ PSBQSTA RES 8 SHORT BUFFERS QUEUE = $ PLBQSTA RES 8 LONG BUFFERS QUEUE = PCCQSTA RES 8 CCA
0x483fa0…484134 (11, 26) Dummy {f00=0x016e, f01=0x0190, f02=» P* > PCWTOPR EQU /00 CU OPERABLE > PCWTCCB EQU /02 CCA BUSY > 0 ( PCWTGR EQU /04 GENERAL READ ALLOWED > P " PCWTPNR EQU /06 CU NUMBER (0-7) > | PCWTABW EQU /08 WS TO ABORT > ( PCWTPLS EQU /0A LATEST PLC RCA STATUS > $ PCWTLNO EQU /0C LINE NO I
0x484134…4842c8 Dummy {f00=0x016e, f01=0x0190, f02=» WS TABLE ADDRESS > ( PCWTBUF EQU /14 INP. BUFFER ADDRESS ? 2 PCWTSBQ EQU /16 QUEUE FOR SHORT OUTP. BUFFERS ? F 0 PCWTLBQ EQU /18 QUEUE FOR LONG OUTP. BUFFERS ? | & PCWTCCQ EQU /1A QUEUE FOR CCA FREE ? 2 PCWTMBQ EQU /1C QUEUE OF ALLOCATED MON. BLOCKS
0x4842c8…48445c Dummy {f00=0x016e, f01=0x0190, f02=»TRL UNIT START DESCRIPTOR ? , PCWTCID EQU /2A CTRL UNIT INTERF. DESCR. @ " & PCWTCCA EQU /34 COMMAND CTRL AREA @ R & PCWTRCA EQU /44 RESPONSE CTRL AREA @ | 0 PCWTPBS EQU /54 POOLBL. SHORT OUTP. BUFFERS @ 0 PCWTPBL EQU /5E POOLBL. LONG OUTP. BUFFERS =2 @
0x48445c…4845f0 Dummy {f00=0x016e, f01=0x0190, f02=» =4 @ d " PCWTLB1 EQU CWTSOB+SOBUFS U =7 A 2 PCWTLOB EQU CWTLB1+SOBUFS LONG OUTP. BUFFERS =7 A 2 " PCWTGR1 EQU CWTLOB+LOBUFS U =7 A h 2 PCWTGRB EQU CWTGR1+LOBUFS GEN. READ BUFFERS =7 A P EJECT A P* A P IFF PLCNRL=0 A P* CWT FOR PLC NUM
0x4845f0…484784 Dummy {f00=0x016e, f01=0x0190, f02=» A r , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) B P* B 8 P* DATA WORDS B B P DATA 0 PLC NUMBER (0-3) B . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) B | " P DATA 0 LATEST PLC RCA STATUS B P DATA 0 LINE NO INDICATOR B P DATA 0 INDEX PARA
0x484784…484918 Dummy {f00=0x016e, f01=0x0190, f02=»STATION TABLE ADDRESS B ~ P DATA 0 INPUT BUFFER ADDRESS C * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER C B ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER C p P DATA 0 QUEUE FOR CCA FREE C . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS C , P DATA 0 TIMER POINTER FO
0x484918…484aac Dummy {f00=0x016e, f01=0x0190, f02=» RESET INTERRUPT C r P* D P* PLC CONTROL AREAS D " . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) D B P DATA 0 DUMMY & MSB ADDRESS D t $ P DATA PL0CWT+CWTCID CID ADDRESS D P DATA INTLV0 INTERRUPT LEVEL D 2 P* CONTROL UNIT INTERFACE DESCRIPTOR
0x484aac…484c40 Dummy {f00=0x016e, f01=0x0190, f02=»PL0CWT+CWTRCA RCA ADDRESS D $ P DATA 0 INTERRUPT SPECIFICATION E " P RES 8 COMMAND CONTROL AREA E J P RES 8 RESPONSE CONTROL AREA E n P* E P* POOLBLOCKS E P DATA 'SO',0 ID & FLAGS E 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH E
0x484c40…484dd4 (11, 27) Dummy {f00=0x016e, f01=0x018e, f02=» E P DATA 0,GRBUF1+GRBUF1 F P DATA GRBUFS+GRBUFS F & P* F B 2 P* WORK STATION STATUS WORDS. 1 WORD / WS F L 2 P RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. F P* F P* BUFFER AREAS F $ P RES SOBUFS SHORT OUTPUT BUFFERS F $ P R
0x484dd4…484f68 Dummy {f00=0x016e, f01=0x0190, f02=» F P EJECT G P* G P* CWT FOR PLC NUMBER 2 G P* G B PPL1CWT EQU * G L P* G ` P* FLAGS G j P RES 1 PLC OPERABLE FLAG G ~ " P DATA 0 CCA BUSY FLAG (0=FREE) G , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) G P* G P* DAT
0x484f68…4850fc Dummy {f00=0x016e, f01=0x0190, f02=» DATA 0 LINE NO INDICATOR G $ P DATA 0 INDEX TO PARAMETER AREA H " P* H J $ P* POINTERS AND QUEUE HEADS H T . P DATA OPARL2 OPEN LINE PARAMETER AREA ADDR H | , P DATA INTPL2 WORK STATION TABLE ADDRESS H P DATA 0 INPUT BUFFER ADDRESS H * P DATA
0x4850fc…485290 Dummy {f00=0x016e, f01=0x0190, f02=»LLOCATED MONITOR BLOCKS H ~ , P DATA 0 TIMER POINTER FOR RESTART DELAY I P* I P P* INSTRUCTIONS I Z ( P CIO A3,1,PLCDA1 START I/O OPERATION I v 2 P SST A3,PLCDA1 RELEASE RCA AND RESET INTERRUPT I P* I P* PLC CONTROL AREAS I . P* CONT
0x485290…485424 Dummy {f00=0x016e, f01=0x0190, f02=»ERRUPT LEVEL I 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) J P DATA 0 DUMMY & MSB ADDRESS J J $ P DATA PL1CWT+CWTCCA CCA ADDRESS J n P DATA 0 DUMMY & MSB ADDRESS J $ P DATA PL1CWT+CWTRCA RCA ADDRESS J $ P DATA 0 INTERRUPT SPECIFICATION J
0x485424…4855b8 Dummy {f00=0x016e, f01=0x0190, f02=»O',0 ID = "SHORT OUTPUT" & FLAGS J 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH K ( $ P DATA SOBUFS+SOBUFS AREA LENGTH K ` $ P DATA 'LO',0 ID = "LONG OUTPUT" K P DATA 0,LOBUF1+LOBUF1 K P DATA LOBUFS+LOBUFS K $ P DATA 'GR',0 ID = "GENERAL REA
0x4855b8…48574c Dummy {f00=0x016e, f01=0x0190, f02=» MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. K P* L 2 P* BUFFER AREAS L < $ P RES SOBUFS SHORT OUTPUT BUFFERS L X $ P RES LOBUFS LONG OUTPUT BUFFERS L $ P RES GRBUFS GENERAL READ BUFFERS L P* L P* L P IFF PLCNRL=2 L P* L P EJE
0x48574c…4858e0 Dummy {f00=0x016e, f01=0x0190, f02=»AG L z " P DATA 0 CCA BUSY FLAG (0=FREE) M , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) M 0 P* M ` P* DATA WORDS M j P DATA 2 PLC NUMBER (0-3) M . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) M " P DATA 0 LATEST PLC RCA STATUS M P DATA 0 LINE
0x4858e0…485a74 (11, 28) Dummy {f00=0x016f, f01=0x0190, f02=»ARAMETER AREA ADDR M x , P DATA INTPL3 WORK STATION TABLE ADDRESS N P DATA 0 INPUT BUFFER ADDRESS N J * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER N n ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER N P DATA 0 QUEUE FOR CCA FREE N . P DATA 0 QUEUE OF ALLOCATED MON
0x485a74…485c08 Dummy {f00=0x016f, f01=0x018e, f02=»RATION N r 2 P SST A3,PLCDA2 RELEASE RCA AND RESET INTERRUPT O P* O D P* PLC CONTROL AREAS O N . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) O n P DATA 0 DUMMY & MSB ADDRESS O $ P DATA PL2CWT+CWTCID CID ADDRESS O P DATA INTLV2 INTERRUPT LEVEL
0x485c08…485d9c Dummy {f00=0x016f, f01=0x0190, f02=» P DATA 0 DUMMY & MSB ADDRESS P $ P DATA PL2CWT+CWTRCA RCA ADDRESS P ( $ P DATA 0 INTERRUPT SPECIFICATION P P P RES 8 COMMAND CONTROL AREA P x P RES 8 RESPONSE CONTROL AREA P P* P ( P* POOLBLOCKS (5 WORDS / BLOCK) P , P DATA 'SO',0 ID =
0x485d9c…485f30 Dummy {f00=0x016f, f01=0x0190, f02=»,0 ID = "LONG OUTPUT" P P DATA 0,LOBUF1+LOBUF1 Q P DATA LOBUFS+LOBUFS Q < $ P DATA 'GR',0 ID = "GENERAL READ" Q X P DATA 0,GRBUF1+GRBUF1 Q P DATA GRBUFS+GRBUFS Q P* Q 2 P* WORK STATION STATUS WORDS. 1 WORD / WS Q 2 P RES MAXWS+1 L
0x485f30…4860c4 Dummy {f00=0x016f, f01=0x0190, f02=»UTPUT BUFFERS Q ~ $ P RES GRBUFS GENERAL READ BUFFERS R P* R > P* R H P IFF PLCNRL=3 R R P* R h P EJECT R r P* R P* CWT FOR PLC NUMBER 4 R P* R PPL3CWT EQU * R P* R P* FLAGS R P RES 1 PLC OPERABLE FLAG R " P
0x4860c4…486258 Dummy {f00=0x016f, f01=0x0190, f02=»MBER (0-3) R . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) S " P DATA 0 LATEST PLC RCA STATUS S D P DATA 0 LINE NO INDICATOR S j $ P DATA 0 INDEX TO PARAMETER AREA S P* S $ P* POINTERS AND QUEUE HEADS S . P DATA OPARL4 OPEN LINE PARAMETER A
0x486258…4863ec Dummy {f00=0x016f, f01=0x0190, f02=»R S l ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER T P DATA 0 QUEUE FOR CCA FREE T 6 . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS T X , P DATA 0 TIMER POINTER FOR RESTART DELAY T P* T P* INSTRUCTIONS T ( P CIO A3,1,PLCDA3 START I/O OPERATION T
0x4863ec…486580 Dummy {f00=0x016f, f01=0x0190, f02=»ORDS) T l P DATA 0 DUMMY & MSB ADDRESS U $ P DATA PL3CWT+CWTCID CID ADDRESS U 2 P DATA INTLV3 INTERRUPT LEVEL U Z 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) U ~ P DATA 0 DUMMY & MSB ADDRESS U $ P DATA PL3CWT+CWTCCA CCA ADDRESS U P DATA 0
0x486580…486714 (11, 29) Dummy {f00=0x016f, f01=0x0190, f02=» U t P RES 8 RESPONSE CONTROL AREA V P* V , ( P* POOLBLOCKS (5 WORDS / BLOCK) V 6 , P DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS V b 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH V $ P DATA SOBUFS+SOBUFS AREA LENGTH V $ P DATA 'LO',0 ID = "LON
0x486714…4868a8 Dummy {f00=0x016f, f01=0x0190, f02=»1 V | P DATA GRBUFS+GRBUFS W P* W & 2 P* WORK STATION STATUS WORDS. 1 WORD / WS W 0 2 P RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. W f P* W P* BUFFER AREAS W $ P RES SOBUFS SHORT OUTPUT BUFFERS W $ P RES LOBUFS LONG OUTPUT BUFFER
0x4868a8…486a3c Dummy {f00=0x016f, f01=0x0190, f02=»UMBER 5 REMOTE W ~ P* X PPR1CWT EQU * X P* X 4 P* FLAGS X > P RES 1 PLC OPERABLE FLAG X R " P DATA 0 CCA BUSY FLAG (0=FREE) X r , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) X P* X P* DATA WORDS X P DATA 4 PLC NUMBER (4-7) =5
0x486a3c…486bd0 Dummy {f00=0x016f, f01=0x0190, f02=»0 INDEX TO PARAMETER AREAS X P* Y " $ P* POINTERS AND QUEUE HEADS Y , 4 P DATA OPARR1 OPEN LINE PARAMETER AREA ADDRESSES Y T , P DATA INTPR1 WORK STATION TABLE ADDRESS Y P DATA 0 INPUT BUFFER ADDRESS Y * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER Y
0x486bd0…486d64 Dummy {f00=0x016f, f01=0x0190, f02=»ATA 0 TIMER POINTER FOR RESTART DELAY Y P* Z . P* INSTRUCTIONS Z 8 ( P CIO A3,1,PLCDA4 START I/O OPERATION Z T 2 P SST A3,PLCDA4 RELEASE RCA AND RESET INTERRUPT Z P* Z P* PLC CONTROL AREAS Z . P* CONTROL UNIT START DESCRIPTOR (3 WORDS
0x486d64…486ef8 Dummy {f00=0x016f, f01=0x018e, f02=» INTERFACE DESCRIPTOR (5 WORDS) Z P DATA 0 DUMMY & MSB ADDRESS [ ( $ P DATA PR1CWT+CWTCCA CCA ADDRESS [ L P DATA 0 DUMMY & MSB ADDRESS [ t $ P DATA PR1CWT+CWTRCA RCA ADDRESS [ $ P DATA 0 INTERRUPT SPECIFICATION [ P RES 8 COMMAND CONTROL AREA [
0x486ef8…48708c Dummy {f00=0x016f, f01=0x0190, f02=» [ f 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH $ P DATA SOBUFS+SOBUFS AREA LENGTH @ $ P DATA 'LO',0 ID = "LONG OUTPUT" h P DATA 0,LOBUF1+LOBUF1 P DATA LOBUFS+LOBUFS $ P DATA 'GR',0 ID = "GENERAL READ" P DATA 0,GRBUF1+GRBUF1
0x48708c…487220 Dummy {f00=0x016f, f01=0x0190, f02=» = FLAGS. l P* ] P* BUFFER AREAS ] $ P RES SOBUFS SHORT OUTPUT BUFFERS ] 8 $ P RES LOBUFS LONG OUTPUT BUFFERS ] ` $ P RES GRBUFS GENERAL READ BUFFERS ] P* ] P* ] P EJECT ] P IFF PLCNRR=1 ] P* ] $ P* CWT FOR PLC NUMBE
0x487220…4873b4 (11, 30) Dummy {f00=0x016f, f01=0x018e, f02=»REE) ] v , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) ^ P* ^ < P* DATA WORDS ^ F P DATA 5 PLC NUMBER (4-7) =5 ^ ` . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) ^ " P DATA 0 LATEST PLC RCA STATUS ^ P DATA 0 LINE NO INDICATOR =5 ^ ( P DATA 0
0x4873b4…487548 Dummy {f00=0x016f, f01=0x0190, f02=» ^ ^ , P DATA INTPR2 WORK STATION TABLE ADDRESS _ P DATA 0 INPUT BUFFER ADDRESS _ 8 * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER _ ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER _ P DATA 0 QUEUE FOR CCA FREE _ . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS _ ,
0x487548…4876dc Dummy {f00=0x016f, f01=0x0190, f02=» A3,PLCDA5 RELEASE RCA AND RESET INTERRUPT _ P* ` 2 P* PLC CONTROL AREAS ` < . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) ` P DATA 0 DUMMY & MSB ADDRESS ` $ P DATA PR2CWT+CWTCID CID ADDRESS ` P DATA INTRV1 INTERRUPT LEVEL ` 2 P* CONTROL
0x4876dc…487870 Dummy {f00=0x016f, f01=0x0190, f02=»MSB ADDRESS ` $ P DATA PR2CWT+CWTRCA RCA ADDRESS a $ P DATA 0 INTERRUPT SPECIFICATION a < P RES 8 COMMAND CONTROL AREA a d P RES 8 RESPONSE CONTROL AREA a P* a ( P* POOLBLOCKS (5 WORDS / BLOCK) a , P DATA 'SO',0 ID = "SHORT OUTPUT" & FLA
0x487870…487a04 Dummy {f00=0x016f, f01=0x018e, f02=»" a r P DATA 0,LOBUF1+LOBUF1 b P DATA LOBUFS+LOBUFS b ( $ P DATA 'GR',0 ID = "GENERAL READ" b D P DATA 0,GRBUF1+GRBUF1 b l P DATA GRBUFS+GRBUFS b P* b 2 P* WORK STATION STATUS WORDS. 1 WORD / WS b 2 P RES MAXWS+1 L BYTE = STATUS. R BY
0x487a04…487b98 Dummy {f00=0x016f, f01=0x0190, f02=» $ P RES GRBUFS GENERAL READ BUFFERS c P* c , P* c 6 P EJECT c @ P IFF PLCNRR=2 c N P* c d $ P* CWT FOR PLC NUMBER 7 REMOTE c n P* c PPR3CWT EQU * c P* c P* FLAGS c P RES 1 PLC OPERABLE FLAG c " P DATA 0 CCA BUSY FLAG
0x487b98…487d2c Dummy {f00=0x016f, f01=0x0190, f02=» DATA 0 WORK STATION TO ABORT (0=NO ABORT) c " P DATA 0 LATEST PLC RCA STATUS d 2 P DATA 0 LINE NO INDICATOR d X $ P DATA 0 INDEX TO PARAMETER AREAS d z P* d $ P* POINTERS AND QUEUE HEADS d 4 P DATA OPARR3 OPEN LINE PARAMETER AREA ADDRESSES d
0x487d2c…487ec0 Dummy {f00=0x016f, f01=0x018e, f02=»ATA 0 QUEUE FOR LONG OUTPUT BUFFER d P DATA 0 QUEUE FOR CCA FREE e * . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS e L , P DATA 0 TIMER POINTER FOR RESTART DELAY e ~ P* e P* INSTRUCTIONS e ( P CIO A3,1,PLCDA6 START I/O OPERATION e 2 P SST A3,
0x487ec0…488054 (11, 31) Dummy {f00=0x016f, f01=0x0190, f02=» P DATA 0 DUMMY & MSB ADDRESS f $ P DATA PR3CWT+CWTCID CID ADDRESS f ( P DATA INTRV2 INTERRUPT LEVEL f P 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) f t P DATA 0 DUMMY & MSB ADDRESS f $ P DATA PR3CWT+CWTCCA CCA ADDRESS f P DATA 0 DUMMY & MS
0x488054…4881e8 Dummy {f00=0x016f, f01=0x0190, f02=»ES 8 RESPONSE CONTROL AREA f P* g " ( P* POOLBLOCKS (5 WORDS / BLOCK) g , , P DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS g X 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH g $ P DATA SOBUFS+SOBUFS AREA LENGTH g $ P DATA 'LO',0 ID = "LONG OUTPUT"
0x4881e8…48837c Dummy {f00=0x016f, f01=0x0190, f02=» DATA GRBUFS+GRBUFS g P* h 2 P* WORK STATION STATUS WORDS. 1 WORD / WS h & 2 P RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. h P* h P* BUFFER AREAS h $ P RES SOBUFS SHORT OUTPUT BUFFERS h $ P RES LOBUFS LONG OUTPUT BUFFERS h $ P
0x48837c…488510 Dummy {f00=0x016f, f01=0x0190, f02=»TE h r P* i PPR4CWT EQU * i P* i ( P* FLAGS i 2 P RES 1 PLC OPERABLE FLAG i F " P DATA 0 CCA BUSY FLAG (0=FREE) i f , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) i P* i P* DATA WORDS i P DATA 7 PLC NUMBER (4-7) =5 i . P DAT
0x488510…4886a4 Dummy {f00=0x016f, f01=0x0190, f02=»ARAMETER AREAS i ~ P* j $ P* POINTERS AND QUEUE HEADS j 4 P DATA OPARR4 OPEN LINE PARAMETER AREA ADDRESSES j H , P DATA INTPR4 WORK STATION TABLE ADDRESS j P DATA 0 INPUT BUFFER ADDRESS j * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER j ( P DATA
0x4886a4…488838 Dummy {f00=0x016f, f01=0x0190, f02=»POINTER FOR RESTART DELAY j P* k " P* INSTRUCTIONS k , ( P CIO A3,1,PLCDA7 START I/O OPERATION k H 2 P SST A3,PLCDA7 RELEASE RCA AND RESET INTERRUPT k t P* k P* PLC CONTROL AREAS k . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) k P D
0x488838…4889cc Dummy {f00=0x016f, f01=0x0190, f02=»ESCRIPTOR (5 WORDS) k v P DATA 0 DUMMY & MSB ADDRESS l $ P DATA PR4CWT+CWTCCA CCA ADDRESS l @ P DATA 0 DUMMY & MSB ADDRESS l h $ P DATA PR4CWT+CWTRCA RCA ADDRESS l $ P DATA 0 INTERRUPT SPECIFICATION l P RES 8 COMMAND CONTROL AREA l P RES 8 R
0x4889cc…488b60 Dummy {f00=0x016f, f01=0x0190, f02=»0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH l $ P DATA SOBUFS+SOBUFS AREA LENGTH m 2 $ P DATA 'LO',0 ID = "LONG OUTPUT" m Z P DATA 0,LOBUF1+LOBUF1 m P DATA LOBUFS+LOBUFS m $ P DATA 'GR',0 ID = "GENERAL READ" m P DATA 0,GRBUF1+GRBUF1 m P DATA
0x488b60…488cf4 (11, 32) Dummy {f00=0x0170, f01=0x0190, f02=» P* n P* BUFFER AREAS n $ P RES SOBUFS SHORT OUTPUT BUFFERS n * $ P RES LOBUFS LONG OUTPUT BUFFERS n R $ P RES GRBUFS GENERAL READ BUFFERS n z P* n P* n P XIF n P EJECT n P* n & P* I/O COMPLETION DISPATCH TABLE n P* n
0x488cf4…488e88 Dummy {f00=0x0170, f01=0x0190, f02=»* n PCMDTAB EQU * o 0 P DATA CMDTC COMMAND CODE "TEST CHANNEL UNIT" o 6 P DATA COMPTC START OF "TEST CU" COMPLETION ROUTINE o R 0 P DATA 0 ALLOWED STATUS FOR "TEST CU" COMMAND o , PCMDTB1 EQU *-CMDTAB LENGTH OF ONE ENTRY o P DATA CMDOP OPEN LINE o
0x488e88…48901c Dummy {f00=0x0170, f01=0x0190, f02=» $ P DATA CMDPS GET LINE STATISTICS p P DATA COMPPS p , " PSTAE2 EQU STAREQ+STAILL DUMMY p @ " PSTAE3 EQU STASEQ+STANOB DUMMY p f P DATA STAE2+STAE3 p " P DATA CMDDS GET DLS STATISTICS p P DATA COMPDS p P DATA STAE2+STAE3 p " P DATA CMDRM RE
0x48901c…4891b0 Dummy {f00=0x0170, f01=0x018e, f02=» p v P DATA COMPSW q P DATA STAERR q P DATA CMDFW FAST WRITE q 0 P DATA COMPFW q N P DATA STAERR q b P DATA CMDGR GENERAL READ q v P DATA COMPGR q P DATA 0 q $ PCMDTBL EQU *-CMDTAB TABLE LENGTH q P* q P EJECT q P* q ( P*
0x4891b0…489344 Dummy {f00=0x0170, f01=0x0190, f02=» PREAROU EQU * r P DATA GRERR1 ERROR ROUTINE r 6 P DATA GRERR1 DATA PACKET NO FLOW C. (NOT IMPLEM.) r : * P DATA GRSTAT DEVICE STATUS DATA PACKET r t $ P DATA GRDATA NORMAL DATA PACKET r $ P DATA GRRR RECIEVE READY PACKET r P DATA GRRES RESET PACK
0x489344…4894d8 Dummy {f00=0x0170, f01=0x0190, f02=» 2 P* THIS TABLE IS INDEXED BY THE "MESSAGE TYPE" s P* CONSTANTS DEFINED ABOVE. s : PWRIROU EQU * s P DATA WRERR ERROR ROUTINE s p 2 P DATA WRNFLO DATA PACKET WITHOUT FLOW CONTROL s 2 P DATA WRERR DEVICE STATUS DATA (NOT RELEVANT) s $ P DATA WRDA
0x4894d8…48966c Dummy {f00=0x0170, f01=0x0190, f02=»ET CONFIRMATION PACKET s P* t P EJECT t ( P* t 6 P******************** t @ P* REQUEST ROUTINES * t P******************** t x P* t 8 P* THIS SECTION CONTAINS REQUEST HANDLING ROUTINES. t 6 P* THE REQUEST ROUTINES ARE CALLED FROM TERMI
0x48966c…489800 Dummy {f00=0x0170, f01=0x0190, f02=»THE DISTRIBUTOR DRIVER WILL SWITCH CALL TO t 6 P* CONNECTED LINE DRIVER. RETURN IS MADE DIRECTLY u 2 4 P* FROM THIS DRIVER TO TERMINAL DEVICE DRIVER. u l 6 P* A CALL WILL NORMALLY RESULT IN A WAIT FOR SOME u 8 P* I/O ACTION AND DISPATCHING. THIS MEANS
0x489800…489994 (11, 33) Dummy {f00=0x0170, f01=0x018e, f02=»N ORDER OF APPEARANCE IN CODE: u P* v & P* NAME FUNCTION v 0 P* v H $ P* PLCHRI INPUT OF ONE CHARACTER v R * P* PLSTBL DEFINE START OF OUTPUT BLOCK v z $ P* PLCHRO OUTPUT OF ONE CHARACTER v ( P* PLENBL DEFINE END OF OUTPUT BLOCK v & P* PLTEST PER
0x489994…489b28 Dummy {f00=0x0170, f01=0x0190, f02=» v P* ROUTINE NAME: w P* PLCHRI w P* w 0 P* FUNCTION: w : 2 P* THIS ROUTINE FETCHES ONE CHARACTER FROM THE w N 4 P* INPUT BUFFER. IF NO BUFFER HAS ARRIVED, "INPUT w 0 P* REQUESTED" FLAG IN DWT IS SET, AND CALLING w 2 P* PROCESS IS SUSPENDED U
0x489b28…489cbc Dummy {f00=0x0170, f01=0x018e, f02=»DWT ADDRESS w P* x P* OUTPUT: x P* AT RETURN TO DEVICE DRIVER x 0 P* A1 = BITS 0-14 CHANGED x T ( P* BIT 15 1 IF MORE CHAR IN BUFFER x v P* A2 = BITS 0-7 ZERO x P* BITS 8-15 CHARACTER x P* INTERR. ENABLED x P* x @ P****
0x489cbc…489e50 Dummy {f00=0x0170, f01=0x0190, f02=» x z ( P LD A4,DWTLD1,A6 INPUT TEXT WAITING? y " P RF(Z) CI100 NO, WAIT FOR TEXT y 4 P* y Z P EJECT y d P* y r , P CF A15,PLGECH GET CHARACTER FROM BUFFER y | " P LDR A1,A1 CHECK RETURN STATUS y , P RF(N) CI100 BUFFER EMPTY, WAIT FOR NEXT y P LDR*
0x489e50…489fe4 Dummy {f00=0x0170, f01=0x0190, f02=» A2,DWFINP FLAG "INPUT REQUESTED" y 0 P ORS A2,DWTST,A6 SET INPUT REQUESTED IN DWT z * , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT z ^ P ABL PLDISP LOCAL DISPATCHER z P* z P* z : P* ENTRY IS MADE HERE WHEN A NEW BUFFER HAS ARRIVED z P*
0x489fe4…48a178 Dummy {f00=0x0170, f01=0x0190, f02=» P* A4 = BUFFER ADDRESS { P* A6 = DWT ADDRESS { " P* { > PINPRST EQU * { H 2 P LDKL A3,/FFFF-DWFINP MASK FOR INPUT REQUESTED { P ANS A3,DWTST,A6 RESET FLAG { ( P ST A4,DWTLD1,A6 LINK BUFFER TO DWT { P* { , P CF A15,NDGET8 GET A3-A5, A7
0x48a178…48a30c Dummy {f00=0x0170, f01=0x0190, f02=»N BUFFER? { v P RF(Z) CI120 NO, CONTINUE | & P LDK A1,1 INDICATE MORE CHARACTERS | 4 P RF CI130 | ^ P* | p PCI120 EQU * | z P CM DWTLD1,A6 UNLINK BUFFER | PCI130 EQU * | P ENB | P RTN A5 | P* | P EJECT | P* | @ P****
0x48a30c…48a4a0 Dummy {f00=0x0170, f01=0x0190, f02=» | 4 P* THIS ROUTINE DEFINES START OF AN OUTPUT BLOCK. } 2 P* IT ALLOCATES AN OUTPUT BUFFER, AND LINKS IT } @ P* TO THE DWT. } v P* } P* CALL: } P* ABI STBTAB,A1 } P* CF A5,PLSTBL } P* } P* INPUT: } 4 P* A2 = MAXIMAL LENGTH OF
0x48a4a0…48a634 (11, 34) Dummy {f00=0x0170, f01=0x0190, f02=» CODE } P* 0 IF OK ~ P* NOT 0 IF ERROR ~ 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) ~ : P* CR = CONTENTS OF A1 ~ n P* INTERR. ENABLED ~ P* ~ @ P************************************************************ ~ P* ~ PPLSTBL EQU
0x48a634…48a7c8 Dummy {f00=0x0170, f01=0x0190, f02=» P EJECT P* PSB050 EQU * . =16 . P LD A1,DWTLD1,A6 BUFFER ALREADY ALLOCATED? 6 ( P ABL(NZ) NDREPO YES, SET OK & RETURN h & P CF A15,GETLCS A1 := STATUS & INH P RF(NZ) SBERR2 ERROR, RETURN , P LD A3,DWTCHP,A6 CHANNEL PARAMETERS =1
0x48a7c8…48a95c Dummy {f00=0x0170, f01=0x018e, f02=»0 EQU * . =16 P* P* CHECK LEVEL 3 WINDOW $ P LDR A3,A2 SAVE MAX BLOCK LENGTH B P LD A1,DWTST,A6 DWT STATUS j 0 P ANKL A1,DWFECH+DWFTY1 ECHO OR ONLY TYPE 1? * P RF(NZ) SB090 YES, DON'T CHECK WINDOW 2 P CF A15,GETOFR A2 := NR OF
0x48a95c…48aaf0 Dummy {f00=0x0170, f01=0x0190, f02=» 0 P ANK A1,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? 2 P RF(NZ) SBERR YES, NO FRAMES MAY BE OUT. ERROR 8 P SUK A2,WINDOW WINDOW FULL? n P RF(N) SB090 NO, CONTINUE 0 P* DWT WILL HAVE TO WAIT UNTIL WINDOW IS OPEN 2 P ST A3,DWTLD1,A6 SAVE REQUESTED
0x48aaf0…48ac84 Dummy {f00=0x0170, f01=0x018e, f02=»0 QUEUE STATISTICS P LD A1,CWTPNR,A5 PLC NUMBER P SLA A1,1 MAKE INDEX > 4 P IM WIQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER Z P XIF P ABL PLDSP2 LOCAL DISPATCHER P* P* 6 P* ENTRY IS MADE HERE WHEN WINDOW IS OPEN AGAIN
0x48ac84…48ae18 Dummy {f00=0x0170, f01=0x0190, f02=» z P* A6 = DWT ADDRESS P* $ PWINRST EQU * . 4 P LD A3,DWTLD1,A6 RESTORE REQUESTED BUFFER LENGTH B P CM DWTLD1,A6 z P LDR A1,A1 RETURN CODE 2 P RF(NZ) SBERR2 ERROR, RETURN TO DEVICE DRIVER P* P* PSB090 EQU *
0x48ae18…48afac Dummy {f00=0x0170, f01=0x0190, f02=»T OUTPUT BUFFER ~ . P ADK A7,CWTPBS POOLBLOCK FOR SHORT BUFFERS " P CF A15,PLGTBU ALLOCATE BUFFER J , P RF(NZ) SB120 COMMON PART FOR SHORT/LONG p 2 P LDK A7,CWTSBQ NO BUFFER LEFT. SET QUEUE HEAD " P IFF UTTEST=0 QUEUE STATISTICS P LD A1,CWTPN
0x48afac…48b140 Dummy {f00=0x0170, f01=0x0190, f02=» PART FOR NO BUFFER P* PSB100 EQU * & & P CWK A3,LOBUFL LONG BUFFER ENOUGH? : P RF(G) SBERR NO, ERROR d $ P* ALLOCATE LONG OUTPUT BUFFER . P ADK A7,CWTPBL POOLBLOCK FOR LONG BUFFERS " P CF A15,PLGTBU ALLOCATE BUFFER , P RF(NZ
0x48b140…48b2d4 (11, 35) Dummy {f00=0x0170, f01=0x0190, f02=»D A1,CWTPNR,A5 PLC NUMBER P SLA A1,1 MAKE INDEX " 4 P IM LBQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER > P XIF v P* PSB110 EQU * 8 P* NO BUFFER WAS AVAILABLE. PUT REQUEST IN QUEUE. ( P ADR A7,A5 A7 := QUEUE HEAD ADDRESS P
0x48b2d4…48b468 Dummy {f00=0x0170, f01=0x0190, f02=»CHER x P* P* 2 P* ENTRY IS MADE HERE WHEN A BUFFER IS FREE P* REGISTERS ON ENTRY: V P* A1 = RETURN CODE v $ P* A4 = BUFFER ADDRESS (IF A1=0) P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS P* PBUFRST EQU *
0x48b468…48b5fc Dummy {f00=0x0170, f01=0x0190, f02=» 0 P ST A2,BUFBIX,A4 BYTE INDEX := START OF DATA 0 P ST A4,DWTLD1,A6 SAVE BUFFER ADDRESS IN DWT 8 P* l ( P ABL NDREPO RETURN TO DEVICE DRIVER v P* RETURN CODE := OK P* P* PSBERR EQU * ( P LDK A1,PLSERR RET CODE := SW ER
0x48b5fc…48b790 Dummy {f00=0x0170, f01=0x0190, f02=»* @ P************************************************************ P* N P* ROUTINE NAME: X P* PLCHRO p P* P* FUNCTION: : P* THIS ROUTINE WRITES ONE CHARACTER TO OUTPUT BUFFER. P* P* CALL: P* ABI OUPTAB,A1
0x48b790…48b924 Dummy {f00=0x0170, f01=0x0190, f02=»DRESS P* P* OUTPUT: P* AT RETURN TO DEVICE DRIVER * P* A1 = RETURN CODE N P* 0 IF OK j P* NOT 0 IF ERROR | 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) P* CR = CONTENTS OF A1 P* INTERR. ENABLED P*
0x48b924…48bab8 Dummy {f00=0x0170, f01=0x0190, f02=» P EJECT P* P STR A4,A15 PUSH A4 $ P LD A4,DWTLD1,A6 BUFFER ADDRESS < $ P RF(Z) COERR2 ERROR IF NO BUFFER d * P CF A15,PLPUCH PUT CHARACTER IN BUFFER P LDR A1,A1 CHECK RETURN CODE ( P RF(NZ) COERR1 ERROR IF BUFFER FULL &
0x48bab8…48bc4c Dummy {f00=0x0170, f01=0x018e, f02=» P* FASTER PROCESSING. & P CWK A2,LOBUFL+3 BUFFER FULL? =16 P RF(NE) OP100 NO =16 J * P LD A2,DWTCHP,A6 CHANNEL PARAMETER =16 f ( P ANK A2,CHABLO CHANGED BLOCKING? =16 & P RF(NZ) EB050 YES SEND BUFFER =16 POP100 EQU * . =16 P ENB
0x48bc4c…48bde0 Dummy {f00=0x0170, f01=0x0190, f02=» P* PCOERR1 EQU * " P CF A15,PLRLBU RELEASE BUFFER " $ P CM DWTLD1,A6 INDICATE NO BUFFER H PCOERR2 EQU * p P LDR* A4,A15 POP A4 ( P LDK A1,PLSERR RET CODE := SW ERROR & P ABL NDRET RETURN TO DEVICE DRIVER P* P EJECT
0x48bde0…48bf74 (11, 36) Dummy {f00=0x0171, f01=0x0190, f02=» P* FUNCTION: 0 P* THIS ROUTINE DEFINES END OF OUTPUT BLOCK. . P* IT SENDS THE BLOCK TO PLC AND WAITS FOR P P* ACKNOWLEDGE. P* P* CALL: P* ABI ENBTAB,A1 P* CF A5,PLENBL P* P* INPUT: P* A6 = DWT AD
0x48bf74…48c108 Dummy {f00=0x0171, f01=0x0190, f02=»ERROR 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) P* CR = CONTENTS OF A1 B P* INTERR. ENABLED ` P* z @ P************************************************************ P* PPLENBL EQU * PPRENBL EQU * $ P LDK A1,0 SET
0x48c108…48c29c Dummy {f00=0x0171, f01=0x0190, f02=»,/FFFF-CHABLO RESET CHANGED BLOCKING =16 P ANS A2,DWTCHP,A6 . =16 0 PEB040 EQU * . =16 P * P LD A2,DWTCHP,A6 CHANNEL PARAMETER =16 j ( P ANK A2,CHABLO CHANGED BLOCKING =16 " P RB(NZ) OP100 YES, RETURN =16 PEB050 EQU * . =16 P ENB
0x48c29c…48c430 Dummy {f00=0x0171, f01=0x0190, f02=»1,PLSERR SET RET CODE JUST IN CASE $ P LD A2,DWTLD1,A6 BUFFER ADDRESS * 2 P ABL(Z) NDREPO ERROR IF NO BUFFER. RETURN =16 R & P CF A15,GETLCS A1 := STATUS & INH " P RF(NZ) EBERR1 RETURN IF ERROR P* P LDR A3,A6 DWT ADDRESS " P ADKL A3
0x48c430…48c5c4 Dummy {f00=0x0171, f01=0x0190, f02=» z " P RF(NZ) EBERR1 RETURN IF ERROR P* . 0 P* WRITE PARAMETERS IN CCA AND X25 HEADER 8 P ENB l $ P LD A4,DWTLD1,A6 BUFFER ADDRESS x " P ST A4,CWTCCA+CCRBUF,A5 TO CCA : P CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR $ P LDK
0x48c5c4…48c758 Dummy {f00=0x0171, f01=0x0190, f02=»F(NZ) EB090 YES, USE TYPE 1 . P LDK A3,CMDSW NOT ECHO, USE STANDARD WRITE $ ( P ANK A2,DWFTY1 ONLY TYPE 1 ALLOWED? V P RF(Z) EB100 NO, USE TYPE 2 P* P EJECT P* PEB090 EQU * P* NO FLOW CONTROL 0 P CF A15,WRADR1
0x48c758…48c8ec Dummy {f00=0x0171, f01=0x0190, f02=»U * P* FLOW CONTROL 0 P CF A15,WRADR2 WRITE LINE ADDRESS. FLOW CTRL ( 0 P CF A15,FWOPSR FETCH AND UPDATE FLOW CONTROL * P SC A2,X25FLW,A4 P(R) & P(S) TO PACKET . P LDK A2,TYDATA MESSAGE TYPE := NORMAL DATA P* PEB110 EQU *
0x48c8ec…48ca80 Dummy {f00=0x0171, f01=0x0190, f02=»ESS TO CCA p P LD A3,BUFBIX,A4 BYTE INDEX 0 P ST A3,CWTCCA+CCRLEN,A5 BUFFER LENGTH TO CCA 6 P* j & P CF A15,GETLCS A1 := STATUS & INH t " P RF(NZ) EBERR2 RETURN IF ERROR $ P CF A15,PLCCIO EXECUTE CIO START P RF(NZ) EBERR1 HANDLE ERROR
0x48ca80…48cc14 (11, 37) Dummy {f00=0x0171, f01=0x0190, f02=» IS COMPLETED. & P* REGISTER CONTENTS ON ENTRY: P* A1 = RETURN CODE B P* A5 = CWT ADDRESS ^ P* A6 = DWT ADDRESS z P* A7 = MESSAGE TYPE P* PACKRST EQU * " P LDK A2,0 RESET DEVICE STATUS P LDR A1,A1 ANY ERR
0x48cc14…48cda8 Dummy {f00=0x0171, f01=0x0190, f02=»RECIEVED? t P RF(Z) EB120 NO . P LDK A1,LINERR YES. RET CODE := LINK RESET * P RF EB130 RETURN P* t PEB120 EQU * ~ 0 P CWK A7,TYNFLO PACKET WITH NO FLOW CONTROL? P RF(E) EB130 YES, RETURN ( P ANK A3,DWFSAC WAIT FOR LEVEL 3 AC
0x48cda8…48cf3c Dummy {f00=0x0171, f01=0x018e, f02=»WT STATUS r P ABL PLDSP2 LOCAL DISPATCHER P* 6 P EJECT @ P* N B P* ENTRY IS MADE HERE WHEN ACK ON LEVEL 3 HAVE BEEN RECIEVED X & P* REGISTER CONTENTS ON ENTRY: P* A1 = RETURN CODE 0 P* A2 = DEVICE STATUS (IF RELEVANT,
0x48cf3c…48d0d0 Dummy {f00=0x0171, f01=0x0190, f02=» * P LD A2,DWTCHP,A6 CHANNEL PARAMETER =16 ( P ANK A2,CHABLO CHANGED BLOCKING? =16 6 , P ABL(NZ) SB050 YES, START NEW BLOCK =16 b & P ABL NDREP RETURN TO DEVICE DRIVER P* P* P* PEBERR2 EQU * P CM CWTCCB,A5 SET CCA FREE
0x48d0d0…48d264 Dummy {f00=0x0171, f01=0x0190, f02=»O BUFFER x $ P CM DWTLD2,A6 RESET FLOW CONTROL & P ABL NDREP RETURN TO DEVICE DRIVER 8 P* b P EJECT l P* z @ P************************************************************ P* P* ROUTINE NAME: P* PLTEST P* P* FU
0x48d264…48d3f8 Dummy {f00=0x0171, f01=0x0190, f02=»VER" WITH AN INTERFACE SIMILAR TO 2 P* THAT OF THE NORMAL TERMINAL DEVICE DRIVERS. * 2 P* CALL IS MADE DIRECTLY TO THE PLC DRIVER, AND ` 4 P* NOT THROUGH THE TERMINAL NETWORK DISTRIBUTOR, 2 P* AS THIS FUNCTION IS NOT AVAILABLE FOR OTHER P* LI
0x48d3f8…48d58c Dummy {f00=0x0171, f01=0x0190, f02=»TPUT: P* AT RETURN TO DEVICE DRIVER P* A1 = RETURN CODE 2 P* 0 IF OK N P* NOT 0 IF ERROR ` P* A2 = CHANGED z P* CR = CONTENTS OF A1 P* INTERR. ENABLED P* @ P****************************************************
0x48d58c…48d720 Dummy {f00=0x0171, f01=0x018e, f02=» $ P CF A15,GETCWT A5 := CWT ADDRESS P CF A15,PLCCCA RESERVE CCA , P* N P ENB X . P ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA d < P CM CWTCCA+CCRC1B,A5 DATA CHAINING & MSB OF BUFFER ADDR 0 P LD A4,DWTTBU,A6 USER REQUEST BUFFER ADDRESS "
0x48d720…48d8b4 (11, 38) Dummy {f00=0x0171, f01=0x0190, f02=» . P LD A3,DWTTCW,A6 USER REQUEST CONTROL WORD P* 6 & P* DETERMINE TYPE OF TEST ORDER @ . P LC A1,DWTOR+1,A6 USER REQUEST ORDER CODE j P ANK A1,/3F CLEAN & P CWK A1,ORDPS GET LINE STATISTICS? P RF(E) TE100 YES, HANDLE & P CWK A1,
0x48d8b4…48da48 Dummy {f00=0x0171, f01=0x0190, f02=» DEFINED. ERROR r P* P* READ LOCAL MEMORY " 6 P ST A3,CWTCCA+CCRSUB,A5 PLC MEMORY ADDRESS TO CCA @ 0 P LDK A3,CMDRM PLC COMMAND READ LOCAL MEMORY z P RF TE120 TO COMMON PART P* PTE100 EQU * P* GET LINE STATISTICS
0x48da48…48dbdc Dummy {f00=0x0171, f01=0x0190, f02=»N PART ~ P* PTE110 EQU * P* GET DLS STATISTICS , & P LC A3,DWTCP2,A6 CHANNEL PARAMETER L " P ANK A3,MASKWS CLEAN WS NUMBER v P SLL A3,8 TO LEFT BYTE 0 P ADK A3,CMDDS PLC COMMAND GET DLS STATISTICS P* PTE120 EQU *
0x48dbdc…48dd70 Dummy {f00=0x0171, f01=0x0190, f02=»NDLE x & P ABL PLDSP2 LOCAL DISPATCER. WAIT P* 6 P* @ < P* ENTRY IS MADE TO TSTRST WHEN COMMAND IS COMPLETED. J & P* REGISTER CONTENTS ON ENTRY: P* A1 = RETURN CODE P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS P
0x48dd70…48df04 Dummy {f00=0x0171, f01=0x0190, f02=»CA FREE x ( P LDK A1,PLSERR RET CODE := SW ERROR PTEERR1 EQU * < & P ABL NDREP RETURN TO DEVICE DRIVER P P XIF z P* P EJECT P* P********************** P* INTERRUPT ROUTINES * P********************** P*
0x48df04…48e098 Dummy {f00=0x0171, f01=0x0190, f02=»/O COMPLETION INTERRUPT. ~ " P* ALL ROUTINES ARE EXECUTED 8 P* ON INTERRUPT PRIORITY. AFTER PROCESSING, EXIT IS F > P* MADE EITHER TO SOME ROUTINE WAITING FOR THE INTERRUPT, : P* TO THE LOCAL PLC DISPATCHER OR TO TOSS DISPATCHER. 8 P* ON
0x48e098…48e22c Dummy {f00=0x0171, f01=0x0190, f02=» d P* P* NAME FUNCTION P* * P* IHPL INTERRUPT ENTRY 4 $ P* PLIHR HANDLE RELEASE INTERRUPT R & P* PLIHA HANDLE ATTENTION INTERRUPT z , P* PLIHC HANDLE I/O COMPLETION INTERRUPT 2 P* COMPSTA HANDLE COMPLETION OF START COMMANDS &
0x48e22c…48e3c0 Dummy {f00=0x0171, f01=0x0190, f02=»OCAL MEMORY) j 2 P* COMPWRI HANDLE COMPLETION OF WRITE COMMANDS 8 P* COMPGR HANDLE COMPLETION OF GENERAL READ COMMANDS J * P* GRERR HANDLE ERRORS AT GENERAL READ 6 P* GRSACK HANDLE STATUS AND RR MESSAGE FROM DEVICE * P* GRDATA HANDLE DATA INPUT
0x48e3c0…48e554 (11, 39) Dummy {f00=0x0171, f01=0x0190, f02=»****************************** r P* & P* ROUTINE NAME: 0 P* IHPL H P* V P* FUNCTION: ` 2 P* THIS ROUTINE CONTAINS INTERRUPT ENTRIES FOR t 2 P* ALL PLC:S INCLUDED. IT SAVES A1-A8, SETS CWT 4 P* ADDRESS AND EXITS TO RELEASE OR I/O CO
0x48e554…48e6e8 Dummy {f00=0x0171, f01=0x0190, f02=»EM STACK POINTER P* INTERR. INHIBITED P* MODE SYSTEM 4 P* J P* OUTPUT: T P* A5 = CWT ADDRESS f P* @ P************************************************************ P* PIHPL01 EQU * P IFF PLCNRL=0 U =5 P
0x48e6e8…48e87c Dummy {f00=0x0171, f01=0x0190, f02=» z P XIF P* P IFF PLCNRL=0 U =5 & P LDKL A5,PL0CWT CWT ADDRESS, PLC 0 8 $ P RF IHPL COMMON PART, ALL PLC:S b P XIF P* P EJECT P* PIHPL02 EQU * P IFF PLCNRL=0 U =5 P IFF PLCNRL=1 P IFT CPU852=
0x48e87c…48ea10 Dummy {f00=0x0171, f01=0x0190, f02=»SR 8,A15 PUSH A1-A8 P XIF P* ( P IFF PLCNRL=0 U =5 2 P IFF PLCNRL=1 L & P LDKL A5,PL1CWT CWT ADDRESS, PLC 1 b $ P RF IHPL COMMON PART, ALL PLC:S P XIF P* PIHPL03 EQU * P IFF PLCNRL=0 U =5 P IFF PLCNRL=1
0x48ea10…48eba4 Dummy {f00=0x0171, f01=0x0190, f02=»LCNRL=1 P IFF PLCNRL=2 P IFF CPU852=1 & P MSR 8,A15 PUSH A1-A8 < P XIF Z P* f P IFF PLCNRL=0 U =5 p P IFF PLCNRL=1 P IFF PLCNRL=2 & P LDKL A5,PL2CWT CWT ADDRESS, PLC 2 $ P RF IHPL COMMON PART, ALL PLC:S P
0x48eba4…48ed38 Dummy {f00=0x0171, f01=0x0190, f02=»FT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 P XIF 4 P* @ P IFF PLCNRL=0 U =5 J P IFF PLCNRL=1 d P IFF PLCNRL=2 z P IFF PLCNRL=3 P IFF CPU852=1 P MSR 8,A15 PUSH A1-A8 P XIF P* P IFF PLCNRL=0 U =5
0x48ed38…48eecc Dummy {f00=0x0171, f01=0x0190, f02=»PLC:S v P XIF P* PIHPR01 EQU * $ P IFF PLCNRR=0 8 P IFT CPU852=1 N P CF A15,SAVE8 PUSH A1-A8 d P XIF P IFF PLCNRR=0 P IFF CPU852=1 P MSR 8,A15 PUSH A1-A8 P XIF P IFF PLCNRR=0 , P LDKL A5,PR1
0x48eecc…48f060 Dummy {f00=0x0171, f01=0x0190, f02=»NRR=1 P IFT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 $ P XIF D P IFF PLCNRR=0 P P IFF PLCNRR=1 f P IFF CPU852=1 | P MSR 8,A15 PUSH A1-A8 P XIF P IFF PLCNRR=0 P IFF PLCNRR=1 , P LDKL A5,PR2CWT CWTADDRESS PLC 2
0x48f060…48f1f4 (11, 40) Dummy {f00=0x0172, f01=0x0190, f02=»LCNRR=2 P IFT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 & P XIF F P IFF PLCNRR=0 R P IFF PLCNRR=1 h P IFF PLCNRR=2 ~ P IFF CPU852=1 P MSR 8,A15 PUSH A1-A8 P XIF P IFF PLCNRR=0 P IFF PLCNRR=1 P IFF PLC
0x48f1f4…48f388 Dummy {f00=0x0172, f01=0x0190, f02=» PLCNRR=0 P IFF PLCNRR=1 P IFF PLCNRR=2 ( P IFF PLCNRR=3 > P IFT CPU852=1 T P CF A15,SAVE8 PUSH A1-A8 j P XIF P IFF PLCNRR=0 P IFF PLCNRR=1 P IFF PLCNRR=2 P IFF PLCNRR=3 P IFF CPU852=1 P MSR
0x48f388…48f51c Dummy {f00=0x0172, f01=0x0190, f02=»DKL A5,PR4CWT CWTADDRESS PLC 4 REMOTE " P RF IHPL COMMON PART ALL CWT:S . P XIF T P EJECT ` P* n PIHPL EQU * x & P ST P,INTSAV SAVE LATEST INTERRUPT P LDK A1,0 RESET HIGH BYTE , P LC A1,CWTCID+CIDINT,A5 INTERRUPT SOURCE P C
0x48f51c…48f6b0 Dummy {f00=0x0172, f01=0x0190, f02=»0 ATTENTION? P RF(E) PLIHA YES, HANDLE P* 4 2 P CF A15,PLCNOP ILLEGAL CODE, SET NOT OPERABLE > P ABL TDISP EXIT t P* P EJECT P* @ P************************************************************ P* P* ROUTINE NA
0x48f6b0…48f844 Dummy {f00=0x0172, f01=0x0190, f02=»ND IF ANOTHER t , P* PROCESS IS WAITING FOR THE CCA, RETURN ( P* IS MADE TO CCA ALLOCATION ROUTINE. F P* r P* CALL: | P* RF PLIHR P* P* INPUT: P* A5 = CWT ADDRESS P* P* OUTPUT: P* IF PROCESS WAITING
0x48f844…48f9d8 Dummy {f00=0x0172, f01=0x0190, f02=»************** b P* PPLIHR EQU * " P EX CWTST3,A5 RESET INTERRUPT 4 . P LD A4,CWTCCQ,A5 PROCESS WAITING FOR CCA? Z * P ABL(NZ) CCARST YES, ACTIVATE PROCESS " P CM CWTCCB,A5 NO, SET CCA FREE P ABL TDISP EXIT P* P EJECT
0x48f9d8…48fb6c Dummy {f00=0x0172, f01=0x0190, f02=»* P* FUNCTION: 4 P* THIS ROUTINE HANDLES ATTENTION INTERRUPTS. IF 4 P* ERROR, IT SETS AN ERROR CODE AND STARTS ABORT V 4 P* OF ALL CALLS. IF COMMUNICATION REESTABLISHED, P* IT STARTS RECOVERY. P* P* CALL: P* RF PLIHA
0x48fb6c…48fd00 Dummy {f00=0x0172, f01=0x018e, f02=» ~ P* @ P************************************************************ P* V PPLIHA EQU * ` & P LD A1,CWTRCA+CCRSTA,A5 PLC STATUS t & P ST A1,CWTPLS,A5 SAVE FOR TESTING P IFF UTTEST=0 P CF A15,LOGATT LOG RCA P XIF & P
0x48fd00…48fe94 (11, 41) Dummy {f00=0x0172, f01=0x018e, f02=» P LDKL A2,/FFFF-STACOM-STAERR P* MASK FOR ALLOWED ERRORS ( P ANR A2,A1 FATAL ERROR? L P RF(Z) IA100 NO, CONTINUE l ( P CF A15,PLCNOP SET PLC NOT OPERABLE P ABL TDISP EXIT P* PIA100 EQU * P LDR A2,A1 STATUS 0
0x48fe94…490028 Dummy {f00=0x0172, f01=0x0190, f02=» z & P CF A15,STAHAN HANDLE ERROR STATUS P ABL PLDSP2 LOCAL DISPATCHER 2 P* V P EJECT ` P* n @ P************************************************************ x P* P* ROUTINE NAME: P* PLIHC P* P* FUNCTION:
0x490028…4901bc Dummy {f00=0x0172, f01=0x0190, f02=»ORRESPONDING COMMAND HANDLER. P* & P* CALL: 0 P* RF PLIHC @ P* R P* INPUT: P* A5 = CWT ADDRESS l P* P* OUTPUT: P* A1 = PLC STATUS P* A2 = FATAL PLC STATUS P* A5 = CWT ADDRESS P* A6 = USER P
0x4901bc…490350 Dummy {f00=0x0172, f01=0x0190, f02=»A+CCRSTA,A5 PLC STATUS & P ST A1,CWTPLS,A5 SAVE FOR TESTING P IFF UTTEST=0 H P CF A15,LOGIOC LOG CCR ^ P XIF | P ANKL A1,/FFFF-STAPOL-STALER & P* RESET POLL STOP & LINK ERROR < P LD A6,CWTRCA+CCRIDW,A5 USER PARAMETER (DWT, DLS O
0x490350…4904e4 Dummy {f00=0x0172, f01=0x0190, f02=»0 EQU * , P* SCAN TABLE TO FIND MATCHING COMMAND " P SUK A3,CMDTB1 DECREMENT INDEX @ $ P RF(N) IC120 END OF TABLE. ERROR f & P CC A2,CMDTAB+1,A3 COMMAND FOUND? P RB(NE) IC100 NO, CONTINUE P* . P C1 A2,CMDTAB+4,A3 MASK FOR ALLOWED
0x4904e4…490678 Dummy {f00=0x0172, f01=0x0190, f02=» 2 P ABI CMDTAB+2,A3 CALL COMMAND HANDLING ROUTINE P* > PIC120 EQU * H P EX CWTST3,A5 RELEASE RCA ( P CF A15,PLCNOP SET PLC NOT OPERABLE ~ P ABL PLDSP2 LOCAL DISPATCHER P* P EJECT P* @ P************************
0x490678…49080c Dummy {f00=0x0172, f01=0x0190, f02=»UTINES HANDLE COMPLETION OF TEST CU, & P* OPEN LINE AND OPEN DLS COMMANDS. , 0 P* THEY CHECK THE RETURN CODE AND EXIT TO THE V & P* ROUTINE THAT MADE THE I/O CALL. P* P* CALL: P* ABI CMDROU,A3 P* P* INPUT: P* A1 =
0x49080c…4909a0 Dummy {f00=0x0172, f01=0x0190, f02=»: P* A1 = PLC STATUS P* A2 = FATAL PLC STATUS $ P* A5 = CWT ADDRESS D * P* A6 = DLS INDEX (IF EXIT TO ODLRST) ` P* @ P************************************************************ P* PCOMPTC EQU * P EX CWTST3,A5
0x4909a0…490b34 (11, 42) Dummy {f00=0x0172, f01=0x018e, f02=»MPLETION ~ P* PCOMPOP EQU * P EX CWTST3,A5 RELEASE RCA . 2 P ABL OPLRST RETURN TO ROUTINE MAKING I/O CALL P P* P* P* OPEN DLS, COMPLETION P* PCOMPOD EQU * P EX CWTST3,A5 RELEASE RCA P LDR A2,A2 F
0x490b34…490cc8 Dummy {f00=0x0172, f01=0x0190, f02=» n & P LDK A2,0 CLEAR FATAL STATUS FLAGS P* 2 PCD100 EQU * < 2 P ABL ODLRST RETURN TO ROUTINE MAKING I/O CALL P P* P EJECT P* @ P************************************************************ P* P* ROUTINE NAME:
0x490cc8…490e5c Dummy {f00=0x0172, f01=0x0190, f02=»TICS AND READ LOCAL t P* MEMORY COMMANDS. . P* IT CHECKS THE PLC STATUS, SETS EFFECTIVE 6 2 P* LENGTH IN DWT AND EXITS TO THE ROUTINE THAT h P* MADE THE I/O CALL. P* P* CALL: P* ABI CMDROU,A3 P* P* INPUT: P*
0x490e5c…490ff0 Dummy {f00=0x0172, f01=0x0190, f02=»* A5 = CWT ADDRESS P* A6 = DWT ADDRESS P* 8 @ P************************************************************ B P* P IFT PLCTST=1 PCOMPPS EQU * PCOMPDS EQU * PCOMPRM EQU * P* P EJECT P* P LDR
0x490ff0…491184 Dummy {f00=0x0172, f01=0x018e, f02=» TO DWT P RF TS110 EXIT. A1 = 0 P* . PTS100 EQU * 8 . P LDK A1,NOTOPR RETURN CODE := NOT OPERABLE L ( P CM DWTTLN,A6 EFFECTIVE LENGTH := 0 ~ P* PTS110 EQU * P EX CWTST3,A5 RELEASE RCA 2 P ABL TSTRST RETURN TO ROUTINE
0x491184…491318 Dummy {f00=0x0172, f01=0x018e, f02=» P* P* ROUTINE NAME: P* COMPWRI & P* 8 P* FUNCTION: B 2 P* THIS ROUTINE HANDLES COMPLETION OF STANDARD V P* WRITE AND FAST WRITE. 6 P* IT CHECKS THE PLC STATUS AND RELEASES THE OUTPUT 2 P* BUFFER, IF ANY WAS ALLOCATED. IF
0x491318…4914ac Dummy {f00=0x0172, f01=0x0190, f02=» P* ABI CMDROU,A3 P* P* INPUT: * P* A1 = PLC STATUS : P* A2 = FATAL PLC STATUS T P* A5 = CWT ADDRESS t P* A6 = DWT ADDRESS P* P* OUTPUT: 0 P* WHEN RETURN TO ROUTINE MAKING OUTPUT CALL P* A1 = RETU
0x4914ac…491640 Dummy {f00=0x0172, f01=0x018e, f02=»* @ P************************************************************ P* N P EJECT X P* f PCOMPSW EQU * p PCOMPFW EQU * P LDR A2,A2 FATAL PLC STATUS? P RF(NZ) WRERR1 YES, HANDLE P* & P LC A2,DWTCP2,A6 CHANEL PARAMETE
0x491640…4917d4 (11, 43) Dummy {f00=0x0172, f01=0x0190, f02=» ` P ANK A7,/FF CLEAN * P LD A4,CWTRCA+CCRBUF,A5 BUFFER ADDRESS " P EX CWTST3,A5 RELEASE RCA P . P ABI WRIROU,A7 CALL CORRESPONDING ROUTINE r P* P* P* IRRECOVERABLE ERROR P* PWRERR1 EQU * P EX CWTST3,A5 RELE
0x4917d4…491968 Dummy {f00=0x0172, f01=0x0190, f02=»WRNFLO EQU * PWRDATA EQU * ( P CF A15,PLRLBU RELEASE OUTPUT BUFFER ( $ P CM DWTLD1,A6 INDICATE NO BUFFER T * P ABL ACKRST RETURN TO REQUEST HANDLER | P* P* 4 P* COMPLETION OF RECIEVE READY MESSAGE OUTPUT P* PWRRR EQU
0x491968…491afc Dummy {f00=0x0172, f01=0x018e, f02=»LNKOUT REMOVE FROM QUEUE P CF A15,FREBLK RETURN BLOCK P* D P ABL PLDSP2 EXIT N P* f P* p 8 P* COMPLETION OF RESET CONFIRMATION MESSAGE OUTPUT z P* PWRRESC EQU * $ P SUK A4,2 START OF MONITOR BLOCK P LDR A7,A5 C
0x491afc…491c90 Dummy {f00=0x0172, f01=0x018e, f02=» r P* . P LDKL A2,/FFFF-DWFRES MASK FOR RESET FLAG ( P ANS A2,DWTST,A6 CLEAR "RESET" FLAG D 0 P LDK A4,RELINE RECOVERY CAUSE := LINK RESET p ( P CF A15,NDREDW CALL RECOVERY FOR DWT P ABL PLDSP2 LOCAL DISPATCHER P* P EJECT
0x491c90…491e24 Dummy {f00=0x0172, f01=0x0190, f02=» P* FUNCTION: 0 P* THIS ROUTINE HANDLES COMPLETION OF GENERAL P* READ COMMANDS. P * P* IT CHECKS TYPE OF MESSAGE AND CALLS h P* CORRESPONDING ROUTINE. P* P* CALL: P* ABI CMDROU,A3 P* P* INPUT: P* A1
0x491e24…491fb8 Dummy {f00=0x0172, f01=0x0190, f02=»A4 = BUFFER ADDRESS P* A5 = CWT ADDRESS P* A6 = DLS INDEX 8 ( P* A7 = DEVICE ADDRESS (IF RELEVANT) R P* ~ @ P************************************************************ P* PCOMPGR EQU * P LDR A2,A2 FATAL STATUS?
0x491fb8…49214c Dummy {f00=0x0172, f01=0x0190, f02=»BUFFER ADDRESS x & P LC A6,CWTRCA+CCRDLS,A5 DLS INDEX P ANK A6,MASKWS CLEAN @ $ P LC A7,X25LCN,A4 DEVICE ADDRESS P ANK A7,MASKLC CLEAN P* 0 P ABI REAROU,A3 ROUTINE FOR THIS MESSAGE TYPE P* P EJECT P* @ P********
0x49214c…4922e0 Dummy {f00=0x0172, f01=0x0190, f02=» 2 P* THIS ROUTINE HANDLES ILLEGAL INPUT MESSAGES. P* GRERR1 RETURNS BUFFER : P* Z P* CALL: d P* ABI REAROU,A3 t P* RB GRERR1 P* RF GRERR2 P* P* INPUT: & P* A4 = BUFFER ADDRESS (IF GRERR1) P* A5 = CWT ADDR
0x4922e0…492474 (11, 44) Dummy {f00=0x0173, f01=0x0190, f02=» PGRERR1 EQU * . P CF A15,PLRLBU RELEASE GENERAL READ BUFFER P* J PGRERR2 EQU * T P EX CWTST3,A5 RELEASE RCA h P* P ABL PLDSP2 EXIT P* P EJECT P* @ P**********************************************************
0x492474…492608 Dummy {f00=0x0173, f01=0x0190, f02=»Y b P* MESSAGES FROM A DEVICE. 4 P* IT RELEASES THE BUFFER AND RETURNS TO ROUTINE , P* MAKING I/O CALL. d P* ~ P* CALL: P* ABI REAROU,A3 P* P* INPUT: P* A4 = BUFFER ADDRESS P* A5 = CWT ADDRESS P* A6
0x492608…49279c Dummy {f00=0x0173, f01=0x0190, f02=»F ERROR P* A2 = BITS 0-7 ZERO P* BITS 8-15 DEVICE STATUS . P* A5 = CWT ADDRESS R P* A6 = DWT ADDRESS n P* @ P************************************************************ P* P EJECT P* PGRSTAT EQU *
0x49279c…492930 Dummy {f00=0x0173, f01=0x0190, f02=»C A2,X25DAT,A4 DEVICE STATUS BYTE P ANK A2,/FF CLEAN * P RF SR100 COMMON PART D P* b P* l PGRRR EQU * v $ P CF A15,GETDWT A6 := DWT ADDRESS P RB(Z) GRERR1 NO DWT DEFINED . P CF A15,FWIPR UPDATE FLOW CONTROL COUNTERS & P L
0x492930…492ac4 Dummy {f00=0x0173, f01=0x0190, f02=»SAGES X P EX CWTST3,A5 RELEASE RCA . P CF A15,PLRLBU RELEASE GENERAL READ BUFFER 0 P LD A3,DWTST,A6 DWT STATUS b P LDR A4,A3 4 P ANK A4,DWFAK3 ANYONE WAITING FOR THIS MESSAGE? P ABL(Z) PLDSP2 NO, DISPATCH P* $ P XRS A4,DWTS
0x492ac4…492c58 Dummy {f00=0x0173, f01=0x0190, f02=» RETURN WITH ACK 3 | * P ABL WINRST NO, RETURN TO WINDOW QUEUE P* H P EJECT R P* ` @ P************************************************************ j P* P* ROUTINE NAME: P* GRDATA P* P* FUNCTION: 0 P* THIS ROU
0x492c58…492dec Dummy {f00=0x0173, f01=0x0190, f02=» P* INPUT: P* A4 = BUFFER ADDRESS P* A5 = CWT ADDRESS 6 P* A6 = DLS INDEX R P* A7 = DEVICE ADDRESS l P* P* OUTPUT: P* - P* @ P************************************************************ P*
0x492dec…492f80 Dummy {f00=0x0173, f01=0x018e, f02=»ONTROL COUNTERS t 4 P ST A4,CWTBUF,A5 SAVE INPUT DATA BUFFER ADDRESS 0 P ST A6,BUFDWT,A4 SAVE DWT ADDRESS IN BUFFER P , P LD A2,CWTRCA+CCRLEN,A5 EFFECTIVE LENGTH $ P ST A2,BUFLEN,A4 SAVE IN BUFFER & P LDK A2,X25DAT START OF USER DATA " P S
0x492f80…493114 (11, 45) Dummy {f00=0x0173, f01=0x0190, f02=» P EJECT P* @ P************************************************************ P* ` P* ROUTINE NAME: j P* GRRES P* P* FUNCTION: 2 P* THIS ROUTINE HANDLES RESET MESSAGES FROM THE P* SECONDARY. 6 P* IT RESETS TH
0x493114…4932a8 Dummy {f00=0x0173, f01=0x0190, f02=»NT. IF THE n 8 P* PROCESS IS WAITING FOR LEVEL 3 ACK OR IN A BUFFER P* QUEUE IT IS ABORTED. N P* l P* CALL: v P* ABI REAROU,A3 P* P* INPUT: P* A4 = BUFFER ADDRESS P* A5 = CWT ADDRESS P* A6 = DLS INDEX
0x4932a8…49343c Dummy {f00=0x0173, f01=0x0190, f02=»******** P* PGRRES EQU * $ P CF A15,GETDWT A6 := DWT ADDRESS . P RB(Z) GRERR1 NO DWT DEFINED V P* z P EJECT P* P EX CWTST3,A5 RELEASE RCA . P CF A15,PLRLBU RELEASE GENERAL READ BUFFER . P CM DWTLD2,A6 RESET FLOW
0x49343c…4935d0 Dummy {f00=0x0173, f01=0x0190, f02=» EXIT | P LDK A2,DWFRES , P ORS A2,DWTST,A6 INDICATE RESET RECIEVED $ P* T " P CF A15,PLCCCA RESERVE PLC CCA ^ P ENB P* $ P CF A15,GETBLK GET OUTPUT BUFFER P LDR A7,A5 CWT ADDRESS , P ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD
0x4935d0…493764 Dummy {f00=0x0173, f01=0x0190, f02=» CCA j : P CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR 0 P CF A15,WRADR2 WRITE ADDRESS IN CCA (TYPE 2) J 0 P LDK A2,CMDSW COMMAND CODE "STANDARD WRITE" ~ " P SC A2,CWTCCA+CCRCMD,A5 TO CCA " P LDK A2,/1F MESSAGE TYPE FLAGS & P SC A2,X25
0x493764…4938f8 Dummy {f00=0x0173, f01=0x0190, f02=»,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA, COMMAND ID ( P LDK A2,X25DAT LENGTH OF SYSTEM PART 8 * P ST A2,CWTCCA+CCRLEN,A5 TO CCA LENGTH d P* P EJECT P* P LD A2,DWTST,A6 DWT STATUS & P ANK A2,DWFRES RESET STILL WANTED? P RF(Z) R
0x4938f8…493a8c Dummy {f00=0x0173, f01=0x0190, f02=» P RF(NZ) REERR2 EXIT IF ERROR P* ( * P LDK A1,LINERR RET CODE := LINK ERROR 2 P LD A2,DWTST,A6 DWT STATUS ` P LDR A3,A2 , P ANK A2,DWFAK3 WAITING FOR LEVEL 3 ACK? P RF(Z) RE100 NO, CONTINUE $ P XRS A2,DWTST,A6 RESET ACK3 FLAG
0x493a8c…493c20 Dummy {f00=0x0173, f01=0x0190, f02=» QUEUE p P* PRE100 EQU * 0 P CF A15,OUTBUQ REMOVE DWT FROM BUFFER QUEUE , P LDR A2,A2 FOUND? ` 0 P ABL(NZ) BUFRST YES, RETURN WITH ERROR CODE z P* P ABL PLDSP2 LOCAL DISPATCHER P* P* PREERR1 EQU * P CM
0x493c20…493db4 (11, 46) Dummy {f00=0x0173, f01=0x0190, f02=»OR BLOCK p 4 P CF A15,LNKOUT REMOVE FROM QUEUE. A7 ALREADY SET ( P CF A15,FREBLK RETURN MONITOR BLOCK H P ABL PLDSP2 LOCAL DISPATCHER t P* P EJECT P* P********************* P* RECOVERY ROUTINES * P******************
0x493db4…493f48 Dummy {f00=0x0173, f01=0x0190, f02=» RUNNING ^ : P* OUTPUT OPERATIONS. AFTER THAT, THE PLC IS STARTED, 8 P* AND LAST RECOVERY ROUTINES IN DEVICE DRIVERS ARE N P* CALLED FOR ALL DWT:S. 8 P* THE SECTION ALSO CONTAINS ROUTINES FOR RECOVERY P* OF I/O ERRORS. P*
0x493f48…4940dc Dummy {f00=0x0173, f01=0x0190, f02=»FOR EACH PLC CHANNEL UNIT v 0 P* PLSTRT START PLC AND CALL DEVICE RECOVERY " P* V P EJECT ` P* n @ P************************************************************ x P* P* ROUTINE NAME: P* PLON P* P* FUNCTION: .
0x4940dc…494270 Dummy {f00=0x0173, f01=0x0190, f02=»NITOR JOB WILL CALL THE RECOVERY ROUTINE ONCE P* FOR EACH PLC DEFINED. 6 P* V P* CALL: ` P* CF A15,PLON p P* P* INPUT: P* - P* P* OUTPUT: P* AT ENTRY TO PLSTRT: P* A5 = CWT ADDRESS P*
0x494270…494404 Dummy {f00=0x0173, f01=0x0190, f02=» p P RF(NZ) PO100 YES, EXIT ( P IM PLCPFP INDICATE POWER UP STARTED ( P* T P LDKL A2,PO110 START ADDRESS ^ & P CF A15,QMJOB ACTIVATE MONITOR JOB P* PPO100 EQU * P RTN A15 P* P EJECT P* PPO110 EQU *
0x494404…494598 Dummy {f00=0x0173, f01=0x0190, f02=»RS n P LDK A1,STATLN TABLE LENGTH PPO113 EQU * . P SUK A1,2 NEXT WORD B $ P RF(N) PO116 READY WHEN ALL DONE ^ P CM STATAR,A1 RESET COUNTER P RB PO113 NEXT WORD PPO116 EQU * P XIF P* ( P LDK A1,16 (MAX NUMBER O
0x494598…49472c Dummy {f00=0x0173, f01=0x0190, f02=»IF ALL DONE ~ P LD A5,TABCWT,A1 CWT ADDRESS * P RB(Z) PO120 TAKE NEXT IF NOT DEFINED 8 P CF A15,PLSTRT START ONE PLC f P RB PO120 NEXT PLC P* PPO130 EQU * P ABL MEXIT MONITOR JOB EXIT P* P EJECT P* @ P
0x49472c…4948c0 Dummy {f00=0x0173, f01=0x0190, f02=»ON: 2 P* THIS ROUTINE FIRST CLEARS ALL WORK AREAS AND 4 P* DWT:S, AND SETS THE DWT:S BUSY. IT THEN STARTS B 2 P* THE PLC, AND CALLS RECOVERY ROUTINES IN ALL z P* DEVICE DRIVERS. P* P* CALL: P* CF A15,PLSTRT P* P*
0x4948c0…494a54 (11, 47) Dummy {f00=0x0173, f01=0x0190, f02=»**************** d P* PPLSTRT EQU * " P IFT CPU852=1 6 P CF A15,SAVE8 PUSH A1-A8 L P XIF l P IFF CPU852=1 x P MSR 8,A15 PUSH A1-A8 P XIF P* P ENB 2 P IM CWTGR,A5 INDICATE GENERAL READ NOT ALLOWED " P CM
0x494a54…494be8 Dummy {f00=0x0173, f01=0x018e, f02=» EJECT P* PST100 EQU * . P* RETURN MONITOR BLOCKS USED AS BUFFERS , P LDR A7,A5 ^ , P ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD p P LDR* A4,A7 FIRST BLOCK $ P RF(Z) ST105 CONTINUE IF NO LEFT $ P CF A15,LNKOUT REMOVE FROM QUEUE
0x494be8…494d7c Dummy {f00=0x0173, f01=0x018e, f02=» d P LDR A7,A5 " P ADK A7,CWTCCQ CCA QUEUE HEAD P LDR* A4,A7 FIRST BLOCK @ $ P RF(Z) ST110 CONTINUE IF NO LEFT ` $ P CF A15,LNKOUT REMOVE FROM QUEUE P CF A15,FREBLK RETURN BLOCK P RB ST105 TAKE NEXT P* PST110 EQU *
0x494d7c…494f10 Dummy {f00=0x0173, f01=0x018e, f02=» 2 P ADK A7,CWTPBS POOLBLOCK, SHORT OUTPUT BUFFERS ( P CF A15,INIBUF INITIATE BUFFER AREA > P LDR A4,A5 CWT ADDRESS j 0 P ADKL A4,CWTLOB AREA FOR LONG OUTPUT BUFFERS P LDR A7,A5 2 P ADK A7,CWTPBL POOLBLOCK, LONG OUTPUT BUFFERS ( P CF
0x494f10…4950a4 Dummy {f00=0x0173, f01=0x0190, f02=» 2 P ADK A7,CWTPBG POOLBLOCK, GENERAL READ BUFFERS ( P CF A15,INIBUF INITIATE BUFFER AREA > P* j 0 P* RESET ALL DWT:S AND WORK STATION STATUS t 0 P LDK A3,MAXWS+1 NUMBER OF WORK STATIONS + 1 PST120 EQU * P SUK A3,1 NEXT WORK STAT
0x4950a4…495238 Dummy {f00=0x0173, f01=0x018e, f02=» ADDRESS ~ , P ADK A2,CWTWSS WORK STATION STATUS WORD P CMR A2 CLEAR STATUS @ P LDK A1,NOTOPR " P SCR A1,A2 WS := NOT OPERABLE r 0 P LD* A1,CWTINT,A5 WORK STATION TABLE ADDRESS " P LDR A6,A3 WORK STATION NUMBER 0 P CF A15,NDGEDN A7 := H
0x495238…4953cc Dummy {f00=0x0173, f01=0x0190, f02=» P LDR A6,A3 WS NUMBER $ P CF A15,GETDWT A6 := DWT ADDRESS P RB(Z) ST130 NOT DEFINED H $ P CM DWTLD2,A6 RESET FLOW CONTROL h P LDKL A2,/FFFF-DWFBSY-DWFPLC $ P* MASK FOR BUSY AND PLC FLAGS P ANS A2,DWTST,A6 RESET FLAGS ( P CM DWTL
0x4953cc…495560 Dummy {f00=0x0173, f01=0x0190, f02=»B ST120 NEXT WORK STATION P* " PST150 EQU * , , P* DELAY UNTIL PLC IS READY FOR START @ , P LD A4,CWTTPR,A5 TIMER ALREADY STARTED? p P RF(Z) ST152 NO, START TIMER " P LDKL A1,-STADLY-1 DELAY TIME P STR A1,A4 RESTART TIMER
0x495560…4956f4 (11, 48) Dummy {f00=0x0174, f01=0x0190, f02=»STADLY RESTART ADDRESS & DELAY TIME ( P ST A4,CWTTPR,A5 SAVE TIMER POINTER , PST154 EQU * X ( P ABL TDISP WAIT UNTIL TIMER EXPIRES l P* PST156 EQU * " P LDR A5,A1 RESTORE CWT ADDRESS , P CM CWTTPR,A5 INDICATE NO TIMER RUNNING
0x4956f4…495888 Dummy {f00=0x0174, f01=0x0190, f02=»DK A2,CMDTC COMMAND CODE TEST CU 8 P ST A2,CWTCCA+CCRDLS,A5 COMMAND AND DLS INDEX TO CCA ( , P CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING d P LDR A3,A5 CWT ADDRESS 6 P ADK A3,CWTCSD CONTROL UNIT START DESCRIPTOR ADDR P INH P CF A15,PLCCIO C
0x495888…495a1c Dummy {f00=0x0174, f01=0x0190, f02=»TION v P* P* 6 P* ENTRY IS MADE HERE WHEN TEST CU IS COMPLETED. & P* REGISTER CONTENTS ON ENTRY: Z P* A1 = PLC STATUS P* A5 = CWT ADDRESS P* PTCURST EQU * P LDR A1,A1 OPERATION OK? P RF(NZ) STERR2 N
0x495a1c…495bb0 Dummy {f00=0x0174, f01=0x0190, f02=»O,A5 PST157 EQU * P CF A15,PLCCCA RESERVE CCA P* B P LD A2,CWTLNO,A5 GET LINE NO L 2 P SC A2,CWTCCA+CCRSU1,A5 SET UP LINE IN CCA =5 p " P SLL A2,1 MAKE OPEN LINE PARA- P ST A2,CWTPAR,A5 METER AREA PST158 EQU * $ P LD
0x495bb0…495d44 Dummy {f00=0x0174, f01=0x0190, f02=»T UP IN CCA v $ P LDK A2,CMDOP COMMAND OPEN LINE 8 P ST A2,CWTCCA+CCRDLS,A5 COMMAND AND DLS INDEX TO CCA < : P CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR x ( P LDK A2,12 PARAMETER AREA LENGTH =1 " P ST A2,CWTCCA+CCRLEN,A5 TO CCA P
0x495d44…495ed8 Dummy {f00=0x0174, f01=0x0190, f02=»SPATCHER | P* P* 8 P* ENTRY TO OPLRST WILL BE MADE WHEN THE OPEN LINE $ P* OPERATION IS COMPLETED. ` & P* REGISTER CONTENTS ON ENTRY: P* A1 = PLC STATUS P* A5 = CWT ADDRESS P* POPLRST EQU * P LDR A
0x495ed8…49606c Dummy {f00=0x0174, f01=0x0190, f02=» RF(NP) ST159 YES ( P IM CWTLNO,A5 INCREMENT LINE NUMBER P LD A2,CWTLNO,A5 GET LINE NO F P SUK A2,4 ALL LINES OPENED ? j P RB(NZ) ST157 NO, TAKE NEXT P CM CWTLNO,A5 PST159 EQU * P* . P CM CWTGR,A5 INDICATE GENERAL READ
0x49606c…496200 Dummy {f00=0x0174, f01=0x0190, f02=»1 n PST160 EQU * & P SUK A6,1 NEXT WORK STATION (DLS) " P RF(N) ST180 EXIT IF ALL DONE H ( P LD* A1,CWTINT,A5 WORK STATION TABLE n 0 P CF A15,NDGEDN A7 := HIGEST DWT NUMBER ON WS P LDR A7,A7 ANY DWT:S? " P RB(N) ST160 NO, TAKE NEXT W
0x496200…496394 (11, 49) Dummy {f00=0x0174, f01=0x0190, f02=»WT ADDRESS " P CM CWTWSS,A3 CLEAR WS STATUS 8 P SC A6,CWTCCA+CCRDLS,A5 DLS INDEX (WS NUMBER) TO CCA 8 * P ST A6,CWTCCA+CCRIDW,A5 SAVE DLS INDEX t " P LDK A2,CMDOD COMMAND OPEN DLS " P SC A2,CWTCCA+CCRCMD,A5 TO CCA ( P LDK A2,MAXFR MAX OUTSTAND
0x496394…496528 Dummy {f00=0x0174, f01=0x0190, f02=»RT z P RF(NZ) STERR2 EXIT IF ERROR * P ABL PLDSP2 EXIT. WAIT FOR COMPLETION . P* P* f > P* ENTRY TO ODLRST IS MADE WHEN OPERATION IS COMPLETED. p & P* REGISTER CONTENTS ON ENTRY: P* A2 = FATAL PLC STATUS P* A5 = CWT
0x496528…4966bc Dummy {f00=0x0174, f01=0x018e, f02=»ERR2 YES, EXIT 0 P LD* A3,CWTINT,A5 WORK STATION TABLE ADDRESS $ P LDK A4,RETCP FLAG "TC POWER UP" J . P CF A15,NDREWS RECOVERY OF ALL DWT:S ON WS r $ P RB ST160 TAKE NEXT WORK STATION P* P* PST180 EQU * * P* ALL DATA LINKS
0x4966bc…496850 Dummy {f00=0x0174, f01=0x0190, f02=» n P* P ABL TDISP EXIT P* * P EJECT 4 P* B P******************** L P* LOCAL DISPATCHER * h P******************** P* > P* THIS SECTION CONTAINS A DISPATCHER FOR THE PLC DRIVER. < P* IT CAN BE CALLED EITHER
0x496850…4969e4 Dummy {f00=0x0174, f01=0x0190, f02=» : P* SOME INTERRUPTS OR DEVICE DRIVER CALLS SET SEVERAL 8 P* RESOURCES FREE. THIS MEANS THAT SEVERAL WAITING B < P* PROCERSSES MAY BECOME READY FOR ACTIVATION. ONLY ONE ~ : P* OF THESE PROCESSES CAN BE ACTIVATED DIRECTLY. THE > P* OTHER PR
0x4969e4…496b78 Dummy {f00=0x0174, f01=0x0190, f02=»ORDER OF APPEARANCE IN CODE: P* $ P* NAME FUNCTION . P* F 8 P* PLDISP ACTIVATE PROCESS OR PERFORM COMMON FUNCTION P P* P EJECT P* @ P************************************************************ P* P* ROUTINE NA
0x496b78…496d0c Dummy {f00=0x0174, f01=0x0190, f02=»CHING. IF ANY IS FOUND, IT IS ~ 8 P* ACTIVATED. THE ROUTINE ALSO PERFORMS ACTIONS THAT & 8 P* ARE NOT EXPLICITLY REQUESTED BY USER PROCESSES, EG b < P* GENERAL READ. WHEN NOTHING IS LEFT TO DO, THE ROUTINE P* EXITS TO TOSS DISPATCHER. 8 P* TWO
0x496d0c…496ea0 Dummy {f00=0x0174, f01=0x018e, f02=» P* CALL: P* ABL PLDISP P* ABL PLDSP2 , P* @ P* INPUT: J $ P* A5 = CWT ADDRESS (IF PLDSP2) Z $ P* A6 = DWT ADDRESS (IF PLDISP) P* A1-A8 ON A15 STACK P* P* OUTPUT: P* - P* @ P****************
0x496ea0…497034 (11, 50) Dummy {f00=0x0174, f01=0x0190, f02=» n P LDR A5,A5 $ P ABL(Z) TDISP NOT DEFINED. EXIT P* B P* L PPLDSP2 EQU * V P* j P* t PDP100 EQU * ~ P ENB P* HANDLE CHARACTER INPUT * P LD A4,CWTBUF,A5 INPUT BUFFER WAITING? P RF(Z) DP200 NO, CONTINU
0x497034…4971c8 Dummy {f00=0x0174, f01=0x0190, f02=» DP110 BUFFER EMPTY " P LD A3,DWTST,A6 DEVICE STATUS $ P ANK A3,DWFINP INPUT REQUESTED? B 0 P ABL(NZ) INPRST YES, RETURN TO DEVICE DRIVER j P* " P LD A1,DWTADR,A6 ADDRESS BLOCK . P LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED? , P ABR(NZ)
0x4971c8…49735c Dummy {f00=0x0174, f01=0x0190, f02=»NO, CONTINUE P CM DWTLD1,A6 REMOVE LINK PDP120 EQU * 6 $ P CM CWTBUF,A5 NO BUFFER WAITING J " P CF A15,PLRLBU RELEASE BUFFER r P* 8 P* CHECK IF LEVEL 3 RECIEVE READY SHOULD BE SENT 0 P CF A15,GETIFR A2 := NR OF FRAMES NOT ACK:
0x49735c…4974f0 Dummy {f00=0x0174, f01=0x0190, f02=»POWER UP FOR TC ( P LD A1,PFPOST POWER UP TASK PENDING? ( P OR A1,PLCPFP PLC POWER UP PENDING? D P ABL(NZ) TDISP YES, EXIT p P* P* PDP300 EQU * * P* HANDLE ABORT OF ONE WORK STATION ( P LD A6,CWTABW,A5 WS TO ABORT, IF A
0x4974f0…497684 Dummy {f00=0x0174, f01=0x0190, f02=» * P LD A4,CWTCCQ,A5 ANYONE IN CCA QUEUE? P RF(Z) DP500 NO, CONTINUE 2 P LD A1,CWTCCB,A5 CCA FREE? T P RF(NZ) DP500 NO, CONTINUE v P IM CWTCCB,A5 SET CCA BUSY ( P ABL CCARST ACTIVATE WAITING PROCESS P* P* PDP500 EQU *
0x497684…497818 Dummy {f00=0x0174, f01=0x0190, f02=»7,A5 CWT ADDRESS . P ADK A7,CWTPBS POOLBLOCK FOR SHORT BUFFERS ( P CF A15,PLGTBU A4 := BUFFER ADDRESS J $ P RF(Z) DP510 NO BUFFER AVAILABLE v , P LDK A7,CWTSBQ OFFSET TO CWT QUEUE HEAD ( P RF DP520 COMMON PART FOR SHORT/LONG P* PDP51
0x497818…4979ac Dummy {f00=0x0174, f01=0x0190, f02=»DK A7,CWTPBL POOLBLOCK FOR LONG BUFFERS ( P CF A15,PLGTBU A4 := BUFFER ADDRESS 0 0 P RF(Z) DP600 CONTINUE IF NO BUFFER AVAILABLE 4 P LDK A7,CWTLBQ OFFSET TO LONG BUFFERS QUEUE HEAD P* PDP520 EQU * & P* SHORT OR LONG BUFFER FOUND
0x4979ac…497b40 Dummy {f00=0x0174, f01=0x0190, f02=»E FROM QUEUE | & P SUKL A6,DWTOTQ A6 := DWT ADDRESS & P LDR A4,A2 RESTORE BUFFER ADDRESS > P LDK A1,0 RET CODE := OK h * P ABL BUFRST RETURN TO ROUTINE WAITING P* P* PDP600 EQU * 2 P* CHECK IF GENERAL READ SHOULD BE PERFO
0x497b40…497cd4 (11, 51) Dummy {f00=0x0174, f01=0x0190, f02=»CWTPBG POOLBLOCK FOR GENERAL READ BUFFERS ( P CF A15,PLGTBU A4 := BUFFER ADDRESS 2 . P ABL(NZ) GREAD PERFORM GR IF BUFFER FOUND ^ P* P* PDP800 EQU * 0 P* NOTHING MORE TO DO. EXIT TO DISPATCHER P ABL TDISP TOSS DISPATCHER
0x497cd4…497e68 Dummy {f00=0x0174, f01=0x0190, f02=»MISCELLANEOUS SERVICE ROUTINES. v B P* ALL ROUTINES ARE CALLED BY AN ABL "NAME" INSTRUCTION. ( : P* REGISTER INTERFACE IS DESCRIBED FOR EACH ROUTINE. n < P* WHEN A ROUTINE HAS PERFORMED THE REQUESTED FUNCTION, . P* IT WILL EXIT TO THE LOCA
0x497e68…497ffc Dummy {f00=0x0174, f01=0x0190, f02=» ABORT ALL WAITING DWT:S ON A WORK STATION 0 P* PLREWS HANDLE RECOVERY OF ONE WORK STATION 2 0 P* SENDRR SEND LEVEL 3 RECIEVE READY MESSAGE f P* GREAD PERFORM GENERAL READ P* P EJECT P* @ P****************************************
0x497ffc…498190 Dummy {f00=0x0174, f01=0x0190, f02=»BORTS FOR ONE WORK t 0 P* STATION. ALL REQUESTS OF DWT:S WAITING FOR 4 P* LEVEL 3 ACK OR WAITING IN CCA OR BUFFER QUEUES N 2 P* WILL BE ABORTED. ONE CALL IS NEEDED FOR EACH P* REQUEST TO BE ABORTED. P* P* CALL: P* ABL ABTHAN
0x498190…498324 Dummy {f00=0x0174, f01=0x0190, f02=» TO REQUEST: P* A1 = RETURN CODE P* A5 = CWT ADDRESS 0 P* A6 = DWT ADDRESS L P* h @ P************************************************************ r P* PABTHAN EQU * " P LDR A3,A6 WORK STATION NUMBER P SLA A3,1 MAKE
0x498324…4984b8 Dummy {f00=0x0174, f01=0x0190, f02=» LDR A8,A6 SAVE WS NUMBER ( P LD* A1,CWTINT,A5 WORK STATION TABLE " , P CF A15,NDGEDN A7 := HIGEST DWT NR ON WS N P LDK A1,0 ~ " P LCR A1,A3 WORK STATION STATUS P* P ADK A7,1 PREPARE FOR SUK PAH100 EQU * P SUK A7,1 NEXT DWT
0x4984b8…49864c Dummy {f00=0x0174, f01=0x0190, f02=»ED z P* $ P CM DWTLD2,A6 RESET FLOW CONTROL P LD A2,DWTST,A6 DWT STATUS < P LDR A3,A2 ^ , P LDKL A4,/FFFF-DWFPLC MASK FOR PLC FLAGS p P ANS A4,DWTST,A6 RESET FLAGS 2 P ANK A2,DWFAK3 IS DWT WAITING FOR LEVEL 3 ACK? P RF(Z) AH105 N
0x49864c…4987e0 Dummy {f00=0x0174, f01=0x0190, f02=»TURN TO WINDOW QUEUE ~ P* PAH105 EQU * & . P LD A4,DWTOTQ,A6 CCA QUEUE ELEMENT POINTER : " P LDR A2,A7 SAVE DEVICE ADDRESS l P LDR A3,A1 SAVE RETURN CODE P LDR A7,A5 CWT ADDRESS " P ADK A7,CWTCCQ CCA QUEUE HEAD 2 P CF A15,LNKOUT
0x4987e0…498974 (11, 52) Dummy {f00=0x0175, f01=0x0190, f02=»DRESS t " P LDR A1,A3 RESTORE RETURN CODE P* 4 , P CF A15,OUTBUQ REMOVE FROM BUFFER QUEUE > P LDR A2,A2 FOUND IN QUEUE? n * P ABL(NZ) BUFRST YES, TERMINATE REQUEST P RB AH100 NEXT DWT P* PAH110 EQU * B P* ALL PROCESSES
0x498974…498b08 Dummy {f00=0x0175, f01=0x018e, f02=»JECT P* @ P************************************************************ P* Z P* ROUTINE NAME: d P* PLREWS | P* P* FUNCTION: 4 P* THIS ROUTINE WILL HANDLE RECOVERY OF ONE WORK 4 P* STATION. ACTUAL CALL TO TERMINAL DEV
0x498b08…498c9c Dummy {f00=0x0175, f01=0x0190, f02=» P* A5 = CWT ADDRESS P* A6 = WORK STATION NUMBER $ P* H P* OUTPUT: R ( P* AT ENTRY TO DEVICE RECOVERY: d P* SEE NDREWS P* @ P************************************************************ P* PPLREWS EQU *
0x498c9c…498e30 Dummy {f00=0x0175, f01=0x0190, f02=» OF STATUS FOR WS t P* . P LDKL A2,/FFFF-WSFERR MASK FOR ERROR FLAG $ 0 P ANRS A2,A3 INDICATE WS WORKING AFTER ERROR V P LCR A1,A3 WS STATUS P LDK A2,0 P SCR A2,A3 RESET STATUS , P LDK A4,RESECP ASSUME SECONDARY POWER UP P
0x498e30…498fc4 Dummy {f00=0x0175, f01=0x018e, f02=» STATION TABLE z 4 P CF A15,NDREWS CALL RECOVERY FOR ALL DWT:S ON WS P* N P ABL PLDSP2 LOCAL DISPATCHER X P* | P EJECT P* @ P************************************************************ P* P* ROUTINE NAME: P* SE
0x498fc4…499158 Dummy {f00=0x0175, f01=0x0190, f02=» l P* P* CALL: P* ABL SENDRR " P* 6 P* INPUT: @ P* A5 = CWT ADDRESS P P* A6 = DWT ADDRESS l P* P* OUTPUT: P* - P* @ P************************************************************ P* P
0x499158…4992ec Dummy {f00=0x0175, f01=0x0190, f02=»SS | 2 P ADK A7,CWTMBQ QUEUE FOR KEEPING TRACK OF MB:S . P CF A15,LNKFST PUT MONITOR BLOCK IN QUEUE @ & P ADK A4,2 A4 := START OF USER PART r 6 P CF A15,WRADR2 WRITE LINE ADDRESS IN CCA & BUFFER , P LDK A2,CMDSW COMMAND := STANDARD WRITE " P S
0x4992ec…499480 Dummy {f00=0x0175, f01=0x0190, f02=»DK A2,X25DAT LENGTH OF X25 HEADER 0 P ST A2,CWTCCA+CCRLEN,A5 BUFFER LENGTH TO CCA * < P CM CWTCCA+CCRC1B,A5 RESET DATA CHAIN & MSB BUFFER ADDR ^ 2 P ST A4,CWTCCA+CCRBUF,A5 BUFFER ADDRESS TO CCA P* & P CF A15,GETLCS A1 := STATUS & INH P
0x499480…499614 (11, 53) Dummy {f00=0x0175, f01=0x0190, f02=»P(R). UPDATE FLOW CTRL | " P ORK A2,/01 MESSAGE TYPE := RR P SC A2,X25FLW,A4 TO BUFFER D $ P CF A15,PLCCIO EXECUTE CIO START f P RF(Z) RR120 EXIT IF OK PRR110 EQU * , P SUK A4,2 START ADDRESS OF MONITOR BLOCK 4 P CF A15,LNKOUT REMOVE
0x499614…4997a8 Dummy {f00=0x0175, f01=0x0190, f02=» t P* P EJECT P* @ P************************************************************ * P* n P* ROUTINE NAME: x P* GREAD P* P* FUNCTION: 0 P* THIS ROUTINE WILL PERFORM ONE GENERAL READ P* OPERATION TO THE PLC
0x4997a8…49993c Dummy {f00=0x0175, f01=0x0190, f02=» P* P* OUTPUT: P* - P* , @ P************************************************************ 6 P* z PGREAD EQU * * P LDR A6,A4 PARAMETER := BUFFER ADDRESS " P CF A15,PLCCCA RESERVE PLC CCA P* SET CCA PARAMETERS
0x49993c…499ad0 Dummy {f00=0x0175, f01=0x018e, f02=»LENGTH x P ST A2,CWTCCA+CCRLEN,A5 & P LDK A2,CMDGR COMMAND GENERAL READ . 0 P ST A2,CWTCCA+CCRDLS,A5 DLS INDEX & COMMAND X $ P CF A15,PLCCIO EXECUTE CIO START & P ABL PLDSP2 CHECK WHAT TO DO NEXT P* P EJECT P* P********
0x499ad0…499c64 Dummy {f00=0x0175, f01=0x0190, f02=» R 6 P* ALL ROUTINES ARE CALLED BY A CF A15,"NAME" > P* INSTRUCTION. REGISTER INTERFACE IS DESCRIBED FOR EACH B < P* ROUTINE. ONLY REGISTERS A1-A8 & PSW ARE CONSIDERED. < P* REGISTERS NOT MENTIONED UNDER "OUTPUT" ARE UNCHANGED P*
0x499c64…499df8 Dummy {f00=0x0175, f01=0x0190, f02=»Y, Z > P* IF THE REQUESTED FUNCTION IS OCCUPIED OR NOT USEABLE, < P* EXIT TO THE LOCAL DISPATCHER AND/OR TOSS DISPATCHER. L : P* THIS MEANS THAT THE A15 STACK AT CALL MUST CONTAIN > P* INTERRUPT RETURN, A1-A8 AND NOTHING ELSE. COMPUTATION
0x499df8…499f8c Dummy {f00=0x0175, f01=0x0190, f02=» P EJECT P* 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: P* T P* NAME FUNCTION ^ P* v P* ASYNCHRONOUS ROUTINES $ P* PLCCCA RESERVE CCA FOR PROCESS P* PLCCIO EXECUTE CIO START P* P* COMPUTATI
0x499f8c…49a120 Dummy {f00=0x0175, f01=0x0190, f02=»DDRESS x , P* GETFR GET NUMBER OF OUTSTANDING FRAMES * P* FLWINP HANDLE FLOW CONTROL FOR INPUT > , P* FLWOUT HANDLE FLOW CONTROL FOR OUTPUT l 2 P* WRADDR WRITE LINE ADDRESS IN CCA AND BUFFER & P* STAHAN PLC RETURN STATUS HANDLER * P* GETSTA GET
0x49a120…49a2b4 (11, 54) Dummy {f00=0x0175, f01=0x0190, f02=»PLCHAR GET/PUT CHARACTER FROM/IN PLC FORMAT BUFFER * P* INTYPE DECIDE TYPE OF INPUT MESSAGE : . P* OUTBUQ REMOVE ELEMENT FROM BUFFER QUEUE h ( P* LNKFST LINK ELEMENT FIRST IN QUEUE ( P* LNKLST LINK ELEMENT LAST IN QUEUE & P* LNKOUT LINK ELEMENT
0x49a2b4…49a448 Dummy {f00=0x0175, f01=0x0190, f02=»UTINE NAME: P* PLCCCA P* $ P* FUNCTION: . 4 P* THIS ROUTINE IS CALLED WHEN A PROCESS WANTS TO B 4 P* USE THE PLC COMMAND COMMUNICATION AREA (CCA). z 4 P* IF THE AREA IS FREE, THE ROUTINE SETS IT BUSY 4 P* AND RETURNS. IF THE AREA IS
0x49a448…49a5dc Dummy {f00=0x0175, f01=0x0190, f02=» THE AREA. z 2 P* PLCCCS ALSO SAVES THE QUEUE ELEMENT ADDRESS. P* H P* CALL: R P* CF A15,PLCCCA b P* CF A15,PLCCCS z P* P* INPUT: 8 P* A3 = QUEUE ELEMENT ADDRESS SAVE AREA (IF PLCCCS) P* A5 = CWT ADDRESS P* A6
0x49a5dc…49a770 Dummy {f00=0x0175, f01=0x0190, f02=»-A4 CHANGED P* A7-A8 CHANGED ! P* CR = CHANGED ! , P* INTERR. INHIBITED ! D P* ! ` @ P************************************************************ ! j P* ! P EJECT ! P* ! PPLCCCA EQU * ! . P LDK A3,0 DON'T SAVE QUEUE ELEMENT A
0x49a770…49a904 Dummy {f00=0x0175, f01=0x0190, f02=» ! p P LD A4,CWTCCB,A5 PLC BUSY? " $ P RF(NZ) CA100 YES, PUT IN QUEUE " * P* " R P* PLC FREE " P IM CWTCCB,A5 SET PLC BUSY " r ( P ADKL A15,4 ADJUST STACK FOR RETURN " P LDK A1,0 RETURN CODE := OK " $ P ABR* A15 RETURN IN INHIBIT MODE "
0x49a904…49aa98 Dummy {f00=0x0175, f01=0x0190, f02=»KIP PSW " $ P LDR* A2,A15 SAVE RETURN ADDRESS # 4 P CF A15,GETBLK GET MONITOR BLOCK AND SAVE A1-A2 # 8 P LDR A3,A3 SAVE POINTER? # p P RF(Z) CA110 NO, CONTINUE # * P STR A4,A3 SAVE QUEUE ELEMENT ADDRESS # PCA110 EQU * # P LDR A7,A5 CWT ADDRE
0x49aa98…49ac2c Dummy {f00=0x0175, f01=0x0190, f02=» LD A1,CWTPNR,A5 PLC NUMBER # P SLA A1,1 MAKE INDEX $ $ 4 P IM CCQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER $ @ P XIF $ x P ABL PLDSP2 LOCAL DISPATCHER $ P* $ P* $ 2 P* RETURN IS MADE HERE WHEN THE CCA IS FREE. $ 6 P* (AT A RELEASE INT
0x49ac2c…49adc0 Dummy {f00=0x0175, f01=0x0190, f02=»* $ PCCARST EQU * % P INH % P LDR A7,A5 CWT ADDRESS % * " P ADK A7,CWTCCQ CCA QUEUE HEAD % H , P CF A15,LNKOUT REMOVE PROCESS FROM QUEUE % n P LDK A3,0 RETURN CODE := OK % P* % P* % < P* ENTRY IS MADE HERE WHEN A REQUEST SHOULD BE A
0x49adc0…49af54 (11, 55) Dummy {f00=0x0175, f01=0x0190, f02=» % r P* A5 = CWT ADDRESS & P* & $ PCCAABT EQU * & . P INH & B P LDR A7,A3 SAVE RETURN CODE & N 4 P CF A15,FREBLK RETURN MONITOR BLOCK. LOAD A1-A2 & r P LDR A6,A1 PARAMETER & P LDR A1,A7 A1 := RETURN CODE & P ABR A2 RETURN & P* &
0x49af54…49b0e8 Dummy {f00=0x0175, f01=0x0190, f02=» & P* ' P* FUNCTION: ' < P* THIS ROUTINE CHECKS IF THE PLC CAN BE USED. IF IT CAN, ' & 4 P* THE ROUTINE EXECUTES A CIO START INSTRUCTION. ' f 4 P* IF THE PLC IS NOT OPERABLE DUE TO TC POWER UP, ' < P* THE ROUTINE WILL EXIT TO TOSS DISPATCHER. IN ALL
0x49b0e8…49b27c Dummy {f00=0x0175, f01=0x0190, f02=» ' P* ( P* INPUT: ( P* A5 = CWT ADDRESS ( " P* A1-A8 ON A15 STACK ( > P* ( Z P* OUTPUT: ( d P* A1 = RETURN CODE ( v P* 0 IF OK ( P* NOT 0 ELSE ( P* A2 = CHANGED ( P* CR = CONTENTS OF A1 ( P* INTERR. INHIBITED (
0x49b27c…49b410 Dummy {f00=0x0175, f01=0x018e, f02=»15 SKIP PSW ( $ P LDR* A2,A15 GET RETURN ADDRESS ) P* ) < P EJECT ) F P* ) T ( P LD A1,PFPOST POWER UP TASK PENDING? ) ^ ( P OR A1,PLCPFP PLC POWER UP PENDING? ) . P ABL(NZ) TDISP YES, GO TO TOSS DISPATCHER ) " P LD A1,CWTOPR,A5 PLC OPERABLE? )
0x49b410…49b5a4 Dummy {f00=0x0175, f01=0x0190, f02=» ) n & P RF(U) CS090 UNDEFINED, NOT OK =13 * P LDKL A1,0 SET CR, OK =14 * 2 P ABR A2 * T PCS090 EQU * * d P* * x * P CF A15,PLCNOP ERROR. SET NOT OPERABLE * PCS100 EQU * * . P LDK A1,NOTOPR RETURN CODE := NOT OPERABLE * P CM CWTCCB,A5 SET
0x49b5a4…49b738 Dummy {f00=0x0175, f01=0x0190, f02=»********************** * j P* + P* ROUTINE NAME: + ( P* PLCNOP + @ P* + P P* FUNCTION: + Z 8 P* THIS ROUTINE SETS A FLAG TO INDICATE THAT THE PLC + n P* IS "NOT OPERABLE". + P* + P* CALL: + P* CF A15,PLCNOP + P* + P* INPU
0x49b738…49b8cc Dummy {f00=0x0175, f01=0x0190, f02=»************ + ` P* , PPLCNOP EQU * , P STR A1,A15 PUSH A1 , 2 $ P LD A1,CWTPLS,A5 GET PLC STATUS , N P RF(NZ) PN100 , v $ P LDKL A1,-1 SET DUMMY ERROR CODE , PPN100 EQU * , * P ST A1,CWTOPR,A5 SET PLC NOT OPERABLE , P* , P IFF UTT
0x49b8cc…49ba60 Dummy {f00=0x0175, f01=0x0190, f02=» P LDK A1,PLCERR ERROR CODE - P OTR A1,0,/2E TO SOP LAMPS - & P DATA /6300 TRAP TO BUGGER - H PPN120 EQU * - j P* - ~ P XIF - P* - P LDR* A1,A15 POP A1 - P RTN A15 - P EJECT - P* - @ P**************************************
0x49ba60…49bbf4 (11, 56) Dummy {f00=0x0176, f01=0x0190, f02=»THE DWT ADDRESS FOR A - v P* DEVICE CONNECTED TO A PLC. . P* . B P* CALL: . L P* CF A15,GETDWT . P* . t P* INPUT: . ~ P* A5 = CWT ADDRESS . P* A6 = DLS INDEX . P* A7 = DEVICE ADDRESS . P* . P* OUTPUT: . " P* A6 = DW
0x49bbf4…49bd88 Dummy {f00=0x0176, f01=0x0190, f02=»************************************** . z P* / . PGETDWT EQU * / 8 P INH / L P STR A1,A15 PUSH A1 / X ( P LD* A1,CWTINT,A5 WORK STATION TABLE / t $ P CF A15,NDGEDW A6 := DWT ADDRESS / P LDR* A1,A15 POP A1 / ( P ADKL A15,4 ADJUST STACK FOR RETURN
0x49bd88…49bf1c Dummy {f00=0x0176, f01=0x0190, f02=»************************************** / z P* 0 . P* ROUTINE NAME: 0 8 P* GETCWT 0 P P* 0 ` P* FUNCTION: 0 j 2 P* THIS ROUTINE CALCULATES THE CWT ADDRESS FOR 0 ~ * P* THE PLC CONTROLLING CALLING DEVICE. 0 P* 0 P* CALL: 0 P* CF A15,GET
0x49bf1c…49c0b0 Dummy {f00=0x0176, f01=0x0190, f02=»ELSE 0 0 " P* A7 = 0 IF LOCAL CONNECTION 1 P* CR = CHANGED 1 4 P* 1 L @ P************************************************************ 1 V P* 1 PGETCWT EQU * 1 ( P LD A5,DWTCHP,A6 CHANNEL PARAMETERS 1 , P ANK A5,MASKPL CLEAN CHANNEL UNIT IN
0x49c0b0…49c244 Dummy {f00=0x0176, f01=0x0190, f02=» MASK =10 1 P SUKL A7,/0500 REMOTE ? 2 P RF(Z) GET010 NO 2 2 & P ADK A5,8 ADJUST INDEX FOR REMOTE 2 J P XIF 2 t , PGET010 LD A5,TABCWT,A5 A5 := CWT ADDRESS 2 P* 2 P IFT CPU852=1 2 P ADKL A15,2 SKIP PSW 2 P LDR* P,A15 RETURN 2 P X
0x49c244…49c3d8 Dummy {f00=0x0176, f01=0x018e, f02=»****************** 2 f P* 3 P* ROUTINE NAME: 3 $ P* GETFR 3 < P* 3 L P* FUNCTION: 3 V 8 P* THIS ROUTINE CALCULATES THE NUMBER OF OUTSTANDING 3 j 6 P* FRAMES, IE FRAMES THAT HAVE BEEN TRANSFERRED BUT 3 0 P* NOT ACKNOWLEDGED ON LEVEL 3, FOR A LOG
0x49c3d8…49c56c Dummy {f00=0x0176, f01=0x018e, f02=» P* 4 P* CALL: 4 P* CF A15,GETIFR 4 P* CF A15,GETOFR 4 6 P* 4 N P* INPUT: 4 X P* A6 = DWT ADDRESS 4 h P* 4 P* OUTPUT: 4 P* A1 = CHANGED 4 ( P* A2 = NUMBER OF OUTSTANDING FRAMES 4 P* CR = CHANGED 4 P* 4 @ P**
0x49c56c…49c700 Dummy {f00=0x0176, f01=0x0190, f02=» 4 h P LDR A1,A2 5 . P SRL A2,9 BITS 13-15 := NEXT EXPECTED P(S) 5 * P SRL A1,5 BITS 13-15 := LAST SENT P(R) 5 L P RF GF100 TO COMMON PART 5 z P* 5 P EJECT 5 P* 5 PGETOFR EQU * 5 * P LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS 5 P LDR A1,A2
0x49c700…49c894 (11, 57) Dummy {f00=0x0176, f01=0x018e, f02=»U * 5 ( P SUR A2,A1 A2 := OUTSTANDING FRAMES 6 P ANK A2,/07 CLEAN & MODULO 8 6 8 P* 6 P IFT CPU852=1 6 f P ADKL A15,2 SKIP PSW 6 | P LDR* P,A15 RETURN 6 P XIF 6 P* 6 P IFF CPU852=1 6 P RTN A15 6 P XIF 6 P* 6 P EJE
0x49c894…49ca28 Dummy {f00=0x0176, f01=0x0190, f02=» P* 7 P* FUNCTION: 7 > P* THIS ROUTINE HANDLES FLOW CONTROL FOR INPUT. IT FETCHES 7 " 8 P* FLOW CONTROL INFORMATION FROM MESSAGE AND UPDATES 7 d P* COUNTERS IN DWT. 7 2 P* FWIPR IS FOR MESSAGES ONLY CONTAINING P(R). 7 6 P* FWIPSR IS FOR MESSAGES
0x49ca28…49cbbc Dummy {f00=0x0176, f01=0x0190, f02=» P* 8 P* INPUT: 8 P* A4 = BUFFER ADDRESS 8 P* A6 = DWT ADDRESS 8 < P* 8 X P* OUTPUT: 8 b P* A1 = CHANGED 8 t P* CR = CHANGED 8 P* 8 @ P************************************************************ 8 P* 8 PFWIPR EQU *
0x49cbbc…49cd50 Dummy {f00=0x0176, f01=0x0190, f02=»2,A6 OLD FLOW CONTROL 8 ( P ANK A2,/0E BITS 12-14 = OLD P(S) IN 9 P ORR A1,A2 KEEP OLD P(S) 9 J P LDR* A2,A15 POP A2 9 j P RF FI100 COMMON ENDING 9 P* 9 P* 9 PFWIPSR EQU * 9 , P LC A1,X25FLW,A4 FLOW CONTROL FROM INPUT 9 P ANK A1,/E
0x49cd50…49cee4 Dummy {f00=0x0176, f01=0x0190, f02=» * P SC A1,DWTLD2,A6 SAVE NEW FLOW CONTROL : P* : 2 P IFT CPU852=1 : < P ADKL A15,2 SKIP PSW : R P LDR* P,A15 RETURN : n P XIF : P* : P IFF CPU852=1 : P RTN A15 : P XIF : P* : P EJECT : P* : @ P**********************
0x49cee4…49d078 Dummy {f00=0x0176, f01=0x0190, f02=»TINE HANDLES FLOW CONTROL FOR OUTPUT. FLOW : < P* CONTROL INFORMATION IS FETCHED FROM DWT, AND COUNTERS ; 2 P* IN DWT ARE UPDATED. ; r 2 P* FWOPR IS FOR MESSAGES CONTAINING ONLY P(R). ; 6 P* FWOPSR IS FOR MESSAGES CONTAINING P(S) AND P(R). ; P* ;
0x49d078…49d20c Dummy {f00=0x0176, f01=0x0190, f02=»: ; P* A1 = CHANGED < P* A2 = BITS 0-7 ZERO < " P* BITS 8-10 P(R) TO SEND < @ P* BIT 11 ZERO < b * P* BITS 12-14 P(S) TO SEND IF FWOPSR < z P* ELSE ZERO < P* BIT 15 ZERO < P* CR = CHANGED < P* < @ P****
0x49d20c…49d3a0 Dummy {f00=0x0176, f01=0x0190, f02=» P LDR A1,A2 = 0 P SRL A2,4 BITS 8-10 := NEXT EXPECTED P(S) IN = P* (= P(R) TO SEND) = J P ANK A2,/E0 CLEAN = h . P ANK A1,/0E BITS 12-14 = NEXT P(S) TO SEND = & P ORR A1,A2 P(S) := SAME AS BEFORE = P RF FO100 COMMON ENDING = P* = P
0x49d3a0…49d534 (11, 58) Dummy {f00=0x0176, f01=0x0190, f02=»IN = f P* (= P(R) TO SEND) > P ANK A2,/E0 CLEAN > ( . P ANK A1,/0E BITS 12-14 = NEXT P(S) TO SEND > B $ P ORR A2,A1 COUNTERS FOR MESSAGE > t P LDR A1,A2 > & P ADK A1,/02 INCREMENT P(S) TO SEND > P ANK A1,/EE MODULO 8 > P* > P* > P
0x49d534…49d6c8 Dummy {f00=0x0176, f01=0x0190, f02=»DR* P,A15 RETURN > P XIF ? P* ? $ P IFF CPU852=1 ? . P RTN A15 ? D P XIF ? T P EJECT ? ` P* ? n @ P************************************************************ ? x P* ? P* ROUTINE NAME: ? P* WRADDR ? P* ? P* FUNCTION: ?
0x49d6c8…49d85c Dummy {f00=0x0176, f01=0x0190, f02=»ICE ADDRESS. WRADR1 SETS ? z 6 P* GROUP=1 INDICATING NO FLOW CONTROL, WRADR2 SETS @ & P* GROUP=0 INDICATING FLOW CONTROL. @ Z P* @ P* CALL: @ P* CF A15,WRADR1 @ P* CF A15,WRADR2 @ P* @ P* INPUT: @ P* A4 = BUFFER ADDRESS @ P*
0x49d85c…49d9f0 Dummy {f00=0x0176, f01=0x0190, f02=» @ P************************************************************ A P* A H PWRADR1 EQU * A R P LDK A2,/11 GROUP NUMBER 1 A f P RF WA100 TO COMMON PART A P* A P EJECT A P* A PWRADR2 EQU * A P LDK A2,/10 GROUP NUMBER 0 A P* A
0x49d9f0…49db84 Dummy {f00=0x0176, f01=0x0190, f02=»WS CLEAN WS NUMBER A " P SC A2,CWTCCA+CCRDLS,A5 TO CCA B P LC A2,DWTCP2+1,A6 B @ ( P ANK A2,MASKLC CLEAN DEVICE ADDRESS B Z P SC A2,X25LCN,A4 TO BUFFER B P* B P IFT CPU852=1 B P ADKL A15,2 SKIP PSW B P LDR* P,A15 RETURN B P XIF B
0x49db84…49dd18 Dummy {f00=0x0176, f01=0x0190, f02=»******************** B h P* C P* ROUTINE NAME: C & P* STAHAN C > P* C N P* FUNCTION: C X 2 P* THIS ROUTINE HANDLES PLC STATUS WORD FOR ONE C l 4 P* WORK STATION. IF "NO CONNECTION", "LINK RESET" C 2 P* OR "DCE NOT OPERABLE" IS INDICATED, AN ERROR
0x49dd18…49deac Dummy {f00=0x0176, f01=0x0190, f02=» P* CALL: D P* CF A15,STAHAN D P* D , P* INPUT: D 6 P* A1 = PLC STATUS D F P* A2 = WORK STATION NUMBER D ` P* A5 = CWT ADDRESS D P* D P* OUTPUT: D P* A1 = DEVICE RETURN CODE D P* CR = CHANGED D P* D @ P********
0x49deac…49e040 Dummy {f00=0x0176, f01=0x0190, f02=»OR? D ~ P RF(Z) SH120 NO, RETURN E P STR A4,A15 PUSH A4 E , P* E H P EJECT E R P* E ` ( P LDK A1,NOTOPR ASSUME NO CONNECTION E j " P ANKL A3,STADNO+STANOC IS IT? E P RF(NZ) SH100 YES, CONTINUE E " P LDK A1,LINERR NO, LINK ERROR E PSH
0x49e040…49e1d4 (11, 59) Dummy {f00=0x0176, f01=0x018e, f02=»:= ADDRESS OF STATUS FOR WS E ~ P SCR A1,A3 SAVE ERROR CODE F $ & P LDK A4,WSFERR WORK STATION ERROR F F " P ANR* A4,A3 ALREADY DETECTED? F p P RF(NZ) SH110 YES, RETURN F P LDK A4,WSFERR F " P ORRS A4,A3 SET ERROR DETECTED F 0 P ST A2,CWTABW,A5 IND
0x49e1d4…49e368 Dummy {f00=0x0176, f01=0x018e, f02=» P* G P IFT CPU852=1 G P ADKL A15,2 SKIP PSW G $ P LDR* P,A15 RETURN G @ P XIF G Z P IFF CPU852=1 G f P RTN A15 G | P XIF G P* G P EJECT G P* G @ P************************************************************ G P* G P
0x49e368…49e4fc Dummy {f00=0x0176, f01=0x0190, f02=» G 0 P* GETWSS WILL ONLY CHECK THE STATUS FOR THE H P* WORK STATION CONNECTION. H < 0 P* GETLCS WILL CHECK BOTH LOGICAL CHANNEL AND H ^ P* WORK STATION STATUS. H P* H P* CALL: H P* CF A15,GETLCS H P* CF A15,GETWSS H P* H P* IN
0x49e4fc…49e690 Dummy {f00=0x0176, f01=0x0190, f02=»ENTS OF A1 H P* INTERR. INHIBITED I P* I . @ P************************************************************ I 8 P* I | PGETLCS EQU * I P INH I P STR A3,A15 PUSH A3 I P* I * P LDK A1,LINERR SET RETURN CODE IN CASE I P LD A3,DWTST,A
0x49e690…49e824 Dummy {f00=0x0176, f01=0x0190, f02=»T. CHECK WSS I ~ P* J P* J PGETWSS EQU * J ( P INH J < P STR A3,A15 PUSH A3 J H P* J d P* J n PLS100 EQU * J x P LC A3,DWTCP2,A6 WS NUMBER J P ANK A3,MASKWS CLEAN J P SLA A3,1 MAKE INDEX J P ADR A3,A5 CWT ADDRESS J P LC
0x49e824…49e9b8 Dummy {f00=0x0176, f01=0x0190, f02=»1,/FF CLEAN RETURN CODE & SET CR J P ABR* A15 RETURN K ( P* K @ P EJECT K J P* K X @ P************************************************************ K b P* K P* ROUTINE NAME: K P* PLGTBU K P* K P* FUNCTION: K 8 P* THIS ROUTINE WIL
0x49e9b8…49eb4c Dummy {f00=0x0176, f01=0x0190, f02=»U K P* L P* INPUT: L P* A7 = POOLBLOCK ADDRESS L $ P* L F P* OUTPUT: L P * P* A2 = LENGTH OF USER PART OF BUFFER L b 2 P* A4 = START OF USER PART OF BUFFER (IF ANY) L & P* CR = NOT 0 IF BUFFER ALLOCATED L P* 0 IF NO BUFFER ALLOCA
0x49eb4c…49ece0 Dummy {f00=0x0176, f01=0x0190, f02=»QU * L P LDR* A2,A15 SKIP PSW M $ P LDR* A2,A15 GET RETURN ADDRESS M * $ P CF A15,GETBUF A4 := BUFFER. INH M R " P ABR(Z) A2 RETURN IF NO BUFFER M z P* M $ P ST A2,0,A15 SAVE RETURN ADDRESS M & P ADK A4,BUFHLN START OF USER PART M , P ST A7,BUFLN
0x49ece0…49ee74 (11, 60) Dummy {f00=0x0177, f01=0x0190, f02=»TINUE IF OK M 0 P ANK A2,0 TOO SHORT. BUFFER LENGTH & CR := 0 N PGU100 EQU * N H ( P ST A2,BUFLEN,A4 USER BUFFER LENGTH N P ABR* A15 RETURN N P* N P EJECT N P* N @ P************************************************************ N P*
0x49ee74…49f008 Dummy {f00=0x0177, f01=0x0190, f02=»AT USED BY THIS DRIVER. N P* O P* CALL: O * P* CF A15,PLRLBU O : P* O R P* INPUT: O P* A4 = BUFFER ADDRESS O l P* O P* OUTPUT: O P* A4 = CHANGED O P* CR = CHANGED O " P* INTERR. INHIBITED IF CPU 852 O P* O @ P**
0x49f008…49f19c Dummy {f00=0x0177, f01=0x018e, f02=»K,A4 POOLBLOCK ADDRESS O 2 P SUK A4,BUFHLN A4 :- PHYSICAL START OF BUFFER P ( P CF A15,RELBUF RELEASE BUFFER & INH P T P LDR* A7,A15 POP A7 P P* P P IFT CPU852=1 P P ADKL A15,2 SKIP PSW P P LDR* P,A15 RETURN P P XIF P P IFF CPU85
0x49f19c…49f330 Dummy {f00=0x0177, f01=0x0190, f02=» P P* ROUTINE NAME: Q P* PLCHAR Q P* Q 0 P* FUNCTION: Q : 0 P* THESE ROUTINES ARE USED TO GET A CHARACTER Q N 4 P* FROM A BUFFER OR PUT A CHARACTER IN A BUFFER. Q 4 P* THE BUFFER SHOULD HAVE A HEADER OF THE NORMAL Q . P* PLC FORMAT (SE "BUFF
0x49f330…49f4c4 Dummy {f00=0x0177, f01=0x0190, f02=»INPUT: Q P* A2 = IF PUT CHAR R P* BITS 0-7 IRRELEVANT R * P* BITS 8-15 CHARACTER R H P* A4 = BUFFER ADDRESS R f P* R P* OUTPUT: R P* A1 = RETURN CODE R & P* -1 IF OVERFLOW/UNDERFLOW, ELSE R P* AT PLPUCH: 0 R , P* AT PLG
0x49f4c4…49f658 Dummy {f00=0x0177, f01=0x0190, f02=». INHIBITED R P* S @ P************************************************************ S P* S b P EJECT S l P* S z PPLGECH EQU * S P INH S P* S . P LD A1,BUFLEN,A4 LENGTH OF TEXT IN BUFFER S P LD A2,BUFBIX,A4 BYTE INDEX S P SUR
0x49f658…49f7ec Dummy {f00=0x0177, f01=0x0190, f02=»2,A4 ABSOLUTE ADDRESS OF CHARACTER S P LCR A2,A2 GET CHARACTER T * P ANK A2,/FF CLEAN T J P* T d P RF CH110 NORMAL EXIT T n P* T P* T PPLPUCH EQU * T P INH T P* T P LD A1,BUFBIX,A4 BYTE INDEX T $ P CW A1,BUFLEN,A4 OUTSIDE B
0x49f7ec…49f980 Dummy {f00=0x0177, f01=0x0190, f02=»UT CHARACTER IN BUFFER T P LDK A1,0 RETURN CODE := OK U P RF CH110 NORMAL EXIT U B P* U ` P* U j PCH100 EQU * U t $ P LDKL A1,-1 RETURN CODE := ERROR U PCH110 EQU * U P ADKL A15,4 ADJUST STACK U P ABR* A15 RETURN U P* U P E
0x49f980…49fb14 (11, 61) Dummy {f00=0x0177, f01=0x0190, f02=» P* V P* FUNCTION: V 4 P* THIS ROUTINE CHECKS A GENERAL READ ANSWER FROM V " , P* THE PLC TO DETERMINE TYPE OF MESSAGE. V Z P* V P* CALL: V P* CF A15,INTYPE V P* V P* INPUT: V P* A5 = CWT ADDRESS V P* V P* OUTPUT: V
0x49fb14…49fca8 Dummy {f00=0x0177, f01=0x0190, f02=»******************************** V t P* W ( PINTYPE EQU * W 2 ( P LDK A2,X25DAT MINIMUM INPUT LENGTH W F . P CW A2,CWTRCA+CCRLEN,A5 LENGTH >= MINIMUM? W r P RF(G) ITERR NO, ERROR W P* W P EJECT W P* W * P LD A3,CWTRCA+CCRBUF,A5 BUFFER ADDRE
0x49fca8…49fe3c Dummy {f00=0x0177, f01=0x0190, f02=» W . P* CHANNEL GROUP ZERO. NORMAL MESSAGES. X & P LC A3,X25FLW,A3 FLOW CONTROL BYTE X : P LDR A4,A3 SAVE X d P ANK A4,/01 FLAG X | " P RF(NZ) IT100 NOT DATA PACKET X & P LDK A3,TYDATA ASSUME NORMAL DATA X P ANK A2,/80 QUALIFY BIT SET? X ( P
0x49fe3c…49ffd0 Dummy {f00=0x0177, f01=0x0190, f02=» & P LDR A4,A3 SAVE FLOW CONTROL BYTE Y P ANK A3,/02 RECIEVE READY? Y . P RF(NZ) IT110 NO Y P & P LDK A3,TYRR TYPE := RECIEVE READY Y h P RF ITEXIT EXIT Y P* Y PIT110 EQU * Y & P LDK A3,TYRES ASSUME TYPE = RESET Y P ANK A4,/04 IS IT RESE
0x49ffd0…4a0164 Dummy {f00=0x0177, f01=0x018e, f02=» Y P* Z PIT120 EQU * Z P* NOT NORMAL MESSAGE Z & 0 P LDK A3,TYNFLO ASSUME TYPE = NO FLOW CONTROL Z F $ P SUK A4,1 IS IT NO FLOW CONTROL? Z z P RF(Z) ITEXIT YES, EXIT Z P* Z PITERR EQU * Z & P LDK A3,TYERR IRRECOVERABLE ERROR Z
0x4a0164…4a02f8 Dummy {f00=0x0177, f01=0x0190, f02=» Z P RTN A15 [ P XIF [ P* [ $ P EJECT [ . P* [ < @ P************************************************************ [ F P* [ P* ROUTINE NAME: [ P* OUTBUQ [ P* [ P* FUNCTION: [ 8 P* THIS ROUTINE WILL REMOVE A DWT FROM THE QUEU
0x4a02f8…4a048c Dummy {f00=0x0177, f01=0x0190, f02=» [ P* P* INPUT: P* A5 = CWT ADDRESS " P* A6 = DWT ADDRESS > P* Z P* OUTPUT: d P* A2 = NOT 0 IF DWT FOUND v P* 0 IF DWT NOT FOUND P* A4 = CHANGED P* CR = CHANGED P* @ P************************
0x4a048c…4a0620 Dummy {f00=0x0177, f01=0x0190, f02=»4,A6 DWT ADDRESS P ADKL A4,DWTOTQ QUEUE LINK ] P* ] : P LDR A7,A5 CWT ADDRESS ] D & P ADK A7,CWTSBQ SHORT BUFFERS QUEUE ] b ( P CF A15,LNKOUT REMOVE DWT FROM QUEUE ] P LDR A7,A7 FOUND? ] P RF(NZ) OB100 YES, RETURN ] P* ] P LDR A7,A5
0x4a0620…4a07b4 (11, 62) Dummy {f00=0x0177, f01=0x0190, f02=» FOUND / NOT FOUND ] P* ^ P LDR* A7,A15 POP A7 ^ $ P LDR* A1,A15 POP A1 ^ @ P IFT CPU852=1 ^ P ADKL A15,2 SKIP PSW ^ r P LDR* P,A15 RETURN ^ P XIF ^ P IFF CPU852=1 ^ P RTN A15 ^ P XIF ^ P* ^ P EJECT ^ P* ^ @ P
0x4a07b4…4a0948 Dummy {f00=0x0177, f01=0x018e, f02=»ON: ^ 2 P* THIS ROUTINE LINKS A QUEUE ELEMENT FIRST IN _ & P* A QUEUE (CLOSEST TO QUEUE HEAD). _ B 2 P* ONE WORD IN EACH ELEMENT IS USED AS A LINK. _ l 2 P* END OF QUEUE IS INDICATED BY LINK=0 IN LAST _ P* ELEMENT. _ P* _ P* CALL: _ P* CF
0x4a0948…4a0adc Dummy {f00=0x0177, f01=0x0190, f02=» P* OUTPUT: ` P* A1 = CHANGED ` P* CR = CHANGED ` . P* ` F @ P************************************************************ ` P P* ` PLNKFST EQU * ` $ P LDR* A1,A7 FIRST QUEUE ELEMENT ` ( P STR A1,A4 SET LINK FROM NEW ELEMENT ` $ P S
0x4a0adc…4a0c70 Dummy {f00=0x0177, f01=0x0190, f02=» XIF ` P* a P EJECT a P* a $ @ P************************************************************ a . P* a r P* ROUTINE NAME: a | P* LNKLST a P* a P* FUNCTION: a 0 P* THIS ROUTINE LINKS A QUEUE ELEMENT LAST IN a * P* A QUEUE (OPOSITE
0x4a0c70…4a0e04 Dummy {f00=0x0177, f01=0x0190, f02=»* ELEMENT. a P* b P* CALL: b P* CF A15,LNKLST b , P* b D P* INPUT: b N & P* A4 = QUEUE ELEMENT LINK ADDRESS b ^ $ P* A7 = QUEUE HEAD LINK ADDRESS b P* b P* OUTPUT: b P* A1 = CHANGED b P* A7 = CHANGED b P* CR = CHAN
0x4a0e04…4a0f98 Dummy {f00=0x0177, f01=0x0190, f02=»PRESENT ELEMENT b P LDR* A7,A7 NEXT ELEMENT c 0 P RB(NZ) LNKLST CONTINUE IF NOT LAST ELEMENT c 8 * P STR A4,A1 LINK NEW ELEMENT AFTER LAST c l * P CMR A4 SET END MARKER IN LAST ELEMENT c P* c P EJECT c P* c P IFT CPU852=1 c P RF LNKR
0x4a0f98…4a112c Dummy {f00=0x0177, f01=0x0190, f02=»************************************** c z P* d . P* ROUTINE NAME: d 8 P* LNKOUT d P P* d ` P* FUNCTION: d j 4 P* THIS ROUTINE REMOVES AN ELEMENT FROM A QUEUE. d ~ 2 P* ONE WORD IN EACH ELEMENT IS USED AS A LINK. d 2 P* END OF QUEUE IS INDICATED
0x4a112c…4a12c0 Dummy {f00=0x0177, f01=0x0190, f02=»EMENT LINK ADDRESS d $ P* A7 = QUEUE HEAD LINK ADDRESS e P* e B P* OUTPUT: e L P* A1 = CHANGED e ^ $ P* A7 = =0 IF ELEMENT NOT FOUND e v P* ><0 IF ELEMENT FOUND e P* CR = CHANGED e P* e @ P****************************************
0x4a12c0…4a1454 (11, 63) Dummy {f00=0x0177, f01=0x018e, f02=» LO100 EXIT IF END OF QUEUE e P CWR A4,A7 ELEMENT FOUND? f $ " P RB(NE) LNKOUT NO, CHECK NEXT f F P* f l P EJECT f v P* f , P LDR* A7,A7 ELEMENT AFTER WANTED ELEMENT f . P STR A7,A1 SET LINK FROM PREVIOUS TO NEXT f $ P LDK A7,1 INDICATE ELEME
0x4a1454…4a15e8 Dummy {f00=0x0177, f01=0x0190, f02=» f j 6 P* RETURN WITHOUT CHANGING INTERRUPT ENABLE FLAG g P ADKL A15,2 SKIP PSW g B P LDR* P,A15 RETURN g ^ P XIF g x P* g P IFF CPU852=1 g P RTN A15 g P XIF g P* g P EJECT g P* g P* g P* g P* g @ P********
0x4a15e8…4a177c Dummy {f00=0x0177, f01=0x0190, f02=»SS BUFFER HANDLING SUBROUTINES g P* h & P* h 0 P* h : @ P************************************************************ h D P* h 6 P* THIS PROGRAM CONTAINS A SET OF BUFFER HANDLING h 6 P* SUBROUTINES. THEY OPERATE ON BUFFERS ORGANIZED h 4 P*
0x4a177c…4a1910 Dummy {f00=0x0177, f01=0x0190, f02=»HE POOLBLOCK AND BUFFER h x 0 P* AREA(S) SHOULD BE SUPPLIED BY THE USER. i P* i T 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: i ^ P* i P* NAME FUNCTION i P* i " P* GETBUF GET BUFFER FROM POOL i " P* RELBUF RETURN BUFFER TO POOL i &
0x4a1910…4a1aa4 Dummy {f00=0x0177, f01=0x0190, f02=» i P* j P* j $ P* POOLBLOCK LAYOUT DEFINITION j P* j D " P* POOLBLOCK WORD OFFSETS j N PPOBID EQU 0 POOL IDENTITY j t PPOBFLG EQU 2 BINARY FLAGS j $ PPOBFRE EQU 4 FREE LIST LINK HEAD j $ PPOBBUS EQU 6 BUFFER SIZE (BYTES) j " P
0x4a1aa4…4a1c38 Dummy {f00=0x0177, f01=0x0190, f02=» P* k @ P************************************************************ k P* k R P* ROUTINE NAME: k P* GETBUF k t P* k P* FUNCTION: k 4 P* THIS ROUTINE FETCHES ONE BUFFER FROM A BUFFER k & P* POOL AND GIVES IT TO THE CALLER. k P* k
0x4a1c38…4a1dcc Dummy {f00=0x0177, f01=0x0190, f02=»A4 = BUFFER ADDRESS IF BUFFER ALLOCATED k P* ELSE ZERO l 0 P* CR = CONTENTS OF A4 l F P* INTERR.= INHIBITED l d P* l @ P************************************************************ l P* l PGETBUF EQU * l P INH l $ P LD A4,POBFRE,A7
0x4a1dcc…4a1f60 Dummy {f00=0x0177, f01=0x0190, f02=»,A4 NEW START OF FREE LIST l " P ST A1,POBFRE,A7 TO POOLBLOCK m " P LDR* A1,A15 POP A1 m H P* m d PGB100 EQU * m n P ADKL A15,4 ADJUST STACK m $ P LDR A4,A4 CR := CONTENTS OF A4 m P ABR* A15 RETURN m P* m P EJECT m P* m @ P****
0x4a1f60…4a20f4 (11, 64) Dummy {f00=0x0178, f01=0x0190, f02=» m 2 P* THIS ROUTINE RELEASES ONE BUFFER AND RETURNS n P* IT TO A BUFFER POOL. n > P* n P* CALL: n f P* CF A15,RELBUF n v P* n P* INPUT: n P* A4 = BUFFER ADDRESS n P* A7 = POOLBLOCK ADDRESS n P* n P* OUTPUT: n P* CR
0x4a20f4…4a2288 Dummy {f00=0x0178, f01=0x0190, f02=»RELBUF EQU * n P INH o P STR A1,A15 PUSH A1 o P* o < ( P LD A1,POBFRE,A7 OLD FREE LIST START o F $ P STR A1,A4 LINK AFTER NEW BUFFER o r , P ST A4,POBFRE,A7 SET NEW FREE LIST START o P* o P LDR* A1,A15 POP A1 o P ADKL A15,4 ADJUST STACK
0x4a2288…4a241c Dummy {f00=0x0178, f01=0x0190, f02=» o P* ROUTINE NAME: p P* AREBUF p P* p 0 P* FUNCTION: p : 6 P* THIS ROUTINE ALLOCATES A SPECIFIED DATA AREA TO p N 2 P* A BUFFER POOL. THIS CAN BE DONE IN TWO WAYS. p 0 P* "INIBUF" IS USED WHEN A NEW BUFFER POOL IS p 2 P* INITIATED. IT DIVIDE
0x4a241c…4a25b0 Dummy {f00=0x0178, f01=0x0190, f02=»1) p b 6 P* IN THE LAST BUFFER. "LNKBUF" IS USED WHEN A NEW q 2 P* AREA IS ADDED TO AN EXISTING BUFFER POOL. IT q D 2 P* DIVIDES THE AREA INTO BUFFERS, AND LINKS THE q z & P* BUFFERS FIRST IN THE FREE LIST. q P* q P* CALL: q P* CF A15,INIBUF q
0x4a25b0…4a2744 Dummy {f00=0x0178, f01=0x018e, f02=» q P* CR = CHANGED IF CPU852 r P* r * @ P************************************************************ r 4 P* r x P EJECT r P* r PINIBUF EQU * r P IFT CPU852=1 r P STR A1,A15 PUSH A1 r P XIF r P* r P IFF CPU852=1 r
0x4a2744…4a28d8 Dummy {f00=0x0178, f01=0x018e, f02=» r P* s PLNKBUF EQU * s P IFT CPU852=1 s & P STR A1,A15 PUSH A1 s < P XIF s X P* s d P IFF CPU852=1 s n P MSR 4,A15 PUSH A1-A4 s P XIF s P* s ( P LD A1,POBFRE,A7 LINK TO OLD BUFFERS s P* s P* s PIL100 EQU * s
0x4a28d8…4a2a6c Dummy {f00=0x0178, f01=0x0190, f02=» s P STR A4,A15 t P XIF t P* t ( P EJECT t 2 P* t @ P LDR A2,A7 t J " P ADK A2,POBFRE FREE LIST START t P LDR A3,A4 t P AD A3,POBARS,A7 END OF AREA t 0 P SU A3,POBBUS,A7 HIGEST BUFFER START IN AREA t P* t PIL110 EQU * t
0x4a2a6c…4a2c00 Dummy {f00=0x0178, f01=0x0190, f02=» NO, FINISH t P* u P SLL A3,1 . =15 u P SLL A4,1 . =15 u 6 0 P STR A4,A2 SET LINK FROM PREVIOUS TO PRESENT u N P LDR A2,A4 NEW PREVIOUS u P AD A4,POBBUS,A7 NEW PRESENT u P RB IL110 TAKE NEXT BUFFER u P* u PIL120 EQU * u P S
0x4a2c00…4a2d94 (11, 65) Dummy {f00=0x0178, f01=0x0190, f02=»,A15 POP A1-A4 u P LDR* A3,A15 v P LDR* A2,A15 v * P LDR* A1,A15 v > P ADKL A15,2 ADJUST STACK v R P LDR* P,A15 RETURN v r P XIF v P* v P IFF CPU852=1 v P MLR 4,A15 POP A1-A4 v P RTN A15 v P XIF v P* v P IFF UTTEST=0
0x4a2d94…4a2f28 Dummy {f00=0x0178, f01=0x0190, f02=» LOGIOC v P* LOGATT w 0 P* FUNCTION: LOG MSG TYPE AND CCR+BUFFER w 4 : P* DLSSEL SPECIFIES DLS TO BE SELECTED w h & P* 0 MEANS LOG ALL w P* w 4 P* RECORD FORMAT: BYTE 1-2 MSG TYPE (CO,RE,AT
0x4a2f28…4a30bc Dummy {f00=0x0178, f01=0x018e, f02=»US-1 w p . P* BYTE 7 BUFFER LENGTH x 0 P* BYTE 8 PACKET HEADER -1 x > B P* BYTE 9 PACKET HEADER -2 (LOGICAL CHANNEL) x r > P* BYTE 10 PACKET HEADER -3 (FLOW CONTOL) x 6 P*
0x4a30bc…4a3250 Dummy {f00=0x0178, f01=0x0190, f02=» x v P* ELSE DLS TO BE LOGGED y P XIF y * PPLCLOG EQU * y 6 P IFF UTTEST=0 y J 2 PLOGPTR DATA LOGARE RECORD POINTER IN LOG AREA y ` PLOGARE RES 960 LOG AREA y PLOGEND EQU * y ( P DATA 'ENDLOG' MARK END OF LOG AREA y 2 P*-----------------
0x4a3250…4a33e4 Dummy {f00=0x0178, f01=0x018e, f02=» STR A3,A15 y P XIF z P IFF UTTEST=0 z P IFF CPU852=1 z 6 P MSR 3,A15 PUSH A1-A3 z L P XIF z j P IFF UTTEST=0 z v P LDKL A1,'CO' MSG TYPE z P LDK A2,CWTCCA CCA OFFSET z P RF LOG:10 z P z " PLOGIOC EQU * SUBROUTINE ENTRY z
0x4a33e4…4a3578 Dummy {f00=0x0178, f01=0x018e, f02=» z P MSR 3,A15 PUSH A1-A3 { P XIF { & P IFF UTTEST=0 { 2 P LDKL A1,'RE' MSG TYPE { H P LDK A2,CWTRCA RCA OFFSET { f P RF LOG:10 { P { " PLOGATT EQU * SUBROUTINE ENTRY { P IFT CPU852=1 { P STR A1,A15 { P STR A2,A15 { P S
0x4a3578…4a370c Dummy {f00=0x0178, f01=0x0190, f02=» P LDKL A1,'AT' MSG TYPE | P LDK A2,CWTRCA RCA OFFSET | " 0 P*------------------------------------------ | D PLOG:10 EQU * COMMON PART | x P LD A3,LOGPTR | P STR A1,A3 LOG MSG TYPE | P ADR A2,A5 CCR PTR | P LD A1,DLSSEL SELECTED DLS |
0x4a370c…4a38a0 Dummy {f00=0x0178, f01=0x018e, f02=» INDEX | | " P ST A1,2,A3 +COMMAND INTO LOG } P LD A1,CCRSTA,A2 STATUS-1 } 4 P ST A1,4,A3 LOG STATUS-1 } V " P LD A1,CCRLEN,A2 BUFFER LENGTH } v P SC A1,6,A3 INTO LOG } $ P LD A2,CCRBUF,A2 BUFFER ADDRESS } P LDR* A1,A2 BYTE 0-1 } P SC A1,8,A3
0x4a38a0…4a3a34 (11, 66) Dummy {f00=0x0178, f01=0x018e, f02=» } P SRL A1,8 ~ P SC A1,9,A3 ~ P LD A1,4,A2 BYTE 2-3 ~ . P SC A1,12,A3 ~ J P SRL A1,8 ~ ^ P SC A1,11,A3 ~ p P LD A1,6,A2 BYTE 4-5 ~ P SC A1,14,A3 ~ P SRL A1,8 ~ P SC A1,13,A3 ~ P LD A1,8,A2 ~ P SRL A1,8 ~ P SC A1,1
0x4a3a34…4a3bc8 Dummy {f00=0x0178, f01=0x4164, f02=» ~ | P LDKL A1,LOGARE RESET PTR P ST A1,LOGPTR * PLOG:20 EQU * @ P IFT CPU852=1 T P LDR* A3,A15 RESTORE j P LDR* A2,A15 P LDR* A1,A15 P ADKL A15,4 P ABR* A15 RETURN P XIF P IFF UTTEST=0 P IFF CPU852=
0x4a3bc8…4a3d5c Dummy {f00=0x0178, f01=0x2008, f02=» n PDRRET2 EQU * 0 & ! ADK A5,4 ADJUST STACK FOR RETURN 0 " LDR A1,A1 SET RETURN CODE 0 L INH 0 n ABR* A5 RETURN 0 z * 0 * 0 P* 0 PIHPL01 EQU * 0 PIHPL02 EQU * 0 PIHPL03 EQU * 0 PIHPL04 EQU * 0 P* 0
0x4a3d5c…4a3ef0 Dummy {f00=0x0178, f01=0x0190, f02=» ` P* DEVICE CONNECTED TO A PLC. P* , P* CALL: 6 P* CF A15,GETDWT F P* ^ P* INPUT: h P* A5 = CWT ADDRESS x P* A6 = DLS INDEX P* A7 = DEVICE ADDRESS P* P* OUTPUT: " P* A6 = DWT ADDRESS IF FOUND,
0x4a3ef0…4a4084 Dummy {f00=0x0178, f01=0x0190, f02=»**************** d P* PGETDWT EQU * " P INH 6 P STR A1,A15 PUSH A1 B ( P LD* A1,CWTINT,A5 WORK STATION TABLE ^ $ P CF A15,NDGEDW A6 := DWT ADDRESS P LDR* A1,A15 POP A1 ( P ADKL A15,4 ADJUST STACK FOR RETURN , P ANKL A6,/FFFE
0x4a4084…4a4218 Dummy {f00=0x0178, f01=0x0190, f02=»**************** d P* P* ROUTINE NAME: " P* GETCWT : P* J P* FUNCTION: T 2 P* THIS ROUTINE CALCULATES THE CWT ADDRESS FOR h * P* THE PLC CONTROLLING CALLING DEVICE. P* P* CALL: P* CF A15,GETCWT P* P
0x4a4218…4a43ac Dummy {f00=0x0178, f01=0x0190, f02=»CHANGED P* @ P************************************************************ P* ^ P* h PGETCWT EQU * r ( P LD A5,DWTCHP,A6 CHANNEL PARAMETERS , P ANK A5,MASKPL CLEAN CHANNEL UNIT INDEX P SLL A5,1 MAKE INDEX P IFF PLCNR
0x4a43ac…4a4540 Dummy {f00=0x0178, f01=0x0190, f02=»Z) GET010 NO & P ADK A5,8 ADJUST INDEX FOR REMOTE P XIF > , PGET010 LD A5,TABCWT,A5 A5 := CWT ADDRESS J P* z P IFT CPU852=1 P ADKL A15,2 SKIP PSW P LDR* P,A15 RETURN P XIF P IFF CPU852=1 P RTN A15 P XIF