|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metricsIndex: / A B C D E F L M O P R S T X p ½
Length: 5184128 (0x4f1a80)
Description: Bits:30009699 Philips computer tape "600507"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| SAG | «none» |
| SAG//OBJCT.OB | ⟦6679132c5⟧ pts_type |
| SAG/ASM.LM | ⟦9b75a9601⟧ pts_type |
| SAG/CCI.LM | ⟦a3f506c79⟧ pts_type |
| SAG/CSEG1.LM | ⟦3ee5d13e8⟧ pts_type |
| SAG/CSEG2.LM | ⟦05b67c1a0⟧ pts_type |
| SAG/CSEG3.LM | ⟦f35aae4d3⟧ pts_type |
| SAG/CSEG4.LM | ⟦06be61e35⟧ pts_type |
| SAG/CSEG5.LM | ⟦a44d62c56⟧ pts_type |
| SAG/CSEG7.LM | ⟦226ec5670⟧ pts_type |
| SAG/CSEG8.LM | ⟦77d6ab6f3⟧ pts_type |
| SAG/CSEG9.LM | ⟦4ba546904⟧ pts_type |
| SAG/CSEGA.LM | ⟦8f8becaa2⟧ pts_type |
| SAG/CSEGB.LM | ⟦f7c78dfdc⟧ pts_type |
| SAG/CSEGC.LM | ⟦0593961db⟧ pts_type |
| SAG/CSEGD.LM | ⟦0327e3157⟧ pts_type |
| SAG/CSEGE.LM | ⟦7d4b11085⟧ pts_type |
| SAG/FLXCON.UF | ⟦fcade2d10⟧ pts_type |
| SAG/FLXMO2.LM | ⟦27df98bb6⟧ pts_type |
| SAG/LED.LM | ⟦6e968930f⟧ pts_type |
| SAG/LKE.LM | ⟦bad337d59⟧ pts_type |
| SAG/M:PROC.UF | ⟦d384c87ad⟧ pts_type |
| SAG/OBDIR.UF | ⟦fed833609⟧ pts_type |
| SAG/PCAS.LM | ⟦8cc8767fb⟧ pts_type |
| SAG/PDISC.LM | ⟦7fe65a18b⟧ pts_type |
| SAG/PMPTS.LM | ⟦543f9bb3d⟧ pts_type |
| SAG/RUM.LM | ⟦d166260c0⟧ pts_type |
| SAG/SUM.LM | ⟦c4fc249b5⟧ pts_type |
| SAG/SUP.LM | ⟦75ad83d92⟧ pts_type |
| SAG/SUP001.LM | ⟦4697c5a0b⟧ pts_type |
| SAG/SUP002.LM | ⟦a14fcfb9b⟧ pts_type |
| SAG/SUP003.LM | ⟦4d4d71b5d⟧ pts_type |
| SAG/SUP004.LM | ⟦d7b69a2c7⟧ pts_type |
| SAG/SUP005.LM | ⟦ba239bde2⟧ pts_type |
| SAG/SUP006.LM | ⟦3a813474e⟧ pts_type |
| SAG/SYSGEN.LM | ⟦8a14eaa5f⟧ pts_type |
| SAG/TLK.LM | ⟦43f81c044⟧ pts_type |
| SAG/TOSSUT.LM | ⟦e11ddcaf8⟧ pts_type |
| SAG/TRA.LM | ⟦f803befb8⟧ pts_type |
| TOSSWORK | «none» |
| TOSSWORK//OBJCT.OB | ⟦e343667d9⟧ pts_type |
| TOSSWORK/ADMTSK.SC | ⟦1e56a7e8b⟧ pts_type |
| TOSSWORK/ARITMS.SC | ⟦3a6145dc5⟧ pts_type |
| TOSSWORK/ASMUP.UF | ⟦3ae8619a8⟧ pts_type |
| TOSSWORK/BOS.UF | ⟦211b46bad⟧ pts_type |
| TOSSWORK/CTABC0.SC | ⟦93454373d⟧ pts_type |
| TOSSWORK/DCADDR.SC | ⟦fc3204cfa⟧ pts_type |
| TOSSWORK/DCSTAT.SC | ⟦97cc1546a⟧ pts_type |
| TOSSWORK/DFTAB.SC | ⟦061f8b7a2⟧ pts_type |
| TOSSWORK/DRAS01.SC | ⟦4cae37efa⟧ pts_type |
| TOSSWORK/DRCD01.SC | ⟦179abc1a4⟧ pts_type |
| TOSSWORK/DRCD02.SC | ⟦440fc80f7⟧ pts_type |
| TOSSWORK/DRCR01.SC | ⟦728675a6f⟧ pts_type |
| TOSSWORK/DRDC07.SC | ⟦891a05526⟧ pts_type |
| TOSSWORK/DRDC13.SC | ⟦18ba98770⟧ pts_type |
| TOSSWORK/DRDC15.SC | ⟦adac23f11⟧ pts_type |
| TOSSWORK/DRDC17.SC | ⟦dbdd6f317⟧ pts_type |
| TOSSWORK/DRDC22.SC | ⟦6b3761c5d⟧ pts_type |
| TOSSWORK/DRDC23.SC | ⟦09a6a893c⟧ pts_type |
| TOSSWORK/DRDC25.SC | ⟦8080caca5⟧ pts_type |
| TOSSWORK/DRDC81.SC | ⟦a1f2cb219⟧ pts_type |
| TOSSWORK/DRDC82.SC | ⟦29269e709⟧ pts_type |
| TOSSWORK/DRDI01.SC | ⟦e9b776fca⟧ pts_type |
| TOSSWORK/DRDN01.SC | ⟦ae95222c7⟧ pts_type |
| TOSSWORK/DRDU01.SC | ⟦7c7fb576d⟧ pts_type |
| TOSSWORK/DRDY01.SC | ⟦83716e0a9⟧ pts_type |
| TOSSWORK/DRDY02.SC | ⟦44c1f8903⟧ pts_type |
| TOSSWORK/DRFD01.SC | ⟦eda4fd6a0⟧ pts_type |
| TOSSWORK/DRFD02.SC | ⟦bc32f1fde⟧ pts_type |
| TOSSWORK/DRGP01.SC | ⟦c06502c86⟧ pts_type |
| TOSSWORK/DRGP02.SC | ⟦7d12d6531⟧ pts_type |
| TOSSWORK/DRGP03.SC | ⟦e072854d0⟧ pts_type |
| TOSSWORK/DRGP04.SC | ⟦34ec0e6b1⟧ pts_type |
| TOSSWORK/DRIC01.SC | ⟦fc1624bb9⟧ pts_type |
| TOSSWORK/DRKB04.SC | ⟦330f7c3e1⟧ pts_type |
| TOSSWORK/DRLP01.SC | ⟦298fe428f⟧ pts_type |
| TOSSWORK/DRMD01.SC | ⟦250a46a8e⟧ pts_type |
| TOSSWORK/DRMS02.SC | ⟦3ab03c604⟧ pts_type |
| TOSSWORK/DRMT01.SC | ⟦2aac48b4a⟧ pts_type |
| TOSSWORK/DRND01.SC | ⟦65f9960f4⟧ pts_type |
| TOSSWORK/DROD01.SC | ⟦af80ffa9f⟧ pts_type |
| TOSSWORK/DRPL01.SC | ⟦22194e2f6⟧ pts_type |
| TOSSWORK/DRSL01.SC | ⟦97341d2b3⟧ pts_type |
| TOSSWORK/DRSOP1.SC | ⟦cce684cfb⟧ pts_type |
| TOSSWORK/DRSU01.SC | ⟦07b465419⟧ pts_type |
| TOSSWORK/DRTC01.SC | ⟦6eafad5de⟧ pts_type |
| TOSSWORK/DRTN01.SC | ⟦84c52811d⟧ pts_type |
| TOSSWORK/DRTP02.SC | ⟦d54d1135c⟧ pts_type |
| TOSSWORK/DRTP03.SC | ⟦91bb41998⟧ pts_type |
| TOSSWORK/DRTP04.SC | ⟦2566ed914⟧ pts_type |
| TOSSWORK/DRTW01.SC | ⟦6dfc6c4b1⟧ pts_type |
| TOSSWORK/DRVU01.SC | ⟦9fd819d7c⟧ pts_type |
| TOSSWORK/DSKSUB.SC | ⟦286488424⟧ pts_type |
| TOSSWORK/DTTP03.SC | ⟦5e34aae04⟧ pts_type |
| TOSSWORK/DVTDI.SC | ⟦5ef172779⟧ pts_type |
| TOSSWORK/DVTDN.SC | ⟦70e6ddc18⟧ pts_type |
| TOSSWORK/DVTDY.SC | ⟦c73e6c9c4⟧ pts_type |
| TOSSWORK/DVTG1.SC | ⟦b3aaa9d75⟧ pts_type |
| TOSSWORK/DVTG2.SC | ⟦fdce1b646⟧ pts_type |
| TOSSWORK/DVTG3.SC | ⟦db7be8ca7⟧ pts_type |
| TOSSWORK/DVTGP.SC | ⟦9e0f46cc8⟧ pts_type |
| TOSSWORK/DVTKB.SC | ⟦93055781c⟧ pts_type |
| TOSSWORK/DVTMS.SC | ⟦922d03ac2⟧ pts_type |
| TOSSWORK/DVTOD.SC | ⟦f07ad78d5⟧ pts_type |
| TOSSWORK/DVTT1.SC | ⟦09d068d88⟧ pts_type |
| TOSSWORK/DVTT2.SC | ⟦a648d0531⟧ pts_type |
| TOSSWORK/DVTTN.SC | ⟦576e2abb7⟧ pts_type |
| TOSSWORK/DVTTP.SC | ⟦5dcd0d156⟧ pts_type |
| TOSSWORK/DVTVU.SC | ⟦67d639ea8⟧ pts_type |
| TOSSWORK/DW0701.SC | ⟦bac97c4ff⟧ pts_type |
| TOSSWORK/DW1301.SC | ⟦70bac5b44⟧ pts_type |
| TOSSWORK/DW1501.SC | ⟦00bd04b2e⟧ pts_type |
| TOSSWORK/DW2201.SC | ⟦32bdd1f8c⟧ pts_type |
| TOSSWORK/DW2301.SC | ⟦25d381527⟧ pts_type |
| TOSSWORK/DWII01.SC | ⟦fd04b397a⟧ pts_type |
| TOSSWORK/DWIO01.SC | ⟦48ec90388⟧ pts_type |
| TOSSWORK/DWL301.SC | ⟦26e0308ca⟧ pts_type |
| TOSSWORK/EBCDIC.SC | ⟦996b6795f⟧ pts_type |
| TOSSWORK/FMCDEF.SC | ⟦8e0630664⟧ pts_type |
| TOSSWORK/FMTASK.SC | ⟦6968936c9⟧ pts_type |
| TOSSWORK/LDTASK.SC | ⟦264365da4⟧ pts_type |
| TOSSWORK/LKMAL.SC | ⟦94b0d24f4⟧ pts_type |
| TOSSWORK/LRPINT.SC | ⟦e1c890d9a⟧ pts_type |
| TOSSWORK/M:PROC.UF | ⟦f50d2d629⟧ pts_type |
| TOSSWORK/MONTAB.SC | ⟦c4631f5af⟧ pts_type |
| TOSSWORK/MONTIM.SC | ⟦0bbd6949a⟧ pts_type |
| TOSSWORK/MSUBS.SC | ⟦b9e3170e1⟧ pts_type |
| TOSSWORK/PFTAB.SC | ⟦255f7c80b⟧ pts_type |
| TOSSWORK/REFORM.UF | ⟦e87b51068⟧ pts_type |
| TOSSWORK/RELUP.UF | ⟦60b765af0⟧ pts_type |
| TOSSWORK/SCLASS.SC | ⟦535452465⟧ pts_type |
| TOSSWORK/SDMBUF.SC | ⟦5b1a0e528⟧ pts_type |
| TOSSWORK/SDMOCR.SC | ⟦923355c5d⟧ pts_type |
| TOSSWORK/SDMSUB.SC | ⟦31441c9f1⟧ pts_type |
| TOSSWORK/SDMTSK.SC | ⟦7427caccd⟧ pts_type |
| TOSSWORK/SOURCE.UF | ⟦8353f856c⟧ pts_type |
| TOSSWORK/ST8000.SC | ⟦f500c9bd7⟧ pts_type |
| TOSSWORK/SYSINI.SC | ⟦f966a6db7⟧ pts_type |
| TOSSWORK/SYSLBA.SC | ⟦c2e930b89⟧ pts_type |
| TOSSWORK/SYSLCO.SC | ⟦5bcf644b6⟧ pts_type |
| TOSSWORK/SYSLCR.SC | ⟦737997411⟧ pts_type |
| TOSSWORK/SYSLDM.SC | ⟦1d4e9c614⟧ pts_type |
| TOSSWORK/SYSLOD.SC | ⟦9590624ff⟧ pts_type |
| TOSSWORK/SYSTAB.SC | ⟦1d05a7b94⟧ pts_type |
| TOSSWORK/TABORT.SC | ⟦4b2b8d1eb⟧ pts_type |
| TOSSWORK/TCLASS.SC | ⟦78ae615a5⟧ pts_type |
| TOSSWORK/TDISP.SC | ⟦100bf11eb⟧ pts_type |
| TOSSWORK/TIMER.SC | ⟦845402dca⟧ pts_type |
| TOSSWORK/TIOADM.SC | ⟦325ecefee⟧ pts_type |
| TOSSWORK/TIODM.SC | ⟦cd6e801b2⟧ pts_type |
| TOSSWORK/TIOEDM.SC | ⟦1f696ee15⟧ pts_type |
| TOSSWORK/TIOFM.SC | ⟦7879b609c⟧ pts_type |
| TOSSWORK/TIOSDM.SC | ⟦c93eeef66⟧ pts_type |
| TOSSWORK/TLDPGM.SC | ⟦c3c380a9f⟧ pts_type |
| TOSSWORK/TLDSEG.SC | ⟦247c9a76f⟧ pts_type |
| TOSSWORK/TMMLKM.SC | ⟦0fedd9ac0⟧ pts_type |
| TOSSWORK/TMOVE.SC | ⟦867403395⟧ pts_type |
| TOSSWORK/TOSSIO.SC | ⟦5bb0b3fde⟧ pts_type |
| TOSSWORK/TPAGAL.SC | ⟦9503ec18b⟧ pts_type |
| TOSSWORK/TPROC.SC | ⟦7d042a75f⟧ pts_type |
| TOSSWORK/TSWBLK.SC | ⟦355518da4⟧ pts_type |
| TOSSWORK/TTMJOB.SC | ⟦504bddae8⟧ pts_type |
| TOSSWORK/X25:L3.SC | ⟦340bb9b70⟧ 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 DirEnt {nam=»SUP «, typ=»LM«, f00=0x019a, f01=0x0196, f02=0x0010, f03=0x0008}
0x000000…000ca0 DirEnt {nam=»CCI «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG1 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG2 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG3 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00a8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG4 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00b8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG5 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00c0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LED «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00e0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG7 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG8 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0100, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG9 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0110, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGA «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0118, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0120, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGC «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0130, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGD «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0138, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGE «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0140, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TLK «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0168, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TRA «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01d0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TOSSUT«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0240, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x02a0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x02b0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LKE «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x02b8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»ASM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x02d8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0300, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUP002«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0310, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0360, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»RUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0370, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»PMPTS «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0388, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUP005«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x03c8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»PCAS «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0418, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUP001«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0428, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SYSGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x31d8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUP003«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0510, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»PDISC «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0550, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUP004«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0598, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUP006«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x05e8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»FLXMO2«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0628, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»FLXCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0648, f03=0x0000}
0x000000…000ca0 }
0x000ca0…000e34 (0, 1) Opaque[0x194]
0x000e34…000fc8 # DirEnt {nam=»SUP «, typ=»LM«, f00=0x019a, f01=0x0196, f02=0x0010, f03=0x0008}
0x000e34…000fc8 IdxSect {
0x000e34…000fc8 f00 = 0x0000 // 0xe34 @0x0
0x000e34…000fc8 f01 = 0x0018 // 0xe36 @0x2
0x000e34…000fc8 gno = [ // 0xe38 @0x4
0x000e34…000fc8 [0x00]: C0x0000.0x2.0
0x000e34…000fc8 [0x01]: C0x0000.0x3.0
0x000e34…000fc8 [0x02]: C0x0001.0x0.0
0x000e34…000fc8 [0x03]: C0x0001.0x1.0
0x000e34…000fc8 [0x04]: C0x0001.0x2.0
0x000e34…000fc8 [0x05]: C0x0001.0x3.0
0x000e34…000fc8 [0x06]: C0x0002.0x0.0
0x000e34…000fc8 [0x07]: C0x0002.0x1.0
0x000e34…000fc8 [0x08]: C0x0002.0x2.0
0x000e34…000fc8 [0x09]: C0x0002.0x3.0
0x000e34…000fc8 [0x0a]: C0x0003.0x0.0
0x000e34…000fc8 [0x0b]: C0x0003.0x1.0
0x000e34…000fc8 ]
0x000e34…000fc8 }
0x000fc8…00115c Dummy {f00=0x0000, f01=0x0190, f02=»h Ln # # #$ A~ X - _ H*f* + + ,0-T
0x00115c…0012f0 Dummy {f00=0x0000, f01=0x0190, f02=»
0x0012f0…001484 Dummy {f00=0x0000, f01=0x0190, f02=» h ( "D r !f9 : G p O $ $ %Z&>F F % 9 K DMC>MCGVHDB(WMC RYD*RDD*ASEDABF PSF RSG0 & TY J- LP / TK Kv
0x001484…001618 Dummy {f00=0x0000, f01=0x0190, f02=» $ DK W DK 8 W P DK W DK ( W DK _d ^ DK _d 8DK ) _d
0x001618…0017ac Dummy {f00=0x0000, f01=0x0190, f02=» ? ? ? ? ? ? ? N & ? ? ? ? ? ? ? f" ? ? ? ? ? ? ? L 2b
0x0017ac…001940 Dummy {f00=0x0000, f01=0x0190, f02=» f l Z f Z f D Z
0x001940…001ad4 (0, 2) Dummy {f00=0x0000, f01=0x0190, f02=» Z V f R . Z | f ? ? ? ? ? ? ? ^@ ? ? ? ? ? ? ?
0x001ad4…001c68 Dummy {f00=0x0000, f01=0x0190, f02=» ? ? ? c ? ? ? ? ? ? ? l c j & L r 0 V |
0x001c68…001dfc Dummy {f00=0x0000, f01=0x0190, f02=» 6 6 6 6 6
0x001dfc…001f90 Dummy {f00=0x0000, f01=0x0190, f02=» 6 6
0x001f90…002124 Dummy {f00=0x0000, f01=0x0190, f02=» :
0x002124…0022b8 Dummy {f00=0x0000, f01=0x0190, f02=»
[…0x2…]
0x0025e0…002774 (0, 3) Dummy {f00=0x0001, f01=0x0190, f02=»
[…0x1…]
0x002908…002a9c Dummy {f00=0x0001, f01=0x0190, f02=» P
0x002a9c…002c30 Dummy {f00=0x0001, f01=0x0190, f02=»
[…0x1…]
0x002dc4…002f58 Dummy {f00=0x0001, f01=0x0190, f02=» *
0x002f58…0030ec Dummy {f00=0x0001, f01=0x0190, f02=»
[…0x2…]
0x003414…0035a8 Dummy {f00=0x0001, f01=0x0190, f02=» @
0x0035a8…00373c Dummy {f00=0x0001, f01=0x0190, f02=» A A R$ A A R A A R A @#" > > > > > > > > ? ? ? ? ? ? ? U ^ ( H ( P F6 _ Q 4&? ?R _ 5 H _ ^ ;j >P @ * Q 9A D *P _ P A ( @ Q A ' A"T ( A A)F_ @ A
0x00373c…0038d0 Dummy {f00=0x0001, f01=0x0190, f02=» @ ? ? > "D P P Q P ! P @ $ H @ P W ( < Jn @ 9a:a R0 "Z Q Q" ?A <P @"N %J & _ ( _ _ 0 % Jn T @ W @ R (P& P (_ =a:a =A:A Z P Z _" TR @
0x0038d0…003a64 Dummy {f00=0x0001, f01=0x0190, f02=» @% L F6 0 Jn @ PR 0=a @ ?a RX @ ?a VN=A 0 ( P>P< , T T 1W 1W T )W )W ( , _ C ( _ 5 H A& A& A& A& A& A& A' A& ' ( D >a @ =a (@ D U@ x ',W U, @
0x003a64…003bf8 Dummy {f00=0x0001, f01=0x0190, f02=» B :a Y B R A& _ @& ' W4 @& A& ,Xp _ < @ A' A( A( A( A( A( A( ( =a @ >a V _ @ >a Y A' A' 4 T ' ( "^ 5 U P" @' @( @( @( @( @( @( ( @' x @& 8
0x003bf8…003d8c Dummy {f00=0x0001, f01=0x0190, f02=» @ !@ *V @ P @ X0 , *V A _< U` A)F @ , L ? ? , L L L L L L ? ? ? ? ? ? ? @" Px @ > > > > > > > ; [ [ [ [ [ [ > > [ [ A @" H" " ? A" >
0x003d8c…003f20 Dummy {f00=0x0001, f01=0x0190, f02=»? V :!9 V @ P R W ;A [ [ : _4 Pj T Pf V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [ : V X"Z(_( L _P S
0x003f20…0040b4 (0, 5) Dummy {f00=0x0001, f01=0x0190, f02=»R _ ;A [ [ : # P| ' PL , ; R <a V 9A:A ; V ; V V W V < V < V H T P R ;H [ [ : _ T P ; R4 < S , _ _ W < R $ <A Q" T" U" :$ _ < Z& - W _ < <A9 R :a
0x0040b4…004248 Dummy {f00=0x0001, f01=0x0190, f02=» R Q ;H [ [ : " _J ? ? ? ? ? ? ? Q _ ^ ( H R - W . W / X I I R P8 X O P O T Y Y W x Y Y $ 0T W W 6 X ? ? ? ? ? ? ? .^ 7 X #? P ? ? ? ? ? ? ? . 7 6 (@ 7P %
0x004248…0043dc Dummy {f00=0x0001, f01=0x0190, f02=»7 (@_~ 52X R Y _ X D $! TR ? ? ? ? ? ? ? /F 7 8 M ? ? ? ? ? ? ? /l 7 % > > > > > > > > ? ? ? ? ? ? ? / 7 P X 7^ 7v / 4 8 TRT X 5P 4 $ <A 52 Pl 52 X X X M M
0x0043dc…004570 Dummy {f00=0x0001, f01=0x0190, f02=»_ X X X U 5 X E _ X 4 Y 5 X 4 Y ! 1P, 0P +P Q Q W W Q Q R P Q 5 Y / ? ? ? ? ? ? ? 1 7 Qv 1& 4 " PF X Q< X P P ? ? ? ? ? ? ? 1X 7 (@ Y Cp X X X R
0x004570…004704 Dummy {f00=0x0001, f01=0x0190, f02=»1 7 > > > > > > > > 52R X X Q Y ( O` ? ? ? ? ? ? ? 2D 7 ? ? ? ? ? ? ? 2 7 (@ 7P ? ? ? ? ? ? ? 2z 7 2 4 X M X ! 40" P2 O` X ? ? ? ? ? ? ? 2 7 (@ Cp X 4Q W 9AY T Q P
0x004704…004898 Dummy {f00=0x0001, f01=0x0190, f02=» Qz 9AY Tn9ATj @3 D4 @3 $W 1 Y $ D ! P 2 Y 0 P :ET OFP OST Y Y X 5Z X M _d3 4 4 ABCDEFGHI JKLMNOPQR /STUVWXYZ 4 4$4*[.<(+^!$*);] ,%_>?" P X 2 ' Q X 4 X X R ( 5
0x004898…004a2c Dummy {f00=0x0001, f01=0x0190, f02=» A , DKP L X X L ! X L P L @ _ C C # ( _R _ _ _ _ _ X T 5b 4 X ! TH X X X T" $ :ET D OFT W OST X P % Y X R X 4 ! X Y T T Y Y
0x004a2c…004bc0 Dummy {f00=0x0001, f01=0x0190, f02=» X R 8 TYX WH H6 Y _8 X X: X R X ( _$ _* $ XtRX P Y _ A6 X X Y X Y _ $ P4R P6 X Q Y Y <dW Y W $ P R , _ X X*Y$ X X X6 Y Z(P A6 ZrP Y _8 _< _@ ! 4 $ X
0x004bc0…004d54 (0, 6) Dummy {f00=0x0001, f01=0x0190, f02=» > > > > > 7 V <a W X ' ?A q A82 > > > > > > > 80 , 0W 0T _ l P$ X X ] X * A8aJ " * - X ( 7P = V X X Cp X 4 L ! L % T< L P4 M ^ L X 4 _ ? ? ? ?
0x004d54…004ee8 Dummy {f00=0x0001, f01=0x0190, f02=»9J: 9l9l: : 9~9~9~9~: 9b9t < W* = W" < W ?: L :AR| M W M M 4 L T M M L PH=GV L L 4 9 M 2 ;6 M L 9G L 4 L M L M M L 4 : W M " A< L P L 9JR@ P P T A, 5 U P T Q P P
0x004ee8…00507c Dummy {f00=0x0001, f01=0x0190, f02=» L ' 7P P p Y "(@ P P $ M : P ( M P Q P P P W P T Q (@ L " A<(@ H H T A, E $ I 4P _ 5 % E (@ L 2 ( P _ 4 ) % ] M (@ L 2 A$ T!fR Q @!f] A,>
0x00507c…005210 Dummy {f00=0x0001, f01=0x0190, f02=» T V P T"W L >F A$ L & A$ < M 4 ; M L M L " P M < : M L M A< L ! PT L M L M L & P L E E M < : M M L L % T D V L ! P L ! XfWn L M L M M =0 : L :c:A L D
0x005210…0053a4 Dummy {f00=0x0001, f01=0x0190, f02=» D Q = M 2 < L L $:BV W $:AV M " M A L L $ M 0 D L U M " V L R L M ( M * M , L X L U M W > M 2 < L D L L 0U L 0 L (U L ( L L R $ 9 _ R $ 9 M , L M M
0x0053a4…005538 Dummy {f00=0x0001, f01=0x0190, f02=» L L , U A< L A$ L U ?X M 2 < L M $ L M & L L I P0% P L X =h P W P L X T M . L 9 M L A$ L L . Q L L L R 0 % _ M M L . P M . ? M 2 < L U @, M 2 < L
0x005538…0056cc Dummy {f00=0x0001, f01=0x0190, f02=»P0W" M L A$ @ M ( L U @ M 2 < L L ( E L % E L E L E M A M 2 < L P$ A< M 2 ;r M "W F6 = JnW ( L 4 5 L L " C m M ^ U L ( L L ? ? ? ? ? ? ? M.A A H 4 R W 7
0x0056cc…005860 Dummy {f00=0x0001, f01=0x0190, f02=» H d _ AB2 B AH 5 T6 @H P H BF BJ BN BR BV @H AH AB2 ( 5 4 X _8 B W M: B ( "^ B. B L 0 MESSAGE UNKNOWN B H Q L L L R 0 % _ M M L . P M . ? M 2 < L U 5 B J"
0x005860…0059f4 (0, 7) Dummy {f00=0x0002, f01=0x0190, f02=» 1 C D W8 C D X W* 8 AD T AD$ D (@( 4 4 : 0 :R - Y 0 PU,DNXX,STAT,RY D 5 J" ? B C 1P D Y _ @B RDP A P 8 FL B X X ! R V Y AD 8 TKP
0x0059f4…005b88 Dummy {f00=0x0002, f01=0x0190, f02=» Q 1 B0 4 X X ? ? ? ? ? ? ? EB 7 _ 5 J" B @ Q P P T Z B W P B $>H $ NOT W0 J" @ ! $ T P Y B C C R ] B. . P M E M 2 0AB CD ADDR @ 9a:a;a
0x005b88…005d1c Dummy {f00=0x0002, f01=0x0190, f02=» = Jn 0 9U AE E h E ( "^ F = Jn @ A @ !? $> A"T H _* 5 @H B @ A B. 0 Jn AG& AG( G$ ( "^ @ A ( C 5 @ 4 B P J" _ 5 B. 5 J" AG J" R: P J" R( G ( "^
0x005d1c…005eb0 Dummy {f00=0x0002, f01=0x0190, f02=» h 9 , PP , X QD h H Y , h H Z H @H P : Hj ` : B I h _* AHV HR ( "^ : ; ;<A ' R `R Q QB _ QB <a : : : - A ~(@ A" AH A A A A AH AH AH a I
0x005eb0…006044 Dummy {f00=0x0002, f01=0x0190, f02=» Qh Q P( @ @ @ @ Y Y Y Y " A "; V W # @ A AH @ ? ? > Q @ ? ? ? ? ? ? ? J F6 @ P <a:a B :A : P6 $ R, Z R R Q $ :D P $ R ^& : B P R( AJ AJ^ A
0x006044…0061d8 Dummy {f00=0x0002, f01=0x0190, f02=» @Jh Jj ? ? ? ? ? ? ? Jl ( < Jn B @ 9a:a R @ @K @"N %J '~ %J :EOS:EOV AHV HR "$&1368 AKN KP!? QKfP ^ 52 AL X AO X AO Q R x % =A Y X Y4 Z8 AKF $ $ T D i Kd !N X "
0x0061d8…00636c Dummy {f00=0x0002, f01=0x0190, f02=» W !N " P P !N _ !N4 Md M L 4 P Pj P P P @O Y M D P X &Q Y W Y 4 X $;H D :ET $;H D OSP OVT W W !L X ! P X 1P W @ X U W W W !L X ! . @Wp !L X ! Tb AW^ X
0x00636c…006500 Dummy {f00=0x0002, f01=0x0190, f02=» AKF Y , $ T D q 84 !N !N> L KR Y Y AO AO LJ !N !N> L W W ANX X 9c T DKJ EKJ 4 X B X :c HKJ % M !N _N !N !N8_X !N _^ !N Y " !N>_p KV_ X # ;dC Y AKH AKD 7P AO _ _ _( _, _0
0x006500…006694 (0, 8) Dummy {f00=0x0002, f01=0x0190, f02=» C "! PX @ Q P VF_ P RN;AR P P4 0 P P C C C LPT P P C # ( C _: DL P H C _ P X( DD _Z :EOS :EOF 52 5J 5 @ !? ?R _ P 4 ' !? 0X A "! X6 @ Q P ^L_ P XP P R :AV L D
0x006694…006828 Dummy {f00=0x0002, f01=0x0190, f02=» M # C C @ _ "ZN(@(@ ^ :j >Z _ m (@ M M 8 DKT X X T X M W M W y Y Y Y # C B 58 B 58 $? R P R O P R R O P P| P Pv P $P &PN "P<
0x006828…0069bc Dummy {f00=0x0002, f01=0x0190, f02=» DYPj X T Y $ WZ R WX $ # T $ T Y B W0 %@ R b " Y Y Y Y Y $ X _0 8 TCX< TKXB MTXH DYXN ^ @ T <j =h QU P. ^ %x 8P F6 X % !X %`X P % X. R" X>W % P T %
0x0069bc…006b50 Dummy {f00=0x0002, f01=0x0190, f02=» @U E E E E E E U > > aU @U E @U @U @U @U @U @U @U U Q (@ T W@ &_T@ H P P T ?f' W " H Wx " Wn & P >b& >AW >a& @T " X X T$W.
0x006b50…006ce4 Dummy {f00=0x0002, f01=0x0190, f02=»V: T" T" T" T" T" T" " " " " " " " T" >" HU AU T" T" T" T" T" T" " " " " " " " T" AU > ?f' _ 8 @ T <j =h 8P F6 X % !X %`X P % X. R X>W % P T %
0x006ce4…006e78 Dummy {f00=0x0002, f01=0x0190, f02=» @ E E E E E E > > a @ E @ @ @ @ @ @ @ Q (@ T W &_T H P P T ?f' W " H W " W & P >b& W X M M Y X Y Y B Y ! Y
0x006e78…00700c Dummy {f00=0x0002, f01=0x0190, f02=»W !Yl L x P !Y M Q W ! P M L ZZ Y$ B Y Xh AW| 8 4 B :e L Ph !Y M Q !Y8 B B $ !X !Yl L x P2 x X0 M L Q !YB_@ !Y M Q Y$ 4 ! 9A " ! M 4 P P L P P ! _ 4
0x00700c…0071a0 Dummy {f00=0x0002, f01=0x0190, f02=» M AU L 7P U M Y B AU U Y X P P P P P P8 Xh !^ AU B T B @U ) @U I @U I Xh 4 B AU ! T h AU M !Y8 L @U ! P AU !^ !YFW AWz !^ !YF" P !YB M L ZL M AU V !^ !^ Xh B P2
0x0071a0…007334 (0, 9) Dummy {f00=0x0002, f01=0x0190, f02=»U AU ! R AU W& ! R AU R ! R W ! R AU P AU V ! R ! R _ P* AU AU R Ql ! R Wb ! R ! R WP ! R ! R W> B <e :e Q P AU AU ! R AU Z X Td @U ! P W @U P Q Y @U @U A
0x007334…0074c8 Dummy {f00=0x0002, f01=0x0190, f02=»Yl" T" L @U P<W !Yl" T L @WzP$ M L Q !YB_Z M Q Xh T X $ P@ D R: P @U ! P !] T D $ !^* @U ! T L AWz !]zW !] T D R@ $ !^ @U ! T @U T " T AU W AU T P AU Y T U 4 !] @U ! P !YF
0x0074c8…00765c Dummy {f00=0x0002, f01=0x0190, f02=» L " P $ M 4 @U U ( = Y 4 @U U < ) Y 4 X ! J $ <b! L !? P L ! _ @U L T !Y L 9AV$ !Y M Q A"R @ M Q 4 M Y$ 4 !YB !Y M Q AU M !Yl 4 @V TOTD @V" 1T: B AV*
0x00765c…0077f0 Dummy {f00=0x0002, f01=0x0190, f02=» P P B Y ! P L b X P P P P 52 B 58 @_<P M L 7P A_< _D !b !b !b L ! T L T Y X ! P !c W !c< ! P M L Z& b X T L !b Y Y M _R B Y b _D !b X P P P P P
0x0077f0…007984 Dummy {f00=0x0002, f01=0x0190, f02=» Y Y B Y !ax !b M !c " P M L Z W X Y Y B X > b B T Y !b M M !c< L " :K b b M L R L ! T" B : R <A ^ M 9GW( 4^ 4 R @ M M 9H MR b B X V Y
0x007984…007b18 Dummy {f00=0x0002, f01=0x0190, f02=»T WT L $ T( T W@ ^ 9A D_H D_H W$ ^ R @ M 9A D_H$ M 4 L P M !c P M b 4 B c hR b L :B* WX X :a L ! 9A r X L :B L * W* X :a L ! 9A r X L :B L L !? B
0x007b18…007cac Dummy {f00=0x0002, f01=0x0190, f02=» M b L 4 :EOS:EOV L Z W X Ad d !? Qf P ^ 52 V X 58 58 X Ad~ Ac Ac d @d T Ad !e Pf` !eT e Q Ac P !e _ f !edP Y !e !e Ac X _ (W x ! 9A Y _2 !epY@ 9 R !e !e
0x007cac…007e40 Dummy {f00=0x0002, f01=0x0190, f02=» X r s W4 X @ _ W$ AW @W $W %W W !W W X 9d)` Ad Ac A T 7P 9CV * 9AV 9AV X 1P * 9EV )@ X Q6{ X Y Q& X $ :ET D OSP OVT * W * W Y Ac Y 4 @c J P f4 4 O P @ T ; @d U X @d d 4
0x007e40…007fd4 (0, 10) Dummy {f00=0x0002, f01=0x0190, f02=» Y >% X P Y _" P" P& R| ^T Y _D _T X _ X _ X" X& T: X P4 0' P. 1R P _ 0$ XT % X` Z _f % _n Q4 8 TYP, R Y _$ P Q X Q % _" Y Y Y 4 % X P Y $
0x007fd4…008168 Dummy {f00=0x0002, f01=0x0190, f02=»h, hZ 4 h: hdW2 h4 hr X W$ h@ h~ W hF( X = 0 :R # Y ; ; ? 0 :R 9 Y 9 9 : : : @ P R ! R P L M M Y$ #? @ P R P T T T Y"
0x008168…0082fc Dummy {f00=0x0002, f01=0x0190, f02=»l C ( "^ @m j U T " P " P @m W C "& # ( "^ A p @l @l @l @l <h @l % @l @l l l z [ [ [ [ [ [ [ ^ r [ [ [ [ @ L ! P Y _ @ M ^ U
0x0082fc…008490 Dummy {f00=0x0002, f01=0x0190, f02=»_2 l # C ( "^ P l l l l CCT I T P Q _, Al _V LM l A"X Al l L 9 !? Ak Ak Ak Ak J Ak T, B J (@" T L #( "^ B P @ !? M @m P M L R ! _x PP I H P
0x008490…008624 Dummy {f00=0x0002, f01=0x0190, f02=»0 4 8 < l U T " P " P @ W C "& # ( "^ A p @ @ @ @ <h @ % @ @ z [ [ [ [ [ [ [ ^ r [ [ [ [ @ L ! P Y _ @ M ^ U
0x008624…0087b8 Dummy {f00=0x0002, f01=0x0190, f02=»_2 # C ( "^ P DOS - PTS 6000 REL. 11.0 81-05-01 FOR 6791 (1 MB) FLEXIBLE DISK DRIVE n` P
0x0087b8…00894c Dummy {f00=0x0002, f01=0x0190, f02=» OF DATA 3 | P LDR A2,A7 SAVE END OF DATA 4 P ANK A2,1 4 4 P ORK A2,/F0 HEAD NUMBER 4 F & P SC A2,2,A1 HEAD NUMBER TO BUFFER 4 f P SRL A7,1 4 P CF A5,BINDEC EBCDIC CODE 4 & P STR A3,A1 TRACK NUMBER TO BUFFER 4 & P LD A7,DWTEOD,A4 GET SECTO
0x00894c…008ae0 Dummy {f00=0x0002, f01=0x0190, f02=» 4 l P ECR A3,A3 5 P SC A3,3,A1 5 $ P CF A5,WRIPRE PREPARE FOR WRITE 5 . P CF A5,CIOI00 5 V P RF(NZ) END:UL WRITE ERROR 5 l & P CM DWTEOD,A4 INDICATE NOT OPENED 5 P XIF 5 PEND:UL EQU * 5 & P ORS A1,DWTRC,A6 SAVE RETURN CODE 5 P IFT I
0x008ae0…008c74 (0, 11) Dummy {f00=0x0003, f01=0x0190, f02=»@ M ^ U > > > > > > >W A p ^ T " T ! P W SY SD AD _ ! P _, J _2 # C ( "^ P CCT I T DOS - PTS 6000 REL. 10.0 sb
0x008c74…008e08 Dummy {f00=0x0003, f01=0x0012, f02=» # # 'x(p(x) ) )
0x008e08…008f9c Dummy {f00=0x0003, f01=0x0190, f02=» P IDENT INIMON < P* 781128 - B.VINK - PC1964 - SET BIT SY IN DCTHD $ L P* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * d P* . P* P860 DISK OPERATING SYSTEM P* P* B P*
0x008f9c…009130 Dummy {f00=0x0003, f01=0x0190, f02=»ING TO THE ^ P* 6 P* SYSTEM DISK ADDRESS P* X L P* SCANNING OF SYSTEM DIRECTORY , FIND CCI DISK ADDRESS b P* P* L P* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0x009130…0092c4 Dummy {f00=0x0003, f01=0x0190, f02=» P EXTRN M:LDNX P EXTRN CVTSTB $ P EXTRN CPT D P EXTRN CVTMSZ b P EXTRN CVTBKA P EXTRN PCT61 P EXTRN T:DCT P EXTRN CVTSBA P
0x0092c4…009458 Dummy {f00=0x0003, f01=0x0190, f02=»ST A2,0 n P* P* 8 P* SUPERVISOR COMMUNICATION VECTOR EQUIVALENCE $ P* ` P* j P* t P* ~ P* P* 8 PCVEADR EQU /82 ADDR OF SUPERVISOR CVT P* . PCVEMSZ EQU 0 MEMORY S
0x009458…0095ec Dummy {f00=0x0003, f01=0x0190, f02=»CVESBA+2 BIGGEST BUFFER ADDR ~ 2 PCVEBKA EQU CVEBBA+2 BACKGROUND ADDR ( : PCVEDSP EQU CVEBKA+2 START ADDR OF DISPATCHER ^ 8 PCVEPLS EQU CVEDSP+2 BASIC PULSE FOR RTC 2 PCVEFCT EQU CVEDSP+6 FILE CODE TABLE
0x0095ec…009780 Dummy {f00=0x0003, f01=0x018e, f02=»CVEDCT+2 JOB PARAMETER TABLE ~ . PCVEBPL EQU CVEJPT+2 BUFFER POOL ( @ PCVELFT EQU CVEBPL+2 LOGICAL FILE DESCRIPTION TABLE Z < PCVEYAR EQU CVELFT+2 CURRENT YEAR, 2 ASCIL CHAR < PCVEMON EQU CVEYAR+2 CURRENT MONT
0x009780…009914 (0, 12) Dummy {f00=0x0003, f01=0x0190, f02=» ` @H ` " B !( 9 ! +b L * b dX B ,i p$ A j z dH&g S xzx j `@ ` `0 H q@% H @R z@u ` `@ : @ `H ja @ `H @ z@U x @ [ ` x d @8 U ! ` ` @Z @ @ ` @ @P ` `p ( ( ` @ ` `X ` @ X @ `
0x009914…009aa8 Dummy {f00=0x0003, f01=0x0190, f02=» @l p JGz S 3 f ` w @ 3 H! S d j Z S Q @ S H! 3 d 6 | @Bh ' 4 _{ N4`w l ` `PZ 4 P0 2 t0 ` @ c@ % @ @ bH @ @ D@ F ( C0 @ @ ` ` B @ ` d `[ `h C 4 4 @ ` @ { W E @ `P` E ` `X @Q ` E
0x009aa8…009c3c Dummy {f00=0x0003, f01=0x018e, f02=»CIEVED 7 2 P********************************************* 8 PADI120 EQU * 8 D P LDK A1,0 NEGATIVE RESPONSE 8 X P ST A1,DWTA4,A7 8 | P ABL INIDLE 8 P EJECT 8 0 P******************************************* 8 P* TCA BUSY 8 0 P******
0x009c3c…009dd0 Dummy {f00=0x0003, f01=0x0190, f02=» 8 l PADI900 EQU * 9 P LDR A2,A6 SAVE A6 9 P LDR A6,A7 9 6 P CF A15,TENDIO 9 H P LDR A6,A2 RESTORE A6 9 ^ P ABL LDISP GO TO DISPATCHER 9 | P EJECT 9 > P********************************************************** 9 P* 9 , P* DELAY RO
0x009dd0…009f64 Dummy {f00=0x0003, f01=0x018e, f02=»=2 NEGATIVE RESPONSE 9 P* : > P********************************************************** : ( PDELAYL LD* A2,4,A5 : j " P CF A5,ILABEL SET INPUT LABEL : P LDK A2,2 : P ADS A2,4,A5 : PDELAY EQU * : P LDK A2,0 : * P ST A2,READY,A6 CL
0x009f64…00a0f8 Dummy {f00=0x0003, f01=0x0190, f02=» : p P LDK A2,SYN ; P CF A5,WRITE ; P RB DEL100 ; 0 PDEL110 EQU * ; B P LDR A4,A2 ; V PDEL120 ADK A5,4 SKIP STACK ; h P ADK A4,0 SET CR ; P ABR* A5 ; P EJECT ; P* ; P* ; P* HALT INPUT SYLCU ; P* ; P* ; PHALTIN
0x00a0f8…00a28c Dummy {f00=0x0003, f01=0x0190, f02=» ; n P RTN A5 < P* < P* < " PHIDLE CF A5,HALTIN < , PINIDLE CF A5,READ < F P RB INIDLE < ` P EJECT < r P* < P* < P* DISCONNECT MODEMS < P* < P* < ( PDISCON LDR* A2,A6 GET DEVICE ADDRESS < . P ADKL A2,CIOH COMPUTE CI
0x00a28c…00a420 Dummy {f00=0x0003, f01=0x0190, f02=» < r PDISC20 HLT HALT INPUT SYLCU = P RTN A5 = , P* = < P* = F P* START OUTPUT SYLCU = P P* = l P* = v PSTOUT EQU * = " P LDR* A2,A6 GET DEVICE ADDRESS = P ADKL A2,CIOST = P ST A2,STO100 = P LDK A2,/60 = P INH = " PST
0x00a420…00a5b4 (0, 13) Opaque[0x194]
0x00a5b4…00a748 # DirEnt {nam=»CCI «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x00a5b4…00a748 IdxSect {
0x00a5b4…00a748 f00 = 0x0003 // 0xa5b4 @0x0
0x00a5b4…00a748 f01 = 0x0008 // 0xa5b6 @0x2
0x00a5b4…00a748 gno = [ // 0xa5b8 @0x4
0x00a5b4…00a748 [0x00]: C0x0003.0x2.0
0x00a5b4…00a748 [0x01]: C0x0003.0x3.0
0x00a5b4…00a748 [0x02]: C0x0004.0x0.0
0x00a5b4…00a748 [0x03]: C0x0004.0x1.0
0x00a5b4…00a748 ]
0x00a5b4…00a748 }
0x00a748…00a8dc Dummy {f00=0x0003, f01=0x0190, f02=» 0 ' d l 8 t B f r X $ > P p & | ` DCU DLU LIC PRC RSU ` RDS RDO PRT LST RDA PRD LSD PCH POB PLD DUF INC
0x00a8dc…00aa70 Dummy {f00=0x0003, f01=0x0190, f02=» TCD p FCL p BCL p FRT p FOR p LKE p LED DEB p EDT SVD ` SVU REW ULD FFS FBS RFS RBS WEF WES WEV SDM HSF p JOB END MES PSE
0x00aa70…00ac04 Dummy {f00=0x0003, f01=0x0190, f02=»L P ( PRV LSV TRA p * TLK p , . XRF P 0 2 BUG p TLT p 4 . LKF p 6 CBL p 8 < CLK p : > N P 9B 9A R D P < N P N 9 V O O . N 9CV < N 9 R N 9AV < N 9 V
0x00ac04…00ad98 Dummy {f00=0x0003, f01=0x0190, f02=» $ V "X _t R W W W W O & < z O , P^ PZ P R T TYT O , P T O , P4 P0 T O T O : W 0 V T _^ @ D H ;DRR , PH I H P6 H P0 @ "
0x00ad98…00af2c Dummy {f00=0x0003, f01=0x0190, f02=» V C R W _ _ _ T 4 & C @ R WL_ _ _ B , ,9c z[ Y W YD R W _ _ _ W V V W V N C R W _ _ _ V W W V V *
0x00af2c…00b0c0 Dummy {f00=0x0003, f01=0x0190, f02=» L b 8 W < B # , P P| Q& P R 9AR Wl B V T C F # C P W W P W ( B R29 R<9 R49 R&9 R0' Q B H R&9AR 9AR W B < B W H_ _ _ _ B P R&? R ? R ? R ? R ? R B W
0x00b0c0…00b254 (0, 14) Dummy {f00=0x0003, f01=0x0190, f02=»W W B < U T U U _& W W W V C B , X PD P QL QN T 9 R29 RJ T C R W W W W @ K V V V V P R W W ( R _$W W W _4 NW W W ( V R S: NWxWv_ T TY *
0x00b254…00b3e8 Dummy {f00=0x0003, f01=0x0190, f02=» C _ V B , P P P R W W A W W W W ~ W2 W W V V 5 W _* V P W V | W | V P V /P 0R$ :RTW V & W ~ V W ~ V _" V V 8H V ! T 8 _ H WHW V
0x00b3e8…00b57c Dummy {f00=0x0003, f01=0x0190, f02=» GV V | V P v | W | P ,P :P V | $:H $ F0Z F9U FAZ& FFY, A v | !AAZ !ZZY v | W | ! P !,,P @ Q 5 A _( @ X ! P _$W W : _ W V | W | : 8D R 0
0x00b57c…00b710 Dummy {f00=0x0003, f01=0x0190, f02=» L T P*_ 0R" 9Q 0 P 9C L _( W 0 R _ 8H 0 dR _ 8H 0 d R _ 8H : : W j H # W | H W R WNW _*_, B B P B ) Y N 9 V" j ~ (XB > R *P
0x00b710…00b8a4 Dummy {f00=0x0003, f01=0x0190, f02=» 9 V O V ~ PH P8=A 1 * * 1 1 ZHW _4 N ! QPP: O V ~ P8 h H ^W*W W W W x W W W W W _ W W R W W W W V ~ : (
0x00b8a4…00ba38 Dummy {f00=0x0003, f01=0x0190, f02=» ABSENT FILE CODE DISK NOT OPERATIONAL ALREADY CATALOGED OVERFLOW I/O TOO MANY COMMAND ALLOWED DEVICE NAME MISSING 2ND ADDRESS UNKNOWN FCT LFT ASSIGNED EQU ASSIGN CORE INPUT OUTPUT /L EMPTY PROGRAM CLOSED DIRECTORY
0x00ba38…00bbcc Dummy {f00=0x0003, f01=0x0190, f02=» $@P $ P N % P P P0 2 U N ! T W h O h H Wz N % T U O 0 W i _0 ]$ 4 Z & W & < U 4 Z 2 & W R W W W W X~ X Q
0x00bbcc…00bd60 Dummy {f00=0x0003, f01=0x0190, f02=» 00 P _ V : DATE HX /HX /HX TIME HXH-HXM-HXS- A p $ )T P _ @ p W = W | < , P V 8 W W V | W R W W W W W R *P b R *T < , T W | < V 8 W R WLW WH
0x00bd60…00bef4 (0, 15) Dummy {f00=0x0004, f01=0x0190, f02=» T P G F T V _( P # Q V W V : , T _. F Z _j W W W F W d ) F W P W F 4 V # T R W _ _ _ W G W 6 W V F T W V P v
0x00bef4…00c088 Dummy {f00=0x0004, f01=0x0190, f02=» W V 4 W V W ]<_ V T8 V 4 W W V W W V D W V W V : V W _ V X _ W , P* 09AR R P F F G W W W V : L P< R R" T T T G
0x00c088…00c21c Dummy {f00=0x0004, f01=0x0190, f02=» @ U F L ?L D P X L =CR =AR =CRH WB =CR: W4 =l P* W$ ' ' ( J G G G G G G G G G L ' P< L # 4 C C C x R W:_ _ _ B R
0x00c21c…00c3b0 Dummy {f00=0x0004, f01=0x0190, f02=» < 6 G G G G G G G G G G G W Q Z P F G V : P G G "P P _ < # @ 2 P P _ : A B P @ B R _ : X _$
0x00c3b0…00c544 Dummy {f00=0x0004, f01=0x0190, f02=» @ x : ; W" ; W ; W Z " [ Z : ! @ Z 9c Z P L U _< :` % _H % _P XV _Z W j 2 V , , 0 5 V 9D9k D z " W( W W W W W W W W W 2 W V # T , 0V U V j
0x00c544…00c6d8 Dummy {f00=0x0004, f01=0x0190, f02=» L U ( ( @ U ( . 4 M - F G U W D V H F V # f = Z V R W W W W ' C R WdW W W V SCP" OBP LMP
0x00c6d8…00c86c Dummy {f00=0x0004, f01=0x0190, f02=» W T W V @ W @ _ V Q # T 8 : V V , T W W W V : 0 Q Q X*Q R U V_> B_D @ , H Q R W H T T BW H T I I Y2 X_ , P P , P P
0x00c86c…00ca00 Dummy {f00=0x0004, f01=0x0190, f02=» G _b F G F 4 T C R _ _ _ _ B , @ T * ,9cP z Y _ :` W O QH ?A R $T$ $P, W P ?a W ( W ;h P V : 8 V : OPTION NOT AVAILABLE CSEG1 LMCSEG2 LMCSEG3 LMCSEG4 LM
0x00ca00…00cb94 (0, 16) Dummy {f00=0x0004, f01=0x0190, f02=» ` T ** CORE OVERFLOW ** @ !J O N W P ( - Y j O P: 4 9 Y <=h R O & = Y N P N P : N P 9B 9A R H P # W z T P :
0x00cb94…00cd28 Dummy {f00=0x0004, f01=0x0190, f02=» $r ! R HW W W W j ! R JW W W W B PL ( XB " R _L YR U " V l8h Xf "8 R _p ;Yv < $ $ "f R HW W W W j "~ R JW W W W B P YD b P :h " R _`W @ X 8<h 8# LP 8P
0x00cd28…00cebc Dummy {f00=0x0004, f01=0x0190, f02=»_Z_ W2 V f 00 V #^ R _x V 0 V PW !NN O : ( $ 8 5 Y @ P N N V O U $:h U # U " N N V < O U N N V < O U N N V U ( $: R W W W W W 1
0x00cebc…00d050 Dummy {f00=0x0004, f01=0x0190, f02=»IME: 00H-00M-00S-000MS- W @ 4 4 " Y%l %l 8 QR F%V _& Q$ & 4 " 9 Z _P &` 8 & 8 V :% % % % % & & & & & PROG ABORTED AT OVERFLOW IN SIMULATION ROUTINE SAVE AREA NOT WIRED INSTRUCT
0x00d050…00d1e4 Dummy {f00=0x0004, f01=0x0190, f02=»A2 =HEXA A3 =HEXA A4 =HEXA A5 =HEXA A6 =HEXA A7 =HEXA A8 =HEXA A9 =HEXA A10=HEXA A11=HEXA A12=HEXA A13=HEXA A14=HEXA BUFFER ALLOCATION OVERFLOW DISK OVERFLOW DISK QUEUE OVERFLOW MEMORY OVERFLOW DURING LOADING PHASE R W W W W W 1
0x00d1e4…00d378 Dummy {f00=0x0004, f01=0x0190, f02=» RDO PRT | , ( LST RDA PRD , ( LSD PCH POB L , ( PLD DUF INC MO | , ( V SCR KPF p DEL , ( ) p ASG SEG RUN p
0x00d378…00d50c Dummy {f00=0x0004, f01=0x0190, f02=» LK l , ( E p LED DEB p EDT , ( SVD ` SVU REW < , ( ULD FFS FBS l , ( RFS RBS WEF , ( ) WES WEV SDM HS , ( I F p
0x00d50c…00d6a0 Dummy {f00=0x0004, f01=0x4160, f02=» LSF GOD P POD , ( OLE P " $ NOD MAC P & RT , , ( L P ( PRV LSV TRA , ( p * TLK p , . XRF P 0 2 BUG p , ( ) TLT p 4 . LKF p 6 CBL p 8 , ( I < CLK p : >
0x00d6a0…00d834 (0, 17) Opaque[0x194]
0x00d834…00d9c8 # DirEnt {nam=»CSEG1 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x00d834…00d9c8 IdxSect {
0x00d834…00d9c8 f00 = 0x0004 // 0xd834 @0x0
0x00d834…00d9c8 f01 = 0x0002 // 0xd836 @0x2
0x00d834…00d9c8 gno = [ // 0xd838 @0x4
0x00d834…00d9c8 [0x00]: C0x0004.0x2.0
0x00d834…00d9c8 ]
0x00d834…00d9c8 }
0x00d9c8…00db5c Dummy {f00=0x0004, f01=0x0190, f02=» : W N j , R W W W W W V ~ W W J R W W W W W V V P T T n r W R W W W W ' W V T V P V P 4 # R Wt_ _ _ B T V ,P6R 9 :AW H - 9a:K8G
0x00db5c…00dcf0 Dummy {f00=0x0004, f01=0x0190, f02=» V # V ' V R W _ _ _ V C R W _ _ _ V V < = V ] PD V R* G R W^_ _ _ C B P W = G 0 R W,_ _ _ V : W. W* W& W" W W W W W $W (W ,W 0 L 8
0x00dcf0…00de84 Dummy {f00=0x0004, f01=0x0190, f02=»V R W W W W W V A V P T T , A @ R W W W W , P P F ' 4 + ' R WtW W W V T Tj V N LMT` V HPZ PV K R WBW W W V 6;a 8 0 PT 0X W$ W W W W
0x00de84…00e018 Dummy {f00=0x0004, f01=0x0190, f02=» _fW W W$ | R _xW W W G K _. P 8 V : C ! % + TOO BIG N W R W^W WZWX W" | W R W W W W 8 V V P T T 6 R R W W W W W F P
0x00e018…00e1ac Dummy {f00=0x0004, f01=0x0190, f02=» Y P W R 4W6 C Y^W _" W* W& W" W W W W $W ~ (W ,W 0 P J 8 V : + IN CATALOG B C R _nW W W 8I9A:l:A H B V % R _ W W W V : N j R W(W&
0x00e1ac…00e340 Dummy {f00=0x0004, f01=0x0190, f02=» Z` T PD # 4 C C R W W W W B D K V _ DL = ON = F ! " / = _ DD = F D ! " = : F P F F = J K , R W W W W k : , P T 9CQ 9FR T ! T~
0x00e340…00e4d4 (0, 18) Opaque[0x194]
0x00e4d4…00e668 # DirEnt {nam=»CSEG2 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x00e4d4…00e668 IdxSect {
0x00e4d4…00e668 f00 = 0x0004 // 0xe4d4 @0x0
0x00e4d4…00e668 f01 = 0x0004 // 0xe4d6 @0x2
0x00e4d4…00e668 gno = [ // 0xe4d8 @0x4
0x00e4d4…00e668 [0x00]: C0x0004.0x3.0
0x00e4d4…00e668 [0x01]: C0x0005.0x0.0
0x00e4d4…00e668 ]
0x00e4d4…00e668 }
0x00e668…00e7fc Dummy {f00=0x0004, f01=0x0190, f02=» l d l f @ F $ R W*W(W&W P X 8 : V U R V W" _& _* W R W W W W W, V U Q W , P| Px R WrWpWnWl V Q R , P T 9IV OBW UFW SC V N 0 V P.
0x00e7fc…00e990 Dummy {f00=0x0004, f01=0x0190, f02=»WPW W P @P @T ` 2( _> F K V U 5 W R WrWpW Wl_v V R P V X V Q W R FWF V ] R W4 V P R W : V YPZ( V Y , R FW : W V W 2 P L 8 : EOV ON INPUT FILE,MOUNT NEW
0x00e990…00eb24 Dummy {f00=0x0004, f01=0x0190, f02=» 0 V P z 8 R @ : R W W W W W V R ' Q ' W B R WtWrWpW V W W V R^ ' QX V RR W r R WPWNWLWJWZ V | SC N N _ V | UF_ V U Q _ W W l W W W W 8 V , X X P Rb T W
0x00eb24…00ecb8 Dummy {f00=0x0004, f01=0x0190, f02=» p R _ W W W V V V W _6 V W F ; V F F );A F ( R ?U ) Y ) ( T Y W V K V QX @ P ! ! R W W W W W W V V V ' ] W _ V @_ WNWvWf V K b R W W W W C
0x00ecb8…00ee4c Dummy {f00=0x0004, f01=0x0190, f02=» C R W W W W O @ 6 % Y A J J Pv 8 RbQ !* T A TD ! T J PJ 8 ! X @ TV ! !' T I J P 8 !' ! T ! W I _| K K 4 P L P^ L P 4 J $ !* Pd ! P $ ! $ !
0x00ee4c…00efe0 Dummy {f00=0x0004, f01=0x0190, f02=» LINE NUMBER INPUT FILE CAN NOT BE ASSIGNED OUTPUT NOT ASSIGNED ) ) ( T Y W V K V Q @ P ! ! R W W W W W W V V V ' ] W _ V _ W W W V K R 0 P d
0x00efe0…00f174 (0, 19) Dummy {f00=0x0005, f01=0x0190, f02=» W 8 : 00 W + , T ] : X "8H 00T /8h W 8h / = = 8 RpQ T " T = " Z` T PD # 4 C C R W W W W B D K " V _ DL = ON = F ! "
0x00f174…00f308 Dummy {f00=0x0005, f01=0x0190, f02=» , P T 9CQ 9FV0 N " OB 0 V X4 | D5 T ! T~ N T # R W _ _ _ H ( T P@ W D V P L Q M V I R Wf_ _ _ V U j P 6 R W4W2W W. ( P
0x00f308…00f49c Dummy {f00=0x0005, f01=0x0190, f02=» 0 V P 2 4 # h P R W W W W W " d d d 8 $ A D A D A D W V V A j @ d d d d W W W W W $ OBJECT FILE DIRECTO
0x00f49c…00f630 Dummy {f00=0x0005, f01=0x0190, f02=» 4 V W # Z R W W W W W V P " V 6 V T @ =a V V 4 j @ d W (>a ( % P _ V % V % P _" ( % P _ P
0x00f630…00f7c4 Dummy {f00=0x0005, f01=0x0190, f02=»IT ACTL DATE W 4 V V V & A A ( W W @ @ & W W W W W W W W W P @ 8 : ( ' $ ' $! h P R W W W W W & V % P _ V & ( %
0x00f7c4…00f958 Dummy {f00=0x0005, f01=0x0190, f02=» W j b d V P _* TEXTRN A A CO MM N W A A EN TR Y @ @ ( W V W ($ < R < R W h 2 V % V % j @ TR R W A % @ VR S %
0x00f958…00faec Dummy {f00=0x0005, f01=0x0190, f02=»V A A A V % V % @ PB V % V % (P E E d A W R %_J d d T V P P _ * W 2 V R : 8 h R @ . R W W W W W & V % P _ V & ( %
0x00faec…00fc80 Dummy {f00=0x0005, f01=0x2a20, f02=» BUG - PTS DEBUGGER RDA 4 0 P LDK A2,/E1 DEFAULT OPTI* 5 $ P RF SC000 5 X P EJECT 5 x 6 P** BUGPRO EQU * DISK FILE CODE ERROR 5 PRDAR01 EQU * 5 P L MLK 2 A4,4 5 P
0x00fc80…00fe14 (0, 20) Opaque[0x194]
0x00fe14…00ffa8 # DirEnt {nam=»CSEG3 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00a8, f03=0x0000}
0x00fe14…00ffa8 IdxSect {
0x00fe14…00ffa8 f00 = 0x0005 // 0xfe14 @0x0
0x00fe14…00ffa8 f01 = 0x0004 // 0xfe16 @0x2
0x00fe14…00ffa8 gno = [ // 0xfe18 @0x4
0x00fe14…00ffa8 [0x00]: C0x0005.0x1.0
0x00fe14…00ffa8 [0x01]: C0x0005.0x2.0
0x00fe14…00ffa8 ]
0x00fe14…00ffa8 }
0x00ffa8…01013c Dummy {f00=0x0005, f01=0x0190, f02=» * . W & R W W WDW W ^ 8 : _ _ $ _ !_ _& h_0 IDENT V 8 V /O W /LP /S V W : SC W R _ W>_~_ 4 # R _ W _ ( V X W V Z
0x01013c…0102d0 Dummy {f00=0x0005, f01=0x0190, f02=» : UF W _D F R, F T V LW W W R 4W W X N ! 4 V # R _* V 4 4Pv Tp V 9$ TR V 6 W 6 V V PP W N ! V # W X R _ W U V 6 W 6 V 5 U
0x0102d0…010464 Dummy {f00=0x0005, f01=0x0190, f02=» # R W 6 0=a 08g9A:l @ 8 A 8;` $ 9(@ 4 N ! # p R W* V T U V T W 2 : X W V , P8 PB W T W T 9 VH9 V # R W& V V P W
0x010464…0105f8 Dummy {f00=0x0005, f01=0x0190, f02=» W j W - Z N " N /OBJCTOB W 0 V P < W 0 V < W W 4 V # V P W j W R W W W W" W V < NOT V > D T C _: ( B W V T" W B U V T W V
0x0105f8…01078c Dummy {f00=0x0005, f01=0x0190, f02=» R W W W W W C _( W ( W" C V J " R _4 W _ W _" B U W 6 L R WNW W V T$ C h R W2 W U _: U W _D C R W W W W W U _ T T Y T T W j_( C 5 Z V
0x01078c…010920 Dummy {f00=0x0005, f01=0x0190, f02=»_ _ V 6 8 V <A W 6 V 6 b 6 V Q Z 4 % Y # R W _ _ _ , T 4<A $ % 4 % Y j W 4P6 T V W jW4 V 5 Z B W V W P V W _R C , U V R _ V T@ V
0x010920…010ab4 (0, 21) Dummy {f00=0x0005, f01=0x0190, f02=»Y" V W j V T V R * V _& O 8 : 4_ MODULE O 8 V R @W : _H _P W V 4 V # V V # R W W _ W C _ V R _ _ W _ W V
0x010ab4…010c48 Dummy {f00=0x0005, f01=0x0190, f02=»OB N N 0 V P P W , W N UF 0 R @W~ W W 4 W W W W V D 9 W< '( 8 : ( 8 : 8 : $ 8 W 2 : W : R JWJWLWFW@ B W | B
0x010c48…010ddc Dummy {f00=0x0005, f01=0x0190, f02=»T~ V W W V W 8 W W V V W R V V W < ~ R W W W _f 8 . * 8 . R J_8WD_<_> " P P P 4 0 W " ?A W
0x010ddc…010f70 Dummy {f00=0x0005, f01=0x0190, f02=» 8 W P R T0 4 @ % V C z R W W W W W B 9 < V 9 V V 9 V 9 C R W(W&W$W" j j W | D W . 8W, B_ 8W _2 _: W 2 @
0x010f70…011104 Dummy {f00=0x0005, f01=0x0190, f02=» V C R W:W8W:W4 V P* W B 9 V P> W W _z V P$ " T W _ W _ W _ V $ Pl V PN C # ` R W4W2W0W. B $ $ - $ X R _ _ _ _ #_V B $ $ - $_r
0x011104…011298 Dummy {f00=0x0005, f01=0x4028, f02=»W0 YW. u z ` j a @ a $ 8 _ ~ H D ! D T~ * D . ' p 1 D E I M _ o w | ` : H D ! WD P P P D W W W W W 8 ` H D ! 8 ! , + * 7 B A D ET0 g l mW oW qW sW uW
0x011298…01142c Dummy {f00=0x0005, f01=0x2008, f02=»
0x01142c…0115c0 Dummy {f00=0x0005, f01=0x0190, f02=» F 4 T C R _ _ _ _ B , @ T * ,9cP f Y _ :` W O QH ?A R $T$ $P, W P ?a W ( W ;h P V : 8 V : OPTION NOT AVAILABLE CSEG1 LMCSEG2 LMCSEG3 LMCSEG4 LMCSEG5 LMLED LMCSEG
0x0115c0…011754 (0, 22) Opaque[0x194]
0x011754…0118e8 # DirEnt {nam=»CSEG4 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00b8, f03=0x0000}
0x011754…0118e8 IdxSect {
0x011754…0118e8 f00 = 0x0005 // 0x11754 @0x0
0x011754…0118e8 f01 = 0x0002 // 0x11756 @0x2
0x011754…0118e8 gno = [ // 0x11758 @0x4
0x011754…0118e8 [0x00]: C0x0005.0x3.0
0x011754…0118e8 ]
0x011754…0118e8 }
0x0118e8…011a7c Dummy {f00=0x0005, f01=0x0190, f02=» d $ j > R W W W W N 9 V r W F F $ $ I P6 ! P0 R$ Q $ W T D L ;FV 2 V R $V # _& YF N 4 # R WP_ _ _ @ H * ( B T 4 Q W 4 ) Y P ) Y :WP W W
0x011a7c…011c10 Dummy {f00=0x0005, f01=0x0190, f02=»A CAT. PROC. , P( P$ P R 9AQ O P F 9AV W 2 Y4 N P0 , P8 P4 F 9AV G . N jW W 2 @ D H ;AV I , H R ;H;h _ O : F ! # 4 C C C ( V P G : O x R WbW W^W
0x011c10…011da4 Dummy {f00=0x0005, f01=0x0190, f02=» N 9B 9 O : 8 : W @P O v |9H W | v | W | v |:H W | v | W |WV v |;H W | v | W | v |<H W | v | W | v |=H W | v | W | v |>H W | v | W | W p > : : b W W W v | W | !,,P V Q 5 W _" W _ *, , P
0x011da4…011f38 Dummy {f00=0x0005, f01=0x0190, f02=» P` 0R RV PP @ :PJ @ <PD V> W T0 T 9FR T D ! A :W W 0 O W 2 Yp N 9 Rh N 9DV. # . C C C R HW W W W # j C C C < R JW(W _0_2 N 9CV j $ / W
0x011f38…0120cc Dummy {f00=0x0005, f01=0x0190, f02=»_" ! _ W v |9H W | v | W | v |:H W | v | W | v |;H W | v | W | v |<H W | v | W t , W | p ,8h 00 ^ R WV RP QJ V R W T T n ' ' ' W & R *T N O O O W
0x0120cc…012260 Dummy {f00=0x0005, f01=0x0190, f02=»W W W W D j B &P< N ? O & O F O j D T _ 8 8 + 8 & A P ( O : L 11CCI (PTS VERSION 810216)
0x012260…0123f4 (0, 23) Opaque[0x194]
0x0123f4…012588 # DirEnt {nam=»CSEG5 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00c0, f03=0x0000}
0x0123f4…012588 IdxSect {
0x0123f4…012588 f00 = 0x0006 // 0x123f4 @0x0
0x0123f4…012588 f01 = 0x0008 // 0x123f6 @0x2
0x0123f4…012588 gno = [ // 0x123f8 @0x4
0x0123f4…012588 [0x00]: C0x0006.0x0.0
0x0123f4…012588 [0x01]: C0x0006.0x1.0
0x0123f4…012588 [0x02]: C0x0006.0x2.0
0x0123f4…012588 [0x03]: C0x0006.0x3.0
0x0123f4…012588 ]
0x0123f4…012588 }
0x012588…01271c Dummy {f00=0x0006, f01=0x0190, f02=» 4 # h h h ^ D ^ H " F r X z j P X . ( W( LKF O W LKE A N W W - Y ` O O R W W W W W V PVQ V CP P& P6 P8 Tv O W XD > W O W X^ p_ _0 _6 V
0x01271c…0128b0 Dummy {f00=0x0006, f01=0x0190, f02=» 8 : N 9AV~ N N 0 V P2 8 R @W W 2 W 2 Y : V P& z D N N 0 V P _Z N 9BVF D 0 V P _ V P z D 0 V P _ , T 8_ X
0x0128b0…012a44 Dummy {f00=0x0006, f01=0x0190, f02=» W L 2 8_8 N B N 9H _N COMMON VALUE REDUNDANT LIBRARY OPTION REDUNDANT DEBUG OPTION REDUNDANT MAP OPTION REDUNDANT XRF OPTION REDUNDANT SEGMENT SIZE REDUNDANT START ADDR. REDUNDANT USER LIB ASSIGN ERR : /OBJCTOB SYSTEM LIB
0x012a44…012bd8 Dummy {f00=0x0006, f01=0x0190, f02=»EDUNDANT OR NOT ALLOWED OBDIR UF USER OBDIR ASSIGN ERR : SYST OBDIR ASSIGN ERR : MESSAGE FILE ASSIGN ERROR OLE LM j 4 4 = Y < Y N & Q O 8 = Y F O ( W h R W W W W
0x012bd8…012d6c Dummy {f00=0x0006, f01=0x0190, f02=» 8W N P W 2W W 2W > 8 W 2W 8 : W > R W W W W W 8 : , P T 8 # R W R W W 8W N OB 0 R @W C:ERMSUF W D 0 R
0x012d6c…012f00 Dummy {f00=0x0006, f01=0x0190, f02=» W 2W 8 W 2W ( 8 : W W pW z W@ O _ _ R W W W f W O R W W W W W V | D N N SC 0 V P 8 L R @W : X R WrW WnWl
0x012f00…013094 (0, 24) Dummy {f00=0x0006, f01=0x0190, f02=» W Wd _ WZ WV WR _ V T L , P P T 9IV. N OB 0 V P : P 8 : , T ! T~ N T # ~ R _ _ _ _ H ( T P@ W D V X L Y M V I R _ _ _ _ V U
0x013094…013228 Dummy {f00=0x0006, f01=0x0190, f02=» W 2 2 W 2 N T N 9HR : W 2 : ( /S ASSIGN ERR : R OPTION ERR NL OPTION ERR D OPTION ERR /S EMPTY /O ASSIGN ERR : HSF ASSIGN ERR : R _ W _ _ _ LM 9 O
0x013228…0133bc Dummy {f00=0x0006, f01=0x0190, f02=» TCD LM HSF LMFX1 LMFX2 LMFX3 LMFX4 LMFX5 LMFX6 LMFX7 LMFX8 LMFX9 LMFXA LMFXB LMFXC LMFXD LMFXE LM L R W W W W , b X 4 ~ R WR R WH N OB 0 V P< 8 R @W : OUTPUT A
0x0133bc…013550 Dummy {f00=0x0006, f01=0x0190, f02=» 8 : MAC LM R ` 2 8 : RTL LM TLT W TLK A j z H 4 % Y GOD W j n W | W V j z H $ 5 Y j W | D W - Y ` O O O W*W W&WtW V T V MP8 P P P P< Wh
0x013550…0136e4 Dummy {f00=0x0006, f01=0x0190, f02=» 9AVt N N 0 V P. 8 R @W W 2 W Y : z D N N 0 V P _P N 9BV@ D 0 V P _x z D 0 V P _ , T 8_ X 4 R W W _6
0x0136e4…013878 Dummy {f00=0x0006, f01=0x0190, f02=» 8 4 R @W W 2_P N OB 0 V P$ > 8 t R @W W 2_N N OB 0 V P$ > 8 R @W W 2_N N OB 0 V P$ > 8 R @W W 2_N 2 8_* TLK LM OUTPUT
0x013878…013a0c Dummy {f00=0x0006, f01=0x0190, f02=» 9AV N N 0 V W W A , W W W W ~ JW: bW&W W V V 5 W _, A , V P W V | W | V P V /P 0R. :RrW& V . @ , P W ~ V @ , P W ~ V _6 V Qt V V 8H V
0x013a0c…013ba0 Dummy {f00=0x0006, f01=0x0190, f02=» V W ~ V 0R :R AR GV V | V P v | W | P ,P KP L T P6_ L .W$ @R 0 P 9D _( W L T P*_ 0R" 9Q 0 P 9C L
0x013ba0…013d34 (0, 25) Dummy {f00=0x0006, f01=0x0190, f02=» _0 IDENT V 8 V /O J W /LP /S V W : SC W R _ W>_~_ 4 # R _ W _ ( V X W V Z V W N N W^ W b : LM W t R W _RW W W ` l r W W V
0x013d34…013ec8 Dummy {f00=0x0006, f01=0x0190, f02=» # R _* V 4 4Pv Tp V 9$ TR V 6 W 6 V V PP W N ! V # W R _ W U V 6 W 6 V 5 U U U V U N ! 4 V # R _ V 4 # R W
0x013ec8…01405c Dummy {f00=0x0006, f01=0x0190, f02=» # R W* V T U V T W 2 : W V , P8 PB W T W T 9 VH9 V # R W& V V P W ! O 8 V _ W W ^ R W W W W W ` l V Y W W
0x01405c…0141f0 Dummy {f00=0x0006, f01=0x0190, f02=» W 4 V # V P W j W 6 R W W W W" @ W V < NOT V > D T C _: ( n W V T" W B U V T W V T C R _l W W U C V X B W W C U _4 V P V rT T 4 # W
0x0141f0…014384 Dummy {f00=0x0006, f01=0x0190, f02=» x R WNW W V T$ C R W2 W U _: U W _D C R W W W W W U _ @ T T Y T T W _( C 5 Z V j W (P. H U W V W W H W W W Y8 9c W 4 #
0x014384…014518 Dummy {f00=0x0006, f01=0x0190, f02=» 4<A $ % 4 % Y j W 4P6 T V W . W4 V 5 Z B W V W P V W _R @ C , U R _ V T@ V , T 9 V( OB W W : /OBJCT 6 : V W V j (P ( - )
0x014518…0146ac Dummy {f00=0x0006, f01=0x0190, f02=» MODULE O 8 R @W : _H _P W V 4 V # V V # R W W _ W C _ V R _ _ W _ W V C C _NW" V P GOD W j n W | W V : IDENT KPF /DD,OBDIR ^ R W W W W
0x0146ac…014840 Dummy {f00=0x0006, f01=0x0190, f02=» W W W W V D 9 W< '( 8 : ( 8 : 8 : $ 8 W 2 : W f R JWJWLWFW@ B W | B W R W W W W W R W W W W W !: " ". V V "r W
0x014840…0149d4 (0, 26) Dummy {f00=0x0006, f01=0x0190, f02=» "h "~ W W W _f !: " ". @ 8 "Z * 8 "Z R J_8WD_<_> " : P P P 4 0 W " ?A W ?a ! "~ "J V X^ ! R JW W W W W "r W V W T "R " "r W V W V W
0x0149d4…014b68 Dummy {f00=0x0006, f01=0x0190, f02=» 9 V V 9 V 9 C ! R W(W&W$W" H j j W | D W < "Z 8W, n_ H 8W _2 ! _: W 2 H @ : V D : W W V 9a:a R P W W " 9 V P T 4
0x014b68…014cfc Dummy {f00=0x0006, f01=0x0190, f02=»T W _ W _ W _ V $ Pl V PN C # # R W4W2W0W. B $ $ - $ X # R _ _ _ _ #_V " B $ $ - $_r ?a V X^ R JW W W W W W V W T W V W V W
0x014cfc…014e90 Dummy {f00=0x0006, f01=0x0190, f02=» A14,C:ASG,A12 ASSIGN THE FILE CODE TO OBDIR H , P LD A1,W:ASB7,A13 STATUS? I : $ P RF(0) LKE250 OK I j P LDK.L A3,USRDIR I 6 P RB LKE210 PRINT ERROR MESSAGE I P* I P* I , PLKE2
0x014e90…015024 Dummy {f00=0x0006, f01=0x0190, f02=» RF(6) LKE300 NO I : P ML 7,LKEOBJ LOAD FILE NAME AND TYPE J ( L P LDK.L A1,/44D7 FILE CODE = D7 , WRITE PROTELTED,ASG TYP=4 J f F P LDK A2,/CF SYSTEM DAD FILE CODE PC2205 J 0 P
0x015024…0151b8 Dummy {f00=0x0006, f01=0x0190, f02=» J d $ P CFI A14,C:ASG,A12 K 6 P* CHECK ASSIGN STATUS K 0 $ P LD A1,W:ASB7,A13 K j P RF(0) LKE260 K P* K 6 P* PRINT ERROR MESSAGE K P LDK.L
0x0151b8…01534c Dummy {f00=0x0006, f01=0x0190, f02=»13 K t 6 P RF(0) LKE300 LKE,DO NOT ASSIGN D9 L < P ML 7,OBDIR ASSIGN /D9 TO SYSTEM OBDIR L D P LDK.L A1,/44D9 L D P LDK A2,/CF SYSTEM DAD FILE CODE PC2205 L P LDK A3,8 L
0x01534c…0154e0 Dummy {f00=0x0006, f01=0x0190, f02=» RF(0) LKE300 OK L P LDK.L A3,SYSDIR M " P RB LKE210 M F P EJECT M f P* M | P* M P* M 8 PLKE300 EQU * CHECK IF /O IS PRESENT M P LDK A3,/D5 M $ P CFI
0x0154e0…015674 (0, 27) Opaque[0x194]
0x015674…015808 # DirEnt {nam=»LED «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00e0, f03=0x0000}
0x015674…015808 IdxSect {
0x015674…015808 f00 = 0x0007 // 0x15674 @0x0
0x015674…015808 f01 = 0x0006 // 0x15676 @0x2
0x015674…015808 gno = [ // 0x15678 @0x4
0x015674…015808 [0x00]: C0x0007.0x0.0
0x015674…015808 [0x01]: C0x0007.0x1.0
0x015674…015808 [0x02]: C0x0007.0x2.0
0x015674…015808 ]
0x015674…015808 }
0x015808…01599c Dummy {f00=0x0007, f01=0x0190, f02=» N W w W 2 R W W W W W V | D N N SC b R W W W W W$ V /SP W V R Q UF W 0 R @W R W W W W W W tW. V Uv Qr , Pl W t R WfW W W` !!W V TR V W v A V A V
0x01599c…015b30 Dummy {f00=0x0007, f01=0x0190, f02=» r W p W r W z W W A A r A W | V t L: A h W W _ _ A A A t v j $ V vP W: (P. R *P _, V n ! T n W | * . J N ; R _ _& X _ N T N 9HV V W 2 W 2 W 2 :
0x015b30…015cc4 Dummy {f00=0x0007, f01=0x0190, f02=» | V zQ + A A J l V | W ~ & R WZW0WVW W> V RL ' QF V | W ~ P R W0W W,W*W V T V LT A V | V ~ 0 0 6 R W~W|WzW Wv V Rp ' Qj V | W ~ W R WPW.WLW WL V RB ' Q< W R W(W W$W"W$ V T V
0x015cc4…015e58 Dummy {f00=0x0007, f01=0x0190, f02=» R W W W W W V | W ~ V | D N N W R WvWtWrW Wn V Rh ' Qb W W R WPW.WLW W V RB ' Q< W R W(W W$W"W$ V T V CT A W T A W 0 V V | V ~U @ P W ~ B 6 A L V | V W W | P W ~ p :W
0x015e58…015fec Dummy {f00=0x0007, f01=0x0190, f02=» | W R W W6W W W V R ' Q W V | W R WxW WtWrWp V W x V W | V V T V =a=A V V x V =a=A W | R W W W W W" V V CT A W A w W w V p r V % V E
0x015fec…016180 Dummy {f00=0x0007, f01=0x0190, f02=» W x V W | V V V =a=A V V V =a=A W V ~ V |P W ~ 6 W ~ V w V ) V p r % E E E E W p @ T & : V ~ W | A W p P R $ )_ A W B
0x016180…016314 (0, 28) Dummy {f00=0x0007, f01=0x0190, f02=» A J 0 A A A W V | W R W WDW W W V R ' Q W W * R W W W W W V R ' Q W Wd V W x V W | V V x A W | R WNW WJWHWJ V T> V FT A W T A R W W W W W V T V CT A W
0x016314…0164a8 Dummy {f00=0x0007, f01=0x0190, f02=» @ Q V | V R> V UB j F W V V @ P A tW W |_ _ W V | j @ j @ j @ tT W @ Q2_> V Q JW V A Z V | A b V J V ~ W | L ( C ( _ T n ~ ( . 0 2 T
0x0164a8…01663c Dummy {f00=0x0007, f01=0x0190, f02=»]],$$STRG1$$STRG2$$[,C/L] )!!RE LINE1,$$STRG1$$STRG2$$ )!!EN [D] )!!LS LINE1[,LINE2][,C] OR $$STRG1$$[,F/N][,C] )C= CONSOLE, L= LINE PRINTER, D= DIAGNOSTICS, F= FIND, N= NOT, $$= ARB. CHARACTERS )REL. 11.0 81-03-27 V | W W V | V P v | W | W V xP 9H_
0x01663c…0167d0 Dummy {f00=0x0007, f01=0x0190, f02=» | ^ _" W j W p V p W p V $V : , V |Q , V |R D _ W v W _> V |T A A V p M L W V $ V | P P , 9 9 Y V | 9a9A $ $ 9 W | X Y $ 9 V D W W
0x0167d0…016964 Dummy {f00=0x0007, f01=0x0190, f02=» A B @ R W W W W V ! T* V I J A @ j @ j @ W z j V pV2 L X M V | C J A > V j j @ W W | V | V ~ F , V l R FW F " ! T: V A J A V | A 4 J @
0x016964…016af8 Dummy {f00=0x0007, f01=0x0190, f02=» _ V t I: A h D WxW _ _ V j V v @ P V | W ~ n 6 V | I j @ j V j P R _|_~W W W z V |T A _ J N ; N _ X _ # , T TYT f C R HW W W W j W | P W P % Y P
0x016af8…016c8c Dummy {f00=0x0007, f01=0x0190, f02=» J A WH V t , P2 W 0 c C Z C @ t R R W W W , , V t , h ( 0 ) Z @ @ t R R W W W W ( & N < V O &V # 00 ) ~ R W W W W : V x A " t " R @
0x016c8c…016e20 Dummy {f00=0x0007, f01=0x0190, f02=» _ V t I: A W W _ _ V j V v @ P V | W ~ 6 V | I j @ DL IL EN AB JN :CH LS RE HL COMMAND UNKNOWN ,TRY AGAIN " I/O ERR ON LAST RECORD,TRY AGAIN $ SEQUENCE ERROR, CURRENT LINE:
0x016e20…016fb4 (0, 29) Dummy {f00=0x0007, f01=0x0190, f02=»SC,UPD TERMINATED * AUX. INPUT CAN NOT BE ASSIGNED,TRY AGAIN STRING NOT FOUND 0000 LINES = +0000 IN FILE IDENT STATEMENT UPDATED HIGHEST LINENO READ 0000 LINE PRINTER NOT ASSIGNED 0000 OF 0000 LINES IN FILE LINE NUMBER 1 > LINE NUMBER 2
0x016fb4…017148 Dummy {f00=0x0007, f01=0x0190, f02=»QU 0$$EDM EQU 1$$ !!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ !!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ !!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!CH $$ASSOLY EQU 0$$ASSOLY EQU 1$$ !!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!CH $$SWPBLK EQU 0$$SWPBLK EQU 1$$ ASM /S,NL @ PT FZ
0x017148…0172dc Dummy {f00=0x0007, f01=0x0190, f02=» SP ECP 1P AP :DC : F : ( SP MMT W ( Lj Ml :!!IL 48 @P !SS = S 5 <x @P G >4 @P 5 B T :h" P 0R U Q P <H9D_( : : Wf AP @l P Al @l P Al @l P Al @l P Al YF P
0x0172dc…017470 Dummy {f00=0x0007, f01=0x0190, f02=» _@ 7 @T T AT O(_^ @X8PV Ab @T P T AX< AX8 X: E AT 01 AT YB T O _ Ab 7 a CD Al Al| CG Al Alz : 4R P @X8! P X> XH 4 AXJ | Z"Pb 4 7 AJ (R> f AI.
0x017470…017604 Dummy {f00=0x0007, f01=0x0190, f02=» T 01 7 @X| , 7 4 W V T1P TNP G1P G2P T2P TPT, 1 0P 1T W AJ / AI @J W AI AT O( 4^ AX| @J : P @ $ !;;P6 ! P0 ! X !__T P Z0_. !^^T bv_B + _F Jb P P ~t
0x017604…017798 Dummy {f00=0x0007, f01=0x0190, f02=» P, LP !,,T2 U, LP LP 9H # Lj_4 # AX| : J @P 7 Lj : V DIT M ,0W8 @P P KB Xp V MTT 0P OH @ I 7 P& @P !,, J @P OH C C # : 7 : K @P T <h !NNP f J Dl ! J Q
0x017798…01792c Dummy {f00=0x0007, f01=0x0190, f02=» T :h" P 0R U Q P <H9D_( : J YZ @P V J V J J K, J @P Lj9H @P Lj A M8 J V KBT bqP brP b6T b6 bA K @$ 1 K 20 K V KBP DIP U P P _ U` (
0x01792c…017ac0 Dummy {f00=0x0007, f01=0x0190, f02=»P 0 0R Q ; W : # +0 !99U :d" *0 !99U :H : T TP Y T1 Y TN Y T2 Z G2 Y G1 Y D4 Y D5 Y MD Z CD Z TWP DUP FDT Y W Y W 7 V W 01 W W XP V AXj AXi V AXl AXk XZ
0x017ac0…017c54 (0, 30) Opaque[0x194]
0x017c54…017de8 # DirEnt {nam=»CSEG7 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x017c54…017de8 IdxSect {
0x017c54…017de8 f00 = 0x0007 // 0x17c54 @0x0
0x017c54…017de8 f01 = 0x0002 // 0x17c56 @0x2
0x017c54…017de8 gno = [ // 0x17c58 @0x4
0x017c54…017de8 [0x00]: C0x0007.0x3.0
0x017c54…017de8 ]
0x017c54…017de8 }
0x017de8…017f7c Dummy {f00=0x0007, f01=0x0190, f02=» W ( R V W W PW _ W _ , P P j P X R W d R W ( V V F K R JW W WpW P* F 0 NOT P D T R JW W~_D_ _ F C P R P R W`W _h_j_l @TT R RWH x 2( _
0x017f7c…018110 Dummy {f00=0x0007, f01=0x0190, f02=» R _J_L_NW W V W ( j P V ^| R W W W W B W | B W R W W W W W d R *T R W W W W W : R *Tx F K X P R P R W W8W W F K r R WvWtW W _>
0x018110…0182a4 Dummy {f00=0x0007, f01=0x0190, f02=» RW :W bW P 8_4( ! ( ( MODULE /O /O CLOSE ILLEGAL EOS IN IDENT OBJECT LIB EOV ON OUTPUT FILE,MOUNT NEW TAPE THEN RESTART W R W W W W h V l l , P p R W W W W W V
0x0182a4…018438 Dummy {f00=0x0007, f01=0x0190, f02=» K v R W0W _P_R_T @T R RW x 2( _pW W W W W W.W R FW V _ R W W 2 : V | D N N UF R W W W6W W V W 0 V P 8 R @ V /STD SC_: V /ST , P W& W" W W
0x018438…0185cc Dummy {f00=0x0007, f01=0x0190, f02=»CVEMIN+2 SECONDS ^ ~ 4 PCVEFIT EQU CVESEC+2 FIFTETHS OF SEC ^ & 2 PCVEBTB EQU CVEFIT+2 ALLOCATION TABLE ^ P* P* P* P* & P* FCT FILE CODE TABLE P* , PFCTFC EQU 0
0x0185cc…018760 Dummy {f00=0x0007, f01=0x0190, f02=»F LFI ASSIGNED TO THE FILE CODE l P* ( P* 2 ( P* DCT DISK CONTROL TABLE < . PDCTLG EQU -14 ENTRY LENGTH h F PDCTEB0 EQU DCTLG+2 EVENT BYTE / LOGICAL DISK FILE CODE : PDCTEB1 EQU DCTEB0+2 BUFFER
0x018760…0188f4 (0, 31) Opaque[0x194]
0x0188f4…018a88 # DirEnt {nam=»CSEG8 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0100, f03=0x0000}
0x0188f4…018a88 IdxSect {
0x0188f4…018a88 f00 = 0x0008 // 0x188f4 @0x0
0x0188f4…018a88 f01 = 0x0004 // 0x188f6 @0x2
0x0188f4…018a88 gno = [ // 0x188f8 @0x4
0x0188f4…018a88 [0x00]: C0x0008.0x0.0
0x0188f4…018a88 [0x01]: C0x0008.0x1.0
0x0188f4…018a88 ]
0x0188f4…018a88 }
0x018a88…018c1c Dummy {f00=0x0008, f01=0x0190, f02=» @ 8 N FILE TYPE MISSING FILE TYPE ERROR D A 6 R W W W W W W l R W W W W@ W $W V /LT LM W W, /S ( SC W W Z@ YF UF W R W W W W D W N N W W V W R W W
0x018c1c…018db0 Dummy {f00=0x0008, f01=0x0190, f02=» B &P$ V W W D W 8W _ 0 V P 8WB R W W W W W _> N W 0 V P 8 R @Wx 4 ' ! + @ R WhW W W R R WVW W W G K _. B $ V UFT F > &
0x018db0…018f44 Dummy {f00=0x0008, f01=0x0190, f02=» RN V T. T T P: P4 P6 A R W W W W W8 W W W W + 8 V V < : @ 4 C 4 C 0 I D C C R C F ! C B
0x018f44…0190d8 Dummy {f00=0x0008, f01=0x0190, f02=» X v A X A 8 T ( B B A ^ A ` A b F A l F A x F A F A F A F . A C N C T W < A 0
0x0190d8…01926c Dummy {f00=0x0008, f01=0x0190, f02=»RACK SEC/GRAN INTERLACE P W A 4 W ( @ R W W W W,W 8 W 2 V : _" V P@ , P8 P R V P T T~ P P + _^ _h _r D N " N UF W 0
0x01926c…019400 Dummy {f00=0x0008, f01=0x0190, f02=» R W W W W WZ R T @ T W R _._0_2W WZ Z> R W W W W W@ R @ Q W 1 W ( R W W W W V W P Q W " R W W W WTW R D R W W W W ` W
0x019400…019594 (0, 32) Dummy {f00=0x0008, f01=0x0190, f02=» W _ _ SECTOR # W AGRANTBID 4 W 9 , PH , X Q: Y , Z H ]d V X 4 _ W , W ( R W W W W : W W
0x019594…019728 Dummy {f00=0x0008, f01=0x0190, f02=»,A12 v x PPRT375 EQU * w P RF PRER07 w ( P RF *+2 w H P RF *+2 w f P RF *+2 w PPRT376 EQU * w . P IM S:CUR,A13 NEXT LINE # w P LDKL A1,/20
0x019728…0198bc Dummy {f00=0x0008, f01=0x0190, f02=»PRT379 NOT NEGATIVE,THERE IS A LIMIT w ~ * P* NEGATIVE x 2 " P LD A1,S:CUR,A13 x ` P SUK.L A1,9999 x 0 P RB(5) PRT340 LESS OR EQUAL x B P LDK A1,0 GREATER THAN 9
0x0198bc…019a50 Dummy {f00=0x0008, f01=0x0190, f02=»QU * x " P CW A1,S:CUR,A13 y L P RF(2) PRTEND LIN2 LESS THAN CUR ,THEN END,OTHEWISE,NEXT y 8 & P RB PRT340 LINE y P* y PART390 RF PRT390 y PART600 RF PRT600 y PART400 RF
0x019a50…019be4 Dummy {f00=0x0008, f01=0x0190, f02=» A1,ECBRL,A10 y P LDR A8,A10 z P LDK.L A4,PRT382 z 8 B P ABI C:WREC,A12 WRITE THE 1ST PART OF THE RECORD z PPRT382 EQU * z P RF PRER07 z P RF *+2 z P RF
0x019be4…019d78 Dummy {f00=0x0008, f01=0x0190, f02=» SUK A1,8 MAXLG-8 z L P ADS A1,ECBBF,A8 BEGINNING OF 2ND PART = BEG OF REC -8+MXLG { & " P LD A1,S:LNG,A13 { v P ADK A1,8 { B P SUS A1,ECBRL,A8 REQUEST LENGTH OF THE 2ND PART = { B P*
0x019d78…019f0c Dummy {f00=0x0008, f01=0x0190, f02=» LDR A3,A2 BLANK OUT THE 1ST 8 CHARACTERS { P LDR A4,A2 | < P MS* 4,ECBBF,A8 | P* | P* | P LDK.L A4,PRT383 | P ABI C:WREC,A12 | PPRT383 EQU * | P RF
0x019f0c…01a0a0 Dummy {f00=0x0008, f01=0x0190, f02=»NEXT LINE | r P* } P* } P* } & P* } 0 P* } : P* } D P* } N P* } X P EJECT } b P* } x P* } PPRT390 EQU * } P ADK A7,0 } 2 PPRT395 ABL(0) PRT360 INCORRECT LENGTH } 8 P SUK
0x01a0a0…01a234 (0, 33) Opaque[0x194]
0x01a234…01a3c8 # DirEnt {nam=»CSEG9 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0110, f03=0x0000}
0x01a234…01a3c8 IdxSect {
0x01a234…01a3c8 f00 = 0x0008 // 0x1a234 @0x0
0x01a234…01a3c8 f01 = 0x0002 // 0x1a236 @0x2
0x01a234…01a3c8 gno = [ // 0x1a238 @0x4
0x01a234…01a3c8 [0x00]: C0x0008.0x2.0
0x01a234…01a3c8 ]
0x01a234…01a3c8 }
0x01a3c8…01a55c Dummy {f00=0x0008, f01=0x0190, f02=» Z W R W W W W 8 V : _ W N R _ _"W W D W N W N W LM W 0 V P T _t _~ W , 4 Q ') * _ W W W W` V W Z WH V /L W , Xb Xf W W
0x01a55c…01a6f0 Dummy {f00=0x0008, f01=0x0190, f02=» W R &_ _ W W V 8! B V 9oP V 8 A V : W V < A 9a 4 48D 5 Z H W _t_vW W W W 4 V * +9A P X _ V V Q Q P A Y W _ Z _$ 4 A Z A ?A
0x01a6f0…01a884 Dummy {f00=0x0008, f01=0x0190, f02=» W W R _ _ W W R FW * R W @ * W 2 * 8 & W LM W 0 V P T _t IDENT PRNAME SEGMENTED PROGRAM.PLD COMMAND CANNOT BE USED WARNING:IDENT HAS BEEN PUNCHED ON OUTP
0x01a884…01aa18 Dummy {f00=0x0008, f01=0x0190, f02=» 8 V : _ _$ _, _4 ( 8 R @W V : '( _& D5 LIBRARY R * | W V Yt R _ W _ _ N ! W N W W V W W W F R W W W W WH _ V V P T
0x01aa18…01abac Dummy {f00=0x0008, f01=0x0190, f02=» R W W W W W WF W 4 V # W V TV * R W W W$W W$ W _$ 8WP " 8WB W ` ( v R *T2 W W B W _ W 2 V : V P W _ W R _ _ _ _ _ W V 4 V
0x01abac…01ad40 Dummy {f00=0x0008, f01=0x0190, f02=»_$ V : _ _$ _, _4 ( 8 R @W V : '( _& D5 LIBRARY R * | W V Yt R _ W _ _ N ! W N W W V W W W R W W W W W _ V V P T
0x01ad40…01aed4 (0, 34) Opaque[0x194]
0x01aed4…01b068 # DirEnt {nam=»CSEGA «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0118, f03=0x0000}
0x01aed4…01b068 IdxSect {
0x01aed4…01b068 f00 = 0x0008 // 0x1aed4 @0x0
0x01aed4…01b068 f01 = 0x0002 // 0x1aed6 @0x2
0x01aed4…01b068 gno = [ // 0x1aed8 @0x4
0x01aed4…01b068 [0x00]: C0x0008.0x3.0
0x01aed4…01b068 ]
0x01aed4…01b068 }
0x01b068…01b1fc Dummy {f00=0x0008, f01=0x0190, f02=» W W N R %& 8 V : W W LW W W W W W W p R W W W W W _ W W W W W " R W W W W _ _ V T T( P + ( _ _ 4
0x01b1fc…01b390 Dummy {f00=0x0008, f01=0x0190, f02=»+ ( W F L A F A F A 2 0*********DD: ********* 0*****GENERAL CATALOGUE***** 0****USERIDNT****ADDRESS**** W W W W " R W W W W V PJ N ! 4 # X R W W W W 0 I V D x R W W W W
0x01b390…01b524 Dummy {f00=0x0008, f01=0x0190, f02=» V A $ _ '( _. < W W 0 R W W W W + b W % W R W W W W | W W _$W W W W 4 W *P W R W W W W V 6R 9BR PtQ ( V 8 V : R < W
0x01b524…01b6b8 Dummy {f00=0x0008, f01=0x0190, f02=»*****LIBRARY DIRECTORY********* 0****FILENAME****TYPE****ADDRESS**** 0****OBJECT MODULES****/OB 0 MODULE **USERIDNT****ADDRESS**** W W W W R W W W 0 A j A 4 W W N R W W W W R P* W _0
0x01b6b8…01b84c Dummy {f00=0x0008, f01=0x0190, f02=» j W W R W W W W A j A _ < Y Z < P2 Y < " Y Y W W R OB V 0 USERIDNT ADDR 0 FILENM TP ADDR V ! P : R W W W W O :11 W
0x01b84c…01b9e0 Dummy {f00=0x0008, f01=0x0190, f02=» TABLE Z < PCVEYAR EQU CVELFT+2 CURRENT YEAR, 2 ASCIL CHAR < PCVEMON EQU CVEYAR+2 CURRENT MONTH,2 ASCIL*CHAR N < PCVEDAY EQU CVEMON+2 CURRENT DAY, 2 ASCIL CHAR 4 PCVEHOR EQU CVEDAY+2 HOURS ] @ PCV
0x01b9e0…01bb74 (0, 35) Opaque[0x194]
0x01bb74…01bd08 # DirEnt {nam=»CSEGB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0120, f03=0x0000}
0x01bb74…01bd08 IdxSect {
0x01bb74…01bd08 f00 = 0x0009 // 0x1bb74 @0x0
0x01bb74…01bd08 f01 = 0x0004 // 0x1bb76 @0x2
0x01bb74…01bd08 gno = [ // 0x1bb78 @0x4
0x01bb74…01bd08 [0x00]: C0x0009.0x0.0
0x01bb74…01bd08 [0x01]: C0x0009.0x1.0
0x01bb74…01bd08 ]
0x01bb74…01bd08 }
0x01bd08…01be9c Dummy {f00=0x0009, f01=0x0190, f02=» 6 < W V TY 0 W W A B R W8W6W4W W2 V U. P* R R" V V W r R W W~W W W W W W V V P W W P P D P R W W W W V 0 V! R @ : : V R P0 T V
0x01be9c…01c030 Dummy {f00=0x0009, f01=0x0190, f02=» V W R W W W W N W _~ | R W W W W WZ V V P T T P P W A W W V R T R W W:W W D W D B V V Ph W A UF
0x01c030…01c1c4 Dummy {f00=0x0009, f01=0x0190, f02=» 8 V : + W W N R WnW W WtWz V /OTh V B T^ W x R WDWpWnWl N " N /O BJ CT OB V R4 V P$ W ~ 8 : _ _ _ _( _0 "
0x01c1c4…01c358 Dummy {f00=0x0009, f01=0x0190, f02=» V Z V X W 4 V - N ! V # R _ W W R 4_ V PJ OBDIR W UF W N " N V V P W W _ : W N " N /OBJCTOB W 0 V P4 v 8 r R
0x01c358…01c4ec Dummy {f00=0x0009, f01=0x0190, f02=» R *Pp C V P W _X R _D W C _ C _t W 6 . R _hW W V T C J R _ W _6 W _< : B V T C r R _* W C _ C R _DW W W C C _$ DEL /OB W j n W | W < : N N
0x01c4ec…01c680 Dummy {f00=0x0009, f01=0x0190, f02=» G SEGMENT NBR. ' J 8 : _2 _8 R W WVW W , P P N O T O N V R V O P ( - Y ( | N N LM N O F T" V | ' O F P, T R W$W"W W _
0x01c680…01c814 (0, 36) Dummy {f00=0x0009, f01=0x0190, f02=» " W ( N 9I^D N 9H^L O : R _D W C _ C _t W 6 R _hW W V T C R _ W _6 W _< : B V T C R _* W C _ C R _DW W W C C _$ DEL /OB W j n W | W < : N N
0x01c814…01c9a8 Dummy {f00=0x0009, f01=0x0190, f02=» V : t , ( , ( ! + W W D , ( A R W W W W W V /OT V t , ( a B T W R W W W W N " , ( N /O BJ CT OB , (
0x01c9a8…01cb3c Dummy {f00=0x0009, f01=0x0190, f02=» , ( V W R _ _^W _V UFW V , ( ! /O /ST SCW /L 4 , ( A LM W N " N d , ( a V Z V X W , ( 4 V - N ! V # , ( R _
0x01cb3c…01ccd0 Dummy {f00=0x0009, f01=0x0190, f02=» V P W W _ : W , ( ! N " N /OBJCTOB W $ , ( A 0 V P T , ( a 8 R 0W : OBJECT LIBRARY , ( W 4 # , ( R W W W W W C _ W
0x01ccd0…01ce64 Dummy {f00=0x0009, f01=0x0190, f02=»_t W 6 t , ( ! R _hW W V T C R , ( A _ W _6 W _< : B V T C D , ( a R _* W C _ C t , ( R _DW W W C C _$ , ( DEL /OB W j n W | W , (
0x01ce64…01cff8 Dummy {f00=0x0009, f01=0x0190, f02=» , ( ! 4 W 4P = W , ( A Y : G SEGM 4 , ( a ENT NBR. ' J 8 : _2 d , ( _8 R W W W W , ( , P P N O T O , ( N V R V
0x01cff8…01d18c Dummy {f00=0x0009, f01=0x0190, f02=» ' O F , ( A P R W W W W _ O _ $ , ( a O _ W W W P 8 :" T , ( ! " N P : ( , ( EXIT CODE = , ( N " W ( N 9I^D
0x01d18c…01d320 Dummy {f00=0x0009, f01=0x0190, f02=» kW mW~ oW qW sW uW wW yW } | P P | H D !0 P P W W W W R P0 T Px Wv 8 H D ! 5TF AV EV2 I N OW@ QW` SW< UW: s w { H D ! W W W W W W W W WZ
0x01d320…01d4b4 (0, 37) Opaque[0x194]
0x01d4b4…01d648 # DirEnt {nam=»CSEGC «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0130, f03=0x0000}
0x01d4b4…01d648 IdxSect {
0x01d4b4…01d648 f00 = 0x0009 // 0x1d4b4 @0x0
0x01d4b4…01d648 f01 = 0x0002 // 0x1d4b6 @0x2
0x01d4b4…01d648 gno = [ // 0x1d4b8 @0x4
0x01d4b4…01d648 [0x00]: C0x0009.0x2.0
0x01d4b4…01d648 ]
0x01d4b4…01d648 }
0x01d648…01d7dc Dummy {f00=0x0009, f01=0x0190, f02=» H V @ A A A A N R P 8 V V : N R W W W W ~ V V P T T P _` A F T 9C9nP 9aP F F " A R W W W W W V V P T T P P _ A ! P
0x01d7dc…01d970 Dummy {f00=0x0009, f01=0x0190, f02=» R , _ , _ , , _* _._ _ _ _ R _ W W W T R _4W W W T & * Q * & + Y P8R. @ A ( A . 8@ 8` K (@ + Y @ K @ @ R _ W W W > V 4 P C Y
0x01d970…01db04 Dummy {f00=0x0009, f01=0x0190, f02=» + FIRST SECOND TYPE BUG W DEB A Z R W W W W , P P T W( V | LM N N F P W R W~W|WzWx D DEB LM 0 V P PZ 8 L R @ N W 0
0x01db04…01dc98 Dummy {f00=0x0009, f01=0x0190, f02=»W # v R _:W W W C _r B " W 2 , N O O T V O O ( " ! " PROCESSOR SYSTEM USER Y P R @ A A 8@ 8` K (@ + Y @ K @ @ R _ W W W > V 4 P C Y
0x01dc98…01de2c Dummy {f00=0x0009, f01=0x0190, f02=» , ( V W R _ _^W _V UFW V , ( ! /O /ST SCW /L 4 , ( A LM W N " N d , ( a V Z V X W , ( 4 V - N ! V # , ( R _
0x01de2c…01dfc0 Dummy {f00=0x0009, f01=0x0190, f02=» N /OBJCTOB W 0 V , ( ! P 8 $ , ( A R 0W : OBJECT LIBRARY W T , ( a 4 # , ( R W W W W W C _ W W , ( ( R *
0x01dfc0…01e154 (0, 38) Opaque[0x194]
0x01e154…01e2e8 # DirEnt {nam=»CSEGD «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0138, f03=0x0000}
0x01e154…01e2e8 IdxSect {
0x01e154…01e2e8 f00 = 0x0009 // 0x1e154 @0x0
0x01e154…01e2e8 f01 = 0x0002 // 0x1e156 @0x2
0x01e154…01e2e8 gno = [ // 0x1e158 @0x4
0x01e154…01e2e8 [0x00]: C0x0009.0x3.0
0x01e154…01e2e8 ]
0x01e154…01e2e8 }
0x01e2e8…01e47c Dummy {f00=0x0009, f01=0x0190, f02=» " ~ z F L T X ` j t n W . R W W W|Wz W V W J R WhWfWdW Wx V V P T T PL PDWR W R W0W.W,W* F P W W0 W W W W W W W $ P 8 V : W V V # R
0x01e47c…01e610 Dummy {f00=0x0009, f01=0x0190, f02=» ' + R _ W W2W W. V OBT$ G F >P _2 B T V UFP Wn R W^W W W K _< W V R W W V P $ P 8 W 2 W 2 : ( 8 R @ ,_ 0_4 , U T W C b R _. C C R
0x01e610…01e7a4 Dummy {f00=0x0009, f01=0x0190, f02=» B V M R _ R 4_ V T. ON V W J R 4W 4 8 V C h R _R_ _ _ V * V K K K T R _ _ K V R$ R _ C B $ X _L =_R
0x01e7a4…01e938 Dummy {f00=0x0009, f01=0x0190, f02=»W W _ _ W W R W W W W W V W Q W Y , T W T : V P$ T MTP MLP TCP TKP TLP _F W R WBW W>W(WL W R4 W R* V ALT L T W _8 W R V _ W W W P j 8 : j P V V PlRv
0x01e938…01eacc Dummy {f00=0x0009, f01=0x0190, f02=» _4 : ( R _ W _ W> B C C c # $ R W W W W V # ( : NO LABEL W j j ` R : : : : : R W W W W < V W , T : V P ( ( ) Y
0x01eacc…01ec60 Dummy {f00=0x0009, f01=0x0190, f02=» ^ R _ h R _$W W _ ' R W ) Y R _DW W W R _ Y ( : V P T MTP MLP TCP TKP TLP _F W R W W W W W W R W R V ALT L T W _8 W R V _ W W W P 8 : j P V V P R
0x01ec60…01edf4 (0, 39) Opaque[0x194]
0x01edf4…01ef88 # DirEnt {nam=»CSEGE «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0140, f03=0x0000}
0x01edf4…01ef88 IdxSect {
0x01edf4…01ef88 f00 = 0x000a // 0x1edf4 @0x0
0x01edf4…01ef88 f01 = 0x000a // 0x1edf6 @0x2
0x01edf4…01ef88 gno = [ // 0x1edf8 @0x4
0x01edf4…01ef88 [0x00]: C0x000a.0x0.0
0x01edf4…01ef88 [0x01]: C0x000a.0x1.0
0x01edf4…01ef88 [0x02]: C0x000a.0x2.0
0x01edf4…01ef88 [0x03]: C0x000a.0x3.0
0x01edf4…01ef88 [0x04]: C0x000b.0x0.0
0x01edf4…01ef88 ]
0x01edf4…01ef88 }
0x01ef88…01f11c Dummy {f00=0x000a, f01=0x0190, f02=» #3` ' .z R W W W W W 8 t _ V V _$ , T _8 t A R W W W W _F _X V , X6 4 MT A R W W W W WD _ V CK V A R W W W W W 0 _ A @
0x01f11c…01f2b0 Dummy {f00=0x000a, f01=0x0190, f02=» * A2 H . A2 H 2 A2 F ! P8 "# # C C ( B @ A3Z VW( @3 t Q W A & A * A 6_< A 6 A . A A ( B ( B @ P( A ( ( ( B A
0x01f2b0…01f444 Dummy {f00=0x000a, f01=0x0190, f02=» T P A : P P + W W 0 N A A N C A A W T A L A _ W R _* W. @ T B @ L @ R X4 B L_@ T( &Q L M _ A A B @ C @
0x01f444…01f5d8 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W0 @ P< B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( f ( A p 6
0x01f5d8…01f76c Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01f76c…01f900 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x01f900…01fa94 (0, 40) Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01fa94…01fc28 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x01fc28…01fdbc Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01fdbc…01ff50 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x01ff50…0200e4 Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x0200e4…020278 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x020278…02040c Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x02040c…0205a0 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x0205a0…020734 (0, 41) Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x020734…0208c8 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x0208c8…020a5c Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x020a5c…020bf0 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x020bf0…020d84 Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x020d84…020f18 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x020f18…0210ac Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x0210ac…021240 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x021240…0213d4 (0, 42) Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x0213d4…021568 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x021568…0216fc Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x0216fc…021890 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x021890…021a24 Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x021a24…021bb8 Dummy {f00=0x000a, f01=0x0190, f02=» W A N " N M:PROCUF W 0 V T W 4 P ) Y : ( R @W j W | H W (" . _ 4 P ' (D R W W W WxW P W 4 4 P _ V ~T j ( R * ) ' ( R W W W W$W P W END 4
0x021bb8…021d4c Dummy {f00=0x000a, f01=0x0190, f02=»)` 8W W 2 W 2 O : 8_ )l 8_. PROCEDURE IN PROCEDURE DEFINITION z ) W r ) . W V ~R ) - W Wx ) * W| V x =Td ) . WZ V ~ QP ) * WT 5 V x ,X` T0WV V ~ P ~ V r ( P 5
0x021d4c…021ee0 Dummy {f00=0x000a, f01=0x0190, f02=» W v H % Y j P ) Y j # * R W W W WlW P W 4 H ( * R FWj_ )( )l ~ h J ( I +6 R W2_ _ _ ~ 8 *| + 8 )( END MISSING 8 )( + ~ H j 4 ( % Y _
0x021ee0…022074 (0, 43) Dummy {f00=0x000b, f01=0x0190, f02=» + , - W 4 4 ,0 . _ Y V x ,D R WJW6 =P _ ,X R W ,b R W,W ,n R W ,x R W W _ , . W + +x T" , . W + ! + _* W , R W , . W _ ( , R W _ _ _ *| +j V x =P - R W W8_ - R W - R
0x022074…022208 Dummy {f00=0x000b, f01=0x0190, f02=» 2 , U O O : W p z ~ 4 T V p $T - R *P - - _2 - V p 4 P : V t V vP % W t W p W ~ W .< R W$ .F R W&W$ =P W ~ V ~Z( 5 _. V ~Q V p W x V p , P P P V
0x022208…02239c Dummy {f00=0x000b, f01=0x0190, f02=» T W P HWr A A ! 9A A A @ ( t <W: & @ Q .X T @ x A P _ N ?a A A A N A N ! A " A @ P A @ @ Z O W O O T _ N T: @
0x02239c…022530 Dummy {f00=0x000b, f01=0x0190, f02=» @ 87P P D b 8 :EOVP ZLW$ $ A v A _r P W R W N t N T T @ NOT ( Jp T q r 9D 9B W 9E A A _r p <A B Y A
0x022530…0226c4 Dummy {f00=0x000b, f01=0x0190, f02=»ADDRESS : DISK I/O ERROR MAG TAPE I/O ERROR END OF RESTORING UNKNOWN ADDRESS COPIED DISK VOLUME LABEL : A P _ N ?a A A A N A N ! A " A @ DATE OF COPY : 01 01 78 WRITING THE VOLUME LABEL ? . CO
0x0226c4…022858 Dummy {f00=0x000b, f01=0x0190, f02=» IN A6 ** x L P LD A2,4,A8 NUMBER OF THE FIRST SECTOR ** 8 L P SUK A2,6 IN FIRST GRANULE THERE ARE ** L P* ONLY 6 S
0x022858…0229ec Dummy {f00=0x000b, f01=0x0190, f02=» THE GRANULE COUNTER IS SET ** x L P LDK A5,2 INCREMENT THE GRANULE COUNTER ** 8 L P AD.S A5,GRANCT ** L P SUK A2,8 DECREMEN
0x0229ec…022b80 Dummy {f00=0x000b, f01=0x0190, f02=» ** x L P LDK A5,0 DIFFERENCE BETWEEN THE ** 8 L P SUR A5,A2 SECTOR NUMBER OF THE GRANULE ** L P* AND THE
0x022b80…022d14 (0, 44) Opaque[0x194]
0x022d14…022ea8 # DirEnt {nam=»TLK «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0168, f03=0x0000}
0x022d14…022ea8 IdxSect {
0x022d14…022ea8 f00 = 0x000b // 0x22d14 @0x0
0x022d14…022ea8 f01 = 0x001a // 0x22d16 @0x2
0x022d14…022ea8 gno = [ // 0x22d18 @0x4
0x022d14…022ea8 [0x00]: C0x000b.0x1.0
0x022d14…022ea8 [0x01]: C0x000b.0x2.0
0x022d14…022ea8 [0x02]: C0x000b.0x3.0
0x022d14…022ea8 [0x03]: C0x000c.0x0.0
0x022d14…022ea8 [0x04]: C0x000c.0x1.0
0x022d14…022ea8 [0x05]: C0x000c.0x2.0
0x022d14…022ea8 [0x06]: C0x000c.0x3.0
0x022d14…022ea8 [0x07]: C0x000d.0x0.0
0x022d14…022ea8 [0x08]: C0x000d.0x1.0
0x022d14…022ea8 [0x09]: C0x000d.0x2.0
0x022d14…022ea8 [0x0a]: C0x000d.0x3.0
0x022d14…022ea8 [0x0b]: C0x000e.0x0.0
0x022d14…022ea8 [0x0c]: C0x000e.0x1.0
0x022d14…022ea8 ]
0x022d14…022ea8 }
0x022ea8…02303c Dummy {f00=0x000b, f01=0x0190, f02=» G H % P % . % A n 1 I n 1 Y ^ :C H A M 4 H R M 4 PB " P :C_ @ 9C E ^ 4 V V ( T # Y$ @ : ( 4 @ D A j A l D ( A ;FR A W H T A Z 2 Z
0x02303c…0231d0 Dummy {f00=0x000b, f01=0x0190, f02=» H A b A h A p % @ 4 A 2 @ 8 A 6 @ < A : @ @ A > @ b @ h A V A d A P A @ l A j Z $P D " X E _ @ P @ 2 A 4 @ 6 A 8 @ : A < @ > A @ @ P Z H Z H % Z Z Z Z
0x0231d0…023364 Dummy {f00=0x000b, f01=0x0190, f02=» Z %2 @ T8 @ P !. !. Z Z Z Z ( _ MR:FC W MR:OPN : D D ! L Qz L , % X P$ P P 4 V G = G 0 G X <A @ BQ( P D G X G = X G X G 4 V
0x023364…0234f8 Dummy {f00=0x000b, f01=0x0190, f02=» X N M N M T - Y V X V ;AP 4 N 4 N MR:RS W MR:GER F % P 4 F P G G 0 1 G T G W F P~ N G G = U V H 4 8 U V L H V V V V V F P 0 G T G F F
0x0234f8…02368c Dummy {f00=0x000b, f01=0x0190, f02=»U V H 4 4 4 W MR:PUR F % P 4 F P F G G F G T G W 9 F TX F PR F U V D x F P 0 G T G F F 4 4 4 W MR:ENR F ! P 4
0x02368c…023820 Dummy {f00=0x000b, f01=0x0190, f02=» 1 G T G W F PH N G G = U V H F Pd 0 G T G F P 4 " F P. 0 G T G F P U V H l 4 " 4 " 4 " W MR:PUW F % P 4 F P F G G F G T G W 9 F T0 F P 0 G
0x023820…0239b4 (0, 45) Dummy {f00=0x000b, f01=0x0190, f02=» G W % U V H F P. 0 G T G F P U V H 4 MR:AR W MR:ASB & P P 4 2 F P F D E T %W ) G G 4 2 W MR:REL & P P 4 D G G P 0 E T E 4 MR:L
0x0239b4…023b48 Dummy {f00=0x000b, f01=0x0190, f02=» 4 *W MR:WAI F R 4 R G < ( B F B ] B P W B P ; R _ D G G 4 R *W MR:INF < ( B 4 MR:RWR W MR:RBR F P $ T 4 F T F P@ 0 G T G F
0x023b48…023cdc Dummy {f00=0x000b, f01=0x0190, f02=» F U V H N G G = 4 4 MR:PC W MR:EXI D ( 4 W MR:DAT @ T I Y 4 6 W MR:TIM @ " T I I Y I < I I 2 I 4 p MR:ES
0x023cdc…023e70 Dummy {f00=0x000b, f01=0x0190, f02=»T( " U V H T X N 4 4 W MR:REW F $ P P 4 p 1 U V H N 4 p # " 'Q R # : A A A A A A A A A A A A A A A A A A A A
0x023e70…024004 Dummy {f00=0x000b, f01=0x0190, f02=»P& L " 0 5 1 L #8 # :* CREDIT CODE LINKER REL 11.0 810513 * * DATE XXXXXX * PAGE 0000 *
0x024004…024198 Dummy {f00=0x000b, f01=0x0190, f02=» UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
0x024198…02432c Dummy {f00=0x000b, f01=0x0190, f02=»UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU IDENT O T:D TRA TOTALS: NOD P:PIL T:FMT P:S001T:KEY S:GT
0x02432c…0244c0 Dummy {f00=0x000b, f01=0x0190, f02=» P B G G . P : < = G T . F P _ F =h P8 T* . F P _ F P _ : & A ' : @ ' : # HT W T W ( < ) = # : # H P n P ( ) =
0x0244c0…024654 (0, 46) Dummy {f00=0x000b, f01=0x0190, f02=» & V H H | V H H V H H
0x024654…0247e8 Dummy {f00=0x000b, f01=0x0190, f02=» ~ V H H V H H |
0x0247e8…02497c Dummy {f00=0x000b, f01=0x0190, f02=» $
0x02497c…024b10 Dummy {f00=0x000b, f01=0x0190, f02=»
[…0x2…]
0x024e38…024fcc Dummy {f00=0x000b, f01=0x0190, f02=» | n n | n n
0x024fcc…025160 Dummy {f00=0x000b, f01=0x0190, f02=» D !
0x025160…0252f4 (0, 47) Dummy {f00=0x000c, f01=0x0190, f02=»# : #~ Z 4 [ ! :f Q P # :b TD A! A! [ T 9h A!"& A!$ T A!& T 9h A!(& A!, A!* ! W P@ P Z P Q0 0P* P$ P T [ # : $ ! H #~ A!D A!` A!f Z NO 3 D S S H
0x0252f4…025488 Dummy {f00=0x000c, f01=0x0190, f02=» ! ! H # @ l @ xW& # @ x @ l @ t @ U A =a>a R, @ V A =A>A A x A l " # : A A p J ; &P _ # : : T : _ # %
0x025488…02561c Dummy {f00=0x000c, f01=0x0190, f02=» : " ' _ # %T # : )P _ [ [ [ [ ; Z [ : [ [ : Z # Z # Z Z Z Z Z Z Z : = $Z % D $j % $t ( ( I/
0x02561c…0257b0 Dummy {f00=0x000c, f01=0x0190, f02=» : : X " : : : G P W l : J A : _ A : _ A : _( A : _4 A : _@ A : d _L A : _X A : r _d A : _p A : _| A : _ A : _ A : _
0x0257b0…025944 Dummy {f00=0x000c, f01=0x0190, f02=» B A t A x A ( C ( C ( C A(` (@ @(` ,l T (b @ X A @ T A dWF A @(`T R2 ]B @ X !CCT A R A ^ C _n Z A Z $P$ D D X D * E _( A P @(`P T&
0x025944…025ad8 Dummy {f00=0x000c, f01=0x0190, f02=» % @(` A'< A'B Z Z _ @ 9CV @ RT DW D A Y A @ j A l @ t A x A A Z Z @ x $P( D X ) #8 - M M _, ) Z $P " #8 ) A _ ) @ d A A R R ^ C C @ 9D % R A ^
0x025ad8…025c6c Dummy {f00=0x000c, f01=0x0190, f02=» : A ( : 2 R B : 5Dv@7 7 > - - 7 ( - 3 #~ @ Z N " T. T Tn B P, B $ PZ B P Y<PL P T T W4 P4 W0 N )P ;M C W # : #~ A,V h
0x025c6c…025e00 Dummy {f00=0x000c, f01=0x0190, f02=» T| b ` b" :A B ;m ) " ) #8 ) ( T B ! T @) ! T A) Z`_ A) WB ! T. b T A) @) ! T _ A) W ! T A) ) # : @) @) @) " T P, @) U + Wv R V $Rp A) A) WB
0x025e00…025f94 (0, 48) Dummy {f00=0x000c, f01=0x0190, f02=»_ _ @) R V$ H b " @) (" :A + : + @) A) _8 R @) b R W ) T W #8 V8 A) ,@ R @) @) A) A) A) R S _P ) : # @) R P S Z R V A) _" # : #~ A- f R @ nR -~_ $:ARL:A
0x025f94…026128 Dummy {f00=0x000c, f01=0x0190, f02=» A T S v S # : @ 9FV@ @ v C E T A YT6W& D E P E DDP R E P D A X -~ _^ _ S Z R Z f S A n : #~ @ 9CV 9IR 4 # : 2 R B_ #~ @ 9L . @ 9C 4 R d C / 0| 0 L r
0x026128…0262bc Dummy {f00=0x000c, f01=0x0190, f02=» 1, 1, 2p 2 ' 2 2 A A A A A A A A r A ~ A A A @ t A x @ 0P A 0 # : R @ P & R P " / @0zP : ,P _ P 6 0| 0 @ :DV W 1, 2p =F =F R
0x0262bc…026450 Dummy {f00=0x000c, f01=0x0190, f02=» $P 0Pj D L , 1 L P L 8 - 9 W6 @ =LR L V( 9 @ =LV X R Y _t X~ A0z_ : (PD (T Z W0 ,P L P ^ P X, X0_ I ( 9 5 ) 4 _D : $P D H R I _ 0 _ : #
0x026450…0265e4 Dummy {f00=0x000c, f01=0x0190, f02=» : P : Pz 9` C T @ @ A @W D C C ( # U : D T A R D C C B U P : 10 10 10 4P _ 4 9 10 # :
0x0265e4…026778 Dummy {f00=0x000c, f01=0x0190, f02=» Z : Z R : #~ | 5 z #8 @ 9C 4 @ T V = 4 dW V = d @ @ A A C | H " 5 . < X P & ;D _ R % ;D @ v 5 H " 5 < 0 5 A 5 t
0x026778…02690c Dummy {f00=0x000c, f01=0x0190, f02=» 4 _@ @ T A A @ P R Z S #8 Z # : : A {P A _ @ TL z x T A R Z S #8 Z _V @ p p . A p A _ _ @ _ @ $ @ v _. > : 6 2 2 @ < 8 4 4 @ T R :h -Q 5x :
0x02690c…026aa0 Dummy {f00=0x000c, f01=0x0190, f02=» @ C @ # # : #~ R 9i @ :LRn 7 : P( 7 7 : P D7 D7 7 R ;a T C :OV C ;NV R Wp 7 : P4 @ <DR" 7 7 : P D7 W 9` 7 ! Z C 9
0x026aa0…026c34 (0, 49) Dummy {f00=0x000c, f01=0x0190, f02=» R P*?A S ?i R : S # : r ~ j v n z 9h9h9h9` 4 4 8 < #~ 2>iP & R W R @ 9C 4 # : z " 2?m z #8 X8,808 z z Pd z @
0x026c34…026dc8 Dummy {f00=0x000c, f01=0x0190, f02=» @ T B T. B P P& Q @ d Q # : _ B_ # 9 9 F 0P ( 1 " P$ " ) # @9 I W P I # : @9 B_ #~ W #~ Q : U 9g D: $ $ T2 @ A Z P Z S S M Z
0x026dc8…026f5c Dummy {f00=0x000c, f01=0x0190, f02=» 4 U 8 5R6Q0 Q, ; _` Q < X T _t W #~ " P W ; V W ; R R T T R Q ; ; ; ; V R T(
0x026f5c…0270f0 Dummy {f00=0x000c, f01=0x0190, f02=» R W : #~ @ D P A @ D T D Z [ A # : A @ Z R P Z S E Z S _< # P, Q B ^ _ @ T C _0 # : #~ $P D D P V L PF =h & >A D R _ " P
0x0270f0…027284 Dummy {f00=0x000c, f01=0x0190, f02=»W C @ T C A p # : # (P:W (P4 H V W P&Q = P _ 5 ( 9 ) = 8 # : B_F <T 5 9 : #~ @ PF R ! @ R P > A @ S R Bd 4z # : #~ R ?* ?< ?* ?R X?n #~ W #~ R
0x027284…027418 Dummy {f00=0x000c, f01=0x0190, f02=»W R ! D? D? P # P Tr T Q !CCP @ P A P @ 9EV 9GR d V C @ P 9 # : 2 R B_ F_ R 0P Y P : P ! P P P Q P :> > ?6?6> ?6> ?6> ?*?6> B C P ^ f b #~ R #
0x027418…0275ac Dummy {f00=0x000c, f01=0x0190, f02=» r D U : W @ ! P& R ! r #8 A A * A ( # : [ A (_ #~ A A * A A r @ (P A ( # : #~ W #~ @ 9h r A ( A C C P6 ' ?A r : r : * r
0x0275ac…027740 Dummy {f00=0x000c, f01=0x0190, f02=»# : # ' ?A BX BV !CCT W2 T W, X ' P" X A T f " P Bb Bb f P4W C C W$ , P - C - A R P Y # : @ C _ b F ^ B f D #~ @ P @ Y A 8Pl X V W Q
0x027740…0278d4 (0, 50) Dummy {f00=0x000c, f01=0x0190, f02=» ( Z @ A t A x A @ 9 R A A 9 R| 'f Z A ^ A B A b A F A n A z A A A A A A V 2 A R A @ j A l A @ .P A . Z $P D " X E _ ` d 'v D A T A d @ :DR$ D @ R A R @ R W R @ VP W ' A V @ VR @ 9DR
0x0278d4…027a68 Dummy {f00=0x000c, f01=0x0190, f02=» j % @ d @ P ( A P A A ` A ( A % @ d X ) A d ( @ T @ l A j : A _ D ? :n f S n S A n @ PP. A' @ PR A' Z A P:A H' A' Z : R ^ P D C j A : E $ R ^ " P C _ :
0x027a68…027bfc Dummy {f00=0x000c, f01=0x0190, f02=» * / #~ R ( @ l ( # : #~ f S Z P R #8 S _ # : f S S U W S #8 Z S 4 S R Z : #~ A*d f R @ nR * _ $:ARL:ARB H v " v $ D @ n R
0x027bfc…027d90 Dummy {f00=0x000c, f01=0x0190, f02=» E T A YT6W& D E P E DDP R E P D A X * _^ _ S Z R Z f S A n : #~ @ 9CV 9IR 1 # : 2 R B_ #~ @ 9L + @ 9C 1 R d C , -Z - L r 4 9 4 r j . L ~ 4 9 4
0x027d90…027f24 Dummy {f00=0x000c, f01=0x0190, f02=»/ A A A A A A A A r A ~ A A A @ t A x @ 0P A 0 # : R @ P & R P " , @-XP : ,P _ P 6 -Z - @ :DV W . /N : : R Z S #8 Z Z / / '
0x027f24…0280b8 Dummy {f00=0x000c, f01=0x0190, f02=» L 8 - 9 W6 @ =LR L V( 5 @ =LV X R Y _t X~ A-X_ : (PD (T Z W0 ,P L P ^ P X, X0_ I ( 9 5 ) 4 _D : $P D H R I _ - _ : # H T" I $P D H R I _ - _ # :
0x0280b8…02824c Dummy {f00=0x000c, f01=0x0190, f02=» 6> C T @ @ A @W D C C ( # U 7| D T A R D C C B U P 7| . . . 4P _ 4 9 . # : $P D H ^ E _ $P D H ^ E _ :
0x02824c…0283e0 Dummy {f00=0x000c, f01=0x0190, f02=»1 z #8 @ 9C 1| @ T V 9 1 dW V 9 d @ @ A A C | H " 1 . < X P & ;D _ R % ;D @ v 1 H " 1 < 0 1 A 1 t H " 1 < 1P T A @ P&
0x0283e0…028574 (0, 51) Dummy {f00=0x000d, f01=0x0190, f02=» #8 Z # : : A {P A _ @ TL z x T A R Z S #8 Z _V @ p p . A p A _ _ @ _ @ $ @ v _. > : 6 2 2 @ < 8 4 4 @ T R :h -Q 2V : @ T 1 2 R B :;.; ; ; 2 2J2J2J2 2 2 2 2 2
0x028574…028708 Dummy {f00=0x000d, f01=0x0190, f02=» 4~ 6 P( 4v 4 6 P D4 D4 3 R ;a T C :OV C ;NV R Wp 4~ 6 P4 @ <DR" 4 4 6 P D4 W 6> 3 ! Z C 5 W "0 @ C C @ # # : #
0x028708…02889c Dummy {f00=0x000d, f01=0x0190, f02=» 7| S # : r ~ j v n z 6F6F6F6> 4 4 8 < #~ 2>iP & R W R @ 9C 1 # : z " 2?m z #8 X5 5 5x z z Pd z @ T :$ @ <CV C @ <CV : C P C $
0x02889c…028a30 Dummy {f00=0x000d, f01=0x0190, f02=» Q # : _ B_ # 5 5 F 0P ( 1 " P$ " ) # @5 I W P I # : @5 B_ #~ W #~ Q 6 U 9g D6 $ $ T2 @ A Z P Z S S M Z 8 :a # R R S Z _ S <H
0x028a30…028bc4 Dummy {f00=0x000d, f01=0x0190, f02=» Q, 8b _` Q < X T _t W #~ " P W 8x V W 8x R R T T R Q 8 8 8 8 V R T(W #8 Q P R Zf _n R
0x028bc4…028d58 Dummy {f00=0x000d, f01=0x0190, f02=» D Z [ A # : A @ Z R P Z S E Z S _< # P, Q B ^ _ @ T C _0 # : #~ $P D D P V L PF =h & >A D R _ " P W 7| " P W D
0x028d58…028eec Dummy {f00=0x000d, f01=0x0190, f02=» N " T. T Tn B P, B $ PZ B P Y<PL P T T W4 P4 W0 N )P ;M C W # : # (P:W (P4 H V W P&Q ;" P _ 5 ( 9 ) ;" 8 # : B_F <T 5 9 : #~ @ PF R !
0x028eec…029080 Dummy {f00=0x000d, f01=0x0190, f02=» #~ R ! TR @ P D= D= (P* H ;AZ H P # X P T A , ? W| < P < X< W R ! D= D= P # P Tr T Q !CCP @ P ? P @ 9EV 9GR d V C @ P 5 # : 2 R
0x029080…029214 (0, 52) Dummy {f00=0x000d, f01=0x0190, f02=» * & S PD " @ r D U 7|W A ( @ ! P ! @ r ) A @ ( R` @ r D U 7|W @ ! P& R ! r #8 A A * A ( # : [ A (_ #~ A A * A A r @ (P A ( # :
0x029214…0293a8 Dummy {f00=0x000d, f01=0x0190, f02=» * r C @ # R 3 #~ = RJ @ r D " :AT 9h P _ R " S P 9H R @ r 2 # : # ' ?A ? ? !CCT W2 T W, X ' P" X A T f " P ? ? f P4W C C W$ , P
0x0293a8…02953c Dummy {f00=0x000d, f01=0x0190, f02=»W Q V W Y" X P X P* @ P 4# ! 5 X T A A W 5 ( 8 ) 9 + _r # :
0x02953c…0296d0 Dummy {f00=0x000d, f01=0x0190, f02=» F .R F 0P F *Q &Z G . F .?DV ?d' & G . 2 F M M G =T p M P G * : F * F 0R 2 R&P 0 G * G * F M M _, : F 1 I I G * G ( ' F .>A ' + ' F n
0x0296d0…029864 Dummy {f00=0x000d, f01=0x0190, f02=» * 2 ' F 0 U U F .?BV F X ,?d'> ( " #8 U 2 U G * F .?CV@ F X ,?A'> ( " #8 U 2 U G * G . G / : F - n " p U U G * : G . G / :
0x029864…0299f8 Dummy {f00=0x000d, f01=0x0190, f02=»! ( _()0 :R ' :)V)`)j)v) ) ) ) ) ) ) * * *.*X*~* * * * + +X+j+ + + + + + + , , ,2,L,d,h,|, , , , , - - -B-&-2-L-f. - - - ..- - - . -B-2-L-f- - - - - - . . . - - .B.X.h.z. LOAD MAP LB TABLE CALL TABLE PERFORM TABLE LITERAL POOL CROSS REFERE
0x0299f8…029b8c Dummy {f00=0x000d, f01=0x0190, f02=»P LINKER STATISTICS TOTAL (SEGMENT LOC MODULE COMMENT $LOC DATA IX SYMBOL DEFINED IX TYPE LOC DATA 0SYMBOL TYPE VALUE SEG-DEFINED REFERENCES ALL VALUES DECIMAL < S E G M E N T N U M B E R O
0x029b8c…029d20 Dummy {f00=0x000d, f01=0x0190, f02=»INPUT LOAD ADR INCORRECT UNREFERRED LITERALS UNDEFINED LITERALS NO START ADR DBL DEF MODULES UNSATISFIED EXTERNALS MODULE LENGTH ERROR TRANSLATION ERRORS WRONG TRANSLATOR RELEASE ADDRESS TABLE OVERFLOW TOO MANY LITERALS FORMAT LENGTH ERROR
0x029d20…029eb4 (0, 53) Dummy {f00=0x000d, f01=0x0190, f02=» NOD SEQUENCE ERROR FLINK ERROR CALL TABLE PERFORM TABLE LB TABLE LITERAL DESCRIPTOR TABLE PICTURE DESCRIPTOR TABLE FORMAT DESCRIPTOR TABLE LITERAL POOL SIZE PICTURE POOL SIZE FORMAT POOL SIZE INTERPRETABLE CODE SIZE PROGRAM LENGTH = NUMBER O
0x029eb4…02a048 Dummy {f00=0x000d, f01=0x0190, f02=» MAX WORKSPACE PER MODULE SEGMENT SIZE PERCENTUAL USAGEPROGRAM LENGTH =LINKAGE ERROR : : XXX.XXX BYTES, XX.XXX ENTRIES : XXX.XXX BYTES, XX.XXX % TLK.ERR. U6 r # T V u0 ' 1 9d A/$ 1 d 1 1 A/& @/"Px!
0x02a048…02a1dc Dummy {f00=0x000d, f01=0x0190, f02=» A/$ A/ A/" /% /( (| /' R W ( /-P !00X R !00P P /+TZ $ Q* R - !..TH R + ! T< R , ! T2 S -W( R !..T R T R ! T S % ( /-P _ % # : /& R R ` R :l
0x02a1dc…02a370 Dummy {f00=0x000d, f01=0x0190, f02=» j @ G A t A x A @ @ P /6 : A S A W Z ?H/ 4l Tr Q / 3 3 3 3 3 3 3 3 /@ 3 U`/ 3 4 8" R ^ " @ A T
0x02a370…02a504 Dummy {f00=0x000d, f01=0x0190, f02=» 7 A < W < T U`/ 3 3$ Z P ,P !. @ M A Q A @ M A Q A @ M A A A A : # A34 A3^ Z 3 S S @ S @ S S Z # : # > @ T U`
0x02a504…02a698 Dummy {f00=0x000d, f01=0x0190, f02=»#8 > V ' @3 # A3 > R :R8W @3 P.> > & 3 @3 S :a S @3 A4^ Z A3 # : # # A4 Z " n #8 ?h #8 S A4 Z # : j n v z 2 4 6 8 > @ # @ @ P 4 4 ? > P L A
0x02a698…02a82c Dummy {f00=0x000d, f01=0x0190, f02=» > P K a o W K @ : A 4 > P F q P > W F P > @ 4 # : j n # @ P @ A6 5 A> @ A6 @6 A H 5 A> @ A6 @6 A J T A> @ A6 T @6 A L 5 A> @
0x02a82c…02a9c0 Dummy {f00=0x000d, f01=0x0190, f02=»5 < R ^ " @ C T 3f e 6 > 6 > > @ Q T 3f e 6 > 6 > > T* 3f e 6 > 6 > > @ Q T 3f e 6 > 6 > > # : # 9a :a ; S < S
0x02a9c0…02ab54 (0, 54) Dummy {f00=0x000d, f01=0x0190, f02=» Z DN # : 2 0 T PD R( "0 # 0 C P C P C _, @ P @H_ Z P " %W " # 0 C P C _ Z 2! P( ! P ! R A _& C| > _8 R ! R R 9
0x02ab54…02ace8 Dummy {f00=0x000d, f01=0x0190, f02=» 4# ! 5 X T A A W 5 ( 8 ) 9 + _r # : # @ V Z D: Z Z 8 ; U @ ;h Z (| X V * " Wr X 9AV" (| (|WH X L T X " G W" (|
0x02ace8…02ae7c Dummy {f00=0x000d, f01=0x0190, f02=»C Z X X VL H 9a @ / 3 / > X R / $ $ > :L9AR H XZ H V % > % R > :L # : # 8P* X ^ X % > & % > A &_. # :<b<~< < < < ) ).)H # '
0x02ae7c…02b010 Dummy {f00=0x000d, f01=0x0190, f02=» # W # W # Z X< Z Z A<Z @<Z X<NV Z <H " #8 X<< 0 P" P P . W . #8 @ P % " ) X<B $ T P /* / /, /" $ T 9A P 9a T /6
0x02b010…02b1a4 Dummy {f00=0x000d, f01=0x0190, f02=» Z (| #8 (| | H " P T #8 Z DF # : ; % <P %_ : : # @ P > = R @> @> T$ H > @ * S S S = R = 9 R*% W(9 V ;a A> A
0x02b1a4…02b338 Dummy {f00=0x000d, f01=0x0190, f02=» S @? A? Z A> A> # : # "P _ P # : # P, Q B ^ _ @ T C _0 # : #~ $P D D P V L PF =h & >A D R _ " P W F " P W D
0x02b338…02b4cc Dummy {f00=0x000d, f01=0x0190, f02=»#~ A@ @ V Z T@ Z Z 8 B X ^ @ VV Z " T (| X 9l9B @@ @ A: #8 (| T R Z _ Q W: X ' @ P W ! 9A G( Q W A6 A< AA8 ]
0x02b4cc…02b660 Dummy {f00=0x000d, f01=0x0190, f02=» _ Q @ V B Z Ah @A8 @ ^ B Z Z _ # : #~ @A: DCtPf A< A< N " ' " ! P< " !AAR ! 9D " !AAR ! R ^R . ' _D " ' # :PISTFM # (P:W (P4 H V W P&Q C P _ 5 ( 9 ) C
0x02b660…02b7f4 (0, 55) Dummy {f00=0x000e, f01=0x0190, f02=» E I E E E I E E E # W # ADD 8 Ex @DDT" P $ X P 8 Ex Dd Z @DDP P . #8W * " DB /6 D " !WWP A DB #8 4VP DB=l $ % P P" /6W$<bP W
0x02b7f4…02b988 Dummy {f00=0x000e, f01=0x0190, f02=» 8 5R6Q0 Q, F _` Q < X T _t W #~ " P W F V W F R R T T R Q G( G( G G V R T(W #8 Q
0x02b988…02bb1c Dummy {f00=0x000e, f01=0x0190, f02=» W : #~ @ D P A @ D T D Z [ A # : A @ Z R P Z S E Z S _<
0x02bb1c…02bcb0 Dummy {f00=0x000e, f01=0x0190, f02=» 1$ 00 TLK.ERR. # Av A t A x A @ @ TD A A $ 3 Z 2L A A $ 6z Z 8 =n @ P * @ T 2 Z 7 @ T T @ P W :~ @ ?a @ A 7 A @ A 3 <D P 1& /6 1 ( A1 ( @ P& +X
0x02bcb0…02be44 Dummy {f00=0x000e, f01=0x0190, f02=» 3t 2 Z ! J Z A2H_Z 3t A2H_d 3P 3Pj_: 2$ <A ]H z " 4?m z #8 z 5 P $P _ "0 C _^ 4V W >AX R _ T , L X L L T 5_( G _0 @2HV Z Z T S #8
0x02be44…02bfd8 Dummy {f00=0x000e, f01=0x0190, f02=» eh @@ 3 $PNR dR ( > _ H 3 ";L @@ > ( $ $ > _T R $P. D ' X ( > > > _2 > ? # : # # A4 Z " n #8 ?h #8 S A5 Z # :
0x02bfd8…02c16c Dummy {f00=0x000e, f01=0x0190, f02=» N )P ;M C W # : 2 : 6 > 6 6 6 6"6*626:6B6J6R6Z6b6j6r P:END T:FMT T:PIC T:KEY T:LIT T:PAT T:CAT T:BAT P:BAS I:NTPA U:BTAB T:ATAB S:BTAB I:RST #
0x02c16c…02c300 Dummy {f00=0x000e, f01=0x0190, f02=» $ > _T > ? # : # 9a :a ; S < S dR _ Q R _ # : I E I I W I E E E I E E E E I E E E I E E E # W # A7~ 8 8 @7~T" P $ X P 8 8 7 Z @7~P P . #8W * "
0x02c300…02c494 (0, 56) Dummy {f00=0x000e, f01=0x0190, f02=»W (|W <bT ( " 7| #8 Z 7 # : # A8 A8 A Z P R Z _ # : T A8 W 3P @8 :" Z T S #8 2 Z ! T @8 Xl A ? _v ! | Z $P& H X ?a @/ @@_*
0x02c494…02c628 Dummy {f00=0x000e, f01=0x0190, f02=» z 5 B ! X $P _ "0 C A8 _d 3TN 2$ <A 4 $P0 ( V S W* R >A_ % H H U H L 5_ S A8 9 BPC # Z Z Z Z 8P X T Z Z $ X* Z ?m #8 P S S ! 9bT
0x02c628…02c7bc Dummy {f00=0x000e, f01=0x0190, f02=» #8 & @ 8 # :; ; ; ; < <&) ).)H # ' # # # ' # ' # # ' L ` h d l H J L N ` d p H J N # W # W # Z X; Z Z A; @
0x02c7bc…02c950 Dummy {f00=0x000e, f01=0x0190, f02=» $ T P /* / /, /" $ T 9A P 9a T /6 P P ; W + /6 Z P Z A; _ # : # Z Z Z Z R 8P Z A=h X % (| X 9h S /6 X ! P X
0x02c950…02cae4 Dummy {f00=0x000e, f01=0x0190, f02=» #8 =h /6 =j + /6 =l 3 /6 Z # : # @ P > = R @> @> T$ H > @ * S S S = R = 9 R*% W(9 V ;a A> A 9 = V S = V S ;a A> = V A = V U A> W^ @> PV @> 9a :A
0x02cae4…02cc78 Dummy {f00=0x000e, f01=0x0190, f02=» ^ " T" ? $R ( > _ > # : # A@ A@4 Z 3 S S @ S @ S S Z # : # @> @@< T ! A@b Z @>> RN @< 9 ! A@< 9E T ) ' #8 > V ' @@<# A@<> R :R8W @@< P.> > & 3 @@< S
0x02cc78…02ce0c Dummy {f00=0x000e, f01=0x0190, f02=» #8 ( G /6 ) ' _` P P Z # :
0x02ce0c…02cfa0 Dummy {f00=0x000e, f01=0x0190, f02=» V W QT V W Y" X P X P" 4# ! 5 X T A" A" W 5 ( 8 ) 9 + _j 6 :
0x02cfa0…02d134 (0, 57) Opaque[0x194]
0x02d134…02d2c8 # DirEnt {nam=»TRA «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01d0, f03=0x0000}
0x02d134…02d2c8 IdxSect {
0x02d134…02d2c8 f00 = 0x000e // 0x2d134 @0x0
0x02d134…02d2c8 f01 = 0x001c // 0x2d136 @0x2
0x02d134…02d2c8 gno = [ // 0x2d138 @0x4
0x02d134…02d2c8 [0x00]: C0x000e.0x2.0
0x02d134…02d2c8 [0x01]: C0x000e.0x3.0
0x02d134…02d2c8 [0x02]: C0x000f.0x0.0
0x02d134…02d2c8 [0x03]: C0x000f.0x1.0
0x02d134…02d2c8 [0x04]: C0x000f.0x2.0
0x02d134…02d2c8 [0x05]: C0x000f.0x3.0
0x02d134…02d2c8 [0x06]: C0x0010.0x0.0
0x02d134…02d2c8 [0x07]: C0x0010.0x1.0
0x02d134…02d2c8 [0x08]: C0x0010.0x2.0
0x02d134…02d2c8 [0x09]: C0x0010.0x3.0
0x02d134…02d2c8 [0x0a]: C0x0011.0x0.0
0x02d134…02d2c8 [0x0b]: C0x0011.0x1.0
0x02d134…02d2c8 [0x0c]: C0x0011.0x2.0
0x02d134…02d2c8 [0x0d]: C0x0011.0x3.0
0x02d134…02d2c8 ]
0x02d134…02d2c8 }
0x02d2c8…02d45c Dummy {f00=0x000e, f01=0x0190, f02=» $Q Q 44 $ . 44 6 p 44 G D Jx W Jx Jx ` 44 e :C H A M D H R M D PB " P :C_ @ 9C E ^ D V V ( T # Y$ @ J ( B A T b 9o A
0x02d45c…02d5f0 Dummy {f00=0x000e, f01=0x0190, f02=»U A ` Q b @ H @ Z A @ P A A A @ Q /^ ' @/ A : A A( )( @ P A A @ A/ W D 0 @ A Z A 0 A A ~ A A A A A : 0 @ @/ 0( A Z 04
0x02d5f0…02d784 Dummy {f00=0x000e, f01=0x0190, f02=»Q ( ' _N?b / @ U A A @ A @ ^ A Z_v @ @ P 0L @ R 0X @ / P P : T : _&0d0p @ P R V T @ ,R : @ P j V @ RP V P X V T @ T A
0x02d784…02d918 Dummy {f00=0x000e, f01=0x0190, f02=» F @ T ! Ph A 0| ! PZ 0 @ P ! PJ A @ T % P< 0 W2 @ |P A | ! P"% T 0L /^ W % T 0L : @ = V A 0 @ T @ P : * P P ( AZ 2 AZ 2 09 2 .. 2 P P 2 P P P '' z
0x02d918…02daac Dummy {f00=0x000e, f01=0x0190, f02=»Qp @ <aP MU M : $ P /^ A ,W* A , U /^ @ T @ V4 $ U /^ P A P @ V> @ P zW h $ IQb T P @ IV2
0x02daac…02dc40 Dummy {f00=0x000e, f01=0x0190, f02=» /^ A A @ A$ @ T A : : Q : Q Q R R R R,R8RDRPR RhRhRhRvRhRhRhRhRhRhRhRhRhRhRhRh
0x02dc40…02ddd4 (0, 58) Dummy {f00=0x000e, f01=0x0190, f02=» IDENT MODNAM TRA XX.Y - - F1 O1111 = , ( , ) ) , , & , C
0x02ddd4…02df68 Dummy {f00=0x000e, f01=0x0190, f02=» * 09 L AF L ' ` * , ! A+ - * ' | * ' | * , " B+ - * AZ AZ 09 .. AZ AZ 09 .. , EQV 0 TERM 0 TWB 0 UWB 0 CWB 0 SWB 0 DWB 0 DSET 0 START 0 REENTER 0 ST
0x02df68…02e0fc Dummy {f00=0x000e, f01=0x0190, f02=» 0 ADD SUB MUL DIV DVR DIVR MOVE `MMOVE dCMP XSET A nCLEAR @ nTEST C nXCOPY j zCOPY b pEDIT ` EDSUB l INV B nIB 6 @B W TBZ P TBP Q TBN R TBOFL S TBNZ T TBNP U TBNN V
0x02e0fc…02e290 Dummy {f00=0x000e, f01=0x0190, f02=»BBEOD S TBNOK T TBNEOF U TBNERR V TTBT I TBF H CBE CBG " CBL $ CBNE ( CBNG * CBNL , CALL 0 RET 4 INSERT d INSRT d MATCH h DELETE f DLETE f EXIT 0 PAUSE 0 KI 0 NKI 0 RSTRT 0 USE 0 UNUSE 0 ACTV
0x02e290…02e424 Dummy {f00=0x000e, f01=0x0190, f02=» 0 DELAY 0 8SETTIME0 <GETTIME0 <GETDATE0 <SETDATE0 <GETID 0 TFWD 0 TBWD 0 THOME 0 TLEFT 0 TRIGHT 0 TLDOWN 0 TDOWN 0 TUP 0 DUPL 0 <GETABX 0 8SETCUR 0 GETCTL 0 ^TSTCTL 0 dGETFLD 0 hDISPLAY0 pERASE 0 pPRINT 0 xDYKI 0 UPDFLD 0 EDFLD 0
0x02e424…02e5b8 Dummy {f00=0x000e, f01=0x0190, f02=»LLBCK0 8CONNECT0 DISCNCT0 SEND 0 :RECEIVE0 : ' W # S ' G O O ' W 0 U O O $ 0 1 2
0x02e5b8…02e74c Dummy {f00=0x000e, f01=0x0190, f02=» O n Q o L X X 4 : > H T Q r 1
0x02e74c…02e8e0 Dummy {f00=0x000e, f01=0x0190, f02=» 1 2 3 4 B T 1 1IDENT EJECT SPACE LIST XNLIST rDDIV DDUM OPTNS 1|CON 1 PERF 1 PERFI 1 PLIST 1 END 1 FTABLE 1 INCLUDE 1 KTAB 1 FRMT 1 FM
0x02e8e0…02ea74 (0, 59) Dummy {f00=0x000f, f01=0x0190, f02=» 2|FUL 2 FNUL 2 FEXIT 2 FBZ 2 FBP 2 FBN 2 FBNZ 2 FBNP 2 FBNN 2 FB 2 FBF 3 FBT 3 FSL 3 FNL 3(FKI 34FINP 3@FEOR 3LFRET 3XFMEND 3dENTRY 3pEXT 3|EXPROC 3 EQU 3 PROC 3 PFRMT 3 PKTAB
0x02ea74…02ec08 Dummy {f00=0x000f, f01=0x0190, f02=»LATOR REL 01.1 761007 * * IDENT AAAAAA * DATE XXXXXX * PAGE 0000 * DATA DIVISION PROCEDURE DIVISION PROCEDURE LABELS DATA ITEM NAME TABLE nLOC OC OPERANDS LINE LABEL OPCODE OP
0x02ec08…02ed9c Dummy {f00=0x000f, f01=0x0190, f02=»ERANDS COMMENT C lNAME REF TYPE NAME REF TYPE NAME REF TYPE NAME REF TYPE IX TYPE VALUE PROGRAM LENGTH = ERROR = REL 11.0 810514 * # @ Pn $ T < ! T` @
0x02ed9c…02ef30 Dummy {f00=0x000f, f01=0x0190, f02=» PP U A 6 !0 R, !9 Q&$ P 4S _ & @ W W : 9l:D 0 :R = : | Q2 T W. 6 !0 R" !: R !A R !F Q $ =D _2 | :END PDIV DDUM IDENT FRMT FMEND PEND **
0x02ef30…02f0c4 Dummy {f00=0x000f, f01=0x0190, f02=» /^ ( ' : @ ! V & P #z # : @ ! Q & P P #z # : W @ ! Q A < ! P @ Q A 1 @ Q /^ : @ ! Y A " ! T /^ : D ^ ] : @( ) A( A Z : @
0x02f0c4…02f258 Dummy {f00=0x000f, f01=0x0190, f02=» V <D, A( ( Y : /^ : A A @ 9a @ R:a R @ T:a V @ @ : A /^ ( ' ( T : ' _ A @ B Q x z * 4 TR zW x B @ x * 4 TY P z_P R
0x02f258…02f3ec Dummy {f00=0x000f, f01=0x0190, f02=» T # A#F_. # *)@ + A#F_D * 4P Q P _ W @#H R #X # A#H # : #z | ^ U | | : n R _ $ : 0 4T Y ::a Y : @ ,U4 @
0x02f3ec…02f580 Dummy {f00=0x000f, f01=0x0190, f02=» P 4(W PW 6 ! P /^ : : 6 ! P / : #z $ A R P P R* / W( @ zP" @ ! P W T / W / $0P A Wn P $ P / @TT $ A#R A T2 @ P A n
0x02f580…02f714 (0, 60) Dummy {f00=0x000f, f01=0x0190, f02=» A P @ R P @ P ! P P P V @ ! T P U U W" ! P P U !2 P ", @ A P F P ^ " P: 6 !+ P !- P P Q
0x02f714…02f8a8 Dummy {f00=0x000f, f01=0x0190, f02=» @ T W @ A Q W. 6 !- P !+ T P P @ Y =h 9 W @ T " @ # P P, 6 !0 R !9 U !A R !F Q % W W P 3 T <D_B 9 A _R @ @ ! T" *>H J V >d _ K >h +
0x02f8a8…02fa3c Dummy {f00=0x000f, f01=0x0190, f02=» : A#F #FW A#` #` E E E E E E $ : #FW #` D D D D D D $ : [ [ [ [ ; Z [ Z [ : [
0x02fa3c…02fbd0 Dummy {f00=0x000f, f01=0x0190, f02=» ^ : R _ >D : @$ T : . $ P R P R,P. P _ >hX> : Z ] _$ _ _&MEMORY OVERFLOW SEQUENCE ERROR DIRECTIVE MISSING SYNTAX ERROR LENGTH TRUNCATION MULTIDEFINED UNDEFINED
0x02fbd0…02fd64 Dummy {f00=0x000f, f01=0x0190, f02=»G ILLEGAL VALUE DEF ILLEGAL CONST LENGTHILLEGAL CONST TYPE TOO MANY BLOCKS TOO MANY DATA ITEMS BLOCK SIZE OVERFLOW TOO MANY DATASETS TOO MANY PARAMETERS TOO MANY START STMTSILLEGAL DIMENSION TOO MANY VALUES OUT OF RANGE UNSPECIFIED PARA
0x02fd64…02fef8 Dummy {f00=0x000f, f01=0x0190, f02=»X BUFFER REF @ >aPH @/ZP@ ( ** ' %4 D/F& P _ D/F& * ' ( _F A/Z : # @ =aPb @/ZT @ PJ @ ZPD< V @ & ( ^< V @ ( $ @ U - A( < V M ( )( n ( ^ $` : P W V W # C ( :
0x02fef8…03008c Dummy {f00=0x000f, f01=0x0190, f02=» @( % - A( < Rf @( @ `V < < R0< V* n ( , n 2 . A( n ( ^ : @( =a% @ `R ZH 2 . A( _ 1 . < R W - n , ^ n + . A( @( b $ @( ?d' n , n 2 . - n , ^ n 2 . 0 .
0x03008c…030220 Dummy {f00=0x000f, f01=0x0190, f02=» * P + P +b +n +z +z P + P
0x030220…0303b4 (0, 61) Dummy {f00=0x000f, f01=0x0190, f02=» ,0 ,< ,H ,H , , - - - -
0x0303b4…030548 Dummy {f00=0x000f, f01=0x0190, f02=» . . ., ., .^
0x030548…0306dc Dummy {f00=0x000f, f01=0x0190, f02=»_$ ,( @/ P ?a 9H + , (~ . / ,( A/ : @ =aP" P A/ @/Z V <H U/F A/Z :I/O ERROR FILE = STATUS = ":H / ^ " / ^ 2 . ^ & / . ( 0 . ( @ P
0x0306dc…030870 Dummy {f00=0x000f, f01=0x0190, f02=» _p A J : _| A J _ A J _ A J _ A J _ A J _ A J h _ A J _ A J $ _ A J v _ A J _ Z A J _ A J _ A J _( A J B _4 A J J _@ A J * _L A J F _X A J N _d A J d _p A J ^ _| A J
0x030870…030a04 Dummy {f00=0x000f, f01=0x0190, f02=» _ Z A J _ A J _ A J _( A J _4 A J x _@ A J _L A J _X A J _d A J _p A J _| A J _ A J _ A J _ A J _ A J _ A J _ A J _ A J _ A J _ A J , _ Z A J F _
0x030a04…030b98 Dummy {f00=0x000f, f01=0x0190, f02=» _ A J _ A J & _ A J " _ A J _ A J _ A J < _ A J H _ A J N _ A J _ Z A J _ A J $ _ A J * _( A J 0 _4 A J 6 _@ A J 4 _L A J _X
0x030b98…030d2c Dummy {f00=0x000f, f01=0x0190, f02=»4 TRUE 4 T 4 FALSE 4 F 4 @ . ? @ , :<Rr @5/ @ VP 9D 52 =H ( T@ 44 =P P =T . /^W @ . A54 @ .?A A . A52 ? / : T:A000T:D000 *0 :
0x030d2c…030ec0 Dummy {f00=0x000f, f01=0x0190, f02=» F ! P F EQP A4 :B A4 :B & 5F $ >HQ >AR /^ W /^ P /^ J @ A4 A5 A5 A5 9h A5 A5 R 4 0 A 4 R @ > < : A5. @ VP ?D A5* A5, : 4 @5. :V @ !
0x030ec0…031054 (0, 62) Dummy {f00=0x000f, f01=0x0190, f02=»7& @ > = a @ @ > Q A @ A R R( 5< T /^WJ 5/PD /^W< 5. P T A5: 5:W A58 58 5/ ! 5< @5$ P$ < E < 9 @5< 9 < > @ A5. : 5l $ A5$ 5&>HV / W* $ >HZ U /
0x031054…0311e8 Dummy {f00=0x000f, f01=0x0190, f02=» A5 A5" D A5 5 0 ' 5 < @ > 78 A5(W A5( @ , :< 9 :N& :R :J & P @5(T /^W @5( 5/ 5< J F E @5(P A5( A z 4 @ ! P^ N 9 P R @ zQ> @5< 9 R J
0x0311e8…03137c Dummy {f00=0x000f, f01=0x0190, f02=» G P 0 ' : W W W W W W /^ : < FC= < BUFL= =6DEV= < BUFDS= < DSCB= @ , <d <t R $@ <p 5* <fW, @5* @ VP 9j <jW 9f <j 5* @ @5*:D @ VQ
0x03137c…031510 Dummy {f00=0x000f, f01=0x0190, f02=»:xT /^ @:zP: @:v @:t" P( @ 8 D T /^W U /^W @:d . @: P @:dP A:tP /^ @: T* 6 E :` 6 A5, @5, A:t A 8 @5* @ VP ;D 9B @ 8 E :t A5* A : A < A > A @ : W W W /^_ P W W W
0x031510…0316a4 Dummy {f00=0x000f, f01=0x0190, f02=» Z~$@X @5* ] @ VP :D 9B @ 8 D A ;T @:| A:| ;T (=X 09=X(,=j ) 09=j8) W W W ! @56? :B W $ W " A A=L 4 @ VP @50 ? @56 ? @ , :<R R /^ : A=F ! RV
0x0316a4…031838 Dummy {f00=0x000f, f01=0x0190, f02=»=L RF @=D =F T U4 @=D n $ T " P @=JP / @=J A=N @ _> P @=L ! Q / W / @5/ @ VP 9D 50 =H =L ( @=FP @ ! PV @ P @ =L @=J 9 @56 Y =L R @=FP @ 9?H @=D Y Y @=N A56 R A P @ P
0x031838…0319cc Dummy {f00=0x000f, f01=0x0190, f02=»/ W / : @ ! P* @ zQ$ # @ P A@2 0 I $` : @ V4 @4 T@ @ ,P>R@ D T T" : P W /^_, W W W W /^ : AvINDS= A OUTDS=
0x0319cc…031b60 Dummy {f00=0x000f, f01=0x0190, f02=» 6 : @A Tp AA @ @ W @A T AA @ @ W AA AA R8$@P4 @ 8 @ : @ VP 9D :B A @ 8 $"? A _ W W / _ /^ :BVADRMOD= B LITADR= @B P /^W( AB B $ P $ n& : @B T AB T ~ T R X(
0x031b60…031cf4 (0, 63) Dummy {f00=0x0010, f01=0x0190, f02=» P , % P , A X 6 A W V A X V A Y V A Z_ W / _ @ QD @ Q J F E ( * @ R A r * RP _ @ V @ T A A A4 A n ( ^ : @C T. $ >HR( U / AC C : /^ :
0x031cf4…031e88 Dummy {f00=0x0010, f01=0x0190, f02=» DVP< $ >HR$ U / D$ ADV A : / : /^ : AD @ AD AD $ $0P T W $ ! Pv< R&< R2 P Rr W2 P, QdW" ~ TTW TN V !''T V @D $@T AD $0T AD _t D R D : / W
0x031e88…03201c Dummy {f00=0x0010, f01=0x0190, f02=» I @ M @54 M M @ I @ P @ N S AFx J Fz A PP 2 I _ I @ A I @ N A P A R A z : J: J: Fx J: J: : :BTABT:ATAB : T:A000 @ ! P @F P : AF @58;B
0x03201c…0321b0 Dummy {f00=0x0010, f01=0x0190, f02=» % H E _D @ F_( 2 AF 9h AF F L A L A R G F J AFx Fz J LP J: _ J: A I P I _ I @ I @ B AF @ D AF U AF AF HF @ F AF @ H AF S AF AF HF @ B A R : F J
0x0321b0…032344 Dummy {f00=0x0010, f01=0x0190, f02=» I F F P. I " I @F _4 I @ I : ,( F @/ T @ - K K J =A?A R / T^ : R T, ' A Sd : R<W* T - W ' / =A>A?A ' A S8 A S2 R :AR K K A/ :=A?A>A^ A/ K K !
0x032344…0324d8 Dummy {f00=0x0010, f01=0x0190, f02=»/ T <GQ @/ TJ : @,( P <E, # ! T = V A/ :R / : @ ! L 6 < M : J @ : @ 6 AJ AFx Fz <P J: _ J: A @J P 6 " I _ @ 6 AJ J " I
0x0324d8…03266c Dummy {f00=0x0010, f01=0x0190, f02=» 8 @ : M : J AFx Fz @C P C J: D& D$P J: _ J: @ > J A > " I @J @ @9 Q * I @C T I I W I I @DV I P I I
0x03266c…032800 Dummy {f00=0x0010, f01=0x0190, f02=» G P - R C A/ : @/ P =A>A^ A/ C ! / :
0x032800…032994 (0, 64) Dummy {f00=0x0010, f01=0x0190, f02=» 4 LIST 46 ^ $ #z 46 46 ; # P / A : T 4< P . / W @ Z A44 @ Q @ P ( ' @ Z A ^ @44 A Z A
0x032994…032b28 Dummy {f00=0x0010, f01=0x0190, f02=»
[…0x2…]
0x032e50…032fe4 Dummy {f00=0x0010, f01=0x0190, f02=» ; ; I B&B*; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; Kx@>; > ; ; ; ; ; ; ; ; Aj; ; ; ; ; ; ; E G H K +R
0x032fe4…033178 Dummy {f00=0x0010, f01=0x0190, f02=» Z H :H ; ^ 2 . ^ ; . ( 0 . ( DOS SYSTEM ERROR ON ADDRESS = W j 2 V <, , <0 5 V 9D9k D< <z< = >" W( W W W W W W W W W 2 W V # T , 0V U V j : V NO <( @ X 8<h
0x033178…03330c Dummy {f00=0x0010, f01=0x0190, f02=» @ U <( . <4 M - > F G U W D V <H F V # f = Z V = R W W W W ' C = R WdW W W V SCP" OBP LMP UFP <@ K V K K
0x03330c…0334a0 Dummy {f00=0x0010, f01=0x0190, f02=»<@ W @ _ V Q # T <8 : V V , T W W W V : 0 Q Q X*Q R U > V_> ?B_D @ , H Q R W H T T ?BW H T I I Y2 X_ , P P , P P C U T P
0x0334a0…033634 (0, 65) Dummy {f00=0x0010, f01=0x0190, f02=» 4 T C @ R _ _ _ _ B , @ T * ,9cP L2 Y _ :` @ T T P T R ?A?i _ U U U W : W V C @ R W _ _ _ T 4 & C @ R WL_ _ _ B , ,9c
0x033634…0337c8 Dummy {f00=0x0010, f01=0x0190, f02=» V V * 4T _ R ; L:S6 T L:9C # 2 Q A R W _ _ _ V V : W _ W _ V P ;B LA 8 W < B # , P P| Q& P R 9AR Wl B V T C F # C P W
0x0337c8…03395c Dummy {f00=0x0010, f01=0x0190, f02=»? R ? R ? R B W B < B , PX PN P RT T MTP TCP TKT2 ( B :ER ( B P ( Cf R W W W W W B < U T U U _& W W W V C B , X PD P QL QN T 9 R29 RJ T C
0x03395c…033af0 Dummy {f00=0x0010, f01=0x0190, f02=»Db D WxWv_ T TY * < DW ( < _L W W V W V W < D D W$W(W V <_x D D W W _, T TPX>_8 W C _ V B , P P P R W , P* 09AR R EZ P F F G W W W V : L
0x033af0…033c84 Dummy {f00=0x0010, f01=0x0190, f02=» 2 G G F G , P F6 F6 @ U F L ?L F P X EH L =CR =AR F =CRH FzWB F =CR: F W4 F =l P* F W$ ' ' ( J G G G G G G G G G E2 L
0x033c84…033e18 Dummy {f00=0x0010, f01=0x0190, f02=»_ _ W F6 B P8 R R H T H T H P < 6 F6 G G G G G G G G G G G E2 W Q Z P F G V : P G G "P P _ < # @ 2 P P _ :
0x033e18…033fac Dummy {f00=0x0010, f01=0x0190, f02=»IX H R *P I^ H R *T < , T W | < V 8 W I R WLW WHWFWD 1P 1P 0 ) ] V :IDENT IDENT* W _ W G G G T P G F T V _( P # Q V W
0x033fac…034140 Dummy {f00=0x0010, f01=0x0190, f02=» 4 V # JP R W _ _ _ W G W 6 W V F T W V P v Pd P &Qp T P _ V < 4T" < 5 W W Pp U _R _H W V V Px_ V T V W V 4 W V W ]<_ V T8 V 4 W W V
0x034140…0342d4 (0, 66) Dummy {f00=0x0010, f01=0x0190, f02=» 0R 9AR W W @K : L* AL B P @L B R _ : X _$ X _, 2 <_(L L L ; L W" ; L W ; L W Z " [ Z : ! @L Z 9c Z P L U _< :` % _H % _P XV _Z
0x0342d4…034468 Dummy {f00=0x0010, f01=0x0190, f02=» $ VF @ 5Z $ 5Z R $@P T $ P $ P W @ VQ @ XT W @ P $ TB $ T <HRv # P @ @ & Q ;hP / H 7 @ P <CVz Pt 44 T 44 5 R U< / W2 $ P> $ P Fr K @ VP KW F
0x034468…0345fc Dummy {f00=0x0010, f01=0x0190, f02=» 8 8 ?V 8 80 46 A @ JT J` : < AR > Jl < 6H O 6PU 6Z@ 5 6j O D O A D # P #
0x0345fc…034790 Dummy {f00=0x0010, f01=0x0190, f02=» @ ( W@ <A @ $ 5 @5 @ P @5~P @ XP W @ XP 4 5 0 1 $@P W@ $0T $ / _ &<BR &R <CV &<AV n_ & T / @ Q$ @5 P @ 0 @ 4 @ & % @ & A @ T W I @ P E 5 A5 A $ A5 A5| A & A5 A5~ :8LNW, 8VNE,
0x034790…034924 Dummy {f00=0x0010, f01=0x0190, f02=» R $@P @ VP 9D H 7r W / _$:FMTITEM A5 $ : V @ * : V $ ?V 8 T P _ W R> R4 "@Pb P: @ P A "!T( @ VQV TN @ XPHW R $ T W W / @ VP " P W " P " P
0x034924…034ab8 Dummy {f00=0x0010, f01=0x0190, f02=» $ / @P @ U @ T 7 7r: NW, ; SEQ, ;*DIR, ;:CUR, ;JIXSEQ, ;ZIXDIR, ;jPROT, ;zDROP, ; PAS, ; ACT, ; ADDR, ; DC, T: $ PB$ <D F A< < !..T :> . /^ 7 F X A; ; ; : W
0x034ab8…034c4c Dummy {f00=0x0010, f01=0x0190, f02=» F P W0 F A W F A W F C W X A: A; ; ; : W $ P $ T* : @ Q V W E X H 7r $ 7r F $ P A: F $ : @ Q V W E 7r
0x034c4c…034de0 Dummy {f00=0x0010, f01=0x0190, f02=» R > !0P @ V H T 7r @ > > $@T $ > _: @ P A $ T > @ VQ $ Tn @ X > Wd $ > @ PV @ T* @ TB Fr F @ VP< F $ P2 $ P, FW& @5 5 P E 5 A5 A A F @ VQ @ X$ H $ P` A< $ P $0P 7r $
0x034de0…034f74 (0, 67) Dummy {f00=0x0011, f01=0x0190, f02=» 7 W W W W / = @ U &:HR @@ 9B @ " @ @ & ,$ T, L R - W - R Q @ " @ $ Z. W Q L P M W F @ "<" E R @ " @ $ ZH U F W P F 7 @ P @ " @ $ A R @ *P R A
0x034f74…035108 Dummy {f00=0x0011, f01=0x0190, f02=»T @ VP* LW$ A P @ X$ H 7r L A @ T @ X H @ 7r 7 <U / < A#X # H @ R H Y @5|P A @ U8 @ A R @ $ 5 - @#X M . M A $ @5|P - 7r @5 5 P E 5 A5 A L @ X H 7r $ T> @
0x035108…03529c Dummy {f00=0x0011, f01=0x0190, f02=»AP @AP H @AQ<d H 7r W / AP_8 B8.NPROT, B@.PROT, BH.EXCL, BP.IN, BX.SOUT, B`.DOUT, Bh.INOUT, Bp.EXT, < !..Tt <HV A <DR <AV A . / $ C. C. C. C. C. C. C. C.
0x03529c…035430 Dummy {f00=0x0011, f01=0x0190, f02=» @ $ 5 @5 W8 $ P& @ V AA /^ @A 6 ! P T W T H 7r W / <H^ _ # @ ,U> @ P PW0 @5 ) # : >U / > @ P , @ ~R A ~ @ P F* : / _ AC @ AC AC $
0x035430…0355c4 Dummy {f00=0x0011, f01=0x0190, f02=» AC $0T AC _x C 9hP @5zP" C : / W W W &0T $ C :$$$TRA #z @ P> A @ U2 E D F F E E # : "P0 R P"? R ? R T F _6 F : ,( @/ T
0x0355c4…035758 Dummy {f00=0x0011, f01=0x0190, f02=» " @ P R2 & @ P( & @ T @5 P P P T $ @5 @5 G A # : <a$ @5 P * $ P * @ ~ W @ @ & L AF(=N=b G @F( : #z @ @ & @5 P * G # : @/ T <GQ @/ TJ : @,( P <E, # !
0x035758…0358ec Dummy {f00=0x0011, f01=0x0190, f02=» @ T # P X = = W8 Gz @ T R _P 2_T @ ( A @ @ P @5 A & A, : # , . / #r # K K :H K ?a + P$ R @ P ! U 5 #r , (~ : P @ T A & A & @ Q : <C R @ VQ: HH R A R A $ @
0x0358ec…035a80 Dummy {f00=0x0011, f01=0x0190, f02=» # U U : A5 A5 @ Q : AH @5 @ $ 5 @ P4 A 1 5 A5 A $ @H P * Q U A $ A5 : @H P @ VQ"W @ R A $ A5 : W " 5 1 A5 A $ A $ : A A, @ Tl @ A & " $P@ R F R V ! P ! ! T
0x035a80…035c14 (0, 68) Dummy {f00=0x0011, f01=0x0190, f02=» ' A @5 A5 : Z A J & _ A J _ A J _(
0x035c14…035da8 Dummy {f00=0x0011, f01=0x0190, f02=»L APPL= M DUPL= N NUM N,ALPHA NDMINL= NxMAXL= N REWRT N ME N NEOI N NCLR O CTAB O VERIF O2USATTR OJSCHK= AK< 8 K ^ AK" 6p 6 AK< K ^ AK AK
0x035da8…035f3c Dummy {f00=0x0011, f01=0x0190, f02=» @K P Q @K: AK$ W @K: AK$ @K P 9dT @ VP 9A K4 K" @K0 IK" @K1 IK" @K2 IK" K"W$ K @K P Q @K: W W @K: W W AK> H @K>P _ A | 6p 7r @K K AK A5z C T2 A5z K: :hP AK 9H @K<T AK" K AK
0x035f3c…0360d0 Dummy {f00=0x0011, f01=0x0190, f02=» $ K K & K $ <HZ X& @ R R "@TnW Rf$ Pb @ VP K6W K5 @K ! Xh& Xf $ <HZp @ R R "@T$W R P @ VP K8_ K6_ W / _ @K K AK K @K K AK @ AK0 K @K K AK C T @V K0 K
0x0360d0…036264 Dummy {f00=0x0011, f01=0x0190, f02=» AK0 K @K K AK @ AK2 K @K K AK AK2 K @K K AK AK2 K @K K AK AK2 K @K K AK C ^ K2 K 6 W 6 A5| W 6| A5| A A * < !==T CL Q, @5|P H Q, CL A 6t
0x036264…0363f8 Dummy {f00=0x0011, f01=0x0190, f02=»OtW 6 AOtW 6 AOtW 6 AOtW 6 AOtW 6 AOtWz 6 AOtWn 6 AOtWb 6 AOtWT 6 AOtWH 6 AOtW< 6 AOtW0 6 AOtW$ 6 AOtW 6 AOtW 6 AOtW A CL H Ot 6
0x0363f8…03658c Dummy {f00=0x0011, f01=0x0190, f02=»:FMTITEM CL A A 6l 6 C P P @C $ < V A * ?V 8 Jx ( 1T P _ @ VWr @ R2 R($ < $@XD $ T @ VQJ T< @ XP<WJ R<$ < $ P0 J T( J 5 R @ X H 7r W W W
0x03658c…036720 Dummy {f00=0x0011, f01=0x0190, f02=» : @ ,U P T A5 A5 A @ ~Rb A ~ @ Q( @ ~ ) : @ ~ G A 5 A5 : /^_ /^W O O A5 A5 A @ ~ZF A ~ @ Q O _ O @ ~ G A
0x036720…0368b4 (0, 69) Dummy {f00=0x0011, f01=0x0190, f02=» )W4 * @ ~ G W /^ : /^_p $ AM AM T / WD AM @ P: Rz $ P $ P / " @ X! P ** G @M @M n ! r @ P ( G : @ X" P @M AM M : @ P R $@P $ P $ P
0x0368b4…036a48 Dummy {f00=0x0011, f01=0x0190, f02=» R AN C P P W / @ R A A A R R n> Z> @ R N R @ ~R8 A ~ @ Q @ ~ )W0 # >U /^ > < # F*W W /^ : ?D ?P #z @ < V& @O O ^ AO O O
0x036a48…036bdc Dummy {f00=0x0011, f01=0x0190, f02=»:FMTITEM 6F 6 6N A5 @ T A R A 0 @ 4 @ 0 )WT @ 0 @ 4 $ 1 A6L A 0W: 6X A @ T A R A 0 @ 4 @ 0 %W @ 0 @ 4 $1 A6V A 0 6 @ P A 6h A5 _ /^ : A @5 T C P P @C $ < V A * ?V @ R, R"$ < $@P @ VQ
0x036bdc…036d70 Dummy {f00=0x0011, f01=0x0190, f02=»T $ TH $ TB @ P0 F E RW @ P Fr K @ VP K @ X H 7r W W W / _ @ T @ R M @ P ( ' @ P @ U L W AL @ P 0 L @ ! P /^ @L P $ >HRT U / @L T
0x036d70…036f04 Dummy {f00=0x0011, f01=0x0190, f02=» C @MN T ) : /^_ P ) W / @MN_* @ V /^W6 A ( * @ R A r * RP _ : _@ ***WARNING***FOLLOWING FORMAL PARAMETERS ARE NOT TYPE DEFINED:
0x036f04…037098 Dummy {f00=0x0011, f01=0x0190, f02=»N P& $ A <HR U / R T ! P #0 @N ! P # Td $W @N PV @N ) @N !@P6 @ VT0 @ XP* @ P: A H @ ( @ *P P V Q _ n& X : W W W W / $0 & P, $ _0 #z @ Pd P N@ ^ N@ @ ( @ *P H
0x037098…03722c Dummy {f00=0x0011, f01=0x0190, f02=»P, ,,P` )PN P, @ R M A A @ ,R Q /^W @ P < ! P @ =cT P& $ A <HRp U / V VR VH V> $@P $ <HR&;D+ @ A n& X : W / $0 P, $ _$ / _&
0x03722c…0373c0 Dummy {f00=0x0011, f01=0x0190, f02=» - # ( ^ . ( @( Q , A( )( < ( @ ( ^ @/ ( $ )( - # ( ^ )( @/ PD 2 . ^ D . . $ 4 . ( 0 . :TRA.ERR.BIN BCD STR BOL FTB FOR EQU EXT ADR KEY PRO FLB @ VP d $ & 5J D
0x0373c0…037554 (0, 70) Dummy {f00=0x0011, f01=0x0190, f02=» ! P 9 R _ ( W * 9AV MW 9AV U Q( nZ ( _ P ( :
0x037554…0376e8 Dummy {f00=0x0011, f01=0x0190, f02=» P 9 _ Z P 8 0 5 _ 0 5 SJ SJP _0 P 0 5 _ P 0 5 Z Z 6 _ _R _P V ^ 0 1 Y 6 P T R 6 $ P Y 6 U Y R
0x0376e8…03787c Dummy {f00=0x0011, f01=0x0190, f02=» [ Z 6= R Z [ _@ = _ z _2 [ Z Z Q Z Z V ) [ Z 6 (_ w T Z :AV :AR P: Z P> (P: Z Z M Z 9ER ( W [ Z P ( . IO ERROR XX XXXX Z 9H Z
0x03787c…037a10 Dummy {f00=0x0011, f01=0x0190, f02=» P 9 @ 0 A F A H $ <P Q "P A H T A , A 4 P Q A F S @ J A < D @ DP ( A < @ D=!P A D & A 4 A ,_2 @ FP @ J A 4 ( @ @ HP A 4 ( T : Q B _ @ J_ C_ Y 6 U * 2
0x037a10…037ba4 Dummy {f00=0x0011, f01=0x0190, f02=»_P _8 W& 8_( * X V A 2 < T [, * > S S S S P V V @ > v V ,U $ : V Y _ [ T X _$ A * : T_
0x037ba4…037d38 Dummy {f00=0x0011, f01=0x0190, f02=» A V A T S S S S S S S S V ,Q S P A T P" : T R 5 4_ _ _ _ _ _ _ _
0x037d38…037ecc Dummy {f00=0x0011, f01=0x0190, f02=» S : 2 X V 0 4 T : W P 8 T` V : R8 QFPN U A $ A $8 Q @ P S X8 : 2 _L ' F_ X @ : 0 4P 8 :8 W P 8 T P 8
0x037ecc…038060 Dummy {f00=0x0011, f01=0x0190, f02=»S2 : : W _. : X*8 T p _D FW W ! 8 T P<Q V" 8 T . 8 P 8 9 V R _ P 8! 8! _ _ _ _
0x038060…0381f4 (0, 71) Opaque[0x194]
0x0381f4…038388 # DirEnt {nam=»TOSSUT«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0240, f03=0x0000}
0x0381f4…038388 IdxSect {
0x0381f4…038388 f00 = 0x0012 // 0x381f4 @0x0
0x0381f4…038388 f01 = 0x0018 // 0x381f6 @0x2
0x0381f4…038388 gno = [ // 0x381f8 @0x4
0x0381f4…038388 [0x00]: C0x0012.0x0.0
0x0381f4…038388 [0x01]: C0x0012.0x1.0
0x0381f4…038388 [0x02]: C0x0012.0x2.0
0x0381f4…038388 [0x03]: C0x0012.0x3.0
0x0381f4…038388 [0x04]: C0x0013.0x0.0
0x0381f4…038388 [0x05]: C0x0013.0x1.0
0x0381f4…038388 [0x06]: C0x0013.0x2.0
0x0381f4…038388 [0x07]: C0x0013.0x3.0
0x0381f4…038388 [0x08]: C0x0014.0x0.0
0x0381f4…038388 [0x09]: C0x0014.0x1.0
0x0381f4…038388 [0x0a]: C0x0014.0x2.0
0x0381f4…038388 [0x0b]: C0x0014.0x3.0
0x0381f4…038388 ]
0x0381f4…038388 }
0x038388…03851c Dummy {f00=0x0012, f01=0x0190, f02=» . ] : j 0 ,* # +, + RC:
0x03851c…0386b0 Dummy {f00=0x0012, f01=0x0190, f02=» "END OF ; PROGRAM ABORTED BY
0x0386b0…038844 Dummy {f00=0x0012, f01=0x0190, f02=» B B $ A T C A T C B ZVT @ lT J B R [ B : B ; [ H * % A J B A B L ( B Tj @ B! F A F a FP4 @ J T @ H A H R _F P a H A H_T W a H B
0x038844…0389d8 Dummy {f00=0x0012, f01=0x0190, f02=»P I , =Z I , * _: 8 ,>A P 8 Z : ; L , [ A " j , 9 : Z : [ * J / L Z : R < !LLP !XXP : T D @ L 4T 4 6T A j : T @ h A j : @ L 6T T W T @ j A hW
0x0389d8…038b6c Dummy {f00=0x0012, f01=0x0190, f02=»Sd S _4 SN _ SD _: A R Z T T @ RT W" >P T Z Z Z Z : [ _* [ [ Q. , 0R" 9U AR FQ 0 P =D _, [ Z Z : = ! U 9 - Y : [ [ [ [ [ [ [
0x038b6c…038d00 Dummy {f00=0x0012, f01=0x0190, f02=» J T7v ^ Xv V _T W6 [ Z Z Z Z Z Z Z : T1$>EV U2(ZN T T T W T. C @ L 4T 3 6T @ d ) A d TD @ j @ f:B @ f E A f 7v D & @ L 6T
0x038d00…038e94 (0, 72) Dummy {f00=0x0012, f01=0x0190, f02=» @ P r>AV& 54W W | r T A fW T A d @ P @ L 4T T T @ T >BV -Wt>AV -Wl>AVh B j R _ TJ B V@ R6 _ @ T M @ R - B RL M M WB T69 A T B f R& T1$> R > @ L T
0x038e94…039028 Dummy {f00=0x0012, f01=0x0190, f02=» A ' A * J / L A f A d P _ @/ @ j EXT ( H/ P X$_ @ l I/ :a A L A N ;a L1 # A A P A TH #( W0 @ P #( : > M ^ / R 0 ;a;A _ @ L
0x039028…0391bc Dummy {f00=0x0012, f01=0x0190, f02=» R A _. @ L <R A L T @ T S 7< P^Q0 T$ W2FUNCTION NOT IN THIS PACKAGE ; nW ;A @ L H8z , & P J @ L:A H/ A ` H/ A b X & ( J LLPOP SLX TK1 TK2 MT1 MT2 pqCSH FLOGFI
0x0391bc…039350 Dummy {f00=0x0012, f01=0x0190, f02=» P II S R : t @ j AP IP QP : : @ j !NNP !YYP t A P : R l @ @ S : @ L .P 0P T S : S : S : S ( ! T ) : R !IIP !EEP : @ j! P P t A P : @6H" ( " R @ P
0x039350…0394e4 Dummy {f00=0x0012, f01=0x0190, f02=» t A P : NW t @ j CDP" FDP MDP DUT : S : W A : @ j $P WZ 9a D A P : @ j I P ^ : : R I j W$ : @ j! YT A P @ L &T : X : @ j NEX$ EQX,_ @ P @Y$ : A W* A A A A W$ A A
0x0394e4…039678 Dummy {f00=0x0012, f01=0x0190, f02=» P P _ @ T A A W @ P A _ A _ ( ] ' ( = ( ' ( = P P P P _* _0 ( ] @ @ A ( B A A ( @ L 2Pv @( !LLPD !XXP> A A !DDT A
0x039678…03980c Dummy {f00=0x0012, f01=0x0190, f02=» TYPE; P P j 8 D: 8 @ @ P ]( ^ @ ( ] ' ( = ( ' ( = P P P P P _, _2 @ L *T @ L *T ( B C W @ P @ T ( B C @
0x03980c…0399a0 Dummy {f00=0x0012, f01=0x0190, f02=» P W ( @ b Q 9A D: T T 8FATAL DM OPEN ERROR ; FATAL FM OPEN ERROR ; DISC I/O ERROR; ' T @ T *] : @ j DKTj A : @ j DKP WX A : @ j DKX. W6 S DK A H H P
0x0399a0…039b34 (0, 73) Dummy {f00=0x0012, f01=0x0190, f02=» P : @ j @ l "P ^ W C ;b : @ j! YT A P : P Wb _ 0 W 0 W WH : @ j R< I : @ L P$ @ P W @ j! P !P T A P : [ : VW A 2W _ A W< @ P # ( B # TlW IBM LABEL;TOSS LABEL;
0x039b34…039cc8 Dummy {f00=0x0012, f01=0x0190, f02=» & _ j N Z rQ@ , 0P @ X N : %U : : ,! 9D ," : , 0 & N 0_. A R l @ P A ` V m j^ i 00 jR _ a V j ] @ Y : : : R_ _ S : W @ A P
0x039cc8…039e5c Dummy {f00=0x0012, f01=0x0190, f02=» C C ( B P A j :
0x039e5c…039ff0 Dummy {f00=0x0012, f01=0x0190, f02=»
[…0xc…]
0x03b2e0…03b474 (0, 75) Dummy {f00=0x0013, f01=0x0190, f02=»
[…0x1…]
0x03b608…03b79c Dummy {f00=0x0013, f01=0x0190, f02=» CC: TRY AGAIN!! CRV CRF DLF PVC XEYf ,eh ik g g g 8
0x03b79c…03b930 Dummy {f00=0x0013, f01=0x0190, f02=» j#g kqpc[ ]^_d`ah tuvscr[ ]^_d`ah w{xh )*+h h 9:h Zc[ ]^_d`abh Z c[ ]^_d`abh NP B AI k wx yz | A A V! VAW!T T"V"$, B A A A A A A AVAVA T A A A A V!VAVA A A
0x03b930…03bac4 Dummy {f00=0x0013, f01=0x0190, f02=» T QT A A A A " A
0x03bac4…03bc58 Dummy {f00=0x0013, f01=0x0190, f02=» c N @ d
0x03bc58…03bdec Dummy {f00=0x0013, f01=0x0190, f02=» | N B B B ( , N B R 2 8 R R R V B R z B R B B r B B R R
0x03bdec…03bf80 Dummy {f00=0x0013, f01=0x0190, f02=» 6 4 5 " ( . 5 : 8 * H < 8 ( ( . 2 e K WF]l B
0x03bf80…03c114 (0, 76) Dummy {f00=0x0013, f01=0x0190, f02=»; =d=t= ;N= = = ; =d<0 = = >l= = > <6>4>B>T>l>r>z> ; > > ; > ? >l? ? ? <n; ?4; ?F?T?h?z? ? ? ? ? ? ? @ @* @B?T;&@z@ @ @ @ @ @ @ @ ; ;*?T;*A ; A A,< 8 9 9 9.9:9D9N9`9p9p9 9 9 9 9 9 9 9 9 9 : : :B:P:^:n:x:.: Z8 8 b8 x8 {8 8 k8 8 8
0x03c114…03c2a8 Dummy {f00=0x0013, f01=0x0190, f02=»D EXE C,C BbBbA H8HPA F A@A B B B E HhG C C,C@CbCtC C C C C C B E B A@A A E F G G A@A D`A@A DzB BvA@A B B B D D A@A B B B D D.D A@A D D D EDA@A A D C,C B D E E B B B C,C B GxE E B B B E0E C,C EnB B B A@C,C B D E E B B E C F F I>F IX A D DJ BJ
0x03c2a8…03c43c Dummy {f00=0x0013, f01=0x0190, f02=» Fh A@PRINT DEVICE:;SOURCE RESP. DESTINATION DISC:;VOLUME NAME:; VOLUME NAMES:;OLD FILE NAME:; NUMBER OF VTOC ENTRIES:;CREATION DATE:; RETENTION PERIOD:;BLOCKING FACTOR:; EFFECTIVE RECORD LENGTH:; MAXIMUM NUMBER OF RECORDS:; SECTOR NUMBER:;
0x03c43c…03c5d0 Dummy {f00=0x0013, f01=0x0190, f02=»TPUT DEVICE:; LABELLED TAPE:; SEQ. NUMBER INPUT TAPE:;SEQ. NUMBER OUTPUT TAPE:; BLOCK FACTOR INPUT TAPE:; BLOCK FACTOR OUTPUT TAPE:;TAPE VOLUME ID:;RECORD LIMITS:; PRINT FORMAT:;RECORD KEYS IN LISTING:;CHARACTER CODE:;PROGRAM LENGTH:;MONITOR NUMBER:;START SWITCH O
0x03c5d0…03c764 Dummy {f00=0x0013, f01=0x0190, f02=»ION:; DATASET NUMBER:;NUMBER OF INDEX FILES:; KEY ADDRESS WITHIN DATA RECORD:;KEY LENGTH IN DATA RECORD:; RECORD LENGTH INPUT TAPE:;LOAD FACTOR:; INDEX FILE NAME:; MASTER INDEX FILE NAME:;INPUT DEVICE:;PTS 6876 DISC :;MAX NO OF RECORDS ON OUTPUT INDEX FILE:;SUB-KE
0x03c764…03c8f8 Dummy {f00=0x0013, f01=0x0190, f02=»DING ORDER:;REORGANIZE DISC:; DISC VERSION:;INDEX VOLUME NAME:; DUPL. ALLOWED: ; COND. INDEX: ; EXP. TYPE:; COND ITEM DISPL.:; COND ITEM VALUE:; ITEM DISPL.:; ITEM LENGTH:; INDEX FILE LENGTH:; *** INDEX DESCRIPTION ***;*** KEY DESCRIPTION ***;TESTIN
0x03c8f8…03ca8c Dummy {f00=0x0013, f01=0x0190, f02=»EVICE :; EXTENSION SIZE :; FUNCTION :; USAGE :;USAGE :;VOLUME NAME OF WORKFILE:; ALL INDICES:; LOG FILE VOLUME NAME:;LOWER RECORD LIMIT:;UPPER RECORD LIMIT:;DISC NOT OPERABLE;BADSPOT ON SYSTEM AREA. DISC NOT USEABLE; MORE THAN 18 BADSPOTS.DISC NOT USABLE;DISC I
0x03ca8c…03cc20 Dummy {f00=0x0013, f01=0x0190, f02=»NGTH; VTOC OVERFLOW;NO FREE SPACE ENTRY AVAILABLE;FILE NAME ALREADY USED; NO TOSS DISC FORMAT;TAPE UNIT NOT OPERABLE; OUTPUT DISC NOT EMPTY;FAULTY RECORD LENGTH; OUTPUT FILE NOT LARGE ENOUGH; OUTPUT FILE NOT EMPTY;TAPE UNIT NOT LOCKED/LOADED;INCORRECT TNR;OUTPUT I
0x03cc20…03cdb4 (0, 77) Dummy {f00=0x0013, f01=0x0190, f02=»L RECORD; LABEL RECORD MISSING; UNEXPECTED TAPE MARK; LABEL RECORD ERROR; ILLEGAL BLOCK LENGTH ON INPUT;EOF INSIDE SPLITTED RECORD; INPUT VOLUME NAME UNKNOWN;OUTPUT VOLUME NAME UNKNOWN; OLD FILE NAME UNKNOWN;FLEX. DISC ALREADY LOCKED;FLEX. DISC NOT LOCKED;FLEX. DI
0x03cdb4…03cf48 Dummy {f00=0x0013, f01=0x0190, f02=»; KEY DEF. ERROR; LOAD FACTOR TOO SMALL;KEY SEQUENCE ERROR; DATA SET DEF. ERROR;ILLEGAL SECTOR NUMBER;CARD READER NOT OPERABLE; FILE ORG. ERROR;CORE AREA TOO SMALL;RECORD NOT IN FILE-END OF MEDIUM; ILLEGAL POSITION NUMBER;NOT ALLOWED TO MIX DISCSIZES; NOT ENOUGH C
0x03cf48…03d0dc Dummy {f00=0x0013, f01=0x0190, f02=»; TOTAL KEY LENGTH TOO LONG;FM I/O-ERROR: ; DESCRIPTOR BLOCK TOO LONG;OPERATOR ABORTED; FILE ATTACHED;ONLY D-PART DELETED;DATA ERROR ON ONE OR MORE DISC SECTORS;TAPE WRITE PROTECTED; FATAL TAPE ERROR; TAPE NOT CREATED BY CDT;COPY NOT SUCCESSFULL; DUPLICATE KEYS I
0x03d0dc…03d270 Dummy {f00=0x0013, f01=0x0190, f02=»ATION ERROR;KEY ALREADY EXISTS; NOT EXISTING KEY; NO INDEX LEFT;SOURCE DISC DATA ERROR:;DEST. DISC DATA ERROR:; NO INDICES; USER INFORMATION CONFLICTS WITH LOG INFORMATIOM ;CREATE BUFFER FILE NOT SUCCESSFUL ;ERROR ON FUNKTION LOG FILE ;BUFFER FILE NOT BIG ENOUGH
0x03d270…03d404 Dummy {f00=0x0013, f01=0x0190, f02=»ECT MMU-BUFFER LENGTH ; ( 8 ) 9 DUFDMD [ ; @I HI -P Z : : HI M :B L # ;A HI @ P 0!? T P $ _@ P ZH P ! _ DU2 DU1 DU4 DU3 MD1 MD2 MD3 MD4 FD1 FD2 FD3 FD4 CD1 CD2 CD3 CD4 TOSS UTILITIES
0x03d404…03d598 Dummy {f00=0x0013, f01=0x0190, f02=» AJ AJ AJ AJ AJ AJ AK AK R % KZ P AJ @J P Wp @J : R !LLPB !XXPh R 1 R 2 Y AK AK AK Y AK AK @K W S 1 AK S 2 AK AJ K N : S 1 AK S 2 AK _.
0x03d598…03d72c Dummy {f00=0x0013, f01=0x0190, f02=» Q* ( , X "' P [& I _ "' AJ @J M R 0 $' R T W $ T AJ R !LLP @J T AJ AJ R 1 R 6 AJ R 4! AJ PJ AJ AJ @J @J w AJ AJ S$ @J @J w Y4 @J AJ @J AJ W : AJ AJ @J @J @K w
0x03d72c…03d8c0 Dummy {f00=0x0013, f01=0x0190, f02=» @J @J w AJ AJ AJ R AJ AJ AJ . AK 9H AK AK AJ AJ AJ @J P AJ AJ B AK ( B P @J C C C ( C B / P : @K :c AK AJ AJ AJ AJ @J AJ @J AJ AJ @J @J w AJ AJ @J AK C C
0x03d8c0…03da54 (0, 78) Dummy {f00=0x0013, f01=0x0190, f02=»J 0 AJ @J T @J X @J @J R&Q @J @J R @K AK @J AJ @J AJ @J @J Z Q @J @J Z @J @J RBQ @J @J U6 @J @J Y R @J @J Y AJ @K AK @J AJ @J AJ _ @J AJ @J AJ @J AJ @J AJ @K AK Q* U Tr Q 1 Q Q T AW@ AJ J R AJ @K A
0x03da54…03dbe8 Dummy {f00=0x0013, f01=0x0190, f02=»( B / P @W@ : @W@ P R @J AJ @J AJ !LLPZ @J T @J @K V @K AK R P P AJ P AJ @J @J @J @J w AJ AJ Rv P$W8 @J @J @J @J w AJ AJ SH @J P P AJ P AJ @J @J P P w Q Q @J Q @J 1 U P P> P
0x03dbe8…03dd7c Dummy {f00=0x0013, f01=0x0190, f02=» w Q Q P AJ 0 AJ @J @J @J w AJ AJ T Q Q @J Q @J 1 @J @J @J @J w AJ AJ AJ AJ @J P @J @J @J @J w AJ AJ U P P> P AJ AJ @J ? N : AK P> ( P6 . P. @J P @J AJ @J AJ @J AK T K N :
0x03dd7c…03df10 Dummy {f00=0x0013, f01=0x0190, f02=» _ J X`_2 AJ : @J T SL @J P Q : J SL @J Z` @J K @J K @J K @J K @J K @J K K K R 2 K R 1:H R K R !LLT R 4:H R 5 K K $ K & AJ ( Z` . " Z` R !LLP R : K % R 8 K & K ( K ) (
0x03df10…03e0a4 Dummy {f00=0x0013, f01=0x0190, f02=»J SJ AJ V 2 AJ @K % @J R 2 R 1 % Y @J AJ @J AJ @J @J AJ AJ w AJ AJ J @K C @J AJ @J AK ( C @J @J @K @J P @J w AJ AJ @J @J YXR @J @J Yd @J AJ @J AJ @K C @J AJ @J AK ( C @J
0x03e0a4…03e238 Dummy {f00=0x0013, f01=0x0190, f02=» Z Z` AZr ( Z 9 AZ ( Z Z` @J 0 AZ @J @J Z wn @J @J [ wn J [ @J T [ Z` Z A AZ ( J @J : AJ AK AK R % Wl T @J T : AJ AJ K AJ T@W AK P> SL @J P& T ( P .
0x03e238…03e3cc Dummy {f00=0x0013, f01=0x0190, f02=»K 9c AK @K R C @J C AK AK R AJ P Z. R R4 B C AK AW@ C ( B / P R @W@ 0 AWB 0 AWD @WBT @WD Z P @J T @K AK P @J W AJ AJ AW@ @WB @WD P P w AWB AWD @J @J @W@ @J @WBT @J @WDT P AJ
0x03e3cc…03e560 Dummy {f00=0x0013, f01=0x0190, f02=» P> K K P ] = ] ] W AJ AJ AW@ P P @J @J w AWB AWD @J @J @W@ @J @WB XT @J @WD XT @J Q @J Q AK P>_ @K AK XT W R P @J I @J ) @J I @J I W ( - : Zz FILE Z 9 VOLUME N
0x03e560…03e6f4 (0, 79) Dummy {f00=0x0014, f01=0x0190, f02=» DELETEDDU1 DU2 DU3 DU4 MD1 MD2 FD1 FD2 1 0 0VOLUME NAME: DISC: 0FREE SPACE TABLE 0EXT BASE EXT LENGTH OF ENTRIES USED 0VOLUME TABLE OF CONTENTS 0FILE
0x03e6f4…03e888 Dummy {f00=0x0014, f01=0x0190, f02=» EXT BASE EXT LEN ORG LENGTH FACT REC NO SEC NO EXT NO DATE PER FILES ADDRESS NO NO/SOP 0NUMBER OF FREE ENTRIES IN VTOC = ( - : ]( C ( B bD b8 : ]4 2 A] A[ A] R A]) R A]
0x03e888…03ea1c Dummy {f00=0x0014, f01=0x0190, f02=» C ( B & B & b< B b2 2 R A]6 ]6 [b , 9 TO 4 bH 4 I[z Y [J ]F [R $ ]F [x ]F , A[ , A[ , A[ " , A[ @[ >c A[ A] ] C ( B . b2 B & b< A] [N ]F [ ]F [
0x03ea1c…03ebb0 Dummy {f00=0x0014, f01=0x0190, f02=»[ wn [ ]F Y W Y @[ [ vh @[ [ vh [ ]F [N ]F [ ]F n ]F n ]F [ [ [ [ [ b ] ( B . b2 B & b< [ [ ]B *% a R p [ R ]8 J U !
0x03ebb0…03ed44 Dummy {f00=0x0014, f01=0x0190, f02=» - U T U Z J 8 vh J ? vh J J wn J J wn - J J wn J " ( vh E ]8 " N ]8 J !LLP6 J " vh J !SST J % T vh J & X vh [ R p $ ! R !__Q Y . % Y p ]F W A
0x03ed44…03eed8 Dummy {f00=0x0014, f01=0x0190, f02=» b 0NUMBER O
0x03eed8…03f06c Dummy {f00=0x0014, f01=0x0190, f02=»SS REL 11.0 NUMBER OF CATALOGED BADSPOTS = Z $ Ad D Ad D Ad D Ad D Ad" [ : Z $ Ad D Ad D Ad D Ad D Ad [ : Z $ Ad$ D Ad& D Ad( D Ad, [ : cR C
0x03f06c…03f200 Dummy {f00=0x0014, f01=0x0190, f02=»e8 e8 e8 : cD 2 C C ( B & m B .P " T m : 0 Ac Ad. UU Ad6 Ad8 Ad< @ AcH Ac: d R ' P gB P P0 PV P| P d } ~ dT M g d h h h dT [g [h 4 d [4 4 g
0x03f200…03f394 (0, 80) Dummy {f00=0x0014, f01=0x0190, f02=» g R P P W< dT &? &@ d g d y z { dT g d z { | dT &? &@ g R P P W< d dT L L g d y z { dT 1g 1h g d z { | dT L L g 2 AcF Ac8 $ AcS $ Ac7 AcE R ! R
0x03f394…03f528 Dummy {f00=0x0014, f01=0x0190, f02=»9 R ! T : m m cD C C C B % E E AdR ( B ! : m C x AcF AcF m cD R R C ' V8 c d cD P T R IT C W C ( C ( B R % R E R E B Nc % Z R
0x03f528…03f6bc Dummy {f00=0x0014, f01=0x0190, f02=» IP @dRP t m AdB 2 AcF d6 Ac c d cD @dBP W AcH 2 d e( d @dBT e( d ( AdB B & m B m P2 T m dN dP B >( r m dN dP e( @d @d U Y
0x03f6bc…03f850 Dummy {f00=0x0014, f01=0x0190, f02=»( dBP e8 e8W eV c6 B & m B P Wt @c: Y 2 d2 d4 d: @d< Ad: @d: $T d: @d< Ad: @d: $P d2 d4W( @d6 $ Y P e(_R d2 d4W. T m dN dP @c:>( r m dN dP @dBP eH e( e( AdB Ac:W eH eH @d T* @d
0x03f850…03f9e4 Dummy {f00=0x0014, f01=0x0190, f02=» , d2 d4 d: @d< Ad: @d: $T d: @d< Ad: @d: $P d2 d4Wn @d6 $ Y P e(_R d2 d4 eH eH @d Tl @d Q @dDP c6( k< QL AcH Q> AcHW4 T RF dN dP @cH>( r m dN dP eH eH c6( k( dDT( cD( l W W
0x03f9e4…03fb78 Dummy {f00=0x0014, f01=0x0190, f02=» c $ d W cf $ d c4 b 4 Pr @bR 4 T T T w 4 T w 1 Q 4 PB 4 T w 1 Q T T 4 T w 4 P _8 @bR W @d @d w Q 1 Q AbR AcH bP b 2 P T 0PV 0 % % (
0x03fb78…03fd0c Dummy {f00=0x0014, f01=0x0190, f02=»d@ Y @d@ Ad* 2 T T 4 R _ T 4 w U 5 cb ed @d* 2 % P ed _ AcH 2 AcF pD Acd @d* Q U( _ 2 % 2 * % Y : b pD 2 * , P Pv * BA % DS % PO %
0x03fd0c…03fea0 Dummy {f00=0x0014, f01=0x0190, f02=»ed Y Ad2 R " T `d$ Ad2 9A Dd$ 2 @d2R V 2 U Ad2 ed ]D 2 2 @cd % % cb ) % % Z @d % @d % @d" % c ( % Y 2 % @d* O . R O 1 R O 0 B W E d E ~
0x03fea0…040034 (0, 81) Dummy {f00=0x0014, f01=0x0190, f02=»r~ r Ar Ar b Ar| @rzT tV t. t r r~ t@ s r~ r t sp t t @r| r t t. @r| 0 4 @r| @r| 8 < w 1 5 @r| @r| @b <! $ ) Y @b % % % % @b Ab @rz Arz t. @b b t2 @r| Ar| `r| r
0x040034…0401c8 Dummy {f00=0x0014, f01=0x0190, f02=»t2 @b @b @r| $ ) Y tV W rz : $ ) : Y : @r~ @r| ) @r ) @r ) @r ) Arz @b Ab : ( ( $ ( w T T W : @r| 0 4 @r @r w 1 5 : @r| , , , , w w Ar Ar : cD C C C 2 C
0x0401c8…04035c Dummy {f00=0x0014, f01=0x0190, f02=» C R C ( B u rt rp rp]L *% P0 @rt 8 BT rv @rt 0 0 r rv rt_J W : R _ P 0 - : ; [ V - - ' v v d v v v Z : : ; vb v : V *W
0x04035c…0404f0 Dummy {f00=0x0014, f01=0x0190, f02=» B@ v v ' v v d v v v Z Z Z Z : : ; wf v : V *W R - _ 1 T R Pwf - _ : [ S Q"R S P W S _ R Q _ ;A [ : [
0x0404f0…040684 Dummy {f00=0x0014, f01=0x0190, f02=»? 0OUTPUT VOLUME NAME: x C C ( : : B x $ ) Y xr x xl x AxZ xP( xl x `xR! YP 4 : %? v S : S f S 6 S b% =A S ^ S ` x UU 3 2P _ | , ) p
0x040684…040818 Dummy {f00=0x0014, f01=0x0190, f02=» T G.G K. A ;A; G. x ] S z | . N 0 N S W P X _ R z R 6"? R ~ | z P #P & B. T P ' " P : P S | P S ~ P "
0x040818…0409ac Dummy {f00=0x0014, f01=0x0190, f02=» %? v S @ S l S < S h% =A S d S f V UU H 3 2P _ , ) 0 R _ <d?d U ?e R P S ?C/ G O % R ' P % =B S t w E M % t R.Q&
0x0409ac…040b40 Dummy {f00=0x0014, f01=0x0190, f02=» . N 0 R N S 4 W P X _ R R <"? R }> P #P & B. T P ' " P : P S P S P " ^_"W W W W W + # @ # P s v UU 3 2P _
0x040b40…040cd4 (0, 82) Dummy {f00=0x0014, f01=0x0190, f02=» S t S p S S M % T S ( p NW 6 p . N 0 S # T S r p N S W p P X _ T R t S M R R R " R ( P * W p P #P
0x040cd4…040e68 Dummy {f00=0x0014, f01=0x0190, f02=»R _ <e R P =A $ < ?B =A- R P S S M W W =D @ t w E M T 1 E _ M = R = @ T P W S W S , R p : J 6 "? UU t 3 2P _ 4 , 5 T G.G K. A ;A; G. ( ]
0x040e68…040ffc Dummy {f00=0x0014, f01=0x0190, f02=» P X _ R R "? R R z h:B* S R P S B J 4R 4 :B 4 R : V V 49B R 4R @ t w A I ! j : P #P ( B. T P ' " P : P S P S P %
0x040ffc…041190 Dummy {f00=0x0014, f01=0x0190, f02=» $ S ] S S ] z ] x S . N 0 S W . S S S ? S S R ^ 9B % s S ; V 9E S ; R P S S B J
0x041190…041324 Dummy {f00=0x0014, f01=0x0190, f02=»@ N S W ` P X"_ R R "? R R S ` P #P Y* B. T P ! " P S P S : P S P S P % t_. R S W S S : 8 "? UU 3 2P
0x041324…0414b8 Dummy {f00=0x0014, f01=0x0190, f02=» $ S f ] z ] x ~ W S t S z S ? S p S r R ^ P P t % R $ S p ; V 9E S p; R P S S n nB J pA I T :Wd R p! T S p_0!
0x0414b8…04164c Dummy {f00=0x0014, f01=0x0190, f02=» T s S f N S W f P X"_ R R "? R $9B R R S f P #P Y* B. T P ! " P S P S : P S P S P % t_. R S W S S :
0x04164c…0417e0 Dummy {f00=0x0014, f01=0x018e, f02=» | 8 P LDKL A2,LIBRLE SET RECORD LENGTH FOR LIB. FILES =1 P ST A2,RECLEN,A12 D P LDK A2,1 =20 ^ P ST A2,BLKSLE =20 t P* PCRF020 CM HEAD < P CALL GETVOL GET RIGHT VOLUME AND READ FREE BLOCK SECTOR P ADK A1,0 4 P ABL(Z)
0x0417e0…041974 (0, 83) Opaque[0x194]
0x041974…041b08 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x02a0, f03=0x0000}
0x041974…041b08 IdxSect {
0x041974…041b08 f00 = 0x0015 // 0x41974 @0x0
0x041974…041b08 f01 = 0x0004 // 0x41976 @0x2
0x041974…041b08 gno = [ // 0x41978 @0x4
0x041974…041b08 [0x00]: C0x0015.0x0.0
0x041974…041b08 [0x01]: C0x0015.0x1.0
0x041974…041b08 ]
0x041974…041b08 }
0x041b08…041c9c Dummy {f00=0x0015, f01=0x4046, f02=» @ IDENT D 0@ B
0x041c9c…041e30 Dummy {f00=0x0015, f01=0x2008, f02=» L = REL11 DATE = 81-05-12 6876PACK NBR = 0001
0x041e30…041fc4 Dummy {f00=0x0015, f01=0x0190, f02=» : X ` n @ , ( % =_2 ,9h `P W L $ T * , ( E , : L =A ] Z , ( c @ I I (T 0 ( , ( @ H H _> H H , ( @ ^ M : @ r P
0x041fc4…042158 Dummy {f00=0x0015, f01=0x0190, f02=» @ ~ ` P ~ X v , ( @ ^ I 4 X ]6 , , ( @ ! _ @ r T @ A @ , ( 9! P A @ @ , ( Q J A 4 1 J ( ( 1 o H D !
0x042158…0422ec Dummy {f00=0x0015, f01=0x412a, f02=» P P H D !A T G d }P R" R R %P K W d g y V: T R Q V H D !!} W& 'T 3 H aT P W U PR A O S ] z o V X H D ! 0 P + z cV T: V V ( # /P 3W AT mT P V P. +T
0x0422ec…042480 Dummy {f00=0x0015, f01=0x2008, f02=»
0x042480…042614 (0, 84) Dummy {f00=0x0015, f01=0x0190, f02=»BLE START ADDRESS z ( PDDIVFR EQU 6 PROT.DDIV FROM ADDRESS " PPLTGCE EQU 8 END OF ICB-PLTGC F & PPLTGCL EQU 10 LENGTH OF ICB-PLTGC l $ PPLTGCS EQU 12 START OF ICB-PLTGC PDYNTAD EQU 14 DYNTAB ADDRESS & PAPCTAB EQU 16 APLTAB BLOCK ADDRESS
0x042614…0427a8 Dummy {f00=0x0015, f01=0x0190, f02=» p $ P******************************* 0 PACOSTA EQU 120 CONF.START FOR AN APPLICATION 0 4 PALICOU EQU 112 SAVE AREA FOR APPLICATION COUNTER d ( PAPLTAD EQU 122 APLTAB BLOCK ADDRESS 0 PBASADR EQU 80 BASE ADDRESS FOR DEBUG PURPOSE ( PDDIVTO EQU 1
0x0427a8…04293c Dummy {f00=0x0015, f01=0x0190, f02=» 0=BUILD DDIV TO START OF FREE AREA $ PINTENT EQU 62 INTERPRETER ENTRY 0 . PLCOTO EQU 64 ADR. WHERE TO MOVE SYSLCO TO X PMMREL1 EQU 66 & PMONEND EQU 84 MONITOR END ADDRESS PMOVLE1 EQU 86 LENGTH TO MOVE " PMOVLEN EQU 68 LENGTTH TO M
0x04293c…042ad0 Dummy {f00=0x0015, f01=0x0190, f02=»A FOR RELOCATION VALUE p & PSAEFA1 EQU 116 SCTEFA BIT 0-5 PAGE ! 0 PSAEFA2 EQU 118 SCTEFA BIT 4-15 DISP. IN PAGE ! H " PSAVE01 EQU 88 TEMP. SAVE AREA ! | 4 PSAVE02 EQU 96 TEMP. SAVE AREA OUTSIDE SUBRUTINES ! 6 PSAVE03 EQU 126 TEMP. SAVE AREA OUTSIDE SUBRUTI
0x042ad0…042c64 Dummy {f00=0x0015, f01=0x0190, f02=»SAVE07 EQU 110 TEMP. SAVE AREA INSIDE LOKAL SUBRUTINES ! , PSAVITC EQU 94 SAVE AREA FOR ITCT ADDRESS " > ( PSAVTID EQU 104 SAVE AREA FOR TASK ID " n : PSHADST EQU 74 START OF SHADOW TABLES FOR CURRENT APPL. " " PSHTLEN EQU 76 SHTAB1-3 LENGTH " 0 PSTASK EQU
0x042c64…042df8 Dummy {f00=0x0015, f01=0x0190, f02=»LITC EQU 102 SAVE AREA FOR TCL ITCT ADDRESS " & PTGCREL EQU 90 ICB-PLTGC RELOCATION # 4 $ PPGTGAD EQU 92 PGTG DATA ADDRESS # ^ : PLSTENT EQU 98 LAST USED ENTRY IN MMTAB,UPTO COMMON DAT # P EJECT # P ***************** # P ***************** #
0x042df8…042f8c Dummy {f00=0x0015, f01=0x0190, f02=»********************* # $ P* CONFIGURATION FILE (CONFIG) * $ $ P******************************* $ F P $ n P* TASK DEFINITION BLOCK: $ z PTDBBT EQU 0 1A BLOCK TYPE $ ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS $ , PTDBID EQU TDBNT+2 6A TASK ID STA
0x042f8c…043120 Dummy {f00=0x0015, f01=0x0190, f02=»ERMINAL DEVICE CLASSES $ p P* % & PTDBFST EQU TDBNC+2 FIRST TERM DEF % ( $ PTDC EQU 7 TERMINAL DEVICE CLASS % R PTLC EQU 7 LINE CONNECTION % z ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH % P* % * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD % P* %
0x043120…0432b4 (0, 85) Opaque[0x194]
0x0432b4…043448 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x02b0, f03=0x0000}
0x0432b4…043448 IdxSect {
0x0432b4…043448 f00 = 0x0015 // 0x432b4 @0x0
0x0432b4…043448 f01 = 0x0002 // 0x432b6 @0x2
0x0432b4…043448 gno = [ // 0x432b8 @0x4
0x0432b4…043448 [0x00]: C0x0015.0x2.0
0x0432b4…043448 ]
0x0432b4…043448 }
0x043448…0435dc Dummy {f00=0x0015, f01=0x000c, f02=» LM p CSEG1 LM CSEG2 LM CSEG3 LM CSEG4 LM CSEG5 LM LED LM CSEG7 LM CSEG8 LM CSEG9 LM CSEGA LM CSEGB LM CSEGC LM 0 CSEGD LM 8 CSEGE LM
0x0435dc…043770 Dummy {f00=0x0015, f01=0x4024, f02=» D LM p CSEG1 LM CSEG2 LM CSEG3 LM CSEG4 LM CSEG5 LM LED LM CSEG7 LM CSEG8 LM CSEG9 LM CSEGA LM CSEGB LM CSEGC LM 0 CSEGD LM 8 CSEGE LM
0x043770…043904 Dummy {f00=0x0015, f01=0x0190, f02=»ERS ) n PTCLNAM EQU 0 TCL NAME * PTCLBLK EQU 4 TCLBLK POINTER * * P * N P*************** * V P** ** * n P** TCLBLK ** * P** ** * P*************** * P * PTCLSTK EQU 0 STACK-SIZE * ( PTCLTGC EQU 2 ICB-P
0x043904…043a98 Dummy {f00=0x0015, f01=0x0190, f02=» ** * P** ICB-PLTGC ** + P** ** + . P*************** + F P + ^ * PTGCSZD EQU 4 STATIC-ZERO DISP IN TLTAB + f $ PTGCSZL EQU 6 STATIC-ZERO LENGTH + " PTGCCAL EQU 8 CALL-BASE-ADR TAB + . PTGCCTS EQU 0 NBR OF ENTRIES IN CALL TA
0x043a98…043c2c Dummy {f00=0x0015, f01=0x0190, f02=» ** + P*************** , P , * PITCCOM EQU 0 PGTG-DATA-ADR , 2 PITCTGC EQU 2 ICB-PLTGC-PNTR , T " PITCGLL EQU 4 PGTL-DATA-LENGTH , x PITCGLA EQU 6 PGTL-DATA-ADR , & PITCCSB EQU 10 CURRENT SEGMENT BASE , PITCTID EQU 12 TASK-ID , ( P
0x043c2c…043dc0 Dummy {f00=0x0015, f01=0x0190, f02=» , f , PITCDCD EQU 22 " ,DDI-POOL-BASE - PITCSPL EQU 26 SPL-PBS-PNTR - 8 PITCTLT EQU 34 TLTAB - Z ( PITCTLS EQU 0 NBR OF ENTRIES IN TLTAB - v PITCTLE EQU 2 TLTAB ENTRY - P - P*************** - P** ** - P** SPL-PBS *
0x043dc0…043f54 (0, 86) Opaque[0x194]
0x043f54…0440e8 # DirEnt {nam=»LKE «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x02b8, f03=0x0000}
0x043f54…0440e8 IdxSect {
0x043f54…0440e8 f00 = 0x0015 // 0x43f54 @0x0
0x043f54…0440e8 f01 = 0x0008 // 0x43f56 @0x2
0x043f54…0440e8 gno = [ // 0x43f58 @0x4
0x043f54…0440e8 [0x00]: C0x0015.0x3.0
0x043f54…0440e8 [0x01]: C0x0016.0x0.0
0x043f54…0440e8 [0x02]: C0x0016.0x1.0
0x043f54…0440e8 [0x03]: C0x0016.0x2.0
0x043f54…0440e8 ]
0x043f54…0440e8 }
0x0440e8…04427c Dummy {f00=0x0015, f01=0x0190, f02=» n !
0x04427c…044410 Dummy {f00=0x0015, f01=0x0190, f02=»
[…0x2…]
0x044738…0448cc Dummy {f00=0x0015, f01=0x0190, f02=» R P
0x0448cc…044a60 Dummy {f00=0x0015, f01=0x0190, f02=» IDENT MXSTAB SCTMXS IO ERRORERR.MOD.BLK.DAT.ABS.ADD.DBL.DEF.INV.LGH.ABS.STR.TBL.OVL.INV.IDT.END.MIS.UNS.EXT.ERR.LKE.BLK.COM.NO STRT.PRG.OVL IDT.MIS.INV.STR.ERR.NOD.TAB. ERRINV. EXTINV. SEG 9 R : ) Y : @ Pt %T _ b $ 5T`
0x044a60…044bf4 (0, 87) Dummy {f00=0x0016, f01=0x0190, f02=» T : (= ^ J = R ) @ ) H A W ( $ A A @ XB A 4 $ A < A _" @ R0 @ @ P& T J _ (;CZ A A : @ P. @ $" % A x 5 @ P _* : @ Pb @ < < V @ A < < V
0x044bf4…044d88 Dummy {f00=0x0016, f01=0x0190, f02=»_f A A A ^ A <_r @ PJ @ < < V @ A < V @ A < A A b @ b @ = @ B : @ P @ @ PR $" % (% P A (% P A $) ) ,! P @ 1 _X : @ Pn @ @ Pd $" * % (% T A H
0x044d88…044f1c Dummy {f00=0x0016, f01=0x0190, f02=» A @ $P @ $9a @ :a Z9A A @ A A ~ : _L R T @ ^ ( _ @ A T @ T ^ ( @ A @ A @ A : H % : A @ $ MXP AMP MSP ENP : R 1( A R A Z A b A
0x044f1c…0450b0 Dummy {f00=0x0016, f01=0x0190, f02=»?A $=KR W6 T J 0 A <=A A A A z A ~ _X A : @ rRX @ @ PJ $ (;CR ;BV (# T _ A J @ 1 0 A _4 A r : W W W W W T W W A v Z Z WH Z B
0x0450b0…045244 Dummy {f00=0x0016, f01=0x0190, f02=» @ A xP A @ A A x @ & A | b n b A T A t 4 @ P A | _ @ tP @ @ a @ A t_b @ T" @ b @ x A A x @ $Z j T @ b @ x @ $P( j @ @ $ j @ @ b @ A x :
0x045244…0453d8 Dummy {f00=0x0016, f01=0x0190, f02=» A < A @ A < @ A A A @ A x : | @ > @ < @ : W A t A v @ @ :a Q. @ v ^ @ @ :b Q $ A v @ t_8 @ t P @ A : @ A : @ @ 9a @ ":a Q2 A A @ @ 9b Q @ ^ $ A @
0x0453d8…04556c Dummy {f00=0x0016, f01=0x0190, f02=» A A R A R % 1 a PTSLKG (810126) A V A A I ^ 00 A : - Y : ` ! A A A A 9a?a A A A A A v A ~ A @ a @ @ T$ @ 1 = ( EXTENT @ x WhWf A $ @
0x04556c…045700 Dummy {f00=0x0016, f01=0x0190, f02=» j ` ! A A A A 9a?a A A A A A A A A v A ~ A p A $ $ ` @ A A S A | P n PVV A W b A t 4 @
0x045700…045894 (0, 88) Dummy {f00=0x0016, f01=0x0190, f02=» b @ b @ j :A H $ n A _4 @ TL ` R NP8 @ H A F_0 @ | f ` " :A @ A A 9A $_X : 8 p d @ |T , ` @ @ R: A @ D T( @ F P@ A A t VT @ A S _" @ $ A SX: @ F a @
0x045894…045a28 Dummy {f00=0x0016, f01=0x0190, f02=» xT` @ @ D PV P M A lW` @ :B9C 9A 9A 9B Z A <a V :A A A j @ B a @ @ M <a L 9a Z<A A @ l $ @ xT@ @ @ NP6 $ P V ) _ ;E % 0 A @ P& @ A A @ @ 9a:a
0x045a28…045bbc Dummy {f00=0x0016, f01=0x0190, f02=» ^ & A @ vP : @ A < A A * ( @ @ T W P A _ : ` @ @ BP. @ F $ ) Y @ @ T L : B @ 1 @ P = *** SYMBOL TABLE @ xP EXTENT @ x 0 =
0x045bbc…045d50 Dummy {f00=0x0016, f01=0x0190, f02=» @ T !AAP @ P& @ :a9a ^ 6 @ _ @ 0 = ** = ] ] @ 0 = START = = @ P @ T LENGTH = @ @ T REGION = @ U _ : , 1 P , 1 : J
0x045d50…045ee4 Dummy {f00=0x0016, f01=0x0190, f02=» r H A @ A < @ B A A @ A !| A A * @ A p . A @ @ ( M $ A xR > @ 0 M $P, b A xR > @ ( M $ Y$ @ A A : A p A . @ x : Z P @ $;e $ )
0x045ee4…046078 Dummy {f00=0x0016, f01=0x0190, f02=»( : F @ A P @ A H I ( @ A A A : W f( : @ P @ $ A > ` NO b n T D A b H $ @ n A A p @ ` > n T L $ @ n @ T8 b b A >_ @ T
0x046078…04620c Dummy {f00=0x0016, f01=0x0190, f02=» b n T A t 4 @ P A | _ @ tP @ A | @ a @ A t_X $ t V @ B a @ @ B ` @P ^ & A @ T A W @ A < @ A A A @ T D A V@ @ b ` NOP @ p n b @
0x04620c…0463a0 Dummy {f00=0x0016, f01=0x0190, f02=» : <A B 0 R ( ) : (_ @ <a @ =a @ 9b9A A , ) Z A : @ @ <a @ =a :b:A A , ) Y A : @ @ P >a @ 9a Vp9A A A ^< A A A
0x0463a0…046534 (0, 89) Dummy {f00=0x0016, f01=0x0190, f02=» :9C D v @ 5 A A : @ @ ;a<a V $:CR E P : _& ( ^ : @ p @ T : P * @ A p . :( B 0 A 0 : @ !| @ P @ @ xP @ A A @ @ P RB _ @ A @ ~R< @ @ @ < % @ 9a! :d x @
0x046534…0466c8 Dummy {f00=0x0016, f01=0x018e, f02=»,CURBAS " P LD A1,OPTSAV RESTORE OPTIONS P ST* A1,OPTION 6 P* L P* INITIALIZE LISTING OUTPUT V P* FOR EXTENTS AND SEGMENTS z P* P LD A1,SEGFLG P RF(NZ) INIT10 . P LD A7,PRBFBG A7=POINTER IN PRINTER BUFFER P LDK
0x0466c8…04685c Dummy {f00=0x0016, f01=0x0190, f02=» P DATA 'EXTENT' P MSR 3,A7 P* , P ADK A7,12 6 P LDR A2,A7 INSERT EXTENT NO H 2 P LD A1,EXTFLG IN PRINTER BUFFER (HEXADECIMAL) l P CF A14,BINHEX P RF INIT20 P* P* P RF INIT20 P* PINIT10 EQU *
0x04685c…0469f0 Dummy {f00=0x0016, f01=0x0190, f02=»A7 P ADK A7,40 P MLK 4 P DATA 'SEGMENT ' * P MSR 4,A7 B P ADK A7,9 T P LDR A2,A7 f $ P LD A1,SEGNUM INSERT SEGMENT NO x 2 P CF A14,BINHEX IN PRINTER BUFFER (HEXADECIMAL) P* P ADK A7,6 P MLK 2 P DATA 'T
0x0469f0…046b84 Dummy {f00=0x0016, f01=0x4144, f02=»* P* P* INSERT 'SECTOR XXXX' IN P* PRINTER BUFFER 6 P* N P ADK A7,6 X P MLK 3 j P DATA 'SECTOR' x P MSR 3,A7 P ADK A7,9 P LDR A2,A7 P LD A1,SEGSEC P CF A14,BINHEX P* PINIT20 EQU *
0x046b84…046d18 Dummy {f00=0x0016, f01=0x2008, f02=»
0x046d18…046eac Dummy {f00=0x0016, f01=0x4016, f02=» PNOD AM @
0x046eac…047040 Dummy {f00=0x0016, f01=0x4060, f02=» F IDENT SEGTAB CR $ 8 r J@ ES 1 SEGMENT TYPE: 'C', 'D' OR 'R' ^ RES 1 SEGMENT DISC ADDRESS " RES 1 SEGMENT LENGTH IN BYTES * SGBLK2 EQU * RES 3 *
0x047040…0471d4 (0, 90) Opaque[0x194]
0x0471d4…047368 # DirEnt {nam=»ASM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x02d8, f03=0x0000}
0x0471d4…047368 IdxSect {
0x0471d4…047368 f00 = 0x0016 // 0x471d4 @0x0
0x0471d4…047368 f01 = 0x000a // 0x471d6 @0x2
0x0471d4…047368 gno = [ // 0x471d8 @0x4
0x0471d4…047368 [0x00]: C0x0016.0x3.0
0x0471d4…047368 [0x01]: C0x0017.0x0.0
0x0471d4…047368 [0x02]: C0x0017.0x1.0
0x0471d4…047368 [0x03]: C0x0017.0x2.0
0x0471d4…047368 [0x04]: C0x0017.0x3.0
0x0471d4…047368 ]
0x0471d4…047368 }
0x047368…0474fc Dummy {f00=0x0016, f01=0x0190, f02=» l #2B x , , * 0 1 1 0 1 1 2B 2B 2B @ @ < P
0x0474fc…047690 Dummy {f00=0x0016, f01=0x0190, f02=» ( B R Q : B B ~ X ( 0
0x047690…047824 Dummy {f00=0x0016, f01=0x0190, f02=» _4 ( H T @ A 8 B B T = C : < T _" 8 *X( 8 T$ < P <P B _R 8W R Rt Wp X$ , < P <P < 9 _H 8 R W: X , < P 'T
0x047824…0479b8 Dummy {f00=0x0016, f01=0x0190, f02=» B :a;a : MW2 XW. CW* RW& EW" IW LW U A W FW SW OW P @ $ A * A @ P @ Q W$ @ A @ A @ P a @ a x @ vP 8 R ) A _ @ 0Q p I 0 ^ A 0W j I 6 ^ @ T W * I ^ a A @ P A @
0x0479b8…047b4c Dummy {f00=0x0016, f01=0x0190, f02=» : : : Q ^ a A : A a ` : $:f:A $# Q $# P W WL $$ X $$ <A $# P _ ; $$ X, ; A 4 & X <a<A : : @ W 4 @
0x047b4c…047ce0 Dummy {f00=0x0016, f01=0x0190, f02=» @ %W @ % : 4 &<E , P. * T P / T 0 W , W T , P" "$ T" 4 %T W @ R _v W W @ @ $<E % @ $$ Q ) A : A ^ W 09U ( 9 S = S 0 S _
0x047ce0…047e74 (0, 91) Dummy {f00=0x0017, f01=0x0190, f02=» A ++Q --U A 09Q ..Q EEQ> ''Q (& P 8 S S Q Q _< P _ ^N_ X< ++Q --U A 09]R (& @ 8 S S A 09Y ''Q _x A _ X @ :
0x047e74…048008 Dummy {f00=0x0017, f01=0x0190, f02=» 4 ` A ''Q Y @ @ $# Q (Q, a v A v @ A )W $# X ( H + R_0 : W W W W 4 3 + f A ++Q --Q W W V **Q ''Qr //Q0 XXU ''Q.W BBU ''QbW| AZ
0x048008…04819c Dummy {f00=0x0017, f01=0x0190, f02=» @ W Z A XT @ h @ hT $# T @ 0 * A U A R $ P P A # P&# ;c ( Wf T( Q t WZ P T V& @ hP * A X A A A V 5 5W V + 3 PB P W6 @
0x04819c…048330 Dummy {f00=0x0017, f01=0x0190, f02=»SYMBOL TABLE0 UND.ENT.0 UND.LAB.0 ASS.ERR.1 $ ) $ 0P P $ ) _ : d L R L _ 0 ) ^ : 9 R : ) Y :P ff33 A A A @ T : d D L T
0x048330…0484c4 Dummy {f00=0x0017, f01=0x0190, f02=»8! S _6 <P 8 : P~ @ Pr @ P*R A A A W @ " @ S@ SB @ S@ SB @ S@ T W6 F < -Q [ : : @ : _F _F _F _F ~ " [ : W P < A A : P P
0x0484c4…048658 Dummy {f00=0x0017, f01=0x0190, f02=» 8! 8! _ 8 T Q V" 8 T . 8 P 8 4 @ @ P P0 $" P R ( $! 9# P _4 RT QP Q VF T< @ T @ @ A A
0x048658…0487ec Dummy {f00=0x0017, f01=0x0190, f02=» O @ !* P @ h * @ * * 4 @ h A , @ 4 LPT @ : TYT 6 @ R 1 A P @ 6 TYP DYP n nU n A B A @ T@ 4 z ^ T ^ j @ 0R ) ) A 0 A : 1 A @ 4 TYT J B
0x0487ec…048980 Dummy {f00=0x0017, f01=0x0190, f02=» l ^ J l ^ : l ^ : ( : 1 PAGE DATE - - TIME H- M- S Z W W Pp a @ Q: @ hP4 P. B ` ' ?A A ^
0x048980…048b14 (0, 92) Dummy {f00=0x0017, f01=0x0190, f02=» D 02-PASS ASSEMBLER - NAT LAB - VERSION 7.2 16/11/78 x 8P _ @
0x048b14…048ca8 Dummy {f00=0x0017, f01=0x0190, f02=» R A ) H A A X F 4 I b>! A Z>!P H A ` I d A )T @ 0P A $P @ vT 0 @ R W @ vT : @ tP f 4 A A _, A R Q @ U D @ A $ U A : @ Pf @ @ XT
0x048ca8…048e3c Dummy {f00=0x0017, f01=0x0190, f02=»! A 2( @ 6 nT @ 4 TYT LP A 4 < A : @ A A W @ d 9 ! A @ A ` A A A A A A . @ hP A A A A A @ A @ A A r I 0 ^ , A . x A v **Q~ $$
0x048e3c…048fd0 Dummy {f00=0x0017, f01=0x0190, f02=» R |W _ R ( A @ P % P @ $ I @ T~ nUt A nUb A nUT A @ PJ A @ R $ T& - $ - A H M @ > % nV @ @ Q @ P 2 X @ hQ B "( B ( @
0x048fd0…049164 Dummy {f00=0x0017, f01=0x0190, f02=» A T @ P A _ + * /*W( + * 0 W + * / W , * 0 A A A @ @ T W @ T @ TL Uz f XP8 @ hT0 U $# Q $# Q L9a @ U A W A A * A W @ hX ,,YV R
0x049164…0492f8 Dummy {f00=0x0017, f01=0x0190, f02=» R @ ) I ((R ))R0 U,> S( S$ ,,YX R a @ h @ A XT % a A : @ hQ :a @ U A _0 $ : W @ HT LP @ hTj @ @ h @ f 0 A a PR ,,Rr L $"
0x0492f8…04948c Dummy {f00=0x0017, f01=0x0190, f02=» P ;A_ ;a Y ==Q$ ::QZ P P Q TWH P T W4 W. Pz T W Tn @ W T ] ] P 9A Y T2 < = T$ P &T F T W R ,,Y W ,,Y @ 2 P R ^ ` " a Qx T
0x04948c…049620 Dummy {f00=0x0017, f01=0x0190, f02=» _ A A0 @ V @ T~ @ Tt P, @ [! T A ^ & ] b A Z @ X , _2 @ A A A A 0 @ A A A @ PLQ @ @ P8 $T % R _ X $ % ,,Y"
0x049620…0497b4 (0, 93) Dummy {f00=0x0017, f01=0x0190, f02=» P @ P @ P @ R ) $ * % ] @ P @ A W @ Q R, @ W @ T ! A ,, ''Qd DDU ''U QN f Y 4 W. FFU ''Qn A Y 4 Y T @ T P
0x0497b4…049948 Dummy {f00=0x0017, f01=0x0190, f02=» A 2 ~ R $% P ( R P $" : A 0 @ 0PN 8 I 4 ;a P _ ! ]" ]! T ]"0 2
0x049948…049adc Dummy {f00=0x0017, f01=0x0190, f02=» @ P $| _> G 4 4 R t G T_ $ PX P %F $ @V "0P ,,Q R A W$ $ P $ <c! 9A $ $ $h_P ((RL 07Q 4 | R ( ))R W 4_ $ W **R " P 9A G 4 $h_ T| 4 @ @ PX
0x049adc…049c70 Dummy {f00=0x0017, f01=0x0190, f02=» : ! P P : : : 2' ?A 2&p ! ! : @ P @ P P P " P 9 ! G T 4 G 4 ! P $| : X Q : $" | R 4 A 0 ~ W @ UL ==R@ R4 P P A A
0x049c70…049e04 Dummy {f00=0x0017, f01=0x0190, f02=» B E ^ IDENT H* ! P I Z " D T E ^ @ A ( A I ^ , A * A 0 A @ A @ A A A @ @ P R $ )_ ASM 7.2 A v 4 A R6 ,,Q
0x049e04…049f98 Dummy {f00=0x0017, f01=0x0190, f02=» @ @ A ^ PT R $ $# P $ ] b T A A Z @ XT A ^ 0_Z ] b A Z @ P W P @ R % 6 d @ hQ @ ) ) @ hQ @ T ) )
0x049f98…04a12c Dummy {f00=0x0017, f01=0x0190, f02=» @) P ) ) @)&W, P R $Y $# Y $# P: P $# P $# Q A W R W ** A $# Q W ( W X ( ( P D d P N d A B &
0x04a12c…04a2c0 Dummy {f00=0x0017, f01=0x0190, f02=»T PASS0 I X A I M A Q D @ "1 I T A I D @ i DS A I U @ i US A I N @ i NS A I R @ i RS A I R @ i RS A i FI ~ A I 1 t @ I W j @ I C ` @ I C V A Q M A a ! I 2 A i 1S A q BI @
0x04a2c0…04a454 (0, 94) Dummy {f00=0x0017, f01=0x0190, f02=» @ i ST V A I L L @ I S B A i AD 8 @ ADS . A i SU " @ SUS A i MU @ MUS A i DV @ DVS A h XR h MR !h GR H h ER p h ER x i XK ! P F W P B _ p DR "1 p TR ! 1 h DR DRS !h UR URS !h NR
0x04a454…04a5e8 Dummy {f00=0x0017, f01=0x0190, f02=» ! 1RS !h TN p BR " H M 6 h NM . ` DK DKL 1 h DK DKL h UK UKL h NK NKL h RK ( RKL h RK 0 RKL I F ! i WK ~ i CK t P B q BL ` IO@ @ h NR H h TR
0x04a5e8…04a77c Dummy {f00=0x0017, f01=0x0190, f02=»LC 8 h RC 8 p LN8 h RN 8 h CR !p LR h SR !p UR a ! h VR h AR h SR ` LK a UK i VK b AK j SK ` LA8 h RA 8 h LL 8@h RL 8`h LC 8 h RC 8 p LN8 h RN 8 h MD ( h VF p h VB zx h
0x04a77c…04a910 Dummy {f00=0x0017, f01=0x0190, f02=»DVR DVRS ! VUS x VSU p h FL h FX ` ILH h CA H@h IM @ h MP @@h M2 @ DENT% NTRY XTRN 852 855 856 857 ATA ORG ORG IST P LIST T JECT Xx QU (x ES x ND' OMN x FF% x FT%~x IF% TAB ORM
0x04a910…04aaa4 Dummy {f00=0x0017, f01=0x0190, f02=»2 ZA3 ZA4 ZA5 ZA6 ZA7 ZA8 ZA9 zA10 zA11 zA12 zA13 zA14 zA15 h AR h SR ` LK a UK i VK b AK j SK ` LA8 h RA 8 h LL 8@h RL 8`h LC 8 h RC 8 p LN8 h RN 8 h MD ( h VF p h VB zx h
0x04aaa4…04ac38 Dummy {f00=0x0017, f01=0x0190, f02=» L @ L ` R r , ( T @ L @ P S , ( T @ @ L @ R S B `ESC S r * & P @ A S ADDSET S * & H @ A S * & H @ A @
0x04ac38…04adcc Dummy {f00=0x0017, f01=0x0190, f02=» A @ A S z , ( @ c N ` @ T * & { V U @ V T H * & H @ T v , ( ` @ P P @ T * & H @ A @ A T , (
0x04adcc…04af60 Dummy {f00=0x0017, f01=0x0190, f02=» A * T r , ( ( @ P Q U DODASH U B , ( ; $ @ A * @ A , @ U T * & S H A . @ A 0 @ A U , ( g 2 ( @ V U * & H $ @
0x04af60…04b0f4 (0, 95) Opaque[0x194]
0x04b0f4…04b288 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0300, f03=0x0000}
0x04b0f4…04b288 IdxSect {
0x04b0f4…04b288 f00 = 0x0018 // 0x4b0f4 @0x0
0x04b0f4…04b288 f01 = 0x0004 // 0x4b0f6 @0x2
0x04b0f4…04b288 gno = [ // 0x4b0f8 @0x4
0x04b0f4…04b288 [0x00]: C0x0018.0x0.0
0x04b0f4…04b288 [0x01]: C0x0018.0x1.0
0x04b0f4…04b288 ]
0x04b0f4…04b288 }
0x04b288…04b41c Dummy {f00=0x0018, f01=0x0190, f02=» P$PCAS PASG 3,@DA=TK0E PREW 3 ( PWEF 3 @M= 6 PRUN CPLGEN,0 @M= P PSCR /L @M= j PMOV @M=,/L,@MU PRUN PCAS,0 @M= PWEF 3 @A= PSCR /L @A= PMOV @A=,/L,@AU PRUN PCAS,0
0x04b41c…04b5b0 Dummy {f00=0x0018, f01=0x018e, f02=»=@C=,CU=@CU= | * P$PCASC M=@M=,A=@A=,C=@C=,D=@D=,DU=@DU= " P$PCASC M=@M=,A=@A=,C=@C=,D=@D= B P$PCASC M=@M=,A=@A=,C=@C= h P$PCASE M=@M= P$PCASE A=@A= P$PCASF PEND P$PCASC PWEF 3 PASG @FC=43,@DK=DK,@C=,@CU P
0x04b5b0…04b744 Dummy {f00=0x0018, f01=0x0190, f02=» P$PCASE PEND P$PCASF * PMES ILLEGEL PARAMETER COMBINATION!!!! , 2 PMES M,M+A,A,M+A+C,M+A+C+D IS OK SO TRY AGAIN! Z * PMES AND DON'T DO ANY MORE MISTAKES!!!! PEND P$PCASE PWEF 3,2 PULD 3 PMES END OF $PC
0x04b744…04b8d8 Dummy {f00=0x0018, f01=0x0190, f02=»=F4,FT=M,SOP=@SOP=01,INP=@M=,DATE=@DATE x PSCR /L @A= 0 PMOV @A=,/L,@AU L PRUN PDISC,0 A=@A= b D POPT OUT=@AOUT=@A=,FC=@FC=F4,FT=A,SOP=@SOP=01,INP=@A=,DATE=@DATE | PSCR /A @C= PMOV @C=,/A,@CU PRUN PDISC,0 C=@C=
0x04b8d8…04ba6c Dummy {f00=0x0018, f01=0x0190, f02=»ISC,0 D=@D= D POPT OUT=@DOUT=@D=,FC=@FC=F4,FT=D,SOP=@SOP=01,INP=@D=,DATE=@DATE P$PDISCE P=@M= P$PDISCE P=@A= r P$PDISCE P=@C= P$PDISCE D=@D= * PMES ILLEGAL PARAMETER COMBINATION !!! * PMES FOLLOWING COMBINATIONS ARE VALID:
0x04ba6c…04bc00 Dummy {f00=0x0018, f01=0x0190, f02=»,C+COUT,C+CU+COUT FOR CONFIGURATION FILE 2 PMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE 2 2 PMES 5 FC FILE CODE. DEFAULT VALUE IS F4 h 8 PMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 PMES 7 DATE UPDATING DATE < PMES ANY CO
0x04bc00…04bd94 (0, 96) Dummy {f00=0x0018, f01=0x0190, f02=» BE INCLUDED IF NEEDED r PEND P$PDISCE * PMES END OF $PDISC : PEND V P$EDIT b P$EDITUF NAME=@UF= p P$EDITSC NAME=@SC= P$EDITSC NAME=@S= < PMES PARAMETERS 'S', 'SC' OR 'UF' REQUIRED !!!!!!!!!!! PEND P
0x04bd94…04bf28 Dummy {f00=0x0018, f01=0x40a6, f02=» PREF /D4 @NAME= PASG 20,DK PASG 21,DK 2 PASG 22,DK D PRDA 20,/D4 V PRUN EDIT,0 h PREF 21 z PRDS 21 PEND @ DITSC NAME=@S= < PMES PARAMETERS 'S', 'SC' OR 'UF' REQUIRED !!!!!!!!!!! PEND P
0x04bf28…04c0bc Dummy {f00=0x0018, f01=0x2008, f02=» PREF 21 PRDS 21 PEND &@ 2DITSC NAME=@S= 4 < PMES PARAMETERS 'S', 'SC' OR 'UF' REQUIRED !!!!!!!!!!! L PEND P$EDITUF PASG 20,DK,@NAME PASG 21,DK PASG 22,DK PRUN EDIT,0 PEND P$EDITS
0x04c0bc…04c250 Dummy {f00=0x0018, f01=0x018e, f02=»=@C=,CU=@CU= | * P$PCASC M=@M=,A=@A=,C=@C=,D=@D=,DU=@DU= " P$PCASC M=@M=,A=@A=,C=@C=,D=@D= B P$PCASC M=@M=,A=@A=,C=@C= h P$PCASE M=@M= P$PCASE A=@A= P$PCASF PEND P$PCASC PWEF 3 PASG @FC=43,@DK=DK,@C=,@CU P
0x04c250…04c3e4 Dummy {f00=0x0018, f01=0x0190, f02=» P$PCASE PEND P$PCASF * PMES ILLEGEL PARAMETER COMBINATION!!!! , 2 PMES M,M+A,A,M+A+C,M+A+C+D IS OK SO TRY AGAIN! Z * PMES AND DON'T DO ANY MORE MISTAKES!!!! PEND P$PCASE PWEF 3,2 PULD 3 PMES END OF $PC
0x04c3e4…04c578 Dummy {f00=0x0018, f01=0x0190, f02=»OUT=@M=,FC=@FC=F4,FT=M,SOP=@SOP=01,INP=@M=,DATE=@DATE PSCR /L @A= > PMOV @A=,/L,@AU Z PRUN PDISC,0 A=@A= p D POPT OUT=@AOUT=@A=,FC=@FC=F4,FT=A,SOP=@SOP=01,INP=@A=,DATE=@DATE PSCR /A @C= PMOV @C=,/A,@CU PRUN
0x04c578…04c70c Dummy {f00=0x0018, f01=0x018e, f02=» PRUN PDISC,0 D=@D= D POPT OUT=@DOUT=@D=,FC=@FC=F4,FT=D,SOP=@SOP=01,INP=@D=,DATE=@DATE " P$PDISCE P=@M= j P$PDISCE P=@A= P$PDISCE P=@C= P$PDISCE D=@D= * PMES ILLEGAL PARAMETER COMBINATION !!! * PMES FOLLOWING COMBINATIO
0x04c70c…04c8a0 Dummy {f00=0x0018, f01=0x0190, f02=» : PMES 3 C,C+CU,C+COUT,C+CU+COUT FOR CONFIGURATION FILE 2 PMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE B 2 PMES 5 FC FILE CODE. DEFAULT VALUE IS F4 x 8 PMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 PMES 7 DATE UPDATING DATE
0x04c8a0…04ca34 (0, 97) Opaque[0x194]
0x04ca34…04cbc8 # DirEnt {nam=»SUP002«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0310, f03=0x0000}
0x04ca34…04cbc8 IdxSect {
0x04ca34…04cbc8 f00 = 0x0018 // 0x4ca34 @0x0
0x04ca34…04cbc8 f01 = 0x0014 // 0x4ca36 @0x2
0x04ca34…04cbc8 gno = [ // 0x4ca38 @0x4
0x04ca34…04cbc8 [0x00]: C0x0018.0x2.0
0x04ca34…04cbc8 [0x01]: C0x0018.0x3.0
0x04ca34…04cbc8 [0x02]: C0x0019.0x0.0
0x04ca34…04cbc8 [0x03]: C0x0019.0x1.0
0x04ca34…04cbc8 [0x04]: C0x0019.0x2.0
0x04ca34…04cbc8 [0x05]: C0x0019.0x3.0
0x04ca34…04cbc8 [0x06]: C0x001a.0x0.0
0x04ca34…04cbc8 [0x07]: C0x001a.0x1.0
0x04ca34…04cbc8 [0x08]: C0x001a.0x2.0
0x04ca34…04cbc8 [0x09]: C0x001a.0x3.0
0x04ca34…04cbc8 ]
0x04ca34…04cbc8 }
0x04cbc8…04cd5c Dummy {f00=0x0018, f01=0x0190, f02=»h Ln # # #$ A~ X - _ H*f* + + ,0-T
0x04cd5c…04cef0 Dummy {f00=0x0018, f01=0x0190, f02=»
0x04cef0…04d084 Dummy {f00=0x0018, f01=0x0190, f02=» h ( "D r !f9 : G p O $ $ %Z&>F F % 9 K DMC>MCGVHDB(WMC RYD*RDD*ASEDABF PSF RSG0 & TY J- LP / TK Kv
0x04d084…04d218 Dummy {f00=0x0018, f01=0x0190, f02=» $ DK W DK 8 W P DK W DK ( W DK _d ^ DK _d 8DK ) _d
0x04d218…04d3ac Dummy {f00=0x0018, f01=0x0190, f02=» ? ? ? ? ? ? ? N & ? ? ? ? ? ? ? f" ? ? ? ? ? ? ? L 2b
0x04d3ac…04d540 Dummy {f00=0x0018, f01=0x0190, f02=» f l Z f Z f D Z
0x04d540…04d6d4 (0, 98) Dummy {f00=0x0018, f01=0x0190, f02=» Z V f R . Z | f ? ? ? ? ? ? ? ^@ ? ? ? ? ? ? ?
0x04d6d4…04d868 Dummy {f00=0x0018, f01=0x0190, f02=» ? ? ? c ? ? ? ? ? ? ? l c j & L r 0 V |
0x04d868…04d9fc Dummy {f00=0x0018, f01=0x0190, f02=» 6 6 6 6 6
0x04d9fc…04db90 Dummy {f00=0x0018, f01=0x0190, f02=» 6 6
0x04db90…04dd24 Dummy {f00=0x0018, f01=0x0190, f02=» :
0x04dd24…04deb8 Dummy {f00=0x0018, f01=0x0190, f02=»
[…0x2…]
0x04e1e0…04e374 (0, 99) Dummy {f00=0x0019, f01=0x0190, f02=»
[…0x1…]
0x04e508…04e69c Dummy {f00=0x0019, f01=0x0190, f02=» P
0x04e69c…04e830 Dummy {f00=0x0019, f01=0x0190, f02=»
[…0x1…]
0x04e9c4…04eb58 Dummy {f00=0x0019, f01=0x0190, f02=» *
0x04eb58…04ecec Dummy {f00=0x0019, f01=0x0190, f02=»
[…0x2…]
0x04f014…04f1a8 Dummy {f00=0x0019, f01=0x0190, f02=» @
0x04f1a8…04f33c Dummy {f00=0x0019, f01=0x0190, f02=» A A R$ A A R A A R A @#" > > > > > > > > ? ? ? ? ? ? ? U ^ ( H ( P F6 _ Q 4&? ?R _ 5 H _ ^ ;j >P @ * Q 9A D *P _ P A ( @ Q A ' A"T ( A A)F_ @ A
0x04f33c…04f4d0 Dummy {f00=0x0019, f01=0x0190, f02=» @ ? ? > "D P P Q P ! P @ $ H @ P W ( < Jn @ 9a:a R0 "Z Q Q" ?A <P @"N %J & _ ( _ _ 0 % Jn T @ W @ R (P& P (_ =a:a =A:A Z P Z _" TR @
0x04f4d0…04f664 Dummy {f00=0x0019, f01=0x0190, f02=» @% L F6 0 Jn @ PR 0=a @ ?a RX @ ?a VN=A 0 ( P>P< , T T 1W 1W T )W )W ( , _ C ( _ 5 H A& A& A& A& A& A& A' A& ' ( D >a @ =a (@ D U@ x ',W U, @
0x04f664…04f7f8 Dummy {f00=0x0019, f01=0x0190, f02=» B :a Y B R A& _ @& ' W4 @& A& ,Xp _ < @ A' A( A( A( A( A( A( ( =a @ >a V _ @ >a Y A' A' 4 T ' ( "^ 5 U P" @' @( @( @( @( @( @( ( @' x @& 8
0x04f7f8…04f98c Dummy {f00=0x0019, f01=0x0190, f02=» @ !@ *V @ P @ X0 , *V A _< U` A)F @ , L ? ? , L L L L L L ? ? ? ? ? ? ? @" Px @ > > > > > > > ; [ [ [ [ [ [ > > [ [ A @" H" " ? A" >
0x04f98c…04fb20 Dummy {f00=0x0019, f01=0x0190, f02=»? V :!9 V @ P R W ;A [ [ : _4 Pj T Pf V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [ : V X"Z(_( L _P S
0x04fb20…04fcb4 (0, 101) Dummy {f00=0x0019, f01=0x0190, f02=»R _ ;A [ [ : # P| ' PL , ; R <a V 9A:A ; V ; V V W V < V < V H T P R ;H [ [ : _ T P ; R4 < S , _ _ W < R $ <A Q" T" U" :$ _ < Z& - W _ < <A9 R :a
0x04fcb4…04fe48 Dummy {f00=0x0019, f01=0x0190, f02=» R Q ;H [ [ : " _J ? ? ? ? ? ? ? Q _ ^ ( H R - W . W / X I I R P8 X O P O T Y Y W x Y Y $ 0T W W 6 X ? ? ? ? ? ? ? .^ 7 X #? P ? ? ? ? ? ? ? . 7 6 (@ 7P %
0x04fe48…04ffdc Dummy {f00=0x0019, f01=0x0190, f02=»7 (@_~ 52X R Y _ X D $! TR ? ? ? ? ? ? ? /F 7 8 M ? ? ? ? ? ? ? /l 7 % > > > > > > > > ? ? ? ? ? ? ? / 7 P X 7^ 7v / 4 8 TRT X 5P 4 $ <A 52 Pl 52 X X X M M
0x04ffdc…050170 Dummy {f00=0x0019, f01=0x0190, f02=»_ X X X U 5 X E _ X 4 Y 5 X 4 Y ! 1P, 0P +P Q Q W W Q Q R P Q 5 Y / ? ? ? ? ? ? ? 1 7 Qv 1& 4 " PF X Q< X P P ? ? ? ? ? ? ? 1X 7 (@ Y Cp X X X R
0x050170…050304 Dummy {f00=0x0019, f01=0x0190, f02=»1 7 > > > > > > > > 52R X X Q Y ( O` ? ? ? ? ? ? ? 2D 7 ? ? ? ? ? ? ? 2 7 (@ 7P ? ? ? ? ? ? ? 2z 7 2 4 X M X ! 40" P2 O` X ? ? ? ? ? ? ? 2 7 (@ Cp X 4Q W 9AY T Q P
0x050304…050498 Dummy {f00=0x0019, f01=0x0190, f02=» Qz 9AY Tn9ATj @3 D4 @3 $W 1 Y $ D ! P 2 Y 0 P :ET OFP OST Y Y X 5Z X M _d3 4 4 ABCDEFGHI JKLMNOPQR /STUVWXYZ 4 4$4*[.<(+^!$*);] ,%_>?" P X 2 ' Q X 4 X X R ( 5
0x050498…05062c Dummy {f00=0x0019, f01=0x0190, f02=» A , DKP L X X L ! X L P L @ _ C C # ( _R _ _ _ _ _ X T 5b 4 X ! TH X X X T" $ :ET D OFT W OST X P % Y X R X 4 ! X Y T T Y Y
0x05062c…0507c0 Dummy {f00=0x0019, f01=0x0190, f02=» X R 8 TYX WH H6 Y _8 X X: X R X ( _$ _* $ XtRX P Y _ A6 X X Y X Y _ $ P4R P6 X Q Y Y <dW Y W $ P R , _ X X*Y$ X X X6 Y Z(P A6 ZrP Y _8 _< _@ ! 4 $ X
0x0507c0…050954 (0, 102) Dummy {f00=0x0019, f01=0x0190, f02=» > > > > > 7 V <a W X ' ?A q A82 > > > > > > > 80 , 0W 0T _ l P$ X X ] X * A8aJ " * - X ( 7P = V X X Cp X 4 L ! L % T< L P4 M ^ L X 4 _ ? ? ? ?
0x050954…050ae8 Dummy {f00=0x0019, f01=0x0190, f02=»9J: 9l9l: : 9~9~9~9~: 9b9t < W* = W" < W ?: L :AR| M W M M 4 L T M M L PH=GV L L 4 9 M 2 ;6 M L 9G L 4 L M L M M L 4 : W M " A< L P L 9JR@ P P T A, 5 U P T Q P P
0x050ae8…050c7c Dummy {f00=0x0019, f01=0x0190, f02=» L ' 7P P p Y "(@ P P $ M : P ( M P Q P P P W P T Q (@ L " A<(@ H H T A, E $ I 4P _ 5 % E (@ L 2 ( P _ 4 ) % ] M (@ L 2 A$ T!fR Q @!f] A,>
0x050c7c…050e10 Dummy {f00=0x0019, f01=0x0190, f02=» T V P T"W L >F A$ L & A$ < M 4 ; M L M L " P M < : M L M A< L ! PT L M L M L & P L E E M < : M M L L % T D V L ! P L ! XfWn L M L M M =0 : L :c:A L D
0x050e10…050fa4 Dummy {f00=0x0019, f01=0x0190, f02=» D Q = M 2 < L L $:BV W $:AV M " M A L L $ M 0 D L U M " V L R L M ( M * M , L X L U M W > M 2 < L D L L 0U L 0 L (U L ( L L R $ 9 _ R $ 9 M , L M M
0x050fa4…051138 Dummy {f00=0x0019, f01=0x0190, f02=» L L , U A< L A$ L U ?X M 2 < L M $ L M & L L I P0% P L X =h P W P L X T M . L 9 M L A$ L L . Q L L L R 0 % _ M M L . P M . ? M 2 < L U @, M 2 < L
0x051138…0512cc Dummy {f00=0x0019, f01=0x0190, f02=»P0W" M L A$ @ M ( L U @ M 2 < L L ( E L % E L E L E M A M 2 < L P$ A< M 2 ;r M "W F6 = JnW ( L 4 5 L L " C m M ^ U L ( L L ? ? ? ? ? ? ? M.A A H 4 R W 7
0x0512cc…051460 Dummy {f00=0x0019, f01=0x0190, f02=» H d _ AB2 B AH 5 T6 @H P H BF BJ BN BR BV @H AH AB2 ( 5 4 X _8 B W M: B ( "^ B. B L 0 MESSAGE UNKNOWN B H Q L L L R 0 % _ M M L . P M . ? M 2 < L U 5 B J"
0x051460…0515f4 (0, 103) Dummy {f00=0x001a, f01=0x0190, f02=» 1 C D W8 C D X W* 8 AD T AD$ D (@( 4 4 : 0 :R - Y 0 PU,DNXX,STAT,RY D 5 J" ? B C 1P D Y _ @B RDP A P 8 FL B X X ! R V Y AD 8 TKP
0x0515f4…051788 Dummy {f00=0x001a, f01=0x0190, f02=» Q 1 B0 4 X X ? ? ? ? ? ? ? EB 7 _ 5 J" B @ Q P P T Z B W P B $>H $ NOT W0 J" @ ! $ T P Y B C C R ] B. . P M E M 2 0AB CD ADDR @ 9a:a;a
0x051788…05191c Dummy {f00=0x001a, f01=0x0190, f02=» = Jn 0 9U AE E h E ( "^ F = Jn @ A @ !? $> A"T H _* 5 @H B @ A B. 0 Jn AG& AG( G$ ( "^ @ A ( C 5 @ 4 B P J" _ 5 B. 5 J" AG J" R: P J" R( G ( "^
0x05191c…051ab0 Dummy {f00=0x001a, f01=0x0190, f02=» h 9 , PP , X QD h H Y , h H Z H @H P : Hj ` : B I h _* AHV HR ( "^ : ; ;<A ' R `R Q QB _ QB <a : : : - A ~(@ A" AH A A A A AH AH AH a I
0x051ab0…051c44 Dummy {f00=0x001a, f01=0x0190, f02=» Qh Q P( @ @ @ @ Y Y Y Y " A "; V W # @ A AH @ ? ? > Q @ ? ? ? ? ? ? ? J F6 @ P <a:a B :A : P6 $ R, Z R R Q $ :D P $ R ^& : B P R( AJ AJ^ A
0x051c44…051dd8 Dummy {f00=0x001a, f01=0x0190, f02=» @Jh Jj ? ? ? ? ? ? ? Jl ( < Jn B @ 9a:a R @ @K @"N %J '~ %J :EOS:EOV AHV HR "$&1368 AKN KP!? QKfP ^ 52 AL X AO X AO Q R x % =A Y X Y4 Z8 AKF $ $ T D i Kd !N X "
0x051dd8…051f6c Dummy {f00=0x001a, f01=0x0190, f02=» W !N " P P !N _ !N4 Md M L 4 P Pj P P P @O Y M D P X &Q Y W Y 4 X $;H D :ET $;H D OSP OVT W W !L X ! P X 1P W @ X U W W W !L X ! . @Wp !L X ! Tb AW^ X
0x051f6c…052100 Dummy {f00=0x001a, f01=0x0190, f02=» AKF Y , $ T D q 84 !N !N> L KR Y Y AO AO LJ !N !N> L W W ANX X 9c T DKJ EKJ 4 X B X :c HKJ % M !N _N !N !N8_X !N _^ !N Y " !N>_p KV_ X # ;dC Y AKH AKD 7P AO _ _ _( _, _0
0x052100…052294 (0, 104) Dummy {f00=0x001a, f01=0x0190, f02=» C "! PX @ Q P VF_ P RN;AR P P4 0 P P C C C LPT P P C # ( C _: DL P H C _ P X( DD _Z :EOS :EOF 52 5J 5 @ !? ?R _ P 4 ' !? 0X A "! X6 @ Q P ^L_ P XP P R :AV L D
0x052294…052428 Dummy {f00=0x001a, f01=0x0190, f02=» M # C C @ _ "ZN(@(@ ^ :j >Z _ m (@ M M 8 DKT X X T X M W M W y Y Y Y # C B 58 B 58 $? R P R O P R R O P P| P Pv P $P &PN "P<
0x052428…0525bc Dummy {f00=0x001a, f01=0x0190, f02=» DYPj X T Y $ WZ R WX $ # T $ T Y B W0 %@ R b " Y Y Y Y Y $ X _0 8 TCX< TKXB MTXH DYXN ^ @ T <j =h QU P. ^ %x 8P F6 X % !X %`X P % X. R" X>W % P T %
0x0525bc…052750 Dummy {f00=0x001a, f01=0x0190, f02=» @U E E E E E E U > > aU @U E @U @U @U @U @U @U @U U Q (@ T W@ &_T@ H P P T ?f' W " H Wx " Wn & P >b& >AW >a& @T " X X T$W.
0x052750…0528e4 Dummy {f00=0x001a, f01=0x0190, f02=»V: T" T" T" T" T" T" " " " " " " " T" >" HU AU T" T" T" T" T" T" " " " " " " " T" AU > ?f' _ 8 @ T <j =h 8P F6 X % !X %`X P % X. R X>W % P T %
0x0528e4…052a78 Dummy {f00=0x001a, f01=0x0190, f02=» @ E E E E E E > > a @ E @ @ @ @ @ @ @ Q (@ T W &_T H P P T ?f' W " H W " W & P >b& W X M M Y X Y Y B Y ! Y
0x052a78…052c0c Dummy {f00=0x001a, f01=0x0190, f02=»W !Yl L x P !Y M Q W ! P M L ZZ Y$ B Y Xh AW| 8 4 B :e L Ph !Y M Q !Y8 B B $ !X !Yl L x P2 x X0 M L Q !YB_@ !Y M Q Y$ 4 ! 9A " ! M 4 P P L P P ! _ 4
0x052c0c…052da0 Dummy {f00=0x001a, f01=0x0190, f02=» M AU L 7P U M Y B AU U Y X P P P P P P8 Xh !^ AU B T B @U ) @U I @U I Xh 4 B AU ! T h AU M !Y8 L @U ! P AU !^ !YFW AWz !^ !YF" P !YB M L ZL M AU V !^ !^ Xh B P2
0x052da0…052f34 (0, 105) Dummy {f00=0x001a, f01=0x0190, f02=»U AU ! R AU W& ! R AU R ! R W ! R AU P AU V ! R ! R _ P* AU AU R Ql ! R Wb ! R ! R WP ! R ! R W> B <e :e Q P AU AU ! R AU Z X Td @U ! P W @U P Q Y @U @U A
0x052f34…0530c8 Dummy {f00=0x001a, f01=0x0190, f02=»Yl" T" L @U P<W !Yl" T L @WzP$ M L Q !YB_Z M Q Xh T X $ P@ D R: P @U ! P !] T D $ !^* @U ! T L AWz !]zW !] T D R@ $ !^ @U ! T @U T " T AU W AU T P AU Y T U 4 !] @U ! P !YF
0x0530c8…05325c Dummy {f00=0x001a, f01=0x0190, f02=» L " P $ M 4 @U U ( = Y 4 @U U < ) Y 4 X ! J $ <b! L !? P L ! _ @U L T !Y L 9AV$ !Y M Q A"R @ M Q 4 M Y$ 4 !YB !Y M Q AU M !Yl 4 @V TOTD @V" 1T: B AV*
0x05325c…0533f0 Dummy {f00=0x001a, f01=0x0190, f02=» P P B Y ! P L b X P P P P 52 B 58 @_<P M L 7P A_< _D !b !b !b L ! T L T Y X ! P !c W !c< ! P M L Z& b X T L !b Y Y M _R B Y b _D !b X P P P P P
0x0533f0…053584 Dummy {f00=0x001a, f01=0x0190, f02=» Y Y B Y !ax !b M !c " P M L Z W X Y Y B X > b B T Y !b M M !c< L " :K b b M L R L ! T" B : R <A ^ M 9GW( 4^ 4 R @ M M 9H MR b B X V Y
0x053584…053718 Dummy {f00=0x001a, f01=0x0190, f02=»T WT L $ T( T W@ ^ 9A D_H D_H W$ ^ R @ M 9A D_H$ M 4 L P M !c P M b 4 B c hR b L :B* WX X :a L ! 9A r X L :B L * W* X :a L ! 9A r X L :B L L !? B
0x053718…0538ac Dummy {f00=0x001a, f01=0x0190, f02=» M b L 4 :EOS:EOV L Z W X Ad d !? Qf P ^ 52 V X 58 58 X Ad~ Ac Ac d @d T Ad !e Pf` !eT e Q Ac P !e _ f !edP Y !e !e Ac X _ (W x ! 9A Y _2 !epY@ 9 R !e !e
0x0538ac…053a40 Dummy {f00=0x001a, f01=0x0190, f02=» X r s W4 X @ _ W$ AW @W $W %W W !W W X 9d)` Ad Ac A T 7P 9CV * 9AV 9AV X 1P * 9EV )@ X Q6{ X Y Q& X $ :ET D OSP OVT * W * W Y Ac Y 4 @c J P f4 4 O P @ T ; @d U X @d d 4
0x053a40…053bd4 (0, 106) Dummy {f00=0x001a, f01=0x0190, f02=» Y >% X P Y _" P" P& R| ^T Y _D _T X _ X _ X" X& T: X P4 0' P. 1R P _ 0$ XT % X` Z _f % _n Q4 8 TYP, R Y _$ P Q X Q % _" Y Y Y 4 % X P Y $
0x053bd4…053d68 Dummy {f00=0x001a, f01=0x0190, f02=»h, hZ 4 h: hdW2 h4 hr X W$ h@ h~ W hF( X = 0 :R # Y ; ; ? 0 :R 9 Y 9 9 : : : @ P R ! R P L M M Y$ #? @ P R P T T T Y"
0x053d68…053efc Dummy {f00=0x001a, f01=0x0190, f02=»l C ( "^ @m j U T " P " P @m W C "& # ( "^ A p @l @l @l @l <h @l % @l @l l l z [ [ [ [ [ [ [ ^ r [ [ [ [ @ L ! P Y _ @ M ^ U
0x053efc…054090 Dummy {f00=0x001a, f01=0x0190, f02=»_2 l # C ( "^ P l l l l CCT I T P Q _, Al _V LM l A"X Al l L 9 !? Ak Ak Ak Ak J Ak T, B J (@" T L #( "^ B P @ !? M @m P M L R ! _x PP I H P
0x054090…054224 Dummy {f00=0x001a, f01=0x0190, f02=»0 4 8 < l U T " P " P @ W C "& # ( "^ A p @ @ @ @ <h @ % @ @ z [ [ [ [ [ [ [ ^ r [ [ [ [ @ L ! P Y _ @ M ^ U
0x054224…0543b8 Dummy {f00=0x001a, f01=0x0190, f02=»_2 # C ( "^ P DOS - PTS 6000 REL. 11.0 81-05-01 FOR 6791 (1 MB) FLEXIBLE DISK DRIVE n` P
0x0543b8…05454c Dummy {f00=0x001a, f01=0x0190, f02=» OF DATA 3 | P LDR A2,A7 SAVE END OF DATA 4 P ANK A2,1 4 4 P ORK A2,/F0 HEAD NUMBER 4 F & P SC A2,2,A1 HEAD NUMBER TO BUFFER 4 f P SRL A7,1 4 P CF A5,BINDEC EBCDIC CODE 4 & P STR A3,A1 TRACK NUMBER TO BUFFER 4 & P LD A7,DWTEOD,A4 GET SECTO
0x05454c…0546e0 Dummy {f00=0x001a, f01=0x0190, f02=» 4 l P ECR A3,A3 5 P SC A3,3,A1 5 $ P CF A5,WRIPRE PREPARE FOR WRITE 5 . P CF A5,CIOI00 5 V P RF(NZ) END:UL WRITE ERROR 5 l & P CM DWTEOD,A4 INDICATE NOT OPENED 5 P XIF 5 PEND:UL EQU * 5 & P ORS A1,DWTRC,A6 SAVE RETURN CODE 5 P IFT I
0x0546e0…054874 (0, 107) Opaque[0x194]
0x054874…054a08 # DirEnt {nam=»SUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0360, f03=0x0000}
0x054874…054a08 IdxSect {
0x054874…054a08 f00 = 0x001b // 0x54874 @0x0
0x054874…054a08 f01 = 0x0004 // 0x54876 @0x2
0x054874…054a08 gno = [ // 0x54878 @0x4
0x054874…054a08 [0x00]: C0x001b.0x0.0
0x054874…054a08 [0x01]: C0x001b.0x1.0
0x054874…054a08 ]
0x054874…054a08 }
0x054a08…054b9c Dummy {f00=0x001b, f01=0x0190, f02=»
0x054b9c…054d30 Dummy {f00=0x001b, f01=0x0190, f02=»R * Z ` D L R L A 5 L W W ` $ F @ bV& L | ** - Z ` d h X 8 8 D 8Y, W W : ( SUM 11.0 (810216) *** SAV
0x054d30…054ec4 Dummy {f00=0x001b, f01=0x0190, f02=»1 357 41100 0SAVE D I S C ONTO MAGTAPE 0SAVE U S E R ONTO MAGTAPE 0MEMORY OVERFLOW STATISTICS TOTAL NUMBER OF SAVED USERS: SAVED FILES: SAVED GRANULES: A t USERID: @ bV
0x054ec4…055058 Dummy {f00=0x001b, f01=0x0190, f02=» A v : A B @ bV T t 9! A | bV D @ bV(W @ bV " T F Z2 @ bV @ V D F t _ A z :
0x055058…0551ec Dummy {f00=0x001b, f01=0x0190, f02=» @ bV 6 T Z
0x0551ec…055380 Dummy {f00=0x001b, f01=0x0190, f02=» STATUS WORD: @ * P WRITE PROTECTED @ * P NOT OPERABLE @ * P END OF TAPE ( < $" = A A ( : A ^ A ` ( h A ^ A ` < ! X !XXT L( ( @ h! : A ^ A ` (
0x055380…055514 (0, 108) Dummy {f00=0x001b, f01=0x0190, f02=»_ 0Z2 U ]@ YF< Y< ZT L A 5 ` F R P ~ bZ : # ( # @ d bZ, : ?? DISC FILE CODE ? OK ? LISTING OF FILENAMES ETC.? < $" = @ L A L A N A L : A NW @ n A N
0x055514…0556a8 Dummy {f00=0x001b, f01=0x0190, f02=» j A p @ N A N : ; [ [ [ Z Z Z : : < , = = . $ - Y : . - : . " :d H - " H - :0123456789ABCDEF . A 9h _@ . - Y : @ nY : @ U > : @ A R _ : . j
0x0556a8…05583c Dummy {f00=0x001b, f01=0x0190, f02=» 1 PAGE: f Z
0x05583c…0559d0 Dummy {f00=0x001b, f01=0x0190, f02=» W _" 4X X [ Z _ TV 4P P _ WJ U : R O T O O W O U W W F A BP @ : _ _ _ 1^ _ 1Y P J 0^& Q
0x0559d0…055b64 Dummy {f00=0x001b, f01=0x0190, f02=» 0TOO MANY I/O ERRORS ON DISC ,P @ < * XXXXING SECTOR: XXXX, STATUS WORD: XXXX ( READWRIT , %Q R Y W W Z ' [ : ; [ [ [ [ [ R Q @ - WJ @ - A R( X R X
0x055b64…055cf8 Dummy {f00=0x001b, f01=0x0190, f02=»IMITER PTS j z 6 P LD A1,S:CHR2,A13 STRING CONTROL CHARACTERS * PTS k 0 P ST A1,CHARMS+4 INITIATE ERROR MESSAGE * PTS k L $ P LDKL A7,CHARMS "$$ ERROR" * PTS k P ABL UPD185 * PTS k P k 2 PLINENO EQU * LINENUMBER 1 > LINENUMBER 2 PTS k : P LDKL A7
0x055cf8…055e8c Dummy {f00=0x001b, f01=0x0190, f02=»ASB3,A13 FILE NAME * PTS k P MS 3,ASREF+4 * PTS l P LDKL A1,' ' * PTS l < & P LD A2,W:ASB6,A13 FILE TYPE * PTS l X P MS 2,ASREF+10 * PTS l 8 P LDKL A7,ASREF "<NAME><TYPE> CAN NOT BE ASG'D" * PTS l ( P ABL UPD185 GIVE ERROR MESSAGE * PTS l P
0x055e8c…056020 Dummy {f00=0x001b, f01=0x0190, f02=» LED,978 l P!!JN LED,982,983 m P m ( P!!JN LED,987 m 0 0 P LD A3,S:NB,A13 SHOW CURRENT LINENUMBER PTS m D 4 P CFI A14,C:BIDE,A12 CONVERT LINENO TO ASCII PTS m x . P MS 2,SEQER+30 LINENO IN ERRORMESSAGE PTS m P!!JN LED,991,992 m P EJECT * PTS
0x056020…0561b4 (0, 109) Opaque[0x194]
0x0561b4…056348 # DirEnt {nam=»RUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0370, f03=0x0000}
0x0561b4…056348 IdxSect {
0x0561b4…056348 f00 = 0x001b // 0x561b4 @0x0
0x0561b4…056348 f01 = 0x0006 // 0x561b6 @0x2
0x0561b4…056348 gno = [ // 0x561b8 @0x4
0x0561b4…056348 [0x00]: C0x001b.0x2.0
0x0561b4…056348 [0x01]: C0x001b.0x3.0
0x0561b4…056348 [0x02]: C0x001c.0x0.0
0x0561b4…056348 ]
0x0561b4…056348 }
0x056348…0564dc Dummy {f00=0x001b, f01=0x0190, f02=» 4
0x0564dc…056670 Dummy {f00=0x001b, f01=0x0190, f02=» V b @ D 4D;a<a * A A A R$S D L R( L A L 2 W 0MT AT EOF! W r 2 A R Sr @ ^ _& @ V& z ** - &Z b v 8
0x056670…056804 Dummy {f00=0x001b, f01=0x0190, f02=» (810216) *** RESTORED FILES WITH GRANULE ADDRESSES ************** DATE OF RUN: YYMMDD 0RUM REL 11.0 DATE 81. 02. 16 12NC=8701 356 41100 0RESTORE D I S C FROM MAGTAPE 0RESTORE U S E R FROM MAGTAPE 0MEMORY OVERFLOW STATISTICS TOTAL NUMBER OF RESTOR
0x056804…056998 Dummy {f00=0x001b, f01=0x0190, f02=» P W D * A @ Q @ T T A W 8 v A V A K @ z K K @ :T W D < v @ v @ @ V P @ ~T @
0x056998…056b2c Dummy {f00=0x001b, f01=0x0190, f02=» OVERFLOW W 0CATALOG OVERFLOW @ , z WHEN CREATING USER UUUUUUUU NEW USERID: N:O OF FILES RESTORED:, N:O OF GRANULES ALLOCATED:
0x056b2c…056cc0 Dummy {f00=0x001b, f01=0x0190, f02=» V T T RW A A A e V6 @ e @ v v J @ 9! A | V P0R* VP( 0DISK OVERFLOW WHEN RESTORINGW V8 9! W ! T T Z$
0x056cc0…056e54 (0, 110) Dummy {f00=0x001b, f01=0x0190, f02=» A z : @ z @ ! z @ * z & FILE: FFFFFF TYPE: TT USER: UUUUUUUU A ~ @ ~ d J ] _ W S UNEXPECTED TAPE MARK A ~ RESTORED FILE NO GOOD _ < $" = ~ A A ( : A .
0x056e54…056fe8 Dummy {f00=0x001b, f01=0x0190, f02=» j W n A . A 0 ( H ES O A : W ! T _ !//T ( _ 0Z2 U ]@ YF< Y< ZT A R ~ P N 2Z : , # ( # @ 4 T 2Z, : ?? DISC FILE CODE ? OK
0x056fe8…05717c Dummy {f00=0x001b, f01=0x0190, f02=» > *( @ @ A , A . z ( : U z W @ #U. A @ d A p @ ~ A : ; [ [ [ Z Z Z : : < , = = $ - Y : - : " :d H - " H - :0123456789ABCDEF
0x05717c…057310 Dummy {f00=0x001b, f01=0x0190, f02=» 1 PAGE: 6
0x057310…0574a4 Dummy {f00=0x001b, f01=0x0190, f02=»P WX [ WD ; T : : W H _" 4X X [ Z _ TV 4P P _ XWJ U z : X R O T O O W O U W W H
0x0574a4…057638 Dummy {f00=0x001b, f01=0x0190, f02=» A A ( @ T2 : W A ^ A p l Y : A ]B 0TOO MANY I/O ERRORS ON DISC P z @ * XXXXING SECTOR: XXXX, STATUS WORD: XXXX ( READWRIT A "( @ *P P,QT @
0x057638…0577cc Dummy {f00=0x001b, f01=0x0190, f02=»ERROR ON MT STATUS WORD: @ * P NOT OPERABLET& @ ( d LENGTH ERROR _ $ "( : , %Q R Y W W Z ' [ : V T(= @ M A _ @ V I _ P W H @ R
0x0577cc…057960 Dummy {f00=0x001b, f01=0x0190, f02=»
0x057960…057af4 (0, 111) Dummy {f00=0x001c, f01=0x0190, f02=» - A R( X R X _ Q @ X A T - _. D - Z Z Z Z Z : :- 0123456789 d ' A B A F @ 4 R" 4X @ =C R 9 V W H b - 9W: b - 9W. ;c ` Q( $ ,` A { <` @ + @ : W
0x057af4…057c88 Dummy {f00=0x001c, f01=0x0044, f02=» H P ( 0 p 8 @ H P X ( 8 @ H h x
0x057c88…057e1c Dummy {f00=0x001c, f01=0x018e, f02=» P IDENT LED GOKU/80-11-17 P* $ P* . P* 8 P* B P* L PSEG6 EQU * V P DATA UPDPRO r > P DATA UPDPST POST PROCESSING(IF ABORTED) P* P* P* P* P NLI
0x057e1c…057fb0 Dummy {f00=0x001c, f01=0x0190, f02=» P* P* P* 8 PCVEADR EQU /82 ADDR OF SUPERVISOR CVT & P* b . PCVEMSZ EQU 0 MEMORY SIZE l , PCVESTB EQU CVEMSZ+2 STACK BASE 6 PCVESBA EQU CVESTB+2 SMALLEST BUFFER ADDR 6 P
0x057fb0…058144 Dummy {f00=0x001c, f01=0x0190, f02=»+2 START ADDR OF DISPATCHER x 2 PCVEFCT EQU CVEDSP+6 FILE CODE TABLE & 4 PCVEDWT EQU CVEFCT+2 DEVICE WORK TABLE 4 PCVEDCT EQU CVEDWT+2 DISK CONTROL TABLE 6 PCVEJPT EQU CVEDCT+2 JOB PARAMETER TABLE . PCV
0x058144…0582d8 Dummy {f00=0x001c, f01=0x0190, f02=»ELFT+2 CURRENT YEAR, 2 ASCIL CHAR | < PCVEMON EQU CVEYAR+2 CURRENT MONTH,2 ASCIL*CHAR , < PCVEDAY EQU CVEMON+2 CURRENT DAY, 2 ASCIL CHAR l 4 PCVEHOR EQU CVEDAY+2 HOURS ^ @ PCVEMIN EQU CVEHOR+2 MINUTE
0x0582d8…05846c Dummy {f00=0x001c, f01=0x0190, f02=» ` 2 PCVEBTB EQU CVEFIT+2 ALLOCATION TABLE P* > P* H P* R P* & P* FCT FILE CODE TABLE f P* , PFCTFC EQU 0 FILE CODE H PFCTDWT EQU 2 ADDR OF DWT ASSIGNED TO THE FILE
0x05846c…058600 Dummy {f00=0x001c, f01=0x0190, f02=»TROL TABLE v . PDCTLG EQU -14 ENTRY LENGTH F PDCTEB0 EQU DCTLG+2 EVENT BYTE / LOGICAL DISK FILE CODE D : PDCTEB1 EQU DCTEB0+2 BUFFER (205 WORDS) ADDR B PDCTEB2 EQU DCTEB1+2 REQUESTED LENGTH,410 CHARACTER
0x058600…058794 (0, 112) Opaque[0x194]
0x058794…058928 # DirEnt {nam=»PMPTS «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0388, f03=0x0000}
0x058794…058928 IdxSect {
0x058794…058928 f00 = 0x001c // 0x58794 @0x0
0x058794…058928 f01 = 0x0010 // 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 ]
0x058794…058928 }
0x058928…058abc Dummy {f00=0x001c, f01=0x0190, f02=» <W v x ` % d C * C ( #( # C C ( C % C ( @ ? T &p_B @ F1ZL F9YR U d 00 @ S _x &$ P T.W8 @ % % $ % 2 % ( 4 $ % W
0x058abc…058c50 Dummy {f00=0x001c, f01=0x0190, f02=» B YE Z X ` U d &Z S * d C C ( C C ( @ j b ? T &p_> D b AB 88T B D 63 d A( 67T B D 91T LR 68 B D 75T U d 6875W 76T U d 6876 -H 79
0x058c50…058de4 Dummy {f00=0x001c, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x058de4…058f78 Dummy {f00=0x001c, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x058f78…05910c Dummy {f00=0x001c, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x05910c…0592a0 Dummy {f00=0x001c, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x0592a0…059434 (0, 113) Dummy {f00=0x001c, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x059434…0595c8 Dummy {f00=0x001c, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x0595c8…05975c Dummy {f00=0x001c, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x05975c…0598f0 Dummy {f00=0x001c, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x0598f0…059a84 Dummy {f00=0x001c, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x059a84…059c18 Dummy {f00=0x001c, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x059c18…059dac Dummy {f00=0x001c, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x059dac…059f40 Dummy {f00=0x001c, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x059f40…05a0d4 (0, 114) Dummy {f00=0x001c, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x05a0d4…05a268 Dummy {f00=0x001c, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x05a268…05a3fc Dummy {f00=0x001c, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x05a3fc…05a590 Dummy {f00=0x001c, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x05a590…05a724 Dummy {f00=0x001c, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x05a724…05a8b8 Dummy {f00=0x001c, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x05a8b8…05aa4c Dummy {f00=0x001c, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x05aa4c…05abe0 Dummy {f00=0x001c, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x05abe0…05ad74 (0, 115) Dummy {f00=0x001d, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x05ad74…05af08 Dummy {f00=0x001d, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x05af08…05b09c Dummy {f00=0x001d, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % INVALID PA
0x05b09c…05b230 Dummy {f00=0x001d, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x05b230…05b3c4 Dummy {f00=0x001d, f01=0x0190, f02=» C C C ( B : 0 &N "! #( B : & d C C ( & $ $ % & d C C ( : & & ' '$'> F1 - F9 N6875 - 2,5 MB; 6876 - 5,0 MB; 6879 - FLOPPY; 8863 - MFD; 6791 - 1 MB FLOPPY YY MM DD ANY NUMBER 0000 -
0x05b3c4…05b558 Dummy {f00=0x001d, f01=0x0190, f02=» =L=k ] n ] p 9BR :K T :A Y :a :i q r E x T 4 &: 4: V - P Y _( Y M : $ ] $ =IR E : $_ t , ) Y
0x05b558…05b6ec Dummy {f00=0x001d, f01=0x0190, f02=» x T T &: 4: V - P Y _( Yj Y =C ] J R ] NQ 5 Y ] L ] PY : R , ] F ] H =B ] J ] P T M T _> : TP ] T=B- ] J ] P :q q E A I I M
0x05b6ec…05b880 Dummy {f00=0x001d, f01=0x0190, f02=» & ] f ] h A Z : X ] X W X ] X f X ] X f x T& P Z : T ] f_^ T &: 4: V - P Y _( Y 3P Q Q / ] f : 0 ] f : ] f : h P W ] Z :
0x05b880…05ba14 (0, 116) Dummy {f00=0x001d, f01=0x0190, f02=» , ) Y %? ] % ] =A ] ] ] ^ R @ ] :A H x T T &: 4: V - P Y _( Yz ] ] =B ] ] : P ] =B- ]
0x05ba14…05bba8 Dummy {f00=0x001d, f01=0x0190, f02=» SUPERV Wp U (@ - # C C ( #( 5 U (@ - # C C ( #( (@ V8 4 < # X V / 8 C ( X 9DV` X C % P _ ( X 8 U X $ ? T X ! P 9b &p_p X
0x05bba8…05bd3c Dummy {f00=0x001d, f01=0x0190, f02=» 8 U _ R R S R R S 4n LABEL = S < DATE = S h S l S p PACK NBR = S v 0 $ S f S h S j S l S n S . S S 5 R * $P 1 1 _ 5 " $P 1 1 _ 5 :A $P 1 1 _ R &N N 3z S
0x05bd3c…05bed0 Dummy {f00=0x001d, f01=0x0190, f02=» 3 W R R R T R T R P 0 W % R W R F P B5 f 1H R >A >D s S % S S R 4 3 1 3 W S R S S : 5, (@ - 56 _ 5X _ 5d _" R 1V R A5 A5 3 1l 3 R S R %
0x05bed0…05c064 Dummy {f00=0x001d, f01=0x0190, f02=» R :a_ 9 _, ? S - Y < R R . % A2j 3 28 3 W ' R R 3 2T 3 W R % Z $CATALOG S R S R R 3N VTOC S B5 R R 9H R R R R 3N R S S S
0x05c064…05c1f8 Dummy {f00=0x001d, f01=0x0190, f02=» 3 3v 3 W : F N : >C F S . : :a :Av v >D >BF ::a :Av v >D >B _ N S4Y > R*> 5D 1&N S Y ?T > Z > R 1 1, 14 A4^ R R @4^ : R 8 YET [ W NOT - [ : : A4^ R 4X SR S S :
0x05c1f8…05c38c Dummy {f00=0x001d, f01=0x0190, f02=» RUN AGAIN : LABEL: DATE: PACK NBR: SYST. USERID: END OF PMPTS SEEK ERRORUNKNOWN DEVICEDEVICE NOT OPERABLE THRUPUT ERR BAD TRACK IN FIRST CYL. NBR OF DEF. TRACKS: S/ / 3 3 3~ 3 3 3| 3 3 3 3
0x05c38c…05c520 Dummy {f00=0x001d, f01=0x0190, f02=» USER POSSIBLE RUN AGAIN ? : END OF PMPTS LABEL = DATE = 6879 PACK NBR =
0x05c520…05c6b4 (0, 117) Dummy {f00=0x001d, f01=0x0190, f02=» CATALOG
0x05c6b4…05c848 Dummy {f00=0x001d, f01=0x0190, f02=» ( 0 $ ,
0x05c848…05c9dc Dummy {f00=0x001d, f01=0x0190, f02=» CATALOG
0x05c9dc…05cb70 Dummy {f00=0x001d, f01=0x0190, f02=»< U < U 6 U < U 6 U 6 $ ? T &p_( A6 A6 R * A6 A@B A@ A=` A=f A=l A@f A@p A@t A@ A@ A@ A@J A@^ A@z A@ < U 6 U 6 $ ? T &p_( @5 A6 6 U 6 U @6 ? T &p_& NOT 6 T 6
0x05cb70…05cd04 Dummy {f00=0x001d, f01=0x0190, f02=» @: P 8A A; A: =t O6 : ; ; =t 6 A@X @; @: 9@ A= 9@ O6 @B 6 : ; N6 A; @6 @6 > @6 # TH @; 8A A; ! T: A: @: T : @; O6 ; N6 A; @6 A6 _P @z P @ A6 @6 ! v @: T @; O6 : ; > A
0x05cd04…05ce98 Dummy {f00=0x001d, f01=0x0190, f02=» P @ @8 A:. 6 ? 6 : " A8 6 A8 A6 A6 6 A@X @J P @ : 6 A6 8~ A@X @J P @ @:. A8 A8 6 A@X A@B A@f A@p A@t A@ A@ A@ A@J A@^ A@z A@ 6l U 6z U NO @6zP YE @6z ( <.A A@ 6z
0x05ce98…05d02c Dummy {f00=0x001d, f01=0x0190, f02=»S6I Y : @6 P P 4 ^ :A H9 W W 9C : 6 $$ AV U @* A5 Z Sx A6D A6F @5 Sx A6J A6L 66 $$ AV U ( S S S S SUPERV AI AI AI AI W2 U (@ A # C C ( (@ ( I l
0x05d02c…05d1c0 Dummy {f00=0x001d, f01=0x0190, f02=» T 8 Y X ;EV B4 S _| W 00 BJ R _ X %_f F S S IR LABEL = S < DATE = S h S l S p PACK NBR = S v 8863 S r 0 f S . S S L R * $P 1 1 _ K " $P 1 1 _ L " :A $P 1 1 _
0x05d1c0…05d354 (0, 118) Dummy {f00=0x001d, f01=0x0190, f02=» BL@ " BL> < G C Hr AC G. R T R T R T R & BL@ 0 BL> F D CLW C <A PLD QLD QLD<a G S R BLBQ:>A R Q0 J (@ Aj J _ K _ K _ K* _& R Df R AKX AKZ KB _D K _L D SR AK D _ A
0x05d354…05d4e8 Dummy {f00=0x001d, f01=0x0190, f02=» R S R % R G R R R R V 9d9A S - ] " :A HL M ? S - Y < R R . % AE R P G Q *n BLP R G R % Z $CATALOG S R S R S R R G" QJ VTOC S
0x05d4e8…05d67c Dummy {f00=0x001d, f01=0x0190, f02=» AI (@ A KD D2 & G F Hr R R G. F H6WX S R 9H R R R R S R O R G" N G E$ Hr DP G : H AH =h Gj GH H6W @H Gj Gf H6W : :a :Av v >L >B F :
0x05d67c…05d810 Dummy {f00=0x001d, f01=0x0190, f02=»>B _| >A >K >B _ N STY ?T > Z<> RB> RB> R2> _ N S,Y ?T > Zd> R > > R > R > _ D, D8 D@ DHN [ Y ? > Z > Z > Z(_ AH R DH @H :0 $(,1 !%)-2 "&*.3 #'+/ AH R H SR S Q VTOC : R
0x05d810…05d9a4 Dummy {f00=0x001d, f01=0x0190, f02=»_(888863 R T SYSTEM S :J 8 H J L J 0 J H J* * JH JT Jn J Ix RUN AGAIN ?: LABEL: DATE: PACK NBR: DISK UNIT PHYSICAL ADDRESS: DAD NAME: NBR. OF CYL OF DDDDDD : NBR. OF
0x05d9a4…05db38 Dummy {f00=0x001d, f01=0x0190, f02=» ERRORUNKNOWN DEVICEDEVICE NOT OPERABLE THRUPUT ERR PROGRAM ERROR BAD TRACK IN FIRST CYL. TOO MANY DEF. TRACKS: D8 DAD TOO BIG,BITAB OFLOW NBR. OF INT NOT COMPATIBLE WITH NBR. OF SECT/TRNBR. OF INT NOT LESS THAN NBR. OF SECT/TRXPCTD: S READ:VTOC : R
0x05db38…05dccc Dummy {f00=0x001d, f01=0x0190, f02=» # X V W 8 C ( X 9DV X C ( X X2 0_: L C ( * ! T 8 Y X ;EV L S _j W 00 L R _ X %_f N LABEL = S < DATE = S h S l S p PACK NBR = S v 0 f S .
0x05dccc…05de60 Dummy {f00=0x001d, f01=0x0190, f02=» S _0 @R h @R S - @R M ? S @R D - Y < S $ S " OV O O @R P ( W , S $ OV O O % Z $CATALOG S R S S $ OV O O % Z R S S S OV
0x05de60…05dff4 (0, 119) Dummy {f00=0x001e, f01=0x0190, f02=» AR : S T WT @R P( T W@ ^ 9A DQ DQ W$ ^ R @ S 9A DQ $ S : R P S O : R :B* W` R ":a R *! 9A r R $ R :B R * W0 R ":a R *! 9A r R $ R :B R R * B PN : R * N
0x05dff4…05e188 Dummy {f00=0x001e, f01=0x0190, f02=»R Rv (@ U (@ P # C C ( (@ ( AQ4 R Q. SR S P ( W , : R 8 YEP( NOT$ # Qz C C ( V8 : END OF PMPTS R T SYSTEM S :Q 8 QDQ L Q 0 Q
0x05e188…05e31c Dummy {f00=0x001e, f01=0x0190, f02=»RABLE THROUGHPUT ERRORWRITE PROTECTED SECTOR NOT FOUNDDATA FAULT: SECTOR NO. ^ AR R 0 1 Y S AS S 4 0R, ! Q& P 8 8 W Y( AS @S @S *! 9A r 8 ! P !00R* !::R !AAR !FFQ Y& 8 9 Y
0x05e31c…05e4b0 Dummy {f00=0x001e, f01=0x0190, f02=»P P 9H _4 W; _< W; V; V; V; V; V; : W; W; W; W; W; ; L T PF_ L T& UdW4 @R 0 P 9D _( W; V; V; V; V; V; V; V; V; V; V; W; W; W; W; W; ; L T P*_ 0R" 9Q 0 P* 9C
0x05e4b0…05e644 Dummy {f00=0x001e, f01=0x0190, f02=»< 9H: " @< :H 0 d R _ A< 9H: " @< :H : : 0R :R AR GV AU AU @V (@ $$T U ( AV : AU AU (@ U ( (@ W AU AU U ( : Vx C CV P $ CV Y , CV Y Vx( :
0x05e644…05e7d8 Dummy {f00=0x001e, f01=0x0190, f02=»P P 9H _4 W; _< W; V; V; V; V; V; : W; W; W; W; W; ; L T P _ L
0x05e7d8…05e96c Dummy {f00=0x001e, f01=0x0190, f02=» K l , ( N ? 0` @G :B @G * W O @G L , ( AN ? 0` O G ? 0` L < , ( H(N @G :B @G W L :B @G @G * W L l , ( N ? 0 X M AG X L , ( O / X -( L P M !K P M L $ 'O1 L
0x05e96c…05eb00 Dummy {f00=0x001e, f01=0x0190, f02=» !K P M L Z L" 4 L , ( O X ? 0, <b X ! M $ , ( O P2 X M M Y X M T , ( H O R R B Y ! R L M , ( P Qv X P P P P - B M , ( P) - @O P M L
0x05eb00…05ec94 (0, 120) Opaque[0x194]
0x05ec94…05ee28 # DirEnt {nam=»SUP005«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x03c8, f03=0x0000}
0x05ec94…05ee28 IdxSect {
0x05ec94…05ee28 f00 = 0x001e // 0x5ec94 @0x0
0x05ec94…05ee28 f01 = 0x0014 // 0x5ec96 @0x2
0x05ec94…05ee28 gno = [ // 0x5ec98 @0x4
0x05ec94…05ee28 [0x00]: C0x001e.0x1.0
0x05ec94…05ee28 [0x01]: C0x001e.0x2.0
0x05ec94…05ee28 [0x02]: C0x001e.0x3.0
0x05ec94…05ee28 [0x03]: C0x001f.0x0.0
0x05ec94…05ee28 [0x04]: C0x001f.0x1.0
0x05ec94…05ee28 [0x05]: C0x001f.0x2.0
0x05ec94…05ee28 [0x06]: C0x001f.0x3.0
0x05ec94…05ee28 [0x07]: C0x0020.0x0.0
0x05ec94…05ee28 [0x08]: C0x0020.0x1.0
0x05ec94…05ee28 [0x09]: C0x0020.0x2.0
0x05ec94…05ee28 ]
0x05ec94…05ee28 }
0x05ee28…05efbc Dummy {f00=0x001e, f01=0x0190, f02=»b Hhd !`! !h: 4 r V ( _ >
0x05efbc…05f150 Dummy {f00=0x001e, f01=0x0190, f02=»
0x05f150…05f2e4 Dummy {f00=0x001e, f01=0x0190, f02=» b ' v 1 3V@V Dz#>"^# $ ? > #R1 C DM; MC? HD: WM; RY< RD< AS= AB? PS?jRS? & TY J( 0 DLP * L fMT T @
0x05f2e4…05f478 Dummy {f00=0x001e, f01=0x0190, f02=» T DK ( O DK G DK G b DK W DK W ? ? ? ? ? ? ? * ? ? ? ? ? ? ? ,
0x05f478…05f60c Dummy {f00=0x001e, f01=0x0190, f02=» Z & f : Z L f p Z r f
0x05f60c…05f7a0 Dummy {f00=0x001e, f01=0x0190, f02=» ~ Z f Z f V 2 ? ? ?
0x05f7a0…05f934 (0, 121) Dummy {f00=0x001e, f01=0x0190, f02=»L ? ? ? ? ? ? ? b L ? ? ? ? ? ? ? [ ? ? ? ? ? ? ? [ 2 P r L &
0x05f934…05fac8 Dummy {f00=0x001e, f01=0x0190, f02=» 6 6 6 6
0x05fac8…05fc5c Dummy {f00=0x001e, f01=0x0190, f02=»6 6 6 :
0x05fc5c…05fdf0 Dummy {f00=0x001e, f01=0x0190, f02=»
[…0x4…]
0x060440…0605d4 (0, 122) Dummy {f00=0x001e, f01=0x0190, f02=» P
0x0605d4…060768 Dummy {f00=0x001e, f01=0x0190, f02=»
[…0x1…]
0x0608fc…060a90 Dummy {f00=0x001e, f01=0x0190, f02=» *
0x060a90…060c24 Dummy {f00=0x001e, f01=0x0190, f02=»
0x060c24…060db8 Dummy {f00=0x001e, f01=0x0190, f02=» f
0x060db8…060f4c Dummy {f00=0x001e, f01=0x0190, f02=»
[…0x1…]
0x0610e0…061274 (0, 123) Dummy {f00=0x001f, f01=0x0190, f02=» @ @
0x061274…061408 Dummy {f00=0x001f, f01=0x0190, f02=» > ? ? ? ? ? ? ? U ^ ( H ( P > _ Q 4&? ?R _ 5 H _ ^ ;j >P @ * Q 9A D *P _ P A ' @ Q A ' A ' A A' _ @ A" ^ 9j ?R > > > > > > > A @" E E E E E E
0x061408…06159c Dummy {f00=0x001f, f01=0x0190, f02=» P W ' < B @ 9a:a R0 Q Q" ?A <P @ # % _ ' _ _ 0 $> B T @ W @ R (P& P (_ =a:a =A:A Z P Z _" TR @ ;a=a R W* @ =a Z ;a RP ) i $> E '
0x06159c…061730 Dummy {f00=0x001f, f01=0x0190, f02=» 0 ( P>P< , T T 1W 1W T )W )W ( , _ C ' _ 5 H A% A% A% A% A% A% A&6 A% %F &R D >a @ =a & D U@ x %pW U, @% x % W @% A% ,P$ _: @% @% @% @% @% @%
0x061730…0618c4 Dummy {f00=0x001f, f01=0x0190, f02=» _ < @ A&B A&D A&F A&H A&J A&L A&N &P =a @ >a V _ @ >a Y A&@ A&8 4 T &6( "^ 5 U P" @&B @&D @&F @&H @&J @&L @&N &P @&B x @% 8R P =A_ %_ XJ _ P0 @ !@T @! @! R > E! ! A
0x0618c4…061a58 Dummy {f00=0x001f, f01=0x0190, f02=» , L L L L L L ? ? ? ? ? ? ? @! Px @ > > > > > > > ; [ [ [ [ [ [ > > [ [ A @! H! ! ? A! > @ P ,V$ A 'L @ 9 'L T A " @ ( ? ? >_ ? ? ?
0x061a58…061bec Dummy {f00=0x001f, f01=0x0190, f02=» Y Y $ 0T W W . X ? ? ? ? ? ? ? )^ 0 X #? P ? ? ? ? ? ? ? ) 0( . (@ / % ? ? ? ? ? ? ? ) 0 (@_$ - ? ? ? ? ? ? ? ) 0 ? ? ? ? ? ? ? ) 0( ? ? ? ? ? ? ? * 0"(@_~ - X R Y _ X D $!
0x061bec…061d80 Dummy {f00=0x001f, f01=0x0190, f02=»P X / / * - 8 TRT X - -0 ? ? - Pl - X X X M M Y ? ? ? ? ? ? ? +* 0h ? ? ? ? ? ? ? +B 0 (@ / X DbP DhT" Y 0 Y Y X Q Y _ X X X U 5 X E
0x061d80…061f14 (0, 124) Dummy {f00=0x001f, f01=0x0190, f02=» ? , 04Qv ,& - " PF X Q< X P P ? ? ? ? ? ? ? ,X 0h(@ Y ; X X X R 5 X X - -0 X Q Y Y X Y x ? ? ? ? ? ? ? , 0( Y Y X X T ? ? ? ? ? ? ? , 0" > > > > > > > > ? @ ? > X
0x061f14…0620a8 Dummy {f00=0x001f, f01=0x0190, f02=»! X L P L @ _ C C # ' _R _ _ _ _ _ X T - - X ! TH X X X T" $ :ET D OFT W OST X P % Y X R X -> ! X Y T T Y Y Y Y Y U U X @ _
0x0620a8…06223c Dummy {f00=0x001f, f01=0x0190, f02=»_8 X X: X R X ( _$ _* $ XtRX P Y _ A/T X X Y X Y _ $ P4R P6 X Q Y Y <dW Y W $ P R , _ X X*Y$ X X X6 Y Z(P A/T ZrP Y _8 _< _@ ! -( #> X M A/ T `( -( X X
0x06223c…0623d0 Dummy {f00=0x001f, f01=0x0190, f02=» V <a W X ' ?A q A0 > > > > > > > 0 , 0W 0T _ l P$ X X ] X * A0 J " * - X ( / = V X X ; X -0 L ! L % T< L P4 M ^ L X 4 _ ? ? ? ? ? ? ? L W L R % _R ^
0x0623d0…062564 Dummy {f00=0x001f, f01=0x0190, f02=» W* 6& W" 4 W 7 L :AR| M W M M 4 L T M M L PH=GV L L 4 2` M 2 3 M L 9G L 4 L M L M M L 4 2 W M " 9 L P L 9JR@ P P T 9 5 U P T Q P P W Q P T@(@ L D "
0x062564…0626f8 Dummy {f00=0x001f, f01=0x0190, f02=» P $ M 2 P ( M P Q P P P W P T Q (@ L " 9 (@ H H T 9 E $ I 4P _ 5 % E (@ L 2 ( P _ 4 ) % ] M (@ L 2 9 T R Q @ ] 9 > 9C 9C > ^ U (@ L
0x0626f8…06288c Dummy {f00=0x001f, f01=0x0190, f02=»& 9 4 M 4 4* M L M L " P M 5 2 M L M 9 L ! PT L M L M L & P L E E M 5l 2 M M L L % T D V L ! P L ! XfWn L M L M M 5 2 L :c:A L D V D M L ! T*_ L <
0x06288c…062a20 Dummy {f00=0x001f, f01=0x0190, f02=» L $:BV W $:AV M " M 9 L L $ M 0 D L U M " V L R L M ( M * M , L X L U M W 6 M 2 5* L D L L 0U L 0 L (U L ( L L R $ 9 _ R $ 9 M , L M M M M M ( M ( M 0 M 0 L
0x062a20…062bb4 (0, 125) Dummy {f00=0x001f, f01=0x0190, f02=» U 7 M 2 5* L M $ L M & L L I P0% P L X =h P W P L X T M . L 9 M L 9 L L . Q L L L R 0 % _ M M L . P M . 8F M 2 5* L U 8 M 2 5* L L L & ) L $ I L M L
0x062bb4…062d48 Dummy {f00=0x001f, f01=0x0190, f02=» U 9Z M 2 5* L L ( E L % E L E L E M 9 M 2 5* L P$ 9 M 2 3 M "W > = B W ' L 4 5 L L " C m M ^ U L ( L L ? ? ? ? ? ? ? M.A A AF 4 R W 7 B Q : : : : : AJ
0x062d48…062edc Dummy {f00=0x001f, f01=0x0190, f02=»AF P AJ : : : : : @AF AAF A: ' 5 4 X _8 ; W M: ;" ( "^ : ;. L 0 MESSAGE UNKNOWN ;L H Q L L L R 0 % _ M M L . P M . 8F M 2 5* L U 5 ; B B ; P B - _ : 5
0x062edc…063070 Dummy {f00=0x001f, f01=0x0190, f02=» T A< < (@( -( -0 : 0 :R - Y 0 PU,DNXX,STAT,RY < 5 B ? ; <y 1P < Y _ @;L RDP A P 8 FL ; X X ! R V Y A=X 8 TKP Y LPP MTP Y Y T T
0x063070…063204 Dummy {f00=0x001f, f01=0x0190, f02=» ? ? ? ? ? ? ? = 0h_ 5 B ; @ v Q wP P vT Z ; W P v ; $>H $ NOT W0 B @ ! $ T P Y ; C v C x R ] : . P M >z M 2 0AB CD ADDR @ 9a:a;a R R A> > AAH _ '
0x063204…063398 Dummy {f00=0x001f, f01=0x0190, f02=»> bJ >p ( "^ ?> = B @ A @ !? " A AJ_* 5 @AD ; @ A : 0 B A? A? ? ( "^ @ A ' <y 5 @ 4 ; P B _ 5 : 5 B A@I B R: P B R( @H( "^ @P^ @ T @2 ( "^ :
0x063398…06352c Dummy {f00=0x001f, f01=0x0190, f02=»QD bJ A Y , bJ A Z H @ALP : @ ` : ;J I bJ _* A@ @ ( "^ : ; ;<A ' R `R Q Q; _ Q; <a : : : ( A ~(@ A! AAD A A A A AAF AAN AAH a A @ ? ? > P :b" Q P
0x06352c…0636c0 Dummy {f00=0x001f, f01=0x0190, f02=» @ Y Y Y Y " A "; V W # @ A AAD @ ? ? > Q @ ? ? ? ? ? ? ? B > @ P <a:a ; :A : P6 $ R, Z R R Q $ :D P $ R ^& : ; P R( AB AB AB AB AB AB AB B ,:j
0x0636c0…063854 (0, 126) Dummy {f00=0x001f, f01=0x0190, f02=» ' < B B @ 9a:a R @ @C @ # % # C "! PX @ v Q wP VF_ P vRN;AR P xP4 0 P P C C C LPT P P C # ' C _: DL P x H C _ P xX( DD _Z :EOS :EOF - - - @ !? ?R _ D - '
0x063854…0639e8 Dummy {f00=0x001f, f01=0x0190, f02=» P _ A #> M (@ M M M B B M M # C C @ _ "ZN(@(@ ^ :j >Z _ m (@ M M 8 DKT X X T X M W M W y Y Y Y # C B - B - $? F P R Dn P R
0x0639e8…063b7c Dummy {f00=0x001f, f01=0x0190, f02=» 8 DnWv F W DhW F W Db W W F W Wx 8 MTPp DYPj X T Y $ WZ F WX $ # T $ T Y B W0 %@ R b " Y Y Y Y Y $ X _0 8 TCX< TKXB MTXH DYXN 0 $(,1 !%)-2 "&*.3
0x063b7c…063d10 Dummy {f00=0x001f, f01=0x0190, f02=» Sf M 9A DG L P :a P VN P :A M M GP GX - 4 Y T T W _ X $ P W M ! B < V < - B Y B Y L ?a M " : L ? M L " T L L P( L M :B Y M M M @GNP M W AGN X T 9A Y M X L
0x063d10…063ea4 Dummy {f00=0x001f, f01=0x0190, f02=» W L L q r B M X / $(,0 !%)-1 "&*.2 #'+/3 G M Y B AG X P P P P P~ P4 L* !L B T B @G ) @G I @G I L* AG M AG !K " T @ AG !K " T M L ]*W M L ZB
0x063ea4…064038 Dummy {f00=0x001f, f01=0x0190, f02=» Y AG AG P L AG @G hZT AG _ X L* A Y B AG B AG @G AG @G !L2 !L` !K P M L Z W AG Y AG P L AG @G hZD AG _L L :B* Wl @G K ? 0h @G :B @G * WH O @G K ? 0h O G K ? 0h @G :B @
0x064038…0641cc Dummy {f00=0x001f, f01=0x0190, f02=» AG @G 4R 4 @ AG DI L : V V 4 AG 4 M !K " T AG AG !K P M L Z L* 4 X ? L 04 <b X ! ? P L -(! _ L @ P L <AR A <B M -( X N N X % N L -( L -( M M
0x0641cc…064360 Dummy {f00=0x001f, f01=0x0190, f02=» P M B M a L X( M H M 9 V 9c ! L* @G 4 ! P M L Z W AG Y AG P L AG @G hZD AG _L L :B* W @G ? 0h @G :B @G * W O @G ? 0h O G ? 0h @G :B @
0x064360…0644f4 (0, 127) Dummy {f00=0x0020, f01=0x0190, f02=» AG @G 4R 4 @ AG DI L : V V 4 AG 4 M !K " T AG AG !K P M L Z L* 4 X ? 04 <b X ! P: X M M Y X R R B Y ! R L Q~ X P P P P - B - @O P M L / AO NP !
0x0644f4…064688 Dummy {f00=0x0020, f01=0x0190, f02=»1 -0 B :e L Ph !Q M Q !Q B B $ !QD !Q L x P2 x X0 M L Q !Q _@ !Q M Q Q~ 4 ! 9A " ! M 4 P P L P P ! _ 4 B Q a P L :C* WL WH:a L ! 9A r X L :B* W":a L
0x064688…06481c Dummy {f00=0x0020, f01=0x0190, f02=» P !W" AN: B T B @NT ) @NV I @NX I P 4 B AN:! T h ANB M !Q L @N: ! P ANT !V !Q W AO !V !Q " P !Q M L ZL M ANB V !W" !WF P B P2 ANB B T$ B S @N:T !W" @N AN: ! P W P B <b :b
0x06481c…0649b0 Dummy {f00=0x0020, f01=0x0190, f02=» _ P* ANB ANBR Ql !T Wb !T !T WP !T !T W> B <e :e Q P AN< AN> !T ANBZ X Td @N: ! P W @N@P Q Y @N> @N< ANB AN< !T @N: ! P W Y ANB & B Y P @N<:e L Pv !Q M
0x0649b0…064b44 Dummy {f00=0x0020, f01=0x0190, f02=» X $ P@ D R: P @N: ! P !V T D $ !V @N: ! T L AO !U W !V T D R@ $ !Vn @N: ! T @N< T " T AN<W AN< T P AND Y T U 4 !VR @N: ! P !Q W !Q " P M L Z2 P 4 !VR @N: ! P !Q " T W( !Q " P M
0x064b44…064cd8 Dummy {f00=0x0020, f01=0x0190, f02=»$ <b! L !? P L ! _ @NR L T !Q L 9AV$ !Q M Q A @ M Q -( M Q~ 4 !Q !Q M Q AN< M !Q 4 @Nt TOTD @N| 1T: B AN @N: ! P !Q W !Q " P M L ZJ P 4 P @N<:e
0x064cd8…064e6c Dummy {f00=0x0020, f01=0x0190, f02=» M L / AW W !Zf !Z ![& L ! T L T Y X ! P ![hW ![ ! P M L Z& [J X T L ![& Y Y M _R B Y ZZ W !Zf X P P P P P Y P ZZ B M !Y ![& X !$P ! P M ![hW ![ " P M L Z0
0x064e6c…065000 Dummy {f00=0x0020, f01=0x0190, f02=» > ZZ B T Y ![& M M ![ L " :K ZZ ZZ M L R L ! T" B : R <A ^ M 9GW( 4^ 4 R @ M M 9H MR ZZ B X V Y M 4 AW 1 -0 L RH M ![^ Y W Y @ M ![ B Y B Y "
0x065000…065194 (0, 128) Dummy {f00=0x0020, f01=0x0190, f02=» @ M 9A DW $ M 4 L P M ![^ P M [J 4 B [Z a ZZ L :B* WX X :a L ! 9A r X L :B L * W* X :a L ! 9A r X L :B L L !? B M M L / X ! J $ <b! L !? P L ! _ L 9AV
0x065194…065328 Dummy {f00=0x0020, f01=0x0190, f02=» &PH 1PZ $PN 3Pp 4Pn 6Pl 8Pj - W W x % =A Y _ PW QW ` Y Y W` ` _ y X Y Y Y dW DW @W TW ` ? ? ? ? ? ? ? ]6 0 (@ -0 W, X X - V Y ] X X. X X ? ? ? ? ? ? ?
0x065328…0654bc Dummy {f00=0x0020, f01=0x0190, f02=» % T X 1 _XW % X P P _$ Y X _ Y D_ Y _ X ? ? ? ? ? ? ? ^p 04P ;e# L =AV X 1 -( X -( X % Y ^ - D PH X 1T: X Y Y C C #=H Y X y X ' W ]
0x0654bc…065650 Dummy {f00=0x0020, f01=0x0190, f02=»:ET ,=H , OST W OVT ) _F" XJ)@_N _t X =A^ ,` A_ =` Y (@ X X ;A L` ] ! ] Y ] D D Y :EOS :EOV @ _ X X X X $ P`H`P`haXav % P Y Y Y >% X P Y _"
0x065650…0657e4 Dummy {f00=0x0020, f01=0x0190, f02=» % X` Z _f % _n Q4 8 TYP, R Y _$ P Q X Q % _" Y Y Y - % X P Y $ W Y =D %_ X P V % P Y X XT Q _ ` Q ` 0DKER UNIT CYLD STAT a a - a a W2
0x0657e4…065978 Dummy {f00=0x0020, f01=0x0190, f02=» Y 9 9 : : : @ v P vR ! R P x L M M Y$ #? @ v P vR P x T T T Y" P T _ X x D x D E E v ] v @ E @ c4 ? ? > ? ? ? ? ? ? ? f^ C ( "^ @f dr
0x065978…065b0c Dummy {f00=0x0020, f01=0x0190, f02=» [ [ [ [ [ ^ [ [ [ [ @ v L v! P Y _ @ M v x ^ U > > > > > > >WZ : A ^ T " T0 ! P W SY SD AD _ ! P _, J _2 f^ # C ( "^
0x065b0c…065ca0 Dummy {f00=0x0020, f01=0x0190, f02=»e Ae Aez Ae Ae J Aer T8 B ! P B J (@" T L #( "^ B P @ !? M @f P M L R ! _ PP I H P _ A b A A A @ ~ f6 A ~ @f> A ~ @ hX( : A A "^ AP (@_0 $ ( , 0 4 8 <
0x065ca0…065e34 (0, 129) Dummy {f00=0x0020, f01=0x0190, f02=» [ [ [ [ [ ^ [ [ [ [ @ v L v! P Y _ @ M v x ^ U > > > > > > >W : A ^ T " T ! P W SY SD AD _ ! P _, J _2 # C ( "^
0x065e34…065fc8 Dummy {f00=0x0020, f01=0x0190, f02=»XIBLE DISK DRIVE h P
0x065fc8…06615c Dummy {f00=0x0020, f01=0x0000, f02=»
[…0x5…]
0x066940…066ad4 (0, 130) Opaque[0x194]
0x066ad4…066c68 # DirEnt {nam=»PCAS «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0418, f03=0x0000}
0x066ad4…066c68 IdxSect {
0x066ad4…066c68 f00 = 0x0020 // 0x66ad4 @0x0
0x066ad4…066c68 f01 = 0x0004 // 0x66ad6 @0x2
0x066ad4…066c68 gno = [ // 0x66ad8 @0x4
0x066ad4…066c68 [0x00]: C0x0020.0x3.0
0x066ad4…066c68 [0x01]: C0x0021.0x0.0
0x066ad4…066c68 ]
0x066ad4…066c68 }
0x066c68…066dfc Dummy {f00=0x0020, f01=0x0190, f02=» ^ ^ 0XX ERROR 2 0PCAS REL 11.0 DATE 81.02.16 12NC=8701 362 41100 0TO MANY SEGMENTS STATUS WORD: $ 9 H4` 1Lb p V -8 T < , tB ph Tg t z ^ r h V H 2 Z f9 z
0x066dfc…066f90 Dummy {f00=0x0020, f01=0x0190, f02=» 4c : @Y/ pJ @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d F < :R:R: ` ZPzh % h v 66 B r4i : 0 ` ^&W D/ H P = D# v>~ v `" f V>~ $#` d p 4d @z V
0x066f90…067124 Dummy {f00=0x0020, f01=0x0190, f02=» ^B 8z Z 0XX ERROR 2 0PCAS REL 11.0 DATE 81.02.16 12NC=8701 362 41100 0TO MANY SEGMENTS STATUS WORD: $ 9 H4` 1Lb p V -8 T < , tB ph Tg t z ^ r h V H 2 Z f9 z
0x067124…0672b8 Dummy {f00=0x0020, f01=0x0190, f02=» 4c : @Y/ pJ @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d F < :R:R: ` ZPzh % h v 66 B r4i : 0 ` ^&W D/ H P = D# v>~ v `" f V>~ $#` 4d @z V
0x0672b8…06744c Dummy {f00=0x0020, f01=0x0190, f02=» @ A A @ A A A @ A A A @ CRP W0 A P (R 2 @ 9a @ A 0 ) A A ^ W ,= V % @ QB @ @ P8 @ U A W* @ P A W A , a A A A T
0x06744c…0675e0 Dummy {f00=0x0020, f01=0x0190, f02=»Pd A A A A T ` 9a A A @ A A ^ A 0% ) ( A : ( % @ E A A ( ( @ " ` T( : @ 0 @ Q( &( @ . T A 0 : TKW DKW FM A N J
0x0675e0…067774 (0, 131) Dummy {f00=0x0021, f01=0x0190, f02=»P P Q : $ C C ( : 9 $ Y :0123456789ABCDEF P (R 2 @ 9a @ A 0 ) A A ^ W ,= V % @ Q @ @ P @ U A W @ P A W A , a A A A T
0x067774…067908 Dummy {f00=0x0021, f01=0x0190, f02=» P* > P* BIT 7 RESPECTIVE BIT 15 IN SW-STATUS IS THE STATUS BIT 4 : P* RESPECTIVE BIT 3 RETURNED BY THE CASSETTE HARDWARE, P P* B P* BIT 9 AND 10 IN SW-STATUS ARE DERIVED FROM THE STATUS BIT 5 ( P* RETURNED BY THE CASSETTE HARDWARE,
0x067908…067a9c Dummy {f00=0x0021, f01=0x0190, f02=»Y WHEN READ-ORDER). X P* 6 PTKMASK EQU /8160 BIT 0 = 1 IN STATUS (=I/O-ERROR) & . P* BIT 7 IN SW-STATUS (ONLY IF BIT 0 = 0) ` P* BIT 9 IN SW-STATUS P* BIT 10 IN SW-STATUS P EJECT P* P* EQUATES P* PPRTR
0x067a9c…067c30 Dummy {f00=0x0021, f01=0x018e, f02=» P & PBA EQU 2 ECB DISPL BUFFER ADDRESS PRL EQU 4 - REQUESTED LENGTH 6 PST EQU 8 - STATUS Z PCW EQU 10 - CONTROL WORD t P* " P* SEGMENT TABLE DISPLACEMENT P* & PCOMLG EQU 18 LENGTH OF COMMON PART $ PNUMSEG EQU 22 NU
0x067c30…067dc4 Dummy {f00=0x0021, f01=0x0190, f02=» & PSEGMLG EQU 3 SEGMENT BLOCK LENGTH . PSBDISP EQU 6 START OF SEGMENT BLOCK TABLE . P* ` P* MASK FOR DISK ERRORS j P PDKMASK EQU /CFFF P* P* DATAFIELDS P* PSEGNR DATA 1 SEGMENT NUMBER $ PNBRSGM DATA 0 NUMBER
0x067dc4…067f58 Dummy {f00=0x0021, f01=0x0190, f02=»UNTER n 2 PLTPTR1 DATA LGTAB LENGTH TABLE POINTER (STORE) 2 PLTPTR2 DATA LGTAB LENGTH TABLE POINTER (LOAD) D P z P & PSECTRS DATA 0 NO OF SECTORS IN /L * PSEQCTR DATA 0 SEQUENCE COUNTER FOR CAS P 0 PECBCT DATA CASSFC,CTBUF,0,0,0,
0x067f58…0680ec Dummy {f00=0x0021, f01=0x0190, f02=»CTWFC,0,0,0,0,0 P* $ PLPECB EQU * ECB FOR LINEPRINTER " P DATA PRTR,0,0,0,0,0 J P EJECT f P* t PTEXT1 EQU * ~ P DATA 10 MESSAGE LENGTH P DATA /30,'XX ERROR' MESSAGE P* PTEXT2 EQU * P DATA 50 MESSAGE LEN
0x0680ec…068280 Dummy {f00=0x0021, f01=0x0190, f02=»ESSAGE LENGTH P DATA /30,'TO MANY SEGMENTS' P* : PTEXT99 EQU * D P DATA 20 MESSAGE LENGTH X $ P DATA ' STATUS WORD: ' MESSAGE x PHEXFLD EQU * P RES 2 P* P " PCTBUF RES 128 CASSETTE BUFFER PCTREL RES 8 CA
0x068280…068414 (0, 132) Opaque[0x194]
0x068414…0685a8 # DirEnt {nam=»SUP001«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0428, f03=0x0000}
0x068414…0685a8 IdxSect {
0x068414…0685a8 f00 = 0x0021 // 0x68414 @0x0
0x068414…0685a8 f01 = 0x0014 // 0x68416 @0x2
0x068414…0685a8 gno = [ // 0x68418 @0x4
0x068414…0685a8 [0x00]: C0x0021.0x1.0
0x068414…0685a8 [0x01]: C0x0021.0x2.0
0x068414…0685a8 [0x02]: C0x0021.0x3.0
0x068414…0685a8 [0x03]: C0x0022.0x0.0
0x068414…0685a8 [0x04]: C0x0022.0x1.0
0x068414…0685a8 [0x05]: C0x0022.0x2.0
0x068414…0685a8 [0x06]: C0x0022.0x3.0
0x068414…0685a8 [0x07]: C0x0023.0x0.0
0x068414…0685a8 [0x08]: C0x0023.0x1.0
0x068414…0685a8 [0x09]: C0x0023.0x2.0
0x068414…0685a8 ]
0x068414…0685a8 }
0x0685a8…06873c Dummy {f00=0x0021, f01=0x0190, f02=»in Lo< # # #$ A~ X - _ H*f* + + ,0-T
0x06873c…0688d0 Dummy {f00=0x0021, f01=0x0190, f02=»
0x0688d0…068a64 Dummy {f00=0x0021, f01=0x0190, f02=» in( "D r !f9 : G p O $ $ %Z&>F F % 9 K DMC<MCGTHDB&WMC RYD(RDD(ASEBABF PSF RSG. & TY J- LP / TK Kt
0x068a64…068bf8 Dummy {f00=0x0021, f01=0x0190, f02=» $ DK W~ DK 8 W~ P DK W~ DK ( W~ DK _~ ^ DK _~ 8DK ) _~
0x068bf8…068d8c Dummy {f00=0x0021, f01=0x0190, f02=» ? ? ? ? ? ? ? N & ? ? ? ? ? ? ? f ? ? ? ? ? ? ? L 2b
0x068d8c…068f20 Dummy {f00=0x0021, f01=0x0190, f02=» f l Z f Z f D Z
0x068f20…0690b4 (0, 133) Dummy {f00=0x0021, f01=0x0190, f02=» Z V f R . Z | f ? ? ? ? ? ? ? ^> ? ? ? ? ? ? ?
0x0690b4…069248 Dummy {f00=0x0021, f01=0x0190, f02=» ? ? ? b ? ? ? ? ? ? ? l b j & L r 0 V |
0x069248…0693dc Dummy {f00=0x0021, f01=0x0190, f02=» 6 6 6 6 6
0x0693dc…069570 Dummy {f00=0x0021, f01=0x0190, f02=» 6 6
0x069570…069704 Dummy {f00=0x0021, f01=0x0190, f02=» :
0x069704…069898 Dummy {f00=0x0021, f01=0x0190, f02=»
[…0x4…]
0x069ee8…06a07c Dummy {f00=0x0021, f01=0x0190, f02=» P
0x06a07c…06a210 Dummy {f00=0x0021, f01=0x0190, f02=»
[…0x1…]
0x06a3a4…06a538 Dummy {f00=0x0021, f01=0x0190, f02=» *
0x06a538…06a6cc Dummy {f00=0x0021, f01=0x0190, f02=»
[…0x1…]
0x06a860…06a9f4 (0, 135) Dummy {f00=0x0022, f01=0x0190, f02=»
0x06a9f4…06ab88 Dummy {f00=0x0022, f01=0x0190, f02=» @
0x06ab88…06ad1c Dummy {f00=0x0022, f01=0x0190, f02=» A A R$ A A R A A R A @#" > > > > > > > > ? ? ? ? ? ? ? U ^ ( H ( P F4 _ Q 4&? ?R _ 5 H _ ^ ;j >P @ * Q 9A D *P _ P A ( @ Q A ' A"T ( A A)F_ @ A
0x06ad1c…06aeb0 Dummy {f00=0x0022, f01=0x0190, f02=» @ ? ? > "D P P Q P ! P @ $ H @ P W ( < Jl @ 9a:a R0 "Z Q Q" ?A <P @"N %J & _ ( _ _ 0 % Jl T @ W @ R (P& P (_ =a:a =A:A Z P Z _" TR @
0x06aeb0…06b044 Dummy {f00=0x0022, f01=0x0190, f02=» @% L F4 0 Jl @ PR 0=a @ ?a RX @ ?a VN=A 0 ( P>P< , T T 1W 1W T )W )W ( , _ C ( _ 5 H A& A& A& A& A& A& A' A& ' ( D >a @ =a (@ D U@ x ',W U, @
0x06b044…06b1d8 Dummy {f00=0x0022, f01=0x0190, f02=» B :a Y B R A& _ @& ' W4 @& A& ,Xp _ < @ A' A( A( A( A( A( A( ( =a @ >a V _ @ >a Y A' A' 4 T ' ( "^ 5 U P" @' @( @( @( @( @( @( ( @' x @& 8
0x06b1d8…06b36c Dummy {f00=0x0022, f01=0x0190, f02=» @ !@ *V @ P @ X0 , *V A _< U` A)F @ , L ? ? , L L L L L L ? ? ? ? ? ? ? @" Px @ > > > > > > > ; [ [ [ [ [ [ > > [ [ A @" H" " ? A" >
0x06b36c…06b500 Dummy {f00=0x0022, f01=0x0190, f02=»? V :!9 V @ P R W ;A [ [ : _4 Pj T Pf V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [ : V X"Z(_( L _P S
0x06b500…06b694 (0, 136) Dummy {f00=0x0022, f01=0x0190, f02=»R _ ;A [ [ : # P| ' PL , ; R <a V 9A:A ; V ; V V W V < V < V H T P R ;H [ [ : _ T P ; R4 < S , _ _ W < R $ <A Q" T" U" :$ _ < Z& - W _ < <A9 R :a
0x06b694…06b828 Dummy {f00=0x0022, f01=0x0190, f02=» R Q ;H [ [ : " _J ? ? ? ? ? ? ? Q _ ^ ( H R - W . W / X I I R P8 X O P O T Y Y W x Y Y $ 0T W W 6 X ? ? ? ? ? ? ? .^ 7 X #? P ? ? ? ? ? ? ? . 7 6 (@ 7P %
0x06b828…06b9bc Dummy {f00=0x0022, f01=0x0190, f02=»7 (@_~ 52X R Y _ X D $! TR ? ? ? ? ? ? ? /F 7 8 M ? ? ? ? ? ? ? /l 7 % > > > > > > > > ? ? ? ? ? ? ? / 7 P X 7^ 7v / 4 8 TRT X 5P 4 $ <A 52 Pl 52 X X X M M
0x06b9bc…06bb50 Dummy {f00=0x0022, f01=0x0190, f02=»_ X X X U 5 X E _ X 4 Y 5 X 4 Y ! 1P, 0P +P Q Q W W Q Q R P Q 5 Y / ? ? ? ? ? ? ? 1 7 Qv 1& 4 " PF X Q< X P P ? ? ? ? ? ? ? 1X 7 (@ Y Cn X X X R
0x06bb50…06bce4 Dummy {f00=0x0022, f01=0x0190, f02=»1 7 > > > > > > > > 52R X X Q Y ( O` ? ? ? ? ? ? ? 2D 7 ? ? ? ? ? ? ? 2 7 (@ 7P ? ? ? ? ? ? ? 2z 7 2 4 X M X ! 40" P2 O` X ? ? ? ? ? ? ? 2 7 (@ Cn X 4Q W 9AY T Q P
0x06bce4…06be78 Dummy {f00=0x0022, f01=0x0190, f02=» Qz 9AY Tn9ATj @3 D4 @3 $W 1 Y $ D ! P 2 Y 0 P :ET OFP OST Y Y X 5Z X M _d3 4 4 ABCDEFGHI JKLMNOPQR /STUVWXYZ 4 4$4*[.<(+^!$*);] ,%_>?" P X 2 ' Q X 4 X X R ( 5
0x06be78…06c00c Dummy {f00=0x0022, f01=0x0190, f02=» A , DKP L X X L ! X L P L @ _ C C # ( _R _ _ _ _ _ X T 5b 4 X ! TH X X X T" $ :ET D OFT W OST X P % Y X R X 4 ! X Y T T Y Y
0x06c00c…06c1a0 Dummy {f00=0x0022, f01=0x0190, f02=» X R 8 TYX WH H6 Y _8 X X: X R X ( _$ _* $ XtRX P Y _ A6 X X Y X Y _ $ P4R P6 X Q Y Y <dW Y W $ P R , _ X X*Y$ X X X6 Y Z(P A6 ZrP Y _8 _< _@ ! 4 $ X
0x06c1a0…06c334 (0, 137) Dummy {f00=0x0022, f01=0x0190, f02=» > > > > > 7 V <a W X ' ?A q A82 > > > > > > > 80 , 0W 0T _ l P$ X X ] X * A8aJ " * - X ( 7P = V X X Cn X 4 L ! L % T< L P4 M ^ L X 4 _ ? ? ? ?
0x06c334…06c4c8 Dummy {f00=0x0022, f01=0x0190, f02=»9J: 9l9l: : 9~9~9~9~: 9b9t < W* = W" < W ?: L :AR| M W M M 4 L T M M L PH=GV L L 4 9 M 2 ;6 M L 9G L 4 L M L M M L 4 : W M " A< L P L 9JR@ P P T A, 5 U P T Q P P
0x06c4c8…06c65c Dummy {f00=0x0022, f01=0x0190, f02=» L ' 7P P p Y "(@ P P $ M : P ( M P Q P P P W P T Q (@ L " A<(@ H H T A, E $ I 4P _ 5 % E (@ L 2 ( P _ 4 ) % ] M (@ L 2 A$ T!fR Q @!f] A,>
0x06c65c…06c7f0 Dummy {f00=0x0022, f01=0x0190, f02=» T V P T"W L >F A$ L & A$ < M 4 ; M L M L " P M < : M L M A< L ! PT L M L M L & P L E E M < : M M L L % T D V L ! P L ! XfWn L M L M M =0 : L :c:A L D
0x06c7f0…06c984 Dummy {f00=0x0022, f01=0x0190, f02=» D Q = M 2 < L L $:BV W $:AV M " M A L L $ M 0 D L U M " V L R L M ( M * M , L X L U M W > M 2 < L D L L 0U L 0 L (U L ( L L R $ 9 _ R $ 9 M , L M M
0x06c984…06cb18 Dummy {f00=0x0022, f01=0x0190, f02=» L L , U A< L A$ L U ?X M 2 < L M $ L M & L L I P0% P L X =h P W P L X T M . L 9 M L A$ L L . Q L L L R 0 % _ M M L . P M . ? M 2 < L U @, M 2 < L
0x06cb18…06ccac Dummy {f00=0x0022, f01=0x0190, f02=»P0W" M L A$ @ M ( L U @ M 2 < L L ( E L % E L E L E M A M 2 < L P$ A< M 2 ;r M "W F4 = JlW ( L 4 5 L L " C m M ^ U L ( L L ? ? ? ? ? ? ? A A H 4 R W 7
0x06ccac…06ce40 Dummy {f00=0x0022, f01=0x0190, f02=» d _ AB0 B AH 5 T6 @H P H BD BH BL BP BT @H AH AB0 ( 5 4 X _8 B P W M: B ( "^ B, B L 0 MESSAGE UNKNOWN B H Q L L L R 0 % _ M M L . P M . ? M 2 < L U 5 B J
0x06ce40…06cfd4 (0, 138) Dummy {f00=0x0022, f01=0x0190, f02=» C D W8 C D X W* 8 AD T AD" D (@( 4 4 : 0 :R - Y 0 PU,DNXX,STAT,RY D 5 J ? B C 1P D Y _ @B RDP A P 8 FL B X X ! R V Y AD 8 TKP Y
0x06cfd4…06d168 Dummy {f00=0x0022, f01=0x0190, f02=» Q 1 B. 4 X X ? ? ? ? ? ? ? E@ 7 _ 5 J B @ Q P P T Z B W P B $>H $ NOT W0 J @ ! $ T P Y B C C R ] B, L . P E ? M 0AB CD ADDR @ 9a:a;a
0x06d168…06d2fc Dummy {f00=0x0022, f01=0x0190, f02=» = Jl 0 9U AE E i6 E ( "^ F = Jl @ A @ !? $> A"T H _* 5 @H B @ A B, 0 Jl AG$ AG& G" ( "^ @ A ( C 5 @ 4 B P J _ 5 B, 5 J AG J R: P J R( G ( "^
0x06d2fc…06d490 Dummy {f00=0x0022, f01=0x0190, f02=» i6 9 , PP , X QD i6 H~ Y , i6 H~ Z H @H P : Hh ` : B I i6 _* AHT HP ( "^ : ; ;<A ' R `R Q QB _ QB <a : : : - A ~(@ A" AH A A A A AH AH AH a I
0x06d490…06d624 Dummy {f00=0x0022, f01=0x0190, f02=» Qh Q P( @ @ @ @ Y Y Y Y " A "; V W # @ A AH @ ? ? > Q @ ? ? ? ? ? ? ? I F4 @ P <a:a B :A : P6 $ R, Z R R Q $ :D P $ R ^& : B P R( AJZ AJ AJ^
0x06d624…06d7b8 Dummy {f00=0x0022, f01=0x0190, f02=»Jf Jh ? ? ? ? ? ? ? Jj ( < Jl B @ 9a:a R @ @K @"N %J '~ %J :EOS:EOV AHT HP "$&1368 AKL KN!? QKdP ^ 52 AL X AO X AO Q R x % =A Y X Y4 Z8 AKD $ $ T D i Kb !N X "!
0x06d7b8…06d94c Dummy {f00=0x0022, f01=0x0190, f02=» W !N " P P !N _ !N2 Mb M L 4 P Pj P P P @O Y M D P X &Q Y W Y 4 X $;H D :ET $;H D OSP OVT W W !L X ! P X 1P W @ X U W W W !L X ! . @Wp !L X ! Tb AW^ X
0x06d94c…06dae0 Dummy {f00=0x0022, f01=0x0190, f02=»KD Y , $ T D q 84 !N !N< L KP Y Y AO AO LH !N !N< L W W ANV X 9c T DKH EKH 4 X B X :c HKH % M !N _N !N !N6_X !N _^ !N Y " !N<_p KT_ X # ;dC Y AKF AKB 7P AO _ _ _( _, _0 _4
0x06dae0…06dc74 (0, 139) Dummy {f00=0x0023, f01=0x0190, f02=» "! PX @ Q P VF_ P RN;AR P P4 0 P P C C C LPT P P C # ( C _: DL P H C _ P X( DD _Z :EOS :EOF 52 5J 5 @ !? ?R _ P 4 ' !? 0X A "! X6 @ Q P ^L_ P XP P R :AV L D
0x06dc74…06de08 Dummy {f00=0x0023, f01=0x0190, f02=» M # C C @ _ "ZN(@(@ ^ :j >Z _ m (@ M M 8 DKT X X T X M W M W y Y Y Y # C B 58 B 58 $? R~ P R O P R R O P P| P Pv P $P &PN "P< /
0x06de08…06df9c Dummy {f00=0x0023, f01=0x0190, f02=»DYPj X T Y $ WZ RZWX $ # T $ T Y B W0 %@ R b " Y Y Y Y Y $ X _0 8 TCX< TKXB MTXH DYXN ^ @ T <j =h QU P. ^ %x 8P F4 X % !X %`X P % X. R" X>W % P T %
0x06df9c…06e130 Dummy {f00=0x0023, f01=0x0190, f02=»U E E E E E E U > > aU @U E @U @U @U @U @U @U @U U Q (@ T W@ &_T@ H P P T ?f' W " H Wx " Wn & P >b& >AW >a& @T " X X T$W.
0x06e130…06e2c4 Dummy {f00=0x0023, f01=0x0190, f02=» T" T" T" T" T" T" " " " " " " " T" >" HU AU T" T" T" T" T" T" " " " " " " " T" AU > ?f' _ 8 @ T <j =h 8P F4 X % !X %`X P % X. R X>W % P T %
0x06e2c4…06e458 Dummy {f00=0x0023, f01=0x0190, f02=» E E E E E E > > a @ E @ @ @ @ @ @ @ Q (@ T W &_T H P P T ?f' W " H W " W & P >b& W X M M Y X Y Y B Y ! Y
0x06e458…06e5ec Dummy {f00=0x0023, f01=0x0190, f02=» !Yj L x P !Y M Q W ! P M L ZZ Y" B Y Xf AWz 8 4 B :e L Ph !Y M Q !Y6 B B $ !X !Yj L x P2 x X0 M L Q !Y@_@ !Y M Q Y" 4 ! 9A " ! M 4 P P L P P ! _ 4 B
0x06e5ec…06e780 Dummy {f00=0x0023, f01=0x0190, f02=» M AU L 7P U M Y B AU U Y X P P P P P P8 Xf !^ AU B T B @U ) @U I @U I Xf 4 B AU ! T h AU M !Y6 L @U ! P AU !^ !YDW AWx !^ !YD" P !Y@ M L ZL M AU V !^ !^ Xf B P2
0x06e780…06e914 (0, 140) Dummy {f00=0x0023, f01=0x0190, f02=» AU ! P AU W& ! P AU R ! P W ! P AU P AU V ! P ! P _ P* AU AU R Ql ! P Wb ! P ! P WP ! P ! P W> B <e :e Q P AU AU ! P AU Z X Td @U ! P W @U P Q Y @U @U AU
0x06e914…06eaa8 Dummy {f00=0x0023, f01=0x0190, f02=»" T" L @U P<W !Yj" T L @WxP$ M L Q !Y@_Z M Q Xf T X $ P@ D R: P @U ! P !] T D $ !^( @U ! T L AWx !]xW !] T D R@ $ !^ @U ! T @U T " T AU W AU T P AU Y T U 4 !] @U ! P !YDW
0x06eaa8…06ec3c Dummy {f00=0x0023, f01=0x0190, f02=» L " P $ M 4 @U U ( = Y 4 @U U < ) Y 4 X ! J $ <b! L !? P L ! _ @U L T !Y L 9AV$ !Y M Q A"R @ M Q 4 M Y" 4 !Y@ !Y M Q AU M !Yj 4 @V TOTD @V 1T: B AV( @
0x06ec3c…06edd0 Dummy {f00=0x0023, f01=0x0190, f02=» , ` X Y X a| B Y % a| L aN M B P 58 B V X P P P P 52 B P P 4 ^ :A H_bW W M B M B M _Z _bV 4 Y T T W _ 52 B < V < 58 L P :g: L :C ?
0x06edd0…06ef64 Dummy {f00=0x0023, f01=0x0190, f02=» WR A_> L " * Aa - Aa3 L " X ! Y M T(% T$ ! R L W L A T M A_< A_: X 7P B M aj h d M _* _R Y B A_H X P PD P@ P< P8 P4 b !dZ B T B @_T ) @_V I @_X I b B P,9 Q$ B < R :A R
0x06ef64…06f0f8 Dummy {f00=0x0023, f01=0x0190, f02=» P @ W M @_H M M !dH !b b L !? B M A_< A_: A_J X 7P A_@ ! T @_D A_@ @_F Y @_BU A_H b M X 4 X ! J Pj @_< @_: L $ L T L P: M I m M M W& L P M l A M M W A X
0x06f0f8…06f28c Dummy {f00=0x0023, f01=0x0190, f02=» ? 4 an M A_> 8 4 M @_J 7P < $ <C ! 9 4 @_@9C @_D: 4 M _T M !b b 4 :EOS:EOV P P P Ad d !? Qg P ^ 52 V X 58 58 X Ad Adx Adz
0x06f28c…06f420 Dummy {f00=0x0023, f01=0x0190, f02=» 9 R !f !f AdzXT_ d| Y Y _^ !e !f tW !e !e ] ! X W !e 9C^ W| !e _ !f Wn !f _ d Y Y _ X r s W4 X @ _ W$ AW @W $W %W W !W W X 9d)` Ad AdxA T 7P 9CV * 9AV 9AV X 1P * 9EV )@ X Q6{ X
0x06f420…06f5b4 (0, 141) Dummy {f00=0x0023, f01=0x0190, f02=» X @d d 4e e e e e e eBeBeneRe e~e e e e e e &" 13468$$ @ _ X X X X $ Pg4g<gThDhb % P Y Y Y >% X P Y _" P" P& R| ^T Y _D _T X _ X _ X" X& T: X P4 0' P. 1R P _ 0$
0x06f5b4…06f748 Dummy {f00=0x0023, f01=0x0190, f02=» P Y $ W Y =D %_ X P V % P Y X XT Q _ g Q g 0DKER UNIT CYLD STAT h h 4 h h W2 h h X W$ h h W h ( X = 0 :R # Y ; ; ? 0 :R
0x06f748…06f8dc Dummy {f00=0x0023, f01=0x0190, f02=» T Y" P T _ X D D E E ] @ E @ j ? ? > ? ? ? ? ? ? ? m6 C ( "^ @m k^ U T " P " P @m W C "& # ( "^ A p @mV @mX @mZ @m <h @m % @m^ @m` mb md z [
0x06f8dc…06fa70 Dummy {f00=0x0023, f01=0x0190, f02=» U > > > > > > >WZ A p ^ T " T0 ! P W SY SD AD _ ! P _, J _2 m6 # C ( "^ P mV mX mZ m CCT I T P Q _, Am@ _V LM mb A"X Am@ m6 L 9 !? A
0x06fa70…06fc04 Dummy {f00=0x0023, f01=0x0190, f02=» I H P _ A in A A A @ ~ m A ~ @m A ~ @ o0( "^ A~ A A H (@_0 $ ( , 0 4 8 < mB U T " P " P @ W C "& # ( "^ A p @ @ @ @ <h @ % @ @ z [
0x06fc04…06fd98 Dummy {f00=0x0023, f01=0x0190, f02=» U > > > > > > >W A p ^ T " T ! P W SY SD AD _ ! P _, J _2 # C ( "^ P DOS - PTS 6000 REL. 11.0 81-02-16 FOR 6879 (250 KB) FLEXIBLE DISK DRIVE
0x06fd98…06ff2c Dummy {f00=0x0023, f01=0x0190, f02=» A n bCPT * & g @ ~ A ~ @ A ~ @ I:ITCP J M:LDNX , ( ( "^ A A n , ( (@_0 $ $ ( , 0 4 8 < , ( o D
0x06ff2c…0700c0 Dummy {f00=0x0023, f01=0x412c, f02=»R CR MT UT cP gT " P P & W % H D ! ) - 1 7 = A E I P WZ T0 P W ;P Q kP B H D ! q u y } T T P Q 8 4 T, T P ' " )P 5R MP o w
0x0700c0…070254 (0, 142) Opaque[0x194]
0x070254…0703e8 # DirEnt {nam=»SYSGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x31d8, f03=0x0000}
0x070254…0703e8 IdxSect {
0x070254…0703e8 f00 = 0x018e // 0x70254 @0x0
0x070254…0703e8 f01 = 0x0026 // 0x70256 @0x2
0x070254…0703e8 gno = [ // 0x70258 @0x4
0x070254…0703e8 [0x00]: C0x018e.0x3.0
0x070254…0703e8 [0x01]: C0x018f.0x0.0
0x070254…0703e8 [0x02]: C0x018f.0x1.0
0x070254…0703e8 [0x03]: C0x018f.0x2.0
0x070254…0703e8 [0x04]: C0x018f.0x3.0
0x070254…0703e8 [0x05]: C0x0190.0x0.0
0x070254…0703e8 [0x06]: C0x0190.0x1.0
0x070254…0703e8 [0x07]: C0x0190.0x2.0
0x070254…0703e8 [0x08]: C0x0190.0x3.0
0x070254…0703e8 [0x09]: C0x0191.0x0.0
0x070254…0703e8 [0x0a]: C0x0191.0x1.0
0x070254…0703e8 [0x0b]: C0x0191.0x2.0
0x070254…0703e8 [0x0c]: C0x0191.0x3.0
0x070254…0703e8 [0x0d]: C0x0192.0x0.0
0x070254…0703e8 [0x0e]: C0x0192.0x1.0
0x070254…0703e8 [0x0f]: C0x0192.0x2.0
0x070254…0703e8 [0x10]: C0x0192.0x3.0
0x070254…0703e8 [0x11]: C0x0193.0x0.0
0x070254…0703e8 [0x12]: C0x0193.0x1.0
0x070254…0703e8 ]
0x070254…0703e8 }
0x0703e8…07057c Dummy {f00=0x018e, f01=0x0190, f02=»y _ ~ _ ~ f ~ n 4 ~ o ~ v , ~ z v ~ } l ~ J ~ ~ f ~ :C H A M d H R M d PB " P :C_ @ 9C E ^ d V V ( T # Y$ @ h ( W A (
0x07057c…070710 Dummy {f00=0x018e, f01=0x0190, f02=» A , A * @ . ) @ 0 I L l % (Z W 2 A @ ~ A A ~(@ ( @ A A @ A A @ A A @ A V A : 2 (
0x070710…0708a4 Dummy {f00=0x018e, f01=0x0190, f02=» 2 _ :C H A M H R M " P :C_" @ 9C E ^ V
0x0708a4…070a38 Dummy {f00=0x018e, f01=0x0190, f02=» T ^ c T A V >c U T U U UT& U T V =A T P N U =a ^: ^V @ , @ N pDISC ERROR & ( $ ( " $ ( $ x ( * S N A _ 6 @ P T p:a R
0x070a38…070bcc Dummy {f00=0x018e, f01=0x0190, f02=» @ b 4 = / M ~ Q T R N S T x Y R G P . H L V I U Z X Z $ (_~ R A A ,_ NO! A ^ A ` A f A h A b A d A X A V A Z > *T A V_ P A Z A ` . , + - ; . : D f X " H PW&
0x070bcc…070d60 Dummy {f00=0x018e, f01=0x0190, f02=» 4 > " 4" @ > @ h >P A jP A j @ j >W A j A h A h_D @ V @ ZT 4 " ( ^ @ XP A d A b " 4 @ hP @ j ^ > @ d T @ J @ LW @ d @ j @ hT @ ^ > A J A L 8W $W 0 ,_8 PW pW
0x070d60…070ef4 (0, 143) Dummy {f00=0x018f, f01=0x0190, f02=»P @ X 0 4 P @ * 4 @ 4 h @ $ ` " 0V U _( LOADED SEGMENTS NO: T @ L @ J W" @ ^T @ dW @ ` @ d @ j @ hT @ ^ > >a @ f A
0x070ef4…071088 Dummy {f00=0x018f, f01=0x0190, f02=» l P 3P 4 C @ bP8 @ d @ P* @ j @ hT @ ^T Q @P @ f Q A @ A f " T @ PW @ d @ hP @ j ^T A , A > A ,P * A ( (@ A , @ ( * B A A A P @ P A A h * A @ P A
0x071088…07121c Dummy {f00=0x018f, f01=0x0190, f02=» U P ^ @ W$ T p:a R U T p9a Z _ = 6:A , 6 9a @ P 4 A @] _ A B D EMPTY TABLE T 0 0 P * P _ @ d A * A 4 @ d @ ` @ ^P R( <a @ hP @ jW @
0x07121c…0713b0 Dummy {f00=0x018f, f01=0x0190, f02=» <a A t @ P" @ hP @ jW @ Q UP 4_8 P TR P 4 A ) " A > | H : A > @ P 4 @ <a Q UP 4_ @ d @ bT A A ~ TPB @ ^PD > > F 4 @ ` ! T $ P A @ d A # A
0x0713b0…071544 Dummy {f00=0x018f, f01=0x0190, f02=» A > W R: ( T D V $ W ( W P T $ ; V ; Wp&~ P &`P 6 P @ t$ P $ TH P@#~ > V . >A P Y P X PW ^ ? ? @ t ' P Y Y @ t" P A A A A W ^ P 6_ " ^
0x071544…0716d8 Dummy {f00=0x018f, f01=0x0190, f02=» ? ? ? ? ? A @ ^ @ t ? ? t P > > > > > > > > n l ? ? ? ? ? ? ? n > A t > A P A P n ^ " , , A A :B W " , A :b A A A Q (P _ # # H A " > A 0R$
0x0716d8…07186c Dummy {f00=0x018f, f01=0x0190, f02=» A A " R _U . 6 " A W A :H: A " , " 0 " 1 " ! R :W& 6 W 6 W W ?W /W :W A W ! A A h A hA Pf _ ? @ hT A I > > > @ _ I T A h " T
0x07186c…071a00 Dummy {f00=0x018f, f01=0x0190, f02=» > | 2 I R^ A J <a P TV RD_ M A P6 T @ ~T. @ P A W ` @ @ P @ T A zP A x< V A x TT <a P T;A;a A A : (@ ( : 4R P ( Z T 5 _$ : 4P^R` 7 < % ) ! P #
0x071a00…071b94 (0, 144) Dummy {f00=0x018f, f01=0x0190, f02=»_ : 4R T k $X R _$ : A 0 ) A W W W W W L C C ( " # C C ( B Rp : . _: N A @ N " T ; A N ( A N @ N$ A N !YYP$ !NNP !$$T !## ~ W :
0x071b94…071d28 Dummy {f00=0x018f, f01=0x0190, f02=» :ASM /S * ********************* P lR D r ! P ) _ _ : | A L_, DTOSS TOSSWORK A A A A A A A A A t : A t
0x071d28…071ebc Dummy {f00=0x018f, f01=0x0190, f02=»
0x071ebc…072050 Dummy {f00=0x018f, f01=0x0190, f02=»MOV ,/S,TOSSWORKINC ,TOSSWORK KPF /S,0 ASG /E0,TY10!!EN DATA 00!!DL LED KPF /O I/O ERROR SCR 9 r 8R T 5 _ T A r^_" @{^ 00 A; A" A# A;p A$ A.f A-N A/
0x072050…0721e4 Dummy {f00=0x018f, f01=0x0190, f02=» A& A( A) A* A8 A9 A: A:r A: A.h A-P A/ A0h A14 A1 A2 A3 A<J A3 A5j A4$ A7 A6 A56 A8r A; A$ A:. @s P < A!( 02 A < @s P 02 A H @ P DR A @ @ A A A A A @r P DR A @r P DR A !P = L D> @rj A
0x0721e4…072378 Dummy {f00=0x018f, f01=0x0190, f02=» WB @$h AS8 @$j AS: Q W" P ! T R G Y : I $ I I2 @ P @' SP NUT 1 A' @ P @(` SP NUT 1 A(` 0 A( @$ SP 1P ATJ AI& 1 @+ SP NUT A+ @( @$ SP 1P AT4 I @=X ST 00 A=XW NU
0x072378…07250c Dummy {f00=0x018f, f01=0x0190, f02=» A A AF ~ A WP ~01 01 01 01 01 01 01 01 01 00 0000 00 00 LED DRND01 J X . ~ !P = : @ @ @ @ @ @ @r P 01W 00 A @s P 01W 00 A @ P 01W 00 A
0x07250c…0726a0 Dummy {f00=0x018f, f01=0x0190, f02=» LOADING FROM MINIFIX DISC : LOADING FROM 80 MB CDC DISC : LOADING FROM 16 MB CDC DISC : CONFIGURATION FILE CHECK : SYSLOD ADAPTION LED SYSLODLED SYSLDMSYSLOD DRKB04DRTP02DRGP01DRDN01DRDI01DRDY02DRLT01DRSU01DRCG01DRCD01DRMS02DROD01DRTP03DRGP02DR
0x0726a0…072834 (0, 145) Dummy {f00=0x018f, f01=0x0190, f02=»DRCR01DRIC01000000DRDC07DRDC15DRDC17DRDC81DRDC82DRDCXXDRDCYYDRDC22DRDC13DRDC23DRDC25X25:L3DRCC01 ******************** D R I V E R S ********************* $ " %Z& & ) & (8 : 9 : ; < =~=65J6,7 8.4 ' +n 4 )d+ 8 9 <^< :H; -l+ . / 0 1P1 2*3:3 5~= = = = =
0x072834…0729c8 Dummy {f00=0x018f, f01=0x0190, f02=»: CUT/PERFORATE JOURNAL TAPE : SPECIAL CHARACTER /13 : SPECIAL CHARACTER /14 : COMPLETION OF REQUEST IF PRINT OBJECT IS REMOVED : END OF REQUEST WHEN SELECTOR UNIT OR PRINTER IS INACTIVE : ROOMLESS POINT CODES : MMU BUFFER SIZE (BYTES) : WR
0x0729c8…072b5c Dummy {f00=0x018f, f01=0x0190, f02=»ON OF REQUEST IF PRINT OBJECT IS REMOVED : INDICATION OF RECOVERY IN RETURN CODE (/80) : END OF REQUEST WHEN SELECTOR UNIT OR PRINTER IS INACTIVE : ROOMLESS POINT CODES : MMU BUFFER SIZE (BYTES) : KEYBOARD TIMEOUT : ECHO FUNCTION : COMPLETION O
0x072b5c…072cf0 Dummy {f00=0x018f, f01=0x0190, f02=»KEYBOARD LOCK IF NO KEYLOCK ON : MMU BUFFER SIZE (BYTES) : MMU KEY TABLE SIZE : KB 6236/71/72 IN SYSTEM : OTHER THAN KB 6236/71/72 IN SYSTEM : 00 ROOMLESS POINT CODES : SPECIAL CHARACTER /13 : SPECIAL CHARACTER /14 : ECHO FUNCTION : ECHOIN
0x072cf0…072e84 Dummy {f00=0x018f, f01=0x0190, f02=»WHEN SELECTOR UNIT OR PRINTER IS INACTIVE : MMU BUFFER SIZE (BYTES) : ORDER,WRITE NUMERIC DISPLAY : MMU BUFFER SIZE (BYTES) : ORDER,WRITE PROGRAM DISPLAY : FLASH FUNCTION : LOGG FUNCTION FOR INPUT/OUTPUT CHRS : NUMBER OF LOCAL CHANNEL UNITS
0x072e84…073018 Dummy {f00=0x018f, f01=0x0190, f02=»DATA REQUESTS FROM PRINTERS : 01 NUMBER OF CASSETTE DRIVES : ORDERS LOCK,ERASE AND REVERSE ONE BLOCK : MMU BUFFER SIZE (WORDS) : LOGG FUNCTION FOR INPUT/OUTPUT CHRS : NUMBER OF LOCAL CHANNEL UNITS : ACKUMULATORS FOR NAK,RETRANSMISSION FAULT AND
0x073018…0731ac Dummy {f00=0x018f, f01=0x0190, f02=»CAL PRINTER : KEYBOARD LAMPS CONNECTED DIRECTLY TO VDU : 01 KEYBOARD TIMEOUT : COMPLETION OF READ REQUEST AT POWER ON : MMU BUFFER SIZE (WORDS) : FAST OUTPUT USED FOR CONSECUTIVE EQUAL CHARACTERS : OTHER DISPLAYS THAN 6344/46/47/85/86 IN SYSTEM
0x0731ac…073340 Dummy {f00=0x018f, f01=0x0190, f02=» (ELSE TWINKLING) : COUNTRY CODE ON 6385 (0-9) : MMU BUFFER SIZE (BYTES) : DY 6385/86 IN SYSTEM : READ AFTER WRITE : NUMBER OF DISC UNITS : UNPACKED DISC FORMAT : PACKED DISC FORMAT : 00 EXTRA SOP INPUT DWT : FLASH FUNCTION : RECEIV
0x073340…0734d4 (0, 146) Dummy {f00=0x018f, f01=0x0190, f02=»ING : TRANSMIT BLOCK LENGTH : EBCDIC CODE ( ELSE ASCII ) : SPECIFIC POLL HANDLING : LINE SPEED HIGH : SIEMENS MSV1 PROCEDURE : NUMBER OF RECEIVE BUFFERS : 00 PHYSICAL LINE NUMBER : IBM CHARACTER HANDLING : MESSAGE PASSING : IBM-3270 PACKA
0x0734d4…073668 Dummy {f00=0x018f, f01=0x0190, f02=»-14) : RECEIVE BUFFER LENGTH : IO-PROCESSOR (ELSE PC) : WIRE 2/4 : SUBTERMINAL ADRESSING : REJ FRAME SUPPORT : MESSAGE PASSING : STATISTIC COUNTERS : INTERRUPT LOGGING : 00 PHYSICAL LINE NUMBER : MMU BUFFER SIZE (WORDS) : NUMBER OF LI
0x073668…0737fc Dummy {f00=0x018f, f01=0x0190, f02=»SSION/DECOMPRESSION : IDLE LINE ACTIVITY TIME-OUT : STATISTIC COUNTERS : LOGG AREA LENGTH PER LINE : 00 PHYSICAL LINE NUMBER : 34 04 05 MMU BUFFER SIZE (WORDS) : NUMBER OF LINES : POLL LIST LENGTH : MAX BLOCK LENGTH : LOGAREA LENGTH :
0x0737fc…073990 Dummy {f00=0x018f, f01=0x0190, f02=»ORDS) : TRANSPARENT MODE : NUMBER OF LINES : POLL LIST LENGTH : INTERRUPT LOGGING : RETRY LIMIT : PHYSICAL LINE NUMBER : 34 04 05 06 07 32 33 35 36 37 38 MMU BUFFER SIZE (WORDS) : RECEIVE BUFFER LENGTH : DC-TASK DATCOM FILE CO
0x073990…073b24 Dummy {f00=0x018f, f01=0x0190, f02=»DE : PHYSICAL LINE NUMBER : MMU DEVICE BUFFER : RECEIVE BUFFER LENGTH : NUMBER OF RECEIVE BUFFER (3-14) : INTERRUPT LOGGING : POLL TIMEOUT VALUE : SUPPRESS NULL CHARS. : 00 PHYSICAL LINE NUMBER : AUXILIARY DEVICE HANDLING : UNISCOPE EMU
0x073b24…073cb8 Dummy {f00=0x018f, f01=0x0190, f02=»CODE : INTERRUPT LOGGING : NUMBER OF RECEIVE BUFFERS (2-4) : POLL TIME-OUT VALUE : PHYSICAL LINE NUMBER : MMU BUFFER SIZE : NUMBER OF LINES : RECEIVE BUFFER LENGTH : MMU BUFFER SIZE : LOGG FACILITY : RETRY LIMIT : TIMERS T1,T2 : MAX OU
0x073cb8…073e4c Dummy {f00=0x018f, f01=0x0190, f02=»01 ORDER DISPENSE AND DELIVER SPLIT INTO ORDERS DISPENSE,DELIVER,DUMP (Y/N) : MMU BUFFER SIZE : ORDER TEST OUTPUT BUFFER : MMU BUFFER SIZE : NUMBER OF LINES : 01 PHYSICAL LINE NUMBER : 34 04 05 LINE ACCESS PROCEDURE ABM (ELSE ARM) : IO
0x073e4c…073fe0 Dummy {f00=0x018f, f01=0x0190, f02=» ON IOP (ELSE PROGRAMMED CHANNEL) : SCREEN CHARACTER GENERATOR - TYPE : SCREEN CHARACTER SET : ECHO OF EOR KEY : SUPRESSION OF TRAILING BLANKS : MMU BUFFER SIZE : NATIONAL CHARACTER VARIATION (1-15) : FRICTION FEED : FRONT FEED : PAGE LEN
0x073fe0…074174 (0, 147) Dummy {f00=0x0190, f01=0x0190, f02=»(PITCH) : 00 END OF REQUEST WHEN PRINTER IS INACTIVE : ORDER SET FORM PARAMETER : NATIONAL CHARACTER VARIATION : RECEIPT STATION IN PRINTER : MMU BUFFER SIZE : END OF REQUEST WHEN SELECTOR UNIT OR PRINTER IS INACTIVE : LP ON PROGRAMMED CHA
0x074174…074308 Dummy {f00=0x0190, f01=0x0190, f02=»T (DM & PAGING) : IBM LABELLED DISC HANDLING : ORDERS FOR MOTOR START/STOP (6805 ONLY) : MMU BUFFER SIZE (WORDS) : COMPLETION OF READ REQUEST AT POWER ON : CIRCULAR INPUT BUFFER SIZE : MMU BUFFER SIZE (BYTES) : MMU KEY TABLE SIZE : CR ON PR
0x074308…07449c Dummy {f00=0x0190, f01=0x0190, f02=»ER VARIATION (1-11) : CHARACTER FONT (0-3) : CHARACTER PITCH DOCUMENT (2-0) : JOURNAL STATION IN PRINTER : CHARACTER PITCH JOURNAL (2-0) : PARAMETER ORDERS : MMU BUFFER SIZE (BYTES) : END OF REQUEST WHEN PRINTER IS INACTIVE : MMU BUFFER SIZ
0x07449c…074630 Dummy {f00=0x0190, f01=0x0190, f02=»MENT LENGTH : MMU BUFFER SIZE : READ AFTER WRITE : READ AFTER WRITE : NUMBER OF DISC UNITS : READ AFTER WRITE : TOSS HANDLING : IBM HANDLING : LOGG FUNCTION FOR INPUT/OUTPUT CHRS : NUMBER OF LOCAL CHANNEL UNITS : 01 NUMBER OF
0x074630…0747c4 Dummy {f00=0x0190, f01=0x0190, f02=»LOCAL CHANNEL UNITS : 01 AB JW &P . = & >h A> 8R P &P~ G MH @S8 P 0 X DCX: !SSP B X 5:T Wh > D( & * A AF AF AF A W @y P D(W @y T C W( C W" @{^ @{f @ @ @{h
0x0747c4…074958 Dummy {f00=0x0190, f01=0x0190, f02=» Z6T 5W _B : @b @ R P @S8 5 P @S: U P @S; U @?8 D P P P P P @ T D > > P D > :h H? P :? ? @8 @L@ @ @* 4 0P 0 A) : 4 0T 15 A( : 4 0P 1 A< : 4 0Q 0 A% A% 4 0P 0 A) : 15 A( : 4 0T
0x074958…074aec Dummy {f00=0x0190, f01=0x0190, f02=» J T # R dR W ! C< C> C<P( R S8 S8_ 00 S8 ^ C< @S8:HV. !YYT 1;BV 8W !NNT 0;BV : AE _ PS8 !00Z !99Y @S8 QD @?8 T6 R dR W Q A,$ @?8 Yr @S8 @?8 D
0x074aec…074c80 Dummy {f00=0x0190, f01=0x0190, f02=» # R dR W ! P P AG T AG F W AF F W AF F AF AF AF _ P AB G E : ! P@ A, @S8 !SSP& A, !NN A, @?8 I H @ Y AS8_ HS8 !,,T A, W. !00 A, !FF A, !99U !AA A,
0x074c80…074e14 (0, 148) Dummy {f00=0x0190, f01=0x0190, f02=»A A, @{jP HN # @{^P Hr # @ P H # @ P H # @{fP H # @{hP I # @|@P H0 P : I( : A t : F @r P @9 0T^ F @s P0 @+ 0T F @,2 0T& A AF F W
0x074e14…074fa8 Dummy {f00=0x0190, f01=0x0190, f02=»A, AE @E P @E AE A, X 23P 17P 81P 82T @E A,W @E _ @E _ <C F" X Q 0 aE @?8 AE X 17T @E AE W 9B AE @E T AE _ ?4 @F" 5_ 9 P 0R Q < 9h " : _ @$* 0T 00 A
0x074fa8…07513c Dummy {f00=0x0190, f01=0x0190, f02=» 394647 EBCDIC LED EBCDIC!!DL 34,65!!DL 75,91!!CH $$EQU X:B$$EQU 0$$ !!CH $$ X:A$$ $$ !!CH $$ X:A$$ $$!!CH $$ X:A$$ $$ LED DVTKB : !!CH $$/2122,/2426,/3B3C,/3E40,/5E5F$$/ ,/ ,/ ,/ ,/ $$ DATA 0,0,0,0,0,0,0,0 !!DL 45 G|
0x07513c…0752d0 Dummy {f00=0x0190, f01=0x0190, f02=» !!CH $$EDM EQU 0$$EDM EQU 1$$ !!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ !!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ !!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!CH $$ASSOLY EQU 0$$ASSOLY EQU 1$$ !!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$
0x0752d0…075464 Dummy {f00=0x0190, f01=0x0190, f02=» P I :. I :LED DVTOD @r T I :DRIC0X @$* SP ECP 1P AT$ :DC : J : ( SP MMT W ( O P :!!IL 48 @S8 !SS @ S 5 ?4 @S8 JF A, @S8 5 E T :h" P 0R U Q P <H9D_(
0x075464…0755f8 Dummy {f00=0x0190, f01=0x0190, f02=» T~ Y Y| Z PF 01 7 MF r^ S AMB K T _@ 7 @Y Y AY R _^ @] PV Ag @Y P Y A] A] ] E AY} 01 AY~ ^ T S _ Ag 7 a & CD Arp Ar CG Arn Ar : 4R P @] ! P ]
0x0755f8…07578c Dummy {f00=0x0190, f01=0x0190, f02=» _D W W X Q^ R R _ ]T 4P 1 AL @Y 7 Y 01 7 @]T , 7 4 W V T1P TNP G1P G2P T2P TPT, 1 0P 1T W AMD / AL @MD W AL AY R 4^ A]T @MB : S8 ( @ N$ !;;P6 ! P0 ! X
0x07578c…075920 Dummy {f00=0x0190, f01=0x0190, f02=»S8 MFR *Pr_ 7 O P^ "T @+n 1T V SIT TF P, LS: !,,T2 U, LS8 LS99H # O _4 # A]T : M @S8 7 O : V DIT Q ,0W8 @S8 P KB ]H V MTT 0P R| @ & I 7 P& @S9 !,, M @S: R| C
0x075920…075ab4 (0, 149) Dummy {f00=0x0190, f01=0x0190, f02=» @Y P EOh @S8 _D T :h" P 0R U Q P <H9D_( : M ^2 @S8 V M V M M N` M @S8 O 9H @S: O A Pl M V KBT bqP brP b6T b6 bA
0x075ab4…075c48 Dummy {f00=0x0190, f01=0x0190, f02=» W : ^2 M V W M Q M Q< W : S8 0 0R Q ; W : # +0 !99U :d" *0 !99U :H : T TP ^b T1 ^ TN ^ T2 ^ G2 ^ G1 ^ D4 ^ D5 ^ MD ^ CD ^ TWP DUP FDT ] W ] W
0x075c48…075ddc Dummy {f00=0x0190, f01=0x0190, f02=» : AQ A : @Y~ ag !99R ?0W AY~ : 1R Q : M ]H "P. @ & (P , 7 B W A]H : T SIT* @+n 1T" 7 @]TP @]V W 02 W A]T : DEFINE TERMINAL DEVICE CLASSES DEFINE ECHO DEVICE CLASSES
0x075ddc…075f70 Dummy {f00=0x0190, f01=0x0190, f02=»Z Z Z Z [ [ Z Z [ [ Z Z [ > FILE CODE : DEVICE ADDRESS : PTS NUMBER : ECHO DEVICE : KEYBOARD TIME-OUT : CODE CONVERSION : M NlO O O O O N P P VP P T1
0x075f70…076104 Dummy {f00=0x0190, f01=0x0190, f02=»
[…0x2…]
0x07642c…0765c0 Dummy {f00=0x0190, f01=0x0190, f02=» b2c1e1b3b1cBb4b6bqbr q r tba bAbBb2c1b3b4b6bqbr q r t cBcQcRcDc c cF A 20203000003010909090909090 00000040004040404040404000 8080800010100000 FILE CODE : DEVICE ADDRESS :
0x0765c0…076754 (0, 150) Dummy {f00=0x0190, f01=0x0190, f02=» DEVICE ADDRESS : PTS NUMBER : NUMBER OF LINES : NUMBER OF CHARACTERS/LINE : KEYBOARD FILE CODE : PIN CHARACTER : DISPLAY FILE CODE : FILE CODE JOURNAL : DEVICE ADRESS : FILE
0x076754…0768e8 Dummy {f00=0x0190, f01=0x0190, f02=»ODE TALLY ROLL : FILE CODE LEFT TELLER : DEVICE ADRESS : FILE CODE RIGHT TELLER : LEVEL: ********* : LED DRTW01!!CH $$ X:F$$ / $$
0x0768e8…076a7c Dummy {f00=0x0190, f01=0x0190, f02=» W W 1_ 1 W W : : Lr^R T _ : P& P P W @S8 AS9 0 AS8 @S8 : : 7 W V W 0 W V W 2 W V W V W 1 W RZ 7 V W 0 W V W 1 W RZ 7 V W V ! 9A 00 W W : V W : 7 W V
0x076a7c…076c10 Dummy {f00=0x0190, f01=0x0190, f02=»`V R O X *0 T1PR TNPL T2PF G2P@ G1P: MDP4 CDP. D4P( D5P" DUP FDP TPP D3T X W X X / O @`"Q `j a _ / Af _ / P Q$ A`" d _ r& A`^ A`" t d _ @ AC : 8R Fq P _ : AbP Ab Ab Y 9a
0x076c10…076da4 Dummy {f00=0x0190, f01=0x0190, f02=»T fV f^ : ET Ab b 0 Ab Ab X 00 FbT X 40T fz W X Af X Af f X X W 1 Ab W 1 Ab 40 a : 1 Ab a : @f Af P Ab 1 Ab a a ` T !99U Ab :h Ab @ P g : @ & 0TX P P " 9U
0x076da4…076f38 Dummy {f00=0x0190, f01=0x0190, f02=»apaxapa a afa a a !!CH $$COD$$CTAB $$!!CH $$ DATA COD$$ DATA 0$$ !!CH $$DVT $$DV $$!!CH $$ECH$$DW $$!!CH $$/1111$$/ 000$$ !!CH $$BCA$$ $$ !!CH $$ED0$$ $$!!CH $$/2222$$/0000$$ !!CH $$/3333$$/0000$$
0x076f38…0770cc Dummy {f00=0x0190, f01=0x0190, f02=»
0x0770cc…077260 Dummy {f00=0x0190, f01=0x0190, f02=» !!DL 07 !!
0x077260…0773f4 (0, 151) Dummy {f00=0x0191, f01=0x0190, f02=»TABXX$$ !!CH $$/ABC$$/ $$ : 8 KBT @b ! P @b " :A*0 !99U AcLW @b ! ! U 0 Ac6 c$ @b ! 9M9l X P 90T )0 !99U AcI c: 0 AcL : 32 @ P" @(`P hj Ag 16 @( P h Ag W @ P @' P hj Ag :
0x0773f4…077588 Dummy {f00=0x0191, f01=0x0190, f02=» 4T : 3T 24 : 2T 16 : 1T 08 : 00 : 4T : 3T 12 : 2T 08 : 1T 04 : 00 : q t2 Z P ln l4 0R _ q W Ai Ai MH X, S8 ( H <H%
0x077588…07771c Dummy {f00=0x0191, f01=0x0190, f02=»_ t r^ $ r P: @rlT4 @ P @r| @r T$ AS ArzW @r~ @rz @r| @r T SU Arl @ @ @{f @{h @ @ @ P2 @r @r @r @r T @ @ @t P FD Ar W DU Ar 1 Aq jd @s P @r P j @ At0 @r P$ 2 Aq j @ A Ay Ay Ay Ay @t0Ph A Ay A
0x07771c…0778b0 Dummy {f00=0x0191, f01=0x0190, f02=» @r T As @ As s }" @r P s Z As @r P s Z As s r^ r $R T ) _ @r T Ar @r T Ar @r T Ar @r T Ar @r T Ar @r T Ar @r T Ar @r T Ar @rvT Ar r @ J As A J r @s A J r }" A t @ P 01 A+h : 09HR
0x0778b0…077a44 Dummy {f00=0x0191, f01=0x0190, f02=»TER DN NUMERIC DISPLAY DI INDICATOR DISPLAY/KEYBOARD LAMPS DY VIDEO/PLASMA DISPLAY SU LOCAL AND REMOTE TERMINALS MS MAGNETIC STRIPE UNIT OD OPTICAL DOCUMENT READER T1 TELLER TERMINAL PRINTER (TP71) G1 GENERAL PRINTER (LP100)
0x077a44…077bd8 Dummy {f00=0x0191, f01=0x0190, f02=»ONTROL G3 GENERAL PRINTER (HP75) VU VIDEO G2 GENERAL PRINTER (GP74) T2 TELLER TERMINAL PRINTER (FT80) TN TELLER NOTE DISPENSER TC TAPE CASSETTE SI SOP INPUT SO SOP OUTPUT MT MAGNETIC TAPE UNIT TW TYPEWRITER
0x077bd8…077d6c Dummy {f00=0x0191, f01=0x0190, f02=»R 80MB) CR CARD READER II INTERTASK COMMUNICATION INPUT IO INTERTASK COMMUNICATION OUTPUT D1 DATA COM DRIVER DRDC07 D2 DATA COM DRIVER DRDC15 D3 DATA COM DRIVER DRDC17 D4 DATA COM DRIVER DRDC81 D5 DATA COM DRIVE
0x077d6c…077f00 Dummy {f00=0x0191, f01=0x0190, f02=»DC22 D9 DATA COM DRIVER DRDC13 DA DATA COM DRIVER DRDC23 DB DATA COM DRIVER DRDC25 L3 X25 LEVEL 3 DRIVER X25:L3 DEVICE ABBREVIATIONS DEFINE DEVICES : DC-DRIVER1 NAME,USERID : KBTPGPDNDIDY SU MSODT1G1ASSLPLG3VUG2
0x077f00…078094 (0, 152) Dummy {f00=0x0191, f01=0x0190, f02=» DWII01DWIO01DW0701DW1501DW2201DW1301DW2301DWL301DTTP03 DVTKB DVTTP DVTGP DVTDN DVTDI DVTDY DVTMS DVTOD DVTT1 DVTG1 DVTG3 DVTVU DVTG2 DVTT2 DVTTN
0x078094…078228 Dummy {f00=0x0191, f01=0x0190, f02=»2 A4 : r $ r P DC As : DEVICE LIST (Y/N) : 01010001
0x078228…0783bc Dummy {f00=0x0191, f01=0x0190, f02=»
[…0x2…]
0x0786e4…078878 Dummy {f00=0x0191, f01=0x0190, f02=» d A Z T v MH X Y HS8 I 3 I 3 A N A A P A J MH X @S8 UKT 99 AS8 Q H Z8 P _ H At A W< A W A W0 A A A{jW A _ A _ Z P A{^ M
0x078878…078a0c Dummy {f00=0x0191, f01=0x0190, f02=» " > MH X S8 (;H H P{ Z. P _ P| A|& SY A|" A W2 A|, SY A|( A W A| SY A| Ay ! A 02 A PV ( !,, _tCOBACRAS { { { { SYSLODSYSLDM SL SL SL SYSINI NOD AM b Z P6 Z A A
0x078a0c…078ba0 Dummy {f00=0x0191, f01=0x0190, f02=» @ P @ @ @ P B A C }" W @{^ @ @{f @ @y @{h @|@P0 }v 4R(P 9 T Y T Y }r C _0 :LED A D P @ _ A @ ( @r P j @r P v J
0x078ba0…078d34 (0, 153) Dummy {f00=0x0191, f01=0x0190, f02=» 9h! A , l4 @y A L( ( X( ( Z P g A MH P S8 ( 1 PV !,, A S8 @ X& T$ DW @S8T A DC @S:T A @S< A / 1 S Q Q
0x078d34…078ec8 Dummy {f00=0x0191, f01=0x0190, f02=» !YYP NP :SYSTAB IMON IMOD TDISPLRPINT TPROC MSUBSTTMJOB OINT TASKTOSSIOLDTASKST8000DRND01DCADDR TMOVEDCSTAT PFTAB LKMAL TCLASSSCLASSMONTAB DC:TABIN:L
0x078ec8…07905c Dummy {f00=0x0191, f01=0x0190, f02=» SUPPORTING TOSS RELEASE #11.0 ASSEMBLY LIST : ASG /02,NOSYSGEN ENDEDEXTRA MONITOR MODULES : MOV LED DWDC00 DEBUGGER : INC DEBUG,TOSSWORK INC DEBUGM,TOSSWORK KPF /O L( X( t( ( f(
0x07905c…0791f0 Dummy {f00=0x0191, f01=0x0190, f02=» L( X( : ASG /E0,TY10 INC SYSTABINC DEBUG LKE M ASG /02,LP0FSCR PROGRAM LANGUAGE (AS=ASSEMBLER,BA=BASIC,CO=COBOL,CR=CREDIT) : DATA MANAGEMENT : FILE MANAGEMENT : EXTENDED DATA MANAGEMENT : ABRIDGED DATA MANAGEME
0x0791f0…079384 Dummy {f00=0x0191, f01=0x0190, f02=»/L, LED MONTAB081082083084085086087088089090091092093094095096097098099100101102103104105016107108109110111112MEMORY MANAGEMENT UNIT : !!DL 20 !!DL 51 : : Tf # P P b A h A g _* : Z
0x079384…079518 Dummy {f00=0x0191, f01=0x0190, f02=»KSUB ASG /E0,DK,LINKVX ****!!IL 25 :TIODMX & z z z z z z z z z z z z COMPUTER TYPE : SWAPPABLE WORK BLOCK HANDLING : DISK PAGING : L h :0102030405060708091011121314151617181920 @{^ @ @{f @ @y @{h A J :
0x079518…0796ac Dummy {f00=0x0191, f01=0x0190, f02=» A 9h A A W2 @Y~ @ & I W @ W Z T @ & I A " H P A & : @Y~ A 9 A 9 @ & I @ : @ & I :LED CTABX 8-BIT SETTING : !!CH $$CTABXX$$CTABNN$$ CTABXX C0C1C2C3C4 (
0x0796ac…079840 Dummy {f00=0x0191, f01=0x0190, f02=» : @ P :PARTITION LENGTH IN BYTES ( HEXA ) : NUMBER OF PARTITIONS : !!CH $$ X:A$$ / $$ !!CH $$ X:B$$ $$ S8 0 !00R !FFQ !99U !AAR - $ : S8 0 !00R !99Q - : S:W S; S8 $ ) ^ 0 P ) _
0x079840…0799d4 (0, 154) Dummy {f00=0x0191, f01=0x0190, f02=»_p A h _| A h _ A h _ A h _ A h _ A h _ A h _ A h _ A h _
0x0799d4…079b68 Dummy {f00=0x0191, f01=0x0190, f02=» @ A @ A @ T DW A @s P @ 4 b F 8R X A KBT @ 6T A 6 CGT @ 8T| A 8 G2T @ Tl A T2T @ T A G1T @ TL A TNT @ T< A TPT @ 2T, A 2 T1T @ 4T A 4 d T T _ X P* A 6 A
0x079b68…079cfc Dummy {f00=0x0191, f01=0x0190, f02=»W l X @ 00 A l A p A n @ @ L / A 0 T T1P< TNP6 G2P0 T2P* G1P$ MDP CDP DUP FDP TPP MTT T CGT @ :TH A : 0 A A T DV A T A @ A @ d T 4^ A : T
0x079cfc…079e90 Dummy {f00=0x0191, f01=0x0190, f02=»d P E A J d A 00 A l A p A A d P A A S A J W A A d A @ @{f @{h @ @ Xl $ p F P 00 A l A p A A X n X d _ :
0x079e90…07a024 Dummy {f00=0x0191, f01=0x0190, f02=» 0715178182 2213 2325 ASM DC:TABLED TCLASS!!IL 11 DATA TC00TC00 DATA TC00E-* TC00E EQU * DATA +1cV00 EXTRN DV 00!!IL 6!!IL 12 $ !99R %
0x07a024…07a1b8 Dummy {f00=0x0191, f01=0x0190, f02=»0 W 01 A A r& AlR Al lN RJ R _ MDP& CDP FDP MTP DUT W X ! P H ^T I ^ W : A A : 00 A @r P 0 @r P 6 @r P B @ P * : 07W 15W @ W @ W 22W 13W A : @r P @r P @
0x07a1b8…07a34c Dummy {f00=0x0191, f01=0x0190, f02=»: 15W @1j @ W @1 @ W A /0 A A DW A @ A 00 A : @ @{f @{h @ P@ @r A P @r A P @r A P @+ 0P @r A P : A : 01_ @ @{f @{h @ @r P> 01 MD A A 0 F4 1 F5 2 F6
0x07a34c…07a4e0 Dummy {f00=0x0191, f01=0x0190, f02=» 0P4 P 2 F2 3 F3 01 0 F0 1 F1 @r 01 FD A A 0 F8 1 F9 2 FA 3 FB : A /0 A : : DATA DWDU01 A A : EXTRN DWREMU DATA /015 DATA DWREMU
0x07a4e0…07a674 (0, 155) Dummy {f00=0x0192, f01=0x0190, f02=» JWB @ @ @ W( H A X H A j H A v H A : 2 @ 2 . ~ > H J I @ AS8 A A n @ AS8 @ AS: ;h;G B A n < C X
0x07a674…07a808 Dummy {f00=0x0192, f01=0x0190, f02=» : > @ P @ P W @ X A A n C A NWL @ @ " 3 @ V9A A A W : j : @ n! A A n @ ! B A n C @ n! A A n @ ! B A n C A > d @ @ @ P
0x07a808…07a99c Dummy {f00=0x0192, f01=0x0190, f02=»|B! F A n C : L R _ L ,0 ) $ ) I : :d P 9C :' d !!CH $$ X:A$$ $$ MAX BLOCK SIZE IN BYTES : MAX NUMBER OF DISC BLOCK BUFFERS : MAX NUMBER OF CURRENCY BUFFERS : MAX NUMBER OF PROTECTED RECORDS : INDEXED
0x07a99c…07ab30 Dummy {f00=0x0192, f01=0x0190, f02=» CLOSE DISCARD : LED SDMBUFLED DFTAB !!CH $$F0F1,/F2F3$$F0F1$$ !!DL 22 DATA MANAGEMENT PARAMETERS LED SDMFDBLED SDMTSK!!DL 20 @ n! T A @ & AS8 @ ( AS: C A n @ AS8 @ AS: D A n : D A @ V9A n A A : : @ n!
0x07ab30…07acc4 Dummy {f00=0x0192, f01=0x0190, f02=» A A H R P _ D " B A n @{` C A n C A 2 :LED TIOSDM 4 0T 00 A A A A : : A A @ n 1R @ @ " 9a A V @ @ : S8 0 0R Q ; W : TIODMSDMTSKSDMOCRSDMBUF DFTABARITMSTIOSDMSDMSUB @
0x07acc4…07ae58 Dummy {f00=0x0192, f01=0x0190, f02=» > @ AS8 @ AS: A{d @ . AS8 @ 0 AS: A{b @ V9A A A @ X! A A n @ P ! B A n @ P ! C A n @ ! D A n @ v! E A n @ ! F A n C }" @ v! A A n C @ j! A A n
0x07ae58…07afec Dummy {f00=0x0192, f01=0x0190, f02=» TASK : CREATE/DELETE : EXTEND : ATTACH/DETACH : MULTIPLE EXTENT I/O : 1 1 1 1 1 1 1AT 1 1 1 1 LED SDMOCRLED FMTASKFMTASK DFTABFMCDEFARITMS TIOFM LED SDMSUBLED ARITMSLED TIODM LED FMCDEFLED TIOFM J d @r P @+ 1P
0x07afec…07b180 Dummy {f00=0x0192, f01=0x0190, f02=» : P U P U Q U R U S P * U U U U :0000000002020202040404040606060601010101030303030505050507070707 DATA /0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000 /0000 DATA /0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000
0x07b180…07b314 (0, 156) Dummy {f00=0x0192, f01=0x0190, f02=» P A 6 G| : x A h _
0x07b314…07b4a8 Dummy {f00=0x0192, f01=0x0190, f02=» @ A v @ A x @ @{f @{h @ @ @ P" @tP Ar @tR Ar @tN Ar @tL Ar W @ T Z . h x H R 01 I _ A d F @ T @ P : @r P = @r P = @r
0x07b4a8…07b63c Dummy {f00=0x0192, f01=0x0190, f02=» @r P = @ P @( ! R = @ P @( ! R = @ P @( ! R = @ P @=X! R = @ P @( ! R = @ P @=X! R = @ P @=X! R = @r P @ P @=X! R = @r P
0x07b63c…07b7d0 Dummy {f00=0x0192, f01=0x0190, f02=» 2 @ P @' ! R $ = @ P = 8 > @r P = D J @r P * = @r P 0 = P V b @r P 6 = h n @r P B = t z @r P H =
0x07b7d0…07b964 Dummy {f00=0x0192, f01=0x0190, f02=» :!!DL 115,177 8 P&P $ A T D A V D A X N _. : DATA F T RJT _ L lP _ L ] L M ] L M ] ] IH = ] _H :IHPFAR IHLKM IHRTCILLINT IHTW IHTC IHSOP IHFD CHRT1
0x07b964…07baf8 Dummy {f00=0x0192, f01=0x0190, f02=»U1IHPVU1IHSVU2IHPVU2IHSVU3IHPVU3IHSVU4IHPVU4IHSVU5IHPVU5IHSVU6IHPVU6 ISLCI ISLCOIHPL01IHPL02IHPL03IHPL04IHPR01IHPR02IHPR03IHPR04IASCUZ
0x07baf8…07bc8c Dummy {f00=0x0192, f01=0x0190, f02=» Y . : : !99T :!!IL 55 010101010101010101010101010101010101010101 EXTRN IH0000 F T R X L lP _ F_ : 0715178182 2213 2325 @ P @0 @{hP @ P @{fP @{^P @ P @y P :
0x07bc8c…07be20 Dummy {f00=0x0192, f01=0x0190, f02=»P @r P D B A W C A @{` : E A @{b_ D A @{d_ @s @ P G A _2 : F A @ _@ L R _ L ,0 ) $ ) I :' d !!CH $$ X:A$$ $$ ? ?
0x07be20…07bfb4 (0, 157) Dummy {f00=0x0192, f01=0x0190, f02=» 9 5W @ ~ A?2 A?V @ A?4 > Z P2 @ P B A @ A?2 A?V @ A?4 @y P" TA A . @{^ @{fP TM A X A ^ A " MO A : T A @ P TL A ( @{^ @ @{f @{hP TL A (
0x07bfb4…07c148 Dummy {f00=0x0192, f01=0x0190, f02=» @ @ P T A L MO A 4 A " A @ A AF 0 @ :P 1 AF F B AF 0 @ 4P 1 AF F @ P A AF 1 AF F A t : L K M
0x07c148…07c2dc Dummy {f00=0x0192, f01=0x0190, f02=»LK MOVETINEDM DPGM AGAL 057058059060061062063064065066067068069070071072073074075076077078079080081082083084LED TMOVE LED LKMAL DELAY/DELAY AND ACTIVATION : ABORT FUNCTION : GET/SET DATE : GET/SET TIME :
0x07c2dc…07c470 Dummy {f00=0x0192, f01=0x0190, f02=»SSIO!!CH $$ X:A$$ 1$$ @ A ^ @ A d @ " A j @ ( A p @ . A v @ : A | @ L A @ d A @ A @ A @ v A @ p A : IMER PROC MLKM DSEG BORT NTIM IOFM DPGM AGAL OEDM MOVE WBLK
0x07c470…07c604 Dummy {f00=0x0192, f01=0x0190, f02=» J A . ~ > @ ! A @ AS8 @ AS: ^ A @ AS8 @ AS: ^ A 4 MH T MH A l MH A ( MH A @ ! 9C L L P _ A
0x07c604…07c798 Dummy {f00=0x0192, f01=0x0190, f02=» S8 b @ E A Y2X* : 4 : L R _ L ,0 ) $ ) I : S8 0 0R Q ; W :' d !!CH $$ X:A$$ $$ X NUMBER OF LINES : REQUEST TI
0x07c798…07c92c Dummy {f00=0x0192, f01=0x0190, f02=»ER DATA LENGTH : NUMBER OF PERMANENT VIRTUAL CIRCUITS : LOCAL DTE-ADRESS IN CALL PACKET : STATISTIC COUNTER : LED X25:L3
0x07c92c…07cac0 Dummy {f00=0x0192, f01=0x0190, f02=» * J @ l }" * . ~ * > & MH n @S8 A @S: A @S< A % MH n @S8 A @S: A @S< A & ( MH P@ A JS7 K P 9 MH n
0x07cac0…07cc54 (0, 158) Dummy {f00=0x0192, f01=0x0190, f02=» + A A A A 0 A A @ + A # @ MX A ST A AB A E0 A 03 A VX A @ + A $ h @r P @r P @r P @r P <A A r @ r D A C @ + A } t @ B A
0x07cc54…07cde8 Dummy {f00=0x0192, f01=0x0190, f02=»Q D A @ AS8 @ AS: Q ;A A ~ @ AS8 Q @ ~ E A @ ` AS8 @ b AS: Q @ AS8 @ AS: Q Z @ B AS8 Q @ b AS: @ ` AS8 Q @ AS8 @ AS: Q > @ AS8 Q
0x07cde8…07cf7c Dummy {f00=0x0192, f01=0x0190, f02=» @ G A @ H A C @ + A @ X H A @ I A @ M A @ P2 N A @ O A @ P A @ P0 AS8 @ AS: @ AS< @ AS> Q Q A @ P( AS8 @ AS: @ AS<
0x07cf7c…07d110 Dummy {f00=0x0192, f01=0x0190, f02=» C A C : S8 IS7 R Y W 0 Y : : L R _ L ,0 ) $ ) I : T W P _ :' d !!CH $$ X:A$$ $$ : A &:h A % :!!CH $$ X:G$$ 'XX'$$EDM VERSION NUMBER : MAX NUMBER OF USER TASKS : MAX NU
0x07d110…07d2a4 Dummy {f00=0x0192, f01=0x0190, f02=»SIZE OF RECORD BUFFER AREA IN BYTES : SIZE OF BLOCK BUFFER AREA IN BYTES : VOLUME NAME FOR TRANSACTION LOG FILE : SIZE OF TRANSACTION LOGG FILE IN SECTORS PER USER TASK : VOLUME NAME FOR FUNCTION LOG FILE : SIZE OF FUNCTIONLOGG FILE IN SECTORS : E
0x07d2a4…07d438 Dummy {f00=0x0192, f01=0x0190, f02=»SK!!CH $$XXXXXX$$ $$ LED MXSTAB LED E003V LED E315V TIOEDM
0x07d438…07d5cc Dummy {f00=0x0192, f01=0x0190, f02=» ln LlnR Mln _ @r Aln @r Alt @r @r Alz @ @ Al @r Al Al Al @r Al @r Al @r Al @r Al @r Al @r Al @ Al @ Al @ Al @r Al @ Al @r Al @r Al Al N A V D A AT A A A $
0x07d5cc…07d760 Dummy {f00=0x0192, f01=0x0190, f02=»ln lr 0R 5 _ 5 F" T P R$ F"<c Q P > ln 1 Q _, : " . F R ^ p !!IL 12 !!IL 41 !!IL 55 010101010101010101010101010101010101010101 EXTRN IH0000!!CH $$ILLINT XX$$IHAABB XX$$ DC A ON A L T M A :
0x07d760…07d8f4 (0, 159) Dummy {f00=0x0193, f01=0x0190, f02=» 2325042043044045046047048049050051052053054055056057058059060061062063064065LED PFTAB
0x07d8f4…07da88 Dummy {f00=0x0193, f01=0x0190, f02=» @ A @ A @ @{f @{h @ P @tP Ar @tR Ar @tN Ar @tL Ar T @ T : $R P =W _ $R P =W _ @r T = @ T = @r @r T = @ T = @ T = @ T = @r T = @ T = @r
0x07da88…07dc1c Dummy {f00=0x0193, f01=0x0190, f02=» = @ P @(`! T =W p @r T @ P = @ P =W p @r T @ P =W @ P =W p @r T @ P =W p @r T @ P =W p @ T @r P x =W @ P =W p @ T @r P l =W @ P =W p @ T, @ P @' !
0x07dc1c…07ddb0 Dummy {f00=0x0193, f01=0x0190, f02=» =W p @r T p @r P @6,! R W p @r P @6,! R W p @r P p @r P p @r P p @r P p @r T p : 8 P&P $ A N D A P D A R H _. : DATA F T RJT _ L P
0x07ddb0…07df44 Dummy {f00=0x0193, f01=0x0190, f02=»T1 CHRT2 CHRT3 CHRT4 IHCC1 IHCC2 IHCC3 CHLT1 CHLT2 CHLT3 CHLT4 IHLP IHCR IHDU1 IHDU2 IHMT IHCD IHMD IHPLIHSVU1IHPVU1IHSVU2IHPVU2IHSVU3IHPVU3IHSVU4IHPVU4IHSVU5IHPVU5IHSVU6IHPVU6 ISLCI ISLCOIHPL01IHPL02IHPL03IHPL04IHPR01IHPR02IHPR03IHPR04IASCUZ
0x07df44…07e0d8 Dummy {f00=0x0193, f01=0x0190, f02=» H ~ r f Z 0 < $ B !!DL 115,1770715178182 2213 2325010101010101010101010101010101010101010101 !99
0x07e0d8…07e26c Dummy {f00=0x0193, f01=0x0190, f02=» j J @ P~ % j . ~ j > @ j! A|B A A ^ C @ j! A A ^ C : b T : L JR _ L J,0 ) $ ) I :' d !!CH $$ X:A$$ $$ SUPPORT OF OUTPUT/EXTEND AND
0x07e26c…07e400 Dummy {f00=0x0193, f01=0x0190, f02=» A] AY S AY} 01 AY~ r AK AK t AKD AL : AKP f P t t W2 01 A J t t J 7 : , j @ x x DEFINE SPECIAL DEVICE-CLASSES FILE CODE FIXED DISC : UN
0x07e400…07e594 (0, 160) Dummy {f00=0x0193, f01=0x0190, f02=» FILE CODE : INPUT FILE CODE : OUTPUT FILE CODE : BACKSPACE KEY : CANCEL KEY : END OF RECORD KEY : INPUT FILE CODE : OUTPUT FILE CODE : FILE CODE LEFT DISC : DISC
0x07e594…07e728 Dummy {f00=0x0193, f01=0x0190, f02=» INPUT FILE CODE : LINE NUMBER : OUTPUT FILE CODE : FILE CODE : UNIT NUMBER : @ @{f @{h @ PR @r P AtN Ar @r P AtL Ar @r AtP Ar @r AtR Ar @ @ @ P DM Ar : Lr P
0x07e728…07e8bc Dummy {f00=0x0193, f01=0x0190, f02=» / KPF /O 0 KPF /S 0 SCR 0 $ LED MONTAB 0 0 !!IL 25 0 B **** 0 R !!IL 50 0 ^ **** 0 n !!DL 081 0 z !!DL 082 0 !!DL 083 0 !!DL 084 0 !!DL 085 0 !!DL 086 0 !!DL 087 0 !!DL 089 0 !!DL 090 0
0x07e8bc…07ea50 Dummy {f00=0x0193, f01=0x0190, f02=»00 0 !!DL 101 1 !!DL 102 1 !!EN 1 * ASM /S 1 6 KPF /O 1 D KPF /S 1 R SCR 1 ` LED SYSLDM 1 l !!CH $$ X:A$$ 01$$ 1 ~ !!CH $$ X:B$$ 01$$ 1 !!CH $$ X:C$$ 00$$ 1 !!CH $$ X:D$$ 00$$ 1 !!CH $$ X:E$$ 00$$ 1 !!CH $$
0x07ea50…07ebe4 Dummy {f00=0x0193, f01=0x0190, f02=»008$$ 1 !!CH $$ X:L$$ 01$$ 2 !!CH $$ X:M$$ 00$$ 2 ( ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ 2 B ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 2 n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 2 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 2 !!EN 2 ASM /S 2
0x07ebe4…07ed78 Dummy {f00=0x0193, f01=0x005a, f02=» 2 INC SYSLCO 3 INC SYSINI 3 LKE M 3 , KPF /L,Y 3 : ASG /E0,TY10 3 J857 EQU 1$$ 2 B ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 2 n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 2 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 2 !!EN 2 ASM /S 2
0x07ed78…07ef0c Dummy {f00=0x0193, f01=0x2008, f02=» 4 INC SYSLCO 3 INC SYSINI 3 LKE M 3 , KPF /L,Y 3 : ASG /E0,TY10 3 J857 EQU 1$$ 2 B ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 2 n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 2 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 2 !!EN 2 ASM /S 2
0x07ef0c…07f0a0 Dummy {f00=0x0193, f01=0x0000, f02=»
0x07f0a0…07f234 (0, 161) Opaque[0x194]
0x07f234…07f3c8 # DirEnt {nam=»SUP003«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0510, f03=0x0000}
0x07f234…07f3c8 IdxSect {
0x07f234…07f3c8 f00 = 0x0028 // 0x7f234 @0x0
0x07f234…07f3c8 f01 = 0x0010 // 0x7f236 @0x2
0x07f234…07f3c8 gno = [ // 0x7f238 @0x4
0x07f234…07f3c8 [0x00]: C0x0028.0x2.0
0x07f234…07f3c8 [0x01]: C0x0028.0x3.0
0x07f234…07f3c8 [0x02]: C0x0029.0x0.0
0x07f234…07f3c8 [0x03]: C0x0029.0x1.0
0x07f234…07f3c8 [0x04]: C0x0029.0x2.0
0x07f234…07f3c8 [0x05]: C0x0029.0x3.0
0x07f234…07f3c8 [0x06]: C0x002a.0x0.0
0x07f234…07f3c8 [0x07]: C0x002a.0x1.0
0x07f234…07f3c8 ]
0x07f234…07f3c8 }
0x07f3c8…07f55c Dummy {f00=0x0028, f01=0x0190, f02=»T >Z R : Z | D )v _ H&2& ' ' ' )
0x07f55c…07f6f0 Dummy {f00=0x0028, f01=0x0190, f02=»
0x07f6f0…07f884 Dummy {f00=0x0028, f01=0x0190, f02=» T $ r > 22V4" CH !&" ? > 2V BfRY= AS>:AB? & TY J) V jLP + r DK J DK 8 J
0x07f884…07fa18 Dummy {f00=0x0028, f01=0x0190, f02=» r * ? ? ? ? ? ? ? , Z f Z f D Z f
0x07fa18…07fbac Dummy {f00=0x0028, f01=0x0190, f02=» ? ? ? ? ? ? ? Q ? ? ? ? ? ? ? Q ? ? ? ? ? ? ? ^ Q ? ? ? ? ? ? ? Q V t r r r r 0
0x07fbac…07fd40 Dummy {f00=0x0028, f01=0x0190, f02=» 6 6 6 6 6
0x07fd40…07fed4 (0, 162) Dummy {f00=0x0028, f01=0x0190, f02=» 6 6 6 h
0x07fed4…080068 Dummy {f00=0x0028, f01=0x0190, f02=»
[…0x4…]
0x0806b8…08084c Dummy {f00=0x0028, f01=0x0190, f02=» ~
0x08084c…0809e0 Dummy {f00=0x0028, f01=0x0190, f02=»
0x0809e0…080b74 (0, 163) Dummy {f00=0x0029, f01=0x0190, f02=»
0x080b74…080d08 Dummy {f00=0x0029, f01=0x0190, f02=» X
0x080d08…080e9c Dummy {f00=0x0029, f01=0x0190, f02=»
[…0x3…]
0x081358…0814ec Dummy {f00=0x0029, f01=0x0190, f02=» @
0x0814ec…081680 Dummy {f00=0x0029, f01=0x0190, f02=» _ ? ? ? ? ? ? ? A R2 @ A A R$ A A R A A R A @ > > > > > > > > ? ? ? ? ? ? ? U ^ ( H ( P ?, _ Q 4&? ?R _ 5 H _ ^ ;j >P @ * Q 9A D *P _ P A
0x081680…081814 (0, 164) Dummy {f00=0x0029, f01=0x0190, f02=» E > > a @ E @ ? ? > P P Q P ! P @ @2 @ P W $ < A @ 9a:a R0 & Q Q" ?A <P @ ! " _ $ _ _ 0 ! A T @ W @ R (P& P
0x081814…0819a8 Dummy {f00=0x0029, f01=0x0190, f02=» E $ @ ;a=a R @ =a V ;A , P = - - _F @! L ?, 0 A @ PR 0=a @ ?a RX @ ?a VN=A 0 ( P>P< , T T 1W 1W T )W )W ( , _ C $ _ 5 H A" A" A" A" A" A" A# A" " # D
0x0819a8…081b3c Dummy {f00=0x0029, f01=0x0190, f02=» @" _ A" A" A" A" A" A" B A# A" B :a Y B R A" _ @" # W4 @" A" ,Xp _ < @ A# A# A# A# A# A# A# # =a @ >a V _ @ >a Y A# A# 4 T # ( "^ 5 U P" @
0x081b3c…081cd0 Dummy {f00=0x0029, f01=0x0190, f02=» A A ^ 9j =Q > > > > > > > > P @ !@ &" @ P @ X0 , &" A _< U` A% @ , L ? ? , L L L L L L ? ? ? ? ? ? ? @ Px @ > > > > > > > ; [ [ [ [ [ [
0x081cd0…081e64 Dummy {f00=0x0029, f01=0x0190, f02=»_ T PT PJV P>V SH? V :!9 V @ P R W ;A [ [ : _4 Pj T Pf V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [
0x081e64…081ff8 Dummy {f00=0x0029, f01=0x0190, f02=» Q S W S Q R S P W S _ R _ ;A [ [ : # P| ' PL (T ; R <a V 9A:A ; V ; V V W V < V < V H T P R ;H [ [ : _ T P ; R4 < S ( _ _ W < R $ <A
0x081ff8…08218c Dummy {f00=0x0029, f01=0x0190, f02=»; RJ P 0 9 T ^ T V T Z U x : R Q ;H [ [ : _J ? ? ? ? ? ? ? Q _ ^ ( H F ) W *x W * X I I R P8 X C0P C6T Y Y W x Y Y $ 0T W W /X X ? ? ? ? ? ? ? **
0x08218c…082320 Dummy {f00=0x0029, f01=0x0190, f02=» 0 ? ? ? ? ? ? ? * 0 ? ? ? ? ? ? ? * 0 (@_~ . X R Y _ X D $! TR ? ? ? ? ? ? ? + 1 8 M ? ? ? ? ? ? ? +8 0 % > > > > > > > > ? ? ? ? ? ? ? +d 1 P X 0 0 +| - 8 TRT X . - $ <A
0x082320…0824b4 (0, 165) Dummy {f00=0x0029, f01=0x0190, f02=» 0 X C0P C6T" Y 0 Y Y X Q Y _ X X X U 5 X E _ X 4 Y 5 X 4 Y ! 1P, 0P +P Q Q W W Q Q R P Q 5 Y + ? ? ? ? ? ? ? , 1 Qv , - " PF X Q< X P P ? ? ? ? ? ?
0x0824b4…082648 Dummy {f00=0x0029, f01=0x0190, f02=» ? ? - 0 Y Y X X T ? ? ? ? ? ? ? - 0 > > > > > > > > ? @ ? > X B A- B (@ $ X X W W $ # C C P L L m A , DKP L X X L ! X L P L @ _ C C # $ _R _
0x082648…0827dc Dummy {f00=0x0029, f01=0x0190, f02=» % Y X R X . ! X Y T T Y Y Y Y Y U U X @ _ X X X X P/x/ / 0*/ P $ Y Y Y Y > - Y 8 TPP" X R 8 TYX WH H/ Y _8 X X: X R X ( _$ _* $ XtRX P Y _
0x0827dc…082970 Dummy {f00=0x0029, f01=0x0190, f02=» Y Z(P A0 ZrP Y _8 _< _@ ! - X M A0 T R - X X B A0 P X $ /X_" B W B W A W I W J X %?W X %? A1. A12 > > > > > > > 10 V <a W X ' ?A q A1 > > > > >
0x082970…082b04 Dummy {f00=0x0029, f01=0x0190, f02=» L % T< L P4 M ^ L X 4 _ ? ? ? ? ? ? ? L W L R % _R ^ 1 A M " L '? L U "T 9 WP T 9 WF T 9 2 3X2 2 3X3X2 2 2 2 3X2 2 5n W* 6 W" 5n W 8 L :AR| M W M M 4
0x082b04…082c98 Dummy {f00=0x0029, f01=0x0190, f02=»: L P L 9JR@ P P T : 5 U P T Q P P W Q P T@(@ L D " Q L Q Q L Q L ( L ! TNW P T P P W Q L ' 0 P p Y "(@ P P $ M 3j P ( M P Q P P P W P
0x082c98…082e2c Dummy {f00=0x0029, f01=0x0190, f02=» % ] M (@ L 2 :x T 2R Q @ 2] : > 9C 9C > ^ U 2(@ L T U U U M L M L M M L 4 3j L :x ! :c:A :x L T V P T"W L >F :x L & :x 5n M 4 4 M L M L " P M 5 3j M
0x082e2c…082fc0 Dummy {f00=0x0029, f01=0x0190, f02=»! P L ! XfWn L M L M M 6 3j L :c:A L D V D M L ! T*_ L < :x< R M M "W 6 M 4 4 L E M L "! :x L 2 L T L P L D Q 7 M 2 5 L L $:BV W $:AV M " M :b L L $ M 0 D L
0x082fc0…083154 (0, 166) Dummy {f00=0x0029, f01=0x0190, f02=» (U L ( L L R $ 9 _ R $ 9 M , L M M M M M ( M ( M 0 M 0 L D L Z L L *R L * L P( ' P 5 R 5 _ T 5 M , M L L , U : L :x L U 8 M 2 5 L M $ L M & L L I P0% P L
0x083154…0832e8 Dummy {f00=0x0029, f01=0x0190, f02=»_ M M L . P M . 9 M 2 5 L U 9 M 2 5 L L L & ) L $ I L M L L U M : @ M L M M M W L :x @ M M ( L P0W" M L :x @ M ( L U :& M 2 5 L L ( E L % E L E L E
0x0832e8…08347c Dummy {f00=0x0029, f01=0x0190, f02=» U L ( L L ? ? ? ? ? ? ? A A @( 4 R W 7 A Q ; ; ; ; ; @, : 5 ; ( "^ < ( "^ 5 < $ @< b 4T W b b H bP H d _ A; ; A@. 5 T6 @@( P @, ; ; ; ; ; @@( A@( A; $ 5 4 X
0x08347c…083610 Dummy {f00=0x0029, f01=0x0190, f02=»_ M M L . P M . 9 M 2 5 L U T < 0P < Y _ 1 X 1 < = W8 < = X W* 8 A= T A= = (@( - - : 0 :R - Y 0 PU,DNXX,STAT,RY = L ( E 5 Ax ? ; < 1P < Y
0x083610…0837a4 Dummy {f00=0x0029, f01=0x0190, f02=» Y U U 0!? ?T W 1 Q TKP MTT Y P ; Y (@ ; P Q 1 ; . X X ? ? ? ? ? ? ? >8 14_ 5 Ax ; @ Q P P T Z ; W P ; $>H $ NOT W0 Ax @ p ! $ rT tP Y ;
0x0837a4…083938 Dummy {f00=0x0029, f01=0x0190, f02=» P A @@*P$ @?( = ^ ] ] @?* _ A@* $ ? > A _ = A 0 9U A> > T > ( "^ ? = A @ A @ !? A @,_* 5 @@& ; @ A ; 0 A A@ A@ @ ( "^ @ A $ <
0x083938…083acc Dummy {f00=0x0029, f01=0x0190, f02=» @ @ @ Y Y Y Y P ABd ( Qh Q P( @ @ @ @ Y Y Y Y " A "; V W # @ A A@& @ ? ? > Q @ ? ? ? ? ? ? ? Aj ?, P6 $ R, Z R R Q $ :D P $ R
0x083acc…083c60 Dummy {f00=0x0029, f01=0x0190, f02=» M A @A @A @A @A @A @A @A A ? ? ? ? ? ? ? A $ < A B @ 9a:a R @ @Bd @ ! #J ! C "! PX @ Q P VF_ P RN;AR P P4 0 P P C C C LPT P P C # $ C _: DL P H C _
0x083c60…083df4 (0, 167) Dummy {f00=0x002a, f01=0x0190, f02=» XP P R :AV L D I I "R (@(@ ^ :j >Z ^ @ P _ A M (@ M M M B B M M # C C @ _ "ZN(@(@ ^ :j >Z _ m (@ M M 8 DKT X X T X M W M W y Y
0x083df4…083f88 Dummy {f00=0x002a, f01=0x0190, f02=» $P &PN "P< /P :P ;P <P =P >P ?P 1 C< 8 C<Wv E W C6W EhW C0 W W E~W Wx 8 MTPp DYPj X T Y $ WZ E WX $ # T $ T Y B W0 %@ R b " Y Y Y Y Y $ X _0 8 TCX< TKXB
0x083f88…08411c Dummy {f00=0x002a, f01=0x0190, f02=»X>W % P T % XT <A P X^<a P @ p @ $ XP $^ ?, AI AI AI AI AI AI AI I > > > > > > > aI @I E E E E E E I > > aI @I E @I @I @I @I @I @I @I I Q (@ T W@
0x08411c…0842b0 Dummy {f00=0x002a, f01=0x0190, f02=» X X T$W. X P X ` `T 8 P X 8 T T ^ T "<A U U ^ T x U Z T X T Z ? ? U X: V: T T ^ T ` T b T f T h j l n p r t v T d >" HI" AI* T T ^ T ` T b T f T h j l n p r t v T d A
0x0842b0…084444 Dummy {f00=0x002a, f01=0x0190, f02=»X>W % P T % XT <A P X^<a P @ p @ $ XP $^ ?, A A A A A A A > > > > > > > a @ E E E E E E > > a @ E @ @ @ @ @ @ @ Q (@ T W
0x084444…0845d8 Dummy {f00=0x002a, f01=0x0190, f02=» L B Y ! L L Lp X P P P P . B . @J P M L 0 AJ IB !K B !L6 X X ! P L y !L W !L L x P !LN M Q W ! P M L ZZ Lp B Y K AJ 1 - B :e L Ph !LN M Q !L B B $ !
0x0845d8…08476c Dummy {f00=0x002a, f01=0x0190, f02=» P P ! _ 4 B L TD K L :C* WL WH:a L ! 9A r X L :B* W":a L ! 9A r X L :B L !? B M AID L 0 IB M Y B AI6 IF Y X P P P P P P8 K !R AI, B T B @IF ) @IH I @IJ I K
0x08476c…084900 Dummy {f00=0x002a, f01=0x0190, f02=» V !R !R8 K B P2 AI4 B T$ B S @I,T !R @Iv AI, ! P W K B <b :b ^ AI. AI2 AI0R>P AI. AI0 !O AI4W& !O AI4R !O W !O AI4P AI4V !O !O _ P* AI4 AI4R Ql !O Wb !O !O WP !O
0x084900…084a94 (0, 168) Dummy {f00=0x002a, f01=0x0190, f02=» Y @I0 @I. AI4 AI. !O @I, ! P W Y AI4 & B Y K @I.:e L Pv !LN M Q !L !QN @I, ! P L PP !L " T" L @IFP<W !L " T L @J P$ M L Q !L _Z M Q K T X $ P@ D R: P @I, ! P !P T D $ !Qv @I,
0x084a94…084c28 Dummy {f00=0x002a, f01=0x0190, f02=»QD @I, ! P !L W !L " P M L Z2 K 4 !QD @I, ! P !L " T W( !L " P M L 6 K @J L 4 @I. L " P $ M 4 @I6 IF ( = Y 4 @I6 IF < ) Y 4 X ! J $ <b! L !? P L ! _ @ID L T !LN L
0x084c28…084dbc Dummy {f00=0x002a, f01=0x0190, f02=»TD @In 1T: B AIv @I, ! P !L W !L " P M L ZJ K 4 @ _ X X X X $ PR R R S S % P Y Y Y >% X P Y _" P" P& R| ^T Y _D _T X _ X _ X" X& T: X P4 0' P. 1R P _ 0$
0x084dbc…084f50 Dummy {f00=0x002a, f01=0x0190, f02=»% X P Y $ W Y =D %_ X P V % P Y X XT Q _ R Q R 0DKER UNIT CYLD STAT T TL - T, TVW2 T& Td X W$ T2 Tp W T8( X = 0 :R # Y ; ; ? 0 :
0x084f50…0850e4 Dummy {f00=0x002a, f01=0x0190, f02=» T T Y" P T _ X D D E E ] @ E @ U ? ? > ? ? ? ? ? ? ? X C ( "^ @Y V U T " P " P @Y W C "& # ( "^ | A @X @X @X @X <h @X % @X @X X X f
0x0850e4…085278 Dummy {f00=0x002a, f01=0x0190, f02=» U > > > > > > >WZ | A ^ T " T0 ! P W SY SD AD _ ! P _, J _2 X # C ( "^ P X X X X CCT I T P Q _, AX _V LM X A $ AX X L 9 !?
0x085278…08540c Dummy {f00=0x002a, f01=0x0190, f02=»PP I H P _ A T A A A @ ~ X A ~ @X A ~ @ Z ( "^ : A A @2 (@_0 $ ( , 0 4 8 < X U T " P " P @ W C "& # ( "^ | A @ @ @ @ <h @ % @ @ f
0x08540c…0855a0 Dummy {f00=0x002a, f01=0x0190, f02=» U > > > > > > >W | A ^ T " T ! P W SY SD AD _ ! P _, J _2 # C ( "^ P DOS - PTS 6000 REL. 11.0 81-02-16 MINI VERSION ZR : 9 !?
0x0855a0…085734 (0, 169) Opaque[0x194]
0x085734…0858c8 # DirEnt {nam=»PDISC «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0550, f03=0x0000}
0x085734…0858c8 IdxSect {
0x085734…0858c8 f00 = 0x002a // 0x85734 @0x0
0x085734…0858c8 f01 = 0x0012 // 0x85736 @0x2
0x085734…0858c8 gno = [ // 0x85738 @0x4
0x085734…0858c8 [0x00]: C0x002a.0x2.0
0x085734…0858c8 [0x01]: C0x002a.0x3.0
0x085734…0858c8 [0x02]: C0x002b.0x0.0
0x085734…0858c8 [0x03]: C0x002b.0x1.0
0x085734…0858c8 [0x04]: C0x002b.0x2.0
0x085734…0858c8 [0x05]: C0x002b.0x3.0
0x085734…0858c8 [0x06]: C0x002c.0x0.0
0x085734…0858c8 [0x07]: C0x002c.0x1.0
0x085734…0858c8 [0x08]: C0x002c.0x2.0
0x085734…0858c8 ]
0x085734…0858c8 }
0x0858c8…085a5c Dummy {f00=0x002a, f01=0x0190, f02=» Dbx 1 4 < fY%w t cb R c A $ ^ I : 9 Ai $ j 3bb w 64r d tV u 3 qC <1Z q&v zuqRT $ c> P{@ ZD ) c r L6 -RTe % V$ JM@> ) $ 9 H4` 1Lb p V -8 T < , tB ph Tg t z ^ r h V H 2 Z f9 z
0x085a5c…085bf0 Dummy {f00=0x002a, f01=0x0190, f02=» 4c : @Y/ pJ @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d F < :R:R: ` ZPzh % h v 66 B r4i : 0 ` ^&W D/ H P = D# v>~ v `" f V>~ $#` d p 4d @z V
0x085bf0…085d84 Dummy {f00=0x002a, f01=0x0190, f02=» ^B 8z Z1 4 < fY%w t cb R c A $ ^ I : 9 Ai $ j 3bb w 64r d tV u 3 qC <1Z q&v zuqRT $ c> P{@ ZD ) c r L6 -RTe % V$ JM@> ) $ 9 H4` 1Lb p V -8 T < , tB ph Tg t z ^ r h V H 2 Z f9 z
0x085d84…085f18 Dummy {f00=0x002a, f01=0x0190, f02=» 4c : @Y/ pJ @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d F < :R:R: ` ZPzh % h v 66 B r4i : 0 ` ^&W D/ H P = D# v>~ v `" f V>~ $#` d p 4d @z V
0x085f18…0860ac Dummy {f00=0x002a, f01=0x0190, f02=» ^B 8z Z1 4 < fY%w t cb R c A $ ^ I : 9 Ai $ j 3bb w 64r d tV u 3 qC <1Z q&v zuqRT $ c> P{@ ZD ) c r L6 -RTe % V$ JM@> ) $ 9 H4` 1Lb p V -8 T < , tB ph Tg t z ^ r h V H 2 Z f9 z
0x0860ac…086240 Dummy {f00=0x002a, f01=0x0190, f02=» 4c : @Y/ pJ @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d F < :R:R: ` ZPzh % h v 66 B r4i : 0 ` ^&W D/ H P = D# v>~ v `" f V>~ $#` d p 4d @z V
0x086240…0863d4 (0, 170) Dummy {f00=0x002a, f01=0x0190, f02=» ^B 8z Z1 4 < fY%w t cb R c A $ ^ I : 9 Ai $ j 3bb w 64r d tV u 3 qC <1Z q&v zuqRT $ c> P{@ ZD ) c r L6 -RTe % V$ JM@> ) $ 9 H4` 1Lb p V -8 T < , tB ph Tg t z ^ r h V H 2 Z f9 z
0x0863d4…086568 Dummy {f00=0x002a, f01=0x0190, f02=» 4c : @Y/ pJ @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d F < :R:R: ` ZPzh % h v 66 B r4i : 0 ` ^&W D/ H P = D# v>~ v `" f V>~ $#` d p 4d @z V
0x086568…0866fc Dummy {f00=0x002a, f01=0x0190, f02=» ^B 8z Z1 4 < fY%w t cb R c A $ ^ I : 9 Ai $ j 3bb w 64r d tV u 3 qC <1Z q&v zuqRT $ c> P{@ ZD ) c r L6 -RTe % V$ JM@> ) $ 9 H4` 1Lb p V -8 T < , tB ph Tg t z ^ r h V H 2 Z f9 z
0x0866fc…086890 Dummy {f00=0x002a, f01=0x0190, f02=» 4c : @Y/ pJ @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d F < :R:R: ` ZPzh % h v 66 B r4i : 0 ` ^&W D/ H P = D# v>~ v `" f V>~ $#` d p 4d @z V
0x086890…086a24 Dummy {f00=0x002a, f01=0x0190, f02=» ^B 8z Z1 4 < fY%w t cb R c A $ ^ I : 9 Ai $ j 3bb w 64r d tV u 3 qC <1Z q&v zuqRT $ c> P{@ ZD ) c r L6 -RTe % V$ JM@> ) $ 9 H4` 1Lb p V -8 T < , tB ph Tg t z ^ r h V H 2 Z f9 z
0x086a24…086bb8 Dummy {f00=0x002a, f01=0x0190, f02=» J @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d F < :R:R: ` ZPzh % h v 66 B r4i : 0 ` ^&W D/ H P = D# v>~ v `" f V>~ $#` d p 4d @z V
0x086bb8…086d4c Dummy {f00=0x002a, f01=0x0190, f02=» ^B 8z Z1 4 < fY%w t cb R c A $ ^ I : 9 Ai $ j 3bb w 64r d tV u 3 qC <1Z q&v zuqRT $ c> P{@ ZD ) c r L6 -RTe % V$ JM@> ) $ 9 H4` 1Lb p V -8 T < , tB ph Tg t z ^ r h V H 2 Z f9 z
0x086d4c…086ee0 Dummy {f00=0x002a, f01=0x0190, f02=» J @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d F < :R:R: ` ZPzh % h v 66 B r4i : 0 ` ^&W D/ H P = D# v>~ v `" f V>~ $#` d p 4d @z V
0x086ee0…087074 (0, 171) Dummy {f00=0x002b, f01=0x0190, f02=» ^ Z P OPT OUT=FC= FT= SOP=INP=DATE= R P ^ ^ 4` 1Lb p V -8 T < , tB ph Tg t z ^ r h V H 2 Z f9 z
0x087074…087208 Dummy {f00=0x002b, f01=0x0190, f02=» J @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d F < :R:R: ` ZPzh % h v 66 B r4i : 0 ` ^&W D/ H P = D# v>~ v `" f V>~ $#` d p 4d @z V
0x087208…08739c Dummy {f00=0x002b, f01=0x0190, f02=» ^ Z P OPT OUT=FC= FT= SOP=INP=DATE= P 4` 1Lb p V -8 T < , tB ph Tg t z ^ r h V H 2 Z f9 z
0x08739c…087530 Dummy {f00=0x002b, f01=0x0190, f02=» J @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d F < :R:R: ` ZPzh % h v 66 B r4i : 0 ` ^&W D/ H P = D# v>~ v `" f V>~ $#` d p 4d @z V
0x087530…0876c4 Dummy {f00=0x002b, f01=0x0190, f02=» ^ Z P OPT OUT=FC= FT= SOP=INP=DATE= P 4` 1Lb p V -8 T < , tB ph Tg t z ^ r h V H 2 Z f9 z
0x0876c4…087858 Dummy {f00=0x002b, f01=0x0190, f02=» J @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d F < :R:R: VOLUME 2 I L VOLUME 365 2 N d $ F f
0x087858…0879ec Dummy {f00=0x002b, f01=0x0190, f02=»XXX , INCOMPATIBILITY TOSS-DISC / PDISC VERSION END PDISC PDISC: DISC NOT OPERABLE OUTPUT DISC I/O ERROR NO TOSS DISC FORMAT BADSPOT ON TRACK ZERO MORE THAN 5 BADSPOTS FLEXIBLE DISC WRITE PROTECTED ONE OR MORE VOLUMES UNKNOWN
0x0879ec…087b80 Dummy {f00=0x002b, f01=0x0190, f02=»NAME UNKNOWN NO ENTRY AVAILABLE IN VTOC PARAMETER I/O ERROR 11PARAMETER ERROR $ FORMAT ERROR IN CONFIGURATION FILE INPUT DISC I/O ERROR TOO MANY SECTORS IN FILE OUTPUT FILE IS NOT A MONITOR : FILE NAME WITH ANOTHER FILE ORGANIZATION ALREADY
0x087b80…087d14 (0, 172) Dummy {f00=0x002b, f01=0x0190, f02=»11OLD FILE NAME: XXXXXXXX IS DELETED t ~ ) * *v @ "R A 6 A @ ) ^ %L @ 0 ! P b 0 .D ' ) ) @ " " A A @ ) @ " R2 @ l COP T2 @ tP, A 8 A . : 1R A .W @ h A P /$ A @
0x087d14…087ea8 Dummy {f00=0x002b, f01=0x0190, f02=» @ A N 0J " @ @ :P A < / A @ 8P& A @ " R A . : / A A . @ N @ A @ " R @ 8PR A : A 0 @ " P< @ P6 1 @ A N )R @ U ^ R 1 @ U ^ )n %L @ G % Y A @ R - -x A 0 A , A @ A
0x087ea8…08803c Dummy {f00=0x002b, f01=0x0190, f02=»P ^ .D 5 ) D @ P @ P @ R A P_p )n_v PH @ P @ P @ RF @ A ( @ R - -x 6( ^ A F A 0 @ Z: @ P @ YDW )n %L @ G @ % @ R @ @ . . @ ) ' Tt ^ @ < @ Q .D @
0x08803c…0881d0 Dummy {f00=0x002b, f01=0x0190, f02=» P )n # ) ' X @ @ A ( @ R2 ) ) - P A A A A @ ( Y A # G G ) )P .D )n @ P ) ) ( %RW$ A N A P )R @ E! : A N N . A P )R @ P T & _ ,
0x0881d0…088364 Dummy {f00=0x002b, f01=0x0190, f02=» 0 .D : A P )R @ 0 ! P>1$T: F 1ST2 01 T P$_ U P 1:T P A T P A Xl R j : *, @ "RH S G *$ P$ F A F A Y *(W. F 4 *4 F 4 *4W L G *$ P F $ * 0 P 1 Q
0x088364…0884f8 Dummy {f00=0x002b, f01=0x0190, f02=» (! 0R U R V W ) [ : .D 0 .D - .D A A & : @ b @ ~ A ~ x V W U A ~ .D A : @ % @ R: 8 :p P <` D E ;@ % _> @ " A T A : ^ @ .
0x0884f8…08868c Dummy {f00=0x002b, f01=0x0190, f02=» .D .D @ " A P P A : D( @ L P @ , T : D ( B ! @ , * N ) : @ "V @ @ 6( @ > @ , T~ A @ : M R W - M : W *W W p C P C ( : _ *P ) ) W, W( W$ W
0x08868c…088820 Dummy {f00=0x002b, f01=0x0190, f02=» - P @3o A *< ^ .D : @ F1R Q .V @ A -| . : *D @ .D T D ! T A ) A ( @ @ , *@ P^ R - , T R , _2 P P ^ < ! P !,,P 5 ^ , P Z2 , @
0x088820…0889b4 (0, 173) Dummy {f00=0x002b, f01=0x0190, f02=» Q ( ! P R ! Q % _ P : % @ E @ E W8 )P .D @ ! AP P P Tt A " T -$ ' R^ A A # A D b QH * A @ P, 81R0 90Q* @ 01R 12Q @ 01R 31Q : +d *0 V 8 5
0x0889b4…088b48 Dummy {f00=0x002b, f01=0x0190, f02=» A $ .D @ &TF @ "R4P @ @ W A A S A A A @ ( A A W P 9H A .V A & @ $P N: W B( . P T P W @ "T @ Y A : P $ %D Q ( % _ : ; [ [ [ [ :
0x088b48…088cdc Dummy {f00=0x002b, f01=0x0190, f02=» V Q Z W : A 8 A 1 A @ ) L ^ A : A |R 1 L ^P A |R 1 L ^ A 8 @ :P < A 1R A @ 8P : 1R : A A A A A ( A @ ) ) H A ~ A 1 P A A @ @ P* A f I
0x088cdc…088e70 Dummy {f00=0x002b, f01=0x0190, f02=» ( )n A @ | $ A P ) _L @ P 1 ( @ . P ( )n A @ P : @ P 1 @ A N )R < @ :P4 A 8 U ^ R 1 X U ^ R 1 @ Y4 @ 8P& : A R 1 8 U ^ @ Y )n : @ |R 1 L ^ 9 P |R 1 L ^ Y
0x088e70…089004 Dummy {f00=0x002b, f01=0x0190, f02=» V Q Z W : A 8 A A @ ) L ^ A : A28 |R L ^P A |R L ^ A 8 @ :P < A A @ 8P : : A A A A A ( A @ ) ) H A ~ A A f I
0x089004…089198 Dummy {f00=0x002b, f01=0x0190, f02=»SS REL 11.0 BADSPOTS NOT CHECKED Z $ A3 D A3 D A3 D A3 D A3 [ : Z $ A3 D A3 D A3 D A3 D A3 [ : Z $ A3 D A3 D A3 D A3 [ : 2 C C (
0x089198…08932c Dummy {f00=0x002b, f01=0x0190, f02=» 2 2 C C ( B & =& B .P " T =2 : 0 A34 A3 UU A3 A3 A3 @ A2 A2 4 R ' P 6 P P0 PV P| P 42[ Y Z 3 M 7( 42 ] ^ 3 [g [h 4 4 [4 4 7( 42bxbxbx
0x08932c…0894c0 Dummy {f00=0x002b, f01=0x0190, f02=»P P W< 3 &? &@ 42bxbxbx 7( 42U V W 3 7( 42W X Y 3 &? &@ 7( R P P W< 42bxbxbx 3 L L 7( 42U V W 3 1g 1h 7( 42W X Y 3 L L 7( 2 A2 A2 $ A2 $ A2 A2 R ! R 2 ( B
0x0894c0…089654 (0, 174) Dummy {f00=0x002b, f01=0x0190, f02=» =& =2 2 C C C B % E E A3 ( B ! : =& C S A2 A2 =. 2 R R C ' V* P T R IT C W C ( C ( B R % R E R E B N3f % Z R R E ( ( (
0x089654…0897e8 Dummy {f00=0x002b, f01=0x0190, f02=»2 3 A34 3 4 2 @3 P W A2 2 4r 4 4r @3 T 4 4r( A3 B & =& B =& P2 T = 3 3 B >( ^ = 3 3 4 @3 @3 U Y A2 Y A2 _ 3L
0x0897e8…08997c Dummy {f00=0x002b, f01=0x0190, f02=» B & =& B P Wt @2 Y 2 3 3 3 @3 A3 @3 $T 3 @3 A3 @3 $P 3 3 W( @3 $ Y P 4 _R 3 3 W. T = 3 3 @2 >( ^ = 3 3 @3 P 4 4 4 A3 A2 W 4 4 @3 T* @3 = Q A3 A2
0x08997c…089b10 Dummy {f00=0x002b, f01=0x0190, f02=»T 3 @3 A3 @3 $P 3 3 Wn @3 $ Y P 4 _R 3 3 4 4 @3 Tl @3 Q @3 P 2 ( : QL A2 Q> A2 W4 T RF 3 3 @2 >( ^ = 3 3 4 4 2 ( : 3 T( 2 ( ; W W W W W W : @3 =V A
0x089b10…089ca4 Dummy {f00=0x002b, f01=0x0190, f02=» 4 T Rd 1 Q 4 PB 4 T Rd 1 Q T T 4 T R 4 P _8 @1 W @3 @3 RdQ 1 Q A1 A2 1 22 2 P T 0PV 0 % % ( P< A3 A3 A3 A3 ( H H H R @3 @3 @3 @3
0x089ca4…089e38 Dummy {f00=0x002b, f01=0x0190, f02=» 5 2 4 @3 2 % P 4 _ A2 2 A2 ? A2 @3 Q U( _ 2 % 2 * % Y : 2: ? 2 * , P Pv * BA % DS % PO % T % 5 Y 5 Y % L % L % ,
0x089e38…089fcc Dummy {f00=0x002b, f01=0x0190, f02=» @3 R V 2 U A3 4 ]D 2 2 @2 % % 2 ) % % Z @3 % @3 % @3 % 3f ( % Y 2 % @3 O . R O 1 R O 0 B W E d E ~ E f O E l E E n E W E p E 4 2 (
0x089fcc…08a160 Dummy {f00=0x002b, f01=0x0190, f02=» AA AA AA AA AA AA AB" AB$ R % Bl P AA @A P Nd @A : R !LLPB !XXPh R 1 R 2 Y AB AB AB Y AB AB @B W S 1 AB S 2 AB AA C Ex : S 1 AB S 2 AB _. B B R ?h # AA
0x08a160…08a2f4 (0, 175) Dummy {f00=0x002c, f01=0x0190, f02=» AB @A D R 0 $' R T W $ T AB R !LLP @A T AA AA R 1 R 6 AA R 4! AA PJ AA AA @A @A R AA AA S$ @A @A RdY4 @A AA @A AA W : AA AA @A @A @B R AA AA @A @A Rd AA AA Y4W R 69B :d AA AA @
0x08a2f4…08a488 Dummy {f00=0x002c, f01=0x0190, f02=»B AB AA AA AA @A P AA AA B AB" ( B G @A C C C ( C B / G : @B :c AB AA AA AA AA @A AA @A AA AA @A @A R AA AA @A AB" C C C R AB ( B / G @A R G R
0x08a488…08a61c Dummy {f00=0x002c, f01=0x0190, f02=»A @A AA @A @A Z Q @A @A Z @A @A RBQ @A @A U6 @A @A Y R @A @A Y AA @B" AB$ @A AA @A AA _ @A AA @A AA @A AA @A AA @B" AB$ H K Tr Q 1 Q Q K AN4 AA B R AB @B$ AB AB C ( C @B /T @B T J AB @N4 @A
0x08a61c…08a7b0 Dummy {f00=0x002c, f01=0x0190, f02=» @A T @A @B V @B" AB$ I G P AA P AA @A @A @A @A Rd AA AA Rv G W8 @A @A @A @A Rd AA AA J< @A G P AA P AA @A @A P P R Q Q @A Q @A 1 K G G2 P AA 0 AA AA AA @B Rd AA AA @A @A @B
0x08a7b0…08a944 Dummy {f00=0x002c, f01=0x0190, f02=» @A Q @A 1 @A @A @A @A Rd AA AA AA AA @B P @A @A @A @A Rd AA AA K G G2 G AA AA @A ? Ex : AB G2 ( P6 . P. @B P @A AA @A AA @B AB K C Ex : : AA @A @B AA 2 C AA @A @A G AB AB ( @
0x08a944…08aad8 Dummy {f00=0x002c, f01=0x0190, f02=»J@ @A QT @A K @A K @A K @A K @A K @A K K K R 2 K R 1:H R K R !LLT R 4:H R 5 K K $ K & AA ( QT . " QT R !LLP R : K % R 8 K & K ( K ) ( @B / G : J@ @A AA @A K ( ( @B /P
0x08aad8…08ac6c Dummy {f00=0x002c, f01=0x0190, f02=»Y @A AA @A AA @A @A AA AB R AA AA B @B C @A AB @B AB ( C @A @B @B @B P @B R AA AB @A @A YXR @A @B Yd @A AA @A AB @B C @A AB @B AB ( C @B / G @A @B @B @B P @B R AA AB @A @A Y`R @A
0x08ac6c…08ae00 Dummy {f00=0x002c, f01=0x0190, f02=» AQ @A @A Q T @A @A R T A R @A T R QT Q A AQ ( B @A : AA AB" AB$ R % N` T @A T : AA AA C AA T@W AB G2 J@ @A P& T ( P . P C _@ : A QT @A - ( @B / G
0x08ae00…08af94 (0, 176) Dummy {f00=0x002c, f01=0x0190, f02=» R R4 B C AB" AN4 C ( B / G R @N4 0 AN6 0 AN8 @N6T @N8 Q P @A T @B" AB$ P @A Nv AA AA AN4 @N6 @N8 P P R AN6 AN8 @A @A @N4 @A @N6T @A @N8T P AA P AA AA AA AN4 P 0 @A @A R Q 1 P AA 0 AA @
0x08af94…08b128 Dummy {f00=0x002c, f01=0x0190, f02=»A Rd AN6 AN8 @A @A @N4 @A @N6 OH @A @N8 OH @A Q @A Q AB G2_ @B" AB$ OH Nv I G @A I @A ) @A I @A I Nv ( - : Qn FILE Q 9 VOLUME NAME FILE EXT.NO EXTENT BASE EXTENT LENGTH Q A
0x08b128…08b2bc Dummy {f00=0x002c, f01=0x0190, f02=» S _ R Q _ ;A [ : [ Q S W S Q R S P W S _ R _ ;A [ : R AA A @N6 @N8 P P OK? 0OUTPUT VOLUME NAME: R C C ( : : B R $ ) Y R R R R AR
0x08b2bc…08b450 Dummy {f00=0x002c, f01=0x0190, f02=»Sl Sx Z : : ; S S : V *W R - _ 1 T R PS - _ : RdR _ P 0 / R : ; [ [ [ [ B@ T T ' T T d T T T. Z Z Z Z
0x08b450…08b5e4 Dummy {f00=0x002c, f01=0x0190, f02=» S : S f S 6 S b% =A S ^ S ` x UU 3 2P _ | , ) p ?e =e Q P ?e R P S ?C/ G O % R ' P % =B S t w E M % n : T G.G K. A ;A; G. x ] S
0x08b5e4…08b778 Dummy {f00=0x002c, f01=0x0190, f02=» V P #P & B. T P ' " P : P S | P S ~ P " ^_" R _ P 0 / R : ; [ [ [ [ B@ T T ' T T d T %? v S @ S l S <
0x08b778…08b90c Dummy {f00=0x002c, f01=0x0190, f02=» U ?e R P S ?C/ G O % R ' P % =B S t w E M % t R.Q& @ Q R %| _B _& : T G.G K. A ;A; G. T ] S . N 0 R N S 4 W
0x08b90c…08baa0 Dummy {f00=0x002c, f01=0x0190, f02=» P : P S P S P " ^_"W W W W W + # @ # P s v UU 3 2P _ N 4 , ) T G.G K. A ;A; G. S r r # P W S S (W ` S D S t S p S S M % T S ( p
0x08baa0…08bc34 (0, 177) Dummy {f00=0x002c, f01=0x0190, f02=» P X _ T R t S M R R R " R ( P * W p P #P ( B. T P ' " P : P S P S P " `_"; XW W W W @ R T V ?AW =E R _ <e R P =A $ < ?B =A- R P S S M
0x08bc34…08bdc8 Dummy {f00=0x002c, f01=0x0190, f02=»"? UU t 3 2P _ 4 , 5 T G.G K. A ;A; G. ( ] ] S S S S " :A S S S . N 0 S & N S W P X _ R R "? R R
0x08bdc8…08bf5c Dummy {f00=0x002c, f01=0x0190, f02=»^ P #P ( B. T P ' " P : P S P S P % `_" ^z ^| A^~ A^ 2: A^x @^vT `R `* ` ^ ^z `< _ ^z ^ ` _l ` ` @^x ^ ` `* @^x 0 4 @^x @
0x08bf5c…08c0f0 Dummy {f00=0x002c, f01=0x0190, f02=» `. @^x A^x `^x ^ `R `* @^x ^z `< `* @^z @^| @^~ @^ R A^ A^ @^x ^ `<T @^z @^x ) @^| ) ` `* @28 28 `. @28 @28 @^x $ ) Y `R W ^v : $ ) : Y : @^z @^x ) @^| ) @^~ ) @^ ) A^v @28 A
0x08c0f0…08c284 Dummy {f00=0x002c, f01=0x0190, f02=» : 2 C C C 2 C ( B a 2 $ A^f 2 . ( A^h 2 , A^j 2 , A^l @^f @^h A^n @^j @^f A^t 2 A^n @^n @^t a C C R C ( B a ^p ^l ^l]L *% P0 @^p 8 BT ^r @^p 0 0 ^ ^r ^p_J W
0x08c284…08c418 Dummy {f00=0x002c, f01=0x0190, f02=»# [ : Z : `^x ^ @^x ^z @^z @^| @^~ @^ R A^ A^ @^x ^ T @^z @^x ) @^| ) @28 28 @28 @28 @^x $ ) Y W ^v : $ ) : Y : @^z @^x ) @^| ) @^~ ) @^ ) A^v @28 A
0x08c418…08c5ac Dummy {f00=0x002c, f01=0x0190, f02=»LENGTH r P RTN A14 P EJECT P* , P* 6 2 P********************************************* @ P* v P* P* DOSCNV P* ( P* DOSCNV CONVERTS A RELATIVE ADDRESS $ P* TO SECTOR NO AND OFFSET WITHIN P* THAT SECTOR IN
0x08c5ac…08c740 Dummy {f00=0x002c, f01=0x018e, f02=» WITHIN SECTOR z P* $ P* SECTOR LENGTH USED: 376 BYTES P* H 2 P********************************************* R P* P* PDOSCNV EQU * 8 P LDK A1,0 PREPARE CONVERSION TO TWO WORD PROCESSING ( P ADK A2,0 TEST MOST SIGNIFIC
0x08c740…08c8d4 (0, 178) Opaque[0x194]
0x08c8d4…08ca68 # DirEnt {nam=»SUP004«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0598, f03=0x0000}
0x08c8d4…08ca68 IdxSect {
0x08c8d4…08ca68 f00 = 0x002c // 0x8c8d4 @0x0
0x08c8d4…08ca68 f01 = 0x0014 // 0x8c8d6 @0x2
0x08c8d4…08ca68 gno = [ // 0x8c8d8 @0x4
0x08c8d4…08ca68 [0x00]: C0x002c.0x3.0
0x08c8d4…08ca68 [0x01]: C0x002d.0x0.0
0x08c8d4…08ca68 [0x02]: C0x002d.0x1.0
0x08c8d4…08ca68 [0x03]: C0x002d.0x2.0
0x08c8d4…08ca68 [0x04]: C0x002d.0x3.0
0x08c8d4…08ca68 [0x05]: C0x002e.0x0.0
0x08c8d4…08ca68 [0x06]: C0x002e.0x1.0
0x08c8d4…08ca68 [0x07]: C0x002e.0x2.0
0x08c8d4…08ca68 [0x08]: C0x002e.0x3.0
0x08c8d4…08ca68 [0x09]: C0x002f.0x0.0
0x08c8d4…08ca68 ]
0x08c8d4…08ca68 }
0x08ca68…08cbfc Dummy {f00=0x002c, f01=0x0190, f02=»c Hh !`! !h: 4 r V ( _ >
0x08cbfc…08cd90 Dummy {f00=0x002c, f01=0x0190, f02=»
0x08cd90…08cf24 Dummy {f00=0x002c, f01=0x0190, f02=» c ' v 1 3V@V Dz#>"^# $ ? > #R1 C DM; MC? HD: WM; RY< RD< AS= AB? PS?jRS? & TY J( 0 DLP * L fMT W @
0x08cf24…08d0b8 Dummy {f00=0x002c, f01=0x0190, f02=» T DK ( O DK G DK G b DK [ DK [ ? ? ? ? ? ? ? * ? ? ? ? ? ? ? ,
0x08d0b8…08d24c Dummy {f00=0x002c, f01=0x0190, f02=» Z & f : Z L f p Z r f
0x08d24c…08d3e0 Dummy {f00=0x002c, f01=0x0190, f02=» ~ Z f Z f V 2 ? ? ?
0x08d3e0…08d574 (0, 179) Dummy {f00=0x002d, f01=0x0190, f02=»L ? ? ? ? ? ? ? b L ? ? ? ? ? ? ? _* ? ? ? ? ? ? ? _* 2 P r L &
0x08d574…08d708 Dummy {f00=0x002d, f01=0x0190, f02=» 6 6 6 6
0x08d708…08d89c Dummy {f00=0x002d, f01=0x0190, f02=»6 6 6 :
0x08d89c…08da30 Dummy {f00=0x002d, f01=0x0190, f02=»
[…0x4…]
0x08e080…08e214 (0, 180) Dummy {f00=0x002d, f01=0x0190, f02=» P
0x08e214…08e3a8 Dummy {f00=0x002d, f01=0x0190, f02=»
[…0x1…]
0x08e53c…08e6d0 Dummy {f00=0x002d, f01=0x0190, f02=» *
0x08e6d0…08e864 Dummy {f00=0x002d, f01=0x0190, f02=»
0x08e864…08e9f8 Dummy {f00=0x002d, f01=0x0190, f02=» f
0x08e9f8…08eb8c Dummy {f00=0x002d, f01=0x0190, f02=»
[…0x1…]
0x08ed20…08eeb4 (0, 181) Dummy {f00=0x002d, f01=0x0190, f02=» @ @
0x08eeb4…08f048 Dummy {f00=0x002d, f01=0x0190, f02=» > ? ? ? ? ? ? ? U ^ ( H ( P > _ Q 4&? ?R _ 5 H _ ^ ;j >P @ * Q 9A D *P _ P A ' @ Q A ' A ' A A' _ @ A" ^ 9j ?R > > > > > > > A @" E E E E E E
0x08f048…08f1dc Dummy {f00=0x002d, f01=0x0190, f02=» P W ' < B @ 9a:a R0 Q Q" ?A <P @ # % _ ' _ _ 0 $> B T @ W @ R (P& P (_ =a:a =A:A Z P Z _" TR @ ;a=a R W* @ =a Z ;a RP ) i $> E '
0x08f1dc…08f370 Dummy {f00=0x002d, f01=0x0190, f02=» 0 ( P>P< , T T 1W 1W T )W )W ( , _ C ' _ 5 H A% A% A% A% A% A% A&6 A% %F &R D >a @ =a & D U@ x %pW U, @% x % W @% A% ,P$ _: @% @% @% @% @% @%
0x08f370…08f504 Dummy {f00=0x002d, f01=0x0190, f02=» _ < @ A&B A&D A&F A&H A&J A&L A&N &P =a @ >a V _ @ >a Y A&@ A&8 4 T &6( "^ 5 U P" @&B @&D @&F @&H @&J @&L @&N &P @&B x @% 8R P =A_ %_ XJ _ P0 @ !@T @! @! R > E! ! A
0x08f504…08f698 Dummy {f00=0x002d, f01=0x0190, f02=» , L L L L L L ? ? ? ? ? ? ? @! Px @ > > > > > > > ; [ [ [ [ [ [ > > [ [ A @! H! ! ? A! > @ P ,V$ A 'L @ 9 'L T A " @ ( ? ? >_ ? ? ?
0x08f698…08f82c Dummy {f00=0x002d, f01=0x0190, f02=» Y Y $ 0T W W . X ? ? ? ? ? ? ? )^ 0 X #? P ? ? ? ? ? ? ? ) 0( . (@ / % ? ? ? ? ? ? ? ) 0 (@_$ - ? ? ? ? ? ? ? ) 0 ? ? ? ? ? ? ? ) 0( ? ? ? ? ? ? ? * 0"(@_~ - X R Y _ X D $!
0x08f82c…08f9c0 Dummy {f00=0x002d, f01=0x0190, f02=»P X / / * - 8 TRT X - -0 ? ? - Pl - X X X M M Y ? ? ? ? ? ? ? +* 0h ? ? ? ? ? ? ? +B 0 (@ / X DbP DhT" Y 0 Y Y X Q Y _ X X X U 5 X E
0x08f9c0…08fb54 (0, 182) Dummy {f00=0x002d, f01=0x0190, f02=» ? , 04Qv ,& - " PF X Q< X P P ? ? ? ? ? ? ? ,X 0h(@ Y ; X X X R 5 X X - -0 X Q Y Y X Y x ? ? ? ? ? ? ? , 0( Y Y X X T ? ? ? ? ? ? ? , 0" > > > > > > > > ? @ ? > X
0x08fb54…08fce8 Dummy {f00=0x002d, f01=0x0190, f02=»! X L P L @ _ C C # ' _R _ _ _ _ _ X T - - X ! TH X X X T" $ :ET D OFT W OST X P % Y X R X -> ! X Y T T Y Y Y Y Y U U X @ _
0x08fce8…08fe7c Dummy {f00=0x002d, f01=0x0190, f02=»_8 X X: X R X ( _$ _* $ XtRX P Y _ A/T X X Y X Y _ $ P4R P6 X Q Y Y <dW Y W $ P R , _ X X*Y$ X X X6 Y Z(P A/T ZrP Y _8 _< _@ ! -( #> X M A/ T ` -( X X
0x08fe7c…090010 Dummy {f00=0x002d, f01=0x0190, f02=» V <a W X ' ?A q A0 > > > > > > > 0 , 0W 0T _ l P$ X X ] X * A0 J " * - X ( / = V X X ; X -0 L ! L % T< L P4 M ^ L X 4 _ ? ? ? ? ? ? ? L W L R % _R ^
0x090010…0901a4 Dummy {f00=0x002d, f01=0x0190, f02=» W* 6& W" 4 W 7 L :AR| M W M M 4 L T M M L PH=GV L L 4 2` M 2 3 M L 9G L 4 L M L M M L 4 2 W M " 9 L P L 9JR@ P P T 9 5 U P T Q P P W Q P T@(@ L D "
0x0901a4…090338 Dummy {f00=0x002d, f01=0x0190, f02=» P $ M 2 P ( M P Q P P P W P T Q (@ L " 9 (@ H H T 9 E $ I 4P _ 5 % E (@ L 2 ( P _ 4 ) % ] M (@ L 2 9 T R Q @ ] 9 > 9C 9C > ^ U (@ L
0x090338…0904cc Dummy {f00=0x002d, f01=0x0190, f02=»& 9 4 M 4 4* M L M L " P M 5 2 M L M 9 L ! PT L M L M L & P L E E M 5l 2 M M L L % T D V L ! P L ! XfWn L M L M M 5 2 L :c:A L D V D M L ! T*_ L <
0x0904cc…090660 Dummy {f00=0x002d, f01=0x0190, f02=» L $:BV W $:AV M " M 9 L L $ M 0 D L U M " V L R L M ( M * M , L X L U M W 6 M 2 5* L D L L 0U L 0 L (U L ( L L R $ 9 _ R $ 9 M , L M M M M M ( M ( M 0 M 0 L
0x090660…0907f4 (0, 183) Dummy {f00=0x002e, f01=0x0190, f02=» U 7 M 2 5* L M $ L M & L L I P0% P L X =h P W P L X T M . L 9 M L 9 L L . Q L L L R 0 % _ M M L . P M . 8F M 2 5* L U 8 M 2 5* L L L & ) L $ I L M L
0x0907f4…090988 Dummy {f00=0x002e, f01=0x0190, f02=» U 9Z M 2 5* L L ( E L % E L E L E M 9 M 2 5* L P$ 9 M 2 3 M "W > = B W ' L 4 5 L L " C m M ^ U L ( L L ? ? ? ? ? ? ? M.A A AF 4 R W 7 B Q : : : : : AJ
0x090988…090b1c Dummy {f00=0x002e, f01=0x0190, f02=»AF P AJ : : : : : @AF AAF A: ' 5 4 X _8 ; W M: ;" ( "^ : ;. L 0 MESSAGE UNKNOWN ;L H Q L L L R 0 % _ M M L . P M . 8F M 2 5* L U 5 ; B B ; P B - _ : 5
0x090b1c…090cb0 Dummy {f00=0x002e, f01=0x0190, f02=» T A< < (@( -( -0 : 0 :R - Y 0 PU,DNXX,STAT,RY < 5 B ? ; <y 1P < Y _ @;L RDP A P 8 FL ; X X ! R V Y A=X 8 TKP Y LPP MTP Y Y T T
0x090cb0…090e44 Dummy {f00=0x002e, f01=0x0190, f02=» ? ? ? ? ? ? ? = 0h_ 5 B ; @ v Q wP P vT Z ; W P v ; $>H $ NOT W0 B @ ! $ T P Y ; C v C x R ] : . P M >z M 2 0AB CD ADDR @ 9a:a;a R R A> > AAH _ '
0x090e44…090fd8 Dummy {f00=0x002e, f01=0x0190, f02=»> b >p ( "^ ?> = B @ A @ !? " A AJ_* 5 @AD ; @ A : 0 B A? A? ? ( "^ @ A ' <y 5 @ 4 ; P B _ 5 : 5 B A@I B R: P B R( @H( "^ @P^ @ T @2 ( "^ :
0x090fd8…09116c Dummy {f00=0x002e, f01=0x0190, f02=»QD b A Y , b A Z H @ALP : @ ` : ;J I b _* A@ @ ( "^ : ; ;<A ' R `R Q Q; _ Q; <a : : : ( A ~(@ A! AAD A A A A AAF AAN AAH a A @ ? ? > P :b" Q P
0x09116c…091300 Dummy {f00=0x002e, f01=0x0190, f02=» @ Y Y Y Y " A "; V W # @ A AAD @ ? ? > Q @ ? ? ? ? ? ? ? B > @ P <a:a ; :A : P6 $ R, Z R R Q $ :D P $ R ^& : ; P R( AB AB AB AB AB AB AB B ,:j
0x091300…091494 (0, 184) Dummy {f00=0x002e, f01=0x0190, f02=» ' < B B @ 9a:a R @ @C @ # % # C "! PX @ v Q wP VF_ P vRN;AR P xP4 0 P P C C C LPT P P C # ' C _: DL P x H C _ P xX( DD _Z :EOS :EOF - - - @ !? ?R _ D - '
0x091494…091628 Dummy {f00=0x002e, f01=0x0190, f02=» P _ A #> M (@ M M M B B M M # C C @ _ "ZN(@(@ ^ :j >Z _ m (@ M M 8 DKT X X T X M W M W y Y Y Y # C B - B - $? F P R Dn P R
0x091628…0917bc Dummy {f00=0x002e, f01=0x0190, f02=» 8 DnWv F W DhW F W Db W W F W Wx 8 MTPp DYPj X T Y $ WZ F WX $ # T $ T Y B W0 %@ R b " Y Y Y Y Y $ X _0 8 TCX< TKXB MTXH DYXN 0 $(,1 !%)-2 "&*.3
0x0917bc…091950 Dummy {f00=0x002e, f01=0x0190, f02=» Sf M 9A DG L P :a P VN P :A M M GP GX - 4 Y T T W _ X $ P W M ! B < V < - B Y B Y L ?a M " : L ? M L " T L L P( L M :B Y M M M @GNP M W AGN X T 9A Y M X L
0x091950…091ae4 Dummy {f00=0x002e, f01=0x0190, f02=» W L L q r B M X / $(,0 !%)-1 "&*.2 #'+/3 G M Y B AG X P P P P P~ P4 L* !L B T B @G ) @G I @G I L* AG M AG !K " T @ AG !K " T M L ]*W M L ZB
0x091ae4…091c78 Dummy {f00=0x002e, f01=0x0190, f02=» Y AG AG P L AG @G hZT AG _ X L* A Y B AG B AG @G AG @G !L2 !L` !K P M L Z W AG Y AG P L AG @G hZD AG _L L :B* Wl @G K ? 0h @G :B @G * WH O @G K ? 0h O G K ? 0h @G :B @
0x091c78…091e0c Dummy {f00=0x002e, f01=0x0190, f02=» AG @G 4R 4 @ AG DI L : V V 4 AG 4 M !K " T AG AG !K P M L Z L* 4 X ? L 04 <b X ! ? P L -(! _ L @ P L <AR A <B M -( X N N X % N L -( L -( M M
0x091e0c…091fa0 Dummy {f00=0x002e, f01=0x0190, f02=» P M B M bd L X( M H M 9 V 9c ! L* @G 4 ! P M L Z W AG Y AG P L AG @G hZD AG _L L :B* W @G ? 0h @G :B @G * W O @G ? 0h O G ? 0h @G :B @
0x091fa0…092134 (0, 185) Dummy {f00=0x002e, f01=0x0190, f02=» AG @G 4R 4 @ AG DI L : V V 4 AG 4 M !K " T AG AG !K P M L Z L* 4 X ? 04 <b X ! P: X M M Y X R R B Y ! R L Q~ X P P P P - B - @O P M L / AO NP !
0x092134…0922c8 Dummy {f00=0x002e, f01=0x0190, f02=»1 -0 B :e L Ph !Q M Q !Q B B $ !QD !Q L x P2 x X0 M L Q !Q _@ !Q M Q Q~ 4 ! 9A " ! M 4 P P L P P ! _ 4 B Q bd P L :C* WL WH:a L ! 9A r X L :B* W":a L
0x0922c8…09245c Dummy {f00=0x002e, f01=0x0190, f02=» P !W" AN: B T B @NT ) @NV I @NX I P 4 B AN:! T h ANB M !Q L @N: ! P ANT !V !Q W AO !V !Q " P !Q M L ZL M ANB V !W" !WF P B P2 ANB B T$ B S @N:T !W" @N AN: ! P W P B <b :b
0x09245c…0925f0 Dummy {f00=0x002e, f01=0x0190, f02=» _ P* ANB ANBR Ql !T Wb !T !T WP !T !T W> B <e :e Q P AN< AN> !T ANBZ X Td @N: ! P W @N@P Q Y @N> @N< ANB AN< !T @N: ! P W Y ANB & B Y P @N<:e L Pv !Q M
0x0925f0…092784 Dummy {f00=0x002e, f01=0x0190, f02=» X $ P@ D R: P @N: ! P !V T D $ !V @N: ! T L AO !U W !V T D R@ $ !Vn @N: ! T @N< T " T AN<W AN< T P AND Y T U 4 !VR @N: ! P !Q W !Q " P M L Z2 P 4 !VR @N: ! P !Q " T W( !Q " P M
0x092784…092918 Dummy {f00=0x002e, f01=0x0190, f02=»$ <b! L !? P L ! _ @NR L T !Q L 9AV$ !Q M Q A @ M Q -( M Q~ 4 !Q !Q M Q AN< M !Q 4 @Nt TOTD @N| 1T: B AN @N: ! P !Q W !Q " P M L ZJ P 4 Y $? Q UJ
0x092918…092aac Dummy {f00=0x002e, f01=0x0190, f02=» Y W` [^_ y X Y Y Y dW DW @W TW ` ? ? ? ? ? ? ? Xx 0 (@ -0 W, X X - V Y X X X. X X ? ? ? ? ? ? ? X 0h (@(@ ? ? ? ? ? ? ? X 0 Y dP y (@ / P X 1P
0x092aac…092c40 Dummy {f00=0x002e, f01=0x0190, f02=» ? ? ? ? ? ? ? Y 04P ;e# L =AV X 1 -( X -( X % Y Y - D PH X 1T: X Y Y C C #=H Y X y X ' W Y =CV ) W P X % =A } Pz X Y W _ X Tf X P % P )@ Y
0x092c40…092dd4 (0, 186) Dummy {f00=0x002e, f01=0x0190, f02=» Y (@ X X ;A L[D X ! X Y Y D D Y :EOS :EOV -0 W X X - V ( 0 $ , ] X Y X ] B Y % ] L ]~ M B P - B V X P P P P
0x092dd4…092f68 Dummy {f00=0x002e, f01=0x0190, f02=»V < - L P :g: L :C ? L L M L M [ R> [ Q8 [ R M M M M W M M M M y W _ @[nP M WR A[n L " * A]K- A]c L " X ! Y M T(% T$ ! R L W L A T M A[l A[j X / B M
0x092f68…0930fc Dummy {f00=0x002e, f01=0x0190, f02=» I _ B P,9 Q$ B < R :A R V Q A[r A[pW _ V A[v A[t A[r X P< P P4 P M @[x M M !`x !^ P @ W M @[x M M !`x !^ ^ L !? B M A[l A[j A[z X / A[p ! T @[t A[p @[v Y
0x0930fc…093290 Dummy {f00=0x002e, f01=0x0190, f02=» M l A M M W A X / =b%0 X $ L <B<j P L -($ _ L =AV L <AR A <B M -( X `B X % `B L % -( L ? -( ] M A[n 1 -0 M @[z 7P < $ <C ! 9 4 @[p9C @
0x093290…093424 Dummy {f00=0x002e, f01=0x0190, f02=» Y _" P" P& R| ^T Y _D _T X _ X _ X" X& T: X P4 0' P. 1R P _ 0$ XT % X` Z _f % _n Q4 8 TYP, R Y _$ P Q X Q % _" Y Y Y - % X P Y $ W Y =D %_ X
0x093424…0935b8 Dummy {f00=0x002e, f01=0x0190, f02=» - bL bvW2 bF b X W$ bR b W bX( X = 0 :R # Y ; ; ? 0 :R 9 Y 9 9 : : : @ v P vR ! R P x L M M Y$ #? @ v P vR P x T T T Y" P T _ X
0x0935b8…09374c Dummy {f00=0x002e, f01=0x0190, f02=»^ @g: d U T " P " P @g>W C "& # ( "^ : A @g @g @g @g <h @g % @g @g g g $ [ [ [ [ [ [ [ ^ [ [ [ [ @ v L v! P Y _ @ M v x ^ U > > >
0x09374c…0938e0 Dummy {f00=0x002e, f01=0x0190, f02=» C ( "^ P g g g g CCT I T P Q _, Af _V LM g A Af f L 9 !? Ae Af Af Ae Af Af J Ae T8 B ! P B J (@" T L #( "^ B P @ !? M @g:P M L R ! _ PP I H
0x0938e0…093a74 (0, 187) Dummy {f00=0x002f, f01=0x0190, f02=»$ ( , 0 4 8 < f " P @ W C "& # ( "^ : A @ @ @ @ <h @ % @ @ $ [ [ [ [ [ [ [ ^ [ [ [ [ @ v L v! P Y _ @ M v x ^ U > > >
0x093a74…093c08 Dummy {f00=0x002f, f01=0x0190, f02=» C ( "^ P CCT I T P DOS - PTS 8000 REL. 11.0 81-02-16 FOR 6879 (250 KB) FLEXIBLE DISK DRIVE h R B ! P B J (@" T L #( "^ B P @ !? M @ P M L R ! _ PP I H
0x093c08…093d9c Dummy {f00=0x002f, f01=0x0190, f02=» P AH : : : : : @AD AAD A: ' 5 4 X _8 ; P W M: ; ( "^ : ;, L MESSAGE UNKNOWN ;J H Q L L L R 0 % _ M M L . P M . 8F M 2 5* L U 5 ; B B ; P B - _ : 5
0x093d9c…093f30 Dummy {f00=0x002f, f01=0x0190, f02=» T A< < (@( -( -0 : 0 :R - Y PU,DNXX,STAT,RY < 5 B ? ; <w 1P < Y _ @;J RDP A P 8 FL ; X X ! R V Y A=V 8 TKP Y LPP MTP Y Y T T Y
0x093f30…0940c4 Dummy {f00=0x002f, f01=0x0190, f02=» ? ? ? ? ? ? ? = 0h_ 5 B ; @ v Q wP P vT Z ; W P v ; $>H $ NOT W0 B @ ! $ T P Y ; C v C x R ] : L . P >x 8F M 0AB CD ADDR @ 9a:a;a R R A> > AAF _ ' _
0x0940c4…094258 Dummy {f00=0x002f, f01=0x0190, f02=» b >n ( "^ ?< = B @ A @ !? " A AH_* 5 @AB ; @ A : 0 B A? A? ? ( "^ @ A ' <w 5 @ 4 ; P B _ 5 : 5 B A@G B R: P B R( @F( "^ @N^ @ T @0 ( "^ : ;
0x094258…0943ec Dummy {f00=0x002f, f01=0x0190, f02=» b A Y , b A Z H @AJP : @ ` : ;H I b _* A@ @ ( "^ : ; ;<A ' R `R Q Q; _ Q; <a : : : ( A ~(@ A! AAB A A A A AAD AAL AAF a A @ ? ? > P :b" Q P
0x0943ec…094580 Dummy {f00=0x002f, f01=0x0190, f02=» Y Y Y Y " A "; V W # @ A AAB @ ? ? > Q @ ? ? ? ? ? ? ? B > @ P <a:a ; :A : P6 $ R, Z R R Q $ :D P $ R ^& : ; P R( AB AB AB AB AB AB AB B ,:j
0x094580…094714 (0, 188) Opaque[0x194]
0x094714…0948a8 # DirEnt {nam=»SUP006«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x05e8, f03=0x0000}
0x094714…0948a8 IdxSect {
0x094714…0948a8 f00 = 0x002f // 0x94714 @0x0
0x094714…0948a8 f01 = 0x0010 // 0x94716 @0x2
0x094714…0948a8 gno = [ // 0x94718 @0x4
0x094714…0948a8 [0x00]: C0x002f.0x1.0
0x094714…0948a8 [0x01]: C0x002f.0x2.0
0x094714…0948a8 [0x02]: C0x002f.0x3.0
0x094714…0948a8 [0x03]: C0x0030.0x0.0
0x094714…0948a8 [0x04]: C0x0030.0x1.0
0x094714…0948a8 [0x05]: C0x0030.0x2.0
0x094714…0948a8 [0x06]: C0x0030.0x3.0
0x094714…0948a8 [0x07]: C0x0031.0x0.0
0x094714…0948a8 ]
0x094714…0948a8 }
0x0948a8…094a3c Dummy {f00=0x002f, f01=0x0190, f02=»N6 :T 74 Z D | % _ ;
0x094a3c…094bd0 Dummy {f00=0x002f, f01=0x0190, f02=»
0x094bd0…094d64 Dummy {f00=0x002f, f01=0x0190, f02=» N6$: r > 2. 0 ? l ! <R; . > RY9 AS: AB<. & TY J& V jLP ( r DK D DK 8 D
0x094d64…094ef8 Dummy {f00=0x002f, f01=0x0190, f02=» r 'J ? ? ? ? ? ? ? )2 Z f Z f D Z f
0x094ef8…09508c Dummy {f00=0x002f, f01=0x0190, f02=» ? ? ? ? ? ? ? J ? ? ? ? ? ? ? J ? ? ? ? ? ? ? ^ J ? ? ? ? ? ? ? J V t r r r r 0
0x09508c…095220 Dummy {f00=0x002f, f01=0x0190, f02=» 6 6 6 6 6
0x095220…0953b4 (0, 189) Dummy {f00=0x002f, f01=0x0190, f02=» 6 6 6 h
0x0953b4…095548 Dummy {f00=0x002f, f01=0x0190, f02=»
[…0x4…]
0x095b98…095d2c Dummy {f00=0x002f, f01=0x0190, f02=» ~
0x095d2c…095ec0 Dummy {f00=0x002f, f01=0x0190, f02=»
[…0x1…]
0x096054…0961e8 Dummy {f00=0x002f, f01=0x0190, f02=» X
0x0961e8…09637c Dummy {f00=0x002f, f01=0x0190, f02=»
[…0x3…]
0x096838…0969cc Dummy {f00=0x002f, f01=0x0190, f02=» @ @
0x0969cc…096b60 Dummy {f00=0x002f, f01=0x0190, f02=» A @ > > > > > > > > ? ? ? ? ? ? ? U ^ ( H ( P ; _ Q 4&? ?R _ 5 H _ ^ ;j >P @ * Q 9A D *P _ P A $: @ Q A ' A $: A A$ _ @ A ^ 9j ?R > > > > > > > A @
0x096b60…096cf4 (0, 191) Dummy {f00=0x0030, f01=0x0190, f02=» @ j < @ P W $: < >( @ 9a:a R0 & Q Q" ?A <P @ "F _ $: _ _ 0 !l >( T @ W @ R (P& P (_ =a:a =A:A Z P Z _" TR @ ;a=a R W* @ =a Z ;a RP ) i
0x096cf4…096e88 Dummy {f00=0x0030, f01=0x0190, f02=» 0=a @ ?a RX @ ?a VN=A 0 ( P>P< , T T 1W 1W T )W )W ( , _ C $: _ 5 H A"4 A"6 A"8 A": A"< A"> A#d A"D "t # D >a @ =a # D U@ x " W U, @"6 x " W @"D A"D ,P$
0x096e88…09701c Dummy {f00=0x0030, f01=0x0190, f02=» @"6 #LW4 @"D A"D ,Xp _ < @ A#p A#r A#t A#v A#x A#z A#| #~ =a @ >a V _ @ >a Y A#n A#f 4 T #d( "^ 5 U P" @#p @#r @#t @#v @#x @#z @#| #~ @#p x @"4 8R P =A_ %_ XJ _ P0 @ !@T
0x09701c…0971b0 Dummy {f00=0x0030, f01=0x0190, f02=» U` A$ @ , L ? ? , L L L L L L ? ? ? ? ? ? ? @ JPx @ > > > > > > > ; [ [ [ [ [ [ > > [ [ A @ J H H J ? A J > @ P ,V$ A $z @ 9 $z T
0x0971b0…097344 Dummy {f00=0x0030, f01=0x0190, f02=»? P ? T Y Y W x Y Y $ 0T W W + X ? ? ? ? ? ? ? & -J X #? P ? ? ? ? ? ? ? & -V + (@ - % ? ? ? ? ? ? ? & -J(@_$ * ? ? ? ? ? ? ? & -J ? ? ? ? ? ? ? ' -V ? ? ? ? ? ? ? '0 -P(@_~
0x097344…0974d8 Dummy {f00=0x0030, f01=0x0190, f02=» > > > ? ? ? ? ? ? ? ' -bP X - -, ' *6 8 TRT X + *^ ? ? * Pl * X X X M M Y ? ? ? ? ? ? ? (X - ? ? ? ? ? ? ? (p -J(@ - X ? P ? T" Y 0 Y Y X Q Y _ X X
0x0974d8…09766c Dummy {f00=0x0030, f01=0x0190, f02=» P Q 5 Y ( ? ? ? ? ? ? ? )J -bQv )T *6" PF X Q< X P P ? ? ? ? ? ? ? ) - (@ Y 8 X X X R 5 X X - *^ X Q Y Y X Y x ? ? ? ? ? ? ? ) -V Y Y X X T ? ? ? ? ? ? ? *$ -P >
0x09766c…097800 Dummy {f00=0x0030, f01=0x0190, f02=» A , DKP L X X L ! X L P L @ _ C C # $:_R _ _ _ _ _ X T + *6 X ! TH X X X T" $ :ET D OFT W OST X P % Y X R X *l ! X Y T T Y Y Y
0x097800…097994 (0, 192) Dummy {f00=0x0030, f01=0x0190, f02=» R 8 TYX WH H,N Y _8 X X: X R X ( _$ _* $ XtRX P Y _ A, X X Y X Y _ $ P4R P6 X Q Y Y <dW Y W $ P R , _ X X*Y$ X X X6 Y Z(P A, ZrP Y _8 _< _@ ! *V l X
0x097994…097b28 Dummy {f00=0x0030, f01=0x0190, f02=» > > > > - V <a W X ' ?A q A- > > > > > > > - , 0W 0T _ l P$ X X ] X * A. J " * - X ( - = V X X 8 X *^ L ! L % T< L P4 M ^ L X 4 _ ? ? ? ? ?
0x097b28…097cbc Dummy {f00=0x0030, f01=0x0190, f02=»/ /"/"/ / /4/4/4/4/ / /* 1 W* 3T W" 1 W 4 L :AR| M W M M 4 L T M M L PH=GV L L 4 / M 2 0 M L 9G L 4 L M L M M L 4 / W M " 6 L P L 9JR@ P P T 6 5 U P T Q P P
0x097cbc…097e50 Dummy {f00=0x0030, f01=0x0190, f02=» ' - P p Y "(@ P P $ M / P ( M P Q P P P W P T Q (@ L " 6 (@ H H T 6 E $ I 4P _ 5 % E (@ L 2 ( P _ 4 ) % ] M (@ L 2 6 T 2R Q @ 2] 6 >
0x097e50…097fe4 Dummy {f00=0x0030, f01=0x0190, f02=» V P T"W L >F 6 L & 6 1 M 4 1X M L M L " P M 2F / M L M 6 L ! PT L M L M L & P L E E M 2 / M M L L % T D V L ! P L ! XfWn L M L M M 2 / L :c:A L D
0x097fe4…098178 Dummy {f00=0x0030, f01=0x0190, f02=» D Q 3 M 2 2X L L $:BV W $:AV M " M 6 L L $ M 0 D L U M " V L R L M ( M * M , L X L U M W 4 M 2 2X L D L L 0U L 0 L (U L ( L L R $ 9 _ R $ 9 M , L M M
0x098178…09830c Dummy {f00=0x0030, f01=0x0190, f02=» L L , U 6 L 6 L U 5 M 2 2X L M $ L M & L L I P0% P L X =h P W P L X T M . L 9 M L 6 L L . Q L L L R 0 % _ M M L . P M . 5t M 2 2X L U 5 M 2 2X L L
0x09830c…0984a0 Dummy {f00=0x0030, f01=0x0190, f02=»W" M L 6 @ M ( L U 6 M 2 2X L L ( E L % E L E L E M 6 M 2 2X L P$ 6 M 2 1( M "W ; = >(W $: L 4 5 L L " C m M ^ U L ( L L ? ? ? ? ? ? ? M.A A < 4 R W 7
0x0984a0…098634 (0, 193) Dummy {f00=0x0030, f01=0x0190, f02=» d _ A7 8> A< 5 T6 @< P < 7 8 8 8 8 @< A< A7 $: 5 4 X _8 8: W M: 8P ( "^ 7 8 L 0 MESSAGE UNKNOWN 8z H Q L L L R 0 % _ M M L . P M . 5t M 2 2X L U T 9L 0P
0x098634…0987c8 Dummy {f00=0x0030, f01=0x0190, f02=» 0 PU,DNXX,STAT,RY 9h ( E 5 = ? 8> 9K 1P 9bY _ @8z RDP A P 8 FL 8> X X ! R V Y A:* 8 TKP Y LPP MTP Y Y T T Y Y U U 0!? ?T W 1 Q TKP MTT Y
0x0987c8…09895c Dummy {f00=0x0030, f01=0x0190, f02=»T Z 8> W P 8> $>H $ NOT W0 = @ p ! $ rT tP Y 8> C r C R ] 7 ^ 7 ;L 0AB CD ADDR @ 9a:a;a R R A; ; A< _ $: _ P A @< P$ @; = ^ ] ] @; _ A< $:
0x09895c…098af0 Dummy {f00=0x0030, f01=0x0190, f02=»< _* 5 @< 8> @ A 7 0 >( A< A< <~ ( "^ @ A $: 9K % A ~(@ A J A< A A A A A< A< A< a < @ ? ? > P :b" Q P T4 P Q Q @ @ @ @ Y Y Y Y P A> (
0x098af0…098c84 Dummy {f00=0x0030, f01=0x0190, f02=» @ ? ? ? ? ? ? ? = ; P6 $ R, Z R R Q $ :D P $ R ^& : 8> R ] A> A> A> A> A> A> A>" >$ ,:j Z ( I ^ - ^ *@9J M >& @> @> @> @> @> @> @>" >$ ? ? ? ? ? ? ?
0x098c84…098e18 Dummy {f00=0x0030, f01=0x0190, f02=» P P4 0 P P C C C LPT P P C # $: C _: DL P H C _ P X( DD _Z :EOS :EOF * + * @ !? ?R _ ? *6 ' !? 0X A "! X6 @ Q P ^L_ P XP P R :AV L D I I "R (@(@ ^ :j >Z
0x098e18…098fac Dummy {f00=0x0030, f01=0x0190, f02=»(@(@ ^ :j >Z _ m (@ M M 8 DKT X X T X M W M W y Y Y Y # C B * B * $? B0 P R ? P R B` ? P P| P Pv P $P &PN "P< /P :P ;P <P =P >P ?P
0x098fac…099140 Dummy {f00=0x0030, f01=0x0190, f02=»T $ T Y B W0 %@ R b " Y Y Y Y Y $ X _0 8 TCX< TKXB MTXH DYXN :EOS :EOF * + * @ !? ?R _ ? *6 ' !? 0X A "! X6 @ Q P ^L_ P XP P R :AV L D I I "R (@(@ ^ :j >Z
0x099140…0992d4 (0, 194) Dummy {f00=0x0030, f01=0x0190, f02=»(@(@ ^ :j >Z _ m (@ M M 8 DKT X X T X M W M W y Y Y Y # C B * B * $? D X M M Y X FN FN B Y ! FN L E X P P P P * B * @D P M L - AD
0x0992d4…099468 Dummy {f00=0x0030, f01=0x0190, f02=» AD .L *^ B :e L Ph !E M Q !E B B $ !E !F L x P2 x X0 M L Q !E _@ !E M Q E 4 ! 9A " ! M 4 P P L P P ! _ 4 B E M E L :C* WL WH:a L ! 9A r X L :B* W":a
0x099468…0995fc Dummy {f00=0x0030, f01=0x0190, f02=» P8 E !Kh AB B T B @B ) @B I @B I E 4 B AB ! T h AB M !E L @B ! P AB !J !E W AD !J !E " P !E M L ZL M AB V !Kh !K E B P2 AB B T$ B S @B T !Kh @B AB ! P W E B <b
0x0995fc…099790 Dummy {f00=0x0030, f01=0x0190, f02=» !H _ P* AB AB R Ql !H Wb !H !H WP !H !H W> B <e :e Q P AB AB !H AB Z X Td @B ! P W @B P Q Y @B @B AB AB !H @B ! P W Y AB & B Y E @B :e L Pv !
0x099790…099924 Dummy {f00=0x0030, f01=0x0190, f02=» E T X $ P@ D R: P @B ! P !JR T D $ !J @B ! T L AD !J W !JR T D R@ $ !J @B ! T @B T " T AB W AB T P AB Y T U 4 !J @B ! P !E W !E " P M L Z2 E 4 !J @B ! P !F " T W( !F "
0x099924…099ab8 Dummy {f00=0x0030, f01=0x0190, f02=»J $ <b! L !? P L ! _ @B L T !E L 9AV$ !E M Q A @ M Q *V M E 4 !E !E M Q AB M !F 4 @B TOTD @B 1T: B AB @B ! P !E W !E " P M L ZJ E 4 @ _ X X X X
0x099ab8…099c4c Dummy {f00=0x0030, f01=0x0190, f02=»_ X _ X" X& T: X P4 0' P. 1R P _ 0$ XT % X` Z _f % _n Q4 8 TYP, R Y _$ P Q X Q % _" Y Y Y *B% X P Y $ W Y =D %_ X P V % P Y X XT Q _ LP
0x099c4c…099de0 Dummy {f00=0x0030, f01=0x0190, f02=» = 0 :R # Y ; ; ? 0 :R 9 Y 9 9 : : : @ P R ! R P L M M Y$ #? @ P R P T T T Y" P T _ X D D E E ] @ E @
0x099de0…099f74 (0, 195) Dummy {f00=0x0031, f01=0x0190, f02=» | A @R4 @R6 @R8 @R:<h @R:% @R< @R> R@ RB f [ [ [ [ [ [ [ ^ ^ [ [ [ [ @ L ! P Y _ @ M ^ U > > > > > > >WZ | A ^ T " T0 ! P W SY SD
0x099f74…09a108 Dummy {f00=0x0031, f01=0x0190, f02=» Q _, AR _V LM R@ A $ AR R L 9 !? AQ. AQ8 AQ< AQ. AQ8 AQ< J AQ& T8 B ! P B J (@" T L #( "^ B P @ !? M @RnP M L R ! _ PP I H P _ A N6 A A A @ ~ Q A ~ @Q A ~ @
0x09a108…09a29c Dummy {f00=0x0031, f01=0x0190, f02=» | A @ @ @ @ <h @ % @ @ f [ [ [ [ [ [ [ ^ ^ [ [ [ [ @ L ! P Y _ @ M ^ U > > > > > > >W | A ^ T " T ! P W SY SD
0x09a29c…09a430 Dummy {f00=0x0031, f01=0x0190, f02=» DOS - PTS 8000 REL. 11.0 81-02-16 MINI VERSION S : A A A J A T B ! P B J (@" T L #( "^ B P @ !? M @ P M L R ! _ PP I H P _ A N6 A A A @ ~ A ~ @ A ~ @
0x09a430…09a5c4 Dummy {f00=0x0031, f01=0x0190, f02=» A1,ECBRL,A8 IF REQUEST LENGTH IS NOT < P CWK A1,CNFOSL CORRECT LENGTH FOR FOS 4 * P RF(E) LL0010 THEN t 8 P ABL E:SO12 PRINT ERROR MESSAGE ( PLL0010 EQU * END (
0x09a5c4…09a758 Dummy {f00=0x0031, f01=0x0190, f02=» A1,DWTORD,A6 IF COMMAND IS LEGAL 2 P ECR A1,A1 FOR FOS DISK: 0 * P CWK A1,COMWRT WRITE f P RF(E) LL0020 . P CWK A1,COMFMW DFM WRITE P RF(E) LL0020 * P
0x09a758…09a8ec Dummy {f00=0x0031, f01=0x0190, f02=»F(E) LL0020 ELSE P $ PLL0015 EQU * * PTS , 8 P ABL E:SO11 PRINT ERROR MESSAGE H ( PLL0020 EQU * END P* , P* INTERLACE SECTOR FOR X1215 FORMAT DISK P* > P* THIS SEQUEN
0x09a8ec…09aa80 Dummy {f00=0x0031, f01=0x0190, f02=»BER h P* 0 P LD A8,DWTECB,A6 ECB ADDRESS 4 P LD A7,ECBSC,A8 SECTOR ADDRESS J P $ P LDR A2,A7 LOGICAL SECTOR NUMBER P SUK A7,1 " P RF(Z) LL0060 LOGICAL SECTOR 1 P SUK A7,2 " P RF(Z) LL007
0x09aa80…09ac14 (0, 196) Opaque[0x194]
0x09ac14…09ada8 # DirEnt {nam=»FLXMO2«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0628, f03=0x0000}
0x09ac14…09ada8 IdxSect {
0x09ac14…09ada8 f00 = 0x0031 // 0x9ac14 @0x0
0x09ac14…09ada8 f01 = 0x0008 // 0x9ac16 @0x2
0x09ac14…09ada8 gno = [ // 0x9ac18 @0x4
0x09ac14…09ada8 [0x00]: C0x0031.0x1.0
0x09ac14…09ada8 [0x01]: C0x0031.0x2.0
0x09ac14…09ada8 [0x02]: C0x0031.0x3.0
0x09ac14…09ada8 [0x03]: C0x0032.0x0.0
0x09ac14…09ada8 ]
0x09ac14…09ada8 }
0x09ada8…09af3c Dummy {f00=0x0031, f01=0x0190, f02=» +8 0 0 0 0 0 0 0 0 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 @
0x09af3c…09b0d0 Dummy {f00=0x0031, f01=0x0190, f02=» _ A , $ & ? ? ? ? ? ? ? @ > > U H ( ( P c P W. A V ( U P @ V L 6 U
0x09b0d0…09b264 Dummy {f00=0x0031, f01=0x0190, f02=» A _v A , A jQ > n A j _ l 8 Q Z P 0 9 ` `_ R _, n _ P H H ? ? ? ? ? ^ A _ _ ^ ? ? ? $P T I R $ 5 % n ZW n W n T T U U U U T U W
0x09b264…09b3f8 Dummy {f00=0x0031, f01=0x0190, f02=» 1 A P P P Wp " ? * X R Y P _ ? @ 8 R Y P _ W6 8 X W. ? ` @ @ P $ H W W > > > > > > > > @ V ? > _ > ? _ > > ? ^ ! Y ^ _ 6 n .A. p #M 1
0x09b3f8…09b58c Dummy {f00=0x0031, f01=0x0190, f02=» n A ,I.9 * X R C C nA @ fA. * X V 9_< @ D Y Y Z ! ! ^ ! & ! ^ Y Y L ! Y ! T B Y ! B Y ` X Y X` P> P4 P6 P, P Z h
0x09b58c…09b720 Dummy {f00=0x0031, f01=0x0190, f02=»W ; ^ R :A Y Z Y Z X Z # " P X V< V ;A;F X ^<a R Y Y ! T X T ! T ! X Z Y Z X :D:c C Y ` Y ^ p W D TT ! & $ I ^ TO SS Y V B P Y Z ! ^ Y V 1 Q Y Z ! ^ ! X Y _ ! 6
0x09b720…09b8b4 (0, 197) Dummy {f00=0x0031, f01=0x0190, f02=» Y L Y ! 6T ! ! ! ! P W X V$ T ! < X ^8 Y B X Y C '? nI b :AZ ! :CV : V @:CV Y :b" P Y X X 4 P N Y W Y Y 4 X X X W Q N 4 Y V ! NT6 ! T. Y V9 Y X L
0x09b8b4…09ba48 Dummy {f00=0x0031, f01=0x0190, f02=» X XP Y X;B+ Wj W ! B! Tz ! 9a X X bT, X `W& W0 W ! B! TD X X ` X b X Z$ <B X Z$ < q r @ T Q D R Y N 4
0x09ba48…09bbdc Dummy {f00=0x0031, f01=0x0190, f02=» T v < ~ _ ` n ^ 4 _ < < @ l 1 A l _ P 9 > > > > > > > > @ A
0x09bbdc…09bd70 Dummy {f00=0x0031, f01=0x0190, f02=» " [ [ [ [ [ [ [ > > [ [ Z Z ? ? Z Z Z Z Z Z Z " $ & > x P~ "R~ Y Pj T P` <UR "R4 x PB X R< X T6 X T0. T G Y6 G _` P ,P -
0x09bd70…09bf04 Dummy {f00=0x0031, f01=0x0190, f02=» X ,P Xh I Y # C C # P Y '? Y Y T # P W < Y (@ 2 @ _ > n(@ X L U0 L QL L # T R < 5 ^ R < 5 Y X L P ( L ) 1 _( n(@ X P 4 Y X 1 1 X
0x09bf04…09c098 Dummy {f00=0x0031, f01=0x0190, f02=» Y WZ X $ $ ^ WD X Y :g H " I " ? P& X P ,P 9A _ H "P I " . P Y X$; [(;! P "Z0?AZ4 @ Q " X " _F X $ _R A A A A A A | - M @ " A. 'B
0x09c098…09c22c Dummy {f00=0x0031, f01=0x0190, f02=» @ | $ A A @ @ @ E E E E E & E @ F CRP <A COP <A BAP AS<A E ASP @ T ' A ASP F @ U A ASP F P :B A D AST R U :l?j R> P R0?J A A E E
0x09c22c…09c3c0 Dummy {f00=0x0031, f01=0x0190, f02=» A @ L @ P _ @ ! P0 9h !RRP @ @ A _H ' S W Y* @ @ A @ L _ @ A A A A E @ < V: @ R2 @ TU
0x09c3c0…09c554 (0, 198) Dummy {f00=0x0031, f01=0x0190, f02=»=A;A E : ' ' : @ < 9B A : " A @ A @ | E A @ V < ' ' @ P A @ T A A r N @ 0 D;P< A;TB ; 1 @ A @ r U ( RT N WL
0x09c554…09c6e8 Dummy {f00=0x0031, f01=0x0190, f02=» < @ P " T t @ R V @ ! T @ tA @ T @ @ I A p ( A r @ p A p @ P A @ r p $ ) A I. : A T A Z " Q :d @ # R$P R.W ' * A W ' ' @ : ' A Z
0x09c6e8…09c87c Dummy {f00=0x0031, f01=0x0190, f02=» A : @ @ ! P V :AW 9E R _ <e @ $ T 9A $ < :B 9A) @ ZP A Z A I TL W 9D @ @ Vr s @ TA I T - A _ I N T V S : ' 2 N 9PN S Y TD $ 1T> C !CCTp : 1P P(_ P =H P ) @
0x09c87c…09ca10 Dummy {f00=0x0031, f01=0x0190, f02=» A t A v X X S W A x A z A : V V W, Q( T W& @ T R P @ T A F R U @ A ( T : A . _ 0V , - P X 9A_ : @ ! P (W ( : < @
0x09ca10…09cba4 Dummy {f00=0x0031, f01=0x0190, f02=» N 0 !;;P 0 !;; - a | =! 0 - Y : 2 N 8 0 ! P P Y _0 L Q P Y P Y A V : , %T 8 P , ! P : N : P : 7 ( $SWAP 'B @
0x09cba4…09cd38 Dummy {f00=0x0031, f01=0x0190, f02=»_6 : @ % '" @ @ R6 r . !TTP ' # Y ), !TTX _: : P ` @ A P _ @ @ 3 S S @ ~ V A ~ : P( T ' S S _* :
0x09cd38…09cecc Dummy {f00=0x0031, f01=0x0190, f02=» W @ = V W = V # P0 $ " U ' _2 $ P0 $ " U ' _2 @ P (XV ' S ( @ S =J @ " S @ S A
0x09cecc…09d060 Dummy {f00=0x0031, f01=0x0190, f02=» # A * # P $ _ $ Pd A $ @ 8 8 4 D P$ & @ # P H I K T + Y@ @ _f @ Y ), !TTX & Y : & ), !TTX !CCTr # P, $ @ 4 U
0x09d060…09d1f4 (0, 199) Dummy {f00=0x0032, f01=0x0190, f02=»! P @ 8 8 8 3 (XU ' . !TTT ),_ !CCP R & Y W # P0 A $ A $& @ @ < ! @ _2 #t $ ]X $ @ 8 8 8 4 D P$ & @ # P H I K T K YB
0x09d1f4…09d388 Dummy {f00=0x0032, f01=0x0190, f02=» !PPT # W !LLT # W !RRP ' # A A A @ 0 PV @ P P _ P H $&? @ #? H & D # * H D > " #R @ $v D & @ @ ) I $ D #@PV D L Tp D ,P @ ` T @ 1 Q a : I 6 I 8 D *# P6
0x09d388…09d51c Dummy {f00=0x0032, f01=0x0190, f02=» @ ~U A ~ < + + P ! @ : ` P: @ @ @ D (P W H $ I , % E , a : ' ' ' ' ' ' : N =H N ) : N =H N ) : &=H F ) : F =H F ) : ? ? )j > > : P
0x09d51c…09d6b0 Dummy {f00=0x0032, f01=0x0190, f02=» ' Q @ Q 1 a : @ &J * P@ J # P _ :d Y @ Z A T _4 @ 2T P _ / : .P W P A .X &J @ T :D * J TT J & P T *& >aW T $&
0x09d6b0…09d844 Dummy {f00=0x0032, f01=0x0190, f02=» P _ 3 _ : @ @ T ' : dR d R _ 00)0= % : @ A A r : @ A P & @ A @ @ : . ! T ' ! . : (XR ' (XY ( : d
0x09d844…09d9d8 Dummy {f00=0x0032, f01=0x0190, f02=» : A Z A. c ? ? ? ? ? ? ? : > > > > > > > : R $ )_ : ' @ (XV (XV ' (XZ A ' @ _X V W @ : A ; @ : : " L @ V @ ' 0 H A
0x09d9d8…09db6c Dummy {f00=0x0032, f01=0x0190, f02=»:C # : .=H N ) (h .=H N ) (h N : d 8" R _ ZY QY : ? ? n R 0 R P P _ : @ | < | @ W AST" ? ? > | ] ] YF | A. @
0x09db6c…09dd00 Dummy {f00=0x0032, f01=0x0190, f02=» jPz " " " l P6 8 P X Z = _ " Q Q 6 X Q 4_H NW$ +& * : b b
0x09dd00…09de94 (0, 200) Opaque[0x194]
0x09de94…09e028 # DirEnt {nam=»FLXCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0648, f03=0x0000}
0x09de94…09e028 IdxSect {
0x09de94…09e028 f00 = 0x0032 // 0x9de94 @0x0
0x09de94…09e028 f01 = 0x0002 // 0x9de96 @0x2
0x09de94…09e028 gno = [ // 0x9de98 @0x4
0x09de94…09e028 [0x00]: C0x0032.0x1.0
0x09de94…09e028 ]
0x09de94…09e028 }
0x09e028…09e1bc Dummy {f00=0x0032, f01=0x006e, f02=» T; 01; TID=FC; TCL=FC; * LEV=60; : 00; J 01; V SDC=S01; b
0x09e1bc…09e350 Dummy {f00=0x0032, f01=0x2008, f02=» 01; TID=FC; TCL=FC; * LEV=60; : 00; J 01; V SDC=S01; b
0x09e350…09e4e4 Dummy {f00=0x0032, f01=0x0190, f02=» SWB:EL SWB:NS ACBIOEV 0 ACBSWB4 D ACBSEG X ACBNPE> l ACBMMP2 ACBMMC ACBLAP ACBLACN ACBSTA ACBREL: ACBADA
0x09e4e4…09e678 Dummy {f00=0x0032, f01=0x0190, f02=» IHFDN , ( , ( ! @ , ( 1 p , ( A , ( Q , ( a
0x09e678…09e80c Dummy {f00=0x0032, f01=0x0190, f02=»ZK SCTSFA SCTEFA SCTIPL 4 SCTANO H SCTTCT SCTCDTL p , ( @ SCTPAG SCTNOP SCTPSZ SCTSTB S
0x09e80c…09e9a0 Dummy {f00=0x0032, f01=0x4160, f02=» SCTFWL SCTBLK SCTDCT ( SCTNOS~ < SCTMXS P , ( d SCTMOX STKENDS STKMOV Z STKCOM0 h [ $ )
0x09e9a0…09f640 (1, 0) DirGranule ((1, 0)) {
0x09e9a0…09f640 DirEnt {nam=»TOSSWO«, typ=»RK«, f00=0x0000, f01=0x0000, f02=0x0650, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x2020, f01=0x2020, f02=0x0658, f03=0x4441}
0x09e9a0…09f640 DirEnt {nam=»REFORM«, typ=»UF«, f00=0x2d30, f01=0x372d, f02=0x0660, f03=0x2020}
0x09e9a0…09f640 DirEnt {nam=»RELUP «, typ=»UF«, f00=0x434b, f01=0x204e, f02=0x0670, f03=0x203d}
0x09e9a0…09f640 DirEnt {nam=»SOURCE«, typ=»UF«, f00=0x0010, f01=0x0003, f02=0x0680, f03=0x0005}
0x09e9a0…09f640 DirEnt {nam=»ASMUP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0690, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x001f, f02=0x06a0, f03=0xffff}
0x09e9a0…09f640 DirEnt {nam=»ADMTSK«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0a18, f03=0xffff}
0x09e9a0…09f640 DirEnt {nam=»ARITMS«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0a68, f03=0xffff}
0x09e9a0…09f640 DirEnt {nam=»CTABC0«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0a88, f03=0xffff}
0x09e9a0…09f640 DirEnt {nam=»DCADDR«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0a90, f03=0xffff}
0x09e9a0…09f640 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0ac8, f03=0xffff}
0x09e9a0…09f640 DirEnt {nam=»DRAS01«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0ad0, f03=0xffff}
0x09e9a0…09f640 DirEnt {nam=»DRCD01«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0b30, f03=0xffff}
0x09e9a0…09f640 DirEnt {nam=»DRCR01«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0b90, f03=0xffff}
0x09e9a0…09f640 DirEnt {nam=»DRDC07«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0bc0, f03=0xffff}
0x09e9a0…09f640 DirEnt {nam=»DRDC13«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0cb0, f03=0xffff}
0x09e9a0…09f640 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0d18, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRDC17«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e10, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRDC22«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f60, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRDC81«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1058, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRDC82«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1158, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1230, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRDN01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1250, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1270, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1308, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1368, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13d8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRFD02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2728, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRSU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14f0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15a0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15f8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRGP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1668, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1690, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16b8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRLP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1710, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRMD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1730, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRMS02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1768, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRMT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17b0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRPL01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1800, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DROD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1978, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRND01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19a8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRSL01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a20, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a70, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a98, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRTC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ad8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRTN01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b20, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b80, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bd0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRTP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c30, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRTW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c70, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRVU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ca8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1de0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DTTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e08, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e20, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTDN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e28, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e30, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTG1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e38, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTG2 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e48, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTG3 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e58, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e60, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e68, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTMS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e70, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTOD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e80, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTT1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e88, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTT2 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e90, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTTN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e98, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ea8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DVTVU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1eb0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DW0701«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1eb8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DW1301«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ec8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ed0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DW2201«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ed8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ee8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ef0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DWL301«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ef8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f08, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f18, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»FMCDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fb8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2028, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2070, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2080, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20b0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20b8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20d0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2108, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2110, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»SDMBUF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2118, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»SDMTSK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2140, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»SDMOCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21b8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»SDMSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2218, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2280, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»SYSINI«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2290, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»SYSLBA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2330, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»SYSLCO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2368, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»SYSLCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24b8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0478, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2780, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28e0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2900, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2910, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2918, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2938, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TIOADM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2950, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2970, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TIOEDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29c8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TIOFM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29f0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TIOSDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a20, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TLDPGM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a60, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a80, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2aa0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TMOVE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ab8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2af0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TPAGAL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2b80, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2bb0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TSWBLK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2bc8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2bd8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DCSTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2be8, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRCD02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c20, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRDC25«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c88, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»X25:L3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2e80, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DRDC23«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3060, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»DW2301«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x31c0, f03=0x0000}
0x09e9a0…09f640 DirEnt {nam=»BOS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x31c8, f03=0x0000}
0x09e9a0…09f640 }
0x09f640…09f7d4 (1, 1) Opaque[0x194]
0x09f7d4…09f968 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x2020, f01=0x2020, f02=0x0658, f03=0x4441}
0x09f7d4…09f968 IdxSect {
0x09f7d4…09f968 f00 = 0x0032 // 0x9f7d4 @0x0
0x09f7d4…09f968 f01 = 0x0002 // 0x9f7d6 @0x2
0x09f7d4…09f968 gno = [ // 0x9f7d8 @0x4
0x09f7d4…09f968 [0x00]: C0x0032.0x3.0
0x09f7d4…09f968 ]
0x09f7d4…09f968 }
0x09f968…09fafc Dummy {f00=0x0032, f01=0x018e, f02=» P$REL PLED @P,/S,/EE,## P##DL 0,1 ( 0 P IDENT @P REL 11.0 81-01-26 870105041100 8 P l P##EN t PKPF /S PASM /S,NL PKPF /O PSCR /S PSCR /O PEND P$BOS PLED @P,/S,/EE,## P##LS $$ =$$
0x09fafc…09fc90 Dummy {f00=0x0032, f01=0x0136, f02=» PSCR /S PSCR /O PEND P$MOVUF , PMES @P : PMOV @P,/A,TOSSWORK,/F1 H PKPF /A,@P f PSCR /A x PEND P$REF PMES @P PASG /10,DK PMOV @P,/S PRUN REFORM,0 PRDS /10 PKPF /S PEND
0x09fc90…09fe24 Dummy {f00=0x0032, f01=0x2008, f02=» /S PSCR /O PEND P$MOVUF , PMES @P : PMOV @P,/A,TOSSWORK,/F1 H PKPF /A,@P f PSCR /A x PEND P$REF PMES @P PASG /10,DK PMOV @P,/S PRUN REFORM,0 PRDS /10 PKPF /S PEND
0x09fe24…09ffb8 Dummy {f00=0x0032, f01=0x0190, f02=» $ &" & : z MOV:US FPB:FO , , ( H$ J $ F P ( R * L > FPB:RP n * & $ S *# T P ) Y 00 S FPB:SH FPB:RL , ( 7 , S , S . R 0 <h T * & O
0x09ffb8…0a014c Dummy {f00=0x0032, f01=0x0190, f02=» , ( $ 9H S 4 S 6 N S 0 FPB:S1 4 DIVMOD F , ( <h 8 6P : 7 V X , ( : W $ B F MOV:SU , ( J $ < : N <h , ( DD N
0x0a014c…0a02e0 Dummy {f00=0x0032, f01=0x018e, f02=» > l FWTPAR FDBEXC , ( 7 " T N @!? P N BT N 0 MPYMOD ` , ( Q " K P @W 6P D T 7 r RTNA14 * & m V P D 6S W 7 SETCRO FDBENL , (
0x0a02e0…0a0474 (1, 2) Opaque[0x194]
0x0a0474…0a0608 # DirEnt {nam=»REFORM«, typ=»UF«, f00=0x2d30, f01=0x372d, f02=0x0660, f03=0x2020}
0x0a0474…0a0608 IdxSect {
0x0a0474…0a0608 f00 = 0x0033 // 0xa0474 @0x0
0x0a0474…0a0608 f01 = 0x0004 // 0xa0476 @0x2
0x0a0474…0a0608 gno = [ // 0xa0478 @0x4
0x0a0474…0a0608 [0x00]: C0x0033.0x0.0
0x0a0474…0a0608 [0x01]: C0x0033.0x1.0
0x0a0474…0a0608 ]
0x0a0474…0a0608 }
0x0a0608…0a079c Dummy {f00=0x0033, f01=0x0190, f02=» P$REF P=ADMTSK P$REF P=ARITMS P$REF P=CTABC0 0 P$REF P=DCADDR F P$REF P=DFTAB P$REF P=DRAS01 p P$REF P=DRCD01 P$REF P=DRCR01 PSCR P$REF P=DRDC07 PSCR P$REF P=DRDC13 PSCR P$REF P
0x0a079c…0a0930 Dummy {f00=0x0033, f01=0x0190, f02=»=DRDC82 PSCR P$REF P=DRDI01 P$REF P=DRDN01 2 PSCR H P$REF P=DRDU01 T PSCR j P$REF P=DRDY01 v P$REF P=DRDY02 PSCR P$REF P=DRFD01 PSCR P$REF P=DRFD02 PSCR P$REF P=DRGP01 P
0x0a0930…0a0ac4 Dummy {f00=0x0033, f01=0x0190, f02=» PSCR P$REF P=DRMD01 P$REF P=DRMS02 * P$REF P=DRMT01 @ PSCR V P$REF P=DRND01 b PSCR x P$REF P=DROD01 PSCR P$REF P=DRPL01 PSCR P$REF P=DRSL01 P$REF P=DRSOP1 PSCR P$REF P=D
0x0a0ac4…0a0c58 Dummy {f00=0x0033, f01=0x0190, f02=»P04 P$REF P=DRTW01 P$REF P=DRVU01 " P$REF P=DSKSUB 8 PSCR N P$REF P=DTTP03 Z P$REF P=DVTDI p P$REF P=DVTDN P$REF P=DVTDY P$REF P=DVTG1 P$REF P=DVTG2 P$REF P=DVTG3 P$REF P=DVTGP PSCR P
0x0a0c58…0a0dec Dummy {f00=0x0033, f01=0x0190, f02=» P$REF P=DVTVU P$REF P=DW0701 P$REF P=DW1301 . P$REF P=DW1501 D PSCR Z P$REF P=DW2201 f P$REF P=DWII01 | P$REF P=DWIO01 P$REF P=DWL301 P$REF P=EBCDIC P$REF P=FMCDEF P$REF P=FMTASK PSCR
0x0a0dec…0a0f80 Dummy {f00=0x0033, f01=0x0190, f02=» P$REF P=PFTAB P$REF P=SCLASS PSCR 2 P$REF P=SDMBUF > P$REF P=SDMOCR T P$REF P=SDMSUB j P$REF P=SDMTSK PSCR P$REF P=ST8000 PSCR P$REF P=SYSINI PSCR P$REF P=SYSLBA PSCR P
0x0a0f80…0a1114 (1, 3) Dummy {f00=0x0033, f01=0x0190, f02=»$REF P=SYSTAB P$REF P=TABORT P$REF P=TCLASS , P$REF P=TDISP B PSCR V P$REF P=TIMER b P$REF P=TIOADM v P$REF P=TIODM PSCR P$REF P=TIOEDM P$REF P=TIOFM P$REF P=TIOSDM P$REF P=TLDPGM PSCR
0x0a1114…0a12a8 Dummy {f00=0x0033, f01=0x0052, f02=»OC P$REF P=TSWBLK P$REF P=TTMJOB PSCR 6 PASG /E0,TY10 B PSCR V P$REF P=TIMER b P$REF P=TIOADM v P$REF P=TIODM PSCR P$REF P=TIOEDM P$REF P=TIOFM P$REF P=TIOSDM P$REF P=TLDPGM PSCR
0x0a12a8…0a143c Dummy {f00=0x0033, f01=0x2008, f02=» P$REF P=TSWBLK P$REF P=TTMJOB PSCR 6 PASG /E0,TY10 B PSCR V P$REF P=TIMER b P$REF P=TIOADM v P$REF P=TIODM PSCR P$REF P=TIOEDM P$REF P=TIOFM P$REF P=TIOSDM P$REF P=TLDPGM PSCR
0x0a143c…0a15d0 Dummy {f00=0x0033, f01=0x0000, f02=»
[…0x4…]
0x0a1c20…0a1db4 (1, 4) Opaque[0x194]
0x0a1db4…0a1f48 # DirEnt {nam=»RELUP «, typ=»UF«, f00=0x434b, f01=0x204e, f02=0x0670, f03=0x203d}
0x0a1db4…0a1f48 IdxSect {
0x0a1db4…0a1f48 f00 = 0x0033 // 0xa1db4 @0x0
0x0a1db4…0a1f48 f01 = 0x0004 // 0xa1db6 @0x2
0x0a1db4…0a1f48 gno = [ // 0xa1db8 @0x4
0x0a1db4…0a1f48 [0x00]: C0x0033.0x2.0
0x0a1db4…0a1f48 [0x01]: C0x0033.0x3.0
0x0a1db4…0a1f48 ]
0x0a1db4…0a1f48 }
0x0a1f48…0a20dc Dummy {f00=0x0033, f01=0x0190, f02=» P$REL P=ADMTSK P$REL P=ARITMS P$REL P=CTABC0 0 P$REL P=DCADDR F P$REL P=DFTAB P$REL P=DRAS01 p P$REL P=DRCD01 P$REL P=DRCR01 PSCR P$REL P=DRDC07 PSCR P$REL P=DRDC13 PSCR P$REL P
0x0a20dc…0a2270 Dummy {f00=0x0033, f01=0x0190, f02=»=DRDC82 PSCR P$REL P=DRDI01 P$REL P=DRDN01 2 PSCR H P$REL P=DRDU01 T PSCR j P$REL P=DRDY01 v P$REL P=DRDY02 PSCR P$REL P=DRFD01 PSCR P$REL P=DRFD02 PSCR P$REL P=DRGP01 P
0x0a2270…0a2404 Dummy {f00=0x0033, f01=0x0190, f02=» PSCR P$REL P=DRMD01 P$REL P=DRMS02 * P$REL P=DRMT01 @ PSCR V P$REL P=DRND01 b PSCR x P$REL P=DROD01 PSCR P$REL P=DRPL01 PSCR P$REL P=DRSL01 P$REL P=DRSOP1 PSCR P$REL P=D
0x0a2404…0a2598 Dummy {f00=0x0033, f01=0x0190, f02=»P04 P$REL P=DRTW01 P$REL P=DRVU01 " P$REL P=DSKSUB 8 PSCR N P$REL P=DTTP03 Z P$REL P=DVTDI p P$REL P=DVTDN P$REL P=DVTDY P$REL P=DVTG1 P$REL P=DVTG2 P$REL P=DVTG3 P$REL P=DVTGP PSCR P
0x0a2598…0a272c Dummy {f00=0x0033, f01=0x0190, f02=» P$REL P=DVTVU P$REL P=DW0701 P$REL P=DW1301 . P$REL P=DW1501 D PSCR Z P$REL P=DW2201 f P$REL P=DWII01 | P$REL P=DWIO01 P$REL P=DWL301 P$REL P=EBCDIC P$REL P=FMCDEF P$REL P=FMTASK PSCR
0x0a272c…0a28c0 Dummy {f00=0x0033, f01=0x0190, f02=» P$REL P=PFTAB P$REL P=SCLASS PSCR 2 P$REL P=SDMBUF > P$REL P=SDMOCR T P$REL P=SDMSUB j P$REL P=SDMTSK PSCR P$REL P=ST8000 PSCR P$REL P=SYSINI PSCR P$REL P=SYSLBA PSCR P
0x0a28c0…0a2a54 (1, 5) Dummy {f00=0x0033, f01=0x0190, f02=»$REL P=SYSTAB P$REL P=TABORT P$REL P=TCLASS , P$REL P=TDISP B PSCR V P$REL P=TIMER b P$REL P=TIOADM v P$REL P=TIODM PSCR P$REL P=TIOEDM P$REL P=TIOFM P$REL P=TIOSDM P$REL P=TLDPGM PSCR
0x0a2a54…0a2be8 Dummy {f00=0x0033, f01=0x0052, f02=»OC P$REL P=TSWBLK P$REL P=TTMJOB PSCR 6 PASG /E0,TY10 B PSCR V P$REL P=TIMER b P$REL P=TIOADM v P$REL P=TIODM PSCR P$REL P=TIOEDM P$REL P=TIOFM P$REL P=TIOSDM P$REL P=TLDPGM PSCR
0x0a2be8…0a2d7c Dummy {f00=0x0033, f01=0x2008, f02=» P$REL P=TSWBLK P$REL P=TTMJOB PSCR 6 PASG /E0,TY10 B PSCR V P$REL P=TIMER b P$REL P=TIOADM v P$REL P=TIODM PSCR P$REL P=TIOEDM P$REL P=TIOFM P$REL P=TIOSDM P$REL P=TLDPGM PSCR
0x0a2d7c…0a2f10 Dummy {f00=0x0033, f01=0x0190, f02=»ET TO LOW v PSPEED EQU X:J * PX:K EQU 0 IF 1 SIEMENS MSV1 PROCEDURE ( PMSV1 EQU X:K V . PX:L EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) j PRBUFNR EQU X:L . PX:M EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ PP6805 EQU X:M PX:N EQU /02
0x0a2f10…0a30a4 Dummy {f00=0x0033, f01=0x018e, f02=»F RECEIVER r P XIF PX:O EQU 1 . PIBMCHR EQU X:O IF 1 IBM CHARACTER HANDLING 0 . PX:P EQU 0 IF 1 MESSAGE PASSING TO DC TASK b PMESPAS EQU X:P 4 PX:Q EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU X:Q PX:R EQU 1000
0x0a30a4…0a3238 Dummy {f00=0x0033, f01=0x0190, f02=» , PDMRK EQU 0 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT 4 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT l 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". , P ONLY WORKING IF STAT IS SET TO "ONE". P IFT
0x0a3238…0a33cc Dummy {f00=0x0033, f01=0x0190, f02=»EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCUZ : ( PTPMODE EQU 0 TRANSPARENT MODE IF = 1 P P* | P EJECT P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P*
0x0a33cc…0a3560 Dummy {f00=0x0033, f01=0x0190, f02=»NG MMUPAG EQU 1. z P* PMMUPAG EQU 0 " P* 6 P* @ 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION J . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* 2 PDEVIND EQU -2 DEVICE INDEX DATA COMMUNICAT
0x0a3560…0a36f4 (1, 6) Opaque[0x194]
0x0a36f4…0a3888 # DirEnt {nam=»SOURCE«, typ=»UF«, f00=0x0010, f01=0x0003, f02=0x0680, f03=0x0005}
0x0a36f4…0a3888 IdxSect {
0x0a36f4…0a3888 f00 = 0x0034 // 0xa36f4 @0x0
0x0a36f4…0a3888 f01 = 0x0004 // 0xa36f6 @0x2
0x0a36f4…0a3888 gno = [ // 0xa36f8 @0x4
0x0a36f4…0a3888 [0x00]: C0x0034.0x0.0
0x0a36f4…0a3888 [0x01]: C0x0034.0x1.0
0x0a36f4…0a3888 ]
0x0a36f4…0a3888 }
0x0a3888…0a3a1c Dummy {f00=0x0034, f01=0x0190, f02=» P$MOVSC P=ADMTSK P$MOVSC P=ARITMS P$MOVSC P=CTABC0 4 P$MOVSC P=DCADDR L P$MOVSC P=DFTAB d P$MOVSC P=DRAS01 z P$MOVSC P=DRCD01 P$MOVSC P=DRCR01 PSCR P$MOVSC P=DRDC07 PSCR P$MOVSC P=DRDC13
0x0a3a1c…0a3bb0 Dummy {f00=0x0034, f01=0x0190, f02=»1 PSCR P$MOVSC P=DRDC82 PSCR . P$MOVSC P=DRDI01 : P$MOVSC P=DRDN01 R PSCR j P$MOVSC P=DRDU01 v PSCR P$MOVSC P=DRDY01 P$MOVSC P=DRDY02 PSCR P$MOVSC P=DRFD01 PSCR P$MOVSC P=DRFD0
0x0a3bb0…0a3d44 Dummy {f00=0x0034, f01=0x0190, f02=» P=DRIC01 P$MOVSC P=DRKB04 P$MOVSC P=DRLP01 * PSCR B P$MOVSC P=DRMD01 N P$MOVSC P=DRMS02 f P$MOVSC P=DRMT01 ~ PSCR P$MOVSC P=DRND01 PSCR P$MOVSC P=DROD01 PSCR P$MOVSC P=DRPL01 PSCR
0x0a3d44…0a3ed8 Dummy {f00=0x0034, f01=0x0190, f02=»RTN01 P$MOVSC P=DRTP02 P$MOVSC P=DRTP03 & PSCR > P$MOVSC P=DRTP04 J P$MOVSC P=DRTW01 b P$MOVSC P=DRVU01 z P$MOVSC P=DSKSUB PSCR P$MOVSC P=DTTP03 P$MOVSC P=DVTDI P$MOVSC P=DVTDN P$MOVSC P=DVTDY
0x0a3ed8…0a406c Dummy {f00=0x0034, f01=0x0190, f02=» P=DVTMS P$MOVSC P=DVTOD P$MOVSC P=DVTT1 & P$MOVSC P=DVTT2 < P$MOVSC P=DVTTN R P$MOVSC P=DVTTP h P$MOVSC P=DVTVU ~ P$MOVSC P=DW0701 P$MOVSC P=DW1301 P$MOVSC P=DW1501 PSCR P$MOVSC P=DW2201 P$MOVSC P
0x0a406c…0a4200 Dummy {f00=0x0034, f01=0x018e, f02=»SCR P$MOVSC P=LDTASK PSCR $ P$MOVSC P=LKMAL 0 P$MOVSC P=LRPINT F P$MOVSC P=MONTAB ^ P$MOVSC P=MONTIM v P$MOVSC P=MSUBS P$MOVSC P=PFTAB P$MOVSC P=SCLASS PSCR P$MOVSC P=SDMBUF P$MOVSC P=SDMOCR
0x0a4200…0a4394 (1, 7) Dummy {f00=0x0034, f01=0x0190, f02=» P$MOVSC P=SYSLBA PSCR P$MOVSC P=SYSLCO ( PSCR @ P$MOVSC P=SYSLCR L PSCR d P$MOVSC P=SYSLDM p PSCR P$MOVSC P=SYSLOD PSCR P$MOVSC P=SYSTAB P$MOVSC P=TABORT P$MOVSC P=TCLASS P$MOVSC P
0x0a4394…0a4528 Dummy {f00=0x0034, f01=0x0130, f02=» P=TIOFM P$MOVSC P=TIOSDM P$MOVSC P=TLDPGM ( PSCR @ P$MOVSC P=TLDSEG L P$MOVSC P=TMMLKM d P$MOVSC P=TMOVE | PSCR P$MOVSC P=TOSSIO P$MOVSC P=TPAGAL P$MOVSC P=TPROC P$MOVSC P=TSWBLK P$MOVSC P=TTM
0x0a4528…0a46bc Dummy {f00=0x0034, f01=0x2008, f02=» P$MOVSC P=TIOSDM P$MOVSC P=TLDPGM ( PSCR @ P$MOVSC P=TLDSEG L P$MOVSC P=TMMLKM d P$MOVSC P=TMOVE | PSCR P$MOVSC P=TOSSIO P$MOVSC P=TPAGAL P$MOVSC P=TPROC P$MOVSC P=TSWBLK P$MOVSC P=TTM
0x0a46bc…0a4850 Dummy {f00=0x0034, f01=0x0190, f02=» _8 P ,R P A ) " A ` T H A ` @ ( @ X <a Q -P _ @ < @ :T A Z A V ,PB @ 6PD @ 8 ! T $ ( A j @ < A f# A l h RE RN ME MN P A ` @ <
0x0a4850…0a49e4 Dummy {f00=0x0034, f01=0x0190, f02=» W ( W P T $ ; V ; Wp&~ P &`P 6 P @ L$ P $ TH P@#~ > V . >A P Y ( X (W ^ ? ? @ L ' P Y Y @ L" P A p A h A j A l hW x ^ P _ " ^ xT @ N9J A PT _ N1@ _ ^ 9 V
0x0a49e4…0a4b78 Dummy {f00=0x0034, f01=0x0190, f02=» L ( > > > > > > > > F D ? ? ? ? ? ? ? F > A L > A ( A ( F ^ " , , A A :B W " , A :b A A A Q (P _ # # H A " A 4 0R$ 9U AR FQ 0:D A 4 _* A
0x0a4b78…0a4d0c Dummy {f00=0x0034, f01=0x0190, f02=» " A W A :H: A " , " 0 " 1 " ! R :W& W W W ?W /W :W A W ! A z A @ A @A Pf _ ? @ @T A I > > > @ _ I T A @ " T A P I T$! A A p A P A T A X A A ` A
0x0a4d0c…0a4ea0 Dummy {f00=0x0034, f01=0x0190, f02=» RD_ M A `P6 T @ VT. @ ZP A ZW ` j @ h @ fP @ l T A RP A P< V A P TT <a P ,;A;a A X A d (@ ( 4R P Z T 5 _$ : 4P^R` < % ) ! P # j T( h
0x0a4ea0…0a5034 (1, 8) Opaque[0x194]
0x0a5034…0a51c8 # DirEnt {nam=»ASMUP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0690, f03=0x0000}
0x0a5034…0a51c8 IdxSect {
0x0a5034…0a51c8 f00 = 0x0034 // 0xa5034 @0x0
0x0a5034…0a51c8 f01 = 0x0004 // 0xa5036 @0x2
0x0a5034…0a51c8 gno = [ // 0xa5038 @0x4
0x0a5034…0a51c8 [0x00]: C0x0034.0x2.0
0x0a5034…0a51c8 [0x01]: C0x0034.0x3.0
0x0a5034…0a51c8 ]
0x0a5034…0a51c8 }
0x0a51c8…0a535c Dummy {f00=0x0034, f01=0x0190, f02=» P$ASMUP P=ADMTSK P$ASMUP P=ARITMS P$ASMUP P=CTABC0 4 P$ASMUP P=DCADDR L P$ASMUP P=DFTAB d P$ASMUP P=DRAS01 z P$ASMUP P=DRCD01 P$ASMUP P=DRCR01 P$ASMUP P=DRDC07 P$ASMUP P=DRDC13 P$ASMUP P=DRDC15
0x0a535c…0a54f0 Dummy {f00=0x0034, f01=0x0190, f02=»1 P$ASMUP P=DRDU01 P$ASMUP P=DRDY01 " P$ASMUP P=DRDY02 : P$ASMUP P=DRFD01 R P$ASMUP P=DRFD02 j P$ASMUP P=DRGP01 P$ASMUP P=DRGP02 P$ASMUP P=DRGP03 P$ASMUP P=DRGP04 P$ASMUP P=DRIC01 P$ASMUP P=DRKB0
0x0a54f0…0a5684 Dummy {f00=0x0034, f01=0x0190, f02=» P=DROD01 P$ASMUP P=DRPL01 P$ASMUP P=DRSL01 * P$ASMUP P=DRSOP1 B P$ASMUP P=DRSU01 Z P$ASMUP P=DRTC01 r P$ASMUP P=DRTN01 P$ASMUP P=DRTP02 P$ASMUP P=DRTP03 P$ASMUP P=DRTP04 P$ASMUP P=DRTW01 P$ASMUP
0x0a5684…0a5818 Dummy {f00=0x0034, f01=0x0190, f02=»UP P=DVTG1 P$ASMUP P=DVTG2 P$ASMUP P=DVTG3 ( P$ASMUP P=DVTGP > P$ASMUP P=DVTKB T P$ASMUP P=DVTMS j P$ASMUP P=DVTOD P$ASMUP P=DVTT1 P$ASMUP P=DVTT2 P$ASMUP P=DVTTN P$ASMUP P=DVTTP P$ASMUP P=DVTVU P$ASM
0x0a5818…0a59ac Dummy {f00=0x0034, f01=0x018e, f02=» P$ASMUP P=DWL301 P$ASMUP P=EBCDIC P$ASMUP P=FMCDEF 4 P$ASMUP P=FMTASK L P$ASMUP P=LDTASK d P$ASMUP P=LKMAL | P$ASMUP P=LRPINT P$ASMUP P=MONTAB P$ASMUP P=MONTIM P$ASMUP P=MSUBS P$ASMUP P=PFTAB P$A
0x0a59ac…0a5b40 Dummy {f00=0x0034, f01=0x0190, f02=» ~ P$ASMUP P=SYSINI P$ASMUP P=SYSLBA P$ASMUP P=SYSLCO 8 P$ASMUP P=SYSLCR P P$ASMUP P=SYSLDM h P$ASMUP P=SYSLOD P$ASMUP P=SYSTAB P$ASMUP P=TABORT P$ASMUP P=TCLASS P$ASMUP P=TDISP P$ASMUP P=TIMER
0x0a5b40…0a5cd4 (1, 9) Dummy {f00=0x0034, f01=0x00ee, f02=» P$ASMUP P=TLDSEG P$ASMUP P=TMMLKM P$ASMUP P=TMOVE 8 P$ASMUP P=TOSSIO N P$ASMUP P=TPAGAL f P$ASMUP P=TPROC ~ P$ASMUP P=TSWBLK P$ASMUP P=TTMJOB PKPF /O PSCR PASG /E0,TY10
0x0a5cd4…0a5e68 Dummy {f00=0x0034, f01=0x2008, f02=» $ASMUP P=TLDSEG P$ASMUP P=TMMLKM P$ASMUP P=TMOVE 8 P$ASMUP P=TOSSIO N P$ASMUP P=TPAGAL f P$ASMUP P=TPROC ~ P$ASMUP P=TSWBLK P$ASMUP P=TTMJOB PKPF /O PSCR PASG /E0,TY10
0x0a5e68…0a5ffc Dummy {f00=0x0034, f01=0x0190, f02=» P$PCAS PASG 3,@DA=TK0E PREW 3 ( PWEF 3 M=@M= 6 PRUN CPLGEN @M= J PMOV @M=,/L,@MU ` PRUN PCAS @M= v PWEF 3 @A= PMOV @A=,/L,@AU PRUN PCAS @A= 2 P$PCASC M=@M=,A=@A=,C=@C=,CU=@CU=,D=@D=,DU=@DU= * P$PCASC M=@M=
0x0a5ffc…0a6190 Dummy {f00=0x0034, f01=0x0190, f02=»A=,C=@C=,D=@D= P$PCASC M=@M=,A=@A=,C=@C= P$PCASF C=@C= 6 P$PCASF D=@D= J P$PCASF CU=@CU= ^ P$PCASF DU=@DU= t P$PCASE M=@M=,A=@A= P$PCASE M=@M= P$PCASE A=@A= PMES PARAMETER ?? PEND P$PCASC PWEF 3
0x0a6190…0a6324 Dummy {f00=0x0034, 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
0x0a6324…0a64b8 Dummy {f00=0x0034, 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
0x0a64b8…0a664c Dummy {f00=0x0034, 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
0x0a664c…0a67e0 Dummy {f00=0x0034, f01=0x0190, f02=»$ASM PASG 2,NO . PMES MMUPAG=1 @MM= . PMES CPU852=0 @C2= N . PMES CPU857=1 @C7= . PMES DSKPAG=1 @DP= . PMES SWPBLK=1
0x0a67e0…0a6974 (1, 10) Opaque[0x194]
0x0a6974…0a6b08 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x001f, f02=0x06a0, f03=0xffff}
0x0a6974…0a6b08 IdxSect {
0x0a6974…0a6b08 f00 = 0x0035 // 0xa6974 @0x0
0x0a6974…0a6b08 f01 = 0x00f0 // 0xa6976 @0x2
0x0a6974…0a6b08 gno = [ // 0xa6978 @0x4
0x0a6974…0a6b08 [0x00]: C0x0035.0x0.0
0x0a6974…0a6b08 [0x01]: C0x0035.0x1.0
0x0a6974…0a6b08 [0x02]: C0x0035.0x2.0
0x0a6974…0a6b08 [0x03]: C0x0035.0x3.0
0x0a6974…0a6b08 [0x04]: C0x0036.0x0.0
0x0a6974…0a6b08 [0x05]: C0x0036.0x1.0
0x0a6974…0a6b08 [0x06]: C0x0036.0x2.0
0x0a6974…0a6b08 [0x07]: C0x0036.0x3.0
0x0a6974…0a6b08 [0x08]: C0x0037.0x0.0
0x0a6974…0a6b08 [0x09]: C0x0037.0x1.0
0x0a6974…0a6b08 [0x0a]: C0x0037.0x2.0
0x0a6974…0a6b08 [0x0b]: C0x0037.0x3.0
0x0a6974…0a6b08 [0x0c]: C0x0038.0x0.0
0x0a6974…0a6b08 [0x0d]: C0x0038.0x1.0
0x0a6974…0a6b08 [0x0e]: C0x0038.0x2.0
0x0a6974…0a6b08 [0x0f]: C0x0038.0x3.0
0x0a6974…0a6b08 [0x10]: C0x0039.0x0.0
0x0a6974…0a6b08 [0x11]: C0x0039.0x1.0
0x0a6974…0a6b08 [0x12]: C0x0039.0x2.0
0x0a6974…0a6b08 [0x13]: C0x0039.0x3.0
0x0a6974…0a6b08 [0x14]: C0x003a.0x0.0
0x0a6974…0a6b08 [0x15]: C0x003a.0x1.0
0x0a6974…0a6b08 [0x16]: C0x003a.0x2.0
0x0a6974…0a6b08 [0x17]: C0x003a.0x3.0
0x0a6974…0a6b08 [0x18]: C0x003b.0x0.0
0x0a6974…0a6b08 [0x19]: C0x003b.0x1.0
0x0a6974…0a6b08 [0x1a]: C0x003b.0x2.0
0x0a6974…0a6b08 [0x1b]: C0x003b.0x3.0
0x0a6974…0a6b08 [0x1c]: C0x003c.0x0.0
0x0a6974…0a6b08 [0x1d]: C0x003c.0x1.0
0x0a6974…0a6b08 [0x1e]: C0x003c.0x2.0
0x0a6974…0a6b08 [0x1f]: C0x003c.0x3.0
0x0a6974…0a6b08 [0x20]: C0x003d.0x0.0
0x0a6974…0a6b08 [0x21]: C0x003d.0x1.0
0x0a6974…0a6b08 [0x22]: C0x003d.0x2.0
0x0a6974…0a6b08 [0x23]: C0x003d.0x3.0
0x0a6974…0a6b08 [0x24]: C0x003e.0x0.0
0x0a6974…0a6b08 [0x25]: C0x003e.0x1.0
0x0a6974…0a6b08 [0x26]: C0x003e.0x2.0
0x0a6974…0a6b08 [0x27]: C0x003e.0x3.0
0x0a6974…0a6b08 [0x28]: C0x003f.0x0.0
0x0a6974…0a6b08 [0x29]: C0x003f.0x1.0
0x0a6974…0a6b08 [0x2a]: C0x003f.0x2.0
0x0a6974…0a6b08 [0x2b]: C0x003f.0x3.0
0x0a6974…0a6b08 [0x2c]: C0x0040.0x0.0
0x0a6974…0a6b08 [0x2d]: C0x0040.0x1.0
0x0a6974…0a6b08 [0x2e]: C0x0040.0x2.0
0x0a6974…0a6b08 [0x2f]: C0x0040.0x3.0
0x0a6974…0a6b08 [0x30]: C0x0041.0x0.0
0x0a6974…0a6b08 [0x31]: C0x0041.0x1.0
0x0a6974…0a6b08 [0x32]: C0x0041.0x2.0
0x0a6974…0a6b08 [0x33]: C0x0041.0x3.0
0x0a6974…0a6b08 [0x34]: C0x0042.0x0.0
0x0a6974…0a6b08 [0x35]: C0x0042.0x1.0
0x0a6974…0a6b08 [0x36]: C0x0042.0x2.0
0x0a6974…0a6b08 [0x37]: C0x0042.0x3.0
0x0a6974…0a6b08 [0x38]: C0x0043.0x0.0
0x0a6974…0a6b08 [0x39]: C0x0043.0x1.0
0x0a6974…0a6b08 [0x3a]: C0x0043.0x2.0
0x0a6974…0a6b08 [0x3b]: C0x0043.0x3.0
0x0a6974…0a6b08 [0x3c]: C0x0044.0x0.0
0x0a6974…0a6b08 [0x3d]: C0x0044.0x1.0
0x0a6974…0a6b08 [0x3e]: C0x0044.0x2.0
0x0a6974…0a6b08 [0x3f]: C0x0044.0x3.0
0x0a6974…0a6b08 [0x40]: C0x0045.0x0.0
0x0a6974…0a6b08 [0x41]: C0x0045.0x1.0
0x0a6974…0a6b08 [0x42]: C0x0045.0x2.0
0x0a6974…0a6b08 [0x43]: C0x0045.0x3.0
0x0a6974…0a6b08 [0x44]: C0x0046.0x0.0
0x0a6974…0a6b08 [0x45]: C0x0046.0x1.0
0x0a6974…0a6b08 [0x46]: C0x0046.0x2.0
0x0a6974…0a6b08 [0x47]: C0x0046.0x3.0
0x0a6974…0a6b08 [0x48]: C0x0047.0x0.0
0x0a6974…0a6b08 [0x49]: C0x0047.0x1.0
0x0a6974…0a6b08 [0x4a]: C0x0047.0x2.0
0x0a6974…0a6b08 [0x4b]: C0x0047.0x3.0
0x0a6974…0a6b08 [0x4c]: C0x0048.0x0.0
0x0a6974…0a6b08 [0x4d]: C0x0048.0x1.0
0x0a6974…0a6b08 [0x4e]: C0x0048.0x2.0
0x0a6974…0a6b08 [0x4f]: C0x0048.0x3.0
0x0a6974…0a6b08 [0x50]: C0x0049.0x0.0
0x0a6974…0a6b08 [0x51]: C0x0049.0x1.0
0x0a6974…0a6b08 [0x52]: C0x0049.0x2.0
0x0a6974…0a6b08 [0x53]: C0x0049.0x3.0
0x0a6974…0a6b08 [0x54]: C0x004a.0x0.0
0x0a6974…0a6b08 [0x55]: C0x004a.0x1.0
0x0a6974…0a6b08 [0x56]: C0x004a.0x2.0
0x0a6974…0a6b08 [0x57]: C0x004a.0x3.0
0x0a6974…0a6b08 [0x58]: C0x004b.0x0.0
0x0a6974…0a6b08 [0x59]: C0x004b.0x1.0
0x0a6974…0a6b08 [0x5a]: C0x004b.0x2.0
0x0a6974…0a6b08 [0x5b]: C0x004b.0x3.0
0x0a6974…0a6b08 [0x5c]: C0x004c.0x0.0
0x0a6974…0a6b08 [0x5d]: C0x004c.0x1.0
0x0a6974…0a6b08 [0x5e]: C0x004c.0x2.0
0x0a6974…0a6b08 [0x5f]: C0x004c.0x3.0
0x0a6974…0a6b08 [0x60]: C0x004d.0x0.0
0x0a6974…0a6b08 [0x61]: C0x004d.0x1.0
0x0a6974…0a6b08 [0x62]: C0x004d.0x2.0
0x0a6974…0a6b08 [0x63]: C0x004d.0x3.0
0x0a6974…0a6b08 [0x64]: C0x004e.0x0.0
0x0a6974…0a6b08 [0x65]: C0x004e.0x1.0
0x0a6974…0a6b08 [0x66]: C0x004e.0x2.0
0x0a6974…0a6b08 [0x67]: C0x004e.0x3.0
0x0a6974…0a6b08 [0x68]: C0x004f.0x0.0
0x0a6974…0a6b08 [0x69]: C0x004f.0x1.0
0x0a6974…0a6b08 [0x6a]: C0x004f.0x2.0
0x0a6974…0a6b08 [0x6b]: C0x004f.0x3.0
0x0a6974…0a6b08 [0x6c]: C0x0050.0x0.0
0x0a6974…0a6b08 [0x6d]: C0x0050.0x1.0
0x0a6974…0a6b08 [0x6e]: C0x0050.0x2.0
0x0a6974…0a6b08 [0x6f]: C0x0138.0x0.0
0x0a6974…0a6b08 [0x70]: C0x0138.0x1.0
0x0a6974…0a6b08 [0x71]: C0x0138.0x2.0
0x0a6974…0a6b08 [0x72]: C0x0024.0x3.0
0x0a6974…0a6b08 [0x73]: C0x0025.0x0.0
0x0a6974…0a6b08 [0x74]: C0x0025.0x1.0
0x0a6974…0a6b08 [0x75]: C0x0025.0x2.0
0x0a6974…0a6b08 [0x76]: C0x00a3.0x3.0
0x0a6974…0a6b08 [0x77]: C0x00a4.0x0.0
0x0a6974…0a6b08 ]
0x0a6974…0a6b08 }
0x0a6b08…0a6c9c Dummy {f00=0x0035, f01=0x0190, f02=» > @ IDENT ADMTSK REL 11.0 81-02-12 870105041100 ADMTSK F , ( X ! S LX ADMTSK x PRUN DMTTSB DWTECB FDBECB FWTFNR
0x0a6c9c…0a6e30 Dummy {f00=0x0035, f01=0x0190, f02=» l ECBCW1 ECBCW2 , ( $ F F Q 7 0 DWTOR ` , ( W <h W Q W 7 ( J p FDBOMD ECBBA , ( " # L T J R F ECBEL , (
0x0a6e30…0a6fc4 Dummy {f00=0x0035, f01=0x0190, f02=» G t , ( G$ T F K F K W , ( _ W W Q 7 W B NP D TENDIO t , ( } P 9 X 1 W B , ( (@( T _B N FPB:FR , ( " S
0x0a6fc4…0a7158 Dummy {f00=0x0035, f01=0x0190, f02=» $ &" & : z MOV:US FPB:FO , , ( H$ J $ F P ( R * L > FPB:RP n * & $ S *# T P ) Y 00 S FPB:SH FPB:RL , ( 7 , S , S . R 0 <h T * & O
0x0a7158…0a72ec Dummy {f00=0x0035, f01=0x0190, f02=» , ( $ 9H S 4 S 6 N S 0 FPB:S1 4 DIVMOD F , ( <h 8 6P : 7 V X , ( : W $ B F MOV:SU , ( J $ < : N <h , ( DD N
0x0a72ec…0a7480 Dummy {f00=0x0035, f01=0x018e, f02=» > l FWTPAR FDBEXC , ( 7 " T N @!? P N BT N 0 MPYMOD ` , ( Q " K P @W 6P D T 7 r RTNA14 * & m V P D 6S W 7 SETCRO FDBENL , (
0x0a7480…0a7614 (1, 11) Dummy {f00=0x0035, f01=0x0190, f02=» f , ( "$ C W J R F B , ( ] F C ( B 8 SCTFWT h , ( _| "! L Y z _N H D ! Z ` Z Q Q H
0x0a7614…0a77a8 Dummy {f00=0x0035, f01=0x4090, f02=»P W V H D ! Tz P #P )T 1TT 9TL EPH KT WP. [W* aP iT uP S V T W R ^ " z@ L Y z _N H D ! Z ` Z Q Q H
0x0a77a8…0a793c Dummy {f00=0x0035, f01=0x0190, f02=» > @ IDENT ARITMS REL 11.0 81-04-02 870105041100 & " ADDMOD DSUMOD MPYMOD DIVMOD F ADDMOD p , ( S Q R S P W , ( ! S _ R Q _ ?A [ DSUMOD F , ( A [ :
0x0a793c…0a7ad0 Dummy {f00=0x0035, f01=0x0190, f02=»+ l , ( P V ? V ! P :a9 ^ , ( _ Z S :a V S R < DIVMOD l , ( : [ :A V T , ( U P V S Q T V R , ( ! R * ! P 9A V ) :A_
0x0a7ad0…0a7c64 Dummy {f00=0x0035, f01=0x40a4, f02=»W _S wS P2 V ^ H D ! P" V V P S V S R V T U PX V S* QJ T $ VD R #R /P 5V GV OR f n @ T , ( U P V S Q T V R , ( ! R * ! P 9A V ) :A_
0x0a7c64…0a7df8 Dummy {f00=0x0035, f01=0x4128, f02=» > @ IDENT CTABC0 REL 11.0 81-01-26 870105041100 , ( F , ( ! !"#$%&'()*+,-. PQRSTUVW v , ( A XYZ /^_@abcdefghijklmnopqrstuvw a xyz{|}~ ( 8 # H %
0x0a7df8…0a7f8c Dummy {f00=0x0035, f01=0x410e, f02=» > @ IDENT DFTAB REL 11.0 81-04-13 870105041100 , ( DFTAB DFTABE DMTIDP DMTIDS DFTABL F DFTAB v DFTABE DMTIDP DMTIDS DFTABL @
0x0a7f8c…0a8120 Dummy {f00=0x0035, f01=0x0190, f02=» > @ IDENT DRAS01 REL 11.0 81-01-26 870105041100 F B IASCUZ ASCUON ASCHAN ASCHRI ASSTBL ASCHRO ASENBL ASDISP F ASCHAN INTAS1 , ( J B A A J J , ( B A A J J B A
0x0a8120…0a82b4 (1, 12) Dummy {f00=0x0035, f01=0x0190, f02=»CUZ INTSAV , ( y U U U (@ _2 A , ( ? @ P W V R U T =g P , ( % R !0 0T P " DWTST , ( P X !@T Y ! T _* TDISP , (
0x0a82b4…0a8448 Dummy {f00=0x0035, f01=0x0190, f02=» DWTSB2 DWTCP2 , ( ) 4 T " X '? P ( DWTOCH X , ( E P " U T P Y :H U j NDREPO , ( c @ T $ T X U U _ , ( U U X(_ U =g%
0x0a8448…0a85dc Dummy {f00=0x0035, f01=0x018e, f02=» ? U X. ~ , ( <P > R > X !@P ! P P R , ( T 9AR @ U U X !? N NDREDW ~ , ( 7 P X ! T R_ " PFPOST , ( S T R 4P P Y W @ , ( q
0x0a85dc…0a8770 Dummy {f00=0x0035, f01=0x0190, f02=» * & P P P _ U W Q Y , ( > ? @ T A 2 % > > b , ( " ?G ?g >" 8$ < X < ~ , ( @ X > P B R W ASCHRI P NDSAV8 * &
0x0a8770…0a8904 Dummy {f00=0x0035, f01=0x416e, f02=» ( $ Y W N H D !B Q e H W VJ T Th * P P T T P 0 H D !3 AP EP8 Q U YP oT R2 T T P N * PH RD | H D ! @ P, P R 7P ?T S [R _P cP( g mW$ sT T T V
0x0a8904…0a8a98 Dummy {f00=0x0035, f01=0x0190, f02=» > @ IDENT DRCD01 REL 11.0 81-01-26 870105041100 CDADR CDON IHCD DWCD01 F CDADR j | NVLCHK ECBRC , ( X Y T C Y DWTECB VOLNAM ,
0x0a8a98…0a8c2c Dummy {f00=0x0035, f01=0x0190, f02=» W ! | ECBCW1 , ( B P ! 9h)" Q Y . , ( Z Y ! Y X 6 L ^ ECBRL , ( 5 Y _h B S ^~ B ECBBA , ( X ! Y B S Y B
0x0a8c2c…0a8dc0 Dummy {f00=0x0035, f01=0x0190, f02=» X P Y ! ! ! ~ , ( Q X P ! X > Y ! ! , ( q X ^ P ! _^ ! ! Y N , ( X P ^ ! ! ! ! ~ , ( Y Y ! ! P Y Y , ( X " T Y _$" P Y _2
0x0a8dc0…0a8f54 (1, 13) Dummy {f00=0x0035, f01=0x0190, f02=» W n DWTA4 PFPOST DWTA5 0 TDISP @ , ( Q$ Y @ T Y Y P , ( @ k Y X ; Y , ( P ;AV X T @ X 1 , ( _( @ 1_6 Y Y
0x0a8f54…0a90e8 Dummy {f00=0x0035, f01=0x018e, f02=» P ! F p , ( ) ! X W 4 X # X X , ( G X 9 V 9A X Y :H @ ECBEL p , ( g Y C X Y 4 X , ( R P P R ;a;a Y 4 Y TENDIO , ( X X P Y
0x0a90e8…0a927c Dummy {f00=0x0035, f01=0x0190, f02=» , ( Y @ $T ! F! T Y DWTORD 8 * & ! Y Y XP X & Y J , ( '? C @ P a W x SETIMP , ( + 0P -_z ( _ A IHCD ^ INTSAV
0x0a927c…0a9410 Dummy {f00=0x0035, f01=0x018e, f02=» 4 ! n , ( F! T A ! Y , ( ! T X X > VOLGET n VOLCLR , ( R , W . DWCD01 , ( @ Y 4 , (
0x0a9410…0a95a4 Dummy {f00=0x0035, f01=0x0190, f02=» H D ! p & ( T # ' +T 9 ;W ?T CP GP| KPz OPt SP H D ! _ g < k F mW q B } T P N @ T P J < < d P H D ! 2 0 4 6 ~ Pf 8 #P> ' + 8 /T = 4 ?P C G K H D ! 8 O 0 S 2 UPR Y | ] 8 g 8 k
0x0a95a4…0a9738 Dummy {f00=0x0035, f01=0x0190, f02=» P V # l + T 1 N 5P 9 ( C < EW G > IW K @ H D ! MW O T [T _ : c s w T 8 P. V T 0 ` V < H D ! 4 T V T d P( d < P ( #P -Wp 5 8 E 4 I H D ! M 8 SV ] 2 c 2 i 0 u 4 y 4 2 R P P R
0x0a9738…0a98cc Dummy {f00=0x0035, f01=0x4052, f02=» T TJ T T* R l W d ( t <@ N s w T 8 P. V T 0 ` V < H D ! 4 T V T d P( d < P ( #P -Wp 5 8 E 4 I H D ! M 8 SV ] 2 c 2 i 0 u 4 y 4 2 R P P R
0x0a98cc…0a9a60 Dummy {f00=0x0035, f01=0x0190, f02=» > @ IDENT DRCR01 REL 11.0 81-01-26 870105041100 & " CRADR ACCR CRON IHCR DWCR01 F CRADR p P ACCR DISIOE , ( B PU W Y A ! TENDIO TDISP
0x0a9a60…0a9bf4 (1, 14) Dummy {f00=0x0036, f01=0x0190, f02=» n PFPOST CRON SAVE8 2 , ( Pt t @ *C X. _6 B DWTST r IHCR ( INTSAV , ( X Z@ A _L A DWTECB , ( @ 1 X (@ 4
0x0a9bf4…0a9d88 Dummy {f00=0x0036, f01=0x0190, f02=» /W A f ;AY A x , ( h Q @ f V D @ h R , ( $W ABCDEFGHI JKLMNOPQR H , ( /STUVWXYZ P Q @ h T D x , ( @ W :#@'=" @ f Q @ h R Q , ( + ;AY T ;AT @ f L @ h , , (
0x0a9d88…0a9f1c Dummy {f00=0x0036, f01=0x0190, f02=» h RETUR8 DWCR01 , ( H Y B . ^ ~ H D ! U W P % 3 GW UR WQ a l e z H D ! N uU { T W W W Q` V8
0x0a9f1c…0aa0b0 Dummy {f00=0x0036, f01=0x4020, f02=» v @ R01 , ( H Y B . ^ ~ H D ! U W P % 3 GW UR WQ a l e z H D ! N uU { T W W W Q` V8
0x0aa0b0…0aa244 Dummy {f00=0x0036, f01=0x0190, f02=» > @ IDENT DRDC13 REL 11.0 81-01-26 870105041100 3 . * DC13AD IH1301 IH1302 DC13ON DW1300 3 F 3 x 3 DISIOE 3 , ( ? P P 1P W P 5P 3 DC13AD r 3 , ( _@
0x0aa244…0aa3d8 Dummy {f00=0x0036, f01=0x0190, f02=» @ P 0P _ % A 3 | TENDIO 4 , ( A _F Y Y 4 . DWTECB 4 ^ ECBEL 4 p * & _X X P 0 Y P C 4 DC:MIN 4 * & _z _ _ B 4 SETIME 4 , (
0x0aa3d8…0aa56c Dummy {f00=0x0036, f01=0x0190, f02=» c ( y Y (@ 4 (P 0 ) 4 DWTST 5 0 , ( > (P _ ) 1 4 X 5 @ DWTOR 5 p ECBBA 5 , ( R X T X P , Y 5 , ( B C L C L C 5 * & _Z @ @ @
0x0aa56c…0aa700 Dummy {f00=0x0036, f01=0x0190, f02=» - W > 5 , ( @ M < ! ! P ! ! 6 0 , ( @ m @ X& ! @ _* < ! _ 6 ` , ( ! X2 A " ! X2 A 6 , ( H @ A ! ' H# P A ! _x 6 , ( ! X f
0x0aa700…0aa894 (1, 15) Dummy {f00=0x0036, f01=0x0190, f02=» _ Y Y X 6 ~ , ( E T W ! T ! T ! 7 , ( c T @ T W @ W ! T 7 N , ( P ZY Z Q % _( ! 7 ~ * & T ' T A r X R X 7 , ( @ T @ C Y ! Z 7
0x0aa894…0aaa28 Dummy {f00=0x0036, f01=0x0190, f02=» Y 7 l , ( 7 W P X T ! Z Y Y @ 8 , ( W@ ! ! W A ! X 8 < ECBRL 8 l , ( u H P H 0 " 8 | , ( R ! ! Y Y W ! Z 8 , ( Y ! ! ! 8
0x0aaa28…0aabbc Dummy {f00=0x0036, f01=0x0190, f02=» ! 8 l PFPOST 9 , ( - ! 4 ! ! 4 @ 9 , ( M T ! A B 4B A J ! 9 N SAVE8 9 ~ IH1301 ~ 9 , ( k 4 @ T B 4B J 4 . 9 , ( J T ! A A 4 ! L 9 IH1
0x0aabbc…0aad50 Dummy {f00=0x0036, f01=0x0190, f02=» . " P 9 v , ( 1 P A 4 * 9AY P 2 _ B : , ( @ ! T ! ! & X 9AP : F , ( ? ^ 2 _ " ! 1 4 @ ` : v DC13ON n : , ( _ @ P 0 , 4 < ! A : , ( } L @ ` P
0x0aad50…0aaee4 Dummy {f00=0x0036, f01=0x0190, f02=» @ - A > < @ A : , ( A W A W ; , , ( P A A @ - R ; 5 A @ @ 4 ; 0 ; ; ; DW1300 ; , (
0x0aaee4…0ab078 Dummy {f00=0x0036, f01=0x0190, f02=» i k u w } P. , R ; p H D ! [ . . . P P , 0 8 P P " ! * )WV C J I R < , H D !H aP u {P P R6 T. P& P P T 0 4 8 # < ' @ < x H D ! + D -W S J W & [P0 c & k ` u y & J . T P .
0x0ab078…0ab20c Dummy {f00=0x0036, f01=0x0190, f02=» W W PR P* < H D !1 P P ) - < 7W =P GT ] & c eWT q {P. R < W = H D ! x . T . T . T . & = d H D ! # ) n - & 5 A G OT S ` k sT T T = H D ! RB P.
0x0ab20c…0ab3a0 Dummy {f00=0x0036, f01=0x405a, f02=» < 8 { P& ! % B - /R 3 D 7 B ; ? C D - 2 / 0 > R > D@ > V
0x0ab3a0…0ab534 (1, 16) Dummy {f00=0x0036, f01=0x0190, f02=» > @ IDENT DRDC22 REL 11.0 81-01-26 870105041100 & " DC22AD IH2201 IH2202 DC22ON F DC22AD p DWTECB , ( - " , ( K ! " ' / 8 9 -
0x0ab534…0ab6c8 Dummy {f00=0x0036, f01=0x0190, f02=» P ] B ] GETDNA " , ( V ] ] ] 4 , ( B P P T d , ( T P X , ( ' ] X ] Y > TENDIO , (
0x0ab6c8…0ab85c Dummy {f00=0x0036, f01=0x0190, f02=» 0 Y B Y x DWTCHP , ( @ V Y Y Y * , ( Y > X > Y > Z , ( X >:D :D :D C , ( B Y X > , ( X V
0x0ab85c…0ab9f0 Dummy {f00=0x0036, f01=0x0190, f02=» j , ( s P W A 4 X > , ( X &T W 0 Y : * & &T @ A X j , ( R X " T ! C , ( P C X :h T P C DC:MIN ,
0x0ab9f0…0abb84 Dummy {f00=0x0036, f01=0x0190, f02=» j SETIME , ( a X R P A , ( { Y W Y > > X J , ( Z X A Y _0 Y X z , ( 6 X @ T A A H , ( > X P ( y Y 4 X ( ,
0x0abb84…0abd18 Dummy {f00=0x0036, f01=0x0190, f02=» j , ( S X &P 0 : Y &_4 $ (P , ( s _ ) 1_J $ (XV P _ : , ( 0 )_d (P _ ) 1 4 $ , j , ( Q , W $ L H I , ( Y Y > H T W , ( X I
0x0abd18…0abeac Dummy {f00=0x0036, f01=0x0190, f02=» ] a 4 D , ( o X A > * ! ! P * , ( ! ! P Z , ( ! A ! P A , ( PP ! A p , ( A A !
0x0abeac…0ac040 Dummy {f00=0x0036, f01=0x018e, f02=» @ @ T X z , ( m ! T ! T P T , ( _ X Q % _, ! T H , ( T A Q p @ P X * Q @ x , ( Q ! & A W * ! ! , ( @ T ! z_ _ _ _ _ _ @ , (
0x0ac040…0ac1d4 (1, 17) Dummy {f00=0x0036, f01=0x0190, f02=» h , ( g ! T _( ! _P A @ P ! , ( B & A ! F ! X @ PP @ X 8 , ( Z8 X ! B A h , ( B A B P A A ! A , ( & B A ! & @ , ( p $ 8 A
0x0ac1d4…0ac368 Dummy {f00=0x0036, f01=0x0190, f02=» A A z A h A W ! , ( } ! ! @ ! @ ( , ( ! W A A W @ X , ( A @ P _` @ P _h ! , ( W A A W A , ( A W @ T ! 0 " P
0x0ac368…0ac4fc Dummy {f00=0x0036, f01=0x0190, f02=» @ A @ Xn D x , ( } H XxW ! M ! , ( M ! @ M ! @ H , ( M ! @ P A M ! x , ( 1 M ! W @ P A M , ( ! ? M ! A 4 @ ! , (
0x0ac4fc…0ac690 Dummy {f00=0x0036, f01=0x0190, f02=» B 4 @ z IH2201 INTSAV . , ( w T B 4B A J 4B J 4 A @ , ( ? &J T A A ] p IH2202 , ( 4 ! z A ? &_ J "#T , ( @ P R B W ] " P @
0x0ac690…0ac824 Dummy {f00=0x0036, f01=0x018e, f02=» 9AP ^ 2 _ t DC22ON X , ( ! M " ! 1 4 ? P @ T h ( p m z r z X { p , ( , ( . , (
0x0ac824…0ac9b8 Dummy {f00=0x0036, f01=0x0190, f02=» f , ( 3 1 , ( S 1 1 v * * 8 , ( s 0 > ; = h H D ! , j p 3 = ? f A , E I M Q U l Y ] a e H D ! i oP
0x0ac9b8…0acb4c Dummy {f00=0x0036, f01=0x0190, f02=» H D ! k w , D D V , N , , H D ! c D ! V ) P /V 5P = A h I KP: O S UP0 [R& eT i q P H D !o sP w { }W ~ D V P T f W T H D ! @ D RN TD T P W
0x0acb4c…0acce0 Dummy {f00=0x0036, f01=0x0190, f02=» P ) p /P = p CP WP k qP P P Q W H D ! T W P ( , 0 4 8 # < %W K S h e s Z $ < H D !{ P $ < P < * P P < H D ! , " < PP P < #
0x0acce0…0ace74 (1, 18) Dummy {f00=0x0037, f01=0x0190, f02=» | W* Z $ T | l H D ! ^ * p !P % z - ; * ?T C EP* M * S , W ] cR ( H D !w{ mT s y } P z * PZ $ & P ( . t H D ! s * , P> 8 * % 'P4 1P* 5 . 9 .
0x0ace74…0ad008 Dummy {f00=0x0037, f01=0x0190, f02=» z : W. X H D ! @ W @ W 0 T0 P , , % , - H D ! 5 ; 0 ? 4 C 2 I 4 M : Q 4 U _ 4 c , i 3 o 2 s 4 w W : ` H D ! 4 4 , * 4 , , 4 , P 4 , 4 H D ! , W"
0x0ad008…0ad19c Dummy {f00=0x0037, f01=0x4062, f02=» !! WF P P8 W P P P !W EP ] e gT L@ ^ 5 ; 0 ? 4 C 2 I 4 M : Q 4 U _ 4 c , i 3 o 2 s 4 w W : ` H D ! 4 4 , * 4 , , 4 , P 4 , 4 H D ! , W"
0x0ad19c…0ad330 Dummy {f00=0x0037, f01=0x0190, f02=» > @ IDENT DRDC81 REL 11.0 81-01-26 870105041100 t F B DC81ON IH8101 IH8103 IH8105 IH8107 IH8109 IH8111 IH8113 t F F B IH8115 IH8117 IH8119 IH8121 IH8123 IH8102 IH8104 IH8106 t F B IH8108 IH8110 IH8112 IH8114 IH8116 IH8
0x0ad330…0ad4c4 Dummy {f00=0x0037, f01=0x0190, f02=» DW8124 DW8101 DW8103 DW8105 t n F B DW8107 DW8109 DW8111 DW8113 DW8115 DW8117 DW8119 DW8121 u ( DW8123 u r DW8102 u , ( 2 u ! u - u DW8
0x0ad4c4…0ad658 Dummy {f00=0x0037, f01=0x0190, f02=» IH8124 v DW8121 v DW8122 v , IH8121 v @ IH8122 v T DW8119 v h DW8120 v | IH8119 v IH8120 v DW8117 v DW8118 v IH8117 v IH8118 v
0x0ad658…0ad7ec Dummy {f00=0x0037, f01=0x0190, f02=» IH8114 w DW8111 w DW8112 w , IH8111 w @ IH8112 w T DW8109 w h DW8110 w | IH8109 w IH8110 w DW8107 w DW8108 w IH8107 w IH8108 w
0x0ad7ec…0ad980 Dummy {f00=0x0037, f01=0x0190, f02=» IH8104 x INTSAV x ILLINT x * , ( } V A x < DISIOE x l DWTST x ~ TENDIO x TDISP x , ( P X ! T x , ( @ 8!@X " X ! @ @ Y
0x0ad980…0adb14 (1, 19) Dummy {f00=0x0037, f01=0x0190, f02=» ( X x p , ( + ! X 8 E 8 Y 4 Y 6 X y SETIME y @ , ( K ( ! ! Y ! y y R , ( i W Y X ( ! ! T X y SETIMP y , ( ! T Y ] y DWTECB y , (
0x0adb14…0adca8 Dummy {f00=0x0037, f01=0x0190, f02=» X ! X ( y ECBCW z ( , ( @ ! T B AR z 8 ECBBA z h , ( @$ _< _B b X ! z x DWTOR z , ( @ % " Q R Y Y z , ( ?@ X ! 8X
0x0adca8…0ade3c Dummy {f00=0x0037, f01=0x0190, f02=»CBEL z , ( B X( _.$ X2 { , ( 8 X ! " B X ( ! { < , ( @ Y _^ > X ( Y { l , ( @ L ? @ ? j y X { , ( V ! ! _" ! { , ( #@
0x0ade3c…0adfd0 Dummy {f00=0x0037, f01=0x0190, f02=»@ B -! Y .) ! { , ( ! R ! ^ ! ! B # X | * , ( " 8 ) X 4T Y 4W ! Y . | Z , ( ZD X 6T X " 8 Y 6 W ] | , ( & | , ( ! ! X ] _ !
0x0adfd0…0ae164 Dummy {f00=0x0037, f01=0x0190, f02=» * * C C | x , ( u X 4P $X V 8 Y 4 X } , ( 6 X 6P $^ T 8 _ $R } H , ( @ Y 6 Y 6 ] W Y 4 } x , ( @ ] Y . c " ! ! } , ( V ! ! Y .Z ! } , (
0x0ae164…0ae2f8 Dummy {f00=0x0037, f01=0x0190, f02=» } h , ( c 4T X 6 Y 4 _J Y . Y 2 ~ , ( Y 0 ! T Y 0 c T ! R T ~ 8 , ( X Y 0 P B - ~ h ECBRL ~ , ( B ]0 ! R Y 0 P ! R ~ , ( P ! ! Y .V ! ~ , (
0x0ae2f8…0ae48c Dummy {f00=0x0037, f01=0x0190, f02=» ~ h , ( Y ^^ ^ Y Y 0_ ! C B , ( w Q C ! X 0 Y 0 8 , ( ! ! Y . ! X h , ( ! Y 2 Y .^V ! _& ! X 0 , ( ! ! C ! ! R , ( T Y 2
0x0ae48c…0ae620 Dummy {f00=0x0037, f01=0x0190, f02=» ! ! V ! ! Y .Z* ! , ( gD C b # X " ( , ( 8 ) X 6 Y 6 @ ! X * & ! P ; T X , ( 2 Y X ( Y , ( A Y Y
0x0ae620…0ae7b4 (1, 20) Dummy {f00=0x0037, f01=0x0190, f02=» C " t , ( I P P Y 0 ! _2 C , ( g _ W Y 0 ! X 0 ! ! D , ( Y 2 ! ! V ! C Y t , ( . b ! _" T ! ! ;P , ( X 2P 1 : B B ! , (
0x0ae7b4…0ae948 Dummy {f00=0x0037, f01=0x018e, f02=» , ( 7 ! ! ! ! ! ! , ( W ! ! ! ! ! 4 4 , ( w ! ] ! ] 4 ! v d , ( ! ! ! ! 4 ! v ! , ( _ ! v ! _* ! v ! Y 2 X PFPOST , (
0x0ae948…0aeadc Dummy {f00=0x0037, f01=0x0190, f02=» f , ( + X P y Y X P y Y , ( K P } ] 4 ] , < B @ 8 , ( k , ] , 4 8 B 8 J 4" h , ( H 8 B T Y Y " Y $W , ( 8 I ! ] ] " , (
0x0aeadc…0aec70 Dummy {f00=0x0037, f01=0x0190, f02=» " I R 4 _ ] ] " ] $ > , ( E > > > > > > > _ ? ? ? ? ? ^ ( IH8101 l X , ( e _ A R VJ" l , ( " $ & * 4 & < J , ( T < B @! T , ( ! P
0x0aec70…0aee04 Dummy {f00=0x0037, f01=0x0190, f02=»102 , ( A R X X " X $ X ( , ( 3 * 4 X 8 8 , P ! P > , ( S Y > , > n , ( s # %& )* , / 1 , ( 2 4 78 ; => @ C EF IJ L O Q , ( R
0x0aee04…0aef98 Dummy {f00=0x0037, f01=0x0190, f02=» 4 y W Y X ( * ! V! , ( / T ] ] $ C ! ! v . , ( M " ! P ! _ ! ^ , ( m _ ! 4 R X " P , ( V C :AP Z P ! 4 ! R , ( _* ! V Y
0x0aef98…0af12c Dummy {f00=0x0037, f01=0x0190, f02=» P % T A ~ , ( % > D P A A _2 ( $ E D P A A _H N z H D ! = V / V _ b P T 4 V b P* H D ! P, T ! O V S [ l e 4
0x0af12c…0af2c0 Dummy {f00=0x0037, f01=0x0190, f02=» EP IP WW _ 8 aQ cW i 8 kP qW p H D ! 2 R, V T> W8 V T W /P2 3 v ; F E @ , H D ! aW {P VH P T R W 2 VH V T =P6 CP G x H D ! d M V eT TJ T@ RP T8 P 4 R P R P
0x0af2c0…0af454 (1, 21) Dummy {f00=0x0037, f01=0x0190, f02=» /T I 2 M QVD H D ! a U V e 4 V PN @ P # v ) 5P6 ;P, MP SP [ H D !} kW u } v V V T: 4 V P` P V d H D ! T" 5 v ; A E z K Q W ] c i o s v y H D !
0x0af454…0af5e8 Dummy {f00=0x0037, f01=0x40d2, f02=» H D ! ( P P( P P KP QP W /T 3 r _P c uRb P V H D !)- P P R. P W ^ P" P2 T ` # ^ 3P 7 P A IP M Z W Z _ ` @ ] c i o s v y H D !
0x0af5e8…0af77c Dummy {f00=0x0037, f01=0x0190, f02=» > @ IDENT DRDC82 REL 11.0 81-01-26 870105041100 F B DC82ON IH8201 IH8203 IH8205 IH8207 IH8209 IH8211 IH8213 F F B IH8215 IH8217 IH8219 IH8221 IH8223 IH8202 IH8204 IH8206 F B IH8208 IH8210 IH8212 IH8214 IH8216 IH8
0x0af77c…0af910 Dummy {f00=0x0037, f01=0x0190, f02=» DW8224 DW8201 DW8203 DW8205 n F B DW8207 DW8209 DW8211 DW8213 DW8215 DW8217 DW8219 DW8221 ( DW8223 r , ( DW8202 2 , ( ! 2 A
0x0af910…0afaa4 Dummy {f00=0x0037, f01=0x018e, f02=» DW8204 , ( 2 " R ( $ ( n DW8203 @ , ( = ] DW8206 r , (
0x0afaa4…0afc38 Dummy {f00=0x0037, f01=0x0190, f02=» , ( 4 DW8208 H , ( r ' ( $ 9 ( DW8207 , ( }
0x0afc38…0afdcc Dummy {f00=0x0037, f01=0x0190, f02=» h ( $ ( DW8209 4 , ( H x DW8212 0 , ( % 0 E ( $ W 0
0x0afdcc…0aff60 Dummy {f00=0x0037, f01=0x0190, f02=» 0 | 1 0 ( $ ( L DW8213 x , ( ! 9 DW8216 N , ( C 3
0x0aff60…0b00f4 (1, 22) Dummy {f00=0x0038, f01=0x0190, f02=» p DW8218 $ , ( N 4 8 h ( $ ( DW8217 , ( Y $ y
0x0b00f4…0b0288 Dummy {f00=0x0038, f01=0x0190, f02=» DW8219 , ( % H DW8222 . , ( # 6 p C ( $ U . ( DW8221 , (
0x0b0288…0b041c Dummy {f00=0x0038, f01=0x018e, f02=» ( $ ( DW8223 < < , ( 9 ' P Y DISIOE * & c < P DWTST TENDIO TDISP , (
0x0b041c…0b05b0 Dummy {f00=0x0038, f01=0x0190, f02=» f , ( ! N X ! Z X @ E @ , ( Y , Y . X ( ! ! ! 8 , ( V Y ] X T h SETIMP , ( / 0 d X ( X , ( M y Y X @ I @ ,
0x0b05b0…0b0744 Dummy {f00=0x0038, f01=0x0190, f02=»ISEND , ( I C X ! X ECBCW > * & @ ( ! B AR N ECBBA | , ( @ _6 b X ! " DWTOR , ( Q R Y > Y > X ! 8X , ( !
0x0b0744…0b08d8 Dummy {f00=0x0038, f01=0x0190, f02=» p ECBEL , ( [ B X( _.$ X2 8 X * & u ! " B X ( 0P } N , ( _^ > X ( ] | SETIME , ( " X V , ( @ X ( X X,
0x0b08d8…0b0a6c Dummy {f00=0x0038, f01=0x0190, f02=» ! )S ! ! ! ~ , ( A B Q W P W Y * & _ < B - ) Y : B N , ( { ! ) ! ! R ! sP | , ( W B # X <" @ ) X ,T Y , , ( W Y :ZF X .T X <" @ Y . W
0x0b0a6c…0b0c00 Dummy {f00=0x0038, f01=0x0190, f02=» l , ( ) @ * * C , ( C C ! P W X ,P $X < , ( _ V @ Y , X . X .P $ l , ( ^ T @ _ $R Y . Y . , ( @ Y < ] W Y , @ Y < , ( @ ]
0x0b0c00…0b0d94 (1, 23) Dummy {f00=0x0038, f01=0x0190, f02=» . & ! P ! , ( 3 P ! P ! P ! j X <# , , ( S @W ] ! P , ( o X <# @ 1 ,! ) ! ! , ( Z W T X <# @ , ( -W X <# @
0x0b0d94…0b0f28 Dummy {f00=0x0038, f01=0x0190, f02=»P _B Z@ X | , ( # > Y <" > ( P , ( A @ ! Y : R ! T ] L , ( _ ! * ! V | , ( y Y :P b ! _* ! P , ( ! P ! P P _8 !
0x0b0f28…0b10bc Dummy {f00=0x0038, f01=0x0190, f02=» ) l , ( @ ] _FW ! ! R , ( + _ Y :P b ! _ C < , ( G$ b # X <" @ ) l , ( c X .T X , Y . ! Y :X< X < , ( # @ - b # + ! ! , (
0x0b10bc…0b1250 Dummy {f00=0x0038, f01=0x0190, f02=» 8T ] Y 8 Y 8W ] , ( 9e! X 4 X 2P X 4T Y 2 , , ( =" ] ! 4 Y 6 Y , ( Y 4 X 2T ! X n X ! * & P u n Y : B P ] , ( ! 4 X 6 ]
0x0b1250…0b13e4 Dummy {f00=0x0038, f01=0x0190, f02=» 0 0 W P W z ECBRL , ( ! B - - B W ! * , ( ) @ B - - B W ! X 6 Z , ( E 9A X 89E 4 ! FW ! 4 , ( e ! F X 6 ! Y 6 Y 4 ! 4 ! , ( F X 6 ! Y 6 Y 4
0x0b13e4…0b1578 Dummy {f00=0x0038, f01=0x0190, f02=» ] 0 ] " z , ( ] "W ] , ( ! " $ & * ! F 4 J , ( !9 ! [N FR 4 0 Y 0P z PFPOST , ( !Y $ 4 0 ! T C 4 @ , , ( !s Y 0 8 B A " P
0x0b1578…0b170c Dummy {f00=0x0038, f01=0x0190, f02=» ! ! R @ B 8 , ( ! A Y Y " Y $ > > > > > > 0 IH8204 " ` , ( " > > ? ? ? ? ? ? ? X X " t IH8206 "H , ( "/ X $ X ( * ,:H L B ! ? ? ? , ( "O ? ? ? ? r X X " X
0x0b170c…0b18a0 Dummy {f00=0x0038, f01=0x0190, f02=»H8210 " , ( " B ! ? ? ? ? ? ? ? X X IH8212 " @ , ( " " X $ X ( * ,:H L B ! ? ? T , ( " ? ? ? ? ? 0 X X " X $ X ( IH8214 # , ( # * ,:H L B0 ! ? ? ? ? ? ? ? , ( #/ X
0x0b18a0…0b1a34 (1, 24) Dummy {f00=0x0038, f01=0x0190, f02=» X ( * ,:H L B3 ! ? , ( # ? ? ? ? ? ? X X " X $ X IH8220 # P , ( @# ( * ,:H L B4 ! ? ? ? ? ? ? d , ( # ? X X " X $ X ( * ,:H IH8222 # , ( # L B5 ! ? ? ? ? ? ? ? . X
0x0b1a34…0b1bc8 Dummy {f00=0x0038, f01=0x0190, f02=» L B7 ! J 8 A | , ( $o P ! " T ! 4 ! P , ( @$ _ ! P ! ! ! @ L IH8201 $ | , ( $ < B A W ? ? ? ? ? ? ? , ( $ " $ & *J" ! , ( $ 19h Q
0x0b1bc8…0b1d5c Dummy {f00=0x0038, f01=0x0190, f02=»J _ ? ? ? ? ? ? x , ( %K ? " $ & *J IH8207 %l H , ( %k $ ? ? ? ? ? ? ? " IH8209 % , ( % $ & *J $ ? ? ? ? ? ? ? IH8211 % , ( @ % " $ & *J
0x0b1d5c…0b1ef0 Dummy {f00=0x0038, f01=0x0190, f02=»5 &$ , ( & " $ & *J! $ ? ? ? , ( &+ ? ? ? ? " $ & < IH8217 &R l , ( &K *J# $ ? ? ? ? ? ? ? IH8219 & , ( &k " $ & *J$ $ ? ? ? ? ? , ( & ? ?
0x0b1ef0…0b2084 Dummy {f00=0x0038, f01=0x0190, f02=»J& $ ? ? ? ? ? ? ? | , ( & < " $ & *J' $ , ( ' P % ] J < A P ! L , ( '+ T P W ! P W | , ( 'K H! T W ! 4 @ B , ( 'g < A % T U 4
0x0b2084…0b2218 Dummy {f00=0x0038, f01=0x0190, f02=» @ l ' @ 4 , $ H D ! 2 2 @ r 0 | N 8 H D ! ! # % ' ) + . - / 1 < ; [ r @ I r { H D ! r ; r r 9 Y | r
0x0b2218…0b23ac Dummy {f00=0x0038, f01=0x0190, f02=» ' 'Z $ h H D ! $ V0 %T 7 = D C Q Z w'Z $ P P R ' Q R )P $ H D ! =PZ MP QT* P V* 4 P P P8 5 9 ='Z p H D ! I' KQ MW S' UP [W R* P W T8 W2 T W 'Z H D
0x0b23ac…0b2540 Dummy {f00=0x0038, f01=0x0190, f02=» P x T H D !&B P 7P C'Z UR YT c o sV }P P Pt P( Pp P H D ! W P P W T W W ! % )R 1P ? gT s'Z H D ! T( T W /Ph 5T K _T* c WL P W < #W@ H D ! X ) < ;WF U!h [W
0x0b2540…0b26d4 (1, 25) Dummy {f00=0x0038, f01=0x40ba, f02=»$ 'Z$ $ $ WJ$ ' $ ' $ R ' P ' ' '#P ')' '1T '7P '=W 'CP 'GW 'MT H D !a 'QW 'W'r'k'l' P ' P ' W ' W ' , ' , ' ' ' , ' R ' ' ' ' ' , ' , H ' ' , @ W /Ph 5T K _T* c WL P W < #W@ H D ! X ) < ;WF U!h [W
0x0b26d4…0b2868 Dummy {f00=0x0038, f01=0x0190, f02=» > @ IDENT DRDI01 REL 11.0 81-01-26 870105041100 DIAD F DIAD V ECBCW h DWTDEV x , ( B X R $ # LENDER * & ;D 7P P Y W Y STABLK
0x0b2868…0b29fc Dummy {f00=0x0038, f01=0x416e, f02=» e P B V *@; V * ; V * Y ! ENDBLK . LENDIS @ , ( T X R $ P _B ! T R LDISP DWTST , ( 9 R 9 W 9 _ Y " ! X _~ H D !` R
0x0b29fc…0b2b90 Dummy {f00=0x0038, f01=0x0190, f02=» > @ IDENT DRDN01 REL 11.0 81-03-27 870105041100 DNAD F DNAD V LENDER h STABLK z , ( 1P +P ! OUTPUT GETCHR , ( T @ ! T W P ! T
0x0b2b90…0b2d24 Dummy {f00=0x0038, f01=0x417e, f02=» _& ! Y DWTECB $ , ( o D ! T @ ! T ! T 6 , ( @ X0_ R P T @ ! f ECHRTN * & H T ! T ! ! _l H D ! h
0x0b2d24…0b2eb8 Dummy {f00=0x0038, f01=0x0190, f02=» > @ IDENT DRDU01 REL 11.0 81-05-18 870105041100 , ( DUADR DUON IHDU1 IHDU IHDU2 DWDU01 F DUADR v DWTOR NVLCHK , ( Y Y X Q ECBRC DWT
0x0b2eb8…0b304c Dummy {f00=0x0038, f01=0x0190, f02=» h DISIOE , ( P P P P P ECBCW1 J , ( @@ B ! T , ( " T Y 9 Y , ( ; ! 9EV X y ! + X , ( [ @ ! ! T Y 2 B
0x0b304c…0b31e0 Dummy {f00=0x0038, f01=0x0190, f02=» H Y B Y H ~ , ( P B ;b :b , ( ^ 9 R P 9 ! W ! H N , ( R T ! W ! @W ! U ~ , ( ! ! _ P Q R ! W ! , ( 1 ! @W ! ! !
0x0b31e0…0b3374 (1, 26) Dummy {f00=0x0039, f01=0x0190, f02=» n , ( Y W t 9BV ! , ( ! ! T @ X D X ;E Y > , ( ! Y ! X ! ! P Y n , ( @ t X @ X $ P t R , ( / :A P Y ! t $ <A" :E ! , ( O
0x0b3374…0b3508 Dummy {f00=0x0039, f01=0x0190, f02=» ECBEL * & W Y Y ! 9 t " :A C , ( U 4 ! X " P < , ( X ! ! P Y *W 8 l , ( T " T 9_Z ! ! ! , ( ) ! P Y ! 4 X , ( G ;F
0x0b3508…0b369c Dummy {f00=0x0039, f01=0x0190, f02=» W X Y $ ) Y 4 B , ( ;e :e Q , , ( P 9 4 8 X " P # , ( ;B 4 8 X P T X :F , ( # Y 4 X P X y Y 4 X , ( C ;C+ W W W
0x0b369c…0b3830 Dummy {f00=0x0039, f01=0x0190, f02=» DWTA2 TDISP DUON SAVE8 0 , ( } $ Q Y Y " $ @ DWTST p INIFLG , ( B & Y ( Y @ * , ( @T Y ! H! T Y ! ! P Y VOLCLR , (
0x0b3830…0b39c4 Dummy {f00=0x0039, f01=0x0190, f02=» -_ . v , ( _ A Y ( Y IHDU : F IHDU1 : X IHDU2 : j INTSAV | , ( 9$ _~ A 0 & I F 9AZV9a , ( U P D ) X V # T X , ( s X X " 4
0x0b39c4…0b3b58 Dummy {f00=0x0039, f01=0x0190, f02=» VOLGET , ( X P 4 @ ( TOT , ( B @ 0 1T @ 8 # " Q B , ( P R P Q X X r DWDU01 8 , ( ! X Y ! W 4 , ( ;
0x0b3b58…0b3cec Dummy {f00=0x0039, f01=0x0190, f02=» 6 P P P P h H D !BS P T %T 1 8 7 > = > AV0 E > O U 8 ] l aT e > q u H $ H D !@R yR @ @ D P R0 P f W" f R T f WJ p H D ! [ f WB f U f f P #Q %R" ) f -W 1 f 7 f ;W ? f E f H D
0x0b3cec…0b3e80 Dummy {f00=0x0039, f01=0x0190, f02=» 8 T H D ! L P > 'Pd -R4 5P 9 8 = @ O S > [ 8 _ H D ! aW^ i m q u y > } 8 * W4 R 8 @ W H D !2 8 @ P l P W6 T T ! % R + -P H D !g 1 9 * = O
0x0b3e80…0b4014 (1, 27) Dummy {f00=0x0039, f01=0x412e, f02=» ' - /P 3 7 ; A > GW( KW$ QW [ 8 ]T a gW yT : H D ! * ~ 8 R 6 T TJ P 6 P 6 P( 6 W 6 P H H D ! # 8 ' 6 3 6 5 R E 8 YP g 6 iV oT( W P T > 8 4 0 Tr 6 P T2 T( D P R P
0x0b4014…0b41a8 Dummy {f00=0x0039, f01=0x0190, f02=» > @ IDENT DRDY01 REL 11.0 81-01-26 870105041100 DYAD ECHODY F DYAD ^ STABLK p , ( @ P ! , ( P P 1 ENDBLK LENDER , (
0x0b41a8…0b433c Dummy {f00=0x0039, f01=0x0190, f02=» R X Y R Y _ , ( Y _. B 1 ! * GETCHR Z , ( X " E P l * & 5 8'0P 4 E T ! T Y * & _| ! T @_ ! DWTOR , (
0x0b433c…0b44d0 Dummy {f00=0x0039, f01=0x0190, f02=» h * & ] X X ! , ( w B ! ! 6 , ( B Y ! W X f , ( T X !@P ! $ P ! , ( ! T X C TENDIO
0x0b44d0…0b4664 Dummy {f00=0x0039, f01=0x0190, f02=» " Y Q Y > X Z2<B , ( / DR B Y P ! ( , ( IH ! X ! Y X , ( a Zp T _ X $ P ! ECHODY , ( R V P P ! * & @
0x0b4664…0b47f8 Dummy {f00=0x0039, f01=0x0190, f02=» X l , ( ! ! Y ! , ( _L X " X " Y U W < , ( " ! ! ! Y l , ( 7 4 B U ) , ( U X R X X " Y X , ( o
0x0b47f8…0b498c Dummy {f00=0x0039, f01=0x0190, f02=» " ! ! 4 ! , ( V ! V W :h ! , , ( " 4 X " X # R 4 > H D ! & 8 # )P /P 7 ? MP ]PP aP. gT yR4 R H D ! c : P. P
0x0b498c…0b4b20 Dummy {f00=0x0039, f01=0x4072, f02=» P& P< W U W OU [RF uV R V V W R D @ n # R 4 > H D ! & 8 # )P /P 7 ? MP ]PP aP. gT yR4 R H D ! c : P. P
0x0b4b20…0b4cb4 (1, 28) Dummy {f00=0x0039, f01=0x0190, f02=» > @ IDENT DRDY02 REL 11.0 81-05-25 870105041100 DYAD F DYAD V DWTDEV h STABLK z , ( B Y ! ENDBLK LENDER , ( T P P P & !
0x0b4cb4…0b4e48 Dummy {f00=0x0039, f01=0x0190, f02=» Y t * & mD X Y ! T ! T Y , ( _6 Y Y Y B ECBRL r ECBBA , ( W B P B H " +P , ( Y T P ! T R * & H X Y U
0x0b4e48…0b4fdc Dummy {f00=0x0039, f01=0x0190, f02=» ' P P P P P P C _P , ( EH B U ! B W . 0 , ( _ _X ! T " $ ` , ( y @P X X , ( @ @ ! T ! T ECBEL , ( A$
0x0b4fdc…0b5170 Dummy {f00=0x0039, f01=0x0190, f02=» X ! r , ( " T :h Y U X ! TENDIO B * & @ T 4 B ! V T , ( / X P W V X P , ( I R Y ! T ! T , ( c P P Y ! T P
0x0b5170…0b5304 Dummy {f00=0x0039, f01=0x0190, f02=» R Y, ! T ! * & T _P ! T ! T X * & # Xh X ! ! Y N , ( _ Y R X ! T | DWTST , ( " ! T ! T 4 X ? DWTOR , ( +A
0x0b5304…0b5498 Dummy {f00=0x0039, f01=0x0190, f02=» ' n * & @ } X " Y Y > X , ( X " Y Q Y > < , ( B Y ! X P @ l , ( ! Y ! $ *0 ! * & . ! 6 Y Y
0x0b5498…0b562c Dummy {f00=0x0039, f01=0x4166, f02=» T< R U Z R Q h H D ! ! PB # j 'P +P0 /P0 3P, 7P( ;P$ OU U [WJ eTF yP T $ H D !(( TN TF T0 T U Tt U T^ 'V + 5PP 7WD ?VF p H D ! GP MR WT _T ePf iP sTf w {P TX TB T: R T T T D @
0x0b562c…0b57c0 Dummy {f00=0x0039, f01=0x0190, f02=» > @ IDENT DRFD01 REL 11.0 81-04-14 870105041100 FDADR IHFD FDON DWFD01 F FDADR j , ( ! ! T 9 | NVLCHK VOLCLR , ( ! T $ I ^ $ ECBCW
0x0b57c0…0b5954 (1, 29) Dummy {f00=0x0039, f01=0x0190, f02=» , ( {H@ X Y 9 X L Y ! DISIOE 4 DISEND F , ( X X| R X ECBRL ECBCW2 , ( B X ; Z Y B Z$ ECBBA , ( ^* Y* Y Y B
0x0b5954…0b5ae8 Dummy {f00=0x0039, f01=0x0190, f02=» 9W ! ! x , ( G P P 4 ! # T X Y , ( g ! # X Y _ W Y H PFPOST x , ( Y Y Y @ T B S W Y ECBEL , ( 8! T X Y X C X U Y TENDIO
0x0b5ae8…0b5c7c Dummy {f00=0x0039, f01=0x0190, f02=» Y Y " X P SETIMP . DWTSB2 @ , ( y _0 $ _@ Y R , ( D & Y X P Y : ! * & 1 ! X # P Y :A , Y DWTECB , ( O $ " (
0x0b5c7c…0b5e10 Dummy {f00=0x0039, f01=0x0190, f02=» X K P @ t , ( T X T $C Y B , ( K & % Y B K ( X D , ( :AZj X P Y ! P + 7P t , ( $ P + < <A , ( $ <C ! 9 9 4 X 9C X D
0x0b5e10…0b5fa4 Dummy {f00=0x0039, f01=0x0190, f02=» x H D ! z | T ! )T / T ? T ET M t U v WW [ | _ T m V u | y H D !P D R F 6 4 0 V 8 2 6 P* P P" P ) * ^ H D ! - | 3P 9W = * A E IP MP W [T _ c ( g m u y ( H D ! W . *
0x0b5fa4…0b6138 Dummy {f00=0x0039, f01=0x4070, f02=» * , P0 T . T " $ P $ P P6 P - 4 3 8 = 0 A 2 J Z@ l
0x0b6138…0b62cc Dummy {f00=0x0039, f01=0x818e, f02=» > @ IDENT DRFD02 REL 11.0 81-02-27 870105041100 FDADR IHFD FDON DWFD01 F FDADR j NVLCHK | , ( Y Y ! ! ! VOLNAM , ( ! Y Y ! Y ! T ECBBA
0x0b62cc…0b6460 Dummy {f00=0x0039, f01=0x8190, f02=» DISIOE , ( w P P DISEND F * & @ ! X ECBRL ECBCW2 , ( r X B X( B Z2 , ( ^8 Y ;g< R :A W V :AW , (
0x0b6460…0b65f4 (1, 30) Dummy {f00=0x003a, f01=0x8190, f02=» h , ( K Y Y ! T X T ! ECBEL 8 * & i T ! X Y X :D:c C H , ( Y Y p W T ! v VOLCLR , ( $ I ^ TO SS ECBCW1 , ( Y B
0x0b65f4…0b6788 Dummy {f00=0x003a, f01=0x818e, f02=» Y _ ! Y , ( _& ! T Y ! ! T _< Y ! , FDON D SAVE8 n , ( 9 T Y Y ~ SETIMP , ( U X P y W " DWTSB2 , ( @ s
0x0b6788…0b691c Dummy {f00=0x003a, f01=0x8190, f02=» DWTECB , ( $$^8 Y & X Y C IHFD F , ( '? H I P A I X , ( &:AZ ! :CV : V @:C INXDWT , ( V Y :b" P Y ( X , ( 9
0x0b691c…0b6ab0 Dummy {f00=0x003a, f01=0x8190, f02=» l , ( * & @ ! 9c! 1 Y 9 4 , ( X ' P X ' T ?G 4 X " : , ( :G 4 Y W Y Y j , ( 4 W W X ;i X P Y , ( ;B+ W W ! ! T ! 9a X , ( /
0x0b6ab0…0b6c44 Dummy {f00=0x003a, f01=0x8190, f02=» ( Q l Y 4 DWFD01 0 , ( D , ( ? t , ( _ C C C C H D ! J H Z #
0x0b6c44…0b6dd8 Dummy {f00=0x003a, f01=0x8190, f02=» Z # Z ' Z 3P 7 V ;V C ^ IR S W [ P ]T eT H D ! 8 i J kT o s Z { Z ` ^ W TT V P Z < H D ! I V Z T V T % V ) h -T 3 7 H D ! 9T ? V K W B YP a B cW e B o v { B L
0x0b6dd8…0b6f6c Dummy {f00=0x003a, f01=0xc0f2, f02=» }T. V L @ V Z l H D ! P V T V ` W b W W Z X P X Wj ( H D ! W !Tz / 3 7 b 9T, = ` ?W& C IW0 OW WTD ] a ` e b i Z t s Z T D @ W e B o v { B L
0x0b6f6c…0b7100 Dummy {f00=0x003a, f01=0x0190, f02=» > @ IDENT DRGP01 REL 11.0 81-05-25 870105041100 GPAD ECHOGP F GPAD ^ STABLK p , ( !"$&;<>@^_ x P ! ENDBLK LENDER , ( ! T P P ! B P
0x0b7100…0b7294 (1, 31) Dummy {f00=0x003a, f01=0x0190, f02=»A ! T W ! T ! T * & B ! T W ! T Y Y * GETCHR X * & U P T Y j , ( _. P R P O]> V _F , ( $ T Y Y V Y _^ C , ( _R
0x0b7294…0b7428 Dummy {f00=0x003a, f01=0x0190, f02=» ! T ! T ! T ! TENDIO & LDISP 8 DWTA3 H , ( _ T Y X , ( wA" X C _ X Y Y ECHOGP , ( > ! T T _0" T _2 R V , (
0x0b7428…0b75bc Dummy {f00=0x003a, f01=0x0190, f02=»# n , ( ! ? _8 ! ( ^ , ( $ Y ! _: n ! > , ( 9" ! ! P P n , ( ( U n r X " ! , ( q ! X v
0x0b75bc…0b7750 Dummy {f00=0x003a, f01=0x40a2, f02=» Pl V T P %Tj ` H D ! KTD ST< [T4 aT. e T T T R> VB P< P P P4 R( Q$ T T R> Q( KP8 QP h @ U n r X " ! , ( q ! X v
0x0b7750…0b78e4 Dummy {f00=0x003a, f01=0x0190, f02=» > @ IDENT DRGP02 REL 11.0 81-01-26 870105041100 GPAD8 F , ( [000b [000e [00t [00q 8 V GPAD8 < , ( ! [00w [00v c [5n DWTOR DWTDEV , ( A %99 $$ X "
0x0b78e4…0b7a78 Dummy {f00=0x003a, f01=0x0190, f02=»ENDIS , ( ! ! X T P STABLK > * & C P ! P GETCHR ~ , ( X T 1 X , ( Y ! X Y ENDBLK , (
0x0b7a78…0b7c0c Dummy {f00=0x003a, f01=0x0190, f02=» M " P ! Y Y <h Y OUTPUT . , ( e ! X ! @ , ( ! X ! p , ( W X ! ! Y , ( B@ ! X Y W ! +Xl , ( @
0x0b7c0c…0b7da0 Dummy {f00=0x003a, f01=0x0190, f02=» % B ! Y P , ( A $P W X P ! Y Y 0 , ( [B ! X P ! ` * & u @ ! W ! ! , ( W ! W ! +XR , ( B X $ T _ Y $
0x0b7da0…0b7f34 (1, 32) Dummy {f00=0x003a, f01=0x0190, f02=» Y _T Y _Z Y $ ~ , ( @ ! ! T ! , ( @ 3 ! ! B $ P N , ( O@ X ! Q ! Y X ~ , ( k T ! ! * & @ ! ! * X Y
0x0b7f34…0b80c8 Dummy {f00=0x003a, f01=0x0190, f02=» P l , ( @ Y _ ! B <hP YP P , ( " Y ! & ! < , ( + ! B $ P Y P l , ( IA Y ! ! ! , ( e ! ! " ( Y DWTST
0x0b80c8…0b825c Dummy {f00=0x003a, f01=0x0190, f02=» Y 0 ! Y ~ * & @ & ! $ ! Y ! DWTECB L , ( $ Y Y X ^ * & $@ f Y ! ! , ( [ ! 5 ! SETIMP , ( 3! n
0x0b825c…0b83f0 Dummy {f00=0x003a, f01=0x0190, f02=» X n , ( P y Y 4 dR d , ( R _ 00,0: " < , ( @ 4 X P Y 4! l * & DH Y _ Y Y X , ( ," :HR 0 P :h ! Y , ( B _"
0x0b83f0…0b8584 Dummy {f00=0x003a, f01=0x0190, f02=» 040506070809101111131415 * H D ! = N C mP { | } P P N H D ! T P P T( #T 'P" 7 APP G IWT H D ! u OP U o w
0x0b8584…0b8718 Dummy {f00=0x003a, f01=0x417c, f02=»W6 W W T Q P ~ H D ! W6 R P T ! 'Tx 1 = E MPn U & YQb c mT6 : H D ! w P : P Z P. : + H D ! 3 ;P G Z Y ] e m q P8
0x0b8718…0b88ac Dummy {f00=0x003a, f01=0x0190, f02=» > @ IDENT DRGP03 REL 11.0 81-06-01 870105041100 GPAD3 F , ( [000b [00w [00v c [5n V , ( ! [0;0x [000` [0g H [00d , ( A [00{ [20h [20l [4m [0m GPAD3 b DWTOR
0x0b88ac…0b8a40 Dummy {f00=0x003a, f01=0x0190, f02=» Y P Y z LENDER , ( @ M jP ^ L , , ( ! LENDIS STABLK GETCHR * & ! B ! T , ( X ! T +
0x0b8a40…0b8bd4 (1, 33) Dummy {f00=0x003a, f01=0x018e, f02=» W@ ! W ! T ! T , ( q" ! T Y W ! T 0 ENDBLK ` , ( +T _L X T _ T ! T r , ( " ! T Q X $ P , ( D ! T Y ! T ! W , (
0x0b8bd4…0b8d68 Dummy {f00=0x003a, f01=0x0190, f02=» , ( 5 ]U W X $ P Y W X , ( Q $ T Y ! T W 4 , ( k D C _ . " ! T Y _ d , ( ! Y , ( D ! T P ! T P _ , ( B ! T _& !
0x0b8d68…0b8efc Dummy {f00=0x003a, f01=0x0190, f02=» ! ! ! T X , ( )H Y Y ! $ , ( C@ B X " P $ L W T , ( _ $ L 9d P _$ ! , ( ! P Y _6 , ( Q ,0 Y _D P Y
0x0b8efc…0b9090 Dummy {f00=0x003a, f01=0x0190, f02=»" P t , ( P ! B 9d! , ( ' P Y D Y $ @ $ ! D , ( C @ 9h! P T h Y ' FW R t , ( a! l Y ' L & ! W , ( { Xp ! T $ P P , (
0x0b9090…0b9224 Dummy {f00=0x003a, f01=0x0190, f02=» * & ! T : ! ! * & T ! T ! Y Y 2 , ( Y ! ` DWTST DWTSB2 , ( 5$D Y X P Y , ( M ! Y Y 0 ! Y
0x0b9224…0b93b8 Dummy {f00=0x003a, f01=0x0190, f02=» Y X Y * & ! T ," :HR :h ! $ SETIMP R * & T _ ! T d INPUT , ( ! " ! P T , ( ! ;T Y . X . T ! " ! , (
0x0b93b8…0b954c Dummy {f00=0x003a, f01=0x0190, f02=» o R _ 00,0: " , ( @ 4 X P Y 4 Y 0 LDISP ` , ( W ! 2 Y p * & H Y X ," :HR 0 P :h ! , ( 2 Y _ X , ! F , ( A Y
0x0b954c…0b96e0 Dummy {f00=0x003a, f01=0x0190, f02=» ( I ! ! " , ( @ c ! ! j ," :HR :h ! | . , ( _ 4 :h 0 :C ! 41518 ^ , ( 24253033353648505160667072010203 , ( 040506070809101111131415 , ( ?
0x0b96e0…0b9874 (1, 34) Dummy {f00=0x003b, f01=0x0190, f02=» F 2 T Tj P P@ #TD 'WB /Tt 5P ; b H D ! IPN QTR ] _W8 gT< oT4 wT, }W T T T T T T Q P J H D ! @ T T W VH P T W T n P TV Tb #TZ )U /PD H D ! ` 3R8 7U 9W2 AP4 MW UT eT iW
0x0b9874…0b9a08 Dummy {f00=0x003b, f01=0x4174, f02=»P w { 2 QV Q< Q" z H D ! ! Q P Pf 'P 3 C KP& OT [W q sW` TP P6 P@ b 6 H D ! ; T: T T T ) 2 - EPL Q b a b H D ! m b T R T T PL T" T T2 #
0x0b9a08…0b9b9c Dummy {f00=0x003b, f01=0x0190, f02=» > @ IDENT DRGP04 REL 11.0 81-03-13 870105041100 GPAD04 F GPAD04 X STABLK l DWTDEV ~ , ( " ! T Y ENDBLK LENDER * & P R P Q R Q !
0x0b9b9c…0b9d30 Dummy {f00=0x003b, f01=0x018e, f02=»U Q T t , ( oH Y Y X Q ! T OUTPUT D , ( D Y ! T ! T _@ V , ( R _Q Y _ /T _ V Q ECBRC , ( "Q P P C _r , ( " $ P
0x0b9d30…0b9ec4 Dummy {f00=0x003b, f01=0x0190, f02=» h INPUT , ( ) Y X : 1 ! DWTOR H ECBCW X , ( AH y X ' $T B P Y h LENDIS ABORT , ( [ H W Y Y , ( s _ Y _
0x0b9ec4…0ba058 Dummy {f00=0x003b, f01=0x4086, f02=» T T R Q T V Q Q P P P Tp R 0 , T^ TR TL P #V@ + n MT WP ]W P < p@ B P Y h LENDIS ABORT , ( [ H W Y Y , ( s _ Y _
0x0ba058…0ba1ec Dummy {f00=0x003b, f01=0x0190, f02=» > @ IDENT DRIC01 REL 11.0 81-05-05 870105041100 ITAD IT:BUF F ITAD ^ IT:BUF p ECBCW , ( d B P P 3T DISIOE FNDTID , ( Y W
0x0ba1ec…0ba380 Dummy {f00=0x003b, f01=0x018e, f02=» P ' P T ' | DWTECB ECBRL . , ( u"HP B F V > ECBEL n ECBBA ~ , ( W U C G P (@ B DWTTAB TTB:ID * & F 0 = H L
0x0ba380…0ba514 (1, 35) Dummy {f00=0x003b, f01=0x0190, f02=» SETIMP TTB:ST , ( R A Y X ( , ( @$ T P (P H U ^ X TDISP , ( D ' 9 1 " X T @ P ( A , ( E _ ( Y _ _l X T @ P ( , ( @ e A
0x0ba514…0ba6a8 Dummy {f00=0x003b, f01=0x40f6, f02=» $P e % $ H D ! P P T #W - V 3 . [R cP gPz mTz q uP V W , H D ! O U P R P P 3T 9P C [T aP k x P P W P @ ( @ e A
0x0ba6a8…0ba83c Dummy {f00=0x003b, f01=0x0190, f02=» > @ IDENT DRKB04 REL 11.0 81-05-25 870105041100 KBAD4 F KBAD4 V LENDER h , ( (@ U R -P z DWTDEV , ( !D X X P X , ( 9 P $$ P V
0x0ba83c…0ba9d0 Dummy {f00=0x003b, f01=0x0190, f02=» X l , ( $ 4 T %(@ X P , ( ! Y X P Y (@W : INPUT j * & D Y _ ! (@" ! 9 Y X z , ( P X` V R P , ( "P 9 _ X Y W X , (
0x0ba9d0…0bab64 Dummy {f00=0x003b, f01=0x018e, f02=» Y ! T x , ( m $ P " Y W X P X * & $P <c $P $ $ Y H , ( V ! B W B v , ( P $$ R % C , ( * ! W ? X T 9 P _ , (
0x0bab64…0bacf8 Dummy {f00=0x003b, f01=0x0190, f02=» f ECBEL ECHEND LENDIS * , ( W C ! " < , ( q ! P * X $4 P X T l , ( 1 X P pR p Y X , ( X P 1 W X , ( @ X
0x0bacf8…0bae8c Dummy {f00=0x003b, f01=0x0190, f02=» l ECHO , ( " X Y 9 ! 4 B , ( 1 D % > T L , ( K > T > P | , ( E g . ! _ W , ( ! X L X P Y 0 %_
0x0bae8c…0bb020 Dummy {f00=0x003b, f01=0x0190, f02=» X < X DWTADR ABTADR 0 DWTSB2 B * & P L "X $ T H D ! = l U RV P /P( ;P CP GV K : ] i : y T H D !@ P" : P W P VP R P P W ! . 'R /R =
0x0bb020…0bb1b4 (1, 36) Dummy {f00=0x003b, f01=0x40ac, f02=»W8 /T = ~ C ^ I v O z Y . f H D !"! sP P : T~ Pv Rr : P WL P L P< T W W, L " $ @ P . CT ST aP }W P n @
0x0bb1b4…0bb348 Dummy {f00=0x003b, f01=0x0190, f02=» > @ IDENT DRLP01 REL 11.0 81-01-26 870105041100 & " LPADR ACLP IHLP LPON DWLP01 F LPADR p ACLP DWTBC , ( T 1 W B DISIOE , ( B P P V
0x0bb348…0bb4dc Dummy {f00=0x003b, f01=0x0190, f02=» DWTA5 , ( } Q 1 Y PFPOST H LPON Z SAVE8 l , ( @ r t @ B X _" | DWTST IHLP INTSAV DWTOR , ( X Z.W A
0x0bb4dc…0bb670 Dummy {f00=0x003b, f01=0x407e, f02=» v H D ! T WP %PD )P 3V I OT UW _P eP m qT uV W X h@ z
0x0bb670…0bb804 Dummy {f00=0x003b, f01=0x0190, f02=» > @ IDENT DRMD01 REL 11.0 81-01-26 870105041100 MDADR MDON IHMD DWMD01 F MDADR j , ( $(,0 !%) | DWTOR * & ! -1 "&*.2 #'+/3 X DWTORD INXDWT
0x0bb804…0bb998 Dummy {f00=0x003b, f01=0x0190, f02=» VOLNAM , ( w$ C @ Y , ( Y ! ! T X ! ! T Y X B , ( Y ]( ^B _ Y r ECBRL ECBCW2 , ( @ Y B P ! T B R ECBBA , (
0x0bb998…0bbb2c Dummy {f00=0x003b, f01=0x018e, f02=» , ( M X P ! P C , ( k W Y ! P C W 4 ECBEL d , ( Y C Y P Y Y t , ( X X hZ Y _ X W X DWTA4 PFPOST * & s X s
0x0bbb2c…0bbcc0 Dummy {f00=0x003b, f01=0x0190, f02=» VOLCLR * & $ Y _ Y VOLADR H * & " Y ! ! T Y Z , ( / $ Y Y ! X Q MDON R SAVE8 INIFLG * & K Y 4 &
0x0bbcc0…0bbe54 (1, 37) Dummy {f00=0x003b, f01=0x0190, f02=» ! X n DWTECB * & ] Y .X X IHMD N , ( Y '? P ? I ` , ( : V :c X V DWMD01 , ( I X X X '? . 4 , (
0x0bbe54…0bbfe8 Dummy {f00=0x003b, f01=0x0190, f02=» ! 2 < K V O H S F [P _Pv cPj gPn kPb oP w H L T( H D !B H T H L L F B P T R L S U L H D ! D H !P % J ) H 1R ?V CV M F Q J SP W [P kW o J H D ! s wP Wn F L PT D
0x0bbfe8…0bc17c Dummy {f00=0x003b, f01=0x4036, f02=» V V | d @ 2 H L T( H D !B H T H L L F B P T R L S U L H D ! D H !P % J ) H 1R ?V CV M F Q J SP W [P kW o J H D ! s wP Wn F L PT D
0x0bc17c…0bc310 Dummy {f00=0x003b, f01=0x0190, f02=» > @ IDENT DRMS02 REL 11.0 81-01-26 870105041100 MSAD F MSAD V , ( l 7&! 1 h LENDER ECBRL , ( ! Q P ^ P B ECBBA DWTDEV
0x0bc310…0bc4a4 Dummy {f00=0x003b, f01=0x0190, f02=» W Y B V B P $$ ECBEL * , ( H R % C C : , ( W T _ _d W X ) j , ( B Y (@W B T Y W STABLK , ( Y W W Y P
0x0bc4a4…0bc638 Dummy {f00=0x003b, f01=0x0190, f02=» P P Y , ( /H X " T h ! T " , ( D ID X R B 2 2 ! R , ( e T ! T ! N ^>_T , ( D ! T ! T ! Xl Y , ( ! X| P W X X
0x0bc638…0bc7cc Dummy {f00=0x003b, f01=0x0190, f02=» Y B r * & X R hY ;W -Y = P ! GETCHR @ , ( ' D T Y ! T R * & ? P X _ ? Y ! T X , ( Y B *0 ! T X R ! , ( q" T ! T ! X ^
0x0bc7cc…0bc960 Dummy {f00=0x003b, f01=0x0190, f02=»T * W Y 1_& 7P P , ( P Y _ Y , ( @ X ZN _ ! _ B = P , ( > T > 0R ECBRC , ( 3 R X V >P W :P P C Q W > H
0x0bc960…0bcaf4 (1, 38) Dummy {f00=0x003c, f01=0x4134, f02=»W< W P0 V H D ! T T Tz P P #P ;T ETD MR0 gT" mT q T T H D ! P W P P V * W W P R W )T 7T ?P C * ^ H D ! UT aT iR qT wT V4 P T T W P P P !T /R $ 3R 9V ?P A
0x0bcaf4…0bcc88 Dummy {f00=0x003c, f01=0x0190, f02=» > @ IDENT DRMT01 REL 11.0 81-01-26 870105041100 IHMT DWMT01 MTDRON F DISIOE f DWTOR x , ( Q P A X ECBRL , ( " :B V B H R ECBBA , (
0x0bcc88…0bce1c Dummy {f00=0x003c, f01=0x0190, f02=» h , ( 5T 5P ) H R ( C , ( C ! P Q ! ! R ! A 8 , ( _ ! Q ; V )W ! ! R h ECBCW , ( ! A _$ B 9 I ! ) ! W , ( ) ! T ! W ! Q ) , (
0x0bce1c…0bcfb0 Dummy {f00=0x003c, f01=0x0190, f02=» A P x , ( P )@ P :b P ) :b DISEND H , ( P X ' R Q )@ A Z SETIMP TDISP , ( A @ , ( @ A _r A ! 9 R 9 4
0x0bcfb0…0bd144 Dummy {f00=0x003c, f01=0x018e, f02=» @W l PFPOST HALT , ( e @ _4 ` 9 @ T A P S . , ( I B B 4 A ^ IHMT INTSAV SAVE8 , ( $ A A A A I DWTECB * &
0x0bd144…0bd2d8 Dummy {f00=0x003c, f01=0x0190, f02=» MTDRON DWTST , ( @ 4 Y 9 @ P 1 ( , ( ' A @ T 1 X , ( E A H 9 , ( a R ! @ , ( ?b ! n H R ! T (
0x0bd2d8…0bd46c Dummy {f00=0x003c, f01=0x0190, f02=» ` @ ( x , ( "13478? j & : DWMT01 " H , ( D , ( ? _ H D !^? P 2 ) V - /V 9R MP Q n U T
0x0bd46c…0bd600 Dummy {f00=0x003c, f01=0x0190, f02=» T T WX P TV ` %WL l H D ! 0 ) X +Q@ 7V4 = ?Q, CW( G z IW8 QW qRV } T 2 P: P P P ( H D ! P R Q 8 4 P 8 4 P J P R J 6 P t H D ! $ ) 4 - 6 1 8 5 P ?W4 KW( OW$ SW WW [W _W cW k R yT" }P
0x0bd600…0bd794 (1, 39) Dummy {f00=0x003c, f01=0x406e, f02=» k f q 2 V X @ < ( R` V R T8 R T Q R R T V R R + F f X@ j ( H D ! P R Q 8 4 P 8 4 P J P R J 6 P t H D ! $ ) 4 - 6 1 8 5 P ?W4 KW( OW$ SW WW [W _W cW k R yT" }P
0x0bd794…0bd928 Dummy {f00=0x003c, f01=0x0190, f02=» > @ IDENT DROD01 REL 11.0 81-01-26 870105041100 " ODAD " F ODAD " V DWTDEV " h DWTST " z , ( P Y X " SETIME " , ( "DR X P y Y Y " , ( 5B
0x0bd928…0bdabc Dummy {f00=0x003c, f01=0x0190, f02=» " l LENDER # , ( Y -P -R # , ( X ) Y X # N , ( BP Y C X V P X # ~ ECBRL # , ( HP W , Y B P # ECBBA # , ( T
0x0bdabc…0bdc50 Dummy {f00=0x003c, f01=0x0190, f02=»V _ R @ P C # ~ ECBRC $ , ( ? W ?T C !T W $ . ECBCW $ ^ , ( ] @T W B V B P $$ $ n , ( y R % Y _ Y R $ , ( _ "? X " P W W $ TENDIO
0x0bdc50…0bdde4 Dummy {f00=0x003c, f01=0x0190, f02=»* W Y $ p DWTA3 % , ( - X R X P % , ( @" y @ P Y _* y % N , ( / " F X Z< @ Y _d B % ~ , ( I 1 " > dT _ % i V *@_" % H D !
0x0bdde4…0bdf78 Dummy {f00=0x003c, f01=0x4096, f02=» ! H ST WWZ ]T cWN iV> oP {R h R D P W h W P R % 0 , P P V T W R P !P _T mV & L r & @ &
0x0bdf78…0be10c Dummy {f00=0x003c, f01=0x0190, f02=» > @ IDENT DRSL01 REL 11.0 81-01-26 870105041100 9 H D ! ISLCI ISLCO SLCUON CHAN SLCHRI SLSTBL SLCHRO SLENBL SLDISP 9 F CHAN 9 INTSL1 9 SLCUON 9 , ( @ J B A A J A J 9 , ( B @
0x0be10c…0be2a0 Dummy {f00=0x003c, f01=0x0190, f02=» ] W P U T t 9 NDGEDW : 0 DWTST : B , ( } R X X #@T : R , ( _ <H W " X ' : NDREP : DWTADR : INTADR : , ( $P Y X D
0x0be2a0…0be434 (1, 40) Dummy {f00=0x003c, f01=0x0190, f02=»W U _ A ? : | , ( @ @ W V U 4 P ; , ( ' ?H T R 4 5" T T T ; L DWTOTQ ; | DWTOCH ; , ( G ;AR T P X U X ; TDISP ; , ( c P $ T X
0x0be434…0be5c8 Dummy {f00=0x003c, f01=0x0190, f02=»P P P P _ U W Q ; PFPOST < " , ( Y W @ T U T T < 4 DWTCP2 < d * & P u W X < v , ( '? P U P T 5W T ;A < , ( / R _t U 5 P P Y < , (
0x0be5c8…0be75c Dummy {f00=0x003c, f01=0x0190, f02=» < x NDSAV8 = SLSTBL = * SLENBL = > NDRETO = R SLCHRO = d SLDISP = x , ( H Y "W $ " = , ( 8# X $ <C ;I > ? @ = ( $ T A % >
0x0be75c…0be8f0 Dummy {f00=0x003c, f01=0x40f6, f02=» %P - 3RZ AT4 IR< OP _ c eP iT y = | H D ! P2 P$ P P P W Wj Th T` P W PB P ! #T > 8 H D !,[ 'W( /R = ?P C G KP oP T W T > > > @ >
0x0be8f0…0bea84 Dummy {f00=0x003c, f01=0x018e, f02=» > @ IDENT DRSOP1 REL 11.0 81-01-26 870105041100 ? 0 , SOPCT SOPR IHSOP DWSI01 DWSI02 DWSO01 ? F SOPCT ? z , ( T 8T 9W B ? DISIOE ? SPDLCI ? , ( ! D 7P P A W
0x0bea84…0bec18 Dummy {f00=0x003c, f01=0x0190, f02=» ? ECBCW @ ECBEL @ , ( U X R C C @ ( TENDIO @ X TDISP @ j SOPR v @ z , ( m$ A @ A. @ DWSI01 @ DWSO01 @ , ( X V 9_<
0x0bec18…0bedac Dummy {f00=0x003c, f01=0x4012, f02=» @ @ A ECBEL @ , ( U X R C C @ ( TENDIO @ X TDISP @ j SOPR v @ z , ( m$ A @ A. @ DWSI01 @ DWSO01 @ , ( X V 9_<
0x0bedac…0bef40 Dummy {f00=0x003c, f01=0x0190, f02=» > @ IDENT DRSU01 REL 11.0 81-05-25 870105041100 D @ CHLT1 CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 CHRT4 CHLTON CHTAB F D @ DWREMU LOCHAN RECHAN REMFC SUMLOG LTCHRI LTSTBL LTCHRO > : LTENBL LTDISP RTCHRI RTSTBL RTCHRO RTENBL
0x0bef40…0bf0d4 (1, 41) Dummy {f00=0x003c, f01=0x0190, f02=» v DWREMU $ CHLT1 $ * INTSAV < SAVE8 N CHLT2 0 ^ CHLT3 0 p CHLT4 0 CHRT1 0 CHRT2 0 CHRT3 0 CHRT4 0 , ( A W U
0x0bf0d4…0bf268 Dummy {f00=0x003c, f01=0x018e, f02=» 4 U | , ( $P > R > Y X '@T X NDREDW L , ( ' T P 2W ^ , ( @ Y Y X DWTLD1 , ( # P _ X P y W SETIM
0x0bf268…0bf3fc Dummy {f00=0x003c, f01=0x0190, f02=» , ( 7 4X. U U T l T , ( W U ;h # <c$ 4 , ( u Xb B ^h Xn B ]v " d DWTDEV * & X " X #` @P Q X # Y NDREP DWTADR * & H W
0x0bf3fc…0bf590 Dummy {f00=0x003c, f01=0x0190, f02=» "P X # X > LTCHRI * RTCHRI > NDSAV8 R LTCHRO d RTCHRO x , ( $P P W Y W LTDISP RTDISP RTSTBL $ RTENBL $
0x0bf590…0bf724 Dummy {f00=0x003c, f01=0x0190, f02=» > ? X P v , ( OH@ y Y >_ " 4 DWTCP2 F , ( i 4T $ X $ # ; < X , ( T U P Q IHRET8 , ( @ 5 U T Y & P , ( X P
0x0bf724…0bf8b8 Dummy {f00=0x003c, f01=0x0190, f02=» _ @ n , ( @ T (@ > P X U 4X 5 , ( / Z_& ? @ T A % > SUMLOG V n O > > H D !3$ /W ; 6 G d MP QP W > ] d aT gW` o sPV TJ P( R$ H D ! . T T P WJ
0x0bf8b8…0bfa4c Dummy {f00=0x003c, f01=0x4052, f02=» 6 T P P W P T ; V A CT G X K V W V <@ N T A % > SUMLOG V n O > > H D !3$ /W ; 6 G d MP QP W > ] d aT gW` o sPV TJ P( R$ H D ! . T T P WJ
0x0bfa4c…0bfbe0 Dummy {f00=0x003c, f01=0x0190, f02=» > @ IDENT DRTC01 REL 11.0 81-01-26 870105041100 J $ IHTC DWTC01 DWTC02 TCDRON J F J n DISIOE J , ( 1"78 Q P ^ A J ECBRL J , ( / B X T " T A 7 J
0x0bfbe0…0bfd74 (1, 42) Dummy {f00=0x003d, f01=0x0190, f02=» H J TCDRON K ( SAVE8 K < INIFLG K L TDISP K ^ , ( $ @ K n , ( P X XN# Y ) W K , ( " P P _ :CV + W K , (
0x0bfd74…0bff08 Dummy {f00=0x003d, f01=0x0190, f02=» = Y A P P )@ K DWTOR L . * & Y :b P ) :a P :a P X L > DISEND L l , ( w H '? R Q )@ L ~ , ( A X T " P A L , ( X P W Y @ T L
0x0bff08…0c009c Dummy {f00=0x003d, f01=0x018e, f02=» L n PFPOST M , ( / _ Y @ T C P M , ( @ K B A _ A A A M P IHTC M INTSAV M * & k _0 _ _8 _< _@ _D _H A M , ( ?M P A P Q ? A @ M , (
0x0c009c…0c0230 Dummy {f00=0x003d, f01=0x0190, f02=» , ( * ;I C X "A _@ A A A A N , ( # 4# X& vT X T N 4 , ( @ A z:EV W X T Y :D N d , ( _ V X Q z:EV W " N , ( N P Y W X $ Q N , ( R N_
0x0c0230…0c03c4 Dummy {f00=0x003d, f01=0x0190, f02=» " " N | O H D ! A !P / 7 9T AT I f MT W _ ^ cP gT s uT y } O 6 H D ! 4 B , Pz O H D !H Wh V P P V W, T T T % 'P -
0x0c03c4…0c0558 Dummy {f00=0x003d, f01=0x40fc, f02=» z + ~ CT GP S c k O f H D !H PP Pz Q@ T T T W 9T = P " H D ! ?T GV IW M OT _V c gQx oVp uW P WD QB R P P n ( $ U V P W P P P P @ P T % 'P -
0x0c0558…0c06ec Dummy {f00=0x003d, f01=0x018e, f02=» > @ IDENT DRTN01 REL 11.0 81-03-18 870105041100 TNAD F PC:DIX V TNAD h , ( @ ( !"+*-, z , ( #$*+ %&,- LENDER , ( ? V qs " !
0x0c06ec…0c0880 Dummy {f00=0x003d, f01=0x0190, f02=» , ( yD Y Y X , ( ' _D X 8 ! ! T 5 ! ! 4 , ( @ Q Y Y 0 ! ! d , ( 0 0 Y ! ! P Q ! _ X * & @ " P Y 0 Y Y , ( 5_: Y
0x0c0880…0c0a14 (1, 43) Dummy {f00=0x003d, f01=0x0190, f02=» Z r , ( G 7 ! ! Y Y _N STABLK B , ( c X " P ! ! T OUTPUT , ( B 1 Y Y ! X ECBBA , ( $ 0 Y ! B 1 ! , (
0x0c0a14…0c0ba8 Dummy {f00=0x003d, f01=0x0190, f02=» * & Y 0 ! x ! Y , ( Y P ^ _0 Y 2 , ( / 9 ! ! V ! _ b , ( O _ (# P ! Z LDISP , ( m _> Y Y SET
0x0c0ba8…0c0d3c Dummy {f00=0x003d, f01=0x0190, f02=» ,P Y t , ( Y 4 3P 0P X , ( ! T Y W Y 0R !Q B , ( P R : R H >:dW " H >" 9 r * & ' ^ Y 4 X T Y Y , ( ? _ _ Y X ! , ( Y "
0x0c0d3c…0c0ed0 Dummy {f00=0x003d, f01=0x0190, f02=» Y ! r , ( b 4 Y Y ! t , ( 0 Y ! ^ X B ECBRL r INPUT , ( $" B B 4 X T ! * & BH Y ! ! Y ! Y , ( $ ! !
0x0c0ed0…0c1064 Dummy {f00=0x003d, f01=0x0190, f02=» _4 v Y * & m @ X P X =P X , ( ^ ! W X !T ' T X N , ( @ Y U Y 0 ! Y Y ~ , ( 4 B V B = 4 , ( D Y _ B B ! Y R 4
0x0c1064…0c11f8 Dummy {f00=0x003d, f01=0x4166, f02=» P Q n n P P Qx n P )P 5P E K P H D ! O i qPp u F F F v P n P0 n n D H D !u P 9 ? P E GV K n ]P a T P PP PL T W RF QB H D ! P R R W 7T eT kW T P MP
0x0c11f8…0c138c Dummy {f00=0x003d, f01=0x0190, f02=» > @ IDENT DRTP02 REL 11.0 81-02-16 870105041100 Y TPAD Y F TPAD Y V , ( !"$&;<>@ Y h DWTOR Y , ( ! ^_ 9: X ! Y Y LENDER Y DWTDEV Y , ( @ = M $
0x0c138c…0c1520 Dummy {f00=0x003d, f01=0x0190, f02=» ECBBA Y , ( u T ! T W B W B L Z , ( # 9Q T W Q X Z @ ECBRL Z p * & @ V T Y W B ! Z , ( @ T X ! T B R Q B Z , ( D ! V W ! ! Y Z
0x0c1520…0c16b4 (1, 44) Dummy {f00=0x003d, f01=0x0190, f02=» 3 " T W Q X " T ! Z LENDIS [ 0 , ( O T Y ! [ B , ( kB Y _ ! T ! X " [ r , ( V ! T Y P Q W [ , ( "@ ! T Y X " _( ! [ * &
0x0c16b4…0c1848 Dummy {f00=0x003d, f01=0x0190, f02=» D W C V B P ! T [ * & )B ! T ! T ! T ! 0 , ( A T ! T Y 4 ^ * & [ @R Q X " P ! T ^ X , ( u " P R M T ! T , ( " L ,! :D" ! X
0x0c1848…0c19dc Dummy {f00=0x003d, f01=0x0190, f02=» B ! T X ' _ X , ( Y P Y # P W ] , NDREP ] * & P # P Y Y ] l DWTST ] DWTSB2 ] DWTECB ] , ( 7 Y ! T ] * & OB X
0x0c19dc…0c1b70 Dummy {f00=0x003d, f01=0x0190, f02=» ] l , ( " R _ 4 ! T ! ^ , ( H T X $ P X ! T 4 ^ : , ( X ' T ! " ^ j , ( B" ! Y ! . X ^ , ( $ X> ! > ! D ! L ^ , ( " !
0x0c1b70…0c1d04 Dummy {f00=0x003d, f01=0x0190, f02=» , 0 AP U V W f Y f [ ] ^ _ a c e mTZ uTR }TJ ^ H D ! W W& Q T W Q p V T W T T" R Q V W _ H H D ! 2 T TD V T4 )T$ -T 5T 7W ;Q CT OTl a wTD { _ H D ! P V T, P" Q W T 0 T~ Tp
0x0c1d04…0c1e98 Dummy {f00=0x003d, f01=0x408e, f02=» R U W TZ P P~ W !Pr 'Pl MT| SP _ x @ < [Tn iT` oT wTR }TL T@ R T T PJ T T +T / F ` 4 X ` x@ ` H H D ! 2 T TD V T4 )T$ -T 5T 7W ;Q CT OTl a wTD { _ H D ! P V T, P" Q W T 0 T~ Tp
0x0c1e98…0c202c Dummy {f00=0x003d, f01=0x0190, f02=» > @ IDENT DRTP03 REL 11.0 81-06-24 870105041100 TPAD3 F TPAD3 V , ( ~ h DWTOR , ( ! 8 7 F X DWTDEV , ( ? H" :F X Y
0x0c202c…0c21c0 Dummy {f00=0x003d, f01=0x0190, f02=» W X # T !"P ! & W !@P LENDIS , , ( $ X ! T B R B H > , ( " +P P T ! n , ( ! ! " T Y Y B GETCHR , ( H X Y P !
0x0c21c0…0c2354 (1, 45) Dummy {f00=0x003d, f01=0x0190, f02=» ! _B ! !'P ! T , ( " T X Y W " , ( X $ B R B H " X R , ( +P P T X E , ( Q Y Y P B ! , ( ! P Z P
0x0c2354…0c24e8 Dummy {f00=0x003d, f01=0x0190, f02=»W X X r * & e Y Y # C X , ( { # C B P X E @ , ( Q Y ! ! ! !EP p * & ! T " T x !xX< Y Y TLTP03 , ( B <C
0x0c24e8…0c267c Dummy {f00=0x003d, f01=0x0190, f02=» ! ! ! T STABLK * & 9I Y Y ! T ! 2 ENDBLK ` INPUT r * & O T W ! T ! T ! , ( g P -P ! X Y 4" LDISP , ( U ! T
0x0c267c…0c2810 Dummy {f00=0x003d, f01=0x0190, f02=» X T Y @ 8 , ( @ Y ! D ! V ! D X $ , ( $ ! ~ ! ~ X ! ~ X "? T , ( D ! ~ "@ ! ~ X ! ~ X , * & B # ! ~ ! V X P H D ! : 4 6 n !
0x0c2810…0c29a4 Dummy {f00=0x003d, f01=0x4154, f02=»P: ?P$ CT IW MR SR WP cW o u V {P T z H D ! T W R P P T Q P D ~ P: P$ T W R R 6 H D !08 !P -W 9 ? V EP IT* MT* ]W PF Q< D ~ V P T T H D ! Q8 P P& D ~ V - D 1 V 7T ITH QT@ UW4 ]T4 c
0x0c29a4…0c2b38 Dummy {f00=0x003d, f01=0x0190, f02=» > @ IDENT DRTW01 REL 11.0 81-06-12 870105041100 TWAD IHTW TWON DWTW01 F TWAD j , ( x B U P R | DISIOE , ( ! U ! ! W ! Q ! B , ( ? Z P C !
0x0c2b38…0c2ccc Dummy {f00=0x003d, f01=0x0190, f02=» ! _f Y $P Y % ~ , ( _ ^ _ ! P B L , ( # +P Y ( ! U _ X N DWTST ~ , ( @ T _ W ! Y ! X , ( X ! X P R ?]* U C , ( = _. _: ! !
0x0c2ccc…0c2e60 Dummy {f00=0x003d, f01=0x0190, f02=» y! h Y _p X R X DWTOR 0 DWTECB @ DWTSB2 R , ( X ' & d DISEND IHTW INTSAV , ( P ! X ( _X , ( H@ A
0x0c2e60…0c2ff4 (1, 46) Dummy {f00=0x003e, f01=0x0190, f02=» J P 8 B W B W B W PFPOST * DWTA4 < , ( ; B @ T 8 T Y Y L DWTA5 | TDISP , ( UI Y Y Y * ! 2 X *_B , ( o $ B 1 4 X X X X , (
0x0c2ff4…0c3188 Dummy {f00=0x003e, f01=0x4146, f02=» H D ! U P R !U + , -W 1 H 5Q 9 n CP M 2 Q WP cR H D ! R s n P. P( P R Q W R U n P , P: P 8 U H D !1 T W 8 +P /R 7U G M SP m 8 R P , 8 4 R> P Q W~
0x0c3188…0c331c Dummy {f00=0x003e, f01=0x0190, f02=» > @ IDENT DRVU01 REL 11.0 81-01-26 870105041100 s D @ VUAD IHSVU1 IHSVU2 IHSVU3 IHSVU4 IHSVU5 IHSVU6 IHSVU7 s F F B IHSVU8 VUCHRI VUSTBL VUCHRO VUENBL VUDISP IHPVU1 IHPVU2 s < 8 IHPVU3 IHPVU4 IHPVU5 IHPVU6 IHPVU7 IHPVU
0x0c331c…0c34b0 Dummy {f00=0x003e, f01=0x018e, f02=»???? s ~ SWL48 t , ( ? B B B B B B J J P t . DISIOE t ^ , ( [ 1 t p ECBRL t ECBBA t , ( {D B R B H " t DWTDEV t , (
0x0c34b0…0c3644 Dummy {f00=0x003e, f01=0x0190, f02=» , ( U $ ! T _ U D ! u GETCHR u 4 , ( T _ $$ X" X& X* C u F , ( %@ U " R ! _ u v ECBRC u , ( C P P P P P P C u , ( a _> Y _H Y
0x0c3644…0c37d8 Dummy {f00=0x003e, f01=0x0190, f02=» u v ECBEL v , ( H B C P ! ! v & ECBCW v V , ( W ! 1P C v f , ( B X $@P C ! Y v DISEND v , ( ) Y B v , (
0x0c37d8…0c396c Dummy {f00=0x003e, f01=0x0190, f02=» v h DWTST w , ( $ ! T > Y ! w , ( @T Y Y _ w H , ( R V V P P T ! w x , ( W T Y @ Y W ! w TENDIO w ECHRTN w , ( X
0x0c396c…0c3b00 Dummy {f00=0x003e, f01=0x0190, f02=» ] $ < X X "@P XN ! w , ( y T ! T ! T _ 2 x , , ( @@ X "@P ! X ! ! x NDRET x , ( ( X ! > x , ( ! F ! L X ! P x , ( $ Y
0x0c3b00…0c3c94 (1, 47) Dummy {f00=0x003e, f01=0x0190, f02=» ?$ X $@T X !PPT @ x , ( YD@ Y W Y > X $@ Y y , , ( s " <a Y X Y > X y , ( $ @ Y <A Y X Y y NDSAV8 y DWTLD1 y , ( @ > " Y $ T
0x0c3c94…0c3e28 Dummy {f00=0x003e, f01=0x0190, f02=» & " Y y DWTLD2 z , ( " Y ( z 2 , ( -B Y $ Y T U z b , ( I BW " Y $ Y z PFPOST z , ( c B T U @ * X $ z N
0x0c3e28…0c3fbc Dummy {f00=0x003e, f01=0x0190, f02=» IHSVU7 z IHSVU8 { INTSAV { & * & U T & U , A { 8 , ( . ? 0 T U T X { f * & Y U U XH X { , ( P l D X { , ( @
0x0c3fbc…0c4150 Dummy {f00=0x003e, f01=0x018e, f02=» , ( A Y 0 @ _$ _* | , ( ] _0 U U & _: " | 4 DWTCP2 | d , ( { ;b ;b > X 2 ;C > 8% | v , ( T , > X P W | DWTOTQ | , ( <P P P 4P _ =
0x0c4150…0c42e4 Dummy {f00=0x003e, f01=0x0190, f02=» | * & @ X 4 U > Y "W } VUDISP } 6 VUCHRO } J , ( 6 & " 8! 9A D ,X } ^ , ( ! T T X 2 # R P ; } DWTOCH } , ( ? " @ *T U T Y 8 , } SETIM
0x0c42e4…0c4478 Dummy {f00=0x003e, f01=0x0190, f02=» } IHPVU3 ~ IHPVU4 ~ IHPVU5 ~ 0 IHPVU6 ~ D IHPVU7 ~ X IHPVU8 ~ l , ( 8_ A . ? 0 U >h ~ NDGEDW ~ , ( ?j t < " ~ , ( P U X
0x0c4478…0c460c Dummy {f00=0x003e, f01=0x0190, f02=» B T T U X 4 U ~ VUON 2 ( , ( @P u W U X 8 & ? : , ( 9 ? > @ , T @ _ > D ,X U j , ( @ Y T T P Y _ NDREWS , ( w U U U t XD D
0x0c460c…0c47a0 Dummy {f00=0x003e, f01=0x0190, f02=»T U T +U 3R 7 A EP> IP n H D ! / MP QPx UP" YP$ P V W U d P * H D !s W d P P EV KW QU k o T v H D ! T d J T d RH VJ V( PD Pn T W T,
0x0c47a0…0c4934 (1, 48) Dummy {f00=0x003e, f01=0x414c, f02=»P< W + 3 Z H D ! = KT UT ]W p P W R L p H D ! + ; IW( U e y j * ^ T8 X R P P W b H D ! P P P W P W P W %TJ 1R, 5P( IT OT ]T k oW 8 4 sP yP
0x0c4934…0c4ac8 Dummy {f00=0x003e, f01=0x0190, f02=» > @ IDENT DSKSUB REL 11.0 81-01-26 870105041100 F B VOLCLR VOLNAM VOLADR NVLCHK VOLGET NEWVOL INXDWT NVLTAB F NVLEND NVLBIT VOLCLR VOLNAM ECBRL ECBEL , ( @ % Y
0x0c4ac8…0c4c5c Dummy {f00=0x003e, f01=0x0190, f02=» h NVLCHK H DWTORD , ( 9 $ $ ^ W X Y :g . DWTNVL ^ DWTTAB p , ( S! H I ? P X * & m P ,P 9A _ H P I IHRTN VOLGET , (
0x0c4c5c…0c4df0 Dummy {f00=0x003e, f01=0x40da, f02=» $ Q X " _F X $ NVLTAB , NVLEND @ NVLBIT T _R h D @ 2 W| Tt 2 1WZ GWD eP& o s uP yP P P | @ IHRTN VOLGET , (
0x0c4df0…0c4f84 Dummy {f00=0x003e, f01=0x40b8, f02=» > @ IDENT DTTP03 REL 11.0 81-01-26 870105041100 DTTP03 TLTP03 F DTTP03 ` TLTP03 t D : @ PNVLEND EQU * P* PNVLBIT DATA 1 NVL BIT MASK P XIF
0x0c4f84…0c5118 Dummy {f00=0x003e, f01=0x40ee, f02=» > @ IDENT DVTDI REL 11.0 81-01-26 870105041100 DVTDI F DVTDI V DIAD h & " DI x " ! "" 33 ?O_o 6 6 @ P IFF DN=14 P*
0x0c5118…0c52ac Dummy {f00=0x003e, f01=0x40e4, f02=» > @ IDENT DVTDN REL 11.0 81-01-26 870105041100 DVTDN F DVTDN V DNAD h & " N x ! "" 33 , , @ P DATA /3333 DEVICE STATUS
0x0c52ac…0c5440 Dummy {f00=0x003e, f01=0x40ea, f02=» > @ IDENT DVTDY REL 11.0 81-01-26 870105041100 DVTDY F DVTDY V DYAD h & " Y x ! "" 33 2 2 @ FT MMUPAG=1 PDEVECB DAT
0x0c5440…0c55d4 (1, 49) Dummy {f00=0x003e, f01=0x4120, f02=» > @ IDENT DVTG1 REL 11.0 81-01-26 870105041100 DVTG1 F DVTG1 V GPAD8 h , ( GP x , ( "" 33 ? P
0x0c55d4…0c5768 Dummy {f00=0x003e, f01=0x412a, f02=» > @ IDENT DVTG2 REL 11.0 81-01-26 870105041100 DVTG2 F DVTG2 V GPAD3 h , ( GP x , ( "" 33 ( $ ? 3
0x0c5768…0c58fc Dummy {f00=0x003e, f01=0x40ec, f02=» > @ IDENT DVTG3 REL 11.0 81-01-26 870105041100 DVTG3 F DVTG3 V GPAD04 h & " P z ! "" 2 2 @ 0,0 P XIF PDWTE
0x0c58fc…0c5a90 Dummy {f00=0x003e, f01=0x40e8, f02=» > @ IDENT DVTGP REL 11.0 81-01-26 870105041100 DVTGP F DVTGP V GPAD h & " P x ! "" 33 0 0 @ TATUS " P DATA 0 HEAD POSIT
0x0c5a90…0c5c24 Dummy {f00=0x003e, f01=0x411c, f02=» > @ IDENT DVTKB REL 11.0 81-01-26 870105041100 DVTKB F DVTKB V KBAD4 h & " @ KB x bECH bCOD , ( ! "" 33 ` < 7 : 9 :
0x0c5c24…0c5db8 Dummy {f00=0x003e, f01=0x4114, f02=» > @ IDENT DVTMS REL 11.0 81-01-26 870105041100 DVTMS F DVTMS V MSAD h & " MS x , ( ! "" 33 A ` D 7 : 9 : D
0x0c5db8…0c5f4c Dummy {f00=0x003e, f01=0x40fe, f02=» > @ IDENT DVTOD REL 11.0 81-04-13 870105041100 DVTOD F DVTOD V ODAD h & " @ OD x * & ! "" 33 ` > 9 < ; < > @ END @
0x0c5f4c…0c60e0 Dummy {f00=0x003e, f01=0x40fe, f02=» > @ IDENT DVTT1 REL 11.0 81-01-26 870105041100 DVTT1 F DVTT1 V TPAD3 h , ( TP x , ( "" 33 > > @ END @
0x0c60e0…0c6274 (1, 50) Dummy {f00=0x003f, f01=0x40ee, f02=» > @ IDENT DVTT2 REL 11.0 81-01-26 870105041100 DVTT2 F DVTT2 V TPAD4 h , ( TP x "" 33 . . @ DATA 0 PRINTER PARAMETERS
0x0c6274…0c6408 Dummy {f00=0x003f, f01=0x4110, f02=» > @ IDENT DVTTN REL 11.0 81-01-26 870105041100 DVTTN F DVTTN V TNAD h & " TN x , ( ! "" A h C $ h
0x0c6408…0c659c Dummy {f00=0x003f, f01=0x40f2, f02=» > @ IDENT DVTTP REL 11.0 81-01-26 870105041100 DVTTP F DVTTP V TPAD h , ( TP x "" 33 2 2 @ CE BUSY 6 P DATA
0x0c659c…0c6730 Dummy {f00=0x003f, f01=0x40e8, f02=» > @ IDENT DVTVU REL 11.0 81-01-26 870105041100 DVTVU F DVTVU V VUAD h & " U x ! "" 0 0 @ DATA 0 TIMER POINTER ( P D
0x0c6730…0c68c4 Dummy {f00=0x003f, f01=0x40f4, f02=» > @ IDENT DW0701 REL 11.0 81-01-26 870105041100 DW0701 F DW0701 X DC07AD l , ( DC ~ * * * @
0x0c68c4…0c6a58 Dummy {f00=0x003f, f01=0x40d4, f02=» > @ IDENT DW1301 REL 11.0 81-01-26 870105041100 DW1301 F DW1301 X DC13AD l , ( DC ~ @ PDWTEND EQU * P END @ ATA 0 USER E
0x0c6a58…0c6bec Dummy {f00=0x003f, f01=0x40f6, f02=» > @ IDENT DW1501 REL 11.0 81-03-27 870105041100 DW1501 F DW1501 X DC15AD l , ( DC ~ 0 0 @
0x0c6bec…0c6d80 Dummy {f00=0x003f, f01=0x411a, f02=» > @ IDENT DW2201 REL 11.0 81-01-26 870105041100 DW2201 F DW2201 X DC22AD l , ( DC ~ , ( ? @ @
0x0c6d80…0c6f14 (1, 51) Dummy {f00=0x003f, f01=0x40d0, f02=» > @ IDENT DWII01 REL 11.0 81-01-26 870105041100 DWII01 F DWII01 X ITAD l * & | @ MUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,
0x0c6f14…0c70a8 Dummy {f00=0x003f, f01=0x40d0, f02=» > @ IDENT DWIO01 REL 11.0 81-01-26 870105041100 DWIO01 F DWIO01 X ITAD l * & | @ P END @ U ECB ADDRESS P XIF
0x0c70a8…0c723c Dummy {f00=0x003f, f01=0x4104, f02=» > @ IDENT DWL301 REL 11.0 81-01-26 870105041100 " DWL301 " F DWL301 " X DRX25 " l , ( VC " | REQTIM " @ " * " , " @ "
0x0c723c…0c73d0 Dummy {f00=0x003f, f01=0x0190, f02=» > @ IDENT EBCDIC REL 11.0 81-01-26 870105041100 TASCII TEBCDI F TASCII ` , ( t , ( ! , ( A ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ , (
0x0c73d0…0c7564 Dummy {f00=0x003f, f01=0x4162, f02=» , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI 4 , ( -/STUVWXYZ|,%_>?0123456789:#@'= H , ( 7- <=2&p ?' x , ( ! @O {[lP}M] Nk`Ka z^L~no , ( A | J Z_m , (
0x0c7564…0c76f8 Dummy {f00=0x003f, f01=0x0190, f02=» > @ IDENT FMCDEF REL 11.0 81-05-13 870105041100 . * CREATE DELETE EXTEND SEXTNO DV3RST F SEXTNO x , ( , ( ! CREATE B FILCO
0x0c76f8…0c788c Dummy {f00=0x003f, f01=0x0190, f02=»:BF , ( _ * G J FPB:CD < VTC:CD N FM:MOV ` , ( wDD G r FM:ECB FPB:IF , ( ,P 00T ( J FPB:KA
0x0c788c…0c7a20 Dummy {f00=0x003f, f01=0x0190, f02=» G : T ] @ OPEN VTC:FS 0 DELETE B , ( @ 4' "W P G $ W V FWTPAR DLCLO2 * & T X & "? P @ (W A FWTEW1 EWTVOL , (
0x0c7a20…0c7bb4 (1, 52) Dummy {f00=0x003f, f01=0x0190, f02=» @ G . F : A 0 X FM:RQE . FM:INE @ EXTEND p R * & a 2_ 4_ 6_ f EWTSEX FPB:EL , ( y * t H 8 A J :X. FNDVTC , ( G 8
0x0c7bb4…0c7d48 Dummy {f00=0x003f, f01=0x0190, f02=» VTC:EN VTC:LR , ( $ B "? G D G F G $ , ( F=f ] @ =f T T OPEXT , ( A ? A H_ , ( T F 6 F 8 G 6 G 8 G , ( 9 * G ,
0x0c7d48…0c7edc Dummy {f00=0x003f, f01=0x0190, f02=» B NP R T J N , ( V W W P J NU * , ( J R F Z , ( 0Zd F JT F J T , ( % T F J F J P J FM:MV4 , (
0x0c7edc…0c8070 Dummy {f00=0x003f, f01=0x0190, f02=»EAD VTOCBF * & K D A 0 R T VTC:ST L VTC:FN ^ CMPSTR p , ( a L V V$ P X Z , ( y T V DT F . G < B Y. G . FPB:MN FPB:SN , (
0x0c8070…0c8204 Dummy {f00=0x003f, f01=0x0190, f02=» P F @ v , ( LP F D ? X W F $ , ( Y T ! X 6 * F , ( F <T F . 2 F : > v VTC:NE FEXTNO , ( 9$ T F D W b < A d FNDVT2
0x0c8204…0c8398 Dummy {f00=0x003f, f01=0x0190, f02=»T V l * & b A d J J VTC:EB : , ( J h ^ L , ( h% 6 L P 6 | , ( h NT h , ( L PW L J
0x0c8398…0c852c Dummy {f00=0x003f, f01=0x0190, f02=» h l , ( y J T A d DV3RST < , ( P Z v9A ! :b P Y W P FPB:S1 , ( 9B 9A j D $W L , ADDMOD , ( L X 8 lW J , L D
0x0c852c…0c86c0 Dummy {f00=0x003f, f01=0x0190, f02=» , ( ! L U L U L : r(@ < M , ( 9 ^ G : G VW 8 ECBFC h * & W " T " F 4 R : C x VOL:EB VOL:EL , ( s t R L H v G 4 H VOL:FS
0x0c86c0…0c8854 (1, 53) Dummy {f00=0x003f, f01=0x0190, f02=» U WT _ d P T T T Wd P J Wh , H D ! T P W: +Q 3P C J s , T T 1 5 < A K @ H D ! O QP U p WT g R iT yP {R T@ V2 W W P U R T H D ! Z T T P W T #
0x0c8854…0c89e8 Dummy {f00=0x003f, f01=0x408a, f02=» R T W 'T 1 5 9 K R p D @ Y [P kW& { T Pf W^ W4 W T WN QW YT P , t@ D ! O QP U p WT g R iT yP {R T@ V2 W W P U R T H D ! Z T T P W T #
0x0c89e8…0c8b7c Dummy {f00=0x003f, f01=0x0190, f02=» > @ IDENT FMTASK REL 11.0 81-05-13 870105041100 H D ! OPEN OPEXT DLCLO1 DLCLO2 FMTASK FMINIT FMREAD FM:PWR FM:IO F F B FM:ECB FMEXIT FM:INE FM:RQE FNDNAM FNDVTC FNDVT2 RDVTO2 F B FM:MOV FM:MV4 FM:MV8 CMPSTR CMPDWD F
0x0c8b7c…0c8d10 Dummy {f00=0x003f, f01=0x0190, f02=»E FWTSEX FPB:RL FPB:BF FPB:FO p F B FPB:DT FPB:BO FPB:NO FPB:FN FPB:EL FPB:V1 FPB:S1 FPB:V2 * F B FPB:S2 FPB:V3 FPB:S3 FPB:V4 FPB:S4 FPB:FR FPB:US FPB:SH t F B FPB:MN FPB:SN FPB:IF FPB:KA FPB:CD FPB:RP EWTEXL EWTEXB F B
0x0c8d10…0c8ea4 Dummy {f00=0x003f, f01=0x0190, f02=»:EB R F B VTC:LR VTC:RL VTC:BF VTC:FO VTC:CD VTC:RP VTC:IF VTC:KA VTC:NE VTC:ST V VOL:VN p VOL:EL VOL:EB VOL:RL VOL:FS . VTOCRL * VTOCBF VTC:FN
0x0c8ea4…0c9038 Dummy {f00=0x003f, f01=0x0190, f02=»R VTC:RL VTC:BF VTC:FO 4 VTC:CD H VTC:RP " VTC:IF % p VTC:KA & VTC:NE ( VTC:ST ) FWTVTC FWTPAR FWTFNR FWTTAB
0x0c9038…0c91cc Dummy {f00=0x003f, f01=0x0190, f02=»X EWTEXL EWTVOL EWTEXB 4 FPB:RL H FPB:BF FPB:FO p FPB:DT FPB:BO FPB:NO FPB:FN FPB:EL FPB:V1 FPB:S1
0x0c91cc…0c9360 Dummy {f00=0x003f, f01=0x0190, f02=»R : FPB:US > FPB:SH @ FPB:MN A 4 FPB:SN B H FPB:IF C FPB:KA D p FPB:CD F FPB:RP L TTABFM , ( #A 1 FM:ECB , , (
0x0c9360…0c94f4 (1, 54) Dummy {f00=0x0040, f01=0x0190, f02=» , ( A > A FM:BUF 8 a Z L SCTFWT ^ SCTNOF p SCTFWL , ( cH @ @ @ DWTST , ( } @R P % % @ I I N
0x0c94f4…0c9688 Dummy {f00=0x0040, f01=0x0190, f02=» x FMTASK ECBCW1 $ ECBBA 6 ECBRL F * & ]@ C A V C C V TTB:SA , ( w A T L ! P DFTAB * & P (P P D
0x0c9688…0c981c Dummy {f00=0x0040, f01=0x0190, f02=»E FM:RQE OPEN , ( A T W A X P W 2 , ( P T _ b , ( ' Y & J @! P X P @ VT @ V Y , ( G X !? ? W W @ A OPEXT ~ , (
0x0c981c…0c99b0 Dummy {f00=0x0040, f01=0x0190, f02=»P W V v , ( ($ A N X Y Y " V , ( V X T Y Y A NP F , ( _| (@ - $T 1 %_$ v , ( # Y (_ A X @ X TP <" _ , ( C X J @" P Y 9 @ J !
0x0c99b0…0c9b44 Dummy {f00=0x0040, f01=0x0190, f02=» X "? K > v DLCLO1 FREBLK * , ( Q 9 X P $(@ Y Y < DLCLO2 l DET:FM , ( W ! Y & , ( T K % Y % E , ( Y V + V
0x0c9b44…0c9cd8 Dummy {f00=0x0040, f01=0x0190, f02=» F " G , ( N 9 ! ^ R N " , ( ! N P N & N T R FMEXIT ECBRC * & S _ _& - M Z @ T G QMEXIT FCHEC2 , ( " ( @ V
0x0c9cd8…0c9e6c Dummy {f00=0x0040, f01=0x0190, f02=» . V C 0 C x ECBEL , ( A T B 2 P C P & , ( [ V ! T V U V ! V V FM:PWR FMREAD FM:IO , ( { _N A T 2_ W C . FNDNAM F
0x0c9e6c…0ca000 Dummy {f00=0x0040, f01=0x0190, f02=»2 , ( ! 6 : ,(@T X # X FNDVTC < , ( T V P _ A T : C 0 P FNDVT2 , ( $ T @ f @ b T , ( + V )! T B . * Y & CMPSTR ^ , (
0x0ca000…0ca194 (1, 55) Dummy {f00=0x0040, f01=0x0190, f02=» : Y : _ W $ - Y : ( H D ! , }R" P P v P, P& P4 ^ T Wp < H D ! P Wb P` T # X 3P 9P ?T" U [W aW k { v T P H D ! P P W T P, 4 T 9P QP cT uWz
0x0ca194…0ca328 Dummy {f00=0x0040, f01=0x405e, f02=» iU W T T T P 4 l T4 %T 3T O X yW ( H@ Z v P, P& P4 ^ T Wp < H D ! P Wb P` T # X 3P 9P ?T" U [W aW k { v T P H D ! P P W T P, 4 T 9P QP cT uWz
0x0ca328…0ca4bc Dummy {f00=0x0040, f01=0x0190, f02=» > @ IDENT LDTASK REL 11.0 81-06-10 870105041100 F B LT:DSK LT:SWB TTABLD QLTDSK QLTSWB QLTASK LD:ECB LD:BUF F LD:BUE PQEMTY LD:STB LD:ECB LD:BUF LD:BUE
0x0ca4bc…0ca650 Dummy {f00=0x0040, f01=0x018e, f02=»T:DSK J TLSEG1 , ( 7 $V " QMEXIT R PAGQUE d , ( W A ( @ v PAG:QB PAG:SB , ( o X H A ( 1 ) H P SEG:PB
0x0ca650…0ca7e4 Dummy {f00=0x0040, f01=0x018e, f02=» SEG:DS TTB:CB , ( " D $ u , ECBEL ECBCW1 l , ( ! <a >a C C ~ ECBCW2 ECBBA , ( C C " V ECBRL
0x0ca7e4…0ca978 Dummy {f00=0x0040, f01=0x0190, f02=» RELPA2 TTB:AP , ( ) $ ( F * t , U ( ( , ( ? _8 C " # C $ X , ( [ C S Y : QLTSWB LKMERR QLTDSK QLTASK
0x0ca978…0cab0c Dummy {f00=0x0040, f01=0x400e, f02=» @ TTB:AP , ( ) $ ( F * t , U ( ( , ( ? _8 C " # C $ X , ( [ C S Y : QLTSWB LKMERR QLTDSK QLTASK
0x0cab0c…0caca0 Dummy {f00=0x0040, f01=0x018e, f02=» > @ IDENT LKMAL REL 11.0 81-01-26 870105041100 LKMAL F LKMAL V bTIO h TWAIT v TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEG * & UT
0x0caca0…0cae34 (1, 56) Dummy {f00=0x0040, f01=0x4120, f02=» * & TCHPAG 6 TCHMMU H TSWBLK Z TMOVE l TENEDM | TLDPGM , ( ! " $ $ & ( TPAGAL 3 * , 6
0x0cae34…0cafc8 Dummy {f00=0x0040, f01=0x0190, f02=» > @ IDENT LRPINT REL 11.0 81-01-26 870105041100 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI LKMSRC IHRTC TIMQUE MONCLO F IHPFAR INIFLG PFPOST IHLKM INTSAV PRUN TTB:SA , ( A A
0x0cafc8…0cb15c Dummy {f00=0x0040, f01=0x0190, f02=» H ( ( P c P W SWL48 " , ( WH A V ( U 2 LKMAL b LKMERR r HALT LKMRQE LKMSRC , ( q! P @ V L LKMQDI QTJ
0x0cb15c…0cb2f0 Dummy {f00=0x0040, f01=0x0190, f02=» SAVE8 , ( @ A A Q DISQUE > , ( @ P , ( XX ) A A _d A A PFINIT IHRTC , ( $@ A _v A A Q > Q
0x0cb2f0…0cb484 Dummy {f00=0x0040, f01=0x417e, f02=» , ( Q R Y _ A _0 MEXIT 8 FREBLK H , ( q 8 Q Z P 0 9 Z , ( _ _, _ TIMQUE P H H H D ! ] 4 IP OP SW. cV
0x0cb484…0cb618 Dummy {f00=0x0040, f01=0x0190, f02=» > @ IDENT MONTAB REL 11.0 81-05-27 870105041100 & " MONTAB SPDLCI FREQUE PAGQUE F MONTAB p FREQUE PAGQUE SPDLCI KBAD4 TPAD GPAD DNAD DIAD
0x0cb618…0cb7ac Dummy {f00=0x0040, f01=0x40ac, f02=» GPAD04 VUAD GPAD3 " TPAD4 2 TNAD B , ( R % & @ SPDLCI KBAD4 TPAD GPAD DNAD DIAD
0x0cb7ac…0cb940 Dummy {f00=0x0040, f01=0x018e, f02=» > @ IDENT MONTIM REL 11.0 81-01-26 870105041100 GETTIM SETTIM TDATE F GETTIM f MONCLO z , ( @ < ? < ? <(@ C TTB:SA LKMQDI * & # P >_ < U =
0x0cb940…0cbad4 (1, 57) Dummy {f00=0x0040, f01=0x4090, f02=» , ( u Xv_< R _ 00 > & <h$ P > 4 | %P O SP R P V z@ @ < ? < ? <(@ C TTB:SA LKMQDI * & # P >_ < U =
0x0cbad4…0cbc68 Dummy {f00=0x0040, f01=0x0190, f02=» > @ IDENT MSUBS REL 11.0 81-01-26 870105041100 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXIT GETBLK FREBLK FNDDWT F H D ! FNDDWD FNDTID PFINIT SWL48 SWLXY ILLINT INTSAV HALT RELPAG , ( RELPA2 IHRET8 IHRET2 IHRET1 IHRTN
0x0cbc68…0cbdfc Dummy {f00=0x0040, f01=0x0190, f02=» ? ? ? $P T I QMJOB N " TTMJOB 4 ACTOTP X F , ( = R $ 5 % W Z ACTOT ` TTB:SA * & D Y W T T U U TTB:ID , ( s H U U T
0x0cbdfc…0cbf90 Dummy {f00=0x0040, f01=0x0190, f02=» 0 U r GETBLK FREQUE & , ( _n ? @ T 8 FREBLK h , ( 0 A 1 Q Q >W 0 @ | FNDDWT TTB:TD , ( 1 A P P W " ? X FND
0x0cbf90…0cc124 Dummy {f00=0x0040, f01=0x0190, f02=» W 8 X W ? ` @ ~ IHRET8 j , ( S @ @ P $ H W W 2 IHRET2 v b IHRET1 x v IHRTN z PFINIT PFTAB , ( m > > > > > > > > @ V SWL48 SWL
0x0cc124…0cc2b8 Dummy {f00=0x0040, f01=0x4128, f02=»Y ^ _ ~ RELPAG RELPA2 2 LKMERR F * & @@ A. X H D ! $ 5P ?R M t WW _W kT W T P T < 8 W Wp R !P 3R 9P AW6 IW. [P eW iW V
0x0cc2b8…0cc44c Dummy {f00=0x0040, f01=0x018e, f02=» > @ IDENT PFTAB REL 11.0 81-01-26 870105041100 PFTAB F PFTAB V TWON h TCDRON x SOPR CHLTON FDON LPON CRON DUON * & UT
0x0cc44c…0cc5e0 Dummy {f00=0x0040, f01=0x4094, f02=» VUON , ( X25:ON D ! " V $ n $ ~@ CHLTON FDON LPON CRON DUON * & UT
0x0cc5e0…0cc774 (1, 58) Dummy {f00=0x0041, f01=0x40a4, f02=» > @ IDENT SCLASS REL 11.0 81-01-26 870105041100 SCLASS F SCLASS X l ~ @ A CDON CDC DISC P DATA PLON LINE CONTROLLER P DATA VUON VIDEO P DATA X25:ON X25 L
0x0cc774…0cc908 Dummy {f00=0x0041, f01=0x0190, f02=» > @ IDENT SDMBUF REL 11.0 81-01-26 870105041100 D @ CURBUF BUFLNK BUFDMI BUFSNR BUFOR BUFSTA SDMGBU SDMRBU F D @ BLKMXL CLRBUF SDMINI SDMRLB CRNQUE CRBUFL CRNEND MXIND BLKMXL CRBUFL SDMGBU
0x0cc908…0cca9c Dummy {f00=0x0041, f01=0x0190, f02=» P A @ r HALT * & a Z @ P % P % T W " , ( Q Q Q Q A 1 : P SDMRLB ECBBA SDMRBU CLRBUF , ( (@ : B 1 : @ , CURBUF
0x0cca9c…0ccc30 Dummy {f00=0x0041, f01=0x0190, f02=» BUFSTA & @ Z t CRNQUE $ % CRN
0x0ccc30…0ccdc4 Dummy {f00=0x0041, f01=0x0190, f02=» & A $ z , ( @ , - M M M M @ , ( > =a 9a Q - _ - J ; > z H D ! T" P # ' )T - /T 7 9W = ?T E GT H D ! K O S UQ Y ] a g mP qP wT
0x0ccdc4…0ccf58 Dummy {f00=0x0041, f01=0x4012, f02=» @ z , ( @ , - M M M M @ , ( > =a 9a Q - _ - J ; > z H D ! T" P # ' )T - /T 7 9W = ?T E GT H D ! K O S UQ Y ] a g mP qP wT
0x0ccf58…0cd0ec Dummy {f00=0x0041, f01=0x0190, f02=» > @ IDENT SDMOCR REL 11.0 81-05-12 870105041100 & " SDMOPN SDMCLO SDMRFP OPEFPB F , ( I1M1I2M2I3M3I4M4 p , ( ! , ( A a
0x0cd0ec…0cd280 Dummy {f00=0x0041, f01=0x0190, f02=» P P p SDMOPN DWTECB $ * & @ L <a Q _ I ^ N 6 ECBBA d MOVFW t FPB:BO , ( H D u R % =N FPB:SH , ( @ 1 A ^ R % S S
0x0cd280…0cd414 (1, 59) Dummy {f00=0x0041, f01=0x0190, f02=» _ N ~ FPB:EL FMIORF . ECBRC @ , ( R R # S N P FPB:FO , ( @ I T S S FPB:US FDBEXC FDBOMD , ( H T R
0x0cd414…0cd5a8 Dummy {f00=0x0041, f01=0x0190, f02=» h CRNGET CRNSTA , ( W W * I , W , FDBMEC FDBECB n , ( G . 0 FPB:RL FDBRLE , ( @ 5 R ] 0_ @ ^ O ( R 2 F
0x0cd5a8…0cd73c Dummy {f00=0x0041, f01=0x0190, f02=» e H : O < R : O < O > O FDBMIA , FPB:KA > FDBKA P * & { @ > V , O @P R B V J O ` FWTVOL DFTAB , ( D R ;H O ( N F Y DMTIDP FDBDMI C
0x0cd73c…0cd8d0 Dummy {f00=0x0041, f01=0x0190, f02=» J O & :FV | * & H@ J T O $ " N " P S * & S @ S N (:n S J COSZEN x ECBRL * & H V : 2 J P ECBEL , ( D X U Q Z P
0x0cd8d0…0cda64 Dummy {f00=0x0041, f01=0x0190, f02=»FDB , ( m _ j " A J T ` FDBCRL < , ( * b N CRNQUE ~ , ( , , % @ d ) A d(@ : N , ( # J X X B U B SDMERX SDM
0x0cda64…0cdbf8 Dummy {f00=0x0041, f01=0x0190, f02=»T j SDMRLB CRNCDF , ( I O j l * I , I n . ECBFC ^ , ( H I n F p R n , ( 7D P P L @ L < < , ( QJ M U , U " <a Q Q <B 6 8_H ORDFLP
0x0cdbf8…0cdd8c Dummy {f00=0x0041, f01=0x0190, f02=» Q ?A "P FWTPAR " FDBEAL 4 TASHLT F , ( $ t(@ N v%? T N x z X * & b 4 5W P 0 @ d 1 A , ( B d(@_ ?B 6 S : 8 S : CLRBUF FMIOCL *
0x0cdd8c…0cdf20 Dummy {f00=0x0041, f01=0x40b8, f02=»TN T. R P. ^ H D ! R R W W W W W + p 7R P V P #U STd YR U 8 4 V T 'RD ;P V P P P@ T* W P P f 2 @ B d(@_ ?B 6 S : 8 S : CLRBUF FMIOCL *
0x0cdf20…0ce0b4 (1, 60) Dummy {f00=0x0041, f01=0x0190, f02=» > @ IDENT SDMSUB REL 11.0 81-05-22 870105041100 D @ RELPRO MOVBW EATEST EASETB EARELB CRNGET CALSNO GTBKBU F D @ CARRBL CRRBL FMIOOP FMIOCL FMIORD FMIORF FMIOWR FMIODL F B FMIOCR FMIOEX FRMFIL FORMAT FORMER RLBLKB
0x0ce0b4…0ce248 Dummy {f00=0x0041, f01=0x0190, f02=» .! P (@ MOVBW & ( EATEST : : FDBEAL N * & : : : ; Z $ )_ N ` FDBTNR , ( = W ,P M L L O EASETB j GETBLK , ( Y P W
0x0ce248…0ce3dc Dummy {f00=0x0041, f01=0x0190, f02=»T j FREQUE , ( @" N Q , 0 5 @ 1 A CRNGET L FDBCRL ` CRNTID r , ( ZB : (P N I CRNQUE HALT CRBUFL , ( D W @ T (
0x0ce3dc…0ce570 Dummy {f00=0x0041, f01=0x0190, f02=» (@ : [ N ~ FDBBLZ , ( - @ S P W N U N . MPYMOD ^ FDBSNR p * & I S W O O FDBRLE EOMERR FDBRRO , ( a P N _
0x0ce570…0ce704 Dummy {f00=0x0041, f01=0x0190, f02=»W W W W z FMIOCR FMIORF . FMIORD B ECBCW V , ( W W W ( N C & f DWTECB ECBRC RETRIE , ( I N C & N ( B *P T ECBBA
0x0ce704…0ce898 Dummy {f00=0x0041, f01=0x018e, f02=» ECBRL * & 2 4 N 6# # N =H C SDMGBU B * & H 8 N N : C & C T , ( & 0 C . T N $ FRMFIL & FORMAT & FORMER & RLBLKB & CAS
0x0ce898…0cea2c Dummy {f00=0x0041, f01=0x0190, f02=» , ( ? :h# P ;G < : CHKKEY l 4 RDNXTR l H FNDKEY l CRNUPD l p GTLGRN l CRNCIF l RECECB l " ] 0 N % : : H D !@ P ?W CP YP _W P<
0x0cea2c…0cebc0 Dummy {f00=0x0041, f01=0x4020, f02=»P ~ n @ < : CHKKEY l 4 RDNXTR l H FNDKEY l CRNUPD l p GTLGRN l CRNCIF l RECECB l " ] 0 N % : : H D !@ P ?W CP YP _W P<
0x0cebc0…0ced54 (1, 61) Dummy {f00=0x0041, f01=0x0190, f02=» > @ IDENT SDMTSK REL 11.0 81-05-13 870105041100 SDMTSK SDMERX ORDFLP F SDMOPN h SDMCLO z ORDFLP SDMRFP , ( ( SDMTSK & PRUN
0x0ced54…0ceee8 Dummy {f00=0x0041, f01=0x0190, f02=» 5 N % R FDBRRO , FDBADF > FDBKA P , ( M DP 2=b T O N R N Q ` OPEFPB , ( g B N '? DWTOPT , ( @ T T N #
0x0ceee8…0cf07c Dummy {f00=0x0041, f01=0x018e, f02=» ECBCW , ( F $ & Q G EATEST D CALSNO V , ( H ( G ( F ( F ( * h FDBDBR SDMRLB FDBOMD , ( B , N .# T 0_ SDMOOS
0x0cf07c…0cf210 Dummy {f00=0x0041, f01=0x0190, f02=» FDBTNR RELPRO PROERR ( * & ; 6W 8W N :# < : , ( Q " >W N N F $ h FMIOWR , ( gB & + N .V O .W CRNGET , ( @T B F (
0x0cf210…0cf3a4 Dummy {f00=0x0041, f01=0x0190, f02=» K DW p SDMOIP SDMIOP " * & I O F O F N 2$ HP 4 EASETB b , ( JT *T L N .$ T t SDMERX TENDIO , ( H 0 N N(@( N * & '? T
0x0cf3a4…0cf538 Dummy {f00=0x0041, f01=0x0190, f02=»UFSNR * & E! R P T' P Q T' T P V C SDMRBU < FMIORD N , ( ] D ( P V C ( @T X_b ` , ( sD ZT B $W O . W , ( D : F ( F ( + :
0x0cf538…0cf6cc Dummy {f00=0x0041, f01=0x40e0, f02=»P P P Z H D ! T W #P 'P -R 5P6 7W =W CW SW sV }W Tp P8 P, P0 H D ! T V W W P T T T T 'R )Q /U 7WV ER, MP8 UT( b kT wT }W W @
0x0cf6cc…0cf860 Dummy {f00=0x0041, f01=0x0190, f02=» > @ IDENT ST8000 REL 11.0 81-01-26 870105041100 ST8000 F ST8000 X IHPFAR l IHLKM ~ IHRTC ILLINT IHTW IASCUZ , ( IHS
0x0cf860…0cf9f4 (1, 62) Dummy {f00=0x0042, f01=0x4144, f02=» r , ( ! , ( 1 B , ( A r , ( Q , ( a ( $ q
0x0cf9f4…0cfb88 Dummy {f00=0x0042, f01=0x0190, f02=» > @ IDENT SYSINI REL 11.0 81-01-26 870105041100 F B SYSINI INILEN INIEND dREL MOVE ERROR CMPADR NXTBLK NXTCOM F H D ! CONVRT GETNUM MULT XMOVE MOVING MOVMMT MMRST GETTAB GETTTB H D ! MMENT PUSH dPOB GETAPP SETTAB INBIMA Q
0x0cfb88…0cfd1c Dummy {f00=0x0042, f01=0x018e, f02=» n " tPSW @ " , ( K @ ; Z [ : : 2 [ [ 2 MMDDIV l b MMTAB l v TABBE v MMEND v LSTPAG MMBEG ERROR ~ , ( i" 2 : A
0x0cfd1c…0cfeb0 Dummy {f00=0x0042, f01=0x0190, f02=» f MOVE MOVING , ( > > > : R $ )_ : . , ( @ @ V " ^ , ( V ~ Z A XMOVE " SETTAB " CMPADR " MULT 2 ,
0x0cfeb0…0d0044 Dummy {f00=0x0042, f01=0x0190, f02=» L t SCTTCT , ( S 2 @ V @ ~ 0 H $ INBIMA | T MMRST ~ h GETAPP ~ z , ( o A 2 : : @ , ( ` U W L P _ @ P , ( _"
0x0d0044…0d01d8 Dummy {f00=0x0042, f01=0x0190, f02=» ;h 0 :C # : .=H N , ( " 2 .=H N * GETNUM 4 Z , ( ! 2 N : d 8" n QUEJOB R SAVE8 , ( A R _ ZY QY : ? ? , ( a@ R
0x0d01d8…0d036c Dummy {f00=0x0042, f01=0x018e, f02=» _ : @ ~ , ( < | @ 4 W AST * & ? ? > | L , ( ] ] YF z SCTBUG SCTSTB , ( A. @ @ PFINIT
0x0d036c…0d0500 Dummy {f00=0x0042, f01=0x0190, f02=» SCTOPT , ( C $ ) _ > @ , ( ] P P " " " F , ( {@ P 8 P X Z v , ( = _ " Q Q 6 X Q , ( 4_H NW
0x0d0500…0d0694 (1, 63) Dummy {f00=0x0042, f01=0x40a4, f02=»V " %V )W aV U b H D ! WB P P P CR U yR T" & J ; N ? aP i j kPz l P6 P W$ j @ ( = _ " Q Q 6 X Q , ( 4_H NW
0x0d0694…0d0828 Dummy {f00=0x0042, f01=0x018e, f02=» > @ IDENT SYSLBA REL 11.0 81-01-26 870105041100 STKCOM F GETAPP X ACBLAC j , ( BA A T @ | ACBIOE STKEND , ( A" J ( H K K A SCTSF
0x0d0828…0d09bc Dummy {f00=0x0042, f01=0x0190, f02=» , ( a @ BASIC MOVING 8 , ( }DH @ d @ A J TTB:CB z TTB:SA , ( 1 U T U @ , ( ;! Q Q @ Q 1 Q , ( Q
0x0d09bc…0d0b50 Dummy {f00=0x0042, f01=0x0190, f02=» SAVE8 ACTOT RETUR8 , ( #"$ ? @ : 0 bREL ` , ( ;BH @ @ @ n MOVE , ( S " @ J ACBMMC ACBNPE , ( i
0x0d0b50…0d0ce4 Dummy {f00=0x0042, f01=0x4048, f02=» r $ n T 9 r e m r 8 A N 2@ D : 0 bREL ` , ( ;BH @ @ @ n MOVE , ( S " @ J ACBMMC ACBNPE , ( i
0x0d0ce4…0d0e78 Dummy {f00=0x0042, f01=0x0190, f02=» > @ IDENT SYSTAB REL 11.0 81-04-07 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
0x0d0e78…0d100c Dummy {f00=0x0042, f01=0x0190, 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
0x0d100c…0d11a0 Dummy {f00=0x0042, f01=0x0190, f02=»WB:EL SWB:NS ACBIOE $ ACBSWB 8 ACBSEG L ACBNPE ` ACBMMP t ACBMMC ACBLAP ACBLAC ACBSTA ACBREL ACBADA IHPFA
0x0d11a0…0d1334 (1, 64) Dummy {f00=0x0042, f01=0x0190, f02=» IHSOP CHLT1 IHFD $ CHRT1 4 , ( D CHRT2 t CHRT3 CHRT4 IHCC1 IHCC2 IHCC3 , ( ! C
0x0d1334…0d14c8 Dummy {f00=0x0042, f01=0x0190, f02=» , ( A ( * IHDU2 8 IHMT H IHCD X , ( Q , . 0 h , ( a 2 , ( q HALT
0x0d14c8…0d165c Dummy {f00=0x0042, f01=0x0190, f02=» SCTCDT , ( @ SCTPAG L SCTNOP ` SCTPSZ t SCTSTB SCTOPT bBUG SCTBUG SCTDMT SCTDMI SCTFWT
0x0d165c…0d17f0 Dummy {f00=0x0042, f01=0x4108, f02=» 6 SCTMXS & SCTMOX : STKEND N b STKMOV Z v STKCOM h [ $ ) _ _ @
0x0d17f0…0d1984 Dummy {f00=0x0042, f01=0x0190, f02=» > @ IDENT TABORT REL 11.0 81-01-26 870105041100 TABORT F TABORT X FNDDWT l DWTTAB ~ DWTADR ABTADR * & "R P X T X DWTST DWTECH * &
0x0d1984…0d1b18 Dummy {f00=0x0042, f01=0x40fa, f02=» h DWTECB ECBRC DWTSB2 * * & IH Y 9 C < DISEND j LKMRQE | " _ @ , ( Rf P^ TX PJ %RD )V 7T ?P* GP n @ H * &
0x0d1b18…0d1cac Dummy {f00=0x0042, f01=0x40a4, f02=» > @ IDENT TCLASS REL 11.0 81-01-26 870105041100 TCLASS F TCLASS X l ~ @ IO AND TDISP P* 0 PTABRQE ABL LKMRQE GO AND INDICATE LKM ERROR P* P*
0x0d1cac…0d1e40 Dummy {f00=0x0042, f01=0x0190, f02=» > @ IDENT TDISP REL 11.0 81-01-26 870105041100 ! H D ! TDISP TPAUSE TEXIT MEXIT QMEXIT ACTDIS DISIOE DISEND DISQUE ! F PRUN RETUR8 ! DISQUE ! PRUN ! RETUR8 ! QTJOB ! QMEXIT !
0x0d1e40…0d1fd4 (1, 65) Dummy {f00=0x0042, f01=0x0190, f02=» DISIOE 0 ! TENDIO " DISEND 4 " & TPAUSE 8 " : , ( A W W " N TDISP 8 " ~ TTB:ST " , ( 9 ^ ! Z@ (XH @ P T " , ( W@ M ]X , ) A P P Y U " TTB
0x0d1fd4…0d2168 Dummy {f00=0x0042, f01=0x413a, f02=» [ [ " t TTB:PW # , ( [ [ > > [ [ # & , ( @ Z Z ? ? Z Z # V , ( I$ Z Z Z Z Z # * & H # > # )W
0x0d2168…0d22fc Dummy {f00=0x0042, f01=0x0190, f02=» > @ IDENT TIMER REL 11.0 81-01-26 870105041100 $ TIMER SETIME SETIMP $ F TIMER $ f TDISP $ x FNDTID $ LKMRQE $ , ( $ T $ GETBLK $ LKMQDI $ , ( B
0x0d22fc…0d2490 Dummy {f00=0x0042, f01=0x4106, f02=» 9 " _ $ , ( Q ^ 4 _ % , TIMQUE % IHRET8 % n , ( o @ 1 A _ P 9 % % ( $ ~ T J : - 4 1 J 3 > P % % @ % B
0x0d2490…0d2624 Dummy {f00=0x0042, f01=0x0190, f02=» > @ IDENT TIOADM REL 11.0 81-02-10 870105041100 & TIOADM & F TIOADM & X DWTTAB & l , ( ! ! !9!:! " & ~ FNDFDB & DWTOR & , ( !A X "" 1 X & FDBST
0x0d2624…0d27b8 Dummy {f00=0x0042, f01=0x0190, f02=»P P P B & x ECBRL ' FDBRLE ' ( FDBOMD ' : , ( qA" B U T B X T X ' L ADMTSK ' | DMACTI ' ECBBA ' , ( $# ;a L P T ' FPB:BO ' FPB:FO ' , (
0x0d27b8…0d294c Dummy {f00=0x0042, f01=0x4094, f02=» ' $ ( H D ! =R MRN SPr YP _Tf cPf gPj kP uUP yT TB P2 T$ Q Q P ( " P ( n ( ~@ ( CTI ' ECBBA ' , ( $# ;a L P T ' FPB:BO ' FPB:FO ' , (
0x0d294c…0d2ae0 Dummy {f00=0x0042, f01=0x0190, f02=» > @ IDENT TIODM REL 11.0 81-02-23 870105041100 ) D @ TIODM DMTEND DMTTSB FDBOMD FDBENL FDBEXC FDBECB FDBSNR ) F F B FDBRRO FDBRLE FDBBLF FDBTNR FDBLRN FDBNIF FDBEAL FDBCRL ) D @ FDBKA FDBMIA FDBADF FDBAI1 CRNTID CRNCDF
0x0d2ae0…0d2c74 (1, 66) Dummy {f00=0x0043, f01=0x0190, f02=»S EOFRC NODERR PROT KEYERR ) j D @ PROERR REQERR LGTERR EOFERR EDMERR TTABD TTABLN TABEND * & F B DMXACD DMACTI DMACTD DWTPAB MOV:SU MOV:US FINDTT FNDFDB * n F B ENLFAC TOTSIZ RTNA14 SETCRO CONENL COSZEN SIZDIF SDMSTS * & " SDM
0x0d2c74…0d2e08 Dummy {f00=0x0043, f01=0x0190, f02=» PROERR * REQERR + REQER2 + & LGTERR + : EDMERR + N EOFERR + b RETRIE + v NOKEY + NXTKYS + EOFRC + SIZDIF + TTABD + TTABLN + TABEND
0x0d2e08…0d2f9c Dummy {f00=0x0043, f01=0x0190, f02=»1 + DWTPAB , , ( , FDBMEC , P FDBECB , , d FDBOMD : , x FDBLRN ; , FDBRLE > , FDBENL @ , FDBEXC B , FDBSNR D , FDBRRO H , F
0x0d2f9c…0d3130 Dummy {f00=0x0043, f01=0x0190, f02=» FDBMIA T , FDBADF V - FDBAI1 X - & FDBDBR ` - : FDBDMI a - N FDBMRO b - b FDBKEY d - v CRNTID - CRNSTA - CRNCDF - TIODM . - DMACTI 0 - TASHLT 0 - HALT
0x0d3130…0d32c4 Dummy {f00=0x0043, f01=0x412e, f02=»SP - DMACTD D . FNDFDB D . MOV:US D . 2 MOV:SU D . F FINDTT D . Z RTNA14 D . n SETCRO D . COSZEN D . ENLFAC D . CONENL D . TOTSIZ D . =H _ .
0x0d32c4…0d3458 Dummy {f00=0x0043, f01=0x0190, f02=» > @ IDENT TIOEDM REL 11.0 81-03-31 870105041100 / H D ! TIOEDM TIOECR TENEDM PABORD PABFC PABBA PABRL PABCW1 PABCW2 / F PABORD / PABFC / PABBA / PABRL / PABCW1 / PABCW2 / T
0x0d3458…0d35ec Dummy {f00=0x0043, f01=0x0190, f02=» TTB:SA / , ( ! P X " 5 X U " U 0 ECBBA 0 B ECBRL 0 R ECBCW1 0 b ECBCW2 0 t , ( 3! B U B U B U 0 , ( M@ B U $D P % ! 0 DFTABL 0 FWTVOL 0
0x0d35ec…0d3780 Dummy {f00=0x0043, f01=0x0190, f02=» P H P L D 0 , ( W X < , T - 1 TIOECR 1 P TASHLT 1 d DISIOE 1 v LKMRQE 1 , ( M T % E " 1 SCTMOX 1 , ( H $ @ & 0 X" 0 P 1
0x0d3780…0d3914 (1, 67) Dummy {f00=0x0043, f01=0x0190, f02=» * & ! V T ? V ,W . 2 , ( Xb P U X Y 2 2 LKMQDI 2 b SCTNOF 2 t SCTFWT 2 , ( 7H Y 0? T ZvP @ 2Y~ 2 , ( O@ 4 8 Y V 2 DWTECB 2 ,
0x0d3914…0d3aa8 Dummy {f00=0x0043, f01=0x018e, f02=» 2 j MOVUU 3 ECBEL 3 , ( I$ T 8 6 T C : T 3 * ECBRC 3 Z * & H C < T C T C 3 j DISEND 3 , ( H ? V , > 6 "" 3 SCTCDT 3 , ( H P 0
0x0d3aa8…0d3c3c Dummy {f00=0x0043, f01=0x405e, f02=» 3 J < 8 W 'P GP6 aV i V W V V P P P 'P 4 . 4 H@ 4 ZCBRC 3 Z * & H C < T C T C 3 j DISEND 3 , ( H ? V , > 6 "" 3 SCTCDT 3 , ( H P 0
0x0d3c3c…0d3dd0 Dummy {f00=0x0043, f01=0x0190, f02=» > @ IDENT TIOFM REL 11.0 81-05-13 870105041100 $ TIOFM DET:FM FCHECK FCHEC2 F TIOFM n , ( " 2 P P P P P P , ( ! P P T T T W FWTTAB TIOERR F
0x0d3dd0…0d3f64 Dummy {f00=0x0043, f01=0x0190, f02=» [H P @ & ECBCW2 . ECBCW1 @ , ( uI B B T P & T R FWTEW1 EWTEXL , ( ! L L R Q EWTEXB , ( U V , , " _ ,
0x0d3f64…0d40f8 Dummy {f00=0x0043, f01=0x0190, f02=»Q R R P | DWTST QUEDEV , TIO:FM > * & $H X " P * & $ _L _< _< ~ GETBLK FCHECK D FCHEC2 F , ( / & _
0x0d40f8…0d428c Dummy {f00=0x0043, f01=0x4186, f02=» g ,P X .R :AV ' X > T DET:FM . QTJOB B , ( > > P X P 4 R & " B 0 Y Y > H D ! R PX PD PP PL PH P2 !P, %P )T - D /T 3 7T =W A D CT$ H D ! e D gP T
0x0d428c…0d4420 Dummy {f00=0x0043, f01=0x0190, f02=» > @ IDENT TIOSDM REL 11.0 81-02-26 870105041100 9 F B TIOSDM SDMOIE SDMIOP SDMOEE SDMOOS SDMOOR SDMLIM SDMOEX 9 F SDMOIP 9 SDMOEX 9 DISIOE 9 , ( 9 , ( I$
0x0d4420…0d45b4 (1, 68) Dummy {f00=0x0043, f01=0x0190, f02=» SDMOEE : SDMOOS : SDMOOR : , SDMLIM : @ , ( I > ? ? ! ! !9!:!R! !2! " " : T TIOSDM : , ( i @ : DWTOR : , ( ~ N R ;A 09kP :
0x0d45b4…0d4748 Dummy {f00=0x0043, f01=0x018e, f02=»WTTAB : FDBSTA ; FDBEXC ; , ( N R XH N P ; 2 SCTTCT ; b FDBTNR ; t , ( R @ $ :a P $ O W ; TTABD ; TTABLN ; TABEND ; CRNGET ; , ( !
0x0d4748…0d48dc Dummy {f00=0x0043, f01=0x0190, f02=» ECBCW < , ( @ G J N " N W W B < LGTERR < D ECBRL < V , ( c B " B " $ B &U W < f EDMERR < FPB:FR < , ( y"$P ( Q W $ * B < FDBRRO < , ( &
0x0d48dc…0d4a70 Dummy {f00=0x0043, f01=0x0190, f02=» Q N N T < ~ , ( T W B " B " <X C " = FDBADF = N EATEST = ` , ( I C " B " B " 2 4 = r CALSNO = SDMTSK = DMACTD = DMACTI = , ( B R 6T 8
0x0d4a70…0d4c04 Dummy {f00=0x0043, f01=0x0190, f02=»_ :a *P ^ : = FDBAI1 > DWTECB > 2 * & Y Q : N ?j DP N > D * & s @ F ] F N ] : > r H D ! t t t t t t t t J ! % ) > H D ! " - 1 Z 5 ` 9 = A
0x0d4c04…0d4d98 Dummy {f00=0x0043, f01=0x4032, f02=» R T KP YQ oP > ? @ ? . DWTECB > 2 * & Y Q : N ?j DP N > D * & s @ F ] F N ] : > r H D ! t t t t t t t t J ! % ) > H D ! " - 1 Z 5 ` 9 = A
0x0d4d98…0d4f2c Dummy {f00=0x0043, f01=0x0190, f02=» > @ IDENT TLDPGM REL 11.0 81-01-26 870105041100 @ TLDPGM @ F TLDPGM @ X TTB:SP @ l TTB:SB @ ~ SCTTCT @ , ( $ T T P U U @ ( @ SEG:NS @ LKMQDI @ , ( P ( P
0x0d4f2c…0d50c0 Dummy {f00=0x0043, f01=0x0190, f02=» A @ l TTB:SA A SCTFWT A SCTFWL A 0 , ( M B @ P @ A B LD:BUF A r FWTEXB A * & c$ _ A A H A , ( { & T T A FWTVOL A
0x0d50c0…0d5254 (1, 69) Dummy {f00=0x0043, f01=0x0190, f02=» $ % % % E A QMEXIT B * LD:BUE B < , ( _( $ U _ &T B N * & H ( : B ~ , ( ( @ P ' _> B , ( 9 V XN : @ P < D B
0x0d5254…0d53e8 Dummy {f00=0x0043, f01=0x40e8, f02=» SEG:EL B , ( * D P D ,P _ U C : C @ H D ! T. P$ P )W 5 D ]P w T D T PX PJ QD R$ C R 0 , T +P 9V OP, {W P P C C @ C XN : @ P < D B
0x0d53e8…0d557c Dummy {f00=0x0043, f01=0x0190, f02=» > @ IDENT TLDSEG REL 11.0 81-01-26 870105041100 D TLDSEG TLSEG1 TLSEG2 D F TLDSEG D h TTB:SP D | SEG:NS D LKM030 D , ( B T R L U 9C D TTB:SB D SEG:DS D
0x0d557c…0d5710 Dummy {f00=0x0043, f01=0x409a, f02=» TTB:SA E , ( 5I$ D u T T T T E K T T > E F R U %T /W E h V E @ E LKM030 D , ( B T R L U 9C D TTB:SB D SEG:DS D
0x0d5710…0d58a4 Dummy {f00=0x0043, f01=0x0190, f02=» > @ IDENT TMMLKM REL 11.0 81-01-26 870105041100 F TCHPAG TCHMMU TLUSEG F F TCHPAG F h TTB:MT F | LKMQDI F TCHMMU F FNDTID F , ( $' "?:B ] F TLUSEG & F
0x0d58a4…0d5a38 Dummy {f00=0x0043, f01=0x406e, f02=»T -_> F p RELPAG G Q - _H G " P -U 3U IT G < X G X@ G jPAG F h TTB:MT F | LKMQDI F TCHMMU F FNDTID F , ( $' "?:B ] F TLUSEG & F
0x0d5a38…0d5bcc Dummy {f00=0x0043, f01=0x0190, f02=» > @ IDENT TMOVE REL 11.0 81-05-21 870105041100 * & TMOVE MOVSS MOVSU MOVUS MOVUU MOVFW F TMOVE t LKMQDI MOVFW , ( (@ U ; [ MOVUS 8 MOVSU 8 MOVUU 8
0x0d5bcc…0d5d60 Dummy {f00=0x0043, f01=0x4098, f02=» _ P $ ) W X $ ) $ Y W Zb > > > > " 4 0 8 U )W ;UX IP, MP, YU. ]R kP uW W J @ MOVFW , ( (@ U ; [ MOVUS 8 MOVSU 8 MOVUU 8
0x0d5d60…0d5ef4 (1, 70) Dummy {f00=0x0044, f01=0x0190, f02=» > @ IDENT TOSSIO REL 11.0 81-04-13 870105041100 J J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN DC:MOT TIOMXI J F H D ! MONMMU ECBFC ECBFN ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1 ECBCW2 J F B DC:DIX DM:DIX PC:DIX MX:DIX KB:DI
0x0d5ef4…0d6088 Dummy {f00=0x0044, f01=0x0190, f02=»T DWTOR DWTOCH DWTADR DWTTAB DWTWAT J t D @ DWTTQ DWTOTQ DWTUEC DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 K 0 F B DWTSB2 DWTTP DWTECH DWTSQ DWTORD DWTNVL DWTVOL DWTA7 DWTA8 K x > : DWTCP2 DWTLD1 DWTLD2 DWTDEV DWTTBU DWTTLN DWTTCW K D
0x0d6088…0d621c Dummy {f00=0x0044, f01=0x0190, f02=»ADR K DWTTAB L DWTWAT L " DWTTQ L 6 DWTUEC L H DWTMEC L DWTOTQ L p DWTA2 L DWTA3 L DWTA4 L DWTA5 L DWTSB1 L DWTSB2 L DWTTP L
0x0d621c…0d63b0 Dummy {f00=0x0044, f01=0x0190, f02=» DWTDEV * L DWTTBU * M DWTVOL * M & DWTECH , M : DWTTLN , M N DWTTCW . M b DWTSQ : M v BUFLEN M ACTADR M ABTADR M INTADR M POLADR M HDRLEN M RECAD
0x0d63b0…0d6544 Dummy {f00=0x0044, f01=0x0190, f02=»T:DIX M DK:DIX N ECBFC N $ ECBFN N 6 ECBBA N H ECBRL N Z ECBEL N l ECBRC N ~ ECBCW N ECBCW1 N ECBCW2 N MONMMU N TIOERR N LKMQDI N Q
0x0d6544…0d66d8 Dummy {f00=0x0044, f01=0x0190, f02=» FNDDWT N , ( ^ 5 ) P U O |TIO 6 O B TIO:FM : O R , ( 7@ XH XF O f , ( U Y @ P R T X ,P Xh O , ( u I Y # C C # P O GETBLK O , (
0x0d66d8…0d686c Dummy {f00=0x0044, f01=0x0190, f02=»C:MIN O SAVE8 P , ( > (@ X L U L Q L P , ( # T R < 5 ^ R < 5 P P , ( Y X L P ( L P IHRET8 P DC:MOT < P IHRTN P TENDIO @ P , ( / H ) 1
0x0d686c…0d6a00 Dummy {f00=0x0044, f01=0x40fa, f02=» # P 0 1 Y P FREBLK Q * ACTOTP Q < " $ _ Q N H D ! P +P = ]P eT kP P T P W U0 QL T R R @ Q t #P QP qP2 }P" P P Q Q @ Q / H ) 1
0x0d6a00…0d6b94 (1, 71) Dummy {f00=0x0044, f01=0x0190, f02=» > @ IDENT TPAGAL REL 11.0 81-01-26 870105041100 R TPAGAL R F TPAGAL R X PAGQUE R l TTB:ID R ~ PAG:QB R * & @ @ P T R PAG:SB R , ( @ % D P 1
0x0d6b94…0d6d28 Dummy {f00=0x0044, f01=0x4144, f02=»RQE R SCTNOP S , ( ID @ 9c U Z S , ( aBH @ Y 9C @ D ] d S N , ( y Y$ P T $X2_V T $T % S ~ RELPA2 S , ( $ E D U T S (@ R S $
0x0d6d28…0d6ebc Dummy {f00=0x0044, f01=0x0190, f02=» > @ IDENT TPROC REL 11.0 81-03-05 870105041100 T TWAIT TMWAIT TACTOT T F FNDDWT T f TWAIT T x DWTWAT T TDISP T TACTOT T FNDTID T , ( @ P "R Y T QTJ
0x0d6ebc…0d7050 Dummy {f00=0x0044, f01=0x413e, f02=» <U "R P X T DWTTAB U ( , ( M R X T X T . T U : , ( gA G Y6 G _f P U j LKMRQE U LKMQDI U & " ,P - _ U < 8 P R Pp -Pb 9UR AR4 IPB
0x0d7050…0d71e4 Dummy {f00=0x0044, f01=0x4140, f02=» > @ IDENT TSWBLK REL 11.0 81-01-26 870105041100 V TSWBLK V F TSWBLK V X TTB:AP V l ACBSWB V ~ LKMRQE V , ( H T D T $ $Y V QLTSWB V TDISP V " @ $ %Y
0x0d71e4…0d7378 Dummy {f00=0x0044, f01=0x018e, f02=» > @ IDENT TTMJOB REL 11.0 81-01-26 870105041100 W F B TTB:AM TTB:MT TTB:CB TTB:SP TTB:SB TTB:AP TTMJOB TTB:QL W F 6 2 TTB:ID TTB:ST TTB:PP TTB:PW TTB:SA TTB:TD W TTB:AM W TTB:MT W TTB:CB W
0x0d7378…0d750c Dummy {f00=0x0044, f01=0x40ba, f02=» TTB:PP X TTB:PW X TTB:SA X , , ( #M 1 X @ TTB:TD ( X p ! X 0 X @ X TTB:TD W TTB:AM W TTB:MT W TTB:CB W
0x0d750c…0d76a0 Dummy {f00=0x0044, f01=0x0190, f02=» J F IDENT DEBUG REL 11.0 81-01-26 870105041100 dBUG R |BUG ` , ( A @ ~ A p , ( ! A ~ @ A A @ A , ( A A @ A A @ A a
0x0d76a0…0d7834 (1, 72) Dummy {f00=0x0044, f01=0x0190, f02=» , ( $ ( , 0 4 , , ( 8 < , ( - , ( M , ( m 2
0x0d7834…0d79c8 Dummy {f00=0x0044, f01=0x0190, f02=» T <a Z _ = | , ( :A , >a @ t , ( " A P UW B L , ( - @ = / M Q | , ( M R S T Y G P H L , ( m V I U _v A
0x0d79c8…0d7b5c Dummy {f00=0x0044, f01=0x0190, f02=» l , ( . , + - ; # , ( $ X " H W X " H < TTB:AP l ACBREL ~ * & - H A W W L H , ( $ I A A _l @ P A 1+X , ( B g A _ @ A
0x0d7b5c…0d7cf0 Dummy {f00=0x0044, f01=0x0190, f02=» ( ^ @ P A A " z @ , ( @ T @ W @ A 0 , ( W W 0 _, ` , ( I % W W P @ & , ( E 0 T A _R , ( e
0x0d7cf0…0d7e84 Dummy {f00=0x0044, f01=0x0190, f02=» , ( A ;a ]@ 1 _L , ( @ W @ $ t 0 P , ( % W A W @ A , ( E P 3P z C @ , ( e P @ @ P @ Q A
0x0d7e84…0d8018 Dummy {f00=0x0044, f01=0x0190, f02=» P p , ( ! PP _ @ , ( U z @ @ @ P @ , ( T % @ A 9 Y p , ( E >a Y T c A ~ A " , ( e z A <a P T A , (
0x0d8018…0d81ac Dummy {f00=0x0044, f01=0x0190, f02=» z @ ! T A @ , ( T A # A 0 , ( U % RE RN ME MN W R ( T ` , ( E ( W P T $ ; V ; , ( e W &~ P &`P 6 P @ t$ P $ , ( T
0x0d81ac…0d8340 Dummy {f00=0x0044, f01=0x0190, f02=» W ^ , ( P _ " ^ T @ v9J , ( @ % A xT _ 1@ _ ^ 9 V P , ( E >! D A A > , ( e > > > > > > > ^ _ , ( ^ _ ? ? ? ? ? A ^
0x0d8340…0d84d4 (1, 73) Dummy {f00=0x0044, f01=0x0190, f02=» ? ? ? p , ( > A t > A A ^ , ( % " , , A A :B A Q ( @ , ( E P _ # # H A " A p , ( e 0R 9U AR FQ 0 , ( :D A _* A " A , (
0x0d84d4…0d8668 Dummy {f00=0x0044, f01=0x0190, f02=» , " 0 " 1 " ! R :W , ( % W W W ?W /W : A 0 , ( E W ! A A P _ @ _ ` , ( e I T , ( " T A P I T ! A A A , ( d A h A l A p A
0x0d8668…0d87fc Dummy {f00=0x0044, f01=0x0190, f02=» ~T @ P A W ` @ , ( * % @ P @ T 4 A zP E E A x< V A x P H D ! ! - 1 = A M Q ] a X i ( @ p H D ! $ R @ @ ( P W % @ ) $ - 1 & H D
0x0d87fc…0d8990 Dummy {f00=0x0044, f01=0x0190, f02=» T H D ! [ T T l 8 > Z W* # Z 7W ; =W A W ]P o H D ! k H H H T P T W 2 W 2 W ( H D ! ! : )W /W 7P@ I : O UT Y ] , e 2 i o u @ ( H D ! T W
0x0d8990…0d8b24 Dummy {f00=0x0044, f01=0x0190, f02=» s uP T W P T P P H D ! & P % & 3 9 Q _ & i y h & T P@ H H D !x PB H H & T =R, CT GW QT YV iWp qP uP yP P H D ! TH P@ V P W P P
0x0d8b24…0d8cb8 Dummy {f00=0x0044, f01=0x40f6, f02=» H T x H D ! P R U @ R W" # @ 'W - @ 1W 5W 9W =W 4 H D ! @ C GW M QPL U T T P T$ R> P6 T. P W 5T CP KV T @
0x0d8cb8…0d8e4c Dummy {f00=0x0044, f01=0x818e, f02=» J F IDENT DEBUGM REL 11.0 81-01-26 870105041100 dBUG R |BUG ` DISQUE p TTB:AP * & A :U A @ D ACBLAC , ( D A A * @ ~ , (
0x0d8e4c…0d8fe0 Dummy {f00=0x0044, f01=0x8190, f02=» , ( , ( 8 , ( h , ( $ ( , 0 4 , ( + 8 < , ( K
0x0d8fe0…0d9174 (1, 74) Dummy {f00=0x0045, f01=0x8190, f02=» _ r S A , ( _ @ ( , ( A T :a R T <a Z _ = X , ( :A , >a @ , ( " + A P UW B , ( K @ = /
0x0d9174…0d9308 Dummy {f00=0x0045, f01=0x8190, 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
0x0d9308…0d949c Dummy {f00=0x0045, f01=0x8190, f02=» P " W U z , ( :U A " FNDTID@ J , ( ! ? > " @ , ( D @ T " ( ^ @ P , ( R % A A " @ ,T @ , ( E W @ A W
0x0d949c…0d9630 Dummy {f00=0x0045, f01=0x8190, f02=»P V | , ( W _x , ( _` A L , ( @ ,T @ W @ T @ W @ @ | , ( % >a @ A , ( E A ,
0x0d9630…0d97c4 Dummy {f00=0x0045, f01=0x8190, 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 _
0x0d97c4…0d9958 Dummy {f00=0x0045, f01=0x8190, f02=» c A A " . A , ( H 2<a P r A ) " A , , ( U H A @ , ( * % . @ @ T A A , ( E P @ P , ( @ e @ ! T A
0x0d9958…0d9aec Dummy {f00=0x0045, f01=0x8190, f02=»V ; W &~ | , ( P &`P 6 P @ $ P $W $ , ( T P #~ > V . >A L , ( % P Y X W ^ ? ? | , ( @ E @ ' P Y Y W Y Y @ , ( e " P @ = ] ] ] W A
0x0d9aec…0d9c80 Dummy {f00=0x0045, f01=0x8190, f02=»V l , ( >! D A A > , ( > > > > > > > ^ _ < , ( % ^ _ ? ? ? ? ? A ^ l , ( E @ ? ? > > > > > , ( " e > > @ " > , ( P
0x0d9c80…0d9e14 (1, 75) Dummy {f00=0x0045, f01=0x8190, f02=» A Q (P _ # # H A " , ( A 0R 9U AR , , ( % FQ 0:D A _* A , ( E " A A T , ( e A A " R _U , ( . " A
0x0d9e14…0d9fa8 Dummy {f00=0x0045, f01=0x8190, f02=»W 1 @ " A | , ( A P R :UT @ W 9D) 9 TTB:MT L * & % I 9 ^ @ W ? H ^ A > " , ( ! R :W W , ( W W ?W /W : A W ! A A , (
0x0d9fa8…0da13c Dummy {f00=0x0045, f01=0x8190, f02=» h , ( + A A A A @ , ( B K A @ > " @ _ , 8 , ( " k I .R M A P T @ T h , ( D @ P A W ` @ @ P @ , ( T A P A < V A @
0x0da13c…0da2d0 Dummy {f00=0x0045, f01=0x8190, f02=» 9P =W C X H D ! G K O Q X U [ _ . c > g k | o v s ~ w @ { L 0 H D ! F t T P ` H D ! 2 B v ! v % ) Z - ` 1 5 AW* E YW ] _W c H D ! > y P
0x0da2d0…0da464 Dummy {f00=0x0045, f01=0x8190, f02=» !j Pf T* P V W H D ! ? H T | W T W / 5 9 = E I H L H D ! M Q [ t _ r o y W W H D ! 7 P P P P
0x0da464…0da5f8 Dummy {f00=0x0045, f01=0x8190, f02=» MPB Q W ] _ oT R, T W T V W~ | H D ! P P P P W TR PJ V )P 7W MP WW gP k W 8 H D ! W P T T V = D H D ! U | Q P F R$ U #R )Q
0x0da5f8…0da78c Dummy {f00=0x0045, f01=0xc0ea, f02=» T W j F h H D ! ( j P6 R T W( ' J 3 J 5W R W" W W W W $ H D !T W W PL T T P T$ ? F yR> P6 T. P W p T P V @ P F R$ U #R )Q
0x0da78c…0da920 Dummy {f00=0x0045, f01=0x8190, f02=» > @ IDENT SYSLDM REL 11.0 81-03-31 870105041100 SYSLDM F SYSLDM X bREL l STKCOM z SYSLOD TCLASS SCLASS * & $H @ STKEND , (
0x0da920…0daab4 (1, 76) Dummy {f00=0x0045, f01=0x8190, f02=» , ( OA Y 5 X SCTSFA 8 , ( i * _6 : @ J SCTTCT z , ( $ % @ * & $ @ R ERROR , (
0x0daab4…0dac48 Dummy {f00=0x0045, f01=0x8190, f02=» ` @ @ :a | MULT SCTNOF , SCTFWL > , ( I$ @ @ A @ " P SCTFWT * & H ;a P A @ A $ A , ( / A @ T ) FREQUE * & G
0x0dac48…0daddc Dummy {f00=0x0045, f01=0x8190, f02=» S S @ r , ( V A , ( @ : P T B , ( S S _* : r * & H A A * 4 A , ( , A N =H N A @ * &
0x0daddc…0daf70 Dummy {f00=0x0045, f01=0x8190, f02=» , ( IA" @ %!5!T . .W @ TTB:MT 4 TTB:CB F * & a = V 0 0W = V 2 X , ( y 2 P , ( " U , ( _2 P
0x0daf70…0db104 Dummy {f00=0x0045, f01=0x8190, f02=» V v * & H . 0 S , @ TTB:ST D TTB:PW V , ( 5 B S 4=J @ " S 6 h TTB:ID TTB:AP , ( MH @ S 8 A @ S : TTB:PP , ( c D T
0x0db104…0db298 Dummy {f00=0x0045, f01=0x8190, f02=» D$ a : A A < H , ( A , . , ( P ^ , ( _ P A 6 @ , ( 8 8 4 D P , ( =@ @ # P H
0x0db298…0db42c Dummy {f00=0x0045, f01=0x8190, f02=» @ : A @ $ ~ , ( $ T @ A A H , ( ! A A P A 8 N * & H , A $ @ ~ , ( $ @ < F !AAT DWTTAB , ( @ T B
0x0db42c…0db5c0 Dummy {f00=0x0045, f01=0x818e, f02=» !TTX Y ~ , ( : !TTX !CCT , ( P @ 4 N , ( U $ $ _. ~ , ( @ P @ 4 U , ( $ $ _. Y
0x0db5c0…0db754 (1, 77) Dummy {f00=0x0045, f01=0x8190, f02=» SCTCDT , ( I"$ 3 D * U , ( a @ * D . !TTT F , ( { _ !CCP R Y W v * & @ P A A @ , ( @ < @ , (
0x0db754…0db8e8 Dummy {f00=0x0045, f01=0x818e, f02=» , ( % T K YB _b @ B , ( CD @ @ @ % P @ 4 4 , ( ] @ 4 4 _r : A " d , ( y @ " F !SST W !AAT , ( W !VVT W !PPT W !LL , ( T W !RR
0x0db8e8…0dba7c Dummy {f00=0x0045, f01=0x8190, f02=» f DWTST , ( " F&? @ . #? H H& D H , ( # @# * H > D > > H DWTOR x , ( ? @ D J DWTADR , ( [$@ @ 0 @ . ) I F D #@P D DWTECH
0x0dba7c…0dbc10 Dummy {f00=0x0045, f01=0x8190, f02=» I P I P I P D R# P , ( D W W D >V ` < T , , ( " @ < 1 Q a < : @ , ( % P H I H L , ( T P H U , ( -D @ U A
0x0dbc10…0dbda4 Dummy {f00=0x0045, f01=0x8190, f02=» $ I N % E , | * & D@ a < : @ Q A % @ * & H A 0 A * A J , ( $ , A . @ , @ . P x INTLT1 , ( I A . @ 2 E T A , , ( * Q _8
0x0dbda4…0dbf38 Dummy {f00=0x0045, f01=0x8190, f02=» , * Q _8 , ( a $ B A 0 A * A , A . * INTPL1 Z , ( y @ , @ . P A . @ 2 l , ( D E X A , * * & Q _8 B A 0 A * A , ( $ , A
0x0dbf38…0dc0cc Dummy {f00=0x0045, f01=0x8190, f02=» 0 l , ( I A * A , A . @ , INTVU1 < * & )D @ . P A . @ 2 E A N , ( ? , * Q _8 | , ( [ H A 0 A * A , A . INTSL1 , ( s $ @ , @ . P
0x0dc0cc…0dc260 Dummy {f00=0x0045, f01=0x8190, f02=» , @ . P A . @ ~ INTAS1 , ( 2 E ` A , * . , ( Q _8 : Q R D F%? ^ , ( ;D : Q R D F , ( ) %? # ;H ;D& >b : Q , ( I R D F%?
0x0dc260…0dc3f4 (1, 78) Dummy {f00=0x0046, f01=0x8190, f02=» F%? # ;H ;D ~ , ( @ &`>e : Y , ( Z D F ? # ;H ;D& >c : N , ( Y6 Z< D F ? # ;H ~ , ( ;D & >b : N =H N * * & ; : N =H N * : &=H F
0x0dc3f4…0dc588 Dummy {f00=0x0046, f01=0x8190, f02=»T , _ : @ ~ , ( @ ! P (W ( : @ 0 P 0 , ( _ @ Q @ P P _ N , ( H @ A P A P _ ~ * & Q @ Q 1 a * & @ : @ 0 ,
0x0dc588…0dc71c Dummy {f00=0x0046, f01=0x8190, f02=» @ j * & 0 2T P _ / , ( : .P W P A 8 , ( .X @ * P T h , ( :D * J T J , ( & P T R& >aW T F& , ( P T
0x0dc71c…0dc8b0 Dummy {f00=0x0046, f01=0x8190, f02=» @ 8P 9 _ (T P , ( _ 3 _ : @ ( , ( @ T : d X , ( R d R _ 00)0= * & H % : @ A : A , ( : @ : A :
0x0dc8b0…0dca44 Dummy {f00=0x0046, f01=0x8190, f02=» R MOVE $ , ( e Y f : 4 $ UP V d H D !d P 0 ) 0 /WL 9P@ v R6 P , P4 9T oP s V P( H D !h* T , T - ~ QT [W cV mW qV <
0x0dca44…0dcbd8 Dummy {f00=0x0046, f01=0x8190, f02=» < P~ Z j T T 'P / A j p H D !uV IP W ^ w Tr , P, Z U L P, Z U 3P , H D ! _U wT P R W , P0 Z j j ^ L Z P$ H x H D ! I P QP T WN T WB T B W6 T n W* T
0x0dcbd8…0dcd6c Dummy {f00=0x0046, f01=0x8190, f02=» {P W Q H D ! P Q % ) 3P WQ y } P Q P Q H D ! # -P QQ q u P Q P Q Q R Q !R GQ d H D ! MR sQZ yRT Q* R$ P T P W P Q P P$ P P # H D ! @ ?PF KP
0x0dcd6c…0dcf00 Dummy {f00=0x0046, f01=0xc016, f02=» @ D ! P Q % ) 3P WQ y } P Q P Q H D ! # -P QQ q u P Q P Q Q R Q !R GQ d H D ! MR sQZ yRT Q* R$ P T P W P Q P P$ P P # H D ! @ ?PF KP
0x0dcf00…0dd094 (1, 79) Dummy {f00=0x0046, f01=0x0190, f02=» > @ IDENT DRCD02 REL 11.0 81-04-06 870105041100 CDADR CDON IHCD DWCD01 F CDADR j | NVLCHK ECBRC , ( X Y T C Y DWTECB VOLNAM
0x0dd094…0dd228 Dummy {f00=0x0046, f01=0x0190, f02=» _ P P Y ! ECBCW1 . , ( } W ! Q B @ DWTOR p , ( P ! 9h)" Q Y :b X , ( ! 9A D Z8 Q ! Y , ( X 6 d 5 Y _ X $ <B
0x0dd228…0dd3bc Dummy {f00=0x0046, f01=0x0190, f02=» Y Y ! ' P , ( O X P X T X , ( m X P Y ! ! ! X P ! P , ( X > ! ! X ^ P ! , ( _X ! ! Y X P ^ ! ! , ( ! ! Y Y !
0x0dd3bc…0dd550 Dummy {f00=0x0046, f01=0x0190, f02=» X Xv p , ( M 4 ! Y ! ! P Y * & m _ 4 W W W X T X @ DWTA4 n PFPOST ~ DWTA5 , ( @ # ;D ) Y @ T Y TDISP , ( H Y Y X
0x0dd550…0dd6e4 Dummy {f00=0x0046, f01=0x0190, f02=» Y p , ( X P Y , ( = ; V 9E Y ; X P Y > , ( ] Y ! p! P Y P ! t! n , ( } @X W 4 X # X X , ( X 9 V 9A X Y :G ECBEL
0x0dd6e4…0dd878 Dummy {f00=0x0046, f01=0x0190, f02=» X X P Y DWTST CDON " 0 SAVE8 B , ( D@ Y _ " R INIFLG , ( 1 Y Y Y @ $T ! t , ( M B! T Y ! Y ! Y DWTORD , (
0x0dd878…0dda0c Dummy {f00=0x0046, f01=0x0190, f02=» A Y x IHCD INTSAV * , ( Y _v A * ? I ! :A < , ( ZX:AV @ ( P ) X T l , ( # X X 4 ! t! T , ( A ! Y ! T , ( 3@ X
0x0dda0c…0ddba0 Dummy {f00=0x0046, f01=0x0190, f02=» , ( m 4 , ( 4 , ( B " " " " * d , ( " ] ] H D ! t v T0 # '
0x0ddba0…0ddd34 (1, 80) Dummy {f00=0x0046, f01=0x0190, f02=» x : ) 6 = < E > I MP` Q @ UP> Y ] @ aT H D ! o < qP u y } N : PL @ N : P, > H D ! @ : P ^ ~ PX v ^ T H D ! ( ^ P ^ # ^ ' ` +T 3 ` 9P A ` G Q Y
0x0ddd34…0ddec8 Dummy {f00=0x0046, f01=0x416c, f02=» ` # < ' 9 ^ CV O ^ U x WP( n H D ! [ x c F mP q v uP Wx @ < @ V : : 6 6 < * H D ! < : R P P R @ x v t P t ) p + 5 A B v H D !5 GT OT> W a i n P( n W n P p n
0x0ddec8…0de05c Dummy {f00=0x0046, f01=0x018e, f02=» > @ IDENT SYSLCR REL 11.0 81-05-19 870105041100 SYSLCR F SYSLCR X STKEND l STKMOV ~ SCTSFA , ( H ) @ A x STKCOM GETAPP , ( I A |
0x0de05c…0de1f0 Dummy {f00=0x0046, f01=0x0190, f02=» ERROR , ( i x | R , ( @ - @ x - J N !TTP H , ( N :H N TBT K W x , ( 2 " T @ X 2 N CONVRT NXTBLK , ( =H
0x0de1f0…0de384 Dummy {f00=0x0046, f01=0x0190, f02=» $ @ n GETNUM , ( + 2 .:H , ( G @ N R P V _ N N , ( e S S YB : ~ * & @@ @ x @ A INILEN , ( d A x A j
0x0de384…0de518 Dummy {f00=0x0046, f01=0x0190, f02=» MULT , ( @ F * E H K @ , ( L " A N J @ , ( N P " 4X 1 p , ( = R Z0 % _ k k , ( ] :A K J 4 P 5 _ K * & }
0x0de518…0de6ac Dummy {f00=0x0046, f01=0x0190, f02=» A A SCTEFA , * & CR T @ A @ > , ( A b D J @ l , ( L A " A R @ T A , ( ' R K J @ L A f , ( AD .
0x0de6ac…0de840 Dummy {f00=0x0046, f01=0x0190, f02=» K ) G J ) , ( K G ) G " * , ( H@ A N A t N P R Z , ( @ P _ A t R X4 , ( _ A t N P , ( # R ,
0x0de840…0de9d4 (1, 81) Dummy {f00=0x0046, f01=0x0190, f02=» p _ J z GETTTB TTB:PP , TTB:ID > * & $ P I " B $ @ P TTB:CB ~ * & b D E , D ) @ ! P C TTB:SB TTB:SA , ( & C ( C * A r
0x0de9d4…0deb68 Dummy {f00=0x0046, f01=0x018e, f02=» H E p , ( ? #_h A P @ L A " MOVE @ , ( Y J ( A N J $ K , P , ( u J J | | GETTAB * & N P | . 1 I * @ , ( ! P I
0x0deb68…0decfc Dummy {f00=0x0046, f01=0x0190, f02=» , ( _B 0 0 0P & , ( @ &X ' * @ b H H 4 QUEJOB d , ( 1 2_0 A r A P @ R v , ( I$"T @ A @ @ R MOVING , ( a HP J V @ A A
0x0decfc…0dee90 Dummy {f00=0x0046, f01=0x0190, f02=» $ @ v v * & M : Z A V @ , ( H R R Y R D , ( $ <B @ p " 1 A v @ r : t , ( A" Z _D @ V Z : A T , ( 3 R P A p , (
0x0dee90…0df024 Dummy {f00=0x0046, f01=0x018e, f02=» , ( E _: Q , ( V 4 , ( E _z " D T E d , ( E D E % : Z , ( " R ;B D D " P P , ( 9 R P
0x0df024…0df1b8 Dummy {f00=0x0046, f01=0x0190, f02=» , ( _ 6 : A H W A H ?AP , ( ^ 6 : 4P " D 4 , ( H H * M j - I " d , ( Y& : f : R , ( H@ X A h @ N T : N , ( HD @ f A
0x0df1b8…0df34c Dummy {f00=0x0046, f01=0x0190, f02=» T T _v , ( J , V P _ N $ , ( L % J J G G U T , ( R G : P V , ( (! : @ t P A p * & _$ 8 @ z @ p % @ n %
0x0df34c…0df4e0 Dummy {f00=0x0046, f01=0x418c, f02=» P0 ^ H D ! P !PV % G U a gP k z u z yW H D ! , } T P> P P^ . T C X G Pl P f H D !l Q P . X P& IT aP iV R0 9 ;P O cP {Pr H D ! P
0x0df4e0…0df674 (1, 82) Dummy {f00=0x0047, f01=0x0190, f02=» > @ IDENT SYSLOD REL 11.0 81-05-22 870105041100 F B SYSLOD SYSBAS NUMSEG PRGLG1 APLADA APLLAC APLLAP APLLDA F F B APLMMC APLMMP APLNPE APLREL APLSTA APLTYP APLIOE APLSEG APLSWB APLADA APLRE
0x0df674…0df808 Dummy {f00=0x0047, f01=0x0190, f02=»PLSEG APLNPE APLSWB $ APLSTA 8 APLTYP L NUMSEG ` PRGLG1 t SYSLOD STKEND SCTIPL SCTANO , ( I$ A 0 A A " A A STK
0x0df808…0df99c Dummy {f00=0x0047, f01=0x0190, f02=» A. z bREL , ( O UU @ $ % $P ( SCTMSZ X SCTEFA j SCTOPT | , ( m D _ % A >b>J A A @ , ( A 4 A @ , ( @ A
0x0df99c…0dfb30 Dummy {f00=0x0047, f01=0x0190, f02=» E E E A & | , ( E @ F CRP <A COP , ( % <A BAP AS<A E ASP @ 4 T L ERROR | SCTPSZ , ( C" A ASP F @ , ( ] U A ASP F P :B A , ( {
0x0dfb30…0dfcc4 Dummy {f00=0x0047, f01=0x0190, f02=»MPADR , ( H A ?B Q * & AST > * & @ A l , ( @ A @ D AS , ( 9$$ @ A @ L , ( Q
0x0dfcc4…0dfe58 Dummy {f00=0x0047, f01=0x0190, f02=» S W Y* , ( $ @ @ * , ( A @ L _ @ Z , ( A A A , ( @ A A E @ < V @ , ( / R
0x0dfe58…0dffec Dummy {f00=0x0047, f01=0x0190, f02=» ;a=a?j V , ( Y R W ?J E =A;A , PUSH , ( E : l bPOB , ( H " : @ * & < 9B A : " A @ , (
0x0dffec…0e0180 Dummy {f00=0x0047, f01=0x0190, f02=» h , ( _ P W T , ( W @ P 8 * & @ , . A @ A h , ( A , ( , (
0x0e0180…0e0314 (1, 83) Dummy {f00=0x0047, f01=0x0190, f02=» _ 0 !TTX , ( m A f !CCT CC A _ 0 & , ( !;; !AAP !DDT @ @ V , ( @ A 6 0_ ; # @ @ * & @ I A , ( P T TT A
0x0e0314…0e04a8 Dummy {f00=0x0047, f01=0x018e, f02=»! T @ " r , ( K A @ @ @ I MOVE B , ( eA$ A $ A @ R SCTMXS , ( } H A @ &P @ SYSLDM , ( @ A & @ ( $ ) , (
0x0e04a8…0e063c Dummy {f00=0x0047, f01=0x0190, f02=» f , ( T : r : , ( # : 0 !TT 0 8 , ( A !;; : 0 !LLP ! h , ( a RRP !AAP !SSP !PPP !VVP !QQ , ( P W W P W A , ( 0 !;;T
0x0e063c…0e07d0 Dummy {f00=0x0047, f01=0x0190, f02=» : 0 )T : !00T , ( @ A : 0 !99Q !00R P ( , ( = P =H_ :TID=TCL=LEV=TDC=T0LC=0SD X , ( ] C=S0 A I. : A , ( { @ A " Q :d @ 1 # R P , ( R W @ E E
0x0e07d0…0e0964 Dummy {f00=0x0047, f01=0x018e, f02=» Z4X X2_H v , ( C. h X C.9h! , ( + # " :A K F , ( K : A T I T P 1 v , ( k I P < R P A , ( _> : A A , (
0x0e0964…0e0af8 Dummy {f00=0x0047, f01=0x0190, f02=» f , ( A A A : 9e , ( ) :e Q P 9e @ P A 8 , ( I 9C) A I " @ ! P h , ( i " :B A t q B J " T , ( : 0 R _ <d?d , ( A
0x0e0af8…0e0c8c Dummy {f00=0x0047, f01=0x0190, f02=» @ ( = @ Q @ "| , ( ) _@ _$ : ! A A ( , ( G A A ! T A X , ( g A A A A F , ( 0 A 2 : > A A : , ( @ @ 2 ! P V :A
0x0e0c8c…0e0e20 Dummy {f00=0x0047, f01=0x0190, f02=» @ r s @ x , ( ! A I T - A _ I N T , ( A P A $ A > @ V H , ( a S : 9 x , ( P S Y T $ 1T C !CCT : 1 CONVRT , ( P P _ P =H P
0x0e0e20…0e0fb4 (1, 84) Dummy {f00=0x0047, f01=0x018e, f02=» _ !SST 0 U z , ( J X X A A * & 3 X X S W A A J , ( O A 0 : V W x , ( k Q T W @ T * & R P @ , (
0x0e0fb4…0e1148 Dummy {f00=0x0047, f01=0x0190, f02=» f , ( X 9A_ : @ ! P (W ( : n * & H , . @ 8 , ( 3 0 A;T f * & Q P T _* @ * & k @ " p @ ` P A * & :
0x0e1148…0e12dc Dummy {f00=0x0047, f01=0x0190, f02=» Y : 8 , ( 0 ! P P Y , ( A `_0 L Q ` P Y P Y P , ( 9 A V : , %T 8 , ( W P , ! P : SYSBAS , ( w . :
0x0e12dc…0e1470 Dummy {f00=0x0047, f01=0x0190, f02=» ! gP mP q T R U R> P R0 Q T % ` ) V 9 E [P H D !Y iP0 m {P S W +V4 3R, CU G L H D ! o QT _Pf oV wT {P T V R W -Vb 1 5 = E H D ! [ L _ L gPZ k o qWP u L yT
0x0e1470…0e1604 Dummy {f00=0x0047, f01=0x0190, f02=» # ' + / 3 J 7 = A KP | H D ! O S W [ _ wT 6 2 ` P T P T ( 8 H D ! 6 P p n #P +T / 7R = N ET M P P P H D ! PP T T ( L + ; ` G ` O $ U ` ]P& cP iP
0x0e1604…0e1798 Dummy {f00=0x0047, f01=0x0190, f02=» w Q R@ P6 RN W$ h H D ! L L P( > W D + D 1 D ; D A D ]T. $ H D ! aT eP wP {R P N R z ~ d P: p H D ! - 1Q 7P C EP I a eP o H D
0x0e1798…0e192c Dummy {f00=0x0047, f01=0x418e, f02=» 4 P T H D ! 0 V W R T P Td W 'T =T( AP EW H D !L MW U [V cS q d u PN TD T> Tp P P( T Tr TF H D ! ?S AW Y eV iW, mQ( sT {W& T R P T R U H D !B T V P
0x0e192c…0e1ac0 Dummy {f00=0x0047, f01=0x0190, f02=» > @ IDENT DRND01 REL 11.0 81-05-27 870105041100 H D ! INPUT STABLK OUTPUT ENDBLK ECHRTN ECHO ECHEND GETCHR ABORT F H D ! LENDER LENDIS LDISP NDREPO NDRETO NDREP NDRET NDSAV8 NDGET8 F B NDREWS NDREDW NDGEDN NDGEDW INTLT1
0x0e1ac0…0e1c54 (1, 85) Dummy {f00=0x0047, f01=0x0190, f02=»SL8 INTAS1 INTAS2 INTAS3 INTAS4 r F B INTAS5 INTAS6 INTAS7 INTAS8 INTPL1 INTPL2 INTPL3 INTPL4 , F B INTPR1 INTPR2 INTPR3 INTPR4 INTVU1 INTVU2 INTVU3 INTVU4 v & " INTVU5 INTVU6 INTVU7 INTVU8 INTLT1 INTLT2
0x0e1c54…0e1de8 Dummy {f00=0x0047, f01=0x0190, f02=»SL1 INTSL2 INTSL3 " INTSL4 6 INTSL5 J INTSL6 ^ INTSL7 r INTSL8 INTAS1 INTAS2 INTAS3 INTAS4 INTAS5 INTAS6
0x0e1de8…0e1f7c Dummy {f00=0x0047, f01=0x018e, f02=»PR1 INTPR2 INTPR3 " INTPR4 6 INTVU1 J INTVU2 ^ INTVU3 r INTVU4 INTVU5 INTVU6 INTVU7 INTVU8 INPUT LTCHRI
0x0e1f7c…0e2110 Dummy {f00=0x0047, f01=0x0190, f02=» , ( H X ! LTENBL 4 RTENBL F ECHEND $ X ECHO . l , ( D X ! W ~ DWTST DWTECH DWTWAT DWTSB2 , ( 1 $ X
0x0e2110…0e22a4 Dummy {f00=0x0047, f01=0x0190, f02=» X L X W B ECBBA ECBEL . , ( a U B (" W C > ABORT n LENDER LENDIS TENDIO LDISP TDISP * & { (@ > Y W "
0x0e22a4…0e2438 Dummy {f00=0x0047, f01=0x0190, f02=» DWTA3 DWTA4 DWTA5 * DWTA7 : DWTA8 J * & H > Y & Y ( Y * Y , Z NDGET8 , ( $ ._ X & X ( X * X , NDREWS NDREDW SAVE8 D
0x0e2438…0e25cc Dummy {f00=0x0047, f01=0x40b4, f02=» 6 X T z NDGEDN NDGEDW . H 8 $ B < 8 P ' -W 1 =Pf ]WF eU sW W& W W T ^ @ ( X * X , NDREWS NDREDW SAVE8 D
0x0e25cc…0e2760 Dummy {f00=0x0047, f01=0x0190, f02=» > @ IDENT DCSTAT REL 11.0 81-01-26 870105041100 F B DCSRST DCSRLL DCSUPR DCSUPS DCSUPD DCSRED CSMAXL DWTCHD F DWTCHN DWTCHD DWTCHN CSMAXL DCSRST DCSRLL , (
0x0e2760…0e28f4 (1, 86) Dummy {f00=0x0048, f01=0x0190, f02=» ? ? W ? r , ( A ? ? ? ~ _ X P ^ DCSRED n B , ( a _ > > > >W ? ? ? ? ? ? P B V DWTTAB , ( P B P X X P X W X , ( P X P D P ;A %W MOVSU , (
0x0e28f4…0e2a88 Dummy {f00=0x0048, f01=0x415a, f02=» h , ( X P %? R L V 9HR , ( = ,R S -W - X M W 8 ] W > >W > h 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 P P WR
0x0e2a88…0e2c1c Dummy {f00=0x0048, f01=0x0190, f02=» > @ IDENT DRDC07 REL 11.0 81-06-02 870105041100 & " DC07AD IH0701 IH0702 DC07ON F DC07AD p , ( ! c ( $
0x0e2c1c…0e2db0 Dummy {f00=0x0048, f01=0x0190, f02=» X @ T TENDIO & TDISP 8 , ( @ 9 A @ @ nP B H GETDNA x , ( @@ U @ B , ( s V B A A ! A P , ( R A n A t
0x0e2db0…0e2f44 Dummy {f00=0x0048, f01=0x0190, f02=» " X &P Y & X R X , ( "P _> @ * , ( + T A W (P (_ ) > @ A @ Z , ( *" K P & A A ! A A t A , ( B k n A p @ P a A @ B , ( P @ rT
0x0e2f44…0e30d8 Dummy {f00=0x0048, f01=0x0190, f02=» X " X Y Z T , ( " A n A t A A X , , ( # B & & Y & Y @ , ( @ ? A A ! @ t A r @ p , ( ] " :C @ n# ;I @ r# X ! P DWTTAB MOVSU
0x0e30d8…0e326c Dummy {f00=0x0048, f01=0x0190, f02=» n , ( X " X @ rT , ( @ T @ n X > , ( @ ! XD $ A D C n , ( H / @ T A W (P (_ ) 1 B B , ( OH X X P y Y , ( @@ k @
0x0e326c…0e3400 Dummy {f00=0x0048, f01=0x0190, f02=» p" T ) p , ( @ z _ X R X A DWTECB @ , ( Y > Y X H R , ( @ X P ( y Y > > , ( ! $ (P _ ) 1_ $ (X( * & A P _ 0 )_6 X R X
0x0e3400…0e3594 (1, 87) Dummy {f00=0x0048, f01=0x0190, f02=» t A p p , ( P$ @ t @ ! @ t A p , ( Q @ t @ n x @ , ( J _ @ ! @ t A p @ P p , ( ( A " A A , ( 1 @ S x @ , ( Q
0x0e3594…0e3728 Dummy {f00=0x0048, f01=0x0190, f02=» * @ t @ @ ! @ ! T ! , ( ( @ ! P W @ t @ P X 0 , ( @ R X T P C ` * & @ B X , ( % @ t 8 D ,P ,_ - 0 1 , ( @Q C ( ,P (_ ) @
0x0e3728…0e38bc Dummy {f00=0x0048, f01=0x0190, f02=»! @ t @ t ` ~ , ( (H ? @ p A > A A , ( s W N , ( A @ ! W @ f:E _ _ ~ , ( @ # ! W @ T _$ @ X, $ , ( H A B B A A @ f:E @
0x0e38bc…0e3a50 Dummy {f00=0x0048, f01=0x0190, f02=»T ? n , ( >W @ T ) A , ( * > A d A f A h A j A l A > , ( b > @ " T :a" A h @ fT A n , ( f A fW A :e" @ b @ lP , ( T = A j @ @ bT A l ! N 4 @ lT , ( D ] A
0x0e3a50…0e3be4 Dummy {f00=0x0048, f01=0x0190, f02=» _: , ( _T $ , Q , W $ L . , ( $ :AV Y @ Y A W n H ^ , ( I Y n Y > n , ( = H T W X I @ P PFPOST , ( ]
0x0e3be4…0e3d78 Dummy {f00=0x0048, f01=0x0190, f02=» @ T A T ! P W @ , ( D P Q @ P A @ W 0 , ( @ " T 0.T 4 r ` , ( _ ! R X _( A r _2 DC07ON J SAVE8 * & @ 3 r
0x0e3d78…0e3f0c Dummy {f00=0x0048, f01=0x0190, f02=» @ ! r , ( X @ t A > @ , ( @ pP A A p @ A p B , ( ! B a > r r , ( @ r A T ! , ( T A r @ r 4 A r 4 @ IH0
0x0e3f0c…0e40a0 Dummy {f00=0x0048, f01=0x0190, f02=» t , ( @ A ! 4J T ! P A r , ( 4 A r 0. Y P D IH0702 t , ( 4 0:H P B T @ P , ( A Q A J T P , ( ! P
0x0e40a0…0e4234 (1, 88) Dummy {f00=0x0048, f01=0x0190, f02=» H X p H D ! l P # % ( ' < + , / 4 7T OP [ ~ c ~ sV { ~ P" R , H D ! I j ~ T ~ R T Pf ~ T P & R P x H D ! U 4 # 6 +T 1W 5P KP [ , c t uP ~ P ~ T ~ W
0x0e4234…0e43c8 Dummy {f00=0x0048, f01=0x0190, f02=» [P i z oP RT H D !a P2 W@ T T R 4 P 'P CP WR aT { H D ! P d H D ! - / 6 1 5 N 9 : A C J E Y [ f ] a j e i m q h H D !7 T* W&
0x0e43c8…0e455c Dummy {f00=0x0048, f01=0x0190, f02=» H D ! } . ( W d Wp J % t 'WT -T A J k t X V b T X H D ! ` X Z V X T W V b T X V T" T %W ;P. IT P H D ! [T u y } Q W V H D ! A W AT EW YP g J q t T
0x0e455c…0e46f0 Dummy {f00=0x0048, f01=0x4076, f02=» T 1P 5T ?T UT4 [T T P P T P Q T" P P W Z Y Z < d `@ rT X V T" T %W ;P. IT P H D ! [T u y } Q W V H D ! A W AT EW YP g J q t T
0x0e46f0…0e4884 Dummy {f00=0x0048, f01=0x0190, f02=» > @ IDENT DRDC15 REL 11.0 81-05-21 870105041100 . * DC15AD IH1501 IH1502 DC15ON DW1500 F DC15AD x DWTOR , ( - X P % Y X " T @ , ( K T A A
0x0e4884…0e4a18 Dummy {f00=0x0048, f01=0x0190, f02=»DNA , ( P ] ] V * & ] ] X < , ( B P j , ( ] P R X ] Y DWTST TENDIO DWTECB * & ! .
0x0e4a18…0e4bac Dummy {f00=0x0048, f01=0x0190, f02=» ] l , ( u B ECBBA < , ( X . B P Y B Y L GETSNA | DWTCHP , ( V Y Y Y , ( T ] W H I Y Y , (
0x0e4bac…0e4d40 Dummy {f00=0x0048, f01=0x0190, f02=» ECBCW1 , ( K X .:D :D :D C , ( i B Y X . B DWTOPT r , ( @ X " P , ( X . ECBEL * & X &T
0x0e4d40…0e4ed4 (1, 89) Dummy {f00=0x0048, f01=0x0190, f02=» W @ W v DISEND , ( @W W W W W > > ( , ( 5 , L Q , L X R P X SETIME , ( U A " Y W Y , ( s W X Z X A " Y , ( _. Y
0x0e4ed4…0e5068 Dummy {f00=0x0048, f01=0x0190, f02=» 0 % _ $ (P _ ) 1_@ , ( $ (XL P _ 0 )_Z & * , ( 1 (P _ ) 1 4 A A A A A Z , ( Q W , ( q > * ] , ( @ ] a 4 "
0x0e5068…0e51fc Dummy {f00=0x0048, f01=0x0190, f02=» * ! ! z , ( ] * ! ! ] " , ( % P ] * A A H , ( C ! ! T 0 x , ( c A * ! ! @ T , ( " ! _V ! ] P , (
0x0e51fc…0e5390 Dummy {f00=0x0048, f01=0x0190, f02=» h * & _ $ T _ A B ECBRL 6 , ( B $ A A A A A F , ( ; ! ! A _R ! T @ z v , ( [ W 8 @ T ! _ ! A ! , ( { _ ! @ P @ P ! A A , (
0x0e5390…0e5524 Dummy {f00=0x0048, f01=0x0190, f02=» * & R X T P C , ( X P C X 2 , ( + V ! *W X T X &P b , ( G W ! * ! 8 ! @ , ( @ e T @ P ! 8 ! @ T @ X , ( ( W @ @ @
0x0e5524…0e56b8 Dummy {f00=0x0048, f01=0x0190, f02=» 8 A @ T _( _, , ( P -P L _ 4 A A " * & % E A A 4 @ P X R X R , ( A " T X &P , ( ] A A 4 @ @ T , ( { @ A @ A A ! T
0x0e56b8…0e584c Dummy {f00=0x0048, f01=0x0190, f02=» _" p , ( ! 0_p 1 A T 0W ;W A , ( A W W W A A ! @ @ , ( ; ! @ ! ! ! ! 4 p , ( [ ! ! @ @ A @ , ( { T < ! @ ( ! 0 " R , (
0x0e584c…0e59e0 Dummy {f00=0x0048, f01=0x0190, f02=» A r , ( B 4B A J P 4 @ &T B 4B IH1501 B INTSAV V SAVE8 h , ( @ J 4 A ( * XJ T A T x , ( 3 P A A ] 4 ! IH1502 V , ( @@ S 8 A ( * X
0x0e59e0…0e5b74 (1, 90) Dummy {f00=0x0049, f01=0x0190, f02=»1 P A 4B P z , ( > B X _ " * 9AY X 2 _ ! DC15ON J , ( 9AP ^ 2 _ " ! 1 4 * ^ , ( A @ T * & # 8 A ! T A 4 > DW1500
0x0e5b74…0e5d08 Dummy {f00=0x0049, f01=0x0190, f02=» H D ! Z , < 1P AT E I ` MT Q ` U b Y a g 0 i k o H D ! s | w { | J h p l P& ` H D !{ V * & P * P( R^ 'P =P K O H D ! K ] _P c
0x0e5d08…0e5e9c Dummy {f00=0x0049, f01=0x0190, f02=» ! v & T " J W, P W W W W !W %W )W H D ! ?Q QR SP W ^ ] n g p mW> uW6 ` T b ` P L H D ! p < P p < P P P 3P A Z E ^ I b M f Q j H D ! U n WW ~
0x0e5e9c…0e6030 Dummy {f00=0x0049, f01=0x0190, f02=» g k t o h w { T P | H D ! U l Pz P W& b P ( W T $ T r 8 H D ! ` ' t - v 1 x 5 f 9 h = Z E b K OT S W b [W c < eT i H D ! o u z y b P ` P 2 b d d P <
0x0e6030…0e61c4 Dummy {f00=0x0049, f01=0x0190, f02=» d WR ` z t x b h H D !U T T l P ( T" l f P 2 $ l b f T $ H D !> P P d # x + h / ^ 5 ` 7P* =R$ GT MP e b i ` o < w h yT p H D ! } z x x z h T8 P: PN PP P P4 x x P < H D
0x0e61c4…0e6358 Dummy {f00=0x0049, f01=0x412a, f02=» {T T H D ! ` R x v x U f T H D ! t P T )T$ - n /T 5P A E Q d kT o qP6 sR" H D !!' {W, P P W P P P P P P P T ' n 1T 9 n
0x0e6358…0e64ec Dummy {f00=0x0049, f01=0x018e, f02=» > @ IDENT DRDC17 REL 11.0 81-07-07 870105041100 F B DC17ON IH1701 IH1702 IH1703 IH1704 IH1705 IH1706 IH1707 F . * IH1708 DW1701 DW1702 DW1703 DW1704 , ( B J B B J B J B V DWTST * & !
0x0e64ec…0e6680 Dummy {f00=0x0049, f01=0x0190, f02=» , ( ] X V Y , ( y T V Y W W W 8 , ( W @W W W W W h DISEND ECBCW1 , ( $ B Y _ 4 B Y , ( _ X P X
0x0e6680…0e6814 (1, 91) Dummy {f00=0x0049, f01=0x0190, f02=» ) Y Y X ! W ! , ( G W X P ! 7 ! . , ( g$H Y X R Y ! ^ TDISP , ( Y Y Y , ( ! T X R ! ! X , (
0x0e6814…0e69a8 Dummy {f00=0x0049, f01=0x0190, f02=» T _ P T , ( 1 Y X ! ( Y ! ! . , ( O ! _@ X ! X P T X ^ , ( m P ! Z W Y , ( Y ( Y * X X , ( T ! !
0x0e69a8…0e6b3c Dummy {f00=0x0049, f01=0x0190, f02=» kT Y ~ , ( @ ) *Yr_ X X~ 7 ^ b ! T X , ( @ I ! Y ! T Y N , ( g (Y _ ! T ! _ X _ _" ~ , ( Y Y ( ! * & ! T ! Y X
0x0e6b3c…0e6cd0 Dummy {f00=0x0049, f01=0x0190, f02=» X ! | , ( $ 0 " Y X T * & 9 W X P X L , ( W Y ! A ! "@X ! z , ( H u & f Y @ Y ! , ( X ! T Y X ,
0x0e6cd0…0e6e64 Dummy {f00=0x0049, f01=0x0190, f02=» Y j , ( " X R X ! W , ( '@ X R X : , ( C @ ! / W Y & j , ( _ T Y , ( } T X ! T Y , ( Y !
0x0e6e64…0e6ff8 Dummy {f00=0x0049, f01=0x0190, f02=» # P Y P , ( P X P * , ( )@ X ! P P | X .T Z , ( E _J | Y . ! W Y . ! , ( e Y X P Y ! , ( W Y Y
0x0e6ff8…0e718c Dummy {f00=0x0049, f01=0x0190, f02=» ! P X z DWTECB ECBBA , , ( X Y W Y < , ( !@ B _t @ X P Y l , ( = Y X ! W 6 , ( Y W ! ! . ! 2X ECBRL
0x0e718c…0e7320 Dummy {f00=0x0049, f01=0x0190, f02=» C Y 0 Y , ( X T &T Y , , ( ( & Y 6 ! , ( &P P -P 7P P _$ ! , ( / ! ! 2 7 ! -T W , ( O D Y ! = Y . X
0x0e7320…0e74b4 (1, 92) Dummy {f00=0x0049, f01=0x0190, f02=» _ 6 X 2P Y | , ( 2 Y 2 X 2X Y 2 _ X , ( " 2 Y 2 < X 2X2 Y 2 X 2 L , ( X@ Y 2 ! ! < ! 2X ! | , ( # < ! ! < X 2X| Y , ( * C 2 & 6
0x0e74b4…0e7648 Dummy {f00=0x0049, f01=0x0190, f02=» Y l * & @ ! X P ! ! , ( B B R 0 " X P : , ( T ! W " Q V j , ( V T ! ! U 0 " *@ ! TEBCDI , ( 3 ! _X H ! ! _f Y
0x0e7648…0e77dc Dummy {f00=0x0049, f01=0x0190, f02=» l , ( @ Y ! X P ! ! , ( Y ( Y Y < , ( @ ! T Y ! ! T l , ( ! pT X 0T W aT , ( - _ |T W kT Y . Y *U , ( M
0x0e77dc…0e7970 Dummy {f00=0x0049, f01=0x0190, f02=» ! T " SETIME , , ( A ? Y > > , ( > V Y X P y Y n , ( > A ? Y > , ( ' > V Y X P y Y , ( G
0x0e7970…0e7b04 Dummy {f00=0x0049, f01=0x0190, f02=» " Y " > X &P y & Y & > , ( ! P W 4 ! : . , ( @ Y Y 0 Y 4 ! ^ , ( ! ! 4 ! ! V 2 , ( @ # N ! 2 ! 2 ! 2 ! 4 ! , ( C 7 ! ! !
0x0e7b04…0e7c98 Dummy {f00=0x0049, f01=0x0190, f02=» =Q D ! X # $ ~ DC17ON SAVE8 2 , ( P 0 X 6 X 8 $ " @ B , ( P P X ! F ! X P r , ( ! 8 A A A _6 X X< ! ! PFPOST , ( ! _J @ $ 8
0x0e7c98…0e7e2c Dummy {f00=0x0049, f01=0x0190, f02=» 2 8 A t * & A P W Y A 4 @ , ( $ 8 A A P W Y B , ( E A 4 ! * ! V 8 A A r , ( J A 4 ! * ! ! * ? , ( Y & > Y > X > Y & ! *" , ( '
0x0e7e2c…0e7fc0 Dummy {f00=0x0049, f01=0x018e, f02=» { T 9B P 9B X ! , ( Z X P P 0 , ( ( Y X ! 4 ` , ( Y 6 Y 8 Y : Y < > 8 A , ( A T A X P _2 A A A , ( ! T A X P !
0x0e7fc0…0e8154 (1, 93) Dummy {f00=0x0049, f01=0x0190, f02=» , ( H i $ ! ! 4 A & " , ( 8 A A T A X P 4 A 4 , ( A A T A X P V Y d , ( J X P ! P f A IH1702 , ( A & " X
0x0e8154…0e82e8 Dummy {f00=0x0049, f01=0x0190, f02=» 8 X : X < > > A ILLINT , ( & ( 0 , ( 9 ` , ( Y , ( - y @ ~ j , ( J N
0x0e82e8…0e847c Dummy {f00=0x0049, f01=0x0190, f02=» R ` , ( V ^ L P H : : , ( 9 ( $ P , ( Y DW1701 , ( y , (
0x0e847c…0e8610 Dummy {f00=0x0049, f01=0x0190, f02=» l 'P - 1P 5P 9P CTF I O T U [ ^ a 0 g X qV {T: H D ! W* W& W" W W W W W W P T P P R D H D !Z W = ?W C G IW M SPv W _ qR } : T$ H D !e1 R > P W P R T
0x0e8610…0e87a4 Dummy {f00=0x0049, f01=0x0190, f02=» T* * !T % ? AT: E O t H D ! ] _T c o qT u * y @ TB * 0 H D !~? R$ | > N ' @ 5T ?W KP O a i q | H D !j T Px Tp Tj T` : * R P
0x0e87a4…0e8938 Dummy {f00=0x0049, f01=0x0190, f02=» /P* 3P 7 : CT ` H D ! G : S W YW a e n s yP W @ : T6 H D ! * T n T f @ P W ) : 1P MW U h H D ! Y ] N _W" c 2 g h m { 2 2 P 2 h T * : H D ! >
0x0e8938…0e8acc Dummy {f00=0x0049, f01=0x0190, f02=» L H D ! X + / 2 5 aP gT oP P U P Rb P TF H D ! z W> Q V V T 2 # 'U 3 2 7 A 2 E UP [ eP T H D ! k 2 o y D P b @ T H D ! T * T !Tj
0x0e8acc…0e8c60 Dummy {f00=0x0049, f01=0x0190, f02=» WW [ n _ c l m V W P P P W * H D ! b * V ) / 5 ; G M S W V uP @ H D ! * V Q ( f $ PB $ P H D ! * # IP P W P W 'T 3W KR
0x0e8c60…0e8df4 (1, 94) Dummy {f00=0x004a, f01=0x407e, f02=» g l i t k m o q s u w p 8 4 y { } $ @ F L h i , h@ z V uP @ H D ! * V Q ( f $ PB $ P H D ! * # IP P W P W 'T 3W KR
0x0e8df4…0e8f88 Dummy {f00=0x004a, f01=0x0190, f02=» > @ IDENT DRDC25 REL 11.0 81-01-26 870105041100 F B DC25ON DW2501 DW2502 DW2503 DW2504 IH2501 IH2502 IH2503 F F B IH2505 IH2507 IH2504 IH2506 IH2508 PARTA1 CURTRP TRASTR . * TRAEND CURLGP LOGSTR LOGEND DW2500
0x0e8f88…0e911c Dummy {f00=0x004a, f01=0x0190, f02=» DC25ON , ( @ A :a X ! @ DWTTAB L DWTWAT ^ , ( ! $ A Y > X X p DWTST , ( = Y X E Y X ! , ( [ # C D C (@ P R
0x0e911c…0e92b0 Dummy {f00=0x004a, f01=0x0190, f02=» B ! p , ( X T Y X Y ! , ( W X Q U X X @ , ( X L P ! Y _6 X V Y p , ( ; Y Y Y Y Y Y ! , ( [ ! Y B ( T B , ( {
0x0e92b0…0e9444 Dummy {f00=0x004a, f01=0x0190, f02=» Y P X T c ! ! , ( W ! c _Z X Y X 0 , ( T Y W Y " ` , ( ; @ I P _ H X X P X TDISP , ( [ ! (@ X Y (@ B Q , ( y
0x0e9444…0e95d8 Dummy {f00=0x004a, f01=0x018e, f02=» " Y Y X , ( Y ! X Q V X ` T 0 , ( Y ! X T ! L P ! ` , ( 9 X ! _ 4 X ! . X ! . , ( Y 4 Y X Q R B T Y , ( y ! _V B P Y
0x0e95d8…0e976c Dummy {f00=0x004a, f01=0x0190, f02=» , ( L P ! C X ! 4 y , ( Y 4 ! ! H X P Q Y 4 , ( B X X <a )P $ ) d , ( 7 X ! W Y _8(@ X L * & W P X P V ! " Q DWTECB * &
0x0e976c…0e9900 Dummy {f00=0x004a, f01=0x0190, f02=» C X t , ( ! 4 X X $Z Y X X R , ( Y Y ! W T Y D , ( W T X P P P W T t , ( ' Y Y W P X P Y W , ( G Q W T Y Y W , (
0x0e9900…0e9a94 (1, 95) Dummy {f00=0x004a, f01=0x0190, f02=» , ( , ( F 4 , ( F A d , ( ' @B cc@@ccNNNNMMM , ( G PF ccPPccPUUPUUP`b ` `A`c``````` , ( g pp pppppp
0x0e9a94…0e9c28 Dummy {f00=0x004a, f01=0x0190, f02=» I I , ( Y ! B B Y Y Y $ , ( Y P Y P X ! 4 W T , ( ' Y B Y X T # W , ( G T P Y # W P T , ( D g " P Y # H I
0x0e9c28…0e9dbc Dummy {f00=0x004a, f01=0x0190, f02=» " :d Y # t , ( ( ;A L Y Y Y D X , ( X X :A_" D , ( ' ! Y _> ! t , ( G _D X T Y X T Y ;B , ( g Y :E_b Y _v X T Y , (
0x0e9dbc…0e9f50 Dummy {f00=0x004a, f01=0x0190, f02=» , ( Y X :A X ?e' X , ( ' X X # Q Y Y X 4 , ( ' Q ! W X L P ! B C d , ( @ G ! Y ( 4 Y ! . P X , ( g L P ! ! Y ! , ( W X L
0x0e9f50…0ea0e4 Dummy {f00=0x004a, f01=0x0190, f02=» Y ! ! Y Y , ( Y X R X # ;a X X $ , ( ' Y P T X L P @ Y Y T , ( G Y ! X C X C X Y , ( g ! W @W Y W Q $ , ( X Y Q Y X !
0x0ea0e4…0ea278 Dummy {f00=0x004a, f01=0x0190, f02=»W X P R t , ( P R W X T W X T W X , ( ' T Y X X X T _& X X" X X2 D , ( G X P Y ! X X U T Y t , ( @ g Y c ! 4 X P 4 X , ( Y X Y X D P X P X , (
0x0ea278…0ea40c Dummy {f00=0x004a, f01=0x0190, f02=» , ( c /C X , ( ' P Y Y Y W Y X $ X 4 , ( G Y _" X P X :E _8 d , ( g $ X Y X _ X D Y _: , ( X X T Y Y X 9A X , ( :E Y Y
0x0ea40c…0ea5a0 Dummy {f00=0x004a, f01=0x0190, f02=» ! X B ) B C ! C , ( ' C Y Y _D X P P $ , ( G P W Y W X P X P W T , ( g X V X P W P W X , ( P W W W Y ! 4 Y Y , ( Y Y Y Y Y 4 Y
0x0ea5a0…0ea734 (1, 96) Dummy {f00=0x004a, f01=0x0190, f02=» Y 4 X t , ( ' H A X P (Q y (@ 4 , ( @ G X X E 4 (@ Y 4 D , ( e ( ( ( ( Y Y Y Y Y X t , ( # 4 X X X X X 4 ! l Y , ( Y ! " @ I P _ H ! , (
0x0ea734…0ea8c8 Dummy {f00=0x004a, f01=0x0190, f02=» , ( % _z ! ! l Y ! _ X 5 , ( E L U L L T L M 4 , ( e M M W X 5 L U L d , ( L T L M M M PARTA1 DW2501 , ( 4 4 ` PARTA1DC
0x0ea8c8…0eaa5c Dummy {f00=0x004a, f01=0x018e, f02=» r , ( % ` E B c ` V s r , (
0x0eaa5c…0eabf0 Dummy {f00=0x004a, f01=0x0190, f02=» INTSAV SAVE8 IH2502 & , ( H A A : IH2507 j IH2508 ~ IH2505 IH2506 IH2503 IH2504
0x0eabf0…0ead84 Dummy {f00=0x004a, f01=0x0190, f02=» D B T P B T , ( ! J T E E Q D I , , ( A I ( - Y B T E , ( a W W D T D T , ( D L L T ( ( B , ( B : V , C
0x0ead84…0eaf18 Dummy {f00=0x004a, f01=0x0190, f02=» E E V | , ( ! D B T E E W , ( A W <T D P = L , ( a W D B = P ] W | , ( B@ ] W W D , ( T D T D B T E
0x0eaf18…0eb0ac Dummy {f00=0x004a, f01=0x0190, f02=»T D l , ( ! T J d B T , ( A E D E $ B _. W < , ( a B C < P D XV l , ( J " C E = , ( _: D % J T D P B , (
0x0eb0ac…0eb240 Dummy {f00=0x004a, f01=0x0190, f02=» ! T D P 0 T T D , ( A D Q R P W D # P C , , ( a D U C W E B D , ( E E D B E D , ( L (P T W E ) , ( , T P
0x0eb240…0eb3d4 (1, 97) Dummy {f00=0x004a, f01=0x0190, f02=» E D D :A | , ( A B ;DV C B U + C D , ( a P E E C W T L , ( B T E W T "!P D | , ( # P T C E E W RETUR8 , ( T _ D
0x0eb3d4…0eb568 Dummy {f00=0x004a, f01=0x0190, f02=» | TN TF t T> d j H D !` U2 x $ T $ | N W t Q U 4 6 & H D ! j ! #P ' x + 4 3 z 5V| ; ? $ G " K 4 O 6 S W [ _ r H D ! g uT< } t z > t z T@ z z H
0x0eb568…0eb6fc Dummy {f00=0x004a, f01=0x0190, f02=»Q P V H D ! : Z t TB | z V ( N H D !( z v t | Q V T # %T ) ( 3 ^ H D !P 5P 9 B = A K f S j c g | iQL kRX qT y } P" P" H D ! 8 T W
0x0eb6fc…0eb890 Dummy {f00=0x004a, f01=0x0190, f02=» a = ?W C K z S b W YPH ] r cVR g B t B h P B H D ! x b x 8 R W T " W| T J H D ! " Pb PN PN WX #T + / 8 1WR 7P = " ?P C " EW: KQ QW H D ! # UT [ c 8 eW i 8 m 2 q , u {
0x0eb890…0eba24 Dummy {f00=0x004a, f01=0x0190, f02=»T AW4 GT MP Q @ WW ]P cT mP q @ P @ z H D ! @ P > T( P P T W T W V X Z 6 H D ! V Z X 6 B ` H H ! ` # ` % ` ' r ) + z - H D ! / 1 3 5 9 ? & E K MT S | W YT _ k
0x0eba24…0ebbb8 Dummy {f00=0x004a, f01=0x0190, f02=» T 2 0 2 Q * f H D ! ! 2 % 6 'Q0 + . -W 1 f 5 7P ; B Q 6 [ , cP g j k mP q B " H D !@ 4 W j f P B j x R j B x 6 n H D ! ` 4 6 T ^ , . _ ` * R H D !
0x0ebbb8…0ebd4c Dummy {f00=0x004a, f01=0x0190, f02=» R H D ! ( W ( 2 , P P Pn W$ " WZ " H D ! P R P2 R W TB W6 ( T !W, % 'T. + 8 / ( 5 6 Z H D ! 7T = ( C 6 I * KP Q " U " Y ] z _U cT g z k & o v P H D ! | f
0x0ebd4c…0ebee0 Dummy {f00=0x004a, f01=0x0190, f02=»P / 3 ] 7 9W = A = I O ; WP ] . q u = { $ ] H D ! 0 , T 0 0 , . ] , , = P ] F H D !D W& > ] P W> j B f x # > / 6 7 4 = H D ! ?P EP KP> MW2 S " UWF Y [P _ " c
0x0ebee0…0ec074 (1, 98) Dummy {f00=0x004b, f01=0x0190, f02=» l n x z v H D !0 | % " + b 1 X 7 9P =Q A I M _ o D s F w H { J L 2 H D ! ~ D F H J L v P U P > ~ H D !/4 t f v > t ! | % > + > 7 | ; A
0x0ec074…0ec208 Dummy {f00=0x004b, f01=0x0190, f02=» b H D ! { H D ! ( 4 @ L X d p | j H D ! Wz T T %T YTx eWz k n mWz wTz T T H D !
0x0ec208…0ec39c Dummy {f00=0x004b, f01=0x4114, f02=»TP N H D !VH #T / =T ] ` _W m } T> P Q P x %Tr -Pj 5T& ! H D ! ;T GQ IRN QPF SW [P< kU sW$ Px T W T P V ! V H D ! T W +T GV WU cP wWR }T T< W4 T$ P P T W T ! !
0x0ec39c…0ec530 Dummy {f00=0x004b, f01=0x0190, f02=» > @ IDENT DRDC23 REL 11.0 81-04-15 870105041100 D @ DCTAB DW2300 DC23AD DC23ON IH2301 IH2302 IH2303 IH2304 F F B IH2305 IH2306 IH2307 IH2308 DTETB1 DTETB2 DTETB3 DTETB4 DC23AD DW2300 DCTAB
0x0ec530…0ec6c4 Dummy {f00=0x004b, f01=0x0190, f02=» T r TDISP ECBEL " DC:MIN 2 , ( a $ ] D C D , ( } _$ T $ t , ( ] $ QMJOB ECBRL , ( $
0x0ec6c4…0ec858 Dummy {f00=0x004b, f01=0x0190, f02=» P x , ( W W W W @W W , ( ! W W B Y _> F SETIME v , ( ; X R A Y > DWTOR , ( Y X Y X XV P P , ( w !
0x0ec858…0ec9ec Dummy {f00=0x004b, f01=0x0190, f02=» , ( X P P X ! >_ , ( (P 0 ) > (P 8 , ( _ ) 1_ (P _ ) 1 4 $ (P h , ( 1 _ ) 1 > $ (XN P * & Q @ _ 0 )_ _ X R X X , ( m ! P
0x0ec9ec…0ecb80 Dummy {f00=0x004b, f01=0x0190, f02=» @ ] L ! # , ( T # T ! " # T ?P S , , ( P _> D s H ] ] ] , ( ] ] T ] , ( % _ ] ] _* ! T , ( E ! ?X(W
0x0ecb80…0ecd14 (1, 99) Dummy {f00=0x004b, f01=0x0190, f02=» ] ] | , ( ] W T _$ P P , ( ! P P P cP L , ( P ! ! ! T P W | , ( % ] T W W , ( ( C ! ! ] ! ! !
0x0ecd14…0ecea8 Dummy {f00=0x004b, f01=0x0190, f02=» ] l , ( T ] _ _ CT ] , ( P _ T ] < , ( ] _ ! P P ! P ! l , ( # ! ] ] X , ( C * ! ! ! P ] $ " , ( c P
0x0ecea8…0ed03c Dummy {f00=0x004b, f01=0x0190, f02=» n , ( @ P C , ( W P ] ] W < , ( P ! Q ! P P l , ( T * ] _ } , ( 7 $ T ] > ! T , ( W 4 ]
0x0ed03c…0ed1d0 Dummy {f00=0x004b, f01=0x0190, f02=» T ] ! ] ] , ( _ ] ] ] ] ] 4 " , , ( T :a" T ] ] ] , ( W ] :e" ] P P $ , ( 7 X , Q R T P P P Q , ( W R T P P R
0x0ed1d0…0ed364 Dummy {f00=0x004b, f01=0x0190, f02=» ! X4 ! X@ | , ( ! XT P ! XZ * & ] ] * ] _~ X L , ( R X T @ z , ( - 4 P T ] , ( M ] ` P ,
0x0ed364…0ed4f8 Dummy {f00=0x004b, f01=0x0190, f02=» $ @ A ? , ( I @ A > > ! * , ( Q Q ] Z , ( V ^ $ ECBBA , ( Y * $ B B " , ( " 9 ]
0x0ed4f8…0ed68c Dummy {f00=0x004b, f01=0x0190, f02=» :E :A 1 4 ] T , ( :E 9H ] * , ( ! X. X6 ! > Z , ( @ ] 9H ? ] ] , ( ! ] ! ] , ( 7 9H S ] ]
0x0ed68c…0ed820 Dummy {f00=0x004b, f01=0x0190, f02=» ! z , ( ] ] $ X , ( @! P dP 8 J , ( @ _ 9H ] z , ( @ T ] ] ! , ( ) T ] Y * ] ,
0x0ed820…0ed9b4 (1, 100) Dummy {f00=0x004b, f01=0x0190, f02=» j , ( ] ! ! W ] , ( @ P W T T : , ( @ T P ] | j , ( } ( T ] W , ( # P ] ] (W _ 2 , ( C P
0x0ed9b4…0edb48 Dummy {f00=0x004b, f01=0x0190, f02=» ] ] W X ` ] , ( ] ] T . * , ( @ 2_ X ` ] ! Z , ( _0 T T > ! P , ( X ! X P ! } ] , ( 9 ] ] _< P 2 }
0x0edb48…0edcdc Dummy {f00=0x004b, f01=0x0190, f02=» ! ] 4 W , ( @T ] W ] @ $T ] , , ( ! P W P 1 4 D , ( $ ] T T ] ] , ( _n t 1 Z _ ] , ( 3 ! 4 ] T
0x0edcdc…0ede70 Dummy {f00=0x004b, f01=0x0190, f02=»:H P ] T T | , ( " ] ] ] b ] IH2301 L SAVE8 ` , ( b ! P ! 4 & p IH2302 IH2303 IH2304 IH2305 IH2306 I
0x0ede70…0ee004 Dummy {f00=0x004b, f01=0x0190, f02=» p , ( ' _ T P ] P $ , ( G 8_ ] ] P @ , ( g _n ] p , ( @ > Q R B DEFDTE , ( P B "
0x0ee004…0ee198 Dummy {f00=0x004b, f01=0x0190, f02=» ] ] W P R X , ( P B *T T ! ] " , ( 9 ] L 8 ! ! Y R , ( Y @ Y ] ] P , ( w X ! X 8 ! P , ( ! T X B T
0x0ee198…0ee32c Dummy {f00=0x004b, f01=0x0190, f02=» ! C , T ] B , ( Y $ X T ] Y " , ( @ ) 8 ] $ ] ] R , ( ! I R , ( g ] "P Y (_ * & Y (_ ]
0x0ee32c…0ee4c0 Dummy {f00=0x004b, f01=0x0190, f02=» W p , ( ! T ] d ] 8 , ( LC ! x @ , ( 5A X ! Y ] T ] p , ( D Q L ! ! ] , ( q @ ] P 0 ] , (
0x0ee4c0…0ee654 (1, 101) Dummy {f00=0x004b, f01=0x0190, f02=»R LCT r , ( Q R ;A L > , ( Y > X C , B , ( #@ X ! 'T @ C , L r , ( ? P $ ] f ! ] GETDSA , ( ] P T W ] dP
0x0ee654…0ee7e8 Dummy {f00=0x004b, f01=0x0190, f02=» ! P t , ( @ ] $ ] ] ! ! , ( P P t_N f D , ( D f +P V ;D Z ) t , ( / _ ) f > ! !p 4 ! !p @ , ( O 4 ! 4 ! 4 X " R P , (
0x0ee7e8…0ee97c Dummy {f00=0x004b, f01=0x0190, f02=» , ( R 9AR ! X ! : _h !p ` ! : , ( ( !++P Y ] d_2 H " 2 4 , ( P 4 $W $W W $ d , ( ' P _ % - > $W $W , ( G W $P P _ , % > @ , ( g $T ] T
0x0ee97c…0eeb10 Dummy {f00=0x004b, f01=0x0190, f02=» ] ! ] 4 , ( T ] 6 X& 0 * ] $ , ( _< + P 0 V " : :$ T , ( X T X ! P 0 ] T , ( ; R P ] f _ IHRTN * & Y ] 4 ] &
0x0eeb10…0eeca4 Dummy {f00=0x004b, f01=0x0190, f02=» 6 8 2 X P , ( * @ Y ] ] > 8 D " , ( @ Z _< P ] R DCSUPR , ( @ 4 ( P T + 4 , ( ! ' 9 D ] W L ! XW L ( , ( G P P ! : !
0x0eeca4…0eee38 Dummy {f00=0x004b, f01=0x0190, f02=» , ( ] ] ] > A A J B , ( A A J J 8 h , ( ? , ( _
0x0eee38…0eefcc Dummy {f00=0x004b, f01=0x0190, f02=» ` P P0 !Pd ' - 3 l 9 =P C I . M SP H D !~@ YT ] a 8 8 & T @ . P& Q: P W W W @ H D ! ' W W W !W %W ?R C J I V mP( qPH w V }! P > 8 H D ! D P P @ Z P P P P P
0x0eefcc…0ef160 Dummy {f00=0x004b, f01=0x0190, f02=» OW0 a g @ q j u {P W p H D !( T T& P W T P P PT Ph P PT PN , H D ! N ! T P4 #W /T 3 . ;W ? 2 AW E I N K S x H D ! _ c N g @ T$ T T* P T P
0x0ef160…0ef2f4 (1, 102) Dummy {f00=0x004c, f01=0x0190, f02=» oW@ P @ T H D !` @ v T& T W -P 3P AQ CR GT IP" MP QP UQ H D ! H YR [T _P cP gR kQ }P R" ! P R T =P d H D !_ CT K WP| ] c 0 i o u ` { & 8 L j l H D !
0x0ef2f4…0ef488 Dummy {f00=0x004c, f01=0x0190, f02=» H D ! f 8 P T ! z -T ? 2 O UT qT z > WH T z > W H D ! P W TF T T P T !W +P 9W CP I P O g n m P H D ! 6 W T T T< P +P GP P T W ` H D ! T W T P W P
0x0ef488…0ef61c Dummy {f00=0x004c, f01=0x0190, f02=» I n M 8 ] l a i X q Q R P T : P H D !A WX P@ Rd PZ #TX )T M X Q D o qP P> T2 T" P < H D ! ? ` Tb T ' > I eR& kP q ` w x > D > H D !Q V W P W T ! KT2 W
0x0ef61c…0ef7b0 Dummy {f00=0x004c, f01=0x415e, f02=» T( P P X : P l H D !< P V ? d I d U d ] iR kP d W2 V d P d T R ( H D ! R P P W W !W 'P =W CW IW QP UP iT oT" } ` t H D !H T ` T T P( V !T /P 7T ;R ?P C U ` P6 P
0x0ef7b0…0ef944 Dummy {f00=0x004c, f01=0x40f6, f02=» > @ IDENT DW2301 REL 11.0 81-04-15 870105041100 DW2301 F DW2301 X DC23AD l , ( DC ~ 0 0 @
0x0ef944…0efad8 Dummy {f00=0x004c, f01=0x0190, f02=» > @ IDENT DCADDR REL 11.0 81-04-15 870105041100 F B FNDDNA FNDDNT GETDNA GETDNT GETDSA GETDST GETSNA GETSNT F GETSSA GETSST DEFDTE GETDSA SAVE8 GETDST SCTDCT , ( B
0x0efad8…0efc6c Dummy {f00=0x004c, f01=0x0190, f02=» [ $ (! P B _V B P _ _ RETUR8 , IHRET8 > FNDDNT P FNDDNA d , ( { ^ !@ W x GETDNT GETDNA , ( @ W W _ B , (
0x0efc6c…0efe00 Dummy {f00=0x004c, f01=0x0190, f02=» _ 8 T 0 9X Y GETSNT ( GETSNA < , ( " _ W _." /] Z P DEFDTE , DWTTAB MOVUS , ( ' 8_ X , ( A ( B C C RC
0x0efe00…0eff94 (1, 103) Dummy {f00=0x004c, f01=0x0190, f02=» B T B v , ( B P B ( ! T !. T % , ( Q =D C Xr Y,=H B =h c F , ( # X YB C P "- # 4;h C v , ( T T P _b B ( c # X , ( = Y C P "- # 4;h C T T
0x0eff94…0f0128 Dummy {f00=0x004c, f01=0x4056, f02=» Pf T T Q PR TD %P> EP WT p ]P cW , j @@ R=D C Xr Y,=H B =h c F , ( # X YB C P "- # 4;h C v , ( T T P _b B ( c # X , ( = Y C P "- # 4;h C T T
0x0f0128…0f02bc Dummy {f00=0x004c, f01=0x0190, f02=» > @ IDENT X25:L3 REL 11.0 81-07-06 870105041100 REQTIM X25:ON DRX25 F REQTIM X f * & z / 2 O ` , ( @ 2 #X 2
0x0f02bc…0f0450 Dummy {f00=0x004c, f01=0x0190, f02=» , ( @ N $ Q P P DWTST 8 , ( Y Y Y X Y Q H , ( ( 2 A % Z % > Y x DWTECB ECBCW1 , ( T X L Y C TENDIO
0x0f0450…0f05e4 Dummy {f00=0x004c, f01=0x0190, f02=» m P P , ( X , , ( 9H$ C " ( ' , ( P )!$ ! P )' P ECBEL ECBBA , ( D ) $ C ( c
0x0f05e4…0f0778 Dummy {f00=0x004c, f01=0x0190, f02=» Y l , ( g " X $? P V R , ( L Y W < , ( P Y Y W V " l , ( W ! T Y P P ! " , ( X ( T ) * Y "W H DWTOPT
0x0f0778…0f090c Dummy {f00=0x004c, f01=0x0190, f02=» n , ( a XV Y _f ! T R ECBCW2 > , ( @# P _ P _f B Y P , ( _ W {Y ! X2$ P T , ( X " # P ! P B Y B Y , ( Y Y ( Y " Y Y " _
0x0f090c…0f0aa0 Dummy {f00=0x004c, f01=0x0190, f02=» Y X p , ( D [ B T P j , ( y Y | _< B Y _P @ FNDDNT p , ( @ B ; LP (@ V , ( N R : : ; (P _ ) , ( : : W (P X ) Y
0x0f0aa0…0f0c34 (1, 104) Dummy {f00=0x004c, f01=0x018e, f02=» X R r , ( Q X P T P W " , ( q .P W T X T . B , ( P <T / ( / W M r , ( P _ L , ( W , (
0x0f0c34…0f0dc8 Dummy {f00=0x004c, f01=0x0190, f02=» , ( Q X X W _ , ( q R P X R Y P X _ 4 GETDST d * & 4 <%V $ LP v , ( (@ Z* X P : Y X I , ( B Y W " P # 4!? , (
0x0f0dc8…0f0f5c Dummy {f00=0x004c, f01=0x0190, f02=» , ( C _( Y _: T " B , ( c _ > Y &W 4 , ( Y " Y $ 0 P Y " d , ( % R P Y " # P , ( " T " P V , ( W , B
0x0f0f5c…0f10f0 Dummy {f00=0x004c, f01=0x018e, f02=» ' I I % , ( ( c = R T A A $ * & X R X P Y T * & (@ @ @ : ; X L DWTTAB MOVSU , ( M X (@ : : , ( UU
0x0f10f0…0f1284 Dummy {f00=0x004c, f01=0x0190, f02=» , ( P 1 A $ : , ( Q _$ R 0 R $ W 4 , ( q W W W W W W W W d , ( W W " ^: R # ECBFC * & S S S S @ M " M , (
0x0f1284…0f1418 Dummy {f00=0x004c, f01=0x0190, f02=» S W r , ( % P X. JR _8 S , ( E ( R C " C R B , ( a C ( Y, r , ( I I I I , ( S X S , (
0x0f1418…0f15ac Dummy {f00=0x004c, f01=0x0190, f02=» S W X T X P , ( 5 Y X R P X W 0 , ( S XV |_ X " ( : ` , ( s L ) S B 0 0 , ( @ Y B P | X ! , ( T X RS
0x0f15ac…0f1740 Dummy {f00=0x004c, f01=0x0190, f02=» Y * Y "_4 , ( + W 6_@ V ! P W _L W , ( K T _V X W _r P , ( k W tW W W W W , ( V W * & % @ L P _ C
0x0f1740…0f18d4 (1, 105) Dummy {f00=0x004c, f01=0x018e, f02=» @ V , ( ! T V V $ W V X ! , ( A I V 9A# V W ;E V P , ( a % W I F F C MOVUS , ( } X ( ( S W , ( @ C @
0x0f18d4…0f1a68 Dummy {f00=0x004c, f01=0x0190, f02=» * & ((@ P W ) ) B * & C B f 2 , ( ! I I W W f ` , ( = I # I C W V , ( [ @ W ;E I _" C I T , ( @ y W H _: A 0
0x0f1a68…0f1bfc Dummy {f00=0x004c, f01=0x0190, f02=»$ V P X R H , ( # P X ! T T W T P W , ( T T W |_^ X " ! P FREBLK , ( @ 1 X Y "_ A 0 L ,(@ , ( O " T S R P , ( o W W V P
0x0f1bfc…0f1d90 Dummy {f00=0x004c, f01=0x0190, f02=» R # P S S , ( $ B B " , ( @ T S R ( _$ C R , ( % ( R $ H P $ , ( C P P _ $ , ( c H U P ^
0x0f1d90…0f1f24 Dummy {f00=0x004c, f01=0x018e, f02=» W V r , ( I I I I I , ( (P I I B , ( # I I X H r , ( C ! P V P _ V ! W H , ( c 9e! W P W W I , (
0x0f1f24…0f20b8 Dummy {f00=0x004c, f01=0x0190, f02=» , ( V T V V ! W R (P , ( @ V W 9E) I I 4 , ( # W V d , ( C !@P W W W @ , ( c W H 9e! W P W W , ( W
0x0f20b8…0f224c Dummy {f00=0x004c, f01=0x0190, f02=» W I , ( W P V P Y W $ , ( # I W (P T , ( @ C : I I W , ( c V W W W P , ( W P _ W _4 W P W
0x0f224c…0f23e0 Dummy {f00=0x004c, f01=0x0190, f02=» W W t , ( R T , ( # (P ( I I D , ( C W R S R t , ( c P S W P W t_~ , ( V ! I % T _8 , (
0x0f23e0…0f2574 (1, 106) Dummy {f00=0x004d, f01=0x0190, f02=» , ( (P I I I , ( # I X R 4 , ( C $ W V P Y V d , ( c W W V , ( I I @ I I GETBLK
0x0f2574…0f2708 Dummy {f00=0x004d, f01=0x0190, f02=» ^ d^ W x , ( : : A $ R W W R W W , ( (! 9d (# 9a (!?P H , ( = ( P U _ (# ;AP L W x , ( ] V W W V W (# ;cP L , ( } W V W W V W @ $ : , (
0x0f2708…0f289c Dummy {f00=0x004d, f01=0x0190, f02=» h , ( V $ ! ; V ! :V W : , ( W : A A A $ 8 , ( ; P D E W % I @ @ @ h , ( [ : A A I $$ % $P I , ( { % % @ @ : A $ H % I , ( # @
0x0f289c…0f2a30 Dummy {f00=0x004d, f01=0x0190, f02=» A A P (P ) H L Q & " ,(@ @ @ @ : ( , ( 1 @ @ L N P R , ( Q P S R P W , ( q R V $T $P , ( P P $ $P P
0x0f2a30…0f2bc4 Dummy {f00=0x004d, f01=0x0190, f02=» _ r , ( : W W W W W W W , ( 1 W : N : : : B , ( Q W W : ; @ P ( A : : r q ; @ ) A : : H D ! 1 O P S H P T$ - c kP: oP sP y
0x0f2bc4…0f2d58 Dummy {f00=0x004d, f01=0x018e, f02=»W qP` u ^ {R ^ H D ! ! P W W@ T< ( P< P8 T W ( H D ! 0 R P %R )P2 ;P KP g ; m w {T P P | W f H D ! P TL PB P> PF PD P& 'T$ 1P 5 9 r E kT H D ! @ oP
0x0f2d58…0f2eec Dummy {f00=0x004d, f01=0x0190, f02=» J H D ! ` j r l r | r W ^ 0 P P$ T& %P )P H D ! - 1P 7 ( =T A | OP ] < e | o X uP {R P V P PT P T H D ! D T W T ^ / | =T C r U r [T g W R P | P T8 H D ! 9 P T P TN %
0x0f2eec…0f3080 Dummy {f00=0x004d, f01=0x0190, f02=» m < P. P !W )P 1 =R Y q ( : r H D ! z T P P P W -T 3P( =R AP I < k p y 6 r P 0 T. @ H D !N R8 < P W ! ;P ? MT Y H c qW, W ^ P H D ! j 0 2 P T
0x0f3080…0f3214 (1, 107) Dummy {f00=0x004d, f01=0x0190, f02=» R: P2 T T" W" T P W T p H D ! T [T gPB m 8 oW: {P. T W 0 6 P6 P0 r P , H D ! 8 0 R < ! =P EP KP O r Y c 4 k V m u wP r x H D ! N b n T& T Rl
0x0f3214…0f33a8 Dummy {f00=0x004d, f01=0x0190, f02=» EP UW Y sP H D ! > r 0 P r TN 0 W" P r 0 PR H D ![ P + -W 1 r 9 AP I ] a 0 e r m P P Pj P8 Tb d H D ! P 0 T r 0 r T0 ! r ' 8 /P H D ! 7 K (
0x0f33a8…0f353c Dummy {f00=0x004d, f01=0x018e, f02=» H D ! G CP IUH UP _V kV wP V V P T P T r 0 r H D !c T r 0 V W W % ( + . / , 3 * ;P IW S . W , [ * a . P H D ! e , wP . , . . . , * . , * . , H D ! * P P . # , ' * 7
0x0f353c…0f36d0 Dummy {f00=0x004d, f01=0x4008, f02=»@ ! CP IUH UP _V kV wP V V P T P T r 0 r H D !c T r 0 V W W % ( + . / , 3 * ;P IW S . W , [ * a . P H D ! e , wP . , . . . , * . , * . , H D ! * P P . # , ' * 7
0x0f36d0…0f3864 Dummy {f00=0x004d, f01=0x0190, f02=» > @ IDENT SYSLCO REL 11.0 81-01-26 870105041100 SYSLCO F STKCOM X STKEND j * & @ 8T E 4 @ | , ( J 5 :A @ , ( ; J P $ X <A R < ,
0x0f3864…0f39f8 Dummy {f00=0x004d, f01=0x0190, f02=» _ 5 ( : J @ $ , ( P $ L _ , - L , , ( P ] ] <T <A , ( 0 ,<h `X8 Y0 R , ( _ J L <A K J K : CMPADR , ( 1
0x0f39f8…0f3b8c Dummy {f00=0x004d, f01=0x0190, f02=» NXTBLK SYSLCO SCTSTB $ , ( <h P !TTXB : 6 STKMOV f , ( H % P _ A x SCTSFA GETAPP , ( B @ A J A r CO , ( T @
0x0f3b8c…0f3d20 Dummy {f00=0x004d, f01=0x0190, f02=» + A L P A F J , ( E R , , ( _ D J a J x N , ( y @ !TTP @ N N ;H N , ( V @ H P _ @ J , ( @ J P 8 (
0x0f3d20…0f3eb4 (1, 108) Dummy {f00=0x004d, f01=0x0190, f02=»T A R @ J K | , ( '! A J @ @ A T * & ? @ A H A L INILEN z * & Y @ A V A | A , ( o CO P D MULT , ( H
0x0f3eb4…0f4048 Dummy {f00=0x004d, f01=0x0190, f02=» X -_ J $ $ R $ M M _ , ( J $ $ R %_ J % j J * , ( ! $ P %_ _ @ H A @ Z * & = @ @ V @ @ , ( S V @ @ H @ * & k | L @ A
0x0f4048…0f41dc Dummy {f00=0x004d, f01=0x0190, f02=»9h `R Q 1 v , ( _ : ` | $ V $ L , ( : J @ A p F SCTEFA v , ( "W J @ p A p T @ , ( -B A @ F A > , ( G H D A r @
0x0f41dc…0f4370 Dummy {f00=0x004d, f01=0x0190, f02=» U x , ( d @ | J , ( J J @ J K H , ( @ A Z J 0 0 , ] x , ( L ] P @ Z E @ E , ( # J L E ";A " A X , (
0x0f4370…0f4504 Dummy {f00=0x004d, f01=0x0190, f02=» 0 V @ z TTB:SA , ( 0 H I A J I > , SAVE8 , ( A I : @ ? ? l ACTOT RETUR8 , ( $ @ ^ $# D @ > " , ( $ : A j A l
0x0f4504…0f4698 Dummy {f00=0x004d, f01=0x0190, f02=» ^ I @ ~ , ( I j @ l : J j ( V , ( e @ ( H A h : L N , ( @ T ] ] L ] ~ , ( ] J @ < k A < , ( $ % : V
0x0f4698…0f482c Dummy {f00=0x004d, f01=0x0190, f02=» : X ` n @ , ( % =_2 ,9h `P W L $ T * , ( E , : L =A ] Z , ( c @ I I (T 0 ( , ( @ H H _> H H , ( @ ^ M : @ r P
0x0f482c…0f49c0 Dummy {f00=0x004d, f01=0x0190, f02=» @ ~ ` P ~ X v , ( @ ^ I 4 X ]6 , , ( @ ! _ @ r T @ A @ , ( 9! P A @ @ , ( Q J A 4 1 J ( ( 1 o H D !
0x0f49c0…0f4b54 (1, 109) Dummy {f00=0x004d, f01=0x412a, f02=» P P H D !A T G d }P R" R R %P K W d g y V: T R Q V H D !!} W& 'T 3 H aT P W U PR A O S ] z o V X H D ! 0 P + z cV T: V V ( # /P 3W AT mT P V P. +T
0x0f4b54…0f4ce8 Dummy {f00=0x004d, f01=0x0190, f02=» > @ IDENT DRPL01 REL 11.0 81-06-23 870105041100 F B PLCHRI PLSTBL PLCHRO PLENBL PLDISP PRCHRI PRSTBL PRCHRO F F B PRENBL PRDISP PLTEST CWTPLC GETDWT IHPL01 IHPL02 IHPL03 4 0 IHPL04 IHPR01 IHPR02 IHPR03 IHPR04 PLO
0x0f4ce8…0f4e7c Dummy {f00=0x004d, f01=0x0190, f02=» ~ G C K P Z j * & { SO LO GR 0 B , ( o @ A p PLCHRI PRCHRI , ( DWTLD1
0x0f4e7c…0f5010 Dummy {f00=0x004d, f01=0x0190, f02=» n PLSTBL PRSTBL " , ( P W Y (@ 4(@ X 6 NDREPO f , ( T X T x * & P X ! T R Y Y , ( 3 X Y T Q
0x0f5010…0f51a4 Dummy {f00=0x004d, f01=0x0190, f02=»O PRCHRO , ( (@ ? X P NDRET P PLENBL ` PRENBL t , ( BT >(@ 4 Y > , ( (@ X T , ( ! Y T (@
0x0f51a4…0f5338 Dummy {f00=0x004d, f01=0x0190, f02=»T T X x , ( O $ P W P # P Y DWTLD2 F , ( k U X Y Y X PLTEST IHPL01 SAVE8 IHPL02 IHPL03 IHPL04 IHPR01
0x0f5338…0f54cc Dummy {f00=0x004d, f01=0x0190, f02=» TDISP , ( 2 @P P P U , ( " T U T H U T D > , ( &? U " z P " n , ( T H U T L T E $ , ( R M o L r P L p U " , ( 7
0x0f54cc…0f5660 Dummy {f00=0x004d, f01=0x018e, f02=» Y p FREBLK , ( F " NDREDW R , ( B Y T d , ( T R T D&? P '? L U " , ( X P " W X$ , ( U " X
0x0f5660…0f57f4 (1, 110) Dummy {f00=0x004e, f01=0x0190, f02=» , ( gH Y X " Y (@ , ( @ " U B U @ @ U 8 , ( 5 Q U ; U < U > X " h * & @P T T X " P Y , ( # n 8 x U PLON
0x0f57f4…0f5988 Dummy {f00=0x004e, f01=0x018e, f02=» & (@ U U U U * & M <P _ <P & , ( i _ T D ^ T , ( h ! R : r ) NDGEDN , ( ) t ( R X Y , ( Y
0x0f5988…0f5b1c Dummy {f00=0x004e, f01=0x018e, f02=» f , ( T U T U , ( 5 T U 6:A U T T ( U B U 8 , ( U 4 U @ U > U T T T h , ( u U U T V U U ! R , ( t ( Z ; M r U 4 , ( U < U
0x0f5b1c…0f5cb0 Dummy {f00=0x004e, f01=0x0190, f02=» , ( @ (@ T P P R X DWTADR 4 INTADR F * & # X . D 0 X T Y X PFPOST , ( # U (@ @ 2 @ , ( ? $ T T P T T U , ( ] T
0x0f5cb0…0f5e44 Dummy {f00=0x004e, f01=0x0190, f02=» r t ( , R X , ( H Y X Y " P # ( , ( n 8 X X , ( x_R U ; r , ( / - , - ! T t , , ( M "(@
0x0f5e44…0f5fd8 Dummy {f00=0x004e, f01=0x0190, f02=» U > U 4 x , ( @ T T T T U > , ( > > " P - H , ( > > x , ( %B @ 2 @ $ T T U GETDWT ^ , ( A U ? T T
0x0f5fd8…0f616c Dummy {f00=0x004e, f01=0x0190, f02=»W X p , ( :a9 " > ? P ! X " * & @ >W P ! ! Y > X @ , ( @ :d" ! W X :d" ! n * & ! Y > W Q X , ( "? U 4 X "? Q > ? , ( ' P ?
0x0f616c…0f6300 Dummy {f00=0x004e, f01=0x0190, f02=» > > _ Q Q " Q , ( > ? P > > P P , , ( R Q (" W P P V , ( Q % W > T NQ T , ( R L $ T L $ T " P W , ( # # T W $ P W
0x0f6300…0f6494 (1, 111) Dummy {f00=0x004e, f01=0x0190, f02=» < % > | , ( P ? 0 ] > > ? 1 ] , ( > > ? W ? ? ? ? L , ( Q ) _ ) > > > | > > H D ! & q < w D } L ` ` 0
0x0f6494…0f6628 Dummy {f00=0x004e, f01=0x0190, f02=» ST( WW ]Q, c H D !e eT s x w {T P T v V T T T P H D !u W 9 V ;T6 ? AT4 E KT" UP YW _P cP m } W d H D ! P PV P J P J $ " R 'P + J 7 J ; C & H D ! K n ST
0x0f6628…0f67bc Dummy {f00=0x004e, f01=0x0190, f02=» H D !S P4 f T. T, P D T !R + 2 OP S H D !y3 aP e y R> R ^ P W T )T 3 g P H D !F iTz m qTr yU RL T T v P< R T H D ! + / 5 L K QP WT _
0x0f67bc…0f6950 Dummy {f00=0x004e, f01=0x40fa, f02=» T T P x 5T ? J QT W W W H D ! @ W 'P& 1T CT cT eW Q R$ W V W Q< T( < H D ! T P !W 'T +W 1P 5W ;P U YT c wW W P P W Q @ QP WT _
0x0f6950…0f6ae4 Dummy {f00=0x004e, f01=0x0190, f02=» > @ IDENT DRTP04 REL 11.0 81-06-17 870105041100 TPAD4 F TPAD4 V , ( _ $ h , ( ! $ " & DWTOR DWTDEV , ( A $ X " :F X
0x0f6ae4…0f6c78 Dummy {f00=0x004e, f01=0x018e, f02=»! P l , ( ! ! C W X # LENDIS < ECBRL N , ( T ! P W # T !@P W ^ ECBBA , ( B B R B H " +P GETCHR , ( P B ! !
0x0f6c78…0f6e0c Dummy {f00=0x004e, f01=0x0190, f02=» , ( C ! !%P ! T " T , ( aH@ B R B ! 4 , ( { ! P Z oR X /P d , ( " C _ ! _* ! !EP , ( H! T " T _Z B R , ( @ B H "
0x0f6e0c…0f6fa0 Dummy {f00=0x004e, f01=0x0190, f02=» _* ! T ! * & C ! ! ! P ! P " , ( _ ! ! ! ! P * & { ! ! ! ! B , ( V Y ! X ! X STABLK , ( H ! ! !
0x0f6fa0…0f7134 (1, 112) Dummy {f00=0x004e, f01=0x0190, f02=» ! T r DWTSB2 LDISP $ DWTECB 4 , ( " 4! P W F DWTST v , ( @ X T Y " X R @ H , ( 3@ Y ! ! ! X , ( % O H ! ! ! X
0x0f7134…0f72c8 Dummy {f00=0x004e, f01=0x018a, f02=» P W" T P W T P W R P | H D !cp P P" R P ) / 3T = C G OP ST WT kRV 8 H D ! w } P" R P P T T R P P P P H D ! P" R P - 3 7T A G K SP WP g
0x0f72c8…0f745c Dummy {f00=0x004e, f01=0x4008, f02=»@
0x0f745c…0f75f0 Dummy {f00=0x004e, 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
0x0f75f0…0f7784 Dummy {f00=0x004e, f01=0x0190, f02=» h , ( , ( $ ( , 0 4 8 , ( 8 < h , ( 9 , ( Y , ( y
0x0f7784…0f7918 Dummy {f00=0x004e, 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
0x0f7918…0f7aac Dummy {f00=0x004e, 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
0x0f7aac…0f7c40 Dummy {f00=0x004e, f01=0x0190, f02=»NDTID , ( ! ? > " @ , ( D @ T " ( ^ @ P > , ( R A A " @ T @ n , ( 3 W @ A W W 0 , ( $ S _, W W , ( s
0x0f7c40…0f7dd4 (1, 113) Dummy {f00=0x004e, f01=0x0190, f02=» _` A , ( @ T @ W @ T @ W @ @ . , ( >a @ A ^ , ( 3 A , ( S ;a ]@ 1 _L W @ , ( s $ 0
0x0f7dd4…0f7f68 Dummy {f00=0x004e, f01=0x0190, f02=» @ Q A @ ~ , ( BT A " T @ W @ A , ( ! A P @ _2 N , ( 3 T 0 P P ~ , ( S _ @ @ , ( P s @ @ P
0x0f7f68…0f80fc Dummy {f00=0x004e, 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
0x0f80fc…0f8290 Dummy {f00=0x004e, 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
0x0f8290…0f8424 Dummy {f00=0x004e, f01=0x0190, f02=» A p , ( A > > > > , ( > > > > ^ _ ^ _ ? ? ? ? @ , ( @ - ? A ^ @ ? ? p , ( @ M > > > > > > > , ( D m @ > , ( (
0x0f8424…0f85b8 Dummy {f00=0x004e, 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
0x0f85b8…0f874c Dummy {f00=0x004e, 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 _ @ _
0x0f874c…0f88e0 Dummy {f00=0x004e, 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 ! )
0x0f88e0…0f8a74 (1, 114) Dummy {f00=0x004f, 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
0x0f8a74…0f8c08 Dummy {f00=0x004f, 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 ;
0x0f8c08…0f8d9c Dummy {f00=0x004f, 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
0x0f8d9c…0f8f30 Dummy {f00=0x004f, 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
0x0f8f30…0f90c4 Dummy {f00=0x004f, f01=0x0190, f02=» > @ IDENT SYSLDM REL 11.0 81-08-19 870105041100 SYSLDM F SYSLDM X bREL l STKCOM z SYSLOD TCLASS SCLASS * & $H @ STKEND , (
0x0f90c4…0f9258 Dummy {f00=0x004f, f01=0x0190, f02=» , ( OA Y 5 X SCTSFA 8 , ( i * _6 : @ J SCTTCT z , ( $ % @ * & $ @ R ERROR , (
0x0f9258…0f93ec Dummy {f00=0x004f, f01=0x0190, f02=» ` @ @ :a | MULT SCTNOF , SCTFWL > , ( I$ @ @ A @ " P SCTFWT * & H ;a P A @ A $ A , ( / A @ T ) FREQUE * & G
0x0f93ec…0f9580 Dummy {f00=0x004f, f01=0x0190, f02=» S S @ r , ( V A , ( @ : P T B , ( S S _* : r * & H A A * 4 A , ( , A N =H N A @ * &
0x0f9580…0f9714 (1, 115) Dummy {f00=0x004f, f01=0x0190, f02=» , ( IA" @ %!5!T . .W @ TTB:MT 4 TTB:CB F * & a = V 0 0W = V 2 X , ( y 2 P , ( " U , ( _2 P
0x0f9714…0f98a8 Dummy {f00=0x004f, f01=0x0190, f02=» V v * & H . 0 S , @ TTB:ST D TTB:PW V , ( 5 B S 4=J @ " S 6 h TTB:ID TTB:AP , ( MH @ S 8 A @ S : TTB:PP , ( c D T
0x0f98a8…0f9a3c Dummy {f00=0x004f, f01=0x0190, f02=» D$ a : A A < H , ( A , . , ( P ^ , ( _ P A 6 @ , ( 8 8 4 D P , ( =@ @ # P H
0x0f9a3c…0f9bd0 Dummy {f00=0x004f, f01=0x0190, f02=» @ : A @ $ ~ , ( $ T @ A A H , ( ! A A P A 8 N * & H , A $ @ ~ , ( $ @ < F !AAT DWTTAB , ( @ T B
0x0f9bd0…0f9d64 Dummy {f00=0x004f, f01=0x018e, f02=» !TTX Y ~ , ( : !TTX !CCT , ( P @ 4 N , ( U $ $ _. ~ , ( @ P @ 4 U , ( $ $ _. Y
0x0f9d64…0f9ef8 Dummy {f00=0x004f, f01=0x0190, f02=» SCTCDT , ( I"$ 3 D * U , ( a @ * D . !TTT F , ( { _ !CCP R Y W v * & @ P A A @ , ( @ < @ , (
0x0f9ef8…0fa08c Dummy {f00=0x004f, f01=0x018e, f02=» , ( % T K YB _b @ B , ( CD @ @ @ % P @ 4 4 , ( ] @ 4 4 _r : A " d , ( y @ " F !SST W !AAT , ( W !VVT W !PPT W !LL , ( T W !RR
0x0fa08c…0fa220 Dummy {f00=0x004f, f01=0x0190, f02=» f DWTST , ( " F&? @ . #? H H& D H , ( # @# * H > D > > H DWTOR x , ( ? @ D J DWTADR , ( [$@ @ 0 @ . ) I F D #@P D DWTECH
0x0fa220…0fa3b4 (1, 116) Dummy {f00=0x004f, f01=0x0190, f02=» I P I P I P D R# P , ( D W W D >V ` < T , , ( " @ < 1 Q a < : @ , ( % P H I H L , ( T P H U , ( -D @ U A
0x0fa3b4…0fa548 Dummy {f00=0x004f, f01=0x0190, f02=» $ I N % E , | * & D@ a < : @ Q A % @ * & H A 0 A * A J , ( $ , A . @ , @ . P x INTLT1 , ( I A . @ 2 E T A , , ( * Q _8
0x0fa548…0fa6dc Dummy {f00=0x004f, f01=0x0190, f02=» , * Q _8 , ( a $ B A 0 A * A , A . * INTPL1 Z , ( y @ , @ . P A . @ 2 l , ( D E X A , * * & Q _8 B A 0 A * A , ( $ , A
0x0fa6dc…0fa870 Dummy {f00=0x004f, f01=0x0190, f02=» 0 l , ( I A * A , A . @ , INTVU1 < * & )D @ . P A . @ 2 E A N , ( ? , * Q _8 | , ( [ H A 0 A * A , A . INTSL1 , ( s $ @ , @ . P
0x0fa870…0faa04 Dummy {f00=0x004f, f01=0x0190, f02=» , @ . P A . @ ~ INTAS1 , ( 2 E ` A , * . , ( Q _8 : Q R D F%? ^ , ( ;D : Q R D F , ( ) %? # ;H ;D& >b : Q , ( I R D F%?
0x0faa04…0fab98 Dummy {f00=0x004f, f01=0x0190, f02=» F%? # ;H ;D ~ , ( @ &`>e : Y , ( Z D F ? # ;H ;D& >c : N , ( Y6 Z< D F ? # ;H ~ , ( ;D & >b : N =H N * * & ; : N =H N * : &=H F
0x0fab98…0fad2c Dummy {f00=0x004f, f01=0x0190, f02=»T , _ : @ ~ , ( @ ! P (W ( : @ 0 P 0 , ( _ @ Q @ P P _ N , ( H @ A P A P _ ~ * & Q @ Q 1 a * & @ : @ 0 ,
0x0fad2c…0faec0 Dummy {f00=0x004f, f01=0x0190, f02=» @ j * & 0 2T P _ / , ( : .P W P A 8 , ( .X @ * P T h , ( :D * J T J , ( & P T R& >aW T F& , ( P T
0x0faec0…0fb054 (1, 117) Dummy {f00=0x004f, f01=0x0190, f02=» @ 8P 9 _ (T P , ( _ 3 _ : @ ( , ( @ T : d X , ( R d R _ 00)0= * & H % : @ A : A , ( : @ : A :
0x0fb054…0fb1e8 Dummy {f00=0x004f, f01=0x0190, f02=» R MOVE $ , ( e Y f : 4 $ UP V d H D !d P 0 ) 0 /WL 9P@ v R6 P , P4 9T oP s V P( H D !h* T , T - ~ QT [W cV mW qV <
0x0fb1e8…0fb37c Dummy {f00=0x004f, f01=0x0190, f02=» < P~ Z j T T 'P / A j p H D !uV IP W ^ w Tr , P, Z U L P, Z U 3P , H D ! _U wT P R W , P0 Z j j ^ L Z P$ H x H D ! I P QP T WN T WB T B W6 T n W* T
0x0fb37c…0fb510 Dummy {f00=0x004f, f01=0x0190, f02=» {P W Q H D ! P Q % ) 3P WQ y } P Q P Q H D ! # -P QQ q u P Q P Q Q R Q !R GQ d H D ! MR sQZ yRT Q* R$ P T P W P Q P P$ P P # H D ! @ ?PF KP
0x0fb510…0fb6a4 Dummy {f00=0x004f, f01=0x4016, f02=» @ D ! P Q % ) 3P WQ y } P Q P Q H D ! # -P QQ q u P Q P Q Q R Q !R GQ d H D ! MR sQZ yRT Q* R$ P T P W P Q P P$ P P # H D ! @ ?PF KP
0x0fb6a4…0fb838 Dummy {f00=0x004f, f01=0x018e, f02=» > @ IDENT DRFD02 REL 11.0 81-08-24 870105041100 FDADR IHFD FDON DWFD01 F FDADR j NVLCHK | , ( Y Y ! ! ! VOLNAM , ( ! Y Y ! Y ! T ECBBA
0x0fb838…0fb9cc Dummy {f00=0x004f, f01=0x0190, f02=» DISIOE , ( w P P DISEND F * & @ ! X ECBRL ECBCW2 , ( r X B X( B Z2 , ( ^8 Y ;g< R :A W V :AW , (
0x0fb9cc…0fbb60 Dummy {f00=0x004f, f01=0x0190, f02=» h , ( K Y Y ! T X T ! ECBEL 8 * & i T ! X Y X :D:c C H , ( Y Y p W T ! v VOLCLR , ( $ I ^ TO SS ECBCW1 , ( Y B
0x0fbb60…0fbcf4 (1, 118) Dummy {f00=0x0050, f01=0x018e, f02=» Y _ ! Y , ( _& ! T Y ! ! T _< Y ! , FDON D SAVE8 n , ( 9 T Y Y ~ SETIMP , ( U X P y W " DWTSB2 , ( @ s
0x0fbcf4…0fbe88 Dummy {f00=0x0050, f01=0x0190, f02=» DWTECB , ( ^8 Y & X Y IHFD F , ( @ C '? H I P A I X , ( &:AZ ! :CV : V INXDWT , ( @:CV Y :b" P Y , ( ; ( X
0x0fbe88…0fc01c Dummy {f00=0x0050, f01=0x0190, f02=»GET , ( $ * & @ ! 9c! 1 Y , ( 9 4 X ' P X ' T ?G 4 X < , ( " :G 4 Y W Y l , ( Y 4 W W X ;i X P , ( B Y ;B+ W W ! ! T ! , ( 1 9a X
0x0fc01c…0fc1b0 Dummy {f00=0x0050, f01=0x0190, f02=»T n & " ( Q Y 4 DWFD01 $ 6 , ( % J , ( E z , ( e C C C C H D ! J H Z
0x0fc1b0…0fc344 Dummy {f00=0x0050, f01=0x0190, f02=»W R Z # Z ' Z 3P 7 V ;V C ^ IR S W [ V ]T eT H D ! 8 i P kT o s Z { Z ` ^ W TT V P Z B H D ! I V Z Z V T % V ) n -T 3 7 H D ! 9T ? V K $ W B YP a B cW e B o v { B
0x0fc344…0fc4d8 Dummy {f00=0x0050, f01=0x40fc, f02=» {T6 F T. V L F V r H D ! Z P V T V ` W b W W Z X P X . H D ! @ Wj W 'Tz 5 9 = b ?T, C ` EW& I OW0 UW ]TD c g ` k b z o Z y Z T D @ B o v { B
0x0fc4d8…0fc66c Dummy {f00=0x0050, f01=0x2008, f02=» d L = REL11.0 DATE = 81-07-17 6876PACK NBR = 0001
0x0fc66c…0fc800 Dummy {f00=0x0050, 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
0x0fc800…0fc994 (1, 119) Dummy {f00=0x0050, 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 ,
0x0fc994…0fcb28 Dummy {f00=0x0050, 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
0x0fcb28…0fccbc Dummy {f00=0x0050, 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
0x0fccbc…0fce50 Dummy {f00=0x0050, 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)
0x0fce50…0fcfe4 Dummy {f00=0x0050, 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*
0x0fcfe4…0fd178 Dummy {f00=0x0050, 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
0x0fd178…0fd30c Dummy {f00=0x0050, 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* -
0x0fd30c…0fd4a0 Dummy {f00=0x0050, 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
0x0fd4a0…0fd634 (1, 120) Dummy {f00=0x0050, 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
0x0fd634…0fd7c8 Dummy {f00=0x0050, 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
0x0fd7c8…0fd95c Dummy {f00=0x0050, f01=0x0190, f02=» [ X R p X T0 x <~< ^ ^:^T^x^ ^ _ _ T0 * _ 8 0 d 0 0 $ 0 D F 0
0x0fd95c…0fdaf0 Dummy {f00=0x0050, f01=0x0190, f02=»
[…0x4…]
0x0fe140…0fe2d4 (1, 121) Dummy {f00=0x0138, f01=0x0190, f02=» A3,1 5 " P SLL A3,4 MOVE TO BITS 4 - 11 6 & P ADK A3,5 ADD CONNECTION TYPE PLC 6 4 , P ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER 6 ^ " P SRL A6,5 MOVE TO BITS 12 - 15 6 * P ADKL A6,/0500 ADD CONNECTION TYPE PLC 6 P RTN A14 6 P XIF 6 P IFT PLCL=
0x0fe2d4…0fe468 Dummy {f00=0x0138, f01=0x0190, f02=»C - INIT CHANNEL PARAMETERS RWSI * =8 6 . P****************************************** 7 . P* 7 ` P* REFERENCED IN: DWTGEN 7 j P* 7 , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT 7 ( P* A2 - POINTER TO REAL DWT 7 * P* A6 - LINE CON
0x0fe468…0fe5fc Dummy {f00=0x0138, f01=0x0190, f02=»3 - BITS 12-15 CONNECTION TYPE 7 * P* BITS 4 -11 LINE NUMBER 8 & P* 8 T P* WORK REGISTERS: 8 ^ P* SUBROUTINES: 8 x P* 8 PI:CHRI EQU * 8 P IFF PLCR=0 8 ( P CWK A6,128 CONNECTION NUMBER <=128? 8 P RF(G) NUMERR NO! 8 $ P
0x0fe5fc…0fe790 Dummy {f00=0x0138, f01=0x0190, f02=» ANK A5,/3F CLEAR BITS TO MODIFY 8 * P LDR A3,A6 GET LINE CONNECTION NUMBER 9 ( P ANK A3,/1F GET BITS 11 - 15 9 V P ADK A3,1 9 z P SLL A3,8 MOVE TO BITS 2 - 7 9 & P ORR A5,A3 MERGE WITH OLD CONTENTS 9 * P LDR A3,A6 GET LINE CONNECTION NUMBER 9 P
0x0fe790…0fe924 Dummy {f00=0x0138, f01=0x0190, f02=»D NUMBER 9 p " P SRL A6,5 MOVE TO BITS 12 - 15 : 2 P ADKL A6,/0600 ADD CONNECTION TYPE PLC-REMOTE : 6 P RTN A14 : l P XIF : | PNUMERR EQU * : ( P LDKL A1,LMP4 INDICATE FORMAT ERROR : P CALL ERROR : EJECT : * %******************************
0x0fe924…0feab8 Dummy {f00=0x0138, f01=0x0190, f02=»IN: DWTGEN : * ; , (* ENTRY: A1 - POINTER TO PROTOTYPE DWT ; ( #* A2 - POINTER TO REAL DWT ; L * &* A6 - LINE CONNECTION NUMBER ; x * ; * P* EXIT: A6 - CHANNEL PARAMETERS -1 ; * P* A5 - CHANNEL PARAMETERS -2 ;
0x0feab8…0fec4c Dummy {f00=0x0138, f01=0x0190, f02=»* ; * SUBROUTINES: < * < " EJECT < , PI:CHLT EQU * < : P IFF SUML=0 < N * P CWK A6,0032 CONNECTION NUMBER <= 32? < b P RB(G) NUMERR NO =8! < ( P CWK A6,0001 CONNECTION NUMBER >=01? < P RB(L) NUMERR NO =8! < , ' SUK A6,1 MODIFY LIN
0x0fec4c…0fede0 Dummy {f00=0x0138, f01=0x0190, f02=»ET MODIFIED LINE CONNECTION NUMBER < P ANK A3,7 GET BITS 13-15 = * P SLL A3,8 MOVE TO BITS 5-7 = J & P ORR A5,A3 MERGE WITH OLD CONTENTS = l 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER = P SLL A3,4 = P ANK A6,/18 GET BITS 11-12 = P SRL A6,
0x0fede0…0fef74 (1, 122) Dummy {f00=0x0138, f01=0x0190, f02=» = . P***************************************** > . P* I:CHRT - INIT CHANNEL PARAMETERS RT * > : . P***************************************** > l P* > P* REFERENCED IN: DWTGEN > P* > , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT > ( P*
0x0fef74…0ff108 Dummy {f00=0x0138, f01=0x0190, f02=» * P* A5 - CHANNEL PARAMETERS - 2 ? . P* A3 - BITS 12-15 CONNECTION TYPE ? 2 * P* BITS 4-11 LINE NUMBER ? d P* ? P* WORK REGISTERS: ? P* ? P* SUBROUTINES: ? P* ? P EJECT ? PI:CHRT EQU * ? P IFF
0x0ff108…0ff29c Dummy {f00=0x0138, f01=0x0190, f02=»B(L) NUMERR NO =8! ? , P SUK A6,1 MODIFY LINE CONNECTION NUMBER @ 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT @ J ( P ANKL A5,/003F CLEAR BITS TO MODIFY @ ~ 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER @ P ANK A3,3 GET BITS 14-15 @ P SLL A3,
0x0ff29c…0ff430 Dummy {f00=0x0138, f01=0x0190, f02=» $ P ADK A3,1 ADD CONNECTION TYPE RT A P ANK A6,/C GET BITS 12-13 A , P SRL A6,2 MOVE TO BITS 14-15 A N * P ADKL A6,/0100 ADD CONNECTION TYPE RT A r P RTN A14 A P XIF A P IFT SUMR=0 =8 A P LDKL A1,LMP4 A P CALL ERROR A P XIF =8 A
0x0ff430…0ff5c4 Dummy {f00=0x0138, f01=0x0190, f02=» * A l < P* B:CNA BUILD COMPUTER NETWORK ARCHITECTURE * B < P* ========================================== * B < P* * B < P* SCANS POSSIBLE D-BLOCK IN CONFIGURATION
0x0ff5c4…0ff758 Dummy {f00=0x0138, f01=0x0190, f02=» * B < P* IN SYSTAB. * C < P* ON ENTRY: SCTDCT = RELATIVE POSITION OF THE * C L < P* D-BLOCK IN CONF. DATA (SET BY SYSLOD) * C < P* * C
0x0ff758…0ff8ec Dummy {f00=0x0138, f01=0x0190, f02=»WORK REGISTERS: A1-A12 * C < P* * D < < P******************************************************* D | P D P D PB:CNA EQU * D P LD A11,DCBLK+STKCOM D * P RF(
0x0ff8ec…0ffa80 Dummy {f00=0x0138, f01=0x0190, f02=»TART OF FREE AREA D | ( P ST A12,SCTDCT UPDATE SYSTAB POINTER E 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA E F ( P CALL GETDTE GET NO OF DTE:S DEFINED E z 0 P ADKL A11,2 ADVANCE TO START OF SDTE RECORD E PB:CN00 EQU * E P SUK A1,1 E 2 P RF(N) B
0x0ffa80…0ffc14 (1, 123) Dummy {f00=0x0138, f01=0x0190, f02=»R. IN NAME E r & P CALL P:DTE PROCESS THIS DTE BLOCK F 2 P LD A1,NUMDTE+STKEND GET REMAINING DTE BLOCKS F < * P LDR* A12,A12 GET ADDRESS TO NEXT DTE F r P RB B:CN00 F P* F PB:CN10 EQU * F P CM 0,A12 AND RESET IT F P ADKL A12,2 F , P ST A1
0x0ffc14…0ffda8 Dummy {f00=0x0138, f01=0x0190, f02=»***************** F j < P* * G < P* P:DTE PROCESS DTE BLOCK IN CONFIGURATION DATA * G Z < P* ============================================== * G < P*
0x0ffda8…0fff3c Dummy {f00=0x0138, f01=0x0190, f02=»* G Z < P* ARE DEFINED CURRENT DTE IS DUPLICATED THE NO OF * H < P* TIMES SPECIFIED. * H J < P* * H < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * H <
0x0fff3c…1000d0 Dummy {f00=0x0138, f01=0x0190, f02=» DTE BLOCK IN SCTDCT TABLE * H < P* * I : < P* ON EXIT: A11 ADDRESS TO LAST CHARACTER IN * I z < P* PROCESSED DTE-BLOCK IN CONF. DATA * I < P*
0x1000d0…100264 Dummy {f00=0x0138, f01=0x018e, f02=» * I z < P* REFERENCED IN: B:CNA * J * < P* SUBROUTINES REFERENCED: GETCOP,GETNSA,P:NA,HEXCPY * J j < P* AND MOVE * J < P*
0x100264…1003f8 Dummy {f00=0x0138, f01=0x0190, f02=» J * P LDKL A1,/3000 INITIALIZE NAME FILLER K , P LC A1,1,A11 GET 1ST CHAR. IN SDTE NAME K 6 . P LC A2,IDLIM,A11 GET NA-NSA QUALIFIER (=T) K f P ADKL A11,1 K & P CCK A2,'TT' START OF TYPE RECORD? K P RF(E) PDTE00 YES! K P* K & P SLL A1,8 NO L
0x1003f8…10058c Dummy {f00=0x0138, f01=0x0190, f02=»ME IN STACK K t " P CALL GETCOP GET NO OF COPIES L " P ST A1,DTECOP+STKEND AND SAVE L : 0 P ADKL A11,TYPOFS ADVANCE TO TYPE IDENTIFIER L ` P LC A1,1,A11 L " P SLL A1,8 FORM TYPE IDENTIFIER L P LC A1,2,A11 L & P ST A1,DTETYP+STKEND SAVE IN STACK L
0x10058c…100720 Dummy {f00=0x0138, f01=0x0190, f02=»YES! L P* M . P LC A7,NANSA,A11 GET NA-NSA-SDTE QUALIFIER M P CCK A7,'AA' M H & P RF(NE) PDTE05 NSA OR SDTE RECORD M P* M . P ADKL A11,NAOFS ADVANCE TO 1ST DIGIT IN NA M & P ST A11,NASTRT+STKEND SAVE ADDRESS M & P CALL P:NA PROCESS NETWORK A
0x100720…1008b4 (1, 124) Dummy {f00=0x0024, f01=0x0190, f02=»P4 EQU /80 ERROR IN CONFIGURATION DATA PLMP5 EQU /40 NOT USED . PLMP6 EQU /20 NOT USED L PLMP7 EQU /10 NOT USED j PLMP8 EQU 8 NOT USED PLMP9 EQU 4 NOT USED PLMP10 EQU 2 NOT USED PLMP11 EQU 1 NOT USED P F P****
0x1008b4…100a48 Dummy {f00=0x0024, f01=0x018e, f02=» N F P* DATA [REL-ADDRESS] * F P* * R F P***************************************************************** P P P
0x100a48…100bdc Dummy {f00=0x0024, f01=0x0190, f02=» " PMXNOX EQU 6 NUMBER OF EXTENTS * PMX:NOS EQU 8 NUMBER OF SEGMENT TABLES * , PMX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH X ( PMX:LEV EQU /0031 MONITOR TASK LEVEL & PMX:LEN EQU 4 MONITOR EXTENT LENGTH 0 PMX:DA1 EQU 2 MONITOR DISC ADDRESS BITS 0-1
0x100bdc…100d70 Dummy {f00=0x0024, f01=0x018e, f02=» MONITOR EXTENT BLOCK LENGTH . PMX:STA EQU 2 MONITOR EXTENT START ADDRESS ! $ P EJECT ! V P* ! d " P* *********** ! n " P* * PAGTAB * ! " P* *********** ! P* ! & PPAGQF EQU 0 QUEUE POINTER FORW
0x100d70…100f04 Dummy {f00=0x0024, f01=0x0190, f02=» ! P* " & P* ************* " & P* * SEGTAB * " < & P* ************* " f P* " PSEGPB EQU 6 SEGMENT POINTER " " PSEGSB EQU 6 PAGE BLOCK ADDRESS " P " P EJECT " P* " * P*
0x100f04…101098 Dummy {f00=0x0024, f01=0x0190, f02=» " PBUFLEN EQU -4 # PDEVIND EQU -2 # PDWTLEN EQU 6 # 4 PTDCDD1 EQU 5 # H PTDCDD2 EQU 6 # ( PTDCLCN EQU 10 DISP. TO LINE CON. NBR # p $ PSLL0 EQU /3940 SLL A1,0 CONSTANT # 8 PNBRDPS EQU 12 NUMBER OF DATA PAGES/TASK (BASIC ONLY) # P EJECT #
0x101098…10122c Dummy {f00=0x0024, f01=0x0190, f02=» * # : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * $ 8 : P* * $ v : P* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING * $ : P* PARAMETERS:
0x10122c…1013c0 Dummy {f00=0x0024, f01=0x0190, f02=»ON OF SYSLDX * $ n : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * % : P* * % Z : P* * % : P**************************************************
0x1013c0…101554 (1, 125) Dummy {f00=0x0025, f01=0x0190, f02=»RELOCATE ADDRESS % | P CFR A8,A1 & $ P LDKL A11,SYSLOD START OF SYSLOD & * * P LDKL A2,TCLASS GET ADDRESS TO TCLASS & R . P CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? & $ P RF(E) NO:TCL YES:DUMMY TCLASS! & , P CALL CHPTRS RELOCATE POINTERS IN TCLASS & 8
0x101554…1016e8 Dummy {f00=0x0025, f01=0x0190, f02=»POINTERS IN SCLASS & z 0 P ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS ' P RF CLEAR ' N P EJECT ' ` 4 P*********************************************** ' n 4 P* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * ' 4 P******************************************
0x1016e8…10187c Dummy {f00=0x0025, f01=0x0190, f02=»CATION CONSTANT ' | P* ( 2 P* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS ( " P* ( X P* WORK REGISTER:A1-A7 ( b P* ( P* SUBROUTINES: ( P* ( PCHPTRS EQU * ( P ADR A2,A12 RELOCATE POINTER ( 2 P LDR A3,A2 GET POINTER TO ORIGIN TCL
0x10187c…101a10 Dummy {f00=0x0025, f01=0x0190, f02=» RF(Z) CHPT30 NO! ( P ADK A3,2 NEXT ENTRY ) $ P LDR* A5,A3 GET POINTER TO CLASS ) 6 P ADR A5,A12 RELOCATE ) ^ P STR A5,A3 STORE ) z $ P LDR* A6,A5 GET LENGTH OF CLASS ) PCHPT20 EQU * ) * P SUK A6,4 MOORE DEVICES IN THIS CLASS? ) P RB(NP) CHPT
0x101a10…101ba4 Dummy {f00=0x0025, f01=0x0190, f02=»DDRESSES ) z P RB(G) CHPT20 DWT IN DRIVER! * P ADR A7,A12 RELOCATE * 4 * P STR A7,A5 STORE RELOCATED DW-ADDRESS * P " P LD A8,SCTOPT GET OPTION WORD * ~ P ANKL A8,1 MMU IN SYSTEM? * P RB(Z) CHPT20 NO! * , P LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS
0x101ba4…101d38 Dummy {f00=0x0025, f01=0x0190, f02=»RELOCATE * . P ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED + , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS + B P RB CHPT20 + r PCHPT30 EQU * + P RTN A14 + P EJECT + PCLEAR EQU * + P* + & P* CLEAR ALL WORDS IN SYSTEM AREA + P* + P
0x101d38…101ecc Dummy {f00=0x0025, f01=0x0190, f02=»NE) CLRSYS + P LDKL A1,CONMON , P AD A1,STKCOM+M:REL , * P ABR A1 , F P EJECT , V 6 P************************************************** , d 6 P* B:TCT - BUILD TASK CONTROL TABLE * , 6 P************************************************
0x101ecc…102060 Dummy {f00=0x0025, f01=0x0190, f02=»EGISTERS: A1-A7,A11,A12 , P* - P* SUBROUTINES: - * P* - B . P* TASK CONTROL TABLE LAYOUT - L . P* _________________________ - ~ . P* I LENGTH I - . P* ______________________
0x102060…1021f4 (1, 126) Dummy {f00=0x0025, f01=0x0190, f02=»ER TASKS I - x . P* __________________________ . P* . L P EJECT . V PB:TCT EQU * . d * P LD A12,SCTSFA GET START OF FREE AREA . x * P ST A12,SCTTCT STORE ADDRESS TO TCTAB . ( P ADKL A12,2 FIRST TTAB ADDRESS ENTRY . P IFF EDM
0x1021f4…102388 Dummy {f00=0x0025, f01=0x0190, f02=»T ADDRESS TO MXSTAB . 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 P RF(N) BTCT05 NO MORE! / ( P LDR* A4,A1 GET NUMBER OF TASK ID:S / PBTCT04 ADK A1,2 NEXT TASK
0x102388…10251c Dummy {f00=0x0025, f01=0x0190, f02=»ERVE ENTRY IN TCTAB / P RB BTCT04 0 4 PBTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB 0 . > PBTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES 0 f P RF(N) BTCT20 NO MORE! 0 ( P LDR* A4,A1 GET NUMBER OF TASK ID:S 0 PBTCT08 ADK A1,2 NEXT T
0x10251c…1026b0 Dummy {f00=0x0025, f01=0x0190, f02=» RESERVE ENTRY TCTAB 0 P RB BTCT08 1 P XIF 1 . P EJECT 1 : P* 1 H . P* RESERVE ENTRIES IN TCTAB FOR USER TASKS 1 R P* 1 PBTCT20 EQU * 1 6 P ST A12,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY 1 , P LD A7,SYSLOD GET NUMBER OF APPLICATIONS 1
0x1026b0…102844 Dummy {f00=0x0025, f01=0x0190, f02=»1,APLMMC,A4 GET START OF CONFIGURATION DATA 1 * P AD A11,STKCOM+CONSTA RELOCATE POINTER 2 4 2 P ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY 2 b P LCR A2,A11 GET BLOCK TYPE 2 ( P CCK A2,'TT' TASK DEFINITION BLOCK? 2 P RF(E) BTCT35 YES 2 P LDKL A1
0x102844…1029d8 Dummy {f00=0x0025, f01=0x0190, f02=»SS 2 f P* 3 PBTCT40 EQU * 3 $ P CALL GETTSK GET NUMBER OF TASKS 3 ( PBTCT50 EQU * 3 P . P ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB 3 d ( P SUK A1,1 MOORE TASKS IN THIS CLASS? 3 P RB(P) BTCT50 YES 3 $ P CALL NXTBLK SKIP TO NEXT BLOCK 3 ( P CCK
0x1029d8…102b6c Dummy {f00=0x0025, f01=0x0190, f02=»B BTCT30 3 P* 4 4 P* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB 4 P* 4 R 0 PBTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA 4 " P SU A12,SCTTCT COMPUTE LENGTH 4 P ST* A12,SCTTCT STORE 4 P RTN A14 4 P IFF EDM=0 4 P EJECT 4 : P****
0x102b6c…102d00 Dummy {f00=0x0025, f01=0x0190, f02=»T - RESERVE ENTRY IN TCTAB * 4 : P* =============================== * 5 . : P* * 5 l : P* REFERENCED IN: B:TCT * 5 : P*
0x102d00…102e94 (1, 127) Dummy {f00=0x0025, f01=0x0190, f02=» * 5 d : P* * 6 : P* EXIT: A12 - NEXT FREE ENTRY IN TCTAB * 6 P : P* * 6 : P* WORK REGISTERS: A3 * 6 :
0x102e94…103028 Dummy {f00=0x0025, f01=0x0190, f02=» * 6 : P***************************************************** 7 4 PRESTCT EQU * 7 r P LDR A3,A12 GET END OF TCTAB 7 PREST10 SUK A3,2 NEXT ENTRY 7 & P CW A3,SCTTCT ALL ENTRIES CHECKED? 7 P RF(NE) REST30 NOT
0x103028…1031bc Dummy {f00=0x0025, f01=0x0190, f02=» CWR* A2,A3 CHECK IF SAME TASK ID 7 P RB(NE) REST10 NOT THE SAME 8 * " P RB REST20 COINCIDENCE: RETURN 8 N P XIF 8 t P IFF FM=0 8 P EJECT 8 8 P*************************************************** 8 8 P*
0x1031bc…103350 Dummy {f00=0x0025, f01=0x0190, f02=»* * 8 8 P*************************************************** 9 < 8 P* * 9 x 8 P* REFERENCED IN: CONMON * 9 8 P*
0x103350…1034e4 Dummy {f00=0x0025, f01=0x0190, f02=»-FILES * 9 h 8 P* SCTFWL - FILE WORK TABLE LENGTH IN * : 8 P* BYTES * : P 8 P* * : 8 P* EXIT: SCTFWT - ADDRESS TO FIRST FWT * : 8 P*
0x1034e4…103678 Dummy {f00=0x0025, f01=0x0190, f02=»A2,A3 * : | 8 P* * ; ( 8 P* SUBROUTINES: ERROR,MULT * ; d 8 P* * ; 8 P* FUNCTIONAL DESCRIPTION:
0x103678…10380c Dummy {f00=0x0025, f01=0x0190, f02=»* SIZE OF THE AREA RESERVED IS GIVEN BY THE * ; 8 P* FORMULA: A=L*(G+N*T) * < < 8 P* WHERE A=AREA SIZE IN BYTES * < x 8 P* L= FWT LENGTH IN BYTES * < 8 P* G=NUMBER OF
0x10380c…1039a0 Dummy {f00=0x0025, f01=0x0190, f02=» * < h 8 P* * = 8 P*************************************************** = P P EJECT = PB:FWT EQU * = & P LD* A2,SCTTCT GET LENGTH OF TCTAB = & P AD A2,SCTTCT COMPUTE END OF TCTAB = , P SU A2
0x1039a0…103b34 (1, 128) Dummy {f00=0x00a3, f01=0x0190, f02=»ITE PROTECTED ~ PRC:FOR EQU /800 FORMAT * PRC:IDS EQU /10 ILLEGAL DATA SET LABEL 4 4 PMS:128 EQU 2002 MAX SECTOR NUMBER FORMAT (128-1) b 6 PMS:256 EQU 4004 MAX SECTOR NUMBER FORMAT (256-2D) ( PIN:WE1 EQU /8080 1ST WER INSTRUCTION $ PIN:LCK E
0x103b34…103cc8 Dummy {f00=0x00a3, f01=0x0190, f02=»R t $ PEBC:VO EQU /E5D6 EBCDIC FOR 'VO' $ PEBC:L1 EQU /D3F1 EBCDIC FOR 'L1' 2 P EJECT DRFD02 Z P* r P********** | P* * P* TABLES * P* * P********** P* P DATA 0 P DATA DEVIND DEVICE INDE
0x103cc8…103e5c Dummy {f00=0x00a3, f01=0x0190, f02=»******** P* TESTST * P********** " P* 4 P* TEST STATUS ORDER > P* P* f PTESTST EQU * p P CF A15,NVLCHK " P ORS A1,DWTRC,A6 NVL INDICATOR P CM DWTSEC,A6 READ SECTOR 0 , P CF A5,REAPRB PREPARE FOR READ TO BU
0x103e5c…103ff0 Dummy {f00=0x00a3, f01=0x0190, f02=» A1,DWTRC,A6 WRITE PROTECTED $ P LDK A1,/80 INDICATE TEST STATUS $ P SC A1,DWT:FC,A6 L , P CF A5,VO:NAM GET VOLUME NAME AND STATUS d " P ORS A1,DWTRC,A6 FORMAT TO RC P ANK A1,/7 P RF(NZ) TEST50 ERROR 6 P CF A15,VOLNAM VOLUME NAME TO BU
0x103ff0…104184 Dummy {f00=0x00a3, f01=0x0190, f02=»D02 P* P************** P* * , P* ACTIVATION * B P* * X P************** n P* PFDAD EQU * ACTIVATION ENTRY & P CM DWTRC,A6 CLEAR RC ACCUMELATOR 2 P CF A5,GETPAR GET DEVICE DEPENDENT PARAMETER
0x104184…104318 Dummy {f00=0x00a3, f01=0x0190, f02=»TBA,A6 18 BIT BUFFER ADDRESS P XIF $ P IFT MMUPAG=0 0 " P LD A1,ECBBA,A8 BUFFER ADDRESS F P ST A1,DWTBA,A6 l P XIF ( P LD A2,DWTOR,A6 SAVE INDEX AND ORDER P ST A2,DWTORD,A6 , P LDKL A1,IN:WE1-/80 1ST WER INSTRUCTION P*
0x104318…1044ac Dummy {f00=0x00a3, f01=0x0190, f02=» P SUK A3,OR:BAR-OR:TES P RF(Z) READ BASIC READ & P SUK A3,OR:BAW-OR:BAR D P RF(Z) WRITE BASIC WRITE b P SUK A3,OR:PHR-OR:BAW P RF(Z) READ PHYSICAL READ P SUK A3,OR:PHW-OR:PHR P RF(Z) WRITE PHYSICAL WRITE P SUK
0x1044ac…104640 Dummy {f00=0x00a3, f01=0x0190, f02=» A3,OR:LCK-OR:DDW P ABL(Z) LOCKDO LOCK P SUK A3,OR:LOD-OR:LCK 6 P ABL(Z) LOAD LOAD T P SUK A3,OR:ULD-OR:LOD n P ABL(Z) UNLOAD UNLOCK P XIF P* P IFT IBM=1 P SUK A3,OR:BAR-OR:TES P RF(Z) READ BASIC READ
0x104640…1047d4 (1, 129) Dummy {f00=0x00a4, f01=0x0190, f02=» SUK A3,OR:SEW-OR:BAW $ P ABL(Z) SQWRIT SEQUENTIAL WRITE P SUK A3,OR:PHR-OR:SEW F P RF(Z) READ PHYSICAL READ d P SUK A3,OR:PHW-OR:PHR P RF(Z) WRITE PHYSICAL WRITE P SUK A3,OR:FOV-OR:PHW P ABL(Z) FORMAT FORMAT VOLUME
0x1047d4…104968 Dummy {f00=0x00a4, f01=0x0190, f02=» A3,OR:REW-OR:LCK P ABL(Z) REWIND REWIND P SUK A3,OR:LOD-OR:REW 8 P ABL(Z) LOAD LOAD V P SUK A3,OR:ULD-OR:LOD p P ABL(Z) UNLOAD UNLOAD P XIF P* P EJECT DRFD02 P* P* PREQERR EQU * P ABL DIS
0x104968…104afc Dummy {f00=0x00a4, f01=0x0190, f02=» P********** P* DDWRIT * P* WRITE * , P* READ * > P********** P P* b * P* WRITE DELETED DATA , WRITE AND READ l P* P* PDDWRIT EQU * P LDKL A3,/800 CIO REGISTER PWRITE EQU * P ADK A3,/1 CIO R
0x104afc…104c90 Dummy {f00=0x00a4, f01=0x0190, f02=»NEW VOLUME LOADED x P ADK A1,0 . P RB(NZ) TEST50 NEW VOLUME LOADED : END IO , P* ^ P EJECT DRFD02 h P* ~ P* P LD A4,DWTFOR,A6 FORMAT $ P LD A1,ECBRL,A8 REQUESTED LENGTH P RB(Z) ER:ILE ILLEGAL LENGTH " P LD A2,ECB
0x104c90…104e24 Dummy {f00=0x00a4, f01=0x0190, f02=»LLEGAL SECTOR NUMBER P ST A1,DWTRL,A6 SAVE LENGTH P LDR A3,A1 @ $ P SRL A3,7 NUMBER OF 128 SECTORS R P SRC A4,2 FORMAT z P RF(N) TRA500 FORM: (256-2D) P IFT TOSS+IBM=2 P SLC A4,1 P RF(N) TRA300 IBM FORMATED P XIF
0x104e24…104fb8 Dummy {f00=0x00a4, f01=0x018e, f02=»NL) REQERR ILLEGAL SECTOR NUMBER P RF TRA400 ( PTRA300 EQU * : P XIF N P IFT IBM=1 Z P SLL A1,1 l " P ADK A3,78 SPARE TRACK SECTORS ~ , P CWK A2,MS:128-78 MAX IBM SECTOR NUMBER ( P RB(NL) REQERR ILLEGAL SECTOR NUMBER PTRA400 E
0x104fb8…10514c Dummy {f00=0x00a4, f01=0x0190, f02=» P* P* PTRA500 EQU * P IFT TOSS+IBM=2 , P SLC A4,1 D P RF(N) TRA525 IBM FORMATTED V P XIF z P IFT TOSS=1 P CWK A2,13 " P RF(NL) TRA550 NOT TRACK ZERO $ P SLL A2,1 PHYSICAL SECTOR NUMBER P RF TRA600
0x10514c…1052e0 Dummy {f00=0x00a4, f01=0x0190, f02=»ER n P CWK A2,26 P RF(NL) TRA530 P SLL A1,1 2 $ P ADR A3,A2 END OF BUFFER SECTOR D P SUK A3,26 l P RF(N) TRA600 TRACK ZERO ~ P ANK A3,1 ODD OR EVEN " P RB(NZ) ER:ILE ILLEGAL LENGTH PTRA530 EQU * $ P SRL A3,1 NUMBER O
0x1052e0…105474 (1, 130) Opaque[0x194]
0x105474…105608 # DirEnt {nam=»ADMTSK«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0a18, f03=0xffff}
0x105474…105608 IdxSect {
0x105474…105608 f00 = 0x0050 // 0x105474 @0x0
0x105474…105608 f01 = 0x0014 // 0x105476 @0x2
0x105474…105608 gno = [ // 0x105478 @0x4
0x105474…105608 [0x00]: C0x0050.0x3.0
0x105474…105608 [0x01]: C0x0051.0x0.0
0x105474…105608 [0x02]: C0x0051.0x1.0
0x105474…105608 [0x03]: C0x0051.0x2.0
0x105474…105608 [0x04]: C0x0051.0x3.0
0x105474…105608 [0x05]: C0x0052.0x0.0
0x105474…105608 [0x06]: C0x0052.0x1.0
0x105474…105608 [0x07]: C0x0052.0x2.0
0x105474…105608 [0x08]: C0x0052.0x3.0
0x105474…105608 [0x09]: C0x0053.0x0.0
0x105474…105608 ]
0x105474…105608 }
0x105608…10579c Dummy {f00=0x0050, f01=0x0190, f02=» 2 P IDENT ADMTSK REL 11.0 81-02-12 870105041100 P : , P =2, WRONG STATUS INFORMATION RETURNED B P REL 11.0 81-02-06 r ( P =1, LOCAL FILE CODES NOT WORKING P REL 11.0 81-01-26 * * 0 ,******************************
0x10579c…105930 Dummy {f00=0x0050, f01=0x0190, f02=»** f * P* * ENTRY ADMTSK ( * > P EJECT ADMTSK H P* ^ P******************* h P* * P* EXTERNALS * P* * P******************* P* P* P
0x105930…105ac4 Dummy {f00=0x0050, f01=0x0190, f02=» OPTION z P EXTRN FWTFNR FILE NUMBER " P EXTRN FWTPAR NUMBER OF USERS 2 " P EXTRN ECBRL REQUESTED LENGTH X P EXTRN ECBBA BUFFER ADDRESS ~ $ P EXTRN ECBCW1 1ST CONTROLL WORD $ P EXTRN ECBCW2 2ND CONTROLL WORD P EXTRN MOV:US MOVE ROU
0x105ac4…105c58 Dummy {f00=0x0050, f01=0x0190, f02=»R t P EXTRN FPB:EL ENLARGE $ P EXTRN FPB:FO FILE ORGANISATION ( P EXTRN FPB:S1 SIZE P " P EXTRN FPB:RP RETENTION PERIOD j P EXTRN ECBRC RETURN CODE " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN FPB:RL RECORD LENGTH $ P EXTRN FPB:FR
0x105c58…105dec Dummy {f00=0x0050, f01=0x018e, f02=» n P* P EJECT ADMTSK P* ( P* 2 , P EXTRN DMXACD EXIT TASK AND ACTIVATE #D < 2 P EXTRN DMACTD ACTIVATE ADMINISTRATION ADM TASK l " P EXTRN DV3RST REST AFTER DIV 3 P EXTRN TENDIO * P EXTRN DMTTSB STACK BASE DISPLACEMENT
0x105dec…105f80 Dummy {f00=0x0050, f01=0x0190, f02=» r P EXTRN FDBENL ENLARGE , P EXTRN FDBEXC EXCLUSIVE ACCESS INDICATOR & P EXTRN FPB:NO FILE NUMBER V P EXTRN FPB:DT DEVICE TYPE x P EXTRN TTB:MT USER MMU TABLE P EXTRN FPB:SH SHAREABILITY $ P EXTRN MONMMU MONITOR MMU TABLE 2 P
0x105f80…106114 (1, 131) Dummy {f00=0x0051, f01=0x0190, f02=»R r , P EXTRN SETCRO RETURN AND SET CR OVERFLOW P* : P* D P* N P* X P********** b P* FORM * t P********** P* P* PBYTE FORM 8,8 P* P* P EJECT ADMTSK P* P* * P********
0x106114…1062a8 Dummy {f00=0x0051, f01=0x018e, f02=» * * P************************************** ( P* V P* ` * P* A VERSION LEAVING OUT OPEN MODES: j 2 P* OPEN OUTPUT,OPEN EXTEND AND CLOSE DISCARD ( P* IS OBTAINED BY SETTING X:A EQU 0 P* P*
0x1062a8…10643c Dummy {f00=0x0051, f01=0x0190, f02=» P******************** P* * P* CONSTANTS * < P* * X P******************** t P* P* P******************** P* * P* RETURN STATUS * P*
0x10643c…1065d0 Dummy {f00=0x0051, f01=0x0190, f02=» EQU 3 OVERFLOW $ PRSTWFP EQU 4 WRONG FD PARAMETER P* @ ( PRC:NOD EQU /800 RETURN CODE NO DATA J & PFPBLLE EQU 88 LENGTH OF FPB L-FILE v & PFPBSLE EQU 66 LENGTH OF FPB S-FILE ( PLFILEN EQU 256 L-FILE RECORD LENGTH P* P EJECT
0x1065d0…106764 Dummy {f00=0x0051, f01=0x0190, f02=»* ~ P******************* P* & P* 0 P* : P EJECT ADMTSK D P* Z P* d P* n P********** x P* EXEORD * P********** P* P* TABLE FOR ORDER LABELS P* P* PEXEORD EQU * P DATA
0x106764…1068f8 Dummy {f00=0x0051, f01=0x0190, f02=»-EXEORD OPEN OUTPUT RANDOM P DATA OPENOR OUTPUT RANDOM " P DATA OPENEX EXTEND D " P DATA OPENOS OUTPUT SEQUENTIAL ` P DATA CLODIS P XIF P DATA CLOLCK P DATA REFIPA P DATA SEQWRI P DATA REWRIT P DATA DELETE
0x1068f8…106a8c Dummy {f00=0x0051, f01=0x0190, f02=» P XIF P* P EJECT ADMTSK P* 0 P********** : P* STAMAP * L P********** ^ P* p P* STATUS BYTES z 8 P* CHANGE SOME FM ERROR BITS TO STATUS INFORMATION P* BIT: P* P* PSTAMAP EQU * P B
0x106a8c…106c20 Dummy {f00=0x0051, f01=0x0190, f02=»E RSTOFL,0 11,12 P* P EJECT ADMTSK " P* 8 P* B P********** L P* FILORG * ^ P********** p P* . P* TABLE OVER ALLOWED FILE ORGANIZATIONS P* 8 PBUFFNU EQU *-/100 BUFFER INDICATING RECORD NOT USED PFILO
0x106c20…106db4 (1, 132) Dummy {f00=0x0051, f01=0x0190, f02=» 0 , RETURN CODE @ P* A4 = NUMBER OF SECTORS PER RECORD (NOT OPEN ORDER) " P* SET A8 = ADM ECB ADDRESS $ P* A9 = USER ECB ADDRESS * P* A10= FILE DESCRIPTOR ADDRESS < P* A12= ADDRESS TO FILE PARAMETER BLOCK (
0x106db4…106f48 Dummy {f00=0x0051, f01=0x0190, f02=»SB STACK BASE P LDR A10,A1 FDB ADDRESS & P LD A9,DWTECB,A10 USER ECB ADDRESS 6 P LDR A8,A10 ` $ P ADKL A8,FDBECB ADM ECB ADDRESS t P LC A1,FWTFNR,A1 FILE NUMBER P ANK A1,/FF P STR A1,A8 FILL ADM ECB & P LD A4,FDBRLE,A10 RE
0x106f48…1070dc Dummy {f00=0x0051, f01=0x0190, f02=»ET RETURN CODE $ P LDR A13,A8 GET ADDRESS TO ECBCW P ADKL A13,ECBCW1 > P* V P EJECT ADMTSK ` P* v P* & P LD A1,ECBCW1,A9 GET RECORD NUMBER P LD A2,ECBCW2,A9 & P RF(P) ADMT10 DOUBLE SUBTRACT ONE P LDKL A2,/8000 CAR
0x1070dc…107270 Dummy {f00=0x0051, f01=0x0190, f02=» FDB ADDRESS * P SRL A4,8 NUMBER OF SECTORS PER RECORD , P CF A14,DBLMUL CONVERT TO SECTOR ADDRESS B P IM 2,A13 DOUBLE ADD ONE r P RF(P) ADMT20 NO CARRY P CM 2,A13 P IMR A13 PADMT20 EQU * ( P LDKL A12,ADMBUF ADM BUFFER ADDRES
0x107270…107404 Dummy {f00=0x0051, f01=0x0190, f02=» P EJECT ADMTSK P* P* ( P********** 2 P* DIREAD * D P********** V P* h P* READ RECORD DIRECT r P* P* PDIREAD EQU * P LDK A7,/91 PHYSICAL READ " P CF A14,ADM:BA TO USER BUFFER P RF(NZ)
0x107404…107598 Dummy {f00=0x0051, f01=0x0190, f02=»D OF BUFFER ~ P IFT MMUPAG=0 P LC A1,-1,A2 * P XIF > P IFT MMUPAG=1 J ( P LD A1,DWTTAB,A10 USER TTAB ADDRESS ` P TL TTB:MT,A1 USER MMU TABLE P EL A1,-2,A2 STATUS P ANK A1,/FF P TL MONMMU MONITOR MMU TABLE P XIF
0x107598…10772c Dummy {f00=0x0051, f01=0x0190, f02=» EQU * $ P LD A1,FDBRLE,A10 RECORD LENGTH P ST A1,ECBEL,A9 6 P RF ADMEXI END IO N P* h P IFT CRDEEX=1 r P EJECT ADMTSK P* P* P********** P* EXTEND * P********** P* 2 P* EXTEND FILE AND CO
0x10772c…1078c0 Dummy {f00=0x0051, f01=0x0190, f02=»T ENLARGE FACTOR | & P ST A1,FPB:EL,A12 FILL IN ENLARGE P LDKL A7,/1A1 EXTEND B P CF A14,ADM:AF EXTEND ^ P RF(NZ) ADMEXI ERROR | P LD A3,FDBOMD,A11 OPEN MODE P ANK A3,/7F P SUK A3,EXEOOR , P RF(NZ) SEQWRI NOT OPENED OUTPUT R
0x1078c0…107a54 (1, 133) Dummy {f00=0x0051, f01=0x0190, f02=» P********** P* SEQWRI * P********** ( P* : P* SEQUENTIAL WRITE D 2 P* INPUT : A4 = NUMBER OF SECTORS PER RECORD ` P* P* PSEQWRI EQU * * P CF A14,GETLRN GET LAST RECORD NUMBER * P IM ECBCW2,A8 DOUBLE ADD ONE
0x107a54…107be8 Dummy {f00=0x0051, f01=0x0190, f02=»LRN,A10 GET LRN P ANK A1,/FF P LD A2,FDBLRN+1,A10 , P ADK A2,1 LRN+1 H P RF(P) SEQW06 NOT OVERFLOW ` P LDK A2,0 P ADK A1,1 PSEQW06 EQU * $ P ST A1,ECBCW1,A9 LRN TO USER ECB P ST A2,ECBCW2,A9 P* P EJE
0x107be8…107d7c Dummy {f00=0x0051, f01=0x0190, f02=»EEX=1 P RF(Z) SEQW10 WRITE OK P SLL A1,2 , " P RF(NN) ADMEXI NOT END OF FILE > $ P LD A2,FDBENL,A10 ENLARGE FACTOR d , P RF(Z) ADMEXI NO ENLARGE FACTOR DECLARED P LDK A1,EXEEXT EXTEND FILE P SC A1,DWTOR+1,A10 $ P LDKL A8,ADMTSK
0x107d7c…107f10 Dummy {f00=0x0051, f01=0x0190, f02=» " P LC A1,ECBCW1+1,A9 UPDATE LRN P SC A1,FDBLRN,A10 * P LD A2,ECBCW2,A9 D P ST A2,FDBLRN+1,A10 P RF ADMEXI x P* P EJECT ADMTSK P* P* P********** P* REWRIT * P* RANWRI * P********** P*
0x107f10…1080a4 Dummy {f00=0x0051, f01=0x018e, f02=»TE ~ P RF ADMEXI END IO P* $ P EJECT ADMTSK . P* D P* N P********** X P* DELETE * j P********** | P* P* DELETE RECORD P* P* PDELETE EQU * ( P SUK A4,1 GET LAST SECTOR IN RECORD P A
0x1080a4…108238 Dummy {f00=0x0051, f01=0x0190, f02=» P CF A14,ADMWFO WRITE P EJECT ADMTSK P* 6 P* @ P********** J P* ADMEXI * P********** n P* P* P* EXIT ADM TASK P* P* PADMEXI EQU * P LD A1,ECBRC,A8 RETURN CODE " P ANKL A1,/4E50
0x108238…1083cc Dummy {f00=0x0051, f01=0x018e, f02=»TFDB FILE CODE ENTRY =1 P SCR A6,A4 SAVE STATUS 4 P LDKL A1,/8080 REQUEST ERROR MORE INFORMATION =2 > P RF ADMEX3 v PADMEX2 EQU * P OR A1,ECBRC,A8 GET TOTAL RC PADMEX3 EQU * & P LDR A6,A10 FDB ADDRESS FOR TENDIO P INH "
0x1083cc…108560 Dummy {f00=0x0051, f01=0x0190, f02=» P* P********** P* OPENOR * $ P********** 6 P* H P* OPEN OUTPUT RANDOM R P* p POPENOR EQU * z P CF A14,CREFIL CREATE FILE P RF(NZ) CLODIS DELETE FILE P CF A14,FORFIL FORMAT FILE P RF(NZ) CLODIS DELET
0x108560…1086f4 (1, 134) Dummy {f00=0x0051, f01=0x0190, f02=»**** P* P* P* OPEN EXTEND P* 8 P* B POPENEX EQU * L P CF A14,OPFILE ` " P RF(NZ) CLO450 CLOSE IF OPENED v P CF A14,ENLFAC P RF(O) CLO450 CLOSE P ST A3,FDBENL,A11 ENLARGE P RF EXIOPE EXIT P
0x1086f4…108888 Dummy {f00=0x0051, f01=0x0190, f02=» EXISTING FILE P* P* POPENFI EQU * * P CF A14,OPFILE OPEN FILE > $ P RF(NZ) CLO450 ERROR:CLOSE FILE ^ PEXIOPE EQU * & P CF A14,CONPAR CONVERT PARAMETERS & P CF A14,GETFDB FILE CODE ENTRY =1 * P ST A11,2,A4 CONNECT FILE
0x108888…108a1c Dummy {f00=0x0051, f01=0x0190, f02=»OS * P********** P* P* OPEN OUTPUT SEQUENTIAL ( P* J P* T POPENOS EQU * ^ P CF A14,CREFIL CREATE FILE r P RB(Z) EXIOPE NO ERROR P* P XIF P EJECT ADMTSK P* P* P********** P* CL
0x108a1c…108bb0 Dummy {f00=0x0051, f01=0x0190, f02=»EEX=1 PCLODIS EQU * ! P LDKL A7,/2A2 DELETE FILE ! " P RF CLO500 ! D P* ! V P* ! ` P XIF ! j PCLOLCK EQU * ! v P IFT CRDEEX=1 ! P LC A3,FDBOMD,A11 OPEN MODE ! P ANK A3,/7F ! P SUK A3,EXEOOR ! . P RF(NP) CLO400 OPENED OUTP
0x108bb0…108d44 Dummy {f00=0x0051, f01=0x0190, f02=» EQU * CLOSE FILE ! 0 P LC A2,FDBLRN,A11 LAST RECORD NUMBER TO FPB " P ANK A2,/FF " N P ST A2,FPB:FR,A12 " b P LD A2,FDBLRN+1,A11 " | P ST A2,FPB:FR+2,A12 " * PCLO450 EQU * CLOSE WITHOUT SETTING LRN " P LDK A7,/A2 CLOSE FILE " PCLO500 E
0x108d44…108ed8 Dummy {f00=0x0051, f01=0x0190, f02=» ( P ORS A3,ECBRC,A8 UPDATE RETURN CODE # P RB ADMEXI # 0 P* # B P EJECT ADMTSK # L P* # b P* # l P********** # v P* REFIPA * # P********** # P* # P* READ FILE PARAMETERS # P* # PREFIPA EQU * # ( P CF A14,ADMRFP READ
0x108ed8…10906c Dummy {f00=0x0051, f01=0x0190, f02=» # z P CM ECBCW2,A9 $ P RB ADMEXI EXIT $ P* $ 6 P EJECT $ @ P* $ N P* $ X P******************* $ b P* * $ ~ P* SUBROUTINES * $ P* * $ P******************* $ P* $ P********** $
0x10906c…109200 Dummy {f00=0x0051, f01=0x0190, f02=»A1,DWTTAB,A10 TTAB ADDRESS OF USER =1 $ P LDR* A2,A9 FILE CODE =1 % . P ANK A2,/FF =1 % N $ P LDK A5,0 SEARCH BOTH TABLES =1 % f P CF A14,FNDFDB =1 % P RTN A14 =1 % P* % P EJECT ADMTSK % P* % P********** % P* GETFPB * %
0x109200…109394 (1, 135) Dummy {f00=0x0052, f01=0x0190, f02=» A10= FDB ADDRESS % P* A12= FPB ADDRESS & * P* OUTPUT: A5=TTAB ADDRESS USER TASK & D 2 P* A4=NUMBER OF SECTORS PER RECORD & r " P* A1,A2,A3 ARE USED & P* & PGETFPB EQU * & , P LD A4,DWTTAB,A10 GET USER T
0x109394…109528 Dummy {f00=0x0052, f01=0x0190, f02=» A1,8 NOT FIRST PART & 0 P CF A14,MOV:US FILE DESCRIPTOR TO WORK AREA ' 8 P LC A3,FPB:FO,A12 CONVERT FILE ORGANISATION TO ASCII ' P P LC A1,FILORG,A3 ' P SC A1,FPB:FO,A12 ASCII ' P* ' P EJECT ADMTSK ' P* ' P* ' P ANK A3,/FF '
0x109528…1096bc Dummy {f00=0x0052, f01=0x0190, f02=»AR REST OF FPB ' P SUK A2,2 ADDRESS ( P CMR A2 ( 0 P SUK A1,2 ( @ P RB(P) GETF10 NEXT WORD ( R * P LDKL A2,'00' ZEROIZE RETENTION PERIOD ( r P ST A2,FPB:RP,A12 ( P SC A2,FPB:RP+2,A12 ( PGETF20 EQU * ( P LDK A4,0 SHAREABILITY = 0 (
0x1096bc…109850 Dummy {f00=0x0052, f01=0x0190, f02=»R RECORD ( r P SUK A3,2 FILE ORGANIZATION ) P RF(NZ) GETF30 NOT L-FILE ) 4 P CM FPB:RL,A12 RL=0 ) V PGETF30 EQU * ) r P RTN A14 ) P* ) P EJECT ADMTSK ) P* ) P* ) P********** ) P* CONPAR * ) P********** ) P* )
0x109850…1099e4 Dummy {f00=0x0052, f01=0x0190, f02=»ADDRESS ) z , P* A11=FDB ADDRESS OPENED FILE * P* OUTPUT: A5 = FPB LENGTH * @ P* A4 IS USED * d . P* A1,A2,A3,A6,A7,A13 ARE USED * P* * PCONPAR EQU * * ( P LDK A2,FPBSLE FPB LENGTH OF S-FILE * ( P LC A1,F
0x1099e4…109b78 Dummy {f00=0x0052, f01=0x0190, f02=» * h P LDK A1,2 L-FILE + P RF(L) CON100 + P LDK A1,3 X-FILE + 6 PCON100 EQU * + N P* + b P EJECT ADMTSK + l P* + P* + P ST A2,ECBRL,A8 SAVE LENGTH + . P SC A1,FPB:FO,A12 FILE ORGANIZATION NUMBER + P ANK A1,2 L OR X FILE +
0x109b78…109d0c Dummy {f00=0x0052, f01=0x0190, f02=»A11 FILE NUMBER + P SLL A1,8 , 2 P ST A1,FPB:NO,A12 DATA FILE,INDEX FILE NUMBER , * P IFT CRDEEX=1 , ` ( P CF A14,CONENL ENLARGE IN PERCENTAGE , v P XIF , P IFT CRDEEX=0 , P CM FPB:EL,A12 , P XIF , $ P LD A4,FDBRLE,A11 RECORD LENGTH ,
0x109d0c…109ea0 Dummy {f00=0x0052, f01=0x0190, f02=»ADMTSK , P* - P* - P LDR A13,A12 - " $ P ADKL A13,FPB:S1 ADDRESS TO SIZE - 6 P LDK A5,4 COUNTER - ^ PCON500 EQU * - x P LDK A1,0 - P LDR* A2,A13 - P RF(Z) CON600 - " P LDR A6,A4 SECTORS PER RECORD - P CF A14,DIVMOD - P STR
0x109ea0…10a034 (1, 136) Dummy {f00=0x0052, f01=0x018e, f02=»DIVMOD - P ST A2,2,A13 . P ADKL A13,10 NEXT SIZE . " P SUK A5,1 . @ ( P RB(NZ) CON500 MORE SIZES TO CONVERT . R P LD A3,ECBRL,A8 FPB LENGTH . ~ P LDR A5,A3 SAVE LENGTH . " P LDR A1,A12 ADM BUFFER ADDRESS . P LD A2,ECBBA,A9 . P ADK A2,8 NO
0x10a034…10a1c8 Dummy {f00=0x0052, f01=0x0190, f02=» P* / P EJECT ADMTSK / P* / $ P* / . P********** / 8 P* GETLRN * / J P********** / P* / n " P* CONVERT LAST RECORD NUMBER / x P* / P* INPUT : A8=ECB ADDRESS / P* A11=FDB ADDRESS / P* / 0 P* OUTPUT: A
0x10a1c8…10a35c Dummy {f00=0x0052, f01=0x0190, f02=» @ P* ECBCW1,ECBCW2=LRN CONVERTED TO SECTOR NUMBER-1 0 P* A6,A7 ARE USED 0 H P* 0 l PGETLRN EQU * 0 v $ P LD A4,FDBRLE,A11 RECORD LENGTH 0 P ADK A4,1 0 P SRL A4,8 NUMBER OF SECTORS 0 P LC A1,FDBLRN,A11 0 P ANK A
0x10a35c…10a4f0 Dummy {f00=0x0052, f01=0x0190, f02=»NUMBER 0 x P ST A2,ECBCW2,A8 1 , P CF A14,DBLMUL CONVERT TO SECTOR ADDRESS 1 & P RF RETA14 1 V P* 1 h P EJECT ADMTSK 1 r P* 1 P* 1 P********** 1 P* OPFILE * 1 P********** 1 P* 1 0 P* OPEN EXISTING FILE AND CHECH SHAREBILITY
0x10a4f0…10a684 Dummy {f00=0x0052, f01=0x0190, f02=»ECTORS PER RECORD 1 t * P* A1,A2,A3,A5,A7 ARE USED 2 P* 2 H P* 2 R POPFILE EQU * 2 P CF A14,GETFPB 2 p P LDK A7,/A1 OPEN FILE 2 P CF A14,ADMOPE OPEN 2 P RF(NZ) RETA14 ERROR 2 $ P LDKL A1,/8000 RC: REQUEST ERROR 2 P LDK
0x10a684…10a818 Dummy {f00=0x0052, f01=0x0190, f02=»3,'LL' 2 P RF(E) OPE100 L-FILE 3 P CCK A3,'XX' 3 * & P RF(NE) RETA14 NOT L-,S- OR X-FILE 3 > P* 3 h P EJECT ADMTSK 3 r P* 3 P* 3 POPE100 EQU * 3 $ P AD A2,FPB:RL,A12 RECORD LENGTH 3 P ANK A2,/FF 3 ( P RF(NZ) RETA14 ILLEGAL RECOR
0x10a818…10a9ac Dummy {f00=0x0052, f01=0x0190, f02=»RGE FACTOR 3 * P LC A1,FWTPAR,A11 GET NUMBER OF USERS 4 P ANK A1,/3F 6 BITS 4 @ P SUK A1,1 4 Z P RF(Z) SETFDB 1ST OPEN 4 l P LD A1,FDBEXC,A11 4 ( P RF(NZ) OPE900 FILE OPENED EXCLUSIVE 4 P LC A2,FDBOMD,A11 OPEN MODE 4 P ANK A2,/7F NOT FILE
0x10a9ac…10ab40 Dummy {f00=0x0052, f01=0x0190, f02=» VIOLATION OF SHAREBILITY ROULES 4 | P RF RETA14 5 ( P* 5 : P EJECT ADMTSK 5 D P* 5 Z P* 5 d P********** 5 n P* DBLMUL * 5 P********** 5 P* 5 P* DOUBLE MULTIPLY 5 P* 5 P* INPUT : A4 = ARG1 5 ( P* A13=
0x10ab40…10acd4 (1, 137) Dummy {f00=0x0052, f01=0x0190, f02=»SULT 5 z P* 6 PDBLMUL EQU * 6 P LDR A6,A4 ARG1 6 * " P LDR* A7,A13 1ST PART OF ARG2 6 B P RF(Z) DBLM10 6 h P CF A14,MPYMOD 6 ~ P ADK A1,0 6 P RF(NZ) SETOVE OVERFLOW 6 P STR A2,A13 6 PDBLM10 EQU * 6 P LDK A1,0 6 P LDK A2,
0x10acd4…10ae68 Dummy {f00=0x0052, f01=0x0190, f02=»E OVERFLOW 6 P* 7 P EJECT ADMTSK 7 P* 7 2 P* 7 < PDBLM30 EQU * 7 F P ST A2,2,A13 7 Z P STR A1,A13 SAVE RESULT 7 n PRETA14 EQU * 7 P ABL RTNA14 RTN A14 7 PSETOVE EQU * 7 & P ABL SETCRO RTN A14 (SET OVERFLOW) 7 P* 7 P I
0x10ae68…10affc Dummy {f00=0x0052, f01=0x018e, f02=»* CREATE FILE FORE OPEN OUTPUT 7 P* 8 ( P* INPUT : A8=ECB ADDRESS 8 2 8 P* OUTPUT: A1=RC FROM OPEN CR SET ACCORDING TO A1 8 V 2 P* A4=NUMBER OF SECTORS PER RECORD 8 6 P* A2,A3,A4,A5,A6,A7,A13,A12 ARE USED 8 0 P*
0x10affc…10b190 Dummy {f00=0x0052, f01=0x0190, f02=» 8 r P LDR A13,A12 FDB ADDRESS 9 $ P ADKL A13,FPB:S1 ADDRESS TO SIZE 9 ( PCREF10 EQU * 9 P & P CF A14,DBLMUL NUMBER OF SECTTORS 9 d P RB(N) SETOVE OVERBLOW 9 PCREF15 EQU * 9 P LDR A6,A1 NUMBER OF SECTORS 9 P LDR A7,A2 9 $ P CF A14,DV3RST RES
0x10b190…10b324 Dummy {f00=0x0052, f01=0x0190, f02=»OVE OVERBLOW 9 P STR A1,A13 INTO FPB : P ST A2,2,A13 : 0 & P RB CREF15 CHECK IF MULTIPLE OF 3 : D P* : n P EJECT ADMTSK : x P* : P* : PCREF18 EQU * : P ADKL A13,10 : P SUK A5,1 : P RB(P) CREF10 NEXT SIZE : P CF A14,ENLF
0x10b324…10b4b8 Dummy {f00=0x0052, f01=0x0190, f02=»OR : ~ P LDR* A2,A8 DATA FILE NUMBER ; P SC A2,FPB:NO,A12 ; . P XIF ; H P* ; T P EJECT ADMTSK ; ^ P* ; t P* ; ~ P********** ; P* SETFDB * ; P********** ; P* ; B P* SET FDB PARAMETERS FDBENL,FDBOMD,FDBEXC,FDBLRN AND FDBRLE ;
0x10b4b8…10b64c Dummy {f00=0x0052, f01=0x0190, f02=»DB EQU * ; P ST A3,FDBENL,A11 ENLARGE < * P LD A2,DWTOR,A10 OPEN MODE AND OPTION < 2 ( P SC A2,FDBOMD,A11 INDICATE OPEN MODE < ` $ P SLL A2,6 EXCLUSIVE ACCES WANTED < P RF(NN) SETF25 NO < P LD A1,DWTTAB,A10 < PSETF25 EQU * < 0 P ST A1,FDBEX
0x10b64c…10b7e0 Dummy {f00=0x0052, f01=0x0190, f02=»DBLRN+1,A11 < ( P LD A2,FPB:RL,A12 GET RECORD LENGTH = P RF(NZ) SETF30 NOT L-FILE = @ ( P LDKL A2,LFILEN L-FILE RECORD LENGTH = b PSETF30 EQU * = P ST A2,FDBRLE,A11 = P LDK A1,0 = PRETUR EQU * = P RB RETA14 = P* = P IFT CRDEE
0x10b7e0…10b974 (1, 138) Dummy {f00=0x0052, f01=0x0190, f02=»AT FILE = P* > " P* INPUT : A8 = ECB ADDRESS > " P* A11= FDB ADDRESS > @ P* > f P* OUTPUT: > p 0 P* A1,A2,A4,A5,A6,A7,A13 ARE USED > P* > PFORFIL EQU * > * P CF A14,GETLRN GET LAST RECORD NUMBER > P LDR
0x10b974…10bb08 Dummy {f00=0x0052, f01=0x0190, f02=»F A4</FF > P ADK A5,1 ? PFORF20 EQU * ? " P STR A5,A13 TO ECBCW ? 6 P ST A6,2,A13 ? R P CF A14,ADMWFO ? f P RB(Z) FORF10 FILE NOT READY ? | & P ANKL A1,/1FF NOT END OF FILE BITS ? P ST A1,ECBRC,A8 ? P RF ADMI10 ? P* ? P XIF ?
0x10bb08…10bc9c Dummy {f00=0x0052, f01=0x018e, f02=»TINES ? P* @ 8 P* OUTPUT: CR SET ACCORDING TO RC EXCEPT RETRY BIT @ P* @ T " P* INPUT : A8= ECB ADDRESS @ ^ $ P* (A10 = FDB ADDRESS) @ " P* A1,A2,A7 ARE USED @ P* @ PADMWFO EQU * FORMAT FILE @ P LDK A7,/95
0x10bc9c…10be30 Dummy {f00=0x0052, f01=0x0190, f02=» @ P IFT MMUPAG=1 A ( P LDK A1,0 BIT 0,1 OF 18 BIT ADDRESS A P XIF A J P RF ADM:IO A V P* A h PADMWRI EQU * A r P LD A7,FDBOMD,A10 FILE TYPE A P RF(N) ADMW10 L OR X FILE A " P LD A7,ECBBA,A9 BUFFER ADDRESS A " P AD A7,ECBRL,A8 END OF
0x10be30…10bfc4 Dummy {f00=0x0052, f01=0x0190, f02=»RD USED A v P XIF B P IFT MMUPAG=1 B ( P LD A2,DWTTAB,A10 USER TTAB ADDRESS B 2 P TL TTB:MT,A2 USER MMU TABLE B ^ ( P EL A2,-2,A7 GET LAST WORD OF BUFFER B P ORK A2,/FF SET RECORD BUSY B P ES A2,-2,A7 B P TL MONMMU MONITOR MMU TABLE B
0x10bfc4…10c158 Dummy {f00=0x0052, f01=0x018e, f02=»BA * B P********** C P* C & P* INPUT : A8 = ADM ECB ADDRESS C ( ( P* A9 = USER ECB ADDRESS C R " P* A10 = FDB ADDRESS C ~ P* C . P* OUTPUT: A1 = RC CR SET ACCORDING T A1 C P* A2,A7 ARE USED C P* C
0x10c158…10c2ec Dummy {f00=0x0052, f01=0x0190, f02=» * P LD A1,ECBBA,A9 16 BIT BUFFER ADDRESS D P DRL 12 D 2 P SLL A1,1 PAGE ADDRESS D B P AD A1,DWTTAB,A10 D ` * P LD A1,TTB:MT,A1 MOST SIGNIFICANT BITS D z P SRL A1,10 D P DRL 4 D P SLL A1,4 D P* D P EJECT ADMTSK D P* D P****
0x10c2ec…10c480 Dummy {f00=0x0052, f01=0x018e, f02=» ( P* A8 = ADM ECB ADDRESS E P* E 0 P XIF E : PADM:IO EQU * E F P ST A2,ECBBA,A8 ADM ECB E Z P IFT MMUPAG=1 E z P SCR A1,A8 BIT 0,1 E P XIF E P LKM E P DATA 15 E PADMI10 EQU * E P LD A1,ECBRC,A8 RETURN CODE E
0x10c480…10c614 (1, 139) Dummy {f00=0x0053, f01=0x0190, f02=» E P* F P EJECT ADMTSK F P* F ( P********** F 2 P* ADMOPE * F D P* ADMRFP * F V P* ADM:AF * F h P********** F z P* F * P* OPEN FILE AND READ FILE PARAMETERS F P* F 6 P* OUTPUT: A1= ERROR CODE CR SET ACCORDING TO A1 F P
0x10c614…10c7a8 Dummy {f00=0x0053, f01=0x0190, f02=»ADMOPE EQU * F & P SUR A11,A11 INDICATE NO OPEN DONE G P CF A14,ADM:AF G > P IFT CRDEEX=1 G T P RB(NZ) RETUR ERROR G j P XIF G P IFT CRDEEX=0 G P RB(NZ) RETA14 G P XIF G P LDR* A1,A8 FILE NUMBER G P ANK A1,/FF G " P LDKL A11,
0x10c7a8…10c93c Dummy {f00=0x0053, f01=0x4120, f02=»XT FWT G 2 P ANKL A11,/FFFE BIT 15 USED BY FILE MANAGEMENT H 0 PADMRFP EQU * READ FILE PARAMETERS TO ADMBUF H D P LDK A7,/83 H x PADM:AF EQU * H & P LDR A2,A12 ADM BUFFER ADDRESS + 8 H P RB ADMI00 H P* H P EJECT ADMTSK H P* H P*
0x10c93c…10cad0 Dummy {f00=0x0053, f01=0x2008, f02=» I RROR END @
0x10cad0…10cc64 Dummy {f00=0x0053, f01=0x0190, f02=»2,A11 I & P CF A14,FRMFIL FORMAT REST OF FILE J $ P ORS A1,ECBRC,A9 SET RETURN CODE J 8 P RF SDMC30 J ` PSDMC20 EQU * J r ( P CF A14,SDMRLB RELEASE BLOCK BUFFER J PSDMC30 EQU * J P* J P* CLEAR CURRENCY J P* J & P CF A14,CRNGET GET C
0x10cc64…10cdf8 Dummy {f00=0x0053, f01=0x0190, f02=» P CM CRNCIF,A2 K P CM CRNCIF+2,A2 K P XIF K 2 P EJECT K > P* K L P* BUILD CLOSE TABLES K V P* K t P LC A7,ECBFC,A9 FILE CODE K ~ P LDK A5,10 2 * FILES K PSDMC40 EQU * K P SUK A5,2 K P RF(N) SDMC60 ALL FILES K P LDR A
0x10cdf8…10cf8c Dummy {f00=0x0053, f01=0x0190, f02=»F,A4 FDB ADDR K P RF(Z) SDMC50 NO FILE L & P LD A6,FDBMIA,A3 MASTER INDEX ADDR L 4 P LC A2,FWTFNR,A3 FILE NR L ^ P LC A9,FDBLRN,A3 LAST REC NR L ~ P LD A10,FDBLRN+1,A3 L PSDMC50 EQU * L P ST A6,OPEMXI,A5 L P ST A3,OPEFWT,A5 L P LDR A
0x10cf8c…10d120 Dummy {f00=0x0053, f01=0x018e, f02=»REC NR L z P ST A10,OPELRN+2,A4 M P RB SDMC40 NEXT FILE M * P EJECT M F PSDMC60 EQU * M T P SC A7,OPEFCD FILE CODE M h P* M P* A11=MAIN FDB ADDRESS M P* M $ POPEER1 EQU * RECOVERY AT ERRORS M * P LC A2,DWTOR+1,A11 ORDER CODE INTERNAL
0x10d120…10d2b4 (1, 140) Opaque[0x194]
0x10d2b4…10d448 # DirEnt {nam=»ARITMS«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0a68, f03=0xffff}
0x10d2b4…10d448 IdxSect {
0x10d2b4…10d448 f00 = 0x0053 // 0x10d2b4 @0x0
0x10d2b4…10d448 f01 = 0x0008 // 0x10d2b6 @0x2
0x10d2b4…10d448 gno = [ // 0x10d2b8 @0x4
0x10d2b4…10d448 [0x00]: C0x0053.0x1.0
0x10d2b4…10d448 [0x01]: C0x0053.0x2.0
0x10d2b4…10d448 [0x02]: C0x0053.0x3.0
0x10d2b4…10d448 [0x03]: C0x0054.0x0.0
0x10d2b4…10d448 ]
0x10d2b4…10d448 }
0x10d448…10d5dc Dummy {f00=0x0053, f01=0x018e, f02=» 2 P IDENT ARITMS REL 11.0 81-04-02 870105041100 P : . P =1,MPYMOD DESTROYED A3 WHEN MULT WITH 0 B P =1,REL 11.0 81-01-26 t P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x10d5dc…10d770 Dummy {f00=0x0053, f01=0x0190, f02=» P* P* 8 P**************************************************** < P* THIS MODULE EXECUTES THE DOUBLE ADDITION INSTRUCTION X P* P* CALLING SEQUENCE: P* CF A14,ADDMOD P* P* INPUT: A1,A2 = ARG1 P*
0x10d770…10d904 Dummy {f00=0x0053, f01=0x0190, f02=» 8 P**************************************************** P* @ @ P* THIS ROUTINE EXECUTES THE DOUBLE SUBTRACTION INSTRUCTION J P* P* CALLING SEQUENCE: P* CF A14,DSUMOD P* P* INPUT: A1,A2 = ARG1 P* A
0x10d904…10da98 Dummy {f00=0x0053, f01=0x0190, f02=»************************************ P* , 6 P* THIS ROUTINE EXECUTES THE MULTIPLY INSTRUCTION 6 P* CALLING SEQUENCE: p P* CF A14,MPYMOD P* P* INPUT: A6 = ARG1 P* A7 = ARG2 P* P* OUTPUT: A1,A2
0x10da98…10dc2c Dummy {f00=0x0053, f01=0x0190, f02=»E DIVIDE INSTRUCTION v P* P* CALLING SEQUENCE & P* CF A14,DIVMOD @ P* X " P* INPUT: A1,A2 = DIVIDENT b P* A6 = DIVISOR P* " P* OUTPUT: A1 = REMAINER " P* A2 = QUOTIENT P*
0x10dc2c…10ddc0 Dummy {f00=0x0053, f01=0x0190, f02=» P* P* . P***************************************** P* N P* CONDITIONAL ASSEMBLY X P* v . P***************************************** P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED
0x10ddc0…10df54 (1, 141) Dummy {f00=0x0053, f01=0x018e, f02=» z P* PX:A EQU 0 PMPYDIV EQU X:A $ P* : P* D 6 PSETCR EQU /1200 ADK A2,0 ;SET CR WITHOUT OVERFLOW N : PSETCRO EQU /9A09 NGR A2,A2 ;SET CR INCLUDING OVERFLOW P* P EJECT P* P* P IFT CPU852=0 P
0x10df54…10e0e8 Dummy {f00=0x0053, f01=0x0190, f02=» P* PDSUMOD EQU * P ADKL A14,4 STACK POINTER " P DSR A6 D ( P ABR* A14 RETURN WITH CONDITIONS SET T P XIF P IFT CPU852=1 PADDMOD EQU * P ANKL A7,/7FFF P ANKL A2,/7FFF P ADR
0x10e0e8…10e27c Dummy {f00=0x0053, f01=0x0190, f02=» END1 P RF(N) END2 P RF(O) END3 , PANOVR1 ADK A2,0 J P RF(Z) END0 h P RF END1 PAOVER1 ANKL A2,/7FFF P ADK A1,1 P RF(O) AOVER3 P RB ANOVER P
0x10e27c…10e410 Dummy {f00=0x0053, f01=0x018e, f02=» P* P EJECT ADDMOD P* $ P* . PEND3 EQU * OVERFLOW 8 P LDK A7,/80 T PEND2 EQU * NEGATIVE h P ADK A7,/80 PEND1 EQU * POSITIVE P ADK A7,/80 PEND0 EQU * ZERO P SLL A7,1 P LDKL A6,/FCFF * P
0x10e410…10e5a4 Dummy {f00=0x0053, f01=0x0190, f02=» P* P* PDSUMOD EQU * P C1R A6,A6 0 P C1R A7,A7 P P ANKL A7,/7FFF p P ANKL A2,/7FFF P ADK A7,1 P RF(P) DNOVR1 P ADK A6,1
0x10e5a4…10e738 Dummy {f00=0x0053, f01=0x0190, f02=» A1,A6 PDNOVR2 EQU * P LDK A7,0 & P RB(P) END1 8 P RB(N) END2 L P RB(O) END3 j P ADK A2,0 P RB(Z) END0 P RB END1 PDOVER1 ANKL A2,/7FFF P ADK
0x10e738…10e8cc Dummy {f00=0x0053, f01=0x0190, f02=» A1,0 P RB DNOVR2 P* $ P XIF . P IFT MPYDIV=0 : P IFT CPU852=1 P P EJECT f PMPYMOD EQU * t P ST A3,2,A14 SAVE A3 $ P ADKL A14,4 UPDATE STACK POINTER P LDK A1,0 CLEAR RESULT P LDK A2,0 P
0x10e8cc…10ea60 Dummy {f00=0x0053, f01=0x018e, f02=» GET SIGN P ANKL A3,/8000 SIGN BIT P ORK A3,16 BIT COUNTER 2 P ADK A7,0 P P RF(Z) END000 RESULT=0 =1 b P RF(NN) ARG2PS ARG2 POSITIVE P NGR A7,A7 PARG2PS SRC A7,1 P RF(NN) MNOVR1 BIT NOT SET P ADR
0x10ea60…10ebf4 (1, 142) Dummy {f00=0x0053, f01=0x0190, f02=» P SRC A1,1 P RB(NN) ARG2PS " P ORKL A2,/8000 8 P ANKL A1,/7FFF Z P RB ARG2PS | P* P EJECT MPYMOD P* P* PEND000 EQU * =1 P LDK A3,0 SET SIGN =1 PMNOVR2 EQU *
0x10ebf4…10ed88 Dummy {f00=0x0053, f01=0x0190, f02=»1,A1 RESET A1 P SRL A2,1 A2 IN POSITION P ADK A6,0 6 P RF(NN) END POSITIVE H ( P NGR A2,A2 CHANGE RESULT TO NEGATIVE d P RF(O) MNOVR4 P RF(N) MNOVR4 P SUK A1,1 PMNOVR4 EQU * P ANKL A2,/7FFF P C1R A1,A1
0x10ed88…10ef1c Dummy {f00=0x0053, f01=0x0190, f02=»2,1 4 P ADK A1,0 *SIGN OF DIVIDEND P RF(NN) DIVENP D . P ORKL A3,/A000 INDICATE NEGATIVE DIVIDENT f P C1R A1,A1 P C1R A2,A2 P ADK A2,1 P RF(NZ) DIVENP
0x10ef1c…10f0b0 Dummy {f00=0x0053, f01=0x0190, f02=» P RF(Z) ENDOVE OVERFLOW P RF(NN) DIVORP " . P XRKL A3,/C000 NEG DIVISOR,SIGN OF RESULT D P NGR A6,A6 v P RF(O) DV8000 A6=/8000 P* P EJECT DIVMOD P* P* PDIVORP EQU * P CWR A1,A6 P RF(G) E
0x10f0b0…10f244 Dummy {f00=0x0053, f01=0x0190, f02=» ADK A1,0 P RF(N) DVR100 NEGATIVE P CWR A1,A6 0 P RF(L) DVR200 TOO SMALL B PDVR100 EQU * b P SUR A1,A6 DIVIDE v P ORK A2,1 RESULT PDVR200 EQU * P SUK A3,1 BIT COUNTER P CCK A3,0 P RF(Z) END:00 ALL BITS DONE
0x10f244…10f3d8 Dummy {f00=0x0053, f01=0x0190, f02=» P RB DVR000 NEXT P* P EJECT DIVMOD & P* < P* F 4 P*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS P P* PDV8000 EQU * P XRR A1,A2 P XRR A2,A1 P XRR A1,A2 P SRL A1,1 PEND:00 EQU * SET SIGN
0x10f3d8…10f56c Dummy {f00=0x0053, f01=0x0190, f02=»TIVE v PEND:05 EQU * P NGR A1,A1 DIVIDENT NEGATIVE PEND:10 EQU * D P NGR A2,A2 X P LD A3,2,A14 RESTORE A3 j $ P ADKL A14,4 UPDATE STACK POINTER P EXR A6 SET CR P ABR* A14 PENDOVE EQU * $ P LDKL A2,/8000 INDICATE OV
0x10f56c…10f700 Dummy {f00=0x0053, f01=0x0190, f02=»POSITIVE x P RB END:05 P XIF " P IFT MPYDIV=0 . P IFT CPU852=0 D P EJECT Z PMPYMOD EQU * h $ P ADKL A14,4 UPDATE STACK POINTER | P LDR A2,A7 P MUR A6 P ABR* A14 P EJECT PDIVMOD EQU * $ P ADKL A14,4 UP
0x10f700…10f894 (1, 143) Dummy {f00=0x0054, f01=0x4062, f02=»QU * P LDK A1,/11 P CF A15,HALT P XIF 4 P* @ P END J@ ^
0x10f894…10fa28 Dummy {f00=0x0054, f01=0x2008, f02=» ANK.L A3,/0300 P LDK.L A4,/FCFF * P AN.S A4,2,A14 L B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM n P RTN A14 P END @ D1 P RB(7) NO
0x10fa28…10fbbc Dummy {f00=0x0054, f01=0x2008, f02=» 8
0x10fbbc…10fd50 Dummy {f00=0x0054, f01=0x0190, f02=» @ T > A P A < V A ? ? ? ? ? ^ A _ _ ^ ? ? ? Bp $P T I R $ 5 % ^ JW ^ W ^ T T U U U U T U W , , 4 T - 1_& U T P 0 U P P _n ? @B T & 0 A
0x10fd50…10fee4 Dummy {f00=0x0054, f01=0x0190, f02=» @ P $ H W W > > > > > > > > @ rV ? r > _ > ? _ > > ? ^ ! Y ^ _ & ^ A. . #M 1 $$ 0~ B J B B A ^ W U
0x10fee4…110078 Dummy {f00=0x0054, f01=0x0190, f02=» X '@T Y X ' T P - 2WJ Y @ N d Y X # P _ X &P y &W & - B Y & X Z ;BR Y X U @ 4X. U U T T U 5 U B ;h # <c$ Xh B ^n Xt B ]| "X " X #` @P"
0x110078…11020c Dummy {f00=0x0054, f01=0x0190, f02=» W Y , W , B X " T , 8% =A T W ? X &P y & Y & > > ^ " 4TN $ X $ # ; < TX U P S W , 5 U T Y P X P P _ ] W Q Y _. X Y $ h D P XJ Y E Y Y
0x11020c…1103a0 Dummy {f00=0x0054, f01=0x0190, f02=»
0x1103a0…110534 (1, 144) Opaque[0x194]
0x110534…1106c8 # DirEnt {nam=»CTABC0«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0a88, f03=0xffff}
0x110534…1106c8 IdxSect {
0x110534…1106c8 f00 = 0x0054 // 0x110534 @0x0
0x110534…1106c8 f01 = 0x0002 // 0x110536 @0x2
0x110534…1106c8 gno = [ // 0x110538 @0x4
0x110534…1106c8 [0x00]: C0x0054.0x1.0
0x110534…1106c8 ]
0x110534…1106c8 }
0x1106c8…11085c Dummy {f00=0x0054, f01=0x018e, f02=» 2 P IDENT CTABC0 REL 11.0 81-01-26 870105041100 P : * B > 9********************************************************* L * * , (* STANDARD CONVERSION TABLE FOR CREBUG * * > 9**********************************
0x11085c…1109f0 Dummy {f00=0x0054, f01=0x4140, f02=» SHIFT DATA 0,0,0,0,S4,S5,0 * & < 7U2 DATA /2021,/2223,/2425,/2627,/2829,/2A2B,/2C2D,/2E0D 0 < 7U5 DATA /5051,/5253,/5455,/5657,/5859,/5A0A,/5C2F,/5E5F p < 7S4 DATA /4061,/6263,/6465,/6667,/6869,/6A6B,/6C6D,/6E6F < 7S5 DATA /7071,/7273,/747
0x1109f0…110b84 Dummy {f00=0x0054, f01=0x2008, f02=» S5,0 * < 7U2 DATA /2021,/2223,/2425,/2627,/2829,/2A2B,/2C2D,/2E0D < 7U5 DATA /5051,/5253,/5455,/5657,/5859,/5A0A,/5C2F,/5E5F ^ < 7S4 DATA /4061,/6263,/6465,/6667,/6869,/6A6B,/6C6D,/6E6F < 7S5 DATA /7071,/7273,/7475,/7677,/7879,/7A7
0x110b84…110d18 Dummy {f00=0x0054, f01=0x2008, f02=»
0x110d18…110eac Dummy {f00=0x0054, f01=0x0190, f02=»IOPCO' IS USED FOR MOVING THE DATA. k P* l , P* INPUT: A6 = DWT ADDRESS l 6 P* l X & P* OUTPUT: A1-A4, A8 ARE DESTROYED l b P* l 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT l $ P LD A8,DWTECB,A6 DWT ECB ADDRESS l $ P LD A3,ECBEL,A8 EFFECT
0x110eac…111040 Dummy {f00=0x0054, f01=0x0190, f02=» l PTEIO10 RTN A15 m P* m P EJECT TOSSIO m ( P* m @ P* D C : M O T m J P* m ` < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER m j < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO m < P* THE DRIVER BUFFER. THE MOVE
0x111040…1111d4 (1, 145) Opaque[0x194]
0x1111d4…111368 # DirEnt {nam=»DCADDR«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0a90, f03=0xffff}
0x1111d4…111368 IdxSect {
0x1111d4…111368 f00 = 0x0054 // 0x1111d4 @0x0
0x1111d4…111368 f01 = 0x000e // 0x1111d6 @0x2
0x1111d4…111368 gno = [ // 0x1111d8 @0x4
0x1111d4…111368 [0x00]: C0x0054.0x2.0
0x1111d4…111368 [0x01]: C0x0054.0x3.0
0x1111d4…111368 [0x02]: C0x0055.0x0.0
0x1111d4…111368 [0x03]: C0x0055.0x1.0
0x1111d4…111368 [0x04]: C0x0055.0x2.0
0x1111d4…111368 [0x05]: C0x0055.0x3.0
0x1111d4…111368 [0x06]: C0x0056.0x0.0
0x1111d4…111368 ]
0x1111d4…111368 }
0x111368…1114fc Dummy {f00=0x0054, f01=0x018e, f02=» 0 P IDENT DCADDR REL 11.0 81-04-15 870105041100 P 8 P =1, DEFDTE @ P 810126 V * h 4 /*********************************************** r * " * PHILIPS TERMINAL SYSTEM PTS * 0 P* DC:ADR : ADDRESS TRANSLATION ROUTI
0x1114fc…111690 Dummy {f00=0x0054, f01=0x0190, f02=» EJECT * 4 /*********************************************** * T * PROGRAM DESCRIPTION ^ * | : 5* FOLLOWING SUBROUTINES CAN BE FOUND IN THIS MODULE : * 2 -* FNDDNA : FINDS A DTE NETWORK ADDRESS FROM A $ P*
0x111690…111824 Dummy {f00=0x0054, f01=0x018e, f02=» SPECIFIED TYPE l * 8 P* GETDNA : TRANSLATES A SYMBOLIC DTE ADDRESS INTO A " " * DTE NETWORK ADDRESS ^ * 6 P* GETDNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A 8 4* SPECIFIED TYPE INTO A DTE NETWORK ADDRESS *
0x111824…1119b8 Dummy {f00=0x0054, f01=0x0190, f02=» > :* GETDST : TRANSLATES A DTE NETWORK ADDRESS OF A SPECIFIED 0 P* TYPE INTO A SYMBOLIC DTE ADDRESS F * z 6 P* GETSNA : TRANSLATES A SYMBOLIC DTE ADDRESS AND A > :* SYMBOLIC SUB-ADDRESS INTO A NETWORK SUB-ADDRESS * 6
0x1119b8…111b4c Dummy {f00=0x0054, 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
0x111b4c…111ce0 Dummy {f00=0x0054, 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
0x111ce0…111e74 (1, 146) Dummy {f00=0x0054, f01=0x018e, f02=»RY GETSNT ENTRY GETSSA ENTRY GETSST ( P ENTRY DEFDTE . =1 > * X P* b * EXTERNALS l * 8 P EXTRN SCTDCT DC TABLE DISP. IN SYSTEM CONTROL TABLE 0 P EXTRN SAVE8 SAVE REG. A1-A8 ON SYSTEM STACK * P EXTRN RETUR8
0x111e74…112008 Dummy {f00=0x0054, f01=0x0190, f02=» * P EXTRN DWTTAB TTAB OFFSET IN DWT'S =1 P* 2 P EJECT < * J & !* CONDITIONAL ASSEMBLY PARAMETERS T * ~ ( $X:A EQU 1 SUB-ADDRESSING SUPPORTED ? SUBADR EQU X:A 0=NO 1=YES P* 2 PCPU852 EQU 1 EXTENDED INSTRUCTION SET IF
0x112008…11219c Dummy {f00=0x0054, f01=0x0190, f02=» EQU 3 * P EJECT P* . =1 & P* 6 ( P* EQUATES FOR D E F D T E =1 @ P* . =1 l $ PNUME EQU 2 NUMBER OF ENTRIES =1 | PPCHAR EQU 4 PREVIOUS CHAR. & PELEN EQU 5 ENTRY LENGTH " PCODE EQU 6 ASCII/BCD CODE-FLAG
0x11219c…112330 Dummy {f00=0x0054, f01=0x0190, f02=»E NETWORK ADDRESS (AND TYPE) * $ 6 1************************************************* . * h * INPUT PARAMETERS : r 8 4* A1 = LENGTH OF DTE NETWORK ADDRESS IN SEMI-OCTETS 2 P* A2 = BUFFER CONTAINING DTE NETWORK ADDRESS ( $* A3 =
0x112330…1124c4 Dummy {f00=0x0054, f01=0x0190, f02=»OUTPUT PARAMETERS : B P* A1 = SYMBOLIC DTE ADDRESS(OR -1 IF INVALID ADDRESS OR TYPE) > :* A3 = TYPE INDEX (IF GETDST ENTRY,OTHERWISE NOT CHANGED) b * GETDSA EQU * P IFT CPU852=0 P MSR 8,A15 SAVE REG. A1-A8 P XIF P I
0x1124c4…112658 Dummy {f00=0x0054, f01=0x0190, f02=»QU * P IFT CPU852=0 P MSR 8,A15 " P XIF 4 P IFT CPU852=1 @ CF A15,SAVE8 V P XIF l P EJECT x P* GET090 EQU * LDK A4,DS ENTRY INDICATOR GET100 EQU * " LDKL A5,-1 RESET TYPE COUNTER 6 P LDKL A8
0x112658…1127ec Dummy {f00=0x0054, f01=0x0190, f02=»0 TYPE SPECIFIED ? RF(Z) GET120 NO CW A3,4,A8 TYPE FOUND ? 2 RB(NE) GET110 NO R ADK A5,1 STEP TYPE COUNTER l * * TEST ON ENTRY * PGET120 EQU * $ P ADK A4,DS GETDSA/GETDST ENTRY ? P RF(NZ) GET220 N
0x1127ec…112980 Dummy {f00=0x0054, f01=0x0190, f02=»JECT * P* GET ADDRESS PARAMETERS P* 6 P ADK A1,1 CONVERT.. @ P SRC A1,1 ..LENGTH.. P LDR A4,A1 ..INTO.. x P ANK A1,/7F ..OCTETS & P LDR A6,A8 GET ADDRESS WHERE TO.. $ P ADK A6,7 ..FIND LAST OCTET OF.. P ADR A
0x112980…112b14 (1, 147) Dummy {f00=0x0055, f01=0x0190, f02=»TWORK ADDRESS * GET130 EQU * P SUK A1,1 LAST ONE ? 4 P RF(N) GET160 YES P P SUK A2,1 NEXT OCTET j $ SUK A6,1 POINTER TO NEXT OCTET . P LCR A4,A6 GET ONE DC ADDRESS TABLE OCTET * P CCR A4,A2 COMPARE WITH DRIVER BUFFER
0x112b14…112ca8 Dummy {f00=0x0055, f01=0x0190, f02=»UR A7,A1 FIRST ONE ? P SUK A7,1 . P RF(NZ) GET150 NO 0 $ P ADK A4,0 SEMI-OCTET BOUNDARY ? J P RF(N) GET150 NO r & P ANK A4,/F0 MASK DRIVER SEMI-OCTET * P LCR A1,A2 GET DC ADDRESS TABLE OCTET " P ANK A1,/F0 MAKE IT SEMI-OCTET P
0x112ca8…112e3c Dummy {f00=0x0055, f01=0x0190, f02=»TOR r RB GET110 TRY NEXT * ( * COMMON EXIT ROUTINE 2 * P PGET160 EQU * Z ( P LD A1,2,A8 GET SYMBOLIC DTE ADDRESS n PGET170 EQU * LDR A3,A3 TYPE TESTED ? P RF(Z) GET180 NO * % ST A5,12,A15 SAVE TYPE COUNTER IN
0x112e3c…112fd0 Dummy {f00=0x0055, f01=0x0190, f02=» CPU852=1 P LD A1,18,A15 GET PSW P ANK A1,/40 ENABLE MODE ? 0 P ABL(NZ) RETUR8 YES R ( P ABL IHRET8 RETURN INHIBIT TO CALLER n P XIF P* EJECT * * : 6* ROUTINES TO FIND OR GET A DTE NETWORK ADDRESS FROM A
0x112fd0…113164 Dummy {f00=0x0055, f01=0x0190, f02=»* INPUT PARAMETERS : * A1 = SYMBOLIC DTE ADDRESS * %* A2 = BUFFER (ONLY IF GET... ENTRY) @ ( #* A3 = TYPE (ONLY IF ...DNT ENTRY) n * * CALLING SEQUENCES : * CF A15,FNDDNA * CF A15,FNDDNT * CF A15,GETDNA
0x113164…1132f8 Dummy {f00=0x0055, f01=0x0190, f02=»R -1 IF ILLEGAL SYMBOLIC DTE ADDRESS OR TYPE) : P* A2 = NEXT FREE ADDRESS IN BUFFER (IF GET... ENTRY) 6 8 P* A2 = POINTER TO NETWORK ADDRESS (IF FND... ENTRY) t > :* A3 = TYPE INDEX (IF ...DNT ENTRY,OTHERWISE NOT CHANGED) * FNDDNT EQU *
0x1132f8…11348c Dummy {f00=0x0055, f01=0x018e, f02=» XIF $ SUR A2,A2 CLEAR BUFFER ADDRESS RF GET210 4 P* F P EJECT P P* ^ FNDDNA EQU * h P IFT CPU852=0 | P MSR 8,A15 P XIF P IFT CPU852=1 CF A15,SAVE8 P XIF $ P SUR A2,A2 CLEAR BUFFER ADDRESS
0x11348c…113620 Dummy {f00=0x0055, f01=0x0190, f02=» P XIF RF GET210 GETDNA EQU * & P IFT CPU852=0 : P MSR 8,A15 P P XIF b P IFT CPU852=1 n CF A15,SAVE8 P XIF GET200 EQU * $ SUR A3,A3 CLEAR TYPE INDICATOR GET210 EQU * " LDK A4,DN SET ENT
0x113620…1137b4 (1, 148) Dummy {f00=0x0055, f01=0x0190, f02=» CW A1,2,A8 FOUND ? RB(NE) GET110 NO P* : P* GET ADDRESS PARAMETERS D P* d P LDK A1,0 n . P LC A1,6,A8 GET DTE NETWORK ADDRESS LENGTH P LDR A7,A1 GET LENGTH P ADK A7,1 CONVERT LENGTH.. P SRC A7,1 ..INTO..
0x1137b4…113948 Dummy {f00=0x0055, f01=0x0190, f02=»* * TEST ON ENTRY * " $ P SUK A4,SS ...DNA/...DNT ENTRY ? , RF(NN) GET310 NO T P XIF n ( # LDR A2,A2 NETWORK ADDRESS WANTED ? z P RF(NZ) GET240 YES P LDR A2,A6 P* P EJECT P* P* SAVE PARAMETERS
0x113948…113adc Dummy {f00=0x0055, f01=0x0190, f02=» * PGET240 EQU * P SUK A7,1 READY ? " P RB(N) GET230 YES < P LCR A4,A6 MOVE ONE.. V P SCR A4,A2 ..OCTET t P ADK A2,1 P ADK A6,1 P RB GET240 TAKE NEXT * P IFT SUBADR=1 EJECT * *
0x113adc…113c70 Dummy {f00=0x0055, f01=0x0190, f02=»ADDRESS * 8 4**************************************************** * V * INPUT PARAMETERS : ` * A1 = SYMBOLIC DTE ADDRESS | * A2 = NETWORK SUB-ADDRESS ( #* A3 = TYPE (ONLY IF GETSST ENTRY) * * CALLING SEQU
0x113c70…113e04 Dummy {f00=0x0055, f01=0x018e, f02=» IF ILLEGAL SYMBOLIC n 4 P* DTE ADDRESS,TYPE OR NETWORK SUB-ADDRESS) D ?* A3 = TYPE INDEX (ONLY IF GETSST ENTRY,OTHERWISE NOT CHANGED) T * GETSST EQU * P IFT CPU852=0 P MSR 8,A15 P XIF P IFT SUBADR=1 P IFT
0x113e04…113f98 Dummy {f00=0x0055, f01=0x0190, f02=» GETSSA EQU * P IFT CPU852=0 P MSR 8,A15 2 P XIF D P IFT SUBADR=1 P P IFT CPU852=1 f CF A15,SAVE8 | P XIF P IFT SUBADR=1 $ SUR A3,A3 CLEAR TYPE INDICATION GET300 EQU * " LDK A4,SS SET ENTRY IND
0x113f98…11412c Dummy {f00=0x0055, f01=0x018e, f02=» OF ENTRIES IN " P LCR A7,A6 ..SUB-ADDRESS TABLE P LDR A4,A4 < * P RF(NZ) GET410 NOT GETSSA/GETSST ENTRY N * | * GET SYMBOLIC SUB-ADDRESS * 4 P LDK A1,/30 RESET SYMBOLIC SUB-ADDRESS INDICATOR GET320 EQU * ADK A6,1
0x11412c…1142c0 Dummy {f00=0x0055, f01=0x018e, f02=» P SUK A7,1 MORE ENTRIES ? RB(P) GET320 YES $ P XIF > P* J P EJECT T * b * INCORRECT PARAMETERS l * P IFT SUBADR=0 PGETSNA EQU * DUMMY ENTRIES PGETSNT EQU * PGETSSA EQU * PGETSST EQU * P
0x1142c0…114454 (1, 149) Dummy {f00=0x0055, f01=0x0190, f02=» * * 2 .* ROUTINES TO GET A NETWORK SUB-ADDRESS FROM A 4 0* SYMBOLIC DTE ADDRESS (OF SPECIFIED TYPE) AND A N * SYMBOLIC SUB-ADDRESS * 8 3*************************************************** * * INPUT PARAMETERS :
0x114454…1145e8 Dummy {f00=0x0055, f01=0x018e, f02=»CALLING SEQUENCES : * CF A15,GETSNA * CF A15,GETSNT 4 * L * OUTPUT PARAMETERS : V : P* A1 = NETWORK SUB-ADDRESS(OR -1 IF ILLEGAL SYMBOLIC t 6 P* DTE ADDRESS,TYPE OR SYMBOLIC SUB-ADDRESS) D ?* A3 = TYPE INDEX (ONLY IF
0x1145e8…11477c Dummy {f00=0x0055, f01=0x0190, f02=» P IFT SUBADR=1 P IFT CPU852=1 " CF A15,SAVE8 SAVE REG. A1-A8 4 P XIF Z P IFT SUBADR=1 f RF GET400 | P* P EJECT P* PGETSNA EQU * P IFT CPU852=0 P MSR 8,A15 P XIF P IFT SUBADR=1
0x11477c…114910 Dummy {f00=0x0055, f01=0x0190, f02=» " LDK A4,SN SET ENTRY INDICATOR ! P RB GET305 RUN ! . * ! D * GET NETWORK SUB-ADDRESS ! N * ! p GET410 EQU * ! z * P ANK A2,/FF ONLY ONE BYTE SIGNIFICANT ! P SUK A2,/2F ! 0 P RB(NP) GET330 INVALID SYMBOLIC SUB-ADDRESS ! 2 P SUR
0x114910…114aa4 Dummy {f00=0x0055, f01=0x0190, f02=»A6 GET NETWORK SUB-ADDRESS ! P RB GET170 EXIT " " * " : P XIF " D P EJECT " P P* TO END =1 " ^ P* " t P* D E F D T E " ~ P* " > P* RE-DEFINES ALREADY EXISTING DTE-NUMBERS IN DC DTE-TABLE " 8 P* IN THE SYSTEM-AREA POINTED TO BY S C
0x114aa4…114c38 Dummy {f00=0x0055, f01=0x0190, f02=» D E F D T E " ` P* (AKAN) # P* # ( L P*********************************************************************** # 2 P* # P* CALLING SEQUENCE: # P* # P* CF A15,DEFDTE # P* # P* # P* INPUT PARAMETERS: # P* #
0x114c38…114dcc Dummy {f00=0x0055, f01=0x0190, f02=»TH # v P* A6 = DWT ADDRESS $ P* $ , P* OUTPUT PARAMETERS: $ 6 P* $ R 2 P* A1 = 0 SUCCESSFUL REQUEST COMPLETION $ 8 P* A1 = 1 ENTRY LENGTH ERROR, BUFFER OVERFLOW $ 0 P* A1 =-1 INVALID SYMB DTE ADDR/TYPE $ P* $
0x114dcc…114f60 Dummy {f00=0x0055, f01=0x0190, f02=»2=0 $ P MSR 8,A15 SAVE 8-REG'S % P XIF % , P IFT CPU852=1 % 8 P CF A15,SAVE8 SAVE 8-REG'S % N P XIF % p P EJECT % | P % P* % 2 P* MOVE HEAD OF USER BUFFER TO WORKAREA (TEMP.) % P* % P % P LDK A3,6 % * P LD A5,DWTTAB,A6 T
0x114f60…1150f4 (1, 150) Dummy {f00=0x0055, f01=0x0190, f02=» P LDR A8,A2 POINTER TO HEAD & " P LDR* A1,A2 GET SYMB. DTE-ADDR & & P LC A3,PCHAR,A8 & L & P ST A3,CODE,A8 MOVE ASCII/BCD-FLAG & d P LDK A3,/FF & 0 P ANS A3,ELEN,A8 STRIP FLAG FROM ENTRY LENGTH & P LDKL A3,'RC' & 2 P CF A15,FNDDNT GET POINTER T
0x1150f4…115288 Dummy {f00=0x0055, f01=0x0190, f02=» ! & l * P STR A2,A8 SAVE DC-TABLE ADDR AT HEAD ' P LD A2,NUME,A8 * ' 8 & P NGR A2,A2 * NEGATE NO. OF ENTRIES ' P P ST A2,NUME,A8 * ' z P SUK A4,10 ' . P ST A4,BLEN,A8 SAVE LENGTH OF WORK-BUFFER ' P LDR A3,A1 ENTRY LENGTH ' " P LDR A1,A7 USER BU
0x115288…11541c Dummy {f00=0x0055, f01=0x0190, f02=»QU * ' & P LDK A4,1 SET "FIRST NIBBLE"-FLAG ( PDEFD10 EQU * ( 6 P LDR A3,A3 ( J P RF(P) DEFD15 OLD ENTRY ( P IM NUME,A8 ( | " P RF(Z) DEFD80 NO MORE ENTRIES ( P LDK A2,7 * STEP POINTER TO ( P ADR* A2,A8 * NEXT ENTRY ( P ORK A2,1 (
0x11541c…1155b0 Dummy {f00=0x0055, f01=0x0190, f02=»90 ENTRY LENGTHS DIFFER ( P LD A7,-7,A2 ) 2 P RF(Z) DEFD90 NO MORE ENTRIES IN DC DTE-TABLE ) 4 P ) j PDEFD15 EQU * ) r P LDR A7,A3 ) P LDR A2,A8 ) & P ADK A2,10 FIX TO-ADDRESS FOR MOVE ) ( P LD A3,BLEN,A8 LENGTH OF WORK-BUFFER ) P LD A5,D
0x1155b0…115744 Dummy {f00=0x0055, f01=0x0190, f02=»A7 ) " P RF(NZ) DEFD20 STILL OLD ENTRY * P LC A3,ELEN,A8 ENTRY LENGTH * 0 PDEFD20 EQU * * T P LD A7,CODE,A8 * h & P RF(Z) DEFD50 BCD-NUMBERS TO MOVE * ~ & P LD A7,BLEN,A8 WORK-BUFFER LENGTH * P EJECT * P * P* * 4 P* CONVERT ASCII-NUMBER
0x115744…1158d8 Dummy {f00=0x0055, f01=0x0190, f02=»5,/2000 * P RF(NE) DEFD30 NO "SPACE" + P LDK A5,/0F FIX PAD + 2 PDEFD30 EQU * + N P CCK A5,/2E00 + b P RF(NE) DEFD35 NO "." + x P LDK A5,/0E ABBR CALL PREFIX + PDEFD35 EQU * + P ANK A5,/0F MASK ONE NIBBLE + P ADK A2,1 * + * P S
0x1158d8…115a6c Dummy {f00=0x0055, f01=0x0190, f02=»E + v P SLL A5,4 , $ P SC A5,PCHAR,A8 SAVE NIBBLE TEMP , P LDR A7,A7 , D , P RB(Z) DEFD10 END OF BUFFER - MOVE AGAIN , V PDEFD40 EQU * , P LDR A3,A3 , " P RB(P) DEFD25 NOT END OF ENTRY , P EJECT , P , PDEFD45 EQU * , P SLL A5,8 *
0x115a6c…115c00 Dummy {f00=0x0055, f01=0x0190, f02=» , P LDR A7,A7 - P RB(Z) DEFD05 END OF BUFFER - P LDR A3,A3 - > " P RB(P) DEFD25 NOT END OF ENTRY - P P* - v P* END OF ENTRY - P* - P - P IM NUME,A8 - " P RF(Z) DEFD80 NO MORE ENTRIES - P LDK A5,7 * STEP POINTER TO - P A
0x115c00…115d94 (1, 151) Dummy {f00=0x0056, f01=0x0190, f02=»H - v P CC A3,ELEN,A8 . $ P RF(NE) DEFD90 LENGTHS DIFFER ! . P LD A5,-7,A5 . H 2 P RF(Z) DEFD90 NO MORE ENTRIES IN DC DTE-TABLE . P RB DEFD25 NEXT ENTRY MOVE . P EJECT . P . P* . ( P* MOVE BCD-NUMBER INTO DC DTE-TABLE . P* .
0x115d94…115f28 Dummy {f00=0x0056, f01=0x0190, f02=»C* A5,0,A8 SAVE'M IN DC DTE-TABLE . P IMR A8 * / * P ADK A2,1 * / < * P SUK A3,2 * BUMP POINTER AND COUNTERS / P P SUK A7,1 * / ~ P RB(Z) DEFD10 END OF BUFFER / P LDR A3,A3 / " P RB(P) DEFD55 NOT END OF ENTRY / P IM NUME,A8 / " P RF(Z)
0x115f28…1160bc Dummy {f00=0x0056, f01=0x0190, f02=»TRY - WORD ADDR / ~ P LDR* A3,A5 0 P SRL A3,8 KEEP ENTRY LENGTH 0 , P CC A3,ELEN,A8 0 P $ P RF(NE) DEFD90 LENGTHS DIFFER ! 0 f P LD A5,-7,A5 0 2 P RF(Z) DEFD90 NO MORE ENTRIES IN DC DTE-TABLE 0 P RB DEFD55 NEXT ENTRY MOVE 0 P EJECT 0 P
0x1160bc…116250 Dummy {f00=0x0056, f01=0x4042, f02=»95 EQU * 0 P ABL GET180 EXIT TO CALLER 1 END 1 2@ 1 >ENGTH 0 , P CC A3,ELEN,A8 0 P $ P RF(NE) DEFD90 LENGTHS DIFFER ! 0 f P LD A5,-7,A5 0 2 P RF(Z) DEFD90 NO MORE ENTRIES IN DC DTE-TABLE 0 P RB DEFD55 NEXT ENTRY MOVE 0 P EJECT 0 P
0x116250…1163e4 Dummy {f00=0x0056, f01=0x2008, f02=» 2 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..
0x1163e4…116578 Dummy {f00=0x0056, f01=0x0190, f02=»UFFER USER r v P SUK A4,6 s 8 P CF A15,RRBUF RELEASE REC BUFFER WHEN DC:MIN DOESN'T s & P RF COMP30 s b P* s t P* FRAME OUT OF SEQUENCE s ~ P* s PCOMP10 EQU * s " P LC A1,FIELD1+1,A7 GET C-FIELD s " P ANKL A1,POLFIN POLL-BIT SET ? s P
0x116578…11670c Dummy {f00=0x0056, f01=0x0190, f02=»DK A1,SNDREJ s P RF BRM55X t P EJECT t & P* t 4 P* t > ( P* NO REQUEST ON,QUEUE INPUT MESSAGE t H P* t t PCOMP20 EQU * t ~ * P LDK A2,DTE:QI GET PROPER QUEUE ANCHOR t P ADR A2,A7 t P LC A1,+6,A4 GET TC IDENT t P ANK A1,/FF t P
0x11670c…1168a0 Dummy {f00=0x0056, f01=0x0190, f02=»ULL DUPLEX SITUATION t P* u PCOMP30 EQU * u & P LD A1,OUTPUT,A7 u : P RF(Z) COMP35 HALF DUPLEX u R P LD A1,INSREP,A7 u t P CW A1,EXTREP,A7 u ( P RF(E) COMP35 FULL DUPLEX ONE FRAME u PBRMXX EQU * u ( P ABL BRM FULL DUPLEX SEVERAL FRAMES
0x1168a0…116a34 (1, 152) Opaque[0x194]
0x116a34…116bc8 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0ac8, f03=0xffff}
0x116a34…116bc8 IdxSect {
0x116a34…116bc8 f00 = 0x0056 // 0x116a34 @0x0
0x116a34…116bc8 f01 = 0x0002 // 0x116a36 @0x2
0x116a34…116bc8 gno = [ // 0x116a38 @0x4
0x116a34…116bc8 [0x00]: C0x0056.0x1.0
0x116a34…116bc8 ]
0x116a34…116bc8 }
0x116bc8…116d5c Dummy {f00=0x0056, f01=0x0190, f02=» 0 P IDENT DFTAB REL 11.0 81-04-13 870105041100 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* 8
0x116d5c…116ef0 Dummy {f00=0x0056, f01=0x4164, f02=»NTRY DFTABE P ENTRY DMTIDP P ENTRY DMTIDS * P ENTRY DFTABL @ P* V PDFTAB EQU * ` P DATA /F0F1 t P DATA /F2F3 P DATA /F4F5,/F6F7 P DATA /F8F9,/FAFB P DATA /FCFD P DATA /FEFF PDFTABE EQU *
0x116ef0…117084 Dummy {f00=0x0056, f01=0x2008, f02=» NT DFTAB P* P* DISC FILE CODE TABLE " P* B P ENTRY DFTAB L P ENTRY DFTABE ` P* v P* PDFTAB EQU * P DATA /F0F1 PDFTABE EQU * P END @ END P ENTRY QFDBFL P* P*
0x117084…117218 Dummy {f00=0x0056, f01=0x410e, f02=»TOR z , P DATA DWTSQ+DVTOD POINTER TO FIRST PLACE , P DATA DWTSQ+DVTOD POINTER TO LAST PLACE < PDWTSQ EQU *-DVTOD l P DATA 0 CIRCULAR BUFFER IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @
0x117218…1173ac Dummy {f00=0x0056, 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
0x1173ac…117540 Dummy {f00=0x0056, f01=0x0190, f02=»STER P* A5 = CWT-ADDRESS P* A6 = DWT-ADDRESS & P* A7 = WORK REGISTER @ P* A8 = WORK REGISTER P* x P* P EJECT P* B P* THE P E R I P H E R A L S E C T I O N OF THE DRIVER IS A $ P* L I N E D R I V E R ONLY
0x117540…1176d4 (1, 153) Opaque[0x194]
0x1176d4…117868 # DirEnt {nam=»DRAS01«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0ad0, f03=0xffff}
0x1176d4…117868 IdxSect {
0x1176d4…117868 f00 = 0x0056 // 0x1176d4 @0x0
0x1176d4…117868 f01 = 0x0018 // 0x1176d6 @0x2
0x1176d4…117868 gno = [ // 0x1176d8 @0x4
0x1176d4…117868 [0x00]: C0x0056.0x2.0
0x1176d4…117868 [0x01]: C0x0056.0x3.0
0x1176d4…117868 [0x02]: C0x0057.0x0.0
0x1176d4…117868 [0x03]: C0x0057.0x1.0
0x1176d4…117868 [0x04]: C0x0057.0x2.0
0x1176d4…117868 [0x05]: C0x0057.0x3.0
0x1176d4…117868 [0x06]: C0x0058.0x0.0
0x1176d4…117868 [0x07]: C0x0058.0x1.0
0x1176d4…117868 [0x08]: C0x0058.0x2.0
0x1176d4…117868 [0x09]: C0x0058.0x3.0
0x1176d4…117868 [0x0a]: C0x0059.0x0.0
0x1176d4…117868 [0x0b]: C0x0059.0x1.0
0x1176d4…117868 ]
0x1176d4…117868 }
0x117868…1179fc Dummy {f00=0x0056, f01=0x0190, f02=» 2 P IDENT DRAS01 REL 11.0 81-01-26 870105041100 P : P =6, ETX-CHECK REMOVED B P PRR 11.0 80-03-06 b , P =5, CORR. OF FLASHING LIGHTS PROBLEM ~ $ P DEV ADDR. CHAN. UNIT 5 AND 6 P PRR 11.0 80-02-05 " P NEW DEVICE DRIVER I
0x1179fc…117b90 Dummy {f00=0x0056, f01=0x0190, f02=» PENDING z P PRR 10.1 79-10-04 2 P =2, CORR. OF RECOV.;ST. INP. IF THRP. ERR. , P PRR 10.1 79-10-03 b P =1, CHANGE TO EVEN PARITY ~ P PRR 10.1 79-09-18 * * J E**********************
0x117b90…117d24 Dummy {f00=0x0056, f01=0x0190, f02=»CHANNEL UNIT | * P* ASCU4Z * : * D * N * X * b J F********************************************************************** l * 4 /* THIS IS A CHANNEL UNIT DRIVER FOR TERMINALS $ P* CONNECTE
0x117d24…117eb8 Dummy {f00=0x0056, f01=0x0190, f02=»RRUPT HANDLER FOR ACTUAL p * DEVICE. * 4 0 P* AFTER AN OUTPUT IS ENDED AN INTERRUPT IS > > P* GENERATED FROM ASCU4Z. THE DRIVER CHECKS THE INTERRUPT r 2 .* AND A BRANCH IS MADE TO INTERRUPT HANDLER. P* P* P EJECT
0x117eb8…11804c Dummy {f00=0x0056, f01=0x0190, f02=»LINE AT POWER ON ` * $ P* -OUTASC SEND ONE CHARACTER " P* J 6 2* CONTROL WORK TABLES ARE INCLUDED IN THE DRIVER T * , (* NORMAL REGISTER USAGE IN THE DRIVER: * * A1 = RETURN CODE * A2 = INPUT CHARACTER
0x11804c…1181e0 Dummy {f00=0x0056, f01=0x018e, f02=»RDER * A8 = ECB ADDRESS * ( * 2 * < EJECT F * T *********** ^ * ENTRIES * r *********** * * ( P ENTRY IASCUZ INTERRUPT FROM ASCU4Z $ P ENTRY ASCUON START AT POWER ON * P ENTRY
0x1181e0…118374 (1, 154) Dummy {f00=0x0056, f01=0x0190, f02=» " P ENTRY ASCHRO CHARACTER OUTPUT , P ENTRY ASENBL DEFINE END OF OUTPUT BLOCK * " P ENTRY ASDISP LOCAL DISPATCHER Z P* EJECT * * $ ******************************** $ * EXTERNAL TOSS MODULE ENTRIES * $ ************
0x118374…118508 Dummy {f00=0x0056, f01=0x0190, f02=»ST PROCESSING FLAG =3 | P* , P EXTRN INTAS1 WS TABLE ADDRESS ASCU4Z 1 ( , P EXTRN INTAS2 WS TABLE ADDRESS ASCU4Z 2 X , P EXTRN INTAS3 WS TABLE ADDRESS ASCU4Z 3 , P EXTRN INTAS4 WS TABLE ADDRESS ASCU4Z 4 , P EXTRN INTAS5 WS TABLE ADDRESS A
0x118508…11869c Dummy {f00=0x0056, f01=0x0190, f02=»DDRESS ASCU4Z 8 x P* * P EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT " , P EXTRN NDGET8 GET A3-A5, A7-A8 FROM DWT P * P EXTRN NDREDW CALL RECOVERY FOR DEVICE , P EXTRN NDRETO OK & RETURN TO DEV. DRIVER , P EXTRN NDREP POP & RETURN TO DEV. DRIVER
0x11869c…118830 Dummy {f00=0x0056, f01=0x0190, f02=» * ****************** * $ * . EXTRN DWTST STATUS 8 EXTRN DWTOR ORDER T ( P EXTRN DWTOCH LAST OUTPUT CHARACTER n EXTRN DWTECB ECB-ADDRESS * % EXTRN DWTADR ADDRESS TO ADDRESSBLOCK $ P EXTRN DWTOTQ OUTPUT QUEUE LIN
0x118830…1189c4 Dummy {f00=0x0056, f01=0x0190, f02=»MENT h 0 P EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT * @ EJECT J * X * b ************* l * CONSTANTS * ************* * * ( PKB EQU 1 DEVICE ADDRESS FOR KEYBOARD . PDI EQU 2 DEVICE ADDRESS FO
0x1189c4…118b58 Dummy {f00=0x0056, f01=0x018e, f02=»********** P* < P* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER B P* AND STATUS MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1 P* PX:A EQU 1 PLOGING EQU X:A P* , P* THIS DRIVER HANDLES ONE OR UP TO SIX
0x118b58…118cec Dummy {f00=0x0056, f01=0x0190, f02=» , (**************************************** , (* CONTROL WORK TABLES FOR ASCU4Z 1 * 8 , (**************************************** h * * * L I N E 1 * PDWA11 EQU /1C DEVICE ADDRESS * * CWTA
0x118cec…118e80 Dummy {f00=0x0056, f01=0x0190, f02=»CH./ NEXT OUTPUT CH. | PCWTITA EQU *-CWTA11 " P DATA INTAS1 WS TABLE ADDRESS 8 CWTINR EQU *-CWTA11 ^ INR A2,0,DWA11 INR z CWTOTR EQU *-CWTA11 OTR A2,0,DWA11 OTR CWTCIS EQU *-CWTA11 CIO A1,1,DWA11 CIO START
0x118e80…119014 (1, 155) Dummy {f00=0x0057, f01=0x0190, f02=» SST A2,DWA11 SEND STATUS CWTST EQU *-CWTA11 & DATA 0 CHANNEL STATUS @ * ^ * h EJECT r * * * L I N E 2 * $ DWA12 EQU DWA11+1 DEVICE ADDRESS * * CWTA12 EQU * TABLE ENTRY
0x119014…1191a8 Dummy {f00=0x0057, f01=0x0190, f02=»DWA12 INR OTR A2,0,DWA12 OTR CIO A1,1,DWA12 CIO START . DATA 0 QUEUE P CIO A1,0,DWA12 CIO HALT f SST A2,DWA12 SEND STATUS DATA 0 CHANNEL STATUS * * EJECT * * * L I N E
0x1191a8…11933c Dummy {f00=0x0057, f01=0x0190, f02=» x , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. " P DATA INTAS1 WS TABLE ADDRESS 8 INR A2,0,DWA13 INR ^ OTR A2,0,DWA13 OTR z CIO A1,1,DWA13 CIO START DATA 0 QUEUE CIO A1,0,DWA13 CIO HALT SST A2,DWA13 SEND STATUS
0x11933c…1194d0 Dummy {f00=0x0057, f01=0x018e, f02=»A11+3 DEVICE ADDRESS * * & CWTA14 EQU * TABLE ENTRY 0 DATA 0 LAST OUTPUT DWT P , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. p " P DATA INTAS1 WS TABLE ADDRESS INR A2,0,DWA14 INR OTR A2,0,DWA14 OTR CIO A1,1,
0x1194d0…119664 Dummy {f00=0x0057, f01=0x0190, f02=» x * * EJECT * * , (**************************************** 4 , (* CONTROL WORK TABLES FOR ASCU4Z 2 * d , (**************************************** * P IFF ASCHAN=1 * * L I N E 1 *
0x119664…1197f8 Dummy {f00=0x0057, f01=0x0190, f02=»ST OUTPUT CH./ NEXT OUTPUT CH. " P DATA INTAS2 WS TABLE ADDRESS & INR A2,0,DWA21 INR L OTR A2,0,DWA21 OTR h CIO A1,1,DWA21 CIO START DATA 0 QUEUE CIO A1,0,DWA21 CIO HALT P SST A2,DWA21 SEND STATUS DATA 0 CH
0x1197f8…11998c Dummy {f00=0x0057, f01=0x0190, f02=»SS r * * PCWTA22 EQU * TABLE ENTRY DATA 0 LAST OUTPUT DWT > , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. ^ " P DATA INTAS2 WS TABLE ADDRESS P INR A2,0,DWA22 INR P OTR A2,0,DWA22 OTR P CIO A1,1,DWA22 CIO START
0x11998c…119b20 Dummy {f00=0x0057, f01=0x0190, f02=» EJECT * * * L I N E 3 * * @ $ PDWA23 EQU DWA21+2 DEVICE ADDRESS J * r * | PCWTA23 EQU * TABLE ENTRY DATA 0 LAST OUTPUT DWT , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. " P DATA INTAS2 WS TA
0x119b20…119cb4 (1, 156) Dummy {f00=0x0057, f01=0x0190, f02=» A1,0,DWA23 CIO HALT P SST A2,DWA23 SEND STATUS DATA 0 CHANNEL STATUS > * * f EJECT p * ~ * * L I N E 4 * $ PDWA24 EQU DWA21+3 DEVICE ADDRESS * * PCWTA24 EQU * TABLE ENTRY
0x119cb4…119e48 Dummy {f00=0x0057, f01=0x018e, f02=»A24 INR P OTR A2,0,DWA24 OTR P CIO A1,1,DWA24 CIO START , DATA 0 QUEUE N P CIO A1,0,DWA24 CIO HALT d P SST A2,DWA24 SEND STATUS DATA 0 CHANNEL STATUS * * P XIF EJECT * , (************
0x119e48…119fdc Dummy {f00=0x0057, f01=0x0190, f02=» P IFF ASCHAN=1 P IFF ASCHAN=2 * 4 * L I N E 1 > * T PDWA31 EQU /20 DEVICE ADDRESS ^ P* P* PCWTA31 EQU * TABLE ENTRY DATA 0 LAST OUTPUT DWT , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. " P D
0x119fdc…11a170 Dummy {f00=0x0057, f01=0x0190, f02=»EUE P CIO A1,0,DWA31 CIO HALT P SST A2,DWA31 SEND STATUS , DATA 0 CHANNEL STATUS N * l * v EJECT * * * L I N E 2 * $ PDWA32 EQU DWA31+1 DEVICE ADDRESS * * PCWTA32 EQU
0x11a170…11a304 Dummy {f00=0x0057, f01=0x0190, f02=» P INR A2,0,DWA32 INR P OTR A2,0,DWA32 OTR P CIO A1,1,DWA32 CIO START < DATA 0 QUEUE ^ P CIO A1,0,DWA32 CIO HALT t P SST A2,DWA32 SEND STATUS DATA 0 CHANNEL STATUS * * EJECT * *
0x11a304…11a498 Dummy {f00=0x0057, f01=0x018e, f02=»ST OUTPUT DWT , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. " P DATA INTAS3 WS TABLE ADDRESS F P INR A2,0,DWA33 INR l P OTR A2,0,DWA33 OTR P CIO A1,1,DWA33 CIO START DATA 0 QUEUE P CIO A1,0,DWA33 CIO HALT P SST A2,DWA3
0x11a498…11a62c Dummy {f00=0x0057, f01=0x0190, f02=» $ PDWA34 EQU DWA31+3 DEVICE ADDRESS * , * 6 PCWTA34 EQU * TABLE ENTRY @ DATA 0 LAST OUTPUT DWT ` , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. " P DATA INTAS3 WS TABLE ADDRESS P INR A2,0,DWA34 INR P OTR A2,0,DWA34 OTR
0x11a62c…11a7c0 Dummy {f00=0x0057, f01=0x0190, f02=»CHANNEL STATUS * * P XIF * EJECT 6 * D , (**************************************** N , P* CONTROL WORK TABLES FOR ASCU4Z 4 * ~ , (**************************************** * P IFF ASCHAN=1 P IFF ASCHA
0x11a7c0…11a954 (1, 157) Dummy {f00=0x0057, f01=0x0190, f02=»41 EQU * TABLE ENTRY DATA 0 LAST OUTPUT DWT , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. < " P DATA INTAS4 WS TABLE ADDRESS l P INR A2,0,DWA41 INR P OTR A2,0,DWA41 OTR P CIO A1,1,DWA41 CIO START DATA 0 QUEUE P CIO A
0x11a954…11aae8 Dummy {f00=0x0057, f01=0x0190, f02=» * L I N E 2 * $ PDWA42 EQU DWA41+1 DEVICE ADDRESS ( * P * Z PCWTA42 EQU * TABLE ENTRY d DATA 0 LAST OUTPUT DWT , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. " P DATA INTAS4 WS TABLE ADDRESS P INR A2,0,DWA4
0x11aae8…11ac7c Dummy {f00=0x0057, f01=0x0190, f02=»2,DWA42 SEND STATUS DATA 0 CHANNEL STATUS * : * D EJECT N * * f * L I N E 3 p * $ PDWA43 EQU DWA41+2 DEVICE ADDRESS * * PCWTA43 EQU * TABLE ENTRY DATA 0 LAST OUTPUT DWT
0x11ac7c…11ae10 Dummy {f00=0x0057, f01=0x0190, f02=»R ~ P CIO A1,1,DWA43 CIO START ! DATA 0 QUEUE ! , P CIO A1,0,DWA43 CIO HALT ! B P SST A2,DWA43 SEND STATUS ! b DATA 0 CHANNEL STATUS ! * ! * ! EJECT ! * ! * ! * L I N E 4 ! * ! $ PDWA44 EQU DWA41+
0x11ae10…11afa4 Dummy {f00=0x0057, f01=0x0190, f02=»T OUTPUT CH. ! t " P DATA INTAS4 WS TABLE ADDRESS " P INR A2,0,DWA44 INR " : P OTR A2,0,DWA44 OTR " V P CIO A1,1,DWA44 CIO START " r DATA 0 QUEUE " P CIO A1,0,DWA44 CIO HALT " P SST A2,DWA44 SEND STATUS " DATA 0 CHANNEL STATUS "
0x11afa4…11b138 Dummy {f00=0x0057, f01=0x0190, f02=»CU4Z 5 * " r , (**************************************** # * # B P IFF ASCHAN=1 # L P IFF ASCHAN=2 # b P IFF ASCHAN=3 # x P IFF ASCHAN=4 # * # * L I N E 1 # * # $ PDWA51 EQU /0C DEVICE ADDRESS =5 # P* # P* #
0x11b138…11b2cc Dummy {f00=0x0057, f01=0x018e, f02=»ADDRESS # z P INR A2,0,DWA51 INR $ P OTR A2,0,DWA51 OTR $ , P CIO A1,1,DWA51 CIO START $ H DATA 0 QUEUE $ j P CIO A1,0,DWA51 CIO HALT $ P SST A2,DWA51 SEND STATUS $ DATA 0 CHANNEL STATUS $ * $ * $ EJECT $ * $
0x11b2cc…11b460 Dummy {f00=0x0057, f01=0x018e, f02=» DATA 0 LAST OUTPUT DWT % , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. % $ " P DATA INTAS5 WS TABLE ADDRESS % T P INR A2,0,DWA52 INR % z P OTR A2,0,DWA52 OTR % P CIO A1,1,DWA52 CIO START % DATA 0 QUEUE % P CIO A1,0,DWA52 CIO HALT %
0x11b460…11b5f4 (1, 158) Dummy {f00=0x0057, f01=0x018e, f02=» % * & $ PDWA53 EQU DWA51+2 DEVICE ADDRESS & * & : * & D PCWTA53 EQU * TABLE ENTRY & N DATA 0 LAST OUTPUT DWT & n , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. & " P DATA INTAS5 WS TABLE ADDRESS & P INR A2,0,DWA53 INR & P OTR A2,
0x11b5f4…11b788 Dummy {f00=0x0057, f01=0x0190, f02=» & t DATA 0 CHANNEL STATUS ' * ' & * ' 0 EJECT ' : * ' H * ' R * L I N E 4 ' * ' r $ PDWA54 EQU DWA51+3 DEVICE ADDRESS ' | * ' * ' PCWTA54 EQU * TABLE ENTRY ' DATA 0 LAST OUTPUT DWT ' , P DATA 0 LAST OUT
0x11b788…11b91c Dummy {f00=0x0057, f01=0x0190, f02=»DWA54 CIO START ' DATA 0 QUEUE ( P CIO A1,0,DWA54 CIO HALT ( . P SST A2,DWA54 SEND STATUS ( N DATA 0 CHANNEL STATUS ( p * ( * ( P XIF ( EJECT ( * ( , (**************************************** ( , P* CONTROL WORK T
0x11b91c…11bab0 Dummy {f00=0x0057, f01=0x0190, f02=» ASCHAN=3 ( P IFF ASCHAN=4 ) P IFF ASCHAN=5 ) ( * ) > * L I N E 1 ) H * ) ^ $ PDWA61 EQU /00 DEVICE ADDRESS =5 ) h P* ) P* ) PCWTA61 EQU * TABLE ENTRY ) DATA 0 LAST OUTPUT DWT ) , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT
0x11bab0…11bc44 Dummy {f00=0x0057, f01=0x0190, f02=» DATA 0 QUEUE * P CIO A1,0,DWA61 CIO HALT * P SST A2,DWA61 SEND STATUS * : DATA 0 CHANNEL STATUS * * * z * * EJECT * * * * * * L I N E 2 * * * $ PDWA62 EQU DWA61+1 DEVICE ADDRESS * * * * *
0x11bc44…11bdd8 Dummy {f00=0x0057, f01=0x0190, f02=»E ADDRESS * | P INR A2,0,DWA62 INR + P OTR A2,0,DWA62 OTR + . P CIO A1,1,DWA62 CIO START + J DATA 0 QUEUE + l P CIO A1,0,DWA62 CIO HALT + P SST A2,DWA62 SEND STATUS + DATA 0 CHANNEL STATUS + * + * + EJECT + * +
0x11bdd8…11bf6c Dummy {f00=0x0057, f01=0x018e, f02=» DATA 0 LAST OUTPUT DWT , , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. , $ " P DATA INTAS6 WS TABLE ADDRESS , T P INR A2,0,DWA63 INR , z P OTR A2,0,DWA63 OTR , P CIO A1,1,DWA63 CIO START , DATA 0 QUEUE , P CIO A1,0,DWA63 CIO HALT ,
0x11bf6c…11c100 Dummy {f00=0x0057, f01=0x018e, f02=» , * - $ PDWA64 EQU DWA61+3 DEVICE ADDRESS - * - : * - D PCWTA64 EQU * TABLE ENTRY - N DATA 0 LAST OUTPUT DWT - n , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. - " P DATA INTAS6 WS TABLE ADDRESS - P INR A2,0,DWA64 INR - P OTR A2,
0x11c100…11c294 (1, 159) Dummy {f00=0x0058, f01=0x018e, f02=» - t DATA 0 CHANNEL STATUS . * . & * . 0 P XIF . : EJECT . F * . T * . ^ ***************** . h * C H T A B * . ***************** . * . 2 .* THIS TABLE HOLDS ADDRESSES OF CONTROL WORK . $ * TABLES CWT TO
0x11c294…11c428 Dummy {f00=0x0058, f01=0x0190, f02=» DATA CWTA13 / DATA CWTA14 / P IFF ASCHAN=1 / , DATA CWTA21 / B DATA CWTA22 / V DATA CWTA23 / j DATA CWTA24 / ~ XIF / P IFF ASCHAN=1 / P IFF ASCHAN=2 / DATA CWTA31 / DATA CWTA32 / DATA CWTA33 / D
0x11c428…11c5bc Dummy {f00=0x0058, f01=0x018e, f02=» DATA CWTA43 / DATA CWTA44 0 XIF 0 ( P IFF ASCHAN=1 0 4 P IFF ASCHAN=2 0 J P IFF ASCHAN=3 0 ` P IFF ASCHAN=4 0 v P DATA CWTA51 0 P DATA CWTA52 0 P DATA CWTA53 0 P DATA CWTA54 0 XIF 0 P IFF ASCHAN=1 0 P IFF ASCHA
0x11c5bc…11c750 Dummy {f00=0x0058, f01=0x0190, f02=» P DATA CWTA64 1 XIF 1 CHTABE EQU * END OF TABLE 1 $ * 1 F * 1 P EJECT 1 Z * 1 h * 1 r P* A S C U O N 1 | * 1 6 1* SUBROUTINE TO RESET CWT AND PERFORM CIO START 1 4 P* OF EVERY ASCU4Z INPUT CHANNEL AT SYSTEM LOAD
0x11c750…11c8e4 Dummy {f00=0x0058, f01=0x0190, f02=» ABL(Z) RTNA15 YES 1 PAON020 EQU * 2 & P LD A5,CHTAB+2,A3 LOAD CWT-ADDRESS 2 . P RB(Z) AON010 2 X P LDKL A1,/8000 2 n ( P ORS A1,CWTST,A5 SET INITIATION BIT 2 P CMR A5 RESET LAST OUTPUT =2 2 & P CM CWTLON,A5 CLEAR LOC AND NOC =2 2 & P CM CWTEQ,
0x11c8e4…11ca78 Dummy {f00=0x0058, f01=0x0190, f02=»X CWTCIH,A5 CIO STOP OUTPUT 2 P ENB 3 $ P ADK A3,2 3 0 P RB AON010 3 B EJECT 3 T * 3 b * 3 l 0 ,******************************************** 3 v 0 P* INTERRUPT ENTRY FROM ASCU4Z * 3 0 ,******************************************
0x11ca78…11cc0c Dummy {f00=0x0058, f01=0x018e, f02=»TSAV SAVE LAST INTERRUPT 3 " P MSR 8,A15 SAVE A1-A8 ON STACK 4 " P LDK A7,0 RESET ASCU4Z-COUNTER 4 F P LD A3,CHTAB 4 l P SUK A3,2 NUMBER OF LINES 4 P RF IAS007 4 * 4 EJECT 4 * 4 0 ,* GET CWT-ADDRESS FOR LINE 1. EXECUTE INR. 4
0x11cc0c…11cda0 Dummy {f00=0x0058, f01=0x0190, f02=» 4 l 0 P LD A5,CHTAB+2,A7 GET CWT-ADDRESS FOR LINE 1 5 EX CWTINR,A5 INR 5 < RF(NA) IAS080 5 V * 5 l 8 3* CORRECT CWT-ADDRESS WITH RESPECT TO LINE NUMBER 5 v * 5 IAS010 EQU * 5 P LDR A5,A2 INPUT WORD 5 P SRL A5,7 5 ANK A5,
0x11cda0…11cf34 (1, 160) Dummy {f00=0x0058, f01=0x0190, f02=»TED COMMAND IS INPUT 5 ~ * 6 IAS015 EQU * 6 & P ECR A1,A2 6 : P ANK A1,/30 6 L P SUK A1,/30 EXPECTED COMMAND 6 ` P RF(NZ) IAS040 NOT INPUT 6 * 6 EJECT 6 * 6 * GET DWT-ADDRESS 6 * 6 IAS020 EQU * 6 P LDK A4,
0x11cf34…11d0c8 Dummy {f00=0x0058, f01=0x0190, f02=»8,A8 ADDRESS POINTER 6 P RF(Z) IAS032 NOT DEFINED 7 PIAS025 EQU * 7 > P LDR* A6,A8 GET DWT-ADDRESS 7 R P RF(Z) IAS030 NOT DEFINED 7 v " P LD A1,DWTST,A6 DEVICE STATUS 7 P ANK A1,/40 INPUT DEVICE? 7 P RF(NZ) IAS035 YES 7 PIAS030 EQU * 7
0x11d0c8…11d25c Dummy {f00=0x0058, f01=0x0190, f02=» ANK A1,2 HIGH LINE NR ? 7 & P RF(NZ) EXITL YES, SKIP INTERRUPT 8 P ADK A3,2 INCREMENT LINE NR 8 J P RB IAS020 8 n P* 8 PEXITL EQU * 8 P IFT LOGING=1 8 ( P CF A15,INFLG1 GET LINE INFORMATION 8 P CF A15,LOGG **LOGG INPUT** 8 P XIF
0x11d25c…11d3f0 Dummy {f00=0x0058, f01=0x0190, f02=» 8 P LDK A1,0 RESET RETURN CODE 9 P* 9 , P IFT LOGING=1 9 6 ( P CF A15,INFLG2 GET LINE INFORMATION 9 L * P CF A15,LOGG **LOGG INPUT CHARACTER** 9 x P XIF 9 P* 9 PIAS038 EQU * 9 P ANK A2,/FF CLEAN CHARACTER 9 " P LD A7,DWTST,A6 DEVI
0x11d3f0…11d584 Dummy {f00=0x0058, f01=0x0190, f02=»EQUESTED' 9 l & P ABL NDREP RETURN TO DEVICE DRIVER : P* : < P EJECT : F P* : T 0 P* GO TO INTERRUPT ROUTINE OF DEVICE DRIVER : ^ P* : PIAS039 EQU * : " P LD A1,DWTADR,A6 ADDRESS BLOCK : . P LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED? : " P
0x11d584…11d718 Dummy {f00=0x0058, f01=0x0190, f02=»TRY : n P* ; P EJECT ; P* ; $ & P* CHECK IF ANY CHARACTER TO SEND ; . P* ; X PIAS040 EQU * ; b P LDR* A6,A5 LAST OUTPUT DWT ; v P LC A2,CWTLON+1,A5 ; P ANK A2,/FF ; * P LD A7,DWTCP2,A6 CHANNEL PARAMETERS 2 ; P ANK A7,/3F DEVICE
0x11d718…11d8ac Dummy {f00=0x0058, f01=0x0190, f02=»DR A2,A2 SAVED CHARACTER ; $ P RF(Z) IAS060 NO CHARACTER SAVED < P* < H P EJECT < R P* < ` : P* OUTPUT SAVED CHARACTER AND RETURN TO DEVICE DRIVER < j P* < PIAS050 EQU * < " P ANK A2,/7F CLEAN CHARACTER =5 < P EX CWTOTR,A5 OTR < P R
0x11d8ac…11da40 Dummy {f00=0x0058, f01=0x0190, f02=» < f P XIF = P* = ( P LDR A7,A7 OUTPUT TO KEYBOARD LAMPS? = P RF(Z) IAS055 YES = J P* = d 2 P SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT = n P SLL A2,8 = ( P ST A2,CWTLON,A5 UPDATE LOC AND NOC = PIAS052 EQU * = & P ABL NDREPO RETURN
0x11da40…11dbd4 (1, 161) Dummy {f00=0x0058, f01=0x0190, f02=» * = P LC A4,CWTLON,A5 > * P ANK A4,/FF LAST OUTPUT CHARACTER = 0? > " $ P RF(NE) IAS060 NO, CODE /1C SENT > P P* > x & P LC A4,DWTOCH,A6 DATA TO KEYBOARD > * P SC A4,CWTLON+1,A5 STORE FOR NEXT OTR > * P SC A2,CWTLON,A5 STORE CODE /1C IN LOC > P
0x11dbd4…11dd68 Dummy {f00=0x0058, f01=0x0190, f02=»CIO HALT OUTPUT > P =5 ? $ P CM CWTLON,A5 CLEAR LOC AND NOC ? & P =5 ? N * P LDR A7,A7 OUTPUT TO KEYBOARD LAMPS ? ? . P RB(Z) IAS052 YES, RETURN TO DEVICE DRIVER ? P* ? P U =6 ? P RB EXIT GO TO DISPATCHER ? * ? EJECT
0x11dd68…11defc Dummy {f00=0x0058, f01=0x0190, f02=» 8 3* CORRECT CWT-ADDRESS WITH RESPECT TO LINE NUMBER @ * @ @ IAS085 EQU * @ J P LDR A5,A2 INPUT WORD @ ^ P SRL A5,7 @ | ANK A5,/6 LINE NUMBER * 2 @ P LDR A3,A5 @ ADR A7,A5 @ * P LD A5,CHTAB+2,A7 CORRECT CWT-ADDRESS @ P* @
0x11defc…11e090 Dummy {f00=0x0058, f01=0x0190, f02=»WTST,A5 CHANNEL STATUS @ ( P RF(N) IAS130 INITIATION ON CHANNEL A * A J P LDR* A6,A5 LAST OUTPUT DWT A T P RF(NZ) IAS087 * =2 A x " P ANK A2,2 THROUGPUT ERROR? =2 A P RB(Z) EXIT NO =2 A P LDK A1,/5 EVEN PARITY =2 A $ P EX CWTCIS,A5 CIO
0x11e090…11e224 Dummy {f00=0x0058, f01=0x0190, f02=» CHECK IF CHARACTER SAVED A P* B " PIAS090 EQU * B , P LC A2,CWTLON+1,A5 B @ P ANK A2,/FF SAVED CHARACTER? B Z P RF(NZ) IAS105 YES B ~ P* B P* CHECK IF QUEUE EMPTY B P* B PIAS100 EQU * B P LD A6,CWTEQ,A5 OUTPUT QUEUE B P RF(
0x11e224…11e3b8 Dummy {f00=0x0058, f01=0x0190, f02=»CTER B v P* C , P* SEND CHARACTER AND GO TO DISPATCHER C P* C F PIAS105 EQU * C P " P CF A15,OUTASC SEND CHARACTER C d PIAS110 EQU * C P RB EXIT GO TO DISPATCHER C P EJECT C P* C 6 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVI
0x11e3b8…11e54c Dummy {f00=0x0058, f01=0x0190, f02=»ON THIS LINE' =2 C p * P ANS A1,CWTST,A5 RESET INITIATION BIT D P LDK A4,0 D F P CF A15,GETADR D X " P LDR A4,A7 CHTAB DISPLACEMENT D n P LDR A3,A6 DEVICE COUNTER D P LDR A7,A8 ADDRESS POINTER D & P RB(Z) IAS100 EXIT IF NOT DEFINED D PIAS140
0x11e54c…11e6e0 Dummy {f00=0x0058, f01=0x0190, f02=» LD A1,DWTST,A6 DEVICE STATUS D P ANK A1,/40 INPUT DEVICE ? E & P RF(Z) IAS148 NO E H P EJECT E ` P* E n F P* INPUT DEVICE. START INPUT. SET MARKBIT FOR INPUT ON THIS LINE. E x P* E PIAS143 EQU * E " P LDR A1,A4 CHTAB DISPLACEMENT E P A
0x11e6e0…11e874 (1, 162) Dummy {f00=0x0058, f01=0x0190, f02=»GET CWT-ADDRESS E ~ " P LD A1,CWTST,A5 CHANNEL STATUS F P SLL A1,1 F > 0 P RF(N) IAS150 INPUT ON THIS LINE ALREADY SET F P P LDKL A1,/4000 F 2 P ORS A1,CWTST,A5 SET BIT 'INPUT ON THIS LINE' F P LDK A1,/5 EVEN PARITY =1 F " P EX CWTCIS,A5 CIO STAR
0x11e874…11ea08 Dummy {f00=0x0058, f01=0x0190, f02=»150 YES F P EJECT G P* G P* G ( * P* OUTPUT DEVICE. CHECK IF ECHO MODE. G 2 P* G ` PIAS148 EQU * G j P =5 G ~ P LC A1,DWTST,A6 G P ANK A1,/20 ECHO MODE ? G P RF(NE) IAS160 YES G P* G P* GO TO RECOVERY ROUTINE G
0x11ea08…11eb9c Dummy {f00=0x0058, f01=0x0190, f02=»2 G " P SUK A3,2 ALL DEVICES TREATED? H P RB(NE) IAS140 NO TAKE NEXT H 0 0 P RB IAS100 CHECK QUEUE AND GO TO DISPATCHER H T EJECT H * H P* O U T A S C H * H 2 P* SUBROUTINE TO SEND A CHARACTER VIA ASCU4Z H * ON ENTRY: H
0x11eb9c…11ed30 Dummy {f00=0x0058, f01=0x0190, f02=»/FF H " P CF A15,GETCWT GET CWT-ADDRESS I P* I 2 8 P* CHECK IF LINE FREE OR OCCUPIED WITH SAME DEVICE I < P* I x POUA010 EQU * I P INH =5 I " P LD A1,CWTST,A5 CHANNEL STATUS I ( P RF(N) OUA020 INITIATION ON CHANNEL I P* I P LDR
0x11ed30…11eec4 Dummy {f00=0x0058, f01=0x0190, f02=» EQU * I P CF A15,QUEUE J 2 P SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT J $ P RF OUA050 J Z P* J l P EJECT J v P* J P* START OUTPUT ON LINE J P* J POUA030 EQU * J . P LD A1,PFPOST PWF POST PROCESSING FLAG =3 J $ P RF(NZ) OU
0x11eec4…11f058 Dummy {f00=0x0058, f01=0x0190, f02=» STR A6,A5 STORE LAST DWT IN CWT J P* K ( " P* SAVE CHARACTER FOR OUTPUT K 2 P* K X POUA040 EQU * K b * P LD A1,DWTCP2,A6 CHANNEL PARAMETERS 2 K v P ANK A1,/3F DEVICE ADDRESS K * P SUK A1,DI OUTPUT TO KEYBOARD LAMPS ? K P RF(NZ) OUA045 NO K
0x11f058…11f1ec Dummy {f00=0x0058, f01=0x0190, f02=»QU * K 0 P ORK A2,/80 INDICATE SOMETHING FOR OUTPUT =5 L P SC A2,CWTLON+1,A5 L @ POUA050 EQU * L Z P * =4 L n P INH * =4 L ~ ( P ADKL A15,2 ADJUST STACK POINTER =4 L P LDR* P,A15 RETURN =4 L P EJECT L P* L P* G E T C W T L
0x11f1ec…11f380 Dummy {f00=0x0058, f01=0x0190, f02=»DRESS L ~ P* M P* ON EXIT: M P* M , P* A5 = CWT-ADDRESS M 6 P* A1,A4 ARE DESTROYED M V P* M x PGETCWT EQU * M $ P LDR* A1,A6 CHANNEL PARAMETERS 1 M " P ANK A1,/7 CHANNEL UNIT INDEX M P SLL A1,2 M , P LC A5,DWTCP2,A6 L
0x11f380…11f514 (1, 163) Dummy {f00=0x0059, f01=0x0190, f02=» CHTAB M x & P LD A5,CHTAB+2,A1 GET CWT-ADDRESS N P LDR A4,A1 LINE NUMBER * 2 N 8 P ANK A4,2 N Z $ P RF(NZ) GTC010 HIGH LINE NUMBER N l " P LD A4,CWTST,A5 CHANNEL STATUS N P SLL A4,1 N ( P RF(NN) GTC010 NO INPUT ON THIS LINE N 2 P LD A5,CHTAB+4,A
0x11f514…11f6a8 Dummy {f00=0x0059, f01=0x0190, f02=» P* O * P* SUBROUTINE TO QUEUE AN OUTPUT DWT O P* O < P* ON ENTRY: O F P* A5 = CWT ADDRESS O P* A6 = DWT ADDRESS O | P* O * O PQUEUE EQU * O LD A4,CWTEQ,A5 OUTPUT QUEUE O P RF(E) QUE020 O PQUE010 EQU
0x11f6a8…11f83c Dummy {f00=0x0059, f01=0x0190, f02=» O n LDR A4,A3 FOLLOW THE THREAD P P RB QUE010 P , PQUE020 EQU * P > ST A6,CWTEQ,A5 QUEUE DWT P R P RF QUE040 P t PQUE030 EQU * P ST A6,DWTOTQ,A4 QUEUE DWT P * PQUE040 CM DWTOTQ,A6 SET END OF THREAD P PQUE050 EQU * P P ADKL A15,
0x11f83c…11f9d0 Dummy {f00=0x0059, f01=0x0190, f02=»EVERY INPUT AND P l $ P* OUTPUT CHARACTER ARE LOGGED Q P* Q @ P* Q J P* Q T P IFT LOGING=1 Q ^ P* Q t PLOGG STR A1,A15 Q ~ P LD A1,POINT Q P ADK A1,2 Q & P CWK A1,BUFE BUFE IS MAX LOGG AREA Q P RF(NE) L1 Q ( P LDKL A1,BUF SET
0x11f9d0…11fb64 Dummy {f00=0x0059, f01=0x018e, f02=» P LDR* P,A15 RETURN R P* R P* R ( PPOINT DATA BUF LOGG POINTER R 2 P* R V PBUF RES 250 LOGG AREA R ` PBUFE EQU * R ~ P* R P XIF R P EJECT R P* R P* I N F L G 1 R P* R B P* SUBROUTINE TO GET INFORMATION ABOUT
0x11fb64…11fcf8 Dummy {f00=0x0059, f01=0x018e, f02=» R , P* CH. UNIT INDEX IS STORED IN BITS 3-5 S , P* WORK ST. ADDR. IS STORED IN BITS 6-7 S 8 P* BITS 0-2 ARE SET TO ZERO S h P* S P* ON ENTRY: S P* S P* A2 = INPUT CHARACTER S P* A7 = LINE NR * 2 S P* S P*
0x11fcf8…11fe8c Dummy {f00=0x0059, f01=0x0190, f02=» S P ANK A2,/FF T P SLL A7,7 T & P ORR A2,A7 COMBINE WITH CHARACTER T . P SRL A7,7 T X P RTN A15 T j P* T z P XIF T P EJECT T P* T P* I N F L G 2 T P* T @ P* SUBROUTINE TO GET INFORMATION ABOUT CHANNEL UNIT INDEX, T
0x11fe8c…120020 Dummy {f00=0x0059, f01=0x0190, f02=» T R P* TO REGISTER A2. U , P* DEVICE ADDRESS IS STORED IN BITS 0-2 U $ , P* CH. UNIT INDEX IS STORED IN BITS 3-5 U T , P* WORK ST. ADDR. IS STORED IN BITS 6-7 U P* U P* ON ENTRY: U P* U P* A2 = INPUT CHARACTER U P*
0x120020…1201b4 (1, 164) Dummy {f00=0x0059, f01=0x0190, f02=»OYED U ~ P* V P IFT LOGING=1 V PINFLG2 EQU * V , P ANK A2,/FF CLEAN V @ ( P LDR* A4,A6 GET CHANNEL PARAMETERS 1 V Z " P ANK A4,/7 CHANNEL UNIT INDEX V P SRC A4,3 V 0 P LC A4,DWTCP2+1,A6 RIGHT BYTE OF CH. PAR. 2 V P SRC A4,3 V . P ANK
0x1201b4…120348 Dummy {f00=0x0059, f01=0x0190, f02=»NKL A4,/300 WORK STATION ADDRESS V & P ORR A2,A4 COMBINE WITH CHARACTER W ( P RTN A15 W R P XIF W b EJECT W n P* W | P* G E T A D R W P* W 4 P* SUBROUTINE TO GET ADDRESS IN INTERRUPT TABLE W , P* FOR A GIVEN LINE- AND DEVICE NUMBER
0x120348…1204dc Dummy {f00=0x0059, f01=0x0190, f02=»CWT-ADDRESS W P* X P* ON EXIT: X P* X 2 : P* A6 = TOTAL NUMBER OF DEVICES * 2 ON ACTUAL LINE X < 2 P* A8 = ADDRESS WHERE DWT-ADDRESS IS FOUND X z P* X PGETADR EQU * X 4 P LD* A8,CWTITA,A5 ADDRESS OF WORK STATION TABLE X P R
0x1204dc…120670 Dummy {f00=0x0059, f01=0x018e, f02=»F GET010 X PGET005 EQU * Y P ADR A8,A3 POSITION IN TABLE Y $ ( P LDR* A8,A8 POINTER TO DEVICE TABLE Y H P RF(Z) GET010 NOT DEFINED Y t " P LD A6,-2,A8 GET TABLE LENGTH Y & P ADR A8,A4 ADDRESS TO DWT-ADDRESS Y PGET010 EQU * Y P* Y * Y
0x120670…120804 Dummy {f00=0x0059, f01=0x0190, f02=» Y P* Z P* CHARACTER INPUT Z P* Z . PASCHRI EQU * Z 8 P LDK A2,/20 Z L 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 RF ASDISP LOCAL DISPATCHER Z P* Z P* START OF A BLOCK Z
0x120804…120998 Dummy {f00=0x0059, f01=0x411c, f02=»R Z n P* [ P* CHARACTER OUTPUT [ P* [ 0 PASCHRO EQU * [ : , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT [ N " P CF A15,OUTASC SEND CHARACTER [ ~ P* [ P* LOCAL DISPATCHER [ P* [ PASDISP EQU * [ P ABL TDISP GO TO DISPATCHER [
0x120998…120b2c Dummy {f00=0x0059, f01=0x2008, f02=» * RETURN AND ENABLE $ * $ & RTNA15 EQU * $ 0 ADKL A15,2 $ D ENB $ X LDR* P,A15 $ d * $ x END $ @ $ # z * ON EXIT: # 2 -* A8 =ADDRESS WHERE DWT-ADDRESS IS FOUND # * # GETADR EQU * # 0 + LD A8
0x120b2c…120cc0 Dummy {f00=0x0059, f01=0x0190, f02=» $ I N % E , a , ( < : Q R D F%? ;D , ( : Q R D F%? N , ( # ;H ;D& >b : Q ~ , ( R D F%? # ;H ;D& >b , ( : Q R D F%? #
0x120cc0…120e54 (1, 165) Opaque[0x194]
0x120e54…120fe8 # DirEnt {nam=»DRCD01«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0b30, f03=0xffff}
0x120e54…120fe8 IdxSect {
0x120e54…120fe8 f00 = 0x0059 // 0x120e54 @0x0
0x120e54…120fe8 f01 = 0x0018 // 0x120e56 @0x2
0x120e54…120fe8 gno = [ // 0x120e58 @0x4
0x120e54…120fe8 [0x00]: C0x0059.0x2.0
0x120e54…120fe8 [0x01]: C0x0059.0x3.0
0x120e54…120fe8 [0x02]: C0x005a.0x0.0
0x120e54…120fe8 [0x03]: C0x005a.0x1.0
0x120e54…120fe8 [0x04]: C0x005a.0x2.0
0x120e54…120fe8 [0x05]: C0x005a.0x3.0
0x120e54…120fe8 [0x06]: C0x005b.0x0.0
0x120e54…120fe8 [0x07]: C0x005b.0x1.0
0x120e54…120fe8 [0x08]: C0x005b.0x2.0
0x120e54…120fe8 [0x09]: C0x005b.0x3.0
0x120e54…120fe8 [0x0a]: C0x005c.0x0.0
0x120e54…120fe8 [0x0b]: C0x005c.0x1.0
0x120e54…120fe8 ]
0x120e54…120fe8 }
0x120fe8…12117c Dummy {f00=0x0059, f01=0x0190, f02=» 2 P IDENT DRCD01 REL 11.0 81-01-26 870105041100 P : < P =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY B P* P* 2 P********************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P
0x12117c…121310 Dummy {f00=0x0059, f01=0x018e, f02=»******************************************** P* 4 P* > 0 P* THIS DISC DRIVER HANDLES UP TO TWO DISC H , P* DRIVES PTS 6877 CONNECTED TO CPU VIA | P* BUILT IN DMA CHANNEL P* P* * P* THE FOLLOWING ORDERS ARE TREATED :
0x121310…1214a4 Dummy {f00=0x0059, f01=0x0190, f02=» P* /15 PHYSICAL WRITE P* /1F FORMAT VOLUME & P* F P EJECT DRCD01 P P* f P* p P********************* z P* * P* ENTRIES * P* * P*********************
0x1214a4…121638 Dummy {f00=0x0059, f01=0x0190, f02=»NTRY DWCD01 DWT ADDRESS P* P EJECT DRCD01 * P* @ P* J P************* T P* EXTERNALS * j P************* P* P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE REGS. A1-A8 ON
0x121638…1217cc Dummy {f00=0x0059, f01=0x0190, f02=»ME NAME FROM DWT TO USER BUFFER ~ , P EXTRN VOLCLR CLEAR VOLUME NAMES IN DWT ( . P EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS X P EXTRN DISIOE REQUEST ERROR & P EXTRN INIFLG INITIALIZATION FLAG * P EXTRN PFPOST PWF POST PROCESSING FLAG * P E
0x1217cc…121960 Dummy {f00=0x0059, f01=0x0190, f02=»ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTA4 SAVE AREA A4 < EXTRN DWTA5 SAVE AREA A5 ^ & P EXTRN DWTORD SAVE AREA FOR ORDER $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL
0x121960…121af4 (1, 166) Dummy {f00=0x0059, f01=0x018e, f02=»TROL WORD v P* P EJECT DRCD01 P* 2 P* < P************************** F P* * h P* CONDITIONAL ASSEMBLY * P* * P************************** P* P* 6 P*
0x121af4…121c88 Dummy {f00=0x0059, f01=0x0190, f02=» P* . P* THIS DRIVER CAN HANDLE TWO DISC UNITS P* IF X:A := 2 D P* PX:A EQU 1 f PNUNITS EQU X:A x P* P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P*
0x121c88…121e1c Dummy {f00=0x0059, f01=0x0190, f02=» * P* CONSTANTS * P* * > P************************* ` P* & PCUADR EQU /17 CONTROL UNIT ADDRESS " PCUAD1 EQU CUADR ADDRESS UNIT 1 & PCUAD2 EQU CUADR+/20 ADDRESS UNIT 2 PDE
0x121e1c…121fb0 Dummy {f00=0x0059, f01=0x0190, f02=»LENGTH r , PSEZCOM EQU /E800 SEEK ZERO COMMAND CODE & PSEEKCO EQU /A800 SEEK COMMAND CODE > & PREDCOM EQU /0800 READ COMMAND CODE h ( PVERCOM EQU /3800 VERIFY COMMAND CODE ( PWRICOM EQU /1800 WRITE COMMAND CODE 4 PWHACOM EQU /22C0 WRITE SECTOR
0x121fb0…122144 Dummy {f00=0x0059, f01=0x0190, f02=»NUMBER p PMAXSE1 EQU 8 MAXIMAL NUMBER PMAXSE2 EQU /53C6 OF SECTORS 2 $ PINLACE EQU 5 INTERLACING FACTOR V P* ~ P EJECT DRCD01 P* P* P* DRIVER ADDRESS BLOCK P* P* $ P DATA 0 INDICATES NO MMU BUFFER
0x122144…1222d8 Dummy {f00=0x0059, f01=0x0190, f02=» P* P* DRIVER BUFFER P* , P* 6 PBUFFER EQU * @ P RES 256 T P* d P EJECT DRCD01 n P* P* P**************************** P* * P* ACTIVATION * P*
0x1222d8…12246c Dummy {f00=0x0059, f01=0x0190, f02=»CK BASE ~ 0 P LD A4,DWTRE1,A6 GET GRAND TOTAL OF RETRIES 0 P ST A4,DWTRE2,A6 PRESENT TOTAL RETRY COUNTER D . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED x P* SAVE INDEX AND ORDER P ADK A7,0 SET CR ( P RF(NZ) CDA:00 NOT TEST STATUS ORDER
0x12246c…122600 Dummy {f00=0x0059, f01=0x0190, f02=» * ~ P* * P********************* * P* H P* R P ORS A1,ECBRC,A8 NVL BIT & P IM DWTSAV,A6 INDICATE TEST STATUS | " P CF A5,VO:NAM READ VOLUME NAME P ANK A1,1 P RF(NZ) TESEND NOT OPERABLE P LD A8
0x122600…122794 (1, 167) Dummy {f00=0x005a, f01=0x0190, f02=» " P CM DWTSAV,A6 TEST STATUS DONE P RF DENDIO PERFORM ENDIO . P* N P EJECT DRCD01 X P* p , P*************************************** z , P* * , P* NEW VOLUME LOADED CHECK * ,
0x122794…122928 Dummy {f00=0x005a, f01=0x0190, f02=»* j P* . P* INPUT: A1=NVL RETURN CODE FROM NVLCHK P* A7=ORDER CODE F P* f P* p PCDA:00 EQU * z ( P ADK A1,0 CHECK IF NEW VOLUME LOADED P RF(NZ) DENDIO PERFORM ENDIO P SUK A7,1 P RF(Z) CD:010 BASIC READ
0x122928…122abc Dummy {f00=0x005a, f01=0x0190, f02=»F(Z) CD:000 PHYSICAL WRITE P SUK A7,10 " P RF(Z) FORMAT FORMAT VOLUME 4 P* X " PDUERR ABL DISIOE REQUEST ERROR b P* ( PINCLEN EQU * REQUESTED LENGTH ERROR P LDKL A1,/8008 PDENDIO EQU * P ABL END:IO P* P*
0x122abc…122c50 Dummy {f00=0x005a, f01=0x0190, f02=» FORMAT VOLUME * & P* * ( & P********************************* R P* | P* PFORMAT EQU * ( P LDKL A1,SEEKCO SEEK OPERATION CODE , P ST A1,DWTSEK,A6 TO SEEK OPERATION AREA P CF A5,S
0x122c50…122de4 Dummy {f00=0x005a, f01=0x0190, f02=» DATA LOSECL P DATA NOTRAN+LOSECL $ P MS 3,DWTCOP,A6 PREPARE FOR READ 0 P LDR A4,A6 WHA POINTER X P* v P EJECT DRCD01 P* P* PFOR:60 EQU * P LD A1,ECBCW1,A8 * P RF(Z) FOR:70 NO BAD TRACK FLAG CHECK " P CF
0x122de4…122f78 Dummy {f00=0x005a, f01=0x0190, f02=»WTWHA,A4 P IM DWTCOP,A6 NEXT HEAD P ADK A4,4 0 P LDR A1,A4 B P SUR A1,A6 T P SUK A1,DWTCOP-DWTWHA f P RB(L) FOR:60 NEXT HEAD P LDKL A1,/800 INTERUPT BIT P ORS A1,DWTWHA+16,A6 $ P CF A5,HOMEAD WRITE SECTOR MARKS
0x122f78…12310c Dummy {f00=0x005a, f01=0x0190, f02=») FOR:10 NEXT CYLINDER P LDKL A2,MAXCYL-1 821 P IFT NUNITS=1 < $ P ST A2,DWTCYL,A6 CYLINDER NUMBER R P XIF z P IFT NUNITS=2 P CF A15,INXDWT $ P ST A2,DWTCYL,A4 CYLINDER NUMBER P XIF P RB DENDIO PERFORM ENDIO P*
0x12310c…1232a0 Dummy {f00=0x005a, f01=0x0190, f02=» * n 0 ,* INPUT ECB-PARAMETER CHECK * 0 ,* * F 0 ,******************************************** z * * PCD:000 EQU * P LDK A7,5 INDICATE WRITE PCD:010 EQU * &
0x1232a0…123434 (1, 168) Dummy {f00=0x005a, f01=0x0190, f02=» ( $ LD A1,ECBRL,A8 GET REQUESTED LENGTH $ P RB(Z) INCLEN INCORRECT REQUEST 0 ECR A2,A1 DIVIDE BY 256 X $ ANK A1,/FF REST AFTER DIVISION x $ P RB(NZ) INCLEN INCORRECT REQUEST 4 / ST A2,DWTLOS,A6 SAVE NUMBER OF LOGICAL SECTORS ( # DA ECBC
0x123434…1235c8 Dummy {f00=0x005a, f01=0x0190, f02=»DRCD01 * * " * GET PHYSICAL SECTOR NUMBER " P* GET BUFFER ADDRESS H P* PREPARE SECTOR MASK f * * P IFT MMUPAG=0 . P LD A2,ECBBA,A8 GET 16 BIT BUFFER ADDRESS P ST A2,DWTBA,A6 P XIF P I
0x1235c8…12375c Dummy {f00=0x005a, f01=0x0190, f02=» P MS 2,DWTBA,A6 P XIF . ) ML 2,ECBCW1,A8 GET LOGICAL SECTOR NUMBER & ( P LDK A3,0 DIVIDE MOST SIGN PART BY 3 X PCD:100 EQU * P ADK A3,1 P SUK A1,3 P RB(NN) CD:100 P ADK A1,3 P SUK A3,1 , P ST A3,DWTSEC,A6 P
0x12375c…1238f0 Dummy {f00=0x005a, f01=0x0190, f02=» r P ANK A7,4 ORDER CHECK P RF(Z) REA:00 READ ORDER & EJECT DRCD01 F * * f $ P******************************** p $ P* * $ P* WRITE SECTORS * $ P* *
0x1238f0…123a84 Dummy {f00=0x005a, f01=0x0190, f02=»TOTAL PHYSICAL SECTOR PWRI:10 EQU * < P ML 3,DWTBSE,A6 GET IDENTITY OF SECTORS IN DRIVER BUFFER 2 $ P OR A3,DWTMAS,A6 GET SECTOR MASK r P SUK A3,7 0 P RF(NZ) WRI:20 NOT COMPLETE PHYSICAL SECTOR $ P LD A3,DWTOR,A6 GET UNIT NUMBER P
0x123a84…123c18 Dummy {f00=0x005a, f01=0x018e, f02=» P EJECT DRCD01 P* P* $ PWRI:20 EQU * . & P IM DWTTRA,A6 INDICATE NO TRANSFER B . P CF A5,READ READ SECTORS TO DRIVER BUFFER l P* PWRI:30 EQU * * P CF A5,WRITE WRITE ONE PHYSICAL SECTOR P IFT RAW=1 P LD A1,DWTOR
0x123c18…123dac Dummy {f00=0x005a, f01=0x0190, f02=» P XIF P CF A5,UPDATE 2 P LD A1,DWTLOS,A6 GET NUMBER OF LOGICAL SECTORS * " P RF(Z) REA:50 LAST SECTOR DONE ` & P CF A5,MASK00 PREPARE SECTOR MASK P LD A1,DWTMAS,A6 GET MASK P SUK A1,7 ( P RB(NZ) WRI:10 LESS THAN 3 SECTOR IO
0x123dac…123f40 Dummy {f00=0x005a, f01=0x0190, f02=»D AFTER WRITE j P MS 4,DWTRAW,A6 P IFT MMUPAG=1 . P LD A1,DWTSEC+2,A6 D P ST A1,DWTRAW+8,A6 ^ P XIF x P LDK A3,7 P ST A3,DWTMAS,A6 SECTOR MASK PWRI:55 EQU * P CF A5,WRITE P IFT RAW=1 8 P IM DWTTRA,A6 INDICA
0x123f40…1240d4 (1, 169) Dummy {f00=0x005a, f01=0x0190, f02=»S,A6 NUMBER OF LOGICAL SECTORS P SUK A1,3 & ( P RB(NN) WRI:55 NEXT PHYSICAL SECTOR 8 P IFT RAW=1 d P* v P EJECT DRCD01 P* P* P LD A2,DWTOR,A6 P ANK A2,/10 P RF(Z) WRI:70 BASIV WRITE 2 P ML 4,DWTRAW,A6
0x1240d4…124268 Dummy {f00=0x005a, f01=0x0190, f02=»IF P IFT RAW=1 PWRI:60 EQU * P CF A5,CIOLOD 0 P CF A5,VERIFY F P CF A5,UPDAT . P LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS p P SUK A1,3 ( P RB(NN) WRI:60 NEXT PHYSICAL SECTOR P XIF PWRI:70 EQU * P ADK A1,
0x124268…1243fc Dummy {f00=0x005a, f01=0x0190, f02=»CT DRCD01 P* P* $ P******************************** & $ P* * N $ P* READ SECTORS * v $ P* * $ P******************************** P* P* PREA:00
0x1243fc…124590 Dummy {f00=0x005a, f01=0x0190, f02=»A6 NUMBER OF LOGICAL SECTORS P RF(Z) REA:50 IO READY ! $ P SUK A1,3 ! B 0 P RB(NN) REA:00 AT LEAST ONE PHYSICAL SECTOR ! T P CF A5,MASK00 ! P CF A5,READ ! P CF A5,UPDATE ! P LDK A1,0 RESET RETURN CODE ! PREA:50 EQU * ! P ABL END
0x124590…124724 Dummy {f00=0x005a, f01=0x0190, f02=»AD SECTOR N * ! * * " ********************* " 6 * " T * " ^ PREAD EQU * " h P CF A5,CIOLOD " z 6 P CM DWTBSE+4,A6 CLEAR BUFFER IND. IN CASE OF ERROR " * % LDKL A3,REDCOM GET READ COMMAND CODE " , P ORS A3,DWTCOP,A
0x124724…1248b8 Dummy {f00=0x005a, f01=0x0190, f02=» RF(Z) RET34 OK. NO RETURN CODE " * # ( * IO ERROR IN READING # 2 * # P P IM DWTRE2,A6 # Z $ SUK A4,1 DECREMENT RETRYCOUNTER # p 4 P RB(P) READ10 3:RD RETRY IN THIS STATE NOT DONE # $ LDK A4,RY3 REINIT RETRYCOUNTER # P* # P EJECT
0x1248b8…124a4c Dummy {f00=0x005a, f01=0x0190, f02=»H EARLY- OR LATE- # v RF(NZ) RET31 DATA STROBE ? $ 0 , LDKL A3,/8000 PREPARE FOR EARLY DATA STROBE $ > ORS A3,DWTCOP,A6 $ r 4 / RB READ10 RETRY 3 TIMES WITH EARLY DATA STROBE $ RET31 EQU * $ ANK A2,/80 $ 4 / RF(Z) RET32 LAST RETRIES WE
0x124a4c…124be0 Dummy {f00=0x005a, f01=0x0190, f02=»ES WITH LATE DATA STROBE $ z RET32 EQU * % LDKL A3,/3FFF % 4 , ( ANS A3,DWTCOP,A6 RESET LATE DATA STROBE % J LC A2,DWTCOP+2,A6 % z 2 - ANK A2,/C0 LAST RETRY CARRIAGE+ OR CARRIAGE- % RF(NZ) RET33 % ( $ LDKL A3,/8000 PREPARE FOR CARRIAGE+ %
0x124be0…124d74 (1, 170) Dummy {f00=0x005a, f01=0x0190, f02=»3 EQU * % ANK A2,/80 & , P RF(Z) RET35 LAST RETRY WAS A CARRIAGE- & $ LDKL A3,/C000 & T : 5 XRS A3,DWTCOP+2,A6 CHANGE FROM CARRIAGE+TO CARRIAGE- & j , ' RB READ10 RETRY 3 TIMES WITH CARRIAGE- & PRET35 EQU * & P LD A2,DWTSAV,A6 & $ P RB(
0x124d74…124f08 Dummy {f00=0x005a, f01=0x0190, f02=» P************************** ' P* * ' & P* WRITE SECTOR N * ' H P* * ' j P************************** ' P* ' PWRITE EQU * ' P CF A5,CIOLOD ' $ P LDKL A3,WRICOM WRITE ORDER CODE '
0x124f08…12509c Dummy {f00=0x005a, f01=0x0190, f02=»RIT50 WRITE OK ' " P IM DWTRE2,A6 RETRY PERFORMED ( P SUK A4,1 ( < P RB(NZ) WRIT20 RETRY ( N P RB REA:50 NO MORE RETRIES ( j PWRIT50 EQU * ( P RTN A5 ( P* ( P IFT RAW=1 ( P EJECT DRCD01 ( P* ( P* ( P******************
0x12509c…125230 Dummy {f00=0x005a, f01=0x0190, f02=»****************** ( P* ) PVERIFY EQU * ) $ * P LDKL A3,VERCOM ORDER CODE FOR VERIFY ) 8 P ORS A3,DWTCOP,A6 ) f P RB READ00 ) P* ) P XIF ) P EJECT DRCD01 ) P* ) P* ) . P* SEEK,SEEKZ,WRITE HOME ADDRESS AND CIO ) P* )
0x125230…1253c4 Dummy {f00=0x005a, f01=0x0190, f02=»U * ) 6 P LDK A2,DWTSEZ GET EFFECTIVE ADDRESS TO SEEK 0 OP. * P RF EXCIO * F P* * X P* * b PHOMEAD EQU * * l . P LDK A2,DWTWHA GET WRITE HOME ADDRESS OP. * P RF EXCIO * P* * P* * PCIO EQU * * 4 P LDK A2,DWTCOP GET EFFECTIVE A
0x1253c4…125558 Dummy {f00=0x005a, f01=0x0190, f02=»D A3,PFPOST * ( P RF(NZ) CIOAB PWF POST PROCESSING ON + P IFT NUNITS=2 + @ 0 P CF A15,INXDWT GET INDEXED DWT DISPLACEMENT + V P EX DWTCIO,A4 + P XIF + P IFT NUNITS=1 + P EX DWTCIO,A6 + P XIF + P ABL(3) END:30 + PCIOAB EQU * +
0x125558…1256ec Dummy {f00=0x005a, f01=0x0190, f02=»*********************************** + . )* * , , . )* SUBROUTINE CIOLOD * , ^ . )* PREPARE CIO WORK AREA * , . )* * , . )********************
0x1256ec…125880 Dummy {f00=0x005a, f01=0x0190, f02=»A3 = MASK , " P* A4 = CIO WORK AREA POINTER - P* A7 = USER BUFFER POINTER - 8 " P* A8 = DRIVER BUFFER POINTER - * - $ P* DWTTRA = TRANSFER INDICATOR - < P* DWTMAS = MASK INDICATING SECTORS TO/FROM USER BUFFER - P* DWTBA = BUFFER
0x125880…125a14 (1, 171) Dummy {f00=0x005b, f01=0x0190, f02=» A4,DWTCOP CIO WORK AREA ADDRESS - * P LDKL A8,BUFFER DRIVER BUFFFER ADDRESS . ( $ P LD A3,DWTMAS,A6 GET BUFFER MASK . V P SRC A3,4 MASK IN POSITION . ~ " P LDK A7,0 USER BUFFER POINTER . P* . P EJECT DRCD01 . P* . P* . PCIOL10 EQU * .
0x125a14…125ba8 Dummy {f00=0x005b, f01=0x0190, f02=»L A1,/C000+LOSECL NO TRANSFER ORDER . ( P LD A2,DWTTRA,A6 TRANSFER INDICATOR / , P RF(NZ) CIOL55 NO TRANSFER / X P* / z P IFT MMUPAG=0 / P LDKL A1,/4080 / & P LDR A2,A7 BUFFER ADDRESS POINTER / " P AD A2,DWTBA,A6 BUFFER ADDRESS / P MSR 2,A
0x125ba8…125d3c Dummy {f00=0x005b, f01=0x0190, f02=»TED / ~ ( P DA DWTBA,A6 GET USER BUFFER ADDRESS 0 P SLL A2,1 IN POSITION 0 8 P SRC A1,4 IN POSITION 0 V P MSR 2,A4 TO CIO WORK AREA 0 t . P ADK A7,LOSECL UPDATE USER BUFFER POINTER 0 P XIF 0 P RB CIOL10 0 P* 0 P EJECT DRCD01 0 P*
0x125d3c…125ed0 Dummy {f00=0x005b, f01=0x0190, f02=»INTER 0 l PCIOL55 EQU * 1 P MSR 2,A4 TO CIO WORK AREA 1 " P RB CIOL10 1 D PCIOL60 EQU * 1 V P LDKL A1,/B000+LOSECL 1 j " P ANS A1,DWTCOP+12,A6 CLEAR BIT 1 P LDKL A1,PHSECL 1 P ST A1,DWTCOP+2,A6 1 ( P CM DWTTRA,A6 CLEAR NO TRANSFER FLAG 1
0x125ed0…126064 Dummy {f00=0x005b, f01=0x018e, f02=» * 1 r . )* PUT SECTOR NUMBER * 2 . )* AND HEAD NUMBER IN POS. * 2 F . )* * 2 x . )***************************************** 2 * 2 & "* INPUT: PHYSICAL SECTOR NUMBER
0x126064…1261f8 Dummy {f00=0x005b, f01=0x0190, f02=» 2 * P ML 2,DWTSEC,A6 PHYSICAL SECTOR NUMBER 3 P DVK 115 3 6 0 P* A1 = REST = HEAD NUMBER * SECTOR NUMBER 3 F ( P* A2 = QUOTIENT = CYLINDER NUMBER 3 z $ P LDR A3,A2 SAVE CYLINDER NUMBER 3 P LDR A2,A1 3 P LDK A1,0 3 P DVK 23 3 P* A1
0x1261f8…12638c Dummy {f00=0x005b, f01=0x0190, f02=»ECTOR NUMBER 3 P MUK INLACE INTERLACING 4 P SLC A3,1 4 4 & P RF(NN) CIOP10 EVEN CYLINDER NUMBE 4 F P ADK A2,12 SKEW FACTOR 4 p P* 4 P EJECT DRCD01 4 P* 4 P* 4 PCIOP10 EQU * 4 4 P DVK 23 GET INTERLACED AND SKEWED SECTOR NUMBER 4
0x12638c…126520 Dummy {f00=0x005b, f01=0x018e, f02=»UNITS=2 4 P CF A15,INXDWT 5 P CW A3,DWTCYL,A4 5 & P RF(E) CIOP50 SAME CYLINDER 5 > * P ST A3,DWTCYL,A4 SAVE CYLINDER NUMBER 5 b P XIF 5 P IFT NUNITS=1 5 P CW A3,DWTCYL,A6 5 P RF(E) CIOP50 SAME CYLINDER 5 * P ST A3,DWTCYL,A6 SAVE CYLI
0x126520…1266b4 (1, 172) Dummy {f00=0x005b, f01=0x0190, f02=» P* 6 P* SEEK CYLINDER 6 P* 6 ( P* 6 2 P LDK A4,RY3 RETRIES 6 < PSE:010 EQU * 6 X P CF A5,SEEK SEEK CYLINDER N 6 l P ANK A1,2 6 $ P RF(Z) CIOP50 OK. SEEK COMPLETED 6 P IM DWTRE2,A6 6 & P SUK A4,1 DECREMENT RETRY-COUNTER 6
0x1266b4…126848 Dummy {f00=0x005b, f01=0x0190, f02=» * 7 PSE:020 EQU * 7 P RF END:SE SEEK ERROR END IO 7 " PCIOP50 EQU * 7 F P RTN A5 7 Z P* 7 j P EJECT DRCD01 7 t P* 7 P* 7 * P************************************* 7 * P* * 7 * P* SUBROUTINE
0x126848…1269dc Dummy {f00=0x005b, f01=0x0190, f02=» UPDATES : DWTBSE PRESENT SECTORS IN DRIVER BUFFER 7 @ P* DWTLOS NUMBER OF LOGICAL SECTORS LEFT IN IO 8 > . P* DWTBA USER BUFFER POINTER 8 2 P* DWTSEC PHYSICAL SECTOR POINTER 8 , P* ECBEL EFFECTI
0x1269dc…126b70 Dummy {f00=0x005b, f01=0x0190, f02=» ANK A3,7 3 BITS 8 P LD A1,DWTOR,A6 GET INDEX 9 P ANKL A1,/100 UNIT NUMBER 9 : P DA DWTSEC,A6 SECTOR NUMBER 9 P MS 3,DWTBSE,A6 SAVE 9 PUPDAT EQU * 9 $ P LD A1,DWTMAS,A6 GET SECTOR MASK 9 P LDK A2,0 9 P SRC A1,3 9 PUPDA00 EQU *
0x126b70…126d04 Dummy {f00=0x005b, f01=0x0190, f02=» P RB(NZ) UPDA00 MORE SECTORS : P* : ( P EJECT DRCD01 : 2 P* : H P* : R " P LD A3,DWTLOS,A6 UPDATE DWTLOS : P SUR A3,A2 : P ST A3,DWTLOS,A6 : P* : P IFT MMUPAG=1 : P SLL A2,7 UPDATE DWTBA : P LDR A3,A2 SAVE LENGTH : P
0x126d04…126e98 Dummy {f00=0x005b, f01=0x0190, f02=»BUFFER POINTER : x P XIF ; P* ; " P IFT RAW=1 ; , P LD A1,DWTTRA,A6 ; > * P RF(Z) UPDA50 UPDATE EFFECTIVE LENGTH ; V P LD A7,DWTOR,A6 GET ORDER ; P ANK A7,/10 ; P RF(NZ) UPDA60 ; P XIF ; P* ; P EJECT DRCD01 ; P* ; P*
0x126e98…12702c Dummy {f00=0x005b, f01=0x0190, f02=»CTIVE LENGTH ; t P XIF < PUPDA60 EQU * < P* < 4 P LDK A1,0 < > P LDK A2,1 < P P DA DWTSEC,A6 < b P MS 2,DWTSEC,A6 < x P* < P RTN A5 < P EJECT DRCD01 < P* < P* < 0 P******************************************* < 0 P
0x12702c…1271c0 Dummy {f00=0x005b, f01=0x0190, f02=»CAL * < p 0 P* SECTORS IN PHYSICAL * = 0 P* * = H 0 P******************************************* = | P* = P* A1 = POSITION IN SECTOR = " P* DWTLOS = NUMBER OF SECTORS = P* =
0x1271c0…127354 (1, 173) Dummy {f00=0x005b, f01=0x018e, f02=»DK A3,4 1 0 0 = & P RF(N) MASK10 1 SECTOR LEFT IN IO > P LDK A3,6 1 1 0 > B & P RF(Z) MASK10 2 SECTORS LEFT IN IO > P LDK A3,7 1 1 1 > PMASK10 EQU * > P SUK A1,1 > P RF(Z) MASK20 0 1 0 > P RF(N) MASK30 1 0 0 > P SRL A
0x127354…1274e8 Dummy {f00=0x005b, f01=0x0190, f02=» P EJECT DRCD01 ? P* ? P* ? $ P************************* ? . P* * ? P P* PERFORM END IO * ? r P* * ? P************************* ? P* ? PEND:SE EQU * SEEK ERROR ? P IFT N
0x1274e8…12767c Dummy {f00=0x005b, f01=0x018e, f02=» P LDKL A3,/FFFF @ * P ST A3,DWTCYL,A4 DUMMY CYLINDER NUMBER @ P XIF @ H PEND:00 EQU * @ T P LD A2,DWTRE2,A6 @ h P CW A2,DWTRE1,A6 @ P RF(E) END:IO @ , P ST A2,DWTRE1,A6 GRAND TOTAL OF RETRIES @ $ P ORKL A1,/100 RETRIES PERFORMED @ P*
0x12767c…127810 Dummy {f00=0x005b, f01=0x018e, f02=» @ . P ORS A1,DWTST,A6 INDICATE RECOVERY DONE =1 A P RB END:IO A : P* A L P EJECT DRCD01 A V P* A l P* A v P********************** A P* * A P* RECOVERY ROUTINE * A P* * A P****************
0x127810…1279a4 Dummy {f00=0x005b, f01=0x0190, f02=» P IFT CPU852=0 B " P MSR 8,A15 SAVE A1-A8 ON STACK B P XIF B @ P* B L P LDKL A6,DWCD01 B V " P LDK A5,DWTSB3 GET STACK BASE B n P ADR A5,A6 B P LDKL A1,-1 B & P ST A1,DWTSAV,A6 INDICATE RECOVERY B 4 P LDKL A1,/7FFE SET UNIT BUSY AND REC
0x1279a4…127b38 Dummy {f00=0x005b, f01=0x0190, f02=» EJECT DRCD01 B P* C P* C P IFT NUNITS=2 C * P CM DWTOR,A6 1ST UNIT C @ " P CF A5,SEEKZ TEST IF OPERABLE C ^ P ANK A1,1 C P RF(NZ) CDON26 NOT OPERABLE C P LDK A1,1 C P SC A1,DWTOR,A6 2ND UNIT C P XIF C " P CF A5,SEEKZ TES
0x127b38…127ccc Dummy {f00=0x005b, f01=0x0190, f02=» EQU * C P CM DWTOR,A6 1ST UNIT D P CF A5,VO:NAM D , P IFT NUNITS=2 D B P LDK A1,1 2ND UNIT D X P SC A1,DWTOR,A6 D r P CF A5,VO:NAM D P XIF D , P IM DWTST,A6 INDICATE VOLUME NAMES READ D P CM DWTSAV,A6 RECOVERY DONE D P* D $
0x127ccc…127e60 Dummy {f00=0x005b, f01=0x0190, f02=»WTOR,A6 RESTORE INDEX AND ORDER D P ANK A7,/3F E ( P* E < ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH E F P ABL CDAD REPEAT REQUEST E r P* E P EJECT DRCD01 E P* E P* READY INTERRUPT E P* E PCDREDY LD A1,TIMER E " P RF(Z) CDO
0x127e60…127ff4 (1, 174) Dummy {f00=0x005b, f01=0x0190, f02=»UNITS=2 E P RB T:DISP TIMER ACTIVE F P XIF F 0 P* F < P EJECT DRCD01 F F P* F ^ P* F h PCDON26 EQU * F r ( P LDKL A4,TIMER TIMER POINTER ADDRESS F P LDR* A3,A4 F " P RF(Z) CDON30 NO TIMER ACTIVE F P LDKL A1,-TIME F P STR A
0x127ff4…128188 Dummy {f00=0x005b, f01=0x0190, f02=»SS, TIME F p P RB T:DISP G P* G " P* TIME OUT G , P* G @ PCDON40 LDKL A6,DWCD01 G J P CM TIMER G h PCDON50 EQU * G z 4 P LDKL A1,/7FFE SET UNIT BUSY AND RECOVERY ON =1 G P ANS A1,DWTST,A6 =1 G P LDKL A1,-1 G & P ST A1,DWTSAV,A6 I
0x128188…12831c Dummy {f00=0x005b, f01=0x0190, f02=» P* H P*********************** H P* * H . P* INTERRUPT HANDLER * H N P* * H n P*********************** H P* H P* H B P* OUTPUT BIT 1 12 13 14 15 H P
0x12831c…1284b0 Dummy {f00=0x005b, f01=0x0190, f02=» RECORD NOT FOUND X H > P* 6 SEEK ERROR X I 6 P* 9 DRIVE NUMBER I x 8 P* 12 INCORRECT LENGTH X I < P* 13 PARITY ERROR
0x1284b0…128644 Dummy {f00=0x005b, f01=0x0190, f02=» X I X P* J PIHCD EQU * J $ P ST P,INTSAV SAVE LAST INTERRUPT J * & P MSR 8,A15 SAVE REGISTERS ON STACK J R P LDKL A6,DWCD01 DWT ADDRESS J | P SST A1,CUADR GET STATUS J P LDR A2,A1 J P ANK A1,/F KEEP BITS J P SLL A2,1 J " P RB(N) C
0x128644…1287d8 Dummy {f00=0x005b, f01=0x018e, f02=»* J P EJECT DRCD01 K P* K P* K * PIHCD40 EQU * K 4 P ANKL A2,/2800 K H P RF(Z) IHCD50 K ^ P ORK A1,2 K t PIHCD50 EQU * K $ P LD A8,DWTECB,A6 GET ECB ADDRESS K P LDR A3,A1 RETURN CODE K P LD A2,DWTSAV,A6 K " P RF(NZ) IHCD70 V
0x1287d8…12896c Dummy {f00=0x005b, f01=0x0190, f02=» & P LD A4,DWTA4,A6 GET RETRY COUNTER L P RTN A5 L . P* L > P EJECT DRCD01 L H P* L ^ P********** L h P* VO:NAM * L z P********** L P* L P* L PVO:NAM EQU * L P CF A5,SEEKZ L P ANK A1,3 L P RF(NZ) VO:NA7 ERROR L " P
0x12896c…128b00 Dummy {f00=0x005b, f01=0x018e, f02=»5,DWTCOP,A6 L $ P LDR A5,A7 RESTORE STACK POINTER M 0 P CF A5,READ00 READ SECTOR 0 TO DRIVER BUFFER M < * P CM DWTBSE+4,A6 CLEAR IN CASE OF ERROR M p P ANK A1,/F M P RF(NZ) VO:NA7 ERROR M P LD A1,DWTOR,A6 M P ANKL A1,/100 UNIT NUMBER M P L
0x128b00…128c94 (1, 175) Dummy {f00=0x005c, f01=0x018e, f02=» M x P LD A1,DWTSAV,A6 N P RF(N) VO:NA5 N ( P LDKL A3,/80FC INDICATE TEST STATUS N 6 PVO:NA5 EQU * N b & P CF A15,VOLGET VOLUME NAME TO DWT N v P* N P EJECT DRCD01 N P* N P* N P LDK A1,0 RESET RETURN CODE N P LDK A3,0 CYLIND
0x128c94…128e28 Dummy {f00=0x005c, f01=0x0190, f02=» N x ( P LDKL A3,/FFFF DUMMY CYLINDER NUMBER O PVO:NA8 EQU * O 4 P IFT NUNITS=1 O H " P ST A3,DWTCYL,A6 HEAD POSITION O ^ P XIF O P IFT NUNITS=2 O P CF A15,INXDWT O P ST A3,DWTCYL,A4 O P XIF O P RTN A5 O P* O P* O P*
0x128e28…128fbc Dummy {f00=0x005c, f01=0x0190, f02=»***** O p * P* * P * P* DEVICE WORK TABLE * P < * P* * P j * P************************************* P P* P P* P PDWCD01 EQU * P P DATA 0 P P DATA /800
0x128fbc…129150 Dummy {f00=0x005c, f01=0x018e, f02=» DATA 0 WAIT/ACTIVATE INDICATOR P P DATA 0 TERMINAL QUEUE Q ( P* Q F P IFT MMUPAG=1 Q P & " DATA 0 SAVE AREA USER ECB ADDRESS Q f P DATA ECBCD1 MMU ECB ADDRESS Q XIF Q P* Q PDWTTRA EQU *-DWCD01 Q P DATA 0 Q ( P DATA 0,0,0 SAVE A
0x129150…1292e4 Dummy {f00=0x005c, f01=0x0190, f02=» Q P* R P EJECT DRCD01 R P* R ( P* R 2 P DATA 0 R < 2 P DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 1 R L 2 P DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 2 R 2 PDWTRE1 EQU *-DWCD01 GRAND TOTAL RETRY COUNTER R P DATA 0 R , PDWTRE2 EQU
0x1292e4…129478 Dummy {f00=0x005c, f01=0x0190, f02=»F,/FFFF,/FFFF VOLUME NAME UNIT 2 R P XIF S ( * PDWTBA EQU *-DWCD01 USER BUFFER POINTER S 4 P DATA 0 S b P IFT MMUPAG=1 S r P DATA 0 S P XIF S . PDWTLOS EQU *-DWCD01 LOGICAL SECTOR COUNTER S P DATA 0 S . PDWTSEC EQU *-DWCD01 PHYSICAL SECTO
0x129478…12960c Dummy {f00=0x005c, f01=0x0190, f02=» P* CIO WORK AREAS T P* T , PDWTCIO EQU *-DWCD01 CIO INTRUCTIONS AREA T ( $ P CIO A2,1,CUAD1 CIO ON 1ST UNIT T X P IFT NUNITS=2 T $ P CIO A2,1,CUAD2 CIO ON 2ND UNIT T P XIF T , PDWTSEK EQU *-DWCD01 SEEK OPERATION AREA T P DATA SEEKCO T
0x12960c…1297a0 Dummy {f00=0x005c, f01=0x0190, f02=» T Z P DATA WHACOM U P DATA PHSECL U P DATA WHACOM+1 U 0 P DATA PHSECL U F P DATA WHACOM+2 U Z P DATA PHSECL U p P DATA WHACOM+3 U P DATA PHSECL U ( P DATA WHACOM+/804 INTERRUPT BIT SET U P DATA PHSECL U & PDWTCOP EQU *-DWCD01 CIO WO
0x1297a0…129934 (1, 176) Dummy {f00=0x005c, f01=0x0190, f02=»ENT CYLINDER NUMBER U x P DATA /FFFF UNIT 1 V P IFT NUNITS=2 V 6 P DATA /FFFF UNIT 2 V L P XIF V f P DATA 0,0 V r P DATA 0,0 V P DATA 0,0 V PDWTSB3 EQU *-DWCD01-2 STACK V P IFT RAW=1 V 2 PDWTRAW EQU *-DWCD01 READ AFTER WRITE SAVE
0x129934…129ac8 Dummy {f00=0x005c, f01=0x4038, f02=»0,0,0,0,0 V P XIF W P* W END W (@ W 4FT NUNITS=2 V 6 P DATA /FFFF UNIT 2 V L P XIF V f P DATA 0,0 V r P DATA 0,0 V P DATA 0,0 V PDWTSB3 EQU *-DWCD01-2 STACK V P IFT RAW=1 V 2 PDWTRAW EQU *-DWCD01 READ AFTER WRITE SAVE
0x129ac8…129c5c Dummy {f00=0x005c, f01=0x2008, f02=» X ************* | * & "* INPUT: PHYSICAL SECTOR NUMBER ( 8 4* OUTPUT: INTERLACED SECTOR NUMBER AND HEAD NUMBER R $ * IN POSITION FOR CIO * PERFORM SEEK * CIOPRE EQU * * END @
0x129c5c…129df0 Dummy {f00=0x005c, f01=0x0190, f02=»4,/F P RF(Z) TAB020 PTAB010 ADK A2,/A " P SUK A4,1 : P RB(NZ) TAB010 L P* b PTAB020 SU A2,DWTHP,A6 l 4 P LC A4,DWTBC,A6 GET NUMBER OF OUTPUT CHARACTERS * P SUR A2,A4 NUMBER OF SPACES TO BE SENT , P RB(NP) WRT050 NO SPACES
0x129df0…129f84 Dummy {f00=0x005c, f01=0x0190, f02=»REMENT BYTE COUNTER P SUK A4,1 & P RB(NZ) TAB030 SEND ANOTHER SPACE . P LDR A3,A3 X P RB(NZ) WRT050 NOT RECOVERY j & P SC A4,DWTBC,A6 RESET BYTE COUNTER " P LDK A3,2 PRESET BUFFER INDEX " P RB WRT050 GET NEXT CHARACTER P EJE
0x129f84…12a118 Dummy {f00=0x005c, 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 LDKL A6,DWTW01 GET DWT-ADDRESS P IFT POWUP=1 P LDKL A1,/200 & P ORS A1,DWTST,A6 INDICATE POWER UP P X
0x12a118…12a2ac Dummy {f00=0x005c, f01=0x0190, f02=»NK A7,/FF P LD A8,DWTECB,A6 ECB-ADDRESS P LDKL A5,DWTSB2 6 P ADR A5,A6 GET STACK BASE N P SUK A7,4 p " P ABL(N) TWA010 ORDERS 01,02,03 P SUK A7,1 P RF(Z) TWON20 ORDER 05 P INH P LDK A2,0 $ P CF A5,STRTIO EXEC
0x12a2ac…12a440 Dummy {f00=0x005c, f01=0x0190, f02=» P* PTWON20 LDK A1,TPERR ORDER 05 P ABL DISEND 2 P* F P* P P EJECT Z P* h P* r P* I H T W | P* 0 P* INTERRUPT HANDLER: PROCESS OF INTERRUPT P* P* PIHTW EQU * $ P ST P,INTSAV SAVE LA
0x12a440…12a5d4 (1, 177) Opaque[0x194]
0x12a5d4…12a768 # DirEnt {nam=»DRCR01«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0b90, f03=0xffff}
0x12a5d4…12a768 IdxSect {
0x12a5d4…12a768 f00 = 0x005c // 0x12a5d4 @0x0
0x12a5d4…12a768 f01 = 0x000c // 0x12a5d6 @0x2
0x12a5d4…12a768 gno = [ // 0x12a5d8 @0x4
0x12a5d4…12a768 [0x00]: C0x005c.0x2.0
0x12a5d4…12a768 [0x01]: C0x005c.0x3.0
0x12a5d4…12a768 [0x02]: C0x005d.0x0.0
0x12a5d4…12a768 [0x03]: C0x005d.0x1.0
0x12a5d4…12a768 [0x04]: C0x005d.0x2.0
0x12a5d4…12a768 [0x05]: C0x005d.0x3.0
0x12a5d4…12a768 ]
0x12a5d4…12a768 }
0x12a768…12a8fc Dummy {f00=0x005c, f01=0x0190, f02=» 2 P IDENT DRCR01 REL 11.0 81-01-26 870105041100 P : P B P* J P* T @ P************************************************************ ^ P* " P* PHILIPS TERMINAL SYSTEM PTS P* " P* DRCR01 = DRIVER CARD READER P*
0x12a8fc…12aa90 Dummy {f00=0x005c, f01=0x0190, f02=» THIS DRIVER HANDLES ONE CARD READER PTS 6885 CONNECTED < P* TO CPU VIA CHCD ON PROGRAMMED OR MULTIPLEX CHANNEL @ P* P* @ P************************************************************ P EJECT DRCR01 P*****************
0x12aa90…12ac24 Dummy {f00=0x005c, f01=0x0190, f02=»RECOVERY ROUTINE " P ENTRY IHCR INTERRUPT HANDLER & P ENTRY DWCR01 DWT FOR CARD READER > P h * P************************************** r * P* EXTERNAL TOSS MODULE ENTRIES * * P************************************** P EXTRN TDISP
0x12ac24…12adb8 Dummy {f00=0x005c, f01=0x018e, f02=»O END I/O P EXTRN DISIOE REQUEST ERROR , P EXTRN INTSAV SAVE AREA, LAST INTERRUPT 6 * P EXTRN PFPOST PWF POST PROCESSING FLAG f P EXTRN DWTST STATUS EXTRN DWTECB ECB ADDRESS EXTRN DWTA2 SAVE AREA A2 EXTRN DWT
0x12adb8…12af4c Dummy {f00=0x005c, f01=0x018e, f02=» z PDEVICE EQU /0D PMUX EQU DEVICE+DEVICE PREQLEN EQU 4 < PBUFFER EQU 2 P PEFFLEN EQU 6 d P EJECT DRCR01 x P* P************************** P* CONDITIONAL ASSEMBLY * P************************** . P* PROGR
0x12af4c…12b0e0 Dummy {f00=0x005c, f01=0x0190, f02=» P* P* P* MMU BUFFER SIZE P* 4 PX:B EQU 40 > PDVBLEN EQU X:B P P* f P* p P* MMU DEVICE INDEX z P* * PDEVIND EQU 2 CARD READER DEVICE INDEX P* P* . P* A PROGRAM VERSION USING TOSS MMU PAG
0x12b0e0…12b274 (1, 178) Dummy {f00=0x005c, f01=0x0190, f02=»E EXTENDED INSTRUCTION t . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* P PCPU852 EQU 1 Z P* n P EJECT DRCR01 DRCR01 x P STATUS P ******************** P -HARDWARE: . P BIT 10: INPUT HOPPER EMPTY OR OUTP
0x12b274…12b408 Dummy {f00=0x005c, f01=0x0190, f02=»: REQUEST ERROR P 3: :EOF DETECTED " P 12: INCORRECT LENGTH < P 13: DATA FAULT b : P 2: HW BIT 10 IS SHIFTED TO BIT 2 IN ECB RETURN CODE P P P ORDER P ******************** P
0x12b408…12b59c Dummy {f00=0x005c, f01=0x0190, f02=»DE ON 8 BITS, AND STORED r , P UNTIL REQUESTED LENGTH IS REACHED P EJECT DRCR01 P P *********************** h P *NORMAL REGISTER USAGE* P *********************** P A1=RETURN CODE P A2=WORK REGISTER P A3=WOR
0x12b59c…12b730 Dummy {f00=0x005c, f01=0x0190, f02=» : P***************************************************** : P* NOTE! IN COMMENTS, THE FOLLOWING NOTATION IS USED * H : P* CARD COLUMNES: 1,2,3,4.......80 * : P* CARD ROWS : 12,11,0,1,2,3.....9 * : P******
0x12b730…12b8c4 Dummy {f00=0x005c, f01=0x018e, f02=»************* P * P DATA DVBLEN+DVBLEN MMU BUFFER LENGTH " P DATA DEVIND MMU DEVICE INDEX N PCRADR DATA ACCR t " P DATA 0 ABORT ROUTINE ADDRESS P IFT CHAN=0 P* P********** P* BUFFER * P********** PMU
0x12b8c4…12ba58 Dummy {f00=0x005c, f01=0x0190, f02=» P* ACTIVATION PART * P* * & P************************* H P j PACCR EQU * t P SUK A7,2 ORDER 2? " P ABL(NZ) DISIOE REQUEST ERROR PORDER2 LD A3,REQLEN,A8 P CWK A3,80 P RF(NG) AC.1 &
0x12ba58…12bbec Dummy {f00=0x005c, f01=0x0190, f02=»FLAG RESET RECOVERY INDICATOR P CF A5,READ READ ONE CARD & 2 P ANKL A1,/FFF7 RESET "INCORRECT LENGTH" BIT 12 H P OR A1,STATUS,A6 ~ P LDR A2,A1 RETURN CODE P ANK A2,/20 P RF(Z) ENDIO BIT 10 NOT SET P XRR A1,A2 RESET BIT 10
0x12bbec…12bd80 Dummy {f00=0x005c, f01=0x0190, f02=» " P****************************** " P* SUBROUTIN TO READ ONE CARD * . " P****************************** T PREAD EQU * z P ST A5,DWTA5,A6 SAVE A5 P LD A4,BUFFER,A8 P SUK A4,1 , P ST A4,DWTA4,A6 SAVE BUFFER ADDRESS - 1 P L
0x12bd80…12bf14 (1, 179) Dummy {f00=0x005d, f01=0x0190, f02=»MUX * P LDKL A4,MUXBUF DEFINE BUFFER ADDRESS P WER A4,MUX+1 : P XIF P P LD A1,PFPOST P RB(NZ) EXIT PFINIT PENDING r P CIO A3,1,DEVICE CIO START P RB(Z) EXIT ACCEPTED P LDK A1,1 ERROR P RB ENDIO P P
0x12bf14…12c0a8 Dummy {f00=0x005d, f01=0x018e, f02=»8 SAVE A1-A8 ON STACK P XIF P* * P IFT CPU852=0 4 " P MSR 8,A15 SAVE A1-A8 ON STACK J P XIF p P* | P LDKL A6,DWCR01 DWT ADDRESS P LD A3,DWTST,A6 REQUEST ON? P RB(N) EXIT NO! , P LDK A1,2 SET "THROUGHPUT ERROR" B
0x12c0a8…12c23c Dummy {f00=0x005d, f01=0x0190, f02=» P P********************* P* INTERRUPT HANDLER * 0 P********************* N PIHCR EQU * l & P ST P,INTSAVE SAVE LAST INTERRUPT ~ P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU85
0x12c23c…12c3d0 Dummy {f00=0x005d, f01=0x0190, f02=» t P LD A8,DWTECB,A6 ECB ADDRESS P IFT CHAN=1 , : P INR A3,0,DEVICE LD A3 WITH CHARACTER FROM CARD READER @ P RF(A) CONV ~ P XIF P IFT CHAN=0 : P LDKL A5,MUXBUF GET BUFFERADDRESS AND START CONVERSION P ENB PIHCR10 EQU *
0x12c3d0…12c564 Dummy {f00=0x005d, f01=0x0190, f02=» P SST A1,DEVICE NOT ACCEPTED P LD A5,DWTA5,A6 , P RTN A5 D P EJECT DRCR01 T P l P******************* v P* CODE CONVERSION * P******************* P . P A3=RECIEVED CHARACTER IN HOLERITH-CODE P
0x12c564…12c6f8 Dummy {f00=0x005d, f01=0x0190, f02=»IGNIFICANT BITS ~ P RF(N) FIRST P RF(P) SCAN1 , $ P LDK A3,/20 CHARACTER IS A SPACE @ $ P CW A2,REQLEN,A8 BUFFER FILLED? h P ABL(NG) PUTCHA NO! P ABL TEST P* PHOLE1 DATA 0 PHOLE2 DATA 0 P EJECT DRCR01 L P
0x12c6f8…12c88c Dummy {f00=0x005d, f01=0x0190, f02=»NE HOLE X * PSCAN1 ADK A1,1 SCAN FOR THE FIRST HOLE P SLL A3,1 > P RB(P) SCAN1 P ( PFIRST CW A2,REQLEN,A8 BUFFER FILLED? d P RF(NG) IH.1 NO! 0 P LDK A3,8 YES! SET "INCORRECT LENGTH" BIT 12 P ORS A3,STATUS,A6 P ABL READY . P
0x12c88c…12ca20 Dummy {f00=0x005d, f01=0x0190, f02=»S! " P CONVERSION IS MADE DIRECTLY " P *************************** 0 P RF(P) *+12 V P RF(Z) *+6 j P LDK A3,/26 & (ROW 12) | P RF PUTCHA P LDK A3,/2D - (ROW 11) P RF PUTCHA P LDR A3,A1 ( P ADK A3,/2F DIGIT 0 - 9 (R
0x12ca20…12cbb4 (1, 180) Dummy {f00=0x005d, f01=0x0190, f02=»============== V D P TWO HOLES P EJECT DRCR01 ^ . PSCAN2 ST A1,HOLE1 SAVE FIRST HOLE POSITION v " P ADK A1,1 SCAN FOR SECOND HOLE P SLL A3,1 P RB(P) *-4 0 P ST A1,HOLE2 2:ND HOLE
0x12cbb4…12cd48 Dummy {f00=0x005d, f01=0x0190, f02=»3 $ P RF(NL) SPEC SPECIAL CHARACTER? P ADR A1,A1 NO! LETTER OR / 2 " P LD A1,TABLE1,A1 CHOOSE TABLE T P LD A3,HOLE2 z P SUK A3,3 P RF(N) FAULT DATA FAULT? P ADR A1,A3 NO! & P LCR A3,A1 CHOOSE LETTER IN TABLE P RF PUTC
0x12cd48…12cedc Dummy {f00=0x005d, f01=0x0190, f02=»************************* x PTABLE1 DATA TAB.1 " P DATA TAB.2 < P DATA TAB.3 P P ROWS ON CARD d P ------------ | ( PTAB.1 DATA 'ABCDEFGHI ' 12,1 - 12,9 ( PTAB.2 DATA 'JKLMNOPQR ' 11,1 - 11,9 & PTAB.3 DATA '/STUVWXYZ ' 0,1
0x12cedc…12d070 Dummy {f00=0x005d, f01=0x018e, f02=»A FAULT? | , P -THE FIRST HOLE MUST NOT BE IN ROW 1! P SUK A1,4 NO! @ P CWK A1,5 A1=FIRST HOLE V P RF(G) FAULT DATA FAULT? v , P -THE FIRST HOLE MUST NOT BE IN ROW 8! P LD A3,HOLE2 P SUK A3,10 P RF(NZ) FAULT DATA FAULT?
0x12d070…12d204 Dummy {f00=0x005d, f01=0x0190, f02=» " P CONVERSION TABLE 2 , P ************************************* . P ROWS ON CARD ^ P ------------ v PTABLE2 DATA ':#' 2,8 3,8 P DATA /4027 4,8 5,8 P DATA '="' 6,8 7,8 , P *****************************
0x12d204…12d398 Dummy {f00=0x005d, f01=0x0190, f02=»======================== ` F P THREE HOLES P EJECT DRCR01 j P* PSCAN3 LD A1,HOLE1 P SUK A1,2 P RF(P) FAULT DATA FAULT? 0 P -THE FIRST HOLE MUST BE WITHIN THE FIRST
0x12d398…12d52c Dummy {f00=0x005d, f01=0x0190, f02=»LT 0 P -THE 2:ND HOLE MUST BE WITHIN ROW 2 TO 7! P ADK A1,9 > $ P ADK A1,1 SCAN FOR THE 3:RD HOLE P P SLL A3,1 x P RB(P) *-4 P SUK A1,10 3:RD HOLE FOUND! P RF(NZ) FAULT DATA FAULT? & P -THE 3:RD HOLE MUST BE IN ROW 8
0x12d52c…12d6c0 Dummy {f00=0x005d, f01=0x0190, f02=»ABLE3,A3 CHOOSE TABLE P AD A3,HOLE2 P SUK A3,4 2 P LCR A1,A3 D P LDR A3,A1 V P RF PUTCHA h P EJECT DRCR01 z P* P* " P CONVERSION TABLE 3 , P ************************************* PTABLE3 DATA
0x12d6c0…12d854 (1, 181) Dummy {f00=0x005d, f01=0x0190, f02=» ------------------- t " PTAB.4 DATA '[.' 12,2,8 12,3,8 P DATA '<(' 12,4,8 12,5,8 F P DATA /2B5E 12,6,8 12,7,8 h " PTAB.5 DATA '!$' 11,2,8 11,3,8 P DATA '*)' 11,4,8 11,5,8 P DATA ';]' 11,6,8 11,7,8 " PTAB.6 DATA /5C2C 0,2
0x12d854…12d9e8 Dummy {f00=0x005d, f01=0x0190, f02=» THREE HOLES L P*======================================================================= F P EJECT DRCR01 P P SET DATA FAULT P ************** PFAULT EQU * . P LDK
0x12d9e8…12db7c Dummy {f00=0x005d, f01=0x0190, f02=» PUT CHARACTER (ASCII) IN USER BUFFER . P ************************************ 0 PPUTCHA EQU * b P IFT CHAN=0 v P LD A4,FLAG 0 P RF(NZ) NEXT10 RECOVERY HAS BEEN PERFORMED! P XIF , P LD A4,DWTA4,A6 A2=COLUMN TO BE EXAMINED
0x12db7c…12dd10 Dummy {f00=0x005d, f01=0x0190, f02=» NEXT NO! P IFT CHAN=1 ! " PREADY CIO A3,0,DEVICE CIO HALT ! & P XIF ! L P IFT CHAN=0 ! X PREADY EQU * ! l P XIF ! P LDK A2,4 CHECK IF :EOF ! P CW A2,EFFLEN,A8 ! P RF(NE) NEXT00 EFF.LENGTH #4 ! & P LD A4,DWTA4,A6 GET BUFFER-ADDRE
0x12dd10…12dea4 Dummy {f00=0x005d, f01=0x0190, f02=»,A4 YES, GET NEXT WORD ! P CWK A2,'OF' A2 = OF ? " P RF(NE) NEXT00 NO! " < & P LDKL A2,/1000 YES! :EOF DETECTED " V ( P ORS A2,STATUS,A6 SET BIT 3 IN R.C. " P EJECT DRCR01 " PNEXT00 EQU * " P IFT CHAN=1 " PNEXT ADK A2,1 " P ST A2
0x12dea4…12e038 Dummy {f00=0x005d, f01=0x0190, f02=» " $ P ABL IHCR10 TAKE NEXT CHARACTER # PNEXT10 EQU * # 0 P XIF # D , P ABL RETUR8 LOAD A1 - A8 AND RETURN A15 # P P EJECT DRCR01 # P # * P************************************* # * P* DEVICE WORK TABLE FOR CARD READER * # * P**********
0x12e038…12e1cc Dummy {f00=0x005d, f01=0x0190, f02=»B ADDRESS # P DATA 0 LAST OUTPUT, ORDER $ ( P DATA CRADR POINTER TO DEVICE DRIVER $ 4 P DATA 0 POINTER TO TTAB $ ` $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE $ IFT MMUPAG=1 $ & " DATA 0 SAVE AREA USER ECB ADDRESS $ D
0x12e1cc…12e360 Dummy {f00=0x005d, f01=0x415a, f02=» $ x P DATA 0 SAVEAREA FOR A5 % P RES 4 DWT STACK % ( PSTATUS EQU *-DWCR01 % @ $ P DATA 0 SOFTWARE STATUS SAVEAREA % " PFLAG DATA 0 RECOVERY INDICATOR % P* % P IFT MMUPAG=1 % PDEVECB EQU * % P DATA 0 % P DATA CR:BUF % P DATA
0x12e360…12e4f4 (1, 182) Dummy {f00=0x005d, f01=0x2008, f02=» & FOR A2 DATA 0 SAVEAREA FOR A4 DATA 0 SAVEAREA FOR A5 8 DATA 0 DATA FAULT SAVEAREA X RES 4 DWT STACK | END @ DRESS DATA 0 LAST OUTPUT, ORDER ( $ DATA CRADR POINTER TO DEVICE DRIVER DATA 0
0x12e4f4…12e688 Dummy {f00=0x005d, f01=0x0190, f02=»1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES . P RF(N) BTCT20 NO MORE! / 4 ( P LDR* A4,A1 GET NUMBER OF TASK ID:S / R PBTCT08 ADK A1,2 NEXT TASK ID / ~ , P SUK A4,1 DECREMENT NUMBER OF TASK ID:S / P RB(N) BTCT06 NO MORE / P LDR* A2,A1 GET TASK ID
0x12e688…12e81c Dummy {f00=0x005d, f01=0x0190, f02=»ER TASKS / n * 0 PBTCT20 EQU * 0 6 P ST A12,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY 0 . , P LD A7,SYSLOD GET NUMBER OF APPLICATIONS 0 h 6 P LDKL A4,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK 0 & PBTCT30 SUK A7,1 MORE APPLICATIONS? 0 P RF(N) BTCT7
0x12e81c…12e9b0 Dummy {f00=0x005d, f01=0x0190, f02=»STORE FIRST USER TASK ENTRY 0 ~ LCR A2,A11 GET BLOCK TYPE 1 $ ( # CCK A2,'TT' TASK DEFINITION BLOCK? 1 F RF(E) BTCT35 YES 1 r P LDKL A1,LMP4 FORMAT ERROR 1 CALL ERROR HALT 1 P EJECT 1 PBTCT35 EQU * 1 * 1 0 ,* COMPUTE NUMBER OF T
0x12e9b0…12eb44 Dummy {f00=0x005d, f01=0x0190, f02=»RV ANOTHER ENTRY IN TC:TAB 1 ( $ SUK A1,1 MOORE TASKS IN THIS CLASS? 2 " RB(P) BTCT50 YES 2 N $ CALL NXTBLK SKIP TO NEXT BLOCK 2 h ( # CCK A2,'TT' TASK DEFINITION BLOCK? 2 RB(E) BTCT40 YES 2 PBTCT60 EQU * 2 , P ADK A4,ACBLEN NEXT APPL. CONT
0x12eb44…12ecd8 Dummy {f00=0x005d, f01=0x0190, f02=»ATE END OF FREE AREA 2 x " P SU A12,SCTTCT COMPUTE LENGTH 3 P ST* A12,SCTTCT STORE 3 B RTN A14 3 ` P IFF EDM=0 3 p P EJECT 3 : P***************************************************** 3 : P* * 3
0x12ecd8…12ee6c Dummy {f00=0x005d, f01=0x0190, f02=» * 3 : P* REFERENCED IN: B:TCT * 4 6 : P* * 4 t : P* ENTRY: A2 - CURRENT TASK ID * 4 : P* A12 - NEXT FRE
0x12ee6c…12f000 Dummy {f00=0x005d, f01=0x0190, f02=»CTAB * 4 l : P* * 5 : P* WORK REGISTERS: A3 * 5 X : P* * 5 : P* SUBROUTINES:
0x12f000…12f194 (1, 183) Opaque[0x194]
0x12f194…12f328 # DirEnt {nam=»DRDC07«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0bc0, f03=0xffff}
0x12f194…12f328 IdxSect {
0x12f194…12f328 f00 = 0x005e // 0x12f194 @0x0
0x12f194…12f328 f01 = 0x003c // 0x12f196 @0x2
0x12f194…12f328 gno = [ // 0x12f198 @0x4
0x12f194…12f328 [0x00]: C0x005e.0x0.0
0x12f194…12f328 [0x01]: C0x005e.0x1.0
0x12f194…12f328 [0x02]: C0x005e.0x2.0
0x12f194…12f328 [0x03]: C0x005e.0x3.0
0x12f194…12f328 [0x04]: C0x005f.0x0.0
0x12f194…12f328 [0x05]: C0x005f.0x1.0
0x12f194…12f328 [0x06]: C0x005f.0x2.0
0x12f194…12f328 [0x07]: C0x005f.0x3.0
0x12f194…12f328 [0x08]: C0x0060.0x0.0
0x12f194…12f328 [0x09]: C0x0060.0x1.0
0x12f194…12f328 [0x0a]: C0x0060.0x2.0
0x12f194…12f328 [0x0b]: C0x0060.0x3.0
0x12f194…12f328 [0x0c]: C0x0061.0x0.0
0x12f194…12f328 [0x0d]: C0x0061.0x1.0
0x12f194…12f328 [0x0e]: C0x0061.0x2.0
0x12f194…12f328 [0x0f]: C0x0061.0x3.0
0x12f194…12f328 [0x10]: C0x0062.0x0.0
0x12f194…12f328 [0x11]: C0x0062.0x1.0
0x12f194…12f328 [0x12]: C0x0062.0x2.0
0x12f194…12f328 [0x13]: C0x0062.0x3.0
0x12f194…12f328 [0x14]: C0x0063.0x0.0
0x12f194…12f328 [0x15]: C0x0063.0x1.0
0x12f194…12f328 [0x16]: C0x0063.0x2.0
0x12f194…12f328 [0x17]: C0x0063.0x3.0
0x12f194…12f328 [0x18]: C0x0064.0x0.0
0x12f194…12f328 [0x19]: C0x0064.0x1.0
0x12f194…12f328 [0x1a]: C0x0064.0x2.0
0x12f194…12f328 [0x1b]: C0x0064.0x3.0
0x12f194…12f328 [0x1c]: C0x0065.0x0.0
0x12f194…12f328 [0x1d]: C0x0065.0x1.0
0x12f194…12f328 ]
0x12f194…12f328 }
0x12f328…12f4bc Dummy {f00=0x005e, f01=0x0190, f02=» 0 P IDENT DRDC07 REL 11.0 81-06-02 870105041100 P 8 P =1,RETURN CODE @ P REL 11.0 81-01-26 Z P =2,MESPAS v P REL 11.0 81-04-14 P 2 P********************************************* P* $ P* PHILIPS TERMINAL SYSTE
0x12f4bc…12f650 Dummy {f00=0x005e, f01=0x0190, f02=» REJ X 0 P* (FOR SECONDARY STATION) P* @ P* REFERENCES: J . P* ECMA STANDARD-40 HDLC FRAME STRUCTURE ` 4 P* ECMA STANDARD-49 HDLC ELEMENTS OF PROCEDURE > P* ECMA STANDARD-60 HDLC UNBALANCED CLASS OF PROCEDURES
0x12f650…12f7e4 Dummy {f00=0x005e, f01=0x0190, f02=» 2 P ENTRY DC07AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH0701 INPUT INTERRUPT > " P ENTRY IH0702 OUTPUT INTERRUPT d " P ENTRY DC07ON POWER ON ROUTINE P* P* P* EXTERNAL REFERENCES P* P* " P EXTRN TDISP DISPA
0x12f7e4…12f978 Dummy {f00=0x005e, f01=0x018e, f02=» EXTRN DWTCHP TERMINAL ADDRESS P EXTRN DWTST DWT STATUS & P EXTRN DWTOR DWT ORDER F P EXTRN DWTECB DWT ECB d P EXTRN DWTTAB TTAB ADDRESS & P EXTRN DWTDTE SYMBOLIC DTE ADDRESS * P EXTRN PFPOST WAIT FOR POWER UP IF SET . P EXTRN MOVUS
0x12f978…12fb0c Dummy {f00=0x005e, f01=0x018e, f02=» : P EXTRN DCSRLL RESET ALL STATISTICS BUFFERS ENTRY POINT : P EXTRN DCSUPR UPDATE STATISTICS ENTRY POINT IN DCSTAT B * P EXTRN GETDNA CONVERT DTE SYMB TO PHYS * P EXTRN GETSNA CONVERT STA SYMB TO PHYS * P EXTRN GETSSA CONVERT STA PHYS TO SYMB
0x12fb0c…12fca0 Dummy {f00=0x005e, f01=0x0190, f02=» P* A1 WORK (RETURN CODE) P* A2 WORK ( P* A3 WORK (BUFFER LENGTH) : P* A4 WORK (BUFFER POINTER) P* A5 DRIVER STACK POINTER ~ P* A6 DWT ADDRESS P* A7 WORK, ORDER CODE P* A8 ECB ADDRESS P* L P****************
0x12fca0…12fe34 (1, 184) Dummy {f00=0x005e, f01=0x0190, f02=»*************** V P* P* CONDITIONAL ASSEMBLY " P* @ N P************************************************************************* J P* P* INTERNAL: P* P* , P* A PROGRAM VERSION USING TOSS PAGING IS & P* OBTAINED
0x12fe34…12ffc8 Dummy {f00=0x005e, f01=0x0190, f02=»IS OBTAINED BY SETTING CPU852 EQU 0 P* , PCPU852 EQU 1 6 P* J 4 PCUTIME EQU 5 CONTROL UNIT READY TIMEOUT = 500MS T P* P* EXTERNAL: P* P* PX:A EQU 3 , PRBUFNR EQU X:A NIMBER OF RECEIVE BUFFERS P P
0x12ffc8…13015c Dummy {f00=0x005e, f01=0x018e, f02=» PX:D EQU 4 2 PWIRES EQU X:D 4-WIRE IF ::= 4. 2-WIRE IF ::=2 P L PX:E EQU 0 T 0 PSUB EQU X:E SUBTERMINAL ADDRESSING IF ::= 1 f P PX:F EQU 0 , PUNR2 EQU X:F REJ-FRAME SUPPORT IF ::= 1 P PX:G EQU 0 , PMESPAS EQU
0x13015c…1302f0 Dummy {f00=0x005e, f01=0x0190, f02=» ( PLOGG EQU X:I LOGG FUNCTION IF ::= 1 P 0 PX:J EQU 0 8 ( PP6805 EQU X:J 6805 COMPUTER IF ::= 1 J P v PX:K EQU 2 ~ P IFF P6805=1 ( PCHLCIN EQU X:K INPUT DEVICE ADDRESS P XIF P IFT P6805=1 * PCHLCIN EQU X'0A' INPUT D
0x1302f0…130484 Dummy {f00=0x005e, f01=0x0190, f02=»****************************************************** P* > P* GENERATED PARAMETERS H P* f J P********************************************************************** p P IFT MUX=1 . PCHLCUT EQU CHLCIN+/1 OUTPUT DEVICE ADDRESS P XIF
0x130484…130618 Dummy {f00=0x005e, f01=0x018e, f02=» IFT P6805=1 PCHLCUT EQU CHLCIN+1 P XIF 0 P* < P* BUFFER HEADER EQUATES F P* f 6 PRCVHDR EQU 6 RECEIVE BUFFER HEADER LENGTH IN BYTES p PRCHDRW EQU 3 RCVHDR IN WORDS * PRCVEL EQU 2 EL POS. IN RCV BFR HEADER & PRCVTCA EQU 4
0x130618…1307ac Dummy {f00=0x005e, f01=0x0190, f02=» h * 2 -* DCDEFS COMMON DEFS FOR DC DRIVERS/PACKAGES * H * &************************************** R J P********************************************************************** P* P* ECB P* J P************************
0x1307ac…130940 Dummy {f00=0x005e, f01=0x0190, f02=»L EQU 4 REQUESTED LENGTH IN BYTES * PECBEL EQU 6 EFFECTIVE LENGTH IN BYTES * PECBRC EQU 8 RETURN CODE X PECBCW EQU 10 CONTROL WORD x $ ECBCW1 EQU ECBCW CONTROL WORD 1 ECBCW2 EQU 12 CONTROL WORD 2 P EJECT J P********************
0x130940…130ad4 (1, 185) Dummy {f00=0x005e, f01=0x0190, f02=»******************************** j P* ( P* ................... 2 P* 0 . DWTCHP . T P* ................... v P* 2 . DWTST . P* ................... P* 4 . DWTECB . P* ....
0x130ad4…130c68 Dummy {f00=0x005e, f01=0x0190, f02=»............... P* 10 . DWTTAB . P* ................... : P* 12 . DWTWAT . P* ................... ~ P* 14 . DWTTQ . P* ................... . P* (16). DWTUEC . IF MMU
0x130c68…130dfc Dummy {f00=0x005e, f01=0x0190, f02=»TDRD +2 . DWTSTB . $ P* ................... $ P* +4 . DWTCHD . L P* ................... n P* +6 . DWTCHN . P* ................... P* +8 . DWTLAD . P* ............
0x130dfc…130f90 Dummy {f00=0x005e, f01=0x0190, f02=»....... ~ P* +14 . DWTRCL . P* ................... 2 P* +16 . DWTRTV . T P* ................... v P* +18 . DWTRTP . P* ................... P* +20 . DWTOPE . P* ....
0x130f90…131124 Dummy {f00=0x005e, f01=0x0190, f02=»............... P* +26 . DWTIPT . P* ................... : P* +28 . . P* / DRIVER DEPEND / ~ P* / / P* / / P* ................... 8 P*
0x131124…1312b8 Dummy {f00=0x005e, f01=0x0190, f02=»DWTTQ EQU 14 PDWTUEC EQU DWTTQ+2 PDWTMEC EQU DWTUEC+2 . P J P IFT MMUPAG=0 R 2 PDWTDRD EQU DWTTQ+2 START OF DC DEPENDENT AREA h P XIF P IFT MMUPAG=1 2 PDWTDRD EQU DWTMEC+2 START OF DC DEPENDENT AREA P XIF D PDWTSTB
0x1312b8…13144c Dummy {f00=0x005e, f01=0x0190, f02=»D+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 DWTDR1 SYMBOLIC SUBADDRESS . PDWTRCL EQU DWTDRD+12 REQ
0x13144c…1315e0 Dummy {f00=0x005e, f01=0x0190, f02=»WTDRD+18 O/P DATA Q EXPEDITED/STATUS LINK NXT DWT 8 PDWTOPN EQU DWTDRD+20 O/P DATA Q NORMAL LINK NXT DWT : 2 PDWTIPC EQU DWTDRD+22 I/P DATA Q LINK TO BUFFER v 0 PDWTIPT EQU DWTDRD+24 I/P DATA TIMER POINTER P EJECT J P**********************
0x1315e0…131774 (1, 186) Dummy {f00=0x005e, f01=0x0190, f02=»************************************ n P* , P* TRANSMIT BUFFERS 6 P* R P* 1. APPLICATION P* t & P* *******/ /********************* ~ & P* * / / * & P* * T E / / X T * & P* * / /
0x131774…131908 Dummy {f00=0x005e, f01=0x0190, f02=»2. MMU AND/OR IOP INTERNAL DRIVER BUFFER P* 0 4 P* ********************************************** : 4 P* * * * * / / * r 4 P* * A * C * STA * / / T E X T * 4 P* * * * * / /
0x131908…131a9c Dummy {f00=0x005e, f01=0x0190, f02=»ICATION CHARACTER p 2 P* A = TCA (A FIELD), STARTS ON WORD BOUNDARY P* C = CONTROL FIELD P : P* STA = SUBTERMINAL ADDRESS (FROM DWT) IF GENERATED n P EJECT P* P* RECEIVE BUFFERS P* P* PROGRAMMED CHANNEL: D P
0x131a9c…131c30 Dummy {f00=0x005e, f01=0x0190, f02=» P D P* * RCVHDR * / / * D P* * * / / * P D P* ****************************************************/ /****** D P* * * * *
0x131c30…131dc4 Dummy {f00=0x005e, f01=0x0190, f02=»* / / * p D P* ****************************************************/ /****** ( B P* <--- ECBEL ---> p & P* / . P* '-- ECB
0x131dc4…131f58 Dummy {f00=0x005e, f01=0x0190, f02=» * / / * r B P* * RCVHDR * / / * ( B P* * * / / * n B P* **************************************************/ /****** B P* * *
0x131f58…1320ec Dummy {f00=0x005e, f01=0x0190, f02=» * * * / / * B P* **************************************************/ /****** < B P* <--- ECBEL ---> & P* / 0 P*
0x1320ec…132280 Dummy {f00=0x005e, f01=0x0190, f02=»C = ADDRESS + CONTROL FIELDS OF FRAME (1+1 BYTE) (IF IOP) N P* STA = FIRST DATA BYTE FROM LINE, ASSUMED = SUBTERMINAL ADDRESS (1 BYTE) B P* IF GENERATED < P* TCA = TERMINAL ADDRESS FROM A-FIELD OF FRAME (1 BYTE) L P************************
0x132280…132414 (1, 187) Dummy {f00=0x005f, f01=0x0190, f02=»**** N P* ( P* TOSS INTERFACE AREAS AND CONSTANTS P* B J P********************************************************************** L P* 0 PDEVIND EQU 0 DEVICE INDEX DATA COMMUNICATION P* P* DRIVER ADDRESS BLOCK P*
0x132414…1325a8 Dummy {f00=0x005f, f01=0x0190, f02=»E ADDRESS x P* P* REGISTER USAGE: P* 6 P* ENTRY: A6 = DWT ADDRESS @ P* A7 = ORDER CODE b P* A8 = ECB ADDRESS | P* EXIT: A1 = RETURN CODE P EJECT P* P* P* REQUEST HANDLING P* P* P
0x1325a8…13273c Dummy {f00=0x005f, f01=0x0190, f02=»U /2F DISCONNECT PREADO EQU 2 READ PWRITEO EQU 6 WRITE 0 PRSTAT EQU /00 READ STATUS J ( PSTATIS EQU /2D READ/RESET STATISTICS l $ PSTIMOT EQU /39 SET TIMEOUT VALUE P* P* OPTIONS: P* . PTYPRR EQU /43 RESET STATISTICS AFT
0x13273c…1328d0 Dummy {f00=0x005f, f01=0x0190, f02=»RTED t 2 PRCDATA EQU /0100 DATA UNIT QUEUED & AVAILABLE ! 2 PRCSTAT EQU /0080 STATUS INFORMATION AVAILABLE ! B PRCTIME EQU /0040 TIMEOUT ! x " PRCSEQ EQU /0010 SEQUENCE ERROR ! $ PRCLGTH EQU /0008 ILLEGAL LENGTH ! . PRCLOGC EQU /0002 LOGICAL CONNECTIO
0x1328d0…132a64 Dummy {f00=0x005f, f01=0x0190, f02=»************** ! X P* " . P* HARDWARE INTERFACE CONSTANTS AND EQUATES " P* " R J P********************************************************************** " P* " P* CIO START-IN COMMANDS " P* " PCICMO EQU /2 CONNECT MODEM " " PCIDI
0x132a64…132bf8 Dummy {f00=0x005f, f01=0x0190, f02=»E ON PROG.CHANNEL (2-WIRE) " | ( PCIREMX EQU /B RECEIVE ON MUX CHANNEL # " ( PCIR4MX EQU /D RECEIVE ON 4-WIRE MUX # N P IFT WIRES=2 # z " PCIRPC EQU CIAREP RECEIVE P.C. # PCIRMX EQU CIREMX RECEIVE IOP # P XIF # P IFT WIRES=4 # " PCIRPC EQU CIREPC
0x132bf8…132d8c Dummy {f00=0x005f, f01=0x0190, f02=» P* CIO START-OUT COMMANDS $ P* $ ( $ PCINRTS EQU 1 NO REQUEST TO SEND $ 2 $ PCIT4WP EQU 2 4-WIRE PROG.CHANNEL $ Z $ PCIT2WP EQU 3 2-WIRE PROG.CHANNEL $ $ PCIT4WM EQU /A 4-WIRE MUX.CHANNEL $ $ PCIT2WM EQU /B 2-WIRE MUX.CHANNEL $ P IFT WIRES=2 $
0x132d8c…132f20 Dummy {f00=0x005f, f01=0x0190, f02=»NSMIT P.C. $ | " PCIXMX EQU CIT4WM TRANSMIT IOP % P XIF % 8 PCIIDLE EQU 4 TRANSMIT IDLE 1 % D P* % h P* MUX DEVICE ADDRESSES ETC. % t P* % 0 PIOPIN EQU CHLCIN+CHLCIN INPUT DEVICE ADDRESS % 2 PIOPOUT EQU CHLCUT+CHLCUT OUTPUT DEVICE ADDRESS %
0x132f20…1330b4 (1, 188) Dummy {f00=0x005f, f01=0x0190, f02=»T:C EQU 1 CONNECTED =1 % P EJECT & J P********************************************************************** & , P* & z , P* PROTOCOL CONSTANTS/WORK AREAS/EQUATES & P* & J P********************************************************************** &
0x1330b4…133248 Dummy {f00=0x005f, f01=0x0190, f02=»ATA 0 SAVE BUFFER ADDRESS & ( PSAVPAM DATA 0 SAVE ACTION PARAMETER ' " PSAHDLC DATA 0 SAVE STATUS ' N $ PDCTPGP DATA 0 SAVE TIMER POINTER ' p PTIMPOL EQU 500 POLL TIME OUT ' . PSTATUS DATA 0 (=1):N(S)FAIL,(=2):N(R) FAIL ' , PBUFNUL DATA 0 BUFFER OVERF
0x133248…1333dc Dummy {f00=0x005f, f01=0x0190, f02=»CT DATA 0 OUTPUT ACTIVE FLAG ' P IFF MMUPAG+MUX=0 ( $ 6 PSWMMU DATA 0 FLAG TO INDIC.USER BUFFER MVD/NOT MVD ( @ P XIF ( z $ PTESTCF DATA 0 INPUT BUFFER FLAG ( . PFIELD1 DATA 0 ADDRESS + C-FIELD RECEPTION ( PWRDWT DATA 0 WRITING DWT ( $ P RES 15
0x1333dc…133570 Dummy {f00=0x005f, f01=0x0190, f02=» POINTER ( x P* ) P* ) P* PROCEDURE COUNTERS ) $ P* ) D P* ) N PCPCNT DATA 0 CHECK POINT ) X $ PVSCNT DATA 0 SEND STATE VARIABLE ) x ( PVRCNT DATA 0 RECEIVE STATE VARIABLE ) PNSCNT DATA 0 SEND COUNTER ) PNRCNT DATA 0 RECEIVE COUNT
0x133570…133704 Dummy {f00=0x005f, f01=0x0190, f02=» COMMANDS ) P* * , PSNRM EQU /93 SET NORMAL RESPONSE DCMODE * & PDISC EQU /53 SET DISCONNECT DCMODE * L P* * v P* MASKS ON RECEIVED FRAMES * P* * PRRMSK EQU 1 RECEIVE READY * " PRNRMSK EQU 5 RECEIVE NOT READY * PREJMSK EQU 9 REJEC
0x133704…133898 Dummy {f00=0x005f, f01=0x0190, f02=»QU /1F DISCONNECT DCMODE * PRR EQU /11 READY TO RECEIVE + PFRMR EQU /97 FRAME REJECT + D PREJ EQU /19 FRAME REJECTION + f P EJECT + P* + P* HDLC FRAME FORMAT: + P* + P* + B P* *************************//*************************
0x133898…133a2c Dummy {f00=0x005f, f01=0x0190, f02=»FCS-2 * F * + ^ B P* * * * * * * * * , B P* *************************//********************************* , Z P* , . P* F = OPENING AND CLOSING FLAGS (01111110) , P* , 6 P* A = ADDRESS FIELD, 8 BITS, APPLI
0x133a2c…133bc0 Dummy {f00=0x005f, f01=0x0190, f02=» I I I I I I , z 2 P* I-FRAME I 0 I N(S) I P/F I N(R) I - 2 P* S-FRAME I 1 I 0 I S I S I P/F I N(R) I - V 2 P* U-FRAME I 1 I 1 I M I M I P/F I M I M I M I - P* - " P* I-FRAME = INFORMATION FRAME - P* - P* I = INFOR
0x133bc0…133d54 (1, 189) Dummy {f00=0x005f, f01=0x0190, f02=»IVE SEQUENCE NUMBER - P* P/F = POLL/FINAL BIT . P* . < P* S = SUPERVISORY BITS: . F P* BIT 3 4 . f & P* 0 0 = RR = RECEIVE READY . | P* 0 1 = REJ = REJECT . , P* 1 0 = RNR = RECEIVE NOT READY . P* . 8 P* M
0x133d54…133ee8 Dummy {f00=0x005f, f01=0x0190, f02=» DCMODE (C) . ^ 6 P* 1 1 0 0 0 = DM = DISCONNECT DCMODE (R) / 2 P* 0 0 0 1 0 = DISC = DISCONNECT (C) / N < P* 0 0 1 1 0 = UA = UNNUMBERED ACKNOWLEDGE (R) / 6 P* 1 0 0 0 1 = FRMR = FRAME REJECT (R) ) / P* / D P
0x133ee8…13407c Dummy {f00=0x005f, f01=0x0190, f02=» / P EJECT 0 J P********************************************************************** 0 P* 0 d P* DTE CONTROL TABLE - DCT 0 n 4 P* SUBSTITUTES DRIVER DWT FOR SINGLE-LINE DRIVER 0 P* 0 J P******************************************************
0x13407c…134210 Dummy {f00=0x005f, f01=0x0190, f02=»0 REQUEST STATE: 0 P* 0 = INACTIVE (CLOSED) 1 P* 1 = ACTIVE (OPEN) 1 < P* 2 = CONNECTED 1 ( PDCHDLS DATA 0 HDLC PROCEDURE STATE: 1 x P* 0 = OFF 1 P* 1 = NDM 1 P* 2 = NRM 1 $ PDCCUS DATA 0 CONTROL UNIT STATE: 1
0x134210…1343a4 Dummy {f00=0x005f, f01=0x0190, f02=»G DTESTB REQUIRED POSITION; MAKE DAMN SURE 1 P* THERE'S NO OVERLAY!!! 2 2 > PDCSTB DATA STWSID-DTE RELATIVE OFFSET TO STATISTICS BUFFER 2 T 2 PDCDWH DATA 0 DUMMY BACKWARD LINK TO HEAD 'DWT' 2 " PDCDWA DATA 0 DWT CHAIN ANCHOR 2 & PDCDTE DATA 0 SYMBOLIC
0x1343a4…134538 Dummy {f00=0x005f, f01=0x018e, f02=»TA RBUFP RCV BFR QUEUE ANCHOR 2 @ PDCIPC DATA 0 QUEUED RECEIVED I-FRAMES WHEN NO SUBADDRESSING 3 & PDCTCA DATA 0 LINE ADDRESS 3 j , PDCSTA DATA 0 ACTIVE SUBTERMINAL ADDRESS 3 PDCLCNT DATA 0 LOOP COUNTER 3 P* 3 P* STATISTICS BUFFER 3 P* 3
0x134538…1346cc Dummy {f00=0x005f, f01=0x018e, f02=» PSTWCTA RES /20 BUFFER 4 P EJECT 4 " P* 4 0 , P* COUNTER INDECES - PARAMETER-1 EQUATES 4 : P* 4 j P* REQUEST LEVEL COUNTERS: 4 t : P* 01 TO /0D ARE NOT USED IN RELEASE 11 4 P* 4 * PCSRCON EQU /01 CONNECTIONS ESTABLISHED 4
0x1346cc…134860 Dummy {f00=0x005f, f01=0x0190, f02=» 4 l ( PCSRMST EQU /06 MESSAGES TRANSMITTED 5 * PCSRCHT EQU /C8 CHARACTERS TRANSMITTED 5 4 PCSRTOP EQU /09 TIMEOUT 5 b PCSRABT EQU /0A ABORTED 5 PCSRERR EQU /0B ERROR 5 & PCSRTRE EQU /0C TRANSMISSION ERROR 5 & PCSRXC1 EQU /0D PROTOCOL DEPENDENT 5
0x134860…1349f4 (1, 190) Dummy {f00=0x005f, f01=0x0190, f02=»CTED BUFFER BUSY 5 n : PCSBRBO EQU /12 " I-FRAMES REJECTED BUFFER OVERFLOW 6 2 PCSBRAB EQU /13 " I-FRAMES REJECTED ABORTED 6 V 4 PCSBRPE EQU /14 " I-FRAMES REJECTED FCS ERROR 6 . PCSBTIF EQU /15 " I-FRAMES TRANSMITTED 6 0 PCSBTRT EQU /16 "
0x1349f4…134b88 Dummy {f00=0x005f, f01=0x0190, f02=»QU /19 " DM RECEIVED 6 & PCSBRFR EQU /1A " FRMR RECEIVED 7 $ PCSBRUA EQU /1B " UA RECEIVED 7 J & PCSBRRJ EQU /1C " REJ RECEIVED 7 r & PCSBRNR EQU /1D " RNR RECEIVED 7 4 PCSBTSM EQU /1E " SNRM/SARM/SABM TRANSMITTED 7 * PCSBTDI EQU
0x134b88…134d1c Dummy {f00=0x005f, f01=0x0190, f02=» /22 " UA TRANSMITTED 7 ( PCSBTRJ EQU /07 " REJ TRANSMITTED 8 " ( PCSBTNR EQU /24 " RNR TRANSMITTED 8 N , PCSBXC1 EQU /25 " PROTOCOL DEPENDENT 8 z ( PCSBXC2 EQU /26 " " " 8 ( PCSBXC3 EQU /27 " " " 8 P 8
0x134d1c…134eb0 Dummy {f00=0x005f, f01=0x0190, f02=» ( PCSCDOT EQU /2A O/P THROUGHPUT ERROR 9 $ PCSCDCE EQU /2B DCE NOT OPERABLE 9 0 * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT 9 X PCSCXC2 EQU /2D " 9 PCSCXC3 EQU /2E " 9 P* 9 P* EXTENDED STATUS BUFFER 9 P* 9 PDCXSTB RES 0 9 : PDC
0x134eb0…135044 Dummy {f00=0x005f, f01=0x0190, f02=»******** 9 R J P********************************************************************** : P* : ^ P* : h , P* REQUEST HANDLER/APPLICATION INTERFACE : r P* : P* : J P********************************************************************** : J P****
0x135044…1351d8 Dummy {f00=0x005f, f01=0x0190, f02=»ACT EQU * : $ P LDKL A5,STBIN INPUT STACK BASE ; & P LDR A2,A7 ORDER CODE AS PARAMETER ; : & P ANK A2,/FF STRIP OFF OPTION BITS ; d : P CF A15,LOOKUP BRANCH ON CODES, TABLE ADDRESS TO STACK ; 0 P DATA TREQX,RQERR LAST ENTRY; ERROR ADDRESS ; " P DATA RE
0x1351d8…13536c Dummy {f00=0x005f, f01=0x0190, f02=»UEST ; t . P DATA CONPAS,RQCON CONNECT PASSIVE REQUEST < ( P DATA DISCO,RQDIS DISCONNECT REQUEST < > * P DATA RSTAT,RQRSTS READ STATUS REQUEST < j , P DATA STIMOT,RQTIME SET REQUEST TIMEOUT < : PTREQX DATA STATIS,RQSTAT READ/RESET STATISTICS REQUEST < P E
0x13536c…135500 Dummy {f00=0x005f, f01=0x0190, f02=»********************** < P = ( PABORT LD A1,DWTRTP,A6 TIMER POINTER = & " P RF(Z) AB:10 NO TIMER RUNNING = R P CM* DWTRTP,A6 KILL TIMER = x P CM DWTRTP,A6 = P = $ PAB:10 LD A2,DWTOR,A6 ORDER CODE = . P CF A15,LOOKUP BRANCH ON ACTIVE ORDER CO
0x135500…135694 (1, 191) Dummy {f00=0x0060, f01=0x0190, f02=»DWT FROM WRITE QUEUE = z $ P LD A2,WRDWT WRITING DWT ADDRESS > P CWR A2,A6 > D P RF(NE) AB:RTN NOT THIS DWT > V P CM WRDWT RESET WRITING DWT > z P > P EJECT > PAB:RTN EQU * > $ P LDKL A1,RCABRT LOAD RETURN CODE > P CF A15,TENDIO > P A
0x135694…135828 Dummy {f00=0x0060, f01=0x018e, f02=»S (ECBCW2, LEFT BYTE, ASCII) > z P* ? $ P* FUNCTIONS: ? . 8 P* 1. CHECK IF ALREADY OPEN & IF SO SAME DTE-ADDRESS ? B & P* 2. CONVERT & VERIFY DTE ADDRESS ? ~ P* 3. CONNECT MODEM ? & P* 4. CHANGE PROTOCOL TO NDM STATE ? P* ? P* COMPLETION PAR
0x135828…1359bc Dummy {f00=0x0060, f01=0x0190, f02=» ? n P RF(Z) RQOP20 DTE INACTIVE @ PRQOP10 EQU * @ * . P LD A2,ECBCW2,A8 GET SYMBOLIC DTE-ADDRESS @ > . P CW A2,DCDTE SAME AS THE ONE WHO OPENED ? @ p P ABL(E) RQRTN5 YES OK @ & P LDKL A1,RCSEQ RC: SEQUENCE ERROR @ P ABL RQRTN5 COMPLETE @ P*
0x1359bc…135b50 Dummy {f00=0x0060, f01=0x018e, f02=» GET LINK ADDRESS @ & P LDR A1,A1 SET CONDITION REGISTER A P RF(NN) RQOP21 OK A D $ P LDKL A1,RCREQ RC:REQUEST ERROR A ^ P ABL RQRTN5 EXIT A PRQOP21 EQU * A " P LD A1,ECBCW2,A8 GET SYMB ADDR A P ST A1,DCDTE SAVE IT A " P ST A6,WRDWT SAVE OP
0x135b50…135ce4 Dummy {f00=0x0060, f01=0x0190, f02=» A x P EJECT B P* B PRQOP80 EQU * B P LDK A1,1 B 4 $ P ORS A1,DCREQS SET ACTIVE STATE B F 0 P LDKL A2,TONDMX INITIATE NDM W/O SENDING UA B n P ST A2,DCMODE * B P LDK A1,0 B $ P CF A15,CKMES PENDING MESSAGES ? B $ P CF A15,TENDIO COMPL
0x135ce4…135e78 Dummy {f00=0x0060, f01=0x0190, f02=»HYSICAL CONNECTION ERROR B | P ABL RQRTN5 C P EJECT C 4 P* C B P* CLOSE REQUEST C L P* C d P* ACTIVATION PARAMETERS: C n 4 P* OPTION (LEFT BYTE OF A7) /80 = UNCONDITIONAL C 8 P* /00 = CONDITIONAL CLOSE C P* FUNC
0x135e78…13600c Dummy {f00=0x0060, f01=0x0190, f02=»EM C | & P* 3. CHANGE PROTOCOL TO OFF STATE D P* D 4 P* COMPLETION PARAMETERS: D > P* RETURN CODE (A1) D ^ P* D z PRQCLOS EQU * D P LDK A1,0 PRESET RC D P LD A2,ECBCW2,A8 GET DTE D . P CW A2,DCDTE SAME AS THE ONE WHO OPENED ? D P R
0x13600c…1361a0 Dummy {f00=0x0060, f01=0x0190, f02=» CHECK OPTION D , P RF(N) RQCL30 SKIP OVER IF UNCONDITIONAL E < P LD A2,DCDWA CONDITIONAL - GET ANCHOR OF CONNECTED DWT'S E F 4 P RF(NZ) RQCL20 IMPOSSIBLE,DWT'S STILL ACTIVE =2 E P IFT MESPAS=1 E , P LD A2,DTEDDT DISCARD DWT CONNECTED ? =2 E P XIF
0x1361a0…136334 (1, 192) Dummy {f00=0x0060, f01=0x018e, f02=» E | P* F PRQCL30 EQU * F P ST A6,DCDTE SAVE THAT DWT F & PDEB EQU * F H " P LD A6,DCDWA GET QUEUE ANCHOR F Z " P RF(NZ) DEB1 .SOME IN QUEUE =2 F P IFT MESPAS=1 F " P LD A6,DTEDDT DISCARD DWT / =2 F P RF(Z) RQCL50 NO =2 F P CM DTEDDT
0x136334…1364c8 Dummy {f00=0x0060, f01=0x0190, f02=» & P RF(Z) OKSLUT NO BUFFERS IN QUEUE G " P CF A15,RELBFX RELEASE BUFFERS G . & P CM DWTIPC,A6 CLEAR BUFFER'S QUEUE G T & POKSLUT LDK A1,0 PRESET RETURN CODE G ~ " P LD A2,DWTST,A6 GET DWT STATUS G P RF(N) OKSL1 NO ORDERS G P LD A2,DWTOR,A6 GET ORDER G
0x1364c8…13665c Dummy {f00=0x0060, f01=0x0190, f02=»F A15,CTIME RESET TIMER G * P CF A15,REMOVW REMOVE FROM WRITE QUEUE H 2 POKSL1 CF A15,DCREMV RELEASE FROM CONNECT QUEUE H N P RB DEB OTHERS DWT H PRELBFX EQU * H " P LD A2,DCIPA GET QUEUE ANCHOR H & P RF(NZ) RELBXX NOT FIRST IN QUEUE H ( P ST A1
0x13665c…1367f0 Dummy {f00=0x0060, f01=0x0190, f02=» LDR* A2,A2 NOT LAST,GO ON H P RB RELBXX I " $ PRELBYY STR A1,A2 ATTACH IN CHAIN I 4 PRELBZZ RTN A15 RETURN I P EJECT I z PRQCL50 EQU * I P LD A6,DCDTE I PRQCL51 EQU * I P CM DCDTE CLEAR ACTIVE DTE I & P LD A1,DCIPC GET DTE QUEUE ANCHOR
0x1367f0…136984 Dummy {f00=0x0060, f01=0x0190, f02=»RDWT SAVE CLOSE DWT =2 I " P CF A5,CUCLOS DISCONNECT MODEM J P CM WRDWT RESTORE =2 J D 2 P LDKL A2,OFF * CHANGE PROCEDURE STATE TO OFF J ` P ST A2,DCMODE * J P* J . P CM DCREQS REQUEST STATE = INACTIVE/CLOSED J P CM DCHDLS HDLC STATE = OFF J
0x136984…136b18 Dummy {f00=0x0060, f01=0x0190, f02=»ER J t PRQCL53 EQU * K P LDK A1,0 PRESET RETURN CODE K P ABL RQRTN5 COMPLETE K B P EJECT K ^ P* K l P* CONNECT PASSIVE REQUEST K v P* K P* ACTIVATION PARAMETERS: K : P* - SYMBOLIC SUBADDRESS (LEFTMOST BYTE IN ECBBA-BFR) K " P* - LEN
0x136b18…136cac Dummy {f00=0x0060, f01=0x018e, f02=» 0 P* 2. VERIFY DTE-ADDRESS AS PER OPEN REQUEST L . P* 3. VERIFY & CONVERT SUBTERMINAL ADDRESS L 8 $ P* 4. LINK CALLING DWT TO QUEUE L j 2 P* 5. CHANGE HDLC STATE TO NDM & WAIT FOR NRM L P* L P* COMPLETION PARAMETERS: L P* RETURN CODE (A1) L
0x136cac…136e40 Dummy {f00=0x0060, f01=0x0190, f02=» P RF(E) RQCN20 YES M P* M PRQCN15 EQU * M ( $ P LDKL A1,RCREQ RC: REQUEST ERROR M < P ABL RQRTN5 COMPLETE M d P EJECT M PRQCN20 EQU * M ( P LD A2,DCCUS GET CONTROL UNIT STATE M P RF(NZ) RQCN30 OK M 2 P LDKL A1,RCPHYC RC: PHYSICAL CON
0x136e40…136fd4 (1, 193) Dummy {f00=0x0060, f01=0x0190, f02=»F RQCN31 SKIP ADDRESSING M P XIF N P IFT MESPAS=1 N , P LD A2,DWTOR,A6 . =2 N B $ P ANKL A2,/FF00 ISOLATE OPTION =2 N ^ " P CWK A2,/4000 DISCARD DWT ? =2 N P RF(NZ) RQCNXX NO =2 N P ST A6,DTEDDT YES,SAVE IT =2 N P RF RQCNYY . =2 N PRQCN
0x136fd4…137168 Dummy {f00=0x0060, f01=0x018e, f02=» & P LDK A3,2 NUMBER OF CHARS. TO MOVE O . P LD A5,DWTTAB,A6 TTAB ADDRESS OF USER TASK O . 2 P CF A15,MOVUS GET FIRST 2 BYTES OF USER BUFFER O ` P SUR A1,A1 RE-CLEAR O > P LD A2,DCSTA GET SUBTERMINAL ADDRESS FROM SYSTEM 'BUFFER' O P XIF O P IFT MMU
0x137168…1372fc Dummy {f00=0x0060, f01=0x0190, f02=» O r P XIF P & P LD A1,DCDTE RESTORE SYMBOLIC DTE P ( P CF A15,GETSNA GET PHYS SUB ADDRESS P > P LDR A1,A1 SET RETURN CODE P j . P RB(N) RQCN15 INVALID SUBTERMINAL ADDRESS P PRQCN31 EQU * P & P ST A2,DWTSUB,A6 SAVE SYMB ADDRESS P ( P CF A15,DCLI
0x1372fc…137490 Dummy {f00=0x0060, f01=0x0190, f02=». =1 P * P ORS A1,DWTST,A6 SET CONNECTED DWT =1 Q P LDK A1,0 PRESET RETURN CODE Q : P ABL RQRTN5 Q ^ P EJECT Q r P* Q P* DISCONNECT REQUEST Q P* Q P* ACTIVATION PARAMETERS: Q P* DWT-ADDRESS (A6) Q P* Q P* FUNCTIONS: Q &
0x137490…137624 Dummy {f00=0x0060, f01=0x0190, f02=»N CHAIN Q h 6 P* 4. SET REQUEST STATE TO ACTIVE (NOT CONNECTED) R $ P* IF NO DWTS LEFT IN CHAIN. R J * P* 5. CHECK PHYSICAL CONNECTION STATE R r P* R P* COMPLETION PARAMETERS: R P* RETURN CODE (A1) R P* R PRQDIS EQU * R $ P LD
0x137624…1377b8 Dummy {f00=0x0060, f01=0x0190, f02=»,RCSEQ RC: SEQUENCE ERROR R P ABL RQRTN5 COMPLETE S " PRQDS20 EQU * S > & P LD A2,DWTST,A6 GET DWT STATUS =1 S R P ANK A2,DWT:C CONNECTED ? =1 S | P RB(Z) RQDS10 NO =1 S P LDK A2,DWT:C . =1 S & P XRS A2,DWTST,A6 RESET CONNECT =1 S P IFT MES
0x1377b8…13794c Dummy {f00=0x0060, f01=0x0190, f02=» S | " P CM DTEDDT YES,DISCARD ROOT =2 T $ P LD A2,DCDWA MORE IN QUEUE ? =2 T . P RF(NZ) RQDS30 YES =2 T V " P RF RQDS22 NO,INIT DM MODE =2 T t PRQDS21 EQU * . =2 T P XIF T 8 P CF A15,DCREMV REMOVE ACTIVE DWT FROM CONFIG. CHAIN T , P RB(N) RQDS1
0x13794c…137ae0 Dummy {f00=0x0060, f01=0x0190, f02=»F(NZ) RQDS30 YES CHAIN NOT EMPTY =2 T P XIF U , PRQDS22 EQU * U 8 4 P LDK A2,1 * CHANGE REQUEST STATE TO ACTIVE/OPEN, U L ( P ST A2,DCREQS * I.E. NONE CONNECTED. U P LDKL A1,TONDMX U P ST A1,DCMODE INIT DM U $ P CM FRMRMD RESET FRMR INDICATOR U
0x137ae0…137c74 (1, 194) Dummy {f00=0x0060, f01=0x0190, f02=»QUEUE U p & P LD A1,DWTIPC,A6 GET BUFFER QUEUE V P CF A15,RELBFX RELEASE IT V 8 $ P CM DWTIPC,A6 CLEAR QUEUE ANCHOR V Z $ P CM DWTSUB,A6 SAVE SYMB ADDRESS V P LDK A1,0 PRESET RETURN CODE V . P CF A15,TENDIO COMPLETE DISCONNECT REQUEST V * P LD A1,A
0x137c74…137e08 Dummy {f00=0x0060, f01=0x018e, f02=»BL(NA) RQDS40 HW PROBLEMS V P CF A5,READ GET INTERRUPT W " ( P ABI DCMODE NO,ENTER DISCONNECT MODE W D PRQDS40 EQU * W p P CM DCCUS HW OUT OF SERVICE W P ABL TDISP W P EJECT W P* W P* READ STATUS REQUEST W P* W P* W P* AC
0x137e08…137f9c Dummy {f00=0x0060, f01=0x0190, f02=» P* FUNCTIONS: X < P* 1. TRANSFER LOGICAL CONNECTION STATUS TO APPLICATION X 2 P* 2. TRANSFER EXTENDED STATUS IF IMPLEMENTED X X P* X P* COMPLETION PARAMETERS: X * P* LOGICAL CONNECTION STATUS (ECBCW1) X 2 P* LENGTH OF EXTENDED STATUS RETUR
0x137f9c…138130 Dummy {f00=0x0060, f01=0x0190, f02=» ST . CU . X t . P* . STATE . STATE . . STATE . Y . P* . 00XX . 00XX . 000X . 000X . Y H . P* ................................... Y z P* Y PRQRSTS EQU * Y P LD A2,DCHDLS HDLC STATE Y P ANK A2,2 PICK OUT NRM Y ( P
0x138130…1382c4 Dummy {f00=0x0060, f01=0x0190, f02=»WHEN DTE OPEN Y t " P ORR A2,A3 MERGE W/ HDLC STATE Z ( P LD A3,DCCUS GET CONTROL UNIT STATE Z < * P ANK A3,1 VALID BIT 15,X=1 WHEN HW OK Z h P ORR A2,A3 MERGE W/ THE REST Z " P LD A1,DWTST,A6 GET STATUS =2 Z $ P ANK A1,DWT:C DWT CONNECTED ? =2 Z P
0x1382c4…138458 Dummy {f00=0x0060, f01=0x018e, f02=» Z P ST A2,ECBCW1,A8 TO ECB [ 6 P LD A2,ECBBA,A8 GET EXTENDED STATUS BUFFER ADDRESS [ ( ( P RF(Z) RQRS80 NO BUFFER = NO STATUS [ b ( P LDKL A1,DCXSTB DRIVER STATUS BUFFER [ " P LDKL A3,DCXSTL BUFFER LENGTH [ P LD A4,DWTTAB,A6 TTAB [ $ P CF A15,MO
0x138458…1385ec Dummy {f00=0x0060, f01=0x0190, f02=» $ P* READ/RESET STATISTICS REQUEST P* , P* ACTIVATION PARAMETERS: 6 P* TYPE = BITS 0-7 OF ECBCW1 V P* ECB-ADDRESS (A8) z ( P* DWT-ADDRESS OF LOW-LEVEL DWT (A6) P* P* FUNCTIONS: & P* 1. READ STATISTICS TO USER AREA &
0x1385ec…138780 Dummy {f00=0x0060, f01=0x0190, f02=»ETURN CODE (A1) P* ] PRQSTAT EQU * ] " P IFT STAT=0 ] 6 P LDK A1,0 RESET R.C ] J < P ORKL A1,RCREQ RC: REQUEST ERROR, NO STATISTICS INCLUDED ] f P ABL RQRTN5 COMPLETE ] P XIF ] P IFF STAT=0 ] P LD A1,ECBCW1,A8 GET TYPE ] & P SRL
0x138780…138914 (1, 195) Dummy {f00=0x0061, f01=0x0190, f02=» P LDR A1,A1 OK? ^ P RF(Z) RQST30 YES ^ P* ^ 4 PRQST20 EQU * ^ > $ P LDKL A1,RCREQ RC: REQUEST ERROR ^ R P ABL RQRTN5 COMPLETE ^ z P* ^ PRQST30 EQU * ^ 0 P CF A15,DCSRLL RESET ALL STATISTICS BUFFERS ^ P LDR A1,A1 LUCKY AGAIN? ^ P
0x138914…138aa8 Dummy {f00=0x0061, f01=0x0190, f02=»VATION PARAMETERS: ^ , P* ECBCW1 >= 0 : ACTIVATE TIMING CONTROL _ : P* TIMEOUT VALUE IN MULTIPLES OF 100 MS; _ J , P* 0 = IMMEDIATE TIMEOUT. _ 0 P* < 0: DE-ACTIVATE TIMING CONTROL _ P* _ P* FUNCTIONS: _ ,
0x138aa8…138c3c Dummy {f00=0x0061, f01=0x0190, f02=» RETURN CODE (A1) _ P* ` PRQTIME EQU * ` $ 0 P LD A2,ECBCW1,A8 GET TIMEOUT VALUE FROM ECB ` 8 " P ST A2,DWTRTV,A6 STORE IN DWT ` l P LDK A1,0 PRESET RETURN CODE ` 2 P ABL RQRTN5 COMPLETE - NEED A REST AFTER THIS ` P EJECT ` P* ` P* WR
0x138c3c…138dd0 Dummy {f00=0x0061, f01=0x0190, f02=»RMINAL ADDRESS (DWT) ` P* a P* FUNCTIONS: a & < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. a : 0 P* 2. VERIFY BUFFER SIZE IF MMU AND/OR IOP. a z 2 P* 3. QUEUE REQUESTING DWT FOR HDLC PROCEDURE. a * P* 4. COMPLETE WHEN ACK'D OR TIMEOUT
0x138dd0…138f64 Dummy {f00=0x0061, f01=0x0190, f02=»D A2,ECBRL,A8 REQUESTED LENGTH a . P CWK A2,BUFLEN WILL IT FIT IN MMU-BUFFER? b & P RF(NG) RQWR10 YES - OK b X & P LDKL A1,RCLGTH RC: ILLEGAL LENGTH b x P ABL RQRTN COMPLETE b P* b PRQWR10 EQU * b P XIF b $ P LD A1,DCCUS CONTROL UNIT STATE
0x138f64…1390f8 Dummy {f00=0x0061, f01=0x018e, f02=» 0 P LD A2,DCREQS IN REQUEST STATE = CONNECTED? c P CWK A2,3 * c 8 P RF(E) RQWR30 YES - OK c L PRQWR21 EQU * c j 0 P LDKL A1,RCLOGC RC: LOGICAL CONNECTION ERROR c ~ P ABL RQRTN COMPLETE c P* c PRQWR30 EQU * c & P LD A2,DWTST,A6 GET DWT STAT
0x1390f8…13928c Dummy {f00=0x0061, f01=0x0190, f02=» * P RB(E) RQWR21 YES NO WRITE ALLOWED =2 d P XIF d 2 P IFT SUB=1 d > & P LD A2,DWTSUB,A6 GET SYMB ADDRESS d P P ABL(Z) RQDS10 NOT PRESENT d z P XIF d P CF A15,TIMEWR SET TIMER d P CF A15,INSWQ QUEUE REQUEST d P ABL TDISP WAIT d P EJE
0x13928c…139420 Dummy {f00=0x0061, f01=0x0190, f02=»R LENGTH IN CHARS. (ECBRL) d ~ P* SUBTERMINAL ADDRESS (DWT) e " P* e F P* FUNCTIONS: e P < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. e d F P* 2. TRANSFER TO THE APPLICATION ANY MESSAGE QUEUED FOR THE DWT, e $ P* INCLUDING THE MASTER
0x139420…1395b4 (1, 196) Dummy {f00=0x0061, f01=0x0190, f02=»LETION PARAMETERS: e 0 P* ACTUAL LENGTH OF RECEIVED MESSAGE (ECBEL) f P* RETURN CODE (A1) f N P* f j PRQRD EQU * f t $ P LD A1,DCCUS CONTROL UNIT STATE f P RF(NZ) RQRD10 CONNECTED f 2 P LDKL A1,RCPHYC RC: PHYSICAL CONNECTION ERROR f P ABL
0x1395b4…139748 Dummy {f00=0x0061, f01=0x018e, f02=» f " P LD A1,DCIPC GET BUFFER QUEUE g P XIF g . P RF(NZ) RQRD20 NOT EMPTY g : P LD A1,DCREQS CONNECTED ? g Z P CWK A1,3 g | P ABL(NE) RQWR21 NO g & P LD A1,DWTST,A6 GET DWT STATUS =1 g P ANK A1,DWT:C CONNECTED ? =1 g P RB(Z) RQWR21 NO g
0x139748…1398dc Dummy {f00=0x0061, f01=0x0190, f02=» & P LD A2,DWTSUB,A6 GET SYMB ADDRESS h P ABL(Z) RQDS10 NOT PRESENT h . P XIF h P PRQRD11 EQU * h P CF A15,TIMERE START TIMER h p P ABL TDISP WAIT h P* h P* BUFFER WAITING IN QUEUE h P* h PRQRD20 EQU * h P LDR* A2,A1 GET NEXT
0x1398dc…139a70 Dummy {f00=0x0061, f01=0x018e, f02=»IN QUEUE h t P XIF i " P LDR A4,A1 SAVE BUFFER ADDRESS i P LD A2,RCVEL,A1 GET LENGTH i B P IFT SUB=1 i d $ P SUK A2,1 UPDATE LENGTH FOR STA i v P XIF i P ST A2,ECBEL,A8 STORE IN ECB i P IFT SUB=0 i " P ADK A1,RCVHDR ADJUST ADDRESS i P X
0x139a70…139c04 Dummy {f00=0x0061, f01=0x0190, f02=» & P RF(NZ) RQRD30 STILL BUFFERS FREE j " P ST A4,DCIPA THIS IS THE FIRST j . P RF RQRD40 HOP OVER j T P EJECT j p PRQRD30 EQU * j ~ P LDR* A3,A2 GET NEXT BUFFER j P RF(Z) RQRD35 END OF CHAIN j P LDR* A2,A2 GET NEXT j P RB RQRD30 TEST IF E
0x139c04…139d98 Dummy {f00=0x0061, f01=0x0190, f02=»CBBA,A8 USER BUFFER ADDRESS j P LD A3,ECBEL,A8 LENGTH k $ " P LD A4,DWTTAB,A6 TTAB ADDRESS k B & P CF A15,MOVSU MOVE BUFFER TO USER k h $ P LD A1,DWTRTP,A6 TIMER RUNNING? k P RF(Z) RQRD41 EQU * NO k $ P CM* DWTRTP,A6 * STOP THE TIMER k P CM DWTR
0x139d98…139f2c Dummy {f00=0x0061, f01=0x0190, f02=»FT SUB=1 k : P LD A2,DWTIPC,A6 CHECK RECEIVE BFR CHAIN FOR THIS DWT l P XIF l N P IFT SUB=0 l Z * P LD A2,DCIPC GET RECEIVE BUFFER CHAIN l l P XIF l $ P RF(Z) CKMES1 NO BUFFERS WAITING l & P ORKL A1,RCDATA RC: DATA AVAILABLE l PCKMES1 EQU * l
0x139f2c…13a0c0 Dummy {f00=0x0061, f01=0x0190, f02=»OMPLETE REQUEST l P ABL TDISP GOTO DISPATCHER m P* m : " PRQERR EQU * REQUEST ERROR m D $ P LDKL A1,RCREQ RC: REQUEST ERROR m j P RB RQRTN COMPLETE m P EJECT m P* m " P* REQUEST TIMER HANDLING PART m P* m P* READ REQUEST TIMER
0x13a0c0…13a254 (1, 197) Dummy {f00=0x0061, f01=0x0190, f02=» TOUTXX TIMER = 0 => IMMEDIATE TIMEOUT m P ST A2,TIMERR n . P CF A15,SETIME n D P DATA TOUTRE n Z PTIMERR DATA 0 n n ( P ST A4,DWTRTP,A6 STORE TIMER POINTER n P RF TIME10 n P* n P* TIMEOUT READ TIMER n P* n PTOUTRE EQU * n P L
0x13a254…13a3e8 Dummy {f00=0x0061, f01=0x0190, f02=») HWOK YES n P ORK A1,1 INDICATE HW FAIL o PHWOK EQU * o 4 P LD A2,DCHDLS LINK OK ? o F P ANK A2,2 o f P RF(NZ) SWOK YES o x 0 P ORK A1,2 INDICATE SW FAIL UNDER LINK LEVEL o PSWOK EQU * o < P ABL RQRTN INVESTIGATE FURTHER INFORMATION BEFORE
0x13a3e8…13a57c Dummy {f00=0x0061, f01=0x0190, f02=» o z P* p PTIMEWR LDR A1,A6 p & P LD A2,DWTRTV,A6 GET TIMEOUT VALUE p * P RF(N) TIME10 NO TIMING p T : P RB(Z) TOUTXX TIMER VALUE VALUE=0=>IMMEDIATE TIME OUT p t P ST A2,TIMWR p P CF A15,SETIME p P DATA TOUTWR p PTIMWR DATA 0 p P ST
0x13a57c…13a710 Dummy {f00=0x0061, f01=0x0190, f02=»TN A15 p P XIF q P EJECT q P* q ( P* TIMEOUT WRITE TIMER q 2 P* q P PTOUTWR EQU * q Z P LDR A6,A1 FETCH DWT q n P CM DWTRTP,A6 q P LD A2,DWTECB,A6 q P LD A4,ECBBA,A2 FETCH BUFFER q * P CF A15,REMOVW REMOVE FROM WRITE QUEUE q
0x13a710…13a8a4 Dummy {f00=0x0061, f01=0x0190, f02=»ME IS RETURNED IN A2 q P* r P* r & PCTIME EQU * r 0 & P LD A2,DWTRTP,A6 GET TIMER POINTER r D P RF(Z) CTIM10 NOT RUNNING r n P LDR* A2,A2 r " P NGR A2,A2 GET REMAINING TIME r P CM* DWTRTP,A6 STOP TIMER r P CM DWTRTP,A6 r PCTIM10
0x13a8a4…13aa38 Dummy {f00=0x0061, f01=0x0190, f02=» IFT CPU852=0 r P RTN A15 s P XIF s & P* s 2 P EJECT s < P* s J P* s T ( P* INSERT DWT IN WRITE REQUEST QUEUE s ^ P* s P* A2,A3,A4 DESTROYED s P* A6=DWT s P* s ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR s P LDK A4,DWTOPN s
0x13aa38…13abcc Dummy {f00=0x0061, f01=0x0190, f02=»4,A2 INSERT IN QUEUE s " P CMR A4 INDICATE END OF QUEUE t P RB RETURN RETURN t B P* t P* t f * P* REMOVE DWT FROM WRITE REQUEST QUEUE t p P* t P* A2,A3,A4 DESTROYED t P* A6=DWT t P* t * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR t
0x13abcc…13ad60 Dummy {f00=0x0061, f01=0x018e, f02=» CWR A3,A4 t P RF(E) REM15 u P LDR A2,A3 GET NEXT u & P RB REM10 u B PREM15 LDR* A3,A4 REMOVE u T P STR A3,A2 u t P RB RETURN RETURN u P EJECT u P* u P* u 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED u P* u P
0x13ad60…13aef4 (1, 198) Dummy {f00=0x0061, f01=0x0190, f02=» P RF(N) CWR200 NO REQUEST v P LD A2,DWTOR,A6 GET ORDER v $ P CWK A2,WRITEO WRITE ORDER? v F P RF(NE) CWR200 NO v j & P CF A15,CTIME STOP REQUEST TIMING v 0 P CM ECBCW,A8 CLEAR ????????????????????????? v $ P CF A15,TENDIO COMPLETE REQUEST v
0x13aef4…13b088 Dummy {f00=0x0061, f01=0x0190, f02=»******************************** v j J P********************************************************************** w ( P* w v P* w P* HDLC PROTOCOL PROCESSOR w P* w P* w J P********************************************************************** w
0x13b088…13b21c Dummy {f00=0x0061, f01=0x0190, f02=»* w P* ACCEPT NO LINE ACTIVITY x : P* WAIT FOR OPEN REQUEST TO INITIATE DISCONNECTED MODE x , P* ('TODISC' --> DCMODE) x j P* x J P********************************************************************** x P* x POFF EQU * x P ABL T
0x13b21c…13b3b0 Dummy {f00=0x0061, f01=0x0190, f02=»ODES x P* y J P********************************************************************** y P* y d P* y n , P* CHANGE TO NORMAL RESPONSE DCMODE (NRM) y x P* y PTONRM EQU * y P IFT STAT=1 y P LDR A2,A6 SAVE THAT DWT y P LDKL A6,DTE G
0x13b3b0…13b544 Dummy {f00=0x0061, f01=0x0190, f02=» * y 0 P ST A1,DCMODE * BRANCH ADDRESS FOR NRM STATE z P LDK A1,2 * STATE = NRM z > P ST A1,DCHDLS * z ^ , P CF A15,RESCON RESET PROCEDURE COUNTERS z v ( P CF A15,RSRSPQ RESET RESPONSE QUEUE z " P LDK A1,UA * SEND UA RESPONSE z P CF A15,QMTRM *
0x13b544…13b6d8 Dummy {f00=0x0061, f01=0x0190, f02=» LDK A1,UA * SEND UA RESPONSE z P CF A15,QMTRM * { & P* { > ( PTONDMX EQU * ENTRY W/O SENDING UA { H * P CF A15,RESCON REST PROCEDURE CUNTERS { t ( P CF A15,RSRSPQ RESET RESPONSE QUEUE { P LDKL A1,NDM * { ( P ST A1,DCMODE SET DM BRANCH ADDRESS
0x13b6d8…13b86c Dummy {f00=0x0061, f01=0x0190, f02=»******************************************** { v P* | 4 $ P* NORMAL DISCONNECTED MODE (NDM) | > P* | f 6 P* ENTERED FROM OFF MODE WITH OPEN REQUEST OR FROM | p P* NRM WITH DISC COMMAND | P* | P* COMMANDS ACCEPTED: SNRM | P* | J P****
0x13b86c…13ba00 Dummy {f00=0x0061, f01=0x018e, f02=»INPUT | n P CF A5,RDFRAM GET A FRAME } P ABL(N) TDISP INVALID DTE } 0 P ABI(NZ) DCMODE NO GOOD } R P LDK A2,1 RESTORE DISC MODE } r P ST A2,DCHDLS } ( P LDR A2,A1 COMMAND FIELD = PARAMETER } " P CF A15,LOOKUP BRANCH ON TABLE } 2 P DATA DMEN
0x13ba00…13bb94 (1, 199) Dummy {f00=0x0062, f01=0x0190, f02=» } v ( P CF A15,QMTRM QUEUE FOR TRANSMISSION ~ " P ABI DCMODE UNACCEPTED COMMAND ~ 4 P* ~ Z " P* SNRM-COMMAND TO BE ACCEPTED? ~ d P* ~ PCMDNRM EQU * ~ , P LD A2,DCREQS GET CURRENT REQUEST STATE ~ P CWK A2,3 CONNECTED ALREADY? ~ " P ABL(E) TONR
0x13bb94…13bd28 Dummy {f00=0x0062, f01=0x0190, f02=»************ ~ V P* P* NORMAL RESPONSE MODE - NRM P* B J P********************************************************************** L P* PNRM EQU * , P LDKL A5,STBIN RESET STACK BASE - INPUT P CF A5,RDFRAM READ A FRAME P
0x13bd28…13bebc Dummy {f00=0x0062, f01=0x0190, f02=»FRMR MODE ? P RF(Z) NRM01 NO NRM MODE $ P LDR A2,A1 YES,ONLY ACCEPT SNRM 4 P CWK A2,SNRM ( P ABL(NE) NRM160 NO SNRM,RESEND FRMR p , P CM FRMRMD SNRM DETECTED,CLEAR FRMR MODE , PNRM01 EQU * NRM,ACCEPT CONVENIENT FRAME P LDR A2,A1 G
0x13bebc…13c050 Dummy {f00=0x0062, f01=0x0190, f02=» n ( P CF A15,LOOKUP BRANCH ON FRAME TYPE P DATA NRMEND,IFRM I-FRAME 4 P DATA 1,SFRM S-FRAME V PNRMEND DATA 3,UFRM U-FRAME r P EJECT P* P* U-FRAME RECEIVED P* $ P* COMMANDS ACCEPTED: DISC, SNRM P* P*
0x13c050…13c1e4 Dummy {f00=0x0062, f01=0x0190, f02=»,TONDM DISC PUFRMTE DATA SNRM,TONRM SNRM P EJECT 8 P* F P* P P* S-FRAME RECEIVED, DECODE Z P* | @ P* ACCEPTED COMMANDS: RR, RNR, REJ(IF UN2 OPTION INCLUDED) P* PSFRM EQU * $ P LD A1,SAVPAM RESTORE PARAMETER
0x13c1e4…13c378 Dummy {f00=0x0062, f01=0x0190, f02=»NVALID (SREJ) | P DATA RNRMSK,SFRNR RNR P DATA RRMSK,SFRR RR 4 PSFREND DATA REJMSK,SFREJ REJ P P* t P* RNR RECEIVED ~ P* P* PSFRNR EQU * P IFT STAT=1 P LDR A2,A6 SAVE THAT DWT P LDKL A6,DTE GET DTE
0x13c378…13c50c Dummy {f00=0x0062, f01=0x0190, f02=»OUNTERS AND CHECK OUTPUT QUEUE z P CF A5,TSTNR CMDR ? & P LC A1,FIELD1+1 GET C-FIELD B P ANK A1,/10 CHECK POLL-BIT f P ABI(Z) DCMODE P-BIT OFF P LDK A1,RR LOAD 'RR' P LD A2,DCIPA & P RF(NZ) NRMTRA OK READY TO RECEIVE P LDK A
0x13c50c…13c6a0 Dummy {f00=0x0062, f01=0x0190, f02=» 8 P CF A5,UPDCON UPDATE COUNTERS AND CHECK OUTPUT QUEUE P CF A5,TSTNR FRMR ? @ PNRM145 EQU * P LC A1,FIELD1+1 GET C-FIELD p P ANK A1,/10 CHECK POLL-BIT P ABI(Z) DCMODE P-BIT OFF ( P LDK A1,0 INDICATE POLL-BIT RECEIVED P RF NR
0x13c6a0…13c834 (1, 200) Dummy {f00=0x0062, f01=0x0190, f02=»ERS z 0 P LDK A3,/80 FAIL CODE (FRMR DCMODE SETTING) P CF A5,PRFRMR INIT FRMR @ P IFT STAT=1 ` P LDR A2,A6 SAVE THAT DWT t P LDKL A6,DTE GET DTE " P LDKL A1,CSBTFR LOAD STATISTIC P CF A15,DCSUPR UPDATE P LDR A6,A2 RESTORE D
0x13c834…13c9c8 Dummy {f00=0x0062, f01=0x0190, f02=» P P* P* QUEUE FOR TRANSMISSION P* : PNRMTRA EQU * D ( P CF A15,QMTRM QUEUE FOR TRANSMISSION X P ABI DCMODE P EJECT P* P* P* I-FRAME RECEIVED P* P* PIFRM EQU * ( P LD A4,BUFADD
0x13c9c8…13cb5c Dummy {f00=0x0062, f01=0x0190, f02=»K UNEXPECTED N(S) ~ P ANK A1,1 N(S) OK? P RF(NZ) NRM400 NO 4 & P CF A5,TSTNR CHECK UNEXPECTED N(R) N P IFT STAT=1 x P LDR A2,A6 SAVE THAT DWT P LDKL A6,DTE GET DTE " P LDKL A1,CSBRIF LOAD STATISTIC P CF A15,DCSUPR UPDATE
0x13cb5c…13ccf0 Dummy {f00=0x0062, f01=0x0190, f02=» LDK A1,0 INDICATE POLL-BIT W/ I-FRAME ( P CF A15,QMTRM QUEUE FOR TRANSMISSION . P EJECT Z P* h P* I - FRAME O.K. r 8 P* LINK TO PROPER DWT IF PRESENT, ELSE DROP BUFFER P* A4 = A(BUFFER) P* PNRM180 EQU * P IFT SUB
0x13ccf0…13ce84 Dummy {f00=0x0062, f01=0x0190, f02=» GET STA $ P ANK A2,/FF SIGNIFICANT PORTION $ P LD A1,DCDTE GET SYMB DTE ADRESS 8 ( P CF A15,GETSSA GET SYMB STA ADDRESS ` P LDR A1,A1 SET RETURN CODE $ P ABI(N) DCMODE INCORRECT ADDRESS P* PNRM185 EQU * , P CW A1,DWTSUB,A3 STA
0x13ce84…13d018 Dummy {f00=0x0062, f01=0x0190, f02=»FT z P XIF PTSMSP EQU * . =2 P IFT MESPAS=1 . " P LD A3,DTEDDT DISCARD DWT ? =2 D P ABI(Z) DCMODE NO =2 j & P ABL NRM190 OK,DISCARD PRESENT =2 P XIF P ABI DCMODE PNRM186 EQU * P LD A3,DCDWA DWT QUEUE P RF(Z)
0x13d018…13d1ac Dummy {f00=0x0062, f01=0x018e, f02=»STATUS | P RF(N) NRM191 NO ORDERS P LD A1,DWTOR,A6 GET ORDER . P SUK A1,2 READ ? P P RF(NZ) NRM191 NO h P LD A8,DWTECB,A6 GET ECB P LD A3,+2,A4 LENGTH P SUK A3,1 ADJUST P ST A3,ECBEL,A8 SAVE IT P LDR A1,A4 $ P
0x13d1ac…13d340 Dummy {f00=0x0062, f01=0x0190, f02=» P LD A4,DWTTAB,A6 " P CF A15,MOVSU MOVE USER BUFFER " P CF A15,CTIME RESET READ TIMER B P LDK A1,0 h P CF A15,TENDIO COMPLETE z P ABI DCMODE JUMP RECEIVER P* P* LINK BUFFER TO DWT OR DTE P* PNRM191 EQU * P
0x13d340…13d4d4 (1, 201) Dummy {f00=0x0062, f01=0x0190, f02=» LDR* A3,A6 GET DWT ON NEXT POSITION & P RB(NZ) NRM190 YES ONE STILL THERE , P LDKL A3,DCIPC CHAIN ANCHOR V P XIF z P* PNRM195 EQU * " P LDR* A2,A3 GET BUFFER POINTER P RF(Z) NRM198 LAST IN CHAIN P LDR* A3,A3 GET NEXT
0x13d4d4…13d668 Dummy {f00=0x0062, f01=0x0190, f02=»4 SAVE LINK TO NEXT FREE BUFFER $ P CMR A4 END OF CHAIN FOR THE DWT ( P* P $ P* REMOVE BUFFER FROM FREE CHAIN Z P* P LDKL A2,DCIPA CHAIN ANCHOR P* PNRM210 EQU * " P LDR* A4,A2 GET NEXT IN CHAIN 6 P CWR* A4,A3 SAME AS
0x13d668…13d7fc Dummy {f00=0x0062, f01=0x0190, f02=»M220 EQU * , P STR A1,A2 REPLACE W/ THE NEXT FREE BFR P ABI DCMODE GET NEXT FRAME B P* d P* EXEPTION STATE:WRONG N(S) n 0 P* REJECT ENABLED= SEND REJ W/O TESTING P-BIT " P* NOT ENABLED: WAIT FOR P-BIT P* PNRM400 EQU *
0x13d7fc…13d990 Dummy {f00=0x0062, f01=0x018e, f02=»AVE THAT DWT P LDKL A6,DTE GET DTE " P LDKL A1,CSBTRJ LOAD STATISTIC 0 P CF A15,DCSUPR UPDATE V P LDR A6,A2 RESTORE DWT t P XIF ( P LDK A1,REJ INDICATE REJ TO BE SEND P ABL NRMTRA P EJECT P* " P* HERE TO TEST N
0x13d990…13db24 Dummy {f00=0x0062, f01=0x0190, f02=» P RTN A5 0 P********** INIT FRMR PARAMETERS *********** PTSTNRX EQU * H P CM STATUS RESTORE STATUS P LD A1,VSCNT ~ P SLL A1,4 P LD A2,VRCNT & P ORR A2,A1 PRESENT COUNTERS IN A2 P LDK A3,/10 FAIL CODE IN A3 P C
0x13db24…13dcb8 Dummy {f00=0x0062, f01=0x0190, f02=»FRMR EQU * " P LDK A1,FRMR LOAD 'FRMR'+F-BIT & P LDKL A4,DLOBUF GET BUFFER ADDRESS 8 P ADK A4,1 b P SCR A1,A4 STORE C-FIELD t . P LC A1,FIELD1+1 GET WRONG RECEIVED C-FIELD P ADK A4,1 P SCR A1,A4 STORE IT P ADK A4,1 $ P S
0x13dcb8…13de4c Dummy {f00=0x0062, f01=0x0190, f02=» STAT=1 P LDR A2,A6 SAVE THAT DWT P LDKL A6,DTE GET DTE 0 $ P LDKL A1,CSBRBY LOAD STATISTICS L P CF A15,DCSUPR UPDATE t P LDR A6,A2 RESTORE DWT P XIF P LC A1,FIELD1+1 GET C-FIELD P ANK A1,/10 POLL-BIT SET ? P ABI(Z
0x13de4c…13dfe0 Dummy {f00=0x0062, f01=0x0190, f02=»PUT PROCESS P* P* QUEUED FROM INPUT PROCESS P* B $ P* TRANSMIT FRAME IF ANY ON QUEUE L 2 P* PRIORITY 1: COMMANDS/RESPONSES (UA,CMDR,DM) t 0 P* PRIORITY 2: RR-FRAMES WHEN NOTHING PENDING P* P* PTRM EQU * P INH
0x13dfe0…13e174 (1, 202) Dummy {f00=0x0062, f01=0x0190, f02=» CURRENT STATUS ~ " P CF A15,CPTIM START POLL TIMER P LDR* A1,A15 RESTOR A1 > " P IM TRMACT OUTPUT IN PROGRESS ( P LDR A2,A1 COMMAND FIELD = PARAMETER P ST A1,SAVPAM SAVE PARAMETER , P CF A15,LOOKUP BRANCH ON COMMAND TO SEND ( P DATA
0x13e174…13e308 Dummy {f00=0x0062, f01=0x0190, f02=»0 RCV READY " P DATA FRMR,TRM140 FRAME REJECT " P DATA RNR,TRM180 RCV NOT READY : * PRSPTBE DATA 0,TRM150 MAY SEND I-FRAME ` PTRM107 EQU * P IFT STAT=1 P LDR A2,A6 SAVE DWT P LDKL A6,DTE INIT DTE " P LDKL A1,CSBTUA LOAD STA
0x13e308…13e49c Dummy {f00=0x0062, f01=0x018e, f02=»1 P LDR A2,A6 SAVE DWT P LDKL A6,DTE INIT DTE & " P LDKL A1,CSBTDM LOAD STATISTIC D P CF A15,DCSUPR UPDATE j P LDR A6,A2 RESTORE DWT P XIF PTRM109 EQU * $ P LD A1,SAVPAM RESTORE PARAMETER PTRM110 EQU * " P CF A5
0x13e49c…13e630 Dummy {f00=0x0062, f01=0x0190, f02=» P LDK A1,RR LOAD 'RR'+F PTRM135 EQU * & 0 P LD A2,VRCNT GET NEXT EXPECTED SEND COUNTER : P SLL A2,5 ADJUST IT n P ORR A1,A2 INSERT IN RR P RB TRM110 PTRM136 EQU * P LDK A1,REJ P RB TRM135 P* P*
0x13e630…13e7c4 Dummy {f00=0x0062, f01=0x018e, f02=» TO A3 z P CF A5,WRFRAM SEND THE FRAME P RF TRMEND 2 P EJECT D P* R ( P* CHECK APPLICATION QUEUE AND SEND P* I-FRAME OR RR-FRAME P* P* PTRM150 EQU * P LD A6,DCIPA " P RF(NZ) TRM190 OK CHECK QUEUE P
0x13e7c4…13e958 Dummy {f00=0x0062, f01=0x0190, f02=» P RB TRM135 P* P* CHECK APPLICATION QUEUE P* B PTRM190 EQU * L ( P LD A6,DCWRQ CHECK APPLICATION QUEUE ` " P RB(Z) TRM130 NOTHING IN QUEUE P EJECT P* , P* DEFINE AND TRANSMIT INFORMATION FRAME P* 0 P SUK
0x13e958…13eaec Dummy {f00=0x0062, f01=0x0190, f02=» BUFFER ADDRESS v $ P LD A3,ECBRL,A8 REQUESTED LENGTH P ADK A3,2 INCLUDE HEADER @ , P LD A7,ECBBA,A8 GET BUFFER START ADDRESS ` P IFT SUB=1 2 P LD A2,DWTSUB,A6 SYMBOLIC SUBTERMINAL ADDRESS P LD A1,DCDTE GET SYMB DTE P CF A15,GETSNA
0x13eaec…13ec80 Dummy {f00=0x0062, f01=0x0190, f02=» & P ADK A3,1 INCREMENT LENGTH FOR STA . P ADK A7,1 INCREMENT FOR 1ST DATA CHARACTER . P XIF ` P IFT MMUPAG+MUX=0 l , P ST A7,SWITCH SAVE FOR BUFFER SWITCHING P XIF P IFF MMUPAG+MUX=0 P IFT SUB=1 6 P LD A2,DWTSUB,A6 GT SYMBOL
0x13ec80…13ee14 (1, 203) Dummy {f00=0x0063, f01=0x0190, f02=» , P LDKL A2,MMUBUF+3 SYSTEM BUFFER ADDRESS P XIF 4 P IFF MMUPAG+MUX=0 @ P IFT SUB=0 Z , P LDKL A2,MMUBUF+2 SYSTEM BUFFER ADDRESS l P XIF P IFF MMUPAG+MUX=0 ( P LD A1,ECBBA,A8 USER BUFFER ADDRESS , P LD A3,ECBRL,A8 NUMBER OF
0x13ee14…13efa8 Dummy {f00=0x0063, f01=0x018e, f02=» DATA TO SYSTEM BUFFER r " P LDR* A5,A15 RESTORE A5 STACK 2 P LDKL A4,MMUBUF TRANSMIT BUFFER START ADDRESS D 2 P SUKL A2,MMUBUF END ADDRESS - START ADDRESS = z P LDR A3,A2 = TOTAL LENGTH P XIF " P ST A6,WRDWT SAVE WRITING DWT P L
0x13efa8…13f13c Dummy {f00=0x0063, f01=0x0190, f02=» P SLL A2,1 P ORR A1,A2 & P STR A1,A4 STORE C-FIELD IN BUFFER ( P CF A5,WRFRAM R P IFT STAT=1 h P LDR A2,A6 SAVE THAT DWT | P LDKL A6,DTE GET DTE P LDKL A1,CSBTIF $ P CF A15,DCSUPR UPDATE STATISTICS P LDR A6,A2 RESTO
0x13f13c…13f2d0 Dummy {f00=0x0063, f01=0x018e, f02=»PDATE CHECKPINT P* P* DISPATCH " P* 4 PTRMEND EQU * > P LD A2,QOUT R P CM TRMACT RESET OUTPUT FLAG f P CW A2,QIN " P ABL(E) TDISP NOTHING ON QUEUE P LDR* A1,A2 GET COMMAND P CWK A2,COMQE $ P RF(NE) TRME10 N
0x13f2d0…13f464 Dummy {f00=0x0063, f01=0x0190, f02=» P EJECT J P********************************************************************** J P********************************************************************** d P* P* SERVICE ROUTINES P* J P****************************************
0x13f464…13f5f8 Dummy {f00=0x0063, f01=0x0190, f02=»- RESET RESPONSE QUEUE P* PRSRSPQ EQU * * P LDKL A2,COMQ BASE > P ST A2,QIN APPEND POINTER X P ST A2,QOUT EXTRACT POINTER z P ADKL A15,4 * P ABR* A15 * RETURN P EJECT , P* QUEUEING FACILITY FOR HDLC TRANSMITTER
0x13f5f8…13f78c Dummy {f00=0x0063, f01=0x0190, f02=»IVE v P* P* ACTIVATE TRANSMITTER P* 4 P STR A4,A15 SAVE A4 ON STACK > P CF A15,SETIME b P DATA TRM,1 AFTER 100 MS x P LDR* A4,A15 RESTORE A4 P RF QMRTN P* P* PUT COMMAND ON QUEUE P* PQMTRM10 EQU
0x13f78c…13f920 Dummy {f00=0x0063, f01=0x018e, f02=»M20 EQU * P ADK A2,2 P STR A1,A2 $ P ST A2,QIN 6 P* H P* RETURN R P* b PQMRTN EQU * l P IFT CPU852=1 P ADKL A15,4 P ABR* A15 P XIF P IFT CPU852=0 P RTN A15 P XIF P EJECT P
0x13f920…13fab4 (1, 204) Dummy {f00=0x0063, f01=0x0190, f02=» P ST A1,NSCNT P CM NRCNT P CM LNRCNT * P CM CPCNT < P RTN A15 N P EJECT ^ P* l P* v P* UPDATE PROCEDURE COUNTERS P* AND CHECK OUTPUT QUEUE P* * P* ON ENTRY A1 CONTAINS CURRENT C-FIELD P* P*
0x13fab4…13fc48 Dummy {f00=0x0063, f01=0x0190, f02=»RAME, NO N(S) z P LDR A2,A1 P SRL A2,1 ( P ANK A2,7 MASK N(S) : P ST A2,NSCNT STORE IT V P CW A2,VRCNT CHECK IT t P RF(NE) UPD080 INVALID P IM VRCNT INCREMENT VARIABLE P LDK A2,7 P ANS A2,VRCNT MODULO 7 P RF
0x13fc48…13fddc Dummy {f00=0x0063, f01=0x0190, f02=» z P SRL A2,5 ADJUST IT P ANK A2,7 $ P LD A3,CPCNT GET CHECKPOINT 6 P CW A3,LNRCNT Z & P RF(E) UPD210 NO TRANSMISSION DONE p P ST A2,NRCNT STORE N(R) P LD A6,WRDWT GET WRITING DWT , P CW A2,CPCNT TRANSMISSION ACKNOWLEDGED ?
0x13fddc…13ff70 Dummy {f00=0x0063, f01=0x018e, f02=»* P IFF MMUPAG+MUX=0 P CM SWMMU RESET FLAG & P XIF B P* N P LDK A1,0 RC=0 X ( P CF A5,CWRITE CHECK COMPLETE REQUEST n P RTN A5 P* ( P* LAST TRANSMISSION NOT ACKNOWLEDGED P* PUPD130 EQU * ( P****** TES
0x13ff70…140104 Dummy {f00=0x0063, f01=0x0190, f02=» P RTN A5 P* P* INDICATE WRONG N(R) P* < PUPD205 EQU * F P LDK A1,2 Z P ORS A1,STATUS l P RTN A5 P* * P* HERE ,NO TRANSMISSION HAS BEEN DONE . P* SO,JUST CHECK SYNCHRONOUS N(R) SEQUENCE PUPD210 EQU *
0x140104…140298 Dummy {f00=0x0063, f01=0x018e, f02=»PUT REGISTER A3-A8 P* P* $ PSTREGI ST A3,LCI3 . P ST A4,LCI4 H P ST A5,LCI5 P ST A6,LCI6 p P ST A7,LCI7 P ST A8,LCI8 PRTNA15 EQU * P* P IFT CPU852=1 P ADKL A15,4 P ABR* A15 P X
0x140298…14042c Dummy {f00=0x0063, f01=0x0190, f02=» P* PLDREGI LDKL A3,0 PLCI3 EQU *-2 * P LDKL A4,0 > PLCI4 EQU *-2 P P LDKL A5,0 d PLCI5 EQU *-2 v P LDKL A6,0 PLCI6 EQU *-2 P LDKL A7,0 PLCI7 EQU *-2 P LDKL A8,0 PLCI8 EQU *-2 P RB RTNA15
0x14042c…1405c0 Dummy {f00=0x0063, f01=0x0190, f02=» P ST A5,LCO5 P ST A6,LCO6 P ST A7,LCO7 0 P ST A8,LCO8 D P RB RTNA15 X P EJECT j P* x P* $ P* RESTORE OUTPUT REGISTER A3-A8 P* P* PLDREGO LDKL A3,0 PLCO3 EQU *-2 P LDKL A4,0 PLC
0x1405c0…140754 (1, 205) Dummy {f00=0x0063, f01=0x0190, f02=»L A8,0 PLCO8 EQU *-2 P RB RTNA15 " D P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG 4 P* | 8 P* LOOKUP - LOOK UP KEY IN TABLE & BRANCH ON ADDRESS P* P* CALL: 8 P* CF A15,LOOKUP TABLE ADDRESS
0x140754…1408e8 Dummy {f00=0x0063, f01=0x0190, f02=»CH X P* " " " P* LAST DATA KEYN,ADDRN $ P* D P* ENTRY: A2 = KEY VALUE N P* EXIT: A3 & A4 DESTROYED n P* PLOOKUP EQU * P LDR A1,A15 USE A1 REGISTER 0 P ADK A1,4 POINT TO NEXT INSTRUCTION ADDRESS * P L
0x1408e8…140a7c Dummy {f00=0x0063, f01=0x0190, f02=»4 GET NEXT TABLE ENTRY ADDRESS P CWR A3,A4 PAST THE END? & " P RF(G) LOOK90 YES = NOT FOUND F & P CWR* A2,A3 KEY = VALUE IN TABLE? l ( P RB(NE) LOOK50 NO - CHECK NEXT ENTRY & P RF LOOK95 BRANCH TO TABLE ADDRESS P* KEY NOT FOUND PLOOK
0x140a7c…140c10 Dummy {f00=0x0063, f01=0x0190, f02=»CT J P********************************************************************** P* X 8 P* DCLINK - LINK DWT ADDRESS TO CONFIGURATION CHAIN b P* P* ENTRY: A6 = DWT-ADDRESS P* * P* EXIT: DCDWA = A(FIRST DWT IN CHAIN) P*
0x140c10…140da4 Dummy {f00=0x0063, f01=0x0190, f02=»**** N P* PDCLINK EQU * P LDR A2,A7 GET OPTION+ORDER * P SLL A2,1 BIT /40 SET? N ( P RF(NN) DCLK10 NO - NOT A MASTER DWT l 4 P CM DWTSUB,A6 SUBTERMINAL ADDRESS = 0 FOR MASTER " P LD A2,DCDWA GET ANCHOR VALUE 4 P ST A2,DWTCHN,A6 P
0x140da4…140f38 Dummy {f00=0x0063, f01=0x0190, f02=» @ P LDKL A3,DCDWA-DWTCHN GET ANCHOR ADDRESS COMPATIBLE W/ DWT'S PDCLK20 EQU * H P LDR A2,A3 PREVIOUS POINTER 2 P LD A3,DWTCHN,A2 GET POINTER TO NEXT IN CHAIN 6 P RB(NZ) DCLK20 KEEP ON UNTIL LAST IN CURRENT CHAIN * P ST A6,DWTCHN,A2 ADD NEW
0x140f38…1410cc Dummy {f00=0x0063, f01=0x0190, f02=»ACKWARD LINK TO ANCHOR | P ADKL A15,4 P ABR* A15 RETURN 4 P EJECT L J P********************************************************************** Z P* < P* DCREMV - REMOVE DWT-ADDRESS FROM CONFIGURATION CHAIN P* , P* ENTRY: A6
0x1410cc…141260 Dummy {f00=0x0063, f01=0x0190, f02=»EMOVED n > P* NEG = DWT NOT FOUND OR CHAIN EMPTY ON ENTRY P* A2 & A3 DESTROYED P P* t J P********************************************************************** ~ P* PDCREMV EQU * 4 P LDKL A3,DCDWA-DWTCHN MAKE ANC
0x141260…1413f4 (1, 206) Dummy {f00=0x0063, f01=0x0190, f02=» CHAIN ^ P RF(NZ) DCRM30 NOT AT END 8 P SUK A3,1 AT END & NOT FOUND; SET FOR CC = NEGATIVE 0 P RF DCRM80 RETURN l P* PDCRM30 EQU * P CWR A3,A6 IS THIS OUR DWT? $ P RB(NE) DCRM20 NO - LOOK AT NEXT : P LD A3,DWTCHN,A6 GET LIN
0x1413f4…141588 Dummy {f00=0x0063, f01=0x0190, f02=»ET ANCHOR & P RF(Z) DCRM80 LAST DWT NOW REMOVED P ADK A3,1 SET CC = POS. < P* PDCRM80 EQU * f P ADKL A15,4 UPDATE STACK z P LDR A3,A3 SET PROPER CC P ABR* A15 RETURN P EJECT J P****************************************
0x141588…14171c Dummy {f00=0x0063, f01=0x0190, f02=»******************************** j P* ( P* 2 * P* TRANSMIT SHORT FRAME WITHOUT I-FIELD < , P* ON ENTRY A1 CONTAINS COMMAND/RESPONSE j P* P* PTRSFR EQU * & P LDKL A4,DLOBUF GET BUFFER ADDRESS P SC A1,+1,A4 STORE C-FIELD
0x14171c…1418b0 Dummy {f00=0x0063, f01=0x0190, f02=»ME ~ , P* ON ENTRY : A3 = FRAME LENGTH IN BYTES $ P* A4 = BUFFER ADDRESS : P* b PWRFRAM EQU * l P LC A1,DCTCA GET DTE ADDRESS $ P SCR A1,A4 STORE FIRST IN BUFFER P IFT MUX=1 P LDR A2,A3 LENGTH IN BYTES P ADK A
0x1418b0…141a44 Dummy {f00=0x0063, f01=0x0190, f02=»GTH TO IOP REG. 0 ~ , P WER A4,IOPOUT+/1 ADDRESS TO IOP REG. 1 P XIF J P LD A1,PFPOST Z $ P RF(NZ) WRF105 WAIT FOR POWER UP p P LDR A1,A3 GET LENGTH P ANK A1,1 ODD? P RF(Z) WRF100 NO 4 P LDKL A1,/800 YES - 8 SIGNIF. BITS I
0x141a44…141bd8 Dummy {f00=0x0063, f01=0x0190, f02=» & P ADK A1,CIXMX TRANSMIT IOP COMMAND P XIF 2 , P CIO A1,1,CHLCUT START CHLC TRANSMITTER B P RF(NA) WRT115 FORCE RETURN r PWRF105 EQU * P CF A5,WRITE SEND THE FRAME P LDK A1,CINRTS ( P CIO A1,1,CHLCUT NO REQUEST TO SEND
0x141bd8…141d6c Dummy {f00=0x0063, f01=0x0190, f02=» EJECT P* P* . P* READ ONE FRAME INTO RECEIVE POOL BUFFER " , P* ON EXIT CR = (Z) IF THE FRAME IS VALID T P* WITH CORRECT ADDRESS. $ P* A1 CONTAINS THE CONTROL FIELD $ P* AND A4 CONTAINS BUFFER ADDRESS P* P*
0x141d6c…141f00 Dummy {f00=0x0063, f01=0x0190, f02=»LES l , P IM BUFNUL SET BUFFER OVERFLOW INDICATOR P IFT MUX=1 < " P LDKL A4,FIELD1 SHORT BUFFER- P $ P LDKL A3,2+WDXFER+1 1 WORD LONG v P XIF P RF RDF002 PRDF001 EQU * P CM BUFNUL RESET INDICATOR P IFT MMUPAG+MUX=0
0x141f00…142094 (1, 207) Dummy {f00=0x0064, f01=0x0190, f02=»DATA BYTE t P XIF P IFT MUX=1 & P ADK A4,RCVHDR-2 POINT AT A-FIELD 4 6 P LDKL A3,WDXFER+RBUFL+1 BFR LENGTH IN WDS INCL A+C ^ P XIF PRDF002 EQU * P IFT MUX=0 . & P LDK A3,0 RESET CHARACTER COUNTER P XIF .
0x142094…142228 Dummy {f00=0x0064, f01=0x018e, f02=»A1,PFPOST $ P RF(NZ) RDF010 WAIT FOR POWER UP P IFT MUX=0 : P LDK A1,CIRPC RECEIVE ON PC N P XIF r P IFT MUX=1 P LDK A1,CIRMX RECEIVE ON IOP P XIF $ P CIO A1,1,CHLCIN START RECEIVER ( P RF(NA) RDF140 COMMAND
0x142228…1423bc Dummy {f00=0x0064, f01=0x0190, f02=» x P XIF P RF(Z) RDF110 VALID FRAME PRDF020 EQU * 6 P LDK A3,1 FLAG INVALID J P RF RDF120 h PRDF110 EQU * z P LD A4,DCIPA P RF(Z) RDF115 , P ST A3,RCVEL,A4 LENGTH TO RECEIVE BUFFER P IFT MUX=1 P LD A3,RCVTC
0x1423bc…142550 Dummy {f00=0x0064, f01=0x0190, f02=» LDR A1,A1 * & P RF(Z) RDF150 SKIP CONTENTION SST P CC A1,DCTCA OUR ADDRESS? > $ P RB(NE) RDF020 NO - SET INVALID ` P LDK A3,0 FLAG VALID FRAME . P LC A1,FIELD1+1 GET COMMAND FIELD OF FRAME , P RF RDF125 NO STATUS CHECK WHEN DATA OK
0x142550…1426e4 Dummy {f00=0x0064, f01=0x0190, f02=»H BAD HW STATUS x P RF(NZ) RDF126 HW INCORRECT PRDF125 EQU * < P ADK A5,4 P P LDR A3,A3 SET PROPER CC b P ABR* A5 PRDF126 EQU * " P CF A15,STREGI SAVE REGISTERS P CF A15,SETIME P DATA RDF127,CUTIME P ABL TDI
0x1426e4…142878 Dummy {f00=0x0064, f01=0x0190, f02=» P EJECT P* P* RESTORE LINE WHEN REQUIRED P* @ * PRDF130 EQU * DISCONNECT,CONNECT MODEM J & P CF A5,CUOPEN TRY TO CONNECT MODEM x P RF(N) RDF140 INVALID DTE P RB(Z) RDF130 NO SUCCESS PRDF131 EQU * P LDK A3,1 FLAG I
0x142878…142a0c Dummy {f00=0x0064, f01=0x018e, f02=»F125 PRDF150 EQU * " P CF A15,STREGI SAVE REGISTERS P CF A15,SETIME START TIMER F P DATA RDF160,CUTIME h P ABL TDISP PRDF160 EQU * $ P CF A15,LDREGI RESTORE REGISTERS P ABL RDF020 SKIP CONTENTION P EJECT P*
0x142a0c…142ba0 Dummy {f00=0x0064, f01=0x0190, f02=» P XIF P IFT CPU852=0 P MSR 8,A15 SAVE REGISTERS & P XIF H ( P CF A15,RSRSPQ RESET RESPONSE QUEUE T P LD A2,DCREQS CURRENT STATE P ABL(NZ) PWERXX DTE ACTIVE " P LD A6,WRDWT DWT PRESENT ? =2 P ABL(Z) TDISP NO $ P LD
0x142ba0…142d34 (1, 208) Dummy {f00=0x0064, f01=0x0190, f02=» ~ P LDKL A5,STBIN YES,COMPLETE P ABL RQOP21 , PPWERXX EQU * @ " P LD A6,WRDWT DWT PRESENT ? =2 T P RF(Z) PWERX1 NO z $ P LD A1,DWTST,A6 ORDER PRESENT ? P RF(N) PWERX1 NO P LD A1,DWTOR,A6 GET ORDER P SUK A1,/22 CLOSE ?
0x142d34…142ec8 Dummy {f00=0x0064, f01=0x0190, f02=» ABL(N) TDISP HW OUT OF SERVICE " P RB(Z) PWERX1 NOT OK,TRY AGAIN ( P ABI DCMODE RESTART RECEIVER N P EJECT r P* P* TIMER FUNCTIONS P* PSPTIM EQU * P CF A15,SETIME P DATA PTOUT,TIMPOL P ST A4,DCTPGP SAVE POI
0x142ec8…14305c Dummy {f00=0x0064, f01=0x0190, f02=»UT1 ALREADY TIMED OUT P ST A1,SAHDLC P CM DCHDLS CLEAR IT 4 PPTOUT1 EQU * P P CF A15,SPTIM RESTART TIMER d P ABL TDISP PCPTIM EQU * P LD A1,SAHDLC P ST A1,DCHDLS RESTORE STATUS P LDKL A2,-TIMPOL P ST* A2,
0x14305c…1431f0 Dummy {f00=0x0064, f01=0x0190, f02=» P* PREAD EQU * " P CF A15,STREGI SAVE REGISTERS $ P ABL TDISP J P* P* f P* WRITE ON THE LINE p P* P* PWRITE EQU * " P CF A15,STREGO SAVE REGISTERS P ABL TDISP P EJECT J P**************
0x1431f0…143384 Dummy {f00=0x0064, f01=0x0190, f02=»DEM FUNCTION IF CONTROL UNIT STATE = 0 ~ & P* CHANGE STATE TO 1 IF SUCCESSFUL . P* X J P********************************************************************** b P* PCUOPEN EQU * " P CF A15,STREGI SAVE REGISTERS P CF A15,SETIME START
0x143384…143518 Dummy {f00=0x0064, f01=0x018e, f02=»A15,LDREGI RESTORE REGISTERS P LDK A1,CICMO CONNECT MODEM $ $ P CIO A1,1,CHLCIN ISSUE FUNCTION H ( P RF(NA) CUOP91 COMMAND NOT ACCEPTED p . P CF A5,READ WAIT FOR INTERRUPT OR TIMEOUT P IFT MUX=1 P LDR A7,A7 SET CND REG P XIF
0x143518…1436ac Dummy {f00=0x0064, f01=0x0190, f02=» x P LD A1,DCCUS SET CC P ABR* A5 RETURN $ PCUOP91 EQU * < P CM DCCUS HW OUT OF SERVICE P P ADK A5,4 UPDATE STACK t P LDKL A1,-1 SET CC NEGATIVE P ABR* A5 RETURN P EJECT J P********************************************
0x1436ac…143840 Dummy {f00=0x0064, f01=0x0190, f02=» P* CONTROL UNIT STATE TO 0 P* ( J P********************************************************************** 2 P* PCUCLOS EQU * 0 P LD A1,DCCUS GET CURRENT CONTROL UNIT STATE & P RF(Z) CUCL90 ALREADY DISCONNECTED $ P CIO A1,0,CH
0x143840…1439d4 (1, 209) Dummy {f00=0x0064, f01=0x018e, f02=»LCIN ISSUE FUNCTIOON P RF(NA) CUCL90 HW PROBLEMS " P CF A5,READ WAIT FOR INTERRUPT > P* d PCUCL90 EQU * n P CM DCCUS HW DOWN P RTN A5 P EJECT P* P* P* INPUT INTERRUPT HANDLER P* P* PIH07
0x1439d4…143b68 Dummy {f00=0x0064, f01=0x0190, f02=» P XIF P* P CF A15,LDREGI P IFT MUX=1 0 P ABL SSTIN MUST BE STATUSL D P XIF f P IFT MUX=0 v " P INR A2,0,CHLCIN READ 16 BITS P RF(NA) IHLC10 NOT ACCEPTED P* P IFT MUX=0 P IFF LOGG=0 P C
0x143b68…143cfc Dummy {f00=0x0064, f01=0x0190, f02=»,TESTCF FIRST WORD ? P RF(NZ) NFIRST NO & P IM TESTCF YES,SET FIRST WORD FLAG 6 . P ST A2,FIELD1 AND STORE ADDRESS + C-FIELD ` P ABL READ PNFIRST EQU * P LD A1,BUFNUL . P ABL(NZ) READ BUSY DO NOT ACCEPT ANY DATA P SC A2,1
0x143cfc…143e90 Dummy {f00=0x0064, f01=0x0190, f02=»UFL BUFFER OVERFLOW ? P ABL(L) READ NO P* 6 P* BUFFER OVERFLOW @ P* Z P SUK A4,2 DECREMENT POINTER d P ABL READ P* P* INR NOT ACCEPTED P* PIHLC10 EQU * & P CM TESTCF RESET FIRST WSORD TEST P C
0x143e90…144024 Dummy {f00=0x0064, f01=0x0190, f02=»RFORM SST ON INPUT CHANNEL P* " P* , PSSTIN EQU * 6 P SST A2,CHLCIN PERFORM SST J P RF(NA) SSTI20 NOT ACCEPTED l P IFF LOGG=0 P CF A5,LOGSST P XIF P LDR A1,A2 P ANK A1,1 MODEM NOT OP P RF(Z) SSTI30 NOT
0x144024…1441b8 Dummy {f00=0x0064, f01=0x0190, f02=»A15,DCSUPR UPDATE P LDR A6,A2 RESTORE THAT DWT P XIF > ( P LDK A2,1 RESTORE MODEM NOT OPERABLE J P CM DCCUS CLEAR MODEM UP v P EJECT P* P* MODEM OK: " P* COULD BE OK OR RETRY INPUT P* PSSTI20 EQU * $ P L
0x1441b8…14434c Dummy {f00=0x0064, f01=0x0190, f02=» P LDR A2,A1 GET SST P ANK A2,8 OVRFLOW ? ( P RF(NZ) SSTI31 YES ACCEPT IT ANYWAY : P XIF f P LDR A1,A2 r " P ANKL A1,/302E INVALID FRAME ? : P RB(NZ) SSTI20 YES,CARRIER DOWN,THROUGPUT,CRC...ETC... P IFT MUX=0 ( P CWK A3,RBUFL+
0x14434c…1444e0 Dummy {f00=0x0064, f01=0x0190, f02=»D A4,BUFNUL SHORT BUFFER USED? P RF(NZ) SSTI40 YES & . P RER A4,IOPIN GET RESIDUAL LENGTH IN WORDS @ 0 P LDKL A3,RBUFL ORIG. LENGTH, DON`'T INCL A+C r $ P SUR A3,A4 MINUS RESIDUAL LENGTH " P SLL A3,1 LENGTH RCVD IN CHARS P XIF P ANK
0x1444e0…144674 (1, 210) Dummy {f00=0x0064, f01=0x0190, f02=»CT P* P* P* OUTPUT INTERRUPT HANDLER P* @ P* J PIH0702 EQU * T P* h P IFT CPU852=0 r P MSR 8,A15 SAVE REGISTERS P XIF P IFT CPU852=1 P CF A15,SAVE8 P XIF P* P CF A15,LDREGO
0x144674…144808 Dummy {f00=0x0064, f01=0x0190, f02=»IT OUTPUT REGISTER P OTR A2,0,CHLCUT SEND THEM P RF(NA) IHLCU1 NOT ACCEPTED < P* ` P IFT MUX=0 j P IFF LOGG=0 ~ P CF A5,LOGOUT P XIF P IFT MMUPAG+MUX=0 P* 2 P* HERE TO BROADCAST DIRECT FROM USER BUFFER
0x144808…14499c Dummy {f00=0x0064, f01=0x0190, f02=»SENT? x P RF(E) IHLCUX YES - SEND 2ND P XIF 2 P IFT MMUPAG+MUX=0 > " P LDR A4,A7 INIT FIRST PASSAGE X P SUK A4,2 PREPARE POINTER ~ P XIF P IFT MUX=0 P CM SWITCH CLEAR INDICATOR PIHLCUX EQU * P ADK A4,2 INCR
0x14499c…144b30 Dummy {f00=0x0064, f01=0x0190, f02=»* & P CIO A1,0,CHLCUT HALT TRANSMISSION PIHWAIT EQU * 4 " P CF A15,STREGO SAVE REGISTERS H P ABL TDISP n P XIF P EJECT P* P* CHECK SST P* PIHLCU1 EQU * P SST A2,CHLCUT PERFORM SST P RF(NA) IHLC
0x144b30…144cc4 Dummy {f00=0x0064, f01=0x0190, f02=» | P ANK A1,1 " P RF(Z) IHLCU3 THROUGHPUT ERROR P* @ P* MODEM NOT OPERABLE J P* f P IFT STAT=1 p P LDR A2,A6 SAVE THAT DWT P LDKL A6,DTE GET DTE " P LDKL A1,CSCDCE LOAD STATISTIC P CF A15,DCSUPR UPDATE P LDR
0x144cc4…144e58 Dummy {f00=0x0064, f01=0x018e, f02=»BL TDISP DISPATCH P* P* TIMEOUT $ P* 6 PIHLCU5 EQU * @ P CF A15,LDREGO V P* n P* THROUGHPUT ERROR x P* PIHLCU3 EQU * " P CM TRMACT RESET OUTPUT ACTIVE P LDK A7,1 PIHLCU2 EQU * P RTN A5
0x144e58…144fec Dummy {f00=0x0064, f01=0x0190, f02=» J P********************************************************************** P* R P* P* DC RECEIVE BUFFER POOL f P* P* $ P* BYPASS ASSEMBLER CONSTRAINTS: 6 PRBUFLB EQU RBUFL+RBUFL BUFFER DATA PORTION - BYTES P* . F P
0x144fec…145180 Dummy {f00=0x0064, f01=0x018e, f02=» RBUFNR=14 P DATA *+RLINK P RES RBUFL+RCHDRW ( P DATA *+RLINK B P RES RBUFL+RCHDRW X P DATA *+RLINK r P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA
0x145180…145314 (1, 211) Dummy {f00=0x0065, f01=0x0190, f02=» P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK 4 P RES RBUFL+RCHDRW J P DATA *+RLINK d P RES RBUFL+RCHDRW z P DATA *+RLINK P RES RBUFL+RCHDRW P XIF P IFT RBUFNR=13 P DATA *+RLINK P RES RBUFL+R
0x145314…1454a8 Dummy {f00=0x0065, f01=0x0190, f02=» RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW , P DATA *+RLINK F P RES RBUFL+RCHDRW P DATA *+RLINK v P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P D
0x1454a8…14563c Dummy {f00=0x0065, f01=0x0190, f02=»RLINK P RES RBUFL+RCHDRW P DATA *+RLINK ( P RES RBUFL+RCHDRW > P DATA *+RLINK X P RES RBUFL+RCHDRW n P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL
0x14563c…1457d0 Dummy {f00=0x0065, f01=0x0190, f02=»ES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW . P XIF H P IFT RBUFNR=11 T P DATA *+RLINK j P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK
0x1457d0…145964 Dummy {f00=0x0065, f01=0x0190, f02=»*+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK * P RES RBUFL+RCHDRW @ P DATA *+RLINK Z P RES RBUFL+RCHDRW p P XIF P IFT RBUFNR=10 P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW
0x145964…145af8 Dummy {f00=0x0065, f01=0x0190, f02=»DRW P DATA *+RLINK P RES RBUFL+RCHDRW " P DATA *+RLINK < P RES RBUFL+RCHDRW R P DATA *+RLINK l P RES RBUFL+RCHDRW P XIF P IFT RBUFNR=9 P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES
0x145af8…145c8c Dummy {f00=0x0065, f01=0x0190, f02=» P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW 4 P DATA *+RLINK N P RES RBUFL+RCHDRW d P XIF ~ P IFT RBUFNR=8 P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+
0x145c8c…145e20 Dummy {f00=0x0065, f01=0x0190, f02=» DATA *+RLINK P RES RBUFL+RCHDRW P XIF 0 P IFT RBUFNR=7 < P DATA *+RLINK R P RES RBUFL+RCHDRW h P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDR
0x145e20…145fb4 (1, 212) Dummy {f00=0x0065, f01=0x0190, f02=» P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK 4 P RES RBUFL+RCHDRW J P DATA *+RLINK d P RES RBUFL+RCHDRW z P XIF P IFT RBUFNR=5 P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+R
0x145fb4…146148 Dummy {f00=0x0065, f01=0x0190, f02=» ~ P DATA *+RLINK P RES RBUFL+RCHDRW P XIF 8 P IFT RBUFNR=3 D P DATA *+RLINK Z P RES RBUFL+RCHDRW p P XIF P DATA *+RLINK P RES RBUFL+RCHDRW P DATA 0 P RES RBUFL+RCHDRW P* P IFF MMUPAG+MU
0x146148…1462dc Dummy {f00=0x0065, f01=0x0190, f02=»OUTPUT BUFFER | P* HEADER IF I-FRAME P* 6 P* @ PDLOBUF EQU * J P RES 6 OUTPUT BUFFER ^ P* z P* " P* HDLC CIRCULAR COMMAND QUEUE P* P* PQIN DATA COMQ INPUT POINTER " PQOUT DATA COMQ OUTPUT POINTE
0x1462dc…146470 Dummy {f00=0x0065, f01=0x018e, f02=» P* P* P EJECT J P********************************************************************** & P* t P* ~ P* INTERRUPT LOGGING ROUTINE P* J P********************************************************************** P*
0x146470…146604 Dummy {f00=0x0065, f01=0x0190, f02=» PLOGIN EQU * P LDKL A1,/1111 PLOG10 ST A3,SAVE3 2 P ST A2,SAVE2 L P LD A3,LOGPNT ` P STR A1,A3 v P ADK A3,2 P STR A2,A3 P ADK A3,2 P CWK A3,LOGEND P RF(L) LOGEXI P LDKL A3,LOGSTA PLOGEXI
0x146604…146798 Dummy {f00=0x0065, f01=0x40a0, f02=» PLOGSTA EQU * P RES 400 PLOGEND EQU *-6 ( PSAVE2 DATA 0 > PSAVE3 DATA 0 R P XIF f P* r P* | P* P END @ 2,A3 P ADK A3,2 P CWK A3,LOGEND P RF(L) LOGEXI P LDKL A3,LOGSTA PLOGEXI
0x146798…14692c Dummy {f00=0x0065, f01=0x2008, f02=» PLOGEND EQU *-4 J PSAVE2 DATA 0 J $ PSAVE3 DATA 0 J 8 P XIF J L P* J X P* J b P* J l P END J v@ J I | P ADK A3,2 I P CWK A3,LOGEND I P RF(L) LOGEXI I P LDKL A3,LOGSTA I PLOGEXI ST A3,LOGPNT I P LD A2,S
0x14692c…146ac0 Dummy {f00=0x0065, f01=0x0190, f02=» p" T ) p , ( @ z _ X R X A DWTECB @ , ( Y > Y X H R , ( @ X P ( y Y > > , ( ! $ (P _ ) 1_ $ (X( * & A P _ 0 )_6 X R X
0x146ac0…146c54 (1, 213) Opaque[0x194]
0x146c54…146de8 # DirEnt {nam=»DRDC13«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0cb0, f03=0xffff}
0x146c54…146de8 IdxSect {
0x146c54…146de8 f00 = 0x0065 // 0x146c54 @0x0
0x146c54…146de8 f01 = 0x001a // 0x146c56 @0x2
0x146c54…146de8 gno = [ // 0x146c58 @0x4
0x146c54…146de8 [0x00]: C0x0065.0x2.0
0x146c54…146de8 [0x01]: C0x0065.0x3.0
0x146c54…146de8 [0x02]: C0x0066.0x0.0
0x146c54…146de8 [0x03]: C0x0066.0x1.0
0x146c54…146de8 [0x04]: C0x0066.0x2.0
0x146c54…146de8 [0x05]: C0x0066.0x3.0
0x146c54…146de8 [0x06]: C0x0067.0x0.0
0x146c54…146de8 [0x07]: C0x0067.0x1.0
0x146c54…146de8 [0x08]: C0x0067.0x2.0
0x146c54…146de8 [0x09]: C0x0067.0x3.0
0x146c54…146de8 [0x0a]: C0x0068.0x0.0
0x146c54…146de8 [0x0b]: C0x0068.0x1.0
0x146c54…146de8 [0x0c]: C0x0068.0x2.0
0x146c54…146de8 ]
0x146c54…146de8 }
0x146de8…146f7c Dummy {f00=0x0065, f01=0x0190, f02=» 2 P IDENT DRDC13 REL 11.0 81-01-26 870105041100 P : & P =3, ABORT ROUTINE FOR REL 11.0 B P PRR 10.0 80-02-15 l P =2, DC:MIN HEADER LENGTH P REL 10.1 79-12-07 P =1, OLLES POWER UP P REL 10.1 79-10-26 P*
0x146f7c…147110 Dummy {f00=0x0065, f01=0x0190, f02=»13 : VIP7700 FOR BPPOAA P* $ 6 P* PROC : SYNCHRONOUS,HALF-DUPLEX,8-BIT ASCII . @ P** SIMULATION OF SINGLE ADDRESS TRIBUTARY STATION h : P* TT ADDRESS ALWAYS 60 HERE (NOT SIGNIFI.) 4 P* SERVICE FRAME U
0x147110…1472a4 Dummy {f00=0x0065, f01=0x0190, f02=» P* P* P* ENTRY POINTS P* 2 P* < 2 P ENTRY DC13AD ADDRESS BLOCK TERMINAL REQUESTS F " P ENTRY IH1301 INPUT INTERRUPT | " P ENTRY IH1302 OUTPUT INTERRUPT " P ENTRY DC13ON POWER ON ROUTINE P ENTRY DW1300 DWT FOR DCTA
0x1472a4…147438 Dummy {f00=0x0065, f01=0x0190, f02=»A1-A8 ON A15 STACK ~ $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR B P EXTRN SETIME SET TIMER f P EXTRN DWTST DWT STATUS P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT
0x147438…1475cc Dummy {f00=0x0065, f01=0x0190, f02=»XTRN ECBCW ECB CONTROL WORD P EXTRN ECBRC ECB RETURN CODE $ * P EXTRN DC:MIN MOVE DATA TO USER BUFFER H , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER v 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH P EXTRN SETTIM START TIMER * P EXTRN PFPOS
0x1475cc…147760 Dummy {f00=0x0065, f01=0x0190, f02=»ON ` P* P* P* P* ( P* DWT CONTENTS 2 P* H J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) R $ P* DWTST BIT #00: NO REQUEST ( P* DWTTP TIMERPOINTER, ORDER PROCESS " P* DWTWQ WRITE/GET BU
0x147760…1478f4 (1, 214) Dummy {f00=0x0065, f01=0x0190, f02=»******************** P* P & PX:A EQU 270 0 ( PRBUFL EQU 270 RECEIVE BUFFER LENGTH D PX:B EQU /60 p " PDCFC EQU /60 DC TASK FILE CODE PX:C EQU 1 PLOGG EQU 1 INTERRUPT LOGGING PX:D EQU 2 0 PRBUFNR EQU 3 NUMBER OF
0x1478f4…147a88 Dummy {f00=0x0065, f01=0x0190, f02=»U /02 P IFT P6805=0 PCHLCIN EQU 02 " P XIF 8 P IFT P6805=1 D . PCHLCIN EQU /0A DEVICE ADDRESS OF RECEIVER X P XIF PX:H EQU 500 $ PTBUFL EQU 300 MMU BUFFER LENGTH P* P IFT P6805=0 8 PCHLCUT EQU CHLCIN+/10 DE
0x147a88…147c1c Dummy {f00=0x0065, f01=0x0190, f02=» P EJECT P******************** P* . P* CONDITIONAL ASSEMBLY 8 P* X P******************** b & PMMUPAG EQU 0 0=NO TOSS MMU-PAGING ~ P* P* , PCPU852 EQU 1 0=EXTENDED INSTRUCTION SET P* P* 2 PDEVIND E
0x147c1c…147db0 Dummy {f00=0x0065, f01=0x0190, f02=»********************************** P* * & P* USE OF STATUS WORD BIT PATTERN 4 P* WITHIN DRDC13 ^ P* v 0 P******************************************** " PSWBT00 EQU /8000 REQUEST ERROR * PSWBT02 EQU /2000 STATUS CHANGE DC-TASK * P
0x147db0…147f44 Dummy {f00=0x0065, f01=0x0190, f02=»8008 REQUEST ERROR & ILLEGAL LENGTH 8 PSWBT2:09 EQU /2040 TIMEOUT ON READ OR WRITE REQUEST , P EJECT h 0 P******************************************** v P* * P* DWTREQ IS AN INTERNAL VARIABLE USED ( P* AS A REQUEST VECTOR AND MAY HAVE
0x147f44…1480d8 Dummy {f00=0x0065, f01=0x018e, f02=»ACK ON A PREVIOUS MESSAGE l 0 P* DWTREQ = /0100 " AN OUTSTANDING WRITE " , P* DWTREQ = /0003 " A BSY TO BE SENT V , P* DWTREQ = /0002 " A NAK TO BE SENT . P* DWTREQ = /0001 " AN ACK TO BE SENT 0 P********************************
0x1480d8…14826c Dummy {f00=0x0065, f01=0x0190, f02=» PDWTDRD EQU /10 P* P* $ P IFT MMUPAG=0 . PSTART EQU DWTDRD D P XIF P IFT MMUPAG=1 h PSTART EQU DWTDRD+4 ~ P XIF 4 PDWTTP EQU START+/00 TIMER POINTER ORDER PROCESS . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE
0x14826c…148400 Dummy {f00=0x0065, f01=0x0190, f02=»DWTREQ EQU START+/0A REQUEST VECTOR & PDWTTRY EQU START+/0C RETRY-COUNTER , P* V P* ` P* REQUEST HANDLING j P* P* P* P* PARAMETERS P* P* A7=ORDER P* P* /02: READ P* /06: WRITE P* /3
0x148400…148594 (1, 215) Dummy {f00=0x0066, f01=0x0190, f02=» SPECIAL PROC. VIP700 P* PSOH EQU /01 * PSYN EQU /16 H PSTX EQU /02 f PETX EQU /03 PEOT EQU /04 PSP EQU /20 PKC EQU /43 PKNUL EQU
0x148594…148728 Dummy {f00=0x0066, f01=0x018e, f02=»K+SPACE ~ PNAKSP EQU /1520 NAK PBSYSP EQU /6F20 BUSY , PNULSP EQU /8020 NUL H P EJECT d P* r P* | & P****** PROC. AREAS AND CONSTANTS P* P* PTERID RES 1 TERMINAL ID 6 PHEADER DATA 0 CODE-F
0x148728…1488bc Dummy {f00=0x0066, f01=0x018e, f02=» PDCSTCU DATA 0 CURRENT STATUS , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL ( & PDCLCI DATA 0 DC UNIT INPUT STATUS X PCURDWT RES 1 CURRENT DWT & PSVRDL RES 1 SAVE READ LENGTH AREA * PWPOLL DATA 0 OH !! MY POLL !! , P RES
0x1488bc…148a50 Dummy {f00=0x0066, f01=0x0190, f02=» h P* P IFT P6805=0 PCBCARR EQU /100+SYN & P XIF B P IFT P6805=1 SALCUZ N PCBSTOP EQU /00 j PCBPARI EQU /0C P XIF P* P* ( P* LINE CONTROL UNIT SST STATUS BITS P* PSBNOOP EQU /01 PSBTHRU
0x148a50…148be4 Dummy {f00=0x0066, f01=0x0190, f02=» PSBPARI EQU /04 . PSBERR EQU /27 SBNOOP+SBTHRU+SBCARR+SBPARI P XIF L P EJECT X P* f P* p $ P* ACTIVATION FROM TERMINAL TASKS z P* PDCACT EQU * P LDK A1,0 PRESET RETURN CODE P SUK A7,/02 P RF(Z) DCRD READ
0x148be4…148d78 Dummy {f00=0x0066, f01=0x0190, f02=»9-/37 $ P ABL(Z) REQTIM SET REQUEST TIMER P RF DCA100 6 P* H P********** R P* d P* ACTIVATION FROM DCTASK n P* P********** P* PDCACTD EQU * " P SUR A1,A1 PRESET RETURN CODE P SUK A7,/02 P RF(
0x148d78…148f0c Dummy {f00=0x0066, f01=0x0190, f02=» P********** P* P* DC TASK ADDRESS BLOCK P* @ P********** J P* $ P DATA 0 INDICATES NO MMU BUFFER f P DATA DEVIND DEVICE INDEX * PDC13DC DATA DCACTD ACTIVATION ADDRESS & P DATA ABORT ABORT ROUTINE ADDRESS & P
0x148f0c…1490a0 Dummy {f00=0x0066, f01=0x018e, f02=»ESS BLOCK P* P********** P* . P DATA BUFLEN MMU BUFFER SIZE 8 P DATA DEVIND DEVICE INDEX ( PDC13AD DATA DCACT ACTIVATION ADDRESS ~ P DATA ABORT ABORT ROUTINE & P DATA DCRBUF RECEIVE BUFFER ANCHOR P DATA 6 HEADER LEN
0x1490a0…149234 (1, 216) Dummy {f00=0x0066, f01=0x0190, f02=» | & P* -STATUS CHANGE ON DC EQUIPMENT & P* -SPONTANEOUS MESSAGE RECEPTION 2 P* P********** f P* x PDCRDDC EQU * , P CF A15,CKMESS CHECK IF MESSAGE RECEIVED P* P* P* PDCRTN EQU * P ABL TDISP TO DI
0x149234…1493c8 Dummy {f00=0x0066, f01=0x0190, f02=»ERMINAL ADDRESSES l P* P* $ & PDCTP LD A2,ECBCW,A8 GET PARAMETER . ( P STR A2,A6 SAVE IN FIRST WORD OF DWT X P CWK A6,DW1300 DCTASK DWT ? , P RF(E) DCTP40 YES!SHOULD'NT BE IN DC:TAB * P LD A1,DC:IN GET DC:TAB INPUT POINTER ( P C
0x1493c8…14955c Dummy {f00=0x0066, f01=0x0190, f02=»B LAST TABLE ENTRY * PDCTP20 SUK A4,2 ADDRESS TO NEXT ENTRY ( P CW A4,DCTAB ALL ENTRIES CHECKED ?? H ( P RF(E) DCTP30 YES!! DWT NOT IN TABLE t P CWR* A6,A4 IN TABLE ? P RF(E) DCTP40 YES !! P RB DCTP20 CHECK NEXT ENTRY PDCTP30 EQU
0x14955c…1496f0 Dummy {f00=0x0066, f01=0x0190, f02=»NT DC:TAB LENGTH z PDCTP40 EQU * P LDK A1,0 , PENDIO EQU * > $ P CF A15,TENDIO COMPLETE REQUEST R P RB DCRTN z P EJECT P* P* P* WRITE P* P* P* COMPLETE WHEN: P* SUCCESFUL TRANSMISSION
0x1496f0…149884 Dummy {f00=0x0066, f01=0x0190, f02=»EN ILLEGAL LENGTH P RF(G) IL:LEN YES!! P XIF 6 P CF A15,TIMEWR SET TIMER B P LDKL A2,/0100 b 8 P ORS A2,DWTREQ,A6 INDICATE WRITE REQUEST OUTSTANDING x & P CM DWTTRY,A6 CLEAR RETRY-COUNTER P RB DCRTN P EJECT P* P
0x149884…149a18 Dummy {f00=0x0066, f01=0x0190, f02=»DCRD EQU * P LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE 2 " P RF(Z) DCRD20 NOTHING IN QUEUE d ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P LDK A1,0 RESET RETURN CODE P ADK A4,6 " P LD
0x149a18…149bac Dummy {f00=0x0066, f01=0x018e, f02=» P LDK A1,0 P CF A15,TENDIO P RB DCRTN 0 $ PDCRD20 CF A15,TIMERE START TIMER B P RB DCRTN j P EJECT | P******************** P* P* SET REQUEST TIMEOUT VALUE P* P******************** P* PREQT
0x149bac…149d40 Dummy {f00=0x0066, f01=0x0190, f02=» P* P IFT MMUPAG=1 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH ( P ABL DISEND COMPLETE REQUEST d P XIF P* P* P EJECT P******************** P* P* TIMER HANDLING PART P* P****
0x149d40…149ed4 (1, 217) Dummy {f00=0x0066, f01=0x018e, f02=» A1,A6 , P LD A2,DWTTIM,A6 GET REQUEST TIME VALUE P RF(Z) TIME10 NO TIMING > P ST A2,TIMERR ^ P CF A15,SETIME t P DATA TOUTRE PTIMERR DATA 0 ( P ST A4,DWTTP,A6 STORE TIMER POINTER PTIME10 EQU * P RF GBUF10 RETURN TO
0x149ed4…14a068 Dummy {f00=0x0066, f01=0x0190, f02=» PTOUTRE EQU * P LDR A6,A1 FETCH DWT $ P CM DWTTP,A6 CLEAR TIMER POINTER 8 PTOUTR1 EQU * ` & P LDK A1,/40 INDICATE TIMEOUT ERROR t & P CM DWTREQ,A6 CLEAR REQUEST VECTOR $ PTOUTR2 RB ENDIO COMPLETE REQUEST P EJECT P* P
0x14a068…14a1fc Dummy {f00=0x0066, f01=0x018e, f02=» . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE P RB(Z) TIME10 NO TIMING 6 P ST A2,TIMWR V P CF A15,SETIME j P DATA TOUTWR PTIMWR DATA 0 P ST A4,DWTTP,A6 P RB TIME10 P* P******************** P* P* TIM
0x14a1fc…14a390 Dummy {f00=0x0066, f01=0x0190, f02=» P RB TOUTR1 ! P EJECT ! P* ! $ P* ! . P* STOP REQUEST TIMING ! 8 P* ! V & P* REMAINING TIME IS RETURNED IN A2 ! ` P* ! P* ! PCTIME EQU * ! P INH ! & P LD A2,DWTTP,A6 GET TIMER POINTER ! P RF(Z) CTIM10 NOT RUNNING ! "
0x14a390…14a524 Dummy {f00=0x0066, f01=0x0190, f02=» A5 ! P EJECT " P******************** " P* " 6 P* GET RECEIVE BUFFER " @ P* " ^ & P* CALLING SEQUENCE: CF A15,GRBUF " h P* " $ P* A4 = 0 IF NO AVAILABLE BUFFER " & P* ELSE A4 CONTAINS BUFFER ADDRESS " P* A2 AND A3 ARE DESTROYED
0x14a524…14a6b8 Dummy {f00=0x0066, f01=0x018e, f02=»2 " P RF(Z) GBUF10 NO FREE BUFFER # . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN # . P STR A3,A2 # ` * PGBUF10 ADKL A15,4 ADJUST STACK POINTER # r P ABR* A15 RETURN TO CALLER # P EJECT # P******************** # P* # & P* QUEUE ALLOCATED
0x14a6b8…14a84c Dummy {f00=0x0066, f01=0x0190, f02=» # PQRBUF EQU * $ $ P LDR A2,A6 QUEUE ON TERMINAL DWT $ , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE $ D PQR100 EQU * $ t P LDR* A3,A2 $ $ P RF(Z) QR200 END OF QUEUE FOUND $ P LDR A2,A3 $ P RB QR100 $ & PQR200 STR A4,A2 INSERT INTO QUEU
0x14a84c…14a9e0 Dummy {f00=0x0066, f01=0x0190, f02=»ESSAGE OR STATUS REQUEST CHANGE $ x , P* REGISTERS A1 - A4,A6,A8 ARE DESTROYED % ( P* % X P******************** % b P* % ~ PCKMESS LDKL A6,DW1300 % P LD A1,DWTST,A6 % P RF(N) CKM110 NO REQUEST % P LDK A1,2 READ REQUEST ? % P CW A1,DWT
0x14a9e0…14ab74 (1, 218) Dummy {f00=0x0066, f01=0x0190, f02=»Z) CKM200 NO READ IN QUEUE % 0 P LDR* A2,A3 A2 = ADDRESS TO NEXT READ BUFFER & " 0 P ST A2,DWTRQ,A6 STORE THIS ADDRESS ON QUEUE & V " P ADK A3,6 MOVE POINTER TO TEXT & , P ST A3,ECBBA,A8 SAVE THIS ADDRESS IN ECB & P LD A4,-4,A3 & . P ST A4,ECBEL,A8 STOR
0x14ab74…14ad08 Dummy {f00=0x0066, f01=0x0190, f02=»TURN CODE & ~ , P CF A15,DC:MIN MOVE DATA TO USER BUFFER ' PCKM110 RB GBUF10 RETURN ' B 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS ' b , P OR A1,DCONOF TAKE CARE OF POLL TIMEOUT ' P CW A1,DCSTOL ' P ST A1,DCSTOL ' & P RB(E) CKM110
0x14ad08…14ae9c Dummy {f00=0x0066, f01=0x0190, f02=» EJECT ' P******************** ( P* ( * P* ABORT ROUTINE ( 4 P* ( L P******************** ( V P* ( r * PABORT LD A2,DWTTP,A6 TIMER POINTER =3 ( | " P RF(Z) AB:10 NO TIMER RUNNING ( P CM* DWTTP,A6 KILL TIMER ( P CM DWTTP,A6 ( & PAB:1
0x14ae9c…14b030 Dummy {f00=0x0066, f01=0x0190, f02=»AB:RTN NO ACTION IF NOT READ/WRITE ( PAB:RTN EQU * ) * $ P ABL DISEND COMPLETE REQUEST =3 ) > P EJECT ) f P* ) t P* ) ~ P* STORE REGISTER A3-A8 ) $ P* CALLING SEQUENSE: CF A15,STREG ) P* ) P* RESTORE ) $ P* CALLING SEQUENCE: CF A15,LDR
0x14b030…14b1c4 Dummy {f00=0x0066, f01=0x0190, f02=»T A8,LCA8 ) P RF RTNA15 RETURN * P* * , P* * 6 P* * @ PLDREG EQU * * J P LDKL A3,0 * ^ PLCA3 EQU *-2 * p P LDKL A4,0 * PLCA4 EQU *-2 * P LDKL A5,0 * PLCA5 EQU *-2 * P LDKL A6,0 * PLCA6 EQU *-2 * P LDKL A7,0 * P
0x14b1c4…14b358 Dummy {f00=0x0066, f01=0x0190, f02=» P* + P* BASIC RECEIVE MODE + P* + , PBRM EQU * + 6 & P LDKL A5,STB LOAD STACKBASE TO A5 + H , P CF A5,CSYNCI START INPUT WITH SYN.DEF. + r P* + P* + , P* LOOK FOR SOH OR TWO CONSECUTIVE PAD:S + P* + PBRM100 EQU * + P CF
0x14b358…14b4ec Dummy {f00=0x0066, f01=0x0190, f02=» A2,PADP-SOH IS IT A PAD ? + P RB(NE) BRM100 NO , " P CF A5,READ READ A CHARACTER , < ( P SUK A2,PADP IS IT THE SECOND PAD ? , ` P RB(NE) BRM100 NO , P EJECT , P* , P* , * P* HALT INPUT CHECK IF THERE IS A POLL , P* , PBRM150 E
0x14b4ec…14b680 Dummy {f00=0x0066, f01=0x0190, f02=» P* - P* - * P* CHECK STATUS FROM THE CONTROL UNIT - P* - F PBRM160 EQU * - P P CF A5,READ READ A CHARACTER - d " P LD A1,DCSTCU CHECK OLD STATUS - , P RB(NZ) BRM150 STATUS CHANGED HALT INPUT - P RB BRM110 - P* - P* - P* T
0x14b680…14b814 (1, 219) Dummy {f00=0x0067, f01=0x0190, f02=» RB BRM160 CHECK STATUS - P EJECT . P* . . P* . 8 P* SOH RECEIVED . B P* . Z PBRM200 EQU * . d P LDK A7,0 CLEAR BCC . x " P CF A5,READP READ A CHARACTER . P RB(NZ) BRM160 PARITY ERROR . $ P CWK A2,EOT A QUIESCENT FRAME ? . P R
0x14b814…14b9a8 Dummy {f00=0x0067, f01=0x0190, f02=»RE CURRENT ID . . P ANK A2,/1F MASK THE POLL AND SELECT BITS / P CF A5,FINTER FIND DWT / H P LDR A3,A3 IS THERE A DWT ? / f P RB(Z) BRM160 NO / $ P ST A3,CURDWT STORE CURRENT DWT / P LD A3,TERID LOAD ID / P LDK A2,/1F / 0 P ANS A2,TERID
0x14b9a8…14bb3c Dummy {f00=0x0067, f01=0x0190, f02=» $ P ANK A3,/20 A POLL OR A SELECT ? 0 P RF(Z) SELECT A SELECT 0 , P EJECT 0 J P* 0 X P* 0 b P* POLL RECEIVED 0 l P* 0 P IM WPOLL INDICATE POLL 0 " P CF A5,CPTIM RESTART POLLTIMER 0 P RB BRM100 LOOK FOR TWO PADS 0 P* 0 P* 0
0x14bb3c…14bcd0 Dummy {f00=0x0067, f01=0x0190, f02=» RB(E) SELECT SKIP IT 0 P CWK A2,SOH AN SOH ? 1 P RB(NE) BRM160 NO 1 : P LDK A7,0 RESET BCC-COUNTER 1 T " P LD A6,CURDWT GET WORKING DWT 1 x $ P CF A5,READP IGNORE THE ADDRESS 1 P RB(NZ) BRM160 PARITY ERROR 1 ( P SUK A2,EOT A SELECT MESSAGE O
0x14bcd0…14be64 Dummy {f00=0x0067, f01=0x0190, f02=» 1 h P* 2 " P CF A5,READP READ A CHARACTER 2 P CWK A2,KNUL A TEXT ? 2 8 P RF(E) SELTXT YES 2 V P CWK A2,ACK AN ACK ? 2 p ( P RB(NE) BRM160 NO THE SAME FOR NAK 2 P* 2 P* 2 P* ACK OR ACK WITH TEXT 2 P* 2 " P CF A5,READP READ
0x14be64…14bff8 Dummy {f00=0x0067, f01=0x0190, f02=»TER 2 v P CWK A2,ETX AN ETX ? 3 ( P RF(NE) SELACT NO AN ACK WITH TEXT 3 ( P EJECT 3 T P* 3 b P* 3 l P* AN ACK 3 v P* 3 P CF A5,READP GET BCC 3 P ANK A7,PAD MASK BCC 3 P RB(NZ) BRM160 BCC ERROR 3 ( P LD A2,DWTREQ,A6 GET REQUEST V
0x14bff8…14c18c Dummy {f00=0x0067, f01=0x0190, f02=» 3 j " P LD A2,DWTOR,A6 GET THE ORDER 4 P SUK A2,/06 A WRITE ORDER ? 4 . P RB(NE) BRM160 NO 4 R P LDK A1,0 RETURN CODE 4 l $ P CF A15,TENDIO COMPLETE REQUEST 4 P RB BRM160 4 P* 4 P* 4 P* AN ACK WITH TEXT 4 P* 4 PSELACT EQU
0x14c18c…14c320 Dummy {f00=0x0067, f01=0x018e, f02=» SUK A2,/06 A WRITE ORDER ? 4 P RF(NZ) SELT10 NO 5 $ P LDK A1,0 RETURN CODE 5 > $ P CF A15,TENDIO COMPLETE REQUEST 5 P RF SELT10 5 P EJECT 5 P* 5 P* 5 P* A TEXT 5 P* 5 PSELTXT EQU * 5 * P CF A5,READP DON`'T TAKE ANY NOT
0x14c320…14c4b4 (1, 220) Dummy {f00=0x0067, f01=0x0190, f02=» " P CF A5,READP READ A CHARACTER 6 P SUK A2,STX AN STX ? 6 * P RF(NE) SELT90 NO 6 F P* 6 ` P* 6 j P* GET BUFFER 6 t P* 6 PSELT10 EQU * 6 * P LD A4,DCRBUF GET BUFFER CHAIN POINTER 6 P RF(NZ) SELT20 YES 6 , P LDK A3,3 NO BUFFER AVAI
0x14c4b4…14c648 Dummy {f00=0x0067, f01=0x018e, f02=»UFFER POINTER 6 ~ , P LD A2,TERID TERMINAL ID FIRST IN BUFFER 7 * P LDK A3,0 INITIATE LENGTH ACCUMULATOR 7 F P RF SELT35 STORE ID 7 t P EJECT 7 P* 7 P* 7 4 P* READ, CHECK AND STORE THE RECEIVED CHARACTERS 7 P* 7 PSELT30 EQU * 7 " P
0x14c648…14c7dc Dummy {f00=0x0067, f01=0x0190, f02=» 7 t $ P CWK A2,/5A ILLEGAL CHARACTER ? 8 P RB(G) SELT30 SKIP IT 8 0 P CWK A2,/20 SPACE ? 8 N P RB(L) SELT30 SKIP IT 8 j " P CWK A3,/10E BUFFER OVERFLOW ? 8 P RF(G) SELT50 SEND NAK 8 PSELT35 EQU * 8 P LDR A1,A4 GET BUFFER 8 * P ADR A1,A3
0x14c7dc…14c970 Dummy {f00=0x0067, f01=0x0190, f02=»CHARACTER 8 | P EJECT 9 P* 9 P* 9 * 2 P* READ AND CHECK BCC MOVE DATA TO USER BUFFER 9 4 P* 9 j PSELT40 EQU * 9 t P CF A5,READP READ BCC 9 ( P RF(NZ) SELT50 PARITY ERROR SEND NAK 9 P ANK A7,PAD MASK BCC 9 P RF(NZ) SELT50 BCC ERROR 9
0x14c970…14cb04 Dummy {f00=0x0067, f01=0x0190, f02=»T STATUS 9 ~ P RF(N) SELT70 NEGATIVE ORDER : P LDK A2,/02 LOAD READ ORDER : 4 " P CW A2,DWTOR,A6 A READ ORDER ? : X P RF(NE) SELT70 NO : ~ $ P LD A8,DWTECB,A6 GET ECB ADDRESS : P LD A3,SVRDL GET READ LENGTH : * P ST A3,ECBEL,A8 STORE EFFECTIVE LENG
0x14cb04…14cc98 Dummy {f00=0x0067, f01=0x0190, f02=»REST RETURN CODE : , P CF A15,DC:MIN MOVE DATA TO USER BUFFER ; P RF SELT90 ; H P EJECT ; Z P* ; h P* ; r P* NAK OR BUSY TO BE SENT ; | P* ; PSELT50 EQU * ; P LDK A3,2 NAK TO BE SENT ; PSELT60 EQU * ; 0 P ST A3,DWTREQ,A6 RESTORE
0x14cc98…14ce2c Dummy {f00=0x0067, f01=0x0190, f02=»A3,SVRDL GET READ LENGTH ; " P ST A3,-4,A4 STORE READ LENGTH < P SUK A4,6 GET BUFFER BASE < F * P CF A5,QRBUF QUEUE BUFFER FOR DC-TASK < h PSELT90 EQU * < P ABL BRM160 HALT IMPUT < P EJECT < P* < P* < P* WHAT'S TO BE SENT ? < P
0x14ce2c…14cfc0 Dummy {f00=0x0067, f01=0x0190, f02=»ST VECTOR < r " P RF(Z) TRNOTC SEND NO TRAFFIC = P LDR A4,A3 = 8 * P ANK A4,/07 ANY OF ACK, NAK OR BUSY ? = J , P RF(Z) TRTEXT NO BUT IT COULD BE A TEXT = x " P LDKL A2,ACKSP LOAD ACK+SPACE = P SUK A4,1 = P RF(Z) TRTSTA YES SEND ACK = " P LDKL
0x14cfc0…14d154 (1, 221) Dummy {f00=0x0067, f01=0x018e, f02=»* = P* > P* SEND ACK, NAK OR BUSY > P* > 4 PTRTSTA EQU * > > P ST A2,HEADER STORE THE CODE > R P CF A5,TRHEAD SEND HEADER > v P CF A5,TRETX SEND ETX + BCC > P LDKL A3,/FF00 > P ANS A3,DWTREQ,A6 > & P RF TREOT SEND EOT AND HALT
0x14d154…14d2e8 Dummy {f00=0x0067, f01=0x0190, f02=» > j & P RF(Z) TRNOTC NO SEND NO TRAFFIC ? * P LD A2,DWTTRY,A6 GET THE RETRY-COUNTER ? 2 P CWK A2,4 IS IT 4 ? ? ` P RF(NE) TRT100 NO SEND TEXT ? | $ P CF A5,CTIME STOP REQUEST TIMING ? * P CM DWTREQ,A6 CLEAR THE REQUEST VECTOR ? * P CM DWTTRY,A6 CLEA
0x14d2e8…14d47c Dummy {f00=0x0067, f01=0x0190, f02=»FFIC ? P* @ PTRNOTC EQU * @ $ P CF A5,TRSYNC START TRANSMITTER @ * P LDK A2,SOH LOAD AN SOH @ R P CF A5,WRITE SEND IT @ r & P RF TREOT SEND EOT AND HALT OUTPUT @ P EJECT @ P* @ P* @ P* SEND TEXT @ P* @ PTRT100 EQU * @
0x14d47c…14d610 Dummy {f00=0x0067, f01=0x0190, f02=» GET ECB @ P LD A3,ECBRL,A2 GET LENGTH A $ P RF(Z) TRT900 NUL LENGTH ERROR A 2 P IFF MMUPAG=0 A Z $ P LDKL A4,MMUBUF MMU WORK BUFFER A p P ST A4,ECBBA,A2 A . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER A P XIF A & P LD A4,ECBBA,A2 GET BUFFER
0x14d610…14d7a4 Dummy {f00=0x0067, f01=0x0190, f02=» P ADK A4,1 INCREMENT POINTER B " P ANK A2,PAD MASK THE CHARACTER B ( P CWK A2,/07 ILLEGAL CODE ? B N P RF(L) TRT300 YES SKIP IT B p $ P CF A5,WRITEP SEND THE CHARACTER B PTRT300 EQU * B P SUK A3,1 MORE TO SEND ? B P RB(NZ) TRT200 YES B & P
0x14d7a4…14d938 Dummy {f00=0x0067, f01=0x0190, f02=»CREMENT RETRY-COUNTER B & P RF TREOT SEND EOT AND HALT OUTPUT C P EJECT C H P* C V P* C ` P* REQUEST ERROR C j P* C PTRT900 EQU * C . P CF A5,CTIME CLEAR TIMEOUT REQUEST IF ANY C * P CM DWTREQ,A6 CLEAR THE REQUEST VECTOR C & P LDKL A1
0x14d938…14dacc Dummy {f00=0x0067, f01=0x0190, f02=» PTREOT EQU * D P LDK A2,EOT LOAD EOT D P CF A5,WRITE SEND IT D 4 P LDK A2,PAD LOAD PAD D P P CF A5,WRITE SEND IT D l P LDK A2,PAD LOAD PAD D P CF A5,WRITE SEND IT D P CF A5,CHALTO HALT OUTPUT D P ABL BRM D P EJECT D P* D
0x14dacc…14dc60 Dummy {f00=0x0067, f01=0x0190, f02=»VERHAD EQU * D " P CF A5,READP READ A CHARACTER E $ P XRK A2,KNUL THE NUL CHARACTER ? E : P RF(NZ) VERH10 NO E b " P CF A5,READP READ A CHARACTER E | $ P XRK A2,STX THE STX CHARACTER ? E P RF(NZ) VERH10 NO E " P CF A5,READP READ A CHARACTER E $
0x14dc60…14ddf4 (1, 222) Dummy {f00=0x0067, f01=0x0190, f02=»JECT E P* F P* F 0 P* TRHEAD * START OUTPUT AND TRANSMIT HEADER F P* F T PTRHEAD EQU * F ^ P CF A5,TRSYNC START OUTPUT F r P LDK A2,SOH LOAD THE SOH F P CF A5,WRITE SEND IT F P LDK A7,0 RESET BCC COUNTER F P LDK A2,/60 LOAD ADR
0x14ddf4…14df88 Dummy {f00=0x0067, f01=0x0190, f02=» A2,0 RESET A2 F P LC A2,HEADER+1 LOAD FC1 G P CF A5,WRITEP SEND IT G 6 P LDK A2,SP LOAD SPACE G T P CF A5,WRITEP SEND IT G r P LDK A2,STX LOAD THE STX G P CF A5,WRITEP SEND IT G P RTN A5 RETURN G P EJECT G P* G P* G 0 P*
0x14df88…14e11c Dummy {f00=0x0067, f01=0x0190, f02=» FOR INTERRUPT G P LDK A3,4 H PTRS100 EQU * H ( P LDK A2,SYN LOAD A SYN H < P CF A5,WRITE SEND IT H Z P SUK A3,1 H v P RB(NZ) TRS100 H P RTN A5 RETURN H P* H P* H P* TRETX * SEND ETX AND BCC H P* H PTRETX EQU * H
0x14e11c…14e2b0 Dummy {f00=0x0067, f01=0x0190, f02=»TURN H P EJECT I P* I P* I $ 6 P* CSYNCI * STOP INPUT SEND SYN-PATTERN FOR INPUT I . P* I h PCSYNCI EQU * I r P LD A2,PFPOST I $ P RF(NZ) CSYN:I WAIT FOR POWER UP I P CF A5,CHALTI HALT INPUT I & P ST A5,DCLCI SET INPUT ACRIVE FLAG I
0x14e2b0…14e444 Dummy {f00=0x0067, f01=0x0190, f02=»AD SYN I & P OTR A2,1,CHLCIN SEND SYN-PATTERN J P XIF J 8 P IFT P6805=0 J D $ P LDKL A2,CBCARR LOAD SYN-PATTERN J X 4 P CIO A2,1,CHLCIN START RECEIVER WITH SYN-PATTERN J P XIF J PCSYN:I EQU * J P RTN A5 RETURN J P* J P* J P* CHA
0x14e444…14e5d8 Dummy {f00=0x0067, f01=0x018e, f02=» " P CIO A2,0,CHLCIN HALT RECEIVER K & P CM DCLCI CLEAR INPUT ACTIVE FLAG K * P SST A2,CHLCIN READ STATUS K T P IFF LOGG=0 K v " P CF A5,LOGSST LOG INPUT STATUS K P XIF K P RTN A5 RETURN K P EJECT K P* K P* K " P* CSYNCO * START TR
0x14e5d8…14e76c Dummy {f00=0x0067, f01=0x0190, f02=» , P LDK A2,CBPARI LOAD PARITY CHECK FOR CU L P XIF L 4 & P CIO A2,1,CHLCUT START TRANSMITTER L @ P IFT P6805=1 SALCUZ L j P RF(A) CSYNC1 ACCEPTED L P SST A2,CHLCUT READ STATUS L " P ABL BRM NOT ACCEPTED TIMEOUT L PCSYNC1 EQU * L P LDK A2,
0x14e76c…14e900 Dummy {f00=0x0067, f01=0x0190, f02=» CHALTO * HALT OUTPUT L P* M PCHALTO EQU * M ( P IFT P6805=1 SALCUZ M < & P LDK A2,CBSTOP LOAD STOP FUNCTION M X P XIF M " P CIO A2,0,CHLCUT HALT RECEIVER M P IFT P6805=1 SALCUZ M " P CF A5,READ WAIT FOR INTERRUPT M P XIF M P SST A
0x14e900…14ea94 (1, 223) Dummy {f00=0x0068, f01=0x018e, f02=»1301 CF A15,SAVE8 SAVE A1 - A8 M * P CF A15,LDREG RESTORE DC REGS A3 - A8 N & P INR A2,0,CHLCIN READ CHAR N T , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS N v P IFF LOGG=0 N ( P CF A5,LOGIN LOG RECEIVED CHARACTER N P XIF N P LDR A1,A2 N * P ORK
0x14ea94…14ec28 Dummy {f00=0x0068, f01=0x0190, f02=» N PIHIN20 CF A5,SST PERFORM SST O P ABL BRM O , P* O < P* O F P* TRANSMITTER INTERRUPT O P P* O r P* O | $ PIH1302 CF A15,SAVE8 SAVE A1 - A8 O * P CF A15,LDREG RESTORE DC REGS A3 - A8 O P RB IHIN10 O P EJECT O P* O P*
0x14ec28…14edbc Dummy {f00=0x0068, f01=0x0190, f02=»G=1 O & P CF A5,LOGSST LOG SST INFORMATION P P XIF P 6 & P ANK A2,SBERR ANY ERROR BIT SET ? P B P RF(NZ) SST050 YES THERE IS P l P IFT P6805=1 SALCUZ P P RF SST225 P P XIF P P IFT P6805=0 P " P LD A2,DCLCI LOAD INPUT STATUS P ( P RF(
0x14edbc…14ef50 Dummy {f00=0x0068, f01=0x0190, f02=»TART INPUT AGAIN P ~ P RF SST125 TO DISPATCHER Q P XIF Q 8 P EJECT Q D PSST050 EQU * Q R P ANK A2,SBCARR CARRIER OFF ? Q f P RF(Z) SST075 NO Q " P LD A2,DCLCI LOAD INPUT STATUS Q 0 P RF(Z) SST125 NOT ACTIVE IGNORE CARRIER OFF Q P RF SST100 Q
0x14ef50…14f0e4 Dummy {f00=0x0068, f01=0x0190, f02=»DR A2,A1 Q P ANK A2,SBNOOP NOT OPERABLE R P RF(Z) SST200 NO R 4 P CF A15,STREG SAVE REGISTERS R L P CF A15,SETIME DELAY 1SEC R p P DATA SST150,10 R PSST125 EQU * R P ABL TDISP TO DISPATCHER R PSST150 EQU * R P CF A15,LDREG LOAD REG
0x14f0e4…14f278 Dummy {f00=0x0068, f01=0x018e, f02=»FF R x P RF(Z) SST250 YES S PSST225 EQU * S $ & P ST A1,DCSTCU STORE CURRENT STATUS S 8 " P CF A15,CKMESS STATUS CHANGE ? S b PSST250 EQU * S P RTN A5 RETURN S P EJECT S P* S P* S ( P* WRITEP * CALCULATE PARITY FOR A2 S P* S
0x14f278…14f40c Dummy {f00=0x0068, f01=0x018e, f02=» S P XRK A2,/80 T P RB WRIT10 T PWRIT20 EQU * T . P XRR A7,A2 ACCUMULATE BCC T B P* T d P* T n P* WRITE * WRITE A2 T x P* T PWRITE EQU * T . P OTR A2,0,CHLCUT SEND THE CHARACTER IN A2 T P RF(NA) READ NOT ACCEPTED T P I
0x14f40c…14f5a0 Dummy {f00=0x0068, f01=0x0190, f02=» PREAD EQU * U $ P CF A15,STREG SAVE THE REGISTERS U P ABL TDISP TO DISPATCHER U > P EJECT U ^ P* U l P* U v P* U P*** READP U P* U . P* READ CHARACTER TO A2 AND CHECK PARITY U P* U P* U PREADP CF A5,READ U P CWK
0x14f5a0…14f734 (1, 224) Dummy {f00=0x0068, f01=0x018e, f02=» RB(NN) RE100 U P XRK A2,/80 V P RB RE100 V * PRE110 LDR A1,A2 V < P ANK A2,/7F V T P XIF V h P IFT P6805=1 SALCUZ V t P LDK A1,/80 V P XIF V P ADKL A5,4 V P ANK A1,/80 V P XRR A7,A2 ACCUMULATE BCC V P XRK A1,/80 V
0x14f734…14f8c8 Dummy {f00=0x0068, f01=0x0190, f02=» $ P* CALLING SEQUENCE: CF A5,FINTER W P* A2=SUBTERMINAL ADDRESS W , P* A4 DESTROYED W L " P* A3#0: DWT TO FOUND TERMINAL W b P* W PFINTER EQU * W P LD A4,DCTAB W * P AD* A4,DCTAB ADDRESS TO END OF DCTAB W PFINT10 SUK A4,2 W P LDK A3,
0x14f8c8…14fa5c Dummy {f00=0x0068, f01=0x0190, f02=» , P CWR* A2,A3 COMPARE SUBTERMINAL ADDRESS X & P RB(NE) FINT10 TAKE NEXT TERMINAL X 4 PFINT20 RTN A5 X ^ P EJECT X t P* X P* X P* POWER ON FUNCTIONS X P* X P* X $ PDC13ON CF A15,SAVE8 SAVE A1 - A8 X P LDKL A5,STB INIT STACK X
0x14fa5c…14fbf0 Dummy {f00=0x0068, f01=0x0190, f02=»*** CLREQ : CLEAR PENDING REQUEST AT X : P* POWER ON,BY KILLING REQ. VECTOR Y 4 P* Y r P Y | PCLREQ EQU * Y P LD A4,DCTAB Y P AD* A4,DCTAB END OF TABLE Y * PCLRQ10 SUK A4,2 MAKE POINTER FOR DWTAD Y P CWK A4,DCTA
0x14fbf0…14fd84 Dummy {f00=0x0068, f01=0x0190, f02=» Y P LDKL A1,/2040 Z P CF A15,TENDIO Z P RB CLRQ10 Z 4 P LD A2,DCTPGP Z F P RF(NZ) CLRQ20 Z $ P CF A15,SPOTIM START POLL TIMER Z r PCLRQ20 RTN A5 Z P EJECT Z P********** Z P* Z 4 P* RESART POLL TIMER WHEN POLL HAS BEEN RECEIV
0x14fd84…14ff18 Dummy {f00=0x0068, f01=0x0190, f02=»IM1 NO Z , P AN A1,DCSTOL OLD STATUS POLL TIMEOUT ? [ P RF(Z) CPTIM2 NO [ > PCPTIM1 EQU * [ V P CM DCONOF INDICATE POLL [ j PCPTIM2 EQU * [ P LDKL A2,-TIMPOL [ P ST* A2,DCTPGP RESTART TIMER [ * P CF A15,CKMESS CHECK IF STATUS CHANGE [ P
0x14ff18…1500ac Dummy {f00=0x0068, f01=0x0190, f02=»TTIM START TIMER [ P DATA PTOUT,TIMPOL & P ST A4,DCTPGP STORE TIMER POINTER 2 P ADKL A15,4 P ABR* A15 p P EJECT P* P********** P* P* POLL TIMEOUT P* P********** P* ( PPTOUT LDKL A5,STB LO
0x1500ac…150240 Dummy {f00=0x0068, f01=0x0190, f02=»F A15,SPOTIM START POLL TIMER P ABL TDISP ] & P EJECT ] 8 P* ] F P* ] P P* INTERRUPT LOGGING ROUTINE ] Z P* ] ~ P* ] P IFF LOGG=0 ] PLOGSST ST A2,SAVE2 ] P ORKL A2,/F000 ] P RF LOG10 ] PLOGOUT ST A2,SAVE2 ] P ORKL
0x150240…1503d4 (1, 225) Dummy {f00=0x0068, f01=0x018e, f02=»PNT ] P STR A2,A3 ^ P ADK A3,2 ^ P CWK A3,LOGEND ^ 0 P RF(L) LOGEXI ^ F P LDKL A3,LOGSTA ^ PLOGEXI ST A3,LOGPNT ^ t P LD A2,SAVE2 ^ P LD A3,SAVE3 ^ PLOGE10 RTN A5 ^ P EJECT ^ P* ^ P* ^ PLOGPNT DATA LOGSTA ^
0x1503d4…150568 Dummy {f00=0x0068, f01=0x0190, f02=» ^ P******************** _ P* _ $ P* DC BUFFER POOL _ . P* _ H P******************** _ R P* _ n PRLINK EQU RBUFL+RBUFL+8 _ x P* _ PDCRBUF EQU * _ P DATA *+2 FREE BUFFER ANCHOR _ P IFF RBUFNR=2 _ P DATA *+RLINK _ P R
0x150568…1506fc Dummy {f00=0x0068, f01=0x0190, f02=» DATA 0 END OF CHAIN _ P RES RBUFL+3 ` P IFF MMUPAG=0 ` 0 P* ` F $ PMMUBUF RES TBUFL+1 MMU WORK AREA ` P P XIF ` x P EJECT ` P* ` P********** ` P* ` P* DEVICE WORK TASK ` P* FOR DC-TASK ` P* ` P********** ` P*
0x1506fc…150890 Dummy {f00=0x0068, f01=0x0190, f02=»DER ` * P DATA DC13DC POINTER TO ADDRESS BLOCK a P DATA 0 TTAB ADDRESS a : $ P DATA 0 WAIT/ACTIVATE INDICATOR a V P DATA 0 TASK QUEUE a ~ P IFT MMUPAG=1 a P DATA 0 USER ECB ADDRESS a P DATA DC:ECB MMU ECB ADDRESS a P XIF a P DATA 0 TI
0x150890…150a24 Dummy {f00=0x0068, f01=0x018e, f02=»ATA 0 REQUEST TIMEOUT VALUE a P DATA 0 REQUEST VECTOR b $ P DATA 0 RETRY COUNTER b B P IFT MMUPAG=1 b ` PDC:ECB EQU * MMU ECB b v P DATA 0,0,0,0,0,0 b P XIF b P EJECT b P* b P* b PDC:IN DATA DC:TAB+2 b P* b PDCTAB DA
0x150a24…150bb8 Dummy {f00=0x0068, f01=0x402c, f02=» b P* c P* c P END c @ c (REQUEST VECTOR b $ P DATA 0 RETRY COUNTER b B P IFT MMUPAG=1 b ` PDC:ECB EQU * MMU ECB b v P DATA 0,0,0,0,0,0 b P XIF b P EJECT b P* b P* b PDC:IN DATA DC:TAB+2 b P* b PDCTAB DA
0x150bb8…150d4c Dummy {f00=0x0068, f01=0x2008, f02=» d R P DATA 0 RETRY COUNTER S P IFT MMUPAG=1 S . PDC:ECB EQU * MMU ECB S D P DATA 0,0,0,0,0,0 S ` P XIF S z P EJECT S P* S P* S PDC:IN DATA DC:TAB+2 S P* S PDCTAB DATA DC:TAB S P* S " PDC:TAB DATA 2 LENGTH O
0x150d4c…150ee0 Dummy {f00=0x0068, f01=0x018e, f02=»Z) IHLCU3 THROUGHPUT ERROR d P* e " P* MODEM NOT OPERABLE e , P* e H , P CF A15,STREGO SAVE REGISTERS 79-03-27 e R , P CF A15,SETIME START TIMER 79-03-27 e , P DATA IHLCU5,10 79-03-27 e ( P ABL TDISP DISPATCH 79-03-27 e
0x150ee0…151074 (1, 226) Opaque[0x194]
0x151074…151208 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0d18, f03=0x0000}
0x151074…151208 IdxSect {
0x151074…151208 f00 = 0x0068 // 0x151074 @0x0
0x151074…151208 f01 = 0x003e // 0x151076 @0x2
0x151074…151208 gno = [ // 0x151078 @0x4
0x151074…151208 [0x00]: C0x0068.0x3.0
0x151074…151208 [0x01]: C0x0069.0x0.0
0x151074…151208 [0x02]: C0x0069.0x1.0
0x151074…151208 [0x03]: C0x0069.0x2.0
0x151074…151208 [0x04]: C0x0069.0x3.0
0x151074…151208 [0x05]: C0x006a.0x0.0
0x151074…151208 [0x06]: C0x006a.0x1.0
0x151074…151208 [0x07]: C0x006a.0x2.0
0x151074…151208 [0x08]: C0x006a.0x3.0
0x151074…151208 [0x09]: C0x006b.0x0.0
0x151074…151208 [0x0a]: C0x006b.0x1.0
0x151074…151208 [0x0b]: C0x006b.0x2.0
0x151074…151208 [0x0c]: C0x006b.0x3.0
0x151074…151208 [0x0d]: C0x006c.0x0.0
0x151074…151208 [0x0e]: C0x006c.0x1.0
0x151074…151208 [0x0f]: C0x006c.0x2.0
0x151074…151208 [0x10]: C0x006c.0x3.0
0x151074…151208 [0x11]: C0x006d.0x0.0
0x151074…151208 [0x12]: C0x006d.0x1.0
0x151074…151208 [0x13]: C0x006d.0x2.0
0x151074…151208 [0x14]: C0x006d.0x3.0
0x151074…151208 [0x15]: C0x006e.0x0.0
0x151074…151208 [0x16]: C0x006e.0x1.0
0x151074…151208 [0x17]: C0x006e.0x2.0
0x151074…151208 [0x18]: C0x006e.0x3.0
0x151074…151208 [0x19]: C0x006f.0x0.0
0x151074…151208 [0x1a]: C0x006f.0x1.0
0x151074…151208 [0x1b]: C0x006f.0x2.0
0x151074…151208 [0x1c]: C0x006f.0x3.0
0x151074…151208 [0x1d]: C0x0070.0x0.0
0x151074…151208 [0x1e]: C0x0070.0x1.0
0x151074…151208 ]
0x151074…151208 }
0x151208…15139c Dummy {f00=0x0068, f01=0x0190, f02=» 0 P IDENT DRDC15 REL 11.0 81-05-21 870105041100 P 8 * P =13, ERRONEOUS DISCARD DWT HANDLING @ 0 P =12, SUB-ADDR IN CW2 AT RECEIVE REQ COMPL n P REL 11.0 81-05-12 $ P =11, PROCEDURE TIMER PROBLEM P =10, EOT ON SPECIFIC POLL $
0x15139c…151530 Dummy {f00=0x0068, f01=0x0190, f02=» t P REL 11.0 81-04-07 ( P =6, ERROR IN POLL TIMER HANDLING $ $ P =5, WRONG STATISTIC HANDLING P P REL 11.0 81-03-27 x P =4, ERROR IN POWER UP ( P =3, DELETE INSTRUCTIONS NOT USED $ P =2, CHANGES IN STATUS HANLING ( P
0x151530…1516c4 Dummy {f00=0x0068, f01=0x0190, f02=»* d P* $ P* PHILIPS TERMINAL SYSTEM PTS P* < * P* DRDC15: DRIVER DATA COMMUNICATION F . P* BSC MULTIPOINT LINE PROCEDURE t P* OR SIEMENS MSV1 P* P* P* P* P* 8 P************
0x1516c4…151858 Dummy {f00=0x0068, f01=0x0190, f02=»BLOCK TERMINAL REQUESTS z " P ENTRY IH1501 INPUT INTERRUPT " P ENTRY IH1502 OUTPUT INTERRUPT F " P ENTRY DC15ON POWER ON ROUTINE l P ENTRY DW1500 DUMMY DWT P* P EJECT P* P* P* EXTERNAL REFERENCES P* " P E
0x151858…1519ec Dummy {f00=0x0068, f01=0x0190, f02=»T TIMER P EXTRN DWTCHP DWT ADDRESS P EXTRN DWTST DWT STATUS 2 P EXTRN DWTOR DWT ORDER R P EXTRN DWTECB DWT ECB p P EXTRN DWTOPT OPTION CODE " P EXTRN DWTUEC USER ECB IF MMU P EXTRN DWTMEC MMU ECB P EXTRN ECBFC FILE CO
0x1519ec…151b80 Dummy {f00=0x0068, f01=0x0190, f02=»CONTROL WORD 1 P EXTRN ECBCW2 CONTROL WORD 2 P EXTRN GETSSA : * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P ( P EXTRN TEBCDIC ASCII TO EBCDIC TABLE ~ ( P EXTRN TASCII EBCDIC TO ASCII TABLE . P EXTRN DCSRED READ STATISTICS ENTRY POINT : P
0x151b80…151d14 (1, 227) Dummy {f00=0x0069, f01=0x0190, f02=»A VALIDATE AND CONVERT SYMBOLIC DTE ADDR 8 P EXTRN GETSNA VALIDATE AND CONVERT SYMBOLIC SUB ADDR 0 * P EXTRN DC:MIN MOVE DATA TO USER BUFFER l , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH * P EXTRN PFP
0x151d14…151ea8 Dummy {f00=0x0069, f01=0x0190, f02=» P* REGISTER USAGE: P* P* A1 WORK (RETURN CODE) ( P* A2 WORK H P* A3 WORK (BUFFER LENGTH) Z P* A4 WORK (BUFFER POINTER) | P* A5 DRIVER STACK POINTER P* A6 DWT ADDRESS $ P* A7 ORDER CODE, DTETAB ADDRESS P* A8 ECB
0x151ea8…15203c Dummy {f00=0x0069, f01=0x0190, f02=»*************************************** P* 0 * P* PARAMETERS FOR CONDITIONAL ASSEMBLY : P* h P* r & PX:A EQU 1000 RECEIVE BUFFER LENGTH | PRBUFL EQU X:A $ PX:B EQU 0 IF 1 INTERRUPT LOGGING PLOGG EQU X:B " PX:C EQU 600 POLL
0x15203c…1521d0 Dummy {f00=0x0069, f01=0x0190, f02=»ANDLING IF=1 x PRCOM EQU X:E & PX:F EQU 254 TRANSMIT BLOCK LENGTH ( PTBLEN EQU X:F R ( PX:G EQU 0 CODE , 0=ASCII , 1=EBCDIC h PCODE EQU X:G * PX:H EQU 0 IF 1 SPECIFIC POLL HANDLING PSPECP EQU X:H , PX:I EQU 0 IF = 1 LINE SPEED
0x1521d0…152364 Dummy {f00=0x0069, f01=0x0190, f02=» EQU X:J . PX:K EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) PRBUFNR EQU X:K B . PX:L EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ X PP6805 EQU X:L PX:M EQU /02 P IFT P6805=0 , PLCUIN EQU X:M DEVICE ADDRESS OF RECEIVER P XIF P IFT
0x152364…1524f8 Dummy {f00=0x0069, f01=0x0190, f02=»SS OF TRANSMITTER SALCUZ p P XIF SALCUZ P IFT P6805=1 6 < PLCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER SALCUZ J P XIF SALCUZ PX:N EQU 0 . PIBMCHR EQU X:N IF 1 IBM CHARACTER HANDLING . PX:O EQU 0 IF 1 MESSAGE PASSING TO DC
0x1524f8…15268c Dummy {f00=0x0069, f01=0x0190, f02=»DE EQU X:Q IF = 1 TRANSPARANT MODE PX:R EQU 0 * . PSTTSTS EQU X:R IF = 1 STATISTICS INCLUDED < PX:S EQU 500 n $ PTBUFL EQU X:S MMU BUFFER LENGTH * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION , PDMRK EQU 0 SPECIAL CONDITION FOR DENMARK 4 P
0x15268c…152820 Dummy {f00=0x0069, f01=0x0190, f02=»E SET TO "ONE". t P =2 P & PREMTIM EQU 0 =9 . 2 P IF = 1 THE REMAINING TIME UNTIL TIMEOUT =9 F 0 P IS DELIVERED IN ECBCW1 AT COMPLETION =9 | & P OF SEND AND RECEIVE REQUESTS =9 P* P IFT SPEED=1 PLSPEED EQU /0200
0x152820…1529b4 (1, 228) Dummy {f00=0x0069, f01=0x0190, f02=»*********** r P* P* CONDITIONAL ASSEMBLY P* < . P***************************************** F P* x . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P*
0x1529b4…152b48 Dummy {f00=0x0069, f01=0x0190, f02=» EQU 1 P* 0 PDEVIND EQU 0 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER SIZE L P* z P EJECT * * &************************************** * 2 -* DCDEFS COMMON DEFS FOR DC DRIVERS/PACKAGES
0x152b48…152cdc Dummy {f00=0x0069, f01=0x0190, f02=»D PACKET LAYOUTS * , '*************************************** " R EJECT f J P********************************************************************** t * * DWT, DEVICE WORK TABLE * L P******************
0x152cdc…152e70 Dummy {f00=0x0069, f01=0x0190, f02=» P* ................... P* 2 . DWTST . & P* ................... H P* 4 . DWTECB . j P* ................... P* 6 . DWTOPT . DWTOR . P* ................... P* 8 . DWTADR
0x152e70…153004 Dummy {f00=0x0069, f01=0x0190, f02=» . z P* ................... P* 14 . DWTTQ . . P* ................... P , P* (16). DWTUEC . IF MMUPAG r P* ................... , P* (18). DWTMEC . IF MMUPAG P* ..............
0x153004…153198 Dummy {f00=0x0069, f01=0x0190, f02=»................. P* +6 . DWTCHN . P* ................... < P* +8 . DWTLAD . ^ P* ................... P* +10 . DWTRAD . P* ................... P* +12 . DWTDR1/SUB . P
0x153198…15332c Dummy {f00=0x0069, f01=0x0190, f02=»* ................... P* +18 . DWTRTP . " P* ................... D P* +20 . DWTOPE . f P* ................... P* +22 . DWTOPN . P* ................... P* +24 . DWTIPC .
0x15332c…1534c0 Dummy {f00=0x0069, f01=0x0190, f02=» v P* / DRIVER DEPEND / P* / / * P* / / L P* ................... n 8 P* . STATISTIC . IF STAT AND DWTSTB /=0 P* / BUFFER / P* ...................
0x1534c0…153654 (1, 229) Dummy {f00=0x0069, f01=0x018e, f02=» A C E M E N T S ~ P* > P********************************************************* " P* d PDWTTQ EQU /0E TERMINAL QUEUE n P IFT MMUPAG=0 6 PDWTDRD EQU DWTTQ+2 START OF DRIVER DEPENDENT AREA P XIF P IFT MMUPAG=1 6 PDWTD
0x153654…1537e8 Dummy {f00=0x0069, f01=0x0190, f02=» 2 PDWTCHD EQU DWTDRD+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 p 4 PDWTRAD EQU DWTDRD+8 REMOTE SYMBOLIC DTE ADDRESS * PDWTDR1 EQU DWTDRD+10 DRIVER DEP WORD 1
0x1537e8…15397c Dummy {f00=0x0069, f01=0x0190, f02=»ALUE l . PDWTRTP 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 2 PDWTIPC EQU DWTDRD+22 I/P DATA Q LINK TO BUFFER 0 PDWTIPT EQU DWTDRD+
0x15397c…153b10 Dummy {f00=0x0069, f01=0x018e, f02=»QU DWTDRD+30 DWT STATUS EJECT J P********************************************************************** . * | P* DTE, DTE CONTROL TABLE * L P************************************************************************ *
0x153b10…153ca4 Dummy {f00=0x0069, f01=0x0190, f02=» P* ................... P* 4 . DTEECB . & P* ................... H P* 6 . DTEOPT . DTEOR . j P* ................... P* 8 . DTEADR . P* ................... P* 10 . DTETAB
0x153ca4…153e38 Dummy {f00=0x0069, f01=0x0190, f02=» . z P* ................... , P* (16). DTEUEC . IF MMUPAG . P* ................... ^ , P* (18). DTEMEC . IF MMUPAG P* ................... $ P* DTEDRD +2 . DTESTB . $ P* .
0x153e38…153fcc Dummy {f00=0x0069, f01=0x018e, f02=»................. P* +8 . DTELAD . P* ................... < P* +10 . . ^ P* / DRIVER DEPEND / P* / / P* / / P* ................... 8 P
0x153fcc…154160 Dummy {f00=0x0069, f01=0x0190, f02=» PDTETQ EQU 14 PDTEUEC EQU DTETQ+2 PDTEMEC EQU DTEUEC+2 2 P N P IFT MMUPAG=0 V 2 PDTEDRD EQU DTETQ+2 START OF DC DEPENDENT AREA l P XIF P IFT MMUPAG=1 2 PDTEDRD EQU DTEMEC+2 START OF DC DEPENDENT AREA P XIF D PDT
0x154160…1542f4 (1, 230) Dummy {f00=0x0069, f01=0x0190, f02=»TEDRD+4 CONFIG CHAIN LINK NEXT DTE 2 PDTELAD EQU DTEDRD+6 LOCAL SYMBOLIC DTE ADDRESS * P* DRIVER DEPENDENT ` , PDTEPLS EQU DTEDRD+8 PHYSICAL LINK STATUS z * PDTEDLS EQU DTEDRD+10 DATA LINK STATUS $ PDTESTA EQU DTEDRD+12 DTE STATUS ( PDTEDWT E
0x1542f4…154488 Dummy {f00=0x0069, f01=0x0190, f02=»ESERVED FOR SYMBOLIC ID z . PSTWCST EQU DTEDRD+20 COUNTER STATUS INDEX * PSTWMIX EQU DTEDRD+22 MAX COUNTER INDEX R " PSTWCTA EQU DTEDRD+24 COUNTERS P EJECT J P********************************************************************** P*
0x154488…15461c Dummy {f00=0x0069, f01=0x0190, f02=»********************************* r P* * * PCSRCON EQU /01 CONNECTIONS ESTABLISHED 4 4 PCSRCBY EQU /02 CONNECTION NOT ESTABLISHED - BUSY b $ PCSRMSR EQU /03 MESSAGES RECEIVED & PCSRCHR EQU /C5 CHARACTERS RECEIVED ( PCSRMST EQU /06 MESSAGES TRAN
0x15461c…1547b0 Dummy {f00=0x0069, f01=0x0190, f02=» ERROR & PCSRTRE EQU /0C TRANSMISSION ERROR ! & PCSRXC1 EQU /0D PROTOCOL DEPENDENT ! 8 P* ! b P* LINK LEVEL COUNTERS ! l P ! . PCSSRBL EQU /10 SYNCH DATA BLOCKS RECEIVED ! : PCSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY ! > PCSSR
0x1547b0…154944 Dummy {f00=0x0069, f01=0x0190, f02=» " DATA BLOCKS REJECTED PARITY ERROR ! 0 PCSSTBL EQU /15 " DATA BLOCKS TRANSMITTED " . 2 PCSSTRT EQU /16 " DATA BLOCKS RETRANSMITTED " b , PCSSTAB EQU /17 " DATA BLOCKS ABORTED " 4 PCSSXC1 EQU /18 NBR OF REPLY REQUESTS TRANSMITTED " & PCSSXC2 E
0x154944…154ad8 Dummy {f00=0x0069, f01=0x0190, f02=»E LEVEL COUNTERS " P # $ PCSCDTE EQU /28 DTE NOT OPERABLE # " ( PCSCDIT EQU /29 I/P THROUGHPUT ERROR # J ( PCSCDOT EQU /2A O/P THROUGHPUT ERROR # v $ PCSCDCE EQU /2B DCE NOT OPERABLE # * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT # PCSCXC2 EQU /2D
0x154ad8…154c6c Dummy {f00=0x0069, f01=0x0190, f02=») # P* $ POPEN EQU /21 OPEN $ PCLOSE EQU /22 CLOSE $ . " PCONPAS EQU /27 CONNECT PASSIVE $ J PDISCO EQU /2F DISCONNECT $ p PRECEIVE EQU /02 RECEIVE $ PSEND EQU /06 SEND $ PRSTAT EQU /00 READ STATUS $ PSSTAT EQU /38 SET STATUS $
0x154c6c…154e00 Dummy {f00=0x0069, f01=0x0190, f02=»/4343 RESET STATISTICS AFTER READ =5 $ P EJECT % , P* % : > P********************************************************** % D P* % . P* S O F T W A R E R E T U R N C O D E S % P* % > P********************************************************** %
0x154e00…154f94 (1, 231) Dummy {f00=0x006a, f01=0x0190, f02=»ABRT EQU /4000 REQUEST ABORTED % PR:2 EQU /2000 & & PR:3 EQU /1000 & < J P*--------------------------------------------------------------------- & R PR:4 EQU /0800 & PR:5 EQU /0400 & PR:6 EQU /0200 & , PR:DATA EQU /0100 DATA AVAILABLE (QUEUE
0x154f94…155128 Dummy {f00=0x006a, f01=0x0190, f02=» & v PR:10 EQU /0020 ' " PR:SEQ EQU /0010 SEQUENCE ERROR ' J P*--------------------------------------------------------------------- ' D $ PR:LGTH EQU /0008 ILLEGAL LENGTH ' PR:13 EQU /0004 ' . PR:LOGC EQU /0002 LOGICAL CONNECTION ERROR ' . PR:PHYC
0x155128…1552bc Dummy {f00=0x006a, f01=0x0190, f02=»JECT ' P* ( < P******************************************************** ( P* ( V . P* H A R D W A R E R E T U R N C O D E S ( ` P* ( > P*********************************************************= ( P* ( L P*-------------------------------
0x1552bc…155450 Dummy {f00=0x006a, f01=0x0190, f02=»*---------------------------------------------------------------------- ( PH:4 EQU /0800 ) P PH:5 EQU /0400 ) f PH:6 EQU /0200 ) | PH:7 EQU /0100 ) L P*---------------------------------------------------------------------- ) PH:8 EQU /0080 )
0x155450…1555e4 Dummy {f00=0x006a, f01=0x0190, f02=»------------------- ) ^ PH:12 EQU /0008 * " PH:PARI EQU /0004 PARITY ERROR * 2 & PH:THRU EQU /0002 THROUGHPUT ERROR * X " PH:NOOP EQU /0001 NOT OPERABLE * L P*---------------------------------------------------------------------- * P EJECT * >
0x1555e4…155778 Dummy {f00=0x006a, f01=0x0190, f02=»************************************************** * P* + : & PSF EQU X'1D' START FIELD CHARACTER + D PSYN EQU /16 + n PSTX EQU /02 + PETX EQU /03 + PETB EQU /17 + PITB EQU /1F + PSOH EQU /01 + PENQ EQU /05 + PDLE EQU /10 +
0x155778…15590c Dummy {f00=0x006a, f01=0x018e, f02=» /36 + P EJECT , P IFT CODE=0 , PPAR EQU /80 , . PRVI EQU /3C , B PACK0 EQU /30 , V PACK1 EQU /31 , j PDC1 EQU /11 , ~ P IFT MSV1=0 , PWACK EQU /3B , P XIF , P IFT CODE=0 , P IFT MSV1=1 , 0 PWACK EQU /BF =WABT - SIEME
0x15590c…155aa0 Dummy {f00=0x006a, f01=0x0190, f02=» PACK1 EQU /2F - PSYNEBC EQU /32 - PENQEBC EQU /2D - . PETBEBC EQU /26 - D P XIF - Z P IFT P6805=0 - f PENQPAR EQU ENQ+PAR - z PRVIPAR EQU RVI+PAR - PACKPAR EQU ACK0+PAR - P XIF - P IFT P6805=1 - PENQPAR EQU ENQ - PRVIPAR E
0x155aa0…155c34 (1, 232) Dummy {f00=0x006a, 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
0x155c34…155dc8 Dummy {f00=0x006a, 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
0x155dc8…155f5c Dummy {f00=0x006a, 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
0x155f5c…1560f0 Dummy {f00=0x006a, 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
0x1560f0…156284 Dummy {f00=0x006a, 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**
0x156284…156418 Dummy {f00=0x006a, 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
0x156418…1565ac Dummy {f00=0x006a, 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****************************************************
0x1565ac…156740 Dummy {f00=0x006a, 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
0x156740…1568d4 (1, 233) Dummy {f00=0x006a, f01=0x0190, f02=», TABLE ADDRESS TO STACK 5 r 0 P DATA TREQX,RTREQ LAST ENTRY; ERROR ADDRESS 6 ( P DATA RECEIVE,RQRECE RECEIVE REQUEST 6 T " P DATA SEND,RQSEND SEND REQUEST 6 " P DATA OPEN,RQOPEN OPEN REQUEST 6 $ P DATA CLOSE,RQCLOS CLOSE REQUEST 6 . P DATA CONPAS,RQCON C
0x1568d4…156a68 Dummy {f00=0x006a, f01=0x0190, f02=»T SET STATUS REQUEST 6 , P DATA STIMOT,RQTIME SET REQUEST TIMEOUT 7 : PTREQX DATA STATIS,RQSTAT READ/RESET STATISTICS REQUEST 7 L P EJECT 7 P* 7 P* 7 P* OPEN REQUEST 7 P* 7 P* ACTIVATION PARAMETERS: 7 $ P* SYMBOLIC DTE-ADDRESS (ECB
0x156a68…156bfc Dummy {f00=0x006a, f01=0x0190, f02=» 7 n P* 8 PRQOPEN EQU * 8 . P LD A1,ECBCW2,A8 GET SYMBOLIC DTE-ADDRESS 8 & $ P LD A2,DTESTA,A7 GET DTE STATUS 8 X ( P ADR A2,A2 WORD ALIGNED INDEX VALUE 8 , P ABI RQOPTB,A2 BRANCH ON INDEX IN TABLE 8 & PRQOPTB DATA RQOP20 CLOSED/INACTIVE 8 " P D
0x156bfc…156d90 Dummy {f00=0x006a, f01=0x018e, f02=» SAME AS THE ONE WHO OPENED ? 8 P RF(E) RQOP90 YES - OK 9 & PRQOP15 EQU * 9 D & P ABL RTSEQ RETURN: SEQUENCE ERROR 9 X P* 9 PRQOP20 EQU * 9 & P IM DTESTA,A7 SET OPEN IN PROGRESS 9 . P ST A1,DTELAD,A7 SAVE SYMBOLIC DTE ADDRESS 9 2 P LDR A2,A7 A
0x156d90…156f24 Dummy {f00=0x006a, f01=0x0190, f02=» P CM DTELAD,A7 CLEAR DTE ADDR : " P CM DTESTA,A7 CLEAR DTE STATUS : ( $ P ABL RTREQ RETURN: REQUEST ERROR : N P* : v PRQOP80 EQU * : P IFT CODE=1 : & P LDR* A2,A7 DTE ADDRESS IN EBCDIC : P LDR A1,A2 : P ANK A2,/FF : P RF(Z) RQOP30 ON
0x156f24…1570b8 Dummy {f00=0x006a, f01=0x0190, f02=» P LC A2,TASCII,A1 ; * P STR A2,A7 SAVE ASCII VALUE IN DTETAB ; P XIF ; J P =1 ; V P ABL DTE:ON CONNECT MODEM ; d PRQOP90 EQU * ; * P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ? ; P ABL(NZ) RTOK YES RETURN OK ; * P ABL RTPHYC RETURN PHYSICAL
0x1570b8…15724c Dummy {f00=0x006a, f01=0x0190, f02=»L ; t 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 GET
0x15724c…1573e0 Dummy {f00=0x006a, f01=0x0190, f02=»(NE) RTREQ RETURN: REQUEST ERROR < PRQCL20 EQU * = ( $ P LD A2,DTESTA,A7 GET DTE STATUS = < P ABL(Z) RTOK RETURN : OK = d P SUK A2,2 DTE OPENED ? = * P ABL(NZ) RTSEQ RETURN: SEQUENCE ERROR = $ P IM DTESTA,A7 CLOSE IN PROGRESS = ( P LDR A8,A6 SAVE
0x1573e0…157574 (1, 234) Dummy {f00=0x006a, f01=0x0190, f02=»L50 = " P LDR A5,A5 CONDITIONAL CLOSE ? > P RF(N) RQCL95 YES ! > 2 , P LD A2,DWTCHN,A6 GET POINTER TO NEXT DWT > N . P ST A2,DTEDDT,A7 DISCARD DWT ADDR REMOVED > ~ P RF RQCL60 > PRQCL50 EQU * > P XIF > " P LD A6,DTEDWT,A7 GET DWT ADDR > " P
0x157574…157708 Dummy {f00=0x006a, f01=0x0190, f02=»NEXT DWT IN CHAIN > p 0 P ST A2,DTEDWT,A7 DWT FIRST IN QUEUE REMOVED ? P IFT MESPAS=1 ? N PRQCL60 EQU * ? d P XIF ? x 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 CWR A
0x157708…15789c Dummy {f00=0x006a, f01=0x0190, f02=»E NEXT DWT ? | 6 P LDK A1,R:SEQ COMPLETE REQUEST WITH SEQUENCE ERROR @ PRQCL80 EQU * @ L ( P CF A15,TENDIO COMPLETE THE REQUEST @ ` " P RB RQCL40 TAKE NEXT ON QUEUE @ PRQCL90 EQU * @ P =1 @ & P LDR A6,A8 GET REQUESTING DWT ADDR @ ( P LD A8,DWT
0x15789c…157a30 Dummy {f00=0x006a, f01=0x0190, f02=»IO COMPLETE CLOSE REQUEST =1 @ PRQCL92 EQU * =1 A $ P IFT P6805=0 =1 A < P LDKL A5,STB =1 A T $ P CF A5,CHALTI HALT I/P DEVICE =1 A l $ P CF A5,CHALTO HALT O/P DEVICE =1 A P LDK A2,0 =1 A ( P CIO A2,1,LCUIN DISCONNECT MODEM =1 A P XIF =1
0x157a30…157bc4 Dummy {f00=0x006a, f01=0x0190, f02=» A7 REMOVE NETWORK ADDRESS =1 A " P CM DTESTA,A7 CLEAR STATUS =1 B & * P LD A1,DCTPGP POLL TIMER RUNNING ? =6 B L P RF(Z) RQCL94 NO =6 B z P CM* DCTPGP KILL TIMER =6 B P CM DCTPGP CLEAR POINTER =6 B PRQCL94 EQU * =6 B , P CM DTEDLS,A7 INDICA
0x157bc4…157d58 Dummy {f00=0x006a, f01=0x0190, f02=» A6,A8 RESTORE DWT ADDRESS B P ABL RTSEQ SEQUENCE ERROR C " P EJECT C D P* C R P* CONNECT PASSIVE REQUEST C P* C ~ P* ACTIVATION PARAMETERS: C : P* - SYMBOLIC SUBADDRESS (RIGHTMOST BYTE IN ECBBA-BFR) C & P* - DEVICE ADDRESSES IN ECBBA-BFR
0x157d58…157eec Dummy {f00=0x006a, f01=0x0190, f02=»DDRESS AS PER OPEN REQUEST C ~ . P* 2. VERIFY & CONVERT SUBTERMINAL ADDRESS D " , P* 3. VERIFY AND STORE DEVICE ADDRESSES D T $ P* 4. LINK CALLING DWT TO QUEUE D P* D PRQCON EQU * D & P LD A2,DTELAD,A7 SYMBOLIC DTE-ADDR D " P CW A2,ECBCW2,A8 COR
0x157eec…158080 Dummy {f00=0x006a, f01=0x0190, f02=»Z) RTSEQ NO, RETURN: SEQUENCE ERROR D $ P LD A2,DWTSTA,A6 GET DWT STATUS E , " P SUK A2,2 ALREADY CONNECTED ? E T . P ABL(Z) RTSEQ YES, RETURN: SEQUENCE ERROR E z P IFT MESPAS=1 =13 E P LDK A2,/40 OPTION CODE =13 E & P CC A2,DWTOPT,A6 DISCARD DWT ?
0x158080…158214 (1, 235) Dummy {f00=0x006b, f01=0x018e, f02=» 0 P RF(NZ) RQCN50 MORE THAN ONE DISC. DWT ? =13 F 8 P ST A6,DTEDDT,A7 SAVE POINTER TO TO DISCARD DWT =13 F 8 P RF RQCN60 =13 F t PRQCN10 EQU * =13 F P XIF =13 F P IFF MMUPAG=0 F & P LDKL A4,MMUBUF MMU BUFFER ADDRESS F P ST A4,ECBBA,A8
0x158214…1583a8 Dummy {f00=0x006b, f01=0x0190, f02=» P LDK A2,0 RESET A2 G & P LCR A2,A4 GET SELECT SUB-ADDRESS G ( P SC A2,DWTSUB,A6 SAVE IT IN THE DWT G H . P LD A1,ECBCW2,A8 GET SYMBOLIC DTE-ADDRESS G t 6 P CF A15,GETSNA VALIDATE AND TRANSLATE THE SUB-ADDR G P LDR A1,A1 IS IT OK ? G P RF(NN) RQ
0x1583a8…15853c Dummy {f00=0x006b, f01=0x0190, f02=» LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII G P XIF H 6 P IFT MSV1=1 H B * P SC A1,DWTCHP,A6 SAVE NETWORK ADDRESS H V P XIF H ( P LC A2,1,A4 GET SYMBOLIC ADDRESS =8 H * P SC A2,DWTSUB+1,A6 SAVE IT IN THE DWT H . P LD A1,ECBCW2,A8 GET SYMBOLIC
0x15853c…1586d0 Dummy {f00=0x006b, f01=0x0190, f02=» IS IT OK ? H P RF(NN) RQCN30 YES I $ P CM DWTSUB,A6 CLEAR SUB-ADDRESS I . $ P CM DWTLAD,A6 CLEAR DTE ADDRESS I V $ P ABL RTREQ RETURN REQUEST ERROR I ~ PRQCN30 EQU * I P IFT CODE=1 I 2 P LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII I P XIF
0x1586d0…158864 Dummy {f00=0x006b, f01=0x0190, f02=» LINK DWT TO CONFIGURATION CHAIN I P* J ( P =13 J 2 PRQCN40 EQU * J B . P LD A1,DTEDWT,A7 GET POINTER TO DWT QUEUE J V P RF(NZ) RQCN50 YES J . P ST A6,DTEDWT,A7 SAVE POINTER TO DWT QUEUE J P RF RQCN60 J PRQCN50 EQU * J P LDR A2,A1 MOV
0x158864…1589f8 Dummy {f00=0x006b, f01=0x0190, f02=»EW DWT TO CHAIN J z PRQCN60 EQU * K & P CM DWTCHN,A6 END OF CHAIN MARKER K , , P ST A7,DWTCHD,A6 BACKWARD LINK TO ANCHOR K V P LDK A2,2 K * P ST A2,DWTSTA,A6 SET STATUS: CONNECTED K P LDKL A2,/8000 K $ P ST A2,DWTRTV,A6 STORE NO TIMING K P
0x1589f8…158b8c Dummy {f00=0x006b, f01=0x0190, f02=»E DEVICE K $ P ORS A1,DWTST,A6 END IN THE DWT L , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE L 8 PRQCN65 EQU * =13 L h P XIF L P* L P* START POLL TIMER L P* L $ P LD A2,DCTPGP POLL TIMER POINTER L , P RF(NZ) RQCN70 TIMER ALREADY STARTED
0x158b8c…158d20 Dummy {f00=0x006b, f01=0x0190, f02=»* ACTIVATION PARAMETERS: L P* DWT-ADDRESS (A6) M P* M < P* FUNCTIONS: M F & P* 1. CHECK IF IN CONNECTED STATE M Z 6 P* 2. REMOVE DWT-ADDRESS FROM CONFIGURATION CHAIN M & P* 3. SET DWT STATUS DISCONNECTED M P* M P* COMPLETION PARAMETER
0x158d20…158eb4 (1, 236) Dummy {f00=0x006b, f01=0x0190, f02=», RETURN: OK M * P LD A3,DTEDWT,A7 FIRST DWT ADDR TO A3 N P RF(Z) RQDI20 END OF CHAIN N B P CWR A3,A6 OUR DWT ? N d P RF(NE) RQDI10 NO N * P CF A15,RELBUF RELEASE QUEUED BUFFERS N 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT N P CM DWTSTA
0x158eb4…159048 Dummy {f00=0x006b, f01=0x018e, f02=»PREVIOUS DWT-ADDR N x < P LD A3,DWTCHN,A5 A3 CONTAINES ADDR TO NEXT DWT ON CHAIN O P RF(Z) RQDI20 END OF CHAIN O Z P CWR A3,A6 OUR DWT ? O | ( P RB(NE) RQDI10 NO TAKE NEXT IN CHAIN O * P CF A15,RELBUF RELEASE QUEUED BUFFERS O 2 P LD A3,DWTCHN,A6 YES-T
0x159048…1591dc Dummy {f00=0x006b, f01=0x0190, f02=» PRQDI20 EQU * P P IFT MESPAS=1 P . P LD A3,DTEDDT,A7 TAKE THE DISCARD DWT ADDR P . P CWR A3,A6 OUR DWT ? P ` " P RF(NE) RQDI30 SEQUENCE ERROR P | * P CF A15,RELBUF RELEASE BUFFERS QUEUED P P CM DTEDDT,A7 P P CM DWTSTA,A6 SET DWT FREE P P
0x1591dc…159370 Dummy {f00=0x006b, f01=0x0190, f02=»EST P ~ P* Q P* ACTIVATION PARAMETERS: Q P* DWT - ADDRESS (A6) Q 6 P* Q T P* FUNCTIONS: Q ^ < P* 1. TRANSFER LOGICAL CONNECTION STATUS TO APPLICATION Q r P* Q P* COMPLETION PARAMETERS: Q * P* LOGICAL CONNECTION STATUS (ECBCW1) Q
0x159370…159504 Dummy {f00=0x006b, f01=0x0190, f02=»DATA . PHYS . Q x . P* . STATE . STATE . LINK . LINK . R . P* . . . STATUS . STATUS . R L . P* ........................................ R ~ P* R PRQRSTS EQU * R P IFT EM3270=1 R $ P LD A2,ECBCW1,A8 GET OPTION CODE R
0x159504…159698 Dummy {f00=0x006b, f01=0x0190, f02=» DTE STATUS R P SLL A2,4 BITS 4-7 S & P AD A2,DTEDLS,A7 DATA LINK STATUS S . P SLL A2,4 BITS 8-11 S X 8 P AD A2,DTEPLS,A7 PHYSICAL LINK STATUS (BITS 12 - 15) S t 2 P ST A2,ECBCW1,A8 STATUS TO ECB CONTROL WORD 1 S P ABL RTOK RETURN: OK S P IFT E
0x159698…15982c Dummy {f00=0x006b, f01=0x0190, f02=» DTE STATUS S | P SUK A2,2 OPEN ? T $ P ABL(NZ) RTSEQ NO,SEQUENCE ERROR T , $ P LD A2,DWTSTA,A6 GET DWT STATUS T T P SUK A2,2 CONNECTED ? T | $ P ABL(NZ) RTSEQ NO,SEQUENCE ERROR T 6 P LD A4,DWTIPC,A6 ANY QUEUED MESSAGE ON THIS DWT ? T * P ABL(NZ) RTO
0x15982c…1599c0 Dummy {f00=0x006b, f01=0x0190, f02=» P* U P* ACTIVATION PARAMETERS U P* DWT ADDRESS (A6) U . P* U J P* FUNCTIONS: U T . P* SET DEVICE STATUS (ONLY IF STARVI = 1) U h P* U P* DE DEVICE END : X`'00' U P* U ( P* IR INTERVENTION REQUIRED : X'01' U P* U P*
0x1599c0…159b54 (1, 237) Dummy {f00=0x006b, f01=0x0190, f02=»TARVI=0 U & P ABL RTREQ SET STATUS NOT INCLUDED V P XIF V : P IFT STARVI=1 V F & P LD A1,ECBCW1,A8 GET DEVICE STATUS V P ANK A1,3 MASK DB,IR V P RF(NZ) RQST90 NOT DE V & P LD A1,DWTST,A6 GET DEVICE STATUS V ( P ANK A1,/B WACK SENT, DB OR IR
0x159b54…159ce8 Dummy {f00=0x006b, f01=0x0190, f02=»T A1,DWTST,A6 SAVE STATUS V P ABL RTOK RETYURN : OK W " P XIF W @ P EJECT W L P* W Z $ P* READ/RESET STATISTICS REQUEST W d P* W P* ACTIVATION PARAMETERS: W P* TYPE = BITS 0-7 OF ECBCW1 W P* ECB-ADDRESS (A8) W ( P* DWT-ADDRESS OF
0x159ce8…159e7c Dummy {f00=0x006b, f01=0x0190, f02=» P* X P* COMPLETION PARAMETERS: X * P* NUMBER OF BYTES TRANSFERRED (ECBEL) X . P* RETURN CODE (A1) X P* X x PRQSTAT EQU * X P IFT STTSTS=0 X 8 P ABL RTREQ RC : REQUEST ERROR NO STATISTICS INCLUDED X P XIF X P IFF STTSTS=0 X "
0x159e7c…15a010 Dummy {f00=0x006b, f01=0x0190, f02=» X v & P SRL A1,8 TYPE FIELD TO LEFT BYTE Y P CCK A1,TYPRR CORRECT TYPE? Y 2 P RF(NE) RQST40 Y V 0 P CF A15,DCSRLL RESET ALL STATISTICS BUFFERS Y l P LDR A1,A1 LUCKY AGAIN? Y , P ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR Y PRQST40 EQU * Y P ABL
0x15a010…15a1a4 Dummy {f00=0x006b, f01=0x0190, f02=»CW1 >= 0 : ACTIVATE TIMING CONTROL Y : P* TIMEOUT VALUE IN MULTIPLES OF 100 MS; Z * , P* 0 = IMMEDIATE TIMEOUT. Z h 0 P* < 0: DE-ACTIVATE TIMING CONTROL Z P* Z P* FUNCTIONS: Z , P* STORE VALUE DIRECTLY IN CAL
0x15a1a4…15a338 Dummy {f00=0x006b, f01=0x0190, f02=»A2,ECBCW1,A8 GET TIMEOUT VALUE FROM ECB Z " P ST A2,DWTRTV,A6 STORE IN DWT [ 0 P ABL RTOK RETURN: OK [ V P EJECT [ r P* [ P* SEND REQUEST [ P* [ P* ACTIVATION PARAMETERS: [ P* BUFFER ADDRESS (ECBBA) [ P* BUFFER LENGTH (ECBRL) [
0x15a338…15a4cc Dummy {f00=0x006b, f01=0x0190, f02=» CONNECTIONS EXIST. [ l $ P* 2. VERIFY BUFFER SIZE IF MMU P* 3. QUEUE REQUESTING DWT D * P* 4. COMPLETE WHEN ACK'D OR TIMEOUT. f P* PRQSEND EQU * $ P LD A2,DWTSTA,A6 GET DWT STATUS P SUK A2,2 CONNECTED ? . P ABL(NZ) RTSEQ N
0x15a4cc…15a660 Dummy {f00=0x006b, f01=0x0190, f02=»RROR ` 0 P LD A2,DTEDLS,A7 LOGICAL CONNECTION ACTIVE ? ] 8 P ABL(Z) RTLOGC NO, RETURN: LOGICAL CONNECTION ERROR ] @ P LC A2,DWTOPT,A6 GET OPTION ] | P ANK A2,/FF ] $ P RF(Z) RQSE10 THERE IS NO OPTION ] P SUK A2,/20 WHICH OPTION ? ] . P ABL(NZ) R
0x15a660…15a7f4 (1, 238) Dummy {f00=0x006b, f01=0x0190, f02=»CBRL,A8 REQUESTED LENGTH ] $ P CWK A2,BUFLEN ILLEGAL LENGTH ? ^ 6 P ABL(G) RTLGTH YES, RETURN: ILLEGAL BUFFER LENGTH ^ H P XIF ^ P CF A15,TIMEWR START TIMER ^ $ P CF A15,INSWQ QUEUE SEND REQUEST ^ P ABL TDISP ^ P* ^ P EJECT ^ P* ^
0x15a7f4…15a988 Dummy {f00=0x006b, f01=0x0190, f02=»CHARS. (ECBRL) ^ r P* SUBTERMINAL ADDRESS (DWT) _ P* _ : P* FUNCTIONS: _ D < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. _ X F P* 2. TRANSFER TO THE APPLICATION ANY MESSAGE QUEUED FOR THE DWT, _ @ P* 3. COMPLETE WHEN MESSAGE RECEIVED O
0x15a988…15ab1c Dummy {f00=0x006b, f01=0x0190, f02=» MESSAGE (ECBEL) _ t P* RETURN CODE (A1) ` P* ` 4 PRQRECE EQU * ` > $ P LD A2,DWTSTA,A6 GET DWT STATUS ` R P SUK A2,2 CONNECTED ? ` z . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR ` 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTIVE ? ` 8 P ABL(Z)
0x15ab1c…15acb0 Dummy {f00=0x006b, f01=0x0190, f02=»S,A7 LOGICAL CONNECTION ACTIVE ? ` 8 P ABL(Z) RTLOGC NO, RETURN: LOGICAL CONNECTION ERROR a ( P CF A15,TIMERE START TIMER a d P RF RQRE40 GO TO DISPATCHER a PRQRE10 EQU * a P LD A3,2,A4 EFFECTIVE LENGTH a P ST A3,ECBEL,A8 a * P LD A1,DWTLAD,
0x15acb0…15ae44 Dummy {f00=0x006b, f01=0x0190, f02=» AND SAVE IT IN ECB a P IFT REMTIM=1 =9 b 4 P LD A1,DWTRTV,A6 GET REQUESTED TIMEOUT VALUE =9 b 6 0 P ST A1,ECBCW1,A8 STORE IN CONTROL WORD 1 =9 b n P XIF =9 b * P LDK A1,0 RC : ACCEPTED AND COMPLETED b ( P LDR* A2,A4 GET NEXT BUFFER IN QUEUE b
0x15ae44…15afd8 Dummy {f00=0x006b, f01=0x0190, f02=»C,A6 STORE AS FIRST IN QUEUE b P ADK A4,6 c & , P CF A15,DC:MIN MOVE DATA TO USER BUFFER c 8 PRQRE40 EQU * c h P ABL TDISP GO TO DISPATCHER c | P EJECT c P* c P* c $ P* COMPLETE APPLICATION REQUEST c P* c PRTREQ EQU * c & P
0x15afd8…15b16c Dummy {f00=0x006b, f01=0x0190, f02=»TIME EQU * c P LDK A1,R:TIME RC = TIME OUT d P RF RQRTN d 6 PRTSEQ EQU * d H & P LDK A1,R:SEQ RC = SEQUENCE ERROR d P RF RQRTN d PRTLGTH EQU * d & P LDK A1,R:LGTH RC = ILLEGAL LENGTH d P RF RQRTN d PRTLOGC EQU * d 0 P LDK A1,R:LO
0x15b16c…15b300 Dummy {f00=0x006b, f01=0x0190, f02=»RQRTN d PRTOK EQU * e P LDK A1,0 RC = OK e PRQRTN EQU * e : 6 P ABL DISEND COMPLETE REQUEST AND GO TO DISPATCHER e N P EJECT e P* e 8 P* LOOKUP - LOOK UP KEY IN TABLE & BRANCH ON ADDRESS e P* e P* CALL: e 8 P* CF A15,LOOK
0x15b300…15b494 (1, 239) Dummy {f00=0x006c, f01=0x0190, f02=»KEY (A2); ADDRESS FOR BRANCH e r P* " " " f $ P* LAST DATA KEYN,ADDRN f > P* f ^ P* ENTRY: A2 = KEY VALUE f h P* EXIT: A3 & A4 DESTROYED f P* f PLOOKUP EQU * f < P LDR* A3,A15 POINT TO NEXT INSTRUCTION ADDRESS IN STACK f . P
0x15b494…15b628 Dummy {f00=0x006c, f01=0x018e, f02=»LOOK50 EQU * LOOP ENTRY f * P ADK A3,4 GET NEXT TABLE ENTRY ADDRESS g P CWR A3,A4 PAST THE END? g N " P RF(G) LOOK90 YES = NOT FOUND g n & P CWR* A2,A3 KEY = VALUE IN TABLE? g ( P RB(NE) LOOK50 NO - CHECK NEXT ENTRY g & P ABI 2,A3 BRANCH TO TABLE ADDR
0x15b628…15b7bc Dummy {f00=0x006c, f01=0x0190, f02=» " P* REQUEST TIMER HANDLING PART h P* h * P* h 4 P* h > P* RECEIVE TIMER=TIMERR h H P* h f PTIMERE EQU * h p P LDR A1,A6 h & P LD A2,DWTRTV,A6 GET TIMEOUT VALUE h P RF(N) TIMRTN NO TIMING h . P RF(Z) ITOUTR TIMER=0 => IMMEDIATE TIMEO
0x15b7bc…15b950 Dummy {f00=0x006c, f01=0x0190, f02=» PTIMRTN EQU * i P ABL RTNA15 i P* i , P* TIMEOUT READ TIMER i 6 P* i R PITOUTR EQU * i P ADKL A15,4 i p P RF TIMOUT i PTOUTRE EQU * i P LDR A6,A1 FETCH DWT i P CM DWTRTP,A6 i * P RF TIMOUT COMPLETE REQUEST RC=TIMEOUT i
0x15b950…15bae4 Dummy {f00=0x006c, f01=0x0190, f02=» LDR A1,A6 i & P LD A2,DWTRTV,A6 GET TIMEOUT VALUE j P RB(N) TIMRTN NO TIMING j < . P RB(Z) ITOUTR TIMER=0 => IMMEDIATE TIMEOUT j P ST A2,TIMWR j P CF A15,SETIME j P DATA TOUTWR j PTIMWR DATA 0 j P ST A4,DWTRTP,A6 j P RB TIMRTN j
0x15bae4…15bc78 Dummy {f00=0x006c, f01=0x0190, f02=» REMOVE FROM WRITE QUEUE j P* k P* k * & P* THIS INSTRUCTION DOES NOT BELONG k 4 P* TO THE STANDARD INTERFACE k ^ P LD A2,FDWTUT k P CWR A2,A6 k * P RF(NE) TIMOUT THIS DWT IS NOT WRITING k ( P CM XACK INDICATE 'ACK NOT EXPECTED' k P CM
0x15bc78…15be0c Dummy {f00=0x006c, f01=0x0190, f02=»G k | P* l & P* REMAINING TIME IS RETURNED IN A2 l P* l > P* l H PCTIME EQU * l R & P LD A2,DWTRTP,A6 GET TIMER POINTER l f P RF(Z) CTIM10 NOT RUNNING l P IFT REMTIM=1 =9 l P LDR* A2,A2 =9 l $ P NGR A2,A2 GET REMAINING TIME =9 l
0x15be0c…15bfa0 Dummy {f00=0x006c, f01=0x0190, f02=»JECT l P* m P* GET RECEIVE BUFFER m P* m 2 $ P* CALLING SEQUENCE: CF A15,GRBUF m < P* A4=0 IF NO BUFFER IS FREE m d & P* ELSE A4 CONTAINS BUFFER ADDRESS m P* A2 AND A3 ARE DESTROYED m P* m P* m ( PGRBUF LDKL A2,DCRBUF RECEIVE BUF
0x15bfa0…15c134 (1, 240) Dummy {f00=0x006c, f01=0x0190, f02=»3,A2 m PGBUF10 EQU * n P ABL RTNA15 n P EJECT n 4 P* n B P* n L P* RELEASE RECEIVE BUFFER n V P* n v P* A4 CONTAINS BUFFER ADDRESS n $ P* CALLING SEQUENCE: CF A15,RRBUF n P* A2 AND A3 ARE DESTROYED n P* n P* n ( PRRBUF
0x15c134…15c2c8 Dummy {f00=0x006c, f01=0x0190, f02=»UF10 n PRBUF20 EQU * o P STR A4,A2 o P CMR A4 o 2 P RB GBUF10 RETURN TO CALLER o B P EJECT o f P* o t 2 P* RELEASE ALL RECEIVE BUFFERS QUEUED ON A DWT o ~ P* o P* A6 - DWT ADDR o P* A1 AND A4 ARE DESTROYED o ( P* CALLING SEQUEN
0x15c2c8…15c45c Dummy {f00=0x006c, f01=0x0190, f02=»10 EQU * o $ P LDR* A4,A1 NEXT IN BUFFER QUEUE p P RB(Z) GBUF10 p 8 " P LDR* A2,A4 REMOVE FROM QUEUE p N P STR A2,A1 . p t P CF A15,RRBUF RELEASE BUFFER p P RB RLBU10 p P EJECT p P* p P* p & P* INSERT DWT IN SEND REQUEST QUEUE p
0x15c45c…15c5f0 Dummy {f00=0x006c, f01=0x0190, f02=»Q2 LDR* A3,A2 p $ P RF(Z) INSWQ3 END OF QUEUE FOUND q P LDR A2,A3 q > P RB INSWQ2 q P PINSWQ3 ADR A4,A6 q b P STR A4,A2 INSERT IN QUEUE q z " P CMR A4 INDICATE END OF QUEUE q P RB GBUF10 RETURN q P EJECT q P* q P* q ( P* REMOVE D
0x15c5f0…15c784 Dummy {f00=0x006c, f01=0x0190, f02=» q j . P LDK A4,DWTOPN GET DWT-LINK TO BE REMOVED r PREM06 EQU * r : P ADR A4,A6 r N PREM10 LDR* A3,A2 r b & P RB(Z) GBUF10 NOT ON QUEUE: RETURN r z P CWR A3,A4 r P RF(E) REM15 r P LDR A2,A3 GET NEXT r P RB REM10 r PREM15 LDR* A3,A4
0x15c784…15c918 Dummy {f00=0x006c, f01=0x0190, f02=» P IFF STARVI=0 s P* A2,A3,A4 DESTROYED s P* A6=DWT s 6 P* s F ( PINSSQ LDKL A2,DCSTQ GET QUEUE ANCHOR s P P LDK A4,DWTOPE s | P RB INSWQ2 s P* s P* s " P* REMOVE DWT FROM STATUS QUEUE s P* s P* A2,A3,A4 DESTROYED s P* A6
0x15c918…15caac Dummy {f00=0x006c, f01=0x0190, f02=» s P* t $ P* QUEUE ALLOCATED RECEIVE BUFFER t P* t : P* A4=BUFFER ADDR t D P* A2,A3 DESTROYED t P* t v PQRBUF EQU * t P SUK A4,6 t * P LDK A2,DWTIPC SET BUFFER QUEUE DISP. t P ADR A2,A6 t PQR100 EQU * t P LDR* A3,A2 t
0x15caac…15cc40 Dummy {f00=0x006c, f01=0x0190, f02=»CATE END OF QUEUE t P RTN A5 u P EJECT u * P* u 8 P* u B P* STORE REGISTER A3-A8 u L $ P* CALLING SEQUENSE: CF A15,STREG u j P* u PSTREG ST A3,LCA3 u P ST A4,LCA4 u P ST A5,LCA5 u P ST A6,LCA6 u P ST A7,LCA7 u P ST
0x15cc40…15cdd4 (1, 241) Dummy {f00=0x006c, f01=0x0190, f02=»LDKL A3,0 u PLCA3 EQU *-2 v P LDKL A4,0 v & PLCA4 EQU *-2 v 8 P LDKL A5,0 v L PLCA5 EQU *-2 v ^ P LDKL A6,0 v r PLCA6 EQU *-2 v P LDKL A7,0 v PLCA7 EQU *-2 v P LDKL A8,0 v PLCA8 EQU *-2 v P* v P* v P* RETURN VIA RE
0x15cdd4…15cf68 Dummy {f00=0x006c, f01=0x0190, f02=» v ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE w " P LDR A6,A1 RELOAD DWT ADDRESS w 4 P LDKL A7,DTETAB w Z P CM DTEDLS,A7 w r P IFT STTSTS=1 w P* w P* w P* COUNT POLL TIME OUT w P* w P LDK A1,CSSXC3 w P CF A15,DCSUPS w P X
0x15cf68…15d0fc Dummy {f00=0x006c, f01=0x0190, f02=» w PCPTIM EQU * x P LDK A2,1 INDICATE x " P ST A2,DTEDLS,A7 DATA LINK UP x 6 P LDKL A2,-TIMPOL x P ST* A2,DCTPGP RESTART TIMER x t P RTN A5 x P* x P* START POLL TIMER x P* x PSPOTIM EQU * x , P LDR A1,A6 LOAD DWT ADDRESS AS
0x15d0fc…15d290 Dummy {f00=0x006c, f01=0x018e, f02=»N x P EJECT y P* y P* START PROCEDURE TIMER y " P* y B PSPTIM EQU * y L $ P LDR A1,A6 LOAD DWT AS PARAMETER y ` P CF A15,SETIME y P DATA PRTOUT,TIMPRO y $ P ST A4,DCTPP SAVE TIMER POINTER y P RTN A5 y P* y P* PROCEDURE
0x15d290…15d424 Dummy {f00=0x006c, f01=0x018e, f02=» P IFT STTSTS=1 z P* z P* z $ P* COUNT PROCEDURE TIME OUT z . P* z R P LDK A1,CSSXC2 z P CF A15,DCSUPS z r P XIF z , P CF A5,CHALTI HALT INPUT IF OPEN SALCUZ z P LD A1,XACK z " P RF(Z) PRT10 ACK NOT EXPECTED z P CF A5,TRE
0x15d424…15d5b8 Dummy {f00=0x006c, f01=0x0190, f02=» P* { ( PHPTIM LD A1,DCTPP GET TIMER POINTER { P RF(Z) HPT10 NOT RUNNING { : P CMR A1 STOP TIMER { Z P CM DCTPP { t PHPT10 RTN A5 { P { P* { P* { ( P* WAIT 1 SEC. FOR MODEM CONNECTION { P* { P { PDTE:ON LDR A1,A6 DWT
0x15d5b8…15d74c Dummy {f00=0x006c, f01=0x0190, f02=»DEM =1 { x * P CF A5,CHALTI NO INTERRUPTS ALLOWED =1 | P ABL TDISP =1 | < P | R P | Z P* | b P* | l P* MODEM-CONNECT TIMEOUT | v P* | P | PDTE:10 LDR A6,A1 DWT ADDRESS | P LDKL A7,DTETAB | $ P IM DTESTA,A7 SET OPEN STATUS =1 |
0x15d74c…15d8e0 Dummy {f00=0x006c, f01=0x0190, f02=» IM DTEPLS,A7 PRESET PHYSICAL STATUS = OK =1 | P ANK A2,1 MODEM OK ? =1 } 4 P RF(Z) DTE:20 YES =1 } T , P CM DTEPLS,A7 INDICATE PHYSICAL ERROR =1 } p PDTE:20 EQU * =1 } " P LDR A1,A2 SET RETURN CODE =1 } * P CF A15,TENDIO COMPLETE THE REQUEST =1 }
0x15d8e0…15da74 (1, 242) Dummy {f00=0x006c, f01=0x0190, f02=»ET DWT ADDRESS } P* ~ PMESDWT EQU * ~ & P CWR A6,A7 IS IT DTETAB-ADDRESS ? ~ 4 P RF(E) MES200 YES ~ ^ $ P LD A2,DTEDDT,A7 GET ADDR TO DDT ~ x P CWR A6,A2 IS IT DDT-ADDR ~ P RF(E) MES200 YES ~ " P LD A2,DWTST,A6 ANY REQUEST ? ~ P RF(N)
0x15da74…15dc08 Dummy {f00=0x006c, f01=0x0190, f02=»DER ? ~ t P RF(Z) MES200 YES PMESD50 EQU * ( 0 P LD A2,DTEDDT,A7 IS THERE A DDT CONNECTED ? < P RF(Z) MES100 NO p P LDR A6,A2 GET DDT-ADDR P RF MES200 PMES100 EQU * P LDR A6,A7 GET DTETAB-ADDR PMES200 EQU * P ABL
0x15dc08…15dd9c Dummy {f00=0x006c, f01=0x0190, f02=» MESSAGE z & P* IS EXPECTED FROM THE MASTER SIDE P* : P* D PBRM EQU * N P LDKL A5,STB LOAD STACKBASE ` P CM SYNSW CLEAR SYN-SWITCH " P CM TPM CLEAR TRANSPARENT TEXT , P CF A5,CSYNCI START INPUT WITH SYNC DEF P* P*
0x15dd9c…15df30 Dummy {f00=0x006c, f01=0x018e, f02=»L CHARACTER v P* P LDR A1,A2 : P CF A15,LOOKUP BRANCH ON CODES, TABLE ADDRESS TO STACK 0 : P DATA BRM100,BRM200 LAST ENTRY,POLL OR SELECT SEQUENCE n " P DATA STX,STX100 STX RECEIVED " P DATA EOT,EOT100 EOT RECEIVED " P DATA ENQ,ENQ100
0x15df30…15e0c4 Dummy {f00=0x006c, f01=0x0190, f02=» P* THROUGHPUT ERROR P* PBRM110 EQU * * ( P CM XSTA INDICATE "INVALID MESSAGE" > & P LDKL A5,STB LOAD STACKBASE TO A5 j , P CF A5,CSYNCI START INPUT WITH SYNC DEF P* P* $ P* WAIT FOR MARK HOLD TO RESYNC. P*
0x15e0c4…15e258 Dummy {f00=0x006c, f01=0x0190, f02=»NK A2,/7F P SUK A2,/7F P RB(NZ) BRM120 NO & PBRM130 EQU * @ P CF A5,CHALTI HALT INPUT T P RB BRM t P EJECT P* P* 2 P* CHECK IF IT IS A POLL OR A SELECT SEQUENCE P* PBRM200 EQU * P IFT MSV1=0
0x15e258…15e3ec Dummy {f00=0x006c, f01=0x0190, f02=»3,0 P CC A2,1,A7 IS IT A POLL ? P RF(E) BRM210 POLLING . P LDK A3,2 L P CCR A2,A7 IS IT A SELECT ? ^ $ P RB(NE) BRM120 INVALID SEQUENCE PBRM210 EQU * P CF A5,READP READ 1:ST STA P RB(NZ) BRM PARITY ERROR P LDR A4,
0x15e3ec…15e580 Dummy {f00=0x006c, f01=0x0190, f02=»F A5,READP READ ENQ P SUK A2,ENQ $ P RB(NE) BRM120 INVALID SEQUENCE 0 P* X P* b $ P* YES SEQUENCE OK - HALT INPUT l P* P CF A5,CHALTI P EJECT P* P* 0 P* CHECK IF IT IS A SELECT OR A POLL ADDRESS
0x15e580…15e714 (1, 243) Dummy {f00=0x006d, f01=0x0190, f02=» P* P* POLLING P* $ P CWK A4,GP . P RF(E) GPOLL GENERAL POLL @ 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) b P =10 P* P EJECT P* P* & P* SPECIFIC POLL HAS BEEN RECEIVED P*
0x15e714…15e8a8 Dummy {f00=0x006d, f01=0x018e, f02=» j 8 P RF(Z) POL150 REQ. DEV. NOT CONNECTED, SEND EOT =10 P CF A5,CPTIM CHECK POLLTIMER D P IFT STARVI=1 h P LD A1,DWTST,A6 GET STATUS ~ P ANK A1,7 " P RF(NZ) POL120 PENDING STATUS P XIF P IFF STARVI+SPECP=0 P LD A1,D
0x15e8a8…15ea3c Dummy {f00=0x006d, f01=0x0190, f02=» P RF(Z) POL170 WRITE REQUEST P XIF , P RF POL150 SEND EOT 8 P EJECT T P* b P* l $ P* GENERAL POLL HAS BEEN RECEIVED v P* P* PGPOLL EQU * P LD A1,XACK " P RF(Z) POL110 ACK NOT EXPECTED P =11
0x15ea3c…15ebd0 Dummy {f00=0x006d, f01=0x0190, f02=»ER p P ABL BRM WAIT FOR RESPONSE PPOL110 EQU * , " P CF A5,CPTIM CHECK POLL TIMER B P IFF STARVI=0 h P LD A6,DCSTQ ~ & P RF(Z) POL140 NO STATUS TO BE SENT " P SUK A6,DWTOPE GET DWT ADDRESS PPOL120 EQU * P CF A5,TRSTA SEN
0x15ebd0…15ed64 Dummy {f00=0x006d, f01=0x0190, f02=»40 P XIF PPOL130 EQU * P ABL BRM * PPOL140 EQU * : P LD A6,DCWRQ N " P RF(NZ) POL160 WRITE ON QUEUE b PPOL150 EQU * P CF A5,TREOT SEND EOT P RB POL130 PPOL160 EQU * " P SUK A6,DWTOPN GET DWT ADDRESS PPO
0x15ed64…15eef8 Dummy {f00=0x006d, f01=0x0190, f02=» P ST A8,FECB SAVE ECB ADDRESS P ST A6,FDWTUT SAVE A6 ( P IFF MMUPAG=0 F $ P LDKL A4,MMUBUF MMU WORK BUFFER P ST A4,ECBBA,A8 . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER P XIF & P LD A4,ECBBA,A8 GET BUFFER ADDRESS P LD
0x15eef8…15f08c Dummy {f00=0x006d, f01=0x0190, f02=» ST A3,FECBRL SAVE LENGTH P CM FBAX RESET BUFFER INDEX " PPOL200 EQU * F P CM XETX RESET 'ETX SENT' Z P CM XSTA | P CF A5,TRTEXT SEND ONE BLOCK & P CF A5,SPTIM START PROCEDURE TIMER P IM XACK SET 'ACK EXPECTED' P RB POL130
0x15f08c…15f220 Dummy {f00=0x006d, f01=0x0190, f02=»6,A3 GET DWT-ADDR P RF(NZ) SEL100 P IFT MESPAS=1 0 " P LD A6,DTEDDT,A7 GET DDT-ADDR F P RF(NZ) SEL100 l P XIF P LDKL A6,DTETAB DTETAB ADRR PSEL100 EQU * P LD A1,XACK & P RB(NZ) POL100 ERROR. ACK EXPECTED P IFF
0x15f220…15f3b4 (1, 244) Dummy {f00=0x006d, f01=0x018e, f02=»RRVI SEND RVI P XIF P IFF STARVI=1 " P RF SEL120 8 P XIF J PSEL110 EQU * V P ABL BRM j PSEL120 EQU * z P =2 P IFT STARVI=1 =2 $ P ANK A3,/A WACK SENT OR DB ? =2 P RF(NZ) SEL140 YES =2 P XIF P
0x15f3b4…15f548 Dummy {f00=0x006d, f01=0x0190, f02=» j $ P CF A15,DCSUPS INCREMENT COUNTER P XIF 0 PSEL140 EQU * < P =2 P P IFF NOWACK=1 =2 ^ P CF A5,TRWACK SEND WACK x P XIF P RB SEL110 PSEL150 EQU * , P CF A5,PRREC PREPARE FOR TEXT RECEPTION P ADK A1,6
0x15f548…15f6dc Dummy {f00=0x006d, f01=0x0190, f02=» P* P* PEOT100 EQU * & P CF A5,HPTIM STOP PROCEDURE TIMER , P IFT RCOM=1 V P CM XRB RESET READ BUFFER j P XIF P LD A1,XACK & P RF(Z) EOT120 ACK IS NOT EXPECTED " P LD A6,FDWTUT GET WRITING DWT P RF(Z) EOT11
0x15f6dc…15f870 Dummy {f00=0x006d, f01=0x0190, f02=»PECTED' z PEOT120 EQU * P CM XSEL RESET 'SELECTED' $ P ABL BRM F P EJECT V P* d P* n P* STX HAS BEEN RECEIVED x P* P* PSTX100 EQU * P CF A5,HPTIM P IFT TPMODE=1 P ABL BRM120 INVALID SEQENCE
0x15f870…15fa04 Dummy {f00=0x006d, f01=0x0190, f02=» ABL(Z) BRM120 NO BUFFER AVAILABLE P XIF * P IFT STTSTS=1 6 P RF(NZ) STX120 L P* b P* NO BUFFER AVAILABLE l P* P LDK A1,CSSRBY $ P CF A15,DCSUPS INCREMENT COUNTER P ABL BRM120 P XIF PSTX120 EQU * P C
0x15fa04…15fb98 Dummy {f00=0x006d, f01=0x0190, f02=» P CF A15,DCSUPS P XIF P SUK A3,1 & P RF(NZ) STX170 MESSAGE OK 8 PSTX130 EQU * Z ( P CM XSTA INDICATE 'INVALID MESSAGE' n PSTX140 EQU * P CF A5,TRNAK SEND NAK P ABL BRM PSTX150 EQU * P IFT RCOM=1 P LD
0x15fb98…15fd2c Dummy {f00=0x006d, f01=0x0190, f02=»GET WRITING DWT 0 P ABL(Z) BRM120 NO ONE WRITING. RESYNCHRONIZE P LDR* A2,A6 GET STA L , P CF A5,PRREC PREPARE FOR TEXT RECEPTION h P LDK A1,0 SET RC=0 ( P CF A5,CWRITE COMPLETE WRITE REQUEST P CM CACK PRESET ACK-1 P RB STX120 R
0x15fd2c…15fec0 Dummy {f00=0x006d, f01=0x0190, f02=»ABORT SEQUENCE z P RB EOT120 PSTX170 EQU * ( P IM XSTA INDICATE MESSAGE OK < $ P LD A4,DCRBUF GET BUFFER ADDRESS ` P ADK A4,6 P CW A4,FBLST " P RF(NE) STX180 NOT FIRST BLOCK P IFF RCOM=0 P LDK A1,ESC P CCR A1,A4
0x15fec0…160054 (1, 245) Dummy {f00=0x006d, f01=0x0190, f02=» l P SUK A1,RDMCOM-RDBCOM & P RF(Z) RDMOD READ BUFFER RECEIVED & P XIF P PSTX180 EQU * P SUK A3,1 p P RF(Z) STX280 SEND ACK P LD A6,FDWTIN GET INPUT DWT P IFT MESPAS=1 P CF A15,MESDWT P XIF P CWR A7,A6 I
0x160054…1601e8 Dummy {f00=0x006d, f01=0x0190, f02=» RCOM=1 P LDR* A2,A6 GET ADDRESS , P LC A2,TEBCDIC,A2 TRANSLATE IT TO EBCDIC 0 $ P LD A1,DCRBUF IS THERE A BUFFER ` P RF(Z) STX200 NO P ST A2,+4,A1 STORE THE ADDR PSTX200 EQU * P XIF " P LD A2,DWTST,A6 ANY REQUEST ?
0x1601e8…16037c Dummy {f00=0x006d, f01=0x0190, f02=» CWK A2,RECEIVE A RECEIVE ? P RF(NE) STX220 NO $ PSTX210 EQU * > P =12 R $ P LD A8,DWTECB,A6 GET ECB ADDRESS b P LD A3,-4,A4 GET LENGTH * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH . P LD A1,DWTLAD,A6 SYMBOLIC DTE ADDRESS =12 (
0x16037c…160510 Dummy {f00=0x006d, f01=0x0190, f02=»2 j $ P LDK A1,0 RESET RETURN CODE =12 & P CF A15,CTIME STOP REQUEST TIMING 2 P IFT REMTIM=1 =9 * P ST A2,ECBCW1,A8 STORE REMAINING TIME v P XIF =9 PSTX220 EQU * P IFT STARVI=1 P LC A2,+2,A4 GET WCC/CCC P ANK A2,
0x160510…1606a4 Dummy {f00=0x006d, f01=0x0190, f02=» PSTX230 EQU * P XIF " P LD A2,DWTST,A6 ANY REQUEST ? ( P RF(NN) STX240 YES N P CF A5,QRBUF QUEUE BUFFER h P RF STX270 PSTX240 EQU * P LD A2,DWTOR,A6 GET ORDER $ P CWK A2,RECEIVE RECEIVE ORDER ? P RF(NE) STX260
0x1606a4…160838 Dummy {f00=0x006d, f01=0x0190, f02=»RKL A1,R:DATA YES PSTX250 EQU * & P CF A15,DC:MIN MOVE TO USER BUFFER . P RF STX270 X PSTX260 EQU * j 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
0x160838…1609cc Dummy {f00=0x006d, f01=0x018e, f02=»SK A1 P RF(Z) STX280 P CF A5,TRWACK SEN WACK $ P RF STX290 B P XIF T PSTX280 EQU * ` P CF A5,TRACK SEND ACK t PSTX290 EQU * P ABL BRM P EJECT P* P* , P* READ MODIFIED OR READ BUFFER RECEIVED P
0x1609cc…160b60 Dummy {f00=0x006d, f01=0x018e, f02=» 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL $ P LD A4,DWTBUF,A6 BUFFER ADDRESS < $ P SUK A4,2 SDJUST BUFFER ADDRESS d " P LDKL A3,1922 REQUESTED LENGTH " P IM XRB SET READ BUFFER SWITCH P CM FDWTUT P LDK A1,1 & P XRS A1,CACK
0x160b60…160cf4 (1, 246) Dummy {f00=0x006d, f01=0x0190, f02=» P* PENQ100 EQU * & P CF A5,HPTIM STOP PROCEDURE TIMER " P LD A1,XACK L , P RF(NZ) NAK110 RETRANSMISSION OF MESSAGE ` P OR A1,XSEL " P RF(Z) ENQ110 IN CONTROL STATE . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE PENQ110 EQU *
0x160cf4…160e88 Dummy {f00=0x006d, f01=0x0190, f02=»,HPTIM STOP PROCEDURE TIMER P LD A1,XACK $ P RF(NZ) NAK110 ACK EXPECTED 8 P OR A1,XSEL " P RB(Z) ENQ110 IN CONTROL STATE p P RF DLE160 PNAK110 EQU * " P LD A6,FDWTUT GET WRITING DWT P IFF STARVI=0 P LD A1,XSTA
0x160e88…16101c Dummy {f00=0x006d, f01=0x0190, f02=»MPUTE BUFFER INDEX P ST A1,FBAX P IFT STTSTS=1 . P* D P* N $ P* COUNT MESSAGES RETRANSMITTED X P* P LDK A1,CSSTRT P CF A15,DCSUPS P XIF P ABL POL200 P EJECT P* P* P* DLE HAS BEEN R
0x16101c…1611b0 Dummy {f00=0x006d, f01=0x0190, f02=» P IFT TPMODE=1 P CF A5,READ P CWK A2,STX . * P ABL(Z) STX110 YES - TRANSPARENT TEXT B P XIF p P RB ENQ110 | PDLE110 EQU * & P CF A5,READ READ SECOND CHARACTER P CWK A2,ACKPAR IS IT ACK 0 ? P RF(NE) DLE130 P*
0x1611b0…161344 Dummy {f00=0x006d, f01=0x0190, f02=»F A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER P RB ENQ110 F PDLE130 EQU * X P CWK A2,ACK1 l P RF(NE) DLE180 P* P* ACK , 1 RECEIVED P* P LD A1,CACK GET ACK COUNTER $ P RB(Z) DLE120 ACK,1 NOT EXPECTED
0x161344…1614d8 Dummy {f00=0x006d, f01=0x0190, f02=»ETX BLOCK r P* P LDK A1,0 SET RC=0 PDLE150 EQU * 6 P IFF STARVI=0 J P LD A2,XSTA ` . P RF(NZ) DLE200 STATUS HAS BEEN TRANSMITTED t P XIF ( P CF A5,CWRITE COMPLETE WRITE REQUEST PDLE160 EQU * P CF A5,TREOT SEND EOT
0x1614d8…16166c Dummy {f00=0x006d, f01=0x018e, f02=»1,CACK INCREMENT ACK COUNTER P ABL POL200 $ PDLE180 EQU * 8 P CWK A2,RVIPAR IS IT RVI ? L ( P RB(NE) DLE120 INVALID DLE SEQUENCE n " P CM XACK RESET 'EXPECTING ACK' P LD A1,XETX $ P RF(NZ) DLE190 ETX HAS BEEN SENT P LDK A1,2 SE
0x16166c…161800 Dummy {f00=0x006d, f01=0x0190, f02=» P* " P* STATUS HAS BEEN TRANSMITTED P* 8 P* B PDLE200 EQU * L " P LD A6,FDWTUT GET DWT ADDRESS ` , P CF A15,REMOVS REMOVE FROM STATUS QUEUE P CM XSTA CLEAR 'STATUS SENT' " P CM XACK CLEAR 'ACK EXPECTED' P LD A1,D
0x161800…161994 (1, 247) Dummy {f00=0x006e, f01=0x0190, f02=»DLE160 P XIF P EJECT P* ( < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 2 P* r ( P* CALLING SEQUENCE: CF A5,FINTER(S) | P* A2=SUBTERMINAL ADDRESS P* A4 DESTROYED " P* A3#0: DWT TO FOUND TERMINAL P*
0x161994…161b28 Dummy {f00=0x006e, f01=0x0190, f02=»ECK SPECIFIC POLL ADDRESS P* " P* , P* 6 PFINTES EQU * @ P IFT MSV1=1 T P LDK A4,0 h P RF FINT05 z P XIF PFINTEP EQU * P LDK A4,1 RIGTH BYTE PFINT05 EQU * " P LD A3,DTEDWT,A7 GET FIRST DWT PFINT10
0x161b28…161cbc Dummy {f00=0x006e, f01=0x0190, f02=»A4 " P LD A3,DWTCHN,A3 GET NEXT DWT P RB FINT10 0 PFINT20 EQU * B P ANKL A3,/FFFE V P RTN A5 l P EJECT | P* P* P* PREPARE FOR TEXT RECEPTION P* P* PPRREC EQU * P IM XSEL SET 'SELECTED'
0x161cbc…161e50 Dummy {f00=0x006e, f01=0x0190, f02=»E STA IN BUFFER P IM XSTA " P ST A6,FDWTIN STORE INPUT DWT ( P RTN A5 N P EJECT ^ P* l P* v 6 P* CHECK IF THERE IS A SEND REQUEST TO BE COMPLETED P* P* A1 CONTAINS RETURN CODE P* P* PCWRITE LD A6,F
0x161e50…161fe4 Dummy {f00=0x006e, f01=0x0190, f02=» v & P ANK A2,/FF MASK AWAY OPTION PART P SUK A2,6 2 $ P RF(NZ) CWR900 NOT SEND REQUEST D 4 P LD A2,DWTIPC,A6 ANY RECEIVED BUFFERS ON QUEU ? l P RF(Z) CWR110 NO 0 P ORKL A1,R:DATA ACCEPTED AND DATA AVAILABLE PCWR110 EQU * P LD
0x161fe4…162178 Dummy {f00=0x006e, f01=0x0190, f02=»OMPLETE REQUEST PCWR150 EQU * * P CF A15,REMOVW REMOVE FROM WRITE QUEUE , PCWR900 EQU * Z " P CM XACK RESET 'ACK EXPECTED' n P CM FDWTUT P RTN A5 P EJECT P* P* P* READ ONE TEXT BLOCK P* P* ON EXI
0x162178…16230c Dummy {f00=0x006e, f01=0x018e, f02=»CT ETB BLOCK RECEIVED P* PRDMESS EQU * ( $ P LD A4,DCRBUF GET BUFFER ADDRESS < P ADK A4,6 RESERVE HEADER d 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
0x16230c…1624a0 Dummy {f00=0x006e, f01=0x0190, f02=» P SUR A8,A8 RESET LRC P P IFT IBMCHR=1 ( P IFF TPMODE=1 > P LD A1,FBAX T " P RF(NZ) RDM100 NOT FIRST BLOCK h P CF A5,READP P RF(NZ) RDM120 PARITY ERROR P CWK A2,ESC P RF(NE) RDM110 * P CF A5,READP SKIP NEXT T
0x1624a0…162634 (1, 248) Dummy {f00=0x006e, f01=0x0190, f02=» RF(NZ) RDM120 PARITY ERROR PRDM110 EQU * $ P XIF 8 P IFT TPMODE=1 D & P IM TPM INDICATE TRANSPARENT TEXT Z 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
0x162634…1627c8 Dummy {f00=0x006e, f01=0x0190, f02=» r * P RF(E) RDM115 YES - STORE DLE AS DATA P CWK A2,ETX CHECK IF ETX 6 P RF(E) RDM130 YES V P CWK A2,ETBEBC CHECK IF ETB p P RF(E) RDM160 YES P CWK A2,ITB CHECK IF ITB P RF(E) RDM175 YES P CWK A2,ENQEBC CHECK IF ENQ
0x1627c8…16295c Dummy {f00=0x006e, f01=0x018e, f02=»WK A2,DLE P RB(NE) RDM105 P CF A5,READ ( P CWK A2,ETX < $ P RF(E) RDM110 YES - END OF BLOCK P P CWK A2,ETBEBC x $ P RB(NE) RDM105 NOT END OF BLOCK PRDM110 EQU * $ P CM TPM OUT OF TRANSPARENT TEXT P CF A5,RDCRC ( P R
0x16295c…162af0 Dummy {f00=0x006e, f01=0x0190, f02=» P RF(E) RDM130 ETX RECEIVED P CWK A2,ETB & P RF(E) RDM160 ETB RECEIVED : P CWK A2,ITB P RF(E) RDM170 ITB RECEIVED p 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
0x162af0…162c84 Dummy {f00=0x006e, f01=0x0190, f02=» A1,3 P RF(N) RDM115 NOT DC1-DC3 P SLL A1,6 0 P SCR A1,A4 =7 B * P CF A5,READP 8-BIT CHAR GET NEXT PART X P RF(NZ) RDM120 PARITY ERROR P LCR A1,A4 =7 * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER P ORR A2,A1 =7 P XIF
0x162c84…162e18 Dummy {f00=0x006e, f01=0x0190, f02=»DK A4,1 INCREMENT POINTER $ P IM FBAX INCREMENT BUFFER INDEX " P LD A1,FBAX J P CWK A1,RBUFL+RBUFL ^ P RB(NG) RDM100 NOT OVERFLOW z P* P* BUFFER OVERFLOW P* & P LDK A3,1 INDICATE BUFFER OVERFLOW P IFT STTSTS=1
0x162e18…162fac Dummy {f00=0x006e, f01=0x018e, f02=» DETECTED P* PRDM120 EQU * P IFT STTSTS=1 0 P LDK A1,CSSRPE F $ P CF A15,DCSUPS INCREMENT COUNTER P XIF & P LDK A3,1 INDICATE INVALID MESSAGE P SUK A2,/7F $ P RF(Z) RDM150 MARK HOLD RECEIVED P RB RDM100 P
0x162fac…163140 Dummy {f00=0x006e, f01=0x018e, f02=» 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER P IFF CODE=1 : P CF A5,RDLRC N P RF(Z) RDM150 LRC WAS OK b P XIF P IFT CODE=1 & P CF A5,RDCRC READ CRC AND CHECK IT P RF(E) RDM150 CRC WAS OK P XIF PRDM140 EQU *
0x163140…1632d4 (1, 249) Dummy {f00=0x006e, f01=0x018e, f02=» P ANK A2,H:PARI P RF(Z) RDM155 P LDK A3,1 PARITY ERROR 0 PRDM155 EQU * N P XIF b P IFT TPMODE=1 n & P CWK A3,1 ERROR DETECTED EARLIER ? P RF(NE) RDM158 NO $ P CM TPM OUT OF TRANSPARENT TEXT PRDM158 EQU * P XIF
0x1632d4…163468 Dummy {f00=0x006e, f01=0x0190, f02=» p " P LDK A3,2 INDICATE CORRECT ETB P RB RDM130 . P* @ P* ITB RECEIVED J P* ` PRDM170 EQU * j P IFF CODE=1 ~ P CF A5,RDLRC " P RB(NZ) RDM120 LRC WAS NOT OK P XIF P IFT CODE=1 & P CF A5,RDCRC READ CRC AND CH
0x163468…1635fc Dummy {f00=0x006e, f01=0x0190, f02=»D AND CHECK CRC P IM TPM " P RB(NE) RDM105 CRC WAS NOT OK ( PRDM180 CF A5,READ N P CWK A2,SYNEBC h P RB(E) RDM180 SKIP SYN ~ P CWK A2,DLE $ P RB(NE) RDM105 ILLEGAL CHARACTER P CF A5,READ P CWK A2,STX $ P RB(NE)
0x1635fc…163790 Dummy {f00=0x006e, f01=0x0190, f02=»A2,1 P LDK A3,ACK1 PRELOAD ACK1 & P XRS A2,CACK INCREMENT ACK COUNTER . P RF(NZ) TRDLE X P LDK A3,ACK0 LOAD ACK0 n P RF TRDLE P* P* TRANSMIT WACK P* PTRWACK LDK A3,WACK LOAD WACK P RF TRDLE P*
0x163790…163924 Dummy {f00=0x006e, f01=0x0190, f02=» PTRDLE LDK A2,DLE LOAD DLE " P SC A2,RESEND PUT INSAVE AREA * P SC A3,RESEND+1 P P RF TRREP h P EJECT z P* P* TRANSMIT NAK P* PTRNAK LDK A3,NAK LOAD NAK P RF TREN10 P* P* TRANSMIT EOT P*
0x163924…163ab8 Dummy {f00=0x006e, f01=0x0190, f02=»* ( PTREN10 SC A3,RESEND PUT IN SAVE AREA P LDK A2,/FF 6 P SC A2,RESEND+1 J $ PTRREP CF A5,TRSYNC START OUTPUT b & P LC A2,RESEND GET FIRST CHARACTER P CF A5,WRITEP SEND IT & P LC A2,RESEND+1 GET NEXT CHARACTER P CF A5,WRITE
0x163ab8…163c4c Dummy {f00=0x006e, f01=0x0190, f02=»UTPUT | P IFF LOGG=0 ( P CF A5,LOGSST LOG TRANSMITTER STATUS " P XIF N P RTN A5 Z P EJECT j P* x P* P* TRANSMIT ONE TEXT BLOCK P* P* PTRTEXT EQU * P CF A5,TRSYNC START OUTPUT P IFF TPMODE=0
0x163c4c…163de0 Dummy {f00=0x006e, f01=0x0190, f02=»RC ~ $ P LD A4,FECBBA GET BUFFER ADDRESS P AD A4,FBAX ADD BUFFER INDEX 2 ( P ST A4,FBLST REMEMBER START OF BLOCK V ( P ADK A4,2 SKIP FIRST WORD OF BUFFER & P LDK A3,0 RESET CHARACTER COUNTER P LD A1,FBAX GET BUFFER INDEX " P RF(NZ) TRT1
0x163de0…163f74 (1, 250) Dummy {f00=0x006e, f01=0x0190, f02=»* A2,A2 GET NETWORK SUB-ADDRESS P CF A5,WRITEP SEND STA ( P IFT IBMCHR=1 F P IFF RCOM=1 " P LDK A2,/27 SEND ENTER AS AID p P CF A5,WRITEP " P LDK A2,/20 AND CURSOR ADDRESS P CF A5,WRITEP P LDK A2,/20 P CF A5,WRITE
0x163f74…164108 Dummy {f00=0x006e, f01=0x0190, f02=»************* " P LDK A2,X'2D' AID FOR DISPLAY P CF A5,WRITEP SEND AID < P Z $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS b . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER P LDK A3,5 SET BLOCK COUNT P RF TRT100 PTRT070 EQU * P XIF
0x164108…16429c Dummy {f00=0x006e, f01=0x0190, f02=»NE CHARACTER P ADK A4,1 INCREMENT POINTER P ANK A2,/7F 8 P IFT RCOM=1 L & P LD A1,XRB READ BUFFER COMMAND ??? ` P RF(Z) TRT105 NO!! P @ P************************************************************ P* , P* CHECK IF A
0x16429c…164430 Dummy {f00=0x006e, f01=0x0190, f02=»ACTER t P RF(L) TRT101 YES!!! P XIF * P IFT DMRK=1 6 P CWK A2,/7E LINE FEED ? J " P RF(NE) TRT102 NO,GO TO TRT102 j P LDK A2,/0A PTRT102 EQU * P CWK A2,/7D END OF MESSAGE ? " P RF(NE) TRT103 NO,GO TO TRT103 P LDK A
0x164430…1645c4 Dummy {f00=0x006e, f01=0x0190, f02=» RF TRT105 P PTRT101 EQU * P . P LDK A2,SF 6 " P CF A5,WRITEP SEND START FIELD H P n ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER v P ANK A2,X'7F' ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE P ANK A1,1 P ANK A2,/1E MASK
0x1645c4…164758 Dummy {f00=0x006e, f01=0x0190, f02=»/18 CHECK SPECIAL ATTRIBUT P RF(NE) TRT104 " P LDK A2,/30 8 PTRT104 EQU * L P CF A5,WRITEP SEND ATTRIBUTE ` P ADK A3,1 P RF TRT110 PTRT105 EQU * P XIF P EJECT P IFF TPMODE=1 P CWK A2,/07 ( P RF(L) T
0x164758…1648ec Dummy {f00=0x006e, f01=0x0190, f02=» p & P LD A1,FECBRL GET REQUESTED LENGTH P CW A1,FBAX 2 " P RF(NG) TRT130 END OF MESSAGE F * P ADK A3,1 INCREMENT CHARACTER COUNTER l P CWK A3,TBLEN P IFT TPMODE=1 P RB(L) TRT105 NOT FULL BLOCK P XIF P RB(L) TRT100 NOT
0x1648ec…164a80 Dummy {f00=0x006e, f01=0x0190, f02=»A1,-1,A4 P RF(NE) TRT116 NO SEND ETB ( P LCR A2,A4 GET FIRST BYTE AFTER SBA 2 P ADK A4,1 INREMENT POINTER ^ P CF A5,WRITEP SEND IT P IM FBAX INCREMENT INDEX . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA P CF A5,WRITEP SEND IT
0x164a80…164c14 (1, 251) Dummy {f00=0x006f, f01=0x0190, f02=»TRA DLE x P XIF P LDK A2,ETB LOAD ETB PTRT120 EQU * 8 P IFT TPMODE=1 L P CM TPM b P XIF r P CF A5,WRITEP SEND IT ~ P IFF CODE=1 P LDR A2,A8 GET LRC P CF A5,WRITEP SEND LRC P XIF P IFT CODE=1 P
0x164c14…164da8 Dummy {f00=0x006f, f01=0x0190, f02=» BYTE 2 z P XIF P IFT STTSTS=1 P* 2 P* < " P* COUNT MESSAGES TRANSMITTED F P* l P LDK A1,CSSTBL v P CF A15,DCSUPS P XIF P ABL TRRE10 HALT OUTPUT PTRT130 EQU * P IM XETX INDICATE 'ETX SENT' P I
0x164da8…164f3c Dummy {f00=0x006f, f01=0x018e, f02=»ETX AND LRC P EJECT P* " P* , P* TRANSMIT STATUS MESSAGE 6 P* X P* b P IFF STARVI=0 l PTRSTA EQU * $ P IM XSTA INDICATE 'STATUS SENT' P ST A6,FDWTUT SAVE A6 P CF A5,TRSYNC START OUTPUT P LDK A2,SO
0x164f3c…1650d0 Dummy {f00=0x006f, f01=0x0190, f02=» P CF A5,WRITEP SEND 'R' P LDK A2,STX " P CF A5,WRITE SEND STX 6 P LDR* A2,A7 T P CF A5,WRITEP SEND TCA h " 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 GE
0x1650d0…165264 Dummy {f00=0x006f, f01=0x0190, f02=» P LDK A2,NOIR PRELOAD S/S 1 P LD A1,DWTST,A4 GET STATUS & P ANK A1,5 H P RF(Z) TRST10 NOT 'IR' Z P ANK A1,4 x 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 AN
0x165264…1653f8 Dummy {f00=0x006f, f01=0x0190, f02=»A5,CHALTI HALT INPUT IF NOT DONE , P CF A5,CSYNCO START OUTPUT WITH SYNC DEF ( * P CF A5,READ WAIT FOR OUTPUT INTERRUPT X P* P* P* SEND 4 SYN-CHARACTERS P* P LDK A3,4 PTRS100 EQU * P LDK A2,SYN P CF A5,WRI
0x1653f8…16558c Dummy {f00=0x006f, f01=0x018e, f02=»SYNCI :SEND SYNC-PATTERN FOR INPUT DATA P* 0 PCSYNCI EQU * : P LD A2,PFPOST N $ P RF(NZ) CSYN:I WAIT FOR POWER UP d P CF A5,CHALTI STOP INPUT & P ST A5,DCLCI SET INPUT ACTIVE FLAG P IFT P6805=1 . P LDK A2,PARITY CHAR PARITY FUN
0x16558c…165720 Dummy {f00=0x006f, f01=0x0190, f02=» ` P XIF P IFT P6805=0 * P LDKL A2,CBCARR+SYNC DEF SYNC-PATTERN ( 2 P CIO A2,1,LCUIN SEND INPUT SYNC-PATTERN TO LC V P =1 P XIF PCSYN:I EQU * P RTN A5 RETURN TO CALLER P* P* " P* CHALTI : HALT INPUT CHA
0x165720…1658b4 (1, 252) Dummy {f00=0x006f, f01=0x018e, f02=»NPUT z & P CM DCLCI CLEAR INPUT ACTIVE FLAG P SST A2,LCUIN READ STATUS 6 " P RF(A) CHALTR SST ACCEPTED =1 X : 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
0x1658b4…165a48 Dummy {f00=0x006f, f01=0x0190, f02=» P* PCSYNCO EQU * P LD A2,PFPOST " $ P RF(NZ) CSYN:O WAIT FOR POWER UP 8 P IFT P6805=1 ` * P LDK A2,PARITY CHAR PARITY CHECK BY CU t P CIO A2,1,LCUUT CIO START P RF(A) CSYNC1 ACCEPTED $ P SST A2,LCUUT TRY TO READ STATUS *
0x165a48…165bdc Dummy {f00=0x006f, f01=0x0190, f02=»ERN r P XIF P IFT P6805=0 & P CIO A2,1,LCUUT START TRANSMITTER , P XIF V PCSYN:O EQU * b P RTN A5 RETURN TO CALLER v P* P* $ P* CHALTO : HALT OUTPUT CHANNEL P* PCHALTO EQU * P IFT P6805=1 P LDK
0x165bdc…165d70 Dummy {f00=0x006f, f01=0x0190, f02=»R =1 l . P RF(NA) CHLT00 INSTRUCTION NOT ACCEPTED =1 " P CF A5,READ WAIT FOR INTERRUPT > P XIF d P SST A2,LCUUT GET STATUS p PCHLT00 EQU * P IFT STTSTS=1 P ANK A2,H:NOOP+H:THRU P RF(Z) CHLTO2 $ P LDK A1,CSCDCE DCE NOT OPE
0x165d70…165f04 Dummy {f00=0x006f, f01=0x0190, f02=»DCSUPS INCREMENT COUNTER PCHLTO2 EQU * P XIF 4 P RTN A5 RETURN TO CALLER @ P EJECT ` P* n P* x P* RECEIVER INTERRUPT P* P* PIH1501 EQU * P ST P,INTSAV P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-
0x165f04…166098 Dummy {f00=0x006f, f01=0x018e, f02=» P INR A2,0,LCUIN READ CHAR , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS & P IFF LOGG=0 V ( P CF A5,LOGIN LOG RECEIVED CHARACTER j P XIF P IFT TPMODE=1 P C2 TPM 8 P RF(NZ) IHLC10 DO NOT SKIP SYNC IN TRANSPARENT TEXT P XIF
0x166098…16622c Dummy {f00=0x006f, f01=0x0190, f02=» P IFT CODE=0 P XRR A8,A2 CALCULATE LRC P XIF 8 P IFT CODE=1 D P CF A5,CRCCAL CALCULATE CRC X ( P LC A2,TASCII,A2 TRANSLATE TO ASCII | P XIF PIHLC10 EQU * P LDR A1,A2 * P ORKL A1,/FF00 SET FLAG FOR CARRIER ON & P
0x16622c…1663c0 Dummy {f00=0x006f, f01=0x018e, f02=»5 RETURN TO CALLER PIHIN20 EQU * P CF A5,SST PERFORM SST . P ABL BRM L P EJECT P* j P* t P* TRANSMITTER INTERRUPT ~ P* P* PIH1502 EQU * P ST P,INTSAV P IFT CPU852=1 P CF A15,SAVE8 SAVE A1
0x1663c0…166554 (1, 253) Dummy {f00=0x006f, f01=0x0190, f02=» h P RTN A5 P EJECT P* & P* 0 & P* SST INSTRUCTION AND STATUS CHECK : P* d ( P* LCU STATUS : BIT 10=CARRIER OFF n . P* BIT 13=PARITY ERROR (6805 ONLY) SALCUZ , P* BIT 14=THROUGHPUT ERROR , P*
0x166554…1666e8 Dummy {f00=0x006f, f01=0x0190, f02=»F A5,LOGSST LOGG SST INFORMATION P XIF ( P ANK A2,H:ERR ERROR BIT SET 4 P RF(NZ) SST050 YES X P IFT P6805=0 r P LD A2,DCLCI INPUT STATUS * P RF(Z) SST125 INPUT NOT ACTIVE IGNORE ( P RF(N) SST100 INPUT ACTIVE WITH DATA * P LDKL
0x1666e8…16687c Dummy {f00=0x006f, f01=0x0190, f02=»FT P6805=1 P RF SST100 P XIF $ PSST050 EQU * 0 * P CM DTEPLS,A7 CLEAR PHYS. LINK STATUS D P ANK A2,H:CARR CARRIR OFF r P RF(Z) SST075 NO P LD A2,DCLCI INPUT STATUS 0 P RF(Z) SST125 NOT ACTIVE IGNORE CARRIER OFF P RF SS
0x16687c…166a10 Dummy {f00=0x006f, f01=0x018e, f02=» P* P* $ P* COUNT INPUT THROUGHPUT ERROR P* D P LDK A1,CSCDIT N P CF A15,DCSUPS d P XIF z P ABL BRM110 P* PSST100 EQU * P LDR A2,A1 P ANK A2,H:NOOP NOT OPERABLE P RF(Z) SST200 P IFT
0x166a10…166ba4 Dummy {f00=0x006f, f01=0x0190, f02=» P CF A15,STREG SAVE REGISTERS P CF A15,SETIME DELAY 1 SEC ( P DATA SST150,10 J PSST125 EQU * b $ P ABL TDISP RETURN TO DISPATCHER v P* PSST150 EQU * P CF A15,LDREG LOAD REGISTERS PSST200 EQU * P LDR A2,A1 . P A
0x166ba4…166d38 Dummy {f00=0x006f, f01=0x0190, f02=»ST250 YES PSST225 EQU * 0 P ST A1,DCSTCU STORE STATUS AS CURRENT STATUS & PSST250 EQU * Z P RTN A5 RETURN TO CALLER n P EJECT P* P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* P* PWRITE EQU * P
0x166d38…166ecc Dummy {f00=0x006f, f01=0x0190, f02=» CF A5,WRIDLE SEND EXTRA DLE P LDK A2,DLE $ P RF WRIT05 8 PWRIT02 EQU * J P ANK A2,/FF ^ P CWK A2,/FF r 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC P XIF PWRIT05 EQU * " P
0x166ecc…167060 Dummy {f00=0x006f, f01=0x0190, f02=» CODE=1 & PWRIT10 CF A5,CRCCAL CALCULATE CRC P XIF : PWRIT15 EQU * F P IFF LOGG=0 Z & P CF A5,LOGOUT LOG OUTPUT CHARACTER n P XIF P* PREAD CF A15,STREG P ABL TDISP P* P* < P* THESE INSTRUCTIONS ARE
0x167060…1671f4 (1, 254) Dummy {f00=0x006f, f01=0x0190, f02=»HARACTER z P RB(A) WRIT15 ACCEPTED $ P RB READ OUTPUT THROUGHPUT ERROR . P EJECT V P* d P* n P*** WRITEP x P* P* WRITE A2 WITH PARITY P* P* P IFT CODE+P6805=0 SALCUZ PWRITEP ANK A2,/FF P ECR
0x1671f4…167388 Dummy {f00=0x006f, f01=0x0190, f02=» P XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE 6 P XIF N P* Z P* d P* n P*** READP x P* . P* READ CHARACTER TO A2 AND CHECK PARITY P* P* PREADP CF A5,READ P IFT CODE+P6805=0 SAL
0x167388…16751c Dummy {f00=0x006f, f01=0x0190, f02=»0 LDR A1,A2 P ANK A2,/7F P XIF ( P IFF CODE+P6805=0 SALCUZ 4 P LDK A1,/80 V P XIF j P ADK A5,4 v P ANK A1,/80 P XRK A1,/80 P ABR* A5 P* P* P EJECT P* P* P* POWER ON FUNCTIO
0x16751c…1676b0 Dummy {f00=0x006f, f01=0x0190, f02=»1 P MSR 8,A15 SAVE A1-A8 P XIF ( " P LDKL A7,DTETAB DTETAB ADDRESS 4 P IFT STARVI=1 Z P LDK A5,4 SET DEVICE END p ( P LD A6,DTEDWT,A7 GET FIRST DWT ADDR PDC1510 EQU * P RF(Z) DC1520 END OF CHAIN & P ORS A5,DWTST,A6 STORE
0x1676b0…167844 Dummy {f00=0x006f, f01=0x0190, f02=»20 EQU * P =4 P =13 P XIF . P LD A2,DTESTA,A7 DTE STATUS : P SUK A2,2 ^ $ P ABL(NZ) TDISP OPEN NOT EXECUTED p * P CM DCLCI INIT LINE CONTROL UNIT INFO ( P LD A2,DCTPGP GET POLL TIMER POINTER " P RF(NZ) DC1540 ALREADY
0x167844…1679d8 Dummy {f00=0x006f, f01=0x0190, f02=»* P* CALCULATION OF CRC P* & P* A2 = CHARACTER 0 P* A8 = ACCUMULATED CRC H P* f P* p PCRCCAL EQU * z 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,
0x1679d8…167b6c Dummy {f00=0x006f, 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
0x167b6c…167d00 Dummy {f00=0x006f, 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
0x167d00…167e94 (1, 255) Dummy {f00=0x0070, 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
0x167e94…168028 Dummy {f00=0x0070, 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
0x168028…1681bc Dummy {f00=0x0070, 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
0x1681bc…168350 Dummy {f00=0x0070, 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
0x168350…1684e4 Dummy {f00=0x0070, 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
0x1684e4…168678 Dummy {f00=0x0070, 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
0x168678…16880c Dummy {f00=0x0070, 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,
0x16880c…1689a0 Dummy {f00=0x0070, 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
0x1689a0…168b34 (1, 256) Dummy {f00=0x0070, 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
0x168b34…168cc8 Dummy {f00=0x0070, 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
0x168cc8…168e5c Dummy {f00=0x0070, 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
0x168e5c…168ff0 Dummy {f00=0x0070, 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
0x168ff0…169184 Dummy {f00=0x0070, f01=0x2008, f02=» H P X ` h p x
0x169184…169318 Dummy {f00=0x0070, f01=0x0190, f02=»MODEM : | PRQOP90 EQU * ; * P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ? ; " P ABL(NZ) RTOK YES RETURN OK ; P * P ABL RTPHYC RETURN PHYSICAL CONNECTION ; t P EJECT ; P* ; P* CLOSE REQUEST ; P* ; P* ACTIVATION PARAMETERS: ; " P* OPTION /0
0x169318…1694ac Dummy {f00=0x0070, f01=0x0190, f02=») ARE ACTIVE ; T P* ACTIVE. < 0 P* 2. IF UNCONDITIONAL, DISCONNECT ALL DWT:S < * P* < ^ PRQCLOS EQU * < h ( P LD A5,DWTOR,A6 GET OPTION AND ORDER < | , P LD A2,ECBCW2,A8 GET SYMBOLIC DTE - ADDR < P RF(Z) RQCL20 < " P CW A2,DTELAD,A7 CORRECT D
0x1694ac…169640 Dummy {f00=0x0070, f01=0x018e, f02=»: OK < | P SUK A2,2 DTE OPENED ? = * P ABL(NZ) RTSEQ RETURN: SEQUENCE ERROR = * $ P IM DTESTA,A7 CLOSE IN PROGRESS = X ( P LDR A8,A6 SAVE REQUESTING DWT-ADDR = P* = PRQCL40 EQU * = P IFT MESPAS=1 = * P LD A6,DTEDDT,A7 GET DISCARD DWT ADDR =
0x169640…1697d4 (1, 257) Opaque[0x194]
0x1697d4…169968 # DirEnt {nam=»DRDC17«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e10, f03=0x0000}
0x1697d4…169968 IdxSect {
0x1697d4…169968 f00 = 0x0070 // 0x1697d4 @0x0
0x1697d4…169968 f01 = 0x0054 // 0x1697d6 @0x2
0x1697d4…169968 gno = [ // 0x1697d8 @0x4
0x1697d4…169968 [0x00]: C0x0070.0x2.0
0x1697d4…169968 [0x01]: C0x0070.0x3.0
0x1697d4…169968 [0x02]: C0x0071.0x0.0
0x1697d4…169968 [0x03]: C0x0071.0x1.0
0x1697d4…169968 [0x04]: C0x0071.0x2.0
0x1697d4…169968 [0x05]: C0x0071.0x3.0
0x1697d4…169968 [0x06]: C0x0072.0x0.0
0x1697d4…169968 [0x07]: C0x0072.0x1.0
0x1697d4…169968 [0x08]: C0x0072.0x2.0
0x1697d4…169968 [0x09]: C0x0072.0x3.0
0x1697d4…169968 [0x0a]: C0x0073.0x0.0
0x1697d4…169968 [0x0b]: C0x0073.0x1.0
0x1697d4…169968 [0x0c]: C0x0073.0x2.0
0x1697d4…169968 [0x0d]: C0x0073.0x3.0
0x1697d4…169968 [0x0e]: C0x0074.0x0.0
0x1697d4…169968 [0x0f]: C0x0074.0x1.0
0x1697d4…169968 [0x10]: C0x0074.0x2.0
0x1697d4…169968 [0x11]: C0x0074.0x3.0
0x1697d4…169968 [0x12]: C0x0075.0x0.0
0x1697d4…169968 [0x13]: C0x0075.0x1.0
0x1697d4…169968 [0x14]: C0x0075.0x2.0
0x1697d4…169968 [0x15]: C0x0075.0x3.0
0x1697d4…169968 [0x16]: C0x0076.0x0.0
0x1697d4…169968 [0x17]: C0x0076.0x1.0
0x1697d4…169968 [0x18]: C0x0076.0x2.0
0x1697d4…169968 [0x19]: C0x0076.0x3.0
0x1697d4…169968 [0x1a]: C0x0077.0x0.0
0x1697d4…169968 [0x1b]: C0x0077.0x1.0
0x1697d4…169968 [0x1c]: C0x0077.0x2.0
0x1697d4…169968 [0x1d]: C0x0077.0x3.0
0x1697d4…169968 [0x1e]: C0x0078.0x0.0
0x1697d4…169968 [0x1f]: C0x0078.0x1.0
0x1697d4…169968 [0x20]: C0x0078.0x2.0
0x1697d4…169968 [0x21]: C0x0078.0x3.0
0x1697d4…169968 [0x22]: C0x0079.0x0.0
0x1697d4…169968 [0x23]: C0x0079.0x1.0
0x1697d4…169968 [0x24]: C0x0079.0x2.0
0x1697d4…169968 [0x25]: C0x0079.0x3.0
0x1697d4…169968 [0x26]: C0x007a.0x0.0
0x1697d4…169968 [0x27]: C0x007a.0x1.0
0x1697d4…169968 [0x28]: C0x007a.0x2.0
0x1697d4…169968 [0x29]: C0x007a.0x3.0
0x1697d4…169968 ]
0x1697d4…169968 }
0x169968…169afc Dummy {f00=0x0070, f01=0x0190, f02=» 0 P IDENT DRDC17 REL 11.0 81-07-07 870105041100 P 8 $ P =11, ASS ERR WHEN USING MSV2 @ & P =10, ITB TRANSMISSION INCLUDED h ( P =9, ABORT ROUTINE NOT RE-ENTRANT P REL 11.0 81-05-22 $ P =8, CLEARING OF TIMER POINTER . P =7,
0x169afc…169c90 Dummy {f00=0x0070, f01=0x0190, f02=»DE IS USED t & P =4, CONTROL IF O/P INT ALLOWED P =3, TIMER HANDLING ERROR < $ P =2, INCOMPLETE LOGG FUNCTION ` " P =1, HALT O/P ERROR (SALCUZ) P REL 11.0 81-03-30 P < P******************************************************
0x169c90…169e24 Dummy {f00=0x0070, f01=0x0190, f02=»S 6800 l P* 4 P* LINE PROCEDURE: BSC CONTENTION/SIEMENS MSV2 P* P P* Z P* d P* n P* x < P******************************************************* P* $ P* STANDARD USE OF REGISTERS : P* P* A1 WO
0x169e24…169fb8 Dummy {f00=0x0070, f01=0x0190, f02=»TER ~ P* A6 DWT ADDRESS P* A7 BCC ACCUMULATOR ( P* A8 ECB ADDRESS H P* d < P******************************************************* n P EJECT P* < P******************************************************* P*
0x169fb8…16a14c Dummy {f00=0x0070, f01=0x0190, f02=» AT POWER ON z P* P* INTERRUPT HANDLERS P* : P ENTRY IH1701 LINE 01 INPUT D P ENTRY IH1702 OUTPUT h P ENTRY IH1703 LINE 02 INPUT P ENTRY IH1704 OUTPUT P ENTRY IH1705 LINE 03 INPUT P ENTRY IH1706
0x16a14c…16a2e0 Dummy {f00=0x0070, f01=0x0190, f02=» P ENTRY DW1701 LINE 01 DWT P ENTRY DW1702 LINE 02 DWT & P ENTRY DW1703 LINE 03 DWT H P ENTRY DW1704 LINE 04 DWT j P EJECT P* < P******************************************************* P* P* EXTERNAL REFERENCES
0x16a2e0…16a474 (1, 258) Dummy {f00=0x0070, f01=0x0190, f02=»DIO REQUEST COMPLETION 0 P EXTRN DISEND REQUEST COMPLETION+DISPATCHING P EXTRN DISIOE REQUEST ERROR R ( P EXTRN SETIME SET TIMER CALL ADDRESS v P EXTRN DWTST DWT STATUS " P EXTRN DWTECB DWT ECB ADDRESS P EXTRN DWTOR DWT ORDER $ P E
0x16a474…16a608 Dummy {f00=0x0070, f01=0x0190, f02=»CB RETURN CODE $ P EXTRN ECBCW1 ECB CONTROL-WORD 1 $ P EXTRN ECBCW2 ECB CONTROL-WORD 2 > 0 P EXTRN TASCII CODE CONV. TABLE EBCDIC-ASCII f 0 P EXTRN TEBCDIC CODE CONV. TABLE ASCII-EBCDIC * P EXTRN INTSAV SAVE AREA FOR INTERRUPTS $ P EXTRN ILLIN
0x16a608…16a79c Dummy {f00=0x0070, f01=0x018e, f02=» DCSRST RESET STATISTIC AREA 2 P EXTRN DCSUPR UPDATE COUNTER IN STATISTIC AREA $ & P EXTRN DCSRED READ STATISTIC AREA Z ( P EXTRN LKMRQE ABORT NOT PERMITTED =9 , P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR =9 P EJECT P* P* P* FORM
0x16a79c…16a930 Dummy {f00=0x0070, f01=0x0190, f02=» P* P* PX:A EQU 1 <=4 0 PNLINE EQU X:A NUMBER OF COMMUNICATION LINES . P b PX:B EQU 1 j . PBSC EQU X:B IF = 0. SIEMENS MSV2 PROCEDURE | P IF = 1. BSC PROCEDURE PX:C EQU 1 $ PCODE EQU X:C IF = 0. ASCII CODE P
0x16a930…16aac4 Dummy {f00=0x0070, f01=0x0190, f02=»:E IF =1, SPACE COMPR./DECOMPR. PERFORMED P 2 PX:F EQU 0 : 8 PIDLELN EQU X:F IF =1, IDLE LINE ACTIVITY INCLUDED TO L " P HOLD A 2-WIRE SWITCHED LINE , P IN CASE OF NO COMMUNICATION ACTIVITY P PX:G EQU 0 6 PSTAT EQU X:G IF
0x16aac4…16ac58 Dummy {f00=0x0070, f01=0x0190, f02=»G AREA LENGTH PER LINE P PX:I EQU 0 & 0 PSALCUZ EQU X:I IF =0 DC CONTROL UNIT 6834 : ( P IF =1 DC CONTROL UNIT 6857/SALCUZ n P IFT SALCUZ=1 PX:J EQU /0A , PDAMI01 EQU X:J INPUT DEVICE ADDR LINE 01 P PX:K EQU /0B
0x16ac58…16adec Dummy {f00=0x0070, f01=0x018e, f02=» PX:M EQU /0D , PDAMI04 EQU X:M INPUT DEVICE ADDR LINE 04 P XIF H P IFF SALCUZ=1 T PX:J EQU /02 j , PDAMI01 EQU X:J INPUT DEVICE ADDR LINE 01 ~ P PX:K EQU /22 , PDAMI02 EQU X:K INPUT DEVICE ADDR LINE 02 P PX:L EQ
0x16adec…16af80 Dummy {f00=0x0070, f01=0x018e, f02=» P XIF P PX:N EQU 0 * PTBUFL EQU X:N MMU BUFFER SIZE IN WORDS * P* X P* b . P* A PROGRAM VERSION USING TOSS MMU PAGING l * P* IS OBTAINED BY SETTING MMUPAG EQU 1 P* PMMUPAG EQU 0 P* 6 P* A PROGRAM VERSION
0x16af80…16b114 (1, 259) Dummy {f00=0x0071, f01=0x0190, f02=» P EJECT P* < P******************************************************* P* P* SYSTEM PARAMETERS f P* < P******************************************************* P* PDEVIND EQU 2 DEVICE INDEX P * PBUFLEN E
0x16b114…16b2a8 Dummy {f00=0x0071, f01=0x0190, f02=»T DEVICE ADDRESS z P XIF P IFF SALCUZ=1 $ , PBIAS EQU /10 OUTPUT-INPUT DEVICE ADDRESS : P XIF j P v * PSPEED EQU 1 IF =1, HIGH SPEED (CT111) ~ P* * PITBUSE EQU 0 IF =1, ITB TO USER BUFFER P* < PITBTRM EQU 0 IF =1, ITB IS
0x16b2a8…16b43c Dummy {f00=0x0071, f01=0x0190, f02=»ER =10 f 4 P IF PRESENT IN SEND BUFFER, ALL ACCORDING =10 * P TO THE IBM 2780 PROTOCOL. SPAC =10 F 2 P COMP/DECOMP IS NOT ALLOWED IF ITBTRM=1 =10 t P* P* P* RETRY LIMITS P* ( PL:ENQ EQU 3 COUNT OUT AFTER 3 ENQ:S ,
0x16b43c…16b5d0 Dummy {f00=0x0071, f01=0x0190, f02=»E TIMEOUT VALUES P* . PT:BID EQU TBID BID TIMER, STANDARD IS 1 S " , PT:TTD EQU 20 TEMPORARY TEXT DELAY TIMER T ( PT:WACK EQU 20 TIMER FOR SENDING WACK 0 PT:ENQ EQU 30 TIMER FOR SENDING ENQ, IN CASE " P OF NO ANSWER FROM THE SLAVE 8
0x16b5d0…16b764 Dummy {f00=0x0071, f01=0x0190, f02=»RING O/P l > PT:MERR EQU T:MACT MODEM ERROR SUPERV. TIMER IN MASTER MODE D P*T:SERR EQU 3*(L:ENQ+1) MODEM ERROR SUPERV. TIMER IN SLAVE MODE R 0 PT:IDLE EQU 150 IDLE TIMER FOR SWITCHED LINES P* P* OPTION CODE EQUATES P* * PO:TRP EQ
0x16b764…16b8f8 Dummy {f00=0x0071, f01=0x0190, f02=» P* P IFT SPEED=1 . PLSPEED EQU /0200 HIGH SPEED SELECTION 6834 " P XIF T P IFT SPEED=0 ` * PLSPEED EQU 0 LOW SPEED SELECTION 6834 t P XIF P IFT COMPRS=1 P* P* SPACE COMPRESION CONSTANTS P* . PSP:MAX E
0x16b8f8…16ba8c Dummy {f00=0x0071, f01=0x0190, f02=» =4800 BPS P =63 <4800 BPS " PSP:MIN EQU 2 MIN NO OF SPACES 8 0 PSP:CHB EQU /40 SPACE COUNT CHAR SPECIAL BIT ^ * PSP:CHM EQU /3F SPACE COUNT CHAR MASK 0 PSP:ASC EQU /20 ASCII SPACE CHAR FOR DECOMPR P* P XIF
0x16ba8c…16bc20 Dummy {f00=0x0071, f01=0x0190, f02=» ORDERS AND RETURN CODES x P* 6 P************************************************** * P* d P* ORDERS: n P* P* /21 - OPEN P* P* /22 - CLOSE P* P* /24 - CONNECT ACTIVE P* P* /27 - CONNECT PASSIVE
0x16bc20…16bdb4 (1, 260) Dummy {f00=0x0071, f01=0x0190, f02=»S ~ P* P* /38 - SET STATUS P* . " P* /2D - READ/RESET STATISTICS 8 P* ^ P* /39 - SET TIMEOUT h P* P EJECT P* RETURN CODES: P* 6 P* STATUS WORD = 0 REQUEST COMPLETED NORMALLY P* B P*
0x16bdb4…16bf48 Dummy {f00=0x0071, f01=0x0190, f02=» R P* PBIT0 EQU /8000 REQUEST ERROR " PBIT1 EQU /4000 REQUEST ABORTED 6 2 PBIT2 EQU /2000 DATA INTERRUPT E.I. RVI OR ENQ . PBIT3 EQU /1000 END OF DATA UNITS E.I. EOT 0 PBIT4 EQU /0800 DATA SEGMENT E.I ETB RECEIVED : PBIT5 EQU /0400 Q
0x16bf48…16c0dc Dummy {f00=0x0071, f01=0x0190, f02=» PBIT8 EQU /80 NOT USED PBIT9 EQU /40 TIMEOUT " 6 PBIT10 EQU /20 DATA CANCELLED (EOT ON MESS. BLOCK) > PBIT11 EQU /10 SEQUENCE ERROR x ( PBIT12 EQU /08 INCORR. BUFFER LENGTH PBIT13 EQU /04 NOT USED * PBIT14 EQU /02 LOGICAL CONNECTION E
0x16c0dc…16c270 Dummy {f00=0x0071, f01=0x0190, f02=»EQUEST COMPLETED NORMALY P " PR:RERR EQU BIT0 REQUEST ERROR ( P N 4 PR:INT EQU BIT2 ENQ ON 'BID' OR RVI ON MESS BLOCK V P 6 PR:EOT EQU BIT3 EOT RECEIVED TO COMPLETE A MESSAGE ( P RECEPTION, OR MAX NBR'S OF WACKS & P RECEIVED
0x16c270…16c404 Dummy {f00=0x0071, f01=0x0190, f02=»RECEIVED p P 0 PR:NCON EQU BIT6 DLE EOT RECEIVED, INDICATING * P DISCONN. OF THE PHYSICAL CONNECTION L " P (SWITCHED CONNECTIONS ONLY) z P PR:TERR EQU BIT9 TIMEOUT P 2 PR:CANC EQU BIT10 EOT RECEIVED ON A MESS BLOCK P
0x16c404…16c598 Dummy {f00=0x0071, f01=0x0190, f02=»ONNECTION ERROR v & P E.G. NO ANSWER OR WRONG ANSWER P B PR:MNOP EQU BIT15 MODEM ERROR J P IFT STAT=1 n P EJECT B =************************************************************* * P* STATISTIC EQU:S * P* USED IN CALL
0x16c598…16c72c Dummy {f00=0x0071, f01=0x0190, f02=»Z WHERE X=1IF PARAMETER-2 USED AS INCREMENT 8 P* ELSE INCREMENT WITH +1 4 8 P* Y=1 IF DOUBLE WORD COUNTER p B P* ZZZZZZ= COUNTER INDEX AS LISTED BELOW * B =************
0x16c72c…16c8c0 Dummy {f00=0x0071, f01=0x0190, f02=»CH DATA BLOCKS RECEIVED ~ : PCSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY " P (NBR OF TRANSMITTED WACK'S) ^ > PCSSRBO EQU /12 " DATA BLOCKS REJECTED BUFFER OVERFLOW 6 PCSSRAB EQU /13 " DATA BLOCKS REJECTED ABORTED $ P (EOT
0x16c8c0…16ca54 (1, 261) Dummy {f00=0x0071, f01=0x0190, f02=» OR DUE TO A BCC ERROR 0 PCSSTBL EQU /15 " DATA BLOCKS TRANSMITTED 2 PCSSTRT EQU /16 " DATA BLOCKS RETRANSMITTED R , PCSSTAB EQU /17 " DATA BLOCKS ABORTED $ P (EOT RECEIVED AS RESPONSE TO P A DATA BLOCK) P P* DTE/
0x16ca54…16cbe8 Dummy {f00=0x0071, f01=0x0190, f02=» /29 I/P THROUGHPUT ERROR ( PCSCDOT EQU /2A O/P THROUGHPUT ERROR " $ PCSCDCE EQU /2B DCE NOT OPERABLE N P XIF v P EJECT 6 P************************************************* P* P* DEVICE WORK AREAS P* 2 P**************
0x16cbe8…16cd7c Dummy {f00=0x0071, f01=0x0190, f02=» 1 = DEVICE NOT BUSY P* * , PS:BID EQU BIT10 BID SEQUENCE IN PROGRESS 4 * PS:EOT EQU BIT11 EOT HAS BEEN RECEIVED d 2 PS:BACK EQU BIT12 BLOCK ACKNOWLEDGED WITH WACK 2 PS:NCON EQU BIT13 NO PHYSICAL CONNECTION EXISTS $ PS:CERR EQU
0x16cd7c…16cf10 Dummy {f00=0x0071, f01=0x0190, f02=»******* ` P* ! $ P* LINE CONTROL CHARACTER EQUATES ! P* ! B < P******************************************************* ! L P* ! ( PA:SPAC EQU /20 ASCII SPACE CHARACTER ! ( PA:SYN EQU /16 ASCII SYNCHRONOUS IDLE ! & PA:ETB EQU /17 ASCII ETB CH
0x16cf10…16d0a4 Dummy {f00=0x0071, f01=0x018e, f02=»DATA LINK ESCAPE ! $ PC:SOH EQU /01 START OF HEADING " PC:STX EQU /02 START OF TEXT " @ PC:ETX EQU /03 END OF TEXT " d , PC:EM EQU /19 END OF MEDIA CHARACTER =10 " P IFT CODE=0 " " PC:SYN EQU /16 SYNCHRONOUS IDLE " & PC:EOT EQU /04 END OF TRA
0x16d0a4…16d238 Dummy {f00=0x0071, f01=0x018e, f02=» " h * PC:RVI EQU /3C SEC CHAR IN RVI SEQUENCE # . PC:ACK0 EQU /30 SEC CHAR IN ACK 0 SEQUENCE # 6 . PC:ACK1 EQU /31 SEC CHAR IN ACK 1 SEQUENCE # h PGS EQU /1D GROUP SEPARATOR # " PC:SPAC EQU /20 SPACE CHARACTER # " PC:ITB EQU /1F UNIT SEPARATOR # "
0x16d238…16d3cc Dummy {f00=0x0071, f01=0x0190, f02=» P XIF $ P IFT CODE=0 $ P IFT BSC=0 $ $ , PC:WACK EQU /BF SEC CHAR IN WABT SEQUENCE $ 6 P SIEMENS MSV2 PROCEDURE $ f P XIF $ * P IFT CODE=1 EBCDIC CHARACTER EQUATES $ " PC:SYN EQU /32 SYNCHRONOUS IDLE $ & PC:EOT EQU /37 END OF TRANSMISSIO
0x16d3cc…16d560 Dummy {f00=0x0071, f01=0x0190, f02=»FT BSC=1 $ , PC:WACK EQU /6B SEC CHAR IN WACK SEQUENCE % P XIF % @ P IFT CODE=1 % L P IFT BSC=0 % ` * PC:WACK EQU /7F WABT CODE FOR MSV2 =11 % r P XIF % P IFT CODE=1 % * PC:RVI EQU /7C SEC CHAR IN RVI SEQUENCE % . PC:ACK0 EQU /70 SEC CHAR IN
0x16d560…16d6f4 (1, 262) Dummy {f00=0x0071, f01=0x0190, f02=» $ PC:SPACE EQU /40 SPACE CHARACTER & PIUS EQU /1F UNIT SEPARATOR & , PC:ITB EQU IUS RENAME ITB & P * PC:PAR EQU /00 NO PARITY BIT IN EBCDIC & p P XIF & P EJECT & B P************************************************************* & P* & . P
0x16d6f4…16d888 Dummy {f00=0x0071, f01=0x0190, f02=» P IFF SALCUZ=1 ' PC:CARR EQU /100 CARRIER ON ' : PC:CRSP EQU C:CARR+LSPEED CARRIER ON + SPEED SELECTION ' B P XIF ' P* ' P* ' P EJECT ' 8 P*************************************************** ' P* ' ( P* LINE CONTROL U
0x16d888…16da1c Dummy {f00=0x0071, f01=0x0190, f02=»ROUGHPUT ERROR ' t P IFT SALCUZ=1 ( 0 PS:PARE EQU /04 CHAR PARITY ERROR ( 2 P XIF ( f * PS:CARR EQU /20 CARRIER OFF ( v , PS:CALL EQU /40 INCOMING CALL ( P* ( P IFT SALCUZ=1 ( . PS:ERR EQU /27 S:
0x16da1c…16dbb0 Dummy {f00=0x0071, f01=0x0190, f02=» ( : P****************************************************** ) P* ) F $ P* LINE CONTROL UNIT INSTRUCTIONS ) P P* ) x : P****************************************************** ) P* ) * PHLTI:P CIO A2,0,0 HALT INPUT CU DEVICE ) P* ) . PSSTI:P
0x16dbb0…16dd44 Dummy {f00=0x0071, f01=0x0190, f02=»UTPUT CU DEVICE ) x P* * 0 PSSTO:P SST A2,0 GET OUTPUT CU DEVICE STATUS * " P* * V , PSTAO:P CIO A2,1,0 START OUTPUT CU DEVICE * ` P* * 2 PINR:A2 INR A2,0,0 GET CHARACTE FROM CU DEVICE * P* * 4 POTR:A2 OTR A2,0,0 OUTPUT CHARACTER TO CU DEVIC
0x16dd44…16ded8 Dummy {f00=0x0071, f01=0x0190, f02=» * n P XIF + P IFF SALCUZ=1 + & PCIODIS EQU STAI:P DISCONNECT MODEM + * P XIF + T P* + ` P EJECT + j P* + x P* DLS MODE EQUATES + P* + P* MAIN MODES + P* + PCNTRL EQU /0000 CONTROL MODE + " PRECEIV EQU /0200 RECEIVE MODE +
0x16ded8…16e06c Dummy {f00=0x0071, f01=0x0190, f02=»ALL + z , PNOLCON EQU 4 NO LOGICAL CONNECTION MODE , $ PWACK0 EQU 6 WAIT FOR ACK 0 MODE , < PWACKD EQU 2 WACK DELAY , d PWSTX EQU 4 WAIT FOR STX , . PNONTRP EQU 6 NON-TRANSPARENT RECEIVE MODE , * PTRANSP EQU 8 TRANSPARENT RECEIVE MODE , $ PLRECOV
0x16e06c…16e200 Dummy {f00=0x0071, f01=0x0190, f02=»******************************************************************* , P* - L D P* INDEX FOR ALL BY THE DRIVER USED CHARACTERS, FOR THE DIFFERENT - V D P* TIMEOUTS, AND FOR SST INTERRUPTS. THE INDEX ARE USED TOGETHER - > P* WITH THE DLS MODE TO MAKE A BRAN
0x16e200…16e394 (1, 263) Dummy {f00=0x0072, f01=0x0190, f02=» P* . 0 PI:RQT EQU 0 REQUEST TIMEOUT AND ABORT INDEX . ( PI:PRT EQU 2 PROCEDURE TIMEOUT INDEX . B $ PI:SST EQU 4 SST INTERRUPT INDEX . n , PI:SYN EQU 6 INDEX FOR THE SYN CHARACTER . ( PI:STX EQU 8 '' STX '' . ( PI:ITB EQU /A ''
0x16e394…16e528 Dummy {f00=0x0072, f01=0x018e, f02=»EOT '' . v ( PI:DLE EQU /12 '' DLE '' / ( PI:NAK EQU /14 '' NAK '' / > ( PI:ENQ EQU /16 '' ENQ '' / j ( PI:GS EQU /18 '' GS '' / , PI:CHR EQU /1A INDEX FOR A DATA CHARACTER / P EJECT / * P********
0x16e528…16e6bc Dummy {f00=0x0072, f01=0x0190, f02=» / P IFT STAT=0 0 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART 0 P XIF 0 P P IFT STAT=1 0 PDWTDRD EQU /1A 0 p P XIF 0 P* 0 P IFT MMUPAG=0 0 PSTART EQU DWTDRD 0 P XIF 0 P* 0 P IFT MMUPAG=1 0 PSTART EQU DWTDRD+4
0x16e6bc…16e850 Dummy {f00=0x0072, f01=0x0190, f02=»WT DC REL LINK TO HEAD DWT 0 | 2 PDWTCHN EQU START-6 DWT DC REL LINK TO NEXT DWT 1 " , PDWTLAD EQU START-4 DWT LOCAL DTE ADDRESS 1 X , PDWTSUB EQU START-2 POSSIBLE SUB ADDRESS 1 P XIF 1 . PDWTTIM EQU START APPLICATION TIMEOUT VALUE 1 . PDWTMOD EQU START+2
0x16e850…16e9e4 Dummy {f00=0x0072, f01=0x0190, f02=»RT+8 ABORT INDICATOR 1 ( PDWTINP EQU START+/0A INUT INDICATOR 2 0 PDWTOUT EQU START+/0C OUTPUT ACTIVE INDICATOR 2 H 0 PDWTPTP EQU START+/0E PROCEDURE TIMER POINTER 2 | . PDWTRTP EQU START+/10 REQUEST TIMER POINTER 2 8 PDWTMTP EQU START+/12 MODEM SUPERVISORY
0x16e9e4…16eb78 Dummy {f00=0x0072, f01=0x0190, f02=» EQU START+/18 ENQ COUNTER 2 & PDWTWTR EQU START+/1A WACK COUNTER 3 " 0 PDWTRTR EQU START+/1C RETRANSMISSION COUNTER 3 L & PDWTLRS EQU START+/1E LAST RESPONSE 3 $ PDWTCNT EQU START+/20 ACK COUNTER 3 & PDWTDLE EQU START+/22 DLE INDICATOR 3 4 PDWTCMP EQU S
0x16eb78…16ed0c Dummy {f00=0x0072, f01=0x0190, f02=»TART+/4C STACK BASE (6 LEVEL STACK) 3 P XIF 4 , P IFT CPU852=1 4 8 < PDWTSAV EQU START+/26 SAVE AREA FOR REGISTERS A3-A5,A7,A8 4 N 4 PDWTSTB EQU START+/46 STACK BASE (6 LEVELS STACK) 4 P XIF 4 P IFT ITBTRM=1 =10 4 6 PDWTITB EQU START+/48 CHARACT
0x16ed0c…16eea0 Dummy {f00=0x0072, f01=0x0190, f02=»******************************************************* 4 P* 5 @ P* 5 J & P* D R I V E R A C T I V A T I O N 5 T P* 5 ~ P* 5 < P******************************************************* 5 < P******************************************************
0x16eea0…16f034 (1, 264) Dummy {f00=0x0072, f01=0x0190, f02=»ABORT ROUTINE ADDRESS 5 P DATA 0,0 DC:MIN HEADER 6 P* 6 > P* 6 H PDRMACT EQU * 6 R ( P LDK A5,DWTSTB SET UP A5 STACK BASE 6 f $ P ADR A5,A6 IN CASE OF I/O START 6 6 P LD A1,DWTMOD,A6 GET DATA LINK STATION (DLS) MODE 6 P SUK A7,0 6 P R
0x16f034…16f1c8 Dummy {f00=0x0072, f01=0x0190, f02=»TAT READ/RESET STATISTICS 6 P 7 " P SUK A7,/38-/2D 7 * P RF(Z) SETST SET STATUS 7 B P 7 b P SUK A7,/39-/38 7 j P RF(Z) SETTIM SET TIMEOUT 7 P 7 , P ADK A7,/39 LOAD A7 WITH ORIGINAL ORDER 7 $ P LD A2,DWTST,A6 GET LINE STATUS 7 P ANK
0x16f1c8…16f35c Dummy {f00=0x0072, f01=0x0190, f02=»7,/06-/02 7 , P ABL(Z) SEND00 TRANSMIT A MESSAGE BLOCK 8 P SUK A7,/21-/06 8 B P ABL(Z) OPEN CONNECT MODEM 8 Z P SUK A7,/24-/21 8 | ( P ABL(Z) CONACT TRY TO BECOME MASTER 8 P SUK A7,/27-/24 8 . P ABL(Z) CONPAS LOOK FOR A DATA LINK 'BID' 8
0x16f35c…16f4f0 Dummy {f00=0x0072, f01=0x0190, f02=»*********************************** 8 P* 9 , P* MAIN ABORT ENTRY 9 6 P* 9 P . P***************************************** 9 Z P* 9 PABORT EQU * . 9 ( P LD A1,DWTABT,A6 ABORT ALLOWED ? =9 9 P RF(NN) ABOR10 YES =9 9 & P CM DWTWAT,A6 INDI
0x16f4f0…16f684 Dummy {f00=0x0072, f01=0x0190, f02=»S =9 9 f $ P LDK A5,DWTSTB SET A5 STACK BASE : & P ADR A5,A6 IN CASE IT WILL BE USED : 4 P =9 : ^ 4 P LDK A1,I:RQT INDEX FOR ABORT (=REQUEST TIMEOUT) : l ( P IM DWTABT,A6 INDICATE ABORT ISSUED : . P ABL JUMP BRANCH TO CORRECT ABORT HANDLER : P EJECT
0x16f684…16f818 Dummy {f00=0x0072, f01=0x0190, f02=»***************************** : ~ P ; & P* MODEM OR CU ERROR ; . P* ; J PDCEERR EQU * ; T P LDK A1,R:MNOP ; h P RF CMPLT ; ~ P* ; P* LOGICAL CONNECTION ERROR ; P* ; PCONERR EQU * ; P LDK A1,R:CERR ; P RF CMPLT ; P* ;
0x16f818…16f9ac Dummy {f00=0x0072, f01=0x0190, f02=» ; P* < PSEQERR EQU * < P LDK A1,R:SERR < & P RF CMPLT < < P* < N " P* REQUESTED TIMER HAS EXPIRED < X P* < ~ PTIMERR EQU * < P LDK A1,R:TERR < P RF CMPLT < P EJECT < P* < $ P* BLOCK ENDED WITH ETB RECEIVED < P* <
0x16f9ac…16fb40 Dummy {f00=0x0072, f01=0x0190, f02=»,R:EOT < P RF CMPLT = P* = 6 P* ENQ ON 'BID' OR RVI ON A MESSAGE BLOCK RECEIVED = * P* = d PINTRTN EQU * = n P LDKL A1,R:INT = P RF CMPLT = P* = P* REQUEST ERROR = P* = PREQERR EQU * = P LDKL A1,R:RERR = P RF CM
0x16fb40…16fcd4 (1, 265) Dummy {f00=0x0072, f01=0x0190, f02=» DISEND TENDIO+DISPATCH = P EJECT > F P****************************************************************** > . P* > x 2 P* REQUEST HANDLER FOR THE SET TIMEOUT REQUEST > P* > F P****************************************************************** >
0x16fcd4…16fe68 Dummy {f00=0x0072, f01=0x0190, f02=»REQUEST > x P EJECT ? @ P************************************************************ ? P* ? b 0 P* REQUEST HANDLER FOR THE SET STATUS REQUEST ? l P* ? @ P************************************************************ ? P* ? PSETST EQU * ?
0x16fe68…16fffc Dummy {f00=0x0072, f01=0x0190, f02=»SED) ? ^ P ST A1,DWTCON,A6 SAVE IN DWT @ $ P RB RTN:OK COMPLETE THE REQUEST @ 0 P EJECT @ X F P****************************************************************** @ f P* @ 2 P* REQUEST HANDLER FOR THE READ STATUS REQUEST @ P* @ F P**************
0x16fffc…170190 Dummy {f00=0x0072, f01=0x0190, f02=»A6 GET OPERATIONAL MODE @ & P RF(Z) READ20 INITIAL CONTROL MODE A 0 P LDK A1,/2 INDICATE DTE-DCE INTERFACE ACTIVE A J P LD A2,DWTST,A6 A ~ P ANK A2,1 MODEM OK ? A P RF(NZ) READ20 NO A P ADK A1,/1 INDICATE MODEM OK A PREAD10 EQU * A ( P CWK
0x170190…170324 Dummy {f00=0x0072, f01=0x0190, f02=»CON,A6 GET TYPE OF CONNECTION A $ P RF(Z) READ30 LEASED CONNECTION B & ( P SLL A2,8 PUT BIT IN RIGHT POSITION B N , P XRR A1,A2 INDICATE SWITCHED CONNECTION B z PREAD30 EQU * B 4 P ST A1,ECBCW1,A8 STORE STATUS IN CONTROL-WORD 1 B $ P RB RTN:OK COMPLET
0x170324…1704b8 Dummy {f00=0x0072, f01=0x0190, f02=»LER FOR THE READ/RESET STATISTICS REQUEST B P* C 2 H P******************************************************************** C < P* C PRRSTAT EQU * C P IFF STAT=1 C , P RB REQERR STATISTIC OPTION NOT INCLUDED C P XIF C P IFT STAT=1 C :
0x1704b8…17064c Dummy {f00=0x0072, f01=0x0190, f02=»HING WAS WRONG C x P LC A1,ECBCW1,A8 D " P ANK A1,/FF GET REQUEST OPTION D . & P SUK A1,/43 RESET STATISTIC AREA ? D T ( P RB(NZ) RTN:OK NO, COMPLETE REQUEST D ~ ( P CF A15,DCSRST RESET STATISTIC AREA D P RB RTN:OK COMPLETE REQUEST D P XIF D P E
0x17064c…1707e0 Dummy {f00=0x0072, f01=0x018e, f02=»EST D l * E J P********************************************************************* E P* E d OPEN EQU * E n $ LDR A1,A1 GET OPERATIONAL MODE E $ P RB(NZ) RTN:OK LINE ALREADY OPEN E * P LD A1,DWTCON,A6 SWITCHED CONNECTION ? E 0 P RB(NZ) RT
0x1707e0…170974 (1, 266) Dummy {f00=0x0072, f01=0x0190, f02=» E r LDR A1,A1 MODEM OK ? F P RF(N) OPEN10 NO F & P LDK A1,R:OK RC=0 F > P RF OPEN20 F X POPEN10 EQU * F j ( P LDK A1,R:MNOP RC=MODEM NOT OPERABLE F ~ POPEN20 EQU * F ( P CF A15,TENDIO COMPLETE THE REQUEST F POPEN30 EQU * F P LDKL A1,C
0x170974…170b08 Dummy {f00=0x0072, f01=0x0190, f02=»ORT ALLOWED =9 F | P LD A1,DWTST,A6 G P ANK A1,S:MNOP MODEM OK ? G . . P ABL(NZ) MODR30 NO, TRY TO RECONNECT MODEM G P P WITHOUT TIME SUPERVISION G " P RF NCON65 MODEM OK, START I/P G P EJECT G P* G 6 P* TIMEOUT AND ABORT ENTRY IN INITIAL
0x170b08…170c9c Dummy {f00=0x0072, f01=0x0190, f02=»T MODEM G z P RF NCON85 H P EJECT H " P* H 0 > P* INPUT CHARACTER HANDLERS IN 'NO LOGICAL CONNECTION' MODE H : P* H | P* H P* SYN CHARACTER RECEIVED H P* H PNCON EQU * H & P ABL BRM010 READ ANOTHER CHARACTER H P* H P* DLE RE
0x170c9c…170e30 Dummy {f00=0x0072, f01=0x018e, f02=»EAD READ A CHARACTER H " P SUK A2,C:EOT EOT CHARACTER ? I * P RB(NZ) NCON NO, TAKE AS TERMINAL 'ID' I B $ P CF A5,CHKPAD CHECK TRAILING PAD I p PNCON20 EQU * I ( P RB(NZ) NCON NOT A PAD, TAKE AS 'ID' I P* I : P* (SYN),DLE,EOT,PAD RECEIVED ON A SWIT
0x170e30…170fc4 Dummy {f00=0x0072, f01=0x0190, f02=» P LDK A3,S:NCON J < P ORS A3,DWTST,A6 INDICATE CONNECTION BROKEN, IF NO REQ. J " P LD A2,DWTST,A6 ANY REQUEST ? J Z P RF(N) NCON35 NO J ( P CF A15,TENDIO COMPLETE THE REQUEST J 0 P XRS A3,DWTST,A6 RESET CONNECTION BROKEN BIT J PNCON35 EQU * J
0x170fc4…171158 Dummy {f00=0x0072, f01=0x0190, f02=»A15,CRQTIM CLEAR REQUST TIMER J 0 P CM DWTABT,A6 INDICATE ABORT RECOV COMPLETED K & P LDKL A1,/8000+S:NCON K Z & P ANS A1,DWTST,A6 CLEAR LINE STATUS K x P =9 K P ABL TDISP K P* K P* ENQ RECEIVED K P* K PNCON40 EQU * K $ P CF A5,C
0x171158…1712ec Dummy {f00=0x0072, f01=0x0190, f02=»INT PREPARE TO ANSWER THE 'BID' K $ P ABL RTN:OK COMPLETE THE REQUEST L ( PNCON45 EQU * L P P CF A5,TREOT SEND EOT L d " P LD A1,DWTMOD,A6 GET DLS MODE L 8 P CWK A1,CNTRL+WACK0 CONNECT ACTIVE REQUEST ISSUED ? L P RF(E) CON040 YES, SEND ENQ L P
0x1712ec…171480 Dummy {f00=0x0072, f01=0x0190, f02=»F(Z) NCON65 PAD OK,RESTART I/P L P* M & $ P* NOT ALLOWED CHARACTER RECEIVED M 0 P* M X PNCON60 EQU * M b * P LD A1,DWTCON,A6 SWITCHED CONNECTION ? M v * P RB(NZ) NCON YES, TAKE AS TERMINAL'ID' M PNCON65 EQU * M P ABL BRM RESTART INPUT M P* M
0x171480…171614 (1, 267) Dummy {f00=0x0073, f01=0x0190, f02=»RS A2,DWTST,A6 INDICATE MODEM ERROR M " P LD A1,DWTST,A6 ANY REQUEST ? N , P RF(N) NCON80 NO N R , P LD A1,DWTRTP,A6 REQUEST TIMER RUNNING ? N j ( P RF(NZ) NCON80 YES, WAIT FOR TIMEOUT N " P LDK A1,R:MNOP RC=MODEM NOT OP N $ P CF A15,TENDIO COMPLETE REQU
0x171614…1717a8 Dummy {f00=0x0073, f01=0x0190, f02=»TIMEOUT AND ABORT ENTRY IN 'NO CONNECTION' MODE N P* O 8 PNCON85 EQU * O B & P CF A15,CRQTIM KILL REQUEST TIMER O V $ P LD A1,DWTABT,A6 ABORT ISSUED ? O P RF(Z) NCON95 NO O PNCON90 EQU * O 0 P CM DWTABT,A6 INDICATE ABORT RECOV COMPLETED O $ P
0x1717a8…17193c Dummy {f00=0x0073, f01=0x0190, f02=»********************************************** O * P 6 , P* REQUEST HANDLER FOR THE CLOSE REQUEST P @ * P p < 8******************************************************** P z * P CLOSE EQU * P $ LDR A1,A1 GET OPERATIONAL MODE P & P ABL(Z)
0x17193c…171ad0 Dummy {f00=0x0073, f01=0x0190, f02=»AL CONNECTION' MODE ? P r P RF(NE) CLOS30 Q PCLOS00 EQU * Q 4 < P CF A15,CMCTIM KILL MODEM CONNECTION TIMER (IF RUNNING) Q H P LDK A1,R:OK RC=0 Q $ P RB NCON30 COMPLETE THE REQUEST Q PCLOS10 EQU * Q ( P CWK A1,CNTRL+NOLCON DATA LINK UP ? Q
0x171ad0…171c64 Dummy {f00=0x0073, f01=0x0190, f02=»+INIT INITIAL SEND MODE ? Q P RF(NE) CLOS30 R " PCLOS20 EQU * R 8 , P CM DWTMOD,A6 SET 'INITIAL CONTROL' MODE R L $ P LD A1,DWTST,A6 GET LINE STATUS R | P ANK A1,S:MNOP MODEM OK ? R 4 P RB(NZ) CLOS00 NO, SKIP TRANSMISSION OF DLE EOT R P =9 R
0x171c64…171df8 Dummy {f00=0x0073, f01=0x0190, f02=» R P CF A5,WRITE SEND DLE S , P CF A5,TREOT5 SEND EOT PAD AND HALT O/P S & 4 P RB CLOS00 DISCONNECT MODEM AND COMLETE REQUEST S V PCLOS30 EQU * S P LD A1,DWTST,A6 GET STATUS S P ANK A1,S:MNOP MODEM OK ? S P* S , P* MODEM RECOVERY IN PROG
0x171df8…171f8c Dummy {f00=0x0073, f01=0x0190, f02=»******************************** S j * T ( 6 P* REQUEST HANDLER FOR THE CONNECT ACTIVE REQUEST T 2 * T l F A***************************************************************** T v * T CONACT EQU * T ( P LD A2,DWTCON,A6 LEASED CONNECTION ? T
0x171f8c…172120 Dummy {f00=0x0073, f01=0x0190, f02=»? T j P RF(Z) CON010 NO U < P CF A15,SRQTIM START TIME SUPERVISION OF PHYS CON PHASE U " PCON010 EQU * U b & P CF A5,ACTDCE TRY TO CONNECT MODEM U v & P LDR A1,A1 CONNECTION SUCCESSFUL ? U P RB(N) CON010 NO, TRY AGAIN U : P CF A15,CRQTIM NO TIME SUP
0x172120…1722b4 (1, 268) Dummy {f00=0x0073, f01=0x0190, f02=»BL(NE) SEQERR NO, REQUEST ISSUED IN WRONG MODE U PCON030 EQU * V 6 LDK A1,WACK0 V J . ) SC A1,DWTMOD+1,A6 SET WAIT FOR ACK0 MODE V ` P* PREPARE RETRY COUNTERS V P* V P LDKL A1,-L:ENQ+1 V . P ST A1,DWTETR,A6 MAX NBRS OF T-O OR NAK'S V P
0x1722b4…172448 Dummy {f00=0x0073, f01=0x0190, f02=»Z) TDISP YES WAIT UNTIL O/P COMPLETED V PCON040 EQU * W . $ P LD A1,DWTABT,A6 ABORT ISSUED ? W B P RF(NZ) CON060 YES, SEND EOT W j P CF A5,TRENQ NO, SEND ENQ W P LDK A1,T:BID W ( P CF A15,SPRTIM START PROCEDURE TIMER W PCON050 EQU * W A
0x172448…1725dc Dummy {f00=0x0073, f01=0x018e, f02=»REOT SEND EOT W PCON070 EQU * X & P LDK A1,R:CERR PRESET RETURN CODE X * PCON080 EQU * X T P LDKL A2,CNTRL+NOLCON X h 6 P ST A2,DWTMOD,A6 SET 'NO LOGICAL CONNECTION' MODE X $ P LD A2,DWTABT,A6 ABORT ISSUED ? X P RF(Z) CON090 NO X 0 P CM DWTA
0x1725dc…172770 Dummy {f00=0x0073, f01=0x0190, f02=» P RB CON050 START INPUT Y EJECT Y " * Y 0 4 0* INPUT CHARACTER HANDLERS IN WAIT FOR ACK0 MODE Y : * Y r Y | P* Y P* SYN RECEIVED Y P* Y PCON100 EQU * Y & P ABL BRM010 READ ANOTHER CHARACTER Y * Y * DLE RECEIVED Y
0x172770…172904 Dummy {f00=0x0073, f01=0x0190, f02=»CON210 NOT A PAD Y . P LDR A2,A4 RESTORE LAST RECEIVED CHARACTER Z ( P CWK A2,C:ACK0+C:PAR ACK0 RECEIVED ? Z J P RF(NE) CON130 NO Z v CF A5,HLTINP HALT INPUT Z ( P CF A15,CPRTIM KILL PROCEDURE TIMER Z $ P LD A1,DWTABT,A6 ABORT ISSUED ? Z P RB(
0x172904…172a98 Dummy {f00=0x0073, f01=0x0190, f02=»ENT MODE Z n P LDK A1,1 [ ( P ST A1,DWTCNT,A6 UPDATE ACK COUNTER [ " LDKL A1,SEND+INIT [ N . P ST A1,DWTMOD,A6 SET INITIAL TRANSMIT MODE [ h P LDK A1,T:TTD [ 8 P CF A15,SPRTIM START PROCEDURE TIMER FOR TEXT DELAY [ . ) ABL RTN:OK COMPLETE REQUEST
0x172a98…172c2c Dummy {f00=0x0073, f01=0x0190, f02=»TIMER [ r , P IM DWTWTR,A6 MAX NBR OF WACK RECEIVED ? P RB(P) CON060 YES, SEND EOT > $ P RB CON040 NO, SEND ANOTHER ENQ b PCON140 EQU * ( P LD A1,DWTCON,A6 LEAST CONNECTION ? 0 P RB(Z) CON050 YES, WRONG SEQ. RESTART INPUT P SUK A2,C:
0x172c2c…172dc0 Dummy {f00=0x0073, f01=0x018e, f02=»ONNECTION j P* ] PCON150 EQU * ] P ABL NCON25 ] 0 P EJECT ] D * ] R * ENQ RECEIVED ON ENQ ] * ] z PCON160 EQU * ] $ P CF A5,CHKPAD CHECK TRAILING PAD ] P RF(NZ) CON210 NOT A PAD ] P CF A15,CPRTIM KILL TIMER ] $ P LD A1
0x172dc0…172f54 (1, 269) Dummy {f00=0x0073, f01=0x0190, f02=» ] 8 P ORS A1,DWTST,A6 DISCONNECT ALLOWED DESPITE OF WACK ^ , P ABL INTRTN NOTIFY APPLICATION ABOUT ENQ ^ D * ^ t P* NAK RECEIVED ^ ~ * ^ PCON170 EQU * ^ $ P CF A5,CHKPAD CHECK TRAILING PAD ^ P RF(NZ) CON210 NOT A PAD ^ ( P CF A15,CPRTIM
0x172f54…1730e8 Dummy {f00=0x0073, f01=0x0190, f02=» RB CON040 NO, SEND ENQ ^ P EJECT _ * _ . * EOT RECEIVED _ 8 * _ N PCON190 EQU * _ X $ P CF A5,CHKPAD CHECK TRAILING PAD _ l P RF(NZ) CON210 NOT A PAD _ PCON200 EQU * _ CF A5,HLTINP _ P CF A15,CPRTIM _ 0 P RB CON070 EOT RECEI
0x1730e8…17327c Dummy {f00=0x0073, f01=0x0190, f02=»CON,A6 SWITCHED LINES ? _ $ P RB(NZ) CON100 YES, TAKE AS 'ID' ` P RB CON050 N0, RESTART INPUT ` H P* ` l P* PROCEDURE TIMEOUT ` v P* ` PCON220 EQU * ` P RB CON180 ` * ` * SST INTERRUPT ` * ` PCON230 EQU * ` , P ABL M
0x17327c…173410 Dummy {f00=0x0073, f01=0x0190, f02=»:OK COMLETE ABORT, BUT DON'T CLEAR FLAG ` EJECT a 0 F A***************************************************************** a > * a D ?* TIMEUOT ENTRY FOR SENDING TEMPORARY TEXT DELAY (TTD) SEQUENCE a * a F A************************************
0x173410…1735a4 Dummy {f00=0x0073, f01=0x0190, f02=» * a P LDKL A1,-L:ENQ b . P ST A1,DWTETR,A6 LIMIT BEFORE SENDING EOT b " PTTD015 EQU * b T " CF A5,TRTTD SEND TTD SEQUENCE b h PTTD020 EQU * b P LDK A1,T:ENQ b ( P CF A15,SPRTIM START PROCEDURE TIMER b P ABL BRM START INPUT b EJECT b
0x1735a4…173738 Dummy {f00=0x0073, f01=0x0190, f02=»30 EQU * b & P ABL BRM010 READ ANOTHER CHARACTER c * c : * NAK RECEIVED c D * c Z PTTD040 EQU * c d $ P CF A5,CHKPAD CHECK TRAILING PAD c x PTTD050 EQU * c P RF(NZ) TTD090 NOT A PAD c CF A5,HLTINP HALT INPUT c P CF A15,CPRTIM KILL
0x173738…1738cc Dummy {f00=0x0073, f01=0x0190, f02=»0 NO c LD A1,DWTOR,A6 GET ORDER d ANK A1,/FF d . P SUK A1,/06 WRITE ORDER ? d B $ P ABL(Z) SEN035 YES, START OUTPUT d d " P SUK A1,/22-/06 CLOSE ORDER ? d P ABL(Z) CLOS20 YES d P EJECT d P* d P* DISCONNECT REQUEST PRESENT d P
0x1738cc…173a60 Dummy {f00=0x0073, f01=0x0190, f02=» d ~ ( P CF A15,TENDIO COMPLETE THE REQUEST e P ABL NCON45 SEND EOT e 4 PTTD080 EQU * e P P LDK A1,T:TTD e d $ P CF A15,SPRTIM RESTART TTD TIMER e z * & ABL TDISP WAIT FOR REQUEST OR TIMEOUT e * e $ P* NOT ALLOWED CHARACTER RECEIVED e * e
0x173a60…173bf4 (1, 270) Dummy {f00=0x0073, f01=0x0190, f02=»RETRY LIMIT REACHED ? e . P RB(NP) TTD015 NO, RETRANSMIT TTD SEQUENCE f PTTD105 EQU * f P P CF A5,TREOT YES, SEND EOT f d " P LD A1,DWTST,A6 ANY REQUEST ? f P ABL(N) WACK90 NO f P LD A1,DWTOR,A6 f P ANK A1,/FF GET ORDER f P SUK A1,/06
0x173bf4…173d88 Dummy {f00=0x0073, f01=0x018e, f02=»> RC=0 f j P ABL OPEN20 g * g " * SST INTERRUPT g , * g D PTTD120 EQU * g N , P ABL MODREC BRANCH TO COMMON SST HANDLER g b P* g & P* ABORT ENTRY IN WAIT FOR NAK MODE g P* g PTTD150 EQU * g * P CM DWTABT,A6 ABORT RECOVERY COMPLET
0x173d88…173f1c Dummy {f00=0x0073, f01=0x0190, f02=» 6 P* REQUEST HANDLER FOR THE CONNECT PASSIVE REQUEST h P* h > B P************************************************************** h H P* h CONPAS EQU * h * P LD A2,DWTCON,A6 SWITCHED CONNECTION ? h P RF(NZ) CONP10 YES h PCONP00 EQU * h P
0x173f1c…1740b0 Dummy {f00=0x0073, f01=0x0190, f02=» PHYSICAL CONNECTION ESTABLISHED ? h ~ P RB(NE) CONP00 YES i * PCONP15 EQU * i D & " LD A1,DWTTIM,A6 GET TIMEOUT VALUE i X , P RF(Z) CONP20 NO TIME SUPERVISION WANTED i & P CF A15,SRQTIM START REQUEST TIMER i PCONP20 EQU * i : P LD A1,DWTMOD,A6 ANY PHY
0x1740b0…174244 Dummy {f00=0x0073, f01=0x0190, f02=»IVE ON SWITCHED LINES i r 0 P* WHEN NO PHYSICAL CONNECTION IS ESTABLISHED j * j R P* j PCONP30 EQU * j f LDK A1,WCALL j z . P SC A1,DWTMOD,A6 SET 'WAIT FOR CALL' MODE j PCONP40 EQU * j * P CF A5,DISCM PUT 'CU' IN EXECUTE MODE j & P IM
0x174244…1743d8 Dummy {f00=0x0073, f01=0x0190, f02=»* j PCONP50 EQU * k P ANK A2,S:CALL k & P RB(Z) CONP40 NOT A INCOMMING CALL k 4 P* k ^ P* AN INCOMMING CALL RECEIVED k h P* k P* k CF A5,ACTDCE CONNECT MODEM k P LDR A2,A1 MODEM OPERABLE ? k P ABL(Z) OPEN30 YES k " P LDK A
0x1743d8…17456c Dummy {f00=0x0073, f01=0x018e, f02=» k PCONP60 EQU * l , P CM DWTMOD,A6 SET 'INITIAL CONTROL' MODE l P ABL OPEN40 l L P EJECT l ` > P********************************************************* l n * l $ * TIMEOUT ENTRY FOR SENDING WACK l * l > P****************************
0x17456c…174700 Dummy {f00=0x0073, f01=0x0190, f02=» CF A5,TRWACK SEND WACK m P IFT STAT=1 m $ P LDK A1,CSSRBY m 8 0 P CF A15,DCSUPR INCREMENT BUFFER BUSY COUNTER m N P XIF m PWACK05 EQU * m P LDK A1,T:MACT m . P CF A15,SPRTIM START MASTER ACTIVITY TIMER m P LD A1,DWTST,A6 m 6 P ANK A
0x174700…174894 (1, 271) Dummy {f00=0x0074, f01=0x0190, f02=»T NOT ALLOWED m l PWACK0A EQU * n ABL BRM START INPUT n * P EJECT n F * n T 4 P* INPUT CHARACTER HANDLERS IN 'WACK DELAY' MODE n ^ * n P* n * SYN CHARACTER RECEIVED n P* n PWACK10 EQU * n & " ABL BRM010 READ ANOTHER CHARACT
0x174894…174a28 Dummy {f00=0x0074, f01=0x0190, f02=»OT ALLOWED CHARACTER n | & P CF A5,READ READ ANOTHER CHARACTER o PWACK20 EQU * o F P SUK A2,C:EOT EOT RECEIVED ? o Z P RF(NZ) WACK60 NO o ~ $ P CF A5,CHKPAD CHECK TRAILING PAD o P RF(NZ) WACK60 NOT A PAD o P ABL NCON25 o P* o * EOT RECE
0x174a28…174bbc Dummy {f00=0x0074, f01=0x0190, f02=»F A15,CPRTIM KILL MASTER ACTIVITY TIMER o 2 P CF A15,CRQTIM CLEAR REQUEST TIMER IF RUNNING p 0 P CF A5,HLTINP HALT I/P p f * P LD A1,DWTST,A6 ANY PRESENT REQUEST ? p P RF(N) WACK40 NO p " P LDKL A1,R:EOT RC=EOT RECEIVED p P LD A2,DWTOR,A6 GET ORDE
0x174bbc…174d50 Dummy {f00=0x0074, f01=0x0190, f02=» ABL OPEN20 p PWACK40 EQU * q P LDK A1,S:EOT q ( 4 P ORS A1,DWTST,A6 REMEMBER EOT FOR FUTURE REQUEST q > P ABL OPEN30 q v P* q * ENQ RECEIVED q P* q PWACK45 EQU * q $ P CF A5,CHKPAD CHECK TRAILING PAD q P RF(NZ) WACK60 NOT A PAD
0x174d50…174ee4 Dummy {f00=0x0074, f01=0x0190, f02=»TIAL RECEIVE MODE q v " LD A1,DWTST,A6 ANY REQUEST ? r P RF(N) WACK50 NO r @ P LD A1,DWTOR,A6 r X P ANK A1,/FF GET ORDER r p P SUK A1,/02 RECEIVE ORDER ? r P ABL(Z) REC070 YES r $ P RF DISC30 NO, DISCONNECT ORDER r PWACK50 EQU * r P
0x174ee4…175078 Dummy {f00=0x0074, f01=0x0190, f02=» r PWACK60 EQU * s ABL BRM RESTART INPUT s P* s : ( P* SST INTERRUPT IN 'WACK DELAY' MODE s D P* s p PWACK70 EQU * s z , P ABL MODREC BRANCH TO COMMON SST HANDLER s P* s & P* ABORT AND REQUEST TIMEOUT ENTRY s P* s PWACK80 EQU *
0x175078…17520c Dummy {f00=0x0074, f01=0x0190, f02=» A PREDEFINED TIME. s l P* t PWACK85 EQU * t & 0 P CF A15,CRQTIM KILL REQUEST TIMER IF RUNNING t : $ P LD A1,DWTST,A6 GET LINE STATUS t n $ P RF(N) WACK90 NO REQUEST PRESENT t P LD A1,DWTOR,A6 GET ORDER t P ANK A1,/FF t P SUK A1,/2F DISCONNE
0x17520c…1753a0 Dummy {f00=0x0074, f01=0x0190, f02=» t j P ABL OPEN30 u P EJECT u T P******************************************************************************** u * P* u 2 P* REQUEST HANDLER FOR THE DISCONNECT REQUEST u P* u T P************************************************************
0x1753a0…175534 (1, 272) Dummy {f00=0x0074, f01=0x0190, f02=» u ~ 0 P CWK A1,SEND+WNAK WAITING FOR NAK AFTER TTD v ( P ABL(E) TDISP YES, QUEUE THE REQUEST v < , P CWK A1,SEND+INIT 'INITIAL SEND' MODE ? v h P RF(NE) DISC20 NO v PDISC10 EQU * v * P CF A15,CPRTIM KILL TTD OR WACK TIMER v P LDKL A1,SEND+WNAK v
0x175534…1756c8 Dummy {f00=0x0074, f01=0x018e, f02=»E+INIT INITIAL RECEIVE MODE ? v P RF(NE) DISC50 NO w & $ P LD A1,DWTST,A6 GET LINE STATUS w @ 4 P ANK A1,S:BACK BLOCK ALREADY ACK'ED WITH WACK ? w h P RF(NZ) DISC60 YES w PDISC30 EQU * w P LDK A1,WACKD w , P SC A1,DWTMOD+1,A6 SET 'WACK DELAY'
0x1756c8…17585c Dummy {f00=0x0074, f01=0x0190, f02=» w h P CF A5,TREOT SEND EOT x P IFT STAT=1 x & P LDK A1,CSSRAB x : 8 P CF A15,DCSUPR INCREMENT INPUT MESS. ABORTED COUNTER x P P XIF x PDISC40 EQU * x P LDK A1,R:OK RC=0 x P ABL OPEN20 x PDISC50 EQU * x 0 P CWK A1,RECEIV+LRECOV 'LIN
0x17585c…1759f0 Dummy {f00=0x0074, f01=0x0190, f02=» x ~ $ P LD A1,DWTST,A6 GET LINE STATUS y 2 P ANK A1,S:BACK DISCONNECT OF 'BID' SEQUENCE ? y 0 * P ABL(Z) TDISP YES, WAIT FOR TREATMENT y f PDISC60 EQU * y , P ABL SEQERR REQUEST ISSUED IN WRONG MODE y P EJECT y B P**********************************
0x1759f0…175b84 Dummy {f00=0x0074, f01=0x0190, f02=»******************************* y r P* z ( PREC000 EQU * z 2 & P LDR A2,A1 INITIAL CONTROL MODE ? z F P RF(NZ) REC010 NO z p $ P LD A1,DWTST,A6 GET LINE STATUS z & P ANK A1,S:NCON DLE EOT RECEIVED ? z $ P RF(Z) REC020 NO, SEQUENCE ERROR z 0 P XRS
0x175b84…175d18 Dummy {f00=0x0074, f01=0x0190, f02=» z v PREC010 EQU * { P CWK A1,CNTRL+NOLCON { RF(NE) REC030 { 8 P* { N > :* CHECK IF EOT WAS RECEIVED BEFORE RECEIVE REQ. WAS ISSUED { X * { LD A1,DWTST,A6 { P LDR A3,A1 SAVE STATUS { P ANK A1,S:EOT EOT RECEIVED ? { P RF(Z) REC
0x175d18…175eac Dummy {f00=0x0074, f01=0x0190, f02=»STER ON WACK { v P* | PREC015 EQU * | , P ANK A3,S:CERR CONNECTION ERROR ON WACK | 2 $ P RF(Z) REC020 NO, SEQUENCE ERROR | b 0 P XRS A3,DWTST,A6 RESET CONNECTION ERROR BIT | , P ABL CONERR RC=LOGICAL CONNECTION ERROR | PREC020 EQU * | P ABL S
0x175eac…176040 Dummy {f00=0x0074, f01=0x0190, f02=»? | P RF(E) REC040 YES } * P CWK A1,RECEIV+LRECOV RECOVERY MODE ? } $ 6 P RB(NE) REC020 NO, WRONG MODE FOR RECEIVE REQUEST } R REC040 EQU * } $ LD A1,DWTTIM,A6 GET TIME VALUE } , ( RF(Z) REC050 NO TIME SUPERVISION WANTED } & P CF A15,SRQTIM S
0x176040…1761d4 (1, 273) Dummy {f00=0x0074, f01=0x0190, f02=» TIMEOUT } h REC070 EQU * ~ $ LC A1,DWTOR,A6 GET OPTION CODE ~ $ ANK A1,/FF ~ L " P RF(Z) REC085 OPTION=SEND ACK ~ ` $ P SUK A1,O:RVI OPTION=SEND RVI ? ~ P RF(Z) REC075 YES ~ ( P CF A15,CRQTIM KILL REQUESTED TIMER ~ 2 P ABL DISIOE REQUEST
0x1761d4…176368 Dummy {f00=0x0074, f01=0x0190, f02=»O ~ ( P CF A15,CRQTIM KILL REQUESTED TIMER . P RB REC020 SEQUENCE ERROR (TO CONSEC RVI) 6 PREC080 EQU * h P LDK A1,C:RVI | , P ST A1,DWTLRS,A6 INDICATE RESPONSE = RVI " P CF A15,CPRTIM KILL WACK TIMER CF A5,TRRVI SEND RVI R
0x176368…1764fc Dummy {f00=0x0074, f01=0x018e, f02=»END CORRECT ACK REC090 EQU * P LDKL A1,/8000 , & P ANS A1,DWTST,A6 RESET LINE STATUS B P LDK A1,T:MACT l . P CF A15,SPRTIM START MASTER ACTIVITY TIMER 0 P LD A1,DWTABT,A6 ABORT ISSUED , OR TIMEOUT ? P RF(Z) REC093 NO $ P CM DWTA
0x1764fc…176690 Dummy {f00=0x0074, f01=0x0190, f02=» P RF REC185 PREC093 EQU * LDK A1,WSTX . . P SC A1,DWTMOD+1,A6 SET 'WAIT FOR STX' MODE B ABL BRM START INPUT t P EJECT P* B P* MODEM ERROR ON TRANSMISSION OF RESPONSE IF ABORT NOT ISSUED ( P* OR REQUEST TIMER HAS NOT
0x176690…176824 Dummy {f00=0x0074, f01=0x0190, f02=»E REMOTE DLS HAS h 2 P* NOT GET AN ACKNOWLEDGMENT TO THE SAME BLOCK. P* N PREC095 EQU * X P LDK A1,WACKD l , P SC A1,DWTMOD+1,A6 SET 'WACK DELAY' MODE , P ABL MODREC BRANCH TO COMMON SST HANDLER P* 0 P* ABORT OR TIMEOUT IN 'INITI
0x176824…1769b8 Dummy {f00=0x0074, f01=0x018e, f02=»A6 SET 'LINK RECOVERY' MODE $ P LD A1,DWTABT,A6 ABORT ISSUED ? $ P ABL(NZ) RTN:OK YES L * P IM DWTABT,A6 SAME TREATMENT AS ABORT h $ P ABL TIMERR COMPLETE, RC=TIMEOUT P EJECT * 6 P* INPUT CHARACTER HANDLERS IN 'WAIT FOR STX' MODE
0x1769b8…176b4c Dummy {f00=0x0074, f01=0x0190, f02=» * ENQ RECEIVED P* PREC110 EQU * ( $ P CF A5,CHKPAD CHECK TRAILING PAD < PREC115 EQU * d P RF(NZ) REC150 NOT A PAD x CF A5,HLTINP HALT INPUT . P CF A15,CPRTIM KILL MASTER ACTIVITY TIMER P LDK A1,INIT 2 P SC A1,DWT
0x176b4c…176ce0 Dummy {f00=0x0074, f01=0x0190, f02=»RANSMIT LAST ACK P RB REC090 PREC120 EQU * * P LDK A1,C:RVI > ( P CW A1,DWTLRS,A6 RVI LAST RESPONSE ? T P RF(NE) REC125 NO P CF A5,TRRVI RETRANSMIT RVI P RB REC090 PREC125 EQU * P CF A5,TRNAK RETRANSMIT NAK P
0x176ce0…176e74 (1, 274) Dummy {f00=0x0074, f01=0x018e, f02=»OR STX' MODE v P* PREC140 EQU * , P ABL MODREC BRANCH TO COMMON SST HANDLER 2 P* b , (* ENTRY POINT FOR NOT ALLOWED CHARACTERS l P* PREC150 EQU * ABL BRM RESYNCHRONIZE P* * DLE RECEIVED P* PREC155
0x176e74…177008 Dummy {f00=0x0074, f01=0x018e, f02=» ( P LD A1,DWTCON,A6 LEASED CONNECTION ? . P RB(Z) REC150 YES, WRONG SEQ. RESTART I/P 0 P ABL WACK20 CHECK IF EOT b PREC157 EQU * LDK A1,TRANSP , ' SC A1,DWTMOD+1,A6 SET TRANSPARENT MODE * P RF REC170 PREPARE FOR TEXT RECEPTION
0x177008…17719c Dummy {f00=0x0074, f01=0x0190, f02=» P* PREC160 EQU * LDK A1,NONTRP & 0 + SC A1,DWTMOD+1,A6 SET NON-TRANSPARENT MODE < PREC170 EQU * p $ LDK A7,0 RESET BCC ACCUMULATOR & ! LDK A3,0 RESET CHARACTER COUNTER $ LD A8,DWTECB,A6 GET ECB ADDRESS . * LD A4,ECB
0x17719c…177330 Dummy {f00=0x0074, f01=0x0190, f02=»MODE d P* PREC175 EQU * ( P CF A15,CRQTIM CLEAR REQUESTED TIMER * $ P LDK A1,R:TERR PRESET RC=TIMEOUT V $ P LD A2,DWTABT,A6 ABORT ISSUED ? ~ P RF(Z) REC180 NO, TIMEOUT ( P CM DWTABT,A6 CLEAR ABORT INDICATOR P LDK A1,R:OK RC=OK
0x177330…1774c4 Dummy {f00=0x0074, f01=0x0190, f02=»LINK RECOVERY'MODE x $ P LD A1,DWTST,A6 GET LINE STATUS P ANK A1,S:MNOP MODEM OK ? B P ABL(NZ) TDISP NO d P RF NAKERR ~ P* P* MASTER ACTIVITY TIMOUT ( P* MASTER SEEMS TO BE 'DEAD' .ATTAIN " P* 'NO LOGICAL CONNECTION' MODE
0x1774c4…177658 Dummy {f00=0x0074, f01=0x0190, f02=»LERS IN NON-TRANSPARENT z * TEXT RECEPTION MODE * > * SYN CHARACTER RECEIVED H P* h PREC195 EQU * r & " ABL BRM010 READ ANOTHER CHARACTER P* P* STX,...,ENQ RECEIVED P* PREC200 EQU * . P CF A15,CPRTIM KIL
0x177658…1777ec Dummy {f00=0x0074, f01=0x0190, f02=» COMPRS=0 P RF REC250 TREAT AS DATA P XIF 2 P IFT COMPRS=1 > P CF A5,ACBPAR ACCUMULATE BCC T PREC212 EQU * x CF A5,READ READ A CHARACTER P CWK A2,C:SYN SYN CHARACTER . P RB(E) REC212 YES, READ ANOTHER CHARACTER $ P L
0x1777ec…177980 Dummy {f00=0x0074, f01=0x0190, f02=»T LENGTH ~ & P CW A3,ECBRL,A8 BUFFER OVERFLOW ? P RB(G) REC185 YES, SEND NAK : " P LDK A1,A:GS GET GS CHARACTER ^ P SCR A1,A4 SAVE IN BUFFER & P ADK A4,1 INCREMENT BUFFER POINTER 8 P RF REC250 SAVE ERRONEOUS COUNT CHARACTER IN BUFFER
0x177980…177b14 (1, 275) Dummy {f00=0x0075, f01=0x018e, f02=» 0 P ABL(Z) BRM010 SPACE DECOMPRESSION FINISHED ADK A3,1 < & ! CW A3,ECBRL,A8 BUFFER OVERFLOW ? N P RB(G) REC185 YES,SEND NAK x $ P SCR A1,A4 STORE SPACE IN BUFFER & " ADK A4,1 INCREMENT BUFFER POINTER & P SUK A2,1 DECREMENT SPACE CO
0x177b14…177ca8 Dummy {f00=0x0075, f01=0x0190, f02=» r P IFT ITBUSE=1 P ADK A3,1 INCREMENT LENGTH & P CW A3,ECBRL,A8 BUFFER OVERFLOW ? @ P RB(G) REC185 YES j P IFT CODE=1 & P LC A2,TASCII,A2 CONVERT TO ASCII P XIF P IFT ITBUSE=1 " P SCR A2,A4 STORE ITB CHARACTER &
0x177ca8…177e3c Dummy {f00=0x0075, f01=0x0190, f02=» h PREC240 EQU * CF A5,READ READ A CHARACTER " P CWK A2,C:SYN SYN CHARACTER ? @ P RB(E) REC240 YES f P CWK A2,C:STX STX RECEIVED ? 6 1 ABL(NE) BRM015 NO, BRANCH TO RIGHT CHAR. HANDLER P CF A5,ACBPAR ACCUMULATE BCC P RB RE
0x177e3c…177fd0 Dummy {f00=0x0075, f01=0x0190, f02=»CC v ADK A3,1 & ! CW A3,ECBRL,A8 BUFFER OVERFLOW ? * P RB(G) REC185 WAIT FOR PAD TO SEND NAK F P IFT CODE=1 t & ! LD A1,DWTMOD,A6 GET RECEIVE MODE ANK A1,/FF . P SUK A1,TRANSP TRANSPARENT RECEIVE MODE ? 2 P RF(Z) REC260 YE
0x177fd0…178164 Dummy {f00=0x0075, f01=0x0190, f02=»ER IN BUFFER x & " ADK A4,1 INCREMENT BUFFER POINTER & P RB REC195 READ ANOTHER CHARACTER > P* h * ETB OR ETX RECEIVED r P* PREC270 EQU * ( P CF A15,CPRTIM STOP PROCEDURE TIMER P CF A5,ACBPAR ACCUMULATE BCC ( P LDR A4,A2
0x178164…1782f8 Dummy {f00=0x0075, f01=0x018e, f02=»NPUT | ( P CF A15,CRQTIM STOP REQUESTED TIMER * % ST A3,ECBEL,A8 SAVE EFFECTIVE LENGTH 8 P LDK A1,T:WACK f $ P CF A15,SPRTIM START WACK TIMER | LDK A1,1 ( P XRS A1,DWTCNT,A6 CHANGE ACK COUNTER P LDKL A1,/8000 0 P ANS A1,DWTST,A6
0x1782f8…17848c Dummy {f00=0x0075, f01=0x018e, f02=» V P XIF $ P LDK A1,0 PRESET RETURN CODE = 0 P LD A3,DWTMOD,A6 < 6 P CWK A3,RECEIV+TRANSP 'TRANSPARENT RECEIVE' MODE ? T P RF(NE) REC275 NO 6 P LDKL A1,R:TRP INDICATE TRANSPARENT DATA RECEIVED PREC275 EQU * P SUK A4,C:ETB ETB
0x17848c…178620 Dummy {f00=0x0075, f01=0x018e, f02=» 2 P SC A2,DWTMOD+1,A6 SET 'INITIAL RECEIVE' MODE P ABL CMPLT TENDIO+TDISP > P EJECT ^ P* l 8 4* REQUEST TIMEOUT AND ABORT ENTRY IN NON-TRANSPARENT v " * AND TRANSPARENT RECEIVE MODE P* P* PREC280 EQU * P ABL REC
0x178620…1787b4 (1, 276) Dummy {f00=0x0075, f01=0x0190, f02=» P LDK A1,WSTX . P SC A1,DWTMOD+1,A6 SET 'WAIT FOR STX' MODE , P ABL MODREC BRANCH TO COMMON SST HANDLER J P* z 4 P* PROCEDURE TIMEOUT ENTRY IN TRANSP./NON-TRANSP. . P* RECEIVE MODE (MASTER ACTIVITY TIMEOUT). PREC300 EQU * " P ABL W
0x1787b4…178948 Dummy {f00=0x0075, f01=0x0190, f02=»TRANSPARENT AND NON-TRANSPARENT MODE P* , P* 6 NAKERR EQU * @ " CF A5,READ GET ONE CHARACTER T NAK010 EQU * z P LDR A4,A2 SAVE CHARACTER P CWK A2,C:ETB ETB RECEIVED ? P RF(E) NAK015 YES P CWK A2,C:ETX ETX RECEIVED
0x178948…178adc Dummy {f00=0x0075, f01=0x0190, f02=» NAK025 YES P SUK A2,C:PAD PAD ? P RF(E) NAK025 YES 0 P RB NAKERR NO J PNAK015 EQU * ` P* t P* READ BCC ~ P* P CF A5,READ P IFT CODE=1 & P CF A5,READ READ SEC BCC CHARACTER P XIF PNAK025 EQU *
0x178adc…178c70 Dummy {f00=0x0075, f01=0x0190, f02=»LETE A POSSIBLE REQUEST x $ P CF A5,HLTINP HALT INPUT DEVICE PNAK030 EQU * H . P CF A15,CPRTIM KILL MASTER ACTIVITY TIMER 2 P SUK A4,C:ENQ STX...ENQ OR SYN,ENQ RECEIVED ? P RF(NZ) NAK055 NO P RF NAK050 YES, SEND NAK PNAK040 EQU
0x178c70…178e04 Dummy {f00=0x0075, f01=0x0190, f02=» P LDK A1,LRECOV 0 P SC A1,DWTMOD+1,A6 SET 'LINK RECOVERY' MODE P CF A5,TRNAK SEND NAK R P LDK A1,C:NAK p 0 P ST A1,DWTLRS,A6 INDICATE NAK LAST RESPONSE " P LD A1,DWTST,A6 ANY REQUEST ? " P RF(N) NAK065 NO, RESTART I/P P L
0x178e04…178f98 Dummy {f00=0x0075, f01=0x0190, f02=»K065 DISCONNECT REQUEST PRESENT. THE REQUEST P CAN NOT BE SERVED YET 4 PNAK055 EQU * T " P LD A1,DWTST,A6 ANY REQUEST ? h P RB(N) NAK050 NO, SEND NAK P LD A1,DWTOR,A6 GET ORDER " P SUK A1,/02 RECEIVE REQUEST ? 4 P ABL(NZ) DISC30
0x178f98…17912c Dummy {f00=0x0075, f01=0x0190, f02=»CON ~ 6 P ST A1,DWTMOD,A6 SET 'NO LOGICAL CONNECTION' MODE P IFT STAT=1 F P LDK A1,CSSRBO Z 4 P CF A15,DCSUPR INCREMENT BUFFER OVERFLOW COUNTER p P XIF 4 P LDK A1,R:LERR PRESET RC=INCORRECT BUFFER LENGTH $ P CF A15,TENDIO COMPLETE REQU
0x17912c…1792c0 Dummy {f00=0x0075, f01=0x018e, f02=»NK A1,S:MNOP MODEM OK ? 0 P ABL(NZ) MODREC BRANCH TO COMMON SST HANDLER " P ANK A2,S:CARR CARRIER DOWN ? T P RB(NZ) NAK030 YES z P RF NAK070 PNAK065 EQU * P LDK A1,T:MACT . P CF A15,SPRTIM START MASTER ACTIVITY TIMER PNAK070
0x1792c0…179454 (1, 277) Dummy {f00=0x0075, f01=0x0190, f02=» P* & P* REQUEST TIMEOUT AND ABORT ENTRY P* 8 PNAK090 EQU * B P ABL NCON85 V P* j F P* MASTER ACTIVITY TIMEOUT (TIMER NOT RUNNING WHEN MODEM IS NOT OP) t P* PNAK100 EQU * ( P ABL WACK85 MASTER DLS SEEMS 'DEAD' P
0x179454…1795e8 Dummy {f00=0x0075, f01=0x0190, f02=» P* REC400 EQU * 2 P LD A1,DWTDLE,A6 DLE LAST RECEIVED CHARACTER ? " P RF(Z) REC415 NO X $ P CM DWTDLE,A6 RESET DLE RECEIVED p PREC410 EQU * P ABL REC250 TREAT AS DATA PREC415 EQU * ( P IM DWTDLE,A6 INDICATE DLE RECEIVED
0x1795e8…17977c Dummy {f00=0x0075, f01=0x0190, f02=»RECEIVED CHARACTER ? v $ P RB(Z) REC410 NO, TREAT AS DATA $ P CM DWTDLE,A6 RESET DLE RECEIVED D . P CF A15,CPRTIM KILL MASTER ACTIVITY TIMER l 4 P RB NAK050 DLE STX....DLE ENQ RECEIVED, SEND NAK P* P* DATA CHARACTER RECEIVED P*
0x17977c…179910 Dummy {f00=0x0075, f01=0x0190, f02=»T DLE FLAG ~ ( P ABL REC185 WRONG SEQUENCE, SEND NAK P EJECT > P* L * SYN RECEIVED V P* l REC430 EQU * v 2 P LD A1,DWTDLE,A6 DLE LAST RECEIVED CHARACTER ? . P RB(Z) REC410 NO, TREAT AS DATA CHARACTER $ P CM DWTDLE,A6 RESET DL
0x179910…179aa4 Dummy {f00=0x0075, f01=0x0190, f02=»CEIVED CHARACTER ? t $ P RB(Z) REC410 NO, TREAT AS DATA $ P CM DWTDLE,A6 RESET DLE RECEIVED B P CF A5,ACBPAR ACCUMULATE BCC j P IFT ITBUSE=1 P ADK A3,1 INCREMENT LENGTH & P CW A3,ECBRL,A8 BUFFER OVERFLOW ? P ABL(G) REC185 YES "
0x179aa4…179c38 Dummy {f00=0x0075, f01=0x0190, f02=» AND CHECK BCC ~ & P ABL(NZ) REC185 WRONG BCC SEND NAK REC460 EQU * @ CF A5,READ T P CWK A2,C:SYN j RB(E) REC460 SYN RECEIVED P CF A5,ACBPAR ACCUMULATE BCC P SUK A2,C:DLE " P ABL(NZ) REC185 WRONG SEQUENCE CF A5
0x179c38…179dcc Dummy {f00=0x0075, f01=0x018e, f02=» OF MODE AFTER ITB ~ * ETB OR ETX RECEIVED P* 8 REC470 EQU * B 2 P LD A1,DWTDLE,A6 DLE LAST RECEIVED CHARACTER ? V . P RB(Z) REC410 NO, TREAT AS DATA CHARACTER $ P CM DWTDLE,A6 RESET DLE RECEIVED P ABL REC270 P EJECT P
0x179dcc…179f60 Dummy {f00=0x0075, f01=0x0190, f02=» P* 'TRANSPARENT RECEIVE' MODE P* ( PREC490 EQU * 2 P ABL REC175 F P* Z P* MASTER ACTIVITY TIMEOUT d P* PREC500 EQU * P ABL WACK85 P XIF P EJECT L P******************************************************
0x179f60…17a0f4 (1, 278) Dummy {f00=0x0075, f01=0x0190, f02=»********************************* j P* * PSEND00 EQU * 4 : P CWK A1,SEND+WNAK WAITING FOR NAK AFTER TTD SEQUENCE ? H P ABL(E) TDISP YES * P CWK A1,SEND+INIT INITIAL SEND MODE ? P RF(E) SEN035 YES 8 P CWK A1,CNTRL+NOLCON 'NO LOGICAL
0x17a0f4…17a288 Dummy {f00=0x0075, f01=0x0190, f02=»RR LOGICAL CONNECTION ERROR DURING TTD ? $ P RF(Z) SEN010 NO, SEQUENCE ERROR 0 8 P XRS A1,DWTST,A6 RESET LOGICAL CONNECTION ERROR BIT X , P ABL CONERR RC=LOGICAL CONNECTION ERROR PSEN010 EQU * " P ABL SEQERR RC=SEQUENCE ERROR PSEN035 EQU
0x17a288…17a41c Dummy {f00=0x0075, f01=0x018e, f02=»WTOR,A6 GET OPTION CODE ( P ANK A1,O:TRP NON TRANSPARENT MODE ? P RF(Z) SEN040 YES L & P IM DWTTRM,A6 NO, TRANSPARENT MODE f PSEN040 EQU * P XIF P IFT CODE=0 $ P LC A1,DWTOR,A6 GET OPTION CODE $ P ANK A1,O:TRP TRANSPARENT MO
0x17a41c…17a5b0 Dummy {f00=0x0075, f01=0x0190, f02=» PSEN050 EQU * P LDKL A1,-L:RTR * P ST A1,DWTRTR,A6 RETRANSMISSION LIMIT 0 P LDKL A1,-L:ENQ ^ & P ST A1,DWTETR,A6 MAX NBRS OF ENQ'S v P LDKL A1,-L:WACK 2 P ST A1,DWTWTR,A6 MAX NUMBER OF ACCEPTED WACK'S P EJECT P* P*
0x17a5b0…17a744 Dummy {f00=0x0075, f01=0x0190, f02=»ORT PERMITTED =9 | ( P IM DWTRTR,A6 COUNT RETRANSMISSIONS 4 P RF(NP) TRT000 RETRANSMISSION LIMIT NOT REACHED D P LDK A1,WNAK | , P SC A1,DWTMOD+1,A6 SET WAIT FOR NAK MODE P ABL TTD105 SEND EOT PTRT000 EQU * 0 P CF A5,TRSYN START TRANS
0x17a744…17a8d8 Dummy {f00=0x0075, f01=0x0190, f02=» n P LDK A2,C:DLE P CF A5,WRITE SEND ONE DLE PTRT010 EQU * @ P XIF T P LDK A2,C:STX ` P CF A5,WRITE SEND STX v P LDK A7,0 RESET BCC $ P LD A8,DWTECB,A6 GET ECB ADDRESS ( P LD A4,ECBBA,A8 LOAD BUFFER ADDRESS ( P LD
0x17a8d8…17aa6c Dummy {f00=0x0075, f01=0x0190, f02=»FT ITBTRM=0 =10 P IFT COMPRS=1 . P CM DWTCMP,A6 CLEAR SPACE COMPRESS CTNL 2 P XIF d PTRT100 EQU * t P SUK A3,1 DECREMENT LENGTH " P RF(N) TRT180 ALL TRANSMITTED P IFT ITBTRM=1 =10 * P IM DWTITB,A6 INCREM CHAR COUN
0x17aa6c…17ac00 Dummy {f00=0x0075, f01=0x0190, f02=» =10 . P ST A1,DWTITB,A6 RESET COUNTER TO ONE =10 P IFT CODE=1 =10 > , P LD A1,DWTTRM,A6 TRANSPARENT MODE ? =10 V P RF(Z) TRT105 NO =10 P LDK A2,C:DLE =10 " P CF A5,WRITE TRANSMIT DLE =10 PTRT105 EQU * =10 P XIF =10
0x17ac00…17ad94 (1, 279) Dummy {f00=0x0076, f01=0x0190, f02=» CODE=1 =10 P LDR A2,A7 =10 * P ANK A2,/FF GET FIRST BYTE OF CRC =10 , P CF A5,WRITE SEND IT =10 Z $ P ECR A7,A7 PREPERE NEXT BYTE =10 z P XIF =10 P IFT ITBTRM=1 =10 P LDR A2,A7 =10 P ANK A2,/FF =10 P CF A5,WRI
0x17ad94…17af28 Dummy {f00=0x0076, f01=0x0190, f02=» RF(Z) TRT108 NO =10 P LDK A2,C:SYN =10 , P CF A5,WRITE SEND ONE SYN CHARACTER =10 6 P LDK A2,C:SYN =10 f " P CF A5,WRITE AND ONE MORE =10 P LDK A2,C:DLE =10 $ P CF A5,ACBPAR ACCUMULATE BCC =10 P CF A5,WRITE SEND DLE =10
0x17af28…17b0bc Dummy {f00=0x0076, f01=0x0190, f02=»0 $ P LCR A2,A4 GET CHAR FROM BUFFER P ADK A4,1 INCR POINTER 2 " P ANK A2,/FF MASK TO 8 BITS!! P P IFT CODE=1 v , P LD A1,DWTTRM,A6 NON TRANSPARENT MODE ? P RF(Z) TRT110 YES P CWK A2,C:DLE DLE SHAPE ? P RF(NE) TRT160 NO
0x17b0bc…17b250 Dummy {f00=0x0076, f01=0x0190, f02=» ANK A2,/7F REMOVE P-BIT P CWK A2,A:ETB " " P RF(G) TRT130 NOT ETB IN TEXT 8 P CWK A2,A:SYN ^ ( P RF(NL) TRT120 REPLACE SYN BY SPACE t P CWK A2,/07 CHECK CODE , P RF(NL) TRT130 CODE /07 OR GREATER IS OK PTRT120 EQU * 0 P LDK A
0x17b250…17b3e4 Dummy {f00=0x0076, f01=0x0190, f02=»ARATOR | P RF(NE) TRT150 NO P* * . P* GROUP SEPARATOR, TRANSMIT SPACE COUNT 4 P* f PTRT135 EQU * p P CF A5,ACBPAR ACCUMULATE BCC P CF A5,WRITEP TRANSMIT GS P SUK A3,1 DECREMENT LENGTH " P RF(NP) TRT180 END OF BUFF
0x17b3e4…17b578 Dummy {f00=0x0076, f01=0x0190, f02=» p P CF A5,ACBPAR ACCUMULATE BCC ( P CF A5,WRITEP TRANSMIT SPACE COUNT , * P RB TRT100 GET NEXT CHAR TO TRANSMIT X P XIF P IFT ITBTRM=0 =10 P IFT COMPRS=1 P CWK A2,A:SPAC ASCII SPACE P RF(NE) TRT140 NO
0x17b578…17b70c Dummy {f00=0x0076, f01=0x0190, f02=»T NEXT CHAR x . P CF A5,TRCOMP TRANSMIT COMPRESSED SPACES & P RB TRT100 COMPRESSED MODE ENDED F PTRT140 EQU * CHAR /= SPACE p & P LD A1,DWTCMP,A6 COMPRESS MODE ? P RF(Z) TRT150 NO . P CF A5,TRCOMP TRANSMIT COMPRESSED SPACES
0x17b70c…17b8a0 Dummy {f00=0x0076, f01=0x0190, f02=»1 =10 . P CWK A2,C:EM END OF MEDIA CHARACTER ? =10 P RF(NE) TRT160 NO =10 @ * P LDK A1,80 PREPERE FOR ITB TO BE - =10 ^ 4 P ST A1,DWTITB,A6 NEXT TRANSMITTED CHARACTER =10 P XIF =10 PTRT160 EQU * P CF A5,ACBPAR ACCUMULATE BCC
0x17b8a0…17ba34 (1, 280) Dummy {f00=0x0076, f01=0x0190, f02=»NOT ALLOWED =9 x P IFT ITBTRM=0 =10 P IFT COMPRS=1 0 P =9 J * P LD A1,DWTTRM,A6 GET TRANSMISSION MODE X 0 P RF(NZ) TRT185 SPACE COMPRESSION NOT ALLOWED * P LD A1,DWTCMP,A6 COMPRESS MODE STILL? P RF(Z) TRT185 NO . P CF A5
0x17ba34…17bbc8 Dummy {f00=0x0076, f01=0x0190, f02=»MODE n P RF(Z) TRT190 NON TRANSP P LDK A2,C:DLE , 4 P CF A5,WRITE SEND CHARACTER. NO CRC CALCULATION B PTRT190 EQU * z P XIF P LDK A2,C:ETB $ P LC A1,DWTOR,A6 GET OPTION CODE P ANK A1,O:ETX ETX BLOCK ? P RF(Z) TRT200
0x17bbc8…17bd5c Dummy {f00=0x0076, f01=0x0190, f02=» P LDR A3,A7 SAVE CRC P LDR A2,A7 $ P ANK A2,/FF 6 ( P CF A5,WRITE SEND 1ST CRC CHARACTER J 0 P ECR A7,A3 PREPARE FOR SENDING 2ND CRC CHAR v P XIF P LDR A2,A7 P ANK A2,/FF " P CF A5,OUTEND TERMINATE OUTPUT P IFT S
0x17bd5c…17bef0 Dummy {f00=0x0076, f01=0x018e, f02=»TR+1 RETRANSMISSION ? P RF(E) TRT202 NO 8 P LDK A1,CSSTRT YES, INDEX TO RETRANSMISSION COUNTER 6 PTRT202 EQU * r 0 P CF A15,DCSUPR INCREMENT THE ACTUAL COUNTER P XIF PTRT205 EQU * P LDK A1,T:ENQ ( P CF A15,SPRTIM START PRO
0x17bef0…17c084 Dummy {f00=0x0076, f01=0x0190, f02=» 0 P CM DWTLRS,A6 INDICATE WAITING FOR RESPONSE P LDK A1,WACK 8 , P SC A1,DWTMOD+1,A6 SET WAIT FOR ACK MODE L P ABL BRM START INPUT | P* ( P* ABORT ENTRY IN 'INITIAL SEND' MODE P* PTRT210 EQU * * P CM DWTABT,A6 INDICATE ABORT
0x17c084…17c218 Dummy {f00=0x0076, f01=0x0190, f02=»AK' MODE n " P CF A5,READ WAIT FOR INTERRUPT , P LD A1,DWTTRM,A6 TRANSPARENT TEXT MODE ? 6 P RF(Z) TRT215 NO f P LDK A2,C:DLE ~ ( P CF A5,WRITE SEND ONE DLE CHARACTER PTRT215 EQU * , P CF A5,TRENQ5 SEND ENQ TO ABORT MESSAGE * P LDK
0x17c218…17c3ac Dummy {f00=0x0076, f01=0x0190, f02=»NG TRANSMISSION OF A MESSAGE ~ P* $ PTRT220 EQU * . P =9 B P LDK A1,/FF =9 P & P ANS A1,DWTABT,A6 ABORT ALLOWED =9 h P LDK A1,WNAK . P SC A1,DWTMOD+1,A6 SET 'WAIT FOR NAK' MODE , P ABL MODREC BRANCH TO COMMON SST HANDLER P
0x17c3ac…17c540 Dummy {f00=0x0076, f01=0x018e, f02=»25 EQU * & P ABL BRM010 READ ANOTHER CHARACTER P* : P* NAK RECEIVED D P* Z PTRT230 EQU * d $ P CF A5,CHKPAD CHECK TRAILING PAD x & P RF(NZ) TRT330 NOT A PAD CHARACTER P CF A15,CPRTIM KILL TIMER PTRT235 EQU * P LDK A1,
0x17c540…17c6d4 (1, 281) Dummy {f00=0x0076, f01=0x0190, f02=» P* PTRT240 EQU * P CF A5,READ READ A CHARACTER " P LDR A4,A2 SAVE IT F $ P CF A5,CHKPAD CHECK TRAILING PAD ` * P RF(NZ) TRT330 NOT A PAD, RESTART I/P ( P CF A15,CPRTIM KILL PROCEDURE TIMER $ P CF A5,HLTINP HALT INPUT DEVICE (
0x17c6d4…17c868 Dummy {f00=0x0076, f01=0x0190, f02=»A1,DWTCNT,A6 CORRECT ACK RECEIVED ? P RF(NE) TRT280 NO , , P LDK A4,0 INDICATE CORRECT ACK RECEIVED F P RF TRT270 v PTRT250 EQU * " P CWK A4,C:ACK1 ACK1 RECEIVED ? P RF(NE) TRT255 NO $ P LDK A1,1 INDICATE ACK1 RECEIVED P RB
0x17c868…17c9fc Dummy {f00=0x0076, f01=0x0190, f02=» RF TRT270 PTRT260 EQU * " P CWK A4,C:WACK WACK RECEIVED ? & . P RF(NE) TRT290 NO, WRONG SEQUENCE RECEIVED L 4 P IM DWTLRS,A6 INDICATE RESPONSE RECEIVED (WACK) ~ & P IM DWTWTR,A6 WACK LIMIT REACHED ? P RF(NP) TRT295 NO 8 P LDKL A1,R:EOT
0x17c9fc…17cb90 Dummy {f00=0x0076, f01=0x0190, f02=» =9 P LDK A1,/FF =9 ( P ANS A1,DWTABT,A6 ABORT PERMITTED =9 & $ P CF A15,TENDIO COMPLETE REQUEST R P CF A5,TREOT SEND EOT z P ABL OPEN30 PTRT270 EQU * P LDK A1,INIT 0 P SC A1,DWTMOD+1,A6 SET INITIAL TRANSMIT MODE P
0x17cb90…17cd24 Dummy {f00=0x0076, f01=0x0190, f02=»RS A1,DWTCNT,A6 UPDATE ACK COUNTER P =9 * P LDK A1,/FF =9 8 & P ANS A1,DWTABT,A6 ABORT ALLOWED =9 P P LDR A4,A4 ACK RECEIVED ? z P ABL(Z) RTN:OK YES P ABL INTRTN NO, RVI RECEIVED P EJECT P* @ P* WRONG ACK RECEIVED,
0x17cd24…17ceb8 Dummy {f00=0x0076, f01=0x0190, f02=»NZ) TRT290 YES, SEND ENQ < P LD A1,DWTETR,A6 NO RESPONSE RECEIVED. ENQ TRANSMITTED ? P ADK A1,L:ENQ ` 0 P RB(NZ) TRT235 YES, RETRANSMIT LAST MESSAGE v : P IM DWTLRS,A6 INDICATE RESPONSE RECEIVED, AND SEND ENQ P* P* PROCEDURE TIMEOUT
0x17ceb8…17d04c Dummy {f00=0x0076, f01=0x018e, f02=»ECTION ERROR p P RB(P) TRT265 PTRT295 EQU * * P CF A5,TRENQ SEND ENQ > P LDK A1,T:ENQ ( P CF A15,SPRTIM START PROCEDURE TIMER r P ABL BRM START INPUT P* P* EOT RECEIVED P* PTRT310 EQU * $ P CF A5,CHKPAD CH
0x17d04c…17d1e0 Dummy {f00=0x0076, f01=0x0190, f02=» P LDK A1,CSSTAB : P CF A15,DCSUPR INCREMENT TRANSMISSION ABORTED COUNTER P XIF X . P LDK A1,R:CANC RC=MESSAGE BLOCK CANCELLED d P ABL OPEN20 P* P* WRONG CHARACTER RECEIVED P* PTRT330 EQU * P ABL BRM RESTART INP
0x17d1e0…17d374 (1, 282) Dummy {f00=0x0076, f01=0x0190, f02=»************************************************************ * D * TIMER HANDLING ROUTINES N * p @ <************************************************************ z * . )* ROUTINE USED TO START A PROCEDURE TIMER * PSPRT
0x17d374…17d508 Dummy {f00=0x0076, f01=0x0190, f02=»5,SETIME START TIMER DATA TOUTPR TIMEOUT ENTRY SPRT10 DATA 0 TIMEOUT VALUE > ( # ST A4,DWTPTP,A6 SAVE TIMER POINTER b LDR* A4,A15 RESTORE A4 PSPRRTN EQU * P IFT CPU852=0 P RTN A15 RETURN P XIF P IFT CPU852=
0x17d508…17d69c Dummy {f00=0x0076, f01=0x0190, f02=» x * TOUTPR EQU * & ! LDR A6,A1 GET ACTUAL DWT ADDRESS & LDK A5,DWTSTB P " ADR A5,A6 LOAD A5 STACK BASE f & P CM DWTPTP,A6 CLEAR TIMER POINTER * P LDK A1,I:PRT PROCEDURE TIMEOUT INDEX . ) ABL JUMP BRANCH TO RIGHT TIMEOUT RO
0x17d69c…17d830 Dummy {f00=0x0076, f01=0x0190, f02=»NING ? r RF(Z) CPRT10 NO CM* DWTPTP,A6 KILL TIMER & CM DWTPTP,A6 CLEAR POINTER H CPRT10 EQU * l P IFT CPU852=0 P RTN A15 RETURN P XIF P IFT CPU852=1 " P ADKL A15,4 SET STACK POINTER P ABR* A15 AND RETU
0x17d830…17d9c4 Dummy {f00=0x0076, f01=0x0190, f02=»ORE TIMEOUT VALUE ( # LDR A1,A6 DWT ADDRESS AS PARAMETER STR A4,A15 SAVE A4 F CF A15,SETIME START TIMER b DATA TOUTRQ TIMEOUT ENTRY * %SRQT10 DATA 0 REQUESTED TIMEOUT VALUE " ST A4,DWTRTP,A6 SAVE POINTER LDR* A4,A15 R
0x17d9c4…17db58 Dummy {f00=0x0076, f01=0x018e, f02=»R t P ABR* A15 AND RETURN P XIF & * 2 ( #* TIMEOUT ENTRY FOR REQUESTED TIMER < * h TOUTRQ EQU * r & ! LDR A6,A1 GET ACTUAL DWT ADDRESS 2 P LDK A5,DWTSTB LET A5 POINT TO THE SECOND LAST P ADR A5,A6 ENTRY IN A5 STACK .
0x17db58…17dcec Dummy {f00=0x0076, f01=0x018e, f02=» d * ( #* ROUTINE TO KILL A REQUESTED TIMER * > CRQTIM EQU * H ( $ LD A1,DWTRTP,A6 ANY RUNNING TIMER ? P RF(Z) CRQT10 NO CM* DWTRTP,A6 KILL TIMER CM DWTRTP,A6 CLEAR POINTER PCRQT10 EQU * P IFT CPU852=0
0x17dcec…17de80 Dummy {f00=0x0076, f01=0x0190, f02=» z P XIF P IFT IDLELN=1 P EJECT * P* 8 P* START IDLE TIMER B P* PSIDTIM EQU * f ( P LD A1,DWTCON,A6 LEASED CONNECTION ? z 0 P RF(Z) CIDT10 YES, NO IDLE TIME SUPERVISION P LDR A1,A6 P STR A4,A15 SAVE A4 " P
0x17de80…17e014 (1, 283) Dummy {f00=0x0077, f01=0x0190, f02=» A4 | P IFT CPU852=0 P RTN A15 " P XIF 2 P IFT IDLELN=1 > P IFT CPU852=1 T " P ADKL A15,4 SET STACK POINTER j P ABR* A15 AND RETURN P XIF P IFT IDLELN=1 P* P* IDLE TIMEOUT P* PTOUTID EQU *
0x17e014…17e1a8 Dummy {f00=0x0077, f01=0x018e, f02=»M DWTITP,A6 CLEAR POINTER ( P CF A5,STAOUT RISE 'REQUEST TO SEND' " P CF A5,HLTOUT JUST A MOMENT N & P CF A15,SIDTIM RESTART IDLE TIMER r P ABL TDISP P* CLEAR IDLE TIMER P* PCIDTIM EQU * , P LD A1,DWTITP,A6 GET TIMER BLOCK P
0x17e1a8…17e33c Dummy {f00=0x0077, f01=0x018e, f02=» P IFT CPU852=0 P RTN A15 RETURN P XIF 2 P IFT IDLELN=1 > P IFT CPU852=1 T " P ADKL A15,4 SET STACK POINTER j P ABR* A15 AND RETURN P XIF P EJECT P* D P* ROUTINE TO START A MODEM SUPERVISORY TIMER DURING TRAN
0x17e33c…17e4d0 Dummy {f00=0x0077, f01=0x0190, f02=» $ P ST A1,SMET30 STORE TIMER VALUE " P LDKL A1,TOUTMT TIMEOUT ENTRY , P RF SMET10 R PSMETIM EQU * d & P ST A1,SMET30 STORE TIMEOUT VALUE x " P LDKL A1,TOUTME TIMEOUT ENTRY PSMET10 EQU * & P ST A1,SMET20 STORE TIMEOUT ENTRY ( P L
0x17e4d0…17e664 Dummy {f00=0x0077, f01=0x0190, f02=»TCH ENTRY p PSMET30 DATA 0 TIMEOUT VALUE ( P ST A4,DWTMTP,A6 SAVE TIMER POINTER 6 P LDR* A4,A15 RESTORE A4 b P IFT CPU852=0 P RTN A15 RETURN TO CALLER P XIF P IFT CPU852=1 " P ADKL A15,4 SET STACK POINTER P ABR*
0x17e664…17e7f8 Dummy {f00=0x0077, f01=0x0190, f02=»ESS v P* =7 P LDK A5,DWTSTB P ADR A5,A6 SET UP A5 STACK 2 $ P CF A5,HLTOUT HALT O/P IF ACTIVE T 2 P LDKL A2,/FF01 INDICATE MODEM ERROR STATUS =7 | P RF TOUT10 PTOUTME EQU * " P LDR A6,A1 RELOAD DWT ADDRESS 2 P LDK A2,1
0x17e7f8…17e98c Dummy {f00=0x0077, f01=0x0190, f02=»EAR POINTER =8 & P ABL GETC17 TREAT THE INFORMATION P* @ > P* ROUTINE TO KILL A RUNNING MODEM ERROR SUPERVISION TIMER J * P* OR A TIMER CHECKING MODEM DURING O/P PCMTTIM EQU * P* PCMETIM EQU * $ P LD A1,DWTMTP,A6 TIMER RUNNI
0x17e98c…17eb20 Dummy {f00=0x0077, f01=0x0190, f02=»2=0 P RTN A15 RETURN TO CALLER P XIF . P IFT CPU852=1 : " P ADKL A15,4 SET STACK POINTER P P ABR* A15 AND RETURN v P XIF P EJECT P* 6 P* ROUTINE TO KILL A RUNNING MODEM CONNECTION TIMER P* PCMCTIM EQU *
0x17eb20…17ecb4 (1, 284) Dummy {f00=0x0077, f01=0x018e, f02=» PCMCRTN EQU * P IFT CPU852=0 P RTN A15 RETURN TO CALLER . P XIF P P IFT CPU852=1 " P ADKL A15,4 SET STACK POINTER r P ABR* A15 AND RETURN P XIF P EJECT P* 2 P* ROUTINE FOR CHECKING TRAILING PAD CHARACTER
0x17ecb4…17ee48 Dummy {f00=0x0077, f01=0x018e, f02=» P LDK A1,1 INDICATE NOT PAD P RF CHK030 & PCHK020 EQU * 8 P LDK A1,0 INDICATE PAD L PCHK030 EQU * j P LDR A1,A1 SET CR ~ P ABR* A5 RETURN P EJECT PENQINT EQU * P CF A5,HLTINP HALT INPUT 0 P CF A15,CRQTIM STOP RE
0x17ee48…17efdc Dummy {f00=0x0077, f01=0x0190, f02=» 0 P CF A15,SPRTIM START TIMER FOR SENDING WACK LDKL A1,RECEIV+INIT < . P ST A1,DWTMOD,A6 SET INITIAL RECEIVE MODE X $ P CM DWTCNT,A6 CLEAR ACK COUNTER LDKL A1,/8000 " ANS A1,DWTST,A6 CLEAR STATUS P RTN A5 P IFT ITBTR
0x17efdc…17f170 Dummy {f00=0x0077, f01=0x018e, f02=»NO OF C:SPACES P* PTRCOMP EQU * & 0 P LD A1,DWTCMP,A6 GET NO OF SPACES IN STRING < , P SC A2,DWTCMP,A6 SAVE NEXT CHAR IF ANY p . P CWK A1,SP:MIN NO OF SPACES LESS THAN MIN P RF(NL) TRCO20 NO PTRCO10 EQU * , P LDK A
0x17f170…17f304 Dummy {f00=0x0077, f01=0x0190, f02=» ( P LC A1,DWTCMP+1,A6 DECR SPACE COUNT P SUK A1,1 ALL SPACES SENT 0 P RF(Z) TRCRTN YES EXIT R " P SC A1,DWTCMP+1,A6 SAVE COUNT r P RB TRCO10 SEND NEXT SPACE 0 PTRCO20 EQU * NO OF SPACES >MIN SEND: GS SC P LDK A2,GS P CF
0x17f304…17f498 Dummy {f00=0x0077, f01=0x0190, f02=»RK A2,SP:CHB FORM SPACE COUNT CHAR P CF A5,ACBPAR ACCUMULATE BCC , P CF A5,WRITEP SEND IT P PTRCRTN EQU * n P LDK A2,0 CLEAN FIRST ( P LC A2,DWTCMP,A6 RELOAD SAVED CHAR ( P CM DWTCMP,A6 CLEAR COMPRESSED MODE P RTN A5 RETURN
0x17f498…17f62c Dummy {f00=0x0077, f01=0x0190, f02=»A5,TRSYN START TRANSMITTER AND SEND SYN P LDK A2,C:STX 0 P CF A5,WRITE SEND STX F P CF A5,TRENQ5 SEND ENQ d P RTN A5 RETURN TO CALLER P EJECT P* P* . P* WRSYN : START TRANSMITTER IF 2-WIRE LINE P* AND SEND
0x17f62c…17f7c0 Dummy {f00=0x0077, f01=0x018e, f02=» INSTRUCTION ACCEPTED ? P RF(NN) TRSY10 YES " P LDK A2,1 INDICATE MODEM ERROR : ( P ABL GETC12 TREAT THE ERROR PROPERLY ` PTRSY10 EQU * P LDK A1,T:WRT 6 P CF A15,SMTTIM START MODEM SUPERV TIMER DURING O/P $ P CF A5,READ WAIT FOR IN
0x17f7c0…17f954 (1, 285) Dummy {f00=0x0077, f01=0x0190, f02=» P CF A5,WRITE SEND SYN P RTN A5 & P EJECT 6 P* D P* N P* TREOT : SEND SINGLE EOT X P* z P* PTREOT EQU * * P CF A5,TRSYN START OUTPUT AND SEND SYN PTREOT5 EQU * P LDK A2,C:EOT POUTEND EQU *
0x17f954…17fae8 Dummy {f00=0x0077, f01=0x0190, f02=» CF A5,HLTOUT HALT OUTPUT 0 P CF A15,CMTTIM KILL MODEM SUPERVISORY TIMER " P RTN A5 V P* f P EJECT p P* ~ P* TRENQ : SEND SINGLE ENQ P* P* PTRENQ EQU * * P CF A5,TRSYN START OUTPUT AND SEND SYN PTRENQ5 E
0x17fae8…17fc7c Dummy {f00=0x0077, f01=0x0190, f02=»* * P CF A5,TRSYN START OUTPUT AND SEND SYN P LDK A2,C:NAK 8 P RB OUTEND N P* ` P EJECT j P* x " P* TRACK : SEND ACK-0 OR ACK-1 P* P* PTRACK EQU * P LDK A3,C:ACK0 & P LD A2,DWTCNT,A6 ACK0 TO BE SENT ?
0x17fc7c…17fe10 Dummy {f00=0x0077, f01=0x0190, f02=» P CF A5,WRITE SEND DLE P LDR A2,A3 & P RB OUTEND 8 P* J P* T P* TRWACK : SEND WACK ^ P* z P* PTRWACK EQU * P LDK A3,C:WACK P RB TRA100 P* P* P* TRRVI : SEND RVI P* P*
0x17fe10…17ffa4 Dummy {f00=0x0077, f01=0x0190, f02=»* & P* INPUT CHARACTER DISPATCH HANDLER : P* THE ACTUAL CHARACTER IS ANALYSED, AND WITH REFERENCE 4 8 4* TO THE ACTUAL MODE OF THE DLS, A BRANCH IS MADE TO r P* THE CORRECT EVENT HANDLER. * D ?********************************************
0x17ffa4…180138 Dummy {f00=0x0077, f01=0x0190, f02=»NPUT | CF A5,STAINP RESTART INPUT $ LDR A1,A1 CIO ORDER ACCEPTED ? 0 P RF(NN) BRM005 YES X 0 P LDK A2,1 STATUS MODEM NOT OP (CU ERROR ???) r P ABL GETC15 PBRM005 EQU * P IFT IDLELN=1 $ P CF A15,SIDTIM START IDLE TIMER
0x180138…1802cc Dummy {f00=0x0077, f01=0x0190, f02=»X FOR DATA CHARACTER ~ P IFT CODE=0 P CWK A1,/1F DATA CHARACTER ? 0 P XIF T P IFT CODE=1 ` P CWK A2,/3D DATA CHARACTER ? t P XIF P RF(G) JUMP YES P LDR A1,A2 SAVE CHARACTER 4 P LC A1,INDEX,A1 GET INDEX FOR RECEIVED CHA
0x1802cc…180460 Dummy {f00=0x0077, f01=0x0190, f02=» | ANK A4,/FF MAIN MODE : P LD A4,MAIN,A4 ADDR OF THIS MAIN MODES SUB MODE TABLES & 4 P ADR A4,A3 ADDRESS OF THE ACTUAL SUB MODE TABLE d . P LDR* A3,A4 ADDRESS OF ACTUAL BRANCH TABLE 0 P ADR A1,A3 ADDRESS OF CORRECT EVENT HANDLER P IFT C
0x180460…1805f4 (1, 286) Dummy {f00=0x0077, f01=0x0190, f02=»SAV,A6 RELOAD A3 P LD A4,DWTSAV+2,A6 AND A4 P XIF : * P ABR* A1 BRANCH TO RIGHT EVENT HANDLER F P EJECT t P* < P******************************************************* < P*******************************************************
0x1805f4…180788 Dummy {f00=0x0077, f01=0x0190, f02=»********* b < P******************************************************* P* R PDC17ON EQU * P IFT CPU852=0 p $ P MSR 8,A15 SAVE REGISTERS A15-A8 P XIF P IFT CPU852=1 & P CF A15,SAVE8 SAVE REGISTERS A1-A8 P XIF P L
0x180788…18091c Dummy {f00=0x0077, f01=0x0190, f02=» n $ P LD A6,DCTAB,A4 GET DWT ADDRESS $ P LD A1,DWTST,A6 GET LINE STATUS 0 P ANK A1,S:MNOP MODEM ERROR ? X , P RB(NZ) DRM100 YES, RECOVERY IN PROGRESS | 6 P LDK A5,DWTSTB-/10 LET A5 POINT TO THE SECOND LAST P ADR A5,A6 LEVEL IN A5 STACK &
0x18091c…180ab0 Dummy {f00=0x0077, f01=0x0190, f02=»P TRY TO CONNECT MODEM =6 P LDR* A1,A6 =6 " P ORS A1,HLTI:P =6 : 4 P EX HLTI:P HALT I/P TO GENERATE SST INTERRUPT =6 T P XRS A1,HLTI:P =6 P RB DRM100 TAKE NEXT LINE PDRM110 EQU * $ P LD A1,DWTOUT,A6 OUTPUT ACTIVE ? $ P RB(
0x180ab0…180c44 Dummy {f00=0x0077, f01=0x0190, f02=»D =6 j ( P CF A5,STAOUT REACTIVATE O/P DEVICE P RB DRM100 TAKE NEXT LINE 8 PDRM150 EQU * Z " P ABL TDISP RECOVERY COMPLETED n EJECT B >************************************************************** * " * HARDWARE INTERFACE R
0x180c44…180dd8 Dummy {f00=0x0077, f01=0x0190, f02=» HLTINP EQU * ( P LD A1,PFPOST POWER UP IN PROGRESS ? P ABL(NZ) TDISP YES H " LDR* A1,A6 GET DEVICE ADDRESS b . P ORS A1,HLTI:P CREATE CIO HALT INSTRUCTION P EX HLTI:P EXECUTE IT . P XRS A1,HLTI:P CLEAR DEVICE ADDRESS FIELD (
0x180dd8…180f6c Dummy {f00=0x0077, f01=0x0190, f02=»E WITH MODEM NOT OP p PHLT010 EQU * & P XRS A1,SSTI:P CLEAR ADDRESS FIELD 0 P IFF LOGG=0 =2 Z " CF A5,LOGSST LOGG STATUS INFO r P XIF $ P CM DWTINP,A6 INPUT NOT ALLOWED P IFT IDLELN=1 " P CF A15,CIDTIM KILL IDLE TIMER P
0x180f6c…181100 Dummy {f00=0x0077, f01=0x0190, f02=» LD A1,PFPOST POWER UP IN PROGRESS ? P ABL(NZ) TDISP YES , P IFT SALCUZ=1 F $ P LD A1,DWTOUT,A6 OUTPUT ACTIVE ? P RB(Z) HLTRTN NO, RETURN P XIF $ LDR* A1,A6 INPUT DEVICE ADDRESS & " ADK A1,BIAS OUTPUT DEVICE ADDRESS & P ORS A
0x181100…181294 (1, 287) Dummy {f00=0x0078, f01=0x0190, f02=»T ACCEPTED P* & P XRS A1,HLTO:P CLEAR ADDRESS FIELD " P CM DWTOUT,A6 SET O/P INACTIVE F P RB HLTRTN RETURN l PHLT020 EQU * P XIF & P XRS A1,HLTO:P CLEAR ADDRESS FIELD P* =1 P IFT SALCUZ=1 =1 * P CF A5,READ WA
0x181294…181428 Dummy {f00=0x0078, f01=0x018e, f02=» * P ORS A1,SSTO:P SST OUTPUT INSTRUCTION P EX SSTO:P EXECUTE IT 2 & P XRS A1,SSTO:P CLEAR ADDRESS FIELD P P* =1 z P IFF LOGG=0 =2 " P CF A5,LOGSUT LOGG STATUS INFO P* =1 P XIF 0 P CM DWTOUT,A6 OUTPUT INTERRUPTS NOT
0x181428…1815bc Dummy {f00=0x0078, f01=0x0190, f02=» STAINP EQU * ( $ LD A1,PFPOST POWER UP IN PROGRESS ? ABL(NZ) TDISP YES H P IFT SALCUZ=0 b & P LDKL A2,C:CRSP+C:SYN SYNC PATTERN x P XIF P IFT SALCUZ=1 P LDK A2,0 P XIF $ P LDR* A1,A6 INPUT DEVICE ADDRESS &
0x1815bc…181750 Dummy {f00=0x0078, f01=0x0190, f02=»NSTRUCTION NOT ACCEPTED P RF STAI20 STAI10 EQU * 2 $ P IM DWTINP,A6 SET INPUT ALLOWED F P IFT SALCUZ=1 n P LDK A2,C:SYN P ORS A1,OTR:SY $ P EX OTR:SY SPECIFY SYNC-PATTERN & P XRS A1,OTR:SY CLEAR ADDRESS FIELD P XIF
0x181750…1818e4 Dummy {f00=0x0078, f01=0x0190, f02=» INSTRUCTION ACCEPTED ? P RF(NN) STAI30 YES P LDK A1,CSCDTE : . P CF A15,DCSUPR INCREMENT DTE ERROR COUNTER P PSTAI30 EQU * P XIF P LDR A1,A2 RETURN CODE IN A1 P RTN A5 RETURN TO CALLER P EJECT * START OUTPUT DEVIC
0x1818e4…181a78 Dummy {f00=0x0078, f01=0x0190, f02=»CE ADDRESS v * P ADK A1,BIAS GET OUTPUT DEVICE ADDRESS & P ORS A1,STAO:P CREATE INSTRUCTION @ P EX STAO:P EXECUTE IT j P RF(A) STAO10 . P LDKL A2,/8000 INDICATE OPEN NOT ACCEPTED P RF STAO20 PSTAO10 EQU * , P IM DWTOUT,A6 OUTP
0x181a78…181c0c Dummy {f00=0x0078, f01=0x0190, f02=»TTERN TO 'SALCUZ' v & P XRS A1,OTR:SY CLEAR ADDRESS FIELD P XIF D P LDK A2,0 RC=OK P PSTAO20 EQU * h & P XRS A1,STAO:P CLEAR ADDRESS FIELD | P IFT STAT=1 & P LDR A1,A2 INSTRUCTION ACCEPTED ? P RF(NN) STAO30 YES P LDK A1,CS
0x181c0c…181da0 Dummy {f00=0x0078, f01=0x0190, f02=»5 RETURN TO CALLER P EJECT * ( * %* ROUTINE FOR DISCONNECTING THE MODEM 2 * ` DISCM EQU * j P IFF SALCUZ=1 ~ $ CF A5,HLTINP HALT INPUT DEVICE $ CF A5,HLTOUT HALT OUTPUT DEVICE P XIF =6 PDISCM5 EQU * =6
0x181da0…181f34 (1, 288) Dummy {f00=0x0078, f01=0x0190, f02=»GET INPUT DEVICE ADDRESS & ! ORS A1,CIODIS CREATE INSTRUCTION EX CIODIS EXECUTE IT J & " XRS A1,CIODIS CLEAR ADDRESS FIELD h P RTN A5 RETURN TO CALLER EJECT * 0 P* SUBROUTIN FOR ACTIVATING DTE-DCE INTERFACE *
0x181f34…1820c8 Dummy {f00=0x0078, f01=0x0190, f02=»EVICE (NO INTERRUPTS ALLOWED) v P STR A4,A15 SAVE A4 & ( P LDR A1,A6 DWT ADDRESS AS PARAMETER B P CF A15,SETIME START TIMER n P DATA ACTTIM TIMEOUT ENTRY P DATA T:MOD TIMEOUT VALUE ( P ST A4,DWTCTP,A6 SAVE TIMER POINTER P LDR* A4
0x1820c8…18225c Dummy {f00=0x0078, f01=0x0190, f02=» * ACTTIM EQU * $ P LDR A6,A1 GET DWT ADDRESS TO A6 " * P LD A5,DWTSAV+8,A6 RELOAD STACKPOINTER J & P CM DWTCTP,A6 CLEAR TIMER POINTER x P IFT SALCUZ=1 P CF A5,STAINP ACTIVATE CU P XIF . P CF A5,HLTINP HALT INPUT TO GET CU
0x18225c…1823f0 Dummy {f00=0x0078, f01=0x018e, f02=»OT OP BIT r & ! LDK A1,0 INDICATE MODEM OPERABLE P RF ACTRTN < PACT010 EQU * N P LDK A1,S:MNOP b * % ORS A1,DWTST,A6 SET MODEM NOT OP BIT x " LDKL A1,/8000 INDICATE ERROR ACTRTN EQU * P RTN A5 RETURN TO CALLER P EJECT
0x1823f0…182584 Dummy {f00=0x0078, f01=0x0190, f02=» 2 P* THE ROUTINE WILL TRY TO RECONNECT THE MODEM : P* DURING A PREDEFINED TIME (DIFFERENT TIME VALUES FOR : 4 P* A DLS IN SLAVE MODE AND A DLS IN MASTER MODE). x 8 P* IF THE ERROR PERSISTS AFTER TIMEOUT, THE DLS WILL > P* ATTAIN 'NO LOGICAL CONNECT
0x182584…182718 Dummy {f00=0x0078, f01=0x0190, f02=», THE b 6 P* TIMER IS KILLED, AND A BRANCH WILL BE DONE TO A 2 P* PREDEFINED ENTRY DEPENDING ON THE DLS MODE. H 4 P* IF MODEM IS OK WHEN ENTERING THIS ROUTINE, THE ~ P* INPUT IS RESTARTED. P* @ P******************************************
0x182718…1828ac Dummy {f00=0x0078, f01=0x0190, f02=»RESTART I/P $ P LDR A2,A2 MODEM ERROR TIMEOUT ? P RF(N) MODR10 NO < . P CF A15,CMCTIM KILL MODEM CONNECTION TIMER T 4 P CM DWTABT,A6 INDICATE ABORT RECOVERY COMPLETED " P LD A1,DWTST,A6 ANY REQUEST ? P ABL(N) OPEN30 NO P LD A1,DWT
0x1828ac…182a40 Dummy {f00=0x0078, f01=0x0190, f02=»N10 NO, COMPLETE WITH RC=MODEM NOT OP PMODR10 EQU * . * P ORS A1,DWTST,A6 SET MODEM NOT OP BIT B ( P CF A15,CPRTIM KILL PROCEDURE TIMER p 6 P LDK A1,T:MERR PRESET ERROR TIMER FOR MASTER MODE P LD A2,DWTMOD,A6 P ANKL A2,/FF00 GET MAIN MO
0x182a40…182bd4 (1, 289) Dummy {f00=0x0078, f01=0x0190, f02=» LDK A2,L:ENQ GET ENQ LIMIT P SUK A2,3 3 RETRIES ? $ P RF(Z) MODR20 YES B 6 P SLL A1,2 NO, 15 RETRIES => MULT. WITH 16 IN TOTAL PMODR20 EQU * 6 P CF A15,SMETIM START MODEM ERROR SUPERVISORY TIMER PMODR30 EQU * ( P CF A5,ACTDCE TR
0x182bd4…182d68 Dummy {f00=0x0078, f01=0x0190, f02=»WTMOD,A6 GET OPERATING MODE 8 P CWK A1,CNTRL+NOLCON 'NO LOGICAL CONNECTION' MODE ? $ " P RF(E) MODR50 YES, RESTART I/P ` P ANKL A1,/FF00 GET MAIN MODE 4 P SUKL A1,RECEIV RECEIVE MAIN MODE (SLAVE MODE) ? P RF(Z) MODR40 YES . P LDK A1,I:PR
0x182d68…182efc Dummy {f00=0x0078, f01=0x0190, f02=»AG t , P LD A1,DWTMOD,A6 GET DLS OPERATING MODE 0 P CWK A1,RECEIV+LRECOV 'LINK RECOVERY' MODE ? : P ABL(E) NAK065 YES n P LDK A1,T:MACT . P CF A15,SPRTIM START MASTER ACTIVITY TIMER PMODR50 EQU * P ABL BRM RESTART I/P EJECT
0x182efc…183090 Dummy {f00=0x0078, f01=0x0190, f02=»TER v P IFT CODE=0 * P CWK A2,C:PAD TRAILING PAD RECEIVED ? ( $ RF(E) RETURN YES, SKIP PARITY CHECK N P* z * CHECK PARITY P* ECR A1,A2 RE100 EQU * SLL A1,1 RF(Z) RE110 RB(NN) RE100 X
0x183090…183224 Dummy {f00=0x0078, f01=0x0190, f02=»F(NZ) PARERR PARITY ERROR RETURN EQU * " P XIF 6 P RTN A5 RETURN B P IFT CODE=0 X EJECT l * z * PARITY ERROR ENTRY * PARERR EQU * LC A1,DWTMOD,A6 ANK A1,/FF GET MAIN MODE P RF(Z) PAR010
0x183224…1833b8 Dummy {f00=0x0078, f01=0x0190, f02=»IVE MODE ? f P RF(E) PAR005 YES 4 P CWK A1,RECEIV+TRANSP TRANSPARENT RECEIVE MODE ? , P RF(NE) PAR010 NO d PPAR005 EQU * ~ 6 P ABL REC185 PARITY ERROR DURING MESSAGE RECEPTION PPAR010 EQU * P ABL BRM RESTART INPUT P XIF
0x1833b8…18354c Dummy {f00=0x0078, f01=0x0190, f02=»A6 * P ADK A1,DWTSAV GET ADDRESS OF SAVEAREA P MSR 8,A1 SAVE A1-A8 8 P XIF T P IFT CPU852=1 ` & P ST A3,DWTSAV,A6 SAVE REGISTER A3, v P ST A4,DWTSAV+2,A6 A4 P ST A5,DWTSAV+4,A6 A5 P ST A7,DWTSAV+6,A6 A7 P ST A8,DWTSAV+
0x18354c…1836e0 Dummy {f00=0x0078, f01=0x0190, f02=»END CHARACTER p P* P* PWRITEP EQU * * P IFT CODE=0 > P ECR A1,A2 R P ORK A2,/80 d PWRP100 EQU * x P SLL A1,1 P RB(P) WRP100 P RF(Z) WRP110 P XRK A2,/80 P RB WRP100 PWRP110 EQU * P XIF
0x1836e0…183874 (1, 290) Dummy {f00=0x0078, f01=0x0190, f02=» ADDRESS t . P ADK A1,BIAS CREATE OUTPUT DEVICE ADDRESS , P ORS A1,OTR:A2 CREATE OTR A2 INSTRUCTION B P EX OTR:A2 EXECUTE IT r P RF(NA) WRIT10 NOT ACCEPTED & P XRS A1,OTR:A2 CLEAR ADDRESS FIELD 0 P LD A1,DWTOUT,A6 OUTPUT INTRRUPTS ALLOWED
0x183874…183a08 Dummy {f00=0x0078, f01=0x0190, f02=»RRUPT r PWRIT10 EQU * & P XRS A1,OTR:A2 CLEAR ADDRESS FIELD " . P ORS A1,SSTO:P CREATE SST O/P INSTRUCTION L P EX SSTO:P EXECUTE IT ~ 2 P RF(NA) WRIT20 INSTRUCTION NOT ACCEPTED ????? & P XRS A1,SSTO:P CLEAR ADDRESS FIELD 0 P LD A1,DWTOU
0x183a08…183b9c Dummy {f00=0x0078, f01=0x0190, f02=» SALCUZ=0 P* P* THROUGHPUT P* 0 P* =2 : P IFT STAT=1 J P LDK A1,CSCDOT ^ 4 P CF A15,DCSUPR INCREMENT O/P THROUGHPUT COUNTER t P XIF P IFT SALCUZ=0 $ P CF A5,STAOUT RESTART O/P DEVICE ( P RB READ WAIT FOR
0x183b9c…183d30 Dummy {f00=0x0078, f01=0x0190, f02=»TUS ~ " P ANK A1,1 MODEM NOT OPERABLE ? P RF(NZ) WRIT15 YES 2 P RTN A5 SST OK, RETURN L P* j P* MODEM ERROR t P* PWRIT15 EQU * P IFT STAT=1 P LDK A1,CSCDCE 0 P CF A15,DCSUPR INCREMENT MODEM ERROR COUNTER P X
0x183d30…183ec4 Dummy {f00=0x0078, f01=0x0190, f02=»RANCH TO SST HANDLER OR DISC. MODEM P XIF , PWRIT20 EQU * 8 & P XRS A1,SSTO:P CLEAR ADDRESS FIELD L PWRIT30 EQU * v 0 P ABL TDISP UNKNOWN OR NOT ALLOWED INTERRUPT P IFT CODE=0 P EJECT P* P* P* CALCUL
0x183ec4…184058 Dummy {f00=0x0078, f01=0x0190, f02=» A5 P* P* P* READ AND CHECK BCC * P* H PRDBPAR EQU * V P CF A5,READP READP CHAR l ( P ADK A5,4 INCR RETURN STACK POINTER P XRR A7,A2 P ANK A7,/7F P ABR* A5 RETURN TO CALLER P XIF
0x184058…1841ec Dummy {f00=0x0078, f01=0x0190, f02=»CCUMULATED CRC P* P* PACBPAR EQU * * P ST A1,CRCSAV @ P ST A2,CRCSAV+2 V P ST A3,CRCSAV+4 n P LDK A1,8 PCRC100 LDR A3,A7 P SRL A7,1 P XRR A3,A2 P SRL A2,1 P ANK A3,1 P RF(Z) CRC110
0x1841ec…184380 Dummy {f00=0x0078, f01=0x0190, f02=» P RTN A5 PCRCSAV RES 3 P EJECT , P* : P* D P* READ AND CHECK CRC N P* j " P* ON RETURN CR=0 IF CRC IS OK t P* P* PRDBPAR EQU * " P CF A5,READ READ 1ST CRC CHAR & P XRR A7,A2 CHECK WITH ACCUMULA
0x184380…184514 (1, 291) Dummy {f00=0x0079, f01=0x0190, f02=»ETURN P XIF EJECT * ( " * INPUT INTERRUPT PRE HANDLERS 2 * X * b * PHYSICAL LINE ONE l * IH1701 EQU * $ ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=0 $ P MSR 8,A15 SAVE REGISTERS A1-A8
0x184514…1846a8 Dummy {f00=0x0079, f01=0x018e, f02=»S d P IFF NLINE=1 0 , RF GETCHR GET THE CHARACTER FROM INPUT UNIT * R * PHYSICAL LINE TWO * x IH1703 EQU * ST P,INTSAV P MSR 8,A15 P LDKL A6,DW1702 P IFF NLINE=2 RF GETCHR * * PH
0x1846a8…18483c Dummy {f00=0x0079, f01=0x0190, f02=» RF GETCHR * * PHYSICAL LINE FOUR * < IH1707 EQU * F ST P,INTSAV Z P MSR 8,A15 n P LDKL A6,DW1704 P XIF * > :* ROUTIN TO GET THE CHARACTER FROM CHANNEL UNIT, OR IF NOT * %* ACCEPTED TO GET CHANNE
0x18483c…1849d0 Dummy {f00=0x0079, f01=0x0190, f02=» $ P MLR 8,A1 RELOAD REGISTERS A1-A8 P XIF , P IFT CPU852=1 8 . P CF A15,LDREG RELOAD REGISTERS A3-A5,A7,A8 N P XIF ( $ LDR* A1,A6 GET INPUT DEVICE ADDRESS * P ORS A1,INR:A2 CREATE INR INSTRUCTION . P EX INR:A2 TRY TO GET CHARACTER TO
0x1849d0…184b64 Dummy {f00=0x0079, f01=0x0190, f02=» ? r P RF(Z) GETC30 NO P IFF LOGG=0 =2 " P CF A5,LOGIN =2 : P XIF =2 R P IFT IDLELN=1 d * P LD A1,DWTITP,A6 IDLE TIMER RUNNING ? z P RF(Z) GETC05 NO P LDKL A1,-T:IDLE $ P ST* A1,DWTITP,A6 RESTART TIMER P XIF
0x184b64…184cf8 Dummy {f00=0x0079, f01=0x0190, f02=»1,SSTI:P SST INPUT INSTR P EX SSTI:P EXECUTE IT 0 P RF(NA) GETC25 INSTRUCTION NOT ACCEPTED ??? > ( P XRS A1,SSTI:P CLEAR ADDRESS FIELD r $ P LD A1,DWTINP,A6 INPUT ALLOWED ? P RF(Z) GETC30 NO PGETC12 EQU * P LDK A5,DWTSTB $ P
0x184cf8…184e8c Dummy {f00=0x0079, f01=0x0190, f02=»IF =2 P IFT IDLELN=1 " P CF A15,CIDTIM KILL IDLE TIMER & P XIF L PGETC15 EQU * X * P ORKL A2,/FF00 INDICATE SST INTERRUPT l PGETC17 EQU * ( P LD A1,DWTCON,A6 LEASED CONNECTION ? P RF(Z) GETC20 YES P LDR A1,A2 SAVE STAT
0x184e8c…185020 Dummy {f00=0x0079, f01=0x0190, f02=» MODEM ERROR COUNTER x P XIF , P LDK A1,R:MNOP NO, RC=MODEM NOT OPERABLE ( : P ABL NCON30 DISCONNECT MODEM (CLEAR PHYS. CONNECTION) X PGETC20 EQU * P IFT STAT=1 P LDR A1,A2 SAVE STATUS P ANK A1,1 MODEM ERROR ? P RF(Z) GETC2
0x185020…1851b4 (1, 292) Dummy {f00=0x0079, f01=0x0190, f02=» ANK A1,2 THROUGHPUT STATUS ? P RF(Z) GETC24 NO & 2 P LDK A1,CSCDIT INDEX TO I/P THROUGHPUT COUNTER > PGETC23 EQU * t , P CF A15,DCSUPR INCREMENT ACTUAL COUNTER PGETC24 EQU * P XIF * P LDK A1,I:SST INDEX FOR SST INTERRUPTS , P A
0x1851b4…185348 Dummy {f00=0x0079, f01=0x0190, f02=»SP UNSOLICITED OR UNKNOWN INTERRUPT P EJECT , < P******************************************************* : P* z * P* INTERRUPT HANDLER , CHLC TRANSMITTER P* < P******************************************************* P* P*
0x185348…1854dc Dummy {f00=0x0079, f01=0x018e, f02=» P XIF P IFT CPU852=1 & P CF A15,SAVE8 SAVE REGISTERS A1-A8 & P XIF P $ P LDKL A6,DW1701 LOAD DWT ADDRESS P IFF NLINE=1 P RF OUTCHR P* P* P* PIH1704 EQU * P ST P,INTSAV P MSR 8,A15 $ P LDKL
0x1854dc…185670 Dummy {f00=0x0079, f01=0x0190, f02=» P MSR 8,A15 $ P LDKL A6,DW1703 LOAD DWT ADDRESS P IFF NLINE=3 B P RF OUTCHR V P* h P* r P* | PIH1708 EQU * P ST P,INTSAV P MSR 8,A15 $ P LDKL A6,DW1704 LOAD DWT ADDRESS P XIF POUTCHR EQU * P
0x185670…185804 Dummy {f00=0x0079, f01=0x0190, f02=» P IFT CPU852=1 . P CF A15,LDREG RELOAD REGISTERS A3-A5,A7,A8 P XIF L * P LD A1,DWTOUT,A6 OUTPUT ACTIVATED ? =4 X 4 P ABL(Z) WRITE NO, BUT TRY TO SERVE INTERRUPT =4 P RTN A5 P IFT CPU852=1 P EJECT PLDREG EQU * P L
0x185804…185998 Dummy {f00=0x0079, f01=0x0190, f02=»WTSAV+8,A6 A8 " P ADKL A15,4 SET STACK POINTER P ABR* A15 AND RETURN < P XIF X P EJECT d P* r P* ILLEGAL INTERRUPTS | P* P IFF NLINE=4 PIH1707 EQU * PIH1708 EQU * P IFF NLINE=3 PIH1705 EQU * PIH
0x185998…185b2c Dummy {f00=0x0079, f01=0x0190, f02=»L INTERRUPT v * P ABL ILLINT ILLEGAL INTERRUPT ROUTINE P EJECT B P* P P* Z & P* DCTAB: LINE CONFIGURATION TABLE d P* P* PDCTAB EQU * $ P DATA DCTABE-DCTAB TABLE LENGTH P DATA DW1701 P IFF NLINE=1 P D
0x185b2c…185cc0 Dummy {f00=0x0079, f01=0x0190, f02=» P* : P* TABLE HOLDING INDEX FOR INPUT CHARACTERS, WHICH ARE < P* LESS THAN /1F FOR ASCII AND 3D FOR EBCDIC. THE INEX IS P > P* USED TO MAKE A BRANCH TO THE CORRECT CHARACTER HANDLER. P* PINDEX EQU * P BYTE I:CHR,I:STX
0x185cc0…185e54 (1, 293) Dummy {f00=0x0079, f01=0x0190, f02=» P BYTE I:CHR,I:CHR P BYTE I:CHR,I:CHR " P BYTE I:CHR,I:CHR < P BYTE I:CHR,I:CHR V P BYTE I:CHR,I:CHR p P BYTE I:DLE,I:CHR P BYTE I:CHR,I:CHR P IFT CODE=0 P BYTE I:CHR,I:NAK P BYTE I:SYN,I:ETB P X
0x185e54…185fe8 Dummy {f00=0x0079, f01=0x0190, f02=»R P BYTE I:CHR,I:GS P BYTE I:CHR,I:ITB " P IFT CODE=1 < P BYTE I:CHR,I:CHR P P BYTE I:CHR,I:CHR j P BYTE I:CHR,I:CHR P BYTE I:ETB,I:CHR P BYTE I:CHR,I:CHR P BYTE I:CHR,I:CHR P BYTE I:CHR,I:ENQ P B
0x185fe8…18617c Dummy {f00=0x0079, f01=0x0190, f02=»CHR,I:CHR P BYTE I:CHR,I:CHR P BYTE I:CHR,I:NAK , P XIF F P EJECT T P* b " P* ADDRESSES OF SUB MODE TABLES l P* PMAIN EQU * 2 P DATA CNTSUB MAINS CONTROL MODE SUB MODE TABLE 2 P DATA RECSUB MAINS RECEIVE MODE SUB
0x18617c…186310 Dummy {f00=0x0079, f01=0x018e, f02=» PCNTSUB EQU * ! P DATA CNTINI CNTRL+INIT ! P DATA CNTWCA CNTRL+WCALL ! 8 P DATA CNTNOL CNTRL+NOLCON ! X P DATA CNTWAC CNTRL+WACK0 ! z P* ! * P* SUB MODE TABLE FOR RECEIVE MAIN MODE ! P* ! PRECSUB EQU * ! P DATA RECINI RECEIV+INIT
0x186310…1864a4 Dummy {f00=0x0079, f01=0x0190, f02=» ! t P DATA RECREC RECEIV+LRECOV " P* " * ( P* SUB MODE TABLE FOR SEND MAIN MODE " 4 P* " ` PTRMSUB EQU * " j P DATA TRMINI SEND+INIT " ~ P DATA TRMTTD SEND+WACKD " P DATA TRMWAC SEND+WACK " P EJECT " < P********************************
0x1864a4…186638 Dummy {f00=0x0079, f01=0x0190, f02=»************************* " r P* INITIAL CONTROL MODE # " P* # @ PCNTINI EQU * # J . P DATA OPEN40 REQUEST TIMEOUT & ABORT ENTRY # ^ & P DATA HLT NOT ALLOWED IN THIS MODE # & P DATA HLT NOT ALLOWED IN THIS MODE # P* # " P* CONTROL + WAIT FOR CALL
0x186638…1867cc Dummy {f00=0x0079, f01=0x018e, f02=»NTERRUPT # ~ P* $ * P* CONTROL + NO LOGICAL CONNECTION MODE $ P* $ H PCNTNOL EQU * $ R ( P DATA NCON85 REQUEST TIMEOUT & ABORT $ f P DATA HLT ILLEGAL BRANCH $ P DATA NCON70 SST INTERRUPT $ P DATA NCON SYN $ P DATA NCON60 STX $ P DATA
0x1867cc…186960 Dummy {f00=0x0079, f01=0x0190, f02=» P DATA NCON40 ENQ % P DATA NCON60 GS % P DATA NCON60 DATA CHARACTER % 4 P EJECT % X P* % f P* CONTROL + WAIT FOR ACK 0 % p P* % PCNTWAC EQU * % P DATA CON240 ABORT % " P DATA CON220 PROCEDURE TIMEOUT % P DATA CON230 SST INTERRU
0x186960…186af4 (1, 294) Dummy {f00=0x0079, f01=0x018e, f02=»CON190 EOT % P DATA CON110 DLE & P DATA CON170 NAK & * P DATA CON160 ENQ & B P DATA CON210 GS & Z P DATA CON210 DATA CHARACTER & r P EJECT & < P******************************************************* & P* & 2 P* BRANCH TABLES FOR A DLS
0x186af4…186c88 Dummy {f00=0x0079, f01=0x0190, f02=» & x P* ' PRECINI EQU * ' ( P DATA REC100 REQUEST TIMEOUT & ABORT ' & * P DATA WACK00 PROCEDURE TIMEOUT (WACK) ' R P DATA REC095 SST INTERRUPT ' P* ' P* RECEIVE + WACK DELAY MODE ' P* ' PRECWAC EQU * ' ( P DATA WACK80 REQUEST TIMEO
0x186c88…186e1c Dummy {f00=0x0079, f01=0x0190, f02=»TX ' P DATA WACK60 ITB ( P DATA WACK60 ETB ( " P DATA WACK60 ETX ( : P DATA WACK25 EOT ( R P DATA WACK15 DLE ( j P DATA WACK60 NAK ( P DATA WACK45 ENQ ( P DATA WACK60 GS ( P DATA WACK60 DATA CHARACTER ( P EJECT ( P* ( P*
0x186e1c…186fb0 Dummy {f00=0x0079, f01=0x018e, f02=»MSV2) ( p P DATA REC140 SST INTERRUPT ) P DATA REC105 SYN ) 0 P DATA REC160 STX ) H P DATA REC150 ITB ) ` P DATA REC150 ETB ) x P DATA REC150 ETX ) P DATA REC130 EOT ) P DATA REC155 DLE ) P DATA REC150 NAK ) P DATA REC110 ENQ ) P
0x186fb0…187144 Dummy {f00=0x0079, f01=0x0190, f02=» ( P DATA REC280 REQUEST TIMEOUT & ABORT * * P DATA REC300 PROCEDURE TIMEOUT (MSV2) * 0 P DATA REC290 SST INTERRUPT * ^ P DATA REC195 SYN * P DATA REC250 STX * P DATA REC230 ITB * P DATA REC270 ETB * P DATA REC270 ETX * P DATA REC250 EOT
0x187144…1872d8 Dummy {f00=0x0079, f01=0x0190, f02=» P EJECT + P* =5 + P* + " P* TRANSPARENT RECEIVE MODE + , P* + N PRECTRP EQU * + X P IFT CODE=1 =5 + l ( P DATA REC490 REQUEST TIMEOUT & ABORT + * P DATA REC500 PROCEDURE TIMEOUT (MSV2) + P DATA REC480 SST INTERRUPT + P DATA RE
0x1872d8…18746c Dummy {f00=0x0079, f01=0x0190, f02=» DATA REC400 DLE + P DATA REC425 NAK , P DATA REC420 ENQ , 0 P DATA REC425 GS , H P DATA REC425 DATA CHARACTER , ` P XIF , P* , " P* RECEIVE + LINK RECOVERY MODE , P* , PRECREC EQU * , ( P DATA NAK090 REQUEST TIMEOUT & ABORT , *
0x18746c…187600 Dummy {f00=0x0079, f01=0x0190, f02=»*************** , h P* - 0 P* BRANCH TABLES FOR A DLS IN SEND MAIN MODE - " P* - V < P******************************************************* - ` P* - P* INITIAL SEND MODE - P* - PTRMINI EQU * - P DATA TRT210 ABORT - ( P DATA TTDD
0x187600…187794 (1, 295) Dummy {f00=0x007a, f01=0x018e, f02=» EQU * - P DATA TTD150 ABORT . " P DATA TTD100 PROCEDURE TIMEOUT . ( P DATA TTD120 SST INTERRUPT . N P DATA TTD030 SYN . p P DATA TTD090 STX . P DATA TTD090 ITB . P DATA TTD090 ETB . P DATA TTD090 ETX . P DATA TTD090 EOT . P DATA TT
0x187794…187928 Dummy {f00=0x007a, f01=0x0190, f02=» P* / ( P* SEND + WAITING FOR ACKNOWLEDGMENT / P* / : PTRMWAC EQU * / D P DATA HLT ILLEGAL BRANCH / X " P DATA TRT290 PROCEDURE TIMEOUT / x P DATA TRT340 SST INTERRUPT / P DATA TRT225 SYN / P DATA TRT330 STX / P DATA TRT330 ITB / P
0x187928…187abc Dummy {f00=0x007a, f01=0x0190, f02=» / P DATA TRT330 GS 0 P DATA TRT330 DATA CHARACTER 0 PHLT EQU * 0 D P HLT 0 V P EJECT 0 b P* 0 p P* 0 z $ P* DEVICE WORK TABLE FOR LINE 01 0 P* 0 P* 0 PDW1701 EQU * 0 P DATA DAMI01 DEVICE ADDRESS 0 2 P DATA /8000 STAT
0x187abc…187c50 Dummy {f00=0x007a, f01=0x0190, f02=»A 0 TTAB ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR 1 & P DATA 0 TASK QUEUE FOR THIS DEVICE 1 @ P IFT MMUPAG=1 1 j P DATA 0 USER ECB 1 P DATA ECBDC1 MMU ECB 1 P XIF 1 P IFT STAT=1 1 P DATA BUFF1-DW1701 1 P DATA 0 1 P DATA 0 1
0x187c50…187de4 Dummy {f00=0x007a, f01=0x0190, f02=»0 TYPE OF CONNECTION (SWITCHED/LEASED) 1 2 P DATA 0 TRANSMISSION MODE (TRANSP/NON TRANSP) 2 . P DATA 0 ABORT INDICATOR 2 d " P DATA 0 INPUT ACTIVE INDICATOR 2 $ P DATA 0 OUTPUT ACTIVE INDICATOR 2 $ P DATA 0 PROCEDURE TIMER POINTER 2 " P DATA 0 REQUES
0x187de4…187f78 Dummy {f00=0x007a, f01=0x018e, f02=»ER POINTER 2 t P DATA 0 ENQ COUNTER 3 P DATA 0 WACK COUNTER 3 . " P DATA 0 RETRANSMISSION COUNTER 3 J P DATA 0 LAST RESPONSE 3 p P DATA 0 ACK COUNTER 3 P DATA 0 DLE INDICATOR 3 ( P DATA 0 SPACE COMPRESSION WORK AREA 3 P IFT CPU852=0 3 (
0x187f78…18810c Dummy {f00=0x007a, f01=0x0190, f02=» 3 P RES 12 A5 STACK 4 P IFT ITBTRM=1 =10 4 * P DATA 0 CHARACTER COUNTER FOR ITB =10 4 : P XIF =10 4 h P IFT MMUPAG=1 4 z PECBDC1 EQU * 4 P DATA 0 4 P DATA DCBUF1 4 P DATA 0,0,0,0,0 4 PDCBUF1 RES TBUFL+1 4 P XIF 4 P**
0x18810c…1882a0 Dummy {f00=0x007a, f01=0x0190, f02=»G 4 PLOGEND EQU *-DW1701-4 5 PSAVE2 EQU *-DW1701 5 ( P DATA 0 5 B PSAVE3 EQU *-DW1701 5 R P DATA 0 5 l P XIF 5 | P IFT STAT=1 5 & PBUFF1 DATA 0 RESERVED FOR ADDRESS 5 P DATA 0 COUNTER STATUS 5 P DATA /1C NBR OF COUNTERS 5 P R
0x1882a0…188434 (1, 296) Dummy {f00=0x007a, f01=0x0190, f02=» 5 p P* 6 P* 6 PDW1702 EQU * 6 P DATA DAMI02 DEVICE ADDRESS 6 0 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY 6 T P DATA 0 ECB ADDRESS 6 P DATA 0 ORDER 6 ( P DATA DRMAD POINTER TO ADDRESS BLOCK 6 P DATA 0 TTAB ADDRESS 6 $ P DAT
0x188434…1885c8 Dummy {f00=0x007a, f01=0x0190, f02=» MMU ECB 6 P XIF 7 P IFF NLINE=1 7 P IFT STAT=0 7 4 P DATA BUFF2-DW1702 7 H P DATA 0 7 b P DATA 0 7 r P DATA /4C32 7 P DATA 0 7 P XIF 7 P IFF NLINE=1 7 & P DATA 0 APPLICATION TIMEOUT VALUE 7 P DATA 0 DLS OPERATING MO
0x1885c8…18875c Dummy {f00=0x007a, f01=0x0190, f02=»TOR 7 | " P DATA 0 INPUT ACTIVE INDICATOR 8 $ P DATA 0 OUTPUT ACTIVE INDICATOR 8 2 $ P DATA 0 PROCEDURE TIMER POINTER 8 Z " P DATA 0 REQUEST TIMER POINTER 8 ( P DATA 0 MODEM TRANSMIT TIMER POINTER 8 $ P DATA 0 IDLE ACT. TIMER POINTER 8 * P DATA 0 MODE
0x18875c…1888f0 Dummy {f00=0x007a, f01=0x0190, f02=»LAST RESPONSE 8 P DATA 0 ACK COUNTER 9 P DATA 0 DLE INDICATOR 9 2 ( P DATA 0 SPACE COMPRESSION WORK AREA 9 P P IFT CPU852=0 9 | ( P RES 8 SAVE AREA FOR REGISTERS A1-A8 9 P XIF 9 P IFF NLINE=1 9 P IFT CPU852=1 9 . P RES 5 SAVE AREA FOR
0x1888f0…188a84 Dummy {f00=0x007a, f01=0x018e, f02=»R FOR ITB =10 9 x P XIF =10 : P IFF NLINE=1 =10 : ( P IFT MMUPAG=1 : B PECBDC2 EQU * : X P DATA 0 : l P DATA DCBUF2 : | P DATA 0,0,0,0,0 : PDCBUF2 RES TBUFL+1 : P XIF : P IFF NLINE=1 : P**LOGG : P IFF LOGG=0 : P
0x188a84…188c18 Dummy {f00=0x007a, f01=0x0190, f02=» : & PBUFF2 DATA 0 RESERVED FOR ADDRESS ; P DATA 0 COUNTER STATUS ; 2 P DATA /1C NBR OF COUNTERS ; P P RES /1C COUNTER AREA ; r P XIF ; P* ; P IFF NLINE=1 ; P IFF NLINE=2 ; P EJECT ; P* ; P* ; $ P* DEVICE WORK TABLE FOR
0x188c18…188dac Dummy {f00=0x007a, f01=0x0190, f02=»Y ; d P DATA 0 ECB ADDRESS < P DATA 0 ORDER < & ( P DATA DRMAD POINTER TO ADDRESS BLOCK < < P DATA 0 TTAB ADDRESS < h $ P DATA 0 WAIT/ACTIVATE INDICATOR < & P DATA 0 TASK QUEUE FOR THIS DEVICE < P IFT MMUPAG=1 < P DATA 0 USER ECB < P DAT
0x188dac…188f40 Dummy {f00=0x007a, f01=0x018e, f02=»0 < P DATA 0 = P DATA /4C33 = P DATA 0 = . P XIF = > P IFF NLINE=1 = J P IFF NLINE=2 = ^ & P DATA 0 APPLICATION TIMEOUT VALUE = r P DATA 0 DLS OPERATING MODE = 0 P DATA 0 TYPE OF CONNECTION (SWITCHED/LEASED) = 2 P DATA 0 TRANSMISSION M
0x188f40…1890d4 (1, 297) Dummy {f00=0x007a, f01=0x0190, f02=» = n $ P DATA 0 PROCEDURE TIMER POINTER > " P DATA 0 REQUEST TIMER POINTER > 0 ( P DATA 0 MODEM TRANSMIT TIMER POINTER > V $ P DATA 0 IDLE ACT. TIMER POINTER > * P DATA 0 MODEM CONNECTION TIMER POINTER > P DATA 0 ENQ COUNTER > P DATA 0 WACK COUNTER
0x1890d4…189268 Dummy {f00=0x007a, f01=0x0190, f02=»ATA 0 SPACE COMPRESSION WORK AREA > P IFT CPU852=0 ? * ( P RES 8 SAVE AREA FOR REGISTERS A1-A8 ? @ P XIF ? l P IFF NLINE=1 ? x P IFF NLINE=2 ? P IFT CPU852=1 ? . P RES 5 SAVE AREA FOR REGISTERS A3-A5,A7,A8 ? P XIF ? P IFF NLINE=1 ? P
0x189268…1893fc Dummy {f00=0x007a, f01=0x0190, f02=»0,0 ? PDCBUF3 RES TBUFL+1 @ P XIF @ & P IFF NLINE=1 @ 2 P IFF NLINE=2 @ J P**LOGG @ b P IFF LOGG=0 @ p P DATA LGST03 @ PLGST03 EQU * @ P RES LOGG @ P DATA 0 @ P DATA 0 @ P XIF @ P IFF NLINE=1 @ P IFF NLINE
0x1893fc…189590 Dummy {f00=0x007a, f01=0x0190, f02=» RES /1C COUNTER AREA @ P XIF A P* A * P IFF NLINE=1 A 4 P IFF NLINE=2 A H P IFF NLINE=3 A P EJECT A p P* A ~ P IFT ITBTRM=1 =10 A * P DATA 0 CHARACTER COUNTER FOR ITB =10 A P XIF =10 A P IFF NLINE=1 =10 A P IFF NLINE=2
0x189590…189724 Dummy {f00=0x007a, f01=0x0190, f02=» 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY B P DATA 0 ECB ADDRESS B : P DATA 0 ORDER B V ( P DATA DRMAD POINTER TO ADDRESS BLOCK B l P DATA 0 TTAB ADDRESS B $ P DATA 0 WAIT/ACTIVATE INDICATOR B & P DATA 0 TASK QUEUE FOR THIS DEVICE B P I
0x189724…1898b8 Dummy {f00=0x007a, f01=0x0190, f02=» B P IFT STAT=1 C P DATA BUFF4-DW1704 C P DATA 0 C : P DATA 0 C J P DATA /4C34 C Z P DATA 0 C n P XIF C ~ P IFF NLINE=1 C P IFF NLINE=2 C P IFF NLINE=3 C & P DATA 0 APPLICATION TIMEOUT VALUE C P DATA 0 DLS OPERATING MO
0x1898b8…189a4c Dummy {f00=0x007a, f01=0x0190, f02=»TOR C | " P DATA 0 INPUT ACTIVE INDICATOR D $ P DATA 0 OUTPUT ACTIVE INDICATOR D 2 $ P DATA 0 PROCEDURE TIMER POINTER D Z " P DATA 0 REQUEST TIMER POINTER D ( P DATA 0 MODEM TRANSMIT TIMER POINTER D $ P DATA 0 IDLE ACT. TIMER POINTER D * P DATA 0 MODE
0x189a4c…189be0 Dummy {f00=0x007a, f01=0x018e, f02=»LAST RESPONSE D P DATA 0 ACK COUNTER E P DATA 0 DLE INDICATOR E 2 ( P DATA 0 SPACE COMPRESSION WORK AREA E P P IFT CPU852=0 E | ( P RES 8 SAVE AREA FOR REGISTERS A1-A8 E P XIF E P IFF NLINE=1 E P IFF NLINE=2 E P IFF NLINE=3 E P I
0x189be0…189d74 (1, 298) Dummy {f00=0x007a, f01=0x0190, f02=» E P RES 12 A5 STACK F P IFT ITBTRM=1 =10 F * P DATA 0 CHARACTER COUNTER FOR ITB =10 F : P XIF =10 F h P IFF NLINE=1 =10 F z P IFF NLINE=2 =10 F P IFF NLINE=3 =10 F P IFT MMUPAG=1 F PECBDC4 EQU * F P DATA 0 F P DATA
0x189d74…189f08 Dummy {f00=0x007a, f01=0x0190, f02=» F P**LOGG G P IFF LOGG=0 G P DATA LGST04 G . PLGST04 EQU * G B P RES LOGG G V P DATA 0 G h P DATA 0 G x P XIF G P IFF NLINE=1 G P IFF NLINE=2 G P IFF NLINE=3 G P IFT STAT=1 G & PBUFF4 DATA 0 RESERVED FOR ADDRESS G
0x189f08…18a09c Dummy {f00=0x007a, f01=0x0190, f02=»* G P* H P* DUMMY DWT H P* H ( P* H 2 P IFF NLINE=4 H < PDW1704 EQU * H P P IFF NLINE=3 H d PDW1703 EQU * H x P IFF NLINE=2 H PDW1702 EQU * H P XIF H P DATA 0 DUMMY DWT H P DATA 0 STATUS BUSY H P EJECT H P* H
0x18a09c…18a230 Dummy {f00=0x007a, f01=0x018e, f02=»UT CHARACTER MARKED /00 H P* INPUT STATUS MARKED /1F I " P* OUTPUT STATUS MARKED /0F - I D P* I j P IFF LOGG=0 I t PLOGSUT EQU * I P ST A2,SAVE2,A6 I P ORKL A2,/0F00 I P RF LOG10 I PLOGSST ST A2,SAVE2,A6 I P ORKL A2,/1F00
0x18a230…18a3c4 Dummy {f00=0x007a, f01=0x0190, f02=» I P ST A2,SAVE2,A6 J P ORKL A2,/1100 J PLOG10 ST A3,SAVE3,A6 J 6 P LD A3,LOGPNT,A6 J R P STR A2,A3 J j P ADK A3,2 J | P SUR A3,A6 J P CWK A3,LOGEND J P RF(L) LOGEXI J P LDKL A3,LOGSTA J PLOGEXI EQU * J P ADR A3,A6 J
0x18a3c4…18a558 Dummy {f00=0x007a, f01=0x4008, f02=»@ K ST A2,SAVE2,A6 J P ORKL A2,/1100 J PLOG10 ST A3,SAVE3,A6 J 6 P LD A3,LOGPNT,A6 J R P STR A2,A3 J j P ADK A3,2 J | P SUR A3,A6 J P CWK A3,LOGEND J P RF(L) LOGEXI J P LDKL A3,LOGSTA J PLOGEXI EQU * J P ADR A3,A6 J
0x18a558…18a6ec Dummy {f00=0x007a, f01=0x2008, f02=» L 0 8 @ x @
0x18a6ec…18a880 Dummy {f00=0x007a, f01=0x0190, f02=» P ST A1,CRCSAV P ST A2,CRCSAV+2 P ST A3,CRCSAV+4 2 P LDK A1,8 J PCRC100 LDR A3,A7 P SRL A7,1 t P XRR A3,A2 P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 P XRKL A7,/A001 PCRC110 SUK A1,1 P RB(NZ)
0x18a880…18aa14 (1, 299) Opaque[0x194]
0x18aa14…18aba8 # DirEnt {nam=»DRDC22«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f60, f03=0x0000}
0x18aa14…18aba8 IdxSect {
0x18aa14…18aba8 f00 = 0x007b // 0x18aa14 @0x0
0x18aa14…18aba8 f01 = 0x003e // 0x18aa16 @0x2
0x18aa14…18aba8 gno = [ // 0x18aa18 @0x4
0x18aa14…18aba8 [0x00]: C0x007b.0x0.0
0x18aa14…18aba8 [0x01]: C0x007b.0x1.0
0x18aa14…18aba8 [0x02]: C0x007b.0x2.0
0x18aa14…18aba8 [0x03]: C0x007b.0x3.0
0x18aa14…18aba8 [0x04]: C0x007c.0x0.0
0x18aa14…18aba8 [0x05]: C0x007c.0x1.0
0x18aa14…18aba8 [0x06]: C0x007c.0x2.0
0x18aa14…18aba8 [0x07]: C0x007c.0x3.0
0x18aa14…18aba8 [0x08]: C0x007d.0x0.0
0x18aa14…18aba8 [0x09]: C0x007d.0x1.0
0x18aa14…18aba8 [0x0a]: C0x007d.0x2.0
0x18aa14…18aba8 [0x0b]: C0x007d.0x3.0
0x18aa14…18aba8 [0x0c]: C0x007e.0x0.0
0x18aa14…18aba8 [0x0d]: C0x007e.0x1.0
0x18aa14…18aba8 [0x0e]: C0x007e.0x2.0
0x18aa14…18aba8 [0x0f]: C0x007e.0x3.0
0x18aa14…18aba8 [0x10]: C0x007f.0x0.0
0x18aa14…18aba8 [0x11]: C0x007f.0x1.0
0x18aa14…18aba8 [0x12]: C0x007f.0x2.0
0x18aa14…18aba8 [0x13]: C0x007f.0x3.0
0x18aa14…18aba8 [0x14]: C0x0080.0x0.0
0x18aa14…18aba8 [0x15]: C0x0080.0x1.0
0x18aa14…18aba8 [0x16]: C0x0080.0x2.0
0x18aa14…18aba8 [0x17]: C0x0080.0x3.0
0x18aa14…18aba8 [0x18]: C0x0081.0x0.0
0x18aa14…18aba8 [0x19]: C0x0081.0x1.0
0x18aa14…18aba8 [0x1a]: C0x0081.0x2.0
0x18aa14…18aba8 [0x1b]: C0x0081.0x3.0
0x18aa14…18aba8 [0x1c]: C0x0082.0x0.0
0x18aa14…18aba8 [0x1d]: C0x0082.0x1.0
0x18aa14…18aba8 [0x1e]: C0x0082.0x2.0
0x18aa14…18aba8 ]
0x18aa14…18aba8 }
0x18aba8…18ad3c Dummy {f00=0x007b, f01=0x018e, f02=» 0 P IDENT DRDC22 REL 11.0 81-01-26 870105041100 P 8 2 P********************************************* @ P* v $ P* PHILIPS TERMINAL SYSTEM PTS P* P* 2 P* DRDC22 : UNISCOPE 100 SYNCHRONOUS PROTOCOL P* ON PT
0x18ad3c…18aed0 Dummy {f00=0x007b, f01=0x0190, f02=» P* ENTRY POINTS P* P* ( 2 P ENTRY DC22AD ADDRESS BLOCK TERMINAL REQUESTS 2 " P ENTRY IH2201 INPUT INTERRUPT h " P ENTRY IH2202 OUTPUT INTERRUPT " P ENTRY DC22ON POWER ON ROUTINE P* P* P* EXTERNAL REFERENCES
0x18aed0…18b064 Dummy {f00=0x007b, f01=0x0190, f02=»NT r P EXTRN SETIME SET TIMER " P EXTRN DWTCHP TERMINAL ADDRESS * P EXTRN DWTST DWT STATUS P P EXTRN DWTOR DWT ORDER p P EXTRN DWTECB DWT ECB * P EXTRN DC:MIN MOVE DATA TO USER BUFFER , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER 0
0x18b064…18b1f8 Dummy {f00=0x007b, f01=0x018e, f02=» j . P EXTRN DCSRED READ STATISTICS ENTRY POINT : P EXTRN DCSRLL RESET ALL STATISTICS BUFFERS ENTRY POINT : : P EXTRN DCSUPS UPDATE STATISTICS ENTRY POINT IN DCSTAT x 8 P EXTRN GETDNA VALIDATE AND CONVERT SYMBOLIC DTE ADDR 8 P EXTRN GETSNA VALIDATE
0x18b1f8…18b38c Dummy {f00=0x007b, f01=0x0190, f02=» P* REGISTER USAGE: P* " P* A1 WORK (RETURN CODE) , P* A2 WORK L P* A3 WORK (BUFFER LENGTH) ^ P* A4 WORK (BUFFER POINTER) P* A5 DRIVER STACK POINTER P* A6 DWT ADDRESS $ P* A7 ORDER CODE, DTETAB ADDRESS P* A8
0x18b38c…18b520 Dummy {f00=0x007b, f01=0x0190, f02=»**************************************************** P* < P* CONDITIONAL ASSEMBLY F P* d D P*************************************************************** n P* * P* A PROGRAM VERSION USING TOSS PAGING * P* IS OBTAINED BY SETTI
0x18b520…18b6b4 (1, 300) Dummy {f00=0x007b, f01=0x0190, f02=»NED BY SETTING CPU852 EQU 0 P* $ PCPU852 EQU 0 . P* B P* L P* RECEIVE BUFFER LENGTH V P* v & PX:A EQU 128 RECEIVE BUFFER LENGTH PRBUFL EQU X:A P* P* P* NUMBER OF RECEIVE BUFFERS P* PX:B EQ
0x18b6b4…18b848 Dummy {f00=0x007b, f01=0x0190, f02=» P* PX:C EQU 0 PLOGG EQU X:C P* 4 ( P* POLL TIMEOUT VALUE IN NO OF 100 MS > P* j PX:D EQU 600 t PTIMPOL EQU X:D POLL TIME-OUT P* P* SUPPRESS NULL CHARACTERS P* 0 = NO SUPPRESS P* 1 = SUPPRESS P
0x18b848…18b9dc Dummy {f00=0x007b, f01=0x0190, f02=»E 6857/SALCUZ P* PX:F EQU 0 PSALCUZ EQU X:F 4 P* J P* INPUT DEVICE ADDRESS T P* r P IFT SALCUZ=0 | PX:G EQU /02 INPUT DEV ADDR PDCDEVI EQU X:G INPUT ADDR & PDCDEVO EQU DCDEVI+/10 OUTPUT ADDR P XIF
0x18b9dc…18bb70 Dummy {f00=0x007b, f01=0x018e, f02=» p P XIF P* AUXILIARY DEVICE HANDLING P* 0 = NO AUXILIARY < P* 1 = AUXILIARY V P* n PX:H EQU 0 x * PAUX EQU X:H AUXILIARY DEVICE HANDLING P* P* UNISCOPE 100/200 EMULATION P* 0 = NO EMULATION P* 1 = EM
0x18bb70…18bd04 Dummy {f00=0x007b, f01=0x0190, f02=» P* PX:J EQU 0 STATISTICS PSTAT EQU X:J * P* > P* MMU BUFFER LENGTH H P* d PX:K EQU 1000 n $ PTBUFL EQU X:K MMU BUFFER LENGTH P* P EJECT P* P* BUFFER SUPERVISION TIMER P* PBUFTIM EQU 0
0x18bd04…18be98 Dummy {f00=0x007b, f01=0x0190, f02=»ON f PBUFLEN EQU TBUFL+TBUFL P* ( P* 2 * P* INTERNAL SPECIAL CONDITIONAL PARAMS < P* j & PBFBUSY EQU 0 BUFFER BUSY HANDLING t P =0 STANDARD =1 AUX-TYPE $ PSBS EQU 0 SPARBANKEN STOCKHOLM " P =0 NO SBS CODE =1 SBS CODE
0x18be98…18c02c Dummy {f00=0x007b, f01=0x0190, f02=»WHEN SBS = 1 ~ P* . P* - ONLY SID 50 AND 51 ACCEPTED $ P* V P* - RECEIVE TEXT: d @ P* THE 7TH CHAR AFTER STX ID USED AS TERMINAL ID P* " P* - TRANSMIT TEXT: " P*
0x18c02c…18c1c0 Dummy {f00=0x007b, f01=0x0190, f02=»ITUATIONS t P* @ P*********************************************************** " P XIF f P EJECT v N P************************************************************************** N P**************************************************
0x18c1c0…18c354 (1, 301) Dummy {f00=0x007b, f01=0x0190, f02=» P** ** P** ** P** ** ( P** ** 8 P** ** H P** ** X P** ** h P** ** x F P** D R D C 2 2 - U N I S C O P E 1 0 0 / 2 0 0 D R I V E R ** P** ** P** ** : P** D A T A D E F I N
0x18c354…18c4e8 Dummy {f00=0x007b, f01=0x0190, f02=»** ** P** ** P** ** P** ** 0 P** ** @ P** ** P P** ** ` N P************************************************************************** p N P**********************************************************************
0x18c4e8…18c67c Dummy {f00=0x007b, f01=0x0190, f02=»S d * * &************************************** B , '*************************************** L * | * TABLE AND PACKET LAYOUTS * , '*************************************** * * ECB, E
0x18c67c…18c810 Dummy {f00=0x007b, f01=0x0190, f02=»BYTES p * PECBEL EQU 6 EFFECTIVE LENGTH IN BYTES PECBRC EQU 8 RETURN CODE < PECBCW EQU 10 CONTROL WORD $ ECBCW1 EQU ECBCW CONTROL WORD 1 ~ ECBCW2 EQU 12 CONTROL WORD 2 * * EJECT *
0x18c810…18c9a4 Dummy {f00=0x007b, f01=0x0190, f02=»........... P* 2 . DWTST . P* ................... 6 P* 4 . DWTECB . X P* ................... z P* 6 . DWTOPT . DWTOR . P* ................... P* 8 . DWTADR . P*
0x18c9a4…18cb38 Dummy {f00=0x007b, f01=0x0190, f02=»................... P* 14 . DWTTQ . P* ................... > , P* (16). DWTUEC . IF MMUPAG ` P* ................... , P* (18). DWTMEC . IF MMUPAG P* ................... $ P* DW
0x18cb38…18cccc Dummy {f00=0x007b, f01=0x0190, f02=» v P* +6 . DWTCHN . P* ................... * P* +8 . DWTLAD . L P* ................... n P* +10 . DWTRAD . P* ................... P* +12 . DWTDR1/SUB . P* ............
0x18cccc…18ce60 Dummy {f00=0x007b, f01=0x0190, f02=»....... ~ P* +18 . DWTRTP . P* ................... 2 P* +20 . DWTOPE . T P* ................... v P* +22 . DWTOPN . P* ................... P* +24 . DWTIPC . P* ....
0x18ce60…18cff4 (1, 302) Dummy {f00=0x007b, f01=0x0190, f02=»RIVER DEPEND / P* / / P* / / : P* ................... 8 P* . STATISTIC . IF STAT AND DWTSTB /=0 ~ P* / BUFFER / P* ................... P* P
0x18cff4…18d188 Dummy {f00=0x007b, f01=0x0190, f02=»EPENDENT AREA p P XIF P IFT MMUPAG=1 " 2 PDWTDRD EQU DWTMEC+2 START OF DC DEPENDENT AREA 8 P XIF n D PDWTSTB EQU DWTDRD OFFSET REL START DWT TO STATISTIC BUFF IF ANY z 2 PDWTCHD EQU DWTDRD+2 CONFIG CHAIN LINK HEAD DWT 2 PDWTCHN EQU DWTDR
0x18d188…18d31c Dummy {f00=0x007b, f01=0x0190, f02=»ESS d * PDWTDR1 EQU DWTDRD+10 DRIVER DEP WORD 1 * PDWTSUB EQU DWTDR1 SYMBOLIC SUBADDRESS : . PDWTRCL EQU DWTDRD+12 REQUEST CONTROL WORD h , PDWTRTV EQU DWTDRD+14 REQUEST TIMER VALUE . PDWTRTP EQU DWTDRD+16 REQUEST TIMER POINTER B PDWTOPE EQU D
0x18d31c…18d4b0 Dummy {f00=0x007b, f01=0x0190, f02=»22 I/P DATA Q LINK TO BUFFER ~ 0 PDWTIPT EQU DWTDRD+24 I/P DATA TIMER POINTER $ : PDWTDID EQU DWTDRD+26 LAST AI DEVICE FOR THIS TERMINAL X . PDWTPRT EQU DWTDRD+28 PRINT MODE INDICATOR ( PDWTLST EQU DWTDRD+30 DEVICE LIST (8) $ PDWTSTA EQU DWTDRD+46
0x18d4b0…18d644 Dummy {f00=0x007b, f01=0x018e, f02=». DTECHP . P* ................... P* 2 . DTEST . > P* ................... ` P* 4 . DTEECB . P* ................... P* 6 . DTEOPT . DTEOR . P* ...................
0x18d644…18d7d8 Dummy {f00=0x007b, f01=0x0190, f02=» P* 12 . DTEWAT . P* ................... & P* 14 . DTETQ . H P* ................... j , P* (16). DTEUEC . IF MMUPAG P* ................... , P* (18). DTEMEC . IF MMUPAG
0x18d7d8…18d96c Dummy {f00=0x007b, f01=0x0190, f02=» . P* ................... P* +6 . DTECHN . 4 P* ................... V P* +8 . DTELAD . x P* ................... P* +10 . . P* / DRIVER DEPEND / P* /
0x18d96c…18db00 Dummy {f00=0x007b, f01=0x0190, f02=»DTESTB /=0 f P* / BUFFER / P* ................... 4 P* V PDTECHP EQU 0 DTE ADDRESS ` PDTETQ EQU 14 PDTEUEC EQU DTETQ+2 PDTEMEC EQU DTEUEC+2 P P IFT MMUPAG=0 2 PDTEDRD EQU DTETQ+2 START OF DC D
0x18db00…18dc94 (1, 303) Dummy {f00=0x007c, f01=0x0190, f02=»DRD 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 p 2 PDTELAD EQU DTEDRD+6 LOCAL SYMBOLIC DTE ADDRESS P* DRIVER DEPENDENT , PDTEPLS EQU DTEDRD+
0x18dc94…18de28 Dummy {f00=0x007c, f01=0x0190, f02=» WRITE REQUEST QUEUE | P* STATITICS BUFFER 2 PSTWSID EQU DTEDRD+18 RESERVED FOR SYMBOLIC ID 6 . PSTWCST EQU DTEDRD+20 COUNTER STATUS INDEX l * PSTWMIX EQU DTEDRD+26 MAX COUNTER INDEX " PSTWCTA EQU DTEDRD+28 COUNTERS P EJECT P* ,
0x18de28…18dfbc Dummy {f00=0x007c, f01=0x0190, f02=»LISHED p 4 PCSRCBY EQU /02 CONNECTION NOT ESTABLISHED - BUSY $ PCSRMSR EQU /03 MESSAGES RECEIVED F & PCSRCHR EQU /C5 CHARACTERS RECEIVED n ( PCSRMST EQU /06 MESSAGES TRANSMITTED * PCSRCHT EQU /C8 CHARACTERS TRANSMITTED PCSRTOP EQU /09 TIMEOUT
0x18dfbc…18e150 Dummy {f00=0x007c, f01=0x0190, f02=»NDENT t P* ! P* LINK LEVEL COUNTERS ! P ! 6 . PCSSRBL EQU /10 SYNCH DATA BLOCKS RECEIVED ! @ : PCSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY ! r > PCSSRBO EQU /12 " DATA BLOCKS REJECTED BUFFER OVERFLOW ! 6 PCSSRAB EQU /13 " D
0x18e150…18e2e4 Dummy {f00=0x007c, f01=0x0190, f02=»MITTED ! j 2 PCSSTRT EQU /16 " DATA BLOCKS RETRANSMITTED " , PCSSTAB EQU /17 " DATA BLOCKS ABORTED " D 4 PCSSXC1 EQU /18 NBR OF REPLY REQUESTS TRANSMITTED " t < PCSSXC2 EQU /19 NBR OF DATA BLOCKS WITH INCORRECT HEADER " 8 PCSSXC3 EQU /1A NBR OF TIMES
0x18e2e4…18e478 Dummy {f00=0x007c, f01=0x0190, f02=»CDIT EQU /29 I/P THROUGHPUT ERROR " ( PCSCDOT EQU /2A O/P THROUGHPUT ERROR # * $ PCSCDCE EQU /2B DCE NOT OPERABLE # V * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT # ~ PCSCXC2 EQU /2D " # PCSCXC3 EQU /2E " # P EJECT # P* # P* # P*
0x18e478…18e60c Dummy {f00=0x007c, f01=0x0190, f02=»NPAS EQU /27 CONNECT PASSIVE # PDISCO EQU /2F DISCONNECT $ $ PRECEIVE EQU /02 RECEIVE $ D PSEND EQU /06 SEND $ d PRSTAT EQU /00 READ STATUS $ ~ PSSTAT EQU /38 SET STATUS $ ( PSTATIS EQU /2D READ/RESET STATISTICS $ $ PSTIMOT EQU /39 SET TIMEOUT V
0x18e60c…18e7a0 Dummy {f00=0x007c, f01=0x0190, f02=» $ v P* % " PRCREQ EQU /8000 REQUEST ERROR % $ PRCABRT EQU /4000 REQUEST ABORTED % 8 " PRCBELL EQU /0400 BELL MESSAGE % ` PRCTIME EQU /0040 TIMEOUT % " PRCSEQ EQU /0010 SEQUENCE ERROR % $ PRCLGTH EQU /0008 ILLEGAL LENGTH % . PRCLOGC EQU /0002 LOG
0x18e7a0…18e934 (1, 304) Dummy {f00=0x007c, f01=0x0190, f02=»************************************************** % P* & : P* LINE CONTROL CHAR EQU:S & D P* & h > P********************************************************** & v P* & PSYN EQU /16 & PSOH EQU /01 & PSTX EQU /02 & PETX EQU /0
0x18e934…18eac8 Dummy {f00=0x007c, f01=0x0190, f02=»U /12 & PCHDSL EQU /72 ' P IFT SALCUZ=0 ' $ PPAD EQU /FF PAD CHAR ' < P XIF ' Z P IFT SALCUZ=1 ' j PPAD EQU /7F ' P XIF ' P* ' PBIT0 EQU /8000 STATUS AI ' PNBIT0 EQU /7FFF STATUS AI ' P EJECT ' B P********
0x18eac8…18ec5c Dummy {f00=0x007c, f01=0x0190, f02=»********************************************************* ' P* ( B P IFT SALCUZ=1 ( L $ PCBBREK EQU /80 CIO START BREAK ( b " PCBECHO EQU /10 ECHO ( , PCBNPAR EQU /0 NO CHAR PARITY ( . PCBEPAR EQU /4 EVEN CHAR PARITY
0x18ec5c…18edf0 Dummy {f00=0x007c, f01=0x0190, f02=»CIO DISCONNECT MODEM FROM LINE ( P XIF ) ( P IFF SALCUZ=1 ) 8 PCBCARR EQU /100 CARRIER ON ) N P XIF ) r P* ) P* ) P IFT SALCUZ=1 ) , PPARITY EQU CBOPAR ODD PARITY FOR ASCII ) P XIF ) P EJECT ) 8 P**************
0x18edf0…18ef84 Dummy {f00=0x007c, f01=0x0190, f02=»************************* ) v P* * " 0 PSBNOOP EQU /1 SST STATUS MODEM NOT OPERABLE * , 0 PSBTHRU EQU /02 THROUGHPUT ERROR * ` P IFT SALCUZ=1 * 0 PSBPARI EQU /04 CHAR PARITY ERROR * P XIF * * PSBCARR EQU /20
0x18ef84…18f118 Dummy {f00=0x007c, f01=0x0190, f02=»BCARR * l P XIF + P IFF SALCUZ=1 + ( PSBERR EQU /23 SBNOOP,SBTHRU,SBCARR + 4 P XIF + ` P EJECT + l N P************************************************************************** + z N P************************************************************
0x18f118…18f2ac Dummy {f00=0x007c, f01=0x0190, f02=» ** + P** ** , P** ** , P** ** , . P** ** , > P** ** , N P** ** , ^ P** ** , n F P** D R D C 2 2 - U N I S C O P E 1 0 0 / 2 0 0 D R I V E R ** , ~ P** ** , P** ** , B P** A P P L I C A T I O N R E Q
0x18f2ac…18f440 Dummy {f00=0x007c, f01=0x0190, f02=» ** , P** ** - P** ** - P** ** - . P** ** - > P** ** - N P** ** - ^ N P************************************************************************** - n N P************************************************************************
0x18f440…18f5d4 (1, 305) Dummy {f00=0x007c, f01=0x0190, f02=» - v $ PDC22AD DATA DCACT ADDRESS BLOCK . & P DATA ABORT ABORT ROUTINE ADDRESS . 0 & P DATA DCRBUF RECEIVE BUFFER ANCHOR . Z P DATA 6 HEADER LENGTH . P* . , P RES 15 SUBROUTINE STACK FOR INTERRUPTS . PSTB RES 1 . P EJECT . J P************
0x18f5d4…18f768 Dummy {f00=0x007c, f01=0x0190, f02=» . J P* / P* / , P* REQUEST HANDLER/APPLICATION INTERFACE / P* / L P* / V J P********************************************************************** / ` J P********************************************************************** / P* / $ P*
0x18f768…18f8fc Dummy {f00=0x007c, f01=0x0190, f02=»ER / p P LDKL A7,DTETAB DTE TAB ADDR 0 P LD A8,DWTECB,A6 ECB ADDRESS 0 . & P ANK A2,/FF STRIP OFF OPTION BITS 0 R : P CF A15,LOOKUP BRANCH ON CODES, TABLE ADDRESS TO STACK 0 | 0 P DATA TREQX,RTREQ LAST ENTRY; ERROR ADDRESS 0 ( P DATA RECEIVE,RQRECE RECEI
0x18f8fc…18fa90 Dummy {f00=0x007c, f01=0x0190, f02=»ATA CONPAS,RQCON CONNECT PASSIVE REQUEST 0 ( P DATA DISCO,RQDIS DISCONNECT REQUEST 1 0 * P DATA RSTAT,RQRSTS READ STATUS REQUEST 1 ( P DATA SSTAT,RQSST SET STATUS REQUEST 1 , P DATA STIMOT,RQTIME SET REQUEST TIMEOUT 1 : PTREQX DATA STATIS,RQSTAT READ/RESE
0x18fa90…18fc24 Dummy {f00=0x007c, f01=0x0190, f02=»RT ROUTINE 1 P* 2 P************************ 2 P 2 < ( PABORT LD A1,DWTRTP,A6 TIMER POINTER 2 D " P RF(Z) AB:10 NO TIMER RUNNING 2 p P CM* DWTRTP,A6 KILL TIMER 2 P CM DWTRTP,A6 2 P 2 $ PAB:10 LD A2,DWTOR,A6 ORDER CODE 2 P ANK A2,/7
0x18fc24…18fdb8 Dummy {f00=0x007c, f01=0x0190, f02=»E DWT FROM WRITE QUEUE 2 | & P LD A2,FDWTUT WRITING DWT ADDRESS 3 P CWR A2,A6 3 H P RF(NE) AB:RTN NOT THIS DWT 3 Z P CM FDWTUT RESET SENDING DWT 3 ~ P CM XACK RESET ACK EXPECTED 3 P 3 PAB:RTN EQU * 3 * P ABL RTABRT COMPLETE WITH RC = ABORTED
0x18fdb8…18ff4c Dummy {f00=0x007c, f01=0x018e, f02=»2) 3 r P* 4 P* FUNCTIONS: 4 8 P* 1. CHECK IF ALREADY OPEN & IF SO SAME DTE-ADDRESS 4 ( & P* 2. CONVERT & VERIFY DTE ADDRESS 4 d P* 3. CONNECT MODEM 4 P* 4 P* COMPLETION PARAMETERS: 4 P* RETURN CODE (A1) 4 P* 4 PRQOPEN EQU * 4
0x18ff4c…1900e0 Dummy {f00=0x007c, f01=0x0190, f02=» & PRQOPTB DATA RQOP20 CLOSED/INACTIVE 5 " P DATA RQOP15 OPEN IN PROGRESS 5 . P DATA RQOP10 OPEN 5 T " P DATA RQOP15 CLOSE IN PROGRESS 5 n PRQOP10 EQU * 5 . P LD A2,ECBCW2,A8 GET SYMBOLIC DTE-ADDRESS 5 2 P CW A2,DTELAD,A7 SAME AS THE ONE WHO OPENED ?
0x1900e0…190274 (1, 306) Dummy {f00=0x007c, f01=0x0190, f02=»ESTA,A7 SET OPEN IN PROGRESS 5 . P LD A1,ECBCW2,A8 GET SYMBOLIC DTE ADDRESS 6 $ . P ST A1,DTELAD,A7 SAVE SYMBOLIC DTE ADDRESS 6 V . P LDKL A2,DTECHP+1 POINTER TO CHP IN DTETAB 6 & P ADR A2,A7 ADDR TO RID IN DTE TAB 6 0 P CF A15,GETDNA CONVERT AND VALIDATE
0x190274…190408 Dummy {f00=0x007c, f01=0x0190, f02=»7 SET STATUS CLOSET 6 $ P ABL RTREQ RETURN: REQUEST ERROR 7 P* 7 D PRQOP80 EQU * 7 N " P IM DTESTA,A7 SET OPEN STATUS 7 b PRQOP85 EQU * 7 0 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ERROR ? 7 P ABL(NZ) RTOK NO 7 2 P ABL RTPHYC RETURN: PHYSICAL CON
0x190408…19059c Dummy {f00=0x007c, f01=0x0190, f02=»IONAL 7 x P* /80 = CONDITIONAL 8 P* FUNCTIONS: 8 , L P* 1. IF CONDITIONAL, CHECK IF ANY LOGICAL CONNECTIONS (DWTS) ARE ACTIVE 8 @ P* ACTIVE. 8 0 P* 2. IF UNCONDITIONAL, DISCONNECT ALL DWT:S 8 P* 3. DISCONNECT MODEM 8 P* 8 P* COMP
0x19059c…190730 Dummy {f00=0x007c, f01=0x018e, f02=»Z) RQCL20 ZERO, UNCONDITIONAL CLOSE 8 " P CW A2,DTELAD,A7 CORRECT DTE ? 9 , P RF(E) RQCL30 YES 9 R $ P ABL RTREQ RETURN: REQUEST ERROR 9 l PRQCL20 EQU * 9 ( P LD A2,DTECHN,A7 ANY DWT CONNECTED ? 9 P RF(NZ) RQCL30 YES 9 & P ABL RTSEQ RETURN: SEQUENC
0x190730…1908c4 Dummy {f00=0x007c, f01=0x0190, f02=» PRQCL50 EQU * : P CWK A2,2 DTE OPENED ? : * P ABL(NE) RTSEQ RETURN: SEQUENCE ERROR : 6 * P LDR A8,A6 A8 =DWT ADDR REQUESTING DWT : d & P LD A6,DTECHN,A7 ANY DWT CONNECTED : P RF(Z) RQCL90 NO : * P LD A2,DWTOR,A6 UNCONDITIONAL CLOSE ? : ( P ABL(N
0x1908c4…190a58 Dummy {f00=0x007c, f01=0x0190, f02=»A2,DWTCHN,A6 GET NEXT DWT IN CHAIN : 4 P ST A2,DTECHN,A7 REMOVE DWT FROM CONNECTED CHAIN ; * 4 P CF A15,RELBUF RELEASE ALL BUFFERS QUEUED ON DWT ; b 0 P CM DWTSTA,A6 SET DWT STATUS = DISCONNECTED ; P CWR A8,A6 REQUESTING DWT ? ; P RF(E) RQCL80 YES ;
0x190a58…190bec Dummy {f00=0x007c, f01=0x0190, f02=»TO DISCONNECT ; r P RB(NZ) RQCL60 YES < PRQCL90 EQU * < 0 P LDK A2,3 < D 4 P ST A2,DTESTA,A7 DTE STATUS = CLOSE IN PROGRESS < V & P CM DTESTA,A7 DTE STATUS = CLOSED < $ P CM DTECHP,A7 CLEAR NETWORK ADDR < P LDR A6,A8 REQUESTING DWT < & P LD A8
0x190bec…190d80 Dummy {f00=0x007c, f01=0x0190, f02=»TIVATION PARAMETERS: < : P* - SYMBOLIC SUBADDRESS (LEFTMOST BYTE IN ECBBA-BFR) = & P* - DEVICE ADDRESSES IN ECBBA-BFR = Z " P* - LENGTH OF BUFFER (ECBRL) = & P* - SYMBOLIC DTE-ADDRESS (ECBCW2) = P* = P* FUNCTIONS: = 0 P* 1. VERIFY DTE-ADDRE
0x190d80…190f14 (1, 307) Dummy {f00=0x007d, f01=0x0190, f02=»NK CALLING DWT TO QUEUE = P* > P* COMPLETION PARAMETERS: > * P* RETURN CODE (A1) > J P* > f PRQCON EQU * > p & P LD A2,DTELAD,A7 SYMBOLIC DTE-ADDR > " P CW A2,ECBCW2,A8 CORRECT DTE ? > , P ABL(NE) RTREQ NO, RETURN: REQUEST ERROR > $ P LD
0x190f14…1910a8 Dummy {f00=0x007d, f01=0x0190, f02=»TATUS > v " P SUK A2,2 ALREADY CONNECTED ? ? . P ABL(Z) RTSEQ YES, RETURN: SEQUENCE ERROR ? 4 P IFF MMUPAG=0 ? f & P LDKL A4,MMUBUF MMU BUFFER ADDRESS ? | P ST A4,ECBBA,A8 TO ECB ? * P CF A15,DC:MOT MOVE DATA TO MMU BUFFER ? P XIF ? $ P LD A4,ECB
0x1910a8…19123c Dummy {f00=0x007d, f01=0x0190, f02=»CBCW2,A8 GET SYMBOLIC DTE ADDR ? . P ST A1,DWTLAD,A6 SAVE SYMBOLIC DTE ADDRESS @ & 0 P CF A15,GETSNA VALIDATE AND CONVERT SUB ADDR @ X & P LDR A1,A1 SET CONDITION REGISTER @ P RF(NN) RQCN20 SUB ADDR OK @ $ P CM DWTLAD,A6 CLEAR SYM DTE ADDR @ P CM DWTS
0x19123c…1913d0 Dummy {f00=0x007d, f01=0x0190, f02=» IFT AUX=1 @ " P LD A3,ECBRL,A8 BUFFER LENGTH A & P CWK A3,9 MORE THAN 9 ADDRESSES ? A 8 , P ABL(G) RTREQ YES, RETURN: REQUEST ERROR A b P SUK A3,1 ONLY SUB-ADDRESS A P RF(Z) RQCN80 YES, NO DID:S A ( P LDKL A1,DWTLST DEVICE LIST POINTER A P ADR
0x1913d0…191564 Dummy {f00=0x007d, f01=0x0190, f02=»R A n $ P CWK A2,/73 LESS THAN FIRST DID B P RF(L) RQCN40 YES B 2 & P CWK A2,/7A GREATER THAN LAST DID B L P RF(NG) RQCN50 NO B v PRQCN40 EQU * B $ P ABL RTREQ RETURN: REQUEST ERROR B PRQCN50 EQU * B ( P STR A2,A1 STORE DID IN DEVICE LIST B
0x191564…1916f8 Dummy {f00=0x007d, f01=0x0190, f02=»EXT DID B P XIF C PRQCN80 EQU * C $ P CF A15,DCLINK LINK DWT TO CHAIN C 0 P LDK A2,2 C X * P ST A2,DWTSTA,A6 SET STATUS: CONNECTED C j P ABL RTOK RETURN: OK C P EJECT C P* C P* DISCONNECT REQUEST C P* C P* ACTIVATION PARAMETER
0x1916f8…19188c Dummy {f00=0x007d, f01=0x018e, f02=»M CONFIGURATION CHAIN C v P* 3. RELEASE BUFFERS QUEUED D & P* 4. SET DWT STATUS DISCONNECTED D B P* D l P* COMPLETION PARAMETERS: D v P* RETURN CODE (A1) D P* D PRQDIS EQU * D 0 P LD A2,DWTSTA,A6 DWT STATUS = DISCONNECTED ? D P ABL
0x19188c…191a20 Dummy {f00=0x007d, f01=0x018e, f02=» 0 P CM DWTSTA,A6 SET DWT STATUS = DISCONNECTED E P ABL RTOK RETURN: OK E 8 P EJECT E T P* E b P* READ STATUS REQUEST E l P* E P* E P* ACTIVATION PARAMETERS: E P* DWT - ADDRESS (A6) E P* E P* FUNCTIONS: E < P* 1. TRANSFER
0x191a20…191bb4 (1, 308) Dummy {f00=0x007d, f01=0x0190, f02=» P* RETURN CODE (A1) F P* F . P* 0 3 4 7 8 11 12 15 F * . P* ........................................ F . P* . DWT . DTE . DATA . PHYS . F . P* . STATE . STATE . LINK . LINK . F . P* . . .
0x191bb4…191d48 Dummy {f00=0x007d, f01=0x0190, f02=» F t P SLL A2,4 BITS 0-3 G P AD A2,DTESTA,A7 DTE STATUS G " P SLL A2,4 BITS 4-7 G F & P AD A2,DTEDLS,A7 DATA LINK STATUS G ` P SLL A2,4 BITS 8-11 G 8 P AD A2,DTEPLS,A7 PHYSICAL LINK STATUS (BITS 12 - 15) G 2 P ST A2,ECBCW1,A8 STATUS TO ECB CONTROL
0x191d48…191edc Dummy {f00=0x007d, f01=0x0190, f02=»ERS G | P* DWT ADDRESS (A6) H P* H ( P* FUNCTIONS: H 2 8 P* SET A DEVEICE (DID) NOT OPERABLE (ONLY IF AUX=1) H F P* H P* COMPLETION PARAMETERS: H P* RETURN CODE (A1) H PRQSST EQU * H P IFT AUX=1 H 2 P LDKL A3,DWTLST POINTER TO
0x191edc…192070 Dummy {f00=0x007d, f01=0x0190, f02=»D FROM DEVICE LIST H ~ 2 P ABL(Z) RTREQ NOT FOUND, RETURN: REQUEST ERROR I P CW A2,ECBCW1,A8 COMPARE DID I P P RF(E) RQSS20 FOUND I t " P SUK A4,1 END OF DEVICE LIST ? I , P ABL(Z) RTREQ YES, RETURN: REQUEST ERROR I P ADK A3,2 DEVICE LIST ADDR I P
0x192070…192204 Dummy {f00=0x007d, f01=0x0190, f02=» ABL RTOK RETURN: OK I P XIF J P IFF AUX=1 J ( & P ABL RTREQ REQUEST: REQUEST ERROR J : P XIF J d P EJECT J p P* J ~ $ P* READ/RESET STATISTICS REQUEST J P* J P* ACTIVATION PARAMETERS: J P* TYPE = BITS 0-7 OF ECBCW1 J P* ECB-ADD
0x192204…192398 Dummy {f00=0x007d, f01=0x0190, f02=» 2. RESET ALL STATISTICS BUFFERS J P* K ( P* COMPLETION PARAMETERS: K 2 * P* NUMBER OF BYTES TRANSFERRED (ECBEL) K R P* RETURN CODE (A1) K P* K PRQSTAT EQU * K P IFT STAT=0 K 0 P ABL RTREQ COMPLETE REQUEST RC=REQUEST ERROR K P XIF K
0x192398…19252c Dummy {f00=0x007d, f01=0x0190, f02=» K PRQST30 EQU * L P LD A1,ECBCW1,A8 GET TYPE L & P SRL A1,8 TYPE FIELD TO LEFT BYTE L > P CWK A1,TYPRR CORRECT TYPE? L h P RF(NE) RQST40 L 0 P CF A15,DCSRLL RESET ALL STATISTICS BUFFERS L P LDR A1,A1 LUCKY AGAIN? L , P ABL(NZ) RTREQ NO,
0x19252c…1926c0 Dummy {f00=0x007d, f01=0x0190, f02=» L z P* M P* ACTIVATION PARAMETERS: M , P* ECBCW1 >= 0 : ACTIVATE TIMING CONTROL M 2 : P* TIMEOUT VALUE IN MULTIPLES OF 100 MS; M b , P* 0 = IMMEDIATE TIMEOUT. M 0 P* < 0: DE-ACTIVATE TIMING CONTROL M P* M
0x1926c0…192854 (1, 309) Dummy {f00=0x007d, f01=0x0190, f02=»VALUE = ECBCW1 M | P* RETURN CODE (A1) N P* N 2 PRQTIME EQU * N < 0 P LD A2,ECBCW1,A8 GET TIMEOUT VALUE FROM ECB N P " P ST A2,DWTRTV,A6 STORE IN DWT N P ABL RTOK RETURN: OK N P EJECT N P* N P* SEND REQUEST N P* N P* ACTIVATI
0x192854…1929e8 Dummy {f00=0x007d, f01=0x0190, f02=»S: N " P* /80 = PROGRAM FUNCTION KEY O P* /81 = THRU O 0 P* O F P* FUNCTIONS: O P < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. O d $ P* 2. VERIFY BUFFER SIZE IF MMU O P* 3. HANDLING OF PF KEYS O P* 4. HANDLING OF THRU O
0x1929e8…192b7c Dummy {f00=0x007d, f01=0x0190, f02=»CODE (A1) O P* P PRQSEND EQU * P $ P LD A2,DWTSTA,A6 GET DWT STATUS P 0 P SUK A2,2 CONNECTED ? P X . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR P v 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTICE ? P 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNEC
0x192b7c…192d10 Dummy {f00=0x007d, f01=0x0190, f02=»,DWTOR,A6 GET ORDER CODE P * P RF(NN) RQSE30 NO OPTION, NORMAL SEND Q $ P SRL A2,8 RIGHT JUSTIFIE OPTION Q N " P SUK A2,/80 PROGRAM FUNCTION ? Q v P RF(Z) RQSE20 YES Q P IFT AUX=1 Q P SUK A2,/81-/80 THRU ? Q , P ABL(NZ) RTREQ NO, RETURN: REQUEST
0x192d10…192ea4 Dummy {f00=0x007d, f01=0x018e, f02=» Q & P ANS A1,DWTST,A6 SET DEVICE READY R ( P LDKL A2,DCSTQ GET THRU QUEUE ANCHOR R 2 , P CF A15,INSWQ1 INSERT DWT IN THRU QUEUE R ^ ( P CM ECBRL,A8 CLEAR REQUESTED LENGTH R P RF RQSE40 R P XIF R PRQSE20 EQU * R ( P CM ECBRL,A8 CLEAR REQUESTED
0x192ea4…193038 Dummy {f00=0x007d, f01=0x0190, f02=» 6 P ABL(G) RTLGTH YES, RETURN: ILLEGAL BUFFER LENGTH S P XIF S > P CF A15,TIMEWR START TIMER S J $ P CF A15,INSWQ QUEUE SEND REQUEST S l PRQSE40 EQU * S P ABL TDISP S P* S P EJECT S P* S P* S P* COMPLETION OF SEND REQUEST S
0x193038…1931cc Dummy {f00=0x007d, f01=0x0190, f02=»0 NO S P CM XACK NO ACK EXPECTED T & P LD A6,FDWTUT ANY SEND GOING ON ? T , P RF(Z) RQSE90 NO T V . P LD A2,DWTST,A6 ANY REQUEST FOR THIS DWT ? T n P RF(N) RQSE80 NO T " P LD A2,DWTOR,A6 GET ORDER CODE T P ANK A2,/FF REMOVE OPTIONS T & P SUK A2,
0x1931cc…193360 Dummy {f00=0x007d, f01=0x0190, f02=»A2,DCSTQ THRU IN QUEUE T P RF(Z) RQSE60 NO U & P LDKL A2,DCSTQ ADDR TO THRU ANCHOR U 6 , P CF A15,REM05 REMOVE DWT FROM THRU QUEUE U ` P RF RQSE80 U PRQSE60 EQU * U . P CF A15,REMOVW REMOVE DWT FROM SEND QUEUE U PRQSE80 EQU * U * P CM FDWTUT I
0x193360…1934f4 (1, 310) Dummy {f00=0x007d, f01=0x018e, f02=»T U P* V P* ACTIVATION PARAMETERS: V P* BUFFER ADDRESS (ECBBA) V 4 P* V V P* FUNCTIONS: V ` < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. V t F P* 2. TRANSFER TO THE APPLICATION ANY MESSAGE QUEUED FOR THE DWT, V B P* 3. COMP
0x1934f4…193688 Dummy {f00=0x007d, f01=0x0190, f02=» 0 P* ACTUAL LENGTH OF RECEIVED MESSAGE (ECBEL) W P* RETURN CODE (A1) W 8 P* W T PRQRECE EQU * W ^ $ P LD A2,DWTSTA,A6 GET DWT STATUS W r P SUK A2,2 CONNECTED ? W . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR W 2 P LD A2,DTEPLS,A7 PHYSICAL CONN
0x193688…19381c Dummy {f00=0x007d, f01=0x0190, f02=» ABL(Z) RTLOGC NO, RETURN: LOGICAL CONNECTION ERROR W * P LD A4,DWTIPC,A6 ANY BUFFER ON QUEUE ? X < P RF(NZ) RQRE10 YES X j P CF A15,TIMERE START TIMER X P RF RQRE40 GO TO DISPATCHER X PRQRE10 EQU * X P IFT EMU100=1 X " P LD A2,DWTOR,A6 GET
0x19381c…1939b0 Dummy {f00=0x007d, f01=0x0190, f02=»FFER LENGTH X ~ P ST A2,ECBEL,A8 TO ECB Y P ABL RTOK RETURN: OK Y 2 P XIF Y N PRQRE20 EQU * Y Z ( P LDR* A2,A4 GET NEXT BUFFER IN QUEUE Y n . P ST A2,DWTIPC,A6 STORE AS FIRST IN QUEUE Y ( P RF(NZ) RQRE30 MORE BUFFERS IN QUEUE Y 0 P CF A15,SBTIME S
0x1939b0…193b44 Dummy {f00=0x007d, f01=0x0190, f02=» Y h PRQRE40 EQU * Z P ABL TDISP GO TO DISPATCHER Z P EJECT Z @ P* Z N $ P* COMPLETION OF RECEIVE REQUEST Z X P* Z PRQRE50 EQU * Z P LD A6,FDWTIN GET INPUT DWT Z P ST A6,DWTTXT SAVE IT Z " P LD A2,DWTST,A6 ANY REQUEST ON Z " P R
0x193b44…193cd8 Dummy {f00=0x007d, f01=0x0190, f02=»R ? Z t $ P RF(NZ) RQRE80 NO, QUEUE BUFFER [ P LD A8,DWTECB,A6 ECB ADDR [ 4 P CF A5,CTIME STOP TIMER [ V ( P ST A2,ECBCW,A8 STORE REMANING TIME [ v PRQRE60 EQU * [ ( P LDK A1,0 COMPLETE REQUEST WITH RC=0 [ " P LD A3,-4,A4 GET BUFFER LENGTH [ , P
0x193cd8…193e6c Dummy {f00=0x007d, f01=0x0190, f02=» & P CWK A2,/81 ANY MESSAGE REQUEST ? P RF(NE) RQRE65 NO . $ P CF A15,TENDIO COMPLETE REQUEST H P RF RQRE80 QUEUE BUFFER p P XIF PRQRE65 EQU * $ P CWK A2,/80 RECEIVE ADDRESSED ? P RF(NE) RQRE70 NO P LD A2,-2,A4 GET SID+D
0x193e6c…194000 Dummy {f00=0x007d, f01=0x0190, f02=»AGE t > P CF A15,DC:MIN MOVE DATA TO USER BUFFER, COMPLETE REQUEST ] P RF RQRE90 ] N PRQRE75 EQU * ] ` P SUK A4,6 ADJUST ADDR ] t ( P CF A15,RRBUF RELEASE RECEIVE BUFFER ] ( P LDKL A1,RCBELL BELL IN RETURN CODE ] $ P CF A15,TENDIO COMPLETE REQUES
0x194000…194194 (1, 311) Dummy {f00=0x007e, f01=0x0190, f02=» OF BUFFER ] 2 P LDK A2,DWTIPC POINTER TO BUFFER QUEUE ANCHOR ^ * P ADR A2,A6 ADDR TO BUFFER QUEUE ANCHOR ^ H P CF A5,QR100 QUEUE BUFFER ^ v P IFT BUFTIM=1 ^ ( P LD A1,DWTIPC,A6 BUFFER QUEUE ANCHOR ^ " P LDR* A2,A1 GET FIRST IN QUEUE ^ ( P RF(NZ)
0x194194…194328 Dummy {f00=0x007e, f01=0x018e, f02=» ^ | " P ST A4,DWTIPT,A6 TIMER POINTER _ P XIF _ . PRQRE90 EQU * _ : P RTN A15 RETURN TO CALLER _ N P IFT BUFTIM=1 _ p P* _ P* BUFFER TIMEOUT _ P* _ PRQRETO EQU * _ P LDR A6,A1 DWT ADDR _ 0 P CF A15,RELBUF RELEASE BUFFERS QUEUE O
0x194328…1944bc Dummy {f00=0x007e, f01=0x0190, f02=» PRTREQ EQU * ` & P LDKL A1,RCREQ RC = REQUEST ERROR ` P RF RQRTN ` B PRTABRT EQU * ` T P LDKL A1,RCABRT RC = ABORTED ` h P RF RQRTN ` PRTBELL EQU * ` & P LDKL A1,RCBELL RC = BELL MESSAGE ` P RF RQRTN ` PRTTIME EQU * ` " P LDKL
0x1944bc…194650 Dummy {f00=0x007e, f01=0x0190, f02=» EQU * ` ( P LDKL A1,RCLGTH RC = ILLEGAL LENGTH a P RF RQRTN a : PRTLOGC EQU * a L 2 P LDKL A1,RCLOGC RC = LOGICAL CONNECTION ERROR a ` P RF RQRTN a PRTPHYC EQU * a 2 P LDKL A1,RCPHYC RC = PHYSICAL CONNECTION ERROR a P RF RQRTN a PRTOK
0x194650…1947e4 Dummy {f00=0x007e, f01=0x018e, f02=» EJECT a N P************************************************************************** b N P************************************************************************** b ` P** ** b P** ** b P** ** b P** ** b P** ** b P**
0x1947e4…194978 Dummy {f00=0x007e, f01=0x0190, f02=» P** ** c F P** D R D C 2 2 - U N I S C O P E 1 0 0 / 2 0 0 D R I V E R ** c P** ** c ^ P** ** c n P** S U B R O U T I N E S ** c ~ P** ** c P** ** c P** ** c P** ** c P** ** c P** ** c P**
0x194978…194b0c Dummy {f00=0x007e, f01=0x0190, f02=»******************************************** c r N P************************************************************************** d 4 P EJECT d P* d P* d P* d P* TIMER HANDLING PART d P* d P* d P* d P* RECEICE TIMER=TIMERR d
0x194b0c…194ca0 Dummy {f00=0x007e, f01=0x018e, f02=»TR2 TIMER=0 => IMMEDIATE TIMEOUT d P ST A2,TIMERR e ( P CF A15,SETIME e > P DATA TOUTRE e T PTIMERR DATA 0 e h ( P ST A4,DWTRTP,A6 STORE TIMER POINTER e ~ PTIME10 EQU * e P RF GBUF10 RETURN e P* e P* TIMEOUT READ TIMER e P* e P
0x194ca0…194e34 (1, 312) Dummy {f00=0x007e, f01=0x0190, f02=» PTOUTR2 EQU * f $ P ADKL A15,4 RESET STACK POINTER f P ABL RTTIME RETURN: TIMEOUT f @ P EJECT f d P* f r P* SEND TIMER=TIMWR f | P* f PTIMEWR LDR A1,A6 f & P LD A2,DWTRTV,A6 GET TIMEOUT VALUE f P RB(N) TIME10 NO TIMING f . P RB(Z)
0x194e34…194fc8 Dummy {f00=0x007e, f01=0x0190, f02=»RTP,A6 f P RB TIME10 g P* g P* TIMEOUT WRITE TIMER g * P* g H PTOUTWR EQU * g R P LDR A6,A1 FETCH DWT g f P CM DWTRTP,A6 g P LD A1,DWTOR,A6 GET ORDER g P SUK A1,SEND g P RB(NZ) TOUTR1 NOT SEND g P LD A2,DWTECB,A6 GET DWT g
0x194fc8…19515c Dummy {f00=0x007e, f01=0x0190, f02=»OCESSING g d P CM FDWTUT NO WRITE GOING ON h PTOUTW1 EQU * h 4 P LD A4,ECBBA,A2 GET ECB h H * P CF A15,REMOVW REMOVE FROM WRITE QUEUE h h , P ABL RTTIME COMPLETE REQUEST RC=TIMEOUT h P EJECT h P* h P* h P* STOP REQUEST TIMING h P*
0x19515c…1952f0 Dummy {f00=0x007e, f01=0x0190, f02=»Z) CTIM10 NOT RUNNING h P LDR* A2,A2 i " P NGR A2,A2 GET REMAINING TIME i 2 P CM* DWTRTP,A6 STOP TIMER i X P CM DWTRTP,A6 i z PCTIM10 EQU * i P RTN A5 i P EJECT i P* i $ P* STOP BUFFER SUPERVISIOR TIMER i P* i P* A6 = DWT
0x1952f0…195484 Dummy {f00=0x007e, f01=0x018e, f02=»M* DWTIPT,A6 STOP TIMER i P CM DWTIPT,A6 j PSBTI10 EQU * j 6 P RTN A15 j J P EJECT j Z P* j h < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 j r P* j $ P* CALLING SEQUENCE: CF A5,FINTER j P* A2=SUBTERMINAL ADDRESS j P* A4
0x195484…195618 Dummy {f00=0x007e, f01=0x0190, f02=» P* k PFINTER EQU * k P* k " P* SEARCH IF GENERAL SID k , P* k L P LDR A1,A2 k V P SUK A1,SID k h P RF(NZ) FINT05 SPECIFIC k | P LDKL A3,-1 INIT GENERAL SID k P RTN A5 k P* k PFINT05 EQU * k & P LDK A3,0 DEFAULT VALUE, N
0x195618…1957ac Dummy {f00=0x007e, f01=0x0190, f02=»HECK CHP k ~ 2 P RF(E) FINT15 DWT WITH CORRESPONDING SID FOUND l P LD A4,DWTCHN,A4 NEXT DWT l F * P RF(Z) FINT20 END OF CHAIN, NOT FOUND l h P RB FINT10 TRY NEXT l PFINT15 EQU * l P LDR A3,A4 DWT ADDR l PFINT20 RTN A5 l P EJECT l P*
0x1957ac…195940 Dummy {f00=0x007e, f01=0x0190, f02=»AINS BUFFER ADDRESS l P* A2 AND A3 ARE DESTROYED m P* m > P* m H ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS m R PGBUF INH m ~ P LDR* A4,A2 m P RF(Z) GBUF10 NO BUFFER FREE m . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN m P STR A3,A2 m *
0x195940…195ad4 (1, 313) Dummy {f00=0x007e, f01=0x0190, f02=»FFER m | P* n P* A4 CONTAINS BUFFER ADDRESS n $ P* CALLING SEQUENCE: CF A15,RRBUF n : P* A2 AND A3 ARE DESTROYED n b P* n P* n ( PRRBUF LDKL A2,DCRBUF RECEIVE BUFFERS n PRBUF INH n PRBUF10 EQU * n P LDR* A3,A2 n P RF(Z) RBUF2
0x195ad4…195c68 Dummy {f00=0x007e, f01=0x018e, f02=» EJECT n P* o . P* RELEASE ALL RECEIVE BUFFERS QUEUE ON DWT o P* o J P* A6 - DWT ADDR o T P* A1 AND A4 ARE DESTROYED o l ( P* CALLING SEQUENCE: CF A15,RELBUF o P* o P* o PRELBUF EQU * o $ P CF A15,SBTIME STOP BUFFER TIMER o *
0x195c68…195dfc Dummy {f00=0x007e, f01=0x018e, f02=» o n P CF A15,RRBUF RELEASE BUFFER p " P LDR A4,A1 ANY MORE TO RELEASE p , P RB(NZ) RLBU10 YES p R PRLBU20 EQU * p l & P CM DWTIPC,A6 RESET BUFFER POINTER p P RB GBUF10 p P EJECT p P* p P* p ( P* INSERT DWT IN WRITE REQUEST QUEUE p
0x195dfc…195f90 Dummy {f00=0x007e, f01=0x0190, f02=» PINSWQ2 LDR* A3,A2 q $ P RF(Z) INSWQ3 END OF QUEUE FOUND q P LDR A2,A3 q F P RB INSWQ2 q X PINSWQ3 ADR A4,A6 q j P STR A4,A2 INSERT IN QUEUE q " P CMR A4 INDICATE END OF QUEUE q P RB GBUF10 RETURN q P* q P* q * P* REMOVE DWT FRO
0x195f90…196124 Dummy {f00=0x007e, f01=0x0190, f02=» 2 PREM05 LDK A4,DWTOPN GET DWT-LINK TO BE REMOVED r P ADR A4,A6 r : PREM10 LDR* A3,A2 r N & P RB(Z) GBUF10 NOT ON QUEUE: RETURN r f P CWR A3,A4 r P RF(E) REM15 r P LDR A2,A3 GET NEXT r P RB REM10 r PREM15 LDR* A3,A4 REMOVE r P STR
0x196124…1962b8 Dummy {f00=0x007e, f01=0x0190, f02=»ADDR r P* A2,A3 DESTROYED s P* s & PQR100 EQU * s 0 P LDR* A3,A2 s D $ P RF(Z) QR200 END OF QUEUE FOUND s X P LDR A2,A3 s P RB QR100 s & PQR200 STR A4,A2 INSERT INTO QUEUE s " P CMR A4 INDICATE END OF QUEUE s P RTN A5 s P EJE
0x1962b8…19644c Dummy {f00=0x007e, f01=0x0190, f02=»TABLE ADDRESS TO STACK s r < P* DATA LAST,ADDRE LAST ENTRY; ERROR ADDRESS t > P* DATA KEY1,ADDR1 KEY (A2); ADDRESS FOR BRANCH t ^ P* " " " t P* LAST DATA KEYN,ADDRN t P* t P* ENTRY: A2 = KEY VALUE t P* EX
0x19644c…1965e0 Dummy {f00=0x007e, f01=0x018e, f02=»T CONTENTS = TABLE ADDRESS t & P LDR* A4,A3 GET LAST LEGAL ADDRESS u " P* u L PLOOK50 EQU * LOOP ENTRY u V * P ADK A3,4 GET NEXT TABLE ENTRY ADDRESS u v P CWR A3,A4 PAST THE END? u " P RF(G) LOOK90 YES = NOT FOUND u & P CWR* A2,A3 KEY = VALUE IN TAB
0x1965e0…196774 (1, 314) Dummy {f00=0x007e, f01=0x0190, f02=» u ( P LDR* A3,A1 GET TABLE ADDRESS AGAIN v PLOOK95 EQU * v 4 P ADKL A15,4 RESET STACK v H & P ABI 2,A3 BRANCH TO TABLE ADDRESS v h P EJECT v J P********************************************************************** v P* v 8 P* DCLINK - LIN
0x196774…196908 Dummy {f00=0x007e, f01=0x0190, f02=» v j P* DWTCHD = A(DTE) w P* A2, A3 DESTROYED w ( P* w J J P********************************************************************** w T P* w PDCLINK EQU * w P LDR A3,A7 DTE TAB ADDR w PDCLK20 EQU * w P LDR A2,A3 PREVIOUS
0x196908…196a9c Dummy {f00=0x007e, f01=0x0190, f02=»WTCHN,A2 ADD NEW DWT TO CHAIN w & P CM DWTCHN,A6 END OF CHAIN MARKER x & P* x P PDCLK50 EQU * x Z 0 P ST A7,DWTCHD,A6 * BACKWARD LINK TO ANCHOR x n P ADKL A15,4 x P ABR* A15 RETURN x P EJECT x J P********************************************
0x196a9c…196c30 Dummy {f00=0x007e, f01=0x0190, f02=»-ADDRESS TO BE REMOVED x ~ P* y 4 P* EXIT: CC = 0 = CHAIN NOW EMPTY; ANCHOR = 0 y ( , P* POS = DWT FOUND & REMOVED y ` > P* NEG = DWT NOT FOUND OR CHAIN EMPTY ON ENTRY y P* A2 & A3 DESTROYED y P* y J P********
0x196c30…196dc4 Dummy {f00=0x007e, f01=0x0190, f02=»20 EQU * y $ P LDR A2,A3 PREVIOUS DWT-POINTER z < P LD A3,DWTCHN,A2 GET DWT OF NEXT (OR 1ST) ENTRY IN CHAIN z 8 P RF(NZ) DCRM30 NOT AT END z x 8 P SUK A3,1 AT END & NOT FOUND; SET FOR CC = NEGATIVE z P RF DCRM80 RETURN z P* z PDCRM30 EQU * z
0x196dc4…196f58 Dummy {f00=0x007e, f01=0x0190, f02=» z Z 0 P ST A3,DWTCHN,A2 MOVE IT TO THE PREVIOUS ONE { P LDK A3,0 SET FOR CC = 0 { < P LD A2,DTECHN,A7 GET ANCHOR { & P RF(Z) DCRM80 LAST DWT NOW REMOVED { P ADK A3,1 SET CC = POS. { P* { PDCRM80 EQU * { P ADKL A15,4 UPDATE STACK { P
0x196f58…1970ec Dummy {f00=0x007e, f01=0x0190, f02=»SE: CF A15,STREG { P* | P* RESTORE | " $ P* CALLING SEQUENCE: CF A15,LDREG | 4 P* | P* | f PSTREG ST A3,LCA3 | p P ST A4,LCA4 | P ST A5,LCA5 | P ST A6,LCA6 | P ST A7,LCA7 | P ST A8,LCA8 | P RF RTNA15 RETURN | P E
0x1970ec…197280 Dummy {f00=0x007e, f01=0x0190, f02=»L A6,0 | PLCA6 EQU *-2 } P LDKL A7,0 } " PLCA7 EQU *-2 } 4 P LDKL A8,0 } H PLCA8 EQU *-2 } Z PRTNA15 EQU * } n P ADKL A15,4 } P ABR* A15 } P EJECT } P* } P* POLL TIME OUT } P* } ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE }
0x197280…197414 (1, 315) Dummy {f00=0x007f, f01=0x0190, f02=»F A15,DCSUPS UPDATE STATISTICS } P XIF ~ & P CF A15,SPOTIM ~ 2 P ABL TDISP ~ H P* ~ Z 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED ~ d P* ~ PCPTIM EQU * ~ P LDK A2,1 ~ " P ST A2,DTEDLS,A7 DATA LINK UP ~ P LDKL A2,-TIMPOL ~
0x197414…1975a8 Dummy {f00=0x007f, f01=0x0190, f02=» ~ P DATA PTOUT,TIMPOL P ST A4,DCTPGP " P ADKL A15,4 8 P ABR* A15 L P EJECT ^ N P************************************************************************** l N P**************************************************************************
0x1975a8…19773c Dummy {f00=0x007f, f01=0x0190, f02=»** ** P** ** P** ** P** ** 0 P** ** @ P** ** P P** ** ` F P** D R D C 2 2 - U N I S C O P E 1 0 0 / 2 0 0 D R I V E R ** p P** ** P** ** , P** P R O T O C O L H A N D L I N G **
0x19773c…1978d0 Dummy {f00=0x007f, f01=0x0190, f02=»** P** ** P** ** P** ** * P** ** : N P************************************************************************** J N P************************************************************************** P EJECT P* P*
0x1978d0…197a64 Dummy {f00=0x007f, f01=0x0190, f02=»,CSYNCI START I/P WITH SYNC DEF $ PBRM100 CF A5,READ READ CHARACTER ( P SUK A2,SOH P P RF(E) BRM200 SOH d P SUK A2,PAD-SOH PAD ? ~ P RB(NE) BRM100 NOT /FF P CF A5,READ READ CHARACTER P CWK A2,PAD PAD ? " P RB(NE) BRM100 NOT
0x197a64…197bf8 Dummy {f00=0x007f, f01=0x0190, f02=» v P CF A5,READP READ RID=TC P ABL(NZ) BRM920 PARITY ERROR ( & P CW A2,DTECHP,A7 CHECK IF THIS CHP L P RF(E) BRM201 v P CWK A2,GRID GENERAL RID ? . P ABL(NE) BRM900 NOT THIS TC: RESYNCHRONIZE PBRM201 EQU * . P CF A5,READP READ SI
0x197bf8…197d8c Dummy {f00=0x007f, f01=0x0190, f02=»SID GENERAL SID ? P RF(E) BRM210 YES, OK P CWK A2,/51 SID 51 ? 8 P RF(E) BRM210 YES, OK V P ABL BRM900 INVALID SID t P XIF * P CF A5,FINTER FIND SUBTERMINAL ADDRESS P CWK A3,-1 GENERAL SID ? * P RF(E) BRM205 YES,DONT
0x197d8c…197f20 Dummy {f00=0x007f, f01=0x0190, f02=» A3,A3 P ABL(Z) BRM900 SID UNKNOWN PBRM210 EQU * 0 P CF A5,READP D P ABL(NZ) BRM920 PARITY ERROR X P ST A2,FDID SAVE DID | P IFT AUX=0 P CWK A2,DID GENERAL DID ? & P ABL(NE) BRM900 NO, NOT ACCEPTED P XIF $ P
0x197f20…1980b4 (1, 316) Dummy {f00=0x007f, f01=0x0190, f02=» n P ABL(NZ) BRM920 PARITY ERROR P CWK A2,STX , " P RF(E) BRM300 STX: TEXT FRAME @ P CWK A2,ETX f & P RF(E) BRM250 ETX: ANALYZE HEADER z P CWK A3,4 $ P ABL(G) BRM930 HEADER OVEABLLOW $ P SC A2,HEADER,A3 STORE CHARACTER P A
0x1980b4…198248 Dummy {f00=0x007f, f01=0x0190, f02=» MASK BCC PARITY BIT P ABL(NZ) BRM910 BCC ERROR P CF A5,CHALTI HALT INPUT > P EJECT ^ P* l P* v P* ANALYZE CONTROL SEQUENCE P* P* P LD A1,HEADER GET HEADER P LD A2,HEADER+2 P LDK A3,0 FIND HEADER TYPE
0x198248…1983dc Dummy {f00=0x007f, f01=0x0190, f02=»TO HANDLER l PBRM270 ADK A3,2 & P ADK A4,4 INCREMENT STRING POINTER * P CWK A4,STRINE T P RB(NE) BRM260 TRY NEXT j P IFT STAT=1 $ P LDK A1,CSSXC2 INCORRECT HEADER $ P CF A15,DCSUPS UPDATE STATISTICS P XIF P RB BRM INVALI
0x1983dc…198570 Dummy {f00=0x007f, f01=0x0190, f02=»SBSTID RESET INDEX FOR TERMINAL ID P RF(Z) BRM305 , P XIF D P LD A6,FDWTIN GET DWT ADDR T . P RF(Z) BRM900 INVALID SUBTERMINAL ADDRESS x PBRM305 EQU * P LD A4,DCRBUF & P ABL(Z) BRM940 NO BUFFER AVAILABLE P LD A1,W
0x198570…198704 Dummy {f00=0x007f, f01=0x0190, f02=» h & P ADK A4,6 RESERVE 3 WORDS AT BEGIN P LDK A3,0 RESET BUFFER INDEX 2 & PBRM310 CF A5,READP READ CHARACTER V P RF(NZ) BRM920 PARITY ERROR P IFT AUX=1 P CWK A2,DC2 PRINT COMMAND ? P RF(E) BRM315 YES P XIF P CWK
0x198704…198898 Dummy {f00=0x007f, f01=0x0190, f02=»T BCC P RB BRM310 P EJECT P IFT AUX=1 . P* @ P* PRINT COMMAND DETECTED J P* l PBRM315 EQU * v 2 P IM SPRINT INIT PRINT FLAG FOR FOLLOWING POLL P LDK A1,BUSYFL ( P ORS A1,DWTST,A6 SET BUSY SUB-TRMNL P*
0x198898…198a2c Dummy {f00=0x007f, f01=0x0190, f02=»T A1,DWTDID,A6 INIT AI DEVICE PBRM318 EQU * & P XIF : P* J * P* STORE INCOMMING CHARACTER IN BUFFER T P* PBRM320 EQU * P IFT NULTST=1 P CWK A2,0 NULL ? " P RB(E) BRM310 YES,SUPPRESS IT P XIF P CWK A3,
0x198a2c…198bc0 Dummy {f00=0x007f, f01=0x0190, f02=» CWK A1,SBSSTA ON POSITION 7 ? P RF(NE) BRM330 NO ( P ST A3,SBSA3 SAVE A3 B P ST A4,SBSA4 SAVE A4 ` , P CF A5,FINT05 FIND SUBTERMINAL ADDRESS ~ P LDR A3,A3 IS A3 ZERO * P RF(Z) BRM900 YES, TERMINAL NOT FOUND P ST A3,FDWTIN
0x198bc0…198d54 (1, 317) Dummy {f00=0x007f, f01=0x0190, f02=» P XIF P LDR A1,A4 & P ADR A1,A3 COMPUTE BUFFER ADDRESS , P SCR A2,A1 STORE CHARACTER V P ADK A3,1 INCREMENT INDEX x P RB BRM310 P EJECT P* P* ETX DETECTED P* PBRM350 EQU * P CF A5,READP RE
0x198d54…198ee8 Dummy {f00=0x007f, f01=0x0190, f02=») BRM960 BCC ERROR P IFT SALCUZ=1 . P CF A5,CHALTI STOP I/P TO CHECK CHAR PAR 0 ( P ANK A2,SBPARI CHAR PARITY ERROR ? b P RF(NZ) BRM970 YES P XIF P IFT STAT=1 ( P LDK A1,CSSRBL DATA BLOCKS RECEIVED $ P CF A15,DCSUPS
0x198ee8…19907c Dummy {f00=0x007f, f01=0x0190, f02=» $ P LD A3,SPRINT PRIN ASKED (DC2) ? P RF(Z) BRM358 NO , * P LD A2,DWTDID,A6 YES, GET SELECTED DID D PBRM358 EQU * r $ P SC A2,-1,A4 STORE DID IN BUFFER P LD A2,FSID SID $ P SC A2,-2,A4 STORE SID IN BUFFER P CF A5,CHALTI HALT INPUT
0x19907c…199210 Dummy {f00=0x007f, f01=0x018e, f02=» P IM TACK ACK TO BE SENT PBRM360 EQU * $ $ P ADK A4,6 ADJUST BUFFER POINTER 8 P RF TEXT PROCESS TEXT ` P IFT AUX=1 ~ P* * P* PRINT COMMAND, SET TRANSMIT WABT P* PBRM370 EQU * P IM TWABT P RB BRM360
0x199210…1993a4 Dummy {f00=0x007f, f01=0x018e, f02=» P LDKL A5,STB * P CF A5,CSYNCI START I/P WITH SYNC DEF PBRM900 CF A5,READ F 0 P LD A1,DCSTCU ANY STATUS FROM CONTROL UNIT ? ` & P RF(NZ) BRM910 YES HALT AND RESYNC P SUK A2,PAD PAD ? P RB(NZ) BRM900 NOT /FF 4 PBRM910 CF A5,CHALT
0x1993a4…199538 Dummy {f00=0x007f, f01=0x0190, f02=» P IFT STAT=1 P LDK A1,CSSRPE PARITY ERROR $ P CF A15,DCSUPS UPDATE STATISTICS < P XIF d P RB BRM900 p P* P* INCORRECT HEADER P* PBRM930 EQU * P IFT STAT=1 $ P LDK A1,CSSXC2 INCORRECT HEADER $ P CF A15,
0x199538…1996cc Dummy {f00=0x007f, f01=0x0190, f02=» P LDK A1,CSSRBY BUFFER BUSY $ P CF A15,DCSUPS UPDATE STATISTICS * P XIF R P RB BRM900 ^ P* p P* BUFFER OVERFLOW z P* PBRM950 EQU * P IFT STAT=1 " P LDK A1,CSSRBO BUFFER OVERFLOW $ P CF A15,DCSUPS UPDATE STATIS
0x1996cc…199860 Dummy {f00=0x007f, f01=0x018e, f02=» PARITY ERROR $ P CF A15,DCSUPS UPDATE STATISTICS P XIF > P RB BRM910 J P* P* CHAR PARITY ERROR f P* PBRM970 EQU * P IFT STAT=1 P LDK A1,CSSRPE PARITY ERROR $ P CF A15,DCSUPS UPDATE STATISTICS P XIF
0x199860…1999f4 (1, 318) Dummy {f00=0x007f, f01=0x0190, f02=» P ST A2,DCSTRX SAVE SID TEXT , P CF A15,RQRE50 COMPLETE RECEIVE REQUEST ( PTEX205 EQU * X P IFT AUX=1 l P LD A1,FDID ~ P SUK A1,DID P RF(Z) TEX206 P* P* FORCE SELECT ANSWER P* IF DC2,FORCE WABT P*
0x1999f4…199b88 Dummy {f00=0x007f, f01=0x0190, f02=» ST A1,DIDREA PTEX206 EQU * P XIF * P ABL BRM : P EJECT J P* X P* b ( P* STATUS POLL: GENERAL AND SPECIFIC l P* P* PSP EQU * " P CM WPOLL CLEAR WAIT FOR POLL ( P LD A2,XACK STATUS POLL WITHOUT ACK
0x199b88…199d1c Dummy {f00=0x007f, f01=0x0190, f02=» r " P CM WPOLL CLEAR WAIT FOR POLL P LDK A1,0 RETURN CODE = 0 . < P CF A5,RQSE50 CHECK IF WRITE REQUEST IS TO BE COMPLETED P PSPA200 EQU * " P CF A5,CPTIM RESET POLL TIMER P IFF AUX+BFBUSY=0 P LD A2,DCRBUF CHECK IF BUSY * P
0x199d1c…199eb0 Dummy {f00=0x007f, f01=0x0190, f02=»SPA300 EQU * P IFT SBS=0 P LD A2,FSID GET SID ( P SUK A2,SID GENERAL SID ? D ( P RF(NZ) SPA350 NO,SPECIFIC CHECK IT f P XIF P EJECT P* 6 P* SEND TRAFFIC ON GENERAL STATUS POLL IF REQUIRED P* P IFT AUX=1
0x199eb0…19a044 Dummy {f00=0x007f, f01=0x0190, f02=»PRINT P RF(Z) SPA302 P CF A5,FRWABT PRINT MODE $ PSPA302 EQU * D P LD A6,DCSTQ X P ABL(NZ) TPA305 SEND THRU l P XIF PSPA305 EQU * " P LD A6,DCWRQ GET QUEUE ANCHOR P RF(Z) SPA500 NO TRAFFIC " P SUK A6,DWTOPN G
0x19a044…19a1d8 Dummy {f00=0x007f, f01=0x018e, f02=»DID RESTORE DID P CF A5,TRTRAF SEND TRAFFIC P RB SP100 : P* L P EJECT V P* SPECIFIC STATUS POLL d P* PSPA350 EQU * P LD A6,FDWTIN RESTORE DWT P IFT AUX=1 P LD A1,SREADY P RF(NZ) SPA700 SELECT DEVICE
0x19a1d8…19a36c Dummy {f00=0x007f, f01=0x0190, f02=» PSPA360 EQU * P LD A1,FDID * P SUK A1,DID SELECTION OR DESELECTION ? , P ABL(NZ) TPA400 YES Z P XIF v P LD A1,DWTST,A6 GET STATUS P RF(N) SPA500 NO ORDER ON P LD A1,DWTOR,A6 GET ORDER P ANK A1,/FF REMOVE OPTIONS
0x19a36c…19a500 Dummy {f00=0x007f, f01=0x0190, f02=»O TRAFFIC v P RB SP100 P IFT AUX=1 $ PSPA600 EQU * 6 P LD A1,DWTTXT J P CW A1,FDWTIN ` . P ABL(NE) BRM MUST BE FOR THE SAME TERMINAL v P CF A5,FRWABT SET WABT P RB SPA360 P* PSPA700 EQU * P LD A1,DWTTXT
0x19a500…19a694 (1, 319) Dummy {f00=0x0080, f01=0x0190, f02=» P* 0 P* RECEIVE BUFFER NOT AVAIABLE, SEND BUSY PSPA800 EQU * N P CM TACK NO ACK TO BE SENT d $ P LD A2,XBUSY WAS PREVIOUS BUSY P RF(Z) SPA810 NO P LD A2,FSID GET SID & P CWK A2,SID IS IT A GENERAL POLL
0x19a694…19a828 Dummy {f00=0x0080, f01=0x0190, f02=» . P CF A5,TRNOTR TRANSMIT WABT OR NO TRAFFIC P CM TWABT 6 & P IM XBUSY INDICATE PREVIOUS BUSY J P ABL SP100 RETURN t P* & P* NOT BUSY ANY MORE, SEND THRU P* PSPA850 EQU * P CM XBUSY INDICATE NOT BUSY
0x19a828…19a9bc Dummy {f00=0x0080, f01=0x0190, f02=»* P* & PTP EQU * TRAFFIC POLL WITHOUT ACK P IFT SBS=1 > * P CM TPAX CLEAR TR.POLL+ACK INDICATOR P P XIF ~ " P CM WPOLL CLEAR WAIT FOR POLL P LD A2,XACK " P RF(Z) TPA200 NO ACK EXPECTED $ P CF A5,TRRPRQ SEND REPLY R
0x19a9bc…19ab50 Dummy {f00=0x0080, f01=0x0190, f02=» v 4 P CF A5,RQSE50 CHECK IF WRITE IS TO BE COMPLETED P IFT SBS=1 @ ( P IM TPAX SET TR.POLL+ACK INDICATOR R P XIF ~ PTPA200 EQU * " P CF A5,CPTIM RESET POLL TIMER P IFF AUX+BFBUSY=0 P LD A2,DCRBUF CHECK IF BUSY P R
0x19ab50…19ace4 Dummy {f00=0x0080, f01=0x0190, f02=»* ( P* CHECK IF SPECIFIC OR GENERAL SID P* 6 P LD A2,FSID GET SID @ P SUK A2,SID GENERAL SID ? P RF(Z) TPA300 YES ~ P XIF P IFT SBS=1 & P RF TPA300 TREAT AS GENERAL POLL P XIF P* P* HERE ON
0x19ace4…19ae78 Dummy {f00=0x0080, f01=0x0190, f02=» | P SUK A1,DID GENERAL DID ? ( P ABL(NZ) TPA400 NO,SELECT AI DEVICE * P EJECT V P* d P* SPECIFIC TRAFFIC POLL n " P* TEST IF PRINT MODE P* P LD A1,SREADY P RF(NZ) TPA207 SELECT DEVICE P LD A1,SPRINT
0x19ae78…19b00c Dummy {f00=0x0080, f01=0x0190, f02=»D,A6 & P ST A1,FDID INIT AI DEVICE ADDRESS P LD A1,DWTST,A6 6 P ANK A1,BUSYFL N P RF(Z) TPA306 NOT BUSY d P IM TWABT P CF A5,TRNOTR * P ABL SP100 RETURN AFTER TRANSMIT BUSY PTPA203 EQU * P XIF P LD A1,DWTST
0x19b00c…19b1a0 Dummy {f00=0x0080, f01=0x0190, f02=»WRITE ORDER ? . P RB(NZ) SPA500 NOTHING TO SEND,NO TRAFFIC P EJECT H P* V * P* SEND TEXT ON SPECIFIC TRAFFIC POLL ` P* PTPA205 EQU * P IFT SBS=1 P LDK A2,/51 SBS SID P ST A2,FSID P XIF P ST A6,F
0x19b1a0…19b334 (1, 320) Dummy {f00=0x0080, f01=0x0190, f02=»DDRESS t P ST A4,ECBBA,A8 . P CF A15,DC:MOT MOVE DATA TO OUTPUT BUFFER & P XIF X P IFT STAT=1 d * P LDK A1,CSSTBL DATA BLOCKS TRANSMITTED x $ P CF A15,DCSUPS UPDATE STATISTICS P XIF & P LD A2,ECBBA,A8 GET BUFFER ADDRESS P ADK
0x19b334…19b4c8 Dummy {f00=0x0080, f01=0x0190, f02=»STORE CORRECT LENGTH P ST A2,FECBRL P CM NAKCNT CLEAR NAK COUNTER 2 P CF A5,TRTEXT TRANSMIT TEXT V P IM XACK ACK EXPECTED z P ABL SP100 P IFT AUX=1 PTPA206 EQU * P LD A1,DWTTXT P CW A1,FDWTIN . P ABL(NE) BRM
0x19b4c8…19b65c Dummy {f00=0x0080, f01=0x0190, f02=»DWTIN P ABL(NE) BRM P CF A5,SETREA " P RF TPA400 8 P XIF J PTPA210 EQU * Z & P LD A1,ECBCW,A8 GET FUNCTION CODE n P ANKL A1,/FF & P SC A1,DCSTR9 INIT TRANSFER FIELD ( P CF A5,TRSFCN TRANSFER FUNCTION KEY P ABL S
0x19b65c…19b7f0 Dummy {f00=0x0080, f01=0x0190, f02=»TEST IF PRINT SEQUENCE INITIATED P* ( P LD A1,SREADY 2 P RF(Z) TPA301 H P CF A5,SETREA ^ P ABL TPA400 t PTPA301 EQU * P LD A1,SPRINT P RF(Z) TPA302 P CF A5,FRWABT INIT WABT PTPA302 EQU * P LD A6,DCSTQ
0x19b7f0…19b984 Dummy {f00=0x0080, f01=0x0190, f02=» P LDR* A1,A6 P ST A1,FSID PTPA306 EQU * , " P ST A6,FDWTUT INIT OUTPUT DWT @ P CF A5,TRTHRU SEND THRU f P CM DWTPRT,A6 P ABL SP100 PTPA315 EQU * P XIF P IFT SBS=1 . P LD A6,TPAX WAS PREVIOUS TR.POLL + A
0x19b984…19bb18 Dummy {f00=0x0080, f01=0x0190, f02=»FIC z " P SUK A6,DWTOPN GET DWT ADDRESS P LDR* A2,A6 INIT SID 2 P ST A2,FSID N P LDK A2,DID b $ P ST A2,FDID RESTORE GENERAL DID v ( P RB TPA205 SEND FIRST TEXT IN QUEUE P IFT AUX=1 P EJECT P* , P* FORCE WABT ANSWER
0x19bb18…19bcac Dummy {f00=0x0080, f01=0x0190, f02=»WT t " P CM SPRINT RESTORE PRINT FLAG & P LD A1,DWTDID,A6 GET SPECIFIC DID 0 $ P ST A1,FDID STORE IT TO BE SEND Z * P IM DWTPRT,A6 INIT WABT-THRU INDICATOR P RTN A5 P* P* INIT DEVICE (SID,DID) P* PSETREA EQU * P
0x19bcac…19be40 Dummy {f00=0x0080, f01=0x0190, f02=» DEVICE P* PTPA400 EQU * P* . P* TEST IF DID IS VALID 8 P* V . P CF A5,DESEL EXAMINE EVENTUAL DESELECTION ` " P CM SREADY CLEAR READY TO SEND P LD A6,FDWTIN GET DWT $ P LD A1,DWTST,A6 TERMINAL BUSY ? P ANKL A1,B
0x19be40…19bfd4 (1, 321) Dummy {f00=0x0080, f01=0x0190, f02=» ADR A3,A6 PTPA403 EQU * P LDR* A2,A3 GET DID IN LIST & P ABL(Z) BRM END OF LIST J P ANKL A2,NBIT0 IGNORE STATUS j P CWR A1,A2 OK ? $ P RF(E) TPA405 YES,DID RECOGNIZED P ADK A3,2 P RB TPA403 P EJECT P* ,
0x19bfd4…19c168 Dummy {f00=0x0080, f01=0x0190, f02=»AI STATUS P ANKL A2,BIT0 AI OPERABLE ? P RF(NZ) TPA500 NO 6 P* P P* DEVICE READY Z P* r P CF A5,TREADY | P ABL SP100 P* P* DEVICE NOT OPERABLE P* PTPA500 EQU * P CF A5,TRNOP P ABL SP100
0x19c168…19c2fc Dummy {f00=0x0080, f01=0x0190, f02=» STATUS BUSY n P* PDESEL EQU * P LD A1,FDID 2 P CWK A1,CHDSL DESELECTION ? F P RF(E) DESEL1 j P RTN A5 NO . PDESEL1 EQU * DESELECTION,RESTORE TERMINAL , P CM DWTPRT,A6 RESET WABT-THRU INDICATOR P LDK A1,/FE ( P
0x19c2fc…19c490 Dummy {f00=0x0080, f01=0x0190, f02=»* P* RETRANSMIT REQUEST P* & P* 0 PRT EQU * : P LD A1,XACK J 0 P RF(Z) RT110 SEND NO TRAFFIC IF ACK NOT EXP ^ P LD A1,ZRECOV+4 P CW A1,FSID P ABL(NE) BRM NOT PROPER SID P LD A6,FDWTUT & P RF(Z) RT150 NO
0x19c490…19c624 Dummy {f00=0x0080, f01=0x0190, f02=»KCNT COUNT NAK:S P LD A2,NAKCNT P SUK A2,4 . " P RF(Z) RT100 4 NAK:S RECEIVED @ P IM TSTENQ f " P CF A5,TRTEXT RETRANSMIT TEXT x P IFT STAT=1 , P LDK A1,CSSTRT DATA BLOCKS RETRANSMITTED $ P CF A15,DCSUPS UPDATE STATISTICS
0x19c624…19c7b8 Dummy {f00=0x0080, f01=0x0190, f02=» SP100 PRT110 EQU * " P CF A5,TRNOTR SEND NO TRAFFIC $ P ABL SP100 J P EJECT ^ P* l $ P* HERE RECOVERY ON LAST MESSAGE v P* TEXT EXCLUDED P* PRT150 EQU * P IM TSTENQ ( P CFI A5,LSEND RETURN TO LAST
0x19c7b8…19c94c Dummy {f00=0x0080, f01=0x0190, f02=» ABL BRM P EJECT P* P* ( " P* TRANSMIT PROCEDURE RESPONSES 2 P* X P* b PTRACK EQU * l ( P LDKL A4,DCSTR1 NO TRAFFIC WITH ACK P IM XACK P LDKL A1,TRACK P ST A1,LSEND P RF TRCTRL P* P* ACK
0x19c94c…19cae0 Dummy {f00=0x0080, f01=0x0190, f02=»5,DCSUPS UPDATE STATISTICS P XIF " P CF A5,TRSYNC . P LDK A2,SOH D P CF A5,WRITE X P LDKL A8,0 BCC l P LD A2,DTECHP,A7 CHP P CF A5,WRITEP P LD A2,ZRECOV+4 P CF A5,WRITEP LAST SID P LD A2,ZRECOV+6 LAST DID
0x19cae0…19cc74 (1, 322) Dummy {f00=0x0080, f01=0x0190, f02=» IM XACK P LDKL A1,TRTRAF P ST A1,LSEND ( P RF TRCTRL < P EJECT N P* P* SEND NO TRAFFIC f ( P* IF ACK OR WABT HAVE TO BE INCLUDED P* TAKE CARE ABOUT SID,DID P* P* PTRNOTR EQU * 0 P LD A1,DCSTRX REST
0x19cc74…19ce08 Dummy {f00=0x0080, f01=0x0190, f02=»NOT1 EQU * P LD A1,TWABT TRANSMIT WABT ? P RF(Z) TRNOT2 NO 6 P RB TRACK YES N PTRNOT2 EQU * d P LDKL A4,DCSTR5 x P CF A5,TRSYNC P LDKL A8,0 BCC P RF TRC100 P EJECT P* P* P* DEVICE HANDLING
0x19ce08…19cf9c Dummy {f00=0x0080, f01=0x0190, f02=» RF TRCTRL P XIF PTRTHRU EQU * " P LDKL A4,DCSTR7 6 P IM XACK N P LDKL A1,TRTHRU ^ P ST A1,LSEND v P RF TRCTRL P IFT AUX=1 PTRNOP EQU * P LDKL A4,DCSTR8 P IM XACK P LDKL A1,TRNOP P ST A1,L
0x19cf9c…19d130 Dummy {f00=0x0080, f01=0x0190, f02=»,LSEND P RF TRCTRL P EJECT P* . PTRCTRL EQU * 8 P* L 2 P* HERE TO TEST ON RETRANSMISSION CASE OR NOT V * P* IF YES RESTORE PREVIOUS HEADER P* P LD A1,TSTENQ " P RF(NZ) RETRAX RETRANSMISSION P CF A5,T
0x19d130…19d2c4 Dummy {f00=0x0080, f01=0x0190, f02=» t " P CF A5,WRITEP WRITE CHARACTER P RB TRC100 . PTRC200 LDK A2,ETX @ P CF A5,WRITEP SEND ETX Z P LDR A2,A8 x P CF A5,WRITEP SEND BCC P LDK A3,3 PTRC210 EQU * P LDK A2,PAD PAD CHAR P CF A5,WRITE SEND PAD
0x19d2c4…19d458 Dummy {f00=0x0080, f01=0x0190, f02=»* RID SID DID (DLE 1 OR DLE ?) P* * PRETRAX EQU * 4 P CM TSTENQ H P LC A3,ZRECOV Z & P ST A3,COUNT INIT PARAMETERS COUNT p P LDK A3,/FF 2 P ANS A3,ZRECOV DESTROY FIRST CHARACTER COUNTER P CF A5,TRSYNC P LD A2,ZRECOV
0x19d458…19d5ec Dummy {f00=0x0080, f01=0x0190, f02=» P CF A5,WRITEP SEND CHARACTER " P ADK A3,2 COUNTER IN PROGRESS ( & P CC A3,COUNT+1 END OF SAVE AREA ? N " P RB(NE) LOOP NO,GO ON WRITING x P LD A1,COUNT " P SC A1,ZRECOV RESTORE COUNTER " P LD A1,FDWTUT RECOGNIZE RETURN P RB(Z) TRC
0x19d5ec…19d780 Dummy {f00=0x0080, f01=0x018e, f02=» TEXT RECOVERY P EJECT P* $ P* . P* TRANSMIT HEADER : 8 & P* SOH RID SID DID T : P* DLE 1 (ACK),DLE ? (WABT=ACK+BUSY) IF REQUIRED ~ $ P* SAVE IT FOR RECOVERY PURPOSES P* P* PTRHEAD EQU *
0x19d780…19d914 (1, 323) Dummy {f00=0x0081, f01=0x0190, f02=» x P ADK A3,2 P LDKL A8,0 BCC P LD A2,DTECHP,A7 CHP 0 P ST A2,ZRECOV,A3 L P CF A5,WRITEP SEND RID d P ADK A3,2 P LD A2,FSID P ST A2,ZRECOV,A3 P CF A5,WRITEP SEND SID P ADK A3,2 P LD A2,FDID P ST
0x19d914…19daa8 Dummy {f00=0x0081, f01=0x018e, f02=»DER X P* P LD A1,TACK TRANSMIT ACK ? ( P RF(Z) HEAD10 NO,TEST TRANSMIT WABT 8 P CM TACK d P LDK A2,DLE t P ST A2,ZRECOV,A3 P CF A5,WRITEP SEND DLE P ADK A3,2 P LDK A2,ACK1 P ST A2,ZRECOV,A3 P CF A5,WRITE
0x19daa8…19dc3c Dummy {f00=0x0081, f01=0x0190, f02=» P* & P CM TWABT NO REJECT TRANSMIT WABT P LDK A2,DLE 8 P ST A2,ZRECOV,A3 L P CF A5,WRITEP SEND DLE d P ADK A3,2 P LDK A2,WABT P ST A2,ZRECOV,A3 P CF A5,WRITEP SEND WABT P ADK A3,2 PHEAD20 EQU * < P S
0x19dc3c…19ddd0 Dummy {f00=0x0081, f01=0x0190, f02=»ETRANSMIT TEXT x 6 P* INCLUDE PENDING ACK,PENDING WABT EVENTUALLY P* P PTRTEXT EQU * Z P LD A1,TSTENQ n " P RB(NZ) RETRAX RETRANSMISSION P EJECT P* P* TRANSMIT TEXT P* P* P CF A5,TRHEAD PTRT0
0x19ddd0…19df64 Dummy {f00=0x0081, f01=0x018e, f02=»RESS t " PTRT100 LCR A2,A4 GET CHARACTER P ADK A4,1 INCREMENT POINTER 2 P CF A5,WRITEP SEND CHARACTER V PTRT120 EQU * z P SUK A3,1 " P RB(NZ) TRT100 NEXT CHARACTER 2 P ABL TRC200 ALL TRANSMITTED. SEND ETX AND BCC P EJECT
0x19df64…19e0f8 Dummy {f00=0x0081, f01=0x0190, f02=» h * P CF A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS 6 PTRS100 LDK A2,SYN N P CF A5,WRITE SEND SYN h P SUK A3,1 P RB(NZ) TRS100 P RTN A5 P EJECT N P************************************************************
0x19e0f8…19e28c Dummy {f00=0x0081, f01=0x0190, f02=»** ** P** ** P** ** P** ** 0 P** ** @ P** ** P P** ** ` P** ** p P** ** P** ** P** ** P** ** P** ** F P** D R D C 2 2 - U N I S C O P E 1 0 0 / 2 0 0 D R
0x19e28c…19e420 Dummy {f00=0x0081, f01=0x0190, f02=» ** P** ** P** ** P** ** . P** ** > P** ** N P** ** ^ P** ** n P** ** ~ P** ** P** ** P** ** N P**************************************************************************
0x19e420…19e5b4 (1, 324) Dummy {f00=0x0081, f01=0x0190, f02=»* CINIT : INITIALIZE LINE CONTROL UNIT INFO P* 4 PCINIT EQU * B $ P CM DCLCI CLEAR I/P ACTIVE IND X ( P ADKL A15,4 INCREMENT STACK POINTER P ABR* A15 RETURN TO CALLER P EJECT P* 0 P* CSYNCI : SEND SYNC PATTERN FOR
0x19e5b4…19e748 Dummy {f00=0x0081, f01=0x0190, f02=»I STOP I/P & P ST A5,DCLCI SET I/P ACTIVE FLAG ( P ADK A5,4 ADD RETURN OFFSET FOR ABR < P IFT SALCUZ=1 h 0 P LDK A2,PARITY CHAR PARITY FUNCTION FOR LC ~ P CIO A2,1,DCDEVI STARTY I/O P LDK A2,SYN SYNC PATTERN 2 P OTR A2,1,DCDEVI
0x19e748…19e8dc Dummy {f00=0x0081, f01=0x0190, f02=»END I/P SYNC PATTERN TO LC ~ P XIF $ PCSYN:I EQU * 2 * P ABR* A5 RETURN TO CALLER WITH CR SET F P* t P* 0 P* CSYNCO : START TRANSMITTER WITH SYNC DEF P* PCSYNCO EQU * P LD A2,PFPOST $ P RF(NZ) CS
0x19e8dc…19ea70 Dummy {f00=0x0081, f01=0x0190, f02=» P RF(A) CSYNC2 ACCEPTED -> , P SST A2,DCDEVO TRY TO READ STATUS THEN & P RF(A) CSYNC1 ACCEPTED -> V * P ABL BRM NOT ACCEPTED TIMEOUT REQUEST x PCSYNC1 EQU * P LDK A2,PARITY RETRY CIO P CIO A2,1,DCDEVO DO IT PCSYNC2 EQU
0x19ea70…19ec04 Dummy {f00=0x0081, f01=0x0190, f02=»VO START TRANSMITTER P XIF PCSYN:O EQU * . P RTN A5 B P EJECT T P* f $ P* CHALTI : HALT INPUT CHANNEL t P* P* PCHALTI EQU * P IFT SALCUZ=1 & P LDK A2,CBSTOP STOP FUNCTION BIT
0x19ec04…19ed98 Dummy {f00=0x0081, f01=0x0190, f02=» LOGG=0 P CF A5,LOGSST LOGG I/P SST P XIF 6 P ADK A5,4 INCR STACK POINTE F P ABR* A5 RETURN TO CALLER j P* P* " P* CHALTO : HALT O/P CHANNNEL P* PCHALTO EQU * P IFT SALCUZ=1 " P
0x19ed98…19ef2c Dummy {f00=0x0081, f01=0x0190, f02=»CUZ=1 P CIO A2,0,DCDEVO HALT CU P XIF 0 & P ADK A5,4 INCREMENT STACK POINTER @ P SST A2,DCDEVO GET STATUS j P ABR* A5 RETURN TO CALLER P EJECT P* P* P* RECEIVER INTERRUPT P* P* PIH2201
0x19ef2c…19f0c0 Dummy {f00=0x0081, f01=0x018e, f02=» P MSR 8,A15 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 & P INR A2,0,DCDEVI READ CHAR T , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS x P IFF LOGG=0 ( P CF A5,LOGIN LOG RECEIVED CHARACTER P XIF P XRR A8,A2 CALCULATE
0x19f0c0…19f254 (1, 325) Dummy {f00=0x0081, f01=0x0190, f02=» n P CM DCSTCU CLEAR SST SAVE P LDK A1,1 * P ST A1,DTEPLS,A7 CU OPERABLE < PIHIN10 RTN A5 ` PIHIN20 CF A5,SST PERFORM SST v P ABL BRM P* P* P* TRANSMITTER INTERRUPT P* P* PIH2202 EQU * 0 P
0x19f254…19f3e8 Dummy {f00=0x0081, f01=0x0190, f02=»,A15 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RB IHIN10 F P EJECT X P* f P* p & P* SST INSTRUCTION AND STATUS CHECK z P* ( P* CHLC STATUS : BIT 10=CARRIER OFF , P* BIT 14=THROUGHPUT ERROR ,
0x19f3e8…19f57c Dummy {f00=0x0081, f01=0x0190, f02=»US | P IFF LOGG=0 & P CF A5,LOGSST LOG SST INFORMATION P XIF J " P ANK A2,SBERR ERROR BIT SET ? V P RF(NZ) SST050 YES | P IFT SALCUZ=0 P LD A2,DCLCI I/P STATUS ? * P RF(Z) EXDISP I/P NOT ACTIVE IGNORE ( P RF(N) S
0x19f57c…19f710 Dummy {f00=0x0081, f01=0x0190, f02=»ETURN TO DISP P XIF P IFT SALCUZ=1 & P RF SST100 < P XIF R PSST050 EQU * b " P CM DTEPLS,A7 CU NOT OPERABLE x P ANK A2,SBCARR CARRIER OFF P RF(Z) SST052 NO P LD A2,DCLCI I/P STATUS 0 P RF(Z) EXDIS
0x19f710…19f8a4 Dummy {f00=0x0081, f01=0x018e, f02=»HROUGHPUT ERROR ? P RF(Z) SST100 NO P IFT STAT=1 4 $ P LDK A1,CSCDIT THROUGHPUT ERROR H $ P CF A15,DCSUPS UPDATE STATISTICS p P XIF P ABL BRM800 THROUGHPUT ERROR PSST100 EQU * P LDR A2,A3 P ANK A2,1 NOT OPERABLE ?
0x19f8a4…19fa38 Dummy {f00=0x0081, f01=0x0190, f02=» P CF A15,STREG SAVE REGISTERS P CF A15,SETIME DELAY 1 SEC ( P DATA SST150,10 J P ABL TDISP DISPATCH b PSST150 EQU * ~ P CF A15,LDREG LOAD REGISTERS PSST200 EQU * P ST A1,DCSTCU P RTN A5 P EJECT P* P
0x19fa38…19fbcc Dummy {f00=0x0081, f01=0x0190, f02=»F(A) WRIT10 P RF READ THROUGPUT ERROR $ PWRIT10 XRR A8,A2 ACCUMULATE BCC 4 P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER p P XIF P* PREAD CF A15,STREG PEXDISP EQU * P ABL TDISP P EJECT P*
0x19fbcc…19fd60 Dummy {f00=0x0081, f01=0x0190, f02=» ANK A2,/FF P ECR A1,A2 P ORK A2,/80 & PWRI100 SLL A1,1 : P RB(P) WRI100 R P RB(Z) WRITE WRITE h P XRK A2,/80 P RB WRI100 P XIF P IFT SALCUZ=1 P RB WRITE WRITE CHAR P XIF P* P*
0x19fd60…19fef4 (1, 326) Dummy {f00=0x0081, f01=0x0190, f02=» P IFT SALCUZ=0 P ECR A1,A2 PRE100 SLL A1,1 . P RF(Z) RE110 D P RB(NN) RE100 X P XRK A2,/80 n P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFT SALCUZ=1 P LDK A1,/80 P XIF
0x19fef4…1a0088 Dummy {f00=0x0081, f01=0x018e, f02=»WER ON FUNCTIONS P* P* " PDC22ON EQU * , P IFT CPU852=1 @ P CF A15,SAVE8 V P XIF l P IFF CPU852=1 x P MSR 8,A15 P XIF $ P LDKL A7,DTETAB DTE TAB ADDRESS . P CF A15,CINIT INIT LINE CONTROL UNIT INFO ( P L
0x1a0088…1a021c Dummy {f00=0x0081, f01=0x0190, f02=» P EJECT N P************************************************************************** N P************************************************************************** h P** ** P** ** P** ** P** ** P** **
0x1a021c…1a03b0 Dummy {f00=0x0081, f01=0x0190, f02=»** P** ** F P** D R D C 2 2 - U N I S C O P E 1 0 0 / 2 0 0 D R I V E R ** P** ** d P** ** t P** W O R K A R E A S ** P** ** P** ** P** ** P** ** P** ** P** ** P**
0x1a03b0…1a0544 Dummy {f00=0x0081, f01=0x0190, f02=»************************************************ v N P************************************************************************** 8 P* P* P* DC RECEIVE BUFFER POOL P* P* PRLINK EQU RBUFL+RBUFL+8 . PDCRBUF EQU * POINTER T
0x1a0544…1a06d8 Dummy {f00=0x0081, f01=0x0190, f02=» RBUFL+3 P DATA *+RLINK P RES RBUFL+3 & P DATA *+RLINK : P RES RBUFL+3 P P DATA *+RLINK d P RES RBUFL+3 z P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3
0x1a06d8…1a086c Dummy {f00=0x0081, f01=0x018e, f02=»*+RLINK P RES RBUFL+3 P XIF $ P IFT RBUFNR=13 0 P DATA *+RLINK F P RES RBUFL+3 P DATA *+RLINK p P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES
0x1a086c…1a0a00 Dummy {f00=0x0081, f01=0x0190, f02=» P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK 2 P RES RBUFL+3 H P DATA *+RLINK P RES RBUFL+3 r P XIF P IFT RBUFNR=12 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLIN
0x1a0a00…1a0b94 (1, 327) Dummy {f00=0x0082, f01=0x0190, f02=» RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 * P DATA *+RLINK > P RES RBUFL+3 T P DATA *+RLINK h P RES RBUFL+3 ~ P DATA *+RLINK P RES RBUFL+3 P XIF P IFT RBUFNR=11 P DATA *+RLINK P RES RBUFL+3 P
0x1a0b94…1a0d28 Dummy {f00=0x0082, f01=0x018e, f02=»INK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 6 P DATA *+RLINK J P RES RBUFL+3 ` P DATA *+RLINK t P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P XIF P IFT RBUFNR=10 P DATA *+RLINK P RES RBU
0x1a0d28…1a0ebc Dummy {f00=0x0082, f01=0x0190, f02=» P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK . P RES RBUFL+3 D P DATA *+RLINK X P RES RBUFL+3 n P DATA *+RLINK P RES RBUFL+3 P XIF P IFT RBUFNR=9 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK
0x1a0ebc…1a1050 Dummy {f00=0x0082, f01=0x0190, f02=» RBUFL+3 P DATA *+RLINK P RES RBUFL+3 & P DATA *+RLINK : P RES RBUFL+3 P P XIF d P IFT RBUFNR=8 p P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P DAT
0x1a1050…1a11e4 Dummy {f00=0x0082, f01=0x0190, f02=»FT RBUFNR=7 P DATA *+RLINK P RES RBUFL+3 * P DATA *+RLINK > P RES RBUFL+3 T P DATA *+RLINK h P RES RBUFL+3 ~ P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P XIF P IFT RBUFNR=6 P
0x1a11e4…1a1378 Dummy {f00=0x0082, f01=0x0190, f02=»INK P RES RBUFL+3 P XIF P IFT RBUFNR=5 , P DATA *+RLINK B P RES RBUFL+3 X P DATA *+RLINK l P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P XIF P IFT RBUFNR=4 P DATA *+RLINK P RES RBUFL+3
0x1a1378…1a150c Dummy {f00=0x0082, f01=0x0190, f02=»ATA *+RLINK P RES RBUFL+3 P DATA 0 ( P RES RBUFL+3 8 P EJECT L P* Z P* MMU WORK BUFFER d P* P IFF MMUPAG=0 & PMMUBUF RES TBUFL+1 MMU WORK BUFFER P XIF P EJECT P* P* P* INTERRUPT LOGG
0x1a150c…1a16a0 Dummy {f00=0x0082, f01=0x0190, f02=»A2,SAVE2 P ORKL A2,/0F00 P RF LOG10 & PLOGIN CWK A2,/FF 8 P RF(E) LOGE10 P P ST A2,SAVE2 f PLOG10 ST A3,SAVE3 z P LD A3,LOGPNT P STR A2,A3 P ADK A3,2 P CWK A3,LOGEND P RF(L) LOGEXI P LDKL A3,LOGST
0x1a16a0…1a1834 (1, 328) Dummy {f00=0x0082, f01=0x0190, f02=»GPNT DATA LOGSTA PLOGSTA EQU * P RES 1000 , PLOGEND EQU *-4 > PSAVE2 DATA 0 T PSAVE3 DATA 0 h P XIF | P* P* P* P EJECT P* P* DTETAB P* P* FIXED PART PDTETAB EQU * P DATA 0,
0x1a1834…1a19c8 Dummy {f00=0x0082, f01=0x0190, f02=»* DRIVER DEPENDENT PART P DATA 0,0,0,0 P* STATISTICAL BUFFER 6 PDTSTAT EQU * R P DATA 0 SYMBOLIC ID f P DATA 0 COUNTER STATUS INDEX " P DATA CSCXC3 MAX COUNTER INDEX P DATA 0,0 COUNTERS P DATA 0,0,0,0,0,0 P DATA 0,
0x1a19c8…1a1b5c Dummy {f00=0x0082, f01=0x018e, f02=»0,0,0 * P DATA 0,0,0,0,0,0 * P DATA 0 * , P* > P EJECT H P* V P* ` P* PROCEDURE WORK AREAS j P* P* , PFDWTIN DATA 0 CURRENT DWT FOR RECECEION . PFDWTUT DATA 0 CURRENT DWT FOR TRANSMISSION PXACK DATA
0x1a1b5c…1a1cf0 Dummy {f00=0x0082, f01=0x0190, f02=» j . PXBUSY DATA 0 BUSY ANSWER ON PREVIOUS POLL ( PHEADER DATA 0,0 HEADER STORAGE AREA : P* f PFECB DATA 0 WRITING ECB p ( PFECBBA DATA 0 WRITING BUFFER ADDRESS ( PFECBRL DATA 0 WRITING BUFFER LENGTH PFSID DATA 0 RESPONDING SID
0x1a1cf0…1a1e84 Dummy {f00=0x0082, f01=0x018e, f02=»ERS TO BE SAVED | P* 0 PZRECOV DATA 0,0,0,0,0,0 SAVE TRANSMIT HEADER " & PLSEND DATA 0 LAST TRANSMIT ADDRESS V P* * PBUSYFL EQU 1 BUSY FLAG (BIT 15 IN DWT) P* " PSPRINT DATA 0 PRINT STATEMENT $ PDWTTXT DATA 0 LAST DWT FOR TEXT
0x1a1e84…1a2018 Dummy {f00=0x0082, f01=0x0190, f02=» h . PSBSTID DATA 0 INDEX TO FOUND TERMINAL ID PSBSA3 DATA 0 SAVE AREA A3 : PSBSA4 DATA 0 SAVE AREA A4 * PTPAX DATA 0 1 IF TR.POLL+ACK RECEIVED ~ P XIF P* P EJECT P* P* PSTRING EQU * FRAME STRINGS &
0x1a2018…1a21ac Dummy {f00=0x0082, f01=0x0190, f02=»ATA /1031,/0500 STATUS POLL WITH ACK , P DATA /0510,/3100 STATUS POLL WITH ACK , $ P DATA /1015,0 RETRANSMIT REQUEST PSTRINE EQU * END OF STRINGS P* P* ( PFRAME EQU * BRANCH TABLE FOR FRAMES & P DATA TP TRAFFIC POLL WITHOUT AC
0x1a21ac…1a2340 Dummy {f00=0x0082, f01=0x0190, f02=»A STATUS POLL WITH ACK P DATA RT RETRANSMIT REQUEST P EJECT D P* R P* OUTPUT SOFTWARE MESSAGES P* ~ P* . PDCSTR1 DATA 0 WORK AREA FOR NO TRAFFIC+ACK $ PDCSTRX DATA 0 SAVE LAST SID TEXT PDCSTR3 DATA /1030,0 TRAFFIC
0x1a2340…1a24d4 (1, 329) Dummy {f00=0x0082, f01=0x0190, f02=»ATA /103B,0 THRU , PDCSTR8 DATA /103D,0 DEVICE NOT OPERABLE , PDCSTR9 DATA 0 REQUEST PROCESSOR MESSAGE H P EJECT x P* P* P* CONSTANTS AND WORK AREAS P* P* & PDCONOF DATA 0 ON- / OFFLINESWITCH * PDCSTOL DATA 0
0x1a24d4…1a2668 Dummy {f00=0x0082, f01=0x4074, f02=»EUE t , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL $ PDCLCI DATA 0 DC UNIT I/P STATUS < P END d@ p P EJECT x P* P* P* CONSTANTS AND WORK AREAS P* P* & PDCONOF DATA 0 ON- / OFFLINESWITCH * PDCSTOL DATA 0
0x1a2668…1a27fc Dummy {f00=0x0082, f01=0x2008, f02=» ENTRY POINT { * PDC:TAB DATA 2 DC TAB'S VARIABLE LENGTH | * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 | J PDC:END EQU * END OF TABLE | x P END | @ | PLOGEND EQU *-4 { PSAVE2 DATA 0 { PSAVE3 DATA 0 { P XIF { P* { P* {
0x1a27fc…1a2990 Dummy {f00=0x0082, f01=0x0190, f02=»WTDRD EQU /1A ( P XIF ) P* ) " P IFT MMUPAG=0 ) , PSTART EQU DWTDRD ) B P XIF ) Z P* ) f P IFT MMUPAG=1 ) p PSTART EQU DWTDRD+4 ) P XIF ) P* ) P IFT STAT=1 ) > PDWTSBU EQU START-/A DWT DC REL OFFSET TO STATISTIC BUFFER )
0x1a2990…1a2b24 Dummy {f00=0x0082, f01=0x0190, f02=»OCAL DTE ADDRESS ) x , PDWTSUB EQU START-2 POSSIBLE SUB ADDRESS * P XIF * H . PDWTTIM EQU START APPLICATION TIMEOUT VALUE * T . PDWTMOD EQU START+2 ACTUAL MODE OF THE DLS * * PDWTCON EQU START+4 TYPE OF CONNECTION * ( PDWTTRM EQU START+6 TRANSMISSION MO
0x1a2b24…1a2cb8 Dummy {f00=0x0082, f01=0x0190, f02=»ATOR * h 0 PDWTPTP EQU START+/0E PROCEDURE TIMER POINTER + . PDWTRTP EQU START+/10 REQUEST TIMER POINTER + @ 8 PDWTMTP EQU START+/12 MODEM SUPERVISORY TIMER POINTER + r , PDWTITP EQU START+/14 IDLE TIMER POINTER + 8 PDWTCTP EQU START+/16 MODEM CONNECTION TIME
0x1a2cb8…1a2e4c Dummy {f00=0x0082, f01=0x0190, f02=»COUNTER + l & PDWTLRS EQU START+/1E LAST RESPONSE , $ PDWTCNT EQU START+/20 ACK COUNTER , : & PDWTDLE EQU START+/22 DLE INDICATOR , b 4 PDWTCMP EQU START+/24 SPACE COMPRESSION WORK AREA , P IFT CPU852=0 , 6 PDWTSAV EQU START+/26 SAVE AREA FOR REGISTERS A
0x1a2e4c…1a2fe0 Dummy {f00=0x0082, f01=0x0190, f02=» REGISTERS A3-A5,A7,A8 , n 4 PDWTSTB EQU START+/46 STACK BASE (6 LEVELS STACK) - P XIF - V P EJECT - b P* - p < P******************************************************* - z < P******************************************************* - P* - P* -
0x1a2fe0…1a3174 (1, 330) Opaque[0x194]
0x1a3174…1a3308 # DirEnt {nam=»DRDC81«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1058, f03=0x0000}
0x1a3174…1a3308 IdxSect {
0x1a3174…1a3308 f00 = 0x0082 // 0x1a3174 @0x0
0x1a3174…1a3308 f01 = 0x0040 // 0x1a3176 @0x2
0x1a3174…1a3308 gno = [ // 0x1a3178 @0x4
0x1a3174…1a3308 [0x00]: C0x0082.0x3.0
0x1a3174…1a3308 [0x01]: C0x0083.0x0.0
0x1a3174…1a3308 [0x02]: C0x0083.0x1.0
0x1a3174…1a3308 [0x03]: C0x0083.0x2.0
0x1a3174…1a3308 [0x04]: C0x0083.0x3.0
0x1a3174…1a3308 [0x05]: C0x0084.0x0.0
0x1a3174…1a3308 [0x06]: C0x0084.0x1.0
0x1a3174…1a3308 [0x07]: C0x0084.0x2.0
0x1a3174…1a3308 [0x08]: C0x0084.0x3.0
0x1a3174…1a3308 [0x09]: C0x0085.0x0.0
0x1a3174…1a3308 [0x0a]: C0x0085.0x1.0
0x1a3174…1a3308 [0x0b]: C0x0085.0x2.0
0x1a3174…1a3308 [0x0c]: C0x0085.0x3.0
0x1a3174…1a3308 [0x0d]: C0x0086.0x0.0
0x1a3174…1a3308 [0x0e]: C0x0086.0x1.0
0x1a3174…1a3308 [0x0f]: C0x0086.0x2.0
0x1a3174…1a3308 [0x10]: C0x0086.0x3.0
0x1a3174…1a3308 [0x11]: C0x0087.0x0.0
0x1a3174…1a3308 [0x12]: C0x0087.0x1.0
0x1a3174…1a3308 [0x13]: C0x0087.0x2.0
0x1a3174…1a3308 [0x14]: C0x0087.0x3.0
0x1a3174…1a3308 [0x15]: C0x0088.0x0.0
0x1a3174…1a3308 [0x16]: C0x0088.0x1.0
0x1a3174…1a3308 [0x17]: C0x0088.0x2.0
0x1a3174…1a3308 [0x18]: C0x0088.0x3.0
0x1a3174…1a3308 [0x19]: C0x0089.0x0.0
0x1a3174…1a3308 [0x1a]: C0x0089.0x1.0
0x1a3174…1a3308 [0x1b]: C0x0089.0x2.0
0x1a3174…1a3308 [0x1c]: C0x0089.0x3.0
0x1a3174…1a3308 [0x1d]: C0x008a.0x0.0
0x1a3174…1a3308 [0x1e]: C0x008a.0x1.0
0x1a3174…1a3308 [0x1f]: C0x008a.0x2.0
0x1a3174…1a3308 ]
0x1a3174…1a3308 }
0x1a3308…1a349c Dummy {f00=0x0082, f01=0x0190, f02=» 2 P IDENT DRDC81 REL 11.0 81-01-26 870105041100 P : " P =4, ERROR IN ABORT ROUTINE B P PRR 10.0 80-02-15 h & P =3, ABORT ROUTINE FOR REL 11.0 P PRR 10.0 80-02-15 P =2, DC:MIN HEADER P REL 10.1 80-01-08 P =1,
0x1a349c…1a3630 Dummy {f00=0x0082, f01=0x0190, f02=»6800 CONCENTRATOR v P* . P* DRDC81 = BSC MASTER DATA COMMUNICATION $ P* V P* ` P* j P* t P* ~ P* P* < P******************************************************* P* 0 P* THIS DRIVER PERFORMS DATA COMM
0x1a3630…1a37c4 Dummy {f00=0x0082, f01=0x0190, f02=»* LINE PROCEDURE: BSC MASTER FOR MULTIPOINT DATA LINK P* @ < P******************************************************* J P* $ P* STANDARD USE OF REGISTERS : P* P* A1 WORK REGISTER " P* A2 I/O AND WORK REGISTER
0x1a37c4…1a3958 Dummy {f00=0x0082, f01=0x0190, f02=»PUT DWT ADDRESS P* A8 ECB ADDRESS P* 4 < P******************************************************* > P EJECT ~ P* < P******************************************************* P* P* ENTRY POINTS P* < P********
0x1a3958…1a3aec Dummy {f00=0x0082, f01=0x0190, f02=»LERS , INPUT AND OUTPUT t P ENTRY IH8103 P P ENTRY IH8105,IH8107,IH8109,IH8111,IH8113,IH8115,IH8117,IH8119,IH8121,IH8123 6 P ENTRY IH8123 P ENTRY IH8102,IH8104 P P ENTRY IH8106,IH8108,IH8110,IH8112,IH8114,IH8116,IH8118,IH8120,IH8122,IH8124
0x1a3aec…1a3c80 Dummy {f00=0x0082, f01=0x0190, f02=»114,DW8116,DW8118 P ENTRY DW8120,DW8122,DW8124 , P ENTRY DW8101,DW8103,DW8105 INPUT DWT:S > P ENTRY DW8107,DW8109,DW8111 n P ENTRY DW8113,DW8115,DW8117 P ENTRY DW8119,DW8121,DW8123 P EJECT P* < P**********************
0x1a3c80…1a3e14 (1, 331) Dummy {f00=0x0083, f01=0x0190, f02=»*********** d P* " P EXTRN TDISP DISPATCHER ENTRY $ P EXTRN TENDIO REQUEST COMPLETION D , P EXTRN DISEND THE ENTIES ABOVE TOGETHER l P EXTRN DISIOE REQUEST ERROR ( P EXTRN SETIME SET TIMER CALL ADDRESS P EXTRN SETIMP P EXTRN
0x1a3e14…1a3fa8 Dummy {f00=0x0083, f01=0x0190, f02=»XTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH ( P EXTRN ECBRC ECB RETURN CODE R " P EXTRN ECBCW ECB CONTROL WORD v P EXTRN ILLINT P EXTRN INTSAV . P EXTRN PFPOST WAIT FOR POWER UP IF SET =1 P EJECT P
0x1a3fa8…1a413c Dummy {f00=0x0083, f01=0x0190, f02=» * P************************** P* 6 P* @ P* J P* T " P* CONDITIONAL ASSEMBLYy ^ " P***************************** P* P* P* P* PX:A EQU 1 . P* X:A = NUMBER OF LINES HANDLED BY D
0x1a413c…1a42d0 Dummy {f00=0x0083, f01=0x0190, f02=» $ PPLTLEN EQU X:B POLL LIST LENGTH P* , P* 6 PX:C EQU 350 @ P* X:C = MAX BLOCKLENGTH T 4 PMAXTBL EQU X:C MAX LENGTH OF TRANSMISSION BLOCK t P* P* PX:D EQU 400 PLOGG EQU X:D @ P* IF X:D IS UNEQUAL TO ZERO, THE
0x1a42d0…1a4464 Dummy {f00=0x0083, f01=0x0190, f02=»RY r 6 PRTYSYS EQU X:E RETRY LIMIT FOR RECOVERY ( SYSGEN ) P* D PX:F EQU 0 N P* ` 0 PSALCUZ EQU X:F IF =X:F DC CONTROL UNIT 6834 j " P =1 DC CONTROL UNIT 6857 P* P IFF SALCUZ=1 P* P* P* PX:G EQ
0x1a4464…1a45f8 Dummy {f00=0x0083, f01=0x0190, f02=»E 02 l P* P* PX:I EQU /5 , P* X:I = INPUT DEVICE ADDRESS FOR LINE 03 2 P* b P* l PX:J EQU /6 v , P* X:J = INPUT DEVICE ADDRESS FOR LINE 04 P* P* PX:K EQU /7 , P* X:K = INPUT DEVICE ADDRESS FOR LINE 05
0x1a45f8…1a478c Dummy {f00=0x0083, f01=0x0190, f02=»X:M = INPUT DEVICE ADDRESS FOR LINE 07 P* . P* 8 PX:N EQU /23 B , P* X:N = INPUT DEVICE ADDRESS FOR LINE 08 V P* P* PX:O EQU /24 , P* X:O = INPUT DEVICE ADDRESS FOR LINE 09 P* P* PX:P EQU /25 , P*
0x1a478c…1a4920 Dummy {f00=0x0083, f01=0x0190, f02=» P* PX:R EQU /27 , P* X:R = INPUT DEVICE ADDRESS FOR LINE 12 & P* V P* ` P* j P XIF t P IFT SALCUZ=1 P* P* P* PX:G EQU /0A , P* X:G = INPUT DEVICE ADDRESS FOR LINE 01 P* P*
0x1a4920…1a4ab4 (1, 332) Dummy {f00=0x0083, f01=0x0190, f02=» P* P* PX:S EQU 1000 MMU-BUFFER SIZE P* X:S = BUFFER SIZE IN WORDS @ PTBUFL EQU X:S d P* z P* PMMUPAG EQU 0 , P* IF MMUPAG = 1 MMU-PAGING IS INCLUDED P* PCPU852 EQU 1 * P IF CPU852=1 NO MULT
0x1a4ab4…1a4c48 Dummy {f00=0x0083, f01=0x0190, f02=»+TBUFL MMU BUFFER SIZE P EJECT P* , < P******************************************************* 6 P* v P* SYSTEM PARAMETERS P* < P******************************************************* P* PLINE01 EQU PLTLEN
0x1a4c48…1a4ddc Dummy {f00=0x0083, f01=0x0190, f02=»07 EQU PLTLEN PLINE08 EQU PLTLEN PLINE09 EQU PLTLEN 0 PLINE10 EQU PLTLEN J PLINE11 EQU PLTLEN d PLINE12 EQU PLTLEN ~ 0 PTIMRE4 EQU 2 RECEIVE TIMEOUT 4-WIRE (200MS) & PTIMMRY EQU 5 MODEM READY TIME OUT " PTIMACT EQU 150 ACT
0x1a4ddc…1a4f70 Dummy {f00=0x0083, f01=0x0190, f02=» AT STATUS POLL HALTED v & PBSYTIM EQU 50 TIME OUT FOR TC BUSY " PTIMENQ EQU 40 TIME OUT FOR ENQ H PBDA EQU 0 n B P* IF BDA = 1, TC ADDRESSES ARE ADAPTED FOR THE BANKDATA CASE: " P* INPUT = /41 -/4F (A - O) L P* OUTPUT = ADDRESSES ACCO
0x1a4f70…1a5104 Dummy {f00=0x0083, f01=0x0190, f02=»DED, SAVING h H P* LINE NUMBER, ORDER, RETURN CODE AND TID FOR THE 100 LAST REQUESTS. P EJECT ` P* n P* x P* CONSTANTS P* P* PBIT0 EQU /8000 PBIT1 EQU /4000 PBIT2 EQU /2000 PBIT3 EQU /1000 PBIT4 E
0x1a5104…1a5298 Dummy {f00=0x0083, f01=0x0190, f02=» PBIT11 EQU /10 PBIT12 EQU 8 PBIT13 EQU 4 2 PBIT14 EQU 2 F PBIT15 EQU 1 Z P EJECT n > P********************************************************* | P* 4 P* APPLICATION INTERFACE : ORDERS AND RETURNCODES P* >
0x1a5298…1a542c Dummy {f00=0x0083, f01=0x0190, f02=»- READ P* /06 - WRITE P* /22 - OPEN LINE $ P* /24 - CLOSE LINE > P* /26 - HALT POLLING X P* /27 - START POLLING t P* /37 - OPEN TC P* /38 - CLOSE TC P EJECT P* P* RETURN CODES: P* 4 P* STATUS WOR
0x1a542c…1a55c0 Dummy {f00=0x0083, f01=0x0190, f02=»=0 | P* 4 PMODNOP EQU BIT15 MODEM NOT OPERABLE, ALL ORDERS , PNORESP EQU BIT14 NO RESPONSE, ORDER /00 L < PTCINPL EQU BIT14 TC ALLREADY IN POLLING LIST, ORDER /37 | : PPOLPER EQU BIT14 POLLING ALLREADY PERMITTED, ORDER /27 0 PCODERR EQU BIT
0x1a55c0…1a5754 (1, 333) Dummy {f00=0x0083, f01=0x0190, f02=»/37 b ( PTCBUSY EQU BIT10 TC BUS , ORDER /06 2 PRETRAN EQU BIT7 RETRANSMISSION, ORDER /02, /06 8 0 PCALIND EQU BIT6 CALLING INDICATOR, NOT USED n 6 PLINSTE EQU BIT4+BIT0 LINE OPEN/CLOSED, ALL ORDERS 2 PPOLHLT EQU BIT4+BIT0 POLLING HALTED, ORDER/0
0x1a5754…1a58e8 Dummy {f00=0x0083, f01=0x0190, f02=» LIST, ORDER /06, /38 r 0 PINVTCA EQU BIT0 INVALID TCA, ORDER /02, /37 P EJECT R P* ` < P******************************************************* j P* P* DEVICE WORK AREA EQUATES P* < P****************************************
0x1a58e8…1a5a7c Dummy {f00=0x0083, f01=0x018e, f02=» IFF MMUPAG=0 6 PDWTDRD EQU /14 START OF DRIVER DEFINED PART OF DWT P XIF P P* * PDWTTP EQU DWTDRD+/00 DWT TIMER POINTER f 0 PDWTATP EQU DWTDRD+/02 ACTIVITY TIMER POINTER " PSTB EQU DWTDRD+/0E STACK BASE ( PDWTSAV EQU DWTDRD+/10 DWT
0x1a5a7c…1a5c10 Dummy {f00=0x0083, f01=0x0190, f02=» , PDWTST1 EQU DWTDRD+/1C CU 6857 STATUS IND & P O/P : =0 O/P NOT ACT >0 O/P ACT 4 & P I/P : =0 I/P NOT ACT >0 I/P ACT ^ , PDWTRTY EQU DWTDRD+/1E DWT RETRY COUNTER * PDWTBCC EQU DWTDRD+/20 DWT BCC COUNTER * PDWTACK EQU DWTDRD+/22 DWT ACK COUN
0x1a5c10…1a5da4 Dummy {f00=0x0083, f01=0x018e, f02=» POLLIST ADDRESS IN OUTPUT DWT | $ PTPCONT EQU /14 TP ERROR COUNTER & . PSYNCON EQU DWTATP SYN COUNTER (DWTATP,A7) N P EJECT P* P* P* & P* CONDITIONAL ASSEMBLY PARAMETERS P* P IFF LINE01=0 PMLIN01 EQU 1 AT LE
0x1a5da4…1a5f38 Dummy {f00=0x0083, f01=0x0190, f02=» P IFF HILINO=3 " PMLIN04 EQU 1 AT LEAST 4 LINES P IFF HILINO=4 @ PMLIN05 EQU 1 AT LEAST 5LINES V P IFF HILINO=5 z " PMLIN06 EQU 1 AT LEAST 6 LINES P IFF HILINO=6 " PMLIN07 EQU 1 AT LEAST 7 LINES P IFF HILINO=7 " P
0x1a5f38…1a60cc Dummy {f00=0x0083, f01=0x0190, f02=»LEAST 10 LINES P IFF HILINO=10 " PMLIN11 EQU 1 AT LEAST 11 LINES , P IFF HILINO=11 R PMLIN12 EQU 1 12 LINES h P XIF P IFF HILINO=12 PMLIN12 EQU 0 LESS THAN 12 P IFF HILINO=11 PMLIN11 EQU 0 LESS THAN 11 P IFF H
0x1a60cc…1a6260 Dummy {f00=0x0083, f01=0x018e, f02=»QU 0 LESS THAN 8 P IFF HILINO=7 PMLIN07 EQU 9 LESS THAN 7 . P IFF HILINO=6 N PMLIN06 EQU 0 LESS THAN 6 d P IFF HILINO=5 PMLIN05 EQU 0 LESS THAN 5 P IFF HILINO=4 PMLIN04 EQU 0 LESS THAN 4 P IFF HILINO=3 PML
0x1a6260…1a63f4 (1, 334) Dummy {f00=0x0083, f01=0x018e, f02=» P XIF P EJECT P* < P******************************************************* ( P* h P* DWT STATUS WORD CONTENTS r P* < P******************************************************* P* ( P* DWTST BIT #00 : 0 = DEVICE B
0x1a63f4…1a6588 Dummy {f00=0x0083, f01=0x0190, f02=» d 2 P* 1 = HALT POLLING INITIATED ( P* BIT #15 : 0 = LINE CLOSED > & P* 1 = LINE OPEN j P* < P******************************************************* P* $ P* CHLC RECEIVER STATUS CONTENTS
0x1a6588…1a671c Dummy {f00=0x0083, f01=0x0190, f02=»TED d $ P* : /01 = MODEM NOT READY & P* : /02 = THROUGHPUT ERROR 4 * P* : /20 = CARRIER NOT DETECTED ^ & P* : /40 = CALLING INDICATOR P* < P******************************************************* P EJECT
0x1a671c…1a68b0 Dummy {f00=0x0083, f01=0x0190, f02=» < P******************************************************* ! P* ! D PSYN EQU /16 ! N PPAD EQU /7F TRAILING PAD ! b PDLE EQU /10 DATA LINK ESCAPE ! $ PEOT EQU /04 END OF TRANSMISSION ! PENQ EQU /85 ENQUIRY ! PSTX EQU /02 START OF TEXT !
0x1a68b0…1a6a44 Dummy {f00=0x0083, f01=0x0190, f02=»ITH PARITY ! ~ ( PNAK EQU /15 NEGATIVE ACKNOWLEDGEMENT " PGP EQU /22 GENERAL POLL " > $ PPAR:0 EQU /B0 ZERO (ODD PARITY) " ^ 6 PSEMIKO EQU /3B SECOND CHARACTER IN WACK, AFTER DLE " P EJECT " P* " F P************************************************
0x1a6a44…1a6bd8 Dummy {f00=0x0083, f01=0x0190, f02=»********************************************* " | P* # 6 P IFT SALCUZ=1 # @ PCBNPAR EQU /0 NO PARITY # V " PCBEPAR EQU /4 EVEN CHAR PARITY # v " PCBOPAR EQU /C ODD CHAR PARITY # * PPARITY EQU CBNPAR ODD PARITY FOR ASCII # P XIF # P IFF SALCU
0x1a6bd8…1a6d6c Dummy {f00=0x0083, f01=0x0190, f02=» /1 CIO DISCONNECT MODEM FROM LINE # PCBSTOP EQU /0 CIO STOP CU $ * P XIF $ L P* $ Z P* $ d P* $ n P* $ x . PSBNOOP EQU /1 SST STAUS MODEM NOT OPERABEL $ $ PSBTHRU EQU /02 THROUGHPUT ERROR $ " PSBPARI EQU /04 CHAR PAR ERROR $ PSBCARR
0x1a6d6c…1a6f00 Dummy {f00=0x0083, f01=0x018e, f02=»R,SBCALL $ | P EJECT % P* % < P******************************************************* % ( P* % h " P* CHLC DEVICE ADDRESS EQUATES % r P* % < P******************************************************* % P* % PDAMI01 EQU X:G INPUT CHLC 1
0x1a6f00…1a7094 (1, 335) Dummy {f00=0x0084, f01=0x0190, f02=» PDAMI06 EQU X:L & PDAMI07 EQU X:M & PDAMI08 EQU X:N & 0 PDAMI09 EQU X:O & F PDAMI10 EQU X:P & PDAMI11 EQU X:Q & r PDAMI12 EQU X:R & ( PDAMU01 EQU DAMI01+/10 OUTPUT CHLC 1 & PDAMU02 EQU DAMI02+/10 & PDAMU03 EQU DAMI03+/10 & PDA
0x1a7094…1a7228 Dummy {f00=0x0084, f01=0x018e, f02=»/10 & ~ PDAMU09 EQU DAMI09+/10 ' PDAMU10 EQU DAMI10+/10 ' * PDAMU11 EQU DAMI11+/10 ' H PDAMU12 EQU DAMI12+/10 ' f P* ' P XIF ' P* ' P* ' P* ' P IFT SALCUZ=1 ' P* ' & PDAMU01 EQU DAMI01+1 OUTPUT CHLC 1 ' PDAMU02
0x1a7228…1a73bc Dummy {f00=0x0084, f01=0x0190, f02=» $ PDWMTAB DATA DWMTE-* TABLE LENGTH ( ( P DATA DW8101 DWT FOR INPUT ON LINE 1 ( , 6 P DATA DW8102 DWT FOR OUTPUT AND CONTROL ON LINE 1 ( X P IFF HILINO=1 ( P DATA DW8104,DW8103 ( P IFF HILINO=2 ( P DATA DW8106,DW8105 ( P IFF HILINO=3 (
0x1a73bc…1a7550 Dummy {f00=0x0084, f01=0x0190, f02=» HILINO=6 ( P DATA DW8114,DW8113 ) P IFF HILINO=7 ) . P DATA DW8116,DW8115 ) D P IFF HILINO=8 ) ` P DATA DW8118,DW8117 ) v P IFF HILINO=9 ) P DATA DW8120,DW8119 ) P IFF HILINO=10 ) P DATA DW8122,DW8121 ) P IFF HILINO=11 )
0x1a7550…1a76e4 Dummy {f00=0x0084, f01=0x0190, f02=»*********** ) ~ " P* * * P* DEVICE WORK TABLES * * : " P* * * X " P***************************** * ~ P* * P IFF LINE01=0 * P* * P* * 8 P* DEVICE WORK TABLE FOR LINE 01, OUTPUT AND CONT
0x1a76e4…1a7878 Dummy {f00=0x0084, f01=0x0190, f02=»ICE READY * l P DATA 0 ECB ADDRESS + P DATA 0 ORDER + . * P DATA DRMUAD POINTER TO ADDRESS BLOCK + D P DATA 0 TTAB ADDRESS + r $ P DATA 0 WAIT/ACTIVATE INDICATOR + & P DATA 0 TASK QUEUE FOR THIS DEVICE + P IFT MMUPAG=1 + P DATA 0 ADDRESS OF
0x1a7878…1a7a0c Dummy {f00=0x0084, f01=0x0190, f02=»VITY TIMER POINTER + & P DATA 0,0,0,0,0,0 SUBROUTINE STACK , P RES 3 SAVE AREA FOR A3-A5 , D $ P DATA DW8102 OUTPUT DWT ADDRESS , f " P DATA DW8101 INPUT DWT ADDRESS , P DATA 0 SAVE AREA FOR A8 , P DATA 0 CU 6857 I/O IND , P DATA 0 RETRY COUNTE
0x1a7a0c…1a7ba0 Dummy {f00=0x0084, f01=0x018e, f02=»INE01 LENGTH OF POLLIST , P RES LINE01 POLLIST - P DATA /FFFF - < P* - P P IFT MMUPAG=1 - Z , PMECB02 DATA 0,DCBF02,0,0,0,0 DRIVER ECB - p ( PDCBF02 RES TBUFL+1 OUTPUT MMU-BUFFER - P XIF - P IFT MLIN01=1 - P EJECT - P* - P*
0x1a7ba0…1a7d34 (1, 336) Dummy {f00=0x0084, f01=0x0190, f02=» - r 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY . P DATA 0 ECB ADDRESS . > P DATA 0 ORDER . Z * P DATA DRMIAD POINTER TO ADDRESS BLOCK . p P DATA 0 TTAB ADDRESS . $ P DATA 0 WAIT/ACTIVATE INDICATOR . & P DATA 0 TASK QUEUE FOR THIS DEVICE .
0x1a7d34…1a7ec8 Dummy {f00=0x0084, f01=0x018e, f02=»TIMER POINTER . " P DATA 0 ACTIVITY TIMER POINTER / & P DATA 0,0,0,0,0,0 SUBROUTINE STACK / < P RES 3 SAVE AREA FOR A3-A5 / f $ P DATA DW8102 OUTPUT DWT ADDRESS / " P DATA DW8101 INPUT DWT ADDRESS / P DATA 0 SAVE AREA FOR A8 / P DATA 0 CU 6857 I/
0x1a7ec8…1a805c Dummy {f00=0x0084, f01=0x0190, f02=» / P IFT MLIN02=1 0 P EJECT 0 P* 0 , P* 0 6 8 P* DEVICE WORK TABLE FOR LINE 02, OUTPUT AND CONTROL 0 @ P* 0 | P* 0 PDW8104 EQU * TABLE ENTRY 0 P DATA DAMU02 DEVICE ADDRESS 0 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY 0
0x1a805c…1a81f0 Dummy {f00=0x0084, f01=0x0190, f02=»IT/ACTIVATE INDICATOR 0 & P DATA 0 TASK QUEUE FOR THIS DEVICE 1 P IFT MMUPAG=1 1 H P DATA 0 ADDRESS OF USER ECB 1 ^ P DATA MECB04 DRIVER ECB 1 P XIF 1 P IFT MLIN02=1 1 P DATA 0 TIMER POINTER 1 " P DATA 0 ACTIVITY TIMER POINTER 1 & P
0x1a81f0…1a8384 Dummy {f00=0x0084, f01=0x0190, f02=»WT ADDRESS 1 | P DATA 0 SAVE AREA FOR A8 2 P DATA 0 CU 6857 I/O IND 2 2 P DATA 0 RETRY COUNTER 2 R P DATA 0 BCC COUNTER 2 p P DATA 0 ACK COUNTER 2 P DATA 0 PACT 2 P DATA 0 PINACT 2 P DATA LINE02+LINE02 2 P RES LINE02 2 P DATA
0x1a8384…1a8518 Dummy {f00=0x0084, f01=0x0190, f02=» P IFT MLIN02=1 3 P* 3 P EJECT 3 $ P* 3 2 P* 3 < * P* DEVICE WORK TABLE FOR LINE 02, INPUT 3 F P* 3 t P* 3 ~ PDW8103 EQU * TABLE ENTRY 3 P DATA DAMI02 DEVICE ADDRESS 3 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY 3 P DATA
0x1a8518…1a86ac Dummy {f00=0x0084, f01=0x0190, f02=»ATE INDICATOR 3 ~ & P DATA 0 TASK QUEUE FOR THIS DEVICE 4 P IFT MMUPAG=1 4 @ P DATA 0 ADDRESS OF USER ECB 4 V P DATA MECB03 DRIVER ECB 4 z P XIF 4 P IFT MLIN02=1 4 P DATA 0 TIMER POINTER 4 " P DATA 0 ACTIVITY TIMER POINTER 4 & P DATA 0,
0x1a86ac…1a8840 Dummy {f00=0x0084, f01=0x018e, f02=»SS 4 t P DATA 0 SAVE AREA FOR A8 5 P DATA 0 CU 6857 I/O IND 5 * P IFT MMUPAG=1 5 J , PMECB03 DATA 0,DCBF03,0,0,0,0 DRIVER ECB 5 ` & PDCBF03 RES TBUFL+1 INPUT MMUBUFFER 5 P XIF 5 P IFT MLIN03=1 5 P EJECT 5 P* 5 P* 5 8 P* DEVICE W
0x1a8840…1a89d4 (1, 337) Dummy {f00=0x0084, f01=0x0190, f02=» 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY 6 P DATA 0 ECB ADDRESS 6 : P DATA 0 ORDER 6 V * P DATA DRMUAD POINTER TO ADDRESS BLOCK 6 l P DATA 0 TTAB ADDRESS 6 $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 & P DATA 0 TASK QUEUE FOR THIS DEVICE 6 P
0x1a89d4…1a8b68 Dummy {f00=0x0084, f01=0x018e, f02=»0 ACTIVITY TIMER POINTER 6 & P DATA 0,0,0,0,0,0 SUBROUTINE STACK 7 P RES 3 SAVE AREA FOR A3-A5 7 J $ P DATA DW8106 OUTPUT DWT ADDRESS 7 l " P DATA DW8105 INPUT DWT ADDRESS 7 P DATA 0 SAVE AREA FOR A8 7 P DATA 0 CU 6857 I/O IND 7 P DATA 0 RETRY
0x1a8b68…1a8cfc Dummy {f00=0x0084, f01=0x0190, f02=» 7 z P RES LINE03 8 P DATA /FFFF 8 P IFT MMUPAG=1 8 0 , PMECB06 DATA 0,DCBF06,0,0,0,0 DRIVER ECB 8 F ( PDCBF06 RES TBUFL+1 OUTPUT MMU BUFFER 8 v P XIF 8 P IFT MLIN03=1 8 P* 8 P EJECT 8 P* 8 P* 8 * P* DEVICE WORK TABLE FOR
0x1a8cfc…1a8e90 Dummy {f00=0x0084, f01=0x0190, f02=» MEANS DEVICE READY 8 v P DATA 0 ECB ADDRESS 9 P DATA 0 ORDER 9 8 * P DATA DRMIAD POINTER TO ADDRESS BLOCK 9 N P DATA 0 TTAB ADDRESS 9 | $ P DATA 0 WAIT/ACTIVATE INDICATOR 9 & P DATA 0 TASK QUEUE FOR THIS DEVICE 9 P IFT MMUPAG=1 9 P DATA 0
0x1a8e90…1a9024 Dummy {f00=0x0084, f01=0x0190, f02=»OINTER 9 x & P DATA 0,0,0,0,0,0 SUBROUTINE STACK : P RES 3 SAVE AREA FOR A3-A5 : 8 $ P DATA DW8106 OUTPUT DWT ADDRESS : Z " P DATA DW8105 INPUT DWT ADDRESS : P DATA 0 SAVE AREA FOR A8 : P DATA 0 CU 6857 I/O IND : P IFT MMUPAG=1 : , PMECB05 DAT
0x1a9024…1a91b8 Dummy {f00=0x0084, f01=0x0190, f02=»VICE WORK TABLE FOR LINE 04, OUTPUT AND CONTROL : P* ; 8 P* ; B PDW8108 EQU * TABLE ENTRY ; L P DATA DAMU04 DEVICE ADDRESS ; l 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY ; P DATA 0 ECB ADDRESS ; P DATA 0 ORDER ; * P DATA DRMUAD POI
0x1a91b8…1a934c Dummy {f00=0x0084, f01=0x0190, f02=» P IFT MMUPAG=1 < P DATA 0 ADDRESS OF USER ECB < P DATA MECB08 DRIVER ECB < > P XIF < ^ P IFT MLIN04=1 < j P DATA 0 TIMER POINTER < " P DATA 0 ACTIVITY TIMER POINTER < & P DATA 0,0,0,0,0,0 SUBROUTINE STACK < P RES 3 SAVE AREA FOR A3-A5
0x1a934c…1a94e0 Dummy {f00=0x0084, f01=0x018e, f02=»O IND < ~ P DATA 0 RETRY COUNTER = P DATA 0 BCC COUNTER = , P DATA 0 ACK COUNTER = H P DATA 0 PACT = d P DATA 0 PINACT = x P DATA LINE04+LINE04 = P RES LINE04 = P DATA /FFFF = P IFT MMUPAG=1 = , PMECB08 DATA 0,DCBF08,0,0,0,0 DRI
0x1a94e0…1a9674 (1, 338) Dummy {f00=0x0084, f01=0x0190, f02=» * P* DEVICE WORK TABLE FOR LINE 04, INPUT > P* > 2 P* > < PDW8107 EQU * TABLE ENTRY > F P DATA DAMI04 DEVICE ADDRESS > f 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY > P DATA 0 ECB ADDRESS > P DATA 0 ORDER > * P DATA DRMIAD POINTER T
0x1a9674…1a9808 Dummy {f00=0x0084, f01=0x0190, f02=»FT MMUPAG=1 > P DATA 0 USER BUFFER ? P DATA MECB07 DRIVER ECB ? 0 P XIF ? P P IFT MLIN04=1 ? P DATA 0 TIMER POINTER ? r " P DATA 0 ACTIVITY TIMER POINTER ? & P DATA 0,0,0,0,0,0 SUBROUTINE STACK ? P RES 3 SAVE AREA FOR A3-A5 ? $ P DATA
0x1a9808…1a999c Dummy {f00=0x0084, f01=0x0190, f02=»MECB07 DATA 0,DCBF07,0,0,0,0 DRIVER ECB ? ( PDCBF07 RES TBUFL+1 MMU BUFFER INPUT @ 0 P XIF @ P IFT MLIN05=1 @ h P EJECT @ ~ P* @ P* @ 8 P* DEVICE WORK TABLE FOR LINE 05, OUTPUT AND CONTROL @ P* @ P* @ PDW8110 EQU * TABLE ENTRY
0x1a999c…1a9b30 Dummy {f00=0x0084, f01=0x0190, f02=»DER @ * P DATA DRMUAD POINTER TO ADDRESS BLOCK A P DATA 0 TTAB ADDRESS A : $ P DATA 0 WAIT/ACTIVATE INDICATOR A V & P DATA 0 TASK QUEUE FOR THIS DEVICE A ~ P IFT MMUPAG=1 A P DATA 0 USER ECB A P DATA MECB10 DRIVER ECB A P XIF A P IFT M
0x1a9b30…1a9cc4 Dummy {f00=0x0084, f01=0x0190, f02=»E AREA FOR A3-A5 A $ P DATA DW8110 OUTPUT DWT ADDRESS B " P DATA DW8109 INPUT DWT ADDRESS B @ P DATA 0 SAVE AREA FOR A8 B f P DATA 0 CU 6857 I/O IND B P DATA 0 RETRY COUNTER B P DATA 0 BCC COUNTER B P DATA 0 ACK COUNTER B P DATA 0 PACT
0x1a9cc4…1a9e58 Dummy {f00=0x0084, f01=0x0190, f02=»BF10,0,0,0,0 DRIVER ECB B ( PDCBF10 RES TBUFL+1 MMUBUFFER OUTPUT C P XIF C L P IFT MLIN05=1 C X P* C n P EJECT C x P* C P* C * P* DEVICE WORK TABLE FOR LINE 05, INPUT C P* C P* C PDW8109 EQU * TABLE ENTRY C P DATA DAMI05
0x1a9e58…1a9fec Dummy {f00=0x0084, f01=0x0190, f02=»MIAD POINTER TO ADDRESS BLOCK C P DATA 0 TTAB ADDRESS D & $ P DATA 0 WAIT/ACTIVATE INDICATOR D B & P DATA 0 TASK QUEUE FOR THIS DEVICE D j P IFT MMUPAG=1 D P DATA 0 USER ECB D P DATA MECB09 DRIVER ECB D P XIF D P IFT MLIN05=1 D P DAT
0x1a9fec…1aa180 Dummy {f00=0x0084, f01=0x0190, f02=» $ P DATA DW8110 OUTPUT DWT ADDRESS E " P DATA DW8109 INPUT DWT ADDRESS E , P DATA 0 SAVE AREA FOR A8 E R P DATA 0 CU 6857 I/O IND E r P IFT MMUPAG=1 E , PMECB09 DATA 0,DCBF09,0,0,0,0 DRIVER ECB E ( PDCBF09 RES TBUFL+1 MMU BUFFER INPUT E P XIF
0x1aa180…1aa314 (1, 339) Dummy {f00=0x0085, f01=0x0190, f02=» E PDW8112 EQU * TABLE ENTRY F P DATA DAMU06 DEVICE ADDRESS F ( 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY F L P DATA 0 ECB ADDRESS F P DATA 0 ORDER F * P DATA DRMUAD POINTER TO ADDRESS BLOCK F P DATA 0 TTAB ADDRESS F $ P DATA 0 WA
0x1aa314…1aa4a8 Dummy {f00=0x0085, f01=0x0190, f02=»R ECB F ~ P XIF G P IFT MLIN06=1 G P DATA 0 TIMER POINTER G 0 " P DATA 0 ACTIVITY TIMER POINTER G N & P DATA 0,0,0,0,0,0 SUBROUTINE STACK G t P RES 3 SAVE AREA FOR A3-A5 G $ P DATA DW8112 OUTPUT DWT ADDRESS G " P DATA DW8111 INPUT DWT ADDRESS G
0x1aa4a8…1aa63c Dummy {f00=0x0085, f01=0x0190, f02=»ACK COUNTER G P DATA 0 PACT H P DATA 0 PINACT H ( P DATA LINE06+LINE06 H > P RES LINE06 H Z P DATA /FFFF H n , PMECB12 DATA 00,DCBF12,0,0,0,0 DRIVER ECB H PDCBF12 RES TBUFL+1 H P XIF H P IFT MLIN06=1 H P* H P EJECT H P*
0x1aa63c…1aa7d0 Dummy {f00=0x0085, f01=0x0190, f02=»ADDRESS H | 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY I P DATA 0 ECB ADDRESS I F P DATA 0 ORDER I b * P DATA DRMIAD POINTER TO ADDRESS BLOCK I x P DATA 0 TTAB ADDRESS I $ P DATA 0 WAIT/ACTIVATE INDICATOR I & P DATA 0 TASK QUEUE FOR THIS DE
0x1aa7d0…1aa964 Dummy {f00=0x0085, f01=0x0190, f02=»R POINTER I " P DATA 0 ACTIVITY TIMER POINTER J & P DATA 0,0,0,0,0,0 SUBROUTINE STACK J 8 P RES 3 SAVE AREA FOR A3-A5 J b $ P DATA DW8112 OUTPUT DWT ADDRESS J " P DATA DW8111 INPUT DWT ADDRESS J P DATA 0 SAVE AREA FOR A8 J P DATA 0 CU 6857 I/O IN
0x1aa964…1aaaf8 Dummy {f00=0x0085, f01=0x0190, f02=» IFT MLIN07=1 J P EJECT K P* K $ P* K . 8 P* DEVICE WORK TABLE FOR LINE 07, OUTPUT AND CONTROL K 8 P* K t P* K ~ PDW8114 EQU * TABLE ENTRY K P DATA DAMU07 DEVICE ADDRESS K 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY K P DATA
0x1aaaf8…1aac8c Dummy {f00=0x0085, f01=0x0190, f02=»ATE INDICATOR K ~ & P DATA 0 TASK QUEUE FOR THIS DEVICE L P IFT MMUPAG=1 L @ P DATA 0 USERECB L V P DATA MECB14 DRIVER ECB L n P XIF L P IFT MLIN07=1 L P DATA 0 TIMER POINTER L " P DATA 0 ACTIVITY TIMER POINTER L & P DATA 0,0,0,0,0,0
0x1aac8c…1aae20 Dummy {f00=0x0085, f01=0x0190, f02=» DATA 0 SAVE AREA FOR A8 L P DATA 0 CU 6857 I/O IND M P DATA 0 RETRY COUNTER M @ P DATA 0 BCC COUNTER M ^ P DATA 0 ACK COUNTER M z P DATA 0 PACT M P DATA 0 PINACT M P DATA LINE07+LINE07 M P RES LINE07 M P DATA /FFFF M P IFT
0x1aae20…1aafb4 (1, 340) Dummy {f00=0x0085, f01=0x0190, f02=» EJECT M P* N P* N * P* DEVICE WORK TABLE FOR LINE 07, INPUT N " P* N P P* N Z PDW8113 EQU * TABLE ENTRY N d P DATA DAMI07 DEVICE ADDRESS N 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY N P DATA 0 ECB ADDRESS N P DATA 0 ORDER
0x1aafb4…1ab148 Dummy {f00=0x0085, f01=0x0190, f02=»UEUE FOR THIS DEVICE N P IFT MMUPAG=1 O P DATA 0 USER ECB O 2 P DATA MECB13 DRIVER ECB O J P XIF O j P IFT MLIN07=1 O v P DATA 0 TIMER POINTER O " P DATA 0 ACTIVITY TIMER POINTER O & P DATA 0,0,0,0,0,0 SUBROUTINE STACK O P RES 3 SAVE AR
0x1ab148…1ab2dc Dummy {f00=0x0085, f01=0x0190, f02=»0 CU 6857 I/O IND O P IFT MMUPAG=1 P , PMECB13 DATA 0,DCBF13,0,0,0,0 DRIVER ECB P 0 ( PDCBF13 RES TBUFL+1 MMU BUFFER INPUT P ` P XIF P P IFT MLIN08=1 P P EJECT P P* P P* P 8 P* DEVICE WORK TABLE FOR LINE 08, OUTPUT AND CONTROL P
0x1ab2dc…1ab470 Dummy {f00=0x0085, f01=0x0190, f02=»Y P d P DATA 0 ECB ADDRESS Q P DATA 0 ORDER Q & * P DATA DRMUAD POINTER TO ADDRESS BLOCK Q < P DATA 0 TTAB ADDRESS Q j $ P DATA 0 WAIT/ACTIVATE INDICATOR Q & P DATA 0 TASK QUEUE FOR THIS DEVICE Q P IFT MMUPAG=1 Q P DATA 0 USER ECB Q P D
0x1ab470…1ab604 Dummy {f00=0x0085, f01=0x0190, f02=»A 0,0,0,0,0,0 SUBROUTINE STACK Q P RES 3 SAVE AREA FOR A3-A5 R & $ P DATA DW8116 OUTPUT DWT ADDRESS R H " P DATA DW8115 INPUT DWT ADDRESS R p P DATA 0 SAVE AREA FOR A8 R P DATA 0 CU 6857 I/O IND R P DATA 0 RETRY COUNTER R P DATA 0 BCC COUNTER
0x1ab604…1ab798 Dummy {f00=0x0085, f01=0x0190, f02=»F R P IFT MMUPAG=1 S , PMECB16 DATA 0,DCBF16,0,0,0,0 DRIVER ECB S ( PDCBF16 RES TBUFL+1 MMU OUTPUT BUFFER S P P XIF S | P IFT MLIN08=1 S P* S P EJECT S P* S P* S * P* DEVICE WORK TABLE FOR LINE 08, INPUT S P* S P* S
0x1ab798…1ab92c Dummy {f00=0x0085, f01=0x0190, f02=»B ADDRESS S P DATA 0 ORDER T * P DATA DRMIAD POINTER TO ADDRESS BLOCK T ( P DATA 0 TTAB ADDRESS T V $ P DATA 0 WAIT/ACTIVATE INDICATOR T r & P DATA 0 TASK QUEUE FOR THIS DEVICE T P IFT MMUPAG=1 T P DATA 0 USER ECB T P DATA MECB15 DRIVER EC
0x1ab92c…1abac0 Dummy {f00=0x0085, f01=0x0190, f02=»TINE STACK T x P RES 3 SAVE AREA FOR A3-A5 U $ P DATA DW8116 OUTPUT DWT ADDRESS U 4 " P DATA DW8115 INPUT DWT ADDRESS U P DATA 0 SAVE AREA FOR A8 U P DATA 0 CU 6857 I/O IND U P IFT MMUPAG=1 U , PMECB15 DATA 0,DCBF15,0,0,0,0 DRIVER ECB U ( P
0x1abac0…1abc54 (1, 341) Dummy {f00=0x0085, f01=0x018e, f02=»LINE 09, OUTPUT AND CONTROL U x P* V $ P* V . PDW8118 EQU * TABLE ENTRY V 8 P DATA DAMU09 DEVICE ADDRESS V X 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY V | P DATA 0 ECB ADDRESS V P DATA 0 ORDER V * P DATA DRMUAD POINTER TO ADDRESS BLOC
0x1abc54…1abde8 Dummy {f00=0x0085, f01=0x0190, f02=» V P DATA 0 USER ECB W P DATA MECB18 DRIVER ECB W P XIF W @ P IFT MLIN09=1 W L P DATA 0 TIMER POINTER W b " P DATA 0 ACTIVITY TIMER POINTER W & P DATA 0,0,0,0,0,0 SUBROUTINE STACK W P RES 3 SAVE AREA FOR A3-A5 W $ P DATA DW8118 OUTPUT DW
0x1abde8…1abf7c Dummy {f00=0x0085, f01=0x0190, f02=»UNTER W P DATA 0 BCC COUNTER X P DATA 0 ACK COUNTER X * P DATA 0 PACT X F P DATA 0 PINACT X Z P DATA LINE09+LINE09 X p P RES LINE09 X P DATA /FFFF X P IFT MMUPAG=1 X , PMECB18 DATA 0,DCBF18,0,0,0,0 DRIVER ECB X ( PDCBF18 RES TBU
0x1abf7c…1ac110 Dummy {f00=0x0085, f01=0x0190, f02=» 09, INPUT X t P* Y P* Y PDW8117 EQU * TABLE ENTRY Y & P DATA DAMI09 DEVICE ADDRESS Y F 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY Y j P DATA 0 ECB ADDRESS Y P DATA 0 ORDER Y * P DATA DRMIAD POINTER TO ADDRESS BLOCK Y P DATA 0
0x1ac110…1ac2a4 Dummy {f00=0x0085, f01=0x0190, f02=» ECB Y P DATA MECB17 DRIVER ECB Z P XIF Z , P IFT MLIN09=1 Z 8 P DATA 0 TIMER POINTER Z N " P DATA 0 ACTIVITY TIMER POINTER Z l & P DATA 0,0,0,0,0,0 SUBROUTINE STACK Z P RES 3 SAVE AREA FOR A3-A5 Z $ P DATA DW8118 OUTPUT DWT ADDRESS Z " P D
0x1ac2a4…1ac438 Dummy {f00=0x0085, f01=0x0190, f02=»DCBF17,0,0,0,0 DRIVER ECB Z ( PDCBF17 RES TBUFL+1 MMU BUFFER INPUT [ " P XIF [ N P IFT MLIN10=1 [ Z P EJECT [ p P* [ ~ P* [ 8 P* DEVICE WORK TABLE FOR LINE 10, OUTPUT AND CONTROL [ P* [ P* [ PDW8120 EQU * TABLE ENTRY [ P DATA
0x1ac438…1ac5cc Dummy {f00=0x0085, f01=0x0190, f02=»ATA DRMUAD POINTER TO ADDRESS BLOCK [ P DATA 0 TTAB ADDRESS , $ P DATA 0 WAIT/ACTIVATE INDICATOR H & P DATA 0 TASK QUEUE FOR THIS DEVICE p P IFT MMUPAG=1 P DATA 0 USER ECB P DATA MECB20 DRIVER ECB P XIF P IFT MLIN10=1
0x1ac5cc…1ac760 Dummy {f00=0x0085, f01=0x0190, f02=»A5 x $ P DATA DW8120 OUTPUT DWT ADDRESS ] " P DATA DW8119 INPUT DWT ADDRESS ] 2 P DATA 0 SAVE AREA FOR A8 ] X P DATA 0 CU 6857 I/O IND ] x P DATA 0 RETRY COUNTER ] P DATA 0 BCC COUNTER ] P DATA 0 ACK COUNTER ] P DATA 0 PACT ] P DATA
0x1ac760…1ac8f4 (1, 342) Dummy {f00=0x0085, f01=0x0190, f02=»RIVER ECB ] r ( PDCBF20 RES TBUFL+1 MMUBUFFER OUTPUT ^ P XIF ^ > P IFT MLIN10=1 ^ J P* ^ ` P EJECT ^ j P* ^ x P* ^ * P* DEVICE WORK TABLE FOR LINE 10, INPUT ^ P* ^ P* ^ PDW8119 EQU * TABLE ENTRY ^ P DATA DAMI10 DEVICE ADDRES
0x1ac8f4…1aca88 Dummy {f00=0x0085, f01=0x0190, f02=»O ADDRESS BLOCK ^ z P DATA 0 TTAB ADDRESS _ $ P DATA 0 WAIT/ACTIVATE INDICATOR _ 4 & P DATA 0 TASK QUEUE FOR THIS DEVICE _ P IFT MMUPAG=1 _ P DATA 0 USER ECB _ P DATA MECB19 DRIVER ECB _ P XIF _ P IFT MLIN10=1 _ P DATA 0 TIMER POIN
0x1aca88…1acc1c Dummy {f00=0x0085, f01=0x0190, f02=»20 OUTPUT DWT ADDRESS _ " P DATA DW8119 INPUT DWT ADDRESS ` P DATA 0 SAVE AREA FOR A8 ` D P DATA 0 CU 6857 I/O IND ` d P IFT MMUPAG=1 ` , PMECB19 DATA 0,DCBF19,0,0,0,0 DRIVER ECB ` ( PDCBF19 RES TBUFL+1 MMU BUFFER INPUT ` P XIF ` P IFT M
0x1acc1c…1acdb0 Dummy {f00=0x0085, f01=0x0190, f02=» EQU * TABLE ENTRY ` P DATA DAMU11 DEVICE ADDRESS a 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY a > P DATA 0 ECB ADDRESS a t P DATA 0 ORDER a * P DATA DRMUAD POINTER TO ADDRESS BLOCK a P DATA 0 TTAB ADDRESS a $ P DATA 0 WAIT/ACTIVATE IN
0x1acdb0…1acf44 Dummy {f00=0x0085, f01=0x018e, f02=» XIF a P IFT MLIN11=1 b P DATA 0 TIMER POINTER b " " P DATA 0 ACTIVITY TIMER POINTER b @ & P DATA 0,0,0,0,0,0 SUBROUTINE STACK b f P RES 3 SAVE AREA FOR A3-A5 b $ P DATA DW8122 OUTPUT DWT ADDRESS b " P DATA DW8121 INPUT DWT ADDRESS b P DATA 0
0x1acf44…1ad0d8 Dummy {f00=0x0085, f01=0x0190, f02=» b z P DATA 0 PACT c P DATA 0 PINACT c P DATA LINE11+LINE11 c 2 P RES LINE11 c N P DATA /FFFF c b P IFT MMUPAG=1 c v , PMECB22 DATA 0,DCBF22,0,0,0,0 DRIVER ECB c ( PDCBF22 RES TBUFL+1 MMUBUFFER OUTPUT c P XIF c P IFT MLIN11=1 c
0x1ad0d8…1ad26c Dummy {f00=0x0085, f01=0x0190, f02=» c x P DATA DAMI11 DEVICE ADDRESS d 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY d , P DATA 0 ECB ADDRESS d b P DATA 0 ORDER d ~ * P DATA DRMIAD POINTER TO ADDRESS BLOCK d P DATA 0 TTAB ADDRESS d $ P DATA 0 WAIT/ACTIVATE INDICATOR d & P D
0x1ad26c…1ad400 Dummy {f00=0x0085, f01=0x0190, f02=»LIN11=1 d P DATA 0 TIMER POINTER e " P DATA 0 ACTIVITY TIMER POINTER e . & P DATA 0,0,0,0,0,0 SUBROUTINE STACK e T P RES 3 SAVE AREA FOR A3-A5 e ~ $ P DATA DW8122 OUTPUT DWT ADDRESS e " P DATA DW8121 INPUT DWT ADDRESS e P DATA 0 SAVE AREA FOR A8 e
0x1ad400…1ad594 (1, 343) Dummy {f00=0x0086, f01=0x0190, f02=»R INPUT e t P XIF f P IFT MLIN12=1 f P EJECT f 2 P* f @ P* f J 8 P* DEVICE WORK TABLE FOR LINE !2, OUTPUT AND CONTROL f T P* f P* f PDW8124 EQU * TABLE ENTRY f P DATA DAMU12 DEVICE ADDRESS f 2 P DATA /8000 STATUS , /8000 MEANS
0x1ad594…1ad728 Dummy {f00=0x0086, f01=0x0190, f02=»SS f ~ $ P DATA 0 WAIT/ACTIVATE INDICATOR g & P DATA 0 TASK QUEUE FOR THIS DEVICE g 2 P IFT MMUPAG=1 g P DATA 0 USER ECB g r P DATA MECB24 DRIVER ECB g P XIF g P IFT MLIN12=1 g P DATA 0 TIMER POINTER g " P DATA 0 ACTIVITY TIMER POINTER
0x1ad728…1ad8bc Dummy {f00=0x0086, f01=0x0190, f02=» INPUT DWT ADDRESS g P DATA 0 SAVE AREA FOR A8 h P DATA 0 CU 6857 I/O IND h : P DATA 0 RETRY COUNTER h Z P DATA 0 BCC COUNTER h x P DATA 0 ACK COUNTER h P DATA 0 PACT h P DATA 0 PINACT h P DATA LINE12+LINE12 h P RES LINE12 h
0x1ad8bc…1ada50 Dummy {f00=0x0086, f01=0x0190, f02=» XIF h P IFT MLIN12=1 i P* i " P EJECT i , P* i : P* i D * P* DEVICE WORK TABLE FOR LINE 12, INPUT i N P* i | P* i PDW8123 EQU * TABLE ENTRY i P DATA DAMI12 DEVICE ADDRESS i 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY i
0x1ada50…1adbe4 Dummy {f00=0x0086, f01=0x018e, f02=»IT/ACTIVATE INDICATOR i & P DATA 0 TASK QUEUE FOR THIS DEVICE j P IFT MMUPAG=1 j H P DATA 0 USER ECB j ^ P DATA MECB23 DRIVER ECB j v P XIF j P IFT MLIN12=1 j P DATA 0 TIMER POINTER j " P DATA 0 ACTIVITY TIMER POINTER j & P DATA 0,0,0,
0x1adbe4…1add78 Dummy {f00=0x0086, f01=0x0190, f02=» j p P DATA 0 SAVE AREA FOR A8 k P DATA 0 CU 6857 I/O IND k ( P IFT MMUPAG=1 k H , PMECB23 DATA 0,DCBF23,0,0,0,0 DRIVER ECB k ^ ( PDCBF23 RES TBUFL+1 MMU BUFFER INPUT k P XIF k P XIF k P IFF HILINO=12 k P EJECT k P* k P* k
0x1add78…1adf0c Dummy {f00=0x0086, f01=0x0190, f02=» IFF HILINO=11 k PDW8121 EQU * l PDW8122 EQU * l * PIH8121 EQU * l > PIH8122 EQU * l R P IFF HILINO=10 l f PDW8119 EQU * l | PDW8120 EQU * l PIH8119 EQU * l PIH8120 EQU * l P IFF HILINO=9 l PDW8117 EQU * l PDW8118 EQU * l
0x1adf0c…1ae0a0 Dummy {f00=0x0086, f01=0x0190, f02=» l P IFF HILINO=7 m PDW8113 EQU * m PDW8114 EQU * m 2 PIH8113 EQU * m F PIH8114 EQU * m Z P IFF HILINO=6 m n PDW8111 EQU * m PDW8112 EQU * m PIH8111 EQU * m PIH8112 EQU * m P IFF HILINO=5 m PDW8109 EQU * m PDW8110 EQU
0x1ae0a0…1ae234 (1, 344) Dummy {f00=0x0086, f01=0x0190, f02=»08 EQU * m P IFF HILINO=3 n PDW8105 EQU * n & PDW8106 EQU * n : PIH8105 EQU * n N PIH8106 EQU * n b P IFF HILINO=2 n v PDW8103 EQU * n PDW8104 EQU * n PIH8103 EQU * n PIH8104 EQU * n P ST P,INTSAV n P ABL ILLINT n P XIF
0x1ae234…1ae3c8 Dummy {f00=0x0086, f01=0x0190, f02=» n P* o < P******************************************************* o P* o R P* o & P* D R I V E R A C T I V A T I O N o f P* o P* o < P******************************************************* o < P************************************
0x1ae3c8…1ae55c Dummy {f00=0x0086, f01=0x0190, f02=»*********** o d P* p P* INPUT REQUESTS p P* p 6 < P******************************************************* p @ P* p P* p P* p P* ACTIVATION BLOCK p P* p P DATA BUFLEN p P DATA DEVIND p $ PDRMIAD DATA MIACT DWT REFERENC
0x1ae55c…1ae6f0 Dummy {f00=0x0086, f01=0x0190, f02=»2 p P RF(Z) RD ORDER 01: READ q $ PMIA100 ABL DISIOE ILLEGAL ORDER q * P* q R P* q P* ORDER 02 : READ q f P* q P* q PRD EQU * q P IFT MMUPAG=1 q $ P LD A2,ECBRL,A8 REQUESTED LENGTH q P CWK A2,BUFLEN SIZE OK? q " P ABL(G
0x1ae6f0…1ae884 Dummy {f00=0x0086, f01=0x0190, f02=»N q z PRD100 EQU * r * P LDKL A1,LINSTE RC: WRONG LINE STATUS r PRD200 EQU * r L P IFT RQLOGG=1 r ` P CF A15,REQLOG r v P XIF r $ P CF A15,TENDIO COMPLETE REQUEST r PRD300 EQU * r P ABL TDISP GO TO DISPATCHER r PRD400 EQU * r
0x1ae884…1aea18 Dummy {f00=0x0086, f01=0x0190, f02=»EAD WAIT FOR CALL r P CW A2,/8040 s P RB(NE) RD450 s . P LDKL A1,/200 s D $ P XRS A2,DWTST,A6 RESET WAIT BIT s Z P CF A5,HALTIN s * P LDKL A1,CALIND RC: CALLING INDICATOR s P RB RD200 s P EJECT s < P**********************************
0x1aea18…1aebac Dummy {f00=0x0086, f01=0x0190, f02=»******* s ` P* t P* t P* t $ P* ACTIVATION BLOCK t . P* t H P DATA BUFLEN t R P DATA DEVIND t f $ PDRMUAD DATA MUACT DWT REFERENCE t z P DATA ABORT ABORT ROUTINE t P DATA 0,0 DC:MIN HEADER =2 t P* t P* t PMUACT EQU * t
0x1aebac…1aed40 Dummy {f00=0x0086, f01=0x018e, f02=» $ P RF(Z) OLIN ORDER 22, OPEN LINE u P SUK A7,2 u , & P ABL(Z) CLIN ORDER 24, CLOSE LINE u > P SUK A7,2 u h & P ABL(Z) CLIN ORDER 26,HALT POLLING u z P SUK A7,1 u ( P ABL(Z) CLIN ORDER 27, START POLLING u P SUK A7,/37-/27 u " P ABL(Z) OTC OR
0x1aed40…1aeed4 (1, 345) Dummy {f00=0x0086, f01=0x018e, f02=» P* v P* ORDER 00 TEST LINE v P* v 2 PTEST EQU * v < P LD A1,DWTST,A6 GET STATUS v N P ANK A1,1 v p " P RB(NZ) RD100 LINE NOT CLOSED v P ABL TST000 v P EJECT v P* v P* v P* CW = 0 : OPEN LINE v P* v P* v
0x1aeed4…1af068 Dummy {f00=0x0086, f01=0x0190, f02=» v l * P LD A1,PLIST,A6 GET LENGTH OF POLLIST w P LDR A2,A1 w 6 P ADR A1,A6 w H POLI100 EQU * w Z P CM PLIST,A1 DELETE POLLIST w n P SUK A1,2 w P SUK A2,2 w " P RB(NZ) OLI100 NOT END OF LIST w P CM PACT,A6 w P CM PINACT,A6 w P L
0x1af068…1af1fc Dummy {f00=0x0086, f01=0x0190, f02=» P DATA OLI110,TIMMRY x P ST A4,DWTTP,A6 x P CF A5,READ x 8 P CM* DWTTP,A6 x L P RF OLI115 x b ( POLI110 EQU * STATUS INT. OR TIME OUT x t P LDR A6,A1 x POLI115 EQU * x P CM DWTTP,A6 x P LDK A5,STB IF TIME OUT x P LD A7,DWTA7,A
0x1af1fc…1af390 Dummy {f00=0x0086, f01=0x0190, f02=»NK A1,1 x ( P RF(NZ) OLI130 RECOVERY AT POWER ON y P LDK A1,1 y < ( P ORS A1,DWTST,A6 INDICATE LINE OPEN y N P ORS A1,DWTST,A7 y z P LDK A1,0 y P IFT RQLOGG=1 y P CF A15,REQLOG y P XIF y $ P CF A15,TENDIO COMPLETE REQUEST y POLI1
0x1af390…1af524 Dummy {f00=0x0086, f01=0x0190, f02=» y | $ P ABL BMM ENTER BASIC MASTER MODE z P* z 0 P* z : P* ACTVITY TIME OUT z D P* z f POLI150 EQU * z p P INH z P LDR A6,A1 z P LD A7,DWTA7,A6 z P LDK A5,STB z P ADR A5,A6 z POLI160 EQU * z P CF A5,DISCON z "
0x1af524…1af6b8 Dummy {f00=0x0086, f01=0x0190, f02=»REQLOG z P XIF { P CF A15,TENDIO { POLI165 EQU * { 0 P LDR A6,A7 { D P LD A8,DWTECB,A6 { V P RF(Z) OLI170 { n P CM ECBRC,A8 { POLI170 EQU * { P IFT RQLOGG=1 { P CF A15,REQLOG { P XIF { P ABL DISEND { P* { P* {
0x1af6b8…1af84c Dummy {f00=0x0086, f01=0x0190, f02=» ABL(Z) RD100 LINE ALREADY CLOSED { P | * P ABL TDISP | 2 P EJECT | D P* | R P* | P* ORDER 37 : OPEN TC | f P* | P* | POTC EQU * | P LD A7,DWTA7,A6 | P LD A1,DWTST,A7 GET STATUS | P LDR A2,A1 | P ANK A1,1 | P A
0x1af84c…1af9e0 Dummy {f00=0x0086, f01=0x0190, f02=» | $ P RF(N) OTC100 INVALID TC ADDRESS } P SUK A2,/5A-/41 } 0 P ABL(NP) TDISP } H POTC100 EQU * } ^ ( P LDKL A1,INVTCA RC : INVALID ADDRESS } r P RB OLI170 } POTC110 EQU * } * P LDKL A1,CALIND RC: CALLING INDICATOR } P RB OLI170 } P EJE
0x1af9e0…1afb74 (1, 346) Dummy {f00=0x0086, f01=0x0190, f02=»ESTED LENGTH? } | 2 P CWK A2,BUFLEN GREATER THAN MMU BUFFER LENGTH ~ P RF(G) IL:LEN ILLEGAL LENGTH ~ L P XIF ~ p P LC* A2,ECBBA,A8 TCA ~ | PWRT105 EQU * ~ P LD A1,DWTST,A6 ~ P ANK A1,1 ~ P ABL(Z) RD100 SEQ ERROR ~ P ANK A2,/7F ~ 0
0x1afb74…1afd08 Dummy {f00=0x0086, f01=0x0190, f02=»OR,A6 SAVE INDEX IN POLLIST ~ PWRT107 EQU * $ P ABL TDISP 8 PWRT110 EQU * J * P SC A4,DWTOR,A6 SAVE INDEX IN POLLIST ^ P LD A1,DWTOR,A6 P ANK A1,/FF P SUK A1,/38 P RB(Z) WRT107 " P LDK A1,TCINAC RC: TC INACTIVE P
0x1afd08…1afe9c Dummy {f00=0x0086, f01=0x0190, f02=»TC NOT IN POLLIST | P RB WRT120 P* , P* 6 P* ORDER 38: CLOSE TC @ P* d PWRT150 EQU * n P LD A2,ECBCW,A8 TCA P RB WRT105 N P************************************************************************** P*
0x1afe9c…1b0030 Dummy {f00=0x0086, f01=0x0190, f02=» " P LDKL A1,INCLEN ILLEGAL LENGTH P ABL DISEND DISPATCHER * P EJECT H N P************************************************************************* V P* P* ABORT ROUTINE P* L P****************************************************
0x1b0030…1b01c4 Dummy {f00=0x0086, f01=0x0190, f02=»,A6 CLEAR TIMER $ P CM DWTTP,A6 CLEAR TIMER POINTER PAB:10 EQU * @ PAB:RTN EQU * T P . =3 h $ P ABL DISEND COMPLETE REQUEST =3 x P EJECT P* < P******************************************************* < P****************
0x1b01c4…1b0358 Dummy {f00=0x0086, f01=0x0190, f02=»***************************************************** < P******************************************************* > P* ~ PDC81ON EQU * P INH P LD A3,DWMTAB TABLE LENGTH PDRM000 EQU * P SUK A3,2 P RF(Z) DRM300 END ODF TA
0x1b0358…1b04ec Dummy {f00=0x0086, f01=0x0190, f02=»,A6 P LDR A2,A1 P LDR* A4,A6 P ANK A2,1 2 P RF(Z) DRM200 LINE CLOSED D P ANK A4,/10 f P RF(NZ) DRM250 OUTPUT DWT z PDRM100 EQU * INPUT DWT P ANKL A1,/8000 P RB(NZ) DRM000 NO REQUEST P LD A8,DWTECB,A6
0x1b04ec…1b0680 Dummy {f00=0x0086, f01=0x0190, f02=»A15,TENDIO COMPLETE RQUEST , RC = 0 P RB DRM000 , PDRM200 EQU * > P ANK A4,/10 R P RB(Z) DRM000 INPUT DWT f P ANKL A1,/8000 P RB(NZ) DRM000 NO RQUEST P LD A1,DWTOR,A6 GET ORDER P ANK A1,/FF P SUK A1,/22 P R
0x1b0680…1b0814 (1, 347) Dummy {f00=0x0087, f01=0x0190, f02=»MER n P LDR A1,A6 P CF A15,SETIME P DATA DRM400 4 P DATA TIMMRY H P ST A4,DWTTP,A6 P RB DRM000 t PDRM300 RTN A15 P* P* REOPEN LINE P* PDRM400 EQU * P LDR A6,A1 P LD A7,DWTA7,A6 P CM
0x1b0814…1b09a8 Dummy {f00=0x0087, f01=0x018e, f02=»***************************** v < P******************************************************* & P* f P* p 0 P* P R O C E D U R E C O N T R O L P A R T z P* P* < P******************************************************* < P******
0x1b09a8…1b0b3c Dummy {f00=0x0087, f01=0x0190, f02=» P* BMM : BASIC MASTER MODE P* * < P******************************************************* 4 $ PBMM000 EQU * ENTRY AFTER TENDIO t P LDKL A1,TDISP P STR A1,A15 P LDKL A1,/C040 P STR A1,A15 P SUKL A15,16 ( PBMM0
0x1b0b3c…1b0cd0 Dummy {f00=0x0087, f01=0x0190, f02=»A1,DWTST,A6 GET OUTPUT STATUS , P RF(NN) OUTPUT OUTPUT OR CONTROL REQUEST & PBMM100 EQU * V $ P LD A1,DWTST,A7 GET INPUT STATUS j P ABL(NN) POLL READ REQUEST 2 PBMM200 EQU * ENTRY AFTER ACTIVITY WITHOUT I/O P CF A5,STOUT P LDK A2,PA
0x1b0cd0…1b0e64 Dummy {f00=0x0087, f01=0x0190, f02=» P* POUTPUT EQU * P CF A5,HALTUT & $ P LD A8,DWTECB,A6 GET ECB ADDRESS < . P ST A8,DWTA8,A6 LOAD A8 INTERUPT REGISTERS d P ST A8,DWTA8,A7 P LD A1,DWTOR,A6 GET ORDER P ANK A1,/FF P SUK A1,6 $ P ABL(Z) SELECT ORD
0x1b0e64…1b0ff8 Dummy {f00=0x0087, f01=0x0190, f02=»POLLING r P SUK A1,1 * P RF(Z) OUT350 ORDER 27: START POLLING " P SUK A1,/10 P $ P RF(Z) OUT100 ORDER 37 : OPEN TC d P* P* P* ORDER 38 : CLOSE TC P* P* ( P LC A3,DWTOR,A6 GET INDEX IN POLLIST P ANK A3,/F
0x1b0ff8…1b118c Dummy {f00=0x0087, f01=0x0190, f02=»R 37 : OPEN TC P* P* POUT100 EQU * * P LD A2,ECBCW,A8 GET TCA > . P CF A15,FINDTC CHECK IF IT'S ALREADY THERE ^ P RF(P) OUT105 TCA NOT FOUND " P RF OUT300 TC ALLREADY IN LIST POUT105 EQU * P LDK A2,0 4 P CF A15,
0x1b118c…1b1320 Dummy {f00=0x0087, f01=0x0190, f02=»OUT310 COMPLETE REQUEST POUT110 EQU * * P SC A4,DWTOR,A6 SAVE INDEX IN POLLIST 4 P LD A1,ECBCW,A8 GET TCA b " P ORKL A1,/8000 SET TC INACTIVE ( P STR A1,A3 INSERT TCA IN POLLINGLIST P ANK A1,/7F P LDKL A2,RTYLIM ( P ST A2,D
0x1b1320…1b14b4 (1, 348) Dummy {f00=0x0087, f01=0x0190, f02=»=1 P CF A5,SELADR P XIF POUT120 EQU * , P LDK A4,/20 STA @ & P CF A5,SEPOSE SEND SELECT SEQUENCE X 6 P CF A5,READTO WAIT FOR REPLY WITH TIME SUPERVISION P LDR A2,A2 P RF(N) OUT130 POUT125 EQU * P CF A5,READP
0x1b14b4…1b1648 Dummy {f00=0x0087, f01=0x0190, f02=»D A3,ECBCW,A8 P ANK A3,/7F ( P LC A2,DWTOR,A6 GET INDEX IN POLLIST * P ANK A2,/FF V P ADR A2,A6 j P ADK A2,PLIST | P STR A3,A2 SET TC ACTIVE P LD A1,PACT,A6 $ P RF(NZ) OUT300 NOT FIRST IN LIST P ST A2,PACT,A6 P R
0x1b1648…1b17dc Dummy {f00=0x0087, f01=0x0190, f02=»YET REACHED, TRY AGAIN x P LD A1,PINACT,A6 $ P RF(NZ) OUT150 NOT FIRST IN LIST 6 ( P LC A2,DWTOR,A6 GET INDEX IN POLLIST ^ P ANK A2,/FF P ADR A2,A6 P ADK A2,PLIST P ST A2,PINACT,A6 POUT150 EQU * 0 P LDK A1,TCINAC SET RET
0x1b17dc…1b1970 Dummy {f00=0x0087, f01=0x0190, f02=» POUT200 EQU * P LDK A1,2 P ORS A1,DWTST,A7 NO POLLING . " P LDKL A1,POLHLT RC:POLL HALTED R P LDR A6,A7 x P IFT RQLOGG=1 P CF A15,REQLOG P XIF " P LDK A1,COMPLT RC = COMPLETED P CF A15,TENDIO P LD A6,DWT
0x1b1970…1b1b04 Dummy {f00=0x0087, f01=0x0190, f02=» P XIF $ P CF A15,TENDIO COMPLETE REQUEST P ABL BMM000 < P* P P* Z POUT350 EQU * START POLLING d P LD A1,DWTST,A7 P ANK A1,2 , P RB(Z) OUT300 POLLING ALLREADY PERMITTED P XRS A1,DWTST,A7 P RB OUT300
0x1b1b04…1b1c98 Dummy {f00=0x0087, f01=0x0190, f02=»NECT MODEM | " P LDK A1,COMPLT STATUS COMPLETE P IFT RQLOGG=1 8 P CF A15,REQLOG N P XIF d P CF A15,TENDIO p P LDKL A1,LINSTE P LDR A6,A7 P IFT RQLOGG=1 P CF A15,REQLOG P XIF P ABL DISEND P EJECT
0x1b1c98…1b1e2c Dummy {f00=0x0087, f01=0x0190, f02=»************************* r P* " P* , 2 P* P R O C E D U R E T R A N S F E R P A R T 6 P* l P* v < P******************************************************* < P******************************************************* P*
0x1b1e2c…1b1fc0 Dummy {f00=0x0087, f01=0x0190, f02=» HALTED P CF A5,HALTUT P LDR A1,A7 & P CF A15,SETIME 8 P DATA POLL10,DELAY N P ST A4,DWTTP,A7 h P ABL READ10 . PPOLL10 EQU * COMPLETE READREQ AFTER DELAY P LDR A7,A1 RELOAD A7 P LD A6,DWTA6,A7 RELOAD A6 P CM
0x1b1fc0…1b2154 (1, 349) Dummy {f00=0x0087, f01=0x0190, f02=» P RF POL225 PPOL100 EQU * P LD A8,DWTECB,A7 * P ST A8,DWTA8,A6 B P ST A8,DWTA8,A7 Z P CM ECBRC,A8 r P CM ECBEL,A8 P LD A1,PACT,A6 ( P RF(Z) POL130 NO ACTIVE TCA PRESENT PPOL110 EQU * P ADK A1,2 P LDR*
0x1b2154…1b22e8 Dummy {f00=0x0087, f01=0x0190, f02=»IVE TCA | P LDK A1,PLIST END OF POLLIST P ADR A1,A6 4 P ST A1,PACT,A6 UPDATE 'PACT' F PPOL130 EQU * j P LD A1,PINACT,A6 ~ * P ABL(Z) BMM200 NO INACTIVE TC PRESENT PPOL132 EQU * P ADK A1,2 NEXT POS IN LIST P CW A1,PINACT,
0x1b22e8…1b247c Dummy {f00=0x0087, f01=0x0190, f02=»NACTIVE TC FOUND & P LDK A1,PLIST END OF LIST REACHED P ADR A1,A6 B P RB POL132 T PPOL134 EQU * f P LDR* A3,A1 z $ P RF(N) POL140 INACTIVE TC FOUND ( P CM PINACT,A6 NO INACTIVE TC IN LIST P ABL BMM200 PPOL138 EQU *
0x1b247c…1b2610 Dummy {f00=0x0087, f01=0x0190, f02=» l ( P LDKL A2,-1 NO RECOVERY BY REOPENING P RF POL200 4 PPOL150 EQU * F P ST A1,PACT,A6 UPPDATE PACT Z P LDK A1,0 ~ & P SC A1,DWTOR,A7 INDICATE ACTIVE TC P LDKL A2,RTYLIM " PPOL200 EQU * INITIATE POLLING ( P ST A2,DWTRTY,A6
0x1b2610…1b27a4 Dummy {f00=0x0087, f01=0x0190, f02=»C A3,POLTAB,A3 P XIF P LDK A4,GP LOAD GP " PPOL210 EQU * < $ P CF A5,SEPOSE SEND POLL SEQUENCE P PPOL212 EQU * x P CF A5,READTO WAIT FOR REPLY P LDR A2,A2 P RF(NN) POL230 PPOL215 EQU * P CF A5,HALTIN P ANK A
0x1b27a4…1b2938 Dummy {f00=0x0087, f01=0x0190, f02=»QU * P CF A5,WREOT P LD A1,DWTOR,A7 ( P ABL(N) BMM010 TC ALLREADY INACTIVE 8 P LC* A3,ECBBA,A8 d P ANK A3,/7F | " P ORKL A3,/8000 SET TC INACTIVE P ST* A3,PACT,A6 P LD A2,PINACT,A6 P RF(NZ) POL224 P LD A1,PACT,
0x1b2938…1b2acc Dummy {f00=0x0087, f01=0x0190, f02=» P IFT RQLOGG=1 P CF A15,REQLOG P XIF 4 P CF A15,TENDIO END READ REQ @ P LD A6,DWTA6,A7 RESTORE A6 d P ABL BMM000 PPOL230 EQU * P CWK A2,STX P RF(E) MIP STX RECEIVED P CWK A2,EOT P RF(E) POL240
0x1b2acc…1b2c60 Dummy {f00=0x0087, f01=0x0190, f02=»,DWTOR,A7 $ P ABL(NN) BMM010 TC NOT INACTIVE PPOL245 EQU * : P LC* A3,ECBBA,A8 N P ANK A3,/7F MASK TCA f $ P ST* A3,PINACT,A6 SET TC ACTIVE P LD A3,PACT,A6 P RF(NZ) POL250 P LD A1,PINACT,A6 P ST A1,PACT,A6 PPOL2
0x1b2c60…1b2df4 (1, 350) Dummy {f00=0x0087, f01=0x0190, f02=» P* PMIP EQU * P LDKL A1,RTYLIM $ ( P ST A1,DWTRTY,A6 RESET RETRY COUNTER < PMIP050 EQU * h P LDK A4,2 BUFFER POINTER | $ P CM DWTACK,A6 RESET ACK COUNTER $ P CM DWTBCC,A6 RESET BCC COUNTER P CF A5,READP READ TCA $
0x1b2df4…1b2f88 Dummy {f00=0x0087, f01=0x0190, f02=» PMIP100 EQU * $ P CF A5,READP READ NEXT CHARACTER P RF(N) MIP130 SST D P RF(NZ) MIP110 PARITY ERROR ^ P CWK A2,SYN P RB(E) MIP100 SKIP SYN $ P XRS A2,DWTBCC,A6 CALCULATE BCC P CWK A2,ETB P RF(E) MIP210 ETB RECEIV
0x1b2f88…1b311c Dummy {f00=0x0087, f01=0x018e, f02=» PMIP105 EQU * P CW A4,ECBRL,A8 P RB(NG) MIP100 4 P CF A5,READ J P RF(N) MIP130 ^ P XRS A2,DWTBCC,A6 t P CWK A2,ETX P RF(E) MIP220 . PMIP110 EQU * PARITY ERROR, BUFFER OVERFLOW 4 P CF A5,READP WAIT FOR END OF T
0x1b311c…1b32b0 Dummy {f00=0x0087, f01=0x0190, f02=» $ P RB(NE) MIP110 NOT END OF BLOCK PMIP120 EQU * , P CF A5,READ READ BCC @ PMIP130 EQU * & P LDK A3,0 INDICATE BLOCK RECOVERY p PMIP135 EQU * P CF A5,HALTIN P IM DWTRTY,A6 ( P RF(NL) MIP200 RETRY LIMIT OVERFLOW P C
0x1b32b0…1b3444 Dummy {f00=0x0087, f01=0x0190, f02=»S WAIT FOR REPLY P CWK A2,STX P RF(E) MIP160 , P CWK A2,ENQ B P RB(E) MIP135 V PMIP145 EQU * l P CWK A2,EOT P ABL(E) POL240 EOT RECEIVED P LDR A2,A2 P RF(N) MIP155 TIME OUT PMIP150 EQU * P CF A5,READP
0x1b3444…1b35d8 Dummy {f00=0x0087, f01=0x0190, f02=»ALTIN P ANK A1,1 P ABL(NZ) OLI160 P IM DWTRTY,A6 8 ( P RF(NL) MIP200 RETRY LIMIT OVERFLOW N P CF A5,WRENQ SEND ENQ z P RB MIP140 PMIP160 EQU * P LDR A3,A3 & P RB(NZ) MIP105 RECEIVE NEXT BLOCK P SUKL A4,MAXTB
0x1b35d8…1b376c Dummy {f00=0x0087, f01=0x0190, f02=»1,1 P SUKL A4,MAXTBL P RB(NN) MIP165 $ P LDK A4,1 : PMIP170 EQU * L P ADKL A4,MAXTBL ` P SUK A1,1 x P RB(P) MIP170 P CM DWTBCC,A6 P RB MIP100 PMIP200 EQU * P CF A5,WREOT SEND EOT P CM ECBRC,A8
0x1b376c…1b3900 Dummy {f00=0x0087, f01=0x0190, f02=»EADP READ BCC P RB(NZ) MIP130 PARITY ERROR P CW A2,DWTBCC,A6 : P RB(NE) MIP130 BCC ERROR R P CM DWTBCC,A6 r P CF A5,HALTIN HALT INPUT P CF A5,WRACK SEND ACK 0/1 P LDKL A1,RTYLIM ( P ST A1,DWTRTY,A6 RESET RETRY COUNTER
0x1b3900…1b3a94 (1, 351) Dummy {f00=0x0088, f01=0x0190, f02=»A5,HALTIN P LDK A1,1 P XRS A1,DWTACK,A6 $ P IM DWTRTY,A6 > P RB(NL) MIP200 T P CF A5,WRACK j P RB MIP215 ~ PMIP220 EQU * P CF A5,READP READ BCC P RB(NZ) MIP130 PARITY ERROR P CW A2,DWTBCC,A6 P RB(NE) MI
0x1b3a94…1b3c28 Dummy {f00=0x0088, f01=0x0190, f02=»A5,REDLTS WAIT FOR EOT OR ENQ P CF A5,HALTIN & P LDR A2,A2 < & P RF(N) MIP230 TIMEOUT HAS OCCURRED N P CWK A2,ENQ x P RF(NE) MIP240 $ P LDK A1,1 ENQ HAS BEEN RECEIVED * P XRS A1,DWTACK,A6 INCREASE ACK COUNTER P LDKL A2,RETRAN
0x1b3c28…1b3dbc Dummy {f00=0x0088, f01=0x0190, f02=» REPEAT LAST ACK PMIP230 EQU * P CF A5,HALTIN , P CF A5,WREOT SEND EOT B PMIP240 EQU * ` P LDK A1,0 t P LD A2,DWTOR,A7 $ P ABL(NN) POL225 TC NOT INACTIVE P ABL POL245 SET TC ACTIVE PMIP260 EQU * BUFFER OVERFLOw
0x1b3dbc…1b3f50 Dummy {f00=0x0088, f01=0x0190, f02=»NSFER MESSAGE TO TC P* P* & PSELECT EQU * 0 P LD A1,DWTST,A6 D P ANK A1,4 P RF(NZ) SEL160 TC BUSY n P LDKL A1,RTYLIM ( P ST A1,DWTRTY,A6 RESET RETRY COUNTER PSEL100 EQU * & P LD A4,ECBBA,A8 GET BUFFER ADDRESS
0x1b3f50…1b40e4 Dummy {f00=0x0088, f01=0x0190, f02=» P LC A4,2,A4 GET STA P ANK A4,/FF $ & P CF A5,SEPOSE SEND SELECTSEQUENCE 8 P CF A5,READTO WAIT FOR REPLY b P LDR A2,A2 P RF(NN) SEL120 P CF A5,HALTIN P ANK A1,1 P ABL(NZ) OLI160 MOD NOT OP PSEL110 EQU *
0x1b40e4…1b4278 Dummy {f00=0x0088, f01=0x0190, f02=»M ECBRC,A8 " P LDK A1,TCINAC RC: TV INACTIVE P IFT RQLOGG=1 8 P CF A15,REQLOG N P XIF d * P CF A15,TENDIO COMPLETE WRITE REQUEST p P LC* A3,ECBBA,A8 P ANK A3,/7F ( P LC A2,DWTOR,A6 GET INDEX IN POLLIST P ANK A2,/FF
0x1b4278…1b440c Dummy {f00=0x0088, f01=0x0190, f02=»0 NOT 1:ST INACTIVE TC P ST A2,PINACT,A6 P ABL BMM000 6 PSEL120 EQU * J P CWK A2,DLE ^ P RB(NE) SEL110 INVALID REPLY r " P CF A5,READ GET NEXT CHARACTER P CF A5,HALTIN P CWK A2,PAR:0 P RF(E) MUT ACK 0 RECEIVED
0x1b440c…1b45a0 Dummy {f00=0x0088, f01=0x0190, f02=» ALLREADY STARTED p P LDR A1,A6 P CF A15,SETIME , P DATA SEL150,BSYTIM B P ST A4,DWTTP,A6 ^ P ABL BMM100 v " PSEL150 EQU * TC BUSY TIME OUT P LDR A6,A1 P LDK A5,STB P ADR A5,A6 P LD A7,DWTA7,A6 $ P CM DWTT
0x1b45a0…1b4734 (1, 352) Dummy {f00=0x0088, f01=0x0190, f02=»ETE REQUEST, TC BUSY ~ P LDK A1,4 " P XRS A1,DWTST,A6 RESET STATUS . P LDKL A1,TCBUSY RC: TC BUSY T P IFT RQLOGG=1 x P CF A15,REQLOG P XIF * P CF A15,TENDIO COMPLETE WRITE REQUEST P CF A5,WREOT SEND EOT P ABL BMM000
0x1b4734…1b48c8 Dummy {f00=0x0088, f01=0x0190, f02=»F(Z) MUT000 P CM* DWTTP,A6 P CM DWTTP,A6 * PMUT000 EQU * > $ P CM DWTACK,A6 RESET ACK COUNTER R P LDK A3,3 BUFFER INDEX z P ST A3,ECBEL,A8 P AD A3,ECBBA,A8 PMUT100 EQU * P LDKL A1,RTYLIM ( P ST A1,DWTRTY,A6 RES
0x1b48c8…1b4a5c Dummy {f00=0x0088, f01=0x0190, f02=» LDK A2,STX P CF A5,WRITE SEND STX & P LDK A4,0 RESET CHARACTER COUNTER 2 PMUT120 EQU * P LD A1,ECBEL,A8 p P CW A1,ECBRL,A8 ( P RF(E) MUT150 END OF MESSAGE REACHED P CWK A4,MAXTBL 4 P RF(E) MUT140 END OF TRANSMISSION BLOC
0x1b4a5c…1b4bf0 Dummy {f00=0x0088, f01=0x0190, f02=»WK A2,ETX P RF(E) MUT135 P CWK A2,ETB ( P RF(E) MUT135 < PMUT130 EQU * R ( P XRS A2,DWTBCC,A6 UPDATE BCC COUNTER f $ P CF A5,WRITEP SEND ONE CHARACTER P RB MUT120 PMUT135 EQU * ( P LDK A1,CODERR RC: CODE CHECK ERROR
0x1b4bf0…1b4d84 Dummy {f00=0x0088, f01=0x0190, f02=»MUT160 PMUT150 EQU * P LDK A2,ETXP " PMUT160 EQU * 6 P XRS A2,DWTBCC,A6 UPDATE BCC J P CF A5,WRITE SEND ETB / ETX n P LD A2,DWTBCC,A6 P CF A5,WRITEP SEND BCC P LDK A2,PAD P CF A5,WRITE SEND PAD P LDK A1,1
0x1b4d84…1b4f18 Dummy {f00=0x0088, f01=0x0190, f02=» t P LDR A2,A2 P RF(NN) MUT190 * PMUT180 EQU * TIME OUT, UNDEFINED REPLY 0 P CF A5,HALTIN ^ P LDKL A1,RETRAN t 0 P ORS A1,ECBRC,A8 PRELOAD RC: RETRANSMISSION P IM DWTRTY,A6 ( P ABL(NL) SEL115 RETRY LIMIT OVERFLOW P CF A5
0x1b4f18…1b50ac Dummy {f00=0x0088, f01=0x0190, f02=» CF A5,HALTIN HALT INPUT P CWK A2,SEMIKO P RF(E) MUT250 WACK 6 P LD A1,DWTACK,A6 P P RF(Z) MUT210 h P CWK A2,'1' ~ P RB(NE) MUT180 & PMUT200 EQU * CORRECT ACKK RECEIVED P LD A1,ECBEL,A8 P CW A1,ECBRL,A8 & P RB(NE
0x1b50ac…1b5240 Dummy {f00=0x0088, f01=0x0190, f02=» P CF A15,REQLOG P XIF * P CF A15,TENDIO COMPLETE WRITE REQUEST * P ABL BMM000 X PMUT210 EQU * l P CWK A2,PAR:0 P RB(E) MUT200 ACK 0 RECEIVED P RB MUT180 PMUT220 EQU * P CF A5,HALTIN P CWK A2,NAK
0x1b5240…1b53d4 (1, 353) Dummy {f00=0x0088, f01=0x0190, f02=»1,1 P XRS A1,DWTACK,A6 P NGR A4,A4 & P ADR A3,A4 8 P ADS A4,ECBEL,A8 J P LDKL A1,RETRAN b P ORS A1,ECBRC,A8 z P ABL MUT110 PMUT230 EQU * P CWK A2,ENQ P RB(E) MUT225 ENQ RECEIVED P RB MUT180 PMUT250
0x1b53d4…1b5568 Dummy {f00=0x0088, f01=0x0190, f02=»TC BUSY P EJECT P* P* ( , P* SEPOSE : SEND POLL OR SELECT SEQUENCE 2 P* b $ P* ON ENTRY A3 CONTAINS TCA (S/P) l $ P* A4 CONTAINS STA / GP P* P* 0 PSEPOSE CF A5,WRSYN START OUTPUT AND SEND SYN P LDK
0x1b5568…1b56fc Dummy {f00=0x0088, f01=0x0190, f02=» P CF A5,WRITEP SEND TCA (P/S) P LDR A2,A3 , P CF A5,WRITEP > P LDR A2,A4 T P CF A5,WRITEP SEND STA / GP f P LDR A2,A4 P CF A5,WRITEP P LDK A2,ENQ P CF A5,WRITE SEND ENQ P LDK A2,PAD P CF A5,WRITE
0x1b56fc…1b5890 Dummy {f00=0x0088, f01=0x0190, f02=» P* P* 0 P* CINIT : INITIALIZE LINE CONTROL UNIT INFO P* P PCINIT EQU * Z ( P CM DWTST1,A6 CLEAR I/O ACTIVE IND. n ( P ADKL A15,4 INCREMENT STACK POINTER P ABR* A15 RETURN TO CALLER P XIF P EJECT P*
0x1b5890…1b5a24 Dummy {f00=0x0088, f01=0x0190, f02=»SY10 EQU * . P LDKL A2,NUMSYN NUMBER OF SYNC CHARACTERS P ST A2,SYNCON,A7 D PWRSY20 EQU * P LDK A2,SYN p P CF A5,WRITE P IM SYNCON,A7 P RB(NZ) WRSY20 P RTN A5 P EJECT P* P* P* WREOT : SEND SIN
0x1b5a24…1b5bb8 Dummy {f00=0x0088, f01=0x018e, f02=»END EOT PWRE10 EQU * P LDK A2,PAD $ P CF A5,WRITE SEND PAD 8 P LDK A2,PAD V P CF A5,WRITE j " P CF A5,HALTUT TERMINATE OUTPUT ~ P RTN A5 P* P* P* WRENQ : SEND SINGLE ENQ P* P* PWRENQ EQU
0x1b5bb8…1b5d4c Dummy {f00=0x0088, f01=0x018e, f02=» P* P* P* WRNAK : SEND SINGLE NAK P* : P* D PWRNAK EQU * N * P CF A5,WRSYN START OUTPUT AND SEND SYN b P LDK A2,NAK P CF A5,WRITE SEND NAK P RB WRE10 P* P* " P* WRACK : SEND ACK-0 OR ACK-1
0x1b5d4c…1b5ee0 Dummy {f00=0x0088, f01=0x0190, f02=» x P LDK A2,1 * P XRS A2,DWTACK,A6 INCREASE ACK COUNTER P LD A2,DWTACK,A6 H P RF(NZ) WRA10 ` P LDK A2,PAR:0 v P RF WRA20 PWRA10 EQU * P LDK A2,'1' PWRA20 EQU * P CF A5,WRITE SEND '0' OR '1' P RB WRE10
0x1b5ee0…1b6074 (1, 354) Dummy {f00=0x0088, f01=0x0190, f02=»FPOST =1 ( P ABL(NZ) TDISP WAIT FOR POWER UP =1 P IFF SALCUZ=1 > P LDR* A1,A7 T P ADR* A1,P h P CIO A2,1,0 z P LDKL A2,/100+SYN P EXR A1 . P ABL(NA) SST055 HW NOT PRESENT OR ERRONEUS P RTN A5 P XIF P I
0x1b6074…1b6208 Dummy {f00=0x0088, f01=0x0190, f02=»EXECUTE START COM. * P ABL(NA) SST055 HW NOT PRESENT OR ERR. P LDK A2,SYN H P LDR* A1,A7 GET OTR INST. P ADR* A1,P ~ P OTR A2,1,0 P EXR A1 * P ABL(NA) SST055 HW NOT PRESENT OR ERE. $ P ST A1,DWTST1,A7 SET I/P ACTIVE
0x1b6208…1b639c Dummy {f00=0x0088, f01=0x0190, f02=»OST =1 ( P ABL(NZ) TDISP WAIT FOR POWER UP =1 P IFF SALCUZ=1 < P LDR* A1,A6 R P ADR* A1,P f P CIO A2,1,0 x P EXR A1 P RF(NA) STOU10 P RF WRI200 PSTOU10 EQU * P RTN A5 P XIF P IFT SALCUZ=1 *
0x1b639c…1b6530 Dummy {f00=0x0088, f01=0x0190, f02=» ADR* A1,P P CIO A2,1,0 " P EXR A1 CIO START WITH PARITY & P RF(A) STOUT2 ACCEPTED L P LDR* A1,A6 NOT ACC. j P ADR* A1,P P SST A2,0 P EXR A1 CHECK SST P RF(A) STOUT1 P HLT PSTOUT1 EQU * P LDK A2,PARITY
0x1b6530…1b66c4 Dummy {f00=0x0088, f01=0x0190, f02=»N SYN PATTERN P LDR* A1,A6 P ADR* A1,P * P OTR A2,1,0 OTR SYN < P EXR A1 X P RF(NA) STOUT3 NOT ACCEPTED h $ P ST A1,DWTST1,A6 SET O/P ACTIVE $ P RF WRI200 ACCEPTED WAIT FOR INT PSTOUT3 EQU * P RTN A5 P XIF
0x1b66c4…1b6858 Dummy {f00=0x0088, f01=0x018e, f02=»C A1,DWTST+1,A6 P SC A1,DWTST+1,A7 P LDR* A1,A7 2 P ADR* A1,P F P IFF SALCUZ=1 X P CIO A2,1,0 n P XIF P IFT SALCUZ=1 P CIO A2,0,0 P XIF P LDK A2,CBDISC DISCONNECT P EXR A1 PDISC05 EQU *
0x1b6858…1b69ec Dummy {f00=0x0088, f01=0x0190, f02=» ~ P RF(Z) DISC20 P CM* DWTTP,A6 P CM DWTTP,A6 4 PDISC20 EQU * H P LD A1,DWTTP,A7 P RF(Z) DISC30 t P CM* DWTTP,A7 P CM DWTTP,A7 PDISC30 EQU * P RTN A5 P* P* P* HALTIN : HALT LINE INPUT
0x1b69ec…1b6b80 Dummy {f00=0x0088, f01=0x0190, f02=»A1,P P CIO A2,0,0 P EXR A1 P ORKL A1,/840 A1:= SST INSTR 0 P EXR A1 T P LDR A1,A2 d P LD A2,DWTST1,A7 RELOAD A2 x $ P CM DWTST1,A7 CLEAAR I/P ACTIVE P RTN A5 P* P* P* HALTUT : HALT LINE OUTPUT
0x1b6b80…1b6d14 (1, 355) Dummy {f00=0x0089, f01=0x0190, f02=»A1,P P CIO A2,0,0 P EXR A1 " P IFT SALCUZ=1 2 " P LD A1,DWTST1,A6 O/P ACTIVE ? H & P RF(Z) HALTU1 NO NO INTERRUPT THEN n $ P CF A5,WRI200 WAIT FOR INTERRUPT PHALTU1 EQU * P XIF P LDR* A1,A6 P ADR* A1,P
0x1b6d14…1b6ea8 Dummy {f00=0x0089, f01=0x018e, f02=»CT P* P* 2 P* WRITEP : GENERATE PARITY AND SEND CHARACTER P* T P* ^ PWRITEP EQU * h P ANK A2,/7F | P LC A2,PARTAB,A2 P* P* $ P* WRITE : TRANSMIT ONE CHARACTER P* P* PWRITE EQU *
0x1b6ea8…1b703c Dummy {f00=0x0089, f01=0x0190, f02=» P CF A15,LOGOUT P XIF PWRI200 EQU * & P ST A3,DWTSAV,A6 : P ST A4,DWTSAV+2,A6 R P ST A5,DWTSAV+4,A6 l P RF READ10 PWRI300 EQU * P LDR* A1,A6 P ADR* A1,P P SST A1,0 P EXR A1 P IFT SALCUZ=1 (
0x1b703c…1b71d0 Dummy {f00=0x0089, f01=0x0190, f02=» BMM LOOP p " P IM TPCONT,A7 COUNT TP-ERRORS P LDK A5,STB 8 P ADR A5,A6 L P ABL BMM RESTART REQUEST ^ P EJECT ~ P* P* * P* READTO : READ WITH TIME SUPERVISION " P* FOR 2-/4-WIRE LINE P* P* P
0x1b71d0…1b7364 Dummy {f00=0x0089, f01=0x0190, f02=»E4 PREADT0 EQU * ( P ST A4,DWTTP,A7 STORE TIMER POINTER P LD A4,DWTSAV+2,A7 J PRESYNC EQU * RESYNCRONIZE d P IFT SALCUZ=1 " P CF A5,HALTIN STOP I/P BEFORE P XIF P CF A5,STINP PRES20 EQU * P CF A5,READ WAIT
0x1b7364…1b74f8 Dummy {f00=0x0089, f01=0x018e, f02=» $ P CM* DWTTP,A7 HALT RECEIVE TIMER P CM DWTTP,A7 , P RTN A5 @ P EJECT P PRET040 EQU * TIME OUT ENTRY ^ P LDR A7,A1 P CM DWTTP,A7 P LDK A5,4 P ADS A5,DWTA5,A7 P LDKL A2,/8000 PRETO50 EQU * P ABL IHI200
0x1b74f8…1b768c Dummy {f00=0x0089, f01=0x0190, f02=» | P LDR A1,A7 P CF A15,SETIME P DATA RET040,TIMENQ 0 P RB READT0 L P EJECT ^ P* l P* v . P* READP : READ CHARACTER AND CHECK PARITY * P* ON PARITY ERROR CR POSITIVE P* P* PREADP EQU * P
0x1b768c…1b7820 Dummy {f00=0x0089, f01=0x0190, f02=»F P CC A1,PARTAB,A2 P RF(N) READP1 " PREDRET ABR* A5 8 PREADP1 ADK A1,1 N P RB REDRET f P EJECT x P* P* READ : SAVE REGISTER A3-A5 2 P* RELOAD REGISTER A1-A8 FROM A15 STACK * P* RETURN TO INTERRUPTED
0x1b7820…1b79b4 (1, 356) Dummy {f00=0x0089, f01=0x0190, f02=» PREAD10 EQU * P IFT CPU852=1 P LDR* A8,A15 . P LDR* A7,A15 B P LDR* A6,A15 V P LDR* A5,A15 j P LDR* A4,A15 ~ P LDR* A3,A15 P LDR* A2,A15 P LDR* A1,A15 P XIF P IFF CPU852=1 P MLR 8,A15 P XIF
0x1b79b4…1b7b48 Dummy {f00=0x0089, f01=0x0190, f02=»,2,A15 P STR A3,A15 P STR A4,A15 " P STR A5,A15 6 P STR A6,A15 J P STR A7,A15 ^ P STR A8,A15 r P LD A2,16,A15 P ST A1,16,A15 P ABR A2 P XIF P IFF CPU852=1 P ST A8,-10,A15 P LD A8,4,A15
0x1b7b48…1b7cdc Dummy {f00=0x0089, f01=0x0190, f02=»*************************** t P* $ ( P* INTERRUPT HANDLER , CHLC RECEIVER . P* Z < P******************************************************* d P* P* P* PIH8101 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A7
0x1b7cdc…1b7e70 Dummy {f00=0x0089, f01=0x018e, f02=»GIN P XIF PIHI200 EQU * P LD A3,DWTSAV,A7 , P LD A4,DWTSAV+2,A7 D P LD A5,DWTSAV+4,A7 ^ P LD A6,DWTA6,A7 x P LD A8,DWTA8,A7 P RTN A5 P IFF HILINO=1 P EJECT P* P* P* PIH8103 EQU *
0x1b7e70…1b8004 Dummy {f00=0x0089, f01=0x0190, f02=» P ABL SSTIN P IFF HILINO=2 P EJECT 0 P* > P* H P* R PIH8105 EQU * P ST P,INTSAV p P CF A15,SAVER P LDKL A7,DW8105 , P INR A2,0,DAMI03 GET CHARACTER FROM LINE P RB(A) IHI100 P ABL SSTIN
0x1b8004…1b8198 Dummy {f00=0x0089, f01=0x018e, f02=»A7,DW8107 , P INR A2,0,DAMI04 GET CHARACTER FROM LINE P RB(A) IHI100 B P RF SSTIN X P IFF HILINO=4 j P EJECT P* P* P* PIH8109 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A7,DW8109 , P INR A
0x1b8198…1b832c Dummy {f00=0x0089, f01=0x0190, f02=» P* PIH8111 EQU * P ST P,INTSAV " P CF A15,SAVER 6 P LDKL A7,DW8111 L , P INR A2,0,DAMI06 GET CHARACTER FROM LINE d P RB(A) IHI100 P RF SSTIN P IFF HILINO=6 P EJECT P* P* P* PIH8113 EQU
0x1b832c…1b84c0 Dummy {f00=0x0089, f01=0x0190, f02=»0 P RF SSTIN P IFF HILINO=7 P EJECT 2 P* @ P* J P* T PIH8115 EQU * ^ P ST P,INTSAV r P CF A15,SAVER P LDKL A7,DW8115 , P INR A2,0,DAMI08 GET CHARACTER FROM LINE P RB(A) IHI100 P RF SSTIN
0x1b84c0…1b8654 (1, 357) Dummy {f00=0x0089, f01=0x0190, f02=»L A7,DW8117 , P INR A2,0,DAMI09 GET CHARACTER FROM LINE P ABL(A) IHI100 D P RF SSTIN Z P IFF HILINO=9 l P EJECT P* P* P* PIH8119 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A7,DW8119 , P INR
0x1b8654…1b87e8 Dummy {f00=0x0089, f01=0x0190, f02=» P* PIH8121 EQU * P ST P,INTSAV " P CF A15,SAVER 6 P LDKL A7,DW8121 L , P INR A2,0,DAMI11 GET CHARACTER FROM LINE d P ABL(A) IHI100 P RF SSTIN P IFF HILINO=11 P EJECT P* P* P* PIH8123 EQU
0x1b87e8…1b897c Dummy {f00=0x0089, f01=0x0190, f02=»00 P RF SSTIN P XIF P EJECT ( < P******************************************************* 6 P* v . P* STATUS INTERRUPT HANDLER , CHLC RECEIVER P* < P******************************************************* P* P*
0x1b897c…1b8b10 Dummy {f00=0x0089, f01=0x0190, f02=»FF LOGG=0 P CF A15,LOGSST P XIF ( P LDR A1,A2 4 P RF(NZ) SST030 F P IFF SALCUZ=1 P LDR* A1,A7 r P ADR* A1,P P CIO A2,1,0 P LDKL A2,/116 P EXR A1 START INPUT P XIF P ABL READ10 PSST030 EQU
0x1b8b10…1b8ca4 Dummy {f00=0x0089, f01=0x0190, f02=»050 P IFT SALCUZ=1 P CM DWTST1,A7 CLEAR I/O IND. " P XIF F " P IM TPCONT,A7 COUNT TP ERRORS T P LD A1,DWTTP,A7 z P RF(Z) SST040 P CM* DWTTP,A7 P CM DWTTP,A7 PSST040 EQU * P LDK A5,STB P ADR A5,A6
0x1b8ca4…1b8e38 Dummy {f00=0x0089, f01=0x018e, f02=» LINE ~ P LDK A5,STB P ADR A5,A6 " P CF A5,DISCON 4 PSST65 EQU * J P IFT SALCUZ=1 ^ ( P CM DWTST1,A7 CLEAR I/P ACTIVE FLAG t P XIF * P LDK A1,MODNOP RC: MODEM NOT OPERABLE P LD A8,DWTECB,A6 P RF(Z) SST067
0x1b8e38…1b8fcc Dummy {f00=0x0089, f01=0x018e, f02=» P LD A8,DWTECB,A6 P RF(Z) SST069 P CM ECBRC,A8 2 P IFT RQLOGG=1 F P CF A15,REQLOG P XIF r PSST069 EQU * ~ P ABL DISEND PSST69A EQU * P IFT SALCUZ=1 " P LD A1,DWTST1,A7 GET I/O IND. " P ABL(Z) TDISP INAC
0x1b8fcc…1b9160 Dummy {f00=0x0089, f01=0x0190, f02=» < P******************************************************* P* H * P* INTERRUPT HANDLER , CHLC TRANSMITTER R P* < P******************************************************* P* P* P* PIH8102 EQU * P ST P,INTSAV
0x1b9160…1b92f4 (1, 358) Dummy {f00=0x0089, f01=0x0190, f02=»V+4,A6 P LD A7,DWTA7,A6 P LD A8,DWTA8,A6 & P RTN A5 > P IFF HILINO=1 N P EJECT d P* r P* | P* PIH8104 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A6,DW8104 P RB IHU100 P IFF HILINO=2
0x1b92f4…1b9488 Dummy {f00=0x0089, f01=0x0190, f02=» RB IHU100 P IFF HILINO=3 P EJECT ( P* 6 P* @ P* J PIH8108 EQU * T P ST P,INTSAV h P CF A15,SAVER | P LDKL A6,DW8108 P RB IHU100 P IFF HILINO=4 P EJECT P* P* P* PIH8110 EQU
0x1b9488…1b961c Dummy {f00=0x0089, f01=0x0190, f02=» P* P* PIH8112 EQU * P ST P,INTSAV , P CF A15,SAVER @ P LDKL A6,DW8112 V P RB IHU100 n P IFF HILINO=6 P EJECT P* P* P* PIH8114 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A6
0x1b961c…1b97b0 Dummy {f00=0x0089, f01=0x0190, f02=» P CF A15,SAVER P LDKL A6,DW8116 P RB IHU100 2 P IFF HILINO=8 D P EJECT Z P* h P* r P* | PIH8118 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A6,DW8118 P RB IHU100 P IFF HILINO=9 P EJE
0x1b97b0…1b9944 Dummy {f00=0x0089, f01=0x0190, f02=»0 P IFF HILINO=10 P EJECT P* . P* 8 P* B PIH8122 EQU * L P ST P,INTSAV ` P CF A15,SAVER t P LDKL A6,DW8122 P ABL IHU100 P IFF HILINO=11 P EJECT P* P* P* PIH8124 EQU *
0x1b9944…1b9ad8 Dummy {f00=0x0089, f01=0x0190, f02=»* FINDTC P* P* SEARCH TCA IN POLLINGLIST P* > P* A2 CONTAINS TCA AT ENTRY H P* j . P* A3 CONTAINS ADDRESS TO FOUND TC AT EXIT t , P* A4 CONTAINS INDEX IN LIST TO FOUND TC P* P* A1 A3 A4 ARE DESTROYED " P* CR = (
0x1b9ad8…1b9c6c Dummy {f00=0x0089, f01=0x018e, f02=» P ADKL A15,4 . P LD A4,PLIST,A6 GET LENGTH OF POLLINGLIST P LDR A3,A6 N P ADK A3,PLIST ` P ADR A3,A4 v PFIND10 EQU * P LDR* A1,A3 GET TCA P CWR A1,A2 " P RF(E) FIND40 ACTIVE TC FOUND P ANK A1,/FF P CWR
0x1b9c6c…1b9e00 Dummy {f00=0x0089, f01=0x0190, f02=» P ABR* A15 RETURN PFIND30 EQU * P LDR* A1,A3 4 PFIND40 EQU * H P ABR* A15 P* n P* x PPARTAB EQU * P* P NLIST @ P DATA /8001,/0283,/0485,/8607,/0889,/8A0B,/8C0D,/0E8F,/1091 @ P DATA /9213,/9415,/169
0x1b9e00…1b9f94 (1, 359) Dummy {f00=0x008a, f01=0x0190, f02=»B,/BC3D @ P DATA /3EBF,/40C1,/C243,/C445,/46C7,/C849,/4ACB,/4CCD,/CE4F @ P DATA /D051,/52D3,/54D5,/D657,/58D9,/DA5B,/DC5D,/5EDF,/E061 T @ P DATA /62E3,/64E5,/E667,/68E9,/EA6B,/EC6D,/6EEF,/70F1,/F273 . P DATA /F475,/76F7,/F879,/7AFB,/7CFD,/FE7F
0x1b9f94…1ba128 Dummy {f00=0x008a, f01=0x0190, f02=» P ST A8,DWTA8,A6 P* P* START REQUEST TIMER & P* D P LDR A1,A6 N P CF A15,SETIME ` P DATA TLTO,TIMACT v P ST A4,DWTATP,A6 P* P* CONNECT MODEM P* P LD A7,DWTA7,A6 P ST A8,DWTA8,A7 P CF
0x1ba128…1ba2bc Dummy {f00=0x008a, f01=0x0190, f02=»TP,A6 P RF TES030 PTES020 EQU * P LDR A6,A1 4 PTES030 EQU * F P CM DWTTP,A6 Z P LD A7,DWTA7,A6 n P LD A8,DWTA8,A7 P LDK A5,STB P ADR A5,A6 P CF A5,HALTIN P ANK A1,1 & P RF(NZ) TES330 MODEM NOT OPE
0x1ba2bc…1ba450 Dummy {f00=0x008a, f01=0x0190, f02=» P ADR A1,A7 P ST A1,DWTA5,A7 ( P CM ECBCW,A8 RESET BIT ERROR COUNTER 2 P CF A5,STINP ^ P CF A5,WRSYN r P* P* TRANSMITT TEST PATTERN P* PTES100 EQU * ( P LDK A4,0 BIT AND CHARACTER COUNTER " P LDKL A3,/1FF
0x1ba450…1ba5e4 Dummy {f00=0x008a, f01=0x018e, f02=» P CF A5,PATGEN P RB TES110 P* 0 " P* COMPLETE PATTERN TRAMSMITTED : P* ` PTES150 EQU * j P LDK A2,PAD ~ P CF A5,WRITE P RB TES150 P EJECT P* P* P* SYNCRONIZE INPUT P* PREC000 EQU
0x1ba5e4…1ba778 Dummy {f00=0x008a, f01=0x0190, f02=» 0 P* COMPARE RECEIVED PATTERN WITH TRANSMITTED P* < ( P LDK A4,0 BIT AND CHARACTER COUNTER F " P LDKL A3,/1FF 1:ST SHIFT STATE r PTES200 EQU * P XRR A2,A3 P ANK A2,/FF P RF(Z) TES240 NO BIT ERRORS P ECR A2,A2 P
0x1ba778…1ba90c Dummy {f00=0x008a, f01=0x0190, f02=» P RB(N) TES210 PTES240 EQU * P CWK A4,/1F8 . P RF(E) TES300 B P CF A5,READ X P CF A5,PATGEN l P LDR A2,A2 P RF(N) TES400 P RB TES200 P* P* COMPLETE PATTERN RECEIVED P* PTES300 EQU * P
0x1ba90c…1baaa0 Dummy {f00=0x008a, f01=0x018e, f02=» PTES340 EQU * P IFT RQLOGG=1 P CF A15,REQLOG 2 P XIF H P CF A15,TENDIO T P CF A5,DISCON j P ABL TDISP P EJECT P* P* TIME OUT P* PTLTO EQU * P LDR A6,A1 P LD A7,DWTA7,A6 P LD A5
0x1baaa0…1bac34 (1, 360) Dummy {f00=0x008a, f01=0x0190, f02=» P RB TES330 P EJECT P* ( P* 2 P* PATTERN GENERATOR < P* X P* A3:= CURRENT SHIFT STATE b $ P* A4:= BIT AND CHARACTER COUNTER P* PPATGEN EQU * P LDR A1,A3 P SLL A1,4 P XRR A1,A3 P ANK A1,
0x1bac34…1badc8 Dummy {f00=0x008a, f01=0x0190, f02=» A3,1 P ADK A4,1 P LDR A1,A4 P ANK A1,/7 2 P RB(NZ) PATGEN D P RTN A5 Z P IFT BDA=1 j P EJECT | P* P* < P* POLL AND SELECT ADDRESS CONVERTING ROUTINES AND TABLES P* PSELADR EQU * P ANK A3,/7F
0x1badc8…1baf5c Dummy {f00=0x008a, f01=0x0190, f02=» * P DATA /2041 P DATA /4243 P DATA /4445 2 P DATA /4647 F P DATA /4849 Z P DATA /5B2E n P DATA /3C28 P DATA /2BFF P* P* SELECT ADDRESSES P* PSELTAB EQU * P DATA /2D2F P DATA /5
0x1baf5c…1bb0f0 Dummy {f00=0x008a, f01=0x0190, f02=» P IFT RQLOGG=1 P EJECT P* , P* REQUEST LOGG 6 ( P* 1:ST WORD=DEVICE ADDRESS, ORDER L P* 2:ND WORD = RETURN CODE x P* 3:RD WORD = TID P* PREQLOG EQU * P STR A2,A15 P STR A3,A15 P LD A3,REQ
0x1bb0f0…1bb284 Dummy {f00=0x008a, f01=0x0190, f02=»+1,A6 P SCR A2,A3 P ADK A3,1 P LD A2,DWTECB,A6 2 P OR A1,ECBRC,A2 J P STR A1,A3 RETURN CODE b P ADK A3,2 P LD A2,10,A6 TTAB ADDRESS P ADK A2,4 P LDR* A2,A2 TID P STR A2,A3 P ADK A3,2 P CWK A
0x1bb284…1bb418 Dummy {f00=0x008a, f01=0x0190, f02=» P ADKL A15,4 P ABR* A15 P EJECT . P* < P* REQUEST LOGG AREA F P* b ( P* 1:ST WORD=DEVICE ADDRESS, ORDER l P* 2:ND WORD = RETURN CODE P* 3:RD WORD = TID P* P* PREQPEK DATA REQBUF PRE
0x1bb418…1bb5ac Dummy {f00=0x008a, f01=0x0190, f02=»INTERRUPT LOGGING ROUTINE P* " PLOGOUT EQU * , P ORKL A2,/C000 @ P RF LOG V PLOGSST EQU * f P ORKL A2,/8000 z PLOGIN EQU * PLOG EQU * P LD A1,LOGPNT P CWK A2,/C000+PAD P RF(E) PADLOG PAD OUTPUT P C
0x1bb5ac…1bb740 Dummy {f00=0x008a, f01=0x0190, f02=» OF LOGBUF z " P LDKL A1,LOGBUF RESET POINTER PLOGRTN EQU * 8 P ST A1,LOGPNT L P ANKL A2,/FF b P ADKL A15,4 v P ABR* A15 P* PPADLOG EQU * P* P CW A2,-2,A1 P RF(E) PAD10 P CM PADOUT P ADK A1,2
0x1bb740…1bb8d4 (1, 361) Dummy {f00=0x008a, f01=0x018e, f02=»YN10 P CM SYNIN P ADK A1,2 PSYN10 ADKL A1,-2 0 P IM SYNIN H P RB LOG010 Z P EJECT l P* z P* PSYNIN DATA 0 PPADOUT DATA 0 P* P* P* LOGG AREA P* * P* /C0XX XX = OUT
0x1bb8d4…1bba68 Dummy {f00=0x008a, f01=0x403e, f02=» PLOGEND DATA /FFFF P XIF " P END .@ :-2 0 P IM SYNIN H P RB LOG010 Z P EJECT l P* z P* PSYNIN DATA 0 PPADOUT DATA 0 P* P* P* LOGG AREA P* * P* /C0XX XX = OUT
0x1bba68…1bbbfc Dummy {f00=0x008a, f01=0x2008, f02=» ********************* v * & * 0 DRBMON EQU * : END N@ Z
0x1bbbfc…1bbd90 Dummy {f00=0x008a, f01=0x0190, f02=» B P ] B ] GETDNA . , ( V ] ] ] @ , ( B P P T p , ( T P X , ( ' ] X ] Y B TENDI
0x1bbd90…1bbf24 Dummy {f00=0x008a, f01=0x0190, f02=» B C B GETSNA, $ , ( 0 Y B Y V Y Y 6 DWTCHPC f , ( Y Y B X B x , ( Y B X B:D :D , ( :D C B Y " * &
0x1bbf24…1bc0b8 Dummy {f00=0x008a, f01=0x0190, f02=» @ P A @ P X , ( s R X " T ! @ P & , ( W A 4 X B V , ( X *T W 0 Y *T , ( @ A X R , ( A X " T ! C
0x1bc0b8…1bc24c Dummy {f00=0x008a, f01=0x0190, f02=» > W @ W W @W * & a W W W W ( SETIME V , ( } X "R P A Y $ h , ( @ W Y $ V V X "Z X A , ( Y $_0 Y $ X , ( 6 X
0x1bc24c…1bc3e0 Dummy {f00=0x008a, f01=0x0190, f02=»P P P _ 4 (P 0 ) , ( Q > (P _ ) 1_ X *P ( , ( q 0 R Y *_4 ( (P _ X , ( ) 1_J ( (XV P _ 0 )_d , ( (P _ ) 1 4 $ , Q , , ( W $ L H I
0x1bc3e0…1bc574 (1, 362) Opaque[0x194]
0x1bc574…1bc708 # DirEnt {nam=»DRDC82«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1158, f03=0x0000}
0x1bc574…1bc708 IdxSect {
0x1bc574…1bc708 f00 = 0x008a // 0x1bc574 @0x0
0x1bc574…1bc708 f01 = 0x0036 // 0x1bc576 @0x2
0x1bc574…1bc708 gno = [ // 0x1bc578 @0x4
0x1bc574…1bc708 [0x00]: C0x008a.0x3.0
0x1bc574…1bc708 [0x01]: C0x008b.0x0.0
0x1bc574…1bc708 [0x02]: C0x008b.0x1.0
0x1bc574…1bc708 [0x03]: C0x008b.0x2.0
0x1bc574…1bc708 [0x04]: C0x008b.0x3.0
0x1bc574…1bc708 [0x05]: C0x008c.0x0.0
0x1bc574…1bc708 [0x06]: C0x008c.0x1.0
0x1bc574…1bc708 [0x07]: C0x008c.0x2.0
0x1bc574…1bc708 [0x08]: C0x008c.0x3.0
0x1bc574…1bc708 [0x09]: C0x008d.0x0.0
0x1bc574…1bc708 [0x0a]: C0x008d.0x1.0
0x1bc574…1bc708 [0x0b]: C0x008d.0x2.0
0x1bc574…1bc708 [0x0c]: C0x008d.0x3.0
0x1bc574…1bc708 [0x0d]: C0x008e.0x0.0
0x1bc574…1bc708 [0x0e]: C0x008e.0x1.0
0x1bc574…1bc708 [0x0f]: C0x008e.0x2.0
0x1bc574…1bc708 [0x10]: C0x008e.0x3.0
0x1bc574…1bc708 [0x11]: C0x008f.0x0.0
0x1bc574…1bc708 [0x12]: C0x008f.0x1.0
0x1bc574…1bc708 [0x13]: C0x008f.0x2.0
0x1bc574…1bc708 [0x14]: C0x008f.0x3.0
0x1bc574…1bc708 [0x15]: C0x0090.0x0.0
0x1bc574…1bc708 [0x16]: C0x0090.0x1.0
0x1bc574…1bc708 [0x17]: C0x0090.0x2.0
0x1bc574…1bc708 [0x18]: C0x0090.0x3.0
0x1bc574…1bc708 [0x19]: C0x0091.0x0.0
0x1bc574…1bc708 [0x1a]: C0x0091.0x1.0
0x1bc574…1bc708 ]
0x1bc574…1bc708 }
0x1bc708…1bc89c Dummy {f00=0x008a, f01=0x0190, f02=» 2 P IDENT DRDC82 REL 11.0 81-01-26 870105041100 P : " P =8, ERROR IN ABORT ROUTINE B P REL 10.0 80-06-24 h & P =7, ABORT ROUTINE FOR REL 11.0 P REL 10.0 80-06-24 P =6,WRITE TIMEOUT POINTER P REL 10.0 80-03-20
0x1bc89c…1bca30 Dummy {f00=0x008a, f01=0x0190, f02=»0-01-08 P =2,WRONG LABEL P 79-11-01 * , P =1,STACK OVERFLOW,BAD INDEX,LOGG AREA > P PRR 10.1 MMU ADAPTATIONS n P REL 8.3 79-08-09 P* * P* SOFTWARE FOR PTS 6810 CONCENTRATOR , P* DRDC82 HDLC MASTER DATA COM D
0x1bca30…1bcbc4 Dummy {f00=0x008a, f01=0x0190, f02=»OR d . P* VIA LEASED 4-WIRE ON PROGRAM CHANNEL P* < 6 P* PROTOCOL : HDLC MASTER FOR MULTIPOINT DATA LINK F P* P******* " P* STANDARD USE OF REGISTERS P******* P* A1:WORK REGISTER $ P* A2:I/O AND WORK R
0x1bcbc4…1bcd58 Dummy {f00=0x008a, f01=0x0190, f02=»RESS x P* A7:INPUT DWT ADDRESS P* A8:ECB ADDRESS 0 P* N P********** X P EJECT j P********** x P* ENTRY POINTS P* $ P ENTRY DC82ON RECOVERY POWER ON P* P* INPUT VECTORS P* P ENT
0x1bcd58…1bceec Dummy {f00=0x008a, f01=0x0190, f02=»OUTPUT VECTORS P* P ENTRY IH8202,IH8204 . P ENTRY IH8206,IH8208,IH8210,IH8212,IH8214 < . P ENTRY IH8216,IH8218,IH8220,IH8222,IH8224 n P* P* & P ENTRY DW8202,DW8204 OUTPUT DWT'S . P ENTRY DW8206,DW8208,DW8210,DW8212,DW8214
0x1bceec…1bd080 Dummy {f00=0x008a, f01=0x0190, f02=»07,DW8209,DW8211,DW8213 ~ . P ENTRY DW8215,DW8217,DW8219,DW8221,DW8223 P EJECT R P* ` P*********** j P* EXTERNAL REFERENCES ~ P* " P EXTRN TDISP DISPATCHER ENTRY $ P EXTRN TENDIO REQUEST COMPLETION P EXTRN DISEND
0x1bd080…1bd214 (1, 363) Dummy {f00=0x008b, f01=0x0190, f02=»XTRN DWTECB DWT ECB ADDRESS P EXTRN DWTOR DWT ORDER $ $ P EXTRN ECBBA ECB BUFFER ADDRESS B & P EXTRN ECBRL ECB REQUESTED LENGTHH j & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD P
0x1bd214…1bd3a8 Dummy {f00=0x008b, f01=0x018e, f02=»EMBLY ~ P* PX:A EQU 12 LINE NUMBER P* 6 PX:B EQU 10 POLL LIST LENGTH @ PPLT EQU X:B d P* x PX:C EQU 1 LOGGING INTERRUPT PLOGG EQU X:C P* PX:D EQU -6 RETRY LIMIT P* P* PX:E EQU /22 INPUT
0x1bd3a8…1bd53c Dummy {f00=0x008b, f01=0x0190, f02=» v P* PX:I EQU /7 INPUT LINE 5 P* 2 PX:J EQU /20 INPUT LINE 6 < P* PX:K EQU /21 INPUT LINE 7 f P* PX:L EQU /23 INPUT LINE 8 P* PX:M EQU /24 INPUT LINE 9 P* PX:N EQU /25 INPUT LINE 10 P*
0x1bd53c…1bd6d0 Dummy {f00=0x008b, f01=0x0190, f02=»CT P* P* SYSTEM PARAMETERS P* 0 0 PHILINO EQU X:A HIGHEST LINE NUMBER IN SYSTEM : & PPLTLEN EQU PLT+PLT POLLIST LENGTH n PLINE01 EQU PLTLEN PLINE02 EQU PLTLEN PLINE03 EQU PLTLEN PLINE04 EQU PLTLEN PLINE05 E
0x1bd6d0…1bd864 Dummy {f00=0x008b, f01=0x0190, f02=»LEN PLINE11 EQU PLTLEN PLINE12 EQU PLTLEN & P* @ PTBUFL EQU X:Q J PMMUPAG EQU 0 ` , P* IF MMUPAG = 1 MMU-PAGING IS INCLUDED t P* * PCPU852 EQU 1 =0, EXTENDED INSTRUKTIONS P* PDEVIND EQU 2 0 PBUFLEN EQU TBU
0x1bd864…1bd9f8 Dummy {f00=0x008b, f01=0x0190, f02=»E TIME-OUT (2 SECONDS) | PTIMMRY EQU 5 MODEM READY T-O " PTIMACT EQU 100 ACTIVITY TIMER B PRTYLIM EQU X:D RETRY LIMIT h PRTYLID EQU -3 P* P* CONSTANTS P* PBIT0 EQU /8000 PBIT1 EQU /4000 PBIT2 EQU /2000
0x1bd9f8…1bdb8c Dummy {f00=0x008b, f01=0x0190, f02=» EQU /40 PBIT10 EQU /20 PBIT11 EQU /10 & PBIT12 EQU /8 < PBIT13 EQU /4 P PBIT14 EQU /2 d PBIT15 EQU /1 x PNBIT11 EQU /FFEF PNBIT12 EQU /FFF7 PNBIT13 EQU /FFFB P EJECT : P**************************************
0x1bdb8c…1bdd20 Dummy {f00=0x008b, f01=0x0190, f02=»****************** l P* P* ORDERS: $ P* 6 P* /00 - TEST @ P* /02 - READ T P* /06 - WRITE h P* /22 - OPEN LINE ~ P* /24 - CLOSE LINE P* /26 - HALT POLLING P* /27 - START POLLING P* /37 - OPEN TC P* /3
0x1bdd20…1bdeb4 (1, 364) Dummy {f00=0x008b, f01=0x0190, f02=»* & P* STATUS WORD =/ 0 SEE BITS BELOW P* 4 P* > PCOMPLT EQU 0 STATUS WORD = 0 H P* l ( PMODNOP EQU BIT15 MODEM NOT OPERABLE v PNORESP EQU BIT14 NO RESPONSE ( PTCINPL EQU BIT14 ALREADY IN POLLIST . PPOLPER EQU BIT14 POLLI
0x1bdeb4…1be048 Dummy {f00=0x008b, f01=0x0190, f02=»TE EQU BIT4+BIT0 LINE OPEN/CLOSE ( PPOLHLT EQU BIT4+BIT0 POLLING HALTED ( PTCACT EQU BIT2 TC ACTIVE T PINVTCA EQU BIT0 INVALID TCA t $ PLSTOVF EQU BIT0 POLLIST OVERFLOW & PTCNLST EQU BIT0 TC NOT IN POLLIST P EJECT P* " P*
0x1be048…1be1dc Dummy {f00=0x008b, f01=0x0190, f02=» P IFF MMUPAG=0 6 PDWTDRD EQU /14 START OF DRIVER DEFINED PART OF DWT P XIF X P* d PDWTTP EQU DWTDRD+/00 n PDWTATP EQU DWTDRD+/02 PSTB EQU DWTDRD+/0E PDWTSAV EQU DWTDRD+/10 PUSBUF EQU DWTDRD+/1C PDCBUCU EQU D
0x1be1dc…1be370 Dummy {f00=0x008b, f01=0x0190, f02=»EQU DWTDRD+/24 PVSS EQU DWTDRD+/26 PVRS EQU DWTDRD+/28 0 PDWTRTY EQU DWTDRD+/2A J PDWTORI EQU DWTRTY+2 h PDWTORO EQU DWTORI+2 PPLIST EQU DWTORO+2 P EJECT P* P* INSTRUCTIONS EQUALS P* PCIOST EQU /4
0x1be370…1be504 Dummy {f00=0x008b, f01=0x018e, f02=»MODEM x PSSTTHR EQU 2 THROUGPUT & PSSTMSK EQU /F09F SIGNIFICANT BITS , P* V P* CIO START IN COMMAND ` P* ~ PCICMO EQU 2 CONNECT MODEM " PCIDISC EQU /1 DISCONNECT MODEM , PCIREPC EQU 5 RECEIVE ON PROGRAM CHANNEL PCIIDLE E
0x1be504…1be698 Dummy {f00=0x008b, f01=0x018e, f02=» " P* CHLC DEVICE ADDRESS EQUATES P* . PDAMI01 EQU X:E INPUT 8 PDAMI02 EQU X:F T PDAMI03 EQU X:G j PDAMI04 EQU X:H PDAMI05 EQU X:I PDAMI06 EQU X:J PDAMI07 EQU X:K PDAMI08 EQU X:L PDAMI09 EQU X:M PDAMI
0x1be698…1be82c Dummy {f00=0x008b, f01=0x018e, f02=» PDAMU03 EQU DAMI03+/10 PDAMU04 EQU DAMI04+/10 " PDAMU05 EQU DAMI05+/10 @ PDAMU06 EQU DAMI06+/10 ^ PDAMU07 EQU DAMI07+/10 | PDAMU08 EQU DAMI08+/10 PDAMU09 EQU DAMI09+/10 PDAMU10 EQU DAMI10+/10 PDAMU11 EQU DAMI11+/1
0x1be82c…1be9c0 Dummy {f00=0x008b, f01=0x0190, f02=» PMLIN01 EQU 1 AT LEAST 1 LINE P IFF HILINO=1 ( " PMLIN02 EQU 1 AT LEAST 2 LINES > P IFF HILINO=2 d " PMLIN03 EQU 1 AT LEAST 3 LINES z P IFF HILINO=3 " PMLIN04 EQU 1 AT LEAST 4 LINES P IFF HILINO=4 PMLIN05 EQU 1 AT LEAST
0x1be9c0…1beb54 (1, 365) Dummy {f00=0x008b, f01=0x0190, f02=»FF HILINO=7 " PMLIN08 EQU 1 AT LEAST 8 LINES P IFF HILINO=8 : " PMLIN09 EQU 1 AT LEAST 9 LINES P P IFF HILINO=9 v " PMLIN10 EQU 1 AT LEAST 10 LINES P IFF HILINO=10 " PMLIN11 EQU 1 AT LEAST 11 LINES P IFF HILINO=11 PMLIN
0x1beb54…1bece8 Dummy {f00=0x008b, f01=0x0190, f02=»AN 11 | P IFF HILINO=10 PMLIN10 EQU 0 LESS THAN 10 $ P IFF HILINO=9 F PMLIN09 EQU 0 LESS THAN 09 P IFF HILINO=8 ~ PMLIN08 EQU 0 LESS THAN 8 P IFF HILINO=7 PMLIN07 EQU 9 LESS THAN 7 P IFF HILINO=6 PMLIN06 E
0x1bece8…1bee7c Dummy {f00=0x008b, f01=0x018e, f02=» HILINO=3 PMLIN03 EQU 0 LESS THAN 3 P IFF HILINO=2 2 PMLIN02 EQU 0 LESS THAN 2 H P XIF h P IFT LINE01=0 t PMLIN01 EQU 0 P XIF P EJECT P* & P* HDLC MASTER CONFIGURATION TABLE P* $ PDWMTAB DATA DWMTE-
0x1bee7c…1bf010 Dummy {f00=0x008b, f01=0x0190, f02=» P DATA DW8204,DW8203 P IFF HILINO=2 $ P DATA DW8206,DW8205 : P IFF HILINO=3 V P DATA DW8208,DW8207 l P IFF HILINO=4 P DATA DW8210,DW8209 P IFF HILINO=5 P DATA DW8212,DW8211 P IFF HILINO=6 P DATA
0x1bf010…1bf1a4 Dummy {f00=0x008b, f01=0x0190, f02=» P DATA DW8220,DW8219 P IFF HILINO=10 $ P DATA DW8222,DW8221 : P IFF HILINO=11 V P DATA DW8224,DW8223 l P XIF PDWMTE EQU * P EJECT P* , P* LINE CONTROL INPUT CONTROL FIELD MASK P* PREMI EQU 1 I-F
0x1bf1a4…1bf338 Dummy {f00=0x008b, f01=0x018e, f02=»S MASK PRECMDR EQU /97 CMDR FRAME PREUA EQU /73 UA FRAME 0 P* N . P* LINE CONTROL OUTPUT CONTROL FIELD MASK X P* PTRRP EQU /11 RR+POLL PTSNRM EQU /93 SNRM FRAME PTDISC EQU /53 DISC FRAME PTRNRP EQU /15 RNR+POLL
0x1bf338…1bf4cc Dummy {f00=0x008b, f01=0x0190, f02=» P* P* DWTST : " P* BIT 11 =1 WRONG N(S) " P* BIT 12 =1 WRONG N(R) F $ P* BIT 13 =1 RNR RECEIVED l ( P* BIT 14 =0 POLLING PERMITTED . P* BIT 14 =1 HALT POLLING INITIATED " P* BIT 15 =0 LIN
0x1bf4cc…1bf660 Dummy {f00=0x008b, f01=0x0190, f02=»** P* 0 P* STATUS :/00 MODEM READY,CARRIER DETECTED $ P* :/01 MODEM NOT READY H $ P* :/02 THROUGPUT ERROR p ( P* :/20 CARRIER NOT DETECTED . P* :/3000 IDLE ONE,ABORT DETECTED P* P********
0x1bf660…1bf7f4 (1, 366) Dummy {f00=0x008b, f01=0x0190, f02=»NE 01,OUTPUT AND CONTROL P* PDW8202 EQU * TABLE ENTRY * P DATA DAMU01 DEVICE ADDRESS J $ P DATA /8000 STATUS,DEVICE READY n P DATA 0 ECB ADDRESS P DATA 0 ORDER * P DATA DRMUAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB ADDRE
0x1bf7f4…1bf988 Dummy {f00=0x008b, f01=0x0190, f02=» ADDRESS OF DRIVER ECB P XIF P IFT MLIN01=1 * P DATA 0 TIMER POINTER @ P DATA 0 ACTIVITY TIMER ^ P DATA 0,0,0,0,0,0 STACK BASE | P RES 3 SAVE REGISTER 3-5 P DATA DW8202 OUTPUT DWT P DATA DW8201 INPUT DWT P DATA 0 A8
0x1bf988…1bfb1c Dummy {f00=0x008b, f01=0x0190, f02=»A 0 VRS P DATA 0 RETRY P DATA 0 INPUT INDEX =5 & P DATA 0 OUTPUT INDEX =5 D P* d P* POLLIST n P* P DATA LINE01+LINE01 LENGTH P RES LINE01 $ P DATA /FFFF,/FFFF END OF POLLIST P IFT MMUPAG=1 , PMECB02 DAT
0x1bfb1c…1bfcb0 Dummy {f00=0x008b, f01=0x018e, f02=» P* DEVICE WORK TABLE ! P* DWT FOR LINE 01 INPUT ! P* ! @ PDW8201 EQU * TABLE ENTRY ! J P DATA DAMI01 DEVICE ADDRESS ! j P DATA /8000 STATUS ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! * P DATA DRMIAD POINTER TO ADDRESS BLOCK ! P
0x1bfcb0…1bfe44 Dummy {f00=0x008b, f01=0x0190, f02=» ! r P DATA MECB01 DRIVER ECB " P XIF " ( P IFF LINE01=0 " 4 P DATA 0 TIMER " J P DATA 0 ACTIVITY TIMER " ` P DATA 0,0,0,0,0,0 STACK BASE " ~ P RES 3 SAVE REGISTER 3-5 " $ P DATA DW8202 OUTPUT DWT ADDRESS " P DATA DW8201 INPUT DWT " P
0x1bfe44…1bffd8 Dummy {f00=0x008b, f01=0x0190, f02=»,0 DRIVER ECB " v ( PDCBF01 RES TBUFL+1 INPUT MMU BUFFER # P XIF # B P IFT MLIN02=1 # P P EJECT # f P* # t P* DEVICE WORK TABLE # ~ ( P* DWT FOR LINE 02,OUTPUT AND CONTROL # P* # PDW8204 EQU * TABLE ENTRY # P DATA DAMU02 DEVICE ADDR
0x1bffd8…1c016c Dummy {f00=0x008b, f01=0x0190, f02=»AB # P DATA 0 W/A $ P DATA 0 TASK QUEUE $ P IFT MMUPAG=1 $ 8 P DATA 0 ADDRESS OF USER ECB $ N P DATA MECB04 DRIVER ECB $ r P XIF $ P IFT MLIN02=1 $ P DATA 0 TIMER POINTER $ P DATA 0 ACT TIMER $ P DATA 0,0,0,0,0,0 STACK BASE
0x1c016c…1c0300 Dummy {f00=0x008b, f01=0x0190, f02=» DATA 0 PINACT $ P DATA 0 SENDF % P DATA 0 LNR % , P DATA 0 CPS % @ P DATA 0 VSS % T P DATA 0 VRS % h P DATA 0 RETRY % | P DATA 0 INPUT INDEX =5 % P DATA 0 OUTPUT INDEX =5 % P* % P* POLLIST % P* % P DATA LINE02+L
0x1c0300…1c0494 (1, 367) Dummy {f00=0x008c, f01=0x0190, f02=»R ECB % n ( PDCBF04 RES TBUFL+1 OUTPUT MMU BUFFER & P XIF & : P IFT MLIN02=1 & F P EJECT & P* & j P* DEVICE WORK TABLE & t P* & P* DWT FOR LINE 02 INPUT & P* & PDW8203 EQU * TABLE ENTRY & P DATA DAMI02 & P DATA /8000 ST
0x1c0494…1c0628 Dummy {f00=0x008c, f01=0x0190, f02=» DATA 0 TASK QUEUE & P IFT MMUPAG=1 ' P DATA 0 ADDRESS OF USER ECB ' 0 P DATA MECB03 DRIVER ECB ' T P XIF ' t P IFT MLIN02=1 ' P DATA 0 TIMER POINTER ' P DATA 0 ACT TIMER ' P DATA 0,0,0,0,0,0 STACK BASE ' P RES 3 SAVE REGISTERS
0x1c0628…1c07bc Dummy {f00=0x008c, f01=0x018e, f02=»0 ATTEMPTED LENGTH ' P IFT MMUPAG=1 ( , PMECB03 DATA 0,DCBF03,0,0,0,0 DRIVER ECB ( 0 & PDCBF03 RES TBUFL+1 INPUT MMUBUFFER ( ` P XIF ( P IFT MLIN03=1 ( P EJECT ( P* ( ( P* DWT FOR LINE 03 OUTPUT AND CONTROL ( P* ( PDW8206 EQU * (
0x1c07bc…1c0950 Dummy {f00=0x008c, f01=0x0190, f02=» P DATA 0 TASK QUEUE ) P IFT MMUPAG=1 ) P DATA 0 USER ECB ) 4 P DATA MECB06 ) L P XIF ) ` P IFT MLIN03=1 ) l P DATA 0 TIMER POINTER ) P DATA 0 ACT TIMER ) P DATA 0,0,0,0,0,0 ) P RES 3 ) P DATA DW8206 ) P DATA DW8205 )
0x1c0950…1c0ae4 Dummy {f00=0x008c, f01=0x0190, f02=» P IFT MMUPAG=1 * , PMECB06 DATA 0,DCBF06,0,0,0,0 DRIVER ECB * ( PDCBF06 RES TBUFL+1 OUTPUT MMU BUFFER * J P XIF * v P IFT MLIN03=1 * P EJECT * P* * P* DWT FOR LINE 03 INPUT * P* * PDW8205 EQU * * P DATA DAMI03 * P DATA
0x1c0ae4…1c0c78 Dummy {f00=0x008c, f01=0x0190, f02=» P DATA 0 USER ECB + P DATA MECB05 DRIVER ECB + P XIF + < P IFT MLIN03=1 + H P DATA 0 TIMER POINTER + ^ P DATA 0 ACT TIMER + | P DATA 0,0,0,0,0,0 + P RES 3 + P DATA DW8206 + P DATA DW8205 + P DATA 0,0,0,0 + P EJECT +
0x1c0c78…1c0e0c Dummy {f00=0x008c, f01=0x0190, f02=»CT + P* , ( P* DWT FOR LINE 04,OUTPUT AND CONTROL , P* , @ PDW8208 EQU * , J " P DATA DAMU04,/8000,0,0,DRMUAD , ^ P DATA 0 TTAB , P DATA 0 W/A , P DATA 0 TASK QUEUE , P IFT MMUPAG=1 , P DATA 0 ADDRESS OF USER ECB , P DATA ME
0x1c0e0c…1c0fa0 Dummy {f00=0x008c, f01=0x0190, f02=» P RES 3 - P DATA DW8208,DW8207 - P DATA 0,0,0,0 - . P DATA 0,0,0,0,0 - D P DATA 0,0 - P DATA LINE04+LINE04 - n P RES LINE04 - P DATA /FFFF,/FFFF - P IFT MMUPAG=1 - , PMECB08 DATA 0,DCBF08,0,0,0,0 DRIVER ECB - ( PDCBF08 RES
0x1c0fa0…1c1134 (1, 368) Dummy {f00=0x008c, f01=0x0190, f02=»8207 EQU * - " P DATA DAMI04,/8000,0,0,DRMIAD . P DATA 0 TTAB . 8 P DATA 0 W/A . L P DATA 0 TASK QUEUE . ` P IFT MMUPAG=1 . z P DATA 0 USER BUFFER . P DATA MECB07 DRIVER ECB . P XIF . P IFT MLIN04=1 . P DATA 0 TIMER POINTER .
0x1c1134…1c12c8 Dummy {f00=0x008c, f01=0x018e, f02=»BF07,0,0,0,0 DRIVER ECB . ( PDCBF07 RES TBUFL+1 MMU BUFFER INPUT / P XIF / L P IFT MLIN05=1 / X P EJECT / n P* / | ( P* DWT FOR LINE 05,OUTPUT AND CONTROL / P* / PDW8210 EQU * / " P DATA DAMU05,/8000,0,0,DRMUAD / P DATA 0 TTAB /
0x1c12c8…1c145c Dummy {f00=0x008c, f01=0x018e, f02=» P IFT MLIN05=1 0 P DATA 0 TIMER POINTER 0 P DATA 0 ACT TIMER 0 8 P DATA 0,0,0,0,0,0 0 R P RES 3 0 l P DATA DW8210,DW8209 0 z P DATA 0,0,0,0 0 P DATA 0,0,0,0,0 0 P DATA 0,0 0 P DATA LINE05+LINE05 0 P RES LINE05 0 P D
0x1c145c…1c15f0 Dummy {f00=0x008c, f01=0x0190, f02=» P XIF 1 P IFT MLIN05=1 1 P EJECT 1 & P* 1 4 P* DWT FOR LINE 05,INPUT 1 > P* 1 ^ PDW8209 EQU * 1 h " P DATA DAMI05,/8000,0,0,DRMIAD 1 | P DATA 0 TTAB 1 P DATA 0 W/A 1 P DATA 0 TASK QUEUE 1 P IFT MMUPAG=1 1 P DATA 0 USER E
0x1c15f0…1c1784 Dummy {f00=0x008c, f01=0x0190, f02=»A 0,0,0,0,0,0 1 P RES 3 2 P DATA DW8210,DW8209 2 $ P DATA 0,0,0,0 2 @ P IFT MMUPAG=1 2 V , PMECB09 DATA 0,DCBF09,0,0,0,0 DRIVER ECB 2 l ( PDCBF09 RES TBUFL+1 MMU BUFFER INPUT 2 P XIF 2 P IFT MLIN06=1 2 P EJECT 2 P* 2 ( P* DWT
0x1c1784…1c1918 Dummy {f00=0x008c, f01=0x0190, f02=»A 2 P DATA 0 TASK QUEUE 3 P IFT MMUPAG=1 3 $ P DATA 0 USER ECB 3 : P DATA MECB12 DRIVER ECB 3 R P XIF 3 r P IFT MLIN06=1 3 ~ P DATA 0 TIMER POINTER 3 P DATA 0 ACT TIMER 3 P DATA 0,0,0,0,0,0 3 P RES 3 3 P DATA DW8212,DW8211
0x1c1918…1c1aac Dummy {f00=0x008c, f01=0x0190, f02=»F 3 , PMECB12 DATA 00,DCBF12,0,0,0,0 DRIVER ECB 4 PDCBF12 RES TBUFL+1 4 : P XIF 4 T P IFT MLIN06=1 4 ` P EJECT 4 v P* 4 P* DWT FOR LINE06,INPUT 4 P* 4 PDW8211 EQU * 4 " P DATA DAMI06,/8000,0,0,DRMIAD 4 P DATA 0 TTAB 4 P DAT
0x1c1aac…1c1c40 Dummy {f00=0x008c, f01=0x0190, f02=» MLIN06=1 4 P DATA 0 TIMER POINTER 5 P DATA 0 ACT TIMER 5 0 P DATA 0,0,0,0,0,0 5 J P RES 3 5 d P DATA DW8212,DW8211 5 r P DATA 0,0,0,0 5 P IFT MMUPAG=1 5 , PMECB11 DATA 0,DCBF11,0,0,0,0 DRIVER ECB 5 ( PDCBF11 RES TBUFL+1 MMU BUFFER
0x1c1c40…1c1dd4 (1, 369) Dummy {f00=0x008c, f01=0x0190, f02=» * 5 " P DATA DAMU07,/8000,0,0,DRMUAD 6 P DATA 0 TTAB 6 0 P DATA 0 W/A 6 D P DATA 0 TASK QUEUE 6 X P IFT MMUPAG=1 6 r P DATA 0 USERECB 6 P DATA MECB14 DRIVER ECB 6 P XIF 6 P IFT MLIN07=1 6 P DATA 0 TIMER POINTER 6 P DATA
0x1c1dd4…1c1f68 Dummy {f00=0x008c, f01=0x0190, f02=»ATA 0,0 6 P DATA LINE07+LINE07 7 P RES LINE07 7 , P DATA /FFFF,/FFFF 7 @ P IFT MMUPAG=1 7 Z , PMECB14 DATA 0,DCBF14,0,0,0,0 DRIVER ECB 7 p PDCBF14 RES TBUFL+1 7 P XIF 7 P IFT MLIN07=1 7 P EJECT 7 P* 7 P* DWT FOR LINE 07,IN
0x1c1f68…1c20fc Dummy {f00=0x008c, f01=0x0190, f02=»UE 7 P IFT MMUPAG=1 8 P DATA 0 USER ECB 8 P DATA MECB13 DRIVER ECB 8 8 P XIF 8 X P IFT MLIN07=1 8 d P DATA 0 TIMER POINTER 8 z P DATA 0 ACT TIMER 8 P DATA 0,0,0,0,0,0 8 P RES 3 8 P DATA DW8214,DW8213 8 P DATA 0,0,0,0 8
0x1c20fc…1c2290 Dummy {f00=0x008c, f01=0x0190, f02=»LIN08=1 8 P EJECT 9 P* 9 ( P* DWT FOR LINE 08,OUTPUT AND CONTROL 9 ( P* 9 T PDW8216 EQU * 9 ^ " P DATA DAMU08,/8000,0,0,DRMUAD 9 r P DATA 0 TTAB 9 P DATA 0 W/A 9 P DATA 0 TASK QUEUE 9 P IFT MMUPAG=1 9 P DATA 0 USER ECB 9 P
0x1c2290…1c2424 Dummy {f00=0x008c, f01=0x018e, f02=»0,0 9 P RES 3 : P DATA DW8216,DW8215 : P DATA 0,0,0,0 : 6 P DATA 0,0,0,0,0 : L P DATA 0,0 : d P DATA LINE08+LINE08 : v P RES LINE08 : P DATA /FFFF,/FFFF : P IFT MMUPAG=1 : , PMECB16 DATA 0,DCBF16,0,0,0,0 DRIVER ECB : ( PDC
0x1c2424…1c25b8 Dummy {f00=0x008c, f01=0x0190, f02=» : PDW8215 EQU * ; " P DATA DAMI08,/8000,0,0,DRMIAD ; P DATA 0 TTAB ; B P DATA 0 W/A ; V P DATA 0 TASK QUEUE ; j P IFT MMUPAG=1 ; P DATA 0 USER ECB ; P DATA MECB15 DRIVER ECB ; P XIF ; P IFT MLIN08=1 ; P DATA 0 TIMER POINTE
0x1c25b8…1c274c Dummy {f00=0x008c, f01=0x0190, f02=»G=1 ; , PMECB15 DATA 0,DCBF15,0,0,0,0 DRIVER ECB < ( PDCBF15 RES TBUFL+1 MMU BUFFER INPUT < < P XIF < h P IFT MLIN09=1 < t P EJECT < P* < ( P* DWT FOR LINE 09,OUTPUT AND CONTROL < P* < PDW8218 EQU * < " P DATA DAMU09,/8000,0,0,DRMUA
0x1c274c…1c28e0 Dummy {f00=0x008c, f01=0x0190, f02=»RIVER ECB < P XIF = P IFT MLIN09=1 = P DATA 0 TIMER POINTER = 4 P DATA 0 ACT TIMER = R P DATA 0,0,0,0,0,0 = l P RES 3 = P DATA DW8218,DW8217 = P DATA 0,0,0,0 = P DATA 0,0,0,0,0 = P DATA 0,0 = P DATA LINE09+LINE09 =
0x1c28e0…1c2a74 (1, 370) Dummy {f00=0x008c, f01=0x0190, f02=»+1 MMUBUFFER OUTPUT = P XIF > P IFT MLIN09=1 > ( P EJECT > > P* > L P* DWT FOR LINE09,INPUT > V P* > t PDW8217 EQU * > ~ " P DATA DAMI09,/8000,0,0,DRMIAD > P DATA 0 TTAB > P DATA 0 W/A > P DATA 0 TASK QUEUE > P IFT MMUPAG=1
0x1c2a74…1c2c08 Dummy {f00=0x008c, f01=0x0190, f02=»ACT TIMER > P DATA 0,0,0,0,0,0 ? P RES 3 ? , P DATA DW8218,DW8217 ? : P DATA 0,0,0,0 ? V P IFT MMUPAG=1 ? l , PMECB17 DATA 0,DCBF17,0,0,0,0 DRIVER ECB ? ( PDCBF17 RES TBUFL+1 MMU BUFFER INPUT ? P XIF ? P IFT MLIN10=1 ? P EJECT ?
0x1c2c08…1c2d9c Dummy {f00=0x008c, f01=0x018e, f02=»TTAB ? P DATA 0 W/A @ P DATA 0 TASK QUEUE @ P IFT MMUPAG=1 @ : P DATA 0 USER ECB @ P P DATA MECB20 DRIVER ECB @ h P XIF @ P IFT MLIN10=1 @ P DATA 0 TIMER POINTER @ P DATA 0 ACT TIMER @ P DATA 0,0,0,0,0,0 @ P RES 3 @
0x1c2d9c…1c2f30 Dummy {f00=0x008c, f01=0x0190, f02=» @ P DATA /FFFF,/FFFF A P IFT MMUPAG=1 A " , PMECB20 DATA 0,DCBF20,0,0,0,0 DRIVER ECB A 8 ( PDCBF20 RES TBUFL+1 MMUBUFFER OUTPUT A h P XIF A P IFT MLIN10=1 A P EJECT A P* A P* DWT FOR LINE 10,INPUT A P* A PDW8219 EQU * A
0x1c2f30…1c30c4 Dummy {f00=0x008c, f01=0x018e, f02=»0 USER ECB A P DATA MECB19 DRIVER ECB B P XIF B 2 P IFT MLIN10=1 B > P DATA 0 TIMER POINTER B T P DATA 0 ACT TIMER B r P DATA 0,0,0,0,0,0 B P RES 3 B P DATA DW8220,DW8219 B P DATA 0,0,0,0 B P IFT MMUPAG=1 B , PMECB19 DATA
0x1c30c4…1c3258 Dummy {f00=0x008c, f01=0x0190, f02=» ( P* DWT FOR LINE 11,OUTPUT AND CONTROL C P* C 0 PDW8222 EQU * C : " P DATA DAMU11,/8000,0,0,DRMUAD C N P DATA 0 TTAB C t P DATA 0 W/A C P DATA 0 TASK QUEUE C P IFT MMUPAG=1 C P DATA 0 USER ECB C P DATA MECB22 DRIVER ECB C P XIF
0x1c3258…1c33ec Dummy {f00=0x008c, f01=0x0190, f02=»22,DW8221 C P DATA 0,0,0,0 D P DATA 0,0,0,0,0 D ( P DATA 0,0 D @ P DATA LINE11+LINE11 D R P RES LINE11 D n P DATA /FFFF,/FFFF D P IFT MMUPAG=1 D , PMECB22 DATA 0,DCBF22,0,0,0,0 DRIVER ECB D ( PDCBF22 RES TBUFL+1 MMUBUFFER OUTPUT D
0x1c33ec…1c3580 Dummy {f00=0x008c, f01=0x0190, f02=»11,/8000,0,0,DRMIAD D P DATA 0 TTAB E P DATA 0 W/A E 0 P DATA 0 TASK QUEUE E D P IFT MMUPAG=1 E ^ P DATA 0 USER ECB E t P DATA MECB21 DRIVER ECB E P XIF E P IFT MLIN11=1 E P DATA 0 TIMER POINTER E P DATA 0 ACT TIMER E P D
0x1c3580…1c3714 (1, 371) Dummy {f00=0x008d, f01=0x0190, f02=»,0 DRIVER ECB E v ( PDCBF21 RES TBUFL+1 MMU BUFFER INPUT F P XIF F B P IFT MLIN12=1 F N P EJECT F d P* F r ( P* DWT FOR LINE 12,OUTPUT AND CONTROL F | P* F PDW8224 EQU * F " P DATA DAMU12,/8000,0,0,DRMUAD F P DATA 0 TTAB F P DATA 0
0x1c3714…1c38a8 Dummy {f00=0x008d, f01=0x018e, f02=»N12=1 F P DATA 0 TIMER POINTER G P DATA 0 ACT TIMER G , P DATA 0,0,0,0,0,0 G F P RES 3 G ` P DATA DW8224,DW8223 G n P DATA 0,0,0,0 G P DATA 0,0,0,0,0 G P DATA 0,0 G P DATA LINE12+LINE12 G P RES LINE12 G P DATA /FFFF,/F
0x1c38a8…1c3a3c Dummy {f00=0x008d, f01=0x0190, f02=» P IFT MLIN12=1 H P EJECT H P* H ( P* DWT FOR LINE 12,INPUT H 2 P* H R PDW8223 EQU * H " P DATA DAMI12,/8000,0,0,DRMIAD H p P DATA 0 TTAB H P DATA 0 W/A H P DATA 0 TASK QUEUE H P IFT MMUPAG=1 H P DATA 0 USER ECB H P D
0x1c3a3c…1c3bd0 Dummy {f00=0x008d, f01=0x0190, f02=»0 H P RES 3 I P DATA DW8224,DW8223 I P DATA 0,0,0,0 I 4 P IFT MMUPAG=1 I J , PMECB23 DATA 0,DCBF23,0,0,0,0 DRIVER ECB I ` ( PDCBF23 RES TBUFL+1 MMU BUFFER INPUT I P XIF I P XIF I P IFF HILINO=12 I P EJECT I P* I P* DUMM
0x1c3bd0…1c3d64 Dummy {f00=0x008d, f01=0x018e, f02=» EQU * I PDW8222 EQU * J PIH8221 EQU * J " PIH8222 EQU * J 6 P IFF HILINO=10 J J PDW8219 EQU * J ` PDW8220 EQU * J t PIH8219 EQU * J PIH8220 EQU * J P IFF HILINO=9 J PDW8217 EQU * J PDW8218 EQU * J PIH8217 EQU * J PIH8218
0x1c3d64…1c3ef8 Dummy {f00=0x008d, f01=0x0190, f02=» PDW8213 EQU * K PDW8214 EQU * K PIH8213 EQU * K , PIH8214 EQU * K @ P IFF HILINO=6 K T PDW8211 EQU * K j PDW8212 EQU * K ~ PIH8211 EQU * K PIH8212 EQU * K P IFF HILINO=5 K PDW8209 EQU * K PDW8210 EQU * K PIH8209 EQU * K
0x1c3ef8…1c408c Dummy {f00=0x008d, f01=0x0190, f02=»O=3 K PDW8205 EQU * L PDW8206 EQU * L PIH8205 EQU * L 4 PIH8206 EQU * L H P IFF HILINO=2 L PDW8203 EQU * L r PDW8204 EQU * L PIH8203 EQU * L PIH8204 EQU * L P ST P,INTSAV L P ABL ILLINT L P XIF L P EJECT L P* L
0x1c408c…1c4220 Dummy {f00=0x008d, f01=0x0190, f02=» DATA DEVIND L $ PDRMIAD DATA MIACT DWT REFERENCE M P* M < ( P DATA ABORT ADDRESS OF ABORT ROUTINE M F P DATA 0,0 DC:MIN HEADER =4 M r PMIACT EQU * M P SUK A7,2 M P RF(Z) RD ORDER 01:READ M $ PMIA100 ABL DISIOE ILLEGAL ORDER M P* M
0x1c4220…1c43b4 (1, 372) Dummy {f00=0x008d, f01=0x0190, f02=»OK? M | " P ABL(G) IL:LEN ILLEGAL LENGTH N P XIF N 2 P LD A1,DWTST,A6 GET STATUS N > P LDR A2,A1 N ` P ANK A1,1 N r P RF(NZ) RD300 LINE OPENED N PRD100 EQU * N ( P LDKL A1,LINSTE RC:WRONG STATUS LINE N ( PRD200 CF A15,TENDIO COMPLETE REQUE
0x1c43b4…1c4548 Dummy {f00=0x008d, f01=0x0190, f02=»ROL REQUESTS N ~ P* O P* O P* ACTIVATION BLOCK O ( P* O B P DATA BUFLEN O L P DATA DEVIND O ` $ PDRMUAD DATA MUACT DWT REFERENCE O t P DATA ABORT ABORT ROUTINE O P DATA 0,0 DC:MIN HEADER =4 O P* O PMUACT EQU * O P LDR A7,A7
0x1c4548…1c46dc Dummy {f00=0x008d, f01=0x018e, f02=»DER 22,OPEN LINE O P SUK A7,2 P $ P ABL(Z) CLIN ORDER 24,CLOSE LINE P * P SUK A7,2 P R & P ABL(Z) CLIN ORDER 26 HALT POLLING P d P SUK A7,1 P ( P ABL(Z) CLIN ORDER 27,START POLLING P P SUK A7,/37-/27 P P ABL(Z) OTC ORDER 37,OPEN TC P P
0x1c46dc…1c4870 Dummy {f00=0x008d, f01=0x0190, f02=» P z P* Q PTEST EQU * Q P LD A1,DWTST,A6 GET STATUS Q $ P ANK A1,1 Q F " P RB(NZ) RD100 LINE NOT CLOSED Q X P ABL TST000 Q ~ P EJECT Q P* Q P* OPEN LINE Q P* Q POLIN EQU * Q P LD A1,DWTST,A6 GET STATUS Q P ANK A1,1 Q
0x1c4870…1c4a04 Dummy {f00=0x008d, f01=0x0190, f02=» EQU * Q P CM PLIST,A1 DELETE POLLIST R P SUK A1,2 R 2 P SUK A2,2 R D & P RB(NZ) OLI100 NOT END OF POLLIST R V P CM PACT,A6 R P CM PINACT,A6 R P LD A7,DWTSAV+8,A6 R POLI105 EQU * R P CF A5,HALTIN R P LDK A2,CIDISC R " P CF
0x1c4a04…1c4b98 Dummy {f00=0x008d, f01=0x0190, f02=»DK A1,1 R * P ORS A1,DWTST,A6 INDICATE LINE OPENED S P ORS A1,DWTST,A7 S > P LD A1,DWTATP,A6 S V $ P RF(NZ) OLI120 RECOVERY POWER ON S n P LDK A1,0 S $ P CF A15,TENDIO COMPLETE REQUEST S POLI120 EQU * S P LDR A1,A6 S P LDR A4,A6 S P
0x1c4b98…1c4d2c Dummy {f00=0x008d, f01=0x018e, f02=»IMACT S & P ABL BMM ENTER BASIS RECEIVE MODE T P* T 8 P* ACTIVITY TIME-OUT T B P* T ^ POLI159 EQU * =1 T h P LDR A6,A1 T & POLI160 EQU * MODEM FAULT ENTRY =2 T P LD A7,DWTSAV+8,A6 T P LD A2,DWTATP,A6 T P ABL(Z) OLI161 T P CM*
0x1c4d2c…1c4ec0 Dummy {f00=0x008d, f01=0x0190, f02=» POLI161 EQU * U P LD A4,PLIST,A6 U P LDKL A3,/8000 U 0 P LDR A2,A6 U F P ADR A2,A4 U X POLI162 EQU * U j P ORS A3,PLIST,A2 U ~ P SUK A2,4 U P SUK A4,4 U P RB(P) OLI162 U P LDK A5,STB U P ADR A5,A6 RELOAD STACK BAS U P
0x1c4ec0…1c5054 (1, 373) Dummy {f00=0x008d, f01=0x0190, f02=» CF A5,STHCIN DISCONNECT MODEM U , P LDK A1,MODNOP RC:MODEM NOT OPERATIONAL V & P LD A8,DWTECB,A6 V V P RF(Z) OLI165 V n P CM ECBRC,A8 V P CF A15,TENDIO V POLI165 EQU * V P LDR A6,A7 V P LD A8,DWTECB,A6 V P RF(Z) OLI170 V P CM EC
0x1c5054…1c51e8 Dummy {f00=0x008d, f01=0x0190, f02=» EQU * V P LD A1,DWTST,A6 GET STATUS W P ANK A1,1 W 0 & P ABL(Z) RD100 LINE ALREADY CLOSED W B P ABL TDISP W l P EJECT W ~ P* W P* ORDER 37:OPEN TC W P* W POTC EQU * W P LD A7,DWTSAV+8,A6 W P LD A1,DWTST,A7 W P LDR A2,
0x1c51e8…1c537c Dummy {f00=0x008d, f01=0x0190, f02=» ADDRESS W x P SUK A2,/5A-/41 X P ABL(NP) TDISP X ( POTC100 EQU * X > & P LDKL A1,INVTCA RC:INVALID ADDRESS X R P RB OLI170 X | P EJECT X P* X P* ORDER 06 WRITE X P* X PWRT EQU * X P IFT MMUPAG=1 X & P LD A2,ECBRL,A8 REQUES
0x1c537c…1c5510 Dummy {f00=0x008d, f01=0x018e, f02=»A8 TCA X PWRT105 EQU * Y P LD A1,DWTST,A6 STATUS Y " P ANK A1,1 Y @ P ABL(Z) RD100 SEQ ERROR Y R P ANK A2,/7F Y r ( P CF A15,FINDTC SEARCH TCA IN POLLIST Y $ P RF(P) WRT130 TC NOT IN POLLIST Y P RF(N) WRT110 TCA INACTIVE Y * P SC A4,DWTOR
0x1c5510…1c56a4 Dummy {f00=0x008d, f01=0x0190, f02=» P LD A1,DWTOR,A6 Z P ANK A1,/FF Z P SUK A1,/38 CLOSE TC? Z 0 P RB(Z) WRT107 YES Z N " P LDK A1,TCINAC RC:TC INACTIVE Z h P ABL DISEND Z PWRT130 EQU * Z P LDKL A1,TCNLST Z P ABL DISEND Z P* Z P* ORDER 38:CLOSE TC Z P
0x1c56a4…1c5838 Dummy {f00=0x008d, f01=0x0190, f02=»**************************** Z b P* [ $ P* ILLEGAL LENGTH [ . P* [ F N P************************************************************************* [ P PIL:LEN EQU * [ P LDKL A1,INCLEN INC. LENGTH [ P ABL DISEND DISPATCHER [ P EJECT [ N P**
0x1c5838…1c59cc Dummy {f00=0x008d, f01=0x0190, f02=»************************************************************ [ PABORT EQU * D $ P LD A2,DWTTP,A6 TIMER POINTER =8 X " P RF(Z) AB:10 NO TIMER RUNNING P CM* DWTTP,A6 CLEAR TIMER $ P CM DWTTP,A6 CLEAR TIMER POINTER PAB:10 EQU * PAB:R
0x1c59cc…1c5b60 Dummy {f00=0x008d, f01=0x0190, f02=»DC82ON EQU * $ P LD A3,DWMTAB DWT'S TABLE LENGTH ] PDRM000 EQU * ] < P SUK A3,2 ] P P RF(Z) DRM300 END OF TABLE ] b P LD A6,DWMTAB,A3 DWT ADDRESS ] P LD A1,DWTST,A6 ] P LDR A2,A1 ] P LDR* A4,A6 DEVICE ADDRESS ] P ANK A2,1 STATUS ]
0x1c5b60…1c5cf4 (1, 374) Dummy {f00=0x008d, f01=0x0190, f02=» ] P RB(NZ) DRM000 NO REQUEST ^ P LD A8,DWTECB,A6 ^ * P LD A2,ECBEL,A8 ^ B P RB(Z) DRM000 NO MESSAGE ^ Z $ P CF A15,TENDIO COMPLETE REQUEST ^ z P RB DRM000 ^ PDRM200 EQU * ^ P ANK A4,/10 ^ P RB(Z) DRM000 INPUT DWT ^ P ANKL A1,/80
0x1c5cf4…1c5e88 Dummy {f00=0x008d, f01=0x018e, f02=»DRM000 NO ^ PDRM250 EQU * _ P LD A7,DWTSAV+8,A6 _ & P LDK A4,DWTTP _ @ P ADR A4,A7 _ V P LDR* A1,A4 _ h P RF(Z) DRM275 _ | P CM* DWTTP,A7 _ PDRM275 EQU * _ P LDR A1,A6 _ P CF A15,SETIMP _ P DATA DRM400,TIMMRY _ P RB DRM0
0x1c5e88…1c601c Dummy {f00=0x008d, f01=0x0190, f02=» P CM DWTTP,A7 ` P LDK A5,STB RELOAD STACK =1 ` P ADR A5,A6 ` < P ABL OLI105 OPEN LINE ` N P EJECT ` l P* ` z P* ` P* PROCEDURE CONTROL PART ` P* ` P* BMM:BASIS RECEIVE MODE ` P* ` PBMM EQU * ` P LDK A5,STB `
0x1c601c…1c61b0 Dummy {f00=0x008d, f01=0x0190, f02=»STATUS ` v P ABL(NN) POLL READ REQUEST a PBMM10 EQU * a 0 P* a D P* DISPATCHING LOOP=TIMER a N P* a n P LDR A1,A6 a x P CF A15,SETIME a P DATA BMM15,1 a P ABL TDISP a PBMM15 EQU * a P LDR A6,A1 a P LD A7,DWTSAV+8,A6 a P
0x1c61b0…1c6344 Dummy {f00=0x008d, f01=0x0190, f02=»CT a P* b . P* OUTPUT: PRFORM OUPUT OR CONTROL REQUEST b P* b F POUTPUT EQU * b P $ P LD A8,DWTECB,A6 GET ECB ADDRESS b d P ST A8,DWTSAV+10,A6 b 2 P ST A8,DWTSAV+10,A7 LOAD A8,INTERRUPT REGISTER b P LD A1,DWTOR,A6 GET ORDER b P ANK A1,
0x1c6344…1c64d8 Dummy {f00=0x008d, f01=0x0190, f02=»1,2 b ( P RF(Z) OUT200 ORDER 26:HALT POLLING c P SUK A1,1 c 8 ( P RF(Z) OUT350 ORDER 27:START POLLING c J P SUK A1,/10 c v " P RF(Z) OUT100 ORDER 37:OPEN TC c P EJECT c P* c P* ORDER 38:CLOSE TC c P* c * P LC A3,DWTORO,A6 GET INDEX
0x1c64d8…1c666c Dummy {f00=0x008d, f01=0x018e, f02=»A3 c P LDR A1,A3 d P SUK A1,2 d P CM PLIST,A1 d . P LDK A1,0 d B $ P CF A15,TENDIO COMPLETE REQUEST d T P* d | * P* DISCONNECT TC AFTER COMPLETE REQUEST d P* d P LDR A1,A2 d P ANK A1,/7F d P ECR A1,A1 d P ORK A1,TDISC d
0x1c666c…1c6800 Dummy {f00=0x008d, f01=0x0190, f02=» P* e POUT100 EQU * e P LD A2,ECBCW,A8 GET TCA e " " P CF A15,FINDTC ALREADY PRESENT e B P RF(P) OUT105 NO e h " P RF OUT300 TC ALREADY IN LIST e POUT105 EQU * e P LDK A2,0 e & P CF A15,FINDTC SEARCH EMPTY PLACE e P RF(Z) OUT110 e
0x1c6800…1c6994 (1, 375) Dummy {f00=0x008e, f01=0x0190, f02=»ST e l P LD A1,ECBCW,A8 GET TCA f $ P ORKL A1,/8000 SET TCA INACTIVE f * & P STR A1,A3 INSERTR TCA IN POLLIST f R " P LDR A2,A3 CLEAR COUNTERS AREA f | P SUK A2,2 f P CMR A2 f P LDKL A2,RTYLIM f P ST A2,DWTRTY,A6 f P* f 4 P* SEND SN
0x1c6994…1c6b28 Dummy {f00=0x008e, f01=0x018e, f02=»CR A1,A1 f $ P ORK A1,TSNRM MERGE WITH C-FIELD g POUT111 EQU * g 8 P CF A5,TRUF g L POUT112 EQU * g ` P CF A5,RDUSTI WAIT FOR REPLY g t P LDR A2,A2 TIME-OUT? g P RF(N) OUT130 YES g P* g , P* REPLY RECEIVED,TEST IF UA AS EXPECTED g P
0x1c6b28…1c6cbc Dummy {f00=0x008e, f01=0x018e, f02=» g P LD A3,ECBCW,A8 h P ANK A3,/7F h * P LC A2,DWTORI,A6 GET INDEX IN POLLIST h 4 P ANK A2,/FF h b P ADR A2,A6 h v P ADK A2,PLIST h P STR A3,A2 SET TC ACTIVE h P LD A1,PACT,A6 h $ P RF(NZ) OUT300 NOT FIRST IN LIST h P ST A2,PACT,
0x1c6cbc…1c6e50 Dummy {f00=0x008e, f01=0x018e, f02=» h j P LD A1,PINACT,A6 i $ P RF(NZ) OUT150 NOT FIRST IN LIST i P LC A2,DWTORI,A6 GET INDEX i H P ANK A2,/FF i j P ADR A2,A6 i ~ P ADK A2,PLIST i & P ST A2,PINACT,A6 INDICATE INACTIVE i POUT150 EQU * i " P LDK A1,TCINAC RC:TC INACTIVE i
0x1c6e50…1c6fe4 Dummy {f00=0x008e, f01=0x0190, f02=» i P ORS A1,DWTST,A7 NO POLLING j & P LDKL A1,POLHLT RC: POLLING HALTED j , P LDR A6,A7 j V ( P CF A15,TENDIO COMPLETE READ REQUEST j h P LD A6,DWTSAV+6,A7 RELOAD A6 j POUT300 EQU * j P LDK A1,0 j 0 POUT310 CF A15,TENDIO COMPLETE OUTPUT RQUES
0x1c6fe4…1c7178 Dummy {f00=0x008e, f01=0x0190, f02=»2 j , P RB(Z) OUT300 POLLING ALREADY PERMITTED k P XRS A1,DWTST,A7 k : P RB OUT300 k R P EJECT k d P* k r P* ORDER /24 CLOSE LINE k | P* k POUT400 EQU * k P CF A5,HALTIN k P LDK A2,CIDISC k P CF A5,STHCIN k P LD A1,DWTATP,
0x1c7178…1c730c Dummy {f00=0x008e, f01=0x0190, f02=» SC A1,DWTST+1,A6 k P SC A1,DWTST+1,A7 l * P CF A15,TENDIO COMPLETE OUTPUT REQUEST l 4 P LDKL A1,LINSTE l b P LDR A6,A7 l z P ABL DISEND COMPLETE INPUT l P EJECT l P* l P* l P* PROCEDURE TRANSFER PART l P* POLL: l * P*
0x1c730c…1c74a0 Dummy {f00=0x008e, f01=0x018e, f02=»A8,DWTSAV+10,A7 l P CM ECBRC,A8 m P CM ECBEL,A8 m , P ANK A1,2 m @ P RF(Z) POL100 m R " P LDKL A1,POLHLT RC:POLL HALTED m h P RF POL225 m PPOL100 EQU * m P LD A1,PACT,A6 m ( P RF(Z) POL130 NO ACTIVE TCA PRESENT m PPOL110 EQU * m
0x1c74a0…1c7634 (1, 376) Dummy {f00=0x008e, f01=0x0190, f02=» m P RB(NZ) POL110 INACTIVE TCA n P LDK A1,PLIST END OF POLLIST n , P ADR A1,A6 n P PPOL120 EQU * n b P ST A1,PACT,A6 UPDATE PACT n v PPOL130 EQU * n P LD A1,PINACT,A6 n ( P ABL(Z) BMM10 NO ACTIVE TC PRESENTS n PPOL132 EQU * n & P ADK
0x1c7634…1c77c8 Dummy {f00=0x008e, f01=0x0190, f02=»NACTIVE TC n | P ADK A3,1 o $ P RF(NZ) POL138 INACTIVE TC FOUND o $ & P LDK A1,PLIST END OF LIST REACHED o L P ADR A1,A6 o v P RB POL132 o PPOL134 EQU * o P LDR* A3,A1 o $ P RF(N) POL140 INACTIVE TC FOUND o ( P CM PINACT,A6 NO INACTIVE IN P
0x1c77c8…1c795c Dummy {f00=0x008e, f01=0x018e, f02=»A6 o P SUK A1,PLIST p P SC A1,DWTORI,A6 p P LDK A1,/FF p 8 ( P SC A1,DWTOR,A7 INDICATE INACTIVE TC p L P LDKL A2,-1 NO RECOVERY p x P RF POL200 p PPOL150 EQU * p P ST A1,PACT,A6 UPDATE PACT p P SUR A1,A6 p P SUK A1,PLIST p * P
0x1c795c…1c7af0 Dummy {f00=0x008e, f01=0x018e, f02=» p ( P ST A2,DWTRTY,A6 RESET RETRY COUNTER q & P SC* A3,ECBBA,A8 STORE TC ADDRESS q 4 PPOL210 EQU * q ^ P LDR A1,A3 GET TCA q r P ANK A1,/FF q P ECR A1,A1 TCA IN LEFT BYTE q P ORK A1,TRRP q P* q P* SEND POLL q P* q P CF A5,T
0x1c7af0…1c7c84 Dummy {f00=0x008e, f01=0x0190, f02=» P* TIME OUT r P* r PPOL211 EQU * r P IM DWTRTY,A6 r 4 P RF(NN) TINACT r J 0 P LC A3,SENDF,A6 LIMIT NOT REACHED TRY AGAIN r ` P RB POL210 r P EJECT r P* r P* UPDATE POLL LIST r P* r PTINACT EQU * r P LD A1,DWTOR,A7 r
0x1c7c84…1c7e18 Dummy {f00=0x008e, f01=0x0190, f02=» r r P ST* A3,PACT,A6 s ( P SC* A3,ECBBA,A8 STORE TC ADDRESS =1 s P LD A2,PINACT,A6 s L P RF(NZ) POL224 s d P LD A1,PACT,A6 s z P ST A1,PINACT,A6 s PPOL224 EQU * s " P LDK A1,TCINAC RC:TC INACTIVE s PPOL225 EQU * s P LDR A6,A7 s $ P
0x1c7e18…1c7fac Dummy {f00=0x008e, f01=0x0190, f02=» P* t & P* POLL OK,ANSWER RECEIVED COULD BE t 6 P* ** I-FRAME :INFORMATION+FINAL BIT t 8 , P* ** RR :NO TRAFFIC t r & P* ** RNR :BUSY t 0 P* ** ROL :REQUEST ON LINE t 0 P*
0x1c7fac…1c8140 Dummy {f00=0x008e, f01=0x0190, f02=» " P RF(Z) POL280 I-FRAME-DETECTED u P* u * P LDR A1,A2 u 4 P ANK A1,REMRR u F P SUK A1,MRR u P RF(Z) POL270 RR DETECTED u p P* u P LDR A1,A2 u P ANK A1,REMRR u P SUK A1,MRNR u P RF(Z) POL260 RNR DETECTED u P* u P LDR
0x1c8140…1c82d4 (1, 377) Dummy {f00=0x008e, f01=0x0190, f02=» P SUK A1,RECMDR v 0 P RB(NZ) POL211 DISCONNECT IF INVALID ANSWER v P LC A3,DWTORI,A6 v N P ANK A3,/FF v f P ADR A3,A6 v z * P ADK A3,PLIST INIT INDEX IN POLL LIST v P RF SOFTDI v P EJECT v P* v P* RNR RECEIVED v P* v PPO
0x1c82d4…1c8468 Dummy {f00=0x008e, f01=0x0190, f02=» LD A1,DWTST,A7 WRONG N(R)? v P ANKL A1,BIT12 w $ P RF(Z) POL264 NO w : PSOFTDI EQU * w R P LC A3,DWTORI,A6 =1 w f P ANK A3,/FF w P ADR A3,A6 w ( P ADK A3,PLIST RESTORE P-LIST POINTER w P LDR A4,A3 w P SUK A4,2 w P LDK A1,0 w
0x1c8468…1c85fc Dummy {f00=0x008e, f01=0x018e, f02=»ANSMIT SNRM w PSOFTD1 CF A5,RDUSTI x P LDR A2,A2 TIME-OUT x 0 P RB(N) TINACT NO x L PPOL262 EQU * x d P RF TACT OK,ACTIVE TENDANCE x x PPOL264 EQU * x P LD A1,DWTST,A7 x P ANKL A1,BIT13 x P RF(NZ) POL265 RNR x " P LC A3,DWTORI,A6
0x1c85fc…1c8790 Dummy {f00=0x008e, f01=0x018e, f02=» P RF TACT RR y PPOL265 EQU * y P LC A3,DWTORI,A6 SET INDEX y , P ANK A3,/FF y N P ADR A3,A6 y b P ADK A3,PLIST y t P LDR A1,A3 INDEX y P SUK A1,2 y P LDKL A2,BIT0 y P ORRS A2,A1 SET BUSY =5 y P RF TACT y P EJECT y P
0x1c8790…1c8924 Dummy {f00=0x008e, f01=0x0190, f02=» y P* z , P* HERE TO COMPLETE I/O AND UPDATE PLIST z P* ACTIVE TENDENCE z B P* z ` PTACT EQU * z j P LD A1,DWTOR,A7 z | " P ABL(NN) BMM10 TC NOT INACTIVE z PTACT1 EQU * z P LDK A3,/FF =1 z P ANS* A3,PINACT,A6 TC ACTIVE z
0x1c8924…1c8ab8 Dummy {f00=0x008e, f01=0x0190, f02=»IVE z x P ABL POL225 { P* { P EJECT { * P* { 8 P* I-FRAME DETECTED { B P* { ^ PPOL280 EQU * { h P CF A5,UPDCON { | P LD A1,DWTST,A7 GET STATUS { P ANKL A1,BIT12 WRONG N(R) ? { P RF(Z) POL281 NO { P* { 8 P* HERE EXEPTIO
0x1c8ab8…1c8c4c Dummy {f00=0x008e, f01=0x0190, f02=»A1,BIT11 WRONG N(S) ? { P RF(Z) POL282 NO | " P RB TACT INDICATE ACTIVE ONLY | 6 P* | ( P* N(S) AND N(R) OK,COMPLETE REQUEST | f P* | PPOL282 EQU * | P LD A1,DWTOR,A7 | P RB(N) TACT1 TC INACTIVE | P LDK A1,0 | P ABL POL225 |
0x1c8c4c…1c8de0 Dummy {f00=0x008e, f01=0x0190, f02=» IF TC BUSY | z P* } * P LC A2,DWTORO,A6 GET INDEX IN POLLIST } P SC A2,DWTORI,A6 } L P ANK A2,/FF } d P ADR A2,A6 } x P SUK A2,2 } P ADK A2,PLIST-2 =1 } P LDR* A2,A2 GET STATUS TC } P ANKL A2,BIT0 BUSY ? } P RF(Z) WRITE1 NO }
0x1c8de0…1c8f74 (1, 378) Dummy {f00=0x008e, f01=0x018e, f02=» ABL BMM10 } P* ~ PWRITE1 EQU * ~ P LDKL A1,RTYLIM ~ 0 ( P ST A1,DWTRTY,A6 RESET RETRY COUNTER ~ H PWRT100 EQU * ~ t P LD A1,DWTST,A7 ~ " P RF(N) WRT200 NO READ REQUEST ~ P ANK A1,2 HALT POLLING ? ~ P RF(NZ) WRT200 YES ~ P* ~ (
0x1c8f74…1c9108 Dummy {f00=0x008e, f01=0x0190, f02=» " P* READ WITH BUFFER FOR I-FRAME P* * PWRT020 EQU * 4 " P LD A8,DWTECB,A7 INPUT ECB =5 H P ST A8,DWTSAV+10,A7 n P CF A5,RDITI P LDR A2,A2 TIME-OUT P RF(NN) WRT050 NO PWRT021 EQU * ( P LD A8,DWTECB,A6 LOAD OUTPUT ECB
0x1c9108…1c929c Dummy {f00=0x008e, f01=0x018e, f02=»3,ECBBA,A8 P ECR A3,A3 P ORR A1,A3 $ P CF A5,TRSF 6 P RB WRT020 WAIT FOR REPLY J P* l P* NO TIME-OUT v P* PWRT050 EQU * PWRT055 EQU * P LDR A1,A2 P ANK A1,REMI I-FRAME ? P RF(Z) WRT060 P EJE
0x1c929c…1c9430 Dummy {f00=0x008e, f01=0x018e, f02=» P RF(Z) WRT080 RR P* P LDR A1,A2 & P ANK A1,REMRR 8 P SUK A1,MRNR N P RF(Z) WRT070 RNR b P* | P LDR A1,A2 P SUK A1,RECMDR P RF(Z) WRT090 CMDR P* * P* HERE INVALID FRAME HAS BEEN RECEIVED P*
0x1c9430…1c95c4 Dummy {f00=0x008e, f01=0x018e, f02=» P LD A1,DWTST,A7 GET STATUS P ANKL A1,BIT12 & P RF(Z) WRT061 NO WRONG N(R) < P RF INPDIS RESTART ` P* z PWRT061 EQU * P LD A1,DWTST,A7 P ANKL A1,BIT11 WRONG N(S) ? P RF(Z) WRT062 NO ( P ABL POL226 INDICATE WITH NE
0x1c95c4…1c9758 Dummy {f00=0x008e, f01=0x0190, f02=» PWRT070 EQU * P LDKL A1,BIT13 P ORS A1,DWTST,A7 RNR . PWRT071 EQU * J P CF A5,UPDCON ^ P LD A1,DWTST,A7 t P ANKL A1,BIT12 WRONG N(R) ? P RF(Z) WRT072 P RF INPDIS YES P* PWRT072 EQU * * P LC A2,DWTORI,
0x1c9758…1c98ec Dummy {f00=0x008e, f01=0x018e, f02=» v P ANKL A1,BIT13 P RF(NZ) WRT073 P RF WRT074 GO ON,RR 4 P* P PWRT073 EQU * Z P LDKL A1,BIT0 n P ORRS A1,A2 P ABL POL226 PWRT074 EQU * P LDKL A1,/7FFF P ANRS A1,A2 P ABL POL226 P* P
0x1c98ec…1c9a80 Dummy {f00=0x008e, f01=0x0190, f02=» P EJECT P* P* NO READ REQUEST PRESENT $ P* SEND I-FRAME + RNR + POLL-BIT > P* f PWRT200 EQU * p P LDK A1,1 P CF A5,TRI PWRT201 EQU * P CF A5,RDUSTI P LDR A2,A2 $ P RF(N) WRT300 TIME-OUT DETECTED
0x1c9a80…1c9c14 (1, 379) Dummy {f00=0x008f, f01=0x0190, f02=» P LC* A3,ECBBA,A8 P ECR A3,A3 P ORR A1,A3 2 P CF A5,TRSF D P RB WRT201 X P* j 0 P* HERE ON RETRY EXPIRATION.COMPLETE RTEQUEST t P* SET TC INACTIVE P* PWRT400 EQU * P CM ECBRC,A8 " P LDK A1,TCINAC RC:
0x1c9c14…1c9da8 Dummy {f00=0x008f, f01=0x0190, f02=»IST r P ANK A2,/FF P ADR A2,A6 P ADK A2,PLIST 2 " P ORKL A3,/8000 SET TC INACTIVE H P STR A3,A2 n P LD A1,PINACT,A6 P RF(NZ) WRT402 =1 P LD A2,PACT,A6 P ST A2,PINACT,A6 PWRT402 EQU * =1 P CF A5,HALTIN
0x1c9da8…1c9f3c Dummy {f00=0x008f, f01=0x0190, f02=»RT400 INACTIVE TC * P LC A3,DWTORI,A6 GET INDEX IN POLLIST P ANK A3,/FF H P ADR A3,A6 P ADK A3,PLIST n P SUK A3,2 P LDK A1,0 P STR A1,A3 RESET COUNTERS P LC* A3,ECBBA,A8 P ANK A3,/7F P ECR A3,A3 P
0x1c9f3c…1ca0d0 Dummy {f00=0x008f, f01=0x0190, f02=»=1 ~ P ANK A2,/FF P CWK A2,REUA P RB(NE) INPDIS 2 P ABL BMM10 H P EJECT Z P* h P* INTERNAL SUBROUTINES r P* P* P* RESTITUTE COUNTERS P* PLOADCO EQU * * P LC A3,DWTORI,A6 GET INDEX IN POLLIST
0x1ca0d0…1ca264 Dummy {f00=0x008f, f01=0x0190, f02=» ISOLATE VR P ST A1,VRS,A6 P LDR* A1,A3 * P SRL A1,3 > P ANKL A1,7 ISOLATE VS P P ST A1,VSS,A6 n P LDR* A1,A3 P SRL A1,6 ISOLATE LNR P ANKL A1,7 P ST A1,LNR,A6 P LDR* A1,A3 P SRL A1,9 $ P ANK
0x1ca264…1ca3f8 Dummy {f00=0x008f, f01=0x0190, f02=»DATE j P* PUPDCON EQU * P CF A5,LOADCO * P LDR A1,A2 @ P ANK A1,1 R & P RF(NZ) UPD100 NOT I-FRAME NO N(S) d P LDR A1,A2 P SRL A1,1 P ANK A1,7 P CW A1,VRS,A6 CHECK N(S) P RF(NE) UPD080 NOT OK P LDKL
0x1ca3f8…1ca58c Dummy {f00=0x008f, f01=0x0190, f02=»ULO 7 ~ P RF UPD100 P* PUPD080 EQU * * " P LDKL A1,BIT11 SET WRONG N(S) > P ORS A1,DWTST,A7 d PUPD100 EQU * | P LDR A1,A2 P SRL A1,5 PICK OUT N(R) P ANK A1,7 " P LD A3,CPS,A6 GET CHECK-POINT P CW A3,LNR,A6
0x1ca58c…1ca720 Dummy {f00=0x008f, f01=0x0190, f02=»S SAVE LAST ACKED N(R) P* 2 P* HERE TRANSMISSION OK,COMPLETE WRITE REQUEST ( P* ^ P LDKL A1,NBIT12 h " P ANS A1,DWTST,A7 RESTORE N(R) P LDK A1,0 P CF A15,TENDIO , P CF A5,STORCO RESTORE POLLIST'S COUNTERS P RTN A5
0x1ca720…1ca8b4 (1, 380) Dummy {f00=0x008f, f01=0x0190, f02=» v P ADS A4,CPS,A6 RESTORE CP P CW A1,LNR,A6 VALID N(R) ? * P RF(NE) UPD205 NO L P CF A5,STORCO f P ADK A5,4 UPDATE STACK =1 | " P LD A1,DWTST,A6 GET STATUS =5 P ABL(N) SOFTDI NO ORDER =5 P LD A1,DWTOR,A6 P ANK A1,/F
0x1ca8b4…1caa48 Dummy {f00=0x008f, f01=0x0190, f02=»BL(Z) WRT400 INACTIVE TC P ABL WRT100 RESEND FRAME P* @ P* INDICATE WRONG N(R) J P* h PUPD205 EQU * r P LDKL A1,BIT12 P ORS A1,DWTST,A7 P CF A5,STORCO P RTN A5 P* * P* HERE NO TRANSMISSION HAS BEEN DON
0x1caa48…1cabdc Dummy {f00=0x008f, f01=0x0190, f02=» ANS A1,DWTST,A7 RESTORE N(R) STATUS P CF A5,STORCO , P RTN A5 B P* R P EJECT P* j 0 P* BEFORE RETURN,RESTORE COUNTERS IN POLLIST t P* PSTORCO EQU * P LC A2,DWTORI,A6 P ANK A2,/FF P ADR A2,A6 P ADK
0x1cabdc…1cad70 Dummy {f00=0x008f, f01=0x0190, f02=»D A1,VRS,A6 P ORRS A1,A2 P LD A1,VSS,A6 ( P SLL A1,3 > P ORRS A1,A2 P P LD A1,LNR,A6 d P SLL A1,6 z P ORRS A1,A2 P LD A1,CPS,A6 P SLL A1,9 P ORRS A1,A2 " P ORRS A3,A2 RESTORE BUSY FLAG P RTN A
0x1cad70…1caf04 Dummy {f00=0x008f, f01=0x018e, f02=» j . P* TRUF :UNNUMBERED FRAME (16 BITS) 0 P* TRI :I-FRAME WITH POLL-BIT OR NOT : P* n , P* A1 CONTAINS ADDRESS+C-FIELD x P* PTRSF EQU * P* < P* HERE TO INSERT CURRENT N(R) VARIABLE BEFORE TRANSMIT
0x1caf04…1cb098 Dummy {f00=0x008f, f01=0x0190, f02=» P ANKL A3,7 P SLL A3,5 & P ORR A1,A3 STORE VR IN SENT FRAME ( P* R PTRUF EQU * & P ST A1,SENDF,A6 INIT OUTPUT FIELD n P LDKL A3,SENDF P ADR A3,A6 P LDK A4,2 P RF SENDX0 P EJECT P* P* SEND I-FRA
0x1cb098…1cb22c Dummy {f00=0x008f, f01=0x0190, f02=» P LDK A2,/10 P CF A5,PRCFI INIT C-FIELD & P LD A3,ECBBA,A8 GET BUFFER ADDRESS > P LDKL A1,/FF00 h " P ANRS A1,A3 SAVE ADDRESS FIELD ~ " P ORRS A2,A3 MERGE WITH C-FIELD P LD A4,ECBRL,A8 P RF SENDY0 P* PTRISGL EQU
0x1cb22c…1cb3c0 Dummy {f00=0x008f, f01=0x018e, f02=»,A3 P LD A4,ECBRL,A8 P RF SENDZ0 $ P EJECT 6 P* D < P* SUBROUTINE USED TO UPDATE C-FIELD WHEN SENDIND I-FRAME N P* PPRCFI EQU * P CF A5,LOADCO LOAD COUNTERS P LD A1,VSS,A6 P SLL A1,1 P ORR A2,A1 INIT
0x1cb3c0…1cb554 (1, 381) Dummy {f00=0x008f, f01=0x0190, f02=» P* PSENDX0 EQU * P* & . P* START TRANSMITTER AND SEND SHORT FRAME 0 P* b P CF A5,STHCUT CIO START l & P ABL(NN) OLI160 MODEM NOT OPERABLE P RF SENDXX P LDK A2,1 P CF A5,STHID1 PSENDXX EQU * P RTN
0x1cb554…1cb6e8 Dummy {f00=0x008f, f01=0x018e, f02=» ABL(NN) OLI160 MODEM NOT OPERABLE P LD A1,VSS,A6 * P ADK A1,1 @ P ANK A1,7 MODULO 7 R P ST A1,VSS,A6 N(S) l P ST A1,CPS,A6 CHECK POINT " P CF A5,STORCO RESTORE COUNTERS P RTN A5 P* , P* HERE TO SEND I-FRAME + RNR +
0x1cb6e8…1cb87c Dummy {f00=0x008f, f01=0x0190, f02=» P ADK A1,1 P ANK A1,7 P ST A1,VSS,A6 , P ST A1,CPS,A6 B P CF A5,STORCO X P* n P* SEND POLL-BIT IN RNR x P* P LDKL A1,TRNRP P LD A2,VRS,A6 GET N(R) P SLL A2,5 P ORR A1,A2 P LDK A4,2 INIT
0x1cb87c…1cba10 Dummy {f00=0x008f, f01=0x0190, f02=» P CF A5,STHCUT CIO START P ABL(NN) OLI160 $ P RTN A5 < P EJECT L P* Z P* d 2 P* COMMON SUBROUTINES TO READ A COMPLETE FRAME n 0 P* RDUSTI : READ WITHOUT BUFFER USER 0 P* RDITI : READ AND USE USER BUFFER
0x1cba10…1cbba4 Dummy {f00=0x008f, f01=0x0190, f02=»ECEIVE BUFFER P* P LDKL A4,USBUF P ADR A4,A7 BUFFER ADDRESS 6 P LDK A3,0 INIT LENGTH X P RF RDUT10 v P* PRDITI EQU * $ P LD A8,DWTECB,A7 GET ECB POINTER P LDK A1,0 P ST A1,ECBEL,A8 P LD A4,ECBBA,A8
0x1cbba4…1cbd38 Dummy {f00=0x008f, f01=0x0190, f02=»TART TIMER P* " P ST A4,DWTSAV+2,A7 SAVE A4 =1 P CF A15,SETIME B P DATA RDUT20,TIMRE4 X ( P ST A4,DWTTP,A7 STORE TIMER POINTER t " P LD A4,DWTSAV+2,A7 RESTORE A4 P RF RDUT40 P* P* TIME-OUT ENTRY P* PRDUT
0x1cbd38…1cbecc Dummy {f00=0x008f, f01=0x0190, f02=»2,A7 P LD A5,DWTSAV+4,A7 P LD A6,DWTSAV+6,A7 & P LD A8,DWTSAV+10,A7 @ P ADK A5,4 STACK =1 P CF A5,HALTIN x " P ABL(Z) OLI160 MODEM NOT READY P* PRDUT30 EQU * P ORKL A2,/8000 TIME-OUT P RTN A5 P*
0x1cbecc…1cc060 Dummy {f00=0x008f, f01=0x0190, f02=» RDUT10 RETRY CIO START P* P* READ FRAME OK? * P* ON RETURN A3 = LENGTH B P* b P ABL(Z) OLI160 l P RF(N) READOK P* & P* ERRORS WITHIN FRAME,POLL AGAIN P* P LDKL A2,/8000 THROUGPUT P RTN A5 P*
0x1cc060…1cc1f4 (1, 382) Dummy {f00=0x008f, f01=0x0190, f02=»POLLED ? p P RF(E) RDOK1 YES P LDKL A2,/8000 ( P RTN A5 > PRDOK1 EQU * N P LDR* A2,A4 b P LDR A1,A2 v P ANK A1,REMI READ FRAME ? P RF(NZ) READUT NO , P ST A3,ECBEL,A8 INIT LENGTH FOR I-FRAME PREADUT RTN A5
0x1cc1f4…1cc388 Dummy {f00=0x008f, f01=0x0190, f02=» ACCEPT OUTPUT INTERRUPTS x P* " PSTHCUT EQU * , P LD A1,PFPOST =3 @ ( P ABL(NZ) TDISP WAIT FOR POWER UP =3 Z P LCR A1,A3 =1 P SC A1,SENDF,A6 " P LDR* A1,A6 GET DEVICE ADDRESS $ P ADKL A1,CIOST CREATE INSTUCTION P ST A1
0x1cc388…1cc51c Dummy {f00=0x008f, f01=0x0190, f02=» ADK A2,CIT4WP TRANSMIT 4-WIRES P.C $ P ADR A4,A3 END OF BUFFER ADDRESS , PSTHCUX EQU * T P HLT h * P RF IHU400 *** SHOULD BE ACCEPTED *** t P* P* IDLE ONE ON LINE P* PSTHID1 EQU * " P LDR* A1,A6 GET DEVICE ADDRESS &
0x1cc51c…1cc6b0 Dummy {f00=0x008f, f01=0x0190, f02=» P* , P* INTERRUPT HANDLER,CHLC TRANSMITTER 1 P* > P* H PIH8202 EQU * R $ P STR A1,A15 SAVE A1,A8 ON STACK f P STR A2,A15 P STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P S
0x1cc6b0…1cc844 Dummy {f00=0x008f, f01=0x0190, f02=»,DWTSAV+4,A6 P LD A7,DWTSAV+8,A6 P LD A8,DWTSAV+10,A6 . " P LCR A2,A3 ODD OR EVEN ADDRESS J P SLL A2,8 p P LC A2,+1,A3 PIHU200 EQU * P OTR A2,0,DAMU01 OUTPUT WORD P* PIHUXX EQU * P ABL(NA) SSTU00 P IFF
0x1cc844…1cc9d8 Dummy {f00=0x008f, f01=0x0190, f02=»400 P* ( P* TRANSMISSION DONE,HALT TRANSMITTER P* B P LD A1,PFPOST =3 L ( P ABL(NZ) TDISP WAIT FOR POWER UP =3 f . P LDKL A1,CIOH CREATE CIO HALT INSTRUCTION P ADR* A1,A6 P ST A1,IHU310 PIHU310 EQU * P HLT
0x1cc9d8…1ccb6c Dummy {f00=0x008f, f01=0x0190, f02=» PROGRAMM x P* PRETURN EQU * P LDR* A8,A15 0 P LDR* A7,A15 D P LDR* A6,A15 X P LDR* A5,A15 l P LDR* A4,A15 P LDR* A3,A15 P LDR* A2,A15 P LDR* A1,A15 P RTN A15 P IFF HILINO=1 P EJECT P*
0x1ccb6c…1ccd00 Dummy {f00=0x008f, f01=0x018e, f02=»5 P STR A5,A15 P STR A6,A15 P STR A7,A15 2 P STR A8,A15 F P* Z & P LDKL A6,DW8204 RESTORE OUTPUT DWT d P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 P LD A5,DWTSAV+4,A6 P LD A7,DWTSAV+8,A6 P LD A8,DWTSAV+10,A6
0x1ccd00…1cce94 (1, 383) Dummy {f00=0x0090, f01=0x0190, f02=» P EJECT P* P* CHLC TRANSMITTER 3 P* 8 PIH8206 EQU * B P STR A1,A15 V P STR A2,A15 j P STR A3,A15 ~ P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A15 P* P LDKL A6
0x1cce94…1cd028 Dummy {f00=0x0090, f01=0x0190, f02=»6 ~ P* P LCR A2,A3 P SLL A2,8 & P LC A2,+1,A3 8 P OTR A2,0,DAMU03 L P ABL IHUXX d P IFF HILINO=3 v P EJECT P* P* CHLC TRANSMITTER 4 P* PIH8208 EQU * P STR A1,A15 P STR A2,A15 P S
0x1cd028…1cd1bc Dummy {f00=0x0090, f01=0x0190, f02=»,DW8208 P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 ( P LD A5,DWTSAV+4,A6 B P LD A7,DWTSAV+8,A6 P LD A8,DWTSAV+10,A6 v P* P LCR A2,A3 P SLL A2,8 P LC A2,+1,A3 P OTR A2,0,DAMU04 P ABL IHUXX P IFF HILIN
0x1cd1bc…1cd350 Dummy {f00=0x0090, f01=0x0190, f02=»TR A3,A15 P STR A4,A15 P STR A5,A15 & P STR A6,A15 : P STR A7,A15 N P STR A8,A15 b P* v P LDKL A6,DW8210 P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 P LD A5,DWTSAV+4,A6 P LD A7,DWTSAV+8,A6 P LD A8,DWT
0x1cd350…1cd4e4 Dummy {f00=0x0090, f01=0x0190, f02=»O=5 P EJECT P* P* CHLC TRANSMITTER 6 $ P* @ PIH8212 EQU * J P STR A1,A15 ^ P STR A2,A15 r P STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A15 P* P
0x1cd4e4…1cd678 Dummy {f00=0x0090, f01=0x0190, f02=»SAV+10,A6 P* P LCR A2,A3 P SLL A2,8 . P LC A2,+1,A3 @ P OTR A2,0,DAMU06 T P ABL IHUXX l P IFF HILINO=6 ~ P EJECT P* P* TRANSMITTER 7 P* PIH8214 EQU * P STR A1,A15 P STR A2,A15
0x1cd678…1cd80c Dummy {f00=0x0090, f01=0x018e, f02=»L A6,DW8214 P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 , P LD A5,DWTSAV+4,A6 F P LD A7,DWTSAV+8,A6 ` P LD A8,DWTSAV+10,A6 z P* P LCR A2,A3 P SLL A2,8 P LC A2,+1,A3 P OTR A2,0,DAMU07 P ABL IHUXX P IFF H
0x1cd80c…1cd9a0 Dummy {f00=0x0090, f01=0x0190, f02=» P STR A3,A15 P STR A4,A15 P STR A5,A15 , P STR A6,A15 @ P STR A7,A15 T P STR A8,A15 h P* | P LDKL A6,DW8216 P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 P LD A5,DWTSAV+4,A6 P LD A7,DWTSAV+8,A6 P LD
0x1cd9a0…1cdb34 (1, 384) Dummy {f00=0x0090, f01=0x0190, f02=» HILINO=8 P EJECT P* P* CHLC TRANSMITTER 9 * P* F PIH8218 EQU * P P STR A1,A15 d P STR A2,A15 x P STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A15 P*
0x1cdb34…1cdcc8 Dummy {f00=0x0090, f01=0x0190, f02=»A8,DWTSAV+10,A6 P* P LCR A2,A3 " P SLL A2,8 4 P LC A2,+1,A3 F P OTR A2,0,DAMU09 Z P ABL IHUXX r P IFF HILINO=9 P EJECT P* P* CHLC TRANSMITTER 10 P* PIH8220 EQU * P STR A1,A15 P STR A
0x1cdcc8…1cde5c Dummy {f00=0x0090, f01=0x0190, f02=» P LDKL A6,DW8220 P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 8 P LD A5,DWTSAV+4,A6 R P LD A7,DWTSAV+8,A6 l P LD A8,DWTSAV+10,A6 P* P LCR A2,A3 P SLL A2,8 P LC A2,+1,A3 P OTR A2,0,DAMU10 P ABL IHUXX
0x1cde5c…1cdff0 Dummy {f00=0x0090, f01=0x0190, f02=» A2,A15 P STR A3,A15 P STR A4,A15 $ P STR A5,A15 8 P STR A6,A15 L P STR A7,A15 ` P STR A8,A15 t P* P LDKL A6,DW8222 P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 P LD A5,DWTSAV+4,A6 P LD A7,DWTSAV+8,A6
0x1cdff0…1ce184 Dummy {f00=0x0090, f01=0x0190, f02=» P IFF HILINO=11 P EJECT P* , P* CHLC TRANSMITTER 12 6 P* T PIH8224 EQU * ^ P STR A1,A15 r P STR A2,A15 P STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A1
0x1ce184…1ce318 Dummy {f00=0x0090, f01=0x018e, f02=»A6 P LD A8,DWTSAV+10,A6 P* & P LCR A2,A3 0 P SLL A2,8 B P LC A2,+1,A3 T P OTR A2,0,DAMU12 h P ABL IHUXX P XIF P EJECT P* . P* SST INTERRUPT HANDLER,CHLC TRANSMITTER P* PSSTU00 EQU * P L
0x1ce318…1ce4ac Dummy {f00=0x0090, f01=0x0190, f02=» PSSTU20 EQU * P IFF LOGG=0 =1 P CF A5,LOGSST 0 P XIF F " P ANK A2,3 GET ONLY BITS 14.15 R P LDR A1,A2 GET STATUS x P RF(NZ) SSTU40 SST NOT OK P LDK A2,2 PSSTU30 EQU * ( P CF A5,A5CND SET CONDITION REGISTER
0x1ce4ac…1ce640 Dummy {f00=0x0090, f01=0x018e, f02=»U50 MODEM OK P LDK A2,0 " P RB SSTU30 MODEM NOT OPERABLE & P* L PSSTU50 EQU * V P LDR A1,A2 j P ANK A1,2 | P RF(Z) SSTU60 ERRORS P ABL IHU400 THROUGPUT PSSTU60 EQU * P CF A5,HALTIN P ABL IHU400 P*
0x1ce640…1ce7d4 (1, 385) Dummy {f00=0x0090, f01=0x0190, f02=» , P* A2 COUNTAINS CIO PARAMETER P* 4 PSTHCIN EQU * > P LD A1,PFPOST =3 R ( P ABL(NZ) TDISP WAIT FOR POWER UP =3 l " P LDR* A1,A7 GET DEVICE ADDRESS , P ADKL A1,CIOST CREATE START INSTRUCTION P ST A1,STHCI0 PSTHC
0x1ce7d4…1ce968 Dummy {f00=0x0090, f01=0x0190, f02=»01 EQU * $ P STR A1,A15 SAVE A1,A8 ON STACK P STR A2,A15 8 P STR A3,A15 L P STR A4,A15 ` P STR A5,A15 t P STR A6,A15 P STR A7,A15 P STR A8,A15 P* " P LDKL A7,DW8201 GET INPUT DWT P LD A3,DWTSAV,A7
0x1ce968…1ceafc Dummy {f00=0x0090, f01=0x0190, f02=» GET WORD FROM LINE PIHI200 EQU * P ABL(NA) SSTIN0 0 P IFF LOGG=0 =1 H P CF A5,LOGIN ` P XIF t P* P* INPUT INTERRUPT ACCEPTED P* P ADR A4,A3 GET BUFFER ADDESS " P ECR A1,A2 ODD OR EVEN ADDRESS P SCR A
0x1ceafc…1cec90 Dummy {f00=0x0090, f01=0x0190, f02=»F(L) IHI300 NO BUFFER OVERFLOW , P SUK A3,2 YES,MAINTAIN DATA IN LAST WORD & P* V PIHI300 EQU * ` P ST A3,DWTSAV,A7 t P ST A4,DWTSAV+2,A7 P ST A5,DWTSAV+4,A7 P ABL RETURN P IFF HILINO=1 P EJECT P* P* CH
0x1cec90…1cee24 Dummy {f00=0x0090, f01=0x0190, f02=» A5,A15 P STR A6,A15 P STR A7,A15 $ P STR A8,A15 8 P* L P LDKL A7,DW8203 V P LD A3,DWTSAV,A7 n P LD A4,DWTSAV+2,A7 P LD A5,DWTSAV+4,A7 P LD A6,DWTSAV+6,A7 P LD A8,DWTSAV+10,A7 P* ( P INR A2,0,DAMI
0x1cee24…1cefb8 Dummy {f00=0x0090, f01=0x018e, f02=» P* PIH8205 EQU * P STR A1,A15 " P STR A2,A15 6 P STR A3,A15 J P STR A4,A15 ^ P STR A5,A15 r P STR A6,A15 P STR A7,A15 P STR A8,A15 P LDKL A7,DW8205 P LD A3,DWTSAV,A7 P LD A4,DWTSAV+2,A7
0x1cefb8…1cf14c Dummy {f00=0x0090, f01=0x018e, f02=» P IFF HILINO=3 P EJECT P* ( P* CHLC RECEIVER 4 2 P* L PIH8207 EQU * V P STR A1,A15 j P STR A2,A15 ~ P STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A15
0x1cf14c…1cf2e0 Dummy {f00=0x0090, f01=0x018e, f02=» P LD A8,DWTSAV+10,A7 P* P INR A2,0,DAMI04 * P ABL IHI200 B P IFF HILINO=4 V P EJECT l P* z P* CHLC RECEIVER 5 P* PIH8209 EQU * P STR A1,A15 P STR A2,A15 P STR A3,A15 P STR A4,A15
0x1cf2e0…1cf474 (1, 386) Dummy {f00=0x0090, f01=0x0190, f02=» ~ P LD A4,DWTSAV+2,A7 P LD A5,DWTSAV+4,A7 " P LD A6,DWTSAV+6,A7 < P LD A8,DWTSAV+10,A7 V P* r P INR A2,0,DAMI05 | P ABL IHI200 P IFF HILINO=5 P EJECT P* P* CHLC RECEIVER 6 P* PIH8211 EQU *
0x1cf474…1cf608 Dummy {f00=0x0090, f01=0x0190, f02=»5 P STR A8,A15 P* P LDKL A7,DW8211 ( P LD A3,DWTSAV,A7 @ P LD A4,DWTSAV+2,A7 X P LD A5,DWTSAV+4,A7 r P LD A6,DWTSAV+6,A7 P LD A8,DWTSAV+10,A7 P* P INR A2,0,DAMI06 P ABL IHI200 P IFF HILINO=6
0x1cf608…1cf79c Dummy {f00=0x0090, f01=0x0190, f02=»5 P STR A4,A15 P STR A5,A15 P STR A6,A15 2 P STR A7,A15 F P STR A8,A15 Z P* n P LDKL A7,DW8213 x P LD A3,DWTSAV,A7 P LD A4,DWTSAV+2,A7 P LD A5,DWTSAV+4,A7 P LD A6,DWTSAV+6,A7 P LD A8,DWTSAV+10,A
0x1cf79c…1cf930 Dummy {f00=0x0090, f01=0x0190, f02=»* PIH8215 EQU * P STR A1,A15 P STR A2,A15 2 P STR A3,A15 F P STR A4,A15 Z P STR A5,A15 n P STR A6,A15 P STR A7,A15 P STR A8,A15 P* P LDKL A7,DW8215 P LD A3,DWTSAV,A7 P LD A4,DWTSAV+2,
0x1cf930…1cfac4 Dummy {f00=0x0090, f01=0x018e, f02=» P IFF HILINO=8 P EJECT P* , P* CHLC RECEIVER 9 6 P* P PIH8217 EQU * Z P STR A1,A15 n P STR A2,A15 P STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A15
0x1cfac4…1cfc58 Dummy {f00=0x0090, f01=0x0190, f02=» | P LD A8,DWTSAV+10,A7 P* $ P INR A2,0,DAMI09 . P ABL IHI200 F P IFF HILINO=9 Z P EJECT p P* ~ P* CHLC RECEIVER 10 P* PIH8219 EQU * P STR A1,A15 P STR A2,A15 P STR A3,A15 P STR A4,A15
0x1cfc58…1cfdec Dummy {f00=0x0090, f01=0x0190, f02=»A7 P LD A4,DWTSAV+2,A7 P LD A5,DWTSAV+4,A7 $ P LD A6,DWTSAV+6,A7 > P LD A8,DWTSAV+10,A7 X P* t P INR A2,0,DAMI10 ~ P ABL IHI200 P IFF HILINO=10 P EJECT P* P* CHLC RECEIVER 11 P* PIH8221 EQU *
0x1cfdec…1cff80 Dummy {f00=0x0090, f01=0x0190, f02=»A15 P STR A8,A15 P* P LDKL A7,DW8221 * P LD A3,DWTSAV,A7 B P LD A4,DWTSAV+2,A7 Z P LD A5,DWTSAV+4,A7 t P LD A6,DWTSAV+6,A7 P LD A8,DWTSAV+10,A7 P* P INR A2,0,DAMI11 P ABL IHI200 P IFF HILINO=11
0x1cff80…1d0114 (1, 387) Dummy {f00=0x0091, f01=0x0190, f02=»A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 4 P STR A7,A15 H P STR A8,A15 P* p P LDKL A7,DW8223 z P LD A3,DWTSAV,A7 P LD A4,DWTSAV+2,A7 P LD A5,DWTSAV+4,A7 P LD A6,DWTSAV+6,A7 P LD A8,DWTSAV+10
0x1d0114…1d02a8 Dummy {f00=0x0091, f01=0x0190, f02=»ECEIVER n P* , P* A2 INPUT REGISTER FOR STATUS INFO P* J PSSTIN0 EQU * T & P LD A1,DWTTP,A7 GET TIMER POINTER h P RF(Z) SSTI03 NO TIMER P CMR A1 P CM DWTTP,A7 CLEAR TIMER PSSTI03 EQU * P LDR* A1,P P S
0x1d02a8…1d043c Dummy {f00=0x0091, f01=0x0190, f02=» HLT PSSTI06 EQU * P IFF LOGG=0 =1 P CF A5,LOGSST 8 P XIF N $ P LDR A1,A2 SAVE STATUS IN REG A1 Z , P ANKL A1,SSTMSK ISOLATE SIGNIFICANT BITS P RF(NZ) SST10 STATUS PRESENT P* ( P* STATUS OK,UPDATE LENGTH AND RETURN
0x1d043c…1d05d0 Dummy {f00=0x0091, f01=0x018e, f02=»F SST22 P* $ P* HERE TO HANDLE RECEIVER STATUS P* B PSST10 EQU * L P LDR A1,A2 ` ( P ANK A1,MSKMOD MODEM AND CARRIER OFF r P RF(Z) SST20 P* P* MODEM NOT OPERABLE P* P LDK A2,0 P RF SST22 YES,INDICA
0x1d05d0…1d0764 Dummy {f00=0x0091, f01=0x0190, f02=» r P* P LDK A2,3 ALL TYPE ERRORS P RF SST22 4 P* F P* THROUGPUT ERROR P P* j PSST21 LDK A2,1 t PSST22 CF A5,A5CND P RTN A5 P EJECT P* P* HALT LINE INPUT P* PHALTIN EQU * P LD
0x1d0764…1d08f8 Dummy {f00=0x0091, f01=0x0190, f02=» EQU * P HLT $ P ABL IHI300 RETURN TO DISPATCHER P EJECT B P* P P* SET CND AT A5 STACK Z P* x PA5CND EQU * P LD A1,6,A5 GET CND WORD P ANKL A1,/FCFF P ECR A2,A2 CND WORD FROM PRG P ORR A1,A2 CND WRD CHANG
0x1d08f8…1d0a8c Dummy {f00=0x0091, f01=0x0190, f02=»=ADDRESS TO FIND TCA FOR EXIT P* A4=INDEX IN POLLIST & P* A2=TCA IN ENTRY D P* CR=Z ACTIVE TCA FOUND ^ P* CR=N INACTIVE TCA FOUND P* CR=P TCA NOT FOUND P* PFINDTC EQU * P ADKL A15,4 * P LD A4,PLIST,A6 GET
0x1d0a8c…1d0c20 Dummy {f00=0x0091, f01=0x0190, f02=» A1,A2 " P RF(E) FIND40 ACTIVE TC FOUND P ANK A1,/FF 4 P CWR A1,A2 H $ P RF(E) FIND30 INACTIVE TC FOUND Z P SUK A3,4 P SUK A4,4 P RB(P) FIND10 GET NEXT TCA P ADK A4,1 P ABR* A15 PFIND30 EQU * P LDR* A1
0x1d0c20…1d0db4 (1, 388) Dummy {f00=0x0091, f01=0x018e, f02=»BL DISIOE ILLEGAL ORDER P EJECT P* . P* INTERRUPT LOGGING ROUTINE 8 P* P IFF LOGG=0 =1 f PLOGSST EQU * ~ P LDKL A1,/5555 P RF LOG10 PLOGOUT EQU * P LDK A1,0 P RF LOG10 PLOGIN EQU * P L
0x1d0db4…1d0f48 Dummy {f00=0x0091, f01=0x0190, f02=» P ADK A3,2 P CWK A3,LOGEND P RF(L) LOGEXI 0 P LDKL A3,LOGSTA F PLOGEXI ST A3,LOGPNT ^ P LD A2,SAVE2 z P LD A3,SAVE3 PLOGE10 RTN A5 P EJECT P* P* WORK AREAS FOR LOGGING P* PLOGPNT DATA LO
0x1d0f48…1d10dc Dummy {f00=0x0091, f01=0x400c, f02=» @ A3,2 P CWK A3,LOGEND P RF(L) LOGEXI 0 P LDKL A3,LOGSTA F PLOGEXI ST A3,LOGPNT ^ P LD A2,SAVE2 z P LD A3,SAVE3 PLOGE10 RTN A5 P EJECT P* P* WORK AREAS FOR LOGGING P* PLOGPNT DATA LO
0x1d10dc…1d1270 Dummy {f00=0x0091, f01=0x2008, f02=» CF A5,RDUSTI ' CF A5,HALTIN ' ABL BMM10 ' 4 END ' F@ ' RF & L ADR A3,A6 & ` LDR* A2,A3 & r CM PLIST,A3 & . ) CM PLIST,+2,A3 DELETE 2 WORDS IN POLLIST & LDK A1,0 & $ CF A15,TENDIO COMPLETE REQUEST & *
0x1d1270…1d1404 Dummy {f00=0x0091, f01=0x0190, f02=» P ABL SSTIN P IFF HILINO=2 P EJECT 0 P* > P* H P* R PIH8105 EQU * P ST P,INTSAV p P CF A15,SAVER P LDKL A7,DW8105 , P INR A2,0,DAMI03 GET CHARACTER FROM LINE P RB(A) IHI100 P ABL SSTIN
0x1d1404…1d1598 Dummy {f00=0x0091, f01=0x018e, f02=»A7,DW8107 , P INR A2,0,DAMI04 GET CHARACTER FROM LINE P RB(A) IHI100 B P RF SSTIN X P IFF HILINO=4 j P EJECT P* P* P* PIH8109 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A7,DW8109 , P INR A
0x1d1598…1d172c Dummy {f00=0x0091, f01=0x0190, f02=» P* PIH8111 EQU * P ST P,INTSAV " P CF A15,SAVER 6 P LDKL A7,DW8111 L , P INR A2,0,DAMI06 GET CHARACTER FROM LINE d P RB(A) IHI100 P RF SSTIN P IFF HILINO=6 P EJECT P* P* P* PIH8113 EQU
0x1d172c…1d18c0 Dummy {f00=0x0091, f01=0x0190, f02=»0 P RF SSTIN P IFF HILINO=7 P EJECT 2 P* @ P* J P* T PIH8115 EQU * ^ P ST P,INTSAV r P CF A15,SAVER P LDKL A7,DW8115 , P INR A2,0,DAMI08 GET CHARACTER FROM LINE P RB(A) IHI100 P RF SSTIN
0x1d18c0…1d1a54 (1, 389) Opaque[0x194]
0x1d1a54…1d1be8 # DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1230, f03=0x0000}
0x1d1a54…1d1be8 IdxSect {
0x1d1a54…1d1be8 f00 = 0x0091 // 0x1d1a54 @0x0
0x1d1a54…1d1be8 f01 = 0x0008 // 0x1d1a56 @0x2
0x1d1a54…1d1be8 gno = [ // 0x1d1a58 @0x4
0x1d1a54…1d1be8 [0x00]: C0x0091.0x2.0
0x1d1a54…1d1be8 [0x01]: C0x0091.0x3.0
0x1d1a54…1d1be8 [0x02]: C0x0092.0x0.0
0x1d1a54…1d1be8 [0x03]: C0x0092.0x1.0
0x1d1a54…1d1be8 ]
0x1d1a54…1d1be8 }
0x1d1be8…1d1d7c Dummy {f00=0x0091, 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*
0x1d1d7c…1d1f10 Dummy {f00=0x0091, 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
0x1d1f10…1d20a4 Dummy {f00=0x0091, 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*
0x1d20a4…1d2238 Dummy {f00=0x0091, 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*
0x1d2238…1d23cc Dummy {f00=0x0091, 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
0x1d23cc…1d2560 Dummy {f00=0x0091, 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
0x1d2560…1d26f4 (1, 390) Dummy {f00=0x0091, 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
0x1d26f4…1d2888 Dummy {f00=0x0091, 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*
0x1d2888…1d2a1c Dummy {f00=0x0091, f01=0x0190, f02=»D6 EQU X:A P* P* 8 P* ORDER 39, WRITE FLASHING LIGHTS MAY BE INCLUDED & ( P* IN THIS DRIVER BY SETTING X:B=1 b P* PX:B EQU 0 PFLASH EQU X:B P* P* P EJECT P* P* P* MMU BUFFER SIZ
0x1d2a1c…1d2bb0 Dummy {f00=0x0091, f01=0x0190, f02=» P********************* P* " PDWTDIB EQU /02 SAVE AREA , , PDWTFLA EQU /08 SAVE AREA FOR FLASH IMAGE L PDWTTP EQU /0A TIMER POINTER | PTIME EQU 5 FLASH TIME P* P EJECT P* P* A C D I P* > P* ACTIVA
0x1d2bb0…1d2d44 Dummy {f00=0x0091, f01=0x0190, f02=» P CCK A7,/0606 P RF(E) ADI050 ORDER /06 P XIF : & P LD A4,ECBCW,A8 CONTROL WORD TO A4 F 8 P LD A3,DWTDEV,A6 TEST IF ONE OR TWO CHARACTER DEVICE p & P RF(N) ADI005 ONE CHARACTER DEVICE " P LDR A3,A4 CONTROL WORD tO A3 P ANK A4,/F
0x1d2d44…1d2ed8 Dummy {f00=0x0091, f01=0x0190, f02=» P RF(E) FLA05 P XIF P SUK A7,/37 $ P RF(E) ADI010 ORDER 37 8 P SUK A7,1 V P RF(E) ADI007 ORDER 38 h " P ABL(NE) LENDER REQUEST ERROR P EJECT P IFT FLASH=1 P* P* FLASH ORDER /39 P* P*
0x1d2ed8…1d306c Dummy {f00=0x0091, f01=0x0190, f02=»ALREADY STARTED | P LDR A1,A6 P CF A15,SETIME * P DATA FLTUT,TIME @ P ST A4,DWTTP+DWTDEV,A6 X . P LD A4,DWTFLA+DWTDEV,A6 RELOAD FLASH IMAGE v P* PFLA10 EQU * P LDKL A3,/200 ( P XRS A3,DWTDEV,A6 SWITCH 0N-OFF FLAG P
0x1d306c…1d3200 Dummy {f00=0x0091, f01=0x0190, f02=»H n P RF ADI020 TURN ON LAMPS P* * PFLA20 C1R A4,A4 4 & P ANS A4,DWTDIB+DWTDEV,A6 ON-FLASH L P RF ADI020 TURN OFF LAMPS v P EJECT P* P* P* FLASH TIME OUT ROUTINE P* P* PFLTUT EQU * $ P LDR
0x1d3200…1d3394 (1, 391) Dummy {f00=0x0092, f01=0x018e, f02=»E BUSY x P ANS A4,DWTST,A6 P* & P LD A4,DWTFLA+DWTDEV,A6 0 * P RF(Z) FLA30 NO MORE LAMPS TO FLASHER P P* ~ * P LDR A5,A6 INITIATE DWT-STACK POINTER P ADKL A5,DWTSB2 P LDKL A1,-TIME RESTART TIMER P ST* A1,DWTTP+DWTDEV,A
0x1d3394…1d3528 Dummy {f00=0x0092, f01=0x0190, f02=» P LDKL A1,-TIME RESTART TIMER P ST* A1,DWTTP+DWTDEV,A6 , P ABL LDISP L P XIF ^ P EJECT j P IFT ORD6=1 x P* P* ( P* ORDER 06: WRITE PROGRAM DISPLAY P* PADI050 LDK A3,0 & PADI060 CF A15,GETCHR GET C
0x1d3528…1d36bc Dummy {f00=0x0092, f01=0x0190, f02=»ARACTER ? z P RF(L) ADI100 YES P CWK A4,3 UNDEFINED ? , P RF(G) ADI100 YES J P ADKL A4,DWTDIB+2 d P ADR A4,A6 ~ , P SCR A2,A4 STORE CHARACTER IN DWT-BUFFER " P RB ADI060 GET NEXT CHARACTER < PADI070 SC A1,DWTDEV+1,A6 SET STA
0x1d36bc…1d3850 Dummy {f00=0x0092, f01=0x018e, f02=»SSEQ00 SEND CHARACTERS P* P* ( P* CODE CHECK ERROR 2 P* P ( PADI100 LDK A1,CCERR SET RETURN CODE Z P ORS A1,8,A8 IN ECB " P RB ADI060 GET NEXT CHARACTER P XIF P* P EJECT P* P* $ P* ORD
0x1d3850…1d39e4 Dummy {f00=0x0092, f01=0x018e, f02=» P IFT FLASH=1 6 P ANS A4,DWTFLA+DWTDEV,A6 RESET BITS IN FLASH IMAGE P XIF R P RF ADI020 ^ P* p P* z P* P* P* ORDER 37: TURN ON LAMPS P* P* P* : PADI010 ORS A4,DWTDIB+DWTDEV,A6 SET BITS IN DWT
0x1d39e4…1d3b78 Dummy {f00=0x0092, f01=0x0190, f02=» P* P* SENDING SEQUENCE P* * " PADI020 LDK A2,/2 BLOCK LENGTH 4 P CF A5,STABLK START OF BLOCK Z P RF(NZ) DIER10 NOT OK ! ~ 0 P LC A2,DWTDIB+DWTDEV,A6 GET FIRST CHARACTER PADI035 LDK A1,1 6 P SC A1,DWTDEV+1,A6 SET START V
0x1d3b78…1d3d0c Dummy {f00=0x0092, f01=0x0190, f02=» n P ADR A2,A6 P LD A4,DWTDEV,A6 P ANK A4,/FF 4 P ADR A2,A4 H P LCR A2,A2 GET CHARACTER Z P LD A8,DWTECB,A6 z < P RF(Z) SSEQ10 IF POWER FAIL NO BELL OR CASH-BOX OPENING P LD A3,ECBCW,A8 BELL? P RF(NN) SSEQ05 NO $
0x1d3d0c…1d3ea0 Dummy {f00=0x0092, f01=0x0190, f02=»NING OF BOX 2 r PSSEQ07 SLC A3,1 OPEN BOX 1 ? P RF(NN) SSEQ10 NO ! : 0 P ORK A2,/10 YES ! INDICATE OPENING OF BOX 1 V P EJECT P* . PSSEQ10 IM DWTDEV,A6 INCREMENT BYTE COUNTER P* " PSSEQ20 CF A5,OUTPUT SEND CHAR. P RF(
0x1d3ea0…1d4034 (1, 392) Dummy {f00=0x0092, f01=0x0190, f02=»GET BYTE COUNTER $ P SUK A4,2 TWO CHARACTERS SENT ? P EJECT @ P IFT ORD6=1 N P RF(NZ) SSEQ25 NO ! b P LDR A7,A7 GET ORDER ~ P IFT ORD6=1 0 P CWK A7,06 ORDER 06, WRITE PROGRAM DISPLAY ? P RF(NE) SSEQ30 NO ! $ PSSEQ25 SUK
0x1d4034…1d41c8 Dummy {f00=0x0092, f01=0x0190, f02=»B SSEQ00 NO ! GET NEXT CHARACTER P XIF ( P* 4 $ PSSEQ30 CF A5,ENDBLK END OF BLOCK > P RF(NZ) DIER10 f P* | PENDIO EQU * , P ABL LENDIS PERFORM END I/O AND DISPATCH P EJECT P* P* P* ERROR ROUTINE P*
0x1d41c8…1d435c Dummy {f00=0x0092, f01=0x0190, f02=» ABL(N) LDISP YES, GO TO DISPATCHER P* , P RF RCDI PERFORM RECOVERY 6 P* X PDIER20 EQU * b $ P SLC A1,1 SET "NOT OPERABLE" BIT v P RB ENDIO END I/O P EJECT P* P* R C D I P* > P* RECOVERY ROUTINE: AT P
0x1d435c…1d44f0 Dummy {f00=0x0092, f01=0x4184, f02=»ALSO RESTORED v P* P* PRCDI EQU * * " P LDKL A2,/7FFF SET DEVICE BUSY < P ANS A2,DWTST,A6 b P* z 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 FIRS
0x1d44f0…1d4684 Dummy {f00=0x0092, 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
0x1d4684…1d4818 Dummy {f00=0x0092, f01=0x0190, f02=» R A @ x ' @ 4 , 0 H D ! 2 2 @ r 0 | N D H D ! ! # % ' ) + . - / 1 < ; [ r @ I r { H D ! r ; r r 9
0x1d4818…1d49ac Dummy {f00=0x0092, f01=0x0190, f02=» P, ' 'Z $ t H D ! $ V0 %T 7 = D C Q Z w'Z $ P P R ' Q R )P 0 H D ! =PZ MP QT* P V* 4 P P P8 5 9 ='Z | H D ! I' KQ MW S' UP [W R* P W T8 W2 T W
0x1d49ac…1d4b40 Dummy {f00=0x0092, f01=0x0190, f02=» W T P x ` H D !&B P 7P C'Z UR YT c o sV }P P Pt P( Pp P H D ! W P P W T W W ! % )R 1P ? gT s'Z h H D ! T( T W /Ph 5T K _T* c WL P W < #W@ H D ! X ) <
0x1d4b40…1d4cd4 (1, 393) Opaque[0x194]
0x1d4cd4…1d4e68 # DirEnt {nam=»DRDN01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1250, f03=0x0000}
0x1d4cd4…1d4e68 IdxSect {
0x1d4cd4…1d4e68 f00 = 0x0092 // 0x1d4cd4 @0x0
0x1d4cd4…1d4e68 f01 = 0x0008 // 0x1d4cd6 @0x2
0x1d4cd4…1d4e68 gno = [ // 0x1d4cd8 @0x4
0x1d4cd4…1d4e68 [0x00]: C0x0092.0x2.0
0x1d4cd4…1d4e68 [0x01]: C0x0092.0x3.0
0x1d4cd4…1d4e68 [0x02]: C0x0093.0x0.0
0x1d4cd4…1d4e68 [0x03]: C0x0093.0x1.0
0x1d4cd4…1d4e68 ]
0x1d4cd4…1d4e68 }
0x1d4e68…1d4ffc Dummy {f00=0x0092, f01=0x0190, f02=» 2 P IDENT DRDN01 REL 11.0 81-03-27 870105041100 P : P =2,ASM-ORDER 05 REMOVED B P REL 11.0 81-01-26 d ( P =1 ADAPTED TO NEW INTERFACE (PLC) P REL 10.0 79-12-07 P* P* 8 P********************************************
0x1d4ffc…1d5190 Dummy {f00=0x0092, f01=0x0190, f02=» P* P* P* P* " 8 P*************************************************** , P* h P* r 0 P* THIS DRIVER HANDLES THE NUMERIC DISPLAY | 0 P* ON INDICATOR UNIT PTS 6241 CONNECTED TO & P* THE SYSTEM VIA CHLT OR CHRT.
0x1d5190…1d5324 Dummy {f00=0x0092, f01=0x0190, f02=»ED FROM THE USER PROGRAM. IT . P* MAY ALSO BE USED AS AN ECHO-DEVICE TO $ 2 P* ANY KEYBOARD THAT WORKS UNDER THE GENERAL V P* KEYBOARD DRIVER DRKB04. P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P* & P* A C D N
0x1d5324…1d54b8 Dummy {f00=0x0092, f01=0x0190, f02=» & P* E C H O D N ECHO FUNCTIONS P EJECT DRDN01 2 P* J P* T , P* THE FOLLOWING ORDERS ARE THREATED: ^ P* ( P* ORDER 31: ERASE NUMERIC DISPLAY ( P* 06: WRITE NUMERIC DISPLAY P* P* P*
0x1d54b8…1d564c Dummy {f00=0x0092, f01=0x0190, f02=» A3 = BUFFER INDEX & P* A4 = WORK REGISTER " P* A5 = STACK BASE H $ P* A6 = DWT-ADDRESS n P* A7 = ORDER $ P* A8 = ECB-ADDRESS P* P* P* SYSTEM ADAPTATI
0x1d564c…1d57e0 Dummy {f00=0x0092, f01=0x0190, f02=» USED IN SYSTEMS WHERE THE DISPLAY ( P* FIGURES ONLY AS AN ECHO-DEVICE. * P* V P* ` P EJECT DRDN01 j P* P* P*********** P* ENTRIES * P*********** P* P* ( P ENTRY DNAD ADDRESS TO ADDRESS-BLO
0x1d57e0…1d5974 (1, 394) Dummy {f00=0x0092, f01=0x0190, f02=»****************************************** P* 2 P* < & P EXTRN LENDER I/O REQUEST ERROR =1 F $ P EXTRN OUTPUT SEND CHARACTER =1 p P EXTRN LDISP DISPATCHER =1 0 P EXTRN NDGET8 RELOAD REGISTERS AND RETURN =1 P EXTRN TENDIO END I/O =1
0x1d5974…1d5b08 Dummy {f00=0x0092, f01=0x0190, f02=» BLOCK =1 z " P EXTRN ENDBLK END OF BLOCK =1 P* 8 P* B P**************************** L P* DWT PARAMETERS * p P**************************** P* P* P EXTRN DWTST STATUS " P EXTRN DWTDEV DEVICE STATUS =1
0x1d5b08…1d5c9c Dummy {f00=0x0092, f01=0x018e, f02=» =1 t P EJECT DRDN01 P* $ P* . P************************** 8 P* CONDITIONAL ASSEMBLY * Z P************************** | P* 0 P* BY SETTING X:A = 0 THIS DRIVER HANDLES , P* ONLY ORDER 05 ERASE NUMERIC DISPLAY
0x1d5c9c…1d5e30 Dummy {f00=0x0092, f01=0x0190, f02=» PDVBLEN EQU X:B P* P***************** ( P* CONSTANTS * B P***************** P* v " PCCERR EQU /4 CODE CHECK ERROR P* P EJECT DRDN01 P* P* P************** P* TABLES * P
0x1d5e30…1d5fc4 Dummy {f00=0x0092, f01=0x0190, f02=» P DATA ACDN ACTIVATION PART " P DATA 0 ABORT ROUTINE ADDRESS & P DATA 0 INTERRUPT HANDLER L P DATA RCDN RECOVERY ROUTINE n 2 P DATA ECHODN DEVICE-DEPENDENT ECHO-SUBROUTINE P* P EJECT DRDN01 P* P* A C D N P
0x1d5fc4…1d6158 Dummy {f00=0x0092, f01=0x018e, f02=» ORDER 31: ERASE NUMERIC DISPLAY , P* ORDER 06: WRITE ON NUMERIC DISPLAY ( P* X < P* IF ORDER 31 ERASE CHARACTER /40 IS SENT TO DISPLAY. b @ P* IF ORDER 6 CHARACTERS IN ECB-BUFFER ARE SENT TO DISPLAY P* PACDN EQU * P =2
0x1d6158…1d62ec Dummy {f00=0x0092, f01=0x018e, f02=» P RF(E) ADN015 P* P XIF $ P* 0 $ P ABL LENDER I/O REQUEST ERROR =1 : P* b P EJECT DRDN01 l P* P* ORDER 31 P* PADN010 EQU * P LDK A2,1 BLOCK SIZE =! $ P CF A5,STABLK START OF BLOCK =1
0x1d62ec…1d6480 Dummy {f00=0x0092, f01=0x0190, f02=» p P RF ENDIO P* P* ORDER 06 $ P* : P IFT DNWRIT=1 D P* Z PADN015 EQU * d P LDK A3,0 RESET BUFFER INDEX x $ P LDK A2,BLKSI MAX BLOCK SIZE =1 $ P CF A5,STABLK START OF BLOCK =1 " P RF(NZ) DNERR ERROR END I/O
0x1d6480…1d6614 (1, 395) Dummy {f00=0x0093, f01=0x0190, f02=»1 P* P* CHECK CHARACTER P* 0 P LDR A4,A2 : P SUK A4,/3F BLANK? L P RF(E) ADN025 f P ADK A4,6 KEY > /39? | P RF(P) ADN030 P ADK A4,9 KEY < /30 P RF(N) ADN030 PADN025 EQU * P CF A5,OUTPUT SEND C
0x1d6614…1d67a8 Dummy {f00=0x0093, f01=0x0190, f02=»A8 RETURN CODE P RB ADN020 P* ( P XIF 2 P* > PENDIO EQU * END REQUEST =1 H " P CF A5,ENDBLK END OF BLOCK =1 j P & P CF A15,TENDIO END I/O REQUEST =1 PEXIT EQU * DISPATCH P ABL LDISP DISPATCH =1 P* P E
0x1d67a8…1d693c Dummy {f00=0x0093, f01=0x0190, f02=» ANS A2,DWTST,A6 SET DEVICE BUSY P LDK A2,1 BLOCK SIZE =1 ( $ P CF A5,STABLK START OF BLOCK =1 H " P RF(NZ) DNERR ERROR END I/O =1 p P LDK A2,/40 ERASE CHARACTER P CF A5,OUTPUT SEND ERASE " P RF(NZ) DNERR ERROR END I/O =! " P CF A5,E
0x1d693c…1d6ad0 Dummy {f00=0x0093, f01=0x0190, f02=»ATINO PARTONI x P* P EJECT DRDN01 P* 8 P* E C H O D N B P* Z P* ECHO-ROUTINE d P* ~ PECHODN EQU * P LDR A7,A7 EOR? P RF(N) ECH060 P LDR A3,A2 P LDR A4,A2 SAVE CHARACTER =1 P SUK A3,
0x1d6ad0…1d6c64 Dummy {f00=0x0093, f01=0x018e, f02=»40 EQU * P LDK A2,1 BLOCK SIZE =1 $ P CF A5,STABLK START OF BLOCK =1 0 " P RF(NZ) ECH050 ERROR END ECHO X P LDR A2,A4 GET CHARACTER =1 ~ $ P CF A5,OUTPUT SEND CHARACTER =1 " P RF(NZ) ECH050 ERROR END ECHO " P CF A5,ENDBLK END OF BLO
0x1d6c64…1d6df8 Dummy {f00=0x0093, f01=0x0190, f02=» * P ABL ECHRTN RETURN TO KEYBOARD DRIVER P* 2 P* < P EJECT DRDN01 F P* ^ P* h 8 P**************************************************** r P* P* D N E R R P* P* ERROR ROUTINE P* 8 P**************
0x1d6df8…1d6f8c Dummy {f00=0x0093, f01=0x408e, f02=»DN YES DO RECOVERY =1 0 P LDK A1,1 SET NOT OPERABEL IN RETURN CODE =1 P RB ENDIO END I/O REQUEST =1 R P END v P @ ************************ r P* P* D N E R R P* P* ERROR ROUTINE P* 8 P**************
0x1d6f8c…1d7120 Dummy {f00=0x0093, f01=0x2008, f02=» KSPACE? P RF(E) ECH050 P SUK A3,/10 CLEAR? . P RF(NE) ECH040 NO H P LDK A2,/40 ERASE DISPLAY b & PECH040 CF A5,OUTPUT SEND CHARACTER 0 PECH050 ABL ECHRTN RETURN TO KEYBOARD DRIVER P END P @ O D N P
0x1d7120…1d72b4 (1, 396) Dummy {f00=0x0093, f01=0x0000, f02=»
[…0x7…]
0x1d7dc0…1d7f54 (1, 397) Opaque[0x194]
0x1d7f54…1d80e8 # DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1270, f03=0x0000}
0x1d7f54…1d80e8 IdxSect {
0x1d7f54…1d80e8 f00 = 0x0093 // 0x1d7f54 @0x0
0x1d7f54…1d80e8 f01 = 0x0026 // 0x1d7f56 @0x2
0x1d7f54…1d80e8 gno = [ // 0x1d7f58 @0x4
0x1d7f54…1d80e8 [0x00]: C0x0093.0x2.0
0x1d7f54…1d80e8 [0x01]: C0x0093.0x3.0
0x1d7f54…1d80e8 [0x02]: C0x0094.0x0.0
0x1d7f54…1d80e8 [0x03]: C0x0094.0x1.0
0x1d7f54…1d80e8 [0x04]: C0x0094.0x2.0
0x1d7f54…1d80e8 [0x05]: C0x0094.0x3.0
0x1d7f54…1d80e8 [0x06]: C0x0095.0x0.0
0x1d7f54…1d80e8 [0x07]: C0x0095.0x1.0
0x1d7f54…1d80e8 [0x08]: C0x0095.0x2.0
0x1d7f54…1d80e8 [0x09]: C0x0095.0x3.0
0x1d7f54…1d80e8 [0x0a]: C0x0096.0x0.0
0x1d7f54…1d80e8 [0x0b]: C0x0096.0x1.0
0x1d7f54…1d80e8 [0x0c]: C0x0096.0x2.0
0x1d7f54…1d80e8 [0x0d]: C0x0096.0x3.0
0x1d7f54…1d80e8 [0x0e]: C0x0097.0x0.0
0x1d7f54…1d80e8 [0x0f]: C0x0097.0x1.0
0x1d7f54…1d80e8 [0x10]: C0x0097.0x2.0
0x1d7f54…1d80e8 [0x11]: C0x0097.0x3.0
0x1d7f54…1d80e8 [0x12]: C0x0098.0x0.0
0x1d7f54…1d80e8 ]
0x1d7f54…1d80e8 }
0x1d80e8…1d827c Dummy {f00=0x0093, f01=0x0190, f02=» 2 P IDENT DRDU01 REL 11.0 81-05-18 870105041100 P : ( P =3, CONDITION FOR CPU857 CHANGED B P =3, REL 11.0 81-04-02 n * P =2, A2 AND A3 DISCS IN SAME SYSTEM , P =2, REL 11.0 81-01-26 ,DATA CORRUPTED < P =1, PRR 11.0 80-11-19 ,AT
0x1d827c…1d8410 Dummy {f00=0x0093, f01=0x0190, f02=»TERMINAL SYSTEM PTS P* . P* DRDU01 = DRIVER FOR ONE/TWO DISC UNITS & P* X 0 P* PTS 6875 (X1215) AND/OR PTS 6876 (X1216) b P* P* P* P* P* 6 P************************************************** P*
0x1d8410…1d85a4 Dummy {f00=0x0093, f01=0x0190, f02=»EX CHANNEL P* P* * P* THE FOLLOWING ORDERS ARE TREATED : & P* T P* /00 TEST STATUS ^ P* /01 BASIC READ | P* /05 BASIC WRITE P* /11 PHYSICAL READ P* /15 PHYSICAL WRITE P* /1F FOR
0x1d85a4…1d8738 Dummy {f00=0x0093, f01=0x0190, f02=» P* P* $ P ENTRY DUADR ACTIVATION ADDRESS P ENTRY DUON RECOVERY ROUTINE @ 2 P ENTRY IHDU1 INTERRUPT HANDLER DISC UNIT NO. 1 d 2 P ENTRY IHDU INTERRUPT HANDLER DISC UNIT NO. 1 2 P ENTRY IHDU2 INTERRUPT HANDLER DISC UNIT NO. 2 . P E
0x1d8738…1d88cc Dummy {f00=0x0093, f01=0x0190, f02=»************* P* P* P EXTRN TDISP DISPATCHER * P EXTRN TENDIO END I/O J . P EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK h , P EXTRN NVLCHK CHECK IF NEW VOLUME LOADED 0 P EXTRN VOLGET PUT VOLUME NAME IN DWT SET NVL 6 P EXTRN VOL
0x1d88cc…1d8a60 Dummy {f00=0x0093, f01=0x0190, f02=»S h P EXTRN DISIOE REQUEST ERROR & P EXTRN INIFLG INITIALIZATION FLAG . * P EXTRN PFPOST PWF POST PROCESSING FLAG X * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P EXTRN SETIMP TIMER P EXTRN TTB:MT P EXTRN DWTST STATUS P EXTRN
0x1d8a60…1d8bf4 (1, 398) Dummy {f00=0x0093, f01=0x0190, f02=» EXTRN DWTA5 SAVE AREA A5 & P EXTRN DWTSB1 STACK BASE 1 IN DWT " & P EXTRN DWTSB2 STACK BASE 2 IN DWT L " P EXTRN DWTUEC USER ECB ADDRESS v & P EXTRN DWTORD SAVE AREA FOR ORDER . P EXTRN DWTNVL NEM VOLUME LOADED INDICATORS P EXTRN DWTVOL VO
0x1d8bf4…1d8d88 Dummy {f00=0x0093, f01=0x0190, f02=»XTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE ( ( P EXTRN ECBCW1 ECB 1:ST CONTROL WORD L ( P EXTRN ECBCW2 ECB 2:ND CONTROL WORD x P EJECT DRDU01 P* P* P************************** P*
0x1d8d88…1d8f1c Dummy {f00=0x0093, f01=0x0190, f02=» READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15 P* BY SETTING X:A = 0 8 P* V PX:A EQU 0 ` PRAW EQU X:A r P* P* . P* THIS DRIVER CAN HANDLE TWO DISC UNITS P* IF X:B := 2 P* PX:B EQU 1 PNUNITS E
0x1d8f1c…1d90b0 Dummy {f00=0x0093, f01=0x0190, f02=» PMMUPAG EQU 0 P* P* " 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION , . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. f P* PCPU852 EQU 1 P* P EJECT DRDU01 P* P* 4 P* A PROGRAM VERSION USING THE
0x1d90b0…1d9244 Dummy {f00=0x0093, f01=0x0190, f02=»PROGRAM VERSION FOR FORMAT , P* A2 IS OBTAINED BY SETTING VERSA2 EQU 1 " , P* A3 IS OBTAINED BY SETTING VERSA3 EQU 1 R P* PX:C EQU 1 PVERSA2 EQU X:C P* PX:D EQU 1 PVERSA3 EQU X:D P* P EJECT DRDU01 DRDU01
0x1d9244…1d93d8 Dummy {f00=0x0093, f01=0x0190, f02=»DRESS FIXED DISC NO. 1 z 4 PDAC1 EQU /08 DEVICE ADDRESS CARTRIDGE DISC NO. 1 0 PDAF2 EQU /38 DEVICE ADDRESS FIXED DISC NO. 2 V 4 PDAC2 EQU /18 DEVICE ADDRESS CARTRIDGE DISC NO. 2 $ PWER1 EQU /10 MULTIPLEXOR ADDRESS & PCUADR EQU /08 CONTROL UNIT ADD
0x1d93d8…1d956c Dummy {f00=0x0093, f01=0x0190, f02=»CL EQU 384 PHYSICAL SECTOR LENGTH PQRETRY EQU 4 NO OF RETRIES * PTIME EQU 1000 1 MIN 40 SEC L P* n PDEVIND EQU 10 x P* P EJECT DRDU01 DRDU01 P* P* $ P DATA 0 INDICATES NO MMU BUFFER " P DATA DEVIND DISC DE
0x1d956c…1d9700 Dummy {f00=0x0093, f01=0x0190, f02=» RES 193 P XIF P* P IFT VERSA3=0 & PBUFFER RES 25 < P* R P IFT RAW=1 P RES 103 n P XIF ~ P IFT VERSA2=1 =2 ( PCYLBUF RES 2 CYL ID CHECK BUFFER =2 P XIF =2 P* P EJECT DRDU01 DRDU01
0x1d9700…1d9894 (1, 399) Dummy {f00=0x0094, f01=0x0190, f02=»********* P* P* PDUAD EQU * & " P CM DWTRTY,A6 RETRY INDICATOR 8 0 P CM DWTFBU,A6 RESET DRIVER BUFFER INDICATOR ^ P LDK A1,0 P LC A1,DWTOR,A6 GET INDEX P IFT NUNITS=1 P SUK A1,1 P XIF P IFT NUNITS=2
0x1d9894…1d9a28 Dummy {f00=0x0094, f01=0x0190, f02=» ADR A5,A6 LOAD STACK BASE P IFT MMUPAG=1 " ( P MLR 2,A8 GET 18 BIT BUFFER ADDRESS 8 P SLC A1,4 MOST SIGN. BITS d P ANK A1,3 P SRL A2,1 WORD ADDDRESS & P CF A5,MMULOG GET LOGICAL ADDRESS P XIF P* . P CF A15,NVLCHK C
0x1d9a28…1d9bbc Dummy {f00=0x0094, f01=0x0190, f02=» P EJECT DRDU01 P* P* ( P********************* 2 P* * P P* TEST STATUS * n P* * P********************* P* P* P ORS A1,ECBRC,A8 NVL BIT P LDKL A2,/20
0x1d9bbc…1d9d50 Dummy {f00=0x0094, f01=0x0190, f02=»,VO:NAM READ VOLUME NAME P ADK A1,0 P RF(NZ) TESEND NOT OPERABLE 2 , P LD A2,DWTORD,A6 RESTORE INDEX AND ORDER V P ST A2,DWTOR,A6 P LD A8,DWTECB,A6 ECB ADDRESS 6 P CF A15,VOLNAM TRANSFER VOLUME NAME TO USER BUFFER P LDK A1,0 RE
0x1d9d50…1d9ee4 Dummy {f00=0x0094, f01=0x0190, f02=»DIO z P* P EJECT DRDU01 P* . , P*************************************** 8 , P* * h , P* NEW VOLUME LOADED CHECK * , P* ORDER CODE CHECK * , P*
0x1d9ee4…1da078 Dummy {f00=0x0094, f01=0x0190, f02=» P* A7=ORDER CODE P* $ P* . PDUA:05 EQU * 8 ( P ADK A1,0 CHECK IF NEW VOLUME LOADED L " P ABL(NZ) END:IO PERFORM TENDIO x P SUK A7,1 P RF(Z) DUA:10 BASIC READ P SUK A7,4 P RF(Z) DUA:10 BASIC WRITE P SUK
0x1da078…1da20c Dummy {f00=0x0094, f01=0x018e, f02=»T FORMAT VOLUME P* " PDUERR ABL DISIOE REQUEST ERROR " P* H ( PINCLEN EQU * REQUESTED LENGTH ERROR R P LDKL A1,/8008 ~ P ABL END:20 P EJECT DRDU01 P* P* P************************** P*
0x1da20c…1da3a0 Dummy {f00=0x0094, f01=0x018e, f02=» PFORMAT EQU * 0 P LDK A7,204 NUMBER OF CYLINDERS ON PTS 6875 " P LD A1,ECBCW1,A8 GET DISC TYPE L P IFT VERSA2+VERSA3=2 r P ECR A2,A1 P XIF P ANK A1,1 P RF(NZ) FORM03 PTS 6875 P ADK A7,204 PTS 6876 PFORM03 EQU *
0x1da3a0…1da534 (1, 400) Dummy {f00=0x0094, f01=0x0190, f02=» P RF(NZ) FORM05 A1 OR A2 " P LDKL A1,/C0C1 WRITE 386 BYTES ( P ADKL A3,PHSECL N PFORM05 EQU * f " P ST A1,DWTFBU,A6 SAVE 1ST WER z P XIF P* P IFT VERSA2=1 P IFT VERSA3=0 P LDKL A3,BUFFER P XIF P*
0x1da534…1da6c8 Dummy {f00=0x0094, f01=0x0190, f02=»RIVER BUFFER POINTER P IFT NUNITS=2 P CF A5,INXUNI 2 P CM DWTCYL,A2 CYLINDER ZERO H P XIF l P IFT NUNITS=1 x P CM DWTCYL,A6 CYLINDER ZERO P XIF P* P EJECT DRDU01 P* P* PFORM20 EQU * P L
0x1da6c8…1da85c Dummy {f00=0x0094, f01=0x0190, f02=» v P SLL A1,5 STATUS P RF(NN) FORM40 SEEK ERROR P IFT NUNITS=2 B P CF A5,INXUNI X P LD A1,DWTCYL,A2 n P XIF P IFT NUNITS=1 P LD A1,DWTCYL,A6 P XIF 4 P ST* A1,0,A6 PREPARE DRIVER BUFFER WITH CYL. ID P LDK
0x1da85c…1da9f0 Dummy {f00=0x0094, f01=0x0190, f02=»E v P* P IFT VERSA2+VERSA3=2 P LD A1,DWTFBU,A6 GET 1ST WER 0 P XIF T P* ` P IFT VERSA2=1 j P IFT VERSA3=0 P LDKL A1,/C002 P XIF P* P IFT VERSA2=0 P IFT VERSA3=1 * P LDKL A1,/C0C1 1ST WER WRI
0x1da9f0…1dab84 Dummy {f00=0x0094, f01=0x0190, f02=» WRITE ERROR P IFT NUNITS=2 P CF A5,INXUNI * P IM DWTCYL,A2 @ P XIF V P IFT NUNITS=1 b P IM DWTCYL,A6 x P XIF ( P SUK A7,1 DECREMENT CYLINDER COUNTER P RB(NZ) FORM20 0 P LD A2,ECBCW1,A8 GET FORMAT AND TYPE OF DISC
0x1dab84…1dad18 Dummy {f00=0x0094, f01=0x0190, f02=»ORM50 SEEK ERROR P SUK A4,1 RETRY COUNTER P RB(NZ) FORM30 RETRY 8 PFORM50 EQU * T $ P LDK A1,2 SEEK ERROR RETURN CODE h P ABL END:IO PERFORM END IO P EJECT DRDU01 DRDU01 P* P* 6 P**********************************
0x1dad18…1daeac Dummy {f00=0x0094, f01=0x0190, f02=» 6 P* AND SECTOR NUMBER * 6 P* SAVE BUFFER ADDRESS AND SET SECTOR COUNTER * > 6 P* * x 6 P************************************************* P* P* INPUT: ECB
0x1daeac…1db040 Dummy {f00=0x0094, f01=0x0190, f02=»CBRL,A8 REQUESTED LENGTH P RB(Z) INCLEN 6 P ECR A7,A3 DIVIDE BY 256 TO GET NUMBER OF SECTORS 6 & P ANK A3,/FF SET CONDITION REGISTER p 4 P RB(NZ) INCLEN NOT AN INTEGER NUMBER OF SECTORS : P LD A3,ECBCW2,A8 SECTOR NUMBER WHERE THE BUFFER BEGIN
0x1db040…1db1d4 (1, 401) Dummy {f00=0x0094, f01=0x0190, f02=» P CW A3,DWTSMX,A2 ( P RB(G) INCLEN SECTOR NUMBER OVERFLOW P* H P IFT MMUPAG=0 R P LD A1,ECBBA,A8 h ( P ST A1,DWTUBU,A6 USER BUFFER POINTER P XIF P* P EJECT DRDU01 P* P IFT VERSA2+VERSA3=2 P* P
0x1db1d4…1db368 Dummy {f00=0x0094, f01=0x0190, f02=» * " P***************************** P* @ P* J P LD A2,DWTFOR,A2 T P SUK A2,2 l P RF(Z) RW:800 VERSION A2 ~ P XIF P* P EJECT DRDU01 P* P IFT VERSA3=1 P* * P********************
0x1db368…1db4fc Dummy {f00=0x0094, f01=0x018e, f02=»ECTOR NUMBER BY * ~ * P* DIVIDE BY 3 * * P* * J * P************************************* x P* P IFT CPU852=0 " P LDK A1,0 PREPARE FOR DIVISION . P LD A2,ECBCW2,A8 GET LOGICAL
0x1db4fc…1db690 Dummy {f00=0x0094, f01=0x0190, f02=» P XIF ! P* ! P IFT VERSA3=1 ! P IFT CPU852=1 ! 0 P LD A1,ECBCW2,A8 ! F P LDR A3,A1 SECTOR NUMBER ! ^ P LDK A2,0 ! ~ PDVK:00 EQU * ! P ADR A2,A3 I:= I+I/4 ! P SRL A3,2 I:= I/4 ! P RB(NZ) DVK:00 ! P SRL A2,2 TRUNCATE !
0x1db690…1db824 Dummy {f00=0x0094, f01=0x0190, f02=»3 DIVIDE BY 3 ! P RB(NN) DVK:10 " P ADK A1,3 REST " , , P* A1=REMAINER=LOGICAL SECTOR POSITION " B 2 P* A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC " r P* " P EJECT DRDU01 " P XIF " P* " P IFT VERSA3=1 " P* " * P**********
0x1db824…1db9b8 Dummy {f00=0x0094, f01=0x0190, f02=»SECTOR POSITION * " * P* BRANCH ACCORDING TO SECTOR * # & * P* POSITION * # T * P* * # * P************************************* # P* # , P* INPUT: A1=SECTOR POSITION IN
0x1db9b8…1dbb4c Dummy {f00=0x0094, f01=0x0190, f02=»MBER # n P SUK A1,1 $ P IFT RAW=1 $ * P ST A1,DWTSEP,A6 SAVE SECTOR POSITION $ 0 2 P ST A2,DWTSEI,A6 SAVE 1ST PHYS. SECTOR NUMBER $ ^ P XIF $ P* $ P IFT VERSA3=1 $ P* LOGICAL SECTOR POSITION $ " P RF(N) RW:300 ,XXXX , , $ "
0x1dbb4c…1dbce0 Dummy {f00=0x0094, f01=0x0190, f02=»*********** $ v * P* * % * P* READ/WRITE FROM SECTOR IN * % B * P* POSITION , , xxxx, * % p * P* * % * P************************************* % P* % ( P IMR
0x1dbce0…1dbe74 (1, 402) Dummy {f00=0x0094, f01=0x0190, f02=»SA3=1 % P CF A5,IOROUT & P DATA /0084 & $ P SUK A7,1 & 8 P RF RW:300 & J P* & P EJECT DRDU01 & f P* & | * P************************************* & * P* * & * P* READ/WRITE FROM SECTOR IN *
0x1dbe74…1dc008 Dummy {f00=0x0094, f01=0x0190, f02=»* & l P* ' P* ' PRW:200 EQU * ' P CF A5,IOROUT ' 2 P DATA /0048 ' H P SUK A7,2 NUMBER OF SECTORS ' P RF(N) RW:230 1 SECTOR IN IO ' $ P RF(NZ) RW:260 >2 SECTORS IN IO ' P* , XX,XXXXXX, ' P CF A5,IOROUT ' P DATA /00C
0x1dc008…1dc19c Dummy {f00=0x0094, f01=0x0190, f02=» , XX,XXXXXX, ' P CF A5,IOROUT ( P DATA /80C0 ( . P* ( B P EJECT DRDU01 ( L P* ( b ( P************************************ ( l ( P* * ( ( P* DIRECT READ/WRITE AS LONG * ( ( P* AS POSIBLE
0x1dc19c…1dc330 Dummy {f00=0x0094, f01=0x0190, f02=»QU * ( P SUK A7,3 SECTOR COUNTER ) 0 P RF(NG) RW:500 LESS THAN FOUR SECTORS IN IO ) , P CF A5,IOROUT ) ` P DATA /80C0 ) v P CF A5,IOROUT ) P DATA /80C0 ) P RB RW:300 ) P* ) P EJECT DRDU01 ) P* ) ( P************************
0x1dc330…1dc4c4 Dummy {f00=0x0094, f01=0x0190, f02=» * ) t ( P* * * ( P************************************ * < P* * h P* * r PRW:500 EQU * * | P RF(Z) RW:580 3 SECTORS * P ADK A7,2 * P RF(P) RW:560 2 SECTORS * P RF(N) RW:600 0 SECTORS * PRW:530
0x1dc4c4…1dc658 Dummy {f00=0x0094, f01=0x0190, f02=»OUT * P DATA /80C0 + P CF A5,IOROUT + P DATA /0040 + 6 P RF RW:600 + J PRW:580 EQU * ,XXXXXX,XXXXXX, + P CF A5,IOROUT + P DATA /80C0 + P CF A5,IOROUT + P DATA /00C0 + P* + P EJECT DRDU01 + P* + P* + P
0x1dc658…1dc7ec Dummy {f00=0x0094, f01=0x0190, f02=» + x P* * , P************************ , ( P* , H 0 P* DWTSEI=1:ST PHYSICAL SECTOR NUMBER IN IO , R 8 P* 1ST POS IN DWT=LAST PHYSICAL SECTOR NUMBER IN IO , P* A7=SECTOR COUNTER , P* , P LD A7,DWTOR,A6 , P ANK A
0x1dc7ec…1dc980 Dummy {f00=0x0094, f01=0x018e, f02=»TOR POSITION , t P RF(Z) RW:645 , XX, - P RF(P) RW:640 , XXXX, - 2 P ADK A2,/80 - P PRW:640 EQU * - d P ADK A2,/80 - x PRW:645 EQU * - , P ST A2,ECBEL,A8 PREPARE EFFECTIVE LENGTH - * P LD A1,DWTSEI,A6 RAW FROM THIS SECTOR - " P LDR* A7,A
0x1dc980…1dcb14 (1, 403) Dummy {f00=0x0095, f01=0x018e, f02=» P* . PRW:650 EQU * . P CF A5,IOROUT . " P DATA /40C0 . 8 P IMR A6 NEXT PHYSICAL SECTOR . L P LDKL A1,PHSECL . p " P ADS A1,ECBEL,A8 UPDATE ECBEL . P SUK A7,1 . P RB(NZ) RW:650 . P LD A7,ECBRL,A8 . , P ST A7,ECBEL,A8 CORRECT EF
0x1dcb14…1dcca8 Dummy {f00=0x0095, f01=0x018e, f02=» . | P* / P XIF / P* / P EJECT DRDU01 / ( P* / > P IFT VERSA2=1 / H P* / ^ P* / h & P********************************* / r & P* * / & P* DISC FORMAT A2 * / & P*
0x1dcca8…1dce3c Dummy {f00=0x0095, f01=0x0190, f02=» @ P ST A7,DWTSEI,A6 SAVE NUMBER OF SECTORS FOR READ AFTER WRITE 0 P XIF 0 H P* 0 T P IFT VERSA2=1 0 ^ PRW:850 EQU * 0 t P CF A5,IOROUT 0 " P DATA /A080 INDICATE FORMAT A2 0 P LDKL A1,/100 0 0 P ADS A1,DWTUBU,A6 UPDATE USER BUFFER POINTER 0
0x1dce3c…1dcfd0 Dummy {f00=0x0095, f01=0x0190, f02=» LD A7,DWTOR,A6 GET ORDER 0 P ANK A7,/FF 1 " P SUK A7,/15 1 6 P* 1 J P IFT VERSA3=1 1 T & P RB(NZ) RW:700 NOT PHYSICAL WRITE 1 j P XIF 1 P* 1 P IFT VERSA3=0 1 P IFT VERSA2=1 1 P IFT RAW=1 1 P RF(NZ) RW:905 1 P XIF 1
0x1dcfd0…1dd164 Dummy {f00=0x0095, f01=0x018e, f02=»31 1 P* 2 P EJECT DRDU01 2 P* 2 * P* 2 4 PRW:900 EQU * 2 > P CF A5,IOROUT 2 R P DATA /E080 READ AFTER WRITE 2 h P SUK A7,1 2 P RB(NZ) RW:900 2 P XIF 2 P* 2 P IFT VERSA2+VERSA3=2 2 P RB RW:700 2 P XIF 2 P* 2
0x1dd164…1dd2f8 Dummy {f00=0x0095, f01=0x0190, f02=» P* 3 P EJECT DRDU01 3 P* 3 $ 4 P*********************************************** 3 . 4 P* * 3 f 4 P* IOROUT PERFORM READ OR WRITE AND SEEK * 3 4 P* IF NECESSARY * 3
0x1dd2f8…1dd48c Dummy {f00=0x0095, f01=0x0190, f02=»T : ONE DATA WORD AFTER CF 3 * P* BIT 0 :INDICATES DIRECT IO 4 " 0 P* BIT 1 :INDICATES READ AFTER WRITE 4 P * P* BIT 2 :INDICATES FORMAT A2 4 * P* BIT 8-11:NUMBER OF WORDS/16 4 2 P* BIT12-15:START IN DRIVER BUFF
0x1dd48c…1dd620 Dummy {f00=0x0095, f01=0x0190, f02=»R 4 V & P* DWTRTY INDICATES RETRIES DONE 5 H P* DWTSWD SAVED WORD FROM USER BUFFER WHEN IO NOT VIA DRIVER BUFFER 5 4 P* 5 PIOROUT EQU * 5 * P LDR* A3,A6 GET PHYSICAL SECTOR NUMBER 5 " P SRL A3,5 GET CYLINDER NUMBER 5 P* 5 P IFT VERSA2+
0x1dd620…1dd7b4 (1, 404) Dummy {f00=0x0095, f01=0x0190, f02=» P EJECT DRDU01 6 P* 6 P* 6 $ P IFT VERSA2=1 6 . " P RF(NZ) SEE:05 NOT CYLINDER 0 6 D P CF A5,SEEKZ 6 j P SLL A1,6 6 ~ P RF(N) SEE:20 ERROR 6 P IFT NUNITS=2 6 P CF A5,INXUNI 6 P CM DWTCYL,A2 CYLINDER ZERO 6 P RF VA2BR 6
0x1dd7b4…1dd948 Dummy {f00=0x0095, f01=0x018e, f02=»01 6 P* 7 P* 7 PSEE:05 EQU * 7 P IFT NUNITS=2 7 2 P CF A5,INXUNI 7 H * P CW A3,DWTCYL,A2 COMPARE WITH PRESENT 7 ^ P XIF 7 P IFT NUNITS=1 7 P CW A3,DWTCYL,A6 7 P XIF 7 P* 7 P IFT VERSA2=1 7 P IFT VERSA3=0 7 P
0x1dd948…1ddadc Dummy {f00=0x0095, f01=0x018e, f02=» P* 8 P IFT VERSA2+VERSA3=2 8 $ P RF(NE) SEE:07 NOT SAME CYLINDER 8 * P ADK A4,0 8 R P RF(N) VA2BR FORMAT A2 8 d P RF SEE:90 8 P* 8 P EJECT DRDU01 8 P* 8 P* 8 PSEE:07 EQU * 8 P XIF 8 P* 8 P IFT NUNITS=1 8 ( P
0x1ddadc…1ddc70 Dummy {f00=0x0095, f01=0x0190, f02=» $ P LDK A4,QRETRY NUMBER OF RETRIES 9 PSEE:10 EQU * 9 , P IFT NUNITS=2 9 @ $ P CF A5,INXUNI DOUBLED UNIT INDEX 9 V P XIF 9 ~ P CF A5,SEEK 9 P SLC A1,5 RETURN CODE 9 P RF(N) SEE:30 OK 9 P* 9 P EJECT DRDU01 9 P* 9 P* 9 P
0x1ddc70…1dde04 Dummy {f00=0x0095, f01=0x0190, f02=»ETRY 9 x P SUK A4,1 RETRY COUNTER : P RB(NZ) SEE:10 TRY AGAIN : , PSEE:20 EQU * : L P LDKL A3,/FFFF : ` P IFT NUNITS=2 : v P CF A5,INXUNI : * P ST A3,DWTCYL,A2 DUMMY CYLINDER NUMBER : P XIF : P IFT NUNITS=1 : * P ST A3,DWTCYL,A6 DUMMY
0x1dde04…1ddf98 Dummy {f00=0x0095, f01=0x0190, f02=»* : PSEE:30 EQU * ; P IFT NUNITS=2 ; P CF A5,INXUNI ; 4 P XIF ; J P IFT VERSA2+VERSA3=2 ; V P LD* A1,4,A5 GET DATA WORD ; r P SLL A1,2 ; P RF(NN) SEE:31 FORMAT A3 ; P XIF ; P* ; P IFT VERSA2=1 ; P EJECT DRDU01 ; P
0x1ddf98…1de12c Dummy {f00=0x0095, f01=0x0190, f02=»YLBUF READ TO CYLINDER CHECK BUFFER =2 ; P CF A5,CIO:50 < . P ANK A1,/1F ERROR CHECK < D P RF(NZ) SEE:32 < d $ P LD A3,CYLBUF GET CYLINDER ID =2 < z P IFT NUNITS=2 < P CF A5,INXUNI < , P CW A3,DWTCYL,A2 CHECK IF SAME CYLINDER < P XIF <
0x1de12c…1de2c0 Dummy {f00=0x0095, f01=0x0190, f02=»SEE:15 NOT SAME CYL ID < PVA2BR EQU * = P ABL VA2:00 = 2 P XIF = F P* = R P IFT VERSA3=1 = P EJECT DRDU01 = r P* = P* = P* FORMAT A3 = P* = PSEE:31 EQU * = P IFT NUNITS=2 = P LD A3,DWTCYL,A2 = P XIF =
0x1de2c0…1de454 (1, 405) Dummy {f00=0x0095, f01=0x0190, f02=»UMBER = z $ P ST A3,DWTBSE,A6 SAVE FOR BSELOD > P LDK A3,0 > 6 . P CF A5,SKEW TO READ SECTOR 0 OR 8 ON DISC > H 0 P IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER > z P CF A5,READ > 2 P LD A3,DWTBSE,A6 GET SECTOR NUMBER FOR BSELOD > P ANK A1,/1F ERRO
0x1de454…1de5e8 Dummy {f00=0x0095, f01=0x0190, f02=» > t P SUK A4,1 RETRY COUNTER ? P RB(NZ) SEE:15 RETRY ? ( PSEE:35 EQU * ? D P ABL END:10 ? X P* ? l P IFT VERSA3=1 ? v P* ? P EJECT DRDU01 ? P* ? P* ? PSEE:40 EQU * ? P IFT NUNITS=2 ? P CF A5,INXUNI ? ( P LD A3,D
0x1de5e8…1de77c Dummy {f00=0x0095, f01=0x0190, f02=» XIF ? P IFT VERSA3=1 @ , P CW A3,BUFFER+PHSECL COMPARE WITH CYL ID @ " P RB(NE) SEE:15 RETRY @ R P* @ n P EJECT DRDU01 @ x P* @ P************************* @ P* * @ P* READ AND WRITE * @ P* FORMAT
0x1de77c…1de910 Dummy {f00=0x0095, f01=0x0190, f02=»6 GET ORDER @ P ANK A4,4 A P RF(Z) READ00 READ ORDER A & P LD* A2,4,A5 A F 0 P RF(N) WRIT20 WRITE DIRECT FROM USER BUFFER A Z P SLL A2,1 A P IFT RAW=1 A " P RF(N) READWR READ AFTER WRITE A P XIF A P* A P IFT VERSA3=1 A P CWK
0x1de910…1deaa4 Dummy {f00=0x0095, f01=0x0190, f02=» BEFORE WRITE A ~ P* B P EJECT DRDU01 B P* B 6 P* B @ PWRIT10 EQU * B J P LD* A2,4,A5 GET DATA WORD B ^ P LDR A4,A2 B , P ANK A4,/C0 GET NUMBER OF WORDS TO MOVE B P SLL A4,1 BYTES B * P ANK A2,/F BEG ADRESS IN DRIVER BUFFER B P
0x1deaa4…1dec38 Dummy {f00=0x0095, f01=0x0190, f02=»NUMBER B r P XIF C P IFT VERSA3=1 C P IFT NUNITS=1 C 0 ( P LD A2,DWTCYL,A6 GET CYLINDER NUMBER C F P XIF C r P IFT VERSA3=1 C ~ . P ST A2,BUFFER+PHSECL PUT IN DRIVER BUFFER C 4 P IM DWTFBU,A6 INDICATE WRITE FROM DRIVER BUFFER C * P CF A5,WRI
0x1dec38…1dedcc Dummy {f00=0x0095, f01=0x018e, f02=»G=0 C * P LDKL A2,PHSECL PHYSICAL SECTOR LENGTH D 0 P ADS A2,DWTUBU,A6 UPDATE USER BUFFER POINTER D : . P LD* A4,DWTUBU,A6 GET WORD IN USER BUFFER D n P ST A4,DWTSWD,A6 SAVE WORD D & P IM DWTFSW,A6 INDICATE SAVED WORD D P IFT NUNITS=2 D P CF A5
0x1dedcc…1def60 Dummy {f00=0x0095, f01=0x0190, f02=» P IFT MMUPAG=0 E P IFT NUNITS=1 E P LD A2,DWTCYL,A6 E 0 ( P ST* A2,DWTUBU,A6 PUT IN USER BUFFER E H P XIF E t P* E P IFT VERSA3=1 E P IFT MMUPAG=1 E P IFT NUNITS=2 E P CF A5,INXUNI E ( P LD A4,DWTCYL,A2 GET CYLINDER NUMBER E
0x1def60…1df0f4 (1, 406) Dummy {f00=0x0095, f01=0x0190, f02=» P IFT VERSA3=1 F P IFT MMUPAG=1 F 0 P ML 2,DWTBA1,A6 GET PHYSICAL BUFFER ADDRESS F 0 P RF(Z) WRIT30 SYSTEM AREA F d ( P TS -30,A15 SAVE REGISTERS ON STACK F ( P TL DWTPAG,A6 LOAD PAGE WITH CYL ID F 0 P LD A2,DWTUBU,A6 GET LOGICAL BUFFER POINTE
0x1df0f4…1df288 Dummy {f00=0x0095, f01=0x018e, f02=»F WRIT40 F PWRIT30 EQU * G P SLL A2,1 BYTE ADDRESS G $ * P LD A3,PHSECL,A2 GET WORD TO BE SAVED G B ( P ST A4,PHSECL,A2 CYL ID IN POSITION G p PWRIT40 EQU * G P ST A3,DWTSWD,A6 SAVA WORD G & P IM DWTFSW,A6 INDICATE SAVED WORD G P XIF G P
0x1df288…1df41c Dummy {f00=0x0095, f01=0x018e, f02=» . P CF A5,REWORD RESTORE WORD TO USER BUFFER H P RF SEE:95 H 6 P* H H P EJECT DRDU01 H R P* H h P* H r P IFT RAW=1 H | PREADWR EQU * H " P CF A5,REA:10 READ AFTER WRITE H P RF SEE:97 H P XIF H P* H P IFT VERSA3=1 H PRE
0x1df41c…1df5b0 Dummy {f00=0x0095, f01=0x018e, f02=» ( P CF A5,REA:00 READ TO DRIVER BUFFER I P LD* A1,4,A5 GET DATA WORD I 0 P SLL A1,1 I R P LDR A4,A1 I d 2 P ANKL A4,/180 GET NUMBER OF BYTES TO BE MOVED I v P ANK A1,/18 GET POSITION I P SLL A1,4 I P CF A5,MOVRED I P RF SEE:95 I PRE
0x1df5b0…1df744 Dummy {f00=0x0095, f01=0x0190, f02=» P IFT VERSA3=1 J . P CM DWTFBU,A6 INDICATE READ TO USER BUFFER J & P CF A5,REA:00 READ TO USER BUFFER J L PSEE:95 EQU * J v * P IMR A6 UPDATE PHYSICAL SECTOR POINTER J P XIF J P* J P EJECT DRDU01 J P* J P* J PSEE:96 EQU * J
0x1df744…1df8d8 Dummy {f00=0x0095, f01=0x0190, f02=»MUPAG=1 J P LDK A1,0 K P SRL A2,1 WORD MODE K " 0 P DA DWTBA1,A6 UPDATE PHYSICAL BUFFER ADDRESS K > & P CF A5,MMULOG GET LOGICAL ADDRESS K r P XIF K P* K PSEE:97 EQU * K P LDK A1,2 UPDATE RETURN K P ADS A1,4,A5 K P RTN A5 K
0x1df8d8…1dfa6c Dummy {f00=0x0095, f01=0x0190, f02=» * K $ P* DISC FORMAT A2 * L $ P* * L F $ P******************************** L n P* L P* L PVA2:00 EQU * L P LDK A4,QRETRY RETRIES L PVA2:10 EQU * L P IFT NUNITS=2 L P C
0x1dfa6c…1dfc00 Dummy {f00=0x0095, f01=0x0190, f02=»8080 1ST WER L P IFT RAW=1 M P LD* A2,4,A5 M & P SLL A2,1 M : ( P RF(NN) VA2:20 NOT READ AFTER WRITE M L P LDKL A2,BUFFER M x P RF VA2:35 M PVA2:20 EQU * M P XIF M P* M P IFT VERSA2=1 M P IFT MMUPAG=1 M " P LDKL A1,/0808 1
0x1dfc00…1dfd94 (1, 407) Dummy {f00=0x0096, f01=0x0190, f02=» M ( P RF(NN) VA2:20 NOT READ AFTER WRITE N P LDKL A1,/8080 N 4 P LDKL A2,BUFFER N J P RF VA2:35 N b PVA2:20 EQU * N t P XIF N P* N P IFT VERSA2=1 N P LD A2,DWTOR,A6 GET ORDER N P ANK A2,4 N P RF(Z) VA2:30 READ N P* N
0x1dfd94…1dff28 Dummy {f00=0x0096, f01=0x0190, f02=» SHIFTED N z P XIF O P* O P IFT VERSA2=1 O & " P ADK A3,1 ORDER CODE FOR WRITE O < P* O b P EJECT DRDU01 O l P* O P* O PVA2:30 EQU * O P* O P IFT MMUPAG=0 O P LD A2,DWTUBU,A6 2ND WER O P XIF O P* O P IFT VER
0x1dff28…1e00bc Dummy {f00=0x0096, f01=0x0190, f02=»OSITION O z P XIF P P* P P IFT VERSA2=1 P & PVA2:35 EQU * P < P CF A5,CIO:50 P P P ANK A1,/1F P f P RF(Z) VA2:40 IO ERROR P z P IM DWTRTY,A6 P P SUK A4,1 P P RB(NZ) VA2:10 RETRY P P RF WRI:50 ERROR P P* P P EJECT DR
0x1e00bc…1e0250 Dummy {f00=0x0096, f01=0x018e, f02=»A3 P P CWK A2,31 Q " P RF(NE) VA2:50 NOT CYLINDER 0 Q & P ADK A3,2 CYLINDER 0 TO CYLINDER 1 Q B PVA2:50 EQU * Q l P ANK A2,/1F Q P RF(NZ) VA2:60 SAME CYLINDER Q P ADK A3,1 NEW CYLINDER Q PVA2:60 EQU * Q & P STR A3,A6 PHYSICAL SECTOR NUM
0x1e0250…1e03e4 Dummy {f00=0x0096, f01=0x0190, f02=» Q r P* * R P* SUBROUTINES FOR WRITE * R , P* FROM USER BUFFER: * R P P* FROM DRIVER : * R t P* * R P**************************** R P* R PWRI:00 EQU * R P LDK A4,QR
0x1e03e4…1e0578 Dummy {f00=0x0096, f01=0x0190, f02=»RLACE SECTOR NUMBER R ~ P CF A5,WRITE CIO S P ANK A1,/1F RETURN CODE ? S 4 P CF A5,BSELOD S V P RF(Z) WRI:80 NO RETURN CODE S l P IM DWTRTY,A6 INDICATE RETRY S & P SUK A4,1 DECREMENT RETRY COUNTER S P RB(NZ) WRI:20 S , P CF A5,REWORD RESTOR
0x1e0578…1e070c Dummy {f00=0x0096, f01=0x0190, f02=» S PWRI:80 EQU * T P RTN A5 T P* T , P EJECT DRDU01 T 6 P* T L & P********************************* T V & P* * T & P* SUBROUTINES FOR READ TO * T & P* USER BUFFER : * T & P* DRIVER
0x1e070c…1e08a0 Dummy {f00=0x0096, f01=0x0190, f02=» * T P LD A3,DWTOR,A6 GET INDEX U P ANKL A3,/300 U , P SLL A3,6 IN POSITION U B " P ORR* A3,A6 ADD SECTOR NUMBER U ` $ P CW A3,DWTBSE,A6 ALLREADY READ ? U P RF(E) REA:85 U PREA:10 EQU * U P LDK A4,QRETRY U PREA:20 EQU * U P IFT N
0x1e08a0…1e0a34 (1, 408) Dummy {f00=0x0096, f01=0x018e, f02=»ECTOR U ~ P ANK A1,/F V 0 P CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR V P RF(Z) REA:30 NO RETURN CODE V T PREA:25 EQU * V x P IM DWTRTY,A6 INDICATE RETRY V & P SUK A4,1 DECREMENT RETRY COUNTER V P RB(NZ) REA:20 RETRY V P ABL END:20 V
0x1e0a34…1e0bc8 Dummy {f00=0x0096, f01=0x018e, f02=» V j P IFT MMUPAG=0 W 6 P LD* A3,DWTUBU,A6 GET CYLINDER ID FROM USER BUFFER W P RF REA:50 W X P XIF W j P* W v P IFT VERSA3=1 W P IFT MMUPAG=1 W ( P ML 2,DWTBA1,A6 GET PHYSICAL ADDRESS W P RF(Z) REA:35 SYSTEM AREA W P TS -30,A15 SA
0x1e0bc8…1e0d5c Dummy {f00=0x0096, f01=0x0190, f02=» W r P TL -30,A15 RESET REGISTERS X P RF REA:50 X , PREA:35 EQU * X > " P SLL A2,1 ADDRESS TO BYTE MODE X R P LD A3,PHSECL,A2 GET CYL ID X x P RF REA:50 X P XIF X P* X P IFT VERSA3=1 X PREA:40 EQU * X $ P LD A3,BUFFER+PHSECL GET C
0x1e0d5c…1e0ef0 Dummy {f00=0x0096, f01=0x0190, f02=» IFT NUNITS=1 X P CW A3,DWTCYL,A6 Y P XIF Y . P IFT VERSA3=1 Y : $ P RF(E) REA:90 RIGHT CYLINDER ID Y P P LDK A1,2 SEEK ERROR Y x P* Y P EJECT DRDU01 Y P* Y P* Y P RB REA:25 Y PREA:85 EQU * Y P LD A1,DWTFBU,A6 Y ( P R
0x1e0ef0…1e1084 Dummy {f00=0x0096, f01=0x0190, f02=»,A6 RESET USER BUFFER POINTER FOR DIRECT MOVE Y P XIF Z 6 P IFT VERSA3=1 Z B & P CF A5,MOVRED MOVE TO USER BUFFER Z X PREA:90 EQU * Z P RTN A5 Z P* Z P EJECT DRDU01 Z P* Z P* Z * P************************************* Z * P
0x1e1084…1e1218 Dummy {f00=0x0096, f01=0x0190, f02=» MOVWRI * Z * P* DRIVER BUFFER TO USER BUFFER * [ , * P* MOVRED * [ Z * P* * [ * P************************************* [ P* [ P* A1 BUFFER ADDRESS IN
0x1e1218…1e13ac Dummy {f00=0x0096, f01=0x0190, f02=»UFFER [ P IFT MMUPAG+CPU857=0 2 P LD A2,DWTUBU,A6 PRESENT POINT IN USER BUFFER * P XIF ` P* l P IFT VERSA3=1 v P IFT CPU852+MMUPAG=0 P IFT CPU857=1 , P LD A2,DWTUBU,A6 GET USER BUFFER POINTER 0 P ADS A4,DWTUBU,A6 UPDATE U
0x1e13ac…1e1540 Dummy {f00=0x0096, f01=0x0190, f02=»,DWTBA2,A6 GET PHYSICAL BUFFER ADDRESS P SLL A2,1 BYTE MODE ] . P TS -30,A15 SAVE REGISTERS ] J P TL DWTPAG,A6 ] l ( P LD A2,DWTUBU,A6 GET LOGICAL ADDRESS ] P MVSU A4 ] P XIF ] P* ] P IFT VERSA3=1 ] P RF MOV:00 ] P* ] P E
0x1e1540…1e16d4 (1, 409) Dummy {f00=0x0096, f01=0x018e, f02=»D A1,DWTUBU,A6 PRESENT POINT IN USER BUFFER ] P XIF ^ 4 P* ^ @ P IFT VERSA3=1 ^ J P IFT CPU852+MMUPAG=0 ^ ` P IFT CPU857=1 ^ | , P LD A1,DWTUBU,A6 GET USER BUFFER POINTER ^ 0 P ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER ^ P MVB A4 ^ P X
0x1e16d4…1e1868 Dummy {f00=0x0096, f01=0x018e, f02=» P SLL A1,1 BYTE MODE _ P TS -30,A15 SAVE REGISTERS _ P TL DWTPAG,A6 _ B ( P LD A1,DWTUBU,A6 GET LOGICAL ADDRESS _ X P MVUS A4 _ P XIF _ P* _ P IFT VERSA3=1 _ PMOV:00 EQU * _ P IFT MMUPAG+CPU857=0 _ 0 P ADS A4,DWTUBU,A6 UPDATE
0x1e1868…1e19fc Dummy {f00=0x0096, f01=0x0190, f02=» _ P* ` P IFT VERSA3=1 ` P IFT MMUPAG+CPU857=0 ` ( P IFT CPU852=1 ` D P* ` Z P EJECT DRDU01 ` d P* ` z P* ` PMOV:10 EQU * ` P LDR* A3,A1 ` P STR A3,A2 ` P ADK A1,2 ` P ADK A2,2 ` P SUK A4,2 ` P RB(P) MOV
0x1e19fc…1e1b90 Dummy {f00=0x0096, f01=0x018e, f02=»STACK ` r P LDR A11,A4 NUMBER OF BYTES a P LDR A10,A2 OUTPUT ADDRESS a 2 P LDR A9,A1 INPUT ADDRESS a T $ P LDKL A12,16 BYTES IN EACH LOOP a t PMOV:15 EQU * a P MLR 8,A9 a P MSR 8,A10 a P ADR A10,A12 a P ADR A9,A12 a P SUR A11,A12
0x1e1b90…1e1d24 Dummy {f00=0x0096, f01=0x0190, f02=» P* b P XIF b P* b P IFT VERSA2=1 b $ P EJECT DRDU01 b : P* b P P* b Z P*************************** b d P* * b P* DIV31 * b P* * b P********************
0x1e1d24…1e1eb8 Dummy {f00=0x0096, f01=0x0190, f02=»DIV31 EQU * b P* c P IFT CPU852=1 c . P LD A1,ECBCW2,A8 GET LOGICAL SECTOR NUMBER c 4 P LDR A3,A1 c f P LDK A2,0 c x PDIV:20 EQU * c P ADR A2,A3 I0:=I0+I1 c P SRL A3,5 I1:=I1/32 c P RB(NZ) DIV:20 c P LDR A3,A2 c P ANKL A3,/
0x1e1eb8…1e204c Dummy {f00=0x0096, f01=0x0190, f02=»INDER c ~ PDIV:30 EQU * d P ADK A2,0 d " P RF(Z) DIV:50 CYLINDER 0 d 4 P ADR A1,A2 d T P ADK A1,1 d f P* d x P EJECT DRDU01 d P* d P* d PDIV:50 EQU * d 0 P STR A1,A6 PUT PHYSICAL SECTOR NUMBER IN DWT d P RTN A5 d P* d
0x1e204c…1e21e0 Dummy {f00=0x0096, f01=0x0190, f02=»CTOR NUMBER d z P LDK A1,0 e P DVK 31 e & P ADK A2,0 e 6 P RF(Z) DIV:10 CYLINDER 0 e H P ADK A2,1 e h PDIV:10 EQU * e z & P ADRS A2,A6 PHYSICAL SECTOR NUMBER e P RTN A5 e P XIF e P* e P EJECT DRDU01 e P* e & P**********
0x1e21e0…1e2374 (1, 410) Dummy {f00=0x0096, f01=0x0190, f02=»OR * e | & P* SKEWING * f & P* * f @ & P********************************* f j P* f B P* OUTPUT : A3 CONTAINING INTERLACED AND SKEWED SECTOR NUMBER f P* f PINLACE EQU * f * P LDR*
0x1e2374…1e2508 Dummy {f00=0x0096, f01=0x018e, f02=»FT NUNITS=2 f ( P LD A2,DWTCYL,A2 GET CYLINDER NUMBER g P XIF g @ P IFT NUNITS=1 g L ( P LD A2,DWTCYL,A6 GET CYLINDER NUMBER g b P XIF g P ANK A2,1 g P RF(Z) INLAC5 EVEN CYLINDER g " P ADK A3,8 SKEW FACTOR 180 DEG. g PINLAC5 EQU * g
0x1e2508…1e269c Dummy {f00=0x0096, f01=0x0190, f02=» g P********** h P* INXUNI * h P********** h , P* h > 4 P* OUTPUT A2=DOUBLED UNIT INDEX + DWT ADDRESS h H P* h PINXUNI EQU * h P LC A2,DWTOR,A6 h P ANK A2,2 h P ADR A2,A6 h P RTN A5 h P XIF h P* h P IFT MMU
0x1e269c…1e2830 Dummy {f00=0x0096, f01=0x0190, f02=» * h r . P* MMULOG : GET LOGICAL ADDRESS AND * i . P* PAGE * i F . P* * i x . P****************************************** i P* i P* i PMMULOG EQU * i . P MS
0x1e2830…1e29c4 Dummy {f00=0x0096, f01=0x0190, f02=»XT PAGE i ( P ST A1,DWTPAG+2,A6 PSEUDO MMU TABLE j P SRL A2,3 j < $ P ST A2,DWTUBU,A6 LOGICAL ADDRESS j N P RTN A5 j v P* j P XIF j P* j P EJECT DRDU01 j P* j P IFT VERSA3=1 j P* j P* j " P**********************
0x1e29c4…1e2b58 Dummy {f00=0x0096, f01=0x018e, f02=»T A1=RETURN CODE (AFTER READ) j . P* OUTPUT DWTBSE=DRIVER BUFFER INDICATOR k & P* k X PBSELOD EQU * k b & P LDR* A3,A6 GET READ SECTOR NUMBER k v " PBSEL00 EQU * FROM SEEK VERIFY k P LD A2,DWTFBU,A6 k , P RF(Z) BSEL50 READ/WRITE TO USER BUFFER k
0x1e2b58…1e2cec Dummy {f00=0x0096, f01=0x0190, f02=» k P SLL A2,6 l P ORR A2,A3 l PBSEL40 EQU * l , 4 P ST A2,DWTBSE,A6 UPDATE DRIVER BUFFER INDICATOR l @ PBSEL50 EQU * l x P RTN A5 l P* l P EJECT DRDU01 l P* l P* l , P*************************************** l , P*
0x1e2cec…1e2e80 Dummy {f00=0x0096, f01=0x0190, f02=»* * l , P*************************************** m 0 P* m ` * P* INPUT: DWTFSW=SAVED WORD INDICATOR m j P* DWTSWD=SAVED WORD m , P* DWTUBU=POINTER TO USER BUFFER m P* m PREWORD EQU * m
0x1e2e80…1e3014 (1, 411) Dummy {f00=0x0097, f01=0x018e, f02=»DDRESS m t P RF(Z) REWO20 SYSTEM AREA n P TS -30,A15 SAVE REGISTERS n 0 $ P TL DWTPAG,A6 SET MMU REGISTERS n R 0 P LD A2,DWTUBU,A6 GET LOGICAL BUFFER ADDRESS n z ( P ES A3,PHSECL,A2 RESTORE SAVED WORD n P TL -30,A15 RESET REGISTERS n P RF REWO50
0x1e3014…1e31a8 Dummy {f00=0x0097, f01=0x0190, f02=» P IFT MMUPAG=0 o ( P ST* A3,DWTUBU,A6 RESTORE SAVED WORD o P XIF o F P* o R P IFT VERSA3=1 o ( P CM DWTFSW,A6 INDICATE NO SAVED WORD o r PREWO50 EQU * o P RTN A5 o P* o P XIF o P* o P EJECT DRDU01 DRDU01 o P* o
0x1e31a8…1e333c Dummy {f00=0x0097, f01=0x0190, f02=»********* o P* p P* p PSEEK EQU * p & P IFT NUNITS=2 p 8 $ P LD A3,DWTCYL,A2 CYLINDER NUMBER p N P XIF p v P IFT NUNITS=1 p P LD A3,DWTCYL,A6 p P XIF p P SLL A3,3 p P ORK A3,2 p P RF CIO EXECUTE CIO-START p P* p
0x1e333c…1e34d0 Dummy {f00=0x0097, f01=0x0190, f02=»************************** p & P* * q " & P* CIO: READ AND WRITE * q L & P* * q v & P********************************** q P* q 0 P* INPUT: A3=PHYSICAL SECTOR NUMBER SHIFTED q P
0x1e34d0…1e3664 Dummy {f00=0x0097, f01=0x0190, f02=» P LDKL A1,/C0C1 1ST WER r P ADK A3,1 ORDER CODE r " PCIO:20 EQU * r > P LD A2,DWTFBU,A6 r R , P RF(NZ) CIO:30 IO FROM/TO DRIVER BUFFER r j ( P LD A2,DWTUBU,A6 USER BUFFER POINTER r P SUKL A2,PHSECL r P RF CIO:50 r PCIO:30 EQU * r * P LDK
0x1e3664…1e37f8 Dummy {f00=0x0097, f01=0x0190, f02=»0C18 1ST WER SHIFTED r P RF CIO:20 s PWRITE EQU * s . " P LDKL A1,/0C1C 1ST WER SHIFTED s B P ADK A3,1 ORDER CODE s h PCIO:20 EQU * s P LD A2,DWTFBU,A6 s , P RF(NZ) CIO:30 IO FROM/TO DRIVER BUFFER s * P DA DWTBA1,A6 GET USER BUFFER ADDRESS s
0x1e37f8…1e398c Dummy {f00=0x0097, f01=0x0190, f02=» * s " P SRC A1,4 1ST WER IN POSITION t P XIF t 0 P* t < PCIO:50 EQU * t F P WER A1,WER1 t Z P WER A2,WER1+1 t n P* t P EJECT DRDU01 DRDU01 t P* t P* t PCIO EQU * t P ST A4,DWTA4,A6 SAVE A4 t P LD A2,PFPOST t (
0x1e398c…1e3b20 Dummy {f00=0x0097, f01=0x0190, f02=»(3) END:30 CU ADDRESS UNKNOWN t PCIOAB EQU * u & " P ST A5,DWTA5,A6 A5 u : ( P ST A7,DWTA2,A6 SAVE SECTOR COUNTER u ` P* u & PT:DISP ABL TDISP GO TO DISPATCHER u P* u P EJECT DRDU01 DRDU01 u P* u P* u P**********
0x1e3b20…1e3cb4 (1, 412) Dummy {f00=0x0097, f01=0x0190, f02=» P* v P* v PDUON EQU * v P* v * P IFT CPU852=1 v 4 & P CF A15,SAVE8 SAVE A1-A8 ON STACK v J P XIF v t P* v P IFT CPU852=0 v " P MSR 8,A15 SAVE A1-A8 ON STACK v P XIF v P* v P LDKL A6,DWDU01 v " P LDK A5,DWTSB3 GET S
0x1e3cb4…1e3e48 Dummy {f00=0x0097, f01=0x0190, f02=»TE RECOVERY v | & P LD A1,INIFLG INITIALIZATION FLAG w P RF(NZ) DUON05 NOT POWER UP w > P* w b P EJECT DRDU01 w l P* w P* w P CM DWTOR,A6 1ST UNIT w " P CF A5,SEEKZ TEST IF OPERABLE w P ANK A1,1 w P RF(NZ) DUON26 NOT OPERABLE
0x1e3e48…1e3fdc Dummy {f00=0x0097, f01=0x0190, f02=»OT OPERABLE w P XIF x P* x P EJECT DRDU01 x * P* x B P* x L PDUON05 EQU * x V P CM DWTOR,A6 x j " P CF A5,VO:NAM READ VOLUME NAME x ~ P ANK A1,1 x P RF(Z) DUON07 NO ERROR x $ P CM DWTOR,A6 PREPARE FOR VOLCLR x P LDK A1,12 x
0x1e3fdc…1e4170 Dummy {f00=0x0097, f01=0x0190, f02=»O:NAM x P ANK A1,1 y P RF(Z) DUON08 NO ERROR y P LDK A1,2 OTHER DISC UNIT y > P SC A1,DWTOR,A6 y ` P LDK A1,12 y x P CF A15,VOLCLR y PDUON08 EQU * y P XIF y , P IM DWTST,A6 INDICATE VOLUME NAMES READ y P LDKL A1,-1 y " P ST
0x1e4170…1e4304 Dummy {f00=0x0097, f01=0x018e, f02=»:IO NO REQUEST ON? y P* z $ PDUON10 LD A7,DWTORD,A6 GET ORDER z $ , P ST A7,DWTOR,A6 RESTORE INDEX AND ORDER z L P ANK A7,/3F z | P* z P IFT VERSA3=1 z , P CF A5,REWORD RESTORE WORD IF NECESSARY z P XIF z P* z ( P CM ECBEL,A8 RESET
0x1e4304…1e4498 Dummy {f00=0x0097, f01=0x0190, f02=» z PDUREDY LD A1,TIMER { " P RF(Z) DUON50 NO TIMER ACTIVE { " P* { H P IFT NUNITS=1 { R P CM* TIMER KILL TIMER { h P RF DUON40 { P XIF { P* { P IFT NUNITS=2 { P RB T:DISP TIMER ACTIVE { P XIF { P* { P EJECT DRDU0
0x1e4498…1e462c Dummy {f00=0x0097, f01=0x018e, f02=» ACTIVE { z P LDKL A1,-TIME | P STR A1,A3 RESTART TIMER | & P RB T:DISP | F P* | X P* | b $ PDUON30 CF A15,SETIMP START TIMER | l , P DATA DUON40,TIME TIME OUT ADDRESS, TIME | P RB T:DISP | P* | P* TIME OUT | P* | PDUON40 LDK
0x1e462c…1e47c0 Dummy {f00=0x0097, f01=0x018e, f02=» | z $ P CM DWTSAV,A6 INDICATE RECOVERY } " P LDK A5,DWTSB3 GET STACK BASE } 0 P ADR A5,A6 } V P RB DUON05 } h P* } z P EJECT DRDU01 DRDU01 } P* } P* } P*********************** } P* * } P* INTERRUPT HAN
0x1e47c0…1e4954 (1, 413) Dummy {f00=0x0097, f01=0x0190, f02=» PIHDU2 EQU * ~ $ P ST P,INTSAV SAVE LAST INTERRUPT ~ P* ~ @ 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 A6,DWDU01 DISC U
0x1e4954…1e4ae8 Dummy {f00=0x0097, f01=0x0190, f02=»RETURN CODE ~ v P SLL A1,1 " P RB(N) DUREDY READY INTERRUPT & P SRL A1,1 L P LDR A2,A1 ^ P ANKL A2,/200 SEEK ERROR p P RF(Z) IHDU30 & P ANKL A1,/440F MOVE SEEK ERROR BIT P ORK A1,/02 PIHDU30 EQU * P LD A8,DWTECB,A6
0x1e4ae8…1e4c7c Dummy {f00=0x0097, f01=0x0190, f02=»E l P* * PGET LD A5,DWTA5,A6 RELOAD REGISTERS A5 ( P LD A4,DWTA4,A6 A4 B & P LD A7,DWTA2,A6 GET SECTOR COUNTER n P RTN A5 P* P EJECT DRDU01 DRDU01 P* P* P******************* P*
0x1e4c7c…1e4e10 Dummy {f00=0x0097, f01=0x0190, f02=» * CU ADDRESS UNKNOWN P LDK A1,1 NOT OPERABLE . P ORS A1,DWTST,A6 INDICATE RECOVERY DONE =1 < P RF END:IO n PEND:10 EQU * P* P IFT RAW=1 . P LD* A7,DWTSB3-2,A6 GET 1ST RETURN ADDRESS P SLL A7,1 " P RF(N) END:20 READ A
0x1e4e10…1e4fa4 Dummy {f00=0x0097, f01=0x0190, f02=» CM ECBEL,A8 RESET SECTORS DONE P XIF ( P* 4 PEND:20 EQU * > P LDKL A2,/FF00 R P ANS A2,ECBEL,A8 h ( P LD A2,DWTRTY,A6 GET RETRY INDICATOR " P RF(Z) END:IO NO RETRIES DONE * P ORKL A1,/100 SET BIT 7 IN RETURN CODE P EJECT
0x1e4fa4…1e5138 Dummy {f00=0x0097, f01=0x018e, f02=» EJECT DRDU01 P* P* " PVO:NAM EQU * , P CF A5,SEEKZ SEEK SECTOR 0 @ P ANK A1,1 d 6 P RF(NZ) VO:NA8 SEEK-,THROUGHPUT ERROR,NOT OPERABLE v P CMR A6 SECTOR 0 P IFT NUNITS=2 P CF A5,INXUNI P CM DWTCYL,A2 CYLIND
0x1e5138…1e52cc Dummy {f00=0x0097, f01=0x0190, f02=» ( P IM DWTFBU,A6 READ TO DRIVER BUFFER P CF A5,READ 0 P ANK A1,3 D 0 P CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR V P XIF P* P IFT VERSA3=0 $ P LDKL A1,/8019 READ SECTOR ZERO $ P LDKL A2,BUFFER TO DRIVER BUFFER P C
0x1e52cc…1e5460 Dummy {f00=0x0097, f01=0x018e, f02=» P LDK A3,/F0 FILE CODE P LD A1,DWTSAV,A6 & P RF(Z) VO:NA6 > ( P LDKL A3,/80F0 INDICATE TEST STATUS T PVO:NA6 EQU * 2 P CF A15,VOLGET VOLUMR NAME TO DWT INDICATE NVL P EJECT DRDU01 P* P* PDUNA40 EQU *
0x1e5460…1e55f4 (1, 414) Dummy {f00=0x0097, f01=0x0190, f02=» P RF(NE) DUNA70 NO TOSS 4 P LD A2,BUFFER+40 CHECK IF RELEASE 10 OR GREATER & P CWK A2,/2031 ^ $ P RF(NE) DUNA70 REL LESS THAN 10 t : P LD A2,BUFFER+48 GET FORMAT AND DEVICE TYPE PARAMETER 4 PTRANPA EQU * LABEL FOR TRANSFER PARAMETER ORDE
0x1e55f4…1e5788 Dummy {f00=0x0097, f01=0x0190, f02=»T A3,DWTFOR,A4 SAVE FORMAT PARAMETER ( P LDKL A1,6324 SECTORS ON VERSION A2 , P SUK A3,2 FORMAT ? X P RF(Z) DUNA60 VERSION A2 r P RF(N) DUNA50 VERSION A1 P ADK A1,204 VERSION A3 PDUNA50 EQU * P ADKL A1,9588-6324 PDUNA60 EQU
0x1e5788…1e591c Dummy {f00=0x0097, f01=0x018e, f02=»SMX,A4 MAX SECTOR NO IN DWT 4 P LDK A1,0 RESET RETURN CODE FOR TRANSFER PARAM. $ * P ADK A7,0 CHECK IF TRANSFER PARAMETER P RB(Z) END:20 P* P EJECT DRDU01 P* P* * P LD A4,DWTA4,A6 RESTORE RETRY COUNTER P LC A1
0x1e591c…1e5ab0 Dummy {f00=0x0097, f01=0x0190, f02=» P LDK A1,1 ERROR CODE PVO:NA9 EQU * P RTN A5 4 P* D P* TIMER POINTER N P* h PTIMER DATA 0 TIMER POINTER r P* P EJECT DRDU01 DRDU01 P* P* * P************************************* * P*
0x1e5ab0…1e5c44 Dummy {f00=0x0097, f01=0x0190, f02=»******************************* P* ( P* 2 PDWDU01 EQU * < " P DATA 0 PHYSICAL SECTOR NUMBER P P DATA /8000 DWT STATUS v P DATA 0 ECB ADDRESS P DATA 0 ORDER " P DATA DUADR ACTIVATION ADDRESS P DATA 0 TTAB ADDRESS $ P
0x1e5c44…1e5dd8 Dummy {f00=0x0097, f01=0x018e, f02=» n P DATA ECBDU1 MMU ECB ADDRESS P XIF , P* 8 PDWTFSW EQU *-DWDU01 B P DATA 0 ^ ( P DATA 0,0,0 SAVE AREA FOR REGISTERS n PDWTBSE EQU *-DWDU01 P DATA 0 , PDWTUBU EQU *-DWDU01 USER BUFFER POINTER P DATA 0 PDW
0x1e5dd8…1e5f6c Dummy {f00=0x0097, f01=0x0190, f02=» P DATA 0 P DATA /C000 FIXED 4 P DATA /8000 NEW VOLUME LOADED INDICATOR CARTR. 1 . P DATA /C000 FIXED f 0 P DATA /8000 NEW VOLUME LOADED IND. CARTR. 2 2 P DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST FIXED 6 P DATA /FFFF,/FFFF,/FFFF VOLUME
0x1e5f6c…1e6100 Dummy {f00=0x0097, f01=0x0190, f02=»F VOLUME NAME 2ND CARTRIDGE z P XIF $ P* 0 P EJECT DRDU01 : P* P P* Z PDWTSAV EQU *-DWDU01 d P DATA -1 8 PDWTFBU EQU *-DWDU01 FLAG INDICATING IO TO DRIVER BUF P DATA 0 " PDWTCIO EQU *-DWDU01 CIO-START P CIO A
0x1e6100…1e6294 (1, 415) Dummy {f00=0x0098, f01=0x0190, f02=»DWTCYL EQU *-DWDU01 P DATA /FFFF CYLINDER NUMBER P* @ P IFT NUNITS=2 J P DATA /FFFF 2ND UNIT ` P XIF | P* PDWTSMX EQU *-DWDU01 & P DATA 1 MAX SECTORS ON FIXED DISC $ P DATA 1 MAX SECTORS ON CARTRIDGE P*
0x1e6294…1e6428 Dummy {f00=0x0098, f01=0x018e, f02=»ORMAT ON FIXED " P DATA 0 DISC FORMAT CARTRIDGE P* < P IFT NUNITS=2 F P DATA 0 P DATA 0 l P XIF | P* P DATA 0,0 STACK P DATA 0,0 STACK P DATA 0,0 PDWTSB3 EQU *-DWDU01-2 P* P IFT RAW=1
0x1e6428…1e65bc Dummy {f00=0x0098, f01=0x410a, f02=» PECBDU1 EQU * P DATA 0,0,0,0,0,0,0 PDWTBA1 EQU *-DWDU01 4 P DATA 0 P PDWTBA2 EQU *-DWDU01 ` P DATA 0 | PDWTPAG EQU *-DWDU01 MMU PAGE P DATA 0 P DATA 0 P XIF P* P* P* P END @
0x1e65bc…1e6750 Dummy {f00=0x0098, f01=0x2008, f02=» -DWDU01 2:ND WER INSTRUCTION - P WER A3,WER1+1 . , PDWTNAM EQU *-DWDU01 . B PDWTVOL EQU *-DWDU01 . ^ & P DATA 0,0,0 VOLUME NAME FIXED DISC . z * P DATA 0,0,0 VOLUME NAME CARTRIDGE DISC . PDWTSAV EQU *-DWDU01 . P DATA -1 . P END . @
0x1e6750…1e68e4 Dummy {f00=0x0098, f01=0x018e, f02=»A1 SAVE q " P ANKL A1,/3C00 ISOLATE BIT 2-5 r P SLL A1,2 ROTATE TO BIT 0-3 r 6 2 P ORS A1,SCTEFA+2 CONCATENATE WITH DISPLACEMENT r Z ( P SLC A2,2 PARTITION NR TO BIT 14,15 r P ANK A2,3 ISOLATE IT r P ST A2,SCTEFA AND SAVE r 8 P LD A1,CURAPL+STKE
0x1e68e4…1e6a78 Dummy {f00=0x0098, f01=0x0190, f02=» r f 8 P LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE s , P ADK A1,2 ADVANCE TO FIRST CONTROL BLOCK s D 4 P CM APLMMC,A1 SET REL. START OF APPL. CONF. DATA s t . P ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION s & P ST A1,CURAPL+STKEND CONTROL BLOCK s * P
0x1e6a78…1e6c0c Dummy {f00=0x0098, f01=0x0190, f02=»=2 s P* t & P* PROGRAM LOAD DEVICE = CASSETTE t P* t > PCON:30 EQU * t H P LDKL A1,CON:40-2 t P SUKL A1,COR:48 t v P ADKL A1,/5700 t $ P ST A1,COR:48 MODIFY INSTRUCTION t P LDKL A1,/0100 t P ST A1,COR:38 MODIFY t P LDR A1,A9
0x1e6c0c…1e6da0 Dummy {f00=0x0098, f01=0x0190, f02=» t v , P ST A1,CONSTA+STKCOM START OF CONF. DATA u P CF A14,RDBLK READ ONE BLOCK u 8 " P CF A14,RDBLK READ NEXT BLOCK u P LDR A8,A9 u " P LDR A4,A8 GET START OF BUFFER u P LDR A1,A1 TAPEMARK? u P RF(Z) TST:10 NO! u . P CF A14,CASSIN INIT CONF
0x1e6da0…1e6f34 (1, 416) Opaque[0x194]
0x1e6f34…1e70c8 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1308, f03=0x0000}
0x1e6f34…1e70c8 IdxSect {
0x1e6f34…1e70c8 f00 = 0x0098 // 0x1e6f34 @0x0
0x1e6f34…1e70c8 f01 = 0x0018 // 0x1e6f36 @0x2
0x1e6f34…1e70c8 gno = [ // 0x1e6f38 @0x4
0x1e6f34…1e70c8 [0x00]: C0x0098.0x1.0
0x1e6f34…1e70c8 [0x01]: C0x0098.0x2.0
0x1e6f34…1e70c8 [0x02]: C0x0098.0x3.0
0x1e6f34…1e70c8 [0x03]: C0x0099.0x0.0
0x1e6f34…1e70c8 [0x04]: C0x0099.0x1.0
0x1e6f34…1e70c8 [0x05]: C0x0099.0x2.0
0x1e6f34…1e70c8 [0x06]: C0x0099.0x3.0
0x1e6f34…1e70c8 [0x07]: C0x009a.0x0.0
0x1e6f34…1e70c8 [0x08]: C0x009a.0x1.0
0x1e6f34…1e70c8 [0x09]: C0x009a.0x2.0
0x1e6f34…1e70c8 [0x0a]: C0x009a.0x3.0
0x1e6f34…1e70c8 [0x0b]: C0x009b.0x0.0
0x1e6f34…1e70c8 ]
0x1e6f34…1e70c8 }
0x1e70c8…1e725c Dummy {f00=0x0098, f01=0x0190, f02=» 2 P IDENT DRDY01 REL 11.0 81-01-26 870105041100 P : " P =7,ADAPTED TO NEW INTERFACE B P REL 10.1 79-11-07 h 4 P =6,CORRECTION OF SPECIAL CHARTACTER HANDLING P REL 10.1 79-10-19 P =5,ABORT ROUTINE P REL 10.1 79-10-15
0x1e725c…1e73f0 Dummy {f00=0x0098, f01=0x018e, f02=» | , P =2,ERASE ONLY TO LAST POS. OF SCREEN P PRR 9.1 79-01-31 8 . P =1 DRIVER ADAPTAD TO HANDLE PTS 6385 T P PRR 9.1 79-01-12 P P* 6 P************************************************** P* $ P* PHILIPS TERM
0x1e73f0…1e7584 Dummy {f00=0x0098, f01=0x0190, f02=» P* 6 P************************************************** P* H P* R : P* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS @ P* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 P* AND PTS 6386 6 P* THE DISPLAY
0x1e7584…1e7718 Dummy {f00=0x0098, f01=0x0190, f02=»NS Z : P* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN : P* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE H ( P* GENERAL KEYBOARD DRIVER DRKB01. P* P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P* & P*
0x1e7718…1e78ac Dummy {f00=0x0098, f01=0x0190, f02=»E n P* & P* E C H O D Y ECHO FUNCTIONS P* > P H P P P X P* ` * P* THE FOLLOWING ORDERS ARE TREATED: j P* P* ORDER 00: TEST STATUS P* 05: BASIC WRITE " P* 06: STANDARD WRITE
0x1e78ac…1e7a40 Dummy {f00=0x0098, f01=0x0190, f02=»MAL REGISTER USAGE P* " P* REGISTER A1 = RETURN CODE $ ( P* A2 = OUTPUT CHARACTER J $ P* A3 = BUFFER INDEX v $ P* A4 = WORK REGISTER " P* A5 = STACK BASE " P* A6 = DWT-ADDRE
0x1e7a40…1e7bd4 (1, 417) Dummy {f00=0x0098, f01=0x0190, f02=»ADAPTATION P* < P* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. P* * P* --------------------------------- f P* BIT: 10 11 P* -------------- " P* 0 0 PTS 6344 * P* 0 1 PTS
0x1e7bd4…1e7d68 Dummy {f00=0x0098, f01=0x0190, f02=»OF CONDITIONAL ASSEMBLY THE DRIVER: 4 P* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT , , P* -IS ADAPTED TO CONTROL ONLY PTS 6344 d : P* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 8 P* -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER
0x1e7d68…1e7efc Dummy {f00=0x0098, f01=0x0190, f02=»* P* P* P* P*********** ( P* ENTRIES * < P*********** P P* d P* n P* x ( P ENTRY DYAD ADDRESS TO ADDRESSBLOCK 0 P ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE P* P* P* P* .
0x1e7efc…1e8090 Dummy {f00=0x0098, f01=0x0190, f02=»******* n P* P* & P EXTRN LENDER I/O REQUEST ERROR =7 $ . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER N P EXTRN LDISP DISPATCHER =7 . P EXTRN NDGET8 RELOAD REGISTERS AND RETURN P EXTRN TENDIO END I/O 0 P EXTRN ECHRTN RETURN T
0x1e8090…1e8224 Dummy {f00=0x0098, f01=0x0190, f02=»DEFINES END OF BLOCK =7 P EJECT P* . P************************ 8 P* DWT PARAMETERS * X P************************ x P* P EXTRN DWTST STATUS P EXTRN DWTOR ORDER P EXTRN DWTDEV P* P EJECT P**
0x1e8224…1e83b8 Dummy {f00=0x0098, f01=0x018e, f02=»RESS t " PULSTAR EQU /12 UNDERLINE START " PULSTOP EQU /13 UNDERLINE STOP 2 & PLISTAR EQU /1E LOW INTENSITY START X & PLISTOP EQU /1F LOW INTENSITY STOP PBACKSP EQU /08 BACKSPACE PLF EQU /0A LINE FEED PHOME EQU /0B CURSOR HOME ( P
0x1e83b8…1e854c Dummy {f00=0x0098, f01=0x0190, f02=» z PSTX EQU /82 START OF MESSAGE PETB EQU /97 END OF MESSAGE , PETX EQU /03 LAST DUMMY N . PRETURN EQU /12 RETURN TO ALPHANUMERIC MODE l * PESCAPE EQU /11 ESCAPE TO GRAPHIC MODE " PPOINT EQU /2E POINT CHARACTER 2 PEQU EQU 6 THRESHOLD FO
0x1e854c…1e86e0 Dummy {f00=0x0098, f01=0x0190, f02=»** ~ P* RETURN CODES * P******************** & P* B " PCCERR EQU /4 CODE CHECK ERROR L ( POPERR EQU /1 NOT OPERABLE, POWER OFF r P* P EJECT P* P* . P***************************************** . P* CONDITI
0x1e86e0…1e8874 (1, 418) Dummy {f00=0x0098, f01=0x0190, f02=»VER CAN HANDLE GRAFIC MODE FOR PTS 6351 t P* 0 PX:A EQU 0 : PGRAFIC EQU X:A L P* b < P* BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344 l P* PX:B EQU 1 PWHATDY EQU X:B P* P* 8 P* BY SETTING X:C TO
0x1e8874…1e8a08 Dummy {f00=0x0098, f01=0x0190, f02=» 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. @ 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 | P* PX:D EQU 0 PEORECH EQU X:D P* 0 P* BY SETTING THE C
0x1e8a08…1e8b9c Dummy {f00=0x0098, f01=0x0190, f02=»QU X:E P EJECT P* 2 P* BY SETTING X:F = 1, CURSOR WILL BE STEADY & P* INSTEAD OF BLINKING PX:F EQU 0 | PSTEADY EQU X:F P* < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG = 1
0x1e8b9c…1e8d30 Dummy {f00=0x0098, f01=0x0190, f02=» SETTING CPU852 EQU 0. | P* PCPU852 EQU 1 ( P* < 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE F < P* TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS. P P P* CODE COUNTRY P P* 0 GB/NL/B P* 1
0x1e8d30…1e8ec4 Dummy {f00=0x0098, f01=0x0190, f02=» PX:G EQU 0 PCOUNTRY EQU X:G P* . & P* MEMORY MANAGEMENT BUFFER SIZE 8 P* b P* l PX:H EQU 64 v PDVBLEN EQU X:H P* P EJECT P* P* $ P******************************** $ P* DWT-DISPLACEMENT
0x1e8ec4…1e9058 Dummy {f00=0x0098, f01=0x0190, f02=» P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF 2 P* > P IFT MMUPAG=1 H PSTART EQU DWTDRD+4 ^ P XIF x P* & PDWTAP EQU /2 HEAD POSITION POINTER PDWTPOS EQU /7 POSITIONS PDWTLIN EQU /6 LINES PDWTBIN EQU /8 BUFFER
0x1e9058…1e91ec Dummy {f00=0x0098, f01=0x018e, f02=»CT P* P* P********** P* TABLES * 0 P********** B P* T P* ^ P DATA DVBLEN BUFFER LENGTH h P DATA 2 DEVICE INDEX PDYAD EQU * ADDRESS BLOCK P DATA ACDY ACTIVATION DRIVER $ P DATA ABDY ABORT ROUTINE ADDRE
0x1e91ec…1e9380 Dummy {f00=0x0098, f01=0x0190, f02=» P* , PTABSPE EQU * TABLE OF SPECIAL CHARACTERS P DATA /0712,/131E,/1F14 B P EJECT b P* p P* A C D Y z P* * P* ACDY = ACTIVATION DRIVER DISPLAY P* H P* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND
0x1e9380…1e9514 (1, 419) Dummy {f00=0x0099, f01=0x0190, f02=»SENT TO DISPLAY f 6 P* FROM ECB-BUFFER WITHOUT ANY CHECK. P* R F P* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. P* L P* IF A PRED
0x1e9514…1e96a8 Dummy {f00=0x0099, f01=0x0190, f02=» OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386> P* H P IFT GRAFIC=1 R B P* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED h @ P* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER * P* IS SENT
0x1e96a8…1e983c Dummy {f00=0x0099, f01=0x0190, f02=» SENT TO THE POSITION GIVEN t > P* IN CONTROL WORD. NO INFORMATION ON DISPLAY $ @ P* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) f P* IS EXECUTED. P* < P* ORDER 31: ERASE. THE DISPLAY IS ERASED ON T
0x1e983c…1e99d0 Dummy {f00=0x0099, f01=0x0190, f02=»TROL X @ P* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS : P* IN THE CURSOR POSITION. THE CURSOR RE- P * P* MAINS IN THAT POSITION. PACDY EQU * P LDK A3,0 START BUFFER INDEX P LDK A4,0 COUNTER
0x1e99d0…1e9b64 Dummy {f00=0x0099, f01=0x018e, f02=»FT WHATDY=0 & P LD A1,DWTDEV,A6 GET PARAMETER =7 & P ANKL A1,/1000 GRAPHIC DISPLAY =7 > P RF(E) ACDY02 NO h P IFT GRAFIC=1 P CWK A7,7 ORDER ' ? P ABL(E) ADY500 P XIF P IFT WHATDY=0 $ P CF A5,STABLK START OF BLOCK =
0x1e9b64…1e9cf8 Dummy {f00=0x0099, f01=0x0190, f02=» P* PACDY02 EQU * P CWK A7,5 ORDER 5 & P RF(E) ACDY90 YES @ P CWK A7,6 ORDER 6 ??? =7 Z P RF(E) ACDY20 YES z P CWK A7,/B ORDER B(!!) =7 P ABL(E) ADY200 YES P CWK A7,/31 ORDER /31 ? =7 P ABL(E) ADY160 YES
0x1e9cf8…1e9e8c Dummy {f00=0x0099, f01=0x0190, f02=»USER IN RIGHT BYTE IN BUFFER v P* ARE CARRIED OUT. $ 0 P* /2B NO MOVING OF PRINT HEAD B " P* /30 CR, LF, LF v B P* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION P* OTHER VALUE CR, LF P*
0x1e9e8c…1ea020 Dummy {f00=0x0099, f01=0x0190, f02=»GET BUFFER ADDRESS & P LC A2,1,A2 GET CONTROL CHARACTER P ANK A2,/FF D PACDY25 EQU * X * P SUK A2,/2B POSITIONING BEFORE WRITE ? l P RF(E) ACDY90 P SUK A2,6 /31 ? P RF(E) ACDY65 P LDK A4,1 INDICATE LINE FEED " P ADK A
0x1ea020…1ea1b4 (1, 420) Dummy {f00=0x0099, f01=0x0190, f02=»AGE RETURN z PACDY35 LDK A1,1 8 P SC A1,DWTAP+DWTDEV+1,A6 RESET HEAD POSITION COUNTER * 8 P* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS f P* PACDY50 EQU * P CF A5,OUTPUT SEND CHARACTER PACDY52 SUK A4,1 & P RF(N) ACDY9
0x1ea1b4…1ea348 Dummy {f00=0x0099, f01=0x0190, f02=»L A2,/100 INCREMENT LINE COUNTER P ADS A2,DWTAP+DWTDEV,A6 ( & PACDY55 LDK A2,LF LINE FEED TO SEND H P RB ACDY50 r ( PACDY65 LDK A2,CLEHOM CLEAR AND HOME P LDK A1,1 . P SC A1,DWTAP+DWTDEV,A6 RESET LINE COUNTER P RB ACDY35 P E
0x1ea348…1ea4dc Dummy {f00=0x0099, f01=0x0190, f02=»TDY=0 & P LD A4,DWTDEV,A6 GET PARAMETER =7 ( P ANKL A4,/1000 NOT 6344 OR 67386 =7 8 $ P RF(NZ) ACDY75 NOT 6344 OR 6386 d P XIF P LD A4,2,A8 2 P ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER $ P CCR A2,A4 CHAR EQU TO CURRENT?
0x1ea4dc…1ea670 Dummy {f00=0x0099, f01=0x0190, f02=»1 ( P LD A1,2,A8 GET BUFFER ADDRESS (BA) ! ( P LD A2,4,A8 GET REQUESTED LENGTH(RL) ! 6 $ P ADR A1,A2 GET ADD END OF BUFFER ! b PSKIP05 CWK A2,2 ! P RF(NG) SKIP30 RL < 3 ! P SUK A1,1 DECR. BA ! P LCR A4,A1 GET CHAR ! P CCK A4,/2020 SPAC
0x1ea670…1ea804 Dummy {f00=0x0099, f01=0x0190, f02=» RL < 5 ! P LC A4,-2,A1 GET CHAR " $ P CCK A4,/1111 TABULATION CHAR ? " . P RF(NE) SKIP25 NO! " V P SUK A1,2 DECR BA " p P SUK A2,2 DECR RL " P RB SKIP07 GET NEXT " ( PSKIP25 LCR A4,A1 GET CHARACTER AGAIN " P ANK A4,/FF " " P SUK A4,
0x1ea804…1ea998 Dummy {f00=0x0099, f01=0x0190, f02=»LOW INT. STOP? " P RB(Z) SKIP07 YES! # P* # 0 " PSKIP30 ST A2,4,A8 STORE NEW RL # : P XIF # ` PACDY90 LDK A4,0 # l 6 PADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER # P LDR A1,A1 LAST CHARACTER? # P ABL(NP) ADY405 # P CWK A7,5 ORDER
0x1ea998…1eab2c Dummy {f00=0x0099, f01=0x0190, f02=»E) ADY125 # P SUK A1,1 NO! $ " P STR A7,A5 SAVE A7 ON STACK =7 $ ( " P LDR* A7,A6 CHANNEL PARAMETER $ N P ANK A7,/30 GRAFIC DISPLAY ? $ t P RF(E) ADY110 NO $ P LDK A1,5 SET TABLE PONTER $ PADY110 EQU * $ $ P LDR* A7,A5 GET A7 FROM STACK =7 $
0x1eab2c…1eacc0 Dummy {f00=0x0099, f01=0x0190, f02=» A4,/80 $ PADY120 EQU * % 0 P ORS A4,DWTDEV,A6 SET LOW INTENSITY MODE =7 % $ P LDK A4,0 % X P RB ACDY50 % j $ PADY122 CCK A2,/1212 UNDERLINE ? % | P RF(NE) ADY125 % " P LDK A4,/40 SET UNDERLINE MODE % P RB ADY120 % & PADY125 CCK A2,/1414 FA
0x1eacc0…1eae54 (1, 421) Dummy {f00=0x0099, f01=0x0190, f02=» % P LDR A2,A4 & P LD A4,4,A8 REQ LENGTH & P SUR A4,A3 NUMBER OF CHARS & 8 P RF(Z) ADY127 NONE & Z P* & t P IFT WHATDY=0 & ~ & P LDR* A7,A6 GET CHANNEL PARAMETER & P ANK A7,/10 & 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? & P
0x1eae54…1eafe8 Dummy {f00=0x0099, f01=0x0190, f02=» & x P LD A3,4,A8 REQ LENGTH ' P ST A3,6,A8 EFF LENGTH ' & P ABL ADY405 ' D PADY128 EQU * ' X P SUK A1,1 GET NEXT ' l P RB(NN) ADY110 NOT AT END ' P LDR A1,A2 MOVE CHARACTER ' P SUK A1,/11 TAB CHAR? (11) ' P RF(E) ADY140 ' P SUK
0x1eafe8…1eb17c Dummy {f00=0x0099, f01=0x0190, f02=»CHA=0 ' 6 P SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F ( & P TO CHARACTER BETWEEN /40 TO /5F ( H P XIF ( r P RB ACDY70 ( ~ P* ( P* ( P IFT WHATDY=0 ( POTHER EQU * ( P************************ ( P* A3 = INDEX ( P* A1 =
0x1eb17c…1eb310 Dummy {f00=0x0099, f01=0x0190, f02=»N ( n P ANK A2,/FF ) $ P ADR A2,A4 ADD LENGTH OF REQUEST ) , P LD A3,DWTPOS+DWTDEV,A6 GET MAX-POS AND ) F P ANK A3,/FF ) v P ST A4,10,A8 SAVE LENGTH ) P SUR A3,A2 COMPARE ) P RF(NN) OT030 LENGTH OK ) P ADR A4,A3 ) P ST A4,10,A8 SAVE
0x1eb310…1eb4a4 Dummy {f00=0x0099, f01=0x018e, f02=»R A2,A3 ) $ P CF A5,OUTPUT SENT CHAR (IN A2) * P SUK A4,1 DECREMENT COUNTER * 8 P RB(P) OT010 * P LD A4,10,A8 GET ACT. LENGTH * p POT040 LDK A2,BACKSP * P CF A5,OUTPUT SENDBACKSPACE * P SUK A4,1 DECREMENT LENGTH * P RB(P) OT040 *
0x1eb4a4…1eb638 Dummy {f00=0x0099, f01=0x0190, f02=» P ORS A1,8,A8 RETURN CODE + P RB ADY100 + $ P EJECT + 6 P* + D P* TABULATION + N P* + f PADY140 EQU * + p , P CF A15,GETCHR GET FIRST ASCII CHARACTER + P LDR A4,A2 + . P CF A15,GETCHR GET SECOND ASCII CHARACTER + P ANK A2,/F +
0x1eb638…1eb7cc Dummy {f00=0x0099, f01=0x0190, f02=»Y144 LC A4,DWTAP+DWTDEV+1,A6 + . P SUR A2,A4 SUBTRACT HEAD POSITION POINTER , $ P LC A4,DWTBC+DWTDEV,A6 , V , P SUR A2,A4 AND REQUESTS POSITION COUNTER , t & P TO GET NUMBER OF SPACES TO SEND , P ABL(NP) ADY100 , P LDR A4,A2 , & PADY145 LDK A2,CU
0x1eb7cc…1eb960 Dummy {f00=0x0099, f01=0x0190, f02=»ADY145 NO , P ABL ADY100 - P EJECT - & P* - 4 P* ERASE ORDER /31 - > P* - 2 PADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE - f P IFT WHATDY=0 - " P LDR* A1,A6 CHANNEL PARAMETER - P ANK A1,/10 GRAFIC DISPLAY? - P RF(NE) ADY1
0x1eb960…1ebaf4 (1, 422) Dummy {f00=0x0099, f01=0x0190, f02=» * - P ABL ADY410 END OF REQUEST . P IFT WHATDY=0 . , PADY166 EQU * YES =2 . B & P CF A5,ERA GET LENGTH TO ERASE =2 . ^ P* . $ PADY170 SUK A4,1 DECR NO OF CHAR . P RF(N) ADY180 ERASE READY . P LDK A2,/20 SPACE . P CF A5,OUTPUT SEND
0x1ebaf4…1ebc88 Dummy {f00=0x0099, f01=0x0190, f02=») ADY186 NO =4 . P SUK A4,1 ADJUST LENGTH =4 / PADY186 EQU * / 8 P SUK A4,1 DECREMENT =2 / L , P RB(N) ADY165 CURSOR IN ORIGIN POSITION / j P LDK A2,BACKSP CURSOR LEFT / P CF A5,OUTPUT SEND IT / P RB ADY186 AGAIN / P XIF / P EJECT /
0x1ebc88…1ebe1c Dummy {f00=0x0099, f01=0x0190, f02=»ANNEL PARAMETER / P ANK A1,/10 GRAFIC DISPLAY? 0 P RF(NE) ADY205 YES 0 < 2 P* IF VIDEO (6344) SET CURSOR ADDRESS DIRECT 0 V P XIF 0 * P LD A4,10,A8 GET REQUESTED CURSOR POS 0 4 P ST A4,DWTAP+DWTDEV,A6 UPDATE LINE & POS COUNTER 0 P CF A5,CUR
0x1ebe1c…1ebfb0 Dummy {f00=0x0099, f01=0x0190, f02=»,DWTLIN+DWTDEV,A6 OUTSIDE SCREEN? 0 P RF(NG) ADY207 NO! 1 * : P LC A4,DWTLIN+DWTDEV,A6 YES! SET CURSOR AT END OF LINE 1 D PADY207 EQU * 1 * P LC A3,DWTAP+DWTDEV,A6 GET ACTUAL LINE 1 PADY210 CWR A4,A3 1 . P RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL 1
0x1ebfb0…1ec144 Dummy {f00=0x0099, f01=0x018e, f02=» 1 x P LDR A4,A4 REQUESTED LINE 2 " P RB(NZ) ADY210 NOT EQUAL ZERO 2 * P LDK A4,1 2 P P RF ADY300 2 b PADY250 LDK A2,HOME HOME 2 t & P LDK A3,1 RESET ACTUAL LINE NUMBER 2 * P ST A3,DWTAP+DWTDEV,A6 RESET POSITION 2 P RB ADY230 2 P* 2 P
0x1ec144…1ec2d8 Dummy {f00=0x0099, f01=0x0190, f02=» 2 j , P CC A4,DWTPOS+DWTDEV,A6 OUTSIDE SCREEN? 3 P RF(NG) ADY303 NO! 3 8 * P LC A4,DWTPOS+DWTDEV,A6 SET LAST LINE 3 R PADY303 EQU * 3 P CWK A4,1 FIRST POSITION ? 3 P RF(NE) ADY305 NO 3 P CWR A4,A3 FIRST LINE ? 3 P RF(NE) ADY305 NO 3
0x1ec2d8…1ec46c Dummy {f00=0x0099, f01=0x0190, f02=»AP+DWTDEV+1,A6 GET ACTUAL POSITION 3 $ P CC A3,DWTPOS+DWTDEV,A6 MAX-POS? 4 * P RF(NG) ADY310 NO! 4 R P SUK A3,1 4 l * PADY310 CWR A4,A3 FORWARDS OR BACKWARDS 4 ~ P RF(E) ADY370 POSITION FOUND 4 P RF(N) ADY340 BACK 4 P LDK A2,CURRIG CURSOR RIGHT 4
0x1ec46c…1ec600 Dummy {f00=0x0099, f01=0x0190, f02=»POS. 4 j , P CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY 5 P RF(L) ADY345 BACKSPACE WAY 5 < P LDK A2,CR CARRIAGE RETURN 5 ` & P LDK A3,1 INDICATE FIRST POSITION 5 P RB ADY330 5 " PADY345 LDK A2,BACKSP BACKSPACE 5 P CF A5,OUTPUT SEND 5 P SUK A3,1
0x1ec600…1ec794 (1, 423) Dummy {f00=0x009a, f01=0x018e, f02=» A3,2 START BUFFER INDEX 5 P ABL ACDY90 6 P IFT WHATDY=0 6 4 P* 6 J & PADY400 LDK A2,/22 START CHARACTER 6 T P CF A5,OUTPUT 6 ~ P* 6 P XIF 6 P* 6 P EJECT 6 P* 6 P* 6 8 P* SEND LAST DUMMY, SET CURSOR POSITION IN CONTR
0x1ec794…1ec928 Dummy {f00=0x009a, f01=0x0190, f02=» " P ANKL A1,/1000 6344 (!!!!!) =7 7 P RF(NE) ADY407 NO 7 * & P LD A1,DWTDEV,A6 GET PARAMETER =7 7 D P LDR A4,A1 7 n P ANK A1,/40 UNDERLINE MODE ? 7 P RF(E) ADY406 NO 7 " P LDK A2,ULSTOP UNDERLINE STOP 7 P CF A5,OUTPUT 7 * PADY406 ANK A4,/8
0x1ec928…1ecabc Dummy {f00=0x009a, f01=0x0190, f02=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER 7 PADY410 LDK A2,ETX LAST DUMMY 8 4 P CF A5,OUTPUT SEND DUMMY 8 X P LDR A7,A7 TEST STATUS =5 8 x P RF(NZ) ADY415 NO =5 8 2 P LD A4,DWTAP+DWTDEV,A6 GET CURSOR POSITION =5 8 , P ST A4,10,A8 SAVE CURSOR POS
0x1ecabc…1ecc50 Dummy {f00=0x009a, f01=0x0190, f02=»A4,DWTAP+DWTDEV,A6 8 PADY420 EQU * 9 PENDIO EQU * END I/O 9 . " P CF A5,ENDBLK END OF BLOCK =7 9 J P CF A15,TENDIO END I/O 9 p PEXIT EQU * 9 " P ABL LDISP GO TO DISPATCHER =7 9 P* 9 P IFT GRAFIC=1 9 P* 9 P EJECT 9 P* 9 P
0x1ecc50…1ecde4 Dummy {f00=0x009a, f01=0x018e, f02=»TCHR GET CHARACTER 9 P LDR A1,A1 BUFFER EMPTY : P RB(E) ADY400 : : P LDR A4,A2 : P & P CF A15,GETCHR GET NEXT CHARACTER : b P LDR A1,A4 : P ANK A4,/80 ADDRESS OR DATA : P RF(E) ADY530 DATA MESSAGE : P* : P* ADDRESS MESSAGE :
0x1ecde4…1ecf78 Dummy {f00=0x009a, f01=0x0190, f02=» : P ORR A4,A1 ; P ANK A2,/F ; P ANK A4,/7F ; , P ORK A2,/20 ; @ , PADY515 CF A5,OUTPUT SEND FIRST CHARACTER ; T $ P LDR A2,A4 GET SECOND CHARACTER ; ( P CF A5,OUTPUT SEND SECOND CHARACTER ; P RB ADY510 ; P EJECT ; P* ; P* D
0x1ecf78…1ed10c Dummy {f00=0x009a, f01=0x0190, f02=» A4,A2 ; P SLL A2,5 < P ORR A1,A2 < P LDK A7,10 < 2 P LDK A2,0 < D PADY540 SLL A1,1 < V P RF(NN) ADY550 < n P ORKL A2,/200 < PADY550 SUK A7,1 < P RF(E) ADY560 < P SRL A2,1 < P RB ADY540 < PADY560 LDR A4,A2 < P SRL
0x1ed10c…1ed2a0 Dummy {f00=0x009a, f01=0x0190, f02=»* < , P* UPDAPP = SUBROUTINE TO UPDATE HEAD = , P* POSITION POINTER WHEN END = : ( P* OF REQUEST IS REACHED = j PUPDAPP EQU * = 0 P LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER = 8 P ADS A3,DWTAP+DWTDEV,A6 UPDATE HEAD POSITI
0x1ed2a0…1ed434 (1, 424) Dummy {f00=0x009a, f01=0x0190, f02=»TINE TO UPDATE ACTUAL POSITION = | 0 P* POINTER WHEN REQUEST RUNNING. > & > P* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE > Z P* > PPOSUPD EQU * > 0 P LC A2,DWTBC+DWTDEV,A6 GET POSITION POINTER > P ANK A2,/FF > 8 P AD A2
0x1ed434…1ed5c8 Dummy {f00=0x009a, f01=0x0190, f02=» , P IM DWTPOC+DWTDEV,A6 POSITION COUNTER =7 ? PPOSU10 RTN A15 ? 4 P EJECT ? J P* ? X P* I H D Y ? b P* ? v P* INTERRUPT ? P* ? PIHDY EQU * ? P LD A4,DWTST,A6 BUSY? ? P RB(N) EXIT NO ? P SLL A4,2 ECHO MODE ? ? P RF(
0x1ed5c8…1ed75c Dummy {f00=0x009a, f01=0x018e, f02=» ? z P EJECT @ P* @ P* R C D Y @ P* @ 4 ( P* RCDY = RECOVERY ROUTINE DISPLAY @ > P* @ j P* @ t ( P* RECOVERY IS CARRIED OUT ONLY IF @ ~ P* ORDER 6 IS RUNNING @ P* @ P* AT ENTRY: @ P* @ P* A6 = DWT-ADDRES
0x1ed75c…1ed8f0 Dummy {f00=0x009a, f01=0x0190, f02=» P =1 A P =1 A P =1 A P =1 A . P =1 A < P =1 A J P =1 A X P =1 A f P* A t P IFT WHATDY=0 A ~ P* A * P LD A2,DWTDEV,A6 CHANNEL PARAMETER =7 A & P ANKL A2,/1000 GRAPHIC DISPLAY =7 A P RF(E) RCDY10 NO A
0x1ed8f0…1eda84 Dummy {f00=0x009a, f01=0x0190, f02=» A $ P LDK A2,BLKSI MAX BLOCKSIZZE =7 B $ P CF A5,STABLK START OF BLOCK =7 B 0 P LDK A2,/00 DUMMY TO SEND B X P CF A5,OUTPUT B z P IFT WHATDY=0 =1 B P IFF STEADY+COUNTRY=0 =1 B * P LDR* A2,A6 GET CHANNEL PARAMETERS =1 B " P ANK A2,/20 PT
0x1eda84…1edc18 Dummy {f00=0x009a, f01=0x0190, f02=»INKING =3 B j , P ADK A2,STEADY ADJUST TO STEADY IF SO =3 C $ P CF A5,OUTPUT SEND CURSOR INF =3 C B & P SUK A3,1 DEC TRANSFER COUNTER =3 C j , P RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 C . P LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 C P CF A5,OUTPUT =1
0x1edc18…1eddac Dummy {f00=0x009a, f01=0x0190, f02=»14 EQU * =3 C P XIF =1 D ( P LD A3,DWTST,A6 SAVE STATUS WORD =3 D & " P LDK A2,CLEHOM CLEAR AND HOME D R P CF A5,OUTPUT SEND D x P LDKL A2,/101 D > P ST A2,DWTAP+DWTDEV,A6 SET HEAD LINE-AND-POSITION COUNTER D P LDR A3,A3 GET OLD STATUS D
0x1eddac…1edf40 Dummy {f00=0x009a, f01=0x0190, f02=» IN BLOCK SENT REMOTE D P* E PRCDY20 EQU * E ( P CWK A7,/5 ORDER 5 (!!) =7 E < P RF(NE) RCDY25 NO E ^ ( P LDK A1,2 INDICATE THROUGHPUT ERROR E x P RB RCDY15 E PRCDY25 EQU * E : P LC A4,DWTBC+DWTDEV,A6 GET NUMBER OF POSITIONS TO BACK E P
0x1edf40…1ee0d4 (1, 425) Dummy {f00=0x009a, f01=0x0190, f02=»BL ACDY90 E P EJECT F P* F P* E C H O D Y F * P* F B 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE F L P* F PECHODY EQU * F P LDR A7,A7 EOR? F P RF(N) ECDY17 YES F P LDR A3,A2 SAVE CHARACTER F P LDR A4,A2 SAVE CHAR.
0x1ee0d4…1ee268 Dummy {f00=0x009a, f01=0x0190, f02=» P XIF G P* G P SUK A3,/8 G P RF(E) ECDY40 BACKSPACE G , P SUK A3,/10 G L P RF(E) ECDY50 CLEAR G ` P LDK A2,1 BLOCK SIZE G | $ P CF A5,STABLK START OF BLOCK =7 G P LDR A2,A4 GET CHAR. G & PECDY10 CF A5,OUTPUT SEND CHARACTER G , P C
0x1ee268…1ee3fc Dummy {f00=0x009a, f01=0x0190, f02=»URSOR POINTER G n " P CF A15,TENDIO SET DY DWT FREE H ( PECDY20 ABL ECHRTN RETURN TO KEYBOARD H < P* H h P* BACKSPACE H r P* H PECDY40 EQU * H 0 P LC A4,DWTBC+DWTDEV,A6 GET POSITION COUNTER H P ANK A4,/FF H P RB(E) ECDY20 FIRST POSITI
0x1ee3fc…1ee590 Dummy {f00=0x009a, f01=0x0190, f02=»BACK H P CF A5,ENDBLK END BLOCK =7 I P RB ECDY20 I . P EJECT I @ P* I N P* CLEAR I X P* I j PECDY50 EQU * I t 0 P LC A4,DWTBC+DWTDEV,A6 GET POSITION COUNTER I P ANK A4,/FF I P RB(E) ECDY20 FIRST POSITION I P IFT WHATDY=0 I &
0x1ee590…1ee724 Dummy {f00=0x009a, f01=0x0190, f02=»F A5,STABLK START BLOCK =7 I P CF A5,BACCAN BACK J " P CF A5,ENDBLK END BLOCK =7 J < P RB ECDY20 J ^ P XIF J p & PECDY60 LDK A2,BLKSI BLOCK SIZE =7 J | P CF A5,STABLK START BLOCK =7 J $ P LDR A3,A4 SAVE POSITION COUNTER J > P LD A4,DWTAP+DWTDEV,A6
0x1ee724…1ee8b8 Dummy {f00=0x009a, f01=0x0190, f02=»ER J v P LDK A3,/20 K P CF A5,FASTER FAST OUTPUT K P LDK A2,0 K @ 2 P SC A2,DWTBC+DWTDEV,A6 RESET POSITION COUNTER K R P CF A5,ENDBLK END BLOCK =7 K P RB ECDY20 K P EJECT K P* K P* K 0 P* BACCAN = SUBROUTINE TO POSITION CURSO
0x1ee8b8…1eea4c Dummy {f00=0x009a, f01=0x0190, f02=»E. K z P* L PBACCAN EQU * L P LDR A3,A4 L ( 0 P LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER L : P ANK A2,/FF L n 4 P AD A2,DWTAP+DWTDEV,A6 ADD HEAD POSITION COUNTER L P ANK A2,/FF L * P CC A2,DWTPOS+DWTDEV,A6 LAST POSITION L P RF(NP) BACA
0x1eea4c…1eebe0 Dummy {f00=0x009a, f01=0x018e, f02=» LDK A2,SPACE DESTRUCTIVE SPACE L P CF A5,OUTPUT SEND M ( P LDK A2,BACKSP BACKSPACE M B PBACA20 CF A5,OUTPUT SEND M b P SUK A4,1 M P RB(NE) BACA10 M P NGR A3,A3 NEGATE REGISTER M 8 P ADS A3,DWTPOC+DWTDEV,A6 UPDATE POSITION COUNTER =7 M P
0x1eebe0…1eed74 (1, 426) Dummy {f00=0x009a, f01=0x018e, f02=» M ^ 4 P* ORDER TO GET A REASON FOR USING * N 4 P* 'FAST OUTPUT FACILITY' ON 6344 * N @ 4 P* AND 6386 * N x 4 P*********************************************** N PCHECK EQU * N P* N P*
0x1eed74…1eef08 Dummy {f00=0x009a, f01=0x0190, f02=» ( P LDR A2,A4 SAVE BUFFER ADDRESS+INDEX O P LDK A4,1 RESET COUNTER O 0 $ PNEXT ADK A4,1 INCREMENT COUNTER O P P SUK A1,1 END OF BUFFER? O x P RF(NP) OUT YES! O P ADK A2,1 INCREMENT POINTER O $ P CCR A7,A2 CHAR EQU TO PREVIUS? O P RB(E) NEXT
0x1eef08…1ef09c Dummy {f00=0x009a, f01=0x0190, f02=»************ O z & P* UPDATE ACTUAL POSITION POINTER * P 2 PFASTOK LC A2,DWTBC+DWTDEV,A6 GET HEAD POSITION P > P AD A2,DWTAP+DWTDEV,A6 P t P ANK A2,/FF P " P ADR A3,A4 UPDATE BUFFER-INDEX P & P ST A3,DWTBIN+DWTDEV,A6 SAVE INDEX P 6 P LC A3,DWTPOS+DWTD
0x1ef09c…1ef230 Dummy {f00=0x009a, f01=0x0190, f02=» P PHIT EQU * Q 0 P ADS A4,DWTPOC+DWTDEV,A6 UPDATE POSITION =7 Q P*********************** Q N P* EXECUTE FAST OUTPUT * Q n P LDR A3,A7 GET CHAR TO SEND Q P CF A5,FASTER Q P************** Q P* SET CURSOR * Q 2 P LD A4,DWTPOC+DWTDEV
0x1ef230…1ef3c4 Dummy {f00=0x009a, f01=0x018e, f02=»********************* Q " P* RESTORE A3 (BUFFER INDEX) * R 0 P LD A3,DWTBIN+DWTDEV,A6 RESTORE BUFFER INDEX R D P SUK A3,1 R x P LD A7,DWTOR,A6 GET ORDER =7 R P ANK A7,/FF GET ORDER =7 R P ABL ACDY90 READ NEXT CHAR R P* R . PNOFAST LDR A2,
0x1ef3c4…1ef558 Dummy {f00=0x009a, f01=0x018e, f02=» P* S P* S < P* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT S 4 P* AT ENTRY A4 = NUMBER OF CHARACTERS S X P* S PFASTER EQU * S P CWK A4,/60 S . P RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG S P LDK A4,/59 S P
0x1ef558…1ef6ec Dummy {f00=0x009a, f01=0x0190, f02=» S x P CF A5,OUTPUT SEND T P LDR A2,A3 T " P CF A5,OUTPUT SEND T 4 P RTN A5 T N P EJECT T ^ P* T l P* T v * P* CURPOS = SUBROUTINE TO SET CURSOR T > P* AT ENTRY A4 = CURSOR POS (POSITION AND LINE) T P* T PCURPOS EQU * T
0x1ef6ec…1ef880 Dummy {f00=0x009a, f01=0x0190, f02=» T P RF(NN) CURR05 YES! U P LCK A4,/7F00 U $ PCURR05 EQU * U : P LDR A2,A4 U N & P CF A5,OUTPUT OUTPUT POSITION (X) U ` P LDR A2,A4 U P RF(NN) CURR10 Y < /80! U P LDK A2,/7F U P RF CURR15 U PCURR10 EQU * U P SRL A2,8 SHIFT RI
0x1ef880…1efa14 (1, 427) Dummy {f00=0x009b, f01=0x0190, f02=» 8 P* ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2 V P* =2 V @ P* =2 V N 0 P* AT ENTRY A4 = CHAR TO ERASE FROM USER =2 V . P* AT EXIT A4 = CHAR TO END OF SCREEN =2 V P* =2 V PERA EQU * =2 V ( P LD A2,DWTPOS+DWTDEV,A6 MAX CHAR.
0x1efa14…1efba8 Dummy {f00=0x009b, f01=0x0190, f02=»A3 NUMBER OF CHAR. TO END OF SCREEN =2 V P ADK A2,1 ADJUST LENGTH =2 W . P CWR A4,A2 OUTSIDE SCREEN =2 W R P RF(L) ERAEND NO =2 W v . P LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2 W P LDKL A3,/FFFF SET OVER =4 W " PERAEND EQU * END SUBROUTINE =2 W
0x1efba8…1efd3c Dummy {f00=0x009b, f01=0x4014, f02=» P END X @ X O END OF SCREEN =2 V P ADK A2,1 ADJUST LENGTH =2 W . P CWR A4,A2 OUTSIDE SCREEN =2 W R P RF(L) ERAEND NO =2 W v . P LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2 W P LDKL A3,/FFFF SET OVER =4 W " PERAEND EQU * END SUBROUTINE =2 W
0x1efd3c…1efed0 Dummy {f00=0x009b, f01=0x2008, f02=» Y NE) BACA10 7 P NGR A3,A3 NEGATE REGISTER 7 , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER 7 < P RTN A5 7 l P END 7 |@ 7 6 t P* 6 PBACCAN EQU * 6 P LDR A3,A4 6 " PBACA10 LDK A2,BACKSP BACKSPACE 6 P CF A5,OUTPUT SEND 6 $ P LDK
0x1efed0…1f0064 Dummy {f00=0x009b, f01=0x0190, f02=» p " P RF(NZ) DNERR ERROR END I/O =1 P LD A8,DWTECB,A6 . P RB(E) ENDIO F * P RB ACDN RETURN TO ACTIVATINO PARTONI Z P* P EJECT DRDN01 P* P* E C H O D N P* P* ECHO-ROUTINE P* PECHODN EQU *
0x1f0064…1f01f8 Dummy {f00=0x009b, f01=0x0190, f02=» RF(E) ECH050 P SUK A3,/10 CLEAR? P RF(NE) ECH040 NO 0 P LDK A4,/40 ERASE DISPLAY =1 J PECH040 EQU * n P LDK A2,1 BLOCK SIZE =1 $ P CF A5,STABLK START OF BLOCK =1 " P RF(NZ) ECH050 ERROR END ECHO P LDR A2,A4 GET CHARACTER
0x1f01f8…1f038c Dummy {f00=0x009b, f01=0x0190, f02=»ECH050 ABL ECHRTN RETURN TO KEYBOARD DRIVER P* 4 PECH060 EQU * > P CF A15,TENDIO END I/O =! R * P ABL ECHRTN RETURN TO KEYBOARD DRIVER t P* P* P EJECT DRDN01 P* P* 8 P**************************************
0x1f038c…1f0520 Dummy {f00=0x009b, f01=0x40fe, f02=»************** j P* P* PDNERR EQU * =1 * P ANK A1,/10 OUTPUT ERROR =1 B $ P RB(NZ) RCDN YES DO RECOVERY =1 f 0 P LDK A1,1 SET NOT OPERABEL IN RETURN CODE =1 P RB ENDIO END I/O REQUEST =1 P END P @ **********
0x1f0520…1f06b4 (1, 428) Opaque[0x194]
0x1f06b4…1f0848 # DirEnt {nam=»DRDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1368, f03=0x0000}
0x1f06b4…1f0848 IdxSect {
0x1f06b4…1f0848 f00 = 0x009b // 0x1f06b4 @0x0
0x1f06b4…1f0848 f01 = 0x001c // 0x1f06b6 @0x2
0x1f06b4…1f0848 gno = [ // 0x1f06b8 @0x4
0x1f06b4…1f0848 [0x00]: C0x009b.0x1.0
0x1f06b4…1f0848 [0x01]: C0x009b.0x2.0
0x1f06b4…1f0848 [0x02]: C0x009b.0x3.0
0x1f06b4…1f0848 [0x03]: C0x009c.0x0.0
0x1f06b4…1f0848 [0x04]: C0x009c.0x1.0
0x1f06b4…1f0848 [0x05]: C0x009c.0x2.0
0x1f06b4…1f0848 [0x06]: C0x009c.0x3.0
0x1f06b4…1f0848 [0x07]: C0x009d.0x0.0
0x1f06b4…1f0848 [0x08]: C0x009d.0x1.0
0x1f06b4…1f0848 [0x09]: C0x009d.0x2.0
0x1f06b4…1f0848 [0x0a]: C0x009d.0x3.0
0x1f06b4…1f0848 [0x0b]: C0x009e.0x0.0
0x1f06b4…1f0848 [0x0c]: C0x009e.0x1.0
0x1f06b4…1f0848 [0x0d]: C0x009e.0x2.0
0x1f06b4…1f0848 ]
0x1f06b4…1f0848 }
0x1f0848…1f09dc Dummy {f00=0x009b, f01=0x018e, f02=» 2 P IDENT DRDY02 REL 11.0 81-05-25 870105041100 P : 0 P = 1 ECB-ADDRESS CHECKED IN ERROR-ROUTINE B P REL 11.0 81-02-03 v 4 P = 2 ECB-ADDRESS CHECKED IF LRC-ERROR OCCURED P REL 11.0 81-02-13 8 P = 3 ASS. ERROR IF FAST0=1, TRAS
0x1f09dc…1f0b70 Dummy {f00=0x009b, f01=0x0190, f02=» z P* @ P************************************************************ P* V P* ` P* j & P* PHILIPS TERMINAL SYSTEM P T S t & P* DRDY02 = DRIVER VIDEO DISPLAY P* P* P* @ P**********************************
0x1f0b70…1f0d04 Dummy {f00=0x009b, f01=0x0190, f02=» THE h * P* DISPLAYS PTS 6351, 6385 AND 6386. 2 P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO- : 0 P* FUNCTIONS WHICH MAKES IT POSSIBLE TO USE p 2 P* THE DISPLAY AS AN ECHO-DEVICE TO ANY KEY- P* BOARD. P* P* * P* THE
0x1f0d04…1f0e98 Dummy {f00=0x009b, f01=0x0190, f02=»STANDARD WRITE ( P* 0B SET CURSOR AND WRITE P* 31 ERASE B P* ` P* j P* NORMAL REGISTER USAGE : t P* $ P* REGISTER A1 = RETURN CODE * P* A2 = OUTPUT CHARACTER & P* A3
0x1f0e98…1f102c Dummy {f00=0x009b, f01=0x018e, f02=»-ADDRESS x P* A7 = ORDER $ P* A8 = ECB-ADDRESS 2 P* Z P* d P* ENTRIES n P* P* ( P ENTRY DYAD ADDRESS TO ADDRESSBLOCK P* P* P* EXTERNALS P* P* P* TOSS
0x1f102c…1f11c0 Dummy {f00=0x009b, f01=0x0190, f02=» r P EXTRN OUTPUT SEND P EXTRN ENDBLK END OF BLOCK " 2 P EXTRN GETCHR FETCH CHARACTER FROM ECB-BUFFER D $ P EXTRN ECHRTN RETURN TO KEYBOARD z P EXTRN TENDIO END OF I/O P* P* DWT DISPLACEMENTS P* ( P EXTRN DWTDEV TERMIN
0x1f11c0…1f1354 (1, 429) Dummy {f00=0x009b, f01=0x018e, f02=»SPLACEMENTS P* P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LENGTH B " P EXTRN ECBEL EFFECTIVE LENGTH h P EXTRN ECBRC RETURN CODE P EXTRN ECBCW CONTROL WORD P* @ P**********************************************
0x1f1354…1f14e8 Dummy {f00=0x009b, f01=0x0190, f02=» P* DWT DISPLACEMENTS P* & & PDWTAP EQU /2 HEAD POSITION POINTER 0 " PDWTBC EQU /1 POSITION COUNTER Z PDWTLIN EQU /4 LINES PDWTPOS EQU /5 POSITIONS & PDWTBLC EQU /6 CHARACTERS IN BLOCK P* P* CHARACTERS P*
0x1f14e8…1f167c Dummy {f00=0x009b, f01=0x0190, f02=»SOR HOME ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME PCR EQU /0D CARRIAGE RETURN < PCURRIG EQU /10 CURSOR RIGHT ^ $ PSCADD EQU /11 SET CURSOR ADDRESS " PULSTOP EQU /13 UNDERLINE STOP PFASOUT EQU /14 FAST OUTPUT PSTILL EQU /18 CURSOR S
0x1f167c…1f1810 Dummy {f00=0x009b, f01=0x0190, f02=» RETURN CODES P* " PCCERR EQU /4 CODE CHECK ERROR P* F P* OTHER P P* b PMINBLK EQU 6 BLOCK SIZE l @ PFASTNR EQU 6 LEAST NUMBER OF CHARS TO SEND WITH FAST OUTPUT P* @ P**********************************************
0x1f1810…1f19a4 Dummy {f00=0x009b, f01=0x0190, f02=» DATA DVBLEN BUFFER LENGTH P DATA 2 DEVICE INDEX " PDYAD EQU * > ( P DATA ACDY DRIVER ACTIVATION ADDRESS P P DATA ABDY ABORT ROUTINE | P DATA 0 NO INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE P DATA ECHODY ECHO ROUTINE P*
0x1f19a4…1f1b38 Dummy {f00=0x009b, f01=0x0190, f02=»**************************************************** P* < 4 P* IF THE CONSTANT X:A IS SET TO 1, FAST OUTPUT F < P* WILL BE USED IF A NUMBER (SEE THE CONSTANT "FASTNR") ~ 8 P* OF CONSECUTIVE CHARACTERS IN THE ECB-BUFFER ARE P* FOUND EQUA
0x1f1b38…1f1ccc Dummy {f00=0x009b, f01=0x0190, f02=»HAN PTS 6344 X P* 6346, 6385 AND 6386. P* 4 PX:B EQU 0 > PWHATDY EQU X:B P P* f P* p 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR z & P* (COLUMNS 6 AND 7) CAN BE USED PX:C EQU 1 PLOWCHA EQU X:C P
0x1f1ccc…1f1e60 Dummy {f00=0x009b, f01=0x0190, f02=» 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 P* @ PX:D EQU 0 J PEORECH EQU X:D P* r 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS | @ P* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. P* PX:E EQU 0
0x1f1e60…1f1ff4 (1, 430) Dummy {f00=0x009b, f01=0x0190, f02=»X:F EQU 1 PSTEADY EQU X:F P* ( 4 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POS- 2 . P* SIBLE TO CHOOSE BETWEEN TEN DIFFERENT j , P* CHARACTER SETS, IF PTS 6385 IS USED. P* P* CODE COUNTRY P* 0 GB/NL/B P* 1 D/A/
0x1f1ff4…1f2188 Dummy {f00=0x009b, f01=0x0190, f02=»X:G EQU 0 PCOUNTRY EQU X:G P* * & P* MEMORY MANAGEMENT BUFFER SIZE 4 P* ^ PX:H EQU 82 h PDVBLEN EQU X:H z P* P* MAXIMUM BLOCK SIZE P* PX:J EQU 140 PMAXBLK EQU X:J P* L P* X:I SHOULD BE
0x1f2188…1f231c Dummy {f00=0x009b, f01=0x018e, f02=» IT IS POSSIBLE TO USE GREEK =4 P* CHARACTER SET =4 ( P* F PX:K EQU 0 =4 P PGREECE EQU X:K =4 f P* P EJECT P* : P***************************************************** P* & P* A C T I V A T I O N P A
0x1f231c…1f24b0 Dummy {f00=0x009b, f01=0x0190, f02=» P* PART OF THE DRIVER. P* $ < P******************************************************* . P* n PACDY EQU * x P LDK A3,0 RESET BUFFER INDEX 0 P CM DWTBLC+DWTDEV,A6 CLEAR CHARACTER COUNTER $ P LDKL A2,MAXBLK MAX. BLOCK SIZE
0x1f24b0…1f2644 Dummy {f00=0x009b, f01=0x0190, f02=» DY100 ORDER 00, TEST STATUS P* $ P SUK A7,/5 . & P RF(Z) DY200 ORDER 05, BASIC WRITE @ P* j P SUK A7,1 t ( P RF(Z) DY300 ORDER 06,STANDARD WRITE P* P SUK A7,/5 0 P ABL(Z) DY600 ORDER 0B, SET CURSOR AND WRITE P*
0x1f2644…1f27d8 Dummy {f00=0x009b, f01=0x0190, f02=»A5,ENDBLK END OF BLOCK , P ABL LENDER SET RETURN CODE AND END I/O P EJECT N P* @ P************************************************************ f P* P* ORDER 00, TEST STATUS. 8 P* THIS PART SENDS A DUMMY CHARACTER TO THE DISPL
0x1f27d8…1f296c Dummy {f00=0x009b, f01=0x0190, f02=»IN CONTROL WORD OF l 8 P* ECB, WITH LINE NUMBER IN LEFT BYTE AND COLUMN IN P* THE RIGHT. V P* l @ P************************************************************ v P* PDY100 EQU * P LDK A2,DUMMY P CF A5,OUTPUT SEND DUMMY
0x1f296c…1f2b00 Dummy {f00=0x009b, f01=0x0190, f02=» P* P ABL ENDIO P EJECT P* . @ P************************************************************ 8 P* | P* ORDER 05, BASIC WRITE. 0 P* THIS ORDER SENDS THE REQUESTED NUMBER OF . P* CHARACTERS TO THE DISPLAY AND SETS THE
0x1f2b00…1f2c94 (1, 431) Dummy {f00=0x009c, f01=0x018e, f02=»********************** j P* PDY200 EQU * ( P IFT TRASPA=1 < * P CF A15,TRASP SUPPRESS TRAILING SPACES R P XIF PDY205 EQU * 2 P CF A15,GETCHR FETCH CHARACTER FROM ECB-BUFFER 0 P LDR A1,A1 IS THERE ANY CHARACTER TO SEND ?
0x1f2c94…1f2e28 Dummy {f00=0x009c, f01=0x0190, f02=» l P RF(NZ) DYER05 P* * P CF A15,POSUPD UPDATE POSITION COUNTER ( P* V 4 P* CHECK IF MAX. BLOCKSIZE IS REACHED. START A ` P* NEW BLOCK IF IT IS. P* 4 P IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER " P LDKL A2,MAXBL
0x1f2e28…1f2fbc Dummy {f00=0x009c, f01=0x0190, f02=»,ENDBLK YES ! END BLOCK P RF(NZ) DYER05 " P LDKL A2,MAXBLK GET BLOCKSIZE 6 " P CF A5,STABLK START NEW BLOCK P RF(NZ) DYER05 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER P RB DY205 NEXT CHARACTER P* PDY210 EQU * *
0x1f2fbc…1f3150 Dummy {f00=0x009c, f01=0x0190, f02=» POSITION. (/0101) r : P CM DWTBLC+DWTDEV,A6 RESET CHARACTERS-IN-BLOCK COUNTER P* X P ABL DY493 END REQUEST b P* PDYER05 EQU * B P CM DWTBLC+DWTDEV,A6 RESET CHARACTERS-IN-BLOCK COUNTER BEFORE ( P RF DYER10 ERROR ROUTINE IS ENTERED
0x1f3150…1f32e4 Dummy {f00=0x009c, f01=0x0190, f02=»TE. v : P* THIS PART CHECKS IF THE REQUESTED LENGTH IS ZERO. > P* IF IT IS, CARRIAGE RETURN AND LINE FEED ARE SENT, AND J " P* THE REQUEST IS COMPLETED. F P* ELSE THIS PART LOOKS FOR A CONTROL CHARACTER IN THE FIRST WORD @ P* IN THE E
0x1f32e4…1f3478 Dummy {f00=0x009c, f01=0x0190, f02=»UFFER TO THE DISPLAY UNLESS A SPECIAL L P* CHARACTER ( /07, /11, /12, /13, /14, /1E, /1F, /AE ) IS RECOGNIZED. . B P* IF A SPECIAL CHARACTER IS FOUND, THE APPROPRIATE FUNCTION ~ 6 P* IS CARRIED OUT BEFORE NEXT CHARACTER IS SENT. < P* WHEN A
0x1f3478…1f360c Dummy {f00=0x009c, f01=0x0190, f02=»********************************** v P* * PDY300 EQU * 4 P* H P* TEST REQUESTED LENGTH R P* t 6 P LD A2,ECBRL,A8 GET REQUESTED LENGTH. IS IT ZERO ? ~ P RF(Z) DY307 YES ! P* P* TEST CONTROL CHARACTER P* P
0x1f360c…1f37a0 Dummy {f00=0x009c, f01=0x0190, f02=»CREMENT BUFFER INDEX P* P SUK A2,/2B & $ P RF(Z) DY335 NO MOVING OF CURSOR : PDY307 EQU * b P* v 0 P LDK A4,1 FIRST POSITION AND ONE LINE FEED. 8 P SC A4,DWTAP+DWTDEV+1,A6 RESET HEAD POSITION COUNTER P* P SUK A2,/5 TWO
0x1f37a0…1f3934 (1, 432) Dummy {f00=0x009c, f01=0x0190, f02=»E ? 4 P RF(Z) DY330 YES ! CONTROL CHARACTER MEANS ERASE P* D P LDK A2,CR CARRIAGE RETURN N P* p PDY320 EQU * z P CF A5,OUTPUT SEND PDYER10 RF(NZ) DYER15 P* P SUK A4,1 READY ? 0 P RF(N) DY335 YES ! START WRITING
0x1f3934…1f3ac8 Dummy {f00=0x009c, f01=0x018e, f02=»E ? f P RF(NG) DY325 YES ! P* ( . P LDKL A2,/100 NO ! INCREMENT LINE COUNTER 2 P ADS A2,DWTAP+DWTDEV,A6 d PDY325 EQU * " P LDK A2,LF LINE FEED CHARACTER " P RB DY320 SEND NEXT LINE FEED P* PDY330 EQU * . P SC A4
0x1f3ac8…1f3c5c Dummy {f00=0x009c, f01=0x0190, f02=» ` P RB DY320 SEND P EJECT P* , P* 6 8 P* WRITING PART, ORDER 06 (ALSO USED BY ORDER 0B). @ P* | P* PDY335 EQU * P IFT TRASPA=1 * P CF A15,TRASP SUPPRESS TRAILING SPACES P XIF PDY340 EQU * 0 P
0x1f3c5c…1f3df0 Dummy {f00=0x009c, f01=0x0190, f02=»E=1 =4 P CF A15,GRCHAR =4 ! P XIF ! * P* ! 6 P LDR A4,A2 CHECK CODE LIMITS ! @ P SUK A4,/20 ! d * P RF(N) DY380 TEST IF SPECIAL CHARACTER ! x P SUK A4,/5F ! * P RF(P) DY380 TEST IF SPECIAL CHARACTER ! P IFT FASTO=1 ! P IFT WHATDY=
0x1f3df0…1f3f84 Dummy {f00=0x009c, f01=0x0190, f02=» RF(NZ) FAST80 NO ! ! P XIF " P IFT FASTO=1 " ( P* " < P* " F 2 P* FAST OUTPUT SHOULD BE USED IF A NUMBER OF " P $ P* CHARACTERS ARE FOUND EQUAL. " P* " P* " & P LD A1,ECBBA,A8 GET BUFFER ADDRESS " P ADR A1,A3 ADD BUFFER INDEX
0x1f3f84…1f4118 Dummy {f00=0x009c, f01=0x0190, f02=» " PFAST10 EQU * # * P ADK A4,1 INCREMENT CHARACTER COUNTER # 6 P CCR A2,A1 NEXT CHAR. IN BUFFER EQUAL TO CURRENT ? # J P RF(NE) FAST40 NO ! # P* # , P CC A4,DWTPOS+DWTDEV,A6 MAX. POSITIONS ? # P RF(NL) FAST40 YES ! # P* # & P CW A3,E
0x1f4118…1f42ac Dummy {f00=0x009c, f01=0x0190, f02=» CHECK NEXT CHARACTER # P* $ PFAST40 EQU * $ ( : P LD A1,DWTAP+DWTDEV,A6 GET NUMBER OF EQUAL CHARACTERS $ < P AD A1,DWTBC+DWTDEV,A6 $ z P ANK A1,/FF $ P SUR A4,A1 $ P* $ 6 P CWK A4,FASTNR COND. FOR FAST OUTPUT FULLFILLED ? $ P RF(L)
0x1f42ac…1f4440 Dummy {f00=0x009c, f01=0x0190, f02=»R $ b P* % " P SLC A3,8 SAVE BUFFER POINTER % P ADR A4,A3 % : P* % L P IFT LOWCHA=0 % V P LDR A3,A2 % l P SUK A3,/5F % ~ P RF(NP) FAST30 % P SUK A2,/20 % PFAST30 EQU * % P XIF % P IFT FASTO=1 % $ P LDR A3,A2 PUT CHARACTER
0x1f4440…1f45d4 (1, 433) Dummy {f00=0x009c, f01=0x0190, f02=»WTBC+DWTDEV,A6 GET CURSOR POSITION % P ANK A4,/FF & * P AD A4,DWTAP+DWTDEV,A6 & > P* & P CF A5,CURPOS SET CURSOR & f P RB DY340 NEXT CHARACTER & PFAST80 EQU * & P XIF & P* & & P IFT LOWCHA=0 LOWER CASE NOT USED & P LDR A1,A2 &
0x1f45d4…1f4768 Dummy {f00=0x009c, f01=0x0190, f02=» CHARACTER & ~ PDYER15 ABL(NZ) DYER20 ' * P CF A15,POSUPD POSITION COUNTER UPDATE ' 0 P IFT FASTO=1 ' ^ P IFT WHATDY=1 ' r * P LD A1,DWTDEV,A6 6344, 6385 OR 6386 ? ' P ANKL A1,/1000 ' P RF(NZ) FAST90 NO ! ' P XIF ' P IFT FASTO=1 ' * P
0x1f4768…1f48fc Dummy {f00=0x009c, f01=0x0190, f02=»D AGAIN ' l P ADR A2,A3 ( P LC A2,-1,A2 ( " P ANK A2,/7F MASK CHARACTER ( 6 P RB FAST80 ( X PFAST90 EQU * ( j P XIF ( ~ P RB DY340 NEXT CHARACTER ( P* ( " P* TEST IF SPECIAL CHARACTER ( P* ( PDY380 EQU * ( P LDK A4,0 RESET
0x1f48fc…1f4a90 Dummy {f00=0x009c, f01=0x0190, f02=»ABULATION ( /11 ) ? ( 2 P ABL(Z) ADY140 YES ! GO TO TABULATION ROUTINE ) P* ) R $ P SUK A1,/3 FAST OUTPUT ( /14 ) ? ) * P RF(Z) DY390 YES ! GO TO THAT ROUTINE ) P* ) P SUK A1,/9A POINT ( /AE ) ? ) $ P RF(Z) DY410 YES ! LOAD AND SEND ) P
0x1f4a90…1f4c24 Dummy {f00=0x009c, f01=0x0190, f02=» RF(NZ) DY385 NO ! ) P XIF * P* * & * P ADK A1,/9C UNDERLINE START ( /12 ) ? * 0 P RF(Z) DY467 YES ! * ^ P* * x ( P SUK A1,/1 UNDERLINE STOP ( /13 ) ? * P RF(Z) DY467 YES ! * P* * , P SUK A1,/B LOW INTENSITY START ( /1E) ? * P RF(Z)
0x1f4c24…1f4db8 Dummy {f00=0x009c, f01=0x0190, f02=» * z P* + PDY385 EQU * + " P LDK A1,CCERR CODE CHECK ERROR + & , P ORS A1,ECBRC,A8 SET RETURN CODE OF ECB + L P RB DY340 NEXT CHARACTER + | P EJECT + P* + P* ROUTINE FOR FAST OUTPUT + P* + PDY390 EQU * + P IFT TRASPA=1 +
0x1f4db8…1f4f4c Dummy {f00=0x009c, f01=0x0190, f02=» $ P LD A4,ECBRL,A8 REQUESTED LENGTH , 0 P SUR A4,A3 GET NUMBER OF CHARACTERS TO SEND , , P RF(NP) DY400 NONE ! , ` P IFT GREECE=1 =4 , | P CF A15,GRCHAR =4 , P XIF , P* , $ P LDR A3,A2 LOAD CHARACTER IN A3 , P* , ( P CF A5,FASTER SE
0x1f4f4c…1f50e0 Dummy {f00=0x009c, f01=0x0190, f02=»Y470 GO TO COMMON END , P* - P* SEND A POINT - ( P* - @ PDY410 EQU * - J " P LDK A2,/2E GET CODE FOR POINT - ^ P RB DY370 SEND POINT - P* - PDY467 EQU * - ( P CF A5,OUTPUT SEND SPECIAL CHARACTER - P RF(NZ) DYER20 NOT OK ! -
0x1f50e0…1f5274 (1, 434) Dummy {f00=0x009c, f01=0x0190, f02=»ABULATION - P* . @ P************************************************************ . PADY140 EQU * . ` , P CF A15,GETCHR GET FIRST ASCII CHARACTER . t P LDR A4,A2 . . P CF A15,GETCHR GET SECOND ASCII CHARACTER . P ANK A2,/F . P ANK A4,/F .
0x1f5274…1f5408 Dummy {f00=0x009c, f01=0x018e, f02=»+DWTDEV+1,A6 . ~ . P SUR A2,A4 SUBTRACT HEAD POSITION POINTER / P LC A4,DWTBC+DWTDEV,A6 / F , P SUR A2,A4 AND REQUESTS POSITION COUNTER / d & P TO GET NUMBER OF SPACES TO SEND / " P ABL(NP) DY340 NEXT CHARACTER / P LDR A4,A2 / & PADY145 LDK A2,CURR
0x1f5408…1f559c Dummy {f00=0x009c, f01=0x0190, f02=» / | P RB(NE) ADY145 NO 0 P ABL DY340 NEXT CHARACTER 0 " P EJECT 0 D B P************************************************************** 0 R P* 0 > P* COMMON END. ALL CHARACTERS ARE SENT. RESET MODES WHICH 0 . P* HAS BEEN SET UP BY SPECIAL CHARA
0x1f559c…1f5730 Dummy {f00=0x009c, f01=0x0190, f02=»OP UNDERLINE STOP 0 P CF A5,OUTPUT SEND 1 PDYER20 RF(NZ) DYER30 1 4 P* 1 P & P LDK A2,LISTOP LOW INTENSITY STOP 1 Z P CF A5,OUTPUT SEND 1 P RF(NZ) DYER30 1 P* 1 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER 1 P* 1 PDY493 EQU *
0x1f5730…1f58c4 Dummy {f00=0x009c, f01=0x0190, f02=»ORE EFF. LENGTH IN ECB 1 ~ 4 P LD A2,DWTAP+DWTDEV,A6 SET HEAD POSITION POINTER 2 * P ST A2,ECBCW,A8 IN CONTROL WORD OF ECB 2 V PENDIO EQU * 2 P CF A5,ENDBLK END OF BLOCK 2 P RF(NZ) DYER30 2 P ABL LENDIS END I/O 2 P EJECT 2 @ P**************
0x1f58c4…1f5a58 Dummy {f00=0x009c, f01=0x0190, f02=»O THE POSITION GIVEN IN 2 t 8 P* THE CONTROL WORD OF ECB AND SENDS THE CHARACTERS 3 : P* TO THE DISPLAY, CHECKING THE SAME SPECIAL CHARAC- 3 P* TERS AS ORDER 06. 3 P* 3 @ P************************************************************ 3 P*
0x1f5a58…1f5bec Dummy {f00=0x009c, f01=0x0190, f02=» YES ! 3 P* GET LINE 4 & P LC A4,ECBCW,A8 GET REQUESTED LINE 4 $ , P CC A4,DWTLIN+DWTDEV,A6 OUTSIDE SCREEN? 4 N P RF(NG) ADY207 NO! 4 ~ : P LC A4,DWTLIN+DWTDEV,A6 YES! SET CURSOR AT END OF LINE 4 PADY207 EQU * 4 * P LC A3,DWTAP+DWTDEV,A6 GET ACT
0x1f5bec…1f5d80 Dummy {f00=0x009c, f01=0x018e, f02=»E FEED 4 * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER 5 PADY230 CF A5,OUTPUT SEND 5 < P RF(NZ) DYER30 5 P LDR A4,A4 REQUESTED LINE 5 r " P RB(NZ) ADY210 NOT EQUAL ZERO 5 P LDK A4,1 5 P RF ADY300 5 PADY250 LDK A2,HOME HOME 5 & P LDK A3,1
0x1f5d80…1f5f14 (1, 435) Dummy {f00=0x009d, f01=0x0190, f02=» 5 | P* 6 : PADY300 SC A4,DWTAP+DWTDEV,A6 UPDATE HEAD LINE COUNTER 6 , P LC A4,ECBCW+1,A8 GET REQUESTED POSITION 6 P , P CC A4,DWTPOS+DWTDEV,A6 OUTSIDE SCREEN? 6 P RF(NG) ADY303 NO! 6 * P LC A4,DWTPOS+DWTDEV,A6 SET LAST LINE 6 PADY303 EQU * 6
0x1f5f14…1f60a8 Dummy {f00=0x009d, f01=0x0190, f02=»URSOR GO HOME 6 P RF ADY330 7 * PADY305 RF(NL) ADY307 REQ. POS NOT ZERO 7 ( P LDK A4,1 7 V 6 PADY307 LC A3,DWTAP+DWTDEV+1,A6 GET ACTUAL POSITION 7 h $ P CC A3,DWTPOS+DWTDEV,A6 MAX-POS? 7 P RF(NG) ADY310 NO! 7 P SUK A3,1 7 * PADY310 CWR A4,A3 F
0x1f60a8…1f623c Dummy {f00=0x009d, f01=0x0190, f02=»UPDATE POSITION COUNTER 7 PADY330 CF A5,OUTPUT SEND 8 P RF(NZ) DYER30 8 @ P RB ADY310 8 V . PADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. 8 h , P CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY 8 P RF(L) ADY345 BACKSPACE WAY 8 P LDK A2,CR CARRIAGE RETURN
0x1f623c…1f63d0 Dummy {f00=0x009d, f01=0x0190, f02=»NZ) DYER30 8 P SUK A3,1 LAST BACKSPACE ? 9 P RB(NE) ADY345 9 4 @ PADY370 SC A4,DWTAP+DWTDEV+1,A6 UPDATE HEAD POSITION POINTER 9 J P RF DY620 9 PDY610 EQU * 9 P XIF 9 2 P LD A4,ECBCW,A8 GET REQUESTED CURSOR POSITION 9 8 P ST A4,DWTAP+DWTDE
0x1f63d0…1f6564 Dummy {f00=0x009d, f01=0x0190, f02=»ER INDEX 9 | 2 P ABL DY335 SEND CHARACTERS WITH STANDARD WRITE : P EJECT : F @ P************************************************************ : T P* : * P* CURPOS = SUBROUTINE TO SET CURSOR : > P* AT ENTRY A4 = CURSOR POS (POSITION AND LIN
0x1f6564…1f66f8 Dummy {f00=0x009d, f01=0x0190, f02=»RESS : t P CF A5,OUTPUT SEND ; P RF(NZ) DYER30 ; & P* ; < P LDR A2,A4 GET POSITIONS ; F 6 P CC A4,DWTPOS+DWTDEV,A6 MORE THAN MAX. POSITIONS ? ; f P RF(NG) CURR10 NO ! ; 4 P LC A2,DWTPOS+DWTDEV,A6 YES ! SET MAX. POSITIONS ; P* ; PCURR10 ADK
0x1f66f8…1f688c Dummy {f00=0x009d, f01=0x0190, f02=»C A2,DWTLIN+DWTDEV,A6 MORE THAN MAX. LINES ? ; P RF(NG) CURR20 NO ! < 4 0 P LC A2,DWTLIN+DWTDEV,A6 YES ! SET MAX LINES < P P* < PCURR20 EQU * < P ADK A2,/1F CONVERT < P CF A5,OUTPUT SEND < P RF(NZ) DYER40 < P RTN A5 < P EJECT <
0x1f688c…1f6a20 Dummy {f00=0x009d, f01=0x0190, f02=»ACES THAT IS GIVEN IN CONTROL < v . P* WORD OF ECB. THE CURSOR IS NOT MOVED. = & P* = X @ P************************************************************ = b P* = PDY700 EQU * = 6 P LD A4,ECBCW,A8 GET NUMBER OF CHARACTERS TO ERASE = P IFT WHATD
0x1f6a20…1f6bb4 (1, 436) Dummy {f00=0x009d, f01=0x018e, f02=»EV,A6 MAX. CHARACTERS = ~ P ANK A2,/FF > . P LC A3,DWTAP+DWTDEV+1,A6 CURRENT POSITION > 2 P ANK A3,/FF > d , P SUR A2,A3 NR OF CHARS. TO END OF SCREEN > x P LDR A3,0 ADJUST > P ADK A2,1 ADJUST LENGTH > P CWR A4,A2 OUTSIDE SCREEN ? > P RF(
0x1f6bb4…1f6d48 Dummy {f00=0x009d, f01=0x0190, f02=» > p P LDK A2,/20 SPACE ? PDY720 EQU * ? " , P SUK A4,1 DECREMENT NUMBER OF CHARACTERS ? 6 P RF(N) DY730 ERASE READY ? f P* ? P CF A5,OUTPUT SEND ? P RF(NZ) DYER40 ? P RB DY720 ? P* ? PDY730 EQU * ? P CF A5,ENDBLK END OF BLO
0x1f6d48…1f6edc Dummy {f00=0x009d, f01=0x0190, f02=»A3 RESET COUNTER ? P LDR A2,BACKSP CURSOR LEFT @ PDY740 EQU * @ : , P SUK A4,1 CURSOR IN ORIGINAL POSITION ? @ N P ABL(N) ENDIO YES ! @ ~ . P CF A5,OUTPUT NO ! SEND ANOTHER BACKSPACE @ P RF(NZ) DYER40 @ P RB DY740 @ PDY750 EQU * @ P
0x1f6edc…1f7070 Dummy {f00=0x009d, f01=0x0190, f02=»************************************** @ z P* A . . P* ECHODY, DEVICE-DEPENDENT ECHO-ROUTINE A 8 0 P* THIS ROUTINE CHECKS IF THE ECHO-CHARCTER A j . P* IS A BACKSPACE, CLEAR OR EOR-KEY ( IF A . P* "SUPPRESS ECHOING OF EOR" IS REQUESTED A 0 P* AT
0x1f7070…1f7204 Dummy {f00=0x009d, f01=0x0190, f02=»************ A ` P* B PECHODY EQU * B P LDR A7,A7 END OF ECHOING ? B 2 P RF(NN) EDY110 NO ! B V P* B r P* B | 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER B P CF A15,TENDIO END I/O B , P LD A1,DWTBLC+DWTDEV,A6 BLOCK RESERVED ? B ( P
0x1f7204…1f7398 Dummy {f00=0x009d, f01=0x0190, f02=» B d P IFT GREECE=1 =4 C P CF A15,GRCHAR =4 =4 C " P XIF =4 C @ P LDR A3,A2 SAVE CHARACTER C R P* C t P IFT EORECH=0 C ~ P SUK A3,/80 C $ P RF(NN) EDY130 NOT TO BE ECHOED C P ADK A3,/80 C P XIF C , P LD A1,DWTBLC+DWTDEV,A6
0x1f7398…1f752c Dummy {f00=0x009d, f01=0x0190, f02=»A6 YES ! CLEAR CHARACTER COUNTER C ~ P CF A5,ENDBLK FINISH BLOCK D ( P RF(NZ) DYER40 D J PEDY116 EQU * D ` P LDK A2,MINBLK D t P CF A5,STABLK DECLARE BLOCK D P RF(NZ) DYER40 D PEDY118 EQU * D P LDR A2,A3 RELOAD CHARACTER D P* D P S
0x1f752c…1f76c0 Dummy {f00=0x009d, f01=0x0190, f02=»ND CHARACTER TO ECHO-DEVICE D P* E $ * P IM DWTBLC+DWTDEV,A6 INCREMENT COUNTER E . P CF A5,OUTPUT SEND E PDYER40 RF(NZ) DYER45 E v , P CF A15,POSUPD POSITION COUNTER UPDATING E P SUK A4,1 MORE CHARACTERS ? E P RF(Z) EDY130 YES ! E P* E
0x1f76c0…1f7854 (1, 437) Dummy {f00=0x009d, f01=0x018e, f02=»RTN RETURN TO KEYBOARD E P EJECT F @ P************************************************************ F , P* F p P* BACKSPACE F z 6 P* CHECKS CURSOR POSITION, MOVES CURSOR ONE STEP F 6 P* BACKWARDS, SENDS A SPACE AND MOVES CURSOR ONE F P*
0x1f7854…1f79e8 Dummy {f00=0x009d, f01=0x0190, f02=» 0 P LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER G P ANK A3,/FF G 8 P RB(Z) EDY120 FIRST POSITION G L P* G p " P CF A5,ENDBLK FINISH OLD BLOCK G z P RF(NZ) DYER45 G P LDK A2,MINBLK G $ P CF A5,STABLK START A NEW BLOCK G P RF(NZ) DYER45 G
0x1f79e8…1f7b7c Dummy {f00=0x009d, f01=0x0190, f02=» G d " P ADK A3,1 GET POSITION ON LINE H P AD A3,DWTAP+DWTDEV,A6 H . 4 P CC A3,DWTPOS+DWTDEV,A6 LAST POSITION ON LINE ? H L P RF(L) DY810 NO ! H P RB(G) DY800 NO, OUTSIDE ! H P* H P* H PDY805 EQU * H P* H P LDK A2,SPACE SPACE H
0x1f7b7c…1f7d10 Dummy {f00=0x009d, f01=0x0190, f02=»A5,OUTPUT SEND H P RF(NZ) DYER45 I P* I , P SUK A4,1 SEND AGAIN ? I 6 P RB(NZ) DY805 YES ! I T P* NO, BACKSPACE FINISHED I p P RB EDY120 I P EJECT I < P******************************************************** I P* I P* CLEAR I
0x1f7d10…1f7ea4 Dummy {f00=0x009d, f01=0x0190, f02=»RITTEN DURING CURRENT REQUEST. I P* J & @ P************************************************************ J 0 P* J t PDY850 EQU * J ~ " P CF A5,ENDBLK FINISH OLD BLOCK J P RF(NZ) DYER45 J " P LDKL A2,MAXBLK GET BLOCKSIZE J P CF A5,STABLK START
0x1f7ea4…1f8038 Dummy {f00=0x009d, f01=0x0190, f02=»POSITION J | P* K P IFT WHATDY=1 K . P LD A1,DWTDEV,A6 PTS 6344, 6385 OR 6386 ? K 0 P ANKL A1,/1000 K b P RF(Z) DY860 YES ! K x ( P CF A5,BACCAN ERASE CURRENT REQUEST K P RB EDY120 K P XIF K PDY860 EQU * K 4 P LD A4,DWTAP+DWTDEV,A6 G
0x1f8038…1f81cc Dummy {f00=0x009d, f01=0x0190, f02=»ION COUNTER K z $ P LDK A3,SPACE GET SPACE TO SEND L ( P CF A5,FASTER SEND WITH FAST OUTPUT L < P* L h 2 P SC A1,DWTBC+DWTDEV,A6 RESET POSITION COUNTER L r P RB EDY120 L P IFT WHATDY=1 L P EJECT L @ P******************************************
0x1f81cc…1f8360 Dummy {f00=0x009d, f01=0x0190, f02=» P* CLEAR. M P* M @ P************************************************************ M * PBACCAN EQU * M n 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER M P LDR A4,A3 M 0 P LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER M P ANK A2,/FF
0x1f8360…1f84f4 (1, 438) Dummy {f00=0x009d, f01=0x0190, f02=») BACA10 NO M $ P LDK A2,SPACE DESTRUCTIVE SPACE N P RF BACA20 N < PBACA10 EQU * N N 4 P IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER N b ( P LDKL A2,MAXBLK-3 GET BLOCKSIZE - 3 N : P CW A2,DWTBLC+DWTDEV,A6 WILL IT BE OVERFLOW IN BLOCK ? N P RF(
0x1f84f4…1f8688 Dummy {f00=0x009d, f01=0x0190, f02=»,STABLK START A NEW BLOCK N P RF(NZ) DYER50 O " 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER O 8 PBACA30 EQU * O l P LDK A2,BACKSP BACKSPACE O P CF A5,OUTPUT SEND O P RF(NZ) DYER50 O $ P LDK A2,SPACE DESTRUCTIVE SPACE O P CF A5,OUTPUT SE
0x1f8688…1f881c Dummy {f00=0x009d, f01=0x0190, f02=» RB(NE) BACA10 O P NGR A3,A3 NEGATE REGISTER P 4 P ADS A3,DWTBC+DWTDEV,A6 UPDATE POSITION COUNTER P 8 P RTN A5 P p P XIF P P EJECT P @ P************************************************************ P P* P , P* FASTER = SUBROUTINE FOR FAS
0x1f881c…1f89b0 Dummy {f00=0x009d, f01=0x0190, f02=»************************************************************ P PFASTER EQU * Q D P IFT WHATDY=1 Q X P LD A2,DWTDEV,A6 PTS Q n " P ANKL A2,/1000 6342 OR 6351 ? Q P RF(Z) FAS005 NO ! Q P* Q 6 P* SIMULATED "FAST OUTPUT" FOR PTS 6342 AND 6351 Q
0x1f89b0…1f8b44 Dummy {f00=0x009d, f01=0x0190, f02=»HARACTERS Q v P* R . P LD A1,DWTPOS+DWTDEV,A6 GET MAX. POSITIONS R P ANK A1,/FF R N P SUR A1,A2 COMPARE R b P RF(NN) FAS002 LENGTH OK R | P ADR A4,A1 ADJUST LENGTH R * P ADK A4,1 ADJUST NUMBER OF CHARACTERS R P* R PFAS002 EQU * R P
0x1f8b44…1f8cd8 Dummy {f00=0x009d, f01=0x0190, f02=»RACTER TO SEND R ~ P CF A5,OUTPUT SEND S P RF(NZ) DYER50 S 0 P SUK A4,1 DECREMENT COUNTER S F P LDK A2,/FF S j P ANR A2,A4 S ~ P RB(P) FAS004 NEXT CHARACTER S P* S & P CF A5,ENDBLK START A NEW BLOCK TO S $ P RF(NZ) DYER50 AVOID OVERFLOW IN
0x1f8cd8…1f8e6c Dummy {f00=0x009d, f01=0x0190, f02=»S003 EQU * S P LDK A2,BACKSP T P CF A5,OUTPUT SEND BACKSPACE T ( P RF(NZ) DYER50 T L P SUK A4,1 DECREMENT COUNTER T b P RB(P) FAS003 NEXT T P RTN A5 T PFAS005 EQU * T P XIF T 6 P CC A4,DWTPOS+DWTDEV,A6 TEST NUMBER OF CHARACTERS T .
0x1f8e6c…1f9000 Dummy {f00=0x009d, f01=0x0190, f02=»DK A4,/20 ADD CONSTANT T P LDK A2,FASOUT FAST OUTPUT U P CF A5,OUTPUT SEND U @ PDYER48 RF(NZ) DYER50 U Z P LDR A2,A4 NO OF CHAR U v P ANK A2,/FF U P CF A5,OUTPUT SEND U P RF(NZ) DYER50 U P LDR A2,A3 U P CF A5,OUTPUT SEND U P RF(
0x1f9000…1f9194 (1, 439) Dummy {f00=0x009e, f01=0x018e, f02=» ENTERED WHEN RETURN CODE IS SET U ~ ( P* AFTER STABLK, OUTPUT OR ENDBLK. V ( P* V T : P****************************************************** V ^ PDYER50 EQU * V P LD A7,DWTST,A6 V P SLC A7,2 ECHO ? V * P ABL(N) ECHRTN YES ! RETURN FROM ECHO V
0x1f9194…1f9328 Dummy {f00=0x009e, f01=0x0190, f02=» * P LD A7,DWTOR,A6 GET ORDER. ORDER 00 ? W P ANK A7,/FF W 2 P RF(Z) DYER52 YES ! W F P SUK A7,5 ORDER 5 ? W b P RF(Z) DYER52 YES ! W ~ P SUK A7,/2B ORDER 31 ? W P RF(Z) DYER52 YES ! W P* W P SRC A1,2 LRC-ERROR ? W P RF(N) DYER7
0x1f9328…1f94bc Dummy {f00=0x009e, f01=0x0190, f02=»OPERABLE" BIT W j PDYER55 SLC A1,3 SHIFT BACK X P* X 8 P LDR A8,A8 =1 X B 2 P RF(Z) DYER60 NO ECB-ADDRESS (SYSTEM START) =1 X Z 2 P CM ECBCW,A8 CLEAR INSIGNIFICANT CONTROL WORD X PDYER60 EQU * =1 X P ABL LENDIS COMPLETE REQUEST X P* X
0x1f94bc…1f9650 Dummy {f00=0x009e, f01=0x0190, f02=»DDRESS = ZERO ? = 2 X , P ABL(Z) ENDIO YES, DON'T SEND AGAIN = 2 Y P IFT WHATDY=1 Y L ( P LD A4,DWTDEV,A6 6344,6385 OR 6386 ? Y b P ANKL A4,/1000 Y P RF(Z) DYER90 YES ! Y 6 P LC A4,DWTBC+DWTDEV,A6 GET NUMBER OF POS. TO BACK Y P ANK A4,/FF Y
0x1f9650…1f97e4 Dummy {f00=0x009e, f01=0x0190, f02=»AIN Y x PDYER90 EQU * Z P XIF Z P* Z , 0 P LD A4,DWTAP+DWTDEV,A6 GET HEAD POS. COUNTER Z 6 ( P CF A5,CURPOS SET CURSOR ON DISPLAY Z j P LDK A3,0 RESET BUFFER INDEX Z P LD A7,DWTOR,A6 GET ORDER Z P ANK A7,/FF Z P ABL ACDY Z P EJECT
0x1f97e4…1f9978 Dummy {f00=0x009e, f01=0x0190, f02=» POSITION POINTER WHEN END Z ( P* OF REQUEST IS REACHED [ . P* [ Z @ P************************************************************ [ d PUPDAPP EQU * [ 0 P LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER [ P ANK A2,/FF [ 8 P ADS
0x1f9978…1f9b0c Dummy {f00=0x009e, f01=0x0190, f02=» [ @ P************************************************************ P* L 6 P* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION V 0 P* COUNTER WHEN REQUEST RUNNING. D P* A CHECK THAT POINTER NOT EXCEEDS THE LIMIT IS DONE
0x1f9b0c…1f9ca0 Dummy {f00=0x009e, f01=0x0190, f02=»N COUNTER n 8 P AD A2,DWTAP+DWTDEV,A6 INCLUDE HEAD POSITION POINTER ] P ANK A2,/FF ] N ( P CC A2,DWTPOS+DWTDEV,A6 END OF ROW ? ] b P RF(G) POSU10 ] ( P IM DWTBC+DWTDEV,A6 POSITION COUNTER ] PPOSU10 RTN A15 ] P IFT GREECE=1 =4 ] P EJECT
0x1f9ca0…1f9e34 (1, 440) Dummy {f00=0x009e, f01=0x0190, f02=»=4 ] 8 P* BEFORE THEY ARE SENT TO THE DISPLAY =4 ^ P* ^ F : P*************************************************** =4 ^ P PGRCHAR EQU * = ^ , P LDR A1,A2 IS IT A GREEK CHARACTER ? =4 ^ P SUK A1,/B9 =4 ^ P RF(P) GRCH10 NO =4 ^
0x1f9e34…1f9fc8 Dummy {f00=0x009e, f01=0x0190, f02=»HARACTER TABLE =4 ^ P* =4 _ PGRCH10 EQU * =4 _ * P RTN A15 =4 _ B P* =4 _ V PGRTAB EQU * =4 _ f , P DATA /2223,/263B,/405B,/5C5D,/5E5F =4 _ ~ P XIF =4 _ P IFT TRASPA=1 _ P EJECT _ 6 P************************************
0x1f9fc8…1fa15c Dummy {f00=0x009e, f01=0x0190, f02=» _ ` 0 P* LETES LOW INTENSITY START, HIGH ` P* INTENSITY START. ` < P* AND TABULATIONS ` ` P* ` | 6 P************************************************** ` P* ` PTRASP EQU * ` , P LD A1,ECBBA,A8 GET BUFFER ADDRESS (BA) `
0x1fa15c…1fa2f0 Dummy {f00=0x009e, f01=0x0190, f02=» ` z P SUK A1,1 DECR. BA a P LCR A4,A1 GET CHAR a " P ANK A4,/FF a > P SUK A4,/20 SPACE ? a R P RF(Z) SKIP07 YES a n P ADK A4,1 LOW INT. STOP ? a P RF(Z) SKIP07 YES ! a P ADK A4,1 LOW INT. START ? a P RF(Z) SKIP07 YES ! a P CWK
0x1fa2f0…1fa484 Dummy {f00=0x009e, f01=0x0190, f02=»SKIP30 YES ! a PSKIP07 SUK A2,1 DECR RL b P RB SKIP05 GET NEXT b 4 PSKIP30 EQU * b P P LD A4,ECBRL,A8 b d ( P ST A4,ECBCW,A8 SAVE OLD REQ. LENGTH b | P* b P ST A2,ECBRL,A8 STORE NEW RL b P* b P RTN A15 b P XIF b P EJECT b @
0x1fa484…1fa618 Dummy {f00=0x009e, f01=0x0190, f02=»ND SETS CURSOR & HEAD POSITION b | , P* COUNTER TO HOME POSITION ( /0101 ). c & P* c V @ P************************************************************ c ` P* c PRCDY EQU * c P LDKL A2,/7FFF c " P ANS A2,DWTST,A6 INDICATE BUSY c P* c $ P L
0x1fa618…1fa7ac Dummy {f00=0x009e, f01=0x0190, f02=»COUNTRY=0 c & P LD A2,DWTDEV,A6 GET DEVICE STATUS d & P ANKL A2,/2000 PTS 6385 OR 6386 ? d < P RF(Z) RCDY20 NO ! d f ( P LDK A3,/40 SET UP TRANSFER COUNTER d P* d 0 PRCDY10 LDK A2,STILL-1 SET UP CURSOR BLINKING d * P ADK A2,STEADY ADJUST TO STEAD
0x1fa7ac…1fa940 Dummy {f00=0x009e, f01=0x0190, f02=»Y10 NOT ENOUGH TRANSFERS d * P LDK A2,CTYCOD SEND "SET COUNTRY CODE" e P CF A5,OUTPUT e N P RB(NZ) RCER e d ( P LDK A2,COUNTRY SEND "COUNTRY CODE" e x P ORK A2,/30 MAKE ASCII DIGIT e P CF A5,OUTPUT e P RB(NZ) RCER e PRCDY20 EQU * e P X
0x1fa940…1faad4 (1, 441) Dummy {f00=0x009e, f01=0x0190, f02=»OME POSITION e 4 P ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER f P LDK A2,0 f L : P SC A2,DWTBC+DWTDEV,A6 RESET CURRENT POSITION COUNTER f ^ P* f P ABL ENDIO f P* f , P**************************************** f P* f P* ABORT RO
0x1faad4…1fac68 Dummy {f00=0x009e, f01=0x4038, f02=»TER f l P ABL LENDIS END I/O g P END g (@ g 4TION COUNTER f P LDK A2,0 f L : P SC A2,DWTBC+DWTDEV,A6 RESET CURRENT POSITION COUNTER f ^ P* f P ABL ENDIO f P* f , P**************************************** f P* f P* ABORT RO
0x1fac68…1fadfc Dummy {f00=0x009e, f01=0x2008, f02=» h 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 '
0x1fadfc…1faf90 Dummy {f00=0x009e, f01=0x0190, f02=»ATE CURRENT BLOCK MOVED * P ESR A3,A2 STORE NEW MOVED BLOCK MASK P* N & P* UPDATE MOVED MASK IN SECOND T:A X P* P ELR A2,A6 GET T:A POINTER $ P ELR A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED * P E
0x1faf90…1fb124 Dummy {f00=0x009e, f01=0x0190, f02=»***************************** h J P* * & J P* CHKMVD - CHECK IF BLOCK ALREADY MOVED * t J P* ===================================== *
0x1fb124…1fb2b8 Dummy {f00=0x009e, f01=0x0190, f02=» * ^ J P* * J P* ENTRY: A8 - POINTER TO T:A * j J P* BIT - BIT NUMBER IN CWB- OR UWB-MASK * J P*
0x1fb2b8…1fb44c Dummy {f00=0x009e, f01=0x0190, f02=» * T J P* * J P* WORK REGISTER: A1,A2 * ` J P* * J P* SUBROUTIN
0x1fb44c…1fb5e0 Dummy {f00=0x009e, f01=0x018e, f02=» J J P********************************************************************* P EJECT V PCHKMVD EQU * d P IFT MMUPAG=0 x P LDR* A1,A8 GET T:A POINTER $ P LDR* A1,A1 GET MOVED BLOCK MASK P XIF P IFT MMUPAG=1 P ELR A1,A8 G
0x1fb5e0…1fb774 (1, 442) Opaque[0x194]
0x1fb774…1fb908 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13d8, f03=0x0000}
0x1fb774…1fb908 IdxSect {
0x1fb774…1fb908 f00 = 0x009e // 0x1fb774 @0x0
0x1fb774…1fb908 f01 = 0x0024 // 0x1fb776 @0x2
0x1fb774…1fb908 gno = [ // 0x1fb778 @0x4
0x1fb774…1fb908 [0x00]: C0x009e.0x3.0
0x1fb774…1fb908 [0x01]: C0x009f.0x0.0
0x1fb774…1fb908 [0x02]: C0x009f.0x1.0
0x1fb774…1fb908 [0x03]: C0x009f.0x2.0
0x1fb774…1fb908 [0x04]: C0x009f.0x3.0
0x1fb774…1fb908 [0x05]: C0x00a0.0x0.0
0x1fb774…1fb908 [0x06]: C0x00a0.0x1.0
0x1fb774…1fb908 [0x07]: C0x00a0.0x2.0
0x1fb774…1fb908 [0x08]: C0x00a0.0x3.0
0x1fb774…1fb908 [0x09]: C0x00a1.0x0.0
0x1fb774…1fb908 [0x0a]: C0x00a1.0x1.0
0x1fb774…1fb908 [0x0b]: C0x00a1.0x2.0
0x1fb774…1fb908 [0x0c]: C0x00a1.0x3.0
0x1fb774…1fb908 [0x0d]: C0x00a2.0x0.0
0x1fb774…1fb908 [0x0e]: C0x00a2.0x1.0
0x1fb774…1fb908 [0x0f]: C0x00a2.0x2.0
0x1fb774…1fb908 [0x10]: C0x00a2.0x3.0
0x1fb774…1fb908 [0x11]: C0x00a3.0x0.0
0x1fb774…1fb908 ]
0x1fb774…1fb908 }
0x1fb908…1fba9c Dummy {f00=0x009e, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 11.0 81-04-14 870105041100 P : P =8, REL 11.0 81-02-27 B < P =8, IBM ,MMU AND IO TO SYSTEM AREA NO CODE CONVERSION b P =7, REL 11.0 81-02-23 8 P =7, CRN UPDATED EVEN IF ERROR FOR SEQUENTIAL READ P =6, REL
0x1fba9c…1fbc30 Dummy {f00=0x009e, f01=0x0190, f02=»CHANGED CORRRECT z P =4, REL 11.0 81-02-18 * P =4, IBM VOLUME NAME NOT READ TO DWT 8 P =3, REL 11.0 81-01-27 f 8 P =3, IBM,LOAD ORDER, DATA SET SECTOR NBR IN ECBCW1 P =2, REL 11.0 81-01-26 . P =2, NOT OP. GIVEN IF WRONGLY STRAPT
0x1fbc30…1fbdc4 Dummy {f00=0x009e, f01=0x0190, f02=» P* " P* PHILIPS TERMINAL SYSTEM PTS P* 4 ( P* DRFD01 = DRIVER FOR FLEXIBLE DISK > P* j P* t P* ~ P* P* P* 2 P********************************************* P* P* 0 P* THIS DISK DRIVER HAND
0x1fbdc4…1fbf58 Dummy {f00=0x009e, f01=0x0190, f02=»TIPLEX OR PROGRAMMED CHANNEL P* $ P* . P EJECT DRFD01 8 P* P P* ORDERS: Z P* l P* /00 TEST STATUS v P* /01 PHYSICAL READ B P* /02 SEQUENTIAL READ -IBM DISC ONLY- P* /05 BASIC WRI
0x1fbf58…1fc0ec Dummy {f00=0x009e, f01=0x018e, f02=» x P* /21 OPEN P* /22 CLOSE P* /24 WRITE DELETED DATA 0 P* /26 LOCK T D P* /31 REWIND -IBM DISC ONLY- j P* /37 LOAD P* /38 UNLOAD P* P* ENTRY PARAMETERS: P*
0x1fc0ec…1fc280 Dummy {f00=0x009e, f01=0x0190, f02=» P* P*********** P* * " P* ENTRIES * 6 P* * J P*********** ^ P* r $ P ENTRY FDADR ACTIVATION ADDRESS | " P ENTRY IHFD INTERRUPT HANDLER P ENTRY FDON RECOVERY ROUTINE P ENTRY DWFD01 DWT-ADDRESS
0x1fc280…1fc414 (1, 443) Dummy {f00=0x009f, f01=0x0190, f02=»******* P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO : P EXTRN DISIOE REQUEST ERROR V * P EXTRN DISEND PERFORM TENDIO AND TDISP z $ P EXTRN VOLCLR CLEAR VOLUME NAME & P EXTRN VOLNAM VOLUME NAME ADDRESS 0 P EXTRN VOLGET
0x1fc414…1fc5a8 Dummy {f00=0x009f, f01=0x0190, f02=»DRESS | " P EXTRN DWTUEC USER ECB ADDRESS $ P EXTRN DWTOR DWT INDEX AND ORDER 4 ( P EXTRN DWTORD ORDER/INDEX SAVE AREA P EXTRN DWTTAB TTAB ADDRESS P EXTRN DWTA2 SAVE AREA A2 & P EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN TTB:MT MMU
0x1fc5a8…1fc73c Dummy {f00=0x009f, f01=0x0190, f02=»FPOST PWF POST PROC. FLAG & P EXTRN TASCII EBCDIC TO ASCII TAB " & P EXTRN TEBCDIC ASCII TO EBCDIC TAB L 0 P EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE v $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL
0x1fc73c…1fc8d0 Dummy {f00=0x009f, f01=0x0190, f02=» P************************ P* * ( P* CONDITIONAL ASSEMBLY * H P* * h P************************ P* . P* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED P* CHANNEL BY SETTING X:A = 0 P
0x1fc8d0…1fca64 Dummy {f00=0x009f, f01=0x0190, f02=» TOSS EQU 1. x P* PX:B EQU 0 PTOSS EQU X:B 0 P* D 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT N ( P* IS OBTAINED BY SETTING IBM EQU 1. P* PX:C EQU 0 PIBM EQU X:C P* . P* A PROGRAM VERSION USING TOSS
0x1fca64…1fcbf8 Dummy {f00=0x009f, f01=0x018e, f02=»USING THE EXTENDED INSTRUCTION | . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. & P* X PCPU852 EQU 1 b P* v P EJECT DRFD01 P* P* @ P* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER D P* TO THE DISK DRIVE U
0x1fcbf8…1fcd8c Dummy {f00=0x009f, f01=0x0190, f02=» P* P* MMU BUFFER SIZE P* . P* 8 P IFT MMUPAG=0 B PDVBLEN EQU 256 X P XIF n P* z P IFT MMUPAG=1 PX:E EQU 256 PDVBLEN EQU X:E P XIF P* P* P* MMU DEVICE INDEX P*
0x1fcd8c…1fcf20 Dummy {f00=0x009f, f01=0x0190, f02=»S * P* * P************* " P* 8 & PCUADR EQU 09 CONTROL UNIT ADDRESS B & PMUXADR EQU CUADR+CUADR MUX-ADDRESS l ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS PSECLEN EQU 128 SECTOR LENGTH & PMAXSEC EQU 2002 MAX SECTOR NUMBER
0x1fcf20…1fd0b4 (1, 444) Dummy {f00=0x009f, f01=0x0190, f02=» n $ PEOD EQU 74 END OF DATA POSITION PTIME EQU 20 DELAY - POWER ON 0 & POPENTI EQU 10 DELAY AT OPEN ORDERS T P* ~ $ PDIXTAB EQU * DOUBLE INDEX TABLE P DATA /0102 P DATA /0408 P* P EJECT DRFD01 P* P****
0x1fd0b4…1fd248 Dummy {f00=0x009f, f01=0x018e, f02=»LEN MMU BUFFER SIZE P XIF P* ( P IFT CHAN=0 2 P IFT IBM=0 F " P DATA 0 INDICATE NO MMU BUFFER X P XIF ~ P* P DATA DEVIND DEVICE INDEX & PFDADR DATA FDAD ACTIVATION ADDRESS " P DATA 0 ABORT ROUTINE ADDRESS P*
0x1fd248…1fd3dc Dummy {f00=0x009f, f01=0x0190, f02=» P*************** P* PTESTST EQU * & P IFF IBM+TOSS=0 : P CF A15,NVLCHK R " P STR A1,A6 SAVE NVL INDICATOR h P XIF P* P LDKL A2,/FFF9 BIO DUMMY P CF A5,FD:WRI P ANK A1,1 $ P RF(NZ) DIS:EN DISC NOT OPER
0x1fd3dc…1fd570 Dummy {f00=0x009f, f01=0x0190, f02=» NAME x , P LD A1,DWTORD,A6 RESTORE INDEX AND ORDER P ST A1,DWTOR,A6 > P CF A15,VOLNAM V P RF FORM70 END:IO l P XIF P* P IFT TOSS+IBM=0 P ABL END:RC P XIF P* P EJECT DRFD01 P* P**********
0x1fd570…1fd704 Dummy {f00=0x009f, f01=0x0190, f02=» P* PFORMAT EQU * P CF A15,NVLCHK " P ADK A1,0 8 , P RF(NZ) DIS:EN ERROR: NEW VOLUME LOADED J P LDK A2,36 CLEAR VOLUME NAME z PFORM10 EQU * P CM BUF,A2 P SUK A2,2 P RB(NN) FORM10 . P CF A15,VOLCLR CLEAR VOLUME
0x1fd704…1fd898 Dummy {f00=0x009f, f01=0x018e, f02=» RF(NZ) FORM50 IBM DISC , P LDKL A1,'TO' WRITE TOSS IN VOLUME LABEL P ST A1,BUF+32 P P LDKL A1,'SS' f P ST A1,BUF+34 | P IFT IBM=1 " P C1 A1,DWTA3,A6 INDICATE TOSS P ANS A1,DWTLAB,A6 P XIF P RF FORM60 P*
0x1fd898…1fda2c Dummy {f00=0x009f, f01=0x0190, f02=» P LDKL A1,/E5D6 VO IN EBCDIC P STR A1,A4 ( P LDKL A1,/D3F1 L1 IN EBCDIC : P ST A1,BUF+2 ^ P IFT IBM=1 r P LD A1,DWTA3,A6 INDICATE IBM P ORS A1,DWTLAB,A6 P XIF P LDK A2,/31 BIO P LDK A3,36 LENGTH PFORM60 E
0x1fda2c…1fdbc0 Dummy {f00=0x009f, f01=0x0190, f02=» P* * P* ACTIVATION * P* * 0 P************** F P* PFDAD EQU * ACTIVATION ENTRY f P IFT MMUPAG=1 P IFT CHAN=0 P CM BUFFLG,A6 P XIF P* $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P
0x1fdbc0…1fdd54 (1, 445) Dummy {f00=0x009f, f01=0x0190, f02=»DEX z P* P IFT OPCLOS=1 P* , & P* CHECK IF OPEN OR CLOSE ORDER 6 P* ` P LDR A1,A7 ORDER j P SUK A1,/21 P RF(Z) OPEN OPEN P SUK A1,1 " P RF(NZ) FD:ORD NOT CLOSE ORDER P* P EJECT P* P
0x1fdd54…1fdee8 Dummy {f00=0x009f, f01=0x0190, f02=» ONE TO BIT l 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER P* J " P LDKL A1,/8000 MASK FOR BIT 0 T & P ORS A1,SPDLCI SET OPEN/CLOSE BIT z P RF OPEN10 P* P EJECT P* P******** P* * P* OPEN * P
0x1fdee8…1fe07c Dummy {f00=0x009f, f01=0x0190, f02=»EGISTER. j P* POPEN EQU * " P LD A1,DWTTP2,A6 TIMER POINTER , P RF(NZ) OPEN20 TIMER ACTIVE R " P LDKL A1,/7FFF MASK FOR BIT 0 v ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT P* POPEN10 EQU * 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/
0x1fe07c…1fe210 Dummy {f00=0x009f, f01=0x0190, f02=» TIMER POINTER OFFSET ( P ADR A4,A6 A4:=TIMER POINTER ADDRESS P LDR A1,A6 SAVE DWT-ADDR J P CF A15,SETIMP WAIT j . P DATA OPENRE,OPENTI START ADDR, WAIT TIME POPEN20 EQU * P ABL TDISP EXIT P* POPENRE EQU * P LDR A
0x1fe210…1fe3a4 Dummy {f00=0x009f, f01=0x0190, f02=»ISP p P XIF P* P EJECT " P* 0 & P* PUT DRIVE NO IN CIO-INSTRUCTION : P* d PFD:ORD EQU * n P LC A2,DIXTAB,A3 , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK P* P IFT IBM+TOSS=2 P AN A2,DWTLAB,A6 ( P SC
0x1fe3a4…1fe538 Dummy {f00=0x009f, f01=0x018e, f02=» P* P LDR A3,A7 P RB(Z) TESTST TEST STATUS P* B P IFT IBM=0 L P SUK A3,31 ^ P RB(Z) FORMAT FORMAT VOLUME p P SUK A3,7 " P RF(N) INTEST READ/WRITE ORDER P SUK A3,18 P ABL(NP) LOAD LOAD/UNLOAD P XIF
0x1fe538…1fe6cc Dummy {f00=0x009f, f01=0x0190, f02=» P SUK A3,3 P RF(Z) INTEST BASIC WRITE P SUK A3,1 8 " P RF(Z) IBMCHK SEQUENTIAL WRITE J P SUK A3,25 p P RB(Z) FORMAT FORMAT VOLUME P SUK A3,7 & P RF(N) INTEST PHYSICAL READ/WRITE P SUK A3,11 P RF(Z) IBMCHK REWIND
0x1fe6cc…1fe860 Dummy {f00=0x009f, f01=0x0190, f02=»FIB,A6 & P ABL(NZ) IBMDSK IBM DISC HANDLING P XIF 8 P* D P IFT TOSS=0 N P IFT IBM=1 b " P ABL IBMDSK IBM DISC HANDLING t P XIF P* P EJECT DRFD01 P* P* $ PREQERR ABL DISIOE REQUEST ERROR P*
0x1fe860…1fe9f4 (1, 446) Dummy {f00=0x009f, f01=0x0190, f02=»ORM TENDIO AND GO TO TDISP P* " P EJECT DRFD01 , P* B P* INPUT PARAMETER CHECK L P* l PINTEST EQU * v P IFF TOSS+IBM=0 . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED P ADK A1,0 $ P RB(NZ) DIS:EN NEW VOLUME LOADED
0x1fe9f4…1feb88 Dummy {f00=0x009f, f01=0x0190, f02=»L A2,DVBLEN+DVBLEN CHECK MMU BUFFER SIZE P CWK A2,512 0 P RF(NL) INTES3 SUFFICIENT D P CWR A3,A2 f & P RB(G) INCLEN MMU BUFFER TOO SMALL x PINTES3 EQU * P XIF ( P SRC A3,7 NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT IN
0x1feb88…1fed1c Dummy {f00=0x009f, f01=0x018e, f02=»ER p P* P IFT IBM+TOSS=2 P LD A4,DWTFIB,A6 , P RF(NZ) INTES5 IBM-DISC D P XIF d P* p P IFT TOSS=1 z P LDR A4,A3 6 P SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL
0x1fed1c…1feeb0 Dummy {f00=0x009f, f01=0x0190, f02=» P XIF ! * P LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER ! P RB(N) REQERR REQUEST ERROR ! > P SUKL A4,MAXSEC ! b P RB(NN) REQERR REQUEST ERROR ! z P ADR A4,A3 ! " P RB(P) INCLEN INCORRECT LENGTH ! , P ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS ! 2 P S
0x1feeb0…1ff044 Dummy {f00=0x009f, f01=0x0190, f02=» ! P IFT MMUPAG=1 " P LCR A2,A8 " P ANK A2,/30 " 0 4 P ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS " D P XIF " | P* " P EJECT DRFD01 " P* " P* MULTIPLE SECTOR IO ENTRY " P* " PFD:000 EQU * " P IFT MMUPAG=1 "
0x1ff044…1ff1d8 Dummy {f00=0x009f, f01=0x0190, f02=»3 " P SUK A3,4 # & P RF(NN) FD:005 FOUR PHYS. SEC. IO # P* # F PFD:003 SUK A2,128 # P P SUK A4,1 # j P ADK A3,1 # | P RB(NZ) FD:003 # P* # PFD:005 EQU * # . P ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC # ( P ST A2,DWTRL,A6 UPDA
0x1ff1d8…1ff36c Dummy {f00=0x009f, f01=0x0190, f02=»PAG=1 # P IFF CHAN+IBM=0 $ " P LD A2,DWTBA,A6 BUFFER ADDRESS $ & P LD A1,DWT:BF,A6 $ L , P RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA $ d P LDR A3,A2 $ P RF(NN) FD:009 $ 6 P AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED $ P RF(N) FD:009 NO $
0x1ff36c…1ff500 Dummy {f00=0x009f, f01=0x0190, f02=»LL A1,2 $ P ORR A1,A3 % 2 P SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS % " ( P ADK A1,/4 CREATE ONE MORE MMU ENTRY % X P SC A1,DWT:PA+2,A6 % P ANKL A2,/FFF % P LDR A1,A2 % ( P ORK A1,1 INDICATE ADDRESS NOT ZERO % P* % 8 PFD:009 ST A1
0x1ff500…1ff694 (1, 447) Dummy {f00=0x00a0, f01=0x0190, f02=»/3F ORDER % P SUK A1,1 & P RF(Z) FD:060 BASIC READ & $ P SUK A1,4 & D P RF(Z) FD:015 BASIC WRITE & V P SUK A1,12 & x P RF(Z) FD:060 PHYSICAL READ & P SUK A1,4 & P RF(Z) FD:013 PHYSICAL WRITE & * P SUK A1,15 CHECK IF WRITE DELETED DA
0x1ff694…1ff828 Dummy {f00=0x00a0, f01=0x0190, f02=»AL AND BASIC WRITE ORDERS & r P* ' " & P LDK A4,1 WRITE DELETED DATA ORDER ' , & PFD:013 EQU * PHYSICAL WRITE ORDER ' V P ADK A4,4 ' " PFD:015 EQU * BASIC WRITE ORDER ' P ADK A4,1 ' " P CF A5,BIO PREPARATION FOR CIO ' P* ' P IFT MMUPAG=1
0x1ff828…1ff9bc Dummy {f00=0x00a0, f01=0x0190, f02=»PAG=1 ' P IFF CHAN+IBM=0 ( 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( & ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA ( ^ P LDR A7,A3 REQUESTED LENGTH ( P LDR A8,A2 SAVE A2 ( & P LDKL A4,BUF DRIVER BUFFER ADDRESS ( P LDR A2,A4 ( & P TS
0x1ff9bc…1ffb50 Dummy {f00=0x00a0, f01=0x0190, f02=» TL -30,A15 RESTORE MMU FROM STACK ( P LDR A2,A8 RESTORE A2 ) * 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA ) H PFD:019 EQU * ) | P XIF ) P* ) P IFT TOSS+IBM=2 ) P LD A1,DWTFIB,A6 ) P RF(Z) FD:018 NOT IBM ) P XIF ) P* )
0x1ffb50…1ffce4 Dummy {f00=0x00a0, f01=0x0190, f02=»CT DRFD01 ) P* * P* * " P CF A5,FD:WRITE PERFORME WRITE * ( * P ANKL A3,/200 CHECK IF WRITE PROTECTED * N P RF(Z) FD:020 * | P LDK A3,/40 INDICATE ERROR * , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE * PFD:020 EQU * * P RF FD:100 GOTO
0x1ffce4…1ffe78 Dummy {f00=0x00a0, f01=0x0190, f02=»* * * P***************** + P* + 4 PFD:060 CF A5,BIO + > P* + V P IFT MMUPAG=1 + ` P IFT CHAN=0 + v P IFT TOSS+IBM=2 + P LD A1,DWTFIB,A6 + P RF(Z) FD:070 TOSS DISC + & P LDKL A4,BUF DRIVER BUFFER ADDRESS + 0 P CM
0x1ffe78…20000c Dummy {f00=0x00a0, f01=0x0190, f02=»A1,DWT:LA,A6 + ( P RF(Z) FD:080 BUFFER IN SYSTEM AREA , & P LDKL A4,BUF DRIVER BUFFER ADDRESS , @ 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA , j P XIF , P* , P IFT MMUPAG=1 , P IFT IBM=1 , P IFT TOSS+CHAN=0 , & P LDKL A4,BUF DRIVER
0x20000c…2001a0 Dummy {f00=0x00a0, f01=0x0190, f02=»M READ , | P* - P IFT TOSS+IBM=2 - P LD A1,DWTFIB,A6 - 0 P RF(Z) FD:090 NOT IBM - H P XIF - f P* - r P IFT IBM=1 - | P IFT MMUPAG=0 - ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS - P XIF - P* - P IFT IBM=1 - P LD A7,DWTRL,A6
0x2001a0…200334 (1, 448) Dummy {f00=0x00a0, f01=0x0190, f02=»WTBA,A6 BUFFER ADDRESS =8 - * P CF A5,ASC:00 CONVERT EBCDIC-ASCII =8 . " P RF FD:090 =8 . P PFD:085 EQU * =8 . f P XIF =8 . ~ P IFT IBM=1 =8 . P CF A5,ASCII =8 . PFD:090 EQU * . P XIF . P* . P EJECT DRFD01 . P* .
0x200334…2004c8 Dummy {f00=0x00a0, f01=0x0190, f02=»IF . P* / P IFT MMUPAG=1 / P IFF CHAN+IBM=0 / * 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS / B ( P RF(Z) FD:100 BUFFER IN SYSTEM AREA / z $ P LD A7,DWTRL,A6 REQUESTED LENGTH / ( P LDKL A1,BUF GET DWT BUFFER ADDRESS / & P TS -30,A15 SA
0x2004c8…20065c Dummy {f00=0x00a0, f01=0x0190, f02=»5 RESTORE MMU FROM STACK / P XIF 0 PFD:100 EQU * 0 , P ABL FDMSIO 0 @ P* 0 T P EJECT DRFD01 0 ^ P* 0 v P******** 0 P* * 0 P* LOAD * 0 P* * 0 P******** 0 P* 0 PLOAD EQU * 0 P ADK A3,0 CHECK ORDER CODE 0
0x20065c…2007f0 Dummy {f00=0x00a0, f01=0x0190, f02=»LOCK 0 t P* 1 PLOAD00 EQU * 1 P LDK A2,/14 LOCK 1 * P CF A5,FD:REA 1 B P ANK A3,1 1 X & P RF(NZ) LOA:80 ENDIO NOT OPERABLE 1 j P* 1 P IFT TOSS+IBM=2 1 P LD A1,DWTFIB,A6 1 P RF(Z) LOA:70 TOSS DISC 1 P XIF 1 P* 1 P IFT
0x2007f0…200984 Dummy {f00=0x00a0, f01=0x0190, f02=» CHECK RETURN CODE 1 P EJECT DRFD01 2 P* 2 2 P* READ DATA SET LABEL 2 < P* 2 Z & P LD A2,ECBCW1,A8 SECTOR NUMBER =3 2 d P SUK A2,7 2 P RF(N) LOA:85 REQUEST ERROR 2 P SUK A2,18 2 P RF(P) LOA:85 REQUEST ERROR 2 P ADK A2,25 2
0x200984…200b18 Dummy {f00=0x00a0, f01=0x018e, f02=») LOA:60 NOT NO DATA 2 0 P ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL 3 PLOA:60 EQU * 3 P P CF A5,LD:RC 3 d P ENB 3 x . P LD A3,ECBCW1,A8 DATA SET LABEL SECTOR =3 3 P LDK A1,DWTDSS 3 P CF A5,STDWT SAVE IN DWT 3 P ADK A4,BOE BOE ADDRESS 3
0x200b18…200cac Dummy {f00=0x00a0, f01=0x0190, f02=» P LDK A1,DWTCRN 4 P CF A5,STDWT 4 P ADK A4,EOE-BOE EOE ADDRESS 4 . P CF A5,LOGSEC 4 R P LDK A1,DWTEOE 4 h $ P CF A5,STDWT STORE EOE NO IN DWT 4 ~ P ADK A4,EOD-EOE EOD ADDRESS 4 P CF A5,LOGSEC 4 F P INH INHIBIT INTERRUPTS
0x200cac…200e40 Dummy {f00=0x00a0, f01=0x0190, f02=»400 4 , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE 5 P* 5 < PLOA:70 EQU * 5 F P XIF 5 Z P LD A2,DWTA3,A6 5 f " P ORS A2,DWTLC,A6 INDICATE LOCK 5 ~ PLOA:80 EQU * 5 P ABL END:RC 5 P* 5 P IFT IBM=1 5 PLOA:85 EQU * 5 P LDK A1,/80
0x200e40…200fd4 (1, 449) Dummy {f00=0x00a0, f01=0x018e, f02=» IFF TOSS+IBM=0 5 P* 6 P* ERROR , UNLOCK 6 " P* 6 < PLOA:90 EQU * 6 F P LDR A5,A6 6 Z P ADKL A5,DWTSB2 STACK BASE 6 l P LDK A2,/C UNLOCK 6 P CF A5,FD:REA 6 P RB LOA:80 6 P* 6 P* LD:RC SUBROUTINE 6 P* 6 PLD:RC
0x200fd4…201168 Dummy {f00=0x00a0, f01=0x0190, f02=» P* 7 P EJECT DRFD01 7 P* 7 & P********** 7 0 P* * 7 B P* UNLOAD * 7 T P* * 7 f P********** 7 x P* 7 PUNLOAD EQU * 7 P IFT IBM=1 7 P* 7 P* DATA SET OPEN 7 P* 7 P CF A5,DSOPCH A1,AFFECTED 7
0x201168…2012fc Dummy {f00=0x00a0, f01=0x0190, f02=» READ DATA SET LABEL TO DRIVER BUFFER 7 P* 8 . P CF A5,DSLIO PREPARE FOR I/O 8 8 & P CF A5,FD:REA READ DATA SET LABEL 8 $ P CF A5,UNL:RC RETURN CODE CHECK 8 P ENB 8 P* 8 < P* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED) 8 P* 8
0x2012fc…201490 Dummy {f00=0x00a0, f01=0x0190, f02=» UNL:20 8 P ADK A1,1 9 P RB UNL:10 9 " P* 9 4 P EJECT DRFD01 9 > P* 9 V P* 9 ` PUNL:20 ADK A7,27 9 j P* 9 P* A1 = BINARY TRACK NO 9 * P* A7 = SECTOR NO WITHIN TRACK (0-25) 9 P* 9 ( P CF A5,BINDEC TRANSFORM SEC.NO TO A3
0x201490…201624 Dummy {f00=0x00a0, f01=0x0190, f02=»BUFFER 9 | P LDR A7,A1 TRACK : ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 : & P SUK A4,3 : R P STR A3,A4 TRACK INTO BUF : d F P INH INHIBIT INTERRUPTS INHIBIT : P* : P* WRITE DATA SET LABEL : P* : P CF
0x201624…2017b8 Dummy {f00=0x00a0, f01=0x0190, f02=»ODE : t P CF A5,DSOPCH ; P CMR A2 INDICATE NOT OPEN ; " P* ; D P EJECT DRFD01 ; N P* ; f P* UNLOCK ; p P* ; P XIF ; PUNL:70 EQU * ; P LDK A2,/C UNLOCK ; P CF A5,FD:REA ; P ANK A3,1 ; P RB(NZ) LOA:80 NOT OPERA
0x2017b8…20194c Dummy {f00=0x00a0, f01=0x018e, f02=»BM=1 ; P* < P* UNLOAD RETURN CODE CHECK < P* < : PUNL:RC EQU * < D P ANKL A3,/207 < X P RF(Z) RTN:A5 NO RETURN CODE < n P ANKL A3,/200 < & P RF(Z) RTN:A5 NOT WRITE PROTECTED < P CF A5,DSOPCH < P ADK A7,0 SET CR (CHECK EOD) <
0x20194c…201ae0 Dummy {f00=0x00a0, f01=0x0190, f02=» P* = P EJECT DRFD01 = P* = & P* = 0 ( PIBMDSK EQU * IBM DISK HANDLING ENTRY = : P IFT IBM=1 = f . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED = x P ADK A1,0 = & P ABL(NZ) END:IO NEW VOLUME LOADED = P CF A5,DSOPCH GET EOD = P ADK
0x201ae0…201c74 (1, 450) Dummy {f00=0x00a0, f01=0x0190, f02=»D REWIND FILE = * P LD A3,ECBRL,A8 CHECK REQUESTED LENGTH > P IFT MMUPAG+CHAN=2 > D P CWK A3,DVBLEN+DVBLEN > ^ ( P ABL(G) INCLEN MMU BUFFER TOO SMALL > | P XIF > P IFT IBM=1 > P SUK A3,SECLEN > $ P ABL(NZ) INCLEN INCORRECT LENGTH > P ADK
0x201c74…201e08 Dummy {f00=0x00a0, f01=0x0190, f02=»JECT DRFD01 > P* ? P******************* ? P* SEQUENTIAL READ * ? < P******************* ? X P* ? t . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN ? ~ P LDR* A3,A2 CRN ? P ADK A3,1 CRN+1 ? ( P ST A3,ECBCW2,A8 STORE CRN+1 IN ECB ?
0x201e08…201f9c Dummy {f00=0x00a0, f01=0x0190, f02=» P CF A5,BIOSQ @ 2 P CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 @ P* @ N P IFT MMUPAG=0 @ X ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS @ n P XIF @ P* @ P IFT IBM=1 @ P LDK A7,SECLEN @ $ P CF A5,ASCII TRANSFORM TO ASCII @ P* @
0x201f9c…202130 Dummy {f00=0x00a0, f01=0x0190, f02=»DRESS @ x P TL TTB:MT,A7 LOAD MMU TABLE A & P LDKL A1,BUF DRIVER BUFFER ADDRESS A 2 & P LD A2,DWTUEC,A6 USER ECB ADDRESS A ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS A P LDK A7,SECLEN LENGTH A ( P MVSU A7 MOVE SECTOR TO USER BUFFER A , P TL -30,A15
0x202130…2022c4 Dummy {f00=0x00a0, f01=0x0190, f02=»ABLE =7 A ~ P RF SQW:10 UPDATE CRN B P* B . P* END OF DATA B 8 P* B P $ PSQR:10 LDKL A1,/1000 RETURN CODE B Z P RF END:IO B P* B P EJECT DRFD01 B P* B P******************* B P* SEQUENTIAL WRITE * B P****************
0x2022c4…202458 Dummy {f00=0x00a0, f01=0x0190, f02=»O ADDRESS TO A2 B ~ , P ST A7,ECBCW2,A8 STORE EOD IN ECB C. W. C P CWK A7,MAXIBM C H P RF(P) FD:DIS REQUEST ERROR C ^ P CWR* A7,A2 C P RF(G) ENDEOE END OF EXTENT C P* C P IFT MMUPAG=1 C ( P TS -30,A15 SAVE RUNNING TASK'S MMU C " P L
0x202458…2025ec Dummy {f00=0x00a0, f01=0x0190, f02=»UFFER ADDRESS C z & P LDKL A2,BUF DRIVER BUFFER ADDRESS D P LDK A7,SECLEN LENGTH D @ * P MVUS A7 MOVE SECTOR TO DRIVER BUFFER D ^ , P TL -30,A15 RESTORE MMU TABLE FROM STACK D P XIF D P* D P IFT IBM=1 D P LDK A4,5 BIO WRITE D P CF A5,B
0x2025ec…202780 Dummy {f00=0x00a0, f01=0x0190, f02=»F A5,FD:WRI D " P SRL A1,3 IF BIT 6 SET THEN =7 E P ANK A1,/40 SET BIT 9 =7 E : 0 P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE =7 E Z P CF A5,DSOPCH E PSQW:10 EQU * E 2 P ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE E P RF(NZ) END:RC E * P IMR
0x202780…202914 (1, 451) Dummy {f00=0x00a1, f01=0x0190, f02=» PFD:DIS EQU * F P ABL DISIOE REQUEST ERROR F P* F : P EJECT DRFD01 F D P* F P********** F f P* REWIND * F x P********** F P* F PREWIND EQU * F P LDR A3,A2 SAVE EOD ADDRESS F P LDK A1,DWTBOE F P CF A5,DSPAD F P
0x202914…202aa8 Dummy {f00=0x00a1, f01=0x018e, f02=» BOE -1 F P LDK A1,0 RETURN CODE G P RF END:IO G . P XIF G @ P* G L P EJECT DRFD01 G V P* G n P***************** G x P* * G P* PERFORM ORDER * G P* * G P***************** G P* G P* G
0x202aa8…202c3c Dummy {f00=0x00a1, f01=0x0190, f02=» G PFD:WRI EQU * H P IFT CHAN=0 H P LDKL A1,/C000 WORDS,WRITE H 0 P XIF H R P IFT CHAN=1 H ^ " P LDK A1,0 INDICATOR WRITE MODE H r P XIF H P RF FD:800 H P* H PFD:REA EQU * H P IFT CHAN=1 H P LDK A1,1 READ MODE H P XIF
0x202c3c…202dd0 Dummy {f00=0x00a1, f01=0x0190, f02=»O WORDS H z P* I P EJECT DRFD01 I P* I 2 P* I < P IFT MMUPAG=1 I F 2 P LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO I ( P RF(Z) FD:810 BUFFER IN SYSTEM AREA I 0 P LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS I P ECR A7,A7 I P ORR
0x202dd0…202f64 Dummy {f00=0x00a1, f01=0x0190, f02=»ER A4,MUXADR+1 SECOND WER I P XIF J " P IFT CHAN=1 J . P* J B P EJECT DRFD01 J L P* J d . P* PUT BUFFER START AND END ADDRESS IN DWT J n P* J " P ST A1,DWTRW,A6 INDICATE MODE J P ST A4,DWTUB,A6 J P ADR A3,A4 J " P ST A3,DWTUBE,
0x202f64…2030f8 Dummy {f00=0x00a1, f01=0x0190, f02=»SET J l 0 PFD:CIO EQU * LABEL USED FOR CHANGE OF CUADR K P CIO A2,1,CUADR CIO START K @ ( P RF(3) END:30 DEVICE ADDRESS UNKNOWN K b P RF T:DISP K P* K P EJECT DRFD01 K P* K * P************************************* K P* K < P* F
0x2030f8…20328c Dummy {f00=0x00a1, f01=0x018e, f02=»******* K r P* L PFDMSIO EQU * L & P IM DWTCW2,A6 UPDATE SECTOR NUMBER L . P LDR* A1,A6 RETURN CODE L X & P ANK A1,/7F GET ERROR RETURN CODE L x P RF(NZ) END:RC L 0 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE L $ P ADS A2,DWTCW2,A6 UPDATE DWT
0x20328c…203420 Dummy {f00=0x00a1, f01=0x0190, f02=» P IFT MMUPAG=1 M & P LD A4,DWTBA,A6 GET BUFFER POINTER M $ P ADR A2,A4 UPDATE BUFFER POINTER M D P ST A2,DWTBA,A6 M l & P RF(N) FDMSI1 NOT PASSED 64K LIMIT M P ADK A4,0 M ( P RF(NN) FDMSI1 NOT PASSED 64K LIMIT M P LDK A2,/10 M & P ADS A2,
0x203420…2035b4 (1, 452) Dummy {f00=0x00a1, f01=0x018e, f02=» M j P XIF N 2 P ABL FD:000 MORE SECTORS IN MULTIPLE SECTOR IO N P* N J P EJECT DRFD01 N T P* N l P********** N v P* * N P* END:IO * N P* * N P********** N P* N P IFT IBM=1 N $ PENDEOE EQU * END OF EXTENT E
0x2035b4…203748 Dummy {f00=0x00a1, f01=0x0190, f02=» PEND:IO EQU * O P CF A15,TENDIO O PT:DISP ABL TDISP O . P* O F $ PEND:30 EQU * CU ADDRESS UNKNOWN O P P LDK A1,1 NOT OPERABLE O x & P ORS A1,DWTST,A6 RECOVERY DONE =1 O P RB END:IO O P EJECT DRFD01 O P* O P********************
0x203748…2038dc Dummy {f00=0x00a1, f01=0x0190, f02=»QU * O P IFT CPU852=1 P & P CF A15,SAVE8 SAVE A1-A8 ON STACK P " P XIF P L P* P X P IFT CPU852=0 P b " P MSR 8,A15 SAVE A1-A8 ON STACK P x P XIF P P* P P LDKL A6,DWFD01 DWT ADDRESS P 4 P LDKL A4,/7FFE SET UNIT BUSY AND RECOVERY ON =1
0x2038dc…203a70 Dummy {f00=0x00a1, f01=0x0190, f02=» LD A4,DWTTP,A6 P P RF(Z) FDON10 NO TIMER SET Q P LDKL A4,-TIME Q : " P ST* A4,DWTTP,A6 RESTART TIMER Q P P RB T:DISP Q v PFDON10 LDK A4,DWTTP Q P ADR A4,A6 Q P LDR A1,A6 SAVE A6 Q P CF A15,SETIMP Q P DATA FDON20,TIME Q P* Q
0x203a70…203c04 Dummy {f00=0x00a1, f01=0x0190, f02=»L A5,DWTSB2 Q P ADR A5,A6 GET STACK BASE R P* R 6 6 PFDONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE R @ P IFT MMUPAG=1 R z P IFT CHAN=0 R $ P CM BUFFLG,A6 RESET BUFFER FLAG R P XIF R P* R P IFF TOSS+IBM=0 R 4 P IM DWTST2,A6
0x203c04…203d98 Dummy {f00=0x00a1, f01=0x0190, f02=» NAME R P* S PFDONLD EQU * S $ P SC A3,DWTOR,A6 GET VOLUME NAME S , & P LC A4,DIXTAB,A3 DRIVE INDEX MASK S T P SC A4,DWTA3+1,A6 SAVE IT S ~ P CF A5,SETCIO S P LDK A2,/14 S P CF A5,FD:REA LOCK S P ANK A3,1 S P RF(Z) FDON19 OPER
0x203d98…203f2c Dummy {f00=0x00a1, f01=0x0190, f02=»ON19 EQU * S P CF A5,VO:NAM T & P LDKL A2,/FBFF RESET IBM IND. BIT T ( , P ANRS A2,A6 UPDATE TEMPORARY RETURN CODE T R PFDON21 EQU * T P LDK A2,/C T P CF A5,FD:REA UNLOCK T P LDK A3,0 T , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. T P S
0x203f2c…2040c0 Dummy {f00=0x00a1, f01=0x018e, f02=»A6 INDICATE VOLUME NAMES READ T P* U & P IFT OPCLOS=1 U 0 P* U F P EJECT U P P* U ^ : P* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING U h P* U " P LD A4,DWTTP2,A6 TIMER POINTER U P RF(Z) FDON09 NOT RUNNING U P CMR A4 STOP TIM
0x2040c0…204254 (1, 453) Dummy {f00=0x00a1, f01=0x0190, f02=» P* V 2 P LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS V & P LDKL A2,/8000 OPEN/CLOSE BIT MASK V D $ P ANR* A2,A4 A2:=OPEN/CLOSE FLAG V n P ORS A2,DWTOCF,A6 SAVE V ( P XRRS A2,A4 SET STATUS WORD TO OPEN V P LDR* A2,A4 V & P OTR A2,0,SOPDA SET
0x204254…2043e8 Dummy {f00=0x00a1, f01=0x018e, f02=»2,1 V PFDON25 EQU * W " P LD A1,DWTLC,A6 LOCK INDICATOR W P ANR A1,A2 W F P RF(Z) FDON30 NOT LOCKED W X P ST A2,DWTA3,A6 SAVE W x P* W P EJECT W P* W P* PUT DRIVE NO IN CIO INSTR W P* W P SRN A2,A3 DRIVE NO IN A3 W * P C
0x2043e8…20457c Dummy {f00=0x00a1, f01=0x0190, f02=» W P RF(Z) FDON30 OK X $ P XRS A2,DWTLC,A6 INDICATE UNLOCK X PFDON30 EQU * X H P SLL A2,1 X P CWK A2,/0010 X n P RB(NE) FDON25 X P* X P IFT OPCLOS=1 X P* X D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF X
0x20457c…204710 Dummy {f00=0x00a1, f01=0x0190, f02=»I OPEN/CLOSE STATUS X 0 P OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED Y P XIF Y P P* Y P EJECT Y f P* Y t P* ANY REQUEST Y ~ P* Y P CM DWTA2,A6 RESET FDON FLAG Y PFDON60 EQU * Y P LD A8,DWTECB,A6 Y 0 P ABL(Z) END:IO NO REQUEST,
0x204710…2048a4 Dummy {f00=0x00a1, f01=0x0190, f02=»,DWTOR,A6 RESTORE INDEX AND ORDER Y ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH Z * P ANK A7,/3F ORDER Z V P ABL FDAD REACTIVATE Z p P* Z P EJECT DRFD01 Z P* Z P******************** Z P* * Z P* READY INTERRUPT * Z
0x2048a4…204a38 Dummy {f00=0x00a1, f01=0x0190, f02=»ROUTINE ACTIVE Z x P LDKL A5,DWTSB2 [ P ADR A5,A6 STACK BASE [ . P* [ L P IFT TOSS+IBM=0 [ V P RB FDON60 [ n P XIF [ P* [ P IFF TOSS+IBM=0 [ 4 P LDKL A3,/7FFE SET UNIT BUSY AND RECOVERY ON =1 [ P ANS A3,DWTST,A6 =6 [ P RB FD
0x204a38…204bcc Dummy {f00=0x00a1, f01=0x0190, f02=»* [ | P* INTERRUPT HANDLER * P* * ( P********************* F P* d PIHFD EQU * n $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 * P CF A15,SAVE8 SAVE REGISTERS ON STACK P XIF P* P IFT C
0x204bcc…204d60 Dummy {f00=0x00a1, f01=0x0190, f02=» & P LD A1,DWTUB,A6 GET BUFFER POINTER ] " P LD A2,DWTUBE,A6 END OF BUFFER ] 2 P SUR A2,A1 LENGTH ] X PIH005 EQU * ] r P SST A3,CUADR GET STATUS ] " P RF(A) IH:000 READY INTERRUPT ] P LD A3,PFPOST ] , P RF(NZ) IHDISP POST PROCESSING FLAG SE
0x204d60…204ef4 (1, 454) Dummy {f00=0x00a1, f01=0x0190, f02=»0 EQU * ] $ P LDR* A3,A1 ONE WORD FROM BUFFER ^ P OTR A3,0,CUADR WRITE ^ 8 P RB(NA) IH005 ^ V $ P ADK A1,2 UPDATE BUFFER POINTER ^ l P SUK A2,2 ^ P RB(P) IH010 ^ P CIO A2,0,CUADR CIO HALT ^ PIHDISP EQU * ^ P ABL TDISP GOTO DISPATCHER
0x204ef4…205088 Dummy {f00=0x00a1, f01=0x0190, f02=»UPDATE BUFFER POINTER ^ P SUK A2,2 _ P RB(P) IH050 _ 0 P CIO A2,0,CUADR CIO HALT _ D P SST A3,CUADR STATUS _ d P RB(NA) *-2 _ PIH:000 EQU * _ P INH _ P XIF _ P* _ P EJECT DRFD01 _ P* _ P* _ P IFT CHAN=0 _
0x205088…20521c Dummy {f00=0x00a1, f01=0x0190, f02=» A3,1 NOT OPERABLE =2 _ PIH:00 EQU * =2 ` P XIF ` 6 P LD A8,DWTECB,A6 ECB ADDRESS ` B " P LD A5,DWTA5,A6 STACK POINTER ` f P LDR A2,A3 STATUS ` P SLL A2,1 ` P RB(N) FDRE READY INTERRUPT ` P LD A2,DWTRTY,A6 RETRY ` P RF(Z) IH:10 N
0x20521c…2053b0 Dummy {f00=0x00a1, f01=0x0190, f02=» ` t P ORK A3,4 a PIH:10 EQU * a P* a . P EJECT DRFD01 a 8 P* a P & P* TRANSFORM RETURN CODE, CU - ECB a Z P* a P ANKL A3,/FF37 a P RF(Z) IH:80 a P LDR A1,A3 a " P ANKL A3,/0A05 UNCHANGED BITS a P ECR A4,A3 a P ANK A
0x2053b0…205544 Dummy {f00=0x00a1, f01=0x0190, f02=»L A4,/0400 BIT 5 a P SLC A4,7 TO BIT 14 b P ORR A3,A4 b 4 P* b F P IFT TOSS+IBM=0 b P P LDR A4,A1 b h P ANKL A4,/2000 BIT 2 b z P SLL A4,1 TO BIT 1 b P ORR A3,A4 b P XIF b P* b P LDR A4,A1 b P ANK A4,/20 BIT 10 b P SLL
0x205544…2056d8 Dummy {f00=0x00a1, f01=0x018e, f02=»RY RETURN CODE b v P ANKL A3,/F7FF c PIH:80 EQU * c , P LDR A1,A3 c @ P RTN A5 c R P* c b P EJECT DRFD01 c l P* c 0 P******************************************* c 0 P* * c 0 P* S U B R O U T
0x2056d8…20586c Dummy {f00=0x00a1, f01=0x0190, f02=» P* d P******* d P* * d P* BIO * d . P* * d > P******* d N P* d ^ P* INPUT: A8 ECB ADDRESS d h P* A4 ORDER d P* d > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START d 0 P* A3 NO OF
0x20586c…205a00 Dummy {f00=0x00a1, f01=0x0190, f02=» ( P SLL A1,3 PUT IN RIGHT BIO POSITION e 6 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO e 0 P SRC A2,2 e j P ORR A2,A1 COMPLETE BIO e | & P ADR A2,A4 COMPLETE BIO WITH ORDER e " P LD A4,DWTBA,A6 BUFFER ADDRESS e $ P LD A3,DWTRL,A6 GET REQ. LEN
0x205a00…205b94 (1, 455) Dummy {f00=0x00a2, f01=0x0190, f02=»BIOSQ * e P* * f P***************** f 0 P* f J P* INPUT: A8 ECB ADDRESS f T P* A4 ORDER f v P* f > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START f 0 P* A3 NO OF BYTES TO BE TRANSFE
0x205b94…205d28 Dummy {f00=0x00a2, f01=0x0190, f02=» ( P SLL A2,3 PUT IN RIGHT BIO POSITION g & P ADR A2,A4 COMPLETE BIO WITH ORDER g 0 P* g Z P IFT MMUPAG=0 g d & P LD A4,ECBBA,A8 GET BUFFER ADDRESS g z P XIF g P* g P IFT IBM=1 g P IFT MMUPAG=1 g & P LDKL A4,BUF DRIVER BUFFER ADDRESS g
0x205d28…205ebc Dummy {f00=0x00a2, f01=0x0190, f02=» g P* h P****************** h P* VO:NAM * h , P****************** h F P* h ` P* h j PVO:NAM EQU * h t P IFT TOSS+IBM=2 h P LDK A3,36 LENGTH h P XIF h P* h P IFT TOSS=1 h P IFT IBM=0 h P LDK A3,6 VOLUME N
0x205ebc…206050 Dummy {f00=0x00a2, f01=0x018e, f02=» P ANK A3,/17 FATAL ERROR i P RF(NZ) VOL:40 i $ P IFT IBM=1 i : P LD A2,BUF+32 i L P CWK A2,'TO' i b P RF(NE) VOL:10 IBM DISC i v P LD A2,BUF+34 GET NEXT WORD i P CWK A2,'SS' i P RF(NZ) VOL:10 IBM DISC i PVOL:05 EQU * i " P C1 A1
0x206050…2061e4 Dummy {f00=0x00a2, f01=0x0190, f02=» i P IFT TOSS=1 j P LDKL A2,BUF j P IFT IBM=1 j 0 P RF VOL:20 j B P XIF j T P* j ` P IFT IBM=1 j j PVOL:10 EQU * j | P LDK A3,10 LENGTH j P LDK A2,/30 BIO j & P LDKL A4,BUF+10 READ TO BUF+10FER j P CF A5,FD:REA j P ANK A
0x2061e4…206378 Dummy {f00=0x00a2, f01=0x0190, f02=» P RB(NE) VOL:05 NOT IBM k P LD A2,BUF+12 k " P CWK A2,/D3F1 L1 k 8 P RB(NE) VOL:05 NOT IBM DISC k P P XIF k t P IFT IBM=1 k P* =4 k & P LD A1,DWTA3,A6 DRIVE NO BIT MASK k " P ORS A1,DWTLAB,A6 INDICATE IBM k P LDKL A1,/400 k , P
0x206378…20650c Dummy {f00=0x00a2, f01=0x0190, f02=»A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII k P LDKL A2,BUF+14 =5 l 2 P XIF l N P* l Z P EJECT DRFD01 l d P* l | P* l PVOL:20 EQU * l P IFF TOSS+IBM=0 l P LDK A3,/F8 FILE CODE l P LD A1,DWTST2,A6 l " P RF(NZ) VOL:30 NOT TES
0x20650c…2066a0 Dummy {f00=0x00a2, f01=0x0190, f02=»A8,DWTECB,A6 l P LDK A3,0 m PVOL:40 EQU * m & P RTN A5 m : P XIF m J P* m V P IFT IBM=1 m ` P EJECT DRFD01 m r P* m P********* m P* ASCII * m P********* m P* m : P* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC
0x2066a0…206834 (1, 456) Dummy {f00=0x00a2, f01=0x0190, f02=» A4 = BUFFER ADDRESS m P* OUTPUT: A1 CHANGED n P* A4 = BUFFER ADDRESS n B P* A7 CHANGED n d P* n PASCII EQU * n P IFT MMUPAG=1 n & P LDKL A4,BUF DRIVER BUFFER ADDRESS n P XIF n P* n P IFT IBM=1 n
0x206834…2069c8 Dummy {f00=0x00a2, f01=0x0190, f02=» A1,/FF n ( P LC A1,TASCII,A1 TRANSFORM TO ASCII o 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER o < P SUK A7,1 o p P RB(P) ASC:10 o P RF EBC:90 o P* o P EJECT DRFD01 o P* o P********** o P* EBCDIC * o P********** o
0x2069c8…206b5c Dummy {f00=0x00a2, f01=0x0190, f02=»ING IS PUT IN DRIVER BUFFER o x P* p $ & P* INPUT: A7 NO OF CHARACTERS p . P* A4 = BUFFER ADDRESS p X P* p z P* OUTPUT: A1 CHANGED p P* A4 = BUFFER ADDRESS p P* A7 CHANGED p PEBCDIC EQU * p P ENB p
0x206b5c…206cf0 Dummy {f00=0x00a2, f01=0x0190, f02=» p P SUK A4,1 q P LCR A1,A4 GET ASCII CHAR. q P ANK A1,/FF q < P LC A1,TEBCDIC,A1 q P P SC A1,BUF-1,A7 q j P SUK A7,1 q P RB(P) EBC:10 q & P LDKL A4,BUF DRIVER BUFFER ADDRESS q PEBC:90 EQU * q P INH INHIBIT INTERRUPTS q P
0x206cf0…206e84 Dummy {f00=0x00a2, f01=0x0190, f02=» LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD q , P* LOGICAL SECTOR (BINARY). r 8 < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) r h * P* TT = TRACK, SS=SECTOR r P* r , P* INPUT: A4 ADDRESS TO PHYS. SECTOR
0x206e84…207018 Dummy {f00=0x00a2, f01=0x0190, f02=» P CF A5,DECBIN s P LDR A3,A1 SAVE s P ADK A4,2 s 2 P* s D P* MULTIPLY BY 26 s N P* s h P SLL A3,5 *32 s r P LDR A2,A1 s P SLL A2,2 s P SUR A3,A2 *28 s P SLL A1,1 s P SUR A3,A1 *26 s P CF A5,DECBIN s P SUK A1,
0x207018…2071ac Dummy {f00=0x00a2, f01=0x0190, f02=» s P RF(NP) LOG:10 t P CWK A4,BUF+EOD+4 EOD t P RF(E) LOG:02 YES! t < P SUKL A1,1898 t V P RF LOG:04 t l P* t ~ " P* CHECK EOD LESS/EQUAL 74001 t P* t PLOG:02 SUKL A1,1899 t PLOG:04 EQU * t " P RF(P) LOG:10 NOT ACC SEC. NO t
0x2071ac…207340 Dummy {f00=0x00a2, f01=0x0190, f02=»ER t n " PLOG:10 LDK A1,/10 RETURN CODE u , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE u 0 P INH INHIBIT INTERRUPTS u ` P ABL LOA:90 ERROR ROUTINE u P* u P EJECT DRFD01 u P* u P********** u P* DECBIN* u P********** u P* u
0x207340…2074d4 (1, 457) Dummy {f00=0x00a2, f01=0x0190, f02=» u P , P* INPUT: A4 ADDRESS TO FIRST DIGIT v P* OUTPUT: A1 BINARY v 8 P* WORKING REG: A2,A7 v V P* v v PDECBIN LDK A1,0 v P LDK A7,2 v PDEC:10 LCR A2,A4 DIGIT v P ANK A2,/FF v P SUK A2,/F0 v P RB(N) LOG:05 v P S
0x2074d4…207668 Dummy {f00=0x00a2, f01=0x0190, f02=»GIT v r PDEC:20 SUK A2,1 w P RB(N) DEC:10 NEXT DIGIT w $ P ADK A1,/A MULTIPLY BY 10 w D P RB DEC:20 w f PDEC:30 ADR A1,A2 w x P RTN A5 w P XIF w P* w P EJECT DRFD01 w P* w P********** w P* SETCIO * w P********** w
0x207668…2077fc Dummy {f00=0x00a2, f01=0x0190, f02=» P* x P* OUTPUT: A3 CHANGED x P* A4 CHANGED x , P* x J PSETCIO LDKL A4,/FFCF x T P ANS A4,FD:CIO x p P SLL A3,4 x P ORS A3,FD:CIO x P RTN A5 x P IFT IBM=1 x P* x P EJECT DRFD01 x P* x P********** x
0x2077fc…207990 Dummy {f00=0x00a2, f01=0x018e, f02=»ODED DIGITS (DECIMAL) x z P* y P* INPUT: A7 BINARY NUMBER y ( P* y L . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS y V P* A7 CHANGED y P* y PBINDEC LDK A3,0 y PBIN:10 SUK A7,10 y P RF(N) BIN:20 y P ADK A3,1 y P
0x207990…207b24 Dummy {f00=0x00a2, f01=0x0190, f02=» y r P RTN A5 z P* z P EJECT DRFD01 z " P********* z : P* DSLIO * z L P********* z ^ P* z p 4 P* FUNCTION: PREPARE FOR READING DATA SET LABEL z z P* z P* INPUT: A6 DWT ADDRESS z P* z : P* OUTPUT: A2 BITS 0-12 SECTOR
0x207b24…207cb8 Dummy {f00=0x00a2, f01=0x018e, f02=»* A1 IS CHANGED z P* { " PDSLIO LDK A1,DWTDSS { , P CF A5,DSPAD { H P LDR* A2,A2 { P SLL A2,3 { p P LDK A3,128 { P LDKL A4,BUF { P RTN A5 { P* { P EJECT DRFD01 { P* { P********** { P* DSOPCH * {
0x207cb8…207e4c Dummy {f00=0x00a2, f01=0x0190, f02=» { P* OUTPUT: A2 EOD ADDRESS | , P* A7 EOD-NO (0=NOT OPEN) | * P* A1 CHANGED | Z PDSOPCH LDK A1,DWTEOD | x P CF A5,DSPAD | P LDR* A7,A2 EOD-NO | P RTN A5 | P* | P EJECT DRFD01 | P* | P*********
0x207e4c…207fe0 Dummy {f00=0x00a2, f01=0x018e, f02=»R CORRESPONDING DRIVE | t P* } P* INPUT: A1 DWT OFFSET } ( P* A6 DWT ADDRESS } J P* } l " P* OUTPUT: A2 ADDRESS TO DATA } v P* A6 DWT ADDRESS } P* } " PDSPAD LC A2,DWTOR,A6 DRIVE NO } P ANK A2,/3 } P ADR A2,
0x207fe0…208174 (1, 458) Dummy {f00=0x00a2, f01=0x0190, f02=» } P********* ~ P* ~ : P* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF ~ $ P* DRIVE NO ~ b P* ~ ( P* INPUT: A1 OFFSET TO DWT AREA ~ . P* A3 WORD TO BE STORED IN DWT ~ P* A6 DWT ADDRESS ~
0x208174…208308 Dummy {f00=0x00a2, f01=0x0190, f02=» A6 UNCHANGED ~ P* PSTDWT EQU * * P CF A5,DSPAD > P STR A3,A2 R P RTN A5 d P XIF t P* P EJECT DRFD01 P* " P* D R I V E R B U F F E R P* PBUF EQU * P IFT IBM=1 P RES DVB
0x208308…20849c Dummy {f00=0x00a2, f01=0x0190, f02=» RES DVBLEN-3 MMU BUFFER P XIF P* , P IFT TOSS+IBM=0 6 P IFT MMUPAG+CHAN=2 N P RES DVBLEN MMU BUFFER h P XIF P* P EJECT DRFD01 P* P********************* P* * P* DEVICE WORK
0x20849c…208630 Dummy {f00=0x00a2, f01=0x0190, f02=»N CODE r P DATA 0 P DATA /8000 DWT STATUS P DATA 0 ECB ADDRESS < P DATA 0 ORDER X " P DATA FDADR ACTIVATION ADDRESS n P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P* P IFT MMU
0x208630…2087c4 Dummy {f00=0x00a2, f01=0x0190, f02=» P DATA 0 P DATA 0 SAVE AREA P DATA 0 . P DATA 0 > " P DATA 0,0,0,0 STACK (3 LEVELS) N P DATA 0 ORDER SAVE AREA t P* P EJECT DRFD01 P* P* P IFF TOSS+IBM=0 P DATA /8000 NVL INDICATOR 0 P D
0x2087c4…208958 Dummy {f00=0x00a2, f01=0x0190, f02=»E NO 0 r P DATA /FFFF,/FFFF,/FFFF ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 . P DATA /FFFF,/FFFF,/FFFF Z ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 z P DATA /FFFF,/FFFF,/FFFF ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 P DATA /FFFF,/FFFF,/FFF
0x208958…208aec Dummy {f00=0x00a2, f01=0x0190, f02=»-DWFD01 RETRY REQUEST FLAG P DATA 0 " $ PDWTTP EQU *-DWFD01 TIMER POINTER 2 P DATA 0 Z P* j P EJECT DRFD01 t P* P* P IFT IBM=1 , PDWTLAB EQU *-DWFD01 DISC LABEL INDICATOR P DATA 0 P XIF P* , P
0x208aec…208c80 Dummy {f00=0x00a2, f01=0x0190, f02=»EN h P DATA 0 4 PDWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON P DATA 0 R P XIF b P* n P EJECT DRFD01 x P* P* P IFT CHAN=1 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER P DATA 0 , PDWTUBE
0x208c80…208e14 (1, 459) Dummy {f00=0x00a3, f01=0x0190, f02=» P IFT IBM=1 , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT P DATA 0,0,0,0 J $ PDWTEOD EQU *-DWFD01 END OF DATA ` P DATA 0,0,0,0 & PDWTEOE EQU *-DWFD01 END OF EXTENT P DATA 0,0,0,0 * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO
0x208e14…208fa8 Dummy {f00=0x00a3, f01=0x0190, f02=» P* P* & PDWTBA EQU *-DWFD01 BUFFER POINTER P DATA 0 F ( PDWTRL EQU *-DWFD01 LENGTH IN SUB IO V P DATA 0 & PDWTCW2 EQU *-DWFD01 SECTOR NUMBER P DATA 0 . PDWTNOS EQU *-DWFD01 SECTOR NUMBER COUNTER P DATA 0
0x208fa8…20913c Dummy {f00=0x00a3, f01=0x0190, f02=»INDICATOR x P DATA 0 P XIF " P* . P EJECT DRFD01 8 P* P P* Z P IFT MMUPAG=1 d PDWT:BF EQU *-DWFD01 z $ P DATA 0 SAVE AREA BUFFER ADDRESS PBUFFLG EQU *-DWFD01 P DATA 0 P* P IFF CHAN+IBM=0
0x20913c…2092d0 Dummy {f00=0x00a3, f01=0x40d0, f02=»D01 * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS P XIF : P* F P IFT MMUPAG=1 P PDEVECB EQU * f P DATA 0,0,0,0,0,0,0 z P XIF P* P* P* P END @ 1 P DATA 0 P* P IFF CHAN+IBM=0
0x2092d0…209464 Dummy {f00=0x00a3, f01=0x2008, f02=» END @
0x209464…2095f8 Dummy {f00=0x00a3, f01=0x0190, f02=» A14 b P EJECT c < P******************************************************** c < P* * c Z < P* HEXCNV CONVERTS A HEXADECIMAL DIGIT IN ASCII CODE * c < P* TO CORRESPONDING HEXADECIMAL VALUE
0x2095f8…20978c Dummy {f00=0x00a3, f01=0x0190, f02=» * c Z < P* ON ENTRY: A1 CHARACTER TO CONVERT * d < P* * d J < P* ON EXIT: A1 CONVERTED CARACTER * d < P* * d <
0x20978c…209920 Dummy {f00=0x00a3, f01=0x0190, f02=»TER d v P CWK A1,/29 e P RF(L) TYPERR ERRANEOUS TYPE e P* e D " P CWK A1,/40 DIGIT BETWEEN 0-9? e N P RF(L) HXCN00 YES! e t & P RF(E) TYPERR NO NEXADECIMAL DIGIT e P* e " P CWK A1,/46 DIGIT BETWEEN A-F? e P RF(G) TYPERR NO e P* e
0x209920…209ab4 (1, 460) Opaque[0x194]
0x209ab4…209c48 # DirEnt {nam=»DRFD02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2728, f03=0x0000}
0x209ab4…209c48 IdxSect {
0x209ab4…209c48 f00 = 0x0139 // 0x209ab4 @0x0
0x209ab4…209c48 f01 = 0x0022 // 0x209ab6 @0x2
0x209ab4…209c48 gno = [ // 0x209ab8 @0x4
0x209ab4…209c48 [0x00]: C0x0139.0x1.0
0x209ab4…209c48 [0x01]: C0x0139.0x2.0
0x209ab4…209c48 [0x02]: C0x0139.0x3.0
0x209ab4…209c48 [0x03]: C0x013a.0x0.0
0x209ab4…209c48 [0x04]: C0x013a.0x1.0
0x209ab4…209c48 [0x05]: C0x013a.0x2.0
0x209ab4…209c48 [0x06]: C0x013a.0x3.0
0x209ab4…209c48 [0x07]: C0x013b.0x0.0
0x209ab4…209c48 [0x08]: C0x013b.0x1.0
0x209ab4…209c48 [0x09]: C0x013b.0x2.0
0x209ab4…209c48 [0x0a]: C0x013b.0x3.0
0x209ab4…209c48 [0x0b]: C0x0193.0x2.0
0x209ab4…209c48 [0x0c]: C0x0193.0x3.0
0x209ab4…209c48 [0x0d]: C0x0194.0x0.0
0x209ab4…209c48 [0x0e]: C0x0194.0x1.0
0x209ab4…209c48 [0x0f]: C0x0194.0x2.0
0x209ab4…209c48 [0x10]: C0x0194.0x3.0
0x209ab4…209c48 ]
0x209ab4…209c48 }
0x209c48…209ddc Dummy {f00=0x0139, f01=0x0190, f02=» 2 P IDENT DRFD02 REL 11.0 81-08-24 870105041100 P : P =5, REL 11.0 81-02-27 B ( P =5, DON'T HANDLE READY INTERRUPT b * P =5, UNTIL TIMEOUT ROUTINE IS READY P =4, REL 11.0 81-02-18 , P =4, CRN UPDATED FOR SEQ READ IF ERROR
0x209ddc…209f70 Dummy {f00=0x0139, f01=0x018e, f02=»IT r @ P =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY AND P =1, NOT IBM NOT WORKING N P* p 2 P********************************************** z P* " P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRFD02 = DRIVER FOR FLEXIBL
0x209f70…20a104 Dummy {f00=0x0139, f01=0x0190, f02=» P* 0 P* THIS DISK DRIVER HANDLES UP TO FOUR DAISY 8 P* CHAINED FLEXIBLE DISK DRIVES PTS 6879 OR PTS 6791 B 4 P* CONNECTED TO CPU VIA CHANNEL UNIT F1MZ/B ON ~ P* MULTIPLEX CHANNEL P* P* P EJECT DRFD02 P* P
0x20a104…20a298 Dummy {f00=0x0139, f01=0x0190, f02=»M DISC ONLY- ^ P* /05 BASIC WRITE D P* /06 SEQUENTIAL WRITE -IBM DISC ONLY- 0 P* /11 PHYSICAL READ x P* /15 PHYSICAL WRITE P* /1F FORMAT VOLUME P* /24 WRITE DELETED DATA P* /26 LOCK
0x20a298…20a42c Dummy {f00=0x0139, f01=0x0190, f02=»NTRY PARAMETERS: P* P* A5 STACK BASE " P* A6 DWT-ADDRESS > P* A7 ORDER Z P* A8 ECB-ADDRESS p P EJECT DRFD02 P* P*********** P* * P* ENTRIES * P* * P**********
0x20a42c…20a5c0 Dummy {f00=0x0139, f01=0x0190, f02=»NTRY DWFD01 DWT-ADDRESS P EJECT DRFD02 P* 8 P************* B P* * X P* EXTERNALS * n P* * P************* P* . P EXTRN INXDWT INDEXED DISPLACEMENT IN DWT P EXTRN TDISP DISPATCHER
0x20a5c0…20a754 (1, 461) Dummy {f00=0x0139, f01=0x0190, f02=»LUME NAME z & P EXTRN VOLNAM VOLUME NAME ADDRESS 0 P EXTRN VOLGET VOLUME NAME TO DWT AND SET NVL < . P EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED p P EXTRN DWTST STATUS P EXTRN DWTECB ECB ADDRESS $ P EXTRN DWTOR DWT INDEX AND ORDER ( P
0x20a754…20a8e8 Dummy {f00=0x0139, f01=0x0190, f02=» SETIMP TIMER & P EXTRN PFPOST PWF POST PROC. FLAG & P EXTRN TASCII EBCDIC TO ASCII TAB @ & P EXTRN TEBCDIC ASCII TO EBCDIC TAB j $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH
0x20a8e8…20aa7c Dummy {f00=0x0139, f01=0x0190, f02=»********** P* * P* CONDITIONAL ASSEMBLY * 2 P* * R P************************ r P* P* 2 P* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT ( P* IS OBTAINED BY SETTING TOSS EQU 1. P
0x20aa7c…20ac10 Dummy {f00=0x0139, f01=0x018e, f02=» IBM EQU 1. x P* PX:B EQU 0 PIBM EQU X:B 0 P* D > P* A PROGRAM VERSION LEAVING OUT THE CODE CONVERSION N > P* ASCII-EBCDIC IS OBTAINED BY SETTING ASCEBC EQU 0 P* PX:C EQU 1 PASCEBC EQU X:C P*
0x20ac10…20ada4 Dummy {f00=0x0139, f01=0x0190, f02=» P EJECT DRFD02 P* P* ( P* 2 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION < . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. v P* PCPU852 EQU 1 P* P* ( P* ANTI ASCEBC CONDITIONAL ASSEMBLY P*
0x20ada4…20af38 Dummy {f00=0x0139, f01=0x0190, f02=»RFD02 P* P************* P* * . P* CONSTANTS * D P* * Z P************* p P* PDEVIND EQU 10 DEVICE INDEX & PCUADR EQU 09 CONTROL UNIT ADDRESS & PMUXADR EQU CUADR+CUADR MUX-ADDRESS ( PBO
0x20af38…20b0cc Dummy {f00=0x0139, f01=0x018e, f02=»DELAY - POWER ON P* P* " P* ORDERS , P* > POR:TES EQU 0 TEST STATUS H POR:BAR EQU /01 BASIC READ h " POR:SER EQU /02 SEQUENTIAL READ POR:BAW EQU /05 BASIC WRITE $ POR:SEW EQU /06 SEQUENTIAL WRITE POR:PHR EQU /11
0x20b0cc…20b260 Dummy {f00=0x0139, f01=0x018e, f02=» POR:LCK EQU /26 LOCK POR:REW EQU /31 REWIND POR:LOD EQU /37 LOAD > POR:ULD EQU /38 UNLOAD Z P* x P EJECT DRFD02 P* P* P* RETURN CODES P* P* & PRC:RET EQU /100 RETRIES PERFORMED PRC:NOD
0x20b260…20b3f4 (1, 462) Dummy {f00=0x0139, f01=0x0190, f02=» PRC:IBM EQU /400 IBM DISC PRC:EOD EQU /1000 END OF DATA $ " PRC:EOE EQU /2000 END OF EXTENT H $ PRC:WRP EQU /240 WRITE PROTECTED n PRC:FOR EQU /800 FORMAT * PRC:IDS EQU /10 ILLEGAL DATA SET LABEL 4 PMS:128 EQU 2002 MAX SECTOR NUMBER FORM
0x20b3f4…20b588 Dummy {f00=0x0139, f01=0x018e, f02=»CK BIT INDICATOR $ PIN:ULC EQU /FB UNLOCK INDICATOR PIN:IBM EQU /1 IBM INDICATOR @ " PIN:TOS EQU /FE TOSS INDICATOR d $ PEBC:VO EQU /E5D6 EBCDIC FOR 'VO' $ PEBC:L1 EQU /D3F1 EBCDIC FOR 'L1' P EJECT DRFD02 P* P**********
0x20b588…20b71c Dummy {f00=0x0139, f01=0x018e, f02=» & PFDADR DATA FDAD ACTIVATION ADDRESS " P DATA 0 ABORT ROUTINE ADDRESS . P* T P EJECT DRFD02 ^ P* v P********** P* TESTST * P********** P* P* TEST STATUS ORDER P* P* PTESTST EQU * P C
0x20b71c…20b8b0 Dummy {f00=0x0139, f01=0x0190, f02=» f P CF A5,CIOI00 READ . P CF A5,WRIPRE PREPARE CIO WRITE TO BUFFER " P CF A5,CIOI00 T P ANKL A1,/200 j $ P ORS A1,DWTRC,A6 WRITE PROTECTED $ P LDK A1,/80 INDICATE TEST STATUS P SC A1,DWT:FC,A6 , P CF A5,VO:NAM GET VOLUME NAME AN
0x20b8b0…20ba44 Dummy {f00=0x0139, f01=0x018e, f02=» IF REQUESTED l P LDK A1,0 RESET RETURN CODE PTEST50 EQU * : P ABL END:IO END REQUEST N P* n P EJECT DRFD02 x P* P************** P* * P* ACTIVATION * P* * P************** P
0x20ba44…20bbd8 Dummy {f00=0x0139, f01=0x0190, f02=» ` P IFT MMUPAG=1 P MLR 2,A8 BUFFER ADDRESS P SLC A1,4 > P ANK A1,/3 P P SRL A2,1 WORD MODE b ( P MS 2,DWTBA,A6 18 BIT BUFFER ADDRESS ~ P XIF P IFT MMUPAG=0 " P LD A1,ECBBA,A8 BUFFER ADDRESS P ST A1,DWTBA,A6
0x20bbd8…20bd6c Dummy {f00=0x0139, f01=0x0190, f02=» P EJECT DRFD02 P* P* $ P LDR A3,A7 ORDER . P RB(Z) TESTST TEST STATUS F P IFT TOSS=1 h P IFT IBM=0 | P SUK A3,OR:BAR-OR:TES P RF(Z) READ BASIC READ P SUK A3,OR:BAW-OR:BAR P RF(Z) WRITE BASIC WRITE P
0x20bd6c…20bf00 Dummy {f00=0x0139, f01=0x0190, f02=»3,OR:FOV-OR:PHW P ABL(Z) FORMAT FORMAT VOLUME P SUK A3,OR:DDW-OR:FOV < $ P RF(Z) DDWRIT WRITE DELETED DATA Z P SUK A3,OR:LCK-OR:DDW P ABL(Z) LOCKDO LOCK P SUK A3,OR:LOD-OR:LCK P ABL(Z) LOAD LOAD P SUK A3,OR:ULD-OR:LO
0x20bf00…20c094 (1, 463) Dummy {f00=0x013a, f01=0x0190, f02=» P SUK A3,OR:SER-OR:BAR " P ABL(Z) SQREAD SEQUENTIAL READ " P SUK A3,OR:BAW-OR:SER H P RF(Z) WRITE BASIC WRITE f P SUK A3,OR:SEW-OR:BAW $ P ABL(Z) SQWRIT SEQUENTIAL WRITE P SUK A3,OR:PHR-OR:SEW P RF(Z) READ PHYSICAL READ
0x20c094…20c228 Dummy {f00=0x013a, f01=0x0190, f02=» SUK A3,OR:DDW-OR:FOV $ P RF(Z) DDWRIT WRITE DELETED DATA P SUK A3,OR:LCK-OR:DDW F P ABL(Z) LOCKDO LOCKDO d P SUK A3,OR:REW-OR:LCK P ABL(Z) REWIND REWIND P SUK A3,OR:LOD-OR:REW P ABL(Z) LOAD LOAD P SUK A3,OR:ULD-OR:
0x20c228…20c3bc Dummy {f00=0x013a, f01=0x0190, f02=»E REQUEST ERROR PER:ILE EQU * P LDKL A1,RC:ILE , P ABL DISEND D P* X P EJECT DRFD02 b P* z P* P********** P* DDWRIT * P* WRITE * P* READ * P********** P* * P* WRITE DELETED DATA
0x20c3bc…20c550 Dummy {f00=0x013a, f01=0x0190, f02=»ISTER ~ $ P ADKL A1,/4000 1ST WER REGISTER PREAD EQU * 6 " P CF A5,CIOPRE PREPARE FOR CIO H . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED n P ADK A1,0 . P RB(NZ) TEST50 NEW VOLUME LOADED : END IO P* P EJECT DRFD02 P*
0x20c550…20c6e4 Dummy {f00=0x013a, f01=0x0190, f02=»2,A8 START SECTOR ( P RB(N) REQERR ILLEGAL SECTOR NUMBER , P CWK A2,MS:256-13 MAX TOSS SECTOR NUMBER F ( P RB(NL) REQERR ILLEGAL SECTOR NUMBER v P ST A1,DWTRL,A6 SAVE LENGTH P LDR A3,A1 $ P SRL A3,7 NUMBER OF 128 SECTORS P SRC A4,
0x20c6e4…20c878 Dummy {f00=0x013a, f01=0x0190, f02=» P IFT TOSS=1 P SLL A2,1 START SECTOR P XIF 6 P IFT TOSS+IBM=2 B $ P CWK A2,MS:128 MAX SECTOR NUMBER Z ( P RB(NL) REQERR ILLEGAL SECTOR NUMBER P RF TRA400 PTRA300 EQU * P XIF P IFT IBM=1 P SLL A1,1 " P ADK
0x20c878…20ca0c Dummy {f00=0x013a, f01=0x0190, f02=» * P XIF 0 P ADKL A3,MS:256-MS:128 ADJUST SECTOR NUMBER P RF TRA590 CHECK VALUE J P* h P EJECT DRFD02 r P* P* PTRA500 EQU * P IFT TOSS+IBM=2 P SLC A4,1 P RF(N) TRA525 IBM FORMATTED P XIF
0x20ca0c…20cba0 Dummy {f00=0x013a, f01=0x0190, f02=»TRA525 EQU * P XIF P IFT IBM=1 , P CWK A2,MS:256-104 MAX IBM SECTOR NUMBER 2 ( P RB(NL) REQERR ILLEGAL SECTOR NUMBER b P CWK A2,26 P RF(NL) TRA530 P SLL A1,1 $ P ADR A3,A2 END OF BUFFER SECTOR P SUK A3,26 P RF(N)
0x20cba0…20cd34 (1, 464) Dummy {f00=0x013a, f01=0x0190, f02=»6 SECTORS z P ADK A3,104 SPARE SECTORS P RF TRA590 4 P XIF F P IFT TOSS=1 R PTRA550 EQU * f P ADK A2,13 z P SRL A3,1 P XIF P* P EJECT DRFD02 P* P* PTRA590 EQU * " P ADR A3,A2 LAST SECTOR
0x20cd34…20cec8 Dummy {f00=0x013a, f01=0x0190, f02=»B(NZ) ER:ILE ILLEGAL LENGTH P IFT CPU852=0 $ ( P DVK 26 A1,A2 PHYSICAL SECTOR NUMBER : P XIF f P IFT CPU852=1 r P LDR A1,A2 P LDK A2,0 P LDKL A3,/D00 26 SHIFTED PDVK26A EQU * P SLL A2,1 P SUR A1,A3 P RF(
0x20cec8…20d05c Dummy {f00=0x013a, f01=0x0190, f02=»3,26 P RB(NL) DVK26A P XIF " P IFT TOSS+IBM=2 . P SRC A4,1 FORMAT F P XIF ^ P IFF TOSS+IBM=2 j P ADK A4,0 P XIF P RF(N) IOR100 (256-2D) P SLL A2,1 P* P EJECT DRFD02 P* P* PIOR1
0x20d05c…20d1f0 Dummy {f00=0x013a, f01=0x0190, f02=»IBM=2 P IFT ASCEBC=1 ! P LD A4,DWTFOR,A6 FORMAT ! $ P SRC A4,1 ! D P RF(NN) IOR250 TOSS DISC ! V P XIF ! v P IFT IBM+ASCEBC=2 ! " P LD A3,DWTIOR,A6 GET IO ORDER ! P RF(NZ) IOR220 WRITE ORDER ! P CF A5,CIOI00 PERFORM READ ! P L
0x20d1f0…20d384 Dummy {f00=0x013a, f01=0x0190, f02=»ERROR ! | P RF IOR230 UPDATE PARAMETERS " " PIOR220 EQU * WRITE IBM SECTOR " 2 . P CF A5,EBCDIC MOVE FROM USER AND TRANSFORM " X P CF A5,CIOI00 WRITE ON DISC " P RF(NZ) ENDIOR ERROR " P LC A1,DWTOR+1,A6 GET ORDER " P SUK A1,/15 " ( P RF(NE
0x20d384…20d518 Dummy {f00=0x013a, f01=0x0190, f02=»TH OF IO " z * P CF A5,INCSEC INCREMENT SECTOR NUMBER # P LDR A2,A7 LENGTH OF IO # > P IFT TOSS=1 =1 # ^ P RF IOR400 =1 # v P XIF # P IFF TOSS+EBCASC=0 # P* # P EJECT DRFD02 # P* # P* # PIOR250 EQU * TOSS DISC # ( P LD
0x20d518…20d6ac Dummy {f00=0x013a, f01=0x0190, f02=»NK A2,/FF CYLINDER AND HEAD NUMBER # P RF(Z) IOR260 1ST TRACK $ * P LD A4,DWTFOR,A6 FORMAT $ J P SRC A4,2 $ j P RF(NN) IOR260 (128-1) $ | " P SLL A3,1 LENGTH LEFT ON TRACK $ PIOR260 EQU * $ P SLL A3,6 WORD MODE $ P LD A4,DWTRL,A6 REST OF
0x20d6ac…20d840 Dummy {f00=0x013a, f01=0x0190, f02=» P LDKL A4,/F000 % . P ANS A4,DWTWE1,A6 RESET LENGTH IN 1ST WER % ( P ORS A3,DWTWE1,A6 LENGTH TO 1ST WER % L $ P CF A5,CIO:WR PERFORM READ/WRITE % x $ P RF(NZ) END:IO READ/WRITE ERROR % P LC A1,DWTOR+1,A6 GET ORDER % P SUK A1,/15 % ( P RF(NE)
0x20d840…20d9d4 (1, 465) Dummy {f00=0x013a, f01=0x0190, f02=» P* & P* & PIOR300 EQU * & P CF A5,INCCYL NEXT HEAD & , P AD A2,DWTSEC,A6 NEXT TRACK & L P ANKL A2,/FF00 SECTOR 0 & p P ST A2,DWTSEC,A6 SECTOR ID & 0 P LD A2,DWTWE1,A6 GET LENGTH OF PERFORMED IO & P SLL A2,4 & P SRL A2,3 CHARAC
0x20d9d4…20db68 Dummy {f00=0x013a, f01=0x0190, f02=»1,0 & P SRL A2,1 ' P DA DWTBA,A6 ' P ANK A1,/3 ' 2 P MS 2,DWTBA,A6 ' D P XIF ' Z P IFT MMUPAG=0 ' f P ADS A2,DWTBA,A6 ' | P XIF ' P ADS A3,DWTRL,A6 ' $ P RB(NZ) IOR200 NEXT TRACK/SECTOR ' P LDK A1,0 RESET RETURN CODE ' PENDI
0x20db68…20dcfc Dummy {f00=0x013a, f01=0x0190, f02=» ' P* ( P* ( PFORMAT EQU * ( P CF A15,NVLCHK ( 0 P ADK A1,0 ( F , P RF(NZ) END:IO ERROR: NEW VOLUME LOADED ( X $ P CF A5,WRIPRE PREPARE FOR WRITE ( P LDK A2,36 ( PFORM10 EQU * ( P CM FD:BUF,A2 CLEAR BUFFER ( P SUK A2,2 (
0x20dcfc…20de90 Dummy {f00=0x013a, f01=0x0190, f02=»OSS INDICATION ADDRESS ( | & P LDK A3,IN:TOS INDICATE TOSS DISC ) P ANS A3,DWTFOR,A6 ) H ( P LD A3,ECBCW1,A8 TOSS/IBM INDICATOR ) b P RF(Z) FORM40 TOSS ) P CM DWTSEC,A6 WRITE SECTOR 0 ) P CF A5,CIOI00 ) $ P LDK A3,IN:IBM INDICATE IBM DISC )
0x20de90…20e024 Dummy {f00=0x013a, f01=0x0190, f02=»INDICATION ADDRESS ) | PFORM40 EQU * * P STR A1,A4 INDICATE TOSS/IBM * . P ST A2,2,A4 * R P ST A3,DWTSEC,A6 * f P CF A5,CIOI00 WRITE SECTOR * ~ P* * P EJECT DRFD02 * P* * P* * P********** * P* END:IO * * P********** *
0x20e024…20e1b8 Dummy {f00=0x013a, f01=0x018e, f02=» * p P CF A15,TENDIO + PT:DISP EQU * + P ABL TDISP + 2 PEND:30 EQU * + D P LDK A1,1 NOT OPERABLE + X & P ORS A1,DWTST,A6 RECOVERY DONE =1 + v P RB END:IO + P* + P EJECT DRFD02 + P* + P********** + P* LOCKDO * + P********
0x20e1b8…20e34c Dummy {f00=0x013a, f01=0x0190, f02=» P LDK A2,IN:LCK , & P ORS A2,DWTFOR,A6 INDICATE LOCKED , P IFT IBM=1 , D P LD A1,DWTFOR,A6 GET FORMAT , V P ANK A1,1 , z P SRC A1,6 INDICATE TOSS/IBM , P XIF , P RB END:IO , P* , P EJECT DRFD02 , P* , P********** ,
0x20e34c…20e4e0 Dummy {f00=0x013a, f01=0x018e, f02=» , P CF A5,LOCK LOCK DOORS - P RF(NZ) END:UL ERROR - & P LDK A2,IN:LCK - B * P ORS A2,DWTFOR,A6 INDICATE DOOR LOCKED - X " P CF A5,VO:NAM GET VOLUME NAME - P ANK A1,/F - $ P RF(NZ) END:UL ERROR UNLOCK DOOR - P IFT TOSS+IBM=2 - P LD A2,DWT
0x20e4e0…20e674 (1, 466) Dummy {f00=0x013a, f01=0x0190, f02=» - P* . P EJECT DRFD02 . P* . ( P* . 2 ( P LD A4,ECBCW1,A8 DATA SET NUMBER =3 . < P LDR A3,A4 SAVE NUMBER . h P SUK A4,7 . * P RF(N) LOA:85 ILLEGAL DATA SET NUMBER . P IFT TOSS=1 . P SRC A2,1 . P XIF . P IFT TOSS=0 .
0x20e674…20e808 Dummy {f00=0x013a, f01=0x0190, f02=» P CWK A3,25 / P RF(NG) LOA:10 HEAD 0 / * P SUK A3,26 DATA SET NUMBER ON TRACK 1 / 4 * P SRC A3,1 SECTOR NUMBER IN RIGHT BYTE / b P ORKL A3,/100 HEAD 1 / PLOA:10 EQU * / P SUK A4,25-7 / * P RF(P) LOA:85 ILLEGAL DATA SET NUMBER / P CF A1
0x20e808…20e99c Dummy {f00=0x013a, f01=0x0190, f02=» A3,A1 GET RETURN CODE / P SRL A3,7 0 P ORR A1,A3 0 0 P RF(NZ) END:UL ERROR UNLOAD 0 B P* 0 f P EJECT DRFD02 0 p P* 0 P* 0 & P LDKL A7,FD:BUF+BOE ADDRESS TO BOE 0 ( P LD A4,DWTDSS,A4 GET DATA SET NUMBER 0 * P RF(NN) LOA:20 1ST DATA
0x20e99c…20eb30 Dummy {f00=0x013a, f01=0x0190, f02=»BOE,A4 SAVE BEGINNING OF EXTENT 0 . P CF A5,DECBOE CURRENT RECORD NUMBER=BOE-1 1 ( $ P ADK A7,EOE-BOE-5 ADDRESS TO EOE 1 Z P CF A5,IBMTRA 1 " P ST A3,DWTEOE,A4 END OF EXTENT 1 $ P ADK A7,EOD-EOE-5 ADDRESS TO EOD 1 P CF A5,IBMTRA 1 P ST A3,DWTEO
0x20eb30…20ecc4 Dummy {f00=0x013a, f01=0x0190, f02=»EST ERROR 1 | P RF END:UL UNLOAD 2 P* 2 , P XIF 2 6 P EJECT DRFD02 2 B P* 2 Z P********** 2 d P* UNLOAD * 2 v P********** 2 P* 2 P* UNLOAD ORDER 2 P* 2 P IFT IBM=1 2 PUNLOAD EQU * 2 P IFT TOSS+IBM=2 2 P LD
0x20ecc4…20ee58 Dummy {f00=0x013a, f01=0x0190, f02=»DATA 2 x P RF(Z) UNL:50 NOT OPENED 3 $ P CF A5,SECBIN CONVERT TO BINARY 3 , P ST A3,ECBCW2,A8 EOD TO ECB 3 T ( P LD A3,DWTDSS,A4 DATA SET SECTOR ID 3 x ( P CF A5,REAPDS PREPARE READ DATA SET 3 P CF A5,CIOI00 READ 3 P RF(NZ) END:UL READ ERROR 3
0x20ee58…20efec Dummy {f00=0x013a, f01=0x0190, f02=»1,/80 2ND DATA SET IN SECTOR 3 P* 4 $ P EJECT DRFD02 4 . P* 4 D P* 4 N PUNL:20 EQU * 4 X P LC A7,DWTEOD,A4 END OF DATA 4 l P LDR A2,A7 SAVE END OF DATA 4 P ANK A2,1 4 P ORK A2,/F0 HEAD NUMBER 4 & P SC A2,2,A1 HEAD NUMBER TO BUFFER
0x20efec…20f180 Dummy {f00=0x013a, f01=0x0190, f02=» 4 n P ADK A7,1 IBM SECTOR NUMBER 5 , P CF A5,BINDEC A3=SECTOR NUMBER IN EBCDIC 5 , ( P SC A3,4,A1 SECTOR NUMBER TO BUFFER 5 P ECR A3,A3 5 P SC A3,3,A1 5 $ P CF A5,WRIPRE PREPARE FOR WRITE 5 P CF A5,CIOI00 5 P RF(NZ) END:UL WRITE ERROR 5
0x20f180…20f314 (1, 467) Dummy {f00=0x013b, f01=0x018e, f02=» PUNLOAD EQU * 6 P XIF 6 PUNL:50 EQU * 6 $ P CF A5,UNLOCK UNLOCK DOORS 6 8 P RF(NZ) ENDIO 6 Z * P LDK A2,IN:ULC INDICATE UNLOCKED DRIVE 6 p $ P ANS A2,DWTFOR,A6 UNLOCKED DOOR 6 PENDIO EQU * 6 P ABL END:IO 6 P* 6 P IFT IBM=1 6
0x20f314…20f4a8 Dummy {f00=0x013b, f01=0x0190, f02=» PSQREAD EQU * 7 " P CF A5,REAPRE PREPARE FOR READ 7 & P CF A5,IBMCHK CHECK IBM PARAMETERS 7 > P LD A3,DWTCRN,A4 GET CRN 7 h P CF A5,INCSE0 CRN+1 7 P ECR A3,A3 LEFT BYTE 7 P CC A3,DWTEOD,A4 END OF DATA 7 P ECR A3,A3 RIGHT BYTE 7 ( P RF(NE
0x20f4a8…20f63c Dummy {f00=0x013b, f01=0x0190, f02=»,SECBIN SECTOR ID IN BINARY 7 P ST A3,ECBCW2,A8 CRN TO ECB 8 $ P IFT ASCEBC=1 8 H P CF A5,CIOI00 READ SECTOR 8 ^ " P ANK A1,1 JUST NOT OPERABLE =4 8 P RB(NZ) ENDIO READ ERROR 8 $ P CF A5,ASCMOV TRANSFORM AND MOVE 8 P LD A3,DWTSEC,A6 GET CRN+1
0x20f63c…20f7d0 Dummy {f00=0x013b, f01=0x0190, f02=»R READ 8 " P ANK A1,1 JUST NOT OPERABLE =4 9 P RB(NZ) ENDIO ERROR 9 4 * P LD A3,DWTSEC,A6 CURRENT RECORD NUMBER 9 P P ADK A4,DWTCRN ADDRESS 9 ~ P RF SQW:90 9 P XIF 9 P IFT IBM=1 9 P* 9 P EJECT DRFD02 9 P* 9 P* 9 PENDEOD E
0x20f7d0…20f964 Dummy {f00=0x013b, f01=0x0190, f02=» * 9 P********** : P* : P* SEQUENTIAL WRITE : & P* : B PSQWRIT EQU * : L $ P CF A5,WRIPRE PREPARE FOR WRITE : ` & P CF A5,IBMCHK CHECK IBM PARAMETERS : P LD A3,DWTEOD,A4 EOD : P ECR A3,A3 LEFT BYTE : $ P CC A3,DWTEOE,A4 LEFT CHARACTE
0x20f964…20faf8 Dummy {f00=0x013b, f01=0x0190, f02=»ND OF EXTENT : z P ST A3,DWTSEC,A6 END OF DATA ; $ P CF A5,SECBIN CONVERT TO BINARY ; 8 P ST A3,ECBCW2,A8 EOD TO ECB ; ` P IFT ASCEBC=1 ; P CF A5,EBCDIC ; P CF A5,CIOI00 WRITE SECTOR ; P RB(NZ) ENDIO ERROR ; P XIF ; P IFT ASCEBC=0
0x20faf8…20fc8c Dummy {f00=0x013b, f01=0x0190, f02=»+1 ; | " P ADK A4,DWTEOD ADDRESS TO EOD < P* < 0 P EJECT DRFD02 < : P* < P P* < Z PSQW:90 EQU * < d P STR A3,A4 UPDATED POINTER < x $ P LD A3,ECBRL,A8 REQUESTED LENGTH < $ P ST A3,ECBEL,A8 EFFECTIVE LENGTH < P RB ENDIO < PENDEOE EQU *
0x20fc8c…20fe20 Dummy {f00=0x013b, f01=0x018e, f02=» < P********** = P* = PREWIND EQU * = $ $ P CF A5,IBMCH5 CHECK IF IBM DISK = 8 P LD A3,DWTBOE,A4 = ` P ST A3,DWTEOD,A4 EOD=BOE = x P CF A5,DECBOE GET CRN = P RB ENDIO = P* = P XIF = P EJECT DRFD02 = P* = P********
0x20fe20…20ffb4 (1, 468) Dummy {f00=0x013b, f01=0x0190, f02=» = PFDON EQU * > & P CF A15,SAVE8 SAVE A1-A8 ON STACK > P LDKL A6,DWFD01 DWT ADDRESS > D 4 P LDKL A4,/7FFE SET UNIT BUSY AND RECOVERY ON =1 > h P ANS A4,DWTST,A6 =1 > P* > P EJECT DRFD02 > P* > P* DELAY 2 SEC > P* > P L
0x20ffb4…210148 Dummy {f00=0x013b, f01=0x0190, f02=»ON10 EQU * > P LDK A4,DWTTP ? P ADR A4,A6 ? ( P LDR A1,A6 SAVE A6 ? : P CF A15,SETIMP ? T P DATA FDON20,TIME ? j P* ? PF:DISP EQU * ? P ABL T:DISP ? P* ? P* TIME OUT ROUTINE ? P* ? PFDON20 EQU * ? P LDR A6,A1 ?
0x210148…2102dc Dummy {f00=0x013b, f01=0x0190, f02=» AND RECOVERY ON =1 ? t P ANS A5,DWTST,A6 =1 @ P LDKL A5,DWTSB2 @ 8 P ADR A5,A6 GET STACK BASE @ P P LDK A3,/F8 FILE CODE @ r P ST A3,DWT:FC,A6 @ P LDK A3,3 4 VOLUMES @ P* @ P EJECT DRFD01 @ P* @ P* @ P* READ VOLUME N
0x2102dc…210470 Dummy {f00=0x013b, f01=0x0190, f02=» @ x 2 P CF A5,GETPAR GET DEVICE DEPENDENT PARAMETERS A P CF A5,VO:NAM A > 2 P CF A5,SETPAR SET DEVICE DEPENDENT PARAMETERS A T P ANK A1,/F A P RF(Z) FDON21 NO ERROR A PFDON19 EQU * NOT OPERABLE =5 A & P LDK A1,6 NBR OF BYTES TO CLEAR =5 A $ P
0x210470…210604 Dummy {f00=0x013b, f01=0x0190, f02=»CK A P RF(NZ) FDON25 B PFDON24 EQU * B P CF A5,UNLOCK B 4 PFDON25 EQU * B J P LDK A3,0 B ^ , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. B p P SUK A3,1 B P RB(NN) FDONLD NEXT VOLUME B P EJECT DRFD02 B P* B P* RESTART IO B
0x210604…210798 Dummy {f00=0x013b, f01=0x0190, f02=»,DWTORD,A6 GET INDEX AND ORDER B P ST A7,DWTOR,A6 C & ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH C > P ANK A7,/3F ORDER C j P ABL FDAD C P* C P EJECT DRFD02 C P* C P********************* C P* * C P* INTERRUP
0x210798…21092c Dummy {f00=0x013b, f01=0x018e, f02=»: READY INTERRUPT C ~ 2 P* BIT 4 : DELETED DATA ADDRESS MARK D ( P* BIT 5 : SECTOR NOT FOUND D P " P* BIT 6 : SEEK ERROR D | & P* BIT 7 : WRITE PROTECT D $ P* BIT8,9: DRIVE NUMBER D P* BIT 10:
0x21092c…210ac0 Dummy {f00=0x013b, f01=0x0190, f02=» D p ( P* BIT 14: THROUGHPUT ERROR E $ P* BIT 15: NOT OPERABLE E 4 P* E P* OUTPUT REGISTER A1: E f P* BIT 4 : NO DATA E ( P* BIT6,9: WRITE PROTECTED E 4 P* BIT 7 : RETRIES PERFPRMED (IN DWTRC) E
0x210ac0…210c54 (1, 469) Dummy {f00=0x013b, f01=0x0190, f02=»* BIT 15: NOT OPERABLE E P* F ( " P* A5 = STACK POINTER F 2 P* A6 = DWT ADDRESS F X P* A8 = ECB ADDRESS F | P* F P EJECT DRFD02 F P* F P* F PIHFD EQU * F * P CF A15,SAVE8 SAVE REGISTERS ON ST
0x210c54…210de8 Dummy {f00=0x013b, f01=0x0190, f02=» P RB(NA) *-2 =2 G P LDK A1,1 SET RETURN CODE =2 G PIHFD00 EQU * =2 G @ P LDR A2,A1 G X P LDKL A6,DWFD01 DWT ADDRESS G j P LD A8,DWTECB,A6 ECB ADDRESS G P SLL A2,1 G " P RB(N) FDRE00 READY INTERRUPT G P ANK A1,/17 G P SLL A2,3
0x210de8…210f7c Dummy {f00=0x013b, f01=0x0190, f02=»ET G | $ P ORKL A1,RC:WRP WRITE PROTECTED H PIHFD20 EQU * H 2 P SLL A2,3 BIT10 H F P RF(NN) IHFD30 NOT SET H ^ & P LDKL A3,RC:RET RETRIES PERFORMED H | P ORS A3,DWTRC,A6 SAVE RC H PIHFD30 EQU * H P* H P EJECT DRFD02 H P* H P* H
0x210f7c…211110 Dummy {f00=0x013b, f01=0x0190, f02=» LDK A2,/FF DUMMY CYLINDER NUMBER H P ST A2,DWTCYN,A6 I * PIHFD50 EQU * I B P CF A15,INXDWT I V " P LD A5,DWTA5,A6 STACK POINTER I l ( PRTN:CR EQU * SET CR ACCORDING TO A1 I " P ADK A5,4 UPDATE STACK POINTER I P ADK A1,0 SET CR I P ABR* A5 RET
0x211110…2112a4 Dummy {f00=0x013b, f01=0x0190, f02=» * I t 0 P* S U B R O U T I N E S * J 0 P* * J L 0 P******************************************* J P* J P* J P********** J P* GETPAR * J P********** J P* J ( P
0x2112a4…211438 Dummy {f00=0x013b, f01=0x0190, f02=»ED INDEX + A6 J P* K PGETPAR EQU * K P CF A15,INXDWT K 4 4 P LD A1,DWTPAR,A4 GET DEVICE DEPENDENT PARAMETERS K J ( P SC A1,DWTFOR+1,A6 FORMAT PARAMETER K P ECR A1,A1 K . P SC A1,DWTCYN+1,A6 PRESENT CYLINDER NUMBER K P RTN A5 K P* K
0x211438…2115cc Dummy {f00=0x013b, f01=0x0190, f02=»ARAMETERS K v P* L PSETPAR EQU * L * P LD A2,DWTCYN,A6 PRESENT HEAD POSITION L 0 P ECR A2,A2 L ^ 0 P LC A2,DWTFOR+1,A6 PRESENT FORMAT PARAMETERS L p P CF A15,INXDWT L 4 P ST A2,DWTPAR,A4 SAVE DRIVE DEPENDENT PARAMETERS L P RTN A5 L P* L
0x2115cc…211760 Dummy {f00=0x013b, f01=0x0190, f02=»3,IN:LCK RESET ALL BUT LOCK/UNLOCK INDICATOR L P ANS A3,DWTFOR,A6 M 4 P LDK A3,0 CYLINDER 0 M N P CF A5,SEEKA3 SEEK M j P RF(NZ) VOL900 RETURN M P IFT TOSS=1 M P LDK A3,0 READ ORDER M P CF A5,CIOVOL M P RF(NZ) VOL900 ERROR M P IFT
0x211760…2118f4 (1, 470) Dummy {f00=0x013b, f01=0x0190, f02=»S' M P RF(NE) VOL200 N P XIF N P IFT TOSS+IBM=2 N , P IFT CPU852=0 N D P ML 2,FD:BUF+32 N Z P DSK 'TO','SS' N r P RF(NE) VOL200 NO TOSS DISC N P XIF N P IFT TOSS=1 N PVOL100 EQU * TOSS FORMATED N * P LDKL A2,FD:BUF ADDRESS TO
0x2118f4…211a88 Dummy {f00=0x013b, f01=0x0190, f02=»DRFD02 N P* O P* O " PVOL200 EQU * CHECK IF IBM DISC O " 0 P LDKL A2,FD:BUF+40 DONT OVERLAP TOSSS LABEL O H P LDK A3,/18 READ SECTOR 6 O | P CF A5,CIOVO1 O P RF(NZ) VOL900 ERROR O P IFT TOSS=1 O P LD A2,FD:BUF+40 O " P CWK A2,EBC:
0x211a88…211c1c Dummy {f00=0x013b, f01=0x0190, f02=»OSS DISC O P XIF P P IFT IBM=1 P * P LDKL A2,FD:BUF+44 VOLUME NAME ADDRESS P . P IFT ASCEBC=1 P P LDR A4,A2 P r P LDK A7,10 P $ P CF A5,ASCII TRANSFORM TO ASCII P P XIF P P IFT IBM=1 P $ P LDK A1,IN:IBM INDICATE IBM DISC P P* P
0x211c1c…211db0 Dummy {f00=0x013b, f01=0x018e, f02=»: TOSS/IBM P P ORS A1,DWTRC,A6 Q 8 P LD A3,DWT:FC,A6 FILE CODE AND TEST STATUS INDICATOR Q * & P CF A15,VOLGET VOLUME NAME TO DWT Q f & P LD A8,DWTECB,A6 ECB ADDRESS TO A8 Q ( P LDKL A3,/4000 READ SECTOR 0 HEAD 1 Q P CF A5,CIOVOL Q P SRL A1,3 Q
0x211db0…211f44 Dummy {f00=0x013b, f01=0x0190, f02=» PVOL900 EQU * R P RTN A5 R P* R ( P EJECT DRFD02 R 2 P* R H P********** R R P* GETLEN * R d P* GETLE0 * R v P********** R P* R & P* GET LENGTH ACCORDING TO FORMAT R P* R PGETLEN EQU * R P LC A7,DWTSEC,A6 SECTOR ID R
0x211f44…2120d8 Dummy {f00=0x013b, f01=0x0190, f02=»2 R P RF(NZ) GETL10 (256-2D) S PGETL05 EQU * S * P LDK A7,1 S > PGETL10 EQU * S P P SLL A7,7 *128 S d P RTN A5 S z P* S P IFT IBM+MMUPAG=2 S P EJECT DRFD02 S P* S P********** S P* GETPAG * S P********** S P* S
0x2120d8…21226c Dummy {f00=0x013b, f01=0x018e, f02=» PAGE S P SRC A1,6 T P ST A1,DWTPAG,A6 T P ADKL A1,/400 NEXT PAGE T 8 P ST A1,DWTPAG+2,A6 T X P SRL A2,3 LOGICAL ADDRESS T r P RB RTN:CR T P* T P XIF T P IFT IBM+ASCEBC=2 T P EJECT DRFD02 T P* T P********** T P
0x21226c…212400 Dummy {f00=0x013b, f01=0x018e, f02=» P* A7 =LENGTH U P* U $ " P* OUTPUT: A1,A4,A7 CHANGED U . P* U T PASCII EQU * U ^ P ENB U r P ADR A4,A7 U ~ PASC:10 EQU * U P SUK A4,1 U P LCR A1,A4 EBCDIC CHARACTER U P ANK A1,/FF U ( P LC A1,TASCII,A1 TRANSFORM
0x212400…212594 (1, 471) Dummy {f00=0x0193, f01=0x0190, f02=» P* V P EJECT DRFD02 V P* V & P********** V 0 P* ASCMOV * V B P********** V T P* V f 6 P* FUNCTION: TRANSFORMS A STRING FROM EBCDIC TO V p D P* ASCII CODE AND MOVES IT FROM FD:BUF TO USER BUFFER V . P* INPUT ST
0x212594…212728 Dummy {f00=0x0193, f01=0x0190, f02=»D V x P* W PASCMOV EQU * W P CF A5,GETLEN W ( P IFT MMUPAG=0 W > " P LD A4,DWTBA,A6 BUFFER ADDRESS W T P CF A5,ASCII W z P XIF W P IFT IBM+ASCEBC=2 W P IFT MMUPAG=1 W * P LDKL A4,FD:BUF DRIVER BUFFER ADDRESS W P ENB W P CF
0x212728…2128bc Dummy {f00=0x0193, f01=0x0190, f02=»LOAD MMUTABLE W $ P LDR A1,A4 DRIVER BUFFER ADDRESS X ( P MVSU A7 MOVE SECTOR TO USER BUFFER X > , P TL -30,A15 RESTORE MMU TABLE FROM STACK X j P XIF X P IFT IBM+ASCEBC=2 X P LDK A1,0 RESET RC X P RF IBMT60 X P* X P EJECT DRFD02 X
0x2128bc…212a50 Dummy {f00=0x0193, f01=0x0190, f02=» X X P* EBCDIC CODE Y 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER Y * P* Y f P* OUTPUT: A1 CHANGED Y p P* A4 = BUFFER ADDRESS Y P* A7 CHANGED Y PEBCDIC EQU * Y P IFT IBM+MMUPAG=2 Y P IFT
0x212a50…212be4 Dummy {f00=0x0193, f01=0x0190, f02=»DR A1,A2 LOGICAL ADDRESS SOURCE Y ( P TS -30,A15 SAVE RUNNING TASK'S MMU Z ( P TL DWTPAG,A6 LOAD MMU TABLE Z T " P LDR A2,A4 DESTINATION ADDRESS Z x * P MVUS A7 MOVE SECTOR TO DRIVER BUFFER Z , P TL -30,A15 RESTORE MMU TABLE FROM STACK Z P RF EBC:07 Z
0x212be4…212d78 Dummy {f00=0x0193, f01=0x0190, f02=» P* [ P XIF [ P IFT ASCEBC+IBM=2 [ P ENB [ 4 P IFT MMUPAG=0 [ @ P IFT IBM+ASCEBC=2 [ V " P LD A4,DWTBA,A6 BUFFER ADDRESS [ p P XIF [ P IFT IBM+ASCEBC=2 [ P CF A5,GETLEN [ P ADR A4,A7 [ PEBC:10 EQU * [ P SUK A4,1 [
0x212d78…212f0c Dummy {f00=0x0193, f01=0x0190, f02=»:10 [ P INH INHIBIT INTERRUPTS P RTN A5 , P XIF < P IFT IBM=1 H P* Z P EJECT DRFD02 d P* | P********** P* BINDEC * P********** P* : P* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO 0 P*
0x212f0c…2130a0 Dummy {f00=0x0193, f01=0x018e, f02=»MAL DIGITS p P* A7 CHANGED ] P* ] 0 PBINDEC EQU * ] : $ P LDKL A3,/EFF0 EBCDIC CHARACTERS ] N P ANK A7,/7F ] v PBIN:10 EQU * ] " P ADKL A3,/100 ADD 10 IN EBCDIC ] P SUK A7,10 ] P RB(NN) BIN:10 ] P ADK A7,10 NUMBER 0-9 ]
0x2130a0…213234 (1, 472) Dummy {f00=0x0193, f01=0x018e, f02=» ] 4 P* TRANSFORM SECTOR IDENTIFIER FROM EBCDIC CODE ^ P* TO BINARY CODE ^ @ P* ^ Z $ P* FORMAT : TTHSS (EBCDIC CODE) ^ d * P* TT=TRACK,H=HEAD,SS=SECTOR ^ P* ^ ( P* INPUT : A7 = ADDRESS TO TTHSS ^ P* ^ < P* OUTPUT :
0x213234…2133c8 Dummy {f00=0x0193, f01=0x0190, f02=» P* _ PIBMTRA EQU * _ ( P CF A5,EBCBI2 TRANSFER EBCDIC - BIN _ " P LDR A3,A1 SAVE TRACK NUMBER _ N P SLL A3,1 IN POSITION _ r " P LDK A4,1 TRANSFER HEAD NUMBER _ P CF A5,EBCBIN EBCDIC-BINARY _ & P ORR A3,A1 HEAD NUMBER IN POSITION _ P LD
0x2133c8…21355c Dummy {f00=0x0193, f01=0x0190, f02=»1,1 _ ( P RF(NN) IBMT70 HEAD NUMBER TOO HIGH ` P CF A5,EBCBI2 EBCDIC-BINARY ` 8 . P ECR A3,A3 TRACK AND HEAD NO TO LEFT BYTE ` $ P SUK A1,1 PHYSICAL SECTOR NUMBER ` * P ORR A3,A1 SECTOR NUMBER TO RIGHT BYTE ` P* ` P EJECT DRFD02 ` P* `
0x21355c…2136f0 Dummy {f00=0x0193, f01=0x0190, f02=»WTFOR,A6 GET FORMAT ` P SRC A2,2 a P RF(NN) IBMT10 (128-1) a . P SUK A4,2 DECREMENT TRACK NO a L PIBMT10 EQU * a p P CWK A4,FD:BUF+EOD+5 a P RF(E) IBMT15 EOD a P CWK A4,FD:BUF+EOD+/45 a P RF(NE) IBMT20 BOE OR EOE a PIBMT15 EQU * a
0x2136f0…213884 Dummy {f00=0x0193, f01=0x0190, f02=» NUMBER IF LAST TRACK a z P RF IBMT50 b PIBMT20 EQU * EOD b 0 P ADK A2,0 FORMAT b H P RF(NN) IBMT30 (128-1) b ` P SUK A4,1 b ~ PIBMT30 EQU * b P SUK A4,145 2*73-1 b & P RF(P) IBMT70 INCORRECT TRACK,HEAD b PIBMT40 EQU * b P SUK A1,25
0x213884…213a18 Dummy {f00=0x0193, f01=0x0190, f02=» RTN A5 b P* c P EJECT DRFD02 c P* c 0 P* c : PIBMT70 EQU * ERROR c D P LDK A1,RC:IDS RC: ERROR c ^ P ABL END:UL c ~ P* c P EJECT DRFD02 c P* c P* c P********** c P* SECBIN * c P********** c P* c 0 P*
0x213a18…213bac Dummy {f00=0x0193, f01=0x0190, f02=» P ANK A2,/2 d P RF(NZ) SECB05 (256-2D) d P SRL A3,1 d 6 PSECB05 EQU * d H P SRL A3,8 TRACK AND HEAD d P LDR A2,A3 d | P SLL A3,5 *32 d P SLL A2,2 *4 d P SUR A3,A2 *28 d P SRL A2,1 *2 d P SUR A3,A2 *26 d P ANK A1,/FF d
0x213bac…213d40 Dummy {f00=0x0193, f01=0x0190, f02=» P********** e P* e 0 P* EBCBIN TRANSFORM EBCDIC CODED DIGITS TO e D P* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED e T , P* INPUT: A4 ADDRESS TO FIRST DIGIT e ( P* A7 = NUMBER OF DIGITS e P* OUTPUT: A1
0x213d40…213ed4 (1, 473) Dummy {f00=0x0194, f01=0x0190, f02=»EBCBIN EQU * e P LDK A1,0 f PDEC:10 LCR A2,A7 DIGIT f & P ANK A2,/FF f D P SUK A2,/F0 f X P RB(N) IBMT70 f l P SUK A2,9 f P RB(P) IBMT70 NOT DIGIT f P ADK A2,9 f $ P ADK A7,1 ADDRESS TO NEXT DIGIT f P SUK A4,1 f P RF(Z) D
0x213ed4…214068 Dummy {f00=0x0194, f01=0x0190, f02=»A2 f P RTN A5 g P* g P EJECT DRFD02 g $ P* g : P* g D P********** g N P* IBMCHK * g ` P* IBMCH5 * g r P********** g P* g P* IBM CHECK OF PARAMETERS g P* g ( P* INPUT : A4=INDEXED DWT ADDRESS g P* OUTPUT :
0x214068…2141fc Dummy {f00=0x0194, f01=0x018e, f02=» g P RF(NN) IBMC10 (128-1) h P SUK A2,128 h & PIBMC10 EQU * h : P SUK A2,128 h N " P ABL(NZ) ER:ILE ILLEGAL LENGTH h b PIBMCH5 EQU * h P LD A2,DWTEOD,A4 END OF DATA h & P RF(Z) REQERO NOT OPENED DATA SET h P IFT ASCEBC=0 h P CF A5,G
0x2141fc…214390 Dummy {f00=0x0194, f01=0x0190, f02=» & P ABL(NZ) END:IO NEW VOLUME LOADED i P IFT TOSS=1 i . P LD A2,DWTFOR,A6 GET FORMAT i B P SRC A2,1 i f P RB(N) IBMT60 IBM DISC i x P XIF i P IFT TOSS=0 i P RB IBMT60 i P XIF i P IFT IBM=1 i PREQERO EQU * REQUEST ERROR i P
0x214390…214524 Dummy {f00=0x0194, f01=0x018e, f02=»ENT SECTOR IDENTIFIER i P* j P* OUTPUT: A3 = SECTOR ID j ( P* j L PINCSEC EQU * j V P LD A3,DWTSEC,A6 SECTOR ID j j PINCSE0 EQU * j P ADK A3,1 j P CCK A3,/1A00 SECTOR 26 j P RF(L) INCS10 SAME TRACK j P CF A5,INCCYL NEXT TRA
0x214524…2146b8 Dummy {f00=0x0194, f01=0x0190, f02=» P* k P EJECT DRFD02 k P* k $ P********** k . P* DECBOE * k @ P********** k R P* k d P* CRN = A3-1 k n P* k PDECBOE EQU * k P CCK A3,0 k P RF(NZ) DECS10 k P CF A5,INCCYL NEXT TRACK k P SUR A3,A2 k P ORK A3,26 k
0x2146b8…21484c Dummy {f00=0x0194, f01=0x0190, f02=»DRFD02 k P* l P* l P********** l " P* INCCYL * l 4 P********** l F P* l X P* NEXT TRACK OF SECTOR ID l b P* l P* l PINCCYL EQU * l P LD A2,DWTFOR,A6 l P C1R A2,A2 l ( P ANK A2,2 (128-1)/(256-2D) INDICATOR l P ADK
0x21484c…2149e0 Dummy {f00=0x0194, f01=0x018e, f02=»RE * l P* WRIPRB * m P* WRIPRE * m P* CIOPRE * m 0 P********** m B P* m T P* PREPARE FOR CIO START m ^ P* m P IFT IBM=1 m PREAPDS EQU * m P ANKL 3,/7FFF m & P ST A3,DWTSEC,A6 SECTOR IDENTIFIER m P XIF m PREAPRB EQU *
0x2149e0…214b74 (1, 474) Dummy {f00=0x0194, f01=0x0190, f02=» PREAPRE EQU * READ n P LDKL A1,IN:WE1-/80 1ST WER n P LDK A3,0 CIO REGISTER n B P RF CIOPRE n ` P* n r PWRIPRE EQU * WRITE n | P LDKL A1,IN:WE1+/4000-/80 n P LDK A3,1 n P* n PCIOPRE EQU * GENERAL n P ST A1,DWTWE1,A6 n P
0x214b74…214d08 Dummy {f00=0x0194, f01=0x0190, f02=» * n P* SEEK * o P* CIO:WR * o P* CIO:VF * o . P********** o @ P* o R P* o P* o f PLOCK EQU * o p P LDKL A3,/0400 o P RF CIO:00 o PUNLOCK EQU * o P LDKL A3,/0C00 o P RF CIO:00 o PSEEK EQU * o ( P LD A3,DWTSEC,A6
0x214d08…214e9c Dummy {f00=0x0194, f01=0x0190, f02=»SEEKA3 EQU * o P ST A3,DWTCYN,A6 p P SLL A3,2 IN POSITION p , P ORK A3,3 ORDER CODE p J P RF CIO:00 p f P* p x P EJECT DRFD02 p P* p P* p PCIOIVF EQU * p P LDKL A3,/400 VERIFY p P RF CIOI03 p PCIOI00 EQU * IBM IO ROUTIN
0x214e9c…215030 Dummy {f00=0x0194, f01=0x0190, f02=»,GETLEN GET LENGTH p P LDR A1,A7 q P SRL A1,1 q , P OR A1,DWTWE1,A6 1ST WER q > P LDKL A2,FD:BUF BUFFER q ^ P OR A3,DWTIOR,A6 q | P IFT MMUPAG=0 q P RF(NZ) CIOWE2 WRITE ORDER q " P LD A2,DWTBA,A6 BUFFER ADDRESS q P XIF q P RF CIOWE2
0x215030…2151c4 Dummy {f00=0x0194, f01=0x0190, f02=» TOSS+EBCASC=0 q P EJECT DRFD02 r P* r , P* r 6 PCIO:VF EQU * r @ P LDKL A3,/400 VERIFY r T P RF CIOWER r p PCIO:WR EQU * r P CF A5,SEEK r P ANK A1,/F r P RF(NZ) CIOERR SEEK ERROR r P LDK A3,0 READ/WRITE r PCIOWER EQU * r
0x2151c4…215358 Dummy {f00=0x0194, f01=0x0190, f02=» TOSS+EBCASC=0 r P IFT MMUPAG=1 s , P ML 2,DWTBA,A6 GET 18 BIT BUFFER ADDRESS s , P SRC A1,4 s P OR A1,DWTWE1,A6 1ST WER s n P SLL A2,1 2ND WER s P OR A3,DWTIOR,A6 IO REGISTER s P XIF s PCIOWE2 EQU * s " P LD A4,DWTSEC,A6 SECTOR NUMB
0x215358…2154ec Dummy {f00=0x0194, f01=0x0190, f02=»4,1 HEAD NUMBER s P SRC A4,2 IN POSITION t P ORR A3,A4 IN ORDER WORD t 6 P* t V P EJECT DRFD02 t ` P* t v P* t PPERCIO EQU * t P WER A1,MUXADR t P WER A2,MUXADR+1 t PCIO:00 EQU * t P LD A2,PFPOST t 4 P RF(NZ) CIO:AB POW
0x2154ec…215680 Dummy {f00=0x0194, f01=0x018e, f02=»DRESS UNKNOWN t | PCIO:AB EQU * u & P ST A5,DWTA5,A6 SAVE STACK POINTER u * P ABL T:DISP DISPATCH u T PCIORTN EQU * u p P LDK A1,0 RESET RC u PCIOERR EQU * u P RTN A5 u P* u P EJECT DRFD02 u P* u P* u P********** u P
0x215680…215814 (1, 475) Dummy {f00=0x0194, f01=0x0190, f02=» u P RES 64 v P XIF v P* v $ P EJECT DRFD02 v . P* v F P********************* v P P* * v n P* DEVICE WORK TABLE * v P* * v P********************* v P* v PDWFD01 EQU * v P DAT
0x215814…2159a8 Dummy {f00=0x0194, f01=0x0190, f02=»0 TTAB-ADDRESS v $ P DATA 0 WAIT/ACTIVATE INDICATOR w P DATA 0 TERMINAL QUEUE w > P* w P IFT MMUPAG=1 w f & P DATA 0 SAVE AREA USER ECB ADDRESS w | P DATA DEVECB MMU ECB ADDRESS w P XIF w P* w PDWTA5 EQU *-DWFD01 w P DATA 0 w ,
0x2159a8…215b3c Dummy {f00=0x0194, f01=0x0190, f02=» DATA 0 ORDER SAVE AREA w P* x P EJECT DRFD02 x * P* x B P* x L P DATA /8000 NVL INDICATOR 0 x V P DATA /8000 NVL INDICATOR 1 x z P DATA /8000 NVL INDICATOR 2 x P DATA /8000 NVL INDICATOR 3 x ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO
0x215b3c…215cd0 Dummy {f00=0x0194, f01=0x0190, f02=»1 VOLUME NAME NO 2 x ~ P DATA /FFFF,/FFFF,/FFFF y ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 y : P DATA /FFFF,/FFFF,/FFFF y f $ PDWTTP EQU *-DWFD01 TIMER POINTER y P DATA 0 y " PDWTCIO EQU *-DWFD01 CIO START y P CIO A3,1,CUADR UNIT 0 y P CIO A
0x215cd0…215e64 Dummy {f00=0x0194, f01=0x0190, f02=» P* z P IFT IBM=1 z , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT z P DATA 0,0,0,0 z P $ PDWTEOD EQU *-DWFD01 END OF DATA z f P DATA 0,0,0,0 z & PDWTEOE EQU *-DWFD01 END OF EXTENT z P DATA 0,0,0,0 z * PDWTCRN EQU *-DWFD01 CURRENT RECORD N
0x215e64…215ff8 Dummy {f00=0x0194, f01=0x0190, f02=» 4 PDWTPAG EQU *-DWFD01 PAGE ADDRESS TO USER BUFFER { P DATA 0,0 { < P XIF { N P EJECT DRFD02 { Z P* { r P* { | " PDWT:FC EQU *-DWFD01 FILE CODE { P DATA /F8 { 4 PDWTPAR EQU *-DWFD01 DEVICE DEPENDENT PARAMETERS { F P DATA /FF00,/FF00,
0x215ff8…21618c Dummy {f00=0x0194, f01=0x0190, f02=»-DWFD01 PRESENT CYLINDER NUMBER { P DATA /FFFF | ( 2 PDWTSEC EQU *-DWFD01 SECTOR NUMBER ON CYLINDER | < P DATA 0 | r ( PDWTWE1 EQU *-DWFD01 1ST WER REGISTER | P DATA 0 | $ PDWTRL EQU *-DWFD01 LENGTH OF IO | P DATA 0 | & PDWTBA EQU *-DWFD01
0x21618c…216320 Dummy {f00=0x0194, f01=0x40b8, f02=» *-DWFD01 CIO REGISTER | P DATA 0 } P* } . P IFT MMUPAG=1 } 8 PDEVECB EQU * } N P DATA 0,0,0,0,0,0,0 } b P XIF } ~ P* } P* } P* } P END } @ } $ PDWTRL EQU *-DWFD01 LENGTH OF IO | P DATA 0 | & PDWTBA EQU *-DWFD01
0x216320…2164b4 (1, 476) Dummy {f00=0x0194, f01=0x2008, f02=» ~ END @
0x2164b4…216648 Dummy {f00=0x0194, 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
0x216648…2167dc Dummy {f00=0x0194, 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**
0x2167dc…216970 Dummy {f00=0x0194, 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 *
0x216970…216b04 Dummy {f00=0x0194, 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
0x216b04…216c98 Dummy {f00=0x0194, 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 **
0x216c98…216e2c Dummy {f00=0x0194, 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
0x216e2c…216fc0 Dummy {f00=0x0194, 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
0x216fc0…217154 (1, 477) Opaque[0x194]
0x217154…2172e8 # DirEnt {nam=»DRSU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14f0, f03=0x0000}
0x217154…2172e8 IdxSect {
0x217154…2172e8 f00 = 0x00a7 // 0x217154 @0x0
0x217154…2172e8 f01 = 0x002c // 0x217156 @0x2
0x217154…2172e8 gno = [ // 0x217158 @0x4
0x217154…2172e8 [0x00]: C0x00a7.0x2.0
0x217154…2172e8 [0x01]: C0x00a7.0x3.0
0x217154…2172e8 [0x02]: C0x00a8.0x0.0
0x217154…2172e8 [0x03]: C0x00a8.0x1.0
0x217154…2172e8 [0x04]: C0x00a8.0x2.0
0x217154…2172e8 [0x05]: C0x00a8.0x3.0
0x217154…2172e8 [0x06]: C0x00a9.0x0.0
0x217154…2172e8 [0x07]: C0x00a9.0x1.0
0x217154…2172e8 [0x08]: C0x00a9.0x2.0
0x217154…2172e8 [0x09]: C0x00a9.0x3.0
0x217154…2172e8 [0x0a]: C0x00aa.0x0.0
0x217154…2172e8 [0x0b]: C0x00aa.0x1.0
0x217154…2172e8 [0x0c]: C0x00aa.0x2.0
0x217154…2172e8 [0x0d]: C0x00aa.0x3.0
0x217154…2172e8 [0x0e]: C0x00ab.0x0.0
0x217154…2172e8 [0x0f]: C0x00ab.0x1.0
0x217154…2172e8 [0x10]: C0x00ab.0x2.0
0x217154…2172e8 [0x11]: C0x00ab.0x3.0
0x217154…2172e8 [0x12]: C0x00ac.0x0.0
0x217154…2172e8 [0x13]: C0x00ac.0x1.0
0x217154…2172e8 [0x14]: C0x00ac.0x2.0
0x217154…2172e8 [0x15]: C0x00ac.0x3.0
0x217154…2172e8 ]
0x217154…2172e8 }
0x2172e8…21747c Dummy {f00=0x00a7, f01=0x0190, f02=» 2 P IDENT DRSU01 REL 11.0 81-05-25 870105041100 P : , P =4, LOOPT & POW-ON CORR;NEW COND ASS B P REL 11.0 81-02-17 r & P =3, HANG UP ON REMOTE RECOVERY P REL 11.0 81-02-16 * P =2, STATUS HANDLING FOR TP CHANGED P REL
0x21747c…217610 Dummy {f00=0x00a7, f01=0x0190, f02=»********** j P* $ P* PHILIPS TERMINAL SYSTEM PTS P* D . P* DRSU01 = DRIVER CHANNEL UNIT FOR LOCAL N & P* AND REMOTE TERMINALS " P* CONNECTED TO SUM P* P* P* P* 4 P****************
0x217610…2177a4 Dummy {f00=0x00a7, f01=0x0190, f02=»ECTED TO SELECTOR UNIT (SUM). P* & : P* THE DRIVER IS CALLED FROM TERMINAL DEVICE DRIVERS. 0 P* n : P* THE DRIVER HAS SEPARATED ENTRIES FOR LOCAL AND FOR x P* REMOTE TERMINALS. P* > P* AT OUTPUT A WORD WITH DEVICE ADDRESS A
0x2177a4…217938 Dummy {f00=0x00a7, f01=0x0190, f02=»E WORD IS EXAMINED AND SUITABLE ACTIONS ARE CARRIED OUT. P* @ 0 P* CONTROL WORK TABLES FOR THE CHANNELS ARE J P* INCLUDED IN THE DRIVER. ~ P EJECT P* P* P* . P* NORMAL REGISTER USAGE IN THE DRIVER:- P*
0x217938…217acc Dummy {f00=0x00a7, f01=0x0190, f02=»-ADDRESS P* A6 = DWT-ADDRESS & P* A7 = LOCAL/REMOTE INDICATION: , & P* 0 IF LOCAL CONNECTION V : P* ADJUSTED CWT-ADDRESS IF REMOTE CONNECTION P* A8 = ECB-ADDRESS P* P* P* P EJECT P*
0x217acc…217c60 Dummy {f00=0x00a7, f01=0x0190, f02=»ANNEL UNIT LOCAL l : P ENTRY CHLT2 INTERRUPT FROM SECOND CHANNEL UNIT LOCAL 4 P ENTRY CHLT3 INTERRUPT FROM THIRD CHANNEL LOCAL V 4 P ENTRY CHLT4 INTERRUPT FROM FOURTH CHANNEL LOCAL : P ENTRY CHRT1 INTERRUPT FROM FIRST CHANNEL UNIT REMOTE : P ENT
0x217c60…217df4 (1, 478) Dummy {f00=0x00a7, f01=0x0190, f02=» FROM FOURTH CHANNEL REMOTE z ( P ENTRY CHLTON START OF CHLT AND CHRT $ P ENTRY CHTAB CHANNEL TABLE P @ P ENTRY DWREMU DWT-DUMMY FOR LOOP-TESTING OF REMOTE CHANNELS r 0 P ENTRY LOCHAN NUMBER OF LOCAL CHANNEL UNITS 0 P ENTRY RECHAN NUMBER OF REMOTE
0x217df4…217f88 Dummy {f00=0x00a7, f01=0x0190, f02=»RY LTCHRI CHARACTER INPUT (LOCAL) 0 P ENTRY LTSTBL START OF OUTPUT BLOCK (LOCAL) * * P ENTRY LTCHRO CHARACTER OUTPUT (LOCAL) ^ . P ENTRY LTENBL END OF OUTPUT BLOCK (LOCAL) * P ENTRY LTDISP LOCAL DISPATCHER (LOCAL) P* * P ENTRY RTCHRI CHAR
0x217f88…21811c Dummy {f00=0x00a7, f01=0x018e, f02=»TENBL END OF OUTPUT BLOCK (REMOTE) , P ENTRY RTDISP LOCAL DISPATCHER (REMOTE) * P* Z P EJECT d P* r P* | * P************************************** * P* EXTERNAL TOSS MODULE ENTRIES * * P**************************************
0x21811c…2182b0 Dummy {f00=0x00a7, f01=0x0190, f02=» 6 P EXTRN INTLT1 INTERRUPT TABLE FOR LOCAL CHANNEL 1 6 P EXTRN INTLT2 INTERRUPT TABLE FOR LOCAL CHANNEL 2 B 6 P EXTRN INTLT3 INTERRUPT TABLE FOR LOCAL CHANNEL 3 | 6 P EXTRN INTLT4 INTERRUPT TABLE FOR LOCAL CHANNEL 4 6 P EXTRN INTRT1 INTERRUPT
0x2182b0…218444 Dummy {f00=0x00a7, f01=0x0190, f02=»NNEL 3 d 6 P EXTRN INTRT4 INTERRUPT TABLE FOR REMOTE CHANNEL 4 P* H $ P EXTRN LENDER I/O REQUEST ERROR R & P EXTRN LENDIS END I/O AND DISPATCH z * P EXTRN INTSAV SAVE AREA LAST INTERRUPT . P EXTRN IHRET8 RESTORE A1-A8 WITHOUT ENABLE P*
0x218444…2185d8 Dummy {f00=0x00a7, f01=0x0190, f02=» j 2 P EXTRN NDRETO SET OK & RETURN TO DEVICE DRIVER 6 P EXTRN NDREP GET REGISTERS & RETURN TO DEV. DRIVER > P* x P EJECT P* P* P*********************** P* DWT PARAMETERS * P*********************** P*
0x2185d8…21876c Dummy {f00=0x00a7, f01=0x0190, f02=»DDRESS-BLOCK v P EXTRN DWTST STATUS P EXTRN DWTOTQ OUTPUT QUEUE 0 & P EXTRN DWTSB2 STACK BASE 2 IN DWT R P EXTRN DWTLD1 TIMER POINTER | & P EXTRN DWTCP2 CHANNEL PARAMETERS 2 ( P EXTRN DWTDEV TERMINAL DEVICE STATUS 0 P EXTRN INTADR INTE
0x21876c…218900 Dummy {f00=0x00a7, f01=0x0190, f02=»************** P* CONSTANTS * P******************** 2 P* N P* X ( PNOERR EQU 1 RETURN CODE NOT OPERABLE b ( PLRCERR EQU /02 RETURN CODE LRC-ERROR 0 PTIMERR EQU /08 RETURN CODE SOFTWARE TIME-OUT , POUTERR EQU /10 RETURN CODE
0x218900…218a94 (1, 479) Dummy {f00=0x00a8, f01=0x018e, f02=»K INPUT DEVICE ~ , PINDARQ EQU /20 MASK INPUT DATA REQUESTED & PRECTRI EQU /10 FLAG RECOVERY TRIAL F $ PLRCSEN EQU /08 FLAG LRC-SENDING p ( PLMPQUE EQU /04 FLAG LAMP CODE QUEUED . PKBLAMP EQU /08 MASK KB-LAMPS ON VDU OUTPUT , PTIME EQU 5 TIME BE
0x218a94…218c28 Dummy {f00=0x00a8, f01=0x0190, f02=» v ( PESCKB EQU /1C ESCAPE CODE DATA TO KB 4 PDUMMSP EQU /3 SPECIAL DUMMY TO GET DATA REQUEST 4 ( P FIRST WHEN PRINTERBUFFER IS EMPTY l 0 PDRQTIM EQU 30 TIME TO NEXT ACK FOR PRINTERS P EJECT P* , P************************************
0x218c28…218dbc Dummy {f00=0x00a8, f01=0x0190, f02=»GG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER 8 P* MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1 8 P* t PX:A EQU 1 ~ PLOGING EQU X:A P* P* < P* BY SETTING X:B TO 0,1,2,3 OR 4 THIS DRIVER HANDLES $ P* UP TO FOU
0x218dbc…218f50 Dummy {f00=0x00a8, f01=0x018e, f02=»N FAULT AND h 4 P* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN 8 P* THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM L $ P* DRIVER BY SETTING X:C = 0. P* PX:C EQU 1 PACKMUL EQU X:C P* P* < P* BY SETTING X:
0x218f50…2190e4 Dummy {f00=0x00a8, f01=0x0190, f02=» P* P* P EJECT P* * , P* REMFC IS " REMOTE TEST FILE CODE " 4 P* STANDARD IS /15 d P* PX:E EQU /15 PREMFC EQU X:E P* P* : P* BY SETTING X:F = 0 THE SOFTWARE TIME-OUT HANDLING @ P*
0x2190e4…219278 Dummy {f00=0x00a8, f01=0x0190, f02=» FOR ONLY LOCAL TERMINALS (RECHAN=0). P* . PX:F EQU 1 U =4 8 PSOFTIM EQU X:F U =4 N P* j P* t B P* IF X:G = 1 THE DRIVER CAN HANDLE OUTPUT TO KEYBOARD LAMPS ~ 4 P* WHEN KEYBOARD IS CONNECTED DIRECTLY TO VDU. P* PX:
0x219278…21940c Dummy {f00=0x00a8, f01=0x0190, f02=» OBTAINED BY SETTING CPU852 EQU 0. P* * PCPU852 EQU 1 4 P* H P* R < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG TO 1. P* PMMUPAG EQU 0 U =4 P* P EJECT P* P**
0x21940c…2195a0 Dummy {f00=0x00a8, f01=0x0190, f02=» TERMINALS | P* P* PCWTLDW EQU 0 LAST OUTPUT DWT & " PCWTLOW EQU 2 LAST OUTPUT WORD J , PCWTITA EQU 4 ADDRESS TO INTERRUPT TABLE p PCWTINR EQU 6 INR PCWTOTR EQU 8 OTR PCWTCIS EQU 10 CIO-START ( PCWTRTC EQU 12 RETRANSMIS
0x2195a0…219734 (1, 480) Dummy {f00=0x00a8, f01=0x0190, f02=»UMULATOR n PCWTTP EQU 26 TIMER POINTER P XIF 2 P IFT ACKMUL=0 > PCWTTP EQU 18 TIMER POINTER T P XIF v P* P* ONLY REMOTE TERMINALS P* P* & PCWSYNC EQU CWTTP+2 SYNC CHARACTER 4 PLRCDWT EQU CWTTP+4 DWT-S OF
0x219734…2198c8 Dummy {f00=0x00a8, f01=0x0190, f02=»LK EQU CWTTP+14 BLOCK SENDING INDICATOR P* 0 P EJECT : : P***************************************************** H : P* C W T L T 1 * : P***************************************************** P*
0x2198c8…219a5c Dummy {f00=0x00a8, f01=0x018e, f02=»RY z P* P IFF LOCHAN=0 P* * P DATA 0 LAST OUTPUT DWT 4 P DATA 0 LAST OUTPUT WORD T , P DATA INTLT1 ADDRESS TO INTERRUPT TABLE t P INR A2,0,DWA1 INR P OTR A2,0,DWA1 OTR P CIO A2,1,DWA1 CIO-START " P DATA 0 RETRANSM
0x219a5c…219bf0 Dummy {f00=0x00a8, f01=0x018e, f02=» v $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 0 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ` P* P XIF P* P EJECT P* P* : P*****************************************************
0x219bf0…219d84 Dummy {f00=0x00a8, f01=0x0190, f02=» 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 2 P* < PCWTLT2 EQU * F P* Z P IFF LOCHAN=0 d P IFF LOCHAN=1 z P* P* P* PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST
0x219d84…219f18 Dummy {f00=0x00a8, f01=0x0190, f02=» " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE * P DATA 0 SECOND QUEUE @ P* P IFT ACKMUL=1 f P* | P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PR
0x219f18…21a0ac Dummy {f00=0x00a8, f01=0x0190, f02=»***************** l : P* C W T L T 3 * : P***************************************************** X P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 3 P* PCWTLT3 EQU * P* P IFF LOC
0x21a0ac…21a240 Dummy {f00=0x00a8, f01=0x0190, f02=»ATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT3 INTERRUPT TABLE > P INR A2,0,DWA3 INR b P OTR A2,0,DWA3 OTR | P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE P DATA 0 SECOND QUEUE
0x21a240…21a3d4 (1, 481) Dummy {f00=0x00a8, f01=0x0190, f02=»D- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* L P XIF V P* b P EJECT l P* z P* : P***************************************************** : P* C W T L T 4 * :
0x21a3d4…21a568 Dummy {f00=0x00a8, f01=0x0190, f02=» PCWTLT4 EQU * P* P IFT LOCHAN=4 " P* 8 P* B P* L PDWA4 EQU /33 V P* j P DATA 0 LAST OUTPUT DWT t P DATA 0 LAST OUTPUT WORD P DATA INTLT4 INTERRUPT TABLE P INR A2,0,DWA4 INR P OTR A2,0,DWA4 OTR
0x21a568…21a6fc Dummy {f00=0x00a8, f01=0x0190, f02=»FT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR > , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR f ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P EJECT $ P************************
0x21a6fc…21a890 Dummy {f00=0x00a8, f01=0x0190, f02=»EL NO. 1 h P* CONNECTED TO FIRST CHRT ! P* ! 4 PCWTRT1 EQU * ! > P* ! R P IFF RECHAN=0 ! P* ! r PDWA5 EQU /1 DEVICE ADDRESS ! | P* ! P DATA 0 LAST OUTPUT DWT ! P DATA 0 LAST OUTPUT WORD ! P DATA INTRT1 INTERRUPT TABLE !
0x21a890…21aa24 Dummy {f00=0x00a8, f01=0x0190, f02=»EUE TERMINAL 1 ! P DATA 0 QUEUE TERMINAL 2 " P* " 6 P IFT ACKMUL=1 " @ P* " V P DATA 0 NAK-ACKUMULATOR " ` $ P DATA 0 BLOCK ERROR ACKUMULATOR " , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR " ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR " P* "
0x21aa24…21abb8 Dummy {f00=0x00a8, f01=0x0190, f02=»RC-PROCESS TERMINAL 1 " z 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 # & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 # R & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 # | , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) # ( P DATA 1 BIT 0: BLOCKSENDING RUNNING # $ P BIT
0x21abb8…21ad4c Dummy {f00=0x00a8, f01=0x0190, f02=» $ P******************************** $ : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 $ , P* CONNECTED TO FIRST CHRT $ j P* $ PCWTRT2 EQU * $ P* $ P IFF RECHAN=0 $ P* $ P DATA 0 LAST OUTPUT DWT $ P DATA 0 LAST OUTPU
0x21ad4c…21aee0 Dummy {f00=0x00a8, f01=0x0190, f02=»ATA 0 RETRANSMISSION COUNTER $ P DATA 0 QUEUE TERMINAL 1 % $ P DATA 0 QUEUE TERMINAL 2 % D P* % d P IFT ACKMUL=1 % n P* % P DATA 0 NAK-ACKUMULATOR % $ P DATA 0 BLOCK ERROR ACKUMULATOR % , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR % ( P D
0x21aee0…21b074 (1, 482) Dummy {f00=0x00a8, f01=0x018e, f02=»5 SYNC-CHARACTER % 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 & 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 & L & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 & & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 & , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) & $ P DAT
0x21b074…21b208 Dummy {f00=0x00a8, f01=0x0190, f02=» & n $ P******************************** ' P* ' 0 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 ' : " P* CONNECTED TO SECOND CHRT ' x P* ' PCWTRT3 EQU * ' P* ' P IFF RECHAN=0 ' P IFF RECHAN=1 ' P* ' PDWA6 EQU /11
0x21b208…21b39c Dummy {f00=0x00a8, f01=0x018e, f02=»NR A2,0,DWA6 INR ' P OTR A2,0,DWA6 OTR ( P CIO A2,1,DWA6 CIO-START ( 2 " P DATA 0 RETRANSMISSION COUNTER ( R P DATA 0 QUEUE TERMINAL 1 ( x P DATA 0 QUEUE TERMINAL 2 ( P* ( P IFT ACKMUL=1 ( P DATA 0 NAK-ACKUMULATOR ( $ P DATA 0 BLOCK ER
0x21b39c…21b530 Dummy {f00=0x00a8, f01=0x0190, f02=» P IFF RECHAN=0 ) P IFF RECHAN=1 ) P DATA 0 TIMER POINTER ) 0 P DATA /7055 SYNC-CHARACTER ) N 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ) p 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 ) & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 ) & P DATA
0x21b530…21b6c4 Dummy {f00=0x00a8, f01=0x0190, f02=» EJECT ) $ P******************************** * $ P* C W T R T 4 * * 6 $ P******************************** * ^ P* * : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 * " P* CONNECTED TO SECOND CHRT * P* * PCWTRT4 EQU
0x21b6c4…21b858 Dummy {f00=0x00a8, f01=0x0190, f02=»TRT2 INTERRUPT TABLE * P INR A2,0,DWA6 INR + P OTR A2,1,DWA6 OTR + 6 P CIO A2,1,DWA6 CIO-START + P " P DATA 0 RETRANSMISSION COUNTER + p P DATA 0 QUEUE TERMINAL 1 + P DATA 0 QUEUE TERMINAL 2 + P* + P IFT ACKMUL=1 + P DATA 0 NAK-ACKUMU
0x21b858…21b9ec Dummy {f00=0x00a8, f01=0x018e, f02=»R + n P XIF , P IFF RECHAN=0 , P IFF RECHAN=1 , , P DATA 0 TIMER POINTER , B P DATA /7255 SYNC-CHARACTER , ` 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 , 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 , & P DATA 0 LRC-ACKUMULATOR TERMIN
0x21b9ec…21bb80 Dummy {f00=0x00a8, f01=0x0190, f02=» , n P* - P XIF - P EJECT - $ P******************************** - , $ P* C W T R T 5 * - T $ P******************************** - | P* - : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 - P* CONNECTED TO THIRD CHRT
0x21bb80…21bd14 (1, 483) Dummy {f00=0x00a9, f01=0x0190, f02=» EQU /21 DEVICE ADDRESS - P* . P DATA 0 LAST OUTPUT DWT . * P DATA 0 LAST OUTPUT WORD . J P DATA INTRT3 INTERRUPT TABLE . j P INR A2,0,DWA7 INR . P OTR A2,0,DWA7 OTR . P CIO A2,1,DWA7 CIO-START . " P DATA 0 RETRANSMISSION COUNTER . P
0x21bd14…21bea8 Dummy {f00=0x00a9, f01=0x0190, f02=»BLOCK ERROR ACKUMULATOR . , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR / ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR / P P* / | P XIF / P IFF RECHAN=0 / P IFF RECHAN=1 / P IFF RECHAN=2 / P DATA 0 TIMER POINTER / P DATA /7055 SYNC-CHARA
0x21bea8…21c03c Dummy {f00=0x00a9, f01=0x018e, f02=»TOR TERMINAL 1 / | & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 0 , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 0 @ $ P DATA 1 BLOCK SENDING INDICATOR 0 p P XIF 0 P EJECT 0 $ P******************************** 0 $ P* C W T R T 6 * 0 $ P******
0x21c03c…21c1d0 Dummy {f00=0x00a9, f01=0x0190, f02=» 0 r P* 1 PCWTRT6 EQU * 1 P* 1 & P IFF RECHAN=0 1 0 P IFF RECHAN=1 1 F P IFF RECHAN=2 1 P DATA 0 LAST OUTPUT DWT 1 r P DATA 0 LAST OUTPUT WORD 1 P DATA INTRT3 INTERRUPT TABLE 1 P INR A2,0,DWA7 INR 1 P OTR A2,1,DWA7 OTR 1
0x21c1d0…21c364 Dummy {f00=0x00a9, f01=0x0190, f02=»* 1 P IFT ACKMUL=1 2 P DATA 0 NAK-ACKUMULATOR 2 $ P DATA 0 BLOCK ERROR ACKUMULATOR 2 @ , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 2 h ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 2 P XIF 2 P* 2 P IFF RECHAN=0 2 P IFF RECHAN=1 2 P I
0x21c364…21c4f8 Dummy {f00=0x00a9, f01=0x0190, f02=» DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 2 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 3 4 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 3 ^ , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 3 $ P DATA 1 BLOCK SENDING INDICATOR 3 P XIF 3 P EJECT 3 $ P**************
0x21c4f8…21c68c Dummy {f00=0x00a9, f01=0x0190, f02=»OR REMOTE CHANNEL NO. 1 3 r " P* CONNECTED TO FOURTH CHRT 4 P* 4 F PCWTRT7 EQU * 4 P P* 4 d P IFT RECHAN=4 4 n P* 4 PDWA8 EQU /31 DEVICE ADDRESS 4 P* 4 P DATA 0 LAST OUTPUT DWT 4 P DATA 0 LAST OUTPUT WORD 4 P DATA INTRT4
0x21c68c…21c820 Dummy {f00=0x00a9, f01=0x0190, f02=»ER 4 t P DATA 0 QUEUE TERMINAL 1 5 P DATA 0 QUEUE TERMINAL 2 5 * P* 5 J P IFT ACKMUL=1 5 T P DATA 0 NAK-ACKUMULATOR 5 j $ P DATA 0 BLOCK ERROR ACKUMULATOR 5 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 5 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 5
0x21c820…21c9b4 (1, 484) Dummy {f00=0x00a9, f01=0x0190, f02=»RC-PROCESS TERMINAL 1 5 z 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 6 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 6 R & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 6 | , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 6 $ P DATA 1 BLOCK SENDING INDICATOR 6 P XIF 6
0x21c9b4…21cb48 Dummy {f00=0x00a9, f01=0x0190, f02=»* 6 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 7 " P* CONNECTED TO FOURTH CHRT 7 H P* 7 n PCWTRT8 EQU * 7 x P* 7 P IFT RECHAN=4 7 P DATA 0 LAST OUTPUT DWT 7 P DATA 0 LAST OUTPUT WORD 7 P DATA INTRT4 INTERRUPT TABLE
0x21cb48…21ccdc Dummy {f00=0x00a9, f01=0x0190, f02=»0 QUEUE TERMINAL 1 7 P DATA 0 QUEUE TERMINAL 2 8 P* 8 : P IFT ACKMUL=1 8 D P DATA 0 NAK-ACKUMULATOR 8 Z $ P DATA 0 BLOCK ERROR ACKUMULATOR 8 z , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 8 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 8 P XIF 8
0x21ccdc…21ce70 Dummy {f00=0x00a9, f01=0x0190, f02=»NAL 1 8 j 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 9 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 9 B & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 9 l , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 9 $ P DATA 1 BLOCK SENDING INDICATOR 9 P* 9 P XIF 9 P* 9
0x21ce70…21d004 Dummy {f00=0x00a9, f01=0x018e, f02=»************************************************* 9 P* : : 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK : D 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCAL OR REMOTE : ~ P* TERMINALS. : P* : P* : P* : PCHTAB EQU * : P DATA
0x21d004…21d198 Dummy {f00=0x00a9, f01=0x0190, f02=» P* ; P IFT LOCHAN=1 ; P DATA CWTLT1 ; $ P DATA 0 ; : P DATA 0 ; J P DATA 0 ; Z P XIF ; j P* ; v P IFT LOCHAN=2 ; P DATA CWTLT1 ; P DATA CWTLT2 ; P DATA 0 ; P DATA 0 ; P XIF ; P* ; P IFT LOCHAN=3 ;
0x21d198…21d32c Dummy {f00=0x00a9, f01=0x0190, f02=»A CWTLT2 ; P DATA CWTLT3 < P DATA CWTLT4 < $ P XIF < 8 P* < D P IFT RECHAN=1 < N P DATA CWTRT1 < d P DATA CWTRT2 < x P XIF < P* < P IFT RECHAN=2 < P DATA CWTRT1 < P DATA CWTRT2 < P DATA CWTRT3 < P DATA CWTRT4 < P
0x21d32c…21d4c0 Dummy {f00=0x00a9, f01=0x0190, f02=» < P DATA CWTRT6 = P XIF = P* = ( P IFT RECHAN=4 = 2 P DATA CWTRT1 = H P DATA CWTRT2 = P DATA CWTRT3 = p P DATA CWTRT4 = P DATA CWTRT5 = P DATA CWTRT6 = P DATA CWTRT7 = P DATA CWTRT8 = P XIF = PCHTABE EQU * END OF
0x21d4c0…21d654 (1, 485) Dummy {f00=0x00a9, f01=0x018e, f02=» * = n ( P************************************ > P* > 6 . P* DUMMY TABLE USED WHEN LOOP-TESTING OF > @ $ P* REMOTE CHANNELS ARE NEEDED. > r P* > PDWREMU EQU * > P IFF RECHAN=0 > P DATA 0 > P DATA /8000 STATUS > P DATA 0,0 > (
0x21d654…21d7e8 Dummy {f00=0x00a9, f01=0x0190, f02=» $ P DATA DEVECB MMU ECB ADDRESS =4 ? & PDEVECB DATA 0,0,0,0,0,0 MMU ECB =4 ? , P XIF U =4 ? V P IFF RECHAN=0 U =4 ? h P EJECT ? P* ? P* ? * P* L O O P - T E S T S E C T I O N ? P* ? P* ? 2 P* ORDER /00: TEST REMOTE CHANNE
0x21d7e8…21d97c Dummy {f00=0x00a9, f01=0x0190, f02=» BITS ? d P* IN RETURN CODE OF ECB: @ P* @ 2 2 P* BIT 9: CHANNEL UNIT NOT IN ACTIVE STATUS @ < P* @ r P* @ | . P* BIT 14: ACK NOT RECEIVED AFTER OUTPUT @ P* @ 0 P* BIT 15: SYNC NOT RECEIVED AFTER OUTPUT @ P IFT MMUPAG=1 U =4
0x21d97c…21db10 Dummy {f00=0x00a9, f01=0x0190, f02=»S @ t " P DATA IHLOP INTERRUPT HANDLER A PLOPTST EQU * A 0 $ P LD A2,10,A8 GET CHANNEL NUMBER A D P ANK A2,/FF A l P RF(E) DISIIE A ( P CWK A2,RECHAN+RECHAN CHANNEL 1-8 ? A P RF(G) DISIIE A P SLL A2,1 A & P LD A2,CHTAB+8,A2 GET CWT-ADDR
0x21db10…21dca4 Dummy {f00=0x00a9, f01=0x0190, f02=»PT10 EQU * A , P LD A1,CWTRST,A2 GET CHANNEL LOOP STATUS B P LDR A5,A2 CWT-ADDRESS B B P ANK A1,/40 B ` , P RF(NE) IHLP20 CHANNEL UNIT NOT BUSY =4 B t & P LDK A5,/E0 INDICATE REQUEST GOING B * P ST A5,CWTRST,A2 INDICATE LOOP-TESTING B P ABL TDISP B
0x21dca4…21de38 Dummy {f00=0x00a9, f01=0x0190, f02=» GET CHANNEL LOOP STATUS B P ANK A1,3 C P XRK A1,3 C 2 PIHLP10 EQU * C D P LDK A2,0 C X : P SC A2,CWTRST+1,A5 RESET RIGHT BYTE IN CHANNEL STATUS C j PIHLP20 EQU * U =4 C P ABL LENDIS C P XIF C P EJECT C P* C P* C P*
0x21de38…21dfcc Dummy {f00=0x00a9, f01=0x0190, f02=» C P* D 2 P* WHEN INTERRUPT FROM A CHANNEL UNIT OCCURS D 2 P* DRIVER FIRST RELATES INTERRUPT TO A CWT. D H 0 P* THEN DRIVER GETS THE INTERRUPT MESSAGE, D ~ 2 P* LOGGS IT AND DETERMINES INPUT WORD TO GET D 0 P* DEVICE NUMBER , LINE NUMBER
0x21dfcc…21e160 Dummy {f00=0x00a9, f01=0x018e, f02=»DRESS C = CHARACTER D ~ P* E 8 P* ACK OUTPUT ACKNOWLEDGED D = 0 C = 7 E * 8 P* NAK OUTPUT ERROR D = 0 C = 5 E f 8 P* OER TIME OUT D = 0 C = 0 E 8 P* SER POWER ON D
0x21e160…21e2f4 (1, 486) Dummy {f00=0x00a9, f01=0x0190, f02=» 8 P* ABC-L LRC ERROR IN BLOCK D = 0 C = A F 8 P* ABC-V VRC ERROR IN BLOCK D = 0 C = C F @ 8 P* ABC-LV LRC O VRC ERROR IN BLOCK D = 0 C = E F | 8 P* DRD DATA REQUEST DELAYED D # 0 C = 0 F F P*
0x21e2f4…21e488 Dummy {f00=0x00a9, f01=0x0190, f02=»PUT D # 0 F z P EJECT G P* G . P* C H L T 1 G 8 P* G N P* INTERRUPT FROM CHLT1 G X P* G z PCHLT1 EQU * G P IFF LOCHAN=0 G $ P ST P,INTSAV SAVE LAST INTERRUPT G P* G P IFT CPU852=1 G & P CF A15,SAVE8 SAVE
0x21e488…21e61c Dummy {f00=0x00a9, f01=0x0190, f02=» P* H P IFF LOCHAN=0 H P LDK A7,2 INDICATE CHLT1 H $ P RF CLT010 H D P XIF H V P* H b P* H l P* C H L T 2 H v P* H P* INTERRUPT FROM CHLT2 H P* H PCHLT2 EQU * H P IFF LOCHAN=0 H P IFF LOCHAN=1 H $ P ST P,
0x21e61c…21e7b0 Dummy {f00=0x00a9, f01=0x0190, f02=»OCHAN=0 H P IFF LOCHAN=1 I P IFT CPU852=0 I & " P MSR 8,A15 SAVE A1-A8 ON STACK I < P XIF I b P* I n P IFF LOCHAN=0 I x P IFF LOCHAN=1 I P LDK A7,4 INDICATE CHLT2 I P RF CLT010 I P XIF I P* I P* I P* C H L T 3 I
0x21e7b0…21e944 Dummy {f00=0x00a9, f01=0x0190, f02=» I $ P ST P,INTSAV SAVE LAST INTERRUPT J P* J 0 P IFT CPU852=1 J : & P CF A15,SAVE8 SAVE A1-A8 ON STACK J P P XIF J z P* J P IFF LOCHAN=0 J P IFF LOCHAN=1 J P IFF LOCHAN=2 J P IFT CPU852=0 J " P MSR 8,A15 SAVE A1-A8 ON STACK J
0x21e944…21ead8 Dummy {f00=0x00a9, f01=0x0190, f02=» J P XIF K P* K P* K P* C H L T 4 K ( P* K > P* INTERRUPT FROM CHLT4 K H P* K j PCHLT4 EQU * K t P IFT LOCHAN=4 K $ P ST P,INTSAV SAVE LAST INTERRUPT K P* K P IFT CPU852=1 K & P CF A15,SAVE8 SAVE A1-A8 ON STACK
0x21ead8…21ec6c Dummy {f00=0x00a9, f01=0x0190, f02=»FT LOCHAN=4 K P LDK A7,8 INDICATE CHLT4 L P RF CLT010 L 4 P* L F P XIF L P P* L P EJECT L f P* L t P* L ~ P* C H R T 1 L P* INTERRUPT FROM CHRT1 L P* L PCHRT1 EQU * L P IFF RECHAN=0 L P ST P,INTSAV L P
0x21ec6c…21ee00 Dummy {f00=0x00a9, f01=0x0190, f02=» " P MSR 8,A15 SAVE A1-A8 ON STACK M P XIF M * P* M 6 P IFF RECHAN=0 M @ P LDK A7,10 INDICATE CHRT1 M V P RF CLT010 M x P XIF M P* M P* C H R T 2 M P* M P* INTERRUPT FROM CHRT2 M P* M PCHRT2 EQU * M P IFF REC
0x21ee00…21ef94 (1, 487) Dummy {f00=0x00aa, f01=0x0190, f02=»STACK M t P XIF N P* N P IFF RECHAN=0 N $ P IFF RECHAN=1 N : P IFT CPU852=0 N P " P MSR 8,A15 SAVE A1-A8 ON STACK N f P XIF N P* N P IFF RECHAN=0 N P IFF RECHAN=1 N P LDK A7,14 INDICATE CHRT2 N P RF CLT010 N P XIF N
0x21ef94…21f128 Dummy {f00=0x00aa, f01=0x018e, f02=» N P IFF RECHAN=1 O P IFF RECHAN=2 O $ P ST P,INTSAV SAVE LAST INTERRUPT O 4 P* O P IFT CPU852=1 O f & P CF A15,SAVE8 SAVE A1-A8 ON STACK O | P XIF O P* O P IFF RECHAN=0 O P IFF RECHAN=1 O P IFF RECHAN=2 O P IFT CPU85
0x21f128…21f2bc Dummy {f00=0x00aa, f01=0x0190, f02=» P LDK A7,18 INDICATE CHRT3 P P RF CLT010 P & P XIF P 8 P* P D P* P N P* C H R T 4 P X P* P n P* INTERRUPT FROM CHRT4 P x P* P PCHRT4 EQU * P P IFT RECHAN=4 P $ P ST P,INTSAV SAVE LAST INTERRUPT P P* P P IFT CPU
0x21f2bc…21f450 Dummy {f00=0x00aa, f01=0x0190, f02=»E A1-A8 ON STACK P P XIF Q P* Q $ P IFT RECHAN=4 Q . P LDK A7,22 INDICATE CHRT4 Q D P XIF Q f P* Q r P EJECT Q | P* Q ( P* COMMON PART FOR ALL INTERRUPTS Q P* Q * PCLT010 LD A5,CHTAB,A7 GET CWT-ADDRESS Q P* Q P* Q
0x21f450…21f5e4 Dummy {f00=0x00aa, f01=0x0190, f02=»G=1 Q P* R 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** R P* R N P XIF R X P EJECT R d P* R r & P* DETERMINE TYPE OF INTERRUPT. R | 4 P* MOREOVER, IF REMOTE, GET THE RIGHT CHANNEL R 2 P* OF CHRT AND START OR RESTART SYNC-TIM
0x21f5e4…21f778 Dummy {f00=0x00aa, f01=0x0190, f02=» R p & P LDK A7,0 INDICATE LOCAL INTERRUPT S P RF CLT018 S 2 PCLT014 EQU * S D P XIF S X P IFF RECHAN=0 S d P LDR A3,A2 S z . P SLC A3,6 REMOTE FIRST OR SECOND CHANNEL ? S P RF(NN) CLT015 FIRST S > P LD A5,CHTAB+12,A7 GET CWT-ADDRESS SECOND CHAN
0x21f778…21f90c Dummy {f00=0x00aa, f01=0x0190, f02=» P ADR A7,A3 T & P LD A3,CWTRST,A5 LOOP TEST MODE ? T P ABL(N) CLT170 YES T @ P XIF T Z & PCLT018 LDK A1,0 RESET RETURN CODE T f ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? T P IFF RECHAN=0 T P ABL(N) CLT050 T P XIF T $ P ANKL A3,/7000 DEVIC
0x21f90c…21faa0 Dummy {f00=0x00aa, f01=0x0190, f02=»ER T j P* U P LDR A3,A2 U . P ANK A3,/FF DELETE DEVICE AND LINE NUMBER U & P RF(E) CLT030 OER U X P SUK A3,7 U r P RF(E) CLT050 ACK U P ADK A3,2 U P ABL(E) CLT080 NAK U P ADK A3,2 U P ABL(E) CLT100 POWER ON U P IFF RECHAN=
0x21faa0…21fc34 (1, 488) Dummy {f00=0x00aa, f01=0x0190, f02=»SMISSION FAULT ? U ~ * P RF(NE) CLT025 NO, UNDEFINED INTERRUPT V P* V F P IFT ACKMUL=1 V P 6 P IM CWTADD+2,A5 UPDATE RETRANSM. FAULT ACKUMULATOR V f P XIF V P IFF LOCHAN=0 V P RF EXIIT V P XIF V P* V P IFF RECHAN=0 V PCLT022 E
0x21fc34…21fdc8 Dummy {f00=0x00aa, f01=0x0190, f02=»ESET BIT V ~ P SC A4,LRCACK,A7 AND STORE W " P LD A6,LRCDWT,A7 LRC-DEVICE ? W 2 P RF(E) EXIIT W X P ANK A4,/7F W l P RF(Z) CLT046 YES W 8 P CF A15,RESLRC RESET LRC- AND BLOCKSEND. INDICATORS W P LDR A4,A6 DWT-ADDRESS W P CF A15,QUESEC CHECK
0x21fdc8…21ff5c Dummy {f00=0x00aa, f01=0x0190, f02=»CKUMULATOR W r P XIF X P IFF RECHAN=0 X P* X 4 P SUK A3,4 VRC-ERROR ? X > P RF(E) CLT042 YES X & P LDK A1,LRCERR INDICATE LRC-ERROR X v " P SUK A3,2 LRC-ERROR IN BLOCK ? X P RF(E) CLT033 YES X P ADK A3,4 X , P RF(E) CLT033 LRC- OR
0x21ff5c…2200f0 Dummy {f00=0x00aa, f01=0x0190, f02=» P XIF Y P EJECT Y P* Y 0 P* RESOLVE QUEUE AND EXAMINE RECOVERY BIT. Y ( 4 P* RETURN TO DEVICE DRIVER WITH RETURN CODE : Y 0 P* NOT OPERABLE IF SEVEN NAK OR ECHO OR Y 4 P* OUTPUT ERROR (OER) TWO TIMES Y 2 P* O
0x2200f0…220284 Dummy {f00=0x00aa, f01=0x018e, f02=» IFF LOCHAN=0 Y P LDR A7,A7 REMOTE ? Z P RF(Z) CLTQUE NO Z 2 P XIF Z J P IFF RECHAN=0 Z V P LD A6,LRCDWT,A7 Z l P CWR* A6,A5 LRC-DEVICE ? =3 Z P RF(NE) CLTQUE Z 8 P CF A15,RESLRC RESET LRC- AND BLOCKSEND. INDICATORS Z P XIF Z & PCL
0x220284…220418 Dummy {f00=0x00aa, f01=0x0190, f02=» Z h P LDR A3,A2 [ 0 P ANKL A2,DEVECH+RECTRI ECHO AND RECOVERY BIT [ P RF(NE) CLT045 [ N 0 P ORK A3,RECTRI INDICATE RECOVERY TRIAL DONE [ d P ST A3,DWTST,A6 STORE [ . PCLT032 LDK A1,OUTERR INDICATE OUTPUT ERROR [ PCLT033 EQU * [ ( P ABL CLT107
0x220418…2205ac Dummy {f00=0x00aa, f01=0x018e, f02=» SAME PROCEDURE AS FOR THE OTHER [ | P* ERRORS OF TYPE ABC-. ( 4 P* IF OUTPUT TO PRINTERS WITH LRC-CONTROL SAME J P* PROCEDURE AS FOR ABC+. P* PCLT042 EQU * P LD A4,DWTST,A6 STATUS WORD " P ANK A4,DEWDRQ BLOCK SENDING ?
0x2205ac…220740 Dummy {f00=0x00aa, f01=0x0190, f02=» P* ] 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE ] < P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL UNIT ] J P* OR THOSE IN ECHO MODE. ] P* ] PCHPOWO EQU * ] , P LDR* A2,A5 GET CHANNEL OCCUPYING DEVICE ] . P CM CWTRTC,A
0x220740…2208d4 (1, 489) Dummy {f00=0x00aa, f01=0x018e, f02=»IF ] P IFF RECHAN=0 ^ P U =1 ^ . P CM LRCDWT,A7 RESET LRC-DEVICE POINTER =1 ^ 0 P LDK A7,1 U =1 ^ b 6 P ANS A7,CWTBLK,A5 RESET BLOCKSENDING RUN. IND. =1 ^ x P XIF ^ $ PCPO010 LDR A3,A6 DEVICE COUNTER ^ P U =4 ^ " P LDR A1,A8 SET ADD
0x2208d4…220a68 Dummy {f00=0x00aa, f01=0x0190, f02=» P SLC A6,1 _ P U =4 _ P LDKL A7,/FFFF-RECTRI-LRCSEN _ & 6 P ANS A7,DWTST,A6 RESET RECOVERY BIT AND LRC-BIT =1 _ J " P LD A7,DWTST,A6 STATUS WORD =4 _ $ P ANK A7,DEVINP INPUT DEVICE ? =4 _ P RF(NE) CPO023 YES =4 _ P LC A7,DWTST,A6 _ P
0x220a68…220bfc Dummy {f00=0x00aa, f01=0x0190, f02=» RF(E) CPO030 YES _ PCPO025 EQU * ` & P LDK A4,3 RECOVERY CAUSE: POWER ON ` . ( P CF A15,NDREDW CALL RECOVERY ROUTINE ` X PCPO030 EQU * ` P ADK A1,2 ` $ P SUK A3,2 ALL DEVICES THREATED? ` P RB(NE) CPO020 NO TAKE NEXT ` PEXIIT RF EXIT `
0x220bfc…220d90 Dummy {f00=0x00aa, f01=0x0190, f02=»I ` | ( P ANS A1,DWTST,A6 RESET RECOVERY BIT a ( P LDK A1,NOERR INDICATE NOT OPERABLE a 6 & P ABL CLT107 RESET TIMER AND FINISH a b PCLT046 EQU * a P ABL CLT110 a P EJECT a P* a P* A C K , D R I a 2 P* FIRST RESOLVE QUEUE AND THEN
0x220d90…220f24 Dummy {f00=0x00aa, f01=0x0190, f02=»ROP IT. a 8 P* NORMAL ACK OR DRI WILL RESULT IN A RESETTING OF b 8 P* RECOVERY BIT IN DWT. THEN A SIMULATION OF DATA b L < P* REQUEST FOR DEVICES WITHOUT DATA REQUEST IS CARRIED b < P* OUT. FOR DEVICES WITH DATA REQUEST FUNCTION A TIMER b : P
0x220f24…2210b8 Dummy {f00=0x00aa, f01=0x0190, f02=»ACK WE HAVE TO WAIT FOR A DRD. b PCLT050 EQU * c & P IFF RECHAN=0 c : & P LC A3,CWTLOW,A5 LAST OUTPUT WORD c P " P ANK A3,/F0 KEEP DEVICE NUMBER c z P XIF c P CF A15,QUEUE RESOLVE QUEUE c P LDKL A4,/FFFF-RECTRI c 6 P ANS A4,DWTST,A6 RESET REC
0x2210b8…22124c Dummy {f00=0x00aa, f01=0x0190, f02=» P IFF RECHAN=0 d P LDK A4,2 d 4 P ORS A4,CWTRST,A5 INDICATE ACK IN CHANNEL STATUS d , P LDR A8,A3 OBC-ACK ? d d P RF(NE) CLT052 NO d P LDKL A3,/8000 d * P ORS A3,LRCACK,A7 INDICATE ABC ALLOWED d P RF CLT055 d P XIF d PCLT052 EQU *
0x22124c…2213e0 Dummy {f00=0x00aa, f01=0x0190, f02=» d P IFF LOCHAN=0 e P LDR A7,A7 REMOTE ? e , P RB(Z) CLT046 NO, RETURN TO DEV. DRIVER e : P XIF e j P IFF RECHAN=0 e v P CW A6,LRCDWT,A7 e P ABL(NE) CLT110 e P XIF e P IFT RECHAN=0 e & P RB CLT046 RETURN TO DEVICE DRIVER e P
0x2213e0…221574 (1, 490) Dummy {f00=0x00aa, f01=0x0190, f02=»55 EQU * e P IFF SOFTIM+RECHAN=0 U =4 f P INH f 2 , P LD A3,DWTLD1,A6 ADDRESS TO TIMER BLOCK f > P RF(E) CLT060 f n P* f P* RESTART TIMER f P* f " P LDKL A3,-DRQTIM RESTART TIMER f P ST* A3,DWTLD1,A6 f P RF CLT068 f P* f
0x221574…221708 Dummy {f00=0x00aa, f01=0x0190, f02=» ADD DWT-ADDRESS f " P CF A15,SETIMP GET TIMER BLOCK g > P DATA DRQTUT,DRQTIM ADDRESS TO TIME-OUT ROUTINE AND DELAY g > PCLT068 EQU * g P IFF RECHAN=0 g P LDR A8,A8 OBC-ACK ? g P RF(E) EXIT YES g P LDK A1,0 g " P LD A4,DWTST,A6 DEVICE S
0x221708…22189c Dummy {f00=0x00aa, f01=0x018e, f02=»QUEST IMMEDIATE ? g ~ P ABL(N) CLT110 YES =2 h P XIF h 8 " PEXIT ABL TDISP DISPATCHER EXIT h D P IFF SOFTIM+RECHAN=0 U =4 h j P EJECT h P* h 8 P* TIME-OUT ROUTINE HANDLING MISSING DATA REQUESTS h : P* FROM PRINTERS AND , FOR REMOTLY CON
0x22189c…221a30 Dummy {f00=0x00aa, f01=0x0190, f02=» h PDRQTUT EQU * i P LDR A6,A1 GET DWT-ADDRESS i . P CM DWTLD1,A6 RESET POINTER TO TIMER BLOCK i > P LD A3,DWTST,A6 i p P RB(N) EXIT i P SLL A3,2 ECHO MODE ? i P RF(N) DRQT10 YES i P LDK A2,/83 i P CC A2,DWTOCH,A6 i P RB(E) E
0x221a30…221bc4 Dummy {f00=0x00aa, f01=0x0190, f02=»INCREMENT ACKUMULATOR i P XIF j P* j * P IFF SOFTIM+RECHAN=0 U =4 j 4 . P LDK A1,TIMERR INDICATE SOFTWARE TIME-OUT j V P IFF RECHAN=0 j P SLL A3,6 DEVICE STATUS j , P RF(NN) DRQT20 DEVICE WITH DATA REQUEST j & P LDK A1,LRCERR INDICATE LR
0x221bc4…221d58 Dummy {f00=0x00aa, f01=0x0190, f02=» j P EJECT k P* k P* N A K k P* k 2 8 P* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS k < 8 P* UPDATED. LAST OUTPUT CHARACTER IS RETRANSMITTED k x < P* BY CHANNEL DRIVER SIX TIMES AND IF STILL NO SUCCESS k < P* RETURN CODE NOT
0x221d58…221eec Dummy {f00=0x00aa, f01=0x0190, f02=» k P IFT ACKMUL=1 l P* l * P IM CWTADD,A5 UPDATE ERROR ACKUMULATOR l ( P* l V P XIF l ` P* l l P IFF RECHAN=0 l v P CWK A6,1 SYNC BEFORE NAK? l P RB(E) EXIT YES l P XIF l 2 P IM CWTRTC,A5 INCREMENT RETRANSMISSION COUNTER l P
0x221eec…222080 Dummy {f00=0x00aa, f01=0x018e, f02=» EX CWTOTR,A5 EXECUTE OTR-INSTR. l P IFT LOGING=1 m ( 2 P CF A15,LOGG ** LOGG INPUT CHARACTER ** m > P XIF m t P U =4 m P IFF RECHAN=0 m P IFF LOCHAN=0 m P LDR A7,A7 REMOTE? m P RF(Z) CLT090 NO m P XIF m P IFF RECHAN=0
0x222080…222214 (1, 491) Dummy {f00=0x00ab, f01=0x0190, f02=» PCLT090 ABL TDISP n P EJECT n P* n * P* n 4 $ P* DATA INPUT AND DATA REQUEST n > P* n f > P* ALWAYS: GET DWT-ADDRESS FROM INTERRUPT TABLE n p P* n D P* DATA INPUT: IF INPUT REQUESTED FROM DEVICE, RETURN TO n ( P*
0x222214…2223a8 Dummy {f00=0x00ab, f01=0x0190, f02=»INE OF DEVICE DRIVER. n v P* o P* DATA REQUEST: o ( P* o B < P* LOCAL DEVICES: STORE PRINTER STATUS IN DWTDEV AND o L 2 P* RETURN TO DEVICE DRIVER. o 2 P* REMOTE DEVICES: RETURN TO DEVICE DRIVER. o P* o 2 P* S
0x2223a8…22253c Dummy {f00=0x00ab, f01=0x018e, f02=» PCLT100 EQU * p P LDR A3,A2 p P SRL A3,8 p * P LDR A4,A3 p < . P ANK A3,/E 2 * LINE NUMBER FOR LOCAL CONN. p N P IFF RECHAN=0 p P IFF LOCHAN=0 p P LDR A7,A7 LOCAL ? p P RF(Z) CLT103 YES p P XIF p P IFF RECHAN=0 p $ P ANK A
0x22253c…2226d0 Dummy {f00=0x00ab, f01=0x0190, f02=» & P ADK A3,2 YES, ADD TERMINAL NUMBER q P XIF q . PCLT103 EQU * q : P SRL A4,3 q N P ANK A4,/E 2 * DEVICE NUMBER q ` P IFF RECHAN=0 q P CWK A4,/E SYNC-INPUT ? q P RF(E) CLT150 YES q P LOOP SWITCH SET q P XIF q 0 P LD* A8,CWTITA
0x2226d0…222864 Dummy {f00=0x00ab, f01=0x0190, f02=» LDR* A8,A8 ADDRESS TO TERMINAL SECTION q P RB(Z) EXIT NOT DEFINED r 0 P LD A6,-2,A8 GET ID-WORD r P P SUR A6,A4 r p $ P RB(NP) EXIT UNDEFINED INTERRUPT r " P LDR A4,A4 NO DEVICE NUMBER ? r P ABL(E) CHPOWO POWER ON r & P ADR A8,A4 ADDRESS TO DW
0x222864…2229f8 Dummy {f00=0x00ab, f01=0x0190, f02=»TUS r v 8 P ANK A3,DEVINP+INDARQ MASK INPUT DEV. AND INPUT REQ. s P SUK A3,DEVINP s H 4 P RF(Z) CLT115 INPUT DEV. BUT NO INPUT REQUESTED s ^ 2 P RF(P) CLT108 INPUT DEV. WITH INPUT REQUESTED s " P LD A3,DWTST,A6 DEVICE STATUS s 0 P ANK A3,DEWDRQ DEVICE
0x2229f8…222b8c Dummy {f00=0x00ab, f01=0x0190, f02=»T120 YES s P XIF t P IFT LOCHAN=0 t P RF CLT120 t 2 P XIF t D P IFF LOCHAN=0 t P . P SC A2,DWTDEV+1,A6 SAVE PRINTER STATUS =2 t f P RF CLT110 t P XIF t P* t P* t PCLT107 EQU * t P IFF SOFTIM+RECHAN=0 U =4 t P CF A15,
0x222b8c…222d20 Dummy {f00=0x00ab, f01=0x0190, f02=»LAG 'INPUT REQUESTED' t x P* u P* RETURN TO DEVICE DRIVER u ( , P* (USED BY ALL DEVICES FOR RETURN) u L P* u | PCLT110 EQU * u & P ABL NDREP RETURN TO DEVICE DRIVER u P* u 0 P* GO TO INTERRUPT ROUTINE OF DEVICE DRIVER u P* u
0x222d20…222eb4 (1, 492) Dummy {f00=0x00ab, f01=0x0190, f02=»HARACTER u x P LDR A5,A6 DWT ADDRESS v P ADKL A5,DWTSB2 STACK BASE v . * P ABR A1 DEVICE DRIVER INTERRUPT ENTRY v P P* v ~ P IFF RECHAN=0 v P EJECT v P* v . P* REMOTE DATA REQUEST AND STATUS MESSAGE v P* v * PCLT120 LDR A7,A2 REMOT
0x222eb4…223048 Dummy {f00=0x00ab, f01=0x018e, f02=» v p P ABL(E) EXIT YES w P U =2 w P RB CLT110 w 0 P U =2 w B P EJECT w R P* w ` P* w j P* TFU IN LOOP MODE w t P* w PCLT150 EQU * w P LDK A4,1 w P CWR* A4,A5 SYNC SENT ? w P RF(NE) CLT154 w < P LDKL A4,/8001 I
0x223048…2231dc Dummy {f00=0x00ab, f01=0x0190, f02=» w P* LOOP MODE x P* x PCLT170 EQU * x ( P LDR A3,A2 x < P ANK A3,/FF x N P SUK A3,3 POWER ON ? x b P RF(E) CLT179 YES x ~ $ P LDR* A4,A5 GET LAST OUTPUT DWT x P LDR* A6,A5 x P SUK A4,1 SYNC ? x P RF(E) CLT178 YES x ( P L
0x2231dc…223370 Dummy {f00=0x00ab, f01=0x0190, f02=»DK A4,2 INDICATE ACK RECEIVED x P RB CLT152 y & P* y 8 P* POWER ON y B P* y X PCLT179 EQU * y b P LDK A3,/E3 y v * P ANS A3,CWTRST,A5 RESET LOOP TEST BIT y P ABL CLT100 y P XIF y P EJECT y P* y P* QUEUE y P* y
0x223370…223504 Dummy {f00=0x00ab, f01=0x018e, f02=»E. y z 8 P* IF REMOTE DEVICE CHECK QUEUE OF CHANNEL'S OTHER z < P* TERMINAL AND SEND IF SOMETHING THERE. IF NOTHING I z F < P* IN THAT QUEUE, CHECK QUEUE OF INTERRUPTING TERMINAL z & P* AND SEND IF SOMETHING THERE. z P* z PQUEUE EQU * z
0x223504…223698 Dummy {f00=0x00ab, f01=0x0190, f02=» , PQUESEC EQU * SECOND ENTRY IN SUBROUTINE { P STR A2,A15 SAVE A2 ON STACK { 4 P U =4 { X P IFF RECHAN=0 { h P IFF LOCHAN=0 { ~ * P LDK A1,0 INDICATE READY FOR LOCAL =4 { P LDR A7,A7 LOCAL ? { P RF(Z) QUEU01 YES { P XIF { P IFF R
0x223698…22382c Dummy {f00=0x00ab, f01=0x0190, f02=»DKL A8,CWTEQ QUEUE FIRST TERMINAL { * PQUEU03 ADR A8,A5 ADD CWT-TABLE-ADDRESS | * PQUEU04 EQU * | X P LDR* A6,A8 QUEUE EMPTY ? | l P U =4 | P IFT RECHAN=0 U =4 | P RF(E) QUEU05 YES =4 | P XIF U =4 | P IFF RECHAN=0 | P RF(E) QUEU1
0x22382c…2239c0 Dummy {f00=0x00ab, f01=0x0190, f02=»6,A4 SAME DEVICE IN QUEUE ? | P RF(E) QUEU06 YES } $ P LD A2,CWTBLK,A5 } > ( P RF(N) QUEU05 BLOCK SENDING RUNNING } V P XIF } PQUEU06 EQU * } * P LD A2,DWTOTQ,A6 TAKE DWT OUT OF QUEUE } * P STR A2,A8 SET NEXT DWT FIRST IN QUEUE } . P LC A2,D
0x2239c0…223b54 (1, 493) Dummy {f00=0x00ab, f01=0x0190, f02=» OUTPUT QUEUE ? } t P RF(E) QUEU30 ~ " P LDR A6,A4 GET LAST OUTPUT DWT ~ . & P RF(E) QUEU30 UNDEFINED INTERRUPT ~ T P IFF RECHAN=0 ~ ~ P CWK A6,1 SYNC ANSWER ? ~ P RF(E) QUEU30 YES ~ P U =4 ~ P LDK A1,0 ~ P XIF U =4 ~ P ABL R
0x223b54…223ce8 Dummy {f00=0x00ab, f01=0x0190, f02=»A5 TERMINAL 2 REMOTE ? ~ P RB(E) QUEU01 NO & PQUEU20 LDKL A8,CWTEQ+2 NEXT QUEUE 6 P RB QUEU03 ` P XIF r PQUEU30 ADKL A15,4 ~ P RF LTDISP P IFF RECHAN=0 P EJECT P* P* 0 P* RESTSY = SUBROUTINE TO START OR R
0x223ce8…223e7c Dummy {f00=0x00ab, f01=0x0190, f02=»TER ZERO? v P RF(NE) RESY20 P LDR A1,A5 ( P LDK A4,CWTTP TIMER POINTER : P ADR A4,A5 ADD CWT-ADDRESS ^ P CF A15,SETIMP SET TIMER P DATA SYNCUT,TIME P RF RESY30 PRESY20 LDKL A4,-TIME " P ST* A4,CWTTP,A5 RESTART TIME
0x223e7c…224010 Dummy {f00=0x00ab, f01=0x018e, f02=»E FOR SYNC-SENDING | 0 P* IF NOTHING HAPPENS ON A LINE IN 500 MS P* SYNC-CHARACTER IS SENT. N P* r PSYNCUT EQU * | $ P CM CWTTP,A1 RESET TIMER POINTER P LDR A5,A1 ( P LD A2,CWSYNC,A1 GET SYNC CHARACTER ( P XRKL A2,/800 CHAN
0x224010…2241a4 Dummy {f00=0x00ab, f01=0x0190, f02=» P RF(U) EXITA & P CF A15,RESTSY RESTART SYNC TIMER P RF EXITA B PSYNC04 EQU * T , P STR A6,A1 STORE "1" AS LAST OUTPUT DWT h P* P IFT LOGING=1 P* * P CF A15,LOGG LOGG OF OUTPUT CHARACTER P XIF P* P I
0x2241a4…224338 Dummy {f00=0x00ab, f01=0x0190, f02=» XRS A2,LRCACK,A5 UPDATE LRC-ACKUMULATOR P LD A4,CWTRST,A1 LOOP MODE ? 0 P LDR A3,A4 T P ANK A4,/80 f P RF(E) EXITA NO z P ANK A3,/60 P RF(E) SYNC20 THIRD SYNC P SUK A3,/20 P RF(NE) SYNC10 FIRST SYNC P LDK A3,/20
0x224338…2244cc Dummy {f00=0x00ab, f01=0x0190, f02=» j P LD A7,DWTOR,A6 ORDER P ANK A7,/FF & P LD A8,DWTECB,A6 ECB-ADDRESS : , P LD A3,DWTADR,A6 ADDRESS TO ADDRESSBLOCK ^ P ENB * P ABI INTADR,A3 GO TO INTERRUPT HANDLER P XIF P EJECT P* P* CHARACTER INPUT P
0x2244cc…224660 Dummy {f00=0x00ab, f01=0x0190, f02=»V8 SAVE A3-A5, A7-A8 IN DWT P RF LTDISP LOCAL DISPATCHER $ P* H P* CHARACTER OUTPUT R P* n PLTCHRO EQU * x PRTCHRO EQU * , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT " P CF A15,OUTLIN SEND CHARACTER P* P* LOCA
0x224660…2247f4 (1, 494) Dummy {f00=0x00ab, f01=0x0190, f02=» (REMOTE) | P* PRTSTBL EQU * P IFF RECHAN=0 0 P SUK A2,/03 BLOCK LENGTH < 3 F ( P RF(N) LTSTBL YES, SEND WITHOUT LRC j " P LD A2,DWTST,A6 DEVICE STATUS 6 P ANKL A2,DEVECH+LRCSEN ECHO MODE OR LRC RUNNING ? ( P RF(NZ) LTSTBL YES
0x2247f4…224988 Dummy {f00=0x00ab, f01=0x0190, f02=»* PRTENBL EQU * P IFF RECHAN=0 " P LD A2,DWTST,A6 DEVICE STATUS 4 P ANK A2,LRCSEN LRC-SENDING ? Z P RF(Z) LTENBL NO ~ P LDK A2,ETB LOAD ETB P RB RTCHRO SEND P XIF P* P* END OF A BLOCK (LOCAL) P*
0x224988…224b1c Dummy {f00=0x00ab, f01=0x0190, f02=»UEST ? j P RF(NZ) LTEN20 YES ( P CF A15,RESTIM RESET PRINTER TIMING ( PLTEN20 EQU * T P XIF U =4 h P* z " P* START OF A BLOCK (LOCAL) P* PLTSTBL EQU * 0 P ABL NDRETO SET OK & RETURN TO DEVICE DRIVER P* P E
0x224b1c…224cb0 Dummy {f00=0x00ab, f01=0x0190, f02=»NNECTION j * P* IF BOTH CONNECTION TYPES ARE USED P* > P* ON ENTRY: H P* A6 = DWT-ADDRESS ^ P* ~ P* ON EXIT: P* A5 = CWT-ADDRESS & P* A7 = 0 IF LOCAL CONNECTION P* PGETCWT EQU * " P L
0x224cb0…224e44 Dummy {f00=0x00ab, f01=0x0190, f02=»,A6 CHANNEL PARAMETERS & P ANKL A7,/0100 REMOTE CONNECTION ? P RF(Z) GET010 NO H P XIF ` P IFF RECHAN=0 l * P LC A7,DWTCP2,A6 CHANNEL PARAMETERS 2 P SRL A7,1 P ANK A7,1 CHANNEL NUMBER * P ORR A5,A7 COMBINE WITH CH. UNIT INDEX
0x224e44…224fd8 Dummy {f00=0x00ab, f01=0x0190, f02=» , PGET010 LD A5,CHTAB+2,A5 GET CWT-ADDRESS . PGETRTN ADKL A15,2 ADJUST STACK POINTER =4 4 P LDR* P,A15 RETURN =4 f P IFF SOFTIM+RECHAN=0 U =4 P EJECT P* P* P* R E S T I M P* 2 P* SUBROUTINE TO RESET TIMER
0x224fd8…22516c Dummy {f00=0x00ab, f01=0x0190, f02=» P* A6=DWT-ADDRESS P* & PRESTIM EQU * 0 P INH D P STR A7,A15 SAVE A7 ON STACK P & P LD A7,DWTLD1,A6 GET TIMER POINTER t & P RF(Z) REST20 TIMER ALREADY RESET P CM* DWTLD1,A6 RESET TIMER & P CM DWTLD1,A6 RESET TIMER POIN
0x22516c…225300 Dummy {f00=0x00ab, f01=0x0190, f02=»CT P* P* P* R E S L R C P* 6 0 P* SUBROUTINE TO RESET LRC-DEVICE POINTER, @ < P* BLOCKSENDING RUNNING INDICATOR AND LRC-SENDING BIT. t P* P* ON ENTRY: P* A5 = CWT-ADDRESS P* A6 = DWT-ADD
0x225300…225494 (1, 495) Dummy {f00=0x00ac, f01=0x0190, f02=»WT,A7 RESET LRC-DEVICE POINTER P LDKL A4,/FFFF-LRCSEN & * P ANS A4,DWTST,A6 RESET LRC-SENDING BIT D P LDK A4,1 r 6 P ANS A4,CWTBLK,A5 RESET BLOCKSENDING RUNNING IND. P LDR* A4,A15 RELOAD A4 P RB GETRTN RETURN =4 P XIF P EJE
0x225494…225628 Dummy {f00=0x00ac, f01=0x0190, f02=»IT x P* P* B P* GET CWT-ADDRESS AND IF CHANNEL UNIT FREE SEND CHARACTER. 8 P* RUNNING LRC-PROCESS CAN STOP OUTPUT FROM OTHER d 8 P* DEVICES ON SAME LINE. IF CHANNEL UNIT NOT FREE P* QUEUE OUTPUT P* POUTLIN E
0x225628…2257bc Dummy {f00=0x00ac, f01=0x0190, f02=»A1-A8 ON STACK P XIF P* " P IFT KBDIR=1 U =4 , ( P LDKL A8,0 RESET REG FOR INDICATION F P XIF U =4 r P ANK A2,/FF " P CF A15,GETCWT GET CWT-ADDRESS P IFF RECHAN=0 P IFF LOCHAN=0 P LDR A7,A7 LOCAL ? P RF(
0x2257bc…225950 Dummy {f00=0x00ac, f01=0x0190, f02=»EL n P SLL A3,1 P LDR A7,A5 GET CWT-ADDRESS , P ADR A7,A3 TERMINAL ADJUSTED CWT-ADDRESS > P XIF n P EJECT z P* ( P* IF UNIT NOT FREE QUEUE OUTPUT. 2 P* IF REMOTE DEVICE AND LRC-PROCESS ALREADY 0 P* RUNNING ON TERM
0x225950…225ae4 Dummy {f00=0x00ac, f01=0x0190, f02=» v P* POUL100 INH $ P LDR* A3,A5 CHANNEL UNIT FREE ? $ P RF(NE) OUL800 NO L P IFF RECHAN=0 f P IFF LOCHAN=0 | P LDR A7,A7 REMOTE ? P RF(Z) OUL400 NO P XIF P IFF RECHAN=0 P LDR A3,A2 P SUK A3,/82 ST
0x225ae4…225c78 Dummy {f00=0x00ac, f01=0x0190, f02=» RF(NE) OUL175 YES P LDK A2,LRCSEN * P ORS A2,DWTST,A6 INDICATE LRC-SENDING 0 P LDK A2,0 ^ $ P ST A6,LRCDWT,A7 SET LRC-DEVICE p , P CM LRCACK,A7 RESET LRC-ACKUMULATOR AND P INDICATE FIRST OBC 0 POUL150 LD A4,DWTCP2,A6 CHANNEL PAR
0x225c78…225e0c Dummy {f00=0x00ac, f01=0x0190, f02=» QUEUE OUTPUT P RF OUL350 POUL200 SUK A3,/15 ETB ? ( P RF(NE) OUL300 NO H P EJECT b P* p P* E T B z P* & P SC A2,LRCACK,A7 INDICATE LAST OBC * P LC A2,LRCACK+1,A7 GET LRC-ACKUMULATOR P RB OUL150 P*
0x225e0c…225fa0 Dummy {f00=0x00ac, f01=0x018e, f02=» b P RF(Z) OUL350 YES P LD A3,CWTBLK,A5 " , P RF(NN) OUL500 BLOCKSENDING NOT RUNNING : * P RF OUL800 BLOCKSENDING RUNNING, QUEUE j P ( POUL350 LD A3,DWTST,A6 DEVICE STATUS 0 P ANK A3,DEWDRQ DEVICE WITHOUT DATA REQUEST ? " P RF(Z) O
0x225fa0…226134 (1, 496) Dummy {f00=0x00ac, f01=0x0190, f02=» P XIF P EJECT P* P* ( 4 P* GET DEVICE ADDRESS AND WORK STATION ADDRESS 2 : P* FROM CHANNEL PARAMETERS AND PUT INTO OUTPUT WORD j P* POUL400 EQU * U =4 P IFT KBDIR=1 U =4 , P LD A8,DWTCP2,A6 CHANNEL PARAMETER
0x226134…2262c8 Dummy {f00=0x00ac, f01=0x0190, f02=»DRESS | P SRC A3,4 TO CORRECT PLACE P IFF RECHAN=0 0 P IFF LOCHAN=0 F P LDR A7,A7 LOCAL ? P RF(NZ) OUL505 NO v P XIF P IFF LOCHAN=0 P ANKL A4,/0700 WS-ADDRESS P SLC A4,1 TO CORRECT PLACE P IFF RECHAN=0
0x2262c8…22645c Dummy {f00=0x00ac, f01=0x0190, f02=»NE WITH DEVICE ADDRESS , P LC A4,DWTCP2,A6 LEFT BYTE OF CH. PAR. 2 $ P ANK A4,1 REMOTE TERMINAL NUMBER N P SRC A4,5 TO CORRECT PLACE v P XIF POUL508 EQU * . P ORR A3,A4 COMBINE DEV.ADDR. AND WS-ADDR. P IFT KBDIR=1 U =4 , P ANK
0x22645c…2265f0 Dummy {f00=0x00ac, f01=0x0190, f02=»UTPUT WORD IN A2 ~ P EJECT P* & , P* SEND CHARACTER AND SET CHANNEL BUSY 0 P* ` P IFF RECHAN=0 U =4 j $ P LDK A1,25 LOOP COUNTER FOR OTR P XIF U =4 POUL515 EX CWTOTR,A5 OTR P RF(A) OUL520 ACCEPTED P IFT RECHAN=
0x2265f0…226784 Dummy {f00=0x00ac, f01=0x0190, f02=»ES ? ~ P RB(NZ) OUL515 YES P RF OUL800 QUEUE & P XIF U =4 > " POUL518 ADKL A15,20 RESET STACK P " P LDK A1,NOERR SET NOT OPERABLE v 6 P ABL NDREP GET REGISTERS AND RETURN TO DEV.DRIVER POUL520 EQU * P* P IFT LOGING=1
0x226784…226918 Dummy {f00=0x00ac, f01=0x0190, f02=»A2,CWTLOW,A5 STORE LAST OUTPUT WORD P IFF RECHAN=0 , P IFF LOCHAN=0 B P LDR A7,A7 REMOTE ? X P RF(Z) OUL550 NO t P XIF P IFF RECHAN=0 P EJECT P* N P* INDICATE BLOCKSENDING RUNNING IF STX TO DEVICE WITHOUT DATA R
0x226918…226aac Dummy {f00=0x00ac, f01=0x018e, f02=»MAL CHARACTER ~ " P LD A3,DWTST,A6 DEVICE STATUS 0 P ANK A3,DEWDRQ DEVICE WITHOUT DATA REQUEST ? < " P RF(Z) OUL540 DEVICE WITH DRD p , P LD A3,CWTBLK,A5 BLOCK SENDING INDICATOR * P RF(Z) OUL540 BLOCKSENDING NOT ALLOWED P LDK A3,/80 2 P
0x226aac…226c40 Dummy {f00=0x00ac, f01=0x0190, f02=» f . P CF A15,RESTSY START OR RESTART SYNC-TIMER P XIF : P* F 6 P* SAVE LAST OUTPUT CHARACTER IN DWT AND RETURN P P* POUL550 EQU * U =4 P IFT KBDIR=1 U =4 * P LDR A8,A8 KB-LAMPS ON VDU-OUTPUT ? =4 P RF(NZ) OUL700 YES
0x226c40…226dd4 (1, 497) Dummy {f00=0x00ac, f01=0x0190, f02=»RESTORE A1-A8 AND RETURN P XIF P* , P IFT CPU852=0 6 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... L P INH z * P ADKL A15,2 ...ADJUST STACK POINTER... P LDR* P,A15 ...AND RETURN P XIF P* P EJECT P* : P*
0x226dd4…226f68 Dummy {f00=0x00ac, f01=0x0190, f02=»DR A7,A7 REMOTE ? P RF(NZ) OUL805 YES P XIF 4 P IFF LOCHAN=0 @ P LDR A7,A5 CWT-ADDRESS V P XIF t , POUL805 LD A4,CWTEQ,A7 GET QUEUE POINTER P RF(E) OUL820 POUL810 CWR A6,A4 & P RB(E) OUL600 DWT ALREADY IN QUEUE P
0x226f68…2270fc Dummy {f00=0x00ac, f01=0x0190, f02=» P RF OUL840 $ POUL830 ST A6,DWTOTQ,A4 QUEUE DWT * POUL840 CM DWTOTQ,A6 SET END OF THREAD > P RB OUL600 l P IFT KBDIR=1 U =4 ~ P EJECT P* & P* KEYBOARD LAMPS ON VDU OUTPUT 4 P* (KEYBOARD CONNECTED TO VDU INSTEAD OF SUM
0x2270fc…227290 Dummy {f00=0x00ac, f01=0x0190, f02=»ISTER ~ P* POUL900 EQU * " P LD A4,DWTST,A6 DEVICE STATUS , P LDKL A1,/FFFF-LMPQUE R 2 P ANS A1,DWTST,A6 RESET BIT 'LAMP CODE QUEUED' p P ANK A4,LMPQUE , P RB(NZ) OUL510 LAMP CODE ALREADY QUEUED P LDR A1,A5 CWT-ADDRESS
0x227290…227424 Dummy {f00=0x00ac, f01=0x018e, f02=» IFF RECHAN=0 , P LDR A1,A7 TERMINAL ADJUSTED CWT-ADDRESS P XIF F P IFT KBDIR=1 U =4 R & POUL910 LD A4,CWTEQ,A1 OUTPUT QUEUE l P RF(Z) OUL920 QUEUE EMPTY P CWR A6,A4 , P RB(E) OUL600 THIS DWT ALREADY IN QUEUE * POUL920 ST A4,D
0x227424…2275b8 Dummy {f00=0x00ac, f01=0x0190, f02=» 0 P ORS A1,DWTST,A6 SET BIT 'LAMP CODE QUEUED' , P LDK A2,ESCKB ESCAPE CODE FOR DATA TO KB < P RB OUL510 l P XIF U =4 ~ P EJECT P* P* P* C H L T O N P* > P* SUBROUTINE TO RESET CWT AND PERFORM CIO-START OF
0x2275b8…22774c Dummy {f00=0x00ac, f01=0x0190, f02=»A4,CHTAB " PCON010 SUK A4,2 ALL TREATED ? P RF(NZ) CON020 NO TAKE NEXT 6 ( PRTNA15 ADKL A15,2 RETURN AND ENABLE Z P ENB P LDR* P,A15 PCON020 EQU * P INH $ P LD A5,CHTAB,A4 LOAD CWT-ADDRESS P RB(Z) CON010 P IFF
0x22774c…2278e0 Dummy {f00=0x00ac, f01=0x0190, f02=» * * P LDK A3,/40 INDICATE CHANNEL NOT BUSY $ P EX CWTCIS,A5 EXECUTE CIO-START 8 P RF(U) CON027 ` $ P LDK A3,0 INDICATE CHANNEL BUSY v . P CF A15,RESTSY START OR RESTART SYNC-TIMER PCON027 EQU * 2 P ST A3,CWTRST,A5 INDICATE C.U. PRESE
0x2278e0…227a74 (1, 498) Dummy {f00=0x00ac, f01=0x0190, f02=»,A5 GET LAST DWT P RB(Z) CON010 P IFF RECHAN=0 . P CWK A6,1 SYNC ? D P RB(E) CON010 P XIF r P CMR A5 RESET LAST OUTPUT ~ P LDK A2,/00 DUMMY P CF A15,OUTLIN SEND IT P RB CON010 P EJECT P* P* L
0x227a74…227c08 Dummy {f00=0x00ac, f01=0x0190, f02=» P IFT LOGING=1 P* PLOGG STR A1,A15 ( P LD A1,POINT @ P ADK A1,2 T & P CWK A1,BUFE BUFE IS MAX LOGG AREA f P RF(NE) L1 ( P LDKL A1,BUF SET FIRST LOGG ADDRESS PL1 ST A1,POINT & P STR A2,A1 LOGG OF INR OR OTR WORD
0x227c08…227d9c Dummy {f00=0x00ac, f01=0x40fc, f02=»1 " PPOINT DATA BUF-2 LOGG POINTER P* 0 P IFT RECHAN=0 : PBUF RES 200 LOGG AREA P P XIF n P IFT LOGING=1 z P IFF RECHAN=0 PBUF RES 1000 LOGG AREA P XIF PBUFE EQU * P* P END @ R OTR WORD
0x227d9c…227f30 Dummy {f00=0x00ac, f01=0x2008, f02=» INR OR OTR WORD e P LDR* A1,A15 f P ADKL A15,2 f 4 P LDR* P,A15 RETURN f H P* f b P* f l PPOINT DATA BUF LOGG POINTER f v P* f PBUF RES 500 LOGG AREA f PBUFE EQU * f P* f P XIF f P* f P END f @ f
0x227f30…2280c4 Dummy {f00=0x00ac, f01=0x0000, f02=»
[…0x3…]
0x228580…228714 (1, 499) Opaque[0x194]
0x228714…2288a8 # DirEnt {nam=»DRGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15a0, f03=0x0000}
0x228714…2288a8 IdxSect {
0x228714…2288a8 f00 = 0x00ad // 0x228714 @0x0
0x228714…2288a8 f01 = 0x0016 // 0x228716 @0x2
0x228714…2288a8 gno = [ // 0x228718 @0x4
0x228714…2288a8 [0x00]: C0x00ad.0x0.0
0x228714…2288a8 [0x01]: C0x00ad.0x1.0
0x228714…2288a8 [0x02]: C0x00ad.0x2.0
0x228714…2288a8 [0x03]: C0x00ad.0x3.0
0x228714…2288a8 [0x04]: C0x00ae.0x0.0
0x228714…2288a8 [0x05]: C0x00ae.0x1.0
0x228714…2288a8 [0x06]: C0x00ae.0x2.0
0x228714…2288a8 [0x07]: C0x00ae.0x3.0
0x228714…2288a8 [0x08]: C0x00af.0x0.0
0x228714…2288a8 [0x09]: C0x00af.0x1.0
0x228714…2288a8 [0x0a]: C0x00af.0x2.0
0x228714…2288a8 ]
0x228714…2288a8 }
0x2288a8…228a3c Dummy {f00=0x00ad, f01=0x0190, f02=» 2 P IDENT DRGP02 REL 11.0 81-01-26 870105041100 P : ( P =1,TIME OUT IF INACTIVE, 25 SEC. B P PRR 11.0 80-11-19 n P* < P******************************************************* < P*
0x228a3c…228bd0 Dummy {f00=0x00ad, f01=0x0190, f02=» 4 P* DRGP02 = DRIVER GENERAL PRINTER * < P* * < < P* * | < P* * < P************
0x228bd0…228d64 Dummy {f00=0x00ad, f01=0x0190, f02=»DRIVER CONSISTS OF THE FOLLOWING PARTS : P* 0 $ P* A C T P : ACTIVATION PART : P* b $ P* R C T P : RECOVERY ROUTINE l P* P* P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* $ P* ORDER 00 :
0x228d64…228ef8 Dummy {f00=0x00ad, f01=0x0190, f02=»PARAMETERS p ( P* ORDER 38 : RELEASE DOCUMENT P* > , P* THE FOLLOWING RETURN CODES ARE USED: H P* x & P* BIT 0 : REQUEST ERROR : P* BIT 2 : END OF JOURNAL TAPE, DOCUMENT OUT ( P* BIT 13 : CODE CHECK
0x228ef8…22908c Dummy {f00=0x00ad, f01=0x0190, f02=»ORK REGISTER ~ " P* A2: INPUT/OUTPUT $ P* A3: BUFFER POINTER : " P* A4: WORK REGISTER b " P* A5: STACK POINTER P* A6: DWT-ADDRESS P* A7: ORDER P* A8: ECB-ADD
0x22908c…229220 Dummy {f00=0x00ad, f01=0x0190, f02=»S P* 0 P******************************************* P* H P* R P ENTRY GPAD8 ADDRESS BLOCK P* ~ P* P* 0 P******************************************* P* P* EXTERNALS P* 0 P****************
0x229220…2293b4 (1, 500) Dummy {f00=0x00ad, f01=0x0190, f02=» p & P EXTRN LENDIS END I/O AND DISPATCH & P EXTRN OUTPUT OUTPUT ONE CHARACTER 2 0 P EXTRN GETCHR GET CHARACTER FROM ECB BUFFER P EXTRN SETIMP SET TIMER =1 ( P EXTRN DWTST DWT STATUS DISPLACEMENT & P EXTRN DWTECB DWT ECB DISPLACEMENT ( P
0x2293b4…229548 Dummy {f00=0x00ad, f01=0x0190, f02=» STABLK DEF START OF BLOCK " P EXTRN ENDBLK DEF END OF BLOCK " P EXTRN DWTDEV DEVICE STATUS H P EJECT l P* ~ P* . P****************************************** P* P* CONSTANTS P* . P****************************
0x229548…2296dc Dummy {f00=0x00ad, f01=0x018e, f02=»CR EQU /0D CARRIAGE RETURN PSO EQU /0E SHIFT OUT " PSI EQU /0F SHIFT IN > PESC EQU /1B ESCAPE Z , PCSI EQU /5B CONTROL SEQUENCE INTRODUCER t PREP EQU /62 REPEAT * PVPR EQU /65 VERTICAL POSITION RELATIVE " PINFF EQU /74 INPUT FRONT FEE
0x2296dc…229870 Dummy {f00=0x00ad, f01=0x0190, f02=» j $ PSLPL EQU /76 SELECT PAGE LENGTH & PRIS EQU /63 RESET TO INITIAL STATE 0 $ PDSR EQU /6E DEVICE STATUS REPORT Z & PDCS EQU /50 DEVICE CONTROL STRING PST EQU /5C STRING TERMINATOR PDEL EQU /7F DELETE PZERO EQU /30 ZERO PNEG
0x229870…229a04 Dummy {f00=0x00ad, f01=0x0190, f02=»*********** b P* P* CONTROL SEQUENCES P* : > P********************************************************* D P* P* PBYTE FORM 8,8 P* P* PCSREP EQU * REPEAT P BYTE ESC,CSI P BYTE ZERO,ZERO
0x229a04…229b98 Dummy {f00=0x00ad, f01=0x0190, f02=» P BYTE ZERO,VPR P BYTE NEG,NEG " PCSINFF EQU * INPUT FRONT FEED 0 P BYTE ESC,CSI V P BYTE ZERO,ZERO l P BYTE INFF,NEG . PCSVPFF EQU * VERTICAL POSITION FRONT FEED P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE VPFF,NEG
0x229b98…229d2c Dummy {f00=0x00ad, f01=0x0190, f02=»TIONAL VERSION P BYTE ESC,CSI P BYTE ZERO,ZERO , P BYTE SNV,NEG D " PCSSLPL EQU * SELECT PAGELENGTH Z P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE SLPL,NEG * P BYTE NEG,NEG & PCSRIS EQU * RESET TO INITIAL STATE P
0x229d2c…229ec0 Dummy {f00=0x00ad, f01=0x0190, f02=»G,NEG P EJECT P* P* & < P******************************************************* 0 P* p P* CONDITIONAL ASSEMBLY z P* < P******************************************************* P* P* P* 4 P* THE ST
0x229ec0…22a054 (1, 501) Dummy {f00=0x00ad, f01=0x018e, f02=» GERMANY,AUSTRIA,LUXEMBOURG,SWITZERLAND F P =2 GREAT BRITAIN,NETHERLANDS,BELGIUM,NEW ZEELAND,SOUTH AFRICA 0 0 P =3 FRANCE,SWITZERLAND,BELGIUM,LUXEMBOURG z , P =4 SPAIN,MEXICO,ARGENTINA,VENEZUELA P =5 ITALY,SWITZERLAND P =6 SWE
0x22a054…22a1e8 Dummy {f00=0x00ad, f01=0x0190, f02=» r $ P =11 SWEDEN (SPECIAL VERSION) P =13 GREEK 0 $ P =14 JAPAN (KATAKANA VERSION) F $ P =15 ISRAEL (HEBREW VERSION) n P* P* ( PX:A EQU 02 GREAT BRITAIN AS STANDARD PSTDNCV EQU X:A P EJECT P* P*
0x22a1e8…22a37c Dummy {f00=0x00ad, f01=0x0190, f02=»ONT FEED DEVICE P* P* " P* , ( P* THE STANDARD PAGELENGTH IS DEFINED 6 & P* BY SETTING X:C = NUMBER OF LINES b P* P* PX:C EQU 48 PPAGLEN EQU X:C P* P* . P* THE STANDARD NUMBER OF LINES IS DEFINED
0x22a37c…22a510 Dummy {f00=0x00ad, f01=0x0190, f02=»* P* P* MMU BUFFER SIZE P* . P* 8 PX:E EQU 132 B PDVBLEN EQU X:E V P* l P* v P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1 P* P* PMMUPAG EQU
0x22a510…22a6a4 Dummy {f00=0x00ad, f01=0x0190, f02=»U 0 j P* P* PCPU852 EQU 1 P EJECT 4 P* B P* L 0 P******************************************* V P* P* DWT - DISPLACEMENTS P* 0 P******************************************* P* P* P*
0x22a6a4…22a838 Dummy {f00=0x00ad, f01=0x0190, f02=» IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF 0 P* < " PDWTTP EQU /2 TIMER POINTER =1 F ( PDWTDCS EQU /4 DOCUMENT CHARACTER SET l ( PDWTPCS EQU /6 PRINTER CHARACTER SET & PDWTPL EQU /8 PRINTER PAPER LENGTH & PDWTDL EQU /A DOCUMENT PAPE
0x22a838…22a9cc Dummy {f00=0x00ad, f01=0x018e, f02=»(ACKUMULATED) v * PDWTSTR EQU /12 CONTROL SEQUENCE ADRESS > PDWTDISP EQU /14 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. D * PDWTACD EQU /16 ACTUAL COLUMN DOCUMENT & PDWTACP EQU /19 ACTUAL COLUMN PAPER $ PDWTCO1 EQU /1C COLUMN COUNTER 1 $ PDW
0x22a9cc…22ab60 Dummy {f00=0x00ad, f01=0x0190, f02=» P* P* 0 P******************************************* P* P P* ECB - DISPLACEMENTS Z P* x 0 P******************************************* P* & PECBBA EQU 2 BUFFER ADDRESS IN ECB ( PECBRL EQU 4 REQUESTED LENGTH I
0x22ab60…22acf4 (1, 502) Dummy {f00=0x00ad, f01=0x0190, f02=» EJECT P* 0 P******************************************* P* L P* TABLES V P* f 0 P******************************************* p P* P* P DATA DVBLEN MMU BUFFER SIZE P DATA 2 DEVICE INDEX PGPAD8 EQU * ADDR
0x22acf4…22ae88 Dummy {f00=0x00ad, f01=0x0190, f02=» RECOVERY ROUTINE PTPTAB EQU * P IFT FFDEV=1 . P DATA /0107,/0C25,/3939 B P XIF b P DATA /0006,/2424 n PTPLEN EQU *-TPTAB P P P EJECT P* P* P* A C T P P* 2 P* THIS IS THE ACTIVA
0x22ae88…22b01c Dummy {f00=0x00ad, f01=0x0190, f02=» * ACTIVATION ENTRY P* P* & : P* GET DWT INDEX: 0=CONTINUOUS STATIONARY, 1=DOCUMENT 0 P* n " P LC A2,DWTOR,A6 GET DWT INDEX x P ANK A2,1 MASK , P LC A3,DWTDEV+1,A6 GET OLD DEVICE VALUE P ANK A3,/FE P ORR A3,A2 "
0x22b01c…22b1b0 Dummy {f00=0x00ad, f01=0x0190, f02=»DK A3,TPLEN-1 . PACT010 CC A7,TPTAB,A3 CHECK IF LEGAL ORDER P RF(E) ACT020 VALID ORDER H P SUK A3,1 j P RB(NN) ACT010 TRY NEXT | P* P ABL LENDER ILLEGAL ORDER P* P* PACT020 EQU * P ADR A3,A3 GET INDEX
0x22b1b0…22b344 Dummy {f00=0x00ad, f01=0x0190, f02=»ELDOC f P XIF & P DATA TSTSTA,WRTCON,CSTPAR,CSTPAR P EJECT D P* R P* P* ORDER 00 : TEST STATUS f P* P* PTSTSTA EQU * TEST STATUS P CF A5,RESREC * P CF A5,GTSTAT GET STATUS FROM PRINTER P ABL LEN
0x22b344…22b4d8 Dummy {f00=0x00ad, f01=0x0190, f02=»TDOC EQU * P CF A5,GTSTAT " P LD A4,DWTDEV,A6 DEVICE STATUS ( ( P ANKL A4,/20 HAS POWER OFF OCCURED? N P RF(NZ) WRDO05 YES. z P LDKL A3,/2000 * P TM A1,A3 DOCUMENT OUT? P RF(Z) WRDO06 NO 0 P LDKL A3,/8000 YES.SET BIT 0 (RE
0x22b4d8…22b66c Dummy {f00=0x00ad, f01=0x0190, f02=» A3,1 P TM A1,A3 NOT OPERABLE? P RF(Z) WRDO10 NO . P ABL LENDIS END REQUEST F $ PWRDO10 LDK A2,20 MAX BLOCK SIZE f P CF A5,STABLK START OF BLOCK P ABL(NZ) ERROUT JMP IF ERROR , P LD A3,DWTDEV+DWTALN,A6 GET ACTUAL LINE P R
0x22b66c…22b800 Dummy {f00=0x00ad, f01=0x0190, f02=»? v , P ABL(NE) POSERR NO, DOC. NOT POSITIONED P LD A3,DWTDEV+DWTDL,A6 * : 0 P ST A3,DWTDEV+DWTRLN,A6 FIRST LINE ON DOC. , PWRDO12 LDKL A2,CSINFF INPUT FRONT FEED : P LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NO DISPLACEMENT & P CF A5,SEN
0x22b800…22b994 (1, 503) Dummy {f00=0x00ae, f01=0x0190, f02=»DKL A2,CSSNV SELECT NATIONAL VERSION > P LDKL A3,DWTDEV+DWTDCS DOCUMENT CHARACTER SET DISPLACEMENT , , P CF A5,SEND SEND SELECT NATIONAL VERSION n P CF A5,ENDBLK END OF BLOCK P ABL(NZ) ERROUT JMP IF ERROR P* " P* EXAMINE CONTROL CHARA
0x22b994…22bb28 Dummy {f00=0x00ae, f01=0x0190, f02=»ATUS r ( P ANKL A1,/20 HAS POWER OFF OCCURED ? P RF(NZ) REP1 YES 8 P* P * P SUK A2,/2B PRINT WITHOUT LINE FEED ? Z P RF(Z) WRT03 YES , PWRT04 LDR A4,A2 SAVE CONTROL CHAR. IN A4 P LD A2,ECBRL,A8 P ADK A2,/8 MAX BLOCK SIZE
0x22bb28…22bcbc Dummy {f00=0x00ae, f01=0x0190, f02=»A6 CLEAR DOCUMENT COLUMN COUNTER ~ * P SUK A2,5 PRINT AFTER TWO LINE FEED ? ( P RF(Z) TWOLF1 YES V P* p & P SUK A2,1 PRINT AFTER FORM FEED ? z & P ABL(Z) WRT14 YES, ALLREADY DONE ! P* * P RF ONELF1 PRINT AFTER ONE LINE FEED ! P*
0x22bcbc…22be50 Dummy {f00=0x00ae, f01=0x0190, f02=»4,1 FOR CORRECT NO OF SPACES . PWRT05 CF A5,KONVER CONVERT BINARY TO ASCII ! $ @ P SC A2,DWTDEV+DWTACD,A6 STORE THE VALUE IN ACTUAL COL. DOC. ! V B P SC A4,DWTDEV+DWTACD+2,A6 STORE THE VALUE IN ACTUAL COL. DOC. ! P SRL A4,8 ! 6 P SC A4,DWTDEV+DWTACD+1
0x22be50…22bfe4 Dummy {f00=0x00ae, f01=0x0190, f02=»P IF ERROR ! ~ P LD A4,DWTDEV+DWTCO2,A6 " . P ABL(Z) WRT15 JMP IF NO PRECEIDING SPACES " 2 P LDK A2,/20 SEND SPACE " d P CF A5,OUTPUT " P ABL(NZ) ERROUT JMP IF ERROR " P LDKL A2,CSREP REPEAT " > P LDKL A3,DWTDEV+DWTACD ACTUAL COLUMN DOCUMENT
0x22bfe4…22c178 Dummy {f00=0x00ae, f01=0x0190, f02=»F A5,BINARY CONV ASCII TO BINARY " P SUK A3,1 INCR REQ LINE NO # ( P RF TWO TWO LINE FEED # J 2 PONELF1 LD A1,DWTDEV+DWTRLN,A6 GET REQ LINE NO # h P CF A5,BINARY # " PTWO SUK A3,1 INCR REQ LINE NO # P LDR A4,A3 # & P CF A5,KONVER CONV BINARY TO
0x22c178…22c30c Dummy {f00=0x00ae, f01=0x0190, f02=»LN REQUESTED LINE NUMBER DISPLACEMENT # | P CF A5,SEND $ . P LD A4,DWTDEV+DWTRLN,A6 $ B 8 P ST A4,DWTDEV+DWTALN,A6 ACTUAL LINE = REQUESTED LINE $ b P RF WRT14 $ P* $ 2 P* REPEAT WRITE REQUEST AT DOCUMENT STATION $ P* $ PREP1 CF A5,RES
0x22c30c…22c4a0 Dummy {f00=0x00ae, f01=0x0190, f02=»WRT15 JMP IF LF/FF DONE $ P RB WRT04 % P* % 2 P XIF % < P EJECT % H P* % V P* % ` , P* ORDER 06: WRITE CONTINOUS STATIONARY % j P* % P* % PWRTCON EQU * % $ P CF A5,GTSTAT GET DEVICE STATUS % P LDKL A3,/2000 * % P TM
0x22c4a0…22c634 (1, 504) Dummy {f00=0x00ae, f01=0x0190, f02=» P RF(Z) WRCO10 NO & P ABL ENDIO END REQUEST & P & : PWRCO10 LDK A2,/E BLOCK SIZE & B P CF A5,STABLK START OF BLOCK & f P ABL(NZ) ERROUT JMP IF ERROR & * P LDKL A2,CSSNV SELECT NATIONAL VERSION & : P LDKL A3,DWTDEV+DWTPCS PRINTER CHAR. SET DIS
0x22c634…22c7c8 Dummy {f00=0x00ae, f01=0x0190, f02=»* & . P* EXAMINE CONTROL CHARACTER, CONTINOUS ' P* ' < ( P LDK A3,1 SET UP ECB BUFFER POINTER ' F ( P CF A15,GETCHR GET CONTROL CHARACTER ' r & P LD A1,DWTDEV,A6 GET DEVICE STATUS ' ( P ANKL A1,/20 HAS POWER OFF OCCURED ? ' P RF(NZ) REP2 YES '
0x22c7c8…22c95c Dummy {f00=0x00ae, f01=0x0190, f02=»A2,ECBRL,A8 ' P ADK A2,/8 BLOCK LENGTH ( P CF A5,STABLK START OF BLOCK ( 4 P ABL(NZ) ERROUT JMP IF ERROR ( X ( P LDR A2,A4 RESTORE CONT. CHAR. IN A2 ( | 2 P CM DWTDEV+DWTCO1,A6 CLEAR PAPER COL. COUNTER ( * P SUK A2,5 PRINT AFTER TWO LINE FEED ? (
0x22c95c…22caf0 Dummy {f00=0x00ae, f01=0x0190, f02=»ER ONE LINE FEED ! ( | P* ) . P* EXECUTE CONTROL CHARACTER, CONTINOUS ) $ P* ) V 2 PWRC03 LD A4,DWTDEV+DWTCO1,A6 GET ACTUAL COLUMN ) ` * P RF(Z) WRC05 FOR CORRECT NO OF SPACES ) P SUK A4,1 ) . PWRC05 CF A5,KONVER CONVERT BINARY TO ASCII ) D P
0x22caf0…22cc84 Dummy {f00=0x00ae, f01=0x0190, f02=» P* * " PWRC07 LDK A2,/8C BLOCK LENGTH * P CF A5,STABLK START OF BLOCK * 4 P ABL(NZ) ERROUT JMP IF ERROR * X P LD A4,DWTDEV+DWTCO1,A6 * | , P RF(Z) WRT15 JMP IF NO PRECEIDING SPACES * P LDK A2,/20 SEND SPACE * P CF A5,OUTPUT * P ABL(NZ)
0x22cc84…22ce18 Dummy {f00=0x00ae, f01=0x0190, f02=»ND REPEAT * P RF WRT15 + P* + $ $ PTWOLF2 LDK A2,LF SEND LINE FEED + . P CF A5,OUTPUT + V P ABL(NZ) ERROUT JMP IF ERROR + l $ PONELF2 LDK A2,LF SEND LINE FEED + P CF A5,OUTPUT + P ABL(NZ) ERROUT JMP IF ERROR + P RF WRT14 + P* +
0x22ce18…22cfac Dummy {f00=0x00ae, f01=0x0190, f02=»EPEAT WRITE REQUEST AT CONTINOUS STATION + P* , 0 PREP2 CF A5,RESREC , : * P SUK A2,/2B PRINT WITHOUT LINE FEED ? , T P RB(Z) WRC07 YES , * P LD A1,DWTDEV+DWTLFD,A6 GET INDICATOR , $ P RF(NZ) WRT15 JMP IF LF/FF DONE , P RB WRC04 , P EJECT
0x22cfac…22d140 Dummy {f00=0x00ae, f01=0x0190, f02=»4 IM DWTDEV+DWTLFD,A6 SET LF/FF INDICATOR , P* - 2 * PWRT15 LDK A3,2 SET ECB BUFFER POINTER - < & PWRT16 CF A15,GETCHR GET CHARACTER - j P LDR A4,A1 BUFFER FINISHED ? - P RF(P) WRT20 NO - . PWRT17 SUK A3,/02 ECB BUFFER POINTER = /02 - P RF(Z)
0x22d140…22d2d4 (1, 505) Dummy {f00=0x00ae, f01=0x018e, f02=»DBLK END OF BLOCK - P ABL(NZ) ERROUT JMP IF ERROR . P CF A5,GTSTAT GET STATUS . > P RF ENDIO END REQUEST . ^ P* . | PWRT20 EQU * . P LDR A4,A2 . P* . @ P* EXAMINE CHARACTER AND SEND DEPENDING ON TYPE OF CHARACTER . P* . P .
0x22d2d4…22d468 Dummy {f00=0x00ae, f01=0x0190, f02=» P SUK A4,/2F NO. CHAR = /AE? / ( P RF(Z) WRT30 YES. CONVERT /AE TO /2E / ( 4 P LDK A4,/04 ILLEGAL CHARACTER SET BIT 13 IN R.C. / T P ORS A4,ECBRC,A8 / P RB WRT16 / PWRT30 LDK A2,/2E / PWRT25 LDR A4,A1 / P CF A5,OUTPUT SEND CHARACTER /
0x22d468…22d5fc Dummy {f00=0x00ae, f01=0x0190, f02=»DWTDEV+DWTCO1,A6 INC.COLUMN COUNTER 1 / P RB WRT16 0 . 2 PWRT40 IM DWTDEV+DWTCO2,A6 INC.COLUMN COUNTER 2 0 @ P RB WRT16 0 v PENDIO EQU * 0 . P CM DWTDEV+DWTLFD,A6 CLEAR LF/FF INDICATOR 0 P ABL LENDIS END REQUEST 0 P EJECT 0 P IFT FFDEV=1
0x22d5fc…22d790 Dummy {f00=0x00ae, f01=0x0190, f02=» " PPOSDOC EQU * POSITION DOCUMENT 1 P CF A5,RESREC 1 * $ P CF A5,GTSTAT GET DEVICE STATUS 1 @ P LDK A3,1 NOT OPERABLE 1 h P TM A1,A3 * 1 P RF(NZ) POS020 YES 1 P LDK A2,/E BLOCK LENGTH 1 P CF A5,STABLK START OF BLOCK 1 P ABL(NZ) ERR
0x22d790…22d924 Dummy {f00=0x00ae, f01=0x018e, f02=»NV 1 ~ P CF A5,ENDBLK END OF BLOCK 2 P ABL(NZ) ERROUT JMP IF ERROR 2 , & P LD A4,ECBCW,A8 GET REQUESTED LINE 2 P P ANK A4,/FF 2 z & P RF(Z) POSERR ILLEGAL LINE NUMBER 2 $ P LD A1,DWTDEV+DWTDL,A6 MAX. LINE 2 * P CF A5,BINARY CONVERT ASCII TO BINARY 2
0x22d924…22dab8 Dummy {f00=0x00ae, f01=0x018e, f02=» ( P NGR A4,A4 GET PRINTER REQ. LINE NO. 3 * P CF A5,KONVER CONVERT BINARY TO ASCII 3 0 . P ST A4,DWTDEV+DWTRLN,A6 SET REQUESTED LINE 3 ^ , P LD A4,DWTDEV+DWTALN,A6 GET ACTUAL LINE 3 . P RF(NZ) POS030 DOCUMENT ALREADY POSITIONED 3 PPOS005 EQU * 3 P L
0x22dab8…22dc4c Dummy {f00=0x00ae, f01=0x0190, f02=» 3 n > P LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT 4 & P CF A5,SEND SEND INPUT FRONT FEED 4 J PPOS010 EQU * 4 t P CF A5,ENDBLK END OF BLOCK 4 P ABL(NZ) ERROUT JMP IF ERROR 4 P CF A5,GTSTAT GET STATUS 4 P LDR A2,A1 GET RETURN CODE
0x22dc4c…22dde0 Dummy {f00=0x00ae, 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
0x22dde0…22df74 (1, 506) Dummy {f00=0x00ae, f01=0x0190, f02=» P RB POS010 6 P XIF 6 PPOSERR EQU * 6 " ( P ABL LENDER REQ. ERROR, END REQUEST 6 6 P EJECT 6 b P IFT FFDEV=1 6 p P* 6 P* 6 ( P* ORDER 24 : SET DOCUMENT PARAMETERS 6 P* 6 P* 6 $ PDOCPAR EQU * DOCUMENT PARAMETERS 6 P LDK A1,
0x22df74…22e108 Dummy {f00=0x00ae, f01=0x0190, f02=»E OF LINES 6 z P CWK A4,/10 INDEX TO BIG 7 P RB(G) POSERR YES 7 2 * P ADR A4,A4 ADJUST INDEX TO LINE TABLE 7 L 0 P LD A4,LINNUM,A4 GET LINE ACCORDING TO INDEX 7 z 8 P ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH FOR DOCUMENT 7 PDOC010 EQU * 7 4 P LD A4,ECB
0x22e108…22e29c Dummy {f00=0x00ae, f01=0x0190, f02=»NDEX TO BIG 7 P RB(G) POSERR YES 8 " P ADR A4,A4 ADJUST TABLE INDEX 8 . 6 P LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. TO INDEX 8 T : P ST A4,DWTDEV+DWTDCS,A6 SET CHARACTER SET FOR DOCUMENT 8 PDOC020 EQU * 8 P RB ENDIO END REQUEST 8 P XIF 8
0x22e29c…22e430 Dummy {f00=0x00ae, f01=0x0190, f02=»ETERS CONTINUOUS STATIONARY 8 z P LDK A1,0 CLEAR A1 9 $ P CF A5,RESREC 9 @ , P LD A4,ECBCW,A8 GET NUMBER OF LINES CST. 9 V P SRL A4,8 GET LINES 9 $ P RF(Z) CST010 NO CHANGE OF LINES 9 P CWK A4,/10 INDEX TO BIG 9 P RB(G) POSERR YES 9 * P ADR
0x22e430…22e5c4 Dummy {f00=0x00ae, f01=0x0190, f02=»OR CONT.STAT. 9 h P LDK A2,/A BLOCK LENGTH : P CF A5,STABLK START OF BLOCK : 6 P ABL(NZ) ERROUT JMP IF ERROR : Z & P LDKL A2,CSSLPL SELECT PAGELENGTH : ~ 6 P LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. : & P CF A5,SEND SEND SLECT PAGELENGTH :
0x22e5c4…22e758 Dummy {f00=0x00ae, f01=0x018e, f02=»IATION : f P ANK A4,/FF ; . P RF(Z) CST020 NO CHANGE OF NAT. CHAR. SET ; " P CWK A4,/F INDEX TO BIG ; T P RB(G) POSERR YES ; t 0 P ADR A4,A4 ADJUST INDEX TO NAT. CHAR. TABLE ; 6 P LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. TO INDEX ; > P ST A4,DWTDE
0x22e758…22e8ec Dummy {f00=0x00ae, f01=0x0190, f02=» P* < P* < " P* ORDER 38 : RELEASE DOCUMENT < P* < > P* < H PRELDOC EQU * < R P LDK A2,/4 BLOCK LENGTH < f P CF A5,STABLK START OF BLOCK < P ABL(NZ) ERROUT JMP IF ERROR < P CF A5,RESREC < 2 P LDKL A2,CSEJFF CONTROL SEQ. EJECT F
0x22e8ec…22ea80 Dummy {f00=0x00ae, f01=0x0190, f02=»GET STATUS FROM PRINTER < P LDR A2,A1 GET RETURN CODE = " P ANK A2,/20 DOCUMENT RELEASED = B " P RB(NZ) RELDOC NO , TRY AGAIN = h P ANKL A1,/8000 REQUEST ERROR = * P CM DWTDEV+DWTALN,A6 RESET ACTUAL LINE = . P CM DWTDEV+DWTRLN,A6 RESET REQUESTED LIN
0x22ea80…22ec14 (1, 507) Dummy {f00=0x00af, f01=0x0190, f02=»EATS RUNNING REQUEST AT POWER ON = z P* > ( P* > 2 PRCTP EQU * > < * PRCTP07 LDKL A1,/7FFF SET DEVICE BUSY > N P ANS A1,DWTST,A6 BUSY > | P LDKL A5,DWTSB2 STACK BASE > P ADR A5,A6 > P LDK A2,/F BLOCK LENGTH > P CF A5,STABLK START OF BLO
0x22ec14…22eda8 Dummy {f00=0x00af, f01=0x0190, f02=» 8 P LD A1,DWTDEV+DWTSYST,A6 INTERN. SYSTEM START IND. ? " P RF(Z) RCTP10 NO SYSTEM START ? @ P * ? f 6 P CM DWTDEV+DWTSYST,A6 SET SYSTEM START INDICATOR ? t P * ? 0 P LDKL A4,STDNCV GET STANDARD NAT. CHAR. SET ? * P CF A5,KONVER CONVERT BI
0x22eda8…22ef3c Dummy {f00=0x00af, f01=0x0190, f02=»L A4,PAGLEN STANDARD PAGE LENGTH ? * P CF A5,KONVER CONVERT BINARY TO ASCII @ ( 6 P ST A4,DWTDEV+DWTPL,A6 SET PAGE LENGTH CONT.STAT. @ V & P LDKL A2,CSSLPL SELECT PAGELENGTH @ 6 P LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. @ & P CF A5,SEND SEND SEL
0x22ef3c…22f0d0 Dummy {f00=0x00af, f01=0x018e, f02=»DEV+DWTDL,A6 SET PAGE LENGTH DOCUMENT @ PRCTP10 EQU * A . P CF A5,ENDBLK END OF BLOCK A B P ABL(NZ) ERROUT JMP IF ERROR A d * P CM DWTDEV+DWTALN,A6 RESET ACTUAL LINE A , P LDKL A1,/20 INDICATE POWER OFF OCCURED A P ORS A1,DWTDEV,A6 A $ P LD A1,D
0x22f0d0…22f264 Dummy {f00=0x00af, f01=0x0190, f02=» A P* GTSTAT B P* B P* B " > P* THIS ROUTINE SENDS 'DEVICE STATUS REPORT TO THE PRINTER B , P* B n : P* AND ANALYZES THE DEVICE STATUS SENT FROM THE PRINTER B x P* B P* AT EXIT A1 = RETURN CODE B P* B P* B PGTSTAT EQU * B *
0x22f264…22f3f8 Dummy {f00=0x00af, f01=0x0190, f02=»IF ERROR B | P LDK A2,ESC ESCAPE C P CF A5,OUTPUT SEND ESC C , P ABL(NZ) ERROUT JMP IF ERROR C J , P LDK A2,CSI CONTROL SEQUENCE INTRODUCER C n P CF A5,OUTPUT SEND CSI C P ABL(NZ) ERROUT JMP IF ERROR C P LDK A2,/35 C P CF A5,OUTPUT SEND /
0x22f3f8…22f58c Dummy {f00=0x00af, f01=0x018e, f02=»IF ERROR C | P CF A5,ENDBLK END OF BLOCK D P ABL(NZ) ERROUT JMP IF ERROR D 2 " P LDR A1,A6 SAVE DWT ADDRESS =1 D V P LDKL A4,DWTDEV+DWTTP =1 D | P ADR A4,A6 =1 D P CF A15,SETIMP SET TIMER =1 D . P DATA ERGP00,TIME RETURN ADDR., TIMEOUT =1 D (
0x22f58c…22f720 Dummy {f00=0x00af, f01=0x0190, f02=» D h P ANK A2,/FF GET CHARACTER E $ P CCK A2,/5C5C STRING TERMINATOR E * P RF(E) GTSEND YES E R $ P LCR A3,A4 GET MASK RETURN CODE E l P ANR A2,A3 E * P LDKL A3,/3AC0 SHIFT LEFT CIRCULAR A2 E P LC A3,1,A4 A3 TIMES E $ P EXR A3 EXECUT SHIFT INS
0x22f720…22f8b4 (1, 508) Dummy {f00=0x00af, f01=0x018e, f02=» CHARACTER E v PGTSEND EQU * F * P LD A1,DWTDEV+DWTRC,A6 GET RETURN CODE F & P LD A2,DWTDEV+DWTTP,A6 =1 F T , P RF(Z) GTST20 CHECK IF ALLREADY ZERO =1 F x ( P CM* DWTDEV+DWTTP,A6 RESET TIMER =1 F 4 PGTST20 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1 F
0x22f8b4…22fa48 Dummy {f00=0x00af, f01=0x0190, f02=» P* A1= WORK REGISTER G P* A4= BINARY INPUT G " P* A2,A4= ASCII OUTPUT G > P* G ^ P* G h PKONVER EQU * G r P* BINARY TO DEC. G P LDK A2,0 CLEAR A2 G P CWK A4,100 VALUE > 100 ? G P RF(L) KONV05 NO G P SUKL A4,100 G & P L
0x22fa48…22fbdc Dummy {f00=0x00af, f01=0x0190, f02=»/1 NUMBER OF TENS IN RIGHT B. OF A2=Y G P RB KONV05 NEXT H . " PKONV04 ORKL A2,/3030 XY IN A2 H F P ORK A4,/30 Z IN A4 H l P SRC A2,8 YX IN A2 H P LDR A1,A2 H P ANKL A1,/FF00 KEEP Y IN A1 H . P ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII H
0x22fbdc…22fd70 Dummy {f00=0x00af, f01=0x0190, f02=»A4,DWTDEV,A6 DEVICE STATUS H P ANKL A4,/20 RECOVERY? I " P RF(E) RESRTN NO. I @ . P XRS A4,DWTDEV,A6 YES. RESET RECOVERY BIT I Z PRESRTN RTN A5 RETURN I P* I P* I P* I P* I : P* ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK AND TIMER I
0x22fd70…22ff04 Dummy {f00=0x00af, f01=0x0190, f02=»(NZ) RCTP RECOVERY I PERGP10 LDK A1,1 IND. NOT OP. J P ABL LENDIS J > P* J R PERGP00 EQU * =1 J $ P LDR A6,A1 RESTORE DWTADDRESS =1 J t . P CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1 J P RB ERGP10 J P EJECT J P* J P* J P* S E
0x22ff04…230098 Dummy {f00=0x00af, f01=0x0190, f02=»A2 = CONTROL SEQUENCE ADRESS J 4 P* A3 = DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC K $ P* K P* K f P* AT EXIT : K p P* A1,A2,A3 IS DESTROYED K P* K P* K P* K $ PSEND EQU * SEND CONTROL SEQUENCE K 2 P ST A3,DWTDEV+DWTDISP,A6 SAVE
0x230098…23022c Dummy {f00=0x00af, f01=0x0190, f02=»SEQUENCE ADRESS K l P LCR A2,A3 GET CHARACTER L P ANK A2,/FF MAKE CHARACTER L 8 & P SLL A2,8 END OF CONTROL SEQUENCE L Z P RF(N) SENDEND YES,RETURN L & P CWK A2,/3000 LINE NO,CHAR.SET,ETC L P RF(E) SEND30 YES L ( P SRL A2,8 PREPARE TO SEND CHAR
0x23022c…2303c0 Dummy {f00=0x00af, f01=0x018e, f02=»ROLSEQUENCE ADRESS L r P RB SEND10 GET NEXT M PSEND30 EQU * M 6 2 P LD A3,DWTDEV+DWTDISP,A6 GET DWT-DISPLACEMENT M J P ADR A3,A6 GET PROPER VALUE M P LCR A2,A3 GET CHARACTER M P CF A5,OUTPUT SEND CHARACTER M P ABL(NZ) ERROUT JMP IF ERROR M
0x2303c0…230554 (1, 509) Dummy {f00=0x00af, f01=0x0190, f02=» P* N P* N P* BINARY N P* N ( 8 P* THIS ROUTINE CONVERTS ASCII CODE TO A BINARY VALUE N 2 P* N n P* REGISTERS: N x P* A1= ASCII INPUT N P* A2= WORK REGISTER N P* A3= BINARY OUTPUT N P* N P* N P* N PBINARY SUR A
0x230554…2306e8 Dummy {f00=0x00af, f01=0x018e, f02=»2,3 N P ADR A3,A2 O P ANK A1,/F O P ADR A3,A1 MAX. LINE BINARY O 0 P RTN A5 O T P EJECT O d " PLINNUM EQU *-2 NUMBER OF LINES O r " P DATA /3132,/3135,/3138,/3234 O " P DATA /3235,/3330,/3333,/3335 O " P DATA /3336,/3438,/3530,/3531 O "
0x2306e8…23087c Dummy {f00=0x00af, f01=0x415a, f02=» " P DATA /3031,/3032,/3033,/3034 P " P DATA /3035,/3036,/3037,/3038 P * " P DATA /3039,/3130,/3131,/3131 P P P DATA /3133,/3134,/3135 P v 8 PTAB EQU * MASK TABLE FOR STATUS REPORT FROM PRINTER P P DATA /C0,/C0,/C0,/2CC * P P DATA /2CF,/4CB,/C0,
0x23087c…230a10 Dummy {f00=0x00af, f01=0x4008, f02=»@ Q @
0x230a10…230ba4 Dummy {f00=0x00af, f01=0x2008, f02=» R * 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
0x230ba4…230d38 Dummy {f00=0x00af, f01=0x0190, f02=»,IN:WE1-/80 1ST WER INSTRUCTION P* ( P EJECT DRFD02 2 P* H P* R P LDR A3,A7 ORDER P RB(Z) TESTST TEST STATUS t P IFT TOSS=1 P IFT IBM=0 P SUK A3,OR:BAR-OR:TES P RF(Z) READ BASIC READ P SUK A3,OR:BAW-O
0x230d38…230ecc Dummy {f00=0x00af, f01=0x0190, f02=» P RF(Z) WRITE PHYSICAL WRITE P SUK A3,OR:FOV-OR:PHW ( P ABL(Z) FORMAT FORMAT VOLUME F P SUK A3,OR:DDW-OR:FOV j $ P RF(Z) DDWRIT WRITE DELETED DATA P SUK A3,OR:LCK-OR:DDW P ABL(Z) LOCKDO LOCK P SUK A3,OR:LOD-OR:LCK P
0x230ecc…231060 Dummy {f00=0x00af, f01=0x0190, f02=»:BAR-OR:TES P RF(Z) READ BASIC READ P SUK A3,OR:SER-OR:BAR 2 " P ABL(Z) SQREAD SEQUENTIAL READ P P SUK A3,OR:BAW-OR:SER v P RF(Z) WRITE BASIC WRITE P SUK A3,OR:SEW-OR:BAW $ P ABL(Z) SQWRIT SEQUENTIAL WRITE P SUK A3,OR:PHR
0x231060…2311f4 (1, 510) Opaque[0x194]
0x2311f4…231388 # DirEnt {nam=»DRGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15f8, f03=0x0000}
0x2311f4…231388 IdxSect {
0x2311f4…231388 f00 = 0x00af // 0x2311f4 @0x0
0x2311f4…231388 f01 = 0x001c // 0x2311f6 @0x2
0x2311f4…231388 gno = [ // 0x2311f8 @0x4
0x2311f4…231388 [0x00]: C0x00af.0x3.0
0x2311f4…231388 [0x01]: C0x00b0.0x0.0
0x2311f4…231388 [0x02]: C0x00b0.0x1.0
0x2311f4…231388 [0x03]: C0x00b0.0x2.0
0x2311f4…231388 [0x04]: C0x00b0.0x3.0
0x2311f4…231388 [0x05]: C0x00b1.0x0.0
0x2311f4…231388 [0x06]: C0x00b1.0x1.0
0x2311f4…231388 [0x07]: C0x00b1.0x2.0
0x2311f4…231388 [0x08]: C0x00b1.0x3.0
0x2311f4…231388 [0x09]: C0x00b2.0x0.0
0x2311f4…231388 [0x0a]: C0x00b2.0x1.0
0x2311f4…231388 [0x0b]: C0x00b2.0x2.0
0x2311f4…231388 [0x0c]: C0x00b2.0x3.0
0x2311f4…231388 [0x0d]: C0x00b3.0x0.0
0x2311f4…231388 ]
0x2311f4…231388 }
0x231388…23151c Dummy {f00=0x00af, f01=0x0190, f02=» 2 P IDENT DRGP03 REL 11.0 81-06-01 870105041100 P : P =1,STATUS DEL. B P REL 11.0 81-01-26 P* x < P******************************************************* < P* * < P* PH
0x23151c…2316b0 Dummy {f00=0x00af, f01=0x0190, f02=»RIVER GENERAL PRINTER * < P* * * < P* * j < P* * < P******************************
0x2316b0…231844 Dummy {f00=0x00af, f01=0x0190, f02=»THE DRIVER CONSISTS OF THE FOLLOWING PARTS : P* 4 $ P* A C T P : ACTIVATION PART > P* f $ P* R C T P : RECOVERY ROUTINE p P* P* P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* $ P* ORDER 00
0x231844…2319d8 Dummy {f00=0x00af, f01=0x0190, f02=»ON DOCUMENT v . P* ORDER 24 : SET PRINTER PARAMETERS , P* ORDER 27 : SET FORM PARAMETERS F ( P* ORDER 38 : RELEASE DOCUMENT v P* , P* THE FOLLOWING RETURN CODES ARE USED: P* & P* BIT 0 : REQUEST ERROR
0x2319d8…231b6c Dummy {f00=0x00af, f01=0x0190, f02=»RROR p $ P* BIT 15 : NOT OPERABLE P* 4 P* > P* NORMAL REGISTER USAGE: H P* j " P* REGISTER A1: WORK REGISTER t " P* A2: INPUT/OUTPUT $ P* A3: BUFFER POINTER " P* A4: WORK REGISTER
0x231b6c…231d00 Dummy {f00=0x00af, f01=0x0190, f02=»SS v P* P* P EJECT P* , P* 6 0 P******************************************* @ P* t P* ENTRIES ~ P* 0 P******************************************* P* P* P ENTRY GPAD3 ADDRESS BLOCK P*
0x231d00…231e94 (1, 511) Dummy {f00=0x00b0, f01=0x0190, f02=»************************* ~ P* " P* , , P EXTRN LDISP DISPATCHING FROM INTERRUPT 6 $ P EXTRN LENDER DISPATCH I/O ERROR f & P EXTRN LENDIS END I/O AND DISPATCH & P EXTRN OUTPUT OUTPUT ONE CHARACTER 0 P EXTRN GETCHR GET CHARACTER FROM ECB B
0x231e94…232028 Dummy {f00=0x00b0, f01=0x0190, f02=»RN DWTOR DWT ORDER DISPLACEMENT P EXTRN DWTSB2 STACK BASE ( 2 P EXTRN INPUT STORE REG = GET STATUS INPUT CHAR H $ P EXTRN STABLK DEF START OF BLOCK ~ " P EXTRN ENDBLK DEF END OF BLOCK P EXTRN DWTDEV DEVICE STATUS P EJECT P*
0x232028…2321bc Dummy {f00=0x00b0, f01=0x0190, f02=» f P* P* " PSPEC EQU /2E SPECIAL CHARACTER PLF EQU /0A LINE FEED B " PRLF EQU /40 REVERSE LINE FEED ^ PFF EQU /0C FORM FEED PCR EQU /0D CARRIAGE RETURN PSO EQU /0E SHIFT OUT PSI EQU /0F SHIFT IN PESC EQU /1B ES
0x2321bc…232350 Dummy {f00=0x00b0, f01=0x0190, f02=»EQU /64 VERTICAL POSITION ABSOLUTE ( PSNV EQU /77 SELECT NATIONAL VERSION * $ PSLPL EQU /76 SELECT PAGE LENGTH V & PRIS EQU /63 RESET TO INITIAL STATE ~ $ PDSR EQU /6E DEVICE STATUS REPORT PDS EQU /35 DEVICE STATUS & PDCS EQU /50 DEVICE CONTR
0x232350…2324e4 Dummy {f00=0x00b0, f01=0x0190, f02=»8 CHARACTER PITCH LOAD 0 PHPA EQU /60 HORIZONTAL POSITIONING ABSOLUTE * PHTS EQU /48 HORIZONTAL TABULATION SET R , PTBC EQU /67 HORIZONTAL TABULATION CLEAR PLSL EQU /7B LINE SPACE LOAD PSM EQU /68 SET MODE PRM EQU /6C RESET MODE
0x2324e4…232678 Dummy {f00=0x00b0, f01=0x0190, f02=» 25 SEC. TIMER P EJECT P* ( P* 2 > P********************************************************* < P* ~ P* CONTROL SEQUENCES P* > P********************************************************* P* P* PBYTE
0x232678…23280c Dummy {f00=0x00b0, f01=0x0190, f02=»E NEG,NEG PCSSNV EQU * P SELECT NATIONAL VERSION & P BYTE ESC,CSI H P BYTE ZERO,ZERO ^ P BYTE SNV,NEG v " PCSSLPL EQU * SELECT PAGELENGTH P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE SLPL,NEG P BYTE NEG,NEG
0x23280c…2329a0 Dummy {f00=0x00b0, f01=0x018e, f02=»YTE ESC,CSI P BYTE DS,DSR P BYTE NEG,NEG ( $ PCSCPL EQU * CHARACTER PITCH LOAD > P BYTE ESC,CSI f P BYTE ZERO,SEP | P BYTE ZERO,CPL P BYTE NEG,NEG 0 PCSHPA EQU * HORIZONTAL POSITIONING ABSOLUTE P BYTE ESC,CSI P
0x2329a0…232b34 (1, 512) Dummy {f00=0x00b0, f01=0x0190, f02=» P BYTE ZERO,TBC P BYTE NEG,NEG * PCSHTS EQU * HORIZONTAL TABULATION SET 0 P BYTE ESC,HTS ^ P BYTE NEG,NEG t . PCSVPA EQU * VERTICAL POSITIONING ABSOLUTE P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE VPA,NEG PCSLSL EQ
0x232b34…232cc8 Dummy {f00=0x00b0, f01=0x0190, f02=»I P BYTE FR,ZERO P BYTE SM,NEG PCSRM EQU * RESET MODE 4 P BYTE ESC,CSI R P BYTE FR,ZERO h P BYTE RM,NEG ~ PCSSUL EQU * START UNDERLINE P BYTE ESC,CSI P BYTE UL,SGR P BYTE NEG,NEG PCSEUL EQU * STOP U
0x232cc8…232e5c Dummy {f00=0x00b0, f01=0x0190, f02=»*********************************** | P* , P* CONDITIONAL ASSEMBLY 6 P* T < P******************************************************* ^ P* P* P* 4 P* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN 8 P* BY SETTING X:A TO
0x232e5c…232ff0 Dummy {f00=0x00b0, f01=0x0190, f02=»,NETHERLANDS,BELGIUM,NEW ZEELAND,SOUTH AFRICA | 0 P =3 FRANCE,SWITZERLAND,BELGIUM,LUXEMBOURG 6 , P =4 SPAIN,MEXICO,ARGENTINA,VENEZUELA j P =5 ITALY,SWITZERLAND P =6 SWEDEN,FINLAND P =7 DENMARK,NORWAY P =8 PORTUGAL,BR
0x232ff0…233184 Dummy {f00=0x00b0, f01=0x018e, f02=» =14 JAPAN (KATAKANA VERSION) $ P =15 ISRAEL (HEBREW VERSION) ( P* P P* Z ( PX:A EQU 02 GREAT BRITAIN AS STANDARD d PSTDNCV EQU X:A P EJECT P* P* & P* FRICTION FEED CAN BE SELECTED BY P* SETTING X:B=1
0x233184…233318 Dummy {f00=0x00b0, f01=0x0190, f02=» P* P* PX:C EQU 1 $ PFFDEV EQU X:C FRONT FEED DEVICE * P* R P* P* f ( P* THE STANDARD PAGELENGTH IS DEFINED p & P* BY SETTING X:D = NUMBER OF LINES P* P* PX:D EQU 48 PPAGLEN EQU X:D P*
0x233318…2334ac Dummy {f00=0x00b0, f01=0x0190, f02=» PDOCLEN EQU X:E P* " P* , P* 6 P* MMU BUFFER SIZE @ P* Z P* d PX:F EQU 132 n PDVBLEN EQU X:F P* P EJECT P* P* 0 P* THE STANDARD MATRIX IS SELECTED BY SETTING P* X:G=MATRIX NUM
0x2334ac…233640 Dummy {f00=0x00b0, f01=0x0190, f02=»H) IS SELECTED BY j @ P* SETTING X:H=(1-4). 1=10 CH/INCH,2=12 CH/INCH,3=15 CH/INCH P* 4= PROPORTIONAL PITCH ^ P* ~ P* PX:H EQU 1 PDENSIT EQU X:H P* P* < P* HIGH SPEED PRINTING CAN BE PERFORMED BY SETTING X:I=1
0x233640…2337d4 (1, 513) Dummy {f00=0x00b0, f01=0x018e, f02=»INK- ^ ( P* ERROR OR SOFTW. TIME OUT IF X:J=1 P* 8 P* B PX:J EQU 0 L PREQEND EQU X:J ^ P* t P* ~ 8 P* ORDER /27, SET FORM PARAMETERS CAN BE EXCLUDED BY P* SETTING X:K=0 P* P* PX:K EQU 1 PFORMPA
0x2337d4…233968 Dummy {f00=0x00b0, f01=0x0190, f02=» P* PMMUPAG EQU 0 P* & P* 0 P* : 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION D . P* SET IS OBTAINED BY SETTING CPU852 EQU 0 ~ P* P* PCPU852 EQU 1 P EJECT P* P* 0 P**************
0x233968…233afc Dummy {f00=0x00b0, f01=0x0190, f02=» P* PDWTTP EQU /2 TIMER POINTER ( PDWTDCS EQU /4 DOCUMENT CHARACTER SET 0 ( PDWTPCS EQU /6 PRINTER CHARACTER SET & PDWTPL EQU /8 PRINTER PAPER LENGTH & PDWTDL EQU /A DOCUMENT PAPER LENGTH * PDWTALN EQU /C ACTUAL LINE ON DOCUMENT ,
0x233afc…233c90 Dummy {f00=0x00b0, f01=0x0190, f02=» j > PDWTDISP EQU /14 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. & PDWTACP EQU /16 ACTUAL COLUMN PAPER J $ PDWTCO1 EQU /1A COLUMN COUNTER 1 t & PDWTSYST EQU /1C SYSTEM START IND. , PDWTLFD EQU /1E LINE/FORM FEED INDICATOR 4 PDWTCMF EQU /20 CHA
0x233c90…233e24 Dummy {f00=0x00b0, f01=0x0190, f02=»QU /26 HIGH SPEED PDWTHOP EQU /28 HOPPER 1 OR 2 $ PDWTTAB EQU /2A LAST TAB POS SET > . PDWTSER EQU /2E CONTR. SEQ. SEPARATOR IND. f P EJECT P* P* 0 P******************************************* P* P* ECB - DISPLACE
0x233e24…233fb8 Dummy {f00=0x00b0, f01=0x018e, f02=»U 4 REQUESTED LENGTH IN ECB ( PECBEL EQU 6 EFFECTIVE LENGTH IN ECB $ " PECBRC EQU 8 RETURN CODE IN ECB P $ PECBCW EQU 10 CONTROL WORD IN ECB v P EJECT P* 0 P******************************************* P* P* TABLES P*
0x233fb8…23414c Dummy {f00=0x00b0, f01=0x0190, f02=» z PGPAD3 EQU * ADDRESS BLOCK P DATA ACTP ACTIVATION DRIVER * " P DATA 0 ABORT ROUTINE ADDRESS N P DATA 0 INTERRUPT HANDLER t P DATA RCTP RECOVERY ROUTINE PTPTAB EQU * P IFT SINHAN+FFDEV=1 P DATA /0107,/0C25,/2839
0x23414c…2342e0 Dummy {f00=0x00b0, f01=0x0190, f02=»************************** n P* " P* A C T P , P* @ 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER J > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR P* @ P************************************************************
0x2342e0…234474 (1, 514) Dummy {f00=0x00b0, f01=0x0190, f02=» R P* " P LC A2,DWTOR,A6 GET DWT INDEX P ANK A2,1 MASK 8 , P SC A2,DWTDEV,A6 STORE NEW DEVICE INDEX N P CWK A7,/24 ~ P RF(E) ACT010 , P LC A3,DWTDEV+1,A6 GET OLD DEVICE INDEX P ANK A3,1 P CWR A2,A3 P RF(E) ACT01
0x234474…234608 Dummy {f00=0x00b0, f01=0x0190, f02=» n P LC A2,DWTDEV,A6 P ANK A2,1 PACT010 LC A3,DWTDEV+1,A6 2 P ANK A3,/FE R P ORR A3,A2 f " P SC A3,DWTDEV+1,A6 STORE INDEX x P CWK A7,/05 ORDER /05 ? P RF(E) ACT015 YES & P ADR A7,A2 ADD DWT INDEX TO ORDER 0 PACT015
0x234608…23479c Dummy {f00=0x00b0, f01=0x0190, f02=»040 VALID ORDER P SUK A3,1 P RB(NN) ACT030 TRY NEXT * P* J P ABL LENDER ILLEGAL ORDER T P* v P* PACT040 EQU * P ADR A3,A3 GET INDEX P ABI TPFUC,A3 EXECUTE ORDER PTPFUC EQU * P IFT SINHAN+FFDEV=1
0x23479c…234930 Dummy {f00=0x00b0, f01=0x018e, f02=» " P****************************** ! P* ! . P* ORDER 00 : TEST STATUS ! 8 P* ! Z " P****************************** ! d PTSTSTA EQU * TEST STATUS ! * P CF A5,GTSTAT GET STATUS FROM PRINTER ! $ PTSTEND LDR A2,A1 GET RETURN CODE ! " P ANKL A2
0x234930…234ac4 Dummy {f00=0x00b0, f01=0x0190, f02=» ! P************************* " P* " * P* ORDER 06: WRITE " 4 P* " P P************************* " Z PWRTCON EQU * " | P* * =1 " P* * =1 " P* * =1 " $ P LD A2,ECBRL,A8 GET REQ. LENGTH " P ADK A2,/8 BLOCK LENGTH " P
0x234ac4…234c58 Dummy {f00=0x00b0, f01=0x0190, f02=»3,1 SET UP ECB BUFFER POINTER " ( P CF A15,GETCHR GET CONTROL CHARACTER # & & P LD A1,DWTDEV,A6 GET DEVICE STATUS # R ( P ANK A1,/20 HAS POWER OFF OCCURED ? # | P RF(NZ) REP2 YES # ( P SUK A2,/2B PRINT ON SAME LINE =/2B? # P RF(Z) WRC20 YES # 2 PWRC0
0x234c58…234dec Dummy {f00=0x00b0, f01=0x0190, f02=»PRINT AFTER FORM FEED =/31 ? # P RF(NZ) ONELF NO,ONE LF $ $ P* $ D P LDK A2,FF $ N P RF FORMF FORM FEED $ ` P* $ | " P* EXECUTE CONTROL CHARACTER $ P* $ PWRC20 EQU * $ P LDK A2,CR CARRIDGE RETURN $ P CF A5,OUTPUT $ P RF(NZ
0x234dec…234f80 Dummy {f00=0x00b0, f01=0x018e, f02=»C05 CF A5,KONVER CONVERT BINARY TO ASCII $ : P ST A2,DWTDEV+DWTACP,A6 STORE THE VALUE IN ACTUAL COL. % 0 : P ST A4,DWTDEV+DWTACP+2,A6 STORE THE VALUE IN ACT. COL. % n P* % 2 PWRC07 LD A4,DWTDEV+DWTCO1,A6 GET ACTUAL COLUMN % , P RF(Z) WRT15 JMP IF NO PRECE
0x234f80…235114 (1, 515) Dummy {f00=0x00b1, f01=0x0190, f02=» > P LDKL A3,DWTDEV+DWTACP+1 ACTUAL COLUMN PAPER DISPLACEMENT & P CF A5,SEND SEND REPEAT & F P RF WRT15 & f P* & x PTWOLF LDK A2,LF LINE FEED & P CF A5,OUTPUT & P RF(NZ) ERGP01 JMP IF ERROR & PONELF LDK A2,LF LINE FEED & PFORMF CF
0x235114…2352a8 Dummy {f00=0x00b1, f01=0x0190, f02=»R & v , P IM DWTDEV+DWTLFD,A6 SET LF/FF INDICATOR ' P RF WRT15 ' : P* ' L P* REPEAT WRITE REQUEST ' V P* ' x PREP2 EQU * ' " P LDR A3,A2 SAVE CONTROL CHAR. ' $ P LDK A2,CR SEND CARRIDGE RETURN ' P CF A5,OUTPUT ' P RF(NZ) ERGP01 J
0x2352a8…23543c Dummy {f00=0x00b1, f01=0x0190, f02=»,DWTDEV+DWTLFD,A6 GET INDICATOR ' $ P RF(NZ) WRT15 JMP IF LF/FF DONE ( ( P RB WRC04 ( P P EJECT ( b P* ( p 2 P* ORDER 06 : THIS PART SENDS THE CHARACTERS ( z . P* TO DOCUMENT OR CONTINUOUS STATIONARY. ( P* ( P* ( * PWRT15 LDK A3,2 SET
0x23543c…2355d0 Dummy {f00=0x00b1, f01=0x018e, f02=») ERGP04 JMP IF ERROR ( P LDK A2,/90 NEW BLOCK LENGTH ) P CF A5,STABLK START OF BLOCK ) B P RF(NZ) ERGP04 JMP IF ERROR ) f & PWRT030 CF A15,GETCHR GET CHARACTER ) P LDR A4,A1 BUFFER FINISHED ? ) P RF(P) WRT050 NO ) & P LD A4,DWTDEV,A6 GET DEV
0x2355d0…235764 Dummy {f00=0x00b1, f01=0x0190, f02=» P RF(NZ) ERGP04 JMP IF ERROR * ( P XRS A4,DWTDEV,A6 RESET SHIFT INDIC. * ( $ PWRT040 CF A5,ENDBLK END OF BLOCK * T P RF(NZ) ERGP04 JMP IF ERROR * | P CF A5,GTSTAT GET STATUS * P RF ENDIO END REQUEST * P* * PWRT050 EQU * * P LDR A4,A2 *
0x235764…2358f8 Dummy {f00=0x00b1, f01=0x0190, f02=»F(NL) WRT100 NO * " P* CHECK IF SPECIAL CHARACTER + P SUK A4,/9 TABULATION ? + > P RF(Z) WRT170 YES + ^ P SUK A4,/9 START UNDERLINE ? + x P RF(NZ) WRT060 NO + & P LDR A4,A3 SAVE ECB BUFFER POINTER + ( P LDKL A3,CSSUL SEND START UNDERLINE +
0x2358f8…235a8c Dummy {f00=0x00b1, f01=0x0190, f02=»A3,CSEUL SEND STOP UNDERLINE + PWRT070 CF A5,SEN40 GO & SEND , $ * P LDR A3,A4 RESTORE ECB BUFFER POINTER , H " P RB WRT020 GET NEXT CHARACTER , v 0 PWRT080 SUK A4,/8 /1B, PARTIAL LINE UP DOWN ? , * P RB(NZ) WRT020 NO, GET NEXT CHARACTER , , P CF A15,GE
0x235a8c…235c20 Dummy {f00=0x00b1, f01=0x0190, f02=»OWN ? , v P RF(Z) WRT090 YES - P SUK A2,1 PARTIAL LINE UP ? - ( 0 P RF(NZ) WRT140 NO, INDICATE CODE CHECK ERROR - L 0 PWRT090 LDK A2,ESC SEND PARTIAL LINE UP/DOWN - P CF A5,OUTPUT - P RF(NZ) ERGP04 JMP IF ERROR - P LDR A2,A4 RESTORE CHAR. -
0x235c20…235db4 (1, 516) Dummy {f00=0x00b1, f01=0x0190, f02=»</7E ? - x ( P RF(NP) WRT110 YES, LEGAL CHARACTER . P CWK A2,/AE ROOMLESS POINT ? . : P RF(E) WRT160 YES . ^ P SUK A4,/23 CHAR >=/A1 ? . x 0 P RF(N) WRT150 NO,INDICATE CODE CHECK ERROR ! . P SUK A4,/5D CHAR =</FE ? . ( P RF(NP) WRT120 YES, LEGAL CH
0x235db4…235f48 Dummy {f00=0x00b1, f01=0x0190, f02=»WTDEV,A6 7-BIT CODE /20-/7E . . P ANK A4,/80 SHIFT OUT PERFORMED EARLIER ? / $ $ P RF(Z) WRT170 NO, SEND CHARACTER / V P LDK A4,/80 / ~ , P XRS A4,DWTDEV,A6 RESET SHIFT INDICATOR / P LDR A4,A2 STORE CHAR. / P LDK A2,SI SEND SHIFT IN / P RF WRT1
0x235f48…2360dc Dummy {f00=0x00b1, f01=0x0190, f02=»ES, SEND CHARACTER / P LDK A4,/80 0 ( P ORS A4,DWTDEV,A6 INDICATE SHIFT OUT 0 . P LDR A4,A2 STORE CHAR. 0 Z P LDK A2,SO SEND SHIFT OUT 0 x * PWRT130 CF A5,OUTPUT SEND SHIFT CONTROL 0 P RF(NZ) ERGP04 JMP IF ERROR 0 P LDR A2,A4 RESTORE CHAR. 0
0x2360dc…236270 Dummy {f00=0x00b1, f01=0x0190, f02=» IN R.C. 0 b P ORS A4,ECBRC,A8 1 P RB WRT020 1 ( PWRT160 LDK A2,/2E 1 : PWRT170 LDR A4,A1 1 T & P ANK A2,/7F MASK,JUST 7 BIT CHAR. 1 l P CF A5,OUTPUT SEND CHARACTER 1 & PERGP04 RF(NZ) ERGP06 JMP IF ERROR 1 . P IM DWTDEV+DWTCO1,A6 INC COLUMN COUN
0x236270…236404 Dummy {f00=0x00b1, f01=0x0190, f02=»P YES 1 $ P CF A5,RESREC RESET RECOVERY BIT 2 . P CM DWTDEV+DWTLFD,A6 CLEAR LF/FF INDICATOR 2 6 P ABL LENDIS END REQUEST 2 h P EJECT 2 " P****************************** 2 P* 2 P* ORDER 05 : BASIC WRITE 2 P* 2 " P**********************
0x236404…236598 Dummy {f00=0x00b1, f01=0x0190, f02=» 2 n & P LDR A2,A4 BLOCK LENGTH IN A2=144 3 P CF A5,STABLK START OF BLOCK 3 2 P RF(NZ) ERGP06 JMP IF ERROR 3 V & PBAS15 CF A15,GETCHR GET CHARACTER 3 z P LDR A1,A1 BUFFER FINISHED ? 3 P RF(Z) BAS25 YES 3 P CF A5,OUTPUT 3 P RF(NZ) ERGP06 JMP
0x236598…23672c Dummy {f00=0x00b1, f01=0x0190, f02=»BLOCK 3 v P RF(NZ) ERGP06 JMP IF ERROR 4 P RB BAS10 START NEXT BLOCK 4 2 $ PBAS25 CF A5,ENDBLK END OF BLOCK 4 T & PERGP06 ABL(NZ) ERGP15 JMP IF ERROR 4 | ( P ABL TSTSTA CHECK STATUS & END REQ. 4 P EJECT 4 P IFT SINHAN+FFDEV=1 4 2 P************
0x23672c…2368c0 Dummy {f00=0x00b1, f01=0x018e, f02=» 4 d P* 5 2 P********************************************* 5 " PPOSDOC EQU * POSITION DOCUMENT 5 H $ P CF A5,GTSTAT GET DEVICE STATUS 5 n P LDR A1,A1 ERROR ? 5 $ P RF(NZ) POS040 ERROR INDICATION 5 & P LD A4,ECBCW,A8 GET REQUESTED LINE 5 P ANK A
0x2368c0…236a54 (1, 517) Dummy {f00=0x00b1, f01=0x0190, f02=» 5 h " P CWR A4,A3 REQ. LINE>MAX. LINE 6 P RF(G) POSERR YES 6 . * P CF A5,KONVER CONVERT BINARY TO ASCII 6 H . P ST A4,DWTDEV+DWTRLN,A6 SET REQUESTED LINE 6 v PPOS005 EQU * 6 P LDK A2,/15 BLOCK LENGTH 6 P CF A5,STABLK START OF BLOCK 6 P RF(NZ)
0x236a54…236be8 Dummy {f00=0x00b1, f01=0x0190, f02=» JMP IF ERROR 6 PPOS020 LDKL A2,CSVPA 7 P LDKL A3,DWTDEV+DWTRLN 7 2 P CF A5,SEND 7 P $ PPOS030 CF A5,ENDBLK END OF BLOCK 7 d & PERGP08 ABL(NZ) ERGP15 JMP IF ERROR 7 P CF A5,GTSTAT GET STATUS 7 P RF(NZ) POS040 ERROR ? 7 . P LD A2,DWTDEV+DWTRLN
0x236be8…236d7c Dummy {f00=0x00b1, f01=0x0190, f02=»POS040 EQU * 7 P LDR A2,A1 GET RETURN CODE 8 " P ANKL A2,/100 PRINTER RESET ? 8 6 P ABL(NZ) RCTP YES 8 $ P CF A5,RESREC RESET RECOVERY BIT 8 v P ABL LENDIS END REQUEST 8 PPOSERR ABL LENDER 8 P XIF 8 P EJECT 8 0 P**********************
0x236d7c…236f10 Dummy {f00=0x00b1, f01=0x0190, f02=»** 8 f PPRIPAR EQU * 9 * PPRI07 LDK A3,/6 SET UP BRANCH POINTER 9 $ P LD A1,ECBCW,A8 GET CONTROL WORD 9 N PPRI10 LDR A4,A1 9 v P IFT SINHAN+FFDEV=1 9 $ P LC A2,DWTOR+1,A6 GET DWT INDEX 9 P ANK A2,1 9 P RF(Z) PRI14 9 0 P ANK A4,/F CHECK
0x236f10…2370a4 Dummy {f00=0x00b1, f01=0x018e, f02=»AM. VALUE WANTED 9 p , P ABI(NZ) PRITAB,A3 FRICTION/TRACTOR FEED : & PPRI15 SRL A1,4 GET NEXT PARAMETER : H 4 PPRI16 CWK A3,0 FRI/TRA, ANY MORE PARAM. TO CHECK : r P RF(E) PRI17 NO, GO AND SEND : & PPRI18 SUK A3,2 TEST NEXT PARAMETER : P RB PRI10 : &
0x2370a4…237238 Dummy {f00=0x00b1, f01=0x0190, f02=» P CF A5,GTSTAT GET STATUS ; P LDR A2,A1 GET RETURN CODE ; $ " P ANKL A2,/100 PRINTER RESET ? ; F P ABL(NZ) RCTP YES ; l $ P CF A5,RESREC RESET RECOVERY BIT ; P ABL LENDIS END REQUEST ; & P* STORE PARAMETERS, TRACTOR FEED ; 2 PPRI20 EQU * NCV=
0x237238…2373cc Dummy {f00=0x00b1, f01=0x0190, f02=»A4,DWTDEV+DWTPCS,A6 STORE IN DWT ; P RB PRI15 < ( , PPRI30 EQU * SCM= SELECT CHARACTER MATRIX < : P CWK A4,/9 < j P RF(G) PRI60 INDEX TOO HIGH < | P ORK A4,/30 ASCII < ( P SC A4,DWTDEV+DWTCMF,A6 STORE IN DWT < P RB PRI15 < PPRI40 EQU * PL=
0x2373cc…237560 Dummy {f00=0x00b1, f01=0x0190, f02=»DWT < p P RB PRI15 = $ PPRI50 EQU * CD= CHARACTER PITCH = P CWK A4,/4 = F P RF(G) PRI60 INDEX TOO HIGH = X P ORK A4,/30 ASCII = | * P SC A4,DWTDEV+DWTCMF+1,A6 STORE IN DWT = P RB PRI17 = 2 P* STORE PARAMETERS, FRONT FEED/FRICTION FEED =
0x237560…2376f4 (1, 518) Dummy {f00=0x00b1, f01=0x0190, f02=»ET NAT. CHAR. VAR. ACCORDING TO INDEX = ~ ( P ST A4,DWTDEV+DWTDCS,A6 STORE IN DWT > . P RB PRI15 > Z , PFRO30 EQU * SCM=SELECT CHARACTER MATRIX > l P CWK A4,/9 > P RF(G) PRI60 INDEX TOO HIGH > P ORK A4,/30 ASCII > ( P SC A4,DWTDEV+DWTCMT,A6 STOR
0x2376f4…237888 Dummy {f00=0x00b1, f01=0x0190, f02=»G TO INDEX > n ( P ST A4,DWTDEV+DWTDL,A6 STORE IN DWT ? P RB PRI15 ? > $ PFRO50 EQU * CD= CHARACTER PITCH ? P P CWK A4,/4 ? x P RF(G) PRI60 INDEX TOO HIGH ? P ORK A4,/30 ASCII ? * P SC A4,DWTDEV+DWTCMT+1,A6 STORE IN DWT ? P RB PRI17 ? P
0x237888…237a1c Dummy {f00=0x00b1, f01=0x0190, f02=»7 : SET FORM PARAMETERS ? P* @ 0 P******************************************** @ * PFORPAR EQU * @ ^ P IFT FORMPA=1 @ r , P LD A2,ECBCW,A8 GET CONTROL WORD, INDEX @ P ANK A2,/F MASK @ P SUK A2,1 @ 8 P RF(Z) FOR020 HOPPER,HIGH SPEED OR LIN
0x237a1c…237bb0 Dummy {f00=0x00b1, f01=0x0190, f02=» XIF @ 0 PFOR010 ABL LENDER REQUEST ERROR,END OF REQ. A P IFT FORMPA=1 A @ 2 P* HOPPER, HIGH SPEED & LINE SPACE PARAMETERS A V P* A " PFOR020 LDK A2,/E BLOCK LENGTH A P CF A5,STABLK START OF BLOCK A P ABL(NZ) ERGP15 JMP IF ERROR A $ P LD
0x237bb0…237d44 Dummy {f00=0x00b1, f01=0x0190, f02=» FOR030 NO CHANGE WANTED A P CWK A1,/8 B . P RB(G) FOR010 REQUEST ERROR, INDEX TOO BIG B 2 P ADR A1,A1 ADJUST TABLE B d 6 P LD A1,LINTAB,A1 GET LINE SPACE ACCORDING TO TABLE B ( P ST A1,DWTDEV+DWTLS,A6 STORE IN DWT B P LDKL A2,CSLSL B P LDKL A3
0x237d44…237ed8 Dummy {f00=0x00b1, f01=0x0190, f02=»K HIGH SPEED PARAMETER B " P RF(Z) FOR060 NO CHANGE WANTED C P SUK A1,1 C D P RF(NZ) FOR040 C V " P LDK A2,SM HIGH SPEED SELECTED C l * P SC A2,DWTDEV+DWTHSP+1,A6 STORE IN DWT C P LDKL A2,CSSM C * P RF FOR050 SEND SELECT HIGH SPEED MODE C PFOR0
0x237ed8…23806c Dummy {f00=0x00b1, f01=0x018e, f02=»ND SELECT NORMAL SPEED C PFOR050 LDKL A3,DWTDEV+DWTHSP D P CF A5,SEND D B PFOR060 EQU * D V P IFT SINHAN=1 D j P LDR A1,A4 GET CONTROL WORD D P SRL A1,/C D $ P ANK A1,/F MASK HOPPER PARAMETER D " P RF(Z) FOR120 NO CHANGE WANTED D P SUK
0x23806c…238200 Dummy {f00=0x00b1, f01=0x0190, f02=» " P LDKL A2,/3268 SELECT HOPPER 2 E . PFOR075 ST A2,DWTDEV+DWTHOP,A6 STORE IN DWT E * P LDKL A2,CSSM E P RF FOR110 E r PFOR080 SUK A1,1 E P RF(NZ) FOR090 E $ P LDKL A2,/316C DESELECT HOPPER 1 E P RF FOR095 E PFOR090 SUK A1,1 E P RB(
0x238200…238394 (1, 519) Dummy {f00=0x00b2, f01=0x0190, f02=» E PFOR110 LDKL A3,DWTDEV+DWTHOP F P CF A5,SEND SEND HOPPER MODE F , P XIF F P P IFT FORMPA=1 F P RF FOR120 END OF REQ. F r P* F P* TABULATION PART F P* F PTAB010 EQU * F $ P LDK A3,0 SET UP BUFFER POINTER F & PTAB020 CF A1
0x238394…238528 Dummy {f00=0x00b2, f01=0x0190, f02=» LDK A2,/80 BLOCK LENGTH F P CF A5,STABLK START OF BLOCK G P RF(NZ) ERGP10 JMP IF ERROR G D " P ANK A4,1 SET OR CLEAR TABS. ? G h ( P RF(Z) TAB050 CLEAR ALL TABULATIONS G 0 PTAB030 CF A15,GETCHR GET TABULATION POSITION G P LDR A1,A1 G P RF(Z) F
0x238528…2386bc Dummy {f00=0x00b2, f01=0x018e, f02=»A4,DWTDEV+DWTTAB+2,A6 STORE TAB POS IN DWT G P SRL A4,8 SHIFT RIGHT H 2 2 P SC A4,DWTDEV+DWTTAB+1,A6 STORE TAB POS IN DWT H P " P LDR A4,A3 KEEP COUNTER IN A4 H P LDKL A2,CSHPA H P LDKL A3,DWTDEV+DWTTAB H ( P CF A5,SEND SEND HORIZONTAL POS ABS. H
0x2386bc…238850 Dummy {f00=0x00b2, f01=0x018e, f02=» PTAB050 EQU * I P LDK A3,/33 CLEAR ALL TABS I ( P SC A3,DWTDEV+DWTTAB,A6 STORE IN DWT I : P LDKL A2,CSTBC I f P LDKL A3,DWTDEV+DWTTAB I | * P CF A5,SEND CLEAR ALL TABULATION POS. I $ PFOR120 CF A5,ENDBLK END OF BLOCK I & PERGP10 ABL(NZ) ERGP15 JM
0x238850…2389e4 Dummy {f00=0x00b2, f01=0x0190, f02=» P* J " P* ORDER 38 : RELEASE DOCUMENT J P* J 4 . P***************************************** J > P IFT SINHAN+FFDEV=1 J p PRELDOC EQU * J P CF A5,GTSTAT GET STATUS J P LDR A2,A1 J P RF(NZ) REL20 ERROR ? J P LDK A2,/F BLOCK LENGTH
0x2389e4…238b78 Dummy {f00=0x00b2, f01=0x0190, f02=»ND OF PAGE J n P CF A5,SEND K ( P LDK A3,/F SET UP LINE FEED COUNTER K & PREL10 LDK A2,LF LINE FEED K R P CF A5,OUTPUT K t P RF(NZ) ERGP14 JMP IF ERROR K * P SUK A3,1 DECREMENT LINE FEED COUNTER K P RB(NZ) REL10 ANY MORE LF ? K P CF A5,E
0x238b78…238d0c Dummy {f00=0x00b2, f01=0x0190, f02=»CTUAL LINE K t . P CM DWTDEV+DWTRLN,A6 RESET REQUESTED LINE L . P CM DWTDEV+DWTCO1,A6 CLEAR COLUMN COUNTER L D P LDR A2,A1 GET RETURN CODE L v & PREL20 ANKL A2,/100 PRINTER RESET ? L P ABL(NZ) RCTP YES L $ P CF A5,RESREC RESET RECOVERY BIT L P ABL
0x238d0c…238ea0 Dummy {f00=0x00b2, f01=0x0190, f02=» C T P L P* M : P* RECOVERY ROUTINE REPEATS RUNNING REQUEST AT POWER ON M P* M V @ P************************************************************ M ` PRCTP EQU * M * PRCTP07 LDKL A1,/7FFF SET DEVICE BUSY M P ANS A1,DWTST,A6 BUSY M P LDKL
0x238ea0…239034 (1, 520) Dummy {f00=0x00b2, f01=0x0190, f02=» M r P * N 6 P CM DWTDEV+DWTSYST,A6 SET SYSTEM START INDICATOR N 0 P LDKL A4,STDNCV GET STANDARD NAT. CHAR. SET N P * P CF A5,KONVER CONVERT BIANARY TO ASCII N 2 P ST A4,DWTDEV+DWTDCS,A6 SET CHAR. SET DOCUMENT N 4 P ST A4,DWTDEV+DWTPCS,A6 SET CHAR
0x239034…2391c8 Dummy {f00=0x00b2, f01=0x0190, f02=» SET PAGE LENGTH CONT.STAT. N z 6 P LDKL A4,DOCLEN GET STANDARD PAGE LENGTH DOCUMENT O $ * P CF A5,KONVER CONVERT BINARY TO ASCII O ^ 4 P ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH DOCUMENT O 2 P LDKL A4,MATRIX GET STANDARD CHAR MATRIX FONT O P ORK A4,ZERO M
0x2391c8…23935c Dummy {f00=0x00b2, f01=0x0190, f02=»,DENSIT GET STANDARD CHAR DENSITY/PITCH O P ORK A4,ZERO MAKE ASCII P 0 4 P SC A4,DWTDEV+DWTCMT+1,A6 STORE IN DWT (TRACTOR) P P 6 P SC A4,DWTDEV+DWTCMF+1,A6 STORE IN DWT (FRONT/FRI) P , P CF A5,GTSTAT DUMMY ST., CLEAR RESET BIT P PRCTP10 EQU * P " P L
0x23935c…2394f0 Dummy {f00=0x00b2, f01=0x0190, f02=» ACTUAL LINE (FRONT/FRI) P v , P LDKL A1,/20 INDICATE POWER OFF OCCURED Q P ORS A1,DWTDEV,A6 Q P $ P LD A1,DWTECB,A6 RUNNING REQUEST Q j , P ABL(NZ) ACT020 YES , REPEAT THE REQUEST Q PRCTP20 ABL LENDIS DISPATCH Q P EJECT Q @ P**********************
0x2394f0…239684 Dummy {f00=0x00b2, f01=0x0190, f02=»O THE PRINTER Q d P* R : P* AND ANALYZES THE DEVICE STATUS SENT FROM THE PRINTER R P* R ^ P* AT EXIT A1 = RETURN CODE R h P* R @ P************************************************************ R PGTSTAT EQU * R * P CM DWTDEV+DWTRC,A6 RESET RE
0x239684…239818 Dummy {f00=0x00b2, f01=0x018e, f02=» DEVICE STATUS REPORT R " PGTST02 LCR A2,A3 GET CHARACTER S P ANK A2,/FF MASK S D P SLL A2,8 SHIFT LEFT S * P RF(N) GTST04 END OF CONTROL SEQUENSE S x P SRL A2,8 SHIFT RIGHT S P CF A5,OUTPUT S P RF(NZ) ERGP14 JMP IF ERROR S P ADK A3,1
0x239818…2399ac Dummy {f00=0x00b2, f01=0x0190, f02=» S l P LDR A1,A6 SAVE DWTADDRESS T P LDKL A4,DWTDEV+DWTTP T * P ADR A4,A6 TIMER T H & P CF A15,SETIMP SET TIMER, 10 SEC. T ` * P DATA ERGP00,TIME RETURN ADDRESS,TIME T ( PGTST05 LDKL A4,TAB GET TABLE ADDRESS T PGTST10 EQU * T P LDK A3,0 RESET
0x2399ac…239b40 Dummy {f00=0x00b2, f01=0x018e, f02=»F(E) GTSEND YES T P LDR A7,A7 ORDER /00 ? U P RF(NZ) GTST15 NO U 6 " P CCK A2,/3B STRING SEPARATOR ? U P P RF(NE) GTST15 NO U v * P IM DWTDEV+DWTSER,A6 IND. STRING SEP. U P LD A2,DWTDEV+DWTSER,A6 U ( P SUK A2,2 TWO SEPARATORS RECEIVED ? U &
0x239b40…239cd4 (1, 521) Dummy {f00=0x00b2, f01=0x0190, f02=» $ P RB(NL) GTST10 NO SERVICE STATUS V . P LDKL A4,TAB+20 INCR. ADDR. TO SERV. STAT. V , * PGTST15 LCR A3,A4 GET MASK RETURN CODE V ^ P ANR A2,A3 V * P LDKL A3,/3AC0 SHIFT LEFT CIRCULAR A2 V P LC A3,1,A4 A3 TIMES V $ P EXR A3 EXECUT SHIFT INSTRUCTION
0x239cd4…239e68 Dummy {f00=0x00b2, f01=0x0190, f02=»BCW,A8 SERVICE STAT. IN CONTR. WORD V P RF GTST30 W , > PGTST20 ORS A2,DWTDEV+DWTRC,A6 SAVE RETURN CODE TEMPORARILY W > $ PGTST30 ADK A4,2 INCREMENT ADRESS W ( P RB GTST10 GET NEXT STATUS CHARACTER W PGTSEND EQU * W * P LD A1,DWTDEV+DWTRC,A6 GET RETUR
0x239e68…239ffc Dummy {f00=0x00b2, f01=0x0190, f02=» $ P CM* DWTDEV+DWTTP,A6 RESET TIMER X 2 PGTST40 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER X , PGTST50 EQU * X b P RTN A5 X v P EJECT X @ P************************************************************ X P* X : P* THIS ROUTINE CONVERTS A BINARY VAL
0x239ffc…23a190 Dummy {f00=0x00b2, f01=0x0190, f02=»T X z P* Y P* Y PKONVER EQU * Y P* BINARY TO DEC. Y 2 P LDK A2,0 CLEAR A2 Y J P CWK A4,100 VALUE > 100 ? Y d P RF(L) KONV05 NO Y P SUKL A4,100 Y & P LDKL A2,/100 LEFT BYTE OF A2=X=1 Y * PKONV05 CWK A4,10 ARE THERE ANY TENS ? Y
0x23a190…23a324 Dummy {f00=0x00b2, f01=0x0190, f02=»,/3030 XY IN A2 Y P ORK A4,/30 Z IN A4 Z P SRC A2,8 YX IN A2 Z 4 P LDR A1,A2 Z N P ANKL A1,/FF00 KEEP Y IN A1 Z ` . P ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII Z P ORR A4,A1 YZ IN A1. ASCII Z P RTN A5 Z P EJECT Z P******************
0x23a324…23a4b8 Dummy {f00=0x00b2, f01=0x0190, f02=» P RF(E) RESRTN NO. [ . P XRS A4,DWTDEV,A6 YES. RESET RECOVERY BIT [ 2 P ORKL A1,/100 INDIC. RECOV. IN RET. CODE BIT7 [ P PRESRTN RTN A5 RETURN [ P* [ P* [ 6 P************************************************** [ P* [ . P* ERROR ROUTIN
0x23a4b8…23a64c Dummy {f00=0x00b2, f01=0x018e, f02=»WTTP,A6 RESET TIMER POINTER [ P RF ERGP20 $ PERGP15 EQU * 6 0 P ANK A1,/1A OUTP. ERR, SOFTW. T-OUT,LRC-ERR J P ABL(NZ) RCTP YES, RECOVERY ~ PERGP17 EQU * P IFF REQEND=1 P ABL LDISP DISPATCH P XIF $ PERGP20 LDK A1,1 SET
0x23a64c…23a7e0 Dummy {f00=0x00b2, f01=0x0190, f02=» P* ] P* S E N D ] P* ] , P* THIS ROUTINE SENDS AN CONTROL SEQUENCE ] * P* TO THE PRINTER ] Z P* ] r P* ] | P* AT ENTRY : ] " P* A2 = CONTROL SEQUENCE ADRESS ] 4 P* A3 = DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC ] P* ] P* ]
0x23a7e0…23a974 (1, 522) Dummy {f00=0x00b2, f01=0x0190, f02=»DEV+DWTDISP,A6 SAVE DWT-DISPLACEMENT ] 4 P ST A2,DWTDEV+DWTSTR,A6 CONTROL SEQUENCE ADRESS ^ , PSEND10 EQU * ^ d 8 P LD A3,DWTDEV+DWTSTR,A6 GET CONTROL SEQUENCE ADRESS ^ x P LCR A2,A3 GET CHARACTER ^ P ANK A2,/FF MAKE CHARACTER ^ & P SLL A2,8 END OF C
0x23a974…23ab08 Dummy {f00=0x00b2, f01=0x0190, f02=»PREPARE TO SEND CHARACTER ^ P CF A5,OUTPUT SEND CHARACTER _ " P RB(NZ) ERGP15 JMP IF ERROR _ F PSEND20 EQU * _ j 4 P IM DWTDEV+DWTSTR,A6 INC. CONTROLSEQUENCE ADRESS _ ~ P RB SEND10 GET NEXT _ PSEND30 EQU * _ 2 P LD A3,DWTDEV+DWTDISP,A6 GET DWT-D
0x23ab08…23ac9c Dummy {f00=0x00b2, f01=0x0190, f02=»15 JMP IF ERROR _ 2 P IM DWTDEV+DWTDISP,A6 INC. DISPLACEMENT ADRESS ` P RB SEND20 GET NEXT ` N PSENDEND EQU * ` j P RTN A5 ` P EJECT ` @ P************************************************************ ` P* ` P* SENPAR ` P* ` B P*
0x23ac9c…23ae30 Dummy {f00=0x00b2, f01=0x0190, f02=» & PERGP16 RB(NZ) ERGP15 JMP IF ERROR a P IFT SPEEDY=1 a . P LDKL A2,CSSM a D P LDKL A3,DWTDEV+DWTHSP a Z & P CF A5,SEND SEND SELECT HIGH SPEED a x P XIF a P IFT SINHAN+FFDEV=1 a " P LC A2,DWTDEV,A6 GET DWTINDEX a P ANK A2,1 a P RF(NZ
0x23ae30…23afc4 Dummy {f00=0x00b2, f01=0x0190, f02=» * P CF A5,SEND SEND SELECTED PAGE LENGTH b P LDKL A2,CSSNV b 2 P LDKL A3,DWTDEV+DWTPCS b H , P CF A5,SEND SEND NATIONAL CHAR VARIATION b f P LDKL A2,CSCPL b P LDKL A3,DWTDEV+DWTCMF b * P CF A5,SEND SEND CHAR. MATRIX & PITCH b P RF SEN20 b
0x23afc4…23b158 Dummy {f00=0x00b2, f01=0x0190, f02=» b P XIF c P IFT SINHAN+FFDEV=1 c P LDKL A2,CSSLPL c 0 P LDKL A3,DWTDEV+DWTDL c H * P CF A5,SEND SEND SELECTED PAGE LENGTH c f P LDKL A2,CSSNV c P LDKL A3,DWTDEV+DWTDCS c , P CF A5,SEND SEND NATIONAL CHAR VARIATION c P LDKL A2,CSCPL c
0x23b158…23b2ec Dummy {f00=0x00b2, f01=0x0190, f02=»B(NZ) ERGP16 JMP IF ERROR c P ABR A4 RETURN d " P* d 8 P EJECT d B 2 P********************************************** d P P* d > P* THIS ROUTINE SENDS A CONTR. SEQ. WITHOUT DWT REFERENCE d , P* AT ENTRY : A3= CONTROL SEQ, ADDRESS d P* d
0x23b2ec…23b480 Dummy {f00=0x00b2, f01=0x0190, f02=»T d | P CF A5,OUTPUT e P RB(NZ) ERGP16 JMP IF ERROR e P ADK A3,1 INCR. ADDRESS e D P RB SEN40 GET NEXT CHAR. e d * PSEN50 RTN A5 RETURN & SEND PARAMETERS e P EJECT e @ P************************************************************ e P* e
0x23b480…23b614 (1, 523) Dummy {f00=0x00b3, f01=0x0190, f02=»PUT e P* A2= WORK REGISTER f P* A3= BINARY OUTPUT f ( P* f D P* f N P* f X PBINARY SUR A3,A3 CLEAR A3 f b P LDR A2,A1 MAX. LINE ASCII f P SRL A2,8 f P SUK A2,/30 f P ADR A3,A2 f P ADR A3,A2 f P SLL A2,3 f P ADR A
0x23b614…23b7a8 Dummy {f00=0x00b3, f01=0x0190, f02=»ATA /3135,/3138,/3234 f " P DATA /3235,/3330,/3333,/3335 g " P DATA /3336,/3438,/3530,/3531 g D " P DATA /3630,/3636,/3730,/3732 g j P* g P* g P* g P* g 6 PNCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE g " P DATA /3031,/3032,/303
0x23b7a8…23b93c Dummy {f00=0x00b3, f01=0x0190, f02=»SK TABLE FOR STATUS REPORT FROM PRINTER g P DATA /C0,/C0,/C0,/2CC * h 0 P DATA /2CF,/1C8,/C0,/C0 * h R P DATA /C0,/C0,/FC8,/FC0 h t P DATA /C0,/C0 h , PPRITAB EQU * BRANCH ADDRESSES ORDER /24 h P DATA PRI50 h P DATA PRI40 h P DATA
0x23b93c…23bad0 Dummy {f00=0x00b3, f01=0x40c6, f02=»FRO40 h P DATA FRO30 i P DATA FRO20 i " P XIF i 6 $ PLINTAB EQU *-2 LINE SPACE TABLE i B ( P DATA /3033,/3034,/3036,/3038,/3132 i j P DATA /3136,/3234,/3438 i P END i @ i S ORDER /24 h P DATA PRI50 h P DATA PRI40 h P DATA
0x23bad0…23bc64 Dummy {f00=0x00b3, f01=0x4008, f02=»@ j @
0x23bc64…23bdf8 Dummy {f00=0x00b3, f01=0x2008, f02=» k * 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
0x23bdf8…23bf8c Dummy {f00=0x00b3, f01=0x0190, f02=»ONAL VERSION P BYTE ESC,CSI P BYTE ZERO,ZERO * P BYTE SNV,NEG B " PCSSLPL EQU * SELECT PAGELENGTH X P BYTE ESC,CSI ~ P BYTE ZERO,ZERO P BYTE SLPL,NEG P BYTE NEG,NEG & PCSRIS EQU * RESET TO INITIAL STATE P B
0x23bf8c…23c120 Dummy {f00=0x00b3, f01=0x0190, f02=»G $ PCSCPL EQU * CHARACTER PITCH LOAD P BYTE ESC,CSI 2 P BYTE ZERO,SEP H P BYTE ZERO,CPL ^ P BYTE NEG,NEG t 0 PCSHPA EQU * HORIZONTAL POSITIONING ABSOLUTE P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE ZERO,HPA P BYTE
0x23c120…23c2b4 (1, 524) Opaque[0x194]
0x23c2b4…23c448 # DirEnt {nam=»DRGP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1668, f03=0x0000}
0x23c2b4…23c448 IdxSect {
0x23c2b4…23c448 f00 = 0x00b3 // 0x23c2b4 @0x0
0x23c2b4…23c448 f01 = 0x000a // 0x23c2b6 @0x2
0x23c2b4…23c448 gno = [ // 0x23c2b8 @0x4
0x23c2b4…23c448 [0x00]: C0x00b3.0x1.0
0x23c2b4…23c448 [0x01]: C0x00b3.0x2.0
0x23c2b4…23c448 [0x02]: C0x00b3.0x3.0
0x23c2b4…23c448 [0x03]: C0x00b4.0x0.0
0x23c2b4…23c448 [0x04]: C0x00b4.0x1.0
0x23c2b4…23c448 ]
0x23c2b4…23c448 }
0x23c448…23c5dc Dummy {f00=0x00b3, f01=0x018e, f02=» 2 P IDENT DRGP04 REL 11.0 81-03-13 870105041100 P : . P = 1 ARRANGEMENTS FOR THE FIRST VERSION B P OF COPY80 ARE DELETED t P REL 11.0 81-01-26 * , (**************************************** P* P* *
0x23c5dc…23c770 Dummy {f00=0x00b3, f01=0x0190, f02=» , (**************************************** * 4 * &* THIS DRIVER HANDLES THE HARD COPY > " * PRINTER HP 75 ( COPY 80 ). l * * &* THE FOLLOWING ORDERS ARE TREATED : * * ORDER /00: TEST STATUS * ORDER /05:
0x23c770…23c904 Dummy {f00=0x00b3, f01=0x0190, f02=»* NORMAL REGISTER USAGE : * $ * A1 = RETURN CODE . * A2 = OUTPUT CHARACTER J * A3 = BUFFER INDEX l * A4 = WORK REGISTER * A5 = STACK BASE * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRE
0x23c904…23ca98 Dummy {f00=0x00b3, f01=0x0190, f02=» EXCLUDED BY MEANS OF CONDI- | 4 0* TIONAL ASSEMBLY. THEN THE WRITE REQUESTS ARE $ 4 0* FINISHED WITHOUT WAITING FOR THE OUTPUT BUF- * FER TO BE EMPTY. EJECT * . ******************************************* * *
0x23ca98…23cc2c Dummy {f00=0x00b3, f01=0x0190, f02=» , (**************************************** * 4 $ * EXTERNAL TOSS MODULE ENTRIES > * f , (**************************************** p * EXTRN STABLK START OF BLOCK * % EXTRN OUTPUT OUTPUT OF ONE CHARACTER EXTRN ENDBL
0x23cc2c…23cdc0 Dummy {f00=0x00b3, f01=0x0190, f02=» INPUT REQUEST ~ EXTRN SETIME SETS TIMER ( # EXTRN LENDIS END I/O WITH DISPATCH 6 2 - EXTRN LENDER END I/O WITH ERROR AND DISPATCH b * * ECB DISPLACEMENTS * EXTRN ECBBA BUFFER ADDRESS " EXTRN ECBRL REQUESTED LEN
0x23cdc0…23cf54 (1, 525) Dummy {f00=0x00b3, f01=0x0190, f02=»WTOR ORDER . ) EXTRN DWTDEV TERMINAL DEVICE STATUS WORD * D , (DWTBLC EQU 2 CHARACTERS IN BLOCK COUNTER N " DWTLFC EQU 4 LINE FEED COUNTER ~ DWTTP EQU 6 TIMER POINTER * . ******************************************* *
0x23cf54…23d0e8 Dummy {f00=0x00b3, f01=0x018e, f02=»TX ( /03 ) " CCERR EQU /4 CODE CHECK ERROR TIME EQU /1 100 MILLISECONDS 8 * , (**************************************** f * * ADDRESS BLOCK * , (**************************************** * P DATA DVBL
0x23d0e8…23d27c Dummy {f00=0x00b3, f01=0x0190, f02=» t DATA 0 NO INTERRUPT HANDLER " DATA RCGP04 RECOVERY ROUTINE , DATA 0 NO ECHO ROUTINE R * r , (**************************************** | * * CONDITIONAL ASSEMBLY * , (****************************************
0x23d27c…23d410 Dummy {f00=0x00b3, f01=0x018e, f02=» & P* MEMORY MANAGEMENT BUFFER SIZE P* 2 PX:B EQU 80 < PDVBLEN EQU X:B N P* d P* MAXIMUM BLOCK SIZE n P* PX:C EQU /80 PMAXBLK EQU X:C P* P* EJECT * . )****************************
0x23d410…23d5a4 Dummy {f00=0x00b3, f01=0x0190, f02=» . ** TO THE APPROPRIATE PART OF THE DRIVER. * 6 . )***************************************** @ * r ACGP04 EQU * | LDK A3,0 RESET BUFFER INDEX " LDK A2,MAXBLK GET BLOCK SIZE CF A5,STABLK START BLOCK RF(NZ) GPER
0x23d5a4…23d738 Dummy {f00=0x00b3, f01=0x0190, f02=»ET ORDER ( # RF(Z) GP400 ORDER /00, TEST STATUS SUK A7,5 < " RF(N) REQERR REQUEST ERROR ! N SUK A7,/1F t IFT ORD24=1 > 9 RF(Z) GP400 ORDER /24, TEST OUTPUT BUFFER AND SET PARAM. XIF IFT ORD24=0 * % RF(Z) REQ
0x23d738…23d8cc Dummy {f00=0x00b3, f01=0x0190, f02=»WRITE ! r ADK A7,1 , P RF(P) GP100 ORDER/06, STANDARD WRITE ! " * R * REQUEST ERROR * v REQERR EQU * CF A5,ENDBLK END OF BLOCK , ' ABL LENDER SET RETURN CODE AND END I/O EJECT * , (**********
0x23d8cc…23da60 Dummy {f00=0x00b3, f01=0x018e, f02=»ITE. Z > :* THE REQUESTED LENGTH IS CHECKED, THE CONTROL CHARACTER : 6* IS TREATED AND THE REST OF THE CHARACTERS ARE SENT N $ * AFTER INDIVIDUAL CODE CHECK. * . )***************************************** * GP100 EQU *
0x23da60…23dbf4 (1, 526) Dummy {f00=0x00b3, f01=0x0190, f02=» RF(NN) GP110 NO ! $ RB REQERR YES ! REQUEST ERROR ! * F * TEST CONTROL CHARACTER P * r GP110 EQU * | & " LD A2,ECBBA,A8 GET BUFFER ADDRESS & ! LC A2,1,A2 GET CONTROL CHARACTER ANK A2,/FF $ ADK A3,2 INCREM
0x23dbf4…23dd88 Dummy {f00=0x00b3, f01=0x0190, f02=» C1S DWTBLC+DWTDEV,A6 SET POS COUNTER TO -1 RF GP210 SEND IT ! 4 P EJECT P * ^ , (**************************************** h * < 7* THIS IS THE ENTRY POINT FOR ORDER /05, BASIC WRITE. 6 P* THE REQUESTED NUMBER OF CHARACTERS
0x23dd88…23df1c Dummy {f00=0x00b3, f01=0x0190, f02=»U * 2 . CF A15,GETCHR FETCH CHARACTER FROM ECB-BUFFER 0 + LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? B RF(NP) GP350 NO ! v * LDR A7,A7 YES ! ORDER /06 ? , ' RF(P) GP300 YES ! CHECK CHARACTER CODE * CWK A2,LF LINE
0x23df1c…23e0b0 Dummy {f00=0x00b3, f01=0x0190, f02=»0 EQU * : 6 IM DWTBLC+DWTDEV,A6 INCR. CHARACTERS IN BLOCK COUNTER * N & ! LDK A1,MAXBLK GET MAX BLOCK SIZE X ( $ CW A1,DWTBLC+DWTDEV,A6 BLOCK FULL ? P RF(G) GP240 NO ! * $ P LDR A4,A2 YES ! SAVE CHARACTER CF A5,ENDBLK
0x23e0b0…23e244 Dummy {f00=0x00b3, f01=0x0190, f02=»TABLK RF(NZ) GPER10 P LDR A2,A4 RESTORE CHARACTER $ * H GP240 EQU * R CF A5,OUTPUT SEND CHARACTER f PGPER10 RF(NZ) GPER20 RB GP200 NEXT CHARACTER EJECT * , (****************************************
0x23e244…23e3d8 Dummy {f00=0x00b3, f01=0x0190, f02=»**** l * GP300 EQU * P LDR A4,A2 * P SUK A4,/20 WITHIN LIMITS ? < RF(N) GP310 NO ! ` * z P SUK A4,/5F " P RF(P) GP305 NO, TEST SP. CHAR , P IM DWTBLC+DWTDEV,A6 INCR. POS. POINTER " P RB GP240 OK ! SEND CHARAC
0x23e3d8…23e56c Dummy {f00=0x00b3, f01=0x0190, f02=»GP320 NO ! 8 3 SUK A2,/80 YES ! CONVERT TO /2E ( ORDINARY POINT ) P RB GP300 AND SEND N GP310 EQU * h P ADK A4,/2 /1E OR /1F ? | RF(NN) GP340 YES ! P ADK A4,/A /15 - /1D ? RF(P) GP320 YES ! P ADK A4,/3 /12 - /14 ?
0x23e56c…23e700 Dummy {f00=0x00b3, f01=0x0190, f02=» CODE CHECK ERROR * GP320 EQU * $ ( $ LDK A1,CCERR ILLEGAL CHAR. = BIT 13 8 , ' ORS A1,ECBRC,A8 SET BIT IN RETURN CODE d GP340 EQU * RB GP200 GET NEXT CHARACTER P* P* TABULATION HANDLING P* PGP345 EQ
0x23e700…23e894 (1, 527) Dummy {f00=0x00b4, f01=0x0190, f02=» P RF(Z) GP347 PGP346 ADK A2,/A P SUK A4,1 4 P RB(NZ) GP346 F 2 PGP347 LD A4,DWTBLC+DWTDEV,A6 GET POS. POINTER P SUR A2,A4 ( P RB(NP) GP200 NO TABULATION POSSIBLE ( P LDR A4,A2 NUMBER OF SPACES TO SEND PGP348 LDK A2
0x23e894…23ea28 Dummy {f00=0x00b4, f01=0x0190, f02=»B GP200 NO TAKE NEXT CHARACTER EJECT & * 4 , (**************************************** > * n : 5* THIS IS THE COMPLETION PART OF THE WRITE REQUESTS x * , (**************************************** * GP350 EQU *
0x23ea28…23ebbc Dummy {f00=0x00b4, f01=0x0190, f02=»* . ** THIS IS THE ENTRY POINT FOR ORDER /00, . ** TEST STATUS AND ORDER /24, TEST OUTPUT < * %* BUFFER AND SET PRINTER PARAMETER. n * . )***************************************** * GP400 EQU * LDK A2,LF LINE FE
0x23ebbc…23ed50 Dummy {f00=0x00b4, f01=0x0190, f02=» P* =1 LDK A2,ETX ETX ( /03 ) CF A5,OUTPUT SEND 8 P RF(NZ) GPER20 NOT OK ! R * r P CF A5,ENDBLK END OF BLOCK | P RF(NZ) GPER20 NOT OK ! P* * % LDR A7,A7 TEST STATUS OR ORDER /24 ? & " RF(Z) GP440 YES !
0x23ed50…23eee4 Dummy {f00=0x00b4, f01=0x0190, f02=» CHECKING THE OUTPUT BUFFER t XIF 0 IFT ORD24=1 < $ LD A1,DWTDEV,A6 GET STATUS WORD P 0 P RF(NN) GP480 WRITE REQUESTS MAY BE FINISHED x L J* BEFORE THE OUTPUT BUFFER IS EMP XIF
0x23eee4…23f078 Dummy {f00=0x00b4, f01=0x018e, f02=» SENT h * LDR A1,A6 DWT-ADDRESS IN A1 CF A15,SETIME < DATA GPTUT,TIME R . * ST A4,DWTTP+DWTDEV,A6 STORE TIMER POINTER j 0 P LD A2,DWTLFC+DWTDEV,A6 NUMBER OF LINE FEEDS P SLC A2,3 COMPUTE TIME P C1R A2,A2 P STR A2,
0x23f078…23f20c Dummy {f00=0x00b4, f01=0x018e, f02=» * ( P CM* DWTTP+DWTDEV,A6 TURN OFF TIMER LD A7,DWTOR,A6 GET ORDER : P ANK A7,/FF AND MASK SUK A7,/24 ORDER /24 ? x RF(NZ) GP480 NO ! END I/O * P LDKL A2,/8000 0 P LD A1,ECBCW,A8 YES ! SET PRINTER PARAMETER.
0x23f20c…23f3a0 Dummy {f00=0x00b4, f01=0x0190, f02=» x " P ANS A2,DWTDEV,A6 CLEAR BIT 0 * . * END OF REQUEST 8 * R GP480 EQU * " LDK A1,0 SET RETURN CODE = 0 p ENDIO EQU * PGPER20 EQU * 0 P CM DWTLFC+DWTDEV,A6 RESET LINE FEED COUNTER & ! ABL LENDIS END I/O WI
0x23f3a0…23f534 (1, 528) Dummy {f00=0x00b4, f01=0x018e, f02=» , (**************************************** * 4 GPTUT EQU * > $ P LDR A6,A1 GET DWT-ADDRESS IN A6 R , ' CF A15,ABORT RESET INPUT REQUESTED BIT z . * LDK A1,1 SET RETURN CODE ( NOT OPERABLE ) P* =1 RB ENDIO * , (
0x23f534…23f6c8 Dummy {f00=0x00b4, f01=0x0190, f02=» f * ABGP04 EQU * , ' CF A15,ABORT RESET INPUT REQUESTED BIT & $ CM DWTTP+DWTDEV,A6 RESET TIMER V RB ENDIO ~ P EJECT * . ******************************************* * * RECOVERY ROUTINE * .
0x23f6c8…23f85c Dummy {f00=0x00b4, f01=0x40cc, f02=» , ( CF A15,ABORT RESET INPUT REQUESTED FLAG $ CM DWTTP+DWTDEV,A6 RESET TIMER 8 2 . LDK A1,2 SET RETURN CODE ( THROUGHPUT ERROR ) ` RCGP10 EQU * RB ENDIO END @ ****** * * RECOVERY ROUTINE * .
0x23f85c…23f9f0 Dummy {f00=0x00b4, f01=0x2008, f02=» ! H
0x23f9f0…23fb84 Dummy {f00=0x00b4, f01=0x0190, f02=»A LOAD DEVICE n , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE P* F P LDR A2,A1 P P ANK A2,/F b P SUK A2,9 t $ P RF(NZ) COR:58 NOT FLEXIBLE DISC P* P XIF P IFT CFTEST+FLDISC=2 ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC
0x23fb84…23fd18 Dummy {f00=0x00b4, f01=0x0190, f02=»F(N) COR:60 NOT FLEXIBLE DISC P* & P XIF 0 " P SUK A1,/FC-/F8 FLEXIBLE DISC? < P ABL(NN) COR:60 NO! b P* ~ P IFT CFTEST+FLDISC=2 " P LD A2,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? $ P RF(NZ) COR:60 YES! DON'T UNLOCK
0x23fd18…23feac Dummy {f00=0x00b4, f01=0x0190, f02=» P EJECT PCONMOV EQU * P* * 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA 4 P* l & P CIO A1,0,SOP INHIBIT SOP SWITCHES v 0 P LD A1,CONSTA+STKCOM GET START OF CONF. DATA < PCMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION
0x23feac…240040 Dummy {f00=0x00b4, f01=0x0190, f02=»'00' v , P SUR A3,A1 LENGTH OF CONFIGURATION DATA 2 P ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA < P r P SUR A2,A3 TO-ADDRESS z P* $ P ANKL A2,/FFFE MAKE EVEN ADDRESS P CALL MOVE : P ST A2,CONSTA+STKCOM SAVE START OF CONFIGURA
0x240040…2401d4 (1, 529) Opaque[0x194]
0x2401d4…240368 # DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1690, f03=0x0000}
0x2401d4…240368 IdxSect {
0x2401d4…240368 f00 = 0x00b4 // 0x2401d4 @0x0
0x2401d4…240368 f01 = 0x000a // 0x2401d6 @0x2
0x2401d4…240368 gno = [ // 0x2401d8 @0x4
0x2401d4…240368 [0x00]: C0x00b4.0x2.0
0x2401d4…240368 [0x01]: C0x00b4.0x3.0
0x2401d4…240368 [0x02]: C0x00b5.0x0.0
0x2401d4…240368 [0x03]: C0x00b5.0x1.0
0x2401d4…240368 [0x04]: C0x00b5.0x2.0
0x2401d4…240368 ]
0x2401d4…240368 }
0x240368…2404fc Dummy {f00=0x00b4, f01=0x018e, f02=» 2 P IDENT DRIC01 REL 11.0 81-05-05 870105041100 P : P =2, CMP ECBRL/MMUBUF SIZE B P REL 11.0 81-04-02 f & P =1, ADDR.WR.REQ.IN WRONG QUEUE P REL 11.0 81-01-26 P* P* 2 P********************************************
0x2404fc…240690 Dummy {f00=0x00b4, f01=0x0190, f02=» P* P* P* P* " P* , P* 6 2 P********************************************** @ P* v 8 P* THIS MODULE HANDLES THE INTERTASK COMMUNICATION P* P EJECT DRIC01 P* P* P*********** P*
0x240690…240824 Dummy {f00=0x00b4, f01=0x0190, f02=» d P EJECT DRIC01 P* P* * P************* 4 P* EXTERNALS * J P************* ` P* v P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR & P EXTRN DISEND TENDIO AND DISPA
0x240824…2409b8 Dummy {f00=0x00b4, f01=0x0190, f02=»T TTAB ADDRESS & P EXTRN BUFLEN DRIVER BUFFER LENGTH P EXTRN SETIMP TIMER @ , P EXTRN FNDTID FIND TTAB ADDRESS FROM TID & P EXTRN TTB:ID TASK IDENTIFICATION P EXTRN TTB:ST TASK STATUS " P EXTRN TTB:TD TERMINAL DEVICES 4 P EXTRN IHR
0x2409b8…240b4c Dummy {f00=0x00b4, f01=0x0190, f02=»CBEL ECB EFFECTIVE LENGTH " P EXTRN ECBCW ECB CONTROL WORD " P EJECT DRIC01 TOSSIO H P* h P* r . P***************************************** | P* P* CONDITIONAL ASSEMBLY P* . P****************************************
0x240b4c…240ce0 Dummy {f00=0x00b4, f01=0x0190, f02=» 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. X P* PCPU852 EQU 1 P* P* MMU BUFFER SIZE (WORDS) P* PX:A EQU 50 PDVBLEN EQU X:A P*
0x240ce0…240e74 (1, 530) Dummy {f00=0x00b4, f01=0x0190, f02=»********* P* DWT DISPLACEMENTS * P********************* 0 P* N P* X 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART b P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTD
0x240e74…241008 Dummy {f00=0x00b4, f01=0x0190, f02=»ER TO FIRST DWT IN QUEUE v . PDWTQUE EQU START+/06 QUEUE ANCHOR ADDRESS P* R P EJECT DRIC01 P* t P* ~ P***************** P* ADDRESS BLOCK * P***************** P* P* ( P DATA DVBLEN+DVBLEN MMU BUFFER
0x241008…24119c Dummy {f00=0x00b4, f01=0x0190, f02=» P* 6 PRD:QUE DATA 0 QUEUE ANCHOR NOT-ADDRESSED READ REQ. 8 PWR:QUE DATA 0 QUEUE ANCHOR NOT-ADDRESSED WRITE REQ. L P* $ P* INTERTASK DRIVER BUFFER (MMU) P* PIT:BUF EQU * P IFT MMUPAG=1 P RES DVBLEN+1 MMU BUFFER
0x24119c…241330 Dummy {f00=0x00b4, f01=0x0190, f02=»2 READ P* /06 WRITE P* /39 SET TIMEOUT $ P* > P* ENTRY PARAMETERS: H P* d P* A5 = STACK BASE 2 IN DWT n P* A6 = DWT ADDRESS P* A7 = ORDER CODE P* A8 = ECB ADDRESS * P* A12= ADDRESS TO DRIVER ADDRESS BLOCK
0x241330…2414c4 Dummy {f00=0x00b4, f01=0x0190, f02=»EAD READ REQUEST P SUK A1,/06-/02 P RF(Z) WRITE WRITE REQUEST 0 P SUK A1,/39-/06 R P RF(NZ) DIS:OE REQUEST ERROR j P* P EJECT DRIC01 P* P* S E T T I M E O U T P* P ST A7,DWTIME,A6 P RF END:IO
0x2414c4…241658 Dummy {f00=0x00b4, f01=0x0190, f02=» P* READ REQUEST ENTRY P* 0 PREAD EQU * CHECK IF ADDRESSED REQUEST OR NOT * P ADK A7,0 CHECK ADDRESS MODE ^ . P ABL(Z) RD:NAD NOT-ADDRESSED READ REQUEST P* P* WRITE REQUEST ENTRY P* 8 PWRITE EQU * CHECK IF ADDRESSED WRI
0x241658…2417ec Dummy {f00=0x00b4, f01=0x0190, f02=»1 P* P* R E A D, A D D R E S S E D P* 8 " P* W R I T E, A D D R E S S E D B P* h $ P* FIND TTAB OF ADDRESSED TASK r P* & P CF A15,FNDTID TTAB ADDRESS TO A2 P ADK A2,0 SET CR P RB(Z) DIS:OE NOT FOUND 4 P A
0x2417ec…241980 Dummy {f00=0x00b4, f01=0x0190, f02=»IF INPUT, POINT TO OUTPUT BLOCK AND V.V. P* 0 P EJECT DRIC01 : P* R $ P* FIND DWT OF ADDRESSED TASK P* 0 PITC:00 ADK A2,4 ADDRESS TO NEXT DWT ADDRESS P SUK A1,4 P RB(N) DIS:OE NOT FOUND P* P LDR* A4,A
0x241980…241b14 (1, 531) Dummy {f00=0x00b5, f01=0x0190, f02=»,A2 ANY REQUEST P RF(N) ITC:50 NO P* 0 * P LD A1,DWTQUE,A2 QUEUE ANCHOR ADDRESS : " P CWR A1,A6 CHECK QUEUE ANCHOR h . P RF(E) ITC:05 REQUEST ISSUED FOR THIS TASK P* P ANK A7,1 P RF(Z) ITC:45 READ P CWK A1,RD:QUE
0x241b14…241ca8 Dummy {f00=0x00b5, f01=0x0190, f02=»T TIMER AND REMOVE DWT FROM QUEUE x P ANK A7,1 * P RF(Z) RD:N05 READ < P* V P EJECT DRIC01 ` P* x $ P* CHECK SEND/RECEIVE LENGTHS =2 P* PITC:10 EQU * P LD A8,DWTECB,A6 SENDING ECB P LDK A1,0 " P LD A9,DWT
0x241ca8…241e3c Dummy {f00=0x00b5, f01=0x0190, f02=» CHECK SIGNS & P RF(NN) ITC:15 BOTH WITH SAME SIGN P CWR A4,A3 > P RF ITC:18 P P* b PITC:15 EQU * l P CWR A3,A4 P* PITC:18 EQU * P RF(NG) ITC:20 ( P LDR A3,A4 RECEIVE LENGTH MANDATORY , P LDK A1,8 RETURN CODE
0x241e3c…241fd0 Dummy {f00=0x00b5, f01=0x0190, f02=» DRIVER ADDRESS BLOCK x $ P LD A4,BUFLEN,A4 MMU BUFFER SIZE P TNM A3,A4 CHECK SIGNS F & P RF(NN) ITC:22 BOTH WITH SAME SIGN d P CWR A4,A3 P RF ITC:24 P* PITC:22 EQU * P CWR A3,A4 P* PITC:24 EQU * * P RF(NG)
0x241fd0…242164 Dummy {f00=0x00b5, f01=0x0190, f02=»ITC:25 EQU * P XIF P* P * $ P ST A3,ECBEL,A8 EFFECTIVE LENGTH 2 $ P ST A3,ECBEL,A9 EFFECTIVE LENGTH Z P* P* MOVE BUFFER P* P IFT MMUPAG=0 P ADK A3,0 CHECK LENGTH " P RF(Z) ITC:32 NOTHING TO MOVE P
0x242164…2422f8 Dummy {f00=0x00b5, f01=0x0190, f02=»E ONE CHARACTER | P SCR A5,A7 P ADK A4,1 * P ADK A7,1 < P SUK A3,1 N P RB(NZ) ITC:30 ` P* v PITC:32 EQU * P XIF P* P EJECT DRIC01 P* > P* TRANSFER SENDING TASK ID TO RECEIVING ECB AND VICE VERSA
0x2422f8…24248c Dummy {f00=0x00b5, f01=0x0190, f02=»SK d & P LD A3,DWTTAB,A6 TTAB SENDING TASK P LD A3,TTB:ID,A3 TASK ID 4 4 P ST A3,ECBCW,A9 RETURN TASK ID TO RECEIVING TASK T P CF A15,TENDIO END WRITE P LDR A6,A2 P* P IFT MMUPAG=1 8 P LD A3,ECBBA,A8 DRIVER BUFFER ADDRESS (EVE
0x24248c…242620 Dummy {f00=0x00b5, f01=0x0190, f02=»ND TDISP l P* PITC:35 EQU * P CMR A6 RESET QUEUE LINK . P* N PITC:40 EQU * X P LDK A1,/40 RETURN CODE l P RB END:IO P* P EJECT DRIC01 P* P* PITC:45 EQU * P CWK A1,WR:QUE ( P RB(E) ITC
0x242620…2427b4 (1, 532) Dummy {f00=0x00b5, f01=0x0190, f02=»R IF REQUESTED p P* PITC:60 EQU * P LD A3,DWTIME,A6 TIME 4 & P RB(Z) ITC:35 TIME IS ZERO, RETURN R & P RF(N) ITC:70 NO TIMING REQUESTED | 2 P LDR A1,A6 PARAM = DWTOUT IF WRITE, ELSE DWTIN P LDK A4,DWTTP P ADR A4,A6 TIMER POINT
0x2427b4…242948 Dummy {f00=0x00b5, f01=0x0190, f02=» DRIC01 P* ( P* INSERT IN QUEUE WITHIN PRIORITY P* F PITC:70 EQU * P . P ST A2,DWTQUE,A6 STORE QUEUE ANCHOR IN DWT d " P LD A5,DWTTAB,A6 TTAB ADDRESS P LD A1,TTB:ST+1,A5 LEVEL P SUK A7,1 ( P RF(Z) ITC:80 NOT-ADDRESSE
0x242948…242adc Dummy {f00=0x00b5, f01=0x0190, f02=» IN QUEUE P RF(Z) ITC:90 END FOUND " P LD A5,DWTTAB,A2 TTAB ADDRESS 2 & P CC A1,TTB:ST+1,A5 COMPARE LEVELS X P RB(NL) ITC:80 P* $ PITC:90 STR A2,A6 INSERT IN QUEUE P STR A6,A4 P ABL TDISP GO TO DISPATCHER P*
0x242adc…242c70 Dummy {f00=0x00b5, f01=0x0190, f02=»D A2,DWTANC,A6 CHECK QUEUE OF ADDRESSED READ REQUESTS $ P RF(NZ) WR:N10 ANYTHING IN QUEUE > 8 P LD A2,RD:QUE CHECK QUEUE OF NOT-ADDRESSED READ REQ. f P RF(Z) WR:N20 QUEUE EMPTY & P LDR* A3,A2 NO, REMOVE FROM QUEUE & P ST A3,RD:QUE UPDATE QUEUE
0x242c70…242e04 Dummy {f00=0x00b5, f01=0x0190, f02=»E n ( P ST A3,DWTANC,A6 UPDATE QUEUE ANCHOR P RB WR:N05 6 P* H ( PWR:N20 LDKL A2,WR:QUE WR:QUE ADDRESS R P* ~ PWR:N30 EQU * , P LDK A7,1 INDICATE NOT-ADDRESSED REQUEST P RB ITC:60 INSERT IN QUEUE P* P EJECT DRIC01
0x242e04…242f98 Dummy {f00=0x00b5, f01=0x0190, f02=»UEUE OF ADDRESSED WRITE REQUESTS x $ P RF(NZ) RD:N10 ANYTHING IN QUEUE ( : P LD A2,WR:QUE CHECK QUEUE OF NOT-ADDRESSED WRITE REQ. P P RF(Z) RD:N20 QUEUE EMPTY & P LDR* A3,A2 NO, REMOVE FROM QUEUE & P ST A3,WR:QUE UPDATE QUEUE ANCHOR P*
0x242f98…24312c Dummy {f00=0x00b5, f01=0x0190, f02=» XRR A6,A2 P XRR A2,A6 P ABL ITC:10 $ P* 8 ( PRD:N10 LDR* A3,A2 REMOVE FROM QUEUE B ( P ST A3,DWTANC,A6 UPDATE QUEUE ANCHOR n P RB RD:N00 P* ( PRD:N20 LDKL A2,RD:QUE RD:QUE ADDRESS P RB WR:N30 INSERT IN QUEUE P*
0x24312c…2432c0 Dummy {f00=0x00b5, f01=0x0190, f02=»IMER POINTER AND REMOVE DWT FROM QUEUE 2 P* BEFORE TERMINATING THE REQUEST VIA TENDIO. . P* d P* INPUT: A1 = DWT ADDRESS n . P* A2 = ADDRESS TO 2ND TIMER BLOCK P* PTIMOUT EQU * " P CM* 0,A2 RESET TIMER POINTER P
0x2432c0…243454 (1, 533) Dummy {f00=0x00b5, f01=0x0190, f02=» d P* P EJECT DRIC01 P* * P* I T A B R T 4 P* J . P* THIS SUBROUTINE IS CALLED FROM TABORT. T 6 P* IT WILL UPDATE QUEUE AND ABORT TIMER (IF ANY), , P* AND TERMINATE THE REQUEST VIA TENDIO. P* P* INPUT: A6
0x243454…2435e8 Dummy {f00=0x00b5, f01=0x0190, f02=»WT FROM QUEUE j P LDK A1,0 RETURN CODE 0 P RB END:IO END REQUEST VIA TENDIO AND TDISP 4 P* h P EJECT DRIC01 r P* P* A B R E Q P* . P* ABORT TIMER AND REMOVE DWT FROM QUEUE. P* P* INPUT: A2 = DWT ADDRES
0x2435e8…24377c Dummy {f00=0x00b5, f01=0x0190, f02=»REMOVE DWT FROM QUEUE P* PABR:10 EQU * ( " P LD A1,DWTQUE,A2 QUEUE ACHHOR < P CWK A1,RD:QUE b , P RF(E) ABR:20 NOT-ADDRESSED READ REQUEST x P CWK A1,WR:QUE . P RF(E) ABR:20 NOT-ADDRESSED WRITE REQUEST : P ADK A1,DWTANC POINT TO
0x24377c…243910 Dummy {f00=0x00b5, f01=0x0190, f02=» x P RB(NE) ABR:20 NO ! " P LDR* A1,A1 REMOVE FROM QUEUE ! " " P STR A1,A3 UPDATE QUEUE LINKS ! H P CMR A2 RESET QUEUE LINK ! n P RF IH:RTN RETURN ! P* ! P EJECT DRIC01 ! P* ! P* A B T I M ! P* ! . P* SUBROUTINE FOR ABOR
0x243910…243aa4 Dummy {f00=0x00b5, f01=0x0190, f02=»TIM2 EQU * ! P CMR A2 RESET QUEUE LINK " P* " 2 PABTIM LDK A1,DWTTP " < $ P ADR A1,A2 TIMER POINTER ADDRESS " V P LDR* A3,A1 " ~ " P RF(Z) IH:RTN NO TIMER ACTIVE " P CM* 0,A1 " " P CMR A1 INDICATE NO TIMER SET " P* " P IFT CPU852=1
0x243aa4…243c38 Dummy {f00=0x00b5, f01=0x4014, f02=» P END # @ # MR A2 RESET QUEUE LINK " P* " 2 PABTIM LDK A1,DWTTP " < $ P ADR A1,A2 TIMER POINTER ADDRESS " V P LDR* A3,A1 " ~ " P RF(Z) IH:RTN NO TIMER ACTIVE " P CM* 0,A1 " " P CMR A1 INDICATE NO TIMER SET " P* " P IFT CPU852=1
0x243c38…243dcc Dummy {f00=0x00b5, 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
0x243dcc…243f60 Dummy {f00=0x00b5, f01=0x0190, f02=» * $ : P* * % 0 : P****************************************************** % n PSYSLDM EQU * % P LDR A8,P INIT STACK POINTER % , P LDKL A1,REL+2 RELOCATION ROUTINE EN
0x243f60…2440f4 (1, 534) Opaque[0x194]
0x2440f4…244288 # DirEnt {nam=»DRKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16b8, f03=0x0000}
0x2440f4…244288 IdxSect {
0x2440f4…244288 f00 = 0x00b5 // 0x2440f4 @0x0
0x2440f4…244288 f01 = 0x0016 // 0x2440f6 @0x2
0x2440f4…244288 gno = [ // 0x2440f8 @0x4
0x2440f4…244288 [0x00]: C0x00b5.0x3.0
0x2440f4…244288 [0x01]: C0x00b6.0x0.0
0x2440f4…244288 [0x02]: C0x00b6.0x1.0
0x2440f4…244288 [0x03]: C0x00b6.0x2.0
0x2440f4…244288 [0x04]: C0x00b6.0x3.0
0x2440f4…244288 [0x05]: C0x00b7.0x0.0
0x2440f4…244288 [0x06]: C0x00b7.0x1.0
0x2440f4…244288 [0x07]: C0x00b7.0x2.0
0x2440f4…244288 [0x08]: C0x00b7.0x3.0
0x2440f4…244288 [0x09]: C0x00b8.0x0.0
0x2440f4…244288 [0x0a]: C0x00b8.0x1.0
0x2440f4…244288 ]
0x2440f4…244288 }
0x244288…24441c Dummy {f00=0x00b5, f01=0x0190, f02=» 2 P IDENT DRKB04 REL 11.0 81-05-25 870105041100 P : 0 P =2 GREEK CHARACTER SET & NEW CONDITIONS B P REL 11.0 81-03-27 v 4 P = 1 /00 SKIPPED IF IT CAME FROM SECOND DEVICE , P ADDRESS VIA CIRCULAR INPUT BUFFER P REL 11.0
0x24441c…2445b0 Dummy {f00=0x00b5, f01=0x0190, f02=»S T E M P T S h * * DRKB04 = DRIVER KEYBOARD * D . ******************************************* N * 4 P* THIS DRIVER HANDLES INPUT FROM THE KEYBOARDS & P* PTS 6231, -32, -33, -34, -36, 2 .* -71, -72, 6331, 6342 AND
0x2445b0…244744 Dummy {f00=0x00b5, f01=0x0190, f02=» ONLY INPUT DATA ARE HANDLED BY THIS DRIVER. * 6 0 +* AN ECHO DEVICE CAN BE ATTACHED TO EVERY @ 0 +* KEYBOARD, WHERE RECEIVED CHARACTERS ARE t * ECHOED. * 0 +* THE DRIVER CONSISTS OF FOLLOWING PARTS: " P* R C K B =
0x244744…2448d8 Dummy {f00=0x00b5, f01=0x0190, f02=» * %* THE FOLLOWING ORDERS ARE TREATED: * ORDER 01: BASIC READ 6 " * 02: STANDARD READ Z " * 03: NUMERIC READ ( #* 31: RESET INPUT BUFFER * P EJECT * NORMAL REGISTER USAGE:
0x2448d8…244a6c Dummy {f00=0x00b5, f01=0x0190, f02=» A4: WORK REGISTER " * A5: STACK BASE " $ * A6: DWT-ADDRESS H * A7: ORDER p $ * A8: ECB-ADDRESS * * SYSTEM ADAPTION * 2 -* DWT-ADDRESS OF ECHO-OUTPUT
0x244a6c…244c00 Dummy {f00=0x00b5, f01=0x018e, f02=»O ZERO. STANDARD VALUE FOR TIME- | 6 2* OUT IS 30 SECONDS SINCE LAST DEPRESSED KEY. IF ( 8 3* ANOTHER VALUE IS WANTED FOR A SYSTEM, INDICATOR b " * IN DRIVER MUST BE CHANGED. * P* < P* BIT 1 IN DWTDEV IS SET TO ZERO IF CHARACTERS
0x244c00…244d94 (1, 535) Dummy {f00=0x00b6, f01=0x0190, f02=» P* > P* BIT 2 IN DWTDEV IS SET TO ZERO IF /20-/5F ARE ACCEPTED < P* FOR STANDARD READ. IF IT IS SET TO ONE, /20-/7F ARE P P* ACCEPTED. * 8 4* KEYBOARD TYPE MUST ALSO BE DEFINED IN DWT. BIT 3 8 4* IN DWTDEV MUST BE SET IF
0x244d94…244f28 Dummy {f00=0x00b6, f01=0x0190, f02=»ECHOED. r P* @ P* SPACE FOR THE CIRCULAR INPUT BUFFER IS RESERVED IN DWT. * ^ 8 3* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE h ( #* TO EXCLUDE FOLLOWING FUNCTIONS: * ---- ECHO FUNCTION * ---- TIME OUT FUNCTION
0x244f28…2450bc Dummy {f00=0x00b6, f01=0x0190, f02=»NUMERIC PART OF 6272 USED AS NORMAL KEY z * 0 P EJECT : * ENTRIES H * P ENTRY KBAD4 ADDRESSBLOCK f * $ * EXTERNAL TOSS MODULE ENTRIES * * & EXTRN LENDER END REQUEST AND DISPATCH " EXTRN INPUT READ A CH
0x2450bc…245250 Dummy {f00=0x00b6, f01=0x0190, f02=» EXTRN LENDIS END I/O AND DISPATCH P EXTRN ABORT ABORT REQUESTS * P EXTRN ABTADR ABORT-ADDRESS N P EXTRN TENDIO r P EXTRN TDISP * * DWT PARAMETERS * EXTRN DWTDEV P EXTRN DWTST P EXTRN DWTA3 P
0x245250…2453e4 Dummy {f00=0x00b6, f01=0x0190, f02=» ~ P* P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LENGTH 6 " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBCW CONTROL WORD * * CONSTANTS * * &OVMASK EQU /2 OVERFLOW IN INPUT BUFFER " PTIME EQU 300
0x2453e4…245578 Dummy {f00=0x00b6, f01=0x0190, f02=»* ( $************************************ * 6 < P* TIME OUT FUNCTION MAY BE INCLUDED BY SETTING X:A = 1 @ * PX:A EQU 0 PCTIMUT EQU X:A * 8 4* ECHO FUNCTION MAY BE EXCLUDED BY SETTING X:B = 0 * X:B EQ
0x245578…24570c Dummy {f00=0x00b6, f01=0x018e, f02=» P* PX:C EQU 0 PRECOV EQU X:C P* 6 : P* THE LENGTH OF THE CIRCULAR INPUT BUFFER IS DEFINED @ 0 P* IN X:D, NUMBER OF BYTES IN DECIMAL FORM. ~ P* PX:D EQU 8 PDWTLNG EQU X:D P* P* CODE CONVERSION DUMMY
0x24570c…2458a0 Dummy {f00=0x00b6, f01=0x0190, f02=» ( P* /00 INSTEAD OF BEING A SHIFT KEY P* 0 PX:F EQU 1 : PNSHIFT EQU X:F L P* b & P* BY SETTING X:G = 1 KEYBOARD IS l P* LOCKED IF NO KEYLOCK ON P* PX:G EQU 0 PKBLOCK EQU X:G * * MMU BUFFER SIZ
0x2458a0…245a34 (1, 536) Dummy {f00=0x00b6, f01=0x0190, f02=»QU X:I P* 6 P* X:J SHOULD BE SET TO 1 IF KB 6236, 71 OR 72 =2 " P* IS INCLUDED IN SYSTEM =2 R P* x PX:J EQU 1 PNEWKB EQU X:J P* 8 P* X:K SHOULD BE SET TO 1 IF OTHER KB THAN 6236 =2 * P* 71 OR 72 IS INCLUDED
0x245a34…245bc8 Dummy {f00=0x00b6, f01=0x0190, f02=»* PX:L EQU 1 PPLC EQU X:L P* 0 , P* IF X:M = 1 IT IS POSSIBLE TO USE =2 : P* GREEK CHARACTER SET =2 j P* PX:M EQU 0 PGREECE EQU X:M 2 /* A PROGRAM VERSION USING TOSS MMU-PAGING IS * %* OBTAINED BY SE
0x245bc8…245d5c Dummy {f00=0x00b6, f01=0x0190, f02=» EQU /04 KEYLOCK MEMORY $ PDWTCS EQU /06 CRTL-SHIFT MEMORY . PDWTCTB EQU /08 CONVERSION POINTERS ADDRESS H PDWTTP EQU /0A TIMER POINTER z * * CIRCULAR INPUT BUFFER * * PDWTINQ EQU /0C POINTER TO FIRST PLACE ( PDWTUTQ
0x245d5c…245ef0 Dummy {f00=0x00b6, f01=0x0190, f02=»DRESS BLOCK * P DATA DVBKTB MMU KEY TABLE P DATA DVBLEN MMU BUFFER SIZE @ P DATA 6 DEVICE INDEX d PKBAD4 EQU * DATA ACKB ACTIVATION PART P DATA ABKB ABORT ROUTINE DATA IHKB INTERRUPT HANDLER P IFF RECOV=1
0x245ef0…246084 Dummy {f00=0x00b6, f01=0x0190, f02=»************************ P* P* RECOVERY ROUTINE * P* F * P************************************* P PRCKB LDR A8,A8 BUSY ? ~ P RF(NZ) RC10 YES ! P LDKL A1,/400 NO ! ( P ORS A1,DWTDEV,A6 INDICATE POWER OFF P ABL LENDIS
0x246084…246218 Dummy {f00=0x00b6, f01=0x0190, f02=»ESTED FLAG r , P LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH & PRC15 CM ECBCW,A8 COMPLETE REQUEST B & P ABL MKB335 AND SET RETURN CODE =0 l P XIF EJECT ( $************************************ P* * * A C K B *
0x246218…2463ac Dummy {f00=0x00b6, f01=0x0190, f02=»0 RESET REGISTERS LDK A3,0 * , * CHECK ORDER 6 * N LDR A4,A7 X RF(NG) AKB100 ILLEGAL ORDER j SUK A4,4 " RF(N) AKB200 ORDER 1, 2 OR 3 SUK A4,/2D RF(Z) AKB110 ORDER 31 * *
0x2463ac…246540 Dummy {f00=0x00b6, f01=0x0190, f02=»T BUFFER. x * AKB110 EQU * P INH 0 $ P LD A1,DWTDEV+DWTUTQ,A6 BUF END < * P CW A1,DWTDEV+DWTINQ,A6 BUFFER EMPTY ? d P RF(E) AKB119 YES ! P* P LDR A2,A1 P IFT NEWKB+OLDKB=2 =2 P LD A4,DWTDEV,A6 ( P ANKL A4
0x246540…2466d4 (1, 537) Dummy {f00=0x00b6, f01=0x0190, f02=»CHARACTERS ARE NOT REMOVED t . P* FROM BUFFER WHEN KB 6236/71/72 IS USED " P* T " PAKB112 LCR A4,A1 GET CHARACTER ^ P ANK A4,/FF P IFT NSHIFT=0 & P CCK A4,/7C00 NUMSHIFT DEPRESSED ? & P RF(E) AKB113 YES ! SKIP CHARACTER P XIF
0x2466d4…246868 Dummy {f00=0x00b6, f01=0x0190, f02=» RF(NN) AKB120 YES ! P* * PAKB113 CF A15,EOQUEU GET NEXT POINTER & ( P CW A1,DWTDEV+DWTINQ,A6 END OF BUF ? T " P RB(NE) AKB112 NO ! CHECK NEXT P* P XIF PAKB118 SCR A3,A1 P ST A2,DWTDEV+DWTINQ,A6 YES! PAKB119 ENB .
0x246868…2469fc Dummy {f00=0x00b6, f01=0x0190, f02=» STORE IN BUF. " P LDR A3,A1 EXCHANGE REGISTERS P LDR A1,A2 < $ P CF A15,EOQUEU GET NEXT POINTER N P LDR A2,A1 v P LDR A1,A3 P LDK A3,0 P RB AKB113 * P XIF AKB200 EQU * P IFT RECOV=1 P* P*
0x2469fc…246b90 Dummy {f00=0x00b6, f01=0x0190, f02=»RESET POWER OFF BIT ~ P CWK A7,1 BASIC READ ? ( P RB(NE) RC15 NO ! COMPLETE REQUEST ! : P XIF f PAKB205 EQU * r IFT CTIMUT=1 P EJECT * * INITIATE TIMING ROUTINE * P LD A1,DWTDEV,A6 TIMING ? RF(
0x246b90…246d24 Dummy {f00=0x00b6, f01=0x0190, f02=» CF A15,RESTRT YES ! RESTART TIMER RF AKB210 * * < AKBTIM EQU * F LDR A1,A6 DWT-ADDRESS IN A1 Z * ~ P CF A15,SETIME SET TIME , P DATA AKBTUT,TIME TIMEOUT ROUTINE & TIME * 6 P ST A4,DWTTP+DWTDEV,A6 STORE TIMER ADD
0x246d24…246eb8 Dummy {f00=0x00b6, 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
0x246eb8…24704c Dummy {f00=0x00b6, 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
0x24704c…2471e0 Dummy {f00=0x00b6, 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
0x2471e0…247374 (1, 538) Dummy {f00=0x00b6, f01=0x0190, f02=»R p . P ST A1,DWTDEV+DWTUTQ,A6 STORE NEW POINTER P =1 < P IFT PLC=1 =2 J P* ` @ P* TEST IF THERE ARE MORE CHARACTERS IN CIRC. INPUT BUFFER j P* 4 P LDKL A4,/0800 "MORE CHARACTERS" INDICATION BIT , P CW A1,DWTDEV+DWTINQ,A6
0x247374…247508 Dummy {f00=0x00b6, f01=0x0190, f02=»FT PLC=1 =2 PMKB135 C1R A4,A4 8 P ANS A4,DWTDEV,A6 CLEAR "MORE CHARACTERS" INDICATION , P RB MKB133 h P XIF z P EJECT * & "* READ A CHARACTER FROM KEYBOARD * PMKB140 EQU * CF A5,INPUT READ CHARACTER
0x247508…24769c Dummy {f00=0x00b6, f01=0x0190, f02=»IT IF THERE j P* ARE MORE CHARACTERS P* 4 ( P ANK A1,/1 MASK NOT SIGNIFICANT BITS > P SRC A1,5 j P ORS A1,DWTDEV,A6 | P* P XIF IFT CTIMUT=1 ( P CF A15,RESTRT RESTART TIMEOUT TIMER XIF * PMKB1
0x24769c…247830 Dummy {f00=0x00b6, f01=0x0190, f02=»D WITH x ( P ANKL A4,/1000 SPECIAL CONVERSION ? ! P RF(Z) MKB290 PERHAPS ! ! : P XIF ! Z P IFT NEWKB=1 =2 ! f * ! ~ P* KB 6236/71/72 IS USED ! * CHECK INCOMING CHARACTER ! * ! LDR A4,A2 ! , P SUK A4,/80 SKIP CHAR. FROM CI
0x247830…2479c4 Dummy {f00=0x00b6, f01=0x0190, f02=»ORMAL CHARACTER ? ! P RF(N) MKB300 YES ! " P EJECT " 6 * " D > P* KEYLOCK IS TURNED. SET/CLEAR CORRESPONDING BIT IN DWT. " N : P* IF THE KEYLOCK ISN'T CHANGED, WHICH MEANS THAT THE " < P* CHARACTER IS COMING BECAUSE OF POWER UP, THE CHARAC- "
0x2479c4…247b58 Dummy {f00=0x00b6, f01=0x0190, f02=»KEYLOCK ON ! " | P SUK A4,1 # P RF(Z) MKB180 KEYLOCK OFF ! # & $ SLC A1,1 SHIFT "FLAG BIT" LEFT # J SUK A4,1 # r & P RB MKB160 NEXT KEYLOCK, PERHAPS ? # * # PMKB170 EQU * # 6 P LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK IS CHANGED # P T
0x247b58…247cec Dummy {f00=0x00b6, f01=0x0190, f02=»80 EQU * # 4 P LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK CHANGED $ P TM A4,A1 $ H P RB(Z) MKB100 NO CHANGE $ Z * P C1R A1,A1 COMPLEMENT FOR AND-FUNCTION $ z . P ANS A1,DWTDEV+DWTKEY,A6 CLEAR "FLAG BIT" $ PMKB190 EQU * $ 0 P CF A15,STORE STORE KEYLOC
0x247cec…247e80 Dummy {f00=0x00b6, f01=0x0190, f02=» KEYLOCK IS TURNED ! MAKE A NEGATIVE CODE $ 6 P* TO THE CONTROLWORD IN ECB AND COMPLETE REQUEST % 2 * % l PMKB200 EQU * % v P LDR A4,A2 LOAD CHARACTER % P SUK A4,/70 % & ! SRC A4,1 SHIFT TO GET KEY NUMBER % P RF(N) MKB210 ON OR OFF ? %
0x247e80…248014 (1, 539) Dummy {f00=0x00b7, f01=0x0190, f02=» % h & P ST A4,ECBCW,A8 STORE CODE IN ECB & , P RF MKB335 SET RC=0 AND COMPLETE REQUEST & 2 * & b 4 0* CTRL OR (NUM.) SHIFT IS DEPRESSED (RELEASED) & l * & PMKB220 EQU * & P IFT KBLOCK=1 & * P LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ? & , P R
0x248014…2481a8 Dummy {f00=0x00b7, f01=0x018e, f02=» IF NUMERIC SHIFT KEY IS & z 2 P* DEPRESSED, AND SKIP THE INCOMING CHARACTER ' P* IF IT IS RELEASED. ' V P* ' t P CCK A2,/7C00 DEPRESSED ? ' ~ P RF(NE) MKB230 NO ! ' $ P LDK A2,/00 YES ! LOAD CHARACTER ' P RF MKB300 ' P* ' " PMKB230 C
0x2481a8…24833c Dummy {f00=0x00b7, f01=0x0190, f02=» ' t P LDR A4,A4 SHIFT ON ? ( P RF(Z) MKB260 YES ! ( & P SUK A4,1 SHIFT OFF ? ( B P RF(Z) MKB270 YES ! ( ` P LDK A1,/4 CONTROL BIT ( | P SUK A4,1 CONTROL ON ? ( P RF(Z) MKB260 YES ! ( P SUK A4,1 CONTROL OFF ? ( P RF(Z) MKB270 YES !
0x24833c…2484d0 Dummy {f00=0x00b7, f01=0x0190, f02=»MKB270 C1R A1,A1 COMPLEMENT ( " P ANS A1,DWTDEV+DWTCS,A6 CLEAR ) $ * ) J $ PMKB280 ABL MKB100 NEXT CHARACTER ) T P XIF ) | P IFT OLDKB=1 =2 ) P EJECT ) * ) . P* SPECIAL CONVERSION OF CHARACTERS FROM ) P* NUMERIC PART OF 6234. )
0x2484d0…248664 Dummy {f00=0x00b7, f01=0x0190, f02=» BE USED ) ( P LDR A4,A2 IF BIT 8 IN CHARACTER IS * 0 P ANK A4,/80 SET SHOULD SPECIAL CONV. BE USED * < ( P RF(Z) MKB310 NO SPECIAL CONVERSION * p P ANK A2,/7F MASK AWAY BIT 8 * * * & P* INDICATE SPECIAL CONVERSION ! * * * 2 PMKB295 ANK
0x248664…2487f8 Dummy {f00=0x00b7, f01=0x018e, f02=» P EJECT + * + * NORMAL CONVERSION + * + : PMKB300 EQU * + D * + X IFT KBLOCK=1 + b * P LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ? + x . P ABL(Z) MKB100 YES ! READ A NEW CHARACTER + XIF + * + PMKB310 EQU * + , P LD A1
0x2487f8…24898c Dummy {f00=0x00b7, f01=0x0190, f02=» P LDR* A1,A1 , & P RF(E) MKB320 NO CONVERSION TABLE , LDR A4,A2 , B SRL A4,3 LINE INDEX , T P ADR A1,A4 , p $ P LDR* A1,A1 COLUMN TABLE ADDRESS , P RF(E) MKB320 NO COLUMN , LDR A4,A2 , ANK A4,/F , P ADR A1,A4 ADD ROW INDEX ,
0x24898c…248b20 Dummy {f00=0x00b7, f01=0x0190, f02=»4,DWTDEV+DWTCS,A6 , P XIF - P EJECT - & * - 4 , '* CHECK IF BASIC READ OR ORDER 2 OR 3 - > * - n P LDR A4,A7 LOAD ORDER CODE - x SUK A4,2 - " P RF(NN) MKB330 ORDER 2 OR 3 ! - * - * ORDER 1, BASIC READ - * - , P C
0x248b20…248cb4 (1, 540) Dummy {f00=0x00b7, f01=0x0190, f02=» IF ECHO WANTED - * . 2 PMKB325 EQU * . < 0 P CW A3,ECBRL,A8 EFF. LENGTH = REQ. LENGTH ? . P . P ABL(NE) MKB100 NO ! READ A NEW CHARACTER . * . ( P RF MKB335 YES ! SET RETURN CODE = 0 . P EJECT . * . . **
0x248cb4…248e48 Dummy {f00=0x00b7, f01=0x0190, f02=» . & P LD A1,ECBCW,A8 KEY-TABLE ADDRESS / P RF(Z) MKB360 NO KEYTABLE ! / 2 " LCR A4,A1 TABLE LENGTH IN A4 / V ANK A4,/FF / | 0 , ADR A1,A4 ADDRESS TO LAST PLACE IN KEYTABLE / ADK A1,1 / PMKB340 SUK A4,1 / , P RF(N) MKB360 KEY NOT FOUN
0x248e48…248fdc Dummy {f00=0x00b7, f01=0x0190, f02=» / ( # ADK A4,1 YES ! MAKE KEYTABLE INDEX 0 PMKB350 EQU * 0 4 0 P ST A4,ECBCW,A8 STORE INDEX IN CONTROL WORD 0 H * 0 | 0 P CF A15,STORE STORE CHARACTER IN ECB BUFFER 0 P IFT CECHO=1 0 & P ORK A2,/80 INDICATE EOR CHARACTER 0 P CF A5,EORECH EC
0x248fdc…249170 Dummy {f00=0x00b7, f01=0x0190, f02=» P* 1 P EJECT 1 P* 1 P* 1 & P* CHARACTER CHECK 1 0 P* 1 L PMKB360 EQU * 1 V ( P STR A2,A15 SAVE CHARACTER ON STACK 1 j P LD A1,DWTDEV,A6 1 P CWK A7,2 STANDARD READ ? 1 P RF(NE) MKB380 NO ! 1 P LDK A4,/20 LOWER LIMIT 1
0x249170…249304 Dummy {f00=0x00b7, f01=0x018e, f02=»1,/7F UPPER LIMIT 1 P RF MKB400 2 P* 2 , ( PMKB380 SLC A1,1 /30-/39 & /70-/79 ? 2 6 P RF(NZ) MKB390 NO ! 2 b P* 2 ~ P ANK A2,/3F RESET BIT 9 2 " PMKB390 LDK A1,/39 UPPER LIMIT 2 P LDK A4,/30 LOWER LIMIT 2 P* 2 PMKB400 SUR A1,A2
0x249304…249498 Dummy {f00=0x00b7, f01=0x0190, f02=» P EJECT 3 * 3 $ * IT IS A "NORMAL" CHARACTER ! 3 * 3 D PMKB405 EQU * 3 N * P CF A5,STOECH STORE AND ECHO CHARACTER 3 b * 3 & P CW A3,ECBRL,A8 LENGTH OVERFLOW ? 3 , P ABL(L) MKB100 NO ! TAKE NEXT CHARACTER 3 * 3 ( PMKB410 LDK
0x249498…24962c Dummy {f00=0x00b7, f01=0x0190, f02=»OR, SKIP OR UNKNOWN CHARACTER 3 * 4 & ( PMKB420 LDR* A2,A15 RELOAD CHARACTER 4 0 P LDR A1,A2 4 P ANK A1,/FF 4 n P LD A4,ECBCW,A8 4 * P RF(NZ) MKB440 STANDARD EOR NOT USED ! 4 6 P LDK A4,1 INDEX TO STORE IN ECBCW IF STANDARD EOR 4 P CCK A
0x24962c…2497c0 Dummy {f00=0x00b7, f01=0x0190, f02=» 4 ~ * 5 " P ADK A1,/13 BACKSPACE ? (/08) 5 P ABL(E) BACKSP YES ! 5 8 * 5 T P SUK A1,/10 CLEAR ? (/18) 5 ^ P ABL(E) CLEAR YES ! 5 * 5 " P SUK A1,/2 DOUBLE ZERO ? (/1A) 5 P ABL(E) MZ20 YES ! 5 * 5 $ P SUK A1,/E5 SKIP CHARACT
0x2497c0…249954 (1, 541) Dummy {f00=0x00b7, f01=0x018e, f02=»FOR THE 5 v & P RF(N) MKB460 GREEK CHARACTER SET 6 P SUK A1,/9 6 : P RB(NP) MKB405 YES IT IS OK 6 L PMKB460 EQU * 6 p P XIF 6 * 6 , (* SET ERROR CODE FOR UNKNOWN CHARACTER 6 * 6 0 P CF A15,STORE STORE CHARACTER IN ECB-BUFFER 6 P
0x249954…249ae8 Dummy {f00=0x00b7, f01=0x0190, f02=» 6 * 7 * %************************************* 7 MKBEND EQU * 7 @ * 7 T IFT CTIMUT=1 7 ^ P LD A4,DWTTP+DWTDEV,A6 7 t RF(E) MKBE10 NO TIMING ! 7 & P CM* DWTTP+DWTDEV,A6 SCRATCH TIMER 7 P CM DWTTP+DWTDEV,A6 7 XIF 7 *
0x249ae8…249c7c Dummy {f00=0x00b7, f01=0x0190, f02=»,ECHEND END OF ECHOING 7 P LDR A1,A4 8 XIF 8 0 * 8 < , P ABL LENDIS PERFORM END I/O AND DIPATCH 8 F EJECT 8 v * &************************************** 8 * 8 * 8 * INTERRUPT HANDLER 8 * 8 * 8 * &****************
0x249c7c…249e10 Dummy {f00=0x00b7, f01=0x0190, f02=»IMEOUT TIMER 8 x XIF 9 * 9 4 /* STORE INCOMING CHARACTER IN CIRCULAR BUFFER 9 * * 9 b P IFT OLDKB=1 =2 9 l $ P LDR A1,A6 SPECIAL CONVERSION ? 9 P ANK A1,1 9 P RF(Z) IHKB02 NO ! 9 . P ORK A2,/80 YES INDICATE BY SETTING BIT 8 9
0x249e10…249fa4 Dummy {f00=0x00b7, f01=0x0190, f02=»* 9 P LDR A4,A1 : 4 P CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS : * : T & P CW A1,DWTDEV+DWTUTQ,A6 OVERFLOW ? : ^ RF(NE) IHKB20 NO ! : $ P LDK A1,/FF OVERFLOW INDICATION : ( P SCR A1,A4 SET OVFL. IND. IN BUFFER : P* : PIHKB05
0x249fa4…24a138 Dummy {f00=0x00b7, f01=0x0190, f02=» P XIF ; P IFT NEWKB=1 =2 ; & P SUK A2,/70 KEYLOCK, SHIFT, CTRL ? ; ( P RF(N) EXIT NO ! ; R P ADK A2,/70 YES ! ; j P* ; P LDK A1,0 ; P SC A1,DWTDEV+1,A6 ; P LD A1,DWTDEV+DWTINQ,A6 ; P LDR A4,A1 ; P CF A15,EOQUEU ; , P CW A1
0x24a138…24a2cc Dummy {f00=0x00b7, f01=0x0190, f02=»DICATION ; t P LDR A4,A1 FORWARD IN BUFFER < P RF IHKB20 < 4 P* < F P* CHECK BUFFER < P P* < h > PIHKB07 LD A1,DWTDEV+DWTINQ,A6 POINTER TO LAST POS IN BUF. < r PIHKB10 EQU * < * P CW A1,DWTDEV+DWTUTQ,A6 END OF QUEUE ? < P RF(E) IHKB19 YES
0x24a2cc…24a460 Dummy {f00=0x00b7, f01=0x018e, f02=» RF(Z) EXIT EQUAL CHARACTER ! < P SUK A4,1 INVERTED CHAR. ? = & P RF(NZ) IHKB17 NO ! = H 2 P LDK A2,/80 YES ! LOAD SKIP CHAR FOR CIRC BUF = d P RF IHKB18 = P* = PIHKB17 EQU * = & P SUK A4,/F CTRL, SHIFT, KEYLOCK ? = P RB(N) IHKB10 YES !
0x24a460…24a5f4 (1, 542) Dummy {f00=0x00b7, f01=0x0190, f02=» " P* EQUAL AND INV. CHARACTERS > P* > * : PIHKB19 LC A4,DWTDEV+1,A6 SORT OUT EQUAL AND INV. CHAR > 4 P ANK A4,/FF > r P LD A1,DWTDEV+DWTINQ,A6 > PIHKB21 CF A15,SOQUEU > P SUK A4,1 > P RB(NN) IHKB21 > P IM DWTDEV,A6 > ( P LCR A4,
0x24a5f4…24a788 Dummy {f00=0x00b7, f01=0x0190, f02=» LDR A2,A4 PUT CHAR IN A2 > P ANK A2,/7F ? " P RB IHKB07 ? 6 P XIF ? H * ? T 8 PIHKB20 ST A1,DWTDEV+DWTINQ,A6 STORE INQUEUE POINTER ? ^ 4 PIHKB30 SCR A2,A4 STORE CHARACTER IN INPUT BUFFER ? * ? EXIT ABL LDISP DISPATCH ! ? P EJECT ?
0x24a788…24a91c Dummy {f00=0x00b7, f01=0x0190, f02=» STOECH EQU * @ , ' CF A15,STORE STORE CHAR. IN ECB-BUFFER @ * @ H IFT CECHO=1 @ R P IFT GREECE=1 =2 @ f P RF EORECH DO NOT MASK @ P XIF @ P IFT CECHO=1 @ , PECHSUB ANK A2,/7F MASK TO GET CHARACTER @ PEORECH EQU * @ P IFT P
0x24a91c…24aab0 Dummy {f00=0x00b7, f01=0x0190, f02=»IT @ l P SLC A1,5 A P XIF A P IFT CECHO=1 A ( CF A5,ECHO ECHO CHARACTER A < XIF A ^ * A j P RTN A5 A t * A P EJECT A IFT CTIMUT=1 A * A $ * THIS IS THE TIMEOUT ROUTINE A * A AKBTUT EQU * A P LDR A
0x24aab0…24ac44 Dummy {f00=0x00b7, f01=0x0190, f02=» , P CF A15,ABORT RESET INPUT REQUESTED FLAG B * P LDR A5,A6 INITIATE DWT-STACK POINTER B 4 P ADKL A5,DWTSB2 B b 4 P LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH FROM DWT B z ( P LD A8,DWTECB,A6 RELOAD ECB-ADDRESS B P LDK A1,/40 SET RETURN CODE B ABL M
0x24ac44…24add8 Dummy {f00=0x00b7, f01=0x0190, f02=»F(E) NOTIME NO TIMING B LDKL A4,-TIME RESTART TIMER C P ST* A4,DWTTP+DWTDEV,A6 C B PNOTIME RTN A15 C b XIF C x P EJECT C * C 0 P* STORE = SUBROUTINE TO STORE A CHARACTER C 0 ,* IN ECB-BUFFER AND INCREMENT BUFFER INDEX C * C
0x24add8…24af6c Dummy {f00=0x00b7, f01=0x0190, f02=»BA,A8 BUFFER ADDRESS C P ADR A1,A3 ADD BUFFER INDEX D ( P SCR A2,A1 STORE CHARACTER IN BUFFER D @ $ ADK A3,1 INCREMENT BUFFER INDEX D l RTN A15 D * D 6 1* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER D * D ( #* ON ENTRY: A1 =
0x24af6c…24b100 Dummy {f00=0x00b7, f01=0x0190, f02=»1,DWTDEV+DWTEQ END OF QUEUE ? D RF(NE) EOQU10 E & 2 P LDKL A1,DWTDEV+DWTSQ SET QUEUE START ADDRESS E < EOQU10 ADR A1,A6 E r P RTN A15 E P* E : P* SOQUEUE = SUBROUTINE TO GET PREVIOUS QUEUE POINTER E P* E ( P* ON ENTRY: A1 = QUEUE
0x24b100…24b294 (1, 543) Dummy {f00=0x00b8, f01=0x0190, f02=» IN QUEUE ? E r P RF(NE) SOQ10 NO ! F 0 P LDKL A1,DWTDEV+DWTEQ GET LAST POS IN QUEUE F . PSOQ10 ADR A1,A6 F b ( P SUK A1,1 GET PREVIOUS POINTER POS. F z P RTN A15 F P EJECT F * F P* BACKSPACE F * F PBACKSP EQU * F LDR A
0x24b294…24b428 Dummy {f00=0x00b8, f01=0x0190, f02=»BLANK INSTEAD OF LAST CHAR F z " SUK A3,1 STEP BACKWARDS AGAIN G " * G H KBBSPA EQU * G R IFT CECHO=1 G f & " LDK A2,/8 BACKSPACE TO ECHODEVICE G z P XIF G PKBBSP2 EQU * G P IFT CECHO=1 G " P CF A5,ECHSUB ECHSUB CHARACTER G XIF G
0x24b428…24b5bc Dummy {f00=0x00b8, f01=0x018e, f02=»P2 NEXT CHARACTER G P EJECT H * H ( * MULTIPLE ZERO H 2 * H L MZ20 EQU * DOUBLE ZERO H V P LDK A4,2 H t P RF MZ50 H * H MZ30 EQU * TRIPLE ZERO H P LDK A4,3 H * H MZ50 EQU * H SUK A4,1 ANY MORE ZEROES ?
0x24b5bc…24b750 Dummy {f00=0x00b8, f01=0x0190, f02=» ( P CF A15,SOQUEU GET PREVIOUS POINTER I * I 0 , P CW A1,DWTDEV+DWTINQ,A6 ANY SPACE LEFT ? I : P RF(E) MZ90 NO ! I j PMZ75 EQU * I 6 P ST A1,DWTDEV+DWTUTQ,A6 STORE NEW OUTQUEUE POINTER I , ( LDK A2,/30 STORE ZERO IN CIRCULAR BUFF. I SCR A2,A1
0x24b750…24b8e4 Dummy {f00=0x00b8, f01=0x0190, f02=»6 UPPDATE POINTER I z 2 . LDK A1,/A SET RETURN CODE FOR BOTH LENGTH AND J ENB THROUGHPUT ERRORS J P * J p P ABL MKBEND J z P* J PMZ90 EQU * J P LDR A4,A4 ALL ZEROES ? J P RB(E) MZ80 YES J & P LDKL A2,/FFFF NO, MOVE IN-POINTER J
0x24b8e4…24ba78 Dummy {f00=0x00b8, f01=0x0190, f02=» ABORT ROUTINE J P* K , P**************************************** K " P* K R PABKB EQU * K & P CF A15,ABORT ABORT INPUT REQUEST K n P IFT CTIMUT=1 K P LD A4,DWTTP+DWTDEV,A6 K P RF(Z) ABKB05 NO TIMER ! K P CM* DWTTP+DWTDEV,A6 K $ P
0x24ba78…24bc0c Dummy {f00=0x00b8, f01=0x0190, f02=» END I/O ON KEYBOARD K * P SLC A4,2 GET ECHO-MODE INDICATION BIT L PABKB10 EQU * L J & P ABL(NN) LDISP NOT AN ECHO REQUEST L ^ P* L 4 P LD A4,DWTECH,A6 GET DWT-ADDRESS OF ECHO DEVICE L & P LD A3,DWTADR,A4 GET ADDRESS BLOCK L 6 P LD A3,ABTADR,A3 GET
0x24bc0c…24bda0 Dummy {f00=0x00b8, f01=0x40b2, f02=» DEVICE L j . P LDKL A5,DWTSB2 STACK BASE 2 DISPLACEMENT M P ADR A5,A6 ADD DWT-ADDRESS M B P* M d 0 P ABR A3 JUMP TO ABORT ROUTINE OF ECHO DEVICE M n P END M @ M OF ECHO DEVICE L & P LD A3,DWTADR,A4 GET ADDRESS BLOCK L 6 P LD A3,ABTADR,A3 GET
0x24bda0…24bf34 (1, 544) Dummy {f00=0x00b8, f01=0x2008, f02=» N #e DRKB04SC &8 & EGE LM ! 9 q 1 y q A ) Y ) ) YQ. !CTOR INPUT TAPE:; BLOCK f:; <m !! KB04SC q m 10 z
0x24bf34…24c0c8 Dummy {f00=0x00b8, f01=0x0012, f02=» ( 0 8 ( 8 @ H
0x24c0c8…24c25c Dummy {f00=0x00b8, f01=0x0190, f02=»9 Ed t Z : : @
0x24c25c…24c3f0 Dummy {f00=0x00b8, f01=0x0190, f02=» _ A :U A @ D D A A 4 @ ~ A r A ~ @ A F A @ A V A @ A b A @
0x24c3f0…24c584 Dummy {f00=0x00b8, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ | S A _ @ T
0x24c584…24c718 Dummy {f00=0x00b8, f01=0x0190, f02=» 8 / H M Q R S T J Y V G P : H L " V P I U _v A ~_ NO! A A A A A A A A *T A _ P A A . < , L + - ; # d $ j : X " H W* X " H H A W W L
0x24c718…24c8ac Dummy {f00=0x00b8, f01=0x0190, f02=» " ? F > " @ @ T " ( ^ @ P A A " @ 6T @ W @ A W W 0 _, W W Pf @ & 0 T* A P P V W _x
0x24c8ac…24ca40 Dummy {f00=0x00b8, f01=0x0190, f02=» ~ A | 6 ;a ]@ 1 6 _L W @ $ 0 W 6 A W @ A P 3P C @ P @ @ P @ Q A 6 @ A " T @ W @ A P A 6P ~ @ _2 ~ 6T < 0
0x24ca40…24cbd4 (1, 545) Opaque[0x194]
0x24cbd4…24cd68 # DirEnt {nam=»DRLP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1710, f03=0x0000}
0x24cbd4…24cd68 IdxSect {
0x24cbd4…24cd68 f00 = 0x00b8 // 0x24cbd4 @0x0
0x24cbd4…24cd68 f01 = 0x0008 // 0x24cbd6 @0x2
0x24cbd4…24cd68 gno = [ // 0x24cbd8 @0x4
0x24cbd4…24cd68 [0x00]: C0x00b8.0x2.0
0x24cbd4…24cd68 [0x01]: C0x00b8.0x3.0
0x24cbd4…24cd68 [0x02]: C0x00b9.0x0.0
0x24cbd4…24cd68 [0x03]: C0x00b9.0x1.0
0x24cbd4…24cd68 ]
0x24cbd4…24cd68 }
0x24cd68…24cefc Dummy {f00=0x00b8, f01=0x0190, f02=» 2 P IDENT DRLP01 REL 11.0 81-01-26 870105041100 P : 8 P =1,WHEN CHAN=1 DRIVER WILL SERVE BOTH MUX AND PC B P REL 10.0 80-03-14 ~ P* P* > P********************************************************** P* $ P* PHILIPS TE
0x24cefc…24d090 Dummy {f00=0x00b8, f01=0x0190, f02=»********************************************************** P* B P* L @ P* THIS DRIVER HANDLES ONE LINE PRINTER PTS 6881 CONNECTED V < P* TO CPU VIA CHLP ON MULTIPLEX CHANNEL OR PROGRAMMED P* CHANNEL P* P EJECT DRLP01
0x24d090…24d224 Dummy {f00=0x00b8, f01=0x0190, f02=» P ENTRY LPADR ADDRESS BLOCK " P ENTRY ACLP ACTIVATION DRIVER * " P ENTRY IHLP INTERRUPT HANDLER P P ENTRY LPON RECOVERY ROUTINE v & P ENTRY DWLP01 DWT FOR LINE PRINTER P P P P* P* , P************************
0x24d224…24d3b8 Dummy {f00=0x00b8, f01=0x0190, f02=» P EXTRN TDISP DISPATCHER P EXTRN TENDIO END I/O $ & P EXTRN SAVE8 SAVE 8 REGS ON STACK B P EXTRN DISIOE REQUEST ERROR l EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX A
0x24d3b8…24d54c Dummy {f00=0x00b8, f01=0x018e, f02=»K BASE 2 IN DWT ~ * P EXTRN INTSAV SAVE AREA LAST INTERRUPT * P EXTRN PFPOST PWF POST PROCESSING FLAG F P EJECT DRLP01 t P* P* " P***************************** " P* CONSTANTS * " P****************************
0x24d54c…24d6e0 Dummy {f00=0x00b8, f01=0x0190, f02=» P* . P***************************************** P* @ P* CONDITIONAL ASSEMBLY J P* h . P***************************************** r P* 0 P* IF X:A=0 THE DRIVER WILL ONLY SERVE MUX =1 8 P* IF X:A=1 THE DRIVER WILL SERVE BOTH
0x24d6e0…24d874 (1, 546) Dummy {f00=0x00b8, f01=0x0190, f02=»BTAINED BY SETTING MMUPAG EQU 1. P* ( PMMUPAG EQU 0 2 P* F P* P 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION Z . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P* MMU BUFFER SIZE
0x24d874…24da08 Dummy {f00=0x00b8, f01=0x0190, f02=»E PRINTER DEVICE INDEX ~ P* P EJECT DRLP01 ( P* @ P* J P*********************** T P* ORDERS * t P*********************** P* P* ORDER /00: TEST STATUS. 8 P* A TST INSTRUCTION IS E
0x24da08…24db9c Dummy {f00=0x00b8, f01=0x018e, f02=» THE REQUESTED NUMBER OF CHARACTERS ARE @ P* SENT TO THE LINE PRINTER WITHOUT ANY CHECK. 8 P* | $ P* ORDER /06: STANDARD WRITE. @ P* FIRST WORD IN ECB BUFFER CONTAINS A CONTROL P* CHARAC
0x24db9c…24dd30 Dummy {f00=0x00b8, f01=0x0190, f02=» < P* /31: SKIP TO TOP OF FORM BEFORE PRINTING > P* OTHER CHARACTERS GIVES A LINE FEED BEFORE D P* PRINTING. P* P* > P* CHARACTERS IN BUFFER SHOULD BE WITHIN THE > P*
0x24dd30…24dec4 Dummy {f00=0x00b8, f01=0x0190, f02=» MUST BE RESERVED FOR THE DRIVER TO STORE A $ P* PRINT CHARACTER. 8 P* ` P EJECT DRLP01 j P* P* ( P************************************ ( P* NORMAL REGISTER USAGE * ( P**************************
0x24dec4…24e058 Dummy {f00=0x00b8, f01=0x0190, f02=» A4 = BUFFER ADDRESS P* A5 = STACK BASE P* A6 = DWT ADDRESS 8 P* A7 = ORDER V P* A8 = ECB ADDRESS n P* P* $ P******************************** $ P* TABLES * $ P************************
0x24e058…24e1ec Dummy {f00=0x00b8, f01=0x018e, f02=»VATION DRIVER | " P DATA 0 ABORT ROUTINE ADDRESS P* < P EJECT DRLP01 F P* ^ P* h P* A C T I V A T I O N r P* P* PACLP EQU * P LDK A1,/0D CARRIAGE RETURN P LDR A7,A7 ORDER 0 ? P RF(NE) ACLP05 N
0x24e1ec…24e380 Dummy {f00=0x00b8, f01=0x0190, f02=» P RF ACLP30 P* $ PACLP05 LD A4,2,A8 BUFFER ADDRESS P LD A2,4,A8 REQ. LENGTH H P SUK A7,5 ORDER 5 ? h P RF(E) ACLP30 P SUK A7,1 ORDER 6 ? P RF(E) ACLP10 P* PACERR ABL DISIOE P* P EJECT DRLP01
0x24e380…24e514 (1, 547) Dummy {f00=0x00b9, f01=0x0190, f02=»NS AS FOR REQ. LENGTH=2 v P* PACLP12 EQU * * P LDR A3,A4 BUFFER ADDRESS > & P ADR A3,A2 ADDED WITH REQ. LENGTH ` $ P SCR A1,A3 STORE PRINT CHARACTER P ADK A2,1 P LCR A3,A4 P ECR A3,A3 & P LC A3,1,A4 GET CONTROL CHARACTE
0x24e514…24e6a8 Dummy {f00=0x00b9, f01=0x0190, f02=»T REQ. LENGTH ~ & P ADK A4,2 INCREMENT BUFFER ADDRESS P RF ACLP30 @ P* R PACLP15 LDK A1,/0A LINE FEED * P SC A1,1,A4 SECOND CHARACTER IN BUFFER P SUK A3,5 TWO LINE FEEDS ? P RF(E) ACLP20 YES P LDK A1,/0C TOP OF FORM
0x24e6a8…24e83c Dummy {f00=0x00b9, f01=0x0190, f02=» 4 PACLP20 SCR A1,A4 STORE FIRST CHARACTER IN BUFFER $ PACLP30 CF A5,CIOSTA SEND BUFFER @ P SUK A7,6 ORDER 6 ? h P RF(NE) ENDIO P LDR A2,A2 P RF(NN) ACLP35 4 P IM 6,A8 ADD FOR EXTRA CHAR. AT BUFFER END (/0D) P* PACLP
0x24e83c…24e9d0 Dummy {f00=0x00b9, f01=0x0190, f02=» b P ECR A3,A3 $ P SCR A3,A4 ALSO RESET FIRST BYTE P* B $ PENDIO CF A15,TENDIO END REQUEST L PEXIT ABL TDISP t P* P EJECT DRLP01 P* P* P* CIOSTA " P* SUBROUTINE TO SEND BUFFER P* P*
0x24e9d0…24eb64 Dummy {f00=0x00b9, f01=0x0190, f02=»,A6 END OF BUFFER INDICATOR =1 & P ST A4,DWTA4,A6 BUFFER POINTER =1 & P XIF =1 P 6 P ORKL A2,/4000 INDICATE CHARACTER MODE, OUTPUT AND b P IN RIGHT BYTE NUMBER OF P CHARACTERS TO SEND 0 P WER A2,MUXLP FIRST WRITE EXTERNAL REGISTER
0x24eb64…24ecf8 Dummy {f00=0x00b9, f01=0x0190, f02=»2,1,DWALP CIO START P RB(Z) EXIT P LDK A1,1 ERROR 0 P RB ENDIO H P* Z P EJECT DRLP01 d P* | P* P* RECOVERY ROUTINE P* P* PLPON EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON ST
0x24ecf8…24ee8c Dummy {f00=0x00b9, f01=0x0190, f02=»LE | P LDKL A6,DWLP01 DWT ADDRESS P LD A2,DWTST,A6 DWT STATUS . P RB(N) EXIT LP FREE P P RF IHLP30 l P* ~ P EJECT DRLP01 P* P* P* I N T E R R U P T P* P* PIHLP EQU * $ P ST P,INTSAV SAV
0x24ee8c…24f020 Dummy {f00=0x00b9, f01=0x018e, f02=» A2,DWTA4,A1 NEXT BYTE TO PRINT =1 " P OTR A2,0,DWALP WRITE ONE BYTE * P RF(NA) IHLP20 NOT ACCEPTED P , P IM DWTA4,A1 INCREMENT BUFFER POINTER =1 t 6 P IM DWTA3,A1 INCREMENT END OF BUFFER INDICATOR =1 " P RF(N) IHLP10 NOT LAST BYTE =1 P CIO
0x24f020…24f1b4 (1, 548) Dummy {f00=0x00b9, f01=0x0190, f02=» P* PIHLP20 EQU * =1 P LDR* A2,A15 =1 & P LDR* A1,A15 =1 > P XIF V P* b P IFT CPU852=1 =1 l ( P CF A15,SAVE8 SAVE A1-A8 ON STACK =1 P XIF =1 P* P IFT CPU852=0 =1 & P MSR 8,A15 SAVE A1-A8 ON STACK =
0x24f1b4…24f348 Dummy {f00=0x00b9, f01=0x0190, f02=» LD A7,DWTOR,A6 ORDER P ANK A7,/FF P LD A8,DWTECB,A6 ECB ADDRESS 2 P* V P LD A2,4,A8 =1 ` " P ST A2,6,A8 STORE EFF. LENGTH x $ P LD A5,DWTA5,A6 GET STACK VALUE P RTN A5 P* P EJECT DRLP01 P* P* D
0x24f348…24f4dc Dummy {f00=0x00b9, f01=0x0190, f02=» P DATA /8000 STATUS P DATA 0 ECB ADDRESS P DATA 0 ORDER : ( P DATA LPADR ADDRESS TO ADDRESS BLOCK P P DATA 0 TTAB ADDRESS | $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA US
0x24f4dc…24f670 Dummy {f00=0x00b9, f01=0x4108, f02=» DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT STACK @ P* X P IFT MMUPAG=1 b PDEVECB EQU * x P DATA 0 P DATA LP:BUF P DATA 0,0,0,0 PLP:BUF RES DVBLEN+1 P XIF P* P END @
0x24f670…24f804 Dummy {f00=0x00b9, f01=0x2008, f02=» P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR ( P DATA 0 TERMINAL QUEUE P P DATA 0 OUTPUT QUEUE LINK n P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P
0x24f804…24f998 Dummy {f00=0x00b9, f01=0x0190, f02=»WTWHA,A4 P IM DWTCOP,A6 NEXT HEAD P ADK A4,4 0 P LDR A1,A4 B P SUR A1,A6 T P SUK A1,DWTCOP-DWTWHA f P RB(L) FOR:60 NEXT HEAD P LDKL A1,/800 INTERUPT BIT P ORS A1,DWTWHA+16,A6 $ P CF A5,HOMEAD WRITE SECTOR MARKS
0x24f998…24fb2c Dummy {f00=0x00b9, f01=0x0190, f02=») FOR:10 NEXT CYLINDER P LDKL A2,MAXCYL-1 821 P IFT NUNITS=1 < $ P ST A2,DWTCYL,A6 CYLINDER NUMBER R P XIF z P IFT NUNITS=2 P CF A15,INXDWT $ P ST A2,DWTCYL,A4 CYLINDER NUMBER P XIF P RB DENDIO PERFORM ENDIO P*
0x24fb2c…24fcc0 Dummy {f00=0x00b9, f01=0x0190, f02=» * n 0 ,* INPUT ECB-PARAMETER CHECK * 0 ,* * F 0 ,******************************************** z * * PCD:000 EQU * P LDK A7,5 INDICATE WRITE PCD:010 EQU * &
0x24fcc0…24fe54 (1, 549) Opaque[0x194]
0x24fe54…24ffe8 # DirEnt {nam=»DRMD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1730, f03=0x0000}
0x24fe54…24ffe8 IdxSect {
0x24fe54…24ffe8 f00 = 0x00b9 // 0x24fe54 @0x0
0x24fe54…24ffe8 f01 = 0x000e // 0x24fe56 @0x2
0x24fe54…24ffe8 gno = [ // 0x24fe58 @0x4
0x24fe54…24ffe8 [0x00]: C0x00b9.0x2.0
0x24fe54…24ffe8 [0x01]: C0x00b9.0x3.0
0x24fe54…24ffe8 [0x02]: C0x00ba.0x0.0
0x24fe54…24ffe8 [0x03]: C0x00ba.0x1.0
0x24fe54…24ffe8 [0x04]: C0x00ba.0x2.0
0x24fe54…24ffe8 [0x05]: C0x00ba.0x3.0
0x24fe54…24ffe8 [0x06]: C0x00bb.0x0.0
0x24fe54…24ffe8 ]
0x24fe54…24ffe8 }
0x24ffe8…25017c Dummy {f00=0x00b9, f01=0x0190, f02=» 2 P IDENT DRMD01 REL 11.0 81-01-26 870105041100 P : < P =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY B P* P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P*
0x25017c…250310 Dummy {f00=0x00b9, f01=0x0190, f02=»* 6 P************************************************** P* D P* N 0 P* THIS DISC DRIVER HANDLES UP TO FOUR DISC X . P* DRIVES X1250 CONNECTED TO CPU VIA IOP P* ON MULTIPLEX CHANNEL P* P* * P* THE FOLLOWING ORDE
0x250310…2504a4 Dummy {f00=0x00b9, f01=0x0190, f02=»HYSICAL READ P* /15 PHYSICAL WRITE P* /1F FORMAT VOLUME 6 P* V P EJECT DRMD01 DRMD01 ` P* P* P*********** P* ENTRIES * P*********** P* P* $ P ENTRY MDADR ACTIVATION ADDRESS
0x2504a4…250638 Dummy {f00=0x00b9, f01=0x0190, f02=»* P* P************* P* EXTERNALS * * P************* @ P* V P* ` P EXTRN TDISP DISPATCHER j P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK P EXTRN DISIOE REQUEST ERROR P EXTRN VOL
0x250638…2507cc Dummy {f00=0x00b9, f01=0x0190, f02=»NIFLG INITIALIZATION FLAG & P EXTRN PFPOST PWF POST PROC. FLAG " . P EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS L P EXTRN SETIMP TIMER ~ EXTRN DWTST STATUS EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER EXTRN D
0x2507cc…250960 Dummy {f00=0x00b9, f01=0x018e, f02=» EXTRN DWTSB2 STACK BASE 2 IN DWT " P EXTRN DWTORD ORDER SAVE AREA * $ P EXTRN DWTVOL VOLUME NAME AREAS P $ P EXTRN ECBBA ECB BUFFER ADDRESS x & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RET
0x250960…250af4 (1, 550) Dummy {f00=0x00b9, f01=0x0190, f02=» P* P************************** P* * 0 P* CONDITIONAL ASSEMBLY * R P* * t P************************** P* P* 6 P* READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15 P*
0x250af4…250c88 Dummy {f00=0x00b9, f01=0x0190, f02=»ING h , P* IS OBTAINED BY SETTING MMUPAG EQU 1 P* < PMMUPAG EQU 0 F P* Z PCPU852 EQU 1 d P EJECT DRMD01 DRMD01 x P* P* P************* P* CONSTANTS * P************* P* P* & PCUADR
0x250c88…250e1c Dummy {f00=0x00b9, f01=0x0190, f02=»DAMD3 EQU CUADR+/20 DEVICE ADDRESS UNIT 3 . PDAMD4 EQU CUADR+/30 DEVICE ADDRESS UNIT 4 2 & PWERAD EQU CUADR+CUADR MUX ADDRESS d P* & PMAXSEC EQU 23400 MAX NO OF SECTORS , PSECLEN EQU 256 SECTOR LENGTH, CHARACTERS PQRETRY EQU 4 NO OF RET
0x250e1c…250fb0 Dummy {f00=0x00b9, f01=0x0190, f02=» $ P DATA 0 INDICATES NO MMU BUFFER " P DATA DEVIND DISC DEVICE INDEX , & PMDADR DATA MDAD ACTIVATION ADDRESS R " P DATA 0 ABORT ROUTINE ADDRESS | P* P EJECT DRMD01 P* P* P*********************** P*
0x250fb0…251144 Dummy {f00=0x00b9, f01=0x0190, f02=» EQU * ( P DATA /0004,/080C,/1014,/181C,/2024 ( P DATA /282C,/3001,/0509,/0D11,/1519 : ( P DATA /1D21,/2529,/2D31,/0206,/0A0E f ( P DATA /1216,/1A1E,/2226,/2A2E,/3203 ( P DATA /070B,/0F13,/171B,/1F23,/272B P DATA /2F33 * P
0x251144…2512d8 Dummy {f00=0x00b9, f01=0x0190, f02=»******** * P* PMDAD EQU * $ 6 P LD A1,DWTOR,A6 SAVE INDEX AND ORDER FOR RECOVERY 6 P ST A1,DWTORD,A6 p P CF A15,INXDWT & P LD A1,DWTCYL,A4 ACTUALL CYLINDER P ST A1,DWTSEK,A6 PMDAD:0 EQU * $ P CM DWTIOR,A6 PREPAR
0x2512d8…25146c Dummy {f00=0x00b9, f01=0x0190, f02=»WER INSTR. p P XIF P IFT MMUPAG=0 . P LDKL A3,/8080 PREPARE FOR 1:ST WER INSTR. 4 P XIF f LDR A1,A7 GET ORDER r RF(Z) TESTST TEST STATUS SUK A1,/01 P RF(Z) INI:01 BASIC READ SUK A1,/04 P RF(Z) INI:00 BA
0x25146c…251600 Dummy {f00=0x00b9, f01=0x0190, f02=»1,/0A P RF(Z) FORVOL FORMAT VOLUME ABL DISIOE INCORRECT ORDER 2 * V P EJECT DRMD01 ` * v * * ***************** * * * TEST STATUS * * * ************
0x251600…251794 (1, 551) Dummy {f00=0x00ba, f01=0x0190, f02=» P LDK A1,0 RESET RETURN CODE P ABL END:20 ( * < P EJECT DRMD01 F P* " P***************************** f " P* * " P* FORMAT VOLUME * " P* * " P**********
0x251794…251928 Dummy {f00=0x00ba, f01=0x018e, f02=»E l P ST A3,DWTSEK,A6 P LDK A3,2 ORDER CODE " P ST A3,DWTSEN,A6 > PFORV20 EQU * V P CF A5,CIO:00 j P ANK A1,2 P RF(NZ) FORV50 SEEK ERROR P LD A3,DWTSEK,A6 HEAD 1 P CF A5,CIO:00 P ANK A1,2 P RF(NZ) FORV
0x251928…251abc Dummy {f00=0x00ba, f01=0x0190, f02=» ~ P CWK A3,920 4*230 P RB(NG) FORV20 " 0 P LDKL A2,923 CYLINDER NUMBER AND SEEK ORDER 8 PFORV40 EQU * l P ABL END:15 PFORV50 EQU * P SUK A4,1 P RB(NN) FORV10 RETRY 2 P LDK A2,0 DUMMY CYLINDER NUMBER AND ORDER CODE
0x251abc…251c50 Dummy {f00=0x00ba, f01=0x0190, f02=»* t " * TEST OF INPUT PARAMETERS * " * ECBRL,ECBCW1 AND ECBCW2 * 0 " * * V " ***************************** | * * PINI:00 EQU * P IM DWTIOR,A6 WRITE ORDER " P ADKL A3,/4000 WER INSTRUCTI
0x251c50…251de4 Dummy {f00=0x00ba, f01=0x0190, f02=»NCLEN ERROR $ ECR A3,A1 GET NUMBER OF SECTORS ANK A1,/FF < . P RF(NZ) INCLEN INCORRECT REQUESTED LENGTH P & " LD A2,ECBCW2,A8 GET SECTOR NUMBER P RF(N) INCLEN * P NGR A1,A3 NEGATE FOR SECTOR COUNTING , P ST A1,DWTSEN,A6 NUMBER
0x251de4…251f78 Dummy {f00=0x00ba, f01=0x0190, f02=» SUKL A3,MAXSEC P RF(NP) INI:20 * %INCLEN LDKL A1,/8008 INCORRECT LENGTH 2 P ABL END:15 ` * t P EJECT DRMD01 ~ * * ( #*********************************** * ( #* TRANSFER LOGICAL SECTOR NUMBER * (
0x251f78…25210c Dummy {f00=0x00ba, f01=0x018e, f02=»********************************* * * * 4 PINI:20 EQU * > & P LD A1,ECBBA,A8 GET BUFFER ADDRESS R 8 P ST A1,DWTWE2,A6 PREPARE FOR SECOND WER INSTRUCTION | P LDK A1,0 PINI:22 EQU * P LDK A4,QRETRY DVK 104 0 +* A
0x25210c…2522a0 Dummy {f00=0x00ba, f01=0x0190, f02=» P EJECT DRMD01 P* P* ( * P SLL A2,2 CYLINDER NUMBER IN POSITION 2 P ADK A2,3 SEEK ORDER CODE ` * P CW A2,DWTSEK,A6 TEST IF SAME CYLINDER P RF(E) INI:35 PINI:30 EQU * * P IM DWTSFL,A6 INDICATE SEEK TO BE DONE 4 P
0x2522a0…252434 (1, 552) Dummy {f00=0x00ba, f01=0x0190, f02=» P* PINI:35 EQU * P LDK A3,0 HEAD NO 0 " , P CWK A1,52 SECTOR ON 1:ST OR 2:ND TRACK > P RF(L) INI:40 n P SUK A1,52 P LDKL A3,/4000 HEAD NO 1 P* P* 8 P* GET PHYSICAL SECTOR NUMBER AND PREPARE DWTIOR,A6 P*
0x252434…2525c8 Dummy {f00=0x00ba, f01=0x018e, f02=» l ( P SUK A1,26 SKEW FACTOR = 26 SECTORS P RF(NN) INI:42 4 P ADK A1,52 J PINI:42 EQU * $ P SLL A1,2 SECTOR NO IN POSITION p P ADR A1,A3 HEAD NUMBER 4 P ORS A1,DWTIOR,A6 SAVE IN CIO REGISTER SAVE AREA & P LD A1,DWTSFL,A6 SEEK TO B
0x2525c8…25275c Dummy {f00=0x00ba, f01=0x0190, f02=» v P ADK A1,0 P RF(Z) INI:44 NO RETURN CODE $ P LDKL A2,/100 RETRIES PERFORMED > P ORS A2,ECBRC,A8 f P SUK A4,1 ~ P RB(NZ) INI:43 RETRY * P LDK A2,0 DUMMY CYL NO AND ORDER CODE P RF END:15 NO MORE RETRIES PINI:44 EQU *
0x25275c…2528f0 Dummy {f00=0x00ba, f01=0x0190, f02=»ERFORM IO P ADK A1,0 CHECK RETURN CODE P RF(Z) INI:50 OK 6 P LDKL A2,/100 RETRIES DONE N P ORS A2,ECBRC,A8 p P SUK A4,1 RETRY COUNTER P RB(NZ) INI:45 RETRY P RF END:15 P* P EJECT DRMD01 P* P*
0x2528f0…252a84 Dummy {f00=0x00ba, f01=0x0190, f02=»SAVE ORDER TYPE ~ P IFT RAW=1 P SUK A7,/15 * & P RF(NZ) INI:52 NOT PHYSICAL WRITE > * P LD A2,DWTIOR,A6 CHECK IF READ IS DONE h P RF(NZ) INI:54 4 P LDK A4,0 SAME BUFFER FOR READ AFTER WRITE TEST PINI:52 EQU * P XIF , P ADS
0x252a84…252c18 Dummy {f00=0x00ba, f01=0x0190, f02=»NE t P* P IFT MMUPAG=0 , P ADS A4,DWTWE2,A6 UPDATE BUFFER ADDRESS * P XIF Z P* f P IFT MMUPAG=1 p P ADK A4,0 & P RF(Z) INI:60 READ AFTER WRITE ON & P ML 2,DWTWE1,A6 GET WER REGISTERS 4 P SLC A1,4 BIT 0,1 OF BUFFER
0x252c18…252dac Dummy {f00=0x00ba, f01=0x0190, f02=» DRMD01 P* P* P ANK A1,3 BIT 0,1 $ P ANKL A3,/FFFC > P ORR A1,A3 1ST WER T P SRC A1,4 IN POSITION n P SLL A2,1 P MS 2,DWTWE1,A6 PINI:60 EQU * P XIF P* P LDK A4,QRETRY RETRIES 2 P IM DWTSEC
0x252dac…252f40 Dummy {f00=0x00ba, f01=0x0190, f02=» CWK A1,104 NEXT CYLINDER ? P RB(L) INI:35 SAME CYLINDER $ P CM DWTSEC,A6 NEW CYLINDER H P LDK A1,0 SECTOR 0 j P ADK A2,4 NEXT CYLINDER , P RB INI:30 IO ON SEC. 0 ON NEXT CYLINDER P EJECT DRMD01 * * *
0x252f40…2530d4 (1, 553) Dummy {f00=0x00ba, f01=0x0190, f02=» | ******************** * $ PSEEK EQU * . P LD A3,DWTSEK,A6 @ P RF CIO:00 X * j CIO EQU * t , P LD A3,DWTWE1,A6 GET 1ST WER INST. REG. P WER A3,WERAD , P LD A3,DWTWE2,A6 GET 2ND WER INST. REG. P WER A3,WERA
0x2530d4…253268 Dummy {f00=0x00ba, f01=0x0190, f02=») CIOAB PWF POST PROCESSING ON P CF A15,INXDWT & P EX DWTCIO,A4 < LDK A1,1 R $ P RF(3) END:30 CU ADDRESS UNKNOWN d PCIOAB EQU * ST A5,DWTA5,A6 P RF T:DISP P* P EJECT DRMD01 P* P* PEND:00 EQU
0x253268…2533fc Dummy {f00=0x00ba, f01=0x0190, f02=»2,1 ( P RF(Z) END:10 READ AFTER WRITE DONE P LDKL A1,/8001 8 0 P ST A1,DWTWE1,A6 READ ONE WORD TO CHECK CRC N $ P LDKL A1,BUFF DRIVER WORK BUFFER 0 P ST A1,DWTWE2,A6 BUFFER ADDRESS TO 2:ND WER P CM DWTIOR,A6 , P LD A1,BUFF GET NUMB
0x2533fc…253590 Dummy {f00=0x00ba, f01=0x0190, f02=»NI:22 P XIF ! PEND:10 EQU * ! . P LD A2,DWTSEK,A6 GET CYL NO AND ORDER CODE ! . PEND:15 EQU * ! ` P CF A15,INXDWT ! t P ST A2,DWTCYL,A4 ! PEND:20 EQU * ! P CF A15,TENDIO PERFORM ENDIO ! PT:DISP ABL TDISP ! P* ! ( PEND:30 EQU *
0x253590…253724 Dummy {f00=0x00ba, f01=0x0190, f02=»* ! P* " PVO:NAM EQU * " . P CM DWTSAV,A6 INDICATE VOLUME NAME READING " ( P LDK A1,6 " Z P CF A15,VOLCLR " l P LDK A1,3 " , P ST A1,DWTSEK,A6 SEEK PREPARATION CYL 0 " P CF A5,SEEK " P LDK A2,0 " P ANK A1,/3 RETURN CODE " P
0x253724…2538b8 Dummy {f00=0x00ba, f01=0x0190, f02=»DDRESS TO DWT VOLUME NAME " | P ST A1,DWTWE2,A6 READ TO DWT # " P CM DWTIOR,A6 READ SECTOR 0 # F P CF A5,CIO # j P LD A2,DWTSEK,A6 # | PVO:NA8 EQU * # P CF A15,INXDWT # P ST A2,DWTCYL,A4 # P LDKL A2,-1 # $ P ST A2,DWTSAV,A6 INDICATE READ
0x2538b8…253a4c Dummy {f00=0x00ba, f01=0x0190, f02=»ERY ROUTINE * # P* * $ P********************** $ 4 P* $ R PMDON EQU * $ P IFT CPU852=0 $ n " P MSR 8,A15 SAVE A1-A8 ON STACK $ P XIF $ P IFT CPU852=1 $ P CF A15,SAVE8 $ P XIF $ P LDKL A6,DWMD01 $ 4 P L
0x253a4c…253be0 Dummy {f00=0x00ba, f01=0x0190, f02=»* $ ( P LDKL A4,TIMER TIMER POINTER ADDRESS % P LDR* A3,A4 % 6 " P RF(Z) MDON10 NO TIMER ACTIVE % J P LDKL A1,-TIME % p P STR A1,A3 RESTART TIMER % P RB T:DISP % P* % $ PMDON10 CF A15,SETIMP START TIMER % , P DATA MDON20,TIME TIME OUT ADD
0x253be0…253d74 (1, 554) Dummy {f00=0x00ba, f01=0x0190, f02=»JECT DRMD01 % P* & P* & PMDON25 EQU * & * P LDKL A5,DWTSB2 STACK BASE & > P ADR A5,A6 & ` P LDK A1,0 UNIT 0 & r PMDON30 ST A1,DWTOR,A6 & " P CF A5,VO:NAM GET VOLUME NAME & P LD A1,DWTOR,A6 & P ADKL A1,/100 NEXT UNIT & P C
0x253d74…253f08 Dummy {f00=0x00ba, f01=0x0190, f02=»ND:15 NOREQUEST ON & P* ' P LD A7,DWTORD,A6 GET ORDER ' $ , P ST A7,DWTOR,A6 RESTORE INDEX AND ORDER ' F P ANK A7,/3F ' v P ABL MDAD:0 ' P* ' P* ' P EJECT DRMD01 DRMD01 ' P* ' P* ' P*********************** ' P*
0x253f08…25409c Dummy {f00=0x00ba, f01=0x018e, f02=»* ' PIHMD EQU * ( " P MSR 8,A15 SAVE A1-A8 ON STACK ( P LDKL A6,DWMD01 DWT ADDRESS ( B P* ( f P SST A1,CUADR GET STATUS ( p " P ANKL A1,/617 MASK RETURN CODE ( P LDR A2,A1 ( P ANKL A2,/610 MOVE BITS ( P SRC A2,5 PROGRAM ERROR BIT (
0x25409c…254230 Dummy {f00=0x00ba, f01=0x018e, f02=» ( $ P ANKL A1,/8007 MASK RETURN CODE ) P LD A2,DWTSAV,A6 ) 0 P RF(NN) GET ) H P LDR A3,A1 ) P ANKL A3,/8001 ) n : P RB(NZ) END:15 DISC UNIT NOT OPERABLE OR REQUEST ERROR ) P* ) * PGET LD A5,DWTA5,A6 RELOAD REGISTERS A5 ) ( P LD A4,DWTA4,A
0x254230…2543c4 Dummy {f00=0x00ba, f01=0x0190, f02=» ) P* * P* TIMER POINTER * PTIMER DATA 0 TIMER POINTER * * P IFT RAW=1 * L P* BUFFER * ^ PBUFF DATA 0 * p P XIF * P* * P EJECT DRMD01 DRMD01 * P* * P* * * P* DEVICE WORK TABLE DISC UNIT NO. 1 * P* * P*
0x2543c4…254558 Dummy {f00=0x00ba, f01=0x0190, f02=»0 ORDER * " P DATA MDADR ACTIVATION ADDRESS + P DATA 0 TTAB ADDRESS + 6 $ P DATA 0 WAIT/ACTIVATE INDICATOR + R P DATA 0 TERMINAL QUEUE + z IFT MMUPAG=1 + & " DATA 0 SAVE AREA USER ECB ADDRESS + P DATA ECBMD1 MMU ECB ADDRESS + XIF + P
0x254558…2546ec Dummy {f00=0x00ba, f01=0x0190, f02=» + P DATA 0 ORDER SAVE AREA , P DATA /C000 , ( P DATA /C000 , < P DATA /C000 , P P DATA /C000 , d . P DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 1 , x . P DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 2 , . P DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 3 ,
0x2546ec…254880 Dummy {f00=0x00ba, f01=0x0190, f02=» *-DWMD01 , & P DATA 0 2:ND WER INSTRUCTION REG. - PDWTIOR EQU *-DWMD01 - < , P DATA 0 CIO REG: HEAD, DWTSEC,A6, ORDER - X PDWTSEK EQU *-DWMD01 - & P DATA 0 SEEK REG: CYL NO AND ORDER - PDWTSFL EQU *-DWMD01 - P DATA 0 SEEK FLAG - PDWTS
0x254880…254a14 (1, 555) Dummy {f00=0x00bb, f01=0x412e, f02=»2 UNIT 2 - P CIO A3,1,DAMD3 UNIT 3 . P CIO A3,1,DAMD4 UNIT 4 . . PDWTCYL EQU *-DWMD01 . L 0 P DATA 0 CYLINDER NUMBER AND SEEK ORDER CODE . h P DATA 0 . P DATA 0 . P DATA 0 . P IFT MMUPAG=1 . PECBMD1 EQU * . P DATA 0,0,0,0,0,0,
0x254a14…254ba8 Dummy {f00=0x00bb, f01=0x2008, f02=» / TORS DONE | *SUBTRRACT A3 FROM NOSEC RTN A5 : END J@ V ADK A2,1 NEXT HALFTRACK Z ADKL A3,/4034 z ANKL A3,/7FFF UPSEC7 EQU * & " ST A3,CIOREG CIO REGISTER UPDATED ( # LD A3,WER2ND GET 2:ND WER REGISTER
0x254ba8…254d3c Dummy {f00=0x00bb, f01=0x018e, f02=» $ P* INTERTASK DRIVER BUFFER (MMU) P* 0 PIT:BUF EQU * : P IFT MMUPAG=1 N P RES DVBLEN+1 MMU BUFFER d P XIF P* P EJECT DRIC01 P* P* A C T I V A T I O N P* P* ORDERS: P* P* /02
0x254d3c…254ed0 Dummy {f00=0x00bb, f01=0x018e, f02=» t P* A6 = DWT ADDRESS P* A7 = ORDER CODE " P* A8 = ECB ADDRESS < * P* A12= ADDRESS TO DRIVER ADDRESS BLOCK V P* PICAD EQU * P LDR A1,A7 ORDER CODE * P LD A7,ECBCW,A8 TASK ID OR TIME VALUE P SUK A1,/02 P RF(Z) R
0x254ed0…255064 Dummy {f00=0x00bb, f01=0x0190, f02=» r P* P EJECT DRIC01 P* * P* S E T T I M E O U T 4 P* V P ST A7,DWTIME,A6 ` P RF END:IO x P* P* REQUEST ERROR EXIT P* $ PDIS:OE ABL DISIOE REQUEST ERROR P* P EJECT DRIC01 P*
0x255064…2551f8 Dummy {f00=0x00bb, f01=0x0190, f02=»(Z) RD:NAD NOT-ADDRESSED READ REQUEST P* . P* WRITE REQUEST ENTRY 8 P* V 8 PWRITE EQU * CHECK IF ADDRESSED WRITE REQUEST OR NOT ` P ADK A7,0 CHECK ADDRESS MODE . P RF(Z) WR:NAD NOT-ADDRESSED WRITE REQUEST P* P EJECT DRI
0x2551f8…25538c Dummy {f00=0x00bb, f01=0x0190, f02=»DRESSED TASK | P* & P CF A15,FNDTID TTAB ADDRESS TO A2 P ADK A2,0 SET CR H P RB(Z) DIS:OE NOT FOUND ` 4 P ADKL A2,TTB:TD ADDRESS TO TERMINAL DEVICE TABLE P LDR* A1,A2 TABLE LENGTH $ P LDR A7,A12 DRIVER ADDRESS BLOCK 6 P XRK A7,
0x25538c…255520 Dummy {f00=0x00bb, f01=0x0190, f02=» 0 PITC:05 ADK A2,4 ADDRESS TO NEXT DWT ADDRESS P SUK A1,4 < P RB(N) DIS:OE NOT FOUND N P* n P LDR* A4,A2 DWT ADDRESS x " P CW A7,DWTADR,A4 SEARCHED DWT P RB(NE) ITC:05 NO, TRY NEXT P* P LDR A2,A4 P LD A1,DWT
0x255520…2556b4 (1, 556) Opaque[0x194]
0x2556b4…255848 # DirEnt {nam=»DRMS02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1768, f03=0x0000}
0x2556b4…255848 IdxSect {
0x2556b4…255848 f00 = 0x00bb // 0x2556b4 @0x0
0x2556b4…255848 f01 = 0x0012 // 0x2556b6 @0x2
0x2556b4…255848 gno = [ // 0x2556b8 @0x4
0x2556b4…255848 [0x00]: C0x00bb.0x1.0
0x2556b4…255848 [0x01]: C0x00bb.0x2.0
0x2556b4…255848 [0x02]: C0x00bb.0x3.0
0x2556b4…255848 [0x03]: C0x00bc.0x0.0
0x2556b4…255848 [0x04]: C0x00bc.0x1.0
0x2556b4…255848 [0x05]: C0x00bc.0x2.0
0x2556b4…255848 [0x06]: C0x00bc.0x3.0
0x2556b4…255848 [0x07]: C0x00bd.0x0.0
0x2556b4…255848 [0x08]: C0x00bd.0x1.0
0x2556b4…255848 ]
0x2556b4…255848 }
0x255848…2559dc Dummy {f00=0x00bb, f01=0x0190, f02=» 2 P IDENT DRMS02 REL 11.0 81-01-26 870105041100 P : P B P* J 6 P************************************************* T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRMS02 = DRIVER MAGNETIC STRIPE P* P*
0x2559dc…255b70 Dummy {f00=0x00bb, f01=0x0190, f02=»IS DRIVER HANDLES INPUT/OUTPUT ON THE D P* M A G N E T I C S T R I P E U N I T (M S U) PTS 6266. . > P* THE MSU MUST BE CONNECTED TO THE CPU VIA CHLT OR CHRT. v P* @ P* TRACK 2 AND 3 ON STRIPES CAN BE READ AND TRACK 3 CAN BE P*
0x255b70…255d04 Dummy {f00=0x00bb, f01=0x0190, f02=»IS VERSION OF DRIVER h P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: & P* Z $ P* A C M S : ACTIVATION PART d $ P* ORDER PROCESSOR & P* I H M S : INTERRUPT HANDLER & P* O N M S : RECOVERY ROUTINE P
0x255d04…255e98 Dummy {f00=0x00bb, f01=0x0190, f02=»READ P* /06 WRITE CARD WRITE $ P* /0A READ CARD RANDOM READ . P* /21 OPEN - V * P* /26 END OF OPERATION DSC0 CC=4 p $ P* /31 RESET CIRCULAR BUFFER $ P* /37 INSERT CARD DSC0 CC=0 P* P* * P* TH
0x255e98…25602c Dummy {f00=0x00bb, f01=0x0190, f02=»WRITE WARNING ~ " P* 12 INCORRECT LENGTH * P* 13 NEGATIVE ACKNOWLEDGEMENT < " P* 14 THROUGHPUT ERROR j P* 15 NOT OPERABLE P* P* P* NORMAL USE OF REGISTERS: P* " P* REGISTER A1 R
0x25602c…2561c0 Dummy {f00=0x00bb, f01=0x0190, f02=»NTER t * P* A5 STACK BASE POINTER " P* A6 DWT ADDRESS : P* A7 ORDER ` " P* A8 ECB ADDRESS P* P EJECT DRMS02 P* P*********** P* ENTRIES * P***********
0x2561c0…256354 (1, 557) Dummy {f00=0x00bb, f01=0x0190, f02=»* EXTERNAL ROUTINES & P EXTRN LENDER I/O REQUEST ERROR =1 $ P EXTRN OUTPUT SEND CHARACTER =1 H P EXTRN LDISP DISPATCHER =1 p 0 P EXTRN NDGET8 RELOAD REGISTERS AND RETURN =1 P EXTRN TENDIO END I/O =1 2 P EXTRN GETCHR HET CHARACTER FROM E
0x256354…2564e8 Dummy {f00=0x00bb, f01=0x0190, f02=» EXTRN INPUT READ CHARCTER =1 P* & P* DWT DISPLACEMENTS 0 $ P EXTRN DWTST DWT SOFTWARE STATUS N P EXTRN DWTECB ECB-ADDRESS v P EXTRN DWTOR ORDER P EXTRN DWTSB2 STACK BASE P* P* ECB DISPLACEMENTS P EXTRN ECBBA B
0x2564e8…25667c Dummy {f00=0x00bb, f01=0x0190, f02=» ECBCW CONTROL WORD P* P EJECT DRMS02 & P* > P************************ H P* CONDITIONAL ASSEMBLY * h P************************ P* P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING M
0x25667c…256810 Dummy {f00=0x00bb, f01=0x0190, f02=» OBTAINED BY SETTING CPU852 EQU 0. P* * PCPU852 EQU 1 4 P* H P* R P* MMU BUFFER SIZE (BYTES) P* PX:A EQU 108 PDVBLEN EQU X:A P* P* . PX:B EQU 10 LENGTH OF CIRCULAR INPUT BUFFER 2 PDWTLNG EQU X:B
0x256810…2569a4 Dummy {f00=0x00bb, f01=0x0190, f02=» P* $ P* MAGNETIC STRIPE CHARACTERS ( PCRWSTX EQU /3B CARD START CHARACTER 6 0 PCRDSTX EQU /3D START CHAR, GERMAN BOOK (DIN) b PCRWETX EQU /3F END CHARACTER P* " P* STATUS MESSAGES FROM MSU $ PDOCINS EQU /C DOCUMENT INSERTE
0x2569a4…256b38 Dummy {f00=0x00bb, f01=0x0190, f02=» x PWROK EQU /B WRITE OKAY P* & P* COMMANDS TO MSU 0 PRESET EQU 2 GENERAL RESET L ( PSELTRA EQU 6 SELECT TRACK 2 FOR READ n PENCTRA EQU 5 ENCODE TRACK 3 0 PREATRD EQU 8 READ TRACK 3 GERMAN BOOK (DIN) 2 PENCTRD EQU 9 ENCODE TR
0x256b38…256ccc Dummy {f00=0x00bb, f01=0x0190, f02=»N r P* P* MISCELLANEOUS " PRTRIES EQU 2 NUMBER OF RETRIES . P* T P EJECT DRMS02 ^ P* v P* RETURN CODES " PREQERR EQU /8000 REQUEST ERROR & PWARNRW EQU /20 READ/WRITE WARNING " PCARMIS EQU /2000 CARD MISSING
0x256ccc…256e60 Dummy {f00=0x00bb, f01=0x0190, f02=» EQU 1 NOT OPERABLE P* P EJECT DRMS02 & P* > P******************** H P* DWT-DISPLACEMENT * d P******************** P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTD
0x256e60…256ff4 (1, 558) Dummy {f00=0x00bb, f01=0x018e, f02=»TER =1 x PDWTSEC EQU /4 @ PDWTFRT EQU /6 BIT 0 CREDIT CARD / GERMAN BANK BOOK FLAG =1 $ P BIT 1-7 NOT USED =1 h * P BIT 8-15 RETRY COUNTER SAVE AREA =1 & PDWTLRC EQU /8 LRC - ACKUMULATOR =1 * * CIRCULAR INPUT BUFFER
0x256ff4…257188 Dummy {f00=0x00bb, f01=0x018e, f02=» p ( PDWTEQ EQU DWTSQ+DWTLNG END OF BUFFER * 4 P EJECT DRMS02 > P* V P********** ` P* TABLES * r P********** P* P DATA DVBLEN MMU BUFFER SIZE P DATA 2 MMU DEVICE INDEX PMSAD EQU * P DATA ACMS ACTIVAT
0x257188…25731c Dummy {f00=0x00bb, f01=0x0190, f02=» P* P* PTAB EQU * ORDER TABLE " P DATA /060A,/3726,/2102,/3100 6 & PTABL EQU *-TAB-1 NUMBER OF ENTRIES P* ( PMSFUN EQU * MAGNETIC STRIPE FUNCTION P DATA WRITE,READ,INSERT P DATA ENDOP,OPEN 6 P DATA RDPIN,RST READ
0x25731c…2574b0 Dummy {f00=0x00bb, f01=0x0190, f02=»CKS VALIDITY OF ORDERS x 0 P* AND STARTS PROCESSING. P* R P* PACMS EQU * f " P LDK A1,0 RESET RETURN CODE =2 x P LDK A3,0 RESET BUFFER INDEX P LDK A4,TABL-1 0 PACMS10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER
0x2574b0…257644 Dummy {f00=0x00bb, f01=0x0190, f02=» =1 t P ABL LENDER REQUEST ERROR =1 P* 0 PACMS20 EQU * : P ADR A4,A4 GET INDEX N 2 P ABI MSFUN,A4 BRANCH TO VALID FUNCTION MODULE j P* P EJECT DRMS02 P* $ P******************************** P* P* R E A D
0x257644…2577d8 Dummy {f00=0x00bb, f01=0x0190, f02=» = 0 p P RF(E) OPEN20 YES END I/O P LDR A3,A3 FIRST TIME . P RF(NE) RDP020 NO L " P LD A1,ECBBA,A8 BUFFER ADRESS f " P SUK A1,1 ADJUST BUFFER ADRESS P ADR A1,A2 END OF BUFFER PRDP010 EQU * P SCR A3,A1 CLEAR ECB BUFFER
0x2577d8…25796c Dummy {f00=0x00bb, f01=0x0190, f02=»ACTER ;CHECK IF OVERFLOW p P LCR A2,A1 GET CHARACTER P LDR A4,A2 @ P XRK A4,/FF OVERFLOW T P RF(NE) RDP030 NO p P SCR A4,A1 YES * P LDK A1,2 SET OVERFLOW IN RETURN CODE P RF ENDIO END I/O REQUEST PRDP030 EQU * . P CW
0x25796c…257b00 Dummy {f00=0x00bb, f01=0x0190, f02=»P040 EQU * * P CF A15,EOQUEU SET NEW BUFFER POINTER * P ST A1,DWTDEV+DWTUTQ,A6 SET NEW BUFFER @ PRDP047 EQU * n & P CW A3,ECBRL,A8 REQ.LEN = EFF.LEN P RF(NL) RDP080 YES ; ERROR $ P LD A1,ECBCW,A8 KEY TABLE ADRESS P RF(Z) RDP060 NO
0x257b00…257c94 (1, 559) Dummy {f00=0x00bc, f01=0x0190, f02=» * P SUK A4,1 , P RF(N) RDP060 KEY NOT FOUND IN KEY TABLE P SUK A1,1 NEXT KEY L P CCR A2,A1 FOUND f P RB(NE) RDP050 NO ~ . P ADK A4,1 KEY FOUND ; MAKE KEY TABLE INDEX PRDP055 EQU * 0 P ST A4,ECBCW,A8 STORE INDEX IN CONTROL WOR
0x257c94…257e28 Dummy {f00=0x00bc, f01=0x0190, f02=»RDP060 EQU * < P CWK A2,/0D NO KEY TABLE CHECK IF STANDARD END OF RECORD P RF(NE) RDP070 NOT EOR - KEY T ( P LDK A4,1 SET INDEX TO STANDARD EOR x P RB RDP055 END I/O PRDP070 EQU * 0 P CF A15,STORE STORE CHARACTER IN ECB BUFFER " P R
0x257e28…257fbc Dummy {f00=0x00bc, f01=0x0190, f02=»2 P* " P***************************** P* : " P* R S T CIRCULAR INPUT BUFFER D P* j & P********************************* t P* P* PRST EQU * P INH 2 P LD A2,DWTDEV+DWTINQ,A6 POINTER TO FIRST PLACE S
0x257fbc…258150 Dummy {f00=0x00bc, f01=0x018e, f02=»JECT DRMS02 P* 6 P************************************************** P* Z P* OPEN /21 d P* x 2 P* THE DRIVER IS SET TO HANDLE EITHER CREDIT 6 P* CARDS/AMERICAN PASSBOOKS OR GERMAN PASSBOOKS. P* P* REGISTER I
0x258150…2582e4 Dummy {f00=0x00bc, f01=0x0190, f02=» P* POPEN EQU * P LD A2,ECBCW,A8 FORMAT CODE $ 2 P RF(NZ) OPEN10 NOT CREDIT CARD / AMERICAN BOOK H " P LDKL A2,/7FFF MASK FOR BIT 0 ~ : P ANS A2,DWTFRT+DWTDEV,A6 CLEAR FORMAT FLAG, INDICATING $ P* CREDIT CARD / AMERICAN BOOK
0x2582e4…258478 Dummy {f00=0x00bc, f01=0x0190, f02=» " P LDKL A2,/8000 MASK FOR BIT 0 . P ORS A2,DWTFRT+DWTDEV,A6 SET FORMAT FLAG, * P* INDICATING GERMAN BOOK P* ~ POPEN20 EQU * P LDK A1,0 RETURN CODE P RF ENDIO EXIT P* P EJECT DRMS02 P* 6 P************
0x258478…25860c Dummy {f00=0x00bc, f01=0x0190, f02=»************************************ P* , PENDOP EQU * =2 6 P LDK A4,DOCESC =2 N P RF COMMON =2 h PINSERT EQU * =2 ~ P LDK A4,DOCINS =2 P CC A4,DWTDEV+1,A6 =2 . P RF(E) ENDIO DOCUMENT ALREADY INSERTED =2 PCOMMON E
0x25860c…2587a0 Dummy {f00=0x00bc, f01=0x0190, f02=»RESET GENERAL RESET P CF A5,OUTPUT SEND IT $ P RF(NZ) ERRMS1 ERROR END I/O =1 : P CF A5,ENDBLK END BLOCK =1 b $ P RF(NZ) ERRMS1 ERROR END I/O =1 P CC A4,DWTDEV+1,A6 =2 , P RF(E) ENDIO DOCUMENT ALREADY ESCAPED =2 * P CF A5,INPUT W
0x2587a0…258934 (1, 560) Dummy {f00=0x00bc, f01=0x0190, f02=»-DOCINS =2 & P RF(E) COM100 DOCUMENT ESCAPED =2 & P LDK A1,THRERR THROUGHPUT ERROR =2 > PCOM100 EQU * =2 h 0 P SC A3,DWTDEV+1,A6 UPDATE DOCUMENT STATUS =2 P EJECT DRMS02 P* $ P* END OF INPUT/OUTPUT REQUEST P* P
0x258934…258ac8 Dummy {f00=0x00bc, f01=0x0190, f02=»******************************** ~ P* ( P* READ CARD /0A 2 P* N 6 P************************************************** X P* PREAD EQU * " P LC A2,DWTDEV+1,A6 GET STATUS P ANK A2,/FF & P SUK A2,DOCINS DOCUMENT INSERTED
0x258ac8…258c5c Dummy {f00=0x00bc, f01=0x0190, f02=»K SIZE =1 | P CF A5,STABLK START BLOCK =1 $ P RF(NZ) ERRMS1 ERROR END I/O =1 6 P LDK A3,0 RESET BUFFER INDEX ^ ( P LD A2,DWTFRT+DWTDEV,A6 FORMAT CODE P RF(N) READ20 GERMAN BOOK P* P EJECT DRMS02 P* . P* READ CR
0x258c5c…258df0 Dummy {f00=0x00bc, f01=0x0190, f02=»1 P ABL(G) MSERR TRACK > 3 ! * P ADK A2,SELTRA COMPUTE TRACK TO SELECT ! * P* ! X 6 P CF A5,OUTPUT SEND READ TRACK COMMAND (/06 OR /07) ! b $ P RF(NZ) ERRMS1 ERROR END I/O =1 ! " P CF A5,ENDBLK END OF BLOCK =1 ! $ P RF(NZ) ERRMS1 ERROR END I/O =
0x258df0…258f84 Dummy {f00=0x00bc, f01=0x0190, f02=»RRECT LENGTH. EXIT ! t P* " P SUK A4,1 MORE RETRIES? " $ & P RB(NN) READ10 YES, PERFORM RETRY " D P RB ENDIO NO, EXIT " n P* " P EJECT DRMS02 " P* " PREAD20 EQU * " P* READ GERMAN PASSBOOK " P LDK A2,REATRD " 2 P CF A5,O
0x258f84…259118 Dummy {f00=0x00bc, f01=0x018e, f02=»RMS1 EQU * ERROR END I/O =1 " $ P RF(NZ) ERRMS2 ERROR END I/O =1 # $ " P CF A5,REABLK READ FIRST BLOCK # L $ P CWK A1,INCLEN BUFFER OVERFLOW? # r P RB(E) ENDIO YES, EXIT # P* # 0 P SC A4,DWTFRT+DWTDEV+1,A6 SAVE RETRY COUNTER # P LDR A4,A1 SAVE RE
0x259118…2592ac Dummy {f00=0x00bc, f01=0x018e, f02=» P CWR A1,A4 $ . P RF(E) READ30 BOTH BLOCKS OK OR BOTH WRONG $ P* $ H , P* ONE BLOCK WAS OK, ONE WAS ERRONEOUS $ R 4 P LDK A1,WARNRW RETURN CODE "READ/WRITE WARNING" $ * P RF READ40 CHECK IF MORE RETRIES LEFT $ P* $ PREAD30 EQU * $ 4 P*
0x2592ac…259440 Dummy {f00=0x00bc, f01=0x0190, f02=» $ . P* CHECK IF MORE RETRIES SHOULD BE MADE % 0 P LC A4,DWTFRT+DWTDEV+1,A6 GET RETRY COUNTER % : P ANK A4,/FF CLEAN % n P SUK A4,1 MORE RETRIES? % & P RB(NN) READ10 YES, PERFORM RETRY % P RB ENDIO NO, EXIT % P* % P EJECT DRMS02 %
0x259440…2595d4 (1, 561) Dummy {f00=0x00bc, f01=0x0190, f02=»CK IS READ FROM THE MSU. READING % 0 P* IS TERMINATED WHEN READ ERROR MESSAGE IS & ( 0 P* RECIEVED, END CHARACTER IS READ OR INPUT & P* BUFFER IS FULL. & P* & P* REGISTER INPUT: & P* A3 = BYTE INDEX & " P* A5 = LOCAL STACK POINTE
0x2595d4…259768 Dummy {f00=0x00bc, f01=0x0190, f02=» & ~ P* A1 = RETURN CODE ' P* A3 = UPDATED BYTE INDEX ' & P* ' J 6 P************************************************** ' T P* ' PREABLK EQU * ' P CF A5,INPUT FETCH DATA ' P CWK A2,RDERR READ ERROR? ' P RF(E) RB100 YES, EXIT '
0x259768…2598fc Dummy {f00=0x00bc, f01=0x0190, f02=»120 YES, EXIT ' P* ( P EJECT DRMS02 ( P* ( 8 & P CF A15,CDCHK CHECK IF LEGAL CHAR ( B $ P CF A15,STORE PUT CHAR IN BUFFER ( l P RB REABLK READ NEXT CHAR ( P* ( P* ( > P* BLOCK TREATED. SET RETURN CODE AND EFFECTIVE LENGTH. (
0x2598fc…259a90 Dummy {f00=0x00bc, f01=0x0190, f02=» PRB110 EQU * ) P LDK A1,0 NORMAL ENDING ) P RF RB130 EXIT ) 8 P* ) N PRB120 EQU * ) X " P LDK A1,INCLEN BUFFER OVERFLOW ) l P* ) PRB130 EQU * ) , P ST A3,ECBEL,A8 EFFECTIVE LENGTH TO ECB ) P* ) PRB140 EQU * ) P RTN A5 )
0x259a90…259c24 Dummy {f00=0x00bc, f01=0x0190, f02=»06 ) ~ P* * 6 P************************************************** * P* * N PWRITE EQU * * X $ P LDK A4,RTRIES SET NO OF RTRIES * l " P LC A2,DWTDEV+1,A6 GET STATUS * P ANK A2,/FF * & P SUK A2,DOCINS DOCUMENT INSERTED? * P RF(E) WRIT05 YE
0x259c24…259db8 Dummy {f00=0x00bc, f01=0x0190, f02=» CLEAR LRC-ACKUMULATOR * | P* + 8 P* TEST REQUESTED LENGTH AND GET START CHARACTER. + ( P* + d . P LDK A1,INCLEN SET ERROR CODE JUST IN CASE + n $ P LD A2,ECBRL,A8 REQUESTED LENGTH + , P LD A3,DWTFRT+DWTDEV,A6 FORMAT CODE FLAG + P RF(N) WRIT07 GE
0x259db8…259f4c Dummy {f00=0x00bc, f01=0x0190, f02=»IO ERROR IF LENGTH > MAX + : P LDK A3,CRWSTX START CHAR CREDIT CARD / AMERICAN BOOK , P RF WRIT09 CONTINUE , ^ P* , z PWRIT07 EQU * , P* GERMAN PASSBOOK , P SUK A2,45 , & P RB(P) ENDIO ERROR IF LENGTH > MAX , * P LDK A3,CRDSTX START CHA
0x259f4c…25a0e0 Dummy {f00=0x00bc, f01=0x018e, f02=» ERROR END I/O =1 , $ P RF(NZ) ERRMS EERROR END I/O =1 - P LDR A2,A3 =2 - B P LDK A3,0 RESET BUFFER INDEX - X P* - | PWRIT10 EQU * - 4 P XRS A2,DWTLRC+DWTDEV,A6 UPDATE LRC-ACKUMULATOR - P CF A5,OUTPUT SEND CHARACTER - " P RF(NZ) ERRMS ERRO
0x25a0e0…25a274 (1, 562) Dummy {f00=0x00bc, f01=0x018e, f02=» - ~ P CF A15,CDCHK VALID CODE? . P LDR A1,A1 . * P RB(Z) WRIT10 YES . < P RB WRIT15 . V P* . h P EJECT DRMS02 . r P* . PWRIT20 EQU * . & P LDK A2,CRWETX CARD END CHARACTER . ( P XRS A2,DWTLRC+DWTDEV,A6 UPDATE LRC . P CF A5,OUT
0x25a274…25a408 Dummy {f00=0x00bc, f01=0x0190, f02=» $ P CF A5,OUTPUT SEND LRC-CHARACTER / " P RF(NZ) ERRMS ERROR END I/O =1 / , P* / R " P* SEND WRITE TRACK COMMAND / * P LDK A2,ENCTRD ASSUME GERMAN PASSBOOK / . P LD A1,DWTFRT+DWTDEV,A6 IS IT GERMAN BOOK? / P RF(N) WRIT30 YES, CONTINUE / 6 P L
0x25a408…25a59c Dummy {f00=0x00bc, f01=0x0190, f02=»NZ) ERRMS ERROR END I/O =1 / P CF A5,ENDBLK END BLOCK =1 0 " " P RF(NZ) ERRMS ERROR END I/O =1 0 D ( P CF A5,INPUT WAIT FOR STATUS MESSAGE 0 j P LDK A1,0 RETURN CODE OK 0 P CWK A2,WROK WAS IT OK? 0 P RB(E) ENDIO2 YES, EXIT 0 P* 0 P SUK A4,
0x25a59c…25a730 Dummy {f00=0x00bc, f01=0x018e, f02=»R WAS IT WRITE ERROR? 0 P RB(E) ENDIO2 YES, EXIT 1 P* 1 > 2 P LDK A1,WARNRW RETURN CODE READ/WRITE WARNING 1 H ( P CWK A2,WRWARN WAS IT WRITE WARNING? 1 ~ P RB(E) ENDIO2 YES, EXIT 1 P* 1 : P LDK A1,THRERR ILLEGAL STATUS FROM MSU. THROUGHPUT E
0x25a730…25a8c4 Dummy {f00=0x00bc, f01=0x0190, f02=» 1 P* 2 PIHMS EQU * 2 P ANK A2,/FF 2 $ $ P LD A3,DWTST,A6 GET STATUS WORD 2 8 P RF(NN) IHM100 BUSY 2 ` P LDR A3,A2 SAVE CHAR 2 | $ P SUK A3,DOCINS DOCUMENT INSERTED 2 P RF(E) IHMS10 2 P SUK A3,DOCESC-DOCINS =2 2 . P RF(NE) IHMS20 N
0x25a8c4…25aa58 Dummy {f00=0x00bc, f01=0x0190, f02=»* 2 PIHMS20 EQU * 3 * 3 4 /* STORE INCOMING CHARACTER IN CIRCULAR BUFFER 3 ( * 3 ` P LD A1,DWTDEV+DWTINQ,A6 3 j LCR A4,A1 3 " XRK A4,/FF ALREADY OVERFLOW ? 3 P RB(E) EXIT YES ! 3 * 3 P LDR A4,A1 3 4 P CF A15,EOQUEU G
0x25aa58…25abec Dummy {f00=0x00bc, f01=0x0190, f02=»OVERFLOW BIT IN BUFFER 3 P RF IHMS40 4 * 4 0 8 PIHMS30 ST A1,DWTDEV+DWTINQ,A6 STORE INQUEUE POINTER 4 : 4 PIHMS40 SCR A2,A4 STORE CHARACTER IN INPUT BUFFER 4 v * 4 P RB EXIT DISPATCH 4 P EJECT DRMS02 4 P* 4 P* DEVICE BUSY 4
0x25abec…25ad80 Dummy {f00=0x00bc, f01=0x0190, f02=»F(E) IHRET END OF OPERATION ORDER CODE 4 P LDR A4,A2 5 . P SUK A4,DOCESC 5 @ " P RF(E) IHM140 DOCUMENT ESCAPED 5 V PIHRET EQU * 5 | P ABL LENDER 5 P* 5 PIHM140 EQU * =2 5 , P SC A2,DWTST+1,A6 UPDATE STATUS WORD =2 5 P LDKL A1,CARMIS CA
0x25ad80…25af14 (1, 563) Dummy {f00=0x00bd, f01=0x0190, f02=» 5 | P* 6 P* 6 PRCMS EQU * 6 P LDK A2,DOCESC 6 . ( P SC A2,DWTDEV+1,A6 RESET STATUS WORD 6 D P LD A7,DWTST,A6 BUSY? 6 p P RB(N) EXIT NO 6 $ P LDK A1,THRERR THROUGHPUT ERROR 6 P RB ENDIO4 6 P EJECT DRMS02 6 P** 6 P* 6 "
0x25af14…25b0a8 Dummy {f00=0x00bd, f01=0x0190, f02=»**************************** 6 P* 7 $ P* 7 . PERRMS EQU * ERROR ROUTINE =1 7 8 , P ANK A1,/12 OUTPUT ERROR OR LRC - ERROR 7 $ P RB(NZ) RCMS YES DO RECOVERY =1 7 . P LDK A1,NOTOPE RETURN CODE NOT OPERABLE =1 7 " P RB ENDIO4 END I/O REQUEST =1 7
0x25b0a8…25b23c Dummy {f00=0x00bd, f01=0x0190, f02=»NDEX. 7 ` P* 8 PSTORE EQU * 8 " P LD A7,ECBBA,A8 BUFFER ADDRESS 8 , P ADR A7,A3 ADD BUFFER INDEX 8 R P SCR A2,A7 STORE CHAR 8 v P ADK A3,1 INCR. INDEX 8 P RTN A15 8 P* 8 P EJECT DROD01 8 P* 8 P* 8 6 P* EOQUEU = SUBR
0x25b23c…25b3d0 Dummy {f00=0x00bd, f01=0x0190, f02=» 8 z P* 9 P* ON EXIT: 9 P* 9 ( P* A1 = NEW QUEUE POINTER 9 2 PEOQUEU EQU * 9 V P ADK A1,1 9 j P SUR A1,A6 9 | & P CWK A1,DWTEQ+DWTDEV END OF QUEUE? 9 P RF(NE) EOQU10 9 0 P LDKL A1,DWTSQ+DWTDEV SET QUEUE START ADRESS 9 PEOQU10
0x25b3d0…25b564 Dummy {f00=0x00bd, f01=0x0190, f02=»CTER 9 z $ P* AT EXIT: A1=RERURN CODE 0,2 : P* : 4 PCDCHK EQU * : > P LDR A1,A2 : R P SUK A1,/30 VALID CODE? : d P RF(N) CDC20 NO : P SUK A1,10 DIGIT? : P RF(N) CDC30 YES, OK : P* : . P* THE CHARACTER IS A CONTROL CHARACTER :
0x25b564…25b6f8 Dummy {f00=0x00bd, f01=0x0190, f02=»RATOR? : z P RF(E) CDC30 YES, OK ; P RF CDC20 NO, ERROR ; * P* ; F PCDC10 EQU * ; P ( P* CREDIT CARD / AMERICAN PASSBOOK ; d P LDR A1,A2 CHARACTER ; " P SUK A1,/3A ACCOUNT SEPARATOR? ; P RF(Z) CDC30 YES, OK ; P SUK A1,3 FIELD SEPARATOR?
0x25b6f8…25b88c Dummy {f00=0x00bd, f01=0x40e2, f02=»R ; h " P ORS A1,ECBRC,A8 INSERT IN ECB < P RF CDC40 EXIT < 0 P* < F PCDC30 EQU * < P P* VALID CHARACTER < d P LDK A1,0 RETURN CODE := OK < PCDC40 EQU * < P RTN A15 < P* < P END < @ < , OK ; P SUK A1,3 FIELD SEPARATOR?
0x25b88c…25ba20 Dummy {f00=0x00bd, f01=0x2008, f02=» = ER INDEX. l P* PSTORE EQU * $ " P LD A7,ECBBA,A8 BUFFER ADDRESS 8 P ADR A7,A3 ADD BUFFER INDEX ^ P SCR A2,A7 STORE CHAR P ADK A3,1 INCR. INDEX P RTN A15 P* P END @ A1,2 THROUGPUT ERROR P R
0x25ba20…25bbb4 (1, 564) Dummy {f00=0x00bd, f01=0x0190, f02=»70 C1R A1,A1 COMPLEMENT % " P ANS A1,DWTDEV+DWTCS,A6 CLEAR & * & F $ PMKB280 ABL MKB100 NEXT CHARACTER & P P EJECT & x * & . P* SPECIAL CONVERSION OF CHARACTERS FROM & P* NUMERIC PART OF 6234. & * & PMKB290 EQU * & $ LDR A
0x25bbb4…25bd48 Dummy {f00=0x00bd, f01=0x018e, f02=»HARACTER IS & x 0 P ANK A4,/80 SET SHOULD SPECIAL CONV. BE USED ' ( P RF(Z) MKB310 NO SPECIAL CONVERSION ' H P ANK A2,/7F MASK AWAY BIT 8 ' t * ' & P* INDICATE SPECIAL CONVERSION ! ' * ' 2 PMKB295 ANKL A6,/FFFE MAKE THE DWT-ADDRESS EVEN '
0x25bd48…25bedc Dummy {f00=0x00bd, f01=0x0190, f02=» ' x * ( PMKB300 EQU * ( * ( & IFT KBLOCK=1 ( 0 * P LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ? ( F . P ABL(Z) MKB100 YES ! READ A NEW CHARACTER ( t XIF ( * ( PMKB310 EQU * ( , P LD A1,DWTDEV+DWTCTB,A6 GET CTAB ADDRESS ( P RF(E) M
0x25bedc…25c070 Dummy {f00=0x00bd, f01=0x0190, f02=»TABLE ( t LDR A4,A2 ) ANK A4,/FF ) SRL A4,3 LINE INDEX ) 4 P ADR A1,A4 ) P $ P LDR* A1,A1 COLUMN TABLE ADDRESS ) b P RF(E) MKB320 NO COLUMN ) LDR A4,A2 ) ANK A4,/F ) P ADR A1,A4 ADD ROW INDEX ) P LCR A2,A1 LOAD CHARACTER
0x25c070…25c204 Dummy {f00=0x00bd, f01=0x0190, f02=»ECK IF BASIC READ OR ORDER 2 OR 3 ) * * * LDR A4,A7 LOAD ORDER CODE * 4 SUK A4,2 * V " P RF(NN) MKB330 ORDER 2 OR 3 ! * h * * * ORDER 1, BASIC READ * * * , P CF A5,STOECH STORE CHAR. IN ECB-BUFFER * H C*
0x25c204…25c398 Dummy {f00=0x00bd, f01=0x0190, f02=»QU * * 0 P CW A3,ECBRL,A8 EFF. LENGTH = REQ. LENGTH ? + . P ABL(NE) MKB100 NO ! READ A NEW CHARACTER + @ * + r ( P RF MKB335 YES ! SET RETURN CODE = 0 + | P* AND COMPLETE REQUEST + P EJECT + * + . ** ORDER 2 OR 3, STANDARD OR NUMERIC
0x25c398…25c52c Dummy {f00=0x00bd, f01=0x0190, f02=»ADDRESS + v P RF(Z) MKB360 NO KEYTABLE ! , " LCR A4,A1 TABLE LENGTH IN A4 , 4 ANK A4,/FF , Z 0 , ADR A1,A4 ADDRESS TO LAST PLACE IN KEYTABLE , n ADK A1,1 , PMKB340 SUK A4,1 , , P RF(N) MKB360 KEY NOT FOUND IN KEYTABLE , SUK A1,1 NE
0x25c52c…25c6c0 Dummy {f00=0x00bd, f01=0x0190, f02=»BLE INDEX , v PMKB350 EQU * - 0 P ST A4,ECBCW,A8 STORE INDEX IN CONTROL WORD - & * - Z 0 P CF A15,STORE STORE CHARACTER IN ECB BUFFER - d P IFT CECHO=1 - & P ORK A2,/80 INDICATE EOR CHARACTER - P CF A5,EORECH ECHO CHARACTER - P XIF - *
0x25c6c0…25c854 (1, 565) Opaque[0x194]
0x25c854…25c9e8 # DirEnt {nam=»DRMT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17b0, f03=0x0000}
0x25c854…25c9e8 IdxSect {
0x25c854…25c9e8 f00 = 0x00bd // 0x25c854 @0x0
0x25c854…25c9e8 f01 = 0x0014 // 0x25c856 @0x2
0x25c854…25c9e8 gno = [ // 0x25c858 @0x4
0x25c854…25c9e8 [0x00]: C0x00bd.0x2.0
0x25c854…25c9e8 [0x01]: C0x00bd.0x3.0
0x25c854…25c9e8 [0x02]: C0x00be.0x0.0
0x25c854…25c9e8 [0x03]: C0x00be.0x1.0
0x25c854…25c9e8 [0x04]: C0x00be.0x2.0
0x25c854…25c9e8 [0x05]: C0x00be.0x3.0
0x25c854…25c9e8 [0x06]: C0x00bf.0x0.0
0x25c854…25c9e8 [0x07]: C0x00bf.0x1.0
0x25c854…25c9e8 [0x08]: C0x00bf.0x2.0
0x25c854…25c9e8 [0x09]: C0x00bf.0x3.0
0x25c854…25c9e8 ]
0x25c854…25c9e8 }
0x25c9e8…25cb7c Dummy {f00=0x00bd, f01=0x018e, f02=» 2 P IDENT DRMT01 REL 11.0 81-01-26 870105041100 P : P* B P* L : P***************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 4 P* DRMT01 = DRIVER 1/2 " MAGNETIC TAPE RECORDER P
0x25cb7c…25cd10 Dummy {f00=0x00bd, f01=0x0190, f02=» P* < P* THIS DRIVER HANDLES FOUR 1/2 " MAGNETIC TAPE RECORDERS @ P* CONNECTED TO CPU VIA IOP AND CHMT ON MULTIPLEXED CHANNEL. R P* P* : P* ONLY ONE RECORDER CAN BE WORKING AT A TIME EXCEPT AT P* UNLOAD. P* P*
0x25cd10…25cea4 Dummy {f00=0x00bd, f01=0x0190, f02=»* A BLOCK SEQUENCE NUMBER. P* " P EJECT DRMT01 , P* D 2 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: N P* " P* M T D A ACTIVATION ROUTINE P* $ P* O R D E R P R O C E S S O R S P* $ P* C O M M A N D H A N D
0x25cea4…25d038 Dummy {f00=0x00bd, f01=0x0190, f02=»M T 0 1 DEVICE WORK TABLE P* " P* ORDERS TREATED: , P* F & P* /00 TEST STATUS /33 STEP REVERSE P P* /02 READ /34 STEP FORWARD z P* /05 WRITE /37 LOAD P* /06 WRITE /38 UNLOAD & P* /22 WRITE TAPE MARK /3F RECOVER P* /31
0x25d038…25d1cc Dummy {f00=0x00bd, f01=0x0190, f02=» BOT/EOT 10: & P* 3: TAPE MARK 11: SEQUENCE ERROR P* @ & P* 4: 12: INCORRECT LENGTH J P* 5: 13: DATA ERROR t . P* 6: WRITE PROTECTED 14: THROUGPUT ERROR P* 7: 15: NOT OPERABLE P* P EJECT DRMT01 P
0x25d1cc…25d360 Dummy {f00=0x00bd, f01=0x0190, f02=» $ P ENTRY MTDRON POWER ON RECOVERY P , P 4 P < P* D P* EXTERNALS N P* b P EXTRN TDISP DISPATCHER l $ P EXTRN DISEND DISPATCER END I/O * P EXTRN DISIOE DISPATCHER I/O REQ ERROR $ P EXTRN SAVE8 SAVE A1-A8 AND INH
0x25d360…25d4f4 (1, 566) Dummy {f00=0x00bd, f01=0x0190, f02=»S t P EXTRN DWTTAB TTAB ADDRESS " P EXTRN DWTUEC USER ECB ADDRESS , P EXTRN TTB:MT MMU TABLE R $ P EXTRN ECBBA ECB BUFFER ADDRESS r & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH " P EXTRN ECBCW ECB CONTROL W
0x25d4f4…25d688 Dummy {f00=0x00bd, f01=0x0190, f02=» j P EJECT DRMT01 P P* ( P* CONSTANTS 2 P* F P P 0 PMTRTRY EQU 3 MAX NO OF RETRIES AT READ/WRITE X 0 PMTRTOT EQU 90 REWIND TIME OUT IN 2 SEC STEPS 0 PMTPTOT EQU 10 POWER FAIL TIME OUT IN 100 MS 6 PMTRBLK EQU 40 NO OF
0x25d688…25d81c Dummy {f00=0x00bd, f01=0x0190, f02=»NDITIONAL ASSEMBLY P* . P***************************************** $ P* V . P* A PROGRAM VERSION USING TOSS MMU PAGING ` * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION US
0x25d81c…25d9b0 Dummy {f00=0x00bd, f01=0x018e, f02=»* MMU BUFFER SIZE P* P* & PDVBLEN EQU 0 0 P* D P* N P* MMU DEVICE INDEX X P* t P* ~ PDEVIND EQU 4 P* P* 4 P* IF THERE IS EURO-CARD IN THE COMPUTER 2 P* THE CONSTANT P831 SHOU
0x25d9b0…25db44 Dummy {f00=0x00bd, f01=0x0190, f02=» l PMASK EQU /7 PREADBL EQU /02 PWRITBL EQU /00 2 PWRITMK EQU /04 H PERASE4 EQU /0C ^ PSLOADP EQU /41 t PONLINE EQU /51 PSKIPRE EQU /21 PSKIPFO EQU /20 POFLINE EQU /40 PILLSD EQU /2847 P XIF P I
0x25db44…25dcd8 Dummy {f00=0x00bd, f01=0x0190, f02=»11 PERASE4 EQU /19 PSLOADP EQU /24 PONLINE EQU /2C 6 PSKIPRE EQU /04 L PSKIPFO EQU /00 b PILLSD EQU /2807 x P XIF 8 PMTIOPL EQU CHMT+CHMT IOP CTRL WORD 1 : BLOCK LENGTH < PMTIOPA EQU CHMT+CHMT+1 IOP CTRL WORD 2 : BUFFER
0x25dcd8…25de6c Dummy {f00=0x00bd, f01=0x018e, f02=»HE ORDER IS CHECKED AND A | . P* BRANCH TO THE ORDER PROCESSOR IS MADE. " P* T P* ENTRY: ^ P* n P* A5: DWTSB2 x P* A6: DWT ADDRESS P* A7: ORDER P* A8: ECB ADDRESS P* P* EXIT: TO ORDER PROCESSOR P*
0x25de6c…25e000 Dummy {f00=0x00bd, f01=0x0190, f02=» x P* A5: STACK POINTER P* A6: DWT ADDRESS $ P* A7: MAX NO OF RETRIES > P* A8: ECB ADDRESS ^ P* x P PMTDA INH & P LDK A4,MTLEN CHECK IF LEGAL ORDER P PMTDA10 CC A7,MTTAB-1,A4 P RF(E) MTDA30 FOUND P
0x25e000…25e194 (1, 567) Dummy {f00=0x00be, f01=0x018e, f02=»A4,MTORD-2 , P ST A4,MTREQ SAVE ADDRESS TO ORDER PNTR P B , PMTDA40 LC A2,DWTOR,A6 GET CHANNEL NUMBER J " P ANK A2,MASK MASK JUST IN CASE z $ P LDR A7,A2 SAVE CHANNEL FOR SELC P IFT P831=1 P SLC A7,4 P XIF P SLL A2,2
0x25e194…25e328 Dummy {f00=0x00be, f01=0x0190, f02=» ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH $ P LD A4,2,A2 CHECK IF SEQ NUMBERS 4 P RF(N) MTDA50 NO P ADK A3,2 YES ADJUST LENGTH t & PMTDA50 LDR A4,A3 CHECK REQ LENGTH P SRL A4,1 ( P RB(Z) MTDA20 LESS THAN 2 CHARACTERS P SRL A4,
0x25e328…25e4bc Dummy {f00=0x00be, f01=0x0190, f02=»ECK IF CH ALREADY SELECTED P RF(E) MTDA70 YES " P CF A5,SELC SELECT CHANNEL < ( PMTDA70 CM MTEOT CLEAR EOT INDICATOR ^ ( P LDK A7,MTRTRY GET MAX NO OF RERIES & P ABI* MTREQ GO TO ORDER PROCESSOR P EJECT DRMT01 P P*
0x25e4bc…25e650 Dummy {f00=0x00be, f01=0x0190, f02=» P* A4: BUFFER ADDRESS P* A5: STACK POINTER " P* A6: DWT ADDRESS > P* A7: MAX NO OF RETRIES X P* A8: ECB ADDRESS x P* P* EXIT: ABL DISEND P* P* A1: STATUS P* A6: DWT ADDRESS P* 8 P* EFFECTIVE
0x25e650…25e7e4 Dummy {f00=0x00be, f01=0x018e, f02=»FT P831=0 , PTEST LC A7,DWTOR,A6 SELECT TO GET STATUS P ANK A7,MASK B P CF A5,SELC V P ABL ENDIO8 j P XIF ~ P IFT P831=1 . PTEST CF A5,SKPR DUMMY INSTR TO GET STATUS P LDR A3,A1 P SLC A3,5 BOT ? P RF(N) TEST10
0x25e7e4…25e978 Dummy {f00=0x00be, f01=0x0190, f02=» P EJECT DRMT01 P P* $ P* READ /02 . P* B P L PREAD CF A5,RBLK READ BLOCK T P RF(0) READ10 STATUS DATA OK v P ABL(1) ENDIO2 ILL STATUS P SUK A7,1 " P ABL(N) ENDIO4 NO MORE RETRIES P CF A5,SKPR SKIP REV
0x25e978…25eb0c Dummy {f00=0x00be, f01=0x0190, f02=» $ PREAD20 LD A5,2,A2 CHECK SEQ MODE " P ABL(N) ENDIO1 NO SEQ NUMBERS , P* R P IFT MMUPAG=0 , P RER A5,MTIOPA GET ADDRESS TO SEQ NUMBER r P SUK A5,1 P LDR* A3,A2 GET SEQ COUNTER P CCR A3,A5 * P RF(NE) READ30 NOT CORRECT SEQ
0x25eb0c…25eca0 Dummy {f00=0x00be, f01=0x018e, f02=» P EJECT DRMT01 P* P* & P IFT MMUPAG=1 0 & P LD A5,DWTTAB,A6 GET TTAB ADDRESS F $ P SUKL A15,32 ADJUST STACKPOINTER p * P TS 2,A15 SAVE MMU REGISTERS ON STACK . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB P RER A5,MTIOPL
0x25eca0…25ee34 (1, 568) Dummy {f00=0x00be, f01=0x0190, f02=» & P EL A5,ECBBA,A5 GET BUFFER ADDRESS P ADR A5,A3 . P LDR A3,A5 @ P ANK A3,1 R " P RF(NZ) READ40 ADDRESS UNEVEN? d * P ELR A5,A5 GET ACTUAL SEQUENCE NUMBER P* PREAD25 EQU * . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK $ P
0x25ee34…25efc8 Dummy {f00=0x00be, f01=0x018e, f02=» P EJECT DRMT01 P* P* & PREAD30 EQU * 0 $ P ORK A1,/0010 INDICATE SEQ ERROR D P ABL ENDIO1 l P* P IFT MMUPAG=1 PREAD40 ELR A3,A5 P ANK A3,/FF P EL A5,1,A5 P ANKL A5,/FF00 P ORR A5,A3 P
0x25efc8…25f15c Dummy {f00=0x00be, f01=0x0190, f02=» P " PWRIT LD A1,2,A2 CHECK SEQ MODE P RF(N) WRIT10 NO SEQ NUMBERS 6 P LDR* A1,A2 GET SEQ COUNTER Z P* ~ P IFT MMUPAG=0 & P LDR A8,A4 CALC ADDR TO SEQ NUMBER P ADR A8,A3 " P SC A1,-1,A8 STORE SEQ NUMBER P ECR A1,
0x25f15c…25f2f0 Dummy {f00=0x00be, f01=0x0190, f02=»STACKPOINTER | * P TS 2,A15 SAVE MMU REGISTERS ON STACK $ P TL TTB:MT,A7 LOAD MMU REGISTERS B * P LD A4,DWTUEC,A6 GET USER ECB ADDRESS j , P EL A4,ECBBA,A4 GET USER BUFFER ADDRESS . P ADR A4,A3 GET ADDRESS TO SEQUENCE NUMBER P SRC A4,1
0x25f2f0…25f484 Dummy {f00=0x00be, f01=0x0190, f02=»,A8 RESET BUFFER ADDRESS ~ . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK $ P ADKL A15,32 ADJUST STACKPOINTER R P LDK A7,MTRTRY z P XIF P* " PWRIT10 CF A5,WBLK WRITE BLOCK P RF(0) ENDIO1 STATUS,DATA OK P RF(1) ENDIO2 ILL STATUS
0x25f484…25f618 Dummy {f00=0x00be, f01=0x0190, f02=»SAVE EOT P ORS A1,MTEOT P RB WRIT10 TRY AGAIN & P* B P IFT MMUPAG=1 L 4 PWRIT20 EQU * SEQUENCE NUMBER ADDRESS WAS UNEVEN b P SLC A4,1 P ECR A6,A1 P ELR A7,A4 P ANK A7,/FF P SLL A1,8 P ORR A1,A7 P
0x25f618…25f7ac Dummy {f00=0x00be, f01=0x018e, f02=» XIF P* P EJECT DRMT01 P* . P* WRITE TAPE MARK /22 8 PWRTM CF A5,WTMK V P RF(1) ENDIO4 ILL STATUS n P IFT P831=1 P CF A5,SKPR P XIF P LDR A3,A1 $ P SLC A3,3 CHECK IF TAPE MARK OK P RF(NN) WRTM
0x25f7ac…25f940 Dummy {f00=0x00be, f01=0x0190, f02=» P PWRTM10 EQU * P IFT P831=0 P CF A5,SKPR SKIP REVERSE 4 P XIF T P CF A5,ERA4 ERASE 4" ` P SUK A7,1 | " P RF(N) ENDIO4 NO MORE RETRIES P ANK A1,/20 SAVE EOT P ORS A1,MTEOT P RB WRTM TRY AGAIN P*
0x25f940…25fad4 (1, 569) Dummy {f00=0x00be, f01=0x018e, f02=»-LINE ~ P IFT P831=1 P LDR A1,A1 " P RF(NZ) ENDIO6 4 P XIF J P EJECT DRMT01 V P n P* v P* REWIND /31 P* P P " PRWND CMR A2 CLEAR SEQ COUNTER $ P CF A5,SBOW SEARCH BOT AND WAIT P RF ENDIO6
0x25fad4…25fc68 Dummy {f00=0x00be, f01=0x0190, f02=» x P RF(NZ) ENDIO7 NOT OPERABLE P CF A5,OFLI SET OFF-LINE , P ANKL A1,/FFFE SKIP BIT 15 L P RF ENDIO7 n P P P* P* STEP REVERSE /33 P* P PSTPR CF A5,SKPR SKIP REVERSE " PSTPR10 RF(1) ENDIO6 ILL STAT
0x25fc68…25fdfc Dummy {f00=0x00be, f01=0x0190, f02=» z P RB RWND BOT P* P* STEP FORWARD /34 & P* B P L PSTPF CF A5,SKPF SKIP FORWARD T P RF(1) ENDIO6 ILL STATUS x " PSTPF10 IMR A2 INCR SEQ COUNTER PSTPF20 RF ENDIO6 P P P P* P* RECOVER /3F
0x25fdfc…25ff90 Dummy {f00=0x00be, f01=0x018e, f02=»ER PROCESSORS t P* ! , PENDIO0 IMR A2 INCREMENT SEQUENCE COUNTER ! 4 P ANKL A1,/FFF7 MASK INCORR LENGTH (ONLY ON P831) ! P P RF ENDIO4 ! P* ! " PENDIO1 IMR A2 INCR SEQ COUNTER ! P ! P IFT MMUPAG=0 ! 0 PENDIO2 RER A3,MTIOPA GET NEXT BU
0x25ff90…260124 Dummy {f00=0x00be, f01=0x0190, f02=» P XIF " P SUR A3,A4 " P IFT MMUPAG=0 " " * PENDIO3 LD A4,2,A2 CHECK IF SEQ NUMBERS " 8 P RF(N) *+4 NO " f P SUK A3,2 YES ADJUST LENGTH " | P XIF " * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH " PENDIO4 LDK A4,MTRTRY " P SUR A4,A7 GET NO
0x260124…2602b8 Dummy {f00=0x00be, f01=0x018e, f02=» OPERABLE CHECK IF POWER FAIL " * PENDIO7 LDKL A4,/8000 SAVE SEQ MODE BIT # & P ANS A4,2,A2 # T & P OR A1,MTEOT PUT IN EOT INDICATOR # h P ORS A1,2,A2 SAVE STATUS # . PENDIO8 CM MTREQ INDICATE NO RUNNING ORDER # P* # P EJECT DRMT01 # P*
0x2602b8…26044c Dummy {f00=0x00be, f01=0x0190, f02=» # P RF(Z) ENDIO9 $ P XRR A1,A2 RESET BIT 2 $ " P ORK A1,/40 SET BIT 9 INSTEAD $ < P* $ b PENDIO9 EQU * $ l P LDKL A3,/420 $ P TM A1,A3 $ P RF(Z) ENDIOA $ P ORR A1,A2 SET BIT 2 $ & P ANKL A1,/FBDF RESET BIT 5 AND 10 $ P* $
0x26044c…2605e0 Dummy {f00=0x00be, f01=0x0190, f02=»NSTEAD $ z P* % P EJECT DRMT01 % P* % 0 P* % : PENDIOB EQU * % D P SRL A2,2 % X P TM A1,A2 % j & P RF(Z) ENDIOC NOT WRITE PROTECTED % | P LD A7,DWTOR,A6 ORDER CODE % P ANK A7,/FF % P SUK A7,/05 % P RF(N) ENDIOC NO WRITE O
0x2605e0…260774 (1, 570) Dummy {f00=0x00be, f01=0x0190, f02=» DISEND PERFORM TENDIO AND GO TO DISPATCHER % P* & 4 P EJECT DRMT01 & > P & V P* & ^ 2 P* THE THING WAS NOT OPERABLE, CHECK IF A POWER & h P* FAIL IS COMING ALONG. & P* & P & PCKPWF LDK A7,1 & P ST A7,MTSA7 SAVE REGISTERS &
0x260774…260908 Dummy {f00=0x00be, f01=0x0190, f02=» TDISP & P ' & PCKPWF1 LDR A6,A1 RESTORE REGISTERS ' P LD A1,MTSA7 ' @ P LD A2,MTSA2 ' T P CM MTTIM INDICATE NO TIMER ' h P RB ENDIO8 ' P EJECT DRMT01 ' P ' P* ' * P* SBOW SEARCH BOT AND WAIT FOR REWIND ' P* ' P* ENTRY:
0x260908…260a9c Dummy {f00=0x00be, f01=0x018e, f02=» P* A6: DWT ADDRESS ( P* A7: RESTORED ( P* A8: ECB ADDRESS ( 6 P* ( P P ( Z * PSBOW LDKL A1,-MTRTOT-1 SET UP TIME OUT ( b P ST A1,MTCTR ( P ( PSBOW10 CF A5,SBOT SEARCH BOT ( P SLC A1,2 CHECK IF READY ( " P RF(N) SBOW30 STILL REWI
0x260a9c…260c30 Dummy {f00=0x00be, f01=0x018e, f02=» P RTN A5 RETURN ) P ) & PSBOW30 IM MTCTR CHECK IF TIME OUT ) " & P RB(Z) SBOW20 DON'T WAIT ANY MORE ) L P ST A5,MTSA5 SAVE REGISTER ) v P LDR A1,A6 ) P LDKL A4,MTTIM ) " P CF A15,SETIMP WAIT 2 SECONDS ) P DATA SBOW40,20 ) P ABL TDISP
0x260c30…260dc4 Dummy {f00=0x00be, f01=0x018e, f02=» ) P CM MTTIM INDICATE NO TIMER * $ P RB SBOW10 GO BACK AND TRY AGAIN * , P EJECT DRMT01 * T P * l P* * t P* COMMAND HANDLERS * ~ P* * P* ENTRY: CF A5,<COM> * P* * * P* A2: IF SELC: ACTIVE CHANNEL ADDRESS * ( P* A3: IF RBLK
0x260dc4…260f58 Dummy {f00=0x00be, f01=0x0190, f02=» * n P* + P* EXIT: RTN A5 + P* + * P* A1: STATUS AFTER COMMAND + 4 P* A2: RESTORED + X " P* A3: REQUESTED LENGTH IN ECB + p P* A4: BUFFER ADDRESS IN ECB + P* A6: DWT ADDRESS + P* A7: RESTORED + P* A8: ECB ADDRESS + P*
0x260f58…2610ec Dummy {f00=0x00be, f01=0x0190, f02=»ATUS, ILL DATA: NO DATA,DATA ERR,THRUPUT ERR + z P* , 4 P , > P , F " PRBLK LDK A1,READBL READ BLOCK , N PRBLK10 EQU * , t P IFT MMUPAG=1 , & P LDR* A6,A8 GET FIRST WORD OF ECB , 4 P ANKL A6,/3000 GET BITS 16-17 IN BUFFER ADDRESS , P ORR A3,
0x2610ec…261280 Dummy {f00=0x00be, f01=0x0190, f02=» , h P RF COMM - P - " PWBLK LDK A1,WRITBL WRITE BLOCK - . PWBLK10 ORKL A3,/4000 INDICATE WRITE TO IOP - F P RB RBLK10 - x P - & PWTMK LDK A1,WRITMK WRITE TAPE MARK - P RF COMM - PERA4 LDK A1,ERASE4 ERASE 4" - P RF COMM - P - " P
0x261280…261414 (1, 571) Dummy {f00=0x00bf, f01=0x0190, f02=» LDK A1,SKIPRE SKIP REVERSE - P RF COMM . $ P . 4 $ PSKPF LDK A1,SKIPFO SKIP FORWARD . < P IFT P831=0 . d P RF COMM . x $ POFLI LDK A1,OFLINE SET OFF-LINE . P RF COMM . P . ( PRSQN LDK A1,/03 READ SEQUENCE NUMBER . & P LDK A3,2 SET UP BUF
0x261414…2615a8 Dummy {f00=0x00bf, f01=0x018e, f02=» SAVE ACTIVE CHANNEL . P / P XIF / $ PCOMM LD A3,PFPOST / 0 " P RF(NZ) COMM15 PFINIT PENDING / J PCIOMT CIO A1,1,CHMT / p P RF(A) COMM10 / P RF(U) COMM05 NO INTERFACE / P LDK A1,9 PARAMETER / P CF A15,HALT STOP EXECUTION / PCOMM
0x2615a8…26173c Dummy {f00=0x00bf, f01=0x0190, f02=» P ABR* A5 0 P 0 P 0 $ PCOMM10 CM MTINT IND INT ALLOWED 0 $ & PCOMM15 ST A2,MTSA2 SAVE REGISTERS 0 L P ST A5,MTSA5 0 v P ST A7,MTSA7 0 P ABL TDISP GO TO DISPATCHER 0 P EJECT DRMT01 0 P 0 P* 0 " P* IHMT INTERRUPT HANDLER CHM
0x26173c…2618d0 Dummy {f00=0x00bf, f01=0x0190, f02=»STACK 0 t P XIF 1 P* 1 P IFT CPU852=0 1 $ " P MSR 8,A15 SAVE A1-A8 ON STACK 1 : P XIF 1 ` P* 1 l PSSTMT SST A1,CHMT 1 v P RF(A) IHMT10 1 P LDK A1,9 PARAMETER 1 P CF A15,HALT SST NOT ACC. 1 PIHMT10 C1S MTINT 1 P RF(NZ) IHMT
0x2618d0…261a64 Dummy {f00=0x00bf, f01=0x0190, f02=» 1 r P XIF 2 * P LDK A1,5 ILLEGAL INTERRUPT PARAMETER 2 P CF A15,HALT 2 B P 2 V * PIHMT20 LDKL A6,DWMT01 GET DWT ADDRESS 2 ^ $ P LD A8,DWTECB,A6 GET ECB ADDRESS 2 & P LD A5,MTSA5 RESTORE STACK POINTER 2 P IFT P831=1 2 6 P ANKL A1,/BFFF MASK AW
0x261a64…261bf8 Dummy {f00=0x00bf, f01=0x018e, f02=»F(Z) IHMT30 STATUS,DATA OK 2 P LDK A2,/40 3 " P SUKL A3,/806 3 6 P TM A1,A3 3 L P RF(NZ) IHMT30 ILL STATUS 3 ^ P LDK A2,/80 ILL DATA 3 P 3 PIHMT30 SLC A2,2 3 P ST A2,2,A5 UPDATE CR 3 " P LD A2,MTSA2 RESTORE REGISTERS 3 P LD A3,E
0x261bf8…261d8c Dummy {f00=0x00bf, f01=0x0190, f02=» P LD A7,MTSA7 4 P RTN A5 4 P EJECT DRMT01 4 ( P 4 @ P* 4 H ( P* MTDRON ENTRY AT POWER ON RECOVERY 4 R P* 4 ~ P 4 PMTDRON EQU * 4 P IFT CPU852=1 4 & P CF A15,SAVE8 SAVE A1-A8 ON STACK 4 P XIF 4 P* 4 P IFT CPU852=0
0x261d8c…261f20 Dummy {f00=0x00bf, f01=0x0190, f02=»DWTST,A6 4 " P CMR A6 IND NO ACTIVE CHANNEL 5 " P LD A4,MTTIM CHECK IF TIMER ON 5 6 P RF(Z) MTON05 NO 5 P CMR A4 RESET TIMER 5 t P CM MTTIM INDICATE NO TIMER 5 P 5 , PMTON05 LD A4,MTPWF CHECK IF PWF TIMER ON 5 P RF(NZ) MTON10 YES 5 P L
0x261f20…2620b4 (1, 572) Dummy {f00=0x00bf, f01=0x0190, f02=» P STR A3,A4 6 P ABL TDISP 6 P 6 ( $ PMTON20 CM MTPWF IND NO PWF TIMER 6 0 $ P LDKL A6,DWMT01 LOAD DWT ADDRESS 6 X & P LD A8,DWTECB,A6 LOAD ECB ADDRESS 6 " P LDKL A5,MTSTB LOAD STACK BASE 6 0 P LDKL A2,MTCHS GET ADDRESS TO CHANNEL STATUS 6 P 6
0x2620b4…262248 Dummy {f00=0x00bf, f01=0x0190, f02=»MTON40 ADK A2,4 6 ( P CWK A2,MTCHSE ARE ALL CHANNELS DONE 7 P RB(NE) MTON30 NO TRY NEXT 7 D P 7 f ( P LD A4,MTREQ CHECK IF ACTIVE REQUEST 7 n P ABL(Z) DISEND NO RETURN 7 & P ABL MTDA40 REPEAT ACTIVE REQUEST 7 P EJECT DRMT01 7 P 7 P* 7
0x262248…2623dc Dummy {f00=0x00bf, f01=0x0190, f02=»UL DUE TO INCORRECT SEQUNCE NUMBERS 7 $ P* THE RECORDER IS PUT OFF-LINE. 8 , P* 8 T P* ENTRY: 8 ^ P* 8 n $ P* A2: ADDRESS TO CHANNEL STATUS 8 x P* A6: DWT ADDRESS 8 P* 8 P* EXIT: 8 P* 8 P* A1: STATUS AFTER RECOVERY 8 $ P* A2:
0x2623dc…262570 Dummy {f00=0x00bf, f01=0x0190, f02=»MBER 8 r P SUKL A7,MTCHS 9 P SRL A7,2 9 " P CF A5,SELC SELECT CHANNEL 9 4 P LD A1,2,A2 CHECK SEQ MODE 9 V P RF(N) MTRC70 NO SEQ NUMBERS 9 x P CF A5,ONLI 9 P LDR* A3,A2 GET SEQ COUNTER 9 & P ABL(Z) SBOW TAPE SHOULD BE AT BOT 9 8 P LDK A7,MT
0x262570…262704 Dummy {f00=0x00bf, f01=0x0190, f02=»,RSQN READ SEQUENCE NUMBER 9 P SLC A1,3 CHECK IF TAPE MARK : " & P RB(N) MTRC10 TAPE MARK, TRY AGAIN : F P SLC A1,2 CHECK IF BOT : p P RF(NN) MTRC20 NOT BOT : P CM MTBUF CLEAR SEQ NUMBER : P : > PMTRC20 ANK A1,/E4 CHECK IF REW, DATA ERR, THRU ERR
0x262704…262898 Dummy {f00=0x00bf, f01=0x0190, f02=» ( P SUR* A7,A2 CALC NO OF BLOCKS TO GO ; P CCR A3,A2 ; 0 P RF(NE) MTRC25 ; B P LDR A7,A7 ; X " PMTRC25 RF(G) MTRC50 GO REVERSE ; j P ; PMTRC30 NGR A7,A7 TRY FORWARD ; PMTRC40 SUK A7,1 ; P RF(N) MTRC60 ; P CF A5,SKPF ; P RB MTRC40
0x262898…262a2c Dummy {f00=0x00bf, f01=0x0190, f02=»N READ SEQ NUMBER ; " P RF(4) MTRC70 ILL STATUS,DATA < P SLC A1,3 CHECK IF TAPE MARK < @ P RF(NN) MTRC80 NOT TAPE MARK < d & P LD A3,2,A2 GET STATUS OF CHANNEL < P SLC A3,3 < & P RF(N) MTRC90 SHOULD BE TAPE MARK < P < $ PMTRC70 ABL OFLI RE
0x262a2c…262bc0 Dummy {f00=0x00bf, f01=0x0190, f02=») MTRC70 NOT EQUAL < P = $ PMTRC90 ABL SKPF OK RECOVERY DONE = " P XIF = J P IFT P831=1 = V & PMTRC LDR A7,A2 CALC CHANNEL NUMBER = j P SUKL A7,MTCHS = P SRL A7,2 = P CF A5,SELC SELECT CHANNEL = P LD A1,2,A2 CHECK SEQ MODE = P RF(N) M
0x262bc0…262d54 (1, 573) Dummy {f00=0x00bf, f01=0x0190, f02=»T SEQ COUNTER = & P ABL(Z) SBOW TAPE SHOULD BE AT BOT > ( PMTRC05 CF A5,SKPR REWIND TAPE TO BOT > @ P SLC A1,5 CHECK IF BOT > l P RB(NN) MTRC05 > P > P > PMTRC40 SUK A7,1 > P RF(N) MTRC60 > P CF A5,SKPF > P SLC A1,4 NO DATA ? >
0x262d54…262ee8 Dummy {f00=0x00bf, f01=0x0190, f02=»RK > v P SRC A1,3 ? & P LD A3,2,A2 GET STATUS OF CHANNEL ? P SLC A3,3 ? F & P RF(N) MTRC90 SHOULD BE TAPE MARK ? X P ? " PMTRC70 RF OFLI RECOVERY FAILED ? P ? PMTRC80 EQU * ? " PMTRC90 RTN A5 OK RECOVERY DONE ? P* ? P* SELECT D
0x262ee8…26307c Dummy {f00=0x00bf, f01=0x0190, f02=»VICE IN CIO-INSTR. ? x P ANS A1,SSTMT SST-INSTR. @ P ORS A7,SSTMT @ : $ P ANS A1,CIOM2 ANOTHER CIO-INSTR. @ P P ORS A7,CIOM2 @ x P RTN A5 @ P* @ P* OFF LINE @ P* @ POFLI EQU * @ 0 P CF A5,SKPR DUMMY INSTRUCTIONS TO GET STATUS @
0x26307c…263210 Dummy {f00=0x00bf, f01=0x0190, f02=») OFLI10 @ POFLI05 LDK A1,1 NOT OPERABLE A P RTN A5 A 4 " POFLI10 LDK A1,/20 SET OFF LINE A D PCIOM2 CIO A1,1,CHMT A j P RB OFLI05 A P XIF A P EJECT DRMT01 A P A P* A P* LEGAL ORDER TAB A P* A P A PMTTAB DATA /02
0x263210…2633a4 Dummy {f00=0x00bf, f01=0x0190, f02=»ND A j " P DATA STPR,STPF,LOAD,UNLD,RECV B PMTNOL EQU *-8-8 B 0 P EJECT DRMT01 B H P* B ` * P* DWMT01 DEVICE WORK TABLE FOR DRMT01 B j P* B P B 0 PDWMT01 DATA 0 DWTCHP PNTR TO ACTIVE CHANNEL B " P DATA /8000 DWTST BIT0=READY B P DAT
0x2633a4…263538 Dummy {f00=0x00bf, f01=0x0190, f02=»AT B P DATA 0 DWTTQ C IFT MMUPAG=1 C & " DATA 0 SAVE AREA USER ECB ADDRESS C 6 DATA DEVECB MMU ECB ADDRESS C ` XIF C ( PMTREQ DATA 0 REQUESTED ORDER POINTER C ( PMTSA2 DATA 0 SAVE AREA FOR REGISTERS C PMTSA5 DATA 0 C PMTSA7 DATA 0
0x263538…2636cc Dummy {f00=0x00bf, f01=0x0190, f02=»0,0,0 C P XIF D P* D $ P DATA 0 INDICATES NO MMU BUFFER D $ P DATA 4 DEVICE INDEX D L PMTADR DATA MTDA D h " P DATA 0 ABORT ROUTINE ADDRESS D " PMTCTR DATA 0 TIME OUT COUNTER D * PMTINT DATA /FFFF /0: INTERRUPT ALLOWED D " PMTPWF DATA 0 P
0x2636cc…263860 Dummy {f00=0x00bf, f01=0x0190, f02=» D P EJECT DRMT01 E P E P* E ( P* CHANNEL STATUS WORDS E 2 P* E P & P* FIRST WORD: SEQUENCE COUNTER E Z > P* SECOND WORD: BIT0: NO SEQ NO:S, BIT1-15: LAST STATUS E P* E P E P E & PMTCHS DATA 0,1 CH0: SEQ NO, STATUS E
0x263860…2639f4 (1, 574) Dummy {f00=0x00bf, f01=0x4018, f02=» E P END F @ F
0x2639f4…263b88 Dummy {f00=0x00bf, f01=0x2008, f02=» G , STATUS . ~ P DATA 0,1 CH1: " / P DATA 0,1 CH2: " / 4 P DATA 0,1 CH3: " / P P DATA 0,1 CH4: " / l P DATA 0,1 CH5: " / P DATA 0,1 CH6: " / P DATA 0,1 CH7: " / P / PMTCHSE EQU * / P / P END /
0x263b88…263d1c Dummy {f00=0x00bf, f01=0x0190, f02=»CT DRCD01 P* P* $ P******************************** & $ P* * N $ P* READ SECTORS * v $ P* * $ P******************************** P* P* PREA:00
0x263d1c…263eb0 Dummy {f00=0x00bf, f01=0x0190, f02=»A6 NUMBER OF LOGICAL SECTORS P RF(Z) REA:50 IO READY ! $ P SUK A1,3 ! B 0 P RB(NN) REA:00 AT LEAST ONE PHYSICAL SECTOR ! T P CF A5,MASK00 ! P CF A5,READ ! P CF A5,UPDATE ! P LDK A1,0 RESET RETURN CODE ! PREA:50 EQU * ! P ABL END
0x263eb0…264044 Dummy {f00=0x00bf, f01=0x0190, f02=»AD SECTOR N * ! * * " ********************* " 6 * " T * " ^ PREAD EQU * " h P CF A5,CIOLOD " z 6 P CM DWTBSE+4,A6 CLEAR BUFFER IND. IN CASE OF ERROR " * % LDKL A3,REDCOM GET READ COMMAND CODE " , P ORS A3,DWTCOP,A
0x264044…2641d8 Dummy {f00=0x00bf, f01=0x0190, f02=» RF(Z) RET34 OK. NO RETURN CODE " * # ( * IO ERROR IN READING # 2 * # P P IM DWTRE2,A6 # Z $ SUK A4,1 DECREMENT RETRYCOUNTER # p 4 P RB(P) READ10 3:RD RETRY IN THIS STATE NOT DONE # $ LDK A4,RY3 REINIT RETRYCOUNTER # P* # P EJECT
0x2641d8…26436c Dummy {f00=0x00bf, f01=0x0190, f02=»H EARLY- OR LATE- # v RF(NZ) RET31 DATA STROBE ? $ 0 , LDKL A3,/8000 PREPARE FOR EARLY DATA STROBE $ > ORS A3,DWTCOP,A6 $ r 4 / RB READ10 RETRY 3 TIMES WITH EARLY DATA STROBE $ RET31 EQU * $ ANK A2,/80 $ 4 / RF(Z) RET32 LAST RETRIES WE
0x26436c…264500 Dummy {f00=0x00bf, f01=0x0190, f02=»ES WITH LATE DATA STROBE $ z RET32 EQU * % LDKL A3,/3FFF % 4 , ( ANS A3,DWTCOP,A6 RESET LATE DATA STROBE % J LC A2,DWTCOP+2,A6 % z 2 - ANK A2,/C0 LAST RETRY CARRIAGE+ OR CARRIAGE- % RF(NZ) RET33 % ( $ LDKL A3,/8000 PREPARE FOR CARRIAGE+ %
0x264500…264694 (1, 575) Opaque[0x194]
0x264694…264828 # DirEnt {nam=»DRPL01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1800, f03=0x0000}
0x264694…264828 IdxSect {
0x264694…264828 f00 = 0x00c0 // 0x264694 @0x0
0x264694…264828 f01 = 0x005e // 0x264696 @0x2
0x264694…264828 gno = [ // 0x264698 @0x4
0x264694…264828 [0x00]: C0x00c0.0x0.0
0x264694…264828 [0x01]: C0x00c0.0x1.0
0x264694…264828 [0x02]: C0x00c0.0x2.0
0x264694…264828 [0x03]: C0x00c0.0x3.0
0x264694…264828 [0x04]: C0x00c1.0x0.0
0x264694…264828 [0x05]: C0x00c1.0x1.0
0x264694…264828 [0x06]: C0x00c1.0x2.0
0x264694…264828 [0x07]: C0x00c1.0x3.0
0x264694…264828 [0x08]: C0x00c2.0x0.0
0x264694…264828 [0x09]: C0x00c2.0x1.0
0x264694…264828 [0x0a]: C0x00c2.0x2.0
0x264694…264828 [0x0b]: C0x00c2.0x3.0
0x264694…264828 [0x0c]: C0x00c3.0x0.0
0x264694…264828 [0x0d]: C0x00c3.0x1.0
0x264694…264828 [0x0e]: C0x00c3.0x2.0
0x264694…264828 [0x0f]: C0x00c3.0x3.0
0x264694…264828 [0x10]: C0x00c4.0x0.0
0x264694…264828 [0x11]: C0x00c4.0x1.0
0x264694…264828 [0x12]: C0x00c4.0x2.0
0x264694…264828 [0x13]: C0x00c4.0x3.0
0x264694…264828 [0x14]: C0x00c5.0x0.0
0x264694…264828 [0x15]: C0x00c5.0x1.0
0x264694…264828 [0x16]: C0x00c5.0x2.0
0x264694…264828 [0x17]: C0x00c5.0x3.0
0x264694…264828 [0x18]: C0x00c6.0x0.0
0x264694…264828 [0x19]: C0x00c6.0x1.0
0x264694…264828 [0x1a]: C0x00c6.0x2.0
0x264694…264828 [0x1b]: C0x00c6.0x3.0
0x264694…264828 [0x1c]: C0x00c7.0x0.0
0x264694…264828 [0x1d]: C0x00c7.0x1.0
0x264694…264828 [0x1e]: C0x00c7.0x2.0
0x264694…264828 [0x1f]: C0x00c7.0x3.0
0x264694…264828 [0x20]: C0x00c8.0x0.0
0x264694…264828 [0x21]: C0x00c8.0x1.0
0x264694…264828 [0x22]: C0x00c8.0x2.0
0x264694…264828 [0x23]: C0x00c8.0x3.0
0x264694…264828 [0x24]: C0x00c9.0x0.0
0x264694…264828 [0x25]: C0x00c9.0x1.0
0x264694…264828 [0x26]: C0x00c9.0x2.0
0x264694…264828 [0x27]: C0x00c9.0x3.0
0x264694…264828 [0x28]: C0x00ca.0x0.0
0x264694…264828 [0x29]: C0x00ca.0x1.0
0x264694…264828 [0x2a]: C0x00ca.0x2.0
0x264694…264828 [0x2b]: C0x00ca.0x3.0
0x264694…264828 [0x2c]: C0x00cb.0x0.0
0x264694…264828 [0x2d]: C0x00cb.0x1.0
0x264694…264828 [0x2e]: C0x00cb.0x2.0
0x264694…264828 ]
0x264694…264828 }
0x264828…2649bc Dummy {f00=0x00c0, 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
0x2649bc…264b50 Dummy {f00=0x00c0, 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*
0x264b50…264ce4 Dummy {f00=0x00c0, 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
0x264ce4…264e78 Dummy {f00=0x00c0, 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
0x264e78…26500c Dummy {f00=0x00c0, 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
0x26500c…2651a0 Dummy {f00=0x00c0, 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
0x2651a0…265334 (1, 576) Dummy {f00=0x00c0, 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
0x265334…2654c8 Dummy {f00=0x00c0, 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
0x2654c8…26565c Dummy {f00=0x00c0, 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
0x26565c…2657f0 Dummy {f00=0x00c0, 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
0x2657f0…265984 Dummy {f00=0x00c0, 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
0x265984…265b18 Dummy {f00=0x00c0, 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
0x265b18…265cac Dummy {f00=0x00c0, 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
0x265cac…265e40 Dummy {f00=0x00c0, 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
0x265e40…265fd4 (1, 577) Dummy {f00=0x00c0, 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*
0x265fd4…266168 Dummy {f00=0x00c0, 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*************
0x266168…2662fc Dummy {f00=0x00c0, 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
0x2662fc…266490 Dummy {f00=0x00c0, 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
0x266490…266624 Dummy {f00=0x00c0, 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
0x266624…2667b8 Dummy {f00=0x00c0, 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
0x2667b8…26694c Dummy {f00=0x00c0, 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
0x26694c…266ae0 Dummy {f00=0x00c0, 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
0x266ae0…266c74 (1, 578) Dummy {f00=0x00c0, 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
0x266c74…266e08 Dummy {f00=0x00c0, 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
0x266e08…266f9c Dummy {f00=0x00c0, 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*
0x266f9c…267130 Dummy {f00=0x00c0, 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
0x267130…2672c4 Dummy {f00=0x00c0, 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*
0x2672c4…267458 Dummy {f00=0x00c0, 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
0x267458…2675ec Dummy {f00=0x00c0, 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
0x2675ec…267780 Dummy {f00=0x00c0, 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
0x267780…267914 (1, 579) Dummy {f00=0x00c1, 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
0x267914…267aa8 Dummy {f00=0x00c1, 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
0x267aa8…267c3c Dummy {f00=0x00c1, 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
0x267c3c…267dd0 Dummy {f00=0x00c1, 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*
0x267dd0…267f64 Dummy {f00=0x00c1, 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
0x267f64…2680f8 Dummy {f00=0x00c1, 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
0x2680f8…26828c Dummy {f00=0x00c1, 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
0x26828c…268420 Dummy {f00=0x00c1, 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 %
0x268420…2685b4 (1, 580) Dummy {f00=0x00c1, 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
0x2685b4…268748 Dummy {f00=0x00c1, 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
0x268748…2688dc Dummy {f00=0x00c1, 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
0x2688dc…268a70 Dummy {f00=0x00c1, 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* )
0x268a70…268c04 Dummy {f00=0x00c1, 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
0x268c04…268d98 Dummy {f00=0x00c1, 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
0x268d98…268f2c Dummy {f00=0x00c1, 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 ,
0x268f2c…2690c0 Dummy {f00=0x00c1, 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
0x2690c0…269254 (1, 581) Dummy {f00=0x00c1, 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,/
0x269254…2693e8 Dummy {f00=0x00c1, 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
0x2693e8…26957c Dummy {f00=0x00c1, 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
0x26957c…269710 Dummy {f00=0x00c1, 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,
0x269710…2698a4 Dummy {f00=0x00c1, 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
0x2698a4…269a38 Dummy {f00=0x00c1, 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
0x269a38…269bcc Dummy {f00=0x00c1, 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
0x269bcc…269d60 Dummy {f00=0x00c1, 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
0x269d60…269ef4 (1, 582) Dummy {f00=0x00c1, 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
0x269ef4…26a088 Dummy {f00=0x00c1, 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
0x26a088…26a21c Dummy {f00=0x00c1, 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
0x26a21c…26a3b0 Dummy {f00=0x00c1, 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
0x26a3b0…26a544 Dummy {f00=0x00c1, 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
0x26a544…26a6d8 Dummy {f00=0x00c1, 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
0x26a6d8…26a86c Dummy {f00=0x00c1, 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
0x26a86c…26aa00 Dummy {f00=0x00c1, 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
0x26aa00…26ab94 (1, 583) Dummy {f00=0x00c2, 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
0x26ab94…26ad28 Dummy {f00=0x00c2, 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 ?
0x26ad28…26aebc Dummy {f00=0x00c2, 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
0x26aebc…26b050 Dummy {f00=0x00c2, 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
0x26b050…26b1e4 Dummy {f00=0x00c2, 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
0x26b1e4…26b378 Dummy {f00=0x00c2, 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
0x26b378…26b50c Dummy {f00=0x00c2, 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
0x26b50c…26b6a0 Dummy {f00=0x00c2, 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
0x26b6a0…26b834 (1, 584) Dummy {f00=0x00c2, 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
0x26b834…26b9c8 Dummy {f00=0x00c2, 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
0x26b9c8…26bb5c Dummy {f00=0x00c2, 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
0x26bb5c…26bcf0 Dummy {f00=0x00c2, 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
0x26bcf0…26be84 Dummy {f00=0x00c2, 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
0x26be84…26c018 Dummy {f00=0x00c2, 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
0x26c018…26c1ac Dummy {f00=0x00c2, 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
0x26c1ac…26c340 Dummy {f00=0x00c2, 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
0x26c340…26c4d4 (1, 585) Dummy {f00=0x00c2, 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
0x26c4d4…26c668 Dummy {f00=0x00c2, 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
0x26c668…26c7fc Dummy {f00=0x00c2, 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
0x26c7fc…26c990 Dummy {f00=0x00c2, 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
0x26c990…26cb24 Dummy {f00=0x00c2, 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
0x26cb24…26ccb8 Dummy {f00=0x00c2, 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
0x26ccb8…26ce4c Dummy {f00=0x00c2, 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
0x26ce4c…26cfe0 Dummy {f00=0x00c2, 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
0x26cfe0…26d174 (1, 586) Dummy {f00=0x00c2, 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
0x26d174…26d308 Dummy {f00=0x00c2, 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
0x26d308…26d49c Dummy {f00=0x00c2, 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
0x26d49c…26d630 Dummy {f00=0x00c2, 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
0x26d630…26d7c4 Dummy {f00=0x00c2, 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
0x26d7c4…26d958 Dummy {f00=0x00c2, 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
0x26d958…26daec Dummy {f00=0x00c2, 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
0x26daec…26dc80 Dummy {f00=0x00c2, 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
0x26dc80…26de14 (1, 587) Dummy {f00=0x00c3, 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* ^
0x26de14…26dfa8 Dummy {f00=0x00c3, 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 _
0x26dfa8…26e13c Dummy {f00=0x00c3, 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
0x26e13c…26e2d0 Dummy {f00=0x00c3, 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
0x26e2d0…26e464 Dummy {f00=0x00c3, 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
0x26e464…26e5f8 Dummy {f00=0x00c3, 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*
0x26e5f8…26e78c Dummy {f00=0x00c3, 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
0x26e78c…26e920 Dummy {f00=0x00c3, 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
0x26e920…26eab4 (1, 588) Dummy {f00=0x00c3, 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
0x26eab4…26ec48 Dummy {f00=0x00c3, 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
0x26ec48…26eddc Dummy {f00=0x00c3, 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
0x26eddc…26ef70 Dummy {f00=0x00c3, 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
0x26ef70…26f104 Dummy {f00=0x00c3, 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
0x26f104…26f298 Dummy {f00=0x00c3, 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
0x26f298…26f42c Dummy {f00=0x00c3, 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
0x26f42c…26f5c0 Dummy {f00=0x00c3, 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
0x26f5c0…26f754 (1, 589) Dummy {f00=0x00c3, 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
0x26f754…26f8e8 Dummy {f00=0x00c3, 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
0x26f8e8…26fa7c Dummy {f00=0x00c3, 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
0x26fa7c…26fc10 Dummy {f00=0x00c3, 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
0x26fc10…26fda4 Dummy {f00=0x00c3, 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
0x26fda4…26ff38 Dummy {f00=0x00c3, 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
0x26ff38…2700cc Dummy {f00=0x00c3, 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*
0x2700cc…270260 Dummy {f00=0x00c3, 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
0x270260…2703f4 (1, 590) Dummy {f00=0x00c3, 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
0x2703f4…270588 Dummy {f00=0x00c3, 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
0x270588…27071c Dummy {f00=0x00c3, 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
0x27071c…2708b0 Dummy {f00=0x00c3, 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
0x2708b0…270a44 Dummy {f00=0x00c3, 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
0x270a44…270bd8 Dummy {f00=0x00c3, 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
0x270bd8…270d6c Dummy {f00=0x00c3, 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*
0x270d6c…270f00 Dummy {f00=0x00c3, 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
0x270f00…271094 (1, 591) Dummy {f00=0x00c4, 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: ~
0x271094…271228 Dummy {f00=0x00c4, 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.
0x271228…2713bc Dummy {f00=0x00c4, 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
0x2713bc…271550 Dummy {f00=0x00c4, 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
0x271550…2716e4 Dummy {f00=0x00c4, 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
0x2716e4…271878 Dummy {f00=0x00c4, 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
0x271878…271a0c Dummy {f00=0x00c4, 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
0x271a0c…271ba0 Dummy {f00=0x00c4, 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
0x271ba0…271d34 (1, 592) Dummy {f00=0x00c4, 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?
0x271d34…271ec8 Dummy {f00=0x00c4, 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
0x271ec8…27205c Dummy {f00=0x00c4, 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
0x27205c…2721f0 Dummy {f00=0x00c4, 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
0x2721f0…272384 Dummy {f00=0x00c4, 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
0x272384…272518 Dummy {f00=0x00c4, 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
0x272518…2726ac Dummy {f00=0x00c4, 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
0x2726ac…272840 Dummy {f00=0x00c4, 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
0x272840…2729d4 (1, 593) Dummy {f00=0x00c4, 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
0x2729d4…272b68 Dummy {f00=0x00c4, 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******************************************************
0x272b68…272cfc Dummy {f00=0x00c4, 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 "
0x272cfc…272e90 Dummy {f00=0x00c4, 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,
0x272e90…273024 Dummy {f00=0x00c4, 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
0x273024…2731b8 Dummy {f00=0x00c4, 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
0x2731b8…27334c Dummy {f00=0x00c4, 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
0x27334c…2734e0 Dummy {f00=0x00c4, 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.
0x2734e0…273674 (1, 594) Dummy {f00=0x00c4, 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
0x273674…273808 Dummy {f00=0x00c4, 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
0x273808…27399c Dummy {f00=0x00c4, 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
0x27399c…273b30 Dummy {f00=0x00c4, 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
0x273b30…273cc4 Dummy {f00=0x00c4, 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
0x273cc4…273e58 Dummy {f00=0x00c4, 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*
0x273e58…273fec Dummy {f00=0x00c4, 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
0x273fec…274180 Dummy {f00=0x00c4, 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
0x274180…274314 (1, 595) Dummy {f00=0x00c5, 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
0x274314…2744a8 Dummy {f00=0x00c5, 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
0x2744a8…27463c Dummy {f00=0x00c5, 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
0x27463c…2747d0 Dummy {f00=0x00c5, 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 "
0x2747d0…274964 Dummy {f00=0x00c5, 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
0x274964…274af8 Dummy {f00=0x00c5, 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,
0x274af8…274c8c Dummy {f00=0x00c5, 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
0x274c8c…274e20 Dummy {f00=0x00c5, 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
0x274e20…274fb4 (1, 596) Dummy {f00=0x00c5, 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************************************************
0x274fb4…275148 Dummy {f00=0x00c5, 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*
0x275148…2752dc Dummy {f00=0x00c5, 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
0x2752dc…275470 Dummy {f00=0x00c5, 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
0x275470…275604 Dummy {f00=0x00c5, 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
0x275604…275798 Dummy {f00=0x00c5, 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********************************************
0x275798…27592c Dummy {f00=0x00c5, 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
0x27592c…275ac0 Dummy {f00=0x00c5, 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
0x275ac0…275c54 (1, 597) Dummy {f00=0x00c5, 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
0x275c54…275de8 Dummy {f00=0x00c5, 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
0x275de8…275f7c Dummy {f00=0x00c5, 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
0x275f7c…276110 Dummy {f00=0x00c5, 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*
0x276110…2762a4 Dummy {f00=0x00c5, 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
0x2762a4…276438 Dummy {f00=0x00c5, 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
0x276438…2765cc Dummy {f00=0x00c5, 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* ,
0x2765cc…276760 Dummy {f00=0x00c5, 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* @
0x276760…2768f4 (1, 598) Dummy {f00=0x00c5, 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
0x2768f4…276a88 Dummy {f00=0x00c5, 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
0x276a88…276c1c Dummy {f00=0x00c5, 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
0x276c1c…276db0 Dummy {f00=0x00c5, 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*
0x276db0…276f44 Dummy {f00=0x00c5, 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
0x276f44…2770d8 Dummy {f00=0x00c5, 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
0x2770d8…27726c Dummy {f00=0x00c5, 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**********************************************************
0x27726c…277400 Dummy {f00=0x00c5, 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
0x277400…277594 (1, 599) Dummy {f00=0x00c6, 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
0x277594…277728 Dummy {f00=0x00c6, 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*
0x277728…2778bc Dummy {f00=0x00c6, 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**********
0x2778bc…277a50 Dummy {f00=0x00c6, 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
0x277a50…277be4 Dummy {f00=0x00c6, 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
0x277be4…277d78 Dummy {f00=0x00c6, 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
0x277d78…277f0c Dummy {f00=0x00c6, 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
0x277f0c…2780a0 Dummy {f00=0x00c6, 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
0x2780a0…278234 (1, 600) Dummy {f00=0x00c6, 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
0x278234…2783c8 Dummy {f00=0x00c6, 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)
0x2783c8…27855c Dummy {f00=0x00c6, 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*
0x27855c…2786f0 Dummy {f00=0x00c6, 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
0x2786f0…278884 Dummy {f00=0x00c6, 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* -
0x278884…278a18 Dummy {f00=0x00c6, 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
0x278a18…278bac Dummy {f00=0x00c6, 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
0x278bac…278d40 Dummy {f00=0x00c6, 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
0x278d40…278ed4 (1, 601) Dummy {f00=0x00c6, 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
0x278ed4…279068 Dummy {f00=0x00c6, 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
0x279068…2791fc Dummy {f00=0x00c6, 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
0x2791fc…279390 Dummy {f00=0x00c6, 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
0x279390…279524 Dummy {f00=0x00c6, 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*
0x279524…2796b8 Dummy {f00=0x00c6, 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
0x2796b8…27984c Dummy {f00=0x00c6, 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************************************************************
0x27984c…2799e0 Dummy {f00=0x00c6, 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
0x2799e0…279b74 (1, 602) Dummy {f00=0x00c6, 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
0x279b74…279d08 Dummy {f00=0x00c6, 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
0x279d08…279e9c Dummy {f00=0x00c6, 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:
0x279e9c…27a030 Dummy {f00=0x00c6, 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
0x27a030…27a1c4 Dummy {f00=0x00c6, 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
0x27a1c4…27a358 Dummy {f00=0x00c6, 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
0x27a358…27a4ec Dummy {f00=0x00c6, 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
0x27a4ec…27a680 Dummy {f00=0x00c6, 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
0x27a680…27a814 (1, 603) Dummy {f00=0x00c7, 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
0x27a814…27a9a8 Dummy {f00=0x00c7, 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
0x27a9a8…27ab3c Dummy {f00=0x00c7, 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
0x27ab3c…27acd0 Dummy {f00=0x00c7, 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
0x27acd0…27ae64 Dummy {f00=0x00c7, 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
0x27ae64…27aff8 Dummy {f00=0x00c7, 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
0x27aff8…27b18c Dummy {f00=0x00c7, 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
0x27b18c…27b320 Dummy {f00=0x00c7, 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
0x27b320…27b4b4 (1, 604) Dummy {f00=0x00c7, 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
0x27b4b4…27b648 Dummy {f00=0x00c7, 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
0x27b648…27b7dc Dummy {f00=0x00c7, 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
0x27b7dc…27b970 Dummy {f00=0x00c7, 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
0x27b970…27bb04 Dummy {f00=0x00c7, 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
0x27bb04…27bc98 Dummy {f00=0x00c7, 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*
0x27bc98…27be2c Dummy {f00=0x00c7, 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
0x27be2c…27bfc0 Dummy {f00=0x00c7, 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
0x27bfc0…27c154 (1, 605) Dummy {f00=0x00c7, 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
0x27c154…27c2e8 Dummy {f00=0x00c7, 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
0x27c2e8…27c47c Dummy {f00=0x00c7, 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 *
0x27c47c…27c610 Dummy {f00=0x00c7, 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
0x27c610…27c7a4 Dummy {f00=0x00c7, 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
0x27c7a4…27c938 Dummy {f00=0x00c7, 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*
0x27c938…27cacc Dummy {f00=0x00c7, 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
0x27cacc…27cc60 Dummy {f00=0x00c7, 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
0x27cc60…27cdf4 (1, 606) Dummy {f00=0x00c7, 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)
0x27cdf4…27cf88 Dummy {f00=0x00c7, 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
0x27cf88…27d11c Dummy {f00=0x00c7, 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,
0x27d11c…27d2b0 Dummy {f00=0x00c7, 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 *
0x27d2b0…27d444 Dummy {f00=0x00c7, 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:
0x27d444…27d5d8 Dummy {f00=0x00c7, 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
0x27d5d8…27d76c Dummy {f00=0x00c7, 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
0x27d76c…27d900 Dummy {f00=0x00c7, 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
0x27d900…27da94 (1, 607) Dummy {f00=0x00c8, 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
0x27da94…27dc28 Dummy {f00=0x00c8, 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? *
0x27dc28…27ddbc Dummy {f00=0x00c8, 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
0x27ddbc…27df50 Dummy {f00=0x00c8, 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
0x27df50…27e0e4 Dummy {f00=0x00c8, 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
0x27e0e4…27e278 Dummy {f00=0x00c8, 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
0x27e278…27e40c Dummy {f00=0x00c8, 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
0x27e40c…27e5a0 Dummy {f00=0x00c8, 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
0x27e5a0…27e734 (1, 608) Dummy {f00=0x00c8, 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
0x27e734…27e8c8 Dummy {f00=0x00c8, 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
0x27e8c8…27ea5c Dummy {f00=0x00c8, 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
0x27ea5c…27ebf0 Dummy {f00=0x00c8, 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
0x27ebf0…27ed84 Dummy {f00=0x00c8, 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
0x27ed84…27ef18 Dummy {f00=0x00c8, 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
0x27ef18…27f0ac Dummy {f00=0x00c8, 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* @
0x27f0ac…27f240 Dummy {f00=0x00c8, 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
0x27f240…27f3d4 (1, 609) Dummy {f00=0x00c8, 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*
0x27f3d4…27f568 Dummy {f00=0x00c8, 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 "
0x27f568…27f6fc Dummy {f00=0x00c8, 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
0x27f6fc…27f890 Dummy {f00=0x00c8, 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******************
0x27f890…27fa24 Dummy {f00=0x00c8, 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
0x27fa24…27fbb8 Dummy {f00=0x00c8, 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:
0x27fbb8…27fd4c Dummy {f00=0x00c8, 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
0x27fd4c…27fee0 Dummy {f00=0x00c8, 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
0x27fee0…280074 (1, 610) Dummy {f00=0x00c8, 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
0x280074…280208 Dummy {f00=0x00c8, 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*
0x280208…28039c Dummy {f00=0x00c8, 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:
0x28039c…280530 Dummy {f00=0x00c8, 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********************************************
0x280530…2806c4 Dummy {f00=0x00c8, 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
0x2806c4…280858 Dummy {f00=0x00c8, 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******************************************************
0x280858…2809ec Dummy {f00=0x00c8, 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
0x2809ec…280b80 Dummy {f00=0x00c8, 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************************************************
0x280b80…280d14 (1, 611) Dummy {f00=0x00c9, 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**********************************************************
0x280d14…280ea8 Dummy {f00=0x00c9, 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
0x280ea8…28103c Dummy {f00=0x00c9, 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
0x28103c…2811d0 Dummy {f00=0x00c9, 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******************************
0x2811d0…281364 Dummy {f00=0x00c9, 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******************************
0x281364…2814f8 Dummy {f00=0x00c9, 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 #
0x2814f8…28168c Dummy {f00=0x00c9, 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
0x28168c…281820 Dummy {f00=0x00c9, 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
0x281820…2819b4 (1, 612) Dummy {f00=0x00c9, 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
0x2819b4…281b48 Dummy {f00=0x00c9, 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
0x281b48…281cdc Dummy {f00=0x00c9, 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
0x281cdc…281e70 Dummy {f00=0x00c9, 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
0x281e70…282004 Dummy {f00=0x00c9, 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
0x282004…282198 Dummy {f00=0x00c9, 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
0x282198…28232c Dummy {f00=0x00c9, 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
0x28232c…2824c0 Dummy {f00=0x00c9, 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
0x2824c0…282654 (1, 613) Dummy {f00=0x00c9, 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
0x282654…2827e8 Dummy {f00=0x00c9, 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
0x2827e8…28297c Dummy {f00=0x00c9, 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
0x28297c…282b10 Dummy {f00=0x00c9, 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
0x282b10…282ca4 Dummy {f00=0x00c9, 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=
0x282ca4…282e38 Dummy {f00=0x00c9, 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**********************************
0x282e38…282fcc Dummy {f00=0x00c9, 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
0x282fcc…283160 Dummy {f00=0x00c9, 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
0x283160…2832f4 (1, 614) Dummy {f00=0x00c9, 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
0x2832f4…283488 Dummy {f00=0x00c9, 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
0x283488…28361c Dummy {f00=0x00c9, 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
0x28361c…2837b0 Dummy {f00=0x00c9, 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
0x2837b0…283944 Dummy {f00=0x00c9, 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
0x283944…283ad8 Dummy {f00=0x00c9, 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 ;
0x283ad8…283c6c Dummy {f00=0x00c9, 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
0x283c6c…283e00 Dummy {f00=0x00c9, 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
0x283e00…283f94 (1, 615) Dummy {f00=0x00ca, 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
0x283f94…284128 Dummy {f00=0x00ca, 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
0x284128…2842bc Dummy {f00=0x00ca, 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
0x2842bc…284450 Dummy {f00=0x00ca, 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
0x284450…2845e4 Dummy {f00=0x00ca, 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
0x2845e4…284778 Dummy {f00=0x00ca, 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
0x284778…28490c Dummy {f00=0x00ca, 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
0x28490c…284aa0 Dummy {f00=0x00ca, 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************
0x284aa0…284c34 (1, 616) Dummy {f00=0x00ca, 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
0x284c34…284dc8 Dummy {f00=0x00ca, 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
0x284dc8…284f5c Dummy {f00=0x00ca, 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
0x284f5c…2850f0 Dummy {f00=0x00ca, 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
0x2850f0…285284 Dummy {f00=0x00ca, 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
0x285284…285418 Dummy {f00=0x00ca, 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
0x285418…2855ac Dummy {f00=0x00ca, 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*
0x2855ac…285740 Dummy {f00=0x00ca, 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
0x285740…2858d4 (1, 617) Dummy {f00=0x00ca, 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 =
0x2858d4…285a68 Dummy {f00=0x00ca, 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
0x285a68…285bfc Dummy {f00=0x00ca, 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
0x285bfc…285d90 Dummy {f00=0x00ca, 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
0x285d90…285f24 Dummy {f00=0x00ca, 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
0x285f24…2860b8 Dummy {f00=0x00ca, 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
0x2860b8…28624c Dummy {f00=0x00ca, 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
0x28624c…2863e0 Dummy {f00=0x00ca, 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
0x2863e0…286574 (1, 618) Dummy {f00=0x00ca, 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
0x286574…286708 Dummy {f00=0x00ca, 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
0x286708…28689c Dummy {f00=0x00ca, 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
0x28689c…286a30 Dummy {f00=0x00ca, 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
0x286a30…286bc4 Dummy {f00=0x00ca, 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
0x286bc4…286d58 Dummy {f00=0x00ca, 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)
0x286d58…286eec Dummy {f00=0x00ca, 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
0x286eec…287080 Dummy {f00=0x00ca, 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******************************
0x287080…287214 (1, 619) Dummy {f00=0x00cb, 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 ^
0x287214…2873a8 Dummy {f00=0x00cb, 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
0x2873a8…28753c Dummy {f00=0x00cb, 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
0x28753c…2876d0 Dummy {f00=0x00cb, 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
0x2876d0…287864 Dummy {f00=0x00cb, 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
0x287864…2879f8 Dummy {f00=0x00cb, 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
0x2879f8…287b8c Dummy {f00=0x00cb, 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*
0x287b8c…287d20 Dummy {f00=0x00cb, 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
0x287d20…287eb4 (1, 620) Dummy {f00=0x00cb, 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
0x287eb4…288048 Dummy {f00=0x00cb, 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
0x288048…2881dc Dummy {f00=0x00cb, 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
0x2881dc…288370 Dummy {f00=0x00cb, 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
0x288370…288504 Dummy {f00=0x00cb, 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*
0x288504…288698 Dummy {f00=0x00cb, 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*---------
0x288698…28882c Dummy {f00=0x00cb, 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
0x28882c…2889c0 Dummy {f00=0x00cb, 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
0x2889c0…288b54 (1, 621) Dummy {f00=0x00cb, 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
0x288b54…288ce8 Dummy {f00=0x00cb, 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
0x288ce8…288e7c Dummy {f00=0x00cb, 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
0x288e7c…289010 Dummy {f00=0x00cb, 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=
0x289010…2891a4 Dummy {f00=0x00cb, 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
0x2891a4…289338 Dummy {f00=0x00cb, f01=0x0000, f02=»
[…0x2…]
0x289660…2897f4 (1, 622) Opaque[0x194]
0x2897f4…289988 # DirEnt {nam=»DROD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1978, f03=0x0000}
0x2897f4…289988 IdxSect {
0x2897f4…289988 f00 = 0x00cb // 0x2897f4 @0x0
0x2897f4…289988 f01 = 0x000c // 0x2897f6 @0x2
0x2897f4…289988 gno = [ // 0x2897f8 @0x4
0x2897f4…289988 [0x00]: C0x00cb.0x3.0
0x2897f4…289988 [0x01]: C0x00cc.0x0.0
0x2897f4…289988 [0x02]: C0x00cc.0x1.0
0x2897f4…289988 [0x03]: C0x00cc.0x2.0
0x2897f4…289988 [0x04]: C0x00cc.0x3.0
0x2897f4…289988 [0x05]: C0x00cd.0x0.0
0x2897f4…289988 ]
0x2897f4…289988 }
0x289988…289b1c Dummy {f00=0x00cb, f01=0x0190, f02=» 2 P IDENT DROD01 REL 11.0 81-01-26 870105041100 P : 8 P =1,NO SPECIAL ORDER CODES FOR CREDIT APPLICATIONS B P PRR 11.1 80-01-23$$ ~ P* 0 P******************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x289b1c…289cb0 Dummy {f00=0x00cb, f01=0x0190, f02=»********************************* P* * P* 4 , P* THIS DRIVER HANDLES INPUT FROM OCR > , P* CONNECTED TO CPU VIA CHLT OR CHRT. n P* " P* ONLY INPUT DATA FROM OCR $ P* ARE HANDLED BY THE DRIVER. P* P* 0
0x289cb0…289e44 Dummy {f00=0x00cb, f01=0x0190, f02=» HANDLER x P* $ P* R C O D : RECOVERY ROUTINE P* B P EJECT DROD01 L P* b P* l , P* THE FOLLOWING ORDERS ARE THREATED: v P* P* ORDER 02: READ DOCUMENT & P* ORDER 04: RESET INPUT BUFFER P* P
0x289e44…289fd8 Dummy {f00=0x00cb, f01=0x0190, f02=»* A3 : BUFFER INDEX $ P* A4 : WORK REGISTER ( " P* A5 : STACK BASE P " P* A6 : DWT-ADDRESS v P* A7 : ORDER " P* A8 : ECB-ADDRESS P* P* P* P* SYS
0x289fd8…28a16c Dummy {f00=0x00cb, f01=0x0190, f02=»TERS ` 8 P* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL P* DWT:S IN SYSTEM H P* d , P* IF TIMING IS WANTED, TIMER POINTER n , P* IN DWT MUST BE SET UNEQUAL TO ZERO. 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS 0 P*
0x28a16c…28a300 Dummy {f00=0x00cb, f01=0x0190, f02=» P EJECT DROD01 P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE ( 8 P* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: d P* " P* -----POWER ON INDICATION P* -----TIME-OUT-FUNCTION P* P* ENTRIE
0x28a300…28a494 (1, 623) Dummy {f00=0x00cc, f01=0x0190, f02=»* P* P* * P EXTRN LENDER END REQUEST AND DISPATCH " P EXTRN INPUT READ A CHARACTER L P EXTRN TENDIO END I/O r " P EXTRN LDISP DISPATCHER ENTRY P EXTRN SETIME SET TIME P EXTRN NDGET8 LOAD REGISTERS P* P*
0x28a494…28a628 Dummy {f00=0x00cc, f01=0x0190, f02=»CK p P EXTRN DWTA3 SAVE AREA A3 EXTRN DWTA4 SAVE AREA A4 , EXTRN DWTA5 SAVE AREA A5 N & ! EXTRN DWTSB2 STACK BASE 2 IN DWT p P EXTRN DWTWAT SAVE INPUT DWT P EXTRN DWTDEV DEVICE STATUS $ P EXTRN ECBBA ECB BUFFER ADDRESS &
0x28a628…28a7bc Dummy {f00=0x00cc, f01=0x0190, f02=»CB CONTROL WORD P EJECT DROD01 P* . P* 8 P* B P* CONSTANTS L P* d P* n P* x * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER P* . PX:B EQU 80 LENGTH OF CIRCULAR INPUT BUFFER 2 PDWTLNG EQU X:B NUMBER OF BYT
0x28a7bc…28a950 Dummy {f00=0x00cc, f01=0x0190, f02=»CONSTANT z P* P* P* $ P* . P EJECT DROD01 8 P* N P* X , P**************************************** b , P* CONDITIONAL ASSEMBLY * , P**************************************** P* P* > P*
0x28a950…28aae4 Dummy {f00=0x00cc, f01=0x0190, f02=»EST THIS IS COMPLETED WITH r * P* -2 IN THE CONTROL WORD OF ECB. " @ P* IF THERE IS NO READ REQUEST , THE FIRST READ REQUEST P > P* AFTER POWER ON IS COMPLETED WITH -2 IN CONTROL WORD P* OF ECB P* P* PX:A EQU
0x28aae4…28ac78 Dummy {f00=0x00cc, f01=0x0190, f02=» PX:F EQU 1 PCTIMUT EQU X:F P* , P* 6 P* MMU BUFFER SIZE @ P* PX:C EQU 80 f PDVBLEN EQU X:C x P* P* P* MMU KEY TABLE SIZE P* PX:D EQU 10 PDVBKTB EQU X:D P* P* . P*
0x28ac78…28ae0c Dummy {f00=0x00cc, f01=0x0190, f02=» 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. B P* t PCPU852 EQU 1 ~ P* P EJECT DROD01 P* P* P********************* P* DWT DISPLACEMENTS * P******
0x28ae0c…28afa0 Dummy {f00=0x00cc, f01=0x018e, f02=»U DWTDRD P XIF P* P IFT MMUPAG=1 & PSTART EQU DWTDRD+4 < P XIF V P* b " PDWTCON EQU /8 CONVERSION TABLE l PDWTTP EQU /A TIMER POINTER $ PDWTLRC EQU /E LRC - ACKUMULATOR 2 PDWTINQ EQU /10 POINTER TO FIRST PLACE IN QUE
0x28afa0…28b134 (1, 624) Dummy {f00=0x00cc, f01=0x0190, f02=» j P* P EJECT DROD01 P* ( P* 2 P************** < P* TABLES * R P************** h P* ~ P* $ P DATA DVBKTB MMU KEY TABLE SIZE P DATA DVBLEN MMU BUFFER SIZE P DATA 6 DEVICE INDEX PODAD EQU *
0x28b134…28b2c8 Dummy {f00=0x00cc, f01=0x0190, f02=»1 P DATA 0 NO RECOVERY P XIF & P* 2 P IFT POWOFF=1 < P* R P DATA RCOD RECOVERY ROUTINE P EJECT DROD01 P* P* P* R C O D P* . P* THIS IS THE RECOVERY ROUTINE FOR OCR & P* ENTERED F
0x28b2c8…28b45c Dummy {f00=0x00cc, f01=0x0190, f02=»,A6 INDICATE POWER OFF OCCURED P LD A3,DWTST,A6 I/O-REQUEST & P RF(N) RCOD05 NO J ( P LD A4,DWTDEV+DWTTP,A6 TIME EQUAL 0 b P RF(Z) RCOD05 YES $ P CM* DWTDEV+DWTTP,A6 RESET TIME $ P CM DWTDEV+DWTTP,A6 RESET TIMER PRCOD05 EQU *
0x28b45c…28b5f0 Dummy {f00=0x00cc, f01=0x018e, f02=»IME | P DATA RCTUT,/A P ST A4,DWTDEV+DWTTP,A6 " P RF RCTDIS DISPATCH @ PRCTUT EQU * P INH p P IFT POWOFF=1 | P LDR A6,A1 PRCTUT5 EQU * P CM DWTDEV+DWTTP,A6 P GET DWT-ADDRESS P LD A8,4,A6 GET ECB-ADDRES
0x28b5f0…28b784 Dummy {f00=0x00cc, f01=0x0190, f02=» PRCTUT6 EQU * P ENB P ENB $ " P LDKL A1,/FFFE RESET RECOVERY 0 P ANS A1,DWTST,A6 V P LDK A1,0 n P LD A2,DWTDEV+DWTINQ,A6 P SCR A1,A2 P ST A2,DWTDEV+DWTUTQ,A6 P LD A3,DWTST,A6 P RF(NN) RCEND PRCTDIS E
0x28b784…28b918 Dummy {f00=0x00cc, f01=0x0190, f02=»PATCH P XIF P* P EJECT DROD01 $ P* : P* D P* A C O D N P* b P* ACTIVATION PART: l P* 0 P* CHECKS VALIDITY OF ORDERS AND EXAMINES , P* INPUT BUFFER TO SEE IF SOME QUEUED P* TO THREAT.
0x28b918…28baac Dummy {f00=0x00cc, f01=0x0190, f02=»KUMULATOR l P LDR A4,A7 P $ P SUK A4,4 , P > P SUK A4,/2D F $ P RF(Z) CRE:10 SKIP INPUT BUFFER Z P ADK A4,/2D PCRE:10 EQU * P RF(N) AOD200 ORDER 2 * PAOD100 ORKL A1,/8000 I/O REQUEST ERROR PAOD105 EQU *
0x28baac…28bc40 Dummy {f00=0x00cc, f01=0x0190, f02=» LD A2,DWTDEV+DWTINQ,A6 ORDER 4 ( P SCR A1,A2 RESET OVERFLOW IF OCCURED ( . P ST A2,DWTDEV+DWTUTQ,A6 RESET OUTPUT QUEUE T P ABL ENDIO END I/O P EJECT DROD01 P* P* P* P* PAOD200 EQU * P* P IFT POWOFF=
0x28bc40…28bdd4 (1, 625) Dummy {f00=0x00cc, f01=0x0190, f02=» XIF PAOD202 EQU * P CM 10,A8 INDICATE POWER ON P IFT POWOFF=1 D P ABL AOD380 Z P* n P XIF x P* PAOD205 EQU * P* P IFT CTIMUT=1 P* * P LD A1,DWTDEV,A6 TIMING ON THIS DEVICE , P RF(NN) AOD210
0x28bdd4…28bf68 Dummy {f00=0x00cc, f01=0x018e, f02=»F AOD210 PAODTIM EQU * P LDR A1,A6 GET DWT ADRESS $ P CF A15,SETIME SET TIME F 0 P DATA AODTUT,TIME TIME OUT ROUTINE AND TIME f 6 P ST A4,DWTDEV+DWTTP,A6 STORE TIMER ADDRESS IN DWT P* P XIF P* P EJECT DROD01
0x28bf68…28c0fc Dummy {f00=0x00cc, f01=0x0190, f02=» x P RF(NE) AOD240 N0! " P LD A1,ECBBA,A8 BUFFER ADDRESS " P SUK A1,1 H P ADR A1,A2 Z & PAOD230 SCR A3,A1 CLEAR ECB BUFFER l P SUK A1,1 P SUK A2,1 P RB(NE) AOD230 PAOD240 EQU * P LD A1,DWTDEV+DWTUTQ,A6 P LCR
0x28c0fc…28c290 Dummy {f00=0x00cc, f01=0x0190, f02=»LOW SET | P RF ENDIO END I/O 6 PAOD250 CW A1,DWTDEV+DWTINQ,A6 SOMETHING IN QUEUE? * P RF(NE) AOD260 d " P CF A5,INPUT READ A CHARACTER | P IFT CTIMUT=1 * P LDR A1,A1 CHECK TIME OUT RETURN CODE P RF(Z) AOD270 NO TIME-OUT " P
0x28c290…28c424 Dummy {f00=0x00cc, f01=0x0190, f02=»TER n . P ST A1,DWTDEV+DWTUTQ,A6 STORE NEW POINTER PAOD270 EQU * > P LDR A4,A7 R P SUK A4,2 d P RF(NN) AOD310 ORDER 2 v P RB AOD100 I/O REQUEST ERROR P EJECT DROD01 P* P* P* P* ORDER 2 READ DOCUMENT
0x28c424…28c5b8 Dummy {f00=0x00cc, f01=0x0190, f02=»RACTER x PAOD320 EQU * P LDK A4,/40 " $ P TM A4,A2 CHECK IF END CHARACTER 6 P RF(Z) AOD330 NO ^ 2 P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH IN ECB v P NGR A3,A3 NEGATE REGISTER P RF AOD340 PAOD330 EQU * " P CWK A2,/3F REJECTED
0x28c5b8…28c74c Dummy {f00=0x00cc, f01=0x0190, f02=» f PAOD331 EQU * " P CWK A2,/21 DIRECTION REJECTED P RF(NE) AOD332 NO B ( P LDK A1,/10 INDICATE DIRECTION ERROR P RF ENDIO PAOD332 EQU * $ P CWK A2,/1C QUADRATURE REJECTED? P RF(NE) AOD333 NO , P LDKL A1,/800 INDICATE Q
0x28c74c…28c8e0 Dummy {f00=0x00cc, f01=0x0190, f02=»D A1,ECBCW,A8 KEY TABLE ADDRESS P RF(Z) AOD340 NO KEYTABLE ( " P LCR A4,A1 TABLE LENGTH IN A4 J P ANK A4,/FF p & P ADR A1,A4 LAST PLACE IN KEY TABLE P ADK A1,1 PAOD335 EQU * P SUK A4,1 P RF(N) AOD340 KEY NOT FOUND
0x28c8e0…28ca74 (1, 626) Dummy {f00=0x00cc, f01=0x0190, f02=»AOD240 PAOD340 EQU * 4 P XRS A2,DWTDEV+DWTLRC,A6 UPDATE LRC-ACKUMULATOR " 2 P CF A15,CDCHK CODE CHECK IF LESS /1F SET BIT 7 Z P LDR A3,A3 P RF(N) AOD345 & P CF A15,STORE STORE IN ECB-BUFFER PAOD345 EQU * P RB AOD240 P
0x28ca74…28cc08 Dummy {f00=0x00cc, f01=0x0190, f02=»ECT END I/O ~ " P LDK A1,4 INDICATE LRC RERROR P RF ENDIO < PAOD360 EQU * N P CF A15,CDCHK CODE CHECK b P LDK A1,8 LENGTH OVERFLOW P RF ENDIO PAOD380 LDK A1,0 RETURN CODE P EJECT DROD01 P* P* , P*
0x28cc08…28cd9c Dummy {f00=0x00cc, f01=0x0190, f02=»U * P IFT CTIMUT=1 P INH " P LD A4,DWTDEV+DWTTP,A6 . * P RF(E) ENDI05 NO TIMING ON THIS DEVICE L $ P CM* DWTDEV+DWTTP,A6 RESET TIMER z P CM DWTDEV+DWTTP,A6 P XIF P* P*** P* PENDI05 EQU * P LDR A3,A3
0x28cd9c…28cf30 Dummy {f00=0x00cc, f01=0x0190, f02=» P ABL LDISP DISPATCH ! P* ! P EJECT DROD01 ! * P* ! @ P* ! J P* ! T P* IHOD ! ^ P* ! p P* ! z F P* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER ! P* ! P* ! P* ! PIHOD EQU * ! P* ! P
0x28cf30…28d0c4 Dummy {f00=0x00cc, f01=0x0190, f02=» ! t P ST* A3,DWTDEV+DWTTP,A6 " P* " ( P XIF " 2 P* " > PIHOD05 EQU * " H PIHOD10 EQU * " P LD A1,DWTDEV+DWTINQ,A6 " p P LCR A4,A1 " " P XRK A4,/FF ALREADY OVERFLOW? " P RF(E) EXIT YES " P LDR A3,A1 " 4 P CF A15,EOQUEU GET NEX
0x28d0c4…28d258 Dummy {f00=0x00cc, f01=0x018e, f02=»UFFER " j P RF IHOD30 # 8 PIHOD20 ST A1,DWTDEV+DWTINQ,A6 STORE INQUEUE POINTER # PIHOD30 SCR A2,A3 # PEXIT EQU * # t P ABL LDISP DISPATCH # P EJECT DROD01 # P IFT POWOFF=1 # PEXIT2 EQU * # P LD A3,DWTA3,A6 # P RF(N) EXIT4 #
0x28d258…28d3ec Dummy {f00=0x00cc, f01=0x0190, f02=» # h P LDK A3,1 $ PEXIT3 EQU * $ P ADK A3,1 $ . P LDK A4,/40 $ @ P TM A4,A2 ETX CHARACTER $ T P RF(Z) EXIT5 NO $ t P NGR A3,A3 $ PEXIT5 EQU * $ P ST A3,DWTA3,A6 $ P RB EXIT DISPATCH $ PEXIT4 EQU * $ $ P CM* DWTDEV+DWTT
0x28d3ec…28d580 Dummy {f00=0x00cc, f01=0x0190, f02=» P* % & P* THIS IS THE TIME-OUT ROUTINE % P* % 8 P* % B P IFT CTIMUT=1 % L P* % b PAODTUT EQU * % l P LDR A6,A1 GET DWT-ADDRESS % P LD A1,DWTST,A6 % P RB(N) EXIT % P LDK A1,/40 SET RETURN CODE % P CM DWTDEV+DWTTP,A6 %
0x28d580…28d714 (1, 627) Dummy {f00=0x00cd, f01=0x018e, f02=»UTINE TO STORE A CHARACTER IN % ~ 6 P* ECB-BUFFER AND INCREMENT BUFFER INDEX & & P* & ` P* ON ENTRY: & j P* & P* A2 = CHARACTER TO STORE & P* A3 = BUFFER INDEX & P* & P* & PSTORE EQU * & " P LD A4,ECBBA,A8 BUFF
0x28d714…28d8a8 Dummy {f00=0x00cd, f01=0x0190, f02=» P ANK A2,/7F ' PSTORTN ADKL A15,2 ' P LDR* P,A15 ' 2 P EJECT DROD01 ' F P* ' P* ' f 6 P* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER ' p P* ' P* ON ENTRY: ' P* ' P* A1 = QUEUE POINTER ' P* A6 = DWT-ADDRES
0x28d8a8…28da3c Dummy {f00=0x00cd, f01=0x0190, f02=» ' P CWK A1,DWTEQ END OF QUEUE? ( P RF(NE) EOQU10 ( , * P LDKL A1,DWTSQ SET QUEUE START ADRESS ( B PEOQU10 ADR A1,A6 ( p P RB STORTN ( P EJECT DROD01 ( P* ( P* ( P* CODE CHECK ( P* ( P* ( 4 P* AT ENTRY
0x28da3c…28dbd0 Dummy {f00=0x00cd, f01=0x40b0, f02=»E REGISTER ( . P SUK A4,/1F LESS THEN /1F CONVERT TO ASCII ) P RF(NN) CDC05 NO ) D P ORK A2,/40 SET BIT 7 ) PCDC05 EQU * ) z P RB STORTN ) P END ) @ ) * ( P* ( P* CODE CHECK ( P* ( P* ( 4 P* AT ENTRY
0x28dbd0…28dd64 Dummy {f00=0x00cd, f01=0x2008, f02=» * WTCON,A6 GET CONVERSION TABLE ADDRESS ADR A4,A1 6 ADR A4,A2 H ( # LCR A2,A4 GET CHARACTER FROM TABLE Z RTN A15 END @ A4,2 RF(Z) KON180 CTRL RF(N) KON190 SHIFT LDR A1,8 CTRL AND SHIFT
0x28dd64…28def8 Dummy {f00=0x00cd, f01=0x0190, f02=»11 PERASE4 EQU /19 PSLOADP EQU /24 PONLINE EQU /2C 6 PSKIPRE EQU /04 L PSKIPFO EQU /00 b PILLSD EQU /2807 x P XIF 8 PMTIOPL EQU CHMT+CHMT IOP CTRL WORD 1 : BLOCK LENGTH < PMTIOPA EQU CHMT+CHMT+1 IOP CTRL WORD 2 : BUFFER
0x28def8…28e08c Dummy {f00=0x00cd, f01=0x018e, f02=»HE ORDER IS CHECKED AND A | . P* BRANCH TO THE ORDER PROCESSOR IS MADE. " P* T P* ENTRY: ^ P* n P* A5: DWTSB2 x P* A6: DWT ADDRESS P* A7: ORDER P* A8: ECB ADDRESS P* P* EXIT: TO ORDER PROCESSOR P*
0x28e08c…28e220 Dummy {f00=0x00cd, f01=0x0190, f02=» x P* A5: STACK POINTER P* A6: DWT ADDRESS $ P* A7: MAX NO OF RETRIES > P* A8: ECB ADDRESS ^ P* x P PMTDA INH & P LDK A4,MTLEN CHECK IF LEGAL ORDER P PMTDA10 CC A7,MTTAB-1,A4 P RF(E) MTDA30 FOUND P
0x28e220…28e3b4 (1, 628) Opaque[0x194]
0x28e3b4…28e548 # DirEnt {nam=»DRND01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19a8, f03=0x0000}
0x28e3b4…28e548 IdxSect {
0x28e3b4…28e548 f00 = 0x00cd // 0x28e3b4 @0x0
0x28e3b4…28e548 f01 = 0x001e // 0x28e3b6 @0x2
0x28e3b4…28e548 gno = [ // 0x28e3b8 @0x4
0x28e3b4…28e548 [0x00]: C0x00cd.0x1.0
0x28e3b4…28e548 [0x01]: C0x00cd.0x2.0
0x28e3b4…28e548 [0x02]: C0x00cd.0x3.0
0x28e3b4…28e548 [0x03]: C0x00ce.0x0.0
0x28e3b4…28e548 [0x04]: C0x00ce.0x1.0
0x28e3b4…28e548 [0x05]: C0x00ce.0x2.0
0x28e3b4…28e548 [0x06]: C0x00ce.0x3.0
0x28e3b4…28e548 [0x07]: C0x00cf.0x0.0
0x28e3b4…28e548 [0x08]: C0x00cf.0x1.0
0x28e3b4…28e548 [0x09]: C0x00cf.0x2.0
0x28e3b4…28e548 [0x0a]: C0x00cf.0x3.0
0x28e3b4…28e548 [0x0b]: C0x00d0.0x0.0
0x28e3b4…28e548 [0x0c]: C0x00d0.0x1.0
0x28e3b4…28e548 [0x0d]: C0x00d0.0x2.0
0x28e3b4…28e548 [0x0e]: C0x00d0.0x3.0
0x28e3b4…28e548 ]
0x28e3b4…28e548 }
0x28e548…28e6dc Dummy {f00=0x00cd, 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****************************
0x28e6dc…28e870 Dummy {f00=0x00cd, 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
0x28e870…28ea04 Dummy {f00=0x00cd, 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
0x28ea04…28eb98 Dummy {f00=0x00cd, 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
0x28eb98…28ed2c Dummy {f00=0x00cd, 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
0x28ed2c…28eec0 Dummy {f00=0x00cd, 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
0x28eec0…28f054 (1, 629) Dummy {f00=0x00cd, 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
0x28f054…28f1e8 Dummy {f00=0x00cd, 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
0x28f1e8…28f37c Dummy {f00=0x00cd, 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
0x28f37c…28f510 Dummy {f00=0x00cd, 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
0x28f510…28f6a4 Dummy {f00=0x00cd, 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
0x28f6a4…28f838 Dummy {f00=0x00cd, 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
0x28f838…28f9cc Dummy {f00=0x00cd, 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
0x28f9cc…28fb60 Dummy {f00=0x00cd, 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
0x28fb60…28fcf4 (1, 630) Dummy {f00=0x00cd, 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
0x28fcf4…28fe88 Dummy {f00=0x00cd, 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
0x28fe88…29001c Dummy {f00=0x00cd, 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
0x29001c…2901b0 Dummy {f00=0x00cd, 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*
0x2901b0…290344 Dummy {f00=0x00cd, 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*
0x290344…2904d8 Dummy {f00=0x00cd, 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 X:A CHLT P* PX:B EQU 0 PRT EQU X:B CHRT P* PX:C EQU 0 PSL EQU X:C SALCU
0x2904d8…29066c Dummy {f00=0x00cd, f01=0x0190, f02=» PPL EQU X:F PLC - LOCAL P* & P EJECT 0 P* > PX:G EQU 0 H PPR EQU X:G PLC - REMOTE Z P* z PX:H EQU 0 PVU EQU X:H VIDEO P* P* * P* ECHO FUNCTION IS INCLUDED IF CECHO=1 P* PX:I EQU 1
0x29066c…290800 Dummy {f00=0x00cd, f01=0x0190, f02=»M-CONNECTION v P* PS1 EQU SL+AS U =1 PS2 EQU S1+FT U =1 8 PS3 EQU S2+PL U =1 R PS4 EQU S3+PR U =1 l PS5 EQU S4+VU U =1 P* PNTONSU EQU S5 U =1 P* P EJECT P* P************* P* CONSTANTS
0x290800…290994 (1, 631) Dummy {f00=0x00ce, f01=0x0190, f02=» /2000 ECHO MODE $ PDWFINP EQU /0020 INPUT REQUESTED P* @ P* J P* MISCELLANEOUS T P* n 0 PNOTOPR EQU /0001 RETURN CODE "NOT OPERABLE" x 6 PCONFER EQU /0001 RETURN CODE "CONFIGURATION ERROR" 0 PREQERR EQU /8000 RETURN CODE "REQU
0x290994…290b28 Dummy {f00=0x00ce, f01=0x0190, f02=» AREAS * P************** P* & P IFF NTONSU=0 U =1 0 P* J P* DISPATCH TABLES T P* p P* CHARACTER INPUT z PINPTAB EQU * P IFT LT=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT LT=1
0x290b28…290cbc Dummy {f00=0x00ce, f01=0x0190, f02=»=1 P IFT RT=1 P DATA RTCHRI P XIF 0 P IFF NTONSU=0 U =1 < P* V P IFT SL=0 ` P DATA NDRETE r P XIF P IFF NTONSU=0 U =1 P IFT SL=1 P DATA SLCHRI P XIF P IFF NTONSU=0 U =1 P* P IFT A
0x290cbc…290e50 Dummy {f00=0x00ce, f01=0x0190, f02=»=1 P* P IFT FT=0 P DATA NDRETE & P XIF : P IFF NTONSU=0 U =1 F P IFT FT=1 ` P DATA FTCHRI r P XIF P IFF NTONSU=0 U =1 P* P IFT PL=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT P
0x290e50…290fe4 Dummy {f00=0x00ce, 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
0x290fe4…291178 Dummy {f00=0x00ce, 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
0x291178…29130c Dummy {f00=0x00ce, 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
0x29130c…2914a0 Dummy {f00=0x00ce, 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
0x2914a0…291634 (1, 632) Dummy {f00=0x00ce, f01=0x018e, f02=» P XIF P IFF NTONSU=0 U =1 P* . P* 8 P* CHARACTER OUTPUT B POUPTAB EQU * b P IFT LT=0 v P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT LT=1 P DATA LTCHRO P XIF P IFF NTONSU=0 U =1
0x291634…2917c8 Dummy {f00=0x00ce, f01=0x018e, f02=» P IFF NTONSU=0 U =1 P* " P IFT SL=0 , P DATA NDRETE > P XIF R P IFF NTONSU=0 U =1 ^ P IFT SL=1 x P DATA SLCHRO P XIF P IFF NTONSU=0 U =1 P* P IFT AS=0 P DATA NDRETE P XIF P IFF NTO
0x2917c8…29195c Dummy {f00=0x00ce, f01=0x0190, f02=» P XIF P IFF NTONSU=0 U =1 P IFT FT=1 . P DATA FTCHRO @ P XIF T P IFF NTONSU=0 U =1 ` P* z P IFT PL=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT PL=1 P DATA PLCHRO P XIF P IFF N
0x29195c…291af0 Dummy {f00=0x00ce, f01=0x018e, f02=» P XIF ! P IFF NTONSU=0 U =1 ! P* ! . P IFT VU=0 ! 8 P DATA NDRETE ! J P XIF ! ^ P IFF NTONSU=0 U =1 ! j P IFT VU=1 ! P DATA VUCHRO ! P XIF ! P IFF NTONSU=0 U =1 ! P* ! P* ! P* END OF BLOCK ! PENBTAB E
0x291af0…291c84 Dummy {f00=0x00ce, f01=0x018e, f02=» P IFF NTONSU=0 U =1 " P* " P IFT RT=0 " ( P DATA NDRETE " : P XIF " N P IFF NTONSU=0 U =1 " Z P IFT RT=1 " t P DATA RTENBL " P XIF " P IFF NTONSU=0 U =1 " P* " P IFT SL=0 " P DATA NDRETE " P XIF " P IFF NTONSU=
0x291c84…291e18 Dummy {f00=0x00ce, f01=0x0190, f02=» P XIF # P IFF NTONSU=0 U =1 # P IFT AS=1 # * P DATA ASENBL # < P XIF # P P IFF NTONSU=0 U =1 # P* # v P IFT FT=0 # P DATA NDRETE # P XIF # P IFF NTONSU=0 U =1 # P IFT FT=1 # P DATA FTENBL # P XIF # P IFF NTONS
0x291e18…291fac Dummy {f00=0x00ce, f01=0x0190, f02=» P XIF $ P IFF NTONSU=0 U =1 $ P* $ * P IFT PR=0 $ 4 P DATA NDRETE $ F P XIF $ Z P IFF NTONSU=0 U =1 $ f P IFT PR=1 $ P DATA PRENBL $ P XIF $ P IFF NTONSU=0 U =1 $ P* $ P IFT VU=0 $ P DATA NDRETE $ P XIF $ P
0x291fac…292140 Dummy {f00=0x00ce, f01=0x0190, f02=»REQUEST $ PENRTAB EQU * % P IFT LT=0 % $ P DATA TDISP % 6 P XIF % J P IFF NTONSU=0 U =1 % V P IFT LT=1 % p P DATA LTDISP % P XIF % P IFF NTONSU=0 U =1 % P* % P IFT RT=0 % P DATA TDISP % P XIF % P IFF NTONSU=0 U
0x292140…2922d4 (1, 633) Dummy {f00=0x00ce, f01=0x0190, f02=»IF % P IFF NTONSU=0 U =1 & P IFT SL=1 & $ P DATA SLDISP & 6 P XIF & J P IFF NTONSU=0 U =1 & V P* & p P IFT AS=0 & z P DATA TDISP & P XIF & P IFF NTONSU=0 U =1 & P IFT AS=1 & P DATA ASDISP & P XIF & P IFF NTONSU=0 U
0x2922d4…292468 Dummy {f00=0x00ce, f01=0x0190, f02=»IF & P IFF NTONSU=0 U =1 ' P* ' $ P IFT PL=0 ' . P DATA TDISP ' @ P XIF ' T P IFF NTONSU=0 U =1 ' ` P IFT PL=1 ' z P DATA PLDISP ' P XIF ' P IFF NTONSU=0 U =1 ' P* ' P IFT PR=0 ' P DATA TDISP ' P XIF ' P IFF N
0x292468…2925fc Dummy {f00=0x00ce, f01=0x0190, f02=» ' P XIF ( P IFF NTONSU=0 U =1 ( P IFT VU=1 ( . P DATA VUDISP ( @ P XIF ( T P* ( ` P EJECT ( j P* ( x P* INTERRUPT TABLES ( P* ( P IFT LT=0 U =2 ( P* DUMMY ENTRIES CHLT ( PINTLT1 EQU * U =2 ( PINTLT2 EQU * U
0x2925fc…292790 Dummy {f00=0x00ce, f01=0x0190, f02=» DATA 0 U =2 ( PINTLT2 DATA 0 U =2 ) PINTLT3 DATA 0 U =2 ) . PINTLT4 DATA 0 U =2 ) H P XIF U =2 ) b P* ) t P IFT RT=0 U =2 ) ~ P* DUMMY ENTRIES CHRT ) PINTRT1 EQU * U =2 ) PINTRT2 EQU * U =2 ) PINTRT3 EQU * U =2 ) PINTRT4
0x292790…292924 Dummy {f00=0x00ce, f01=0x0190, f02=» PINTRT3 DATA 0 U =2 * PINTRT4 DATA 0 U =2 * P XIF U =2 * 8 P* * J P IFT SL=0 U =2 * T P* DUMMY ENTRIES SALCUZ * j PINTSL1 EQU * * PINTSL2 EQU * U =2 * PINTSL3 EQU * U =2 * PINTSL4 EQU * U =2 * PINTSL5 EQU * U =2 * PIN
0x292924…292ab8 Dummy {f00=0x00ce, f01=0x0190, f02=»Z * PINTSL1 DATA 0 U =2 + PINTSL2 DATA 0 U =2 + $ PINTSL3 DATA 0 U =2 + > PINTSL4 DATA 0 U =2 + X PINTSL5 DATA 0 U =2 + r PINTSL6 DATA 0 U =2 + PINTSL7 DATA 0 U =2 + PINTSL8 DATA 0 U =2 + P XIF U =2 + P* + P IFT AS=0 U =2 +
0x292ab8…292c4c Dummy {f00=0x00ce, f01=0x0190, f02=» PINTAS5 EQU * U =2 , PINTAS6 EQU * U =2 , PINTAS7 EQU * U =2 , 8 PINTAS8 EQU * U =2 , R P XIF U =2 , l P* , ~ P IFT AS=1 U =2 , P* ASCU4Z , PINTAS1 DATA 0 U =2 , PINTAS2 DATA 0 U =2 , PINTAS3 DATA 0 U =2 , PINTAS4 D
0x292c4c…292de0 Dummy {f00=0x00ce, f01=0x018e, f02=» P* - P IFT PL=0 U =2 - " P* DUMMY ENTRIES PLC - LOCAL - $ PINTPL1 EQU * U =2 - J PINTPL2 EQU * U =2 - d PINTPL3 EQU * U =2 - ~ PINTPL4 EQU * U =2 - P XIF U =2 - P* - P IFT PL=1 U =2 - P* PLC - LOCAL - PINTPL1 DATA
0x292de0…292f74 (1, 634) Dummy {f00=0x00ce, f01=0x0190, f02=» - $ P* DUMMY ENTRIES PLC - REMOTE . PINTPR1 EQU * U =2 . 0 PINTPR2 EQU * U =2 . J PINTPR3 EQU * U =2 . d PINTPR4 EQU * U =2 . ~ P XIF U =2 . P* . P IFT PR=1 U =2 . P* PLC - REMOTE . PINTPR1 DATA 0 U =2 . PINTPR2 DAT
0x292f74…293108 Dummy {f00=0x00ce, f01=0x0190, f02=» VIDEO . ~ PINTVU1 EQU * U =2 / PINTVU2 EQU * U =2 / ( PINTVU3 EQU * U =2 / B PINTVU4 EQU * U =2 / PINTVU5 EQU * U =2 / v PINTVU6 EQU * U =2 / PINTVU7 EQU * U =2 / PINTVU8 EQU * U =2 / P XIF U =2 / P* / P IFT VU=1 U =2
0x293108…29329c Dummy {f00=0x00ce, f01=0x0190, f02=» DATA 0 U =2 / PINTVU6 DATA 0 U =2 0 PINTVU7 DATA 0 U =2 0 . PINTVU8 DATA 0 U =2 0 H P XIF U =2 0 b P* 0 t P EJECT 0 ~ P* 0 P************************** 0 P* DEVICE DRIVER ROUTINES * 0 P************************** 0 P* 0 B P*
0x29329c…293430 Dummy {f00=0x00ce, f01=0x0190, f02=» D P* ACTION ITSELF, OR SWITCH CONTROL TO THE LINE DRIVER TO WHICH 1 D P* THE DEVICE IS CONNECTED. WHEN THE LINE DRIVER HAS PERFORMED 1 L D P* THE REQUESTED ACTIONS, IT WILL RETURN TO THE DEVICE DRIVER, 1 D P* EITHER DIRECTLY OR THROUGH THE TERMINAL
0x293430…2935c4 Dummy {f00=0x00ce, f01=0x0190, f02=». IT WILL OF COURSE NOT RETURN TO THE DEVICE 1 ~ P* DRIVER. 2 4 P* 2 H P* 2 R 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: 2 P* 2 P* NAME FUNCTION 2 P* 2 2 P* INPUT FETCH ONE CHARACTER FROM INPUT DEVICE 2 * P* STABLK DEFINE START
0x2935c4…293758 Dummy {f00=0x00ce, f01=0x0190, f02=»NTROL AT CHARACTER ECHO 2 $ P* ECHRTN RETURN FROM ECHO OUTPUT 3 * P* GETCHR GET CHARACTER FROM ECB BUFFER 3 H * P* ABORT SET INPUT NO LONGER REQUESTED 3 v . P* LDISP DISPATCH AT I/O REQUEST COMPLETED 3 P* 3 P EJECT 3 P* 3 @ P****************
0x293758…2938ec Dummy {f00=0x00ce, f01=0x0190, f02=»IS ROUTINE HANDLES INPUT OF ONE CHARACTER 3 0 P* FROM A DEVICE TO A TERMINAL DEVICE DRIVER. 4 2 P* 4 f P* CALL: 4 p P* CF A5,INPUT 4 P* 4 P* INPUT: 4 P* A5 = LOCAL STACK POINTER 4 P* A6 = DWT ADDRESS 4 P* 4 P* OUTPUT: 4
0x2938ec…293a80 Dummy {f00=0x00ce, f01=0x0190, f02=»S 8-15 CHARACTER 4 P* 5 @ P************************************************************ 5 $ P* 5 h PINPUT EQU * 5 r P IFF NTONSU=0 U =1 5 & P LC A1,DWTCHP,A6 CHANNEL PARAMETER 5 ( P ANK A1,MASKCT CLEAN CONNECTION TYPE 5 P SLA A1,1 MAKE IND
0x293a80…293c14 (1, 635) Dummy {f00=0x00cf, f01=0x0190, f02=» 5 P IFT NTONSU=0 U =1 6 & P ABL LTCHRI ACTIVATE SUM-DRIVER =1 6 " P XIF U =1 6 L P* 6 ^ P EJECT 6 h P* 6 v @ P************************************************************ 6 P* 6 P* ROUTINE NAME: 6 P* STABLK 6 P* 6 P* FUNCTI
0x293c14…293da8 Dummy {f00=0x00cf, f01=0x0190, f02=»S TAKEN AT START OF BLOCK VARIES FOR 6 P* DIFFERENT LINE DRIVERS. 7 , P* 7 N P* CALL: 7 X P* CF A5,STABLK 7 h P* 7 ~ P* INPUT: 7 . P* A2 = MAXIMAL NR OF CHARACTERS IN BLOCK 7 P* A5 = LOCAL STACK POINTER 7 P* A6 = DWT ADDRESS 7
0x293da8…293f3c Dummy {f00=0x00cf, f01=0x0190, f02=», IE A1=0) 7 n P* CR = CONTENTS OF A1 8 P* 8 0 @ P************************************************************ 8 : P* 8 ~ PSTABLK EQU * 8 & P LC A1,DWTCHP,A6 CHANNEL PARAMETER 8 P IFF NTONSU=0 U =1 8 ( P ANK A1,MASKCT CLEAN CONNECTION TYPE 8
0x293f3c…2940d0 Dummy {f00=0x00cf, f01=0x0190, f02=»RROR 8 P XIF U =1 9 P IFT NTONSU=0 U =1 9 " P ANK A1,1 LOCAL OR REMOTE ? =1 9 8 P ABL(Z) LTSTBL LOCAL =1 9 ^ P ABL RTSTBL REMOTE =1 9 ~ P XIF U =1 9 P EJECT 9 P* 9 @ P************************************************************ 9
0x2940d0…294264 Dummy {f00=0x00cf, f01=0x0190, f02=»* FROM A TERMINAL DEVICE DRIVER TO A DEVICE. 9 P* : 4 P* CALL: : > P* CF A5,OUTPUT : N P* : d P* INPUT: : n P* A2 = BITS 0-7 IRRELEVANT : ~ P* BITS 8-15 CHARACTER : P* A5 = LOCAL STACK POINTER : P* A6 = DWT ADDRESS : P* :
0x294264…2943f8 Dummy {f00=0x00cf, f01=0x0190, f02=»0) : f P* CR = CONTENTS OF A1 ; P* ; ( @ P************************************************************ ; 2 P* ; v POUTPUT EQU * ; P IFF NTONSU=0 U =1 ; & P LC A1,DWTCHP,A6 CHANNEL PARAMETER ; ( P ANK A1,MASKCT CLEAN CONNECTION TYPE ; P SLA
0x2943f8…29458c Dummy {f00=0x00cf, f01=0x0190, f02=» P XIF U =1 < P IFT NTONSU=0 U =1 < & P ABL LTCHRO ACTIVATE SUM-DRIVER =1 < 0 P XIF U =1 < Z P* < l P EJECT < v P* < @ P************************************************************ < P* < P* ROUTINE NAME: < P* ENDBLK < P* <
0x29458c…294720 Dummy {f00=0x00cf, f01=0x0190, f02=»* THE ACTIONS TAKEN AT END OF BLOCK VARIES FOR < P* DIFFERENT LINE DRIVERS. = 6 P* = X P* CALL: = b P* CF A5,ENDBLK = r P* = P* INPUT: = P* A5 = LOCAL STACK POINTER = P* A6 = DWT ADDRESS = P* = P* OUTPUT: = P* A1 = RE
0x294720…2948b4 (1, 636) Dummy {f00=0x00cf, f01=0x0190, f02=» = z P* > @ P************************************************************ > P* > V PENDBLK EQU * > ` & P LC A1,DWTCHP,A6 CHANNEL PARAMETER > t P IFF NTONSU=0 U =1 > ( P ANK A1,MASKCT CLEAN CONNECTION TYPE > P SLA A1,1 MAKE INDEX > P CWK A1,
0x2948b4…294a48 Dummy {f00=0x00cf, f01=0x0190, f02=»U=0 U =1 > " P ANK A1,1 LOCAL OR REMOTE ? =1 ? P ABL(Z) LTENBL LOCAL =1 ? 6 P ABL RTENBL REMOTE =1 ? V P XIF U =1 ? t P* ? P EJECT ? P* ? @ P************************************************************ ? P* ? P* ROUTINE NAME: ?
0x294a48…294bdc Dummy {f00=0x00cf, f01=0x0190, f02=»NE DEVICE-DEPENDENT ? z 4 P* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, @ 2 P* LOAD STACKBASE AND FIND ADDRESS @ T 4 P* TO DEVICE-DEPENDENT ECHO-ROUTINE @ . P* PART TWO: ECHO ONE OR MORE CHARACTERS @ 2 P* CORRE
0x294bdc…294d70 Dummy {f00=0x00cf, f01=0x0190, f02=»D @ b 4 P* IN THE DRIVER MODULE CORRESPONDING TO ECHO A P* OUTPUT DEVICE A B P* A 4 P* ECHO IS USED WHEN A CHARACTER SHOULD BE ECHOED A f , P* ECHEND IS USED AT END OF INPUT REQUEST A 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A A P
0x294d70…294f04 Dummy {f00=0x00cf, f01=0x0190, f02=» = BITS 0-14 NOT SIGNIFICANT A 4 P* BIT 15 1 IF MORE CHARACTERS B ( & P* A2 = BITS 0-7 NOT SIGNIFICANT B ` & P* BITS 8-17 CHARACTER (IF ECHO) B P* A5 = LOCAL STACK POINTER B P* A6 = DWT ADDRESS B P* B P EJECT B
0x294f04…295098 Dummy {f00=0x00cf, f01=0x018e, f02=» BIT 15 1 IF MORE CHARACTERS B $ P* A2 = BITS 0-7 ZERO (IF ECHO) C 4 & P* BITS 8-15 CHARACTER (IF ECHO) C P* A5 = LOCAL STACK POINTER C ( P* A6 = ADDRESS OF OUTPUT DEVICE DWT C * P* A7 = BIT 0 0 IF ECHO, 1 IF ECHEND C " P*
0x295098…29522c Dummy {f00=0x00cf, f01=0x0190, f02=» C ~ P* D @ P************************************************************ D P* D V PECHEND EQU * D ` P* D t P IFT CECHO=1 D ~ , 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
0x29522c…2953c0 Dummy {f00=0x00cf, f01=0x0190, f02=»DK A7,0 INDICATE NOT END OF ECHO D P* E ( P* E 2 PECHO10 EQU * E < P LD A3,DWTST,A6 STATUS E P $ P ANKL A3,DWFECH ECHO REQUESTED? E n 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
0x2953c0…295554 (1, 637) Dummy {f00=0x00cf, f01=0x0190, f02=»-ADDRESS IN A5 E | P ANK A2,/FF CLEAN CHARACTER F . P LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK F : 6 P ABI ECHADR,A3 GO TO ECHO-ROUTINE DEVICE-DEPENDENT F l P XIF F P* F P EJECT F P* F @ P****************************************************
0x295554…2956e8 Dummy {f00=0x00cf, f01=0x0190, f02=»E ECHO ROUTINE F h 8 P* IS READY WITH ECHOING ACTIONS, AND WANTS TO LEAVE G * P* CONTROL BACK TO INPUT DEVICE DRIVER. G R P* G P* CALL: G P* ABL ECHRTN G P* G P* INPUT: G ( P* A6 = DWT ADDRESS OF OUTPUT DEVICE G P* G P* OUTPUT:
0x2956e8…29587c Dummy {f00=0x00cf, f01=0x0190, f02=»******** G P* H PECHRTN EQU * H P IFT CECHO=1 H . 0 P LD A6,DWTWAT,A6 DWT-ADDRESS OF INPUT DEVICE H B , P RF NDREP RELOAD A3-A5, A7-A8 AND RETURN H v P XIF H P* H P EJECT H P* H @ P****************************************************
0x29587c…295a10 Dummy {f00=0x00cf, f01=0x0190, f02=»FROM THE H h 0 P* ECB BUFFER AND INCREMENT THE BUFFER INDEX. I 2 P* IF NO CHARACTER IS LEFT, INDEX IS STORED IN I D P* ECB REQUESTED LENGTH. I z P* I P* CALL: I P* CF A15,GETCHR I P* I P* INPUT: I P* A3 = BUFFER INDEX I P* A8
0x295a10…295ba4 Dummy {f00=0x00cf, f01=0x0190, f02=»-7 ZERO (IF A1>0) I & P* BITS 8-15 CHARACTER (IF A1>0) J ( P* A3 = UPDATED BYTE INDEX (IF A1>0) J D P* CR = CHANGED J p P* INTERR. ENABLED J P* J @ P************************************************************ J P* J PGETCHR EQU * J
0x295ba4…295d38 Dummy {f00=0x00cf, f01=0x0190, f02=» J & P LD A2,ECBBA,A8 GET BUFFER ADDRESS K P ADR A2,A3 K 2 P LCR A2,A2 CHAR. TO A2 K D P ANK A2,/FF K b $ P ADK A3,1 INCREMENT BUFFER INDEX K v P RF GCH020 K P* K P* K PGCH010 EQU * K * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH K PGC
0x295d38…295ecc Dummy {f00=0x00cf, f01=0x0190, f02=»********************************************** K P* L 6 P* ROUTINE NAME: L @ P* ABORT L X P* L h P* FUNCTION: L r : P* THIS ROUTINE RESETS THE INPUT REQUESTED FLAG IN DWT. L : P* IT IS USED AT ABORT REQUESTS, WHEN A REQUESTED INPUT L P* IS N
0x295ecc…296060 Dummy {f00=0x00cf, f01=0x0190, f02=»* OUTPUT: L P* A1 = CHANGED M P* CR = CHANGED M * P* M B @ P************************************************************ M L P* M PABORT EQU * M 2 P LDKL A1,/FFFF-DWFINP MASK FOR INPUT REQUESTED M P ANS A1,DWTST,A6 RESET FLAG M P
0x296060…2961f4 (1, 638) Dummy {f00=0x00cf, f01=0x0190, f02=» M @ P************************************************************ N P* N L P* ROUTINE NAME: N V P* LDISP N n P* N ~ P* FUNCTION: N 8 P* THIS ROUTINE PERFORMS DISPATCHING FOR THE TERMINAL N 8 P* DEVICE DRIVERS. IT ALSO PROVIDES QUICK EXITS F
0x2961f4…296388 Dummy {f00=0x00cf, f01=0x0190, f02=»LDISP N P* O P* INPUT: O $ P* A1 = RETURN CODE (IF LENDIS) O ( P* A6 = DWT ADDRESS O P P* O l P* OUTPUT: O v 2 P* AT ENTRY TO LINE DRIVER DISPATCH ENTRY: O P* A6 = DWT ADDRESS O P* O @ P************************************
0x296388…29651c Dummy {f00=0x00cf, f01=0x0190, f02=»5,TENDIO END I/O REQUEST O P* P P EJECT P * P* P 8 PLDISP EQU * P B P IFF NTONSU=0 U =1 P V & P LC A1,DWTCHP,A6 CHANNEL PARAMETER P 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 A
0x29651c…2966b0 Dummy {f00=0x00cf, f01=0x0190, f02=»****************** P P* LINE DRIVER ROUTINES * Q P************************ Q : P* Q Z F P* THIS SECTION CONTAINS AN EXIT ROUTINE THAT CAN BE USED BY THE Q d : P* LINE DRIVERS WHEN RETURNING TO THE DEVICE DRIVER. Q > P* IT ALSO CONTAINES A NUMB
0x2966b0…296844 Dummy {f00=0x00cf, f01=0x018e, f02=»NCE IN CODE: Q p P* R P* NAME FUNCTION R P* R 6 $ P* NDRET RETURN TO DEVICE DRIVER R @ & P* NDSAV8 SAVE A3-A5, A7-A8 IN DWT R h & 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 RE
0x296844…2969d8 Dummy {f00=0x00cf, f01=0x018e, f02=» R P* S @ P************************************************************ S P* S V P* ROUTINE NAME: S ` P* NDRET S x P* S P* FUNCTION: S 4 P* THIS ROUTINE CONTAINS A NUMBER OF ENTRIES FOR S 0 P* RETURNING TO THE TERMINAL DEVICE DRIVERS
0x2969d8…296b6c Dummy {f00=0x00cf, f01=0x0190, f02=» 0 P* FOR CPU 852 IT ALSO CONTAINS A "RTN A15" T . P* SIMULATION THAT DOESN'T PERFORM ENABLE. T 8 P* T j P* CALL: T t P* RF "NAME" T P* RB "NAME" T P* ABL "NAME" T P* T P* INPUT: T , P* A5 = LOCAL STACK POINTER (IF NDRETX) T $
0x296b6c…296d00 Dummy {f00=0x00cf, f01=0x0190, f02=»OF CALLED REQUEST HANDLING ROUTINE T P* U * @ P************************************************************ U 4 P* U x PNDRETE EQU * U & P LDK A1,CONFER CONFIGURATION ERROR U P RF NDRET RETURN U P* U P EJECT U P* U PNDREPO EQU * U
0x296d00…296e94 (1, 639) Dummy {f00=0x00d0, f01=0x018e, f02=» P RF NDRET RETURN V P* V PNDREP EQU * V & , P CF A15,NDGET8 GET A3-A5, A7-A8 FROM DWT V : PNDRET EQU * V j P ENB V ~ & P ADK A5,4 ADJUST STACK FOR RETURN V P LDR A1,A1 SET CR V $ P ABR* A5 RETURN TO DEVICE DRIVER V P* V P* V
0x296e94…297028 Dummy {f00=0x00d0, f01=0x018e, f02=» @ P************************************************************ W P* W H P* ROUTINE NAME: W R P* NDSAV8 W j P* W z P* FUNCTION: W 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:
0x297028…2971bc Dummy {f00=0x00d0, f01=0x0190, f02=» P* X @ P************************************************************ X P* X R PNDSAV8 EQU * X " P* SAVE A3-A5, A7-A8 IN DWT X p 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
0x2971bc…297350 Dummy {f00=0x00d0, f01=0x018e, f02=» EJECT X P* Y @ P************************************************************ Y P* Y P* ROUTINE NAME: Y f P* NDGET8 Y ~ P* Y P* FUNCTION: Y 8 P* THIS ROUTINE FETCHES REGISTERS A3, A4, A5, A7 AND Y " P* A8 FROM A SAVE AREA IN DWT. Y
0x297350…2974e4 Dummy {f00=0x00d0, f01=0x018e, f02=» P* CR = CHANGED Z P* Z @ P************************************************************ Z & P* Z j PNDGET8 EQU * Z t " P* GET A3-A5, A7-A8 FROM DWT Z P LD A3,DWTA3,A6 Z P LD A4,DWTA4,A6 Z P LD A5,DWTA5,A6 Z P LD A7,DWTA7,A6 Z
0x2974e4…297678 Dummy {f00=0x00d0, f01=0x0190, f02=» P XIF [ P* [ P EJECT [ P* [ ( @ P************************************************************ [ 2 P* [ v P* ROUTINE NAME: [ P* NDREWS [ P* [ P* FUNCTION: [ 8 P* THIS ROUTINE CALLS RECOVERY ROUTINES FOR ALL DWT:S [ : P* ON A
0x297678…29780c Dummy {f00=0x00d0, f01=0x0190, f02=» P* INPUT: & P* A3 = WORK STATION TABLE ADDRESS P* A4 = RECOVERY CAUSE > P* A6 = WORK STATION NUMBER P* P* OUTPUT: ( P* AT ENTRY TO RECOVERY ROUTINE: P* SEE NDREDW P* AT SUBROUTINE RETURN: P* CR =
0x29780c…2979a0 Dummy {f00=0x00d0, f01=0x0190, f02=» EQU * P IFF NTONSU=0 U =1 ] P IFT CPU852=1 ] ( P CF A15,SAVE8 PUSH A1-A8 ] > P XIF ] ^ P IFF NTONSU=0 U =1 ] j P IFF CPU852=1 ] P MSR 8,A15 PUSH A1-A8 ] P XIF ] P IFF NTONSU=0 U =1 ] P* ] P EJECT ] P* ] P LDR A8,
0x2979a0…297b34 (1, 640) Dummy {f00=0x00d0, f01=0x0190, f02=»R SUK ] | P* ^ PRW100 EQU * ^ P SUK A7,1 NEXT DWT ^ , " P RF(N) RW120 EXIT IF ALL DONE ^ F " P LDR A6,A8 WORK STATION NUMBER ^ l * P LDR A1,A3 WORK STATION TABLE ADDRESS ^ $ P CF A15,NDGEDW A6 := DWT ADDRESS ^ P* ^ P LDR A6,A6 DWT DEFINED
0x297b34…297cc8 Dummy {f00=0x00d0, f01=0x018e, f02=»CALL / DWT ^ t P* _ & P* CHECK IF OUTPUT ECHO DEVICE _ P LD A1,DWTST,A6 DWT STATUS _ F P LDR A2,A1 SAVE _ h P ANKL A1,DWFECH ECHO MODE? _ P RF(Z) RW110 NO, CONTINUE _ " P ANKL A2,DWFINP INPUT DEVICE? _ , P RB(Z) RW100 NO, ECHO OUTPUT.
0x297cc8…297e5c Dummy {f00=0x00d0, f01=0x018e, f02=» PRW120 EQU * ` P* ALL DWT:S HANDLED ` P ABL TDISP RETURN ` 6 P XIF U =1 ` P P* ` b P EJECT ` l P* ` z @ P************************************************************ ` P* ` P* ROUTINE NAME: ` P* NDREDW ` P* ` P* FU
0x297e5c…297ff0 Dummy {f00=0x00d0, f01=0x0190, f02=» < P* IF NO RECOVERY IS DEFINED, DWT IS BUSY BUT NO REQUEST a : P* IS ON, TENDIO IS CALLED TO ACTIVATE TERMINAL QUEUE. a D P* a P* CALL: a P* CF A15,NDREDW a P* a P* INPUT: a P* A4 = RECOVERY CAUSE a P* A6 = DWT ADDRESS a P
0x297ff0…298184 Dummy {f00=0x00d0, f01=0x018e, f02=» = DWT ADDRESS a P* A7 = BITS 0-9 ZERO b ( P* BITS 10-15 ORDER (IF REQUEST ON) b 6 & P* A8 = ECB ADDRESS IF REQUEST ON, b b P* ELSE ZERO b P* INTERR. ENABLED b P* AT SUBROUTINE RETURN: b P* CR = CHANGED b P* INTERR. CHANGE
0x298184…298318 Dummy {f00=0x00d0, f01=0x018e, f02=» b P IFT CPU852=1 c P CF A15,SAVE8 PUSH A1-A8 c P XIF c > P IFF CPU852=1 c J P MSR 8,A15 PUSH A1-A8 c ` P XIF c ~ P ENB c P* c 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,
0x298318…2984ac Dummy {f00=0x00d0, f01=0x0190, f02=» c n ( P ABR(NZ) A1 CALL RECOVERY IF DEFINED d P* d 4 P* d > : P* NO RECOVERY. CALL TENDIO IF BUSY BUT NO REQUEST d H P LD A2,DWTST,A6 DWT STATUS d P ANKL A2,DWFBSY BUSY? d P RF(NZ) RD100 NO, EXIT d P LDR A8,A8 REQUEST ON? d & P ABL(Z
0x2984ac…298640 Dummy {f00=0x00d0, f01=0x018e, f02=»**************************************** d | P* e 0 P* ROUTINE NAME: e : P* NDGEDN e R 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
0x298640…2987d4 (1, 641) Dummy {f00=0x00d0, f01=0x0190, f02=» P* f P* OUTPUT: f $ P* A7 = HIGEST DWT NUMBER (0-7) f P* -1 IF NO DWT:S FOUND f H P* CR = CHANGED f h P* f @ P************************************************************ f P* f PNDGEDN EQU * f P IFF NTONSU=0 U =1 f P S
0x2987d4…298968 Dummy {f00=0x00d0, f01=0x0190, f02=»A1 INDEX TOO HIGH? f P RF(NL) GN100 YES, EXIT g P* g : P EJECT g D P* g R P ADR A6,A1 g " P LDR* A6,A6 DWT ADDRESS TABLE g n " P RF(Z) GN100 NOT DEFINED, EXIT g P LD A7,-2,A6 TABLE LENGTH g P SUK A7,2 OFFSET TO LAST DWT g P SRA A7,
0x298968…298afc Dummy {f00=0x00d0, f01=0x018e, f02=» LDR* A6,A15 POP WS NUMBER g P IFT CPU852=1 h " P RB RTNP15 RETURN h 8 P XIF h R P IFF NTONSU=0 U =1 h ^ P IFF CPU852=1 h x P RTN A15 h P XIF h P* h P EJECT h P* h @ P************************************************************
0x298afc…298c90 Dummy {f00=0x00d0, f01=0x0190, f02=» h ` P* A DEVICE. i P* i P* CALL: i & P* CF A15,NDGEDW i 6 P* i N P* INPUT: i X 2 P* A1 = ADDRESS OF WORK STATION TABLE (INTXXN) i h P* A6 = WORK STATION NUMBER i P* A7 = DEVICE ADDRESS i P* i P* OUTPUT: i P* A6 = DWT
0x298c90…298e24 Dummy {f00=0x00d0, f01=0x0190, f02=» i T P* j PNDGEDW EQU * j 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 n P RF(Z) GD100 NO, EXIT j * P SLL A6,1 INDEX IN WORK STATION TABLE j P CW A6,-2,A1 INSIDE TABLE? j P RF(NL)
0x298e24…298fb8 Dummy {f00=0x00d0, f01=0x0190, f02=»FINED, EXIT j z P CW A7,-2,A6 INDEX TOO HIGH? k P RF(NL) GD100 YES, EXIT k 8 P ADR A6,A7 k X P LDR* A6,A6 DWT ADDRESS OR 0 k j P RF GD110 EXIT k P* k PGD100 EQU * k P LDK A6,0 DWT NOT FOUND k PGD110 EQU * k $ P SRL A7,1 RESTORE
0x298fb8…29914c Dummy {f00=0x00d0, f01=0x4044, f02=»15 k P XIF l P* l P* l P* l * P END l 4@ l @0 YES, EXIT k 8 P ADR A6,A7 k X P LDR* A6,A6 DWT ADDRESS OR 0 k j P RF GD110 EXIT k P* k PGD100 EQU * k P LDK A6,0 DWT NOT FOUND k PGD110 EQU * k $ P SRL A7,1 RESTORE
0x29914c…2992e0 Dummy {f00=0x00d0, f01=0x2008, f02=» m " " " " "("0"8"@
0x2992e0…299474 (1, 642) Dummy {f00=0x00d0, f01=0x0000, f02=»
[…0x7…]
0x299f80…29a114 (1, 643) Opaque[0x194]
0x29a114…29a2a8 # DirEnt {nam=»DRSL01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a20, f03=0x0000}
0x29a114…29a2a8 IdxSect {
0x29a114…29a2a8 f00 = 0x00d1 // 0x29a114 @0x0
0x29a114…29a2a8 f01 = 0x0014 // 0x29a116 @0x2
0x29a114…29a2a8 gno = [ // 0x29a118 @0x4
0x29a114…29a2a8 [0x00]: C0x00d1.0x0.0
0x29a114…29a2a8 [0x01]: C0x00d1.0x1.0
0x29a114…29a2a8 [0x02]: C0x00d1.0x2.0
0x29a114…29a2a8 [0x03]: C0x00d1.0x3.0
0x29a114…29a2a8 [0x04]: C0x00d2.0x0.0
0x29a114…29a2a8 [0x05]: C0x00d2.0x1.0
0x29a114…29a2a8 [0x06]: C0x00d2.0x2.0
0x29a114…29a2a8 [0x07]: C0x00d2.0x3.0
0x29a114…29a2a8 [0x08]: C0x00d3.0x0.0
0x29a114…29a2a8 [0x09]: C0x00d3.0x1.0
0x29a114…29a2a8 ]
0x29a114…29a2a8 }
0x29a2a8…29a43c Dummy {f00=0x00d1, f01=0x0190, f02=» 2 P IDENT DRSL01 REL 11.0 81-01-26 870105041100 P : " P NEW DEVICE DRIVER INTERFACE B P PRR 10.0 79-12-07 h & P =6, RTN FROM OUTSAL IN INH MODE P PRR 10.1 79-11-20 $ P =5, CHECK IF PFINIT PENDING; $ P TIMER FOR INPUT NOT
0x29a43c…29a5d0 Dummy {f00=0x00d1, f01=0x0190, f02=»RR 10.1 79-10-16 P =3, CORR. WHEN NOT OPER. P MOVE OF STATUS BIT < P PRR 10.1 79-10-08 Z $ P =2, IMPROV. OF REMOTE SENDING v P PRR 10.1 79-10-03 & P =1, CHECK IF OUTPUT CHAR.= ETX; P CHANGE TO EVEN PARITY P P
0x29a5d0…29a764 Dummy {f00=0x00d1, f01=0x0190, f02=» $ * PHILIPS TERMINAL SYSTEM PTS * , $ P* DRSL01 = DRIVER CHANNEL UNIT 6 * ^ * SALCUZ h * * * * * J F********************************************************************** *
0x29a764…29a8f8 Dummy {f00=0x00d1, f01=0x018e, f02=»TE. n * > 9* AT INPUT INTERRUPT A CHARACTER IS READ TO REGISTER A2 < 8* AND A BRANCH IS MADE TO INTERRUPT HANDLER FOR ACTUAL X * DEVICE. * 8 4* AFTER AN OUTPUT IS ENDED AN OUTPUT INTERRUPT IS > :* GENERATED FROM SAL
0x29a8f8…29aa8c Dummy {f00=0x00d1, f01=0x0190, f02=» < 7* THE DRIVER ALSO INCLUDES THE FOLLOWING SUBROUTINES: * H @ ;* -SLCUON EXECUTE CIO START ON EVERY SALCUZ AT POWER ON R * $ P* -OUTSAL SEND ONE CHARACTER P* 6 2* CONTROL WORK TABLES ARE INCLUDED IN THE DRIVER
0x29aa8c…29ac20 Dummy {f00=0x00d1, f01=0x0190, f02=»A3 = WORK REGISTER * A4 = DEVICE NUMBER * 2 * A5 = CWT-ADDRESS < * A6 = DWT-ADDRESS X * A7 = ORDER t * A8 = ECB ADDRESS * * * EJECT * *********** * ENTRIES * ****
0x29ac20…29adb4 (1, 644) Dummy {f00=0x00d1, f01=0x0190, f02=» ENTRY SLCUON START AT POWER ON ( P ENTRY CHAN NUMBER OF CHANNEL UNITS ( P* T " P ENTRY SLCHRI CHARACTER INPUT ^ . P ENTRY SLSTBL DEFINE START OF OUTPUT BLOCK " P ENTRY SLCHRO CHARACTER OUTPUT , P ENTRY SLENBL DEFINE END OF OUTPUT BLOCK
0x29adb4…29af48 Dummy {f00=0x00d1, f01=0x0190, f02=» TOSS MODULE ENTRIES * $ ******************************** * F EXTRN TDISP DISPATCHER P * & EXTRN INTSAV SAVE AREA LAST INTERRUPT p & P EXTRN SETIMP SET TIMER ROUTINE =2 . P EXTRN PFPOST PWF POST PROCESSING FLAG =5 P* , P EXT
0x29af48…29b0dc Dummy {f00=0x00d1, f01=0x0190, f02=» , P EXTRN INTSL4 WS TABLE ADDRESS SALCUZ 4 , P EXTRN INTSL5 WS TABLE ADDRESS SALCUZ 5 4 , P EXTRN INTSL6 WS TABLE ADDRESS SALCUZ 6 d , P EXTRN INTSL7 WS TABLE ADDRESS SALCUZ 7 , P EXTRN INTSL8 WS TABLE ADDRESS SALCUZ 8 P* * P EXTRN NDS
0x29b0dc…29b270 Dummy {f00=0x00d1, f01=0x0190, f02=»S CALL RECOVERY FOR ALL DEV ON WS P EXTRN NDRETO OK & RETURN * P EXTRN NDREP POP & RETURN L P* n EJECT x * ****************** * DWT PARAMETERS * ****************** * * EXTRN DWTST STATUS
0x29b270…29b404 Dummy {f00=0x00d1, f01=0x0190, f02=»DDRESSBLOCK v $ P EXTRN DWTOTQ OUTPUT QUEUE LINK P EXTRN DWTSB2 STACK BASE 2 < & P EXTRN DWTCP2 CHANNEL PARAMETERS 2 ^ * 0 P EXTRN INTADR INTERRUPT ADDRESS DISPLACEMENT 0 P EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT * EJE
0x29b404…29b598 Dummy {f00=0x00d1, f01=0x0190, f02=»ESS FOR KEYBOARD | . PDI EQU 2 DEVICE ADDRESS FOR KEYBOARD LAMPS 0 PTIME EQU 5 TIME BEFORE TIME-OUT FOR SYNC =2 J . PINPTIM EQU 10 INPUT NOT OP. TIMER VALUE =5 ~ * P EJECT P* P************************ P* CONDITIONAL ASSEMBLY
0x29b598…29b72c Dummy {f00=0x00d1, f01=0x0190, f02=»E INCLUDED TO THE DRIVER BY SETTING X:A=1 | P* 2 PX:A EQU 1 < PLOGING EQU X:A N P* d . P* THIS DRIVER HANDLES ONE OR UP TO EIGHT n 2 P* CHANNELS BY SETTING X:B TO 1, 2, 3,..., 8 P* PX:B EQU 1 PCHAN EQU X:B P*
0x29b72c…29b8c0 Dummy {f00=0x00d1, f01=0x0190, f02=»L WORK TABLE FOR SALCUZ 1 * " & PCUAD1 EQU /1A CONTROL UNIT ADDRESS , * V CWTSA1 EQU * TABLE ENTRY ` CWTLDW EQU *-CWTSA1 DATA 0 LAST OUTPUT DWT PCWTITA EQU *-CWTSA1 & P DATA INTSL1 WORK STATION ADDRESS CWTINR
0x29b8c0…29ba54 (1, 645) Dummy {f00=0x00d1, f01=0x0190, f02=» CIO A1,1,CUAD1+1 CIO START OUTPUT PCWTTP EQU *-CWTSA1 * =2 * P DATA 0 TIMER POINTER =2 J CWTEQ EQU *-CWTSA1 j DATA 0 QUEUE CWTCIH EQU *-CWTSA1 & P CIO A1,0,CUAD1+1 CIO HALT OUTPUT CWTSST EQU *-CWTSA1 & P SST A2,CUAD
0x29ba54…29bbe8 Dummy {f00=0x00d1, f01=0x0190, f02=»ART INPUT z CWTSSI EQU *-CWTSA1 $ P SST A2,CUAD1 SEND STATUS INPUT . PCWTTP2 EQU *-CWTSA1 * =5 V . P DATA 0 TIMER POINTER FOR INP. NOT OP. =5 v EJECT * * ******************* * C W T S A 2 * ******
0x29bbe8…29bd7c Dummy {f00=0x00d1, f01=0x0190, f02=»N=1 * & PCUAD2 EQU /2A CONTROL UNIT ADDRESS * @ DATA 0 LAST OUTPUT DWT J & P DATA INTSL2 WORK STATION ADDRESS j INR A2,0,CUAD2 INR OTR A2,0,CUAD2+1 OTR & " CIO A1,1,CUAD2+1 CIO START OUTPUT P DATA 0 TIMER PO
0x29bd7c…29bf10 Dummy {f00=0x00d1, f01=0x0190, f02=»L STATUS $ CIO A1,1,CUAD2 CIO START INPUT $ P SST A2,CUAD2 SEND STATUS INPUT 8 . P DATA 0 TIMER POINTER FOR INP. NOT OP. =5 ` * P XIF EJECT * * ******************* * C W T S A 3 * ******
0x29bf10…29c0a4 Dummy {f00=0x00d1, f01=0x018e, f02=»N=1 P IFF CHAN=2 * & PCUAD3 EQU /2C CONTROL UNIT ADDRESS * * T DATA 0 LAST OUTPUT DWT ^ & P DATA INTSL3 WORK STATION ADDRESS ~ INR A2,0,CUAD3 INR OTR A2,0,CUAD3+1 OTR & " CIO A1,1,CUAD3+1 CIO START OUTPUT
0x29c0a4…29c238 Dummy {f00=0x00d1, f01=0x0190, f02=» l P DATA 0 CHANNEL STATUS $ CIO A1,1,CUAD3 CIO START INPUT & $ P SST A2,CUAD3 SEND STATUS INPUT N . P DATA 0 TIMER POINTER FOR INP. NOT OP. =5 v * P XIF EJECT * * ******************* * C W T S
0x29c238…29c3cc Dummy {f00=0x00d1, f01=0x018e, f02=» P* P IFF CHAN=1 P IFF CHAN=2 " P IFF CHAN=3 6 * J & PCUAD4 EQU /3A CONTROL UNIT ADDRESS T * ~ DATA 0 LAST OUTPUT DWT & P DATA INTSL4 WORK STATION ADDRESS INR A2,0,CUAD4 INR OTR A2,0,CUAD4+1 OTR
0x29c3cc…29c560 Dummy {f00=0x00d1, f01=0x0190, f02=» l & P SST A2,CUAD4+1 SEND STATUS OUTPUT P DATA 0 CHANNEL STATUS 2 $ CIO A1,1,CUAD4 CIO START INPUT P $ P SST A2,CUAD4 SEND STATUS INPUT x . P DATA 0 TIMER POINTER FOR INP. NOT OP. =5 * P XIF EJECT * *
0x29c560…29c6f4 (1, 646) Dummy {f00=0x00d1, f01=0x0190, f02=» * PCWTSA5 EQU * TABLE ENTRY P* . P IFF CHAN=1 8 P IFF CHAN=2 L P IFF CHAN=3 ` P IFF CHAN=4 t * * PCUAD5 EQU NOTDEF CONTROL UNIT ADDRESS 6 P* ONLY DEFINED FOR FOUR SALCUZ CARDS ********** * DAT
0x29c6f4…29c888 Dummy {f00=0x00d1, f01=0x0190, f02=»1,CUAD5+1 CIO START OUTPUT P DATA 0 TIMER POINTER =2 " DATA 0 QUEUE B & P CIO A1,0,CUAD5+1 CIO HALT OUTPUT X & P SST A2,CUAD5+1 SEND STATUS OUTPUT P DATA 0 CHANNEL STATUS $ P CIO A1,1,CUAD5 CIO START INPUT $ P SST A2,CUAD5 SEND STA
0x29c888…29ca1c Dummy {f00=0x00d1, f01=0x018e, f02=»******* P* C W T S A 6 * ******************* , * H ( P* CONTROL WORK TABLE FOR SALCUZ 6 R * ~ PCWTSA6 EQU * TABLE ENTRY P* P IFF CHAN=1 P IFF CHAN=2 P IFF CHAN=3 P IFF CHAN=4 P IFF C
0x29ca1c…29cbb0 Dummy {f00=0x00d1, f01=0x0190, f02=» DATA 0 LAST OUTPUT DWT & P DATA INTSL6 WORK STATION ADDRESS $ P INR A2,0,CUAD6 INR N P OTR A2,0,CUAD6+1 OTR j & P CIO A1,1,CUAD6+1 CIO START OUTPUT P DATA 0 TIMER POINTER =2 DATA 0 QUEUE & P CIO A1,0,CUAD6+1 CIO HALT OUTPU
0x29cbb0…29cd44 Dummy {f00=0x00d1, f01=0x018e, f02=»SEND STATUS INPUT . P DATA 0 TIMER POINTER FOR INP. NOT OP. =5 * L P XIF V EJECT b * p * z ******************* P* C W T S A 7 * ******************* * ( P* CONTROL WORK TABLE FOR SALCUZ 7
0x29cd44…29ced8 Dummy {f00=0x00d1, f01=0x0190, f02=» P IFF CHAN=5 P IFF CHAN=6 * , * PCUAD7 EQU NOTDEF CONTROL UNIT ADDRESS 6 6 P* ONLY DEFINED FOR FOUR SALCUZ CARDS ********** d * DATA 0 LAST OUTPUT DWT & P DATA INTSL7 WORK STATION ADDRESS P INR A2,0,CUAD7 INR
0x29ced8…29d06c Dummy {f00=0x00d1, f01=0x0190, f02=» A1,0,CUAD7+1 CIO HALT OUTPUT & P SST A2,CUAD7+1 SEND STATUS OUTPUT & P DATA 0 CHANNEL STATUS P $ P CIO A1,1,CUAD7 CIO START INPUT n $ P SST A2,CUAD7 SEND STATUS INPUT . P DATA 0 TIMER POINTER FOR INP. NOT OP. =5 * P XIF E
0x29d06c…29d200 Dummy {f00=0x00d1, f01=0x0190, f02=»L WORK TABLE FOR SALCUZ 8 * " PCWTSA8 EQU * TABLE ENTRY , P* L P IFF CHAN=1 V P IFF CHAN=2 j P IFF CHAN=3 ~ P IFF CHAN=4 P IFF CHAN=5 P IFF CHAN=6 P IFF CHAN=7 * * PCUAD8 EQU NOTDEF CONTROL UNI
0x29d200…29d394 (1, 647) Dummy {f00=0x00d2, f01=0x0190, f02=»STATION ADDRESS ~ P INR A2,0,CUAD8 INR P OTR A2,0,CUAD8+1 OTR 4 & P CIO A1,1,CUAD8+1 CIO START OUTPUT R P DATA 0 TIMER POINTER =2 | DATA 0 QUEUE & P CIO A1,0,CUAD8+1 CIO HALT OUTPUT & P SST A2,CUAD8+1 SEND STATUS OUTPUT P D
0x29d394…29d528 Dummy {f00=0x00d2, f01=0x0190, f02=»P. NOT OP. =5 t * P XIF EJECT , * : * D ***************** N * C H T A B * h ***************** * 2 .* THIS TABLE HOLDS ADDRESSES OF CONTROL WORK $ * TABLES CWT TO CHANNEL UNITS. *
0x29d528…29d6bc Dummy {f00=0x00d2, f01=0x0190, f02=» P IFF CHAN=1 P IFF CHAN=2 P DATA CWTSA3 0 P XIF D P IFF CHAN=1 P P IFF CHAN=2 d P IFF CHAN=3 x DATA CWTSA4 P XIF P IFF CHAN=1 P IFF CHAN=2 P IFF CHAN=3 P IFF CHAN=4 P DATA CWTSA5
0x29d6bc…29d850 Dummy {f00=0x00d2, f01=0x0190, f02=» P XIF ! P IFF CHAN=1 ! P IFF CHAN=2 ! $ P IFF CHAN=3 ! 8 P IFF CHAN=4 ! L P IFF CHAN=5 ! ` P IFF CHAN=6 ! t P DATA CWTSA7 ! P XIF ! P IFF CHAN=1 ! P IFF CHAN=2 ! P IFF CHAN=3 ! P IFF CHAN=4 ! P IFF CHAN=5 !
0x29d850…29d9e4 Dummy {f00=0x00d2, f01=0x0190, f02=» ! * " * " * S L C U O N " * " 4 6 1* SUBROUTINE TO RESET CWT AND PERFORM CIO START " > 4 P* OF EVERY SALCUZ INPUT CHANNEL AT SYSTEM LOAD " x P* " * " * " PSLCUON EQU * " LD A4,CHTAB TABLE LENGTH " SON0
0x29d9e4…29db78 Dummy {f00=0x00d2, f01=0x0190, f02=» P LDKL A1,/8000 # ( P ORS A1,CWTST,A5 SET INITIATION BIT # P CMR A5 RESET LAST OUTPUT =2 # F & P CM CWTEQ,A5 RESET OUTPUT QUEUE =5 # j P INH # P LDK A1,/4 EVEN PARITY =1 # " P EX CWTCIS,A5 CIO START OUTPUT # * % EX CWTCSI,A5 EXECUTE CIO-START
0x29db78…29dd0c Dummy {f00=0x00d2, f01=0x0190, f02=»****************************************** # 0 P* INTERRUPT ENTRY FROM SALCUZ INPUTS * $ 2 0 ,******************************************** $ f * $ * $ P* I S L C I $ * $ $ P* INPUT INTERRUPT FROM SALCUZ $ * $ PISLCI EQ
0x29dd0c…29dea0 Dummy {f00=0x00d2, f01=0x0190, f02=»HTAB $ P SUK A3,2 NUMBER OF LINES % P RF IIS015 % . P* % @ & P* GET CWT-ADDRESS. EXECUTE INR. % J P* % t PIIS010 EQU * % ~ P ADK A4,2 NEXT SALCUZ % PIIS015 EQU * % P CWR A4,A3 % & P ABL(NL) EXIT NOT VALID INTERRUPT % & P LD A5,C
0x29dea0…29e034 (1, 648) Dummy {f00=0x00d2, f01=0x0190, f02=»FROM INTSL % | P* & PIIS020 EQU * & 4 P LD* A1,CWTITA,A5 ADDRESS OF WORK STATION TABLE & 0 " P LDK A6,0 WORK STATION NUMBER & h * P CF A15,NDGEDN GET HIGHEST DWT-NUMBER & P ADK A7,1 PREPARE FOR SUK & PIIS025 EQU * & P SUK A7,1 NEXT DWT &
0x29e034…29e1c8 Dummy {f00=0x00d2, f01=0x0190, f02=»D & l " P LD A3,DWTST,A6 DEVICE STATUS ' P ANK A3,/40 INPUT DEVICE? ' 0 P RF(NZ) IIS055 YES ' R " P LDK A6,0 WORK STATION NUMBER ' l P RB IIS025 ' * ' PEXITL EQU * ' P IFT LOGING=1 ' P SLL A4,8 LINE NR FOR LOGG ' P ORR A2,A4 '
0x29e1c8…29e35c Dummy {f00=0x00d2, f01=0x0190, f02=»RN TO DEVICE DRIVER ' * ( PIIS055 EQU * ( & P LDK A1,0 RESET RETURN CODE ( : P* ( ^ P IFT LOGING=1 ( h ( P CF A15,INFLOG GET LINE INFORMATION ( ~ 0 P CF A15,LOGG ** LOGG OF INPUT CHARACTER ** ( P XIF ( P* ( PIIS058 EQU * * =2 (
0x29e35c…29e4f0 Dummy {f00=0x00d2, f01=0x0190, f02=» P* ) P LDKL A7,/FFDF ) 2 P ANS A7,DWTST,A6 RESET FLAG 'INPUT REQUESTED' ) $ & P ABL NDREP RETURN TO DEVICE DRIVER ) Z P* ) P EJECT ) P* ) 0 P* GO TO INTERRUPT ROUTINE OF DEVICE DRIVER ) P* ) PIIS059 EQU * ) " P LD A1,DWTADR,A6
0x29e4f0…29e684 Dummy {f00=0x00d2, f01=0x0190, f02=» P ADKL A5,DWTSB2 STACK BASE * * P ABR A1 DEVICE DRIVER INTERRUPT ENTRY * & P* * T P EJECT * ^ * * l P* EXECUTE SST INPUT * v P* * PIIS060 EQU * * $ P EX CWTSSI,A5 SEND STATUS INPUT * $ P RB(NA) IIS010 CHECK NEXT SALCUZ * P ANK A
0x29e684…29e818 Dummy {f00=0x00d2, f01=0x018e, f02=»O START INPUT * P =2 + P RF EXIT * =2 + $ P* + : * P* START TIMER IF INPUT NOT OPERABLE + D P* + r PIIS070 EQU * * =5 + | 0 P LDR A1,A5 SAVE CWT-ADDRESS AS PARAMETER =5 + P LDK A4,CWTTP2 * =5 + ( P ADR A4,A5 TIMER POINTER ADDRESS =
0x29e818…29e9ac Dummy {f00=0x00d2, f01=0x0190, f02=» 0 P* TIME-OUT ROUTINE FOR INPUT NOT OPERABLE , P* , 8 PIIS080 EQU * * =5 , B P LDR A5,A1 CWT-ADDRESS =5 , ( P CM CWTTP2,A5 RESET TIMER POINTER =5 , ~ P RB IIS065 START INPUT =5 , P* , EJECT , * , * , 2 -****************
0x29e9ac…29eb40 Dummy {f00=0x00d2, f01=0x018e, f02=»* , d * - P* - P* I S L C O - * - 4 $ P* OUTPUT INTERRUPT FROM SALCUZ - > * - f PISLCO EQU * - p $ ST P,INTSAV SAVE LAST INTERRUPT - " P MSR 8,A15 SAVE A1-A8 ON STACK - " P LDK A7,0 RESET SALCUZ-COUNTER - P LD A3,CHTAB -
0x29eb40…29ecd4 (1, 649) Dummy {f00=0x00d2, f01=0x0190, f02=» - POIS010 EQU * . P ADK A7,2 NEXT SALCUZ . POIS015 EQU * . : P CWR A7,A3 . N $ P RF(NL) EXIT NOT VALID INTERRUPT . ` & P LD A5,CHTAB+2,A7 GET CWT-ADDRESS . P EX CWTSST,A5 SST . P RB(NA) OIS010 . P* . P IFT LOGING=1 . P LDR*
0x29ecd4…29ee68 Dummy {f00=0x00d2, f01=0x0190, f02=»2,A7 * =2 . CF A15,LOGG **LOGG STATUS** / P XIF / 6 P* / B POIS017 EQU * / L " P LD A1,CWTST,A5 CHANNEL STATUS / ` ( P RF(N) OIS040 INITIATION ON CHANNEL / P =2 / P EJECT / * / 0 +* CHECK QUEUE AND SEND IF SOMETHING THERE /
0x29ee68…29effc Dummy {f00=0x00d2, f01=0x0190, f02=»2,/FF CLEAN / " P LC A4,CWTST,A5 CHANNEL STATUS 0 " P LDR A1,A2 SET RETURN CODE =2 0 : " P RF(NZ) OIS035 NOT OPERABLE =2 0 ` & P LD A3,CWTST,A5 CHANNEL STATUS =2 0 P SLL A3,1 * =2 0 * P RF(N) OIS038 NOT OPERABLE BIT SET =2 0 P * =4 0 P *
0x29effc…29f190 Dummy {f00=0x00d2, f01=0x0190, f02=» ST A2,CWTEQ,A5 STORE IT IN CWT 0 " LC A2,DWTOCH,A6 GET CHARACTER 1 ( " P CF A15,OUTSAL SEND CHARACTER 1 N P =5 1 t P EJECT 1 * 1 P* RETURN TO DEVICE DRIVER 1 * 1 POIS030 EQU * 1 P CWK A7,DWTSYN SYNC-DWT? =4 1 P RF(E) E
0x29f190…29f324 Dummy {f00=0x00d2, f01=0x0190, f02=» LAST OUTPUT 1 * P ABL(NZ) NDREP RETURN TO DEVICE DRIVER 2 * 2 B PEXIT EQU * 2 L P ABL TDISP 2 ^ P* 2 p P* OUTPUT NOT OPERABLE 2 z P* 2 POIS035 EQU * * =2 2 P CWK A7,DWTSYN SYNC-DWT? =2 2 P RB(E) EXIT YES =2 2 P LDKL A3,/40
0x29f324…29f4b8 Dummy {f00=0x00d2, f01=0x0190, f02=» 2 POIS038 EQU * * =2 3 P LDKL A3,/BFFF * =2 3 " 0 P ANS A3,CWTST,A5 RESET BIT 'NOT OPERABLE' =2 3 > P EJECT 3 r P* 3 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE 3 2 P* ON ACTUAL LINE EXCEPT THOSE IN ECHO MODE 3 P* 3 POI
0x29f4b8…29f64c Dummy {f00=0x00d2, f01=0x018e, f02=» A6,0 WORK STATION NUMBER 3 P LDK A4,1 RECOVERY CAUSE 4 " 0 P CF A15,NDREWS CALL RECOVERY FOR ALL DEVICES 4 B P ON WORK STATION 4 v P RB EXIT 4 EJECT 4 * 4 P* O U T S A L 4 * 4 2 -* SUBROUTINE TO SEND A CHARACTER VIA SALCUZ
0x29f64c…29f7e0 Dummy {f00=0x00d2, f01=0x0190, f02=» 4 " P MSR 8,A15 SAVE A1-A8 ON STACK 5 ANK A2,/FF 5 . P INH 5 B P CWK A6,DWTSYN SYNC SENDING? 5 N P RF(E) OUS050 YES 5 r " P LDR* A1,A6 CHANNEL PARAMETERS 5 " P ANK A1,/F CHANNEL UNIT INDEX 5 " P SLL A1,1 MAKE INDEX FOR CHTAB 5 & ! LD A5,CHT
0x29f7e0…29f974 (1, 650) Dummy {f00=0x00d2, f01=0x0190, f02=»* QUEUE OUTPUT 5 * 6 OUS005 EQU * 6 " LD A4,CWTEQ,A5 OUTPUT QUEUE 6 6 RF(E) OUS020 6 Z OUS010 EQU * 6 p CWR A6,A4 6 . * RF(E) OUS060 THIS DWT IS ALREADY IN QUEUE 6 LD A3,DWTOTQ,A4 6 & ! RF(E) OUS030 END OF THREAD FOUND 6
0x29f974…29fb08 Dummy {f00=0x00d2, f01=0x018e, f02=»QU * 6 ST A6,DWTOTQ,A4 QUEUE DWT 7 * %OUS040 CM DWTOTQ,A6 SET END OF THREAD 7 . RF OUS060 7 EJECT 7 n * 7 | P* START OUTPUT 7 * 7 OUS050 EQU * 7 . P LD A1,PFPOST PWF POST PROCESSING FLAG =5 7 $ P RF(NZ) OUS070 PFINIT PEND
0x29fb08…29fc9c Dummy {f00=0x00d2, f01=0x0190, f02=» 7 ~ P* 8 . P LD A3,CWTTP,A5 ADDRESS TO TIMER BLOCK =2 8 P RF(Z) STTIM * =2 8 D P* 8 ^ P* RESTART TIMER 8 h P* 8 $ P LDKL A3,-TIME RESTART TIMER =2 8 P ST* A3,CWTTP,A5 * =2 8 P RF OUS052 * =5(=2) 8 P* 8 P* START TIMER
0x29fc9c…29fe30 Dummy {f00=0x00d2, f01=0x0190, f02=» POINTER ADDRESS =2 8 * P CF A15,SETIMP START TIMER OF 0.5 S =2 9 2 P DATA T:OUT,TIME TIME-OUT ADDRESS AND VALUE =2 9 J P EJECT 9 P* 9 * P* CHECK IF OUTPUT TO KEYBOARD LAMPS 9 P* 9 POUS052 EQU * * =5 9 * P LD A7,DWTCP2,A6 CHANNEL PARAM
0x29fe30…29ffc4 Dummy {f00=0x00d2, f01=0x0190, f02=» EJECT 9 P* : P* SEND CHARACTER : P* : 2 OUS053 EX CWTOTR,A5 OTR : < P =3 : P RF(A) OUS055 * =3 : j $ P CWK A6,DWTSYN SYNC-SENDING? =3 : P RF(NE) OUS054 NO =3 : ( P STR A6,A5 STORE SYNC-DWT IN CWT =3 : P RF OUS070 * =3 :
0x29ffc4…2a0158 Dummy {f00=0x00d2, f01=0x018e, f02=» : OUS055 EQU * ; LDK A1,0 ; " P EX CWTCIH,A5 CIO STOP OUTPUT ; . $ STR A6,A5 STORE LAST DWT IN CWT ; T P CWK A6,DWTSYN SYNC-DWT? =2 ; | P RF(E) OUS070 YES =2 ; P* ; P IFT LOGING=1 ; ( P CF A15,INFLOG GET LINE INFORMATION ; . )
0x2a0158…2a02ec Dummy {f00=0x00d2, f01=0x018e, f02=» ; | 8 4OUS060 SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT < OUS070 EQU * < D ( P MLR 8,A15 RESTORE A1-A8 FROM STACK < X P * =6 < P INH * =6 < ( P ADKL A15,2 ADJUST STACK POINTER =6 < P LDR* P,A15 RETURN =6 < P EJECT < * < ( #
0x2a02ec…2a0480 Dummy {f00=0x00d2, f01=0x018e, f02=» OUS080 EQU * = . P LC A4,CWTST,A5 LEFT BYTE OF CWT STATUS =3 = P LDKL A1,/FBFF = J 4 P ANS A1,CWTST,A5 RESET BIT 'LAMP CODE QUEUED' =3 = ` P ANK A4,/04 = . P RB(NZ) OUS053 LAMP CODE ALREADY IN QUEUE = LD A4,CWTEQ,A5 OUTPUT QUEUE = RF(E)
0x2a0480…2a0614 (1, 651) Dummy {f00=0x00d3, f01=0x0190, f02=» = n $ ST A6,CWTEQ,A5 QUEUE LAMP CODE > , P SC A2,DWTOCH,A6 STORE LAMP CODE IN DWT > 0 P C1R A1,A1 > ` 2 P ORS A1,CWTST,A5 SET BIT 'LAMP CODE QUEUED' =3 > r LDK A2,/1C > RB OUS053 > * > P EJECT > P* > * P* TIME-OUT ROUTINE FOR
0x2a0614…2a07a8 Dummy {f00=0x00d3, f01=0x0190, f02=»U * * =2 > P LDR A5,A1 * =2 ? ( P CM CWTTP,A5 RESET TIMER POINTER =2 ? ( P LDR* A6,A5 LINE FREE? =2 ? T P RF(NZ) T:OUT2 NO =2 ? v , P LDKL A6,DWTSYN SIMULATED DWT-ADDRESS =2 ? " P LDK A2,0 OUTPUT CHARACTER =2 ? P CF A15,OUTSAL SEND '00' =2 ?
0x2a07a8…2a093c Dummy {f00=0x00d3, f01=0x0190, f02=» CHARACTER INPUT ? P* @ PSLCHRI EQU * @ $ P LDK A2,/20 @ 8 0 P ORS A2,DWTST,A6 SET INPUT REQUESTED IN DWT @ L , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT @ P RF SLDISP LOCAL DISPATCHER @ P* @ P* START OF A BLOCK @ P* @ PSLST
0x2a093c…2a0ad0 Dummy {f00=0x00d3, f01=0x0190, f02=»* CHARACTER OUTPUT @ P* A PSLCHRO EQU * A & , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT A : " P CF A15,OUTSAL SEND CHARACTER A j P* A P* LOCAL DISPATCHER A P* A PSLDISP EQU * A P ABL TDISP GO TO DISPATCHER A P* A P EJECT
0x2a0ad0…2a0c64 Dummy {f00=0x00d3, f01=0x0190, f02=»RESS FOR USE IN LOGG. A ~ < P* THE INFORMATION IS TAKEN FROM CHANNEL PARAMETERS AND B P* ADDED TO REGISTER A2. B ^ P* B , P* DEVICE ADDRESS IS STORED IN BITS 0-3 B , P* CH. UNIT INDEX IS STORED IN BITS 4-6 B P* B P* ON ENTRY: B
0x2a0c64…2a0df8 Dummy {f00=0x00d3, f01=0x0190, f02=»T WORD WITH ADDED INFORMATION B P* A3,A4 ARE DESTROYED C & P* C H P IFT LOGING=1 C R P* C h PINFLOG EQU * C r & P LDR* A3,A6 GET CHANNEL PARAMETERS C " P ANK A3,/7 CHANNEL UNIT INDEX C * P LD A4,DWTCP2,A6 CHANNEL PARAMETERS 2 C P ANK
0x2a0df8…2a0f8c Dummy {f00=0x00d3, f01=0x0190, f02=»BINE INFORMATION WITH CHARACTER C P RTN A15 D ( P* D 8 P XIF D B P EJECT D N P* D P* D f P* L O G G D p P* D 8 P* IF CONDITIONALY ASSEMBLY IS SET EVERY INPUT AND D $ P* OUTPUT CHARACTER ARE LOGGED D P* D P* D P*
0x2a0f8c…2a1120 Dummy {f00=0x00d3, f01=0x0190, f02=» D n P RF(NE) L1 E ( P LDKL A1,BUF SET FIRST LOGG ADDRESS E PL1 ST A1,POINT E F . P STR A2,A1 LOGG OF INR OR OTR INSTRUCTION E P LDR* A1,A15 E P ADKL A15,2 E P LDR* P,A15 RETURN E P* E P* E PPOINT DATA BUF LOGG POINTER E P
0x2a1120…2a12b4 (1, 652) Dummy {f00=0x00d3, f01=0x406a, f02=» E RTNA15 EQU * F ADKL A15,2 F ENB F 0 LDR* P,A15 F < * F P END F Z@ F f
0x2a12b4…2a1448 Dummy {f00=0x00d3, f01=0x2008, f02=» G * RETURN AND ENABLE $ * $ & RTNA15 EQU * $ 0 ADKL A15,2 $ D ENB $ X LDR* P,A15 $ d * $ x END $ @ $ # z * ON EXIT: # 2 -* A8 =ADDRESS WHERE DWT-ADDRESS IS FOUND # * # GETADR EQU * # 0 + LD A8
0x2a1448…2a15dc Dummy {f00=0x00d3, f01=0x018e, f02=»DRIVER G z ( P LDR A1,A1 ANY CHAR LEFT IN BUFFER? H P RF(Z) CI120 NO, CONTINUE H : & P LDK A1,1 INDICATE MORE CHARACTERS H P RF CI130 H P* H PCI120 EQU * H P CM DWTLD1,A6 UNLINK BUFFER H PCI130 EQU * H P ENB H P RTN A5 H
0x2a15dc…2a1770 Dummy {f00=0x00d3, f01=0x0190, f02=» P* PLSTBL I * I * FUNCTION: I 4 P* THIS ROUTINE DEFINES START OF AN OUTPUT BLOCK. I 2 2 P* IT ALLOCATES AN OUTPUT BUFFER, AND LINKS IT I j P* TO THE DWT. I * I * CALL: I P* ABI STBTAB,A1 I P* CF A5,PLSTBL I * I
0x2a1770…2a1904 Dummy {f00=0x00d3, f01=0x0190, f02=»URN TO DEVICE DRIVER I P* A1 = RETURN CODE J P* 0 IF OK J 8 P* NOT 0 IF ERROR J J 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) J d P* CR = CONTENTS OF A1 J P* INTERR. ENABLED J * J @ <**********************************************
0x2a1904…2a1a98 Dummy {f00=0x00d3, f01=0x0190, f02=» ADDRESS J x P* K P EJECT K P* K ( . P LD A1,DWTLD1,A6 BUFFER ALREADY ALLOCATED? K 2 ( P ABL(NZ) NDREPO YES, SET OK & RETURN K d & P CF A15,GETLCS A1 := STATUS & INH K P RF(NZ) SBERR2 ERROR, RETURN K P* K P* CHECK LEVEL 3 WINDOW K $
0x2a1a98…2a1c2c Dummy {f00=0x00d3, f01=0x0190, f02=»SB090 YES, DON'T CHECK WINDOW K 2 P CF A15,GETOFR A2 := NR OF OUTSTANDING FRAMES L & & P LDR A2,A2 ANY FRAMES OUTSTANDING? L P RF(Z) SB090 NO, CONTINUE L P LD A1,DWTST,A6 DWT STATUS L 0 P ANK A1,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? L 2 P RF(NZ) SB
0x2a1c2c…2a1dc0 Dummy {f00=0x00d3, f01=0x018e, f02=»T UNTIL WINDOW IS OPEN L z 2 P ST A3,DWTLD1,A6 SAVE REQUESTED BUFFER LENGTH M 2 P LDK A1,DWFAK3 FLAG "WAITING FOR LEVEL 3 ACK" M T , P ORS A1,DWTST,A6 SET FLAG IN DWT STATUS M " IFF UTTEST=0 QUEUE STATISTICS M LD A1,CWTPNR,A5 PLC NUMBER M SLA
0x2a1dc0…2a1f54 (1, 653) Opaque[0x194]
0x2a1f54…2a20e8 # DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a70, f03=0x0000}
0x2a1f54…2a20e8 IdxSect {
0x2a1f54…2a20e8 f00 = 0x00d3 // 0x2a1f54 @0x0
0x2a1f54…2a20e8 f01 = 0x000a // 0x2a1f56 @0x2
0x2a1f54…2a20e8 gno = [ // 0x2a1f58 @0x4
0x2a1f54…2a20e8 [0x00]: C0x00d3.0x2.0
0x2a1f54…2a20e8 [0x01]: C0x00d3.0x3.0
0x2a1f54…2a20e8 [0x02]: C0x00d4.0x0.0
0x2a1f54…2a20e8 [0x03]: C0x00d4.0x1.0
0x2a1f54…2a20e8 [0x04]: C0x00d4.0x2.0
0x2a1f54…2a20e8 ]
0x2a1f54…2a20e8 }
0x2a20e8…2a227c Dummy {f00=0x00d3, f01=0x018e, f02=» 2 P IDENT DRSOP1 REL 11.0 81-01-26 870105041100 P : P* B P* L @ P************************************************************ V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL
0x2a227c…2a2410 Dummy {f00=0x00d3, f01=0x0190, f02=» P* B P* THIS DRIVER HANDLES INPUT AND OUTPUT ON SYSTEM OPERATOR'S , P* PANEL CONNECTED TO CPU VIA CHCR-SOP X P* P* > P* ON AN INPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET : P* 'BUSY' UNTIL THE INPUT INTERRUPT IS TA
0x2a2410…2a25a4 Dummy {f00=0x00d3, f01=0x0190, f02=»ING READ REQUEST,POWER UP r > P* IS INDICATED AND NEXT READ REQUEST IS TERMINATED WITH " P* -2 IN CONTROL WORD d P* P* > P* ON AN OUTPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET > P* 'READY' IMMEDIATELY, SINCE THE OUTPUT DOES N
0x2a25a4…2a2738 Dummy {f00=0x00d3, f01=0x0190, f02=» ` P* ( P* S O P A S : READ SWITCHES ENTRY P* > * P* S O P A L : ACTIVATE LIGHTS ENTRY H P* v & P* I H S O P : INTERRUPT HANDLER P* " P* S O P R : RECOVERY ROUTINE P* P* P* * P* THE FOLLOWIN
0x2a2738…2a28cc Dummy {f00=0x00d3, f01=0x018e, f02=»IGHTS OFF z , P* 39 : WRITE FLASHING LIGHTS P* B P* NORMAL REGISTER USAGE: L P* n " P* REGISTER A1: INPUT/OUTPUT x " P* A2: WORK REGISTER " P* A3: WORK REGISTER " P* A4: WORK REGISTER
0x2a28cc…2a2a60 Dummy {f00=0x00d3, f01=0x0190, f02=» r P* P* P EJECT P* * P************ 4 P* ENTRIES: * H P************ P* p P* z * P ENTRY SOPCT S.O.P. CHANNEL UNIT TABLE ( P ENTRY SOPR S.O.P. RECOVERY ROUTINE 2 P ENTRY IHSOP S.O.P. INTERRUPT HANDLER (ALI
0x2a2a60…2a2bf4 (1, 654) Dummy {f00=0x00d3, f01=0x0190, f02=»**** P* EXTERNALS: * P************** " P* 8 P* TOSS GLOBALS: B P* Z , P EXTRN SAVE8 PUSH REGS A1-A8 ONTO STACK d 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY & P EXTRN TDISP DISPATCHER LKM ENTRY . P EXTRN RETUR8 POP
0x2a2bf4…2a2d88 Dummy {f00=0x00d3, f01=0x018e, f02=»I DATA SOP LIGHTS AND FD POWER P EJECT & P 4 P* < ( P************************************ F P* r P* DWT DISPLACEMENTS | P* ( P************************************ P* $ EXTRN DWTCHP CHANNEL PARAMETER EXTRN
0x2a2d88…2a2f1c Dummy {f00=0x00d3, f01=0x0190, f02=» EXTRN DWTTAB TTAB ADDRESS * % EXTRN DWTWAT WAIT/ACTIVATE INDICATOR & EXTRN DWTTQ TERMINAL QUEUE T . P EXTRN INTSAV SAVE AREA FOR LAST INTERRUPT x ( P EXTRN ECBEL EFFECTIVE LENGTH IN ECB " P EXTRN ECBCW ECB CONTROL WORD PTIME EQU 5 F
0x2a2f1c…2a30b0 Dummy {f00=0x00d3, f01=0x0190, f02=» P PX:A EQU 0 PSOPX EQU X:A " P** 6 P** @ @ P* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY J P* SETTING X:B=1 P* PX:B EQU 0 PWRFLA EQU X:B P* P* . P* A PROGRAM VERSION USING
0x2a30b0…2a3244 Dummy {f00=0x00d3, f01=0x018e, f02=»ION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. * P* PCPU852 EQU 1 f P* z PDVBLEN EQU 0 MMU BUFFER SIZE " PDEVIND EQU -2 SOP DEVICE INDEX P* P EJECT P* P* 0 PDWTDRD EQU /10
0x2a3244…2a33d8 Dummy {f00=0x00d3, f01=0x0190, f02=» PSTART EQU DWTDRD+4 P XIF P* * & PDWTTP EQU START+/00 TIMER POINTER 4 P* ^ P EJECT h P* v P************************** P* S.O.P. DEVICE ADDRESS: * P************************** P* P* PSOPDA EQU /2E
0x2a33d8…2a356c Dummy {f00=0x00d3, f01=0x0190, f02=». CHANNEL UNIT TABLE * " P* * " P****************************** D P* j P* t 0 PSOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK: ~ P* P DATA DVBLEN MMU BUFFER SIZE P DATA DEVIND DEVICE INDEX 6 PSOPADI
0x2a356c…2a3700 Dummy {f00=0x00d3, f01=0x0190, f02=» r P* P DATA DVBLEN MMU BUFFER SIZE P DATA DEVIND DEVICE INDEX 6 & PSOPADU EQU * ACTIVATE LIGHTS ENTRY X P* & P DATA SOPAL ACTIVATE LIGHTS ENTRY " P DATA 0 ABORT ROUTINE ADDRESS P* P* BIT 0 CONTROLS FD POWER
0x2a3700…2a3894 (1, 655) Dummy {f00=0x00d4, f01=0x0190, f02=» ACTIVATION ROUTINE: * " P* * " P****************************** D P* j > P* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION t P* IS CARRIED OUT. P* * PSOPAS EQU * SWITCHES ACTIVATION ENTRY
0x2a3894…2a3a28 Dummy {f00=0x00d4, f01=0x0190, f02=»R l P* P* INPUT SWITCH VALUE P* 2 * PSOPIN LDR* A2,A6 POWER UP INDICATION ? < P RF(NZ) EXIT NO j P STR A7,A6 YES P RF IHSOP3 P* P EJECT P* , P* ENTRY FOR CHANGES OF S.O.P. LIGHTS P* & PSO
0x2a3a28…2a3bbc Dummy {f00=0x00d4, f01=0x0190, f02=» P LDR A4,A7 COPY ORDER P IFT WRFLA=1 & P CCK A4,/3939 : P RF(E) SOPFL P P XIF d P SUK A4,/37 p & P RF(Z) SOPON IF SO, TURN ON LIGHTS P* & P SUK A4,1 SEE IF LIGHTS OFF ORDER P RF(Z) SOPOFF & PSOPER ABL(NZ) DI
0x2a3bbc…2a3d50 Dummy {f00=0x00d4, f01=0x0190, f02=»* P LD A4,DWTTP,A6 ( P RF(NE) FL010 TIMER ALREADY STARTED " P LDK A4,DWTTP N P ADR A4,A6 d P LDR A1,A6 v P CF A15,SETIMP P DATA FLTUT,TIME P ST A4,DWTTP,A6 P LDKL A1,/FFBF P ANS A1,DWTST,A6 SET ON FLAG P
0x2a3d50…2a3ee4 Dummy {f00=0x00d4, f01=0x0190, f02=» | P ANK A1,/40 P RF(Z) FL020 & P ORS A3,SPDLCI FIXA TILL DET HELA! 0 P RF SOPONOFF Z PFL020 EQU * n P C1R A3,A3 P ANS A3,SPDLCI P RF SOPONOF P* P EJECT P* PFLTUT EQU * FLASH TIME OUT P LDKL
0x2a3ee4…2a4078 Dummy {f00=0x00d4, f01=0x018e, f02=»TTP,A6 P LDK A1,/40 P XRS A1,DWTST,A6 " P RB FL015 : PFL030 CM DWTTP,A6 L P RF EXIT END I/O f P XIF ~ P EJECT P* PSOPOFF EQU * , P C1R A3,A3 GET COMPLEMENTED CONTROL WORD 4 P ANS A3,SPDLCI MASK OUT LIGHTS TO
0x2a4078…2a420c Dummy {f00=0x00d4, f01=0x0190, f02=» f P* P* , P* TURN ON LIGHTS INDICATED BY '1' BITS: P* L PSOPON EQU * V " P* A3 CONTAINS CONTROL WORD j . P ORS A3,SPDLCI SET LIGHTS TO BE TURNED ON P IFT WRFLA=1 P C1R A3,A3 * P ANS A3,FLASH STOP SOME OTHER FL
0x2a420c…2a43a0 Dummy {f00=0x00d4, f01=0x0190, f02=»0,SOPDA AND OUTPUT TO S.O.P. P* $ P RF ENDIO PERFORM TENDIO . P EJECT N P* P**************************** f P* * P* S.O.P. INTERRUPT HANDLER * P* * P******************
0x2a43a0…2a4534 (1, 656) Dummy {f00=0x00d4, f01=0x0190, f02=» IN PROCEEDING THE INTERRUPT IS IGNORED. | P* 0 P : PIHSOP EQU * B P IFT CPU852=1 V & P CF A15,SAVE8 SAVE A1-A8 ON STACK l P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* $ P ST P,INTS
0x2a4534…2a46c8 Dummy {f00=0x00d4, f01=0x0190, f02=» P IFF SOPX=0 " P LDKL A6,DWSI02 ANY REQUEST ON P LD A4,DWTST,A6 STATUS WORD > P RF(N) IHSOP2 NO b $ P LD A8,DWTECB,A6 GET ECB-ADDRESS z P ST A2,ECBCW,A8 STORE INDEX ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH P LDK A1,0 P CF
0x2a46c8…2a485c Dummy {f00=0x00d4, f01=0x0190, f02=»T NO $ P LD A8,DWTECB,A6 GET ECB-ADDRESS P 4 & PIHSOP3 ST A2,ECBCW,A8 STORE INDEX < P f , PENDIO CM ECBEL,A8 RESET EFFECTIVE LENGTH n P LDK A1,0 P CF A15,TENDIO END I/O P $ PEXIT ABL TDISP GO TO DISPATCHER P EJECT
0x2a485c…2a49f0 Dummy {f00=0x00d4, f01=0x0190, f02=»INE * r * P* * * P************************************* > P* l P* v : P* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE 8 P* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD @ P* BE PRESENT
0x2a49f0…2a4b84 Dummy {f00=0x00d4, f01=0x0190, f02=»ELSE -2 IS SAVED IN DWTCHP ~ P* " P* , PSOPR EQU * ENTRY POINT 6 P IFT CPU852=1 V & P CF A15,SAVE8 SAVE A1-A8 ON STACK l P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* " P CIO A1,1,
0x2a4b84…2a4d18 Dummy {f00=0x00d4, f01=0x0190, f02=» P LDK A2,0 P P IFF SOPX=0 " P LDKL A6,DWSI02 ANY REQUEST ON 2 $ P LD A4,DWTST,A6 GET STATUS WORD X P RF(NN) SOPR1 YES P STR A2,A6 IND POWER UP P XIF P ( PSOPR1 LDKL A6,DWSI01 ANY REQUEST ON P LD A4,DWTST,A
0x2a4d18…2a4eac Dummy {f00=0x00d4, f01=0x0190, f02=»* D W S I 0 1 : INPUT DWT P* $ PDWSI01 EQU * . , P DATA 0 CHANNEL PARAMETER: POWER UP IND B , P DATA /8000 /8000 MEANS DEVICE IS READY r P DATA 0 ECB ADDRESS P DATA 0 ORDER P DATA SOPADI P DATA 0 P DATA 0 P
0x2a4eac…2a5040 Dummy {f00=0x00d4, f01=0x0190, f02=» EQU * P DATA 0,0,0,0,0,0 P XIF ( P* 4 P* D W S O 0 1 : OUTPUT DWT > P* b P* l PDWSO01 EQU * v " P DATA /0040 CHANNEL PARAMETER , P DATA /8000 /8000 MEANS DEVICE IS READY P DATA 0 ECB ADDRESS P DATA 0 ORDE
0x2a5040…2a51d4 (1, 657) Dummy {f00=0x00d4, f01=0x018e, f02=»INAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS ( P DATA DEVECO MMU ECB ADDRESS R XIF v P DATA 0 TIMER POINTER . PFLASH DATA 0 SAVE AREA FOR FLASHING LAMPS P IFT MMUPAG=1 PDEVECO EQU * P DATA 0,0,0,
0x2a51d4…2a5368 Dummy {f00=0x00d4, f01=0x4166, f02=» P IFF SOPX=0 P DATA 0 P DATA /8000 , P DATA 0 ECB ADDRESS @ P DATA 0 ORDER P DATA SOPADI r P DATA 0,0,0 IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVEC1 MMU ECB ADDRESS PDEVEC1 EQU
0x2a5368…2a54fc Dummy {f00=0x00d4, f01=0x2008, f02=» -ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE @ P* ^ P END h@ t P* z P* P* D W S O P U : OUTPUT DWT P* P* PDWSOPU EQU * P DATA 0 CHANNEL PARAMETER , P DATA /8000
0x2a54fc…2a5690 Dummy {f00=0x00d4, f01=0x018e, f02=» MSR 8,A15 PUSH A1-A8 q XIF q " * q . & P LDKL A5,PL0CWT CWT ADDRESS, PLC 0 q 8 $ P RF IHPL COMMON PART, ALL PLC:S q b P* q P EJECT q P* q PIHPL02 EQU * q IFF PLCNR=1 q P IFT CPU852=1 q CF A15,SAVE8 PUSH A1-A8 q
0x2a5690…2a5824 Dummy {f00=0x00d4, f01=0x0190, f02=» & P LDKL A5,PL1CWT CWT ADDRESS, PLC 1 r $ P RF IHPL COMMON PART, ALL PLC:S r . XIF r V * r b PIHPL03 EQU * r l IFF PLCNR=1 r IFF PLCNR=2 r IFT CPU852=1 r CF A15,SAVE8 PUSH A1-A8 r XIF r * r IFF PLCNR=1 r
0x2a5824…2a59b8 Dummy {f00=0x00d4, f01=0x0190, f02=»DKL A5,PL2CWT CWT ADDRESS, PLC 2 r $ P RF IHPL COMMON PART, ALL PLC:S s ( XIF s P * s PIHPL04 EQU * s f IFF PLCNR=1 s z IFF PLCNR=2 s IFF PLCNR=3 s IFT CPU852=1 s CF A15,SAVE8 PUSH A1-A8 s XIF s * s IFF P
0x2a59b8…2a5b4c Dummy {f00=0x00d4, f01=0x0190, f02=»NR=1 s IFF PLCNR=2 t IFF PLCNR=3 t & P LDKL A5,PL3CWT CWT ADDRESS, PLC 3 t 4 $ P RF IHPL COMMON PART, ALL PLC:S t ^ XIF t P* t P EJECT t * t PIHPL EQU * t & P ST P,INTSAV SAVE LATEST INTERRUPT t LDK A1,0 RESET HIGH BYT
0x2a5b4c…2a5ce0 Dummy {f00=0x00d4, f01=0x0190, f02=»MPLETION? t ~ P RF(E) PLIHC YES, HANDLE u P CWK A1,/80 ATTENTION? u 2 P RF(E) PLIHA YES, HANDLE u P * u p 2 - CF A15,PLCNOP ILLEGAL CODE, SET NOT OPERABLE u z ABL TDISP EXIT u * u EJECT u * u @ <******************************
0x2a5ce0…2a5e74 (1, 658) Opaque[0x194]
0x2a5e74…2a6008 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a98, f03=0x0000}
0x2a5e74…2a6008 IdxSect {
0x2a5e74…2a6008 f00 = 0x00d4 // 0x2a5e74 @0x0
0x2a5e74…2a6008 f01 = 0x0010 // 0x2a5e76 @0x2
0x2a5e74…2a6008 gno = [ // 0x2a5e78 @0x4
0x2a5e74…2a6008 [0x00]: C0x00d4.0x3.0
0x2a5e74…2a6008 [0x01]: C0x00d5.0x0.0
0x2a5e74…2a6008 [0x02]: C0x00d5.0x1.0
0x2a5e74…2a6008 [0x03]: C0x00d5.0x2.0
0x2a5e74…2a6008 [0x04]: C0x00d5.0x3.0
0x2a5e74…2a6008 [0x05]: C0x00d6.0x0.0
0x2a5e74…2a6008 [0x06]: C0x00d6.0x1.0
0x2a5e74…2a6008 [0x07]: C0x00d6.0x2.0
0x2a5e74…2a6008 ]
0x2a5e74…2a6008 }
0x2a6008…2a619c Dummy {f00=0x00d4, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 11.0 81-05-25 870105041100 P : P =12,COND. ASS. FOR ECHO B P REL 11.0 81-01-26 d P =11,BRANCH ADDR. OVERFLOW P PRR 11.0 80-11-19 " P =10,IMPROV. FOR REMOTE (RT) P PRR 11.0 80-09-18 " P =9,
0x2a619c…2a6330 Dummy {f00=0x00d4, f01=0x0190, f02=»ANCH ADDR. OVERFL. P PRR 11.0 80-04-29 $ P =6,IMPROV. OF ERROR HANDLING 6 P PRR 11.0 80-03-18 ^ P =5,TENDIO AT ECHO END z P PRR 11.0 80-03-13 * P =4,CORRECTION OF MMU BUFFER EQUATE P PRR 11.0 80-02-05 " P =3,AD
0x2a6330…2a64c4 Dummy {f00=0x00d4, f01=0x0190, f02=»PROV. OF TEST ORDER P REL 8.2 78-11-19 " P =1,ECHO OF LF AND CR, ABIS 8 P REL 8.2 78-09-15 ^ P* z P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P*
0x2a64c4…2a6658 Dummy {f00=0x00d4, f01=0x018e, f02=»************* l P* P* 6 P* THIS DRIVER HANDLES GENERAL TERMINAL PRINTER * < P* PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. d P* 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO 6 P* FUNCTIONS, WHICH MAKES IT
0x2a6658…2a67ec Dummy {f00=0x00d4, f01=0x018e, f02=» ^ P* DRIVER DRKB04. P* $ P* . 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: 8 P* l & P* A C G P ACTIVATION PART v P* $ P* A B G P ABORT ROUTINE P* ( P* R C G P RECOVERY ROUTINE P
0x2a67ec…2a6980 Dummy {f00=0x00d4, f01=0x018e, f02=» P* ORDER 00: TEST STATUS P* 05: BASIC WRITE * " P* 06: STANDARD WRITE L P* r P* NORMAL REGISTER USAGE | P* " P* REGISTER A1 = RETURN CODE ( P* A2 = OUTPUT CHARACTER $ P*
0x2a6980…2a6b14 (1, 659) Dummy {f00=0x00d5, f01=0x0190, f02=» p P* A7 = ORDER " P* A8 = ECB-ADDRESS ( P* N P* X P* SYSTEM ADAPTATION b P* : P* THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR ( P* (GPCLR) KEYS SHOULD BE DEFINED. P* 8 P* BY ME
0x2a6b14…2a6ca8 Dummy {f00=0x00d5, f01=0x0190, f02=» --ACCEPTANCE OF SPECIAL CHARACTER /13,/14 OR BOTH P* : D P* --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER D 6 P* --SUPPRESS ECHOING OF END OF RECORD CHARACTER * P** --SUPPRESION OF TRAILING BLANKS @ P* --END OF REQUES
0x2a6ca8…2a6e3c Dummy {f00=0x00d5, f01=0x0190, f02=» SPECIAL TABLE. STANDARD IS SHB CHARACTER SET | P EJECT 6 P* D P* N P* X P* b P*********** l P* ENTRIES * P*********** P* P* P* ( P ENTRY GPAD ADDRESS TO ADDRESSBLOCK 0 P ENTRY ECHOGP DEVICE-D
0x2a6e3c…2a6fd0 Dummy {f00=0x00d5, f01=0x0190, f02=»SS MODULE ENTRIES * . P***************************************** " P* T P* ^ & P EXTRN LENDER I/O REQUEST ERROR =3 h . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER P EXTRN LDISP DISPATCHER =3 P EXTRN TENDIO END I/O 0 P EXT
0x2a6fd0…2a7164 Dummy {f00=0x00d5, f01=0x0190, f02=» " P EXTRN ENDBLK END OF BLOCK =3 P EJECT * P* 8 P* B P************************ L P* DWT PARAMETERS * l P************************ P* P* P EXTRN DWTST STATUS P EXTRN DWTOR ORDER P EXTRN DWTA3 SAVE
0x2a7164…2a72f8 Dummy {f00=0x00d5, f01=0x0190, f02=»* CONSTANTS * P************* P* , P* 6 : PSOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY @ PSTX EQU /82 START OF MESSAGE ~ PETB EQU /97 END OF MESSAGE PETX EQU /03 LAST DUMMY PCR EQU /0D CARRIAGE RETURN PLF E
0x2a72f8…2a748c Dummy {f00=0x00d5, f01=0x0190, f02=» & PBLKMAX EQU 140 MAX BLOCK LENGTH =3 P EJECT 2 P* @ P* J * P************************************** T * P* CONDITIONAL ASSEMBLY * * P************************************** P* 2 P* IT IS POSSIBLE TO EXCLUDE R
0x2a748c…2a7620 Dummy {f00=0x00d5, f01=0x018e, f02=»E OF SPECIAL CHARACTER /13 CAN BE 0 P* INCLUDED IN THE DRIVER BY SETTING X:B=1 * P* ^ PX:B EQU 0 h PTRETON EQU X:B z P* 4 P* ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE 0 P* INCLUDED IN THE DRIVER BY SETTING X:C=1 P*
0x2a7620…2a77b4 (1, 660) Dummy {f00=0x00d5, f01=0x0190, f02=» ~ PECHO EQU X:D U =12 P* " . P* IT IS POSSIBLE TO EXCLUDE ECHOING OF , , P* AN EXTRA SPACE AFTER EACH CHARACTER ^ P* BY SETTING X:E=0 P* PX:E EQU 0 PCOSPAC EQU X:E P EJECT P* P* 8 P* BY ME
0x2a77b4…2a7948 Dummy {f00=0x00d5, f01=0x0190, f02=»ETTING THE CONSTANT X:F=0. v P* " PX:F EQU 0 , PEORECH EQU X:F > P* T 4 P* SUPPRESSING OF SPACES IN RIGHT HAND OF LINE ^ P* BY SETTING X:G=1 P* PX:G EQU 0 PSUPSPA EQU X:G P* ( P* END OF REQUEST IN SITU
0x2a7948…2a7adc Dummy {f00=0x00d5, f01=0x0190, f02=»= 1 z PX:H EQU 0 PRECEND EQU X:H P* 4 P* > 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION H . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P* MMU BUFFER SIZE P* PX:I EQ
0x2a7adc…2a7c70 Dummy {f00=0x00d5, f01=0x018e, f02=» P* P* $ P******************************** $ P* DWT-DISPLACEMENT * D $ P******************************** l P* P* P =3 ( PDWTAP EQU /2 HEAD POSITON POINTER =3 $ PDWTPOC EQU /4 POSITON COUNTER =3
0x2a7c70…2a7e04 Dummy {f00=0x00d5, f01=0x0190, f02=» f * P************************************** P* 6 PGPBSP EQU /2D BACK SPACE @ PGPCLR EQU /3F CLEAR ` P* | P******************** P* RETURN CODES * P******************** P* 0 PPAROUT EQU /20 PAPER OUT OR READY SW
0x2a7e04…2a7f98 Dummy {f00=0x00d5, f01=0x0190, f02=»* P EJECT P* P* " P********** , P* TABLES * > P********** P P* b P* l P IFT CROOM=1 v P* PROMTAB EQU * * P TABLE FOR ROOMLESS POINT CHARACTERS ( P DATA /2122,/2426,/3B3C,/3E40,/5E5F P*
0x2a7f98…2a812c Dummy {f00=0x00d5, f01=0x018e, f02=» x P DATA ACGP ACTIVATION DRIVER ( P DATA ABGP ABORT ROUTINE ADDRESS =8 , P DATA 0 INTERRUPT HANDLER X P DATA RCGP RECOVERY ROUTINE z . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P EJECT P* P* A C G P P* 2 P*
0x2a812c…2a82c0 Dummy {f00=0x00d5, f01=0x0190, f02=» < P* IS SET IF PAPER OUT OR READY SWITCH OFF. H P* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM D P* CHANNEL UNIT. P* > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER " P*
0x2a82c0…2a8454 (1, 661) Dummy {f00=0x00d5, f01=0x0190, f02=»FFER AFTER INDIVIDUAL CODE CHECK. z P* * PACGP EQU * 4 P =3 F P LDR A3,A7 =1 T P RF(Z) ACGP10 ORDER 0 =2 j " P LDK A2,BLKMAX BLOCK LENGTH =3 $ P CF A5,STABLK START OF BLOCK =3 P RF(NZ) ERGP1 ERROR =3 P SUK A3,5 =1
0x2a8454…2a85e8 Dummy {f00=0x00d5, f01=0x0190, f02=»3 t $ P ABL LENDER I/O REQUEST ERROR =3 PACGP00 EQU * =3 2 * P LD A3,4,A8 ORDER 6 GET REQ LENGTH =1 J P RF(Z) ACGP01 =1 x & P LD A3,2,A8 GET BUFFER ADDRESS =1 ( P LC A3,1,A3 GET CONTROL CHARACTER =1 P ANK A3,/FF =1 PACGP01 S
0x2a85e8…2a877c Dummy {f00=0x00d5, f01=0x0190, f02=» PACGP02 EQU * =3 P LDK A2,CR =1 P CF A5,OUTPUT =1 6 P RF(NZ) ERGP1 ERROR =3 P P IFT ABIS=1 =1 n P LDK A2,FFED =1 P CWK A3,/31-/2B =1 $ P RF(E) ACGP03 CONTROL CHAR 31 =1 P XIF =1 P LDK A2,LF =1
0x2a877c…2a8910 Dummy {f00=0x00d5, f01=0x0190, f02=» A2,LF =1 , PACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 " P ST A1,DWTAP+DWTDEV,A6 =3(=1) B * PACGP06 LDK A3,2 START BUFFER INDEX =1 h PACGP09 CF A5,OUTPUT =1 PERGP1 RF(NZ) ERGP2 ERROR =3 P LDK A2,ETX DUMMY =10 2 P CF A5,OUTPUT WA
0x2a8910…2a8aa4 Dummy {f00=0x00d5, f01=0x0190, f02=»R 00: TEST =2 N P* IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =2 P* =2 h PACGP10 EQU * x " P LDK A2,2 BLOCK LENGTH =10(=3) $ P CF A5,STABLK START OF BLOCK =3 P RF(NZ) ERGP2 ERROR =3 P LDK A2,2 SEND C
0x2a8aa4…2a8c38 Dummy {f00=0x00d5, f01=0x0190, f02=»2 P RF(NZ) ERGP2 ERROR =3 P RF AGP400 =10(=2) ( P EJECT D P* R & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) P* PACGP17 CF A5,OUTPUT P RF(NZ) ERGP2 ERROR =3 < PACGP18 IM DWTPOC+DWTDEV,A6 P
0x2a8c38…2a8dcc Dummy {f00=0x00d5, f01=0x0190, f02=» SUPSPA=1 4 P CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER P XIF J P LDK A4,0 V 6 PACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER h P LDR A1,A1 LAST CHARACTER? P RF(NP) AGP400 YES P LDR A1,A2 P CWK A7,5 ORDER 5? =3
0x2a8dcc…2a8f60 Dummy {f00=0x00d5, f01=0x0190, f02=»POSITION POINTER =3 n P RB ACGP17 * PACGP22 SUK A1,8 TABULATION CHARACTER ? . P RF(E) ACGP40 P IFT ABIS=1 =1 r P CWK A2,/07 BELL ? =1 P RB(E) ACGP09 =1 P XIF =1 P* P IFT TRETON=0 P IFT FJOTON=0
0x2a8f60…2a90f4 (1, 662) Dummy {f00=0x00d5, f01=0x018e, f02=» A1,3 /14? P RB(E) ACGP17 P SUK A1,/C LESS THAN /20 ? ( P* J P XIF T P* ` P* j P IFT TRETON=1 t P IFT FJOTON=0 P* P SUK A1,2 /13 ? P RB(E) ACGP17 P SUK A1,/D LESS THAN /20 ? P XIF P*
0x2a90f4…2a9288 Dummy {f00=0x00d5, f01=0x018e, f02=» P RB(E) ACGP17 P SUK A1,/C LESS THAN /20 ? P* < P XIF F P* R & P RF(N) ACGP30 YES,CODE CHECK ERROR & P SUK A1,/8E ROOMLESS POINT? (AE) P RF(E) AGP100 P ADK A1,/4F GREATER THAN /5F P RB(NP) ACGP17 NO P SUK
0x2a9288…2a941c Dummy {f00=0x00d5, f01=0x018e, f02=» P RB ACGP17 PACGP24 EQU * P SUK A1,/D * P RF(NZ) ACGP26 NOT CR < 2 P CM DWTPOC+DWTDEV,A6 RESET POSITION COUNTER =3 Z 2 P CM DWTAP+DWTDEV,A6 RESET HEAD POS.POINTER =3 PACGP26 ADK A1,3 P RB(NZ) ACGP17 NOT LINE FEED P SUK A
0x2a941c…2a95b0 Dummy {f00=0x00d5, f01=0x0190, f02=» x P* ! PACGP30 EQU * ! P LDK A1,CCERR ! & P ORS A1,8,A8 RETURN CODE ! < P RB ACGP20 ! P EJECT ! n P* ! | P* TABULATION ! P* ! PACGP40 EQU * ! , P CF A15,GETCHR GET FIRST ASCII CHARACTER ! P LDR A4,A2 ! . P CF A15,GE
0x2a95b0…2a9744 Dummy {f00=0x00d5, f01=0x0190, f02=»ECIMAL ! j P SUK A4,1 " P RB(NE) ACGP43 " B PACGP44 SU A2,DWTAP+DWTDEV,A6 SUBTRACT HEAD POSITION POINTER =3 " 6 P LC A4,DWTBC+DWTDEV,A6 =3 " | , P SUR A2,A4 AND REQUESTS POSITION COUNTER " & P TO GET NUMBER OF SPACES TO SEND " P RB(NP) ACGP20 "
0x2a9744…2a98d8 Dummy {f00=0x00d5, f01=0x0190, f02=»R =3 " z 2 P IM DWTPOC+DWTDEV,A6 INCREMENT BUFFER INDEX =3 # P SUK A4,1 # B P RB(P) ACGP45 # T P LDR A3,A3 RECOVERY? # j P RB(NE) ACGP20 NO # 4 P SC A4,DWTBC+DWTDEV,A6 RESET POSITION POINTER =3 # P LDK A3,2 START BUFFER INDEX # P RB ACGP19 #
0x2a98d8…2a9a6c Dummy {f00=0x00d5, f01=0x0190, f02=»GETCHR GET CHARACTER TO SEND # P ANK A2,/F $ $ P LC A2,ROMTAB,A2 TRANSFORM $ 6 P* $ X P XIF $ b P* $ n P* $ x P IFF CROOM=1 $ P* $ P ANK A2,/7F $ P* $ P XIF $ P* $ P RB ACGP17 $ P EJECT $ P* $ P* $ ( P
0x2a9a6c…2a9c00 Dummy {f00=0x00d5, f01=0x0190, f02=»K END OF BLOCK =10 $ P RF(NZ) ERGP ERROR =10 % P LDK A2,1 BLOCK LENGTH =10 % 8 $ P CF A5,STABLK START OF BLOCK =10 % Z P RF(NZ) ERGP ERROR =10 % PAGP410 LDK A2,ETX LAST DUMMY % P CF A5,OUTPUT SEND % P RF(NZ) ERGP ERROR =6 % " P CF A5,ENDBL
0x2a9c00…2a9d94 (1, 663) Dummy {f00=0x00d6, f01=0x0190, f02=» RF(NZ) AGP420 YES =1 % " P LDK A1,/20 SET RETURN CODE =1 & P XIF =1 & D PAGP420 EQU * & V 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER & j P LDKL A4,/FBFF =3 & 2 P ANS A4,DWTDEV,A6 RESET 'LINE FEED CONTROL' =3 & PENDIO EQU * & P =6
0x2a9d94…2a9f28 Dummy {f00=0x00d6, f01=0x0190, f02=»,A8 EFF. LENGTH & P RB AGP415 =1 ' P EJECT ' . P* ' < P* ' F , P* UPDAPP = SUBROUTINE TO UPDATE HEAD ' P , P* POSITION POINTER WHEN END ' ( P* OF REQUEST IS REACHED ' PUPDAPP EQU * ' 2 P LC A3,DWTBC+DWTDEV,A6 G
0x2a9f28…2aa0bc Dummy {f00=0x00d6, f01=0x0190, f02=»ESET POSITION COUNTER =3 ' x P RTN A15 ( P IFT SUPSPA=1 ( 0 P EJECT ( F P* ( T P* ( ^ * P* SKIPSP = SUBROTINE TO SKIP SPACES ( h ( P* IN END OF ECB-BUFFER. ( 6 P* REQUESTED LENGTH IN ECB IS UPDATED. ( & P*
0x2aa0bc…2aa250 Dummy {f00=0x00d6, f01=0x0190, f02=»(RL) ( p $ P ADR A1,A2 GET ADD END OF BUFFER ) PSKIP05 CWK A2,2 ) 4 P RF(NG) SKIP30 RL < 3 ) L P SUK A1,1 DECR. BA ) j P LCR A4,A1 GET CHAR ) P CCK A4,/2020 SPACE ? ) P RF(NE) SKIP20 NO ) PSKIP07 SUK A2,1 DECR RL ) P RB SKIP05 GET N
0x2aa250…2aa3e4 Dummy {f00=0x00d6, f01=0x0190, f02=» RF(NE) SKIP30 NO ) P SUK A1,2 DECR BA * P SUK A2,2 DECR RL * 4 P RB SKIP07 GET NEXT * N P* * j " PSKIP30 ST A2,4,A8 STORE NEW RL * t P RTN A15 * P XIF * P EJECT * P* * P* E R G P * P* * P* ERROR ROUTINE * P*
0x2aa3e4…2aa578 Dummy {f00=0x00d6, f01=0x0190, f02=» RF(NZ) RCGP YES, EXECUTE RECOVERY =9 * P LDR A7,A7 ORDER 0 ? =3 + . P =6(=3) + N P RF(NZ) ERGP10 NO =6 + ` 2 P LDK A1,OPERR SET RETURN CODE NOT OPERABLE =6 + | P RB ENDIO END I/O =6 + P* + PERGP10 EQU * =6 + ( P ANK A2,/08 SOFTWARE TIM
0x2aa578…2aa70c Dummy {f00=0x00d6, f01=0x018e, f02=» =3 + P XIF =3 , P IFT RECEND=1 =3 , 2 P LDK A1,OPERR SET RETURN CODE NOT OPERABLE =6 , 8 P RB AGP430 =3 , n P XIF =3 , P EJECT , P* , P* E C H O G P , P* , 0 P* ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE , P* ,
0x2aa70c…2aa8a0 Dummy {f00=0x00d6, f01=0x0190, f02=» , P IFT EORECH=0 - P* - P SUK A2,/80 EOR-CHARACTER - ( P RF(NN) ECGP20 YES - J P ADK A2,/80 - d P* - x P XIF - P IFT ECHO=1 U =12 - P* - P LDR A1,A2 - P ANK A1,/7F - P SUK A1,/8 - P RF(E) ECGP40 BACKSPACE -
0x2aa8a0…2aaa34 (1, 664) Dummy {f00=0x00d6, f01=0x0190, f02=» - P RF(E) ECGP50 CLEAR . 8 P SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F . $ P RF(N) ECGP20 . ` P SUK A1,/5F-/20 . v P RF(P) ECGP20 . PECGP05 EQU * =3 . P LDR A3,A2 SAVE CHARACTER =3 . $ P LDK A2,COSPAC+1 BLOCK LENGTH =3 . $ P
0x2aaa34…2aabc8 Dummy {f00=0x00d6, f01=0x0190, f02=»RACTER . t P RF(NZ) ECGP20 ERROR =6 / 4 P IM DWTPOC+DWTDEV,A6 UPDATE POSITION COUNTER =3 / . P SUK A4,1 READY ? / f P RF(N) ECGP80 YES =3 / * P RF(P) ECGP60 NO, GO TO CLEAR SECTION / P* / P IFT COSPAC=1 / P* / P LDK A2,SPACE NO SEN
0x2aabc8…2aad5c Dummy {f00=0x00d6, f01=0x0190, f02=»INTER / d P XIF U =12 0 & P CF A15,TENDIO SET GP DWT FREE =5 0 " ( PECGP20 ABL ECHRTN RETURN TO KEYBOARD 0 L P IFT ECHO=1 U =12 0 x P EJECT 0 P* 0 P* BACKSPACE 0 P* 0 PECGP40 EQU * 0 & P LDK A2,GPBSP BACKSPACE CHARACTER 0 P
0x2aad5c…2aaef0 Dummy {f00=0x00d6, f01=0x0190, f02=»/FF CLEAN =3 0 & P ADK A3,1 ADD FOR CLEAR CHAR. =10 1 0 P LDR A2,A3 NUMBER OF BACKSPACE CHARACTERS =3 1 > $ P ADK A2,2 ADD TO BLOCK LENGTH =3 1 r $ P CF A5,STABLK START OF BLOCK =3 1 P RB(NZ) ECGP20 ERROR =6 1 " P LDK A2,GPCLR CLEAR CHARACTER 1 P
0x2aaef0…2ab084 Dummy {f00=0x00d6, f01=0x0190, f02=» ERROR =6 1 P LDK A2,/08 BACKSPACE 2 P SUK A3,1 2 0 P RB(NN) ECGP70 2 B P LDK A3,0 2 X 4 P SC A3,DWTBC+DWTDEV,A6 RESET POSITION COUNTER =3 2 j PECGP80 EQU * =3 2 " P CF A5,ENDBLK END OF BLOCK =3 2 P RB ECGP20 2 P XIF U =12 2 P E
0x2ab084…2ab218 Dummy {f00=0x00d6, f01=0x0190, f02=»Y IS CARRIED OUT ONLY IF 2 P* ORDER 6 IS RUNNING 3 P* 3 @ P* ON ENTRY: 3 J P* 3 ` P* A6 = DWT-ADDRESS 3 j P* A7 = ORDER 3 P* A8 = ECB-ADDRESS 3 PRCGP EQU * 3 P =3 3 P =6 3 P LDR A8,A8 BUSY ? =6 3 P
0x2ab218…2ab3ac Dummy {f00=0x00d6, f01=0x0190, f02=» ( P LDK A2,SOH RESET PRINT BUFFER CODE 4 P CF A5,OUTPUT SEND IT 4 0 P RB(NZ) ERGP ERROR =3 4 N " P CF A5,ENDBLK END OF BLOCK =10 4 l P RB(NZ) ERGP ERROR =10 4 P CWK A7,5 4 P RF(E) RCGP10 4 P CWK A7,6 ORDER 6? 4 P RF(E) RCGP05 YES 4
0x2ab3ac…2ab540 Dummy {f00=0x00d6, f01=0x0190, f02=»RCGP05 EQU * 4 4 P LC A2,DWTDEV,A6 GET LEFT BYTE OF STATUS WORD =3 5 P ANK A2,/4 LINE FEED DONE ? 5 L P ABL(E) ACGP NO =3(=10) 5 p $ P LDK A2,BLKMAX BLOCK LENGTH =10 5 $ P CF A5,STABLK START OF BLOCK =10 5 P RB(NZ) ERGP ERROR =10 5 P LDK A2,SP
0x2ab540…2ab6d4 (1, 665) Dummy {f00=0x00d6, f01=0x0190, f02=» : P LD A4,DWTAP+DWTDEV,A6 GET NUMBER OF SPACES TO SEND =3 6 P ABL ACGP46 6 B P =6 6 V PRCGP10 EQU * =6 6 d P =10(=6) 6 | P =10(=6) 6 $ P LDK A1,TPERR SET RETURN CODE =6 6 P ABL AGP430 6 P* 6 P* 6 P* A B G P 6 P
0x2ab6d4…2ab868 Dummy {f00=0x00d6, f01=0x4038, f02=»ND I/O AND DISPATCH =8 6 P* 7 P END 7 (@ 7 4=3 6 P ABL ACGP46 6 B P =6 6 V PRCGP10 EQU * =6 6 d P =10(=6) 6 | P =10(=6) 6 $ P LDK A1,TPERR SET RETURN CODE =6 6 P ABL AGP430 6 P* 6 P* 6 P* A B G P 6 P
0x2ab868…2ab9fc Dummy {f00=0x00d6, f01=0x2008, f02=» 8 YTE OF STATUS WORD % ~ P ANK A2,/4 LINE FEED DONE ? & " P ABL(E) ACGP NO & F P LDK A2,STX & ^ P CF A5,OUTPUT SEND STX & r P LDK A2,CR CARRIAGE RETURN & P LDK A3,0 & 0 P LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND & P RB ACGP46 & (
0x2ab9fc…2abb90 Dummy {f00=0x00d6, f01=0x0000, f02=»
[…0x4…]
0x2ac1e0…2ac374 (1, 666) Opaque[0x194]
0x2ac374…2ac508 # DirEnt {nam=»DRTC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ad8, f03=0x0000}
0x2ac374…2ac508 IdxSect {
0x2ac374…2ac508 f00 = 0x00d6 // 0x2ac374 @0x0
0x2ac374…2ac508 f01 = 0x0012 // 0x2ac376 @0x2
0x2ac374…2ac508 gno = [ // 0x2ac378 @0x4
0x2ac374…2ac508 [0x00]: C0x00d6.0x3.0
0x2ac374…2ac508 [0x01]: C0x00d7.0x0.0
0x2ac374…2ac508 [0x02]: C0x00d7.0x1.0
0x2ac374…2ac508 [0x03]: C0x00d7.0x2.0
0x2ac374…2ac508 [0x04]: C0x00d7.0x3.0
0x2ac374…2ac508 [0x05]: C0x00d8.0x0.0
0x2ac374…2ac508 [0x06]: C0x00d8.0x1.0
0x2ac374…2ac508 [0x07]: C0x00d8.0x2.0
0x2ac374…2ac508 [0x08]: C0x00d8.0x3.0
0x2ac374…2ac508 ]
0x2ac374…2ac508 }
0x2ac508…2ac69c Dummy {f00=0x00d6, f01=0x0190, f02=» 2 P IDENT DRTC01 REL 11.0 81-01-26 870105041100 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DRTC01 = DRIVER TAPE CASSETTE RECORDER P*
0x2ac69c…2ac830 Dummy {f00=0x00d6, f01=0x0190, f02=» > P* THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS & P* CONNECTED TO CPU VIA CHCR-DCR F P* p > P* ONLY ONE RECORDER CAN BE BE OPERATED AT A TIME, EXCEPT z P* AT REWIND AND UNLOAD P* : P* DATA IS RECORDED IN BLOCKS WIT
0x2ac830…2ac9c4 Dummy {f00=0x00d6, f01=0x0190, f02=»HE FOLLOWING PARTS: t P* " P* T C D A : ACTIVATION PART & P* L $ P* I H T C : INTERRUPT HANDLER V P* ~ & P* R C O V E R : RECOVERY ROUTINE P* * P* D W T C 0 1 : DEVICE WORK TABLE 01 P* * P* D W T C 0 2 : DE
0x2ac9c4…2acb58 Dummy {f00=0x00d6, f01=0x018e, f02=»ATED: p P* P* ORDER /00: TEST STATUS P* /02: READ : P* /05: WRITE V P* /06: WRITE v " P* /22: WRITE TAPE MARK P* /26: LOCK P* /31: REWIND P* /33:
0x2acb58…2accec Dummy {f00=0x00d6, f01=0x0190, f02=» ~ P* P* , P* THE FOLLOWING RETURN CODES ARE USED: P* L P* BIT 0 REQUEST ERROR V P* 2 BOT/EOT t P* 3 TAPE MARK DETECTED P* 6 WRITE PROTECTED P* 7 B-SIDE , P* 9 REWIND TIME-OUT (+BOT M
0x2accec…2ace80 Dummy {f00=0x00d6, f01=0x018e, f02=»OVERY 6 P* -POWER RECOVERY WHEN SEQ. COUNTER NOT USED , P* -POWER RECOVERY NOT SUCCESSFULL H P* 12 INCORRECT LENGTH x * P* 13 CRC ERRROR (+NO DATA/ERASED) P* 14 THROUGHPUT ERROR P* 15 NOT OPERABEL P
0x2ace80…2ad014 (1, 667) Dummy {f00=0x00d7, f01=0x0190, f02=» P* A2: SST STATUS * P* A3: DWT STATUS AFTER SST ( " P* A4: RETRY COUNTER V : P* A5: SEQUENCE CHARACTER AFTER READ/WRITE | P* A6: DWT ADDRESS & P* A8: SUBROUTINE STACK P
0x2ad014…2ad1a8 Dummy {f00=0x00d7, f01=0x0190, f02=» HANDLE: P* " P* -ONLY ONE CASSETTE RECORDER 0 P* -ORDERS REVERSE, ERASE AND LOCK EXCLUDED @ P* t P EJECT DRTC01 ~ P* P* P*********** P* ENTRIES * P*********** P* P* " P ENTRY IHTC IN
0x2ad1a8…2ad33c Dummy {f00=0x00d7, f01=0x0190, f02=»N POWER UP RECOVERY P P $ P , P* 4 P* > $ P******************************** H $ P* EXTERNAL TOSS MODULE ENTRIES * p $ P******************************** P* P* & P EXTRN TDISP DISPATCHER MAIN ENTRY 4 P EXTRN SAV
0x2ad33c…2ad4d0 Dummy {f00=0x00d7, f01=0x0190, f02=» EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE . P EXTRN DISEND GO TO DISPATCHER VIA TENDIO 0 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY b * P EXTRN INTSAV SAVE AREA LAST INTERRUPT * P EXTRN INIFLG INIT FLAG AT PGM LOADING ( P EXTRN ECBRL REQUE
0x2ad4d0…2ad664 Dummy {f00=0x00d7, f01=0x0190, f02=»CESSING FLAG v P EJECT DRTC01 P* , P* 6 P****************** @ P* DWT PARAMETERS * Z P****************** t P* P* & P EXTRN DWTST DWT SOFTWARE STATUS: . P* BIT # 0 - DEVICE AND CONTROLLER READY 0 P* BIT #1
0x2ad664…2ad7f8 Dummy {f00=0x00d7, f01=0x0190, f02=»#14 - A-SIDE * P BIT #15 - DEVICE LOCKED (OPERABLE) P EXTRN DWTOR DWT ORDER B " P EXTRN DWTECB DWT ECB ADDRESS ` P* P* P************************ P* * P* STATUS MASKS * P*
0x2ad7f8…2ad98c Dummy {f00=0x00d7, f01=0x0190, f02=»NOTPMK EQU /FFEF NO TAPE MARK MASK P EJECT DRTC01 * P* B P************************ L P* CONDITIONAL ASSEMBLY * l P************************ P* > P* THE DRIVER CAN BE REDUCED TO HANDLE ONLY ONE CASSETTE " P* RECORDER BY
0x2ad98c…2adb20 Dummy {f00=0x00d7, f01=0x0190, f02=» P* BY SETTING X:B=0 P* PX:B EQU 0 * PREVER EQU X:B < P* R . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING
0x2adb20…2adcb4 (1, 668) Dummy {f00=0x00d7, f01=0x0190, f02=» SIZE P* PX:C EQU 129 PDVBLEN EQU X:C , P* B P* MMU DEVICE INDEX L P* h PDEVIND EQU 2 r P* P EJECT DRTC01 P* P* CONSTANTS AND WORK AREAS P* 4 P DATA DVBLEN+DVBLEN DEVICE DEPENDENT BUFFE
0x2adcb4…2ade48 Dummy {f00=0x00d7, f01=0x0190, f02=»ROUTINE STACK PSTB EQU *-2 P* * P* 4 $ PTAB DATA /0031,/2237,/3802,/0506 > P IFT REVER=1 f P DATA /2633,/24FF z P XIF PTABL EQU *-TAB P EJECT DRTC01 P* P* P*************************** P*
0x2ade48…2adfdc Dummy {f00=0x00d7, f01=0x018e, f02=» /0E P* P* P************* P* CONSTANTS * 6 P************* L P* b P* l " PRTRIES EQU 3 MAX NO OF RETRIES v P* * PPSUBS EQU 5 POWER UP BACKSPACE NUMBER P* $ PPREAD EQU 4 POWER UP READ NUMBER P*
0x2adfdc…2ae170 Dummy {f00=0x00d7, f01=0x0190, f02=» h P XIF P EJECT DRTC01 P* , P* 6 P* T C D A @ P* T H P* ACTIVATION PART : CHECK VALIDITY OF ORDERS AND START PROCESSING ^ P* P* PTCDA EQU * P LDK A1,0 P LDK A4,TABL-1 P* 0 PTCDA10
0x2ae170…2ae304 Dummy {f00=0x00d7, f01=0x0190, f02=» PTCDA15 EQU * P ABL DISIOE ILLEGAL ORDER P* : ( PTCDA20 ADR A4,A4 DOUBLE TO GET INDEX D P ST A4,TCDAX SAVE INDEX p ( P LD A5,ECBRL,A8 GET REQUESTED LENGTH ( P LD A3,SEKBYT,A6 SEQUENCE COUNTER ? P RF(NE) TCDA21 NO 0 P ADK A
0x2ae304…2ae498 Dummy {f00=0x00d7, f01=0x0190, f02=» P RF(NZ) TCDR10 YES P* " P ADK A5,1 , . P NGR A5,A5 MAKE REQUESTED LENGTH NEGATIVE > 0 P ST A5,HELPME SAVE IT FOR RECOVERY PURPOSES p P SUK A7,/37 LOAD ? P RF(NE) TCDA22 NO $ P LD A3,ECBCW,A8 GET CONTROL WORD P ANK A3,
0x2ae498…2ae62c Dummy {f00=0x00d7, f01=0x0190, f02=» IT FOR RECOVERY PURPOSES ~ P SUK A4,14 " P RF(Z) TCDA23 WRITE 4 P ADK A4,2 P P RF(NZ) TCDA25 NOT WRITE b P* * PTCDA23 ADK A5,3 CHECK REQUESTED LENGTH ( P RB(P) TCDA15 LESS THAN 2 CHARACTERS P ADK A5,254 * P RB(N) TCDA15
0x2ae62c…2ae7c0 Dummy {f00=0x00d7, f01=0x0190, f02=» GET SEQUENCE CHARACTER $ P ST A2,SEQCHR SAVE IT =REL 11.0 P* H ( PTCDA25 ST A6,TCDADT SAVE ACTIVE DWT R P EJECT DRTC01 ~ P* P* P* SELECT RECORDER P* P* & PTCDA30 LDKL A8,STB LOAD STACK BASE P CF A8
0x2ae7c0…2ae954 (1, 669) Dummy {f00=0x00d7, f01=0x0190, f02=»IES l " P LDKL A2,0 GET FUNCTION INDEX " PTCDAX EQU *-2 **ORDER INDEX** 2 & P ABI TCDFUN,A2 BRANCH TO FUNCTION X < PTCDFUN DATA ENDIO,REWIND,TM,LOAD,UNLOAD,READ,WRITE,WRITE P IFT REVER=1 P DATA OLOCK,REVERS,ERTAPE P XIF P*
0x2ae954…2aeae8 Dummy {f00=0x00d7, f01=0x0190, f02=»1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF 4 P* @ P IFT CPU852=0 J " P MSR 8,A15 SAVE A1-A8 ON STACK ` P XIF P* & P LD A1,INIFLG CHECK IF PGM LOADING $ P ABL(NZ) TDISP YES SKIP RECOVERY P LDKL A8,STB LOAD STACK BA
0x2aeae8…2aec7c Dummy {f00=0x00d7, f01=0x018e, f02=»COVER RECOVERY P XIF P LDKL A4,0 GET ACTIVE DWT " , PTCDADT EQU *-2 **ACTIVATED DWT ADDRESS** D $ P RF(Z) ENDIO NO REQUEST GOING ON t $ P LDR A6,A4 PUT DWT ADDRESS IN A6 " P LD A3,SEKBYT,A6 SEQ. COUNTING ( P RB(Z) TCDA30 YES; REACTIVATE
0x2aec7c…2aee10 Dummy {f00=0x00d7, f01=0x018e, f02=» f P RF ENDIO P* P EJECT DRTC01 $ P* < P* R E A D F P* Z PREAD CF A8,READR READ RECORD d P ANKL A1,/400 SAVE EOT BIT P ORR A1,A2 P ANK A2,/0E P RF(Z) READ20 STATUS OK P* & PREAD15 SUK A4,
0x2aee10…2aefa4 Dummy {f00=0x00d7, f01=0x0190, f02=» PREAD20 LDR A2,A1 P SLL A2,3 CHECK IF TAPE MARK P RF(NN) READ30 NOT TAPE MARK D P* h ( PREAD25 ORK A3,/10 INDICATE TAPE MARK r $ P LDK A7,0 RESET EFFECTIVE LENGTH P RF READ35 P* PREAD30 LDR A2,A1 $ P LDKL A7,0 G
0x2aefa4…2af138 Dummy {f00=0x00d7, f01=0x0190, f02=»7,A7 " P RF(NZ) READ32 NOT EQUAL ZERO P LDR A4,A4 THIRD TRIAL DONE 2 , P RB(NZ) READ15 NO; READ SAME BLOCK AGAIN V & P LDK A4,1 SET NO OF RETRIES TO ONE P RB READ TRY NEXT BLOCK P* PREAD32 EQU * " P ANKL A3,NOTPMK NOT TAPE M
0x2af138…2af2cc Dummy {f00=0x00d7, f01=0x0190, f02=»BKC+1,A6 CHECK SEQUENCE COUNTER P RF(E) READ35 OK ( P ORK A1,/10 SEQUENCE ERROR @ P* b 2 PREAD35 IM DWTBKC,A6 INCREMENT SEQUENCE COUNTER l P* * PREAD40 LD A8,DWTECB,A6 GET ECB ADDRESS * P ST A7,ECBEL,A8 SAVE EFFECTIVE LENGTH P
0x2af2cc…2af460 Dummy {f00=0x00d7, f01=0x0190, f02=» EQU * P ST A3,DWTST,A6 SAVE STATUS P EJECT DRTC01 2 P* J P* T P* END OF I/O OPERATION ^ P* | P* PENDIO EQU * ( P CM TCDADT INDICATE NONE ACTIVE DWT P* P* MODIFY RETURN CODE P* & P ANKL A1
0x2af460…2af5f4 (1, 670) Dummy {f00=0x00d7, f01=0x018e, f02=»A2 RESET BIT 2 " P ORK A1,/40 SET BIT 9 INSTEAD P* < PENDIO2 EQU * F P SRL A2,2 Z P TM A1,A2 l P RF(Z) ENDIO3 ~ P XRR A1,A2 RESET BIT 4 P ORK A1,4 SET BIT 13 INSTEAD P* PENDIO3 EQU * P SRL A2,1 P T
0x2af5f4…2af788 Dummy {f00=0x00d7, f01=0x0190, f02=» ~ P* P* PENDIO4 EQU * P SRL A2,1 0 P TM A1,A2 B & P RF(Z) ENDIO5 NOT WRITE PROTECTED T P LD A7,DWTOR,A6 ORDER CODE ~ P ANK A7,/3F P SUK A7,/05 P RF(N) ENDIO5 NO WRITE ORDER P SUK A7,/24-/05 P RF(
0x2af788…2af91c Dummy {f00=0x00d7, f01=0x0190, f02=»LEVEL XY x P LDR* A6,A6 GET OTHER DWT * P CF A15,TENDIO PERFORM TENDIO FOR THIS 2 P LDR* A6,A6 GET FIRST DWT ` P XIF $ P CF A15,SWLXY SWITCH TO LEVEL XY , P ABL DISEND GO TO DISPATCHER VIA TENDIO P* P EJECT DRTC01 P
0x2af91c…2afab0 Dummy {f00=0x00d7, f01=0x0190, f02=» P* WRITE ONE BLOCK ! P* ! $ P* ! . , PWRITE LD A3,DWTBKC,A6 GET BLOCK COUNTER ! 8 " P RF(NZ) WRIT10 NOT FIRST BLOCK ! h & P CF A8,ERASE MAKE ONE BLANK BLOCK ! * P SUK A4,1 DEC. NO OF RETRIES 1ST BLOCK ! P* ! $ PWRIT10 CF A8,WRITER WRIT
0x2afab0…2afc44 Dummy {f00=0x00d7, f01=0x0190, f02=» ST A4,WRITA4 STORE RETRY COUNTER ! P LD A2,SEKBYT,A6 " * P RF(Z) WRIT15 SEQ. COUNTING " B P* " f P EJECT DRTC01 " p P* " P* " $ P CF A8,BKSP BACKSPACE ONE BLOCK " P LDK A4,0 ONE ERASE " P RF WRIT20 " P* " $ PWRIT15 CF A8
0x2afc44…2afdd8 Dummy {f00=0x00d7, f01=0x018e, f02=»OSITIONING NOT OK " P SUK A4,RTRIES ... OF ERASE # P* # > PWRIT20 CF A8,ERASE ERASE # H P ORR A1,A2 SAVE EOT # h P ADK A4,1 COUNT ERASE # P RB(NG) WRIT20 NOT READY # P LDKL A4,0 GET RETRY COUNTER # $ PWRITA4 EQU *-2 **RETRY COUNTER** #
0x2afdd8…2aff6c Dummy {f00=0x00d7, f01=0x0190, f02=» # P EJECT DRTC01 $ P* $ P* $ * PWRIT30 LD A2,TCDAX GET ORDER $ 4 P SUK A2,4 TAPE MARK WRITTEN? $ X P RB(NZ) READ30 NO $ | P LDR A2,A1 CHECK IF $ P SLL A2,3 TAPE MARK OK $ P ABL(N) READ25 YES $ P RB WRIT12 NO $ P* $ :
0x2aff6c…2b0100 Dummy {f00=0x00d7, f01=0x0190, f02=» P* % P EJECT DRTC01 % P* % & P* % 0 P* L O A D % : P* % N P* LOAD CASSETTE % X P* % r P* % | " PLOAD CF A8,LOCK LOCK CASSETTE % " P RF(Z) REWIND CASSETTE LOCKED % PLOAD10 LDR A1,A2 NO CASSETTE % P RB READ50 % P
0x2b0100…2b0294 (1, 671) Dummy {f00=0x00d8, f01=0x0190, f02=»R % j ( P CF A8,SBOT SEARCH BEGINNING OF TAPE & PREW010 EQU * & 6 P LDR A1,A2 & J P SRL A1,7 & P ANK A1,6 & n P ORK A3,1 PREPARE STATUS & $ P ORR A3,A1 AND FORM STATUS WORD & P RB LOAD10 & P* & P EJECT DRTC01 & P* & P*
0x2b0294…2b0428 Dummy {f00=0x00d8, f01=0x018e, f02=» A3,DWTST,A6 RESET STATUS & P CF A8,UNLD UNLOAD CASSETTE ' " & PUNLO10 LDR A1,A2 SAVE RETURN CODE ' F P ANKL A1,/FFFE SKIP BIT 15 ' p P RB ENDIO ' P IFT REVER=1 ' P* ' P* ' P* R E V E R S ' P* ' P* BACKSPACE ONE BLOCK '
0x2b0428…2b05bc Dummy {f00=0x00d8, f01=0x018e, f02=» ' n P RB UNLO10 ( P* ( P EJECT DRTC01 ( $ P* ( < P* ( F P* E R T A P E ( P P* ( h P* ERASE TAPE ( r P* ( P* ( ( PERTAPE LDK A4,PERAS SET NO OF ERASE ( & PERT10 CF A8,ERASE ERASE ONE BLOCK ( P ANKL A1,/400 SAVE EOT
0x2b05bc…2b0750 Dummy {f00=0x00d8, f01=0x0190, f02=» P* O L O C K ) P* ) P* ORDER LOCK CASSETTE ) $ P* ) D P* ) N " POLOCK CF A8,LOCK LOCK CASSETTE ) X " P RB(Z) REW010 CASSETTE LOCKED ) ~ P RB LOAD10 ) P XIF ) P* ) P EJECT DRTC01 ) P* ) P* ) P* CASSETTE COMMA
0x2b0750…2b08e4 Dummy {f00=0x00d8, f01=0x0190, f02=»WT BUSY ) z P IFT DBCAS=1 * P LDK A3,0 SELECT CODE * $ P XIF * B P IFT DBCAS=2 * N P LDR* A3,A6 GET OTHER DWT * b " P ANS A2,DWTST,A3 SET DWT BUSY * P ANK A3,1 GET SELECT CODE * P XIF * P* * PCRCOM LD A2,PFPOST * P RF(NZ) EXIT
0x2b08e4…2b0a78 Dummy {f00=0x00d8, f01=0x0190, f02=»UENCE CHAR TO A5 * P* + PREADSQ EQU * + " P LDK A3,/A + 6 , P ST A3,REQLEN MAKE REQUESTED LENGTH > 0 + H P RB CRCOM + x P* + P EJECT DRTC01 + P* + P* READ ONE RECORD + P* + PREADR LDK A3,/A + , PREADR1 CM EFFLEN RESET
0x2b0a78…2b0c0c Dummy {f00=0x00d8, f01=0x0190, f02=»UESTED LENGTH + ~ PHELPME EQU *-2 **HELPME** , P ST A2,REQLEN , 8 P RB CRCOM , N P* , ` P* WRITE ONE RECORD , j P* , PWRITER LDK A3,/B , P RB READR1 , P* , P* ERASE ONE BLOCK , P* , PERASE LDK A3,9 , P RB CRCOM ,
0x2b0c0c…2b0da0 Dummy {f00=0x00d8, f01=0x0190, f02=»SEARCH BEGINNING OF TAPE , P* - PSBOT LDK A3,8 - * P RB CRCOM - @ P* - R & P* REWIND TAPE AND UNLOCK CASSETTE - P* - PUNLD LDK A3,/F - P RB CRCOM - P* - P* BACKSPACE ONE BLOCK - P* - PBKSP LDK A3,/E - P RB CRCO
0x2b0da0…2b0f34 (1, 672) Dummy {f00=0x00d8, f01=0x0190, f02=»PT - f P* . P* . PIHTC EQU * . $ P ST P,INTSAV SAVE LAST INTERRUPT . 0 P STR A5,A15 SAVE A5 ON STACK . X P SST A5,CHCRDA . | P RF(A) SST SST ACCEPTED . P IM REQLEN INCREMENT COUNTER . P RF(Z) CIOHLT . & P RF(P) INRSQ GET SEQUENCE CO
0x2b0f34…2b10c8 Dummy {f00=0x00d8, f01=0x018e, f02=»A INCREMENT BUFFER ADDRESS . 0 P LD A5,REQLEN GET REMAINING LENGTH =REL 11.0 / " P ADK A5,1 * =REL 11.0 / V 4 P RF(NZ) IHTC01 NOT SEQUENCE CHARACTER =REL 11.0 / t * P LD A5,TCDADT GET ACTIVE DWT =REL 11.0 / 2 P LD A5,SEKBYT,A5 SEQUENCE COUNTING? =REL 11.0
0x2b10c8…2b125c Dummy {f00=0x00d8, f01=0x0190, f02=» / v 4 P LD A5,TCDAX GET FUNCTION SWITCH FOR READ/WRITE 0 P SUK A5,10 0 @ P RF(NZ) IHTC05 WRITE 0 R P* 0 n & PIHTC02 INR A5,0,CHCRDA READ CHAR. 0 x ( P SCR A5,A3 STORE CHARACTER IN BUFFER 0 P RF EXIT2 0 P* 0 PIHTC05 EQU * 0 $ P LCR A5,A3
0x2b125c…2b13f0 Dummy {f00=0x00d8, f01=0x0190, f02=»IM EFFLEN INCREMENT EFFECTIVE LENGTH 0 . P LDR* A3,A15 RESTORE A3 AND A5 FROM STACK 1 , P* 1 ^ PEXIT3 LDR* A5,A15 1 h P RTN A15 1 P* 1 * PINRSQ INR A5,0,CHCRDA READ CHAR TO A5 1 P ST A5,TCDA5 1 P RB EXIT3 1 P* 1 PSST ST A5,TCDA
0x2b13f0…2b1584 Dummy {f00=0x00d8, f01=0x0190, f02=» P IFT CPU852=0 2 " P MSR 8,A15 SAVE A1-A8 ON STACK 2 P XIF 2 @ P* 2 L P LDKL A1,0 2 V PTCDA1 EQU *-2 2 h P LDKL A4,0 2 ~ PTCDA4 EQU *-2 2 P LDKL A5,0 2 PTCDA5 EQU *-2 2 P LDKL A6,0 2 PTCDA6 EQU *-2 2 P LDKL A8,0 2 P
0x2b1584…2b1718 Dummy {f00=0x00d8, f01=0x018e, f02=»T STATUS 2 P SLL A3,9 SHIFT 3 P ST A3,2,A8 SAVE ON STACK 3 ( ( P LD A3,DWTST,A6 PUT DWT STATUS IN A3 3 J P* 3 v PIHTRTN EQU * 3 P RTN A8 3 P* 3 PCIOHLT EQU * 3 P CIO A1,0,CHCRDA CIO-HALT 3 P RB EXIT3 3 P* 3 PEXIT ST
0x2b1718…2b18ac Dummy {f00=0x00d8, f01=0x0190, f02=» 3 P EJECT DRTC01 4 P* 4 P* 4 * P* R C O V E R 4 4 P* 4 L : P* RECOVERY ROUTINE : POSITIONING OF TAPE AT POWER ON 4 V P* 4 P* 4 PRCOVER EQU * 4 P CF A8,SELECT SELECT 4 P ANK A3,1 4 2 P RB(Z) IHTRTN NOT LOCKED: RETU
0x2b18ac…2b1a40 Dummy {f00=0x00d8, f01=0x0190, f02=»0050 YES 4 ( P CF A8,SBOT SEARCH BEGINNING OF TAPE 5 P SLL A2,5 5 < P RF(NN) REPER BOT NOT FOUND 5 N P RF REPOK 5 r P* 5 ( PRC0050 LD A1,SEKBYT,A6 SEQ. COUNTING 5 P RF(NZ) REPER NO 5 P* 5 P EJECT DRTC01 5 P* 5 P* 5 P
0x2b1a40…2b1bd4 (1, 673) Dummy {f00=0x00d8, 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
0x2b1bd4…2b1d68 Dummy {f00=0x00d8, 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
0x2b1d68…2b1efc Dummy {f00=0x00d8, 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
0x2b1efc…2b2090 Dummy {f00=0x00d8, 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
0x2b2090…2b2224 Dummy {f00=0x00d8, 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
0x2b2224…2b23b8 Dummy {f00=0x00d8, 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
0x2b23b8…2b254c Dummy {f00=0x00d8, 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 <
0x2b254c…2b26e0 Dummy {f00=0x00d8, 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
0x2b26e0…2b2874 (1, 674) Dummy {f00=0x00d8, f01=0x0190, f02=» = PTCBUF2 RES DVBLEN+1 > P XIF > $ P* > 0 P EJECT DRTC01 > : P* > R P* > P* D W T C 0 1 > f P* > ~ 2 P* DEVICE WORK TABLE FOR CASSETTE RECORDER 01 > P* > P* > PDWTC01 EQU * TABLE ENTRY > P DATA DWTC02 DWT NO.
0x2b2874…2b2a08 Dummy {f00=0x00d8, f01=0x0190, f02=»DRESS BLOCK > x P DATA 0 TTAB ADDRESS ? $ P DATA 0 WAIT/ACTIVATE INDICATOR ? 0 P DATA 0 TERMINAL QUEUE ? X IFT MMUPAG=1 ? v & " DATA 0 SAVE AREA USER ECB ADDRESS ? P DATA ECBTC1 MMU ECB ADDRESS ? XIF ? & PDWTBKC EQU *-DWTC01 BLOCK COUNTER
0x2b2a08…2b2b9c Dummy {f00=0x00d8, f01=0x40f0, f02=»ATA 0 ? P DATA TCBUF1 @ P DATA 0,0,0,0 @ " PTCBUF1 RES DVBLEN+1 @ 8 P XIF @ T P* @ ` " PREQLEN DATA 0 REQUESTED LENGTH @ j . PSEQCHR DATA 0 SEQUENCE CHARACTER =REL 11.0 @ P* @ P* @ P* @ P END @ @ @ *-DWTC01 BLOCK COUNTER
0x2b2b9c…2b2d30 Dummy {f00=0x00d8, f01=0x2008, f02=» A OCK - x P DATA 0 TTAB-ADDRESS . $ P DATA 0 WAIT/ACTIVATE INDICATOR . 0 P DATA 0 TERMINAL QUEUE . X & PDWTBKC EQU *-DWTC01 BLOCK COUNTER . v P DATA 0 . PSEKBYT EQU *-DWTC01 . P DATA 0 SEQ. INDICATOR . P* . P* . P END . @
0x2b2d30…2b2ec4 Dummy {f00=0x00d8, f01=0x0190, f02=» 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 * 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 * 8 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 * l & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 * , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) * $ P DATA 1 BLOCK SENDING IN
0x2b2ec4…2b3058 Dummy {f00=0x00d8, f01=0x0190, f02=»**************************** * P* + $ : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 + . P* CONNECTED TO THIRD CHRT + l P + P* + PCWTRT5 EQU * + P* + P IFF RECHAN=0 + P IFF RECHAN=1 + P IFF RECHAN=2 + P* +
0x2b3058…2b31ec Dummy {f00=0x00d8, f01=0x018e, f02=» TABLE + z P INR A2,0,DWA7 INR , P OTR A2,0,DWA7 OTR , ( P CIO A2,1,DWA7 CIO-START , B " P DATA 0 RETRANSMISSION COUNTER , b P DATA 0 QUEUE TERMINAL 1 , P DATA 0 QUEUE TERMINAL 2 , P* , P IFT ACKMUL=1 , P DATA 0 NAK-ACKUMULATOR , $ P
0x2b31ec…2b3380 Dummy {f00=0x00d8, f01=0x0190, f02=» , P XIF - P IFF RECHAN=0 - P IFF RECHAN=1 - * P IFF RECHAN=2 - @ P DATA 0 TIMER POINTER - V P DATA /7055 SYNC-CHARACTER - t 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 - 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 - & P DATA 0 LR
0x2b3380…2b3514 (1, 675) Opaque[0x194]
0x2b3514…2b36a8 # DirEnt {nam=»DRTN01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b20, f03=0x0000}
0x2b3514…2b36a8 IdxSect {
0x2b3514…2b36a8 f00 = 0x00d9 // 0x2b3514 @0x0
0x2b3514…2b36a8 f01 = 0x0018 // 0x2b3516 @0x2
0x2b3514…2b36a8 gno = [ // 0x2b3518 @0x4
0x2b3514…2b36a8 [0x00]: C0x00d9.0x0.0
0x2b3514…2b36a8 [0x01]: C0x00d9.0x1.0
0x2b3514…2b36a8 [0x02]: C0x00d9.0x2.0
0x2b3514…2b36a8 [0x03]: C0x00d9.0x3.0
0x2b3514…2b36a8 [0x04]: C0x00da.0x0.0
0x2b3514…2b36a8 [0x05]: C0x00da.0x1.0
0x2b3514…2b36a8 [0x06]: C0x00da.0x2.0
0x2b3514…2b36a8 [0x07]: C0x00da.0x3.0
0x2b3514…2b36a8 [0x08]: C0x00db.0x0.0
0x2b3514…2b36a8 [0x09]: C0x00db.0x1.0
0x2b3514…2b36a8 [0x0a]: C0x00db.0x2.0
0x2b3514…2b36a8 [0x0b]: C0x00db.0x3.0
0x2b3514…2b36a8 ]
0x2b3514…2b36a8 }
0x2b36a8…2b383c Dummy {f00=0x00d9, f01=0x0190, f02=» 2 P IDENT DRTN01 REL 11.0 81-03-18 870105041100 , P* =1 SUPPORT BOTH TND2.05 AND TND6.01 : 0 P =2,NO MOVE OF USER BUF. WHEN OPN AND MMU j P =2,REL 11.0 81-01-28 P* REL 11.0 81-01-26 P @ P************************************
0x2b383c…2b39d0 Dummy {f00=0x00d9, f01=0x0190, f02=» f P* @ P************************************************************ P* V P* ` : P* THIS DRIVER HANDLES THE MICROCOMPUTER IN THE NOTE j P* DISPENSER (ND). " P* (VERSION 2.05 AND 6.01) =1 > P* THE ND IS INTENDED FOR USE
0x2b39d0…2b3b64 Dummy {f00=0x00d9, f01=0x0190, f02=»TES TO THE TERMINAL OPERATOR v : P* OR THE CUSTOMER.UP TO 100 NOTES CAN BE ORDERED IN $ : P* ONE COMMAND FROM A NUMBER OF CASSETTES CONTAINING b P* VARIOUS DENOMINATIONS. P* P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS:
0x2b3b64…2b3cf8 Dummy {f00=0x00d9, f01=0x0190, f02=»G ORDERS ARE TREATED: P* P* /21 OPEN ( P* /22 CLOSE < P* /2C READ DEVICE STATUS R P* /2A READ CONTROL t P* /2D READ DIAGNOSTIC P* (SPLIT=0) P* /2B DISPENSE AND DELIVER P* (SPLIT=1) P* /2B DISP
0x2b3cf8…2b3e8c Dummy {f00=0x00d9, f01=0x0190, f02=»RROR = 8000 z : P* 1 NO CASSETTE = 4000 ( : P* 2 NOTES IN DELIVERY UNIT = 2000 f : P* 3 BAD NOTES = 1000 : P* 4 REJECT CASSETTE FULL
0x2b3e8c…2b4020 Dummy {f00=0x00d9, f01=0x0190, f02=»0200 ^ : P* 7 JAMMED NOTES = 0100 : P* 8 POWER FAILURE = 0080 J : P* 9 TIME-OUT = 0040 : P* 10 REJECTED NOTES = 0020 : P*
0x2b4020…2b41b4 (1, 676) Dummy {f00=0x00d9, f01=0x0190, f02=»MWARE ERROR = 0004 : P* 14 HARDWARE ERROR = 0002 . : P* 15 NOT OPERABLE = 0001 l P* P* NORMAL USE OF REGISTERS: P* P* A1 RETURN CODE & P*
0x2b41b4…2b4348 Dummy {f00=0x00d9, f01=0x0190, f02=» P* A6 DWT ADDRESS P* A7 ORDER $ P* A8 ECB ADDRESS > P EJECT ^ P* l P*********** v P* ENTRIES * P*********** P* P ENTRY TNAD ADDRESS BLOCK P EJECT P* $ P******************
0x2b4348…2b44dc Dummy {f00=0x00d9, f01=0x0190, f02=»HARACTER x P EXTRN STABLK START OF BLOCK & P EXTRN OUTPUT OUTPUT ONE CHARACTER 4 P EXTRN ENDBLK END OF BLOCK ^ 2 P EXTRN LENDER DISPATCH, END I/0 ,REQUEST ERROR & P EXTRN LENDIS END I/O AND DISPATCH P EXTRN LDISP DISPATCH P EXTRN SET
0x2b44dc…2b4670 Dummy {f00=0x00d9, f01=0x0190, f02=»********************** P* 2 P EXTRN PC:DIX PROGRAMMED CHANNEL DEVICE INDEX ( P* ^ P* h P* r P******************** | P* ECB-DISPLACEMENTS * P******************** P* P EXTRN ECBBA BUFFER ADDRESS " P EXTRN E
0x2b4670…2b4804 Dummy {f00=0x00d9, f01=0x018e, f02=» P* " P***************************** P* DWT PARAMETERS 8 " P****************************** P P* v P* P EXTRN DWTOR ORDER P EXTRN DWTECB ECB-ADDRESS P EXTRN DWTSB2 STACK BASE P* 8 P EXTRN DWTDEV DEVICE DRI
0x2b4804…2b4998 Dummy {f00=0x00d9, f01=0x0190, f02=» PQUART FORM 4,4,4,4 P EJECT P* , P************************ 6 P* CONDITIONAL ASSEMBLY * V P************************ v P* * PX:A EQU 0 ORDER 'DIPENSE AND DELIVER' P* IS SPLIT (OR NOT) 2 P* INTO ORDERS 'DISPENSE',
0x2b4998…2b4b2c Dummy {f00=0x00d9, f01=0x0190, f02=»* P* P EJECT P* " P* , * P************************************** 6 * P* DWT-DISPLACEMENTS RELATIVE DWTDEV * d , P*************************************** P* PDWTTP EQU 2 TIMER POINTER > PDWTLR EQU DWTTP+2 BITS 0-7
0x2b4b2c…2b4cc0 Dummy {f00=0x00d9, f01=0x018e, f02=»SSAGE FROM ND) d . PDWTSTA EQU DWTBFR+2 NOTE DISPENSER STATUS 2 PDWTTAB EQU DWTSTA+2 STORE-CHECK TABLE POINTER H 6 PDWTNCR EQU DWTTAB+2 NUMBER OF CHARACTERS RECEIVED ~ , PDWTCNB EQU DWTNCR+2 OLD CASSETTE NUMBER 2 PDWTTP1 EQU DWTCNB+2 TIMER POINTE
0x2b4cc0…2b4e54 (1, 677) Dummy {f00=0x00d9, f01=0x0190, f02=» P EJECT P* P************* P* CONSTANTS * 6 P************* L P* b PBIT0 EQU /8000 l PBIT1 EQU /4000 PBIT2 EQU /2000 PBIT3 EQU /1000 PBIT4 EQU /0800 PBIT5 EQU /0400 PBIT6 EQU /0200 PBI
0x2b4e54…2b4fe8 Dummy {f00=0x00d9, f01=0x0190, f02=»BIT13 EQU /0004 PBIT14 EQU /0002 PBIT15 EQU /0001 0 P* H P* R , PTIME2M EQU 1200 TIME CONSTANT=2 MINUTES * PTIME1M EQU 600 TIME CONSTANT=1 MINUTE * PTIME9S EQU 90 TIME CONSTANT=9 SECONDS ( PTIME1S EQU 10 TIME CONSTANT=1 SE
0x2b4fe8…2b517c Dummy {f00=0x00d9, f01=0x0190, f02=»********** P* RETURN CODES * P**************** * P* B " PREQERR EQU BIT0 REQUEST ERROR L PNOCASS EQU BIT1 NO CASSETTE r * PNOTDEL EQU BIT2 NOTES IN DELIVERY UNIT PBADNOT EQU BIT3 BAD NOTES ( PREJFUL EQU BIT4 REJECT CASSETTE FU
0x2b517c…2b5310 Dummy {f00=0x00d9, f01=0x0190, f02=»POWER FAILURE PTIMOUT EQU BIT9 TIME-OUT $ PREJNOT EQU BIT10 REJECTED NOTES 6 $ PSEQERR EQU BIT11 SEQUENCE ERROR ^ ( PCOMERR EQU BIT12 COMMUNICATION ERROR * PFMERR EQU BIT13 FIRMWARE ERROR IN TND " PHWERR EQU BIT14 HARDWARE ERROR " PNO
0x2b5310…2b54a4 Dummy {f00=0x00d9, f01=0x0190, f02=»* ~ P* STATUS BITS IN DWTDEV * P******************* , P* H * POPNBIT EQU BIT15 OPEN/CLOSE BIT (1/0) R ( PRESDON EQU BIT14 RESET DONE BIT (0) & PDISDON EQU BIT13 DISPENSE DONE (1) P EJECT P* P*************** P*
0x2b54a4…2b5638 Dummy {f00=0x00d9, f01=0x0190, f02=»D DELIVER v PREADCO EQU /2A READ CONTROL " PREADDI EQU /2D READ DIAGNOSTIC 6 & PREADDS EQU /2C READ DEVICE STATUS PDUMP EQU /31 DUMP NOTES PDELIVE EQU /38 DELIVER P EJECT P* P********************* P* HARDWARE COM
0x2b5638…2b57cc Dummy {f00=0x00d9, f01=0x0190, f02=»QU /32 DISPENSE PDELIVR EQU /33 DELIVER PREJECT EQU /34 REJECT NOTES 6 ( PCASNBR EQU /35 GET CASSETTE NUMBERS Z 0 PSTADIS EQU /36 GET STATUS FROM LAST DISPENSE PLIFTDW EQU /37 LIFTS DOWN PLIFTUP EQU /38 LIFTS UP ( PRTRACE EQU /
0x2b57cc…2b5960 Dummy {f00=0x00d9, f01=0x018e, f02=»******** P* TABLES * P********** " P* 4 P* > P* H " P DATA DVBLEN MMU BUFFER LENGTH R 0 P DATA PC:DIX PROGRAMMED CHANNEL DEVICE INDEX x PTNAD EQU * P DATA ACTN ACTIVATION DRIVER P DATA 0 ABORT ROUTINE P DATA 0
0x2b5960…2b5af4 (1, 678) Dummy {f00=0x00d9, f01=0x0190, f02=» P BYTE DISDEL,READCO P BYTE READDI,READDS P IFT SPLIT=1 < P BYTE DUMP,DELIVE P P XIF j PTNLEN EQU *-TNTAB-1 v P* P* ( PTNFUN EQU * NOTE DISPENSER FUNCTION P DATA OPENTN,CLOSTN,DISPEN P DATA RDCONT,RDDIAG,
0x2b5af4…2b5c88 Dummy {f00=0x00d9, f01=0x0190, f02=»AGE AFTER HW-COMMAND /30 (RESET) h P* ( P DATA RESEND-RESTAB 2 PRESTAB EQU * N 6 P BYTE 2,3 MESSAGEBYTES WITH NBR/STATUS OF HOPPER 0 b P BYTE 7,8 DITO HOPPER 1 P BYTE 14,15 DITO HOPPER 2 P BYTE 21,22 DITO HOPPER 3 P BYTE 28
0x2b5c88…2b5e1c Dummy {f00=0x00d9, f01=0x0190, f02=»* D P* TABLE OF NO-STORE BYTE-NUMBERS OF MESSAGE AFTER HW-COMMAND /35 P* (GET CASSETTE NUMBERS) R P* r P DATA CTABEN-CNBTAB | PCNBTAB EQU * 6 P BYTE 2,3 MESSAGEBYTES WITH NBR/STATUS OF HOPPER 0 P BYTE 9,10 DITO HOPPER 1 P B
0x2b5e1c…2b5fb0 Dummy {f00=0x00d9, f01=0x018e, f02=»YTE 44,45 DITO HOPPER 6 PCTABEN EQU *-1 P EJECT 6 P* D " P* BIT IN RETURN CODE HW-STATUS N P* t PCASTAT EQU * ~ P QUART 5,6,15,10 31,32,33,34 " P QUART 15,15,12,11 35,36,37,38 P QUART 7,1,7,3 39,3A,3B,3C " P QUART 7,1
0x2b5fb0…2b6144 Dummy {f00=0x00d9, f01=0x0190, f02=» & P QUART 12,14,15,15 4E,4F,50,51 =1 P EJECT . P* < P* F P* ACTN P P* ` P* j 2 P* ACTIVATION PART: CHECKS VALIDITY OF ORDERS t . P* AND STARTS PROCESSING P* P* P* PACTN EQU *
0x2b6144…2b62d8 Dummy {f00=0x00d9, f01=0x0190, f02=»LID ORDER P SUK A3,1 DECREMENT INDEX P RB(NN) ACTN10 TRY NEXT 4 P* T P* ^ 0 P ABL LENDER DISPATCH, END I/O ,REQUEST ERROR h P* P* P EJECT PACTN20 EQU * P* P* P* P ADR A3,A3 GET INDEX
0x2b62d8…2b646c Dummy {f00=0x00d9, f01=0x0190, f02=»TO EQU * P LDR A6,A1 GET DWT ADDRESS " P LDK A1,TIMOUT SET RETURN CODE 2 , P CM DWTDEV+DWTTP,A6 RESET TIMER POINTER X P CM DWTDEV+DWTSTA,A6 P RF OPCLEN END I/O P EJECT P* . P* THIS IS THE DEVICE-BUSY-TIMEOUT ROUTINE P
0x2b646c…2b6600 Dummy {f00=0x00d9, f01=0x018e, f02=»ESET TIMER POINTER DEVICE BUSY z 6 P CM DWTDEV+DWTSTA,A6 RESET RETURN CODE ACCUMULATOR & P LD A8,DWTECB,A6 ECB ADDRESS ` P LD A7,DWTOR,A6 P ANK A7,/FF ORDER CODE * P RB ACTN DEVICE FREE. TRY ORDER AGAIN P EJECT P* > P* THIS I
0x2b6600…2b6794 (1, 679) Dummy {f00=0x00da, f01=0x0190, f02=» P LDKL A7,TIME1M P CF A15,TIMER $ P LDK A2,LIFTUP LIFTS UP COMMAND 6 P CF A5,SENCOM SEND COMMAND ^ " P CF A5,RECMES RECEIVE MESSAGE 2 P RF(NZ) OPCLEN END BECAUSE OF ERROR IN MESSAGE P* : P* DUMMY-COMMAND (SEND CASSETTE NUM
0x2b6794…2b6928 Dummy {f00=0x00da, f01=0x0190, f02=»: GET CASSETTE NUMBERS z P CF A5,SENCOM SEND COMMAND POPE090 EQU * @ " P CF A5,RECMES RECIEVE MESSAGE T 2 P RF(P) OPCLEN END BECAUSE OF ERROR IN MESSAGE z P RB(NZ) OPE090 NEXT CHAR : P CM DWTDEV+DWTSTA,A6 CLEAR STATUS AFTER DUMMY COMMAND
0x2b6928…2b6abc Dummy {f00=0x00da, f01=0x0190, f02=»TO STORE INTO USER BUFFER P ST A2,DWTDEV+DWTTAB,A6 " & P LDK A4,0 USER BUFFER DISPLACEMENT B P LDK A3,/30 l & P CF A5,STORE DUMMY IN USER BUFFER & P CF A5,STORE DUMMY IN USER BUFFER P LDK A2,RESET POPE100 EQU * P LDK A3,'0
0x2b6abc…2b6c50 Dummy {f00=0x00da, f01=0x0190, f02=»RECEIVE MESSAGE P RF(Z) OPE120 END OF MESSAGE ! 2 P RF(P) OPCLEN END BECAUSE OF ERROR IN MESSAGE ! < " P CF A5,STORE BUILD USER BUFFER ! r P RB OPE110 ! P EJECT ! POPE120 EQU * ! P LD A2,DWTDEV,A6 ! P ANK A2,RESDON ! P RF(Z) OPE130
0x2b6c50…2b6de4 Dummy {f00=0x00da, f01=0x0190, f02=» & P* NOT TO STORE INTO USER BUFFER " 0 P ST A2,DWTDEV+DWTTAB,A6 STORE CONTROL TABLE " . P LDK A2,2 " b : P ST A2,DWTDEV+DWTNCR,A6 NUMBER OF CHARACTERS RECEIVED " t & P LDK A4,5 USER BUFFER DISPLACEMENT " & P LDK A2,CASNBR GET CASSETTE NUMBER " P R
0x2b6de4…2b6f78 Dummy {f00=0x00da, f01=0x0190, f02=»2 READ ORDER =2 " 4 P SC A7,DWTOR+1,A6 INDICATE MOVE BUF. TO USER =2 # P EJECT # P P* # ^ P* COMMON END # h P* # | PENDIOC EQU * # < P CM DWTDEV+DWTBUF+2,A6 RESET READ CONTROL BUFFER LENGTH # PENDIOL EQU * # 0 P LD A8,DWTECB,A6 RESTORE (
0x2b6f78…2b710c Dummy {f00=0x00da, f01=0x0190, f02=» CODE # n . P LD A4,DWTDEV+DWTTP,A6 LOAD TIMER POINTER $ P RF(Z) ENDI10 NO TIMING $ @ P CMR A4 RESET TIMER $ ` , P CM DWTDEV+DWTTP,A6 RESET TIMER POINTER $ | PENDI10 EQU * $ 6 P LD A4,DWTDEV+DWTTP1,A6 TIMER POINTER DEVICE BUSY $ P RF(Z) ENDI20
0x2b710c…2b72a0 Dummy {f00=0x00da, f01=0x0190, f02=»END I/O AND DISPATCH $ P EJECT % P* % * P* CLOSE NOTE DISPENSER % 4 P* % R P % P % d P* % l P* LIFTS DOWN % v P* % PCLOSTN EQU * % P LDK A7,TIME9S % P CF A15,TIMER % P LDK A2,LIFTDW % P CF A5,SENCOM SEND COMMAND %
0x2b72a0…2b7434 (1, 680) Dummy {f00=0x00da, f01=0x0190, f02=» % P LDK A7,RESDON & . P ORS A7,DWTDEV,A6 INDICATE RESET NOT DONE & PENDIOZ EQU * & P P LDK A4,0 & d P RB ENDIOC & v P EJECT & P* & " P* DISPENSE AND DELIVER /2B & P* & PDISPEN EQU * & P LDKL A7,TIME2M & P CF A15,TIME
0x2b7434…2b75c8 Dummy {f00=0x00da, f01=0x0190, f02=»REQUEST ERROR & z P LDK A2,BLKSIZ BLOCK-SIZE ' ( P CF A5,STABLK DEFINE START OF BLOCK ' 8 & P ABL(NZ) LINERR LINE ERROR STATUS ' d P IFT SPLIT=0 ' ( P LDK A2,DISDLV DISPENSE AND DELIVER ' P XIF ' P IFT SPLIT=1 ' P LDK A2,DISPNS DISPENSE '
0x2b75c8…2b775c Dummy {f00=0x00da, f01=0x0190, f02=»ND COMMAND DISPENSE AND DELIVER ' & P ABL(NZ) LINERR LINE ERROR STATUS ( ( 0 P LC A2,DWTDEV+DWTLR,A6 LEFT OR RIGHT TELLER ( R P ADK A2,/30 MAKE ASCII ( 4 P XRS A2,DWTDEV+DWTLRC,A6 UPDATE LRC ACKUMULATOR ( , P CF A5,OUTPUT SEND LEFT OR RIGHT TELLER (
0x2b775c…2b78f0 Dummy {f00=0x00da, f01=0x018e, f02=» ( P* SEND CASSETTE DATA ) P* ) $ PDIS100 EQU * ) . $ P CF A5,SENCAS SEND CASSETTE DATA ) B $ P RB(NZ) DIS100 NOT LAST CASSETTE ) j . P CF A5,LRCEOM SEND LRC AND END OF MESSAGE ) PDIS110 EQU * ) " P LDK A4,0 BUFFER DISPLACEMENT ) $ P LDK A2,BU
0x2b78f0…2b7a84 Dummy {f00=0x00da, f01=0x0190, f02=» P ST A2,DWTDEV+DWTBUF,A6 * P EJECT * $ P* * 2 P* RECEIVE MESSAGE * < P* * V PDIS120 EQU * * ` " P CF A5,RECMES RECEIVE MESSAGE * t " P RB(P) ENDIOZ ERROR IN MESSAGE * P RF(Z) DADEND END OF MESSAGE * P LD A8,DWTDEV+DWTBUF,A6 * " P SUK
0x2b7a84…2b7c18 Dummy {f00=0x00da, f01=0x0190, f02=» SPLIT=1 * P LD A7,DWTOR,A6 GET ORDER + P ANK A7,/FF MASK + 2 P CWK A7,DISDEL + J P RF(E) DIS125 DISPENSE ORDER + ` , P LDR A1,A1 RETURN CODE WITHOUT WARNINGS + " P RF(NZ) DIS130 COMMAND NOT OK + P LDKL A3,-DISDON-1 + 0 P ANS A3,DWTDEV,A6 IN
0x2b7c18…2b7dac Dummy {f00=0x00da, f01=0x0190, f02=»OMMAND NOT OK + P LDK A2,DISDON , , P ORS A2,DWTDEV,A6 INDICATE DISPENSE DONE , , PDIS130 EQU * , P XIF , p 0 P ST A4,DWTDEV+DWTBUF+2,A6 SAVE BUFFER LENGTH , | P RB ENDIO , P* , P* SEQUENCE ERROR , P* , PSEQER EQU * , P LDK A
0x2b7dac…2b7f40 Dummy {f00=0x00da, f01=0x0190, f02=»,DWTDEV+DWTCNB,A6 INDICATE OLD CASSETTE = 0 , & P LDK A4,0 USER BUFFER DISPLACMENT - 4 4 P C2 DWTDEV+DWTBUF+2,A6 NEGATE DWT BUFFER LENGTH - ^ $ P RF(Z) RDC120 NOTHING IN BUFFER - PRDC100 EQU * - 0 P LC* A3,DWTDEV+DWTBUF,A6 GET CASSETTE NUMBER - 2 P C
0x2b7f40…2b80d4 (1, 681) Dummy {f00=0x00da, f01=0x0190, f02=»BER OF CHARACTERS - v P LDK A3,/30 . P CF A5,STORE . . * P LDK A1,3 GET 4 BYTES FROM DWT BUFFER . B PRDC110 EQU * . p * P LC* A3,DWTDEV+DWTBUF,A6 GET CHARACTER . P CF A5,STORE . . P IM DWTDEV+DWTBUF,A6 UPDATE BUFFER POINTER . P IM DWTDEV+DWTBU
0x2b80d4…2b8268 Dummy {f00=0x00da, f01=0x0190, f02=»RDC120 EQU * . P LDR A1,A6 / 4 P ADKL A1,DWTDEV+DWTBUF+4 A1:=DWT BUFFER POINTER / & P ST A1,DWTDEV+DWTBUF,A6 / ^ P LDK A1,0 RETURN CODE / ~ PENIOL1 EQU * / P ABL ENDIOL / P EJECT / P* / P* READ DIAGNOSTIC / P* / PRDDIAG E
0x2b8268…2b83fc Dummy {f00=0x00da, f01=0x0190, f02=»DK A4,0 USER BUFFER DISPLACEMENT / PRDD100 EQU * 0 ( " P CF A5,RECMES RECEIVE MESSAGE 0 < 6 P RF(NN) RDD110 END OF MESSAGE OR ERROR IN MESSAGE 0 b 4 P CF A5,STORE SAVE CHARACTER (A3) IN USER BUFFER 0 P RB RDD100 NEXT CHARACTER 0 PRDD110 EQU * 0
0x2b83fc…2b8590 Dummy {f00=0x00da, f01=0x018e, f02=» A2,A6 DATA POINTER 0 P LDK A4,0 BUFFER INDEX 1 PRDS100 EQU * 1 : P LCR A3,A2 1 N P ANK A3,/FF 1 ` P RF(Z) RDS110 END OF BUFFER 1 t 0 P CF A5,STCHAR STORE CHARACTER IN USER BUFFER 1 P ADK A2,1 UPDATE POINTER 1 P CWK A4,4 1 P RB(L) RDS
0x2b8590…2b8724 Dummy {f00=0x00da, f01=0x0190, f02=» P* DELIVER NOTES /38 2 P* 2 PDELIV EQU * 2 * P* 2 > & P* CHECK IF NOTES IN DELIVERY UNIT 2 H P* 2 r P LDK A7,TIME9S 2 | P CF A15,TIMER 2 P LDK A2,CHKDEL 2 P CF A5,SENCOM SEND COMMAND 2 PDEL100 EQU * 2 " P CF A5,RECMES RECEIV
0x2b8724…2b88b8 Dummy {f00=0x00da, f01=0x018e, f02=» UNIT 2 p P LD A2,DWTDEV,A6 3 P ANK A2,DISDON 3 & 2 P RB(Z) SEQER DISPENSE NOT DONE,SEQUENCE ERROR 3 < P LDK A2,DELIVR 3 r P RF DUM100 3 P EJECT 3 P* 3 P* DUMP NOTES /31 3 P* 3 PDUMPA EQU * 3 P LDK A7,TIME9S 3 P CF A15,
0x2b88b8…2b8a4c Dummy {f00=0x00da, f01=0x0190, f02=» P EJECT 4 P* 4 P* 4 P* RCTN 4 & P* 4 6 P* RECOVERY AT POWER ON 4 @ P* 4 ` P* 4 j PRCTN EQU * 4 t P LDKL A1,-OPNBIT-1 4 * P ANS A1,DWTDEV,A6 INDICATE ND NOT OPEN 4 P LDK A1,RESDON 4 . P ORS A1,DWTDEV,A6 INDICATE RESET NOT
0x2b8a4c…2b8be0 Dummy {f00=0x00da, f01=0x0190, f02=» CWK A7,READCO 4 $ P ABL(E) ENDIO READ CONTROL ORDER 5 . P ABL ENDIOZ OTHER ORDERS THAN READ CONTROL 5 > P EJECT 5 p P* 5 ~ P* 5 P* SUBROUTINES 5 P* 5 P* 5 P* 5 P 5 P 5 P* 5 P* SET TIMER 5 P* A7=TIME VALUE 5
0x2b8be0…2b8d74 (1, 682) Dummy {f00=0x00da, f01=0x0190, f02=»DWT ADDRESS IF TIMEOUT 5 P CF A15,SETIME SET TIME 6 6 P DATA ACTNTO,TIME1S TIME1S OUT ROUTINE AND TIME1S 6 > 6 P ST A4,DWTDEV+DWTTP,A6 STORE TIMER ADDRESS IN DWT 6 x P NGR A7,A7 6 P STR A7,A4 NEW TIME VALUE 6 PTIM100 EQU * 6 P RTN A15 6
0x2b8d74…2b8f08 Dummy {f00=0x00da, f01=0x0190, f02=»,DWTDEV+DWTLR,A6 LEFT OR RIGHT TELLER 6 , P CM DWTDEV+DWTBFR,A6 CLEAR DELAY BUFFER 7 . 4 P CM DWTDEV+DWTSTA,A6 CLEAR NOTE DISPENSER STATUS 7 ^ 2 P CM DWTDEV+DWTTAB,A6 CLEAR STORE-TABLE POINTER 7 < P CM DWTDEV+DWTNCR,A6 CLEAR NUMBER OF CHARACTERS RECEIVED 7
0x2b8f08…2b909c Dummy {f00=0x00da, f01=0x0190, f02=» EQU * 7 P RTN A5 8 P EJECT 8 P* 8 , 4 P* SUBROUTINE TO GET RETURN CODE FROM H.W. STATUS 8 6 P* 8 n P* ENTRY: A2 = H.W. STATUS 8 x P* 8 P* EXIT: 8 P* A1,A2 = IRRELEVANT 8 $ P* RETURN CODE IN DWTSTA 8 P* 8
0x2b909c…2b9230 Dummy {f00=0x00da, f01=0x0190, f02=» RF(E) STA160 DEVICE OK 8 ( P LC A1,DWTDEV+DWTRDS+1,A6 OLD STATUS 9 P ANK A1,/FF 9 L ( P RF(NZ) STA080 BYTE ALREADY OCCUPIED 9 ` , P SC A2,DWTDEV+DWTRDS+1,A6 SAVE HW STATUS 9 P RF STA090 9 PSTA080 EQU * 9 , P SC A2,DWTDEV+DWTRDS+3,A6 SAVE HW STAT
0x2b9230…2b93c4 Dummy {f00=0x00da, f01=0x0190, f02=» =1 9 r " P RF(P) STA180 WRONG HW-STATUS : 2 P ADK A2,/20 ADJUST BACK, AND DECR WITH /31. =1 : 2 P EJECT : h P CWK A2,/17 : v 4 P RF(E) STA140 STATUS /48,HIGH PRESSURE = WARNING : P RF(L) STA100 DON'T SKIP /48 : P SUK A2,1 SKIP /48 : PSTA100 E
0x2b93c4…2b9558 Dummy {f00=0x00da, f01=0x0190, f02=»F STA120 : PSTA110 EQU * ; P ANK A2,/FF ; $ P LC A2,CASTAT,A2 ; 8 , P ANK A2,/F A2:=BIT NUMBER IN RETURN CODE ; P PSTA120 EQU * ; P LDK A1,1 SET BIT 15 ; PSTA130 EQU * ; P SRC A1,1 ; P SUK A2,1 ; . P RB(NN) STA130 BIT NOT IN CORREC
0x2b9558…2b96ec Dummy {f00=0x00da, f01=0x0190, f02=»A150 EQU * ; 4 P SUK A1,1 INDICATE DEVICE BUSY (LIFTS ARE DOWN) < PSTA160 EQU * < J 4 P LD A2,DWTDEV+DWTRDS+2,A6 HW ORDER AND STATUS 2 < ^ . P RF(NZ) STA170 BOTH STATUS WORDS OCCUPIED < P CM DWTDEV+DWTRDS,A6 < PSTA170 EQU * < P CM DWTDEV+DWTRD
0x2b96ec…2b9880 Dummy {f00=0x00da, f01=0x0190, f02=» P* = P* = P* THIS SUBROUTINE IS ENTERED = 0 P* WHEN LINE DRIVER ERROR STATUS IS DETECTED = < P* = p P* = z PLINERR EQU * = 4 P LDK A1,NOTOPE RETURN CODE FOR ECB: NOT OPERABLE = 6 P ORS A1,DWTDEV+DWTSTA,A6 SET RETURN CODE INTO ECB = ,
0x2b9880…2b9a14 (1, 683) Dummy {f00=0x00db, f01=0x0190, f02=»CALCULATES LRC,SENDS IT AND SENDS END OF MESSAGE = P* > 8 " P* ENTRY: A2 = COMMAND TO SEND > B P* > h " P* EXIT: A1,A2,A3 = IRRELEVANT > r P* > PSENCOM EQU * > P LDR A3,A2 SAVE THE COMMAND > P LDK A2,BLKSIZ GET BLOCKSIZE > ( P CF A5,STA
0x2b9a14…2b9ba8 Dummy {f00=0x00db, f01=0x0190, f02=»6 SAVE LRC SUM > x 4 P LD A1,DWTDEV+DWTRDS,A6 FIRST WORD IN LOGG AREA ? ( P RF(NZ) SEN100 ONE LOGG ALREADY DONE ? N * P SC A2,DWTDEV+DWTRDS,A6 SAVE HW ORDER ? z P RF SEN200 ? PSEN100 EQU * ? , P SC A2,DWTDEV+DWTRDS+2,A6 SAVE HW ORDER ? PSEN200 EQU
0x2b9ba8…2b9d3c Dummy {f00=0x00db, f01=0x0190, f02=» PLRCEOM EQU * @ * P LC A3,DWTDEV+DWTLRC+1,A6 GET LRC SUM @ P ANK A3,/FF @ F P LDR A2,A3 @ Z P SRL A2,4 @ l P ANK A3,/F @ ~ P ADK A2,/30 CMSD @ P ADK A3,/30 CLSD @ P CF A5,OUTPUT SEND BYTE @ $ P RB(NZ) LINERR LINE ERROR STATUS @ P
0x2b9d3c…2b9ed0 Dummy {f00=0x00db, f01=0x0190, f02=»A5,OUTPUT SEND BYTE @ $ P RB(NZ) LINERR LINE ERROR STATUS A P LDK A2,0 A D 4 P SC A2,DWTDEV+DWTLRC+1,A6 RESET LRC ACKUMULATOR A V & P CF A5,ENDBLK DEFINE END OF BLOCK A $ P RB(NZ) LINERR LINE ERROR STATUS A P RTN A5 A P EJECT A P* A . P
0x2b9ed0…2ba064 Dummy {f00=0x00db, f01=0x0190, f02=» P* B P* EXIT: A4 = A4 + 5 B P* A3 = A3 + 1 B , P* A1,A2 = IRRELEVANT B J P* B n PSENCAS EQU * B x $ P ST A3,DWTDEV+DWTBUF,A6 SAVE A3 B ( P XRS A3,DWTDEV+DWTLRC,A6 UPDATE LRC B P LDR A2,A3 B P CF A5,OUTPUT B $ P
0x2ba064…2ba1f8 Dummy {f00=0x00db, f01=0x0190, f02=»A6 UPDATE LRC B z P CF A5,OUTPUT C $ P RB(NZ) LINERR LINE ERROR STATUS C , $ P ADK A4,1 UPDATE BUFFER POINTER C T P SUK A3,1 C | 6 P RB(NN) SCA100 DATA FOR THIS CASSETTE NOT FINISHED C 8 P LD A3,DWTDEV+DWTBUF,A6 SAVED REGISTER=CASSETTE NBR C P ADK
0x2ba1f8…2ba38c Dummy {f00=0x00db, f01=0x018e, f02=»* A5 RETURN C P EJECT D : P* THIS ROUTINE RECEIVES A MESSAGE FROM NOTE DISPENSER D " 2 P* IF DWTBFR IS ZERO,IT RECEIVES STATUS+3 BYTES D ` < P* IF THE LAST BYTE IS EOM,IT CHECKS LRC AND THEN RETURNS D 0 P* IF DWTBFR IS NOT ZERO,IT RECEIVES ONE BYTE D
0x2ba38c…2ba520 Dummy {f00=0x00db, f01=0x0190, f02=» D t ( P* CR = O MEANS EOM AND LRC OK E * P* 1 MEANS EOM AND LRC BAD E 4 " P* 2 MEANS NOT EOM E b PRECMES EQU * E P LD A2,DWTDEV+DWTBFR,A6 E " P RF(NZ) REC100 NOT FIRST TIME E P CF A5,INPUT GET STATUS E ( P XRS A
0x2ba520…2ba6b4 (1, 684) Dummy {f00=0x00db, f01=0x0190, f02=»DEV+DWTBFR,A6 SAVE CHARACTER E P CF A5,INPUT GET NEXT BYTE F $ , P SC A2,DWTDEV+DWTBFR+1,A6 SAVE CHARACTER F F PREC100 EQU * F v P CF A5,INPUT GET CHARACTER F " P ADK A5,4 UPDATE STACK POINTER F P CCK A2,/0D0D F P RF(E) REC120 END OF MESSAGE F
0x2ba6b4…2ba848 Dummy {f00=0x00db, f01=0x018e, f02=»3,DWTDEV+DWTLRC,A6 UPDATE LRC ACK. F 2 P SC A2,DWTDEV+DWTBFR+1,A6 UPDATE DELAY BUFFER G * P LDKL A1,-1 SET CR G ` PREC110 EQU * G z P ABR* A5 G P EJECT G P* G P* CHECK LRC G P* G PREC120 EQU * G 8 P LD A3,DWTDEV+DWTBFR,A6 DELAY BU
0x2ba848…2ba9dc Dummy {f00=0x00db, f01=0x018e, f02=» G P ORR A3,A2 LRC VALUE H . P LC A2,DWTDEV+DWTLRC+1,A6 DRIVER LRC VALUE H $ , P CM DWTDEV+DWTBFR,A6 RESET INTERN BUFFER H V ( P LD A1,DWTDEV+DWTSTA,A6 RETURN CODE H P CWK A1,-1 H 8 P RF(E) REC130 HW DEVICE BUSY BECAUSE LIFTS ARE DOWN H * P ANKL A1
0x2ba9dc…2bab70 Dummy {f00=0x00db, f01=0x0190, f02=» P RB REC110 I P EJECT I P* I $ , P* HW DEVICE BUSY BECAUSE LIFTS ARE DOWN I . " P* (DELAY AND TRY ORDER AGAIN) I ^ P* I PREC130 EQU * I P LDR A1,A6 SAVE DWT ADDRESS I P CF A15,SETIME I P DATA BSYTUT,TIME1S I . P ST A4,DWTDEV+DW
0x2bab70…2bad04 Dummy {f00=0x00db, f01=0x0190, f02=»* IN ECB-BUFFER AND INCREMENT BUFFER-INDEX I P* J < > P* ENTRY : DWTTAB = CONTROL TABLE (=0 MEANS NO CONTROL ) J F & P* A3 = CHARACTER TO STORE J & P* A4 = USER BUFFER INDEX J 4 P* DWTNCR = NUMBER OF CHARCTERS RECE
0x2bad04…2bae98 Dummy {f00=0x00db, f01=0x0190, f02=» CASSETTE NUMBER TO '0' J v H P* A4 = A4 + 1 IF CHARACTER NOT FILTERED WITH CONTROL TABLE K " P* DWTNCR = DWTNCR + 1 K l , P* DWTCNB = NEW CASSETTE NUMBER K P* K PSTORE EQU * K P LD A7,DWTDEV+DWTTAB,A6 K P RF(Z) S
0x2bae98…2bb02c Dummy {f00=0x00db, f01=0x0190, f02=»QU * K P CCR A2,A7 L : P RF(E) STO110 CHARACTER FOUND IN TABLE,DON'T STORE IT L " P SUK A7,1 UPDATE TABLE POINTER L P CW A7,DWTDEV+DWTTAB,A6 L $ P RB(NL) STO100 NOT END OF TABLE L P* L . P* STORE IT IN USER BUFFER AND INCREMENT A4 L P*
0x2bb02c…2bb1c0 Dummy {f00=0x00db, f01=0x0190, f02=»E CASSETTE IS MISSING L P* M PSTO110 EQU * M ( P LC A2,DWTOR+1,A6 ORDER CODE M < P SUK A2,OPEN M ` " P RF(NZ) STO140 NOT OPEN ORDER M t 6 P ANK A7,1 EVEN ADDRESS ? (=ADDRESS TO BYTE NUMBER M , P* OF MESSAGE BYTE CONTAINING CASS NBR) M 8 P RF(
0x2bb1c0…2bb354 (1, 685) Dummy {f00=0x00db, f01=0x0190, f02=» P* N PRESCAS EQU * N 0 P LD A2,DWTDEV+DWTCNB,A6 OLD CASSETTE NUMBER N " 0 P ST A3,DWTDEV+DWTCNB,A6 NEW CASSETTE NUMBER N V P SUR A3,A2 N P LDK A2,0 N P SUK A3,1 N ( P RF(NP) STO140 CASSETTES IN SEQUENCE N PSTO120 EQU * N P ADK A2,
0x2bb354…2bb4e8 Dummy {f00=0x00db, f01=0x0190, f02=»ARACTER N z P SUK A2,1 O $ P RB(P) STO130 RESET NOT FINISHED O " PSTO140 EQU * O J 6 P IM DWTDEV+DWTNCR,A6 NUMBER OF CHARACTERS RECEIVED O ^ P RTN A5 O P EJECT O P* O $ P*STORE CHARACTER IN USER BUFFER O P* O ( P* ENTRY : A4 = INDEX
0x2bb4e8…2bb67c Dummy {f00=0x00db, f01=0x0190, f02=» P* A7 = IRRELEVANT P P* P & PSTCHAR EQU * P 0 P CW A4,ECBRL,A8 P D ( P RF(NL) STC110 TOO SMALL USER BUFFER P " P LD A7,ECBBA,A8 BUFFER ADDRESS P P ADR A7,A4 ADD BUFFER INDEX P P SCR A3,A7 STORE CHARACTER P PSTC100 EQU * P P
0x2bb67c…2bb810 Dummy {f00=0x00db, f01=0x0190, f02=» P r , P ORS A7,DWTDEV+DWTSTA,A6 SET RETURN CODE Q P RB STC100 Q 8 P EJECT Q J P* Q X 0 P* SUBROUTINE TO TEST DISPENSE REQUEST ERROR Q b P* Q P* ENTRY: A8 = ECB-ADDRESS Q P* Q 6 P* EXIT: A1,A2,A3 = IRRELEVANT IF REQUEST ERROR Q @ P*
0x2bb810…2bb9a4 Dummy {f00=0x00db, f01=0x0190, f02=»D A3,ECBRL,A8 REQUESTED LENGTH Q PDSR100 EQU * R & $ P CF A5,CASTST TEST CASSETTE DATA R : P SUK A3,5 R b P RB(P) DSR100 NEXT CASSETTE R t P RF(N) CST110 REQUEST ERROR R P RTN A5 R P EJECT R P* R & P* SUBROUTINE TO TEST CASSETTE DATA R
0x2bb9a4…2bbb38 Dummy {f00=0x00db, f01=0x018e, f02=» A1 = IRRELEVANT OR /8000 AND JUMP TO ENDIO R P* S 4 PCASTST EQU * S > P ADK A7,2 S R P LDK A1,2 INTERN INDEX S d PCST100 EQU * S P LCR A2,A7 S " P ANK A2,/FF CHARACTER TO TEST S P SUK A2,/30 S P RF(N) CST110 REQUEST ERROR S P S
0x2bbb38…2bbccc Dummy {f00=0x00db, f01=0x406c, f02=» S P* T P* REQUEST ERROR T P* T * PCST110 EQU * T 4 P ABL LENDER T H P END T @ T h2 INTERN INDEX S d PCST100 EQU * S P LCR A2,A7 S " P ANK A2,/FF CHARACTER TO TEST S P SUK A2,/30 S P RF(N) CST110 REQUEST ERROR S P S
0x2bbccc…2bbe60 Dummy {f00=0x00db, f01=0x2008, f02=» U ARACTER TO TEST R P SUK A2,/30 S P RF(N) CST110 REQUEST ERROR S 4 P SUK A2,9 S X P RF(P) CST110 REQUEST ERROR S j P ADK A7,1 S P SUK A1,1 S " P RB(NN) CST100 NEXT CHARACTER S P RTN A5 S P* S P* REQUEST ERROR S
0x2bbe60…2bbff4 (1, 686) Dummy {f00=0x00db, f01=0x0190, f02=» =USED REGISTERS ] & P* NUMBER OF A14 LEVELS = 2 (WORDS) ^ P* ^ B PRECECB EQU * ^ L " P LD A2,FDBRRO,A11 RECORD ADDR ^ ` P ADKL A2,BUFSTA ^ P ADR A2,A4 REC ADDR ^ $ P LD A1,FDBRLE,A11 RECORD LENGTH ^ P SUK A1,6 ^ P ADR A2,A1 ^ P
0x2bbff4…2bc188 Dummy {f00=0x00db, f01=0x0006, f02=»* * *
0x2bc188…2bc31c Dummy {f00=0x00db, f01=0x018e, f02=» > @ IDENT DRTN01 REL 11.0 81-03-18 870105041100 TNAD F PC:DIX V TNAD h , ( @ ( !"+*-, z , ( #$*+ %&,- LENDER , ( ? V qs " !
0x2bc31c…2bc4b0 Dummy {f00=0x00db, f01=0x0190, f02=» , ( yD Y Y X , ( ' _D X 8 ! ! T 5 ! ! 4 , ( @ Q Y Y 0 ! ! d , ( 0 0 Y ! ! P Q ! _ X * & @ " P Y 0 Y Y , ( 5_: Y
0x2bc4b0…2bc644 Dummy {f00=0x00db, f01=0x0190, f02=» Z r , ( G 7 ! ! Y Y _N STABLK B , ( c X " P ! ! T OUTPUT , ( B 1 Y Y ! X ECBBA , ( $ 0 Y ! B 1 ! , (
0x2bc644…2bc7d8 Dummy {f00=0x00db, f01=0x0190, f02=» * & Y 0 ! x ! Y , ( Y P ^ _0 Y 2 , ( / 9 ! ! V ! _ b , ( O _ (# P ! Z LDISP , ( m _> Y Y SET
0x2bc7d8…2bc96c Dummy {f00=0x00db, f01=0x0190, f02=» ,P Y t , ( Y 4 3P 0P X , ( ! T Y W Y 0R !Q B , ( P R : R H >:dW " H >" 9 r * & ' ^ Y 4 X T Y Y , ( ? _ _ Y X ! , ( Y "
0x2bc96c…2bcb00 Dummy {f00=0x00db, f01=0x0190, f02=» Y ! r , ( b 4 Y Y ! t , ( 0 Y ! ^ X B ECBRL r INPUT , ( $" B B 4 X T ! * & BH Y ! ! Y ! Y , ( $ ! !
0x2bcb00…2bcc94 (1, 687) Opaque[0x194]
0x2bcc94…2bce28 # DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b80, f03=0x0000}
0x2bcc94…2bce28 IdxSect {
0x2bcc94…2bce28 f00 = 0x00dc // 0x2bcc94 @0x0
0x2bcc94…2bce28 f01 = 0x0014 // 0x2bcc96 @0x2
0x2bcc94…2bce28 gno = [ // 0x2bcc98 @0x4
0x2bcc94…2bce28 [0x00]: C0x00dc.0x0.0
0x2bcc94…2bce28 [0x01]: C0x00dc.0x1.0
0x2bcc94…2bce28 [0x02]: C0x00dc.0x2.0
0x2bcc94…2bce28 [0x03]: C0x00dc.0x3.0
0x2bcc94…2bce28 [0x04]: C0x00dd.0x0.0
0x2bcc94…2bce28 [0x05]: C0x00dd.0x1.0
0x2bcc94…2bce28 [0x06]: C0x00dd.0x2.0
0x2bcc94…2bce28 [0x07]: C0x00dd.0x3.0
0x2bcc94…2bce28 [0x08]: C0x00de.0x0.0
0x2bcc94…2bce28 [0x09]: C0x00de.0x1.0
0x2bcc94…2bce28 ]
0x2bcc94…2bce28 }
0x2bce28…2bcfbc Dummy {f00=0x00dc, f01=0x0190, f02=» 2 P IDENT DRTP02 REL 11.0 81-02-16 870105041100 P : " P =2, STATUS HANDLING CHANGED B P REL 11.0 81-01-30 h P =1, BLOCK DEF. ADJUSTED P REL 11.0 81-01-26 < P******************************************************* < P*
0x2bcfbc…2bd150 Dummy {f00=0x00dc, f01=0x0190, f02=» * < P* DRTP02 = DRIVER TELLER TERMINAL PRINTER * 2 < P* * r < P* * P* P* P*
0x2bd150…2bd2e4 Dummy {f00=0x00dc, f01=0x018e, f02=»* > P* THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221, P* 6222 OR 6223 L P* d P* n 4 P* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS: x P* $ P* A C T P : ACTIVATION PART P* & P* I H T P : INTERRUPT HA
0x2bd2e4…2bd478 Dummy {f00=0x00dc, f01=0x0190, f02=» P* B P* P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM P* X 6 P* B C D T B Y : CONVERT TO BINARY FROM DECIMAL b P* D P* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST $ P* CHARACTER IN OUTPUT B
0x2bd478…2bd60c Dummy {f00=0x00dc, f01=0x0190, f02=» P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* J $ P* ORDER 00 : TEST STATUS T P* ORDER 06 : WRITE | 0 P* ORDER 0B : POSITION LIFT AND WRITE $ P* ORDER 22 : CUT JOURNAL * P* ORDER 26 :
0x2bd60c…2bd7a0 Dummy {f00=0x00dc, f01=0x0190, f02=» , P* THE FOLLOWING RETURN CODES ARE USED: P* 8 & P* BIT 0 : REQUEST ERROR B 8 P* BIT 2 : END OF JOURNAL TAPE, VOUCHER OUT l 4 P* BIT 7 : RECOVERY EXECUTED ON REQUEST ( P* BIT 13 : CODE CHECK ERROR
0x2bd7a0…2bd934 (1, 688) Dummy {f00=0x00dc, f01=0x0190, f02=»ORK REGISTER ~ " P* A2: INPUT/OUTPUT $ P* A3: BUFFER POINTER : $ P* A4: OUTPUT COUNTER b " P* A5: STACK POINTER P* A6: DWT-ADDRESS P* A7: ORDER P* A8: ECB-A
0x2bd934…2bdac8 Dummy {f00=0x00dc, f01=0x0190, f02=»G FUNCTIONS CAN ` P* BE EXCLUDED: P* 0 > P* RETURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUEST : 4 P* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) | 0 P* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 H P* COMPLETION OF REQUEST AT 'VO
0x2bdac8…2bdc5c Dummy {f00=0x00dc, f01=0x0190, f02=»IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET P* > P* H P EJECT R P* ` P*********** j P* ENTRIES * ~ P*********** P* P* P ENTRY TPAD ADDRESS BLOCK P* P* P* P*************
0x2bdc5c…2bddf0 Dummy {f00=0x00dc, f01=0x0190, f02=»SPATCH I/O ERROR & P EXTRN LENDIS END I/O AND DISPATCH P EXTRN TENDIO END I/O B & P EXTRN OUTPUT OUTPUT ONE CHARACTER ` P EXTRN DWTST STATUS P EXTRN DWTECB ECB ADDRESS P EXTRN DWTOR ORDER & ! EXTRN DWTSB2 STACK BASE 2 IN DWT
0x2bddf0…2bdf84 Dummy {f00=0x00dc, f01=0x018e, f02=»SAVE A3-A5, A7-A8 IN DWT =2 , P EXTRN NDREP GET REGISTERS AND RETURN =2 $ P EJECT T P* b P* ECB DISPLACEMENTS l P* P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LENGTH " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN
0x2bdf84…2be118 Dummy {f00=0x00dc, f01=0x0190, f02=» P************************ P* $ P* . < P* WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET 8 P* BY SETTING X:A = 1 x P* P* PX:A EQU 0 PRECOV EQU X:A P* P* : P* JOURNAL TAPE MAY BE CUT/PERFOR
0x2be118…2be2ac Dummy {f00=0x00dc, f01=0x0190, f02=»* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 P* AND X:D = 1 RESPECTIVLY F P* j P* t PX:C EQU 0 ~ PCHR13 EQU X:C P* P* PX:D EQU 0 PCHR14 EQU X:D P* P* 2 P* PRINTING VOUCH
0x2be2ac…2be440 Dummy {f00=0x00dc, f01=0x018e, f02=»COMPL EQU X:E P* P* > P* IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT * < P* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING l > P* THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET P* P* PX:F EQ
0x2be440…2be5d4 (1, 689) Dummy {f00=0x00dc, f01=0x0190, f02=» P* P EJECT P* P* * P************* 4 P* CONSTANTS * J P************* ` P* v P* . PCCERR EQU /4 RETURN CODE. CODE CHECK ERROR 4 PPROUT EQU /2000 RETURN CODE. END OF JOURNAL TAPE 0 PVOIN EQU /8 'VOUCHER
0x2be5d4…2be768 Dummy {f00=0x00dc, f01=0x0190, f02=»GE ^ @ PVOCHA EQU /200 BIT #6 DWTDEV;VOUCHER STATUS CH. NOT ALLOWED 4 PMESS EQU /400 BIT #5 DWTDEV;TEST MESSAGE WRITTEN N PETX EQU /03 LAST DUMMY , PREMOT EQU /01 RESET PRINT BUFFER REMOTE * PTAB EQU /11 TABULATION CHAR IN BUFFER PCR1 EQ
0x2be768…2be8fc Dummy {f00=0x00dc, f01=0x0190, f02=» ROLL | $ PLDO EQU /0B LIFT DOWN 1 POSITION $ PLUP EQU /0A LIFT UP ONE POSITION 6 $ PLFF EQU /0C LIFT TO TOP POSITION ^ 6 PGRA EQU /1A WAIT FOR INSERTION OF VOUCHER/PASSBOOK ( PREL EQU /1B RELEASE VOUCHER/PASSBOOK " PAPH EQU /1D ATTACH PRINT HEA
0x2be8fc…2bea90 Dummy {f00=0x00dc, f01=0x0190, f02=»********* P* DWT-DISPLACEMENTS * P********************* 0 P* N $ PRLN EQU /4 REQUESTED LINE NUMBER X " PALN EQU /5 ACTUAL LINE NUMBER PPCO EQU /6 POSITION COUNTER P* P*********** P* BUFFERS * P***********
0x2bea90…2bec24 Dummy {f00=0x00dc, f01=0x018e, f02=»PER=1 PBUF2 DATA /0309 P XIF & P DATA /1D20 APH,SPACE 2 " PBUF3 DATA /0209,/1D00 CR2,APH P P =2 v P* P* P* P********** P* TABLES * P********** P* P* P DATA DVBLEN MMU BUFFER SIZE
0x2bec24…2bedb8 Dummy {f00=0x00dc, f01=0x0190, f02=» p P DATA IHTP INTERRUPTHANDLER P DATA RCTP RECOVERY ROUTINE , P* P $ P* TABLE TO GET ROOMLESS POINT Z P* PROMTAB EQU * ( P DATA /2122,/2426,/3B3C,/3E40,/5E5F P* ( P* TABLE TO GET ACTUAL LF-CHARACTER P*
0x2bedb8…2bef4c Dummy {f00=0x00dc, f01=0x0190, f02=»RATE/CUT JOURNAL TAPE p P XIF PTPTAB EQU * ORDER TABLE * P DATA /0002,/0607,/080D J P IFT CUTPER=1 j P DATA /2226 P XIF P DATA /393A PTPLEN EQU *-TPTAB P EJECT P* P* P* A C T P P*
0x2bef4c…2bf0e0 Dummy {f00=0x00dc, f01=0x018e, f02=»* P* PACTP EQU * ACTIVATION ENTRY P* 8 P* B < P* GET DWT INDEX: 0=JOURNAL,1=TALLY,2=VOUCHER/PASSBOOK L " P LC A1,DWTOR,A6 GET DWT INDEX P ANK A1,7 MASK & P ADR A7,A1 ADD DWT INDEX TO ORDER , P SC A7,DWTOR+1,A6 SAVE
0x2bf0e0…2bf274 (1, 690) Dummy {f00=0x00dc, f01=0x0190, f02=» P RF(E) ACT020 VALID ORDER P SUK A3,1 & P RB(NN) ACT010 TRY NEXT 8 P* X P ABL LENDER ILLEGAL ORDER b P* P* PACT020 LDK A1,1 , P ST A1,DWTDEV+PCO,A6 RESET BYTE COUNTER P ADR A3,A3 GET INDEX P ABI TPFUC,A
0x2bf274…2bf408 Dummy {f00=0x00dc, f01=0x0190, f02=» P DATA TP800,TP900 P EJECT " P* 4 P* B P* ORDER 00: TEST P H P* IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE n P* P* P* P* PTPTEST EQU * P L
0x2bf408…2bf59c Dummy {f00=0x00dc, f01=0x0190, f02=»F A5,OUTPUT P RF(NZ) ERTP1 JMP IF ERROR ( P LDK A2,0 SEND CHAR /00=END OF TEST 8 P CF A5,OUTPUT d P RF(NZ) ERTP1 JMP IF ERROR | P RF TPDUMY P EJECT P* P* , P* ORDER 06,0B: WRITE VOUCHER/PASSBOOK > P*
0x2bf59c…2bf730 Dummy {f00=0x00dc, f01=0x0190, f02=»ONTROL WORD IN ECB d P RF ACT085 P* , , PACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS 6 & P LC A3,1,A3 GET CONTROL CHARACTER f $ P ANK A3,/FF REQUESTED LINE STEPS P SUK A3,/39 P RF(G) ACT070 > /39 = ONE LF P ADK A3,/9 P RF(NE
0x2bf730…2bf8c4 Dummy {f00=0x00dc, f01=0x018e, f02=»605 /2B = NO LF PACT070 LDK A3,1 ONE LF 8 PACT080 LC A1,DWTDEV+RLN,A6 GET LINE NUMBER FROM DWT 6 * P SUR A1,A3 GET REQUESTED LINE POSITION r 2 PACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ? * P LDK A1,0 YES; SET LINE POSITION ZERO P*
0x2bf8c4…2bfa58 Dummy {f00=0x00dc, f01=0x0190, f02=» P EJECT P* P* P* * P* ORDER 06 : PRINT JOURNAL 4 P* X P* b P* l * PTP200 LDKL A3,BUF1 SEND CR1 AND ATTACH v PTP210 EQU * P =2 P LD A2,ECBRL,A8 P ADK A2,/F BLOCK LENGTH P CF A5,STA
0x2bfa58…2bfbec Dummy {f00=0x00dc, f01=0x0190, f02=»ESSAGE WRITTEN ? ( P RF(NE) TP220 YES; COMPLETE REQUEST ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH D $ P SUK A1,3 REQUESTED LENGTH 0-2 ? p & P RF(N) TP230 YES; COMPLETE REQUEST P RF(P) TP215 P LD A1,2,A8 BUFFER ADDRESS P LC A2,2,A1 THIR
0x2bfbec…2bfd80 Dummy {f00=0x00dc, f01=0x0190, f02=»ND BUFFER " P CF A5,PRBUF PRINT ECB-BUFFER PTP220 EQU * 8 P LDK A1,0 L 6 PTP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED ^ P ANS A2,DWTDEV,A6 P EJECT P* P* P* ECB-BUFFER IS WRITTEN P* * P* SEND
0x2bfd80…2bff14 (1, 691) Dummy {f00=0x00dd, f01=0x0190, f02=»RINT HEAD | P CF A5,OUTPUT SEND P RF(NZ) ERTP2 JMP IF ERROR , PTPLF10 EQU * N P SUK A7,8 b ( P RF(NN) TPL010 NOT JOURNAL AND TALLY t P ADK A7,2 GET INDEX TABLE $ P LC A2,LFTAB,A7 GET LF CHARACTER P CF A5,OUTPUT SEND LF CHAR.
0x2bff14…2c00a8 Dummy {f00=0x00dd, f01=0x0190, f02=» EJECT P* P* P* COMMON END OF PRINT " P* B P* L " P* SEND LAST DUMMY CHARACTER V P* | PTPDUMY EQU * P LDK A2,ETX P CF A5,OUTPUT P RF(NZ) ERTP2 JMP IF ERROR P EJECT P* P* 0 P
0x2c00a8…2c023c Dummy {f00=0x00dd, f01=0x018e, f02=»NZ) TST010 NO * PTST005 LC A2,DWTDEV+1,A6 GET STATUS =2 P ANK A2,VOIN VOUCHER OUT ? D P RF(NZ) ENDIO NO f P RF TST015 YES ~ P* PTST010 SUK A7,4 P IFT CUTPER=0 * P RF(G) ENDIO NOT TEST STATUS, JOURNAL P XIF P I
0x2c023c…2c03d0 Dummy {f00=0x00dd, f01=0x0190, f02=» & P ANK A2,EOJT END OF JOURNAL TAPE? ! $ P RF(NZ) ENDIO NO: PERFORM ENDIO ! . * PTST015 ORKL A1,PROUT SET RETURN CODE: ! V P ! ( P END OF JOURNAL TAPE, VOUCHER OUT ! P* ! , P* PERFORM END I/O AND GO TO DISPATCHER ! P* ! PENDIO EQU *
0x2c03d0…2c0564 Dummy {f00=0x00dd, f01=0x0190, f02=»ET MESSAGE WRITTEN IND. ! ~ P ANS A1,DWTDEV,A6 " " P LDR A1,A4 RESTORE RETURN CODE " : 4 P ABL LENDIS PERFORM END I/O AND GO TO DISPATCHER " ` P* " P IFT CUTPER=1 " PTST020 SUK A7,16 " " P RB(L) ENDIO VOUCHER/PASSBOOK " P SUK A7,4 " P
0x2c0564…2c06f8 Dummy {f00=0x00dd, f01=0x0190, f02=» PRINT TALLY ROLL " P* # P* # $ P* # . ( PTP405 CF A5,RELEAS ERROR. VOUCHER IN # 8 P =2(=1) # d P* # v * PTP407 LDKL A3,BUF3 SEND CR2 AND ATTACH # PTP410 EQU * # P LDKL A1,VOCHA # @ P ORS A1,DWTDEV,A6 INDICATE VOUCHER STATUS CHANGE
0x2c06f8…2c088c Dummy {f00=0x00dd, f01=0x0190, f02=» OB : POSITION LIFT AND WRITE # P* $ & P* $ 0 PTP605 EQU * $ : P LDK A2,5 BLOCK LENGTH =2 $ P $ P CF A5,STABLK START OF BLOCK =2 $ r " P RF(NZ) ERTP3 JMP IF ERROR =2 $ " P CF A5,GRASP GRASP VOUCHER =2 $ 2 P LC A2,DWTDEV+RLN,A6 GET REQUESTED
0x2c088c…2c0a20 Dummy {f00=0x00dd, f01=0x0190, f02=»A2 =2 $ PTP608 ADK A2,/9 % P CF A5,STABLK START OF BLOCK % & P RF(NZ) ERTP3 JMP IF ERROR % J P =2 % l P EJECT % z P* % P* % * P* SEND ELEVATOR UP/DOWN UNTIL ACTUAL % & P* LINE NUMBER IS EQUAL REQUESTED % P* % P* % 2 P
0x2c0a20…2c0bb4 (1, 692) Dummy {f00=0x00dd, f01=0x0190, f02=»LEVATOR DOWN % ~ * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER & P RF TP640 & B & PTP630 LDK A2,LUP SEND ELEVATOR UP & T * P SUK A3,1 DECREMENT ACTUAL LINE NUMBER & ~ P* & & PTP640 CF A5,OUTPUT SEND LIFT CHAR & P RF(NZ) ERTP3 JMP IF ERROR & P* &
0x2c0bb4…2c0d48 Dummy {f00=0x00dd, f01=0x0190, f02=»OMPL=0 & $ P ABL(Z) RCTP NO: ERROR RECOVERY ' , P RB TP610 YES: CHECK IF LIFT POSITIONED ' 6 P XIF ' f P IFT COMPL=1 ' r 2 P RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED ' & PTP645 LDKL A1,PROUT 'VOUCHER OUT' ' , P ORS A1,ECBRC,A8 INDICATE IN RETUR
0x2c0d48…2c0edc Dummy {f00=0x00dd, f01=0x0190, f02=» EJECT ' P* ( P* ( , P* ORDER 06 AND 0B: LIFT IS POSITIONED ( " * P* ATTACH AND PRINT ( R P* ( P* ( PTP650 EQU * ( P CF A5,ENDBLK END OF BLOCK ( $ PERTP3 RF(NZ) ERTP4 JMP IF ERROR ( & P LDKL A3,BUF2 SEND CR2
0x2c0edc…2c1070 Dummy {f00=0x00dd, f01=0x0190, f02=»ATE JOURNAL ( l P* ) PTP700 EQU * ) P LDK A3,1 SET INDEX ) 2 P RF TP760 ) N PTP750 EQU * ) ` P LDK A3,0 SET INDEX ) t PTP760 LDK A2,/4 BLOCK LENGTH ) P CF A5,STABLK START OF BLOCK ) P RF(NZ) ERTP4 JMP IF ERROR ) P LC A2,CPTAB,A
0x2c1070…2c1204 Dummy {f00=0x00dd, f01=0x018e, f02=»F(NZ) ERTP4 JMP IF ERROR ) P RB TPDUMY * P XIF * 2 P* * > < P* ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK * H P* * PTP800 EQU * * P LDK A2,/9 BLOCK LENGTH * P CF A5,STABLK START OF BLOCK * P RF(NZ) ERTP4 JMP IF ERROR *
0x2c1204…2c1398 Dummy {f00=0x00dd, f01=0x0190, f02=» * p P RB TPDUMY + PTP900 EQU * + P CF A5,RELEAS + . P RB TP850 =2 + D P + Z P EJECT + b P* + p P* P R B U F + z P* + F P* SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED + P* LENGTH IS REACHED + P* +
0x2c1398…2c152c Dummy {f00=0x00dd, f01=0x0190, f02=» SKIP PRECEDING SPACES IN BUFFER + P ADK A3,2 , * " PPRB010 LCR A1,A3 GET CHARACTER , < P CCK A1,/2020 , b P RF(NE) PRB050 NOT BLANK , x P ADK A3,1 BLANK , P SUK A4,1 , " P RB PRB010 GET NEXT CHARACTER , > P* LOOK IF CARRIAGE RETURN CHAR
0x2c152c…2c16c0 Dummy {f00=0x00dd, f01=0x0190, f02=»HAR , ~ * P CCK A1,/0909 CARRIAGE RETURN - CR2 ? - P RF(E) PRB060 YES - : * P CCK A1,/0D0D CARRIAGE RETURN - CR1 ? - T P RF(E) PRB060 YES - P LDK A1,0 DUMMY CHARACTER - P RF PRB070 - . PPRB060 SUK A4,1 DECREMENT REQUESTED LENGTH - , PPRB070
0x2c16c0…2c1854 (1, 693) Dummy {f00=0x00dd, f01=0x0190, f02=»FER - x 6 P LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D) . P RF(E) PRB101 . F P CF A5,OUTPUT SEND CHAR . P RF(NZ) ERTP4 JMP IF ERROR . | PPRB101 EQU * . P CF A5,ENDBLK END OF BLOCK . P RF(NZ) ERTP5 JMP IF ERROR . P LDK A2,1 BLOCK LE
0x2c1854…2c19e8 Dummy {f00=0x00dd, f01=0x0190, f02=»R TO BE PRINTED . n $ PERTP4 RF(NZ) ERTP5 JMP IF ERROR / P CF A5,ENDBLK END OF BLOCK / @ P RF(NZ) ERTP5 JMP IF ERROR / b P LDK A2,3 BLOCK LENGTH / P CF A5,STABLK START OF BLOCK / P RF(NZ) ERTP5 JMP IF ERROR / * P LDKL A1,MESS INDICATE MESSAGE P
0x2c19e8…2c1b7c Dummy {f00=0x00dd, f01=0x0190, f02=» P* 0 PPRB105 EQU * 0 2 P ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED 0 " P SUK A7,7 CHECK ORDER 0 X P RF(L) PRB200 PRINT JOURNAL 0 v P RF(G) PRB110 PRINT VOUCHER 0 P EJECT 0 P* 0 P* 0 P* 0 P* PRINT TALLY ROLL 0 P*
0x2c1b7c…2c1d10 Dummy {f00=0x00dd, f01=0x0190, f02=» " P ADK A5,4 RESET STACK POINTER 1 P CF A5,ENDBLK END OF BLOCK 1 * P RF(NZ) ERTP5 JMP IF ERROR 1 L * P ABL TP405 SEND LIFT TO TOP AND RELEAS 1 n P* 1 P* 1 P* 1 P* PRINT VOUCHER/PASSBOOK 1 P* 1 P* 1 * PPRB110 LC A2,DWTDEV+1,A6
0x2c1d10…2c1ea4 Dummy {f00=0x00dd, f01=0x0190, f02=»OMPL=1 1 P RB(Z) TP645 2 P XIF 2 " $ P LDR A1,A4 COPY REQUESTED LENGTH 2 . P SUK A1,2 R.L. < 3? 2 V $ P RF(N) PRB200 YES: NO TABULATION 2 r P LDK A1,TAB 2 P CC A1,-2,A3 TABULATION? 2 P RF(NE) PRB200 NO 2 P EJECT 2 P* 2 P* 2 4
0x2c1ea4…2c2038 Dummy {f00=0x00dd, f01=0x0190, f02=» PRINT HEAD 2 P* 3 P* 3 ( PPRB115 LDK A2,RPH DETACH PRINT HEAD 3 ( P CF A5,OUTPUT SEND DETACH 3 T P RF(NZ) ERTP5 JMP IF ERROR 3 v , PPRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR 3 $ P LCR A1,A3 GET 2ND TAB POS CHAR 3 P ANK A1,/F LINE UNIT 3
0x2c2038…2c21cc Dummy {f00=0x00dd, f01=0x0190, f02=»20 EQU * 3 6 P CW A1,DWTDEV+PCO,A6 COMPARE WITH ACTUAL TAB. POS. 4 P RF(NG) PRB125 PRINT 4 J P* 4 f P* 4 p 0 P IM DWTDEV+PCO,A6 INCREMENT POSITION COUNTER 4 z P LDK A2,/20 LOAD BLANK 4 ( P CF A5,OUTPUT SEND BLANKS OR DETACH 4 $ PERTP5 RF(NZ) ERT
0x2c21cc…2c2360 Dummy {f00=0x00dd, f01=0x0190, f02=»EMENT BUFFER ADDRESS 4 P LDK A2,APH ATTACH 5 P RF PRB240 SEND ATTACH 5 6 P EJECT 5 T P* 5 b P* 5 l P* 5 v 2 P* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF 5 P* - ROOMLESS POINT 5 P* - ILLEGAL CHARACTER 5 & P* - SPECIAL CHARACTE
0x2c2360…2c24f4 (1, 694) Dummy {f00=0x00dd, f01=0x0190, f02=»F(NE) PRB210 NO 5 & P SUK A3,1 DECREMENT BUFFER POINTER 6 P SUK A4,1 6 B $ P LCR A7,A3 GET OUTPUT CHARACTER 6 T P ANK A7,/F MASK 6 | & P LC A7,ROMTAB,A7 GET CODE IN TABLE 6 P* 6 P* 6 P* 6 , PPRB210 CCK A7,/2020 ILLEGAL CHARACTER ? 6
0x2c24f4…2c2688 Dummy {f00=0x00dd, f01=0x0190, f02=» 6 P IFT CHR13=1 7 & P CCK A7,/1313 SPECIAL CHARACTER ? 7 P RF(E) PRB230 YES 7 F P XIF 7 ` P IFT CHR14=1 7 l & P CCK A7,/1414 SPECIAL CHARACTER ? 7 P RF(E) PRB230 YES 7 P XIF 7 P* 7 " P LDK A1,CCERR CODE CHECK ERROR 7 * P ORS A1,
0x2c2688…2c281c Dummy {f00=0x00dd, f01=0x018e, f02=» $ P LDR A2,A7 GET OUTPUT CHARACTER 8 & PPRB240 CF A5,OUTPUT SEND CHARACTER 8 , P RF(NZ) ERTP6 JMP IF ERROR 8 V , PPRB245 SUR A3,A4 START OF BUFFER ADDRESS 8 x P LD A7,DWTOR,A6 GET ORDER 8 P ANK A7,/FF 8 P RB PRB100 8 P* 8 P* 8 P* 8
0x2c281c…2c29b0 Dummy {f00=0x00dd, f01=0x0190, f02=» 8 PIHTP EQU * 9 P =2 9 . P LD A3,DWTDEV,A6 TERMINAL DEVICE STATUS =2 9 ( " P LDR A4,A3 SAVE OLD STATUS =2 9 Z 2 P SC A2,DWTDEV+1,A6 STORE NEW STATUS IN DWT =2 9 . P ANKL A4,VOCHA STATUS CHANGE ALLOWED ? =2 9 P RF(Z) IHTP10 YES =2 9 " P XRS
0x2c29b0…2c2b44 Dummy {f00=0x00dd, f01=0x018e, f02=» RCTP10 NO, GO TO DISPATCHER =2 9 * P LDK A4,/08 INDICATE STATUS CHANGE =2 : ( $ P RF RCTP FOR RECOVERY ROUTINE =2 : V " PIHTP10 LDR A4,A3 OLD STATUS =2 : ~ 2 P ANKL A4,WAICHA WAITING FOR STATUS CHANGE ? =2 : * P RF(Z) RCTP10 NO, GO TO DISPATCHER =2 : , P
0x2c2b44…2c2cd8 Dummy {f00=0x00dd, f01=0x0190, f02=» : h 4 P XRS A4,DWTDEV,A6 RESET 'WAIT FOR STATUS' BIT =2 ; 0 P ABL NDREP GET A3-A5,A7-A8 AND RET VIA A5 =2 ; @ P* ; t P* ; ~ P* ; P EJECT ; P* ; P* R C T P ; P* ; > P* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON ;
0x2c2cd8…2c2e6c Dummy {f00=0x00dd, f01=0x0190, f02=»A2,/7FFF IND DEVICE BUSY ; P ANS A2,DWTST,A6 < " P LDKL A5,DWTSB2 STACK BASE < < P ADR A5,A6 < ^ P LDK A2,/3 BLOCK LENGTH < p P CF A5,STABLK START OF BLOCK < " PERTP6 RF(NZ) ERTP JMP IF ERROR < P LD A2,DWTECB,A6 < & P RF(Z) RCTP05 REQUES
0x2c2e6c…2c3000 Dummy {f00=0x00dd, f01=0x0190, f02=»ERTP JMP IF ERROR < P IFT COMPL=1 = P ANK A4,/08 STATUS CHANGE ? = . P RF(Z) RCTP05 NO = R P ABL TP645 COMPLETE REQUEST = j P XIF = PRCTP05 EQU * = P LDK A2,0 = 6 P SC A2,DWTDEV+ALN,A6 STORE 0 AS ACTUAL LINE NUMBER = P LDK A2,LFF LI
0x2c3000…2c3194 (1, 695) Dummy {f00=0x00de, f01=0x0190, f02=» . P LDK A2,ETX SEND LAST DUMMY TO STOP TIMER > P CF A5,OUTPUT > 6 P RF(NZ) ERTP JMP IF ERROR > N P CF A5,ENDBLK END OF BLOCK > p P RF(NZ) ERTP JMP IF ERROR > P ABL LENDIS > PRCTP07 EQU * > P IFT RECOV=1 > $ P LDKL A2,/100 INDICA
0x2c3194…2c3328 Dummy {f00=0x00de, f01=0x0190, f02=»NZ) ERTP JMP IF ERROR > $ P LD A7,DWTOR,A6 SET ORDER IN A7 ? P ANK A7,/FF ? F * P ABL ACT005 START RECOVERY OF PRINTER ? Z & PRCTP10 ABL LDISP GO TO DISPATCHER ? P EJECT ? P* ? P* B C D T B Y ? P* ? 4 P* SUBROUTINE TO CONVERT TO
0x2c3328…2c34bc Dummy {f00=0x00de, f01=0x0190, f02=»F(N) BCDTB2 END ? P SUK A1,6 DECREMENT BY 6 @ P RB BCDTB1 @ 8 " PBCDTB2 RTN A5 RETURN TO CALLER @ L P* @ r P* @ | P* @ P* @ P* @ P* G R A S P @ P* @ 4 P* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK @ P* @ P*
0x2c34bc…2c3650 Dummy {f00=0x00de, f01=0x018e, f02=» LDK A3,0 @ P LDK A2,GRA GRASP A P CF A5,OUTPUT A , P RF(NZ) ERTP JMP IF ERROR A B $ P LC A4,DWTDEV+1,A6 GET STATUS =2 A d P ANK A4,VOIN VOUCHER IN ? =2 A P =2 A P RF(Z) COM010 NO =2 A 0 P LC A3,DWTDEV+ALN,A6 GET ACTUAL LINE NO. =2 A
0x2c3650…2c37e4 Dummy {f00=0x00de, f01=0x0190, f02=» A P* B 0 P* ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK B P* B F P* INPUT : A1 = RETURN CODE B P P* B r PERTP EQU * B | P LDK A4,0 B $ P LD A7,DWTOR,A6 SET ORDER IN A7 B P ANK A7,/FF B P RF(NZ) ERTP20 ORDER /00 ? B ( PERTP15 LDK
0x2c37e4…2c3978 Dummy {f00=0x00de, f01=0x0190, f02=» P RB(NZ) RCTP YES RECOVERY C P IFT RELEND=0 C & P ABL LDISP DISPATCH C < P XIF C X P IFT RELEND=1 C d P RB ERTP15 END OF REQ. C z P XIF C P EJECT C P* C P* C P* R E L E A S C P* C 2 P* SUBROUTINE TO SEND LIFT TO T
0x2c3978…2c3b0c Dummy {f00=0x00de, f01=0x0190, f02=» P RB(NZ) ERTP JMP IF ERROR D P LDK A1,0 D & 4 P SC A1,DWTDEV+ALN,A6 SET ACTUAL LINE NUMBER TO 0 D 8 P LDK A2,LFF LIFT TO TOP D p P CF A5,OUTPUT D P RB(NZ) ERTP JMP IF ERROR D $ P LC A4,DWTDEV+1,A6 GET STATUS =2 D P ANK A4,VOIN VOUCHER IN
0x2c3b0c…2c3ca0 Dummy {f00=0x00de, f01=0x0190, f02=» P* E 4 P* COMMON END FOR GRASP AND RELEASE SUBROUTINES E 2 P* WHEN A CHANGE OF VOUCHER STATUS IS WANTED E F P* E | ( PCOM010 CF A5,ENDBLK END OF BLOCK =2 E P RB(NZ) ERTP JMP IF ERROR =2 E P LDK A2,1 BLOCK LENGTH =2 E $ P CF A5,STABLK ST
0x2c3ca0…2c3e34 (1, 696) Dummy {f00=0x00de, f01=0x0190, f02=» RB(NZ) ERTP JMP IF ERROR =2 E " P CF A5,ENDBLK END OF BLOCK =2 F $ P RB(NZ) ERTP JMP IF ERROR =2 F J $ P LC A2,DWTDEV+1,A6 GET STATUS =2 F n 2 P XRR A4,A2 VOUCHER ST. CHANGED SINCE LAST? =2 F & P RF(NZ) COM020 YES, DON'T WAIT =2 F " P CF A5,WAIT WAIT F
0x2c3e34…2c3fc8 Dummy {f00=0x00de, f01=0x0190, f02=»BROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN F ( P* FIRST CHARACTER IN OUTPUT BUFFER G : P* G f P* G p 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS G z P ANK A4,/FF MASK G , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER G $ P LCR A2,A3 GET
0x2c3fc8…2c415c Dummy {f00=0x00de, f01=0x0190, f02=»NZ) BUFC10 NOT LAST CHARACTER G PBUFRTN EQU * H & P RTN A5 RETURN TO CALLER H : P* H Z P* H d P* W A I T H n P* H 4 P* SUBROUTINE USED TO INITIATE WAIT FOR CHANGE H P* IN VOUCHER STATUS. H 0 P* RETURN AFTER SUBROUTINE IS MADE TH
0x2c415c…2c42f0 Dummy {f00=0x00de, f01=0x40ca, f02=»E A3-A5,A7-A8 IN DWT =2 H ~ P LDKL A3,WAICHA =2 I 4 P ORS A3,DWTDEV,A6 INDICATE 'WAIT FOR STATUS' =2 I < P ABL LDISP DISPATCH =2 I t P* I P* I P* I P* I P END I @ I VOUCHER STATUS. H 0 P* RETURN AFTER SUBROUTINE IS MADE TH
0x2c42f0…2c4484 Dummy {f00=0x00de, f01=0x2008, f02=» J * 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
0x2c4484…2c4618 Dummy {f00=0x00de, f01=0x0190, f02=»5,SAVE8 SAVE A1-A8 ON STACK J P XIF K $ P* K 0 P IFF RECHAN=0 K : P IFF RECHAN=1 K P P IFT CPU852=0 K f " P MSR 8,A15 SAVE A1-A8 ON STACK K | P XIF K P* K P IFF RECHAN=0 K P IFF RECHAN=1 K P LDK A7,14 INDICATE CHRT2 K P R
0x2c4618…2c47ac Dummy {f00=0x00de, f01=0x018e, f02=» K P IFF RECHAN=0 L P IFF RECHAN=1 L P IFF RECHAN=2 L 4 $ P ST P,INTSAV SAVE LAST INTERRUPT L J P* L r P IFT CPU852=1 L | & P CF A15,SAVE8 SAVE A1-A8 ON STACK L P XIF L P* L P IFF RECHAN=0 L P IFF RECHAN=1 L P IFF RECHA
0x2c47ac…2c4940 Dummy {f00=0x00de, f01=0x0190, f02=» P IFF RECHAN=2 M P LDK A7,18 INDICATE CHRT3 M P RF CLT010 M < P XIF M N P* M Z P* M d P* C H R T 4 M n P* M P* INTERRUPT FROM CHRT4 M P* M PCHRT4 EQU * M P IFT RECHAN=4 M $ P ST P,INTSAV SAVE LAST INTERRUPT M
0x2c4940…2c4ad4 (1, 697) Opaque[0x194]
0x2c4ad4…2c4c68 # DirEnt {nam=»DRTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bd0, f03=0x0000}
0x2c4ad4…2c4c68 IdxSect {
0x2c4ad4…2c4c68 f00 = 0x00de // 0x2c4ad4 @0x0
0x2c4ad4…2c4c68 f01 = 0x0018 // 0x2c4ad6 @0x2
0x2c4ad4…2c4c68 gno = [ // 0x2c4ad8 @0x4
0x2c4ad4…2c4c68 [0x00]: C0x00de.0x2.0
0x2c4ad4…2c4c68 [0x01]: C0x00de.0x3.0
0x2c4ad4…2c4c68 [0x02]: C0x00df.0x0.0
0x2c4ad4…2c4c68 [0x03]: C0x00df.0x1.0
0x2c4ad4…2c4c68 [0x04]: C0x00df.0x2.0
0x2c4ad4…2c4c68 [0x05]: C0x00df.0x3.0
0x2c4ad4…2c4c68 [0x06]: C0x00e0.0x0.0
0x2c4ad4…2c4c68 [0x07]: C0x00e0.0x1.0
0x2c4ad4…2c4c68 [0x08]: C0x00e0.0x2.0
0x2c4ad4…2c4c68 [0x09]: C0x00e0.0x3.0
0x2c4ad4…2c4c68 [0x0a]: C0x00e1.0x0.0
0x2c4ad4…2c4c68 [0x0b]: C0x00e1.0x1.0
0x2c4ad4…2c4c68 ]
0x2c4ad4…2c4c68 }
0x2c4c68…2c4dfc Dummy {f00=0x00de, f01=0x0190, f02=» 2 P IDENT DRTP03 REL 11.0 81-06-24 870105041100 P : P =4,GREEK CHAR. INCL. B P REL 11.0 81-01-26 b P =3,IMPROV. OF ORDER 37 ~ P REL 11.0 81-01-26 P =2,CORR. FOR ODD ECBADDR. P REL 11.0 81-01-26 P =1,ABORT
0x2c4dfc…2c4f90 Dummy {f00=0x00de, f01=0x0190, f02=» * ~ < P* PHILIPS TERMINAL SYSTEM PTS * . < P* * n < P* DRTP03 = DRIVER TELLER TERMINAL PRINTER * < P*
0x2c4f90…2c5124 Dummy {f00=0x00de, f01=0x018e, f02=»********************* n P* < P* THIS DRIVER HANDLES TELLER TERMINAL PRINTER PTS 6371 ( P* h , P* AND CONSISTS OF THE FOLLOWING PARTS: r P* $ P* A C T P : ACTIVATION PART P* $ P* R C T P : RECOVERY ROUTINE P*
0x2c5124…2c52b8 Dummy {f00=0x00de, f01=0x0190, f02=» > P* THE STRING BEGINS WITH A DEDICATED PRINTER CHARACTER. > P* THE CONTENTS OF THE STRING IS EITHER A FIXED FORMATTED F 2 P* BUFFER OR FOR ORDER WRITE THE USER BUFFER. > P* THE STRING IS TERMINATED WITH AN EXECUTION CHARACTER. : P* AFTE
0x2c52b8…2c544c Dummy {f00=0x00de, f01=0x0190, f02=»E RECOVERY ROUTINE IS ENTERED AFTER PROGRAM LOADING, @ P* AFTER POWER ON FROM TERMINAL SIDE AND AFTER TRANSMISSION < P* TIME OUT. > P* THE RECOVERY ROUTINE SENDS A FIXED FORMATTED STRING TO @ P* THE PRINTER. THIS STRING CONTAINS THE ACTUAL
0x2c544c…2c55e0 Dummy {f00=0x00de, f01=0x0190, f02=» $ P* ORDER 00 : TEST STATUS P* ORDER 06 : WRITE , * P* ORDER 0B : POSITION DOCUMENT N . P* ORDER 24 : SET PRINTER PARAMETERS | 0 P* ORDER 27 : SET DOCUMENT PARAMETERS 4 P* ORDER 37 : TRANSFER DOCUMENT
0x2c55e0…2c5774 (1, 698) Dummy {f00=0x00de, f01=0x0190, f02=»T 0 : REQUEST ERROR & P* BIT 2 : END OF JOURNAL $ $ P* BIT 10 : DOCUMENT OUT N ( P* BIT 13 : CODE CHECK ERROR v $ P* BIT 15 : NOT OPERABLE P* P* P* NORMAL REGISTER USAGE: P* "
0x2c5774…2c5908 Dummy {f00=0x00de, f01=0x0190, f02=»UTPUT COUNTER ~ " P* A5: STACK POINTER P* A6: DWT-ADDRESS < P* A7: ORDER ` P* A8: ECB-ADDRESS ~ P* P* P EJECT P* P*********** P* ENTRIES * P***********
0x2c5908…2c5a9c Dummy {f00=0x00de, f01=0x0190, f02=»******* P* P* , P EXTRN LDISP DISPATCHING FROM INTERRUPT $ $ P EXTRN LENDER DISPATCH I/O ERROR T & P EXTRN LENDIS END I/O AND DISPATCH | & P EXTRN OUTPUT OUTPUT ONE CHARACTER 0 P EXTRN GETCHR GET CHARACTER FROM ECB BUFFER ( P EXT
0x2c5a9c…2c5c30 Dummy {f00=0x00de, f01=0x0190, f02=»SB2 STACK BASE P EXTRN DWTDEV DEVICE STATUS ( P EXTRN DTTP03 DOCUMENT TABLE ADDRESS : ( P EXTRN TLTP03 DOCUMENT TABLE LENGTH f & P EXTRN INPUT GET STATUS INPUT CHAR & P EXTRN STABLK DEF. START OF BLOCK $ P EXTRN ENDBLK DEF. END OF BLOCK
0x2c5c30…2c5dc4 Dummy {f00=0x00de, f01=0x0190, f02=» (/00-/0F) r P* PPOTEST EQU /00 TEST PPORECV EQU /01 RECOVERY 8 & PRESTRT EQU /02 RESTART (NOT USED) X PETX EQU /03 EXECUTE ORDER * PPOPPAR EQU /04 SET PRINTER PARAMETERS $ PPODSTA EQU /05 DIAGNOSTIC STATUS " PEXE EQU /06 EX
0x2c5dc4…2c5f58 Dummy {f00=0x00de, f01=0x0190, f02=» DOCUMENT | $ PLF EQU /0A LINE FEED (NOT USED) $ PPOPDOC EQU /0B POSITION DOCUMENT : PRESET EQU /0C RESET ORDER b PPOWJRL EQU /0D WRITE JOURNAL PSPEC EQU /0E ROOMLESS POINT PTEST EQU /0F TEST (NOT USED) P* ( PENDJ EQU /2000
0x2c5f58…2c60ec Dummy {f00=0x00de, f01=0x0190, f02=»IONAL ASSEMBLY * P************************ P* 8 4 P* THE STANDARD NATIONAL CHARACTER SET IS CHOSEN B 8 P* BY SETTING X:A TO 0-10 ACCORDING TO THE LIST BELOW z P* P* NCV = 0 GREAT BRITAIN P* 1 GERMANY P* 2 FRANCE 1 P
0x2c60ec…2c6280 Dummy {f00=0x00de, f01=0x0190, f02=»CE 2 (DEPENDING ON CHAR GEN) z P* 9 USA $ P* 10 DENMARK, NORWAY 2 6 P* T PX:A EQU 0 ^ PSTDNCV EQU X:A p P* ( P* THE CHARACTER FONT CAN BE SELECTED P P* BY SETTING X:B TO : 0=UPPER CASE/SMALL NUMERIC, 1=LOWER CASE/SMALL NUMERIC
0x2c6280…2c6414 (1, 699) Dummy {f00=0x00df, f01=0x0190, f02=» P* F P* THE STANDARD CHARACTER PITCH FOR THE DOCUMENT STATION IS CHOSEN D P* BY SETTING X:C TO : 0=15 CH/INCH, 1=12 CH/INCH OR 2=10 CH/INCH X P* PX:C EQU 2 PSTDCPD EQU X:C P* * P* THE JOURNAL STATION CAN BE EXCLUDED
0x2c6414…2c65a8 Dummy {f00=0x00df, f01=0x0190, f02=»TATION IS CHOSEN ` D P* BY SETTING X:F TO : 0=15 CH/INCH, 1=12 CH/INCH OR 2=10 CH/INCH P* ` PX:E EQU 0 j PSTDCPJ EQU X:E | P* : P* THE "SET PARAMETER" ORDERS 24 AND 27 CAN BE INCLUDED P* BY SETTING X:F=1 P* PX:F EQU 0
0x2c65a8…2c673c Dummy {f00=0x00df, f01=0x0190, f02=»* PMMUPAG EQU 0 P* P* ( 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 2 . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. l P* PCPU852 EQU 1 P* P* MMU BUFFER SIZE P* PX:G EQU 126 PDVBLEN E
0x2c673c…2c68d0 Dummy {f00=0x00df, f01=0x0190, f02=» EQU X:H P* B P* THE CHARACTERS /B0-/B9 WILL BE CONVERTED TO /1B,/41-/1B,/4A 4 P* BY SETTING X:I=1. GREEK ADDITIONAL CHARACTERS. ` P* PX:I EQU 0 * =4 PGREEK EQU X:I * =4 P* P* P* P* B PPRIPAR FORM 1=
0x2c68d0…2c6a64 Dummy {f00=0x00df, f01=0x0190, f02=»S * ~ P********************* P* * P* 4 P* > PPP EQU /2 PRINTER PARAMETERS H PPPJ EQU /4 PRINT POS JOURNAL l * PAPJ EQU PPJ+1 ACTUAL PRINT POS JOURNAL , PRPJ EQU PPJ REQUESTED PRINT POS JOURNAL " PPPD EQU /6 PRINT POS DOCUM
0x2c6a64…2c6bf8 Dummy {f00=0x00df, f01=0x018e, f02=»UMENT t 0 PALN EQU LN+1 ACTUAL LINE NUMBER ON DOCUMENT 0 PRLN EQU LN REQUESTED LINE NUMBER ON DOCUMENT B " PDP EQU /A DOCUMENT PARAMETERS v P* P* P********************* P* ECB-DISPLACEMENTS * P*********************
0x2c6bf8…2c6d8c Dummy {f00=0x00df, f01=0x0190, f02=» j " PECBRC EQU 8 RETURN CODE IN ECB $ PECBCW EQU 10 CONTROL WORD IN ECB . P EJECT V P* d P********** n P* TABLES * P********** P* P* P* ADDRESS BLOCK P* P DATA DVBLEN MMU BUFFER SIZE P DATA 2 DE
0x2c6d8c…2c6f20 Dummy {f00=0x00df, f01=0x0190, f02=»TERRUPT HANDLER P DATA RCTP RECOVERY ROUTINE P* < , P* VALID ORDERS WITH ACTIVATION ADDRESSES F P* v PTPTAB EQU * & P DATA TPTAB0 DEVICE INDEX 0 TABLE & P DATA TPTAB1 DEVICE INDEX 1 TABLE & P DATA TPTAB2 DEVICE INDEX 2 TABL
0x2c6f20…2c70b4 (1, 700) Dummy {f00=0x00df, f01=0x0190, f02=»TUS (JOURNAL) P DATA TSTSTA P DATA 6 WRITE JOURNAL * P DATA WRTJRL H P IFT PARORD=1 $ P DATA /24 SET PRINTER PARAMETERS r P DATA PRTPAR P XIF P DATA /FFFF END OF ORDERS P* PTPTAB1 EQU * DEVICE INDEX 1 "
0x2c70b4…2c7248 Dummy {f00=0x00df, f01=0x0190, f02=»T v P DATA POSDOC P DATA /38 RELEASE DOCUMENT P DATA RELDOC @ * P DATA /37 TRANSFER DOCUMENT PARAMETERS T P DATA TRFDOC P IFT PARORD=1 $ P DATA /24 SET PRINTER PARAMETERS P DATA PRTPAR & P DATA /27 SET DOCUMENT PARAMETER
0x2c7248…2c73dc Dummy {f00=0x00df, f01=0x0190, f02=»D OF ORDERS P* PTPTAB3 EQU * DEVICE INDEX 3 P DATA /FFFF END OF ORDERS B P* d ( P* SYSTEM STANDARD PRINTER PARAMETERS n P* . PSTDPP PRIPAR STANDARD PRINTER PARAMETERS P EJECT P* P* P* A C T P
0x2c73dc…2c7570 Dummy {f00=0x00df, f01=0x0190, f02=» P* P* PACTP EQU * ACTIVATION ENTRY P* @ P* J , P* GET DWT INDEX: 0=JOURNAL, 1=DOCUMENT T P* " P LC A2,DWTOR,A6 GET DWT INDEX P ANK A2,3 MASK P SLL A2,6 SHIFT * P LD A3,DWTDEV,A6 GET OLD DEVICE INDEX
0x2c7570…2c7704 Dummy {f00=0x00df, f01=0x018e, f02=»A6 GET DEVICE INDEX | P ANK A1,/C0 * P SRL A1,5 GET CORESPONDING ORDER TABLE 0 P LD A2,TPTAB,A1 ^ PACT010 LDR* A3,A2 v ( P ABL(N) LENDER NO MORE VALID ORDERS " P SUR A3,A7 TEST IF ORDER VALID $ P RF(E) ACT020 VALID ORDER FOUND
0x2c7704…2c7898 Dummy {f00=0x00df, f01=0x0190, f02=» P* ORDER 00 : TEST STATUS P* & P* 0 PTSTSTA EQU * : $ P CM ECBCW,A8 CLEAR CONTROL WORD N P LDK A2,3 BLOCK LENGTH v " P LDK A3,POTEST LOAD TEST ORDER P CF A5,ORDER AND SEND * P CF A5,EXECUT EXECUTE ORDER IN PRINTER P
0x2c7898…2c7a2c Dummy {f00=0x00df, f01=0x0190, f02=»ST05 EQU * P LDK A2,3 BLOCK LENGTH ( P LDK A3,PODSTA LOAD DIAGNOSTIC ORDER 0 P CF A5,ORDER AND SEND * P CF A5,EXECUT EXECUTE ORDER IN PRINTER z 0 P SC A2,ECBCW+1,A8 SET UP DIAGN STATUS IN ECB $ P LDK A1,1 INDICATE NOT OPERABLE P RF
0x2c7a2c…2c7bc0 Dummy {f00=0x00df, f01=0x018e, f02=»ST DEVICE INDEX $ P RF(NZ) TSST40 DEVICE INDEX > 0 $ P ANK A1,/22 TEST PRINTER STATUS @ P RF(Z) TSST80 NO ERRORS h " P ANK A1,2 TEST PRINTER STATUS * P RB(NZ) TSST05 JOURNAL ERROR = NOT OP P LDKL A1,ENDJ END OF JOURNAL P RF TSST
0x2c7bc0…2c7d54 (1, 701) Dummy {f00=0x00df, f01=0x0190, f02=» " PTSST80 ABL LENDIS END REQUEST P EJECT * P* : P* D P* ORDER 06 : WRITE JOURNAL N P* r P* | P IFT JOURNL=1 PWRTJRL EQU * P LD A1,DWTDEV,A6 GET STATUS " P ANK A1,/20 TEST LF INDICATOR P RF(NZ) WRJL10
0x2c7d54…2c7ee8 Dummy {f00=0x00df, f01=0x0190, f02=» , P LD A2,ECBBA,A8 GET CONTROL CHARACTER =2 P LC A2,1,A2 * =2 4 P ANK A2,/FF L P SUK A2,/2B TEST CTRL CHAR ` P RF(Z) WRJL10 CTRL CHAR =/2B ( P LDK A4,2 SET UP 2 LF (CTRL CH =/30) P SUK A2,5 TEST CTRL CHAR P RF(Z) WRJL05 CTRL CHA
0x2c7ee8…2c807c Dummy {f00=0x00df, f01=0x0190, f02=» LDK A4,3 SET UP 3 LF (CTRL CH =/31) PWRJL05 EQU * , P LDK A2,4 BLOCK LENGTH @ , P LDK A3,POWJRL LOAD WRITE JOURNAL ORDER ^ P CF A5,ORDER AND SEND & P LDR A2,A4 RELOAD NO OF LINE FEED P CF A5,OUT AND SEND * P CF A5,EXECUT EXECUTE
0x2c807c…2c8210 Dummy {f00=0x00df, f01=0x0190, f02=»PJ,A6 CLEAR PRINT POSITION " P LDK A1,/20 SET UP LF EXECUTED ! " $ P ORS A1,DWTDEV,A6 IND IN STATUS ! H PWRJL10 EQU * ! p P LD A2,ECBRL,A8 ! P ADK A2,2 BLOCK LENGTH ! . P LC A1,DWTDEV+APJ,A6 GET ACTUAL PRINT POS ! 4 P SC A1,DWTDEV+RPJ,A6 SET UP
0x2c8210…2c83a4 Dummy {f00=0x00df, f01=0x0190, f02=»IF NO BUFFER ! $ P RF(Z) WRJL60 NO BUFFER TO PRINT " , P LDK A3,POWJRL LOAD WRITE JOURNAL ORDER " < P CF A5,ORDER AND SEND " l " P LDK A2,0 LOAD ZERO LINE FEED " P CF A5,OUT AND SEND " 2 P LDKL A4,/100 SET UP NORMAL CHAR COUNTER IN A4 " $ P LDK A
0x2c83a4…2c8538 Dummy {f00=0x00df, f01=0x0190, f02=»HED " v P LDR A1,A2 GET CHAR IN A1 # P* # . 2 P* EXAMINE CHAR AND UPDATE PRINT POS AND SEND # 8 & P* DEPENDING ON TYPE OF CHARACTER # n P* # P SUK A1,/10 # P RB(N) WRJL20 CHAR </10 # P RF(Z) WRJL30 CHAR = /10 # P SUK A1,9 # * P
0x2c8538…2c86cc Dummy {f00=0x00df, f01=0x0190, f02=» SUK A1,7 # P RF(N) WRJL40 CHAR </20 SEND $ P SUK A1,/5F $ 6 P RB(Z) WRJL20 CHAR=/7F $ J P RF(N) WRJL30 CHAR = NORMAL $ h P SUK A1,/2F $ P RF(Z) WRJL28 CHAR =/AE $ P IFT GREEK=1 * =4 $ 4 P CF A5,GRECON CONVERSION FOR GREEK CHARACTERS
0x2c86cc…2c8860 Dummy {f00=0x00df, f01=0x0190, f02=»D CODE CHECK ERROR $ $ P ORS A1,ECBRC,A8 IN RETURN CODE % P RB WRJL20 % B PWRJL28 LDK A2,/0E % T P RF WRJL40 % n P % P* UPDATE PRINT POSITION % P % < PWRJL30 ADS A4,DWTDEV+RPJ,A6 ADD 1 OR 2 TO REQ PRINT POS % P % P* SEND CHARA
0x2c8860…2c89f4 (1, 702) Dummy {f00=0x00df, f01=0x018e, f02=» % r P & P* SEND ETX & P & $ 0 PWRJL50 CF A5,EXECUT EXECUTE ORDER IN PRINTER & , P U =1 & ` " P LDR A1,A2 GET PRINTER STATUS & p $ P ANK A1,/27 TEST PRINTER STATUS & P RF(Z) WRJL60 NO ERRORS & " P ANK A1,3 TEST PRINTER STATUS & P RF(
0x2c89f4…2c8b88 Dummy {f00=0x00df, f01=0x0190, f02=» & r < PWRJL60 LC A3,DWTDEV+RPJ,A6 GET REQUESTED PRINT POSITION ' 6 P SC A3,DWTDEV+APJ,A6 SET UP ACTUAL PRINT POSITION ' H P RF WRJL70 ' * PWRJL65 LDK A1,1 INDICATE NOT OPERABLE ' " PWRJL70 ABL LENDIS END REQUEST ' 4 PWRJL80 ABL LENDER END REQUEST WI
0x2c8b88…2c8d1c Dummy {f00=0x00df, f01=0x0190, f02=»OC EQU * ' ( P LC A4,DWTDEV+ALN,A6 GET ACTUAL LINE ( P ANK A4,/FF ( < ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH ( P $ P SUK A1,2 TEST REQUESTED LENGTH ( | P RF(N) WRDO80 REQUEST ERROR ( , P LD A2,ECBBA,A8 GET CONTROL CHARACTER =2 ( P LC A2,1,A2 * =2
0x2c8d1c…2c8eb0 Dummy {f00=0x00df, f01=0x0190, f02=» ( P LDK A3,0 PREPARE NEW REQ PRINT POS ) * P ADK A4,2 SET REQ LINE = ACT LINE + 2 ) 0 P SUK A2,5 ) ^ " P RF(Z) WRDO05 CTRL CHAR = /30 ) p * P SUK A4,1 SET REQ LINE = ACT LINE + 1 ) P SUK A2,1 ) & P RF(NZ) WRDO05 CTRL CHAR NOT = /31 ) P LDK A4,
0x2c8eb0…2c9044 Dummy {f00=0x00df, f01=0x0190, f02=»INES ) r : PWRDO07 SC A3,DWTDEV+RPD,A6 SET UP START REQ PRINT POS * , P SC A4,DWTDEV+RLN,A6 SET UP REQ LINE NO * J P LDR A4,A4 * z P RF(Z) WRDO80 REQ LINE=ZERO * PWRDO10 EQU * * P LD A2,ECBRL,A8 * P ADK A2,2 BLOCK LENGTH * ( P LDK A3,POWDOC
0x2c9044…2c91d8 Dummy {f00=0x00df, f01=0x0190, f02=»SET UP NORMAL CHARACTER COUNT * $ P LDK A3,2 SET UP BUFFER POINTER + & 6 PWRDO20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER + N P LDR A1,A1 + " P RF(Z) WRDO50 BUFFER FINISHED + P LDR A1,A2 GET CHARACTER + P + 8 P* EXAMINE CHARACTER AND UPDATE
0x2c91d8…2c936c Dummy {f00=0x00df, f01=0x0190, f02=» WRDO30 CHAR = /10 SEND + PWRDO22 SUK A1,9 , * P RF(NZ) WRDO27 CHAR NOT /19 (=EXPAND) , 8 , P XRKL A4,/300 SWITCH CHAR COUNTER IN A4 , f P RF WRDO40 SEND EXPAND CHAR , PWRDO27 SUK A1,7 , " P RF(N) WRDO40 CHAR < /20 SEND , P SUK A1,/5F ,
0x2c936c…2c9500 Dummy {f00=0x00df, f01=0x0190, f02=» * =4 , 4 P CF A5,GRECON CONVERSION FOR GREEK CHARACTERS =4 - P LDR A1,A1 * =4 - F * P RF(Z) WRDO30 SUCCESSFUL CONVERSION =4 - ^ P XIF * =4 - ( P LDK A1,4 INDICATE CODE CHECK ERROR - $ P ORS A1,ECBRC,A8 IN RETURN CODE - P RB WRDO20 - & PWRDO
0x2c9500…2c9694 (1, 703) Dummy {f00=0x00e0, f01=0x0190, f02=» 2 TO REQ PRINT POS - l P . " P* SEND CHARACTER TO PRINTER . $ P . J & PWRDO40 CF A5,OUTPUT SEND CHARACTER . R P ABL(NZ) ERTP JMP IF ERROR . | P RB WRDO20 GET NEXT CHAR . P . P* SEND ETX . P . 0 PWRDO50 CF A5,EXECUT EXECUTE ORDER IN P
0x2c9694…2c9828 Dummy {f00=0x00e0, f01=0x0190, f02=» " P ANK A1,1 TEST PRINTER STATUS / P RF(NZ) WRDO70 NOT OPERABLE / * " P ANK A2,4 TEST PRINTER STATUS / N P RF(NZ) WRDO80 REQUEST ERROR / t ( P LC* A1,DWTDEV+DP,A6 DOCUMENT OUT =3 / ( P ANK A1,/78 TEST DOC PAR (TIME OUT) / 0 P RB(NZ) WRTDOC NO TIME O
0x2c9828…2c99bc Dummy {f00=0x00e0, f01=0x0190, f02=»ER / l P RF WRDO65 0 8 PWRDO60 LC A3,DWTDEV+RLN,A6 GET REQUESTED LINE NUMBER 0 6 P LC A4,DWTDEV+RPD,A6 GET REQUESTED PRINT POSITION 0 X 8 PWRDO65 SC A3,DWTDEV+ALN,A6 SET UP ACTUAL LINE NUMBER 0 6 P SC A4,DWTDEV+APD,A6 SET UP ACTUAL PRINT POSITION 0 P
0x2c99bc…2c9b50 Dummy {f00=0x00e0, f01=0x018e, f02=»APD,A6 GET ACTUAL LINE NUMBER 0 | P ANK A3,/FF 1 & 6 P ST A3,ECBCW,A8 SET UP ACTUAL LINE IN CONTROL WORD 1 : . P ABL LENDER END REQUEST WITH REQUEST ERROR 1 t P EJECT 1 P* 1 P* 1 $ P* ORDER 0B : POSITION DOCUMENT 1 0 P* CONTROL WORD CONTAIN
0x2c9b50…2c9ce4 Dummy {f00=0x00e0, f01=0x018e, f02=» 1 t . P LD A1,DWTDEV+DP,A6 GET NUMBER OF LINES =3 2 P CC A4,2,A1 * =3 2 : & P RF(G) PDOC80 REQ LINE > MAX LINE 2 R , P SC A4,DWTDEV+RLN,A6 SET UP REQ LINE NO 2 | P LDK A2,4 BLOCK LENGTH 2 : P LDK A3,POPDOC SET UP PRINTER POSITION DOCUMENT ORDER 2 P
0x2c9ce4…2c9e78 Dummy {f00=0x00e0, f01=0x018e, f02=» " P LDR A1,A2 GET PRINTER STATUS 3 $ P ANK A1,/45 TEST PRINTER STATUS 3 * P RF(Z) PDOC10 NO ERRORS 3 R " P ANK A1,1 TEST PRINTER STATUS 3 r P RF(NZ) PDOC70 NOT OPERABLE 3 " P ANK A2,4 TEST PRINTER STATUS 3 P RF(NZ) PDOC80 REQUEST ERROR 3 ( P L
0x2c9e78…2ca00c Dummy {f00=0x00e0, f01=0x0190, f02=» ( P LDK A1,DOCOUT INDICATE DOCUMENT OUT 4 P LDK A4,0 RESET LINE COUNTER 4 0 6 PPDOC10 SC A4,DWTDEV+ALN,A6 PDATE OF LINE COUNTER 4 T 2 P CM DWTDEV+PPD,A6 RESET PRINT POSITION COUNTER 4 " PPDOC70 ABL LENDIS END REQUEST 4 4 PPDOC80 ABL LENDER END REQUEST
0x2ca00c…2ca1a0 Dummy {f00=0x00e0, f01=0x0190, f02=»NVERTED 4 b 0 P* TO /41-/4A. THE SPECIAL CHARACTER /1B WILL 5 0 P* BE SENT TO THE PRINTER BEFORE RETURN FROM 5 D > P* THIS ROUTINE. REG A1 WILL BE SET TO ZERO IF SUCCESSFUL. 5 x P IFT GREEK=1 * =4 5 PGRECON EQU * * =4 5 P SUK A1,2 * =4 5 P RF(
0x2ca1a0…2ca334 (1, 704) Dummy {f00=0x00e0, f01=0x0190, f02=» TEMP =4 5 | & P LDK A2,/1B SET UP SPECIAL CHAR =4 6 $ P CF A5,OUTPUT SEND CHARACTER =4 6 : P LDR A2,A4 RESTORE CHAR =4 6 b P ANK A2,/FF * =4 6 0 P SUK A2,/6F CONVERT CHAR (/B0 = /41 ETC.) =4 6 & P ANKL A4,/FF00 CLEAR USED BITS =4 6 0 P LDK A1,0 INDI
0x2ca334…2ca4c8 Dummy {f00=0x00e0, f01=0x0190, f02=»NSFER DOCUMENT PARAMETERS 6 ~ 4 P* CONTROL WORD CONTAINS DOCUMENT TABLE NUMBER 7 " P* 7 Z P* 7 d PTRFDOC EQU * 7 n P LD A1,ECBCW,A8 7 P ADK A1,1 7 P LDR A4,A1 7 P SLL A4,3 7 P ADR A4,A1 7 P ADR A4,A1 7 P CWK A4,TLTP03 7 ,
0x2ca4c8…2ca65c Dummy {f00=0x00e0, f01=0x0190, f02=»NE 7 n P ANK A1,/FF TEST LINE NUMBER 8 , P RF(Z) ODOC20 DOCUMENT NOT YET POS (OK) 8 . $ P LCR A1,A4 GET DOCUMENT TYPE =3 8 ^ P ANK A1,4 8 0 P RF(Z) ODOC80 REQUEST ERROR FOR DOC TYPE 0-3 8 PODOC20 EQU * 8 , P ST A4,DWTDEV+DP,A6 SAVE DOC PAR ADDR =3
0x2ca65c…2ca7f0 Dummy {f00=0x00e0, f01=0x0190, f02=»P TABLE LENGTH =3 8 * PODOC30 LCR A2,A4 GET DOC PARAMETER =3 9 P CF A5,OUT SEND PARAMETER =3 9 H " P ADK A4,1 INC TABLE POINTER =3 9 l & P SUK A3,1 DEC PARAMETER COUNTER =3 9 ( P RB(NE) ODOC30 WHOLE TABLE NOT SENT 9 * P CF A5,EXECUT EXECUTE ORDER IN P
0x2ca7f0…2ca984 Dummy {f00=0x00e0, f01=0x0190, f02=» 9 r 4 PODOC80 ABL LENDER END REQUEST WITH REQUEST ERROR : P EJECT : @ P* : P P* : Z * P* ORDER 24 : SET PRINTER PARAMETERS : d P* CONTROL WORD CONTAINS: : 6 P* BIT 0 : INDICATE CHANGE OF CH FONT AND NCV : " P* BIT 01-03 : CHARACTER
0x2ca984…2cab18 Dummy {f00=0x00e0, f01=0x0190, f02=»5 : CHARACTER PITCH FOR DOCUMENT STATION : P* ; 0 P* ; : P IFT PARORD=1 ; D PPRTPAR EQU * ; Z P LDK A2,0 ; n * P LD A4,DWTDEV+PP,A6 GET OLD DWT VALUE ; 0 P ABL(NN) LDISP WAIT FOR INITIAL RECOVERY =1 ; $ P LD A1,ECBCW,A8 GET CONTROL WORD ; 4
0x2cab18…2cacac Dummy {f00=0x00e0, f01=0x0190, f02=»WT ; h PPPAR10 LDK A2,0 < P LDR A3,A1 < " P ANK A3,/F0 GET CTRL WORD < 4 . P RF(NZ) PPAR15 NEW CPJ SET UP IN CTRL WORD < V P LDR A3,A4 < P ANK A3,/F0 < PPPAR15 EQU * < " P ORR A2,A3 STORE NEW CPJ IN A2 < P XRR A3,A4 < ( P ANK A3,/F0 NE
0x2cacac…2cae40 Dummy {f00=0x00e0, f01=0x0190, f02=»DR A3,A1 < P ANK A3,/F GET CTRL WORD = . P RF(NZ) PPAR25 NEW CPD SET UP IN CTRL WORD = 0 P LDR A3,A4 = b P ANK A3,/F GET CPD FROM DWT = t P = PPPAR25 EQU * = " P ORR A2,A3 STORE NEW CPD IN A2 = P XRR A3,A4 = & P ANK A3,/F NEW AND OLD CPD
0x2cae40…2cafd4 (1, 705) Dummy {f00=0x00e0, f01=0x0190, f02=»6 STORE NEW PARAMETERS IN DWT = | P LDK A2,5 BLOCK LENGTH > & 8 P LDK A3,POPPAR LOAD PRINTER PRINTER PARAMETER ORDER > D P CF A5,ORDER AND SEND > P LC A2,DWTDEV+PP,A6 > P CF A5,OUT SEND L/NCV > P LC A2,DWTDEV+PP+1,A6 > P CF A5,OUT SEND CP
0x2cafd4…2cb168 Dummy {f00=0x00e0, f01=0x018e, f02=» STATUS > z " PPPAR70 ABL LENDIS END REQUEST ? P XIF ? 6 P EJECT ? B P* ? R P* ? * P* ORDER 27 : SET DOCUMENT PARAMETERS ? f : P* CONTROL WORD CONTAINS TABLE NO OF GIVEN PARAMETERS ? P* ? P* ? P IFT PARORD=1 ? PDOCPAR EQU *
0x2cb168…2cb2fc Dummy {f00=0x00e0, f01=0x0190, f02=» P CWK A4,TLTP03 @ * P RF(G) DPAR80 DEFINED TABLE TOO SMALL @ $ P SUK A4,10 ADJUST DOCTAB POINTER @ H & P LD A3,ECBBA,A8 GET BUFFER ADDRESS @ p P CF A5,BYTE1 GET DOC TYPE @ P SUK A1,7 @ P RF(P) DPAR80 ILLEGAL VALUE @ P SC A2,DTTP03,A4 @ $
0x2cb2fc…2cb490 Dummy {f00=0x00e0, f01=0x018e, f02=» P RF(P) DPAR80 TOO LARGE A P CF A5,DOC GET NO OF LINES A $ P SUK A2,0 A F P RF(Z) DPAR80 NO LINES A X P CF A5,DOC GET BOTTOM LINES A v P SUK A2,14 A P RF(N) DPAR80 TOO SMALL A P CF A5,DOC GET MARGIN A P SUK A2,0 A P RF(Z) DPAR8
0x2cb490…2cb624 Dummy {f00=0x00e0, f01=0x0190, f02=» A P RF(Z) DPAR80 TOO SMALL B P SUK A1,7 B ( P RF(P) DPAR80 TOO LARGE B : P SC A2,DTTP03,A4 B Z P CF A5,BYTE1 GET LEFT MARGIN B r P SUK A1,1 B P RF(P) DPAR80 ILLEGAL VALUE B P SLL A2,3 B P ORS A2,DTTP03,A4 B $ P CF A5,BYTE1 GET
0x2cb624…2cb7b8 Dummy {f00=0x00e0, f01=0x0190, f02=»ET HIGH PRINT PRESSURE B P SUK A1,1 C P RF(P) DPAR80 ILLEGAL VALUE C 0 P SLL A2,6 C T P ORS A2,DTTP03,A4 C f " P LC* A1,ECBBA,A8 GET DOC TYPE C P ANK A1,/B C P RF(Z) DPAR60 DOC TYPE = 0 C P CF A5,DOC GET UPPER EDGE C P SUK A2,15 C
0x2cb7b8…2cb94c Dummy {f00=0x00e0, f01=0x0190, f02=» P RF(Z) DPAR30 OK D P SUK A2,24 D P RF(N) DPAR80 TOO SMALL D . ( PDPAR30 LC* A1,ECBBA,A8 GET DOC TYPE D N P ANK A1,/B D z P SUK A1,2 D P RF(N) DPAR70 DOC TYPE = 1 D P RF(P) DPAR40 DOC TYPE = 3 D " P CF A5,DOC GET DOCUMENT WIDTH D P
0x2cb94c…2cbae0 Dummy {f00=0x00e0, f01=0x0190, f02=»ET UPPER LINES D ~ P SUK A2,0 E P RF(Z) DPAR80 TOO SMALL E ( P SUK A2,40 E H P RF(P) DPAR80 TOO LARGE E Z & PDPAR50 CF A5,DOC GET CENTER WIDTH E z P RF DPAR75 OK E 0 PDPAR60 LDK A2,0 DT=0 SET 4 LAST PARAMETERS=0 E P ADK A4,1 E P ST A2,D
0x2cbae0…2cbc74 (1, 706) Dummy {f00=0x00e0, f01=0x0190, f02=»DK A1,0 IND STATUS OK FOR RETURN CODE E P ABL LENDIS END REQUEST F . 4 PDPAR80 ABL LENDER END REQUEST WITH REQUEST ERROR F N P F 2 P* GET ONE BYTE FROM ECB BUFFER TO A1 AND A2 F $ P* CONVERTED TO HEXA FROM ASCII F P F " PBYTE1 LCR A2,A3 GET
0x2cbc74…2cbe08 Dummy {f00=0x00e0, f01=0x0190, f02=»FFER POINTER F | P RTN A5 G P G $ , P* GET TWO BYTES FROM ECB BUFFER TO A2 G , 2 P* CONVERTED TO HEXA AND STORED IN DOC TABLE G P G " PDOC LDK A1,0 CLEAR HEXA VALUE G P ADK A4,1 INC TABLE POINTER G , P LCR A2,A3 GET CHARACTER FROM ECB BU
0x2cbe08…2cbf9c Dummy {f00=0x00e0, f01=0x0190, f02=»PDATE TENTH G P RB DOC10 H * PDOC20 ADK A3,1 INC ECB BUFFER POINTER H & 2 P LCR A2,A3 GET NEXT CHARACTER FROM ECB BUFFER H T P CF A5,CHECK TEST IF NUMERIC H P ANK A2,/F H & P ADR A2,A1 ADD TO PREV HEXA VALUE H ( P SC A2,DTTP03,A4 STORE IN DOC
0x2cbf9c…2cc130 Dummy {f00=0x00e0, f01=0x018e, f02=»FF MASK OUT CHARACTER H P SUK A2,/30 I P RB(N) DPAR80 TOO LOW ERROR I 2 P SUK A2,9 I V P RB(P) DPAR80 TOO HIGH ERROR I h " P ADK A2,/39 RESTORE CHARACTER I P RTN A5 I P XIF I P EJECT I P* I P* I $ P* ORDER 38 : RELEASE
0x2cc130…2cc2c4 Dummy {f00=0x00e0, f01=0x0190, f02=» P CF A5,ORDER AND SEND J * P CF A5,EXECUT EXECUTE ORDER IN PRINTER J " " P LDR A1,A2 GET PRINTER STATUS J P " P ANK A1,1 TEST PRINTER STATUS J v P RF(NZ) RDOC70 NOT OPERABLE J ( P CM DWTDEV+LN,A6 RESET LINE COUNTERS J 4 P CM DWTDEV+PPD,A6 RESET PRIN
0x2cc2c4…2cc458 Dummy {f00=0x00e0, f01=0x0190, f02=» J P K P* K P* O R D E R K B P* SEND START OF BLOCK CHAR TO COM. AND ORDER CODE TO PRINTER K 0 P* K v PORDER EQU * K P CF A5,STABLK START OF BLOCK K P RF(NZ) ERTP JMP IF ERROR K * P LDK A2,RESET SEND RESET JUST IN CASE K P
0x2cc458…2cc5ec Dummy {f00=0x00e0, f01=0x0190, f02=»E K H P* SEND EXECUTE CHAR (/03) TO PRINTER AND END OF BLOCK CHAR TO COM. L P* L V PEXECUT EQU * L ` , P LDK A2,ETX SEND EXECUTE CHAR TO PRINTER L t P CF A5,OUTPUT L P RF(NZ) ERTP JMP IF ERROR L P CF A5,ENDBLK END OF BLOCK L P RF(NZ) ER
0x2cc5ec…2cc780 Dummy {f00=0x00e0, f01=0x0190, f02=»=1 L 4 P RF(Z) EXE10 POS, BIT 3 IN STATUS DON'T CARE =1 M P SUK A1,/38-/0B U =1 M B 4 P RF(Z) EXE10 REL, BIT 3 IN STATUS DON'T CARE =1 M ^ * P LDR A1,A2 TEST IF STATUS BIT 3 = 1 =1 M P ANK A1,/18 * =3 M . P RB(Z) EXE05 BIT 3 = 0, READ NEW STATUS =1 M
0x2cc780…2cc914 (1, 707) Dummy {f00=0x00e1, f01=0x0190, f02=» SEND M ~ P* N POUT EQU * N P ANK A2,/7F N * P ADK A2,/10 N > P CWK A2,/7F N R 0 P RF(NG) OUT10 CHARACTER NOT GREATER THAN /7F N f * P LDK A2,/7F IF GREATER SET CHAR TO /7F N POUT10 EQU * N P CF A5,OUTPUT N P RF(NZ) ERTP JMP IF ER
0x2cc914…2ccaa8 Dummy {f00=0x00e1, f01=0x018e, f02=» PERTP EQU * O P IFF REQEND=1 O P LDR A7,A7 O , * P RF(Z) ERTP20 ORDER /00, TEST STATUS ? O > 0 P ANK A1,/1A OUTP ERR, SOFTW T-OUT, LRC-ERR ? O l P RF(NZ) RCTP YES, RECOVERY O P ABL LDISP NO O P XIF O $ PERTP20 LDK A1,1 SET NOT OPERABLE O
0x2ccaa8…2ccc3c Dummy {f00=0x00e1, f01=0x0190, f02=» O ` . P* DWT ORDER IS RESET IF NO REQUEST RUNING P P* DWT IS SET BUSY P : @ P* AFTER PROGRAM LOADING SYSTEM PARAMETERS ARE SET UP IN DWT P T 6 P* TEST STRING IS SENT TO PRINTER TO GET SYNCRONISM P @ P* A FIXED FORMATTED RECOVERY STRING IS THEN SENT TO PR
0x2ccc3c…2ccdd0 Dummy {f00=0x00e1, f01=0x018e, f02=»S AT LAST REPEATED. P | P* Q PRCTP EQU * Q & $ P LD A1,DWTECB,A6 GET ECB ADDRESS Q 8 " P RF(NZ) RCTP02 REQUEST RUNNING Q ` P CM DWTOR,A6 RESET ORDER Q PRCTP02 EQU * Q ( P LDKL A1,/7FFF INDICATE DEVICE BUSY Q P ANS A1,DWTST,A6 Q P LDKL A5,D
0x2ccdd0…2ccf64 Dummy {f00=0x00e1, f01=0x0190, f02=» 4 P LDKL A1,DTTP03 SET UP DOC PAR TABLE 0 IN DWT =3 R P ST A1,DWTDEV+DP,A6 * =3 R < ( P LD A3,STDPP SET UP ST PR PAR IN DWT R P ST A3,DWTDEV+PP,A6 R P * =3 R PRCTP08 EQU * R P LDK A2,3 BLOCK LENGTH R 2 P LDK A3,POTEST LOAD PRINTER ORDER
0x2ccf64…2cd0f8 Dummy {f00=0x00e1, f01=0x0190, f02=»NGTH R | 0 P LDK A3,PORECV SET UP PRINTER RECOVERY ORDER S P CF A5,ORDER AND SEND S @ . P LD A3,DWTDEV+PP,A6 GET PRINTER PARAMETERS S ^ PRCTP20 ECR A2,A3 S P CF A5,OUT SEND L/NCV S P LDR A2,A3 S P CF A5,OUT SEND CPJ/CPD S 0 P LC A2,DWTDEV+AP
0x2cd0f8…2cd28c Dummy {f00=0x00e1, f01=0x0190, f02=»POS S | P ANK A2,/3F MASK OFF MSB T P CF A5,OUT SEND APD T , P LDR A2,A3 GET DOC POS BACK T H P ANK A2,/40 MASK OUT MSB T l P CF A5,OUT SEND AP6 T , P LC A2,DWTDEV+ALN,A6 GET ACTUAL LINE NO T P CF A5,OUT AND SEND T PRCTP40 LDK A4,10 T
0x2cd28c…2cd420 Dummy {f00=0x00e1, f01=0x4128, f02=»DK A3,1 INC DOC TABLE POINTER T $ P SUK A4,1 DEC CHARACTER COUNTER U & ( P RB(NZ) RCTP50 WHOLE TABLE NOT SENT U N 4 PRCTP60 CF A5,EXECUT EXECUTE RECOVERY IN PRINTER U z PRCTP70 LD A1,DWTECB,A6 U P ABL(NZ) ACT005 REQ RUNNING U P ABL LENDIS REQ NOT
0x2cd420…2cd5b4 (1, 708) Dummy {f00=0x00e1, f01=0x2008, f02=» V z P END V @ V
0x2cd5b4…2cd748 Dummy {f00=0x00e1, f01=0x0190, f02=» pU 2 J BAB rU 2 J B B pU 2 J BQB rU 2"J!B!B pU 2"J!BaB rU 2$J1B1B
0x2cd748…2cd8dc Dummy {f00=0x00e1, f01=0x0190, f02=»" P Q :A H# P P 2 H & !@T I & 6 T &! 1 U ' 2 A WR A WF A W: A W. A W" A W A W A # U 6 ) V W ; V # '4# T & & % p % # P P % % T T@ U W
0x2cd8dc…2cda70 Dummy {f00=0x00e1, f01=0x0190, f02=» $ _ 4 U P ] U ( $P(> R$> Y X '@T X ' T P 3 2W Y &b &p T # & Y P U & T ] "W X # P X: &p X &P y &W & 4P% P X $ r &p 6 Y & X Z ;BR Y X ( U ;FV
0x2cda70…2cdc04 Dummy {f00=0x00e1, f01=0x0190, f02=» ] $ "X " X #` @P&Q X # T* Y +W (4W Y 3 X D X ' 4 % _$ 4T U & % # P 4 4 P _J T _$ U & % 4 U 5 ? P PF "P2 P P T (R X # X (b > P P P ) X XF _H W ? T
0x2cdc04…2cdd98 Dummy {f00=0x00e1, f01=0x0190, f02=» & 6 #& X ' X (@ L Y 3 W 3 (b 6 R& X T _ X " P _* X " T (4 3 8% =A 8 P X $?a' =A T# > ? X &P y & Y & >_ ? ] Y U ( >_4 " ( P X $# ;A 4T P^ T$ T Y ] ] " X $ WP T W
0x2cdd98…2cdf2c Dummy {f00=0x00e1, f01=0x0190, f02=» 3 ) 5 U P$ p T X # P T (P U (" ] " '4 Y T P X P P _ ] W Q Y _2 @# T (@ > P# X R @ U S '4 U &W U 4X6 X< 5 (b_F ? @) 1 T ) A) % > >)
0x2cdf2c…2ce0c0 Dummy {f00=0x00e1, f01=0x0190, f02=»
0x2ce0c0…2ce254 (1, 709) Opaque[0x194]
0x2ce254…2ce3e8 # DirEnt {nam=»DRTP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c30, f03=0x0000}
0x2ce254…2ce3e8 IdxSect {
0x2ce254…2ce3e8 f00 = 0x00e1 // 0x2ce254 @0x0
0x2ce254…2ce3e8 f01 = 0x0010 // 0x2ce256 @0x2
0x2ce254…2ce3e8 gno = [ // 0x2ce258 @0x4
0x2ce254…2ce3e8 [0x00]: C0x00e1.0x2.0
0x2ce254…2ce3e8 [0x01]: C0x00e1.0x3.0
0x2ce254…2ce3e8 [0x02]: C0x00e2.0x0.0
0x2ce254…2ce3e8 [0x03]: C0x00e2.0x1.0
0x2ce254…2ce3e8 [0x04]: C0x00e2.0x2.0
0x2ce254…2ce3e8 [0x05]: C0x00e2.0x3.0
0x2ce254…2ce3e8 [0x06]: C0x00e3.0x0.0
0x2ce254…2ce3e8 [0x07]: C0x00e3.0x1.0
0x2ce254…2ce3e8 ]
0x2ce254…2ce3e8 }
0x2ce3e8…2ce57c Dummy {f00=0x00e1, f01=0x0190, f02=» 2 P IDENT DRTP04 REL 11.0 81-06-17 870105041100 P : P =1,CORR. FOR ODD ECBADDR B P REL 11.0 81-01-26 f P* < P******************************************************* < P* *
0x2ce57c…2ce710 Dummy {f00=0x00e1, f01=0x0190, f02=»DRTP04 = DRIVER TELLER TERMINAL PRINTER * < P* * < < P* * | < P******************************************************* P* 8 P*
0x2ce710…2ce8a4 Dummy {f00=0x00e1, f01=0x018e, f02=»P : ACTIVATION PART P* $ P* R C T P : RECOVERY ROUTINE ( P* P @ P* THE ACTIVATION PART SELECTS THE ACTUAL ORDER PROCESSOR. Z : P* A STRING IS SET UP AND TRANSFERED TO THE PRINTER. > P* THE STRING BEGINS WITH A DEDICATED PRINT
0x2ce8a4…2cea38 Dummy {f00=0x00e1, f01=0x0190, f02=» ` > P* THE STRING IS TERMINATED WITH AN EXECUTION CHARACTER. : P* AFTER EXECUTION THE PRINTER RESPONDS WITH A STATUS J > P* CHARACTER INDICATING THE RESULT OF THE EXECUTED ORDER. P* > P* THE RECOVERY ROUTINE IS ENTERED AFTER PROGRAM LO
0x2cea38…2cebcc Dummy {f00=0x00e1, f01=0x0190, f02=» FIXED FORMATTED STRING TO p @ P* THE PRINTER. THIS STRING CONTAINS THE ACTUAL PARAMETERS " $ P* AND STATUS FOR THE PRINTER. f P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* $ P* ORDER 00 : TEST STATUS P*
0x2cebcc…2ced60 Dummy {f00=0x00e1, f01=0x0190, f02=» PERFORATE RECEIPT P* , P* THE FOLLOWING RETURN CODES ARE USED: * P* Z & P* BIT 0 : REQUEST ERROR d & P* BIT 2 : END OF JOURNAL * P* BIT 7 : RECOVERY EXECUTED $ P* BIT 10 : DOCUMENT OUT
0x2ced60…2ceef4 (1, 710) Dummy {f00=0x00e1, f01=0x0190, f02=» v P* " P* REGISTER A1: WORK REGISTER " P* A2: INPUT/OUTPUT 8 $ P* A3: BUFFER POINTER ^ $ P* A4: OUTPUT COUNTER " P* A5: STACK POINTER P* A6: DWT-ADDRESS P* A7:
0x2ceef4…2cf088 Dummy {f00=0x00e1, f01=0x0190, f02=»********* P* P* P ENTRY TPAD4 ADDRESS BLOCK & P* H P* R P* P************* f P* EXTERNALS * | P************* P* P* , P EXTRN LDISP DISPATCHING FROM INTERRUPT $ P EXTRN LENDER DISPATCH I/O E
0x2cf088…2cf21c Dummy {f00=0x00e1, f01=0x0190, f02=»FER h ( P EXTRN DWTST DWT STATUS DISPLACEMENT & P EXTRN DWTECB DWT ECB DISPLACEMENT 8 ( P EXTRN DWTOR DWT ORDER DISPLACEMENT b P EXTRN DWTSB2 STACK BASE P EXTRN DWTDEV DEVICE STATUS & P EXTRN INPUT GET STATUS INPUT CHAR & P EXTRN STABL
0x2cf21c…2cf3b0 Dummy {f00=0x00e1, f01=0x0190, f02=» r " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBRC RETURN CODE . P EXTRN ECBCW CONTROL WORD N P EJECT p P* ~ P************* P* CONSTANTS * P************* P* , P* DEDICATED PRINTER CHARACTERS (/00-/0F) P*
0x2cf3b0…2cf544 Dummy {f00=0x00e1, f01=0x0190, f02=»E ORDER ~ * PPOPPAR EQU /04 SET PRINTER PARAMETERS $ PPODSTA EQU /05 DIAGNOSTIC STATUS > " PEXE EQU /06 EXECUTE (NOT USED) f : PPOTDOC EQU /07 TRANSFER DOCUMENT PARAMETERS (NOT USED) $ PPORDOC EQU /08 RELEASE DOCUMENT " PPOWDOC EQU /09 WRITE D
0x2cf544…2cf6d8 Dummy {f00=0x00e1, f01=0x0190, f02=» /0D WRITE JOURNAL PSPEC EQU /0E NOT USED PTEST EQU /0F TEST (NOT USED) 8 P* ( PENDJ EQU /2000 END OF JOURNAL STATUS f & PDOCOUT EQU /20 DOCUMENT OUT STATUS P EJECT P* P************************ P* CONDITIONAL ASSEMB
0x2cf6d8…2cf86c Dummy {f00=0x00e1, f01=0x0190, f02=»CCORDING TO THE LIST BELOW v P* " P* NCV = 0 GREAT BRITAIN , P* 1 GERMANY L P* 2 FRANCE 1 ` P* 3 SPAIN t P* 4 ITALY P* 5 SWEDEN, FINLAND P* 6 DENMARK, NORWAY 1 P* 7 PORTUGAL 6 P* 8 YUGOSLAVIA OR FRANCE 2 (DEPEND
0x2cf86c…2cfa00 Dummy {f00=0x00e1, f01=0x0190, f02=»RECEIPT STATION CAN BE EXCLUDED P* BY SETTING X:B=0 ( P* B PX:B EQU 1 L PM2PRT EQU X:B ^ P* t P* MMU BUFFER SIZE ~ P* PX:C EQU 095 PDVBLEN EQU X:C P* : P* A REQUEST IS ALLWAYS ENDED FOR NOT OPERABLE PR
0x2cfa00…2cfb94 (1, 711) Dummy {f00=0x00e2, f01=0x0190, f02=»2=0,5=STDNCV,8=0 P EJECT P* & P 0 P********************* 8 P* DWT-DISPLACEMENTS * V P********************* t P* P* P* PPP EQU /2 PRINTER PARAMETERS P* P EJECT P* P********** P
0x2cfb94…2cfd28 Dummy {f00=0x00e2, f01=0x0190, f02=»VICE INDEX PTPAD4 EQU * ADDRESS BLOCK P DATA ACTP ACTIVATION DRIVER 4 " P DATA 0 ABORT ROUTINE ADDRESS X P DATA 0 INTERRUPT HANDLER ~ P DATA RCTP RECOVERY ROUTINE P* , P* VALID ORDERS WITH ACTIVATION ADDRESSES P* P
0x2cfd28…2cfebc Dummy {f00=0x00e2, f01=0x0190, f02=»E p & P DATA TPTAB3 DEVICE INDEX 3 TABLE P* 4 PTPTAB0 EQU * DEVICE INDEX 0 > " P DATA 0 TEST STATUS (JOURNAL) b P DATA TSTSTA P DATA 6 WRITE JOURNAL P DATA WRTJRL $ P DATA /24 SET PRINTER PARAMETERS P DATA PRTPAR
0x2cfebc…2d0050 Dummy {f00=0x00e2, f01=0x0190, f02=» P DATA 6 WRITE DOCUMENT P DATA WRTDOC " $ P DATA /24 SET PRINTER PARAMETERS 6 P DATA PRTPAR ^ P DATA /FFFF END OF ORDERS r P* PTPTAB2 EQU * DEVICE INDEX 2 P IFT M2PRT=1 " P DATA 0 TEST STATUS (RECEIPT) P DATA TSTSTA
0x2d0050…2d01e4 Dummy {f00=0x00e2, f01=0x0190, f02=»T v P DATA PERREC $ P DATA /24 SET PRINTER PARAMETERS P DATA PRTPAR F P XIF Z P DATA /FFFF END OF ORDERS f P* PTPTAB3 EQU * DEVICE INDEX 3 P DATA /FFFF END OF ORDERS P* ( P* SYSTEM STANDARD PRINTER PARAMETERS
0x2d01e4…2d0378 Dummy {f00=0x00e2, f01=0x0190, f02=»IS IS THE ACTIVATION PART OF THE DRIVER > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR 0 P* r P* | P* PACTP EQU * ACTIVATION ENTRY P* P* 8 P* GET DWT INDEX: 0=JOURNAL, 1=DOCUMENT, 2=RECEIPT P*
0x2d0378…2d050c Dummy {f00=0x00e2, f01=0x0190, f02=» ANKL A3,/FF1F RESET OLD INDEX AND LF IND P ORR A3,A2 2 $ P ST A3,DWTDEV,A6 STORE NEW INDEX D , PACT005 LD A1,DWTDEV,A6 GET DEVICE INDEX l P ANK A1,/C0 * P SRL A1,5 GET CORESPONDING ORDER TABLE P LD A2,TPTAB,A1 PACT010 LDR* A3,A2
0x2d050c…2d06a0 Dummy {f00=0x00e2, f01=0x0190, f02=»2,4 TRY NEXT ORDER P RB ACT010 PACT020 EQU * , P ABI 2,A2 EXECUTE ORDER @ P EJECT ` P* n P* x P* ORDER 00 : TEST STATUS P* P* PTSTSTA EQU * $ P CM ECBCW,A8 CLEAR CONTROL WORD P LDK A2,3 BLOCK LENG
0x2d06a0…2d0834 (1, 712) Dummy {f00=0x00e2, f01=0x0190, f02=»ET PRINTER STATUS " P ANK A1,/1 TEST PRINTER STATUS & P RF(Z) TSST10 NO PERMANENT ERRORS @ PTSST05 EQU * j P LDK A2,3 BLOCK LENGTH ~ ( P LDK A3,PODSTA LOAD DIAGNOSTIC ORDER P CF A5,ORDER AND SEND * P CF A5,EXECUT EXECUTE ORDER IN PRI
0x2d0834…2d09c8 Dummy {f00=0x00e2, f01=0x0190, f02=»A2 GET PRINTER STATUS & P LD A3,DWTDEV,A6 GET DEVICE INDEX " P ANK A3,/C0 TEST DEVICE INDEX H $ P RF(NZ) TSST40 DEVICE INDEX > 0 n $ P ANK A1,/20 TEST PRINTER STATUS P RF(Z) TSST80 NO ERRORS P LDKL A1,ENDJ END OF JOURNAL P RF TS
0x2d09c8…2d0b5c Dummy {f00=0x00e2, f01=0x0190, f02=»TATUS v P RF(Z) TSST80 NO ERRORS P LDK A1,DOCOUT DOCUMENT OUT . P RF TSST80 R 2 PTSST70 LDK A1,0 RECEIPT, NO ERRORS DETECTABLE d " PTSST80 ABL LENDIS END REQUEST P EJECT P* P* P* ORDER 06 : WRITE JOURNAL P
0x2d0b5c…2d0cf0 Dummy {f00=0x00e2, f01=0x0190, f02=»0 REQUEST ERROR , P LD A2,ECBBA,A8 GET CONTROL CHARACTER =1 P LC A2,1,A2 * =1 H P ANK A2,/FF ` P LDK A4,0 SET UP 0 LF t P SUK A2,/2B TEST CTRL CHAR P RF(Z) WRJL10 CTRL CHAR =/2B P LDK A4,2 SET UP 2 LF P SUK A2,5 P
0x2d0cf0…2d0e84 Dummy {f00=0x00e2, f01=0x0190, f02=» , P LDK A3,POWJRL LOAD WRITE JOURNAL ORDER P CF A5,ORDER AND SEND 4 P LDR A2,A4 RELOAD LF INF R P CF A5,OUT AND SEND r $ P LDK A3,2 SET UP BUFFER POINTER 6 PWRJL20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER P LDR A1,A1 " P RF(Z)
0x2d0e84…2d1018 Dummy {f00=0x00e2, f01=0x0190, f02=»N) WRJL20 CHAR </10 P SUK A1,/6F P RB(Z) WRJL20 CHAR=/7F 0 P RF(N) WRJL40 CHAR = NORMAL N P SUK A1,/2F r P RF(Z) WRJL40 CHAR =/AE " P LDK A1,4 IND CODE CHECK ERROR $ P ORS A1,ECBRC,A8 IN RETURN CODE P RB WRJL20 P
0x2d1018…2d11ac Dummy {f00=0x00e2, f01=0x0190, f02=» GET NEXT CHARACTER P P* SEND ETX $ P 8 0 PWRJL50 CF A5,EXECUT EXECUTE ORDER IN PRINTER @ P SUK A4,2 t & P RF(NZ) WRJL60 NOT 2 LF REQUESTED P LDR A4,A2 SAVE FIRST STATUS P LDK A2,4 BLOCK LENGTH , P LDK A3,POWJRL LOAD WR
0x2d11ac…2d1340 Dummy {f00=0x00e2, f01=0x0190, f02=»E 1 LF IN PRINTER | . P ORR A2,A4 COMBINE FIRST AND SECOND STATUS ( PWRJL60 LDR A1,A2 GET PRINTER STATUS L $ P ANK A1,/25 TEST PRINTER STATUS x P RF(Z) WRJL70 NO ERRORS " P ANK A1,1 TEST PRINTER STATUS P RF(NZ) WRJL70 NOT OPERABLE "
0x2d1340…2d14d4 (1, 713) Dummy {f00=0x00e2, f01=0x0190, f02=»QUEST x 4 PWRJL80 ABL LENDER END REQUEST WITH REQUEST ERROR P EJECT F P* V P* ` " P* ORDER 06 : WRITE DOCUMENT j P* P* PWRTDOC EQU * ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH $ P SUK A1,2 TEST REQUESTED LENGTH
0x2d14d4…2d1668 Dummy {f00=0x00e2, f01=0x0190, f02=»PRINTER ORDER z P CF A5,ORDER AND SEND P LDK A2,0 SET UP DUMMY LF 4 P CF A5,OUT AND SEND V $ P LDK A3,2 SET UP BUFFER POINTER r 6 PWRDO20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER P LDR A1,A1 " P RF(Z) WRDO50 BUFFER FINISHED
0x2d1668…2d17fc Dummy {f00=0x00e2, f01=0x018e, f02=»UK A1,/6F P RF(N) WRDO40 CHAR = NORMAL P RB(Z) WRDO20 CHAR = /7F 6 P SUK A1,/2F V P RF(Z) WRDO40 CHAR = /AE j ( P LDK A1,4 INDICATE CODE CHECK ERROR $ P ORS A1,ECBRC,A8 IN RETURN CODE P RB WRDO20 P " P* SEND CHARACT
0x2d17fc…2d1990 Dummy {f00=0x00e2, f01=0x0190, f02=» P ! P* SEND ETX ! P ! 0 PWRDO50 CF A5,EXECUT EXECUTE ORDER IN PRINTER ! ( " P LDR A1,A2 GET PRINTER STATUS ! $ P ANK A1,/45 TEST PRINTER STATUS ! P RF(Z) WRDO70 NO ERRORS ! " P ANK A1,1 TEST PRINTER STATUS ! P RF(NZ) WRDO70 NOT OPERA
0x2d1990…2d1b24 Dummy {f00=0x00e2, f01=0x0190, f02=» ABL LENDIS END REQUEST ! 4 PWRDO80 ABL LENDER END REQUEST WITH REQUEST ERROR " P EJECT " X P* " f P* " p P* ORDER 06 : WRITE RECEIPT " z P* " P* " P IFT M2PRT=1 " PWRTREC EQU * " ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH " $ P S
0x2d1b24…2d1cb8 Dummy {f00=0x00e2, f01=0x0190, f02=»=1 " P ANK A2,/FF # P LDK A4,0 SET UP 0 LF # P SUK A2,/2B # < " P RF(Z) WRRC10 CTRL CHAR = /2B # P P LDK A4,8 SET UP 8 LF # v P SUK A2,6 # " P RF(Z) WRRC10 CTRL CHAR = /31 # P LDK A4,5 SET UP 5 LF (FAST) # P SUK A2,1 # " P RF(Z)
0x2d1cb8…2d1e4c Dummy {f00=0x00e2, f01=0x0190, f02=»F # | PWRRC10 EQU * $ P LD A2,ECBRL,A8 $ P ADK A2,2 BLOCK LENGTH $ 6 , P LDK A3,POWREC LOAD WRITE RECEIPT ORDER $ T P CF A5,ORDER AND SEND $ P LDR A2,A4 RELOAD LF INF $ & P CF A5,OUT AND SEND LF INFORMATION $ $ P LDK A3,2 SET UP BUFFER POIN
0x2d1e4c…2d1fe0 Dummy {f00=0x00e2, f01=0x0190, f02=» GET CHAR IN A1 $ P % P* EXAMINE CHARACTER % P % > P SUK A1,/10 % F P RB(N) WRRC20 CHAR </10 % Z P SUK A1,/6F % z P RB(Z) WRRC20 CHAR=/7F % P RF(N) WRRC40 CHAR = NORMAL % P SUK A1,/2F % P RF(Z) WRRC40 CHAR =/AE % " P LDK
0x2d1fe0…2d2174 (1, 714) Dummy {f00=0x00e2, f01=0x0190, f02=» % & PWRRC40 CF A5,OUTPUT SEND CHARACTER & P ABL(NZ) ERTP JMP IF ERROR & 2 " P RB WRRC20 GET NEXT CHARACTER & T P & z P* SEND ETX & P & 0 PWRRC50 CF A5,EXECUT EXECUTE ORDER IN PRINTER & P SUK A4,2 & & P RF(NZ) WRRC60 NOT 2 LF REQUESTED &
0x2d2174…2d2308 Dummy {f00=0x00e2, f01=0x0190, f02=» SEND & P LDK A2,1 SET UP 1 LF ' P CF A5,OUT SEND LF INF ' , * P CF A5,EXECUT EXECUTE 1 LF IN PRINTER ' J . P ORR A2,A4 COMBINE FIRST AND SECOND STATUS ' x ( PWRRC60 LDR A1,A2 GET PRINTER STATUS ' " P ANK A1,5 TEST PRINTER STATUS ' P RF(Z) WRRC7
0x2d2308…2d249c Dummy {f00=0x00e2, f01=0x0190, f02=»80 ABL LENDER END REQUEST WITH REQUEST ERROR ' P XIF ( 4 P EJECT ( @ P* ( N P* ( X P* ORDER 22 : CUT RECEIPT ( b P* ( P* ( P IFT M2PRT=1 ( PCUTREC EQU * ( P LDK A2,4 BLOCK LENGTH ( . P LDK A3,POWREC SET UP WRITE RECEIPT ORDER
0x2d249c…2d2630 Dummy {f00=0x00e2, f01=0x0190, f02=»NTER ( n " P LDR A1,A2 GET PRINTER STATUS ) P ANK A1,1 MASK STATUS ) 2 " PCREC70 ABL LENDIS END REQUEST ) P P XIF ) v P EJECT ) P* ) P* ) $ P* ORDER 26 : PERFORATE RECEIPT ) P* ) P* ) P IFT M2PRT=1 ) PPERREC EQU * ) P
0x2d2630…2d27c4 Dummy {f00=0x00e2, f01=0x0190, f02=» (=7 LF) ) v P CF A5,OUT AND SEND * * P CF A5,EXECUT EXECUTE ORDER IN PRINTER * , " P LDR A1,A2 GET PRINTER STATUS * Z P ANK A1,1 MASK STATUS * " PPREC70 ABL LENDIS END REQUEST * P XIF * P EJECT * P* * P* * * P* ORDER 24 : SET P
0x2d27c4…2d2958 Dummy {f00=0x00e2, f01=0x0190, f02=»BIT 03 : SMALL LETTER IND * 0 P* BIT 04-07 : NATIONAL CHARACTER VARIATION + $ P* BIT 08-15 : NOT USED + X P* + x P* + PPRTPAR EQU * + $ P LD A1,ECBCW,A8 GET CONTROL WORD + 4 P RF(NN) PPAR10 NO NEW L/NCV SET UP IN CTRL WORD + . P ST A1,D
0x2d2958…2d2aec Dummy {f00=0x00e2, f01=0x018e, f02=»R ORDER + d P CF A5,ORDER AND SEND , P LC A2,DWTDEV+PP,A6 , . P CF A5,OUT SEND L/NCV , J P LC A2,DWTDEV+PP+1,A6 , h P CF A5,OUT SEND DUMMY , * P CF A5,EXECUT EXECUTE ORDER IN PRINTER , " P LDR A1,A2 GET PRINTER STATUS , " P ANK A1,1 TEST P
0x2d2aec…2d2c80 Dummy {f00=0x00e2, f01=0x0190, f02=» P - P* - P* O R D E R - B P* SEND START OF BLOCK CHAR TO COM. AND ORDER CODE TO PRINTER - , P* - r PORDER EQU * - | P CF A5,STABLK START OF BLOCK - P RF(NZ) ERTP JMP IF ERROR - * P LDK A2,RESET SEND RESET JUST IN CASE - P CF
0x2d2c80…2d2e14 (1, 715) Dummy {f00=0x00e3, f01=0x0190, f02=» E X E C U T E - H P* SEND EXECUTE CHAR (/03) TO PRINTER AND END OF BLOCK CHAR TO COM. . P* . d PEXECUT EQU * . n , P LDK A2,ETX SEND EXECUTE CHAR TO PRINTER . P CF A5,OUTPUT . P RF(NZ) ERTP JMP IF ERROR . P CF A5,ENDBLK END OF BLOCK .
0x2d2e14…2d2fa8 Dummy {f00=0x00e3, f01=0x0190, f02=» . P* / P* 0 U T / P* ADD CONST. AND SEND / $ P* / D POUT EQU * / N P ANK A2,/7F / ` P ADK A2,/10 / t P CWK A2,/7F / 0 P RF(NG) OUT10 CHARACTER NOT GREATER THAN /7F / * P LDK A2,/7F IF GREATER SET CHAR TO /7F / POUT10 EQU
0x2d2fa8…2d313c Dummy {f00=0x00e3, f01=0x018e, f02=» / d P* 0 P* 0 PERTP EQU * 0 * P ANK A1,/12 OUTP.ERROR OR LRC-ERROR ? 0 . P RF(Z) ERTP10 NO 0 P LDKL A5,DWTSB2 STACK BASE 0 t P ADR A5,A6 ADD DWT ADDRESS 0 P RF RCTP DO RECOVERY 0 PERTP10 EQU * 0 P IFF REQEND=1 0 ( P LDR A7,A7
0x2d313c…2d32d0 Dummy {f00=0x00e3, f01=0x0190, f02=» P EJECT 1 P* 1 P* R C T P 1 P* 1 . 2 P* THIS IS THE RECOVERY ROUTINE FOR THE DRIVER 1 8 . P* DWT ORDER IS RESET IF NO REQUEST RUNING 1 n P* DWT IS SET BUSY 1 @ P* AFTER PROGRAM LOADING SYSTEM PARAMETERS ARE SET UP IN DWT 1 6 P* TEST STR
0x2d32d0…2d3464 Dummy {f00=0x00e3, f01=0x0190, f02=»NS THE ACTUAL PARAMETERS AND THE ACTUAL 1 | P* STATUS FOR THE PRINTER. 2 0 , P* A RUNING REQUEST IS AT LAST REPEATED. 2 R P* 2 PRCTP EQU * 2 $ P LD A1,DWTECB,A6 GET ECB ADDRESS 2 " P RF(NZ) RCTP02 REQUEST RUNNING 2 P LDK A7,0 RESET ORDER 2
0x2d3464…2d35f8 Dummy {f00=0x00e3, f01=0x0190, f02=» RCTP08 NOT SYSTEM START UP RECOVERY 2 ( P LD A3,STDPP SET UP ST PR PAR IN DWT 3 , P ST A3,DWTDEV+PP,A6 3 X PRCTP08 EQU * 3 t P LDK A2,3 BLOCK LENGTH 3 2 P LDK A3,POTEST LOAD PRINTER ORDER TEST STATUS 3 P CF A5,ORDER AND SEND 3 * P CF A5,EXECUT
0x2d35f8…2d378c Dummy {f00=0x00e3, f01=0x0190, f02=»F A5,ORDER AND SEND 3 . P LD A3,DWTDEV+PP,A6 GET PRINTER PARAMETERS 4 PRCTP20 ECR A2,A3 4 N P CF A5,OUT SEND LFCTRL/NCV 4 f P LDR A2,A3 4 P CF A5,OUT SEND DUMMY CODE 4 4 PRCTP60 CF A5,EXECUT EXECUTE RECOVERY IN PRINTER 4 PRCTP70 LD A1,DWTECB,
0x2d378c…2d3920 Dummy {f00=0x00e3, f01=0x402c, f02=»CT005 REPEAT REQUEST 4 P END 5 @ 5 (,A6 GET PRINTER PARAMETERS 4 PRCTP20 ECR A2,A3 4 N P CF A5,OUT SEND LFCTRL/NCV 4 f P LDR A2,A3 4 P CF A5,OUT SEND DUMMY CODE 4 4 PRCTP60 CF A5,EXECUT EXECUTE RECOVERY IN PRINTER 4 PRCTP70 LD A1,DWTECB,
0x2d3920…2d3ab4 (1, 716) Dummy {f00=0x00e3, f01=0x2008, f02=» 6 ET LINE COUNTERS =9 S 2 P CM DWTPPD,A6 RESET PRINT POSITION COUNTERS =9 T $ PRCTP70 LD A1,DWTECB,A6 T Z P ABL(NZ) ACT005 REQ RUNNING T x P ABL DISEND REQ NOT RUNNING T P END T @ T NZ) RCTP50 WHOLE TABLE NOT SENT S 4 PRCTP60 CF A5,EXE
0x2d3ab4…2d3c48 Dummy {f00=0x00e3, f01=0x0004, f02=»
0x2d3c48…2d3ddc Dummy {f00=0x00e3, f01=0x0190, f02=» > @ IDENT DRTP03 REL 11.0 81-06-17 870105041100 TPAD3 F TPAD3 V , ( ~ $ h , ( ! 8 7 $ ' DWTOR DWTDEV * & A @ F X " :F X
0x2d3ddc…2d3f70 Dummy {f00=0x00e3, f01=0x0190, f02=» ! ! C W X # T !"P LENDIS * , ( H! & W !@P X ! T < , ( B R B H " +P P l , ( T ! ! ! " T Y GETCHR * & Y B X Y
0x2d3f70…2d4104 Dummy {f00=0x00e3, f01=0x0190, f02=»P C _8 W Y ! ~ , ( _J ! !'P ! T " T * & HH X Y W X N , ( $ B R B H " X + | , ( "P P T Y Q Y , ( @ Y P B ! !
0x2d4104…2d4298 Dummy {f00=0x00e3, f01=0x0190, f02=»! T l * & c " T X !x W X X * & } Y Y # C X : , ( # C B P Y Q Y h , ( ! ! ! !EP ! T , ( $" T X !xX8 Y Y , (
0x2d4298…2d442c Dummy {f00=0x00e3, f01=0x0190, f02=»P P ! P Y | * & 7 ! 0 ! ! ! LDISP J , ( U X B V Z * & m " Y # T # # P Y * & # T # # P Y Y , ( ! X ! X
0x2d442c…2d45c0 Dummy {f00=0x00e3, f01=0x0190, f02=»P ! R ! t , ( P PQ ! P Q Q ! , ( 1 Q :C Q ! Q :E Q ! D , ( M Q :F Q b ! P ! R C t , ( k Q ! P R b ! R Q ! ( , ( R 9Q W ! P (Q ! W Q , (
0x2d45c0…2d4754 (1, 717) Opaque[0x194]
0x2d4754…2d48e8 # DirEnt {nam=»DRTW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c70, f03=0x0000}
0x2d4754…2d48e8 IdxSect {
0x2d4754…2d48e8 f00 = 0x00e3 // 0x2d4754 @0x0
0x2d4754…2d48e8 f01 = 0x000e // 0x2d4756 @0x2
0x2d4754…2d48e8 gno = [ // 0x2d4758 @0x4
0x2d4754…2d48e8 [0x00]: C0x00e3.0x2.0
0x2d4754…2d48e8 [0x01]: C0x00e3.0x3.0
0x2d4754…2d48e8 [0x02]: C0x00e4.0x0.0
0x2d4754…2d48e8 [0x03]: C0x00e4.0x1.0
0x2d4754…2d48e8 [0x04]: C0x00e4.0x2.0
0x2d4754…2d48e8 [0x05]: C0x00e4.0x3.0
0x2d4754…2d48e8 [0x06]: C0x00e5.0x0.0
0x2d4754…2d48e8 ]
0x2d4754…2d48e8 }
0x2d48e8…2d4a7c Dummy {f00=0x00e3, f01=0x018e, f02=» 2 P IDENT DRTW01 REL 11.0 81-06-12 870105041100 P : $ P =4,COND. FOR BSP,CANC AND EOR B P REL 11.0 81-04-15 j 0 P =3,ONLY CREDIT-INDEX FOR EOR-KEY IN KTAB P REL 11.0 81-01-26 $ P =2,BOTH KEYTABLE AND STANDARD P EOR-
0x2d4a7c…2d4c10 Dummy {f00=0x00e3, f01=0x0190, f02=» P 6 P************************************************** P* J $ P* PHILIPS TERMINAL SYSTE PTS T P* | , P* DRTW01 = DRIVER TYPEWRITER PTS 6862 P* P* P* P* P* P* 6 P**********************
0x2d4c10…2d4da4 Dummy {f00=0x00e3, f01=0x018e, f02=» P* P EJECT P* P* & P*********** 0 P* ENTRIES * D P*********** X P* l P ENTRY TWAD ADDRESS BLOCK v P ENTRY IHTW P ENTRY TWON P ENTRY DWTW01 P* P************* P* EXTERNALS *
0x2d4da4…2d4f38 Dummy {f00=0x00e3, f01=0x0190, f02=» n * P EXTRN SETIME SET TIME BEFORE TIME-OUT . P EXTRN SAVE8 SAVE REGISTERS A1-A8 ON STACK 6 P EXTRN DWTST STATUS h P EXTRN DWTBC BYTE COUNTER P EXTRN DWTECB ECB ADDRESS $ P EXTRN DWTOR DWT INDEX AND ORDER P EXTRN DWTA3 SAVE AREA A
0x2d4f38…2d50cc Dummy {f00=0x00e3, f01=0x0190, f02=»ACK BASE 2 IN DWT P EXTRN DWTTP TIMER POINTER * P EXTRN INTSAV SAVE AREA LAST INTRRUPT < * P EXTRN PFPOST PWF POST PROCESSING FLAG j P EJECT P* P* P******************** P* I/O-INSTRUCTIONS P********************
0x2d50cc…2d5260 Dummy {f00=0x00e3, f01=0x0190, f02=»OUTPUT PTWSST EQU /4AC0 SENSE STATUS P* 2 P* < P EJECT F P* T P* ^ P************* h P* CONSTANTS * ~ P************* P* P* PCR EQU /0D CARRIAGE RETURN PLF EQU /0A LINE FEED " PLNGERR EQU /
0x2d5260…2d53f4 (1, 718) Dummy {f00=0x00e3, f01=0x0190, f02=»************** P* CONDITIONAL ASSEMBLY* P************************ 6 P* V P* ` PX:A EQU 0 j PX:B EQU 0 | PX:C EQU 60 PX:D EQU 10 PX:E EQU 6 PX:F EQU /5F5E =4 PX:G EQU /0D00 =4 P PTIMOUT E
0x2d53f4…2d5588 Dummy {f00=0x00e3, f01=0x0190, f02=»* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. 2 P* ` PMMUPAG EQU 0 j P* ~ P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* P
0x2d5588…2d571c Dummy {f00=0x00e3, f01=0x0190, f02=»********* P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART & P* Z P IFT MMUPAG=0 d PSTART EQU DWTDRD z P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF P* PDWTHP EQU START+/18
0x2d571c…2d58b0 Dummy {f00=0x00e3, f01=0x0190, f02=»U KEY TABLE SIZE z ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE P DATA DEVIND DEVICE INDEX D PTWAD EQU * f P DATA TWA ACTIVATION PART x " P DATA 0 ABORT ROUTINE ADDRESS P EJECT P* P* 2 P* ACTIVATION PART: CHECK VALIDITY OF
0x2d58b0…2d5a44 Dummy {f00=0x00e3, f01=0x0190, f02=» LENGTH =0 x P* P* P LDR A2,A7 COPY ORDER & P RF(NP) TWAERR REQUEST ERROR D P SUK A2,4 h P RF(Z) TWAERR REQUEST ERROR z P RF(N) TWAIN INPUT REQUEST P SUK A2,2 " P RF(NP) TWAOUT OUTPUT REQUEST P* P*
0x2d5a44…2d5bd8 Dummy {f00=0x00e3, f01=0x0190, f02=»GET TIMER POINTER * P RF(Z) TWA010 NO TIMING ON THIS DEVICE P LDR A1,A6 SAVE DWT-ADDRESS H P CF A15,SETIME l P DATA TWTUT,TIME , P ST A4,DWTTP,A6 SAVE TIMER BLOCK-ADDRESS P XIF PTWA010 EQU * P IFT POWUP=1 " P LD A2,DWT
0x2d5bd8…2d5d6c Dummy {f00=0x00e3, f01=0x0190, f02=» P LDKL A2,-2 " P ST A2,10,A8 INDICATE POWER UP P ABL IHTW35 PERFORM ENDIO > P XIF ` PTWA020 LDK A2,/21 l P* P* ( PREAD CF A5,STRTIO EXECUTE CIO-START P RF RED030 & PRED020 CF A5,STREG SAVE REGISTERS P EJECT
0x2d5d6c…2d5f00 Dummy {f00=0x00e3, f01=0x0190, f02=»NZ) RED037 P XIF P SUK A7,1 P RF(P) RED050 ORDERS 02/03 0 P* R P* 0 PRED035 CF A5,STORE STORE CHARACTER IN BUFFER f P CW A3,4,A8 $ P RB(L) RED020 GET NEXT CHARACTER P LDR A7,A7 P RF(Z) RED040 BASIC READ P
0x2d5f00…2d6094 (1, 719) Dummy {f00=0x00e4, f01=0x0190, f02=»RED040 EQU * P P IFT TIMOUT=1 P LD A7,DWTOR,A6 GET ORDER 2 P ANK A7,/FF MASK ORDER T P CWK A7,4 r P RF(G) RED045 WRITE ORDER " P LD A4,DWTTP,A6 TIMER POINTER * P RF(Z) RED045 NO TIMIMG ON THIS DEVICE P CM* DWTTP,A6
0x2d6094…2d6228 Dummy {f00=0x00e4, f01=0x0190, f02=»CT P* P* P* P* ORDERS 02,03 ( P* @ P* J PRED050 EQU * T " P LD A1,10,A8 GET CONTROL WORD h P RF(Z) RED080 NO KEYTABLE " P LCR A4,A1 GET NUMBER OF KEYS P ANK A4,/FF " P ADR A1,A4 ADDRESS TO LAST KEY
0x2d6228…2d63bc Dummy {f00=0x00e4, f01=0x0190, f02=»2,A1 CHECK IF IN KEYTABLE " P RB(NE) RED060 NOT IN KEYTABLE " P ADK A4,1 MAKE INDEX =3 H , P ST A4,10,A8 STORE INDEX IN CONTROL WORD h 2 PRED070 CF A5,STORE STORE KEY IN ECB-BUFFER =2 P RB RED040 EXECUTE CIO-HALT PRED080 CC A2,TWEOF,A6
0x2d63bc…2d6550 Dummy {f00=0x00e4, f01=0x018e, f02=»WCLR,A6 P RF(E) RED110 CLEAR P EJECT , P* : P* D ( P* CHARACTER NOT FOUND IN KEYTABLE N P* z P* P* $ PRED090 LDR A4,A2 COPY CHARACTER P ANK A4,/FF MASK P LDR A1,A7 P SUK A1,1 P RF(Z) RED10
0x2d6550…2d66e4 Dummy {f00=0x00e4, f01=0x0190, f02=» P RF RED110 P* P* PRED100 SUK A4,/20 * P RF(N) CODERR LESS THAN /20 D P SUK A4,/3F h $ P RF(NP) RED110 CORRECT CHARACTER | P* P* $ PCODERR LDK A1,4 CODE CHECK ERROR P ORS A1,8,A8 . P CF A5,STORE STORE C
0x2d66e4…2d6878 Dummy {f00=0x00e4, f01=0x0190, f02=» CC A2,TWBSP,A6 P RF(E) RED120 BACKSPACE P CC A2,TWCLR,A6 8 P RB(NE) RED035 P P* f P* p P LDK A3,0 CLEAR ECB-BUFFER z " P RB RED020 GET NEXT CHARACTER P* P* PRED120 SUK A3,1 BACKSPACE & P RB(NN) RED020 G
0x2d6878…2d6a0c Dummy {f00=0x00e4, f01=0x0190, f02=»* P* W R I T E P* 4 P* ORDERS 05 AND 06: BASIC AND STANDARD WRITE * P* b P* l PWRITE EQU * v PTWAOUT EQU * P INH P LDK A4,0 P LDK A2,0 $ P CF A5,STRTIO EXECUTE CIO-START P* P*
0x2d6a0c…2d6ba0 Dummy {f00=0x00e4, f01=0x0190, f02=»R t P ANK A3,/FF P SUK A3,/2B P RF(Z) WRT030 NO CR OR LF 2 P* T P* ^ , P ST A4,DWTHP,A6 HEAD POSITION INDICATOR h P LDK A4,2 $ P LDK A2,CR SEND CARRIAGE RETURN P EJECT P* P* P* $ PWRT010 CF
0x2d6ba0…2d6d34 (1, 720) Dummy {f00=0x00e4, f01=0x0190, f02=» P* PWRT020 SUK A3,5 P RB(Z) WRT015 SEND SECOND LF & P SUK A3,1 J P RF(NZ) WRT030 P LDK A2,/0C SEND FORM FEED t P RB WRT010 " PWRT030 LDK A3,2 BUFFER POINTER P RF WRT050 GET CHARACTER P* P* P*
0x2d6d34…2d6ec8 Dummy {f00=0x00e4, f01=0x0190, f02=»* 6 PWRT050 CF A5,GETCHR GET CHARACTER FROM ECB-BUFFER P LDR A1,A1 D P RB(Z) RED040 LAST CHARACTER X P CWK A7,5 | P RB(Z) WRT040 BASIC WRITE P* P* ( P LDR A1,A2 ORDER 06: STANDARD WRITE P ANK A1,/FF P SUK
0x2d6ec8…2d705c Dummy {f00=0x00e4, f01=0x0190, f02=» ERRCOD LESS THAN /20 P SUK A1,/3F " P RB(NP) WRT040 BETWEEN /20-/5F 2 P SUK A1,/20 X " P RF(NP) WRT060 BETWEEN /60-/7F l P* P* PERRCOD LDK A1,4 P ORS A1,8,A8 " P RB WRT050 GET NEXT CHARACTER P* P*
0x2d705c…2d71f0 Dummy {f00=0x00e4, f01=0x0190, f02=» P* PWRTTAB EQU * 2 P CF A5,GETCHR GET FIRST TAB.POSITION CHARACTER & P LDR A4,A2 COPY 4 P CF A5,GETCHR GET SECOND TAB. POSITION CHARACTER t P ANK A2,/F P ANK A4,/F P RF(Z) TAB020 PTAB010 ADK A2,/A P SUK A4,1
0x2d71f0…2d7384 Dummy {f00=0x00e4, f01=0x0190, f02=» NUMBER OF SPACES TO BE SENT , P RB(NP) WRT050 NO SPACES SHOULD BE SENT $ P LDR A4,A2 T " PTAB030 LDK A2,/20 SEND BALNKS f $ PTAB040 CF A5,OTR SEND CHARACTER ( P IM DWTST,A6 INCREMENT BYTE COUNTER P SUK A4,1 & P RB(NZ) TAB030 SEND AN
0x2d7384…2d7518 Dummy {f00=0x00e4, f01=0x0190, f02=»FER INDEX | " P RB WRT050 GET NEXT CHARACTER P EJECT 8 P* F P* P P* RECOVERY ROUTINE Z P* v P* P* PTWON EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=
0x2d7518…2d76ac Dummy {f00=0x00e4, f01=0x0190, f02=»A1,/200 & P ORS A1,DWTST,A6 INDICATE POWER UP P XIF : P LD A1,DWTST,A6 F P RF(N) EXIT DEVICE NOT BUSY ^ PTWON10 LD A3,DWTA3,A6 P LD A7,DWTOR,A6 GET ORDER P ANK A7,/FF P LD A8,DWTECB,A6 ECB-ADDRESS P LDKL A5,DWTSB
0x2d76ac…2d7840 Dummy {f00=0x00e4, f01=0x018e, f02=»R 05 ~ P INH P LDK A2,0 $ P CF A5,STRTIO EXECUTE CIO-START * P LDK A2,CR R P LDK A3,0 d P LD A4,DWTHP,A6 v P ADK A4,1 $ P RB TAB040 REPRINT LAST REQUEST P* PTWON20 LDK A1,TPERR ORDER 05 P ABL DISEND
0x2d7840…2d79d4 (1, 721) Dummy {f00=0x00e4, f01=0x0190, f02=» P* P* PIHTW EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT * P IFT CPU852=1 R & P CF A15,SAVE8 SAVE A1-A8 ON STACK h P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P LDKL A6,DWTW0
0x2d79d4…2d7b68 Dummy {f00=0x00e4, f01=0x0190, f02=»RKL A2,TWSST P EXR A2 EXECUTE SST P RF(A) IHTW30 ENDIO 0 P LD A7,DWTOR,A6 GET ORDER L P ANK A7,/FF n P SUK A7,4 P RF(P) IHTW30 " P LDR* A2,A6 GET DEVICE ADDRESS P ORKL A2,TWINR P EXR A2 EXECUTE INR $ P ANK
0x2d7b68…2d7cfc Dummy {f00=0x00e4, f01=0x0190, f02=»0 NO TIMING ON THIS DEVICE P LDKL A1,-TIME " P ST* A1,DWTTP,A6 8 P XIF P P* P* f PIHTW30 LDK A1,0 p P RF LDREGE RESTORE REGISTERS P P PIHTW35 EQU * P IFT POWUP+TIMOUT=2 P " P LD A1,DWTTP,A6 TIME
0x2d7cfc…2d7e90 Dummy {f00=0x00e4, f01=0x0190, f02=» PIHTW40 EQU * ! P* ! P* ! & , PIHTW50 ST A3,6,A8 SAVE EFFECTIVE LENGTH ! 0 PIHTW55 SUK A7,4 ! ` P RF(NP) IHTW60 READ ORDER ! x P* ! P* ! $ P LC A3,DWTBC,A6 GET BYTE COUNTER ! * P ADS A3,DWTHP,A6 UPDATE HEAD POSITION ! P LDK
0x2d7e90…2d8024 Dummy {f00=0x00e4, f01=0x0190, f02=»M TENDIO ! ~ P* " P* " P " $ PSKIP LDR* A2,A6 " , P ORKL A2,TWSST " D P EXR A2 SST " Z P RF(A) EXIT " n P LDR* A2,A6 " P ORKL A2,TWHLT " P EXR A2 CIO HALT " P RF EXIT " P EJECT " P* " P* " P* " P* I/O
0x2d8024…2d81b8 Dummy {f00=0x00e4, f01=0x0190, f02=»LT " n P RF EXECIO # " POTR LDKL A1,TWOTR OTR # P* # B P* # L PEXECIO LD A7,PFPOST # V P RF(NZ) STREG PFINIT PENDING # r P ORR* A1,A6 GET I/O-COMMAND # P EXR A1 EXECUTE COMMAND # P RF(NA) HALT # PSTREG EQU * # P LDKL
0x2d81b8…2d834c Dummy {f00=0x00e4, f01=0x0190, f02=» A4 # t $ P ST A5,DWTA5,A6 A5 $ PEXIT ABL TDISP $ 4 PHALT ST A2,DWTA2,A6 $ J " P CF A5,HLTIO EXECUTE CIO-HALT $ f P LD A2,DWTA2,A6 $ P RB STRTIO RESTART REQUEST $ P* $ P* $ P EJECT $ P* $ P* $ P* $ & P*
0x2d834c…2d84e0 Dummy {f00=0x00e4, f01=0x0190, f02=» $ p P SCR A2,A4 STORE CHARACTER % $ P ADK A3,1 INCREMENT BUFFER INDEX % * P RTN A5 % R P* % b P* % l P* % v P IFT TIMOUT=1 % P* % P* % P* TIMOUT ROUTINE % P* % P* % PTWTUT EQU * % P LDR A6,A1 GET DWT-ADDRESS %
0x2d84e0…2d8674 (1, 722) Dummy {f00=0x00e4, f01=0x0190, f02=»* % 8 P* RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5 & P* & F P* & P PLDREGE EQU * & Z & P LD A3,DWTA3,A6 RELOAD REGISTER A3 & n & P LD A4,DWTA4,A6 A4 & & P LD A5,DWTA5,A6 A5 & P LD A7,DWTOR,A6 & P ANK
0x2d8674…2d8808 Dummy {f00=0x00e4, f01=0x0190, f02=» & 8 P* SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER ' P* ' D P* ON ENTRY: ' N P* ' d P* A3 = BUFFER INDEX ' n P* A8 = ECB-ADDRESS ' P* ' P* ON EXIT: ' P* ' P* A2 = CHARACTER ' * P* A1 = 0 IF LAST CHAR
0x2d8808…2d899c Dummy {f00=0x00e4, f01=0x0190, f02=» EQU * ' P LD A1,4,A8 REQUESTED LENGTH ( P SUR A1,A3 ( 2 * P RF(NP) GCH010 LAST CHARACTER REACHED ( D " P LD A1,2,A8 GET BUFFER ADDRESS ( r P ADR A1,A3 ( P LCR A2,A1 CHAR. TO A2 ( P ANK A2,/FF ( $ P ADK A3,1 INCREMENT BUFFER INDEX ( P RTN
0x2d899c…2d8b30 Dummy {f00=0x00e4, f01=0x018e, f02=» ( l P* ) P* ) PDWTW01 EQU * TABLE ENTRY ) " P DATA /0010 CHANNEL PARAMETER ) < 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY ) b P DATA 0 ECB ADDRESS ) P DATA 0 ORDER ) ( P DATA TWAD POINTER TO ADDRESS BLOCK ) P DATA 0 TTAB-ADDRESS
0x2d8b30…2d8cc4 Dummy {f00=0x00e4, f01=0x0190, f02=» ) l P DATA DEVECB MMU ECB ADDRESS * P XIF * , P DATA 0 OUTPUT QUEUE LINK * 8 P DATA 0 SAVE AREA FOR A3 * Z P DATA 0 SAVE AREA FOR A4 * z P DATA 0 SAVE AREA FOR A5 * P RES 4 STACK BASE * P DATA 1 TIMER POINTER * P DATA 0 ECHO DEVICE *
0x2d8cc4…2d8e58 Dummy {f00=0x00e4, f01=0x018c, f02=»YTE DOUBLE ZERO * " P DATA 0 HEAD POSITION POINETR + P DATA 0 SAVE AREA FOR A2 + > , P DATA 0 ECHO DEV (CHANGED DWT-LAYOUT) =1 + ^ P* + P EJECT DRTW01 + P* + P* + P IFT MMUPAG=1 + PDEVECB EQU * + P DATA 0 + P DATA TW:B
0x2d8e58…2d8fec Dummy {f00=0x00e4, f01=0x4008, f02=»@ , LE ZERO * " P DATA 0 HEAD POSITION POINETR + P DATA 0 SAVE AREA FOR A2 + > , P DATA 0 ECHO DEV (CHANGED DWT-LAYOUT) =1 + ^ P* + P EJECT DRTW01 + P* + P* + P IFT MMUPAG=1 + PDEVECB EQU * + P DATA 0 + P DATA TW:B
0x2d8fec…2d9180 Dummy {f00=0x00e4, f01=0x2008, f02=» -
0x2d9180…2d9314 (1, 723) Dummy {f00=0x00e5, f01=0x0190, f02=» PLCNRR=2 - * P DATA /0103,/0400,/0D05,TIMACT,/0108,0 . P XIF . @ POPNR31 EQU * LINE 1 . L P IFF PLCNRR=0 . h P IFF PLCNRR=1 . ~ P IFF PLCNRR=2 . * P DATA /0103,/0400,/0D05,TIMACT,/0908,0 . P XIF . POPNR32 EQU * LINE 2 . P IFF PLC
0x2d9314…2d94a8 Dummy {f00=0x00e5, f01=0x0190, f02=» . | P IFF PLCNRR=0 / P IFF PLCNRR=1 / P IFF PLCNRR=2 / 4 * P DATA /0103,/0400,/0D05,TIMACT,/1308,0 / J P XIF / x P* / P* REMOTE PLC 2 / POPNR20 EQU * LINE 0 / P IFF PLCNRR=0 / P IFF PLCNRR=1 / * P DATA /0103,/0400,/0D05,TIMA
0x2d94a8…2d963c Dummy {f00=0x00e5, f01=0x0190, f02=»08,0 / n P XIF 0 POPNR22 EQU * LINE 2 0 P IFF PLCNRR=0 0 4 P IFF PLCNRR=1 0 J * P DATA /0103,/0400,/0D05,TIMACT,/0B08,0 0 ` P XIF 0 POPNR23 EQU * LINE 3 0 P IFF PLCNRR=0 0 P IFF PLCNRR=1 0 * P DATA /0103,/0400,/0D05,TIMACT,/1308,0
0x2d963c…2d97d0 Dummy {f00=0x00e5, f01=0x018e, f02=»08,0 0 n P XIF 1 POPNR11 EQU * LINE 1 1 P IFF PLCNRR=0 1 4 * P DATA /0103,/0400,/0D05,TIMACT,/0908,0 1 J P XIF 1 x POPNR12 EQU * LINE 2 1 P IFF PLCNRR=0 1 * P DATA /0103,/0400,/0D05,TIMACT,/0B08,0 1 P XIF 1 POPNR13 EQU * LINE 3 1
0x2d97d0…2d9964 Dummy {f00=0x00e5, f01=0x0190, f02=» P* 2 , PPLCPFP DATA 0 PLC LOCAL POWER FAIL FLAG 2 P* 2 > ( P IFF UTTEST=0 TEST VERSION OF DRIVER 2 H P* 2 t P EJECT 2 ~ P* 2 ( PUTTST DATA UTTEST 1 = TRAP NOT USED 2 P* 2 P* 2 " P* QUEUE STATISTICS COUNTERS 2 & P* EACH COUNT
0x2d9964…2d9af8 Dummy {f00=0x00e5, f01=0x0190, f02=»QSTA RES 8 LONG BUFFERS QUEUE 2 PCCQSTA RES 8 CCA QUEUE 3 & $ PSTATLN EQU *-STATAR TABLE LENGTH 3 D P* 3 l P XIF 3 v P EJECT 3 P* 3 P* 3 P* CWT DISPLACEMENTS 3 P* 3 PCWTOPR EQU /00 CU OPERABLE 3 PCWTCCB EQU /02 CCA BUSY 3
0x2d9af8…2d9c8c Dummy {f00=0x00e5, f01=0x0190, f02=» LATEST PLC RCA STATUS 3 $ PCWTLNO EQU /0C LINE NO INDICATOR 4 , PCWTPAR EQU /0E INDEX TO PARAMETER AREA 4 F 6 PCWTOPP EQU /10 OPEN LINE PARAMETER AREA ADDRESS =2 4 v $ PCWTINT EQU /12 WS TABLE ADDRESS 4 ( PCWTBUF EQU /14 INP. BUFFER ADDRESS 4 2 PCWTS
0x2d9c8c…2d9e20 Dummy {f00=0x00e5, f01=0x0190, f02=» 4 n 2 PCWTMBQ EQU /1C QUEUE OF ALLOCATED MON. BLOCKS 5 " PCWTTPR EQU /1E TIMER POINTER 5 > $ PCWTCIO EQU /20 CIO START INSTR. 5 d PCWTST3 EQU /22 SST INSTR. 5 . PCWTCSD EQU /24 CTRL UNIT START DESCRIPTOR 5 , PCWTCID EQU /2A CTRL UNIT INTERF. DESCR.
0x2d9e20…2d9fb4 (1, 724) Opaque[0x194]
0x2d9fb4…2da148 # DirEnt {nam=»DRVU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ca8, f03=0x0000}
0x2d9fb4…2da148 IdxSect {
0x2d9fb4…2da148 f00 = 0x00e5 // 0x2d9fb4 @0x0
0x2d9fb4…2da148 f01 = 0x004e // 0x2d9fb6 @0x2
0x2d9fb4…2da148 gno = [ // 0x2d9fb8 @0x4
0x2d9fb4…2da148 [0x00]: C0x00e5.0x1.0
0x2d9fb4…2da148 [0x01]: C0x00e5.0x2.0
0x2d9fb4…2da148 [0x02]: C0x00e5.0x3.0
0x2d9fb4…2da148 [0x03]: C0x00e6.0x0.0
0x2d9fb4…2da148 [0x04]: C0x00e6.0x1.0
0x2d9fb4…2da148 [0x05]: C0x00e6.0x2.0
0x2d9fb4…2da148 [0x06]: C0x00e6.0x3.0
0x2d9fb4…2da148 [0x07]: C0x00e7.0x0.0
0x2d9fb4…2da148 [0x08]: C0x00e7.0x1.0
0x2d9fb4…2da148 [0x09]: C0x00e7.0x2.0
0x2d9fb4…2da148 [0x0a]: C0x00e7.0x3.0
0x2d9fb4…2da148 [0x0b]: C0x00e8.0x0.0
0x2d9fb4…2da148 [0x0c]: C0x00e8.0x1.0
0x2d9fb4…2da148 [0x0d]: C0x00e8.0x2.0
0x2d9fb4…2da148 [0x0e]: C0x00e8.0x3.0
0x2d9fb4…2da148 [0x0f]: C0x00e9.0x0.0
0x2d9fb4…2da148 [0x10]: C0x00e9.0x1.0
0x2d9fb4…2da148 [0x11]: C0x00e9.0x2.0
0x2d9fb4…2da148 [0x12]: C0x00e9.0x3.0
0x2d9fb4…2da148 [0x13]: C0x00ea.0x0.0
0x2d9fb4…2da148 [0x14]: C0x00ea.0x1.0
0x2d9fb4…2da148 [0x15]: C0x00ea.0x2.0
0x2d9fb4…2da148 [0x16]: C0x00ea.0x3.0
0x2d9fb4…2da148 [0x17]: C0x00eb.0x0.0
0x2d9fb4…2da148 [0x18]: C0x00eb.0x1.0
0x2d9fb4…2da148 [0x19]: C0x00eb.0x2.0
0x2d9fb4…2da148 [0x1a]: C0x00eb.0x3.0
0x2d9fb4…2da148 [0x1b]: C0x00ec.0x0.0
0x2d9fb4…2da148 [0x1c]: C0x00ec.0x1.0
0x2d9fb4…2da148 [0x1d]: C0x00ec.0x2.0
0x2d9fb4…2da148 [0x1e]: C0x00ec.0x3.0
0x2d9fb4…2da148 [0x1f]: C0x00ed.0x0.0
0x2d9fb4…2da148 [0x20]: C0x00ed.0x1.0
0x2d9fb4…2da148 [0x21]: C0x00ed.0x2.0
0x2d9fb4…2da148 [0x22]: C0x00ed.0x3.0
0x2d9fb4…2da148 [0x23]: C0x00ee.0x0.0
0x2d9fb4…2da148 [0x24]: C0x00ee.0x1.0
0x2d9fb4…2da148 [0x25]: C0x00ee.0x2.0
0x2d9fb4…2da148 [0x26]: C0x00ee.0x3.0
0x2d9fb4…2da148 ]
0x2d9fb4…2da148 }
0x2da148…2da2dc Dummy {f00=0x00e5, f01=0x018e, f02=» 2 P IDENT DRVU01 REL 11.0 81-01-26 870105041100 P : P B P J P R P* Z 6 P************************************************** d P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P* DRVU01 = DRIVER VIDEO CONNECTED DISPLAY PT
0x2da2dc…2da470 Dummy {f00=0x00e5, f01=0x0190, f02=» P* P* 6 P************************************************** P* R : P* THIS DRIVER CONSISTS OF THE FOLLOWING TWO SECTIONS: P* $ P* - S C R E E N S E C T I O N , P* - P E R I P H E R A L S E C T I O N P* P E
0x2da470…2da604 Dummy {f00=0x00e5, f01=0x0190, f02=»D VIA THE SCREEN SECTION OF THE VIDEO CHANNEL UNIT VCCU1/4. P* D < P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS N : P* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN : P* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE (
0x2da604…2da798 Dummy {f00=0x00e5, f01=0x0190, f02=»F THE DRIVER h ( P* CONSISTS OF FOLLOWING PARTS: P* @ , P* - D E V I C E D R I V E R P A R T J ( P* - L I N E D R I V E R P A R T z P* P EJECT P* . P* THE D E V I C E D R I V E R P A R T * P* OF THE SCREE
0x2da798…2da92c Dummy {f00=0x00e5, f01=0x018e, f02=»O N R O U T I N E ~ P* 6 P* -ACVU ACTIVATION OF DEVICE DRIVER, AT LKM DATA 1 & P* ` P* j P* t P* ~ P* A B O R T R O U T I N E P* < P* -ABVU ABORT HANDLING IN DEVICE DRIVER, AT LKM DATA 10 P* P*
0x2da92c…2daac0 Dummy {f00=0x00e5, f01=0x0190, f02=» P* P* P* P* " P* E C H O R O U T I N E , P* N . P* -ECHOVU ECHO-HANDLING OF KEYBOARD INPUT X P* P* P* P* P* E R R O R R O U T I N E P* , P* -DEVERR DEVICE DRIVER ERROR HANDLING,
0x2daac0…2dac54 (1, 725) Dummy {f00=0x00e5, f01=0x0190, f02=»CHECK IF LAST COLUMN WRITTEN, AND OUTPUT ONE CHARACTER 0 P* -ECHOUT OUTPUT ONE CHARACTER IN ECHO MODE > . P* -NXTROW UPDATE ROW COUNTER TO NEXT ROW, r & P* AND IF NECESSARY HANDLE SCROLL. 8 P* -NXTCOL CALLED AFTER WRITE IN CURRENT COLUMN, SO: ,
0x2dac54…2dade8 Dummy {f00=0x00e5, f01=0x0190, f02=»TE POSITION r @ P* -RESCN RESTORE SAVED WRITE POSITION TO BECOME CURRENT NEXT P* X P* b P* l P* v P* NORMAL REGISTER USAGE 6 P* IN THE DEVICE DRIVER PART OF SCREEN SECTION: P* * P* REGISTER A1 = RETURN CODE TO
0x2dade8…2daf7c Dummy {f00=0x00e5, f01=0x0190, f02=» A4 = WORK REGISTER " P* A5 = STACK BASE $ " P* A6 = DWT-ADDRESS J P* A7 = ORDER p " P* A8 = ECB-ADDRESS P* P EJECT P* * P* THE L I N E D R I V E R P A R T * P*
0x2daf7c…2db110 Dummy {f00=0x00e5, f01=0x0190, f02=»T I V A T I O N R O U T I N E S P* * 6 P* -STAWRI START WRITE SCREEN IN SPECIFIED POSITION 4 * P* -OUTCHA OUTPUT ONE SCREEN CHARACTER n P* -ENDWRI END WRITE SCREEN 8 P* -OUTCUR OUTPUT VISUAL CURSOR IN SPECIFIED POSITION , P* -CLESCR CLEA
0x2db110…2db2a4 Dummy {f00=0x00e5, f01=0x0190, f02=»U1 VCCU NO 1 P* IHSVU2 VCCU NO 2 P* IHSVU3 VCCU NO 3 . P* IHSVU4 VCCU NO 4 H P* IHSVU5 VCCU NO 5 b P* IHSVU6 VCCU NO 6 | P* IHSVU7 VCCU NO 7 P* IHSVU8 VCCU NO 8 P* P* P* P* P EJECT P* "
0x2db2a4…2db438 Dummy {f00=0x00e5, f01=0x0190, f02=»T NOT ACCEPTED ( P* -LINER3 SST UNEXPECTEDLY ACCEPTED " P* -LINER4 UNEXPECTED INTERRUPT B F P* -LINER5 I/O-INSTRUCTION TRIED DURING POWER FAIL POST PROCESSING h P* P* P* P* S U B - R O U T I N E S P* F P* -CONPOS CO
0x2db438…2db5cc Dummy {f00=0x00e5, f01=0x0190, f02=»-CWTDWT GET CWT-ADDRESS FROM DWT-ADDRESS . P* -PUTQUE PUT DWT INTO SCREEN OUTPUT QUEUE 0 . P* -GETQUE GET DWT FROM SCREEN OUTPUT QUEUE b P* P* P* P* NORMAL REGISTER USAGE 4 P* IN THE LINE DRIVER PART OF THE SCREEN SECTION:
0x2db5cc…2db760 Dummy {f00=0x00e5, f01=0x0190, f02=»STER P* A5 = CWT-ADDRESS P* A6 = DWT-ADDRESS & P* A7 = WORK REGISTER @ P* A8 = WORK REGISTER P* x P* P EJECT P* B P* THE P E R I P H E R A L S E C T I O N OF THE DRIVER IS A $ P* L I N E D R I V E R ONLY
0x2db760…2db8f4 (1, 726) Dummy {f00=0x00e5, f01=0x018e, f02=». V P* P* 6 P* THE PERIPHERAL SECTION OF THE DRIVER CONSISTS OF , P* THE FOLLOWING (LINE DRIVER) ROUTINES: X P* , P* A C T I V A T I O N R O U T I N E S P* * P* -VUSTBL DEFINE START OF OUTPUT BLOCK P* -VUCHRO CHAR
0x2db8f4…2dba88 Dummy {f00=0x00e5, f01=0x0190, f02=» P* * P* I N T E R R U P T R O U T I N E S P* @ P* FOR DATA INPUT J P* b P* -IHPVU1 VCCU NO 1 l P* -IHPVU2 VCCU NO 2 P* -IHPVU3 VCCU NO 3 P* -IHPVU4 VCCU NO 4 P* -IHPVU5 VCCU NO 5 P* -IHPVU6 VCCU N
0x2dba88…2dbc1c Dummy {f00=0x00e5, f01=0x0190, f02=»CLOCK TIME-OUT ~ P* P EJECT P* . & P* R E C O V E R Y R O U T I N E 8 P* b * P* -VUON LINE DRIVER RECOVERY ROUTINE, l 0 P* COMMON TO PERIPHERAL AND SCREEN SECTIONS. P* P* P* P* 6 P* NORMAL REGISTE
0x2dbc1c…2dbdb0 Dummy {f00=0x00e5, f01=0x0190, f02=»D ~ P* A3 = WORK REGISTER P* A4 = WORK REGISTER ( P* A5 = CWT-ADDRESS F P* A6 = DWT-ADDRESS b P* A7 = WORK REGISTER ~ P* A8 = WORK REGISTER P* P* P* P EJECT P* P* P* SYSTEM AD
0x2dbdb0…2dbf44 Dummy {f00=0x00e5, f01=0x0190, f02=»R UP TO EIGHT VIDEO CHANNELS p 8 P* -IS ADAPTED FOR CONNECTION OF THE VIDEO CHANNELS $ 0 P* EITHER ON PROGRAMMED CHANNEL OR IOP. ` 4 P* -HANDLES EITHER OF TWO CHARACTER GENERATORS. L P* -HANDLES ONE OF ELEVEN DIFFERENT (COUNTRY DEPENDANT) CHAR
0x2dbf44…2dc0d8 Dummy {f00=0x00e5, f01=0x0190, f02=» V . P* -CAN ECHO ALSO END OF RECORD CHARACTER 4 P* -CAN SUPPRESS TRAILING STRINGS COMPOSED OF: : P* SPACE (/20) r $ P* TABULATION (/11 + POS.CHAR.) P* UNDERLINE START (/12) " P* LOW INTENSITY START (/1E) P* LOW INTENS
0x2dc0d8…2dc26c Dummy {f00=0x00e5, f01=0x0190, f02=»CT P* P* P* P* ( P*********** 2 P* ENTRIES * F P*********** Z P* n P* x 6 P* SCREEN SECTION DEVICE DRIVER ACTIVATION ROUTINES P* P* ( P ENTRY VUAD ADDRESS TO ADDRESSBLOCK P* P*
0x2dc26c…2dc400 Dummy {f00=0x00e5, f01=0x0190, f02=»FROM VCCU1/4 NO 1 x . P ENTRY IHSVU2 INTERRUPT FROM VCCU1/4 NO 2 . P ENTRY IHSVU3 INTERRUPT FROM VCCU1/4 NO 3 L . P ENTRY IHSVU4 INTERRUPT FROM VCCU1/4 NO 4 ~ . P ENTRY IHSVU5 INTERRUPT FROM VCCU1/4 NO 5 . P ENTRY IHSVU6 INTERRUPT FROM VCCU1/4
0x2dc400…2dc594 (1, 727) Dummy {f00=0x00e6, f01=0x018e, f02=»* $ P* PERIPHERAL SECTION LINE DRIVER L P* ACTIVATION ROUTINES ENTERED FROM DEVICE DRIVERS VIA NETWORK DISTRIBUTO 2 P* " P ENTRY VUCHRI CHARACTER INPUT . P ENTRY VUSTBL DEFINE START OF OUTPUT BLOCK " P ENTRY VUCHRO CHARACTER OUTPUT ,
0x2dc594…2dc728 Dummy {f00=0x00e6, f01=0x0190, f02=» 6 P* INTERRUPT ROUTINES ENTERED FROM INTERRUPT VECTOR P* > . P ENTRY IHPVU1 INTERRUPT FROM VCCU1/4 NO 1 H . P ENTRY IHPVU2 INTERRUPT FROM VCCU1/4 NO 2 z . P ENTRY IHPVU3 INTERRUPT FROM VCCU1/4 NO 3 . P ENTRY IHPVU4 INTERRUPT FROM VCCU1/4 NO 4
0x2dc728…2dc8bc Dummy {f00=0x00e6, f01=0x0190, f02=» VCCU1/4 NO 7 t . P ENTRY IHPVU8 INTERRUPT FROM VCCU1/4 NO 8 P* H P* MISCELLENEOUS ENTRIES R P* r 0 P ENTRY VUON START RECOVERY OF VCCU1/4 UNITS | P* P* P* P* P EJECT P* . P************************
0x2dc8bc…2dca50 Dummy {f00=0x00e6, f01=0x0190, f02=»* P* P EXTRN SAVE8 SAVE A1-A8 P EXTRN TDISP DISPATCH 4 P EXTRN TENDIO END I/O R & P EXTRN DISEND END I/O AND DISPATCH p . P EXTRN DISIOE ERROR, END I/O AND DISPATCH P EXTRN IHRTN RETURN , P EXTRN SWL48 SWITCH TO LEVEL 48
0x2dca50…2dcbe4 Dummy {f00=0x00e6, f01=0x0190, f02=»XTRN INTVU3 INTERRUPT TABLE FOR VCCU1/4 NO 3 2 P EXTRN INTVU4 INTERRUPT TABLE FOR VCCU1/4 NO 4 4 2 P EXTRN INTVU5 INTERRUPT TABLE FOR VCCU1/4 NO 5 j 2 P EXTRN INTVU6 INTERRUPT TABLE FOR VCCU1/4 NO 6 2 P EXTRN INTVU7 INTERRUPT TABLE FOR VCCU1/4 NO 7
0x2dcbe4…2dcd78 Dummy {f00=0x00e6, f01=0x0190, f02=»NTERRUPT r 2 P EXTRN PFPOST POWER FAIL POST PROCESSING FLAG P* F * P EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT P . P EXTRN NDGEDW GET DWT ADDRESS FOR A DEVICE ~ 2 P EXTRN NDREWS CALL RECOVERY FOR A WORK-STATION P EXTRN NDRET RETURN P EXTRN
0x2dcd78…2dcf0c Dummy {f00=0x00e6, f01=0x0190, f02=»FTER ECHO n 0 P EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER P EJECT F P* T : P****************************************************** ^ ( P* DRIVER ADDRESS BLOCK DISPLACEMENTS < P******************************************************* P
0x2dcf0c…2dd0a0 Dummy {f00=0x00e6, f01=0x0190, f02=» Z P* DEVICE INDEX VALUES : P***************************************************** & P* d 2 P EXTRN PC:DIX PROGRAMMED CHANNEL DEVICE INDEX n P* P* @ P*********************************************************** P* ECB DISPLA
0x2dd0a0…2dd234 (1, 728) Dummy {f00=0x00e6, f01=0x0190, f02=»XTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH ( P EXTRN ECBRC ECB RETURN CODE R " P EXTRN ECBCW ECB CONTROL WORD v P EJECT P* P* P************************ P* DWT PARAMETERS * P**********
0x2dd234…2dd3c8 Dummy {f00=0x00e6, f01=0x0190, f02=»-BLOCK p P EXTRN DWTOTQ OUTPUT QUEUE & P EXTRN DWTSB2 STACK BASE 2 IN DWT 0 & P EXTRN DWTCP2 CHANNEL PARAMETERS 2 Z * P EXTRN DWTLD1 LINE DRIVER DEPENDANT 1 * P EXTRN DWTLD2 LINE DRIVER DEPENDANT 2 P* P* 8 P EXTRN DWTDEV DEVICE
0x2dd3c8…2dd55c Dummy {f00=0x00e6, f01=0x0190, f02=» CONDITIONAL ASSEMBLY * . P***************************************** 0 P* b . P* THE NUMBER OF VIDEO CHANNELS HANDLED BY l * P* THE LINE DRIVER PART OF THIS DRIVER 8 P* IS SELECTED BY SETTING X:A TO 1,2,3,4,5,6,7 OR 8. P
0x2dd55c…2dd6f0 Dummy {f00=0x00e6, f01=0x0190, f02=» SHOULD HANDLE SCREEN SECTION OF VCCU1/4 , P* CONNECTED ON PROGRAMMED CHANNEL OR IOP ! 0 , P* IS SELECTED BY SETTING X:B TO 0 OR 1. ! ` P* ! PX:B EQU 0 ! PIOP EQU X:B ! P* ! P* ! P* ! H P* IF A DRIVER VERSION USING THE EXTENDED I
0x2dd6f0…2dd884 Dummy {f00=0x00e6, f01=0x0190, f02=» ! : P* WHICH ONE OF EITHER OF THE TWO CHARACTER GENERATORS " B P* FOR SCREEN OUTPUT (TYPE I = ENGLISH, OR TYPE II = AMERICAN) " F 8 P* THE LINE DRIVER PART OF THE DRIVER SHOULD HANDLE, " , P* IS SELECTED BY SETTING X:C TO 1 OR 2. " P* " PX:C EQ
0x2dd884…2dda18 Dummy {f00=0x00e6, f01=0x018e, f02=»HANDLE " d 6 P* (PROVIDED THAT THE CHARACTER SET IS SUPPORTED # 0 P* BY THE SELECTED CHARACTER GENERATOR), # H > P* IS SELECTED BY SETTING X:D TO 0,1,2,3,4,5,6,7,8,9 OR /A. # | P # P # P* CHARACTER-SET COUNTRY # P # P* 0 GB/NZ/SA/NL/B
0x2dda18…2ddbac Dummy {f00=0x00e6, f01=0x0190, f02=» P* 9 US $ P* A S (INDUSTRY VERSION) $ P* $ 2 PX:D EQU 0 $ < PCHASET EQU X:D $ N P* $ d P* $ n P* $ x P EJECT $ P* $ . P* IF THE DEVICE DRIVER PART OF THE DRIVER $ 0 P* SHOULD ECHO ALSO END-OF-RECORD-CHARACTER, $ , P* THIS I
0x2ddbac…2ddd40 Dummy {f00=0x00e6, f01=0x0190, f02=»RIVER $ l 8 P* SHOULD SUPPRESS TRAILING STRINGS COMPOSED ONLY OF % . P* /20, /11+POS.CHARACTERS, /12, /1E, /1F, % J , P* THIS IS SELECTED BY SETTING X:F TO 1. % | P* % PX:F EQU 1 % PTRASPA EQU X:F % P* % P* % ( P* MEMORY MANAGEMENT BU
0x2ddd40…2dded4 (1, 729) Dummy {f00=0x00e6, f01=0x0190, f02=»* % P* & PX:G EQU 80 & PDVBLEN EQU X:G & & P* & < P EJECT & F P* & T P* & ^ $ P******************************** & h 6 P* DWT-DISPLACEMENTS RELATIVE DWTDEV * & $ P******************************** & P* & P* & P*
0x2dded4…2de068 Dummy {f00=0x00e6, f01=0x0190, f02=» < PDWTCNC EQU DWTCN+1 CURRENT NEXT WRITE POS. COLUMN NUMBER ' P* ' D P* ' N 2 PDWTSN EQU 4 SAVED CURRENT NEXT WRITE POSITION ' X 0 P* AFTER PREVIOUS REQUEST OR AT /14 COMMAND ' : PDWTSNR EQU DWTSN SAVED NEXT WRITE POSITION ROW NUMBER ' : PDWTSNC E
0x2de068…2de1fc Dummy {f00=0x00e6, f01=0x0190, f02=» ' P* ( 0 P* USED BY SCREEN SECTION, DEVICE DRIVER PART ( P* ( F 8 PMAXROW EQU /1818 MAX NUMBER OF ROWS PER SCREEN IS 24 ( P < PMAXCOL EQU /5050 MAX NUMBER OF COLUMNS PER SCREEN IS 80 ( P* DWTDEV-BITS ( : PUNDBIT EQU /0400 UNDERLINE/NON-UNDERLI
0x2de1fc…2de390 Dummy {f00=0x00e6, f01=0x0190, f02=»LUMN WRITTEN ( z : PLCPBIT EQU /20 LAST COLUMN WRITTEN BY PREVIOUS REQUEST ) P* ) R PSPACE EQU /20 SPACE ) " PPOINT EQU /2E POINT CHARACTER ) x P* ) * PCCERR EQU /4 STATUS: CODE CHECK ERROR ) & POPERR EQU /1 STATUS: NOT OPERABLE ) P* )
0x2de390…2de524 Dummy {f00=0x00e6, f01=0x0190, f02=»T BIT 11,12,13 (LINE DRIVER DEPENDANT) ) 2 POTRFLA EQU /0010 OTR-ACTION AT NEXT INTERRUPT * . 2 PHLTFLA EQU /0008 HALT-ACTION AT NEXT INTERRUPT * d 2 PSSTFLA EQU /0004 SST-ACTION AT NEXT INTERRUPT * P* * , PSMLCUR EQU /07FF SCREEN MEMORY LOCATION *
0x2de524…2de6b8 Dummy {f00=0x00e6, f01=0x0190, f02=»E DRIVER PART OF SCREEN SECTION * h 2 PCIOERR EQU /8000 ERROR: CIO START NOT ACCEPTED + ( , POTRERR EQU /4000 ERROR: OTR NOT ACCEPTED + ^ , PSSTERR EQU /2000 ERROR: SST NOT ACCEPTED + 6 PSSTER2 EQU /1000 ERROR: SST UNEXPECTEDLY ACCEPTED + P* (AFTER CIO S
0x2de6b8…2de84c Dummy {f00=0x00e6, f01=0x0190, f02=»ED BY PERIPHERAL SECTION: + P* , " P* , , < PQUETIM EQU 1 CWT PERIPHERAL OUTPUT QUEUE TIME-OUT VALUE , 6 P* (MULTIPLES OF 100MS) , v 4 PMAXTVU EQU 4 MAX NBR OF TERMINALS ON ANY VCCU1/4 , 0 PTCPON EQU /0001 RECOVERY CAUSE: TC POWER ON , > PPONPSW
0x2de84c…2de9e0 Dummy {f00=0x00e6, f01=0x0190, f02=»RMNR EQU /0300 MASK FOR BIO BITS : TERM.NBR WITHIN CHANNEL , < PDEVADR EQU /0400 MASK FOR BIO BIT: DEV.ADR. WITHIN TERM. - B : PINDATA EQU /00FF MASK FOR BIO DATA BITS IN INPUT WORD - P* - P EJECT - P* - P********** - P* TABLES * - P**
0x2de9e0…2deb74 (1, 730) Dummy {f00=0x00e6, f01=0x0190, f02=»CE INDEX (ALWAYS!) - l PVUAD EQU * ADDRESS BLOCK . P DATA ACVU ACTIVATION DRIVER . : $ P DATA ABVU ABORT ROUTINE ADDRESS . ^ P DATA 0 INTERRUPT HANDLER . P DATA RCVU RECOVERY ROUTINE . . P DATA ECHOVU DEVICE-DEPENDENT ECHO-ROUTINE . P* . P
0x2deb74…2ded08 Dummy {f00=0x00e6, f01=0x0190, f02=»CODOUT EQU * . P IFT CHASET=0 / P IFT CHAGEN=1 / * ( P DATA /2340,/5B5C,/5D60,/7B7C,/7D7E / @ P XIF / l P IFT CHASET=0 / x P IFT CHAGEN=2 / ( P DATA /0340,/5B5C,/5D60,/7B7C,/7D7E / P XIF / P IFT CHASET=1 / P IFT CHAGEN=1 / ( P
0x2ded08…2dee9c Dummy {f00=0x00e6, f01=0x0190, f02=» / l P XIF 0 P IFT CHASET=3 0 P IFT CHAGEN=2 0 * ( P DATA /0340,/5B08,/5D60,/7B18,/7D7E 0 @ P XIF 0 l P IFT CHASET=4 0 x P IFT CHAGEN=1 0 ( P DATA /2310,/0608,/0716,/1215,/1314 0 P XIF 0 P IFT CHASET=5 0 P IFT CHAGEN=1 0 ( P
0x2dee9c…2df030 Dummy {f00=0x00e6, f01=0x0190, f02=» 0 l P XIF 1 P IFT CHASET=7 1 P IFT CHAGEN=2 1 * ( P DATA /0340,/0604,/0560,/1614,/157E 1 @ P XIF 1 l P IFT CHASET=8 1 x P IFT CHAGEN=2 1 ( P DATA /0307,/0B0C,/0D17,/1B1C,/1D7E 1 P XIF 1 P IFT CHASET=9 1 P IFT CHAGEN=1 1 ( P
0x2df030…2df1c4 Dummy {f00=0x00e6, f01=0x0190, f02=» 1 l P XIF 2 P IFT CHASET=/A 2 P IFT CHAGEN=1 2 * ( P DATA /2340,/0B0C,/0D60,/1B1C,/1D7E 2 @ P XIF 2 l P* 2 x B P* IF ERROR IN SYSGEN (WRONG COMBINATION OF CHASET AND CHAGEN), 2 . P* THEN CHARACTER-SET DEPENDANT INPUT-CODES 2 & P* ARE CONVERTE
0x2df1c4…2df358 Dummy {f00=0x00e6, f01=0x0190, f02=»************************************ 2 4 P* C W T T A B * 3 , 2 P********************************************** 3 d P* 3 B P* THIS TABLE HOLDS ADDRESSES TO CHANNEL WORK TABLES, CWT:S, 3 ( P* ONE CWT PER VIDEO CHANNEL
0x2df358…2df4ec Dummy {f00=0x00e6, f01=0x0190, f02=»ATA CWTVU2 3 P XIF 4 P IFF VUCHAN=1 4 P IFF VUCHAN=2 4 4 P DATA CWTVU3 4 J P XIF 4 ^ P IFF VUCHAN=1 4 j P IFF VUCHAN=2 4 P IFF VUCHAN=3 4 P DATA CWTVU4 4 P XIF 4 P IFF VUCHAN=1 4 P IFF VUCHAN=2 4 P IFF VUCHAN=3 4
0x2df4ec…2df680 Dummy {f00=0x00e6, f01=0x0190, f02=»N=4 4 P IFF VUCHAN=5 5 P DATA CWTVU6 5 " P XIF 5 6 P IFF VUCHAN=1 5 B P IFF VUCHAN=2 5 X P IFF VUCHAN=3 5 n P IFF VUCHAN=4 5 P IFF VUCHAN=5 5 P IFF VUCHAN=6 5 P DATA CWTVU7 5 P XIF 5 P IFF VUCHAN=1 5 P IFF VUCHAN=
0x2df680…2df814 (1, 731) Dummy {f00=0x00e7, f01=0x0190, f02=» P XIF 6 PCWTABE EQU * END OF TABLE 6 P* 6 2 P EJECT 6 < P* 6 J P* 6 T : P***************************************************** 6 ^ : P* C W T V U 1 * 6 : P**********************************************
0x2df814…2df9a8 Dummy {f00=0x00e7, f01=0x0190, f02=»SS 6 r P* 7 PCWTVU1 EQU * TABLE ENTRY 7 PCWTDOS EQU *-CWTVU1 7 4 4 P DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 7 P PCWTPQ EQU *-CWTVU1 7 2 P DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR 7 PCWTSEQ EQU *-CWTVU1 7 4 P DATA 0 SCREEN SEC
0x2df9a8…2dfb3c Dummy {f00=0x00e7, f01=0x0190, f02=»U1 7 2 P DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR 8 PCWTACK EQU *-CWTVU1 8 B < P DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION 8 ^ PCWTSRD EQU *-CWTVU1 8 ( P DATA 0 SST-READY DWT (SCREEN ONLY) 8 PCWTITA EQU *-CWTVU1 8 : P DATA
0x2dfb3c…2dfcd0 Dummy {f00=0x00e7, f01=0x0190, f02=»WTVU1 8 ( P CIO A2,1,VU1+1 CIO START PERIPHERAL 9 PCWTOTS EQU *-CWTVU1 9 : P OTR A2,0,VU1 OTR SCREEN 9 V PCWTOTP EQU *-CWTVU1 9 v " P OTR A2,0,VU1+1 OTR PERIPHERAL 9 PCWTCHS EQU *-CWTVU1 9 " P CIO A2,0,VU1 CIO HALT SCREEN 9 PCWTCHP EQU *-C
0x2dfcd0…2dfe64 Dummy {f00=0x00e7, f01=0x018e, f02=»-CWTVU1 9 * P INR A2,0,VU1+1 INR (PERIPHERAL ONLY) : P IFT IOP=1 : > PCWTWE1 EQU *-CWTVU1 : P 0 P WER A2,VU1+VU1 WER1 (SCREEN ONLY, IOP ONLY) : l PCWTWE2 EQU *-CWTVU1 : 2 P WER A2,VU1+VU1+1 WER2 (SCREEN ONLY, IOP ONLY) : PCWTBUF EQU *-CWTVU1 :
0x2dfe64…2dfff8 Dummy {f00=0x00e7, f01=0x018e, f02=» : ^ P XIF ; P* ; P IFF VUCHAN=1 ; P EJECT ; 4 P* ; B P* ; L : P***************************************************** ; V : P* C W T V U 2 * ; : P*****************************************************
0x2dfff8…2e018c Dummy {f00=0x00e7, f01=0x0190, f02=» P* < PCWTVU2 EQU * TABLE ENTRY < P* < . 4 P DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 < 8 2 P DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR < p 4 P DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR < 2 P DATA 0 SCREEN SECTION LKM OUTPUT QUEUE AN
0x2e018c…2e0320 Dummy {f00=0x00e7, f01=0x0190, f02=»0 SST-READY DWT (SCREEN ONLY) < : P DATA INTVU2 ADDRESS TO POINTER TO WORK-STATION TABLE = & " P CIO A2,1,VU2 CIO START SCREEN = d ( P CIO A2,1,VU2+1 CIO START PERIPHERAL = P OTR A2,0,VU2 OTR SCREEN = " P OTR A2,0,VU2+1 OTR PERIPHERAL = " P CIO A2,0,VU
0x2e0320…2e04b4 (1, 732) Dummy {f00=0x00e7, f01=0x018e, f02=»RAL ONLY) = t P IFT IOP=1 > 0 P WER A2,VU2+VU2 WER1 (SCREEN ONLY, IOP ONLY) > $ 2 P WER A2,VU2+VU2+1 WER2 (SCREEN ONLY, IOP ONLY) > X 0 P RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) > 4 P DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY) > P XIF > P I
0x2e04b4…2e0648 Dummy {f00=0x00e7, f01=0x0190, f02=» : P* C W T V U 3 * ? : P***************************************************** ? B P* ? 8 P* CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 3 ? P* ? P* ? $ PVU3 EQU /06 CONTROL UNIT ADDRESS ? P* ?
0x2e0648…2e07dc Dummy {f00=0x00e7, f01=0x0190, f02=»QUEUE ANCHOR ? n 4 P DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR @ 2 P DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR @ L 2 P DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR @ < P DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION @ ( P DATA 0 SST-READ
0x2e07dc…2e0970 Dummy {f00=0x00e7, f01=0x0190, f02=»1,VU3+1 CIO START PERIPHERAL @ P OTR A2,0,VU3 OTR SCREEN A $ " P OTR A2,0,VU3+1 OTR PERIPHERAL A D " P CIO A2,0,VU3 CIO HALT SCREEN A j ( P CIO A2,0,VU3+1 CIO HALT PERIPHERAL A " P SST A2,VU3 SST (SCREEN ONLY) A * P INR A2,0,VU3+1 INR (PERIPHERAL ONLY)
0x2e0970…2e0b04 Dummy {f00=0x00e7, f01=0x018e, f02=» 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) A 4 P DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY) B 0 P XIF B h P IFF VUCHAN=1 B t P IFF VUCHAN=2 B P IFF VUCHAN=3 B P EJECT B P* B P* B : P************************************************
0x2e0b04…2e0c98 Dummy {f00=0x00e7, f01=0x018e, f02=» P* C 8 P* CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 4 C P* C J P* C T $ PVU4 EQU /02 CONTROL UNIT ADDRESS C ^ P* C PCWTVU4 EQU * TABLE ENTRY C P* C 4 P DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 C 2 P DATA 0 PERIPHERAL SEC
0x2e0c98…2e0e2c Dummy {f00=0x00e7, f01=0x0190, f02=» C ` 2 P DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR D < P DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION D > ( P DATA 0 SST-READY DWT (SCREEN ONLY) D ~ : P DATA INTVU4 ADDRESS TO POINTER TO WORK-STATION TABLE D " P CIO A2,1,VU4 CIO START SCREEN D
0x2e0e2c…2e0fc0 Dummy {f00=0x00e7, f01=0x0190, f02=»O HALT SCREEN D ( P CIO A2,0,VU4+1 CIO HALT PERIPHERAL E " P SST A2,VU4 SST (SCREEN ONLY) E B * P INR A2,0,VU4+1 INR (PERIPHERAL ONLY) E h P IFT IOP=1 E 0 P WER A2,VU4+VU4 WER1 (SCREEN ONLY, IOP ONLY) E 2 P WER A2,VU4+VU4+1 WER2 (SCREEN ONLY, IOP ONL
0x2e0fc0…2e1154 (1, 733) Dummy {f00=0x00e7, f01=0x0190, f02=»UCHAN=1 E P IFF VUCHAN=2 F P IFF VUCHAN=3 F & P IFF VUCHAN=4 F < P EJECT F R P* F ` P* F j : P***************************************************** F t : P* C W T V U 5 * F : P************************
0x2e1154…2e12e8 Dummy {f00=0x00e7, f01=0x0190, f02=»/20 CONTROL UNIT ADDRESS F P* G PCWTVU5 EQU * TABLE ENTRY G * P* G J 4 P DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 G T 2 P DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR G 4 P DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR G 2 P DATA 0 SCREEN
0x2e12e8…2e147c Dummy {f00=0x00e7, f01=0x0190, f02=»PHERAL SECTION G f ( P DATA 0 SST-READY DWT (SCREEN ONLY) H : P DATA INTVU5 ADDRESS TO POINTER TO WORK-STATION TABLE H B " P CIO A2,1,VU5 CIO START SCREEN H ( P CIO A2,1,VU5+1 CIO START PERIPHERAL H P OTR A2,0,VU5 OTR SCREEN H " P OTR A2,0,VU5+1 OTR PE
0x2e147c…2e1610 Dummy {f00=0x00e7, f01=0x0190, f02=» INR A2,0,VU5+1 INR (PERIPHERAL ONLY) H P IFT IOP=1 I . 0 P WER A2,VU5+VU5 WER1 (SCREEN ONLY, IOP ONLY) I @ 2 P WER A2,VU5+VU5+1 WER2 (SCREEN ONLY, IOP ONLY) I t 0 P RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) I 4 P DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP
0x2e1610…2e17a4 Dummy {f00=0x00e7, f01=0x018e, f02=» EJECT I P* J P* J : P***************************************************** J " : P* C W T V U 6 * J ` : P***************************************************** J P* J 8 P* CHANNEL WORK TABLE FOR VIDEO
0x2e17a4…2e1938 Dummy {f00=0x00e7, f01=0x0190, f02=» 4 P DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 K 2 P DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR K < 4 P DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR K r 2 P DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR K 2 P DATA 0 PERIPH. SECTION OUTPUT QUEUE TIM
0x2e1938…2e1acc Dummy {f00=0x00e7, f01=0x0190, f02=»DDRESS TO POINTER TO WORK-STATION TABLE K " P CIO A2,1,VU6 CIO START SCREEN L 0 ( P CIO A2,1,VU6+1 CIO START PERIPHERAL L V P OTR A2,0,VU6 OTR SCREEN L " P OTR A2,0,VU6+1 OTR PERIPHERAL L " P CIO A2,0,VU6 CIO HALT SCREEN L ( P CIO A2,0,VU6+1 CIO HALT P
0x2e1acc…2e1c60 Dummy {f00=0x00e7, f01=0x0190, f02=»WER1 (SCREEN ONLY, IOP ONLY) L 2 P WER A2,VU6+VU6+1 WER2 (SCREEN ONLY, IOP ONLY) M $ 0 P RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) M Z 4 P DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY) M P XIF M P IFF VUCHAN=1 M P IFF VUCHAN=2 M P IFF VUCHA
0x2e1c60…2e1df4 (1, 734) Dummy {f00=0x00e7, f01=0x0190, f02=»***************************** M x : P* C W T V U 7 * N & : P***************************************************** N d P* N 8 P* CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 7 N P* N P* N $ PVU7 EQU /26
0x2e1df4…2e1f88 Dummy {f00=0x00e7, f01=0x0190, f02=» DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR N 4 P DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR O 6 2 P DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR O n 2 P DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR O < P DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHER
0x2e1f88…2e211c Dummy {f00=0x00e7, f01=0x0190, f02=»7 CIO START SCREEN O ( P CIO A2,1,VU7+1 CIO START PERIPHERAL P P OTR A2,0,VU7 OTR SCREEN P F " P OTR A2,0,VU7+1 OTR PERIPHERAL P f " P CIO A2,0,VU7 CIO HALT SCREEN P ( P CIO A2,0,VU7+1 CIO HALT PERIPHERAL P " P SST A2,VU7 SST (SCREEN ONLY) P * P INR
0x2e211c…2e22b0 Dummy {f00=0x00e7, f01=0x0190, f02=»SCREEN ONLY, IOP ONLY) P x 0 P RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) Q 4 P DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY) Q R P XIF Q P IFF VUCHAN=1 Q P IFF VUCHAN=2 Q P IFF VUCHAN=3 Q P IFF VUCHAN=4 Q P IFF VUCHAN=5 Q P IFF
0x2e22b0…2e2444 Dummy {f00=0x00e7, f01=0x0190, f02=»* C W T V U 8 * Q : P***************************************************** R > P* R | 8 P* CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 8 R P* R P* R $ PVU8 EQU /2C CONTROL UNIT ADDRESS R P* R P
0x2e2444…2e25d8 Dummy {f00=0x00e7, f01=0x0190, f02=»E ANCHOR R j 4 P DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR S 2 P DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR S H 2 P DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR S ~ < P DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION S ( P DATA 0 SST-READY DW
0x2e25d8…2e276c Dummy {f00=0x00e7, f01=0x0190, f02=»8+1 CIO START PERIPHERAL S P OTR A2,0,VU8 OTR SCREEN T " P OTR A2,0,VU8+1 OTR PERIPHERAL T @ " P CIO A2,0,VU8 CIO HALT SCREEN T f ( P CIO A2,0,VU8+1 CIO HALT PERIPHERAL T " P SST A2,VU8 SST (SCREEN ONLY) T * P INR A2,0,VU8+1 INR (PERIPHERAL ONLY) T
0x2e276c…2e2900 Dummy {f00=0x00e7, f01=0x0190, f02=» IOP-BUFFER (SCREEN ONLY, IOP ONLY) T 4 P DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY) U , P XIF U d P* U p P* U z P* U P* U P EJECT U P* U @ P************************************************************ U P* U " P* S C R E
0x2e2900…2e2a94 (1, 735) Dummy {f00=0x00e8, f01=0x0190, f02=»******************************************************* U P* V @ P* V J P* ENTERED: AT LKM DATA 1 V T P* V t P* FUNCTIONS: V ~ P* V P* V " P* ORDER /00: TEST STATUS. V 0 P* 1.DUMMY IS SENT TO DISPLAY VIA VCCU1/4. V J P*
0x2e2a94…2e2c28 Dummy {f00=0x00e8, f01=0x0190, f02=»Y: V 2 P* IF CURSOR POSITION IS LAST COLUMN OF A ROW, W 0 P* AND IF THAT LAST COLUMN IS WRITTEN INTO, W @ 6 P* AND IF THE CURSOR HAS NOT BEEN POSITIONED SINCE W t . P* THE WRITING OF THAT LAST COLUMN, THEN: W " P* ECBCW IS INCREMENTED WITH 1 W . P*
0x2e2c28…2e2dbc Dummy {f00=0x00e8, f01=0x0190, f02=»MED W r > P* ACCORDING TO CHARACTER(S) FROM ECB-BUFFER. X D P* CHARACTERS IN THE RANGE /20 - /7F ARE ACCEPTED AND DISPLAYED. X N J P* CHARACTERS IN THE RANGE /00 - /1F (COMMAND CHARACTERS) X H P* FROM ECB-BUFFER, ARE
0x2e2dbc…2e2f50 Dummy {f00=0x00e8, f01=0x0190, f02=»N IN ECBRC. X x < P* WHEN THE LAST COLUMN OF A ROW HAS BEEN WRITTEN INTO, Y , P* THE CURSOR REMAINS IN THAT POSITION, Y T . P* AND THE FOLLOWING CHARACTERS (/20-/7F) Y , P* ARE WRITTEN INTO THAT SAME POSITION. Y 2 P* 2.EFFECTIVE LENGTH IS RETURNED
0x2e2f50…2e30e4 Dummy {f00=0x00e8, f01=0x0190, f02=»ED INTO ECBCW. Y d P* ADDITIONALLY: Z 2 P* IF CURSOR POSITION IS LAST COLUMN OF A ROW, Z . 0 P* AND IF THAT LAST COLUMN IS WRITTEN INTO, Z d 6 P* AND IF THE CURSOR HAS NOT BEEN POSITIONED SINCE Z . P* THE WRITING OF THAT LAST COLUMN, THEN: Z " P* E
0x2e30e4…2e3278 Dummy {f00=0x00e8, f01=0x0190, f02=» 1.IF REQUESTED LENGTH IS LESS THAN 2 BYTES Z B P* (NO CONTROL CHARACTER), THEN DEFAULT-ACTION LF+CR IS DONE. [ 4 : P* 2.IF REQUESTED LENGTH IS AT LEAST 2 BYTES, THEN [ z L P* ACTIONS SPECIFIED BY USER IN RIGHT-MOST BYTE OF FIRST WORD IN BUFF [ . P
0x2e3278…2e340c Dummy {f00=0x00e8, f01=0x0190, f02=»R [ r B P* /31 ERASE SCREEN AND WRITE FROM HOME POSITION P* OTHER VALUE: LF, CR P P* t 8 P* 3.IF REQUESTED LENGTH EXCEEDS 2 BYTES, THEN ALSO ~ $ P* DISPLAY-ACTION IS PERFORMED @ P* ACCORDING TO CHARACTER
0x2e340c…2e35a0 Dummy {f00=0x00e8, f01=0x0190, f02=»ANGE /00 - /1F (COMMAND CHARACTERS) n J P* FROM ECB-BUFFER, ARE ILLEGAL EXCEPT FOR /11, /12, /13, ] , D P* /14, /1E, /1F. ILLEGAL CHARACTERS ARE IGNORED AND ] z F P* WHEN THE REQUEST IS COMPLETED, ERROR INDICATION IS ]
0x2e35a0…2e3734 (1, 736) Dummy {f00=0x00e8, f01=0x0190, f02=»POSITION, ] r . P* AND THE FOLLOWING CHARACTERS (/20-/7F) ^ , P* ARE WRITTEN INTO THAT SAME POSITION. ^ D 2 P* 4.EFFECTIVE LENGTH IS RETURNED INTO ECBEL. ^ t ( P* 5.STATUS IS RETURNED INTO ECBRC, ^ : P* IF VCCU1/4 IS NOT OPERABLE OR IF CODE CHECK ERR
0x2e3734…2e38c8 Dummy {f00=0x00e8, f01=0x0190, f02=»MN OF A ROW, ^ n 0 P* AND IF THAT LAST COLUMN IS WRITTEN INTO, _ 6 P* AND IF THE CURSOR HAS NOT BEEN POSITIONED SINCE _ H . P* THE WRITING OF THAT LAST COLUMN, THEN: _ " P* ECBCW IS INCREMENTED WITH 1 _ . P* (INDICATING LAST+1 COLUMN OF THAT ROW) _
0x2e38c8…2e3a5c Dummy {f00=0x00e8, f01=0x0190, f02=»ION GIVEN _ ` ( P* IN ECBCW AT START OF REQUEST. ` , P* NO INFORMATION ON SCREEN IS ERASED. ` > 4 P* 2.THEN, IF REQUESTED LENGTH EXCEEDS 2 BYTES, ` n 0 P* DISPLAY-ACTION IS PERFORMED ACCORDING TO ` D P* CHARACTERS FROM ECB BUFFER (SEE ORDER /06,
0x2e3a5c…2e3bf0 Dummy {f00=0x00e8, f01=0x0190, f02=» POSITIONED. ` z 4 P* THE NUMBER OF CHARACTERS (1-80) TO BE ERASED, a 0 P* IS DEFINED IN ECBCW AT START OF REQUEST. a L . P* ERASING STARTS IN THE CURSOR POSITION. a , P* THE CURSOR REMAINS IN THAT POSITION. a D P* 2.STATUS IS RETURNED INTO ECBRC, IF
0x2e3bf0…2e3d84 Dummy {f00=0x00e8, f01=0x0190, f02=» P* A8 = ECB ADDRESS b P* b & P* OUTPUT: A1 = RETURN CODE FOR ECB b * P* A6 = DWT ADDRESS b T P* A7 = ORDER b p P* A8 = ECB ADDRESS b P* b F P***************************************************************** b P* b PACVU EQU
0x2e3d84…2e3f18 Dummy {f00=0x00e8, f01=0x0190, f02=»-INTERRUPTS) b p P* c , P CF A15,SWL48 SWITCH TO LEVEL 48 AND ENB c P* c N P* CHECK ORDER CODE c X P* c r P CWK A7,/06 ORDER /06 ? c | P RF(E) ACV100 YES c P CWK A7,/0B ORDER /0B ? c P ABL(E) ACV420 YES c P CWK A7,/31 ORDER /31 ?
0x2e3f18…2e40ac Dummy {f00=0x00e8, f01=0x0190, f02=»70 YES c P* d P* ILLEGAL ORDER CODE d P* d 4 " P ABL DISIOE I/O REQUEST ERROR d > P EJECT d d 6 P************************************************** d r P* ORDER /06 d P* STANDARD WRITE d 6 P************************************************
0x2e40ac…2e4240 Dummy {f00=0x00e8, f01=0x0190, f02=» LEAST 2 BYTES ? d 4 P RF(N) ACV120 NO. THEN NO CONTROL CHARACTER, SO e P* DO DEFAULT: LF+CR. e P P* e n $ P* CHECK BUFFER CONTROL CHARACTER e x P* e $ P LDK A3,2 INITIATE BUFFER INDEX e , P* TO POINT AFTER 2 CONTROL CHARACTERS e * P LD A2
0x2e4240…2e43d4 (1, 737) Dummy {f00=0x00e8, f01=0x0190, f02=»OUT POSITIONING BEFORE WRITE ? e P RF(Z) ACV150 YES f & P SUK A2,5 LF+LF+CR ? (=/30) f @ P RF(Z) ACV110 YES f d 4 P SUK A2,1 CLEAR SCREEN, HOME WRITE POS. ? (=/31) f ~ 8 P RF(NZ) ACV120 NO. THEN FOR ALL OTHER VALUES: LF+CR f P* f P* INITIAL AC
0x2e43d4…2e4568 Dummy {f00=0x00e8, f01=0x0190, f02=»DEV,A6 AS CURRENT NEXT WRITE POSITION f . P LDK A4,ROLBIT BIT 8 (SET IF SCROLL MODE) g . P C1R A4,A4 COMPLEMENT g ` : P ANS A4,DWTDEV,A6 RESET BIT 8 (NO LONGER SCROLL MODE) g ~ 6 P CF A5,CLESCR CLEAR SCREEN, RESET WRITE+CURSOR POS g " P ABL(NZ) DEVERR ST
0x2e4568…2e46fc Dummy {f00=0x00e8, f01=0x0190, f02=» * g * P CF A5,NXTROW DO LINE-FEED TO NEXT ROW h P* DO CR h 8 PACV130 EQU * h H P LDK A2,/01 FIRST COLUMN h 8 P SC A2,DWTCNC+DWTDEV,A6 AS CURRENT NEXT WRITE COLUMN h | PACV140 EQU * h 6 P LDK A4,LCWBIT BIT 9 (SET IF LAST COLUMN WRITTEN) h P C
0x2e46fc…2e4890 Dummy {f00=0x00e8, f01=0x0190, f02=»HARACTERS FROM BUFFER h z P* i PACV150 EQU * i ( : P LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION i < * P CF A5,STAWRI START NEW WRITE REQUEST i z " P ABL(NZ) DEVERR STATUS NOT OK i P IFT TRASPA=1 i P EJECT i P* i 2 P* REMOVE ANY
0x2e4890…2e4a24 Dummy {f00=0x00e8, f01=0x0190, f02=» LD A2,ECBRL,A8 GET REQUESTED LENGTH i , P ADR A1,A2 GET ADDRESS TO END OF BUFFER j , * PACV160 CWK A2,2 REQUESTED LENGTH < 3 ? j . P RF(NG) ACV200 YES. THEN NO (MORE) ACTION j $ P SUK A1,1 DECR ADDRESS IN BUFFER j P LCR A4,A1 GET CHAR j " P CCK A4,
0x2e4a24…2e4bb8 Dummy {f00=0x00e8, f01=0x0190, f02=»* TO SKIP THAT TRAILING CHAR j 4 P RB ACV160 GO BACKWARDS TO CHECK PRECEEDING CHAR k & * PACV180 CWK A2,4 REQUESTED LENGTH < 5 ? k ^ . P RF(NG) ACV200 YES. THEN NO (MORE) ACTION k 0 P LC A4,-2,A1 NOW GET THE CHAR 2 BYTES BEFORE k , P CCK A4,/1111 TRAILING
0x2e4bb8…2e4d4c Dummy {f00=0x00e8, 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.
0x2e4d4c…2e4ee0 Dummy {f00=0x00e8, 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
0x2e4ee0…2e5074 (1, 738) Dummy {f00=0x00e8, f01=0x0190, f02=»* m P* CHECK OF COMMAND CHARACTER n P* n . PACV220 EQU * n 8 $ P CWK A7,/05 ORDER /05 RUNNING ? n L 6 P ABL(E) ACV480 YES. THEN DIFFERENT CHARACTER CHECK n t P SUK A2,/11 TABULATION ? n P RF(Z) ACV290 YES n & P SUK A2,1 START UNDERLINE ? (/12
0x2e5074…2e5208 Dummy {f00=0x00e8, f01=0x0190, f02=» P RF(Z) ACV350 YES o * P SUK A2,/A START LOW INTENSITY ? (/1E) o P RF(Z) ACV270 YES o L ( P SUK A2,1 STOP LOW INTENSITY ? (/1F) o f P RF(Z) ACV280 YES o P* o " P* ILLEGAL (COMMAND) CHARACTER o P* o * P LDK A1,CCERR CODE CHECK ERROR STA
0x2e5208…2e539c Dummy {f00=0x00e8, f01=0x0190, f02=» o ~ P* p PACV230 EQU * p * P LDKL A2,UNDBIT GET UNDERLINE MODE BIT p & PACV240 EQU * p T & P ORS A2,DWTDEV,A6 SET BIT INTO DWT p h P RB ACV210 GO GET NEXT CHAR p P* p P* STOP UNDERLINE p P* p PACV250 EQU * p * P LDKL A2,UNDBIT GE
0x2e539c…2e5530 Dummy {f00=0x00e8, f01=0x0190, f02=»T NEXT CHAR p P* q P* START LOW (!) INTENSITY q P* q @ PACV270 EQU * q J 0 P LDKL A2,INTBIT GET HIGH INTENSITY MODE BIT q ^ " P RB ACV260 GO RESET BIT IN DWT q P* q P* STOP LOW (!) INTENSITY q P* q PACV280 EQU * q 0 P LDKL A2
0x2e5530…2e56c4 Dummy {f00=0x00e8, f01=0x018e, f02=»LATION) q r P* r PACV290 EQU * r ( P CF A5,ENDWRI END THE WRITE REQUEST r . " P ABL(NZ) DEVERR STATUS NOT OK r Z 6 P CF A15,GETCHR GET TAB COLUMN NUMBER (FIRST DIGIT) r P LDR A4,A2 SAVE FIRST DIGIT r 8 P CF A15,GETCHR GET TAB COLUMN NUMBER (SECO
0x2e56c4…2e5858 Dummy {f00=0x00e8, f01=0x0190, f02=» r r P RF(Z) ACV310 NO s PACV300 EQU * s " P ADK A2,/A INCR WITH TEN UNITS s 4 P SUK A4,1 ONE MORE TIME ? s Z P RB(NZ) ACV300 YES s | P* s ( P* CHECK COLUMN NUMBER TABULATED INTO s P* s PACV310 EQU * s P LDK A4,0 CLEAR REGISTER s >
0x2e5858…2e59ec Dummy {f00=0x00e8, f01=0x0190, f02=» A2,1 < COLUMN 1 ? (=COLUMN 'ZERO' ?) s P RF(NL) ACV330 NO t . , P LCK A2,/0101 YES. SET COLUMN 1 INSTEAD t H P RF ACV340 t x PACV330 EQU * t 4 P CCK A2,MAXCOL EXCEEDING MAX NUMBER OF COLUMNS ? t P RF(NG) ACV340 NO t 0 P LCK A2,MAXCOL YES. SET
0x2e59ec…2e5b80 Dummy {f00=0x00e8, f01=0x0190, f02=»MBERS t l : P ST A2,DWTCN+DWTDEV,A6 SET CURRENT NEXT WRITE POSITION u 4 P ABL ACV140 GO RESET BIT 9 IN DWTDEV, DO STAWRI. u L P EJECT u P* u * P* ORDER /06, COMMAND /14 (FAST OUTPUT) u P* u PACV350 EQU * u 2 P CF A15,SAVCN SAVE CURRENT NEXT
0x2e5b80…2e5d14 (1, 739) Dummy {f00=0x00e9, f01=0x0190, f02=»,A8 SET EFFECTIVE LENGTH u $ P SUR A4,A3 SUBTRACT BUFFER INDEX v 6 P LDR A3,A4 SAVE REMAINING LENGTH FOR 'FAST OUTPUT' v H * P RF(Z) ACV370 NO OUTPUT IF ZERO LENGTH v PACV360 EQU * v : P CF A5,CHKOUT CHECK LAST COLUMN WRITTEN AND DO OUTPUT v P SUK A
0x2e5d14…2e5ea8 Dummy {f00=0x00e9, f01=0x0190, f02=»ATUS NOT OK v ~ : P CF A15,RESCN RESTORE SAVED WRITE POS. AS CURRENT NEXT w " P RF ACV390 GO SET CURSOR TO IT w R P EJECT w x P* w P* END OF LKM-REQUEST w P* w PACV380 EQU * w ( P CF A5,ENDWRI END THE WRITE REQUEST w " P ABL(NZ) DEVERR ST
0x2e5ea8…2e603c Dummy {f00=0x00e9, f01=0x0190, f02=»395 YES. THEN DO NOT MODIFY ECBCW. w PACV392 EQU * x * : P ST A2,ECBCW,A8 SAVE NEXT WRITE POSITION ALSO INTO ECB x > P LD A4,DWTDEV,A6 x | P ANK A4,LCWBIT BIT 9 SET ? x . P RF(Z) ACV395 NO = LAST COLUMN NOT WRITTEN x : P IM ECBCW,A8 YES. INDICATE BY
0x2e603c…2e61d0 Dummy {f00=0x00e9, f01=0x0190, f02=»K x t P* y $ P* RESET DISPLAY MODE BITS IN DWT y P* y < PACV400 EQU * y F * P LDKL A2,UNDBIT GET UNDERLINE MODE BIT y Z P C1R A2,A2 COMPLEMENT y & P ANS A2,DWTDEV,A6 RESET BIT IN DWT y 0 P LDKL A2,INTBIT GET HIGH INTENSITY MODE BIT y & P ORS
0x2e61d0…2e6364 Dummy {f00=0x00e9, f01=0x0190, f02=»******************************* y x P* ORDER /0B z ( P* SET CURSOR (AND WRITE) z < > P********************************************************* z P* z PACV420 EQU * z $ P LDK A3,2 INITIATE BUFFER INDEX z & P* (SKIP UNUSED LEADING 2 BYTES) z
0x2e6364…2e64f8 Dummy {f00=0x00e9, f01=0x0190, f02=»4,1 < ROW 1 ? (=ROW 'ZERO' ?) z P RF(NL) ACV430 NO { & ( P LCK A4,/0101 YES. SET ROW 1 INSTEAD { @ P RF ACV440 { l PACV430 EQU * { 2 P CCK A4,MAXROW EXCEEDING MAX NUMBER OF ROWS ? { P RF(NG) ACV440 NO { , P LCK A4,MAXROW YES. SET LAST ROW INS
0x2e64f8…2e668c Dummy {f00=0x00e9, f01=0x0190, f02=»V320 GO CHECK REQUESTED COLUMN NUMBER ETC. { P EJECT | 2 < P******************************************************** | @ P* ORDER /31 | P* ERASE | < P******************************************************* | P* | PACV450 EQU * | : P LD A2
0x2e668c…2e6820 Dummy {f00=0x00e9, f01=0x0190, f02=» IF ZERO CHARACTERS, | z " P* BUT THEN GO SET CURSOR ETC } P* + DO ENDIO. } B * P CF A5,STAWRI START NEW WRITE REQUEST } Z " P ABL(NZ) DEVERR STATUS NOT OK } , P LDK A2,SPACE GET SPACE TO DO ERASE WITH } P RB ACV360 GO DO ERASE } P EJECT } 4
0x2e6820…2e69b4 (1, 740) Dummy {f00=0x00e9, f01=0x0190, f02=»************* } l P* ~ PACV460 EQU * ~ : P LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION ~ 4 6 P RB ACV392 SET ECBCW AND DO (DUMMY) OUTPUT CURSOR ~ r P EJECT ~ 6 P************************************************* ~ P* ORDER /05 ~ P
0x2e69b4…2e6b48 Dummy {f00=0x00e9, f01=0x0190, f02=»INDEX ~ v , P ABL ACV150 GO START WRITE REQUEST ETC. P* > P* H P* R P* * P* CHECK OF DETECTED COMMAND CHARACTER f P* PACV480 EQU * " P SUK A2,/0A LINE-FEED ? (=/0A) P RF(NZ) ACV490 NO ( P CF A5,ENDWRI END THE
0x2e6b48…2e6cdc Dummy {f00=0x00e9, f01=0x0190, f02=» REQUEST ETC. r PACV490 EQU * & P SUK A2,3 CARRIAGE RETURN ? (=/0D) * 4 P ABL(NZ) ACV210 NO. THEN ILLEGAL COMMAND CHAR ! T 2 P* NO OUTPUT, NO ERROR STATUS, GET NEXT CHAR ( P CF A5,ENDWRI END THE WRITE REQUEST P RF(NZ) DEVERR STATUS NOT
0x2e6cdc…2e6e70 Dummy {f00=0x00e9, f01=0x0190, f02=»*** X P* " P* S C R E E N S E C T I O N * P* D E V I C E D R I V E R P A R T < P* A B O R T R O U T I N E j P* @ P*********************************************************** P* P* $ P* CALL: CFR A15,A2 (A2
0x2e6e70…2e7004 Dummy {f00=0x00e9, f01=0x0190, f02=»E CURRENT NEXT WRITE POSITION (DEFINING ( P* END OF REQUEST POSITION) INTO DWT 0 P* , P* INPUT: A6 = DWT-ADDRESS OF ECHO DEVICE f ( P* A8 = DWT-ADDRESS OF INPUT DEVICE P* P* OUTPUT: A6,A8 UNCHANGED ! P* @ P**************
0x2e7004…2e7198 Dummy {f00=0x00e9, f01=0x0190, f02=» IFT CPU852=1 P ABL IHRTN RETURN P XIF 0 P RTN A15 < P EJECT L P* Z @ P*********************************************************** d P* " P* S C R E E N S E C T I O N * P* D E V I C E D R I V E R P A R T & P*
0x2e7198…2e732c Dummy {f00=0x00e9, f01=0x0190, f02=»D: FROM LINE DRIVER PART VIA NETWORK DISTRIBUTOR, P* AT POWER ON : P* P P* FUNCTIONS: Z P* 1. SET DWT BUSY n P* 2. CLEAR SCREEN 6 P* 3. INITIATE CURRENT NEXT WRITE POSITION IN DWT P* 4. RESET BITS IN DWT FOR P* - SC
0x2e732c…2e74c0 Dummy {f00=0x00e9, f01=0x0190, f02=»E x 6 P* 6. SET RETURN STATUS FOR ECBRC: 'NOT OPERABLE' P* 7. EXIT: ENDIO+DISPATCH D P* f P* INPUT: A4 = RECOVERY CAUSE p P* A5 = DWT STACK BASE P* A6 = DWT ADDRESS $ P* A7 = ORDER (IF REQUEST IS ON) * P* A8 = ECB ADDRES
0x2e74c0…2e7654 (1, 741) Dummy {f00=0x00e9, f01=0x0190, f02=» P* B P************************************************************** P* T PRCVU EQU * ^ P LDKL A2,/7FFF READY-BIT p . P ANS A2,DWTST,A6 RESET IT (=SET DWT BUSY) 8 P CF A5,CLESCR CLEAR SCREEN, RESET WRITE+CURSOR POS. P RF(NZ) DE
0x2e7654…2e77e8 Dummy {f00=0x00e9, f01=0x0190, f02=»IT+LCWBIT BIT 8+9 (SCROLL + LAST COLUMN WRITTEN) P C1R A4,A4 COMPLEMENT 8 ( P ANS A4,DWTDEV,A6 RESET BITS IN DWT V 2 P CF A15,SAVCN SAVE CURRENT NEXT WRITE POSITION 2 P LDK A1,OPERR STATUS NOT OPERABLE (FOR ECBRC) 2 P RB ACV400 GO RESET UNDERL
0x2e77e8…2e797c Dummy {f00=0x00e9, f01=0x0190, f02=»**************** b P* " P* S C R E E N S E C T I O N " * P* D E V I C E D R I V E R P A R T H P* E C H O R O U T I N E v P* B P************************************************************** P* P* < P* ENTERED: F
0x2e797c…2e7b10 Dummy {f00=0x00e9, f01=0x0190, f02=» ALPHANUMERIC CHARACTERS * P* 2. HANDLING OF BACKSPACE-CHARACTER & P* 3. HANDLING OF CLEAR-CHARACTER N ( P* 4. HANDLING OF LINEFEED-CHARACTER x 0 P* 5. HANDLING OF CARRIAGE-RETURN-CHARACTER D P* 6. HANDLING OF END-OF-RECORD-CHARACTER (ALPHA
0x2e7b10…2e7ca4 Dummy {f00=0x00e9, f01=0x0190, f02=» BITS 8-15: CHARACTER P* A5 = DWT STACK BASE " P* A6 = DWT ADDRESS @ $ P* A7 = BIT 0 =1 IF END OF ECHO P* =0 IF NOT P* P* OUTPUT: A6 = DWT ADDRESS P* D P**********************************************
0x2e7ca4…2e7e38 Dummy {f00=0x00e9, f01=0x0190, f02=»* CHECK IF SPECIAL ECHO CHARACTER P* * 4 P CWK A2,/80 8-BIT SET ? (=EOR-CHARACTER, >=/80) 4 P IFT EORECH=0 l * P RF(NL) ECV120 YES. NOT TO BE ECHOED. P XIF P IFT EORECH=1 , P RF(L) ECV080 NO. THEN NOT EOR-CHARACTER P*
0x2e7e38…2e7fcc Dummy {f00=0x00e9, f01=0x0190, f02=»S EOR-CHAR. j 2 P RF ECV095 NO. ALPHANUMERIC CHAR AS EOR-CHAR. P XIF J P* V P* ECHO OF NON-EOR CHARACTER ` P* PECV080 EQU * P CWK A2,/20 </20 ? 4 P RF(NL) ECV095 NO. THEN ALPHANUMERIC CHARACTER. " P SUK A2,/08 BACKSPAC
0x2e7fcc…2e8160 Dummy {f00=0x00e9, f01=0x0190, f02=»ARACTER z PECV085 EQU * P SUK A2,/0A LINEFEED ? (/0A) $ P RF(NZ) ECV090 NO H P* b P* ECHO OF LINEFEED l P* * P CF A5,NXTROW DO LINEFEED TO NEXT ROW P RF ECV100 GO SET CURSOR PECV090 EQU * & P SUK A2,3 CARRIAGE RET
0x2e8160…2e82f4 (1, 742) Dummy {f00=0x00e9, f01=0x0190, f02=»2,/01 FIRST COLUMN OF ROW 8 P SC A2,DWTCNC+DWTDEV,A6 AS CURRENT NEXT WRITE COLUMN " 6 P LDK A4,LCWBIT BIT 9 (SET IF LAST COLUMN WRITTEN) ^ P C1R A4,A4 COMPLEMENT " P ANS A4,DWTDEV,A6 RESET BIT 9 P RF ECV100 GO SET CURSOR P* ( P*
0x2e82f4…2e8488 Dummy {f00=0x00e9, f01=0x018e, f02=»LUMN COUNTER TO NEXT COLUMN x PECV100 EQU * $ : P LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION 8 & P CF A5,OUTCUR OUTPUT CURSOR IN IT v P RF(NZ) DEVERR STATUS NOT OK P RF ECV120 RETURN P* P* END THE ECHO REQUEST P*
0x2e8488…2e861c Dummy {f00=0x00e9, f01=0x0190, f02=» P* RETURN FROM ECHO HANDLING P* , PECV120 EQU * 6 . P ABL ECHRTN RETURN FROM ECHO TO KB-DRIVER J P EJECT | P* ( P* HANDLING OF A BACKSPACE-CHARACTER P* PECV130 EQU * P LD A2,DWTDEV,A6 P LDR A4,A2 SAVE
0x2e861c…2e87b0 Dummy {f00=0x00e9, f01=0x0190, f02=»EN NO RUBOUT ! z P ANK A2,LCWBIT BIT 9 SET ? < P RF(NZ) ECV140 YES.LAST COLUMN WRITTEN (DURING REQUEST) 8 > P LD A4,DWTSN+DWTDEV,A6 GET NEXT WRITE POSITION SAVED AFTER x P* PREVIOUS REQUEST : P CW A4,DWTCN+DWTDEV,A6 = CURRENT NEXT WRITE POSITI
0x2e87b0…2e8944 Dummy {f00=0x00e9, f01=0x0190, f02=» P RF ECV150 PECV140 EQU * B P XRS A2,DWTDEV,A6 RESET BIT 9 (LAST COLUMN NO LONGER WRITTEN) * PECV150 EQU * p 2 P LDK A2,SPACE RUBOUT PREVIOUS (OR LAST) COLUMN , P CF A5,ECHOUT OUTPUT ONE SPACE TO RUBOUT P RB ECV100 GO SET CURSOR
0x2e8944…2e8ad8 Dummy {f00=0x00e9, f01=0x0190, f02=»O INTO A2 6 P ANK A4,LCPBIT BIT 10 SET ? (=LAST COLUMN WRITTEN $ P* ALREADY BY PREVIOUS REQUEST) L ( P RB(NZ) ECV120 YES. THEN NO RUBOUT ! t P* P* PREPARE THE RUBOUT P* : P LD A3,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION
0x2e8ad8…2e8c6c Dummy {f00=0x00e9, f01=0x018e, f02=» (=LAST COLUMN WRITTEN, v P* DURING REQUEST !) P RF(Z) ECV170 NO > 4 P ADK A3,1 YES. MODIFY TO RUBOUT ALSO LAST COLUMN V PECV170 EQU * 0 P ADK A3,0 ANY ECHOED CHARACTERS TO RUBOUT ? P RB(Z) ECV120 NO P* P* DO THE RUBOUT
0x2e8c6c…2e8e00 Dummy {f00=0x00e9, f01=0x0190, f02=» P RF(NZ) DEVERR STATUS NOT OK PECV180 EQU * ( . P LDK A2,SPACE GET SPACE TO DO RUBOUT WITH < P CF A5,OUTCHA OUTPUT IT n P RF(NZ) DEVERR STATUS NOT OK ( P SUK A3,1 ONE MORE CHAR TO RUBOUT ? P RB(NZ) ECV180 YES ( P CF A5,ENDWRI EN
0x2e8e00…2e8f94 (1, 743) Dummy {f00=0x00ea, f01=0x0190, f02=»**************************************** P* 0 " P* S C R E E N S E C T I O N : * P* D E V I C E D R I V E R P A R T ` P* E R R O R R O U T I N E P* < P******************************************************** P* P*
0x2e8f94…2e9128 Dummy {f00=0x00ea, f01=0x0190, f02=»NDICATE STATUS 'NOT OPERABLE' FOR ECBRC P* 2. EXIT FROM DRIVER 0 P* P P* INPUT: A6 = DWT ADDRESS Z P* | 4 P* OUTPUT: A1 = BIT 15 =1 (STATUS NOT OPERABLE) P* A6 = DWT ADDRESS P* > P************************************
0x2e9128…2e92bc Dummy {f00=0x00ea, f01=0x0190, f02=»O AND DISPATCH z P EJECT P* $ F P***************************************************************** . P* x " P* S C R E E N S E C T I O N * P* D E V I C E D R I V E R P A R T P* S U B - R O U T I N E S P* F P******
0x2e92bc…2e9450 Dummy {f00=0x00ea, f01=0x0190, f02=», AND OUTPUT ONE CHARACTER j 0 P* -ECHOUT OUTPUT ONE CHARACTER IN ECHO MODE " . P* -NXTROW UPDATE ROW COUNTER TO NEXT ROW, V & P* AND IF NECESSARY HANDLE SCROLL. 8 P* -NXTCOL CALLED AFTER WRITE IN CURRENT COLUMN, SO: , P* UPDATE COLUMN COUNTER T
0x2e9450…2e95e4 Dummy {f00=0x00ea, f01=0x0190, f02=» RESTORE SAVED WRITE POSITION TO BECOME CURRENT NEXT P* < P* F P* P P EJECT Z P* h < P******************************************************** r P* P* C H K O U T P* > P********************************************
0x2e95e4…2e9778 Dummy {f00=0x00ea, f01=0x0190, f02=» 2 P* FUNCTION: 1. CHECK IF LAST COLUMN WRITTTEN, > P* AND IF SO END THE WRITE REQUEST AND START A NEW ONE. > P* 2. OUTPUT ONE CHARACTER . P* 3. UPDATE COLUMN COUNTER TO NEXT COLUMN P* ( P* INPUT: A2 = CHARACTER TO BE OUTPUT
0x2e9778…2e990c Dummy {f00=0x00ea, f01=0x0190, f02=»5 = DWT STACK BASE P* A6 = DWT ADDRESS P* 6 F P****************************************************************** @ P* PCHKOUT EQU * , P LDR A4,A2 SAVE CHARACTER TO BE OUTPUT P LD A2,DWTDEV,A6 6 P ANK A2,LCWBIT BIT 9 S
0x2e990c…2e9aa0 Dummy {f00=0x00ea, f01=0x0190, f02=» < P LD A2,DWTCN+DWTDEV,A6 NOW ALSO NEXT CHAR IN LAST COLUMN * P CF A5,STAWRI START NEW WRITE REQUEST D P RB(NZ) DEVERR STATUS NOT OK r PCHKO10 EQU * ( P LDR A2,A4 RESTORE SAVED CHARACTER P CF A5,OUTCHA OUTPUT IT P RB(NZ) DEVERR STA
0x2e9aa0…2e9c34 (1, 744) Dummy {f00=0x00ea, f01=0x0190, f02=»A5-STACK z P EJECT P* @ P************************************************************ ( P* l P* E C H O U T v P* @ P************************************************************ P* P* P* CALL: CF A5,ECHOUT
0x2e9c34…2e9dc8 Dummy {f00=0x00ea, f01=0x0190, f02=»: COLUMN COUNTER IS NOT UPDATED P* ( P* INPUT: A2 = ECHO CHARACTER 2 P* A5 = DWT STACK POINTER V P* A6 = DWT ADDRESS x P* P* OUTPUT: A2 = CHANGED P* A4 = CHANGED P* A5 = DWT STACK BASE P* A6 = DWT ADDRESS
0x2e9dc8…2e9f5c Dummy {f00=0x00ea, f01=0x018e, f02=»TO BE OUTPUT v : P LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION * P CF A5,STAWRI START THE WRITE REQUEST R P RB(NZ) DEVERR STATUS NOT OK & P LDR A2,A4 RESTORE SAVED CHARACTER P CF A5,OUTCHA OUTPUT IT P RB(NZ) DEVERR STATUS NOT
0x2e9f5c…2ea0f0 Dummy {f00=0x00ea, f01=0x0190, f02=» P* > P********************************************************** P* T P* N X T R O W ^ P* t > P********************************************************** ~ P* P* P* CALL: CF A5, NXTROW P* 2 P* USED BY: S
0x2ea0f0…2ea284 Dummy {f00=0x00ea, f01=0x018e, f02=»LL p P* $ P* INPUT: A5 = DWT STACK POINTER P* A6 = DWT ADDRESS < P* X P* OUTPUT: A2 = CHANGED b P* A4 = CHANGED P* A5 = DWT STACK BASE P* A6 = DWT ADDRESS P* > P********************************************
0x2ea284…2ea418 Dummy {f00=0x00ea, f01=0x0190, f02=» r & P RF(E) NXTR10 YES. START SCROLLING 2 P LDKL A2,/0100 POSITION DISPLACEMENT = ONE ROW 2 4 P ADS A2,DWTCNR+DWTDEV,A6 INCR CURRENT ROW NUMBER h P LD A4,DWTDEV,A6 8 P ANK A4,ROLBIT BIT 8 SET ? (=ALREADY IN SCROLL MODE) " P RF(Z) NXTR40 NO.
0x2ea418…2ea5ac Dummy {f00=0x00ea, f01=0x0190, f02=» A4,MAXROW = LAST ROW ? 8 P RF(E) NXTR40 YES. THE NO RUBOUT ONE ROW IN ADVANCE. P* P* CONTINUE RUBOUT f P* : P LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION , P ADKL A2,/0100 RUBOUT ONE ROW IN ADVANCE 2 P LDK A4,/50 ONE
0x2ea5ac…2ea740 Dummy {f00=0x00ea, f01=0x0190, f02=» * * P LDK A4,ROLBIT SET BIT 8 (SCROLL MODE) P ORS A4,DWTDEV,A6 INTO DWT 8 P LDK A2,/01 SET FIRST ROW Z 0 P SC A2,DWTCNR+DWTDEV,A6 AS CURRENT WRITE ROW | 4 P LDK A4,/A0 TWO ROWS CONTAIN 160 CHAR TO RUBOUT : P LD A2,DWTCN+DWTDEV,A6 GET CURRE
0x2ea740…2ea8d4 (1, 745) Dummy {f00=0x00ea, f01=0x0190, f02=»NOT 'ZERO') l 4 P CF A5,STAWRI START NEW WRITE REQUEST TO RUBOUT P RB(NZ) DEVERR STATUS NOT OK L PNXTR30 EQU * p . P LDK A2,SPACE GET SPACE TO DO RUBOUT WITH P CF A5,OUTCHA OUTPUT IT P RB(NZ) DEVERR STATUS NOT OK P SUK A4,1 ONE
0x2ea8d4…2eaa68 Dummy {f00=0x00ea, f01=0x0190, f02=» * " P ABL NDRET RETURN VIA A5 STACK P EJECT 0 P* > > P********************************************************* H P* P* N X T C O L P* > P********************************************************* P* P*
0x2eaa68…2eabfc Dummy {f00=0x00ea, f01=0x0190, f02=» IN CURRENT COLUMN, SO: r & P* 1. IF LAST COLUMN NOT WRITTEN, 0 P* UPDATE COLUMN COUNTER TO NEXT COLUMN. J " P* 2. IF LAST COLUMN WRITTEN, ~ P* SET BIT 9 IN DWTDEV. P* P* INPUT: NONE. P* P* OUTPUT: A4 CHANGED.
0x2eabfc…2ead90 Dummy {f00=0x00ea, f01=0x0190, f02=» P ANK A4,LCWBIT BIT 9 SET ? . P RF(NZ) NXTC20 YES. LAST COLUMN IS WRITTEN & : P LC A4,DWTCNC+DWTDEV,A6 GET CURRENT NEXT WRITE COLUMN X " P CCK A4,MAXCOL = LAST COLUMN ? P RF(NE) NXTC10 NO & P LDK A4,LCWBIT LAST COLUMN WRITTEN P ORS A4,
0x2ead90…2eaf24 Dummy {f00=0x00ea, f01=0x0190, f02=» * P RTN A15 RETURN P EJECT " P* 0 > P********************************************************* : P* | P* S A V C N P* > P********************************************************** P* P* P* CALL: CF 15,
0x2eaf24…2eb0b8 Dummy {f00=0x00ea, f01=0x0190, f02=»SITION) INTO DWTSN ` ( P* 2. SAVE DWTDEV BIT 9 INTO BIT 10 P* F P* INPUT: NONE P P* f P* OUTPUT: A2,A4 CHANGED p P* D P*************************************************************** P* PSAVCN EQU * $ P* COPY D
0x2eb0b8…2eb24c Dummy {f00=0x00ea, f01=0x0190, f02=»RITTEN) b 6 P LDK A2,LCPBIT BIT 10 (SET IF LAST COLUMN WRITTEN $ P* ALREADY BY PREVIOUS REQUEST) J P C1R A2,A2 COMPLEMENT r " P ANS A2,DWTDEV,A6 RESET BIT 10 & P SRL A4,1 SHIFT BIT 9 INTO BIT 10 $ P ORS A4,DWTDEV,A6 STORE INTO DWT P
0x2eb24c…2eb3e0 Dummy {f00=0x00ea, f01=0x0190, f02=»ITION f P RTN A15 RETURN P EJECT & P* 4 @ P*********************************************************** > P* P* R E S C N P* @ P************************************************************ P* P* P* CALL
0x2eb3e0…2eb574 (1, 746) Dummy {f00=0x00ea, f01=0x0190, f02=»TCN, f 6 P* SAVED WRITE POSITION TO BECOME CURRENT NEXT. , P* 2. RESTORE DWTDEV BIT 9 FROM BIT 10. F P* v P* INPUT: NONE. P* P* OUTPUT: A2,A4 CHANGED. P* B P**************************************************************
0x2eb574…2eb708 Dummy {f00=0x00ea, f01=0x0190, f02=»F LAST COLUMN WRITTEN p $ P* ALREADY BY PREVIOUS REQUEST) 6 P LDK A2,LCWBIT BIT 9 (SET IF LAST COLUMN WRITTEN) F P C1R A2,A2 COMPLEMENT " P ANS A2,DWTDEV,A6 RESET BIT 9 & P SLL A4,1 SHIFT BIT 10 INTO BIT 9 $ P ORS A4,DWTDEV,A6 STORE IN
0x2eb708…2eb89c Dummy {f00=0x00ea, f01=0x0190, f02=» CURRENT NEXT WRITE POSITION r P RTN A15 RETURN $ P EJECT < P* J > P********************************************************** T P* " P* S C R E E N S E C T I O N & P* L I N E D R I V E R P A R T , P* A C T I V A T I O N
0x2eb89c…2eba30 Dummy {f00=0x00ea, f01=0x0190, f02=»ION ROUTINES ARE CALLED DIRECTLY @ P* FROM THE SCREEN SECTION DEVICE DRIVER PART OF THIS DRIVER. ( H P* RETURN TO DEVICE DRIVER PART IS MADE VIA THE NETWORK DISTRIBUTOR. l P* P* P EJECT P* : P************************************
0x2eba30…2ebbc4 Dummy {f00=0x00ea, f01=0x0190, f02=» P* P* CALL: CF A5, STAWRI P* , 2 P* USED BY: SCREEN SECTION, DEVICE DRIVER PART 6 P* l 0 P* FUNCTION:TO DEFINE, FOR THIS CIO-REQUEST, v * P* THE START WRITE POSITION ON SCREEN. P* * P* INPUT: A2 = WRITE POSITION ON SCREEN
0x2ebbc4…2ebd58 Dummy {f00=0x00ea, f01=0x0190, f02=» P* A2 = DESTROYED P* : P****************************************************** ( P* f PSTAWRI EQU * p . P CF A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT * P CF A15,CONPOS CONVERT SCREEN POSITION ( P* INTO SCREEN MEMORY DISPLACEMENT
0x2ebd58…2ebeec Dummy {f00=0x00ea, f01=0x0190, f02=»R CIO START) $ P CF A15,CWTDWT GET CWT FROM DWT P INH < 8 P LD A3,CWTDOS,A5 ANY DWT OCCUPYING SCREEN SECTION ? H P RF(Z) STAWR2 NO PSTAWR1 EQU * 8 P CF A15,PUTQUE PUT REQUESTING DWT INTO SCREEN QUEUE P ABL TDISP DISPATCH P
0x2ebeec…2ec080 Dummy {f00=0x00ea, f01=0x0190, f02=» P IFT IOP=1 , P CM CWTBIN,A5 RESET INDEX IN IOP-BUFFER 8 P ABL NDREPO POP REGISTERS, SET OK-STATUS AND RETURN F P XIF P EJECT P* 8 P**************************************************** P* P* O U T C H A P*
0x2ec080…2ec214 (1, 747) Dummy {f00=0x00eb, f01=0x0190, f02=»EEN SECTION, DEVICE DRIVER PART P* ( , P* FUNCTION:TO OUTPUT ONE VIDEO CHARACTER 2 P* b , P* INPUT: A2 = ASCII-CHARACTER (/20-/7F) l P* A6 = DWT-ADDRESS P* P* OUTPUT: A1 = RETURN CODE $ P* 0 IF OK, NOT 0 IF ERROR
0x2ec214…2ec3a8 Dummy {f00=0x00eb, f01=0x0190, f02=»A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT P* . & P* A 7-BIT ASCII-CHAR IS CONVERTED, 8 J P* ACCORDING TO CHARACTER GENERATOR IN SYSTEM AND CURRENT DISPLAY MODE, b $ P* INTO A 11-BIT VIDEO-CHARACTER. P* ( P ANK A2,/7F CLEAR INSIGNIFICANT BITS
0x2ec3a8…2ec53c Dummy {f00=0x00eb, f01=0x0190, f02=» RF(N) OUTCH2 YES 4 P CC A2,CODINP,A4 COMPARE CHAR WITH TABLE ELEMENT P RB(NE) OUTCH1 NOT EQUAL R & P LC A2,CODOUT,A4 CONVERT CHARACTER r POUTCH2 EQU * & P LD A3,DWTDEV,A6 GET DISPLAY-MODE P ANKL A3,INTBIT+UNDBIT BITS P ORR A2,A3
0x2ec53c…2ec6d0 Dummy {f00=0x00eb, f01=0x0190, f02=»TS,A5 EXECUTE OTR ON SCREEN SECTION OF VCCU1/4 * P ABL(NA) LINER1 ERROR IF NOT ACCEPTED 6 P ABL TDISP DISPATCH d P XIF P IFT IOP=1 2 P LD A3,CWTBIN,A5 GET WORD-INDEX IN IOP-BUFFER 0 P ADR A3,A3 CONVERT TO DISPLACEMENT IN BYTES . P
0x2ec6d0…2ec864 Dummy {f00=0x00eb, f01=0x0190, f02=»-CHAR INTO IOP-BUFFER z $ P IM CWTBIN,A5 INCR BUFFER INDEX 8 P ABL NDREPO POP REGISTERS, SET OK-STATUS AND RETURN F P XIF P EJECT P* 8 P**************************************************** P* P* E N D W R I P*
0x2ec864…2ec9f8 Dummy {f00=0x00eb, f01=0x018e, f02=»CREEN SECTION, DEVICE DRIVER PART P* * 0 P* FUNCTION:TO END CURRENT CIO-WRITE-REQUEST 4 P* h P* INPUT: A6 = DWT-ADDRESS r P* P* OUTPUT: A1 = RETURN CODE $ P* 0 IF OK, NOT O IF ERROR P* A2 = DESTROYED P*
0x2ec9f8…2ecb8c Dummy {f00=0x00eb, f01=0x0190, f02=» d $ P CF A15,CWTDWT GET CWT FROM DWT P INH 0 P IFT IOP=0 < . P LDKL A4,HLTFLA FLAG HALT-ACTION REQUESTED N ( P ORS A4,DWTST,A6 INTO DEVICE STATUS P ABL IHS125 DO CIO HALT P XIF P IFT IOP=1 PENDWR1 EQU * 2 P LD A2,CWT
0x2ecb8c…2ecd20 Dummy {f00=0x00eb, f01=0x0190, f02=»5 SCREEN SECTION NO LONGER OCCUPIED 8 P ABL NDREPO POP REGISTERS, SET OK-STATUS AND RETURN , PENDWR2 EQU * h 4 P ORKL A2,IOPPAR WORD-MODE + READ-MEMORY TRANSFER | . P EX CWTWE1,A5 WRITE BUFFER LENGTH INTO IOP . P LDKL A2,CWTBUF GET ADDRESS TO IOP
0x2ecd20…2eceb4 (1, 748) Dummy {f00=0x00eb, f01=0x018e, f02=»TERRUPT f ( P ORS A3,DWTST,A6 INTO DEVICE STATUS P RF CLESC2 DO CIO START < P XIF P EJECT h P* v 8 P*************************************************** P* P* O U T C U R P* 8 P**********************************
0x2eceb4…2ed048 Dummy {f00=0x00eb, f01=0x0190, f02=» P* * P* FUNCTION:TO OUTPUT THE VISUAL CURSOR P* < 6 P* INPUT: A2 = REQUESTED CURSOR POSITION ON SCREEN F P* ( /0101 - /1850 ) P* A6 = DWT-ADDRESS P* P* OUTPUT: A1 = RETURN CODE $ P* 0 IF OK, NOT 0 IF ERR
0x2ed048…2ed1dc Dummy {f00=0x00eb, f01=0x018e, f02=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT * P CF A15,CONPOS CONVERT SCREEN POSITION 2 ( P* INTO SCREEN MEMORY DISPLACEMENT ` < P CF A15,IXTERM INDEX SCREEN MEMORY DISPL. WITH TERM. NBR 0 P ST A2,DWTLD2,A6 SAVE SCREEN MEMORY LOCATION P* (=BI
0x2ed1dc…2ed370 Dummy {f00=0x00eb, f01=0x0190, f02=» 0 P ST A2,DWTLD1,A6 SAVE SCREEN MEMORY LOCATION P* (=BIO FOR CIO-START) 8 6 P LDKL A3,OTRFLA FLAG OTR-ACTION AT NEXT INTERRUPT X ( P ORS A3,DWTST,A6 INTO DEVICE STATUS $ P CF A15,CWTDWT GET CWT FROM DWT P INH 8 P LD A3,CWTDOS,A5 ANY D
0x2ed370…2ed504 Dummy {f00=0x00eb, f01=0x0190, f02=» SECTION OF VCCU1/4 r P IFT IOP=0 P RF CLESC2 DO CIO START . P XIF N P IFT IOP=1 Z * P LDKL A3,OTRFLA IF THEN RESET OTR-FLAG l & P XRS A3,DWTST,A6 IN DEVICE STATUS 6 P LD A3,DWTLD2,A6 GET SCREEN MEMORY CURSOR POSITION POUTCU2 EQU
0x2ed504…2ed698 Dummy {f00=0x00eb, f01=0x0190, f02=» p P RB ENDWR1 DO WER:S P XIF $ P EJECT 0 P* > 8 P**************************************************** H P* P* C L E S C R P* 8 P**************************************************** P* P* P* CALL: CF
0x2ed698…2ed82c Dummy {f00=0x00eb, f01=0x0190, f02=» d " P* RESET START WRITE POSITION. P* . P* INPUT: A6 = DWT-ADDRESS 8 P* Z P* OUTPUT: A1 = RETURN CODE d & P* 0 IF OK, NOT 0 OF ERROR P* A2 = DESTROYED P* 8 P***************************************************
0x2ed82c…2ed9c0 Dummy {f00=0x00eb, f01=0x0190, f02=»F A15,IXTERM INDEX WITH TERMINAL NUMBER , P ST A2,DWTLD1,A6 SAVE BIO FOR CIO START 0 6 P LDKL A3,HLTFLA FLAG HALT-ACTION AT NEXT INTERRUPT ` ( P ORS A3,DWTST,A6 INTO DEVICE STATUS $ P CF A15,CWTDWT GET CWT FROM DWT P INH 8 P LD A3,CWTDOS,
0x2ed9c0…2edb54 (1, 749) Dummy {f00=0x00eb, f01=0x0190, f02=»Y SCREEN SECTION OF VCCU1/4 z P IFT IOP=1 $ $ P LDKL A3,HLTFLA RESET HALT-FLAG 6 & P XRS A3,DWTST,A6 IN DEVICE STATUS ^ . P LDKL A3,/0120 SPACE (HIGH-INTENSITY MODE) 2 P RB OUTCU2 STORE INTO IOP-BUFFER AND DO WER:S P XIF PCLESC2 EQU *
0x2edb54…2edce8 Dummy {f00=0x00eb, f01=0x0190, f02=»,DWTLD1,A6 GET BIO FOR CIO START 8 P EX CWTCSS,A5 CIO START ON SCREEN SECTION OF VCCU1/4 ( * P ABL(NA) LINER0 ERROR IF NOT ACCEPTED d PCLESC3 EQU * ( P LD A6,CWTSRD,A5 ANY SST-READY DWT ? P ABL(Z) TDISP NO. DISPATCH & P CM CWTSRD,A5 YES. R
0x2edce8…2ede7c Dummy {f00=0x00eb, f01=0x0190, f02=»*********************** r P* " P* S C R E E N S E C T I O N * & P* L I N E D R I V E R P A R T P * P* I N T E R R U P T R O U T I N E S z P* : P***************************************************** P* P* ( P* EN
0x2ede7c…2ee010 Dummy {f00=0x00eb, f01=0x0190, f02=»NTERED INTERRUPT ROUTINE. t P* 2. SAVE A1-A8 ONTO STACK. " 8 P* 3. GET CWT-ADDRESS FOR ENTERED INTERRUPT ROUTINE. F > P* 4. GET THE DWT OCCUPYING THE SCREEN SECTION OF THIS CWT. " P* 5. TEST CHANNEL UNIT STATUS. 0 P* 6. TEST AND UPDATE INTERRUPT
0x2ee010…2ee1a4 Dummy {f00=0x00eb, f01=0x0190, f02=»E DRIVER PART, v P* OR $ P* GET DWT FROM OUTPUT QUEUE, & 2 P* AND GO TO APROPRIATE ACTIVATION ROUTINE. N P* P* P* P* ON EXIT: A5 = CWT-ADDRESS P* A6 = DWT-ADDRESS P* @ P****************************
0x2ee1a4…2ee338 Dummy {f00=0x00eb, f01=0x0190, f02=»N OF VCCU1/4 NO 1 p P* PIHSVU1 EQU * $ P IFT VUCHAN=1 8 PIHSVU2 EQU * N PIHSVU3 EQU * b PIHSVU4 EQU * v PIHSVU5 EQU * PIHSVU6 EQU * PIHSVU7 EQU * PIHSVU8 EQU * P XIF $ P ST P,INTSAV SAVE LAST INTERRUPT
0x2ee338…2ee4cc Dummy {f00=0x00eb, f01=0x0190, f02=»ON STACK z P XIF P* 4 P LDKL A5,CWTVU1 SET CWT-ADDRESS FOR VCCU1/4 NO 1 & P IFF VUCHAN=1 ^ P RF IHS100 t P* 6 P* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 2 P* PIHSVU2 EQU * P XIF P IFT VUCHAN=2
0x2ee4cc…2ee660 Dummy {f00=0x00eb, f01=0x0190, f02=»FF VUCHAN=1 $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 < & P CF A15,SAVE8 SAVE A1-A8 ON STACK R P XIF | P* P IFF VUCHAN=1 P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P IFF VUCHAN=1
0x2ee660…2ee7f4 (1, 750) Dummy {f00=0x00eb, f01=0x0190, f02=» P* P IFF VUCHAN=1 P IFF VUCHAN=2 $ P RF IHS100 : P* L 6 P* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 3 V P* PIHSVU3 EQU * P XIF P IFT VUCHAN=3 PIHSVU4 EQU * PIHSVU5 EQU * PIHSVU6 EQU *
0x2ee7f4…2ee988 Dummy {f00=0x00eb, f01=0x0190, f02=» P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF D P* P P IFF VUCHAN=1 Z P IFF VUCHAN=2 p P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P IFF VUCHAN=1 P IFF VUCHAN=2 4 P LDK
0x2ee988…2eeb1c Dummy {f00=0x00eb, f01=0x018e, f02=»HAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 $ P RF IHS100 : P* L 6 P* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 4 V P* PIHSVU4 EQU * P XIF P IFT VUCHAN=4 PIHSVU5 EQU * PIHSVU6 EQU * PIHSVU7 EQU *
0x2eeb1c…2eecb0 Dummy {f00=0x00eb, f01=0x0190, f02=» n P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF H P* T P IFF VUCHAN=1 ^ P IFF VUCHAN=2 t P IFF VUCHAN=3 P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P IFF VUCHAN=1 P
0x2eecb0…2eee44 Dummy {f00=0x00eb, f01=0x0190, f02=»S100 EQU * P XIF P IFF VUCHAN=1 P IFF VUCHAN=2 4 P IFF VUCHAN=3 J P IFF VUCHAN=4 ` P RF IHS100 v P* 4 P* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 5 P* PIHSVU5 EQU * P XIF P IFT VUCHAN=5
0x2eee44…2eefd8 Dummy {f00=0x00eb, f01=0x0190, f02=» P IFF VUCHAN=4 $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 B ( P CF A15,SAVE8 SAVE A1 - A8 ON STACK X P XIF P* P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 P IFF VUCHAN=4 P IFT CPU852=0 $ P
0x2eefd8…2ef16c Dummy {f00=0x00eb, f01=0x0190, f02=»HAN=4 4 P LDKL A5,CWTVU5 SET CWT-ADDRESS FOR VCCU1/4 NO 5 P XIF F P IFT VUCHAN=5 R PIHS100 EQU * h P XIF | P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 P IFF VUCHAN=4 P IFF VUCHAN=5 P RF IHS100 P
0x2ef16c…2ef300 Dummy {f00=0x00eb, f01=0x0190, f02=» EQU * PIHSVU8 EQU * P XIF " P IFF VUCHAN=1 . P IFF VUCHAN=2 D P IFF VUCHAN=3 Z P IFF VUCHAN=4 p P IFF VUCHAN=5 $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 ( P CF A15,SAVE8 SAVE A1 - A8 ON STACK P X
0x2ef300…2ef494 (1, 751) Dummy {f00=0x00ec, f01=0x0190, f02=»PU852=0 $ P MSR 8,A15 SAVE A1 - A8 ON STACK P XIF 8 P* D P IFF VUCHAN=1 N P IFF VUCHAN=2 d P IFF VUCHAN=3 z P IFF VUCHAN=4 P IFF VUCHAN=5 4 P LDKL A5,CWTVU6 SET CWT-ADDRESS FOR VCCU1/4 NO 6 P XIF P IFT VUC
0x2ef494…2ef628 Dummy {f00=0x00ec, f01=0x0190, f02=»FF VUCHAN=5 P IFF VUCHAN=6 P RF IHS100 * P* < 4 P* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 7 F P* ~ PIHSVU7 EQU * P XIF P IFT VUCHAN=7 PIHSVU8 EQU * P XIF P IFF VUCHAN=1 P IFF VUCHAN=2
0x2ef628…2ef7bc Dummy {f00=0x00ec, f01=0x0190, f02=»PU852=1 ( P CF A15,SAVE8 SAVE A1 - A8 ON STACK P XIF < P* H P IFF VUCHAN=1 R P IFF VUCHAN=2 h P IFF VUCHAN=3 ~ P IFF VUCHAN=4 P IFF VUCHAN=5 P IFF VUCHAN=6 P IFT CPU852=0 $ P MSR 8,A15 SAVE A1 - A8 ON S
0x2ef7bc…2ef950 Dummy {f00=0x00ec, f01=0x018e, f02=» P IFF VUCHAN=6 4 P LDKL A5,CWTVU7 SET CWT-ADDRESS FOR VCCU1/4 NO 7 P XIF V P IFT VUCHAN=7 b PIHS100 EQU * x P XIF P IFT VUCHAN=8 P RF IHS100 P* 4 P* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 8 P*
0x2ef950…2efae4 Dummy {f00=0x00ec, f01=0x0190, f02=» P* P IFT VUCHAN=8 P IFT CPU852=0 ( $ P MSR 8,A15 SAVE A1 - A8 ON STACK > P XIF f P* r P IFT VUCHAN=8 | 4 P LDKL A5,CWTVU8 SET CWT-ADDRESS FOR VCCU1/4 NO 8 PIHS100 EQU * P XIF P EJECT P* P*
0x2efae4…2efc78 Dummy {f00=0x00ec, f01=0x0190, f02=»CCUPYING SCREEN SECTION OF CWT v : P ABL(Z) LINER4 IF NOT OCCUPYED: CIO HALT+SST+DISPATCH & PIHS110 EQU * d : P EX CWTSST,A5 EXECUTE SST ON SCREEN SECTION OF VCCU1/4 x P RF(NA) IHS120 NOT ACCEPTED & P LD A3,DWTST,A6 GET DEVICE STATUS ( P ANK
0x2efc78…2efe0c Dummy {f00=0x00ec, f01=0x0190, f02=»DWTST,A6 RESET SST-ACTION FLAG ( P ST A6,CWTSRD,A5 SAVE SST-READY DWT & 4 P CM CWTDOS,A5 SCREEN SECTION NO LONGER OCCUPYED R P* P* GET AND CHECK QUEUED DWT P* 4 P CF A15,GETQUE GET QUEUED DWT FROM SCREEN QUEUE P ADK A6,0 ANY QU
0x2efe0c…2effa0 Dummy {f00=0x00ec, f01=0x0190, f02=»NKL A4,HLTFLA TEST HALT-ACTION FLAG , P RB(NZ) CLESC1 IF SET: CLEAR WAS QUEUED , ( P ANKL A3,OTRFLA TEST OTR-ACTION FLAG 4 P ABL(NZ) OUTCU1 IF SET: OUTPUT CURSOR WAS QUEUED . P ABL STAWR2 ELSE: WRITE SCREEN WAS QUEUED P EJECT P*
0x2effa0…2f0134 (1, 752) Dummy {f00=0x00ec, f01=0x0190, f02=»TEST SST-ACTION FLAG P ABL(NZ) LINER2 ERROR IF SET P LDR A4,A3 @ * P ANKL A4,HLTFLA TEST HALT-ACTION FLAG T P RF(Z) IHS130 NOT SET P* $ P* HALT-FLAG IS SET. DO CIO HALT. P* PIHS125 EQU * , P XRS A4,DWTST,A6 RESET H
0x2f0134…2f02c8 Dummy {f00=0x00ec, f01=0x0190, f02=»RS A3,DWTST,A6 INTO DEVICE STATUS P RB IHS110 DO SST * PIHS130 EQU * D ( P ANKL A3,OTRFLA TEST OTR-ACTION FLAG X : P ABL(Z) NDREPO POP REGISTERS, SET OK-STATUS AND RETURN P* & P* OTR-FLAG IS SET: DO OTR-CURSOR. P* * P XRS A3,
0x2f02c8…2f045c Dummy {f00=0x00ec, f01=0x0190, f02=» , P LD A2,DWTLD2,A6 GET BIO FOR OTR-CURSOR P ABL OUTCH3 DO OTR-CURSOR 4 P EJECT V P* d 8 P**************************************************** n P* " P* S C R E E N S E C T I O N & P* L I N E D R I V E R P A R T " P* E
0x2f045c…2f05f0 Dummy {f00=0x00ec, f01=0x0190, f02=»CIO START NOT ACCEPTED P* -LINER1 OTR NOT ACCEPTED P* -LINER2 SST NOT ACCEEPTED @ @ P* -LINER3 SST UNEXPECTEDLY ACCEPTED (AFTER CIO START OR OTR, d P* BUT BEFORE CIO HALT) " P* -LINER4 UNEXPECTED INTERRUPT F P* -LINER5 I/O-INSTRUCTIONS
0x2f05f0…2f0784 Dummy {f00=0x00ec, f01=0x0190, f02=»***** d P* ( P* L I N E R X ( X = 0,1,2,3,4,5 ) P* D 6 P************************************************* N P* P* , P* CALL: ABL LINERX ( X = 0,1,2,3,4,5 ) P* 0 P* USED BY: SCREEN SECTION, LINE DRIVER PART
0x2f0784…2f0918 Dummy {f00=0x00ec, f01=0x0190, f02=» ERROR IN THE RETURN CODE ~ ( P* AND RETURN TO DEVICE DRIVER PART " 2 P* VIA NETWORK DISTRIBUTOR (LINER0-3, LINER5) N P* 3. DISPATCH. (LINER4) P* P* INPUT: A5 = CWT-ADDRESS & P* A6 = DWT-ADDRESS (IF LINER0-3) P* 4 P* OU
0x2f0918…2f0aac Dummy {f00=0x00ec, f01=0x0190, f02=»NER2 | P* /1000 IF LINER3 P* /0800 IF LINER5 , P* L 4 P*********************************************** V P* PLINER0 EQU * $ P LDKL A1,CIOERR SET STATUS BIT 0 PLINERR EQU * 8 P EX CWTCHS,A5 CIO HALT ON SCREEN
0x2f0aac…2f0c40 Dummy {f00=0x00ec, f01=0x018e, f02=»NGER OCCUPYED n , P LDKL A3,OTRFLA+HLTFLA GET ACTION-FLAGS $ P ADKL A3,SSTFLA ALL ACTION-FLAGS F P C1R A3,A3 COMPLEMENT n , P ANS A3,DWTST,A6 RESET ALL ACTION-FLAGS 6 P ABL NDREP POP REGISTERS AND RETURN WITH A1=STATUS P* PLINER1 E
0x2f0c40…2f0dd4 (1, 753) Dummy {f00=0x00ec, f01=0x0190, f02=» n P RB LINERR P* PLINER3 EQU * & $ P LDKL A1,SSTER2 SET STATUS BIT 3 : P RB LINERR b P* v & PLINER4 EQU * UNEXPECTED INTERRUPT 8 P EX CWTCHS,A5 CIO HALT ON SCREEN SECTION OF VCCU1/4 2 P EX CWTSST,A5 SST ON SCREEN SECTIO
0x2f0dd4…2f0f68 Dummy {f00=0x00ec, f01=0x0190, f02=»TATUS BIT 4 | P RB LINERP P EJECT & P* 4 6 P************************************************* > P* x " P* S C R E E N S E C T I O N & P* L I N E D R I V E R P A R T P* S U B - R O U T I N E S P* 4 P**********
0x2f0f68…2f10fc Dummy {f00=0x00ec, f01=0x0190, f02=» D P* -IXTERM INDEX SCREEN MEMORY DISPLACEMENT WITH TERMINAL NUMBER . P* -CWTDWT GET CWT-ADDRESS FROM DWT-ADDRESS L . P* -PUTQUE PUT DWT INTO SCREEN OUTPUT QUEUE ~ . P* -GETQUE GET DWT FROM SCREEN OUTPUT QUEUE P* P* P EJECT P*
0x2f10fc…2f1290 Dummy {f00=0x00ec, f01=0x0190, f02=»*********************************** z P* , P* 6 P* CALL: CF A15,CONPOS @ P* ^ 0 P* USED BY: SCREEN SECTION, LINE DRIVER PART h P* , P* FUNCTION:TO CONVERT A SCREEN POSITION ( P* INTO A SCREEN MEMORY DISPLACEMENT P*
0x2f1290…2f1424 Dummy {f00=0x00ec, f01=0x0190, f02=»EXADECIMAL X P* B P* OBS: NO CHECK IS MADE HERE, THAT INPUT IS WITHIN /0101-/1850 P* b : P* OUTPUT: A2 = SCREEN MEMORY DISPLACEMENT /0000-/077F l P* A3 = DESTROYED P* > P*********************************************************
0x2f1424…2f15b8 Dummy {f00=0x00ec, f01=0x0190, f02=»/FF GET MODULO 80 . P* MULTIPLY (LINENUMBER-1) WITH 80 (=64+16) . P ANKL A3,/FF00 ALREADY MULTIPLIED WITH 256 L * P SRL A3,2 NOW ONLY MULTIPLIED WITH 64 ~ P ADR A2,A3 ADD * P SRL A3,2 NOW ONLY MULTIPLIED WITH 16 P ADR A2,A3 ADD P R
0x2f15b8…2f174c Dummy {f00=0x00ec, f01=0x0190, f02=» P* > P********************************************************* P* T P* ^ P* CALL: CF A15,IXTERM h P* 0 P* USED BY: SCREEN SECTION, LINE DRIVER PART P* 4 P* FUNCTION:TO INDEX A SCREEN MEMORY DISPLACEMENT . P*
0x2f174c…2f18e0 Dummy {f00=0x00ec, f01=0x0190, f02=» * P* OUTPUT: A2 = SCREEN MEMORY LOCATION P* A3 = DESTROYED 6 P* P < P******************************************************* Z P* PIXTERM EQU * . P LD A3,DWTCP2,A6 GET CHANNEL PARAMETERS 2 , P ANKL A3,/300 GET TERMINAL NUM
0x2f18e0…2f1a74 (1, 754) Dummy {f00=0x00ec, f01=0x0190, f02=» EJECT P* > P********************************************************* P* Z P* C W T D W T d P* z > P********************************************************* P* P* P* CALL: CF A15,CWTDWT P* 0 P* USED
0x2f1a74…2f1c08 Dummy {f00=0x00ec, f01=0x0190, f02=» P* INPUT: A6 = DWT-ADDRESS P* & P* OUTPUT: A5 = CWT-ADDRESS 0 P* NO DESTROYED REGISTERS R P* t B P************************************************************* ~ P* PCWTDWT EQU * $ P LDR* A5,A6 GET DWTCHP-CONTENTS .
0x2f1c08…2f1d9c Dummy {f00=0x00ec, f01=0x0190, f02=»EM r , P LD A5,CWTTAB,A5 GET CWT-ADDRESS INTO A5 P RTN A15 RETURN : P EJECT R P* ` B P************************************************************** j P* P* P U T Q U E P* B P**********************************************
0x2f1d9c…2f1f30 Dummy {f00=0x00ec, f01=0x0190, f02=»* @ P* FUNCTION:TO QUEUE A DWT LAST IN SCREEN ECHO OUTPUT QUEUE, B P* IF DWT IN ECHO MODE, ELSE LAST IN SCREEN LKM OUTPUT QUEUE. N P* P* INPUT: A5 = CWT-ADDRESS P* A6 =DWT-ADDRESS P* " P* OUTPUT: A3,A4,A7 = DESTROYED
0x2f1f30…2f20c4 Dummy {f00=0x00ec, f01=0x0190, f02=»R LKM-QUEUE P* & P LD A7,DWTST,A6 GET DEVICE STATUS ( P ANKL A7,/2000 DEVICE IN ECHO MODE ? H P RF(Z) PUTQ05 NO t 0 P LDKL A7,CWTSEQ GET SCREEN ECHO OUTPUT QUEUE P RF PUTQ07 PPUTQ05 EQU * 0 P LDKL A7,CWTSLQ GET SCREEN LKM O
0x2f20c4…2f2258 Dummy {f00=0x00ec, f01=0x0190, f02=»7 GET FIRST QUEUED DWT. QUEUE EMPTY ? P RF(Z) PUTQ20 YES . PPUTQ10 EQU * H . P CWR A6,A4 CURRENT DWT ALREADY IN QUEUE ? P RF(E) PUTQ60 YES * P LD A3,DWTOTQ,A4 GET DWT NEXT IN QUEUE $ P RF(Z) PUTQ30 END OF QUEUE FOUND P LDR A4,A3
0x2f2258…2f23ec Dummy {f00=0x00ec, f01=0x0190, f02=»30 EQU * 6 P ST A6,DWTOTQ,A4 QUEUE DWT, IF QUEUE WAS NOT EMPTY PPUTQ40 EQU * J " P CM DWTOTQ,A6 SET END OF QUEUE ^ PPUTQ60 EQU * P IFT CPU852=1 & P ABL IHRTN RETURN IN INHIBIT MODE P XIF P IFT CPU852=0 P RTN A15 RETUR
0x2f23ec…2f2580 Dummy {f00=0x00ec, f01=0x0190, f02=» P* : P***************************************************** P* L P* V P* CALL: CF A15,GETQUE ` P* ~ 0 P* USED BY: SCREEN SECTION, LINE DRIVER PART P* > P* FUNCTION:TO GET FIRST DWT FROM SCREEN ECHO OUTPUT QUEUE, * P
0x2f2580…2f2714 (1, 755) Dummy {f00=0x00ed, f01=0x0190, f02=» : P* OUTPUT: A6 = DWT-ADDRESS (OR 0 IF NO DWT IN QUEUES) P* A3 = DESTROYED B P* : P***************************************************** f P* PGETQUE EQU * : P LD A6,CWTSEQ,A5 GET FIRST DWT FROM ECHO OUTPUT QUEUE " P RF(Z) G
0x2f2714…2f28a8 Dummy {f00=0x00ed, f01=0x0190, f02=»10 EQU * 8 P LD A6,CWTSLQ,A5 GET FIRST DWT FROM LKM OUTPUT QUEUE & P RF(Z) GETQ30 ALSO LKM QUEUE EMPTY L $ P LD A3,DWTOTQ,A6 GET QUEUE LINK v & P ST A3,CWTSLQ,A5 STORE IT INTO CWT PGETQ30 EQU * P IFT CPU852=1 & P ABL IHRTN RETURN IN I
0x2f28a8…2f2a3c Dummy {f00=0x00ed, f01=0x0190, f02=»****************************** z P* & * P* P E R I P H E R A L S E C T I O N 0 & P* L I N E D R I V E R P A R T ^ , P* A C T I V A T I O N R O U T I N E S P* > P********************************************************* P*
0x2f2a3c…2f2bd0 Dummy {f00=0x00ed, f01=0x0190, f02=»AL DEVICE DRIVERS. n B P* BELOW APPEARS THOSE ACTIVATION ROUTINES WHICH ARE USING THE ( P* PERIPHERAL SECTION OF THE VCCU1/4. ` F P* THE ACTIVATION ROUTINES ARE CALLED FROM TERMINAL DEVICE DRIVERS " P* VIA THE NETWORK DISTRIBUTOR. P* P*
0x2f2bd0…2f2d64 Dummy {f00=0x00ed, f01=0x0190, f02=» P LDK A2,/20 0 P ORS A2,DWTST,A6 SET INPUT REQUESTED IN DWT , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT L P RF VUDISP VIDEO DISPATCHER | P* P* START OF A BLOCK P* PVUSTBL EQU * P* P* END OF A BLOCK P
0x2f2d64…2f2ef8 Dummy {f00=0x00ed, f01=0x0190, f02=»VUDISP EQU * P ABL TDISP GO TO DISPATCHER P* 8 P* B P* CHARACTER OUTPUT L P* h PVUCHRO EQU * r P EJECT P* < P******************************************************* P* P* P* FUNCTIONS:
0x2f2ef8…2f308c Dummy {f00=0x00ed, f01=0x0190, f02=»SECTION OUTPUT QUEUE IS EMPTY x F P* 5. IF NOT THEN TEST IF DWT IS ALREADY IN CWT OUTPUT QUEUE, & 4 P* FOR PERIPHERAL SECTION p H P* IF NOT THEN QUEUE THE DWT LAST IN QUEUE, H P*
0x2f308c…2f3220 Dummy {f00=0x00ed, f01=0x018e, f02=» ELSE: v J P* 7. STORE OUTPUT-CHAR INTO ALREADY QUEUED DWT, 2 P* AND THEN DISPATCH. ^ P* ELSE: < P* 8. PREPARE TO SEND THE CHAR TO THE CHANNEL @ P* 9. TEST
0x2f3220…2f33b4 (1, 756) Dummy {f00=0x00ed, f01=0x0190, f02=» b & P* ELSE: 6 P* 10. OUTPUT CHARACTER. 2 $ P* 11. IF OTR ACCEPTED l @ P* STORE INTO DWT THE CHAR BEING OUTPUT : P* AND RETURN TO DEVICE D
0x2f33b4…2f3548 Dummy {f00=0x00ed, f01=0x0190, f02=» T * P* IF SO THEN: P* 13. 6 ( P* START TIMER D L P* AND SET OUTPUT QUEUE TIMER POINTER IN CWT. p D P* 14. GO QUEUE DWT INTO CWT OUTPUT QUEUE 4 P
0x2f3548…2f36dc Dummy {f00=0x00ed, f01=0x0190, f02=»T CHARACTER IN RIGHT BYTE P* A6 = DWT-ADDRESS " @ P************************************************************ @ P* P* P* P EJECT POUTPER EQU * , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT P* P* GET CWT
0x2f36dc…2f3870 Dummy {f00=0x00ed, f01=0x0190, f02=» A1,1 P ADK A1,2 , P LD A5,CWTTAB,A1 GET CWT-ADDRESS INTO A5 & P RB(Z) VUDISP IF NO CWT: DISPATCH P P* z 6 P* TEST IF PERIPHERAL SECTION OUTPUT QUEUE IS EMPTY P* , P LD A4,CWTPQ,A5 IS OUTPUT QUEUE EMPTY ? 2 P RF(NZ) PER560 N
0x2f3870…2f3a04 Dummy {f00=0x00ed, f01=0x0190, f02=»,DWTCP2,A6 GET CHANNEL PARAMETERS 2 P LDR A4,A3 , P ANK A3,/3 DEVICE ADDRESS > P* ` @ P* TEST IF THE DEVICE IS ON THE PERIPHERAL SECTION OF CHANNEL j P* " P SUK A3,1 DEVICE-ADDRESS = 0 ? " P RF(N) PER520 IF SO, NO OUTPUT " P SUK
0x2f3a04…2f3b98 Dummy {f00=0x00ed, f01=0x0190, f02=»ND CHARACTER TO CHANNEL P* , P ADK A3,2 COMPUTE DEVICE-ADDRESS FOR BIO * P SRC A3,6 Z " P ANKL A4,/300 TERMINAL NUMBER l 4 P ORR A3,A4 COMBINE DEV.ADDR. AND TERMINAL NUMBER P ANK A2,/FF P ORR A2,A3 BIO IS READY-MADE 6 P LD A3
0x2f3b98…2f3d2c Dummy {f00=0x00ed, f01=0x018e, f02=»OTR ON PERIPHERAL SECTION z $ P RF(NA) PER510 OTR NOT ACCEPTED " P* J P* OTR IS ACCEPTED. T & P* SAVE OUTPUT CHARACTER INTO DWT, n $ P* THEN RETURN TO DEVICE DRIVER. P* P SC A2,DWTOCH,A6 SAVE OUTPUT 6 P ABL NDREPO POP REGISTERS,
0x2f3d2c…2f3ec0 Dummy {f00=0x00ed, f01=0x0190, f02=» PPER510 EQU * , P LD A4,CWTPQ,A5 IS OUTPUT QUEUE EMPTY ? : P RF(NZ) PER560 NO. THEN ONLY QUEUE DWT, AND DISPATCH. L P* " P* OUTPUT QUEUE IS EMPTY, THEN , P* 1.START TIMER (AND SET TIMER POINTER). P* 2.QUEUE DWT. P* 3.DISP
0x2f3ec0…2f4054 (1, 757) Dummy {f00=0x00ed, f01=0x018e, f02=»A5 PARAMETER (=CWT-ADDRESS) INTO A1 " P CF A15,SETIMP GET TIMER BLOCK , > P DATA TIMOUT,QUETIM ADDRESS TO TIME-OUT ROUTINE AND DELAY R . P RF PER570 QUEUE DWT WHEN QUEUE WAS EMPTY P EJECT P* P* QUEUE OUTPUT : P* WHEN QUEUE NOT
0x2f4054…2f41e8 Dummy {f00=0x00ed, f01=0x0190, f02=» X 6 P LD A3,DWTOTQ,A4 GET DWT NEXT IN PERIPHERAL QUEUE $ P RF(Z) PER580 END OF QUEUE FOUND B P LDR A4,A3 FOLLOW THE QUEUE j P RB PER560 P* & P* QUEUE OUTPUT WHEN QUEUE IS EMPTY P* 8 PPER570 ST A6,CWTPQ,A5 QUEUE DWT, IF QUEUE
0x2f41e8…2f437c Dummy {f00=0x00ed, f01=0x018e, f02=» l PPER600 EQU * . P SC A2,DWTOCH,A6 STORE CHARACTER INTO DWT P RB VUDISP DISPATCH N P* j P EJECT t P* 0 P******************************************* P* * P* P E R I P H E R A L S E C T I O N & P* L I N E D R
0x2f437c…2f4510 Dummy {f00=0x00ed, f01=0x0190, f02=» 0 P* FOR THE PERIPHERAL SECTION OF THE VCCU1/4 : P* THIS DRIVER IS A LINE DRIVER ONLY, WHICH IS USED BY < ( P* SEPARATE TERMINAL DEVICE DRIVERS. z 4 P* BELOW APPEARS THE INTERRUPT HANDLING ROUTINES, 2 P* USING THE PERIPHERAL SECTION OF THE VCCU
0x2f4510…2f46a4 Dummy {f00=0x00ed, f01=0x0190, f02=»ES ARE ENTERED VIA THE INTERRUPT VECTOR. t P* 0 , P* 2. INTERRUPT HANDLER FOR DATA OUTPUT. : J P* THIS INTERRUPT ROUTINE IS ENTERED FROM THE MONITOR CLOCK ROUTINE, j P* AT SOFTWARE TIME-OUT. P* P EJECT P* P* 8 P**
0x2f46a4…2f4838 Dummy {f00=0x00ed, f01=0x018e, f02=» SECTION OF VCCU1/4. p < P******************************************************* P* P* f P* p P* ENTERED: z $ P* VIA THE INTERRUPT VECTOR. P* P* . P* FUNCTIONS FOR EACH INTERRUPT ROUTINE: P* . P
0x2f4838…2f49cc Dummy {f00=0x00ed, f01=0x018e, f02=» . P* 4. GET THE DATA INPUT FROM CHANNEL UNIT $ P* 5. COMPUTE DWT FROM DATA INPUT : " P* IF NO DWT EXISTS THEN EXIT, b P* ELSE: & P* 6. TEST IF STATUS- OR DATA-INPUT L P* IF STATUS-INPUT: INCREMENT ERROR ACKUMULATOR IN CWT AND THEN EXIT
0x2f49cc…2f4b60 Dummy {f00=0x00ed, f01=0x0190, f02=» , P* 8. TEST IF INPUT REQUESTED OR NOT L P* IF INPUT REQUESTED: RETURN TO DEVICE DRIVER VIA NETWORK DISTRIBUTOR 4 P* ELSE: D P* 9. TEST IF ANY INTERRUPT ROUTINE DEFINED FOR THIS DEVICE $ P* IF NOT THEN EXIT
0x2f4b60…2f4cf4 (1, 758) Dummy {f00=0x00ed, f01=0x0190, f02=»* A2 = INPUT CHARACTER IN RIGHT BYTE P* A6 = DWT ADDRESS 4 P* V 8 P**************************************************** ` P* P* : P* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 1 P* PIHPVU1 EQU *
0x2f4cf4…2f4e88 Dummy {f00=0x00ed, f01=0x0190, f02=» * PIHPVU8 EQU * P XIF $ P ST P,INTSAV SAVE LAST INTERRUPT * P IFT CPU852=1 R & P CF A15,SAVE8 SAVE A1-A8 ON STACK h P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* 4 P LDKL A5,CWTVU
0x2f4e88…2f501c Dummy {f00=0x00ed, f01=0x0190, f02=» VUCHAN=1 P RF IHP100 P* $ : P* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 2 . P* l PIHPVU2 EQU * v P XIF P IFT VUCHAN=2 PIHPVU3 EQU * PIHPVU4 EQU * PIHPVU5 EQU * PIHPVU6 EQU * PIHPVU7 EQU *
0x2f501c…2f51b0 Dummy {f00=0x00ed, f01=0x0190, f02=»8 SAVE A1-A8 ON STACK P XIF P* * P IFF VUCHAN=1 4 P IFT CPU852=0 J " P MSR 8,A15 SAVE A1-A8 ON STACK ` P XIF P* P IFF VUCHAN=1 4 P LDKL A5,CWTVU2 SET CWT-ADDRESS FOR VCCU1/4 NO 2 P XIF P IFT VUCHAN=2
0x2f51b0…2f5344 Dummy {f00=0x00ed, f01=0x0190, f02=»IHP100 P* : P* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 3 P* V PIHPVU3 EQU * ` P XIF t P IFT VUCHAN=3 PIHPVU4 EQU * PIHPVU5 EQU * PIHPVU6 EQU * PIHPVU7 EQU * PIHPVU8 EQU * P XIF P I
0x2f5344…2f54d8 Dummy {f00=0x00ed, f01=0x0190, f02=»K p P XIF P* P IFF VUCHAN=1 P IFF VUCHAN=2 6 P IFT CPU852=0 L " P MSR 8,A15 SAVE A1-A8 ON STACK b P XIF P* P IFF VUCHAN=1 P IFF VUCHAN=2 4 P LDKL A5,CWTVU3 SET CWT-ADDRESS FOR VCCU1/4 NO 3 P XIF
0x2f54d8…2f566c Dummy {f00=0x00ed, f01=0x0190, f02=»FF VUCHAN=3 P RF IHP100 : P* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 4 & P* d PIHPVU4 EQU * n P XIF P IFT VUCHAN=4 PIHPVU5 EQU * PIHPVU6 EQU * PIHPVU7 EQU * PIHPVU8 EQU * P XIF P IFF VUC
0x2f566c…2f5800 Dummy {f00=0x00ed, f01=0x0190, f02=»VE A1-A8 ON STACK P XIF P* & P IFF VUCHAN=1 0 P IFF VUCHAN=2 F P IFF VUCHAN=3 P IFT CPU852=0 r " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 4 P L
0x2f5800…2f5994 (1, 759) Dummy {f00=0x00ee, f01=0x0190, f02=» P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 0 P IFF VUCHAN=4 F P RF IHP100 P* n 8 P* INTERRUPT FROM PERIPHERAL SECTION OV VCCU1/4 NO 5 x P* PIHPVU5 EQU * P XIF P IFT VUCHAN=5 PIHPVU6 EQU * P
0x2f5994…2f5b28 Dummy {f00=0x00ee, f01=0x0190, f02=» $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 , ( P CF A15,SAVE8 SAVE A1 - A8 ON STACK B P XIF n P* z P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 P IFF VUCHAN=4 P IFT CPU852=0 $ P MSR 8,A15 SAVE A1 - A
0x2f5b28…2f5cbc Dummy {f00=0x00ee, f01=0x0190, f02=»,CWTVU5 SET CWT-ADDRESS FOR VCCU1/4 NO 5 P XIF 0 P IFT VUCHAN=5 < $ PIHP100 EX CWTINR,A5 EXECUTE INR R P XIF z P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 P IFF VUCHAN=4 P IFF VUCHAN=5 P RF IHP100 P*
0x2f5cbc…2f5e50 Dummy {f00=0x00ee, f01=0x0190, f02=»U7 EQU * PIHPVU8 EQU * P XIF $ P IFF VUCHAN=1 0 P IFF VUCHAN=2 F P IFF VUCHAN=3 P IFF VUCHAN=4 r P IFF VUCHAN=5 $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 ( P CF A15,SAVE8 SAVE A1 - A8 ON STACK P
0x2f5e50…2f5fe4 Dummy {f00=0x00ee, f01=0x0190, f02=» CPU852=0 $ P MSR 8,A15 SAVE A1 - A8 ON STACK P XIF : P* F P IFF VUCHAN=1 P P IFF VUCHAN=2 f P IFF VUCHAN=3 | P IFF VUCHAN=4 P IFF VUCHAN=5 4 P LDKL A5,CWTVU6 SET CWT-ADDRESS FOR VCCU1/4 NO 6 P XIF P IFT V
0x2f5fe4…2f6178 Dummy {f00=0x00ee, f01=0x0190, f02=»FF VUCHAN=4 P IFF VUCHAN=5 P IFF VUCHAN=6 * P RF IHP100 @ P* R 8 P* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 7 P* PIHPVU7 EQU * P XIF P IFT VUCHAN=7 PIHPVU8 EQU * P XIF P IFF VUCHAN=1
0x2f6178…2f630c Dummy {f00=0x00ee, f01=0x0190, f02=»ST INTERRUPT | P IFT CPU852=1 ( P CF A15,SAVE8 SAVE A1 - A8 ON STACK * P XIF V P* b P IFF VUCHAN=1 l P IFF VUCHAN=2 P IFF VUCHAN=3 P IFF VUCHAN=4 P IFF VUCHAN=5 P IFF VUCHAN=6 P IFT CPU852=0 $ P M
0x2f630c…2f64a0 Dummy {f00=0x00ee, f01=0x0190, f02=»N=4 P IFF VUCHAN=5 P IFF VUCHAN=6 " 4 P LDKL A5,CWTVU7 SET CWT-ADDRESS FOR VCCU1/4 NO 7 8 P XIF p P IFT VUCHAN=7 | $ PIHP100 EX CWTINR,A5 EXECUTE INR P XIF P IFT VUCHAN=8 P RF IHP100 P* 8 P* INTERRUPT FROM
0x2f64a0…2f6634 (1, 760) Dummy {f00=0x00ee, f01=0x018e, f02=» CF A15,SAVE8 SAVE A1 - A8 ON STACK P XIF , P* 8 P IFT VUCHAN=8 B P IFT CPU852=0 X $ P MSR 8,A15 SAVE A1 - A8 ON STACK n P XIF P* P IFT VUCHAN=8 4 P LDKL A5,CWTVU8 SET CWT-ADDRESS FOR VCCU1/4 NO 8 $ PIHP100 EX CWTI
0x2f6634…2f67c8 Dummy {f00=0x00ee, f01=0x0190, f02=» P* THEN COMPUTE DWT-ADDRESS P* & $ P LDR A6,A2 GET INPUT-WORD (BIO) 0 4 P ANKL A6,TERMNR GET TERMINAL NBR WITHIN CHANNEL X P SRL A6,8 P LDR A7,A2 GET INPUT WORD 4 P ANKL A7,DEVADR GET DEVICE ADDR WITHIN TERMINAL P SRL A7,/A
0x2f67c8…2f695c Dummy {f00=0x00ee, f01=0x0190, f02=»0 DWT ADDRESS FOUND ? P ABL(Z) VUDISP NO. THEN EXIT P* B $ P* TEST IF STATUS- OR DATA-INPUT L P* t P LDR A3,A2 SAVE INPUT-WORD ~ $ P ANK A2,INDATA CLEAN INPUT-WORD " P ANKL A3,INSTAT STATUS INPUT ? P RF(Z) IHP150 NO P*
0x2f695c…2f6af0 Dummy {f00=0x00ee, f01=0x0190, f02=» P* ! PIHP150 EQU * ! " P LD A7,DWTST,A6 DEVICE STATUS ! " . P ANK A7,/60 MASK INPUT DEV. AND INPUT REQ. ! H P SUK A7,/40 ! z 4 P RF(Z) IHP160 INPUT DEV. BUT NO INPUT REQUESTED ! . P ABL(N) VUDISP NO INPUT-DEVICE. THEN EXIT. ! P* ! & P* INPU
0x2f6af0…2f6c84 Dummy {f00=0x00ee, f01=0x0190, f02=»T INDICATOR OF MORE THAN 1 CHAR ! & P ABL NDREP RETURN TO DEVICE DRIVER " ( P* " R P* " 0 P* GO TO INTERRUPT ROUTINE OF DEVICE DRIVER " f P* " PIHP160 EQU * " " P LD A1,DWTADR,A6 ADDRESS BLOCK " . P LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED?
0x2f6c84…2f6e18 Dummy {f00=0x00ee, f01=0x0190, f02=»INTERRUPT ENTRY " z P EJECT # P* # & . P****************************************** # 0 * P* THIS IS THE INTERRUPT HANDLER FOR # b > P* DATA OUTPUT TO THE PERIPHERAL SECTION OF THE VCCU1/4. # : P*****************************************************
0x2f6e18…2f6fac Dummy {f00=0x00ee, f01=0x0190, f02=»CTIONS: # P* $ L P* 1. GET FIRST QUEUED DWT FOR PERIPHERAL SECTION OUTPUT PART OF THIS CWT $ P* IF QUEUE EMPTY THEN: $ j 2 P* 2. RESET OUTPUT QUEUE TIMER POINTER IN CWT, $ P* AND DISPATCH. $ P* ELSE: $ L P* 3.
0x2f6fac…2f7140 Dummy {f00=0x00ee, f01=0x0190, f02=»TPUT QUEUE $ R 6 P* IF OUTPUT QUEUE IS STILL NOT EMPTY % & P* THEN: RESTART TIMER % L P* ELSE: % v P* 4. % > P* RESET OUTPUT QUEUE TIMER POINTER IN CWT. % " P* 5. GO OUTPUT CHARACTER. % P
0x2f7140…2f72d4 (1, 761) Dummy {f00=0x00ee, f01=0x0190, f02=»ER TO BE OUTPUT % P* A5 = CWT ADDRESS & P* A6 = DWT ADDRESS & 2 P* & L 2 P********************************************** & V P* & PTIMOUT EQU * & " P LDR A5,A1 CWT-ADDRESS INTO A5 & P* & < P* CHECK PERIPHERAL SECTION OUTPUT QUEUE FO
0x2f72d4…2f7468 Dummy {f00=0x00ee, f01=0x0190, f02=»PHERAL SECTION OUTPUT QUEUE IS EMPTY AT THE TIMEOUT! & P* ' < . P CM CWTTP,A5 RESET POINTER TO TIMER BLOCK ' F P ABL VUDISP DISPATCH ' x P* ' B P* PERIPHERAL SECTION OUTPUT QUEUE IS NOT EMPTY AT THE TIMEOUT. ' 4 P* GET QUEUED DWT AND TEST IF QUEUE I
0x2f7468…2f75fc Dummy {f00=0x00ee, f01=0x0190, f02=»Z) TIM210 NOW QUEUE IS EMPTY ' P* ( $ , P* QUEUE STILL NOT EMPTY: RESTART TIMER. ( . P* ( ^ " P LDKL A3,-QUETIM TIMEOUT VALUE ( h & P ST* A3,CWTTP,A5 INTO TIMER BLOCK ( & P RF TIM220 GO OUTPUT ONE CHARACTER ( P* ( P* NOW QUEUE IS EMPTY ( P
0x2f75fc…2f7790 Dummy {f00=0x00ee, f01=0x0190, f02=»TIM220 EQU * ( , P LC A2,DWTOCH,A6 GET CHARACTER FROM DWT ) " P ABL PER500 GO SEND CHARACTER ) D P EJECT ) j P* ) x D P*************************************************************** ) P* ) > P* L I N E D R I V E R R E C O V E R Y R O U T
0x2f7790…2f7924 Dummy {f00=0x00ee, f01=0x0190, f02=»***************************************************** ) P* * > P* V U O N * H P* * @ P* SUBROUTINE TO RESTART THE VIDEO CHANNEL UNITS AT POWER ON * f 8 P**************************************************** * P* * P* * P* CALL: CF A15
0x2f7924…2f7ab8 Dummy {f00=0x00ee, f01=0x018e, f02=»INH-MODE. * n : P* 2. TEST IF ALL CHANNELS IN SYSTEM HAVE BEEN TREATED. + B P* IF SO THEN ENABLE INTERRUPTS AND RETURN FROM SUBROUTINE, + P P* ELSE: + " P* 3. GET CWT FOR NEXT CHANNEL. + . P* IF NO CWT DEFINED THEN CONTINUE IN 2, + P* ELSE
0x2f7ab8…2f7c4c Dummy {f00=0x00ee, f01=0x0190, f02=» + P P* LINE DRIVER PART. , * P* 6. FOR EACH TERMINAL ON THE CHANNEL , & 4 P* CALL DEVICE DEPENDANT RECOVERY ROUTINE , T 6 P* VIA NETWORK DISTRIBUTOR , P* 7. CONTINUE IN 2. , P* , < P****************************
0x2f7c4c…2f7de0 Dummy {f00=0x00ee, f01=0x0190, f02=»R THAN LEVEL OF POWER FAIL OR DC) , P* - * PVUON EQU * - 4 . P LDKL A2,VUON05 GET LEVEL 8 START ADDRESS - F $ P STR A2,A15 STORE ONTO A15-STACK - x P LDKL A2,PONPSW GET NEW PSW - $ P STR A2,A15 STORE ONTO A15-STACK - P RTN A15 ENTER LEVEL 8 -
0x2f7de0…2f7f74 (1, 762) Dummy {f00=0x00ee, f01=0x018e, f02=»WTTAB - ( PVUON10 SUK A1,2 ALL CWT:S TREATED ? . P RF(NZ) VUON20 NO TAKE NEXT . : P* . ^ > P* RETURN AND ENABLE INTERRUPTS AND SWITCH BACK TO LEVEL 0. . h P* . $ P LDK A1,/40 BIT FOR ENABLE MODE . $ P ORS A1,2,A15 INTO PSW ON STACK . P RTN
0x2f7f74…2f8108 Dummy {f00=0x00ee, f01=0x0190, f02=» . r P* / P* CIO START INPUT / P* / , 6 P EX CWTCSP,A5 EXECUTE CIO-START PERIPHERAL (INPUT) / 6 P EJECT / p P* / ~ P* RESET DATA AREAS / , P* USED BY SCREEN AND PERIPHERAL SECTIONS / P* LINE DRIVER PART / P* / * P LDK A4,OTRFLA+HLT
0x2f8108…2f829c Dummy {f00=0x00ee, f01=0x0190, f02=»EEN SECTION ? / j 6 P RF(NZ) VUON25 YES. GO RESET DWTST BITS 11,12,13. 0 PVUON22 EQU * 0 P 4 P CF A15,GETQUE GET QUEUED DWT FROM SCREEN QUEUE 0 d & P ADK A6,0 ANY (MORE) QUEUED DWT ? 0 ( P RF(Z) VUON27 NO. SCREEN QUEUE EMPTY 0 PVUON25 EQU * 0 , P A
0x2f829c…2f8430 Dummy {f00=0x00ee, f01=0x0190, f02=»OF DWT OCCUPYING SCREEN 0 r 8 P CM CWTSRD,A5 RESET INDICATOR SST-READY DWT (SCREEN) 1 6 P CM CWTPQ,A5 RESET OUTPUT QUEUE ON PERIPH. SECTION 1 P* 1 P* 1 4 P* PREPARE LOOP OVER ALL TERMINALS ON THE CHANNEL 1 P* 1 8 P LD* A3,CWTITA,A5 GET ADDRES
0x2f8430…2f85c4 Dummy {f00=0x00ee, f01=0x018e, f02=»ART DEVICE DRIVER RECOVERY FOR ALL TERMINALS ON THE CHANNEL 1 P* 2 D PVUON30 EQU * 2 N * P LDK A4,TCPON INDICATE RECOVERY CAUSE 2 b 6 P CF A15,NDREWS CALL RECOVERY FOR THIS WORK-STATION 2 P* (=TERMINAL) 2 P ADK A6,1 NEXT TERMINAL 2 6 P CWK A
0x2f85c4…2f8758 Dummy {f00=0x00ee, f01=0x400c, f02=» 2 @ 3 RIVER RECOVERY FOR ALL TERMINALS ON THE CHANNEL 1 P* 2 D PVUON30 EQU * 2 N * P LDK A4,TCPON INDICATE RECOVERY CAUSE 2 b 6 P CF A15,NDREWS CALL RECOVERY FOR THIS WORK-STATION 2 P* (=TERMINAL) 2 P ADK A6,1 NEXT TERMINAL 2 6 P CWK A
0x2f8758…2f88ec Dummy {f00=0x00ee, f01=0x2008, f02=» 4 NT DRVU01 800630/CLHJ END &@ 2
0x2f88ec…2f8a80 Dummy {f00=0x00ee, f01=0x0190, f02=» D * EXIT: A1=0 E " * A12 - NEXT FREE ENTRY E * E D P* WORK REGISTES: A3,A4 E N * E n * SUBROUTINES: E x * E 0 ,* MONITOR BLOCK LAYOUT E 0 ,* -------------------- E 0 ,*
0x2f8a80…2f8c14 (1, 763) Opaque[0x194]
0x2f8c14…2f8da8 # DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1de0, f03=0x0000}
0x2f8c14…2f8da8 IdxSect {
0x2f8c14…2f8da8 f00 = 0x00ef // 0x2f8c14 @0x0
0x2f8c14…2f8da8 f01 = 0x000a // 0x2f8c16 @0x2
0x2f8c14…2f8da8 gno = [ // 0x2f8c18 @0x4
0x2f8c14…2f8da8 [0x00]: C0x00ef.0x0.0
0x2f8c14…2f8da8 [0x01]: C0x00ef.0x1.0
0x2f8c14…2f8da8 [0x02]: C0x00ef.0x2.0
0x2f8c14…2f8da8 [0x03]: C0x00ef.0x3.0
0x2f8c14…2f8da8 [0x04]: C0x00f0.0x0.0
0x2f8c14…2f8da8 ]
0x2f8c14…2f8da8 }
0x2f8da8…2f8f3c Dummy {f00=0x00ef, 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* ,
0x2f8f3c…2f90d0 Dummy {f00=0x00ef, 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
0x2f90d0…2f9264 Dummy {f00=0x00ef, 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****
0x2f9264…2f93f8 Dummy {f00=0x00ef, 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
0x2f93f8…2f958c Dummy {f00=0x00ef, 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
0x2f958c…2f9720 Dummy {f00=0x00ef, 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
0x2f9720…2f98b4 (1, 764) Dummy {f00=0x00ef, 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************************************
0x2f98b4…2f9a48 Dummy {f00=0x00ef, f01=0x018e, f02=» PMMUPAG EQU 0 P* P* " 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION , . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. f P* PCPU852 EQU 1 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINE
0x2f9a48…2f9bdc Dummy {f00=0x00ef, 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
0x2f9bdc…2f9d70 Dummy {f00=0x00ef, 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
0x2f9d70…2f9f04 Dummy {f00=0x00ef, 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
0x2f9f04…2fa098 Dummy {f00=0x00ef, 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
0x2fa098…2fa22c Dummy {f00=0x00ef, 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
0x2fa22c…2fa3c0 Dummy {f00=0x00ef, 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
0x2fa3c0…2fa554 (1, 765) Dummy {f00=0x00ef, 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 *
0x2fa554…2fa6e8 Dummy {f00=0x00ef, 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*
0x2fa6e8…2fa87c Dummy {f00=0x00ef, 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
0x2fa87c…2faa10 Dummy {f00=0x00ef, 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
0x2faa10…2faba4 Dummy {f00=0x00ef, 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
0x2faba4…2fad38 Dummy {f00=0x00ef, 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
0x2fad38…2faecc Dummy {f00=0x00ef, 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
0x2faecc…2fb060 Dummy {f00=0x00ef, 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
0x2fb060…2fb1f4 (1, 766) Dummy {f00=0x00ef, 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
0x2fb1f4…2fb388 Dummy {f00=0x00ef, 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*
0x2fb388…2fb51c Dummy {f00=0x00ef, 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
0x2fb51c…2fb6b0 Dummy {f00=0x00ef, 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,
0x2fb6b0…2fb844 Dummy {f00=0x00ef, 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
0x2fb844…2fb9d8 Dummy {f00=0x00ef, 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
0x2fb9d8…2fbb6c Dummy {f00=0x00ef, 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
0x2fbb6c…2fbd00 Dummy {f00=0x00ef, 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
0x2fbd00…2fbe94 (1, 767) Dummy {f00=0x00f0, 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
0x2fbe94…2fc028 Dummy {f00=0x00f0, 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
0x2fc028…2fc1bc Dummy {f00=0x00f0, f01=0x2008, f02=» NT DSKSUB PRR 10.1 79-08-09 CHLO END 2@ >
0x2fc1bc…2fc350 Dummy {f00=0x00f0, f01=0x0190, f02=» * h n > P* EXIT: A5 - SEGMENT TABLE ADDRESS * i > P* * i b > P* WORK REGISTERS: A2,A3,A9,A11 * i > P*
0x2fc350…2fc4e4 Dummy {f00=0x00f0, f01=0x0190, f02=» * i j > P********************************************************** j P EJECT j ^ PBMSTAB EQU * j l * P STR A1,A15 SAVE REGISTER A1 ON STACK j ( P LD A5,SCTSFA GET START OF FREE AREA j * P LD A2,SCTIPL GET PROGRAM LOAD DEVICE j & P
0x2fc4e4…2fc678 Dummy {f00=0x00f0, f01=0x0190, f02=»1,A9 SAVE j & P STR A9,A5 STORE IN SEGMENT TABLE k < P ADS A9,STKCOM+TOTSGM INCREMENT TOTAL NUMBER OF SEGMENTS k < " P ADK A5,2 SEGMENT TABLE ENTRY k | P LDR A3,A5 SAVE k P* k P* BUILD SEGMENT BLOCK 0 k P* k ( P LDKL A2,/8400 STATUS FOR
0x2fc678…2fc80c Dummy {f00=0x00f0, f01=0x0190, f02=»EGMENT BLOCK k . P LD A9,STKEND+LIMIT GET END OF SYSTEM AREA l * P LDR A11,A3 GET END OF SEGMENT BLOCKS l F " P CALL CMPADR COMPARE ADDRESSES l t P RF(NG) BMST25 OK l * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW l P CALL ERROR l & PBMST25 LDR* A2,A8
0x2fc80c…2fc9a0 Dummy {f00=0x00f0, f01=0x018e, f02=»T OPTION WORD l P ANK A2,2 DISC PAGING? m P RF(Z) BMST40 NO! m 4 P* m N * P* DISC PAGING & DISC RESIDENT SEGMENT m X P* m ( P LD A1,SCTMXS GET ADDRESS TO MXSTAB m 0 P LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31 m 0 P LD A1,MX:DA1,A1 GET DIS
0x2fc9a0…2fcb34 (1, 768) Opaque[0x194]
0x2fcb34…2fccc8 # DirEnt {nam=»DTTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e08, f03=0x0000}
0x2fcb34…2fccc8 IdxSect {
0x2fcb34…2fccc8 f00 = 0x00f0 // 0x2fcb34 @0x0
0x2fcb34…2fccc8 f01 = 0x0006 // 0x2fcb36 @0x2
0x2fcb34…2fccc8 gno = [ // 0x2fcb38 @0x4
0x2fcb34…2fccc8 [0x00]: C0x00f0.0x1.0
0x2fcb34…2fccc8 [0x01]: C0x00f0.0x2.0
0x2fcb34…2fccc8 [0x02]: C0x00f0.0x3.0
0x2fcb34…2fccc8 ]
0x2fcb34…2fccc8 }
0x2fccc8…2fce5c Dummy {f00=0x00f0, f01=0x0190, f02=» 2 P IDENT DTTP03 REL 11.0 81-01-26 870105041100 P : P* B < P******************************************************* L < P* * < P* PHILIPS TERMINAL SYSTEM PTS *
0x2fce5c…2fcff0 Dummy {f00=0x00f0, f01=0x018e, f02=» * < P* * < < P* * | < P******************************************************* P* @ P*
0x2fcff0…2fd184 Dummy {f00=0x00f0, f01=0x0190, f02=» P* > P* SHALL REPLACE THE STANDARD A4 PARAMETERS IN THE TABLES P* P 2 P* THE NUMBER OF USED DOCUMENTS IS SPECIFIED Z P* 8 P* AT "NOFDOC" AND IS USED FOR CONDITIONAL ASSEMBLY P* P* OF THE MODULE. P* 6 P*
0x2fd184…2fd318 Dummy {f00=0x00f0, f01=0x0190, f02=»IVER SPECIFICATION TSB 429/78 OR MANUAL M06/M04 P EJECT 8 P F P N P V N P* PARAMETERS LIMITS UNITS APPL. FOR DT STD. A4 ^ P* J P* 1 DT=DOCUMENT TYPE 0-7 - 0 1 2 3 1 J P
0x2fd318…2fd4ac Dummy {f00=0x00f0, f01=0x0190, f02=» 10 V J P* 4 NL=NUMBER OF LINES 01-99 - X X X X 68 J P* 5 BL=BOTTOM LINE 14-99 1/60" X X X X 17 b J P* 6 MA=MARGIN 01-80 1/10" X X X X 02 J P* 7 MF=
0x2fd4ac…2fd640 Dummy {f00=0x00f0, f01=0x0190, f02=» 0 L J P* 9 CM=CRITICAL MARGIN 0,1 - X X X X 0 J P* 10 HP=HIGH PRINT PRESS 0,1 - X X X X 0 X J P* 11 UE=UPPER EDGE 15-82 1/5" X 58 J P* UE=UPPER EDGE
0x2fd640…2fd7d4 (1, 769) Dummy {f00=0x00f0, f01=0x0190, f02=»* 13 DW=DOCUMENT WITDH 40-97 1/10" X 00 J P* UL=UPPER LINES 01-40 - X - N J P* 14 CW=CENTER WITDH 00-99 1/60" X X 00 P EJECT P P P
0x2fd7d4…2fd968 Dummy {f00=0x00f0, f01=0x0190, f02=»BLY THE NUMBER OF USED x . P* DOCUMENT TABLES CAN BE CHANGED (1-16) P P $ PNOFDOC EQU 1 NUMBER OF DOCUMENTS X P * PDN EQU NOFDOC-1 NUMBEROF EXTRA TABLES P P P L PDOCPAR FORM 5,3,8,8,8,8,2,1,2,3,8,8,8,8/1,0,2,3,4,5,9,8,7,
0x2fd968…2fdafc Dummy {f00=0x00f0, f01=0x018e, f02=»0,0,0,58,00,00,00 v P P IFF DN=0 " P* DOCUMENT TABLE 1 4 P* P P Z 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 b P XIF P P IFF DN=0 P IFF DN=1 P* DOCUMENT TABLE 2 P* P 0 P DOCPAR 1,0,
0x2fdafc…2fdc90 Dummy {f00=0x00f0, f01=0x018e, f02=» z P* P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 P XIF N P Z P IFF DN=0 b P IFF DN=1 t P IFF DN=2 P IFF DN=3 P* DOCUMENT TABLE 4 P* P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00
0x2fdc90…2fde24 Dummy {f00=0x00f0, f01=0x0190, f02=» z P* P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 P XIF N P Z P IFF DN=0 b P IFF DN=1 t P IFF DN=2 P IFF DN=3 P IFF DN=4 P IFF DN=5 P* DOCUMENT TABLE 6 P* P 0 P DOCPAR 1,0,
0x2fde24…2fdfb8 Dummy {f00=0x00f0, f01=0x0190, f02=» DN=4 P IFF DN=5 P IFF DN=6 P* DOCUMENT TABLE 7 2 P* N P X 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 ` P XIF P P IFF DN=0 P IFF DN=1 P IFF DN=2 P IFF DN=3 P IFF DN=4 P IFF D
0x2fdfb8…2fe14c Dummy {f00=0x00f0, f01=0x0190, f02=»0 f P XIF P P IFF DN=0 P IFF DN=1 0 P IFF DN=2 B P IFF DN=3 T P IFF DN=4 f P IFF DN=5 x P IFF DN=6 P IFF DN=7 P IFF DN=8 P* DOCUMENT TABLE 9 P* P 0 P DOCPAR 1,0,10,68,17,02,2,
0x2fe14c…2fe2e0 Dummy {f00=0x00f0, f01=0x0190, f02=» IFF DN=5 P IFF DN=6 P IFF DN=7 $ P IFF DN=8 6 P IFF DN=9 H P* DOCUMENT TABLE 10 Z P* x P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 P XIF P P IFF DN=0 P IFF DN=1 P IFF DN=2 P
0x2fe2e0…2fe474 (1, 770) Dummy {f00=0x00f0, f01=0x0190, f02=» P* DOCUMENT TABLE 11 P* & P 0 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 8 P XIF l P x P IFF DN=0 P IFF DN=1 P IFF DN=2 P IFF DN=3 P IFF DN=4 P IFF DN=5 P IFF DN=6 P IFF DN=7
0x2fe474…2fe608 Dummy {f00=0x00f0, f01=0x0190, f02=»1,0,10,68,17,02,2,0,0,0,58,00,00,00 P XIF , P 8 P IFF DN=0 @ P IFF DN=1 R P IFF DN=2 d P IFF DN=3 v P IFF DN=4 P IFF DN=5 P IFF DN=6 P IFF DN=7 P IFF DN=8 P IFF DN=9 P IFF DN=10 P I
0x2fe608…2fe79c Dummy {f00=0x00f0, f01=0x0190, f02=»IF P P IFF DN=0 P IFF DN=1 $ P IFF DN=2 6 P IFF DN=3 H P IFF DN=4 Z P IFF DN=5 l P IFF DN=6 ~ P IFF DN=7 P IFF DN=8 P IFF DN=9 P IFF DN=10 P IFF DN=11 P IFF DN=12 P IFF DN=13
0x2fe79c…2fe930 Dummy {f00=0x00f0, f01=0x0190, f02=» P IFF DN=1 P IFF DN=2 P IFF DN=3 , P IFF DN=4 > P IFF DN=5 P P IFF DN=6 b P IFF DN=7 t P IFF DN=8 P IFF DN=9 P IFF DN=10 P IFF DN=11 P IFF DN=12 P IFF DN=13 P IFF DN=14 P*
0x2fe930…2feac4 Dummy {f00=0x00f0, f01=0x403c, f02=»QU ETTP03-DTTP03 TOTAL TABLE LENGTH P END ,@ 8 P IFF DN=4 > P IFF DN=5 P P IFF DN=6 b P IFF DN=7 t P IFF DN=8 P IFF DN=9 P IFF DN=10 P IFF DN=11 P IFF DN=12 P IFF DN=13 P IFF DN=14 P*
0x2feac4…2fec58 Dummy {f00=0x00f0, f01=0x2008, f02=» IFF DN=8 IFF DN=9 IFF DN=10 0 IFF DN=11 B IFF DN=12 T IFF DN=13 f IFF DN=14 x * DOCUMENT TABLE 15 D15 XIF END @ F DN=12 IFF DN=13 * DOCUMENT T
0x2fec58…2fedec Dummy {f00=0x00f0, f01=0x0190, f02=»*** # P* * $ P* SUBROUTINES * $ ( P* * $ D P******************* $ ` P* $ | P********** $ P* GETFDB * $ P********** $ P* $ 2 P* GET FILE CODE ENTRY IN USER TTAB OR CDTAB $ P* $ PGE
0x2fedec…2fef80 Dummy {f00=0x00f0, f01=0x0190, f02=»ARCH BOTH TABLES =1 $ P CF A14,FNDFDB =1 % P RTN A14 =1 % 6 P* % J P EJECT ADMTSK % T P* % j P********** % t P* GETFPB * % P********** % P* % . P* GET FILE PARAMETER BLOCK TO ADM BUFFER % P* % & P* INPUT : A9 = USER EC
0x2fef80…2ff114 (1, 771) Opaque[0x194]
0x2ff114…2ff2a8 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e20, f03=0x0000}
0x2ff114…2ff2a8 IdxSect {
0x2ff114…2ff2a8 f00 = 0x00f1 // 0x2ff114 @0x0
0x2ff114…2ff2a8 f01 = 0x0002 // 0x2ff116 @0x2
0x2ff114…2ff2a8 gno = [ // 0x2ff118 @0x4
0x2ff114…2ff2a8 [0x00]: C0x00f1.0x0.0
0x2ff114…2ff2a8 ]
0x2ff114…2ff2a8 }
0x2ff2a8…2ff43c Dummy {f00=0x00f1, 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
0x2ff43c…2ff5d0 Dummy {f00=0x00f1, 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
0x2ff5d0…2ff764 Dummy {f00=0x00f1, 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
0x2ff764…2ff8f8 Dummy {f00=0x00f1, 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
0x2ff8f8…2ffa8c Dummy {f00=0x00f1, 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
0x2ffa8c…2ffc20 Dummy {f00=0x00f1, 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
0x2ffc20…2ffdb4 (1, 772) Opaque[0x194]
0x2ffdb4…2fff48 # DirEnt {nam=»DVTDN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e28, f03=0x0000}
0x2ffdb4…2fff48 IdxSect {
0x2ffdb4…2fff48 f00 = 0x00f1 // 0x2ffdb4 @0x0
0x2ffdb4…2fff48 f01 = 0x0002 // 0x2ffdb6 @0x2
0x2ffdb4…2fff48 gno = [ // 0x2ffdb8 @0x4
0x2ffdb4…2fff48 [0x00]: C0x00f1.0x1.0
0x2ffdb4…2fff48 ]
0x2ffdb4…2fff48 }
0x2fff48…3000dc Dummy {f00=0x00f1, f01=0x0190, f02=» 0 P IDENT DVTDN REL 11.0 81-01-26 870105041100 P 8 , P* DEVICE WORK TABLE FOR NUMERIC DISPLAY @ P* p P ENTRY DVTDN TABLE ENTRY z P* ( P EXTRN DNAD POINTER TO ADDRESS-BLOCK PMMUPAG EQU 0 PDVTDN EQU * TABLE ENTRY " P DAT
0x3000dc…300270 Dummy {f00=0x00f1, f01=0x0190, f02=»ER z ( P DATA DNAD POINTER TO ADDRESS-BLOCK P DATA /C44E TTAB-ADDRESS 6 $ P DATA 0 WAIT/ACTIVATE INDICATOR V P DATA 0 TERMINAL QUEUE ~ IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRESS XIF
0x300270…300404 Dummy {f00=0x00f1, f01=0x4158, f02=»ES 4 DWT-STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 2 $ P DATA /2222 CHANNEL PARAMETER 2 N $ P DATA 0 LINE DRIVER DEPENDENT 1 v $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P IFT MMUPAG=1 PDEVECB DAT
0x300404…300598 Dummy {f00=0x00f1, f01=0x2008, f02=» DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE L P DATA 0 OUTPUT QUEUE LINK j P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P*
0x300598…30072c Dummy {f00=0x00f1, f01=0x0190, f02=»IPT ORDER # r P CF A5,ORDER AND SEND $ P LDR A2,A4 RELOAD LF INF $ 0 & P CF A5,OUT AND SEND LF INFORMATION $ P $ P LDK A3,2 SET UP BUFFER POINTER $ z 6 PWRRC20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER $ P LDR A1,A1 $ " P RF(Z) WRRC50 BUFFER FINIS
0x30072c…3008c0 Dummy {f00=0x00f1, f01=0x0190, f02=» $ x P SUK A1,/6F % P RB(Z) WRRC20 CHAR=/7F % P RF(N) WRRC40 CHAR = NORMAL % : P SUK A1,/2F % ^ P RF(Z) WRRC40 CHAR =/AE % r " P LDK A1,4 IND CODE CHECH ERROR % $ P ORS A1,ECBRC,A8 IN RETURN CODE % P RB WRRC20 % P % P* SEND CHARA
0x3008c0…300a54 (1, 773) Opaque[0x194]
0x300a54…300be8 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e30, f03=0x0000}
0x300a54…300be8 IdxSect {
0x300a54…300be8 f00 = 0x00f1 // 0x300a54 @0x0
0x300a54…300be8 f01 = 0x0002 // 0x300a56 @0x2
0x300a54…300be8 gno = [ // 0x300a58 @0x4
0x300a54…300be8 [0x00]: C0x00f1.0x2.0
0x300a54…300be8 ]
0x300a54…300be8 }
0x300be8…300d7c Dummy {f00=0x00f1, 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
0x300d7c…300f10 Dummy {f00=0x00f1, 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
0x300f10…3010a4 Dummy {f00=0x00f1, 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
0x3010a4…301238 Dummy {f00=0x00f1, 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
0x301238…3013cc Dummy {f00=0x00f1, 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
0x3013cc…301560 Dummy {f00=0x00f1, 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 -
0x301560…3016f4 (1, 774) Opaque[0x194]
0x3016f4…301888 # DirEnt {nam=»DVTG1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e38, f03=0x0000}
0x3016f4…301888 IdxSect {
0x3016f4…301888 f00 = 0x00f1 // 0x3016f4 @0x0
0x3016f4…301888 f01 = 0x0004 // 0x3016f6 @0x2
0x3016f4…301888 gno = [ // 0x3016f8 @0x4
0x3016f4…301888 [0x00]: C0x00f1.0x3.0
0x3016f4…301888 [0x01]: C0x00f2.0x0.0
0x3016f4…301888 ]
0x3016f4…301888 }
0x301888…301a1c Dummy {f00=0x00f1, 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*
0x301a1c…301bb0 Dummy {f00=0x00f1, 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
0x301bb0…301d44 Dummy {f00=0x00f1, 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
0x301d44…301ed8 Dummy {f00=0x00f1, 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
0x301ed8…30206c Dummy {f00=0x00f1, 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
0x30206c…302200 Dummy {f00=0x00f1, 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
0x302200…302394 (1, 775) Dummy {f00=0x00f2, 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
0x302394…302528 Dummy {f00=0x00f2, 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
0x302528…3026bc Dummy {f00=0x00f2, 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
0x3026bc…302850 Dummy {f00=0x00f2, 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
0x302850…3029e4 Dummy {f00=0x00f2, 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
0x3029e4…302b78 Dummy {f00=0x00f2, 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
0x302b78…302d0c Dummy {f00=0x00f2, 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 <
0x302d0c…302ea0 Dummy {f00=0x00f2, 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
0x302ea0…303034 (1, 776) Opaque[0x194]
0x303034…3031c8 # DirEnt {nam=»DVTG2 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e48, f03=0x0000}
0x303034…3031c8 IdxSect {
0x303034…3031c8 f00 = 0x00f2 // 0x303034 @0x0
0x303034…3031c8 f01 = 0x0004 // 0x303036 @0x2
0x303034…3031c8 gno = [ // 0x303038 @0x4
0x303034…3031c8 [0x00]: C0x00f2.0x1.0
0x303034…3031c8 [0x01]: C0x00f2.0x2.0
0x303034…3031c8 ]
0x303034…3031c8 }
0x3031c8…30335c Dummy {f00=0x00f2, f01=0x0190, f02=» 0 P IDENT DVTG2 REL 11.0 81-01-26 870105041100 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTG2 TABLE ENTRY z P* P* * P EXTRN GPAD3 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND. P*
0x30335c…3034f0 Dummy {f00=0x00f2, f01=0x0190, f02=»ECB ADDRESS P DATA DWTEND-DVTG2 ORDER ( P DATA GPAD3 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
0x3034f0…303684 Dummy {f00=0x00f2, 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
0x303684…303818 Dummy {f00=0x00f2, 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
0x303818…3039ac Dummy {f00=0x00f2, f01=0x413c, f02=»ITCH x P DATA 0 LINE SPACE " P DATA /3300 HIGH SPEED PARAM. & P DATA 0 HOPPER 1 OR 2 L P DATA 0,0 LAST TAB POS. j & P DATA 0 CONTR. SEQ. SEPARATOR IND. P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF PDWTE
0x3039ac…303b40 Dummy {f00=0x00f2, 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
0x303b40…303cd4 (1, 777) Dummy {f00=0x00f2, f01=0x0190, f02=»U 60 PX:D EQU 10 PX:E EQU 6 P 0 PTIMOUT EQU X:A 8 PPOWUP EQU X:B P PDVBLEN EQU X:C f PDVBKTB EQU X:D | PDEVIND EQU X:E P PCREDIT EQU 0 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBT
0x303cd4…303e68 Dummy {f00=0x00f2, f01=0x0190, f02=»ON ` . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* < PCPU852 EQU 1 F P* Z P EJECT d P* r P* | P********************* P* DWT-DISPLACEMENTS * P********************* P* P* 0 PDWTDRD EQU /10 START
0x303e68…303ffc Dummy {f00=0x00f2, f01=0x0190, f02=»T EQU DWTDRD+4 P XIF P* " PDWTHP EQU START+/18 , PTWCLR EQU START+/15 H PTWEOF EQU START+/16 d PTWBSP EQU START+/14 PDWTA2 EQU START+/1A * P DATA DVBKTB+DVBKTB MMU KEY TABLE SIZE ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZ
0x303ffc…304190 Dummy {f00=0x00f2, f01=0x0190, f02=»JECT P* P* 2 P* ACTIVATION PART: CHECK VALIDITY OF ORDERS P* V P* ` PTWA EQU * j P LDK A3,0 | $ P LD A2,4,A8 GET REQUESTED LENGTH & P ABL(Z) IHTW50 REQUESTED LENGTH =0 P* P* P LDR A2,A7 COPY ORDE
0x304190…304324 Dummy {f00=0x00f2, f01=0x0190, f02=»UK A2,2 " P RF(NP) TWAOUT OUTPUT REQUEST P* 6 P* @ $ PTWAERR ABL DISIOE REQUEST ERROR J P EJECT r P* P* PTWAIN EQU * P IFT TIMOUT=1 & P LD A2,DWTTP,A6 GET TIMER POINTER * P RF(Z) TWA010 NO TIMING ON THIS
0x304324…3044b8 Dummy {f00=0x00f2, f01=0x0190, f02=» h P XIF PTWA010 EQU * P IFT POWUP=1 ( " P LD A2,DWTST,A6 GET DWT-STATUS < P ANKL A2,/200 b 0 P RF(Z) TWA020 NOT FIRST READ AFTER POEWR UP x " P XRS A2,DWTST,A6 RESET POINTER P LDKL A2,-2 " P ST A2,10,A8 INDICATE POWER UP
0x3044b8…30464c Dummy {f00=0x00f2, f01=0x0190, f02=» P RF RED030 & PRED020 CF A5,STREG SAVE REGISTERS P EJECT @ P* N P* RETURN AFTER INTERRUPT X P* z P* PRED030 EQU * P IFT TIMOUT=1 P LDR A1,A1 P RF(NZ) RED037 P XIF P SUK A7,1 P RF(P) RED
0x30464c…3047e0 Dummy {f00=0x00f2, f01=0x0190, f02=»XT CHARACTER | P LDR A7,A7 P RF(Z) RED040 BASIC READ & P* F P* P P LDK A1,LNGERR OVERFLOW Z & PRED037 ORS A1,8,A8 SET RETURN CODE z P* P* P EJECT P PRED040 EQU * P P IFT TIMOUT=1 P LD A7,D
0x3047e0…304974 (1, 778) Opaque[0x194]
0x304974…304b08 # DirEnt {nam=»DVTG3 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e58, f03=0x0000}
0x304974…304b08 IdxSect {
0x304974…304b08 f00 = 0x00f2 // 0x304974 @0x0
0x304974…304b08 f01 = 0x0002 // 0x304976 @0x2
0x304974…304b08 gno = [ // 0x304978 @0x4
0x304974…304b08 [0x00]: C0x00f2.0x3.0
0x304974…304b08 ]
0x304974…304b08 }
0x304b08…304c9c Dummy {f00=0x00f2, f01=0x018e, f02=» 0 P IDENT DVTG3 REL 11.0 81-01-26 870105041100 P 8 * P* DEVICE WORK TABLE FOR HP75 (COPY80) @ P* n P ENTRY DVTG3 TABLE ENTRY x P* P* * P EXTRN GPAD04 POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTG3 EQU * TABL
0x304c9c…304e30 Dummy {f00=0x00f2, f01=0x0190, f02=» v * P DATA GPAD04 POINTER TO ADDRESS-BLOCK P DATA /C750 TTAB-ADDRESS 6 $ P DATA 0 WAIT/ACTIVATE INDICATOR V P DATA 0 TERMINAL QUEUE ~ IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRESS XIF
0x304e30…304fc4 Dummy {f00=0x00f2, f01=0x018e, f02=»ES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 P DATA 0 SAVE AREA FOR A8 6 * P DATA /2222 CHANNEL PARAMETER TWO (2) V $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /8000 DEVICE STATUS " P DATA 0 HEAD POSIT
0x304fc4…305158 Dummy {f00=0x00f2, f01=0x4048, f02=» P XIF PDWTEND EQU * P* $ P* . P END 8@ DFOR A8 6 * P DATA /2222 CHANNEL PARAMETER TWO (2) V $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /8000 DEVICE STATUS " P DATA 0 HEAD POSIT
0x305158…3052ec Dummy {f00=0x00f2, f01=0x2008, f02=» ESS-BLOCK ~ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 P DATA 0 TERMINAL QUEUE ^ P DATA 0 OUTPUT QUEUE LINK | P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT
0x3052ec…305480 Dummy {f00=0x00f2, f01=0x0190, f02=»ETURN v P EJECT P* P* & P* 0 $ PWRT010 CF A5,OTR SEND CHARACTER : P* b P* l P SUK A4,1 v P RF(NP) WRT020 PWRT015 LDK A2,LF SEND LF P RB WRT010 P* PWRT020 SUK A3,5 P RB(Z) WRT015 SEND SEC
0x305480…305614 (1, 779) Opaque[0x194]
0x305614…3057a8 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e60, f03=0x0000}
0x305614…3057a8 IdxSect {
0x305614…3057a8 f00 = 0x00f3 // 0x305614 @0x0
0x305614…3057a8 f01 = 0x0002 // 0x305616 @0x2
0x305614…3057a8 gno = [ // 0x305618 @0x4
0x305614…3057a8 [0x00]: C0x00f3.0x0.0
0x305614…3057a8 ]
0x305614…3057a8 }
0x3057a8…30593c Dummy {f00=0x00f3, f01=0x0190, f02=» 0 P IDENT DVTGP REL 11.0 81-01-26 870105041100 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTGP TABLE ENTRY z P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTGP EQU * TABL
0x30593c…305ad0 Dummy {f00=0x00f3, f01=0x0190, f02=»ATA DWTEND-DVTGP ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA /C750 TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x305ad0…305c64 Dummy {f00=0x00f3, f01=0x018e, f02=»REA FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 * P DATA 0 SAVE AREA FOR A8 J * P DATA /2222 CHANNEL PARAMETER TWO (2) j $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS "
0x305c64…305df8 Dummy {f00=0x00f3, f01=0x403c, f02=» PDWTEND EQU * P* P* " P END ,@ 8FOR A7 * P DATA 0 SAVE AREA FOR A8 J * P DATA /2222 CHANNEL PARAMETER TWO (2) j $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS "
0x305df8…305f8c Dummy {f00=0x00f3, f01=0x2008, f02=» ESS-BLOCK ~ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 P DATA 0 TERMINAL QUEUE ^ P DATA 0 OUTPUT QUEUE LINK | P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT
0x305f8c…306120 Dummy {f00=0x00f3, f01=0x0190, f02=» P* PTWON20 LDK A1,TPERR ORDER 05 P ABL DISEND 2 P* F P* P P EJECT Z P* h P* r P* I H T W | P* 0 P* INTERRUPT HANDLER: PROCESS OF INTERRUPT P* P* PIHTW EQU * $ P ST P,INTSAV SAVE LA
0x306120…3062b4 (1, 780) Opaque[0x194]
0x3062b4…306448 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e68, f03=0x0000}
0x3062b4…306448 IdxSect {
0x3062b4…306448 f00 = 0x00f3 // 0x3062b4 @0x0
0x3062b4…306448 f01 = 0x0002 // 0x3062b6 @0x2
0x3062b4…306448 gno = [ // 0x3062b8 @0x4
0x3062b4…306448 [0x00]: C0x00f3.0x1.0
0x3062b4…306448 ]
0x3062b4…306448 }
0x306448…3065dc Dummy {f00=0x00f3, f01=0x0190, f02=» 0 P IDENT DVTKB REL 11.0 81-01-26 870105041100 P 8 * @ " * KEYBOARD DEVICE WORK TABLE J * p P ENTRY DVTKB TABLE ENTRY z P EXTRN COD P EXTRN ECH P EXTRN KBAD4 MMUPAG EQU 0 * P* P* PDVTK
0x3065dc…306770 Dummy {f00=0x00f3, f01=0x0190, f02=»ATA DWTEND-DVTKB ORDER ( P DATA KBAD4 POINTER TO ADDRESS BLOCK DATA 'KB' TTAB ADDRESS J " DATA 0 WAIT/ACTIVE INDICATOR j DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB ADDRE
0x306770…306904 Dummy {f00=0x00f3, f01=0x018e, f02=»A FOR A5 RES 4 DWT STACK DATA 0 SAVE AREA FOR A7 ( DATA 0 SAVE AREA FOR A8 H $ P DATA /2222 CHANNEL PARAMETER-2 h " DATA 0 LINE DRIVER DEPENDENT " DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS P DATA ECH
0x306904…306a98 Dummy {f00=0x00f3, f01=0x4128, 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 CIRCULAR BUFFER IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 XIF DWTE
0x306a98…306c2c Dummy {f00=0x00f3, 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
0x306c2c…306dc0 Dummy {f00=0x00f3, f01=0x0190, f02=» A5 $ P* % P* % P* % P IFT TIMOUT=1 % * P* % @ P* % J P* TIMOUT ROUTINE % T P* % n P* % x PTWTUT EQU * % P LDR A6,A1 GET DWT-ADDRESS % $ P LDK A1,/40 TIME OUT RETURN CODE % P XIF % P* % P* % P EJECT %
0x306dc0…306f54 (1, 781) Opaque[0x194]
0x306f54…3070e8 # DirEnt {nam=»DVTMS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e70, f03=0x0000}
0x306f54…3070e8 IdxSect {
0x306f54…3070e8 f00 = 0x00f3 // 0x306f54 @0x0
0x306f54…3070e8 f01 = 0x0004 // 0x306f56 @0x2
0x306f54…3070e8 gno = [ // 0x306f58 @0x4
0x306f54…3070e8 [0x00]: C0x00f3.0x2.0
0x306f54…3070e8 [0x01]: C0x00f3.0x3.0
0x306f54…3070e8 ]
0x306f54…3070e8 }
0x3070e8…30727c Dummy {f00=0x00f3, f01=0x018e, f02=» 0 P IDENT DVTMS REL 11.0 81-01-26 870105041100 P 8 0 P* DEVICE WORK TABLE FOR MAGNETIC STRIPE UNIT @ P* t P ENTRY DVTMS TABLE ENTRY ~ P* P* ( P EXTRN MSAD POINTER TO ADDRESSBLOCK PMMUPAG EQU 0 P* P* P*
0x30727c…307410 Dummy {f00=0x00f3, f01=0x0190, f02=» P DATA 0 ECB-ADDRESS 2 P DATA DWTEND-DVTMS LAST OUTPUT AND ORDER CODE ( P DATA MSAD POINTER TO ADDRESS BLOCK V P DATA 'MS' TTAB-ADDRESS & P DATA 0 WAIT/ACTIVATION INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0
0x307410…3075a4 Dummy {f00=0x00f3, f01=0x0190, f02=»R A3 | P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 , P RES 4 DWT STACK L P DATA 0 SAVE AREA FOR A7 d P DATA 0 SAVE AREA FOR A8 $ P DATA /2222 CHANNEL PARAMETER 2 $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER
0x3075a4…307738 Dummy {f00=0x00f3, f01=0x018e, f02=»NTER l P DATA 0 LRC-ACKUMULATOR P DATA 0 , , P DATA DWTSQ+DVTMS POINTER TO FIRST PLACE < , P DATA DWTSQ+DVTMS POINTER TO LAST PLACE l PDWTSQ EQU *-DVTMS P DATA 0 CIRCULAR BUFFER P DATA 0,0,0,0 P IFT MMUPAG=1 PDEVECB
0x307738…3078cc Dummy {f00=0x00f3, f01=0x4014, f02=» P END @ LRC-ACKUMULATOR P DATA 0 , , P DATA DWTSQ+DVTMS POINTER TO FIRST PLACE < , P DATA DWTSQ+DVTMS POINTER TO LAST PLACE l PDWTSQ EQU *-DVTMS P DATA 0 CIRCULAR BUFFER P DATA 0,0,0,0 P IFT MMUPAG=1 PDEVECB
0x3078cc…307a60 Dummy {f00=0x00f3, f01=0x2008, f02=» ER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS ( & P DATA 0 WAIT/ACTIVATION INDICATOR D P DATA 0 TERMINAL QUEUE n P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5
0x307a60…307bf4 (1, 782) Dummy {f00=0x00f3, f01=0x0190, f02=»0 WHOLE BUFFER MOVED - P SUK A1,1 . * P RB(NN) RDC110 NEXT FOR THIS CASSETTE . . P RB RDC100 . PRDC120 EQU * . n P LDR A1,A6 . 4 P ADKL A1,DWTDEV+DWTBUF+4 A1:=DWT BUFFER POINTER . P ST A1,DWTDEV+DWTBUF,A6 . P LDK A1,0 RETURN CODE .
0x307bf4…307d88 Dummy {f00=0x00f3, f01=0x004e, f02=» H X ` h p x + + + + + + + + , , , , , ,(,0
0x307d88…307f1c Dummy {f00=0x00f3, f01=0x018e, f02=» 2 P IDENT DRVU01 PRR 11.0 80-11-19 870105041100 P : P B P J P R P* Z 6 P************************************************** d P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P* DRVU01 = DRIVER VIDEO CONNECTED DISPLAY PT
0x307f1c…3080b0 Dummy {f00=0x00f3, f01=0x0190, f02=» P* P* 6 P************************************************** P* R : P* THIS DRIVER CONSISTS OF THE FOLLOWING TWO SECTIONS: P* $ P* - S C R E E N S E C T I O N , P* - P E R I P H E R A L S E C T I O N P* P E
0x3080b0…308244 Dummy {f00=0x00f3, f01=0x0190, f02=»D VIA THE SCREEN SECTION OF THE VIDEO CHANNEL UNIT VCCU1/4. P* D < P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS N : P* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN : P* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE (
0x308244…3083d8 Dummy {f00=0x00f3, f01=0x0190, f02=»F THE DRIVER h ( P* CONSISTS OF FOLLOWING PARTS: P* @ , P* - D E V I C E D R I V E R P A R T J ( P* - L I N E D R I V E R P A R T z P* P EJECT P* . P* THE D E V I C E D R I V E R P A R T * P* OF THE SCREE
0x3083d8…30856c Dummy {f00=0x00f3, f01=0x018e, f02=»O N R O U T I N E ~ P* 6 P* -ACVU ACTIVATION OF DEVICE DRIVER, AT LKM DATA 1 & P* ` P* j P* t P* ~ P* A B O R T R O U T I N E P* < P* -ABVU ABORT HANDLING IN DEVICE DRIVER, AT LKM DATA 10 P* P*
0x30856c…308700 Dummy {f00=0x00f3, f01=0x0190, f02=» P* P* P* P* " P* E C H O R O U T I N E , P* N . P* -ECHOVU ECHO-HANDLING OF KEYBOARD INPUT X P* P* P* P* P* E R R O R R O U T I N E P* , P* -DEVERR DEVICE DRIVER ERROR HANDLING,
0x308700…308894 (1, 783) Opaque[0x194]
0x308894…308a28 # DirEnt {nam=»DVTOD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e80, f03=0x0000}
0x308894…308a28 IdxSect {
0x308894…308a28 f00 = 0x00f4 // 0x308894 @0x0
0x308894…308a28 f01 = 0x0002 // 0x308896 @0x2
0x308894…308a28 gno = [ // 0x308898 @0x4
0x308894…308a28 [0x00]: C0x00f4.0x0.0
0x308894…308a28 ]
0x308894…308a28 }
0x308a28…308bbc Dummy {f00=0x00f4, f01=0x0190, f02=» 0 P IDENT DVTOD REL 11.0 81-04-13 870105041100 P 8 " * KEYBOARD DEVICE WORK TABLE @ * f P ENTRY DVTOD TABLE ENTRY p * P*** P " P EXTRN ODAD ACTIVATION ADRESS 2 PMMUPAG EQU 0 MEMORY MANAGEMENT UNIT CONDITION
0x308bbc…308d50 Dummy {f00=0x00f4, f01=0x0190, f02=»A 0 ECB-ADDRESS P DATA DWTEND-DVTOD ORDER ( P DATA ODAD POINTER TO ADDRESS BLOCK 8 P DATA 'OD' TTAB ADDRESS d " DATA 0 WAIT/ACTIVE INDICATOR DATA 0 TERMINAL QUEUE IFT MMUPAG=1 DATA 0 P DATA DEVECB XIF
0x308d50…308ee4 Dummy {f00=0x00f4, f01=0x0190, f02=» RES 4 DWT STACK DATA 0 SAVE AREA FOR A7 DATA 0 SAVE AREA FOR A8 8 $ P DATA /2222 CHANNEL PARAMETER-2 X " DATA 0 LINE DRIVER DEPENDENT " DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS P DATA 0 DATA 0 KE
0x308ee4…309078 Dummy {f00=0x00f4, f01=0x4128, f02=»LRC - ACKUMULATOR , P DATA DWTSQ+DVTOD POINTER TO FIRST PLACE , P DATA DWTSQ+DVTOD POINTER TO LAST PLACE J PDWTSQ EQU *-DVTOD z P DATA 0 CIRCULAR BUFFER IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 XIF DWTE
0x309078…30920c Dummy {f00=0x00f4, 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
0x30920c…3093a0 Dummy {f00=0x00f4, f01=0x4046, f02=» DATA FLOGSH,FLOGSL P END P 2 P :@ B5241 P* R L P*********************************************************************** P* LOG BLOCK L P***********************************************************************
0x3093a0…309534 (1, 784) Opaque[0x194]
0x309534…3096c8 # DirEnt {nam=»DVTT1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e88, f03=0x0000}
0x309534…3096c8 IdxSect {
0x309534…3096c8 f00 = 0x00f4 // 0x309534 @0x0
0x309534…3096c8 f01 = 0x0002 // 0x309536 @0x2
0x309534…3096c8 gno = [ // 0x309538 @0x4
0x309534…3096c8 [0x00]: C0x00f4.0x1.0
0x309534…3096c8 ]
0x309534…3096c8 }
0x3096c8…30985c Dummy {f00=0x00f4, f01=0x0190, f02=» 0 P IDENT DVTT1 REL 11.0 81-01-26 870105041100 P 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER @ P* x P ENTRY DVTT1 TABLE ENTRY P* P* * P EXTRN TPAD3 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND.
0x30985c…3099f0 Dummy {f00=0x00f4, f01=0x0190, f02=» DATA 0 ECB ADDRESS P DATA DWTEND-DVTT1 ORDER ( P DATA TPAD3 POINTER TO ADDRESS BLOCK < P DATA 'TP' TTAB-ADDRESS h $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS
0x3099f0…309b84 Dummy {f00=0x00f4, f01=0x0190, f02=» DATA 0,0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 8 $ P DATA /2222 CHANNEL PARAMETER 2 T $ P DATA 0 LINE DRIVER DEPENDENT 1 | $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 PRINTER PARAMETERS
0x309b84…309d18 Dummy {f00=0x00f4, f01=0x40ca, f02=»L LINE NUMBER x ( P DATA 0,0,0,0,0 DOCUMENT PARAMETERS P IFT MMUPAG=1 B PDEVECB EQU * X P DATA 0,0,0,0,0,0 l P XIF PDWTEND EQU * P* P* P END @ P DATA /3333 DEVICE STATUS P DATA 0 PRINTER PARAMETERS
0x309d18…309eac Dummy {f00=0x00f4, 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
0x309eac…30a040 Dummy {f00=0x00f4, f01=0x0190, f02=»FROM VCCU1/4 NO 1 x . P ENTRY IHSVU2 INTERRUPT FROM VCCU1/4 NO 2 . P ENTRY IHSVU3 INTERRUPT FROM VCCU1/4 NO 3 L . P ENTRY IHSVU4 INTERRUPT FROM VCCU1/4 NO 4 ~ . P ENTRY IHSVU5 INTERRUPT FROM VCCU1/4 NO 5 . P ENTRY IHSVU6 INTERRUPT FROM VCCU1/4
0x30a040…30a1d4 (1, 785) Opaque[0x194]
0x30a1d4…30a368 # DirEnt {nam=»DVTT2 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e90, f03=0x0000}
0x30a1d4…30a368 IdxSect {
0x30a1d4…30a368 f00 = 0x00f4 // 0x30a1d4 @0x0
0x30a1d4…30a368 f01 = 0x0002 // 0x30a1d6 @0x2
0x30a1d4…30a368 gno = [ // 0x30a1d8 @0x4
0x30a1d4…30a368 [0x00]: C0x00f4.0x2.0
0x30a1d4…30a368 ]
0x30a1d4…30a368 }
0x30a368…30a4fc Dummy {f00=0x00f4, f01=0x0190, f02=» 0 P IDENT DVTT2 REL 11.0 81-01-26 870105041100 P 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER @ P* x P ENTRY DVTT2 TABLE ENTRY P* P* * P EXTRN TPAD4 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND.
0x30a4fc…30a690 Dummy {f00=0x00f4, f01=0x0190, f02=» DATA 0 ECB ADDRESS P DATA DWTEND-DVTT2 ORDER ( P DATA TPAD4 POINTER TO ADDRESS BLOCK < P DATA 'TP' TTAB-ADDRESS h $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS
0x30a690…30a824 Dummy {f00=0x00f4, f01=0x0190, f02=» DATA 0,0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 8 $ P DATA /2222 CHANNEL PARAMETER 2 T $ P DATA 0 LINE DRIVER DEPENDENT 1 | $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 PRINTER PARAMETERS
0x30a824…30a9b8 Dummy {f00=0x00f4, f01=0x4008, f02=»@ 0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 8 $ P DATA /2222 CHANNEL PARAMETER 2 T $ P DATA 0 LINE DRIVER DEPENDENT 1 | $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 PRINTER PARAMETERS
0x30a9b8…30ab4c Dummy {f00=0x00f4, 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
0x30ab4c…30ace0 Dummy {f00=0x00f4, f01=0x0190, f02=» Z P* DEVICE INDEX VALUES : P***************************************************** & P* d 2 P EXTRN PC:DIX PROGRAMMED CHANNEL DEVICE INDEX n P* P* @ P*********************************************************** P* ECB DISPLA
0x30ace0…30ae74 (1, 786) Opaque[0x194]
0x30ae74…30b008 # DirEnt {nam=»DVTTN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e98, f03=0x0000}
0x30ae74…30b008 IdxSect {
0x30ae74…30b008 f00 = 0x00f4 // 0x30ae74 @0x0
0x30ae74…30b008 f01 = 0x0004 // 0x30ae76 @0x2
0x30ae74…30b008 gno = [ // 0x30ae78 @0x4
0x30ae74…30b008 [0x00]: C0x00f4.0x3.0
0x30ae74…30b008 [0x01]: C0x00f5.0x0.0
0x30ae74…30b008 ]
0x30ae74…30b008 }
0x30b008…30b19c Dummy {f00=0x00f4, f01=0x018e, f02=» 0 P IDENT DVTTN REL 11.0 81-01-26 870105041100 P 8 4 P* DEVICE WORK TABLE FOR TELLER NOTE DISPENSER @ P* x P ENTRY DVTTN TABLE ENTRY P* ( P EXTRN TNAD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 0 P* PDVTTN EQ
0x30b19c…30b330 Dummy {f00=0x00f4, f01=0x0190, f02=» z P DATA DWTEND-DVTTN ORDER ( P DATA TNAD POINTER TO ADDRESS-BLOCK ( P DATA 'TN' TTAB-ADDRESS T $ P DATA 0 WAIT/ACTIVATE INDICATOR t P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB M
0x30b330…30b4c4 Dummy {f00=0x00f4, f01=0x018e, f02=»A 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 4 P DATA 0 SAVE AREA FOR A8 T $ P DATA /2222 CHANNEL PARAMETER 2 t $ P DATA 0 LINE DRIVER DEPENDANT 1 $ P DATA 0 LINE DRIVER DEPENDANT 2 & P DATA /0002 TERMINAL DEVICE
0x30b4c4…30b658 Dummy {f00=0x00f4, f01=0x0190, f02=» 2 P DATA 0 DELAY-BUFFER (LAST HW-MESSAGE FROM ND) " P DATA 0 NOTE DISPENSER STATUS : & P DATA 0 STORE-CHECK TABLE POINTER ` * P DATA 0 NUMBER OF CHARACTERS RECEIVED P DATA 0 CASSETTE NUMBER & P DATA 0 TIMER POINTER DEVICE BUSY 6 P DATA
0x30b658…30b7ec Dummy {f00=0x00f4, f01=0x40d6, f02=»H / CHARACTER COUNTER n P RES 18 BUFFER AREA PBUFEND EQU * : P IFT MMUPAG=1 N PDEVECB EQU * d P DATA 0,0,0,0,0,0 x P XIF PDWTEND EQU * P* P* P END @ P DATA 0 TIMER POINTER DEVICE BUSY 6 P DATA
0x30b7ec…30b980 Dummy {f00=0x00f4, f01=0x2008, f02=» P RES 18 BUFFER AREA PBUFEND EQU * & P IFT MMUPAG=1 : PDEVECB EQU * P P DATA 0,0,0,0,0,0 d P XIF ~ PDWTEND EQU * P* P* P END @ P DATA 0 TIMER POINTER DEVICE BUSY 6 P DATA 0,0 LOGGAREA: OUTPUT
0x30b980…30bb14 (1, 787) Dummy {f00=0x00f5, f01=0x0190, f02=»* % P* & PX:G EQU 80 & PDVBLEN EQU X:G & & P* & < P EJECT & F P* & T P* & ^ $ P******************************** & h 6 P* DWT-DISPLACEMENTS RELATIVE DWTDEV * & $ P******************************** & P* & P* & P*
0x30bb14…30bca8 Dummy {f00=0x00f5, f01=0x0190, f02=» < PDWTCNC EQU DWTCN+1 CURRENT NEXT WRITE POS. COLUMN NUMBER ' P* ' D P* ' N 2 PDWTSN EQU 4 SAVED CURRENT NEXT WRITE POSITION ' X 0 P* AFTER PREVIOUS REQUEST OR AT /14 COMMAND ' : PDWTSNR EQU DWTSN SAVED NEXT WRITE POSITION ROW NUMBER ' : PDWTSNC E
0x30bca8…30be3c Dummy {f00=0x00f5, f01=0x0190, f02=» ' P* ( 0 P* USED BY SCREEN SECTION, DEVICE DRIVER PART ( P* ( F 8 PMAXROW EQU /1818 MAX NUMBER OF ROWS PER SCREEN IS 24 ( P < PMAXCOL EQU /5050 MAX NUMBER OF COLUMNS PER SCREEN IS 80 ( P* DWTDEV-BITS ( : PUNDBIT EQU /0400 UNDERLINE/NON-UNDERLI
0x30be3c…30bfd0 Dummy {f00=0x00f5, f01=0x0190, f02=»LUMN WRITTEN ( z : PLCPBIT EQU /20 LAST COLUMN WRITTEN BY PREVIOUS REQUEST ) P* ) R PSPACE EQU /20 SPACE ) " PPOINT EQU /2E POINT CHARACTER ) x P* ) * PCCERR EQU /4 STATUS: CODE CHECK ERROR ) & POPERR EQU /1 STATUS: NOT OPERABLE ) P* )
0x30bfd0…30c164 Dummy {f00=0x00f5, f01=0x0190, f02=»T BIT 11,12,13 (LINE DRIVER DEPENDANT) ) 2 POTRFLA EQU /0010 OTR-ACTION AT NEXT INTERRUPT * . 2 PHLTFLA EQU /0008 HALT-ACTION AT NEXT INTERRUPT * d 2 PSSTFLA EQU /0004 SST-ACTION AT NEXT INTERRUPT * P* * , PSMLCUR EQU /07FF SCREEN MEMORY LOCATION *
0x30c164…30c2f8 Dummy {f00=0x00f5, f01=0x0190, f02=»E DRIVER PART OF SCREEN SECTION * h 2 PCIOERR EQU /8000 ERROR: CIO START NOT ACCEPTED + ( , POTRERR EQU /4000 ERROR: OTR NOT ACCEPTED + ^ , PSSTERR EQU /2000 ERROR: SST NOT ACCEPTED + 6 PSSTER2 EQU /1000 ERROR: SST UNEXPECTEDLY ACCEPTED + P* (AFTER CIO S
0x30c2f8…30c48c Dummy {f00=0x00f5, f01=0x0190, f02=»ED BY PERIPHERAL SECTION: + P* , " P* , , < PQUETIM EQU 1 CWT PERIPHERAL OUTPUT QUEUE TIME-OUT VALUE , 6 P* (MULTIPLES OF 100MS) , v 4 PMAXTVU EQU 4 MAX NBR OF TERMINALS ON ANY VCCU1/4 , 0 PTCPON EQU /0001 RECOVERY CAUSE: TC POWER ON , > PPONPSW
0x30c48c…30c620 Dummy {f00=0x00f5, f01=0x0190, f02=»RMNR EQU /0300 MASK FOR BIO BITS : TERM.NBR WITHIN CHANNEL , < PDEVADR EQU /0400 MASK FOR BIO BIT: DEV.ADR. WITHIN TERM. - B : PINDATA EQU /00FF MASK FOR BIO DATA BITS IN INPUT WORD - P* - P EJECT - P* - P********** - P* TABLES * - P**
0x30c620…30c7b4 (1, 788) Opaque[0x194]
0x30c7b4…30c948 # DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ea8, f03=0x0000}
0x30c7b4…30c948 IdxSect {
0x30c7b4…30c948 f00 = 0x00f5 // 0x30c7b4 @0x0
0x30c7b4…30c948 f01 = 0x0002 // 0x30c7b6 @0x2
0x30c7b4…30c948 gno = [ // 0x30c7b8 @0x4
0x30c7b4…30c948 [0x00]: C0x00f5.0x1.0
0x30c7b4…30c948 ]
0x30c7b4…30c948 }
0x30c948…30cadc Dummy {f00=0x00f5, f01=0x0190, f02=» 0 P IDENT DVTTP REL 11.0 81-01-26 870105041100 P 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER @ P* x P ENTRY DVTTP TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND.
0x30cadc…30cc70 Dummy {f00=0x00f5, f01=0x0190, f02=»ATA 0 ECB ADDRESS P DATA DWTEND-DVTTP ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK : P DATA 'TP' TTAB-ADDRESS f $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS
0x30cc70…30ce04 Dummy {f00=0x00f5, f01=0x018e, f02=»ATA 0,0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 6 P DATA /2222 CHANNEL PARAM. 2 R $ P DATA 0 LINE DRIVER DEPENDENT 1 v $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 TIMER POINTER ( P D
0x30ce04…30cf98 Dummy {f00=0x00f5, f01=0x404c, f02=» | P XIF PDWTEND EQU * P* ( P* 2 P END <@ H 6 P DATA /2222 CHANNEL PARAM. 2 R $ P DATA 0 LINE DRIVER DEPENDENT 1 v $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 TIMER POINTER ( P D
0x30cf98…30d12c Dummy {f00=0x00f5, 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
0x30d12c…30d2c0 Dummy {f00=0x00f5, f01=0x0190, f02=»N=4 4 P IFF VUCHAN=5 5 P DATA CWTVU6 5 " P XIF 5 6 P IFF VUCHAN=1 5 B P IFF VUCHAN=2 5 X P IFF VUCHAN=3 5 n P IFF VUCHAN=4 5 P IFF VUCHAN=5 5 P IFF VUCHAN=6 5 P DATA CWTVU7 5 P XIF 5 P IFF VUCHAN=1 5 P IFF VUCHAN=
0x30d2c0…30d454 (1, 789) Opaque[0x194]
0x30d454…30d5e8 # DirEnt {nam=»DVTVU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1eb0, f03=0x0000}
0x30d454…30d5e8 IdxSect {
0x30d454…30d5e8 f00 = 0x00f5 // 0x30d454 @0x0
0x30d454…30d5e8 f01 = 0x0002 // 0x30d456 @0x2
0x30d454…30d5e8 gno = [ // 0x30d458 @0x4
0x30d454…30d5e8 [0x00]: C0x00f5.0x2.0
0x30d454…30d5e8 ]
0x30d454…30d5e8 }
0x30d5e8…30d77c Dummy {f00=0x00f5, f01=0x0190, f02=» 0 P IDENT DVTVU REL 11.0 81-01-26 870105041100 P 8 P* @ 2 P* DEVICE WORK TABLE FOR VIDEO DISPLAY PTS8041 J P* P ENTRY DVTVU TABLE ENTRY P* P* ( P EXTRN VUAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* P
0x30d77c…30d910 Dummy {f00=0x00f5, f01=0x0190, f02=»DRESS P DATA DWTEND-DVTVU ORDER ( P DATA VUAD POINTER TO ADDRESS-BLOCK . " P DATA /5655+/8000 TTAB-ADDRESS Z $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS D
0x30d910…30daa4 Dummy {f00=0x00f5, f01=0x018e, f02=» x P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK ( P DATA 0 SAVE AREA FOR A7 @ P DATA 0 SAVE AREA FOR A8 ` $ P DATA /2222 CHANNEL PARAMETER 2 $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 & P DATA /0100 TERM
0x30daa4…30dc38 Dummy {f00=0x00f5, f01=0x4074, f02=» P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF : PDWTEND EQU * F P* Z P END d@ pR A8 ` $ P DATA /2222 CHANNEL PARAMETER 2 $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 & P DATA /0100 TERM
0x30dc38…30ddcc Dummy {f00=0x00f5, 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
0x30ddcc…30df60 Dummy {f00=0x00f5, f01=0x0190, f02=»0 SST-READY DWT (SCREEN ONLY) < : P DATA INTVU2 ADDRESS TO POINTER TO WORK-STATION TABLE = & " P CIO A2,1,VU2 CIO START SCREEN = d ( P CIO A2,1,VU2+1 CIO START PERIPHERAL = P OTR A2,0,VU2 OTR SCREEN = " P OTR A2,0,VU2+1 OTR PERIPHERAL = " P CIO A2,0,VU
0x30df60…30e0f4 (1, 790) Opaque[0x194]
0x30e0f4…30e288 # DirEnt {nam=»DW0701«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1eb8, f03=0x0000}
0x30e0f4…30e288 IdxSect {
0x30e0f4…30e288 f00 = 0x00f5 // 0x30e0f4 @0x0
0x30e0f4…30e288 f01 = 0x0004 // 0x30e0f6 @0x2
0x30e0f4…30e288 gno = [ // 0x30e0f8 @0x4
0x30e0f4…30e288 [0x00]: C0x00f5.0x3.0
0x30e0f4…30e288 [0x01]: C0x00f6.0x0.0
0x30e0f4…30e288 ]
0x30e0f4…30e288 }
0x30e288…30e41c Dummy {f00=0x00f5, f01=0x0190, f02=» 0 P IDENT DW0701 REL 11.0 81-01-26 870105041100 P 8 P* @ : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 J P* P ENTRY DW0701 TABLE ENTRY * P EXTRN DC07AD POINTER TO ADDRESS-BLOCK P* J P****************************
0x30e41c…30e5b0 Dummy {f00=0x00f5, f01=0x0190, f02=»****************** P* P* ................... $ P* 0 . DWTCHP . F P* ................... h P* 2 . DWTST . P* ................... P* 4 . DWTECB . P* ..................
0x30e5b0…30e744 Dummy {f00=0x00f5, f01=0x0190, f02=». x P* 10 . DWTTAB . P* ................... , P* 12 . DWTWAT . N P* ................... p P* 14 . DWTTQ . P* ................... . P* (16). DWTUEC . IF MMUPAG=1 P
0x30e744…30e8d8 Dummy {f00=0x00f5, f01=0x018e, f02=»TSTB . ~ $ P* ................... P* +4 . DWTCHD . > P* ................... ` P* +6 . DWTCHN . P* ................... P* +8 . DWTLAD . P* ...................
0x30e8d8…30ea6c Dummy {f00=0x00f5, f01=0x0190, f02=» P* +14 . DWTRCL . P* ................... & P* +16 . DWTRTV . H P* ................... j P* +18 . DWTRTP . P* ................... P* +20 . DWTOPE . P* ................
0x30ea6c…30ec00 Dummy {f00=0x00f5, f01=0x0190, f02=»... z P* +26 . DWTIPT . P* ................... . P* +28 . . P P* / DRIVER DEPEND / r P* / / P* / / P* ................... 8 P* . STATI
0x30ec00…30ed94 (1, 791) Dummy {f00=0x00f6, f01=0x0190, f02=»QU 0 P* PDW0701 EQU * TABLE ENTRY P DATA 0 CHANNEL PARAMETER 6 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY X P DATA 0 ECB-ADDRESS P DATA DWTEND-DW0701 P RIGHT BYTE=ORDER * P DATA DC07AD POINTER TO ADDRESS-BLOCK
0x30ed94…30ef28 Dummy {f00=0x00f6, f01=0x018e, f02=» P DATA 0 USER ECB ADDRESS P DATA DC:ECB MMU ECB ADDRESS $ P XIF H P* T P DATA DSTATS-DW0701 DWTSTB ^ P DATA 0 DWTCHD P DATA 0 DWTCHN P DATA 0 DWTLAD P DATA 0 DWTRAD P DATA 0 DWTDR1 + DWTSUB P DATA 0 DWTRCL
0x30ef28…30f0bc Dummy {f00=0x00f6, f01=0x40e8, f02=» P EJECT P* P* STATISTICS BUFFER P* 8 PDSTATS RES 0 B P* V P IFT MMUPAG=1 ` PDC:ECB EQU * MMU ECB v P DATA 0,0,0,0,0,0,0 P XIF P* PDWTEND EQU * P END @ DWTSUB P DATA 0 DWTRCL
0x30f0bc…30f250 Dummy {f00=0x00f6, 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
0x30f250…30f3e4 Dummy {f00=0x00f6, f01=0x0190, f02=» J P********************************************************************** P IFT MUX=1 V . PCHLCUT EQU CHLCIN+/1 OUTPUT DEVICE ADDRESS j P XIF P IFT MUX=0 P IFF P6805=1 0 PCHLCUT EQU CHLCIN+/10 OUTPUT DEVICE ADDRESS P
0x30f3e4…30f578 Dummy {f00=0x00f6, f01=0x0190, f02=» 6 PRCVHDR EQU 6 RECEIVE BUFFER HEADER LENGTH IN BYTES PRCHDRW EQU 3 RCVHDR IN WORDS B * PRCVEL EQU 2 EL POS. IN RCV BFR HEADER f & PRCVTCA EQU 4 DISPLACEMENT FOR A+C 0 PBUFLEN EQU TBUFL+TBUFL BFR LENGTH IN CHARS. P EJECT * &********
0x30f578…30f70c Dummy {f00=0x00f6, f01=0x0190, f02=»************** x J P********************************************************************** P* d P* ECB n P* | J P********************************************************************** P* PECBFC EQU 0 FILE CODE WORD PECBBA EQ
0x30f70c…30f8a0 Dummy {f00=0x00f6, f01=0x0190, f02=» CODE ~ PECBCW EQU 10 CONTROL WORD $ ECBCW1 EQU ECBCW CONTROL WORD 1 0 ECBCW2 EQU 12 CONTROL WORD 2 X P EJECT | J P********************************************************************** P* P* DWT LAYOUT P* J P********
0x30f8a0…30fa34 (1, 792) Opaque[0x194]
0x30fa34…30fbc8 # DirEnt {nam=»DW1301«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ec8, f03=0x0000}
0x30fa34…30fbc8 IdxSect {
0x30fa34…30fbc8 f00 = 0x00f6 // 0x30fa34 @0x0
0x30fa34…30fbc8 f01 = 0x0002 // 0x30fa36 @0x2
0x30fa34…30fbc8 gno = [ // 0x30fa38 @0x4
0x30fa34…30fbc8 [0x00]: C0x00f6.0x1.0
0x30fa34…30fbc8 ]
0x30fa34…30fbc8 }
0x30fbc8…30fd5c Dummy {f00=0x00f6, f01=0x0190, f02=» 2 P IDENT DW1301 REL 11.0 81-01-26 870105041100 P : P* B : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 L P* P ENTRY DW1301 TABLE ENTRY * P EXTRN DC13AD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 0 P*
0x30fd5c…30fef0 Dummy {f00=0x00f6, f01=0x0190, f02=»DRESS P DATA DWTEND-DW1301 P RIGHT BYTE=ORDER * * P DATA DC13AD POINTER TO ADDRESS-BLOCK F P DATA 'DC' TTAB-ADDRESS t $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P* P IFT MMUPAG=1 P DATA 0 USER E
0x30fef0…310084 Dummy {f00=0x00f6, f01=0x412a, f02=»ATA 0 STATUS QUEUE P DATA 0 RECEIVE QUEUE " P DATA 0 REQUEST TIMEOUT VALUE 8 P DATA 0 REQUEST VECTOR ^ P DATA 0 RETRY COUNTER | P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P* PDW
0x310084…310218 Dummy {f00=0x00f6, f01=0x2008, f02=» ATUS QUEUE P DATA 0 RECEIVE QUEUE " P DATA 0 REQUEST TIMEOUT VALUE 8 P DATA 0 REQUEST VECTOR ^ P DATA 0 RETRY COUNTER | P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P* PDW
0x310218…3103ac Dummy {f00=0x00f6, f01=0x0190, f02=»DDRESS TO POINTER TO WORK-STATION TABLE K " P CIO A2,1,VU6 CIO START SCREEN L 0 ( P CIO A2,1,VU6+1 CIO START PERIPHERAL L V P OTR A2,0,VU6 OTR SCREEN L " P OTR A2,0,VU6+1 OTR PERIPHERAL L " P CIO A2,0,VU6 CIO HALT SCREEN L ( P CIO A2,0,VU6+1 CIO HALT P
0x3103ac…310540 Dummy {f00=0x00f6, f01=0x0190, f02=»WER1 (SCREEN ONLY, IOP ONLY) L 2 P WER A2,VU6+VU6+1 WER2 (SCREEN ONLY, IOP ONLY) M $ 0 P RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) M Z 4 P DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY) M P XIF M P IFF VUCHAN=1 M P IFF VUCHAN=2 M P IFF VUCHA
0x310540…3106d4 (1, 793) Opaque[0x194]
0x3106d4…310868 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ed0, f03=0x0000}
0x3106d4…310868 IdxSect {
0x3106d4…310868 f00 = 0x00f6 // 0x3106d4 @0x0
0x3106d4…310868 f01 = 0x0002 // 0x3106d6 @0x2
0x3106d4…310868 gno = [ // 0x3106d8 @0x4
0x3106d4…310868 [0x00]: C0x00f6.0x2.0
0x3106d4…310868 ]
0x3106d4…310868 }
0x310868…3109fc Dummy {f00=0x00f6, 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
0x3109fc…310b90 Dummy {f00=0x00f6, 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
0x310b90…310d24 Dummy {f00=0x00f6, 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
0x310d24…310eb8 Dummy {f00=0x00f6, 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
0x310eb8…31104c Dummy {f00=0x00f6, 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
0x31104c…3111e0 Dummy {f00=0x00f6, 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
0x3111e0…311374 (1, 794) Opaque[0x194]
0x311374…311508 # DirEnt {nam=»DW2201«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ed8, f03=0x0000}
0x311374…311508 IdxSect {
0x311374…311508 f00 = 0x00f6 // 0x311374 @0x0
0x311374…311508 f01 = 0x0004 // 0x311376 @0x2
0x311374…311508 gno = [ // 0x311378 @0x4
0x311374…311508 [0x00]: C0x00f6.0x3.0
0x311374…311508 [0x01]: C0x00f7.0x0.0
0x311374…311508 ]
0x311374…311508 }
0x311508…31169c Dummy {f00=0x00f6, f01=0x0190, f02=» 0 P IDENT DW2201 REL 11.0 81-01-26 870105041100 P 8 P* @ : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 J P* P ENTRY DW2201 TABLE ENTRY * P EXTRN DC22AD POINTER TO ADDRESS-BLOCK P* J P****************************
0x31169c…311830 Dummy {f00=0x00f6, f01=0x0190, f02=»****************** P* P* ................... $ P* 0 . DWTCHP . F P* ................... h P* 2 . DWTST . P* ................... P* 4 . DWTECB . P* ..................
0x311830…3119c4 Dummy {f00=0x00f6, f01=0x0190, f02=». x P* 10 . DWTTAB . P* ................... , P* 12 . DWTWAT . N P* ................... p P* 14 . DWTTQ . P* ................... . P* (16). DWTUEC . IF MMUPAG=1 P
0x3119c4…311b58 Dummy {f00=0x00f6, f01=0x018e, f02=»TSTB . ~ $ P* ................... P* +4 . DWTCHD . > P* ................... ` P* +6 . DWTCHN . P* ................... P* +8 . DWTLAD . P* ...................
0x311b58…311cec Dummy {f00=0x00f6, f01=0x0190, f02=» P* +14 . DWTRCL . P* ................... & P* +16 . DWTRTV . H P* ................... j P* +18 . DWTRTP . P* ................... P* +20 . DWTOPE . P* ................
0x311cec…311e80 Dummy {f00=0x00f6, f01=0x0190, f02=»... z P* +26 . DWTIPT . P* ................... . P* +28 . . P P* / DRIVER DEPEND / r P* / / P* / / P* ................... 8 P* . STATI
0x311e80…312014 (1, 795) Dummy {f00=0x00f7, f01=0x0190, f02=»QU 0 P* PDW2201 EQU * TABLE ENTRY P DATA 0 CHANNEL PARAMETER 6 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY X P DATA 0 ECB-ADDRESS P DATA DWTEND-DW2201 P RIGHT BYTE=ORDER * P DATA DC22AD POINTER TO ADDRESS-BLOCK
0x312014…3121a8 Dummy {f00=0x00f7, f01=0x018e, f02=» P DATA 0 USER ECB ADDRESS P DATA DC:ECB MMU ECB ADDRESS $ P XIF H P* T P DATA DSTATS-DW2201 DWTSTB ^ P DATA 0 DWTCHD P DATA 0 DWTCHN P DATA 0 DWTLAD P DATA 0 DWTRAD P DATA 0 DWTDR1 + DWTSUB P DATA 0 DWTRCL
0x3121a8…31233c Dummy {f00=0x00f7, f01=0x4152, f02=» P DATA 0 DWTDID P DATA 0 DWTPRT P DATA 0,0,0,0,0,0,0,0 DWTLST 4 P DATA 0 DWTSTA X P EJECT n P* | P* STATISTICS BUFFER P* PDSTATS RES 0 P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,
0x31233c…3124d0 Dummy {f00=0x00f7, 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
0x3124d0…312664 Dummy {f00=0x00f7, f01=0x0190, f02=» P* PX:J EQU 0 STATISTICS PSTAT EQU X:J * P* > P* MMU BUFFER LENGTH H P* d PX:K EQU 1000 n $ PTBUFL EQU X:K MMU BUFFER LENGTH P* P EJECT P* P* BUFFER SUPERVISION TIMER P* PBUFTIM EQU 0
0x312664…3127f8 Dummy {f00=0x00f7, f01=0x0190, f02=»ON f PBUFLEN EQU TBUFL+TBUFL P* ( P* 2 * P* INTERNAL SPECIAL CONDITIONAL PARAMS < P* j & PBFBUSY EQU 0 BUFFER BUSY HANDLING t P =0 STANDARD =1 AUX-TYPE $ PSBS EQU 0 SPARBANKEN STOCKHOLM " P =0 NO SBS CODE =1 SBS CODE
0x3127f8…31298c Dummy {f00=0x00f7, f01=0x0190, f02=»WHEN SBS = 1 ~ P* . P* - ONLY SID 50 AND 51 ACCEPTED $ P* V P* - RECEIVE TEXT: d @ P* THE 7TH CHAR AFTER STX ID USED AS TERMINAL ID P* " P* - TRANSMIT TEXT: " P*
0x31298c…312b20 Dummy {f00=0x00f7, f01=0x0190, f02=»ITUATIONS t P* @ P*********************************************************** " P XIF f P EJECT v N P************************************************************************** N P**************************************************
0x312b20…312cb4 (1, 796) Opaque[0x194]
0x312cb4…312e48 # DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ee8, f03=0x0000}
0x312cb4…312e48 IdxSect {
0x312cb4…312e48 f00 = 0x00f7 // 0x312cb4 @0x0
0x312cb4…312e48 f01 = 0x0002 // 0x312cb6 @0x2
0x312cb4…312e48 gno = [ // 0x312cb8 @0x4
0x312cb4…312e48 [0x00]: C0x00f7.0x1.0
0x312cb4…312e48 ]
0x312cb4…312e48 }
0x312e48…312fdc Dummy {f00=0x00f7, 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
0x312fdc…313170 Dummy {f00=0x00f7, 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
0x313170…313304 Dummy {f00=0x00f7, 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
0x313304…313498 Dummy {f00=0x00f7, 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
0x313498…31362c Dummy {f00=0x00f7, 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.
0x31362c…3137c0 Dummy {f00=0x00f7, 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
0x3137c0…313954 (1, 797) Opaque[0x194]
0x313954…313ae8 # DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ef0, f03=0x0000}
0x313954…313ae8 IdxSect {
0x313954…313ae8 f00 = 0x00f7 // 0x313954 @0x0
0x313954…313ae8 f01 = 0x0002 // 0x313956 @0x2
0x313954…313ae8 gno = [ // 0x313958 @0x4
0x313954…313ae8 [0x00]: C0x00f7.0x2.0
0x313954…313ae8 ]
0x313954…313ae8 }
0x313ae8…313c7c Dummy {f00=0x00f7, 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
0x313c7c…313e10 Dummy {f00=0x00f7, 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
0x313e10…313fa4 Dummy {f00=0x00f7, 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
0x313fa4…314138 Dummy {f00=0x00f7, 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
0x314138…3142cc Dummy {f00=0x00f7, f01=0x0190, f02=» A2,1 < COLUMN 1 ? (=COLUMN 'ZERO' ?) s P RF(NL) ACV330 NO t . , P LCK A2,/0101 YES. SET COLUMN 1 INSTEAD t H P RF ACV340 t x PACV330 EQU * t 4 P CCK A2,MAXCOL EXCEEDING MAX NUMBER OF COLUMNS ? t P RF(NG) ACV340 NO t 0 P LCK A2,MAXCOL YES. SET
0x3142cc…314460 Dummy {f00=0x00f7, f01=0x0190, f02=»MBERS t l : P ST A2,DWTCN+DWTDEV,A6 SET CURRENT NEXT WRITE POSITION u 4 P ABL ACV140 GO RESET BIT 9 IN DWTDEV, DO STAWRI. u L P EJECT u P* u * P* ORDER /06, COMMAND /14 (FAST OUTPUT) u P* u PACV350 EQU * u 2 P CF A15,SAVCN SAVE CURRENT NEXT
0x314460…3145f4 (1, 798) Opaque[0x194]
0x3145f4…314788 # DirEnt {nam=»DWL301«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ef8, f03=0x0000}
0x3145f4…314788 IdxSect {
0x3145f4…314788 f00 = 0x00f7 // 0x3145f4 @0x0
0x3145f4…314788 f01 = 0x0004 // 0x3145f6 @0x2
0x3145f4…314788 gno = [ // 0x3145f8 @0x4
0x3145f4…314788 [0x00]: C0x00f7.0x3.0
0x3145f4…314788 [0x01]: C0x00f8.0x0.0
0x3145f4…314788 ]
0x3145f4…314788 }
0x314788…31491c Dummy {f00=0x00f7, f01=0x0190, f02=» 0 P IDENT DWL301 REL 11.0 81-01-26 870105041100 * 8 4 0************************************************ B * z $ * PHILIPS TERMINAL SYSTEM , PTS * 8 P* X25-DWT : MODULE CONTAINING DWT USED TO ESTABLISH 4 0* VIRTUAL CI
0x31491c…314ab0 Dummy {f00=0x00f7, f01=0x018e, f02=»* EJECT * 4 0************************************************ " * Z * E N T R I E S d * | 4 0************************************************ * P ENTRY DWL301 * 4 0********************************
0x314ab0…314c44 Dummy {f00=0x00f7, f01=0x0190, f02=» 6 2 EXTRN DRX25 ACTIVATION ADDRESS OF THE X25 PACKAGE & ! EXTRN REQTIM REQUEST TIMER VALUE > * h 4 P************************************************ r P* & P* CONDITIONAL ASSEMBLY PARAMETERS P* 4 P********************************
0x314c44…314dd8 Dummy {f00=0x00f7, f01=0x0190, f02=»************ l * $ P* DWT USED FOR VIRTUAL CIRCUITS * F 4 /*********************************************** P * P DATA 0 CHAIN POINTER PDWL301 EQU * . ) DATA 'VC' VIRTUAL CIRCUIT IDENTIFICATION DATA /8000 DEVICE
0x314dd8…314f6c Dummy {f00=0x00f7, f01=0x0190, f02=»DDRESS $ DATA 0 WAIT/ACTIVATE INDICATOR DATA 0 TERMINAL QUEUE 6 IFT MMUPAG=1 T DATA 0 USER ECB ADDRESS j P DATA L3:ECB MMU ECB ADDRESS XIF 4 P DATA 0 OFFSET REL START DWT TO STATISTIC BUFFER & " DATA 0 CONFIG CHAIN L
0x314f6c…315100 Dummy {f00=0x00f7, f01=0x0190, f02=»ESS p & " DATA 0 WRITE OPTION AND LC-NUMBER ( # DATA 0 FUNCTION CODE AND DWT STATE 6 $ DATA REQTIM REQUEST TIMER VALUE b " DATA 0 REQUEST TIMER POINTER DATA 0 RETURN INFORMATION 0 P DATA 0 CAUSE AND DIAGNOSTIC CODE FOR RESET 0 P D
0x315100…315294 (1, 799) Dummy {f00=0x00f8, f01=0x4066, f02=» PL3:ECB EQU * P DATA 0,0,0,0,0,0,0,0 P XIF 6 PDWTEND EQU * B END V@ b
0x315294…315428 Dummy {f00=0x00f8, f01=0x2008, f02=» TE-ADDRESS ( # DATA 0 REMOTE SYMBOLIC DTE-ADDRESS & " DATA 0 WRITE OPTION AND LC-NUMBER F ( # DATA 0 FUNCTION CODE AND DWT STATE p $ DATA REQTIM REQUEST TIMER VALUE " DATA 0 REQUEST TIMER POINTER DATA 0 RETURN INFORMATION
0x315428…3155bc Dummy {f00=0x00f8, f01=0x0190, f02=» f , ( E _: T " B _ > , ( B e Y &W Y " Y 8 , ( $ 0 P Y " % R P h , ( @ Y " # P " T , ( " P V W , B , ( % T
0x3155bc…315750 Dummy {f00=0x00f8, f01=0x0190, f02=» I % = , ( e R T A A X R X ( , ( P Y (@ @ @ : X DWTTAB MOVSU , ( " ; X L M X , ( @ : : A A A " A $ A & A ,
0x315750…3158e4 Dummy {f00=0x00f8, f01=0x0190, f02=» j , ( 7 _$ R R , ( W $ W W W W W W : , ( w W W W W W " ^: R j ECBFC , ( # S S S S @ * & H M " M Y " C , (
0x3158e4…315a78 Dummy {f00=0x00f8, f01=0x0190, f02=» X. x , ( + JR _8 S ( R C " , ( I C R C ( H , ( e Y, I I I I x , ( S X S , ( S B $ , (
0x315a78…315c0c Dummy {f00=0x00f8, f01=0x0190, f02=» h , ( T X P Y X R P X , ( ; W XV r_ X " ( 8 , ( [ : L ) S B h , ( y 0 0 Y B P r , ( @ X ! T X RS R R , ( $
0x315c0c…315da0 Dummy {f00=0x00f8, f01=0x0190, f02=»_4 W 6_@ V ! P W _L , ( 3 W T _V X W _r ( , ( S W tW W W W X , ( s W V W , ( @ % @ L P _ DWTCHP * & @ C
0x315da0…315f34 (1, 800) Opaque[0x194]
0x315f34…3160c8 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f08, f03=0x0000}
0x315f34…3160c8 IdxSect {
0x315f34…3160c8 f00 = 0x00f8 // 0x315f34 @0x0
0x315f34…3160c8 f01 = 0x0004 // 0x315f36 @0x2
0x315f34…3160c8 gno = [ // 0x315f38 @0x4
0x315f34…3160c8 [0x00]: C0x00f8.0x1.0
0x315f34…3160c8 [0x01]: C0x00f8.0x2.0
0x315f34…3160c8 ]
0x315f34…3160c8 }
0x3160c8…31625c Dummy {f00=0x00f8, f01=0x0190, f02=» 2 P IDENT EBCDIC REL 11.0 81-01-26 870105041100 P : P* B 4 P************************************************ L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x31625c…3163f0 Dummy {f00=0x00f8, f01=0x0190, f02=» P* P* . P* CONDITIONAL ASSEMBLY (SEE ALSO DRDC15) P* J 2 PX:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15) T PCODE EQU X:A 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P EJECT P* P*
0x3163f0…316584 Dummy {f00=0x00f8, f01=0x0190, f02=»/0009,/0000 00-07 ~ ( P DATA /0000,/0000,/0C00,/0000 08-0F ( P DATA /1011,/1213,/000A,/0000 10-17 F ( P DATA /0019,/0000,/1C1D,/1E1F 18-1F r ( P DATA /0000,/0000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F ( P DATA /0000,/1600,
0x316584…316718 Dummy {f00=0x00f8, f01=0x0190, f02=»8,/2B21 48-4F z ( P DATA /264A,/4B4C,/4D4E,/4F50 50-57 ( P DATA /5152,/5D24,/2A29,/3B5E 58-5F B ( P DATA /2D2F,/5354,/5556,/5758 60-67 n ( P DATA /595A,/7C2C,/255F,/3E3F 68-6F ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3839,/3A23,/402
0x316718…3168ac Dummy {f00=0x00f8, f01=0x0190, f02=»F70 90-97 v ( P DATA /7172,/5D24,/2A29,/3B5E 98-9F ( P DATA /2D2F,/7374,/7576,/7778 A0-A7 > ( P DATA /797A,/7C2C,/255F,/3E3F A8-AF j ( P DATA /3031,/3233,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4
0x3168ac…316a40 Dummy {f00=0x00f8, 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
0x316a40…316bd4 (1, 801) Dummy {f00=0x00f8, f01=0x0190, f02=» DATA /0005,/1500,/0C00,/0000 08-0F ( P DATA /1011,/1213,/3C3D,/3226 10-17 , ( P DATA /7019,/3F27,/1C1D,/1E1F 18-1F X ( P DATA /404F,/7F7B,/5B6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 ( P
0x316bd4…316d68 Dummy {f00=0x00f8, f01=0x4158, f02=»A /D7D8,/D9E2,/E3E4,/E5E6 50-57 ( P DATA /E7E8,/E94A,/005A,/5F6D 58-5F ( ( P DATA /0081,/8283,/8485,/8687 60-67 T ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/6A00,/0000 78-7F 4 P DAT
0x316d68…316efc Dummy {f00=0x00f8, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x316efc…317090 Dummy {f00=0x00f8, f01=0x0190, f02=»EN NO RUBOUT ! z P ANK A2,LCWBIT BIT 9 SET ? < P RF(NZ) ECV140 YES.LAST COLUMN WRITTEN (DURING REQUEST) 8 > P LD A4,DWTSN+DWTDEV,A6 GET NEXT WRITE POSITION SAVED AFTER x P* PREVIOUS REQUEST : P CW A4,DWTCN+DWTDEV,A6 = CURRENT NEXT WRITE POSITI
0x317090…317224 Dummy {f00=0x00f8, f01=0x0190, f02=» P RF ECV150 PECV140 EQU * B P XRS A2,DWTDEV,A6 RESET BIT 9 (LAST COLUMN NO LONGER WRITTEN) * PECV150 EQU * p 2 P LDK A2,SPACE RUBOUT PREVIOUS (OR LAST) COLUMN , P CF A5,ECHOUT OUTPUT ONE SPACE TO RUBOUT P RB ECV100 GO SET CURSOR
0x317224…3173b8 Dummy {f00=0x00f8, f01=0x0190, f02=»O INTO A2 6 P ANK A4,LCPBIT BIT 10 SET ? (=LAST COLUMN WRITTEN $ P* ALREADY BY PREVIOUS REQUEST) L ( P RB(NZ) ECV120 YES. THEN NO RUBOUT ! t P* P* PREPARE THE RUBOUT P* : P LD A3,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION
0x3173b8…31754c Dummy {f00=0x00f8, f01=0x018e, f02=» (=LAST COLUMN WRITTEN, v P* DURING REQUEST !) P RF(Z) ECV170 NO > 4 P ADK A3,1 YES. MODIFY TO RUBOUT ALSO LAST COLUMN V PECV170 EQU * 0 P ADK A3,0 ANY ECHOED CHARACTERS TO RUBOUT ? P RB(Z) ECV120 NO P* P* DO THE RUBOUT
0x31754c…3176e0 Dummy {f00=0x00f8, f01=0x0190, f02=» P RF(NZ) DEVERR STATUS NOT OK PECV180 EQU * ( . P LDK A2,SPACE GET SPACE TO DO RUBOUT WITH < P CF A5,OUTCHA OUTPUT IT n P RF(NZ) DEVERR STATUS NOT OK ( P SUK A3,1 ONE MORE CHAR TO RUBOUT ? P RB(NZ) ECV180 YES ( P CF A5,ENDWRI EN
0x3176e0…317874 (1, 802) Opaque[0x194]
0x317874…317a08 # DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f18, f03=0x0000}
0x317874…317a08 IdxSect {
0x317874…317a08 f00 = 0x00f8 // 0x317874 @0x0
0x317874…317a08 f01 = 0x0028 // 0x317876 @0x2
0x317874…317a08 gno = [ // 0x317878 @0x4
0x317874…317a08 [0x00]: C0x00f8.0x3.0
0x317874…317a08 [0x01]: C0x00f9.0x0.0
0x317874…317a08 [0x02]: C0x00f9.0x1.0
0x317874…317a08 [0x03]: C0x00f9.0x2.0
0x317874…317a08 [0x04]: C0x00f9.0x3.0
0x317874…317a08 [0x05]: C0x00fa.0x0.0
0x317874…317a08 [0x06]: C0x00fa.0x1.0
0x317874…317a08 [0x07]: C0x00fa.0x2.0
0x317874…317a08 [0x08]: C0x00fa.0x3.0
0x317874…317a08 [0x09]: C0x00fb.0x0.0
0x317874…317a08 [0x0a]: C0x00fb.0x1.0
0x317874…317a08 [0x0b]: C0x00fb.0x2.0
0x317874…317a08 [0x0c]: C0x00fb.0x3.0
0x317874…317a08 [0x0d]: C0x00fc.0x0.0
0x317874…317a08 [0x0e]: C0x00fc.0x1.0
0x317874…317a08 [0x0f]: C0x00fc.0x2.0
0x317874…317a08 [0x10]: C0x00fc.0x3.0
0x317874…317a08 [0x11]: C0x00fd.0x0.0
0x317874…317a08 [0x12]: C0x00fd.0x1.0
0x317874…317a08 [0x13]: C0x00fd.0x2.0
0x317874…317a08 ]
0x317874…317a08 }
0x317a08…317b9c Dummy {f00=0x00f8, f01=0x0190, f02=» 2 P IDENT FMTASK REL 11.0 81-05-13 870105041100 P : 0 P =7, FDBMEC NOT SET IN SYSTEMS WITHOUT DM B P =7, REL 11.0 81-02-04 v $ P =6,EDM INITIALIZATION 3 DISCS P =6, REL 11.0 81-02-03 P =5, ADM INITIALIZATION P REL 1
0x317b9c…317d30 Dummy {f00=0x00f8, f01=0x0190, f02=»ING j P PRR 11.0 80-11-20 CHLO , P =2, EDM INITIALIZATION ALLWAYS HALTED 0 P PRR 11.0 80-11-19 CHLO ` " P =1, HALT IF TTAB NOT FOUND P PRR 11.0 80-11-19 POHO P* P* 6 P**************************************
0x317d30…317ec4 Dummy {f00=0x00f8, f01=0x0190, f02=» * j P* P* P* ( P* 2 6 P************************************************** < P* v P* . P* TOSS FILE MANAGEMENT TASK CONTAINS THE . P* FOLLOWING FILE ADMINISTRATION MODULES: P* P* - FMOPEN O
0x317ec4…318058 Dummy {f00=0x00f8, f01=0x0190, f02=» P* 0 P* FMTASK ALSO CONTAINS THE FILE MANAGEMENT . P* SYSTEM INITIALIZATION ROUTINE, FMINIT. B : P* FMINIT ALSO HOLDS THE EDM INITIALIZATION ROUTINE. t P* P* P EJECT FMTASK P* P* P*********** P*
0x318058…3181ec Dummy {f00=0x00f8, f01=0x0190, f02=»END) ` 2 P ENTRY DLCLO1 CLOSE FILE (CALLED FROM DELETE) 2 P ENTRY DLCLO2 CLOSE FILE (CALLED FROM DELETE) B , P ENTRY FMTASK FMTASK ACTIVATION ADDRESS x 0 P ENTRY FMINIT FILE MANAGEMENT INITIALIZATION 2 P ENTRY FMREAD FMTASK READ DISC SECTOR ROUTIN
0x3181ec…318380 Dummy {f00=0x00f8, f01=0x0190, f02=» . P ENTRY FMEXIT FMTASK SET RETURN CODE EXIT * P ENTRY FM:INE FMTASK ILLEGAL NAME EXIT 6 , P ENTRY FM:RQE FMTASK REQUEST ERROR EXIT d 6 P ENTRY FNDNAM FIND VOLUME NAME ADDRESS IN DISC DWT . P ENTRY FNDVTC FIND ONE FILE EXTENT (VTOC) " P ENTRY F
0x318380…318514 (1, 803) Dummy {f00=0x00f9, f01=0x0190, f02=»CTERS v $ P ENTRY FM:MV8 MOVE 8 CHARACTERS " P ENTRY CMPSTR COMPARE STRINGS 6 * P ENTRY CMPDWD COMPARE TWO DOUBLE WORDS " P ENTRY FILCOD FILE CODE TABLE 2 P ENTRY VOLUME CURRENT VOLUME FILE CODE POINTER , P ENTRY FM:BUF FMTASK DISC SECTOR B
0x318514…3186a8 Dummy {f00=0x00f9, f01=0x0190, f02=»JECT FMTASK P* 4 P ENTRY FWTVTC VTOC SECTOR NUMBER (FIRST EXTENT) ( P ENTRY FWTPAR FILE ACCESS PARAMETERS X P ENTRY FWTFNR FILE NUMBER 6 P ENTRY FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS 2 P ENTRY FWTEW1 POINTER TO 2ND EWT BLOCK I
0x3186a8…31883c Dummy {f00=0x00f9, f01=0x0190, f02=»RY FWTQUE QUEUE ANCHOR FOR FILE I/O REQUESTS 0 P ENTRY FWTSEX FILE SECTION AND EXTENT NUMBER 4 P ENTRY FPB:RL RECORD LENGTH h P ENTRY FPB:BF BLOCK FACTOR $ P ENTRY FPB:FO FILE ORGANIZATION P ENTRY FPB:DT DEVICE TYPE =1 P ENTRY FPB:BO
0x31883c…3189d0 Dummy {f00=0x00f9, f01=0x0190, f02=»ME NAME 1 ~ P ENTRY FPB:S1 SIZE 1 P ENTRY FPB:V2 VOLUME NAME 2 . P ENTRY FPB:S2 SIZE 2 R P ENTRY FPB:V3 VOLUME NAME 3 n P ENTRY FPB:S3 SIZE 3 P ENTRY FPB:V4 VOLUME NAME 4 P ENTRY FPB:S4 SIZE 4 $ P ENTRY FPB:FR FILE RECORD
0x3189d0…318b64 Dummy {f00=0x00f9, f01=0x0190, f02=»SOP SWITCH NUMBER ( P ENTRY FPB:IF NUMBER OF INDEX FILES ( P ENTRY FPB:KA KEY ADDRESS IN RECORD F P ENTRY FPB:CD CREATION DATE r " P ENTRY FPB:RP RETENTION PERIOD P EJECT FMTASK P* P* P ENTRY EWTEXL EXTENT LENGTH
0x318b64…318cf8 Dummy {f00=0x00f9, f01=0x0190, f02=»OL:VN VOLUME NAME $ P ENTRY VOL:EL VTOC EXTENT LENGTH " P ENTRY VOL:EB VTOC EXTENT BASE B $ P ENTRY VOL:RL VTOC RECORD LENGTH h P ENTRY VOL:FS FSAT LENGTH $ P ENTRY VTOCRL VTOC RECORD LENGTH $ P ENTRY VTOCBF VTOC BLOCK FACTOR P ENTRY
0x318cf8…318e8c Dummy {f00=0x00f9, f01=0x0190, f02=»SOP SWITCH NUMBER $ P ENTRY VTC:EN FILE EXTENT NUMBER $ P ENTRY VTC:EL FILE EXTENT LENGTH B " P ENTRY VTC:EB FILE EXTENT BASE j $ P ENTRY VTC:LR LAST RECORD NUMBER P ENTRY VTC:RL RECORD LENGTH P ENTRY VTC:BF BLOCK FACTOR $ P ENTRY VTC
0x318e8c…319020 Dummy {f00=0x00f9, f01=0x0190, f02=»LES p ( P ENTRY VTC:KA KEY ADDRESS IN RECORD $ P ENTRY VTC:NE NO OF FILE EXTENTS 8 P ENTRY VTC:ST STATUS BYTE ` P EJECT FMTASK P* P* P************* P* EXTERNALS * P************* P* P* P EXT
0x319020…3191b4 (1, 804) Dummy {f00=0x00f9, f01=0x0190, f02=»T MONITOR TASK p 4 P EXTRN GETBLK STORE PARAMETERS IN MONITOR BLOCK 4 P EXTRN FREBLK GET PARAMETERS FROM MONITOR BLOCK N 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID . P EXTRN FINDTT FIND DATA MANAGEMENT TASK =1 ( P EXTRN FNDDWD FIND DISC DWT
0x3191b4…319348 Dummy {f00=0x00f9, f01=0x0190, f02=»TO PHYSICAL j ( P EXTRN DET:FM FILE MANAGEMENT DETACH : P EXTRN FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS @ $ P EXTRN TIODM (E)DM ADDRESS BLOCK ~ . P EXTRN SEXTNO START EXTENT NUMBER (EXTEND) & P EXTRN DFTAB DISC FILE CODE TABLE P EXTRN
0x319348…3194dc Dummy {f00=0x00f9, f01=0x0190, f02=»TABLE LENGTH x ( P EXTRN SCTDMT (E)DM TASKS IN SYSTEM 0 P EXTRN SCTMOX DISPATCH ADDRESS TABLE POINTER @ & P EXTRN DWDM01 (E)DM SYSTEM DWT/FWT t P EXTRN NVLTAB NVL TABLE P EXTRN NVLEND END OF NVLTAB P EXTRN NVLBIT NVL BIT MASK P EJE
0x3194dc…319670 Dummy {f00=0x00f9, f01=0x0190, f02=»ECB ADDRESS ~ P EXTRN DWTVOL VOLUME NAME P EXTRN DWTNVL NVL INDICATOR 6 * P EXTRN DWTPAB PARAMETER BLOCK ADDRESS Z 2 P EXTRN FDBMEC FDB MMU ECB DISPLACEMENT IN FWT P EXTRN TTB:MT MMU TABLE " P EXTRN TTB:SA DISPATCH ADDRESS P EXT
0x319670…319804 Dummy {f00=0x00f9, f01=0x0190, f02=» REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE D P EXTRN ECBCW1 CONTROL WORD 1 h P EXTRN ECBCW2 CONTROL WORD 2 P EXTRN HALT P EJECT FMTASK P* P* , P************************
0x319804…319998 Dummy {f00=0x00f9, f01=0x018e, f02=»PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. . P* PMMUPAG EQU 0 f P* z P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU8
0x319998…319b2c Dummy {f00=0x00f9, f01=0x0190, f02=» PDSKPAG EQU 0 P* P* & 4 P* A PROGRAM VERSION INCLUDING CREATE/DELETE FILE 0 0 P* IS OBTAINED BY SETTING FMCDEF (X:A) EQU 1. h P* PX:A EQU 0 PFMCDEF EQU X:A P* P EJECT FMTASK P* P* 2 P* A
0x319b2c…319cc0 Dummy {f00=0x00f9, f01=0x018e, f02=»B P* P* < P* A PROGRAM VERSION SUPPORTING EXTENDED DATA MANAGEMENT . P* IS OBTAINED BY SETTING EDM (X:C) EQU 1. ^ P* PX:C EQU 0 PEDM EQU X:C P* P* > P* A PROGRAM VERSION SUPPORTING ABRIDGED DATA MANAGEM
0x319cc0…319e54 (1, 805) Dummy {f00=0x00f9, f01=0x0190, f02=» " P* COMBINED CONDITION ADMEDM =5 P IFF ADM+EDM=0 =5 * PADMEDM EQU 1 =5 D P XIF =5 P IFT ADM+EDM=0 =5 l PADMEDM EQU 0 =5 P XIF =5 P* P EJECT FMTASK P* P* & P* THE ATTACH/DETACH FILE FUNCTION
0x319e54…319fe8 Dummy {f00=0x00f9, f01=0x0190, f02=»IPLE EXTENT I/O FUNCTION * P* IS OBTAINED BY SETTING MULEXT EQU 1. P* N PMULEXT EQU 1 X PX:F EQU MULEXT l P* P EJECT FMTASK P* P* P******************** P* VL DISPLACEMENTS * P********************
0x319fe8…31a17c Dummy {f00=0x00f9, f01=0x0190, f02=»EB EQU 10 VTOC EXTENT BASE $ PVOL:RL EQU 12 VTOC RECORD LENGTH " PVOL:FS EQU 46 FSAT LENGTH J P* l P* v P****************** P* VTOC CONSTANTS * P****************** P* P* $ PVTOCRL EQU 42 VTOC RECORD LENGTH "
0x31a17c…31a310 Dummy {f00=0x00f9, f01=0x0190, f02=»ACEMENTS * P********************** P* 0 , P* VOLUME TABLE OF CONTENTS DISPLACEMENTS : P* j PVTC:FN EQU 0 FILE NAME t ( PVTC:MN EQU 8 MONITOR NUMBER (L-FILE) . PVTC:FS EQU 8 FILE SECTION NUMBER (S-FILE) " PVTC:SN EQU 9 SOP SWITCH
0x31a310…31a4a4 Dummy {f00=0x00f9, f01=0x0190, f02=»LR EQU 20 LAST RECORD NUMBER PVTC:RL EQU 24 RECORD LENGTH $ PVTC:BF EQU 26 BLOCK FACTOR H $ PVTC:FO EQU 27 FILE ORGANIZATION j PVTC:CD EQU 28 CREATION DATE " PVTC:RP EQU 34 RETENTION PERIOD ( PVTC:IF EQU 37 NUMBER OF INDEX FILES ( P
0x31a4a4…31a638 Dummy {f00=0x00f9, f01=0x0190, f02=» FMTASK P* P* P********************* $ P* FWT DISPLACEMENTS * B P********************* ` P* ~ $ P* FILE WORK TABLE DISPLACEMENTS P* PFWTLNK EQU /00 LINK NEXT FWT P* P IFT MMUPAG=0 PFWTBAS EQU
0x31a638…31a7cc Dummy {f00=0x00f9, f01=0x0190, f02=»0 VTOC SECTOR NUMBER (FIRST EXTENT) | 0 PFWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS , & PFWTFNR EQU FWTBAS+/03 FILE NUMBER ` > PFWTTAB EQU FWTBAS+/04 TTAB FOR TASK WITH EXCLUSIVE ACCESS : PFWTEW1 EQU FWTBAS+/06 POINTER TO 2ND EWT BLOCK IN FWT 4
0x31a7cc…31a960 Dummy {f00=0x00f9, f01=0x0190, f02=»QU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE : PFWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) 4 4 PFWTEXB EQU FWTBAS+/10 EXTENT BASE (FIRST EXTENT) r $ PFWTNAM EQU FWTBAS+/12 FILE NAME < PFWTQUE EQU FWTBAS+/1A QUEUE ANCHOR FOR FILE I/O REQUES
0x31a960…31aaf4 (1, 806) Dummy {f00=0x00f9, f01=0x0190, f02=»********* P* & P* EXTENT WORK TABLE DISPLACEMENTS P* F $ PEWTLNK EQU 0 LINK NEXT EWT BLOCK P P* x P* BLOCK 1 P* , PEWTSEX EQU 2 FILE SECTION/EXTENT NUMBER * PEWTEXL EQU 4 EXTENT LENGTH IN SECTORS P* P*
0x31aaf4…31ac88 Dummy {f00=0x00f9, f01=0x018e, f02=» BLOCK LENGTH r P* P EJECT FMTASK P* 8 P* B P********************* L P* FPB DISPLACEMENTS * j P********************* P* ( P* FILE PARAMETER BLOCK DISPLACEMENTS P* PFPB:RL EQU 0 RECORD LENGTH P
0x31ac88…31ae1c Dummy {f00=0x00f9, f01=0x0190, f02=» t PFPB:NO EQU 6 FILE NUMBER =1 PFPB:FN EQU 8 FILE NAME , PFPB:EL EQU 17 ENLARGE J PFPB:V1 EQU 18 VOLUME NAME 1 h PFPB:S1 EQU 24 SIZE 1 PFPB:V2 EQU 28 VOLUME NAME 2 PFPB:S2 EQU 34 SIZE 2 PFPB:V3 EQU 38 VOLUME NAME 3
0x31ae1c…31afb0 Dummy {f00=0x00f9, f01=0x0190, f02=»FPB:US EQU 62 NUMBER OF USERS PFPB:SH EQU 64 SHAREABILITY ! & PFPB:MN EQU 65 MONITOR NUMBER ! H $ PFPB:SN EQU 66 SOP SWITCH NUMBER ! l ( PFPB:IF EQU 67 NUMBER OF INDEX FILES ! ( PFPB:KA EQU 68 KEY ADDRESS IN RECORD ! PFPB:CD EQU 70 CREATION DATE
0x31afb0…31b144 Dummy {f00=0x00f9, f01=0x0190, f02=» P* " P* " P********** " P* TTABFM * " * P********** " < P* " N P* FMTASK TTAB " X P* " n P IFT MMUPAG=1 " x P RES 16 FMTASK MMU TABLE " P XIF " P* " P IFF MMUPAG+DSKPAG=0 " ( P DATA 0 CURRENT SEGMENT BASE (DUMMY) "
0x31b144…31b2d8 Dummy {f00=0x00f9, f01=0x0190, f02=»S (DUMMY) " ~ P* # PTTABFM EQU * TTABFM ENTRY # " P DATA 0 DISPATCHER QUEUE LINK # > " P DATA '#A' TASK IDENTIFICATION # d P DATA 49 PRIORITY LEVEL # P DATA 0 PENDING POINTER # * P DATA /C4C0 PSW (PROGRAM STATUS WORD) # P DATA 0 DISPATCH
0x31b2d8…31b46c Dummy {f00=0x00f9, f01=0x0190, f02=» DATA 2 TASK DEVICE TABLE (DUMMY) # P* $ * P EJECT FMTASK $ 4 P* $ L P* $ V " P***************************** $ ` " P* ECB, STACK AND DATA AREAS * $ " P***************************** $ P* $ P* $ * PFM:ECB DATA /8000,0,0 FMTASK ECB A
0x31b46c…31b600 Dummy {f00=0x00f9, f01=0x0190, f02=» P DATA 0,0 % $ PFM:STB EQU *-2 FMTASK STACK BASE % P* % > $ PFEXTNO DATA 0 NO OF FILE EXTENTS % H $ PFILCOD DATA 0,0 FILE CODE TABLE % p * PRETCOD DATA 0 ACKUMULATED RETURN CODE % * PTTAB DATA 0 TTAB ADDRESS CALLING TASK % 2 PVOLUME DATA 0 CURREN
0x31b600…31b794 (1, 807) Dummy {f00=0x00fa, f01=0x0190, f02=» EJECT FMTASK % P* & P* & " P********** & , P* FMINIT * & > P********** & P P* & b P* & l > P* FMINIT IS THE FILE MANAGEMENT INITIALIZATION ROUTINE. & v < P* IT IS CALLED FROM PFINIT AFTER IPL AND AT POWER ON. & > P* WHEN CALLED
0x31b794…31b928 Dummy {f00=0x00fa, f01=0x0190, f02=». THE POINTER FWTEW1 IS ALSO INITIALIZED, AS & & P* WELL AS FWTFNR (FILE NUMBER). ' 4 6 P* FMINIT ALSO HOLDS INITIALIZATION ROUTINES FOR ' ^ $ P* (EXTENDED) DATA MANAGEMENT. ' < P* THE PART OF FMINIT THAT IS NOT EXECUTED AT POWER ON ' < P* WILL
0x31b928…31babc Dummy {f00=0x00fa, f01=0x018e, f02=»DE ' l P ST A1,FMINIT CLOSE THE DOOR ( P* ( . P* FMTASK DISC SECTOR BUFFER ( 8 P* ( > PFM:BUF EQU FMINIT+2 INITIALIZATION ROUTINE USED AS BUFFER ( f P* ( . PFMINI2 EQU * INITIALIZATION ROUTINE ENTRY ( P RES 125 ( P* ( P EJECT F
0x31babc…31bc50 Dummy {f00=0x00fa, f01=0x0190, f02=» * P LD A1,SCTFWT FWT CHAIN START ADDRESS ) " P LD A4,SCTNOF NUMBER OF FILES ) 2 P LDK A5,0 ) X P LDKL A6,/8000 DWT BUSY BIT ) j P* ) PFMI:30 EQU * ) P* ) P IFF ADMEDM+SDM=0 =7 ) P IFT MMUPAG=1 ) 4 P LDKL A8,FDBMEC FDB MMU ECB DISP
0x31bc50…31bde4 Dummy {f00=0x00fa, f01=0x018e, f02=» AD A3,SCTFWL NEXT FWT ADDRESS ) P ADK A5,1 NEXT FILE NUMBER * & P SUK A4,1 * H * P RF(N) FMI:50 INITIALIZATION COMPLETED * Z , P RF(Z) FMI:40 ONE FWT LEFT TO INITIALIZE * 0 P STR A3,A1 LINK CURRENT FWT TO THE NEXT FWT * $ P ADK A1,2 INCREMENT FWT POIN
0x31bde4…31bf78 Dummy {f00=0x00fa, f01=0x0190, f02=» * n ( P CWR A1,A3 CHECK IF END OF THIS FWT + & P RB(NE) FMI:40 NOT END OF THE FWT + 4 P SU A3,SCTFWL + ^ " P ADK A3,FWTEW2 FWTEW2 ADDRESS + t . P ST A3,FWTEW1,A2 INITIALIZE FWTEW1 POINTER + , P ST A5,FWTFNR,A2 SET FILE NUMBER IN FWT + * P ST A6,DWTST
0x31bf78…31c10c Dummy {f00=0x00fa, f01=0x0190, f02=» P XIF , P* , P IFF ADMEDM+SDM=0 , P LDKL A7,TIODM =5 , 4 P ST A7,DWTADR,A2 =5 , N P XIF =5 , j & P RB FMI:30 CONTINUE WITH NEXT FWT , | P* , P =4 , P EJECT FMTASK , P* , P* COMPUTE NVL BIT MASK , P* , P
0x31c10c…31c2a0 Dummy {f00=0x00fa, f01=0x0190, f02=»,A3 GET ONE ENTRY FROM NVLTAB , & P RF(Z) FMI:85 THIS ENTRY NOT USED - & $ P ORR A1,A2 INDICATE TTAB PRESENT - P P* - x PFMI:85 EQU * - P ADR A2,A2 - & P ADK A3,2 INCREMENT NVLTAB POINTER - * P CWK A3,NVLEND CHECK IF END OF NVLTAB - $ P RB(NE)
0x31c2a0…31c434 (1, 808) Dummy {f00=0x00fa, f01=0x0190, f02=» - 4 P ABL SDMINI PERFORM DM INITIALIZATION AND RETURN . P XIF . @ P* . L P =2 . V P EJECT FMTASK . d P* . | P* . P IFT EDM=1 . P* . P* INITIALIZE ALL EDM TASKS . P* . , P LDKL A1,DWDM01 PARAMETER BLOCK ADDRESS . P
0x31c434…31c5c8 Dummy {f00=0x00fa, f01=0x0190, f02=»CTDMT EDM TASKS IN SYSTEM . P* / " PFMI:90 EQU * / , P SRC A3,1 / @ P RF(NN) FMI:99 NEXT TASK / R 0 P CF A15,FNDTID FIND (E)DM TASK TTAB ADDRESS / r P LDR A5,A2 / $ P RF(Z) FMIHLT TTAB NOT FOUND =2 / P* / P EJECT FMTASK / P* /
0x31c5c8…31c75c Dummy {f00=0x00fa, f01=0x0190, f02=» POINTER / P* 0 PFMI:95 EQU * 0 P ADK A4,4 NEXT ENTRY 0 . P CWR* A7,A4 0 J P RB(NE) FMI:95 NOT SAME ID 0 ^ P LD A2,2,A4 DISPATCH ADDRESS 0 $ P CF A15,ACTOT ACTIVATE EDM TASK 0 P* 0 PFMI:99 EQU * 0 P ADK A7,1 NEXT EDM TASK 0
0x31c75c…31c8f0 Dummy {f00=0x00fa, f01=0x018e, f02=»RETURN 0 f P* 1 P* TTAB NOT FOUND =2 1 P* 1 6 PFMIHLT EQU * =2 1 @ P LDK A1,/11 DM ERROR =2 1 X P CF A15,HALT =2 1 x " P RORG FMI:00 END OF RELOCATION 1 P* 1 P EJECT FMTASK 1 P* 1 P* 1 P********** 1 P* FMTASK *
0x31c8f0…31ca84 Dummy {f00=0x00fa, f01=0x0190, f02=» , P* IS ACTIVATED BY THE FILE MANAGEMENT 2 4 P* LKM PROCESSOR 'TIOFM' AT ENTRY FMTASK BELOW. 2 4 . P* AFTER SOME HOUSEKEEPING THE FOLLOWING 2 l 6 P* MODULES WILL PERFORM THE FILE ADMINISTRATION: 2 P* 2 D P* - FMOPEN OPEN/CREATE/EXTEND FILE
0x31ca84…31cc18 Dummy {f00=0x00fa, f01=0x018e, f02=»ERS ( " : 0) 2 p P* 3 " @ P* NOTICE THAT FUNCTIONS CREATE/EXTEND/DELETE ARE SITUATED 3 , > P* IN MODULE 'FMCDEF' BUT LOGICALLY BELONG TO OPEN/CLOSE. 3 p P* 3 ( P* A SPECIAL ENTRY IS USED FOR I/O 3 . P* FUNCTIONS WHERE REQUESTED SE
0x31cc18…31cdac Dummy {f00=0x00fa, f01=0x0190, f02=» 3 T P* 4 P* 4 P* ENTRY PARAMETERS: 4 P* 4 : 4 P* A1 = ORDER OPTION AND CODE (RFP/OPEN/CLOSE) 4 D 0 P* = PARAMETER BLOCK ADDRESS (SPLIT I/O) 4 | * P* A3 = TTAB ADDRESS OF CALLING TASK 4 J P* A4 = FUNCTION INDEX (0 = RFP, 2 = OPEN
0x31cdac…31cf40 Dummy {f00=0x00fa, f01=0x0190, f02=»MTASK ACTIVATION ENTRY 4 P* 5 P* PERFORM SOME HOUSEKEEPING 5 ( P* 5 L P CM ECBCW1,A8 CLEAR 1ST CW 5 V , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK 5 x . P ST A5,TTAB SAVE TTAB ADDRESS CALLING TASK 5 P LDR A7,A1 SAVE PARAMETER 5 P* 5 P I
0x31cf40…31d0d4 (1, 809) Dummy {f00=0x00fa, f01=0x0190, f02=» 0 P ST A2,ECBRL,A8 SET REQUESTED LENGTH IN ECB 6 P XIF 6 8 P* 6 D P IFT CPU852=0 6 N P MLK 3 6 d P DATA /8000,FM:BUF,256 6 r P MSR 3,A8 INITIALIZE FM:ECB 6 P LDR A1,A7 RESTORE PARAMETER 6 P XIF 6 P* 6 P CM RETCOD RESET RETURN CO
0x31d0d4…31d268 Dummy {f00=0x00fa, f01=0x0190, f02=»ECBBA,A9 FPB/BUFFER ADDRESS 6 P XIF 7 $ P* 7 0 P IFT MMUPAG=1 7 : ( P LDKL A3,TTABFM FMTASK TTAB ADDRESS 7 P P TL TTB:MT,A5 USER MMU TABLE 7 | , P TS TTB:MT,A3 STORE IN FMTASK MMU TABLE 7 , P EL A10,ECBBA,A9 USER FPB/BUFFER ADDRESS 7 P XIF 7
0x31d268…31d3fc Dummy {f00=0x00fa, f01=0x0190, f02=»RS ARE SUPPLIED TO 7 v $ P* THE RESP. FUNCTION HANDLER: 8 P* 8 B P* A1 = ORDER OPTION 8 L * P* A5 = TTAB ADDRESS OF CALLING TASK 8 j ( P* A7 = COMPLETE PARAMETER FROM A1 8 P* A8 = FM:ECB ADDRESS 8 P* A9 = USER ECB ADDRESS 8 P*
0x31d3fc…31d590 Dummy {f00=0x00fa, f01=0x018e, f02=»QU * ADDRESSES TO FUNCTION HANDLERS 8 & P DATA FMRPAR READ FILE PARAMETERS 9 , ( P DATA FMOPEN OPEN/CREATE/EXTEND FILE 9 V " P DATA FMCLOS CLOSE/DELETE FILE 9 P* 9 P IFT MULEXT=1 9 P DATA FMSPLI SPLIT I/O 9 P XIF 9 P* 9 P IFT MULEXT=
0x31d590…31d724 Dummy {f00=0x00fa, f01=0x0190, f02=» P* FMOPEN * : P********** : P* : ( P* : 2 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: : < P* OPEN/CREATE/EXTEND FILE : r P* : P* ENTRY PARAMETERS: : P* : P* A1 = ORDER OPTION : P* A8 = FM:ECB ADDRESS : P*
0x31d724…31d8b8 Dummy {f00=0x00fa, f01=0x0190, f02=» OPTION : z P* ; P IFT MMUPAG=1 ; P* ; 0 * P* MOVE USER FPB TO SYSTEM FPB (FM:FPB) ; : P* ; h P LDR A1,A10 USER FPB ADDRESS ; r " P LDKL A2,FM:FPB FM FPB ADDRESS ; P LDR A10,A2 SAVE IT ; & P LDK A3,FPBLEN FPB LENGTH (BYTES) ; $ P MVUS
0x31d8b8…31da4c Dummy {f00=0x00fa, f01=0x018e, f02=»ESS ; l 6 P LDK A7,FPB:V1 1ST VOLUME NAME DISPLACEMENT IN FPB < P* < F ( P* CHECK IF ANY VOLUME NAME SPECIFIED < P P* < | PFMOP00 EQU * < P LDR A2,A10 FPB ADDRESS < $ P ADR A2,A7 POINT TO VOLUME NAME < * P LDR* A2,A2 FIRST WORD OF VOLUME NAME
0x31da4c…31dbe0 Dummy {f00=0x00fa, f01=0x0190, f02=» 4 P LDKL A4,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 = P* = < & P* CONVERT VOLUME NAME TO FILE CODE = F P* = p PFMOP10 EQU * = z P LDK A2,0 = & P ADK A4,1 POINT TO NEXT FILE CODE = ( P CWK A4,DFTABE CHECK IF END OF DFTAB = . P RF(E) FM:INE FILE
0x31dbe0…31dd74 (1, 810) Dummy {f00=0x00fa, f01=0x0190, f02=»S = z 2 P ADR A2,A7 POINT TO CURRENT VOLUME NAME IN FPB > P LDK A3,6 VOLUME NAME LENGTH > @ ( P CF A14,CMPSTR COMPARE VOLUME NAMES > d * P RB(NE) FMOP10 VOLUME NAMES NOT EQUAL > P LCR A2,A4 FILE CODE > : P SC A3,DWTNVL+1,A6 CLEAR NVL BITS (A3 = 0 FROM
0x31dd74…31df08 Dummy {f00=0x00fa, f01=0x0190, f02=»OP20 EQU * > P SCR A2,A5 SAVE FILE CODE ? P ADK A5,1 ? 4 8 P ADK A7,FPB:V2-FPB:V1 NEXT VOLUME NAME DISPLACEMENT ? F * P CWK A5,FILCOD+4 CHECK IF END OF TABLE ? ( P RB(NE) FMOP00 MORE VOLUMES TO CHECK ? & P SUK A5,4 FILE CODE TABLE ADDRESS ? P*
0x31df08…31e09c Dummy {f00=0x00fa, f01=0x018e, f02=» , P RF(NZ) FMOP40 FIRST FILE CODE TO TREAT @ & P ADK A5,1 POINT TO NEXT FILE CODE @ 4 * P CWK A5,FILCOD+4 CHECK IF END OF TABLE @ ^ ( P RB(NE) FMOP30 CHECK NEXT FILE CODE @ P* @ P* VOLUME/FILE NOT FOUND @ P* @ & PFM:INE EQU * VOLUME/FILE NOT
0x31e09c…31e230 Dummy {f00=0x00fa, f01=0x0190, f02=» P* A PFMOP40 EQU * A 2 P ST A5,VOLUME CURRENT VOLUME FILE CODE ADDRESS A " P LDR A4,A13 ORDER OPTION A X P RF(Z) OPEN OPEN FILE A x P* A P IFT FMCDEF=1 A P SUK A4,1 A P ABL(Z) EXTEND EXTEND FILE A P SUK A4,1 A P ABL(Z) CREA
0x31e230…31e3c4 Dummy {f00=0x00fa, f01=0x0190, f02=»URN CODE A ~ P RF ER:RTN B P* B " P EJECT FMTASK B , P* B D P* B N P******** B X P* OPEN * B h P******** B x P* B P* B P* ENTRY PARAMETERS: B P* B P* A4 = 0 B 0 P* A5 = VOLUME FILE CODE ADDRESS IN FILCOD B $
0x31e3c4…31e558 Dummy {f00=0x00fa, f01=0x0190, f02=»* B POPEN EQU * OPEN FILE C P* C & P EJECT FMTASK C 0 P* C H * P* CHECK IF FILE IS ALREADY OPENED AND C R P* FIND FWT ADDRESS C P* C * P LD A12,SCTFWT FWT CHAIN START ADDRESS C P* C POP:005 EQU * C P LDK A2,1 C P* C
0x31e558…31e6ec Dummy {f00=0x00fa, f01=0x0190, f02=» C r P TM A12,A2 CHECK IF USED D ( P RF(NZ) OP:015 USED, CHECK FILE NAME D ( 6 P ADK A4,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED D T & P RB(NZ) OP:010 YES, DON'T SAVE IT D ( P LDR A4,A6 NO, SAVE THIS FWT ADDRESS D P RB OP:010 CONTINUE SEARCH D P*
0x31e6ec…31e880 Dummy {f00=0x00fa, f01=0x0190, f02=»OMPARE FILE NAMES D ( P RB(NE) OP:005 FILE NAMES NOT EQUAL E 4 P CC A7,FWTVOL,A6 CHECK FILE CODE OF FIRST EXTENT E F P RB(NE) OP:005 NOT THIS FILE E ~ P* E P EJECT FMTASK E P* E P* FILE IS ALREADY OPENED: E 0 P* CHECK ATTACH PARAMETER
0x31e880…31ea14 (1, 811) Dummy {f00=0x00fb, f01=0x0190, f02=»P:020 NO ATTACH REQUESTED E 0 P LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS) F " $ P RF(Z) OP:018 FILE NOT ATTACHED F V . P CW A2,TTAB CHECK IF ATTACHED BY THIS TASK F ~ 0 P RF(NE) OP:040 NO, ATTACHED TO ANOTHER TASK F P* F POP:018 EQU * F * P LD A5
0x31ea14…31eba8 Dummy {f00=0x00fb, f01=0x0190, f02=»R,A6 ACCESS PARAMETERS F P LDR A2,A1 G P ANK A1,/3F NUMBER OF USERS G 0 P SUK A1,/3F G T P ABL(NZ) OPEXIT G h P* G P EJECT FMTASK G P* G P* ERROR EXITS G P* G 0 P LDKL A4,/0210 RETURN CODE (TOO MANY USERS) G P RF ER:R
0x31eba8…31ed3c Dummy {f00=0x00fb, f01=0x0190, f02=»TN G P* H POP:040 EQU * FILE ATTACHED H P LDK A4,/40 RETURN CODE H 6 P XIF H V P* H b PER:RTN EQU * H l & P ORS A4,RETCOD PREPARE RETURN CODE H P ABL FMEXIT RETURN H P* H P EJECT FMTASK H P* H P* FILE IS NOT OPENED BEF
0x31ed3c…31eed0 Dummy {f00=0x00fb, f01=0x0190, f02=» H P LDR A6,A4 FREE FWT ADDRESS I ( P RB(Z) OP:030 NO FREE FWT AVAILABLE I , P LDR A1,A10 FPB ADDRESS I X P ADK A1,FPB:FN I x P LDR A3,A6 FWT ADDRESS I P ADK A3,FWTNAM I " P CF A14,FM:MV8 MOVE FILE NAME I P LDR A2,A7 RESTORE FILE CODE I
0x31eed0…31f064 Dummy {f00=0x00fb, f01=0x0190, f02=»OPEN EXTENDED FILE (CALLED FROM EXTEND) I P* J 0 P* A2 = DISC FILE CODE J : P* A6 = FWT ADDRESS J Z P* A8 = FM:ECB ADDRESS J v P* A9 = USER ECB ADDRESS J P* A10 = FPB ADDRESS J P* J * POPEXT EQU * ENTRY USED BY EXTEND FILE J
0x31f064…31f1f8 Dummy {f00=0x00fb, f01=0x0190, f02=»DDRESS OF CALLING TASK J ~ " P CF A14,FNDVTC FIND VTOC ENTRY K P* K D POP:075 EQU * K N 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER K b ( P RF(NZ) OP:080 ONE FILE EXTENT FOUND K $ P ADK A4,0 CHECK DISC RETURN CODE K 6 P RF(Z) OP:160 NO MORE FILE EXT
0x31f1f8…31f38c Dummy {f00=0x00fb, f01=0x018e, f02=»ND EXTENT BASE K z P* TO FWT AND/OR EWT BLOCKS L P* L 8 POP:080 EQU * L B ( P LD A3,VTC:EN,A13 FILE EXTENT NUMBER L V ( P LD A2,VTC:FO,A13 FILE ORGANIZATION L P ANK A2,/FF L P SUK A2,'L' L P RF(Z) OP:085 L-FILE L * P LD A2,VTC:FS,A13 FILE
0x31f38c…31f520 Dummy {f00=0x00fb, f01=0x0190, f02=» L $ P LC A4,TTB:SA+14,A5 ORDER OPTION M P SRC A4,1 CHECK IF EXTEND M 0 P RF(NN) OP:085 NOT EXTEND M R 0 P CW A3,SEXTNO CHECK IF VTOC ALREADY TREATED M t & P RF(NG) OP:110 YES, SKIP THIS VTOC M P XIF M P* M POP:085 EQU * M * P LC A2,VTC:E
0x31f520…31f6b4 (1, 812) Dummy {f00=0x00fb, f01=0x0190, f02=»OP:090 EQU * M P INH N P CF A15,GETBLK EWT BLOCK 1 N P RF OP:100 N B P* N T P EJECT FMTASK N ^ P* N v P* N POP:095 EQU * N ( P LC A4,VTC:NE,A13 NO OF FILE EXTENTS N P ANK A4,/FF N P NGR A4,A4 NEGATE VALUE N P ADS A4,FE
0x31f6b4…31f848 Dummy {f00=0x00fb, f01=0x0190, f02=»A6 STORE FILE EXTENT LENGTH, FIRST EXTENT N P ST A1,FWTEXL,A6 O 2 P* O J POP:100 EQU * O T P LDR* A2,A8 VOLUME FILE CODE O h * P ECR A2,A2 FILE CODE NOW IN LEFT BYTE O ( P LC A2,VTC:EB+1,A13 FILE EXTENT BASE O P LD A1,VTC:EB+2,A13 O * P OR A3
0x31f848…31f9dc Dummy {f00=0x00fb, f01=0x0190, f02=»ENT O P ST A1,FWTEXB,A6 P < P ST A11,FWTVTC,A6 STORE VTOC SECTOR NUMBER, FIRST EXTENT P $ P* P d * P* FIND REMAINING EXTENTS FOR THIS FILE P n P* P POP:110 EQU * P . P IM FEXTNO INDICATE ONE MORE EXTENT FOUND P 6 P RF(Z) OP:160 NO MORE FILE E
0x31f9dc…31fb70 Dummy {f00=0x00fb, f01=0x0190, f02=»* INSERT NEW EWT BLOCKS IN EWT CHAIN P P* Q , POP:120 EQU * Q 6 " P LDR A3,A4 ADDRESS EWT BLOCK 1 Q J P CF A15,GETBLK EWT BLOCK 2 Q p P ENB Q P STR A4,A3 LINK EWT2 TO EWT1 Q P LDR A1,A6 FWT ADDRESS Q P ADK A1,FWTEW2 Q P* Q POP:130 E
0x31fb70…31fd04 Dummy {f00=0x00fb, f01=0x0190, f02=»BLOCK Q v P STR A3,A1 R P RB OP:110 CONTINUE R P* R < POP:150 EQU * R F 4 P LC A11,EWTSEX,A2 FILE SECTION AND EXTENT NUMBER R Z P CC A11,EWTSEX,A3 R ( P RB(G) OP:140 INSERT NEW EWT BLOCKS R ( P LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK R P RB
0x31fd04…31fe98 Dummy {f00=0x00fb, f01=0x0190, f02=» R h * P LD A7,VOLUME VOLUME FILE CODE ADDRESS S * P CWK A7,FILCOD+4 CHECK IF END OF TABLE S 6 & P RF(E) OP:170 ALL VOLUMES CHECKED S d P* S P EJECT FMTASK S P* S P* S P IFT FMCDEF=1 S P LDKL A2,-1 S , P ST A2,SEXTNO RESET START
0x31fe98…32002c Dummy {f00=0x00fb, f01=0x0190, f02=»OP:160 S P* T POP:170 EQU * T 6 P LD A2,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT T , ( P ABL(Z) FM:INE NO FILE EXTENT FOUND T f P* T P IFT FMCDEF=1 T $ P LC A2,TTB:SA+14,A5 ORDER OPTION T P SRC A2,1 CHECK IF EXTEND T P RF(N) FM:27
0x32002c…3201c0 Dummy {f00=0x00fb, f01=0x0190, f02=»TY PARAMETER T t P ANK A2,/FF U & P RF(Z) OP:240 NO ATTACH REQUESTED U ( P LDR A2,A5 TTAB ADDRESS U R P* U r POP:240 EQU * U | $ P ST A2,FWTTAB,A6 SET ATTACH WORD U P XIF U P* U 2 P IMR A6 INDICATE FWT USED (BIT 15 IN 1ST WORD) U ( P LDK
0x3201c0…320354 (1, 813) Dummy {f00=0x00fb, f01=0x0190, f02=»CHECK BASIC ORDERS PARAMETER, INCREMENT NUMBER OF USERS U > P* BY ONE AND RETURN FILE NUMBER FOR THIS FILE TO THE USER V @ P* V POPEXIT EQU * V . P LD A1,FPB:BO,A10 BASIC ORDERS PARAMETERS V P ANK A1,/FF V 2 P RF(NZ) OP:260 BASIC ORDERS WANTED
0x320354…3204e8 Dummy {f00=0x00fb, f01=0x018e, f02=» . P SC A2,FWTPAR,A6 SET NEW ACCESS PARAMETERS W P* W 6 P IFT MMUPAG=0 W @ P LD A4,FWTFNR,A6 FILE NUMBER W V * P SC A4,ECBFN,A9 SET FILE NUMBER IN ECB W z P XIF W P* W P IFT MMUPAG=1 W P ELR A4,A9 W P LC A4,FWTFNR,A6 FILE NUMBER W &
0x3204e8…32067c Dummy {f00=0x00fb, f01=0x0190, f02=» W P EJECT FMTASK X P* X P* X * P********** X 4 P* FMCLOS * X F P********** X X P* X j P* X t 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: X ~ P* CLOSE/DELETE FILE X P* X P* ENTRY PARAMETERS: X P* X $ P*
0x32067c…320810 Dummy {f00=0x00fb, f01=0x0190, f02=» X x P* A9 = USER ECB ADDRESS Y P* A10 = FPB ADDRESS Y * P* Y F " PFMCLOS EQU * CLOSE/DELETE FILE Y P P* Y v P* CHECK ORDER OPTION Y P* Y P IFT FMCDEF=0 Y ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION Y P XIF Y P* Y P IFT FMCDE
0x320810…3209a4 Dummy {f00=0x00fb, f01=0x0190, f02=» XIF Y P* Z P EJECT FMTASK Z P* Z . P* Z 8 P********* Z B P* CLOSE * Z T P********* Z f P* Z x P* ENTRY PARAMETERS: Z P* Z * P* A5 = TTAB ADDRESS OF CALLING TASK Z P* A8 = FM:ECB ADDRESS Z P* A9 = USER EC
0x3209a4…320b38 Dummy {f00=0x00fb, f01=0x0190, f02=»XTENT) Z h P ADK A4,0 CHECK RETURN CODE [ P RF(NZ) CL:000 ERROR [ 2 & P LD A3,FWTPAR,A6 ACCESS PARAMETERS [ N P RF(NN) CL:005 NOT NVL [ x & P LDK A4,/20 SET NVL IN RETURN CODE [ P* [ ( P* ERROR AT CLOSE: CHECK HOW SERIOUS [ P* [ PCL:000 E
0x320b38…320ccc Dummy {f00=0x00fb, f01=0x0190, f02=»ON'T CLOSE [ r P XIF P* P ADK A6,0 CHECK FWT ADDRESS ( & P RF(Z) OCEXIT NO FWT FOUND, RETURN L P RF CL:010 DON'T WRITE VTOC v P* P EJECT FMTASK P* P* MOVE FRN FROM FPB TO VTOC P* PCL:005 EQU * P
0x320ccc…320e60 Dummy {f00=0x00fb, f01=0x0190, f02=»T LRN IN VTOC RECORD | P ST A2,VTC:LR+2,A13 ] P XIF ] 8 P* ] D P IFT MMUPAG=0 ] N P IFT CPU852=0 ] d ( P ML 2,FPB:FR,A10 FILE RECORD NUMBER ] z , P MS 2,VTC:LR,A13 SET LRN IN VTOC RECORD ] P XIF ] P* ] P IFT MMUPAG=1 ] ( P EL A1
0x320e60…320ff4 (1, 814) Dummy {f00=0x00fb, f01=0x0190, f02=»* WRITE VTOC TO DISC WITH NEW FILE RECORD NUMBER IF REQUESTED ] P* ^ F ( P ORR A1,A2 CHECK FILE RECORD NUMBER ^ P , P RF(Z) CL:010 FRN ZERO, DON'T WRITE VTOC ^ | P LDK A7,/95 PHYSICAL WRITE ^ , P CF A14,FM:IO WRITE VTOC RECORD TO DISC ^ P* ^ P
0x320ff4…321188 Dummy {f00=0x00fb, f01=0x018e, f02=»S. ^ d P* _ PCL:010 EQU * _ & P LC A1,FWTPAR,A6 ACCESS PARAMETERS _ ( P LDR A2,A1 _ R P ANK A2,/3F NUMBER OF USERS _ d * P SUK A2,1 DECREMENT NO OF USERS BY ONE _ P* _ P IFT MMUPAG=0 _ 2 P SC A2,FPB:US,A10 RETURN REMAINING NO OF USERS _
0x321188…32131c Dummy {f00=0x00fb, f01=0x0190, f02=» _ f P ORR A3,A2 ` 2 P ES A3,FPB:US,A10 RETURN REMAINING NO OF USERS ` , P SRL A2,8 NUMBER OF USERS TO RIGHT BYTE ` P P XIF ` P* ` 4 P RF(P) DLCLO2 DON'T RELEASE FWT IF ANY USER LEFT ` P* ` P EJECT FMTASK ` P* ` P* ` P****
0x32131c…3214b0 Dummy {f00=0x00fb, f01=0x0190, f02=»* INPUT: A6 = FWT ADDRESS ` & P* A9 = USER ECB ADDRESS a $ P* a N * PDLCLO1 EQU * ENTRY USED BY DELETE FILE a X P LDK A2,1 a & P XRRS A2,A6 RESET USED BIT IN FWT a P* a ( POPCLOS EQU * ENTRY USED BY OPEN FILE a 4 P LD A4,FWTEW2,A6
0x3214b0…321644 Dummy {f00=0x00fb, f01=0x0190, f02=»OOL a j P* b PCL:020 EQU * b P INH b * $ P CF A15,FREBLK RELEASE EWT BLOCK b 6 P ENB b ^ P LDR A4,A3 EWT BLOCK ADDRESS b j P RB(NZ) CL:020 b . P CM FWTEW2,A6 RESET EWT STRUCTURE POINTER b P* b PCL:030 EQU * b * P CM FWTVTC,A6 RESET
0x321644…3217d8 Dummy {f00=0x00fb, f01=0x0190, f02=»ETE FILE b r $ P ANK A1,/C0 SKIP NUMBER OF USERS c . P ORR A1,A2 PUT TOGETHER ACCESS PARAMETERS c 8 P SC A1,FWTPAR,A6 c j P* c P* DETACH FILE c P* c PCL:050 EQU * c P IFT FMCDEF=1 c , P LD A5,TTAB TTAB ADDRESS OF CALLING TASK c P X
0x3217d8…32196c Dummy {f00=0x00fb, f01=0x0190, f02=»MMON EXIT LABEL c v P ABL FMEXIT d P* d , P EJECT FMTASK d 6 P* d N P* d X P********** d b P* FMRPAR * d t P********** d P* d P* d 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: d P* READ FILE PARAMETERS d P* d
0x32196c…321b00 Dummy {f00=0x00fb, f01=0x0190, f02=»OF CALLING TASK d z P* A8 = FM:ECB ADDRESS e P* A9 = USER ECB ADDRESS e 8 P* A10 = FPB ADDRESS e Z P* e v & PFMRPAR EQU * READ FILE PARAMETERS e P* e P* CHECK ORDER OPTION e P* e ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION e P*
0x321b00…321c94 (1, 815) Dummy {f00=0x00fc, f01=0x0190, f02=» 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT) f P ADK A4,0 CHECK RETURN CODE f : P RF(NZ) FMEXIT ERROR, RETURN f ^ 2 P SC A4,FPB:BO,A10 RESET BASIC ORDER PARAMETER f P* f " P* MOVE SPACES TO VOLUME NAMES f $ P* AND RESET FILE SECTION SIZES.
0x321c94…321e28 Dummy {f00=0x00fc, f01=0x0190, f02=»TER LOOP f v P LDK A4,/20 SPACE g P* g * " PFMR:02 EQU * OUTER LOOP ENTRY g 4 & P LDK A3,6 LOOP COUNTER, INNER LOOP g Z P* g " PFMR:04 EQU * INNER LOOP ENTRY g * P SCR A4,A1 MOVE SPACES TO VOLUME NAME g P ADK A1,1 g P SUK A3,1 g P R
0x321e28…321fbc Dummy {f00=0x00fc, f01=0x0190, f02=» P RB(P) FMR:02 h P XIF h P* h & P IFT CPU852=0 h 0 P MLK 3 h F P DATA /2020,/2020,/2020 h T " P LDK A5,0 (A4 = 0 FROM RDVTOC) h t P MS 5,FPB:V1,A10 h P MS 5,FPB:V2,A10 h P MS 5,FPB:V3,A10 h P MS 5,FPB:V4,A10 h P XIF h P*
0x321fbc…322150 Dummy {f00=0x00fc, f01=0x0190, f02=»L,A13 RECORD LENGTH h P STR A1,A10 i 8 P LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION i 0 P ST A1,FPB:BF,A10 i l ( P LD A1,VTC:LR,A13 LAST RECORD NUMBER i P ST A1,FPB:FR,A10 i $ P LD A1,VTC:LR+2,A13 LRN, PART 2 i P ST A1,FPB:FR+2,A10
0x322150…3222e4 Dummy {f00=0x00fc, f01=0x018e, f02=»TC:IF,A13 NUMBER OF INDEX FILES i P ST A1,FPB:IF,A10 j ( , P LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD j B P ST A1,FPB:KA,A10 j r P XIF j P* j P IFT CPU852=0 j 8 P ML 4,VTC:LR,A13 LRN, RECORD LENGTH AND BLOCK FACTOR j P MS 2,FPB:FR,A10 j
0x3222e4…322478 Dummy {f00=0x00fc, f01=0x0190, f02=» j , P LC A2,VTC:IF,A13 NUMBER OF INDEX FILES k , P LD A3,VTC:KA,A13 KEY ADDRESS IN RECORD k 8 P MS 3,FPB:MN,A10 k h P XIF k P* k P IFT ATTDET=1 k , P LD A1,FWTTAB,A6 SHAREABILITY PARAMETER k P RF(Z) FMR:05 NOT ATTACHED k P LDK A1,1
0x322478…32260c Dummy {f00=0x00fc, f01=0x0190, f02=»H,A10 SET ATTACH PARAMETER k P* l " P EJECT FMTASK l , P* l D P* l N & P LD A1,FWTPAR,A6 ACCESS PARAMETERS l X P SLL A1,1 l 0 P RF(NN) FMR:10 PHYSICAL ORDERS FOR THIS FILE l P LDK A2,1 l , P SC A2,FPB:BO,A10 INDICATE BASIC ORDERS l
0x32260c…3227a0 Dummy {f00=0x00fc, f01=0x0190, f02=»N DATE AND RETENTION PERIOD l P* m $ P LDR A1,A13 VTOC ADDRESS m . P ADK A1,VTC:CD m N P LDR A3,A10 FPB ADDRESS m d P ADK A3,FPB:CD m & P LDK A2,9 NO OF CHARACTERS TO MOVE m : P CF A14,FM:MOV MOVE CREATION DATE AND RETENTION PERIOD m P* m
0x3227a0…322934 (1, 816) Dummy {f00=0x00fc, f01=0x0190, f02=»TO FILE NAME m r " P CF A14,FM:MV8 MOVE FILE NAME n 2 P ADK A6,FWTEW1 ADDRESS TO FIRST EWT STRUCTURE n : P LDR A11,A6 n p * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK n P* n P EJECT FMTASK n P* n & P* MOVE VOLUME NAME FROM DWT TO FPB n P
0x322934…322ac8 Dummy {f00=0x00fc, f01=0x0190, f02=» n ` P SLC A1,2 o " P ANK A1,3 FILE SECTION NUMBER o P* o @ PFMR:30 EQU * o J : P ADK A3,FPB:V2-FPB:V1 COMPUTE VOLUME NAME DISPLACEMENT o ^ P SUK A1,1 o P RB(NN) FMR:30 o $ P LC A2,EWTVOL,A12 DISC FILE CODE o P LDR A13,A2 SAVE FILE CODE o
0x322ac8…322c5c Dummy {f00=0x00fc, f01=0x0190, f02=»EXL-2,A11 FILE EXTENT LENGTH o P ANK A1,/FF p $ P LD A2,EWTEXL,A11 p 8 P XIF p R P* p ^ P IFT CPU852=0 p h * P ML 2,EWTEXL-2,A11 FILE EXTENT LENGTH p ~ P ANK A1,/FF p P XIF p P* p P EJECT FMTASK p P* p P* COMPUTE FILE S
0x322c5c…322df0 Dummy {f00=0x00fc, f01=0x018e, f02=» * P LD A6,EWTEXL-2,A11 FILE EXTENT LENGTH q P ANK A6,/FF q 2 P LD A7,EWTEXL,A11 q F * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK q ` & P CC A13,EWTVOL,A12 CHECK FILE CODE q , P RF(NE) FMR:50 END OF THIS FILE SECTION q P* q P IFT CPU852=0 q * P
0x322df0…322f84 Dummy {f00=0x00fc, f01=0x0190, f02=» q f P XIF r P* r P IFT CPU852=1 r . P ADR A1,A6 ACKUMULATE FILE SECTION LENGTH r 4 P ADR A2,A7 r f P RF(O) FMR:45 OVERFLOW r x P RB FMR:35 r P* r PFMR:45 EQU * r " P ADK A1,1 OVERFLOW CORRECTION r P ANKL A2,/7FFF r P RB FM
0x322f84…323118 Dummy {f00=0x00fc, f01=0x0190, f02=»DR A4,A11 CHECK EWT BLOCK ADDRESS r ( P RB(NZ) FMR:20 NOT END OF EWT CHAIN s * P* s V P EJECT FMTASK s ` P* s x P* s P IFT MMUPAG=1 s P* s , P* MOVE SYSTEM FPB (FM:FPB) TO USER FPB s P* s & P* INPUT: A9 = USER ECB ADDRESS
0x323118…3232ac Dummy {f00=0x00fc, f01=0x0190, f02=» A3,FPBLEN FPB LENGTH s $ P MVSU A3 MOVE FM:FPB TO USER FPB t P XIF t F P* t R P EJECT FMTASK t P* t t P* t ~ P********** t P* FMEXIT * t P********** t P* t P* t 0 P* SET RETURN CODE IN USER ECB, QUEUE TASK t $ P*
0x3232ac…323440 Dummy {f00=0x00fc, f01=0x018e, f02=»T t l P LD A4,RETCOD RETURN CODE u P* u , P IFT MMUPAG=0 u 6 * P ST A4,ECBRC,A9 SET RETURN CODE IN ECB u L P XIF u z P* u P IFT MMUPAG=1 u * P ES A4,ECBRC,A9 SET RETURN CODE IN ECB u P XIF u P* u 2 P LD A5,TTAB RESTORE TTAB ADDRE
0x323440…3235d4 (1, 817) Dummy {f00=0x00fc, f01=0x0190, f02=» u P* FMSPLI * v P********** v P* v , P* v 6 & P* FILE MANAGEMENT I/O FUNCTIONS: v @ , P* FMSPLI IS ENTERED WHEN THE REQUESTED v j * P* SECTORS ARE SPLIT OVER TWO OR MORE v P* FILE EXTENTS. v P* v * P* A5 = TTAB ADDRESS OF CAL
0x3235d4…323768 Dummy {f00=0x00fc, f01=0x0190, f02=»R BUFFER ADDRESS v P* w . PFMSPLI EQU * BASIC AND PHYSICAL READ/WRITE w " P IFT MULEXT=1 w T & P LDR A4,A7 PARAMETER BLOCK ADDRESS w j P INH w 4 P CF A15,FREBLK RELEASE BLOCK AND GET PARAMETERS w & P LDR A13,A2 2ND EWT BLOCK ADDRESS w < P CF A1
0x323768…3238fc Dummy {f00=0x00fc, f01=0x0190, f02=»A1 ORDER CODE w P* x P EJECT FMTASK x P* x 8 P* x B P IFT MMUPAG=0 x L P IFT CPU852=1 x b " P LD A1,ECBCW1,A9 SECTOR NUMBER x x P LD A2,ECBCW2,A9 x ( P ST A10,ECBBA,A8 SET BUFFER ADDRESS x , P LD A10,ECBRL,A9 TOTAL REQUESTED LENGT
0x3238fc…323a90 Dummy {f00=0x00fc, f01=0x0190, f02=»NTRY x t * P ST A1,ECBCW1,A8 SET SECTOR NO IN ECB y P ST A2,ECBCW2,A8 y : P XIF y R P* y ^ P IFT MULEXT=1 y h P IFT MMUPAG=0 y ~ P IFT CPU852=0 y " P ML 2,ECBCW1,A9 SECTOR NUMBER y ( P ST A10,ECBBA,A8 SET BUFFER ADDRESS y , P LD A10,ECBR
0x323a90…323c24 Dummy {f00=0x00fc, f01=0x018e, f02=»CTOR NO IN ECB y z P XIF z P* z " P IFT MULEXT=1 z , P IFT MMUPAG=1 z B P INH =3 z X 6 P CF A15,TIOMXI CONVERT LOGICAL ADDRESS TO PHYSICAL z j P ENB =3 z " P EL A1,ECBCW1,A9 SECTOR NUMBER z P EL A2,ECBCW2,A9 z , P EL A10,ECBRL,A9 TOT
0x323c24…323db8 Dummy {f00=0x00fc, f01=0x0190, f02=» z j P XIF { P* { P IFT MULEXT=1 { $ P LC A1,EWTVOL,A13 DISC FILE CODE { 4 ( P SC A1,ECBFC,A8 SET FILE CODE IN ECB { 0 P ST A3,ECBRL,A8 SET REQUESTED LENGTH IN ECB { " P CF A14,FM:IO PERFORM DISC I/O { P RF(NZ) FMSP50 DISC ERROR { $ P LD
0x323db8…323f4c Dummy {f00=0x00fc, f01=0x0190, f02=»MTASK { P* | P* UPDATE BUFFER ADDRESS | P* | 8 P IFT MMUPAG=0 | B * P ADS A4,ECBBA,A8 UPDATE BUFFER ADDRESS | X P XIF | P* | P IFT MULEXT=1 | P IFT MMUPAG=1 | 0 P LDK A3,0 MOST SIGNIFICANT PART OF LENGTH =3 | P SRL A4,1 WO
0x323f4c…3240e0 Dummy {f00=0x00fc, f01=0x0190, f02=» | | P SRC A1,4 } 0 P MSR 2,A8 SET UPDATED BUFFER ADDRESS IN ECB } P XIF } N P* } Z P EJECT FMTASK } d P* } | , P* GET PARAMETERS FROM NEXT EWT STRUCTURE } & P* AND COMPUTE NEW REQUESTED LENGTH } P* } P IFT MULEXT=1 } $ P LDR* A1
0x3240e0…324274 (1, 818) Dummy {f00=0x00fc, f01=0x0190, f02=» P IFT CPU852=1 ~ . P LD A1,EWTEXL-1,A13 EXTENT LENGTH, PART 1 ~ P ANK A1,/FF ~ L & P RF(NZ) FMSP30 EXTENT LARGE ENOUGH ~ ` , P LD A2,EWTEXL,A13 EXTENT LENGTH, PART 2 ~ P XIF ~ P* ~ P IFT MULEXT=1 ~ P IFT CPU852=0 ~ $ P ML 2,EWTEXL
0x324274…324408 Dummy {f00=0x00fc, f01=0x018e, f02=»* ~ P* P IFT MULEXT=1 P CWR A3,A2 * & P RF(NG) FMSP30 EXTENT LARGE ENOUGH < ( P LDR A3,A2 NO OF SECTORS IN THIS I/O f P* PFMSP30 EQU * & P ECR A3,A3 CONVERT LENGTH TO BYTES P LDR* A13,A13 2ND EWT BLOCK P* P
0x324408…32459c Dummy {f00=0x00fc, f01=0x0190, f02=» P* P IFT MULEXT=1 P IFT CPU852=0 $ " P ML 2,EWTEXB-1,A13 EXTENT BASE : P ANK A1,/FF ` P RB FMSP00 t P XIF P* P EJECT FMTASK P* P* * PFMSP40 EQU * ILLEGAL REQUESTED LENGTH P IFT MULEXT=1
0x32459c…324730 Dummy {f00=0x00fc, f01=0x0190, f02=»* P IFT MMUPAG=0 6 P ST A10,ECBEL,A9 SET EFFECTIVE LENGTH IN USER ECB P XIF Z P* f P IFT MULEXT=1 p P IFT MMUPAG=1 6 P ES A10,ECBEL,A9 SET EFFECTIVE LENGTH IN USER ECB P XIF P* P IFT MULEXT=1 P RB FM
0x324730…3248c4 Dummy {f00=0x00fc, f01=0x0190, f02=» P********** P* P* * P* INPUT: A2 = SECTOR NUMBER, PART 2 * . P* A8 = FM:ECB/FMECB2 ECB ADDRESS X P* " P* OUTPUT: CR = 0 IF OK, ELSE $ P* <> 0 IF DISC ERROR 8 P* A4 = DISC RETURN CODE (EXC
0x3248c4…324a58 Dummy {f00=0x00fc, f01=0x0190, f02=»FM:LKM P* $ PFMREAD EQU * PHYSICAL READ ENTRY P LDK A7,/91 ORDER CODE @ P* ^ * PFM:LKM EQU * COMMON I/O ROUTINE ENTRY h . P ST A2,ECBCW2,A8 SET SECTOR NUMBER IN ECB P* PFM:IO EQU * $ P ADKL A14,4 ADJUST STACK POINTER
0x324a58…324bec Dummy {f00=0x00fc, f01=0x0190, f02=»Y BIT x * P ABR* A14 RETURN (WITHOUT CHANGING CR) P* < P EJECT FMTASK F P* ^ P* h P********** r P* FNDNAM * P********** P* P* 2 P* FNDNAM WILL CONVERT THE SUPPLIED FILE CODE 0 P* TO VOLUME NAME ADD
0x324bec…324d80 Dummy {f00=0x00fc, f01=0x0190, f02=»= 6 . P* A6 = DISC DWT ADDRESS + DOUBLE INDEX P* > * PFNDNAM EQU * FIND VOLUME NAME ADDRESS H P INH v ( P CF A15,FNDDWD FIND DISC DWT ADDRESS P ENB P* 6 P* CHECK IF DISC RECOVERY GOING ON AND IN THAT CASE 8 P* SWITCH T
0x324d80…324f14 (1, 819) Dummy {f00=0x00fd, f01=0x0190, f02=» POWER ON COMPLETED FOR THIS DISC & P LKM WAIT FOR RECOVERY COMPLETION * P DATA 0 SWITCH TASKS T P RB FNAM05 CHECK DISC AGAIN p P* P EJECT FMTASK P* P* PFNAM10 EQU * P LDR A1,A6 DISC DWT ADDRESS P LDR A
0x324f14…3250a8 Dummy {f00=0x00fd, f01=0x0190, f02=» l P* PFNAM20 EQU * & P ADK A1,6 NEXT VOLUME NAME IN DWT & P SUK A2,1 DECREMENT INDEX P P RB(NN) FNAM20 r P LDK A2,6 P ADKL A1,DWTVOL-6 P RTN A14 P* P EJECT FMTASK P* P* P**********
0x3250a8…32523c Dummy {f00=0x00fd, f01=0x0190, f02=»D READ THE VTOC RECORD x " P* OF THE FIRST FILE EXTENT. P* D " P* INPUT: A5 = TTAB ADDRESS N P* A8 = FM:ECB ADDRESS t & P* A9 = USER ECB ADDRESS P* 2 P* OUTPUT: A1 = 0 IF FIRST FILE EXTENT FOUND 6 P*
0x32523c…3253d0 Dummy {f00=0x00fd, f01=0x0190, f02=»13 = VTOC RECORD ADDRESS IN FM:BUF * P* A3, A7, A11 ARE DESTROYED * P* X 8 PRDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD b P INH < P CF A15,FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS P ENB P RF(NZ) RDVT20 ERR
0x3253d0…325564 Dummy {f00=0x00fd, f01=0x0190, f02=» 6 P LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT) P* B & PRDVTO2 EQU * ENTRY USED BY FMCDEF L 8 P CF A14,FNDVT2 READ VTOC SECTOR AND ONE VTOC RECORD v P* PRDVT10 EQU * P ADK A4,0 CHECK RETURN CODE & P RF(NZ) RDVT20 DISC
0x325564…3256f8 Dummy {f00=0x00fd, f01=0x0190, f02=»RECORD FOR THIS FILE r 0 P RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT P* P PRDVT20 EQU * Z & P ORS A4,RETCOD PREPARE RETURN CODE n P RTN A14 P* P EJECT FMTASK P* P* P********** P* FNDVTC * P******
0x3256f8…32588c Dummy {f00=0x00fd, f01=0x0190, f02=»ONE EXTENT x , P* HAS BEEN FOUND OR WHEN THE COMPLETE . P* VTOC HAS BEEN SEARCHED WITHOUT MATCH. B P* t P* INPUT: A2 = FILE CODE ~ P* A6 = FWT ADDRESS P* A8 = FM:ECB ADDRESS P* 6 P* OUTPUT: A2 = VTOC SECTOR NUM
0x32588c…325a20 Dummy {f00=0x00fd, f01=0x0190, f02=» = VTOC RECORD ADDRESS IN FM:BUF 2 P* A1, A3, A7, A11-A12 ARE DESTROYED ( P* ^ PFNDVTC EQU * FIND VTOC ENTRY h P* " P* READ VOLUME LABEL (SECTOR 0) P* ( P SC A2,ECBFC,A8 SET FILE CODE IN ECB P LDK A2,0 SECTOR NUMBE
0x325a20…325bb4 (1, 820) Dummy {f00=0x00fd, f01=0x0190, f02=»DR A12,A2 * P AD A2,FM:BUF+VOL:FS SKIP FSAT SECTORS , P AD A12,FM:BUF+VOL:EL LAST VTOC SECTOR+1 @ P* p P EJECT FMTASK z P* P* READ NEXT VTOC SECTOR P* , PFNDVT2 EQU * ENTRY USED BY RDVTOC/FMCDEF ( P CF A14,FMREAD REA
0x325bb4…325d48 Dummy {f00=0x00fd, f01=0x0190, f02=»CTOR t P* PFVTC20 EQU * & P LD A1,VTC:ST,A13 VTOC STATUS BYTE * P ANK A1,/FF T P RF(NZ) FVTC50 VTOC USED h P* $ PFNDVT3 EQU * ENTRY USED BY OPEN 0 P LD A2,ECBCW2,A8 CURRENT VTOC SECTOR NUMBER & P ADKL A13,VTOCRL NEXT VTOC
0x325d48…325edc Dummy {f00=0x00fd, f01=0x0190, f02=» END OF VTOC EXTENT | ( P RB(NE) FNDVT2 NOT LAST VTOC SECTOR P* H PFVTC40 EQU * ERROR RETURN R P LDK A2,0 RETURN CODE t P RTN A14 P* 8 P* VTOC USED: COMPARE FILE NAMES AND RETURN IF EQUAL P* PFVTC50 EQU * P L
0x325edc…326070 Dummy {f00=0x00fd, f01=0x0190, f02=»RENT VTOC SECTOR NUMBER | " P RTN A14 ONE FILE EXTENT FOUND P* F P EJECT FMTASK P P* h P* r P********** | P* CMPFIL * P* CMPSTR * P* CPMDWD * P********** P* P* , P* CMPFIL COMPARES ONE CHARAC
0x326070…326204 Dummy {f00=0x00fd, f01=0x018e, f02=»TR COMPARES TWO CHARACTER STRINGS 0 P* AND SETS THE CR ACCORDING TO THE RESULT. * P* ^ ( P* CMPDWD COMPARES TWO DOUBLE WORDS h 0 P* AND SETS THE CR ACCORDING TO THE RESULT. P* H P* INPUT: A1 = ADDRESS OF CHARACTER STRING 1 (CMPSTR
0x326204…326398 Dummy {f00=0x00fd, f01=0x0190, f02=» T ( P* A6 = FWT ADDRESS (CMPFIL ONLY) P* 4 . P* OUTPUT: CR = 0 IF STRINGS EQUAL, ELSE > > P* > 0 IF STRING 1 GREATER THAN STRING 2, ELSE p 6 P* < 0 IF STRING 1 LESS THAN STRING 2 ( P* A1-A3, A11 ARE D
0x326398…32652c Dummy {f00=0x00fd, f01=0x0190, f02=» & P ADK A1,FWTNAM POINT TO FILE NAME P LDK A3,8 FILE NAME LENGTH . P* P * PCMPSTR EQU * COMPARE CHARACTER STRINGS Z $ P ADKL A14,4 ADJUST STACK POINTER P* , P* COMPARE STRINGS CHARACTER BY CHARACTER P* PCMP:10 EQU * , P
0x32652c…3266c0 Dummy {f00=0x00fd, f01=0x0190, f02=» RETURN p ( P ADK A1,1 INCREMENT STRING POINTERS P ADK A2,1 < $ P SUK A3,1 DECREMENT LOOP COUNTER N 0 P RB(P) CMP:10 CONTINUE IF NOT END OF STRINGS v $ P ABR* A14 STRINGS EQUAL, RETURN P* * PCMPDWD EQU * COMPARE TWO DOUBLE WORDS
0x3266c0…326854 (1, 821) Dummy {f00=0x00fd, f01=0x0190, f02=»******** P* P* * P* INPUT: A1 = INPUT BUFFER ADDRESS $ 2 P* A2 = NUMBER OF CHARACTERS TO MOVE R * P* A3 = OUTPUT BUFFER ADDRESS P* P* OUTPUT: A2 = 0 > P* A1, A3 = ADDRESSES OF LAST MOVED C
0x326854…3269e8 Dummy {f00=0x00fd, f01=0x0190, f02=»OV P* " PFM:MV4 EQU * MOVE 4 CHARACTERS P LDK A2,4 LENGTH : P* R ( P* MOVE STRING CHARACTER BY CHARACTER P* PFM:MOV EQU * MOVE STRING " P LCR A4,A1 MOVE ONE CHARACTER P SCR A4,A3 ( P ADK A1,1 INCREMENT BUFFER POI
0x3269e8…326b7c Dummy {f00=0x00fd, f01=0x4022, f02=» P* P END @ OVE 4 CHARACTERS P LDK A2,4 LENGTH : P* R ( P* MOVE STRING CHARACTER BY CHARACTER P* PFM:MOV EQU * MOVE STRING " P LCR A4,A1 MOVE ONE CHARACTER P SCR A4,A3 ( P ADK A1,1 INCREMENT BUFFER POI
0x326b7c…326d10 Dummy {f00=0x00fd, f01=0x2008, f02=» FMTASK ~ * * " * , END 6@ B * H ********** R * FMRDFP * d ********** v * 0 +* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: * READ FILE PARAMETERS * & !FMRDFP EQU * READ FILE PAR
0x326d10…326ea4 Dummy {f00=0x00fd, f01=0x0190, f02=»05 EQU * A P LDK A2,1 B P* B " POP:010 EQU * B , P LDR A6,A12 NEXT FWT ADDRESS B @ * P RF(Z) OP:060 NO MORE FWT:S AVAILABLE B d " P LDR* A12,A6 FIRST WORD OF FWT B P TM A12,A2 CHECK IF USED B ( P RF(NZ) OP:015 USED, CHECK FILE NAME B 6 P ADK
0x326ea4…327038 Dummy {f00=0x00fd, f01=0x0190, f02=» P RB OP:010 CONTINUE SEARCH C P* C & POP:015 EQU * C 0 " P XRR A12,A2 RESET FWT USED BIT C D P LDR A2,A10 FPB ADDRESS C j P ADK A2,FPB:FN C & P CF A14,CMPFIL COMPARE FILE NAMES C ( P RB(NE) OP:005 FILE NAMES NOT EQUAL C 4 P CC A7,FWTVOL,A6 C
0x327038…3271cc Dummy {f00=0x00fd, f01=0x0190, f02=»OPENED: C ~ 0 P* CHECK ATTACH PARAMETER AND NUMBER OF USERS D P* D D , P LC A1,FPB:SH,A10 SHAREABILITY PARAMETER D N P ANK A1,/FF D ~ & P RF(Z) OP:020 NO ATTACH REQUESTED D 0 P LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS) D $ P RF(Z) OP:018 FILE NOT A
0x3271cc…327360 Dummy {f00=0x00fd, f01=0x0190, f02=»QU * D * P LD A5,TTAB TTAB ADDRESS CALLING TASK E & P ST A5,FWTTAB,A6 INDICATE ATTACHED E : P* E d POP:020 EQU * E n & P LC A1,FWTPAR,A6 ACCESS PARAMETERS E P LDR A2,A1 E P ANK A1,/3F NUMBER OF USERS E P SUK A1,/3F E P ABL(NZ) OPEXIT E
0x327360…3274f4 (1, 822) Opaque[0x194]
0x3274f4…327688 # DirEnt {nam=»FMCDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fb8, f03=0x0000}
0x3274f4…327688 IdxSect {
0x3274f4…327688 f00 = 0x00fd // 0x3274f4 @0x0
0x3274f4…327688 f01 = 0x001c // 0x3274f6 @0x2
0x3274f4…327688 gno = [ // 0x3274f8 @0x4
0x3274f4…327688 [0x00]: C0x00fd.0x3.0
0x3274f4…327688 [0x01]: C0x00fe.0x0.0
0x3274f4…327688 [0x02]: C0x00fe.0x1.0
0x3274f4…327688 [0x03]: C0x00fe.0x2.0
0x3274f4…327688 [0x04]: C0x00fe.0x3.0
0x3274f4…327688 [0x05]: C0x00ff.0x0.0
0x3274f4…327688 [0x06]: C0x00ff.0x1.0
0x3274f4…327688 [0x07]: C0x00ff.0x2.0
0x3274f4…327688 [0x08]: C0x00ff.0x3.0
0x3274f4…327688 [0x09]: C0x0100.0x0.0
0x3274f4…327688 [0x0a]: C0x0100.0x1.0
0x3274f4…327688 [0x0b]: C0x0100.0x2.0
0x3274f4…327688 [0x0c]: C0x0100.0x3.0
0x3274f4…327688 [0x0d]: C0x0101.0x0.0
0x3274f4…327688 ]
0x3274f4…327688 }
0x327688…32781c Dummy {f00=0x00fd, f01=0x0190, f02=» 2 P IDENT FMCDEF REL 11.0 81-05-13 870105041100 P : P* B P* L 6 P************************************************** V P* 6 P* PHILIPS TERMINAL SYSTEM PTS * P* 6 P* FMCDEF = FILE MANAGEMENT SUBMODULE
0x32781c…3279b0 Dummy {f00=0x00fd, f01=0x0190, f02=» FMCDEF CONTAINS THE FOLLOWING MODULES P* 0 P* - CREATE CREATE FILE : P* - DELETE DELETE FILE P* - EXTEND EXTEND FILE ~ P* P* P EJECT FMCDEF P* P* P*********** P* ENTRIES * P**
0x3279b0…327b44 Dummy {f00=0x00fd, f01=0x0190, f02=» $ P ENTRY SEXTNO FILE EXTENT NUMBER P ENTRY DV3RST , P* B P EJECT FMCDEF L P* b P* l P************* v P* EXTERNALS * P************* P* P* P EXTRN FPB:BF BLOCK FACTOR P EXTRN FPB:FN FILE NAME
0x327b44…327cd8 Dummy {f00=0x00fd, f01=0x0190, f02=» t $ P EXTRN FPB:SN SOP SWITCH NUMBER ( P EXTRN FPB:KA KEY ADDRESS IN RECORD 0 P EXTRN FPB:CD CREATION DATE , P EXTRN ECBFC ECB FILE CODE (FILE NUMBER) & P EXTRN FILCOD FILE CODE SAVE AREA . P EXTRN FM:RQE FM REQUEST ERROR COMMON EXIT
0x327cd8…327e6c Dummy {f00=0x00fd, f01=0x018e, f02=»RN FM:ECB FM COMMON ECB P* P EJECT FMCDEF * P* @ P* J P EXTRN VTC:EN EXTENT NUMBER T 6 P EXTRN VOL:EL VOL.LABEL DISPL. VTOC EXTENT LENGTH x & P EXTRN VTC:FS FILE SECTION NUMBER P EXTRN VTC:EB EXTENT BASE " P EXTRN VOL
0x327e6c…328000 Dummy {f00=0x00fd, f01=0x0190, f02=» P EXTRN VTC:BF BLOCK FACTOR $ P EXTRN VTC:FO FILE ORGANISATION & P EXTRN VTC:CD CREATION DATE N ( P EXTRN VTC:IF NUMBER OF INDEX FILES r $ P EXTRN VTC:LR LAST RECORD NUMBER ( P EXTRN VTC:KA KEY ADDRESS IN RECORD P EXTRN VTC:ST STATUS B
0x328000…328194 (1, 823) Dummy {f00=0x00fe, f01=0x0190, f02=»POINTER IN FILCOD TO ACTUAL FILE CODE P* . P EJECT FMCDEF 8 P* N P* X , P EXTRN FNDVTC VTOC ENTRY FROM FILE NAME b " P EXTRN DSUMOD DOUBLE SUBTRACT P EXTRN ADDMOD DOUBLE ADD 2 P EXTRN FWTNAM FWT DISPLACEMENT FOR VOLUME NAME
0x328194…328328 Dummy {f00=0x00fe, f01=0x018e, f02=»D COMPARES TWO STRINGES , P EXTRN RETCOD RETURN CODE AREA IN FMTASK $ P EXTRN DLCLO1 CLOSE AFTER DELETE P & P EXTRN DLCLO2 CLOSE WITHOUT DELETE x , P EXTRN FWTPAR FWT PARAMETER DISPLACEMENT $ P EXTRN FWTEW1 EWT POINTER IN FWT 0 P EXTRN EWTVOL
0x328328…3284bc Dummy {f00=0x00fe, f01=0x0190, f02=» ` & P EXTRN OPEN OPEN ENTRY IN FM TASK & P EXTRN FM:MV4 MOVE FOUR CHARACTERS 2 ( P EXTRN FM:MV8 MOVE EIGHT CHARACTERS $ P EXTRN VTOCRL VTOC RECORD LENGTH & P EXTRN VTOCBF VTOC BLOCKING FACTOR $ P EXTRN OPEXT OPEN EXTENDED FILE $ P EXTRN
0x3284bc…328650 Dummy {f00=0x00fe, f01=0x0190, f02=»ENTRY x P* P EJECT FMCDEF P* . P* 8 . P****************************************** B P* t P* CONDITIONAL ASSEMBLY ~ P* . P****************************************** P* P* . P* A FULL INTRUCTION SET
0x328650…3287e4 Dummy {f00=0x00fe, f01=0x0190, f02=»ILE FUNCTION IS ( P* OBTAINED BY SETTING XTEND EQU 1. P* D PXTEND EQU 1 N PX:A EQU XTEND b P* x P EJECT FMCDEF P* P* P************* P* CONSTANTS * P************* P* P* PSPACES
0x3287e4…328978 Dummy {f00=0x00fe, f01=0x0190, f02=»* P* P**************** P* RETURN CODES * , P**************** D P* P* f $ PRC:NVL EQU /20 NEW VOLUME LOADED p $ PRC:DAB EQU /4000 DELETE ABORTED PRC:OFL EQU /10 OVER FLOW 4 PRC:SEO EQU /200+RC:OFL SECTION /EXTENT O
0x328978…328b0c Dummy {f00=0x00fe, f01=0x0190, f02=» P* 0 PSEXTNO DATA 0 FILE SECTION AND EXTENT NUMBER 0 PSAVEA9 DATA 0 SAVE AREA FOR USER ECB ADDRESS F P* z P* . P* A9 IS USED AS BASE REGISTER FOR WRKARE P* P* PWRKARE EQU * P DATA 0,0,0,0,0 VTOC RECORD
0x328b0c…328ca0 Dummy {f00=0x00fe, f01=0x0190, f02=»JECT FMCDEF P* P* : PFILLEN EQU *-WRKARE FILE SECTION LENGTH TO BE CREATED ( P DATA 0,0 f ( PVTCSEC EQU *-WRKARE VTOC BASE SECTOR x P DATA 0 , PFSATLE EQU *-WRKARE FSAT LENGTH IN BYTES P DATA 0 ( PVTCEND EQU *-WRKARE
0x328ca0…328e34 (1, 824) Dummy {f00=0x00fe, f01=0x0190, f02=»NGTH l P DATA 0,0 . PFWTSAV EQU *-WRKARE FWT ADDRESS SAVE AREA P DATA 0 P . PEXTZER EQU *-WRKARE 1ST VTOC ENTRY SECTOR ` P DATA 0 , PWRKALE EQU *-WRKARE LENGTH OF WORK AREA P* P EJECT FMCDEF P* P* . P**
0x328e34…328fc8 Dummy {f00=0x00fe, f01=0x0190, f02=» * j . P* * . P****************************************** > P* p P* PARAMETERS FROM FMTASK: z P* P* A1 = 0 6 P* A5 = TTAB ADDRESS OF CALLING TASK ( P*
0x328fc8…32915c Dummy {f00=0x00fe, f01=0x018e, f02=» P* P* PCREATE EQU * 6 P CF A14,CENTRY CLEAR WORK AREA AND SAVE PARAMETERS , P LDK A5,3 VOLUME COUNTER f PCRE:02 EQU * P LC A1,FILCOD,A5 FILE CODE P ANK A1,/FF & P RF(Z) CRE:04 NO VOLUME SPECYFIED " P LDR A2,A5 FIL
0x32915c…3292f0 Dummy {f00=0x00fe, f01=0x0190, f02=» P RB(NN) CRE:02 NEXT VOLUME 2 P ABL CDERQE REQUEST ERROR NO LENGTH SPECYFIED * P* ` P EJECT FMCDEF j P* P* P* PREPARE VTOC RECORD P* P* PCRE:06 EQU * P IFT CPU852=1 P LDR A1,A10 GET FPB AD
0x3292f0…329484 Dummy {f00=0x00fe, f01=0x0190, f02=»* P IFT CPU852=0 P ML 4,FPB:FN,A10 FILE NAME P MS 4,VTC:FN,A9 B P XIF Z P* f " P LDR* A1,A10 GET RECORD LENGTH p P ST A1,VTC:RL,A9 0 P LD A1,FPB:BF,A10 BLOCKING FACTOR, FILE ORG P ST A1,VTC:BF,A9 P* P EJE
0x329484…329618 Dummy {f00=0x00fe, f01=0x018e, f02=»9 " P CF A14,FM:MOV CRD,RET PERIOD $ P LDK A7,6 NUMBER OF CHARACTERTS 0 P SUK A3,3 ADDRESS TO CHAR X PCRE:10 EQU * z P SUK A3,2 NEXT CHARACTERS P LDR* A1,A3 P RF(Z) CRE:20 BINARY ZERO P CWK A1,/3030 NUMERICAL ZERO
0x329618…3297ac Dummy {f00=0x00fe, f01=0x0190, f02=» P DATA 11 P LDKL A8,FM:ECB ECB ADDRESS PCRE:30 EQU * 8 , P LC A2,FPB:IF,A10 NUMBER OF INDEX FILES L " P LD A1,FPB:KA,A10 KEY ADDRESS | P SC A2,VTC:IF,A9 P ST A1,VTC:KA,A9 4 P CF A14,CHKFIL CHECK FROM FIRST FILE CODE (A5=0) 2
0x3297ac…329940 Dummy {f00=0x00fe, f01=0x0190, f02=» ST A6,FWTSAV,A9 INTO SAVE AREA P* ( P EJECT FMCDEF 2 P* H P* R P* CREATE FILE SECTIONS P* | P* PCRE:40 EQU * & P CF A14,CREFIL CREATE FILE SECTION P RF(NZ) CREDEL ERROR P CWK A2,3 P RB(NG) CRE:
0x329940…329ad4 (1, 825) Dummy {f00=0x00fe, f01=0x0190, f02=»L A3,OPEN P RF EXIT10 OPEN CREATED FILE P* 6 P EJECT FMCDEF @ P* V P* ` 6 P* DELETE CREATED PARTS OF FILE IN CASE OF ERROR j P* INPUT A4 = RETURN CODE P* P* PCREDEL EQU * P SUK A4,RC:NVL $ P RF(
0x329ad4…329c68 Dummy {f00=0x00fe, f01=0x0190, f02=»CDEXIT END REQUEST P* P EJECT FMCDEF $ P* : P* D . P****************************************** N . P* * . P* DELETE ENTRY * . P*
0x329c68…329dfc Dummy {f00=0x00fe, f01=0x0190, f02=»* PDELETE EQU * 2 P CF A14,EDENTR CLEAR WORK AREA AND SAVE PARAM. $ P RF(NZ) DEL:90 ERROR END REQUEST T P LC A1,FWTPAR,A6 | P LDR A2,A1 P ANK A2,/3F NUMBER OF USERS P SUK A2,1 P RF(Z) DEL:00 ONE USER & P LDKL A4,RC:DA
0x329dfc…329f90 Dummy {f00=0x00fe, f01=0x018e, f02=»* 4 P* COLLECT FILE CODES AND DELETE FILE SECTIONS P* B P* L PDEL:00 EQU * V $ P CM FILCOD CLEAR FILE CODE AREA j P CM FILCOD+2 P ADKL A6,FWTEW1 PDEL:10 EQU * P LDR* A6,A6 P LDKL A1,-4 " P LC A2,EWTVOL,
0x329f90…32a124 Dummy {f00=0x00fe, f01=0x0190, f02=» P ANK A3,/FF . P RF(Z) DEL:30 NO MORE COLLECTED FILE CODES P CWR A3,A2 J P RB(NE) DEL:20 CHECK NEXT PDEL:30 EQU * ~ & P SC A2,FILCOD+3,A1 SAVE FILE CODE PDEL:40 EQU * P LDR* A6,A6 $ P RB(NZ) DEL:10 NEXT ENTRY IN EWT
0x32a124…32a2b8 Dummy {f00=0x00fe, f01=0x0190, f02=» PEXIT00 EQU * $ P LD A6,FWTSAV,A9 GET FWT ADDRESS PEXIT10 EQU * D $ P ORS A4,RETCOD SAVE RETURN CODE X P LDK A4,0 PEXIT20 EQU * P LD A9,SAVEA9 P ABR A3 BACK TO FMTASK PDEL:90 EQU * P LDR A1,A4 RETURN CODE
0x32a2b8…32a44c Dummy {f00=0x00fe, f01=0x0190, f02=»EQUEST P* PCDERQE EQU * " P LDKL A3,FM:RQE REQUEST ERROR , P RB EXIT20 R PCDEINE EQU * d , P LDKL A3,FM:INE ILLEGAL VOLUME/FILE NAME x P RB EXIT20 P* P EJECT FMCDEF P* P* 2 P**************************
0x32a44c…32a5e0 Dummy {f00=0x00fe, f01=0x0190, f02=»* * 2 P********************************************* 6 P* l 0 P* PARAMETERS FROM FMTASK SEE CREATE ENTRY v P* P* PEXTEND EQU * P IFT XTEND=1 4 P CF A14,EDENTR CLEAR WORK AREA MAK
0x32a5e0…32a774 (1, 826) Dummy {f00=0x00fe, f01=0x0190, f02=» SAVE LAST POINTER P LD* A5,0,A5 P RB(NZ) EXT:00 NEXT ENTRY . P LC A5,EWTSEX,A2 P P ST A5,SEXTNO SAVE FSN,FEN h P* P EJECT FMCDEF P* P* " P LD A2,FPB:EL,A10 GET ENLARGE & P RB(Z) CDERQE NO SPECYFIED LENGTH
0x32a774…32a908 Dummy {f00=0x00fe, f01=0x0190, f02=»VERFLOW t ( P LDKL A4,RC:SEO RC: SECTION OVERFLOW P RB CDEXIT < PEXT:15 EQU * N P SRL A2,6 FSN b P LC A2,FILCOD,A2 FILE CODE x & P CF A14,FNDVTC GET 1ST VTOC ENTRY P ADK A4,0 P RB(NZ) CDEXIT READ ERROR & P CF A14,RDVTO2 G
0x32a908…32aa9c Dummy {f00=0x00fe, f01=0x0190, f02=»A4,VTC:FO,A13 FILE ORGANISATION P SUK A4,'L' ( P RB(E) CDERQE L FILE < P* X P EJECT FMCDEF b P* x P* P LDR A1,A13 P LDKL A2,VTOCRL-2 " P LDR A3,A9 VTOC RECORD ADDRESS * P CF A14,FM:MOV MOVE VTOC TO WORK AREA
0x32aa9c…32ac30 Dummy {f00=0x00fe, f01=0x0190, f02=»R LAST RECORD NUMBER ~ P CM VTC:LR+2,A9 ! " P SRL A5,6 FILE SECTION NUMBER ! 4 P ADK A5,1 ! Z 2 P CF A14,CHKFIL CHECK IF FILE ALREADY IN SYSTEM ! l P RB(NZ) CDEINE ! PEXT:20 EQU * ! & P CF A14,EXTFIL EXTEND FILE SECTION ! * P RB(NZ) CDEXIT RET
0x32ac30…32adc4 Dummy {f00=0x00fe, f01=0x0190, f02=»ON NUMBER ! | 0 P LC A2,FILCOD,A5 GET CORRESPONDING FILE CODE " " P ADKL A5,FILCOD ADDRESS TO FC " F P ST A5,VOLUME " l P LDK A5,/3F " P ANS A5,SEXTNO FEN " & P LDKL A3,OPEXT OPEN EXTENDED FILE " P RB EXIT00 " P XIF " P* " P IFT X
0x32adc4…32af58 Dummy {f00=0x00fe, f01=0x018e, f02=» " P* CREFIL * # P* EXTFIL * # P********** # , P* # > P* # H > P* CREATES FILE SECTION IF FILE CODE SPECIFIED IN FILCOD # R P* # , P* INPUT : A2 = FILE SECTION NUMBER # & P* A8 = FM ECB ADDRESS # * P* A9
0x32af58…32b0ec Dummy {f00=0x00fe, f01=0x0190, f02=» # , P* OUTPUT : A4 = RETCOD = RETURN CODE $ 6 P* A2 = INCREMENTED FILE SECTION NUMBER $ 8 * P* CR SET ACCORDING TO A4 $ r P* $ PCREFIL EQU * $ * P CF A14,GETFIL GET FILE SECTION LENGTH $ 0 P RF(NZ) CEF010 DEMANDED FILE
0x32b0ec…32b280 Dummy {f00=0x00fe, f01=0x0190, f02=» 6 P LD A1,EXTLEN,A9 REST LENGTH FROM PREVIUS SECTIONS % P LD A2,EXTLEN+2,A9 % > P XIF % X P* % d P IFT CPU852=0 % n 6 P ML 2,EXTLEN,A9 REST LENGTH FROM PREVIUS SECTIONS % P XIF % P* % P CM EXTLEN,A9 % P CM EXTLEN+2,A9 % P* %
0x32b280…32b414 (1, 827) Dummy {f00=0x00ff, f01=0x0190, f02=» A1,A2 % n * P ABL(Z) CEFOUT NO LENGTH TO BE CREATED & PCEF010 EQU * & < P* & P P IFT CPU852=1 & Z 2 P ST A1,FILLEN,A9 FILE SECTION LENGTH TO CREATE & p P ST A2,FILLEN+2,A9 & 6 P CF A14,DV3RST MAKE FILE SECTION LENGTH MULT OF 3 & P LDR A6,A9 &
0x32b414…32b5a8 Dummy {f00=0x00ff, f01=0x0190, f02=»ON LENGTH TO CREATE & v . P CF A14,DV3RST MAKE FILE SECTION MULT OF 3 ' P DA FILLEN,A9 ' N P MS 2,FILLEN,A9 ' d P XIF ' | P* ' P CF A14,GET:FC GET FILE CODE ' & P RF(Z) CEFOUT NOT SPECIFIED VOLUME ' & P CF A14,VTCPAR GET VTOC PARAMETERS '
0x32b5a8…32b73c Dummy {f00=0x00ff, f01=0x0190, f02=»INPUT : A8=ECB ADDRESS ' * P* FSATBA = FSAT BASE SECTOR ( . P* FILLEN = WANTED EXTENT LENGTH ( L P* ( ~ P* ( PCEF100 EQU * ( 6 P SUR A12,A12 FLAG INDICATING FITTING EXTENT FOUND ( . P CM VTC:EL,A9 RESET MOST FIT EXTENT LENG
0x32b73c…32b8d0 Dummy {f00=0x00ff, f01=0x0190, f02=»UT DISC ERROR ( P* ) P IFT CPU852=1 ) 2 P ADKL A2,FM:BUF ADDRESS TO N:TH EXTLEN IN FSAT ) 6 P LDR A13,A2 SAVE ) l 2 P LDK A1,FILLEN ADDRESS TO WANTED EXTENT LENGTH ) P ADR A1,A9 ) P CF A14,CMPDWD ) P XIF ) P* ) P IFT CPU852=0 )
0x32b8d0…32ba64 Dummy {f00=0x00ff, f01=0x0190, f02=»TH ) x P XIF * P* * P RF(E) CEF120 EXTENT FOUND * 2 P RF(L) CEF130 FOUND EXTENT GREATER THAN WANTED * B P LDR A12,A12 * x 4 P RF(NZ) CEF160 GREATER FREE EXTENT ALREADY FOUND * P* * P EJECT FMCDEF * P* * P* * P IFT CPU852=1 *
0x32ba64…32bbf8 Dummy {f00=0x00ff, f01=0x0190, f02=» P IFT CPU852=0 + $ P ML 2,VTC:EL,A9 PRESENT MOST FIT + P DSR* A13 EXTENT LENGTH + B P XIF + b P* + n 8 P RF(NL) CEF160 NOT GREATER THAN LAST FOUND MOST FIT + x P RF CEF150 + P* + P EJECT FMCDEF + P* + P* + PCEF120 EQU * +
0x32bbf8…32bd8c Dummy {f00=0x00ff, f01=0x0190, f02=»NT FOUND + r P* , P IFT CPU852=1 , 0 P LDKL A1,VTC:EL ADDRESS TO PRESENT MOST FIT , 0 P ADR A1,A9 , d P LDR A2,A13 , v P CF A14,CMPDWD , P XIF , P* , P IFT CPU852=0 , $ P ML 2,VTC:EL,A9 PRESENT MOST FIT , P DSR* A13 EXTENT LEN
0x32bd8c…32bf20 Dummy {f00=0x00ff, f01=0x0190, f02=»50 EQU * , P* - P IFT CPU852=1 - P LDR A1,A13 MOVE FROM BUFFER - 0 P LDKL A3,VTC:EL TO WORK AREA - T P ADR A3,A9 - x P CF A14,FM:MV8 - P XIF - P* - P IFT CPU852=0 - ( P MLR 4,A13 FROM FM:BUF TO WORK AREA - P MS 4,VTC:EL,A9
0x32bf20…32c0b4 (1, 828) Dummy {f00=0x00ff, f01=0x018e, f02=»EQUAL FOUND - P* . P EJECT FMCDEF . P* . 4 P* . > PCEF160 EQU * . H & P ADK A5,FSATRL NEXT ENTRY IN FSAT . P CW A5,FSATLE,A9 . , P RB(L) CEF110 SCAN MORE ENTRIES IN FSAT . PCEF170 EQU * . P* . P IFT CPU852=1 . P LD A1
0x32c0b4…32c248 Dummy {f00=0x00ff, f01=0x0190, f02=» . P ML 2,VTC:EL,A9 / P RF(NZ) CEF200 SPACE ON DISC / P SUK A2,2 / D P XIF / V P* / b $ P ABL(NP) CEF500 NO SPACE ON DISC / l P* / P EJECT FMCDEF / P* / P* / P* UPDATE FSAT / P* / 8 P* INPUT : A6 = DISPLACEMENT
0x32c248…32c3dc Dummy {f00=0x00ff, f01=0x018e, f02=» FM:BUF = FILE MANAGEMENT BUFFER / , P* VTC:EL = FILE EXTENT LENGTH 0 . * P* VTC:EB = FILE EXTENT BASE 0 ^ P* 0 PCEF200 EQU * 0 P LDR A5,A6 GET ENTRY IN FSAT 0 P CF A14,FTREAD 0 P RF(NZ) CEFOUT READ ERROR 0 , P A
0x32c3dc…32c570 Dummy {f00=0x00ff, f01=0x0190, f02=» " P LD A1,VTC:EL,A9 EXTENT LENGTH 1 P LD A2,VTC:EL+2,A9 1 * P XIF 1 D P* 1 P P IFT CPU852=0 1 Z " P ML 2,VTC:EL,A9 EXTENT LENGTH 1 p P XIF 1 P* 1 P CF A14,DV3RST 1 P RF(Z) CEF220 NO REST 1 P* 1 P EJECT FMCDEF 1 P* 1
0x32c570…32c704 Dummy {f00=0x00ff, f01=0x0190, f02=» P SUK A1,1 A1=/FFFF 2 , P CF A14,DBLADR MAKE EXTENT MULTIPLE OF 3 2 P XIF 2 N P* 2 Z P IFT CPU852=0 2 d P SUK A2,3 -REST 2 z P SUK A1,1 /FFFF 2 P ANKL A2,/7FFF 2 P DA VTC:EL,A9 2 , P MS 2,VTC:EL,A9 EXTENT LENGTH MULT OF 3 2 P X
0x32c704…32c898 Dummy {f00=0x00ff, f01=0x0190, f02=» ADR A3,A9 2 P LDK A1,FILLEN 3 P ADR A1,A9 3 ( P CF A14,FM:MV4 3 : P XIF 3 P P* 3 P IFT CPU852=0 3 f & P ML 2,FILLEN,A9 FILE EXTENT LENGTH 3 | P MS 2,VTC:EL,A9 3 P XIF 3 P* 3 P EJECT FMCDEF 3 P* 3 P* 3 PCEF220 EQU
0x32c898…32ca2c Dummy {f00=0x00ff, f01=0x0190, f02=» RF(NZ) CEF230 REST EXTENT LENGTH GREATER 3 $ P CF A14,CLFSAT CLEAR FSAT ENTRY 4 2 P RF CEF240 4 Z PCEF230 EQU * 4 l P* 4 P IFT CPU852=1 4 P LDKL A3,FM:BUF+4 4 P ADR A3,A5 4 & P LDKL A6,VTC:EL EXTENT BASE+LENGTH 4 P ADR A6,A9 4 : P
0x32ca2c…32cbc0 Dummy {f00=0x00ff, f01=0x0190, f02=»VTC:EL,A9 4 : P MS 2,FM:BUF+4,A5 NEW EXT BASE=EXTBAS+CREATED EXTBASE 5 P XIF 5 P P* 5 PCEF240 EQU * 5 f P CF A14,CDEWRI WRITE 5 z P RF(Z) CEF350 WRITE OK 5 PCEFOUT EQU * 5 " P CM EXTZER,A9 1ST VTOC POINTER 5 P IM VTC:FS,A9 NEXT SECTION
0x32cbc0…32cd54 (1, 829) Dummy {f00=0x00ff, f01=0x0190, f02=»STER 5 r P* 6 P EJECT FMCDEF 6 P* 6 , P* 6 6 $ P* SEARCH FOR FREE VTOC ENTRIES 6 @ P* 6 h P* 6 r * P* INPUT : VTCSEC = VTOC BASE SECTOR 6 | * P* VTCEND = VTOC LAST SECTOR 6 " P* FM:BUF = FM BUFFER 6 P* 6 P
0x32cd54…32cee8 Dummy {f00=0x00ff, f01=0x0190, f02=»3,FM:BUF BUFFER ADDRESS 6 P* 7 P EJECT FMCDEF 7 * P* 7 @ P* 7 J PCEF320 EQU * 7 T & P LD A4,VTC:ST,A13 VTOC STATUS BYTE 7 h P ANK A4,/FF 7 ( P RF(Z) CEF400 FREE VTOC ENTRY FOUND 7 ( P LDKL A1,VTC:FN ADDRESS TO FILE NAME 7 P ADR A1,A9
0x32cee8…32d07c Dummy {f00=0x00ff, f01=0x018e, f02=»EXTENT NUMBER 7 ~ P RF(NZ) CEF340 NOT 1ST 8 ( P LD A1,VTCSEC,A9 VTOC SECTOR NUMBER 8 4 P ST A1,EXTZER,A9 8 ` PCEF340 EQU * 8 x & P ADKL A13,VTOCRL NEXT VTOC ADDRESS 8 P SUK A7,1 8 , P RB(P) CEF320 MORE VTOC:S ON THIS SECTOR 8 " P IM VTCSEC,A9 NE
0x32d07c…32d210 Dummy {f00=0x00ff, f01=0x0190, f02=» 8 n & P LDK A4,RC:OFL RC: NO MORE VOLUMES 9 P RB CEFOUT 9 2 P* 9 D P EJECT FMCDEF 9 N P* 9 d P* 9 n P* CREATE A VTOC 9 x P* 9 " P* INPUT : A10 = FPB ADDRESS 9 ( P* A13 = VTOC ENTRY ADDRESS 9 $ P* A8 = FM:ECB AD
0x32d210…32d3a4 Dummy {f00=0x00ff, f01=0x018e, f02=» $ P LC A1,FPB:MN,A10 MONITOR NUMBER : P ECR A1,A1 : , " P LC A1,FPB:SN,A10 START SWITCH : > P ST A1,VTC:MN,A9 VTOC : d P CM VTC:KA,A9 KEY ADDRESS : PCEF450 EQU * : P LDR A3,A13 MOVE VTOC : P LDKL A2,VTOCRL : " P LDR A1,A9 VTOC RECORD ADD
0x32d3a4…32d538 Dummy {f00=0x00ff, f01=0x0190, f02=» P* ; " P IM VTC:EN,A9 NEXT FILE EXTENT ; @ P LDK A3,FILLEN ADDRESS TO FILE SECTION LENGTH TO BE CREATED ; 4 P ADR A3,A9 ; x P CF A14,DBLSU1 SUBTRACT ; $ P RF(Z) CEF600 FILE SECTION READY ; & P LC A4,VTC:FO,A9 FILE ORGANISATION ; P SUK A4,'L'
0x32d538…32d6cc Dummy {f00=0x00ff, f01=0x018e, f02=» ; d PCEF470 EQU * < . P LDKL A4,RC:SEO RC: TOO MANY FILE EXTENTS < $ P RF CEF510 TOO MANY FILE EXTENTS < N P* < v P EJECT FMCDEF < P* < P* < PCEF500 EQU * < & P LDK A4,RC:OFL RC: NO MORE VOLUMES < PCEF510 EQU * < , P LD A5,VTC:F
0x32d6cc…32d860 Dummy {f00=0x00ff, f01=0x0190, f02=» < p " P LC A1,FILCOD,A5 GET FILE CODE = P ANK A1,/FF = . P RB(Z) CEF520 NEXT VOLUME = B P LDR A2,A5 = d & P CF A14,GETFIL FILE SECTION LENGTH = v P RB(NZ) CEF520 NO REST PILE = PCEF530 EQU * = P LDK A4,0 RESET CR = P* = P IFT CPU852=
0x32d860…32d9f4 (1, 830) Dummy {f00=0x00ff, f01=0x0190, f02=» = P* > P IFT CPU852=0 > P ML 2,EXTLEN,A9 SAVE REST > ( P DA FILLEN,A9 > J P MS 2,EXTLEN,A9 > ` P XIF > x P* > P EJECT FMCDEF > P* > P* > PCEF600 EQU * > . P LD A2,EXTZER,A9 1ST EXTENT VTOC SECTOR NO > $ P RF(NZ) CE
0x32d9f4…32db88 Dummy {f00=0x00ff, f01=0x0190, f02=»,FWTSAV,A9 GET FILE NAME BASE > & P CF A14,RDVTO2 SCAN FOR FIRST VTOC ? & P ADK A4,0 ? P P RF(NZ) CEF900 READ ERROR ? b ( P LD A1,VTC:EN,A9 LAST EXTENT NUMBER ? . P SC A1,VTC:NE,A13 UPDATE NUMBER OF EXTENTS ? P CF A14,CDEWRI ? PCEF900 EQU * ?
0x32db88…32dd1c Dummy {f00=0x00ff, f01=0x0190, f02=» 4 P* COLLECT ADJECENT EXTENDS AND CREATE ONE NEW @ P* @ < > P* INPUT : FWTSAV = FWT ADDRESS OR ADJUSTED FPB ADDRESS @ F 8 P* THAT IS (FILENAME)=(FWTSAV)+FWTNAM @ $ P* A8 = FM:ECB ADDRESS @ 4 P* FILCOD = AREA C
0x32dd1c…32deb0 Dummy {f00=0x00ff, f01=0x018e, f02=» FILE CODE @ ~ ( P RF(Z) DELF03 NO SPECIFIED FILE CODE A & P CF A14,VTCPAR GET VTOC PARAMETERS A > P RF(NZ) DELF03 ERROR A h PDELF00 EQU * A $ P LD A6,FWTSAV,A9 GET FWT ADDRESS A & P LD A12,VTCEND,A9 VTOC END SECTOR A ( P LD A2,VTCSEC,A9 PRESENT VTOC
0x32deb0…32e044 Dummy {f00=0x00ff, f01=0x018e, f02=» A p P ADK A4,0 B " P RF(Z) DELF05 NEXT VTOC ENTRY B P* B @ P EJECT FMCDEF B J P* B ` P* B j PDELF03 EQU * B t P ORS A4,RETCOD B $ P IM VTC:FS,A9 NEXT FILE SECTION B P LD A1,VTC:FS,A9 B P SUK A1,4 B $ P RB(N) DELFIL NEXT FILE
0x32e044…32e1d8 Dummy {f00=0x00ff, f01=0x0190, f02=» 2 P* VTC:EL = END SECTOR OF CREATED FREE SPACE C P* C : P* C D PDELF05 EQU * C N P LDKL A1,SPACES C b $ P STR A1,A13 SPACES IN FILE NAME C z P ST A1,2,A13 C P ST A1,4,A13 C P ST A1,6,A13 C P CM VTC:ST,A13 FREE ENTRY C $ P LD A1,V
0x32e1d8…32e36c Dummy {f00=0x00ff, f01=0x0190, f02=»NO C P* D P EJECT FMCDEF D P* D * P* D 4 PDELF08 EQU * D > P* D R P IFT CPU852=1 D & P LDKL A1,VTC:EL GET EXTENT LENGTH D r 6 P ADR A1,A13 MOVE EXT LEN AND EXT BASE TO WORK AREA D P LDKL A3,VTC:EL D P ADR A3,A9 D P CF A14,
0x32e36c…32e500 Dummy {f00=0x00ff, f01=0x0190, f02=» D 6 P CF A14,DBLADD VTC:EL=EXTENT BASE + EXTENT LENGTH E P XIF E B P* E N P IFT CPU852=0 E X P ML 4,VTC:EL,A13 E n & P DAR A3 VTC:EL=EXT BASE+EXT LENGTH E P MS 4,VTC:EL,A9 E P XIF E P* E P CF A14,CDEWRI WRITE E P RB(NZ) DELF03
0x32e500…32e694 (1, 831) Dummy {f00=0x0100, f01=0x0190, f02=»12 POINTER IN FSAT E PDELF10 EQU * F $ P LDR A5,A12 DISPLACEMENT IN FSAT F . P CF A14,FSREAD F V P RB(NZ) DELF03 READ ERROR F l P* F P EJECT FMCDEF F P* F P* F ( P* EXTLEN = FSAT EXTENT BASE+LENGTH F P* F P* F & P ANK A
0x32e694…32e828 Dummy {f00=0x0100, f01=0x0190, f02=»A1,FM:BUF+4 MOVE EXTENT BASE FROM FSAT F P ADR A1,A5 G . P CF A14,FM:MV4 G @ ( P LDK A3,EXTLEN ADDRESS TO SAVE AREA G V P ADR A3,A9 G * P CF A14,DBLAD1 FSAT EXTENT BASE+LENGTH G P XIF G P* G P IFT CPU852=0 G P ML 2,FM:BUF+4,A5 G P
0x32e828…32e9bc Dummy {f00=0x0100, f01=0x0190, f02=»ACENT FREE SPACE G v P* H P* H " P IFT CPU852=1 H , * P LDR A1,A3 ADDRESS TO FSAT BASE+LENGTH H B P LDKL A2,VTC:EB EXTENT BASE H p P ADR A2,A9 H : P CF A14,CMPDWD CHECK IF FSAT EXTBASE = EXTBASE+EXTLEN H P XIF H P* H P IFT CPU852=0
0x32e9bc…32eb50 Dummy {f00=0x0100, f01=0x0190, f02=» IFT CPU852=1 H P LDKL A3,VTC:EB I P ADR A3,A9 I . 0 P LDKL A1,FM:BUF+4 MOVE EXTENT BASE TO VTC:EB I @ P ADR A1,A5 I t P CF A14,FM:MV4 I P XIF I P* I P IFT CPU852=0 I P ML 2,FM:BUF+4,A5 I P MS 2,VTC:EB,A9 I P XIF I P*
0x32eb50…32ece4 Dummy {f00=0x0100, f01=0x0190, f02=»PACE I j P* J P* J PDELF30 EQU * J P* J 4 P IFT CPU852=1 J > , P LDKL A1,FM:BUF+4 FSAT EXTENT BASE ENTRY J T P ADR A1,A5 DISPLACEMENT J . P LDKL A2,VTC:EL EXTENTBASE + EXTENT LENGTH J P ADR A2,A9 J $ P CF A14,CMPDWD CHECK IF ADJECENT
0x32ece4…32ee78 Dummy {f00=0x0100, f01=0x0190, f02=» J f P XIF K P* K P RF(NE) DELF40 NOT ADJECENT K P* K B P IFT CPU852=1 K L " P LDKL A3,VTC:EL EXPAND EXTLEN K b P ADR A3,A9 K P CF A14,DBLAD1 K P XIF K P* K P IFT CPU852=0 K P ML 2,VTC:EL,A9 K P DA FM:BUF,A5 K
0x32ee78…32f00c Dummy {f00=0x0100, f01=0x0190, f02=»B(NZ) DELF03 WRITE ERROR K PDELF40 EQU * L ( P ADKL A12,FSATRL NEXT ENTRY IN FSAT L 4 P CW A12,FSATLE,A9 L ` * P RB(L) DELF10 CONTINUE SEARCH OF FSAT L z P* L P EJECT FMCDEF L P* L P* L : P* PUT FREE SPACE IN FSAT SEARCH FOR FREE F
0x32f00c…32f1a0 Dummy {f00=0x0100, f01=0x0190, f02=»ROR L z & P LDR A12,A2 DISPLACEMENT IN BUFFER M P ADKL A12,FM:BUF ADDRESS M 6 P LDR A1,A12 M V P CF A14,GETPAR GET EXT LEN M j " P RF(Z) DELF60 FREE FSAT ENTRY M P ADK A5,FSATRL M P CW A5,FSATLE,A9 M P RB(NG) DELF50 M 0 P LDK A4,RC:OFL RC:
0x32f1a0…32f334 (1, 832) Dummy {f00=0x0100, f01=0x018e, f02=»EF M P* N P* N PDELF60 EQU * N P* N 2 P IFT CPU852=1 N < P LDKL A3,VTC:EL EXTENT END N R P ADR A3,A9 N t * P LDKL A6,VTC:EB ADDRESS TO EXTENT BASE N P ADR A6,A9 N $ P CF A14,DBLSUB GET EXTENT LENGTH N * P LDR A3,A12 ADDRESS TO FRE
0x32f334…32f4c8 Dummy {f00=0x0100, f01=0x0190, f02=» P XIF O P* O P IFT CPU852=0 O P ML 4,VTC:EL,A9 O 0 P DSR A3 O H P MSR 4,A12 UPDATE FSAT O X P XIF O v P* O P CF A14,CDEWRI WRITE O P RF(NZ) DELF80 ERROR O P IM FEXTNO O PDELF70 EQU * O P ABL(NZ) DELF00 NEXT EXTENT O
0x32f4c8…32f65c Dummy {f00=0x0100, f01=0x0190, f02=»SUBROUTINES * O P*************** P P* P . P* P 8 P********** P B P* DV3RST * P T P********** P f P* P x P* P ( P* CALCULATES REST WHEN DIVIDE BY 3 P P* P " P* INPUT : A1,A2 = DIVIDENT P P* P 2 P* OUTPUT : A2 = 3
0x32f65c…32f7f0 Dummy {f00=0x0100, f01=0x018e, f02=»QU * P P LDR A1,A2 Q " P ANK A1,3 ONE FIGURE IN BASE 4 Q P SRL A2,2 Q D 2 P ADR A2,A1 ADDED TO REST OF FIGURES IN BASE 4 Q V P RF(Z) SET2CR REST = 0 Q P SUK A2,3 Q " P RB(P) DV3R10 CONTINUE TO ADD Q P NGR A2,A2 Q P RF SET2CR Q P*
0x32f7f0…32f984 Dummy {f00=0x0100, f01=0x0190, f02=» Q P* GET FILE SECTION LENGTH R P* R , ( P* INPUT : A2 = FILE SECTION NUMBER R 6 P* A10 = FPB ADDRESS R b P* R , P* OUTPUT: A1,A2 = FILE SECTION LENGTH R : P* CR SET ACCORDING TO FILE SECTION LENGTH R P* R P
0x32f984…32fb18 Dummy {f00=0x0100, f01=0x0190, f02=»S TO FILE SECTION LENGTH R ~ , P ADKL A1,FPB:S1 SIZE DISPLACEMENT IN FPB S PGETPAR EQU * S P & P LD A2,2,A1 LEAST SIGNIFICANT PART S d & P LDR* A1,A1 MOST SIGNIFICANT PART S P RF DBLX00 SET CR S P* S P IFT CPU852=1 S P EJECT FMCDEF S P
0x32fb18…32fcac Dummy {f00=0x0100, f01=0x0190, f02=»UBLE ADD ON MEMORY LOCATIONS S 0 P* DOUBLE ADD ON MEMORY BY REGISTERS A1,A2 T $ P* T X & P* INPUT : A3 = ADDRESS TO ARG1 T b & P* A6 = ADDRESS TO ARG2 T P* T , P* OUTPUT: A3 = ADDRESS TO ARG1 + ARG2 T " P* A1,A2 = ARG
0x32fcac…32fe40 Dummy {f00=0x0100, f01=0x0190, f02=» PDBLADD EQU * U P LDR* A1,A3 GET ARG1 U P LD A2,2,A3 U 4 PDBLADR EQU * U H P LD A7,2,A6 GET ARG2 U P LDR* A6,A6 U x P CF A14,ADDMOD ARG1+ARG2 U P RF DBLXIT U P XIF U P* U P EJECT FMCDEF U P* U P* U P**********
0x32fe40…32ffd4 (1, 833) Dummy {f00=0x0100, f01=0x0190, f02=»PUT : A3 = ADDRESS TO ARG1 U & P* A6 = ADDRESS TO ARG2 V $ P* V N * P* OUTPUT: A3 = ADDRESS TO ARG1-ARG2 V X " P* A1,A2 = ARG1-ARG2 V $ P* A6,A7 ARE DESTOIED V & P* IF A1=A2=0 THEN A3=0 V P* V P
0x32ffd4…330168 Dummy {f00=0x0100, f01=0x0190, f02=»,A3 ARG1 V P LD A2,2,A3 W P LD A7,2,A6 ARG2 W $ P LDR* A6,A6 W < P CF A14,DSUMOD ARG1-ARG2 W P P XIF W p P* W | P IFT CPU852=0 W P MLR 2,A3 W P DSR* A6 W P XIF W P* W P EJECT FMCDEF W P* W P* W PDBLXIT EQU
0x330168…3302fc Dummy {f00=0x0100, f01=0x018e, f02=» MSR 2,A3 W P XIF X P* X PDBLX00 EQU * X ( P ADKL A14,4 X < P ADK A1,0 X P P RF(NZ) DBLX10 X b P ADK A2,0 X x PDBLX10 EQU * X P ABR* A14 X P* X P EJECT FMCDEF X P* X P* X P********** X P* GET:FC * X P
0x3302fc…330490 Dummy {f00=0x0100, f01=0x018e, f02=» X P* OUTPUT : A2 = FILE CODE Y . P* CR SET ACCORDING TO FILECODE Y , P* Y ^ P* Y h PGET:FC EQU * Y r , P LD A2,VTC:FS,A9 GET FILE SECTION NUMBER Y P LC A2,FILCOD,A2 FILE CODE Y PSET2CR EQU * Y P LDK A1,0 Y & P RB DBLX00
0x330490…330624 Dummy {f00=0x0100, f01=0x018e, f02=» P* Z P* PERFORM WRITE Z P* Z ( P* INPUT: A8=ECB ADDRESS Z 2 P* A7 USED Z T P* OUTPUT: A4=RETURN CODE Z n 0 P* CR SET ACCORDING TO RETURN CODE Z P* Z P* Z PCDEWRI EQU * Z P LDK A7,/95 Z P CF A14,
0x330624…3307b8 Dummy {f00=0x0100, f01=0x0190, f02=» 0 P* CLEAR 4 WORDS IN FM:BUF SPECIFIED BY A5 [ P* [ 8 , P* INPUT : A5 = DISPLACEMENT IN FM:BUF [ B P* [ r PCLFSAT EQU * [ | P CM FM:BUF,A5 [ P CM FM:BUF+2,A5 [ P CM FM:BUF+4,A5 [ P CM FM:BUF+6,A5 [ P RTN A14 [ P* [ P
0x3307b8…33094c Dummy {f00=0x0100, f01=0x0190, f02=»ELETE AND EXTEND PREPARATION ROUTINE [ . P* CLEAR WORK AREA AND SAVES TTAB ADDRESS , P* ^ 2 P* INPUT : A5 = TTAB ADDRESS OF CALLING TASK h " P* REGISTER A3 USED P* " P* OUTPUT : A4=RC FROM FCHEC2 ( P* CR SET
0x33094c…330ae0 Dummy {f00=0x0100, f01=0x018e, f02=»RY EQU * ENTRY USED BY CREATE P LDK A3,WRKALE-2 ] & PCDEE05 EQU * ] > P CM WRKARE,A3 ] R P SUK A3,2 ] h P RB(NN) CDEE05 ] z ( P ST A9,SAVEA9 SAVE USER ECB ADDRESS ] P LDKL A9,WRKARE BASE ADDRESS ] & P ST A6,FWTSAV,A9 SAVE FWT ADDRESS ]
0x330ae0…330c74 (1, 834) Dummy {f00=0x0100, f01=0x0190, f02=» P********** ^ P* FSREAD * ^ P* FTREAD * ^ ( P********** ^ : P* ^ L B P* FSREAD: READ FSAT SECTOR IF 1ST ENTRY IN SECTOR REQUESTED ^ V P* FTREAD: READ FSAT SECTOR ^ P* ^ ( P* INPUT : A5 = FSAT DISPLACEMENT ^ * P* FSATB
0x330c74…330e08 Dummy {f00=0x0100, f01=0x0190, f02=» ^ ^ * P* CR IS SET TO ZERO IF A4=0 _ P* _ 6 PFSREAD EQU * _ @ P LDK A4,0 RESET RETURN CODE _ T P LDR A2,A5 DISPLACEMENT _ x P ANK A2,/F8 _ & P RF(NZ) SET:CR NOT FIRST IN SECTOR _ PFTREAD EQU * _ P ECR A2,A5 SECTOR NUMBER _
0x330e08…330f9c Dummy {f00=0x0100, f01=0x0190, f02=» $ P ADKL A14,4 UPDATE STACK POINTER ` P ADK A4,0 SET CR ` , P ABR* A14 RETURN ` D P* ` P EJECT FMCDEF ` f P* ` | P* ` P********** ` P* VTCPAR * ` P********** ` P* ` . P* GET FSAT LENGTH IN BYTES TO WORK AREA ` * P*
0x330f9c…331130 Dummy {f00=0x0100, f01=0x0190, f02=»INPUT : A8 = FM:ECB ADDRESS ` P* A2 = FILE CODE a $ " P* OUTPUT: A4 = 0 IF READ OK a H & P* A4<> 0 IF READ NOT OK a n ( P* CR SET ACCORDING TO A4 a * P* USED REGISTERS A1, A2, A3, A4, A7 a P* a PVTCPAR EQU *
0x331130…3312c4 Dummy {f00=0x0100, f01=0x0190, f02=»ERROR a | " P LDKL A2,FM:BUF BUFFER ADDRESS b P LD A1,VOL:EB,A2 VTOC BASE b 4 & P ST A1,FSATBA,A9 FSAT BASE SECTOR b V P LD A3,VOL:EL,A2 VTOC LENGTH b P LD A2,VOL:FS,A2 FSAT LENGTH b P ADR A3,A1 b P ADR A1,A2 b P ECR A2,A2 b P* b P
0x3312c4…331458 Dummy {f00=0x0100, f01=0x0190, f02=»N BYTES b r $ P ST A3,VTCEND,A9 VTOC END SECTOR c P XIF c 8 P* c D P IFT CPU852=0 c N P MS 3,VTCSEC,A9 c d P XIF c | P* c P RB SET:CR c P* c P EJECT FMCDEF c P* c P* c P********** c P* CHKFIL * c P********** c
0x331458…3315ec Dummy {f00=0x0100, f01=0x0190, f02=»OD c j . P* FILCOD - AREA WITH FILE CODES d ( P* OUTPUT: A2 = 0 IF NO FILE FOUND d < & P* A2 <> 0 IF FILE FOUND d h ( P* CR SET ACCORDING TO A2 d , P* A1-A7 AND A11-A13 ARE USED d P* d P* d PCHKFIL
0x3315ec…331780 Dummy {f00=0x0100, f01=0x4150, f02=» CHKF20 NEXT FILE CODE d P LDR A6,A9 e P SUKL A6,FWTNAM e 0 P CF A14,FNDVTC e H P ADK A4,0 e ^ P ABL(NZ) CDEXIT DISC ERROR e p P ADK A2,0 e * P RB(NZ) SET2CR FILE IN ONE OF VOLUMES e PCHKF20 EQU * e P ADK A5,1 e ( P RB(NP) CHKF10 N
0x331780…331914 (1, 835) Dummy {f00=0x0101, f01=0x2008, f02=» f NT FMCDEF 80-01-09 PRR 11.0 CHLO END 4 :E0F @ KPF /S L ASG 2,TY10 Z LED FMCDEF l !!DL 1 ~ 11EN !!AB BEA FMCDEF ASG 2,TY10 BYE @
0x331914…331aa8 Dummy {f00=0x0101, f01=0x0000, f02=»
[…0x6…]
0x332420…3325b4 (1, 836) Opaque[0x194]
0x3325b4…332748 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2028, f03=0x0000}
0x3325b4…332748 IdxSect {
0x3325b4…332748 f00 = 0x0101 // 0x3325b4 @0x0
0x3325b4…332748 f01 = 0x0012 // 0x3325b6 @0x2
0x3325b4…332748 gno = [ // 0x3325b8 @0x4
0x3325b4…332748 [0x00]: C0x0101.0x1.0
0x3325b4…332748 [0x01]: C0x0101.0x2.0
0x3325b4…332748 [0x02]: C0x0101.0x3.0
0x3325b4…332748 [0x03]: C0x0102.0x0.0
0x3325b4…332748 [0x04]: C0x0102.0x1.0
0x3325b4…332748 [0x05]: C0x0102.0x2.0
0x3325b4…332748 [0x06]: C0x0102.0x3.0
0x3325b4…332748 [0x07]: C0x0103.0x0.0
0x3325b4…332748 [0x08]: C0x0103.0x1.0
0x3325b4…332748 ]
0x3325b4…332748 }
0x332748…3328dc Dummy {f00=0x0101, 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**********************
0x3328dc…332a70 Dummy {f00=0x0101, 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
0x332a70…332c04 Dummy {f00=0x0101, 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
0x332c04…332d98 Dummy {f00=0x0101, 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 *
0x332d98…332f2c Dummy {f00=0x0101, 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
0x332f2c…3330c0 Dummy {f00=0x0101, 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
0x3330c0…333254 (1, 837) Dummy {f00=0x0101, 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
0x333254…3333e8 Dummy {f00=0x0101, 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
0x3333e8…33357c Dummy {f00=0x0101, f01=0x0190, f02=»NSTRUCTION h . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* D PCPU852 EQU 1 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*
0x33357c…333710 Dummy {f00=0x0101, 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
0x333710…3338a4 Dummy {f00=0x0101, 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
0x3338a4…333a38 Dummy {f00=0x0101, 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
0x333a38…333bcc Dummy {f00=0x0101, 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
0x333bcc…333d60 Dummy {f00=0x0101, 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
0x333d60…333ef4 (1, 838) Dummy {f00=0x0101, 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
0x333ef4…334088 Dummy {f00=0x0101, 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
0x334088…33421c Dummy {f00=0x0101, 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
0x33421c…3343b0 Dummy {f00=0x0101, 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
0x3343b0…334544 Dummy {f00=0x0101, 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
0x334544…3346d8 Dummy {f00=0x0101, 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),
0x3346d8…33486c Dummy {f00=0x0101, 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
0x33486c…334a00 Dummy {f00=0x0101, 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
0x334a00…334b94 (1, 839) Dummy {f00=0x0102, 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
0x334b94…334d28 Dummy {f00=0x0102, 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
0x334d28…334ebc Dummy {f00=0x0102, 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
0x334ebc…335050 Dummy {f00=0x0102, 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
0x335050…3351e4 Dummy {f00=0x0102, 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
0x3351e4…335378 Dummy {f00=0x0102, 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)
0x335378…33550c Dummy {f00=0x0102, 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
0x33550c…3356a0 Dummy {f00=0x0102, 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
0x3356a0…335834 (1, 840) Dummy {f00=0x0102, 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
0x335834…3359c8 Dummy {f00=0x0102, 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
0x3359c8…335b5c Dummy {f00=0x0102, 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
0x335b5c…335cf0 Dummy {f00=0x0102, 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 ! (
0x335cf0…335e84 Dummy {f00=0x0102, 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
0x335e84…336018 Dummy {f00=0x0102, 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
0x336018…3361ac Dummy {f00=0x0102, 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) $
0x3361ac…336340 Dummy {f00=0x0102, 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
0x336340…3364d4 (1, 841) Dummy {f00=0x0102, 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*
0x3364d4…336668 Dummy {f00=0x0102, 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
0x336668…3367fc Dummy {f00=0x0102, 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
0x3367fc…336990 Dummy {f00=0x0102, 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
0x336990…336b24 Dummy {f00=0x0102, 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
0x336b24…336cb8 Dummy {f00=0x0102, 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
0x336cb8…336e4c Dummy {f00=0x0102, 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
0x336e4c…336fe0 Dummy {f00=0x0102, 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
0x336fe0…337174 (1, 842) Dummy {f00=0x0102, 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,
0x337174…337308 Dummy {f00=0x0102, 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
0x337308…33749c Dummy {f00=0x0102, 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
0x33749c…337630 Dummy {f00=0x0102, 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
0x337630…3377c4 Dummy {f00=0x0102, 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
0x3377c4…337958 Dummy {f00=0x0102, 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
0x337958…337aec Dummy {f00=0x0102, 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
0x337aec…337c80 Dummy {f00=0x0102, 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
0x337c80…337e14 (1, 843) Dummy {f00=0x0103, 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
0x337e14…337fa8 Dummy {f00=0x0103, 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
0x337fa8…33813c Dummy {f00=0x0103, 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
0x33813c…3382d0 Dummy {f00=0x0103, 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*
0x3382d0…338464 Dummy {f00=0x0103, 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 (
0x338464…3385f8 Dummy {f00=0x0103, 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 *
0x3385f8…33878c Dummy {f00=0x0103, 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
0x33878c…338920 Dummy {f00=0x0103, 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
0x338920…338ab4 (1, 844) Dummy {f00=0x0103, 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
0x338ab4…338c48 Dummy {f00=0x0103, 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 ?
0x338c48…338ddc Dummy {f00=0x0103, 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
0x338ddc…338f70 Dummy {f00=0x0103, 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
0x338f70…339104 Dummy {f00=0x0103, 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
0x339104…339298 Dummy {f00=0x0103, 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
0x339298…33942c Dummy {f00=0x0103, 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*
0x33942c…3395c0 Dummy {f00=0x0103, f01=0x0190, f02=» T z P RES 30 U @ PSAREA2 RES STCKLN BEGIN OF STACK AREA U $ > PFWA2 RES FWALN FUNCTION WORK AREA U h , P**************************************** U P U , P**************************************
0x3395c0…339754 (1, 845) Opaque[0x194]
0x339754…3398e8 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2070, f03=0x0000}
0x339754…3398e8 IdxSect {
0x339754…3398e8 f00 = 0x0103 // 0x339754 @0x0
0x339754…3398e8 f01 = 0x0004 // 0x339756 @0x2
0x339754…3398e8 gno = [ // 0x339758 @0x4
0x339754…3398e8 [0x00]: C0x0103.0x2.0
0x339754…3398e8 [0x01]: C0x0103.0x3.0
0x339754…3398e8 ]
0x339754…3398e8 }
0x3398e8…339a7c Dummy {f00=0x0103, 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
0x339a7c…339c10 Dummy {f00=0x0103, 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
0x339c10…339da4 Dummy {f00=0x0103, 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
0x339da4…339f38 Dummy {f00=0x0103, 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
0x339f38…33a0cc Dummy {f00=0x0103, f01=0x0190, f02=»OCK/UNLOCK SEGMENT P DATA TLDSEG SEGMENT TLDSEG P DATA TABORT ABORT FUNCTION > P DATA TDATE GET/SET DATE b 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DATA TIOFM FILE MANAGEM
0x33a0cc…33a260 Dummy {f00=0x0103, f01=0x410a, f02=»TSWBLK LOAD SWAPPABLE WORK BLOCK , P DATA TSWBLK STORE SWAPPABLE WORK BLOCK ( P DATA TMOVE MOVE X P DATA TENEDM TENDIO FOR EDM p P DATA 0 P DATA 0 P DATA TLDPGM P DATA TPAGAL PLKMALE EQU * P* P END @
0x33a260…33a3f4 (1, 846) Dummy {f00=0x0103, 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
0x33a3f4…33a588 Dummy {f00=0x0103, f01=0x0190, f02=» P* P* A1 = 0 6 P* A5 = TTAB ADDRESS OF CALLING TASK , ( P* A8 = FM ECB ADDRESS f * P* A9 = USER ECB ADDRESS 6 P* A10 = FILE PARAMETER BLOCK ADDRESS P* P*
0x33a588…33a71c Dummy {f00=0x0103, f01=0x0190, f02=» LC A1,FILCOD,A5 FILE CODE P ANK A1,/FF " & P RF(Z) CRE:04 NO VOLUME SPECYFIED 6 " P LDR A2,A5 FILE SECTION NUMBER ` $ P CF A14,GETFIL REQUESTED LENGTH $ P RF(NZ) CRE:06 LENGTH SPECYFIED PCRE:04 EQU * P SUK A5,1 P RB(NN) CRE:
0x33a71c…33a8b0 Dummy {f00=0x0103, f01=0x0190, f02=»ARE VTOC RECORD P* P* " PCRE:06 EQU * , P IFT CPU852=1 @ P LDR A1,A10 GET FPB ADDRESS V * P ADKL A1,FPB:FN FILE NAME DISPLACEMENT z P LDR A3,A9 VTOC ADDRESS P CF A14,FM:MV8 FILE NAME P XIF P* P IFT CPU85
0x33a8b0…33aa44 Dummy {f00=0x0103, f01=0x0190, f02=»,VTC:RL,A9 0 P LD A1,FPB:BF,A10 BLOCKING FACTOR, FILE ORG P ST A1,VTC:BF,A9 F P* ^ P EJECT FMCDEF h P* ~ P* P LDR A1,A10 P ADKL A1,FPB:CD CRD P LDR A3,A9 P ADKL A3,VTC:CD P LDK A2,9 " P CF A14,FM
0x33aa44…33abd8 Dummy {f00=0x0103, f01=0x0190, f02=» CHARACTERS P LDR* A1,A3 P RF(Z) CRE:20 BINARY ZERO ( P CWK A1,/3030 NUMERICAL ZERO J P RF(NE) CRE:30 n PCRE:20 EQU * P SUK A7,2 COUNTER P RB(NZ) CRE:10 P LDR A8,A3 ADDRESS TO CRD P LKM P DATA 11 P L
0x33abd8…33ad6c Dummy {f00=0x0103, f01=0x018e, f02=» P SC A2,VTC:IF,A9 P ST A1,VTC:KA,A9 4 P CF A14,CHKFIL CHECK FROM FIRST FILE CODE (A5=0) 4 2 P RF(NZ) CDEINE FILE ALREADY IN ONE OF VOLUMES l P LDR A6,A10 FPB ADDRESS P ADKL A6,FPB:FN P SUKL A6,FWTNAM $ P ST A6,FWTSAV,A9 INTO
0x33ad6c…33af00 Dummy {f00=0x0103, f01=0x0190, f02=» & P CF A14,CREFIL CREATE FILE SECTION P RF(NZ) CREDEL ERROR 2 P CWK A2,3 N P RB(NG) CRE:40 NEXT SECTION ` 8 P LD A5,VOLUME FILE SECTION OF FIRST SPECYFIED VOLUME P LCR A7,A5 FILE CODE P ANK A7,/FF P LDKL A3,OPEN P R
0x33af00…33b094 (1, 847) Opaque[0x194]
0x33b094…33b228 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2080, f03=0x0000}
0x33b094…33b228 IdxSect {
0x33b094…33b228 f00 = 0x0104 // 0x33b094 @0x0
0x33b094…33b228 f01 = 0x000c // 0x33b096 @0x2
0x33b094…33b228 gno = [ // 0x33b098 @0x4
0x33b094…33b228 [0x00]: C0x0104.0x0.0
0x33b094…33b228 [0x01]: C0x0104.0x1.0
0x33b094…33b228 [0x02]: C0x0104.0x2.0
0x33b094…33b228 [0x03]: C0x0104.0x3.0
0x33b094…33b228 [0x04]: C0x0105.0x0.0
0x33b094…33b228 [0x05]: C0x0105.0x1.0
0x33b094…33b228 ]
0x33b094…33b228 }
0x33b228…33b3bc Dummy {f00=0x0104, 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*
0x33b3bc…33b550 Dummy {f00=0x0104, 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*
0x33b550…33b6e4 Dummy {f00=0x0104, 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*
0x33b6e4…33b878 Dummy {f00=0x0104, 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
0x33b878…33ba0c Dummy {f00=0x0104, 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
0x33ba0c…33bba0 Dummy {f00=0x0104, 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
0x33bba0…33bd34 (1, 848) Dummy {f00=0x0104, 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*****************************************
0x33bd34…33bec8 Dummy {f00=0x0104, f01=0x0190, f02=»ING TOSS MMU PAGING z * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* J PMMUPAG EQU 0 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 1 P*
0x33bec8…33c05c Dummy {f00=0x0104, 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 X:A P* P EJECT LRPINT P* P* 2 P* A PROGRAM VERSION SUPPOR
0x33c05c…33c1f0 Dummy {f00=0x0104, f01=0x0190, f02=» P* 4 P* A PROGRAM VERSION WITH MONITOR CLOCK FUNCTIONS 4 P* ADAPTED TO 60 HERTZ NET FREQUENCY (USA/CANADA) J , P* IS OBTAINED BY SETTING NETFRQ EQU 60. 2 P* NOTICE THAT THE DEFAULT VALUE SHOULD BE 50. P* PNETFRQ EQU 50 P
0x33c1f0…33c384 Dummy {f00=0x0104, f01=0x018e, f02=»HE FOLLOWING h P* STEPS ARE CARRIED OUT: P* 6 * P* - IF STACK OVERFLOW SYSTEM HALTS. @ P* n D P* - ELSE REGISTERS A1 - A14 ARE SAVED IN TTAB FOR RUNNING TASK x P* : P* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO $ P
0x33c384…33c518 Dummy {f00=0x0104, f01=0x0190, f02=» 8 P* (A4 = 0 INDICATES NO LABEL IN LKM REQUEST) * P* A5 = TTAB ADDRESS OF CALLING TASK @ P* A6 = LKM DATA DIRECTIVE n P* A2, A3 ARE DESTROYED P* > P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING TASK P* P
0x33c518…33c6ac Dummy {f00=0x0104, f01=0x0190, f02=»RPINT P* P* P ST A15,LKM010 SAVE A15 " " P LD A15,PRUN LOAD TTAB ADDRESS B P* h P IFT CPU852=1 r 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
0x33c6ac…33c840 Dummy {f00=0x0104, f01=0x0190, f02=»5 -A7 P STR A6,A15 -A6 P STR A5,A15 -A5 & P STR A4,A15 -A4 > P STR A3,A15 -A3 V P STR A2,A15 -A2 n 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
0x33c840…33c9d4 (1, 849) Dummy {f00=0x0104, f01=0x018e, f02=» P EJECT LRPINT P* " P* GET LKM REQUEST PARAMETERS * P* P P LDR* A3,A15 Z 4 P LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER n & P ST A3,TTB:PW,A5 STORE PSW IN TTAB P* P IFT MMUPAG=0 " P LD A3,-2,A2 INSTRUCTION
0x33c9d4…33cb68 Dummy {f00=0x0104, f01=0x0190, f02=» v * P TL MONMMU NO, LOAD MONITOR MMU TABLE P* 6 PLKM015 EQU * @ " P EL A3,-2,A2 INSTRUCTION CODE T P ELR A6,A2 DATA DIRECTIVE z P XIF P* P CWK A3,/2804 P RF(E) LKM025 LKM P CWK A3,/6300 P RF(E) LKM025 TR
0x33cb68…33ccfc Dummy {f00=0x0104, f01=0x0190, f02=»K OVERFLOW n P* P EJECT LRPINT P* 4 P* > PLKM025 EQU * H & P ADK A2,2 UPDATE DISPATCH ADDRESS P* P IFF MMUPAG+DSKPAG=0 " P CWK A6,9 CHECK DATA DIRECTIVE ( P ABL(E) TLDSEG LOAD SEGMENT REQUEST P XIF
0x33ccfc…33ce90 Dummy {f00=0x0104, f01=0x018e, f02=»S x , 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 P XIF P* P EJECT LRPINT P* P* PLKM030 EQU * ( P CM PRUN INDICATE IDLE LOOP RU
0x33ce90…33d024 Dummy {f00=0x0104, f01=0x0190, f02=» P* P* LKM REQUEST WITH LABEL P* 0 P IFT MMUPAG=0 : P LDR* A4,A2 LABEL P P XIF j P* v 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 DIREC
0x33d024…33d1b8 Dummy {f00=0x0104, 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
0x33d1b8…33d34c Dummy {f00=0x0104, f01=0x0190, f02=»ICATE REQUESTED LKM PROC. NOT PRESENT | P* . PLKM070 EQU * 8 P CF A15,HALT HALT SYSTEM L P* l P* v P* L K M R Q E P* . P* SET A7 = -1, QUEUE TASK AND DISPATCH. P* P* A5 = TTAB ADDRESS P* P*
0x33d34c…33d4e0 Dummy {f00=0x0104, f01=0x0190, f02=»SPATCH. n P* P* A2 = RETURN CODE P* A5 = TTAB ADDRESS 6 P* T P* ^ PLKMSRC EQU * h 8 P ST A2,TTB:SA+14,A5 SET RETURN CODE IN SAVE AREA A7 | P EJECT P* P* P* L K M Q D I P* P* QUEUE TA
0x33d4e0…33d674 (1, 850) Dummy {f00=0x0104, f01=0x0190, f02=»T:DISP EQU * COMMON EXIT TO DISPATCHER P ABL TDISP GO TO DISPATCHER . P* R P EJECT LRPINT P t P* | P* I H P F A R P* > P* THIS IS THE POWER FAIL/AUTO RESTART INTERRUPT HANDLER. P* P P P
0x33d674…33d808 Dummy {f00=0x0104, f01=0x0190, f02=»5SAV DATA 0 P DATA /00C0 P DATA PFTASK ( P < P D P L P T P & PPFX DATA 1 POWER ON/OFF INDICATOR d $ P P=POWER IS ON, N=POWER IS OFF P & PINIFLG DATA 1 INITIALIZATION FLAG P NZ=INITIALIZATION P
0x33d808…33d99c Dummy {f00=0x0104, f01=0x0190, f02=»FAIL/AUTO RESTART INTERRUPT P* $ P . PIHPFAR EQU * 6 $ P ST P,INTSAV SAVE LAST INTERRUPT L & P RIT /17 RESET INTERNAL INTERRUPT t & P C1S PFX INDICATE POWER ON OR OFF P RF(P) POWON POWER ON P* P* POWER OFF P*
0x33d99c…33db30 Dummy {f00=0x0104, f01=0x018e, f02=» A12,A15 P STR A13,A15 P STR A14,A15 $ P XIF 8 P D P IFT CPU852=0 L $ P MSR 14,A15 SAVE A1-A14 ON STACK b P XIF P , P ST A15,A15SAV SAVE A15 FOR BETTER TIMES P HLT P EJECT LRPINT P P* P*
0x33db30…33dcc4 Dummy {f00=0x0104, f01=0x0190, f02=» P LDR* A13,A15 P LDR* A12,A15 P LDR* A11,A15 0 P LDR* A10,A15 F P LDR* A9,A15 P XIF p P | 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 D
0x33dcc4…33de58 Dummy {f00=0x0104, f01=0x0190, f02=»T A2,DISQUE , P IM PFPOST INDICATE PWF POST PROCESSING P RB T:DISP D P EJECT LRPINT V P n P* v P* POWER FAIL TASK . P* STARTED AFTER ALL PWF POST PROCESSING P* P . PPFTASK CM PFPOST CLEAR PWF POST PROC FLA
0x33de58…33dfec Dummy {f00=0x0104, f01=0x0190, f02=» LRPINT P* P* I H R T C P* 2 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. < 6 P* THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS. v P* * PIHRTC ST P,INTSAV SAVE LAST INTERRUPT " P RIT /1B RESET INTERRUPT FLAG
0x33dfec…33e180 Dummy {f00=0x0104, f01=0x0190, f02=»A15,SAVE8 SAVE A1-A8 ON STACK P XIF & P* 2 P IFT CPU852=0 < " P MSR 8,A15 SAVE A1-A8 ON STACK R P XIF x P* P EJECT LRPINT P* P* P IFT NETFRQ=50 " P LDKL A4,-4 SET 100 MS SWITCH P ST A4,COUNT
0x33e180…33e314 (1, 851) Dummy {f00=0x0105, f01=0x0190, f02=»TINE AS MJOB r P CF A15,QMJOB P* * P IFT MONCLK=1 4 P IM SECOND J & P RF(P) RTC025 UPDATE MONITOR CLOCK P XIF P* PSWDISP EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP P* P EJECT LRPINT
0x33e314…33e4a8 Dummy {f00=0x0105, f01=0x0190, f02=» EQU * " P LDKL A4,-9 SET SECOND SWITCH P ST A4,SECOND 4 P LDK A4,4 J P* 2 PMCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS f P* ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS $ P RB(
0x33e4a8…33e63c Dummy {f00=0x0105, f01=0x018e, f02=»E HAVE A NEW DAY n P RB(P) MCLO10 UPDATE MINUTES P LDK A3,24 UPDATE HOURS < P RB MCLO20 P* n PMCLO30 EQU * x ( P IM MCARRY INCREMENT MIDNIGHT CARRY P* P EJECT LRPINT P* P* P IFT MONDAT=1 P*
0x33e63c…33e7d0 Dummy {f00=0x0105, f01=0x0190, f02=» v P LDK A3,1 ! P XIF ! P* ! & P IFT MONCLK+MONDAT=2 ! 0 P IFT CPU852=0 ! L P MLK 3 ! b 8 P DATA MONTH,DAY,1 MONTH AND DAY ADDRESS TO A1 AND A2 ! p P XIF ! P* ! P IFT MONCLK+MONDAT=2 ! P IMR A2 INCREMENT DAY ! P LDR* A4,A1
0x33e7d0…33e964 Dummy {f00=0x0105, f01=0x0190, f02=»RUARY ! j " P SUK A5,2 CHECK IF DAY WAS 30 " P RF(Z) MCLO60 YES " 4 " P SUK A5,1 CHECK IF DAY WAS 31 " N P RB(NZ) SWDISP NO, RETURN " t ( P RF MCLO50 YES, WE HAVE A NEW MONTH " P* " PMCLO40 EQU * " P SUK A6,2 CHECK IF FEBRUARY " P RB(
0x33e964…33eaf8 Dummy {f00=0x0105, f01=0x0190, f02=»MCLO50 EQU * " P STR A3,A2 SET DAY := 1 # P IMR A1 INCREMENT MONTH # 4 * P SUK A4,12 CHECK IF MONTH WAS DECEMBER # T 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
0x33eaf8…33ec8c Dummy {f00=0x0105, f01=0x0190, f02=»SEPTEMBER OR NOVEMBER # * P RB SWDISP JANUARY, MARCH, MAY OR JULY $ P* $ L PMCLO70 EQU * $ V P SUK A7,7 $ j P RB(N) MCLO50 APRIL OR JUNE $ | P XIF $ P* $ P IFT MONCLK=1 $ P RB SWDISP RETURN $ P XIF $ P* $ P EJECT LRP
0x33ec8c…33ee20 Dummy {f00=0x0105, f01=0x0190, f02=» (TDATE) $ p PYEAR DATA 0 % PMONTH DATA 0 % $ PDAY DATA 0 % 8 P XIF % J P* % V PMONCLO EQU * % ` P IFT MONCLK=1 % t , PMCARRY DATA 0 ACKUMULATED 24 HOUR CARRY % P DATA 0 HOUR % P DATA 0 MINUTE % P DATA 0 SECOND % PSECOND DATA 0
0x33ee20…33efb4 (1, 852) Dummy {f00=0x0105, f01=0x018e, f02=»OCK INH % , P LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS & P* & @ PCLK10 LDR A6,A4 & J P* & b PCLK20 LDR* A4,A6 TIMER BLOCK & l 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 OU
0x33efb4…33f148 Dummy {f00=0x0105, f01=0x0190, f02=» & P* ' P EJECT LRPINT ' P* ' * P* ' 4 , PCLK30 CF A15,CLK40 CALL TIME OUT ROUTINE ' > $ P CF A15,SWL48 SWITCH TO LEVEL 48 ' n P INH ' P RB CLK10 ' P* ' PCLK40 EQU * ' P IFT CPU852=1 ' & P CF A15,SAVE8 SAVE A1-A8 ON STAC
0x33f148…33f2dc Dummy {f00=0x0105, f01=0x018e, f02=»9 AND ENABLE ' z & P ST A1,18,A15 SET NEW PSW ON STACK ( P LD A2,2,A4 LOAD DISP BLOCK ( > P LD A1,4,A2 PARAMETER ( b $ 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 (
0x33f2dc…33f470 Dummy {f00=0x0105, f01=0x401e, f02=» P* ) P END ) @ ) A15 SET NEW PSW ON STACK ( P LD A2,2,A4 LOAD DISP BLOCK ( > P LD A1,4,A2 PARAMETER ( b $ 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 (
0x33f470…33f604 Dummy {f00=0x0105, 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
0x33f604…33f798 Dummy {f00=0x0105, f01=0x0190, f02=» B p P RF(NZ) DELF08 NOT 1ST C ( P LC A1,VTC:NE,A13 NUMBER OF EXTENTS C & P NGR A1,A1 C R P ADS A1,FEXTNO C d P* C z P EJECT FMCDEF C P* C P* C PDELF08 EQU * C P* C P IFT CPU852=1 C & P LDKL A1,VTC:EL GET EXTENT LENGTH C
0x33f798…33f92c Dummy {f00=0x0105, f01=0x0190, f02=»TC:EL ADDRESS TO EXTENT LENGTH C P ADR A3,A9 D & * P LDKL A6,VTC:EB ADDRESS TO EXTENT BASE D 8 P ADR A6,A9 D f 6 P CF A14,DBLADD VTC:EL=EXTENT BASE + EXTENT LENGTH D x P XIF D P* D P IFT CPU852=0 D P ML 4,VTC:EL,A13 D & P DAR A3 VTC:EL=EXT
0x33f92c…33fac0 Dummy {f00=0x0105, f01=0x0190, f02=» EJECT FMCDEF D P* E P* E $ P* SCAN FOR ADJACENT FREE SPACE E * P* E R P* E P SUR A12,A12 POINTER IN FSAT E f PDELF10 EQU * E $ P LDR A5,A12 DISPLACEMENT IN FSAT E P CF A14,FSREAD E P RB(NZ) DELF03 READ ERROR E P* E P
0x33fac0…33fc54 (1, 853) Opaque[0x194]
0x33fc54…33fde8 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20b0, f03=0x0000}
0x33fc54…33fde8 IdxSect {
0x33fc54…33fde8 f00 = 0x0105 // 0x33fc54 @0x0
0x33fc54…33fde8 f01 = 0x0002 // 0x33fc56 @0x2
0x33fc54…33fde8 gno = [ // 0x33fc58 @0x4
0x33fc54…33fde8 [0x00]: C0x0105.0x2.0
0x33fc54…33fde8 ]
0x33fc54…33fde8 }
0x33fde8…33ff7c Dummy {f00=0x0105, 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
0x33ff7c…340110 Dummy {f00=0x0105, f01=0x018e, f02=» P P P P P EXTRN KBAD4 ( P EXTRN TPAD < P EXTRN GPAD P P EXTRN DNAD d P EXTRN DIAD x P EXTRN DYAD P EXTRN MSAD P EXTRN ODAD P EXTRN TPAD3 P EXTRN GPAD8 P EXTRN GPAD3 P EXT
0x340110…3402a4 Dummy {f00=0x0105, f01=0x0190, f02=» PMONTAB EQU * PFREQUE DATA 0 PPAGQUE DATA 0,0 2 P J P R P Z P b P j P r P z P 2 PSPDLCI DATA 0 LIGHTS CORE IMAGE (0=ON 1=OFF) P P P P P P P P P P
0x3402a4…340438 Dummy {f00=0x0105, f01=0x4118, f02=»A DYAD P* P* P* " P* , P DATA MSAD 6 P DATA ODAD H P DATA TPAD3 Z P DATA GPAD8 n P* P* P* P DATA GPAD04 P DATA VUAD P DATA GPAD3 P DATA TPAD4 P DATA TNAD P P
0x340438…3405cc Dummy {f00=0x0105, 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
0x3405cc…340760 Dummy {f00=0x0105, 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
0x340760…3408f4 (1, 854) Opaque[0x194]
0x3408f4…340a88 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20b8, f03=0x0000}
0x3408f4…340a88 IdxSect {
0x3408f4…340a88 f00 = 0x0105 // 0x3408f4 @0x0
0x3408f4…340a88 f01 = 0x0006 // 0x3408f6 @0x2
0x3408f4…340a88 gno = [ // 0x3408f8 @0x4
0x3408f4…340a88 [0x00]: C0x0105.0x3.0
0x3408f4…340a88 [0x01]: C0x0106.0x0.0
0x3408f4…340a88 [0x02]: C0x0106.0x1.0
0x3408f4…340a88 ]
0x3408f4…340a88 }
0x340a88…340c1c Dummy {f00=0x0105, 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*
0x340c1c…340db0 Dummy {f00=0x0105, 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* .
0x340db0…340f44 Dummy {f00=0x0105, 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
0x340f44…3410d8 Dummy {f00=0x0105, 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
0x3410d8…34126c Dummy {f00=0x0105, 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*
0x34126c…341400 Dummy {f00=0x0105, 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
0x341400…341594 (1, 855) Dummy {f00=0x0106, 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
0x341594…341728 Dummy {f00=0x0106, 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
0x341728…3418bc Dummy {f00=0x0106, 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
0x3418bc…341a50 Dummy {f00=0x0106, 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
0x341a50…341be4 Dummy {f00=0x0106, 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
0x341be4…341d78 Dummy {f00=0x0106, 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
0x341d78…341f0c Dummy {f00=0x0106, 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****
0x341f0c…3420a0 Dummy {f00=0x0106, 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
0x3420a0…342234 (1, 856) Dummy {f00=0x0106, 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*
0x342234…3423c8 Dummy {f00=0x0106, 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
0x3423c8…34255c Dummy {f00=0x0106, 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*
0x34255c…3426f0 Dummy {f00=0x0106, 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
0x3426f0…342884 Dummy {f00=0x0106, f01=0x018e, f02=»A FOR A5 RES 4 DWT STACK DATA 0 SAVE AREA FOR A7 ( DATA 0 SAVE AREA FOR A8 H $ P DATA /2222 CHANNEL PARAMETER-2 h " DATA 0 LINE DRIVER DEPENDENT " DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS P DATA ECH
0x342884…342a18 Dummy {f00=0x0106, f01=0x4128, 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 CIRCULAR BUFFER IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 XIF DWTE
0x342a18…342bac Dummy {f00=0x0106, 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
0x342bac…342d40 Dummy {f00=0x0106, f01=0x0190, f02=»00002 P EXTRN SCTOPT SYSTEM OPTION $ P EXTRN SCTPAG PAGE TABLE ADDRESS 2 4 P EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE Z P EXTRN SCTBUG BUGGER ADDRESS , P EXTRN STKEND START OF SCRATCH-PAD AREA * P EXTRN STKCOM START OF COMMON-PAD
0x342d40…342ed4 (1, 857) Opaque[0x194]
0x342ed4…343068 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20d0, f03=0x0000}
0x342ed4…343068 IdxSect {
0x342ed4…343068 f00 = 0x0106 // 0x342ed4 @0x0
0x342ed4…343068 f01 = 0x000e // 0x342ed6 @0x2
0x342ed4…343068 gno = [ // 0x342ed8 @0x4
0x342ed4…343068 [0x00]: C0x0106.0x2.0
0x342ed4…343068 [0x01]: C0x0106.0x3.0
0x342ed4…343068 [0x02]: C0x0107.0x0.0
0x342ed4…343068 [0x03]: C0x0107.0x1.0
0x342ed4…343068 [0x04]: C0x0107.0x2.0
0x342ed4…343068 [0x05]: C0x0107.0x3.0
0x342ed4…343068 [0x06]: C0x0108.0x0.0
0x342ed4…343068 ]
0x342ed4…343068 }
0x343068…3431fc Dummy {f00=0x0106, 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*
0x3431fc…343390 Dummy {f00=0x0106, 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*
0x343390…343524 Dummy {f00=0x0106, 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*
0x343524…3436b8 Dummy {f00=0x0106, 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
0x3436b8…34384c Dummy {f00=0x0106, 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
0x34384c…3439e0 Dummy {f00=0x0106, 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*************
0x3439e0…343b74 (1, 858) Dummy {f00=0x0106, 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
0x343b74…343d08 Dummy {f00=0x0106, 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
0x343d08…343e9c Dummy {f00=0x0106, 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
0x343e9c…344030 Dummy {f00=0x0106, 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
0x344030…3441c4 Dummy {f00=0x0106, 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
0x3441c4…344358 Dummy {f00=0x0106, 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
0x344358…3444ec Dummy {f00=0x0106, 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
0x3444ec…344680 Dummy {f00=0x0106, 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
0x344680…344814 (1, 859) Dummy {f00=0x0107, 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
0x344814…3449a8 Dummy {f00=0x0107, 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
0x3449a8…344b3c Dummy {f00=0x0107, 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
0x344b3c…344cd0 Dummy {f00=0x0107, 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.
0x344cd0…344e64 Dummy {f00=0x0107, 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
0x344e64…344ff8 Dummy {f00=0x0107, 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
0x344ff8…34518c Dummy {f00=0x0107, 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
0x34518c…345320 Dummy {f00=0x0107, 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
0x345320…3454b4 (1, 860) Dummy {f00=0x0107, 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
0x3454b4…345648 Dummy {f00=0x0107, 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
0x345648…3457dc Dummy {f00=0x0107, 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
0x3457dc…345970 Dummy {f00=0x0107, 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
0x345970…345b04 Dummy {f00=0x0107, 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
0x345b04…345c98 Dummy {f00=0x0107, 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
0x345c98…345e2c Dummy {f00=0x0107, 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
0x345e2c…345fc0 Dummy {f00=0x0107, 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
0x345fc0…346154 (1, 861) Dummy {f00=0x0107, 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
0x346154…3462e8 Dummy {f00=0x0107, 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
0x3462e8…34647c Dummy {f00=0x0107, 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
0x34647c…346610 Dummy {f00=0x0107, 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 *
0x346610…3467a4 Dummy {f00=0x0107, 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
0x3467a4…346938 Dummy {f00=0x0107, 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
0x346938…346acc Dummy {f00=0x0107, 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* $
0x346acc…346c60 Dummy {f00=0x0107, 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
0x346c60…346df4 (1, 862) Dummy {f00=0x0107, 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
0x346df4…346f88 Dummy {f00=0x0107, 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
0x346f88…34711c Dummy {f00=0x0107, 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* (
0x34711c…3472b0 Dummy {f00=0x0107, 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
0x3472b0…347444 Dummy {f00=0x0107, 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
0x347444…3475d8 Dummy {f00=0x0107, 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*
0x3475d8…34776c Dummy {f00=0x0107, 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
0x34776c…347900 Dummy {f00=0x0107, 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
0x347900…347a94 (1, 863) Dummy {f00=0x0108, 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
0x347a94…347c28 Dummy {f00=0x0108, 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
0x347c28…347dbc Dummy {f00=0x0108, 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. "
0x347dbc…347f50 Dummy {f00=0x0108, f01=0x0190, f02=»MCDEF' BUT LOGICALLY BELONG TO OPEN/CLOSE. 0 * 1 2 ( P* A SPECIAL ENTRY IS USED FOR I/O 1 < . P* FUNCTIONS WHERE REQUESTED SECTORS ARE 1 h , P* SPLIT OVER TWO OR MORE FILE EXTENTS: 1 P* 1 > P* - FMSPLI READ/WRITE (SPLIT I/O) (OPTIO
0x347f50…3480e4 Dummy {f00=0x0108, f01=0x0190, f02=» = PARAMETER BLOCK ADDRESS (SPLIT I/O) 1 * %* A3 = TTAB ADDRESS OF CALLING TASK 2 . J P* A4 = FUNCTION INDEX (0 = RFP, 2 = OPEN, 4 = CLOSE, 6 = SPLIT I/O) 2 P* A8 = FM:ECB ADDRESS 2 * 2 EJECT FMTASK 2 * 2 * 2 ( PFMTASK E
0x3480e4…348278 Dummy {f00=0x0108, f01=0x0190, f02=» TTAB ADDRESS OF CALLING TASK 2 . P ST A5,TTAB SAVE TTAB ADDRESS CALLING TASK 3 & P LDR A7,A1 SAVE PARAMETER 3 X P* 3 z P IFT CPU852=1 3 . P LDKL A2,FM:BUF FMTASK DISC SECTOR BUFFER 3 . P ST A2,ECBBA,A8 SET BUFFER ADDRESS IN ECB 3 P LDKL A2,2
0x348278…34840c Dummy {f00=0x0108, f01=0x0190, f02=»UF,256 3 P MSR 3,A8 INITIALIZE FM:ECB 4 P LDR A1,A7 RESTORE PARAMETER 4 2 P XIF 4 V P* 4 b P CM RETCOD RESET RETURN CODE 4 l ( P LD A9,TTB:SA+16,A5 USER ECB ADDRESS 4 & P LDKL A14,FM:STB FMTASK STACK BASE 4 P* 4 P IFT MMUPAG=0 4 ( P L
0x34840c…3485a0 Dummy {f00=0x0108, f01=0x0190, f02=»B:MT,A5 USER MMU TABLE 4 , P TS TTB:MT,A3 STORE IN FMTASK MMU TABLE 5 , P EL A10,ECBBA,A9 USER FPB/BUFFER ADDRESS 5 N P XIF 5 ~ P* 5 P EJECT FMTASK 5 P* 5 0 P* BRANCH TO APPROPRIATE FUNCTION HANDLER. 5 P* 5 0 P* THE FOLLOWING PA
0x3485a0…348734 (1, 864) Opaque[0x194]
0x348734…3488c8 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2108, f03=0x0000}
0x348734…3488c8 IdxSect {
0x348734…3488c8 f00 = 0x0108 // 0x348734 @0x0
0x348734…3488c8 f01 = 0x0002 // 0x348736 @0x2
0x348734…3488c8 gno = [ // 0x348738 @0x4
0x348734…3488c8 [0x00]: C0x0108.0x1.0
0x348734…3488c8 ]
0x348734…3488c8 }
0x3488c8…348a5c Dummy {f00=0x0108, f01=0x018e, 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
0x348a5c…348bf0 Dummy {f00=0x0108, f01=0x0190, f02=» P EXTRN SOPR SOP. PANEL ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS " P EXTRN FDON FLEXIBLE DISC N P EXTRN LPON LINE PRINTER p P EXTRN CRON CARD READER P EXTRN DUON DISC UNIT P EXTRN MDON MINI FIXED DISC $ P EXTRN MTDRON MAGNETIC
0x348bf0…348d84 Dummy {f00=0x0108, f01=0x0190, f02=»N CDC DISC P EXTRN PLON LINE CONTROLLER P EXTRN VUON VIDEO 6 P EXTRN X25:ON X25 LEVEL 3 P P r P z P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA TWON P DATA TCDRON P DATA SOPR P DATA CHLTON
0x348d84…348f18 Dummy {f00=0x0108, f01=0x4152, f02=»A DUON P DATA MDON MINI FIXED DISC P DATA MTDRON 0 P DATA FMINIT FILE MANAGEMENT D P DATA SLCUON SALCUZ h P DATA ASCUON ASCU4Z P DATA CDON CDC DISC P DATA PLON LINE CONTROLLER P DATA VUON VIDEO P DATA X25:ON X25 L
0x348f18…3490ac Dummy {f00=0x0108, 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
0x3490ac…349240 Dummy {f00=0x0108, f01=0x2008, f02=»
0x349240…3493d4 (1, 865) Opaque[0x194]
0x3493d4…349568 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2110, f03=0x0000}
0x3493d4…349568 IdxSect {
0x3493d4…349568 f00 = 0x0108 // 0x3493d4 @0x0
0x3493d4…349568 f01 = 0x0002 // 0x3493d6 @0x2
0x3493d4…349568 gno = [ // 0x3493d8 @0x4
0x3493d4…349568 [0x00]: C0x0108.0x2.0
0x3493d4…349568 ]
0x3493d4…349568 }
0x349568…3496fc Dummy {f00=0x0108, f01=0x40e8, 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* P* P* P* PSCLASS DATA TCLASE-* PTCLASE EQU * P END @
0x3496fc…349890 Dummy {f00=0x0108, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x349890…349a24 Dummy {f00=0x0108, f01=0x2008, f02=»
0x349a24…349bb8 Dummy {f00=0x0108, f01=0x0190, f02=» AND NUMBER OF USERS B x P* C , P LC A1,FPB:SH,A10 SHAREABILITY PARAMETER C & P ANK A1,/FF C V & P RF(Z) OP:020 NO ATTACH REQUESTED C j 0 P LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS) C $ P RF(Z) OP:018 FILE NOT ATTACHED C . P CW A2,TTAB CHECK IF ATT
0x349bb8…349d4c Dummy {f00=0x0108, f01=0x0190, f02=»LING TASK C t & P ST A5,FWTTAB,A6 INDICATE ATTACHED D P* D < POP:020 EQU * D F & P LC A1,FWTPAR,A6 ACCESS PARAMETERS D Z P LDR A2,A1 D P ANK A1,/3F NUMBER OF USERS D P SUK A1,/3F D P ABL(NZ) OPEXIT D P* D P EJECT FMTASK D P
0x349d4c…349ee0 Dummy {f00=0x0108, 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
0x349ee0…34a074 (1, 866) Opaque[0x194]
0x34a074…34a208 # DirEnt {nam=»SDMBUF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2118, f03=0x0000}
0x34a074…34a208 IdxSect {
0x34a074…34a208 f00 = 0x0108 // 0x34a074 @0x0
0x34a074…34a208 f01 = 0x000a // 0x34a076 @0x2
0x34a074…34a208 gno = [ // 0x34a078 @0x4
0x34a074…34a208 [0x00]: C0x0108.0x3.0
0x34a074…34a208 [0x01]: C0x0109.0x0.0
0x34a074…34a208 [0x02]: C0x0109.0x1.0
0x34a074…34a208 [0x03]: C0x0109.0x2.0
0x34a074…34a208 [0x04]: C0x0109.0x3.0
0x34a074…34a208 ]
0x34a074…34a208 }
0x34a208…34a39c Dummy {f00=0x0108, f01=0x0190, f02=» 2 P IDENT SDMBUF REL 11.0 81-01-26 870105041100 P : 8 P**************************************************** B P* ~ $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* SDMBUF = DATA MANAGEMENT BUFFER AREAS P* P* P*
0x34a39c…34a530 Dummy {f00=0x0108, f01=0x0190, f02=»SK n P* . P* A ROUTINE SDMGBU TO GET A DISC BUFFER P* F L P* BY MEANS OF CONDITIONAL ASSEMBLY QNBUF NUMBER OF BUFFERS WILL BE ALL P P* P* MAX VALUE OF QNBUF IS 16 P* P* P EJECT P* P**************
0x34a530…34a6c4 Dummy {f00=0x0108, f01=0x0190, f02=»K x P ENTRY BUFDMI DMTASK IDENT P ENTRY BUFSNR SECTOR NO , P ENTRY BUFOR ORDER L * P ENTRY BUFSTA DATA AREA START ADDRESS f P ENTRY SDMGBU GET A BUFFER " P ENTRY SDMRBU RELEASE A BUFFER $ P ENTRY BLKMXL MAXIMUM BLOCK SIZE * P ENT
0x34a6c4…34a858 Dummy {f00=0x0108, f01=0x0190, f02=» ENTRY CRNEND P ENTRY MXIND P* * P EXTRN HALT 4 P EXTRN FDBSTA H P EXTRN SCTFWT ^ P EXTRN ECBBA t P EJECT P* P* CONDITIONAL ASSEMBLY P* PX:A EQU 8 PX:B EQU 128 ( PQNBUF EQU X:A NUMBER OF DI
0x34a858…34a9ec Dummy {f00=0x0108, f01=0x0190, f02=»WORDS ^ 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER P* F PX:C EQU 90 P PCRNBAR EQU X:C CURRENCY AREA b P* 6 P* MXSIZ IS THE SIZE OF THE MASTER INDEX AREA IN P* WORDS P* PX:D EQU 0 $ PMXSIZ EQU X:D MA
0x34a9ec…34ab80 Dummy {f00=0x0108, f01=0x0190, f02=»BUFL EQU 8 P XIF P EJECT P* , P************** 6 P* SDMGBU * L P************** b P* x * P* ENTRY SDMGBU GET A DISC BUFFER P* P* INPUT A3 = FILE NR " P* A1 = SECTOR NUMBER $ P*
0x34ab80…34ad14 (1, 867) Dummy {f00=0x0109, f01=0x0190, f02=»ED P* P* P* ALL BUFFERS ARE SEARCED. 6 P* ONE BUFFER IS SELECTED IN FOLLOWING PRIORITY : B P* | , P* 1. USED BUFFER IN REQ FILE ( DELAY) P* 2. REQ FILE AND SECT NR P* 3. OLDEST UNUSED P* P* IN B
0x34ad14…34aea8 Dummy {f00=0x0109, f01=0x0190, f02=»R BIT 0-8= DELAY + SAME INDICATOR " P* BUFOR BIT 9-15= BUFFER AGE * P* BUFSTA= BLOCK AREA P P* n P* x P EJECT PSDMGBU EQU * P STR A7,A14 SAVE A7 P INH INH P LD A4,CURBUF P LDK A5,0 PDMT010 LDR* A4
0x34aea8…34b03c Dummy {f00=0x0109, f01=0x0190, f02=»F(Z) DMT015 FREE P SLL A7,1 P SC A7,BUFOR,A4 MARK DELAY * PDMT015 EQU * L P CW A1,BUFSNR,A4 ` P RF(NE) DMT020 x P CW A2,BUFSNR+2,A4 P RF(NE) DMT020 WRONG SECT NR P LDKL A7,/100 & P ORS A7,BUFOR,A4 MARK SAME SECT NR
0x34b03c…34b1d0 Dummy {f00=0x0109, f01=0x0190, f02=» STATUS IN BIT 15 P RF(NZ) DMT030 USED P IM BUFOR,A4 MAKE OLDER 6 $ P SC A7,BUFOR,A4 CLEAR LEFT BYTE V PDMT030 EQU * ~ P CW A5,BUFOR,A4 P RF(G) DMT041 NOT OLDER P LD A5,BUFOR,A4 P ST A4,NEWBUF PDMT041 EQU *
0x34b1d0…34b364 Dummy {f00=0x0109, f01=0x018e, f02=» Z P* $ P LD A4,NEWBUF CHOOSE THIS BUFFER P ECR A5,A5 : P LDR A5,A5 L P RF(Z) DMT042 NO BUFFER ^ P ANK A5,/3 ~ P RF(Z) DMT043 NO DATA & P LDK A3,0 INDICATE DATA IN BUFFER P ANK A5,/2 P RF(NZ) DMT051 DELAY P R
0x34b364…34b4f8 Dummy {f00=0x0109, f01=0x0190, f02=» P* * P* SET CURBUF AND BUFFER HEADER WORDS P* @ P ST A3,BUFDMI,A4 DMIDENT,FC J " P ST A1,BUFSNR,A4 SECTOR NUMBER n P ST A2,BUFSNR+2,A4 * P LDK A3,1 INDICATE BUFFER MUST BE READ PDMT050 EQU * " P CM BUFOR,A4 RESET OLD-C
0x34b4f8…34b68c Dummy {f00=0x0109, f01=0x0190, f02=»A7,A14 SAVED REGISTER P ENB ENB P RTN A14 0 P EJECT @ P* N P************** X P* SDMRLB * n P************** P* P* ENTRY: A8=ECB ADDRESS P* P* EXIT : A8=NOT CHANGED $ P* A4=BLOCK BUFFER A
0x34b68c…34b820 Dummy {f00=0x0109, f01=0x018e, f02=»** P* SDMRBU * P************** P* 6 . P* ENTRY SDMRBU RELEASE A DISC BUFFER @ P* r $ P* INPUT A4 = BUFFER ADDRESS | P* A2 IS DESTROYED P* P* PSDMRBU EQU * P IFT CHECK=1 P LD
0x34b820…34b9b4 (1, 868) Dummy {f00=0x0109, f01=0x018e, f02=» P RB(NE) SDMR10 P LDR A2,A2 PSDMR20 EQU * 0 P XIF D P LDKL A2,/FFFE P P ANRS A2,A4 SET OFF BIT 15 f P RTN A14 P EJECT P************** P* CLRBUF * P************** P P* A2,A3 = DESTROYED
0x34b9b4…34bb48 Dummy {f00=0x0109, f01=0x0190, f02=» P LDK A2,1 P AN A2,BUFLNK,A3 P RF(NZ) DMT750 USED . P CM BUFDMI,A3 REMOVE J PDMT750 CW A3,CURBUF f P RB(NE) DMT700 MORE BUFFERS P ENB P RTN A14 P EJECT P* P* PCURBUF DATA BUF1 PNEWBUF DATA
0x34bb48…34bcdc Dummy {f00=0x0109, f01=0x0190, f02=»ATA 0 PBUFSNR EQU *-BUF1 SECTOR NO P DATA 0 2 P DATA 0 B PBUFOR EQU *-BUF1 LRU-WORD R " P DATA 0 BUFFER STATUS,DM ORDER t ( PBUFSTA EQU *-BUF1 DATA BUFFER START PBUFAR EQU * P RES BLKMXL P* P* P IFT Q
0x34bcdc…34be70 Dummy {f00=0x0109, f01=0x0190, f02=» BLKMXL P XIF P* P* & P IFT QNBUF=2 0 PBUF3 EQU BUF1 D P XIF Z P* f P* p P IFF QNBUF=1 z P IFF QNBUF=2 PBUF3 DATA BUF4 P DATA 0,0,0,0 P RES BLKMXL P XIF P* P* P IFT Q
0x34be70…34c004 Dummy {f00=0x0109, f01=0x018e, f02=»A BUF5 P DATA 0,0,0,0 P RES BLKMXL $ P XIF 8 P* D P* N P IFT QNBUF=4 X PBUF5 EQU BUF1 l P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 PBUF5 DATA BUF6 P
0x34c004…34c198 Dummy {f00=0x0109, f01=0x0190, f02=» P* P IFF QNBUF=1 P IFF QNBUF=2 " P IFF QNBUF=3 6 P IFF QNBUF=4 J P IFF QNBUF=5 ^ PBUF6 DATA BUF7 r P DATA 0,0,0,0 P RES BLKMXL P XIF P* P* P IFT QNBUF=6 PBUF7 EQU BUF1 P XIF P
0x34c198…34c32c Dummy {f00=0x0109, f01=0x0190, f02=» PBUF7 DATA BUF8 P DATA 0,0,0,0 P RES BLKMXL 0 P XIF D P* P P* Z P IFT QNBUF=7 d PBUF8 EQU BUF1 x P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF
0x34c32c…34c4c0 Dummy {f00=0x0109, f01=0x018e, f02=»* P IFT QNBUF=8 PBUF9 EQU BUF1 P XIF 4 P* @ P* J P IFF QNBUF=1 T P IFF QNBUF=2 h P IFF QNBUF=3 | P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 PBUF9 DATA BUF10
0x34c4c0…34c654 (1, 869) Dummy {f00=0x0109, f01=0x0190, f02=» P* P IFF QNBUF=1 P IFF QNBUF=2 & P IFF QNBUF=3 : P IFF QNBUF=4 N P IFF QNBUF=5 b P IFF QNBUF=6 v P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF=9 PBUF10 DATA BUF11 P DATA 0,0,0,0 P RES BLKMXL P
0x34c654…34c7e8 Dummy {f00=0x0109, f01=0x0190, f02=»UF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 4 P IFF QNBUF=7 H P IFF QNBUF=8 P IFF QNBUF=9 p P IFF QNBUF=10 PBUF11 DATA BUF12 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=11 PBUF12 EQU
0x34c7e8…34c97c Dummy {f00=0x0109, f01=0x018e, f02=» P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 0 P IFF QNBUF=9 D P IFF QNBUF=10 X P IFF QNBUF=11 n PBUF12 DATA BUF13 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=12 PBUF13 EQU BUF1 P XIF
0x34c97c…34cb10 Dummy {f00=0x0109, f01=0x0190, f02=» P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF=9 0 P IFF QNBUF=10 D P IFF QNBUF=11 Z P IFF QNBUF=12 p PBUF13 DATA BUF14 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=13 PBUF14 EQU BUF1 P XIF
0x34cb10…34cca4 Dummy {f00=0x0109, f01=0x0190, f02=» P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF=9 0 P IFF QNBUF=10 D P IFF QNBUF=11 Z P IFF QNBUF=12 p P IFF QNBUF=13 PBUF14 DATA BUF15 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=14 PBUF15 EQ
0x34cca4…34ce38 Dummy {f00=0x0109, f01=0x0190, f02=»=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 2 P IFF QNBUF=9 F P IFF QNBUF=10 Z P IFF QNBUF=11 p P IFF QNBUF=12 P IFF QNBUF=13 P IFF QNBUF=14 PBUF15 DATA BUF16 P DATA 0,0,0,0 P RES BLKMXL
0x34ce38…34cfcc Dummy {f00=0x0109, f01=0x0190, f02=»NBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 " P IFF QNBUF=6 6 P IFF QNBUF=7 J P IFF QNBUF=8 ^ P IFF QNBUF=9 r P IFF QNBUF=10 P IFF QNBUF=11 P IFF QNBUF=12 P IFF QNBUF=13 P IFF QNBUF=14 P IFF QNBUF=15
0x34cfcc…34d160 Dummy {f00=0x0109, f01=0x0190, f02=» P IFF CRNBAR=0 P RES CRNBAR P XIF . P IFT CRNBAR=0 : P RES 6 DEFAULT P P XIF f PCRNEND EQU * r * PMXIND DATA MXINDE-* LENGTH INDEX INDEX P DATA MXAR MASTER INDEX ADDR " P DATA MXSIZ MASTER INDEX SIEZE P IFF MXSIZ
0x34d160…34d2f4 (1, 870) Dummy {f00=0x0109, f01=0x0190, f02=» INDEX z 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * D P RES MXSIZ V P EJECT h P* v : P* THIS INITIALIZATION ROUTINE BELONGS TO SDMINI, BUT . P* IS OVERLAYED ON THE FIRST BLOCK BUFFER P* PDMIFIN EQU *
0x34d2f4…34d488 Dummy {f00=0x0109, f01=0x0190, f02=»A3,SCTFWT ADDR FIRST FWT & P ST A3,FDBSTA QUEUE FIRST FOR EVER P* J P* CHAIN CRN BUFFERS T P* r P LDKL A3,CRNQUE+2 | P ST A3,CRNQUE P LDK A2,CRBUFL P LDKL A6,CRNEND P CF A15,DMIN30 P* < P* CLEAR USE
0x34d488…34d61c Dummy {f00=0x0109, f01=0x018e, f02=»A2,A3 CLEAR USE BIT P CM BUFDMI,A3 P CM BUFSNR,A3 2 P CM BUFSNR+2,A3 H P CM BUFOR,A3 ` P CW A3,CURBUF t P RB(NE) DMIN50 P RTN A15 RETURN P EJECT P* P* P* IN; A2 = LENGTH P* A3= LINK ROO
0x34d61c…34d7b0 Dummy {f00=0x0109, f01=0x4172, f02=» P LDR A5,A4 ! P SRL A5,1 ! P LDR A1,A6 ! , P SRL A1,1 ! > P CWR A5,A1 ! P " P RF(G) DMIN40 END OF FDB AREA ! b P STR A4,A3 CHAIN ! P LDR A3,A4 ! P RB DMIN30 ! PDMIN40 EQU * ! P SUR A3,A2 ! P CMR A3 END OF FDB CHAIN !
0x34d7b0…34d944 Dummy {f00=0x0109, f01=0x2008, f02=» " P* DMTRBU * P************** " P* 8 . P* ENTRY DMTRBU RELEASE A DISC BUFFER B P* t $ P* INPUT A3 = BUFFER ADDRESS ~ P* A2 IS DESTROYED P* P* PDMTRBU EQU * P LDKL A2,/FFFE P
0x34d944…34dad8 Dummy {f00=0x0109, f01=0x0190, f02=»T: A1 = DISC SECTOR NUMBER, PART 1 0 P* A2 = " " " , PART 2 , . P* A3 = MEMORY ADDRESS (LOGICAL) ` & P* A4 = SWB SIZE (BYTES) . P* A5 = TTAB ADDRESS CALLING TASK & P* A6 = SWB SIZE
0x34dad8…34dc6c Dummy {f00=0x0109, f01=0x0190, f02=»SEGBLK ADDRESS = 0) Z $ P* A12 = DISC FILE CODE P* D P* N P XIF X P* d & PLTSWB1 EQU * ENTRY USED BY LT:SWB n P ANK A1,/FF P LDK A7,/91 PHYSICAL READ P* P EJECT LDTASK P* P* & PLTSW
0x34dc6c…34de00 Dummy {f00=0x0109, f01=0x0190, f02=»SWB SIZE (WORDS) | P* P* SET ECB PARAMETERS " P* > " P LDKL A8,LD:ECB LD:ECB ADDRESS H * P STR A12,A8 SET DISC FILE CODE IN ECB n ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH P LDR A12,A3 & P LDKL A14,LD:STB LDTASK STACK BASE P*
0x34de00…34df94 (1, 871) Opaque[0x194]
0x34df94…34e128 # DirEnt {nam=»SDMTSK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2140, f03=0x0000}
0x34df94…34e128 IdxSect {
0x34df94…34e128 f00 = 0x010a // 0x34df94 @0x0
0x34df94…34e128 f01 = 0x001e // 0x34df96 @0x2
0x34df94…34e128 gno = [ // 0x34df98 @0x4
0x34df94…34e128 [0x00]: C0x010a.0x0.0
0x34df94…34e128 [0x01]: C0x010a.0x1.0
0x34df94…34e128 [0x02]: C0x010a.0x2.0
0x34df94…34e128 [0x03]: C0x010a.0x3.0
0x34df94…34e128 [0x04]: C0x010b.0x0.0
0x34df94…34e128 [0x05]: C0x010b.0x1.0
0x34df94…34e128 [0x06]: C0x010b.0x2.0
0x34df94…34e128 [0x07]: C0x010b.0x3.0
0x34df94…34e128 [0x08]: C0x010c.0x0.0
0x34df94…34e128 [0x09]: C0x010c.0x1.0
0x34df94…34e128 [0x0a]: C0x010c.0x2.0
0x34df94…34e128 [0x0b]: C0x010c.0x3.0
0x34df94…34e128 [0x0c]: C0x010d.0x0.0
0x34df94…34e128 [0x0d]: C0x010d.0x1.0
0x34df94…34e128 [0x0e]: C0x010d.0x2.0
0x34df94…34e128 ]
0x34df94…34e128 }
0x34e128…34e2bc Dummy {f00=0x010a, f01=0x0190, f02=» 2 P IDENT SDMTSK REL 11.0 81-05-13 870105041100 P : : P =B, REW. AND DEL. INDEXED,NO RELEASE OF KEY BLK BUF B P =B, REL 11.0 81-05-12 " P =A, CONDITION FOR CR,DE,EX P =A, REL 11.0 81-04-15 , P =9, REWRITE WITH DUP KEY DIDN'T
0x34e2bc…34e450 Dummy {f00=0x010a, f01=0x0190, f02=».I. KEYS NOT CORRECT WRITTEN P =7, REL 11.0 81-02-26 $ 2 P =6, DELETE,REWRITE DIRECT INDEXED REFORMED D P =6, REL 11.0 81-02-25 z 0 P =5, CURRENCY NOT CORRECT WHEN START INDX P =5, REL 11.0 81-02-24 4 P =4, MOV:SU DON'T WORK W
0x34e450…34e5e4 Dummy {f00=0x010a, f01=0x0190, f02=»1.0 81-02-06 ( P =2, INTERN ORDER START N.L WRONG P =2, REL 11.0 81-02-06 @ & P =1, REG. CRASH WHEN COMP. KEYS ` P =1, REL 11.0 81-01-26 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYS
0x34e5e4…34e778 Dummy {f00=0x010a, f01=0x0190, f02=»******************************************** P* 4 , P* THIS MODULE IS ACTIVATED FROM TIODM. > P* n P* INPUT PARAMETERS: x P* A1 = FDB ADDRESS < P* A2 = TID TASK IDENT OF SDMTSK AT PRESENT NOT USED P* D P* THE BLOC
0x34e778…34e90c Dummy {f00=0x010a, f01=0x018e, f02=» PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET D P* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT < 8 P* THE BLOCK MUST FIRST BE READ INTO A FREE BUFFER. P* P EJECT P* P*************** P* ENTRIES
0x34e90c…34eaa0 Dummy {f00=0x010a, f01=0x0190, f02=» ^ P ENTRY SDMERX,ORDFLP P EJECT $ P* 2 P***************** < P* EXTERNALS * V P***************** p P* P* P P* DEFINED IN TDISP , P EXTRN PRUN TTAB ADDRESS OF RUNNING TASK P P* DEFINED IN TOS
0x34eaa0…34ec34 (1, 872) Dummy {f00=0x010a, f01=0x0190, f02=»4 P P* DEFINED IN FMTASK P EXTRN FWTFNR . P EXTRN FPB:EL D P Z P* DEFINED IN TIODM b & P EXTRN FDBADF,FDBAI1,FDBBLZ,FDBDBR | & P EXTRN FDBECB,FDBENL,FDBKA,FDBKEY & P EXTRN FDBLRN,FDBMRO,FDBOMD,FDBRLE P EXTRN FDBRRO,
0x34ec34…34edc8 Dummy {f00=0x010a, f01=0x0190, f02=»TSB A14 STACK BASE 4 P EXTRN DMXACD EXIT RUNNING TASK AND ACTIVATE #D P EXTRN SDMSTS STACK START R P EXTRN SDMBF1,SDMBF2 t P EJECT P P* DEFINED IN TIOSDM & P EXTRN SDMOOR,SDMLIM,SDMOEX,SDMOOS P EXTRN SDMOIP,SDMIOP P
0x34edc8…34ef5c Dummy {f00=0x010a, f01=0x0190, f02=» P EXTRN RELPRO & P EXTRN FMIORD,FMIOWR,FMIORF,FMIOEX P EXTRN FRMFIL D P EXTRN RLBLKB,CHKRCD Z P EXTRN GTLGRN v P EXTRN CRNUPD,CRNCIF P EXTRN CHKKEY P EXTRN RDNXTR 6 P EXTRN RECECB MOVE RECORD NUMBER TO ECBCW1,ECBCW2
0x34ef5c…34f0f0 Dummy {f00=0x010a, f01=0x0190, f02=» P EXTRN SDMRLB P P* DEFINED IN DMOPCL " P EXTRN SDMOPN,SDMCLO,SDMRFP > P EXTRN OPEFPB b P x P* DEFINED IN DSUMOD P EXTRN DSUMOD P EJECT P* P* P* P************************ P* CONDITIO
0x34f0f0…34f284 Dummy {f00=0x010a, f01=0x0190, f02=»A EQU 1 PY:B EQU 1 P* " 6 P* INDEXED ACCEXSS FUNCTIONS CAN BE OMITTED WITH , , P* INDXAC EQU 1 = INDEX ACCESS INCLUDED f 6 P* INDXAC EQU 0 = INDEX ACCESS FUNCTIONS OMITTED PINDXAC EQU X:A 0 PINSLAS EQU Y:A INSERT SAME KEY LAS
0x34f284…34f418 Dummy {f00=0x010a, f01=0x0190, f02=»=0 t P* PCRDEEX EQU X:B =A P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P* 2 P* KEYDUP=1 MEANS THAT PRIMARY INDEX (I1) DON'T , P* ALLOW
0x34f418…34f5ac Dummy {f00=0x010a, f01=0x0190, f02=»************* P . PFMFPBL EQU 80 FILE PARAMETER BLOCK LENGTH P EJECT P P* ^ P************************ h P* DATA DEFINITIONS * P************************ P* 2 P* THE FOLLOWING INTERNAL ORDER CODES ARE THE $ P
0x34f5ac…34f740 Dummy {f00=0x010a, f01=0x0190, f02=» A7 d 6 P* 0<X<=7 NOT CHANGED 0 6 P* X>7 ODD X=(X+17)/2 - J 6 P* X>7 EVEN X=(X-8)/2 - P* PORDERS EQU * P POROPEN EQU *-ORDERS P DATA SD
0x34f740…34f8d4 (1, 873) Dummy {f00=0x010a, f01=0x0190, f02=»EAD SEQUENTIAL P POWRRM0 EQU *-ORDERS P DATA WRRM00 WRITE RANDOM : P POWRSQ0 EQU *-ORDERS d " P DATA WRSQ00 WRITE SEQUENTIAL P POREWR0 EQU *-ORDERS 6 P DATA REWR00 REWRITE NOT INDEXED (DIRECT,CURRENT) P EJE
0x34f8d4…34fa68 Dummy {f00=0x010a, f01=0x0190, f02=»STRTDI START DIRECT (EQUAL,GREATER,NOT LESS) P 4 POEXTND EQU *-ORDERS < P DATA EXTEND EXTEND FILE X P x POCLOSE EQU *-ORDERS P DATA SDMCLO CLOSE P PORDFLP EQU *-ORDERS & P DATA SDMRFP READ FILE PARAMETERS P
0x34fa68…34fbfc Dummy {f00=0x010a, f01=0x0190, f02=»NDEXED v P PORDSQX EQU *-ORDERS ( P DATA RDSQIX READ SEQUENTIAL INDEXED 2 P ^ POWRRMX EQU *-ORDERS f & P DATA WRRMIX WRITE RANDOM INDEXED P POWRSQX EQU *-ORDERS 8 P DATA DMTERR WRITE SEQUENTIAL INDEXED (NOT ALLOWED)
0x34fbfc…34fd90 Dummy {f00=0x010a, f01=0x0190, f02=»DELTIX DELETE INDEXED (DIRECT,CURRENT) P . POSTRTX EQU *-ORDERS 6 8 P DATA STRTIX START INDEXED (EQUAL,GREATER,NOT LESS) R P P XIF P EJECT P* P* ORDER INDEX TABLE P* PBYTE FORM 8,8 P PORDTAB EQU
0x34fd90…34ff24 Dummy {f00=0x010a, f01=0x0190, f02=»REWR0 REWRITE NOT INDEXED * P BYTE ODELT0,ODELT0 DELETE NOT INDEXED " 4 P BYTE ORDSQ0,ORDRM0 READ SEQUENTIAL,READ RANDOM P $ P BYTE OSTRTD,OSTRTD START DIRECT * P BYTE OSTRTD,OCLOSE START DIRECT,CLOSE PORDTEX EQU *-ORDTAB P IFT INDXAC=0
0x34ff24…3500b8 Dummy {f00=0x010a, f01=0x0190, f02=»E OWRRMX,OREWRX WRITE RANDOM INDEXED,REWRITE INDEXED 6 P BYTE OREWRX,ODELTX REWRITE INDEXED,DELETE INDEXED < > P BYTE ODELTX,ORDSQX DELETE INDEXED,READ SEQUENTIAL INDEXED v : P BYTE ORDRMX,OSTRTX READ RANDOM INDEXED,START INDEXED & P BYTE OSTRTX,OSTRT
0x3500b8…35024c Dummy {f00=0x010a, f01=0x0190, f02=»SDMTSK * P************** P* ( PSDMTSK EQU * 2 P* F P* SET UP A14 STACK P P* l P LD A14,PRUN v P ADKL A14,DMTTSB STACK BASE P LDR A11,A1 FDB ADDR P LDR A8,A11 $ P ADKL A8,FDBECB FDB ECB ADDRESS & P L
0x35024c…3503e0 Dummy {f00=0x010a, f01=0x0190, f02=»A5,SDMLIM LIMIT BETWEEN OPEN AND CLOSE P RF(N) DMT100 OPEN ORDER . P LDK A7,2 MASK BIT N P TM A7,A5 h " P RF(Z) DMT010 ORDER CODE EVEN z " P ADK A5,50 CORRECT ORDER INDEX PDMT010 EQU * " P SRL A5,2 INDEX IN ORDER TABLE $ P LC A7,O
0x3503e0…350574 (1, 874) Dummy {f00=0x010a, f01=0x0190, f02=»* READ RANDOM INDEXED,START INDEXED 2 P* DELETE DIRECT INDEXED,REWRITE DIRECT INDEXED , 2 P* OPEN AND READ FILE PARAMETERS DON'T NEED ANY b P* BLOCK BUFFER YET & P RF(N) DMT090 NO BLOCK BUFFER YET PDMT015 EQU * =8 P LD A4,FDBADF,A11 DA
0x350574…350708 Dummy {f00=0x010a, f01=0x0190, f02=»DEXED,READ SEQUENTIAL INDEXED . P* DELETE INDEXED,START AND READ SEQUENTIAL & P* X $ P CF A14,FNDBLB FIND BLOCK BUFFER b P IFT CRDEEX=0 P ABL(N) DMTERR I/O ERROR , P ABL(P) SDMERX EOF WHEN READ SEQUENTIAL PEXTEND EQU * =A P
0x350708…35089c Dummy {f00=0x010a, f01=0x018e, f02=»TEST IF EXTEND SHOULD BE DONE P* & P LD A7,DWTOR,A11 0 P ANK A7,/3F ORDER INDEX H P CWK A7,OEXTND h P RF(E) DMT030 ORDER EXTEND ~ P SUK A7,OWRSQ0 & P RF(NZ) DMTER NOT WRITE SEQUENTIAL PDMT030 EQU * P LDR A2,A1 P S
0x35089c…350a30 Dummy {f00=0x010a, f01=0x0190, f02=» f P ADK A7,0 P RF(NZ) DMT090 ORDER EXTEND , P LDKL A1,SDMOEX TIOSDM ORDER FOR EXTEND > P SC A1,DWTOR+1,A11 n ( P CF A14,SDMRLB RELEASE BLOCK BUFFER " P LDKL A8,SDMTSK DISPATCH ENTRY P LDR A6,A11 FDB ADDRESS $ P ABL DMXACD EX
0x350a30…350bc4 Dummy {f00=0x010a, f01=0x018e, f02=»D A7,DWTOR,A11 $ P LDR A2,A7 OPTION AND ORDER CODE & P ANK A7,/3F A7=INTERNAL ORDER CODE > PDMT100 EQU * h @ P LDKL A12,OPEFPB FPB ADDRESS FOR OPEN CLOSE READ FILE PARAM. | P P " P* (A4= BLOCK BUFFER ADDRESS ) ( P* (A5 = BLOCK BUF
0x350bc4…350d58 Dummy {f00=0x010a, f01=0x0190, f02=» P* (A9 = USER ECB ADDRESS ) P ( P 0 " P ABI ORDERS,A7 SDMTSK FUNCTION 8 P EJECT ^ 4 P*********************************************** l 4 P* * 4 P* R E A D S E Q U E N T I A L
0x350d58…350eec Dummy {f00=0x010a, f01=0x0190, f02=» * 4 P*********************************************** , P d PRDSQ00 EQU * SEQUENTIAL READ l PRDRM00 EQU * RANDOM READ PSTRTDI EQU * START DIRECT P* P* CHECK STATUS P* P CF A14,CH
0x350eec…351080 Dummy {f00=0x010a, f01=0x0190, f02=»BL(Z) DMERND READ RANDOM,NO DATA P SUK A7,OSTRTD-ORDRM0 ( " P RF(NZ) DMT250 READ SEQUENTIAL F P* l P* START DIRECT v P* P LC A3,DWTOPT,A11 P ANK A3,7 OPTION " P RF(NZ) DMT250 OPTION DEFINED P RF DMT230 NO OPTION
0x351080…351214 (1, 875) Dummy {f00=0x010b, f01=0x0190, f02=» P LD A3,ECBRL,A9 REQ LGTH $ P LD A2,FDBRLE,A11 RECORD LENGTH $ P CWR A3,A2 L P RF(NG) DMT220 ^ P LDR A3,A2 MAX LENGTH t PDMT220 EQU * ( P ST A3,ECBEL,A9 SET EFFECTIVE LENGTH P* P* MOVE THE RECORD P* P LD A1
0x351214…3513a8 Dummy {f00=0x010b, f01=0x0190, f02=»VE RECORD TO USER P XIF P IFT MMUPAG=1 & " P LD A4,DWTTAB,A11 TTAB ADDRESS < * P LD A7,TTB:PW,A4 PSW FOR THIS TASK =4 b & P ANK A7,1 SYSTEM,USER MODE BIT =4 P RF(NZ) DMT225 USER MODE =4 P CF A14,MOVFW MOVE RECORD =4 P RF DM
0x3513a8…35153c Dummy {f00=0x010b, f01=0x0190, f02=» ACCESS BIT p P* PDMT230 EQU * P ABL DMT400 PUT CRN AND EA 2 P EJECT T P* b 6 P* STATUS BYTE = NOT USED AND ORDER IS SEQ. READ OR l P* START DIRECT WITH OPTION P* $ PDMT250 EQU * NO DATA AT SEQ READ P* P*
0x35153c…3516d0 Dummy {f00=0x010b, f01=0x0190, f02=»T260 EQU * P ST A1,ECBCW,A9 ! P ST A2,ECBCW+2,A9 ! * P* ! D : P* ENTRY ALSO FOR READ RANDOM INDEXED AND START INDEXED ! N P* ! PDMT280 EQU * ! P* ! P* CHECK EA ! P* ! P LD A1,ECBCW,A9 ! P LD A2,ECBCW+2,A9 REC NR !
0x3516d0…351864 Dummy {f00=0x010b, f01=0x0190, f02=» A4,OSTRTX ! P RB(E) DMT230 START INDEXED " P XIF " 6 P EJECT " B P CF A14,CALSNO PREP IO " P " P ABL(NZ) DMTERR OUT OF MEDIUM " n P LC A3,FDBDBR,A11 DELAY " P ANK A3,/10 " P RF(NZ) DMT290 KEEP BUFFER " P* " P* RELEASE BLOCK BU
0x351864…3519f8 Dummy {f00=0x010b, f01=0x0190, f02=»DMT020 NEXT RECORD " P IFT CRDEEX=1 # P EJECT # 0 " P***************************** # > " P* E X T E N D F I L E * # d " P***************************** # P # PEXTEND EQU * # ( P LD A4,ECBBA,A8 BLOCK BUFFER ADDRESS # 4 P LDKL A3,OPEFPB
0x3519f8…351b8c Dummy {f00=0x010b, f01=0x0190, f02=» ST A2,ECBRL,A8 # ( P CF A14,FMIORF READ FILE PARAMETERS $ $ P LD A1,FDBENL,A11 ENLARGE FACTOR $ D $ P ST A1,FPB:EL,A3 FILL IN ENLARGE $ l P CF A14,FMIOEX EXTEND FILE $ , P ST A4,ECBBA,A8 SET BLOCK BUFFER ADDRESS $ P RB(NZ) DMTER ERROR $ P CF A1
0x351b8c…351d20 Dummy {f00=0x010b, f01=0x0190, f02=» $ ~ * P ABL DMT020 TRY WRITE SEQUENTIAL AGAIN % P XIF % 6 P EJECT % B 4 P*********************************************** % P 4 P* * % 4 P* D E L E T E I N D E X E D * % 4 P* R E W R I T
0x351d20…351eb4 (1, 876) Dummy {f00=0x010b, f01=0x0190, f02=»******* % h P & PDELTIX EQU * DELETE INDEXED & PREWRIX EQU * REWRITE INDEXED & < P IFT INDXAC=1 & ` P ANKL A2,/100 & v P RF(Z) DELT00 NOT DIRECT & , P CF A14,FNDKYP SET PARAM AND THEN FNDKEY & " P ABL(NZ) DMIER2 KEY NOT FOUND & " P LD A9
0x351eb4…352048 Dummy {f00=0x010b, f01=0x0190, f02=»WTOR,A11 INTERN ORDER INDEX =6 & 0 P LD A11,FDBADF,A11 FDB ADDRESS DATA FILE =6 ' & 8 P ANKL A1,/FEFF INDICATE CURRENT INSTEAD OF DIRECT =6 ' Z . P ST A1,DWTOR,A11 SAVE IN FDB DATA FILE =6 ' P LD A1,ECBCW,A9 ' P LD A2,ECBCW+2,A9 ' P CF A14,EATEST
0x352048…3521dc Dummy {f00=0x010b, f01=0x0190, f02=» LDR A8,A11 =6 ' & P ADKL A8,FDBECB SDM ECB ADDRESS =6 ( & P ABL DMT015 GET BLOCK BUFFER =6 =8 ( B P XIF ( l P EJECT ( x 4 P*********************************************** ( 4 P* * ( 4 P* W R I T E S
0x3521dc…352370 Dummy {f00=0x010b, f01=0x0190, f02=»D * ( f 4 P* D E L E T E N O T I N D E X E D * ) 4 P* W R I T E R A N D O M I N D E X E D * ) F 4 P* * ) ~ 4 P*********************************************** ) P ) " PWRSQ00 EQU * WRITE
0x352370…352504 Dummy {f00=0x010b, f01=0x018e, f02=»DELT00 EQU * DELETE NOT INDEXED ) P* * ( & P* TEST IF OPENED OUTPUT SEQUENTIAL * 2 P* * 0 P CF A14,CHKSTS A10=POINTER TO RECORD STATUS * f P LC A1,FDBOMD,A11 * P ANK A1,/FF * P CWK A1,SDMOOS * 0 P RF(E) DMS110 OUTPUT SEQ.,DON'T CHECK STAT
0x352504…352698 Dummy {f00=0x010b, f01=0x018e, f02=» P EJECT + P* + P* RECORD STATUS=USED + P* + 8 P IFT INDXAC=1 + B P LDR A4,A7 + X P SUK A4,OWRRMX + j & P RF(Z) DMS100 WRITE RANDOM INDEXED + P XIF + P LDR A4,A7 + P SUK A4,OWRRM0 + P RF(Z) DMS100 WRITE RANDOM + P SUK A4,
0x352698…35282c Dummy {f00=0x010b, f01=0x0190, f02=» P* RECORD STATUS=NOT USED , P* , $ PDMS110 EQU * , . P IFT INDXAC=1 , B P LDR A4,A7 , X P SUK A4,OREWRX , j " P RF(Z) DMERND REWRITE INDEXED , P SUK A4,ODELTX-OREWRX , P RF(Z) DMERND DELETE INDEXED , P XIF , P LDR A4,A7 , P S
0x35282c…3529c0 Dummy {f00=0x010b, f01=0x0190, f02=»20 EQU * , P CF A14,EATEST - P RF(N) DMEAER EA OTHER TASK - & P EJECT - J P LDK A3,0 STATUS FREE - X P IFT INDXAC=1 - v P LDR A2,A7 - P SUK A2,OWRRMX - & P RF(E) CHK010 WRITE RANDOM INDEXED - P SUK A2,OREWRX-OWRRMX - " P RF(E) CHK01
0x3529c0…352b54 (1, 877) Dummy {f00=0x010b, f01=0x0190, f02=»E) CHK010 DELETE INDEXED - P XIF . P LDR A2,A7 . , P SUK A2,ODELT0 . > $ P RF(E) DMT350 DELETE NOT INDEXED . T P IFT INDXAC=0 . | P RF DMT320 . P XIF . P IFT INDXAC=1 . P RF DMT310 . P EJECT . PCHK010 EQU * . L P* REWRITE IN
0x352b54…352ce8 Dummy {f00=0x010b, f01=0x0190, f02=»DK A4,8 MAX 4 INDEX . PCHK040 EQU * / P SUK A4,2 / 0 $ P RF(N) CHK100 ALL INDEX CHECKED / B P LDR A2,A11 FDB ADD / j P ADR A2,A4 / ( P LD A6,FDBAI1,A2 FDB ADDR INDEX FILE / P RB(Z) CHK040 NO INDEX / P LD A2,DWTOR,A11 / P ANK A2,/3F OR
0x352ce8…352e7c Dummy {f00=0x010b, f01=0x0190, f02=»E / v P LC A2,DWTOPT,A11 OPTION 0 P ANK A2,/4 0 * * P RB(NZ) CHK040 NO CHECK ON DEL CURRENT 0 < P EJECT 0 j P* =3 0 x $ P* A6=FDB ADDRESS INDEX FILE =3 0 P* =3 0 PCHK050 EQU * 0 & P LD A9,DWTECB,A11 GET USER ECB =9 0 P IFT MMUPAG=1
0x352e7c…353010 Dummy {f00=0x010b, f01=0x0190, f02=»DR A2,A6 GET KEY AREA POINTER =3 0 & P LD A3,FDBRLE,A6 RECORD LENGTH =3 1 ( P SUK A3,6 KEY LENGTH 1 R P LDR A9,A4 SAVE A4 =1 1 n & P LD A4,DWTTAB,A11 GET TTAB ADDRESS 1 , P CF A14,MOV:US MOVE KEY TO FDB KEY AREA 1 P LDR A4,A9 RESTORE A4 =1 1 2 P L
0x353010…3531a4 Dummy {f00=0x010b, f01=0x0190, f02=»ADDRESS 1 t & P LD A9,FDBKA,A11 KEY START ADDRESS 2 P ADR A2,A9 2 : P XIF 2 L P IFT INDXAC=1 2 X P EJECT 2 n P LDR A1,A2 ENTRY KEY ADDRESS 2 | P AD A9,FDBRRO,A11 2 P ADR A9,A5 KEY IN FILE 2 P LDK A7,0 2 " P LD A6,FDBRLE,A6 RECORD LENGTH
0x3531a4…353338 Dummy {f00=0x010b, f01=0x018e, f02=» RF DMERPR PROTECTED 2 P* =3 3 P* END OF CHECK KEY LOOP =3 3 , P* =3 3 P PCHK100 EQU * 3 ` P LD A7,DWTOR,A11 3 t P ANK A7,/3F ORDER INDEX 3 P XIF 3 P EJECT 3 P* 3 P* MOVE RECORD 3 P* 3 PDMT310 EQU * 3 P I
0x353338…3534cc Dummy {f00=0x010b, f01=0x0190, f02=» 3 P LDK A4,8 4 PIXINS3 EQU * 4 P LDR A3,A11 FDB DATA 4 . P ADR A3,A4 4 J P LD A2,FDBADF,A3 FDB INDEX 4 P RF(Z) IXINS4 NO INDEX 4 ~ P LD A1,FDBKA,A2 KEY ADDR 4 P AD A1,FDBRRO,A11 REC OFFS 4 ( P ADR A1,A5 BUFFERADDR GIVES KEY ADDR 4 "
0x3534cc…353660 Dummy {f00=0x010b, f01=0x018e, f02=»IXINS4 EQU * 4 P SUK A4,2 5 P RB(NZ) IXINS3 MORE INDEXS 5 & P ABL DMXDEL DELETE INDEXED 5 H P XIF 5 j P EJECT 5 v P******************** 5 P* * 5 P* E R R O R * 5 P* * 5 P********************
0x353660…3537f4 (1, 878) Dummy {f00=0x010b, f01=0x018e, f02=» 5 * PDMEAER EQU * RELEASE EA FOR ALL FILES 6 " P LC A3,FDBTNR,A11 USER TASK ID 6 6 P ANK A3,/FF 6 " P CF A14,RELPRO RELEASE PROTECT 6 p P LDKL A1,PROERR PROTECT ERR 6 PDMERR EQU * 6 P RF DMTERR 6 P EJECT 6 P* 6 * P* MOVE RECORD FR
0x3537f4…353988 Dummy {f00=0x010b, f01=0x0190, f02=» 6 n P LD A2,FDBRRO,A11 7 P ADR A2,A5 TO ADDRESS 7 " P LD A1,ECBBA,A9 FROM ADDRESS 7 @ P IFT MMUPAG=0 7 d P CF A14,MOVFW 7 z P XIF 7 P IFT MMUPAG=1 7 & P LD A4,DWTTAB,A11 GET TTAB ADDRESS 7 8 P CF A14,MOV:US MOVE RECORD FROM USER TO SYST
0x353988…353b1c Dummy {f00=0x010b, f01=0x0190, f02=»0 7 P LD A3,FDBDBR,A11 8 P RF(NN) DMT390 NO DELAY 8 $ P* 8 D P* DELAY 8 N P* 8 ^ P LDKL A2,/1000 8 h " P ORS A2,FDBDBR,A11 KEEP BUFFER 8 ~ P RF DMT400 8 P* 8 P* WRITE BLOCK TO DISC 8 P* 8 PDMT390 EQU * 8 P CF A14,FM
0x353b1c…353cb0 Dummy {f00=0x010b, f01=0x0190, f02=»A14,CRNGET GET CURRENCY BUFFER 8 P LDR A10,A2 BUFFER ADDR 9 & P LD A1,ECBCW,A9 9 F P LD A2,ECBCW+2,A9 LOG REC NR 9 ^ P LD A7,DWTOR,A11 9 P ANK A7,/3F ORDER INDEX 9 P LDR A4,A7 9 P SUK A4,OWRRM0 9 P RF(Z) DMT450 WRITE RANDOM 9 P SUK
0x353cb0…353e44 Dummy {f00=0x010b, f01=0x018e, f02=» IFT INDXAC=1 9 P SUK A4,OREWRX-OREWR0 : " P RF(Z) DMT450 REWRITE INDEXED : 4 P ADK A4,OREWRX-OWRRMX : Z & P RF(Z) DMT440 WRITE RANDOM INDEXED : x P SUK A4,OSTRTX-OWRRMX : P RF(Z) DMT410 START INDEXED : P XIF : P LDR A4,A7 ORDER INDEX :
0x353e44…353fd8 Dummy {f00=0x010b, f01=0x0190, f02=» P* ; P* LRN=LRN-1 ; P* ; " PDMT410 EQU * ; , P LDR A3,A1 ; @ P LDR A4,A2 ; R P SUK A4,1 ; d P RF(NN) DMT420 ; v P ANKL A4,/7FFF ; P SUK A3,1 ; P* ; $ P* SET NEW CURRENT RECORD NUMBER ; P* ; PDMT420 EQU * ; " P ST
0x353fd8…35416c Dummy {f00=0x010b, f01=0x0190, f02=» ; PDMT430 EQU * < P ST A1,CRNCDF,A10 < & P ST A2,CRNCDF+2,A10 CRN DATA FILE < 6 P RF DMT450 < ` P < r P* < z P* UPDATE LRN < P* < PDMT440 EQU * < P SC A1,FDBLRN,A11 < P ST A2,FDBLRN+1,A11 < P EJECT < PDMT450 EQU *
0x35416c…354300 Dummy {f00=0x010b, f01=0x0190, f02=»E) DMT460 OPEN INPUT PROTECTED < P CWK A4,SDMIOP = & 2 P RF(NE) DMT470 NOT OPEN INPUT OUTPUT PROTECTED = < P* = r " P* CHECK IF EA IS SET ALREADY = | P* = PDMT460 EQU * = P CF A14,EATEST CHECK EA = " P RF(NZ) DMT470 EA ALREADY SET = P*
0x354300…354494 (1, 879) Dummy {f00=0x010c, f01=0x0190, f02=»DK A4,OWRRMX = P CWR A7,A4 > ( P ABL(E) DMINS2 WRITE RANDOM INDEXED > & P XIF > R P EJECT > ^ , P*************************************** > l , P* * > , P* E X I T D M T A S K * > , P*
0x354494…354628 Dummy {f00=0x010c, f01=0x0190, f02=»A11 > P ANK A4,/10 ? P RF(NZ) SDMERX KEEP BUFFER ? ( P CF A14,SDMRLB RELEASE BLOCK BUFFER ? B PSDMERX EQU * ? n ( P LD A6,FDBADF,A11 GET FDB DATA FILE ? P INH ? P* ? P* A1 = RET CODE ? P* A6 = DWT ADDR ? P* ? P CF A1
0x354628…3547bc Dummy {f00=0x010c, f01=0x0190, f02=»**** ? d 4 P* * @ 4 P* R E A D R A N D O M I N D E X E D * @ D 4 P* S T A R T I N D E X E D * @ | 4 P* * @ 4 P****************************
0x3547bc…354950 Dummy {f00=0x010c, f01=0x0190, f02=»ND THEN FNDKEY @ v P* A , P* ENTRY ALSO FOR READ SEQUENTIAL INDEXED A P* A P . PDMR100 EQU * FROM READ SEQUENTIAL INDEXED A Z P LD A9,DWTECB,A11 A P LD A2,DWTOR,A11 A P ANK A2,/3F ORDER A P SUK A2,OSTRTX A P RF(NZ) DMR110 NOT START A
0x354950…354ae4 Dummy {f00=0x010c, f01=0x0190, f02=» P SUK A1,1 B P RF(Z) DMIER4 NOT OPERABLE B P ADK A1,1 B 8 P RF(NZ) DMIER1 KEY NOT FOUND B J , P CF A14,RECECB MOVE RECORD NUMBER TO ECB B n P EJECT B P* B P* SET CRN B P* B $ P LDR A13,A11 SAVE FDB INDEX FILE B $ P LD A11,FDBA
0x354ae4…354c78 Dummy {f00=0x010c, f01=0x0190, f02=» B v & P CF A14,CRNGET GET CRN BUFFER ADDR C P LDR A10,A2 CRN BUFFER ADDR C 2 P LDR A11,A13 FDB INDEX FILE C V ( P CF A14,GTLGRN GET INDE X LOG REC NO C z P LDK A7,ORDRM0 RANDOM READ C P SUK A5,OSTRTX C P RF(NE) DMR120 INDEXED READ C P LDK A
0x354c78…354e0c Dummy {f00=0x010c, f01=0x0190, f02=» C P SC A1,CRNCIF+1,A10 D & P ST A2,CRNCIF+2,A10 CRN INDEX FILE D $ P LD A2,ECBCW,A9 REC NR DATA D N P ST A2,CRNCDF,A10 D r P LD A2,ECBCW+2,A9 D P ST A2,CRNCDF+2,A10 D P LC A2,FWTFNR,A11 FILE NR D P SC A2,CRNCIF,A10 D P LDR A11,A
0x354e0c…354fa0 Dummy {f00=0x010c, f01=0x0190, f02=»MT280 D P EJECT E : P***************************************************** E : P* * E Z : P* R E A D S E Q U E N T I A L I N D E X E D * E : P*
0x354fa0…355134 (1, 880) Dummy {f00=0x010c, f01=0x0190, f02=»RRO,A11 RECORD OFFSET E P LDR A4,A5 BUFFER ADDRESS F P SUKL A4,BUFSTA F @ PDMI100 EQU * F X & P CF A14,CHKRCD CHECK RECORD STATUS F l P RF(E) DMI130 USED F P LD A3,FDBMRO,A11 F * P ST A3,FDBRRO,A11 LAST RECORD IN BLOCK F P EJECT F P*
0x355134…3552c8 Dummy {f00=0x010c, f01=0x0190, f02=» P RF(G) DMIER6 EOF G P CW A2,FDBLRN+1,A11 G P RF(NL) DMIER6 END OF FILE G : PDMI120 EQU * G ( P CF A14,RDNXTR GET NEXT INDEX RECORD G p P RB(NZ) DMI100 RECORD FOUND G P RF DMIER2 ERROR G P EJECT G PDMI130 EQU * G P* G P*
0x3552c8…35545c Dummy {f00=0x010c, f01=0x0190, f02=»RD HAS THE SAME KEY G z P* H $ P LD A1,FDBRRO,A11 RECORD OFFSET H & P ADKL A1,BUFSTA H N P ADR A1,A4 REC ADDR H f P LD A3,FDBRLE,A11 REC LENGTH H P SUK A3,6 KEY LENGTH H P ADR A1,A3 H ( P CC A3,2,A1 DUPLICATE KEY CHARACTER H $ P RF(NE)
0x35545c…3555f0 Dummy {f00=0x010c, f01=0x0190, f02=»OUND H . P ABL DMR100 CONT AS FOR INDEXED RAND READ I P EJECT I > P******************** I L P* * I h P* E R R O R * I P* * I P******************** I P I ( PDMIER1 LDKL A1,KEYERR KEY NOT FOUND I
0x3555f0…355784 Dummy {f00=0x010c, f01=0x018e, f02=»MERX NO BUFFER I P ABL DMTERR ERROR AND BUFFER J PDMIER3 EQU * J : P ANK A1,/27 J N " P RB(NZ) DMIERR BIT 10,13,14,15 J b " P LDKL A1,EOMERR GRAVE ERR ALSO J P RB DMIERR J PDMIER4 EQU * J P LDK A1,1 NOT OPERABLE J P RB DMIERR J PDMIE
0x355784…355918 Dummy {f00=0x010c, f01=0x0190, f02=» J : P***************************************************** K : P* * K F : P* W R I T E R A N D O M I N D E X E D (P2) * K : P* D E L E T E I N D E X E D * K : P*
0x355918…355aac Dummy {f00=0x010c, f01=0x0190, f02=» WRITE RANDOM INDEXED PART 2 K PDMXDEL EQU * DELETE INDEXED L $ P LC A4,FDBDBR,A11 L H P ANK A4,/10 L b P RF(NZ) DXI010 KEEP BUFFER L v ( P CF A14,SDMRLB RELEASE BLOCK BUFFER L PDXI010 EQU * L P LDK A5,10 LOOPER L PDXI020 EQU * NEXT INDE
0x355aac…355c40 Dummy {f00=0x010c, f01=0x018e, f02=» P ADR A1,A5 M P LD A1,FDBADF,A1 FDB INDEX M P RB(Z) DXI020 NO INDEX M 8 P LD A2,DWTOR,A11 ORDER M V P ST A2,DWTOR,A1 M t $ P LD A2,DWTECB,A11 USER ECB ADDR M P ST A2,DWTECB,A1 M " P ST A5,FDBKA,A11 SAVE COUNTER M & P LDR A11,A1 FDB ADDRES
0x355c40…355dd4 (1, 881) Dummy {f00=0x010c, f01=0x0190, f02=» M * P* RETURN FROM UPDATING OF ONE INDEX N P* N 6 PDMTAR5 EQU * N @ , P LD A11,FDBADF,A11 FDB ADDRESS DATA FILE N T , P LD A5,FDBKA,A11 GET COUNTER OF INDEXES N P RB DXI020 TAKE NEXT INDEX N P* N 0 P* END IF WRITE RANDOM INDEXED ELSE CONTI
0x355dd4…355f68 Dummy {f00=0x010c, f01=0x0190, f02=»MERX READY N P ABL DMT020 RESTART SDMTSK O P EJECT O 4 : P***************************************************** O B : P* * O : P* W R I T E R A N D O M I N D E X E D * O : P* D E L E
0x355f68…3560fc Dummy {f00=0x010c, f01=0x0190, f02=»***************************** O x P P & & PDMINIX EQU * WRITE RANDOM INDEXED P . P IFT MMUPAG=0 P X P* P n P* GET KEY IN USER BUFFER P x P* P , P LD A9,FDBADF,A11 FDB ADDRESS DATA FILE P & P LD A9,DWTECB,A9 USER ECB ADDRESS P P LD A9,ECB
0x3560fc…356290 Dummy {f00=0x010c, f01=0x0190, f02=»DEX RECORD P z P LDR A9,A11 Q P ADKL A9,FDBKEY KEY ADDR Q & PINS010 EQU * Q F P LDR A12,A9 Q Z $ P LD A10,FDBRLE,A11 RECORD LENGTH Q n P SUKL A10,6 KEY LENGTH Q P LDR A8,A14 Q 0 P ADKL A8,2 ECB ADDR TO RECORD BUFFER AREASS Q $ P CF A14,FNDK
0x356290…356424 Dummy {f00=0x010c, f01=0x0190, f02=»WTECB,A11 USER ECB ADDRESS Q P LD A2,DWTOR,A11 ORDER CODE R " P ANK A2,/3F R F P SUK A2,ODELTX R Z & P ABL(E) DEL000 DELETE INDEX RECORD R p P EJECT R P* R ( P* SET RC BIT 6 TO USER IF NEXT KEY R " P* IS SAME IN REQUESTED INDEX R P* R
0x356424…3565b8 Dummy {f00=0x010c, f01=0x0190, f02=»DEX R z P XIF S P IFT INDXAC=1 S " P LDKL A1,NXTKYS NEXT KEY SAME S 0 $ P ORS A1,ECBRC,A9 SET RETURN CODE S V P IFT INSLAS=1 S ~ P EJECT S P* S P* INSERT SAME KEY LAST S P* S $ P LD A1,FDBRRO,A11 RECORD OFFSET S P RF INS100
0x3565b8…35674c Dummy {f00=0x010c, f01=0x0190, f02=»A14,CHKRCD CHECK RECORD STATUS S P RF(E) INS150 USED T & P LD A3,FDBMRO,A11 T @ P ST A3,FDBRRO,A11 T Z * P RB INS080 GET FIRST RE C IN NXT SECT T t PINS150 EQU * T ( P LC A6,-4,A1 DUPLICATE KEY CHARACTER T P CWR A6,A10 CHECK KEY LENGTH T $ P R
0x35674c…3568e0 Dummy {f00=0x010c, f01=0x018e, f02=» P LD A1,FDBRRO,A11 U P CW A1,FDBMRO,A11 U & P RF(NE) INS160 SECT WRITTEN LATER U 8 P* U b P* WRITE BLOCK U l P* U P CF A14,FMIOWR U P ABL(NZ) DMTERR U P* U P* GET NEXT RECORD U P* U PINS160 EQU * U P CF A14,
0x3568e0…356a74 (1, 882) Dummy {f00=0x010c, f01=0x0190, f02=» PINS180 EQU * V P* V ( P* CREATE AN INDEX RECORD IN AREA 1 V " P* V N P LDR A1,A12 FROM ADDR V X P LDR A2,A14 V v P ADKL A2,SDMBF1 TO ADDRESS V P LDR A3,A10 KEY LENGTH V P CF A14,MOVFW MOVE KEY V P SCR A3,A2 DUMMY V P ADK A2,
0x356a74…356c08 Dummy {f00=0x010c, f01=0x018e, f02=»SS V p $ P ADKL A1,ECBCW+1 SOURCE POINTER W * P LDK A3,3 NUMBER OF CHARACTERS TO MOVE W 2 P CF A14,MOVFW W ` P LDK A1,/FF USED W v P SCR A1,A2 STATUS CHAR W $ P CF A14,GTLGRN GET REC NR INDEX W P* W , P* SAVE RECORD NR FOR FIRST MOVED INDEX W
0x356c08…356d9c Dummy {f00=0x010c, f01=0x0190, f02=» W X $ P* USED RECORDS ROLLED FORWARD X $ P* A4,A10,A11 IS USED AT ENTRY X 0 $ P ADKL A10,7 RECORD LENGTH TOTAL X X P* X P* USE D REGISTERS X P* A11 = FDB ADDR INDEX X P* A9 = AREA ADDR X " P* A10 = RECORD LENGTH INDEX X ,
0x356d9c…356f30 Dummy {f00=0x010c, f01=0x0190, f02=» * X P LDKL A9,SDMBF1 BUFFER 1 Y P ADK A5,0 Y * P RF(Z) INS210 BUFAR1 Y < P LDKL A9,SDMBF2 BUFFER 2 Y X PINS210 EQU * Y x & P ADR A9,A14 RECORD BUFFER ADDRESS Y P* Y P* SAVE LAST RECORD Y P* Y P LDR A1,A4 Y P ADKL A1,BUFSTA
0x356f30…3570c4 Dummy {f00=0x010c, f01=0x0190, f02=»JECT Y P* Z 4 P* MOVE REST OF BLOCK DOWN ONE RECORD POSITION Z P* Z N P LDR A1,A4 Z X P ADKL A1,BUFSTA Z j P AD A1,FDBRRO,A11 FROM ADDR Z P LDR A6,A1 Z P LD A3,FDBMRO,A11 Z P SU A3,FDBRRO,A11 NR OF CHAR Z P LDR A2,A1 Z P
0x3570c4…357258 Dummy {f00=0x010c, f01=0x0190, f02=»0 Z P RF(Z) INS250 BUFAR1 [ P LDKL A1,SDMBF1 [ & PINS250 EQU * [ > P ADR A1,A14 FROM ADDR [ R P LDR A3,A10 NR OF CHAR [ p P LDR A2,A6 TO ADDR [ P CF A14,MOVFW MOVE [ P EJECT [ P* [ P* WRITE BUFFER [ P* [ $ P LDR A8,A14
0x357258…3573ec Dummy {f00=0x010c, f01=0x0190, f02=»A8 [ P LDR A2,A4 P ADKL A2,BUFSTA P ST A2,ECBBA,A8 SECTOR ADDR 6 P LC A2,FDBBLZ,A11 BLOCK SIZE Z P SLL A2,8 IN BYTE ~ P ST A2,ECBRL,A8 P LD A2,FDBSNR,A11 SECTOR NR P ST A2,ECBCW,A8 SECTOR NR P LD A3,FDBSNR+2,A1
0x3573ec…357580 Dummy {f00=0x010c, f01=0x018e, f02=»TION IS READY l P* ] P LDR A2,A9 RECORD AREA ADDR ] P ADR A2,A10 REC LGTH ] D " P SUK A2,1 ADDR OF STATUS CHAR ] ` P LD A3,FDBMRO,A11 ] ( P ST A3,FDBRRO,A11 MAX OFFSET IN SECT ] P CCR A1,A2 ] P RF(Z) INS400 FREE RECORD ] P EJECT ]
0x357580…357714 (1, 883) Dummy {f00=0x010d, f01=0x0190, f02=» " P LDR A5,A9 RESTORE REGISTER =7 ^ P ADK A4,0 SET CR =7 ^ * PINS260 EQU * ^ F ( P RB(Z) INS170 GO TO DMIER3 IF ERROR ^ Z * P XRK A5,1 SWITCH KEY RECORD BUFFERS =7 ^ P RB INS200 ^ PINS400 EQU * ^ P* ^ ( P* UPDATE LRN IF EOF IS ENCOUNTERED
0x357714…3578a8 Dummy {f00=0x010d, f01=0x0190, f02=»1,A11 ^ P RF(NG) INS430 NO EOF _ PINS410 EQU * _ , ( P SC A1,FDBLRN,A11 LAST RECORD NUMBER _ @ P ST A2,FDBLRN+1,A11 _ l & P LD A9,DWTECB,A11 USER ECB ADDRESS _ P LDKL A3,EOFRC END OF FILE _ P ORS A3,ECBRC,A9 TO USER _ P EJECT _ PINS430
0x3578a8…357a3c Dummy {f00=0x010d, f01=0x0190, f02=» 1 TO RECORD NUMBERS _ ~ PINS440 EQU * ` P CF A14,SDMRBU REL BUFFER ` 0 * P ABL DMTAR5 ONE INDEX READY TAKE NEXT ` R P EJECT ` * PDEL000 EQU * DELETE INDEX RECORD CONT ` P ADK A1,0 ` PDEL010 EQU * ` " P ABL(NZ) DMIER3 KEY NOT FOUND ` P
0x357a3c…357bd0 Dummy {f00=0x010d, f01=0x0190, f02=»1 ` " P ADK A1,7 BUFSTA-3=ADDR REC NR a P LCR A2,A1 a 0 P CC A2,ECBCW+1,A9 REC NR a B P RF(NE) DEL030 WRONG RECORD a b P LC A2,1,A1 a P ECR A2,A2 a P LC A2,2,A1 REC NR a P CW A2,ECBCW+2,A9 a P RF(E) DEL200 RECORD FOUND a PDEL030
0x357bd0…357d64 Dummy {f00=0x010d, f01=0x0190, f02=»Y NOT SAME a z PDEL040 EQU * b ( P CF A14,RDNXTR GET NEXT INDEX RECORD b & PDEL045 EQU * b R ( P RB(Z) INS260 GO TO DMIER3 IF ERROR b f P* b P* CHECK IF RECORD IS USED b P* b & P CF A14,CHKRCD CHECK RECORD STATUS b P RB(E) DEL020 USED b
0x357d64…357ef8 Dummy {f00=0x010d, f01=0x0190, f02=»ECORD FOUND b P* c & P* SET RC BIT 6 IF NEXT KEY SAME c P* c H P LC A7,-1,A1 NR OF SAME CHAR c R P ANK A7,/FF c v 2 P ST A7,16,A14 SAVE IN RECORD BUFFER AFTER ECB c P CWR A10,A7 KEY LENGTH c $ P RF(NE) DEL220 NEXT KEY NOT SAME c P L
0x357ef8…35808c Dummy {f00=0x010d, f01=0x0190, f02=» $ P ADKL A10,7 TOTAL RECORD LENGTH d P LDR A2,A4 d , P ADKL A2,BUFSTA d > P AD A2,FDBRRO,A11 TO ADDR d V P LDR A1,A2 d x P ADR A1,A10 FROM ADDR d P LD A3,FDBMRO,A11 d P SU A3,FDBRRO,A11 NR OF CHAR d P CF A14,MOVFW MOVE d P* d
0x35808c…358220 Dummy {f00=0x010d, f01=0x0190, f02=»* UPDATE CRN FOR MOVED RECORDS d P* e ( P CF A14,GTLGRN GET REC NR e 2 P LDR A12,A1 e T " P LDR A13,A2 FIRST REC NR MOVED e h 2 P LD A3,FDBRRO,A11 SAVE RELATIVE RECORD OFFSET e P LD A6,FDBMRO,A11 e P ST A6,FDBRRO,A11 MAX OFFSET e $ P CF A1
0x358220…3583b4 (1, 884) Dummy {f00=0x010d, f01=0x018e, f02=»DK A5,1 MARK BUFFER CHANGED e P EJECT f $ PDEL240 EQU * f 2 P LD A1,FDBRRO,A11 f F $ P RF(NZ) DEL290 NOT FIRST RECORD f ` P CF A14,GTLGRN GET REC NR f P LDK A6,0 f P LDK A7,1 f $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 f P RF(Z) DEL600 FILE
0x3583b4…358548 Dummy {f00=0x010d, f01=0x0190, f02=» f n P EJECT g P* g P* WRITE SECTOR g P* g 8 P CF A14,FMIOWR g B P ABL(NZ) DMTERR g X $ P LDK A5,0 BUFFER NOT CHANGED YET g p PDEL245 EQU * g " P CF A14,SDMRBU RELEASE BUFFER g P* g P* GET PREVIOUS SECTOR g P* g P L
0x358548…3586dc Dummy {f00=0x010d, f01=0x0190, f02=» P RF DEL300 h PDEL290 EQU * h P SU A1,FDBRLE,A11 h * P SUK A1,1 h D PDEL300 EQU * h V , P ST A1,FDBRRO,A11 PREVIOS RECORD OFFSET h j & P CF A14,CHKRCD CHECK RECORD STATUS h P RB(NE) DEL240 FREE h P EJECT h P* h P* SET CURRENCY
0x3586dc…358870 Dummy {f00=0x010d, f01=0x0190, f02=» " P CF A14,CRNGET GET CRN BUFFER i ( P LDR A11,A12 FDB ADDRESS INDEX FILE i * $ P LC A1,FWTFNR,A11 INDEX FILE NR i V $ P CC A1,CRNCIF,A2 LAST REF INDEX i ~ P RF(NE) DEL350 NOT THIS IND i P* i P* UPDATE CURRENCY i P* i P LDR A3,A2 CRN
0x358870…358a04 Dummy {f00=0x010d, f01=0x018e, f02=»C A2,17,A14 NR OF SAME IN DELETED RECORD i " P* WAS SAVED AT LABEL DEL200 j 0 P CC A2,-4,A9 j V P RF(NL) DEL600 j j ( P SC A2,-4,A9 MAKE NR OF SAME SMALLER j P RF DEL700 WRITE SECTOR j PDEL600 EQU * j P ADK A5,0 j $ P RF(Z) DEL900 BUFFER N
0x358a04…358b98 Dummy {f00=0x010d, f01=0x0190, f02=» j ~ PDEL900 EQU * k P ABL INS440 k P XIF k 0 P EJECT k < P* k J P* FNDBLB=FIND BLOCK BUFFER k T P* k v PFNDBLB EQU * k P LD A7,DWTOR,A11 ORDER k P ANK A7,/3F k P SUK A7,ORDSQ0 k & P RF(NZ) FBL110 NOT READ SEQUENTIAL k P*
0x358b98…358d2c Dummy {f00=0x010d, f01=0x0190, f02=» k ~ P CW A3,FDBLRN+1,A11 l P RF(NG) FBL110 NO EOF l $ PFBL100 EQU * l B P LDK A2,1 INDICATE ERROR l V P LDKL A1,EOFERR EOF l v P RF FBL170 RETURN l PFBL110 EQU * l P LDKL A2,/CFFF l & P ANS A2,FDBDBR,A11 RELEASE BUFFER l $ P CF A14,
0x358d2c…358ec0 Dummy {f00=0x010d, f01=0x0190, f02=» IF IT IS NOT THE WANTED BLOCK l P* m ( P LC A7,BUFOR,A4 DELAY FLAG m 2 P ANK A7,/3 m T P RF(Z) FBL150 NO DELAY m f P CM BUFOR,A4 RESET m P ANK A7,1 m P RF(NZ) FBL130 RIGHT SECTOR m P LD A7,BUFSNR,A4 SECT NR m P ST A7,ECBCW,A8 m
0x358ec0…359054 (1, 885) Dummy {f00=0x010d, f01=0x0190, f02=» m r P RB FNDBLB GET NEW BUFFER n P EJECT n * PFBL120 EQU * n 8 P* n L P* READ BLOCK INTO BUFFER n V P* n x " P CF A14,FMIORD PHYSICAL READW n P RF(NZ) FBL160 ERROR n P LD A5,ECBBA,A8 n P RF FBL150 n . PFBL130 EQU * RIGHT DELAYED
0x359054…3591e8 Dummy {f00=0x010d, f01=0x0190, f02=»F FBL170 n PFBL160 EQU * o P LDKL A2,-1 INDICATE ERROR o $ PFBL170 EQU * o F P ADKL A14,4 o Z P ADK A2,0 SET CR o n P ABR* A14 o P EJECT o P* o @ P* CHKSTS=CHECK RECORD STATUS AND LOAD LOGICAL RECORD NUMBER o P* o P* ENTRY :
0x3591e8…35937c Dummy {f00=0x010d, f01=0x0190, f02=» NUMBER o r ( P* A10=RECORD STATUS POINTER p P* A4=DESTROYED p < & P* CR=0 IF RECORD NOT USED p Z P* p PCHKSTS EQU * p P LD A10,FDBRRO,A11 p P AD A10,FDBRLE,A11 p P ADR A10,A5 p P LD A1,ECBCW,A9 p P LD A2
0x35937c…359510 Dummy {f00=0x010d, f01=0x4134, f02=»AMETERS AND THEN GO TO FNDKEY SUBROUTINE p P* q 0 P IFT INDXAC=1 q : PFNDKYP EQU * q P P LDR A9,A11 q d $ P ADKL A9,FDBKEY KEY AREA ADDRESS q x * P LD A10,FDBRLE,A11 RECORD LENGTH INDEX q P SUKL A10,6 KEY LENGTH q P ABL FNDKEY q P XIF q
0x359510…3596a4 Dummy {f00=0x010d, f01=0x2008, f02=» r + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x3596a4…359838 Dummy {f00=0x010d, f01=0x0190, f02=»T q P { P W" f H D !@ R V ` ^ Z d V b # ' ` + Z / d 1T 5V" 9 " H D ! ;R I h O j [ l gPN kP oPF sP h l P h f : P n H D !J) W2 h l P f > l P h ^ P6 P > H D !
0x359838…3599cc Dummy {f00=0x010d, f01=0x4118, f02=» L P R H D !"@ L L L F P W - F 5 P 7P = P K R W N H D ! @ [P _ e o sP w N R R J T V P0 T X T Z H D ! H # J %P ) J /P 7P, CP k ^ q b { Z T F T ,
0x3599cc…359b60 Dummy {f00=0x010d, f01=0x40aa, f02=» J F IDENT EBCDIC REL 10.0 80-03-14 870105041000 TASCIIK TEBCDI R TASCIIK l TEBCDI @ P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/6A00,/0000 78-7F 4 P DAT
0x359b60…359cf4 (1, 886) Opaque[0x194]
0x359cf4…359e88 # DirEnt {nam=»SDMOCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21b8, f03=0x0000}
0x359cf4…359e88 IdxSect {
0x359cf4…359e88 f00 = 0x010d // 0x359cf4 @0x0
0x359cf4…359e88 f01 = 0x0018 // 0x359cf6 @0x2
0x359cf4…359e88 gno = [ // 0x359cf8 @0x4
0x359cf4…359e88 [0x00]: C0x010d.0x3.0
0x359cf4…359e88 [0x01]: C0x010e.0x0.0
0x359cf4…359e88 [0x02]: C0x010e.0x1.0
0x359cf4…359e88 [0x03]: C0x010e.0x2.0
0x359cf4…359e88 [0x04]: C0x010e.0x3.0
0x359cf4…359e88 [0x05]: C0x010f.0x0.0
0x359cf4…359e88 [0x06]: C0x010f.0x1.0
0x359cf4…359e88 [0x07]: C0x010f.0x2.0
0x359cf4…359e88 [0x08]: C0x010f.0x3.0
0x359cf4…359e88 [0x09]: C0x0110.0x0.0
0x359cf4…359e88 [0x0a]: C0x0110.0x1.0
0x359cf4…359e88 [0x0b]: C0x0110.0x2.0
0x359cf4…359e88 ]
0x359cf4…359e88 }
0x359e88…35a01c Dummy {f00=0x010d, f01=0x0190, f02=» 2 P IDENT SDMOCR REL 11.0 81-05-12 870105041100 P : P =8,CONDITION FOR CR,DE,EX B P =8,REL 11.0 81-04-02 f * P =7,NO DEL OF FILE WHEN NOT OP. EXC. P =7,REL 11.0 81-03-24 . P =6,NO EXCLUSIVE ACCESS WHEN MXIND READ P
0x35a01c…35a1b0 Dummy {f00=0x010d, f01=0x0190, f02=»T CORRECT | P =4,REL 11.0 81-02-24 . P =3,FORMAT FIRST RECORD ALSO WHEN LRN=0 2 P =3,REL 11.0 81-02-12 d * P =2,FILE NBR IN WRONG REG. WHEN RFP P =2,REL 11.0 81-02-04 P =1,CLOSE FORMAT CHANGED P =1,REL 11.0 81-01
0x35a1b0…35a344 Dummy {f00=0x010d, f01=0x018e, f02=»SDMOCR HANDLES OPEN CLOSE AND READ FILE PARAMETERS $ P* IT IS ACTIVATED FROM SDMTSK : P* b P* l P* v P* P* 8 P**************************************************** P* P EJECT P* P***************
0x35a344…35a4d8 Dummy {f00=0x010d, f01=0x0190, f02=» P* P***************** P* EXTERNALS * , P***************** F P* ` . P EXTRN CLRBUF,CRNCDF,CRNCIF,CRNGET,CRNQUE j P EXTRN ECBRC 4 P EXTRN FDBADF,FDBBLF,FDBCRL,FDBECB,FDBKA,FDBLRN 4 P EXTRN FDBMEC,FDBMIA,FDBNIF,FDBR
0x35a4d8…35a66c Dummy {f00=0x010d, f01=0x018e, f02=»RN MPYMOD,MXIND P EXTRN DIVMOD & P EXTRN FDBDBR,FDBMRO,FDBDMI,FDBBLZ . P EXTRN FDBOMD X P EXTRN ECBFC n P EXTRN ECBBA P EXTRN ECBEL P EXTRN ECBRL P EXTRN DWTECB P EXTRN DWTOR P EXTRN DWTTAB,DWTOPT . P EXT
0x35a66c…35a800 Dummy {f00=0x010d, f01=0x0190, f02=» P EXTRN CASZEN,COSZEN & P EXTRN GTBKBU,FRMFIL,FMIOCR,FMIODL P EJECT J P EXTRN CRNSTA,DFTAB,DMTIDP X P EXTRN SDMERX z P EXTRN MOVFW P EXTRN EARELB P EXTRN TASHLT P EXTRN FDBEAL P EXTRN RECBFZ,REQERR P EXTRN
0x35a800…35a994 (1, 887) Dummy {f00=0x010e, f01=0x0190, f02=»XTRN FDBRRO,FDBSNR P EXTRN FORMER P EXTRN ADDMOD 0 P EXTRN SDMRLB,SDMTTD F P EXTRN ORDFLP b P EXTRN ENLFAC x P EJECT SDMTSK P************************* P* CONDITIONAL ASSEMBLY P**************************
0x35a994…35ab28 Dummy {f00=0x010e, f01=0x0190, f02=»QU 0 P* P* P* 6 P* A PROGRAM VERSION FOR INDEXED ACCESS HANDLING * * P* IS OBTAINED BY SETTING INDXAC = 1 d PX:A EQU 0 PINDXAC EQU X:A P* ( P* A VERSION LEAVING OUT OPEN MODES: * P* OPEN OUTPUT,OPEN EXTEN
0x35ab28…35acbc Dummy {f00=0x010e, f01=0x0190, f02=»TA EQU 0 START ADDR FPB ( PFPB:IV EQU FPBSTA+58 VOL NAME INDEX $ PFPB:IS EQU FPBSTA+64 INDEX SIZE L $ PFPB:NI EQU FPBSTA+68 NR OF INDEX t $ PFPB:I1 EQU FPBSTA+70 INDEX ID 1 $ PFPB:A1 EQU FPBSTA+78 KEY ADDR 1 & PFPB:L1 EQU FPBSTA+80 KEY LEN
0x35acbc…35ae50 Dummy {f00=0x010e, f01=0x0190, f02=»IZ EQU 60 SIZE OF FPB AREA IN WORDS P* , 8 PFPBRES EQU 8 RESERVED FIELD LENGTH IN FILE PAR BLOCK 6 P* r $ PNOCORE EQU 1 NO CORE ERROR CODE | P* " PERPAR EQU 4 WRONG PAR ERR CODE P* POFLW EQU 3 OVERFLOW ERR CODE P*
0x35ae50…35afe4 Dummy {f00=0x010e, f01=0x018e, f02=» DATA DEFINITIONS * P************************ : P* HERE FOLLOWS NON-REENTRANT AREAS USED BY ORDERS : > ( P* OPEN,CLOSE,READ FILE PARAMETERS. | P* POPESPA DATA ' ' 2 SPACES " POPEFN EQU * FILE NAME PREFIXES P DATA ' '
0x35afe4…35b178 Dummy {f00=0x010e, f01=0x018e, f02=» " POPEFCD EQU * OPENED FILE CODES P DATA 0,0,0 . POPEFWT EQU * FWT ADDRESSES B P DATA 0,0,0,0,0 d ( POPEMXI EQU * MASTER INDEX ADDRESSES | P DATA 0,0,0,0,0 0 POPELRN DATA 0,0,0,0,0,0,0,0,0,0 LAST REC NRS P EJECT ( POPEKAD
0x35b178…35b30c Dummy {f00=0x010e, f01=0x0190, f02=» ( PINDVOL RES 3 VOLUME NAME INDEX FILES , POPEFPB RES FPBSIZ FILE ADM PARAM. BLOCK 0 & POPEEND EQU *-OPEFNR-2 NR OF BYTES ` P EJECT 2 P********************************************* 2 P* R E A D F I L E P A R A M E T E R S * 2 P****
0x35b30c…35b4a0 Dummy {f00=0x010e, f01=0x0190, f02=»ALL ORDERS v " P* A7 = ORDER CODE ALL ORDERS P* 8 P LDR A10,A11 FBD ADDR B " P LC A2,FDBNIF,A11 NR OF INDEX ` P ANK A2,/FF P ST A2,NROFIX P* STORE FILE NRS IN OPEFNR P* P LDK A5,10 2 * INDEXES PRFP100 EQU *
0x35b4a0…35b634 (1, 888) Dummy {f00=0x010e, f01=0x0190, f02=» RFP130 NO FILE P LC A2,FWTFNR,A3 FILE NR PRFP130 EQU * 8 P LDR A4,A5 L P SRL A4,1 ^ " P SC A2,OPEFNR,A4 SAVE FILE NR p P RB RFP100 NEXT FILE P EJECT P*************** P* O P E N * P*************** P
0x35b634…35b7c8 Dummy {f00=0x010e, f01=0x0190, f02=» P* A12 = FPB ADDRESS P* " P* A9 = LOOP COUNTER FILES , P* P P* 1 = DATA FILE Z P* 2 = INDEX 1 z P* 3 = MASTER INDEX 1 P* 4 = INDEX 2 P* ETC P* P LDR A10,A11 S
0x35b7c8…35b95c Dummy {f00=0x010e, f01=0x0190, f02=» * P CM OPEFNR,A2 P SUK A2,2 * P RB(NN) SDMO10 NO MORE WORDS TO CLEAR 2 P* ` P* MOVE IN PARAMETER BLOCK j P* & P LD A1,DWTECB,A11 USER ECB ADDRESS " P LD A1,ECBBA,A1 FD ADDR USER " P ADK A1,FPBRES RESERVED FIELDS
0x35b95c…35baf0 Dummy {f00=0x010e, f01=0x018e, f02=» CF A14,MOV:US P XIF P IFT MMUPAG=0 " P CF A14,MOVFW 8 P XIF N P IFT INDXAC=1 Z P EJECT p P* ~ $ P* SAVE VOLUME NAME INDEX FILES P* P LDR A1,A12 FPB ADDR P ADKL A1,FPB:IV FROM ADDR P LDKL A2,INDVOL
0x35baf0…35bc84 Dummy {f00=0x010e, f01=0x0190, f02=» P ST A5,DELAY P IFT INDXAC=1 P LC A5,FPB:FO,A12 2 P ANK A5,/FF L P RF(Z) SDMO30 STANDARD FILE ` " P LC A5,DWTOR+1,A11 ORDER CODE P SUKL A5,SDMOEE 6 P ABL(NN) OERQER OUTPUT SEQ.,RAND.,EXT. NOT ALLOWED $ P LD A5,DWTEC
0x35bc84…35be18 Dummy {f00=0x010e, f01=0x0190, f02=»A5,FPB:NI,A12 NR OF INDEXES P SC A5,NROFIX+1 $ P EJECT < P* J ( P* SAVE BASE ADDRESSES FOR INDEXES T P* P LDK A2,FPB:A1 $ P ADR A2,A12 ADDR FIRST KEY ADDR P ANK A5,/F P LDK A3,2 OFFSET INDEX 1 PSDMO20 EQU *
0x35be18…35bfac Dummy {f00=0x010e, f01=0x0190, f02=»Z) OESWP4 ERR P LC A1,2,A2 KEY LENGTH P ST A1,OPEKYL,A3 4 P LDR* A1,A2 KEY OFFSET L P ST A1,OPEKAD,A3 j P ADK A2,FPB:I2-FPB:I1 P ADK A3,2 P RB SDMO20 P XIF PSDMO30 EQU * " P LDKL A9,1 INDICATE DATA FILE
0x35bfac…35c140 Dummy {f00=0x010e, f01=0x0190, f02=»***************** | P P* " @ P* O P E N O R C R E A T E F I L E W I T H F M , P* p POPLENT EQU * z P ST A12,ECBBA,A8 FPB ADDR P LC A5,FPB:BO,A12 P ANK A5,1 ( P SC A5,FPB:BO,A12 ONLY BASIC ALLOWED P
0x35c140…35c2d4 (1, 889) Dummy {f00=0x010e, f01=0x0190, f02=»1 =8 P* " P* IF OPEN OUTPUT RANDOM OR " P* OPEN OUTPUT SEQUENTIAL > P* THEN CREATE FILE d P* ~ P LC A5,DWTOR+1,A11 P SUKL A5,SDMOOS & P RF(N) OPL120 NO CREATION OF FILE P EJECT P* P* C R E A T
0x35c2d4…35c468 Dummy {f00=0x010e, f01=0x0190, f02=»DK A1,'S' FILE TYPE P SC A1,FPB:FO,A12 P LDKL A1,FPB:MN 6 P ADR A1,A12 POINTER IN FPB N ( P LDK A2,11 NUMBER OF BYTES TO RESET p P LDK A3,0 POPL110 EQU * P SCR A3,A1 RESET BYTE P ADK A1,1 UPDATE POINTER P SUK A2,
0x35c468…35c5fc Dummy {f00=0x010e, f01=0x0190, f02=»CR CREATE FILE P RF(NZ) OERCA1 ERROR P RF OPL125 2 P XIF =8 D P EJECT V P* d P* O P E N F I L E n P* POPL120 EQU * P CF A14,FMIOOP OPEN P RF(NZ) OERCA1 ERR P* P* SAVE FILE NR P*
0x35c5fc…35c790 Dummy {f00=0x010e, f01=0x0190, f02=» EQU * P* P* GET FWT ADDR IN A10 P* 8 P ANK A2,/FF B " P LDKL A10,FDBSTA SYST FDB ADDR V P LDR A3,A2 FILE NR | POPL140 EQU * P RF(Z) OPL150 END COUNT P LDR* A10,A10 NEXT FDB P ANKL A10,/FFFE USE BIT P
0x35c790…35c924 Dummy {f00=0x010e, f01=0x0190, f02=» ADDR IN A11 $ P LDK A6,0 DEFAULT ENLARGE FACTOR ( P LC A3,DWTOR+1,A11 INTERN ORDER CODE < P SUKL A3,SDMOEE h & P RF(N) OPL155 NO ENLARGE DECLARED $ P LD A6,FPB:EL,A12 ENLARGE FACTOR POPL155 EQU * P STR A2,A8 FILE NR 4 P CF A14,
0x35c924…35cab8 Dummy {f00=0x010e, f01=0x0190, f02=»RS A1,ECBRC,A2 RET CODE P XRR A10,A11 P XRR A11,A10 4 P XRR A10,A11 H P EJECT P* j P* A10 = SYSTEM FDB ADDRESS t P* A11 = CURRENT FDB ADDRESS P* P IFT INDXAC=1 P CWK A9,1 P RF(NE) OPL160 INDEX FILE
0x35cab8…35cc4c Dummy {f00=0x010e, f01=0x018e, f02=»DR A9,A7 NEW LOOPER , P SUR A13,A13 REL ADDR IN TABLES OF OPEN P RF OPL170 L POPL160 EQU * ^ P LDR A7,A9 r P ANK A7,/FE REL ADDR P LDR A13,A7 POPL170 EQU * P XIF P IFT INDXAC=0 " P SUR A13,A13 IDICATE DATA FILE
0x35cc4c…35cde0 Dummy {f00=0x010e, f01=0x0190, f02=» P . P****************************************** . P* C H E C K O P E N E D F I L E * B . P****************************************** t P P LDK A3,'S' 'S' P CC A3,FPB:FO,A12 $ P RF(NE) OERQER NOT STANDARD FILE " P
0x35cde0…35cf74 (1, 890) Dummy {f00=0x010e, f01=0x0190, f02=» IF OPENED EXCLUSIVE z * P RF(NZ) OERQER OPENED EXCLUSIVE BEFORE P CC A3,FDBOMD,A11 J 2 P RF(NE) OERQER THIS OPEN NOT SAME AS OLD OPEN d 6 P LC A3,FDBNIF,A11 NR OF INDEX BEFORE FOR THIS FILE P CW A3,NROFIX NR OF INDEXES $ P RF(NE) OESWP4 A
0x35cf74…35d108 Dummy {f00=0x010e, f01=0x0190, f02=»LAY x POPL180 EQU * P ABL OPSPLT P EJECT 4 P B P******************* J P* E R R O R S * f P******************* P POERCA1 EQU * =4 P LDR A6,A1 RETURN CODE =4 , P ANKL A6,/E10 MASK BITS 4,5,6 AND 11 =4
0x35d108…35d29c Dummy {f00=0x010e, f01=0x0190, f02=» P RF(N) OESNC1 NO CORE =4 POESOF3 EQU * =4 $ P LDK A6,OFLW OVERFLOW =4 < P RF OESCOM =4 POESIN9 EQU * =4 r " P LDK A6,ILLNAM ILLEGAL NAME =4 P RF OESCOM =4 POESNC1 EQU * =4 $ P LDK A6,NOCORE CORE EXHAUSTED =4 P R
0x35d29c…35d430 Dummy {f00=0x010e, f01=0x0190, f02=»6,ERKEYL LONG KEY =4 POESCOM EQU * =4 ! $ P LDR A11,A10 MAIN FDB ADDRESS =4 ! 4 * P CF A14,CRNGET GET CURRENCY BUFFER =4 ! " P SC A6,CRNSTA,A2 SET STATUS =4 ! & P LDKL A1,/8080 SET RETURN CODE =4 ! P RF OERCOM =4 ! POERQER EQU * =4 ! & P
0x35d430…35d5c4 Dummy {f00=0x010e, f01=0x0190, f02=»RESS =4 ! r ( P ORS A1,ECBRC,A9 SET RETURN CODE =4 " * P ABL CLOCOM CLOSE EVENTUALLY FILES =4 " < P EJECT " j P " x P*************************** " P* F I R S T O P E N * " P*************************** " P " P* " P* CLEAR
0x35d5c4…35d758 Dummy {f00=0x010e, f01=0x0190, f02=»F(N) OPF110 OK " P LDR A7,A11 # P ADR A7,A2 # * P CM FDBECB,A7 # < P RB OPF100 # R P EJECT # d P* # r P* BUILD FWT FDB PART # | P* # POPF110 EQU * # P LD A2,DELAY # , P ST A2,FDBDBR,A11 SET DELAY FOR NEW FILE # P LD A3,FPB:R
0x35d758…35d8ec Dummy {f00=0x010e, f01=0x018e, f02=»F INDEXES # ~ ( P SC A3,FDBNIF,A11 NR OF INDEX FILES $ P LC A3,FPB:FR+1,A12 $ > P SC A3,FDBLRN,A11 $ Z P LD A3,FPB:FR+2,A12 $ t $ P ST A3,FDBLRN+1,A11 LAST REC NR $ P CM FDBSNR,A11 $ P LDK A3,1 $ , P ST A3,FDBSNR+2,A11 RESET SECTOR NUMBER
0x35d8ec…35da80 Dummy {f00=0x010e, f01=0x018e, f02=» $ | P CW A3,OPEKAD,A13 % P RB(NE) OESWP4 WRONG KEY % " P ST A3,FDBKA,A11 KEY ADDR % B POPF120 EQU * % d P LC A3,FPB:BO,A12 % x P SLL A3,8 % & P ORS A3,FDBDBR,A11 BASIC + OPTION % P EJECT % P* % P* CALCULATE SDMTSK ID % P*
0x35da80…35dc14 (1, 891) Dummy {f00=0x010f, f01=0x0190, f02=» P RB(NE) OPF140 NOT THIS DISC & $ P LC A3,DMTIDP,A6 REL DM TASK ID & ( $ P SC A3,FDBDMI,A11 MAIN SDMTSK ID & P P* & x 4 P* CALCULATE MAX FDBRRO AND BLOCKSIZE IN SECTORS & P* & P CF A14,CARRBL & & P RB(G) OESWP4 TOO LARGE BLOCK SIZE & P ST
0x35dc14…35dda8 Dummy {f00=0x010f, f01=0x0190, f02=» & P* CALCULATE ENLARGE FACTOR ' P* ' * $ P LDR A4,A2 BLOCK SIZE IN SECTORS ' 4 P CF A14,ENLFAC ' P RB(O) OESOF3 OVERFLOW ' r * P ST A3,FDBENL,A11 SAVE ENLARGE FACTOR ' P XIF =8 ' P EJECT ' P* ' P* SET OPEN MODE ' P* '
0x35dda8…35df3c Dummy {f00=0x010f, f01=0x0190, f02=») OPF150 EXCLUSIVE ACCESS NOT WANTED ' " P LD A1,DWTTAB,A10 TTAB ADDRESS ( , POPF150 EQU * ( R 0 P ST A1,FDBEXC,A11 SET EXCLUSIVE ACCESS USER ( f P IFT CRDEEX=1 =8 ( P ANK A3,/FF ( P CWK A3,SDMOOR ( 2 P RF(NE) OPSPLT NOT OUTPUT RANDOM,DON'T FOR
0x35df3c…35e0d0 Dummy {f00=0x010f, f01=0x0190, f02=»DRESS ( | P CF A14,FRMFIL FORMAT FILE ) ( P RB(NZ) OERCOM ERROR WHEN FORMATTING ) 0 P XIF =8 ) P EJECT ) n P ) | L P*********************************************************************** ) L P* D A T A , I N D E X O R M A S T E R I N
0x35e0d0…35e264 Dummy {f00=0x010f, f01=0x0190, f02=» ST A11,OPEFWT,A13 SAVE FWT ADDR ) P IFT INDXAC=1 * ( P LDR A13,A13 * > P ABL(Z) OPDATA DATA FILE * R P LDR A3,A9 * r P ANK A3,/1 * P ABL(Z) OPINDX INDEX FILE * P EJECT * P * $ P******************************* * $ P* M A S T E R
0x35e264…35e3f8 Dummy {f00=0x010f, f01=0x0190, f02=»READ FILE PAR * z P LD* A3,DWTECB,A10 FILE CODE + P ANK A3,/FF + : . P ST A3,SDMTTD,A14 FC ENTRY IN TTAB SDMTSK + N P ST A11,SDMTTD+2,A14 + P STR A3,A8 + P LDK A2,0 + 2 P SC A2,FDBDBR,A11 NO SPECIAL FUNCTIONS ALLOWED + ( P SC A2,FDBBLZ+1,A1
0x35e3f8…35e58c Dummy {f00=0x010f, f01=0x0190, f02=»OF WORDS NEEDED IN MASTER INDEX + P* , ( P LD A6,FPB:RL,A12 REC LGTH , 2 P LDR A1,A6 , T P SUK A1,3 KEY LENGTH , f P CW A1,OPEKYL,A13 REQUESTED , P ABL(NE) OESWP4 ERR , " P LD A7,FPB:FR+2,A12 NO OF RECS , , P CF A14,MPYMOD A1,A2=NO OF BYTES
0x35e58c…35e720 Dummy {f00=0x010f, f01=0x0190, f02=»0 WRONG SIZE , P LD A4,MXIND LENGTH MXIND - P SUK A4,4 MAX A5 VALUE - 6 P LDKL A5,-2 OFFSET - T POPM100 EQU * - n P ADK A5,4 GET ENTRY - P CWR A5,A4 - P RF(G) OPM140 NO ENTRY FOUND - P LD A3,MXIND,A5 - P RB(Z) OPM100 ZERO ENTRY -
0x35e720…35e8b4 (1, 892) Dummy {f00=0x010f, f01=0x0190, f02=» P EJECT . P* . P* SUFFICIENT SPACE FOUND . P* . > P LDKL A1,/8000 USED BIT . H & P ORS A1,MXIND+2,A5 MARK ENTRY USED . h P LDR A7,A9 . P ANK A7,/0E . & P ST A3,OPEMXI,A7 MASTER INDEX ADDR . P LD A7,FPB:FR+2,A12 . P STR A7,A3
0x35e8b4…35ea48 Dummy {f00=0x010f, f01=0x0190, f02=» ADDR . z P ST A1,ECBRL,A8 REQ LGTH / . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION / . P CWR A1,A4 MXIND ENTRY / ` P RF(NL) OPM110 LAST ENTRY / ~ P LD A3,MXIND+6,A1 / " P RF(N) OPM110 NEXT ENTRY USED / P EJECT / P* / & P* MOVE SPARE W
0x35ea48…35ebdc Dummy {f00=0x010f, f01=0x018e, f02=» BIT / ~ P ST A2,MXIND+2,A1 0 . P ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER 0 & $ P LD A7,MXIND,A1 PREVIOUS POINTER 0 X P SLL A2,1 NO OF BYTES 0 P ADR A7,A2 0 P ST A7,MXIND+4,A1 0 P EJECT 0 P* 0 ( P* R E A D M A S T E R I N D E X 0
0x35ebdc…35ed70 Dummy {f00=0x010f, f01=0x0190, f02=» ( P LD A2,FDBEXC,A11 EXCLUSIVE TTAB =6 1 2 P CM FDBEXC,A11 INDICATE NO EXCLUSIVE ACCESS =6 1 0 P LDK A7,/82 READ SEQUENTIAL 1 f P LKM 1 P DATA 1 1 8 P ST A2,FDBEXC,A11 EXCLUSIVE ACCESS CORRECT AGAIN =6 1 P LD A2,ECBRC,A8 1 & P ANKL A2,/FEFF
0x35ed70…35ef04 Dummy {f00=0x010f, f01=0x0190, f02=»N BUF ADR 1 | P RF(Z) OPM120 NO CRN 2 P CM FDBCRL,A11 2 . P INH 2 D P LD A6,CRNQUE 2 P P STR A6,A5 2 f P ST A5,CRNQUE 2 x P ENB 2 POPM120 EQU * 2 P LDR A1,A2 2 P ANKL A2,/1000 BIT 3 = EOF 2 0 P RF(NZ) OPM150 READY ,WHOLIE MXINDEX I
0x35ef04…35f098 Dummy {f00=0x010f, f01=0x018e, f02=»RL,A8 2 P ADS A2,ECBBA,A8 REC LENGTH 3 P RB OPM110 READ NEXT RECORD 3 2 POPM140 EQU * 3 V " P ABL OESNC1 CORE EXHAUSTED =4 3 j P EJECT 3 P* 3 D P* C O M P L E T E M A S T E R I N D E X F I L E R E A D 3 P* 3 P* CLOSE MAST
0x35f098…35f22c Dummy {f00=0x010f, f01=0x018e, f02=» P LDR A7,A9 LOOP COUNT 4 P SRL A7,1 4 " P LC A7,OPEFNR,A7 FILE NR 4 4 P SC A7,ECBFC,A8 4 T $ P ST A12,ECBBA,A8 PAR BLOCK ADDR 4 l , P CF A14,CLRBUF RELEASE ALL FREE BUFFERS 4 P XRR A10,A11 4 P XRR A11,A10 4 P XRR A10,A11 4 , P CF A14,
0x35f22c…35f3c0 Dummy {f00=0x010f, f01=0x0190, f02=» 4 ~ P ABL OPCHEK NEXT FILE 5 P EJECT 5 & P 5 4 P*************************** 5 < P* I N D E X F I L E * 5 ` P*************************** 5 P 5 POPINDX EQU * INDEX FILE 5 P* 5 P* UPDATE PAR BLOCK 5 P* 5 $ P LD A3,O
0x35f3c0…35f554 (1, 893) Dummy {f00=0x010f, f01=0x0190, f02=» 5 P SRL A3,1 6 P LDR A2,A3 6 P LDR A4,A12 6 , P LDK A5,FPB:I2-FPB:I1 6 @ P SUR A4,A5 6 ^ P EJECT 6 p POPI100 EQU * 6 ~ P ADR A4,A5 REL ADDR 6 P SUK A2,1 NEXT INDEX 6 P RB(NZ) OPI100 6 P ECR A3,A3 6 P ADK A3,1 TYPE DUPL 6
0x35f554…35f6e8 Dummy {f00=0x010f, f01=0x0190, f02=»MS 6 t P LD A7,FDBKA,A11 KEY OFFSET 7 P ST A7,FPB:A1,A4 KEY ADDR 7 . P LD A7,FDBRLE,A11 REC LGTH 7 P P SUK A7,6 7 r P CM FPB:L1,A4 FILLER 7 P SC A7,FPB:L1,A4 KEY LENGTH 7 P ADK A7,8 7 P SRL A7,1 WORD 7 P CWK A7,RECBFZ 7 P ABL(G
0x35f6e8…35f87c Dummy {f00=0x010f, f01=0x0190, f02=»2 SIZE IN SECTORS 7 ~ P LC A6,FDBBLZ,A11 BLOCK SIZE 8 P ANK A6,/FF 8 > P CF A14,DIVMOD 8 R P ABL(O) OESOF3 LONG FILE 8 h P CM FPB:IS,A12 8 & P ST A2,FPB:IS+2,A12 SIZE IN BLOCKS 8 P* 8 P* GET INDEX VOLUME NAME 8 P* 8 P LDKL A1,F
0x35f87c…35fa10 Dummy {f00=0x010f, f01=0x0190, f02=» RF OPCHEK 8 P XIF 9 P EJECT 9 P 9 , P************************* 9 4 P* D A T A F I L E * 9 V P************************* 9 x P 9 POPDATA EQU * DATA FILE 9 P* 9 P* UPDATE USER PAR BLOCK 9 P* 9 P LC A2,FDBNIF,A11
0x35fa10…35fba4 Dummy {f00=0x010f, f01=0x0190, f02=»2,1 9 $ P SC A2,FPB:FO+1,A12 DEVICE TYPE : P LC A2,OPEFNR FILE NR : 4 P SC A2,FPB:FM,A12 : R P LD A2,FDBDBR,A11 : l P SRL A2,14 : . P SC A2,FPB:BO,A12 DELAY BASIC TOSS OPTIONS : P* : , P* CONVERT SIZE TO NUMBER OF RECORDS AND : * P*
0x35fba4…35fd38 Dummy {f00=0x010f, f01=0x0190, f02=»* : P LDKL A3,FPB:FR ; P SUKL A3,FPB:RL LENGTH ; " $ P LD A4,DWTECB,A10 USER ECB ADDR ; @ P LD A1,ECBRL,A4 REQ LENGTH ; h P SUK A1,FPBRES RESERVED ; P CWR A3,A1 ; P RF(NG) OPD120 TAKE SHORTEST ; P LDR A3,A1 ; POPD120 EQU * ; P L
0x35fd38…35fecc Dummy {f00=0x010f, f01=0x0190, f02=» ; x " P ADK A2,FPBRES RESERVED FIELD < P IFT MMUPAG=1 < . $ P LD A4,DWTTAB,A10 TTAB ADDR USER < D P CF A14,MOV:SU < l P XIF < P IFT MMUPAG=0 < P CF A14,MOVFW MOVE < P XIF < P* < $ P* ADJUST FILE NAME FOR INDEXES < P* < P L
0x35fecc…360060 Dummy {f00=0x010f, f01=0x0190, f02=» < ~ P EJECT = P = F P***************************************************************** = F P* C H E C K I F A L L F I L E S A R E O P E N E D * = h F P***************************************************************** = P = POPCH
0x360060…3601f4 (1, 894) Dummy {f00=0x010f, f01=0x0190, f02=»OPENED = r P EJECT > P > 0 P******************************************* > $ 0 P* M O R E F I L E S T O O P E N * > X 0 P******************************************* > P > P CWK A10,FDBSTA > & P RF(NE) OPN120 READ FILE PAR ORDER >
0x3601f4…360388 Dummy {f00=0x010f, f01=0x0190, f02=»A1 > $ P ANK A1,/3E NR OF OPEN BEYOND 1 ? P RF(Z) OPN100 FIRST ? 2 P ANKL A9,/E NO MASTER INDEX ? N POPN100 EQU * ? r P* ? P* NEXT FILE NAME ? P LDR A7,A9 ? P SLL A7,1 WORD ADDR ? . P LD A1,OPEFN,A7 FIRST 2 CHAR IN FILE NAME ?
0x360388…36051c Dummy {f00=0x010f, f01=0x0190, f02=»DR A2,A12 ? P ADKL A2,FPB:V1 TO ADDR @ P LDK A3,6 @ 2 " P CF A14,MOVFW MOVE VOLUME NAME @ D P EJECT @ j P* @ x * P* MOVE SPACES TO OTHER VOLUME NAMES @ P* @ & P LDK A6,30 NR OF VOLUME NAMES * 10 @ POPN110 EQU * @ P SUK A6,10 @
0x36051c…3606b0 Dummy {f00=0x010f, f01=0x0190, f02=» A3,6 NR OF CHAR @ P CF A14,MOVFW A P RB OPN110 A . . POPN120 EQU * GET FILE NR FOR READ FILE PAR A @ P LDR A7,A9 A r P SRL A7,1 A ( P LC A2,OPEFNR,A7 GET FILE NUMBER =2 A POPN130 EQU * A " P CM DELAY NO DELAY FOR INDEXES A & P CM NROFIX N
0x3606b0…360844 Dummy {f00=0x010f, f01=0x0190, f02=»*********************************** A 4 P* A L L F I L E S A R E O P E N E D * B , 4 P*********************************************** B d P B POPEND EQU * FINISH B & P LD A11,OPEFWT FDB ADDR DATA FILE B P CWK A10,FDBSTA B & P RF(NE)
0x360844…3609d8 Dummy {f00=0x010f, f01=0x0190, f02=»00 EQU * B P SUK A5,2 C " P RF(N) OPE110 ALL FDB UPPDATED C " P C H $ P LD A2,OPEFWT,A5 FDB ADDR INDEX C P P RB(Z) OPE100 NO INDEX FILE C x P LDKL A1,OPEFWT FROM ADDR C P ADKL A2,FDBADF TO ADDR C P LDK A3,10 NO OF BYTES C P CF A14,MOVF
0x3609d8…360b6c Dummy {f00=0x010f, f01=0x0190, f02=»,A10 FILE CODE C P ANK A2,/FF D P SC A2,OPEFCD SAVE D * P LDK A5,0 TTAB AND CDTAB D D $ P LD A1,DWTTAB,A10 USER TTAB ADDR D d 0 P CF A14,FNDFDB A4=TTAB/SCTCDT ENTRY ADDRESS D P ST A11,2,A4 FWT ADDR D P EJECT D P* D P* REMOVE CURRENC
0x360b6c…360d00 Dummy {f00=0x010f, f01=0x0190, f02=» P XRR A11,A10 E P XRR A10,A11 E P LDR A3,A10 E , P ADKL A3,FDBCRL ROOT E @ P INH E POPE120 EQU * E h P LDR A1,A3 E | P LDR* A3,A3 NEXT BUFFER E P CWR A3,A2 E P RB(NE) OPE120 NEXT BUFFER E P LDR* A4,A3 NEXT E P STR A4,A1 E
0x360d00…360e94 (1, 895) Dummy {f00=0x0110, f01=0x0190, f02=»ER SIZE AND UPDATE PARAMETER BLOCK E P* F * P LDK A1,FPB:IV F 4 " P LC A3,FDBNIF,A11 NR OF INDEX F J P ANK A3,/F F p P IFT INDXAC=1 F P RF(Z) OPE150 F P LDR A4,A3 F P SLL A3,3 F P SLL A4,2 F P ADR A3,A4 MULT WITH 12 F P ADK
0x360e94…361028 Dummy {f00=0x0110, f01=0x0190, f02=»USER ECB F ~ P LD A2,ECBRL,A6 TOT LENGTH G P SUK A2,FPB:IV+FPBRES G 2 P CWR A3,A2 REM LGTH G P P RF(NG) OPE160 TAKE SHORTEST G l P LDR A3,A2 G P EJECT G POPE160 EQU * G P LDR A2,A3 G P ADK A2,FPB:IV+FPBRES G ( P ST A2,ECBEL,A6 SET
0x361028…3611bc Dummy {f00=0x0110, f01=0x0190, f02=»IF G P IFT MMUPAG=1 H $ P LD A4,DWTTAB,A10 USER TTAB ADDR H P CF A14,MOV:SU H H P XIF H ^ P EJECT H j P* H x P**************** H P* OPEN END * H P**************** H P* H " P LDR A11,A10 MAIN FDB ADDRESS H P LDK A1,0 RET
0x3611bc…361350 Dummy {f00=0x0110, f01=0x0190, f02=»* H P I PSDMCLO EQU * CLOSE I P* I , " P* (A4= BLOCK BUFFER ADDRESS ) I 6 ( P* (A5 = BLOCK BUFFER DATA ADDRESS ) I $ P* A11= FDB ADDRESS ALL ORDERS I " P* A7 = ORDER CODE ALL ORDERS I P* (A8 = FDBECB ADDRESS ) I P* (A9 = USER EC
0x361350…3614e4 Dummy {f00=0x0110, f01=0x0190, f02=»4,FMIOWR WRITE I $ P ORS A1,ECBRC,A9 SET RETURN CODE J PSDMC10 EQU * J > P IFT CRDEEX=1 =8 J R P LC A3,DWTOPT,A11 J l P ANK A3,2 J P RF(NZ) SDMC20 CLOSE DISCARD J P EJECT J P* J P* CLOSE LOCK J P* J P LC A3,FDBOMD,A11 OPEN
0x3614e4…361678 Dummy {f00=0x0110, f01=0x0190, f02=» EXTEND OR SEQ. J r P* K 8 P* FORMAT FILE IF OPENED OUTPUT SEQUENTIAL OR EXTEND K " P* K ^ ( P LDR A4,A5 BLOCK BUFFER DATA ADDRESS K h 0 P LD A3,FDBRRO,A11 RECORD OFFSET IN BLOCK =1 K P LD A1,FDBBLZ,A11 K " P SLL A1,8 BLOCK SIZE IN BYTES K P
0x361678…36180c Dummy {f00=0x0110, f01=0x0190, f02=» SDMC16 FILE EMPTY =3 K PSDMC12 EQU * =3 L & P AD A3,FDBRLE,A11 RECORD LENGTH =1 L 6 " P ADK A3,1 OFFSET TO LRN + 1 =1 L ` ( P SUR A1,A3 LENGTH LEFT IN BUFFER =1 L PSDMC16 EQU * =3 L & P ADR A3,A4 RECORD POINTER LRN+1 =1 L , P CF A14,FORMER BUILD
0x36180c…3619a0 Dummy {f00=0x0110, f01=0x018e, f02=»OF FILE L ~ $ P ORS A1,ECBRC,A9 SET RETURN CODE M $ P LD A1,FDBSNR,A11 SECTOR NUMBER M 8 P LD A2,FDBSNR+2,A11 M ` P LDK A6,0 M | , P LD A7,FDBBLZ,A11 BLOCK SIZE IN SECTORS M " P CF A14,ADDMOD GET NEXT SECTOR M P ST A1,FDBSNR,A11 M P ST A2,FDB
0x3619a0…361b34 (1, 896) Dummy {f00=0x0110, f01=0x0190, f02=» P XIF =8 N 4 P LD A4,FDBEXC,A11 EXCLUSIVE ACCESS INDICATOR =7 N & P RF(NZ) SDMC25 OPENED EXCLUSIVE =7 N N , P SC A4,DWTOPT,A11 INDICATE CLOSE LOCK =7 N x PSDMC25 EQU * =7 N ( P CF A14,SDMRLB RELEASE BLOCK BUFFER N PSDMC30 EQU * N P* N
0x361b34…361cc8 Dummy {f00=0x0110, f01=0x0190, f02=»NCDF,A2 N P CM CRNCDF+2,A2 O P IFT INDXAC=1 O ( P CM CRNCIF,A2 O > P CM CRNCIF+2,A2 O T P XIF O l P EJECT O x P* O P* BUILD CLOSE TABLES O P* O P LC A7,ECBFC,A9 FILE CODE O P LDK A5,10 2 * FILES O PSDMC40 EQU * O
0x361cc8…361e5c Dummy {f00=0x0110, f01=0x0190, f02=» O P SUR A9,A9 P P SUR A10,A10 P P LD A3,FDBADF,A4 FDB ADDR P . P RF(Z) SDMC50 NO FILE P P & P LD A6,FDBMIA,A3 MASTER INDEX ADDR P n P LC A2,FWTFNR,A3 FILE NR P P LC A9,FDBLRN,A3 LAST REC NR P P LD A10,FDBLRN+1,A3 P PSDMC50 EQU * P
0x361e5c…361ff0 Dummy {f00=0x0110, f01=0x018e, f02=» FILE CODE P P SLL A4,2 Q P ST A9,OPELRN,A4 LAST REC NR Q $ P ST A10,OPELRN+2,A4 Q H P RB SDMC40 NEXT FILE Q d P EJECT Q PSDMC60 EQU * Q P SC A7,OPEFCD FILE CODE Q P* Q P* A11=MAIN FDB ADDRESS Q P* Q $ PCLOCOM EQU * RECOVER
0x361ff0…362184 Dummy {f00=0x0110, f01=0x018e, f02=» Q 6 P* FREE FILE CODES,MASTER INDEXES,FILES, CURRENCY R P* R B P LDKL A9,5 R L POPEE10 EQU * R ^ P SUKL A9,1 R r P RF(NN) OPEE20 MORE FILES R P EJECT R P* R P***************** R P* CLOSE END * R P***************** R
0x362184…362318 Dummy {f00=0x0110, f01=0x0190, f02=» R P LC A2,OPEFCD,A9 FILE CODE S P ANK A2,/FF S * P RF(Z) OPEE25 NO CODE S > P LDK A5,0 TTAB AND CDTAB S $ P LD A1,DWTTAB,A11 USER TTAB ADDR S | P CF A14,FNDFDB S P LDR A2,A2 RET CD S P RF(Z) OPEE25 NO ENTRY S & P LDKL A7,FDBSTA SYSTEM
0x362318…3624ac Dummy {f00=0x0110, f01=0x0190, f02=» S P LDR A7,A9 T P SLL A7,1 WORDS T " P LDR A13,A11 SAVE FDB ADDRESS T 2 P LD A11,OPEFWT,A7 FDB ADDR T X P RF(Z) CLODEL NO FDB T z P LDKL A1,/C000 T P LDK A3,0 T & P CF A14,EARELB REL PROTECT BUFFERS T P ENB T P LC A5,FWTPAR,A11 T
0x3624ac…362640 Dummy {f00=0x0110, f01=0x0190, f02=»(NZ) TASHLT DM ERR T P EJECT U P* U ( P* RELEASE CURRENCY BUFFERS U 2 P* U V P LDKL A5,FDBCRL U ` P ADR A5,A11 LINK ROOT U x P LDR* A4,A5 U P CMR A5 CLEAR FDB U P RF RCRN20 U PRCRN10 EQU * U P LDR A4,A5 BUFFER ADDRESS U
0x362640…3627d4 (1, 897) Dummy {f00=0x0110, f01=0x0190, f02=» POOL U | P* V P INH V P LD A3,CRNQUE V $ P STR A3,A4 V : P ST A4,CRNQUE V L P ENB V b P RB RCRN10 V n P EJECT V PRMIX10 EQU * V P IFT INDXAC=1 V P* V P* RELEASE MASTER INDEX V P* V & P LD A1,OPEMXI,A7 MASTER INDE
0x3627d4…362968 Dummy {f00=0x0110, f01=0x0190, f02=»0 FIRST INDEX V " P RF(N) CLODEL NO MASTER INDEX W P CW A1,MXIND+2,A5 W < P RB(NE) RMIX20 W V P LD A4,MXIND,A5 W l & P RF(N) RMIX30 PREVIOUS ENTRY USED W " P LD A4,MXIND+4,A5 NO OF WORDS W P ANKL A4,/7FFF REMOV USE BIT W P ADS A4,MXIND,A5
0x362968…362afc Dummy {f00=0x0110, f01=0x0190, f02=» P LDR A2,A1 X P SUK A2,4 TO ADDR X P LD A3,MXIND X 0 P SUR A3,A5 X D P SUK A3,2 NO OF CHAR X V P CF A14,MOVFW MOVE X r P RF CLODEL X PRMIX30 EQU * X P LDKL A4,/7FFF X & P ANS A4,MXIND+4,A5 REMOVE USE BIT X P XIF X P EJECT X
0x362afc…362c90 Dummy {f00=0x0110, f01=0x018e, f02=»A7 LAST REC NR X P ST A1,FPB:FR,A12 Y P LD A1,OPELRN+2,A7 Y 0 P ST A1,FPB:FR+2,A12 Y J P LC A7,OPEFNR,A9 Y f P ANK A7,/FF Y ~ P RF(Z) CLDL20 NO FILE OPENED Y P ST A7,ECBFC-1,A8 FILE NR Y $ P ST A12,ECBBA,A8 PAR BLOCK ADDR Y & P CF A14,
0x362c90…362e24 Dummy {f00=0x0110, f01=0x0190, f02=» P ANK A7,/4F TEST MASK =5 Z P SUK A7,2 =5 Z $ @ P RF(Z) DELETE CLOSE DISCARD,OPEN OUT SEQ OR OPEN OUT RAN =5 Z : P XIF =8 Z ~ P CF A14,FMIOCL CLOSE Z P IFT CRDEEX=1 =8 Z P RF CLDL10 Z PDELETE EQU * Z P CF A14,FMIODL DELETE Z
0x362e24…362fb8 Dummy {f00=0x0110, f01=0x4054, f02=» LDR A11,A13 MAIN FDB ADDRESS Z P ABL OPEE10 NEXT FILE [ & P END [ D@ [ PD,OPEN OUT SEQ OR OPEN OUT RAN =5 Z : P XIF =8 Z ~ P CF A14,FMIOCL CLOSE Z P IFT CRDEEX=1 =8 Z P RF CLDL10 Z PDELETE EQU * Z P CF A14,FMIODL DELETE Z
0x362fb8…36314c Dummy {f00=0x0110, f01=0x2008, f02=» PDMINEX EQU * P RTN A15 " P END 2@ >TASBLK P CM TASBLK P P CM TASQUE b P* t , P* CLEAR DM FILE CODE ENTRIES IN CDTAB ~ P* P LD A2,CDTAB PDMIN60 SUK A2,4 P LDR A3,A2 P ADKL A3,CDTAB
0x36314c…3632e0 Dummy {f00=0x0110, f01=0x0190, f02=» D P* E 2 P* CHECK USER SIZE AND UPDATE PARAMETER BLOCK E P* E H P LDK A1,FPB:IV E R " P LC A3,FDBNIF,A11 NR OF INDEX E h P ANK A3,/F E P IFT INDXAC=1 E P RF(Z) OPE150 E P LDR A4,A3 E P SLL A3,3 E P SLL A4,2 E P ADR A
0x3632e0…363474 (1, 898) Opaque[0x194]
0x363474…363608 # DirEnt {nam=»SDMSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2218, f03=0x0000}
0x363474…363608 IdxSect {
0x363474…363608 f00 = 0x0110 // 0x363474 @0x0
0x363474…363608 f01 = 0x001a // 0x363476 @0x2
0x363474…363608 gno = [ // 0x363478 @0x4
0x363474…363608 [0x00]: C0x0110.0x3.0
0x363474…363608 [0x01]: C0x0111.0x0.0
0x363474…363608 [0x02]: C0x0111.0x1.0
0x363474…363608 [0x03]: C0x0111.0x2.0
0x363474…363608 [0x04]: C0x0111.0x3.0
0x363474…363608 [0x05]: C0x0112.0x0.0
0x363474…363608 [0x06]: C0x0112.0x1.0
0x363474…363608 [0x07]: C0x0112.0x2.0
0x363474…363608 [0x08]: C0x0112.0x3.0
0x363474…363608 [0x09]: C0x0113.0x0.0
0x363474…363608 [0x0a]: C0x0113.0x1.0
0x363474…363608 [0x0b]: C0x0113.0x2.0
0x363474…363608 [0x0c]: C0x0113.0x3.0
0x363474…363608 ]
0x363474…363608 }
0x363608…36379c Dummy {f00=0x0110, f01=0x0190, f02=» 2 P IDENT SDMSUB REL 11.0 81-05-22 870105041100 P : P =6,FORMATTING ERROR B P =6,REL 11.0 81-05-12 ` P =5,CONDITION FOR CR,DE,EX P =5,REL 11.0 81-03-20 : P =4,BLOCK BUFFER CHAIN DESTR. WHEN FORM. WITH LEN=0 P =4,
0x36379c…363930 Dummy {f00=0x0110, f01=0x0190, f02=»T BLOCK,BAD =1 p P =2,REL 11.0 81-02-04 =1 , P =1,SUB. TO FORMAT BLOCK BUFFER CHNG. 8 P =1,REL 11.0 81-01-26 h 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* SDMS
0x363930…363ac4 Dummy {f00=0x0110, f01=0x018e, f02=»******** d 8 P****THIS MODULE IS ACTIVATED FROM :***************** P* L P* DMTASK,TIODM,DMTASS V P* v P*************** P* ENTRIES * P*************** P* P ENTRY RELPRO P ENTRY MOVBW & P ENTRY EATES
0x363ac4…363c58 Dummy {f00=0x0110, f01=0x0190, f02=» P ENTRY FMIORF,FMIOWR,FMIODL P ENTRY FMIOCR,FMIOEX ( " P ENTRY FRMFIL,FORMAT,FORMER =1 D P ENTRY RLBLKB,CHKRCD j P ENTRY CASZEN P EJECT P* @ P* E N T R I E S F O R I N D E X S U B R O U T I N E S P* P*
0x363c58…363dec Dummy {f00=0x0110, f01=0x0190, f02=» FNDKEY P ENTRY CRNUPD P ENTRY GTLGRN & P ENTRY CRNCIF < P ENTRY RECECB R P EJECT h P* v P***************** P* EXTERNALS * P***************** P* P* 4 P EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDB
0x363dec…363f80 Dummy {f00=0x0110, f01=0x0190, f02=»,DWTOR,BUFSTA,BUFDMI,BUFOR | P EXTRN FDBLRN,FDBMIA,FDBMRO " " P EXTRN ECBRC,ECBFC,ECBCW,ECBBA F P EXTRN DIVMOD,MPYMOD l P EXTRN CRNTID P EXTRN SDMGBU P EXTRN CRNQUE,GETBLK,FREQUE P EXTRN CRBUFL P EXTRN FDBDBR P EXT
0x363f80…364114 (1, 899) Dummy {f00=0x0111, f01=0x0190, f02=»OMD P EXTRN MOVFW P EXTRN ADDMOD P EXTRN SDMRBU,CLRBUF 6 " P EXTRN BLKMXL MAX BLOCK LENGTH R P EXTRN EOFRC,NOKEY x P EXTRN RTNA14 & P EXTRN FPB:RL,FPB:BF,FPB:S1,SIZDIF P EJECT SDMSUB TOSSIO P* P* . P**
0x364114…3642a8 Dummy {f00=0x0111, f01=0x0190, f02=»*** j P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. H P* v PMMUPAG EQU 0 PX:A EQU 0 PINDXAC EQU X:A P* ( P* A VERSION LEAVING OUT OPEN MODES: * P* OPEN OUTPUT,OPEN EXT
0x3642a8…36443c Dummy {f00=0x0111, f01=0x0190, f02=»* > P* THIS ROUTINE RELEASES PROTECTION AT END OF TRANSACTION P* L ( P* ENTRY : A3 = DM INTERNAL USER ID V P* P* USED REGS A1 - A5 , A9 P* & P* NUMBER OF A14 LEVELS = 4 (WORDS) P* $ PRELPRO EQU * RELEASE PROTECT
0x36443c…3645d0 Dummy {f00=0x0111, f01=0x0190, f02=»/1 P RF(Z) REL053 NOT USED 0 P LDKL A1,/C000 REMOVE BUFFERS FOR THIS TASK ( P CF A14,EARELB P ENB r PREL053 EQU * ~ P LDR* A11,A11 P ANKL A11,/FFFE SKIP USE BIT P RB(NZ) REL050 MORE FDBS P LDR A11,A9 FDB ADDRESS
0x3645d0…364764 Dummy {f00=0x0111, f01=0x0190, f02=»M BYTE MOVE P* " P* INPUT A1 = FROM ADDRESS , P* A3 = NO OF BYTES TO BE MOVED F P* A2 = TO ADDRESS v P* P* P* OUTPUT A3 = NEXT CHAR P* & P* NUMBER OF A14 LEVELS = 2 (WORDS) P*
0x364764…3648f8 Dummy {f00=0x0111, f01=0x0190, f02=»OM THE END P* PMOVBW EQU * P STR A4,A14 0 P ADR A1,A3 D P ADR A2,A3 V PDMTB20 EQU * h P SUK A3,1 | P RB(N) DMTB10 P SUK A1,1 P SUK A2,1 P LCR A4,A1 P SCR A4,A2 P RB DMTB20 P EJECT S
0x3648f8…364a8c Dummy {f00=0x0111, f01=0x0190, f02=»NO. P* 8 P****ENTRY PARAMETERS******************************** P* R P* A11= FDB ADRESS P* A1,A2 = LOG RECORD NO x P* P* CF A14,EATEST P* 8 P****EXIT PARAMETERS********************************* P*
0x364a8c…364c20 Dummy {f00=0x0111, f01=0x0190, f02=»A FOUND FO R OTHER TASK & P* NUMBER OF A14 LEVELS = 2 (WORDS) P* J 8 P****USED REGISTERS********************************** T P* P PBLKTID EQU 4 TASK ID 0 PBLKRNM EQU 5 RECORD NUMBER MOST SIGNIFICANT 0 PBLKRNL EQU 2 RECORD NU
0x364c20…364db4 (1, 900) Dummy {f00=0x0111, f01=0x0190, f02=» EQU * P LDR* A3,A3 NEXT BUFFER ADR PEAT030 EQU * 2 $ P RF(Z) EAT100 EMPTY QUEUE,NO EA F P* n P* SEARCH LOG REC NO x P* $ P CC A1,BLKRNM,A3 FIRST CHARACTER P RB(NE) EAT020 & P CW A2,BLKRNL,A3 2 AND 3 CHARACTER P
0x364db4…364f48 Dummy {f00=0x0111, f01=0x0190, f02=»AT060 P LDKL A3,-1 EA OTHER TASK P RF EAT100 0 PEAT060 EQU * B P LDK A3,1 EA SAME ATASK V PEAT100 EQU * v P ADKL A14,4 P ADK A3,0 P ABR* A14 P EJECT SDMSUB 8 P****DESCRIPTION*******************************
0x364f48…3650dc Dummy {f00=0x0111, f01=0x0190, f02=» WILL HALT AND LITE SOP-LAMPS f P* & 8 P****ENTRY PARAMETERS******************************** 0 P* l P* A11= FDB ADDR v " P* A1,A2 = LOGICAL RECORD NO P* P* CF A14,EASETB P* 8 P****EXIT PARAMETERS***************
0x3650dc…365270 Dummy {f00=0x0111, f01=0x0190, f02=»****************************** z P* & P* A1,A4 0 P* B < P******************************************************* L P EJECT SDMSUB PEASETB EQU * P ECR A1,A1 P LC A1,FDBTNR,A11 TASK ID P ECR A1,A1 P INH ,
0x365270…365404 Dummy {f00=0x0111, f01=0x0190, f02=» STR A1,A4 THREAD P ST A4,FDBEAL,A11 NEW ROOT P ENB < P RTN A14 H P EJECT SDMSUB X 8 P****DESCRIPTION************************************* p P* 8 P* EARELB WILL RELEASE EA BUFFERS AND CONNECT THEM P* TO THE FREE LINK.
0x365404…365598 Dummy {f00=0x0111, f01=0x0190, f02=»RECORD NO | B P* A1: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB P* AND A3 = 0 X * P* ARE REMOVED. r P* A1: BIT 0=1,BIT 1=1 4 P* AND A3 NOT EQ 0 ALL BUFFERS ON FDB WITH @ P*
0x365598…36572c Dummy {f00=0x0111, f01=0x0190, f02=» THE FIRST BUFFER WITH TASK ID AND LOG REC NO | 0 P* AS SPEC IS REMOVED. : P* n 8 P****EXIT PARAMETERS********************************* x P* P* A11,A3,A1 = UNCHANGED & P* NUMBER OF A14 LEVELS = 2 (WORDS)
0x36572c…3658c0 Dummy {f00=0x0111, f01=0x018e, f02=»************************* x P* " P* THE ROUTINE SETS INHIBIT , P EJECT SDMSUB P PEARELB EQU * h P LDR A4,A11 | P ADKL A4,FDBEAL ROOT ADR PEAR020 EQU * P LDR A5,A4 SAVE OLD ROOT P LDR* A4,A4 NEXT BUFFER ADR P
0x3658c0…365a54 (1, 901) Dummy {f00=0x0111, f01=0x0190, f02=» x P* P CC A1,BLKRNM,A4 P RB(NE) EAR020 * P CW A2,BLKRNL,A4 @ P RB(NE) EAR020 X P RF EAR060 n PEAR050 EQU * P CWK A1,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED P LDR A2,A3 REQ TASK ID P
0x365a54…365be8 Dummy {f00=0x0111, f01=0x018e, f02=» PEAR065 EQU * P CC A2,BLKTID,A4 P RB(NE) EAR020 0 P EJECT F P* T P* EA BUFFER FOUND ^ P* z PEAR080 EQU * P LDR* A2,A4 NEXT BUFADR & P STR A2,A5 REMOVE BUFFER FROM LINK P* P* RETURN BUFFER TO POOL
0x365be8…365d7c Dummy {f00=0x0111, f01=0x018e, f02=» P LDR A1,A1 P RB(N) EAR020 RELEASE MORE PEAR100 EQU * 8 P RTN A14 L P EJECT SDMSUB 8 P****DESCRIPTION************************************* t P* D P* CRNGET WILL SEARCH THE CRN-LINK FOR TASK ID. IF NO BUFFER IS D P* FO
0x365d7c…365f10 Dummy {f00=0x0111, f01=0x0190, f02=» J 0 P* THE SYSTEM WILL HALT AND LITE SOP-LAMPS. ( P* TASK ID IS PLACED IN THE BUFFER < P* h 8 P****ENTRY PARAMETERS******************************** r P* " P* A11= FDB ADDRESS DATA FILE & P* FDBTNR,A11 = TASK NUMBER & P
0x365f10…3660a4 Dummy {f00=0x0111, f01=0x018e, f02=»**** ` P* P* A11= UNCHANGED ( P* A2 = ADDRESS OF FOUND CRN-BUFFER 0 & P* NUMBER OF A14 LEVELS = 2 (WORDS) P* 8 P****USED REGISTERS********************************** P* P* A1,A3 P* 6 P**********************
0x3660a4…366238 Dummy {f00=0x0111, f01=0x0190, f02=» z PCRN020 EQU * P LDR* A2,A2 NEXT BUFFER P RF(Z) CRN100 LINK END < P* Z P* CHECK ATASK IDENT d P* P LC A3,FDBTNR,A11 TASK ID P CC A3,CRNTID,A2 P RB(NE) CRN020 OTHER TASK P RF CRN200 BUFFER FOUND P
0x366238…3663cc Dummy {f00=0x0111, f01=0x0190, f02=» LDK A1,3 LAMP 10 AND 11 P CF A15,HALT NO MORE BUFFERS PCRN120 EQU * D P LDR* A3,A2 NEXT FREE X P ST A3,CRNQUE UPD ROOT v P EJECT P* P* FILL BUFFER WITH ZEROES P* * P LDKL A3,CRBUFL BUFFER LENGTH IN BYTES P
0x3663cc…366560 Dummy {f00=0x0111, f01=0x0190, f02=»SET IN BUFFER P CMR A1 P RB CRN140 MORE WORDS & P* D " P* CONNECT NEW BUFFER TO LINK N P* t PCRN160 EQU * ~ P LC A3,FDBTNR,A11 P SC A3,CRNTID,A2 TASK ID P LD A3,FDBCRL,A11 LINK ROOT P STR A3,A2 THREAD
0x366560…3666f4 (1, 902) Dummy {f00=0x0111, f01=0x0190, f02=»************************ t P* 2 P* CALSNO WILL CONVERT A LOGICAL RECORD NO TO * P* RELATIVE ` P* SECTOR AND OFFSET t P* 8 P****ENTRY PARAMETERS******************************** P* " P* A1,A2 = LOGICAL RECORD NO P
0x3666f4…366888 Dummy {f00=0x0111, f01=0x0190, f02=» P* A1 = 0 OK , P* NE 0 , ERROR =/A000=END OF MEDIUM P* A11= UNCHANGED N $ P* IN FDB : FDBSNR = SECTOR NR h * P* FDBRRO = OFFSET IN BLOCK & P* NUMBER OF A14 LEVELS = 5 (WORDS) P* 8 P****USED REGISTERS****
0x366888…366a1c Dummy {f00=0x0111, f01=0x018e, f02=»4 | P* " P* FIND BLOCK NO WITHIN FILE P* : P LDK A6,0 D & P LC A6,FDBBLF,A11 BLOCKING FACTOR V , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER P RF(O) CALERR OVERFLOW P LDR A3,A2 QUOTIENT P LDR A4,A1 REMAINDER P R
0x366a1c…366bb0 Dummy {f00=0x0111, f01=0x0190, f02=» p P* ! * P* FIND LOGICAL SECTOR NUMBER ON DISC ! P* ! @ PTIOD40 EQU * ! J P LDR A6,A3 BLOCK NR ! ^ P RF(NP) CALERR ! z P SUK A6,1 ! P LDK A7,0 ! * P LC A7,FDBBLZ,A11 NR OF SECT IN BLOCK ! P CF A14,MPYMOD ! P ADK A2,1 !
0x366bb0…366d44 Dummy {f00=0x0111, f01=0x0190, f02=»DBSNR,A11 ! P ST A2,FDBSNR+2,A11 SECT NR " P EJECT " 6 P* " D 0 P* FIND RELATIVE RECORD OFFSET WITHIN BLOCK " N P* " P LDK A3,0 " " P LDR A2,A4 REL REC NR IN BLOCK " PTIOD60 EQU * " P SUK A2,1 A2=REL REC NR " ( P RF(Z) TIOD65 RE
0x366d44…366ed8 Dummy {f00=0x0111, f01=0x0190, f02=»DKL A1,EOMERR OUT OF MEDIUM " P RF TIODMF # $ P* # 6 , P* STORE RELATIVE REC OFFSET IN FBDRRO # @ P* # p PTIOD65 EQU * # z P LDK A1,0 OK # P ST A3,FDBRRO,A11 # PTIODMF EQU * # P LD A4,-4,A14 SAVED REGISTER # ( P RF RETURN RETURN AN
0x366ed8…36706c Dummy {f00=0x0111, f01=0x0190, f02=» # P* ENTRY: A11=FDB ADDRESS $ P* A8=ECB ADDRESS $ ( P* $ H P* EXIT : A1=RETURN CODE $ R " P* A11,A8=SAME AS ENTRY $ r P* A2=USED $ P* $ & P* NUMBER OF A14 LEVELS = 2 (WORDS) $ P* $ & P* FMIO=FILE MANAGEMENT I/O
0x36706c…367200 Dummy {f00=0x0111, f01=0x0190, f02=» A7,/A2 $ P RF FMIO10 % P % " PFMIODL EQU * DELETE % * P LDKL A7,/2A2 % F P RF FMIO10 % P % n PFMIOOP EQU * OPEN FILE % v P LDK A7,/A1 % P RF FMIO10 % P % PFMIOEX EQU * EXTEND % P LDKL A7,/1A1 % P RF FMIO10 % P %
0x367200…367394 (1, 903) Dummy {f00=0x0112, f01=0x0190, f02=»7,/83 % P RF FMIO10 & P & PFMIORD EQU * READ & ( P LDK A7,/91 & B P & V PFMIO10 EQU * & ^ P LKM & r P DATA 15 & ~ P EJECT SDMSUB & P* & P* RESTORE SECTOR NUMBER & P* & P LD A1,FDBSNR,A11 & P ST A1,ECBCW,A8 &
0x367394…367528 Dummy {f00=0x0112, f01=0x0190, f02=»DISC I/O OK & P ANKL A1,/FEFF ' $ P RF(NZ) DMTIT1 NOT ONLY RETRIES ' * P LDKL A1,RETRIE ' R & P ORS A1,ECBRC,A2 USER RETURN CODE ' j P LDK A1,0 SET RETURN CODE OK ' P RF RETURN ' PDMTIT1 EQU * ' P LD A2,ECBBA,A8 ' P SUKL A2,BUFSTA BU
0x367528…3676bc Dummy {f00=0x0112, f01=0x0190, f02=»N************************************* ' P* ( . 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND ( 8 2 P* PREPARE IT. ECB IS PREPARED FOR PHYS I/O. ( t P* ( 8 P****ENTRY PARAMETERS******************************** ( P* ( P* A11= FDB A
0x3676bc…367850 Dummy {f00=0x0112, f01=0x0190, f02=»ESS ( 0 P* A1 = FDBRRO WHEN SECTOR IS FOUND IN CORE ) B P* = -1 WHEN NO DATA IS FOUND IN ) @ < P* THE FOUND CORE BUFFER ) " P* A4 = BLOCK BUFFER ADDRESS ) & P* A5 = BLOCK DATA BUFFER A
0x367850…3679e4 Dummy {f00=0x0112, f01=0x0190, f02=»******** ) d P* * P* A2-A3 * P* * , : P****************************************************** * 6 PGTBKBU EQU * * t " P LC A3,FWTFNR,A11 FILE NUMBER * P ANK A3,/FF * P STR A3,A8 FILE NR * P LC A5,FDBBLZ,A11 * " P SLL A5,8 BLOCK SI
0x3679e4…367b78 Dummy {f00=0x0112, f01=0x0190, f02=»BU A4 := BUFFER ADDRESS * P ST A1,ECBCW,A8 SECT NR + P ST A2,ECBCW+2,A8 SECT NR + @ P LDR A5,A4 + b 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS + t P ST A5,ECBBA,A8 + ( P LDKL A1,-1 SET DEFAULT RETURN CODE + P ADK A3,0 + ( P RF(NZ)
0x367b78…367d0c Dummy {f00=0x0112, f01=0x0190, f02=»ION + p P IFT CRDEEX=0 =5 , P EJECT , & PFRMFIL EQU * =5 , 4 PFORMAT EQU * =5 , L PFORMER EQU * =5 , d PRLBLKB EQU * =5 , | PCASZEN EQU * =5 , P RTN A14 =5 , P XIF =5 , P IFT CRDEEX=1 =5 , P EJECT , P* , P* FR
0x367d0c…367ea0 Dummy {f00=0x0112, f01=0x0190, f02=»RESS , z P* - P* EXIT : A1-A7 - P* - . & P* NUMBER OF A14 LEVELS = 4 (WORDS) - 8 P* - b PFRMFIL EQU * - l P LC A1,FDBBLZ,A11 - " P SLL A1,8 BLOCK SIZE IN BYTES - $ P ST A1,ECBRL,A8 REQUESTED LENGTH - P* - P* MAKE FORMAT BUFFER -
0x367ea0…368034 (1, 904) Dummy {f00=0x0112, f01=0x0190, f02=»MOST SIGN. - p 2 P LD A2,FDBSNR+2,A11 SECTOR NUMBER LEAST SIGN. . PFRM130 EQU * . H P ST A1,ECBCW,A8 . P ST A2,ECBCW+2,A8 . t P LDR A3,A1 SAVE A1 . P LDR A5,A2 SAVE A2 . P CF A14,FMIOWR WRITE SECTOR . P RF(NZ) FRM140 ERROR OR EOF .
0x368034…3681c8 Dummy {f00=0x0112, f01=0x0190, f02=» CF A14,ADDMOD . P RB FRM130 / P EJECT / ( PFRM140 EQU * / 6 P LDR A2,A1 RETURN CODE / J P SLL A2,2 / h " P RF(NN) FRM160 NOT END OF FILE / z PRLBLKB EQU * / P LDK A1,0 SET RETURN CODE / PFRM160 EQU * / & P SUKL A4,BUFSTA BUFFER WITH HE
0x3681c8…36835c Dummy {f00=0x0112, f01=0x0190, f02=»JECT / P* 0 * P* FORMAT=FORMAT BUFFER IN RECORD SIZE 0 P* 0 D & P* ENTRY :A4 = BLOCK BUFFER ADDRESS 0 N P* A1 = BUFFER LENGTH 0 x P* 0 P* EXIT :A4 = NOT CHANGED 0 P* A1,A2,A3,A5 = USED 0 P* 0 & P* NUMBER OF A14 LE
0x36835c…3684f0 Dummy {f00=0x0112, f01=0x0190, f02=»IN BLOCK BUFFER =2 =1 0 ~ ( P RF(NP) FRM120 NOTHING TO FORMAT =4 1 * P LDK A2,' ' FILL BUFFER WITH SPACES =1 1 J PFRM100 EQU * 1 x P SCR A2,A3 =1 1 & P ADK A3,1 UPDATE BUFFER POINTER =1 1 P SUK A1,1 REST LENGTH =1 1 & P RB(P) FRM100 CONTINUE FILL
0x3684f0…368684 Dummy {f00=0x0112, f01=0x0190, f02=»S=FREE 1 z 2 P LD A1,FDBRLE,A11 RECORD LENGTH WITHOUT STATUS 2 P ADK A1,1 LENGTH WITH STATUS 2 D PFRM110 EQU * 2 h . P ADR A3,A1 POINTER TO RECORD STATUS =2 =1 2 | P SUR A5,A1 LENGTH LEFT =2 =1 2 . P RF(N) FRM120 ALL DONE IN BUFFER =6 =2 =1 2 " P SCR
0x368684…368818 Dummy {f00=0x0112, f01=0x0190, f02=»BL=CALCULATE MAX FDBRRO AND BLOCK SIZE IN NBR OF SECTORS 2 P* 3 @ P* ENTRY: A11=FDB ADDRESS 3 J P* 3 j P* EXIT : A1=MAX FDBRRO 3 t 0 P* A2=BLOCK SIZE IN NUMBER OF SECTORS 3 0 P* CR=GREATER IF BLOCK SIZE TOO LARGE 3 P* A3,A6
0x368818…3689ac Dummy {f00=0x0112, f01=0x0190, f02=») 3 j : P LC A7,FDBBLF,A11 BLOCK FACTOR (NBR OF RECORDS/BLOCK) 4 P 4 H P 4 P P* 4 X 2 P* CRRBL=SAME AS CARRBL EXCEPT ENTRY PARAMETERS 4 b P* 4 P* ENTRY: A6=RECORD LENGTH 4 P* A7=BLOCK FACTOR 4 P* 4 PCRRBL EQU * 4 P ADK A
0x3689ac…368b40 Dummy {f00=0x0112, f01=0x0190, f02=»A2 MAX FDBRRO 4 P EJECT 5 P* 5 $ , P* CALCULATE BLOCK SIZE IN NBR OF SECTORS 5 . P* 5 ^ P ADR A2,A3 ADD ONE RECORD 5 h P LDR A3,A2 5 P SRL A2,8 SECTOR NBR 5 P ANK A3,/FF 5 P RF(Z) CAR100 EXACT 5 P ADK A2,1 ONE MORE SECTOR 5
0x368b40…368cd4 (1, 905) Dummy {f00=0x0112, f01=0x0190, f02=»CK WITH MAX BLOCK SIZE 5 ~ P ABR* A14 RETURN 6 P IFT CRDEEX=1 =5 6 6 P EJECT 6 P P 6 ^ P********** 6 f P* CASZEN * 6 x P********** 6 P 6 P* 6 2 P* CASZEN=CALCULATE SIZE 1-4 IN NBR OF SECTORS 6 P* 6 P* ENTRY: A12=FPB ADDRESS 6
0x368cd4…368e68 Dummy {f00=0x0112, f01=0x0190, f02=» CR=O IF OVERFLOW 6 P* 7 PCASZEN EQU * 7 * $ P LD A6,FPB:RL,A12 RECORD LENGTH 7 > " P LC A7,FPB:BF,A12 BLOCK FACTOR 7 f P ANK A7,/FF 7 < P CF A14,CRRBL CALCULATE BLOCK SIZE (SECTORS/BLOCK IN A2) 7 P LDR A4,A2 BLOCK SIZE 7 P LDR A13,A
0x368e68…368ffc Dummy {f00=0x0112, f01=0x0190, f02=»2 BLOCK FACTOR (RECORDS/BLOCK) 7 P ANK A6,/FF 8 & P LDR* A1,A13 8 : , P LD A2,2,A13 A1,A2=SIZE (NBR OF RECORDS) 8 N * P CF A14,DIVMOD A1,A2/A6=A2 REST IN A1 8 ~ P ADK A1,0 8 P RF(Z) CAS110 NO REST 8 P ADK A2,1 TAKE CARE OF REST 8 P EJECT 8
0x368ffc…369190 Dummy {f00=0x0112, f01=0x018e, f02=»IZE IN SECTORS 8 | P ADKL A13,SIZDIF 9 P SUK A5,1 9 . P RB(P) CAS100 NEXT VOLUME 9 @ P RTN A14 9 b P XIF =5 9 r P EJECT 9 P* CHKRCD=CHECK RECORD STATUS 9 P* 9 P* ENTRY: A11=FDB ADDRESS 9 P* A1=RECORD OFFSET 9 $ P*
0x369190…369324 Dummy {f00=0x0112, f01=0x0190, f02=» 9 ~ P* : & P* NUMBER OF A14 LEVELS = 2 (WORDS) : P* : < PCHKRCD EQU * : F P ADR A1,A4 : Z P ADKL A1,BUFSTA : l $ P AD A1,FDBRLE,A11 STATUS POINTER : P LDK A3,/FF : P ADKL A14,4 : P CCR A3,A1 : P ABR* A14 : P IFT INDXAC=0 :
0x369324…3694b8 Dummy {f00=0x0112, f01=0x0190, f02=» PRECECB EQU * ; P RTN A14 ; P XIF ; ( P IFT INDXAC=1 ; 4 P EJECT ; J 8 P****DESCRIPTION************************************* ; X P* ; < P* FNDKMX SEARCH GFOR A WYMBOLIC KEY IN A MASTER INDEX. ; > P* A BINARY SEARCH IS USED. REF : KNUTH P
0x3694b8…36964c Dummy {f00=0x0112, f01=0x0190, f02=»RY ; r P* < 8 P****ENTRY PARAMETERS******************************** < P* < P P* A5 = MASTER INDEX ADRESS < Z P* A9 = SEARCH KEY ADDRESS < ~ P* A10 = NR OF CHAR IN KEY < P* A11=FDB ADDRESS < P* < P* CF A14,FNDKMX < P
0x36964c…3697e0 Dummy {f00=0x0112, f01=0x018e, f02=»A9,A10= UNCHANGED < & P* NUMBER OF A14 LEVELS = 5 (WORDS) = P* = D 8 P****USED REGISTERS********************************** = N P* = P* A3-A7,A12-A13 = P* = 6 P************************************************* = P* = & PCRNCIF EQU 8
0x3697e0…369974 (1, 906) Dummy {f00=0x0112, f01=0x0190, f02=» P LDR A13,A2 > P ANKL A13,/1 GET BIT 15 > P SRA A2,1 > 8 P LDR A12,A2 M=N/2 FLOOR > J P ADR A13,A2 I=N/2 CEILING > j P ADK A5,2 TABLE BASE - 2 > PFND020 EQU * > P LDK A4,0 > P LDR* A7,A5 ENTRY LENGTH > P LDR A6,A13 I > P
0x369974…369b08 Dummy {f00=0x0112, f01=0x0190, f02=»GN BIT > z P LDR A4,A2 ? PFND025 EQU * ? " P ADR A4,A5 ADD MI BASE ADR - 2 ? 4 P ADK A4,2 ENTRY KEY ADR ? Z $ P LDR A1,A4 ADDRESS OF ENTRY KEY ? z P LDR A6,A10 MAX KEY LENGTH ? P LDK A7,0 CHAR ADR ? P CF A14,CHKKEY COMPARE KEYS ? P LDR A
0x369b08…369c9c Dummy {f00=0x0112, f01=0x018e, f02=»RTN INF ? ~ . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL @ P EJECT @ B P* @ P P* SEARCHED KEY GREATER @ Z P* @ z P LDR A12,A12 M @ P RF(Z) FND050 SEARCH READY @ P ADR A13,A6 I=I+(M/2 CEIL) @ PFND030 EQU * @ P LDR A12,A7 M=M/2 FLOO
0x369c9c…369e30 Dummy {f00=0x0112, f01=0x0190, f02=» P RB FND030 A PFND045 EQU * NO MASTER INDEX A P LDK A1,0 A : P LDK A2,1 REC NR 1 A L P RF FND070 A f PFND050 EQU * A x * P ADR* A4,A5 NEXT ADDRESS OF ENTRY KEY A PFND060 EQU * A P LDR A3,A4 ENTRY ADR A P SUK A3,3 A P ADR* A3,A5
0x369e30…369fc4 Dummy {f00=0x0112, f01=0x0190, f02=»A3 A P ADK A3,1 B P ECR A2,A2 B P LCR A2,A3 B . PFND070 EQU * B @ P ABL CALSNO B T P EJECT B h 8 P****DESCRIPTION************************************* B v P* B . P* CHKKEY COMPARES TWO CHARACTER STRINGS B P* B 8 P****ENTRY PARAME
0x369fc4…36a158 Dummy {f00=0x0112, f01=0x0190, f02=»O OF CAHARACTERS IN KEY B 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY C P* C V P* CF A14,CHKKEY C ` P* C | 8 P****EXIT PARAMETERS********************************* C P* C : P* A1 = 0 WHEN SEARCED KEY IS CONTAINED IN ENTRY KEY C ,
0x36a158…36a2ec Dummy {f00=0x0112, f01=0x0190, f02=» OF SAME CHARACTERS IN WHOLE KEY C f " P* A6 = MAX NO OF CHAR IN KEY D ( P* CR=0 WHEN KEY IS FOUND D N P* P WHEN KEY IS GREATER D p P* N WHEN KEY IS LESS D & P* NUMBER OF A14 LEVELS = 2 (WORDS) D P* D 8 P****USED REGISTERS************
0x36a2ec…36a480 Dummy {f00=0x0112, f01=0x0190, f02=»CHKKEY EQU * D " P LDR A3,A9 SEARCH KEY ADDRESS E $ P ADR A3,A7 FIRST SC CHAR TO TEST E : $ P ADR A1,A7 FIRST EC CHAR TO TEST E b PCHK020 EQU * E P LCR A2,A3 SEARCED KEY CHAR E P CCR A2,A1 SC=EC? E P RF(G) CHK100 SC GT TH EC E " P RF(L) CHK
0x36a480…36a614 (1, 907) Dummy {f00=0x0113, f01=0x0190, f02=» A3,1 NXT SC TO TEST E P ADK A1,1 NXT EC TO TEST F P RB CHK020 F < PCHK060 EQU * F P P LDK A1,0 FOUND F d P RF CHK140 F | PCHK120 EQU * F $ P LDKL A1,-1 SEARCHED KEY SMALLER F P RF CHK140 F PCHK100 EQU * F $ P LDK A1,1 SEARCHED KEY S
0x36a614…36a7a8 Dummy {f00=0x0113, f01=0x0190, f02=»********** F f P* G @ P* RDNXTR WILL MAKWE NEXT RECORD IN AN INDEX FILE AVAILABLE G P* IN A CORE BUFFER G ` D P* WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED G | & P* SECTOR WILL BE MADE AVAILABLE G P* G 8 P****ENTRY PARAME
0x36a7a8…36a93c Dummy {f00=0x0113, f01=0x0190, f02=»NR G | B P* FDBRRO = RECORD OFFSET IN BUFFER, WHEN = -1 THE FIRST H 8 P* RECORD IN CURRENT SECTOR IS WANTED H P : P* A4 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN H > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED H
0x36a93c…36aad0 Dummy {f00=0x0113, f01=0x0190, f02=» P* A4 = BUFFER ADDRESS I * P* = 0 WHEN NO BUFFER IS ALLOCATED I $ P* A8 = ECB ADDRESS I R & P* CR=0 WHEN PHYSICAL I/O FAILED I n P* IF CR=0 I " P* THEN A1=I/O RETURN CODE I & P* ELSE A1=FDBRR0=RECORD OFFSET I & P* NUMBER OF
0x36aad0…36ac64 Dummy {f00=0x0113, f01=0x0190, f02=» : P****************************************************** J P EJECT J B PRDNXTR EQU * J P P ADK A4,0 J d P RF(NZ) RDN200 BUFFER EXIST J v P* J P* GET A BUFFER J P* J PRDN040 EQU * J & P CF A14,GTBKBU GET BLOCKBUFFERADDR J ( P RF(
0x36ac64…36adf8 Dummy {f00=0x0113, f01=0x0190, f02=»D J ~ P LDR A7,A3 K P ADK A1,0 RETURN CODE K P RF(NZ) RDN900 ERROR K : PRDN080 EQU * K V P LDK A1,0 K j * P ST A1,FDBRRO,A11 OFFSET FIRST RECORD K | P RF RDN940 RETURN K P EJECT K P* K P* BUFFER WAS BEFORE K P* K PRDN2
0x36adf8…36af8c Dummy {f00=0x0113, f01=0x0190, f02=»NTS TO LAST REC IN BUFFER K t P* L " PRDN220 EQU * L , P CW A1,FDBMRO,A11 MAX OFFSET L @ * P RF(NL) RDN300 THIS REC LAST IN BUFFER L d P* L , P* GET NEXT REC IN CURRENT BLOCKBUFFER L P* L $ P AD A1,FDBRLE,A11 RECORD LENGTH L P ADK A1,1
0x36af8c…36b120 Dummy {f00=0x0113, f01=0x0190, f02=» PRDN300 EQU * M P LD A1,FDBSNR+2,A11 M P LDK A3,0 M 4 0 P LC A3,FDBBLZ,A11 BLOCK SIZE (SECTORS/BLOCK) M F P ADR A1,A3 NEXT SECT M z P RF(O) RDN380 M P RF RDN390 M PRDN380 ANKL A1,/7FFF M P IM FDBSNR,A11 M PRDN390 EQU * M P ST
0x36b120…36b2b4 (1, 908) Dummy {f00=0x0113, f01=0x0190, f02=»40 NEXT SECTOR M P* N P* ERROR EXIT N P* N 6 PRDN900 EQU * N @ P ADK A4,0 N T P RF(Z) RDN960 NO BUFFER N f " P CF A14,SDMRBU RELEASE BUFFER N PRDN960 EQU * N P LDK A4,0 INDICATE NO BUFFER N P* N P* EXIT N P* N PRD
0x36b2b4…36b448 Dummy {f00=0x0113, f01=0x0190, f02=»************************ N t P* O > P* FNDKEY WILL READ THE FIRST USED INDEX RECORD WITH THE O * * P* SPECIFIED KEY OR NEXT HIGHER KEY O l 6 P* IF END OF FILE, THE FIRST FREE RECORD IS FOUND O P* O 8 P****ENTRY PARAMETERS**********************
0x36b448…36b5dc Dummy {f00=0x0113, f01=0x0190, f02=» = PHYSICAL ECB ADDRESS O P* P 8 P****EXIT PARAMETERS********************************* P * P* P f P* A11= FDB ADDRESS P p 0 P* FDBSNR,FDBRRO = FOUND INDEX RECORD P " P* A1 = 0 WHEN KEY ISS FOUND P 0 P* = /400 WHEN NEXT HIGHER KE
0x36b5dc…36b770 Dummy {f00=0x0113, f01=0x0190, f02=»FER ADDRESS P & P* = 0 WHEN NO RECORD IS FOUND Q " P* A7 = NO OF SAME CHARACTERS Q > " P* A8 = PHYSICAL ECB ADDRESS Q d P* A10 = UNCHANGED Q P* CR=0 WHEN KEY IS FOUND Q & P* NUMBER OF A14 LEVELS = 9 (WORDS) Q P* Q 8 P****USED REG
0x36b770…36b904 Dummy {f00=0x0113, f01=0x0190, f02=»****************** Q l P EJECT R PFNDKEY EQU * R ( P* R < & P* FIRST SEARCH THE NMASTER INDEX R F P* R p * P LD A5,FDBMIA,A11 ADDR OF MASTER INDEX R z 0 P CF A14,FNDKMX GET KEY ENTRY IN MASTER INDEX R P RF(NZ) FKY900 ERROR R " P LDR A6,A10 NO O
0x36b904…36ba98 Dummy {f00=0x0113, f01=0x0190, f02=»TR GET INDEX RECORD R ( P RF(Z) FKY900 I/O FAILED ,NO BUFFER S P* S H " P* BUFFER AND ADATA IS FOUND S R P* S x PFKY150 EQU * S P ADR A1,A4 BUFFER ADR S P ADKL A1,BUFSTA S P LDR A5,A1 S 2 P AD A5,FDBRLE,A11 ADDRESS TO STATUS CHARAC
0x36ba98…36bc2c Dummy {f00=0x0113, f01=0x0190, f02=»CT S P* T & P* NO MORE RECORDS IN THIS SECTOR T P* T > * P LD A13,FDBRRO,A11 SAVE CURRENT OFFSET T H P LD A5,FDBMRO,A11 T v * P ST A5,FDBRRO,A11 LAST RECORD IN BLOCK T P* T P* T P* CHECK IF END OF FILE T P* T P LDR A5,A7 CHA
0x36bc2c…36bdc0 Dummy {f00=0x0113, f01=0x0190, f02=» RB(L) FKY100 NOT EOF T P RF(G) FKY180 EOF U P CW A2,FDBLRN+1,A11 U 8 P RB(L) FKY100 NOT EOF U T P* U r P* EOF IS IN THIS SECTOR U | P* U PFKY180 EQU * U 2 P ST A13,FDBRRO,A11 OFFSET TO FIRST FREE RECORD U P LDKL A1,EOFRC EOF U
0x36bdc0…36bf54 (1, 909) Dummy {f00=0x0113, f01=0x018e, f02=» KEYS U z P RF(Z) FKY870 KEY FOUND V " P RF(N) FKY850 SEARCH KEY LESS V . P* V T P* SEARCH KEY GREATER V ^ P* V z PFKY840 EQU * V " P CC A7,-4,A5 NEXT KEY FLAG =3 V , P RB(NG) FKY100 START OF KEY:S IDENTICAL V 4 P LC A7,-4,A5 REDUCE NUMBER
0x36bf54…36c0e8 Dummy {f00=0x0113, f01=0x0190, f02=» P LDKL A1,NOKEY KEY NOT FOUND W P RF FKY950 W ( P* W : P* KEY FOUND W D P* W X PFKY870 EQU * W b P LDK A1,0 KEY FOUND W v P RF FKY950 W PFKY900 EQU * W $ P LDK A7,0 NO OF SAME LEAD CHARS W PFKY950 EQU * W ( P ABL RETURN RETURN A
0x36c0e8…36c27c Dummy {f00=0x0113, f01=0x0190, f02=»S ARE UPDATED W P* X P* IN: X & P* A1,A2 = LAST RECORD NR MOVED X 0 & P* A12,A13= FIRST RECORD NR MOVED X Z P* A11 = FDB ADDR INDEX X & P* A7 = ADD PARAMETER +1, -1 X P* X P* USED REGISTERS: X P* A1-A3,A6-A7
0x36c27c…36c410 Dummy {f00=0x0113, f01=0x0190, f02=» P* Y PCRNUPD EQU * Y $ P LD A3,FDBADF,A11 FDB DATA FILE Y " P INH Y J " P ADKL A3,FDBCRL CRN LINK ROOT Y V PCRU100 EQU * Y | P LDR* A3,A3 Y P RF(Z) CRU900 END OF LINK Y P LC A6,FWTFNR,A11 FILE CODE Y P CC A6,CRNCIF,A3 Y P RB(NE
0x36c410…36c5a4 Dummy {f00=0x0113, f01=0x018e, f02=»100 Y PCRU200 EQU * Z P CC A1,CRNCIF+1,A3 Z P RF(G) CRU300 Z : P RB(L) CRU100 Z P P CW A2,CRNCIF+2,A3 Z f P RB(L) CRU100 Z PCRU300 EQU * Z P* Z P* UPDATE CRN Z P* Z P LDR A6,A7 Z P RF(N) CRU230 -1 Z P LDK A6,0
0x36c5a4…36c738 Dummy {f00=0x0113, f01=0x0190, f02=» Z P SC A1,CRNCIF+1,A3 [ P ST A2,CRNCIF+2,A3 [ " P RB CRU100 [ < PCRU900 EQU * [ N P ENB [ b P RTN A14 [ n P EJECT DMSUBR [ ~ 8 P****DESCRIPTION************************************* [ P* [ D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO
0x36c738…36c8cc Dummy {f00=0x0113, f01=0x0190, f02=»* FDBSNR,FDBRRO,FDBCEX [ P* * 8 P****EXIT PARAMETERS********************************* 4 P* p P* A1,A2 = LOG RECORD NO z & P* NUMBER OF A14 LEVELS = 4 (WORDS) P* 8 P****USED REGISTERS**********************************
0x36c8cc…36ca60 Dummy {f00=0x0113, f01=0x0190, f02=»QU * P ST A4,-4,A14 SAVE A4 ] P LD A1,FDBSNR,A11 ] * $ P LD A2,FDBSNR+2,A11 REL SECT NR ] D P LDK A6,0 ] l P LDK A7,1 ] ~ P CF A14,DSUMOD ] P LDK A6,0 ] P LC A6,FDBBLZ,A11 BLOCK SIZE ] P CF A14,DIVMOD ] P LDR A6,A2 BLOCKS - 1
0x36ca60…36cbf4 (1, 910) Dummy {f00=0x0113, f01=0x0190, f02=»MPYMOD A1,A2=A6*A7 ] P LD A4,FDBRLE,A11 ^ P ADK A4,1 RECORD LENGTH ^ 4 P LDK A7,0 RECORD COUNTER ^ T & P LD A6,FDBRRO,A11 OFFSET IN SECTOR ^ t P ADK A6,1 ^ PGTL150 EQU * ^ P ADK A7,1 RECORD COUNTER ^ P SUR A6,A4 ^ * P RB(NN) GTL150 COU
0x36cbf4…36cd88 Dummy {f00=0x0113, f01=0x0190, f02=» ^ z P RF GTL170 _ PGTL160 EQU * _ & P ANKL A2,/7FFF DELETE OVERFLOWBIT _ . P ADK A1,1 ADD CARRY _ X PGTL170 EQU * _ t P LD A4,-4,A14 SAVED REGISTER _ P RTN A14 _ P EJECT _ P* _ 0 P* RECECB=MOVE RECORD NUMBER TO ECBCW1,ECBCW2 _ P
0x36cd88…36cf1c Dummy {f00=0x0113, f01=0x0190, f02=»EXIT: A11,A4,A9=NOT CHANGED _ $ P* A1,A2 =USED REGISTERS ` $ & P* NUMBER OF A14 LEVELS = 2 (WORDS) ` L P* ` v PRECECB EQU * ` " P LD A2,FDBRRO,A11 RECORD ADDR ` P ADKL A2,BUFSTA ` P ADR A2,A4 REC ADDR ` $ P LD A1,FDBRLE,A11 RECORD L
0x36cf1c…36d0b0 Dummy {f00=0x0113, f01=0x40b8, f02=» ` P ST A1,ECBCW,A9 a P LC A1,4,A2 a P ECR A1,A1 a 4 P LC A1,5,A2 a F P ST A1,ECBCW+2,A9 a Z P RTN A14 a t P XIF a P a P a P a P END a @ a P ADKL A2,BUFSTA ` P ADR A2,A4 REC ADDR ` $ P LD A1,FDBRLE,A11 RECORD L
0x36d0b0…36d244 Dummy {f00=0x0113, f01=0x2008, f02=» b + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x36d244…36d3d8 Dummy {f00=0x0113, f01=0x0000, f02=»
[…0x2…]
0x36d700…36d894 (1, 911) Opaque[0x194]
0x36d894…36da28 # DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2280, f03=0x0000}
0x36d894…36da28 IdxSect {
0x36d894…36da28 f00 = 0x0114 // 0x36d894 @0x0
0x36d894…36da28 f01 = 0x0004 // 0x36d896 @0x2
0x36d894…36da28 gno = [ // 0x36d898 @0x4
0x36d894…36da28 [0x00]: C0x0114.0x0.0
0x36d894…36da28 [0x01]: C0x0114.0x1.0
0x36d894…36da28 ]
0x36d894…36da28 }
0x36da28…36dbbc Dummy {f00=0x0114, 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* ST8000 EQU * P* P
0x36dbbc…36dd50 Dummy {f00=0x0114, 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
0x36dd50…36dee4 Dummy {f00=0x0114, 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
0x36dee4…36e078 Dummy {f00=0x0114, 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
0x36e078…36e20c Dummy {f00=0x0114, 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
0x36e20c…36e3a0 Dummy {f00=0x0114, f01=0x4034, f02=» | P DATA ILLINT 62 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
0x36e3a0…36e534 (1, 912) Dummy {f00=0x0114, f01=0x2008, f02=» NT ST8000 79-09-10 JOS * ( * 2 * < * F * P * Z ENTRY ST8000 d ST8000 EQU * z END @
0x36e534…36e6c8 Dummy {f00=0x0114, f01=0x0190, f02=»R BIT 0-8= DELAY + SAME INDICATOR " P* BUFOR BIT 9-15= BUFFER AGE * P* BUFSTA= BLOCK AREA P P* n P* x P EJECT PSDMGBU EQU * P STR A7,A14 SAVE A7 P INH INH P LD A4,CURBUF P LDK A5,0 PDMT010 LDR* A4
0x36e6c8…36e85c Dummy {f00=0x0114, f01=0x0190, f02=»F(Z) DMT015 FREE P SLL A7,1 P SC A7,BUFOR,A4 MARK DELAY * PDMT015 EQU * L P CW A1,BUFSNR,A4 ` P RF(NE) DMT020 x P CW A2,BUFSNR+2,A4 P RF(NE) DMT020 WRONG SECT NR P LDKL A7,/100 & P ORS A7,BUFOR,A4 MARK SAME SECT NR
0x36e85c…36e9f0 Dummy {f00=0x0114, f01=0x0190, f02=» STATUS IN BIT 15 P RF(NZ) DMT030 USED P IM BUFOR,A4 MAKE OLDER 6 $ P SC A7,BUFOR,A4 CLEAR LEFT BYTE V PDMT030 EQU * ~ P CW A5,BUFOR,A4 P RF(G) DMT041 NOT OLDER P LD A5,BUFOR,A4 P ST A4,NEWBUF PDMT041 EQU *
0x36e9f0…36eb84 Dummy {f00=0x0114, f01=0x018e, f02=» Z P* $ P LD A4,NEWBUF CHOOSE THIS BUFFER P ECR A5,A5 : P LDR A5,A5 L P RF(Z) DMT042 NO BUFFER ^ P ANK A5,/3 ~ P RF(Z) DMT043 NO DATA & P LDK A3,0 INDICATE DATA IN BUFFER P ANK A5,/2 P RF(NZ) DMT051 DELAY P R
0x36eb84…36ed18 Dummy {f00=0x0114, f01=0x0190, f02=» P* * P* SET CURBUF AND BUFFER HEADER WORDS P* @ P ST A3,BUFDMI,A4 DMIDENT,FC J " P ST A1,BUFSNR,A4 SECTOR NUMBER n P ST A2,BUFSNR+2,A4 * P LDK A3,1 INDICATE BUFFER MUST BE READ PDMT050 EQU * " P CM BUFOR,A4 RESET OLD-C
0x36ed18…36eeac Dummy {f00=0x0114, f01=0x0190, f02=»A7,A14 SAVED REGISTER P ENB ENB P RTN A14 0 P EJECT @ P* N P************** X P* SDMRLB * n P************** P* P* ENTRY: A8=ECB ADDRESS P* P* EXIT : A8=NOT CHANGED $ P* A4=BLOCK BUFFER A
0x36eeac…36f040 Dummy {f00=0x0114, f01=0x018e, f02=»** P* SDMRBU * P************** P* 6 . P* ENTRY SDMRBU RELEASE A DISC BUFFER @ P* r $ P* INPUT A4 = BUFFER ADDRESS | P* A2 IS DESTROYED P* P* PSDMRBU EQU * P IFT CHECK=1 P LD
0x36f040…36f1d4 (1, 913) Opaque[0x194]
0x36f1d4…36f368 # DirEnt {nam=»SYSINI«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2290, f03=0x0000}
0x36f1d4…36f368 IdxSect {
0x36f1d4…36f368 f00 = 0x0114 // 0x36f1d4 @0x0
0x36f1d4…36f368 f01 = 0x0028 // 0x36f1d6 @0x2
0x36f1d4…36f368 gno = [ // 0x36f1d8 @0x4
0x36f1d4…36f368 [0x00]: C0x0114.0x2.0
0x36f1d4…36f368 [0x01]: C0x0114.0x3.0
0x36f1d4…36f368 [0x02]: C0x0115.0x0.0
0x36f1d4…36f368 [0x03]: C0x0115.0x1.0
0x36f1d4…36f368 [0x04]: C0x0115.0x2.0
0x36f1d4…36f368 [0x05]: C0x0115.0x3.0
0x36f1d4…36f368 [0x06]: C0x0116.0x0.0
0x36f1d4…36f368 [0x07]: C0x0116.0x1.0
0x36f1d4…36f368 [0x08]: C0x0116.0x2.0
0x36f1d4…36f368 [0x09]: C0x0116.0x3.0
0x36f1d4…36f368 [0x0a]: C0x0117.0x0.0
0x36f1d4…36f368 [0x0b]: C0x0117.0x1.0
0x36f1d4…36f368 [0x0c]: C0x0117.0x2.0
0x36f1d4…36f368 [0x0d]: C0x0117.0x3.0
0x36f1d4…36f368 [0x0e]: C0x0118.0x0.0
0x36f1d4…36f368 [0x0f]: C0x0118.0x1.0
0x36f1d4…36f368 [0x10]: C0x0118.0x2.0
0x36f1d4…36f368 [0x11]: C0x0118.0x3.0
0x36f1d4…36f368 [0x12]: C0x0119.0x0.0
0x36f1d4…36f368 [0x13]: C0x0119.0x1.0
0x36f1d4…36f368 ]
0x36f1d4…36f368 }
0x36f368…36f4fc Dummy {f00=0x0114, 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
0x36f4fc…36f690 Dummy {f00=0x0114, 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
0x36f690…36f824 Dummy {f00=0x0114, 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
0x36f824…36f9b8 Dummy {f00=0x0114, 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
0x36f9b8…36fb4c Dummy {f00=0x0114, 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'
0x36fb4c…36fce0 Dummy {f00=0x0114, 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
0x36fce0…36fe74 (1, 914) Dummy {f00=0x0114, 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
0x36fe74…370008 Dummy {f00=0x0114, 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
0x370008…37019c Dummy {f00=0x0114, f01=0x0190, f02=»************************************* , P* CONDITIONAL ASSEMBLY * . , P*************************************** ^ P $ PDSKPAG EQU 0 0 = NO DISC PAGING PMMUPAG EQU 0 0 = NO MMU PCPU852 EQU 1 0 = NOT 852 CPU 2 P******
0x37019c…370330 Dummy {f00=0x0114, 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
0x370330…3704c4 Dummy {f00=0x0114, 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
0x3704c4…370658 Dummy {f00=0x0114, 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
0x370658…3707ec Dummy {f00=0x0114, 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
0x3707ec…370980 Dummy {f00=0x0114, 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
0x370980…370b14 (1, 915) Dummy {f00=0x0115, 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
0x370b14…370ca8 Dummy {f00=0x0115, f01=0x018e, f02=» $ P******************************* $ P* SCRATCH-PAD DISPLACEMENTS * , $ P******************************* T P* | . PAPCBLK EQU 0 START OF APPL. CONTROL BLOCK P EJECT P P ***************** P *****************
0x370ca8…370e3c Dummy {f00=0x0115, 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
0x370e3c…370fd0 Dummy {f00=0x0115, 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
0x370fd0…371164 Dummy {f00=0x0115, 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
0x371164…3712f8 Dummy {f00=0x0115, 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
0x3712f8…37148c Dummy {f00=0x0115, 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
0x37148c…371620 Dummy {f00=0x0115, 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
0x371620…3717b4 (1, 916) Dummy {f00=0x0115, 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
0x3717b4…371948 Dummy {f00=0x0115, 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
0x371948…371adc Dummy {f00=0x0115, 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****************************
0x371adc…371c70 Dummy {f00=0x0115, 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************
0x371c70…371e04 Dummy {f00=0x0115, 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
0x371e04…371f98 Dummy {f00=0x0115, 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
0x371f98…37212c Dummy {f00=0x0115, f01=0x0190, f02=»********************************* p F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * * F P* DATA [REL-ADDRESS] * t F P* * F P
0x37212c…3722c0 Dummy {f00=0x0115, 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**
0x3722c0…372454 (1, 917) Dummy {f00=0x0115, 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*
0x372454…3725e8 Dummy {f00=0x0115, 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
0x3725e8…37277c Dummy {f00=0x0115, 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
0x37277c…372910 Dummy {f00=0x0115, 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
0x372910…372aa4 Dummy {f00=0x0115, 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 "
0x372aa4…372c38 Dummy {f00=0x0115, 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 #
0x372c38…372dcc Dummy {f00=0x0115, 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***
0x372dcc…372f60 Dummy {f00=0x0115, f01=0x018e, f02=»*********************** $ v 6 P************************************************* % P % Z P % f , P** E R R O R ** % r , P** ** % , P** ** % , P** ER
0x372f60…3730f4 (1, 918) Dummy {f00=0x0115, 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
0x3730f4…373288 Dummy {f00=0x0115, f01=0x018e, f02=» P U S H ** & ( P** ** ' " ( P** ** ' N ( P** STORE REGISTERS ON A15-STACK ** ' z ( P** ** ' ( P************************************ ' PPUSH EQU *
0x373288…37341c Dummy {f00=0x0115, 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 (
0x37341c…3735b0 Dummy {f00=0x0115, 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 )
0x3735b0…373744 Dummy {f00=0x0115, 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
0x373744…3738d8 Dummy {f00=0x0115, 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
0x3738d8…373a6c Dummy {f00=0x0115, 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
0x373a6c…373c00 Dummy {f00=0x0115, 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
0x373c00…373d94 (1, 919) Dummy {f00=0x0116, 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
0x373d94…373f28 Dummy {f00=0x0116, 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
0x373f28…3740bc Dummy {f00=0x0116, 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
0x3740bc…374250 Dummy {f00=0x0116, 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 '
0x374250…3743e4 Dummy {f00=0x0116, 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****************
0x3743e4…374578 Dummy {f00=0x0116, 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 LDR A10,A3 SAVE LENGTH 3 l , ( 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
0x374578…37470c Dummy {f00=0x0116, 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 , ( MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER 4 2 P ST A1,COM01+STKCOM SAVE END OF 'FROM' ADDRESS 4 P LD
0x37470c…3748a0 Dummy {f00=0x0116, f01=0x0190, f02=»LE 4 t ( $ MVSU A3 MOVE DATA-BLOCK FROM BUFFER 5 " 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 $ SUR A3,A10 SUBTRACT MOV
0x3748a0…374a34 (1, 920) Dummy {f00=0x0116, 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 EJECT 6 6 SPLIT EQU * 6 P LDR A1,A3 GET DIVISOR 6 * P SRL A1,15 MOST SIGN. PART OF DIVISOR 6 LDR A2,A3 GET D
0x374a34…374bc8 Dummy {f00=0x0116, f01=0x0190, f02=»ENGTH 6 p P RB XMOV10 7 7 4 PXMOV30 CALL POB RESTORE REGISTERS FROM A15-STACK 7 ( RTN A14 7 ` EJECT 7 p 7 ~ 4 P** M O V I N G ** 7 4 P** ** 7 4 P**
0x374bc8…374d5c Dummy {f00=0x0116, 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**
0x374d5c…374ef0 Dummy {f00=0x0116, 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
0x374ef0…375084 Dummy {f00=0x0116, f01=0x0190, f02=» " LDR* A9,A2 GET PAGE IN TABLE : P ANKL A9,/FC00 : * * % 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
0x375084…375218 Dummy {f00=0x0116, 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 ;
0x375218…3753ac Dummy {f00=0x0116, 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 < < PMOV050 EQU * < , ( ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB
0x3753ac…375540 Dummy {f00=0x0116, f01=0x0190, f02=»LUTE ENTRY ADDRESS < * P ST A4,MMTO+STKCOM SAVE TABLE ADDRESS = 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
0x375540…3756d4 (1, 921) Dummy {f00=0x0116, 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
0x3756d4…375868 Dummy {f00=0x0116, 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 ? RTN A14 ? P XIF ? EJECT ? ? 6 P**
0x375868…3759fc Dummy {f00=0x0116, 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**
0x3759fc…375b90 Dummy {f00=0x0116, f01=0x0190, f02=» ** @ t 6 P************************************************* A P A X PSETTAB EQU * A ` P IFT MMUPAG=1 A t SUKL A4,/400 GET NEXT PAGE A SUK A2,2 GET NEXT ENTRY A P A " P* CHECK IF MM-TABLE OVERFLOW * A P A ( P LDR
0x375b90…375d24 Dummy {f00=0x0116, 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 STR A4,A2 STORE IN TABLE B RTN A14 B P XIF B P EJECT B P B P B P B 6 P**
0x375d24…375eb8 Dummy {f00=0x0116, 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
0x375eb8…37604c Dummy {f00=0x0116, 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
0x37604c…3761e0 Dummy {f00=0x0116, 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
0x3761e0…376374 (1, 922) Dummy {f00=0x0116, 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
0x376374…376508 Dummy {f00=0x0116, 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=
0x376508…37669c Dummy {f00=0x0116, 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
0x37669c…376830 Dummy {f00=0x0116, 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=
0x376830…3769c4 Dummy {f00=0x0116, 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
0x3769c4…376b58 Dummy {f00=0x0116, 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
0x376b58…376cec Dummy {f00=0x0116, 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*
0x376cec…376e80 Dummy {f00=0x0116, 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*
0x376e80…377014 (1, 923) Dummy {f00=0x0117, f01=0x0190, f02=» * M > P* EXIT: * N 4 > P* * N v > P* WORK REGISTERS: A1,A2,A3,A4 * N > P*
0x377014…3771a8 Dummy {f00=0x0117, 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
0x3771a8…37733c Dummy {f00=0x0117, 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
0x37733c…3774d0 Dummy {f00=0x0117, 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
0x3774d0…377664 Dummy {f00=0x0117, 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
0x377664…3777f8 Dummy {f00=0x0117, 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
0x3777f8…37798c Dummy {f00=0x0117, 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**
0x37798c…377b20 Dummy {f00=0x0117, 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
0x377b20…377cb4 (1, 924) Dummy {f00=0x0117, f01=0x0190, f02=» * U p 0 ,* GET START OF APLTAB-BLOCK AND CONFIGURA- * V 0 ,* TION-DATA FOR SPECIFIED APPLICATION * V H 0 ,* AND IF MMU-CASE ,LOAD HARDWARE MMU-TABLE * V | 0 ,* AND MMTAB WITH MMU-TABLE FROM TTAB * V 0 ,*
0x377cb4…377e48 Dummy {f00=0x0117, f01=0x0190, f02=» APPL.TYPE 0,1,2,3... * V 0 P* CONSTA=START OF CONF.DATA * W $ 0 ,* * W X 0 ,* OUTPUT: A1=ADDRESS TO FIRST ENTRY IN * W 0 ,* APLTAB-BLOCK * W 0 ,* A2=BLOCK T
0x377e48…377fdc Dummy {f00=0x0117, 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 ,*
0x377fdc…378170 Dummy {f00=0x0117, f01=0x0190, f02=» * X l 0 ,* WORK REGISTERS : A1-A4,A11 * Y 0 ,* * Y D 0 ,******************************************** Y x GETAPP EQU * Y . )* INITIATE REGISTERS AND INCREMENT APPLNO Y ( # LD A3,APLTAB+STKCOM A
0x378170…378304 Dummy {f00=0x0117, f01=0x0190, f02=»DK A2,0 CLEAR APPL.COUNTER OF Y ALL APPL.TYPES Z & 8 3* FIND RIGHT APLTAB-BLOCK FOR SPECIFIED APPLICATION Z @ GTA100 EQU * Z | ( # ADK A2,1 INCREMENT APPL.COUNTER OF Z ALL APPL.TYPES Z 0 + CW* A2,APLTAB+STKCOM ANY APPLICATION LEFT? Z
0x378304…378498 Dummy {f00=0x0117, f01=0x0190, f02=»P,A3 RIGHT APPL.TYPE? Z RF(E) GTA200 YES! [ . P ADK A3,ACBLEN UPDATE APLTAB-BLOCK ADDRESS [ 8 & " RB GTA100 SHECK NEXT APLTAB-BLOCK [ j GTA200 EQU * [ . ) CW A4,APPLNO+STKCOM RIGHT APPL.NUMBER OF [ CURRENT APPL.TYPE? [ RF(E) GTA300 YE
0x378498…37862c Dummy {f00=0x0117, f01=0x0190, f02=»GTA100 SHECK NEXT APLTAB-BLOCK [ PGTA300 EQU * & IFT MMUPAG=1 : . )* 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 IN TTAB P T
0x37862c…3787c0 Dummy {f00=0x0117, f01=0x0190, f02=»N ^ $ LDK A4,0 CLEAR APPL.COUNTER OF ] ALL APPL.TYPES ] 2 , ' LDR A1,A3 LOAD APLTAB-BLOCK ADDRESS TO ] L OUTPUT REGISTER ] | 0 P LD A11,CONSTA+STKCOM GET START OF CONF.DATA ] ( # ADK A4,1 INCREMENT APPL.COUNTER OF ] ALL APPL.TYPES
0x3787c0…378954 (1, 925) Dummy {f00=0x0117, f01=0x0190, f02=» A3,A11 GET CHAR. FROM CONF.DATA ] , ' ADKL A11,1 INCREMENT CONF.DATA POINTER ^ ( * % CCK A3,/FFFF IS CONF.DATA CHAR. /FF? ^ X RB(NE) GTA400 NO! ^ ( # ADK A4,1 INCREMENT APPL.COUNTER OF ^ ALL APL.TYPES ^ $ CWR A2,A4 RIGHT APPL.NUMBER OF ^
0x378954…378ae8 Dummy {f00=0x0117, f01=0x018e, f02=» TO PSW OF THIS ^ x ( #* SUBRUTIN,AND RETURN FROM SUBRUTIN _ GTA800 EQU * _ D . P IM APPLNO+STKCOM INCREMENT APPL.NUMBER OF _ X P CURRENT APPL.TYPE _ LDK A2,0 CLEAR REGISTER _ ( P LCR A2,A11 GET CHAR FROM CONF.DATA _ 0 P LDK A4,1 MAKE COND.RE
0x378ae8…378c7c Dummy {f00=0x0117, 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**
0x378c7c…378e10 Dummy {f00=0x0117, 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
0x378e10…378fa4 Dummy {f00=0x0117, 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
0x378fa4…379138 Dummy {f00=0x0117, 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**********************************************
0x379138…3792cc Dummy {f00=0x0117, 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
0x3792cc…379460 Dummy {f00=0x0117, 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**
0x379460…3795f4 (1, 926) Dummy {f00=0x0117, 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**************************************************
0x3795f4…379788 Dummy {f00=0x0117, 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
0x379788…37991c Dummy {f00=0x0117, 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.
0x37991c…379ab0 Dummy {f00=0x0117, 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,
0x379ab0…379c44 Dummy {f00=0x0117, 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
0x379c44…379dd8 Dummy {f00=0x0117, 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
0x379dd8…379f6c Dummy {f00=0x0117, 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**
0x379f6c…37a100 Dummy {f00=0x0117, 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
0x37a100…37a294 (1, 927) Dummy {f00=0x0118, 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
0x37a294…37a428 Dummy {f00=0x0118, f01=0x0190, f02=»NITIATE DYNAMIC CORE FOR COBOL n * o & " LD A2,SCTOPT GET OPTION WORD o 0 " ANKL A2,/2000 ANY COBOL APPL? o V RF(Z) PBSEND NO! o | . * LD A8,DYNSTA+STKCOM GET START OF DYNTAB:S o & " LDR* A2,A8 GET NUMBER OF DYNTAB:S o ( # ADKL A8,2 INCREMENT D
0x37a428…37a5bc Dummy {f00=0x0118, f01=0x0190, f02=»POINTER o t LDR* A7,A8 GET SPL-PBS ADR p P LDR A6,A13 p 4 * & ADKL A6,PBSTAB CONSTANT-TABLE ADDRESS p H SUK A3,2 END OF DYNTAB p v P RF(Z) INDY50 YES! p PINDY20 EQU * p $ LDR* A5,A6 GET NUMBER OF COPIES p CWK A5,/FFFF END OF TABLE?
0x37a5bc…37a750 Dummy {f00=0x0118, f01=0x0190, f02=»EMENT NBR.OF COPIES p . P RB(N) INDY20 ALL DONE FOR THIS CHARACTER q * % STR A4,A7 STORE CHARACTER IN SPL-PBS q N " ADK A7,2 STEP SPL-PBS POINTER q | P RB INDY30 NEXT WORD q PINDY40 EQU * q LDR* A4,A8 SPL-PBS ADR q LDKL A5,STKMAX STACK-
0x37a750…37a8e4 Dummy {f00=0x0118, f01=0x0190, f02=» LDR A6,A4 SPL-PBS ADDR r & " ADK A6,SPLSTA POINT AT STACK AREA r $ ADR A5,A6 +STACK AREA ADDR r N 0 , ST A5,SPLSTB,A4 STORE IN SPL-PBS STACK-BASE r r P RB INDY10 r PINDY50 EQU * r SUK A2,1 ANY DYNTAB:S LEFT? r P RB(NZ) INDY05 YES! r
0x37a8e4…37aa78 Dummy {f00=0x0118, f01=0x0190, f02=» ** r j 6 2** EACH WORD IN THIS TABLE CONSISTS OF: ** s 6 2** WORD1=COUNTER,NBR OF COPIES OF NEXT WORD ** s N 6 2** WORD2=WORD ** s 6 2** ** s 6 2** BYTE1 (C
0x37aa78…37ac0c Dummy {f00=0x0118, f01=0x0190, f02=»****************** s p PPBSTAB EQU *-REL t DATA 1 TERMINATION-CODE t 2 DATA 0 t R DATA 1 STACK-USED t b DATA /6 t | DATA 1 STACK-SIZE t DATA 0 t DATA 3 PROCEDURE-NAME t DATA /2020 t & " DATA 20 PGM-DATA UNTIL STACK-BA
0x37ac0c…37ada0 Dummy {f00=0x0118, f01=0x0190, f02=»ORK-AREA t v DATA 0 u & ! DATA /FFFF E N D O F T A B L E u PBSEND 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 PAGGEN EQU * u P LDKL A2,PAGEX EXIT ADDRESS u
0x37ada0…37af34 (1, 928) Dummy {f00=0x0118, f01=0x0190, f02=»ORD u v ANK A1,3 PAGING? v P ABR(Z) A2 NO! v & * v < L G* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS v F * v * P LD A11,SCTSFA GET START OF FREE AREA v " ST A11,SCTPAG STORE IN SYSTAB v $ LDR A8,A13 GET RELO
0x37af34…37b0c8 Dummy {f00=0x0118, f01=0x0190, f02=»P EQUAL TO NUMBER OF PAGES? v RF(E) PAG:30 YES! w $ $ LDK A1,0 RESET NUMBER OF WORDS w > PAG:20 EQU * w f " ADKL A11,2 INCLUDE NEXT WORD w z 0 + RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) w $ ADK A1,1 INCREMENT WORD COUNTER w CWK A1,4 4
0x37b0c8…37b25c Dummy {f00=0x0118, f01=0x0190, f02=»PAG:20 w 0 ,PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER x RB PAG:10 x B PAG:30 EQU * x T * x h 4 /* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY x r 6 2* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER x * OF PAGE BLOCKS. x * x P
0x37b25c…37b3f0 Dummy {f00=0x0118, f01=0x0190, f02=»NKL A2,/FFF GET DISPLACEMENT x & ! 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 ~ LD A2,SCTPSZ GET PAGE SIZE y & ! SRL A2,2 SKIP TWO RIGHTMOST BITS y LDR A10,A2 SAVE y 0 , ANKL A1,/FC
0x37b3f0…37b584 Dummy {f00=0x0118, 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 LDR A9,A1 INIT PAGE ADDRESS z LDR A6,A9 SAVE z PPAG:31 EQU *
0x37b584…37b718 Dummy {f00=0x0118, 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 LDR A1,A6 GET PAGE ADDRESS { f P IFT MMUPAG=1 { * & ANKL A1,/C000 ADDRESS IN SYSTEM AREA? { RF(NZ) PAG:34 NO! { . * LDR A1,A6 PHYSICAL ADDRESS IN
0x37b718…37b8ac Dummy {f00=0x0118, f01=0x0190, f02=» P IFF MMUPAG+DSKPAG=0 | & "PAG: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 | $ ADK A2,1 INCREMENT WORD COUNTER | CWK A2,4 BLOC
0x37b8ac…37ba40 Dummy {f00=0x0118, 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 PAG:40 EQU * } " P ADK A7,0 ANY PAGES RESERVED? } P RF(Z) MEMOFL NO! } 6 1 CW A7,SCTNOP ONLY PAGES FOR
0x37ba40…37bbd4 (1, 929) Dummy {f00=0x0118, f01=0x0190, f02=»AG:50 YES! } MEMOFL LDKL A1,LMP3 ~ * & OTR A1,0,SOP INDICATE MEMORY OVERFLOW ~ . HLT HALT PROGRAM ~ : PPAG:45 CW A7,STKCOM+TOTSGM ONE PAGE/SEGMENT ALLOCATED? ~ v , P CW A7,STKCOM+TOTSGM MORE PAGES WANTED? ~ RF(E) PAG:50 YES! ~ $ ADK A7,1
0x37bbd4…37bd68 Dummy {f00=0x0118, f01=0x0190, f02=»ES ~ p ( $ LDR A1,A9 GET ADDRESS TO FIRST PAGE LDR A2,A1 SAVE 6 P IFT MMUPAG=1 N * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS d ST A1,SCTEFA SAVE . * SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS P XIF P IFF MMUPAG+DSKPAG=0 S
0x37bd68…37befc Dummy {f00=0x0118, 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
0x37befc…37c090 Dummy {f00=0x0118, 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,
0x37c090…37c224 Dummy {f00=0x0118, f01=0x0190, f02=» FOR CORE RESIDENT SEGMENTS x 8 P* AND STORE PAGE BLOCK ADDRESSES IN SEGMENT BLOCKS $ P* ` " ADKL A11,8 NEXT SEGMENT BLOCK j LDR* A2,A11 GET STATUS , P RF(NN) INI30 SEGMENT NOT LOADED IN CORE * & ST A12,6,A11 STORE PAGE BLOCK ADDRESS
0x37c224…37c3b8 Dummy {f00=0x0118, 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 ADKL A12,
0x37c3b8…37c54c Dummy {f00=0x0118, 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
0x37c54c…37c6e0 Dummy {f00=0x0118, 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
0x37c6e0…37c874 (1, 930) Dummy {f00=0x0118, 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
0x37c874…37ca08 Dummy {f00=0x0118, 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
0x37ca08…37cb9c Dummy {f00=0x0118, 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?
0x37cb9c…37cd30 Dummy {f00=0x0118, 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 / ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK & " LDKL A11,PAGQUE POINTER TO PAGQUE 0 , LDR A1,A12 SAVE ADDRESS TO FIRST PAGE
0x37cd30…37cec4 Dummy {f00=0x0118, 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 , ' LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK & ! STR A1,A12 STORE FORWARD POINTER LDR A12,A1 NEXT PAGE BLOCK ADR A
0x37cec4…37d058 Dummy {f00=0x0118, f01=0x0190, f02=» 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
0x37d058…37d1ec Dummy {f00=0x0118, 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
0x37d1ec…37d380 Dummy {f00=0x0118, 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
0x37d380…37d514 (1, 931) Dummy {f00=0x0119, 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.
0x37d514…37d6a8 Dummy {f00=0x0119, 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
0x37d6a8…37d83c Dummy {f00=0x0119, f01=0x0190, f02=»LICATIONS AND BRANCH TO DISPATCHER * * PINDY00 EQU * 4 " LD A2,SCTOPT GET OPTION WORD H " ANKL A2,/2000 ANY COBOL APPL? n RF(Z) PBSEND NO! P LDKL A2,STKEND * P LD A8,STADYN,A2 GET START OF DYNTAB:S ( P RF(Z) PBSEND NO COB
0x37d83c…37d9d0 Dummy {f00=0x0119, f01=0x0190, f02=»A3,A8 GET DYNTAB LENGTH (BYTES) PINDY10 EQU * ( ( # ADKL A8,2 INCREMENT DYNTAB POINTER < LDR* A7,A8 GET SPL-PBS ADR h , P LDKL A6,STKEND START OF INIT.INSTR.SEQ. * & ADKL A6,PBSTAB CONSTANT-TABLE ADDRESS SUK A3,2 END OF DYNTAB
0x37d9d0…37db64 Dummy {f00=0x0119, f01=0x0190, f02=»0 YES! LD A4,2,A6 GET WORD TO COPY ADK A6,4 ADJUST PBSTAB 2 PINDY30 EQU * R & ! SUK A5,1 DECREMENT NBR.OF COPIES f . P RB(N) INDY20 ALL DONE FOR THIS CHARACTER * % STR A4,A7 STORE CHARACTER IN SPL-PBS " ADK A7,2 STEP SPL-PBS P
0x37db64…37dcf8 Dummy {f00=0x0119, f01=0x018e, f02=»PLSTS,A4 STORE IN SPL-PBS ( $ LDKL A7,ENTFIN ENTRY-FINI (ADDRESS) " & ! ST A7,SPLENT,A4 STORE IN SPL-PBS N LDR A6,A4 SPL-PBS ADDR x & " ADK A6,SPLSTA POINT AT STACK AREA ADR A5,A6 +STACK AREA ADDR 0 , ST A5,SPLSTB,A4 STORE IN SPL-PBS
0x37dcf8…37de8c Dummy {f00=0x0119, f01=0x0190, f02=» PSAVDYN EQU *-REL PSTADYN EQU *-INDY00 P DATA 0 SAVE AREA FOR DYNSTA < P EJECT ` 6 2************************************************** n 6 2** ** 6 2** EACH WORD IN THIS TABLE CONSISTS O
0x37de8c…37e020 Dummy {f00=0x0119, f01=0x0190, f02=»** ** 6 2** BYTE1 (COUNTER)=/FF MEANS END OF TABLE ** : 6 2** ** t 6 2************************************************** PPBSTAB EQU *-INDY00 DAT
0x37e020…37e1b4 (1, 932) Dummy {f00=0x0119, f01=0x018e, f02=»PROCEDURE-NAME DATA /2020 & " DATA 20 PGM-DATA UNTIL STACK-BASE * DATA 0 T DATA 1 STACK-BASE d DATA 0 ~ DATA 1 ENTRY-FINI DATA 0 & " DATA 16 LAST-TS,RUNTIME-WORK-AREA DATA 0 & ! DATA /FFFF E N D O F
0x37e1b4…37e348 Dummy {f00=0x0119, f01=0x400c, f02=» @ ME DATA /2020 & " DATA 20 PGM-DATA UNTIL STACK-BASE * DATA 0 T DATA 1 STACK-BASE d DATA 0 ~ DATA 1 ENTRY-FINI DATA 0 & " DATA 16 LAST-TS,RUNTIME-WORK-AREA DATA 0 & ! DATA /FFFF E N D O F
0x37e348…37e4dc Dummy {f00=0x0119, 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
0x37e4dc…37e670 Dummy {f00=0x0119, f01=0x0190, f02=»RD LENGTH r P ADK A3,1 SKIP STATUS BYTE ! P RB TIOD60 ! 4 ( PCALERR LDKL A1,EOMERR OUT OF MEDIUM ! F P RF TIODMF ! r P* ! , P* STORE RELATIVE REC OFFSET IN FBDRRO ! P* ! PTIOD65 EQU * ! P LDK A1,0 OK ! P ST A3,FDBRRO,A11 !
0x37e670…37e804 Dummy {f00=0x0119, f01=0x018e, f02=»********** ! P* FM I/O HANDLER * " P********************** " 0 P " N P* ENTRY: A11=FDB ADDRESS " V P* A8=ECB ADDRESS " v P* " P* EXIT : A1=RETURN CODE " " P* A11,A8=SAME AS ENTRY " P* A2=USED " P* " & P
0x37e804…37e998 Dummy {f00=0x0119, f01=0x0190, f02=» P LDK A7,/95 # P RF FMIO10 # P # * PFMIOCL EQU * CLOSE # 2 P LDK A7,/A2 # L P RF FMIO10 # ` P # r PFMIODL EQU * DELETE # z P LDKL A7,/2A2 # P RF FMIO10 # P # PFMIOOP EQU * OPEN FILE # P LDK A7,/A1 # P RF FMIO10 #
0x37e998…37eb2c Dummy {f00=0x0119, f01=0x018e, f02=» RF FMIO10 # P EJECT $ & PFMIORF EQU * READ FILE PARAMETERS $ P LDK A7,/83 $ J P RF FMIO10 $ ^ P $ p PFMIORD EQU * READ $ x P LDK A7,/91 $ P $ PFMIO10 EQU * $ P LKM $ P DATA 15 $ P EJECT SDMSUB $ P* $ P* RESTOR
0x37eb2c…37ecc0 Dummy {f00=0x0119, f01=0x0190, f02=» $ P LD A2,DWTECB,A11 DM ECB ADDRESS % P LD A1,ECBRC,A8 % , P RF(Z) RETURN DISC I/O OK % D P ANKL A1,/FEFF % f $ P RF(NZ) DMTIT1 NOT ONLY RETRIES % | P LDKL A1,RETRIE % & P ORS A1,ECBRC,A2 USER RETURN CODE % P LDK A1,0 SET RETURN CODE OK %
0x37ecc0…37ee54 (1, 933) Opaque[0x194]
0x37ee54…37efe8 # DirEnt {nam=»SYSLBA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2330, f03=0x0000}
0x37ee54…37efe8 IdxSect {
0x37ee54…37efe8 f00 = 0x0119 // 0x37ee54 @0x0
0x37ee54…37efe8 f01 = 0x000e // 0x37ee56 @0x2
0x37ee54…37efe8 gno = [ // 0x37ee58 @0x4
0x37ee54…37efe8 [0x00]: C0x0119.0x2.0
0x37ee54…37efe8 [0x01]: C0x0119.0x3.0
0x37ee54…37efe8 [0x02]: C0x011a.0x0.0
0x37ee54…37efe8 [0x03]: C0x011a.0x1.0
0x37ee54…37efe8 [0x04]: C0x011a.0x2.0
0x37ee54…37efe8 [0x05]: C0x011a.0x3.0
0x37ee54…37efe8 [0x06]: C0x011b.0x0.0
0x37ee54…37efe8 ]
0x37ee54…37efe8 }
0x37efe8…37f17c Dummy {f00=0x0119, f01=0x0190, f02=» 2 P IDENT SYSLBA REL 11.0 81-01-26 870105041100 P : B < 7******************************************************* J < 7* * < 7* PHILIPS TERMINAL SYSTEM PTS * <
0x37f17c…37f310 Dummy {f00=0x0119, f01=0x0190, f02=» * < 7******************************************************* : EJECT z * * EXTERNAL SUBOUTINES * EXTRN ACTOT ACTIVATE TASK 0 + EXTRN GETAPP GET APPLICATION CONTROL BLOCK
0x37f310…37f4a4 Dummy {f00=0x0119, f01=0x0190, f02=» p 2 - EXTRN MOVING ALLOCATE AREA IN LOGICAL MEMORY EXTRN MOVMMT MOVE MMU TABLE > 0 , EXTRN RETUR8 RESTORE 8 REGISTERS FROM STACK b * & EXTRN SAVE8 SAVE 8 REGISTERS ON STACK * & !* SYSTEM CONTROL TABLE EXTERNALS * $ EXTRN
0x37f4a4…37f638 Dummy {f00=0x0119, f01=0x0190, f02=» * % EXTRN ACBIOE INTERPRETER ERROR ENTRY ( $ EXTRN ACBNPE NUMBER OF PAGE ENTRIES 6 . ) EXTRN ACBMMC DISPL. TO COMMON PART ENTRY b 0 P EXTRN ACBLAC LOGICAL ADDRESS TO COMM0N PART * " * TTAB DISPLACEMENT EXTERNALS * $ EXTRN
0x37f638…37f7cc Dummy {f00=0x0119, f01=0x0190, f02=»ATION CONTROL BLOCK POINTER | " EXTRN TTB:SA DISPATCH ADDRESS $ P EJECT J P* X P* EXTERNAL LABELS b P* | ( P EXTRN REL RELOCATION ROUTINE ENTRY . P EXTRN STKMOV STACK-RESIDENT MOVE-ROUTINE * P EXTRN STKCOM COMMON SCRATCH-PAD BAS
0x37f7cc…37f960 Dummy {f00=0x0119, f01=0x0190, f02=»BLE DISPLACEMENT x ( # EXTRN TABBE MMU WORK TABLE ADDRESS $ EXTRN MMEND MMU WORK TABLE END D 2 - EXTRN MMDDIV 2ND MMU WORK TABLE DISPLACEMENT l . ) EXTRN MMBEG TTAB WORK TABLE DISPLACEMENT EXTRN INIEND END OF SYSINI EJECT *
0x37f960…37faf4 (1, 934) Dummy {f00=0x0119, f01=0x0190, f02=»*************** v . P* * . P* COMMON DISPLACEMENTS AND CONSTANTS * J . P* * | . P***************************************** P 0 PAPLTAB EQU 12 ADDRESS TO APPL. C
0x37faf4…37fc88 Dummy {f00=0x0119, f01=0x0190, f02=»TION DATA p , PCONSTA EQU 2 START OF CONFIGURATION DATA ( PDATEND EQU 34 END OF DDIV PROTOTYPE B $ PDYNSTA EQU 52 START OF DYNTAB:S n : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER * PFSTPAG EQU 22 1ST FREE PAGE (PHYSICAL) , PFYSPAG
0x37fc88…37fe1c Dummy {f00=0x0119, f01=0x0190, f02=» l * 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
0x37fe1c…37ffb0 Dummy {f00=0x0119, 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 ( PDCBLK EQU 54 START OF DC CONF. DATA P EJECT $ P*******************************
0x37ffb0…380144 Dummy {f00=0x0119, f01=0x0190, f02=»LIMUS EQU 12 SAVE AREA FOR UPPER LIMIT & PCOMSTA EQU 14 START OF COMMON PART . " PCOMLEN EQU 16 LENGTH OF COMMON X * ~ * CONSTANTS * & !MMULEN EQU 32 LENGTH OF MMU TABLE T:ATID EQU -4 TID IN T:A TTBTID E
0x380144…3802d8 Dummy {f00=0x0119, f01=0x0190, f02=»R AREA SIZE EXCL. STACK ~ P EJECT 0 P******************************************* . . P* DISPLACEMENT IN APPLICATION TABLE * b . P****************************************** P PINTPA EQU 0 PINTPE EQU 2 PSTKSIZ EQU 4
0x3802d8…38046c Dummy {f00=0x0119, f01=0x0190, f02=»AT, PERFORMS: CFR A14,A13 * F P* DATA [REL-ADDRESS] * > F P* * F P******************************************************
0x38046c…380600 Dummy {f00=0x0119, f01=0x0190, f02=»RESENT f * 0 , LDKL A1,'BA' LOAD IDENTIFICATION CHARACTERS ( 0 + CM STKCOM+APPLNO CLEAR APPLICATION COUNTER ( # CALL GETAPP ANY BASIC APPLICATION? RF(NZ) SYA100 YES " LDKL A1,LBAEND END OF SYSLBA AD A1,STKCO
0x380600…380794 (1, 935) Dummy {f00=0x011a, f01=0x0190, f02=»O COMMON PART h IFT MMUPAG=0 " LDR* A2,A2 GET APPTAB ADDRESS , 0 , LD A1,I:RSTE,A2 GET INTERPRETER ERROR ENTRY R XIF IFF MMUPAG=0 $ P LDK A3,0 END OF LOGICAL MEMORY , ( SUR A3,A2 COMPUTE LENGTH OF COMMON PART 0 + ADKL A3
0x380794…380928 Dummy {f00=0x011a, f01=0x0190, f02=» l $ TL TTB:MT,A1 LOAD MMU REGISTERS 0 + ELR A2,A2 GET ADDRESS TO APPLICATION TABLE 0 0 , EL A1,I:RSTE,A2 GET INTERPRETER ERROR ENTRY d XIF 4 / ST A1,ACBIOE,A10 STORE INTERPRETER ERROR ENTRY : 6 ST A2,ACBLAC,A10 STORE LOGICAL ADDRESS TO C
0x380928…380abc Dummy {f00=0x011a, f01=0x0190, f02=»TA SAVE START OF COMMON PART ~ EJECT $ 2 . LDKL A1,PART2 GET ADDRESS TO PART 2 OF SYSLBA 2 AD A1,STKCOM+M:REL RELOCATE h ( $ LD A7,SCTSFA GET START OF FREE AREA LDR A2,A7 SAVE $ SUR A2,A1 COMPUTE DISPLACEMENT 8 4 ADS A2,STKCOM+M
0x380abc…380c50 Dummy {f00=0x011a, f01=0x0190, f02=» Z AD A2,STKCOM+M:REL RELOCATE LDR A5,A2 SAVE , IFF MMUPAG=0 D 0 P ANKL A2,/F000 ISOLATE PHYSICAL PAGE ADDRESS Z P SRL A2,2 ST A2,STKCOM+FSTPAG SAVE 2 - LDKL A4,MMDDIV ADDRESS TO 2ND MMU WORK TABLE ADR A4,A13 RELO
0x380c50…380de4 Dummy {f00=0x011a, f01=0x0190, f02=»NTER v 2 - ADKL A2,/400 INCREMENT PHYSICAL PAGE ADDRESS SUK A3,1 MORE ENTRIES LEFT? B RB(NZ) SYA150 YES f EJECT * $ * SAVE MMU WORK TABLE ADDRESSES * & " ANKL A5,/FFF ISOLATE DISPLACEMENT XIF
0x380de4…380f78 Dummy {f00=0x011a, f01=0x0190, f02=»E CONFIGURATION PROGRAM(S) * " , LDR A2,A7 GET TO-ADDRESS 4 0 , ADKL A7,START2 START OF EXECUTION IN PART 2 V " LDKL A3,INIEND END OF SYSINI . ) SUKL A3,PART2 COMPUTE LENGTH OF PROGRAMS . * ABL STKMOV JUMP TO STACK-RESIDENT ROU
0x380f78…38110c Dummy {f00=0x011a, f01=0x0190, f02=»PROCDR DATA 'BASIC' PROCEDURE NAME DATA 0 * DATA 6 < L T * " * SUBROUTINES USED IN PART 2 f * IFT MMUPAG=1 P EJECT B P*************************************************************
0x38110c…3812a0 Dummy {f00=0x011a, f01=0x0190, f02=» * V B P* =========================================== * B P* * R B P* REFERENCED IN: SYSLDB * B P*
0x3812a0…381434 (1, 936) Dummy {f00=0x011a, f01=0x0190, f02=» * j B P* EXIT: * B P* * f B P* WORK REGISTERS: A1,A2,A9 * B P*
0x381434…3815c8 Dummy {f00=0x011a, f01=0x0190, f02=» * ~ B P************************************************************* 4 PINUEMT EQU * z $ P LDR A2,A3 GET MMU TABLE ADDRESS P LDR A9,A2 GET TTAB ADDRESS $ ADKL A9,MMULEN END OF MMU TABLE P SUK A
0x3815c8…38175c Dummy {f00=0x011a, f01=0x0190, f02=»MU TABLE ENTRY t . P RB(NZ) INUE10 NOT UNUSED MMU TABLE ENTRY! , P LDKL A1,/FC00 VALUE FOR UNUSED ENTRIES H " P STR A1,A2 STORE IN MMU TABLE x P RB INUE10 PINUE99 RTN A14 RETURN P XIF P EJECT 8 P********************************
0x38175c…3818f0 Dummy {f00=0x011a, f01=0x0190, f02=» * ` 8 P* ============================ * 8 P* * H 8 P* REFERENCED IN: SYSLDB PART 2 * 8 P* * 8 P* ENTRY: A
0x3818f0…381a84 Dummy {f00=0x011a, f01=0x0190, f02=» * t 8 P* EXIT: * 8 P* * 8 P* WORK REGISTERS: A1-A4,A10,A12 * 8 P* *
0x381a84…381c18 Dummy {f00=0x011a, f01=0x0190, f02=»******************************************* PB:UWA EQU * 4 P* H $ P* ALLOCATE MEMORY FOR USER AREA R P* z ( P LD A3,STKEND+STKSIZ GET STACK SIZE * P ADK A3,PBSSIZ ADD SIZE OF FIXED PART 2 P LD A2,STKCOM+LSTADR GET LAST LOGICAL ADDR
0x381c18…381dac Dummy {f00=0x011a, f01=0x0190, f02=»OF USER AREA P IFT MMUPAG=1 * P TL* MMTO+STKCOM RELOAD MMU REGISTERS * P SUR A1,A1 CLEAR REGISTER X P XIF z P* P* CLEAR USER WORK AREA P* P* A2 - START OF USER AREA P* A12 - END OF USER AREA P* $ P
0x381dac…381f40 Dummy {f00=0x011a, f01=0x0190, f02=»ORD z P XIF P IFT MMUPAG=1 P ESR A1,A4 CLEAR MEMORY WORD . P XIF R " P CWR A4,A2 ALL WORDS CLEARED? ^ P RB(NE) CLRNXT NO! P EJECT P* , P* INITIALIZATION OF USER AREA AND TTAB P* P* A5 - TTAB ADDRESS
0x381f40…3820d4 (1, 937) Dummy {f00=0x011a, f01=0x0190, f02=»D ENTRY x ( P ST A4,TTB:SA+26,A5 SAVE IN REG A13 ( P LD A3,STKEND+STKSIZ GET STACK SIZE < * P SRA A3,1 CONVERT FROM BYTES TO WORDS h P IFF MMUPAG=1 " P ST A1,T:ATID,A4 STORE TASK ID P ST A3,2,A4 STORE STACK SIZE 4 P LD A1,STKEND+INTP
0x3820d4…382268 Dummy {f00=0x011a, f01=0x0190, f02=» SPACE P ST A1,4,A4 BLANK 1:ST WORD P ST A1,6,A4 BLANK 2:ND WORD 2 P ST A1,8,A4 BLANK 3:RD WORD V * P ADK A4,10 CURRENT PROC. BLOCK POINTER z $ P ST A4,TTB:SA+20,A5 SAVE IN TTAB $ P LDR A1,A12 GET END OF USER AREA ( P SUK A1,18 STACK
0x382268…3823fc Dummy {f00=0x011a, f01=0x0190, f02=»ISPLAY 0 z P ST A4,8,A1 SAVE IN STACK 2 P ST A1,TTB:SA+28,A5 SAVE STACK POINTER IN TTAB 2 < P LD A1,STKEND+I:EXIT GET ADDRESS TO TERMINATING PROGRAM h $ P ST A1,-2,A12 SAVE LAST IN STACK 0 P ST A1,40,A4 ADDRESS TO TERMINATING PROGRAM P LDR
0x3823fc…382590 Dummy {f00=0x011a, f01=0x0190, f02=» PSW P ST A1,-4,A12 STORE IN STACK ! 6 P LD A1,ACBLAC,A10 ADDRESS TO PROCEDURE DESCRIPTOR ! 0 P ST A1,-6,A12 STORE IN STACK ! j P XIF ! P IFT MMUPAG=1 ! " P ES A1,T:ATID,A4 STORE TASK ID ! P ES A3,2,A4 STORE STACK SIZE ! 4 P LD A1,STKEND+
0x382590…382724 Dummy {f00=0x011a, f01=0x0190, f02=»2020 SPACE ! P ES A1,4,A4 BLANK 1:ST WORD " P ES A1,6,A4 BLANK 2:ND WORD " 6 P ES A1,8,A4 BLANK 3:RD WORD " Z * P ADK A4,10 CURRENT PROC. BLOCK POINTER " ~ $ P ST A4,TTB:SA+20,A5 SAVE IN TTAB " $ P LDR A1,A12 GET END OF USER AREA " 2 P SUK A1,18 S
0x382724…3828b8 Dummy {f00=0x011a, f01=0x0190, f02=»2 POINTER TO DISPLAY 0 " P ES A4,8,A1 SAVE IN STACK # * P ST A1,TTB:SA+28,A5 SAVE STACK POINTER # @ 4 P LD A1,STKEND+I:EXIT GET ADDR. TO TERM. PROGRAM # n $ P ES A1,-2,A12 SAVE LAST IN STACK # , P ES A1,40,A4 ADDRESS TO TERMINATING CODE # $ P LDR A1,A1
0x3828b8…382a4c Dummy {f00=0x011a, f01=0x0190, f02=»SW # P ES A1,-4,A12 STORE IN STACK $ 6 P LD A1,ACBLAC,A10 ADDRESS TO PROCEDURE DESCRIPTOR $ . P ES A1,-6,A12 STORE IN STACK $ h P XIF $ P RTN A14 $ P EJECT $ > P********************************************************* $ > P*
0x382a4c…382be0 Dummy {f00=0x011a, f01=0x0190, f02=»==================== * $ | > P* * % . > P* REFERENCED IN: SYSLDB * % p > P* * % > P* ENTRY: A5 - TTAB
0x382be0…382d74 (1, 938) Dummy {f00=0x011a, f01=0x0190, f02=» * % x > P* EXIT: * & * > P* * & l > P* WORK REGISTERS: A1,A3 * & > P*
0x382d74…382f08 Dummy {f00=0x011a, f01=0x0190, f02=» * & t > P********************************************************* ' & , PQ:USTK LDKL A3,QRTN CONTINUATION ADDRESS ' h P AD A3,STKCOM+M:REL RELOCATE ' P STR A3,A15 STORE ' & P LDKL A3,/00C0 SET LEVEL & ENABLE ' P STR A3,
0x382f08…38309c Dummy {f00=0x011a, f01=0x0190, f02=»RPRETER START ADDRESS ' t P LDK A3,0 SEGMENT NUMBER ( P CF A15,ACTOT QUEUE TASK ( > " P ABL RETUR8 RELOAD 8 REGISTERS ( ^ PQRTN EQU * ( P RTN A14 ( P EJECT ( START2 EQU *-PART2 ( ( ( * ( * MOVE CONFIGURATION DATA (
0x38309c…383230 Dummy {f00=0x011a, f01=0x0190, f02=»TKCOM+M:REL RELOCATE ( : 5 LD A3,STKCOM+CONLEN GET LENGTH OF CONFIGURATION DATA ) . * ABL STKMOV JUMP TO STACK-RESIDENT ROUTINE ) Z SYA200 EQU * ) ) ) * ) * %* LOAD NEW RELOCATION AND STACK BASE ) * ) ) ) " LDR A
0x383230…3833c4 Dummy {f00=0x011a, f01=0x0190, f02=»RELOCATION ROUTINE ) & " LD A1,ACBLAC,A10 GET FROM-ADDRESS * 4 / LDKL A2,STKEND+SAVAPP ADDRESS APPTAB SAVE AREA * D ( # LDK A3,APPLEN GET LENGTH OF APPTAB * | IFF MMUPAG=1 * CALL MOVE MOVE APPTAB * LDR A2,A1 GET TO-ADDRESS * . ) LDK A3,AP
0x3833c4…383558 Dummy {f00=0x011a, f01=0x0190, f02=»EDURE DESCRIPTOR * | XIF + IFT MMUPAG=1 + $ $ MVUS A3 MOVE APPLICATION TABLE + : LDR A2,A1 GET TO-ADDRESS + b . ) LDK A3,APPLEN GET LENGTH OF PROC. DESCR. + " SUR A2,A3 COMPUTE TO-ADDRESS + $ LDKL A1,PROCDR GET FROM-ADDRESS + AD
0x383558…3836ec Dummy {f00=0x011a, f01=0x0190, f02=»GET PHYSICAL PAGE ADDRESS + j * , " , , & " LDKL A3,MMTAB DISPL. TO MMU TABLE , 4 ADR A3,A13 RELOCATION BASE , ^ 4 / CALL INUEMT INIT NOT USED ENTRIES IN MMU TABLE , , ' CALL MMENT FIND FIRST UNUSED MMU ENTRY , 4 P ST A1,STKCOM+FYSPAG SAVE PHYS
0x3836ec…383880 Dummy {f00=0x011a, f01=0x0190, f02=»AVE ADDRESS TO MMU TABLE , z P TLR A6 LOAD MMU REGISTERS - XIF - B . * LD A6,ACBMMC,A10 GET FIRST ENTRY IN TCTAB - N * & LD A7,ACBNPE,A10 NUMBER OF USER TASKS - & "I:LOOP LDR* A5,A6 GET TTAB ADDRESS - ST A5,STKCOM+TTAB STORE - IFT MMUPAG=1 -
0x383880…383a14 (1, 939) Dummy {f00=0x011b, f01=0x0190, f02=» LOGICAL ADDRESS - r 2 P LD A2,STKEND+COMSTA GET START OF COMMON PART . * P ST A2,STKCOM+LSTADR SAVE FOR MAPPING . N ( $ CALL INBIMA INIT ALLOCATION BIT MAP . | 6 P ST A8,STKCOM+LSTADR RESTORE LAST LOGICAL ADDRESS . LDR A2,A5 GET TTAB ADDRESS . C
0x383a14…383ba8 Dummy {f00=0x011b, f01=0x0190, f02=»TK QUEUE USER TASK . " ADK A6,2 NEXT ENTRY IN TCTAB / SUK A7,1 MORE USER TASKS? / @ RB(NZ) I:LOOP YES / b EJECT / | * / * UPDATE END OF FREE AREA / * / / / 4 / LD A1,STKCOM+LSTADR GET LOWEST LOGICAL ADDRESS /
0x383ba8…383d3c Dummy {f00=0x011b, f01=0x018e, f02=» TWO LEFTMOST BITS / ORR A1,A2 MERGE ADDRESS 0 XIF 0 : * & ST A1,SCTEFA+2 STORE LEAST SIGN. PART 0 F 2 - LD A1,STKCOM+FYSPAG GET LAST USED PHYS. PAGE 0 t & " SRL A1,14 GET TWO MOST SIGN. BITS 0 ( # ST A1,SCTEFA STORE MOST SIGN. PART 0 * & CM STKC
0x383d3c…383ed0 Dummy {f00=0x011b, f01=0x401c, f02=» 1 END 1 @ 1 RR A1,A2 MERGE ADDRESS 0 XIF 0 : * & ST A1,SCTEFA+2 STORE LEAST SIGN. PART 0 F 2 - LD A1,STKCOM+FYSPAG GET LAST USED PHYS. PAGE 0 t & " SRL A1,14 GET TWO MOST SIGN. BITS 0 ( # ST A1,SCTEFA STORE MOST SIGN. PART 0 * & CM STKC
0x383ed0…384064 Dummy {f00=0x011b, f01=0x2008, f02=» 2 p * * CONTINUE IN NEXT PROGRAM ( * L V ^ END f@ rEFTMOST BITS b ORR A1,A2 MERGE ADDRESS XIF * & ST A1,SCTEFA+2 STORE LEAST SIGN. PART 2 - LD A1,STKCOM+FYSPAG GET LAST USED P
0x384064…3841f8 Dummy {f00=0x011b, f01=0x0190, f02=»OD A1,A2=A6*A7 Z P LD A4,FDBRLE,A11 [ P ADK A4,1 RECORD LENGTH [ 0 P LDK A7,0 RECORD COUNTER [ P & P LD A6,FDBRRO,A11 OFFSET IN SECTOR [ p P ADK A6,1 [ PGTL150 EQU * [ P ADK A7,1 RECORD COUNTER [ P SUR A6,A4 [ * P RB(NN) GTL150 COUNT R
0x3841f8…38438c Dummy {f00=0x011b, f01=0x0190, f02=» P RF GTL170 PGTL160 EQU * & P ANKL A2,/7FFF DELETE OVERFLOWBIT * P ADK A1,1 ADD CARRY T PGTL170 EQU * p P LD A4,-4,A14 SAVED REGISTER P RTN A14 P EJECT P* 0 P* RECECB=MOVE RECORD NUMBER TO ECBCW1,ECBCW2 P*
0x38438c…384520 Dummy {f00=0x011b, f01=0x0190, f02=»: A11,A4,A9=NOT CHANGED $ P* A1,A2 =USED REGISTERS ] & P* NUMBER OF A14 LEVELS = 2 (WORDS) ] H P* ] r PRECECB EQU * ] | " P LD A2,FDBRRO,A11 RECORD ADDR ] P ADKL A2,BUFSTA ] P ADR A2,A4 REC ADDR ] $ P LD A1,FDBRLE,A11 RECORD LENGT
0x384520…3846b4 (1, 940) Opaque[0x194]
0x3846b4…384848 # DirEnt {nam=»SYSLCO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2368, f03=0x0000}
0x3846b4…384848 IdxSect {
0x3846b4…384848 f00 = 0x011b // 0x3846b4 @0x0
0x3846b4…384848 f01 = 0x0054 // 0x3846b6 @0x2
0x3846b4…384848 gno = [ // 0x3846b8 @0x4
0x3846b4…384848 [0x00]: C0x011b.0x1.0
0x3846b4…384848 [0x01]: C0x011b.0x2.0
0x3846b4…384848 [0x02]: C0x011b.0x3.0
0x3846b4…384848 [0x03]: C0x011c.0x0.0
0x3846b4…384848 [0x04]: C0x011c.0x1.0
0x3846b4…384848 [0x05]: C0x011c.0x2.0
0x3846b4…384848 [0x06]: C0x011c.0x3.0
0x3846b4…384848 [0x07]: C0x011d.0x0.0
0x3846b4…384848 [0x08]: C0x011d.0x1.0
0x3846b4…384848 [0x09]: C0x011d.0x2.0
0x3846b4…384848 [0x0a]: C0x011d.0x3.0
0x3846b4…384848 [0x0b]: C0x011e.0x0.0
0x3846b4…384848 [0x0c]: C0x011e.0x1.0
0x3846b4…384848 [0x0d]: C0x011e.0x2.0
0x3846b4…384848 [0x0e]: C0x011e.0x3.0
0x3846b4…384848 [0x0f]: C0x011f.0x0.0
0x3846b4…384848 [0x10]: C0x011f.0x1.0
0x3846b4…384848 [0x11]: C0x011f.0x2.0
0x3846b4…384848 [0x12]: C0x011f.0x3.0
0x3846b4…384848 [0x13]: C0x0120.0x0.0
0x3846b4…384848 [0x14]: C0x0120.0x1.0
0x3846b4…384848 [0x15]: C0x0120.0x2.0
0x3846b4…384848 [0x16]: C0x0120.0x3.0
0x3846b4…384848 [0x17]: C0x0121.0x0.0
0x3846b4…384848 [0x18]: C0x0121.0x1.0
0x3846b4…384848 [0x19]: C0x0121.0x2.0
0x3846b4…384848 [0x1a]: C0x0121.0x3.0
0x3846b4…384848 [0x1b]: C0x0122.0x0.0
0x3846b4…384848 [0x1c]: C0x0122.0x1.0
0x3846b4…384848 [0x1d]: C0x0122.0x2.0
0x3846b4…384848 [0x1e]: C0x0122.0x3.0
0x3846b4…384848 [0x1f]: C0x0123.0x0.0
0x3846b4…384848 [0x20]: C0x0123.0x1.0
0x3846b4…384848 [0x21]: C0x0123.0x2.0
0x3846b4…384848 [0x22]: C0x0123.0x3.0
0x3846b4…384848 [0x23]: C0x0124.0x0.0
0x3846b4…384848 [0x24]: C0x0124.0x1.0
0x3846b4…384848 [0x25]: C0x0124.0x2.0
0x3846b4…384848 [0x26]: C0x0124.0x3.0
0x3846b4…384848 [0x27]: C0x0125.0x0.0
0x3846b4…384848 [0x28]: C0x0125.0x1.0
0x3846b4…384848 [0x29]: C0x0125.0x2.0
0x3846b4…384848 ]
0x3846b4…384848 }
0x384848…3849dc Dummy {f00=0x011b, f01=0x0190, f02=» 2 P IDENT SYSLCO REL 11.0 81-01-26 870105041100 P : ( P =3,CHANGE OF CONDITIONAL ASSEMBLY B P PRR 11.0 80-12-23 n , P =2,A CALLED COBOL PROGRAM CAN CALL AN , P ASSEMBLER PROGRAM,AND FNDTGC USES " P MONITOR BLOCKS AS ST
0x3849dc…384b70 Dummy {f00=0x011b, f01=0x0190, f02=» 80-11-19 P > P********************************************************** P* ` $ P* PHILIPS TERMINAL SYSTEM PTS j P* D P* SYSLCO = SYSTEM LOAD - COBOL APPLICATION CONFIGURATION PART P* ( P* COBOL APPLICATION CONF
0x384b70…384d04 Dummy {f00=0x011b, f01=0x0190, f02=» SYSLCO READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD @ P* WORK-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS & H J P* ITCT ADDRESS & MM-TAB ADDRESS & TID & DYNAMIC-CORE ADDRESSES). F P* SYSLCO THEN MOVES ITSELF TO 'TOP' (LOVE
0x384d04…384e98 Dummy {f00=0x011b, f01=0x0190, f02=»LT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. P* DYNAMIC-CORE : H P* IS, IN CASE OF MMU AND/OR PAGING IN SYSTEM, ALSO ALLOCATED AT V F P* 'BOTTOM' OF MEMORY; ELSE, DYNAMIC-CORE AREAS ARE ALLOCATED ( P* AFTER MONITOR 'OVER'
0x384e98…38502c Dummy {f00=0x011b, f01=0x0190, f02=» t P* * P* ENTRIES AND EXTERNALS * , P* * P P*************************** t P P* LABEL ENTRIES P ENTRY SYSLCO P P* EXTERNAL SUBROUTINES P EXTRN MOVE
0x38502c…3851c0 Dummy {f00=0x011b, f01=0x0190, f02=»RN MOVMMT MOVE MM-TABLE & P EXTRN MMRST RESET MM-TAB ENTRIES P EXTRN MULT J P EXTRN ERROR ^ $ P EXTRN CMPADR COMPARE ADDRESSES r 2 P EXTRN NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 P EXTRN NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK * P
0x3851c0…385354 (1, 941) Dummy {f00=0x011b, f01=0x0190, f02=»TS CONF.DATA l , P EXTRN PUSH STORE REGISTER ON A15-STACK , P EXTRN POB LOAD REGISTER FROM A15-STACK D P t " P* SAVE AND WORK AREA EXTERNALS | " P EXTRN MMTAB WORK-TABLE 1 (MMU 6 P EXTRN TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 4 P EXTRN
0x385354…3854e8 Dummy {f00=0x011b, f01=0x0190, f02=»ODULE p " P EXTRN APPTYP APPLICATION TYPE P EXTRN PSW 4 " P EXTRN INILEN LENGTH OF SYSINI F , P EXTRN LSTPAG DISPL. TO 'ENTRY-POINTER' l P EXTRN MMBEG P EJECT P $ P* SYSTEM CONTROL TABLE EXTERNALS $ P EXTRN SCTSFA START OF FRE
0x3854e8…38567c Dummy {f00=0x011b, f01=0x018e, f02=»P NUMBER OF PAGES P EXTRN SCTPSZ PAGE SIZE P EXTRN SCTMMC =00002 : P EXTRN SCTOPT SYSTEM OPTION X $ P EXTRN SCTPAG PAGE TABLE ADDRESS | 4 P EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE P EXTRN SCTBUG BUGGER ADDRESS , P EXTRN S
0x38567c…385810 Dummy {f00=0x011b, f01=0x018e, f02=» P P* EXTERNAL LABELS 6 P EXTRN SYSLDM START OF MONITOR CONFIGURATION PART & $ P EXTRN PAGQUE PAGE QUEUE POINTER ` * P EXTRN FREQUE START OF MONITOR BLOCKS P EXTRN REL P P* EXTERNAL SUBROUTINES P EXTRN ACTOT QUEUE TASK
0x385810…3859a4 Dummy {f00=0x011b, f01=0x0190, f02=» P* , P EXTRN TTB:SA START OF SAVE AREA IN TTAB . P EXTRN TTB:CB POINTER TO CSEG BASE ADDRESS B , P EXTRN TTB:MT START OF MMU-TABLE IN TTAB t P EJECT P P , P*************************************** , P* CONDITIONAL ASSEMBLY
0x3859a4…385b38 Dummy {f00=0x011b, f01=0x0190, f02=» PAGING z 4 PTEST EQU 0 1=TEST (DEBUG STARTS AT SYSLDX ENTRY) PTESTMM EQU MMUPAG+TEST H P f 2 P********************************************* n 2 P* * 2 P* APCTAB DISPLACEMENTS *
0x385b38…385ccc Dummy {f00=0x011b, f01=0x0190, f02=»************************* | P " P * , PAPLADA EQU 22 APPL.REL.BASE (2 WORDS) =1 2 . PAPLREL EQU 18 NUMBER OF RESIDENT SEGMENTS b , PAPLIOE EQU 0 APPLICATION RESTART ADDRESS 8 PAPLDAD EQU 0 APPLICATION FILE DISC ADDR. (BIT 0-15) 8 PAPLLAC E
0x385ccc…385e60 Dummy {f00=0x011b, f01=0x0190, f02=»CAL ADDR.) f . PAPLMMC EQU 10 APPLICATION MMU START ENTRY ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY D . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT p . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU PAPLSWB EQU 2 APPLICATION SWB * PAPLSTA EQU 16 AP
0x385e60…385ff4 (1, 942) Dummy {f00=0x011b, f01=0x0190, f02=»ROGRAM STRUCTURE: F P* !-----------------------------------------------------! N P* ! SUBROUTINES ! PART 1 d F P* ENTRY ->! * SYSLCO ENTRY * ! F P*
0x385ff4…386188 Dummy {f00=0x011b, f01=0x0190, f02=» F P* ! ! F P* ! SHTAB1: ! N F P* ! -A TABLE OF "NUMBER OF COPIES OF THIS TCL" ! F P* ! IS BUILT AT THE END OF
0x386188…38631c Dummy {f00=0x011b, f01=0x0190, f02=» ! v F P* ! -A TABLE OF "ITCT PROTOTYPE ADDRESSES" ! 0 F P* ! IS BUILT AT THE END OF SHTAB1 ! z F P* ! !
0x38631c…3864b0 Dummy {f00=0x011b, f01=0x0190, f02=» ! X F P* ! IS BUILT AT THE END OF SHTAB2 ! F P* ! ! F P* ! TIDTAB: ! F P* ! -A TABLE
0x3864b0…386644 Dummy {f00=0x011b, f01=0x0190, f02=» ! F P* ! DYNTAB: ! > F P* ! -A TABLE OF "DYNAMIC-CORE ADDRESSES" ! F P* ! IS BUILT AT THE END OF TIDTAB
0x386644…3867d8 Dummy {f00=0x011b, f01=0x018e, f02=»S ! f F P* ! -RELOCATE TCLBLK ADDRESSES ! F P* ! -RELOCATE TCLTAB ADDRESS ! j F P* ! -RELOCATE APPTAB ADDRESS ! F P*
0x3867d8…38696c Dummy {f00=0x011b, f01=0x0190, f02=» F P* ! TO FOLLOW DYNTAB ! F P* ! -CONTINUE IN PART 2 ! N F P* !-----------------------------------------------------! N P* ! SUBROUTINES
0x38696c…386b00 Dummy {f00=0x011b, f01=0x0190, f02=» ! ~ F P* ! BUILD COMMON DATA AREA ! 8 F P* ! -PGTG-DATA ! F P* !
0x386b00…386c94 (1, 943) Dummy {f00=0x011c, f01=0x0190, f02=» ! ` F P* ! ! F P* ! BUILD TASK LOCAL DATA AREAS, ONE PER TCL ! d F P* ! -UPDATE ITCT ! F P* ! -
0x386c94…386e28 Dummy {f00=0x011c, f01=0x0190, f02=» ! -MOVE ITCT ! F P* ! -MOVE PGTL-DATA AREA ! F F P* ! -MOVE STATIC-ZERO AREA ! F P* ! -ALLOCATE DYNAMIC-CORE (INITIATE
0x386e28…386fbc Dummy {f00=0x011c, f01=0x0190, f02=» ! n F P* !-----------------------------------------------------! ( N P* ! SUBROUTINES ! PART 3 r F P* ! R E A L T A !
0x386fbc…387150 Dummy {f00=0x011c, f01=0x0190, f02=» ! X F P* ! -COPY ITCT'S ACCORDING TO SHADOW-TABLE ! F P* ! -UPDATE TID IN ITCT ! F P* ! -COPY PGTL-DATA ! F P* ! -COPY STAT
0x387150…3872e4 Dummy {f00=0x011c, f01=0x0190, f02=» -CONTINUE IN SYSINI ! F P* !-----------------------------------------------------! > P EJECT P**************************** P* COMMON DISPLACEMENTS * P**************************** 0 PAPLTAB
0x3872e4…387478 Dummy {f00=0x011c, f01=0x0190, f02=» EQU 0 LENGTH OF CONFIGURATION DATA , PCONSTA EQU 2 START OF CONFIGURATION DATA , ( PDATEND EQU 34 END OF DDIV PROTOTYPE $ PDYNSTA EQU 52 START OF DYNTAB:S : PFSTADR EQU 20 1:ST FREE ADDRESS WHEN ALLOCATING BUFFER , PFSTPAG EQU 22 1:ST FREE PA
0x387478…38760c Dummy {f00=0x011c, f01=0x0190, f02=»QU 30 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2:ND MMU TABLE WORK AREA $ ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA R $ PM:REL EQU 16 RELOCATIN CONSTANT ~ , PSYSBUF EQU 28 START OF TEMPORARY BUFFER ( PSWBFSA EQU 4 SWB-FILE START ADDRESS & PSWBFSE
0x38760c…3877a0 Dummy {f00=0x011c, f01=0x0190, f02=»APPABLE WORK BLOCK FLAG $ PCOM01 EQU 40 COMMON WORK AREA 1 $ PCOM02 EQU 42 COMMON WORK AREA 2 H $ PCOM03 EQU 44 COMMON WORK AREA 3 p $ PCOM04 EQU 50 COMMON WORK AREA 4 P EJECT P************************** P* TABLEN DISPLACEMENTS
0x3877a0…387934 (1, 944) Dummy {f00=0x011c, f01=0x0190, f02=»BLE START ADDRESS z ( PDDIVFR EQU 6 PROT.DDIV FROM ADDRESS " PPLTGCE EQU 8 END OF ICB-PLTGC F & PPLTGCL EQU 10 LENGTH OF ICB-PLTGC l $ PPLTGCS EQU 12 START OF ICB-PLTGC PDYNTAD EQU 14 DYNTAB ADDRESS & PAPCTAB EQU 16 APLTAB BLOCK ADDRESS
0x387934…387ac8 Dummy {f00=0x011c, f01=0x0190, f02=» p $ P******************************* 0 PACOSTA EQU 120 CONF.START FOR AN APPLICATION 0 4 PALICOU EQU 112 SAVE AREA FOR APPLICATION COUNTER d ( PAPLTAD EQU 122 APLTAB BLOCK ADDRESS 0 PBASADR EQU 80 BASE ADDRESS FOR DEBUG PURPOSE ( PDDIVTO EQU 1
0x387ac8…387c5c Dummy {f00=0x011c, f01=0x0190, f02=» 0=BUILD DDIV TO START OF FREE AREA $ PINTENT EQU 62 INTERPRETER ENTRY 0 . PLCOTO EQU 64 ADR. WHERE TO MOVE SYSLCO TO X PMMREL1 EQU 66 & PMONEND EQU 84 MONITOR END ADDRESS PMOVLE1 EQU 86 LENGTH TO MOVE " PMOVLEN EQU 68 LENGTTH TO M
0x387c5c…387df0 Dummy {f00=0x011c, f01=0x0190, f02=»A FOR RELOCATION VALUE p & PSAEFA1 EQU 116 SCTEFA BIT 0-5 PAGE ! 0 PSAEFA2 EQU 118 SCTEFA BIT 4-15 DISP. IN PAGE ! H " PSAVE01 EQU 88 TEMP. SAVE AREA ! | 4 PSAVE02 EQU 96 TEMP. SAVE AREA OUTSIDE SUBRUTINES ! 6 PSAVE03 EQU 126 TEMP. SAVE AREA OUTSIDE SUBRUTI
0x387df0…387f84 Dummy {f00=0x011c, f01=0x0190, f02=»SAVE07 EQU 110 TEMP. SAVE AREA INSIDE LOKAL SUBRUTINES ! , PSAVITC EQU 94 SAVE AREA FOR ITCT ADDRESS " > ( PSAVTID EQU 104 SAVE AREA FOR TASK ID " n : PSHADST EQU 74 START OF SHADOW TABLES FOR CURRENT APPL. " " PSHTLEN EQU 76 SHTAB1-3 LENGTH " 0 PSTASK EQU
0x387f84…388118 Dummy {f00=0x011c, f01=0x0190, f02=»LITC EQU 102 SAVE AREA FOR TCL ITCT ADDRESS " & PTGCREL EQU 90 ICB-PLTGC RELOCATION # 4 $ PPGTGAD EQU 92 PGTG DATA ADDRESS # ^ : PLSTENT EQU 98 LAST USED ENTRY IN MMTAB,UPTO COMMON DAT # P EJECT # P ***************** # P ***************** #
0x388118…3882ac Dummy {f00=0x011c, f01=0x0190, f02=»********************* # $ P* CONFIGURATION FILE (CONFIG) * $ $ P******************************* $ F P $ n P* TASK DEFINITION BLOCK: $ z PTDBBT EQU 0 1A BLOCK TYPE $ ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS $ , PTDBID EQU TDBNT+2 6A TASK ID STA
0x3882ac…388440 Dummy {f00=0x011c, f01=0x0190, f02=»ERMINAL DEVICE CLASSES $ p P* % & PTDBFST EQU TDBNC+2 FIRST TERM DEF % ( $ PTDC EQU 7 TERMINAL DEVICE CLASS % R PTLC EQU 7 LINE CONNECTION % z ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH % P* % * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD % P* %
0x388440…3885d4 (1, 945) Dummy {f00=0x011c, f01=0x0190, f02=» EQU CDBNC+2 FIRST SDC-RECORD % P* & & P* & 0 & P* USER WORK BLOCK TYPE DEF. BLOCK & : PUDBBT EQU 0 1A BLOCK TYPE & d , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES & P* & ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD & PNAMUWB EQU 3 NAME OF UWB &
0x3885d4…388768 Dummy {f00=0x011c, f01=0x0190, f02=»********************************* & , P** ** ' * , P** THE FOLLOWING EQUATES ARE ** ' Z , P** DISPLACEMENTS WITHIN EACH ** ' , P** TABLE ** ' , P**
0x388768…3888fc Dummy {f00=0x011c, f01=0x0190, f02=»* ' P** ** ( P*************** ( " P ( : PSGAPPT EQU 0 APPTAB POINTER ( B " PSGPGMT EQU 2 PROGRAM TYPE 'CO' ( f PSGCOML EQU 6 COMMON LENGTH ( PSGPAGL EQU 8 PAGE LENGTH ( $ PSGNOSG EQU 10 NUMBER OF SEGMENTS ( P ( P**********
0x3888fc…388a90 Dummy {f00=0x011c, f01=0x0190, f02=»B POINTER ( ~ " PAPPINT EQU 2 INTERPRETER ENTRY ) & PAPPTGL EQU 4 PGTG-DATA-AREA LENGTH ) 8 " PAPPCOM EQU 6 COMMON PSEG PNTR ) b 2 PI:RSTE EQU 8 DISPL IN APPTAB, INT REENTER ADR ) P ) P*************** ) P** ** ) P** TCLTAB ** )
0x388a90…388c24 Dummy {f00=0x011c, f01=0x0190, f02=»ERS ) n PTCLNAM EQU 0 TCL NAME * PTCLBLK EQU 4 TCLBLK POINTER * * P * N P*************** * V P** ** * n P** TCLBLK ** * P** ** * P*************** * P * PTCLSTK EQU 0 STACK-SIZE * ( PTCLTGC EQU 2 ICB-P
0x388c24…388db8 Dummy {f00=0x011c, f01=0x0190, f02=» ** * P** ICB-PLTGC ** + P** ** + . P*************** + F P + ^ * PTGCSZD EQU 4 STATIC-ZERO DISP IN TLTAB + f $ PTGCSZL EQU 6 STATIC-ZERO LENGTH + " PTGCCAL EQU 8 CALL-BASE-ADR TAB + . PTGCCTS EQU 0 NBR OF ENTRIES IN CALL TA
0x388db8…388f4c Dummy {f00=0x011c, f01=0x0190, f02=» ** + P*************** , P , * PITCCOM EQU 0 PGTG-DATA-ADR , 2 PITCTGC EQU 2 ICB-PLTGC-PNTR , T " PITCGLL EQU 4 PGTL-DATA-LENGTH , x PITCGLA EQU 6 PGTL-DATA-ADR , & PITCCSB EQU 10 CURRENT SEGMENT BASE , PITCTID EQU 12 TASK-ID , ( P
0x388f4c…3890e0 Dummy {f00=0x011c, f01=0x0190, f02=» , f , PITCDCD EQU 22 " ,DDI-POOL-BASE - PITCSPL EQU 26 SPL-PBS-PNTR - 8 PITCTLT EQU 34 TLTAB - Z ( PITCTLS EQU 0 NBR OF ENTRIES IN TLTAB - v PITCTLE EQU 2 TLTAB ENTRY - P - P*************** - P** ** - P** SPL-PBS *
0x3890e0…389274 (1, 946) Dummy {f00=0x011c, f01=0x0190, f02=»K-USED - t & PSPLSTS EQU 4 " ,STACK-SIZE . * PSPLPRN EQU 6 " ,PROCEDURE-NAME . 8 * PSPLCPB EQU 12 CURRENT-PROCEDURE-BLOCK . f & PSPLDIS EQU 14 DISPLAY(16 POINTERS) . PSPLG1S EQU 46 GLOBAL1-SAVE . PSPLG2S EQU 48 GLOBAL2-SAVE . PSPLG3S
0x389274…389408 Dummy {f00=0x011c, f01=0x018e, f02=»RUNTIME-WORK-AREA(30 BYTES) . PSPLSTA EQU 88 STACK-AREA / $ P EJECT / D P**************** / R P* SOP-HANDLING * / j P**************** / PSOP EQU /2E DEVICE ADDRESS / P / P LAMP CODE MEANING / P --------- ------- / PLMP1 EQU
0x389408…38959c Dummy {f00=0x011c, f01=0x0190, f02=» PLMP5 EQU /40 TID ERROR 0 " PLMP6 EQU /20 UWB OR SWB ERROR 0 " " PLMP7 EQU /10 MM-TABLE OVERFLOW 0 H PLMP8 EQU 8 0 n PLMP9 EQU 4 0 PLMP10 EQU 2 0 PLMP11 EQU 1 0 PNOBLK EQU /B NO BLOCKS =2 0 P 0 P 0 P********************* 0
0x38959c…389730 Dummy {f00=0x011c, f01=0x0190, f02=»QU /FFFF PROGRAMMER DEFINED ENTRY POINT 0 D PSPLSIZ EQU SPLSTA+STKMAX DEFAULT SPL STACK-SIZE + PBS-BLOCK SIZE 1 0 $ PCOBID EQU 2 COBOL IDENTIFICATION 1 x ( PSEGREC EQU 6 RECORD LENGTH IN SEGTAB 1 8 PNUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN SEGTAB 1 P
0x389730…3898c4 Dummy {f00=0x011c, f01=0x0190, f02=»C INTERRUPT ADDRESS 1 $ PRTCDA EQU /1B RTC DEVICE ADDRESS 2 : PTABLEN EQU 20 LENGTH OF EACH APL.TABLE IN SCRATCH-PAD 2 D . PACBLEN EQU 26 APPL.CONTROL BLOCK LENGTH =1 2 P EJECT 2 F P***************************************************************** 2
0x3898c4…389a58 Dummy {f00=0x011c, f01=0x0190, f02=» * 2 V F P* * 3 F P***************************************************************** 3 Z P 3 P 3 P 3 PCALL FORM 16=/F697,16 3 P IFT MMUPAG=1 3 P EJECT 3
0x389a58…389bec Dummy {f00=0x011c, f01=0x0190, f02=» ** 3 2 P* SYSLOAD PART 1 * 4 4 2 P** ** 4 j 2 P***** ***** 4 2 P********************************************* 4
0x389bec…389d80 Dummy {f00=0x011c, f01=0x0190, f02=» * 4 2 P********************************************* 5 * P 5 ` PLCOSTA EQU * 5 l ( P LDKL A1,START1 GET START OF SYSLCO 5 , P AD A1,M:REL+STKCOM ADD RELOCATION BASE 5 " P ABR A1 GO TO START OF SYSLCO 5 P 5
0x389d80…389f14 (1, 947) Dummy {f00=0x011d, f01=0x0190, f02=» 5 j * P** -USED IN THIS PART ONLY ** 6 * P************************************* 6 6 P EJECT 6 d 2 P* B U I L D T * 6 r 2 P* * 6 2 P* BUILD ONE PART OF TIDTAB FOR CURRENT
0x389f14…38a0a8 Dummy {f00=0x011d, f01=0x0190, f02=»T ADDRESS * 6 2 P* A3=TID * 7 & 2 P* A4=NUMBER OF COPIES * 7 2 P* A6=POINTER IN SHTAB1 * 7 2 P* A8=LENGTH OF SHTAB1 * 7 2 P*
0x38a0a8…38a23c Dummy {f00=0x011d, f01=0x0190, f02=» * 7 j 2 P* OUTPUT: A7=FIRST FREE ENTRY AFTER TIDTAB * 8 2 P* SHADST=START OF SHADOW TABLES FOR * 8 F 2 P* CURRENT APPLICATION * 8 | 2 P* * 8 2 P* WORK REGISTERS : A1-A8
0x38a23c…38a3d0 Dummy {f00=0x011d, f01=0x0190, f02=» * 8 2 P********************************************** 9 0 PBUILDT EQU * 9 f 6 P LDR* A2,A6 HAVE TASKS ALREADY BEEN CONF FOR THIS 9 z P TCL 9 P RF(NZ) BUI100 YES! 9 & P ES A3,ITCTID,A1 SAVE TID IN ITCT 9 8 P
0x38a3d0…38a564 Dummy {f00=0x011d, f01=0x0190, f02=»COUNTER 9 z 6 P LDR A5,A6 GET POINTER TO CURRENT ENTRY IN SHATB1 : PBUI200 EQU * : J $ P ADR* A2,A5 ADD NUMBER OF TASKS : ^ & P SUK A5,2 DECREASE SHTAB1 POINTER : , P CW A5,SHADST+STKEND ALL TASKS COUNTED? : P RB(NE) BUI200 NO! : 6 P* LOAD REGISTE
0x38a564…38a6f8 Dummy {f00=0x011d, f01=0x0190, f02=» : p P ADR A5,A8 ADD SHTAB1 LENGTH ; P ADR A5,A8 ADD SHTAB2 LENGTH ; , P ADR A5,A8 ADD SHTAB3 LENGTH ; P 0 P ADRS A4,A5 UPDATE NUMBER OF TASKS IN TIDTAB ; t * P ADK A5,2 POINT AT FIRST TID IN TIDTAB ; " P SLL A2,1 2*(NUMBER OF TASKS) ; * P ADR A5,A2 A
0x38a6f8…38a88c Dummy {f00=0x011d, f01=0x0190, f02=»A6 GET POINTER TO SHTAB1 ENTRY OF CURRENT ; P TCL < 2 0 P ADK A1,2 ENTRY IN SHTAB1 AFTER CURRENT TCL < @ " P SUR A2,A2 CLEAR TASK COUNTER < t P LDR A7,A8 GET SHTAB1 LENGTH < P SUR A7,A1 < @ P AD A7,SHADST+STKEND LENGTH OF SHTAB1 IN BYTES AFTER CUR
0x38a88c…38aa20 Dummy {f00=0x011d, f01=0x0190, f02=»INTER < t P SUK A7,2 ALL TASKS COUNTED? = P RB(NZ) BUI300 NO! = 2 , P* MAKE SPACE IN TIDTAB FOR CURRENT TASKS = L PBUI350 EQU * = | 4 P LDR A7,A5 LOAD START-ENTRY OF CURRENT TASKS IN = P TIDTAB = , P ADR A7,A2 ADD 2*(NUMBER OF TASKS AFTER =
0x38aa20…38abb4 (1, 948) Dummy {f00=0x011d, f01=0x0190, f02=»WR A7,A5 ARE CURRENT TASKS LAST IN TIDTAB = P RF(L) BUI500 YES! > 2 PBUI400 EQU * > L & P LDR* A1,A7 GET TASK ID IN TIDTAB > ` . P ADR A7,A4 NEW ENTRY IN TIDTAB FOR TASK ID > * P STR A1,A7 STORE TASK ID IN NEW ENTRY > & P SUR A7,A4 GET OLD ENTRY IN TI
0x38abb4…38ad48 Dummy {f00=0x011d, f01=0x0190, f02=»H FIRST FREE ENTRY AFTER TIDTAB > z @ P* AND ADD NUMBER OF CURRENT TASKS IN CURRENT ENTRY OF SHTAB1 ? ( PBUI500 EQU * ? l 4 P LDR A7,A5 LOAD START ENTRY OF CURRENT TASKS IN ? P TIDTAB ? 0 P ADR A7,A2 ADD NUMBER OF BYTES AFTER CURRENT ? " P ADR A7,A2
0x38ad48…38aedc Dummy {f00=0x011d, f01=0x0190, f02=»MBER OF CURRENT TASKS,FOR ? ~ P CURRENT TCL IN SHTAB1 @ " & P* PUT CURRENT TASK ID:S IN TIDTAB @ B 0 P LD A1,SHADST+STKEND GET MONITOR END ADDRESS @ l P ADR A1,A8 ADD SHTAB1 LENGTH @ P ADR A1,A8 ADD SHTAB2 LENGTH @ $ P ADR A1,A8 TIDTAB START ADDRESS
0x38aedc…38b070 Dummy {f00=0x011d, f01=0x0190, f02=»6,A5 ALL TID:S OF UPPER PART IN TIDTAB @ P SHECKED? A . P RF(NE) BUI800 NO! A B $ P ADR A6,A4 FIRST TIDTAB ENTRY OF A P ADR A6,A4 LOWER PART A PBUI800 EQU * A 0 P CWR A6,A7 ALL TID:S OF LOWER PART IN TIDTAB A P SHECKED? A P RF(E) BUI
0x38b070…38b204 Dummy {f00=0x011d, f01=0x0190, f02=»ROR A PBUI900 EQU * B " P ADK A6,2 NEXT ENTRY IN TIDTAB B P RB BUI700 B F PBUI950 EQU * B X P STR A3,A5 PUT TID IN TIDTAB B l , P ADK A5,2 ADJUST UPPER PART END ADDRESS B P ADK A3,1 GENERATE NEXT TID B 0 P SUK A4,1 HAVE ALL CURRENT TID:S BEE
0x38b204…38b398 Dummy {f00=0x011d, f01=0x0190, f02=» * B . P* FIND START-ADR, END-ADR, LENGTH OF * C $ . P* ICB-PLTGC BLOCK * C V . P* * C . P* INPUT:A10=POINTER TO CURRENT APPL * C . P* SAVE AREA IN SCH
0x38b398…38b52c Dummy {f00=0x011d, f01=0x0190, f02=»S= START ADR OF ICB-PLTGC * C . P* PLTGCE= END ADR OF ICB-PLTGC * D $ . P* PLTGCL= LENGTH OF ICB-PLTGC * D V . P* WORKREGS: A1-A7,A9,A11 * D . P* WORKAREA:USES MONITOR BLOCKS AS STACK * D . P*
0x38b52c…38b6c0 Dummy {f00=0x011d, f01=0x0190, f02=» * P LD A7,FREQUE GET MONITOR BLOCK ADDR. E P LDR* A2,A1 SHTAB1 LENGTH E 2 P ADR A1,A2 SHTAB2 ADDRESS E T PLIMTG0 EQU * E v P SUK A2,2 E P RF(Z) LIMTG5 ALL DONE E P ADK A1,2 STEP SHTAB2 E P LDR* A3,A1 ADR TO ITCT E 6 P EL A3,ITCTGC,A3
0x38b6c0…38b854 (1, 949) Dummy {f00=0x011d, f01=0x0190, f02=»LTGC'S RELATED E l P TO THIS CLASS F P RB LIMTG0 NEXT TCL F . P EJECT F J P* F X $ P* UPDATE LIMITS FOR ICB-PLTGC'S F b $ P* RELATED TO ONE TERMINAL-CLASS F P* F PLIMTG2 EQU * F P CALL LIMUPD UPDATE LIMITS F * P ELR A4,A3 GET FIRST W
0x38b854…38b9e8 Dummy {f00=0x011d, f01=0x0190, f02=»CALL-TABLE ENTRIES F t PLIMTG3 EQU * G $ P RF(Z) LIMTG4 NO ENTRIES (LEFT) G . , P ST A4,2,A7 SAVE NBR.OF ENTRIES ON STACK G V , P ST A3,4,A7 SAVE ENTRY ADDRESS ON STACK G ( P LDR* A7,A7 ADJUST STACK POINTER =2 G * P RF(NZ) LIMT35 MORE BLOCKS AVILABLE =2
0x38b9e8…38bb7c Dummy {f00=0x011d, f01=0x018e, f02=»4,1 *2 TABLE LENGTH G P ADR A4,A3 ADD BASE H . P ADK A4,TGCCAL ADD CALL-TABLE DISPLACEMENT H 8 , P ELR A3,A4 GET ICB-PLTGC ADDRESS CALLED H j * P ELR A4,A3 GET THAT FIRST WORD CONTENT H $ P SRL A4,8 ONLY FIRST BYTE VALID H P SUK A4,/60 FIRST TIME ?
0x38bb7c…38bd10 Dummy {f00=0x011d, f01=0x018e, f02=» H j P RB(P) LIMTG3 ENTRIES LEFT I P SUK A5,1 ADJUST LEVEL I * , P RF(N) LIMTGX END OF THIS TERMINAL CLASS I H " P SUK A7,6 ADJUST STACK-POINTER I x $ P LD A4,2,A7 NBR.OF ENTRIES LEFT I P LD A3,4,A7 ENTRY ADDRESS I P RB LIMTG4 CONTINUE I PLIMT
0x38bd10…38bea4 Dummy {f00=0x011d, f01=0x0190, f02=» P ADR A4,A3 ADD BASE J P ADK A4,10 ADD TABLE DISPL J " P ST A4,PLTGCE,A10 SAVE END ADR J B ( P SU A4,PLTGCS,A10 -(MINUS) START ADR J h " P ST A4,PLTGCL,A10 SAVE LENGTH J PLIMTGX EQU * J P RTN A14 J P EJECT J P* J P* UPDATE ICB-PLTGC
0x38bea4…38c038 Dummy {f00=0x011d, f01=0x0190, f02=»S,A10 GET CURRENT START ADR J P CALL CMPADR CHECK ADDRESSES K $ & P RF(NL) LIMUP1 OLD START ADR VALID K H ( P ST A3,PLTGCS,A10 SET NEW START ADR K r PLIMUP1 EQU * K * P LD A9,PLTGCE,A10 GET CURRENT END ADR K P CALL CMPADR CHECK ADDRESSES K $ P RF(
0x38c038…38c1cc Dummy {f00=0x011d, f01=0x0190, f02=» R E L O C * K ( P* * L $ ( P* RELOCATE AN ADDRESS * L P ( P* * L | ( P* INPUT: A3 ADDRESS POINTER * L ( P* A6 RELOCATION INCREMENT * L ( P* WORK:
0x38c1cc…38c360 Dummy {f00=0x011d, f01=0x0190, f02=»EGISTER L t P ELR A10,A3 GET ADDRESS M P ADR A10,A6 RELOCATE IT M 0 $ P ESR A10,A3 RESTORE NEW ADDRESS M P * P LD A10,SAVE05+STKEND RELOAD REGISTER M x P RTN A14 M P EJECT M 2 P* L E N C O U * M 2 P*
0x38c360…38c4f4 (1, 950) Dummy {f00=0x011d, f01=0x0190, f02=» * M f 2 P* * N 2 P* INPUT : A11=CONFIGURATION START * N B 2 P* SHADST=START OF SHADOW TABLES FOR * N x 2 P* CURRENT APPLICATION * N 2 P*
0x38c4f4…38c688 Dummy {f00=0x011d, f01=0x0190, f02=»SHADST=START OF SHADOW TABLES FOR * N 2 P* CURRENT APPLICATION * O , 2 P* * O b 2 P* WORK REGISTERS: A1,A3-A5 * O 2 P* * O 2 P* WO
0x38c688…38c81c Dummy {f00=0x011d, f01=0x0190, f02=» * O p 2 P* * P 2 P* SUBRUTINES: NXTBLK * P L 2 P* * P 2 P********************************************** P PLENCOU EQU * P & P LDK A
0x38c81c…38c9b0 Dummy {f00=0x011d, f01=0x0190, f02=»LE P 6 P* SHECK IF CURRENT TCL NAME ALREADY HAS APEARED IN Q 4 P* CONFIGURATION FILE , AND IF SO DON'T INCREMENT Q D 6 P* SHTAB1 LENGTH AND PUT CURRENT TCL NAME IN TEMPO- Q | P* RARY TABLE Q PLEN100 EQU * Q P LC A3,TDBMC+4,A11 Q P SLL A3,8 Q 0
0x38c9b0…38cb44 Dummy {f00=0x011d, f01=0x0190, f02=» TEMPORARY TABLE Q P LDR* A4,A1 FIRST ENTRY=0? R P RF(Z) LEN300 YES! R : PLEN200 EQU * R T * P CWR A4,A3 TCL NAME IN TEMPORARY TABLE R h P RF(E) LEN400 YES! R , P ADK A1,2 NEXT ENTRY IN TEMPORARY TABLE R P LDR* A4,A1 ENTRY=0? R P RB(NZ) LEN2
0x38cb44…38ccd8 Dummy {f00=0x011d, f01=0x0190, f02=»RY TABLE R , P ADK A1,2 NEXT ENTRY IN TEMPORARY TABLE S P CMR A1 CLEAR IT S @ 8 P* COUNT TOTAL NUMBER OF TASKS AND GET START OF NEXT S X P* TASK DEF. BLOCK S PLEN400 EQU * S ( P LC A4,TDBNT+1,A11 NBR OF COPIES /2 S P SRC A4,4 S & P LC A4,T
0x38ccd8…38ce6c Dummy {f00=0x011d, f01=0x0190, f02=» LEN500 NO COPY , TRY NEXT BLOCK S ( P ADR A6,A4 COUNT TOTAL NBR OF TASKS T ( PLEN500 EQU * T T $ P CALL NXTBLK NEXT CONFIG.-BLOCK T h " P CCK A2,'TT' TASK DEF. BLOCK? T & P RB(E) LEN100 NEXT TASK DEF. BLOCK T P RTN A14 T P EJECT T P T . P*
0x38ce6c…38d000 Dummy {f00=0x011d, f01=0x018e, f02=» * T j . P* * U . P****************************************** U > P U p P U x P U PSTART1 EQU * U PSYSLCO EQU * U P* U P* INIT A15 STACK U P* U P LD A15,SCTSTB U P SUKL A15,4
0x38d000…38d194 (1, 951) Dummy {f00=0x011e, f01=0x0190, f02=» P V " P LD A2,SCTBUG DEBUGGER ADDRESS V P LD A13,M:REL+STKCOM V 2 & P ADKL A13,TEST1 SET RETURN ADDRESS V N ( P ABR(NZ) A2 JUMP IF DEBUG IN SYSTEM V x P V PTEST1 EQU * V " P LDR A8,P GET PROGRAM-POINTER V * P LDKL A5,REL+2 GET START OF RELOCA
0x38d194…38d328 Dummy {f00=0x011e, f01=0x018e, f02=»****************** V P W P XIF W " P IFT MMUPAG=1 W . P W D P* W L $ P* CLEAR SCRATCH-PAD AREA W V P* W ~ 0 P LDKL A1,STKEND A1=START OF SCRATCH-PAD AREA W P LDKL A2,STKMOV W ( P SUK A2,2 A2=END OF SCRATCH-PAD AREA W PSYA10 EQ
0x38d328…38d4bc Dummy {f00=0x011e, f01=0x0190, f02=» W v P RB SYA10 X P* X . P* INITIATE REGISTERS AND VARIABLES X $ P* X V PSYA20 EQU * X ` 2 P LD A1,FYSPAG+STKCOM GET END OF FREE AREA PAGE X t $ P ST A1,SAEFA1+STKEND INIT SAEFA1 X 4 P LD A1,LSTADR+STKCOM GET END OF FREE AREA DISP. X $
0x38d4bc…38d650 Dummy {f00=0x011e, f01=0x0190, f02=»AREA X f P IN SCRATCH-PAD Y 4 P LD A1,SCTSFA START ADR.TO SHTAB'S OF 1:ST APPL. Y & 8 P ST A1,SHADST+STKEND SAVE START OF 1:ST SHADOW-TABLE Y ^ P CM PDDIV+STKEND CLEAR FLAG Y P* Y P* GET APPLICATION Y P* Y PSYA100 EQU * Y 6 P L
0x38d650…38d7e4 Dummy {f00=0x011e, f01=0x0190, f02=» TYPE Y p 4 P LD A2,APPLNO+STKCOM ANY COBOL APPL. TO CONFIG.? Z P RF(NZ) SYA102 YES! Z F $ P LDKL A1,LCOEND SYSLCO END ADDR. Z b P AD A1,M:REL+STKCOM RELOCATE Z P ABR A1 LEAVE SYSLCO Z PSYA102 EQU * Z . P LDKL A2,SYA178 NO MORE APPL OF THIS TYPE
0x38d7e4…38d978 Dummy {f00=0x011e, f01=0x018e, f02=»A1,APCTAB,A10 SAVE APLTAB BLOCK ADDRESS Z ( P LD A2,APLLAC,A1 GET SEGTAB ADDRESS [ 0 P ST A2,SEGTAD,A10 SAVE [ P EJECT [ z P [ , P* READ CONFIG FILE AND BUILD SHADOWTABLE [ P [ P EL* A3,APLLAC,A1 APPTAB ADR [ 4 P EL A2,I:RSTE,A3 GET
0x38d978…38db0c Dummy {f00=0x011e, f01=0x0190, f02=» [ v P LDR A4,A2 " P ADKL A4,4 ADR TO TCLBLK PNTR P ST A4,TCLPNT+STKEND SAVE @ P LC A2,TDBBT,A11 BLOCK TYPE b & P CCK A2,'TT' TASK DEFINITION BLOCK P RF(NE) SYA120 NO P CALL LENCOU P LDR A5,A7 SHTAB1 LENGTH * 1 P ADR A
0x38db0c…38dca0 Dummy {f00=0x011e, f01=0x0190, f02=»0 NOTHING TO CONFIGURATE : P ST A6,NOCOPS+STKEND SAVE NBR OF RUNNING TASKS/RUNTIME ] P* ] ^ * P LD A11,SHADST+STKEND MONITOR END ADR ] h P ADR A11,A5 ] P ADR A11,A6 ] P ADR A11,A6 ] & P ADKL A11,2 NEW START OF FREE AREA ] P LDKL A9,LCO
0x38dca0…38de34 (1, 952) Dummy {f00=0x011e, f01=0x0190, f02=» LDKL A1,LMP3 MEMORY OVERFLOW ] P CALL ERROR ^ & PSYA115 EQU * ^ : P SUR A8,A8 ^ N PZERO EQU * ^ ` P SUKL A11,2 NEXT ^ r P STR A8,A11 CLEAR WORD ^ $ P CW A11,SHADST+STKEND ALL DONE ? ^ P RB(NE) ZERO NO ^ < P ST* A7,SHADST+STKEND STORE LENG
0x38de34…38dfc8 Dummy {f00=0x011e, f01=0x0190, f02=»E FROM CONF. ^ r ( P CCK A3,'TT' TASK DEFINITION BLOCK ? _ P RF(E) SYA125 YES _ @ PSYA120 EQU * _ Z P LDK A1,LMP4 NO _ n P CALL ERROR _ PSYA125 EQU * _ 0 P LD A2,TCLPNT+STKEND ADR. TO TCLBLK POINTER _ P LC A3,TDBMC+4,A11 TCL-ID _ P SLL
0x38dfc8…38e15c Dummy {f00=0x011e, f01=0x0190, f02=» _ b P* ` PSYA130 EQU * ` P SUK A7,1 COUNT NBR OF TCL'S ` & $ P RF(NN) SYA135 N=END OF TCLBLK'S ` J ( P LDK A1,LMP5 TID IN CONF NOT IN APPL ` r P CALL ERROR ` PSYA135 EQU * ` " P EL A6,-2,A2 TCL-ID IN TCLBLK ` P CWR A3,A6 FOUND ? ` P R
0x38e15c…38e2f0 Dummy {f00=0x011e, f01=0x0190, f02=»KEND ` P ADR A6,A8 START OF SHTAB2 a P ADR A6,A8 START OF SHTAB3 a . PSYA145 EQU * a P P SUK A6,2 STEP SHTAB2 a d P LD A3,SHADST+STKEND a P ADR A3,A8 a P CWR A6,A3 END OF SHTAB2 ? a P RF(E) SYA150 YES a " P LDR* A1,A6 ITCT ADR IN SHTA
0x38e2f0…38e484 Dummy {f00=0x011e, f01=0x0190, f02=» P RF SYA155 YES b PSYA150 EQU * b " P ADK A6,2 NEXT ENTRY IN SHTAB2 b . P LDR* A3,A6 b T " P RB(NZ) SYA150 ENTRY NOT FREE b h P ELR A3,A2 GET TCLBLK-ADR b ( P EL A1,TCLTCT,A3 ITCT ADR IN TCLBLK b ( P STR A1,A6 STORE ITCT ADR IN SHTAB2 b P
0x38e484…38e618 Dummy {f00=0x011e, f01=0x0190, f02=»NT,A11 NBR OF COPIES / 1 b P SLC A4,12 c * P SRL A4,8 BINARY VALUE (NBR OF COPIES) c 2 P LDR A4,A4 NBR OF COPIES c ` P RF(Z) SYA170 c PSYA160 EQU * c P LC A3,TDBID+4,A11 TID c P SLL A3,8 c P LC A3,TDBID+5,A11 TID c . P CALL BUILDT BUI
0x38e618…38e7ac Dummy {f00=0x011e, f01=0x0190, f02=» SYA125 YES c 4 P LD A1,NOCOPS+STKEND TOTAL NBR OF RUNNING TASKS d P SLL A1,1 NBR OF BYTES USED d L P ADK A1,2 ADD LENGTH WORD d p $ P STR A1,A7 STORE LENGTH IN TABLE d & P ST A7,DYNTAD,A10 SAVE TABLE START d ( P ADR A7,A1 UPDATE "FIRST FREE WORD"
0x38e7ac…38e940 Dummy {f00=0x011e, f01=0x0190, f02=» P* e * P* PREPARE FOR NEXT APPLICATION e P* e < PSYA175 EQU * e F 4 P LD A2,SHADST+STKEND GET START OF SHADOW TABLES e Z , P ST A2,SHADOW,A10 SAVE IN APPL.SAVE AREA e . P ADKL A10,TABLEN UPDATE SAVE AREA POINTER e . P ST A7,SHADST+STKEND
0x38e940…38ead4 (1, 953) Dummy {f00=0x011e, f01=0x0190, f02=»IONS e r PSYA178 EQU * f P EJECT f P f . $ P* GET START OF SYSLCO AFTER MOVE f 6 P f ^ . P ADK A7,1 TO-ADDRESS (AFTER SHADOW-TABLES) f j P ANKL A7,/FFFE EVEN ADDRESS f P f P* CALCULATE RELOCATION f P f & P LDKL A2,PART2 GET START O
0x38ead4…38ec68 Dummy {f00=0x011e, f01=0x018e, f02=»STKEND SAVE NEW RELOCATION TEMPORARY f , P* CREATE SYSLCO,SYSINI & DDIV MM-TABLE * g , P g " P LDR A2,A7 TO-ADDRESS (SYSLCO) g d P ANKL A2,/F000 FIRST PAGE g , P ST A2,MMREL1+STKEND SAVE PHYSICAL PAGE g " P SRL A2,2 SHIFT FOR MM-PAGING g P LDKL
0x38ec68…38edfc Dummy {f00=0x011e, f01=0x0190, f02=» g j P ADKL A11,2 NEXT ENTRY h P ADKL A2,/400 PAGE INCREMENT h & P SUK A3,1 ALL? h J P RB(NZ) SYA179 NO! h ` ( P ANKL A7,/FFF GET DISPLACEM. IN PAGE h z 2 P ST A7,LCOTO+STKEND SAVE (LOGICAL) TO-ADDRESS h & P LDKL A3,PART2 GET START OF PART2 h , P A
0x38edfc…38ef90 Dummy {f00=0x011e, f01=0x0190, f02=»NGTH OF SYSINI h x , P ST A2,MOVLE1+STKEND SAVE LENGTH TO MOVE i ( P ADR A7,A2 START OF DDIV AFTER MOVE i F . P ST A7,DDIVTO+STKEND SAVE NEW DDIV ADDRESS i r $ P* CALCULATE DDIV FROM-ADDRESS * i ( P CM APPLNO+STKCOM RESET NBR OF APPL. i 2 P LDKL A10,STKEND
0x38ef90…38f124 Dummy {f00=0x011e, f01=0x0190, f02=»F(Z) OUT01 NO! i P j P LD A2,APLLAC,A1 GET SEGTAB j P ELR A9,A2 APPTAB ADR j B & P EL A9,APPCOM,A9 COMMON-PSEG-PNTR j ` ( P EL A3,SGNOSG,A2 NUMBER OF SEGMENTS j P LDR A1,A2 SAVE SEGTAB ADDR. j . P LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH j
0x38f124…38f2b8 Dummy {f00=0x011e, f01=0x0190, f02=» * P LD A6,DDIVTO+STKEND GET DDIV TO ADDR. k " P SUR A6,A1 RELOCATION FOR DDIV k 2 2 P ST A6,SAVE01+STKEND SAVE RELOCATION INCREMENT k X P LDKL A6,/FFFF k , P ST A6,PLTGCS,A10 INIT. START OF PLTGC'S k & P CALL LIMTGC FIND ICB-PLTGC LIMITS k 2 P LD A6,SAV
0x38f2b8…38f44c Dummy {f00=0x011e, f01=0x0190, f02=»R,A10 ADR TO APPTAB k P ELR A1,A1 ADR TO TCLTAB l P ELR A2,A1 NBR OF TCL'S l < PRELIT1 EQU * l " P SUK A2,1 ADJUST NBR OF TCL'S l p & P RF(N) RELITX ALL ITCT'S RELOCATED l P ADK A1,4 TCLBLK ADR POINTER l P ELR A3,A1 TCLBLK ADR l & P ADK A
0x38f44c…38f5e0 Dummy {f00=0x011e, f01=0x0190, f02=»L RELOC RELOCATE PGTL-DATA-ADR l $ P ADK A3,ITCTLT-ITCGLA TLTAB ADR m & & P ELR A4,A3 NBR OF ENTRIES IN TLTAB m N PRELIT2 EQU * m x " P SUK A4,1 ADJUST LOOP-COUNTER m ( P RB(N) RELIT1 ALL ENTRIES RELOCATED m & P ADK A3,ITCTLE POINT AT NEXT ENTRY m P
0x38f5e0…38f774 (1, 954) Dummy {f00=0x011e, f01=0x0190, f02=» * m P* n P* RELOCATE TCLBLK'S n P* n 0 PRELTCB EQU * n : P LD A1,DDIVFR,A10 APPTAB ADR n N P ELR A1,A1 TCLTAB ADR n r P ELR A2,A1 NBR OF TCL'S n PRELTB1 EQU * n " P SUK A2,1 ADJUST NBR OF TCL'S n . P RF(N) RELTBX RELOCATION OF TC
0x38f774…38f908 Dummy {f00=0x011e, f01=0x0190, f02=»GC-MAIN POINTER n t P ADK A3,TCLTCT-TCLTGC o & P CALL RELOC RELOCATE ITCT POINTER o 6 P RB RELTB1 NEXT TCLBLK o ` PRELTBX EQU * o ~ P* o P* RELOCATE TCLTAB o P* o PRELTCT EQU * o P LD A1,DDIVFR,A10 APPTAB ADR o P ELR A3,A1 TCLTA
0x38f908…38fa9c Dummy {f00=0x011e, f01=0x0190, f02=» DONE o n P ADK A3,4 TCLBLK ADR POINTER p ( P CALL RELOC RELOCATE TCLBLK POINTER p 2 " P RB RELTC1 NEXT TCLBLK POINTER p ^ PRELTCX EQU * p P* p P* RELOCATE APPTAB p P* p PRELAPP EQU * p P LD A3,DDIVFR,A10 APPTAB ADR p $ P CALL RELO
0x38fa9c…38fc30 Dummy {f00=0x011e, f01=0x0190, f02=» $ P LD* A1,SHADOW,A10 SHTAB LENGTH q " P LDR A2,A1 SAVE SHTAB2 LENGTH q , P AD A1,SHADOW,A10 SHTAB2 ADR q R PRELSH1 EQU * q v " P SUK A2,2 ADJUST SHTAB2 LENGTH q , P RF(Z) RELSHX RELOCATION OF SHTAB2 DONE q P ADK A1,2 POINT AT ITCT ADR q " P ADR
0x38fc30…38fdc4 Dummy {f00=0x011e, f01=0x0190, f02=»HECK IF MORE APPL. q POUT01 EQU * r P r . 6 P LD A5,RELOCA+STKEND GET NEW RELOCATION INCREMENT r 6 4 P ADS A5,M:REL+STKCOM AND ADJUST RELOCATION BASE r p P r P* CONTINUE IN PART 2 * r P r 0 P LD A2,LCOTO+STKEND GET TO-ADDRESS (SYSLCO) r
0x38fdc4…38ff58 Dummy {f00=0x011e, f01=0x0190, f02=» r p 0 P LDKL A7,START2 GET EXECUTION START ADDRESS s , P AD A7,M:REL+STKCOM ADD RELOCATION BASE s < . P LD A3,MOVLE1+STKEND SYSLCO+SYSINI LENGTH s l & P LDKL A1,PART2 GET START OF PART2 s , P AD A1,M:REL+STKCOM ADD RELOCATION BASE s & P SU A1,RELOCA+ST
0x38ff58…3900ec Dummy {f00=0x011e, f01=0x0190, f02=»INPUT TO ROUTINE IN STACK IS s P* A1 = FROM ADDR. t $ P* A2 = TO ADDR. t > P* A3 = LENGTH t V P* A7 = RESTART ADDR. t l P* t $ P ABL STKMOV JUMP TO MOVE-ROUTINE t P EJECT t P t 6 P************************************************* t
0x3900ec…390280 Dummy {f00=0x011e, f01=0x0190, f02=» ** t 6 P************************************************* u , P u f 6 P* BUILD COMMON AND TASKCLASS DATA AREAS. * u n 6 P* BUILD TASKDATA PROTOTYPE AREA * u 6 P*
0x390280…390414 (1, 955) Dummy {f00=0x011f, f01=0x0190, f02=»********************** u z 0 P*** *** v 0 P** S U B R O U T I N E S ** v R 0 P******************************************** v P v P v P EJECT v , P* M O V C O M * v
0x390414…3905a8 Dummy {f00=0x011f, f01=0x0190, f02=» * v l , P*************************************** w P w < PMOVCOM EQU * w D P CALL FNDCOM ICB-PGTG ADR w X $ P LD A3,DDIVTO+STKEND APPTAB ADR w z & P EL A3,APPTGL,A3 PGTG-DATA LENGTH w , P CALL CALLMO ALLOCATE AND MOVE PGTG-DATA w 4 P ST A2,PGTGA
0x3905a8…39073c Dummy {f00=0x011f, f01=0x0190, f02=» F N D C O M * w $ P* * x $ P* FIND PGTG-DATA * x H $ P* * x p $ P* EXIT : A1 PGTG-DATA ADR * x $ P******************************** x P x PFNDCOM EQU * x ( P EL*
0x39073c…3908d0 Dummy {f00=0x011f, f01=0x0190, f02=»A x v P RTN A14 y P EJECT y . P* * y ( . P* R E L T G C * y Z . P* * y . P* RELOCATE ICB-PLTGC CALL-TAB * y . P*
0x3908d0…390a64 Dummy {f00=0x011f, f01=0x018e, f02=»PLTGCL= ICB-PLTGC BLOCK * y . P* LENGTH * z ( . P* A6 = RELOCATION INCREMENT * z Z . P* A10 = APPL.SAVE AREA POINTER* z . P* * z . P************************
0x390a64…390bf8 Dummy {f00=0x011f, f01=0x0190, f02=» z l P ADR A2,A3 ICB-PLTGC END ADR { PRELTG1 EQU * { , P LDR A1,A3 { @ $ P LDR A11,A1 GET ADR FOR COMPARE { R " P LDR A9,A2 GET ADR FOR COMPARE { z , P CALL CMPADR ALL ICB-PLTGC'S RELOCATED ? { P RF(NL) RELTGX YES { * P ELR A3,A1 GET FIRST WORD IN I
0x390bf8…390d8c Dummy {f00=0x011f, f01=0x0190, f02=»15 { | " P SLC A3,8 NEW FIRST WORD VALUE | P ESR A3,A1 RESTORE IT | 0 PRELTG2 EQU * | N $ P EL A3,TGCCAL,A1 NBR OF ENTRIES | b P SLL A3,1 *2 NBR OF BYTES | P ADR A3,A1 ADD BASE | 4 P ADK A3,10 POINTER TO 1:ST WORD AFTER LAST ENTRY | P LDR A4,
0x390d8c…390f20 Dummy {f00=0x011f, f01=0x0190, f02=»-PLTGC ? | t 4 P RB(NL) RELTG1 YES,CONTINUE WITH NEXT ICB-PLTGC } $ P ELR A11,A4 GET ADR TO RELOCATE } H P ADR A11,A6 RELOCATE } p P ELR A1,A11 } P SRL A1,8 } P SUK A1,/60 ICB-PLTGC ? } $ P RF(N) RELTG4 NO, ASM-SUBROUTINE } P SUK A1,1 }
0x390f20…3910b4 (1, 956) Dummy {f00=0x011f, f01=0x0190, f02=»R } r " P RB RELTG3 NEXT CALL-TAB-ENTRY ~ PRELTGX EQU * ~ 0 P RTN A14 ~ D P EJECT ~ T & P* F N D B L K * ~ b & P* * ~ & P* FIND A TCLBLK CORRESPONDING * ~ & P* TO AN ITCT ADDRESS * ~ &
0x3910b4…391248 Dummy {f00=0x011f, f01=0x0190, f02=»: A1 TCLBLK-PNTR ADR * ~ & P* IN TLCTAB * " & P* A3 TCLBLK ADR * L & P* WORK : A2,A5 * v & P********************************** P PFNDBLK EQU * $ P LD A1,DDIVTO+STKEND TCLTAB ADR
0x391248…3913dc Dummy {f00=0x011f, f01=0x018e, f02=»CKS LEFT ~ P LDK A1,LMP4 P CALL ERROR $ PFNDBL1 EQU * 8 P ADK A1,4 TCLBLK-PNTR ADR L P ELR A3,A1 TCLBLK-PNTR n " P EL A5,TCLTCT,A3 ITCT FOUND ? P CWR A7,A5 & P RB(NE) FNDBL0 NO,TRY NEXT TCLBLK P RTN A14 YES,RETURN
0x3913dc…391570 Dummy {f00=0x011f, f01=0x0190, f02=» P P* LOAD BASE ADDRESS * P********************* * P* A5=START-ADDRESS H " P* SAVE01=RELOCATION INCREMENT b P* SAVE03=DDIV TO-ADDRESS P* SAVE04=DDIV FROM ADDRESS $ P* SAVE05=LENGTH OF REAL ITCTTAB P PSTART2 EQU
0x391570…391704 Dummy {f00=0x011f, f01=0x018e, f02=»E REGISTERS AND VARIABLES P* " 2 P LDKL A10,STKEND START OF 1:ST APPL. SAVE AREA , . P LD A1,APCTAB,A10 FIRST APLTAB BLOCK ADDR. b 4 P LD A2,APPLNO+STKCOM GET NUMBER OF APPLICATIONS & P ST A2,ALICOU+STKEND INIT. ALICOU P RF PRT200 P
0x391704…391898 Dummy {f00=0x011f, f01=0x0190, f02=» ( P LD A1,APCTAB,A10 NEXT APLTAB BLOCK * P LD A2,ALICOU+STKEND GET APPL.COUNTER 0 $ P SUK A2,1 DECREMENT APPL.COUNTER ^ * P ST A2,ALICOU+STKEND SAVE APPL.COUNTER & P RF(NZ) PRT200 IF ANY APPL IS LEFT P DON'T LEAVE SYSLCO YET 2 P LD A2,S
0x391898…391a2c Dummy {f00=0x011f, f01=0x0190, f02=»REA DISPL. j 2 P ST A2,LSTADR+STKCOM SET LSTADR TO THAT DISPL. * P LDKL A2,LCOEND GET SYSLCO END ADDRESS H , P AD A2,M:REL+STKCOM ADD RELOCATION BASE v P ABR A2 LEAVE SYSLCO P PPRT200 EQU * P* . P* GET MMU-TABLE FROM TTAB OF CUR
0x391a2c…391bc0 Dummy {f00=0x011f, f01=0x0190, f02=» P TLR A2 LOAD MMU-TABLE * P TS MMTAB,A13 STORE MMU-TABLE IN MMTAB " P* P 4 P* CHECK IF END OF FREE AREA STARTS WHERE Z 4 P* PROT. DDIV FOR THIS APPLICATION STARTS " P* AND IF SO RESET FLAG P* & P LD A2,APLLAC,
0x391bc0…391d54 (1, 957) Dummy {f00=0x011f, f01=0x0190, f02=» t $ P EL A9,APPCOM,A9 START OF APPL. & P ST A9,APLLAC,A1 STORE NEW APLLAC 0 P LDR A3,A2 SEGTAB ADDR. Z P SRL A3,11 MMU-ENTRY NUMBER z " P ADKL A3,MMTAB MMU-ENTRY ADDR. P ADR A3,A13 RELOCATE * P LDR* A3,A3 GET CONTENTS IN MMU-ENTRY
0x391d54…391ee8 Dummy {f00=0x011f, f01=0x0190, f02=»FFF DISPLACEMENT P CM PDDIV+STKEND RESET FLAG 4 P CW A3,SAEFA2+STKEND SAME DISPLACEMENT IN PAGE? < P RF(E) PRT220 YES! t P* 2 P* CALCULATE LENGTH OF PROT. DDIV+SEGTAB P* PPRT205 EQU * P LDR A3,A2 SEGTAB ADDR.
0x391ee8…39207c Dummy {f00=0x011f, f01=0x0190, f02=» SEGTAB ADDR. P ADKL A2,/1000 NEW PAGE , P ANKL A2,/F000 DISPLACEMENT IN PAGE = 0 6 0 P CWR A2,A9 HIGHER ADDR.THEN START OF APPL.? f P RF(NG) PRT210 NO! P LDR A2,A3 SEGTAB ADDR. PPRT210 EQU * & P LDR A3,A9 APPLICATION START ADD
0x39207c…392210 Dummy {f00=0x011f, f01=0x0190, f02=» P* P* STORE MMTABLE ADDRESSES P* 0 ( P LDKL A1,MMDDIV GET MMU-TABLE ADDR. : P ADR A1,A13 RELOCATE f P ST A1,MMTO+STKCOM SAVE & P LDKL A1,MMTAB GET MMU-TABLE ADDR. P ADR A1,A13 RELOCATE P ST A1,MMFROM+STKCOM SAVE
0x392210…3923a4 Dummy {f00=0x011f, f01=0x0190, f02=»A9 GET APPLICATION START (=END OF DDIV P SUR A3,A1 => LENGTH . P CALL XMOVE J P* UPDATE FSTPAG AND FSTADR ^ , P LD A1,APCTAB,A10 GET APLTAB BLOCK ADDR. $ P LD A5,APLLAC,A1 DDIV END ADDR. , P SU A5,DDIVFR,A10 END-START=DDIV LENGTH & P
0x3923a4…392538 Dummy {f00=0x011f, f01=0x0190, f02=»ESSING v . P ADKL A6,MMDDIV ADD RELATIVE START ADDRESS P ADR A6,A13 RELOCATE @ & P LDR* A6,A6 GET MM-TABLE CONTENTS P ST A6,FSTPAG+STKCOM SAVE " P ANKL A5,/FFF GET DISPLACEMENT " P ST A5,FSTADR+STKCOM AND SAVE , P SUKL A9,10 RESERVE
0x392538…3926cc Dummy {f00=0x011f, f01=0x0190, f02=»ALL CMPADR P RF(G) SYA202 OK! P RF(L) SYA201 NOT OK! , P LDR A9,A5 J P LD A11,SAEFA2+STKEND " P CALL CMPADR MEMORY OVERFLOW? z P RF(NL) SYA202 NO! PSYA201 EQU * P LDKL A1,LMP3 P CALL ERROR PSYA202 EQU *
0x3926cc…392860 Dummy {f00=0x011f, f01=0x018e, f02=» & P LDKL A2,MMTAB-2 GET TABLE ADDRESS P ADR A2,A13 RELOCATE . " P ADR A1,A2 APPTAB START ENTRY J P LDKL A4,/FC00 p PSYA205 CWR A1,A2 ALL? P RF(E) SYA207 YES! , P STR A4,A1 REPLACE ENTRY WITH PAGE ERROR P SUK A1,2 P RB SYA2
0x392860…3929f4 (1, 958) Dummy {f00=0x011f, f01=0x0190, f02=» | P ST A5,MMFROM+STKCOM P ANKL A9,/FFFE EVEN ADDRESS $ . P ST A9,LSTADR+STKCOM SAVE END OF FREE AREA H " P LDKL A3,MMTAB CURRENT MM-TAB z P ADR A3,A13 P CALL MMENT P ST A9,TTAB+STKCOM , P ST A1,FYSPAG+STKCOM SAVE PHYSICAL PAG
0x3929f4…392b88 Dummy {f00=0x011f, f01=0x018e, f02=»GCL,A10 ICB-PLTGC LENGTH & P LD A6,LSTADR+STKCOM LAST FREE ADR . P SU A6,PLTGCE,A10 GET DISPL FOR RELOCATION J P CALL CALLMO MOVE | P TL* MMTO+STKCOM 6 P ST A2,PLTGCS,A10 ICB-PLTGCS NEW (FINAL) START ADR . P CALL RELTGC RELOCATE ICB-PLTGC
0x392b88…392d1c Dummy {f00=0x011f, f01=0x0190, f02=» P LDR A6,A4 SHTAB1 ADR P ADR A4,A5 SHTAB2 ADR " * P SUK A5,2 ADJUST FOR TABLE LENGTH WORD @ " P LDKL A3,MMTAB CURRENT MM-TAB n P ADR A3,A13 $ P CALL MMENT FIND LAST USED ENTRY . P ST A3,LSTENT+STKEND SAVE LAST USED ENTRY P*
0x392d1c…392eb0 Dummy {f00=0x011f, f01=0x0190, f02=»T A8,TTAB+STKCOM < P LD A7,LSTENT+STKEND LAST USED MM-ENTRY FOR COMMON DATA $ P ST A7,LSTPAG,A8 SAVE FOR MOVING X P ST A5,TCLCOU+STKEND P ADK A4,2 SHTAB2 ENTRY " P LDR A8,A4 GET SHTAB2 POINTER P TL* MMFROM+STKCOM P LDR* A7,A8 IT
0x392eb0…393044 Dummy {f00=0x011f, f01=0x0190, f02=»A7 SAVE IN ITCT " P ES A5,ITCGLL,A7 SAVE IN ITCT , P LD A5,TCLCOU+STKEND NBR OF ITCT'S LEFT > P RF(Z) TCLEXT NONE n P LD A1,TGCREL+STKEND P EL A3,ITCTGC,A7 P ADR A3,A1 P LDR A1,A7 4 P ES A3,ITCTGC,A1 RELOCATE ICB-PLTGC-MAIN
0x393044…3931d8 Dummy {f00=0x011f, f01=0x0190, f02=»B ADDRESS v ( P EL A3,APPCOM,A3 COMMON PROGRAM SEGM 2 P ES A3,ITCCSB,A1 SAVE IN CURRENT SEGMENT BASE > , P EL A3,ITCTLT,A7 NBR OF ENTRIES IN TLTAB t & P SLL A3,1 NBR OF BYTES IN TLTAB * P ADK A3,2 ADJUST FOR TLTAB LENGTH WORD P ADK A3,ITCT
0x3931d8…39336c Dummy {f00=0x011f, f01=0x0190, f02=»W ITCT ADR t , P CALL MVPGTL ALLOCATE AND MOVE PGTL-DATA 6 P ST A10,SAVE01+STKEND SAVE APPL SAVE AREA POINTER B . P CALL MVSTAT ALLOCATE AND MOVE STATIC-ZERO | 4 P LD A10,SAVE01+STKEND GET APPL SAVE AREA POINTER P LDK A2,2 4 P ST A2,DYNDIS+ST
0x39336c…393500 Dummy {f00=0x011f, f01=0x0190, f02=»YN INITIATE DYNAMIC CORE 6 P ST A10,SAVE01+STKEND SAVE APPL SAVE AREA POINTER " P CALL GETTAB GET TTAB ADDRESS Z $ P CALL MOVMMT MOVE MMTAB TO TTAB 4 P LD A10,SAVE01+STKEND GET APPL SAVE AREA POINTER . P CM LSTPAG,A9 CLEAR SEGMENT BLOCK POINTE
0x393500…393694 (1, 959) Dummy {f00=0x0120, f01=0x0190, f02=»B ADDRESS > P LD A1,LSTENT+STKEND GET LAST USED ENTRY,UPTO COMMON DATA ( P CALL MMRST RESET UNUSED MM-ENTRIES T P LD A5,TCLCOU+STKEND " P SUK A5,2 COUNT NBR OF ITCT'S P RB(P) TCLLOP ITCT'S LEFT PTCLEXT EQU * P EJECT PSY
0x393694…393828 Dummy {f00=0x0120, f01=0x018e, f02=»8,A5 SAVE P ANKL A5,/F000 P SRL A5,11 ( & P ADKL A5,MMDDIV MMU-TABLE ADDRESS : P ADR A5,A13 RELOCATE d ( P LDR* A5,A5 GET PAGE FROM MMU-TABLE 0 P ST A5,FSTPAG+STKCOM SET FSTPAG TO THAT PAGE $ P ANKL A8,/FFF GET DISPL. IN PAGE 2 P
0x393828…3939bc Dummy {f00=0x0120, f01=0x0190, f02=» , P AD A5,M:REL+STKCOM ADD RELOCATION BASE P ABR A5 4 P EJECT D P R P Z 4 P************************************************ b 4 P*** *** 4 P** SYSLCO PART 3 ** 4
0x3939bc…393b50 Dummy {f00=0x0120, f01=0x0190, f02=» ITCT'S. COPY ITCT'S ACCORDING TO* 4 P* SHADOW TABLE * * 4 P* * b 4 P************************************************ P PPART3 EQU * P P EJECT " P****
0x393b50…393ce4 Dummy {f00=0x0120, f01=0x0190, f02=»E T T A B ** ~ 2 P** ** $ 2 P** ** Z 2 P** FIND TTAB ADDRESS ** 2 P** ** 2 P** INPUT :A
0x393ce4…393e78 Dummy {f00=0x0120, f01=0x0190, f02=» ** h 2 P** WORKREGS:A3,A4,A10 ** 2 P********************************************** D P z PGETTAB EQU * P LDR* A10,A8 ITCT-ADDRESS P EL A1,ITCTID,A10 GET TID & PGETTTB EQU * ENTRY. INPUT: A1=TID $ P LD
0x393e78…39400c Dummy {f00=0x0120, f01=0x0190, f02=» * P LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) P LDK A1,LMP5 TID ERROR 2 P CALL ERROR P " PGETT20 LDR* A2,A4 TTAB-ADDRESS d P CW A1,TTBTID,A2 TID EQUAL ? P RB(NE) GETT10 NO! 0 P CM TTB:PP,A2 RESET PENDING POINTER IN TTAB P ST A2,TTAB+
0x39400c…3941a0 Dummy {f00=0x0120, f01=0x0190, f02=»LCPB-2 POINT AT SPL-PBS STACK-BASE ~ $ P ST A3,TTB:SA+28,A2 SAVE IN TTAB * P RTN A14 R P EJECT b P p P x 8 P** Q U E J O B ** 8 P** ** 8 P**
0x3941a0…394334 (1, 960) Dummy {f00=0x0120, f01=0x0190, f02=» ** p 8 P** ** 8 P** INPUT: A10=ITCT-ADDRESS ** X 8 P** A2=TTAB-ADDRESS ** 8 P***************************************************
0x394334…3944c8 Dummy {f00=0x0120, f01=0x0190, f02=»:REL+STKCOM RELOCATE P STR A3,A15 PUT ON STACK * P LDKL A3,/00C0 SET LEVEL 0 AND ENABLE < P STR A3,A15 PSW j P CF A15,SAVE8 SAVE 8 REGS $ P LDK A7,0 CLEAR ABORT INDICATOR P LDR A5,A2 GET TTAB-ADDRESS * P LD A2,INTENT+STKEND INT
0x3944c8…39465c Dummy {f00=0x0120, f01=0x0190, f02=» G E N C O P * P* * " P*************************** F PGENCOP EQU * j P LDR A3,A1 SAVE A1 ~ < P LD A1,LSTENT+STKEND LAST USED MM-ENTRY FOR COMMON DATA P LDKL A2,MMTAB P SUKL A2,MMBEG P ADR
0x39465c…3947f0 Dummy {f00=0x0120, f01=0x0190, f02=» j P LDR A1,A3 RESTORE A1 P ST A5,SAVE05+STKEND SAVE A5 & P ST A6,SAVE06+STKEND SAVE A6 J P CALL FNDTID FIND TID n * P LD A1,TCLITC+STKEND TCL ITCT ADDRESS $ P LDK A3,ITCTLT TLTAB START DISPL , P EL A2,ITCTLT,A1 NBR OF ENTRIES IN TLT
0x3947f0…394984 Dummy {f00=0x0120, f01=0x0190, f02=» COPY ITCT P TL* MMTO+STKCOM & P ST A2,SAVITC+STKEND SAVE ITCT ADR * $ P LD A3,SAVTID+STKEND GET NEW TID T " P ES A3,ITCTID,A2 STORE IN ITCT | P LDR A3,A2 ITCT ADR , P CALL MVPGTL ALLOCATE AND MOVE PGTL-DATA " P LD A3,SAVITC+STKEND ITCT
0x394984…394b18 Dummy {f00=0x0120, f01=0x0190, f02=»AREA POINTER l & P CALL ALLDYN ALLOCATE DYNAMIC CORE & P CALL INIDYN INITIATE DYNAMIC CORE > P LD A1,SAVTID+STKEND TID h P LDR A10,A7 ITCT ADDRESS P CALL GETTTB FIND TTAB ADR P CALL QUEJOB QUEUE THIS TASK " P LD A10,SAVITC+STKEND ITCT
0x394b18…394cac Dummy {f00=0x0120, f01=0x0190, f02=»B-ITCDCD POINT AT CSB IN ITCT " P ST A5,TTB:CB,A2 SAVE IN TTAB & $ P LD A5,SAVE05+STKEND RESTORE A5 L $ P LD A6,SAVE06+STKEND RESTORE A6 t & P CALL MOVMMT MOVE MM-TABLE TO TTAB . P CM LSTPAG,A9 CLEAR SEGMENT BLOCK POINTER " P LD A1,SAVTID+ST
0x394cac…394e40 Dummy {f00=0x0120, f01=0x0190, f02=»ID FOLLOWING "A1" * " P* IN SHTAB4 * " P* * D " P* INPUT : A1=TID * j " P* EXIT : A1=NEW TID * " P* WORK : A2,A3 * " P***************************** P
0x394e40…394fd4 (1, 961) Dummy {f00=0x0120, f01=0x0190, f02=» SHTAB3 ADR P ADR A2,A3 SHTAB4 ADR P LDR* A3,A2 SHTAB4 LEN 2 PFNDTI0 EQU * P P SUK A3,1 FINISHED ? d P RF(NN) FNDTI1 NO P LDK A1,LMP5 YES,TID ERROR P CALL ERROR PFNDTI1 EQU * P ADK A2,2 ADJUST POINTER P CWR
0x394fd4…395168 Dummy {f00=0x0120, f01=0x018e, f02=» RTN A14 P EJECT P , P* I N I D Y N * & , P* * V , P* INPUT : A3 = SPL-PBS ADDRESS * , P* * , P* WORK : A1 - A5
0x395168…3952fc Dummy {f00=0x0120, f01=0x0190, f02=» P LDR A1,A3 SPL-PBS ADDRESS * P LDKL A2,PBSTAB CONSTANT-TABLE ADDRESS & P AD A2,M:REL+STKCOM T PINID10 EQU * p * P LDR* A5,A2 NBR OF COPIES OF THIS WORD * P CWK A5,/FFFF END OF CONSTANT-TABLE ? P RF(E) INID30 YES P LD A4,2,A2 WO
0x3952fc…395490 Dummy {f00=0x0120, f01=0x0190, f02=»XT WORD $ P ESR A4,A1 STORE WORD IN SPL-PBS " P ADK A1,2 STEP SPL-PBS POINTER 8 P RB INID20 NEXT COPY ^ PINID30 EQU * z P LDKL A5,STKMAX STACK-SIZE 0 P ES A5,SPLSTS,A3 STORE IN SPL-PBS.STACK-SIZE ( P LDKL A1,ENTFIN ENTRY FINI (ADDRESS)
0x395490…395624 Dummy {f00=0x0120, f01=0x0190, f02=» $ P ADR A5,A2 + STACK-AREA ADDRESS 0 P ES A5,SPLSTB,A3 STORE IN SPL-PBS.STACK-BASE , P RTN A14 ` P EJECT p P ~ 4 P*********************************************** 4 P** ** 4 P** EACH WORD IN T
0x395624…3957b8 Dummy {f00=0x0120, f01=0x0190, f02=» ** f 4 P** ** 4 P** BYTE1 (COUNTER) = /FF MEANS END OF TABLE ** F 4 P** ** ~ 4 P*********************************************** P PPBSTAB EQU *
0x3957b8…39594c Dummy {f00=0x0120, f01=0x0190, f02=»ATA 3 PROCEDURE-NAME P DATA /2020 & P DATA 20 PGM-DATA UNTIL STACK-BASE 0 P DATA 0 Z P DATA 1 STACK-BASE j 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
0x39594c…395ae0 Dummy {f00=0x0120, f01=0x018e, f02=»CATE DYNAMIC-CORE * $ P* * " $ P* INPUT : A3 ITCT ADDRESS * J $ P* A10 APPL.SAVE AREA * r $ P* POINTER * $ P* EXIT : ITCT IS UPDATED * $ P* WITH DYNAMIC-CORE
0x395ae0…395c74 (1, 962) Dummy {f00=0x0120, f01=0x0190, f02=» PALLDYN EQU * P TL* MMTO+STKCOM P LDR A7,A3 ITCT ADR 0 ( P EL A3,ITCNEP,A3 STACK-SIZE REQUIRED L & P CALL CALLMO ALLOCATE FROM BOTTOM x P TL* MMTO+STKCOM & P EL A3,ITCNEP,A7 STACK-SIZE MOVED $ P ES A2,ITCDCB,A7 SAVE BASE PNTR
0x395c74…395e08 Dummy {f00=0x0120, f01=0x0190, f02=»AVE DDI-POOL-BASE ~ ( P ADK A3,SPLCPB POINT AT SPL-PBS-PNTR & P ES A3,ITCSPL,A7 SAVE SPL-PBS-PNTR F P LD A1,DYNTAD,A10 TABLE ADR p 2 P LD A2,DYNDIS+STKEND GET DYN.CORE TABLE DISPL & P ADR A1,A2 NEXT TABLE ENTRY TO USE P ADK A2,2 COUNT DISP
0x395e08…395f9c Dummy {f00=0x0120, f01=0x0190, f02=»START p * P STR A3,A1 STORE SPL-PBS ADR IN TABLE P RTN A14 < P EJECT L $ P* M V S T A T * Z $ P* * $ P* ALLOCATE AND MOVE STATIC- * $ P* CORE * $ P*
0x395f9c…396130 Dummy {f00=0x0120, f01=0x0190, f02=» * r $ P* WORK : A1-A2,A7-A8,A10 * $ P******************************** 2 P Z PMVSTAT EQU * b , P STR A4,A14 SAVE SHTAB2 POINTER ON STACK v $ P SUKL A14,2 ADJUST STACK-POINTER P LDR A7,A3 ITCT ADR 2 P ADK A3,ITCTGC POINT AT ICB-PL
0x396130…3962c4 Dummy {f00=0x0120, f01=0x018e, f02=»LR A6,A7 NBR OF ENTRIES IN TLTAB PMVSTA1 EQU * ( P SUK A6,1 COUNT < * P RF(NN) MVSTA2 STATIC-ZERO AREAS LEFT T 8 P LD A3,SAVE07+STKEND LOAD ICB-PLTGC-MAIN ADR POINTER ( P SUK A3,ITCTGC MAKE IT ITCT POINTER $ P ADKL A14,2 ADJUST STACK-POINT
0x3962c4…396458 Dummy {f00=0x0120, f01=0x0190, f02=» P ELR A8,A7 STATIC-ZERO ADR P RB(Z) MVSTA1 EMPTY ENTRY & 6 P EL* A3,SAVE07+STKEND LOAD ICB-PLTGC-MAIN ADDRESS H P SUR A10,A10 LEVEL P LDK A1,0 RESET INDICATOR , P LD A2,FREQUE GET MONITOR BLOCK ADR. =2 , P CALL FNDTGC FIND STATIC-Z
0x396458…3965ec Dummy {f00=0x0120, f01=0x0190, f02=»O+STKCOM " P ESR A2,A7 UPDATE TLTAB ENTRY P RB MVSTA1 6 P EJECT H & P* F N D T G C * V & P* * & P* FIND STATIC-ZERO ADR+LENGTH * & P* FOR ONE PROGRAM * & P*
0x3965ec…396780 Dummy {f00=0x0120, f01=0x0190, f02=» * | & P* A10 0 (ZERO) * & P* A12 TLTAB BASE * @ * P* A2 MONITIR BLOCK ADR * =2 j & P* EXIT : A1 STATIC-ZERO ADR * * P* A2 MONITOR BLOCK ADR * =2 & P* A3 STATIC-ZER
0x396780…396914 (1, 963) Dummy {f00=0x0121, f01=0x0190, f02=» * =2 r & P********************************** P : PFNDTGC EQU * B P ELR A1,A3 =2 V P SRL A1,8 =2 l " P SUK A1,/60 COBOL PROGRAM? =2 P RF(Z) FNDT00 YES! =2 $ P LDK A1,0 INDICATE NOT FOUND =2 P RF FNDTG0 RETURN =2
0x396914…396aa8 Dummy {f00=0x0121, f01=0x0190, f02=» LENGTH-WORD v P ELR A1,A1 STATIC-ZERO-ADR P CWR A1,A8 WANTED ? 6 P RF(NE) FNDTG1 NO R , P ADK A3,TGCSZL YES,POINT AT LENGTH WORD l " P ELR A3,A3 STATIC-ZERO-LENGTH PFNDTG0 EQU * P RTN A14 PFNDTG1 EQU * P LDK A1,0 INDI
0x396aa8…396c3c Dummy {f00=0x0121, f01=0x0190, f02=»DK A5,10 DISPL TO TABLE START P LDR A4,A3 ICB-PLTGC ADR & 8 P ADK A4,TGCCAL+TGCCTE ADR TO FIRST ENTRY IN CALL TAB F PFNDTG2 EQU * P LDR A9,A4 TABLE START ADR P LDR A11,A5 TABLE END ADR $ P CALL CMPADR END OF CALL-TABLE ? P RB(NG
0x396c3c…396dd0 Dummy {f00=0x0121, f01=0x0190, f02=»TACK POINTER =2 | * P RF(NZ) FNDTG4 MORE BLOCKS AVILABLE =2 ( P LDKL A1,NOBLK NO BLOCKS AVILABLE =2 F P CALL ERROR =2 r PFNDTG4 EQU * =2 P ELR A3,A4 NEXT LINK P ADKL A10,1 ADJUST LEVEL P CALL FNDTGC NEXT LEVEL & P SUK A2,6
0x396dd0…396f64 Dummy {f00=0x0121, f01=0x0190, f02=»2 TABLE POINTER FROM STACK =2 0 P LD A5,4,A2 TABLE END POINTER FROM STACK =2 & , P ADK A4,TGCCTE POINT TO NEXT TABLE-ENTRY Z P RB FNDTG2 P EJECT ( P* M V P G T L * ( P* * ( P* ALLO
0x396f64…3970f8 Dummy {f00=0x0121, f01=0x0190, f02=»A1 OLD PGTL-DATA ADR * ( P* A2 NEW PGTL-DATA ADR * " ( P* A3 ITCT ADR * N ( P*********************************** z P PMVPGTL EQU * P TL* MMTO+STKCOM " P EL A1,ITCGLA,A2 PGTL-DATA ADR & P EL A3,I
0x3970f8…39728c Dummy {f00=0x0121, f01=0x0190, f02=» r & P ES A2,ITCGLA,A3 NEW PGTL-DATA ADR P RTN A14 2 P EJECT B 4 P************************************************ P 4 P* * 4 P* C A L L M O * 4 P*
0x39728c…397420 Dummy {f00=0x0121, f01=0x0190, f02=» * h 4 P* * 4 P* INPUT: A3=LENGTH TO MOVE * H 4 P* A10=APPL.SAVE AREA POINTER * 4 P* PDDIV=FLAG THAT INDICATES IF DDIV IS * 4 P* GOING TO
0x397420…3975b4 (1, 964) Dummy {f00=0x0121, f01=0x0190, f02=» ` 4 P* * 4 P* OUTPUT: A3=-1 * @ 4 P* PDDIV=1 IF DDIV IS BUILT IN PROT. * x 4 P* DDIV ELSE PDDIV=0 * 4 P* PDDIVL=NEW PDDIVL
0x3975b4…397748 Dummy {f00=0x0121, f01=0x0190, f02=»* * 4 P* WORK REG:A2 * 8 4 P* * p 4 P************************************************ PCALLMO EQU * 0 P LD A2,PDDIV+STKEND
0x397748…3978dc Dummy {f00=0x0121, f01=0x0190, f02=»LEFT IN PROT.DDIV x P RF(NN) CAL100 YES! P* 6 . P* RESET FLAG AND CHANGE FYSPAG AND LSTADR @ " P* TO POINT AT END OF FREE AREA r P* P CM PDDIV+STKEND RESET FLAG 2 P LD A2,SAEFA1+STKEND GET END OF FREE AREA PAGE 0 P ST A2,FYSPA
0x3978dc…397a70 Dummy {f00=0x0121, f01=0x0190, f02=»ADR n PCAL100 EQU * . P ST A2,PDDIVL,A10 LENGTH LEFT IN PROT.DDIV PCAL200 EQU * R P CALL MOVING f P RTN A14 z P EJECT P P PSTART3 EQU * P P PREALTA EQU * $ P LD* A8,SHADOW,A10 SHTAB LENGTH P
0x397a70…397c04 Dummy {f00=0x0121, f01=0x0190, f02=»ADR v $ P ST A8,SAVE02+STKEND SHTAB3 ADR PSYA300 EQU * 4 ( P LD A8,SAVE03+STKEND SHTAB2 POINTER H P ADKL A8,2 NEXT t * P CW A8,SAVE02+STKEND ALL TCL'S DONE ? P RF(E) SYA310 YES , P ST A8,SAVE03+STKEND SAVE SHTAB2 POINTER P ADK
0x397c04…397d98 Dummy {f00=0x0121, f01=0x0190, f02=»ADOW,A10 MAKE IT SHTAB3 POINTER P LDR* A4,A4 ( . P TLR A4 LOAD MM-TABLE INDICATED IN SHTAB3 < . P ST A4,MMFROM+STKCOM SAVE MM-TABLE ADDRESS n 6 P ST A10,SAVE01+STKEND SAVE APPL.SAVE AREA POINTER P CALL GETTAB FIND TTAB ADR ( P ST A10,SAVI
0x397d98…397f2c Dummy {f00=0x0121, f01=0x0190, f02=» | " P ADK A6,22 MAKE IT INT-USABLE 8 P ST A6,TTB:SA+26,A2 SAVE ITCT ADR IN TTAB(SAVE-A13) . 0 P ADKL A6,ITCCSB-ITCDCD POINT AT CSB IN ITCT j " P ST A6,TTB:CB,A2 SAVE IN TTAB $ P LD A1,TTAB+STKCOM TTAB ADDRESS P LD A1,TTBTID,A1 GET TASK-ID
0x397f2c…3980c0 Dummy {f00=0x0121, f01=0x0190, f02=»R OF COPIES ~ P RB(NP) SYA300 NEXT TCL " P CALL GENCOP GENERATE ONE COPY 4 P RB SYA305 NEXT Z P EJECT r P P* ADJUST END OF FREE AREA P PSYA310 EQU * 0 P LD A1,PDDIV+STKEND UPDATE END OF FREE AREA? P RF(NZ) SYA315
0x3980c0…398254 (1, 965) Dummy {f00=0x0121, f01=0x0190, f02=»1,A2 P ST A1,SCTEFA+2 P LD A1,FYSPAG+STKCOM $ P SRL A1,14 @ P ST A1,SCTEFA R . P LD A1,LSTADR+STKCOM GET END OF FREE AREA h P ANKL A1,/FFF & P ST A1,SAEFA2+STKEND UPDATE SAEFA2 " P LD A1,FYSPAG+STKCOM GET PAGE & P ST A1,S
0x398254…3983e8 Dummy {f00=0x0121, f01=0x0190, f02=»RE MORE APPLICATIONS LEFT P* " 4 P LD A10,SAVE01+STKEND GET APPL.SAVE AREA POINTER , $ P LDKL A1,NXTAPP GET JUMP ADDRESS d , P AD A1,M:REL+STKCOM ADD RELOCATION BASE & P ABR A1 CHECK IF MORE APPLICATIONS P P P XIF P IFT M
0x3983e8…39857c Dummy {f00=0x0121, f01=0x0190, f02=» ******* t 2 P** ** 2 P* SYSLOAD PART 1 * P 2 P** ** 2 P***** ***** 2 P**********************
0x39857c…398710 Dummy {f00=0x0121, f01=0x018e, f02=» * j 2 P* * 2 P********************************************* F P | PLCOSTA EQU * ( P LDKL A1,START1 GET START OF SYSLCO , P AD A1,M:REL+STKCOM ADD RELOCATION BASE " P ABR A1 GO TO ST
0x398710…3988a4 Dummy {f00=0x0121, f01=0x0190, f02=» * P** S U B R O U T I N E S ** * P** -USED IN THIS PART ONLY ** 2 * P************************************* ` P EJECT 2 P* B U I L D T * 2 P* * 2 P
0x3988a4…398a38 Dummy {f00=0x0121, f01=0x018e, f02=» * t 2 P* INPUT : A1=ITCT ADDRESS * 2 P* A3=TID * P 2 P* A4=NUMBER OF COPIES * 2 P* A6=POINTER IN SHTAB1 * 2 P* A8=LENGTH OF
0x398a38…398bcc Dummy {f00=0x0121, f01=0x0190, f02=» ^ 2 P* * 2 P* OUTPUT: A7=FIRST FREE ENTRY AFTER TIDTAB * > 2 P* SHADST=START OFSHADOW TABLES FOR * t 4 P* CURRENT APPLICATION * 2 P*
0x398bcc…398d60 Dummy {f00=0x0121, f01=0x018e, f02=»: ERROR * 2 P* * * 2 P********************************************** ` PBUILDT EQU * 6 P LDR* A2,A6 HAVE TASKS ALREADY BEEN CONF FOR THIS P TCL P RF(NZ) BUI100 YES!
0x398d60…398ef4 (1, 966) Dummy {f00=0x0121, f01=0x0190, f02=» t PBUI100 EQU * " P SUR A2,A2 CLEAR TASK COUNTER 6 P LDR A5,A6 GET POINTER TO CURRENT ENTRY IN SHATB1 B PBUI200 EQU * | $ P ADR* A2,A5 ADD NUMBER OF TASKS & P SUK A5,2 DECREASE SHTAB1 POINTER , P CW A5,SHADST+STKEND ALL TASKS COUNTED
0x398ef4…399088 Dummy {f00=0x0121, f01=0x0190, f02=»F CURRENT f $ P* TASKS IN FIRST ENTRY OF TIDTAB P ADR A5,A8 ADD SHTAB1 LENGTH : P ADR A5,A8 ADD SHTAB2 LENGTH ^ P ADR A5,A8 ADD SHTAB3 LENGTH 0 P ADRS A4,A5 UPDATE NUMBER OF TASKS IN TIDTAB P ADK A5,2 NEXT TIDTAB ENTRY " P SLL A2,1
0x399088…39921c Dummy {f00=0x0121, f01=0x0190, f02=» LIE AFTER CURRENT TASKS 6 P LDR A1,A6 GET POINTER TO SHTAB1 ENTRY OF CURRENT P TCL Z 0 P ADK A1,2 ENTRY IN SHTAB1 AFTER CURRENT TCL h " P SUR A2,A2 CLEAR TASK COUNTER P LDR A7,A8 GET SHTAB1 LENGTH P SUR A7,A1 @ P AD A7,SHADST+ST
0x39921c…3993b0 Dummy {f00=0x0121, f01=0x0190, f02=»DR* A2,A1 ADD NUMBER OF TASKS & P ADK A1,2 INCREASE SHTAB1 POINTER & P SUK A7,2 ALL TASKS COUNTED? P P RB(Z) BUI300 NO! t , P* MAKE SPACE IN TIDTAB FOR CURRENT TASKS PBUI350 EQU * 4 P LDR A7,A5 LOAD START-ENTRY OF CURRENT TASKS IN
0x3993b0…399544 Dummy {f00=0x0121, f01=0x0190, f02=»IN TIDTAB n * P SLL A4,1 2*(NUMBER OF CURRENT TASKS) 0 P CWR A7,A5 ARE CURRENT TASKS LAST IN TIDTAB @ P RF(L) BUI500 YES! t PBUI400 EQU * & P LDR* A1,A7 GET TASK ID IN TIDTAB . P ADR A7,A4 NEW ENTRY IN TIDTAB FOR TASK ID * P STR A1,A7
0x399544…3996d8 Dummy {f00=0x0121, f01=0x018e, f02=»ID MOVED? | P RB(NL) BUI400 NO! : P* LOAD REGISTER A7 WITH FIRST FREE ENTRY AFTER TIDTAB , @ P* AND ADD NUMBER OF CURRENT TASKS IN CURRENT ENTRY OF SHTAB1 j PBUI500 EQU * 4 P LDR A7,A5 LOAD START ENTRY OF CURRENT TASKS IN P TIDTAB
0x3996d8…39986c Dummy {f00=0x0121, f01=0x0190, f02=» & P SRL A4,1 (2*(NUMBER OF TASKS))/2 0 P ADRS A4,A6 ADD NUMBER OF CURRENT TASKS,FOR . P CURRENT TCL IN SHTAB1 b & P* PUT CURRENT TASK ID:S IN TIDTAB 2 P LD A1,SHADST+STKEND GET SHTAB1 START ADDRESS P ADR A1,A8 ADD SHTAB1 LENGTH P A
0x39986c…399a00 Dummy {f00=0x0121, f01=0x0190, f02=» A6,A1 GET TIDTAB START ADDRESS PBUI700 EQU * ( 0 P CWR A6,A5 ALL TID:S IN UPPER PART IN TIDTAB < P SHECKED? p P RF(NE) BUI800 NO! $ P ADR A6,A4 FIRST TIDTAB ENTRY OF P ADR A6,A4 LOWER PART PBUI800 EQU * 0 P CWR A6,A7 ALL T
0x399a00…399b94 (1, 967) Dummy {f00=0x0122, f01=0x018e, f02=»BUI900 NO! $ P LDKL A1,LMP4 YES! FORMAT ERROR P CALL ERROR : PBUI900 EQU * N " P ADK A6,2 NEXT ENTRY IN TIDTAB b P RB BUI700 PBUI950 EQU * P STR A3,A5 PUT TID IN TIDTAB , P ADK A5,2 ADJUST UPPER PART END ADDRESS P ADK A
0x399b94…399d28 Dummy {f00=0x0122, f01=0x0190, f02=» . P* L I M T G C * . P* * 6 . P* FIND START-ADR, END-ADR, LENGTH OF * h . P* ICB-PLTGC BLOCK * . P* * . P* INPUT:A1
0x399d28…399ebc Dummy {f00=0x0122, f01=0x0190, f02=» . P* FOR CURRENT APPLICATION * . P* OUTPUT:PLTGCS= START ADR OF ICB-PLTGC * 6 . P* PLTGCE= END ADR OF ICB-PLTGC * h . P* PLTGCL= LENGTH OF ICB-PLTGC * . P* WORKREGS: A1-A7,A9,A11 * . P* WORKAREA
0x399ebc…39a050 Dummy {f00=0x0122, f01=0x0190, f02=» P PLIMTGC EQU * $ P LD A1,SHADOW,A10 SHTAB1 ADDRESS * P LD A7,FREQUE GET MONITOR BLOCK ADDR. H P LDR* A2,A1 SHTAB1 LENGTH v P ADR A1,A2 SHTAB2 ADDRESS PLIMTG0 EQU * P SUK A2,2 P RF(Z) LIMTG5 ALL DONE P ADK A1,2
0x39a050…39a1e4 Dummy {f00=0x0122, f01=0x0190, f02=» A5,0 SET LEVEL TO 0(ZERO) 6 P CALL LIMTG2 UPDATE LIMITS FOR ICB-PLTGC'S RELATED " P TO THIS CLASS P RB LIMTG0 NEXT TCL t P EJECT P* $ P* UPDATE LIMITS FOR ICB-PLTGC'S $ P* RELATED TO ONE TERMINAL-CLASS P* PLIMTG2
0x39a1e4…39a378 Dummy {f00=0x0122, f01=0x0190, f02=»T h P STR A4,A3 SET INDICATION 2 P LD A4,TGCCAL,A3 GET NBR OF CALL-TABLE ENTRIES , PLIMTG3 EQU * b $ P RF(Z) LIMTG4 NO ENTRIES (LEFT) v , P ST A4,2,A7 SAVE NBR.OF ENTRIES ON STACK * P ST A3,4,A7 SAVE ENTRY ADDRES ON STACK ( P LDR* A7,A7
0x39a378…39a50c Dummy {f00=0x0122, f01=0x0190, f02=»2 PLIMT35 EQU * =2 P ADK A5,1 ADJUST LEVEL " P SLL A4,1 *2 TABLE LENGTH @ P ADR A4,A3 ADD BASE b . P ADK A4,TGCCAL ADD CALL-TABLE DISPLACEMENT ~ , P LDR* A3,A4 GET ICB-PLTGC ADDRESS CALLED , P LDR* A4,A3 GET THAT FIRST WORD CONTENT
0x39a50c…39a6a0 Dummy {f00=0x0122, f01=0x0190, f02=»S LEFT r PLIMTG4 EQU * ( P SUK A4,1 COUNT NBR OF ENTRIES LEFT " P RB(P) LIMTG3 ENTRIES LEFT N P SUK A5,1 ADJUST LEVEL p , P RF(N) LIMTGX END OF THIS TERMINAL CLASS " P SUK A7,6 ADJUST STACK-POINTER $ P LD A4,2,A7 NBR.OF ENTRIES LEFT
0x39a6a0…39a834 (1, 968) Dummy {f00=0x0122, f01=0x018e, f02=»D A4,8,A3 NBR OF CALL-TAB ENTRIES P SLL A4,1 NBR OF BYTES * P ADR A4,A3 ADD BASE H P ADK A4,10 ADD TABLE DISPL d " P ST A4,PLTGCE,A10 SAVE END ADR ( P SU A4,PLTGCS,A10 -(MINUS) START ADR " P ST A4,PLTGCL,A10 SAVE LENGTH PLIMTGX EQU
0x39a834…39a9c8 Dummy {f00=0x0122, f01=0x0190, f02=» PLIMUPD EQU * P LDR A11,A3 ICB-PLTGC ADR , P LD A9,PLTGCS,A10 GET CURRENT START ADR : P CALL CMPADR CHECK ADDRESSES j & P RF(NL) LIMUP1 OLD START ADR VALID ( P ST A3,PLTGCS,A10 SET NEW START ADR PLIMUP1 EQU * * P LD A9,PLTGCE,A1
0x39a9c8…39ab5c Dummy {f00=0x0122, f01=0x0190, f02=»ADR r PLIMUP2 EQU * P RTN A14 P EJECT 0 2 P* L E N C O U * > 2 P* * t 2 P* COUNT LENGTH OF SHTAB1,AND COUNT NUMBER OF * 2 P* TASKS
0x39ab5c…39acf0 Dummy {f00=0x0122, f01=0x0190, f02=»POINTER TO CURRENT APLTAB BLK. * 2 P* * ( 2 P* OUTPUT: A6=TOTAL NUMBER OF TASKS * ^ 2 P* A7=SHTAB1 LENGTH IN BYTES * 2 P* A10=POINTER TO CURRENT APLTAB BLK. * 2 P*
0x39acf0…39ae84 Dummy {f00=0x0122, f01=0x0190, f02=» * l 2 P* WORK TABLE: TEMPORARY TABLE WITH TCL * 2 P* NAMES AFTER START OF FREE * H 2 P* AREA * ~ 2 P* * 2 P* SUBRUTINES: NXTBLK
0x39ae84…39b018 Dummy {f00=0x0122, f01=0x018e, f02=»OU EQU * & P LDK A7,2 TABLE LENGTH-WORD LENGTH P LDK A6,0 TOTAL NBR OF TASKS : 6 P CM* SHADST+STKEND CLEAR FIRST ENTRY OF TEMPORARY ^ P TABLE 6 P* SHECK IF CURRENT TCL NAME ALREADY HAS APEARED IN 4 P* CONFIGURATION FILE , AND IF SO DON'T
0x39b018…39b1ac Dummy {f00=0x0122, f01=0x0190, f02=» | P SLL A3,8 0 P LC A3,TDBMC+5,A11 TCL NAME OF CURRENT TASK P TASK DEF. BLOCK N 2 P LD A1,SHADST+STKEND ADDRESS TO FIRST ENTRY IN h P TEMPORARY TABLE P LDR* A4,A1 FIRST ENTRY=0? P RF(Z) LEN300 YES! PLEN200 EQU * * P
0x39b1ac…39b340 Dummy {f00=0x0122, f01=0x0190, f02=»Y=0? P RB(NZ) LEN200 NO! PLEN300 EQU * & . P ADK A7,2 COUNT NUMBER OF BYTES IN SHTAB1 : & P STR A3,A1 PUT CURRENT TCL NAME IN l P TEMPORARY TABLE , P ADK A1,2 NEXT ENTRY IN TEMPORARY TABLE P CMR A1 CLEAR IT 8 P* COUNT TOTAL NU
0x39b340…39b4d4 (1, 969) Dummy {f00=0x0122, f01=0x0190, f02=»RC A4,4 & P LC A4,TDBNT,A11 NBR OF COPIES /1 P SLC A4,12 : * P SRL A4,8 BINARY VALUE (NBR OF COPIES) L P LDR A4,A4 NBR OF COPIES z * P RF(Z) LEN500 NO COPY , TRY NEXT BLOCK ( P ADR A6,A4 COUNT TOTAL NBR OF TASKS PLEN500 EQU * $ P
0x39b4d4…39b668 Dummy {f00=0x0122, f01=0x0190, f02=» EJECT P . P* S Y S L C O * . P* * H . P* ENTRY FOR COBOL APPLICATION CONFIG * z . P* * . P******************************************
0x39b668…39b7fc Dummy {f00=0x0122, f01=0x0190, f02=»TSTB P SUKL A15,4 P P XIF ( P IFT TEST-MMUPAG=1 =3 4 " P****************************** R P* x P* TEST VERSION (DEBUG) P* P " P LD A2,SCTBUG DEBUGGER ADDRESS P LD A13,M:REL+STKCOM & P ADKL A13,TEST1 SET
0x39b7fc…39b990 Dummy {f00=0x0122, f01=0x0190, f02=»L A5,REL+2 GET START OF RELOCATION P ROUTINE * , P AD A5,M:REL+STKCOM ADD RELOCATION BASE < P CFR A8,A5 l P ~ P* P* " P****************************** P P XIF P IFT MMUPAG=0 P P* $ P* CLE
0x39b990…39bb24 Dummy {f00=0x0122, f01=0x0190, f02=»RATCH-PAD AREA z PSYA10 EQU * P CMR A1 CLEAR MEMORY WORD * " P CWR A1,A2 ALL WORDS CLEARED? L P RF(E) SYA20 YES! r P ADK A1,2 NO! NEXT WORD P RB SYA10 P* . P* INITIATE REGISTERS AND VARIABLES P* PSYA2
0x39bb24…39bcb8 Dummy {f00=0x0122, f01=0x0190, f02=»PAD 4 P LD A1,SCTSFA START ADR.TO SHTAB'S OF 1:ST APPL. 8 P ST A1,SHADST+STKEND SAVE START OF 1:ST SHADOW-TABLE D P CM PDDIV+STKEND CLEAR FLAG P* P* GET APPLICATION P* PSYA100 EQU * 6 P LDKL A1,'CO' LOAD INPUT TO
0x39bcb8…39be4c Dummy {f00=0x0122, f01=0x0190, f02=»O+STKCOM ANY COBOL APPL. TO CONFIG.? P RF(NZ) SYA102 YES! , & P LDKL A1,LCOEND SYSLCO START ADDR. H P AD A1,M:REL+STKCOM RELOCATE r P ABR A1 LEAVE SYSLCO PSYA102 EQU * . P LDKL A2,SYA178 NO MORE APPL OF THIS TYPE P AD A2,M:REL+STK
0x39be4c…39bfe0 Dummy {f00=0x0122, f01=0x018e, f02=»B BLOCK ADDRESS t ( P LD A2,APLLAC,A1 GET SEGTAB ADDRESS P ST A2,SEGTAD,A10 SAVE D P EJECT b P p , P* READ CONFIG FILE AND BUILD SHADOWTABLE | P P LD* A3,APLLAC,A1 APPTAB ADR 4 P LD A2,I:RSTE,A3 GET INTERPRETER RESTART ADD
0x39bfe0…39c174 (1, 970) Dummy {f00=0x0122, f01=0x0190, f02=» " P ADKL A4,4 ADR TO TCLBLK PNTR P ST A4,TCLPNT+STKEND SAVE * P LC A2,TDBBT,A11 BLOCK TYPE L & P CCK A2,'TT' TASK DEFINITION BLOCK p P RF(NE) SYA120 NO P CALL LENCOU P LDR A5,A7 SHTAB1 LENGTH * 1 P ADR A5,A7 * 2 * P ADR A
0x39c174…39c308 Dummy {f00=0x0122, f01=0x0190, f02=»TE n : P ST A6,NOCOPS+STKEND SAVE NBR OF RUNNING TASKS/RUNTIME P* H * P LD A11,SHADST+STKEND START OF SHTAB1 R P ADR A11,A5 P ADR A11,A6 P ADR A11,A6 & P ADKL A11,2 NEW START OF FREE AREA P LDKL A9,LCOSTA $ P AD A9,M:R
0x39c308…39c49c Dummy {f00=0x0122, f01=0x0190, f02=» P CALL ERROR PSYA115 EQU * P SUR A8,A8 , PZERO EQU * > P SUKL A11,2 NEXT P P STR A8,A11 CLEAR WORD h $ P CW A11,SHADST+STKEND ALL DONE ? P RB(NE) ZERO NO < P ST* A7,SHADST+STKEND STORE LENGTH IN TABLE LENGTH WORD P L
0x39c49c…39c630 Dummy {f00=0x0122, f01=0x0190, f02=»ASK DEFINITION BLOCK ? P RF(E) SYA125 YES PSYA120 EQU * 8 P LDK A1,LMP4 NO L P CALL ERROR d PSYA125 EQU * x 0 P LD A2,TCLPNT+STKEND ADDR TO TCLBLK POINTER P LC A3,TDBMC+4,A11 TCL-ID P SLL A3,8 P LC A3,TDBMC+5,A11 T
0x39c630…39c7c4 Dummy {f00=0x0122, f01=0x0190, f02=» * P SUK A7,1 COUNT NBR OF TCL'S $ P RF(NN) SYA135 N=END OF TCLBLK'S . ( P LDK A1,LMP5 TID IN CONF NOT IN APPL V P CALL ERROR PSYA135 EQU * P CW A3,-2,A2 TCL-ID FOUND ? P RF(E) SYA140 YES " P ADK A2,4 POINT AT NEXT TCLBLK
0x39c7c4…39c958 Dummy {f00=0x0122, f01=0x0190, f02=» START OF SHTAB3 PSYA145 EQU * P SUK A6,2 STEP SHTAB2 , P LD A3,SHADST+STKEND J P ADR A3,A8 f P CWR A6,A3 END OF SHTAB2 ? x P RF(E) SYA150 YES " P LDR* A1,A6 ITCT ADR IN SHTAB2 P LDR* A3,A2 GET TCLBLK-ADR & P CW A1,TCLTC
0x39c958…39caec Dummy {f00=0x0122, f01=0x0190, f02=» LDR* A3,A6 " P RB(NZ) SYA150 ENTRY NOT FREE P LDR* A3,A2 GET TCLBLK-ADR : ( P LD A1,TCLTCT,A3 ITCT ADR IN TCLBLK ( P STR A1,A6 STORE ITCT ADR IN SHTAB2 PSYA155 EQU * ( P SUR A6,A8 POINT AT ENTRY IN SHTAB1 ( P LC A4,TDBNT+1,A11 N
0x39caec…39cc80 Dummy {f00=0x0122, f01=0x0190, f02=»IES) n P LDR A4,A4 NBR OF COPIES P RF(Z) SYA170 , PSYA160 EQU * B P LC A3,TDBID+4,A11 TID V P SLL A3,8 t P LC A3,TDBID+5,A11 TID . P CALL BUILDT BUILD TIDTAB PART FOR ONE TCL PSYA170 EQU * " P CALL NXTBLK NEXT CONFIG-BLOCK
0x39cc80…39ce14 (1, 971) Dummy {f00=0x0123, f01=0x018e, f02=»1 NBR OF BYTES USED P ADK A1,2 ADD LENGTH WORD $ P STR A1,A7 STORE LENGTH IN TABLE > & P ST A7,DYNTAD,A10 SAVE TABLE START f ( P ADR A7,A1 UPDATE "FIRST FREE WORD" P SUK A1,4 4 P RF(NZ) SYA175 MORE THAN ONE TASK IN THE SYSTEM 6 P I
0x39ce14…39cfa8 Dummy {f00=0x0123, f01=0x0190, f02=» 4 P LD A2,SHADST+STKEND GET START OF SHADOW TABLES , P ST A2,SHADOW,A10 SAVE IN APPL.SAVE AREA @ . P ADKL A10,TABLEN UPDATE SAVE AREA POINTER p . P ST A7,SHADST+STKEND SAVE START OF SHTAB1 P LDKL A2,SYA100 0 P AD A2,M:REL+STKCOM ABSOLUTE
0x39cfa8…39d13c Dummy {f00=0x0123, f01=0x0190, f02=»D A2,SCTSFA P ST A2,MONEND+STKEND P 0 $ P* GET START OF SYSLCO AFTER MOVE 8 P ` . P ADK A7,1 TO-ADDRESS (AFTER SHADOW-TABLES) l P ANKL A7,/FFFE EVEN ADDRESS P P* CALCULATE RELOCATION & P LDKL A2,PART2 GET START OF PART
0x39d13c…39d2d0 Dummy {f00=0x0123, f01=0x0190, f02=»A2 6 P ST A2,RELOCA+STKEND SAVE NEW RELOCATION TEMPORARY 2 P ST A7,LCOTO+STKEND SAVE (LOGICAL) TO-ADDRESS D $ P LDR A2,A13 A13=START OF SYSINI z P SUR A2,A3 SYSLCO LENGTH ( P ADKL A2,INILEN ADD LENGTH OF SYSINI , P ST A2,MOVLE1+STKEND SAVE
0x39d2d0…39d464 Dummy {f00=0x0123, f01=0x018e, f02=»S * t ( P CM APPLNO+STKCOM RESET NBR OF APPL. 2 P LDKL A10,STKEND START OF 1:ST APPL SAVE AREA 8 PSYA180 EQU * n $ P LDKL A1,'CO' COBOL APPLICATION & P CALL GETAPP ANY COBOL APPL LEFT? P RF(Z) OUT01 NO! P P LD A2,APLLAC,A1 GET
0x39d464…39d5f8 Dummy {f00=0x0123, f01=0x0190, f02=» " P LDR A1,A2 SAVE SEGTAB ADDRESS . P LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH * P CALL MULT P ADR A1,A3 n & P ADK A1,SGNOSG+2 => START OF DDIV , P ST A1,DDIVFR,A10 SAVE DDIV FROM-ADDRESS * P LD A6,DDIVTO+STKEND GET DDIV TO ADDR. " P
0x39d5f8…39d78c Dummy {f00=0x0123, f01=0x018e, f02=». START OF PLTGC'S z $ P CALL LIMTGC RELOCATE ICB-PLTGC 2 P LD A6,SAVE01+STKEND GET RELOCATION INCREMENT B P EJECT x P* P* RELOCATE ITCT'S P* PRELITC EQU * $ P LD A1,DDIVFR,A10 ADR TO APPTAB P LDR* A1,A1 ADR TO TCLTA
0x39d78c…39d920 Dummy {f00=0x0123, f01=0x0190, f02=» l P ADK A1,4 TCLBLK ADR POINTER P LDR* A3,A1 TCLBLK ADR , & P ADK A3,TCLTCT ADR TO ITCT POINTER J P LDR* A3,A3 ITCT ADR t , P ADS A6,ITCGLA,A3 RELOCATE PGTL-DATA-ADR , P ADS A6,ITCCOM,A3 RELOCATE PGTG-DATA-ADR P ADK A3,ITCTLT TLTAB ADR
0x39d920…39dab4 (1, 972) Dummy {f00=0x0123, f01=0x0190, f02=»RELOCATED v & P ADK A3,ITCTLE POINT AT NEXT ENTRY P LDR* A5,A3 ENTRY CONTENT < P RB(Z) RELIT2 FREE ENTRY ^ P ADRS A6,A3 RELOCATE ENTRY ~ P RB RELIT2 NEXT ITCT PRELITX EQU * P* P* RELOCATE TCLBLK'S P* PRELTCB E
0x39dab4…39dc48 Dummy {f00=0x0123, f01=0x018e, f02=»2,1 ADJUST NBR OF TCL'S . P RF(N) RELTBX RELOCATION OF TCLBLK'S DONE P ADK A1,4 TCLBLK ADR POINTER R P LDR* A3,A1 TCLBLK ADR v 6 P ADS A6,TCLTGC,A3 RELOCATE ICB-PLTGC-MAIN POINTER , P ADS A6,TCLTCT,A3 RELOCATE ITCT POINTER P RB RELTB1
0x39dc48…39dddc Dummy {f00=0x0123, f01=0x0190, f02=» r P LDR* A1,A1 TCLTAB ADR P LDR* A2,A1 NBR OF TCL'S & PRELTC1 EQU * F P SUK A2,1 COUNT NBR OF TCL'S Z , P RF(N) RELTCX RELOCATION OF TCLTAB DONE ~ P ADK A1,4 TCLBLK ADR POINTER ( P ADRS A6,A1 RELOCATE TCLBLK POINTER " P RB RELTC1
0x39dddc…39df70 Dummy {f00=0x0123, f01=0x0190, f02=»AB ADR z $ P ADRS A6,A1 RELOCATE TCLTAB-PNTR PRELAPX EQU * 6 P* J . P* RELOCATE SHADOW-TABLE2 (ITCT ADDRESSES) T P* PRELSHT EQU * $ P LD* A1,SHADOW,A10 SHTAB LENGTH " P LDR A2,A1 SAVE SHTAB2 LENGTH P AD A1,SHADOW,A10 SHTA
0x39df70…39e104 Dummy {f00=0x0123, f01=0x0190, f02=»AT ITCT ADR " P ADRS A6,A1 RELOCATE ITCT ADR P RB RELSH1 NEXT : PRELSHX EQU * R ( P ADKL A10,TABLEN NEXT APPL.SAVE AREA f " P RB SYA180 CHECK IF MORE APPL. POUT01 EQU * 6 P LD A5,RELOCA+STKEND GET NEW RELOCATION INCREMENT 4 P A
0x39e104…39e298 Dummy {f00=0x0123, f01=0x0190, f02=»CO) h P LDR A5,A2 P AD A5,MOVLE1+STKEND $ P SUKL A5,INILEN A5=SYSINI START : 0 P LDKL A7,START2 GET EXECUTION START ADDRESS b , P AD A7,M:REL+STKCOM ADD RELOCATION BASE . P LD A3,MOVLE1+STKEND SYSLCO+SYSINI LENGTH P LDKL A1,PART2
0x39e298…39e42c Dummy {f00=0x0123, f01=0x0190, f02=»S SYSLCO, AND THEN CONTINUE IN PART2 " P* INPUT TO ROUTINE IN STACK IS , P* A1 = FROM ADDR. R P* A2 = TO ADDR. l P* A3 = LENGTH P* A7 = RESTART ADDR. P* . P ABL STKMOV JUMP TO MOVE-ROUTINE IN STACK P EJECT P
0x39e42c…39e5c0 Dummy {f00=0x0123, f01=0x018e, f02=»LOAD PART 2 ** 6 P** ** * 6 P************************************************* d P 6 P* BUILD COMMON AND TASKCLASS DATA AREAS. * 6 P* BUILD TASKDATA PROTOTYPE AREA
0x39e5c0…39e754 (1, 973) Dummy {f00=0x0123, f01=0x0190, f02=» PPART2 EQU * P 0 P******************************************** $ 0 P*** *** X 0 P** S U B R O U T I N E S ** 0 P******************************************** P P P
0x39e754…39e8e8 Dummy {f00=0x0123, f01=0x0190, f02=»ATA * v , P* * , P*************************************** F P v PMOVCOM EQU * ~ P CALL FNDCOM ICB-PGTG ADR ( P LD A3,DDIVTO+STKEND APPTAB ADDRESS " P LD A3,APPTGL,A3 PGTG-DATA ADR * P L
0x39e8e8…39ea7c Dummy {f00=0x0123, f01=0x0190, f02=»GAD+STKEND SAVE ICB-PGTG NEW ADDRESS P RTN A14 , P EJECT < $ P* F N D C O M * J $ P* * r $ P* FIND PGTG-DATA * $ P* * $ P* EXIT : A1 PGTG-DATA ADR
0x39ea7c…39ec10 Dummy {f00=0x0123, f01=0x0190, f02=»R TO TCLBLK & P LD* A1,TCLTCT,A1 ADR TO PGTG-DATA P RTN A14 > P EJECT N . P* * . P* R E L T G C * . P* * . P* RELOCATE ICB-PLTGC
0x39ec10…39eda4 Dummy {f00=0x0123, f01=0x0190, f02=» START ADDRESS * . P* PLTGCL= ICB-PLTGC BLOCK * * . P* LENGTH * . P* A6 = RELOCATION INCREMENT * . P* * . P**********************
0x39eda4…39ef38 Dummy {f00=0x0123, f01=0x0190, f02=» n P ADR A2,A3 ICB-PLTGC END ADR PRELTG1 EQU * , P LDR A1,A3 @ $ P LDR A11,A1 GET ADR FOR COMPARE R " P LDR A9,A2 GET ADR FOR COMPARE z , P CALL CMPADR ALL ICB-PLTGC'S RELOCATED ? P RF(NL) RELTGX YES * P LCR A3,A1 GET ICB-PLTGC CONTR
0x39ef38…39f0cc Dummy {f00=0x0123, f01=0x0190, f02=» RESTORE IT PRELTG2 EQU * $ P LD A3,TGCCAL,A1 NBR OF ENTRIES ( P SLL A3,1 *2 NBR OF BYTES P P ADR A3,A1 ADD BASE r 4 P ADK A3,10 POINTER TO 1:ST WORD AFTER LAST ENTRY P LDR A4,A1 GET BASE P ADK A4,10 1:ST ENTRY P LDR A9,
0x39f0cc…39f260 Dummy {f00=0x0123, f01=0x018e, f02=»PLTGC f ( P LDR* A11,A4 GET ADDRESS TO RELOCATE P ADR A11,A6 RELOCATE ADDRESS : P LDR* A1,A11 ^ P SRL A1,8 r P SUK A1,/60 ICB-PLTGC ? $ P RF(N) RELTG4 NO, ASM-SUBROUTINE P SUK A1,1 $ P RF(P) RELTG4 NO, ASM-SUBROUTINE & P A
0x39f260…39f3f4 (1, 974) Dummy {f00=0x0123, f01=0x0190, f02=» PRELTGX EQU * P RTN A14 P EJECT ( & P* F N D B L K * 6 & P* * ` & P* FIND A TCLBLK CORRESPONDING * & P* TO AN ITCT ADDRESS * & P* * & P
0x39f3f4…39f588 Dummy {f00=0x0123, f01=0x0190, f02=» IN TLCTAB * & P* A3 TCLBLK ADR * & P* WORK : A2 * J & P********************************** t P PFNDBLK EQU * $ P LD* A1,DDIVTO+STKEND TCLTAB ADR P LDR* A2,A1 NBR OF TCLBLK'S PFN
0x39f588…39f71c Dummy {f00=0x0123, f01=0x0190, f02=»L1 EQU * P ADK A1,4 TCLBLK-PNTR ADR P LDR* A3,A1 TCLBLK-PNTR 2 " P CW A7,TCLTCT,A3 ITCT FOUND ? R & P RB(NE) FNDBL0 NO,TRY NEXT TCLBLK x P RTN A14 YES,RETURN P EJECT P " P***************************** " P* START OF PRO
0x39f71c…39f8b0 Dummy {f00=0x0123, f01=0x0190, f02=»TART-ADDRESS " P* SAVE01=RELOCATION INCREMENT P* SAVE03=DDIV TO-ADDRESS : P* SAVE04=DDIV FROM ADDRESS Z $ P* SAVE05=LENGTH OF REAL ITCTTAB | P PSTART2 EQU * " P LDR A8,P LOAD TEMP. STACKBASE ( P ADK A5,2 ADD FOR RELOCATION R
0x39f8b0…39fa44 Dummy {f00=0x0123, f01=0x018e, f02=»L. SAVE AREA n . P LD A1,APCTAB,A10 FIRST APLTAB BLOCK ADDR. 4 P LD A2,APPLNO+STKCOM GET NUMBER OF APPLICATIONS F P ST A2,ALICOU+STKEND SAVE ~ P RF PRT200 P* 0 P* UPDATE VALUES FOR NEXT APPLICATION P* PNXTAPP EQU *
0x39fa44…39fbd8 Dummy {f00=0x0123, f01=0x0190, f02=» h $ P SUK A2,1 DECREMENT APPL.COUNTER * P ST A2,ALICOU+STKEND SAVE APPL.COUNTER 0 & P RF(NZ) PRT200 IF ANY APPL IS LEFT ^ P DON'T LEAVE SYSLCO YET ( P LD A2,SCTEFA+2 GET END OF FREE AREA 6 P ST A2,LSTADR+STKCOM LAST ADDR.:=END OF FREE AREA
0x39fbd8…39fd6c Dummy {f00=0x0123, f01=0x0190, f02=» P PPRT200 EQU * ( P LD* A9,APLLAC,A1 APPTAB START ADDR. , P LD A2,APPINT,A9 INTERPRETER ACTIV ADDR. L P ST A2,INTENT+STKEND SAVE IT | * P LD A9,APPCOM,A9 GET APPL. START ADDR. P LDR A2,A9 APPL. START ADDR. P* * P* CAL
0x39fd6c…39ff00 Dummy {f00=0x0123, f01=0x0190, f02=»A4 DDIV+SEGTAB LENGTH P* : P* SET FLAG BIT15=1 => BUILD DDIV IN PROT. DDIV ( P* f P IM PDDIV+STKEND SET FLAG p P* ( P* INITIATE PROT. DDIV LENGTH P* ( P LD A3,SCTEFA+2 GET END OF FREE AREA & P CWR A3,A4
0x39ff00…3a0094 (1, 975) Dummy {f00=0x0124, f01=0x0190, f02=».PROT.DDIV LENGTH z P* P* MOVE DDIV $ P* 8 & P LD A1,DDIVFR,A10 GET FROM-ADDRESS B ( P LD A2,DDIVTO+STKEND GET TO ADDRESS l 2 P LDR A3,A9 GET APPLICATION START (=END OF DDIV P SUR A3,A1 => LENGTH OF DDIV P ST A2,DATEND+STKCOM
0x3a0094…3a0228 Dummy {f00=0x0124, f01=0x0190, f02=» FSTADR IF SEGMENTS P RF SEGMTS 2 PNOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP . $ PSEGMTS ST A8,FSTADR+STKCOM STORE d PMOVNXT LDR* A4,A1 GET WORD P STR A4,A2 STORE P ADK A1,2 P ADK A2,2 P SUK A3,2 DEC LENGTH P R
0x3a0228…3a03bc Dummy {f00=0x0124, f01=0x0190, f02=»EMORY OVERFLOW? P RF(NG) SYA202 NO! P LDKL A1,LMP3 2 P CALL ERROR H PSYA202 EQU * P LDR A9,A1 RELOAD p , P SUKL A9,10 RESERVE 5 WORDS FOR DEBUGGER P ANKL A9,/FFFE EVEN ADDRESS . P ST A9,LSTADR+STKCOM SAVE END OF FREE AREA
0x3a03bc…3a0550 Dummy {f00=0x0124, f01=0x0190, f02=» ~ . P SU A1,DDIVFR,A10 ICB-PLTGCS NEW START ADR & P LD A3,PLTGCL,A10 ICB-PLTGC LENGTH : & P LD A6,LSTADR+STKCOM LAST FREE ADR d . P SU A6,PLTGCE,A10 GET DISPL FOR RELOCATION P CALL CALLMO MOVE 6 P ST A2,PLTGCS,A10 ICB-PLTGCS NEW (FINAL) START
0x3a0550…3a06e4 Dummy {f00=0x0124, f01=0x0190, f02=» ADR x P LDR* A5,A4 SHTAB1 LENGTH P LDR A6,A4 SHTAB1 ADR . P ADR A4,A5 SHTAB2 ADR L * P SUK A5,2 ADJUST FOR TABLE LENGTH WORD j PTCLLOP EQU * P ADK A4,2 SHTAB2 ENTRY P LDR* A7,A4 ITCT ADR P CALL FNDBLK FIND TCLBLK P L
0x3a06e4…3a0878 Dummy {f00=0x0124, f01=0x0190, f02=» ITCT x " P LDR A3,A5 NBR OF ITCT'S LEFT P RF(Z) TCLEXT NONE 4 P LDR A1,A7 ITCT ADR N 2 P LD A3,TGCREL+STKEND GET ICB-PLTGC RELOCATION j 6 P ADS A3,ITCTGC,A1 RELOCATE ICB-PLTGC-MAIN IN ITCT * P LD A3,PGTGAD+STKEND PGTG-DATA ADDRESS , P
0x3a0878…3a0a0c Dummy {f00=0x0124, f01=0x018e, f02=»A3,ITCCSB,A1 SAVE IN CURRENT SEGMENT BASE , P LD A3,ITCTLT,A7 NBR OF ENTRIES IN TLTAB 2 & P SLL A3,1 NBR OF BYTES IN TLTAB b * P ADK A3,2 ADJUST FOR TLTAB LENGTH WORD P ADK A3,ITCTLT ITCT LENGTH , P ST A4,SAVE01+STKEND SAVE SHTAB2 POINTER
0x3a0a0c…3a0ba0 Dummy {f00=0x0124, f01=0x0190, f02=» * P ST A2,SAVITC+STKEND SAVE NEW ITCT ADR , P CALL MVPGTL ALLOCATE AND MOVE PGTL-DATA 2 . P CALL MVSTAT ALLOCATE AND MOVE STATIC-ZERO b P LDK A2,2 4 P ST A2,DYNDIS+STKEND INIT.DYN.CORE TABLE DISPL. & P CALL ALLDYN ALLOCATE DYNAMIC-CORE P
0x3a0ba0…3a0d34 (1, 976) Dummy {f00=0x0124, f01=0x0190, f02=»A200 EQU * * P* INCLUDE MOVED PROT.DDIV IN FREE AREA P LD A5,DDIVTO+STKEND @ P ST A5,DATEND+STKCOM P x P* CONTINUE IN PART 3 * P * P LDKL A5,START3 RELATIVE START ADDRESS , P AD A5,M:REL+STKCOM ADD RELOCATION BASE P ABR
0x3a0d34…3a0ec8 Dummy {f00=0x0124, f01=0x0190, f02=» *** j 4 P** SYSLCO PART 3 ** 4 P** ** J 4 P************************************************ P 4 P* BUILD REAL ITCT'S. COPY ITCT'S ACCORDING TO* 4 P* SHADOW TAB
0x3a0ec8…3a105c Dummy {f00=0x0124, f01=0x018e, f02=»********** j P PPART3 EQU * P . P EJECT 6 " P***************************** D " P* START OF PROGRAM PART 3 * j " P***************************** P 2 P** G E T T A B ** 2 P**
0x3a105c…3a11f0 Dummy {f00=0x0124, f01=0x0190, f02=» ` 2 P** INPUT :A8=POINTER TO ITCT ADR ** ! 2 P** OUTPUT:A2=TTAB-ADDRESS ** ! > 2 P** A1=TID ** ! t 2 P** WORKREGS:A3,A4,A10 ** ! 2 P****************************************
0x3a11f0…3a1384 Dummy {f00=0x0124, f01=0x0190, f02=». INPUT: A1=TID ! ~ $ P LD A4,SCTTCT GET TC:TAB ADDRESS " P LDR* A3,A4 TCTAB LENGTH " @ PGETT10 ADK A4,2 " ` P SUK A3,2 ALL? " x P RF(NN) GETT20 NO! " * P LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) " P LDK A1,LMP5 TID ERROR " P CALL ERROR " " P
0x3a1384…3a1518 Dummy {f00=0x0124, f01=0x0190, f02=»IN TTAB " l P ST A2,TTAB+STKCOM SAVE # 6 P LD A3,ITCSPL,A10 GET SPL-PBS.PROGRAM-DATA ADDRESS # 0 $ P ST A3,TTB:SA+20,A2 SAVE IN TTAB # j 8 P ADKL A3,SPLSIZ-SPLCPB-2 POINT AT SPL-PBS STACK-BASE # $ P ST A3,TTB:SA+28,A2 SAVE IN TTAB # P RTN A14 # P E
0x3a1518…3a16ac Dummy {f00=0x0124, f01=0x0190, f02=» ** # ` 8 P** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** $ 8 P** 0, ENB. ** $ H 8 P** ** $ 8 P** INPUT: A10=ITCT-ADDRESS ** $ 8 P** A
0x3a16ac…3a1840 Dummy {f00=0x0124, f01=0x0190, f02=»* QUEUE THIS TASK (THIS TID) $ P % $ 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS % , P AD A3,M:REL+STKCOM % ` P STR A3,A15 PUT ON STACK % | * P LDKL A3,/00C0 SET LEVEL 0 AND ENABLE % P STR A3,A15 PSW % P CF A15,SAVE8 SAVE 8 REGS % $ P LDK
0x3a1840…3a19d4 (1, 977) Dummy {f00=0x0124, f01=0x0190, f02=»3,/FF SEGMENT NBR TO ACTIVATE % P LD A1,2,A1 DISPL IN SEGMENT & & * P LD A2,INTENT+STKEND INTERPRETER ENTRY & J P CF A15,ACTOT & x $ PGETT40 ABL RETUR8 RELOAD 8 REGS & PRETUR EQU * & P RTN A14 & P EJECT & P* G E N C O P * &
0x3a19d4…3a1b68 Dummy {f00=0x0124, f01=0x0190, f02=»A6,SAVE06+STKEND SAVE A6 & P CALL FNDTID FIND TID ' * P LD A10,SAVITC+STKEND GET ITCT ADDRESS ' > P LDR A1,A10 ITCT ADR ' l $ P LDK A3,ITCTLT TLTAB START DISPL ' , P LD A2,ITCTLT,A1 NBR OF ENTRIES IN TLTAB ' & P SLL A2,1 NBR OF BYTES IN TLTAB ' &
0x3a1b68…3a1cfc Dummy {f00=0x0124, f01=0x0190, f02=»DR ' p $ P LD A3,SAVTID+STKEND GET NEW TID ( " P ST A3,ITCTID,A2 STORE IN ITCT ( 2 P LDR A3,A2 ITCT ADR ( X , P CALL MVPGTL ALLOCATE AND MOVE PGTL-DATA ( t " P LD A3,SAVITC+STKEND ITCT ADR ( . P CALL MVSTAT ALLOCATE AND MOVE STATIC-ZERO ( " P LD A3,SAVIT
0x3a1cfc…3a1e90 Dummy {f00=0x0124, f01=0x0190, f02=» TID ( | P LDR A10,A7 ITCT ADDRESS ) P CALL GETTTB FIND TTAB ADR ) , P CALL QUEJOB QUEUE THIS TASK ) N " P LD A10,SAVITC+STKEND ITCT ADR ) r P LDR A5,A10 ITCT ADDRESS ) P ADK A5,22 ) 8 P ST A5,TTB:SA+26,A2 SAVE ITCT ADR IN TTAB(SAVE-A13) ) P I
0x3a1e90…3a2024 Dummy {f00=0x0124, f01=0x0190, f02=»MUPAG=0 ) $ P LD A5,SAVE05+STKEND RESTORE A5 * $ P LD A6,SAVE06+STKEND RESTORE A6 * 8 P RTN A14 * ` P EJECT * p " P* F N D T I D * * ~ " P* * * " P* FIND TID FOLLOWING "A1" * * " P* IN SHTAB4
0x3a2024…3a21b8 Dummy {f00=0x0124, f01=0x0190, f02=»: A2,A3 * * " P***************************** + P + D PFNDTID EQU * + L P LD A2,SHADOW,A10 SHTAB1 ADR + ` " P LD* A3,SHADOW,A10 SHTAB1 LEN + P ADR A2,A3 SHTAB2 ADR + P ADR A2,A3 SHTAB3 ADR + P ADR A2,A3 SHTAB4 ADR + P LDR
0x3a21b8…3a234c Dummy {f00=0x0124, f01=0x0190, f02=»ALL ERROR + PFNDTI1 EQU * , P ADK A2,2 ADJUST POINTER , & P CWR* A1,A2 TID FOUND ? , F P RB(NE) FNDTI0 NO,TRY NEXT , f " P LD A1,2,A2 YES,LOAD NEXT TID , P ST A1,SAVTID+STKEND SAVE IT , P RTN A14 , P EJECT , $ P* A L L D Y N
0x3a234c…3a24e0 Dummy {f00=0x0124, f01=0x0190, f02=»* INPUT : A3 ITCT ADDRESS * , $ P* EXIT : ITCT IS UPDATED * - ( $ P* WITH DYNAMIC-CORE * - P $ P* POINTERS * - x $ P* WORK : A1-A3,A9,A11 * - $ P******************************** - P - PALLDYN EQU * -
0x3a24e0…3a2674 (1, 978) Dummy {f00=0x0124, f01=0x018e, f02=»ALLDY1 NO!! - & P CALL CALLMO ALLOCATE FROM BOTTOM . $ P LD A3,ITCNEP,A7 DYN. CORE SIZE . > PALLDY0 EQU * . f $ P ST A2,ITCDCB,A7 SAVE BASE PNTR . z ( P ST A2,ITCDCC,A7 SAVE CURRENT EXTENT . P ADR A3,A2 + BASE-PNTR . $ P SUKL A3,SPLSIZ - SPL-STACK-
0x3a2674…3a2808 Dummy {f00=0x0124, f01=0x0190, f02=» . l P LD A1,DYNTAD,A10 TABLE ADR / 2 P LD A2,DYNDIS+STKEND GET DYN.CORE TABLE DISPL / , & P ADR A1,A2 NEXT TABLE ENTRY TO USE / b P ADK A2,2 COUNT DISPL / 2 P ST* A2,DYNTAD,A10 COUNT LENGTH WORD IN TABLE / $ P ST A2,DYNDIS+STKEND STEP DISPL / * P
0x3a2808…3a299c Dummy {f00=0x0124, f01=0x0190, f02=»A9 SAVE START-ADR / P ADR A9,A3 ADD LENGTH 0 P ADKL A9,1 0 8 P ANKL A9,/FFFE EVEN ADR 0 J P 0 j P* CHECK ADDRESS 0 r P 0 * P LD A11,LSTADR+STKCOM END OF FREE AREA 0 P CALL CMPADR 0 P RF(NL) ALLDY2 OK ! 0 " P LDKL A1,LMP3 MEMORY OVE
0x3a299c…3a2b30 Dummy {f00=0x0124, f01=0x0190, f02=» EJECT 0 $ P* M V S T A T * 1 $ P* * 1 6 $ P* ALLOCATE AND MOVE STATIC- * 1 ^ $ P* CORE * 1 $ P* * 1 $ P* INPUT : A3 ITCT ADDRESS * 1 $ P* EXIT :
0x3a2b30…3a2cc4 Dummy {f00=0x0124, f01=0x018e, f02=»****** 1 v P 2 PMVSTAT EQU * 2 P CALL PUSH SAVE REGISTERS 2 * P LDR A7,A3 ITCT ADR 2 L 2 P ADK A3,ITCTGC POINT AT ICB-PLTGC-MAIN ADDRESS 2 h & P ST A3,SAVE07+STKEND SAVE POINTER 2 P ADK A7,ITCTLT TLTAB ADR 2 P LDR A12,A7 SAVE TLTAB-BASE 2
0x3a2cc4…3a2e58 Dummy {f00=0x0124, f01=0x0190, f02=» P CALL POB RELOAD REGISTERS 3 8 P LD A3,SAVE07+STKEND LOAD ICB-PLTGC-MAIN ADR POINTER 3 & ( P SUK A3,ITCTGC MAKE IT ITCT POINTER 3 b ( P LDKL A6,-1 GIVE A6 ITS OUTPUT VALUE 3 P RTN A14 3 PMVSTA2 EQU * 3 & P ADK A7,2 POINT AT STATIC-ZERO ADR 3 P
0x3a2e58…3a2fec Dummy {f00=0x0124, f01=0x0190, f02=»,A10 LEVEL 3 P LDK A1,0 RESET INDICATOR 4 * P LD A2,FREQUE GET MONITOR BLOCK ADR =2 4 4 , P CALL FNDTGC FIND STATIC-ZERO ADR+LENGTH 4 b . P CALL CALLMO ALLOCATE AND MOVE STATIC-ZERO 4 " P STR A2,A7 UPDATE TLTAB ENTRY 4 P RB MVSTA1 4 P EJECT 4 &
0x3a2fec…3a3180 Dummy {f00=0x0124, f01=0x0190, f02=»E PROGRAM * 4 & P* * 5 " & P* INPUT : A3 ICB-PLTGC ADR * 5 L & P* A8 STATIC-ZERO ADR * 5 v & P* WANTED * 5 & P* A10 0 (ZERO) * 5 & P* A12 TLTAB
0x3a3180…3a3314 (1, 979) Dummy {f00=0x0125, f01=0x0190, f02=»K ADR * =2 5 v & P* A3 STATIC-ZERO LENGTH * 6 & P* WORK : A2,A4,A5,A9,A11 * 6 > * P* WORKAREA: USES MONITOR BLOCKS * =2 6 h * P* AS STACK AREA * =2 6 & P********************************** 6 P 6 PFNDTGC EQU * 6
0x3a3314…3a34a8 Dummy {f00=0x0125, f01=0x0190, f02=»OT FOUND =2 6 | P RF FNDTG0 RETURN =2 7 PFNDT00 EQU * =2 7 0 ( P LD A1,TGCSZD,A3 GET DISPL IN TLTAB 7 H $ P ADR A1,A12 POINT AT TLTAB-ENTRY 7 t * P ADK A1,2 ADJUST FOR TLTAB LENGTH-WORD 7 P LDR* A1,A1 STATIC-ZERO-ADR 7 P CWR A1,A8 WANTED ? 7
0x3a34a8…3a363c Dummy {f00=0x0125, f01=0x018e, f02=»TN A14 7 PFNDTG1 EQU * 8 P LDK A1,0 INDICATE NOT FOUND 8 " 0 P LD A5,8,A3 NBR OF ENTRIES IN PLTGC CALL TAB 8 F P SLL A5,1 *2 = TABLE LENGTH 8 z P ADR A5,A3 BASE 8 $ P ADK A5,10 DISPL TO TABLE START 8 P LDR A4,A3 ICB-PLTGC ADR 8 8 P ADK A4,TG
0x3a363c…3a37d0 Dummy {f00=0x0125, f01=0x0190, f02=» & P CALL CMPADR END OF CALL-TABLE? =2 9 P RB(NG) FNDTG0 YES! =2 9 . PFNDTG3 EQU * 9 L P ST A4,2,A2 SAVE ON STACK =2 9 ` P ST A5,4,A2 SAVE ON STACK =2 9 ( P LDR* A2,A2 ADJUST STACK POINTER =2 9 * P RF(NZ) FNDTG4 MORE BLOCKS AVILABLE =2 9 ( P LDKL
0x3a37d0…3a3964 Dummy {f00=0x0125, f01=0x0190, f02=»EVEL 9 | P CALL FNDTGC NEXT LEVEL : & P SUK A2,6 ADJUST STACK POINTER =2 : , P LDR A1,A1 STATIC-ZERO FOUND : V P RB(NZ) FNDTG0 YES : z P SUKL A10,1 ADJUST LEVEL : , P LD A4,2,A2 TABLE POINTER FROM STACK =2 : 0 P LD A5,4,A2 TABLE END POINTER FROM S
0x3a3964…3a3af8 Dummy {f00=0x0125, f01=0x0190, f02=» ( P* * ; ( P* ALLOCATE AND MOVE PGTL-DATA * ; 0 ( P* * ; ( P* INPUT : A2 ITCT ADR * ; ( P* EXIT : A1 OLD PGTL-DATA ADR * ; ( P* A2 NEW PGTL-DATA ADR * ;
0x3a3af8…3a3c8c Dummy {f00=0x0125, f01=0x0190, f02=» PGTL-DATA ADR ; & P LD A3,ITCGLL,A2 PGTL-DATA LENGTH < , P CALL CALLMO ALLOCATE AND MOVE PGTL-DATA < @ " P LD A3,SAVITC+STKEND ITCT ADR < p & P ST A2,ITCGLA,A3 NEW PGTL-DATA ADR < P RTN A14 < P EJECT < 4 P******************************************
0x3a3c8c…3a3e20 Dummy {f00=0x0125, f01=0x0190, f02=» * < 4 P* * = . 4 P* INPUT: A3=LENGTH TO MOVE * = f 4 P* PDDIV=FLAG THAT INDICATES IF DDIV IS * = 4 P* GOING TO BEE BUILT IN PROT.DDIV * =
0x3a3e20…3a3fb4 (1, 980) Dummy {f00=0x0125, f01=0x0190, f02=» * = ~ 4 P* OUTPUT: A3=-1 * > & 4 P* PDDIV=1 IF DDIV IS BUILT IN PROT. * > ^ 4 P* DDIV ELSE PDDIV=0 * > 4 P* PDDIVL=NEW PDDIVL * > 4 P*
0x3a3fb4…3a4148 Dummy {f00=0x0125, f01=0x0190, f02=» * > v 4 P* * ? 4 P************************************************ ? V PCALLMO EQU * ? 0 P LD A2,PDDIV+STKEND BUILD DDIV IN PROT.DDIV? ? P RF(Z) CAL200 NO! ? 2 P LD A2,PDDIVL,A10 GET LE
0x3a4148…3a42dc Dummy {f00=0x0125, f01=0x018e, f02=»G AND CHANGE LSTADR TO POINT AT ? ~ P* END OF FREE AREA @ ( P* @ J P CM PDDIV+STKEND RESET FLAG @ T ( P LD A2,SCTEFA+2 GET END OF FREE AREA @ x * P ST A2,LSTADR+STKCOM STORE NEW LSTADR @ PCAL100 EQU * @ . P ST A2,PDDIVL,A10 LENGTH LEFT IN P
0x3a42dc…3a4470 Dummy {f00=0x0125, f01=0x0190, f02=» PREALTA EQU * A $ P LD* A8,SHADOW,A10 SHTAB LENGTH A P LD A5,SHADOW,A10 SHTAB1 ADR A @ 6 P ST A10,SAVE01+STKEND SAVE APPL.SAVE AREA POINTER A d P ADR A8,A5 SHTAB2 ADR A ( P ST A8,SAVE03+STKEND SAVE SHTAB2 ADR A P AD* A8,SCTSFA SHTAB3 ADR A $
0x3a4470…3a4604 Dummy {f00=0x0125, f01=0x0190, f02=»,SAVE02+STKEND ALL TCL'S DONE ? A P RF(E) SYA310 YES B ( , P ST A8,SAVE03+STKEND SAVE SHTAB2 POINTER B B P ADK A5,2 SHTAB1 POINTER B r P LDR* A10,A5 NBR OF COPIES B P RB(Z) SYA300 NONE B P CALL GETTAB FIND TTAB ADR B ( P ST A10,SAVITC+STKEND SA
0x3a4604…3a4798 Dummy {f00=0x0125, f01=0x018e, f02=»2 SAVE ITCT ADR IN TTAB(SAVE-A13) B ~ P IFT DSKPAG=1 C * 0 P ADKL A6,ITCCSB-ITCDCD POINT AT CSB IN ITCT C @ " P ST A6,TTB:CB,A2 SAVE IN TTAB C t P XIF C P IFT MMUPAG=0 C P LDR* A6,A5 NBR OF COPIES C PSYA305 EQU * C 4 P LD A10,SAVE01+STKEND
0x3a4798…3a492c Dummy {f00=0x0125, f01=0x0190, f02=» C p P RB SYA305 NEXT D P EJECT D P D . P* ADJUST START OF FREE AREA D 6 P D Z PSYA310 EQU * D b & P LD A1,PDDIV+STKEND UPDATE SCTEFA? D v P RF(NZ) SYA312 NO! D . P LD A1,LSTADR+STKCOM GET END OF FREE AREA D P ST A1,SCTEFA+2 D PSYA3
0x3a492c…3a4ac0 Dummy {f00=0x0125, f01=0x0190, f02=»15 EQU * D P LDKL A1,NXTAPP E P AD A1,M:REL+STKCOM E ( & P ABR A1 CHECK IF MORE APPLICATIONS E D P E n P E v P* E ~ ( P* MOVE DYNTAB:S AND SAVE IN ONE WORD E P* NUMBER OF DYNTAB:S E P* E PSYA320 EQU * E 2 P LDKL A10,STKEND START OF
0x3a4ac0…3a4c54 (1, 981) Dummy {f00=0x0125, f01=0x0190, f02=» DYNTAB:S AND NUMBER OF DYNTAB:S E 0 P ST A4,DYNSTA+STKCOM SAVE START OF DYNTAB:S F * & P STR A1,A4 SAVE NUMBER OF DYNTAB:S F ^ P ADK A4,2 INCREMENT TO-ADDR F PSYA330 EQU * F * P LD A2,DYNTAD,A10 GET DYNTAB FROM ADDR F $ P LDR* A3,A2 GET LENGTH OF
0x3a4c54…3a4de8 Dummy {f00=0x0125, f01=0x4106, f02=»2,2 INCREMENT FROM-ADDR F P SUK A3,2 ALL WORDS MOVED ? G P RB(NZ) SYA340 NO! G D ( P ADKL A10,TABLEN NEXT APPL.SAVE AREA G ^ " P SUK A1,1 ALL DYNTAB:S MOVED? G P RB(NZ) SYA330 NO! G P XIF G PLCOEND EQU * SYSLCO END G P END G @ G F
0x3a4de8…3a4f7c Dummy {f00=0x0125, f01=0x2008, f02=» H -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
0x3a4f7c…3a5110 Dummy {f00=0x0125, f01=0x0190, f02=» w > > _ Q Q " Q , ( > ? P > > P P , , ( R Q (" W P P V , ( Q % W > T NQ T , ( R L $ T L $ T " P W , ( # T W $ P W
0x3a5110…3a52a4 Dummy {f00=0x0125, f01=0x0190, f02=» < % > | , ( P ? 0 ] > > ? 1 ] , ( > > ? W ? ? ? ? L , ( Q ) _ ) > > > | > > H D ! & e 0 k 8 q @ w T } T $
0x3a52a4…3a5438 Dummy {f00=0x0125, f01=0x0190, f02=» GT( KW QQ, W v H D !e YT g l k oT P T j J T T T P H D !u W - J /T6 3 5T4 9 ?T" IP MW SP WP a q W d H D ! P PV P > P > R P > + > / 7 H D ! ? b GT
0x3a5438…3a55cc Dummy {f00=0x0125, f01=0x0190, f02=» H D !S P4 Z T. T, P 8 x T R & CP G x H D !y3 UP Y x m { R> R R P W T T ' [ P H D !F ]Tz a eTr mU RL T T j P< R T H D ! # | ) @ ? EP KT S
0x3a55cc…3a5760 Dummy {f00=0x0125, f01=0x40fa, f02=» T T P l x )T 3 > ET W W W H D ! @ W P& %T 7T WT YW } Q R$ W V W Q< T( < H D ! T P W T W %P )W /P I x MT W x kW wW }P P W Q @ EP KT S
0x3a5760…3a58f4 (1, 982) Opaque[0x194]
0x3a58f4…3a5a88 # DirEnt {nam=»SYSLCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24b8, f03=0x0000}
0x3a58f4…3a5a88 IdxSect {
0x3a58f4…3a5a88 f00 = 0x0125 // 0x3a58f4 @0x0
0x3a58f4…3a5a88 f01 = 0x0044 // 0x3a58f6 @0x2
0x3a58f4…3a5a88 gno = [ // 0x3a58f8 @0x4
0x3a58f4…3a5a88 [0x00]: C0x0125.0x3.0
0x3a58f4…3a5a88 [0x01]: C0x0126.0x0.0
0x3a58f4…3a5a88 [0x02]: C0x0126.0x1.0
0x3a58f4…3a5a88 [0x03]: C0x0126.0x2.0
0x3a58f4…3a5a88 [0x04]: C0x0126.0x3.0
0x3a58f4…3a5a88 [0x05]: C0x0127.0x0.0
0x3a58f4…3a5a88 [0x06]: C0x0127.0x1.0
0x3a58f4…3a5a88 [0x07]: C0x0127.0x2.0
0x3a58f4…3a5a88 [0x08]: C0x0127.0x3.0
0x3a58f4…3a5a88 [0x09]: C0x0128.0x0.0
0x3a58f4…3a5a88 [0x0a]: C0x0128.0x1.0
0x3a58f4…3a5a88 [0x0b]: C0x0128.0x2.0
0x3a58f4…3a5a88 [0x0c]: C0x0128.0x3.0
0x3a58f4…3a5a88 [0x0d]: C0x0129.0x0.0
0x3a58f4…3a5a88 [0x0e]: C0x0129.0x1.0
0x3a58f4…3a5a88 [0x0f]: C0x0129.0x2.0
0x3a58f4…3a5a88 [0x10]: C0x0129.0x3.0
0x3a58f4…3a5a88 [0x11]: C0x012a.0x0.0
0x3a58f4…3a5a88 [0x12]: C0x012a.0x1.0
0x3a58f4…3a5a88 [0x13]: C0x012a.0x2.0
0x3a58f4…3a5a88 [0x14]: C0x012a.0x3.0
0x3a58f4…3a5a88 [0x15]: C0x012b.0x0.0
0x3a58f4…3a5a88 [0x16]: C0x012b.0x1.0
0x3a58f4…3a5a88 [0x17]: C0x012b.0x2.0
0x3a58f4…3a5a88 [0x18]: C0x012b.0x3.0
0x3a58f4…3a5a88 [0x19]: C0x012c.0x0.0
0x3a58f4…3a5a88 [0x1a]: C0x012c.0x1.0
0x3a58f4…3a5a88 [0x1b]: C0x012c.0x2.0
0x3a58f4…3a5a88 [0x1c]: C0x012c.0x3.0
0x3a58f4…3a5a88 [0x1d]: C0x012d.0x0.0
0x3a58f4…3a5a88 [0x1e]: C0x012d.0x1.0
0x3a58f4…3a5a88 [0x1f]: C0x012d.0x2.0
0x3a58f4…3a5a88 [0x20]: C0x012d.0x3.0
0x3a58f4…3a5a88 [0x21]: C0x012e.0x0.0
0x3a58f4…3a5a88 ]
0x3a58f4…3a5a88 }
0x3a5a88…3a5c1c Dummy {f00=0x0125, 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
0x3a5c1c…3a5db0 Dummy {f00=0x0125, 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*
0x3a5db0…3a5f44 Dummy {f00=0x0125, 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
0x3a5f44…3a60d8 Dummy {f00=0x0125, 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
0x3a60d8…3a626c Dummy {f00=0x0125, 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
0x3a626c…3a6400 Dummy {f00=0x0125, 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
0x3a6400…3a6594 (1, 983) Dummy {f00=0x0126, 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
0x3a6594…3a6728 Dummy {f00=0x0126, 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
0x3a6728…3a68bc Dummy {f00=0x0126, 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
0x3a68bc…3a6a50 Dummy {f00=0x0126, 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**********************
0x3a6a50…3a6be4 Dummy {f00=0x0126, f01=0x0190, f02=» EQU 0 0 = NO MMU P . PSWPBLK EQU 0 0 = NO SWAPPABLE WORK BLOCKS " P T 2 P********************************************* 2 P* * 2 P* APCTAB DISPLACEMENTS * 2 P* =====
0x3a6be4…3a6d78 Dummy {f00=0x0126, 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
0x3a6d78…3a6f0c Dummy {f00=0x0126, 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
0x3a6f0c…3a70a0 Dummy {f00=0x0126, 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:
0x3a70a0…3a7234 (1, 984) Dummy {f00=0x0126, 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.
0x3a7234…3a73c8 Dummy {f00=0x0126, 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
0x3a73c8…3a755c Dummy {f00=0x0126, 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* !
0x3a755c…3a76f0 Dummy {f00=0x0126, 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* ! !
0x3a76f0…3a7884 Dummy {f00=0x0126, 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.
0x3a7884…3a7a18 Dummy {f00=0x0126, 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
0x3a7a18…3a7bac Dummy {f00=0x0126, 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*
0x3a7bac…3a7d40 Dummy {f00=0x0126, 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
0x3a7d40…3a7ed4 (1, 985) Dummy {f00=0x0126, 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
0x3a7ed4…3a8068 Dummy {f00=0x0126, f01=0x0190, f02=»************* t . P* * . P* COMMON DISPLACEMENTS AND CONSTANTS * H . P* * z . P***************************************** P 0 PAPLTAB EQU 12 ADDRESS TO APPL. CON
0x3a8068…3a81fc Dummy {f00=0x0126, 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
0x3a81fc…3a8390 Dummy {f00=0x0126, 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
0x3a8390…3a8524 Dummy {f00=0x0126, 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********
0x3a8524…3a86b8 Dummy {f00=0x0126, 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
0x3a86b8…3a884c Dummy {f00=0x0126, 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 (
0x3a884c…3a89e0 Dummy {f00=0x0126, 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
0x3a89e0…3a8b74 (1, 986) Dummy {f00=0x0126, 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
0x3a8b74…3a8d08 Dummy {f00=0x0126, 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 ** *
0x3a8d08…3a8e9c Dummy {f00=0x0126, 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
0x3a8e9c…3a9030 Dummy {f00=0x0126, 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 !
0x3a9030…3a91c4 Dummy {f00=0x0126, 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
0x3a91c4…3a9358 Dummy {f00=0x0126, 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
0x3a9358…3a94ec Dummy {f00=0x0126, 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
0x3a94ec…3a9680 Dummy {f00=0x0126, 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
0x3a9680…3a9814 (1, 987) Dummy {f00=0x0127, 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
0x3a9814…3a99a8 Dummy {f00=0x0127, 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
0x3a99a8…3a9b3c Dummy {f00=0x0127, 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****
0x3a9b3c…3a9cd0 Dummy {f00=0x0127, 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-
0x3a9cd0…3a9e64 Dummy {f00=0x0127, 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 *
0x3a9e64…3a9ff8 Dummy {f00=0x0127, 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
0x3a9ff8…3aa18c Dummy {f00=0x0127, 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 * ,
0x3aa18c…3aa320 Dummy {f00=0x0127, f01=0x0190, f02=» * , X F P***************************************************************** - P - P - h P - t PCALL FORM 16=/F697,16 - P EJECT - P - P - 2 P********************************************* - 2 P*******
0x3aa320…3aa4b4 (1, 988) Dummy {f00=0x0127, f01=0x018e, f02=» * - f 2 P** ** . 2 P***** ***** . B 2 P********************************************* . x P . 2 P* READ CONFIGURATION FILE & BUILD * . 2 P* SHADOW-TABLES
0x3aa4b4…3aa648 Dummy {f00=0x0127, 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 /
0x3aa648…3aa7dc Dummy {f00=0x0127, 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
0x3aa7dc…3aa970 Dummy {f00=0x0127, 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
0x3aa970…3aab04 Dummy {f00=0x0127, 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
0x3aab04…3aac98 Dummy {f00=0x0127, 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
0x3aac98…3aae2c Dummy {f00=0x0127, 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
0x3aae2c…3aafc0 Dummy {f00=0x0127, 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
0x3aafc0…3ab154 (1, 989) Dummy {f00=0x0127, 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
0x3ab154…3ab2e8 Dummy {f00=0x0127, 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
0x3ab2e8…3ab47c Dummy {f00=0x0127, 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
0x3ab47c…3ab610 Dummy {f00=0x0127, 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
0x3ab610…3ab7a4 Dummy {f00=0x0127, 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
0x3ab7a4…3ab938 Dummy {f00=0x0127, 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. ; "
0x3ab938…3abacc Dummy {f00=0x0127, 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
0x3abacc…3abc60 Dummy {f00=0x0127, 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?
0x3abc60…3abdf4 (1, 990) Dummy {f00=0x0127, 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 >
0x3abdf4…3abf88 Dummy {f00=0x0127, 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
0x3abf88…3ac11c Dummy {f00=0x0127, 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
0x3ac11c…3ac2b0 Dummy {f00=0x0127, 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***********************************************************************
0x3ac2b0…3ac444 Dummy {f00=0x0127, f01=0x0190, f02=»BTAB PROTOTYPE TABLE * A ` L P* ================================================================= * B L P* * B p L P* REFERENCED IN: SYSLCR *
0x3ac444…3ac5d8 Dummy {f00=0x0127, 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: *
0x3ac5d8…3ac76c Dummy {f00=0x0127, f01=0x0190, f02=» * C ` L P* * D L P* SUBROUTINES: GETNUM,ERROR * D n L P* * D
0x3ac76c…3ac900 Dummy {f00=0x0127, 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
0x3ac900…3aca94 (1, 991) Dummy {f00=0x0128, 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
0x3aca94…3acc28 Dummy {f00=0x0128, 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
0x3acc28…3acdbc Dummy {f00=0x0128, 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
0x3acdbc…3acf50 Dummy {f00=0x0128, 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
0x3acf50…3ad0e4 Dummy {f00=0x0128, 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
0x3ad0e4…3ad278 Dummy {f00=0x0128, 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
0x3ad278…3ad40c Dummy {f00=0x0128, 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
0x3ad40c…3ad5a0 Dummy {f00=0x0128, 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
0x3ad5a0…3ad734 (1, 992) Dummy {f00=0x0128, 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
0x3ad734…3ad8c8 Dummy {f00=0x0128, 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
0x3ad8c8…3ada5c Dummy {f00=0x0128, 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
0x3ada5c…3adbf0 Dummy {f00=0x0128, 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
0x3adbf0…3add84 Dummy {f00=0x0128, 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
0x3add84…3adf18 Dummy {f00=0x0128, 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
0x3adf18…3ae0ac Dummy {f00=0x0128, 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
0x3ae0ac…3ae240 Dummy {f00=0x0128, 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
0x3ae240…3ae3d4 (1, 993) Dummy {f00=0x0128, 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
0x3ae3d4…3ae568 Dummy {f00=0x0128, 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
0x3ae568…3ae6fc Dummy {f00=0x0128, 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
0x3ae6fc…3ae890 Dummy {f00=0x0128, 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
0x3ae890…3aea24 Dummy {f00=0x0128, 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
0x3aea24…3aebb8 Dummy {f00=0x0128, 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
0x3aebb8…3aed4c Dummy {f00=0x0128, 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
0x3aed4c…3aeee0 Dummy {f00=0x0128, 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 ] "
0x3aeee0…3af074 (1, 994) Dummy {f00=0x0128, 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
0x3af074…3af208 Dummy {f00=0x0128, 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
0x3af208…3af39c Dummy {f00=0x0128, 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
0x3af39c…3af530 Dummy {f00=0x0128, 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
0x3af530…3af6c4 Dummy {f00=0x0128, 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
0x3af6c4…3af858 Dummy {f00=0x0128, 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
0x3af858…3af9ec Dummy {f00=0x0128, 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
0x3af9ec…3afb80 Dummy {f00=0x0128, 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
0x3afb80…3afd14 (1, 995) Dummy {f00=0x0129, 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
0x3afd14…3afea8 Dummy {f00=0x0129, 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
0x3afea8…3b003c Dummy {f00=0x0129, 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
0x3b003c…3b01d0 Dummy {f00=0x0129, 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
0x3b01d0…3b0364 Dummy {f00=0x0129, 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
0x3b0364…3b04f8 Dummy {f00=0x0129, 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
0x3b04f8…3b068c Dummy {f00=0x0129, 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
0x3b068c…3b0820 Dummy {f00=0x0129, 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
0x3b0820…3b09b4 (1, 996) Dummy {f00=0x0129, 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
0x3b09b4…3b0b48 Dummy {f00=0x0129, 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
0x3b0b48…3b0cdc Dummy {f00=0x0129, 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
0x3b0cdc…3b0e70 Dummy {f00=0x0129, 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
0x3b0e70…3b1004 Dummy {f00=0x0129, 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
0x3b1004…3b1198 Dummy {f00=0x0129, 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 -
0x3b1198…3b132c Dummy {f00=0x0129, 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
0x3b132c…3b14c0 Dummy {f00=0x0129, 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
0x3b14c0…3b1654 (1, 997) Dummy {f00=0x0129, 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
0x3b1654…3b17e8 Dummy {f00=0x0129, 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
0x3b17e8…3b197c Dummy {f00=0x0129, 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
0x3b197c…3b1b10 Dummy {f00=0x0129, 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
0x3b1b10…3b1ca4 Dummy {f00=0x0129, 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
0x3b1ca4…3b1e38 Dummy {f00=0x0129, 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
0x3b1e38…3b1fcc Dummy {f00=0x0129, 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? |
0x3b1fcc…3b2160 Dummy {f00=0x0129, 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: }
0x3b2160…3b22f4 (1, 998) Dummy {f00=0x0129, 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**********************
0x3b22f4…3b2488 Dummy {f00=0x0129, 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
0x3b2488…3b261c Dummy {f00=0x0129, 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
0x3b261c…3b27b0 Dummy {f00=0x0129, 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
0x3b27b0…3b2944 Dummy {f00=0x0129, 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
0x3b2944…3b2ad8 Dummy {f00=0x0129, 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
0x3b2ad8…3b2c6c Dummy {f00=0x0129, 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
0x3b2c6c…3b2e00 Dummy {f00=0x0129, 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
0x3b2e00…3b2f94 (1, 999) Dummy {f00=0x012a, 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**
0x3b2f94…3b3128 Dummy {f00=0x012a, 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
0x3b3128…3b32bc Dummy {f00=0x012a, 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
0x3b32bc…3b3450 Dummy {f00=0x012a, 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
0x3b3450…3b35e4 Dummy {f00=0x012a, 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
0x3b35e4…3b3778 Dummy {f00=0x012a, 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
0x3b3778…3b390c Dummy {f00=0x012a, 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***
0x3b390c…3b3aa0 Dummy {f00=0x012a, 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
0x3b3aa0…3b3c34 (1, 1000) Dummy {f00=0x012a, 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
0x3b3c34…3b3dc8 Dummy {f00=0x012a, 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
0x3b3dc8…3b3f5c Dummy {f00=0x012a, 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
0x3b3f5c…3b40f0 Dummy {f00=0x012a, 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
0x3b40f0…3b4284 Dummy {f00=0x012a, 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
0x3b4284…3b4418 Dummy {f00=0x012a, 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
0x3b4418…3b45ac Dummy {f00=0x012a, 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
0x3b45ac…3b4740 Dummy {f00=0x012a, 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
0x3b4740…3b48d4 (1, 1001) Dummy {f00=0x012a, 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
0x3b48d4…3b4a68 Dummy {f00=0x012a, 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 *
0x3b4a68…3b4bfc Dummy {f00=0x012a, 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+
0x3b4bfc…3b4d90 Dummy {f00=0x012a, 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,
0x3b4d90…3b4f24 Dummy {f00=0x012a, 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
0x3b4f24…3b50b8 Dummy {f00=0x012a, 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
0x3b50b8…3b524c Dummy {f00=0x012a, 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
0x3b524c…3b53e0 Dummy {f00=0x012a, 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
0x3b53e0…3b5574 (1, 1002) Dummy {f00=0x012a, 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?
0x3b5574…3b5708 Dummy {f00=0x012a, 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
0x3b5708…3b589c Dummy {f00=0x012a, 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
0x3b589c…3b5a30 Dummy {f00=0x012a, 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
0x3b5a30…3b5bc4 Dummy {f00=0x012a, 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
0x3b5bc4…3b5d58 Dummy {f00=0x012a, 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
0x3b5d58…3b5eec Dummy {f00=0x012a, 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
0x3b5eec…3b6080 Dummy {f00=0x012a, 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
0x3b6080…3b6214 (1, 1003) Dummy {f00=0x012b, 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
0x3b6214…3b63a8 Dummy {f00=0x012b, 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**
0x3b63a8…3b653c Dummy {f00=0x012b, 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
0x3b653c…3b66d0 Dummy {f00=0x012b, f01=0x018e, f02=» ** 2 P** WORK REGISTERS: A2 ** 4 2 P** ** j 2 P** SUBROUTINES: MOVING ** 2 P** **
0x3b66d0…3b6864 Dummy {f00=0x012b, 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
0x3b6864…3b69f8 Dummy {f00=0x012b, 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
0x3b69f8…3b6b8c Dummy {f00=0x012b, 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
0x3b6b8c…3b6d20 Dummy {f00=0x012b, 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
0x3b6d20…3b6eb4 (1, 1004) Dummy {f00=0x012b, 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
0x3b6eb4…3b7048 Dummy {f00=0x012b, 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**
0x3b7048…3b71dc Dummy {f00=0x012b, 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****************************************************
0x3b71dc…3b7370 Dummy {f00=0x012b, 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
0x3b7370…3b7504 Dummy {f00=0x012b, 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**
0x3b7504…3b7698 Dummy {f00=0x012b, 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
0x3b7698…3b782c Dummy {f00=0x012b, 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
0x3b782c…3b79c0 Dummy {f00=0x012b, 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
0x3b79c0…3b7b54 (1, 1005) Dummy {f00=0x012b, 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.)
0x3b7b54…3b7ce8 Dummy {f00=0x012b, 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******************************************************
0x3b7ce8…3b7e7c Dummy {f00=0x012b, 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
0x3b7e7c…3b8010 Dummy {f00=0x012b, 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
0x3b8010…3b81a4 Dummy {f00=0x012b, 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
0x3b81a4…3b8338 Dummy {f00=0x012b, 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
0x3b8338…3b84cc Dummy {f00=0x012b, 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
0x3b84cc…3b8660 Dummy {f00=0x012b, 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
0x3b8660…3b87f4 (1, 1006) Dummy {f00=0x012b, 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
0x3b87f4…3b8988 Dummy {f00=0x012b, 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
0x3b8988…3b8b1c Dummy {f00=0x012b, 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
0x3b8b1c…3b8cb0 Dummy {f00=0x012b, 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
0x3b8cb0…3b8e44 Dummy {f00=0x012b, 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
0x3b8e44…3b8fd8 Dummy {f00=0x012b, 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
0x3b8fd8…3b916c Dummy {f00=0x012b, 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
0x3b916c…3b9300 Dummy {f00=0x012b, 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!
0x3b9300…3b9494 (1, 1007) Dummy {f00=0x012c, 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
0x3b9494…3b9628 Dummy {f00=0x012c, 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
0x3b9628…3b97bc Dummy {f00=0x012c, 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
0x3b97bc…3b9950 Dummy {f00=0x012c, 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 &
0x3b9950…3b9ae4 Dummy {f00=0x012c, 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
0x3b9ae4…3b9c78 Dummy {f00=0x012c, 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
0x3b9c78…3b9e0c Dummy {f00=0x012c, 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
0x3b9e0c…3b9fa0 Dummy {f00=0x012c, 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
0x3b9fa0…3ba134 (1, 1008) Dummy {f00=0x012c, 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
0x3ba134…3ba2c8 Dummy {f00=0x012c, 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,
0x3ba2c8…3ba45c Dummy {f00=0x012c, 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
0x3ba45c…3ba5f0 Dummy {f00=0x012c, 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
0x3ba5f0…3ba784 Dummy {f00=0x012c, 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
0x3ba784…3ba918 Dummy {f00=0x012c, 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
0x3ba918…3baaac Dummy {f00=0x012c, f01=0x0190, f02=» * D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * 8 D P* ===================================== * D P* *
0x3baaac…3bac40 Dummy {f00=0x012c, 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*
0x3bac40…3badd4 (1, 1009) Dummy {f00=0x012c, f01=0x0190, f02=» * x D P* * 0 D P* WORK REGISTERS: A1,A2 * x D P* * D P
0x3badd4…3baf68 Dummy {f00=0x012c, 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
0x3baf68…3bb0fc Dummy {f00=0x012c, 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*
0x3bb0fc…3bb290 Dummy {f00=0x012c, 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
0x3bb290…3bb424 Dummy {f00=0x012c, 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*
0x3bb424…3bb5b8 Dummy {f00=0x012c, f01=0x0190, f02=»=============== * j J P* * ( J P* REFERENCED IN: MOVCOM,MOVCLA * v J P*
0x3bb5b8…3bb74c Dummy {f00=0x012c, f01=0x0190, f02=» * ` J P* * J P* EXIT: IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2 * l J P* * J P
0x3bb74c…3bb8e0 Dummy {f00=0x012c, f01=0x0190, f02=» * V J P* SUBROUTINES: * J P* * b J P********************************************************************* P EJECT
0x3bb8e0…3bba74 (1, 1010) Dummy {f00=0x012c, 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
0x3bba74…3bbc08 Dummy {f00=0x012c, 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**
0x3bbc08…3bbd9c Dummy {f00=0x012c, f01=0x018e, f02=» ** x : P** OUTPUT: BIT=BIT NUMBER ** & : P** CONDITION CODE IN PSW ON RETURN ** d : P****************************************************** P PSHIFT EQU * $ P CM BIT+
0x3bbd9c…3bbf30 Dummy {f00=0x012c, 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*
0x3bbf30…3bc0c4 Dummy {f00=0x012c, f01=0x0190, f02=» REAL TID IN AUXILIARY TABLE FOR DEBUGGER * @ P* ====================================================== * 6 @ P* * z @ P* * @ P* REF
0x3bc0c4…3bc258 Dummy {f00=0x012c, f01=0x018e, f02=»RY: A5 - POINTER TO NUMBER OF COPIES * @ P* A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB * > @ P* * @ P* EXIT: * @
0x3bc258…3bc3ec Dummy {f00=0x012c, f01=0x0190, f02=» @ P* * @ P* SUBROUTINES: GETTTB * H @ P* * @ P********************************************************
0x3bc3ec…3bc580 Dummy {f00=0x012c, 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
0x3bc580…3bc714 (1, 1011) Dummy {f00=0x012d, 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
0x3bc714…3bc8a8 Dummy {f00=0x012d, 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
0x3bc8a8…3bca3c Dummy {f00=0x012d, 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**
0x3bca3c…3bcbd0 Dummy {f00=0x012d, 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 *
0x3bcbd0…3bcd64 Dummy {f00=0x012d, 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
0x3bcd64…3bcef8 Dummy {f00=0x012d, 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 **
0x3bcef8…3bd08c Dummy {f00=0x012d, 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
0x3bd08c…3bd220 Dummy {f00=0x012d, 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
0x3bd220…3bd3b4 (1, 1012) Dummy {f00=0x012d, 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
0x3bd3b4…3bd548 Dummy {f00=0x012d, 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?
0x3bd548…3bd6dc Dummy {f00=0x012d, 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
0x3bd6dc…3bd870 Dummy {f00=0x012d, 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
0x3bd870…3bda04 Dummy {f00=0x012d, 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
0x3bda04…3bdb98 Dummy {f00=0x012d, 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
0x3bdb98…3bdd2c Dummy {f00=0x012d, 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
0x3bdd2c…3bdec0 Dummy {f00=0x012d, 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********************************************
0x3bdec0…3be054 (1, 1013) Dummy {f00=0x012d, 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
0x3be054…3be1e8 Dummy {f00=0x012d, 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
0x3be1e8…3be37c Dummy {f00=0x012d, 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
0x3be37c…3be510 Dummy {f00=0x012d, 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**********
0x3be510…3be6a4 Dummy {f00=0x012d, 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
0x3be6a4…3be838 Dummy {f00=0x012d, 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
0x3be838…3be9cc Dummy {f00=0x012d, 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
0x3be9cc…3beb60 Dummy {f00=0x012d, 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**
0x3beb60…3becf4 (1, 1014) Dummy {f00=0x012d, 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
0x3becf4…3bee88 Dummy {f00=0x012d, 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
0x3bee88…3bf01c Dummy {f00=0x012d, f01=0x0190, f02=» P EJECT B P************************************************************** B P* * X B P* * B P* B:RSWT - BUILD REAL SWB CONTROL T
0x3bf01c…3bf1b0 Dummy {f00=0x012d, 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 -
0x3bf1b0…3bf344 Dummy {f00=0x012d, f01=0x0190, f02=» * B P* * : B P* WORK REGISTERS: A1-A7 * B P* *
0x3bf344…3bf4d8 Dummy {f00=0x012d, 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
0x3bf4d8…3bf66c Dummy {f00=0x012d, 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
0x3bf66c…3bf800 Dummy {f00=0x012d, 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
0x3bf800…3bf994 (1, 1015) Dummy {f00=0x012e, 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
0x3bf994…3bfb28 Dummy {f00=0x012e, 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
0x3bfb28…3bfcbc Dummy {f00=0x012e, 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
0x3bfcbc…3bfe50 Dummy {f00=0x012e, 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
0x3bfe50…3bffe4 Dummy {f00=0x012e, f01=0x0190, f02=»F RECORD ~ 0 P ADK A3,1 INCREMENT NO OF CHARACTERS TO MOVE P CALL MOVE D P ADKL A10,2 SKIP NEXT RECORD V P* z . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER ( P CW A8,PLDADR+STKEND END OF BUFFER? P RF(L) COR:48 NO! P* ( P C
0x3bffe4…3c0178 Dummy {f00=0x012e, f01=0x018e, f02=»A5,EINPBF+STKEND CURRENT POSITION IN CONF. DATA =6 8 P SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 : P ST A5,DCBLK+STKCOM SAVE =6 v PCOR:30 EQU * P LCR A5,A4 GET CHARACTER P CCK A5,';;' END OF RECORD? P RF(E) COR:40 YES!
0x3c0178…3c030c Dummy {f00=0x012e, f01=0x0190, f02=» h P RB(E) MEMOFL YES! & P ADK A1,1 INCREMENT BUFFER POINTER " * P ADK A3,1 INCREMENT CHARACTER COUNTER L & P ADK A4,1 INCREMENT RECORD POINTER z P RB COR:30 LOOP PCOR:40 EQU * " P LC A5,1,A4 GET NEXT CHARACTER P CCK A5,';;' TWO S
0x3c030c…3c04a0 Dummy {f00=0x012e, f01=0x0190, f02=»D b PCOR:45 EQU * 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION P LDR A1,A8 START OF RECORD T P CALL MOVE v ( P ADKL A10,1 INCREMENT RECORD COUNTER & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! PCOR:48 EQU *
0x3c04a0…3c0634 (1, 1016) Opaque[0x194]
0x3c0634…3c07c8 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0478, f03=0x0000}
0x3c0634…3c07c8 IdxSect {
0x3c0634…3c07c8 f00 = 0x0023 // 0x3c0634 @0x0
0x3c0634…3c07c8 f01 = 0x0070 // 0x3c0636 @0x2
0x3c0634…3c07c8 gno = [ // 0x3c0638 @0x4
0x3c0634…3c07c8 [0x00]: C0x0023.0x3.0
0x3c0634…3c07c8 [0x01]: C0x0024.0x0.0
0x3c0634…3c07c8 [0x02]: C0x0024.0x1.0
0x3c0634…3c07c8 [0x03]: C0x0024.0x2.0
0x3c0634…3c07c8 [0x04]: C0x0025.0x3.0
0x3c0634…3c07c8 [0x05]: C0x0026.0x0.0
0x3c0634…3c07c8 [0x06]: C0x0026.0x1.0
0x3c0634…3c07c8 [0x07]: C0x0026.0x2.0
0x3c0634…3c07c8 [0x08]: C0x0026.0x3.0
0x3c0634…3c07c8 [0x09]: C0x0027.0x0.0
0x3c0634…3c07c8 [0x0a]: C0x0027.0x1.0
0x3c0634…3c07c8 [0x0b]: C0x0027.0x2.0
0x3c0634…3c07c8 [0x0c]: C0x0027.0x3.0
0x3c0634…3c07c8 [0x0d]: C0x0028.0x0.0
0x3c0634…3c07c8 [0x0e]: C0x0028.0x1.0
0x3c0634…3c07c8 [0x0f]: C0x012e.0x1.0
0x3c0634…3c07c8 [0x10]: C0x012e.0x2.0
0x3c0634…3c07c8 [0x11]: C0x012e.0x3.0
0x3c0634…3c07c8 [0x12]: C0x012f.0x0.0
0x3c0634…3c07c8 [0x13]: C0x012f.0x1.0
0x3c0634…3c07c8 [0x14]: C0x012f.0x2.0
0x3c0634…3c07c8 [0x15]: C0x012f.0x3.0
0x3c0634…3c07c8 [0x16]: C0x0130.0x0.0
0x3c0634…3c07c8 [0x17]: C0x0130.0x1.0
0x3c0634…3c07c8 [0x18]: C0x0130.0x2.0
0x3c0634…3c07c8 [0x19]: C0x0130.0x3.0
0x3c0634…3c07c8 [0x1a]: C0x0131.0x0.0
0x3c0634…3c07c8 [0x1b]: C0x0131.0x1.0
0x3c0634…3c07c8 [0x1c]: C0x0131.0x2.0
0x3c0634…3c07c8 [0x1d]: C0x0131.0x3.0
0x3c0634…3c07c8 [0x1e]: C0x0132.0x0.0
0x3c0634…3c07c8 [0x1f]: C0x0132.0x1.0
0x3c0634…3c07c8 [0x20]: C0x0132.0x2.0
0x3c0634…3c07c8 [0x21]: C0x0132.0x3.0
0x3c0634…3c07c8 [0x22]: C0x0133.0x0.0
0x3c0634…3c07c8 [0x23]: C0x0133.0x1.0
0x3c0634…3c07c8 [0x24]: C0x0133.0x2.0
0x3c0634…3c07c8 [0x25]: C0x0133.0x3.0
0x3c0634…3c07c8 [0x26]: C0x0134.0x0.0
0x3c0634…3c07c8 [0x27]: C0x0134.0x1.0
0x3c0634…3c07c8 [0x28]: C0x0134.0x2.0
0x3c0634…3c07c8 [0x29]: C0x0134.0x3.0
0x3c0634…3c07c8 [0x2a]: C0x0135.0x0.0
0x3c0634…3c07c8 [0x2b]: C0x0135.0x1.0
0x3c0634…3c07c8 [0x2c]: C0x0135.0x2.0
0x3c0634…3c07c8 [0x2d]: C0x0135.0x3.0
0x3c0634…3c07c8 [0x2e]: C0x0136.0x0.0
0x3c0634…3c07c8 [0x2f]: C0x0136.0x1.0
0x3c0634…3c07c8 [0x30]: C0x0136.0x2.0
0x3c0634…3c07c8 [0x31]: C0x0136.0x3.0
0x3c0634…3c07c8 [0x32]: C0x0137.0x0.0
0x3c0634…3c07c8 [0x33]: C0x0137.0x1.0
0x3c0634…3c07c8 [0x34]: C0x0137.0x2.0
0x3c0634…3c07c8 [0x35]: C0x0137.0x3.0
0x3c0634…3c07c8 [0x36]: C0x0138.0x3.0
0x3c0634…3c07c8 [0x37]: C0x0139.0x0.0
0x3c0634…3c07c8 ]
0x3c0634…3c07c8 }
0x3c07c8…3c095c Dummy {f00=0x0023, 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
0x3c095c…3c0af0 Dummy {f00=0x0023, 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
0x3c0af0…3c0c84 Dummy {f00=0x0023, 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
0x3c0c84…3c0e18 Dummy {f00=0x0023, 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*
0x3c0e18…3c0fac Dummy {f00=0x0023, 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
0x3c0fac…3c1140 Dummy {f00=0x0023, 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
0x3c1140…3c12d4 (1, 1017) Dummy {f00=0x0024, 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
0x3c12d4…3c1468 Dummy {f00=0x0024, 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
0x3c1468…3c15fc Dummy {f00=0x0024, 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
0x3c15fc…3c1790 Dummy {f00=0x0024, 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
0x3c1790…3c1924 Dummy {f00=0x0024, 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
0x3c1924…3c1ab8 Dummy {f00=0x0024, 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
0x3c1ab8…3c1c4c Dummy {f00=0x0024, 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****************************
0x3c1c4c…3c1de0 Dummy {f00=0x0024, 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
0x3c1de0…3c1f74 (1, 1018) Dummy {f00=0x0024, f01=0x0190, f02=» PFT80 EQU X:E PPLCL EQU X:F PPLCR EQU X:G , PVIDEO EQU X:H @ PTEDVCL EQU X:I V PSPDVCL EQU X:J l PNOEXMB EQU X:K PFM EQU X:L PDC EQU X:M P EJECT P* * P* COMMON DISPLACEMENTS AND CONSTANTS P*
0x3c1f74…3c2108 Dummy {f00=0x0024, f01=0x0190, f02=»ER r ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA 6 , PCONSTA EQU 2 START OF CONFIGURATION DATA h ( PDATEND EQU 34 END OF DDIV PROTOTYPE : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER * PFSTPAG
0x3c2108…3c229c Dummy {f00=0x0024, f01=0x0190, f02=»RT ` ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA 6 ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA d $ PM:REL EQU 16 RELOCATION CONSTANT , PSYSBUF EQU 28 START OF TEMPORARY BUFFER 2 PSWBFSA EQU 4 SWB-FILE START ADDR
0x3c229c…3c2430 Dummy {f00=0x0024, f01=0x0190, f02=»N SAVE AREA 1 ~ $ PCOM02 EQU 42 COMMON SAVE AREA 2 $ PCOM03 EQU 44 COMMON SAVE AREA 3 > * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS f , PSWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG $ PCOM04 EQU 50 COMMON SAVE AREA 4 ( PDCBLK EQU 54 START OF DC CON
0x3c2430…3c25c4 Dummy {f00=0x0024, f01=0x0190, f02=»QU 2 ADDRESS TO SCLASS & PCUTENT EQU 4 FIRST USER TASK ENTRY ( PFWTSIZ EQU 6 FWT AREA SIZE IN WORDS H , PAPCTAB EQU 8 CURRENT APPL CONTROL BLOCK t * PSFASAV EQU 10 SAVE START OF FREE AREA * PNBRTSK EQU 12 NUMBER OF TASKS IN CLASS & PTASKID E
0x3c25c4…3c2758 Dummy {f00=0x0024, f01=0x0190, f02=»QU 22 TEMP INTTERRUPT TABLE $ PFWTSTA EQU 24 START OF FWT AREA $ , PLIMIT EQU 26 CURRENT END OF SYSTEM AREA L ( PNBRCOM EQU 28 NUMBER OF COMMON TDC:S | PCLASID EQU 30 CLASS ID " PCONTYP EQU 32 CONNECTION TYPE ( PLCNBR EQU 34 LINE CONNECTION
0x3c2758…3c28ec Dummy {f00=0x0024, f01=0x0190, f02=»K2 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 TERMIN
0x3c28ec…3c2a80 Dummy {f00=0x0024, f01=0x0190, f02=»R t * PNUMDTE EQU 64 NUMBER OF DTE:S DEFINED & PDTENAM EQU 66 SDTE IDENTIFICATION 8 $ PDTETYP EQU 68 TYPE OF CONNECTION b 4 PNASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA * PNALNG EQU 72 LENGTH OF NETWORK ADDRESS , PDTENSA EQU 74 NO OF SUBA
0x3c2a80…3c2c14 (1, 1019) Dummy {f00=0x0024, f01=0x0190, f02=»QU APCTAB CURRENT APPLICATION CONTROL BLOCK 4 PSCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK 4 2 PEXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK l , PNBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS . PSWBBLK EQU FWTFLG START OF SWB CONF. DATA * PSWBN
0x3c2c14…3c2da8 Dummy {f00=0x0024, f01=0x0190, f02=» TASKID NUMBER OF SWB:S P EJECT P* . 0 P* DISPLACEMENT IN APPLICATION CONTROL TABLE 8 P* l 0 PAPLREL EQU 18 APPLICATION RELOCATION BASE =6 v , PAPLIOE EQU 0 APPLICATION RESTART ADDRESS * PAPLLAC EQU 14 APPLICATION LOAD ADDRESS & P
0x3c2da8…3c2f3c Dummy {f00=0x0024, f01=0x018e, f02=»LMMP EQU 8 SEGMENT START MMU ENTRY . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT * . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU " PAPLSWB EQU 2 SWB TABLE ADDRESS , PAPLSTA EQU 16 APPL PROGRAM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE 8
0x3c2f3c…3c30d0 Dummy {f00=0x0024, f01=0x0190, f02=» P* P* CONSTANTS P* " * PS:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS , PSWBLEN EQU 4 LENGTH OF SWB Z ( PSWBSEC EQU 6 DISPL. TO SECTOR LENGTH | 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB PUPNAME EQU 4 PROTOTYPE NAME $ PWBLEN EQ
0x3c30d0…3c3264 Dummy {f00=0x0024, f01=0x0190, f02=» $ P******************************* P , P* TASK DEFINITION BLOCK: 8 PTDBBT EQU 0 1A BLOCK TYPE X ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS z , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTD
0x3c3264…3c33f8 Dummy {f00=0x0024, f01=0x018e, f02=»ERM DEF v $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 7 LINE CONNECTION 8 ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH Z P* * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P* P* COMMON DEVICE DEF. BLOCK: P* PCDBBT EQU 0 1A BLO
0x3c33f8…3c358c Dummy {f00=0x0024, f01=0x0190, f02=» & P* USER WORK BLOCK TYPE DEF. BLOCK P* . PUDBBT EQU 0 1A BLOCK TYPE 8 , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES Z P* ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUD
0x3c358c…3c3720 Dummy {f00=0x0024, f01=0x018e, f02=»ER OFFSET z & PTYPOFS EQU 7 START OF TYPE RECORD , PNANSA EQU 2 NA-NSA RECORD QUALIFIER POS. < " PNAOFS EQU 3 START OF NA NUMBER l $ PNSAOFS EQU 4 START OF NSA RECORD & PDTEFIX EQU 8 FIX PART OF DTE BLOCK P EJECT P****************
0x3c3720…3c38b4 (1, 1020) Dummy {f00=0x0025, f01=0x0190, f02=» PLMP2 EQU /200 NOT USED " PLMP3 EQU /100 MEMORY OVERFLOW " , PLMP4 EQU /80 ERROR IN CONFIGURATION DATA H PLMP5 EQU /40 NOT USED x PLMP6 EQU /20 NOT USED PLMP7 EQU /10 NOT USED PLMP8 EQU 8 NOT USED PLMP9 EQU 4 NOT USED
0x3c38b4…3c3a48 Dummy {f00=0x0025, f01=0x0190, f02=» N F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P* DATA [REL-ADDRESS] * R F P* * F P**********************************
0x3c3a48…3c3bdc Dummy {f00=0x0025, f01=0x018e, f02=»TAB DISPLACEMENTS P* $ PMXSBL EQU 6 SEGMENT BLOCK LENGTH $ " PMXNOX EQU 6 NUMBER OF EXTENTS L * PMX:NOS EQU 8 NUMBER OF SEGMENT TABLES r , PMX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH ( PMX:LEV EQU /0031 MONITOR TASK LEVEL & PMX:LEN EQU 4
0x3c3bdc…3c3d70 Dummy {f00=0x0025, f01=0x0190, f02=» Z 2 PMX:NOX EQU MX:DA2+2 NUMBER OF MONITOR EXTENTS ! , PMX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH ! > . PMX:STA EQU 2 MONITOR EXTENT START ADDRESS ! n P EJECT ! P* ! " P* *********** ! " P* * PAGTAB * ! " P*
0x3c3d70…3c3f04 Dummy {f00=0x0025, f01=0x0190, f02=»U 4 PAGE ADDRESS ! & PPAGSB EQU 6 SEGMENT BLOCK ADDRESS " P EJECT " B P* " P & P* ************* " Z & P* * SEGTAB * " & P* ************* " P* " PSEGPB EQU 6 SEGMENT POINTER " " PSE
0x3c3f04…3c4098 Dummy {f00=0x0025, f01=0x0190, f02=»ISCELLANOUES * " z * P* ******************* # P* # F PBUFLEN EQU -4 # P PDEVIND EQU -2 # f PDWTLEN EQU 6 # | PTDCDD1 EQU 5 # PTDCDD2 EQU 6 # ( PTDCLCN EQU 10 DISP. TO LINE CON. NBR # $ PSLL0 EQU /3940 SLL A1,0 CONSTANT #
0x3c4098…3c422c Dummy {f00=0x0025, f01=0x0190, f02=» : P* * $ : P* * $ B : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * $ : P* * $ : P* IT IS EN
0x3c422c…3c43c0 Dummy {f00=0x0025, f01=0x0190, f02=» * $ x : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDX * % & : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * % d : P* * % : P*
0x3c43c0…3c4554 (1, 1021) Dummy {f00=0x0026, f01=0x0190, f02=» , P LDKL A1,REL+2 RELOCATION ROUTINE ENTRY & ( P AD A1,STKCOM+M:REL RELOCATE ADDRESS & 4 P CFR A8,A1 & ` $ P LDKL A11,SYSLOD START OF SYSLOD & r * P LDKL A2,TCLASS GET ADDRESS TO TCLASS & . P CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? & $ P RF(E) NO:TCL
0x3c4554…3c46e8 Dummy {f00=0x0026, f01=0x0190, f02=»:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS & , P CALL CHPTRS RELOCATE POINTERS IN SCLASS ' 2 0 P ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS ' b P RF CLEAR ' P EJECT ' 4 P*********************************************** ' 4 P* CHPTRS - CHANGE POINTER
0x3c46e8…3c487c Dummy {f00=0x0026, f01=0x018e, f02=» ' h ( P* A11 - SYSLOD START ADDRESS ( ( P* A12 - RELOCATION CONSTANT ( 4 P* ( ` 2 P* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS ( j P* ( P* WORK REGISTER:A1-A7 ( P* ( P* SUBROUTINES: ( P* ( PCHPTRS EQU * ( P
0x3c487c…3c4a10 Dummy {f00=0x0026, f01=0x0190, f02=» PCHPT10 EQU * ) . P SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? ) P RF(Z) CHPT30 NO! ) J P ADK A3,2 NEXT ENTRY ) d $ P LDR* A5,A3 GET POINTER TO CLASS ) P ADR A5,A12 RELOCATE ) P STR A5,A3 STORE ) $ P LDR* A6,A5 GET LENGTH OF CLASS ) PCHPT
0x3c4a10…3c4ba4 Dummy {f00=0x0026, f01=0x0190, f02=»T-ADDRESS ) ~ P LDR A9,A7 GET DWT-ADDRESS * " P CALL CMPADR COMPARE ADDRESSES * 4 P RB(G) CHPT20 DWT IN DRIVER! * Z 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?
0x3c4ba4…3c4d38 Dummy {f00=0x0026, f01=0x0190, f02=»DDRESS ALREADY RELOCATED? * P RB(NZ) CHPT20 YES! + " P ADR A8,A12 RELOCATE + > . P ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED + Z , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS + P RB CHPT20 + PCHPT30 EQU * + P RTN A14 + P EJECT + PCLEAR EQ
0x3c4d38…3c4ecc Dummy {f00=0x0026, f01=0x0190, f02=»RSYS EQU * + P SUK A1,2 , P CMR A1 , $ P CWR A1,A2 , 4 P RB(NE) CLRSYS , F P LDKL A1,CONMON , P AD A1,STKCOM+M:REL , t P ABR A1 , P EJECT , 6 P************************************************** , 6 P* B:TCT - BUILD TASK CONTROL TA
0x3c4ecc…3c5060 Dummy {f00=0x0026, f01=0x0190, f02=»* , P* ENTRY: - P* - P* EXIT: - & P* - 6 & P* WORK REGISTERS: A1-A7,A11,A12 - @ P* - j P* SUBROUTINES: - t P* - . P* TASK CONTROL TABLE LAYOUT - . P* _________________________ - . P*
0x3c5060…3c51f4 (1, 1022) Dummy {f00=0x0026, f01=0x0190, f02=»* _________________________ - . P* I USER TASKS I . 2 . P* __________________________ . d P* . P EJECT . PB:TCT EQU * . * P LD A12,SCTSFA GET START OF FREE AREA . * P ST A12,SCTTCT STORE ADD
0x3c51f4…3c5388 Dummy {f00=0x0026, f01=0x0190, f02=»TENT . f P* AND MONITOR SEGMENT TASKS / P* / 0 ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB / : P RF(Z) BTCT20 NOT PRESENT! / f . P CALL MX:TDB GET FIRST MONITOR EXTENT TDB / 0 PBTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS / P RF(N) BTCT05 NO MORE! /
0x3c5388…3c551c Dummy {f00=0x0026, f01=0x0190, f02=»N) BTCT02 NO MORE! / P LDR* A2,A1 GET TASK ID 0 ( P CALL RESTCT RESERVE ENTRY IN TCTAB 0 : P RB BTCT04 0 f 4 PBTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB 0 x > PBTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES 0 P RF(N) BTCT20 NO MORE!
0x3c551c…3c56b0 Dummy {f00=0x0026, f01=0x0190, f02=» RB(N) BTCT06 NO MORE 0 P LDR* A2,A1 GET TASK ID 1 $ P CALL RESTCT RESERVE ENTRY TCTAB 1 > P RB BTCT08 1 f P XIF 1 x 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 C
0x3c56b0…3c5844 Dummy {f00=0x0026, f01=0x018e, f02=»BTCT30 SUK A7,1 MORE APPLICATIONS? 1 P RF(N) BTCT70 NO! 2 * 6 P LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA 2 D * P AD A11,STKCOM+CONSTA RELOCATE POINTER 2 ~ 2 P ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY 2 P LCR A2,A11 GET BLOCK TYPE 2 ( P CCK
0x3c5844…3c59d8 Dummy {f00=0x0026, f01=0x018e, f02=» PBTCT35 EQU * 3 P* 3 0 P* COMPUTE NUMBER OF TASK IN EACH TASK CLASS 3 " P* 3 V PBTCT40 EQU * 3 ` $ P CALL GETTSK GET NUMBER OF TASKS 3 t PBTCT50 EQU * 3 . P ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB 3 ( P SUK A1,1 MOORE TASKS IN THIS CLASS? 3
0x3c59d8…3c5b6c Dummy {f00=0x0026, f01=0x0190, f02=» 3 | PBTCT60 EQU * 4 , P ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK 4 P RB BTCT30 4 L P* 4 ^ 4 P* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB 4 h P* 4 0 PBTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA 4 " P SU A12,SCTTCT COMPUTE LENGTH 4 P ST*
0x3c5b6c…3c5d00 Dummy {f00=0x0026, f01=0x0190, f02=»* * 4 : P* RESTCT - RESERVE ENTRY IN TCTAB * 5 > : P* =============================== * 5 | : P* * 5 : P* REFERENCED IN
0x3c5d00…3c5e94 (1, 1023) Dummy {f00=0x0026, f01=0x018e, f02=» ID * 5 t : P* A12 - NEXT FREE ENTRY IN TCTAB * 6 " : P* * 6 ` : P* EXIT: A12 - NEXT FREE ENTRY IN TCTAB * 6 : P*
0x3c5e94…3c6028 Dummy {f00=0x0026, f01=0x0190, f02=» 6 X : P* SUBROUTINES: * 7 : P* * 7 F : P***************************************************** 7 PRESTCT EQU * 7 P LDR A3,A12 GET END OF TCTAB 7 PREST10 SUK A3,
0x3c6028…3c61bc Dummy {f00=0x0026, f01=0x0190, f02=»DKL A12,2 NEXT FREEE ENTRY IN TCTAB 7 PREST20 RTN A14 RETURN 8 , , PREST30 CWR* A2,A3 CHECK IF SAME TASK ID 8 J P RB(NE) REST10 NOT THE SAME 8 z " P RB REST20 COINCIDENCE: RETURN 8 P XIF 8 P IFF FM=0 8 P EJECT 8 8 P************************
0x3c61bc…3c6350 Dummy {f00=0x0026, f01=0x0190, f02=» * 8 h 8 P* ============================= * 9 8 P* * 9 P 8 P*************************************************** 9 8 P* * 9 8 P* R
0x3c6350…3c64e4 Dummy {f00=0x0026, f01=0x0190, f02=»NUMBER OF FM-FILES PER TASK * 9 | 8 P* SCTNOF - NUMBER OF GENERAL FM-FILES * : ( 8 P* SCTFWL - FILE WORK TABLE LENGTH IN * : d 8 P* BYTES * : 8 P*
0x3c64e4…3c6678 Dummy {f00=0x0026, f01=0x0190, f02=»* * : 8 P* WORK REGISTERS: A2,A3 * ; < 8 P* * ; x 8 P* SUBROUTINES: ERROR,MULT * ; 8 P*
0x3c6678…3c680c Dummy {f00=0x0026, f01=0x0190, f02=»FOR * ; h 8 P* FILE WORK TABLES. * < 8 P* SIZE OF THE AREA RESERVED IS GIVEN BY THE * < P 8 P* FORMULA: A=L*(G+N*T) * < 8 P* WHERE A=AREA SIZE IN BYTES * < 8 P*
0x3c680c…3c69a0 Dummy {f00=0x0026, f01=0x0190, f02=»R OF FM-FILES PER TASK * < | 8 P* N=NUMBER OF USER TASKS * = ( 8 P* * = d 8 P*************************************************** = P EJECT = PB:FWT EQU * = & P LD* A2,SC
0x3c69a0…3c6b34 (1, 1024) Dummy {f00=0x0026, f01=0x0190, f02=»ER OF USER TASKS = 2 P LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK > P CALL MULT MULTIPLY > N 0 P AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES > j 0 P ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES > , P LD A2,SCTFWL GET FILE WORK TABLE LENGTH > P CALL
0x3c6b34…3c6cc8 Dummy {f00=0x0026, f01=0x0190, f02=»,STKEND+FWTSIZ SAVE FWT AREA SIZE IN WORDS > ( P LD A2,SCTSFA GET START OF FREE AREA ? 2 , P ST A2,SCTFWT STORE ADDRESS TO FIRST FWT ? ^ 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
0x3c6cc8…3c6e5c Dummy {f00=0x0026, f01=0x0190, f02=»R A2 CLEAR FWT AREA ? " P ADK A2,2 RESERVE ANOTHER WORD @ $ P SUK A3,1 DECREMENT WORD COUNTER @ B * P RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW @ j , 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. @
0x3c6e5c…3c6ff0 Dummy {f00=0x0026, f01=0x0190, f02=» * @ l * P************************************** A P* A 8 ( P* NUMBER OF BLOCKS TO BE GENERATED: A B ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) A n $ P* WHERE N IS A SYSTEM CONSTANT A $ P* DEFINED AT SYSTEM GENERATION A P* A P* A P* REFEREN
0x3c6ff0…3c7184 Dummy {f00=0x0026, f01=0x018e, f02=»XIT: BLOCKS - POINTER TO FIRST BLOCK A P* B . $ P* WORK REGISTERS: A1,A2,A7,A12 B 8 P* B ` P* SUBROUTINES: BLKGEN B j 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 PO
0x3c7184…3c7318 Dummy {f00=0x0026, f01=0x0190, f02=» B 0 P* GET NUMBER OF BLOCKS PER TASK TO GENERATE C P* C < P LD A2,SCTBLK C F 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA C 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
0x3c7318…3c74ac Dummy {f00=0x0026, f01=0x0190, f02=» AD A2,SCTNOF C P CALL BLKGEN D P* D * P* GENERATE END BLOCK D 4 P* D R P STR A1,A12 D P ST A1,2,A12 D p P ST A1,4,A12 D P* D F P* CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A D 0 P* IF NOT - USE LAST MONITOR
0x3c74ac…3c7640 Dummy {f00=0x0026, f01=0x0190, f02=» P LDK A1,4 BUFFER SIZE E 0 P ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE E " P ADKL A12,2 E V 0 P ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS E j 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
0x3c7640…3c77d4 (1, 1025) Dummy {f00=0x0027, f01=0x018e, f02=»*********** E v P* F P* REFERENCED IN: MONBLK F P* F @ P* ENTRY: A1=0 F J 4 P* A2 - NUMBER OF BLOCKS TO BE GENERATED F b $ P* A12 - NEXT FREE ENTRY F P* F P* EXIT: A1=0 F " P* A12 - NEXT FREE ENTRY F P
0x3c77d4…3c7968 Dummy {f00=0x0027, f01=0x0190, f02=» 0 P* -------------------- G 0 P* I DATA *+6 I G 8 0 P* -------------------- G l 0 P* I DATA 0 I G 0 P* -------------------- G 0 P
0x3c7968…3c7afc Dummy {f00=0x0027, f01=0x0190, f02=»QU * G P LDR A3,A2 H PBLK:10 EQU * H P RF(Z) BLKEX H 4 $ P LDK A4,3 NUMBER OF WORDS/BLOCK H H 0 PBLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? H p P RF(NE) BLK:30 NOT YET! H * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW H P CALL ERROR H * PBL
0x3c7afc…3c7c90 Dummy {f00=0x0027, f01=0x0190, f02=»4,A12 H P ST A1,-2,A12 I P SUK A3,1 I $ P RB BLK:10 I 6 PBLKEX EQU * I H P RTN A14 I P IFF EDM=0 I l P EJECT I ~ H P******************************************************************* I H P*
0x3c7c90…3c7e24 Dummy {f00=0x0027, f01=0x0190, f02=»======================== * I p H P* * J , H P* REFERENCED IN: SYSLDM * J x H P* *
0x3c7e24…3c7fb8 Dummy {f00=0x0027, f01=0x0190, f02=» * J H P* EXIT: * K H P* * K d H P* WORK REGISTERS: A4 * K H P*
0x3c7fb8…3c814c Dummy {f00=0x0027, f01=0x0190, f02=» H P* * L H P******************************************************************* L P 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 DI
0x3c814c…3c82e0 Dummy {f00=0x0027, f01=0x018e, f02=»GET ADDRESS TO START-ADDRESS TABLE L " P RF(NZ) BMX05 ALREADY DEFINED M * $ P LD A4,SCTSFA START OF FREE AREA M P 0 P ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE M x 4 P LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE M & P ST* A4,SCTMOX STORE IN FIRST WORD M
0x3c82e0…3c8474 (1, 1026) Dummy {f00=0x0027, f01=0x0190, f02=» M PBMX01 SUK A3,1 MORE EXTENTS? N P RF(N) BMX03 NO N , * P ADK A2,2 ADDRESS NUMBER OF TASK ID:S N D ( P LDR* A6,A2 GET NUMBER OF TASK ID:S N r ( 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
0x3c8474…3c8608 Dummy {f00=0x0027, f01=0x0190, f02=»TABLE N f , P AD A4,SCTSFA END OF START-ADDRESS TABLE O , P ST A4,SCTSFA UPDATE START OF FREE AREA O > P LDR A11,A4 GET TABLE END O n " P LDR A9,P GET CURRENT LOCATION O " P CALL CMPADR COMPARE ADDRESSES O P RF(NG) BMXS05 OK O * P LDKL A1,LMP3 INDI
0x3c8608…3c879c Dummy {f00=0x0027, f01=0x0190, f02=»K A7,1 DECREMENT NUMBER OF EXTENTS O P RF(N) BMX99 NO MORE P * * P LD A12,SCTSFA GET START OF FREE AREA P F 6 P ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK P t 4 P ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK P , P ST A12,SCTSFA UPDATE START OF FRE
0x3c879c…3c8930 Dummy {f00=0x0027, f01=0x0190, f02=»ID:S P h P RB(N) BMX10 NO MORE Q P ADK A1,2 NEXT TASK ID Q ( P CALL MXTTAB Q F P RB BMX20 Q Z PBMX99 RTN A14 RETURN Q l P EJECT Q H P******************************************************************** Q H P*
0x3c8930…3c8ac4 Dummy {f00=0x0027, f01=0x0190, f02=»=================================== * Q z H P* * R 6 H P* ENTRY: A1 -POINTER TO TASK ID IN MXSTAB * R H P* A5 - POINTER TO MONITOR EXTENT BLOCK
0x3c8ac4…3c8c58 Dummy {f00=0x0027, f01=0x0190, f02=» * R f H P* EXIT: A1 - POINTER TO TASK ID IN MXSTAB * S " H P* A5 - POINTER TO MONITOR EXTENT BLOCK * S n H P* * S H P*
0x3c8c58…3c8dec Dummy {f00=0x0027, f01=0x0190, f02=» * S R H P* SUBROUTINES: IMXTT,STRMOX,INBIMA * T H P* * T Z H P******************************************************************** T P EJECT T PMXTTAB E
0x3c8dec…3c8f80 Dummy {f00=0x0027, f01=0x0190, f02=» P LDR* A2,A1 GET TASK ID U P CALL STRMOX STORE IN MOXTAB U $ & P LD A2,MX:STA,A5 GET START ADDRESS U H 4 P LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6 U r , P ST A2,APLSTA,A3 STORE START ADDRESS =6 U P CALL STRMOX STORE IN MOXTAB U " P LDR* A2,A
0x3c8f80…3c9114 (1, 1027) Dummy {f00=0x0027, f01=0x0190, f02=»ENT BASE ADDRESS U l & P ADK A2,12 5 WORDS FOR DEBUGGER =9 V 0 P ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA V B : P LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK V v P SUK A2,2 =10 V 8 P ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART V . P S
0x3c9114…3c92a8 Dummy {f00=0x0027, f01=0x0190, f02=»LOCK V f 8 P ST A3,TTB:AP,A12 STORE EXTENT CONTROL BLOCK ADDRESS W " P LD A2,SCTOPT GET OPTION WORD W H P ANK A2,/20 EMM? W n P RF(Z) MXTT20 NO W & 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
0x3c92a8…3c943c Dummy {f00=0x0027, f01=0x0190, f02=»******************************* W 2 P* * X ( 2 P* STRMOX - STORE START ADDRRESS IN MOXTAB * X ^ 2 P* ======================================= * X 2 P* * X 2 P* REFER
0x3c943c…3c95d0 Dummy {f00=0x0027, f01=0x0190, f02=» * X l 2 P* * Y 2 P* EXIT: * Y H 2 P* * Y ~ 2 P* WORK REGISTERS: * Y 2 P*
0x3c95d0…3c9764 Dummy {f00=0x0027, f01=0x0190, f02=»***************************************** Y PSTRMOX EQU * Z 2 & P LD* A3,SCTMOX GET CURRENT LENGTH Z F , P AD A3,SCTMOX ADDRESS TO NEXT FREE ENTRY Z p " P STR A2,A3 STORE START ADDRESS Z P IM* SCTMOX INCREMENT LENGTH Z P IM* SCTMOX TWICE Z P RTN
0x3c9764…3c98f8 Dummy {f00=0x0027, f01=0x0190, f02=» * Z f 8 P* IMXTT - INIT MMU TABLE FOR MONITOR EXTENT TASK * [ 8 P* ============================================== * [ N 8 P* * [ 8 P* REFERENCED IN: MXTTAB * [ 8 P*
0x3c98f8…3c9a8c Dummy {f00=0x0027, f01=0x0190, f02=»NTRY POINTER * [ z 8 P* * & 8 P* EXIT: * b 8 P* * 8 P* WORK REGISTERS: A2,A3,A4,A9,A11
0x3c9a8c…3c9c20 Dummy {f00=0x0027, f01=0x0190, f02=» * 8 P**************************************************** ] : P EJECT ] v PIMXTT EQU * ] P LDR A2,A12 GET TTAB ENTRY ] * P ADKL A2,TTB:MT GET START OF MMU TABLE ] . P LDR* A3,A5 GET PHYSICAL ADDRESS
0x3c9c20…3c9db4 (1, 1028) Dummy {f00=0x0027, f01=0x0190, f02=»T 12 BITS ] & P LDKL A9,/1000 PHYSICAL PAGE SIZE ^ P SUR A9,A4 SAVE ^ < ( P LD A11,MX:LEN,A5 GET EXTENT LENGTH ^ T 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? ^ P RF(G) IMX10 NO! ^ & P XRR A11,A11 INDICATE SINGLE ENTRY ^ P RF IMX20 ^ < P
0x3c9db4…3c9f48 Dummy {f00=0x0027, f01=0x0190, f02=»DDRESS ^ r & P ADK A2,2 INCREMENT ENTRY POINTER _ " P ADKL A11,0 ONE ENTRY ENOUGTH? _ 8 P RF(Z) IMX99 YES! _ ^ P RF(NN) IMX30 <32KB _ x $ P SUKL A11,/1000 DECREMENT LENGTH _ P RB IMX20 _ & PIMX30 STR A3,A2 STORE PAGE ADDRESS _ ( P ADKL A3,/400 IN
0x3c9f48…3ca0dc Dummy {f00=0x0027, f01=0x0190, f02=»EQU * =6 _ " P LDR A4,A12 GET TTAB ENTRY =6 ` . P ADKL A4,TTB:MT+32 GET END OF MMU-TABLE =6 ` 8 P LDKL A3,/FC00 =6 ` j PIMX100 EQU * =6 ` , 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 M
0x3ca0dc…3ca270 Dummy {f00=0x0027, f01=0x0190, f02=»******************************************************** ` < P* * a @ < P* B:MSEG - BUILD MONITOR TASK SEGMENT TABLES & TTABS * a < P* ================================================== * a < P*
0x3ca270…3ca404 Dummy {f00=0x0027, f01=0x0190, f02=» * a < P* ENTRY: * b 0 < P* * b p < P* EXIT: * b < P*
0x3ca404…3ca598 Dummy {f00=0x0027, f01=0x0190, f02=» * b p < P* SUBROUTINES: MX:MST,MX:STD,BMSTAB,CHKTAD,BMXSTT * c < P* * c ` < P******************************************************** c P EJECT c PB:MSEG EQU * c 2 P CALL
0x3ca598…3ca72c Dummy {f00=0x0027, f01=0x0190, f02=» SEGTABS c l : P LDR A8,A1 SAVE POINTER TO FIRST MONITOR SEGMENT TABLE d 6 P CALL MX:STD FIND FIRST MONITOR SEGMENT TABLE TASK d N P DEFINITION BLOCK d > PBMSG10 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES d P RF(N) BMSG99 NO MORE! d < P CM
0x3ca72c…3ca8c0 Dummy {f00=0x0027, f01=0x0190, f02=»TER TO NUMBER OF SEGMENTS d x , P CALL BMSTAB BUILD MONITOR SEGMENT TABLE e " . P LDR* A7,A1 GET NUMBER OF TASKS IN SEGTAB e R PBMSG20 ADK A1,2 NEXT TASK ID e , P SUK A7,1 DECREMENT NUMBER OF TASK ID:S e P RB(N) BMSG10 NO MORE! e . P CALL CHKTAD CHECK
0x3ca8c0…3caa54 (1, 1029) Dummy {f00=0x0028, f01=0x0190, f02=»A10,STKEND+SCBTAB GET SEGMENT CONTROL BLOCK e 2 P RF(NZ) BMSG25 SEGMENT CONTROL BLOCK GENERATED f 4 * P LD A12,SCTSFA GET START OF FREE AREA f j P LDR A10,A12 SAVE f 6 P ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK f , P ST A12,SCTSFA UPDATE START
0x3caa54…3cabe8 Dummy {f00=0x0028, f01=0x0190, f02=»POINTER f d < P LD A10,TTB:AP,A12 GET ADDRESS TO SEGMENT CONTROL BLOCK g 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE g P * P ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES g 2 P ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES g ( P LDKL A2,/F000 END OF LOGICAL
0x3cabe8…3cad7c Dummy {f00=0x0028, f01=0x0190, f02=»K-MULTIPLE? g | 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 X 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 ENTRIE
0x3cad7c…3caf10 Dummy {f00=0x0028, f01=0x0190, f02=»T h l . P ADKL A3,TTB:CB DISPL TO END OF MMU TABLE i 4 P ST A3,APLMMP,A10 STORE IN SEGMENT CONTROL TABLE i < 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE i t 0 P ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES i 2 P ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIP
0x3caf10…3cb0a4 Dummy {f00=0x0028, f01=0x0190, f02=» i j P RB(L) BMSG20 NO j * P ST A3,SCTPSZ UPDATE MAX SEGMENT SIZE j P RB BMSG20 j N PBMSG99 RTN A14 RETURN j ` P EJECT j ~ > P********************************************************** j > P* *
0x3cb0a4…3cb238 Dummy {f00=0x0028, f01=0x0190, f02=» > P* * k > P* REFERENCED IN: B:MSEG * k F > P* * k > P* ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS * k
0x3cb238…3cb3cc Dummy {f00=0x0028, f01=0x0190, f02=»* EXIT: A5 - SEGMENT TABLE ADDRESS * k > P* * l B > P* WORK REGISTERS: A2,A3,A9,A11 * l > P* * l > P
0x3cb3cc…3cb560 Dummy {f00=0x0028, f01=0x0190, f02=»****************************************************** l P EJECT m > PBMSTAB EQU * m L * P STR A1,A15 SAVE REGISTER A1 ON STACK m ` ( 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 TABL
0x3cb560…3cb6f4 (1, 1030) Dummy {f00=0x0028, f01=0x0190, f02=»RE IN SEGMENT TABLE m < P ADS A9,STKCOM+TOTSGM INCREMENT TOTAL NUMBER OF SEGMENTS n " P ADK A5,2 SEGMENT TABLE ENTRY n P LDR A3,A5 SAVE n P* n P* BUILD SEGMENT BLOCK 0 n P* n ( P LDKL A2,/8400 STATUS FOR SEGMENT 0 n ( P STR A2,A3 STO
0x3cb6f4…3cb888 Dummy {f00=0x0028, f01=0x0190, f02=»D+LIMIT GET END OF SYSTEM AREA n * P LDR A11,A3 GET END OF SEGMENT BLOCKS o & " P CALL CMPADR COMPARE ADDRESSES o T P RF(NG) BMST25 OK o z * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW o P CALL ERROR o & PBMST25 LDR* A2,A8 GET SEGMENT TYPE o P SRL A2,
0x3cb888…3cba1c Dummy {f00=0x0028, f01=0x0190, f02=»DISC PAGING? o P RF(Z) BMST40 NO! p P* p . * P* DISC PAGING & DISC RESIDENT SEGMENT p 8 P* p f ( P LD A1,SCTMXS GET ADDRESS TO MXSTAB p p 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
0x3cba1c…3cbbb0 Dummy {f00=0x0028, f01=0x0190, f02=» p v P ADK A1,1 ADD CARRY q P RF(P) BMST30 NOT OVERFLOW q $ ( P LDKL A1,LMP10 DISC ADDRESS OVERFLOW q F P CALL ERROR q r 4 PBMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT q 4 P STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 q 6 P ST A2,2,A3 STORE
0x3cbbb0…3cbd44 Dummy {f00=0x0028, f01=0x0190, f02=»DKL A2,/8800 STATUS FOR DISC RESIDENT SEGMENT q & P STR A2,A3 STORE IN SEGMENT BLOCK r 6 ( PBMST50 LD A9,4,A8 GET SEGMENT LENGTH r ` 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
0x3cbd44…3cbed8 Dummy {f00=0x0028, f01=0x0190, f02=»NCREMENT POINTER IN MXSTAB r 0 P LD A1,STKEND+SGMCNT GET NUMBER OF SEGMENTS s " P SUK A1,1 s V P RB(NZ) BMST20 MORE SEGMENTS s h " 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
0x3cbed8…3cc06c Dummy {f00=0x0028, f01=0x0190, f02=» * s r @ P* CHKTAD - CHECK IF TASK ALREADY DEFINED * t & @ P* ====================================== * t j @ P* * t @ P* REFERENCED IN: B:M
0x3cc06c…3cc200 Dummy {f00=0x0028, f01=0x0190, f02=»R TO TASK ID * t z @ P* FOR MONITOR SEGMENT TASK * u . @ P* * u r @ P* EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED * u @ P* A12
0x3cc200…3cc394 (1, 1031) Dummy {f00=0x012e, f01=0x018e, f02=»ERS: A2,A3 * u @ P* * v 6 @ P* SUBROUTINES: PSW * v z @ P* * v @ P******
0x3cc394…3cc528 Dummy {f00=0x012e, f01=0x0190, f02=» P AD A2,SCTTCT END OF TCTAB w . PCHKT20 SUK A2,2 DECREMENT POINTER IN TCTAB w & " P CW A2,SCTTCT START OF TCTAB? w X * P RF(E) CHKT30 YES: ALL TASKS CHECKED! w ~ $ P LDR* A3,A2 GET POINTER TO TTAB w P LD A3,TTB:ID,A3 GET TASK ID w ( P CWR* A3,A1 EQUA
0x3cc528…3cc6bc Dummy {f00=0x012e, f01=0x0190, f02=» TASK NOT FOUND w v . PCHKT50 CFI A14,PSW,A13 STORE PSW ON STACK x P RTN A14 x J P EJECT x Z H P******************************************************************* x h H P* * x H P*
0x3cc6bc…3cc850 Dummy {f00=0x012e, f01=0x0190, f02=» x L H P* * y H P* REFERENCED IN: MXTTAB,B:MSEG * y T H P* * y H P* ENTRY:
0x3cc850…3cc9e4 Dummy {f00=0x012e, f01=0x0190, f02=»2 - TTAB ADDRESS * y H P* * z @ H P* WORK REGISTERS: A2,A9,A10,A11 * z H P*
0x3cc9e4…3ccb78 Dummy {f00=0x012e, f01=0x0190, f02=» * z p H P******************************************************************* { , PBMXSTT EQU * { x * 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
0x3ccb78…3ccd0c Dummy {f00=0x012e, f01=0x0190, f02=»A10,TTB:AM INCLUDE LENGTH { P RF BMXS40 | " ( PBMXS20 LD A2,SCTOPT GET OPTION WORD | 4 P ANK A2,1 MMU OPTION? | ` P RF(Z) BMXS30 NO! | ~ . P SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB | $ P SUKL A10,TTB:MT INCLUDE LENGTH | P RF BMXS40 | ( PBMXS
0x3ccd0c…3ccea0 Dummy {f00=0x012e, f01=0x0190, f02=»GING | d & P SUKL A10,TTB:CB INCLUDE IN LENGTH } 4 PBMXS40 AD A10,SCTSFA COMPUTE START OF FREE AREA } 6 P LDR A9,A10 SAVE } n 0 P LD A11,STKEND+LIMIT GET END OF SYSTEM AREA } " P CALL CMPADR MEMORY OVERFLOW? } P RF(NL) BMXS50 NO! } P LDKL A1,LMP3
0x3ccea0…3cd034 (1, 1032) Dummy {f00=0x012e, f01=0x0190, f02=»GTH } r * P AD A2,SCTTCT COMPUTE NEXT FREE ENTRY ~ " P STR A12,A2 STORE TTAB ADDRESS ~ : ( P IM* SCTTCT INCREMENT CURRENT LENGTH ~ ` 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 MONITO
0x3cd034…3cd1c8 Dummy {f00=0x012e, f01=0x0190, f02=»ORE PROGRAM STATUS WORD ~ | : P LD A2,STKEND+EXCTAB GET EXTENT CONTROL BLOCK ADDRESS $ P ST A2,TTB:AP,A12 STORE IN TTAB ^ P LDK A2,2 0 P ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH P RTN A14 RETURN P EJECT B P**********************
0x3cd1c8…3cd35c Dummy {f00=0x012e, f01=0x018e, f02=»================================= * ~ B P* * 4 B P* REFERENCED IN: MX:MST * z B P* * B P*
0x3cd35c…3cd4f0 Dummy {f00=0x012e, f01=0x0190, f02=» B P* EXIT: A1 - POINTER TO FIRST MONITOR EXTENT BLOCK * B P* A5 - POINTER TO NUMBER OF SEGTABS * J B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MONITOR EXTENTS
0x3cd4f0…3cd684 Dummy {f00=0x012e, f01=0x018e, f02=» * b B P* * B P* SUBROUTINES: * ^ B P* * B P******************************
0x3cd684…3cd818 Dummy {f00=0x012e, f01=0x018e, f02=» ~ P RF(Z) MEB99 NOT PRESENT * P LD A2,MX:NOS,A7 GET NUMBER OF SEGTABS ( P LDR A6,A2 SAVE V & P LDR A1,A7 SAVE ADDRESS TO MXSTAB n * P LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS , P ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS P LDR A5,A1 SAVE
0x3cd818…3cd9ac Dummy {f00=0x012e, f01=0x0190, f02=» z P EJECT B P************************************************************** B P* * B P* MX:MST - GET FIRST MONITOR SEGMENT TABLE * B P* =====================
0x3cd9ac…3cdb40 Dummy {f00=0x012e, f01=0x0190, f02=» * t B P* * * B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB * p B P* * B P* EXIT: A1
0x3cdb40…3cdcd4 (1, 1033) Dummy {f00=0x012e, f01=0x0190, f02=» A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MONITOR EXTENTS * > B P* * B P* WORK REGISTERS: A2 *
0x3cdcd4…3cde68 Dummy {f00=0x012e, f01=0x0190, f02=» * V B P* * B P************************************************************** R P EJECT PMX:MST EQU * : P CALL MX:MEB GET POINTER TO FIRST MONITOR EXTENT BLOCK 2 P LDR A2,A7 GET N
0x3cde68…3cdffc Dummy {f00=0x012e, f01=0x018e, f02=»TS n 4 P ADK A1,MX:EBL ADDRESS NEXT MONITOR EXTENT BLOCK P RB MST10 B PMST99 RTN A14 RETURN T P EJECT p B P************************************************************* ~ B P* * B
0x3cdffc…3ce190 Dummy {f00=0x012e, f01=0x0190, f02=» P B P* * B P* REFERENCED IN: MX:STD * N B P* * B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB
0x3ce190…3ce324 Dummy {f00=0x012e, f01=0x0190, f02=»ENT TASK * f B P* DEFINITION BLOCK * B P* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * b B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MO
0x3ce324…3ce4b8 Dummy {f00=0x012e, f01=0x0190, f02=»,A3 * z B P* * 0 B P* SUBROUTINES: MX:MST * v B P* * B P******
0x3ce4b8…3ce64c Dummy {f00=0x012e, f01=0x0190, f02=» TABLE j , P LDR A2,A6 GET NUMBER OF SEGMENT TABLES . PTDB10 ADK A5,2 ADDRESS NUMBER OF SEGMENTS > * P SUK A2,1 DECREMENT NUMBER OF SEGTABS p P RF(N) TDB99 NO MORE SEGTABS & P LDR* A3,A5 GET NUMBER OF SEGMENTS 0 PTDB20 SUK A3,1 DECREMENT NUM
0x3ce64c…3ce7e0 Dummy {f00=0x012e, f01=0x0190, f02=»B99 RTN A14 RETURN P EJECT B P************************************************************** ( B P* * n B P* MS:STD - GET FIRST MONITOR SEGMENT TASK DEFINITION BLOCK * B P* ===========
0x3ce7e0…3ce974 (1, 1034) Dummy {f00=0x012f, f01=0x0190, f02=»CED IN: B:MXST * B P* * < B P* ENTRY: * B P* *
0x3ce974…3ceb08 Dummy {f00=0x012f, f01=0x0190, f02=» * T B P* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * P B P* A7 - NUMBER OF MONITOR EXTENTS * B P*
0x3ceb08…3cec9c Dummy {f00=0x012f, f01=0x0190, f02=» * h B P* SUBROUTINES: MX:TDB * B P* * d B P************************************************************** P EJECT PMX:STD EQU
0x3cec9c…3cee30 Dummy {f00=0x012f, f01=0x0190, f02=» NUMBER OF MONITOR EXTENTS x P RF(N) STD99 NO MORE EXTENTS " . P LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT F " PSTD20 ADK A1,2 ADDRESS TASK ID x ( P SUK A3,1 DECREMENT NUMBER OF TASKS P RB(NN) STD20 MORE TASKS P RB STD10 NEXT EXTENT P
0x3cee30…3cefc4 Dummy {f00=0x012f, f01=0x0190, f02=»************************ P* P* REFERENCED IN: SYSLDM * P* J P* ENTRY: T P* f 8 P* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES p P* P* WORK REGISERS: A1-A12 P* 8 P* SUBROUTINES: CONVRT,GETTSK,TETTDC,
0x3cefc4…3cf158 Dummy {f00=0x012f, f01=0x0190, f02=» TTB:AM I MMU ALLOCATION I * P* I BIT MAP (4 WORDS) I * * P* I______________________I X * P* TTB:MT I MMU I * P* I TABLE I * P* I 16 I
0x3cf158…3cf2ec Dummy {f00=0x012f, f01=0x0190, f02=» I l * P* I______________________I * P* TTB:SP I SEGTAB POINTER I 8 * P* I______________________I f * P* TTB:SB I SEGM. BLOCK POINTER I * P* I----------------------I * P* TTB:AP I ACB
0x3cf2ec…3cf480 Dummy {f00=0x012f, f01=0x0190, f02=»---------------- z * P* TTB:ID I TASK IDENTIFICATION I * P* ------------------------ F * P* TTB:ST I STATUS/LEVEL I t * P* ------------------------ * P* TTB:PP I PENDING QUEUE I * P*
0x3cf480…3cf614 (1, 1035) Dummy {f00=0x012f, f01=0x018e, f02=»SA I DISPATCH ADDRESS I * P* ------------------------ & * P* I REGISTER I T * P* I SAVE I * P* I AREA I * P* I 14 I
0x3cf614…3cf7a8 Dummy {f00=0x012f, f01=0x0190, f02=» h * P* I SAVE01URATION I * P* I TABLE I 6 * P* : : d * P* : : * P* I______________________I 2 P* TASK SAVE01U
0x3cf7a8…3cf93c Dummy {f00=0x012f, f01=0x0190, f02=» ------------------------------ 0 P* I INDEX/FILCODE I 0 0 P* ------------------------------ d 0 P* I DWT-ADDRESS I 0 P* ------------------------------ 0 P*
0x3cf93c…3cfad0 Dummy {f00=0x012f, f01=0x0190, f02=»---- h 0 P* I INDEX/FILECODE I 0 P* ------------------------------ @ 0 P* I DWT-ADDRESS I t 0 P* ------------------------------ P EJECT PB:TT EQU * & P CALL FSTAPL
0x3cfad0…3cfc64 Dummy {f00=0x012f, f01=0x0190, f02=»END OF SYSTEM AREA v * P ST P,STKEND+WRK1 SAVE PROGRAM COUNTER : P ST A11,STKEND+LCDSTA SAVE CONFIGURATION DATA POINTER H * P ST P,STKEND+WRK2 SAVE PROGRAM COUNTER P* ( P* GET NUMBER OF TASKS IN THIS CLASS P* P CALL GETTSK . P
0x3cfc64…3cfdf8 Dummy {f00=0x012f, f01=0x0190, f02=»CHAR p P SLL A5,8 MOVE TO LEFT BYTE * P LC A5,TDBID+5,A11 GET SECOND ID DIGIT 0 2 P ST A5,STKEND+TASKID SAVE TASK ID START VALUE ^ P* " P* CHECK IF CREDIT APPLICATION P* 6 P LD A5,STKEND+APCSTA GET APPLICATION CONTROL BLOCK * P
0x3cfdf8…3cff8c Dummy {f00=0x012f, f01=0x0190, f02=»ET TASK CLASS TO MATCH VALUE P* $ , P LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL . 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 P ST A5,STKEND+TCLSAV SAVE PBTT21 EQU
0x3cff8c…3d0120 Dummy {f00=0x012f, f01=0x0190, f02=» TO LEFT BYTE 0 P LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL " P CALL CONVRT CONVERT TO BINARY J P ST A1,STKEND+TSKLEV SAVE p P EJECT P* B P* COMPUTE SIZE OF CONFIGURATION DEPENDENT PART OF TASK TABLE P* & P LDKL A10,TTB:
0x3d0120…3d02b4 (1, 1036) Dummy {f00=0x012f, f01=0x0190, f02=»TH INCLUDED? 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 b P RF BTT30 PBTT22 LD A5,SCTOPT P SRC A5,1 MMU PAGING? P RF(NN) BTT25 NO . P SUKL A10,TTB:MT+2
0x3d02b4…3d0448 Dummy {f00=0x012f, f01=0x018e, f02=»SC PAGING? 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 f PBTT30 EQU * P EJECT P* < P* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART " P*
0x3d0448…3d05dc Dummy {f00=0x012f, f01=0x0190, f02=» 4 P ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION $ P CALL GETTDC GET NUMBER OF TDC:S < P LDR A7,A1 SAVE d PBTT35 EQU * | P RF(Z) BTT40 ( P CALL GETCLN GET CLASS NUMBER (1-99) & P ADR A1,A1 2*(BINARY CLASS NUMBER) , P LD A8,STKEND+
0x3d05dc…3d0770 Dummy {f00=0x012f, f01=0x0190, f02=»ALL ERROR INDICATE FORMAT ERROR PBTT37 EQU * ( " P ADR A8,A1 GET ENTRY IN TCLASS < $ P LDR* A8,A8 GET POINTER TO CLASS b $ P LDR* A8,A8 GET LENGTH OF CLASS " P SUKL A8,2 EXCLUDE LENGTH WORD ( P ADR A10,A8 ADD TO TOTAL TTAB LENGTH . P ADR
0x3d0770…3d0904 Dummy {f00=0x012f, f01=0x0190, f02=» P EJECT PBTT40 EQU * P* * > P* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF 4 P* TASK CONFIGURATION TABLE v P* 6 P CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES P ADKL A9,2 FIRST SDC RECORD P LDR A
0x3d0904…3d0a98 Dummy {f00=0x012f, f01=0x0190, f02=»RY CLASS NUMBER) ~ , P LD A8,STKEND+SCLA GET POINTER TO SCLASS P LDR* A2,A8 H P SUK A2,2 P CWR A1,A2 n P RF(NG) BTT52 P LDKL A1,LMP4 & P CALL ERROR INDICATE FORMAT ERROR PBTT52 EQU * " P ADR A8,A1 GET ENTRY IN SCLASS
0x3d0a98…3d0c2c Dummy {f00=0x012f, f01=0x0190, f02=»8 ADD TO TOTAL TTAB LENGTH . P ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH " P ADKL A9,SDC NEXT CLASS T ( P SUK A7,1 DECREMENT NUMBER OF SDC:S t P RB BTT50 PBTT55 EQU * P IFF EDM=0 & P ADKL A10,14 7 EXTRA WORDS FOR EDM P XIF
0x3d0c2c…3d0dc0 Dummy {f00=0x012f, f01=0x0190, f02=»ASKS IN THIS CLASS l PBTT60 EQU * P RF(Z) BTT70 . P ST A9,STKEND+WRK3 SAVE A9 B P ST A11,STKEND+WRK4 SAVE A11 d P LDR A9,A10 GET TTAB LENGTH 4 P AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2 P ST A9,STKEND+SFASAV =2 0 P LD
0x3d0dc0…3d0f54 (1, 1037) Dummy {f00=0x012f, f01=0x0190, f02=»3 INDICATE MEMORY OVERFLOW P CALL ERROR " & PBTT61 LD A9,STKEND+WRK3 RESTORE A9 6 $ P LD A11,STKEND+WRK4 RESTORE A11 ` P* 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB P* P ST A6,TTB:TD,A12 P* : P* STORE TAS
0x3d0f54…3d10e8 Dummy {f00=0x012f, f01=0x0190, f02=» p P* < P* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD P* R & P SLL A5,10 MOVE LEVEL TO LEFT BYTE P ORKL A5,/00C0 " P LD A2,SCTOPT GET OPTION WORD P ANK A2,1 MMU OPTION? P ORR A5,A2 SET BIT 15 IF MMU $ P ST
0x3d10e8…3d127c Dummy {f00=0x012f, f01=0x0190, f02=»IDENTIFICATION IN TTAB P* * PBTT62 LD A5,STKEND+TASKID GET TASK ID ( $ P ST A5,TTB:ID,A12 STORE IN TTAB V P ADK A5,1 INCREMENT TASK ID ~ 8 P ST A5,STKEND+TASKID SAVE TO NEXT TASK IN SAME CLASS 0 P LD A5,STKEND+APCSTA GET APPL. CONTROL BLO
0x3d127c…3d1410 Dummy {f00=0x012f, f01=0x0190, f02=»T65 NO P* ( P* STORE TASK CLASS TO MATCH IN TTAB P* D , P LD A5,STKEND+TCLSAV GET TCL START VALUE N " P ST A5,TTB:PP,A12 SAVE IN TTAB ~ P ADK A5,1 INCREMENT TCL P ST A5,STKEND+TCLSAV SAVE PBTT65 EQU * , P STR A12,A7 SA
0x3d1410…3d15a4 Dummy {f00=0x012f, f01=0x0190, f02=»12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS 6 P SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS 2 P RB BTT60 l P EJECT ~ PBTT70 EQU * P* * P* RESET POINTER TO START OF FREE AREA P* P LD A12,STKEND+SFASAV PBTT90 EQ
0x3d15a4…3d1738 Dummy {f00=0x012f, f01=0x0190, f02=» PBTT95 EQU * " P CALL NXTAPL NEXT APPLICATION P RF(Z) BTT98 > P LD P,STKEND+WRK1 R 0 PBTT98 ST A12,SCTSFA SAVE START OF FREE AREA l P SU A7,SCTTCT COMPUTE LENGTH P ST* A7,SCTTCT STORE P RTN A14 RETURN P IFF SWPBLK=0
0x3d1738…3d18cc Dummy {f00=0x012f, f01=0x0190, f02=»ON INCLUDED ~ P RF(Z) BSWT42 NO 0 P CM STKCOM+APPLNO RESET APPLICATION COUNTER , , P ST P,STKEND+LIMIT SAVE LOCATION COUNTER ` 0 PBSWT05 LDKL A1,'CR' APPLICATION TYPE=CREDIT , P CALL GETAPP GET NEXT CREDIT APPLICATION & P RF(Z) BSWT42 NO MOR
0x3d18cc…3d1a60 Dummy {f00=0x012f, f01=0x0190, f02=» : P* SEARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE P* F & PBSWT10 CALL NXTBLK GET NEXT BLOCK P ( P CCK A2,'TT' TASK DEFINITION BLOCK? z P RB(E) BSWT10 YES! 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? P RF(NE) BSWT20 NO!
0x3d1a60…3d1bf4 (1, 1038) Dummy {f00=0x0130, f01=0x0190, f02=» ~ P ADKL A11,1 NUMBER OF TYPES P LDR A6,A11 , & P CALL GETNUM NUMBER OF UWB RECORDS @ P LDR A1,A5 SAVE j $ P RF(Z) SWBERR ILLEGAL NUMBER!!! ( P ADKL A11,UDBFST-1 FIRST UWB RECORD ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD $ P SUK A
0x3d1bf4…3d1d88 Dummy {f00=0x0130, f01=0x0190, f02=» TYPE DEFINITION BLOCK z P RF(E) BSWT44 YES! ( P LDKL A1,0 NO SWB DEFINITION BLOCK! 8 ( P ST A1,APLSWB,A10 CLEAR SWB POINTER d : P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 & PBSWT42 CALL POB RESTORE REGISTERS P RTN A14 & P
0x3d1d88…3d1f1c Dummy {f00=0x0130, f01=0x0190, f02=»S x P LDR A5,A5 ZERO? $ P RF(Z) SWBERR ILLEGAL NUMBER!!! " 0 P ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS J P ST A5,STKEND+WRK1 SAVE ~ . P LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP P RF(NZ) BSWT48 FILE CREATED " PSWBERR LDKL A1,LMP6
0x3d1f1c…3d20b0 Dummy {f00=0x0130, f01=0x0190, f02=»UNTER l P ADKL A12,2 FIRST POINTER P LDR A10,A12 SAVE 0 $ PBSWT50 ADKL A10,2 BYPASS POINTER J ( P SUK A5,1 DECREMENT NUMBER OF TYPES r P RB(P) BSWT50 P* & P* GET ADDRESS TO S:BTAB PROTOTYPE P* , P LD A2,STKEND+APCSTA G
0x3d20b0…3d2244 Dummy {f00=0x0130, f01=0x0190, f02=»ADDRESS t $ P CALL GETCON GET P:MTAB ADDRESS P LDR A2,A1 SAVE 8 , P ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS P $ P CALL GETCON GET S:BTAB ADDRESS * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB * P RB(Z) SWBERR NO SWB:S IN APPLICATION! P ADK
0x3d2244…3d23d8 Dummy {f00=0x0130, f01=0x018e, f02=»GTH OF PROT. S:BTAB | P LDR A4,A1 SAVE P* 4 2 P* CHECK IF ENOUGTH MEMORY IN FIRST PARTITION > P* t P XRR A2,A2 RESET COUNTER ~ $ PBSWT52 SUK A1,6 DECREMENT LENGTH $ P RF(N) BSWT55 NO MORE SWB-BLOCKS " P ADK A2,1 INCR. BLOCK COUN
0x3d23d8…3d256c Dummy {f00=0x0130, f01=0x0190, f02=» * P LD A11,STKEND+LIMIT GET CURRENT LIMIT " P CALL CMPADR MEMORY OVERFLOW? 2 P RF(NL) BSWT57 NO! X * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW r P CALL ERROR $ PBSWT57 SUK A4,2 SKIP LENGTH WORD " P LDKL A9,0 RESET BLOCK COUNTER , PBSWT60
0x3d256c…3d2700 Dummy {f00=0x0130, f01=0x0190, f02=»END+NBRSWB NUMBER OF SWB RECORDS 4 PBSWT65 LD A2,STKEND+SWBNAM NAME RECORD IN PROT. ( $ P CALL GETCON GET TWO FIRST CHAR. ` ( 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
0x3d2700…3d2894 (1, 1039) Dummy {f00=0x0130, f01=0x0190, f02=»L GETCON GET THIRD CHAR. P SRL A1,8 ISOLATE CHAR. 0 P LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE @ P ANK A3,/FF ISOLATE CHAR. t " P CWR A1,A3 THIRD CHAR. EQUAL? P RF(E) BSWT75 YES! $ PBSWT70 ADKL A11,NAMUWB SKIP NAME ( P SUK A7,1
0x3d2894…3d2a28 Dummy {f00=0x0130, f01=0x0190, f02=»IN THIS BLOCK T P* P STR A7,A10 1:ST WORD P ST A7,2,A10 2:ND WORD > P ST A7,4,A10 3:RD WORD P ST A7,6,A10 4:TH WORD z P RF BSWT95 PBSWT75 EQU * P* P* MATCHING NAME FOUND P* . P LD A3,STKEND+WRK1 GET N
0x3d2a28…3d2bbc Dummy {f00=0x0130, f01=0x018e, f02=»A11 P LDR A3,A2 SAVE POINTER & P CALL GETNUM GET NUMBER OF COPIES , , P SLL A5,8 NUMBER OF COPIES IN LEFT BYTE V > 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
0x3d2bbc…3d2d50 Dummy {f00=0x0130, f01=0x0190, f02=» $ P SUK A2,UPNAME PROTOTYPE ADDRESS & P CALL GETCON GET PROTOTYPE ADDRESS , P LDR A2,A1 SAVE V & P SUK A2,UPNAME LENGTH OF WORKBLOCK n P CALL GETCON * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB 0 PBSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK
0x3d2d50…3d2ee4 Dummy {f00=0x0130, f01=0x0190, f02=» PBSWT88 IM STKCOM+SWBFSA+2 P CM STKCOM+SWBFSA & PBSWT90 EQU * @ & P ADK A1,1 INCREMENT SECTOR COUNTER T " P SUKL A3,256 DECREMENT LENGTH ~ P RB(P) BSWT86 MOORE SECTORS? P SUK A5,1 MOORE COPIES? P RB(P) BSWT85 YES! * P ST A1
0x3d2ee4…3d3078 Dummy {f00=0x0130, f01=0x0190, f02=»M+SWBFSE+2 ( P RF(G) BSWT98 $SWAP-FILE TOO SMALL! P RF(L) BSWT95 > P LD A8,STKCOM+SWBFSA T P CW A8,STKCOM+SWBFSE p ( P RF(G) BSWT98 SWAPP-FILE TOO SMALL! * PBSWT95 ADKL A10,8 START OF NEXT BLOCK P ADKL A12,2 NEXT POINTER & P A
0x3d3078…3d320c Dummy {f00=0x0130, f01=0x0190, f02=»S:BTAB l P ST A2,STKEND+SWBNAM SAVE 4 P LD A4,STKEND+SWBTBL GET LENGTH OF PROT. S:BTAB 0 P SUK A4,UP:REC DECREMENT h P RB(P) BSWT60 MOORE TYPES . P LD A8,STKCOM+SWBCNT ANY BLOCKS GENERATED? P RF(Z) BSWT98 NO! . P LD A8,STKEND+WRK1
0x3d320c…3d33a0 Dummy {f00=0x0130, f01=0x0190, f02=»FA UPDATE START OF FREE AREA ~ 2 P LD A10,STKEND+APCSTA GET CURRENT ACB ADDRESS $ * P ST* A9,APLSWB,A10 NUMBER OF SWB TYPES Z 6 P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION P XIF P IFF MMUPAG+DSKPAG=0 P EJECT 8 P****************
0x3d33a0…3d3534 (1, 1040) Dummy {f00=0x0130, f01=0x0190, f02=»T TABLES * p 8 P* ============================= * 8 P* * X 8 P* REFERENCED IN: SYSLDM * 8 P* *
0x3d3534…3d36c8 Dummy {f00=0x0130, f01=0x0190, f02=» * 8 P* * 0 8 P* WORK REGISTERS: A1-A14 (THEIR ORIGINAL * l 8 P* CONTENTS ARE SAVED ON STACK * 8 P* AND RESTORED BEF
0x3d36c8…3d385c Dummy {f00=0x0130, f01=0x0190, f02=» 8 P* FOR BASIC ONE SEGMENT TABLE AREA/TASK IS * 8 P* RESERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * D 8 P* CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * 8 P* EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * 8 P* WORD IN THE N
0x3d385c…3d39f0 Dummy {f00=0x0130, f01=0x0190, f02=»IONS ONE SEGMENT * p 8 P* TABLE PER APPLICATION IS GENERATED. STATUS, * 8 P* DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * X 8 P* WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * 8 P* TABLE ADDRESS IS STORED IN THE TTAB FOR EACH *
0x3d39f0…3d3b84 Dummy {f00=0x0130, f01=0x0190, f02=»*************************************** P EJECT 0 PB:STAB EQU * > $ P CALL PUSH SAVE A1-A14 ON STACK R & P CALL FSTAPL GET FIRST APPLICATION z " P LDR A9,P GET LIMIT FOR WRITE < PBST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB .
0x3d3b84…3d3d18 Dummy {f00=0x0130, f01=0x0190, f02=»,SCTTCT END OF TCTAB P RF BST040 4 PBST020 LD A2,APLMMC,A2 GET END OF TCTAB ENTRIES . $ PBST040 ST A2,STKEND+TCTEND SAVE f P LDR A8,P 8 PBST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS 2 P LD A5,APLMMP,A10 GET CURRENT APPLICATION TY
0x3d3d18…3d3eac Dummy {f00=0x0130, f01=0x0190, f02=»TCTAB ENTRY t P CWK A5,'BA' BASIC? P RF(NE) BST050 NO 0 P SUR A2,A8 2*NUMBER OF TASKS J P SRL A2,1 NUMBER OF TASKS n P ST A2,STKEND+WRK1 SAVE P ST A2,APLNPE,A10 SAVE . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK P SLL A3,
0x3d3eac…3d4040 Dummy {f00=0x0130, f01=0x0190, f02=» AREA f P RF BST090 P EJECT ( PBST050 LD A2,SCTOPT GET OPTION WORD . P ANK A2,1 MMU? Z P RF(Z) BST070 NO p 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
0x3d4040…3d41d4 (1, 1041) Dummy {f00=0x0130, f01=0x0190, f02=»3 MULTIPLY BY 8 $ P ADK A3,12 INCLUDE 6 FIRST WORDS 0 PBST090 LD A12,SCTSFA GET START OF FREE AREA @ ( P LDR A2,A11 SAVE CONF. DATA POINTER t P LDR A11,A12 SAVE * P ADR A11,A3 END OF SEGMENT TABLE AREA " P CALL CMPADR MEMORY OVERFLOW?
0x3d41d4…3d4368 Dummy {f00=0x0130, f01=0x018e, f02=» FREE AREA j * P LDR A11,A2 RESTORE CONF. DATA POINTER P CWK A5,'BA' BASIC? @ P RF(NE) BST200 NO * P LD A2,STKEND+WRK1 GET NUMBER OF TASKS v . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK 0 P ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK
0x3d4368…3d44fc Dummy {f00=0x0130, f01=0x0190, f02=» : P ST A12,APLSEG,A10 STORE ADDRESS TO SEGMENT TABLE POOL P EJECT B P* P P* CLEAR SEGMENT TABLE AREA Z P* ~ 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
0x3d44fc…3d4690 Dummy {f00=0x0130, f01=0x0190, f02=» SEGMENT TABLE AREA? | P RF(E) BST400 YES 2 P ADK A2,8 ADDRESS FIFTH WORD IN SEGMENT TABLE 6 2 P ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE l , P ADR A12,A4 START OF NEXT SEGMENT TABLE P LDR A2,A12 SAVE P RB BST120 0 PBST200 ST A6
0x3d4690…3d4824 Dummy {f00=0x0130, f01=0x0190, f02=» Z 0 P LD A3,SCTIPL GET FILE-CODE FOR LOAD DEVICE P STR A3,A12 STORE < ( P ADKL A12,4 ADDRESS SEGMENT BLOCK 0 V P LDR A4,A12 SAVE . PBST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 " P STR A2,A12 STORE IN SEGBLK 0 * P LD A2,APLLAC,A10 GET
0x3d4824…3d49b8 Dummy {f00=0x0130, f01=0x0190, f02=» GET P:BAS " P ST A1,2,A12 STORE IN SEGBLK 0 * P LD A2,APLLAC,A10 GET START OF S:GTAB 8 * P ADK A2,10 ADDRESS NUMBER OF SEGMENTS f ( PBST220 ADKL A12,8 NEXT SEGMENT BLOCK P SUK A6,1 ANY MORE SEGMENTS? P RF(N) BST300 NO P LDK A7,0 IN
0x3d49b8…3d4b4c Dummy {f00=0x0130, f01=0x018e, f02=» SAVE $ P ANK A3,/FF ISOLATE DISC ADDRESS " P SRL A1,8 ISOLATE SEGMENT TYPE 6 ( P CCK A1,'RR' CORE RESIDENT SEGMENT? 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,
0x3d4b4c…3d4ce0 Dummy {f00=0x0130, f01=0x0190, f02=» ^ P RF BST270 : PBST230 LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED * PBST240 ADK A2,2 DISC ADDRESS BIT 8-23 X * P CALL GETCON GET SEGMENT DISC ADDRESS 0 P AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A. P RF(O) BST250 CARRY P RF
0x3d4ce0…3d4e74 (1, 1042) Dummy {f00=0x0131, f01=0x0190, f02=»LOCATE PART 1 OF D. A. v . P CWK A3,255 OVERFLOW IN PART 1 OF D. A. ? P RF(NG) BST270 NO! P ( P LDKL A1,LMP10 INDICATE DEVICE ERROR j P CALL ERROR 2 PBST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS P STR A7,A12 STORE , P ST A1,2,A12 S
0x3d4e74…3d5008 Dummy {f00=0x0131, f01=0x018e, f02=»SEGTAB z & P CM 6,A12 CLEAR PAGEBLOCK POINTER P RB BST220 8 0 PBST300 CW A8,STKEND+TCTEND LAST TCTAB ENTRY? J P RF(E) BST400 YES ~ P LDR* A2,A8 GET TTAB ADDRESS 0 P ST A4,TTB:SP,A2 STORE SEGMENT TABLE POINTER * P ADKL A8,2 INCREMENT POI
0x3d5008…3d519c Dummy {f00=0x0131, f01=0x0190, f02=» l P ABR A9 NEXT APPLICATION PBST410 EQU * ( P CALL POB RESTORE REGISTERS < P RTN A14 RETURN ` P XIF x P IFF SPDVCL+TEDVCL=0 P EJECT L P************************************************************************ J P* B:DWTS
0x3d519c…3d5330 Dummy {f00=0x0131, f01=0x0190, f02=»**** L P* P* REFERENCED IN: MONCON P* 6 , P* ENTRY: SCTSFA - START OF FREE ARE (X) @ 2 P* CONSTA - START OF CONFIGURATION DATA p ( P* SCTEFA - END OF FREE AREA P* P* EXIT: P* P* WORK REGISTERS:
0x3d5330…3d54c4 Dummy {f00=0x0131, f01=0x0190, f02=» & P* GET START OF CONFIGURATION FILE P* 2 & P LD A12,SCTSFA START OF FREE AREA < P* f 6 P* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK p P* & P CALL FSTAPL GET FIRST APPLICATION 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AR
0x3d54c4…3d5658 Dummy {f00=0x0131, f01=0x0190, f02=» FIRST TCTAB ENTRY v P SUK A7,2 P EJECT , PDWTS10 EQU * : P* N . P* GET NUMBER OF TASKS IN THIS TASK CLASS X P* P CALL GETTSK PDWTS20 EQU * P ST A1,STKEND+NBRTSK SAVE P* * P* GET CORRESPONDING TASK TABLE
0x3d5658…3d57ec Dummy {f00=0x0131, f01=0x018e, f02=»+2 TASK DEVICE TABLE ENTRY P* " 0 P* INIT SUB-POINTER IN TASK DEFINITION BLOCK , P* ` . P LDR A9,A11 START OF TASK DEFINITION BLOCK j , P ADKL A9,TDBFST START OF TDC DEFINITION P EJECT P* 4 P* GET NUMBER OF TERMINAL DEVICES IN
0x3d57ec…3d5980 Dummy {f00=0x0131, f01=0x018e, f02=» v P ADR A1,A1 , P LD A8,STKEND+TCLA GET POINTER TO TCLASS P ADR A8,A1 GET CLASS ENTRY J $ P LDR* A8,A8 GET POINTER TO CLASS l $ P LDR* A8,A8 GET LENGTH OF CLASS " P SUKL A8,2 EXCLUDE LENGTH WORD * P ADR A10,A8 INCREMENT POINTER IN TTAB
0x3d5980…3d5b14 (1, 1043) Dummy {f00=0x0131, f01=0x0190, f02=» P* , P* GET NUMBER OF SPECIAL DEVICE CLASSES P* B P CALL GETSDC L P ADKL A9,SDCFST-CDBNC ` P LDR A1,A1 ~ PDWTS50 EQU * P RF(Z) DWTS90 P ST A1,STKEND+NBRSDC SAVE P* & P* GET SPECIAL DEVICE CLASS NUMBER
0x3d5b14…3d5ca8 Dummy {f00=0x0131, f01=0x0190, f02=» LD A6,STKEND+SCLA POINTER TO SCLASS P ADR A6,A1 SELECT ENTRY , $ P LDR* A6,A6 GET POINTER TO CLASS L P LDR A5,A6 SAVE t P LDR* A6,A6 GET LENGTH " P SUK A6,2 EXCLUDE LENGTH WORD PDWTS60 EQU * P ADK A5,4 GET DEVICE ( P LDR* A1
0x3d5ca8…3d5e3c Dummy {f00=0x0131, f01=0x0190, f02=» P LDR A2,A12 TO-ADDRESS , P ADR A12,A3 UPDATE POINTER TO FREE AREA & P CALL CHKMOV COPY DWT V P EJECT t P* 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM P* " P LD A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYS
0x3d5e3c…3d5fd0 Dummy {f00=0x0131, f01=0x018e, f02=»WTMEC,A2 GET MONITOR ECB-ADDRESS P SUR A4,A3 RELOCATE ( $ P ANKL A4,/FFFE MAKE EVEN ADDRESS D " P ST A4,DWTMEC,A2 STORE IT BACK l PDWTS65 EQU * $ P LDR A1,A2 DT-ADDRESS TO BE USED PDWTS70 EQU * P* . P* STORE FILE-CODE AND DWT-A
0x3d5fd0…3d6164 Dummy {f00=0x0131, f01=0x0190, f02=» v 2 P ADKL A10,4 UPDATE TASK CONFIGURATION POINTER PDWTS80 EQU * > * P SUK A6,4 DECREMENT NUMBER OF DEVICES R P RB(P) DWTS60 NEXT DEVICE P EJECT P* 4 P* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS P* P ADKL A9,SDC
0x3d6164…3d62f8 Dummy {f00=0x0131, f01=0x0190, f02=» SAME CONFIGURATION p P* P LD A1,STKEND+NBRTSK & P SUK A1,1 B P RB(P) DWTS20 T P* j , P* CHECK IF MOORE TASK DEFINITION BLOCKS t P* P CALL NXTBLK ( P CCK A2,'TT' TASK DEFINITION BLOCK? P RB(E) DWTS10 YES & P
0x3d62f8…3d648c Dummy {f00=0x0131, f01=0x0190, f02=»EA TO BE USED FOR ECHO DEVICE & P* AND TEMPORARY INTERRUPT TABLES & P* P & P LDR A1,P GET LOCATION COUNTER =4 Z 0 PDWTS95 SUK A1,2 DECREMENT MEMORY ADDRESS =4 P CMR A1 CLEAR MEMORY AREA =4 ( P CW A1,SCTSFA ALL WORDS CLEARED? =4 P
0x3d648c…3d6620 Dummy {f00=0x0131, f01=0x0190, f02=»************** n 4 P* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES * 4 P************************************************ N 4 P************************************************ P* P* REFERENCED IN: MONCON P* P* ENTRY: P*
0x3d6620…3d67b4 (1, 1044) Dummy {f00=0x0131, f01=0x0190, f02=»TBLK T P* P EJECT PB:DWTT EQU * $ $ P CM STKEND+FWTFLG CLEAR FWT FLAG 8 $ P LD A1,SCTFWT START OF FWT AREA ` $ P RF(NZ) BDWT15 FWT AREA RESERVED P LD A1,STKEND+LIMIT 8 P ST A1,STKEND+INTTAB START OF T.I.T. IF NO FWT AREA P
0x3d67b4…3d6948 Dummy {f00=0x0131, f01=0x0190, f02=»L FSTAPL GET FIRST APPLICATION * P LD A12,SCTSFA GET START OF FREE AREA & P* T B P* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY ^ P* . P LD A5,APLMMC,A2 GET FIRST USER TASK ENTRY : P ST A5,STKEND+CUTENT STORE IN CURRENT US
0x3d6948…3d6adc Dummy {f00=0x0131, f01=0x0190, f02=»OF TASKS x PBDWT50 EQU * * P ST A1,STKEND+NBRTSK SAVE BINARY VALUE $ P* R @ P* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS P* P CALL GETTDC P* $ P* CHECK IF TASK WITHOUT DEVICES P* $ P LDR A1,A1 ANY
0x3d6adc…3d6c70 Dummy {f00=0x0131, f01=0x0190, f02=»ET TTAB ADDRESS x 6 P ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE P* R ( P* GET TERMINAL DEVICE CLASS NUMBER P* . P LDR A9,A11 START OF TASK DEFINITION BLOCK 4 P ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION PBDWT55 EQU *
0x3d6c70…3d6e04 Dummy {f00=0x0131, f01=0x0190, f02=»ICE CLASS IN TCLASS n P* 6 P LD A2,STKEND+CLANBR GET BINARY VALUE OF CLASS ID & P ADR A2,A2 2*ID ` ( P LD A7,STKEND+TCLA POINTER TO TCLASS x P ADR A7,A2 GET ENTRY $ P LDR* A7,A7 GET POINTER TO CLASS P* @ P* GET LINE CONNECTION
0x3d6e04…3d6f98 Dummy {f00=0x0131, f01=0x0190, f02=»A1 SAVE BINARY VALUE , P LC A4,TDC+6,A9 GET LINE CONNECTION TYPE $ P CCK A4,'AA' ASCU4Z CONNECTION? L P RF(NE) BDWT58 NO! t . P LDR* A8,A7 YES! GET LENGTH OF THIS CLASS $ P SUKL A8,2 EXCLUSIVE LENGTH WORD P CWK A8,4 ONE DEVICE? P R
0x3d6f98…3d712c Dummy {f00=0x0131, f01=0x0190, f02=»F(E) BDWT58 YES! PBDWT57 EQU * . P ADK A1,1 INCREMENT LINE CONNECTION NUMBER , PBDWT58 EQU * ^ . P ADK A1,1 INCREMENT LINE CONNECTION NUMBER r 4 P CALL BINASC CONVERT INCREMENTED VALUE TO ASCII ( P SC A1,TDC+5,A9 STORE ASCII DIGIT =2 & P
0x3d712c…3d72c0 Dummy {f00=0x0131, f01=0x0190, f02=» EJECT P* $ P* GENERATE DWT:S FOR THIS CLASS 2 P* A6 - LINE CONNECTION NUMBER (BINARY VALUE) @ , P* A7 - POINTER TO TERMINAL DEVICE CLASS v P* . P* THE ENTRY IN TEMPORARY INTERRUPT TABLE . P* IS DERIVED FROM LINE CONNECTION NUM
0x3d72c0…3d7454 (1, 1045) Dummy {f00=0x0131, f01=0x0190, f02=»D+NBRTDC GET NUMBER OF TERMINAL DEVICE CLASSES , P SUK A1,1 ANY MOORE IN THIS TASK CLASS? 6 P RF(Z) BDW100 NO f . P ST A1,STKEND+NBRTDC SAVE REMAINING NUMBER ~ $ P ADKL A9,TDC+TLC NEXT TDC RECORD P RB BDWT55 PBDW100 EQU * " P CALL ECHO
0x3d7454…3d75e8 Dummy {f00=0x0131, f01=0x0190, f02=»END+CUTENT SAVE : P LD A1,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS " P SUK A1,1 ANY MOORE TASKS LEFT V P RB(P) BDWT50 YES | , P* CHECK IF MOORE TASK DEFINITION BLOCKS P* $ P CALL NXTBLK SKIP TO NEXT BLOCK ( P CCK A2,'TT' TAS
0x3d75e8…3d777c Dummy {f00=0x0131, f01=0x0190, f02=»A12,SCTSFA UPDATE START OF FREE AREA P RTN A14 RETURN , P XIF D P EJECT P , P**************************************** ` , P* B:CDT - BUILD COMMON DEVICE TABLE * , P**************************************** P* P* REFERENCED
0x3d777c…3d7910 Dummy {f00=0x0131, f01=0x0190, f02=» SCTEFA - END OF FREE AREA P* ( 4 P* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE 2 P* j P* WORK REGISTERS: A1-A12 t P* < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE P* P EJECT PB:CDT EQU *
0x3d7910…3d7aa4 Dummy {f00=0x0131, f01=0x0190, f02=»OMMON DEVICE DEFINITION BLOCK P* & PCDG:10 EQU * 0 P CALL NXTBLK D ( P CCK A2,'TT' TASK DEFINITION BLOCK? X P RB(E) CDG:10 YES ( P CCK A2,'CC' COMMON DEV. DEF. BLOCK? P RF(NE) BCDTEX NO P EJECT P* : P* RESERVE A
0x3d7aa4…3d7c38 Dummy {f00=0x0131, f01=0x0190, f02=»T OF COMMON DEFINITION BLOCK 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES $ & P CALL GETCTC GET NUMBER OF C.T.C. ^ 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 DISPL
0x3d7c38…3d7dcc Dummy {f00=0x0131, f01=0x0190, f02=»E LENGTH & P CWR A1,A2 MAKE SURE CLASS EXISTS P RF(NG) B:CT20 OK! : P LDKL A1,LMP4 FORMAT ERROR! T P CALL ERROR x , 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
0x3d7dcc…3d7f60 Dummy {f00=0x0131, f01=0x0190, f02=»UK A6,1 DECR. NBR OF C.T.C. P RB B:CT10 $ P EJECT 6 PB:CT30 EQU * D P* X : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES b 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* P CALL GETSDC P ADKL A9,SDCFS
0x3d7f60…3d80f4 (1, 1046) Dummy {f00=0x0132, f01=0x0190, f02=» POINTER TO SCLASS z P LDR* A2,A5 P SUK A2,2 . P CWR A1,A2 @ P RF(NG) BCDT15 R P LDKL A1,LMP4 h P CALL ERROR ~ PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS P LDR* A1,A1 GET LENGTH
0x3d80f4…3d8288 Dummy {f00=0x0132, f01=0x0190, f02=»T APPLICATION | $ P RB(P) CDG:10 MORE APPLICATIONS? & P CALL FSTAPL GET FIRST APPLICATION > & PB:CT35 CALL NXTBLK GET NEXT BLOCK h ( P CCK A2,'TT' TASK DEFINITION BLOCK? P RB(E) B:CT35 YES P EJECT P* < P* RESERV ENTRIES IN COM
0x3d8288…3d841c Dummy {f00=0x0132, f01=0x0190, f02=»OMMON DEVICE TABLE FOR t @ P* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION P* b J P* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS l P* & P LD A1,SCTDCT DATA COMMUNICATION? " P LD A6,SCTDMT DATA MANAGEM
0x3d841c…3d85b0 Dummy {f00=0x0132, f01=0x0190, f02=»ST SCLASS IF NOT ZERO ~ P RF(Z) CDG:12 NO! , P LD A6,STKEND+SCLA GET POINTER TO SCLASS 8 $ P LDR* A1,A6 GET LENGTH OF SCLASS h " P SUK A1,2 EXCLUDE LENGTH WORD $ P ADR A6,A1 LAST ENTRY IN SCLASS * P LDR* A6,A6 GET POINTER TO LAST CLASS
0x3d85b0…3d8744 Dummy {f00=0x0132, f01=0x0190, f02=»QU * P ADK A7,2 P STR A7,A12 P ST A12,SCTCDT 2 P ADR A12,A7 H P ST A11,STKEND+WRK1 SAVE A11 " P LDR A11,A12 GET END OF CDTAB . P LD A9,STKEND+LIMIT GET END OF SYSTEM AREA * P CALL CMPADR CHECK IF MEMORY OVERFLOW P R
0x3d8744…3d88d8 Dummy {f00=0x0132, f01=0x0190, f02=» EJECT P* 6 P* INIT POINTER TO START OF FREE AREA AND TO CDTAB P* R ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT * PCDG:15 LCR A2,A11 GET FIRST CHARACTER . PCDG:16 CCK A2,'TT' TASK DEFINITION BLOCK/ P RF(NE) CDG:17 NO! P CALL
0x3d88d8…3d8a6c Dummy {f00=0x0132, f01=0x018e, f02=»E NO COMMON WORK BLOCKS ~ ( PCDG:18 RF(N) CDG:EX CDTAB COMPLETE! & P CALL NXTAPL GET NEXT APPLICATION L $ P RB(P) CDG:15 MORE APPLICATIONS v " P RF CDGEX NO MORE APPLICATIONS PCDG:19 EQU * P* > P* GENERATE DEVICE WORK TABLES FOR COM
0x3d8a6c…3d8c00 Dummy {f00=0x0132, f01=0x0190, f02=» & P CALL GETCTC GET NUMBER OF C.T.C. , P LDR A1,A1 ANY COMMON TERMINAL CLASSES? 2 PB:CT40 RF(Z) B:CT50 NO! b P ST A1,STKEND+NBRCOM SAVE ( P CALL GETCLN GET CLASS IDENT NUMBER P ST A1,STKEND+CLASID SAVE , P CALL GETLCN GET LINE
0x3d8c00…3d8d94 (1, 1047) Dummy {f00=0x0132, f01=0x0190, f02=» n , P LD A7,STKEND+TCLA GET POINTER TO TCLASS & P ADR A7,A2 SELECT ENTRY IN TCLASS 8 $ P LDR* A7,A7 GET POINTER TO CLASS b . 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 N
0x3d8d94…3d8f28 Dummy {f00=0x0132, f01=0x0190, f02=»BER OF SPECIAL DEVICE CLASSES P* & P CALL GETSDC 0 P ADKL A9,SDCFST-CDBNC D P LDR A8,A1 b PCDG:20 EQU * t P RB(NP) CDG:18 P* & P* GET SPECIAL DEVICE CLASS NUMBER P* P CALL GETCLN P* 0 P* GET CORRESP
0x3d8f28…3d90bc Dummy {f00=0x0132, f01=0x0190, f02=»CLASS ~ & P LDR* A5,A6 SAVE POINTER TO CLASS $ P LDR* A6,A6 GET POINTER TO CLASS 8 $ P LDR* A6,A6 GET LENGTH OF CLASS ` " 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
0x3d90bc…3d9250 Dummy {f00=0x0132, f01=0x0190, f02=»DR A12,A3 UPDATE POINTER TO FREE AREA P CALL CHKMOV COPY DWT . P* L 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM V 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 P
0x3d9250…3d93e4 Dummy {f00=0x0132, f01=0x0190, f02=» MAKE IT EVEN! P SUR A4,A3 RELOCATE " P ST A4,DWTMEC,A2 STORE IT BACK 2 PCDG:35 EQU * X " P LDR A1,A2 DWT-ADDRESS TO USE l PCDG:40 EQU * P* . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB P* " P ST A1,4,A10 STORE DWT-ADDRE
0x3d93e4…3d9578 Dummy {f00=0x0132, f01=0x0190, f02=»T DEVICE COUNTER ~ P RB(P) CDG:30 NEXT DEVICE P EJECT : P* H , P* CHECK IF MOORE SPECIAL DEVICE CLASSES R P* P ADKL A9,SDC P SUKL A8,1 P RB CDG:20 PCDGEX EQU * " P LD A1,SCTDMT DATA MANAGEMENT $ P LD A5,SCT
0x3d9578…3d970c Dummy {f00=0x0132, f01=0x0190, f02=» ORR A1,A5 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:EX NO! 0 , P LD A5,STKEND+SCLA GET POINTER TO SCLASS J $ P LDR* A1,A5 GET LENGTH OF SCLASS z " P SUK A1,2 EXCLUDE LENGTH WORD P ADR A5,A1 GET LAST ENTRY * P LDR* A5,A5 GET POINTER TO LAS
0x3d970c…3d98a0 Dummy {f00=0x0132, f01=0x0190, f02=» ST A12,SCTSFA UPDATE START OF FREE AREA P RTN A14 RETURN 0 P =6 H P EJECT V J P********************************************************************** d H P* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS J P**********
0x3d98a0…3d9a34 (1, 1048) Dummy {f00=0x0132, f01=0x018e, f02=» A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS * P* A6 - LINE CONNECTION NUMBER @ P* n P* EXIT: x P* P* WORK REGISTERS: A1-A8 P* P* SUBROUTINES: I:CHP,MOVE P* P EJECT PDWTGEN EQU * 4
0x3d9a34…3d9bc8 Dummy {f00=0x0132, f01=0x0190, f02=» n P ADK A7,2 FIRST FILECODE PDWT05 EQU * ( . P LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT < 2 P LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER n P* P* CHECK CONNECTION TYPE P* , P LC A4,TDC+6,A9 GET LINE CONNECTION TYPE $ P
0x3d9bc8…3d9d5c Dummy {f00=0x0132, f01=0x0190, f02=»DWT10 CCK A4,'AA' ASCU4Z CONNECTION? P RF(NE) DWT07 NO! , . P CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z F P RF DWT31 x * PDWT07 CCK A4,'VV' VCCU1/4 CONNECTION? P RF(NE) DWT11 0 P CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4 P RF DW
0x3d9d5c…3d9ef0 Dummy {f00=0x0132, f01=0x018e, f02=»T31 $ PDWT12 CCK A4,'LL' LT CONNECTION? P RF(NE) DWT08 NO! 4 , P CALL I:CHLT INIT CHANNEL PARAMETERS LT N P RF DWT31 ~ $ PDWT08 CCK A4,'RR' RT CONNECTION? P RF(NE) DWT09 NO! =8 . P CALL I:CHRT INIT CHANNEL PARAMETERS RT =8 P R
0x3d9ef0…3da084 Dummy {f00=0x0132, f01=0x0190, f02=» P CALL ERROR 6 PDWT06 CALL I:CHRI INIT CHANNEL PARAMETERS RWSI =8 PDWT31 EQU * R P ST A3,STKEND+CONTYP SAVE f P ST A5,STKEND+WRK3 SAVE P ST A6,STKEND+WRK4 SAVE P* 2 P* CHECK IF DWT ALREADY GENERATED ON THIS LINE P
0x3da084…3da218 Dummy {f00=0x0132, f01=0x0190, f02=»T13 EQU * P RF(Z) DWT32 6 P LD A3,STKEND+CONTYP GET LINE AND CONNECTION TYPE & P CW A3,-4,A4 EQUAL? ` P RF(Z) DWT15 YES! | PDWT14 EQU * " P LDR* A4,A4 GET NEXT BLOCK =7 ( P SUK A5,1 DECREMENT NUMBER OF BLOCKS P RB DWT13
0x3da218…3da3ac Dummy {f00=0x0132, f01=0x0190, f02=»T DEVICE ADDRESS . P LD A3,STKEND+WRK3 GET CHANNEL PARAMETER-2 $ P ANK A3,/003F GET DEVICE ADDRESS J P SUR A3,A6 EQUAL? r 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 GE
0x3da3ac…3da540 Dummy {f00=0x0132, f01=0x0190, f02=»E TYPE v $ P ANKL A6,/8000 ISOLATE ECHO BIT $ P LD A3,DWTTAB,A1 GET DEVICE TYPE 6 $ P ANKL A3,/8000 ISOLATE ECHO BIT ^ 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
0x3da540…3da6d4 (1, 1049) Dummy {f00=0x0132, f01=0x0190, f02=»DEVICE TYPE DWT P* P LDR A2,A12 TO-ADDRESS " P LD A3,DWTOR,A1 LENGTH @ P ADR A12,A3 NEXT FREE ENTRY ^ P CALL CHKMOV P EJECT P* $ P* A1 - ADDRESS TO PROTOTYPE DWT P* A2 - ADDRESS TO REAL DWT P* P LD
0x3da6d4…3da868 Dummy {f00=0x0132, f01=0x0190, f02=»-2 f P* P* CHECK IF INPUT DEVICE P* 4 P LD A3,2,A1 GET DWT STATUS > P ANK A3,/0040 INPUT DEVICE? ` P RF(Z) DWT45 NO P* P* INPUT DEVICE: P* CHECK IF KEYBOARD P* P LD A3,DWTADR,A1 P LD A3,DEV
0x3da868…3da9fc Dummy {f00=0x0132, f01=0x0190, f02=» , P* STORE ADDRESS OF KEYBOARD RUNTIME-DWT : P* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE 4 P* r P* | 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
0x3da9fc…3dab90 Dummy {f00=0x0132, f01=0x0190, f02=»NGTH x ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY 8 P STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE 8 < P ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE t P ADK A3,4 UPDATE LENGTH * P ST* A3,STKEND+ECHTAB SAVE NEW LENGTH P EJECT
0x3dab90…3dad24 Dummy {f00=0x0132, f01=0x0190, f02=» ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER $ P ST A5,DWTSQ-4,A2 STORE POINTER 6 $ P ST A5,DWTSQ-2,A2 STORE POINTER ^ P* P* IF DOUBLE KEYBOARD: D P* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 P* IN ENTRY CORRES
0x3dad24…3daeb8 Dummy {f00=0x0132, f01=0x0190, f02=»BITS p $ P RF(Z) DWT60 NOT DOUBLE KEYBOARD $ P LDR A5,A2 GET REAL DWT-ADDRESS 4 P ADK A5,1 ADD ONE * P CALL B:TTAB BUILD ONE BLOCK IN T.I.T. v P SUK A5,1 $ P LDR A2,A5 GET REAL DWT-ADDRESS P RF DWT60 P EJECT PDWT45 CALL
0x3daeb8…3db04c Dummy {f00=0x0132, f01=0x0190, f02=»* THE DEVICE IS TO BE USED FOR ECHOING ON. 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT 4 0 P* IS THEN STORED IN THE ECHO DEVICE TABLE. n P* 0 P LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS , P RF(NN) DWT59 NO ECHOING ON THIS DEVICE
0x3db04c…3db1e0 Dummy {f00=0x0132, f01=0x0190, f02=» x PDWT55 LDR A4,A3 SAVE LENGTH ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY , . P STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT X , P ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT P ADK A3,4 UPDATE LENGTH * P ST* A3,STKEND+ECHTAB STORE NEW LENGTH P
0x3db1e0…3db374 (1, 1050) Dummy {f00=0x0133, f01=0x018e, f02=»MMU PAGING? P RF(Z) DWT70 P EJECT ( , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS 6 ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS f * P SUR A4,A2 COMPUTE RELOCATION CONSTANT , P SUR A5,A4 RELOCATE MONITOR ECB ADDRESS $ P ANKL A5,/FFFE MAKE EVEN
0x3db374…3db508 Dummy {f00=0x0133, f01=0x0190, f02=» & P LD A5,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER . $ P RF(Z) DWT70 ALLOCATE NO BUFFER! d P* L P* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL P* , P LD A5,DWTMEC,A2 GET MON
0x3db508…3db69c Dummy {f00=0x0133, f01=0x0190, f02=» ST A3,2,A5 SAVE P LDR A3,A4 GET LENGTH & P ADK A3,3 ADD BO FERMS CONSTANT+1 8 , P ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH b P EJECT P* 4 P* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN 6 P* THE SIZE OF BUFFER RESERVED FOR SYS
0x3db69c…3db830 Dummy {f00=0x0133, f01=0x0190, f02=»W A3,STKCOM+BUFSIZ P RF(NG) DWT65 P ST A3,STKCOM+BUFSIZ 2 P ST A12,STKCOM+SYSBUF N PDWT65 EQU * l P ADR A12,A3 NEXT FREE ENTRY P EJECT PDWT70 EQU * P* . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB P*
0x3db830…3db9c4 Dummy {f00=0x0133, f01=0x0190, f02=»2 NEXT ENTRY IN TTAB " P STR A2,A10 STORE DWT-ADDRESS P* B , P* CHECK IF MOORE DEVICES IN THIS CLASS L P* | 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
0x3db9c4…3dbb58 Dummy {f00=0x0133, f01=0x018e, f02=» FIRST POINTER IN ONE POINTER-SET 4 P* AND SECOND POINTER IN THE OTHER POINTER-SET: * 0 P* STORE SECOND POINTER OF FIRST POINTER-SET b 2 P* IN RUNTIME-DWT POINTED AT BY FIRST POINTER 2 P* OF SECOND POINTER-SET AND CLEAR POINTERS OF P* SEC
0x3dbb58…3dbcec Dummy {f00=0x0133, f01=0x0190, f02=» > PECHO LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE " P RF(Z) DWT160 NO ECHO DEVICES! F : P AD A3,STKEND+ECHTAB COMPUTE END OF ECHO DEVICE TABLE l 8 P LD A1,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE P ADK A1,2 BYPASS LENGTH < PDW
0x3dbcec…3dbe80 Dummy {f00=0x0133, f01=0x0190, f02=»RST SET f > PDWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET P RF(E) DWT130 COINCIDENCE! R P ADK A2,4 NEXT POINTER-SET t ( P CWR A2,A3 END OF ECHO DEVICE TABLE $ P RB(NE) DWT110 NO:CHECK NEXT SET P RF DWT140 : PDWT130 LD A4
0x3dbe80…3dc014 (1, 1051) Dummy {f00=0x0133, f01=0x0190, f02=»ADDRESS TO ECHO-DEVICE r P CMR A1 CLEAR FIRST POINTER " P CM 2,A1 CLEAR SECOND POINTER B $ PDWT140 ADK A1,4 NEXT POINTER-SET h ( P CWR A1,A3 END OF ECHO DEVICE TABLE P RB(NE) DWT90 NO! * PDWT150 CM* STKEND+ECHTAB CLEAR LENGTH PDWT1
0x3dc014…3dc1a8 Dummy {f00=0x0133, f01=0x0190, f02=»TAB - BUILD REAL-TIME INTERRUPT TABLE * 2 P********************************************** 0 P* f P* REFERENCED IN: DWTGEN p P* * P* ENTRY: SCTSFA - START OF FREE AREA P* , P* EXIT: REAL TIME INTERRUPT TABLES FOR 2 P*
0x3dc1a8…3dc33c Dummy {f00=0x0133, f01=0x0190, f02=»NTERRUPT TABLES r 0 P LD A1,STKEND+FWTFLG T.I.T. IN FREE AREA? =7 P RF(P) B:ITLT YES? =7 L 4 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA =7 j P LDR A1,P =7 PBIT05 EQU * =7 * P SUK A1,2 DECREMENT MEMORY ADDRESS =7 P CMR A1 CL
0x3dc33c…3dc4d0 Dummy {f00=0x0133, f01=0x0190, f02=»TABLES FOR LT t P* P XIF PB:ITLT EQU * , P IFF SUML=0 @ $ P LDKL A8,0 CONNECTION TYPE = LT T P LDKL A9,7 1:ST BOARD | . P LDK A1,16 MAX.LENGTH OF BOARD CONF. TABLE P ST A1,STKEND+WRK4 SAVE P CM STKEND+WRK1 CLEAR
0x3dc4d0…3dc664 Dummy {f00=0x0133, f01=0x018e, f02=»WRK2 GET INDEX IN MONTAB " P LD A2,STKEND+WRK3 ANY LINES? P RF(Z) BIT15 NO! F P CM STKEND+WRK3 CLEAR ^ : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE | P ST A2,INTLT1,A1 SAVE PBIT15 EQU * P ADK A1,2 & P ST A1,STK
0x3dc664…3dc7f8 Dummy {f00=0x0133, f01=0x0190, f02=» x P RF(G) B:ITRT YES! P RB BIT10 " P XIF 4 P EJECT @ P* N . P* BUILD REAL-TIME INTERRUPT TABLES FOR RT X P* PB:ITRT EQU * P IFF SUMR=0 $ P LDKL A8,1 CONNECTION TYPE = RT P LDKL A9,3 1:ST BOARD . P LDK A
0x3dc7f8…3dc98c Dummy {f00=0x0133, f01=0x0190, f02=» CM STKEND+WRK3 CLEAR PBRT10 EQU * P CALL B:BTAB 2 P CALL B:LTAB F * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB Z " P LD A2,STKEND+WRK3 ANY LINES? P RF(Z) BRT15 NO! P CM STKEND+WRK3 CLEAR : P LD A2,STKEND+BRDTAB GET ADDRESS TO
0x3dc98c…3dcb20 Dummy {f00=0x0133, f01=0x0190, f02=» ADKL A9,1 P ST A9,STKEND+WRK1 STORE P ADKL A9,3 NEXT BOARD 2 P CWK A9,15 LAST BOARD? P P RF(G) B:ITPC YES! n P RB BRT10 P XIF P EJECT P* 4 P* BUILD REAL-TIME INTERRUPT TABLES FOR PLC-LOCAL P* PB:ITPC E
0x3dcb20…3dccb4 (1, 1052) Dummy {f00=0x0133, f01=0x0190, f02=»F.TABLE =2 n P ST A1,STKEND+WRK4 P LDK A1,1 =2 , P ST A1,STKEND+WRK1 =2 B P CM STKEND+WRK2 CLEAR ` P CM STKEND+WRK3 CLEAR ~ PBPC10 EQU * P CALL B:BTAB P CALL B:LTAB * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB " P L
0x3dccb4…3dce48 Dummy {f00=0x0133, f01=0x0190, f02=»ION TABLE P ST A2,INTPL1,A1 SAVE PBPC15 EQU * 0 P ADK A1,2 D & P ST A1,STKEND+WRK2 STORE NEW INDEX V P ADKL A9,1 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
0x3dce48…3dcfdc Dummy {f00=0x0133, f01=0x0190, f02=» P IFF PLCR=0 * P LDKL A8,6 CONNECTION TYPE=PLC-REMOTE P LDKL A9,32 1:ST BOARD J 0 P LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2 h P ST A1,STKEND+WRK4 P LDK A1,1 =2 P ST A1,STKEND+WRK1 =2 P CM STKEND+WRK2 CLEAR P
0x3dcfdc…3dd170 Dummy {f00=0x0133, f01=0x0190, f02=» LD A2,STKEND+WRK3 ANY LINES? P RF(Z) BPR15 NO! ! & P CM STKEND+WRK3 ! > B P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE ! V P ST A2,INTPR1,A1 SAVE ! PBPR15 EQU * ! P ADK A1,2 ! & P ST A1,STKEND+WRK2 STORE NEW INDEX !
0x3dd170…3dd304 Dummy {f00=0x0133, f01=0x0190, f02=»B BPR10 ! P XIF " P EJECT " P " * P* " 2 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR VCCU1/4 " < P* " r PB:ITVU EQU * " | 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 BO
0x3dd304…3dd498 Dummy {f00=0x0133, f01=0x0190, f02=»R " | PBVU10 EQU * # P CALL B:BTAB # P CALL B:LTAB # 2 * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB # F " P LD A2,STKEND+WRK3 ANY LINES? # t P RF(Z) BVU15 NO! # P CM STKEND+WRK3 CLEAR # : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE #
0x3dd498…3dd62c Dummy {f00=0x0133, f01=0x0190, f02=»T A9,STKEND+WRK1 STORE # P ADKL A9,3 NEXT BOARD $ P CWK A9,31 LAST BOARD? $ < P RF(G) B:ITSZ YES! $ Z P RB BVU10 $ t P XIF $ P $ P EJECT $ P* $ 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR SALCUZ $ P* $ PB:ITSZ EQU * $ P I
0x3dd62c…3dd7c0 Dummy {f00=0x0133, f01=0x0190, f02=» $ f P ST A1,STKEND+WRK4 % P CM STKEND+WRK1 CLEAR % " P CM STKEND+WRK2 CLEAR % @ P CM STKEND+WRK3 CLEAR % ^ PBSZ10 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? %
0x3dd7c0…3dd954 (1, 1053) Dummy {f00=0x0133, f01=0x0190, f02=» PBSZ15 EQU * & P ADK A1,2 & & P ST A1,STKEND+WRK2 STORE NEW INDEX & * P ADKL A9,1 & T P ST A9,STKEND+WRK1 & f P CWK A9,7 LAST BOARD? & P RF(G) B:ITAZ YES! & P RB BSZ10 & P XIF & P EJECT & P* & 2 P* BUILD REAL-TIME INTERRUP
0x3dd954…3ddae8 Dummy {f00=0x0133, f01=0x0190, f02=»:ST BOARD & . P LDK A1,8 MAX. LENGTH OF BOARD CONF.TABLE ' P ST A1,STKEND+WRK4 ' D P CM STKEND+WRK1 CLEAR ' ^ P CM STKEND+WRK2 CLEAR ' | P CM STKEND+WRK3 CLEAR ' PBAZ10 EQU * ' P CALL B:BTAB ' P CALL B:LTAB ' * P LD A1,STKEND+WRK2 G
0x3ddae8…3ddc7c Dummy {f00=0x0133, f01=0x0190, f02=»SS TO BOARD CONFIGURATION TABLE ' r P ST A2,INTAS1,A1 SAVE ( ( PBAZ15 EQU * ( F P ADK A1,2 ( Z & P ST A1,STKEND+WRK2 STORE NEW INDEX ( l P ADKL A9,1 ( P ST A9,STKEND+WRK1 ( P ADKL A9,3 NEXT BOARD ( P CWK A9,31 LAST BOARD? ( P RF(G) BAZ
0x3ddc7c…3dde10 Dummy {f00=0x0133, f01=0x0190, f02=»***** ( h 2 P* I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * ) 2 P********************************************* ) D P* ) z P* REFERENCED IN: DWTGEN ) P* ) , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT ) ( P* A2 - POINTER TO REAL DWT ) *
0x3dde10…3ddfa4 Dummy {f00=0x0133, f01=0x018e, f02=»R - 2 ) p . P* A3 - BITS 12-15 CONNECTION TYPE * * P* BITS 4 -11 LINE NUMBER * @ P* WORK REGISTERS: * n P* * P* SUBROUTINES: * P* * PI:CHSZ EQU * * P IFF SALCUZ=0 * $ P CWK A6,8 CONNECTION NUMBER <=8? * P R
0x3ddfa4…3de138 Dummy {f00=0x0133, f01=0x018e, f02=» 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT + $ P ANK A5,/3F CLEAR BITS TO MODIFY + 8 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER + ` " P SLL A3,4 MOVE TO BITS 4 - 11 + ( P ADK A3,2 ADD CONNECTION TYPE SALCUZ + . P ADKL A6,/0200 ADD CONNECTION TYPE
0x3de138…3de2cc Dummy {f00=0x0133, f01=0x0190, f02=» + : P***************************************************** , 2 P* I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * , F : P***************************************************** , | P* , P* REFERENCED IN: DWTGEN , P* , , P* ENTRY: A1 - POINTER TO
0x3de2cc…3de460 Dummy {f00=0x0133, f01=0x0190, f02=»CTION NUMBER , v P* - * P* EXIT: A6 - CHANNEL PARAMETER - 1 - * P* A5 - CHANNEL PARAMETER - 2 - L . P* A3 - BITS 12-15 CONNECTION TYPE - z * P* BITS 4-11 LINE NUMBER - P* - P* WORK REGISTERS: - P* - P
0x3de460…3de5f4 (1, 1054) Dummy {f00=0x0134, f01=0x0190, f02=» - ~ $ P CWK A6,1 CONNECTION NUMBER >=1? . P RF(L) NUMERR NO! . 0 , P SUK A6,1 MODIFY LINE CONNECTION NUMBER . J 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT . z $ P ANK A5,/3F CLEAR BITS TO MODIFY . 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER .
0x3de5f4…3de788 Dummy {f00=0x0134, f01=0x0190, f02=»IFIED LINE CONNECTION NUMBER . ~ P SLL A3,4 / $ , P ANK A6,/1C GET BITS 11-13 BOARD NUMBER / 6 P SRL A6,2 MOVE TO BITS 12-15 / f ( P ADK A3,3 ADD CONNECTION TYPE ASCU4Z / . P ADKL A6,/0300 ADD CONNECTION TYPE ASCU4Z / P RTN A14 / P XIF / P IFT
0x3de788…3de91c Dummy {f00=0x0134, f01=0x0190, f02=»*** / ^ 2 P* I:CHAZ - INIT CHANNEL PARAMETERS VCCU1/4 * 0 : P***************************************************** 0 B P* 0 P* REFERENCED IN: DWTGEN 0 P* 0 , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT 0 ( P* A2 - POINTER TO REAL DWT
0x3de91c…3deab0 Dummy {f00=0x0134, f01=0x0190, f02=»METER - 1 0 t * P* A5 - CHANNEL PARAMETER - 2 1 . P* A3 - BITS 12-15 CONNECTION TYPE 1 @ * P* BITS 4-11 LINE NUMBER 1 r P* 1 P* WORK REGISTERS: 1 P* 1 P* SUBROUTINES: 1 P* 1 PI:CHVC EQU * 1 P IFF
0x3deab0…3dec44 Dummy {f00=0x0134, f01=0x0190, f02=»R NO! 1 , P SUK A6,1 MODIFY LINE CONNECTION NUMBER 2 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT 2 > $ P ANK A5,/3F CLEAR BITS TO MODIFY 2 r 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
0x3dec44…3dedd8 Dummy {f00=0x0134, f01=0x0190, f02=»6,/1C GET 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 N . P ADKL A6,/0700 ADD CONNECTION TYPE VCCU1/4 3 | P RTN A14 3 P XIF 3 P IFT VIDEO=0 3 P LDKL A1,LMP4 3 P CALL ERROR 3 P
0x3dedd8…3def6c Dummy {f00=0x0134, f01=0x0190, f02=»********************************** 3 P* 4 * P* REFERENCED IN: DWTGEN 4 4 P* 4 T , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT 4 ^ ( P* A2 - POINTER TO REAL DWT 4 * P* A6 - LINE CONNECTION NUMBER 4 P* 4 * P* EXIT: A6 - CHANNE
0x3def6c…3df100 Dummy {f00=0x0134, f01=0x0190, f02=»BITS 4 -11 LINE NUMBER 4 P* 5 P* WORK REGISTERS: 5 ( P* SUBROUTINES: 5 B P* 5 Z PI:CHPC EQU * 5 d P IFF PLCL=0 5 x ( 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
0x3df100…3df294 (1, 1055) Dummy {f00=0x0134, f01=0x0190, f02=» LINE CONNECTION NUMBER 5 P ANK A3,/1F GET BITS 11 - 15 6 P ADK A3,1 6 D P SLL A3,8 MOVE TO BITS 2 - 7 6 V & P ORR A5,A3 MERGE WITH OLD CONTENTS 6 z * P LDR A3,A6 GET LINE CONNECTION NUMBER 6 P ADK A3,1 6 " P SLL A3,4 MOVE TO BITS 4 - 11 6 &
0x3df294…3df428 Dummy {f00=0x0134, f01=0x0190, f02=»A6,/0500 ADD CONNECTION TYPE PLC 6 P RTN A14 7 ( P XIF 7 8 P IFT PLCL=0 7 D P LDKL A1,LMP4 7 X P CALL ERROR 7 n P XIF 7 P EJECT 7 . P****************************************** 7 2 P* I:CHPC - INIT CHANNEL PARAMETERS RWSI * =8 7 . P****
0x3df428…3df5bc Dummy {f00=0x0134, f01=0x0190, f02=»WT 7 j ( P* A2 - POINTER TO REAL DWT 8 * P* A6 - LINE CONNECTION NUMBER 8 6 P* 8 d * P* EXIT: A6 - CHANNEL PARAMETER - 1 8 n * P* A5 - CHANNEL PARAMETER - 2 8 . P* A3 - BITS 12-15 CONNECTION TYPE 8 * P*
0x3df5bc…3df750 Dummy {f00=0x0134, f01=0x0190, f02=» 8 ( P CWK A6,128 CONNECTION NUMBER <=128? 9 P RF(G) NUMERR NO! 9 4 $ P CWK A6,1 CONNECTION NUMBER >=1? 9 N P RF(L) NUMERR NO! 9 v 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
0x3df750…3df8e4 Dummy {f00=0x0134, f01=0x0190, f02=» MERGE WITH OLD CONTENTS 9 * P LDR A3,A6 GET LINE CONNECTION NUMBER : P ADK A3,1 : N " P SLL A3,4 MOVE TO BITS 4 - 11 : ` , 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 :
0x3df8e4…3dfa78 Dummy {f00=0x0134, f01=0x0190, f02=»ERROR : r P CALL ERROR ; P EJECT ; " * P************************************* ; 0 . P* I:CHLT - INIT CHANNEL PARAMETERS LT * ; ^ * P************************************* ; P* ; P* REFERENCED IN: DWTGEN ; P* ; , P* ENTRY: A1 - POINTE
0x3dfa78…3dfc0c Dummy {f00=0x0134, f01=0x0190, f02=» A6 - CHANNEL PARAMETERS -1 ; * P* A5 - CHANNEL PARAMETERS -2 < $ . P* A3 - BITS 12-15 CONNECTION TYPE < R * P* BITS 4-11 LINE NUMBER < P* < P* WORK REGISTERS: < P* < P* SUBROUTINES: < P* < P EJECT
0x3dfc0c…3dfda0 Dummy {f00=0x0134, f01=0x0190, f02=»ONNECTION NUMBER >=01? < P RB(L) NUMERR NO =8! = , P SUK A6,1 MODIFY LINE CONNECTION NUMBER = : 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT = j ( P ANKL A5,/003F CLEAR BITS TO MODIFY = 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER = P ANK A3,
0x3dfda0…3dff34 (1, 1056) Dummy {f00=0x0134, f01=0x0190, f02=»ION NUMBER = l P SLL A3,4 > P ANK A6,/18 GET BITS 11-12 > $ P SRL A6,3 MOVE TO BITS 14-15 > F P RTN A14 > j P XIF > z P IFT SUML=0 > P LDKL A1,LMP4 > P CALL ERROR > P XIF > P EJECT > . P*****************************************
0x3dff34…3e00c8 Dummy {f00=0x0134, f01=0x018e, f02=»DWTGEN > ~ P* ? , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT ? ( P* A2 - POINTER TO REAL DWT ? H * P* A6 - LINE CONNECTION NUMBER ? t P* ? * P* EXIT: A6 - CHANNEL PARAMETERS - 1 ? * P* A5 - CHANNEL PARAMETERS - 2 ? . P
0x3e00c8…3e025c Dummy {f00=0x0134, f01=0x0190, f02=» ? P* SUBROUTINES: @ P* @ P EJECT @ * PI:CHRT EQU * @ 8 P IFF SUMR=0 @ L * P CWK A6,0016 CONNECTION NUMBER <= 16? @ ` 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
0x3e025c…3e03f0 Dummy {f00=0x0134, f01=0x0190, f02=» MODIFIED LINE CONNECTION NUMBER @ P ANK A3,3 GET BITS 14-15 A ( P SLL A3,8 MOVE TO BITS 6-7 A H & P ORR A5,A3 MERGE WITH OLD CONTENTS A j 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
0x3e03f0…3e0584 Dummy {f00=0x0134, f01=0x0190, f02=» P IFT SUMR=0 =8 B P LDKL A1,LMP4 B P CALL ERROR B 0 P XIF =8 B D P IFT DC=1 B T P EJECT B f < P******************************************************* B t < P* * B < P* B:CNA BUILD COM
0x3e0584…3e0718 Dummy {f00=0x0134, f01=0x0190, f02=» * B t < P* SCANS POSSIBLE D-BLOCK IN CONFIGURATION DATA * C $ < P* AND BUILDS DATA COMMUNICATION TABLE IN MEMORY. * C d < P* TABLE START IS DEFINED BY THE POINTER SCTDCT * C < P* IN SYSTAB.
0x3e0718…3e08ac Dummy {f00=0x0134, f01=0x0190, f02=»SYSLOD) * C d < P* * D < P* REFERENCED IN: CONMON * D T < P* SUBROUTINES CALLED: GETDTE, P:DTE * D < P* WORK REGISTERS: A1-A12
0x3e08ac…3e0a40 Dummy {f00=0x0134, f01=0x0190, f02=» P E P E PB:CNA EQU * E P LD A11,DCBLK+STKCOM E 0 * P RF(Z) B:CN20 NO DATA COMMUNICATION =1 E L P* E z < P AD A11,CONSTA+STKCOM GET D BLOCK ADDRESS IN CONF. DATA E * P LD A12,SCTSFA GET START OF FREE AREA E ( P ST A12,SCTDCT UPDATE
0x3e0a40…3e0bd4 (1, 1057) Dummy {f00=0x0134, f01=0x0190, f02=»E TO START OF SDTE RECORD E ~ PB:CN00 EQU * F " P SUK A1,1 F 6 2 P RF(N) B:CN10 NO DTE BLOCKS LEFT IN CONF. DATA F H P* F ~ . 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 B
0x3e0bd4…3e0d68 Dummy {f00=0x0134, f01=0x0190, f02=» PB:CN10 EQU * G P CM 0,A12 AND RESET IT G P ADKL A12,2 G 6 , P ST A12,SCTSFA UPDATE START OF FREE AREA G J PB:CN20 EQU * =1 G z P RTN A14 G P EJECT G < P******************************************************* G < P*
0x3e0d68…3e0efc Dummy {f00=0x0134, f01=0x0190, f02=»==================== * G r < P* * H " < P* SCANS DTE BLOCK IN CONF. DATA AND BUILDS CORRE- * H b < P* SPONDING DTE-BLOCK IN SCTDCT. IF MULTIPLE COPIES * H < P* ARE DEFINED CURRENT DTE IS DUPLICA
0x3e0efc…3e1090 Dummy {f00=0x0134, f01=0x018e, f02=» * H b < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * I < P* SDTE NAME IN CONF. DATA * I R < P* A12 POINTER TO START OF CURRENT * I < P* DTE BLOCK IN SCTDCT TABLE
0x3e1090…3e1224 Dummy {f00=0x0134, f01=0x0190, f02=» < P* PROCESSED DTE-BLOCK IN CONF. DATA * J < P* A12 POINTER TO LAST DEFINED DTE-BLOCK * J D < P* DEFINED IN SCTDCT TABLE * J < P* * J < P*
0x3e1224…3e13b8 Dummy {f00=0x0134, f01=0x0190, f02=» AND MOVE * J < P* * K 4 < P******************************************************* K t P K P K PP:DTE EQU * K * P LDKL A1,/3000 INITIALIZE NAME FILLER K
0x3e13b8…3e154c Dummy {f00=0x0134, f01=0x0190, f02=» START OF TYPE RECORD? K P RF(E) PDTE00 YES! L P* L 8 & P SLL A1,8 NO LEFT ADJUST CHAR. AND L B $ P LC A1,1,A11 GET NEXT CHARACTER L 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 COPIE
0x3e154c…3e16e0 Dummy {f00=0x0134, f01=0x0190, f02=»YPE IDENTIFIER L P LC A1,2,A11 M & P ST A1,DTETYP+STKEND SAVE IN STACK M * P ADKL A11,2 M T ( P LDK A2,0 RESET NETWORK ADDR. LENGTH M h 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-NS
0x3e16e0…3e1874 (1, 1058) Dummy {f00=0x0135, f01=0x0190, f02=»NA M h & P ST A11,NASTRT+STKEND SAVE ADDRESS N & P CALL P:NA PROCESS NETWORK ADDRESS N 4 P LC A7,2,A11 N ^ PPDTE05 EQU * N r * P ST A2,NALNG+STKEND SAVE LENGTH OF NA N P LDK A1,0 N P CALL ENDBLK END OF D-BLOCK? N P LDR A8,A8 N P RF(Z) PDTE0
0x3e1874…3e1a08 Dummy {f00=0x0135, f01=0x0190, f02=» P CALL GETNSA O * P ADKL A11,2 SKIP NSA NR IN CONF. DATA O PPDTE07 EQU * O F 2 P ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. DEF. O Z $ 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, ERRO
0x3e1a08…3e1b9c Dummy {f00=0x0135, f01=0x0190, f02=»1,NSAADR+STKEND SAVE ADDR. OF 1ST SUBADDR. O P SLL A1,1 P 2 . P ADR A11,A1 CALCULATE STAT OF NEXT RECORD P D PPDTE15 EQU * P v 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
0x3e1b9c…3e1d30 Dummy {f00=0x0135, f01=0x0190, f02=»ONSTANT P p * P LD A4,DTENAM+STKEND GET PREVIOUS NAME Q P LDR A3,A4 Q > * P ANK A3,/FF ISOLATE RIGHT BYTE OF NAME Q P P CWK A3,/5F UPPER BOUNDARY? Q ~ P RF(L) PDTE25 NO! Q P* Q , P LC A4,/30 RESET RIGHT BYTE TO ASCII '0' Q & P SLL A5,8 LEFT BYT
0x3e1d30…3e1ec4 Dummy {f00=0x0135, f01=0x0190, f02=» END OF D-BLOCK? Q P LDR A8,A8 R P RF(Z) PDTE35 YES! R * P* R D . P LC A1,2,A11 GET 2ND CHAR. IN NEXT RECORD R N 0 P CCK A1,'DD' IF A SDTE-RECORD USE OLD ADDR. R P RF(E) PDTE35 R P* R P CCK A1,'SS' IF NSA RECORD R * P RF(E) PDTE30 USE
0x3e1ec4…3e2058 Dummy {f00=0x0135, f01=0x018e, f02=» NETWORK ADDRESS R ~ * P ST A2,NALNG+STKEND SAVE LENGTH OF NA S P* S F P CALL ENDBLK END OF D-BLOCK? S P P LDR A8,A8 S t P RF(Z) PDTE35 YES! S P* S P LC A1,2,A11 S P CCK A1,'SS' S ( P RF(NE) PDTE35 NO NSA RECORD PRESENT S P* S P
0x3e2058…3e21ec Dummy {f00=0x0135, f01=0x0190, f02=» P ADKL A11,2 T P LDR A1,A1 T P RF(Z) PDTE35 NO SUBADDRESSE T * P* T N P CWK A1,/FF T X , P RB(G) NSAERR TOO MANY SUBADDR. DEFINED T l P* T 4 P ST A11,NSAADR+STKEND SAVE START OF 1ST SUBADDR. T P SLL A1,1 T . P ADR A11,A1 CALCULATE ST
0x3e21ec…3e2380 Dummy {f00=0x0135, f01=0x0190, f02=»E BLOCK T h P CALL UPDDTE U P RB PDTE20 U $ P* U 6 PPDTE40 EQU * U @ P RTN A14 U T P EJECT U d < P******************************************************** U r < P* * U < P* DTESIZ CALCULATES
0x3e2380…3e2514 (1, 1059) Dummy {f00=0x0135, f01=0x0190, f02=» * U r < P* ON ENTRY: A12 START OF CURRENT DTE BLOCK * V " < P* * V b < P* WORK REGISTER: A1,A9 * V < P*
0x3e2514…3e26a8 Dummy {f00=0x0135, f01=0x0190, f02=»K1+STKEND V 6 P LD A1,NALNG+STKEND GET LENGTH OF NETWORK ADDRESS W P ADK A1,1 W L $ P SRL A1,1 2 DIGITS IN EACH BYTE W ^ , 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
0x3e26a8…3e283c Dummy {f00=0x0135, f01=0x0190, f02=» 0 P LD A11,LIMIT+STKEND GET END OF SYSTEM AREA X " P CALL CMPADR MEMORY OVERFLOW? X 8 P RF(NL) DTSIZ0 NO! X ^ P* X x P LDKL A1,LMP3 YES! X P CALL ERROR X P* X PDTSIZ0 EQU * X 6 P LD A11,WRK1+STKEND RESTORE POSITION IN CONF. DATA X P
0x3e283c…3e29d0 Dummy {f00=0x0135, f01=0x018e, f02=» * X f < P* UPDDTE UPDATES CURRENT DTE BLOCK WITH ITS: * Y < P* ====== * Y V < P* NAME * Y < P* TYPE
0x3e29d0…3e2b64 Dummy {f00=0x0135, f01=0x0190, f02=» Y V < P* * Z < P******************************************************** Z H 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 L
0x3e2b64…3e2cf8 Dummy {f00=0x0135, f01=0x0190, f02=»OM STACK Z p P STR A1,A6 AND SAVE IN DCT [ P ADK A6,2 [ 2 P LDK A5,4 GET NO OF SHIFTS [ D . P ORKL A5,SLL0 AND CONFIG. SLL A1,8 INSTR. [ f 4 P LD A2,NALNG+STKEND GET LENGTH OF NETWORK ADDR. [ $ P LDR A3,A2 SAVE NO OF CHARACTERS [ P SLL A2,8 LEFT A
0x3e2cf8…3e2e8c Dummy {f00=0x0135, f01=0x0190, f02=»XCPY COPY AND PACK NA TO DCT [ $ P ANKL A5,/1F ISOLATE SHIFT COUNT $ & P CWK A5,4 LESS THAN ONE BYTE LEFT? L P RF(NG) UPDTE2 YES! v PUPDTE0 EQU * P LDK A5,0 SET NO OF SHIFTS P RF UPDTE4 P* PUPDTE2 EQU * P STR A2,A6 STORE
0x3e2e8c…3e3020 Dummy {f00=0x0135, f01=0x0190, f02=»QU * , P ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. ] 4 P LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED ] < & P RF(Z) UPDTE8 NO SUBADDR. DEFINED ] t P* ] 4 P LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR. ] P LDR A3,A1 ] * P SLL A3,1 2 DIGITS FOR
0x3e3020…3e31b4 (1, 1060) Dummy {f00=0x0135, f01=0x0190, f02=»O! ] P* ^ P STR A2,A6 YES! SAVE IN DCT ^ P LDK A2,0 CLEAR TABLE WORD ^ 8 " P ADK A6,2 ADVANCE DCT POINTER ^ Z P LDK A5,16 NO OF SHIFTS ^ , P ORKL A5,SLL0 CONFIGURE SLL A1,12 INSTR. ^ PUPDTE6 EQU * ^ P SUK A5,4 NEXT NIBBLE ^ ( P CALL
0x3e31b4…3e3348 Dummy {f00=0x0135, f01=0x0190, f02=»************************** ^ r < P* * _ " < P* HEXCPY COPIES AND PACKS 4 HEXADECIMAL DIGITS * _ b < P* IN ONE WORD. * _ < P*
0x3e3348…3e34dc Dummy {f00=0x0135, f01=0x018e, f02=» * _ b < P* A4 ADDRESS TO FIRST ASCII DIGIT * ` < P* A5 PACKING INSTR. (SLL A1,N TIMES) * ` R < P* A6 POINTER WHERE TO STORE PACKED WORD * ` < P*
0x3e34dc…3e3670 Dummy {f00=0x0135, f01=0x0190, f02=» < P* PROCESSED DIGIT * a < P* A5 PACKING INSTR. (SLL A1,N TIMES) * a D < P* A6 POINTER WHERE TO STORE NEXT WORD * a < P* * a < P****
0x3e3670…3e3804 Dummy {f00=0x0135, f01=0x0190, f02=»T CHARACTER a P CALL HEXCNV CONVERT TO HEX b P EXR A5 SHIFT b 8 " P ORR A2,A1 CONFIGURE DCT WORD b N ( P SUK A3,1 DECREMENT NO OF CHARACTERS b t $ P RF(Z) HXCPY8 WHOLE NA PROCESSED b P* b P CWK A5,SLL0 FULL WORD? b P RF(NE) HXCPY6 NO! b
0x3e3804…3e3998 Dummy {f00=0x0135, f01=0x0190, f02=»O OF SHIFTS b , P ORKL A5,SLL0 CONFIGURE SSL A1,16 INSTR. c PHXCPY6 EQU * c D P SUK A5,4 NEXT NIBBLE c X * P ADK A4,1 NEXT CHARACTER IN CONF. DATA c v P RB HEXCPY c P* c PHXCPY8 EQU * c P RTN A14 c P EJECT c < P**********************
0x3e3998…3e3b2c Dummy {f00=0x0135, f01=0x0190, f02=»IMAL DIGIT IN ASCII CODE * c r < P* TO CORRESPONDING HEXADECIMAL VALUE * d " < P* (4 BITS BINARY CODE) * d b < P* * d < P* ON ENTRY: A1 CHARACTER TO CONVERT
0x3e3b2c…3e3cc0 Dummy {f00=0x0135, f01=0x0190, f02=» * d b < P* * e < P******************************************************** e R P e P e PHEXCNV EQU * e " P ANK A1,/FF ISOLATE CHARACTER e P CWK A1,/29 e P RF(L) TYPERR ER
0x3e3cc0…3e3e54 (1, 1061) Dummy {f00=0x0135, f01=0x0190, f02=»* e " P CWK A1,/46 DIGIT BETWEEN A-F? f P RF(G) TYPERR NO f 0 P* f H P ADK A1,9 YES! f R PHXCN00 EQU * f h " P ANK A1,/F ISOLATE HEX NUMBER f | P RTN A14 f P* f PTYPERR EQU * f " P LDKL A1,LMP4 CONF. DATA ERROR f P CALL ERROR f
0x3e3e54…3e3fe8 Dummy {f00=0x0135, f01=0x0190, f02=» f X < P* P:NA PROCESS NETWORK ADDRESS * g < P* * g H < P* SCANS THE NETWORK ADDRESS RECORD (NA=..) IN CONF. * g < P* DATA AND REPACKS THE RECORD, OVERWRITING POSSIBLE * g < P
0x3e3fe8…3e417c Dummy {f00=0x0135, f01=0x0190, f02=»S. * g < P* * h 8 < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN NETWORK * h x < P* ADDRESS. * h < P*
0x3e417c…3e4310 Dummy {f00=0x0135, f01=0x018e, f02=»OF NSA RECORD IN CONF. DATA * h x < P* * i ( < P******************************************************** i h P i P i PP:NA EQU * i $ P LDK A4,1 RESET PACKING CONSTANT i " P LDK A2,0 RESE
0x3e4310…3e44a4 Dummy {f00=0x0135, f01=0x0190, f02=» $ P RF(Z) P:NA06 END OF CONF. DATA j P* j , P CCK A1,/FF END OF D-BLOCK? j 6 P RF(E) P:NA05 YES! j Z P* j t & P CCK A1,'==' CONTINUATION RECORD? j ~ 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:N
0x3e44a4…3e4638 Dummy {f00=0x0135, f01=0x0190, f02=»DDRESS LENGTH j x P CWK A2,/FF TOO MANY DIGITS? k P RF(NG) P:NA02 NO! k : P* k T * P LDKL A1,LMP4 YES! ERROR IN CONF. DATA k ^ 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 BAC
0x3e4638…3e47cc Dummy {f00=0x0135, f01=0x0190, f02=»RD IDENTIFIER k p $ P SUK A4,2 SET REPACKING CONSTANT l * P ADKL A11,1 ADVANCE TO NEXT CHARACTER l > P RB P:NA00 l l P* l ~ 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
0x3e47cc…3e4960 Dummy {f00=0x0135, f01=0x0190, f02=» * l t < P* ENDBLK LOOKS FOR END OF DATA COMMUNICATION BLOCK * m $ < P* ================================================= * m d < P* * m < P* END OF BLOCK IS DEFINED BY A REC
0x3e4960…3e4af4 (1, 1062) Dummy {f00=0x0136, f01=0x0190, f02=»OF * m d < P* CONFIGURATION DATA. * n < P* * n T < P* ON ENTRY: A11 CURRENT POSITION IN CONF. DATA * n < P*
0x3e4af4…3e4c88 Dummy {f00=0x0136, f01=0x018e, f02=» < P* * o < P******************************************************** o D P o 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!
0x3e4c88…3e4e1c Dummy {f00=0x0136, f01=0x0190, f02=» o ( P SUR A8,A8 SET END OF D-BLOCK COND. p PENDBL2 EQU * p 4 P RTN A14 p H P XIF p X P EJECT p d T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= p r 6 P* GENERAL SUBROUTINES * p T P*=*=
0x3e4e1c…3e4fb0 Dummy {f00=0x0136, f01=0x0190, f02=»************************ p t 8 P* GETTSK - GET NUMBER OF TASKS IN A TASK-CLASS * q P* q 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CLASSES q f P* q 8 P**************************************************** q P* q " P* REFERENCED IN: B:TCT
0x3e4fb0…3e5144 Dummy {f00=0x0136, f01=0x0190, f02=»THE TASK CLASS (BINARY VALUE) q l P* r & P* WORK REGISTERS: A5 r 0 P* r N P* SUBROUTINES: CONVRT r X P* r x PGETTSK EQU * r PGETCTC EQU * r . PGETDTE EQU * GET NO OF DTE BLOCKS DEFINED r . PGETCOP EQU * GET NO OF COPIES OF LAST DTE r
0x3e5144…3e52d8 Dummy {f00=0x0136, f01=0x0190, f02=»RT r P RTN A14 s P EJECT s 8 P**************************************************** s ( 8 P* GETTDC - GET NUMBER OF TERMINAL DEVICE CLASSES * s d 8 P**************************************************** s P* s P* REFERENCED IN: B:TT s P*
0x3e52d8…3e546c Dummy {f00=0x0136, f01=0x0190, f02=»BINRY VALUE) s P* t P* WORK REGISTERS: A5 t P* t < P* SUBROUTINES: CONVRT t F P* t d PGETTDC EQU * t n P LC A5,TDBNC,A11 t 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****************
0x3e546c…3e5600 Dummy {f00=0x0136, f01=0x018e, f02=»******************* t p P* u P* REFERENCED IN: B:TT u & P* u F 4 P* ENTRY: A9 - POINTER TO NUMBER OF SDC RECORD u P P* u D P* EXIT: A1 - NUMBER OF SPECIAL DEVICE CLASSES (BINARY VALUE) u P* u P* WORK REGISTERS: A5 u P* u
0x3e5600…3e5794 (1, 1063) Dummy {f00=0x0136, f01=0x0190, f02=» u P RTN A14 v P EJECT v 2 P********************************************** v & 2 P* GETCLN - GET CLASS IDENTIFICATION NUMBER * v 2 P********************************************** v P* v P* REFERENCED IN: B:TT v P* v 6 P* ENTRY: A
0x3e5794…3e5928 Dummy {f00=0x0136, f01=0x0190, f02=»ORK REGISTERS: A5 v P* w P* SUBROUTINES: CONVRT w $ P* w D PGETCLN EQU * w N P LC A5,TDCDD1,A9 w b P SLL A5,8 w z P LC A5,TDCDD2,A9 w P CALL CONVRT w P RTN A14 RETURN w P EJECT w . P*****************************************
0x3e5928…3e5abc Dummy {f00=0x0136, f01=0x0190, f02=» B:DWTT w ~ P* x 8 P* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD x P* x V : P* EXIT: A1 - LINE CONNECTION NUMBER (BINARY VALUE) x ` P* x P* WORK REGISTERS: A5 x P* x P* SUBROUTINES: CONVRT x P* x PGETLCN EQU * x
0x3e5abc…3e5c50 Dummy {f00=0x0136, f01=0x0190, f02=» 2 P ADK A6,TDCLCN ADDRESS LINE CONNECTION NUMBER y , P CALL GETNUM GET LINE CONNECTION NUMBER y : P LDR A1,A5 SAVE BINARY VALUE y j 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 E
0x3e5c50…3e5de4 Dummy {f00=0x0136, f01=0x0190, f02=»* GETTCL - GET TASK CLASS TO MATCH * y : P* ================================ * z > : P* * z | : P* REFERENCED IN: B:TT * z : P*
0x3e5de4…3e5f78 Dummy {f00=0x0136, f01=0x018e, f02=» * z t : P* EXIT: A5 - TCL START VALUE FOR THIS TASK CLASS * { " : P* * { ` : P* WORK REGISTERS: A1-A7,A10 * { : P*
0x3e5f78…3e610c Dummy {f00=0x0136, f01=0x0190, f02=» { X : P***************************************************** | P | F PGETTCL EQU * | N P LDR A6,A5 SAVE TCL | b P LDR A7,A6 TCL START VALUE | ~ 8 P LDR A10,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK | 6 P LD A11,STKEND+LCDSTA START OF CONFIGURATION
0x3e610c…3e62a0 Dummy {f00=0x0136, f01=0x0190, f02=»L | h P SLL A5,8 MOVE TO LEFT BYTE } . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL } . P CWR A5,A6 SAME TCL? } ` P RF(NE) TCL:50 NO! } | & P CALL GETTSK GET NUMBER OF COPIES } P ADR A7,A1 INCREMENT TCL } 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BL
0x3e62a0…3e6434 (1, 1064) Dummy {f00=0x0136, f01=0x018e, f02=»************* } t . P* GETCON - GET CONTENT IN MEMORY WORD * ~ . P***************************************** ~ H P* ~ z P* REFERENCED IN: SEGGEN ~ P* ~ " P* ENTRY: A2 - MEMORY ADDRESS ~ . P* MMUOPT - MMU OPTION SWITCH (X) ~ P
0x3e6434…3e65c8 Dummy {f00=0x0136, f01=0x018e, f02=» PGETCON EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,1 MMU OPTION > P RF(Z) GCON10 NO MMU Z P ELR A1,A2 v P RF GCON20 PGCON10 EQU * P LDR* A1,A2 PGCON20 EQU * P RTN A14 RETURN P EJECT . P************
0x3e65c8…3e675c Dummy {f00=0x0136, f01=0x0190, f02=» P* P* REFERENCED IN: DWTGEN P* . 4 P* ENTRY: INTTAB - START OF TEMP.INTERRUPT TABLE 8 6 P* CONTYP - CONNECTION TYPE AND LINE NUMBER p , P* A5 - RUN TIME DWT-ADDRESS P* P* EXIT: P* P* WORK RE
0x3e675c…3e68f0 Dummy {f00=0x0136, f01=0x0190, f02=»T.I.T. n $ P LDR* A2,A4 GET NUMBER OF BLOCKS P SUK A4,2 6 P H P LDR A2,A2 ZERO? P PTTA10 EQU * h P RF(Z) TTA11 YES! | ( P LDR* A4,A4 GET START OF NEXT BLOCK P SUK A2,1 ZERO? P RB TTA10 P* P* AREA TO BUILD BL
0x3e68f0…3e6a84 Dummy {f00=0x0136, f01=0x0190, f02=»JECT P* P* BUILD BLOCKS IN FWT AREA P* 8 PTTA09 EQU * B P LDK A3,5 V PTTA12 EQU * h P SUK A2,2 | < 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
0x3e6a84…3e6c18 Dummy {f00=0x0136, f01=0x018e, f02=» AREA z P* PTTA15 EQU * P LDK A3,5 , PTTA16 EQU * > P SUK A2,2 R P CWR A2,A12 d P RF(E) TTA17 x P ST A2,STKEND+LIMIT P SUK A3,1 P RF(Z) TTA20 P RB TTA16 PTTA17 EQU * P LDKL A1,LMP3
0x3e6c18…3e6dac Dummy {f00=0x0136, f01=0x018e, f02=» PTTA30 EQU * P ADK A2,4 0 P STR A2,A4 STRORE POINTER TO NEXT FREE BLOCK * P* ^ P* STORE NUMBER OF BLOCKS h P* . P IM* STKEND+INTTAB INCREMENT BLOCK COUNTER P RTN A14 RETURN P EJECT 2 P******************************
0x3e6dac…3e6f40 Dummy {f00=0x0136, f01=0x0190, f02=» P* REFERENCED IN: B:ITAB P* ( " P* ENTRY: A8 - CONNECTION TYPE 2 P* A9 - BOARD NUMBER X 8 P* SAVE20 - MAX. LENGTH OF BOARD CONF. TABLE | P* & P* EXIT: A12 - START OF FREE AREA P* , P* WORK REGISTERS:
0x3e6f40…3e70d4 (1, 1065) Dummy {f00=0x0136, f01=0x0190, f02=»ST IF MEMORY OVERFLOW? , P LD A12,SCTSFA NO!GET START OF FREE AREA P LDR A11,A12 SAVE N P ADKL A12,2 h P ST A12,STKEND+BRDTAB STORE | @ P LD A10,STKEND+INTTAB GET START OF TEMPORARY INTERRUPT TABLE , P LDR* A1,A10 GET NUMBER OF BLOCKS.ZE
0x3e70d4…3e7268 Dummy {f00=0x0136, f01=0x018e, f02=»BER AND CONNECTION TYPE v P LDR A3,A2 SAVE $ P ANK A3,/0F GET CONNECTION TYPE 8 P SUR A3,A8 RIGHT TYPE? ` P RF(Z) BTA30 YES! ~ PBTA20 EQU * $ P LDR* A10,A10 NO!GET NEXT BLOCK P SUK A1,1 LAST BLOCK? P RB BTA10 PBTA3
0x3e7268…3e73fc Dummy {f00=0x0136, f01=0x0190, f02=» P RB(G) BTA20 NO! P* P LD A3,STKEND+WRK1 & P CWR A2,A3 @ P RB(L) BTA20 NO! R P* j & P* BUILD BOARD CONFIGURATION TABLE t P* P IM STKEND+WRK3 " P CWK A8,5 LWSI CONNECTION? =2 P RF(E) BTA34 YES! =2 " P CWK A
0x3e73fc…3e7590 Dummy {f00=0x0136, f01=0x018e, f02=»A3 P ADR A2,A2 P LDR A12,A11 P ADKL A12,2 0 ( P ADR A12,A2 GET ENTRY IN BOARD TABLE D P STR A11,A12 STORE p P RB BTA20 PBTA40 EQU * P* 2 P* COMPUTE LENGTH OF BOARD CONFIGURATION TABLE P* : P LD A1,STKEND+
0x3e7590…3e7724 Dummy {f00=0x0136, f01=0x0190, f02=» P LDR* A2,A12 P RF(NZ) BTA60 P SUK A1,2 2 P RF(Z) BTA70 D P SUKL A12,2 X P RB BTA50 l PBTA60 EQU * ~ : P STR A1,A11 STORE LENGTH OF BOARD CONFIGURATION TABLE P ADKL A12,2 0 P ST A12,SCTSFA STORE NEW START OF FR
0x3e7724…3e78b8 Dummy {f00=0x0136, f01=0x0190, f02=»B - BUILD LINE CONFIGURATION TABLES * 2 P********************************************** . P* d P* REFERENCED IN: B:ITAB n P* " P* ENTRY: WRK1 - BOARD NUMBER & P* A8 - CONNECTION TYPE P* & P* EXIT: A12 - START
0x3e78b8…3e7a4c Dummy {f00=0x0136, f01=0x0190, f02=»FIGURATION TABLE l P RF(Z) BLT70 P LDKL A3,-1 LINE COUNTER , P RF BLT15 L PBLT10 EQU * ^ P SUK A1,2 DECREMENT LENGTH r P RF(Z) BLT70 RETURN P* PBLT15 EQU * P LDR A2,A12 P ADK A2,24 B P ST A2,STKEND+FWTFLG
0x3e7a4c…3e7be0 Dummy {f00=0x0136, f01=0x018e, f02=»ER x P ADKL A11,2 P LDR* A2,A11 READ LINE.ZERO? P RB(Z) BLT10 YES! B P LDK A4,32 GET TEST LENGTH ( P CALL M:TST TEST IF MEMORY OVERFLOW? ~ P* $ P* SCAN TEMPORARY INTERRUPT TABLE P* ( P LD A2,STKEND+WRK1 GET BOARD NUMBE
0x3e7be0…3e7d74 (1, 1066) Dummy {f00=0x0137, f01=0x0190, f02=» z PBLT16 EQU * =8 P SUK A2,1 =2 PBLT17 EQU * =2 4 P ADR A2,A3 ADD LINE NUMBER L P SLL A2,4 n " 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
0x3e7d74…3e7f08 Dummy {f00=0x0137, f01=0x0190, f02=» ~ P* < P* STORE RUN-TIME DWT-ADDRESS IN LINE CONFIGURATION TABLE P* R * P LD A5,-2,A10 GET RUN TIME DWT-ADDRESS P LDR A6,A5 " P ANK A6,/0001 DOUBLE KEYBOARD? P RF(Z) BLT25 N0! & P LD A6,DWTDEV,A5 GET DEVICE STATUS ( P ANK
0x3e7f08…3e809c Dummy {f00=0x0137, f01=0x0190, f02=»HANNEL PARAMETERS-2 z P ANK A6,7 GET DEVICE ADDRESS PBLT26 EQU * @ P ADR A6,A6 T P LDR A7,A12 SAVE f P ADR A7,A6 ~ 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 DEVI
0x3e809c…3e8230 Dummy {f00=0x0137, f01=0x0190, f02=»6,2 ADD * P STR A5,A6 STORE RUN TIME DWT-ADDRESS & P ST A6,STKEND+FWTFLG STORE POINTER > * P LD A5,-2,A10 GET RUM TIME DWT-ADDRESS h PBLT27 EQU * * P ST A5,2,A7 STORE RUN TIME DWT-ADDRESS P RF BLT30 PBLT28 EQU * 2 P LD A6,STK
0x3e8230…3e83c4 Dummy {f00=0x0137, f01=0x0190, f02=» PBLT30 EQU * P LDR* A10,A10 GET NEXT BLOCK P SUK A4,1 LAST BLOCK? < P RF(Z) BLT40 YES! Z P RB BLT20 NO! t P* D P* MOVE DWT-ADR.IN TEMP.AREA TO FREE LOCATIONS IN LINE CONF.TABLE P* PBLT40 EQU * 2 P LD A6,STKEND+
0x3e83c4…3e8558 Dummy {f00=0x0137, f01=0x0190, f02=» A4,A12 PBLT41 EQU * P ADK A4,2 $ P LDR* A2,A4 6 P RF(Z) BLT42 J P RB BLT41 ^ PBLT42 EQU * p * P STR A5,A4 STORE RUN TIME DWT-ADDRESS P SUK A6,2 P RB BLT43 P* P* CLEAR TEMP.AREA P* PBLT4
0x3e8558…3e86ec Dummy {f00=0x0137, f01=0x018e, f02=»LT48 YES! P CMR A6 NO!CLEAR MEMORY WORD P SUK A6,2 DECREMENT POINTER 6 P RB BLT46 Z P* l 0 P* COMPUTE LENGTH OF LINE CONFIGURATION TABLE v P* PBLT48 EQU * P LDR A2,A12 SAVE 2 P ADK A2,22 ADD. MAX LENGTH OF LINE CONF.
0x3e86ec…3e8880 Dummy {f00=0x0137, f01=0x0190, f02=» x P SUK A2,2 P RB BLT50 PBLT60 EQU * , 8 P STR A4,A12 STORE LENGTH OF LINE CONFIGURATION TABLE @ P ADKL A12,2 | J P STR A12,A11 STORE THE ADDRESS IN BOARD CONF.TABLE TO LINE CONF.TABLE 4 P ADR A12,A4 A12 - START OF NEXT LINE CONF.
0x3e8880…3e8a14 (1, 1067) Dummy {f00=0x0137, f01=0x0190, f02=» P EJECT * P************************************* * P* M:TST - TEST IF MEMORY OVERFLOW * @ * P************************************* n P* P* ENTRY: A4 - TEST LENGTH P* P* WORK REGISTERS: A2,A4 P* PM:TST EQU *
0x3e8a14…3e8ba8 Dummy {f00=0x0137, f01=0x0190, f02=»LIMIT P RF(NE) MTST20 P LDKL A1,LMP3 $ P CALL ERROR MEMORY OVERFLOW : PMTST20 EQU * ^ P CWR A2,A4 r P RB(NE) MTST10 P RTN A14 RETURN P EJECT B P************************************************************** B P*
0x3e8ba8…3e8d3c Dummy {f00=0x0137, f01=0x0190, f02=» * V P* B P************************************************************** P* ^ P* REFERENCED IN: B:DWTT h P* , P* ENTRY: A1 - BINARY NUMBER TO CONVERT P* $ P* EXIT: A1,A5 - ASCII OUTPUT P* P* WORK
0x3e8d3c…3e8ed0 Dummy {f00=0x0137, f01=0x018e, f02=»L) BIN:10 =2 P SUKL A1,100 =2 P LDKL A5,/100 =2 . PBIN:10 CWK A1,10 =2 H P RF(L) BIN:20 =2 d P SUK A1,10 =2 ~ 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
0x3e8ed0…3e9064 Dummy {f00=0x0137, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * T : P* MMUINI - INIT MMU TABLE IN TTAB * : P* =============================== *
0x3e9064…3e91f8 Dummy {f00=0x0137, f01=0x0190, f02=» * : P* ENTRY: APCSTA - APPL. CONTROL BLOCK ADDRESS * 8 : P* * v : P* EXIT: * : P*
0x3e91f8…3e938c Dummy {f00=0x0137, f01=0x0190, f02=» * n : P* SUBROUTINES: * : P* * Z : P****************************************************** P EJECT PMMUINI EQU * < P LD A2,STKEND+AP
0x3e938c…3e9520 Dummy {f00=0x0137, f01=0x018e, f02=»NTRY NUMBER x . P LD A2,APLLAP,A2 GET LOGICAL PAGE ADDRESS ( P SRL A2,12 ISOLATE MMU ENTRY NUMBER F P RF(NZ) MMI:10 PAGES DEFINED r ( 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
0x3e9520…3e96b4 (1, 1068) Dummy {f00=0x0137, f01=0x0190, f02=» 8 P ADKL A5,TTB:MT ADD DISPL. TO START OF MMU TABLE =6 P LDKL A4,/FC00 =6 @ PMMI:15 EQU * =6 Z 2 P CWR A5,A3 INIT MMU ENTRY WHITH PAGE ERROR? =6 r P RF(E) MMI:16 NO! =6 0 P STR A4,A5 STORE PAGE ERROR IN MMU TABLE =6 P ADK A5,2 NEXT M
0x3e96b4…3e9848 Dummy {f00=0x0137, f01=0x0190, f02=»I:20 SUK A2,1 MORE ENTRIES TO WRITE? P RF(N) MMI:30 NO , " P STR A4,A3 STORE PAGE ADDRESS D P ADK A3,2 NEXT MMU ENTRY j $ P ADKL A4,/400 NEXT PAGE ADDRESS P RB MMI:20 PMMI:30 RTN A14 RETURN P XIF P EJECT 6 P************
0x3e9848…3e99dc Dummy {f00=0x0137, f01=0x0190, f02=»ICATION * p 6 P* ============================== * 6 P* * T 6 P* REFERENCED IN: * 6 P* * 6 P* ENT
0x3e99dc…3e9b70 Dummy {f00=0x0137, f01=0x0190, f02=»PPL. CONTROL BLOCK * v 6 P* A11- START OF CONFIGURATION DATA * 6 P* * Z 6 P* WORK REGISTERS: A2 * 6 P* * 6 P
0x3e9b70…3e9d04 Dummy {f00=0x0137, f01=0x0190, f02=»***************************** | PFSTAPL EQU * & , P LD A2,SYSLOD GET NUMBER OF APPLICATIONS : P ST A2,STKEND+APLNO SAVE j 6 P LDKL A2,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK P ST A2,STKEND+APCSTA SAVE 6 P LD A11,STKCOM+CONSTA START OF CON
0x3e9d04…3e9e98 Dummy {f00=0x0137, f01=0x0190, f02=» * 6 P* NXTAPL - GET NEXT APPLICATION * * 6 P* ============================= * d 6 P* * 6 P* REFERENCED IN:
0x3e9e98…3ea02c Dummy {f00=0x0137, f01=0x0190, f02=»PCSTA - CURRENT APPL. CONTROL * 6 P* BLOCK ADDRESS * 0 6 P* * j 6 P* EXIT: APLNO - REMAINING NUMBER OF APPL.-1 * 6 P* APCSTA - NEXT APPL. CONTROL BLOCK
0x3ea02c…3ea1c0 Dummy {f00=0x0137, f01=0x0190, f02=»ORK REGISTERS: A1,A2 * 6 P* * 6 6 P* SUBROUTINES: * p 6 P* * 6 P************************************
0x3ea1c0…3ea354 (1, 1069) Dummy {f00=0x0137, f01=0x0190, f02=» ST A2,STKEND+APLNO SAVE REMAINING NUMBER OF APPL. P RF(Z) NOAPL NO MORE! : * P CALL NXTADB GET NEXT APPL DEF. BLOCK X @ P LD A2,STKEND+APCSTA GET ADDRESS TO CURRENT APPL. CTRL BLOCK ( P ADK A2,ACBLEN NEXT APPL. CTRL BLOCK & P ST A2,STKEND+APCS
0x3ea354…3ea4e8 Dummy {f00=0x0137, f01=0x0190, f02=» RTN A14 RETURN P EJECT D P**************************************************************** & D P* * n D P* NXTADB - GET NEXT APPLICATION DEF. BLOCK * D P*
0x3ea4e8…3ea67c Dummy {f00=0x0137, f01=0x0190, f02=» REFERENCED IN: NXTAPL * D P* * F D P* ENTRY: A11 - CURRENT POINTER TO CONFIGURATION DATA * D P*
0x3ea67c…3ea810 Dummy {f00=0x0137, f01=0x0190, f02=»EXT APPL. DEF BLOCK * f D P* * D P* WORK REGISTERS: * f D P* * D P* SUBROUTINES: E
0x3ea810…3ea9a4 Dummy {f00=0x0137, f01=0x0190, f02=»****************************************************** PNXT10 ADKL A11,1 NEXT CHAR > ( PNXTADB LCR A2,A11 GET NEXT CHARACTER ` $ P CCK A2,/0000 END OF CONF DATA? P RF(NE) NEXT20 NOT YET P LDKL A1,LMP4 FORMAT ERROR P CALL ERROR 2 P
0x3ea9a4…3eab38 Dummy {f00=0x0137, f01=0x0190, f02=» v P RTN A14 RETURN P EJECT 2 P********************************************* . 2 P* * d 2 P* CHKMOV - CHECK MEMORY OVERFLOW AND MOVE * 2 P* ======================================= * 2 P*
0x3eab38…3eaccc Dummy {f00=0x0137, f01=0x018e, f02=» * r 2 P* ENTRY: A1 - FROM-ADDRESS * 2 P* A2 - TO-ADDRESS * N 2 P* A3 - LENGTH * 2 P* STKEND+LIMIT - END OF SYSTEM * 2 P*
0x3eaccc…3eae60 Dummy {f00=0x0137, f01=0x0190, f02=» 2 P* * 2 P* WORK REGISTERS: * : 2 P* * p 2 P* SUBROUTINES: MOVE,ERROR * 2 P*
0x3eae60…3eaff4 (1, 1070) Dummy {f00=0x0138, f01=0x0190, f02=»E A11 ON STACK P LDR A11,A3 GET LENGTH . P XRR A9,A9 PHYSICAL END OF FIRST PARTITION 4 0 P SUR A9,A2 COMPUTE AREA LEFT IN FIRST PART. f & P CALL CMPADR ENOUGTH MEMORY LEFT? P RF(L) CHK20 YES 0 PCHK10 LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x3eaff4…3eb188 Dummy {f00=0x0138, f01=0x018e, f02=»RE ADDRESSES ~ & P RB(G) CHK10 SYSTEM AREA OVERFLOW! P CALL MOVE MOVE AREA > P LDR* A11,A15 RESTORE A11 Z P LDR* A9,A15 RESTORE A9 | P RTN A14 P EJECT D P**************************************************************** D P*
0x3eb188…3eb31c Dummy {f00=0x0138, f01=0x0190, f02=» PCONMON EQU * ( P CALL B:TCT BUILD TASK CONTROL TABLE P IFF FM=0 D & P CALL B:FWT BUILD FILE WORK TABLES V P XIF ( P CALL MONBLK GENERATE MONITOR BLOCKS P IFF EDM=0 2 P CALL B:MXTT BUILD MONITOR EXTENT TASK TABLES 6 P CALL B:
0x3eb31c…3eb4b0 Dummy {f00=0x0138, f01=0x0190, f02=»BT BUILD SWAPPABLE WORK BLOCK TABLE P XIF , P IFF MMUPAG+DSKPAG=0 8 ( P CALL B:STAB BUILD SEGMENT TABLE(S) T P XIF 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:
0x3eb4b0…3eb644 Dummy {f00=0x0138, f01=0x0190, f02=»B:ITAB BUILD INTERRUPT TABLE =7 P XIF ( P IFT DC=1 =7 4 6 P CALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 J P XIF P EJECT F P***************************************************************** F P* END OF MONITOR SA
0x3eb644…3eb7d8 Dummy {f00=0x0138, f01=0x4046, f02=»********************************************* | P END 6@ B 6 P CALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 J P XIF P EJECT F P***************************************************************** F P* END OF MONITOR SA
0x3eb7d8…3eb96c Dummy {f00=0x0138, f01=0x403c, f02=» 0 P******************************************** @ 8********************************************************* 4 F P* END OF MONITOR SAVE01URATION PART * ~ F P* -CONTINUE WITH APPLICATION SAVE01URATION PART
0x3eb96c…3ebb00 Dummy {f00=0x0138, f01=0x2008, f02=» P X ` h p
0x3ebb00…3ebc94 (1, 1071) Dummy {f00=0x0139, f01=0x0190, f02=»FDS1,ACFDS1,ACFDOK,ACFDRS | 2 P CAENT4 RQ+S:MSTS,ACFDOK,ACFDR2,ACFDR2,ACFDR2 " PFDTSE EQU * X , P CAENT4 M:00,ACFDS2,ACFDS2,ACFDOK,ACFDS2 l P EJECT P* P* P* P* FDTAC - ACTION TABLE P* PFDTAC EQU * P D
0x3ebc94…3ebe28 Dummy {f00=0x0139, f01=0x0190, f02=»FDAC EQU *-FDTAC P DATA HSFD40 ACFPR PACFDPR EQU *-FDTAC 2 P DATA HSFD92 ACFDOK L PACFDOK EQU *-FDTAC h P . RECEIVE ERRORS P DATA HSFD80 ACFDR1 PACFDR1 EQU *-FDTAC P DATA HSFD81 RECEIVE ERROR PACFDR2 EQU *-FDTAC
0x3ebe28…3ebfbc Dummy {f00=0x0139, f01=0x0190, f02=» P EJECT P* P* ACTIONS P* . PHSFD30 EQU * RESET 8 4 P CF A14,SSUS59 SAVE REGS FOR SESSION AREA RESET R 2 P CF A14,HSCRST RESET SESSION AREA +RSP(CLEAR) P CF A14,SSUR59 LOAD REGS P LDK A5,SC:FRS STATUS RESET P RF
0x3ebfbc…3ec150 Dummy {f00=0x0139, f01=0x0190, f02=»DK A5,SC:FAC STATUS ACTIVE P RF HSFD90 " PHSFD40 EQU * PENDING RESET 4 ( P LDK A5,SC:FPR STATUS PENDING RESET V P RF HSFD90 P* P* PHSFD80 EQU * RECEIVE ERROR . P LDK A1,S:CMDI SNC=0809 MODE INCONSISTANCY P RF HSFD95
0x3ec150…3ec2e4 Dummy {f00=0x0139, f01=0x018e, f02=» x * P LDK A1,R:CMDI RC= MODE INCONSISTANCY P RF HSFD95 6 PHSFD84 EQU * SEND ERROR H * P LDK A1,R:CDTR RC= DATA TRAFFIC RESET h P RF HSFD95 P EJECT P* P* P* UPDATE FMS FDT P* PHSFD90 EQU * , P ANKL A6
0x3ec2e4…3ec478 Dummy {f00=0x0139, f01=0x0190, f02=» P ADKL A14,BYTE4 P SUR A1,A1 ++++ REPL " P ABR* A14 REUTRN WITH COND SET 8 P EJECT ^ T P******************************************************************************** l P* P* NAME DESCRIPTION 8 P* HSFSTS TC FSM FOR MESSAGE SEQU
0x3ec478…3ec60c Dummy {f00=0x0139, f01=0x0190, f02=»**************************************************** t P EJECT < PHSFSTS EQU * J P ++++++ ADDD ^ P ADKL A14,BYTE4 t P SUR A1,A1 ++++REPLACE 0 P ABR* A14 RETURN TO CALLER WITH COND REG SET P EJECT T P****************************
0x3ec60c…3ec7a0 Dummy {f00=0x0139, f01=0x0190, f02=» 6 P* CALLED FROM HSSCR AND HSSCS FOR CHECK AN UPDATE P* > P* H T P******************************************************************************** R P EJECT PHSFRQR EQU * P +++++ ADDD P ADKL A14,BYTE4 P SUR A1,A1 +++
0x3ec7a0…3ec934 (1, 1072) Opaque[0x194]
0x3ec934…3ecac8 # DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2780, f03=0x0000}
0x3ec934…3ecac8 IdxSect {
0x3ec934…3ecac8 f00 = 0x013c // 0x3ec934 @0x0
0x3ec934…3ecac8 f01 = 0x0058 // 0x3ec936 @0x2
0x3ec934…3ecac8 gno = [ // 0x3ec938 @0x4
0x3ec934…3ecac8 [0x00]: C0x013c.0x0.0
0x3ec934…3ecac8 [0x01]: C0x013c.0x1.0
0x3ec934…3ecac8 [0x02]: C0x013c.0x2.0
0x3ec934…3ecac8 [0x03]: C0x013c.0x3.0
0x3ec934…3ecac8 [0x04]: C0x013d.0x0.0
0x3ec934…3ecac8 [0x05]: C0x013d.0x1.0
0x3ec934…3ecac8 [0x06]: C0x013d.0x2.0
0x3ec934…3ecac8 [0x07]: C0x013d.0x3.0
0x3ec934…3ecac8 [0x08]: C0x013e.0x0.0
0x3ec934…3ecac8 [0x09]: C0x013e.0x1.0
0x3ec934…3ecac8 [0x0a]: C0x013e.0x2.0
0x3ec934…3ecac8 [0x0b]: C0x013e.0x3.0
0x3ec934…3ecac8 [0x0c]: C0x013f.0x0.0
0x3ec934…3ecac8 [0x0d]: C0x013f.0x1.0
0x3ec934…3ecac8 [0x0e]: C0x013f.0x2.0
0x3ec934…3ecac8 [0x0f]: C0x013f.0x3.0
0x3ec934…3ecac8 [0x10]: C0x0140.0x0.0
0x3ec934…3ecac8 [0x11]: C0x0140.0x1.0
0x3ec934…3ecac8 [0x12]: C0x0140.0x2.0
0x3ec934…3ecac8 [0x13]: C0x0140.0x3.0
0x3ec934…3ecac8 [0x14]: C0x0141.0x0.0
0x3ec934…3ecac8 [0x15]: C0x0141.0x1.0
0x3ec934…3ecac8 [0x16]: C0x0141.0x2.0
0x3ec934…3ecac8 [0x17]: C0x0141.0x3.0
0x3ec934…3ecac8 [0x18]: C0x0142.0x0.0
0x3ec934…3ecac8 [0x19]: C0x0142.0x1.0
0x3ec934…3ecac8 [0x1a]: C0x0142.0x2.0
0x3ec934…3ecac8 [0x1b]: C0x0142.0x3.0
0x3ec934…3ecac8 [0x1c]: C0x0143.0x0.0
0x3ec934…3ecac8 [0x1d]: C0x0143.0x1.0
0x3ec934…3ecac8 [0x1e]: C0x0143.0x2.0
0x3ec934…3ecac8 [0x1f]: C0x0143.0x3.0
0x3ec934…3ecac8 [0x20]: C0x0144.0x0.0
0x3ec934…3ecac8 [0x21]: C0x0144.0x1.0
0x3ec934…3ecac8 [0x22]: C0x0144.0x2.0
0x3ec934…3ecac8 [0x23]: C0x0144.0x3.0
0x3ec934…3ecac8 [0x24]: C0x0145.0x0.0
0x3ec934…3ecac8 [0x25]: C0x0145.0x1.0
0x3ec934…3ecac8 [0x26]: C0x0145.0x2.0
0x3ec934…3ecac8 [0x27]: C0x0145.0x3.0
0x3ec934…3ecac8 [0x28]: C0x0146.0x0.0
0x3ec934…3ecac8 [0x29]: C0x0146.0x1.0
0x3ec934…3ecac8 [0x2a]: C0x0146.0x2.0
0x3ec934…3ecac8 [0x2b]: C0x0146.0x3.0
0x3ec934…3ecac8 ]
0x3ec934…3ecac8 }
0x3ecac8…3ecc5c Dummy {f00=0x013c, 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
0x3ecc5c…3ecdf0 Dummy {f00=0x013c, 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
0x3ecdf0…3ecf84 Dummy {f00=0x013c, 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
0x3ecf84…3ed118 Dummy {f00=0x013c, 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
0x3ed118…3ed2ac Dummy {f00=0x013c, 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
0x3ed2ac…3ed440 Dummy {f00=0x013c, 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
0x3ed440…3ed5d4 (1, 1073) Dummy {f00=0x013c, 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
0x3ed5d4…3ed768 Dummy {f00=0x013c, 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*
0x3ed768…3ed8fc Dummy {f00=0x013c, 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
0x3ed8fc…3eda90 Dummy {f00=0x013c, 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
0x3eda90…3edc24 Dummy {f00=0x013c, 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*
0x3edc24…3eddb8 Dummy {f00=0x013c, 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
0x3eddb8…3edf4c Dummy {f00=0x013c, 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
0x3edf4c…3ee0e0 Dummy {f00=0x013c, f01=0x0190, f02=» p P EJECT " P****************************** " P* * < " P* COMMON DISPLACEMENTS * b " P* AND CONSTANTS * " P* * " P****************************** P P
0x3ee0e0…3ee274 (1, 1074) Dummy {f00=0x013c, 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
0x3ee274…3ee408 Dummy {f00=0x013c, 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
0x3ee408…3ee59c Dummy {f00=0x013c, 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
0x3ee59c…3ee730 Dummy {f00=0x013c, 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
0x3ee730…3ee8c4 Dummy {f00=0x013c, 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
0x3ee8c4…3eea58 Dummy {f00=0x013c, 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
0x3eea58…3eebec Dummy {f00=0x013c, 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
0x3eebec…3eed80 Dummy {f00=0x013c, 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
0x3eed80…3eef14 (1, 1075) Dummy {f00=0x013c, 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
0x3eef14…3ef0a8 Dummy {f00=0x013c, 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
0x3ef0a8…3ef23c Dummy {f00=0x013c, f01=0x0190, f02=»: CFR A14,A13 * x F P* DATA [REL-ADDRESS] * 2 F P* * | F P*****************************************************************
0x3ef23c…3ef3d0 Dummy {f00=0x013c, 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
0x3ef3d0…3ef564 Dummy {f00=0x013c, f01=0x0190, f02=»AM LOAD DEVICE = CASSETTE | . PDISC EQU X:B 1-PROGRAM LOAD DEVICE = DISC " : PFLDISC EQU X:C 1= PROGRAM LOAD DEVICE = FLEXIBLE DISC T : PMFDISC EQU X:D 1-PROGRAM LOAD DEVICE = MINI FIXED DISC 6 PCDDISC EQU X:E 1-PROGRAM LOAD DEVICE=80M CDC DISC :
0x3ef564…3ef6f8 Dummy {f00=0x013c, f01=0x0190, f02=»CASS ~ PCFTFLD EQU CFTEST+FLDISC P EJECT , : P****************************************************** : : P* * x : P* APPLICATION LOAD PART OF SYSLOD * : P* =========
0x3ef6f8…3ef88c Dummy {f00=0x013c, f01=0x0190, f02=»E TYPE * p : P* A2 - PROGRAM LOAD DEVICE * : P* A3 - APPLICATION NUMBER * Z : P* A7 - APPLICATION DISC ADDRESS BIT 16-31 * : P* A8 - APPLICATION DISC ADDRESS BIT 0-15
0x3ef88c…3efa20 Dummy {f00=0x013c, f01=0x0190, f02=»* * : P* EXIT: * > : P* * | : P* SUBROUTINES: CASSIN,SOPIN,CHCRIO,LODCOM * : P*
0x3efa20…3efbb4 (1, 1076) Dummy {f00=0x013d, f01=0x0190, f02=» * t : P****************************************************** " PSYSLOD EQU * ` P* t P* SAVE REGISTERS ~ P* 4 P ST A1,IPLTYP+STKEND SAVE FORMAT AND DEVICE TYPE * P ST A2,SCTIPL SAVE PROGRAM LOAD DEVICE P
0x3efbb4…3efd48 Dummy {f00=0x013d, f01=0x0190, f02=»BEGINNING OF SYSLOD P SUK A3,TBLBAS PTBLBAS EQU *-2-SYSLOD 2 & P ST A3,APLTAB+STKCOM AS TABLE AREA P " P LDK A1,1 INITIATE NO OF APPL. z P STR A1,A3 AND SAVE IN TABLE > P ST A8,APLADA+2,A3 SAVE APPLICATION DISC ADDRESS BIT 0-15 > P S
0x3efd48…3efedc Dummy {f00=0x013d, f01=0x0190, f02=»DR A13,P 4 PSYS100 ADKL A13,SYS110-SYS100 POINTER TO SYS110 P LD A1,SCTBUG H P LDR A2,A1 ^ 8 P ANK A2,1 TEST IF DEBUG ADDRESS IS ODD,IF TRUE START p P ABR(NZ) A1 P* PSYS110 EQU * " P LD A15,SCTSTB LOAD STACK BASE " P SUK
0x3efedc…3f0070 Dummy {f00=0x013d, f01=0x0190, f02=» B P* INIT POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) ! $ P* AND ADDRESS TO GETPSW-ROUTINE ! J P* ! r P LDR A8,P RETURN ADDRESS ! | & P LDKL A3,REL+2 RELOCATION ROUTINE ! P CFR A8,A3 ! $ P LDKL A5,/5555 LOAD TEST PATTERN ! P LDK A6,
0x3f0070…3f0204 Dummy {f00=0x013d, f01=0x0190, f02=» P* " " P SLL A6,2 UPPER SAVE20=256 KB " P LDK A1,0 MMU ENTRY POINTER " 4 PAP:010 EQU * " X " P LD A2,TABBE GET PAGE ADDRESS " l 2 P SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS " P ST A2,TABBE STORE IT BACK " P TL TABBE LOAD MMU REGISTERS "
0x3f0204…3f0398 Dummy {f00=0x013d, f01=0x0190, f02=»NTENT " p 2 P ES A3,PAGSIZ-2,A1 RESTORE OLD MEMORY CONTENTS # ( P CWR A2,A5 COMPARE WITH TEST PATTERN # D P RF(E) AP:020 # p ( P SUK A6,4 DECREMENT NUMBER OF PAGES # P RB AP:010 # P* # $ P* CHECK IF MMU HARDWARE PRESENT # P* # PAP:020 L
0x3f0398…3f052c Dummy {f00=0x013d, f01=0x0190, f02=»,A13 SAVE REGISTERS IN MMU TABLE # " P CW A1,MMDDIV,A13 SUCCESSFUL? $ ( " P RF(E) AP:030 YES! MMU PRESENT $ N P LDKL A1,LMP9 $ t . P CALL ERROR INDICATE HARDWARE NOT PRESENT $ $ PAP:030 CM TABBE RESET MMU TABLE $ P* $ D P* END OF EXECUTION PATH F
0x3f052c…3f06c0 Dummy {f00=0x013d, f01=0x0190, f02=» EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY $ P* % B $ P LDKL A1,PAGSIZ-2 START AT /FFFE % L PAP:110 EQU * % t & P SUKL A1,PAGSIZ NEXT PHYSICAL PAGE % ( P LDR* A2,A1 SAVE OLD MEMORY CONTENT % " P STR A5,A1 STORE TEST PATTERN % P CWR
0x3f06c0…3f0854 (1, 1077) Dummy {f00=0x013d, f01=0x0190, f02=» PAP:120 EQU * & * P STR A2,A1 RESTORE OLD MEMORY CONTENT & P* & F H P* END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY & P P* & P XIF & P EJECT & P* & P* COMMON EXECUTION PATH & P* & PAP:200 EQU * & 0 P
0x3f0854…3f09e8 Dummy {f00=0x013d, f01=0x0190, f02=»CTEFA FIRST FRAME TO BE USED & P LDK A3,0 ' $ . P ST A3,SCTEFA+2 AREA EMPTY IN FIRST FRAME ' 6 $ P LD A1,SCTOPT GET OPTION WORD =2 ' h 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
0x3f09e8…3f0b7c Dummy {f00=0x013d, f01=0x0190, f02=»,MXBUF ADDRESS TO READ-BUFFER ' * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE ( & P* ( T & P* INITIALIZE PROGRAM LOAD DEVICE ( ^ 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
0x3f0b7c…3f0d10 Dummy {f00=0x013d, f01=0x0190, f02=» EJECT ( PAP:232 EQU * ) P IFT EDM=1 =12 ) " P* ) : & P* LOAD MONITOR EXTENTS IF PRESENT ) D P* ) n ( P CF A14,LODMEX LOAD MONITOR EXTENTS ) x P XIF ) P* ) $ P* SCAN CONF. FILE FOR POSSIBLE ) $ P* APPLICATION DEFINITION BLOCKS )
0x3f0d10…3f0ea4 Dummy {f00=0x013d, f01=0x0190, f02=»,A1 MOST SIGN. PART OF DISC ADDRESS ) 8 P LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDRESS * , ( P LD A10,READ GET SUBROUTINE ADDRESS * h " P CFR A14,A10 READ FIRST SECTOR * PAP:233 EQU * * 0 P LD A1,APLTAB+STKCOM GET APPL. TABLE ADDRESS * ( P LDR*
0x3f0ea4…3f1038 Dummy {f00=0x013d, f01=0x0190, f02=»,CURAPL+STKEND CURRENT APPL. CONTROL BLOCK * PAP:234 EQU * + 2 ( P LD A7,SCTEFA GET FIRST FRAME TO USE + F ( P LD A5,SCTEFA+2 AND AREA EMPTY IN IT + r : P LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK ADDR. + P EJECT + PAP:235 EQU * + P* + . P
0x3f1038…3f11cc Dummy {f00=0x013d, f01=0x0190, f02=»PHYSICAL ADDRESS TO FIRST + | * P CM APLSEG+2,A1 CORE RESIDENT SEGMENT , " 4 P CM APLMMC,A1 CLEAR REL. POSITION OF CONF. DATA , P . 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
0x3f11cc…3f1360 Dummy {f00=0x013d, f01=0x0190, f02=»YPE , p 4 P LDKL A4,/1000 INITIALIZE BIT SETTING (BIT 3=1) - $ P CWK A6,'CR' CREDIT APPLICATION? - D P RF(E) AP2340 - l P* - . P SLL A4,1 BIT SETTING FOR COBOL (BIT 2=1) - $ P CWK A6,'CO' COBOL APPLICATION? - P RF(E) AP2340 - P* - . P S
0x3f1360…3f14f4 (1, 1078) Dummy {f00=0x013d, f01=0x018e, f02=»ASSEMBLER TYPE - ~ 2 P SLL A4,1 BIT SETTING FOR ASSEMBLER (BIT 0=1) . PAP2340 EQU * . L * P ST A6,APLTYP,A1 SAVE APPLICATION TYPE . ` , P CWK A6,'AS' ASSEMBLER ALWAYS ALLOWED =2 . P RF(E) AP2345 =2 . 6 P AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOWED =
0x3f14f4…3f1688 Dummy {f00=0x013d, f01=0x0190, f02=» & P ORR A2,A4 SET BIT IN OPTION WORD / P ST A2,SCTOPT AND SAVE / . P CWK A6,'AS' / L * P RF(E) AP2350 SKIP IF ASSEMBLER APPL. / ` P* / , P LD A3,PAGLG+8,A9 GET DEFINED PAGE SIZE / 6 P CW A3,SCTPSZ COMPARE WITH PREVIOUSLY DEFINED SIZE / . P RF(NG
0x3f1688…3f181c Dummy {f00=0x013d, f01=0x0190, f02=»G=1 / P EJECT 0 P* 0 2 P* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION 0 $ P* 0 Z ( P CWK A6,'AS' ASSEMBLER APPLICATION? 0 d $ 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 YE
0x3f181c…3f19b0 Dummy {f00=0x013d, f01=0x018e, f02=»BER OF SEGMENTS DEFINED 0 z P* 1 PAP:238 EQU * 1 * P ABL(Z) AP:330 NO SEGMENTS! 1 > P* 1 b 2 P CF A14,ALOCSG RESERVE AREA FOR RESIDENT SEGM. 1 l P* 1 2 P* A1 - POINTER TO CURRENT APPL. CONTR. BLOCK 1 " P* A3 - PAGESIZE IN 1K BLOCKS 1 " P
0x3f19b0…3f1b44 Dummy {f00=0x013d, f01=0x0190, f02=» 1 ( P* STORE ADDRESS(ES) TO PAGE FRAMES 2 & P* HOLDING THE FIRST LOGICAL PAGE 2 4 P* 2 ^ , P SRL A3,10 SEGMENT SIZE IN 1K BLOCKS =2 2 h ( 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 LA
0x3f1b44…3f1cd8 Dummy {f00=0x013d, f01=0x018e, f02=»DECREMENT PAGE SIZE WITH FRAME SIZE 2 P RB(P) AP:295 3 , $ P RF(Z) AP:300 EVEN 4K BYTES PAGE 3 B P* 3 j " P* RESERVE ONE EXTRA MMU ENTRY 3 t 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
0x3f1cd8…3f1e6c Dummy {f00=0x013d, f01=0x0190, f02=» 3 & P SUK A6,2 ALLOCATE ONE ENTRY EXTRA 4 P SUKL A8,1 4 2 P* 4 D PAP:300 EQU * 4 N 4 P LD A3,SEGCNT+STKEND ANY CORE RESIDENT SEGMENTS? 4 b 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
0x3f1e6c…3f2000 Dummy {f00=0x013d, f01=0x0190, f02=»END END OF MMU TABLE? 4 P RF(E) AP:310 YES! 5 P* 5 8 , P ADKL A2,/400 INCREMENT PAGE FRAME ADDR. 5 B P RB AP:305 5 r P* 5 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
0x3f2000…3f2194 (1, 1079) Dummy {f00=0x013d, f01=0x0190, f02=»ENT 5 p 8 P ST A2,LSTASG+STKEND AND SAVE AS LOGICAL START ADDR. 6 P RF AP:335 6 H P* 6 Z P* NO SEGMENTS DEFINED 6 d P* 6 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
0x3f2194…3f2328 Dummy {f00=0x013d, f01=0x018e, f02=»DRESS 6 r P* 7 0 P* A1 - POINTER TO APPLICATION CONTROL BLOCK 7 , P* A4 - AREA LEFT IN CURRENT PAGE FRAME 7 L " P* A7 - PHYSICAL PAGE ADDRESS 7 | P* A6 - MMU ENTRY ADDRESS 7 P* A8 - CURRENT MMU ENTRY 7 P* 7 0 P LD A2,COMLG,A9 COMLG OF
0x3f2328…3f24bc Dummy {f00=0x013d, f01=0x0190, f02=» 7 , P ADK A2,10 YES, ADD 5 WORDS FOR DEBUGGER 8 PAP:336 EQU * 8 8 P ADK A2,1 8 L $ P ANKL A2,/FFFE MAKE EVEN LENGTH 8 ^ P* 8 $ P* IF APPLICATION IS LARGER THAN 8 P* 60 K BYTES, START ON A 4K 8 " P* BOUNDARY, TO MAKE SURE THAT 8 P* LOG
0x3f24bc…3f2650 Dummy {f00=0x013d, f01=0x0190, f02=»TES? 8 ~ P RF(L) AP:337 NO! 9 P* 9 & $ P LDK A4,0 START ON A 4K BOUNDARY 9 0 P RF AP:341 9 X P* 9 j PAP:337 EQU * 9 t & 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
0x3f2650…3f27e4 Dummy {f00=0x013d, f01=0x0190, f02=» P* : ( P* APPLICATION LENGTH LESS THAN AREA : P* LEFT IN LAST PAGE : : P* COPY FRAME ADDRESS IN NEXT : V P* MMU ENTRY : z P* : P* : P SUKL A8,1 : " P RF(N) TABOVF TABBE OVERFLOW! : P* : P SUK A6,2 : P STR A7,A6 UPDATE
0x3f27e4…3f2978 Dummy {f00=0x013d, f01=0x0190, f02=»NTRIES IN MMU TABLE FOR : " P* COMMON PART OF APPLICATION ; P* ; F $ P* A4 - AREA MAPPED BUT NOT USED ; P P* IN LAST MMU ENTRY ; x " P* A2 - LENGTH OF COMMON PART ; P LDR A4,A4 EMPTY FRAME? ; P RF(Z) AP:341 YES! ; P* ; ( P SUK
0x3f2978…3f2b0c Dummy {f00=0x013d, f01=0x018e, f02=»OPY FRAME ADDRESS ; PAP:341 EQU * < 2 P SUR A2,A4 SUBTRACT AREA LEFT IN CURRENT FRAME < . , P LDK A4,0 RESET AREA LEFT IN LAST FRAME < d * P LDR A5,A2 SAVE REMAINING AREA NEEDED < P RF(Z) AP:351 NOTHING LEFT < P* < * P SRL A2,12 CONVERT TO NO O
0x3f2b0c…3f2ca0 Dummy {f00=0x013d, f01=0x0190, f02=» P* UPDTE MMU ENTRIES = P* = PAP:342 EQU * = * & P SUK A2,1 MORE ENTRIES TO UPDATE? = > P RF(N) AP:350 NO! = h P* = * P SUKL A8,1 DECREMENT MMU ENTRY POINTER = " P RF(N) TABOVF TABLE OVERFLOW! = P* = ( P SUK A6,2 DECREMENT MMU ENTRY
0x3f2ca0…3f2e34 (1, 1080) Dummy {f00=0x013e, f01=0x0190, f02=» * = P LDK A1,LMP7 > & P CALL ERROR SIGNAL TABBE OVERFLOW! > PMEMOVF EQU * > H P LDKL A1,LMP3 > P CALL ERROR MEMORY OVERFLOW! > r P* > PAP:350 EQU * > P* > 0 P LDR A5,A5 RESTORE AREA TO USE IN LAST FRAME > P RF(Z) AP:351 > P
0x3f2e34…3f2fc8 Dummy {f00=0x013e, f01=0x0190, f02=»ET MMU ENTRY > * P SLL A2,12 MOVE TO FOUR LEFTMOST BITS ? P LDR A8,A2 ? B $ P ORR A8,A4 LOGICAL START ADDRESS ? T ( P CWK A3,'AS' ASSEMBLER APPLICATION? ? | P RF(NE) AP:352 NO! ? P* ? * P ADKL A8,10 SKIP FIVE PRECEEDING WORDS ? PAP:352 EQU * ?
0x3f2fc8…3f315c Dummy {f00=0x013e, f01=0x018e, f02=»AVE APPLICATION LOAD ADDR. (BIT 0-5) ? ~ $ P ST A4,APLLDA+2,A1 AND BIT 6-17 @ , , P ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL @ T & P ST A4,LSTADR+STKCOM ADDRESS USED @ , P LDR* A1,A6 GET ADDRESS TO PHYSICAL PAGE @ $ P ANKL A1,/C000 GREATER THAN 64K? @ P R
0x3f315c…3f32f0 Dummy {f00=0x013e, f01=0x0190, f02=» P SLL A1,2 A 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 f 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) MEM
0x3f32f0…3f3484 Dummy {f00=0x013e, f01=0x0190, f02=»TABBE LOAD MMU REGISTERS A P XIF B P IFT MMUPAG=0 B , P EJECT B B PAP:240 EQU * B P P* B d @ P* EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION B n P* B P* B & P* CHECK IF ASSEMBLER APPLICATION B P* B ( P CWK A6,'AS' A
0x3f3484…3f3618 Dummy {f00=0x013e, f01=0x0190, f02=» CF A14,ALOCSG RESERVE AREA FOR SEGMENTS B , P LDR A2,A7 CONFIGURE LOGICAL START ADDR. C 0 P SLL A2,2 TO FIRST SEGMENT C ` P ORR A2,A5 C 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 G
0x3f3618…3f37ac Dummy {f00=0x013e, f01=0x0190, f02=»ER C h PAP:276 EQU * D P ADKL A10,1 D $ P ANKL A10,/FFFE MAKE EVEN LENGTH D 2 8 P RF(N) AP:278 APPLICATION IS LARGER THAN FRAME SIZE D Z 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 P
0x3f37ac…3f3940 Dummy {f00=0x013e, f01=0x0190, f02=»T REMAINING LENGTH D $ P SRL A2,12 COUNT NO OF 4K BLOCKS E , P SRL A7,10 FRAME ADDRESS AS BLOCK COUNT E B $ P SUR A7,A2 SUBTRACT AREA NEEDED E r " P RF(N) MEMOVF MEMORY OVERFLOW! E P* E . P ANKL A10,/0FFF ISOLATE POSSIBLE REMAINDER E P RF(Z) AP:27
0x3f3940…3f3ad4 (1, 1081) Dummy {f00=0x013e, f01=0x0190, f02=» E PAP:279 EQU * F $ P SLL A7,10 RESTORE FRAME ADDRESS F PAP:280 EQU * F D 2 P SUR A5,A10 ALLOCATE AREA NEEDED IN LAST FRAME F X 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 WITH
0x3f3ad4…3f3c68 Dummy {f00=0x013e, f01=0x0190, f02=»YSPAG+STKCOM SAVE LAST PHYSICAL F & P ST A5,LSTADR+STKCOM ADDRESS USED G ( P SLL A7,2 G R P LDR A11,A7 G d . P ORR A11,A5 MAKE ADDRESS AS A 16 BIT ADDR. G x ( P LD A9,SCTSFA GET START OF FREE AREA G $ P CALL CMPADR A11 COMPARED TO A9 G P RF(G) AP:
0x3f3c68…3f3dfc Dummy {f00=0x013e, f01=0x0190, f02=»3,'AS' ASSEMBLER APPLICATION? G P RF(NE) AP:295 NO! H & P* H @ ( P ADKL A11,10 SKIP 5 PRECEEDING WORDS H J PAP:295 EQU * H v 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,LLD
0x3f3dfc…3f3f90 Dummy {f00=0x013e, f01=0x0190, f02=»MON PART H n P XIF I P EJECT I P* I * P* COMMON EXECUTION PATH I 4 P* I T : P* READ AND RELOCATE CORE RESIDENT PART OF APPLICATION I ^ P* I $ P* A8 - APPLICATION LOAD ADDRESS I * P* A10 - LENGTH OF CORE RESIDENT PART I P* I PAP
0x3f3f90…3f4124 Dummy {f00=0x013e, f01=0x0190, f02=»PLREL,A1 SAVE APPLICATION RELOCATION BASE I 4 P CM FSTSEC+STKEND RESET FIRST SECTOR/BLOCK IND. J 2 6 P LDKL A7,240 INITIATE NR OF CODE WORDS/SECT/BLOCK J j $ P ST A7,LOD:10 MODIFY INSTRUCTION J * P CF A14,LODCOM LOAD CORE RESIDENT PART J P* J & P* C
0x3f4124…3f42b8 Dummy {f00=0x013e, f01=0x0190, f02=» THIS APPL. J t ( P CWK A2,'AS' ASSEMBLER APPLICATION? K P ABL(E) AP:400 YES K @ : P LD A8,LSTASG+STKEND GET LOGICAL ADDRESS TO FIRST PAGE K Z 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
0x3f42b8…3f444c Dummy {f00=0x013e, f01=0x0190, f02=» PAP:360 EQU * L P* L & P* READ AND RELOCATE THE SEGMENTS L " P* L L . P* A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT L V 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
0x3f444c…3f45e0 Dummy {f00=0x013e, f01=0x0190, f02=» L P ADK A2,BLKLEN NEXT BLOCK M & P SUK A1,1 DECREMENT BLOCK COUNTER M * P RB AP:365 M T PAP:370 EQU * M f P* M z P* CHECK IF DISC PAGING M P* M " P LD A1,SCTOPT GET OPTION WORD M P ANK A1,2 DISC PAGING? M P RF(Z) AP:376 NO! M
0x3f45e0…3f4774 (1, 1082) Dummy {f00=0x013e, f01=0x0190, f02=» PART M p " P ANKL A12,/FF OF DISC ADDRESS N * P SRL A1,8 SEGMENT TYPE TO RIGHT BYTE N 4 ( P CCK A1,'RR' CORE RESIDENT SEGMENT? N b * 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,SEG
0x3f4774…3f4908 Dummy {f00=0x013e, f01=0x0190, f02=»AST SEGMENT? N P ABL(E) AP:400 YES! O 4 P ST A1,SEGCNT+STKEND SAVE CURRENT SEGMENT NUMBER O 0 P RB AP:360 O h & PAP:375 LDKL A1,LMP2 DISC I/O ERROR O z P CALL ERROR O P EJECT O PAP:376 EQU * O " P ADK A2,2 DISC SECTOR ADDRESS O ( P CALL GE
0x3f4908…3f4a9c Dummy {f00=0x013e, f01=0x0190, f02=»ERFLOW O 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 f 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 ADDRES
0x3f4a9c…3f4c30 Dummy {f00=0x013e, f01=0x0190, f02=»/FFFE MAKE EVEN LENGTH P P ST A8,LLDADR+STKEND Q P CF A14,LODSEG LOAD SEGMENT Q : , P LD A1,SEGCNT+STKEND GET SEGMENT COUNTER Q ^ 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 SEGME
0x3f4c30…3f4dc4 Dummy {f00=0x013e, f01=0x018e, f02=» CONTROL BLOCK =2 Q j 0 P LD A4,APLPSZ,A3 AND SEGMENT SIZE DEFINED =2 R P IFT MMUPAG=0 R N , P ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE R d 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
0x3f4dc4…3f4f58 Dummy {f00=0x013e, f01=0x0190, f02=» P LDR A4,A1 SAVE S . P ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT S 0 P ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE S N 2 P ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE S * P SUR A1,A8 COMPUTE PHYSICAL INCREMENT S PAP:380 EQU * S * P LD A8,APLLAP,
0x3f4f58…3f50ec Dummy {f00=0x013e, f01=0x0190, f02=»HTMOST BITS S x P ADR A2,A2 2*MMU ENTRY T P ADR A2,A13 T 2 & P ADKL A2,MMDDIV MMU ENTRY ADDRESS T F P LDR A3,A13 T p P ADKL A3,MMDDIV+32 T * P SRL A1,2 MAP PHYSICAL ADDRESS ON MMU T PAP:385 EQU * T , P ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE
0x3f50ec…3f5280 Dummy {f00=0x013e, f01=0x0190, f02=» P* U P XIF U P EJECT U PAP:400 EQU * U ( 8 P LD A1,CURAPL+STKEND GET CURRENT APPL.CONTROL BLOCK U < P IM APLCNT+STKEND U x * P ABL(Z) CONLOD ALL APPLICATIONS LOADED U P* U . P ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION U 2 P ST A1,CURAP
0x3f5280…3f5414 (1, 1083) Dummy {f00=0x013e, f01=0x018e, f02=»F DISC ADDR. U j ( P LD A10,READ GET SUBROUTINE ADDRESS V " P CFR A14,A10 READ FIRST SECTOR V @ P ABL AP:234 V f P EJECT V z 2 P********************************************* V 2 P* * V 2 P*
0x3f5414…3f55a8 Dummy {f00=0x013e, f01=0x0190, f02=» V ` 2 P* * W 2 P* RESERVE PAGES FOR RESIDENT SEGMENTS * W > 2 P* * W t 2 P* * W 2 P****************************************
0x3f55a8…3f573c Dummy {f00=0x013e, f01=0x0190, f02=»CORE RESIDENT SEGMENTS W r * P ST A3,APLPSZ,A1 SAVE SEGMENT SIZE =2 X " P LD A4,SCTOPT GET OPTION WORD X L P SRC A4,2 DISC PAGING? X r 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
0x3f573c…3f58d0 Dummy {f00=0x013e, f01=0x0190, f02=» OF APPLICATION X & P ADK A6,14 START OF SEGMENT BLOCKS Y PALSG00 EQU * Y B P ADK A6,6 NEXT SEGMENT BLOCK Y V P* LOOK IF OUTSIDE BUFFER Y z P* IF SO READ NEXT Y P* SECTOR BLOCK Y P* Y $ P LDR A4,A6 SAVE BUFFER POSITION Y P SUR A4,
0x3f58d0…3f5a64 Dummy {f00=0x013e, f01=0x0190, f02=»TOR Y t 8 P SUK A6,BUFLEN-16 COMPENSATE FOR RELOCATION BITS =5 Z $ P AND RESET BUFFER POSITION =5 Z H P* Z p PALSG01 EQU * Z z 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+STKEN
0x3f5a64…3f5bf8 Dummy {f00=0x013e, f01=0x0190, f02=»CNT+STKEND NUMBER OF RESIDENT SEGMENTS Z ( P RF(Z) ALSG12 NO RESIDENT SEGMENTS! [ . PALSG04 EQU * [ Z 6 P ST A2,SEGCNT+STKEND SAVE NBR OF RESIDENT SEGMENTS [ n 4 P ADS A2,SCTNOP ACKUMULATE NO OF CORE RES. SEGM. [ " P LD A6,SCTOPT GET OPTION WORD [ P S
0x3f5bf8…3f5d8c Dummy {f00=0x013e, f01=0x0190, f02=»08 NOT A MULTIPLE OF 4K BYTES [ P* & 0 P LDR A5,A5 LOOK IF ALREADY ON A 4K BOUNDARY 0 P RF(Z) ALSG08 YES d P* ~ $ 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
0x3f5d8c…3f5f20 Dummy {f00=0x013e, f01=0x018e, f02=»00 ALWAYS START ON 1K BOUNDARY . P SRL A3,1 MAKE SEGMENT LENGTH IN WORDS =2 ] & ( P SRL A5,1 AND REMAINING AREA TOO =2 ] X * P SRL A7,10 CONVERT TO NO OF FRAMES =2 ] " P LDR A4,A3 GET SEGMENT SIZE =2 ] . P NGR A4,A4 AND CORRESPONDING NEG. VALUE =2 ]
0x3f5f20…3f60b4 (1, 1084) Dummy {f00=0x013f, f01=0x0190, f02=» , P ADKL A5,/800 ALLOCATE ANOTHER FRAME =2 ^ $ P RB(P) ALSG09 LOOK IF ENOUGH =2 ^ 4 PALSG10 EQU * =2 ^ 4 P TNM A5,A3 FREE AREA GREATER THAN 32K WORDS? =2 ^ t P RF(N) ALS11A YES =2 ^ . P SUR A5,A3 ALLOCATE AREA TO ONE SEGMENT =2 ^ P RF ALS11B =2
0x3f60b4…3f6248 Dummy {f00=0x013f, f01=0x0190, f02=»UNTS =2 ^ r $ P RB(NZ) ALSG09 MORE SEGMENTS =2 _ P LDR A7,A7 =2 _ 8 $ P ABL(N) MEMOVF MEMORY OVERFLOW! _ N P* _ v $ P SLL A7,10 RESTORE FRAME ADDRESS _ . P ST A7,APLSEG,A1 SAVE PHYSICAL ADDRESS TO _ , P SLL A5,1 RESTORE AREA LEFT IN BYTES =2 _ .
0x3f6248…3f63dc Dummy {f00=0x013f, f01=0x0190, f02=»EREAD FIRST SECTOR OF APPLICATION _ * P* IF S:GTAB IS LARGER THAN ONE SECTOR ` * P* ` X 8 P LD A12,APLADA,A1 GET MOST SIGN. PART OF DISC ADDR. ` b 2 P LD A11,APLADA+2,A1 AND LEAST SIGNIFICANT PART ` & P CF A14,NXTSEC REREAD FIRST SECTOR ` P RTN A14 `
0x3f63dc…3f6570 Dummy {f00=0x013f, f01=0x0190, f02=»14,A10 ` 8 P ST A11,DISCAD+STKEND SAVE CURRENT SECTOR/BLOCK =10 a ( P ST A12,DISCAD+2+STKEND ADDRESS =10 a J . P CALL POB RESTORE FORMER REGISTER CONTENTS a v : P LD A11,DISCAD+STKEND RESTORE CURRENT SECTOR/BLOCK =10 a ( P LD A12,DISCAD+2+STKEND ADDRESS =1
0x3f6570…3f6704 Dummy {f00=0x013f, f01=0x0190, f02=» * a 4 P* LODMEX - LOAD MONITOR EXTENT(S) * b ( 4 P* =============================== * b ` 4 P* * b 4 P* REFERENCED IN: SYSLOD * b 4 P
0x3f6704…3f6898 Dummy {f00=0x013f, f01=0x0190, f02=» * b x 4 P* EXIT: * c 4 P* * c X 4 P* WORK REGISTERS: A1-A12 * c 4 P* * c 4 P* SUBRO
0x3f6898…3f6a2c Dummy {f00=0x013f, f01=0x0190, f02=»*************** c p PLODMEX EQU * d & P LD A1,SCTMXS MONITOR EXTENT TABLE d , PMSX10 EQU * d V P RF(Z) MSX99 d j P* d ~ ( 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,LMP
0x3f6a2c…3f6bc0 Dummy {f00=0x013f, f01=0x0190, f02=» d h * P LD A3,MX:NOX,A1 GET NUMBER OF EXTENTS e 4 P LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTERS e 6 $ P SLL A6,1 MAKE BYTE DISPLACEMENT e n P ADK A6,4 e " P ADR A6,A1 FIRST EXTENT BLOCK e PMSX20 EQU * e & P SUK A3,1 DECREMENT EXTENT COUNTER e
0x3f6bc0…3f6d54 (1, 1085) Dummy {f00=0x013f, f01=0x0190, f02=»A RESTORE ADDRESS TO e $ P LD A5,SCTEFA+2 END OF FREE AREA f P RF(NZ) MSX25 f D P* f Z 2 P LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE f d P SUKL A7,/400 f PMSX25 EQU * f ( P LD A2,EXLEN,A6 GET LENGTH OF EXTENT f & P ADK A2,11 RESERV FIVE E
0x3f6d54…3f6ee8 Dummy {f00=0x013f, f01=0x0190, f02=»HAN 32K BYTES? f r P RF(N) MSX30 NO g P* g . 2 P CWR A2,A5 EXTENT LESS THAN AREA LEFT IN FRAME g 8 P RF(L) MSX40 YES! g n 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
0x3f6ee8…3f707c Dummy {f00=0x013f, f01=0x0190, f02=»START ON 4K BOUNDARY g P SUK A7,1 h PMSX35 EQU * h . 0 P SUR A2,A5 SUBTRACT AREA LEFT IN LAST FRAME h B " P LDK A5,0 AND SET EMPTY FRAME h v 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
0x3f707c…3f7210 Dummy {f00=0x013f, f01=0x0190, f02=»,PAGSIZ TAKE NEXT EMPTY FRAME h P SUK A7,1 i & PMSX40 EQU * i 8 4 P SUR A5,A2 SUBTACT FROM AREA LEFT IN LAST FRAME i L PMSX45 EQU * i & P CWK A7,15 LOOK IF FIRST PARTITION i * P ABL(NG) MEMOVF YES, MEMORY OVERFNGOW! i P* i . P ANKL A5,/FFFC
0x3f7210…3f73a4 Dummy {f00=0x013f, f01=0x0190, f02=»TO END OF FREE AREA i P* j $ P LD A4,SCTMXS GET MXSTAB ADDRESS j & " P ADK A4,2 MONITOR DISC ADDRESS j N P XRR A1,A1 RESET REG. A1 j t * P LDR* A2,A6 GET MONITOR EXTENT ADDRESS j ( P DAR* A4 AND RELOCATE EXTENT ADDRESS j * P LDR A11,A2 GET LEAST SIGN
0x3f73a4…3f7538 Dummy {f00=0x013f, f01=0x0190, f02=» A1,A7 TO A 16 BITS ADDRESS j " P STR A1,A6 AND SAVE IN MXSTAB k $ P* k J * P ADK A5,10 SKIP PRECCEDING FIVE WORDS k T : P ST A5,LLDADR+STKEND SAVE AS PGM LOAD ADDR. (LOGICAL) k $ P LDR A8,A5 SAVE RELOCATION BASE k 0 P ADS A5,2,A6 RELOCATE PROGRAM ST
0x3f7538…3f76cc Dummy {f00=0x013f, f01=0x018e, f02=» ADDRESS TO MMU TABLE k ~ 6 P ST A3,FSTSEC+STKEND RESET FIRST SECTOR INDICATOR l PMSX50 EQU * l X " P STR A7,A2 STORE PAGE ADDRESS l l $ 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
0x3f76cc…3f7860 Dummy {f00=0x013f, f01=0x0190, f02=» l v & P LDR* A3,A15 RESTORE NO OF EXTENTS m P RB MSX20 m 2 P* m D PMSX99 EQU * m N P RTN A14 m b P EJECT m r 4 P*********************************************** m P* m P* GETMON m P* ====== m P* m & P
0x3f7860…3f79f4 (1, 1086) Dummy {f00=0x013f, f01=0x0190, f02=»********************************** m P* n * P* n 4 PGETMON EQU * n > ( P LD A1,SCTANO GET APPLICATION NUMBER n R P ST A1,MONNO+STKEND SAVE n ~ 2 P CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC n 0 P LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER n 2 P
0x3f79f4…3f7b88 Dummy {f00=0x013f, f01=0x0190, f02=»R) n b P* o 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 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 PGTMO
0x3f7b88…3f7d1c Dummy {f00=0x013f, f01=0x0190, f02=»MXSTAB o x 6 P LD A2,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) p " P ST A2,4,A1 AND SAVE IN MXSTAB p H P RTN A14 RETURN p n 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 L
0x3f7d1c…3f7eb0 Dummy {f00=0x013f, f01=0x0190, f02=» * p . P LCR A2,A4 GET 1ST CHARACTER IN FILE NAME q P CCK A2,/2020 UNUSED? q < P RF(E) GTNBR4 YES! q Z P* q t ( P CC A1,9,A4 SAME APPLICATION NUMBER? q ~ P RF(E) GTNBR6 YES, RETURN q P* q PGTNBR4 EQU * q P ADR A4,A8 GET NEXT RECORD q
0x3f7eb0…3f8044 Dummy {f00=0x013f, f01=0x0190, f02=»R0 NO, READ NEXT SECTOR q P* r PGTNBR6 EQU * r * P RTN A14 r > P XIF r N P EJECT r Z > P********************************************************** r h > P* * r > P* LOAD CONFIGURATI
0x3f8044…3f81d8 Dummy {f00=0x013f, f01=0x0190, f02=» * r p > P* ENTRY: A9 - BUFFER ADDRESS * s " > P* * s d > P* EXIT: * s > P*
0x3f81d8…3f836c Dummy {f00=0x013f, f01=0x0190, f02=» * s l > P********************************************************** t PCONLOD EQU * t ` & P LD A1,SCTEFA GET END OF FREE AREA t t 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,
0x3f836c…3f8500 Dummy {f00=0x013f, f01=0x0190, f02=»SAVE t ~ 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 H , P ST A1,SCTSFA UPDATE START OF FREE AREA u | 8 P LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE u , P ADK A1,2 ADVANCE TO FIRST CONTR
0x3f8500…3f8694 (1, 1087) Dummy {f00=0x013f, f01=0x0190, f02=»STKEND CONTROL BLOCK u * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE v " P SUK A1,/F0 CHECK DEVICE TYPE v J P RF(NN) CONRAD NOT CASSETTE v p P IFT CFTEST+CASS=2 v P* v & P* PROGRAM LOAD DEVICE = CASSETTE v P* v PCON:30 EQU * v P LDKL A1
0x3f8694…3f8828 Dummy {f00=0x013f, f01=0x0190, f02=»:38 MODIFY v P LDR A1,A9 START OF BUFFER w " P ADKL A1,BUFLEN END OF BUFFER w 4 , P ST A1,PLDADR+STKEND SAVE END OF BUFFER w Z 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,
0x3f8828…3f89bc Dummy {f00=0x013f, f01=0x0190, f02=» . P CF A14,CASSIN INIT CONFIGURATION CASSETTE x P CALL CON:40 x 6 P RF TST:10 x J PCONEX EQU * x P* x p > P* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE x z P* x " P CF A14,RDBLK READ NEXT BLOCK x P LDR A1,A1 APPLICATION DATA?
0x3f89bc…3f8b50 Dummy {f00=0x013f, f01=0x0190, f02=» RF CON:90 x PCON:80 EQU * y P LDK A1,/F y & " P CF A14,CHCRIO UNLOAD CASSETTE y 8 PCON:90 EQU * y ^ P ABL CONMOV y r 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
0x3f8b50…3f8ce4 Dummy {f00=0x013f, f01=0x0190, f02=»A14,CONFLD INITIATE CONF. DATA LOAD DEV. y PCONRA0 EQU * z 0 * P LD A11,CONDAD+STKEND GET START SECTOR z D 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART z r " P LDR A1,A9 GET START OF BUFFER z $ P ADKL A1,BUFLEN-6 END OF BUFFER z , P ST A1,PLDADR+STKE
0x3f8ce4…3f8e78 Dummy {f00=0x013f, f01=0x0190, f02=»=2 z v , P ST A1,CONSTA+STKCOM START OF CONF. DATA { $ P LDKL A10,0 RESET RECORD COUNTER { : P* { b 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE { l P* { P CALL READC READ SECTOR { P* { 0 P* TEST THE SYNTAX OF THE CONFIGURATION FILE { P
0x3f8e78…3f900c Dummy {f00=0x013f, f01=0x0190, f02=» P CALL CONRD | P CALL TCL | P CALL TEST | * P CALL AA | < P CALL CONRD | L P CALL LEV | ` P CALL TEST | r P CALL NN1 | PTST:20 CALL CONRD | P CALL NN1 | P CALL CONRD | B PTST:30 LD A5,NDEVCL+STKEND GET NUMBER OF TERMINAL
0x3f900c…3f91a0 Dummy {f00=0x013f, f01=0x0190, f02=»NN | P CALL CONRD } P CALL LC } P CALL TEST } . P CALL NNL } @ P CALL CONRD } R P RB TST:30 } f PTST:40 EQU * } x P CALL NN1 } P CALL CONRD } PTST:50 EQU * } < P LD A5,NDEVCL+STKEND GET NUMBER OF SPECIAL DEV. CLASSES } P C
0x3f91a0…3f9334 (1, 1088) Dummy {f00=0x0140, 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.) ~ N PTST:70 EQU *-2 ~ ~ P RB(E) TST:10 YES! ~ P LDKL A3,/FFFF ~ * P ST A3,TST:70 MODIFY INSTRUCTION TO RF ~ P CCK A5,'CC' BLOCK TYP
0x3f9334…3f94c8 Dummy {f00=0x0140, f01=0x0190, f02=»T:80 EQU * ~ . P LDR A1,A5 SAVE FIRST CHARACTER IN RECORD & P ADK A4,1 INCREMENT BUFFER POINTER D P LCR A5,A4 GET CHARACTER n P CCK A5,';;' END OF RECORD P ABL(NE) CONERR NO! PTST:85 EQU * . P CCK A1,'AA' START OF APPL. CONTR. BLOCK
0x3f94c8…3f965c Dummy {f00=0x0140, f01=0x0190, f02=»INPBF+STKEND CURRENT POSITION IN CONF. DATA 4 P SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION 4 P ST A1,DCBLK+STKCOM SAVE l 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*
0x3f965c…3f97f0 Dummy {f00=0x0140, f01=0x0190, f02=» P* : P LDKL A1,/FF3B SUBSTITUTE 'A;' WITH 'HEX. FF' AND ';' P STR A1,A8 L 4 P LD A2,CURAPL+STKEND CURRENT APPL. CONTR. BLOCK ^ 8 P LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA P ADK A1,1 SKIP BLOCK MARKER 4 P SU A1,CONSTA+STKC
0x3f97f0…3f9984 Dummy {f00=0x0140, f01=0x0190, f02=»STKEND ADVANCE TO NEXT APPL. CONTR. BLOCK $ P CALL CONRD MOVE AND PACK RECORD 2 ( P ADKL A10,1 INCREMENT RECORD COUNTER Z & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER & P CW A8,PLDAD
0x3f9984…3f9b18 Dummy {f00=0x0140, f01=0x0190, f02=» TASK DEF. BLOCK z P ST A1,TST:70 MODIFY INSTR. P ST A1,T:10 < P LDR A4,A8 P P ABL TST:10 SCAN CONF. DATA b 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'
0x3f9b18…3f9cac Dummy {f00=0x0140, f01=0x0190, f02=»TIALIZE PGM LOAD DEVICE ~ P CF A14,GETFIL P* 6 P* UNLOCK FLEXIBLE DISC @ P* ` PCOR:55 EQU * j 4 P LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE ~ , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE P* P LDR A2,A1 P ANK A
0x3f9cac…3f9e40 Dummy {f00=0x0140, f01=0x0190, f02=»NLOCK FLEXIBLE DISC P XIF P IFT CFTEST=1 ( PCOR:58 EQU * > * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE R 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(N
0x3f9e40…3f9fd4 (1, 1089) Dummy {f00=0x0140, f01=0x0190, f02=»COR:60 YES! DON'T UNLOCK P* P LD A1,IPLDEV+STKEND * ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC F P XIF r P IFT CFTEST=1 ~ PCOR:60 EQU * P EJECT PCONMOV EQU * P* 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA
0x3f9fd4…3fa168 Dummy {f00=0x0140, 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
0x3fa168…3fa2fc Dummy {f00=0x0140, 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
0x3fa2fc…3fa490 Dummy {f00=0x0140, 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
0x3fa490…3fa624 Dummy {f00=0x0140, 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
0x3fa624…3fa7b8 Dummy {f00=0x0140, 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
0x3fa7b8…3fa94c Dummy {f00=0x0140, 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
0x3fa94c…3faae0 Dummy {f00=0x0140, 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
0x3faae0…3fac74 (1, 1090) Dummy {f00=0x0140, 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
0x3fac74…3fae08 Dummy {f00=0x0140, f01=0x0190, f02=» P IFT CFTEST=1 PMEMOFL EQU * * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW 2 P CALL ERROR ` P EJECT t PREADC EQU * P CF A14,RDSEC READ SECTOR P LDR A8,A9 " P LDR A4,A8 GET START OF BUFFER P RTN A14 PT EQU *
0x3fae08…3faf9c Dummy {f00=0x0140, f01=0x018e, f02=»T BUFFER POINTER ~ " P LCR A5,A4 GET NEXT CHARACTER P CCK A5,';;' END OF RECORD? > P ABL(NE) CONERR NO! b P RTN A14 ~ P EJECT PNNL EQU * * P LDK A3,3 NO OF DIGITS IN LINE NUMBER & P CF A14,NUMB LOOK IF LEGAL DIGITS $ P L
0x3faf9c…3fb130 Dummy {f00=0x0140, f01=0x0190, f02=» P CCK A5,'LL' LINE L? P RF(E) NN:40 YES! P CCK A5,'RR' LINE R? : P RF(E) NN:40 YES! V P CCK A5,'AA' LINE A? p 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
0x3fb130…3fb2c4 Dummy {f00=0x0140, f01=0x0190, f02=»EQU * & P ADK A4,1 INCREMENT BUFFER POINTER P RF NN:50 8 P* J PNN EQU * T $ P LDK A3,2 NO OF DIGITS IN NUMBER d & P CF A14,NUMB LOOK IF LEGAL DIGITS $ P LDR A1,A1 SET RETURN CONDITION " P RF(Z) CONERR '00' NOT ALLOWED P*
0x3fb2c4…3fb458 Dummy {f00=0x0140, 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
0x3fb458…3fb5ec Dummy {f00=0x0140, 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
0x3fb5ec…3fb780 Dummy {f00=0x0140, 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
0x3fb780…3fb914 (1, 1091) Dummy {f00=0x0140, f01=0x0190, f02=»LECT SEQUENCE & P LDK A3,5 GET NUMBER OF CHARACTERS P RTN A14 @ PLC EQU * P " P LDKL A2,SEQ5 SELECT SEQUENCE ` & P LDK A3,3 GET NUMBER OF CHARACTERS P RTN A14 PSDCS EQU * " P LDKL A2,SEQ6 SELECT SEQUENCE & P LDK A3,5 GET NU
0x3fb914…3fbaa8 Dummy {f00=0x0140, f01=0x0190, f02=»RR & P ADK A4,1 INCREMENT BUFFER POINTER ( P ADK A2,1 INCREMENT SEQUENCE POINTER 4 . P SUK A3,1 MORE CHARACTERS IN THE SEQUENCE? ` P RB(NZ) TEST YES! P RTN A14 P EJECT PSUKASC EQU * 2 P CCK A5,/3030 NUMBER OF NUMERIC CHARACTERS
0x3fbaa8…3fbc3c Dummy {f00=0x0140, f01=0x0190, f02=» P RTN A14 P EJECT PNUMB EQU * " * P LDK A1,0 RESET NO OF NON ZERO DIGITS 4 PNUMB00 EQU * b " P LCR A5,A4 GET DIGIT IN NUMBER v & P ADK A4,1 INCREMENT BUFFER POINTER ( P CCK A5,/3939 NUMERIC CHARACTER >9? P RF(G) CONERR YES!
0x3fbc3c…3fbdd0 Dummy {f00=0x0140, f01=0x0190, f02=» ADK A1,1 INCREMENT NO OF NON ZERO DIGITS PNUMB10 EQU * 2 & P SUK A3,1 DECREMENT DIGIT COUNTER F & P RF(Z) NUMB20 ALL DIGITS PROCESSED p P* , P SLL A5,8 LAST DIGIT TO LEAST SIGN. BYTE " P RB NUMB00 PROCESS NEXT DIGIT P* PNUMB
0x3fbdd0…3fbf64 Dummy {f00=0x0140, f01=0x0190, f02=» * 6 P* SEQUENCES * 6 6 P* * p 6 P************************************************** P* P* P* P*
0x3fbf64…3fc0f8 Dummy {f00=0x0140, f01=0x0190, f02=»EV= P DATA 'LE' P DATA 'V=' PSEQ4 EQU * TDC=T 0 P DATA 'TD' H P DATA 'C=' Z P DATA 'T0' l PSEQ5 EQU * LC= ~ P DATA 'LC' P DATA '=0' PSEQ6 EQU * SDC=S P DATA 'SD' P DATA 'C=' P DATA 'S0' P X
0x3fc0f8…3fc28c Dummy {f00=0x0140, f01=0x0190, f02=»F BUFFER ~ " P ADKL A1,BUFLEN END OF BUFFER , P ST A1,PLDADR+STKEND SAVE END OF BUFFER 6 P ST A1,EINPBF+STKEND SAVE f 4 P ST A1,CONSTA+STKCOM START OF CONFIGURATION DATA P CF A14,RDBLK READ ONE BLOCK " P CF A14,RDBLK READ NEXT BLOCK
0x3fc28c…3fc420 Dummy {f00=0x0140, f01=0x0190, f02=»BLK READ NEXT BLOCK P LDR A1,A1 TAPEMARK? P RF(NZ) CONEX YES! 8 PCON:50 EQU * R P* f 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK p P* 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER P LDR A2,A1 SAVE & P LDK A
0x3fc420…3fc5b4 (1, 1092) Dummy {f00=0x0141, f01=0x018e, f02=» CCK A5,';;' CHECK IF SPACE & P RF(E) CON:70 NO MOORE CHARACTERS $ PCON:65 EQU * N P CWK A3,CBLEN END OF BUFFER? b P RF(E) CON:75 YES! * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? P RF(E) MEMOFL YES! , P ADK A1,1 INCREMENT DESTINATION
0x3fc5b4…3fc748 Dummy {f00=0x0141, f01=0x0190, f02=» " P LC A5,1,A4 GET NEXT CHARACTER " P CCK A5,';;' TWO SEMI-COLONS? . P RF(NE) CON:75 NO! T * P CWK A3,NCHTID CHECK IF END OF RECORD n 4 P RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD PCON:75 EQU * 2 P ST A1,EINPBF+STKEND SAVE CURREN
0x3fc748…3fc8dc Dummy {f00=0x0141, f01=0x018e, f02=»CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE P* 8 " P CF A14,RDBLK READ NEXT BLOCK B P LDR A1,A1 APPLICATION DATA? h P RF(NZ) CON:80 NO! P LDK A1,/D * P CF A14,CHCRIO SEARCH TAPEMARK REVERSE " P CF A14,RDBLK BYPASS TAPEMARK
0x3fc8dc…3fca70 Dummy {f00=0x0141, f01=0x0190, f02=» P XIF PCONERR EQU * P LDKL A1,LMP4 $ P CALL ERROR : P IFF CFTEST=1 N PMEMOFL EQU * d * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW x P CALL ERROR P EJECT PCONRAD EQU * P* 6 P* LOAD CONFIGURATION DATA FROM DI
0x3fca70…3fcc04 Dummy {f00=0x0141, f01=0x0190, f02=» P* 0 P CF A14,CONFLD INITIATE CONF. DATA LOAD DEV. PCONRA0 EQU * B * P LD A11,CONDAD+STKEND GET START SECTOR V 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART " P LDR A1,A9 GET START OF BUFFER $ P ADKL A1,BUFLEN-6 END OF BUFFER , P
0x3fcc04…3fcd98 Dummy {f00=0x0141, f01=0x0190, f02=»INPBF+STKEND SAVE =2 P ST A1,CONSTA+STKCOM $ P LDKL A10,0 RESET RECORD COUNTER 8 PCOR:10 EQU * ` P* t 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE ~ P* P CF A14,RDSEC READ SECTOR " P LDR A8,A9 GET START OF BUFFER PCOR:
0x3fcd98…3fcf2c Dummy {f00=0x0141, f01=0x0190, f02=»FFER b P LDR A2,A1 SAVE & P LDK A3,0 RESET CHARACTER COUNTER $ P LDR A4,A8 START OF RECORD N P* p P* LOOK IF WE HAVE AN z P* APPLICATION CONTROL BLOCK P* & P LDR* A5,A4 GET 1ST WORD IN BUFFER 0 P CWK A5,'D;' DATA COMMUN
0x3fcf2c…3fd0c0 Dummy {f00=0x0141, f01=0x0190, f02=» * P LDKL A5,/FF3B YES, SUBSTITUTE A; WITH P STR A5,A4 'HEX FF' AND ';' 6 8 P LD A5,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK Z P ADK A1,1 SKIP BLOCK MARKER 6 P ST A1,EINPBF+STKEND SAVE CURRENT BUFFER POSITION 8 P SU A1,CONSTA+STKCOM
0x3fd0c0…3fd254 (1, 1093) Dummy {f00=0x0141, f01=0x0190, f02=»INCREMENT NO OF CHARACTERS TO MOVE P CALL MOVE * P ADKL A10,2 SKIP NEXT RECORD < P* ` . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER j ( P CW A8,PLDADR+STKEND END OF BUFFER? P RF(L) COR:48 NO! P* ( P CF A14,RDSEC YES, READ NEXT
0x3fd254…3fd3e8 Dummy {f00=0x0141, f01=0x018e, f02=»OSITION IN CONF. DATA =6 r 8 P SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 P ST A5,DCBLK+STKCOM SAVE =6 PCOR:30 EQU * P LCR A5,A4 GET CHARACTER P CCK A5,';;' END OF RECORD? P RF(E) COR:40 YES! PCOR:35 EQU * * P C
0x3fd3e8…3fd57c Dummy {f00=0x0141, f01=0x0190, f02=» | & P ADK A1,1 INCREMENT BUFFER POINTER * P ADK A3,1 INCREMENT CHARACTER COUNTER 2 & P ADK A4,1 INCREMENT RECORD POINTER ` P RB COR:30 LOOP PCOR:40 EQU * " P LC A5,1,A4 GET NEXT CHARACTER P CCK A5,';;' TWO SEMICOLONS? P RF(NE)
0x3fd57c…3fd710 Dummy {f00=0x0141, f01=0x0190, f02=» 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION P LDR A1,A8 START OF RECORD : P CALL MOVE ( P ADKL A10,1 INCREMENT RECORD COUNTER n & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! PCOR:48 EQU * . P ADKL A8,RECLEN+1 INCR
0x3fd710…3fd8a4 Dummy {f00=0x0141, f01=0x0190, f02=»R:50 EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,8 SWB:S? 8 P RF(Z) COR:55 NO P P LDK A3,'S' h & P SC A3,GET:25+1 MODIFY INSTRUCTION | & P SC A3,GET:60+1 MODIFY INSTRUCTION P LD A1,IPLDEV+STKEND . P CF A14,LODDEV INITIALIZE PG
0x3fd8a4…3fda38 Dummy {f00=0x0141, f01=0x018e, f02=» GET CONF. DATA LOAD DEVICE | , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE $ P* T P LDR A2,A1 ^ P ANK A2,/F p P SUK A2,9 $ P RF(NZ) COR:58 NOT FLEXIBLE DISC P XIF P IFT CFTFLD+FLDISC=2 ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC
0x3fda38…3fdbcc Dummy {f00=0x0141, f01=0x0190, f02=» $ P RF(N) COR:60 NOT FLEXIBLE DISC P* , " P SUK A1,/FC-/F8 FLEXIBLE DISC? 6 P RF(NN) COR:60 NO! P* v P XIF 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 UN
0x3fdbcc…3fdd60 Dummy {f00=0x0141, f01=0x0190, f02=»EST=1 PCOR:60 EQU * P EJECT " PCONMOV EQU * 0 P* D 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA N 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
0x3fdd60…3fdef4 (1, 1094) Dummy {f00=0x0141, f01=0x0190, f02=»URE CONFIGURATION FILE " P SUK A2,1 IS FOLLOWED BY X'00' , P SUR A3,A1 LENGTH OF CONFIGURATION DATA D 2 P ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA t P SUR A2,A3 TO-ADDRESS P* $ P ANKL A2,/FFFE MAKE EVEN ADDRESS P CALL MOVE
0x3fdef4…3fe088 Dummy {f00=0x0141, f01=0x0190, f02=»E TRAILING ZEROES IN LENGTH P ANKL A1,/FFFE AND MAKE EVEN $ P ST A1,CONLEN+STKCOM H & P LDR A1,A9 GET START OF FREE AREA d 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
0x3fe088…3fe21c Dummy {f00=0x0141, f01=0x0190, f02=»B ADDRESS =1 v , P ST A2,SCTMXS AND SAVE AS NEW ADDRESS =1 PCMOV20 EQU * =1 D , P LD A2,CONSTA+STKCOM GET START OF CONFF ^ P* < P* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA P* PMOPRO EQU * P LDKL A13,SYSLDM
0x3fe21c…3fe3b0 Dummy {f00=0x0141, f01=0x0190, f02=»UE EXECUTION IN SYSLDM P XIF P EJECT * L P************************************************************************ 8 L P* SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O L P************************************************
0x3fe3b0…3fe544 Dummy {f00=0x0141, f01=0x0190, f02=»==== * x $ P* * $ P* ENTRY: * 8 $ P* * ` $ P* EXIT: A1 - SOP INPUT * $ P* BIT 6 - SWITCH 1 * $ P* BIT 15 - SWITCH 10 * $ P*
0x3fe544…3fe6d8 Dummy {f00=0x0141, f01=0x0190, f02=» * x $ P* * $ P******************************* 8 PSOPIN EQU * ` P CIO A1,1,SOP t P INR A1,0,SOP P RB(NA) *-2 P RTN A14 P EJECT ( P*********************************** ( P*
0x3fe6d8…3fe86c Dummy {f00=0x0141, f01=0x0190, f02=» * ( P* USED FOR CONFIGURATION OF * ( P* PROGRAM LOAD DEVICE AND * J ( P* CONFIGURATION DATA LOAD * v ( P* DEVICE (IF DIFFERENT). * ( P* * ( P* ON ENTRY: A1
0x3fe86c…3fea00 Dummy {f00=0x0141, f01=0x0190, f02=»***************** ~ P P " PLODDEV EQU * * P LDKL A3,BUFLEN > * P ST A3,SAVCON INITIALIZE BUFFER LENGTH V 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
0x3fea00…3feb94 (1, 1095) Dummy {f00=0x0141, f01=0x0190, f02=»EVICE TYPE t P ANK A3,/FF P SUK A3,3 & P RF(N) DISC:0 DISC 8 P RF(Z) MFD:0 MINI FIXED DISC R P SUK A3,3 =9 v P RF(N) CDC:0 80M CDC DISC P RF FLEX:0 FLEXIBLE DISC P EJECT PCASS:0 EQU * P IFT CASS=1 P*
0x3feb94…3fed28 Dummy {f00=0x0141, f01=0x0190, f02=»,A1 CLEAR APPLICATION DISC ( P CM APLADA+4,A1 FILE ADDRESS ENTRIES " * P LDKL A1,RDBLK GET SUBROUTINE ADDRESS N P LDR A10,A1 | 0 P ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE PCASS:2 EQU * * P CF A14,RDBLK READ ONE CASSETTE BLOCK P L
0x3fed28…3feebc Dummy {f00=0x0141, f01=0x0190, f02=» P IFF CASS=1 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION 2 P XIF P EJECT h PFLEX:0 EQU * v P IFT FLDISC=1 P* * P* PROGRAM LOAD DEVICE = FLEXIBLE DISC P* P* 2 P* MODIFY SCTIPL: /F8 - DRIV
0x3feebc…3ff050 Dummy {f00=0x0141, f01=0x0190, f02=» P* P CF A14,FDINIT P RF FINISH $ P* 6 P XIF @ P IFF FLDISC=1 L P LDKL A1,LMP9 b & P CALL ERROR ILLEGAL MONITOR OPTION x P XIF P EJECT PMFD:0 EQU * P IFT MFDISC=1 P* , P* PROGRAM LOAD DEVICE =
0x3ff050…3ff1e4 Dummy {f00=0x0141, f01=0x0190, f02=»E FILE CODE x P* P* INIT MINI FIXED DISC P* < P CF A14,MDINIT F P RF FINISH RETURN P* v P XIF P IFF MFDISC=1 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION P XIF P EJECT PDISC:0 EQU *
0x3ff1e4…3ff378 Dummy {f00=0x0141, f01=0x0190, f02=»F0 - FIX DISC h P* & P LC A2,FCTAB,A2 LOAD FILE CODE =5 ( P ST A2,FILCOD+STKEND SAVE FILE CODE J P* v P* INITIALIZE DISC COMMANDS P* P CF A14,DUINIT P XIF P IFF DISC=1 P LDKL A1,LMP9 P CALL ERROR
0x3ff378…3ff50c Dummy {f00=0x0141, f01=0x0190, f02=» FILE CODE t P RTN A14 P EJECT " PCDC:0 EQU * 0 P IFF CDDISC+CDDI16=0 D P* ` 0 P* PROGRAM LOAD DEVICE = 16M OR 80M CDC DISC j P* P* P* MODIFY SCTIPL: /FC - /FD P* $ P SRC A2,2 TEST IF UNIT 1 OR 2 =9 P R
0x3ff50c…3ff6a0 Dummy {f00=0x0141, f01=0x0190, f02=»E | ( P ST A2,FILCOD+STKEND SAVE FILE CODE P* 6 P* INITIALISE DISC COMMANDS @ P* b P CF A14,CDINIT INIT DEVICE l P RB FINISH RETURN P XIF P IFT CDDISC+CDDI16=0 =9 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OP
0x3ff6a0…3ff834 (1, 1096) Dummy {f00=0x0142, f01=0x0190, f02=» * n < P* CONFLD - SELECT LOAD UNIT FOR CONF. DATA * < P* ======================================== * ^ < P* * < P* ON ENTRY: A1 = DEVICE ADDRESS
0x3ff834…3ff9c8 Dummy {f00=0x0142, f01=0x0190, f02=»***** ^ P P PCONFLD EQU * P LDKL A2,-1 2 $ P ST A2,CYLNBR SET SEEK CONDITION F " P LDR A2,A1 SAVE DEVICE ADDRESS n " 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 8
0x3ff9c8…3ffb5c Dummy {f00=0x0142, f01=0x0190, f02=»CT P IFT CASS=1 < P******************************************************* < P* CASSIN - CASSETTE INITIATING ROUTINE * ^ < P* ==================================== * < P*
0x3ffb5c…3ffcf0 Dummy {f00=0x0142, f01=0x0190, f02=» * ^ < P* ENTRY: * < P* * N < P* EXIT: * < P* *
0x3ffcf0…3ffe84 Dummy {f00=0x0142, f01=0x0190, f02=» SUBROUTINES: SOPIN,CHCRIO * < P* * > < P******************************************************* ~ PCASSIN EQU * P LDK A1,/F " P CF A14,CHCRIO UNLOAD CASSETTE 2
0x3ffe84…400018 Dummy {f00=0x0142, f01=0x0190, f02=»,/0300 ALLOWED SWITCHES? P RB(Z) CAS:10 NO! & P LDKL A3,LMP1 SWITCH ON LOAD LAMP : P OTR A3,0,SOP d P SRL A1,8 RIGHT ALIGN z P ANK A1,1 SELECT UNIT P CF A14,CHCRIO SELECT UNIT P LDK A1,LOCK P CF A14,CHCRIO LOCK CASSETTE
0x400018…4001ac Dummy {f00=0x0142, f01=0x0190, f02=» P LDK A1,STMF * P CF A14,CHCRIO SEARCH TAPEMARK FORWARD P RTN A14 F P EJECT V 2 P********************************************* d 2 P* CHCRIO - CASSETTE I/O EXECUTING ROUTINE * 2 P* ======================================= * 2 P*
0x4001ac…400340 Dummy {f00=0x0142, f01=0x018e, f02=» * r 2 P* ENTRY: A1 - I/O INSTRUCTION COMMAND * 2 P* * N 2 P* EXIT: * 2 P* * 2 P* WORK REGISTERS: A1,A
0x400340…4004d4 (1, 1097) Dummy {f00=0x0142, f01=0x0190, f02=» 2 P* * 2 P********************************************* : PCHCRIO EQU * p P CIO A1,1,CHCR P SST A3,CHCR P RB(NA) CHCRIO P RTN A14 P EJECT 6 P**************************************
0x4004d4…400668 Dummy {f00=0x0142, f01=0x018e, f02=»* =============================== * 6 P* * : 6 P* REFERENCED IN: SYSLOD * t 6 P* * 6 P* ENTRY: A9 - CASSETTE BUFFER
0x400668…4007fc Dummy {f00=0x0142, f01=0x0190, f02=» 6 P* * : P* WORK REGISTERS: A1,A2,A3,A4,A5 * B 6 P* * 6 P* SUBROUTINES: * 6 P********************
0x4007fc…400990 Dummy {f00=0x0142, f01=0x0190, f02=»2,0 RESET CHARACTER COUNTER $ P LDR A4,A3 SAVE START OF BUFFER $ P ADKL A3,CBLEN END OF BUFFER L P LDK A1,/A p P CIO A1,1,CHCR READ BLOCK P RF(NA) RDERR3 PRDB:20 EQU * P INR A1,0,CHCR P RF(NA) RDB:30 P CWR A4,A3 END
0x400990…400b24 Dummy {f00=0x0142, f01=0x0190, f02=»INCREMENT BUFFER POINTER PRDB:30 EQU * P SST A1,CHCR 4 P RB(NA) RDB:20 J P ANKL A1,/FCFF CHECK STATUS ` P LDR A4,A1 SAVE STATUS P RF(Z) RDBEX OK P SLC A4,3 CHECK IF TAPEMARK P RF(N) RDBEX OK IF TAPEMARK PRDERR
0x400b24…400cb8 Dummy {f00=0x0142, f01=0x0190, f02=»BEEN MADE ` P* P ADK A5,1 NEXT ATTEMPT P CWK A5,3 THIRD ATTEMPT? : P RF(E) RDERR3 YES - GIVE UP! Z P LDK A1,/E REVERSE ONE BLOCK ~ P CIO A1,1,CHCR EXECUTE ORDER $ P RB(NA) *-2 LOOP UNTIL ACCEPTED P RB RDB:10 PRDERR3 E
0x400cb8…400e4c Dummy {f00=0x0142, f01=0x0190, f02=»*********************************** ( P* * , ( P* DUINIT - INITIALIZE DISC UNIT * X ( P* ============================= * ( P* * ( P* REFERENCED IN: SYSLOD,GETFIL * ( P
0x400e4c…400fe0 Dummy {f00=0x0142, f01=0x0190, f02=»XIT: * ( P* * ( * P* WORK REGISTERS: A2,A3 * T ( P* * ( P* SUBROUTINES: * ( P* * ( P**
0x400fe0…401174 (1, 1098) Dummy {f00=0x0142, f01=0x018e, f02=» CODE | P EJECT P* $ P* INIT DISC COMMANDS VERSION A2 & P* N , P ORKL A1,CIO+8 CONF. CIO A1,1,XX INSTR. X 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.
0x401174…401308 Dummy {f00=0x0142, f01=0x018e, f02=» P ST A2,READS P LDK A2,4 $ P XRS A2,CRCCHK DISCARD CRC CHECK * $ P CF A14,GETVLB GET VOLUME LABEL R P LDK A2,4 z 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*
0x401308…40149c Dummy {f00=0x0142, f01=0x0190, f02=» n P* , P LDKL A3,DKBA3 BUFFER LENGTH VERSION A3 * P ST A3,SAVCON BUFFER LENGTH VERSION A3 B P ORKL A1,CIO+8 p , P XRKL A1,/500 CONFIG. CIO A4,1,XX INSTR. P ST A1,SEEK30 ( P ORKL A1,/800 FORM SST A4,XX INSTR. P ST A1,SEEK31
0x40149c…401630 Dummy {f00=0x0142, f01=0x0190, f02=» P* P* INIT SUBROUTINE ADDRESSES P* 2 " PDUI:40 ST A2,READ READ PROGRAM < ( P ST A2,READS READ CONFIGURATION DATA b PDUI:50 EQU * P RTN A14 P EJECT 4 P*********************************************** 4 P*
0x401630…4017c4 Dummy {f00=0x0142, f01=0x0190, f02=» * h 4 P* * 4 P* REFERENCED IN: SYSLOD * H 4 P* * " P* ENTRY: A9 = BUFFER ADDRESS 4 P*
0x4017c4…401958 Dummy {f00=0x0142, f01=0x0190, f02=» * 4 P* * . ( P* WORK REGISTERS: A1,A2,A3,A4,A7 f 4 P* * 4 P* SUBROUTINES: ERROR * 4 P*
0x401958…401aec Dummy {f00=0x0142, 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,/
0x401aec…401c80 Dummy {f00=0x0142, 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
0x401c80…401e14 (1, 1099) Dummy {f00=0x0142, f01=0x018e, f02=» P* P* SEEK CYLINDER P* & PSEEK20 CIO A1,1,0 0 P RB(NA) SEEK20 J P* ` PSEEK21 SST A1,0 j P RB(NA) SEEK21 P* P* INTERLACING P* PINT200 EQU * P LDR A1,A2 P ADR A2,A2 $ P ADR A2,A1 INT
0x401e14…401fa8 Dummy {f00=0x0142, f01=0x0190, f02=» r P ADK A2,8 PINT210 EQU * P ANK A2,/1F . , P SLL A2,2 PHYSICAL SECTOR AND ORDER CODE B P ST A2,SECNBR r P EJECT P* P* READ SECTOR P* P LDR A1,A9 BUFFER ADDRESS ( PREAD20 LDKL A4,MUXCC NUMBER OF WORDS
0x401fa8…40213c Dummy {f00=0x0142, f01=0x0190, f02=»NA) READ21 LOOP UNTIL ACCEPTED PREAD22 SST A2,0 STATUS & & P RB(NA) READ22 LOOP UNTIL ACCEPTED D PCRCCHK EQU * n P ANK A2,/1F STATUS P RF(NZ) DUERR READING ERROR ( P ADKL A11,1 INCREMENT SECTOR COUNTER P RTN A14 P EJECT
0x40213c…4022d0 Dummy {f00=0x0142, f01=0x0190, f02=» j P LDKL A7,/1000 P LDKL A4,/3000 PDIV300 EQU * 4 P SUR A1,A4 H P RF(N) DIV310 Z P ADR A2,A7 p P RB DIV300 PDIV310 EQU * P ADR A1,A4 ADJUST DIVIDEND P SRL A4,4 P SRL A7,4 P RB(NZ) DIV300 P ADR
0x4022d0…402464 Dummy {f00=0x0142, f01=0x0190, f02=» , XXXX, PCASE10 EQU * P LDR A4,A2 ( P SRL A4,5 : P CW A4,CYLNBR L P RF(E) INT300 b , P ST A4,CYLNBR STORE NEW CYLINDER NUMBER x P SLL A4,3 P ORK A4,2 SET BIT 14 P EJECT P* P* SEEK CYLINDER P*
0x402464…4025f8 Dummy {f00=0x0142, f01=0x0190, f02=»TERLACING P* PINT300 EQU * P LDR A3,A2 0 P ADR A2,A2 B $ P ADR A2,A3 INTERLACING FACTOR 3 T P ANK A2,/1F | & P LD A4,CYLNBR GET CYLINDER NUMBER P ANK A4,1 & P RF(Z) INT310 EVEN CYLINDER NUMBER " P ADK A2,8 SKEW FAC
0x4025f8…40278c Dummy {f00=0x0142, f01=0x0190, f02=»ICAL SECTOR NUMBER x P EJECT P* ( P* READ SECTOR 2 P* H P LDR A7,A9 BUFFER ADDRESS R * PREAD34 LDKL A4,MXCCD3 NUMBER OF WORDS t , PWERIO3 WER A4,/10 WRITE NUMBER OF WORDS $ P WER A7,/11 WRITE BUFFER ADDRESS P* " PREAD
0x40278c…402920 Dummy {f00=0x0142, 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
0x402920…402ab4 (1, 1100) Dummy {f00=0x0143, f01=0x0190, f02=» P SUK A4,1 " P RB(NZ) READ32 CONTINUE MOVING P LD A1,SAVMEM < P RF(P) RETURN R ( P LD A2,SECNBR PHYSICAL SECTOR NUMBER h " P ADK A2,/C NEW SECTOR TO READ P ANK A2,/7C P SUK A1,1 P RB READ34 P EJECT PREAD33 E
0x402ab4…402c48 Dummy {f00=0x0143, f01=0x0190, f02=»SECTOR NUMBER t P RTN A14 P & PDUERR EQU * . P LDKL A1,LMP2 B P CALL ERROR X P XIF l P IFT MFDISC=1 x P EJECT < P******************************************************** < P*
0x402c48…402ddc Dummy {f00=0x0143, f01=0x0190, f02=» * < P* * < P* REFERENCED IN: SYSLOD,GETFIL * L < P* * < P* ENTRY: A1 = DEVICE ADDRESS *
0x402ddc…402f70 Dummy {f00=0x0143, f01=0x0190, f02=» * < P* WORK REGISTERS: * < < P* * | < P* SUBROUTINES: ERROR * < P*
0x402f70…403104 Dummy {f00=0x0143, f01=0x0190, f02=»* $ P* INIT MINI FIXED DISC COMMANDS P* 2 PMDI:00 EQU * < , P ORKL A1,CIO CONFIG. CIO A1,1,XX INSTR. P P ST A1,READM2 ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READM3 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P S
0x403104…403298 Dummy {f00=0x0143, f01=0x0190, f02=»TINE ADDRESS v P ST A2,READ P ST A2,READS ( P RTN A14 < P EJECT L : P****************************************************** Z : P* * : P* MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC
0x403298…40342c Dummy {f00=0x0143, f01=0x0190, f02=»* REFERENCED IN: SYSLOD * : P* * > : P* ENTRY: A9 = BUFFER ADDRESS * | : P* A11 = SECTOR NUMBER * : P*
0x40342c…4035c0 Dummy {f00=0x0143, f01=0x018e, f02=» * t : P* WORK REGISTERS: * " : P* * ` : P* SUBROUTINES: * : P*
0x4035c0…403754 (1, 1101) Dummy {f00=0x0143, f01=0x0190, f02=» * P LDR A2,A11 GET LOGICAL SECTOR NUMBER P DVK 104 DIVIDE BY 104 2 P SLL A2,2 P P ORK A2,3 SET BIT 14 AND 15 b P* " P* A1=SECTOR NUMBER ON CYLINDER P* A2=CYLINDER NUMBER P* & P ST A1,SECNBR STORE SECTOR NUMBER P C
0x403754…4038e8 Dummy {f00=0x0143, f01=0x0190, f02=» CYLINDER P* " PSEEKM1 CIO A2,1,0 SEEK COMMAND & P RB(NA) SEEKM1 LOOP UNTIL ACCEPTED B P* l PSEEKM2 SST A2,0 GET STATUS v & P RB(NA) SEEKM2 WAIT UNTIL ACCEPTED P* P* INTERLACING P* PINTM10 EQU * P CWK A1,
0x4038e8…403a7c Dummy {f00=0x0143, f01=0x0190, f02=» NUMBER z " P LDK A1,0 PREPARE FOR DIVISION P DVK 52 6 , P ADR A1,A2 A1:=INTERLACED SECTOR NUMBER F P* v " P* A1:=INTERLACED SECTOR NUMBER P* & P LD A2,CYLNBR GET CYLINDER NUMBER P SRC A2,3 ( P RF(NN) INTM30 EVEN CYLINDER
0x403a7c…403c10 Dummy {f00=0x0143, f01=0x0190, f02=»ECNBR GET SECTOR NUMBER BEFORE INTERLACING P CWK A2,52 2 P RF(L) INTM40 HEAD NUMBER 0 D P ORKL A1,/4000 HEAD NUMBER 1 h PINTM40 EQU * P* P* READ SECTOR P* PREADM1 EQU * " P LDKL A4,MUXCC NUMBER OF WORDS P LDR
0x403c10…403da4 Dummy {f00=0x0143, f01=0x0190, f02=»ADM2 CIO A1,1,0 READ SECTOR & P RB(NA) READM2 LOOP UNTIL ACCEPTED $ P* N PREADM3 SST A1,0 GET STATUS X & P RB(NA) READM3 LOOP UNTIL ACCEPTED z P ANK A1,/1F STATUS P RF(NZ) MFDERR READING ERROR ( P ADKL A11,1 INCREMENT SECTOR NUMBER
0x403da4…403f38 Dummy {f00=0x0143, f01=0x0190, f02=» 4 P************************************************ 4 P* * < 4 P* FDINIT - INITIALIZE FLEXIBLE DISC * t 4 P* ================================= * 4 P*
0x403f38…4040cc Dummy {f00=0x0143, f01=0x0190, f02=»NTRY: A1 - DEVICE ADDRESS * 4 P* * 4 4 P* EXIT: * l 4 P* * 4 P* WORK REGISTERS:
0x4040cc…404260 Dummy {f00=0x0143, f01=0x0190, f02=» * 4 P************************************************ , PFDINIT EQU * d P ANK A1,/10 x 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
0x404260…4043f4 (1, 1102) Dummy {f00=0x0143, f01=0x018e, f02=» P ANK A1,/10 ( P RF(NZ) FDI:10 0.25 MEG FLOPPY DRIVE P* H . P LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 R ( 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
0x4043f4…404588 Dummy {f00=0x0143, f01=0x0190, f02=» P ST A2,READS $ P CF A14,GETVLB GET VOLUME LABEL P LD A1,FORDEV,A9 GET FORMAT @ P ST A1,DEVTYP+STKEND d P RTN A14 P EJECT 0 P******************************************** 0 P* * 0 P*
0x404588…40471c Dummy {f00=0x0143, f01=0x0190, f02=»= * n 0 P* * 0 P* ON ENTRY: A1 = DEVICE ADDRESS * F 0 P* * z 0 P******************************************** P P PUNLOCK EQU * $ P C
0x40471c…4048b0 Dummy {f00=0x0143, f01=0x0190, f02=»OP UNTIL ACCEPTED P* P EX FRD:40 SENSE STATUS $ $ P RB(NA) *-4 LOOP UNTIL ACCEPTED D P RTN A14 l P EJECT | @ P*********************************************************** @ P*
0x4048b0…404a44 Dummy {f00=0x0143, f01=0x0190, f02=»* V @ P* * @ P* REFERENCED IN: SYSLOD * N @ P* * @ P* ENTRY: A9 - BUFFER ADDRESS
0x404a44…404bd8 Dummy {f00=0x0143, f01=0x0190, f02=» * ^ @ P* EXIT: * @ P* * V @ P* WORK REGISTERS: A1,A2,A3 * @ P*
0x404bd8…404d6c Dummy {f00=0x0143, f01=0x0190, f02=» * f @ P*********************************************************** PFRDSEC EQU * ^ " P LDR A2,A11 GET SECTOR NUMBER r * P LDKL A4,/340 26 SHIFTED 10 STEPS LEFT $ P LD A1,DEVTYP+STKEND DEVICE TYPE P ANK A1,1 & P RF(Z) S
0x404d6c…404f00 Dummy {f00=0x0143, f01=0x0190, f02=» SECTOR NBR v P RF DVK26 PNOTCY0 EQU * & P ADK A2,13 : P EJECT L P* Z P* A2=PHYSICAL SECTOR NUMBER d P* PDVK26 EQU * P LDK A1,0 PDVK26A EQU * P SLL A1,5 PDVK26B EQU * P SUR A2,A4 P RF(
0x404f00…405094 (1, 1103) Dummy {f00=0x0143, f01=0x0190, f02=»ITS v P EJECT P* P* A2=SECTOR NUMBER $ P* A1=CYLINDER NUMBER > P* Z $ P LD A4,DEVTYP+STKEND DEVICE TYPE d P ANK A4,1 , P RF(NZ) DBHEAD 1 MEG FLOPPY,DOUBLE HEAD P SLL A1,1 ONLY ONE HEAD PDBHEAD EQU * P LDR A
0x405094…405228 Dummy {f00=0x0143, f01=0x0190, f02=» A2,A4 A2=CIO READ REGISTER 2 P SLL A1,1 CYLINDER NUMBER IN CORRECT POSITION $ " P ORK A1,3 A1=CIO SEEK REGISTER Z 4 P CW A1,CYLNBR COMPARE OLD AN NEW CYLINDER NUMBER P RF(E) NOSEEK NO SEEK NEEDED & P ST A1,CYLNBR SAVE CYLINDER NUMBER PFD
0x405228…4053bc Dummy {f00=0x0143, f01=0x0190, f02=»50 SEEK ERROR PNOSEEK EQU * P LDR A1,A2 * P RF FRD:05 < P EJECT N PFRDS25 EQU * P LDR A1,A11 SECTOR NO p 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 L
0x4053bc…405550 Dummy {f00=0x0143, f01=0x0190, f02=»S r $ P AD A2,SAVCON BUFFER END ADDRESS P* 2 $ PFRD:10 CIO A1,1,FDCU START READ < P RB(NA) FRD:10 d P* z 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
0x405550…4056e4 Dummy {f00=0x0143, f01=0x0190, f02=»NA) FRD:20 PFRD:42 EQU *+2 P ANKL A1,/4E15 FATAL ERROR ? ( P RF(NZ) FRD:50 YES! L PFRD:43 CWR A3,A2 =4 h ( 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
0x4056e4…405878 Dummy {f00=0x0143, f01=0x0190, f02=»GAIN =4 PFRD:45 EQU * ( P ADKL A11,1 INCRMENT SECTOR ADDRESS $ P RF(NN) FRD:48 P 0 P SUR A11,A11 RESET LEAST SIGN. PART OF D.A. f 2 P ADKL A12,1 INCREMENT MOST SIGN. PART OF D.A. $ P RF(O) FRD:50 DISC ADDRESS ERROR PFRD:48 EQU *
0x405878…405a0c Dummy {f00=0x0143, f01=0x0190, f02=»5-FRD:43-2 =4 P XIF P IFT CDDISC=1 " P IFT CDDI16=0 =9 8 P EJECT R ( P*********************************** ` ( P* * ( P* CDINIT - INITIALIZE DISC UNIT * ( P* ============================= *
0x405a0c…405ba0 Dummy {f00=0x0143, f01=0x0190, f02=» ( P* ENTRY: A1 - DEVICE ADDRESS * ( P* * 0 ( P* EXIT: * ( P* * ( P* WORK REGISTERS: A1,A2 * ( P* *
0x405ba0…405d34 (1, 1104) Dummy {f00=0x0144, f01=0x0190, f02=» PCDINIT EQU * P* P* INIT 80M CDC DISC COMMANDS & P* J , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. T 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.
0x405d34…405ec8 Dummy {f00=0x0144, f01=0x0190, f02=»VALUE FOR SECTOR NBR v & P LDKL A2,/300 BUFLEN 80M CDC DISC P ST A2,SAVCON SAVE LENGTH F 4 P LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. h P ST A2,READ P ST A2,READS P RTN A14 P EJECT 4 P**********************************
0x405ec8…40605c Dummy {f00=0x0144, f01=0x0190, f02=» ================================= * 4 P* * 6 4 P* REFERENCED IN: SYSLOD * n 4 P* * 4 P* ENTRY: A9 = BUFFER ADDRESS
0x40605c…4061f0 Dummy {f00=0x0144, f01=0x0190, f02=»A12 - SECTOR NBR MOST SIGNIFICANT * 4 P* * . 4 P* EXIT: A12,A11 = A12,A11 + 1 * f 4 P* * 4 P* WORK REGISTERS: A1,A2,A3,A6 *
0x4061f0…406384 Dummy {f00=0x0144, f01=0x0190, f02=» * ~ 4 P*********************************************** & P* ^ PCRDSEC EQU * h P* | P* SET BUFFER ADDRESS P* P LDR A1,A9 BUFFER ADDRESS P ADKL A1,256 P ST A1,CIOAD2 ADDRESS 2 P ADKL
0x406384…406518 Dummy {f00=0x0144, f01=0x0190, f02=» LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT 0 P LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT 2 P EJECT f P* t P* DIVIDE LOGICAL WITH 3 ~ P* P LDK A3,0 PRED100 EQU * P ADK A3,1 P SUK A1,3 P RB(NN) RED100 P
0x406518…4066ac Dummy {f00=0x0144, f01=0x0190, f02=»W A2,PSECNL+STKEND , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR P CW A3,PSECNM+STKEND J , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR f P CW A1,PSECPA+STKEND & P RF(E) TURN SAME LOG SEC AS BEFORE . P RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR
0x4066ac…406840 Dummy {f00=0x0144, f01=0x0190, f02=» EJECT P* A1=HEAD NBR * SECTOR NBR P* A2=CYLINDER NBR 0 P LDR A3,A2 J P LDR A2,A1 P LDK A1,0 n 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
0x406840…4069d4 (1, 1105) Dummy {f00=0x0144, f01=0x018e, f02=»00 EVEN CYLINDER NUMBER P ADK A2,12 SKEW FACTOR PINT100 EQU * > P DVK 23 R P SLL A1,5 IN POSITION b $ 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 EJE
0x4069d4…406b68 Dummy {f00=0x0144, f01=0x018e, f02=» P LDKL A2,SEKTAB PSEEKC1 EQU * P CIO A2,1,0 SEEK 4 P RB(NA) SEEKC1 L PSEEKC2 EQU * b P SST A2,0 v P RB(NA) SEEKC2 P EJECT P* P* READ P* PREADER EQU * P LDK A6,3 NUMBER OF RETRIES
0x406b68…406cfc Dummy {f00=0x0144, f01=0x0190, f02=» P* PREADC2 SST A1,0 STATUS & P RB(NA) READC2 LOOP UNTIL ACCEPTED , P ANKL A1,/FF0F STATUS V P RF(NZ) RET30 READING ERROR t > P LD A1,PSECPA+STKEND GET RELATIV LOG SECT IN PHYSICAL =11 0 P RF(NZ) REDMOV NOT FIRST REL LOG SECTOR =11
0x406cfc…406e90 Dummy {f00=0x0144, f01=0x0190, f02=»10 EQU * P SUR A11,A11 RESET A11 P ADKL A12,1 . PTURN20 EQU * B P RTN A14 V P EJECT f P* t " P* MOVE UP NEXT LOGICAL SECTOR ~ P* PREDMOV EQU * 6 P ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART P SLL A1,2 IN
0x406e90…407024 Dummy {f00=0x0144, f01=0x0190, f02=»OV10 EQU * P LDR* A6,A1 P STR A6,A2 & P ADK A1,2 8 P ADK A2,2 J P SUK A3,1 P RB(P) RMOV10 NEXT WORD n P RB TURN P P P PNOFOND EQU * P LDKL A1,LMP2 & P CALL ERROR INDICATE READING ERROR
0x407024…4071b8 Dummy {f00=0x0144, f01=0x0190, f02=»C A1,CIOTAB P ANK A1,/C0 4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S ( P LDKL A2,/8000 ` 0 P ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE v P RB READER PRET31 EQU * P ANK A1,/80 2 P RF(Z) RET32 LAST RETRY WITH LATE DA
0x4071b8…40734c Dummy {f00=0x0144, f01=0x0190, f02=»A2,/3FFF * P ANS A2,CIOTAB RESET LATE DATA STROBE P LC A1,CIOTOT > P ANK A1,/C0 T 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- h P LDKL A2,/8000 ( P ORS A2,CIOTOT PREPARE FOR CARRIAGE+ P RB READER PRET33 EQU * P
0x40734c…4074e0 Dummy {f00=0x0144, f01=0x0190, f02=»ER P EJECT P* P* SEEK TABLE " P* 6 PSEKTAB EQU * @ P DATA 0 T P* d P* CIO TABLE n P* PCIOTAB EQU * & P DATA 0 ORDER,SECTOR NBR,HEAD NBR PCIOTOT EQU * 6 P DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL
0x4074e0…407674 (1, 1106) Dummy {f00=0x0144, 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**********************************
0x407674…407808 Dummy {f00=0x0144, f01=0x0190, f02=» j ( P* * ( P* REFERENCED IN: SYSLOD,GETFIL * 4 ( P* * ` ( P* ENTRY: A1 - DEVICE ADDRESS * ( P* * ( P* EXIT: *
0x407808…40799c Dummy {f00=0x0144, 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
0x40799c…407b30 Dummy {f00=0x0144, 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
0x407b30…407cc4 Dummy {f00=0x0144, 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
0x407cc4…407e58 Dummy {f00=0x0144, 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* ===========
0x407e58…407fec Dummy {f00=0x0144, 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
0x407fec…408180 Dummy {f00=0x0144, f01=0x0190, f02=»* b 4 P* * 4 P* WORK REGISTERS: A1,A2,A3,A6 * B 4 P* * z 4 P* SUBROUTINES: ERROR * 4 P*
0x408180…408314 (1, 1107) Dummy {f00=0x0144, f01=0x0190, f02=»DDRESS P* P LDR A1,A9 BUFFER ADDRESS P ADKL A1,256 : P ST A1,CIOAD2 ADDRESS 2 N P ADKL A1,256 n 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
0x408314…4084a8 Dummy {f00=0x0144, f01=0x018e, f02=»3 z P* P LDK A3,0 PRED100 EQU * & P ADK A3,1 : P SUK A1,3 L P RB(NN) RED100 ^ P ADK A1,3 t 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+
0x4084a8…40863c Dummy {f00=0x0144, f01=0x0190, f02=» P CW A1,PSECPA+STKEND & P RF(E) TURN SAME LOG SEC AS BEFORE . P RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR J PRED110 EQU * | P ST A9,CIOAD1 ADDRESS 1 ( P MS 3,PSECPA+STKEND SAVE NEW VALUES P LDR A1,A3 PDIVCON EQU *+2 =9 P
0x40863c…4087d0 Dummy {f00=0x0144, f01=0x0190, f02=»1,0 P DVK 23 P* A1=SECTOR NBR P* A2=HEAD NBR 4 $ P ORKL A2,/800 SET INTERRUPT BIT J , P OR A2,CARFIX+STKEND FIX OR CARTRIDGE =9 r " P ST A2,CIOTAB UPDATE CIO TABLE P EJECT P* P* INTERLACING P* P LDR A2,
0x4087d0…408964 Dummy {f00=0x0144, f01=0x0190, f02=»T100 EQU * P DVK 23 P SLL A1,5 IN POSITION " $ P ORS A1,CIOTAB UPDATE CIO TABLE @ P SLC A3,1 RESTORE A3 =9 h P CW A3,CYLNBR & P RF(E) READER SAME CYLINDER NUMBER P EJECT P* P* SEEK P* $ P ST A3,CYLNBR SA
0x408964…408af8 Dummy {f00=0x0144, f01=0x0190, f02=»0 SEEK P RB(NA) SEEKC1 PSEEKC2 EQU * $ P SST A2,0 8 P RB(NA) SEEKC2 J P EJECT ` P* n P* READ x P* PREADER EQU * P LDK A6,3 NUMBER OF RETRIES PREA100 EQU * ( P LDKL A1,CIOTAB POINTER TO CIO TABLE
0x408af8…408c8c Dummy {f00=0x0144, f01=0x0190, f02=»UNTIL ACCEPTED | P ANKL A1,/FF0F STATUS P RF(NZ) RET30 READING ERROR 4 : P LD A1,PSECPA+STKEND GET LOGICAL SECT. IN PHYSICAL =11 X : P RF(NZ) REDMOV NOT FIRST LOGICAL SECT. IN PHYSICAL =11 P PTURN EQU * 0 P ADKL A11,1 INCREMENT LOGI
0x408c8c…408e20 Dummy {f00=0x0144, f01=0x0190, f02=» PTURN20 EQU * P RTN A14 P EJECT , P* : " P* MOVE UP NEXT LOGICAL SECTOR D P* j PREDMOV EQU * t 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
0x408e20…408fb4 (1, 1108) Dummy {f00=0x0145, f01=0x0190, f02=»N WORDS | PRMOV10 EQU * P LDR* A6,A1 $ P STR A6,A2 8 P ADK A1,2 J P ADK A2,2 P SUK A3,1 n P RB(P) RMOV10 NEXT WORD P RB TURN P P P PNOFOND EQU * P LDKL A1,LMP2 & P CALL ERROR INDICATE R
0x408fb4…409148 Dummy {f00=0x0145, f01=0x0190, f02=» NEW TRY P LC A1,CIOTAB P ANK A1,/C0 & 4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S : P LDKL A2,/8000 r 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
0x409148…4092dc Dummy {f00=0x0145, f01=0x0190, f02=»U * P LDKL A2,/3FFF * P ANS A2,CIOTAB RESET LATE DATA STROBE " P LC A1,CIOTOT P P ANK A1,/C0 f 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- z P LDKL A2,/8000 ( P ORS A2,CIOTOT PREPARE FOR CARRIAGE+ P RB READER PRE
0x4092dc…409470 Dummy {f00=0x0145, f01=0x0190, f02=»- h P RB READER ! P EJECT ! P* ! * P* SEEK TABLE ! 4 P* ! H PSEKTAB EQU * ! R P DATA 0 ! f P* ! v P* CIO TABLE ! P* ! PCIOTAB EQU * ! & P DATA 0 ORDER,SECTOR NBR,HEAD NBR ! PCIOTOT EQU * ! 6 P DATA 384 TOTAL NUMBER O
0x409470…409604 Dummy {f00=0x0145, f01=0x0190, f02=»GN. =9 ! x PCIOAD1 EQU * " P DATA 0 ADDRESS 1 " " PCIOPA2 EQU * " < P DATA /4000+128 " P $ P DATA 0 ADDRESS 2 MOST SIGN. =9 " h PCIOAD2 EQU * " P DATA 0 ADDRESS 2 " PCIOPA3 EQU * " P DATA 128 " $ P DATA 0 ADDRESS 3 MOST SIGN. =9 "
0x409604…409798 Dummy {f00=0x0145, f01=0x0190, f02=»* * " 8 P* GETFIL - GET CONFIGURATION FILE * # < 8 P* =============================== * # x 8 P* * # 8 P* REFERENCED IN: SYSLO
0x409798…40992c Dummy {f00=0x0145, 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*
0x40992c…409ac0 Dummy {f00=0x0145, 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
0x409ac0…409c54 (1, 1109) Dummy {f00=0x0145, f01=0x0190, f02=»TART OF RECORD % ( P LDK A5,'S' STANDARD FILE CHARACTER & P CC A5,27,A6 STANDARD FILE? & B P RF(NE) GET:50 NO! & f * 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 INS
0x409c54…409de8 Dummy {f00=0x0145, f01=0x0190, f02=» A5,':' CHARACTER TO PRECEED NUMBER & ( PGET:30 CCR A5,A4 CONFIGURATION FILE? ' , P RF(E) GET:40 YES! ' X P SUK A4,1 TRY NEXT CHARACTER ' r P CWR A4,A6 FIRST IN NAME? ' P RF(E) GET:50 YES! ' P RB GET:30 ' PGET:40 EQU * ' P* ' P* CHE
0x409de8…409f7c Dummy {f00=0x0145, f01=0x0190, f02=»T ' v " P CALL CONVRT CONVERT TO BINARY ( , P CW A1,SCTANO SAME AS APPLICATION NUMBER ( 0 P RF(NE) GET:50 ( ` P* ( v P* CONFIGURATION FILE FOUND ( P* ( $ P LD A1,22,A6 LAST RECORD NUMBER ( P ST A1,LSTREC+STKEND SAVE ( P LD A12,16,A6 GE
0x409f7c…40a110 Dummy {f00=0x0145, f01=0x0190, f02=»1 BYPASS STATUS CHARACTER ( , P SUK A7,1 MOORE RECORDS IN THIS SECTOR? ) " P RB(P) GET:20 YES! ) R " P CWR A11,A10 LAST VTOC SECTOR? ) l P RB(NE) GET:10 NO! ) 2 PGET:60 LDK A3,'C' THIS INSTRUCTION IS MODIFIED ) ( P CCK A3,'CC' LOOKING FOR CONF. FILE? )
0x40a110…40a2a4 Dummy {f00=0x0145, f01=0x0190, f02=» FILE ) p P* * P* * P LDKL A2,/7F8 * " & P OTR A2,0,SOP SWITCH ON SOP LAMPS * 8 PGET:70 EQU * * b P CF A14,SOPIN * v " 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 *
0x40a2a4…40a438 Dummy {f00=0x0145, 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
0x40a438…40a5cc Dummy {f00=0x0145, 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
0x40a5cc…40a760 Dummy {f00=0x0145, 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 -
0x40a760…40a8f4 (1, 1110) Dummy {f00=0x0145, 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* =========
0x40a8f4…40aa88 Dummy {f00=0x0145, f01=0x0190, f02=»MENT * . x : P* ========================= * / & : P* * / d : P* ENTRY: A8 - RELOCATION BASE * / : P* A10 - EFFECTIVE LENGTH
0x40aa88…40ac1c Dummy {f00=0x0145, f01=0x018e, f02=»* / : P* * 0 : P* WORK REGISTERS: A1,A2,A3,A4,A7 * 0 H : P* * 0 : P* SUBROUTINES: MOVE,READ * 0 : P*
0x40ac1c…40adb0 Dummy {f00=0x0145, 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
0x40adb0…40af44 Dummy {f00=0x0145, 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
0x40af44…40b0d8 Dummy {f00=0x0145, 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
0x40b0d8…40b26c Dummy {f00=0x0145, 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
0x40b26c…40b400 Dummy {f00=0x0145, 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
0x40b400…40b594 (1, 1111) Dummy {f00=0x0145, 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
0x40b594…40b728 Dummy {f00=0x0145, f01=0x0190, f02=»UF - RELOCATE BUFFER ROUTINE * 6 6 P* =============================== * 7 . 6 P* * 7 h 6 P* REFERENCED IN: LODCOM/LODSEG * 7 6 P*
0x40b728…40b8bc Dummy {f00=0x0145, f01=0x0190, f02=» * 7 6 P* EXIT: * 8 4 6 P* * 8 n 6 P* WORK REGISTERS: A1,A4,A5,A6 * 8 6 P*
0x40b8bc…40ba50 Dummy {f00=0x0145, 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
0x40ba50…40bbe4 Dummy {f00=0x0145, 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
0x40bbe4…40bd78 Dummy {f00=0x0145, 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
0x40bd78…40bf0c Dummy {f00=0x0145, 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********************************************
0x40bf0c…40c0a0 Dummy {f00=0x0145, 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
0x40c0a0…40c234 (1, 1112) Dummy {f00=0x0146, f01=0x0190, f02=» * = n 2 P* * > 2 P* WORK REGISTERS A1-A8,A10 * > J 2 P* * > 2 P* ROUTINES REFERENCED: GETFIL, APLID * > 2 P*
0x40c234…40c3c8 Dummy {f00=0x0146, 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
0x40c3c8…40c55c Dummy {f00=0x0146, 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 *
0x40c55c…40c6f0 Dummy {f00=0x0146, 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
0x40c6f0…40c884 Dummy {f00=0x0146, 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
0x40c884…40ca18 Dummy {f00=0x0146, 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+
0x40ca18…40cbac Dummy {f00=0x0146, f01=0x018e, f02=»ON C | P EJECT D 2 P********************************************* D 2 P* * D N 2 P* * D 2 P* APLID * D 2 P* =====
0x40cbac…40cd40 Dummy {f00=0x0146, 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)
0x40cd40…40ced4 (1, 1113) Dummy {f00=0x0146, 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
0x40ced4…40d068 Dummy {f00=0x0146, 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
0x40d068…40d1fc Dummy {f00=0x0146, 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
0x40d1fc…40d390 Dummy {f00=0x0146, 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
0x40d390…40d524 Dummy {f00=0x0146, 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
0x40d524…40d6b8 Dummy {f00=0x0146, 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********************
0x40d6b8…40d84c Dummy {f00=0x0146, 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
0x40d84c…40d9e0 Dummy {f00=0x0146, 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*
0x40d9e0…40db74 (1, 1114) Dummy {f00=0x0146, 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
0x40db74…40dd08 Dummy {f00=0x0146, 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,
0x40dd08…40de9c Dummy {f00=0x0146, 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
0x40de9c…40e030 Dummy {f00=0x0146, 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******************
0x40e030…40e1c4 Dummy {f00=0x0146, 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*
0x40e1c4…40e358 Dummy {f00=0x0146, 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
0x40e358…40e4ec Dummy {f00=0x0146, 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
0x40e4ec…40e680 Dummy {f00=0x0146, 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
0x40e680…40e814 (1, 1115) Dummy {f00=0x0146, 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
0x40e814…40e9a8 Dummy {f00=0x0146, 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,
0x40e9a8…40eb3c Dummy {f00=0x0146, 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*
0x40eb3c…40ecd0 Dummy {f00=0x0146, 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*
0x40ecd0…40ee64 Dummy {f00=0x0146, 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
0x40ee64…40eff8 Dummy {f00=0x0146, 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
0x40eff8…40f18c Dummy {f00=0x0146, f01=0x2008, f02=» P X ` h p
0x40f18c…40f320 Dummy {f00=0x0146, f01=0x018e, f02=»TR A5,A2 SAVE WORD " P ADK A1,2 UPDATE SOURCE BUFFER ( P ADK A2,2 UPDATE DESTINATION BUFFER @ P RB MSS010 CONTINUE MOVE l P* PMSS020 EQU * P ADK A3,2 " P RF(Z) MOVRT1 ALL MOVED,RETURN P XIF P* P IFT CPU852=0
0x40f320…40f4b4 (1, 1116) Opaque[0x194]
0x40f4b4…40f648 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28e0, f03=0x0000}
0x40f4b4…40f648 IdxSect {
0x40f4b4…40f648 f00 = 0x0147 // 0x40f4b4 @0x0
0x40f4b4…40f648 f01 = 0x0008 // 0x40f4b6 @0x2
0x40f4b4…40f648 gno = [ // 0x40f4b8 @0x4
0x40f4b4…40f648 [0x00]: C0x0147.0x0.0
0x40f4b4…40f648 [0x01]: C0x0147.0x1.0
0x40f4b4…40f648 [0x02]: C0x0147.0x2.0
0x40f4b4…40f648 [0x03]: C0x0147.0x3.0
0x40f4b4…40f648 ]
0x40f4b4…40f648 }
0x40f648…40f7dc Dummy {f00=0x0147, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 11.0 81-04-07 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*
0x40f7dc…40f970 Dummy {f00=0x0147, 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
0x40f970…40fb04 Dummy {f00=0x0147, 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
0x40fb04…40fc98 Dummy {f00=0x0147, 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
0x40fc98…40fe2c Dummy {f00=0x0147, f01=0x0190, f02=»XTRN CHRT3,IHPR01 P EXTRN CHRT4,IHPR02 . P EXTRN IHCC1,IHPR03 CASSETTE CHANGER NO. 1 6 . P EXTRN IHCC2,IHPR04 2 h ( P EXTRN IHCC3 3 L P EXTRN CHLT1,IHSVU1,IHSVU2,IHSVU3,IHSVU4,IHSVU5 LOCAL CHANNEL UNIT
0x40fe2c…40ffc0 Dummy {f00=0x0147, f01=0x0190, f02=» EXTRN IHPL02,IHPVU6,IHPVU7,IHPVU8 0 P EXTRN IHFD,IHCD FLOPPY DISC,CDC (80 M) DISC * * 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 EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI
0x40ffc0…410154 (1, 1117) Dummy {f00=0x0147, f01=0x0190, f02=»R ~ P EJECT SYSTAB P* " F P* DISPLACEMENTS IN SEGTAB, PAGTAB , SWBTAB AND APPL. CONTROL BLOCK , P* v PSEG:FC EQU -4 FILE CODE $ PSEG:NS EQU -2 NUMBER OF SEGMENTS PSEG:ST EQU 0 STATUS $ PSEG:DS EQU 2 DISC SECTOR ADDRESS
0x410154…4102e8 Dummy {f00=0x0147, f01=0x0190, f02=»G:QB EQU 2 QUEUE POINTER BACKWARD PPAG:PA EQU 4 PAGE ADDRESS * & PPAG:SB EQU 6 SEGMENT BLOCK ADDRESS L P* v 2 PSWB:NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY $ PSWB:EL EQU 4 SWB LENGTH (BYT
0x4102e8…41047c Dummy {f00=0x0147, f01=0x0190, f02=»ESS x $ PACBSEG EQU 4 SEGMENT TABLE POOL ( PACBNPE EQU 6 NUMBER OF PAGE ENTRIES 4 & PACBMMP EQU 8 MMU TABLE PAGE ENTRY ` . PACBMMC EQU 10 MMU TABLE COMMON PART ENTRY * PACBLAP EQU 12 LOGICAL ADDRESS TO PAGE 0 PACBLAC EQU 14 LOGICAL ADDRESS
0x41047c…410610 Dummy {f00=0x0147, f01=0x0190, f02=»QU 20 APPLICATION DISC FILE ADDRESS P , P 4 P < PSTART EQU * D P EJECT SYSTAB X P* p P* INTERRUPT VECTORS z P* P DATA IHPFAR 0 P DATA IHLKM 1 P DATA IHRTC 2 P DATA ILLINT 3
0x410610…4107a4 Dummy {f00=0x0147, f01=0x0190, f02=» ~ P DATA IHSOP 9 P DATA ILLINT 10 $ P DATA ILLINT 11 @ P DATA ILLINT 12 P DATA ILLINT 13 x P DATA CHLT1 14 P DATA IHFD 15 P DATA CHRT1 16 P DATA CHRT2 17 P DATA
0x4107a4…410938 Dummy {f00=0x0147, f01=0x0190, f02=»ATA IHCC3 23 P DATA CHLT1 24 P DATA CHLT2 25 6 P DATA IHPL01 26 R P DATA IHPL02 27 n P DATA ILLINT 28 P DATA ILLINT 29 P DATA IHFD 30 P DATA ILLINT 31 P DATA ILLINT
0x410938…410acc Dummy {f00=0x0147, f01=0x0190, f02=» 37 P DATA ILLINT 38 P DATA ILLINT 39 ( P DATA IHDU1 40 D P DATA IHDU2 41 ` P DATA ILLINT 42 | P DATA ILLINT 43 P DATA IHMT 44 P DATA ILLINT 45 P DATA ILLINT 46 P D
0x410acc…410c60 Dummy {f00=0x0147, f01=0x0190, f02=» DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 8 P DATA ILLINT 55 T P DATA ILLINT 56 p P DATA ILLINT 57 P DATA ILLINT 58 P DATA ILLINT 59 P DATA ILLINT 60 P DATA ILLINT
0x410c60…410df4 (1, 1118) Dummy {f00=0x0147, f01=0x0190, f02=»ABLE POINTER ~ P* P DATA SCT P 0 P 8 P* @ P* SYSTEM TRAP J P* ` PTRAP LDK A1,/D j P CF A15,HALT P RES 4 P HLT P P* P* DEBUG RESTART ENTRY P* P XRR A13,A13 P XRR A14,A14
0x410df4…410f88 Dummy {f00=0x0147, f01=0x018e, f02=»TION | ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE 8 $ PX:D EQU 0 DM/FM NUMBER OF FILES f ( 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:
0x410f88…41111c Dummy {f00=0x0147, f01=0x0190, f02=» PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DATA 0,0 START OF FREE AREA L $ PSCTEFA DATA 0,0 END OF FREE AREA v ( PSCTIPL DATA 0 IPL DEVICE FILE CODE: * P TC:C0,C1 DK:F0,F1 MD:F4,F5 FD:F8,F9 $ PSCTANO DATA 0 AP
0x41111c…4112b0 Dummy {f00=0x0147, f01=0x0190, f02=»OP DATA 0 NUMBER OF PAGES PSCTPSZ DATA 0 PAGE SIZE " & PSCTSTB DATA STB SYSTEM STACK BASE B $ PSCTOPT DATA X:A MONITOR OPTION: l " P BIT 10:MPO,11:EMM,12:SWPBLK $ P BIT 13:FM,14:DSKPAG,15:MMUPAG PSCTBUG DATA BUG DEBUGGER & PSCTDMT
0x4112b0…411444 Dummy {f00=0x0147, f01=0x018e, f02=» DATA 0 FWT CHAIN START ADDRESS $ PSCTNOF DATA X:D NUMBER OF FILES ( ( PSCTNFT DATA X:E NUMBER OF FILES/TASK P * PSCTFWL DATA X:F FILE WORK TABLE LENGTH | ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK , PSCTDCT DATA X:G DC-TASK IN SYSTEM/REMOTE , PSC
0x411444…4115d8 Dummy {f00=0x0147, f01=0x018e, f02=» P EJECT SYSTAB P P* $ P* SYSTEM STACK . P* D $ PSTKEND EQU * END OF SYSTEM STACK N P RES 68 v 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
0x4115d8…41176c Dummy {f00=0x0147, f01=0x407a, f02=» P P* P* IDLE LOOP P* . P 8 PLOOP RB * @ P R P Z P b P END j@ v 68 v 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
0x41176c…411900 Dummy {f00=0x0147, 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
0x411900…411a94 (1, 1119) Dummy {f00=0x0147, f01=0x018e, f02=»UEST ERROR | P* ( PINCLEN EQU * REQUESTED LENGTH ERROR P LDKL A1,/8008 H PDENDIO EQU * ^ P ABL END:IO r P* P* P EJECT DRCD02 P* P* & P********************************* & P*
0x411a94…411c28 Dummy {f00=0x0147, f01=0x018e, f02=» l P* P* PFORMAT EQU * ( P LDKL A1,SEEKCO SEEK OPERATION CODE 0 , P ST A1,DWTSEK,A6 TO SEEK OPERATION AREA P CF A5,SEEKZ CYLINDER 0 P RF FOR:50 PFOR:10 EQU * P CF A5,SEEK PFOR:50 EQU * P MLK 3 P
0x411c28…411dbc Dummy {f00=0x0147, f01=0x0190, f02=» P* P EJECT DRCD02 P* $ P* . PFOR:60 EQU * 8 ( P LDK A1,/EF RESET DEVICE NUMBER BIT L P ANS A1,DWTWHA,A4 x P LD A1,ECBCW1,A8 * P RF(Z) FOR:70 NO BAD TRACK FLAG CHECK " P CF A5,CIO READ PART OF SECTOR & P SRL A1,8
0x411dbc…411f50 Dummy {f00=0x0147, f01=0x0190, f02=» P ADK A4,4 P LDR A2,A4 P SUR A2,A6 ( P SRL A2,2 /4 : P MUK SEPRTR N P LC A1,DWTOR,A6 INDEX b P ANK A1,3 P SLL A1,1 P ADR A1,A6 P CW A2,DWTSPC,A1 P RB(L) FOR:60 NEXT HEAD P LDKL A1,/800 INTERUPT BIT
0x411f50…4120e4 Dummy {f00=0x0147, f01=0x0190, f02=» SUKL A1,SEEKCO+MAXCYL SEEK ORDER CODE + MAX CYLINDER NUMBER P RB(NZ) FOR:10 NEXT CYLINDER D P LDKL A2,MAXCYL-1 821 h P IFT NUNITS=1 $ P ST A2,DWTCYL,A6 CYLINDER NUMBER P XIF P IFT NUNITS=2 P CF A15,INXDWT P LD A3,DWTSM
0x4120e4…412278 Dummy {f00=0x0147, f01=0x0190, f02=» $ P ST A2,DWTCYL,A4 CYLINDER NUMBER P XIF , P RB DENDIO PERFORM ENDIO 8 P EJECT DRCD02 X * n * x 0 ,******************************************** 0 ,* * 0 ,* INPUT ECB-PARAMETER CHECK
0x412278…41240c Dummy {f00=0x0147, f01=0x0190, f02=»* PCD:000 EQU * P LDK A7,5 INDICATE WRITE PCD:010 EQU * > P LC A4,DWTOR,A6 R P ANK A4,3 j P SLL A4,2 *4 | P ADR A4,A6 & P ML 2,ECBCW1,A8 GET SECTOR NUMBER & P DS DWTSMX,A4 CHECK SECTOR NUMBER P RB(NN) DUERR
0x41240c…4125a0 Dummy {f00=0x0147, f01=0x0190, f02=»E BY 256 $ ANK A1,/FF REST AFTER DIVISION $ P RB(NZ) INCLEN INCORRECT REQUEST 8 4 / ST A2,DWTLOS,A6 SAVE NUMBER OF LOGICAL SECTORS ` ( # DA ECBCW1,A8 LOGICAL SECTOR NUMBER P DS DWTSMX,A4 $ P RB(P) INCLEN INCORRECT REQUEST *
0x4125a0…412734 (1, 1120) Opaque[0x194]
0x412734…4128c8 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2900, f03=0x0000}
0x412734…4128c8 IdxSect {
0x412734…4128c8 f00 = 0x0148 // 0x412734 @0x0
0x412734…4128c8 f01 = 0x0004 // 0x412736 @0x2
0x412734…4128c8 gno = [ // 0x412738 @0x4
0x412734…4128c8 [0x00]: C0x0148.0x0.0
0x412734…4128c8 [0x01]: C0x0148.0x1.0
0x412734…4128c8 ]
0x412734…4128c8 }
0x4128c8…412a5c Dummy {f00=0x0148, 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*
0x412a5c…412bf0 Dummy {f00=0x0148, 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*
0x412bf0…412d84 Dummy {f00=0x0148, 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
0x412d84…412f18 Dummy {f00=0x0148, 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**********
0x412f18…4130ac Dummy {f00=0x0148, f01=0x0190, f02=»1. l P* PMMUPAG EQU 0 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
0x4130ac…413240 Dummy {f00=0x0148, 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
0x413240…4133d4 (1, 1121) Dummy {f00=0x0148, 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
0x4133d4…413568 Dummy {f00=0x0148, 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
0x413568…4136fc Dummy {f00=0x0148, 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
0x4136fc…413890 Dummy {f00=0x0148, 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
0x413890…413a24 Dummy {f00=0x0148, 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*
0x413a24…413bb8 Dummy {f00=0x0148, f01=0x2008, f02=»
0x413bb8…413d4c Dummy {f00=0x0148, 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
0x413d4c…413ee0 Dummy {f00=0x0148, 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
0x413ee0…414074 (1, 1122) Opaque[0x194]
0x414074…414208 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2910, f03=0x0000}
0x414074…414208 IdxSect {
0x414074…414208 f00 = 0x0148 // 0x414074 @0x0
0x414074…414208 f01 = 0x0002 // 0x414076 @0x2
0x414074…414208 gno = [ // 0x414078 @0x4
0x414074…414208 [0x00]: C0x0148.0x2.0
0x414074…414208 ]
0x414074…414208 }
0x414208…41439c Dummy {f00=0x0148, f01=0x40e8, 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* P* P* P* PTCLASS DATA TCLASE-* PTCLASE EQU * P END @
0x41439c…414530 Dummy {f00=0x0148, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x414530…4146c4 Dummy {f00=0x0148, f01=0x2008, f02=»
0x4146c4…414858 Dummy {f00=0x0148, 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
0x414858…4149ec Dummy {f00=0x0148, 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
0x4149ec…414b80 Dummy {f00=0x0148, 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
0x414b80…414d14 (1, 1123) Opaque[0x194]
0x414d14…414ea8 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2918, f03=0x0000}
0x414d14…414ea8 IdxSect {
0x414d14…414ea8 f00 = 0x0148 // 0x414d14 @0x0
0x414d14…414ea8 f01 = 0x0008 // 0x414d16 @0x2
0x414d14…414ea8 gno = [ // 0x414d18 @0x4
0x414d14…414ea8 [0x00]: C0x0148.0x3.0
0x414d14…414ea8 [0x01]: C0x0149.0x0.0
0x414d14…414ea8 [0x02]: C0x0149.0x1.0
0x414d14…414ea8 [0x03]: C0x0149.0x2.0
0x414d14…414ea8 ]
0x414d14…414ea8 }
0x414ea8…41503c Dummy {f00=0x0148, 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****************
0x41503c…4151d0 Dummy {f00=0x0148, 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.
0x4151d0…415364 Dummy {f00=0x0148, 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
0x415364…4154f8 Dummy {f00=0x0148, 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
0x4154f8…41568c Dummy {f00=0x0148, 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
0x41568c…415820 Dummy {f00=0x0148, 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
0x415820…4159b4 (1, 1124) Dummy {f00=0x0149, 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
0x4159b4…415b48 Dummy {f00=0x0149, 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
0x415b48…415cdc Dummy {f00=0x0149, f01=0x0190, f02=» CPU852 EQU 0. t P* PCPU852 EQU 1 P* 4 * > . ** A PROGRAM VERSION USING TOSS DISC PAGING H * &* IS OBTAINED BY SETTING DSKPAG EQU 1. z * PDSKPAG EQU 0 * P* @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOV
0x415cdc…415e70 Dummy {f00=0x0149, 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
0x415e70…416004 Dummy {f00=0x0149, 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*
0x416004…416198 Dummy {f00=0x0149, 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
0x416198…41632c Dummy {f00=0x0149, 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*
0x41632c…4164c0 Dummy {f00=0x0149, 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
0x4164c0…416654 (1, 1125) Dummy {f00=0x0149, 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
0x416654…4167e8 Dummy {f00=0x0149, 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*
0x4167e8…41697c Dummy {f00=0x0149, 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
0x41697c…416b10 Dummy {f00=0x0149, 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
0x416b10…416ca4 Dummy {f00=0x0149, 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
0x416ca4…416e38 Dummy {f00=0x0149, 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
0x416e38…416fcc Dummy {f00=0x0149, 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
0x416fcc…417160 Dummy {f00=0x0149, 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
0x417160…4172f4 (1, 1126) Dummy {f00=0x0149, 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
0x4172f4…417488 Dummy {f00=0x0149, 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
0x417488…41761c Dummy {f00=0x0149, 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
0x41761c…4177b0 Dummy {f00=0x0149, 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
0x4177b0…417944 Dummy {f00=0x0149, 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
0x417944…417ad8 Dummy {f00=0x0149, 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
0x417ad8…417c6c Dummy {f00=0x0149, f01=0x0190, f02=» 2 P* * T 2 P* * T : 2 P* ALOCSG * T p 2 P* ====== * T 2 P*
0x417c6c…417e00 Dummy {f00=0x0149, f01=0x0190, f02=» * T ~ 2 P********************************************* U $ P* U Z P* U d PALOCSG EQU * U n 0 P ST A2,TNBRSG+STKEND SAVE NUMBER OF SEGMENTS U 8 P CM SEGCNT+STKEND RESET NO OF CORE RESIDENT SEGMENTS U * P ST A3,APLPSZ,A1 SAVE
0x417e00…417f94 (1, 1127) Opaque[0x194]
0x417f94…418128 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2938, f03=0x0000}
0x417f94…418128 IdxSect {
0x417f94…418128 f00 = 0x0149 // 0x417f94 @0x0
0x417f94…418128 f01 = 0x0006 // 0x417f96 @0x2
0x417f94…418128 gno = [ // 0x417f98 @0x4
0x417f94…418128 [0x00]: C0x0149.0x3.0
0x417f94…418128 [0x01]: C0x014a.0x0.0
0x417f94…418128 [0x02]: C0x014a.0x1.0
0x417f94…418128 ]
0x417f94…418128 }
0x418128…4182bc Dummy {f00=0x0149, 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*
0x4182bc…418450 Dummy {f00=0x0149, 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
0x418450…4185e4 Dummy {f00=0x0149, 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
0x4185e4…418778 Dummy {f00=0x0149, 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**
0x418778…41890c Dummy {f00=0x0149, f01=0x0190, f02=»*** j P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P P* PCPU852 EQU 1 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIME
0x41890c…418aa0 Dummy {f00=0x0149, 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
0x418aa0…418c34 (1, 1128) Dummy {f00=0x014a, 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
0x418c34…418dc8 Dummy {f00=0x014a, 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
0x418dc8…418f5c Dummy {f00=0x014a, 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
0x418f5c…4190f0 Dummy {f00=0x014a, 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
0x4190f0…419284 Dummy {f00=0x014a, 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*
0x419284…419418 Dummy {f00=0x014a, 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
0x419418…4195ac Dummy {f00=0x014a, 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
0x4195ac…419740 Dummy {f00=0x014a, 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*
0x419740…4198d4 (1, 1129) Dummy {f00=0x014a, 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
0x4198d4…419a68 Dummy {f00=0x014a, f01=0x0190, f02=»A f p P* g $ P LD A4,SCTMXS GET MXSTAB ADDRESS g " P ADK A4,2 MONITOR DISC ADDRESS g < P XRR A1,A1 RESET REG. A1 g b * P LDR* A2,A6 GET MONITOR EXTENT ADDRESS g ( P DAR* A4 AND RELOCATE EXTENT ADDRESS g * P LDR A11,A2 GET LEAST SIGNIFICANT PART g *
0x419a68…419bfc Dummy {f00=0x014a, f01=0x0190, f02=»S ADDRESS g z " P STR A1,A6 AND SAVE IN MXSTAB h P* h 8 * P ADK A5,10 SKIP PRECCEDING FIVE WORDS h B : P ST A5,LLDADR+STKEND SAVE AS PGM LOAD ADDR. (LOGICAL) h p $ P LDR A8,A5 SAVE RELOCATION BASE h 0 P ADS A5,2,A6 RELOCATE PROGRAM START ADDRESS h
0x419bfc…419d90 Dummy {f00=0x014a, f01=0x0190, f02=»BLE h l 6 P ST A3,FSTSEC+STKEND RESET FIRST SECTOR INDICATOR i PMSX50 EQU * i F " P STR A7,A2 STORE PAGE ADDRESS i Z $ P ADKL A7,/400 NEXT PAGE ADDRESS i P ADK A2,2 NEXT MMU ENTRY i & P ADK A3,1 INCREMENT ENTRY COUNTER i ( P CWK A3,16 ALL ENTRIES
0x419d90…419f24 Dummy {f00=0x014a, 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
0x419f24…41a0b8 Dummy {f00=0x014a, 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
0x41a0b8…41a24c Dummy {f00=0x014a, 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
0x41a24c…41a3e0 Dummy {f00=0x014a, 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
0x41a3e0…41a574 (1, 1130) Opaque[0x194]
0x41a574…41a708 # DirEnt {nam=»TIOADM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2950, f03=0x0000}
0x41a574…41a708 IdxSect {
0x41a574…41a708 f00 = 0x014a // 0x41a574 @0x0
0x41a574…41a708 f01 = 0x0008 // 0x41a576 @0x2
0x41a574…41a708 gno = [ // 0x41a578 @0x4
0x41a574…41a708 [0x00]: C0x014a.0x2.0
0x41a574…41a708 [0x01]: C0x014a.0x3.0
0x41a574…41a708 [0x02]: C0x014b.0x0.0
0x41a574…41a708 [0x03]: C0x014b.0x1.0
0x41a574…41a708 ]
0x41a574…41a708 }
0x41a708…41a89c Dummy {f00=0x014a, f01=0x018e, f02=» 2 P IDENT TIOADM REL 11.0 81-02-10 870105041100 P : @ P =1, CLOSE DISCARD EXECUTES CLOSE LOCK IF WRONG OPEN MODE B P REL 11.0 81-01-26 P* 4 P*********************************************** P* . P* TIOADM TOSS ABRIDGED
0x41a89c…41aa30 Dummy {f00=0x014a, f01=0x0190, f02=» P* P* INPUT : A6 = FDB ADDRESS P* A8 = ECB ADDRESS 2 P* A14 = STACK BASE V P* z $ P* OUTPUT: A2=DISPATCH ADDRESS P* P EJECT TIOADM P* P* P**************** P* ENTRY *
0x41aa30…41abc4 Dummy {f00=0x014a, f01=0x018e, f02=» P**************** P* EXTERNALS * P**************** 8 P* P P EXTRN DWTOR Z P EXTRN DWTTAB n P EXTRN FPB:BF BLOCK FACTOR P EXTRN FPB:BO TOSS OPTION P EXTRN FPB:EL ENLARGE FACTOR P EXTRN DISIOE P EXTRN
0x41abc4…41ad58 Dummy {f00=0x014a, f01=0x0190, f02=» n P EXTRN FPB:RL RECORD LENGTH " P EXTRN FDBEXC EXCLUSIVE ACCESS , P EXTRN FDBRLE RECORD LENGTH R P EXTRN FDBOMD OPEN MODE v " P EXTRN DMACTI ACTIVATE DM TASK & P EXTRN DMACTD ACTIVATE DM TASK #D P EXTRN FDBSTA P EXTRN FNDFD
0x41ad58…41aeec Dummy {f00=0x014a, f01=0x018e, f02=» * " P* CONDITIONAL ASSEMBLY * " P* * > " P***************************** d P* P* ( P* A VERSION INCLUDING OPENEN MODES , P* EXTEND AND OUTPUT AND CLOSE DISCARD ( P* IS OBTAINE
0x41aeec…41b080 Dummy {f00=0x014a, f01=0x0190, f02=» P* P* " P****************************** " P* * B " P* CONSTANTS * h " P* * " P****************************** P* P* ( PLFILEN EQU 256 L-FILE RECO
0x41b080…41b214 (1, 1131) Dummy {f00=0x014a, f01=0x0190, f02=»ER ALLOWED ORDERS AND ORDER OPTIONS P* , PORDTAB EQU * 6 ( P DATA /821 OPEN INPUT UNPROTECTED J & P DATA /921 OPEN INPUT PROTECTED v & P DATA /A21 OPEN INPUT EXCLUSIVE . P DATA /3921 OPEN INPUT/OUTPUT PROTECTED . P DATA /3A21
0x41b214…41b3a8 Dummy {f00=0x014a, f01=0x0190, f02=» ` ( P DATA /5221 OPEN EXTEND EXCLUSIVE 4 P DATA /1221 OPEN OUTPUT SEQUENTIAL EXCLUSIVE 4 P XIF l PORDOPE EQU *-ORDTAB x P IFT CRDEEX=1 P DATA /222 CLOSE DISCARD P XIF PORDCLO EQU *-ORDTAB P DATA /022 CLOSE LO
0x41b3a8…41b53c Dummy {f00=0x014a, f01=0x0190, f02=» P DATA /107 REWRITE P DATA /108 DELETE P DATA /106 WRITE RANDOM 8 PORDRED EQU *-ORDTAB X P DATA /102 READ DIRECT t ( PORDLGT EQU *-ORDTAB LENGTH OF TABLE P* P EJECT TIOADM P* P* P********** P*
0x41b53c…41b6d0 Dummy {f00=0x014a, f01=0x0190, f02=» P* POPEMOD EQU * P DATA /1010 IN UNPRO,IN PROT " $ P DATA /101F INP EXC,IN/OUT PROT F " P DATA /1F09 IN/OUT EXC,OUT RAN n " P DATA /0101 EXTEND EXC,OUT SEQ P* P EJECT TIOADM P* P* P* INPUT : A6 = FDB ADDRE
0x41b6d0…41b864 Dummy {f00=0x014a, f01=0x0190, f02=»TAB,A6 USER TTAB ADDRESS P LDR* A2,A8 FILE CODE P ANK A2,/FF > P LDK A5,0 R P CF A14,FNDFDB d P LDK A2,0 z P SCR A2,A4 RESET STATUS ( P LD A7,DWTOR,A6 GET ORDER AND OPTION P LDK A2,/20 ORDER BIT MASK " P LDK A3,ORDLGT
0x41b864…41b9f8 Dummy {f00=0x014a, f01=0x018e, f02=»1 BIT MASK , P CW A7,ORDTAB,A3 CHECK IF ORDER ALLOWED $ P RB(NE) TIOA20 NO MATCH TRY NEXT B . P SC A3,DWTOR+1,A6 SAVE ORDER DISPLACEMENT j P SUK A3,ORDOPE P RF(N) TAOPEN OPEN P* P EJECT TIOADM P* P* P CWK A6,
0x41b9f8…41bb8c Dummy {f00=0x014a, f01=0x0190, f02=» l P CW A1,DWTTAB,A6 ( P RF(NE) ER:IRQ ERROR: NOT SAME USER " PTIOA30 EQU * N P IFT CRDEEX=1 b P SUK A3,ORDCLO-ORDOPE x P RF(N) TACLOD CLOSE DISCARD P RF(Z) TACLOS CLOSE LOCK P XIF P IFT CRDEEX=0 P SUK A3,ORDC
0x41bb8c…41bd20 Dummy {f00=0x014a, f01=0x018e, f02=»3,ORDSQW-ORDRFP " P RF(Z) TIA100 WRITE SEQUENTIAL ( P LD A4,ECBCW1,A8 CHECK RECORD NUMBER > P OR A4,ECBCW2,A8 j P RF(NP) ER:IRQ ILLEGAL P SUK A3,ORDRED-ORDSQW " P RF(NZ) TIA100 NOT READ DIRECT ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH
0x41bd20…41beb4 (1, 1132) Dummy {f00=0x014b, f01=0x0190, f02=» P* PTIA100 EQU * P LC A3,FDBOMD,A6 OPEN MODE & P ANK A3,/7F H P SRL A3,1 BYTE MODE P LC A3,OPEMOD,A3 x P ANR A2,A3 , P RF(Z) ER:IRQ ERROR: INCORRECT OPEN MODE $ P LDKL A2,ADMTSK DISPATCH ADDRESS P ABL DMACTI AC
0x41beb4…41c048 Dummy {f00=0x014b, f01=0x0190, f02=» P* PTAOPEN EQU * P CWK A6,FDBSTA & " P RF(NE) ER:IRQ FILE CODE USED < P LD A1,ECBBA,A8 FPB ADDRESS b P ADK A1,8 P IFT MMUPAG=0 P LC A4,FPB:BO,A1 TOSS OPTION P ANK A4,/FF P SUK A4,1 $ P RF(P) ER:IRQ OP
0x41c048…41c1dc Dummy {f00=0x014b, f01=0x0190, f02=» ANK A4,/FF P SUK A4,1 $ P RF(P) ER:IRQ OPTION NOT 0 OR 1 & ( P EL A4,FPB:FO-1,A1 FILE ORGANISATION N P XIF z P ANK A4,/FF P SUK A4,3 P RF(P) ER:IRQ ERROR P ADK A4,2 P RF(Z) ER:IRQ ERROR P IFT CRDEEX=1
0x41c1dc…41c370 Dummy {f00=0x014b, f01=0x0190, f02=»RDOP1 $ P RF(N) TAOPE2 OPEN EXISTING FILE P IFT MMUPAG=0 6 " P AD A2,FPB:RL,A1 RECORD LENGTH L P XIF r P IFT MMUPAG+CRDEEX=2 ~ P EL A3,FPB:RL,A1 P SUK A4,1 FILE ORGANIZATION P RF(NZ) TAOP20 NOT L-FILE P CWK A3,LFILEN L
0x41c370…41c504 Dummy {f00=0x014b, f01=0x0190, f02=» P RF(NP) ER:IRQ NOT ALLOWED P ANK A2,/FF & ( P RF(NZ) ER:IRQ ERROR:ILLEGAL LENGTH : P IFT MMUPAG=0 f P SUK A4,1 FILE ORGANIZATION | P RF(NZ) TAOP20 NOT L-FILE " P LDKL A3,LFILEN L-FILE LENGTH " P CW A3,FPB:RL,A1 RECORD LENGTH
0x41c504…41c698 Dummy {f00=0x014b, f01=0x0190, f02=»PB:BF,A1 BLOCK FACTOR P SRL A2,8 P XIF 0 P IFT CRDEEX=1 < P SUK A2,1 R P RF(Z) TARFP ACTIVATE #D d $ P RF ER:IRQ ILLEGAL BLOCK FACTOR P XIF P* P EJECT TIOADM P* P* P********** P* TAOPE2 *
0x41c698…41c82c Dummy {f00=0x014b, f01=0x0190, f02=»TOR t P XIF P IFT MMUPAG=1 $ P EL A2,FPB:EL,A1 ENLARGE FACTOR . P XIF V P RF(Z) TARFP ACTIVATE #D b PER:IRQ EQU * ILLEGAL REQUEST P ABL DISIOE P* P* P EJECT TIOADM P* P* P**********
0x41c82c…41c9c0 Dummy {f00=0x014b, f01=0x0190, f02=»* A4 = FILE CODE REFERENCE ADDRESS P* , P* 6 P IFT CRDEEX=1 @ PTACLOD EQU * CLOSE DISCARD V P ADK A1,0 x $ P RF(NZ) TACLOS OPENED EXCLUSIVE ( P LDKL A1,/8000 RC: REQUEST ERROR =1 P ST A1,ECBRC,A8 =1 ( P LDK A1,ORDCLO
0x41c9c0…41cb54 (1, 1133) Dummy {f00=0x014b, f01=0x4092, f02=»,A4 FC ENTRY PTARFP EQU * $ P LDKL A2,ADMTSK DISPATCH ADDRESS ( $ P ABL DMACTD ACTIVATE DM TASK #D P P* x P END @
0x41cb54…41cce8 Dummy {f00=0x014b, f01=0x2008, f02=» NT TIOADM PRR 11.0 CHLO @ * P 2 P* : 2 P********************************************** D P* z " P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRFD02 = DRIVER FOR FLEXIBLE DISK P* P* P* P* P
0x41cce8…41ce7c Dummy {f00=0x014b, f01=0x0190, f02=»FRST EQU * P LDKL A2,FDBMEC P SUKL A2,FDBECB LENGTH * POPF100 EQU * H P SUK A2,2 P RF(N) OPF110 OK n P LDR A7,A11 P ADR A7,A2 P CM FDBECB,A7 P RB OPF100 P EJECT P* P* BUILD FWT FDB PART
0x41ce7c…41d010 Dummy {f00=0x014b, f01=0x0190, f02=»RLE,A11 RECORD LENGTH P LC A3,FPB:BF,A12 ! " P SC A3,FDBBLF,A11 BLOCK FACTOR ! 8 P LD A3,NROFIX NR OF INDEXES ! ^ ( P SC A3,FDBNIF,A11 NR OF INDEX FILES ! P LC A3,FPB:FR+1,A12 ! P SC A3,FDBLRN,A11 ! P LD A3,FPB:FR+2,A12 ! $ P ST A3,F
0x41d010…41d1a4 Dummy {f00=0x014b, f01=0x0190, f02=»3 ! ( P ST A3,FDBMIA,A11 MASTER INDEX ADDR " " P RF(Z) OPF120 NO MASTER INDEX " 6 P LD A3,FPB:KA,A12 " P CW A3,OPEKAD,A13 " v P RB(NE) OPEER4 WRONG KEY " P ST A3,FDBKA,A11 KEY ADDR " POPF120 EQU * " P LC A3,FPB:BO,A12 " P SLL A3,
0x41d1a4…41d338 Dummy {f00=0x014b, f01=0x0190, f02=»FIRST EXTENT VOLUME FC " ~ P LDKL A6,-1 # POPF140 EQU * # 2 P ADK A6,1 # F P CC A3,DFTAB,A6 # X P RB(NE) OPF140 NOT THIS DISC # p $ P LC A3,DMTIDP,A6 REL DM TASK ID # $ P SC A3,FDBDMI,A11 MAIN SDMTSK ID # P* # 4 P* CALCULATE MAX FDBRRO AND
0x41d338…41d4cc Dummy {f00=0x014b, f01=0x0190, f02=» , P SC A2,FDBBLZ,A11 BLOCK SIZE IN SECTORS $ P ST A11,FDBADF,A11 $ 4 P* $ P P* CALCULATE ENLARGE FACTOR $ Z P* $ | $ P LDR A4,A2 BLOCK SIZE IN SECTORS $ P CF A14,ENLFAC $ P RB(O) OPEER3 OVERFLOW $ * P ST A3,FDBENL,A11 SAVE ENLARGE FACTOR
0x41d4cc…41d660 Dummy {f00=0x014b, f01=0x0190, f02=»A11 OPEN MODE $ P LDR A2,A3 % P SLL A2,6 % ( . P RF(NN) OPF150 EXCLUSIVE ACCESS NOT WANTED % : " P LD A1,DWTTAB,A10 TTAB ADDRESS % l POPF150 EQU * % 0 P ST A1,FDBEXC,A11 SET EXCLUSIVE ACCESS USER % P ANK A3,/FF % P CWK A3,SDMOOR % 2 P RF(
0x41d660…41d7f4 (1, 1134) Opaque[0x194]
0x41d7f4…41d988 # DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2970, f03=0x0000}
0x41d7f4…41d988 IdxSect {
0x41d7f4…41d988 f00 = 0x014b // 0x41d7f4 @0x0
0x41d7f4…41d988 f01 = 0x0016 // 0x41d7f6 @0x2
0x41d7f4…41d988 gno = [ // 0x41d7f8 @0x4
0x41d7f4…41d988 [0x00]: C0x014b.0x2.0
0x41d7f4…41d988 [0x01]: C0x014b.0x3.0
0x41d7f4…41d988 [0x02]: C0x014c.0x0.0
0x41d7f4…41d988 [0x03]: C0x014c.0x1.0
0x41d7f4…41d988 [0x04]: C0x014c.0x2.0
0x41d7f4…41d988 [0x05]: C0x014c.0x3.0
0x41d7f4…41d988 [0x06]: C0x014d.0x0.0
0x41d7f4…41d988 [0x07]: C0x014d.0x1.0
0x41d7f4…41d988 [0x08]: C0x014d.0x2.0
0x41d7f4…41d988 [0x09]: C0x014d.0x3.0
0x41d7f4…41d988 [0x0a]: C0x014e.0x0.0
0x41d7f4…41d988 ]
0x41d7f4…41d988 }
0x41d988…41db1c Dummy {f00=0x014b, f01=0x0190, f02=» 0 P IDENT TIODM REL 11.0 81-02-23 870105041100 P 8 P =5, REL 11.0 81-02-19 @ & P =5, WRONG TASK NBR WHEN COMMIT ` P =4, REL 11.0 81-02-18 0 P =4, ASS.ERR IN FINDTT WHEN TTAB>256 BYTES P =3, REL 11.0 81-02-02 , P =3, RDS
0x41db1c…41dcb0 Dummy {f00=0x014b, f01=0x0190, f02=» P =1, COMMIT ERROR FOR EDM 8 P**************************************************** ( P* d $ P* PHILIPS TERMINAL SYSTEM PTS n P* 0 P* TIODM = DATA MANAGEMENT ACTIVATION PART P* 4 P* DMTEND = DATA MANAGEMENT COMMIT (/ROL
0x41dcb0…41de44 Dummy {f00=0x014b, f01=0x0190, f02=» THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO . P* AND THE DWTADR IN FDB FOR CURRENT FILE D P* v H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR $ P* FROM A DISC MUST BE ACCESSED P* < P* ENTRY
0x41de44…41dfd8 Dummy {f00=0x014b, f01=0x0190, f02=»D WITH W BIT = 0 v P* A8 = ECB ADDRESS P* < P* F P* P 6 P* IN ALL DM MODULES FDB WILL BE THE SAME AS FWT Z P* P EJECT P* P************** P* ENTRIES * P************** P* & P ENTRY
0x41dfd8…41e16c Dummy {f00=0x014b, f01=0x0190, f02=»DBOMD,FDBENL,FDBEXC,FDBECB,FDBSNR . P ENTRY FDBRRO,FDBRLE,FDBBLF,FDBTNR,FDBLRN * 4 P ENTRY FDBNIF,FDBEAL,FDBCRL,FDBKA,FDBMIA,FDBADF & P ENTRY FDBAI1,CRNTID,CRNCDF,CRNSTA P ENTRY FDBBLZ BLOCK SIZE P ENTRY FDBDMI DMTASK IDENT P ENTRY
0x41e16c…41e300 Dummy {f00=0x014b, f01=0x018e, f02=»FDBSTA,DWDM01 P ENTRY REQER2 2 P ENTRY RETRIE,EOMERR,NOKEY,NXTKYS,EOFRC,NODERR , , P ENTRY PROT,KEYERR,PROERR,REQERR,LGTERR b P ENTRY EOFERR,EDMERR P ENTRY TTABD,TTABLN,TABEND 0 P ENTRY DMXACD EXIT TASK AND ACTIVATE TASK #D P ENT
0x41e300…41e494 (1, 1135) Dummy {f00=0x014b, f01=0x0190, f02=» . P ENTRY ENLFAC,TOTSIZ,RTNA14,SETCRO,CONENL P ENTRY COSZEN,SIZDIF 6 & P ENTRY SDMSTS,SDMTTD,SDMBF1,SDMBF2 R P ENTRY RECBFZ | P EJECT TIODM P* P*************** P* EXTERNALS * P*************** P* P*
0x41e494…41e628 Dummy {f00=0x014b, f01=0x0190, f02=» ACTOT P EXTRN EXIT P EXTRN PRUN " P EXTRN DFTAB 6 P EXTRN DMTIDP J P EXTRN DMTIDS ` P EXTRN ECBCW v P EXTRN FWTVOL P EXTRN HALT P EXTRN TIOSDM P EXTRN TIOADM P EXTRN TIOEDM P EXTRN TDISP
0x41e628…41e7bc Dummy {f00=0x014b, f01=0x0190, f02=»O P EXTRN ACTDIS P EXTRN DFTABL P EXTRN FNDTID 6 P EXTRN MPYMOD,DIVMOD,ADDMOD L & P EXTRN FPB:EL,FPB:S1,FPB:BF,FPB:RL p P EXTRN DV3RST P EXTRN CRRBL P EXTRN LKMRQE & P EXTRN TIOECR EDM COMMIT ROLLBACK : P EXT
0x41e7bc…41e950 Dummy {f00=0x014b, f01=0x0190, f02=» * z P************************ P* * P* 4 P* > , P* IF ADM HANDLING WANTED PUT X:A EQU 1 H P* x PX:A EQU 0 PADM EQU X:A P* 0 P* IF SDM HANDLING NOT WANTED PUT X:B EQU 0 P* PX:B EQU 0 PSDM EQ
0x41e950…41eae4 Dummy {f00=0x014b, f01=0x0190, f02=» P* P* P EJECT TIODM P* . P* 8 , P* NUMBER OF DM TASKS IS DEFINED BY X:B. B 0 P* ONLY VALUES BETWEEN 2 AND 6 ARE PERMITTED. r * P* ALL OTHER VALUES WILL GIVE 2 TASKS. P* PX:D EQU 2 PNTASKS EQU X:D . P*
0x41eae4…41ec78 Dummy {f00=0x014b, f01=0x0190, f02=» X:C = INDEX RECORD BUFFER SIZE IN WORDS P* 4 PX:E EQU 0 > PRECBFZ EQU X:E P P* f H P* AN ADM VERSION WITHOUT OPEN OUTPUT, OPEN EXTEND AND CLOSE DISCARD p & P* IS OBTAINED BY SETTING X:F EQU 0 P* PX:F EQU 0 PCRDEEX
0x41ec78…41ee0c Dummy {f00=0x014b, f01=0x0190, f02=» * P******************* P* , P IFT ADM+CRDEEX=2 6 PADMCDE EQU 1 P P XIF d P IFF ADM+CRDEEX=2 p PADMCDE EQU 0 P XIF P* IF ADM AND SDM P IFT ADM+SDM=2 PADMSDM EQU 1 P XIF P IFF ADM+SDM=2
0x41ee0c…41efa0 Dummy {f00=0x014b, f01=0x0190, f02=»DM=2 PADMEDM EQU 0 P XIF P* ADM000=1 IF NOT EDM OR SDM , P IFT SDM+EDM=0 P PADM000 EQU 1 f P XIF z P IFF SDM+EDM=0 PADM000 EQU 0 P XIF P* SDM000=1 IF NOT ADM OR EDM P IFT ADM+EDM=0 PSDM000 EQU 1
0x41efa0…41f134 (1, 1136) Dummy {f00=0x014c, f01=0x0190, f02=» 1 P XIF P IFF ADM+SDM=0 PEDM000 EQU 0 , P XIF @ P* L P EJECT V P* d P* ERROR CODES n P* * PEOMERR EQU /A000 OUTSIDE MEDIUM LIMITS & PPROT EQU /0040 THIS DATA PROTECTED & PNODERR EQU /8800 NO EXPECTED DAT
0x41f134…41f2c8 Dummy {f00=0x014c, f01=0x0190, f02=» REQUEST ERROR x " PREQER2 EQU /FFFE REQUEST ERROR & PLGTERR EQU /0008 INCORRECT LENGTH < * PEDMERR EQU /8080 DATA MANAGEMENT ERROR f PEOFERR EQU /9000 END OF FILE P* P* MESSAGES P* " PRETRIE EQU /0100 DISC RETRIES $ PNO
0x41f2c8…41f45c Dummy {f00=0x014c, f01=0x0190, f02=»=/0000,16=/0400,16=/0800,16=/0C00 4 PMMTAB2 FORM 16=/1000,16=/1400,16=/1800,16=/1C00 * 4 PMMTAB3 FORM 16=/2000,16=/2400,16=/2800,16=/2C00 b 4 PMMTAB4 FORM 16=/3000,16=/3400,16=/3800,16=/3C00 P* P* CONSTANTS P* PSIZDIF EQU 10
0x41f45c…41f5f0 Dummy {f00=0x014c, f01=0x0190, f02=»S=6 PF EQU 0 PG EQU 0 PH EQU 0 , PI EQU 0 < P XIF L P IFT NTASKS=3 X PF EQU 1 n PG EQU 0 ~ PH EQU 0 PI EQU 0 P XIF P IFT NTASKS=4 PF EQU 1 PG EQU 1 PH EQU 0 PI EQU 0
0x41f5f0…41f784 Dummy {f00=0x014c, f01=0x018e, f02=» PF EQU 1 PG EQU 1 PH EQU 1 $ PI EQU 1 4 P XIF D P IFT MMUPAG=0 P PMMTABL EQU 32 f P XIF | P IFT MMUPAG=1 PMMTABL EQU 0 P XIF P EJECT P IFT ADM+SDM=0 PTTABST EQU * PTTABD EQU *
0x41f784…41f918 Dummy {f00=0x014c, f01=0x0190, f02=» PSDMBF2 EQU * P XIF P IFF ADM+SDM=0 ( P* > P*************************** H P* TTAB:S FOR DM TASKS * l P************************* P* PTTABST EQU * P MMTAB1 P MMTAB2 P MMTAB3 P MMTAB4
0x41f918…41faac Dummy {f00=0x014c, f01=0x0190, f02=» . P DATA 0 APPLICATION CONTROL BLOCK POINTER P 6 PTTABD EQU * > " P DATA 0 DISPATCHER QUEUE LINK R P DATA '#D' TASK ID x P DATA 49 TASK LEVEL P DATA 0 PENDING POINTER P DATA /C4C0 PSW P DATA 0 DISPATCH ADDRESS 0 P D
0x41faac…41fc40 Dummy {f00=0x014c, f01=0x0190, f02=»-TTABD P DATA 0,0 MASTER INDEX ENTRY PTTABDE EQU * 2 P RES STCRES TASK STACK F PSDMSTS EQU *-TTABDE-2 d PDMTTSB EQU *-2-TTABD PTTBBF1 EQU *-TTABD P RES RECBFZ BUFAR1 PTTBBF2 EQU *-TTABD P RES RECBFZ BUFAR2 PTT
0x41fc40…41fdd4 (1, 1137) Dummy {f00=0x014c, f01=0x0190, f02=» MMTAB1 P MMTAB2 P MMTAB3 P MMTAB4 0 P RORG *-MMTABL @ P DATA 0 CURRENT SEGMENT BASE V " P DATA 0 SEGMENT TABLE POINTER z " P DATA 0 SEGMENT BLOCK POINTER . P DATA 0 APPLICATION CONTROL BLOCK POINTER P PTTABE EQ
0x41fdd4…41ff68 Dummy {f00=0x014c, f01=0x018e, f02=» DATA /C4C0 PSW P DATA 0 DISPATCH ADDRESS 0 P DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7 8 P DATA 0,0,0,0,0,0,0 A8-A14 l $ P DATA TTABEE-* TERMINAL DEVICES P DATA 0,0 MASTER INDEX ENTRY PTTABEE EQU * P RES STCRES TASK STACK
0x41ff68…4200fc Dummy {f00=0x014c, f01=0x0190, f02=» P RORG *-MMTABL P DATA 0 CURRENT SEGMENT BASE " P DATA 0 SEGMENT TABLE POINTER > " P DATA 0 SEGMENT BLOCK POINTER d . P DATA 0 APPLICATION CONTROL BLOCK POINTER P PTTABF EQU * " P DATA 0 DISPATCHER QUEUE LINK P DATA '#F'
0x4200fc…420290 Dummy {f00=0x014c, f01=0x0190, f02=»A 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7 P DATA 0,0,0,0,0,0,0 A8-A14 0 $ P DATA TTABFE-* TERMINAL DEVICES R P DATA 0,0 MASTER INDEX ENTRY z PTTABFE EQU * P RES STCRES TASK STACK $ P RES RECBFZ+RECBFZ BUFAR1,BUFAR2 P IFT G=1 P
0x420290…420424 Dummy {f00=0x014c, f01=0x0190, f02=» DATA 0 SEGMENT TABLE POINTER " P DATA 0 SEGMENT BLOCK POINTER & . P DATA 0 APPLICATION CONTROL BLOCK POINTER L P ~ PTTABG EQU * " P DATA 0 DISPATCHER QUEUE LINK P DATA '#G' TASK ID P DATA 49 TASK LEVEL P DATA 0 PENDING PO
0x420424…4205b8 Dummy {f00=0x014c, f01=0x0190, f02=»0,0,0 A8-A14 $ P DATA TTABGE-* TERMINAL DEVICES P DATA 0,0 MASTER INDEX ENTRY < PTTABGE EQU * ` P RES STCRES TASK STACK t $ P RES RECBFZ+RECBFZ BUFAR1,BUFAR2 P IFT H=1 P EJECT P MMTAB1 P MMTAB2 P MMTAB3 P
0x4205b8…42074c Dummy {f00=0x014c, f01=0x0190, f02=»INTER x . P DATA 0 APPLICATION CONTROL BLOCK POINTER P @ PTTABH EQU * H " P DATA 0 DISPATCHER QUEUE LINK P DATA '#H' TASK ID P DATA 49 TASK LEVEL P DATA 0 PENDING POINTER P DATA /C4C0 PSW P DATA 0 DISPATCH ADDRESS
0x42074c…4208e0 Dummy {f00=0x014c, f01=0x018e, f02=»ATA 0,0 MASTER INDEX ENTRY PTTABHE EQU * " P RES STCRES TASK STACK 6 $ P RES RECBFZ+RECBFZ BUFAR1,BUFAR2 T P IFT I=1 | P EJECT P MMTAB1 P MMTAB2 P MMTAB3 P MMTAB4 P RORG *-MMTABL P DATA 0 CURRENT SEGMENT
0x4208e0…420a74 (1, 1138) Dummy {f00=0x014c, f01=0x0190, f02=» P PTTABI EQU * " P DATA 0 DISPATCHER QUEUE LINK P DATA '#I' TASK ID F P DATA 49 TASK LEVEL ` P DATA 0 PENDING POINTER | P DATA /C4C0 PSW P DATA 0 DISPATCH ADDRESS 0 P DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7 P
0x420a74…420c08 Dummy {f00=0x014c, f01=0x018e, f02=»TCRES TASK STACK $ P RES RECBFZ+RECBFZ BUFAR1,BUFAR2 P XIF @ P IFF ADM+SDM=0 L PTPART1 EQU TTABD-TTABST b PTABEND EQU *+TPART1 P XIF P EJECT P* P* FDB OFFSET DEFINITIONS P* PFDBSTA EQU * PDWDM01
0x420c08…420d9c Dummy {f00=0x014c, f01=0x018e, f02=» 4 PDWTPAB EQU *-DWDM01 PARAMETER BLOCK FOR EDM INI P DATA 0,0,0,0,0,0,0 < P IFT EDM000+MMUPAG=2 X PFDBMMU EQU * t P XIF P* FWT PART P DATA 0,0,0,0,0,0,0 P IFF ADM+SDM=0 P IFT MMUPAG=1 PFDBMMU EQU * P DAT
0x420d9c…420f30 Dummy {f00=0x014c, f01=0x018e, f02=» P DATA 0,0,0,0,0,0,0 ! P DATA 0,0,FDBSTA,0,0 ! $ P DATA 0,0,0,0,0 ! @ P XIF ! X P* ! d P EJECT ! n P* ! | P* ! P IFT MMUPAG=0 ! PSTART1 EQU 44 ! P XIF ! P IFT MMUPAG=1 ! PSTART1 EQU 62 ! P XIF ! PFDBMEC E
0x420f30…4210c4 Dummy {f00=0x014c, f01=0x0190, f02=» ! f & PFDBRLE EQU START1+18 RECORD LENGTH " ( PFDBENL EQU START1+20 ENLARGE FACTOR " 2 4 PFDBEXC EQU START1+22 EXCLUSIVE ACCESS INDICATOR " ^ & PFDBSNR EQU START1+24 SECTOR NUMBER " 0 PFDBRRO EQU START1+28 RELATIVE RECORD OFFSET " ( PFDBBLF EQU START1+30
0x4210c4…421258 Dummy {f00=0x014c, f01=0x0190, f02=»TART1+33 NR OF SECTORS IN BLOCK " & PFDBEAL EQU START1+34 EA LINK ROOT # ( & PFDBCRL EQU START1+36 CRN LINK ROOT # R 0 PFDBKA EQU START1+38 KEY ADDRESS IN DATA FILE # | 0 PFDBMIA EQU START1+40 ADDRESS OF MASTER INDEX # 2 PFDBADF EQU START1+42 ADDRESS OF DATA
0x421258…4213ec Dummy {f00=0x014c, f01=0x0190, f02=»BDMI EQU START1+53 RELATIVE DMTASK ID # $ PFDBMRO EQU START1+54 MAX FDBRRO $ . 2 PFDBKEY EQU START1+56 KEY AREA FOR INDEXED ACC $ V P* $ P EJECT TIODM $ P* $ & P* CRN BUFFER OFFSET DEFINITIONS $ P* $ PCRNTID EQU 2 TASK ID $ PCR
0x4213ec…421580 Dummy {f00=0x014c, f01=0x0190, f02=»**** $ x P* * % P* DRIVER ADDRESS BLOCK * % 0 P* * % T P**************************** % x P* % P* % ( P DATA 0 DATA MANAGEMENT DEVICE INDEX % ( PTIODM DATA TIODM0 ACTIVATION ADDRESS % P
0x421580…421714 (1, 1139) Dummy {f00=0x014c, f01=0x018e, f02=» A14,A6 STACK BASE % P ADK A7,0 & " P RF(NZ) TDM100 NOT READ STATUS & , P IFT ADM=1 & R & P LD A1,DWTTAB,A6 USER TTAB ADDRESS & d P LDR* A2,A8 & P ANK A2,/FF FILE CODE & P LDK A5,0 & ( P CF A14,FNDFDB GET FC ENTRY ADDRESS & P LCR A4,A4
0x421714…4218a8 Dummy {f00=0x014c, f01=0x0190, f02=» P RF(NN) RDST50 S-FILE ' P RF RDSTAT X,L-FILE ' " PRDST10 EQU * ' > P ANK A4,/FF ' R P RF(NZ) RDSTAT L,X-FILE ' f PRDST50 EQU * ' P XIF ' P IFT ADMEDM=1 ' P CWK A6,FDBSTA ' P RF(E) RDST10 OPEN ' P LD A1,FDBOMD,A6 ' P RF(
0x4218a8…421a3c Dummy {f00=0x014c, f01=0x0190, f02=» ' P IFT SDM=1 ( P LDR A11,A6 FDB ADDRESS ( P CF A14,CRNGET GET CURRENCY ( : P LC A4,CRNSTA,A2 ( ^ P XIF ( v PRDSTAT EQU * =3 ( P IFF ADM+SDM=0 ( P EJECT ( P* =3 ( P ANK A4,/FF ( " P ST A4,ECBCW,A8 RETURN STATUS ( P
0x421a3c…421bd0 Dummy {f00=0x014c, f01=0x0190, f02=»00 EQU * ( P IFF ADMSDM+ADMEDM=0 ) P CWK A6,FDBSTA ) , P RF(E) TDM200 OPEN ) B P LD A1,FDBOMD,A6 ) P RF(N) TDM300 L,X-FILE ) t P XIF ) PTDM150 EQU * ) P IFT SDM=1 ) P ABL TIOSDM S-FILE ) P XIF ) P IFT EDM=1 ) P ABL TIOEDM
0x421bd0…421d64 Dummy {f00=0x014c, f01=0x0190, f02=» LC A1,FPB:FO,A1 FILE ORGANISATION ) P XIF * * P IFF ADMSDM+ADMEDM=0 * 6 P IFT MMUPAG=1 * R P EL A1,FPB:FO+7,A1 * h P XIF * P IFF ADMSDM+ADMEDM=0 * P ANK A1,/FF * P SUK A1,1 * P RB(NP) TDM150 S-FILE,I-FILE * PTDM300 EQU * * P
0x421d64…421ef8 Dummy {f00=0x014c, f01=0x0190, f02=»TI * * P* DMACTD * + P********** + P* + 0 " P* ACTIVATE ADM AND/OR SDM TASK + : P* + ` & P* INPUT : A2 = DISPATCH ADDRESS + j P* A6 = FDB ADDRESS + P* + PDMACTI EQU * + P IFF ADM+SDM=0 + " P LC A7,FWTVOL,A6 GET FILE CO
0x421ef8…42208c Dummy {f00=0x014c, f01=0x018e, f02=»T FILE CODE + x * P LC A7,DMTIDP-1,A3 PRIMARY TASK NUMBER , P CF A15,FINDTT , B P RF(Z) TASHLT TTAB NOT FOUND , X P LD A1,TTB:SA,A5 , | P RF(Z) DMAC50 TASK FREE , & P LC A7,DMTIDS-1,A3 SECONDARY TASK , P ANK A7,/FF , P CF A15,FINDTT , P
0x42208c…422220 Dummy {f00=0x014c, f01=0x0190, f02=» , P EJECT TIODM - P* - P* - ( $ PDMACTD EQU * ACTIVATE DM TASK #D - 2 P LDKL A5,TTABD - Z P RB DMAC50 - p P XIF - P* - P* ABNORMAL SYSTEM ERROR - P* - PTASHLT EQU * - P LDK A1,/11 - P CF A15,HALT - P* - P
0x422220…4223b4 (1, 1140) Dummy {f00=0x014d, f01=0x018e, f02=»VATE DM TASK #D - r P* . P* . " $ P* INPUT: A8=DISPATCH ADDRESS . , P* A6=FDB ADDRESS . T P* . v 2 PDMXACD EQU * EXIT RUNNING TASK AND ACTIVATE #D . P IFF SDM+ADM=0 . P LD A5,PRUN RUNNING TASK ID . P INH . P CF A15,EXIT
0x4223b4…422548 Dummy {f00=0x014d, f01=0x0190, f02=» . P********** / P* DMTEND * / P********** / , P* / > P* COMMIT ENTRY / H P* ENTERED BY / ^ P* LKM / r P* DATA 16 / P* / P* / PDMTEND EQU * / P IFT EDM=0 / P IFT SDM=1 / & P LDR A6,A5 SAVE USER TTAB ADDRESS / P
0x422548…4226dc Dummy {f00=0x014d, f01=0x0190, f02=» PDMTE10 EQU * 0 P ADK A3,2 POINTER 0 P CWR* A5,A3 ENTRY IN TABLE 0 2 P RB(NE) DMTE10 TRY NEXT 0 T & P SU A3,SCTTCT RELATIVE TASK NUMBER 0 t P* SUK A3,2 =5 0 P SRL A3,1 0 P LDKL A14,STACK 0 P CF A14,RELPRO 0 PDMTE40 EQU * 0 P
0x4226dc…422870 Dummy {f00=0x014d, f01=0x0190, f02=»TERR EQU * REQUEST ERROR 0 P LDKL A7,REQER2 1 P RB DMTE40 RETURN 1 8 P* 1 R P DATA 0,0,0 1 PSTACK DATA 0 4 WORDS 1 p P* 1 P XIF 1 P IFT EDM=1 1 P LDR A6,A5 SAVE TTAB USER =1 1 2 P LDR A1,A5 GET BASE PARAMETER BLOCK ADDRESS =1 1
0x422870…422a04 Dummy {f00=0x014d, f01=0x0190, f02=»DER WORD 1 & P ABL(NZ) LKMRQE OTHER REQUEST BUSY 2 , P LDKL A2,/100 COMMIT ROLLBACK ACTIVATION 2 : P STR A2,A1 2 j P ST A7,PABORD,A1 ORDER WORD 2 | 6 P ST A8,PABBA,A1 TRANSACTION CONTROL BLOCK ADDRESS 2 P LDKL A7,'$E' EDM TASK ID 2 " P ABL TIOECR
0x422a04…422b98 Dummy {f00=0x014d, f01=0x0190, f02=»QTJOB 2 P ABL TDISP 3 P XIF 3 P EJECT 3 , P 3 : P P*************************************************************************** 3 B P P* C O M M O N S U B R O U T I N E S F O R A D M A N D S D M * 3 P P******************************
0x422b98…422d2c Dummy {f00=0x014d, f01=0x0190, f02=»* SUBROUTINES NOT IN SYSTEM * 3 $ P******************************** 4 ( P* 4 P P IFT ADM+SDM=0 4 Z PDMACTD EQU * 4 p PFNDFDB EQU * 4 PMOV:US EQU * 4 PMOV:SU EQU * 4 PFINDTT EQU * 4 PRTNA14 EQU * 4 PSETCRO EQU * 4 P XIF 4 P
0x422d2c…422ec0 Dummy {f00=0x014d, f01=0x0190, f02=»TOTSIZ EQU * 4 P XIF 5 P RB TASHLT SYSGEN ERROR 5 P* 5 @ P* 5 J P* 5 T P EJECT TIODM 5 ^ P IFF ADM+SDM=0 5 t P 5 8 P****DESCRIPTION************************************* 5 P* 5 : P* FNDFDB WILL SEARCH TTAB AND SCTCDT FOR A FIL
0x422ec0…423054 (1, 1141) Dummy {f00=0x014d, f01=0x0190, f02=»DE TO SEARCH FOR 5 4 P* A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED 6 P* 6 P 8 P****EXIT PARAMETERS********************************* 6 Z P* 6 P* A1 = UNCHANGED 6 2 P* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND 6 6 P* A4 = TTAB/SCTCDT ENT
0x423054…4231e8 Dummy {f00=0x014d, f01=0x0190, f02=»************** 6 j P* 7 P* A1-A5 7 P* 7 2 : P****************************************************** 7 < P EJECT 7 z P 7 P********** 7 P* FNDFDB * 7 P********** 7 P 7 PFNDFDB EQU * 7 & P LD A3,TTB:TD,A1 LENGTH DEV DESCR 7
0x4231e8…42337c Dummy {f00=0x014d, f01=0x018e, f02=»A3 7 P CC A2,1,A4 8 P RB(NE) FND030 8 P LDK A5,1 8 4 " P RF FND080 CODE FOUND IN TTAB 8 F P EJECT 8 l P* 8 z " P* SEARCH FILE CODE IN SCTCDT 8 P* 8 PFND040 EQU * 8 P LDR A5,A5 8 ( P RF(NZ) FND060 ONLY TTAB IS SEACHED 8 P L
0x42337c…423510 Dummy {f00=0x014d, f01=0x0190, f02=» 8 P CC A2,1,A3 9 P RB(NE) FND050 9 P AD A4,SCTCDT 9 2 P RF FND080 CODE FOUND 9 H PFND060 EQU * 9 f P LDK A2,0 NO CODE 9 z PFND080 EQU * 9 P RTN A14 9 P EJECT 9 P* 9 $ P* MOVE BLOCK AND MOVE CONSTANTS 9 P* 9 & PMOVTIS
0x423510…4236a4 Dummy {f00=0x014d, f01=0x0190, f02=»QU 6 BUFFER ADDRESS RECEIVING TASK 9 ( PMOVLEN EQU 8 NUMBER OF BYTES TO MOVE : * P* : V PMOVSAV EQU 10 SAVE AREA : ` P : P : PMOVBLK EQU * : P DATA 0,0 : P DATA 0,0 : P DATA 0 : P* : P DATA 0 : P EJECT : P : P
0x4236a4…423838 Dummy {f00=0x014d, f01=0x0190, f02=»HE USER AREA (SENDING BUFFER) TO : p L P* THE SYSTEM AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA ; ( J P* ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. ; x P* ; 8 P* INPUT: A1 = ADDRESS OF SENDING BUFFER (USER AREA) ;
0x423838…4239cc Dummy {f00=0x014d, f01=0x0190, f02=»R TTAB ADDRESS ; ~ P* < P* OUTPUT: A4=DESTROYED < P* < > PMOV:US EQU * < H P LD A4,TTB:ID,A4 TASK ID < P ST A4,MOVTIS+MOVBLK < | & P LDKL A4,'#M' DESTINATION TASK ID < P ST A4,MOVTIR+MOVBLK < P RF MOVCOM < P EJECT TIODM < P <
0x4239cc…423b60 Dummy {f00=0x014d, f01=0x0190, f02=»FROM THE SYSTEM AREA (SENDING BUFFER) TO < v J P* THE USER AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA = 0 J P* ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. = ~ P* = : P* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM A
0x423b60…423cf4 (1, 1142) Dummy {f00=0x014d, f01=0x0190, f02=» = USER TTAB ADDRESS = P* > P* OUTPUT: A4=DESTROYED > & P* > D PMOV:SU EQU * > N . P LD A4,TTB:ID,A4 TASK ID DESTINATION TASK > b P ST A4,MOVTIR+MOVBLK > & P LDKL A4,'#M' TASK ID SOURCE TASK > P ST A4,MOVTIS+MOVBLK > P EJECT > PMOVC
0x423cf4…423e88 Dummy {f00=0x014d, f01=0x018e, f02=»TION ADDRESS > x $ P ST A3,MOVLEN,A7 LENGTH TO MOVE ? P LKM ? < P DATA 21 ? H $ P LD A7,MOVSAV,A7 SAVED REGISTER ? X P RTN A14 ? P EJECT ? P ? P********** ? P* FINDTT * ? P********** ? P ? P* ? P* FIND TTAB ADDRESS ?
0x423e88…42401c Dummy {f00=0x014d, f01=0x0190, f02=» P* A7=-1 @ P* @ PFINDTT EQU * @ & P LDR A7,A7 @ : & P RF(N) NFOUND ILLEGAL TASK NUMBER @ L $ P LDKL A5,TTABD ADDRESS TO TASK 0 @ v PFIND10 EQU * @ P SUK A7,1 @ P RF(N) FINEND TASK FOUND @ , P ADKL A5,TTABLN POINTER TO NEXT TTAB
0x42401c…4241b0 Dummy {f00=0x014d, f01=0x0190, f02=»ND EQU * @ P ADKL A15,4 A P LDR A5,A5 SET CR A $ P ABR* A15 A > P XIF A P P EJECT TIODM A P* A r P IFF SDM+ADMCDE=0 A | P* A P********** A P* ENLFAC * A P********** A P* A 2 P* GET ENLARGE FACTOR AND CONVERT TO SE
0x4241b0…424344 Dummy {f00=0x014d, f01=0x0190, f02=» 0 P* A4=NUMBER OF SECTORS PER BLOCK B 2 P* A3= ENLARGE IN NUMBER OF SECTORS B 8 & P* A2,A5,A6,A7 ARE USED B n P* B PENLFAC EQU * B P ST A13,-8,A14 SAVE A13 B , P CF A14,TOTSIZ GET TOTAL LENGTH OF FILE B P R
0x424344…4244d8 Dummy {f00=0x014d, f01=0x018e, f02=»7,A1 B P RF(Z) ENLF30 C P CF A14,MPYMOD C " P ADK A1,0 C 8 P RF(NZ) SETCRO OVERFLOW C J P LD A6,FPB:EL,A12 ENLARGE C j P LDR A5,A2 C P* C P EJECT TIODM C P* C P* C PENLF30 EQU * C P LDK A2,0 C P LDR A7,A3 C
0x4244d8…42466c Dummy {f00=0x014d, f01=0x018e, f02=» $ P CF A14,DIVMOD NUMBER OF SECTORS D P RF(O) SETCRO OVERFLOW D , P ADK A1,0 D J P RF(Z) ENLF45 NO REST D , P ADK A2,1 AT LEAST ONE BLOCK IN ENLARGE D z PENLF45 EQU * D P LDK A1,0 RESET REST D , P LDR A3,A2 ENLARGE IN NUMBER OF SECTORS D ,
0x42466c…424800 Dummy {f00=0x014d, f01=0x0190, f02=» 4 P SUR A3,A1 MAKE ENLARGE INTEGER NUMBER OF BLOCKS E PENLF50 EQU * E < P ADR A3,A4 ONE MORE BLOCK E P P RF(NP) SETCRO OVERFLOW E r PENLF60 EQU * E P LDR A2,A3 E P LDK A1,0 E P CF A14,DV3RST E $ P RB(NZ) ENLF50 NOT MULTIPLE OF 3 E " P
0x424800…424994 (1, 1143) Dummy {f00=0x014d, f01=0x0190, f02=»******** E P* F < P* CONVERT ENLARGE FROM NUMBER OF SECTORS TO PERCENTAGE F P* F Z P* F d PCONENL EQU * F n * P CF A14,TOTSIZ GET TOTAL SIZE OF FILE F P LDR A3,A1 SAVE TOTAL SIZE F P LDR A4,A2 F ( P LD A6,FDBENL,A11 ENLARGE IN SECTORS
0x424994…424b28 Dummy {f00=0x014d, f01=0x0190, f02=»CON400 NO NEED TO NORMALIZE F PCON200 EQU * G $ 0 P SRL A4,1 DOUBLE SHIFT DIVISOR AND DIVIDENT G 8 P SRL A2,1 G l P SRC A1,1 G ~ P RF(NN) CON300 BIT NOT SET G P ANKL A1,/7FFF G P ORKL A2,/4000 SET BIT G PCON300 EQU * G P SUK A5,1 G
0x424b28…424cbc Dummy {f00=0x014d, f01=0x0190, f02=» IN PERCENT G z " P ST A2,FPB:EL,A12 SAVE ENLARGE H P RTN A14 H : P EJECT TIODM H J P* H ` P* H j P********** H t P* TOTSIZ * H P********** H P* H $ P* CALCULATE TOTAL SIZE OF FILE H P* H $ P* INPUT : A12 = FPB ADDRESS H
0x424cbc…424e50 Dummy {f00=0x014d, f01=0x018e, f02=»* A5 = 0 H " P* A6,A7 ARE USED I P* I B PTOTSIZ EQU * I L P LDR A13,A12 I ` $ P ADKL A13,FPB:S1 ADDRESS TO SIZE I t P LDK A5,4 COUNTER I P LDK A1,0 I P LDK A2,0 I PTOTS10 EQU * I P LDR* A6,A13 GET SIZE I
0x424e50…424fe4 Dummy {f00=0x014d, f01=0x0190, f02=» I P RB(P) TOTS10 ADD NEXT J P XIF J & P EJECT J 2 P IFF ADM+SDM=0 J @ P J V P********** J ^ P* RTNA14 * J p P********** J P J P* J P* SET CONDITION AND RETURN J P* J PRTNA14 EQU * J P ADKL A14,4 J P NGR A1,A1 J
0x424fe4…425178 Dummy {f00=0x014d, f01=0x0190, f02=»ERFLOW AND RETURN J P* K PSETCRO EQU * K $ P LDKL A1,/8000 K 8 P RB RTNA14 K N P XIF K ` P EJECT K l P IFT SDM=1 K z P K P********** K P* COSZEN * K P********** K P K P* K D P* COSZEN=CONVERT SIZE TO NBR OF RECORS AND E
0x425178…42530c Dummy {f00=0x014d, f01=0x0190, f02=»E UPADTED IN FPB K x * P* A1,A2,A3,A4,A5,A6,A7,A13=USED L P* L F PCOSZEN EQU * L P * P CF A14,CONENL CONVERT ENLARGE FACTOR L d P* L P* CONVERT SIZE L P* L P LDK A5,4 NUMBER OF VOLUMES L P LDR A13,A12 FPB ADDRESS L & P ADKL A1
0x42530c…4254a0 Dummy {f00=0x014d, f01=0x018e, f02=»,FDBBLZ,A11 BLOCK SIZE (SECTORS/BLOCK) L P ANK A6,/FF M . , P CF A14,DIVMOD A1,A2/A6=A2 REST IN A1 M B P RB(O) SETCRO OVERFLOW M r P LDR A6,A2 M 2 P LC A7,FDBBLF,A11 BLOCK FACTOR (RECORDS/BLOCK) M P ANK A7,/FF M P CF A14,MPYMOD A6*A7=A1,A2 M
0x4254a0…425634 (1, 1144) Dummy {f00=0x014e, f01=0x4052, f02=» M v P RTN A14 N P XIF N P* N $ P* N . P* N 8 P END N B@ N N
0x425634…4257c8 Dummy {f00=0x014e, f01=0x2008, f02=» O
0x4257c8…42595c Dummy {f00=0x014e, f01=0x0190, f02=» O | P* P PFDON20 LDR A6,A1 P P CM DWTTP,A6 P * P LDKL A5,DWTSB2 P > P ADR A5,A6 GET STACK BASE P V P* P x 6 PFDONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE P P IFT MMUPAG=1 P P IFT CHAN=0 P $ P CM BUFFLG,A6 RESET BUFFER FLAG P
0x42595c…425af0 Dummy {f00=0x014e, f01=0x0190, f02=»* P P EJECT DRFD01 Q P* Q P* Q * P* READ VOLUME NAME Q 4 P* Q P PFDONLD EQU * Q Z $ P SC A3,DWTOR,A6 GET VOLUME NAME Q n & P LC A4,DIXTAB,A3 DRIVE INDEX MASK Q P SC A4,DWTA3+1,A6 SAVE IT Q P CF A5,SETCIO Q P LDK A2,/14 Q
0x425af0…425c84 Dummy {f00=0x014e, f01=0x0190, f02=»NAME Q t & P RF FDON21 CONTINUE WITH NEXT DISC R P* R 6 PFDON19 EQU * R @ P CF A5,VO:NAM R T & P LDKL A2,/FBFF RESET IBM IND. BIT R j , P ANRS A2,A6 UPDATE TEMPORARY RETURN CODE R PFDON21 EQU * R P LDK A2,/C R P CF A5,FD:REA UNLOCK R P L
0x425c84…425e18 Dummy {f00=0x014e, f01=0x0190, f02=» CM DWTST2,A6 INDICATE VOLUMES READ R P XIF S , , P IM DWTST,A6 INDICATE VOLUME NAMES READ S 8 P* S h P IFT OPCLOS=1 S r P* S P EJECT S P* S : P* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING S P* S " P LD A4,DWTTP2,A6 TIMER
0x425e18…425fac Dummy {f00=0x014e, f01=0x018e, f02=»* S 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE T P* T D 2 P LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS T N & P LDKL A2,/8000 OPEN/CLOSE BIT MASK T $ P ANR* A2,A4 A2:=OPEN/CLOSE FLAG T P ORS A2,DWTOCF,A6 SAVE T ( P XRRS A2,A4 SET STAT
0x425fac…426140 Dummy {f00=0x014e, f01=0x0190, f02=» P EJECT U P* U P* LOCK DOORS U P* U 2 P LDK A2,1 U < PFDON25 EQU * U N " P LD A1,DWTLC,A6 LOCK INDICATOR U b P ANR A1,A2 U P RF(Z) FDON30 NOT LOCKED U P ST A2,DWTA3,A6 SAVE U P* U P EJECT U P* U P* PUT DRIVE NO
0x426140…4262d4 (1, 1145) Opaque[0x194]
0x4262d4…426468 # DirEnt {nam=»TIOEDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29c8, f03=0x0000}
0x4262d4…426468 IdxSect {
0x4262d4…426468 f00 = 0x014e // 0x4262d4 @0x0
0x4262d4…426468 f01 = 0x000a // 0x4262d6 @0x2
0x4262d4…426468 gno = [ // 0x4262d8 @0x4
0x4262d4…426468 [0x00]: C0x014e.0x1.0
0x4262d4…426468 [0x01]: C0x014e.0x2.0
0x4262d4…426468 [0x02]: C0x014e.0x3.0
0x4262d4…426468 [0x03]: C0x014f.0x0.0
0x4262d4…426468 [0x04]: C0x014f.0x1.0
0x4262d4…426468 ]
0x4262d4…426468 }
0x426468…4265fc Dummy {f00=0x014e, f01=0x018e, f02=» 2 P IDENT TIOEDM REL 11.0 81-03-31 870105041100 P : P =3 CLEAR STATUS FOR ADM B P =3 81-02-19 d 4 P =2, COMMIT,$E PENDING AND EXIT R.C DESTROYED z P =2, REL 11.0 81-01-30 P =1 RECOVERY AT ERR P =1 81-01-26 P*
0x4265fc…426790 Dummy {f00=0x014e, f01=0x0190, f02=» . P* TIOEDM = EXTENDED DATA MANAGEMENT I/O 0 P* TENEDM = TOSS EDM END I/O LKM PROCESSOR 6 P* j P* t P* ~ P* P* 8 P**************************************************** P* P* , P* CREATION OF PARAMETER BL
0x426790…426924 Dummy {f00=0x014e, f01=0x018e, f02=» P*********** P* P* " " P ENTRY TIOEDM I/O NORMAL ENTRY , ( P ENTRY TIOECR COMMIT/ROLLBACK ENTRY R P ENTRY TENEDM END IO EDM ~ P ENTRY PABORD P ENTRY PABFC P ENTRY PABBA P ENTRY PABRL P ENTRY PABCW1 P E
0x426924…426ab8 Dummy {f00=0x014e, f01=0x0190, f02=» P* ( P EXTRN DMTIDP PRIMARY EDM TASK TABLE * P EXTRN DMTIDS SECONDARY EDM TASK TABLE : P EXTRN DWDM01 h P EXTRN DWTTAB TTAB ADDRESS ~ P EXTRN DWTECB ECB ADDRESS P EXTRN FWTFNR FILE NUMBER . P EXTRN FWTVOL VOLUME FILE CODE 1ST E
0x426ab8…426c4c Dummy {f00=0x014e, f01=0x0190, f02=» EXTRN SCTCDT CD TABELL P EXTRN MOVUU P EXTRN LKMRQE 4 $ P EXTRN DISIOE TERM OF IO REQUEST J $ P EXTRN LKMQDI QUEUE AND DISPATCH r P EXTRN QTJOB QUEUE TASK P EXTRN DISEND " P EXTRN TTB:SA DISPATCH ADDRESS " P EXTRN TTB:ID TASK
0x426c4c…426de0 Dummy {f00=0x014e, f01=0x018e, f02=»XTRN TASHLT HALT AND LIGHT SOP SWITCHES P* 0 P EJECT TIOEDM : P* P P* Z P EXTRN ECBRC RETURN CODE d P EXTRN ECBEL EFFECTIV LENGTH $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH $ P EXTRN ECBCW1
0x426de0…426f74 (1, 1146) Dummy {f00=0x014e, f01=0x0190, f02=» P* P EJECT TIOEDM P* & P* 0 . P***************************************** : P* l P* CONDITIONAL ASSEMBLY v P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING
0x426f74…427108 Dummy {f00=0x014e, f01=0x018e, f02=»ED INSTRUCTION l . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* H PCPU852 EQU 1 R P* f P EJECT TIOEDM p P* P* P************* P* CONSTANTS * P************* P* P* P* * P* BASE PARAME
0x427108…42729c Dummy {f00=0x014e, f01=0x0190, f02=» PPABRL EQU 8 REQUESTED LENGTH PPABCW1 EQU 10 CONTROL WORD 1 ( PPABCW2 EQU 12 CONTROL WORD 2 L P p P* x P EJECT TIOEDM P* P********** P* TIOEDM * P********** P* ( P* THIS MODULE IS ENTERED FROM TIO
0x42729c…427430 Dummy {f00=0x014e, f01=0x0190, f02=» 0 P* OUTPUT: A1 = ADDRESS OF PARAMETER BLOCK 4 P* A2 = EDM TASK IDENTITY (VIA ACTOT) < ( P* A4 = USER TASK IDENTITY t P* , P* CREATE PARAMETER BLOCK FOR NORMAL I/O P* PTIOEDM EQU * P LD A5,DWTTAB,A6
0x427430…4275c4 Dummy {f00=0x014e, f01=0x0190, f02=»R A2,PABORD,A5 ORDER WORD $ P RF(NZ) REQER2 OTHER REQ BUSY =1 " P CWK A6,DWDM01 LOCAL DWT J P RF(E) TIOE05 OPEN j P LD A2,FWTFNR,A6 FILE NUMBER PTIOE05 EQU * P ANK A2,/FF P STR A2,A5 $ P LD A7,DWTTAB,A6 USER TTAB ADDR "
0x4275c4…427758 Dummy {f00=0x014e, f01=0x0190, f02=» P LDR* A2,A8 1ST ECB P ST A2,PABFC,A5 FILE CODE P LD A2,ECBBA,A8 B " P ST A2,PABBA,A5 BUFFER ADDRESS Z P LD A2,ECBRL,A8 $ P ST A2,PABRL,A5 REQUESTED LENGTH P LD A2,ECBCW1,A8 $ P ST A2,PABCW1,A5 CONTROL WORD 1 P LD A2,E
0x427758…4278ec Dummy {f00=0x014e, f01=0x018e, f02=»C,A5 P ML 2,ECBCW1,A8 P MS 2,PABCW1,A5 $ P XIF < P* H P EJECT TIOEDM R P* h , P* ACTIVATE PRIMARY OR SECONDARY EDM TASK r P* & P LDR A1,A5 PARAMETER BLOCK ADDRESS P INH P LDR A5,A7 ORDER P LDKL A7,'$D'
0x4278ec…427a80 Dummy {f00=0x014e, f01=0x0190, f02=» | P SUK A5,/22-/21 P RF(Z) TIOE40 CLOSE . P LDKL A3,DFTABL LENGTH OF FILE CODE TABLE < & P LC A2,FWTVOL,A6 VOLUME FILE CODE n PTIOE20 EQU * P SUK A3,1 ( P RF(N) ERRHLT FILE CODE NOT IN TABLE P CC A2,DFTAB,A3 & P RB(NE
0x427a80…427c14 (1, 1147) Dummy {f00=0x014e, f01=0x0190, f02=»ESS 1ST EDM TASK | P RF(Z) ERRHLT TTAB NOT FOUND ( P LD A4,TTB:SA,A2 DISPATCHER ADDRESS < " P RF(Z) TIOE70 TASK NOT ACTIVE h P LC A7,DMTIDS,A3 SECONDARY P ADK A7,'D' P RF TIOE50 P EJECT TIOEDM P* P* PTIOE40 E
0x427c14…427da8 Dummy {f00=0x014e, f01=0x0190, f02=» A4,3 " P XRR* A4,A3 COMPARE IDENTITIES P ANKL A4,/FF00 4 P RF(NZ) REQER1 WRONG TASK J . P SCR A4,A3 CLEAR ID/STATUS BYTE FOR ADM =3 l P LDKL A4,DWDM01 DWT ADDRESS P ST A4,2,A3 IN TABLE P* P EJECT TIOEDM P* P
0x427da8…427f3c Dummy {f00=0x014e, f01=0x0190, f02=»VATE EDM TASK P* P* PTIOECR EQU * * PTIOE50 EQU * > P CF A15,FNDTID R ( P LDR A5,A2 TTAB ADDRESS 2ND EDM TASK h P RF(NZ) TIOE70 TTAB FOUND P* P EJECT TIOEDM P* P* PERRHLT EQU * P ABL TASHL
0x427f3c…4280d0 Dummy {f00=0x014e, f01=0x0190, f02=»QER1 EQU * P CMR A1 FREE PARAM BLOCK =1 & P CM PABORD,A1 FREE PARAM BLOCK =1 6 PREQER2 EQU * =1 ` P ABL DISIOE x REQERR EQU * ABL LKMRQE P* P EJECT P* PTIOE70 EQU * : P LD A4,SCTMOX START ADDRESS OF
0x4280d0…428264 Dummy {f00=0x014e, f01=0x0190, f02=»DK A4,4 NEXT ENTRY P CWR A4,A2 & P RB(E) ERRHLT TASK ID NOT IN TABLE , P CWR* A7,A4 V $ P RB(NE) TIOE80 NOT SAME TASK ID j $ P LD A2,2,A4 GET DISPATCH ADDRESS P LDR* A4,A1 ORDER CODE P SUKL A4,/100 COMMIT P RF(Z) TIOE90 COMMMI
0x428264…4283f8 Dummy {f00=0x014e, f01=0x0190, f02=»D,A4 CALLING TASK TASK ID & P ABL ACTDIS ACTIVATE AND DISPATCH " P* L P EJECT TIOEDM V P* n P* x P********** P* TENEDM * P********** P* * . P* THIS IS THE EDM END I/O LKM PROCESSOR. P* * P
0x4283f8…42858c Dummy {f00=0x014e, f01=0x0190, f02=»A7 = FUNCTION PARAMETER 2 P* BIT15=1 MEANS IMPLICIT EXIT PERFORMED @ P* BIT14=1 MEANS IMPLICIT MOVE OF BUFFER FROM EDM-TASK V N P* BIT13=1 MEANS ANNULING OF REQUEST WITHOUT ACTIVATION OF USER TASK 6 P* BIT12=1 MEANS END I
0x42858c…428720 Dummy {f00=0x014e, f01=0x0190, f02=»ID d * PTENEDM EQU * P SRC A7,5 BIT 11 TO SIGN BIT ( & P RF(NN) EIO090 NOT COMMIT,ROLLBACK L * P LD A6,TTB:SA+4,A5 GET RETURN CODE =2 v P EJECT P* & P* TERMINATION OF COMMIT/ROLLBACK P* P SLC A7,4 BIT 15 TO SIGN
0x428720…4288b4 (1, 1148) Dummy {f00=0x014f, f01=0x018e, f02=» LDR A7,A8 TASK ID " P CF A15,FNDTID GET TTAB IN A2 P LDR A5,A2 TTAB @ P RB(Z) ERRHLT NO TASK ID X P ADK A6,0 TEST IF R.C. OK =2 x P RF(Z) EIO085 NO ERROR P ST A6,TTB:SA+14,A5 ERR CODE PEIO085 EQU * P LDR A6,A5 USER TTAB
0x4288b4…428a48 Dummy {f00=0x014f, f01=0x018e, f02=» p P EJECT P* " P* TERMINATION OF I/O REQUEST P* F & PEIO090 SLC A7,1 BIT 12 TO SIGN BIT P $ LD A1,TTB:SA+10,A5 FILE NUMBER z 0 P RB(N) REQERR FILE NUMBER < 0, REQUEST ERROR * P RF(Z) EIO103 OPEN,DO EXIT,FILE NBR=0 " P CW
0x428a48…428bdc Dummy {f00=0x014f, f01=0x0190, f02=» EIO100 EQU * LDR* A6,A6 GET NEXT FWT SUK A1,1 < RB(P) EIO100 NEXT FILE N 2 P ANKL A6,/FFFE MAKE ADDRESS EVEN JUST IN CASE n P* P EJECT TIOEDM * 0 P* FILE FOUND, GET TTAB AND ECB OF USER TASK *
0x428bdc…428d70 Dummy {f00=0x014f, f01=0x0190, f02=» , P CF A15,FND:FC FILE CODE ENTRY IN TABLES P ADK A3,0 4 & P RB(Z) REQERR FILE CODE NOT FOUND F P ST A6,2,A3 SAVE FWT ADDRESS p " P LDKL A6,DWDM01 LOCAL DWT FWT & P LD A6,DWTTAB,A6 USER TTAB AADDDR P SRC A6,5 * P SCR A6,A3 MARK FI
0x428d70…428f04 Dummy {f00=0x014f, f01=0x0190, f02=»ECB v $ P LD A4,DWTTAB,A6 TTAB USER TASK P LDR A2,A4 USER TTAB 4 P AD A2,TTB:TD,A4 P ( P CM TTB:TD,A2 MARK PARAM BLOCK FREE h P CM TTB:TD+2,A2 DITTO P SLC A7,1 BIT 13 TO SIGN BIT ( P RF(NN) EIO110 NO CANCEL OF REQUEST *
0x428f04…429098 Dummy {f00=0x014f, f01=0x0190, f02=»DS A2,TTB:SA,A4 P SLC A7,1 P RF EIO120 TEST IF EXIT * P* J EIO110 EQU * T P SLC A7,1 BIT 14 TO SIGN BIT h P RF(NN) EIO120 NO MOVE * ( #* MOVE FROM EDM TASK TO USER BUFFER * . P LD A2,ECBBA,A8 DESTINATION BU
0x429098…42922c Dummy {f00=0x014f, f01=0x018e, f02=»ADDR p P EJECT TIOEDM P* $ P* . EIO120 EQU * 8 P IFT CPU852=1 L P LD A1,TTB:SA+2,A5 FILL ECB b P ST A1,ECBEL,A8 P LD A2,TTB:SA+4,A5 P ST A2,ECBRC,A8 P LD A3,TTB:SA+6,A5 P ST A3,ECBCW1,A8 P LD A4
0x42922c…4293c0 Dummy {f00=0x014f, f01=0x0190, f02=» , P MS 4,ECBEL,A8 EFF.LEN,RTN CODE,CW1,CW2 P XIF 4 P* @ P SLC A7,1 BIT 15 TO SIGN BIT J P RF(NN) EIO130 NO EXIT n * * EXIT * ( P CF A15,EXIT A5 = TTAB CALLING TASK P* P* END I/O P* PEIO130 E
0x4293c0…429554 (1, 1149) Dummy {f00=0x014f, f01=0x0190, f02=»****** P* FND:FC * P********** P* 2 P* < . P* FIND ENTRY CORRESPONDING TO FILE CODE F P* FROM CDTAB OR TTAB x P* P* " P* INPUT : A4 = DWT ADDRESS P* & P* OUTPUT: A3 = ADDRESS TO ENTRY $ P*
0x429554…4296e8 Dummy {f00=0x014f, f01=0x0190, f02=» P* PFND:FC EQU * P LD A8,DWTECB,A4 ECB ADDRESS " P LDR* A2,A8 FILE CODE F P ANK A2,/FF d " P LD A4,DWTTAB,A4 TTAB ADDRESS x , P ADKL A4,TTB:TD ADDRESS TO DEVICE TABLE & P LDR* A3,A4 LENGTH OF DEVICE TABLE $ P ADR A3,A4 END O
0x4296e8…42987c Dummy {f00=0x014f, f01=0x0190, f02=» SUK A3,4 P CC A2,1,A3 FILE CODES P RF(E) FND:50 ENTRY FOUND 0 P RB FND:10 NEXT ENTRY R P* p P EJECT TIOEDM z P* P* PFND:20 EQU * & P LD A4,SCTCDT COMMON DEVICE TABLE P LDR* A3,A4 LENGTH $ P ADR A3,A4 E
0x42987c…429a10 Dummy {f00=0x014f, f01=0x40fe, f02=» P SUK A3,4 ! P CC A2,1,A3 FILE CODES ! " P RF(E) FND:50 FILE CODE FOUND ! 4 P RB FND:40 NEXT ENTRY ! Z PFND:45 EQU * ! x & P LDK A3,0 INDICATE ENTRY NOT FOUND ! PFND:50 EQU * ! P RTN A15 ! P* ! P* ! P END ! @ ! DR A3,A4 E
0x429a10…429ba4 Dummy {f00=0x014f, f01=0x2008, f02=» "
0x429ba4…429d38 Dummy {f00=0x014f, f01=0x0190, f02=»YLINDER NUMBER J t P RTN A5 K P* K & P EJECT DRFD02 K 0 P* K F P* K P P********** K Z P* SETPAR * K l P********** K ~ P* K ( P* SET DEVICE DEPENDENT PARAMETERS K P* K PSETPAR EQU * K * P LD A2,DWTCYN,A6 PRESENT HEAD POSITI
0x429d38…429ecc Dummy {f00=0x014f, f01=0x0190, f02=»ENT PARAMETERS K n P RTN A5 L P* L & P EJECT DRFD02 L 0 P* L F P********** L P P* VO:NAM * L b P********** L t P* L P* L PVO:NAM EQU * L 6 P LDK A3,IN:LCK RESET ALL BUT LOCK/UNLOCK INDICATOR L P ANS A3,DWTFOR,A6 L P LDK A
0x429ecc…42a060 Dummy {f00=0x014f, f01=0x0190, f02=»VOL L P RF(NZ) VOL900 ERROR M P IFT CPU852+IBM=2 M ( P LD A2,FD:BUF+32 M B P CWK A2,'TO' M Z P RF(NE) VOL200 NO TOSS DISC M n P LD A2,FD:BUF+34 M P CWK A2,'SS' M P RF(NE) VOL200 M P XIF M P IFT TOSS+IBM=2 M P IFT CPU852=0 M
0x42a060…42a1f4 (1, 1150) Opaque[0x194]
0x42a1f4…42a388 # DirEnt {nam=»TIOFM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29f0, f03=0x0000}
0x42a1f4…42a388 IdxSect {
0x42a1f4…42a388 f00 = 0x014f // 0x42a1f4 @0x0
0x42a1f4…42a388 f01 = 0x000c // 0x42a1f6 @0x2
0x42a1f4…42a388 gno = [ // 0x42a1f8 @0x4
0x42a1f4…42a388 [0x00]: C0x014f.0x2.0
0x42a1f4…42a388 [0x01]: C0x014f.0x3.0
0x42a1f4…42a388 [0x02]: C0x0150.0x0.0
0x42a1f4…42a388 [0x03]: C0x0150.0x1.0
0x42a1f4…42a388 [0x04]: C0x0150.0x2.0
0x42a1f4…42a388 [0x05]: C0x0150.0x3.0
0x42a1f4…42a388 ]
0x42a1f4…42a388 }
0x42a388…42a51c Dummy {f00=0x014f, f01=0x0190, f02=» 0 P IDENT TIOFM REL 11.0 81-05-13 870105041100 P 8 P* @ P* J 6 P************************************************** T P* 6 P* PHILIPS TERMINAL SYSTEM PTS * P* 6 P* TIOFM = TOSS FILE MANAGEMENT LKM PROCESS
0x42a51c…42a6b0 Dummy {f00=0x014f, f01=0x0190, f02=»TOSS FILE MANAGEMENT LKM PROCESSOR HANDLES 4 P* PREPARATIONS FOR DISC I/O, AND ACTIVATION OF 2 2 P* THE FILE MANAGEMENT TASK (FMTASK) FOR FILE j " P* ADMINISTRATION FUNCTIONS. P* P* P EJECT TIOFM P* P* P****
0x42a6b0…42a844 Dummy {f00=0x014f, f01=0x018e, f02=»RY DET:FM FILE MANAGEMENT DETACH : P ENTRY FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS ( " P ENTRY FCHEC2 FCHECK 2ND ENTRY f P EJECT TIOFM P* P* P************* P* EXTERNALS * P************* P* P*
0x42a844…42a9d8 Dummy {f00=0x014f, f01=0x0190, f02=» 4 P EXTRN QUEFIL QUEUE FILE REQUEST IN DEVICE QUEUE " P EXTRN TIO:FM FM ENTRY IN TIO < , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH b " P EXTRN FNDDWD FIND DWT ADDRESS , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING $ P EXTRN GETBLK GET MONITOR BLOCK
0x42a9d8…42ab6c Dummy {f00=0x014f, f01=0x0190, f02=» r 0 P EXTRN FWTVTC VTOC SECTOR NO (FIRST EXTENT) ( P EXTRN FWTPAR FILE ACCESS PARAMETERS < , P EXTRN FWTTAB TTAB FOR TASK WITH ATTACH h 2 P EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT 4 P EXTRN FWTQUE QUEUE ANCHOR FOR FILE I/O REQUESTS P E
0x42ab6c…42ad00 Dummy {f00=0x014f, f01=0x0190, f02=»GTH r $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 4 P EXTRN DWTST DWT STATUS WORD P EJECT TIOFM P* P* , P**************************************** P* P* CONDITIONAL ASSEMBLY P*
0x42ad00…42ae94 (1, 1151) Dummy {f00=0x014f, f01=0x0190, f02=» MMUPAG EQU 1. x P* PMMUPAG EQU 0 P* 4 P* > 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION H . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P* & P* THE ATTACH/DETACH FILE FUNCTION
0x42ae94…42b028 Dummy {f00=0x014f, f01=0x0190, f02=»IPLE EXTENT I/O FUNCTION * P* IS OBTAINED BY SETTING MULEXT EQU 1. P* N PMULEXT EQU 1 X PX:B EQU MULEXT l P* P EJECT TIOFM P* P* P********* P* TIOFM * P********* P* P* 8 P* THIS
0x42b028…42b1bc Dummy {f00=0x014f, f01=0x018e, f02=»ETERS: t P* P* A4 = 0 P* A5 = TTAB ADDRESS * P* A7 = ORDER CODE H P* A8 = ECB ADDRESS d P* . P* WHEN FILE ADMINISTRATION IS REQUESTED, ( P* TIOFM WILL ACTIVATE THE FMTASK. P* . P* WHEN I/O FUNCTION
0x42b1bc…42b350 Dummy {f00=0x014f, f01=0x0190, f02=» P* P* P EJECT TIOFM P* . P* 8 4 PTIOFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY B P* z P* CHECK ORDER CODE P* P LDR A2,A7 ORDER CODE P ANK A2,/FF SKIP OPTION P XRK A2,/80 WAIT BIT P SUK A
0x42b350…42b4e4 Dummy {f00=0x014f, f01=0x018e, f02=» RF(Z) FM:IO BASIC WRITE P SUK A2,/11-/05 P RF(Z) FM:IO PHYSICAL READ 8 P SUK A2,/15-/11 Z P RF(Z) FM:IO PHYSICAL WRITE r P SUK A2,/21-/15 $ P RF(Z) FMACT2 OPEN/CREATE/EXTEND P SUK A2,/22-/21 P RF(Z) FMACT1 CLOSE/DELETE
0x42b4e4…42b678 Dummy {f00=0x014f, f01=0x0190, f02=» . P RF(NZ) FM:RQE REQUEST ERROR IF NOT DETACH P* 6 P EJECT TIOFM @ P* V P IFT ATTDET=1 ` P* v P********** P* DETACH * P********** P* P* DETACH FILE P* PDETACH EQU * 8 P CF A15,FCHECK FIND
0x42b678…42b80c Dummy {f00=0x014f, f01=0x0190, f02=» WAS ATTACHED v ( P RF(NZ) T:DISP YES, GO TO DISPATCHER P XIF B P* N P* ERROR EXIT X P* l 4 PFM:RQE EQU * FILE MANAGEMENT REQUEST ERROR EXIT v P LDK A3,/80 RETURN CODE P* PFM:ER1 EQU * P ECR A3,A3 P RF T:DIS2
0x42b80c…42b9a0 Dummy {f00=0x014f, f01=0x0190, f02=»* P* ATTACH FILE P* PATTACH EQU * * 8 P CF A15,FCHECK FIND FWT AND CHECK ACCESS PARAMETERS > P RF(NZ) FM:030 NOT OK z $ P ST A5,FWTTAB,A6 SET ATTACH WORD P XIF P* PT:DISP EQU * P LDR A3,A4 RETURN CODE P
0x42b9a0…42bb34 (1, 1152) Dummy {f00=0x0150, f01=0x0190, f02=» P********** P* FMACTX * P********** ( P* : P* D & P* FILE ADMINISTRATION REQUESTED. N P* x 6 P* ACTIVATE FMTASK WITH THE FOLLOWING PARAMETERS: P* 4 P* A1 = ORDER CODE AND OPTION (RFP/OPEN/CLOSE) 0 P* = P
0x42bb34…42bcc8 Dummy {f00=0x0150, f01=0x0190, f02=»CLOSE, 6 = SPLIT I/O) ` P* ( PFMACT1 EQU * ACTIVATE CLOSE FUNCTION ( P ADK A4,2 FUNCTION INDEX T P* t ( PFMACT2 EQU * ACTIVATE OPEN FUNCTION ~ P ADK A4,2 FUNCTION INDEX P* 8 PFMACT3 EQU * ACTIVATE READ FILE PARAMETERS FUNCTION
0x42bcc8…42be5c Dummy {f00=0x0150, f01=0x0190, f02=»SS r , P LDR A3,A5 TTAB ADDRESS OF CALLING TASK ( P LDKL A5,TTABFM FMTASK TTAB ADDRESS : , P ABL ACTDIS ACTIVATE FMTASK AND DISPATCH f P* P EJECT TIOFM P* P* P********** P* FM I/O * P********** P* $
0x42be5c…42bff0 Dummy {f00=0x0150, f01=0x018e, f02=»ACCESS PARAMETERS n P* P IFT ATTDET=1 $ P RF(Z) FM:050 OK : P* R PFM:030 EQU * P CWK A4,/40 p P RB(NE) T:DISP ERROR, RETURN P* " P* FILE ATTACHED, QUEUE REQUEST P* ( P ADKL A6,FWTQUE QUEUE ANCHOR ADDRESS
0x42bff0…42c184 Dummy {f00=0x0150, f01=0x0190, f02=» P RB(NZ) FM:RQE ERROR P XIF P* , P EJECT TIOFM 6 P* L " P* CHECK RELATIVE SECTOR NUMBER V P* | PFM:050 EQU * P IFT MMUPAG=0 P IFT CPU852=1 , P LD A2,ECBCW2,A8 RELATIVE SECTOR NUMBER P LD A1,ECBCW1,A8
0x42c184…42c318 Dummy {f00=0x0150, f01=0x0190, f02=» P IFT MMUPAG=1 , P EL A2,ECBCW2,A8 RELATIVE SECTOR NUMBER P EL A1,ECBCW1,A8 J P XIF b P* n P RF(NZ) FM:060 x P ADK A2,0 , P RF(Z) FM:ER2 RELATIVE SECTOR NUMBER = 0 P* PFM:060 EQU * P LDR A3,A6 FWT ADDRESS
0x42c318…42c4ac Dummy {f00=0x0150, f01=0x0190, f02=»A3,FWTEW1 ADDRESS TO 1ST EWT STRUCTURE P LDKL A14,/7FFF 0 P* H P EJECT TIOFM R P* h ( P* SEARCH THE FILE EXTENT THAT HOLDS r P* THE REQUESTED SECTORS P* PFM:070 EQU * * P LC A6,EWTEXL-1,A3 FILE EXTENT LENGTH
0x42c4ac…42c640 Dummy {f00=0x0150, f01=0x018e, f02=» CWR A2,A7 P RF(NG) FM:100 EXTENT FOUND P* 6 PFM:080 EQU * @ P IFT CPU852=0 T . P DSR A6 SUBTRACT LENGTH FROM SECTOR NUMBER j P XIF P* P IFT CPU852=1 2 P SUR A1,A6 SUBTRACT LENGTH FROM SECTOR NUMBER P SUR A2,A7
0x42c640…42c7d4 (1, 1153) Dummy {f00=0x0150, f01=0x0190, f02=» PFM:090 EQU * ( P LDR* A3,A3 ADDRESS TO 2ND EWT BLOCK . P LDR* A3,A3 ADDRESS TO NEXT EWT STRUCTURE D $ P RB(NZ) FM:070 CHECK NEXT EXTENT v P* 2 PFM:ER2 EQU * FILE MANAGEMENT EXTENT ERROR EXIT P LDK A3,/A0 RETURN CODE P RB FM:ER1
0x42c7d4…42c968 Dummy {f00=0x0150, f01=0x0190, f02=» EWT BLOCK v P SUR A10,A10 ( P LC A10,EWTEXB-1,A4 FILE EXTENT BASE & P LD A11,EWTEXB,A4 R P* l P IFT CPU852=0 v " P DAR A10 COMPUTE SECTOR NUMBER P DSK 0,1 P XIF P* P IFT CPU852=1 & P ADR A1,A10 COMPUTE SECTOR
0x42c968…42cafc Dummy {f00=0x0150, f01=0x0190, f02=»ERFLOW z " P SUK A1,1 UNDERFLOW CORRECTION P ANR A2,A14 SKIP SIGN BIT 4 P XIF V P* b P EJECT TIOFM l P* P* PFM:115 EQU * " P LDR A12,A1 SAVE SECTOR NUMBER P LDR A13,A2 P* P IFT MMUPAG=0 . P LC
0x42cafc…42cc90 Dummy {f00=0x0150, f01=0x0190, f02=»LENGTH (BYTES) v P SRL A3,8 SECTORS P XIF 0 P* < . P ADR A2,A3 COMPUTE LAST REQUESTED SECTOR+1 F P RF(O) FM:150 OVERFLOW x P* PFM:120 EQU * 0 P ADR A6,A10 COMPUTE LAST SECTOR+1 IN EXTENT P ADR A7,A11 P RF(O) FM:16
0x42cc90…42ce24 Dummy {f00=0x0150, f01=0x018e, f02=»SECTORS NOT WITHIN THIS EXTENT ~ P CWR A7,A2 & 4 P RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT 8 P* p P EJECT TIOFM z P* & P* PREPARE PARAMETERS FOR DISC I/O P* P* EXIT PARAMETERS: P* $ P* A2 = DISC INDEX (FRO
0x42ce24…42cfb8 Dummy {f00=0x0150, f01=0x0190, f02=» h P* A7 = ORDER CODE P* A8 = ECB ADDRESS " P* < PFM:130 EQU * F $ P LC A2,EWTVOL,A4 FILE CODE DISC Z ( P CF A15,FNDDWD FIND DISC DWT ADDRESS * P LDK A4,0 INDICATE NO I/O-AND-ACTIVATE P LD A1,DWTST,A6 DWT STATUS , P ABL(NN) Q
0x42cfb8…42d14c Dummy {f00=0x0150, f01=0x018e, f02=» NUMBER IN ECB t P ST A13,ECBCW2,A8 P XIF 0 P* < P IFT MMUPAG=1 F . P ES A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ES A13,ECBCW2,A8 P XIF P* * P ABL TIO:FM BRANCH TO FM ENTRY IN TIO P* P EJECT TIOFM
0x42d14c…42d2e0 Dummy {f00=0x0150, f01=0x0190, f02=» P ANR A2,A14 SKIP SIGN BIT P RB FM:110 * P XIF < P* H PFM:150 EQU * R P ADK A1,1 f P ANR A2,A14 SKIP SIGN BIT x P RB FM:120 P* PFM:160 EQU * P ADK A6,1 P ANR A7,A14 SKIP SIGN BIT P RB FM:125
0x42d2e0…42d474 (1, 1154) Dummy {f00=0x0150, f01=0x0190, f02=»HE FOLLOWING PARAMETERS: x P* " P* A1 = PARAMETER BLOCK ADDRESS * ( P* A3 = TTAB ADDRESS OF CALLING TASK P P* A4 = FUNCTION INDEX (=6) | P* PFM:170 EQU * P IFT MULEXT=1 P IFT MMUPAG=0 . P ST A12,ECBCW1,A8 SET SECTOR NUM
0x42d474…42d608 Dummy {f00=0x0150, f01=0x0190, f02=»OR NUMBER IN ECB v P ES A13,ECBCW2,A8 P XIF 2 P* > P IFT MULEXT=1 H * P SUR A7,A13 NO OF SECTORS IN FIRST I/O ^ * P ANR A7,A14 SKIP SIGN BIT JUST IN CASE P* * P* PREPARE PARAMETER BLOCKS FOR FMTASK P* P LDR A1,A9 O
0x42d608…42d79c Dummy {f00=0x0150, f01=0x0190, f02=» A1,A4 PARAMETER BLOCK ADDRESS * P LDK A4,6 FUNCTION INDEX FOR SPLIT I/O & P RB FMACT4 ACTIVATE FMTASK T P XIF v P* P IFT MULEXT=0 P RB FM:ER2 REQUEST ERROR P XIF P* P EJECT TIOFM P* P* P******
0x42d79c…42d930 Dummy {f00=0x0150, f01=0x0190, f02=» ^ 2 P* ADDRESS AND CHECKS THE ACCESS PARAMETERS. ! P* ! > " P* INPUT: A5 = TTAB ADDRESS ! H P* A7 = ORDER CODE ! n ( P* A8 = ECB ADDRESS (FCHECK ONLY) ! ( P* A9 = ECB ADDRESS (FCHEC2 ONLY) ! P* ! " P* OUTPUT: CR = 0 I
0x42d930…42dac4 Dummy {f00=0x0150, f01=0x0190, f02=»ROR) ! b : P* A7 = ORDER CODE (MODIFIED TO BASIC IF REQUESTED) " P* A9 = ECB ADDRESS " J P* A2 IS DESTROYED " h P* " " PFCHECK EQU * FCHECK MAIN ENTRY " P LDR A9,A8 ECB ADDRESS " P* " " PFCHEC2 EQU * FCHECK 2ND ENTRY " P IFT M
0x42dac4…42dc58 Dummy {f00=0x0150, f01=0x0190, f02=» " P EJECT FMTASK # P* # $ P* CHECK FILE NUMBER AND FIND FWT # * P* # R $ P ADKL A15,4 ADJUST STACKPOINTER # P ANK A4,/FF # " P RF(Z) FC:050 FILE NUMBER = 0 # P CW A4,SCTNOF # & P RF(G) FC:050 FILE NUMBER TOO BIG # 0 P LDKL A6,S
0x42dc58…42ddec Dummy {f00=0x0150, f01=0x0190, f02=»1 # P RB(P) FC:010 $ P* $ P* CHECK ACCESS PARAMETERS $ * P* $ L 4 P ANKL A6,/FFFE CORRECT FWT ADDRESS JUST IN CASE $ V 2 P LD A2,FWTVTC,A6 VTOC SECTOR NO (FIRST EXTENT) $ " P RF(Z) FC:050 FILE NOT OPENED $ & P LD A2,FWTPAR,A6 ACCESS PARAME
0x42ddec…42df80 Dummy {f00=0x0150, f01=0x0190, f02=» P* % PFC:020 EQU * % P IFT ATTDET=1 % " 0 P LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS) % 8 & P ABR(Z)* A15 NOT ATTACHED, RETURN % l , P CWR A2,A5 ATTACHED, CHECK IF THIS TASK % , P RF(NE) FC:060 ATTACHED TO ANOTHER TASK % P XIF % P* %
0x42df80…42e114 (1, 1155) Dummy {f00=0x0150, f01=0x0190, f02=»CT TIOFM % P* & P* ERROR RETURNS & P* & 4 $ PFC:050 EQU * REQUEST ERROR EXIT & > & P LDKL A4,/7FC0 RETURN CODE = /8000 & f $ P LDK A6,0 INDICATE NO FWT FOUND & P* & $ PFC:060 EQU * FILE ATTACHED EXIT & " P ADK A4,/20 RETURN CODE = /40
0x42e114…42e2a8 Dummy {f00=0x0150, f01=0x0190, f02=» & l P* ' P EJECT TIOFM ' P* ' ( P* ' 2 P********** ' < P* DET:FM * ' N P********** ' ` P* ' r P* INPUT: A6 = FWT ADDRESS ' | P* ' 2 P* OUTPUT:A10 = TTAB ADDRESS OF ATTACHED TASK ' P* A1 IS DESTROYED ' P* '
0x42e2a8…42e43c Dummy {f00=0x0150, f01=0x0190, f02=»TACHED ' | 8 P LD A5,FWTQUE,A6 QUEUE ANCHOR FOR FILE I/O REQUESTS ( ( P RF(Z) DET:20 NO MORE TASKS IN QUEUE ( J P* ( v . P* REPEAT ALL QUEUED REQUESTS FOR THIS FILE ( P* ( PDET:10 EQU * ( & P LDR* A1,A5 SAVE NEXT TTAB ADDRESS ( , P CF A15,QTJOB
0x42e43c…42e5d0 Dummy {f00=0x0150, f01=0x40c6, f02=» P* ) PDET:20 EQU * ) $ P LDR A5,A10 RESTORE TTAB ADDRESS ) " $ P CM FWTTAB,A6 RESET ATTACH WORD ) J P* ) r PDET:30 EQU * ) | P RTN A15 ) P XIF ) P* ) P END ) @ ) * ( & P LDR* A1,A5 SAVE NEXT TTAB ADDRESS ( , P CF A15,QTJOB
0x42e5d0…42e764 Dummy {f00=0x0150, f01=0x2008, f02=» * O t * * * & END 0@ <:127 : XIF L * X EJECT TOSSFM b * z * 8 3FM:170 EQU * MAKE ALL PARAMETERS READY FOR DISC I/O $ LC A2,EWTVOL,A3 FILE CODE DISC ( $ CF A15,FNDDW2 FIND DI
0x42e764…42e8f8 Dummy {f00=0x0150, f01=0x0190, f02=» P IFT CPU852=0 + $ P ML 2,VTC:EL,A9 PRESENT MOST FIT + P DSR* A13 EXTENT LENGTH + B P XIF + b P* + n 8 P RF(NL) CEF160 NOT GREATER THAN LAST FOUND MOST FIT + x P RF CEF150 + P* + P EJECT FMCDEF + P* + P* + PCEF120 EQU * +
0x42e8f8…42ea8c Dummy {f00=0x0150, f01=0x0190, f02=»NT FOUND + r P* , P IFT CPU852=1 , 0 P LDKL A1,VTC:EL ADDRESS TO PRESENT MOST FIT , 0 P ADR A1,A9 , d P LDR A2,A13 , v P CF A14,CMPDWD , P XIF , P* , P IFT CPU852=0 , $ P ML 2,VTC:EL,A9 PRESENT MOST FIT , P DSR* A13 EXTENT LEN
0x42ea8c…42ec20 Dummy {f00=0x0150, f01=0x0190, f02=»50 EQU * , P* - P IFT CPU852=1 - P LDR A1,A13 MOVE FROM BUFFER - 0 P LDKL A3,VTC:EL TO WORK AREA - T P ADR A3,A9 - x P CF A14,FM:MV8 - P XIF - P* - P IFT CPU852=0 - ( P MLR 4,A13 FROM FM:BUF TO WORK AREA - P MS 4,VTC:EL,A9
0x42ec20…42edb4 (1, 1156) Opaque[0x194]
0x42edb4…42ef48 # DirEnt {nam=»TIOSDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a20, f03=0x0000}
0x42edb4…42ef48 IdxSect {
0x42edb4…42ef48 f00 = 0x0151 // 0x42edb4 @0x0
0x42edb4…42ef48 f01 = 0x0010 // 0x42edb6 @0x2
0x42edb4…42ef48 gno = [ // 0x42edb8 @0x4
0x42edb4…42ef48 [0x00]: C0x0151.0x0.0
0x42edb4…42ef48 [0x01]: C0x0151.0x1.0
0x42edb4…42ef48 [0x02]: C0x0151.0x2.0
0x42edb4…42ef48 [0x03]: C0x0151.0x3.0
0x42edb4…42ef48 [0x04]: C0x0152.0x0.0
0x42edb4…42ef48 [0x05]: C0x0152.0x1.0
0x42edb4…42ef48 [0x06]: C0x0152.0x2.0
0x42edb4…42ef48 [0x07]: C0x0152.0x3.0
0x42edb4…42ef48 ]
0x42edb4…42ef48 }
0x42ef48…42f0dc Dummy {f00=0x0151, f01=0x0190, f02=» 2 P IDENT TIOSDM REL 11.0 81-02-26 870105041100 P : 6 P =4,MOVE KEY WHEN DELETE,REWRITE DIRECT INDEXED B P =4,REL 11.0 81-02-24 | : P =3,SKIP BITS 1-4 IN ORDER WHEN WRITE,DELETE,REWRITE P =3,REL 11.0 81-02-12 0 P =2,CLOSE D.
0x42f0dc…42f270 Dummy {f00=0x0151, f01=0x0190, f02=»1-26 | 8 P**************************************************** P* H $ P* PHILIPS TERMINAL SYSTEM PTS R P* z : P* TIOSDM = STANDARD DATA MANAGEMENT ACTIVATION PART P* P* P* P* P* P* 8 P**********
0x42f270…42f404 Dummy {f00=0x0151, f01=0x0190, f02=»D THE DWTADR IN FDB FOR CURRENT FILE P* , H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR 6 $ P* FROM A DISC MUST BE ACCESSED P* > P* ENTRY TIOSDM AND TIOSDM HOLDS THE START ADDRESS P* P*
0x42f404…42f598 Dummy {f00=0x0151, f01=0x0190, f02=» P EJECT TIOSDM P* 6 P* IN ALL DM MODULES FDB WILL BE THE SAME AS FWT ( P* b 4 P* THE FOLLOWING WORDS WILL BE SET IN THE FDB: l & P* FDBSNR SECTOR NUMBER IN FILE 0 P* FDBRRO RELATIVE RECORD OFFSET IN BLOCK . P* FD
0x42f598…42f72c Dummy {f00=0x0151, f01=0x018e, f02=»ION IS DETECTED THE ERROR RETURN WILL BE: z P* LDKL A1,/<RETURN CODE> 2 P* ABL DISEND V P* p P* z P EJECT P* P************** P* ENTRIES * P************** P* & P ENTRY TIOSDM REFERENCED IN DWTA
0x42f72c…42f8c0 Dummy {f00=0x0151, f01=0x018e, f02=» P* P****************** P* EXTERNALS * , P****************** F P* ` P EXTRN FDBRRO j P EXTRN FDBRLE P EXTRN FDBTNR P EXTRN FDBLRN P EXTRN FDBNIF,FDBKA,FDBADF P EXTRN FDBAI1,CRNCDF,CRNSTA 6 P
0x42f8c0…42fa54 (1, 1157) Dummy {f00=0x0151, f01=0x0190, f02=» P EXTRN SCTTCT P EXTRN RELPRO P EXTRN ACTOT 0 P EXTRN DISEND D EXTRN DWTECB ECB ADDRESS Z $ EXTRN DWTOR DWT INDEX AND ORDER | & P EXTRN DWTTAB DM TASK TTAB ADDRESS P EXTRN SDMTSK P EXTRN CALSNO " P EXTRN ECBBA,E
0x42fa54…42fbe8 Dummy {f00=0x0151, f01=0x0190, f02=» P EXTRN FDBEXC,MOVUS ( P EXTRN CRNCIF INDEX CURRENCY OFFSET P EXTRN DMACTI,DMACTD L P EXTRN DISIOE h P EXTRN TTABD,TTABLN,TABEND ~ P* P EJECT P* P************************ P* CONDITIONAL ASSEMBLY * P******
0x42fbe8…42fd7c Dummy {f00=0x0151, f01=0x0190, f02=»EQU 1 z * P* INDXAC EQU 0 OTHRERWISE PX:A EQU 0 < PINDXAC EQU X:A N P* d P* n . P* A PROGRAM VERSION USING TOSS MMU PAGING x * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P EJECT
0x42fd7c…42ff10 Dummy {f00=0x0151, f01=0x018e, f02=»RQERR EQU /8000 P EJECT P* & P************************ 0 P* DATA DEFINITIONS * P P************************ p P* P* BRANCH TABLE P* PTIODMF EQU * P IFT INDXAC=1 P DATA OPEN P DATA OPEN
0x42ff10…4300a4 Dummy {f00=0x0151, f01=0x0190, f02=» P DATA CLOSED P DATA CLOSE P DATA RDFIPA , PSDMOEX EQU *-TIODMF @ P DATA DISIOE NOT USED P* z P EJECT TIOSDM P* P* PQWRSQ0 EQU *-TIODMF P DATA WRSQ00 P DATA DISIOE NOT ALLOWED P DATA WRRN
0x4300a4…430238 Dummy {f00=0x0151, f01=0x0190, f02=»DECUIX P DATA DEDI00 P DATA DEDIIX " PQRDSQ0 EQU *-TIODMF 6 P DATA RDSQ00 R P DATA RDSQIX f P DATA RDRN00 z P DATA RDRNIX P DATA STEQ00 P DATA STEQIX PQSTG00 EQU *-TIODMF P DATA STGR00 PQSTGIX EQU *-T
0x430238…4303cc Dummy {f00=0x0151, f01=0x0190, f02=» DATA OPEN P DATA OPEN P DATA OPEN $ P DATA OPEN 6 P DATA OPEN H P DATA OPEN Z P DATA OPEN l PQCLDIS EQU *-TIODMF ~ P DATA CLOSE P DATA CLOSE P DATA RDFIPA PSDMOEX EQU *-TIODMF P DATA DISIOE NOT USED
0x4303cc…430560 Dummy {f00=0x0151, f01=0x0190, f02=» P DATA WRRN00 P DATA DISIOE NOT ALLOWED P DATA RWCU00 8 P DATA DISIOE NOT ALLOWED L P DATA RWDI00 l P DATA DISIOE NOT ALLOWED P DATA DECU00 P DATA DISIOE NOT ALLOWED P DATA DEDI00 P DATA DISIOE NOT ALLOWED P
0x430560…4306f4 (1, 1158) Dummy {f00=0x0151, f01=0x018e, f02=»A STEQ00 P DATA DISIOE NOT ALLOWED PQSTG00 EQU *-TIODMF 0 P DATA STGR00 L P DATA DISIOE NOT ALLOWED ` P DATA STNL00 P DATA DISIOE NOT ALLOWED P XIF P* P EJECT TIOSDM P* P********** P* OPEMOD *
0x4306f4…430888 Dummy {f00=0x0151, f01=0x0190, f02=» ~ P* 1 NOT USED =1 P* 2 START NOT LESS =1 P* 3 START GREATER =1 > P* 4 START EQUAL =1 Z P* 5 READ RANDOM =1 t P* 6 READ SEQUENTIAL =1 P* 7 DELETE DIRECT =1 P* 8 DELETE CURRENT =1 P* 9 REWRITE DIRECT =1 P* 10
0x430888…430a1c Dummy {f00=0x0151, f01=0x0190, f02=» P* 15 NOT USED =2 P* POPEMOD EQU * ( P DATA /3E00 INPUT UNPROT. =2 < " P DATA /3E00 INPUT PROTECTED =2 ` " P DATA /3E00 INPUT EXCLUSIVE =2 & P DATA /3FF8 INPUT/OUTPUT PROT. =2 & P DATA /3FF8 INPUT/OUTPUT EXCL. =2 $ P DATA /0
0x430a1c…430bb0 Dummy {f00=0x0151, f01=0x0190, f02=» P* P********** P* ORDTA1 * P* ORDTA2 * 2 P* ORDTA3 * D P********** V P* h P* r P* | : P* ORDTA1: ADMINISTATION FUNCTION ORDERS (NO INDEX) J P* ORDTA2: ORDER WITH SPECIAL INDEX HANDLING (FDBNIF CONTAIN INDE
0x430bb0…430d44 Dummy {f00=0x0151, f01=0x0190, f02=» PORDTA1 EQU * ( P DATA /821 OPEN INPUT UNPROTECTED PSDMOIP EQU *-ORDTA1 H & P DATA /921 OPEN INPUT PROTECTED d PSDMOIE EQU *-ORDTA1 & P DATA /A21 OPEN INPUT EXCLUSIVE PSDMIOP EQU *-ORDTA1 . P DATA /3921 OPEN INPUT
0x430d44…430ed8 Dummy {f00=0x0151, f01=0x0190, f02=»SIVE p PSDMOOS EQU *-ORDTA1 4 P DATA /1221 OPEN OUTPUT SEQUENTIAL EXCLUSIVE ( PSDMOOR EQU *-ORDTA1 ` 4 P DATA /3221 OPEN OUTPUT RANDOM EXCLUSIVE | PSDMLIM EQU *-ORDTA1 P DATA /222 CLOSE DISCARD P DATA /022 CLOSE LOCK
0x430ed8…43106c Dummy {f00=0x0151, f01=0x0190, f02=»/106 WRITE RANDOM P DATA /407 REWRITE CURRENT P DATA /107 REWRITE DIRECT < P DATA /408 DELETE CURRENT ^ P DATA /108 DELETE DIRECT PORDTL2 EQU *-ORDTA2 P EJECT PORDTA3 EQU * P DATA /002 READ SEQUENTIAL P DATA /1
0x43106c…431200 Dummy {f00=0x0151, f01=0x0190, f02=»3 ~ PORDTEN EQU * P* P* ( P EJECT TIOSDM 2 P* H P************ R P* ENTRY f P************ x P* $ P* INPUT : A14 = STACK POINTER " P* A8 = ECB ADDRESS " P* A6 = FDB ADDRESS
0x431200…431394 (1, 1159) Dummy {f00=0x0151, f01=0x0190, f02=» OPTION n P LDK A3,ORDTL3-2 & P LD A7,DWTOR,A11 ORDER AND OPTION ( P LDR A1,A7 R P ANKL A7,/7FF NOT INDEX d P CF A14,CHKORD P RF(N) TIOS10 NOT IN TABLE P SLL A3,1 & P ADK A3,QRDSQ0 ADJUST DISPLACEMENT P SRL A1,11
0x431394…431528 Dummy {f00=0x0151, f01=0x0190, f02=»ESS | P ABL DISIOE REQUEST IO P* * P EJECT TIOSDM 4 P* J P* T P* ^ PTIOS10 EQU * h " P LDK A3,ORDTL2-2 TABLE LENGTH | P* LDR A7,A1 =3 P CF A14,CHKORD $ P RF(N) TIOS25 ORDER NOT IN TABLE P SLL A3,1 &
0x431528…4316bc Dummy {f00=0x0151, f01=0x0190, f02=» P ADK A3,2 INDICATE INDEXED * PTIOS20 EQU * CHECK ORDER VS OPEN MODE & $ P LC A1,FDBOMD,A11 GET OPEN MODE T P ANK A1,/7F | P AN A2,OPEMOD,A1 P RB(Z) REQERR ILLEGAL ORDER P RF TIOS30 P* PTIOS25 EQU * & P LDR A7,A1 O
0x4316bc…431850 Dummy {f00=0x0151, f01=0x0190, f02=»DM P* P* PTIOS30 EQU * P LDR A10,A3 2 P SC A3,DWTOR+1,A11 F 4 P LD A5,DWTTAB,A11 GET CALLING TASK TTAB ADDRESS ` P SUK A3,QCLDIS CLOSE DISCARD P RF(N) TIOS35 OPEN ORDER P CWK A11,FDBSTA P RB(E) REQERR NOT OP
0x431850…4319e4 Dummy {f00=0x0151, f01=0x0190, f02=»RR OTHER TASK EXCLUSIVE ACCESS PTIOS35 EQU * & P LD A1,SCTTCT : P LDR* A2,A1 TAB LENGTH P P ADR A1,A2 n P SRL A2,1 PTIOS40 EQU * P SUK A1,2 P SUK A2,1 P RF(Z) TIOS50 END OF SCTTCT P CWR* A5,A1 P RB(NE
0x4319e4…431b78 Dummy {f00=0x0151, f01=0x0190, f02=»SEARCH DM TASK P* PTIOS50 EQU * $ P LDK A2,/FF DATA MANAGEMENT TASK 4 " P LDKL A1,TTABD TTAB ADDRESS #D PTIOS55 EQU * P CWR A5,A1 P RB(E) TIOS45 CORRECT TASK P ADKL A1,TTABLN NEXT TTAB P CWK A1,TABEND P RB(E)
0x431b78…431d0c Dummy {f00=0x0151, f01=0x0190, f02=»CRNGET CURRENCY P INH & P LDR A4,A2 CURRENCY BUFFER ADDRESS $ P LDK A2,0 N " P SC A2,CRNSTA,A4 RESET STATUS ` $ P LC A2,CRNCDF+1,A4 GET CURRENCY P LD A3,CRNCDF+2,A4 P LDKL A9,/40 MAX KEY LENGTH * P ABI TIODMF,A10 BRANCH TO DM
0x431d0c…431ea0 Dummy {f00=0x0151, f01=0x0190, f02=»TASK r " P* A11= FDB ADDRESS DATA FILE P* A7 = USER ORDER WORD 2 P* A8 = USER ECB ADDRESS R " P* A9 = MAX KEY LENGTH = /40 t * P* A10= DISPLACEMENT IN TIODMF TABLE P* P* P IFT INDXAC=1 P* P EJECT
0x431ea0…432034 (1, 1160) Dummy {f00=0x0152, f01=0x0190, f02=»NDEXED f P* ( PRWDIIX EQU * REWRITE DIRECT INDEXED & PDEDIIX EQU * DELETE DIRECT INDEXED D * P LD A7,FDBAI1,A11 PRIMARY INDEX FDB =4 n 0 P CF A14,SWHECO SWITCH ECB AND ORDER CODE =4 P RF IXR030 MOVE KEY =4 P EJECT P* P**
0x432034…4321c8 Dummy {f00=0x0152, f01=0x0190, f02=»D READ RANDOM INDEXED | P* PSTEQIX EQU * ( PSTGRIX EQU * < PSTNLIX EQU * P P LD A9,ECBRL,A8 KEY LENGTH d PRDRNIX EQU * P CF A14,SWHFDB SWITCH FDB PIXR030 EQU * =4 P RB(Z) REQERR NO FDB " P LDR A2,A7 INDEXED FDB A
0x4321c8…43235c Dummy {f00=0x0152, f01=0x0190, f02=»EY LENGTH PIXR050 EQU * P CMR A4 CLEAR KEY AREA & P ADK A4,2 D P SUK A1,2 V P RB(P) IXR050 MORE TO CLEAR h P* P EJECT P* P* FETCH KEY TO INDEX FDB P* P LD A1,ECBBA,A8 RECORD ADDR P AD A1,FDB
0x43235c…4324f0 Dummy {f00=0x0152, f01=0x018e, f02=»6,A3 SAVE MIN LENGTH P CF A15,MOVUS MOVE KEY ! P* ! : P EJECT TIOSDM ! D P* ! Z 0 P* INCREASE KEY IF 'START GREATER ' IS REQ ! d P* ! P CWK A10,QSTGIX ! $ P RF(NE) STA020 NOT START GREATER ! PSTA010 EQU * ! P SUK A2,1 ADDR LAS
0x4324f0…432684 Dummy {f00=0x0152, f01=0x0190, f02=» ! | P SUK A6,1 " P RB(P) STA010 MORE BYTES " PSTA020 EQU * " : P* " N P* SWITCH TO INDEX FDB " X P* " x P LDR A11,A7 INDEX FDB " P RF TIORRO " P EJECT " P* " P* " P********** " P* WRRNIX * " P********** "
0x432684…432818 Dummy {f00=0x0152, f01=0x0190, f02=» FDB KEY AREAS " P* # P LDK A4,8 # PIXINS3 EQU * # 2 P LDR A2,A11 FDB DATA # F P ADR A2,A4 # b P LD A2,FDBADF,A2 FDB INDEX # t P RF(Z) IXINS4 NO INDEX # P LD A1,FDBKA,A2 KEY ADDR # " P LD A3,FDBRLE,A2 RECORD LENGTH # & P AD A1,ECBBA,A
0x432818…4329ac Dummy {f00=0x0152, f01=0x018e, f02=» P SUK A4,2 $ P RB(NZ) IXINS3 MORE INDEXS $ P XIF $ 8 P* $ D P EJECT TIOSDM $ N P* $ d P* $ n P********** $ x P* WRSQ00 * $ P********** $ P* $ P* WRITE SEQUENTIAL $ P* $ PWRSQ00 EQU * $ P LC A2,FDBLRN,A11 $
0x4329ac…432b40 Dummy {f00=0x0152, f01=0x0190, f02=» P********** % P* RDSQIX * % P********** % ( P* % : P* READ SEQUENTIAL INDEXED % D P* % h P* % r PRDSQIX EQU * % | P CF A14,SWHFDB SWITCH FDB % P ABL(Z) REQERR FDB NOT FOUND % $ P LDR A11,A7 INDEXED FDB ADDRESS % P* % P
0x432b40…432cd4 (1, 1161) Dummy {f00=0x0152, f01=0x018e, f02=»A11 FILE NR % P CC A7,CRNCIF,A4 & . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT & , P LC A2,CRNCIF+1,A4 & ^ " P LD A3,CRNCIF+2,A4 LOG REC NO & x P XIF & PIXR020 EQU * & $ P CF A14,ADDONE A2,A3 = A2,A3 + 1 & * P RF TIODMA DO NOT CHECK EOF CONDIT
0x432cd4…432e68 Dummy {f00=0x0152, f01=0x0190, f02=» PRDSQ00 EQU * ' " P CF A14,ADDONE A2,A3=A2,A3 + 1 ' P RF RAN050 ' > P EJECT ' P P* ' ^ P********** ' h P* RDRN00 * ' z P********** ' P* ' P* READ RANDOM ' P* ' PRDRN00 EQU * ' P LD A2,ECBCW,A8 REC NR ' P LD A3,ECBCW
0x432e68…432ffc Dummy {f00=0x0152, f01=0x0190, f02=» ' j P RF TIODMA ( P EJECT ( P* ( ( P* ( 2 P********** ( < P* OPEN * ( N P********** ( ` P* ( r P* OPEN ( | P* ( POPEN EQU * ( P CWK A11,FDBSTA ( P RF(E) OPE050 FILE CODE FREE ( P LDKL A1,EDMERR ( P LDK A2,FCUS
0x432ffc…433190 Dummy {f00=0x0152, f01=0x0190, f02=»TH ( x P CW A4,ECBRL,A8 REQ ) P RF(G) ENDIO ERROR ) & P RF TIORRO ) @ P* ) R P EJECT TIOSDM ) P* ) r P* ) | P********** ) P* RDFIPA * ) P********** ) P* ) P* READ FILE PARAMETR ) P* ) PRDFIPA EQU * ) P ST A2
0x433190…433324 Dummy {f00=0x0152, f01=0x0190, f02=» ACTIVATE DN TASK #D ) P* * P EJECT * & P* * 4 P********** * > P* CLOSED * * P P********** * b P* * t P* * ~ PCLOSED EQU * * P* * P* TEST IF INDEX * P* * P* LC A1,FDBNIF,A11 * & P* ANK A1,/F NUMBER OF INDEX FILES *
0x433324…4334b8 Dummy {f00=0x0152, f01=0x0190, f02=»D ALLOWED =2 * v , P LDKL A1,RQERR INDICATE REQUEST ERROR =2 + ( P ORS A1,ECBRC,A8 SET RETURN CODE =2 + D 0 P SC A1,DWTOR,A11 CHANGE CLOSE D. TO CLOSE =2 + p P EJECT + P* + P********** + P* CLOSE * + P********** + P* + P* + PCL
0x4334b8…43364c Dummy {f00=0x0152, f01=0x0190, f02=»2,/FF FILE CODE + $ P LDK A5,0 SEARCH TTAB AND CDTAB , P CF A14,FNDFDB SEARCH , @ $ P LDKL A2,FDBSTA SYSTEM FWT ADDR , ^ P ST A2,2,A4 FC ENTRY , P LDK A1,0 , P LC A1,FDBLRN,A11 , & P LD A2,FDBLRN+1,A11 LAST RECORD NR , P RF(NZ) CLO100 ,
0x43364c…4337e0 Dummy {f00=0x0152, f01=0x018e, f02=»**** , P* STEQ00 * - P* STGR00 * - P* STNL00 * - 0 P********** - B P* - T ( P* START EQUAL,GREATER AND NOT LESS - ^ P* - PSTEQ00 EQU * - PSTGR00 EQU * - PSTNL00 EQU * - P LD A2,ECBCW,A8 REC NR - P LD A3,ECBCW+2,A8 - " P
0x4337e0…433974 (1, 1162) Dummy {f00=0x0152, f01=0x0190, f02=» - P* RWCUIX * . P* DECU00 * . P* DECUIX * . , P* WRRN00 * . > P* RWDI00 * . P P* DEDI00 * . b P* TIODMA * . t P********** . P* . 0 P* REWRITE CURRENT,REWRITE CURRENT INDEXED . . P* DELETE CURRENT,DELETE CURRENT INDEXED . $ P
0x433974…433b08 Dummy {f00=0x0152, f01=0x0190, f02=»DECUIX EQU * . PTIODMA EQU * / P ST A2,ECBCW,A8 REC NR / ( P ST A3,ECBCW+2,A8 / F PWRRN00 EQU * WRITE RANDOM / ` PRWDI00 EQU * REWRITE DIRECT / PDEDI00 EQU * DELETE DIRECT / " P LD A1,ECBCW,A8 RECORD NUMBER / P LD A2,ECBCW+2,A8 / P
0x433b08…433c9c Dummy {f00=0x0152, f01=0x0190, f02=»11 / P CF A14,EATEST 0 " P LDR A11,A9 SAVED FDB ADDRESS 0 P ADK A3,0 0 F P RF(N) TIODPE EA OTHER TASK 0 X PTIODMD EQU * 0 | 6 P CF A14,CALSNO GET SECTOR NO AND OFFSET IN SECTOR 0 P RF(NZ) TIODME 0 P* 0 P EJECT 0 P* 0 P******
0x433c9c…433e30 Dummy {f00=0x0152, f01=0x0190, f02=» LDR A6,A11 FDB ADDRESS 0 & P LDKL A2,SDMTSK ACTIVATION ADDRESS 1 P CWK A10,QWRSQ0 1 J * P ABL(L) DMACTD ADMINISTRATION FUNCTION 1 b P ABL DMACTI ACTIVATE DM TASK 1 P* 1 P EJECT 1 P* 1 P********** 1 P* TIODPE * 1 P* TIODME * 1
0x433e30…433fc4 Dummy {f00=0x0152, f01=0x0190, f02=»C A3,FDBTNR,A11 USER TASK ID 1 P ANK A3,/FF 2 $ " P CF A14,RELPRO RELEASE PROTECT 2 8 P LDKL A1,PROERR 2 ^ PTIODME EQU * 2 v ( P LD A6,FDBADF,A11 DATA FILE FDB ADDR 2 PENDIOL EQU * 2 , P ABL DISEND CALL TENDIO GOTO DISPATCHER 2 PENDIO EQU * 2
0x433fc4…434158 Dummy {f00=0x0152, f01=0x0190, f02=» 2 P********** 3 P* 3 P* CHECK IF ORDER IN TABLE 3 $ P* 3 H . P* INPUT : A10=ADDRESS TO ORDER TABLE END 3 R P* A3=LENGTH 3 P* A7=ORDER/OPTION 3 P* 3 P* OUTPUT: A2=ORDER BIT 3 * P* A3=ENTRY
0x434158…4342ec Dummy {f00=0x0152, f01=0x018e, f02=»0 IF ORDER FOUND IN TABLE 3 P* CR=2 ELSE 4 " P* 4 @ PCHKORD EQU * 4 J P ADKL A14,4 4 ^ PCHKO10 EQU * 4 r P SRL A2,1 4 P CWR* A7,A10 4 P RF(E) CHKO20 ORDER IN TABLE 4 P SUKL A10,2 NEXT ENTRY 4 P SUK A3,2 4 & P RB(NN)
0x4342ec…434480 Dummy {f00=0x0152, f01=0x0190, f02=» 4 P* ADDONE * 5 P********** 5 P* 5 , * P* DOUBLE ADD ONE ON REGISTERS A2,A3 5 6 P* 5 d PADDONE EQU * 5 n P ADK A3,1 5 * P RF(P) ADDO10 NOT OVERFLOW OR NEGATIVE 5 P LDK A3,0 5 P ADK A2,1 ADD CARRY 5 PADDO10 EQU * 5 P RTN
0x434480…434614 (1, 1163) Dummy {f00=0x0152, f01=0x0190, f02=»RESS AND MOVE PARAMETERS 5 ~ P* 6 P* INPUT : A11=FDB ADDRESS 6 * & P* OUTPUT : A7=INDEX FDB ADDRESS 6 N 6 P* A7=0 , IF NO INDEX FDB ADDRESS FOUND 6 x ( P* CR SET ACCORDING TO A7 6 P* A3 IS USED 6 P* 6 P
0x434614…4347a8 Dummy {f00=0x0152, f01=0x4142, f02=»AI1,A7 INDEX FDB ADDR 6 P RF(Z) SWHF90 NOT FOUND 7 ( PSWHECO EQU * SWITCH ECB AND ORDER =4 7 > & P LD A3,DWTECB,A11 MOVE PARAMETERS 7 j P ST A3,DWTECB,A7 7 P LD A3,DWTOR,A11 7 P ST A3,DWTOR,A7 7 PSWHF90 EQU * 7 P ADKL A14,4 7 P ADK
0x4347a8…43493c Dummy {f00=0x0152, f01=0x2008, f02=» 8
0x43493c…434ad0 Dummy {f00=0x0152, f01=0x018e, f02=» 8 l P SUK A4,OSTRTX-OWRRMX 9 P RF(Z) DMT410 START INDEXED 9 & P XIF 9 J P LDR A4,A7 ORDER INDEX 9 V P SUK A4,OSTRTD 9 t $ P RF(NZ) DMT430 NOT START DIRECT 9 P EJECT 9 P* 9 * P* START A1,A2=LOGICAL RECORD NUMBER 9 P* 9 P* LRN=
0x434ad0…434c64 Dummy {f00=0x0152, f01=0x0190, f02=» 9 P SUK A3,1 : P* : $ P* SET NEW CURRENT RECORD NUMBER : $ P* : L PDMT420 EQU * : V " P ST A3,CRNCDF,A10 NEW CURRENCY : j P ST A4,CRNCDF+2,A10 : P RF DMT450 : P : P* : P* SET CURRENT RECORD NUMBER : P* : PDMT430 EQU
0x434c64…434df8 Dummy {f00=0x0152, f01=0x0190, f02=»* : PDMT440 EQU * ; P SC A1,FDBLRN,A11 ; P ST A2,FDBLRN+1,A11 ; 8 P EJECT ; T PDMT450 EQU * ; b P* ; v P* CHECK PROTECT ; P* ; P LC A4,FDBOMD,A11 OPEN MODE ; P ANK A4,/FF ; P CWK A4,SDMOIP ; & P RF(E) DMT460 OPEN INP
0x434df8…434f8c Dummy {f00=0x0152, f01=0x018e, f02=» ; r P* < PDMT460 EQU * < P CF A14,EATEST CHECK EA < & " P RF(NZ) DMT470 EA ALREADY SET < F P* < l P* SET EA < v P* < P CF A14,EASETB < PDMT470 EQU * < P LDK A1,0 SET RETURN CODE < P IFT INDXAC=1 < P LDK A4,OWRRMX <
0x434f8c…435120 Dummy {f00=0x0152, f01=0x0190, f02=» , P* * = , P* E X I T D M T A S K * = 4 , P* * = d , P*************************************** = P = P* = PDMTERR EQU * = P LC A4,FDBDBR,A11 = P ANK
0x435120…4352b4 (1, 1164) Opaque[0x194]
0x4352b4…435448 # DirEnt {nam=»TLDPGM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a60, f03=0x0000}
0x4352b4…435448 IdxSect {
0x4352b4…435448 f00 = 0x0153 // 0x4352b4 @0x0
0x4352b4…435448 f01 = 0x0008 // 0x4352b6 @0x2
0x4352b4…435448 gno = [ // 0x4352b8 @0x4
0x4352b4…435448 [0x00]: C0x0153.0x0.0
0x4352b4…435448 [0x01]: C0x0153.0x1.0
0x4352b4…435448 [0x02]: C0x0153.0x2.0
0x4352b4…435448 [0x03]: C0x0153.0x3.0
0x4352b4…435448 ]
0x4352b4…435448 }
0x435448…4355dc Dummy {f00=0x0153, f01=0x018e, f02=» 2 P IDENT TLDPGM REL 11.0 81-01-26 870105041100 P : @ <************************************************************ B @ <* * @ <* PHILIPS TERMINAL SYSTEM PTS *
0x4355dc…435770 Dummy {f00=0x0153, f01=0x0190, f02=» R @ P* TLDPGM - LOAD/UNLOAD PROGRAM PROCESSOR * @ <* * L @ <* THIS MODULE CONTAINS THE LKM PROCESSOR USED IN TOSS * @ P* DISC PAGING SYSTEMS FOR RUNTIME PROGRAM LOADING &
0x435770…435904 Dummy {f00=0x0153, f01=0x0190, f02=» * B P* REQUEST: LKM * B P* DATA 25 * V B P* * B P* REQUEST PARAMETERS: A1=0 - UNLOAD
0x435904…435a98 Dummy {f00=0x0153, f01=0x0190, f02=»CTOR ADDRESS IN FILE * n B P* * $ B P* RETURN PARAMETERS: A7 UNCHANGED IF OK * j B P* A7=-1 IF ILLEGAL FILE NUMBER * @ <*
0x435a98…435c2c Dummy {f00=0x0153, f01=0x0190, f02=»********* * ENTRIES * ************* ( $ P ENTRY TLDPGM LOAD PROGRAM ENTRY > f EJECT n *************** | * EXTERNALS * *************** " P EXTRN TDISP DISPATCHER ENTRY 2 - EXTRN QLTASK QUEUE LOAD TASK
0x435c2c…435dc0 Dummy {f00=0x0153, f01=0x0190, f02=» r & P EXTRN LD:STB LOAD TASK STACK BASE , P EXTRN LKMQDI QUEUE TASK FOR DISPATCHING 2 , P EXTRN QMEXIT QUEUE TASK FOR DISPATCHING b 0 + EXTRN TTB:SP SEGMENT TABLE POINTER IN TTAB 0 P EXTRN TTB:SB SEGMENT BLOCK POINTER IN TTAB . P EXTRN TTB:AP
0x435dc0…435f54 (1, 1165) Dummy {f00=0x0153, f01=0x0190, f02=»RN SEG:FC VOLUME FILE CODE FOR SEGMENTS " P EXTRN SEG:EL EFFECTIVE LENGTH 0 , ( EXTRN FWTVOL DISPL. TO VOLUME FILE CODE V " P EXTRN FWTEXB FILE EXTENT BASE * & EXTRN SCTFWT START OF FILE WORK TABLE . ) EXTRN SCTFWL FILE WORK TABLE LENGTH/TASK
0x435f54…4360e8 Dummy {f00=0x0153, f01=0x0190, f02=»NT TABLE POOL r EJECT P************* $ * EQUATES * : ************* P ECBFN EQU 1 FILE NUMBER f ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE
0x4360e8…43627c Dummy {f00=0x0153, f01=0x0190, f02=» 10 DISPL. TO NUMBER OF SEGMENTS EJECT ( PTLDPGM EQU * 6 P* J " P* SELECT LOAD/UNLOAD REQUEST T P* z P ADK A1,0 & P RF(NZ) LOAD LOAD PROGRAM REQUEST P* P* UNLOAD PROGRAM PROCESSING P* PULD:10 EQU *
0x43627c…436410 Dummy {f00=0x0153, f01=0x0190, f02=» f . P CM TTB:SB,A5 CLEAR SEGMENT BLOCK POINTER & P LD A2,SCTTCT GET ADDRESS TO TCTAB : $ P LDR* A3,A2 GET LENGTH OF TCTAB d PULD:20 EQU * P SUK A3,2 DECREMENT LENGTH P RF(Z) ULD:30 NO MOORE TASKS " P ADK A2,2 NEXT ENTRY IN TCTAB
0x436410…4365a4 Dummy {f00=0x0153, f01=0x0190, f02=» P RB(NE) ULD:20 NO P RF ULD:40 PULD:30 EQU * 0 * P CM SEG:NS,A1 CLEAR NUMBER OF SEGMENTS D PULD:40 EQU * r ( P ABL LKMQDI QUEUE TASK AND DISPATCH P EJECT PLOAD EQU * P* : P* ACTIVATE LOAD TASK AT ENTRY LP:LST DISPAT
0x4365a4…436738 Dummy {f00=0x0153, f01=0x0190, f02=»5,QLTASK ACTIVATE LOAD TASK P ENB $ P ABL TDISP GO TO DISPATCHER 0 P EJECT T P* b , P* LOAD PROGRAM - RUNNING TASK IS LDTASK l P* PLP:LST EQU * ( P LDKL A14,LD:STB LOAD A14 STACK BASE & P LDR A5,A3 GET CALLING TASKS TTAB
0x436738…4368cc Dummy {f00=0x0153, f01=0x0190, f02=»ET DISC ADDRESS BITS 16-30 z 0 + LD A2,SCTFWT START OF FILE WORK TABLE AREA " * &LP:100 SUK A1,1 FILE WORK TABLE FOUND? V RF(Z) LP:200 YES & " AD A2,SCTFWL NEXT FILE WORK TABLE RB LP:100 PLP:200 EQU * & P LDKL A1,LD:BUF GET BUFFER
0x4368cc…436a60 Dummy {f00=0x0153, f01=0x0190, f02=»F A14,RDSFM READ FIRST SECTOR 6 P LC A6,FWTEXB-1,A2 GET FILE EXTENT BASE (BITS 0-7) & P ANK A6,/FF ISOLATE ADDRESS ` 6 P LD A11,FWTEXB,A2 GET FILE EXTENT BASE (BITS 8-23) P RF(NZ) LP:300 P SUK A6,1 PLP:300 SUKL A11,1 * P CF A14,
0x436a60…436bf4 (1, 1166) Dummy {f00=0x0153, f01=0x0190, f02=»GETFST GET FREE SEGMENT TABLE 0 P ADK A1,0 A1=0 IF NO SEGMENT TABLE AVALIABLE & , P RF(Z) REQERR IMPOSSIBLE TO LOAD PROGRAM Z * P LC A2,FWTVOL,A2 GET VOLUME FILE CODE . P SC A2,SEG:FC+1,A1 STORE IN SEGMENT TABLE 0 P LD A3,LD:BUF+NUMSEG GET NUMBE
0x436bf4…436d88 Dummy {f00=0x0153, f01=0x0190, f02=»NTS t 6 P ST A3,SEG:NS,A1 STORE CURRENT NUMBER OF SEGMENTS 2 P LDKL A2,LD:BUF+NUMSEG START OF SEGMENT BLOCKS F * | * STORE BLOCK 0 * ( # LDKL A4,/8400 STATUS FOR SEGMENT 0 STR A4,A1 STORE STATUS . P CM 2,A1 CLEAR STATU
0x436d88…436f1c Dummy {f00=0x0153, f01=0x0190, f02=»BLOCKS * PI:SBLK SUK A3,1 $ RF(N) LPMEND NO MOORE SEGMENTS! 0 $ P CF A14,GETWSG GET DISC ADDRESS X " ANK A4,/FF CLEAR STATUS BYTE $ P ADR A4,A6 RELOCATE DISC ADDRESS , ( STR A4,A1 STORE STATUS AND DISC ADDRESS $ ADK A1,2
0x436f1c…4370b0 Dummy {f00=0x0153, f01=0x0190, f02=»RE ADK A1,2 SEGMENT LENGTH & P CF A14,GETWSG GET SEGMENT LENGTH , STR A4,A1 STORE V & P CM 2,A1 CLEAR PAGE BLOCK ADDRESS n ADK A1,4 NEXT SEGMENT BLOCK RB I:SBLK P EJECT PLPMEND EQU * * P ABL QMEXIT QUEUE TASK F
0x4370b0…437244 Dummy {f00=0x0153, f01=0x0190, f02=»:SA+14,A5 SET RETURN CODE IN A7 P RB LPMEND ( EJECT : < 8***************** INTERNAL SUBROUTINES ***************** H * " * GETWSG - GET WORD IN S:GTAB * & !* ENTRY: A2 - POINTER IN S:GTAB * " *
0x437244…4373d8 Dummy {f00=0x0153, f01=0x018e, f02=»* , (GETWSG ADK A2,2 INCREMENT S:GTAB POINTER " P CWK A2,LD:BUE END OF SECTOR? : RF(NE) GETRTN NOT YET ` " P CF A14,RDSFM READ NEXT SECTOR ~ $ LDKL A2,LD:BUF START OF BUFFER " GETRTN LDR* A4,A2 GET CONTENT P RTN A14 EJECT
0x4373d8…43756c Dummy {f00=0x0153, f01=0x0190, f02=» 2 .* REQUESTED LENGTH AND SECTOR ADDRESS * : 2 .* EXIT: SECTOR ADDRESS IS INCREMENTED BY ONE D * z * WORK REGISTERS: A7,A8 * " PRDSFM LDK A7,PHYRD LOAD ORDER $ P LDKL A8,LD:ECB LOAD ECB-ADDRESS 6 P ST A9,LD:
0x43756c…437700 Dummy {f00=0x0153, f01=0x0190, f02=»* * CHECK RETURN CODE * & ( P LD A7,LD:ECB+ECBRC GET RETURN CODE 0 " P ANKL A7,/FEFF SKIP RETRY BIT P RF(Z) RDSF10 OK! & P ANK A7,1 BIT 15=DISC NOT OPERABLE " P NGR A7,A7 TAKE 2'S COMPLEMENT $ P SUK A7,2 SET ERROR RETURN C
0x437700…437894 (1, 1167) Dummy {f00=0x0153, f01=0x018e, f02=»F(NN) RDSRET OVERFLOW? $ P ADKL A9,1 INCR. MOST SIGN. PART " P RB(Z) REQERR ADDRESS OVERFLOW F P XRR A10,A10 RESET CARRY l PRDSRET RTN A14 P EJECT P* P* ( P* CHIPLD - CHECK IF PROGRAM LOADED P* . P* ENTRY: A6
0x437894…437a28 Dummy {f00=0x0153, f01=0x0190, f02=» ( P* EXIT: A1=0 - PROGRAM NOT LOADED , P* A1<>0 - SEGMENT TABLE ADDRESS 4 P* d & P* WORK REGISTERS: A1,A3,A4,A7,A8 n P* PCHIPLD EQU * & P LD A7,SCTTCT GET ADDRESS TO TCTAB $ P LDR* A8,A7 GET LENGTH OF TCTAB P
0x437a28…437bbc Dummy {f00=0x0153, f01=0x018e, f02=» TTAB-ADDRESS | . P LD A1,TTB:SP,A1 GET SEGMENT TABLE POINTER , P RB(Z) CHPL10 NO SEGMENT TABLE ATTACHED H . P LD A3,LD:BUF+12 GET DISC ADDRESS BITS 0-7 x P ANK A3,/FF ISOLATE ADDRESS P ADR A3,A6 RELOCATE ADDRESS 2 P LD A4,8,A1 GET DISC A
0x437bbc…437d50 Dummy {f00=0x0153, f01=0x018e, f02=» | 0 P LD A3,LD:BUF+14 GET DISC ADDRESS BITS 8-23 P ADR A3,A11 RELOCATE < 2 P LD A4,10,A1 GET DISC ADDRES IN SEGMENT TABLE X , P CWR A3,A4 LEAST SIGNIFICANT PART EQUAL? P RB(NE) CHPL10 NO P RF CHPL90 PCHPL50 EQU * * P XRR A1,A1
0x437d50…437ee4 Dummy {f00=0x0153, f01=0x0190, f02=» P* & P* GETFST - GET FREE SEGMENT TABLE P* 8 P* ENTRY: B P* T ( P* EXIT: A1 - SEGMENT TABLE POINTER ^ P* P* WORK REGISTER: A1,A3 P* PGETFST EQU * ( P LD A1,TTB:AP,A5 GET ADDRESS TO ACB 4 P LD A1,ACB
0x437ee4…438078 Dummy {f00=0x0153, f01=0x4178, f02=»NTS l P RF(Z) GFST30 NOT USED PGFST20 EQU * * , P LD A1,SEG:EL,A1 GET SEGMENT TABLE LINK > ( P RF(Z) GFST40 NO MORE SEGMENT TABLES n * P SUK A1,4 ADJUST SEGMENT TABLE POINTER P RB GFST10 CHECK NEXT SEGTAB PGFST30 EQU * 0 P ST A1,T
0x438078…43820c Dummy {f00=0x0153, f01=0x2008, f02=» CW2 RESET CARRY RDSRET RTN A15 END 6@ BECB+ECBRC GET RETURN CODE < , ( ANKL A7,/A07F GET ERROR INDICATING BITS h RB(NZ) LDPERR I/O ERROR * * INCREMENT SECTOR ADDRESS * , ( IM LDPECB+ECBCW2 INCR.
0x43820c…4383a0 Dummy {f00=0x0153, f01=0x0190, f02=»1 INITIATE NO OF APPL. P STR A1,A3 AND SAVE IN TABLE > P ST A8,APLADA+2,A3 SAVE APPLICATION DISC ADDRESS BIT 0-15 B > P ST A7,APLADA+4,A3 SAVE APPLICATION DISC ADDRESS BIT 16-31 * P ST A9,SCTSFA SAVE START OF FREE AREA P LDKL A14,SYSLOD
0x4383a0…438534 (1, 1168) Opaque[0x194]
0x438534…4386c8 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a80, f03=0x0000}
0x438534…4386c8 IdxSect {
0x438534…4386c8 f00 = 0x0154 // 0x438534 @0x0
0x438534…4386c8 f01 = 0x0008 // 0x438536 @0x2
0x438534…4386c8 gno = [ // 0x438538 @0x4
0x438534…4386c8 [0x00]: C0x0154.0x0.0
0x438534…4386c8 [0x01]: C0x0154.0x1.0
0x438534…4386c8 [0x02]: C0x0154.0x2.0
0x438534…4386c8 [0x03]: C0x0154.0x3.0
0x438534…4386c8 ]
0x438534…4386c8 }
0x4386c8…43885c Dummy {f00=0x0154, 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*
0x43885c…4389f0 Dummy {f00=0x0154, 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
0x4389f0…438b84 Dummy {f00=0x0154, 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
0x438b84…438d18 Dummy {f00=0x0154, 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
0x438d18…438eac Dummy {f00=0x0154, 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************************************
0x438eac…439040 Dummy {f00=0x0154, f01=0x0190, f02=» EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION " . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTI
0x439040…4391d4 (1, 1169) Dummy {f00=0x0154, 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
0x4391d4…439368 Dummy {f00=0x0154, 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*
0x439368…4394fc Dummy {f00=0x0154, 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 *
0x4394fc…439690 Dummy {f00=0x0154, 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
0x439690…439824 Dummy {f00=0x0154, 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
0x439824…4399b8 Dummy {f00=0x0154, 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
0x4399b8…439b4c Dummy {f00=0x0154, 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
0x439b4c…439ce0 Dummy {f00=0x0154, 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
0x439ce0…439e74 (1, 1170) Dummy {f00=0x0154, 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
0x439e74…43a008 Dummy {f00=0x0154, 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
0x43a008…43a19c Dummy {f00=0x0154, 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
0x43a19c…43a330 Dummy {f00=0x0154, 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
0x43a330…43a4c4 Dummy {f00=0x0154, 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
0x43a4c4…43a658 Dummy {f00=0x0154, 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
0x43a658…43a7ec Dummy {f00=0x0154, 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* END @ $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x43a7ec…43a980 Dummy {f00=0x0154, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x43a980…43ab14 (1, 1171) Dummy {f00=0x0154, f01=0x0190, f02=»GET ADDRESS TO PHYSICAL PAGE = $ P ANKL A1,/C000 GREATER THAN 64K? > $ P RF(Z) AP:353 NO! > L P LDK A1,0 UPPER LIMIT 64 KB > f P RF AP:354 > PAP:353 EQU * > $ P LDR* A1,A6 GET PHYSICAL ADDRESS > P SLL A1,2 > P ADR A1,A4 ADD DISPLACEMENT >
0x43ab14…43aca8 Dummy {f00=0x0154, f01=0x0008, f02=»$ $ $ $
0x43aca8…43ae3c Dummy {f00=0x0154, f01=0x0190, f02=» 2 P IDENT TIOADM PRR 11.0 80-11-19 870105041100 P : P* B 4 P*********************************************** L P* . P* TIOADM TOSS ABRIDGED DATA MANAGEMENT " P* ACTIVATION MODULE P* 4 P************************
0x43ae3c…43afd0 Dummy {f00=0x0154, f01=0x0190, f02=»14 = STACK BASE P* $ P* OUTPUT: A2=DISPATCH ADDRESS " P* J P EJECT TIOADM T P* j P* t P**************** ~ P* ENTRY * P**************** P* P* $ P ENTRY TIOADM ACTIVATION ADDRESS P*
0x43afd0…43b164 Dummy {f00=0x0154, f01=0x0190, f02=»WTOR P EXTRN DWTTAB P EXTRN FPB:BF BLOCK FACTOR " P EXTRN FPB:BO TOSS OPTION D P EXTRN FPB:EL ENLARGE FACTOR f P EXTRN DISIOE P EXTRN ECBBA P EXTRN ECBRL P EXTRN ECBCW1 P EXTRN ECBCW2 $ P EXTRN FPB:FO FILE O
0x43b164…43b2f8 Dummy {f00=0x0154, f01=0x0190, f02=» FDBOMD OPEN MODE " P EXTRN DMACTI ACTIVATE DM TASK & P EXTRN DMACTD ACTIVATE DM TASK #D @ P EXTRN FDBSTA j P EXTRN FNDFDB P EXTRN ADMTSK P* P EJECT TIOADM P* P* " P***************************** " P*
0x43b2f8…43b48c Dummy {f00=0x0154, f01=0x0190, f02=»***** x P* P* ( P* A VERSION INCLUDING OPENEN MODES " , P* EXTEND AND OUTPUT AND CLOSE DISCARD N ( P* IS OBTAINED BY SETTING X:A EQU 1 ~ P* PX:A EQU 0 PCRDEEX EQU X:A P* PMMUPAG EQU 0 P* P EJE
0x43b48c…43b620 Dummy {f00=0x0154, f01=0x0190, f02=» * z " P* * " P****************************** 6 P* P* f ( PLFILEN EQU 256 L-FILE RECORD LENGTH p P* P EJECT TIOADM P* P********** P* ORDTAB * P********** P* 4 P*
0x43b620…43b7b4 (1, 1172) Opaque[0x194]
0x43b7b4…43b948 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2aa0, f03=0x0000}
0x43b7b4…43b948 IdxSect {
0x43b7b4…43b948 f00 = 0x0155 // 0x43b7b4 @0x0
0x43b7b4…43b948 f01 = 0x0006 // 0x43b7b6 @0x2
0x43b7b4…43b948 gno = [ // 0x43b7b8 @0x4
0x43b7b4…43b948 [0x00]: C0x0155.0x0.0
0x43b7b4…43b948 [0x01]: C0x0155.0x1.0
0x43b7b4…43b948 [0x02]: C0x0155.0x2.0
0x43b7b4…43b948 ]
0x43b7b4…43b948 }
0x43b948…43badc Dummy {f00=0x0155, 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*
0x43badc…43bc70 Dummy {f00=0x0155, 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**
0x43bc70…43be04 Dummy {f00=0x0155, 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
0x43be04…43bf98 Dummy {f00=0x0155, 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.
0x43bf98…43c12c Dummy {f00=0x0155, 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
0x43c12c…43c2c0 Dummy {f00=0x0155, 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
0x43c2c0…43c454 (1, 1173) Dummy {f00=0x0155, 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*
0x43c454…43c5e8 Dummy {f00=0x0155, 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
0x43c5e8…43c77c Dummy {f00=0x0155, 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
0x43c77c…43c910 Dummy {f00=0x0155, 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 &
0x43c910…43caa4 Dummy {f00=0x0155, 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,
0x43caa4…43cc38 Dummy {f00=0x0155, 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
0x43cc38…43cdcc Dummy {f00=0x0155, 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 *
0x43cdcc…43cf60 Dummy {f00=0x0155, f01=0x4036, f02=» P* P* P* END &@ 2* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x43cf60…43d0f4 (1, 1174) Dummy {f00=0x0155, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x43d0f4…43d288 Dummy {f00=0x0155, f01=0x0190, f02=»A11,DISCAD RESORE CURRENT SECTOR/BLOCK ^ P LD A12,DISCAD+2 ADDRESS _ . P RTN A14 _ N P IFT MMUPAG=1 _ ^ P EJECT _ t 4 P*********************************************** _ 4 P* * _ 4 P* LODMEX - LOAD MONIT
0x43d288…43d41c Dummy {f00=0x0155, f01=0x018e, f02=»* _ b 4 P* REFERENCED IN: SYSLOD * ` 4 P* * ` B 4 P* ENTRY: * ` z 4 P* * ` 4 P* EXIT:
0x43d41c…43d5b0 Dummy {f00=0x0155, f01=0x0190, f02=» 4 P* * a 4 P* SUBROUTINES: LODCOM * a < 4 P* * a t 4 P*********************************************** a PLODMEX EQU * a & P LD A1,SCTMXS MO
0x43d5b0…43d744 Dummy {f00=0x0155, f01=0x0190, f02=»X,A1 GET NUMBER OF EXTENTS a 4 P LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTERS b " $ P SLL A6,1 MAKE BYTE DISPLACEMENT b Z P ADK A6,4 b " P ADR A6,A1 FIRST EXTENT BLOCK b PMSX20 EQU * b & P SUK A3,1 DECREMENT EXTENT COUNTER b P RF(N) MSX99 NO
0x43d744…43d8d8 Dummy {f00=0x0155, f01=0x018e, f02=» b p $ P LD A5,SCTEFA+2 END OF FREE AREA c P RF(NZ) MSX25 c 0 P* c F 2 P LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE c P P SUKL A7,/400 c PMSX25 EQU * c ( P LD A2,EXLEN,A6 GET LENGTH OF EXTENT c & P ADK A2,11 RESERV FIVE EXTRA WORDS c $ P A
0x43d8d8…43da6c Dummy {f00=0x0155, f01=0x0190, f02=» P RF(N) MSX30 NO d P* d 2 P CWR A2,A5 EXTENT LESS THAN AREA LEFT IN FRAME d & P RF(L) MSX40 YES! d P* d v PMSX30 EQU * d P LDR A1,A2 d . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES d P CWK A1,14 <60K BYTES? d P RF(L) MSX35 YES!
0x43da6c…43dc00 Dummy {f00=0x0155, f01=0x0190, f02=»RY d n P SUK A7,1 e PMSX35 EQU * e 0 P SUR A2,A5 SUBTRACT AREA LEFT IN LAST FRAME e 0 " P LDK A5,0 AND SET EMPTY FRAME e d P LDR A1,A2 e . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES e , P SUR A7,A1 AND SUBTRACT FROM FRAME COUNT e $ P ABL(N) ME
0x43dc00…43dd94 (1, 1175) Opaque[0x194]
0x43dd94…43df28 # DirEnt {nam=»TMOVE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ab8, f03=0x0000}
0x43dd94…43df28 IdxSect {
0x43dd94…43df28 f00 = 0x0155 // 0x43dd94 @0x0
0x43dd94…43df28 f01 = 0x000e // 0x43dd96 @0x2
0x43dd94…43df28 gno = [ // 0x43dd98 @0x4
0x43dd94…43df28 [0x00]: C0x0155.0x3.0
0x43dd94…43df28 [0x01]: C0x0156.0x0.0
0x43dd94…43df28 [0x02]: C0x0156.0x1.0
0x43dd94…43df28 [0x03]: C0x0156.0x2.0
0x43dd94…43df28 [0x04]: C0x0156.0x3.0
0x43dd94…43df28 [0x05]: C0x0157.0x0.0
0x43dd94…43df28 [0x06]: C0x0157.0x1.0
0x43dd94…43df28 ]
0x43dd94…43df28 }
0x43df28…43e0bc Dummy {f00=0x0155, 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
0x43e0bc…43e250 Dummy {f00=0x0155, 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
0x43e250…43e3e4 Dummy {f00=0x0155, 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
0x43e3e4…43e578 Dummy {f00=0x0155, 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
0x43e578…43e70c Dummy {f00=0x0155, 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
0x43e70c…43e8a0 Dummy {f00=0x0155, 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 0 P* P* 6 P
0x43e8a0…43ea34 (1, 1176) Dummy {f00=0x0156, 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 0 P* P* 4 P* A PROGRAM VERSION CONTAINING SUBROUTINE MOVUU $ P* WILL EXIST B
0x43ea34…43ebc8 Dummy {f00=0x0156, 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
0x43ebc8…43ed5c Dummy {f00=0x0156, 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
0x43ed5c…43eef0 Dummy {f00=0x0156, 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
0x43eef0…43f084 Dummy {f00=0x0156, 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
0x43f084…43f218 Dummy {f00=0x0156, 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
0x43f218…43f3ac Dummy {f00=0x0156, 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*
0x43f3ac…43f540 Dummy {f00=0x0156, 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*
0x43f540…43f6d4 (1, 1177) Dummy {f00=0x0156, 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
0x43f6d4…43f868 Dummy {f00=0x0156, 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
0x43f868…43f9fc Dummy {f00=0x0156, 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
0x43f9fc…43fb90 Dummy {f00=0x0156, 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 *
0x43fb90…43fd24 Dummy {f00=0x0156, 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
0x43fd24…43feb8 Dummy {f00=0x0156, 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
0x43feb8…44004c Dummy {f00=0x0156, 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
0x44004c…4401e0 Dummy {f00=0x0156, 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
0x4401e0…440374 (1, 1178) Dummy {f00=0x0156, 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
0x440374…440508 Dummy {f00=0x0156, 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
0x440508…44069c Dummy {f00=0x0156, 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
0x44069c…440830 Dummy {f00=0x0156, 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 (
0x440830…4409c4 Dummy {f00=0x0156, 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
0x4409c4…440b58 Dummy {f00=0x0156, 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
0x440b58…440cec Dummy {f00=0x0156, 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
0x440cec…440e80 Dummy {f00=0x0156, 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 *
0x440e80…441014 (1, 1179) Dummy {f00=0x0156, 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
0x441014…4411a8 Dummy {f00=0x0156, 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
0x4411a8…44133c Dummy {f00=0x0156, 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
0x44133c…4414d0 Dummy {f00=0x0156, 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
0x4414d0…441664 Dummy {f00=0x0156, 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
0x441664…4417f8 Dummy {f00=0x0156, 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
0x4417f8…44198c Dummy {f00=0x0156, 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
0x44198c…441b20 Dummy {f00=0x0156, 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
0x441b20…441cb4 (1, 1180) Dummy {f00=0x0157, 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 & .
0x441cb4…441e48 Dummy {f00=0x0157, 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
0x441e48…441fdc Dummy {f00=0x0157, 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
0x441fdc…442170 Dummy {f00=0x0157, 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
0x442170…442304 Dummy {f00=0x0157, 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
0x442304…442498 Dummy {f00=0x0157, 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
0x442498…44262c Dummy {f00=0x0157, 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
0x44262c…4427c0 Dummy {f00=0x0157, 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
0x4427c0…442954 (1, 1181) Dummy {f00=0x0157, f01=0x2008, f02=» . P `
0x442954…442ae8 Dummy {f00=0x0157, f01=0x0190, f02=» P XIF / POPNR11 EQU * LINE 1 / P IFF PLCNRR=0 / , * P DATA /0103,/0400,/0D05,TIMACT,/0908,0 / B P XIF / p POPNR12 EQU * LINE 2 / | P IFF PLCNRR=0 / * P DATA /0103,/0400,/0D05,TIMACT,/0B08,0 / P XIF / POPNR13 EQU * LINE 3 / P IFF
0x442ae8…442c7c Dummy {f00=0x0157, f01=0x0190, f02=» , PPLCPFP DATA 0 PLC LOCAL POWER FAIL FLAG 0 P* 0 4 ( P IFF UTTEST=0 TEST VERSION OF DRIVER 0 > P* 0 j P EJECT 0 t P* 0 ( PUTTST DATA UTTEST 1 = TRAP NOT USED 0 P* 0 P* 0 " P* QUEUE STATISTICS COUNTERS 0 & P* EACH COUNTER HAS ONE
0x442c7c…442e10 Dummy {f00=0x0157, f01=0x0190, f02=» LONG BUFFERS QUEUE 0 PCCQSTA RES 8 CCA QUEUE 1 $ PSTATLN EQU *-STATAR TABLE LENGTH 1 : P* 1 b P XIF 1 l P EJECT 1 x P* 1 P* 1 P* CWT DISPLACEMENTS 1 P* 1 PCWTOPR EQU /00 CU OPERABLE 1 PCWTCCB EQU /02 CCA BUSY 1 ( PCWTG
0x442e10…442fa4 Dummy {f00=0x0157, f01=0x0190, f02=»C RCA STATUS 1 x $ PCWTLNO EQU /0C LINE NO INDICATOR 2 , PCWTPAR EQU /0E INDEX TO PARAMETER AREA 2 < 6 PCWTOPP EQU /10 OPEN LINE PARAMETER AREA ADDRESS =2 2 l $ PCWTINT EQU /12 WS TABLE ADDRESS 2 ( PCWTBUF EQU /14 INP. BUFFER ADDRESS 2 2 PCWTSBQ EQU /16
0x442fa4…443138 Dummy {f00=0x0157, f01=0x0190, f02=»TMBQ EQU /1C QUEUE OF ALLOCATED MON. BLOCKS 2 " PCWTTPR EQU /1E TIMER POINTER 3 4 $ PCWTCIO EQU /20 CIO START INSTR. 3 Z PCWTST3 EQU /22 SST INSTR. 3 . PCWTCSD EQU /24 CTRL UNIT START DESCRIPTOR 3 , PCWTCID EQU /2A CTRL UNIT INTERF. DESCR. 3 & PCW
0x443138…4432cc Dummy {f00=0x0157, f01=0x0190, f02=»TPBL EQU /5E POOLBL. LONG OUTP. BUFFERS =2 3 0 PCWTPBG EQU /68 POOLBL. GENERAL READ BUFFERS 4 2 PCWTWSS EQU /72 WS STATUS 4 f . PCWTSOB EQU /72+MAXWS+1 SH. OUTP. BUFFERS 4 0 PCWTLOB EQU CWTSOB+SOBUFS LONG OUTP. BUFFERS 4 . PCWTGRB EQU CWTLOB+LOBUFS G
0x4432cc…443460 Dummy {f00=0x0157, f01=0x0190, f02=»* 4 P* FLAGS 5 P RES 1 PLC OPERABLE FLAG 5 " P DATA 0 CCA BUSY FLAG (0=FREE) 5 > , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) 5 d P* 5 P* DATA WORDS 5 P DATA 0 PLC NUMBER (0-3) 5 . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) 5 "
0x443460…4435f4 (1, 1182) Opaque[0x194]
0x4435f4…443788 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2af0, f03=0x0000}
0x4435f4…443788 IdxSect {
0x4435f4…443788 f00 = 0x0157 // 0x4435f4 @0x0
0x4435f4…443788 f01 = 0x0024 // 0x4435f6 @0x2
0x4435f4…443788 gno = [ // 0x4435f8 @0x4
0x4435f4…443788 [0x00]: C0x0157.0x2.0
0x4435f4…443788 [0x01]: C0x0157.0x3.0
0x4435f4…443788 [0x02]: C0x0158.0x0.0
0x4435f4…443788 [0x03]: C0x0158.0x1.0
0x4435f4…443788 [0x04]: C0x0158.0x2.0
0x4435f4…443788 [0x05]: C0x0158.0x3.0
0x4435f4…443788 [0x06]: C0x0159.0x0.0
0x4435f4…443788 [0x07]: C0x0159.0x1.0
0x4435f4…443788 [0x08]: C0x0159.0x2.0
0x4435f4…443788 [0x09]: C0x0159.0x3.0
0x4435f4…443788 [0x0a]: C0x015a.0x0.0
0x4435f4…443788 [0x0b]: C0x015a.0x1.0
0x4435f4…443788 [0x0c]: C0x015a.0x2.0
0x4435f4…443788 [0x0d]: C0x015a.0x3.0
0x4435f4…443788 [0x0e]: C0x015b.0x0.0
0x4435f4…443788 [0x0f]: C0x015b.0x1.0
0x4435f4…443788 [0x10]: C0x015b.0x2.0
0x4435f4…443788 [0x11]: C0x015b.0x3.0
0x4435f4…443788 ]
0x4435f4…443788 }
0x443788…44391c Dummy {f00=0x0157, f01=0x0190, f02=» 2 P IDENT TOSSIO REL 11.0 81-04-13 870105041100 P : ( P =4, CPU857 DEFINITION NOT CORRECT B P =4, REL 11.0 81-03-18 n . P =3, ORDERS IN ORDTAB CHANGED TO FIT TND P =3, REL 11.0 81-02-25 & P =2, CORRECTION OF UPDATE =1 =1
0x44391c…443ab0 Dummy {f00=0x0157, f01=0x0190, f02=»********************************************** P* 6 $ P* PHILIPS TERMINAL SYSTEM PTS @ P* h ( P* TOSSIO = TOSS I/O LKM PROCESSOR r P* P* P* 6 P************************************************** P* P* ,
0x443ab0…443c44 Dummy {f00=0x0157, f01=0x018e, f02=»ALIZE I/O ~ P* P* -TENDIO END I/O P* 8 P* -ATTACH ATTACH DEVICE B P* d P* -DETACH DETACH DEVICE n P* 8 P* -DC:MIN DATA COMMUNICATION MOVE ROUTINE (READ) P* 8 P* -DC:MOT DATA COMMUNICATION MOVE ROU
0x443c44…443dd8 Dummy {f00=0x0157, 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
0x443dd8…443f6c Dummy {f00=0x0157, 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
0x443f6c…444100 Dummy {f00=0x0157, 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
0x444100…444294 (1, 1183) Dummy {f00=0x0157, 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
0x444294…444428 Dummy {f00=0x0157, 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
0x444428…4445bc Dummy {f00=0x0157, 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
0x4445bc…444750 Dummy {f00=0x0157, 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
0x444750…4448e4 Dummy {f00=0x0157, 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
0x4448e4…444a78 Dummy {f00=0x0157, 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
0x444a78…444c0c Dummy {f00=0x0157, f01=0x0190, f02=» EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO * P EXTRN LKMQDI QUEUE TASK AND DISPATCH 6 * P EXTRN LKMERR HALT SYSTEM, FATAL ERROR d , P EXTRN GETBLK PUT BLOCK IN PENDING QUEUE 2 P EXTRN FREBLK RELEASE BLOCK FROM PENDING QUEUE P EXTRN SETIMP SE
0x444c0c…444da0 Dummy {f00=0x0157, f01=0x0190, f02=» EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:SA SAVE AREA * P EXTRN TTB:MT MMUTAB J P EXTRN HALT =1 f P* ~ P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY
0x444da0…444f34 (1, 1184) Dummy {f00=0x0158, f01=0x018e, f02=»NED BY SETTING MMUPAG EQU 1. P* $ PMMUPAG EQU 0 . P* B P* L 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION V . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P* 0 P* A PROGRAM VERSION
0x444f34…4450c8 Dummy {f00=0x0158, f01=0x018e, f02=» P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU * P* IS OBTAINED BY SETTING CPU857 EQU 1. F P* t PCPU857 EQU 0 =4 ~ P* PX:C EQU 0 PTC8000 EQU X:C P EJECT TOSSIO P* P* P******************
0x4450c8…44525c Dummy {f00=0x0158, f01=0x0190, f02=» ~ P* P* P********************* P* DWT DISPLACEMENTS * : P********************* X P* v 2 P* DEVICE WORK TABLE DISPLACEMENTS: FIXED PART P* & PDWTCHP EQU /00 CHANNEL PARAMETERS PDWTST EQU /02 STATUS PDW
0x44525c…4453f0 Dummy {f00=0x0158, f01=0x0190, f02=» ( PDWTOCH EQU /06 LAST OUTPUT CHARACTER ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK 0 PDWTTAB EQU /0A TTAB ADDRESS * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR PDWTTQ EQU /0E TERMINAL QUEUE $ PDWTUEC EQU /10 USER ECB ADDRESS " PDWTMEC EQU /12
0x4453f0…445584 Dummy {f00=0x0158, f01=0x018e, f02=»FT MMUPAG=1 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART P XIF L P* X P EJECT TOSSIO b P* z , P* DWT DISPLACEMENTS: DRIVER DEFINED PART P* , PDWTOTQ EQU DWTDRD+/00 OUTPUT QUEUE LINK & PDWTA2 EQU DWTDRD+/02 SAVE
0x445584…445718 Dummy {f00=0x0158, f01=0x0190, f02=» l . PDWTSB1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT : & PDWTTP EQU DWTDRD+/10 TIMER POINTER l 4 PDWTORD EQU DWTDRD+/10 SAVE AREA INDEX AND ORDER & PDWTA7 EQU DWTDRD+/10 SAVE AREA A7 & PDWTA8 EQU DWTDRD
0x445718…4458ac Dummy {f00=0x0158, f01=0x0190, f02=» EQU DWTDRD+/16 LINE DRIVER DEPENDENT 1 2 PDWTLD2 EQU DWTDRD+/18 LINE DRIVER DEPENDENT 2 0 0 PDWTDEV EQU DWTDRD+/1A TERMINAL DEVICE STATUS f P 2 PDWTTBU EQU DWTDRD+/1A PLC TEST BUFFER ADDRESS * PDWTVOL EQU DWTDRD+/1A DISC VOLUME NAME * PDW
0x4458ac…445a40 Dummy {f00=0x0158, f01=0x0190, f02=» h ( PDWTSQ EQU DWTDRD+/2A START OF QUEUE P* 4 P EJECT TOSSIO > P* V P* ` P********************* j P* DAB DISPLACEMENTS * P********************* P* ( P* DRIVER ADDRESS BLOCK DISPLACEMENTS P* & PKEYL
0x445a40…445bd4 (1, 1185) Dummy {f00=0x0158, f01=0x0190, f02=»ADDRESS x PABTADR EQU 2 ABORT ADDRESS " PINTADR EQU 4 INTERRUPT ADDRESS 2 2 PPOLADR EQU 4 BUFFER POOL ADDRESS (DC DRIVERS) X 2 PHDRLEN EQU 6 BUFFER HEADER LENGTH (DC DRIVERS) " PRECADR EQU 6 RECOVERY ADDRESS PECHADR EQU 8 ECHO ADDRESS
0x445bd4…445d68 Dummy {f00=0x0158, f01=0x0190, f02=» 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. R P* $ PDC:DIX EQU -2 DATA COMMUNICATION PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMME
0x445d68…445efc Dummy {f00=0x0158, f01=0x0190, f02=»:DIX EQU 10 DISC P* P EJECT TOSSIO " P* : P* D P********************* N P* ECB DISPLACEMENTS * l P********************* P* ( P* EVENT CONTROL BLOCK DISPLACEMENTS P* PECBFC EQU 1 FILE CODE PEC
0x445efc…446090 Dummy {f00=0x0158, f01=0x0190, f02=»ECBRC EQU 8 RETURN CODE PECBCW EQU 10 CONTROL WORD PECBCW1 EQU 10 CONTROL WORD 1 B PECBCW2 EQU 12 CONTROL WORD 2 f P* P EJECT TOSSIO P* P* P IFT MMUPAG=1 P* P* P********** P* TIOTAB *
0x446090…446224 Dummy {f00=0x0158, f01=0x0190, f02=»TINE ADDRESS TABLE t . P DATA TIO:DM DATA MANAGEMENT, INPUT/OUTPUT * P DATA TIOPCI PROGRAMMED CHANNEL, INPUT L P DATA TIOMXI MUX, INPUT z $ P DATA TIOKBI KEYBOARD/CTW, INPUT 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT P* PTINDEX E
0x446224…4463b8 Dummy {f00=0x0158, f01=0x0190, f02=»A TIOKBO KEYBOARD/CTW, OUTPUT 0 P DATA TIOITO INTERTASK COMMUNICATION, OUTPUT & P DATA TIODKO DISC, OUTPUT Z P* | P EJECT TOSSIO P* P* P********** P* TENTAB * P********** P* @ P* TENTAB CONTAINS ADDR
0x4463b8…44654c Dummy {f00=0x0158, f01=0x0190, f02=»NT, INPUT/OUTPUT v * P DATA TENPCI PROGRAMMED CHANNEL, INPUT P DATA TENMXI MUX, INPUT F $ P DATA TENKBI KEYBOARD/CTW, INPUT f 0 P DATA TENITI INTERTASK COMMUNICATION, INPUT P DATA TENDKI DISC, INPUT , P DATA TENPCO PROGRAMMED CHANNEL, OUTPU
0x44654c…4466e0 Dummy {f00=0x0158, f01=0x0190, f02=» DATA TENDKO DISC, OUTPUT P XIF " P* . P EJECT TOSSIO 8 P* P P* Z P********** d P* MONMMU * v P********** P* P* MONITOR (SYSTEM) MMU TABLE P* PMONMMU EQU * P IFT MMUPAG=1 " P DATA /0000,
0x4466e0…446874 (1, 1186) Dummy {f00=0x0158, f01=0x0190, f02=» P XIF P* P EJECT TOSSIO P* 2 P* < P IFT ATTDET=1 F P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH f P* P* T I M O U T P* P* INPUT: A1 = DWT ADDRESS . P* A2 = ADDRESS TO 2ND TI
0x446874…446a08 Dummy {f00=0x0158, f01=0x018e, f02=» A1-A3 ARE DESTROYED P* $ PTIMOUT LDR A6,A1 . & P LDR* A2,A2 TIMER POINTER ADDRESS F P LD A5,2,A2 TTAB ADDRESS p P CF A15,FNDBLK P LDR* A1,A4 " P STR A1,A2 REMOVE FROM ATT:CH P CF A15,FREBLK P* P EJECT
0x446a08…446b9c Dummy {f00=0x0158, f01=0x0190, f02=» P* PTIM:10 LDR A2,A1 SAVE P LDR* A1,A1 NEXT IN QUEUE , , P RF(Z) TIM:20 ERROR IN QUEUE HANDLING =1 N P CWR A1,A5 ~ P RB(NE) TIM:10 NOT FOUND P* P EJECT TOSSIO P* & P* TTAB FOUND - REMOVE FROM QUEUE P*
0x446b9c…446d30 Dummy {f00=0x0158, f01=0x0190, f02=»A+16,A5 ECB ADDRESS FROM A8 SAVE AREA P LDK A3,/40 SET TIMEOUT BIT ! . P* ! R P IFT MMUPAG=0 ! * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB ! r P XIF ! P* ! P IFT ATTDET=1 ! P IFT MMUPAG=1 ! . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM
0x446d30…446ec4 Dummy {f00=0x0158, f01=0x0190, f02=»TTDET=1 ! & P RF TIORTN QUEUE TASK AND DISPATCH " PTIM:20 EQU * =1 " : P LDK A1,1 INDICATE ERROR =1 " R P CF A15,HALT =1 " v P* " P EJECT TOSSIO " P* " P* F N D B L K " P* " ( P* SUBROUTINE TO FIND BLOCK IN ATT:CH " P*
0x446ec4…447058 Dummy {f00=0x0158, f01=0x018e, f02=»RESS IF FOUND, ELSE 0 " x P* # ( PFNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS # ( P* # T 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 FOUND # P* # PFND:20 EQU * # P
0x447058…4471ec Dummy {f00=0x0158, f01=0x0190, f02=» P XIF $ P* $ P IFT ATTDET=1 $ & PATT:CH DATA 0 ATTACH CHAIN ANCHOR $ 0 P* $ Z P EJECT $ d P* $ r P* F R A B L K =1 $ | P* $ 0 P* FREE BLOCK AND TIMER IN ATT:CH IF FOUND =1 $ P* $ P* INPUT: A5=TTAB ADDRESS =1 $ P* $
0x4471ec…447380 Dummy {f00=0x0158, f01=0x0190, f02=» ATT:CH =1 $ t P ADK A4,0 SET CR =1 % . P RF(Z) FRAEND TASK NOT FOUND IN ATT:CH =1 % . 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 % PFRAEND EQU * =1 % P LDR* A1
0x447380…447514 (1, 1187) Dummy {f00=0x0158, f01=0x0190, f02=»******** % P* & P* & * P* THIS MODULE IS CALLED FROM TIO WITH & $ P* THE FOLLOWING PARAMETERS: & R P* & v & P* A3 /8000 (REQUEST ERROR BIT) & & P* A4 I/O AND ACTIVATE INDICATOR & P* A5 TTAB ADDRESS & P* A6 DWT ADDRESS &
0x447514…4476a8 Dummy {f00=0x0158, f01=0x018e, f02=» P* A13 DWT STATUS ' P* ' PATTACH EQU * ENTRY ' ( P ADK A4,0 SET CR ' B * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR ' Z P* ' P IFT MMUPAG=0 ' " P CM ECBRC,A8 RESET RETURN CODE ' P XIF ' P* ' P IFT ATTDET=1 ' P IFT MMUPAG=1
0x4476a8…44783c Dummy {f00=0x0158, f01=0x018e, f02=» P TM A10,A13 ( * P RF(NZ) ATT:40 DEVICE ALREADY ATTACHED ( P LDR A13,A13 ( F P RF(NN) ATT:50 DEVICE BUSY ( Z P* ( | P* ATTACH REQUESTING TASK ( P* ( P ORS A10,DWTST,A6 ATTACH ( , P ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN DWT ( P RF
0x44783c…4479d0 Dummy {f00=0x0158, f01=0x0190, f02=» ( ~ P* ) P* SET TIMER ) P* ) * P IFT MMUPAG=0 ) 4 P LD A1,ECBCW,A8 TIME ) J P XIF ) f P* ) r P EJECT TOSSIO ) | P* ) P* ) P IFT ATTDET=1 ) P IFT MMUPAG=1 ) P EL A1,ECBCW,A8 TIME ) P XIF ) P* ) P I
0x4479d0…447b64 Dummy {f00=0x0158, f01=0x0190, f02=» TTAB ADDRESS ) P LD A3,ATT:CH ANCHOR * P CF A15,GETBLK BLOCK * 2 P ST A4,ATT:CH UPDATE ANCHOR * N $ P ADK A4,2 TIMER POINTER ADDRESS * r P LDR A1,A6 DWT ADDRESS * P CF A15,SETIMP SET TIMER * P DATA TIMOUT * P* * PATTIM DATA 0 *
0x447b64…447cf8 Dummy {f00=0x0158, f01=0x018e, f02=»OERR RETURN * P* + P EJECT TOSSIO + P* + 6 P* + @ P********** + J P* DETACH * + P********** + n P* + * P* THIS MODULE IS CALLED FROM TIO WITH + $ P* THE SAME PARAMETERS AS ATTACH. + P* + PDETACH EQU * + P ADK A4,0
0x447cf8…447e8c Dummy {f00=0x0158, f01=0x0190, f02=» * P RF(NE) TIOERR ATTACHED TO OTHER TASK , P XRS A10,DWTST,A6 DETACH , 2 $ P LDR A7,A5 SAVE TTAB ADDRESS =1 , R P LD A5,DWTTQ,A6 QUEUE ANCHOR , z P RF(Z) DET:10 QUEUE EMPTY , 2 P CF A15,FRABLK FREE ATTACH BLOCK AND TIMER =1 , & P LDR* A3,A5 UPDATE
0x447e8c…448020 Dummy {f00=0x0158, f01=0x018e, f02=»B ADDRESS =1 , z P* - 2 PATTRTN EQU * COMMON ATTACH/DETACH NORMAL EXIT - PDETRTN LDK A3,0 RETURN CODE - T P XIF - x P* - P EJECT TOSSIO - P* - P* - P********** - P* TIOERR * - P********** - P* - P* ERROR: FILE
0x448020…4481b4 (1, 1188) Dummy {f00=0x0159, f01=0x0190, f02=» P IFT MMUPAG=0 . * P ST A3,ECBRC,A8 SET RETURN CODE IN ECB . ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH . H P XIF . t P* . P IFT MMUPAG=1 . * P ES A3,ECBRC,A8 SET RETURN CODE IN ECB . P LDK A3,0 . * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH .
0x4481b4…448348 Dummy {f00=0x0159, f01=0x0190, f02=»* . P**************** / P* QUEUE DEVICE * / " P**************** / : P* / R P* / 8 P* THIS IS THE ROUTINE FOR QUEUEING DEVICE REQUESTS. / f > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON / @ P* WHETHER THE DEVICE IS AN ECHO DEVI
0x448348…4484dc Dummy {f00=0x0159, f01=0x0190, f02=»O THE TASK OR NOT. / d P* 0 P IFT ATTDET=1 0 $ P* 0 : P* QUEUE ECHO DEVICE FIRST 0 D P* 0 f PTIOQ00 LDR A6,A2 0 p P* 0 P* QUEUE DEVICE FIRST 0 P* 0 $ PTIOQ05 ADK A6,DWTTQ QUEUE ANCHOR 0 P LDR A2,A6 0 P LDR* A6,A6 0 $ P R
0x4484dc…448670 Dummy {f00=0x0159, f01=0x0190, f02=»BY FILE MANAGEMENT 0 x $ PTIOQ20 ADK A6,DWTTQ QUEUE ANCHOR 1 P* 1 B . PQUEFIL EQU * ENTRY USED BY FILE MANAGEMENT 1 L P LD A1,TTB:ST+1,A5 LEVEL 1 ~ P* 1 P EJECT TOSSIO 1 P* 1 * P* SEARCH QUEUE FOR PLACE OF INSERTION 1 P* 1 PTIOQ30
0x448670…448804 Dummy {f00=0x0159, f01=0x0190, f02=»NL) TIOQ30 TRY NEXT 1 P* 2 0 P* INSERT IN QUEUE AND UPDATE PROGRAM COUNTER 2 & P* 2 Z PTIOQ40 LDKL A3,-4 2 d 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 ACTIVATION 2 P SUK A3,2 ACTIVATION 2
0x448804…448998 Dummy {f00=0x0159, f01=0x0190, f02=» 2 P EJECT TOSSIO 3 P* 3 P* 3 * P******* 3 4 P* TIO * 3 D P******* 3 T P* 3 d P* 3 n 4 P* THIS MODULE IS ENTERED WHEN TASK INPUT/OUTPUT 3 x 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED 3 4 P* DUE TO E.G. BUSY DEVICE, THE REQ
0x448998…448b2c Dummy {f00=0x0159, f01=0x0190, f02=»ENT SUBROUTINES ARE PERFORMED. 3 P* 4 & 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE 4 0 & P* WITH THE FOLLOWING PARAMETERS:- 4 j P* 4 . P* A1 = PARAMETER WHEN I/O AND ACTIVATION 4 P* 4 $ P* A4 = ZERO, NORMAL I/O REQUEST 4 ( P*
0x448b2c…448cc0 Dummy {f00=0x0159, f01=0x0190, f02=»DRESS 4 P* 5 P EJECT TOSSIO 5 P* 5 0 P* 5 : < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER 5 D * P* WITH THE FOLLOWING REGISTER VAULES:- 5 P* 5 P* A5 = STACK BASE 2 IN DWT 5 P* 5 P* A6 = DWT ADDRESS 5 P*
0x448cc0…448e54 (1, 1189) Dummy {f00=0x0159, f01=0x0190, f02=» 0 P* A13 = 0, IF REQUEST ISSUED IN SYSTEM MODE 6 . P* = 1, " " " " USER MODE 6 8 P* 6 j P* 6 t , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- 6 ~ P* 6 " P* -DWTOR DWT INDEX AND ORDER 6 P* -DWTECB ECB ADDRESS 6 $ P* -DWTST R
0x448e54…448fe8 Dummy {f00=0x0159, f01=0x018e, f02=»YSTEMS) 6 n P* 7 P* 7 * P* THE FOLLOWING ECB FIELDS ARE RESET:- 7 $ P* 7 R P* -BIT 0 IN THE FIRST WORD 7 P* -ECBEL EFFECTIVE LENGTH 7 P* -ECBRC RETURN CODE 7 P* 7 P EJECT TOSSIO 7 P* 7 . P* DWT ADDRESS AND CHECK IF
0x448fe8…44917c Dummy {f00=0x0159, f01=0x0190, f02=» P CF A15,SWITCH SWITCH LEVEL 8 P INH 8 ( P LDKL A3,/8000 8 4 P ADK A6,0 SET CR 8 J $ P RB(Z) TIOERR FILE CODE UNKNOWN 8 b 6 P LD A12,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A13,DWTST,A6 DWT STATUS 8 P* 8 P EJECT TOSSIO 8
0x44917c…449310 Dummy {f00=0x0159, f01=0x0190, f02=»IT 8 x P CCK A7,/BB00 9 P RB(E) ATTACH ATTACH ORDER 9 P CCK A7,/BC00 9 B P RB(E) DETACH DETACH ORDER 9 X P TM A10,A13 9 z P RF(Z) TIO020 NOT ATTACHED 9 P CW A5,DWTTAB,A6 9 * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK 9 P TM A3,A13 9 " P
0x449310…4494a4 Dummy {f00=0x0159, f01=0x0190, f02=» RB(Z) TIOQ20 DEVICE BUSY 9 P* : " P EJECT TOSSIO : , P* : D H P* CHECK IF ECHO, AND WHEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED : N P* : * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX : P LDK A2,/40 CHECK IF ECHO : P ANR A2,A7 : P R
0x4494a4…449638 Dummy {f00=0x0159, f01=0x018e, f02=»NOT ALLOWED IF NOT KEYBOARD : | , P LD A2,DWTECH,A6 ECHO DEVICE DWT ADDRESS ; $ P RF(Z) TIO070 NO ECHO DEVICE ; T $ P LD A14,DWTST,A2 ECHO DWT STATUS ; x P* ; P IFT ATTDET=1 ; P TM A10,A14 ; * P RF(Z) TIO050 ECHO DEVICE NOT ATTACHED ; P CW A5
0x449638…4497cc Dummy {f00=0x0159, f01=0x0190, f02=» & P RB TIOQ00 BUSY, QUEUE ECHO DEVICE < P XIF < . P* < : P EJECT TOSSIO < D P* < P* < f PTIO050 TM A3,A14 < p " P RB(Z) TIOQ10 ECHO DEVICE BUSY < P* < PTIO060 LDKL A3,/A000 < : P XRS A3,DWTST,A2 UPDATE BUSY & ECHO BITS IN DWT STAT
0x4497cc…449960 Dummy {f00=0x0159, f01=0x0190, f02=» < 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 = d P LDKL A2,/7FFF = , P ANRS A2,A8 RESET BIT 0 IN ECB FILE CODE = , P ST A8,DWTECB,A6 SET ACTUAL ECB ADDRESS = ( P CM EC
0x449960…449af4 (1, 1190) Dummy {f00=0x0159, f01=0x0190, f02=» P* MOVE USER ECB TO DWT ECB > P* > & PTIO100 EQU * > 0 P LDKL A2,/4FFF > D * P ELR A3,A8 LOAD FIRST WORD OF USER ECB > Z 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 ECB ADDRESS > , P ST A2,DWTECB,
0x449af4…449c88 Dummy {f00=0x0159, f01=0x0190, f02=»S A3,ECBEL,A8 RESET EFFECTIVE LENGTH > & P ES A3,ECBRC,A8 RESET RETURN CODE ? , P* ? V 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 ? P LDK A3,8 ? . P MVUS A3 M
0x449c88…449e1c Dummy {f00=0x0159, f01=0x0190, f02=» ? , P ANRS A3,A8 RESET BIT 0 IN ECB FILE CODE @ ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH @ 8 $ P CM ECBRC,A8 RESET RETURN CODE @ d P XIF @ P* @ P EJECT TOSSIO @ P* @ P* @ PTIO110 EQU * @ P ECR A3,A7 @ P ANK A3,/FF ORDER OP
0x449e1c…449fb0 Dummy {f00=0x0159, f01=0x0190, f02=»DR A3,A7 @ P ANK A7,/3F A ( P SC A7,DWTOR+1,A6 STORE ORDER IN DWT A $ 0 P ST A5,DWTTAB,A6 SAVE TTAB ADDRESS IN DWTTAB A P P* A PTIO130 EQU * A P IFT MMUPAG=0 A & P ST A8,DWTECB,A6 SET ECB ADDRESS A P XIF A P* A P EJECT TOSSIO
0x449fb0…44a144 Dummy {f00=0x0159, f01=0x0190, f02=»CTIVATION A x 4 P ANK A3,/80 NORMAL I/O. CHECK IF WAIT REQUESTED B P RF(Z) TIO220 NOT WAIT B J P LDK A4,1 INDICATE WAIT B h P RF TIO230 B P* B P* I/O WITH ACTIVATION B P* B < PTIO210 CF A15,GETBLK SAVE PARAMETER AND DISPATCH ADDRESS B
0x44a144…44a2d8 Dummy {f00=0x0159, f01=0x0190, f02=» ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR B P* C 6 P EJECT TOSSIO C @ P* C X P* C b P IFT MMUPAG=1 C l * P LDR A13,A13 CHECK IF SYSTEM/USER MODE C & P RF(Z) TIO250 JUMP IF SYSTEM MODE C " P LD A3,DEVIND,A12 DEVICE INDEX C , P RF(N) T
0x44a2d8…44a46c Dummy {f00=0x0159, f01=0x0190, f02=»C C z ( P CF A15,TIOCW2 MOVE 2ND CONTROL WORD D P* D 6 " P* PERFORM CHECK ON ORDER CODE D @ P* D f PTIO235 EQU * D p P LDR A4,A7 ORDER CODE D 0 P CF A15,RD:WR2 CHECK IF ORDER IS READ/WRITE D . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER D P
0x44a46c…44a600 Dummy {f00=0x0159, 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********
0x44a600…44a794 (1, 1191) Dummy {f00=0x0159, f01=0x018e, f02=»" 16 E r ( P* IF CPU857, " " " " 16 F P* F : $ P* A3 IS DESTROYED, AND SO IS CR F D P* F l & PSWITCH EQU * SWITCH LEVEL ON STACK F v P IFT TC8000=0 F P IFF CPU852+CPU857=0 =4 F P LDK A3,/40 LEVEL 16 F P XIF F P IFT TC800
0x44a794…44a928 Dummy {f00=0x0159, f01=0x0190, f02=» F r P XIF G P* G P* G ( P SC A3,2,A15 SET NEW LEVEL ON STACK G ( " P RTN A15 RETURN WITH NEW LEVEL G T P* G z P EJECT TOSSIO G P* G P* G P IFT MMUPAG=0 G 0 PTIOMXI EQU * DUMMY ENTRY IN NON-MMU SYSTEMS G P XIF G P*
0x44a928…44aabc Dummy {f00=0x0159, f01=0x0190, f02=»D BY 'TIO' AND 'TENDIO' FOR SELECTING G z @ P* THE APPROPRIATE ROUTINE AT READ/WRITE REQUESTS, DEPENDING H . > P* ON THE DEVICE CONNECTION (PROGRAMMED CHANNEL, MUX ETX). H r > P* IF NO READ/WRITE REQUEST, CONDITION REGISTER ON STACK IS H * P* SET TO ZERO, ELS
0x44aabc…44ac50 Dummy {f00=0x0159, f01=0x0190, f02=»EX FOR USE IN THE INDEXED BRANCHING H ~ . P* CR = 0 IF NO READ/WRITE REQUEST I , , 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 ANK A4,/3F I P* I * PRD:WR2 A
0x44ac50…44ade4 Dummy {f00=0x0159, f01=0x0190, f02=» I f P SUK A4,1 J $ P ADR A3,A4 ADD READ/WRITE INDEX J ( P ABR* A15 RETURN WITHOUT CHANGING CR J B P* J n P EJECT TOSSIO J x P* J P* J P********** J P* ORDTAB * J P********** J P* J 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS
0x44ade4…44af78 Dummy {f00=0x0159, f01=0x018e, f02=»AB EQU * ORDER CONSTANTS J P BYTES 0,1 /00, /01 K P BYTES 1,1 /02, /03 K < P BYTES 0,TINDEX+1 /04, /05 K X & P BYTES TINDEX+1,TINDEX+1 /06, /07 K z P BYTES TINDEX+1,0 /08, /09 K P BYTES 1,TINDEX+1 /0A, /0B K P BYTES 0,0 /0C, /0D K P BYT
0x44af78…44b10c Dummy {f00=0x0159, f01=0x0190, f02=» K z P BYTES 0,0 /18, /19 L P BYTES 0,0 /1A, /1B L $ P BYTES 0,0 /1C, /1D L @ P BYTES 0,0 /1E, /1F L P BYTES 0,TINDEX+1 /20, /21 L x P BYTES TINDEX+1,0 /22, /23 L P BYTES TINDEX+1,0 /24, /25 L P BYTES 0,TINDEX+1 /26, /27 L P BYTES 0
0x44b10c…44b2a0 Dummy {f00=0x0159, f01=0x0190, f02=», /31 L P BYTES 0,0 /32, /33 M P BYTES 0,0 /34, /35 M * P BYTES 0,0 /36, /37 M F P BYTES 0,0 /38, /39 M b 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 TOSSIO M P* M P* T I O :
0x44b2a0…44b434 (1, 1192) Dummy {f00=0x015a, f01=0x0190, f02=»PONDING MODULE CALLED BY 'TENDIO' AT M , P* COMPLETION OF THE REQUEST IS 'TEN:DM'. N , P* N " P* INPUT: A8 = DWT ECB ADDRESS N f $ P* A9 = USER ECB ADDRESS N P* N P* OUTPUT: A2 IS DESTROYED N P* N . PTIO:DM EQU * DATA MANAGEMENT,
0x44b434…44b5c8 Dummy {f00=0x015a, f01=0x0190, f02=»ECOND CONTROL WORD N ~ P ST A2,ECBCW2,A8 O P* O 2 PA15RTN EQU * O < P RTN A15 O P P* O ` P EJECT TOSSIO O j 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 BEEN O > P* ISSUED AND THE DEVIC
0x44b5c8…44b75c Dummy {f00=0x015a, f01=0x0190, f02=»NDING ON THE USER BUFFER ADDRESS. O z 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT P * , P* COMPLETION OF THE REQUEST IS 'TENPCI'. P b 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. P P* P " P* INPUT: A8 = DWT ECB ADDRESS P $ P* A9 =
0x44b75c…44b8f0 Dummy {f00=0x015a, f01=0x0190, f02=»QU * PROGRAMMED CHANNEL, INPUT P $ P LD A1,ECBRL,A8 REQUESTED LENGTH Q & 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE Q N 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE Q P* Q . PTIPI05 EQU * ENTRY POINT USED BY 'TIOKBI' Q ( P EL A1,ECBBA,A
0x44b8f0…44ba84 Dummy {f00=0x015a, f01=0x0190, f02=» Q 0 PTIPI10 SUK A1,2 MAKE DWT BUFFER ADDRESS EVEN R P ANS A1,ECBBA,A8 R < P RTN A15 R T P* R d P EJECT TOSSIO R n P* R P* T I O M X I R P* R B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN R > P* ISSUED AND THE D
0x44ba84…44bc18 Dummy {f00=0x015a, f01=0x0190, f02=»UX BY THE DRIVER. R z 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT S , P* COMPLETION OF THE REQUEST IS 'TENMXI'. S R N P* NOTICE THAT MODULES 'TIOMXO', 'TIODKI' AND 'TIODKO' ARE EQUAL TO TIOMXI. S P* S P* INPUT: A5 = TTAB ADDRESS S " P*
0x44bc18…44bdac Dummy {f00=0x015a, f01=0x0190, f02=»FFER ADDRESS IS TRANSFERRED TO DWT ECB S x P* T . PTIOMXI EQU * MUX, INPUT T 8 P LDK A1,0 T X 2 P EL A2,ECBBA,A9 USER BUFFER ADDRESS (LOGICAL) T j " P DLL 4 4 LEFTMOST BITS INTO A1 T P ADR A1,A1 DOUBLE INDEX T P ADR A1,A5 T " P LC A1,TTB:MT,A1
0x44bdac…44bf40 Dummy {f00=0x015a, f01=0x0190, f02=» T d 0 P ST A2,ECBBA,A8 BITS 2-17 IN 18-BIT ADDRESS U P RTN A15 U < P* U L P EJECT TOSSIO U V P* U n P* T I O K B I U x P* U B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN U N P* ISSUED AND THE DEVICE IS KEYBOARD/CTW. T
0x44bf40…44c0d4 (1, 1193) Dummy {f00=0x015a, f01=0x0190, f02=»PCO'. U j 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT V , P* COMPLETION OF THE REQUEST IS 'TENKBI'. V F P* V v P* INPUT: A6 = DWT ADDRESS V P* A7 = ORDER CODE V " P* A8 = DWT ECB ADDRESS V P* A9 = USER ECB ADDRESS V , P* A12
0x44c0d4…44c268 Dummy {f00=0x015a, 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
0x44c268…44c3fc Dummy {f00=0x015a, 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
0x44c3fc…44c590 Dummy {f00=0x015a, 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
0x44c590…44c724 Dummy {f00=0x015a, 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
0x44c724…44c8b8 Dummy {f00=0x015a, 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
0x44c8b8…44ca4c Dummy {f00=0x015a, 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
0x44ca4c…44cbe0 Dummy {f00=0x015a, 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
0x44cbe0…44cd74 (1, 1194) Dummy {f00=0x015a, f01=0x0190, f02=»BUFFER) TO SYSTEM BUFFER ] v P* ^ PTIPO20 RTN A15 ^ * P* ^ @ 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN ^ J 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNEVEN ^ ~ 0 P ELR A4,A1 FIRST CHARACTER FROM USER BUFFER ^ 2 P STR A4,A2 STORE FIRST CHARACT
0x44cd74…44cf08 Dummy {f00=0x015a, f01=0x0190, f02=»G CHARACTERS ^ x P* _ P EJECT TOSSIO _ P* _ 6 P* I O : E R R _ @ P* _ V , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. _ ` B P* SET RETURN CODE /8008 (REQUEST ERROR AND INCORRECT LENGTH). _ & P* BRANCH TO DISPATCHER VIA TENDIO. _ P* _ 4
0x44cf08…44d09c Dummy {f00=0x015a, f01=0x018e, f02=» _ v P SLL A1,2 CHECK ECHO BIT ` P RF(NN) IO:E10 NOT ECHO ` ( P LDR A1,A6 SAVE DWT ADDRESS ` H & P LD A6,DWTECH,A6 ECHO DWT ADDRESS ` l P CF A15,TENDIO ` " P LDR A6,A1 RESTORE DWT ADDRESS ` P* ` PIO:E10 EQU * ` " P LDKL A1,/8008 SET RETUR
0x44d09c…44d230 Dummy {f00=0x015a, f01=0x0190, f02=» ` " PTIOMXO EQU TIOMXI MUX, OUTPUT a P* a . P* T I O K B O a 8 P* a N * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT a X P* a P* T I O I T O a P* a 6 PTIOITO EQU A15RTN INTERTASK COMMUNICATION, OUTPUT a P* a P* T I O D K O a
0x44d230…44d3c4 Dummy {f00=0x015a, f01=0x0190, f02=»ULE IS CALLED BY 'TENDIO' WHEN A REQUEST a . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. b 0 D P* NOTICE THAT MODULES 'TENDKI' AND 'TENDKO' ARE EQUAL TO TEN:DM. b b P* b P* INPUT: A6 = DWT ADDRESS b $ P* A8 = USER ECB ADDRESS b P* b P
0x44d3c4…44d558 Dummy {f00=0x015a, f01=0x0190, f02=»D A1,ECBCW2,A1 SECOND CONTROL WORD b P ES A1,ECBCW2,A8 c * P RTN A15 c B P* c R P EJECT TOSSIO c P* c t 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 @ P* COMPLETED AND THE DEVICE IS RUNN
0x44d558…44d6ec Dummy {f00=0x015a, f01=0x0190, f02=»CE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. c 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. d B P* d ~ P* INPUT: A6 = DWT ADDRESS d $ P* A8 = USER ECB ADDRESS d P* d & P* OUTPUT: A1-A4, A8 ARE DESTROYED d P*
0x44d6ec…44d880 Dummy {f00=0x015a, f01=0x0190, f02=»F(NP) TEPI30 NO MOVE IF ZERO d & P LD A1,ECBBA,A2 DWT BUFFER ADDRESS e $ P* e N . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' e X ( P EL A2,ECBBA,A8 USER BUFFER ADDRESS e $ P LDK A3,1 CHECK BUFFER ADDRESSES e P TM A3,A1 e * P RF(Z) TEPI20 DWT BUFFER
0x44d880…44da14 (1, 1195) Dummy {f00=0x015a, f01=0x018e, f02=»OSSIO e P* f P* f 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN f " 0 P LDR* A3,A1 FIRST CHARACTER FROM DWT BUFFER f X P ELR A8,A2 f P* f * PTEPI15 ANK A3,/FF SKIP LEFT CHARACTER f ( P ANKL A8,/FF00 SKIP RIGHT CHARACTER f P ORR A
0x44da14…44dba8 Dummy {f00=0x015a, f01=0x0190, f02=» * P RF(P) TEPI25 MORE CHARACTERS TO MOVE g P RTN A15 NO, RETURN g 2 P* g N PTEPI20 TM A3,A2 g X * P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN g p " P LDR A3,A1 DWT BUFFER ADDRESS g $ P ADR A3,A4 ADD EFFECTIVE LENGTH g P* g $ PTEPI23 LC A8,-1,A3
0x44dba8…44dd3c Dummy {f00=0x015a, f01=0x018e, f02=»RE WITH START ADDRESS OF BUFFER g * P RB(NE) TEPI23 MORE CHARACTERS TO MOVE h ( 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN h V P RB TEPI10 h P* h P EJECT TOSSIO h P* h P* h , PTEPI25 LDR A3,A4 CHECK REQUESTED LENGTH h P ANK A
0x44dd3c…44ded0 Dummy {f00=0x015a, f01=0x0190, f02=» h P* i , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN i ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN i B , P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE i n P LDR A8,A4 NO, SAVE A4 i 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER i & P ADR A1,A8 UPDATE BUFFER
0x44ded0…44e064 Dummy {f00=0x015a, f01=0x0190, f02=»B TEPI15 i P* j . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN j " P LDR A3,A1 DWT BUFFER ADDRESS j L $ P ADR A1,A4 ADD EFFECTIVE LENGTH j r P* j " PTEPI70 LCR A8,A3 ONE CHARACTER j 6 P SC A8,-1,A3 MOVE THIS CHAR. ONE BYTE TO THE LEFT j & P ADK
0x44e064…44e1f8 Dummy {f00=0x015a, f01=0x018e, f02=»1,A4 NO, RESTORE DWT BUFFER ADDRESS j * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN k , P RB TEPI25 k Z P* k l P EJECT TOSSIO k v P* k P* T E N M X I k P* k PTENMXI EQU A15RTN MUX, INPUT k P* k P* T E N K B I k P* k & PTE
0x44e1f8…44e38c Dummy {f00=0x015a, f01=0x0190, f02=» P* l P* T E N D K I l P* l $ " PTENDKI EQU TEN:DM DISC, INPUT l . P* l T P EJECT TOSSIO l ^ P* l v P* T E N P C O l P* l 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT l P* l P* T E N M X O l P* l " PTENMXO EQU
0x44e38c…44e520 Dummy {f00=0x015a, f01=0x0190, f02=»K O l P* m " PTENDKO EQU TEN:DM DISC, OUTPUT m P* m < P EJECT TOSSIO m F P* m ^ P* T E N I T O m h P* m ~ F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN m L P* COMPLETED FOR INTERTASK COMMUNICATION, IN PURPOSE TO
0x44e520…44e6b4 (1, 1196) Dummy {f00=0x015b, f01=0x018e, f02=»E DATA. m p P* n P* INPUT: A6 = DWT ADDRESS n P* n < & P* OUTPUT: A1-A4, A8 ARE DESTROYED n F P* n p 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT n z $ P LD A8,DWTECB,A6 DWT ECB ADDRESS n $ P LD A3,ECBEL,A8 EFFECTIVE LENGTH n P RF(NP) TE
0x44e6b4…44e848 Dummy {f00=0x015b, f01=0x0190, f02=» P* o P EJECT TOSSIO o P* o & P* D C : M O T o 0 P* o F < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER o P < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO o < P* THE DRIVER BUFFER. THE MOVE ROUTINE IN MODULE 'TIOPCO'
0x44e848…44e9dc Dummy {f00=0x015b, f01=0x0190, f02=» o l P* p , PDC:MOT EQU * DATA COMMUNICATION, OUTPUT p " P MSR 8,A15 SAVE A1-A8 ON STACK p B $ P SUKL A15,32 ADJUST STACKPOINTER p h * P TS 2,A15 SAVE MMU REGISTERS ON STACK p " P LD A5,DWTTAB,A6 TTAB ADDRESS p $ P TL TTB:MT,A5 LOAD MMU REGISTERS p
0x44e9dc…44eb70 Dummy {f00=0x015b, f01=0x0190, f02=»DRIVER p v . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK q $ P ADKL A15,32 ADJUST STACKPOINTER q @ * P MLR 8,A15 RESTORE A1-A8 FROM STACK... q h P RTN A15 ...AND RETURN q P XIF q P* q P EJECT TOSSIO q P* q P* D C : M I N q P* q
0x44eb70…44ed04 Dummy {f00=0x015b, f01=0x0190, f02=»UFFER. q L P* r P* INPUT: A1 = RETURN CODE r ( P* A4 = DRIVER BUFFER ADDRESS r : P* A6 = DWT ADDRESS r f P* r ( P* OUTPUT: NO REGISTERS ARE DESTROYED r P* r PDC:MIN EQU * r P IFT MMUPAG=0 r P IFT CPU852=1 r & P
0x44ed04…44ee98 Dummy {f00=0x015b, f01=0x0190, f02=»FT MMUPAG=1 r $ P SUKL A15,32 ADJUST STACKPOINTER s * P TS 2,A15 SAVE MMU REGISTERS ON STACK s < " P LD A5,DWTTAB,A6 TTAB ADDRESS s j $ P TL TTB:MT,A5 LOAD MMU REGISTERS s P XIF s P* s P EJECT TOSSIO s P* s P* M I N M O V s P*
0x44ee98…44f02c Dummy {f00=0x015b, f01=0x0190, f02=»WT ADDRESS s P* t " PMINMOV EQU * DC:MIN MOVE ENTRY t P ENB t B P LD A3,DWTECB,A6 ECB ADDRESS t N * P LDR A7,A4 SAVE DRIVER BUFFER ADDRESS t r $ P LD A2,ECBEL,A3 EFFECTIVE LENGTH t " P RF(NP) MIN:40 NOTHING TO MOVE t 8 P CW A2,ECBRL,A3 CHECK IF U
0x44f02c…44f1c0 Dummy {f00=0x015b, f01=0x0190, f02=»DRESS t r P LDR A3,A5 u ( P ANK A3,1 CHECK USER BUFFER ADDRESS u . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVEN u L P SUK A2,2 u ~ , P RF(N) MIN:30 ONLY ONE CHARACTER TO MOVE u P* u P EJECT TOSSIO u P* u P* WORD MOVE u P* u
0x44f1c0…44f354 (1, 1197) Dummy {f00=0x015b, f01=0x0190, f02=» SUK A2,2 DECREMENT LOOP COUNTER u 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE v ( P* v ^ PMIN:20 EQU * v h P ADK A2,1 v | P RF(N) MIN:40 MOVE FINISHED v P* v P* CHARACTER MOVE v P* v PMIN:30 EQU * v " P LCR A3,A7 MOVE ONE CH
0x44f354…44f4e8 Dummy {f00=0x015b, f01=0x0190, f02=» RB(P) MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE v P XIF w : P* w F P IFT MMUPAG=1 w P * P ST A1,ECBRC,A3 SET RETURN CODE IN ECB w f $ P LDR A1,A4 DRIVER BUFFER ADDRESS w P LDR A4,A2 EFFECTIVE LENGTH w & P LD A8,DWTUEC,A6 USER ECB ADDRESS w (
0x44f4e8…44f67c Dummy {f00=0x015b, f01=0x0190, f02=» TOSSIO w P* x P* x PMIN:40 EQU * x $ P INH x 8 " P CF A15,TENDIO PERFORM TENDIO x D P* x j P* RELEASE BUFFER x t P* x * P LD A3,DWTADR,A6 DRIVER ADDRESS BLOCK x ( P LD A1,POLADR,A3 BUFFER POOL ADDRESS x & P RF(Z) MIN:60 NO RELEASE
0x44f67c…44f810 Dummy {f00=0x015b, f01=0x018e, f02=»N:50 NOT LAST BUFFER IN CHAIN x P* y & $ P* INSERT BUFFER AT END OF CHAIN y 0 P* y X ( P SU A4,HDRLEN,A3 REAL BUFFER ADDRESS y b " P STR A4,A2 UPDATE QUEUE LINKS y P CMR A4 y P* y PMIN:60 EQU * y P IFT CPU852=1 y ( P ABL IHRET8 REST
0x44f810…44f9a4 Dummy {f00=0x015b, f01=0x018e, f02=» * P MLR 8,A15 RESTORE A1-A8 FROM STACK... z P* z 2 PDC:MOT RTN A15 ...AND RETURN z < P XIF z ` P* z l P IFT MMUPAG=1 z v " P RB DC:RTN RETURN TO DC DRIVER z P XIF z P* z P* ERROR EXIT z P* z " PMIN:70 EQU * DC:MIN ERROR EXIT z
0x44f9a4…44fb38 Dummy {f00=0x015b, f01=0x018e, f02=» z P* { P IFT MMUPAG=0 { P IFT CPU852=1 { ( PDC:MOT EQU * { > 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS { R P XIF { P* { P EJECT TOSSIO { P* { P* { P********** { P* TENDIO * { P********** { P* {
0x44fb38…44fccc Dummy {f00=0x015b, f01=0x0190, f02=» P* | * P* ACTOTP IS CALLED TO START THE TASK | P* | < P* -IF NORMAL I/O WITH WAIT:- | F P* | j * P* QTJOB IS CALLED TO QUEUE THE TASK | t 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- | P* | P* A5 = TTAB ADDRESS | P*
0x44fccc…44fe60 Dummy {f00=0x015b, f01=0x0190, f02=»CE (DWTTQ NOT ZERO) | j J P* THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. } P* } j P EJECT TOSSIO } t P* } P* } 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- } P* } P* A1 = RETURN CODE } P* } P*
0x44fe60…44fff4 (1, 1198) Dummy {f00=0x015b, f01=0x0190, f02=»DEPENDENT SUBROUTINES ARE PERFORMED. } P* ~ , P EJECT TOSSIO ~ 6 P* ~ N P* END I/O ENTRY ~ X P* ~ p PTENDIO EQU * ~ z P IFT CPU852=1 ~ & P CF A15,SAVE8 SAVE A1-A8 ON STACK ~ P XIF ~ P* ~ P IFT CPU852=0 ~ P INH ~ " P M
0x44fff4…450188 Dummy {f00=0x015b, f01=0x0190, f02=»INT TO DWT STATUS ~ P INH ( P LD A5,DWTTQ,A6 TERMINAL QUEUE LINK & P RF(Z) TEN110 NO TASK QUEUED R P* v P IFT ATTDET=1 P LDKL A2,/800 ATTACH BIT P ANR* A2,A4 , P RF(Z) TEN095 DEVICE NOT ATTACHED =2 =1 , P CW A5,DWTTAB,
0x450188…45031c Dummy {f00=0x015b, f01=0x0190, f02=»CK AND TIMER =1 r P LDR A4,A6 =1 P ADK A4,DWTST RESTORE A4 =1 . P XIF R P* ^ P EJECT TOSSIO h P* P* PTEN100 EQU * , P LDR* A3,A5 UPDATE QUEUE ANCHOR ADDRESS P ST A3,DWTTQ,A6 . P CF A15,QTJOB QUEUE TASK
0x45031c…4504b0 Dummy {f00=0x015b, f01=0x0190, f02=»TEN120 LDKL A2,/8000 , P ORRS A2,A4 INDICATE DEVICE READY IN DWT P LDKL A3,/DBFF L ( P ANRS A3,A4 RESET ECHO BIT AND BIT 5 b P LD A3,DWTECB,A6 ECB ADDRESS : P RF(Z) TEN260 BRANCH IF ENTERED FROM ECHO OR RECOVERY P* P EJECT TOSSI
0x4504b0…450644 Dummy {f00=0x015b, f01=0x018e, f02=»FT MMUPAG=1 P LD A4,TTB:PW,A5 PSW " P ANK A4,1 SYSTEM/USER MODE BIT 0 P RF(Z) TEN200 SYSTEM MODE V P* x P* LOAD MMU REGISTERS P* PTEN130 EQU * $ P SUKL A15,32 ADJUST STACKPOINTER * P TS 2,A15 SAVE MMU REGISTERS ON STAC
0x450644…4507d8 Dummy {f00=0x015b, f01=0x0190, f02=» P* & P LD A8,DWTUEC,A6 USER ECB ADDRESS P ELR A4,A8 8 * P ORR A4,A2 SET EVENT COMPLETED IN ECB J P ESR A4,A8 x P LDR A1,A3 P ADK A1,ECBEL P LDR A2,A8 P ADK A2,ECBEL P LDK A4,6 4 P MVSU A4 MOVE EFF. LENGTH, R
0x4507d8…45096c Dummy {f00=0x015b, f01=0x018e, f02=»N) TEN160 NO SPECIAL ACTION REQUIRED " P RF(Z) TEN140 DATA MANAGEMENT , P CWK A3,DK:DIX CHECK IF DISC R P RF(E) TEN140 DISC v P* " P* PERFORM CHECK ON ORDER CODE P* , P CF A15,RD:WR CHECK IF IT WAS READ/WRITE . P RF(Z) TEN160
0x45096c…450b00 Dummy {f00=0x015b, f01=0x0190, f02=» V P* P EJECT TOSSIO P* * P* RESTORE MMU REGISTERS 4 P* T PTEN150 EQU * ^ P INH r P* ~ PTEN160 EQU * . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK $ P ADKL A15,32 ADJUST STACKPOINTER P XIF P*
0x450b00…450c94 (1, 1199) Dummy {f00=0x015b, f01=0x0190, f02=»,DWTWAT,A6 WAIT/ACTIVATE INDICATOR ( P RF(Z) TEN250 NOT WAIT OR ACTIVATION * P SUK A4,1 V P RF(Z) TEN240 WAIT h P ADK A4,1 P LDR A3,A4 P ANK A3,1 P RF(Z) TEN270 ACTIVATION P* P* MULTIPLE WAIT P* P LD
0x450c94…450e28 Dummy {f00=0x015b, f01=0x0190, f02=» v . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS P XIF : P* F PTEN210 EQU * P 4 P ST A8,TTB:SA+16,A5 SET TO A8 IN TTAB SAVE AREA d P* : PTEN220 ADK A4,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR P LDR* A3,A4 NEXT DWT ADDRESS P
0x450e28…450fbc Dummy {f00=0x015b, f01=0x0190, f02=» PTEN240 EQU * 2 P CF A15,QTJOB WAIT: QUEUE TASK FOR DISPATCHING P* R P* NO WAIT P* n PTEN250 EQU * x $ P CM DWTECB,A6 RESET ECB ADDRESS P* PTEN260 EQU * P IFT CPU852=1 P ABL IHRET8 P XIF P
0x450fbc…451150 Dummy {f00=0x015b, f01=0x40e4, f02=»WITH ACTIVATION P* PTEN270 EQU * " 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR 6 . P CF A15,ACTOTP ACTIVATE TASK ON LIFO BASIS r P RB TEN250 P* P* P* P END @ P ABL IHRET8 P XIF P
0x451150…4512e4 Dummy {f00=0x015b, f01=0x2008, f02=» NT TOSSIO END @ &
0x4512e4…451478 Dummy {f00=0x015b, f01=0x0190, f02=» 0 G z * & O q O pT V O P * & 0 G V O X N P W F , ( W V O X O pT W t * & ? W W W 0 * & ] G W 0 G * & {
0x451478…45160c Dummy {f00=0x015b, f01=0x0190, f02=» 0 G T V O X N P W , ( W V O XW C T W * , ( P C W V O XW V Z , ( 5 B T V O XW B W V * & U & G : F 00T V , ( s b O N 9T
0x45160c…4517a0 Dummy {f00=0x015b, f01=0x0190, f02=» T Uv Vb PT j H D !L T* !W 7TD c { }W P T V* T W W T & , ( P Wx /W" 9T IW oT4 T W T r $ $ q $ } $ u $
0x4517a0…451934 (1, 1200) Opaque[0x194]
0x451934…451ac8 # DirEnt {nam=»TPAGAL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2b80, f03=0x0000}
0x451934…451ac8 IdxSect {
0x451934…451ac8 f00 = 0x015c // 0x451934 @0x0
0x451934…451ac8 f01 = 0x000c // 0x451936 @0x2
0x451934…451ac8 gno = [ // 0x451938 @0x4
0x451934…451ac8 [0x00]: C0x015c.0x0.0
0x451934…451ac8 [0x01]: C0x015c.0x1.0
0x451934…451ac8 [0x02]: C0x015c.0x2.0
0x451934…451ac8 [0x03]: C0x015c.0x3.0
0x451934…451ac8 [0x04]: C0x015d.0x0.0
0x451934…451ac8 [0x05]: C0x015d.0x1.0
0x451934…451ac8 ]
0x451934…451ac8 }
0x451ac8…451c5c Dummy {f00=0x015c, f01=0x0190, f02=» 2 P IDENT TPAGAL REL 11.0 81-01-26 870105041100 P : B =************************************************************* B B =* * B =* PHILIPS TERMINAL SYSTEM PTS
0x451c5c…451df0 Dummy {f00=0x015c, f01=0x0190, f02=» * Z B =* * B P* THIS MODULE CONTAINS THE LKM PROCESSOR USED IN TOSS * V B =* MEMORY MANAGEMENT SYSTEMS FOR DYNAMICAL ALLOCATION OF * B P* LOGICAL CORE MEMORY.
0x451df0…451f84 Dummy {f00=0x015c, f01=0x0190, f02=»ORTED: * n B =* * $ < P* -GET PAGE * j < P* -ATTACH PAGE * < P* -RELEASE PAGE
0x451f84…452118 Dummy {f00=0x015c, f01=0x018e, f02=»****************************** p P EJECT & P* 4 P************* > P* ENTRIES * T P************* j P* . P ENTRY TPAGAL COMMON ENTRY FOR: -GET PAGE 2 P -ATTACH PAGE 2 P
0x452118…4522ac Dummy {f00=0x015c, f01=0x0190, f02=» , P EXTRN RELPA2 INSERT PAGE IN FREE QUEUE P* 4 * P EXTRN LKMQDI QUEUE TASK AND DISPATCH > , P EXTRN LKMRQE PAGE ERROR ENTRY IN LRPINT l 2 P EXTRN TTB:AM DISPLACEMENT TO ALLOCATION TABLE . P EXTRN TTB:MT DISPLACEMENT TO START OF MMU 6 P EXT
0x4522ac…452440 Dummy {f00=0x015c, f01=0x0190, f02=» OF PAGE TABLE r " P EXTRN SCTNOP NUMBER OF PAGES 2 P EXTRN PAGQUE ADDRESS TO POINTER TO FREE QUEUE < . P EXTRN PAG:PA DISPLACEMENT TO PAGE ADDRESS r 6 P EXTRN PAG:QB DISPLACEMENT TO QUEUE LINK BACKWARD 8 P EXTRN PAG:SB DISPLACEMENT TO SEGMENT BLOC
0x452440…4525d4 (1, 1201) Dummy {f00=0x015c, f01=0x0190, f02=»100 LOGICAL PAGE SIZE 4 PMAXATT EQU 100 MAXIMAL NUMBER OF ATTACH REQUEST P ON SAME PAGE V P EJECT n P* | P*************************** P* CONDITIONAL ASSEMBLY * P*************************** P* . P* A PROGRAM
0x4525d4…452768 Dummy {f00=0x015c, f01=0x0190, f02=» A PROGRAM VERSION USING THE EXTENDED INSTRUCTION SET * P* IS OBTAINED BY SETTING CPU852 EQU 0 > P* l PCPU852 EQU 0 v P* P* P EJECT P* P* P**************************** P* FUNCTIONAL DESCRIPTION * P
0x452768…4528fc Dummy {f00=0x015c, f01=0x0190, f02=» P* REQUEST: LKM P* DATA 26 P* < P* REQUEST PARAMETERS: A7=0 F P* j ( P* RETURN PARAMETERS: A1=PAGE NUMBER t @ P* A7=UNCHANGED OR -1 IF NO PAGE IN QUEUE 4 P* A8=LOGICAL ADD
0x4528fc…452a90 Dummy {f00=0x015c, f01=0x0190, f02=»THE REQUEST f P* IS TERMINATED. P* 8 P IFT MMUPAG=1 B H P* THE MMU TABLE BIT MAP IS EXAMINED FOR FREE SUBENTRIES. X J P* WHEN ONE IS FOUND, THE FREE QUEUE IS SCANNED FOR A FREE 6 P* PAGE THA
0x452a90…452c24 Dummy {f00=0x015c, f01=0x0190, f02=»CLUDED IN THE USER AREA. v @ P* THE CORRESPONDING BIT IN THE MMU TABLE BIT MAP F P* IS SET AS TO INDICATE THAT THE SUBENTRY IS OCCUPIED. d F P* IF NONE OF THE FREE PAGES FITS IN CURRENT SUBENTRY, F P* TH
0x452c24…452db8 Dummy {f00=0x015c, f01=0x0190, f02=»JECT @ P* IF NO PAGE IS FOUND THAT FITS IN ANY SUBENTRY, B P* OR IF THERE ARE NO FREE PAGES OR FREE SUBENTRIES P B P* AT ALL, PAGE ERROR IS INDICATED AND THE REQUEST P* IS TERMINATED. P*
0x452db8…452f4c Dummy {f00=0x015c, f01=0x0190, f02=»IN FREE QUEUE IS REMOVED. t P* " 8 P* IF THERE IS NO FREE PAGES, PAGE ERROR , > P* IS INDICATED AND THE REQUEST IS TERMINATED. h P* P XIF P IFF MMUPAG=1 P* . P* THE LAST PAGE IS REMOVED FROM FREE QUE
0x452f4c…4530e0 Dummy {f00=0x015c, f01=0x0190, f02=» THE LOGICAL ADDRESS TO PAGE IS STORED IN , P* SECOND WORD IN PAGE BLOCK < < P* IF A SEGMENT IS ATTACHED TO THE PAGE,BIT 0 l < P* (SEGMENT LOADED IN CORE) IN STATUS WORD IN , P* SEGMENT BLOCK
0x4530e0…453274 (1, 1202) Dummy {f00=0x015c, f01=0x0190, f02=»S THE PAGE ` > P* IS ATTACHED TO. IT IS INITIALLY SET TO ONE. P* T P EJECT ^ P* l P* v P* ****************** P* * RELEASE PAGE * P* ****************** P* P* P* REQUEST: LKM P*
0x453274…453408 Dummy {f00=0x015c, f01=0x0190, f02=»N PARAMETERS: A7=UNCHANGED OR -1 IF ILLEGAL PAGE 6 P* A8=NUMBER OF REMAINING USERS 8 P* r P* | < P* FUNCTION: PAGE NUMBER IS CHECKED - IF NEGATIVE OR IF > P* GREATER THAN NUMBER OF AVALIABLE PAGES PAGE D P
0x453408…45359c Dummy {f00=0x015c, f01=0x0190, f02=»K) IS Z B P* DECREMENTED BY ONE. IF IT BECOMES ZERO THE PAGE : P* THE PAGE IS INSERTED IN THE FREE QUEUE. T P* P IFT MMUPAG=1 @ P* THE CORRESPONDING BIT IN THE MMU TABLE BIT MAP @ P* IS C
0x45359c…453730 Dummy {f00=0x015c, f01=0x018e, f02=»TORED IN THE MMU ENTRY. ~ P XIF P EJECT , P* : P* D P* ***************** N P* * ATTACH PAGE * l P* ***************** P* P* P* REQUEST: LKM P* DATA 26 P* P* REQUEST PAR
0x453730…4538c4 Dummy {f00=0x015c, f01=0x0190, f02=» V 4 P* A8=LOGICAL ADDRESS TO PAGE P* @ P* J < P* FUNCTION: PAGE NUMBER IS CHECKED - IF NEGATIVE OR IF T > P* GREATER THAN NUMBER OF AVALIABLE PAGES ERROR > P* IS INDICATED AND THE REQUEST IS TERM
0x4538c4…453a58 Dummy {f00=0x015c, f01=0x0190, f02=»ONDING PAGE IS FETCHED. x J P* IF THE CORRESPONDING SUBENTRY IN THE MMU TABLE IS FREE, D P* THE PAGE IS INCLUDED IN THE USER AREA ON THE SAME n $ P* LOGICAL ADDRESS.. @ P* THE CORRESPONDING BIT IN THE
0x453a58…453bec Dummy {f00=0x015c, f01=0x018e, f02=»Y CORRESPONDING TO THE LOGICAL ADDRESS t F P* IS OCCUPIED, PAGE ERROR IS INDICATED AND THE REQUEST . P* IS TERMINATED. x P* P XIF P* @ P* THE ATTACH COUNTER (FOURTH WORD IN PAGE BLOCK) ( P*
0x453bec…453d80 Dummy {f00=0x015c, f01=0x0190, f02=» | P* > P* CHECK NUMBER OF FREE PAGES - IF NOT ENOUGTH, TERMINATE P* THE REQUEST WITH A8=0 T P* t * P LD A6,PAGQUE+2 GET END OF FREE QUEUE ~ . P CW A6,PAGQUE SAME AS START OF FREE QUEUE? ( P RF(E) PAGERR NOT ENOUGTH FREE PAGES
0x453d80…453f14 (1, 1203) Dummy {f00=0x015c, f01=0x0190, f02=»DR A3,A5 GET TTAB ADDRESS LDR A8,A3 SAVE " . P ADKL A3,TTB:AM START OF ALLOCATION TABLE : , ' ADKL A8,TTB:MT END OF ALLOCATION TABLE l LDR A10,A8 SAVE , PGET:10 LDKL A6,/8000 INIT OCCUPATION BIT & " LDR* A4,A3 GET 16 ALLOCATION BITS
0x453f14…4540a8 Dummy {f00=0x015c, f01=0x0190, f02=»DK A3,2 INCREMENT ALLOCATION TABLE POINTER ( # CWR A3,A8 END OF ALLOCATION TABLE? 2 P RF(E) PAGERR YES! ^ P RB GET:10 x EJECT ( $GET:40 LDR A2,A4 GET ALLOCATION WORD 4 / ANKL A2,/F000 ANY FREE SUBENTRY IN THIS ENTRY? RF(NZ) GET:
0x4540a8…45423c Dummy {f00=0x015c, f01=0x0190, f02=»E) GET:25 YES RB GET:40 6 2GET:60 LDR* A13,A10 GET CONTENT IN MMU TABLE ENTRY ( ( P ANKL A13,/FC00 ISOLATE ADDRESS BITS b PGET:70 ADK A2,0 ENTRY FREE? P RF(N) SFQFFP YES P RB(Z) GET:50 $ PGET:80 ADKL A13,LPGSIZ NEXT PAGE *
0x45423c…4543d0 Dummy {f00=0x015c, f01=0x0190, f02=»AGE TO FIT IN CURRENT MMU SUBENTRY v * * 4 /* BIT SET IN A1 CORRESPOND TO CURRENT SUBENTRY 4 < 8* A3 - POINTER TO CURRENT ENTRY IN MMU ALLOCATION TABLE l * %* A10 - POINTER TO CURRENT MMU ENTRY " P* A11 - PHYSICAL PAGE ADDRESS " P* A13 -
0x4543d0…454564 Dummy {f00=0x015c, f01=0x0190, f02=» TO LAST FREE PAGE BLOCK IN QUEUE t * * , P LD A1,PAGQUE+2 GET POINTER TO LAST PAGE 4 P IFT MMUPAG=1 d 2 PSFQ:10 CWK A1,PAGQUE ANY MOORE PAGE IN QUEUE? z P RB(E) GET:80 NO! 6 PSFQ:20 LD A11,PAG:PA,A1 GET PHYSICAL PAGE ADDRESS , PSFQ:
0x454564…4546f8 Dummy {f00=0x015c, f01=0x0190, f02=»ET PHYS. PAGE ADDRESS TO FIT IN SUBENTRY | & P XRR A12,A11 SAME PHYSICAL ADDRESS 0 RF(Z) SFQ:45 YES Z * P LD A1,PAG:QB,A1 GET BACKWARD POINTER t P RB SFQ:10 TRY NEXT PAGE P XIF P EJECT 0 PSFQ:45 LD A4,TTB:ID,A5 GET CALLING TASKS ID
0x4546f8…45488c Dummy {f00=0x015c, f01=0x0190, f02=» ST A12,PAG:QB,A9 CHANGE BACKWARD POINTER ( P STR A4,A1 STORE TASK IDENTIFICATION 2 * P LD A4,PAG:SB,A1 ANY SEGMENT ATTACHED? ^ P RF(Z) SFQ:55 NO! . P LDKL A2,/7FFF INDICATE NOT LOADED IN CORE P ANRS A2,A4 STORE NEW STATUS . P CM PAG:SB,A
0x45488c…454a20 Dummy {f00=0x015c, f01=0x0190, f02=»4,3 ISOLATE 1K-DISPLACEMENT ( PSFQ:60 SUK A4,1 MOORE DISPLACEMENT? $ P RF(N) SFQ:70 P P SRL A6,1 f P RB SFQ:60 x & PSFQ:70 ADK A7,0 GET PAGE REQUEST? P RF(Z) SFQ:80 YES! " P LDR A4,A6 GET OCCUPATION BIT * P ANR* A4,A3 SUBENTRY
0x454a20…454bb4 (1, 1204) Dummy {f00=0x015d, f01=0x0190, f02=» LDR A6,A13 GET LOGICAL PAGE ADDRESS & P ANKL A6,/300 ISOLATE DISPLACEMENT , $ P SLA A6,2 PHYSICAL DISPLACEMENT V P LDR A11,A6 SAVE ~ , ( ANKL A13,/FC00 PHYSICAL 4K-PAGE ADDRESS $ STR A13,A10 STORE IN MMU TABLE P EJECT * $ *
0x454bb4…454d48 Dummy {f00=0x015d, f01=0x0190, f02=» MMU ENTRY IN BITS 0-3 P ADR A6,A11 ADD DISPLACEMENT P XIF B P IFF MMUPAG=1 N P LD A6,PAG:PA,A1 d P XIF | . P ST A6,TTB:SA+16,A5 SAVE IN TTAB SAVE AREA P XIF " P SUK A7,2 ATTACH PAGE REQUEST? P RF(E) SFQ:90 YES! 2 P S
0x454d48…454edc Dummy {f00=0x015d, f01=0x0190, f02=» z * , PRET:30 SU A1,SCTPAG COMPUTE DISPLACEMENT & P SRL A1,3 CONVERT TO BLOCK NUMBER B " PRET:40 ST A1,TTB:SA+2,A5 SAVE l RET:50 EQU * P EJECT * * RESTORE REGISTER A1-A14 * ( # ABL LKMQDI QUEUE TASK AND DIS
0x454edc…455070 Dummy {f00=0x015d, f01=0x0190, f02=»EQU * $ P LDR A4,A1 NEGATIVE PAGE NUMBER ! P RB(N) PAGERR YES! ERROR! ! 6 , P ADK A4,1 ADJUST PAGE NUMBER FOR COMPARE ! X 0 P CW A4,SCTNOP PAGE NUMBER > NUMBER OF PAGES? ! P RB(G) PAGERR YES! ! * ! * GET PAGE BLOCK ADDRESS ! * !
0x455070…455204 Dummy {f00=0x015d, f01=0x0190, f02=» PAGE ADDRESS ! r ( P LD A4,PAG:SB,A1 GET ATTACH COUNTER " 2 P RB(NP) PAGERR NO PREVIOUS GET REQUEST ISSUED! " B * P SUK A4,MAXATT SEGMENT BLOCK ADDRESS? " x , P RB(G) PAGERR YES;NO GET REQUEST ISSUED! " $ P CWK A7,1 RELEASE PAGE REQUEST? " P RF(E) REL
0x455204…455398 Dummy {f00=0x015d, f01=0x0190, f02=»MUPAG=1 " P RB SFQ:55 # P XIF # " P IFT MMUPAG=1 # . P EJECT # D ( P LD A4,PAG:QB,A1 GET LOGICAL ADDRESS # R P LDR A13,A4 SAVE # ~ . P SRL A4,11 2*(BIT 0-3 OF LOGICAL ADDRESS) # P LDR A8,A5 GET TTAB ADDRESS # & P ADKL A8,TTB:MT START OF MMU
0x455398…45552c Dummy {f00=0x015d, f01=0x0190, f02=»C00 ISOLATE PHYSICAL PAGE ADDRESS # . P RB(NE) PAGERR NO;PAGE CANNOT BE ATTACHED! $ * " PATT:10 LDR A3,A4 GET BITS 0-1 $ " P ANK A3,24 OF LOGICAL ADDRESS $ , P SRL A3,2 2*(BIT 0-1 OF LOGICAL ADDRESS) $ P ADR A3,A5 ADD TTAB ADDRESS $ ( P ADKL A3,TTB
0x45552c…4556c0 Dummy {f00=0x015d, f01=0x0190, f02=» $ PATT:20 SUK A4,1 SUBENTRY FOUND? % P RB(N) SFQ:55 YES! % , P SRL A6,4 NEXT SUBENTRY % F P RB ATT:20 % f P EJECT % x P XIF % PREL:00 EQU * % IFT MMUPAG=1 % P ECR A4,A11 GET PAGE ADDRESS % . P ANK A4,3 ISOLATE DISPLACEMENT IN 4K-PAG
0x4556c0…455854 (1, 1205) Dummy {f00=0x015d, f01=0x0190, f02=»B:MT START OF MMU TABLE % LDR A8,A10 SAVE & 6 1REL:10 LDKL A2,/8000 INIT SUBENTRY OCCUPATION BIT & 8 $ P LDKL A6,/F000 INIT NIBBLE MASK & r 4 /REL:20 LDR A12,A11 GET PHYSICAL 4K-PAGE ADDRESS & , P ANKL A12,/FC00 ISOLATE 4K-PAGE ADDRESS & , P XRR*
0x455854…4559e8 Dummy {f00=0x015d, f01=0x0190, f02=»MU TABLE ENTRY & x . ) SRL A2,4 NEXT MMU ALLOCATION TABLE ENTRY ' P SRL A6,4 ' H RB(NE) REL:20 CHECK NEXT ' Z 0 , ADKL A9,2 NEXT WORD IN MMU ALLOCATION TABLE ' | , ' CWR A9,A8 END OF MMU ALLOCATION TABLE? ' P RB(E) PAGERR YES:ERROR! ' & " RB REL:
0x4559e8…455b7c Dummy {f00=0x015d, f01=0x0190, f02=»RL A2,1 NEXT SUBENTRY ' RB REL:40 ( 0 ,REL:50 LDR A3,A2 GET SUBENTRY OCCUPATION BIT ( 0 " P ANR* A3,A9 SUBENTRY OCCUPIED? ( d $ RB(Z) REL:30 NO: TRY NEXT ENTRY ( C1R A2,A2 COMPLEMENT BITS ( $ P ANRS A2,A9 CLEAR OCCUPATION BIT ( : P ANR* A6,A9
0x455b7c…455d10 Dummy {f00=0x015d, f01=0x0190, f02=» . P STR A6,A10 STORE IN FREE MMU TABLE ENTRY ) P XIF ) 6 0 PREL:60 LD A4,TTB:ID,A5 GET CALLING TASKS ID ) B 0 P CWR* A4,A1 GET REQUEST ISSUED BY THIS TASK? ) v P RF(NE) REL:70 NO! ) * P CMR A1 EXTINGUISH TRACK TO THIS TASK ) PREL:70 SUK A7,2 A7:=-1
0x455d10…455ea4 Dummy {f00=0x015d, f01=0x40ee, f02=» RETURN-PARAMETER ) x P RF(NZ) REL:80 * * * 0 & "* INSERT PAGE BLOCK IN FREE QUEUE * : * * d P LDR A3,A1 * n P INH * ( P CF A15,RELPA2 INSERT RELEASED PAGE * P ENB * PREL:80 ABL RET:50 * END * @ * PREL:70 SUK A7,2 A7:=-1
0x455ea4…456038 Dummy {f00=0x015d, f01=0x2008, f02=» +
0x456038…4561cc Dummy {f00=0x015d, f01=0x0190, f02=»********* * ENTRIES * ************* ( $ P ENTRY TLDPGM LOAD PROGRAM ENTRY > f EJECT n *************** | * EXTERNALS * *************** " P EXTRN TDISP DISPATCHER ENTRY 2 - EXTRN QLTASK QUEUE LOAD TASK
0x4561cc…456360 Dummy {f00=0x015d, f01=0x0190, f02=» r & P EXTRN LD:STB LOAD TASK STACK BASE , P EXTRN LKMQDI QUEUE TASK FOR DISPATCHING 2 , P EXTRN QMEXIT QUEUE TASK FOR DISPATCHING b 0 + EXTRN TTB:SP SEGMENT TABLE POINTER IN TTAB 0 P EXTRN TTB:SB SEGMENT BLOCK POINTER IN TTAB . P EXTRN TTB:AP
0x456360…4564f4 (1, 1206) Opaque[0x194]
0x4564f4…456688 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2bb0, f03=0x0000}
0x4564f4…456688 IdxSect {
0x4564f4…456688 f00 = 0x015d // 0x4564f4 @0x0
0x4564f4…456688 f01 = 0x0006 // 0x4564f6 @0x2
0x4564f4…456688 gno = [ // 0x4564f8 @0x4
0x4564f4…456688 [0x00]: C0x015d.0x2.0
0x4564f4…456688 [0x01]: C0x015d.0x3.0
0x4564f4…456688 [0x02]: C0x015e.0x0.0
0x4564f4…456688 ]
0x4564f4…456688 }
0x456688…45681c Dummy {f00=0x015d, 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
0x45681c…4569b0 Dummy {f00=0x015d, 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
0x4569b0…456b44 Dummy {f00=0x015d, 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*
0x456b44…456cd8 Dummy {f00=0x015d, 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
0x456cd8…456e6c Dummy {f00=0x015d, 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 0
0x456e6c…457000 Dummy {f00=0x015d, 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 =
0x457000…457194 (1, 1207) Dummy {f00=0x015d, 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
0x457194…457328 Dummy {f00=0x015d, 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
0x457328…4574bc Dummy {f00=0x015d, 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
0x4574bc…457650 Dummy {f00=0x015d, 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 *
0x457650…4577e4 Dummy {f00=0x015d, 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
0x4577e4…457978 Dummy {f00=0x015d, 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
0x457978…457b0c Dummy {f00=0x015d, 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
0x457b0c…457ca0 Dummy {f00=0x015d, 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
0x457ca0…457e34 (1, 1208) Dummy {f00=0x015e, 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
0x457e34…457fc8 Dummy {f00=0x015e, 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
0x457fc8…45815c Dummy {f00=0x015e, 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
0x45815c…4582f0 Dummy {f00=0x015e, 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
0x4582f0…458484 Dummy {f00=0x015e, 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
0x458484…458618 Dummy {f00=0x015e, f01=0x0190, f02=» P " W U z , ( :U A " FNDTID@ J , ( ! ? > " @ , ( D @ T " ( ^ @ P , ( R % A A " @ ,T @ , ( E W @ A W
0x458618…4587ac Dummy {f00=0x015e, f01=0x0190, f02=»P V | , ( W _x , ( _` A L , ( @ ,T @ W @ T @ W @ @ | , ( % >a @ A , ( E A ,
0x4587ac…458940 Dummy {f00=0x015e, 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 _
0x458940…458ad4 (1, 1209) Opaque[0x194]
0x458ad4…458c68 # DirEnt {nam=»TSWBLK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2bc8, f03=0x0000}
0x458ad4…458c68 IdxSect {
0x458ad4…458c68 f00 = 0x015e // 0x458ad4 @0x0
0x458ad4…458c68 f01 = 0x0004 // 0x458ad6 @0x2
0x458ad4…458c68 gno = [ // 0x458ad8 @0x4
0x458ad4…458c68 [0x00]: C0x015e.0x1.0
0x458ad4…458c68 [0x01]: C0x015e.0x2.0
0x458ad4…458c68 ]
0x458ad4…458c68 }
0x458c68…458dfc Dummy {f00=0x015e, f01=0x0190, f02=» 2 P IDENT TSWBLK REL 11.0 81-01-26 870105041100 P : * B * L 6 2************************************************** V * $ * PHILIPS TERMINAL SYSTEM PTS * 0 ,* TSWBLK = LOAD/STORE SWAPPABLE WORK BLOCK *
0x458dfc…458f90 Dummy {f00=0x015e, f01=0x0190, f02=»HE LOAD/STORE SWAPPABLE WORK BLOCK v > :* LKM PROCESSOR, USED IN TOSS MEMORY MANAGEMENT SYSTEMS. * * l * v EJECT TSWBLK * * *********** * ENTRIES * *********** * * 2 - ENTRY TSWBL
0x458f90…459124 Dummy {f00=0x015e, f01=0x0190, f02=»******* * * EXTRN TDISP DISPATCHER $ $ EXTRN LKMRQE LKM REQUEST ERROR D P EXTRN ACBSWB SWBTAB ADDRESS l P EXTRN TTB:AP ACB ADDRESS 2 - EXTRN QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB EJECT TSWBLK *
0x459124…4592b8 Dummy {f00=0x015e, f01=0x0190, f02=»M PROCESSOR. ^ * * &* IT IS ENTERED FROM THE LKM HANDLER & "* WITH THE FOLLOWING PARAMETERS: L * v * A5 = TTAB ADDRESS 0 +* A6 = LKM DATA DIRECTIVE: 19 IF LOAD SWB 0 ,* = 20 IF STORE SWB * &*
0x4592b8…45944c Dummy {f00=0x015e, f01=0x0190, f02=»WB (A6 = 19) b > :* = " " " THE SWB TO STORE (A6 = 20) * V D ?* TSWBLK WILL ACTIVATE LDTASK (THE LOAD TASK) AT LABEL LT:SWB ` 8 8* AND LDTASK WILL LOAD/STORE REQUESTED WORK BLOCK. * ( #* IT RETURNS TO CALLING
0x45944c…4595e0 Dummy {f00=0x015e, f01=0x0190, f02=»A7 = -1 IF REQUEST ERROR, ELSE ( #* A7 = -2 IF DISC I/O ERROR, ELSE & $ * A7 = -3 IF DISC NOT OPERABLE R * z EJECT TSWBLK * * %* CHECK VALIDITY OF SWPBLK PARAMETERS * $ TSWBLK EQU * SWB HANDLING ENTRY P L
0x4595e0…459774 (1, 1210) Dummy {f00=0x015e, f01=0x0190, f02=» * COMMON REQUEST ERROR EXIT " ABL LKMRQE LKM REQUEST ERROR $ * J TSW:10 EQU * T ECR A4,A7 h ANK A4,/FF GET TYPE NUMBER z CWR* A4,A1 CHECK IF LEGAL * P RB(G) SWBERR SWB TYPE NUMBER TOO BIG P ADR A4,A4 . * ADR A1,
0x459774…459908 Dummy {f00=0x015e, f01=0x4130, f02=»B COPY NUMBER TOO BIG * * ACTIVATE LOAD TASK ( * D 0 + LDR A3,A5 GET TTAB ADDRESS OF CALLING TASK N " P LDR A4,A6 LKM DATA DIRECTIVE 2 . CF A15,QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB ABL TDISP GO TO DISPATCHER *
0x459908…459a9c Dummy {f00=0x015e, f01=0x2008, f02=» REQUEST x * * ACTIVATE LOAD TASK " * > TSW:20 EQU * H ( $ LDKL A2,LT:SWB GET DISPATCH ADDRESS 2 . CF A15,QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB ABL TDISP GO TO DISPATCHER * * * END
0x459a9c…459c30 Dummy {f00=0x015e, 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
0x459c30…459dc4 Dummy {f00=0x015e, 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
0x459dc4…459f58 Dummy {f00=0x015e, 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
0x459f58…45a0ec Dummy {f00=0x015e, 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
0x45a0ec…45a280 Dummy {f00=0x015e, 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
0x45a280…45a414 (1, 1211) Opaque[0x194]
0x45a414…45a5a8 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2bd8, f03=0x0000}
0x45a414…45a5a8 IdxSect {
0x45a414…45a5a8 f00 = 0x015e // 0x45a414 @0x0
0x45a414…45a5a8 f01 = 0x0004 // 0x45a416 @0x2
0x45a414…45a5a8 gno = [ // 0x45a418 @0x4
0x45a414…45a5a8 [0x00]: C0x015e.0x3.0
0x45a414…45a5a8 [0x01]: C0x015f.0x0.0
0x45a414…45a5a8 ]
0x45a414…45a5a8 }
0x45a5a8…45a73c Dummy {f00=0x015e, 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
0x45a73c…45a8d0 Dummy {f00=0x015e, 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
0x45a8d0…45aa64 Dummy {f00=0x015e, 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.
0x45aa64…45abf8 Dummy {f00=0x015e, 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:
0x45abf8…45ad8c Dummy {f00=0x015e, 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
0x45ad8c…45af20 Dummy {f00=0x015e, 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
0x45af20…45b0b4 (1, 1212) Dummy {f00=0x015f, 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 @
0x45b0b4…45b248 Dummy {f00=0x015f, 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,
0x45b248…45b3dc Dummy {f00=0x015f, f01=0x0190, f02=» READ DIRECT ( PORDLGT EQU *-ORDTAB LENGTH OF TABLE P* B P EJECT TIOADM L P* b P* l P********** v P* OPEMOD * P********** P* * P* BIT MAP OVER ALLOWED COMBINATIONS $ P* IO FUNCTIONS VS. OPEN MODES
0x45b3dc…45b570 Dummy {f00=0x015f, f01=0x0190, f02=»UT EXC,OUT RAN " P DATA /0101 EXTEND EXC,OUT SEQ P* < P EJECT TIOADM F P* P* f P* INPUT : A6 = FDB ADDRESS p P* A8 = ECB ADDRESS . P* A14 = STACK BASE 2-LEVEL STACK P* PTIOADM EQU * & P
0x45b570…45b704 Dummy {f00=0x015f, f01=0x0190, f02=» A2,0 P SCR A2,A4 RESET STATUS ( P LD A7,DWTOR,A6 GET ORDER AND OPTION . P LDK A2,/20 ORDER BIT MASK Z " P LDK A3,ORDLGT LENGTH OF TABLE | PTIOA20 EQU * " P SUK A3,2 NEXT ORDER IN TABLE * P RF(N) ER:IRQ ERROR: NOT ALLOWED ORDER
0x45b704…45b898 Dummy {f00=0x015f, f01=0x0190, f02=»VE ORDER DISPLACEMENT | P SUK A3,ORDOPE P RF(N) TAOPEN OPEN 4 P* N P EJECT TIOADM X P* n P* x P CWK A6,FDBSTA " P RF(E) ER:IRQ FILE NOT OPENED , P LD A1,FDBEXC,A6 EXCUSIVE ACCESS POINTER & P RF(Z) TIOA30 NOT EXCLUSIV
0x45b898…45ba2c Dummy {f00=0x015f, f01=0x018e, f02=»ORDCLO-ORDOPE P RF(N) TACLOD CLOSE DISCARD P RF(Z) TACLOS CLOSE LOCK : P XIF Z P IFT CRDEEX=0 f P SUK A3,ORDCLO-ORDOP1 | P RF(Z) TACLOS CLOSE P XIF P SUK A3,ORDRFP-ORDCLO & P RF(Z) TARFP READ FILE PARAMETERS
0x45ba2c…45bbc0 Dummy {f00=0x015f, f01=0x0190, f02=» P RF(NP) ER:IRQ ILLEGAL P SUK A3,ORDRED-ORDSQW " " P RF(NZ) TIA100 NOT READ DIRECT @ ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH f " P CW A3,FDBRLE,A6 RECORD LENGTH 2 P RF(NE) ER:IRQ ERROR: ILLEGAL REQUESTED LENGTH P* P EJECT TIOADM
0x45bbc0…45bd54 (1, 1213) Opaque[0x194]
0x45bd54…45bee8 # DirEnt {nam=»DCSTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2be8, f03=0x0000}
0x45bd54…45bee8 IdxSect {
0x45bd54…45bee8 f00 = 0x015f // 0x45bd54 @0x0
0x45bd54…45bee8 f01 = 0x000e // 0x45bd56 @0x2
0x45bd54…45bee8 gno = [ // 0x45bd58 @0x4
0x45bd54…45bee8 [0x00]: C0x015f.0x1.0
0x45bd54…45bee8 [0x01]: C0x015f.0x2.0
0x45bd54…45bee8 [0x02]: C0x015f.0x3.0
0x45bd54…45bee8 [0x03]: C0x0160.0x0.0
0x45bd54…45bee8 [0x04]: C0x0160.0x1.0
0x45bd54…45bee8 [0x05]: C0x0160.0x2.0
0x45bd54…45bee8 [0x06]: C0x0160.0x3.0
0x45bd54…45bee8 ]
0x45bd54…45bee8 }
0x45bee8…45c07c Dummy {f00=0x015f, f01=0x0190, f02=» 0 P IDENT DCSTAT REL 11.0 81-01-26 870105041100 * 8 B =************************************************************* B * $ * PHILIPS TERMINAL SYSTEM, P T S * 4 P* DCSTAT STATISTIC DATA COLLECTION ROUTINE FOR * P* DA
0x45c07c…45c210 Dummy {f00=0x015f, 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 , '*. FOR A DWT OR A DWT AND ITS HEAD DWT. @ P*. THE FUNCTIONS ARE CONFIGURABLE BY THE
0x45c210…45c3a4 Dummy {f00=0x015f, 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
0x45c3a4…45c538 Dummy {f00=0x015f, 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
0x45c538…45c6cc Dummy {f00=0x015f, 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: ( #*. THE DWT HAS THE FOLLOWING LAYOUT *. P* .................. P
0x45c6cc…45c860 Dummy {f00=0x015f, f01=0x0190, f02=»UFF . -- P* .................. ! " P* . LINK HEAD DWT . --!----> 4 P* .................. ! Z " P* . LINK NEXT DWT . --!----> | P* .................. ! P* . . P* / / ! P* /
0x45c860…45c9f4 (1, 1214) Dummy {f00=0x015f, f01=0x0190, f02=»NTER AREA . P* .................. P* . . 4 P* / / R P* .................. p P EJECT * * ENTRY POINTS * , P ENTRY DCSRST REST COUNTERS IN SPEC DWT . P ENTRY DCSRLL RESE
0x45c9f4…45cb88 Dummy {f00=0x015f, 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
0x45cb88…45cd1c Dummy {f00=0x015f, f01=0x0190, f02=»* 8 4**************************************************** * F & P* CONDITIONAL ASSEMBLY PARAMETERS P * z 2 -********************************************* P* P PMMUPAG EQU 0 MMU SWITCH P P* 8 P* COND
0x45cd1c…45ceb0 Dummy {f00=0x015f, 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 .********************************************** * * EXTERNAL TABLE OFF
0x45ceb0…45d044 Dummy {f00=0x015f, 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
0x45d044…45d1d8 Dummy {f00=0x015f, 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* STATISTIC EQU:S * P* USED IN CALLS FO
0x45d1d8…45d36c Dummy {f00=0x015f, 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
0x45d36c…45d500 Dummy {f00=0x015f, 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
0x45d500…45d694 (1, 1215) Dummy {f00=0x015f, 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
0x45d694…45d828 Dummy {f00=0x015f, 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
0x45d828…45d9bc Dummy {f00=0x015f, 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
0x45d9bc…45db50 Dummy {f00=0x015f, 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
0x45db50…45dce4 Dummy {f00=0x015f, 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
0x45dce4…45de78 Dummy {f00=0x015f, f01=0x018e, f02=» P* P* STATISTIC BUFFER LAYOUT P* 0 < P******************************************************* : P z P* ................... " P* . . STWSID P* .................. " P* . . STWCST
0x45de78…45e00c Dummy {f00=0x015f, 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
0x45e00c…45e1a0 Dummy {f00=0x015f, f01=0x0190, f02=»O VALUE IN STWMIX v P EJECT P* ( @ ;*********************************************************** 2 P* v < P* DCSRST - RESET STATISTIC COUNTERS FOR SPECIFIED DWT * & P* THE FOLLOWING ACTIONS ARE TAKEN 4 P* -CHECK IF FUNCTION
0x45e1a0…45e334 (1, 1216) Dummy {f00=0x0160, f01=0x0190, f02=» COUNTERS d * . P* ENTRY: CF A15,DCSRST A6=DWT 2 -* EXIT: ABR* A15 A1=STATUS N F P* 0=COMPLETED -1= NOT CONFIG * @ ;************************************************
0x45e334…45e4c8 Dummy {f00=0x0160, f01=0x0190, f02=»UFFER IF ANY z LDR* A2,A15 RELOAD REG XIF 4 P RF DCSEXI COMMON EXIT @ P EJECT ^ P l @ ;*********************************************************** v * B P* DCSRLL - RESET STATISTIC COUNTERS FOR ALL DWT:S IN CHAIN
0x45e4c8…45e65c Dummy {f00=0x0160, 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 * 2 P* ENTRY: CF A15,DCSRLL A6=DWT 4 0* EXIT: ABR* A15 A
0x45e65c…45e7f0 Dummy {f00=0x0160, f01=0x0190, f02=»********************** j P PDCSRLL EQU * ( IFT STAT=1 < $ P IFT STUNIT=1 SUBUNIT STATISTICS P * P STR A2,A15 SAVE REGS ON SYSTEM STACK x STR A6,A15 $ P LDR A1,A6 TEMP SAVE OF SPEC DWT " P LD A6,DWTCHD,A6 LINK TO HEAD & P
0x45e7f0…45e984 Dummy {f00=0x0160, f01=0x0190, f02=» . P LD A6,DWTCHN,A6 LINK TO NEXT DWT IN CHAIN . P RB(NZ) DCSR10 NOT LAST CONTINUE TO CLEAR 6 LDR* A6,A15 RELOAD REGS h P LDR* A2,A15 XIF P IFT STAT=1 P IFF STUNIT=1 P RB DCSRST P XIF P RF DCSEXI COMMON EXIT
0x45e984…45eb18 Dummy {f00=0x0160, f01=0x0190, f02=» SPEC WITH PARAMETERS IN 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
0x45eb18…45ecac Dummy {f00=0x0160, 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
0x45ecac…45ee40 Dummy {f00=0x0160, 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 4* DATA PARAM-1 (A2=PARAM-2) ~ * 6 1* EXIT: ABR* A15 A1=STATUS F P*
0x45ee40…45efd4 (1, 1217) Dummy {f00=0x0160, f01=0x0190, f02=» H B P* +1=COUNTER OVERFLOWED * N D ?************::************************************************* X P PDCSUPR EQU * IFT STAT=1 * P STR A3,A15 SAVE REGS ON SYSTEM STACK STR A4,
0x45efd4…45f168 Dummy {f00=0x0160, 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 * IFT STAT=1 * P S
0x45f168…45f2fc Dummy {f00=0x0160, f01=0x0190, f02=» STACK p LDK A4,2 ( P ADS A4,+12,A15 ADJUST RETURN POINT P L P V 0 PDCSU00 EQU * COMMON POINT FOR DCSUPR DCSUPD ` $ LDK A4,0 PRESET STATUS FOR EXIT PDCSU01 EQU * P CF A15,DCOUNT INCR COUNTER P IFT STUNIT=1 &
0x45f2fc…45f490 Dummy {f00=0x0160, 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 $ LDR A1,A4 MOVE STATUS FOR EXIT ! | LDR* A6,A15 RELOAD REGS ! P LDR* A5,A15 ! LDR* A4,A15 ! LDR* A3,A15 ! XIF !
0x45f490…45f624 Dummy {f00=0x0160, f01=0x0190, f02=»ATISTIC COUNTERS INTO USER BUFFER ! x * " * & 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
0x45f624…45f7b8 Dummy {f00=0x0160, f01=0x0190, f02=»ACTION " n * # : P* ENTRY: CF A15,DCSRED A6=DWT A8=ECB # * # V 4 0* EXIT: ABR* A15 A1=STATUS # ` D P* 0=COMPLETED -1=NOT CONFIG # : 6* -
0x45f7b8…45f94c Dummy {f00=0x0160, f01=0x0190, f02=» IN ECBEL AND (ECBBA)=COUNTERS # j > :********************************************************** $ & P $ h PDCSRED EQU * $ r IFT STAT=1 $ * P STR A2,A15 SAVE REGS ON SYSTEM STACK $ STR A3,A15 $ STR A4,A15 $ STR A5,A15 $ STR
0x45f94c…45fae0 Dummy {f00=0x0160, 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
0x45fae0…45fc74 (1, 1218) Dummy {f00=0x0160, 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,
0x45fc74…45fe08 Dummy {f00=0x0160, 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 '
0x45fe08…45ff9c Dummy {f00=0x0160, 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
0x45ff9c…460130 Dummy {f00=0x0160, f01=0x0190, f02=»* A4,A15 ( LDR* A3,A15 ) LDR* A2,A15 ) $ XIF ) 8 P RF DCSEXI COMMON EXIT ) D P* ) b PDCZERO DATA 0 ZEROE BUFFER ) l P EJECT ) > 9********************************************************* ) * ) P* COMMON EXIT FROM FUNCTIONS )
0x460130…4602c4 Dummy {f00=0x0160, f01=0x0190, f02=»A1,-1 STATUS NOT CONFIGURED ) XIF * $ ADKL A15,4 * 0 ABR* A15 RETURN * D P EJECT * P IFT STAT=1 * j : 6****************************************************** * ~ * * " P* COMMON INTERNAL SUBROUTINES * * * : 6******************
0x4602c4…460458 Dummy {f00=0x0160, 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
0x460458…4605ec Dummy {f00=0x0160, f01=0x0190, f02=»DD OFFSET + , ' 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 * , LDK A1,0 STATUS , P RF DCEXIT COMMON RE
0x4605ec…460780 Dummy {f00=0x0160, 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,
0x460780…460914 (1, 1219) Dummy {f00=0x0160, 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 .
0x460914…460aa8 Dummy {f00=0x0160, 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 /
0x460aa8…460c3c Dummy {f00=0x0160, 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
0x460c3c…460dd0 Dummy {f00=0x0160, 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
0x460dd0…460f64 Dummy {f00=0x0160, 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 END 2 @ 2 EQU * NO BUFFER 1 ( P LDKL A4,-3 SE
0x460f64…4610f8 Dummy {f00=0x0160, 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
0x4610f8…46128c Dummy {f00=0x0160, 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'
0x46128c…461420 Dummy {f00=0x0160, 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****
0x461420…4615b4 (1, 1220) Opaque[0x194]
0x4615b4…461748 # DirEnt {nam=»DRCD02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c20, f03=0x0000}
0x4615b4…461748 IdxSect {
0x4615b4…461748 f00 = 0x0161 // 0x4615b4 @0x0
0x4615b4…461748 f01 = 0x001a // 0x4615b6 @0x2
0x4615b4…461748 gno = [ // 0x4615b8 @0x4
0x4615b4…461748 [0x00]: C0x0161.0x0.0
0x4615b4…461748 [0x01]: C0x0161.0x1.0
0x4615b4…461748 [0x02]: C0x0161.0x2.0
0x4615b4…461748 [0x03]: C0x0161.0x3.0
0x4615b4…461748 [0x04]: C0x0162.0x0.0
0x4615b4…461748 [0x05]: C0x0162.0x1.0
0x4615b4…461748 [0x06]: C0x0162.0x2.0
0x4615b4…461748 [0x07]: C0x0162.0x3.0
0x4615b4…461748 [0x08]: C0x0163.0x0.0
0x4615b4…461748 [0x09]: C0x0163.0x1.0
0x4615b4…461748 [0x0a]: C0x0163.0x2.0
0x4615b4…461748 [0x0b]: C0x0163.0x3.0
0x4615b4…461748 [0x0c]: C0x0164.0x0.0
0x4615b4…461748 ]
0x4615b4…461748 }
0x461748…4618dc Dummy {f00=0x0161, f01=0x0190, f02=» 2 P IDENT DRCD02 REL 11.0 81-04-06 870105041100 P : P* B P* L 2 P********************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P* DRCD02 = DRIVER FOR ONE/TWO DISC UNITS PTS 6877 & P*
0x4618dc…461a70 Dummy {f00=0x0161, f01=0x0190, f02=»********************** t P* P* ( 0 P* THIS DISC DRIVER HANDLES UP TO TWO DISC 2 , P* UNITS PTS 6877 CONNECTED TO CPU VIA f P* BUILT IN DMA CHANNEL P* P* * P* THE FOLLOWING ORDERS ARE TREATED : P* P* /0
0x461a70…461c04 Dummy {f00=0x0161, f01=0x0190, f02=»WRITE | P* /1F FORMAT VOLUME P* . P EJECT DRCD02 8 P* N P* X P********************* b P* * P* ENTRIES * P* * P********************* P* & P ENTRY
0x461c04…461d98 Dummy {f00=0x0161, f01=0x0190, f02=» v P* P EJECT DRCD02 P* ( P* 2 P************* < P* EXTERNALS * R P************* h P* ~ P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK , P EXTRN
0x461d98…461f2c Dummy {f00=0x0161, f01=0x0190, f02=» BUFFER f , P EXTRN VOLCLR CLEAR VOLUME NAMES IN DWT . P EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS @ P EXTRN DISIOE REQUEST ERROR r & P EXTRN INIFLG INITIALIZATION FLAG * P EXTRN PFPOST PWF POST PROCESSING FLAG * P EXTRN INTSAV SAVE AREA LA
0x461f2c…4620c0 Dummy {f00=0x0161, f01=0x0190, f02=»RN DWTOR DWT INDEX AND ORDER P EXTRN DWTA4 SAVE AREA A4 $ P EXTRN DWTA5 SAVE AREA A5 F & P EXTRN DWTORD SAVE AREA FOR ORDER h $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH
0x4620c0…462254 (1, 1221) Dummy {f00=0x0161, f01=0x0190, f02=» P EJECT DRCD02 P* P* $ P************************** . P* * P P* CONDITIONAL ASSEMBLY * r P* * P************************** P* P* . P* THIS DRIVER CAN HANDLE T
0x462254…4623e8 Dummy {f00=0x0161, f01=0x0190, f02=» MAY BE INCLUDED FOR ORDER /15 | P* BY SETTING X:B = 1 & P* D PX:B EQU 0 N PRAW EQU X:B ` P* t P* ~ 8 P* THIS DRIVER CAN BE ADAPTED FOR EITHER SMD DRIVES 6 P* OR CMD DRIVES , THE CMD VERSION IS OBTAINED BY P* SETTIN
0x4623e8…46257c Dummy {f00=0x0161, f01=0x0190, f02=»RED IT CAN BE ADAPTED FOR EITHER P* 16+16 MB OR 16+80 MB ( . P* IF 16+80 MB IS CONNECTED AS 1ST DRIVE H P* SET X:D = 1 z 2 P* IF 16+80 MB IS CONNECTED AS 2ND DRIVE SET P* X:E = 1 P* PX:D EQU 0 PCMDIX1 EQU X
0x46257c…462710 Dummy {f00=0x0161, f01=0x0190, f02=»MUPAG EQU 1. v P* PMMUPAG EQU 0 P* 2 PCPU852 EQU 1 < P* P P EJECT DRCD02 Z P* p P************************* z P* * P* CONSTANTS * P* * P******
0x462710…4628a4 Dummy {f00=0x0161, f01=0x0190, f02=»0 ADDRESS UNIT 2 ~ PDEVIND EQU 10 DEVICE INDEX PRY3 EQU 3 3 RETRIES : * PPHSECL EQU /180 PHYSICAL SECTOR LENGTH V ( PLOSECL EQU /80 LOGICAL SECTOR LENGTH , PSEZCOM EQU /E800 SEEK ZERO COMMAND CODE & PSEEKCO EQU /A800 SEEK COMMAND CODE &
0x4628a4…462a38 Dummy {f00=0x0161, f01=0x0190, f02=»OM EQU /22C0 WRITE SECTOR MARKS COMMAND CODE $ PNOTRAN EQU /8000 NO TRANSFER BIT 4 " PTIME EQU 1000 1 MIN 40 SECONDS * PMAXCYL EQU 822 MAXIMAL CYLINDER NUMBER & PMS80M1 EQU 8 MAXIMAL NUMBER 80 MB PMS80M2 EQU /53C6 PSPC80M EQU 115 & P
0x462a38…462bcc Dummy {f00=0x0161, f01=0x0190, f02=»QU 23 SECTORS PER TRACK P* P EJECT DRCD02 * P* @ P* J P************************ T P* DRIVE TYPE DEPENDENT * t P* CONSTANTS * P************************ P* P* 0 P IFT SMDIND=1 IF SMD DRIVE(S) IS
0x462bcc…462d60 Dummy {f00=0x0161, f01=0x018e, f02=» PMXSE31 EQU 0 PMXSE32 EQU 0 PMXSE41 EQU 0 , PMXSE42 EQU 0 @ * PSPCUN1 EQU SPC80M SECTORS PER CYLINDER T PSPCUN2 EQU SPC80M PSPCUN3 EQU 0 PSPCUN4 EQU 0 P XIF . P IFT SMDIND=0 IF CMD DRIVE(S) IS CONNECTED ( PMXSE11
0x462d60…462ef4 (1, 1222) Dummy {f00=0x0161, f01=0x018e, f02=» | * PSPCUN3 EQU SPC16M SECTORS PER CYLINDER " P IFT CMDIX1=0 16+16 CONNECTED 6 PMXSE21 EQU MS16M1 PMXSE22 EQU MS16M2 v PSPCUN2 EQU SPC16M P XIF ( P IFT SMDIND+CMDIX2=0 16+16 CONNECTED PMXSE41 EQU MS16M1 PMXSE42 EQU M
0x462ef4…463088 Dummy {f00=0x0161, f01=0x0190, f02=» PMXSE22 EQU MS80M2 PSPCUN2 EQU SPC80M P XIF 8 P IFT SMDIND=0 D " P IFT CMDIX2=1 16+80 CONNECTED Z PMXSE41 EQU MS80M1 PMXSE42 EQU MS80M2 PSPCUN4 EQU SPC80M P XIF P* P EJECT DRCD02 P* P*
0x463088…46321c Dummy {f00=0x0161, f01=0x0190, f02=»CDADR DATA CDAD ACTIVATION ADDRESS " P DATA 0 ABORT ROUTINE ADDRESS * P* P P* Z P* d P* DRIVER BUFFER n P* P* PBUFFER EQU * P RES 256 P* P EJECT DRCD02 P* P* P********************
0x46321c…4633b0 Dummy {f00=0x0161, f01=0x0190, f02=»**************** P* PCDAD EQU * " P LDK A5,DWTSB3 4 P ADR A5,A6 GET STACK BASE J 0 P LD A4,DWTRE1,A6 GET GRAND TOTAL OF RETRIES l 0 P ST A4,DWTRE2,A6 PRESENT TOTAL RETRY COUNTER . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED P*
0x4633b0…463544 Dummy {f00=0x0161, f01=0x0190, f02=» P* P********************* P* * , P* TEST STATUS * J P* * h P********************* P* P* P ORS A1,ECBRC,A8 NVL BIT & P IM DWTSAV,A6 INDICATE TEST STATUS " P CF A5
0x463544…4636d8 Dummy {f00=0x0161, f01=0x018e, f02=» TRANSFER VOLUME NAME TO USER BUFFER P LDK A1,0 RESET RETURN CODE , PTESEND EQU * P " P CM DWTSAV,A6 TEST STATUS DONE d P CF A15,INXDWT & P LD A4,DWTSPC,A4 SECTORS PER TRACK P SUK A4,SPC16M P RF(NE) TESE10 NOT 16MB DISC * P ORK
0x4636d8…46386c Dummy {f00=0x0161, f01=0x0190, f02=» , P*************************************** , P* * 4 , P* NEW VOLUME LOADED CHECK * d , P* ORDER CODE CHECK * , P* * , P********************
0x46386c…463a00 Dummy {f00=0x0161, f01=0x0190, f02=» PCDA:00 EQU * ( P ADK A1,0 CHECK IF NEW VOLUME LOADED P RF(NZ) DENDIO PERFORM ENDIO D P SUK A7,1 h P RF(Z) CD:010 BASIC READ z P SUK A7,4 P RF(Z) CD:000 BASIC WRITE P SUK A7,12 P RF(Z) CD:010 PHYSICAL READ P S
0x463a00…463b94 (1, 1223) Dummy {f00=0x0161, f01=0x018e, f02=»UEST ERROR | P* ( PINCLEN EQU * REQUESTED LENGTH ERROR P LDKL A1,/8008 H PDENDIO EQU * ^ P ABL END:IO r P* P* P EJECT DRCD02 P* P* & P********************************* & P*
0x463b94…463d28 Dummy {f00=0x0161, f01=0x018e, f02=» l P* P* PFORMAT EQU * ( P LDKL A1,SEEKCO SEEK OPERATION CODE 0 , P ST A1,DWTSEK,A6 TO SEEK OPERATION AREA P CF A5,SEEKZ CYLINDER 0 P RF FOR:50 PFOR:10 EQU * P CF A5,SEEK PFOR:50 EQU * P MLK 3 P
0x463d28…463ebc Dummy {f00=0x0161, f01=0x0190, f02=» P* P EJECT DRCD02 P* $ P* . PFOR:60 EQU * 8 ( P LDK A1,/EF RESET DEVICE NUMBER BIT L P ANS A1,DWTWHA,A4 x P LD A1,ECBCW1,A8 * P RF(Z) FOR:70 NO BAD TRACK FLAG CHECK " P CF A5,CIO READ PART OF SECTOR & P SRL A1,8
0x463ebc…464050 Dummy {f00=0x0161, f01=0x0190, f02=» P ADK A4,4 P LDR A2,A4 P SUR A2,A6 ( P SRL A2,2 /4 : P MUK SEPRTR N P LC A1,DWTOR,A6 INDEX b P ANK A1,3 P SLL A1,1 P ADR A1,A6 P CW A2,DWTSPC,A1 P RB(L) FOR:60 NEXT HEAD P LDKL A1,/800 INTERUPT BIT
0x464050…4641e4 Dummy {f00=0x0161, f01=0x0190, f02=» SUKL A1,SEEKCO+MAXCYL SEEK ORDER CODE + MAX CYLINDER NUMBER P RB(NZ) FOR:10 NEXT CYLINDER D P LDKL A2,MAXCYL-1 821 h P IFT NUNITS=1 $ P ST A2,DWTCYL,A6 CYLINDER NUMBER P XIF P IFT NUNITS=2 P CF A15,INXDWT P LD A3,DWTSM
0x4641e4…464378 Dummy {f00=0x0161, f01=0x0190, f02=» $ P ST A2,DWTCYL,A4 CYLINDER NUMBER P XIF , P RB DENDIO PERFORM ENDIO 8 P EJECT DRCD02 X P* n P* x 0 P******************************************** 0 P* * 0 P* INPUT ECB-PARAMETER CHECK
0x464378…46450c Dummy {f00=0x0161, f01=0x0190, f02=»* PCD:000 EQU * P LDK A7,5 INDICATE WRITE PCD:010 EQU * > P LC A4,DWTOR,A6 R P ANK A4,3 j P SLL A4,2 *4 | P ADR A4,A6 & P ML 2,ECBCW1,A8 GET SECTOR NUMBER & P DS DWTSMX,A4 CHECK SECTOR NUMBER P RB(NN) DUERR
0x46450c…4646a0 Dummy {f00=0x0161, f01=0x0190, f02=»E BY 256 $ P ANK A1,/FF REST AFTER DIVISION $ P RB(NZ) INCLEN INCORRECT REQUEST 8 4 P ST A2,DWTLOS,A6 SAVE NUMBER OF LOGICAL SECTORS ` ( P DA ECBCW1,A8 LOGICAL SECTOR NUMBER P DS DWTSMX,A4 $ P RB(P) INCLEN INCORRECT REQUEST P*
0x4646a0…464834 (1, 1224) Dummy {f00=0x0162, f01=0x0190, f02=»K z P* P* ( P MLR 2,A8 GET 18 BIT BUFFER ADDRESS $ P SLC A1,4 MOST SIGNIFICANT BITS J P ANK A1,3 r P SRL A2,1 P MS 2,DWTBA,A6 . P ML 2,ECBCW1,A8 GET LOGICAL SECTOR NUMBER ( P LDK A3,0 DIVIDE MOST SIGN PART BY 3
0x464834…4649c8 Dummy {f00=0x0162, f01=0x018e, f02=»SICAL SECTOR NUMBER | P DVK 3 DIVIDE BY 3 . P ST A2,DWTSEC+2,A6 LEAST SIGNIFICANT PART 6 " P CF A5,MASKPR PREPARE IO MASK h P ANK A7,4 ORDER CHECK P RF(Z) REA:00 READ ORDER P EJECT DRCD02 P* P* $ P******************
0x4649c8…464b5c Dummy {f00=0x0162, f01=0x0190, f02=» n $ P******************************** P* 0 P* : P LD A3,DWTMAS,A6 SECTOR MASK D P SUK A3,7 h ( P RF(Z) WRI:50 TOTAL PHYSICAL SECTOR z PWRI:10 EQU * < P ML 3,DWTBSE,A6 GET IDENTITY OF SECTORS IN DRIVER BUFFER $ P OR A3,DWTMAS,
0x464b5c…464cf0 Dummy {f00=0x0162, f01=0x0190, f02=» ANKL A3,/300 P SUR A1,A3 ! P DS DWTSEC,A6 SECTOR NUMBER ! ( 2 P RF(Z) WRI:30 CORRECT SECTORS IN DRIVER BUFFER ! L P* ! P EJECT DRCD02 ! P* ! P* ! PWRI:20 EQU * ! & P IM DWTTRA,A6 INDICATE NO TRANSFER ! . P CF A5,READ READ SEC
0x464cf0…464e84 Dummy {f00=0x0162, f01=0x018e, f02=»,A6 GET ORDER ! P ANK A1,/10 " P RF(Z) WRI:35 BASIC WRITE " * * P CF A5,VERIFY VERIFY IF PHYSICAL WRITE " L PWRI:35 EQU * " z P XIF " P CF A5,UPDATE " 2 P LD A1,DWTLOS,A6 GET NUMBER OF LOGICAL SECTORS " " P RF(Z) REA:50 LAST SECTOR DONE "
0x464e84…465018 Dummy {f00=0x0162, f01=0x0190, f02=» " j P* # P EJECT DRCD02 # P* # ( P* # 2 PWRI:50 EQU * # < P IFT RAW=1 # P 8 P ML 4,DWTBA,A6 SAVE PARAMETERS FOR READ AFTER WRITE # b P MS 4,DWTRAW,A6 # P LD A1,DWTSEC+2,A6 # P ST A1,DWTRAW+8,A6 # P LDK A3,7 # P ST A3,DWTMA
0x465018…4651ac Dummy {f00=0x0162, f01=0x0190, f02=»IVE LENGTH # f P XIF $ P CF A5,UPDAT $ P IFT RAW=1 $ 2 P CM DWTTRA,A6 $ D P XIF $ Z . P LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS $ f P SUK A1,3 $ ( P RB(NN) WRI:55 NEXT PHYSICAL SECTOR $ P IFT RAW=1 $ P* $ P EJECT DRCD02 $ P
0x4651ac…465340 Dummy {f00=0x0162, f01=0x0190, f02=» VERIFY $ j P MS 4,DWTBA,A6 % P LD A1,DWTRAW+8,A6 % & P ST A1,DWTSEC+2,A6 % @ PWRI:60 EQU * % Z P CF A5,CIOLOD % n P CF A5,VERIFY % P CF A5,UPDAT % . P LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS % P SUK A1,3 % ( P RB(NN) WRI:60 NEXT PH
0x465340…4654d4 (1, 1225) Dummy {f00=0x0162, f01=0x0190, f02=»OR MASK % v P RB WRI:10 LAST SECTORS & P* & 0 P EJECT DRCD02 & : P* & P P* & Z $ P******************************** & d $ P* * & $ P* READ SECTORS * & $ P* * & $ P****
0x4654d4…465668 Dummy {f00=0x0162, f01=0x0190, f02=»3,7 & P ST A3,DWTMAS,A6 SECTOR MASK ' . P LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS ' 0 P RF(Z) REA:50 IO READY ' b P SUK A1,3 ' 0 P RB(NN) REA:00 AT LEAST ONE PHYSICAL SECTOR ' P CF A5,MASK00 ' P CF A5,READ ' P CF A5,UPDATE ' P L
0x465668…4657fc Dummy {f00=0x0162, f01=0x018e, f02=»***************** ' P* * ( P* READ SECTOR N * ( 8 P* * ( V P********************* ( t P* ( P* ( PREAD EQU * ( P CF A5,CIOLOD ( 6 P CM DWTBSE+4,A6 CLEAR BUFFER IND. IN CASE OF ERROR ( * P
0x4657fc…465990 Dummy {f00=0x0162, f01=0x0190, f02=» ( z " PREAD10 CF A5,CIO EXECUTE READ ) P ANK A1,/F ) . $ P RF(Z) RET34 OK. NO RETURN CODE ) @ P* ) h P* IO ERROR IN READING ) r P* ) P IM DWTRE2,A6 ) $ P SUK A4,1 DECREMENT RETRYCOUNTER ) 4 P RB(P) READ10 3:RD RETRY IN THIS STATE NOT DONE
0x465990…465b24 Dummy {f00=0x0162, f01=0x0190, f02=» P* * P LC A2,DWTCOP,A6 * 0 P ANK A2,/C0 LAST RETRY WITH EARLY- OR LATE- * & P RF(NZ) RET31 DATA STROBE ? * Z 0 P LDKL A3,/8000 PREPARE FOR EARLY DATA STROBE * ~ P ORS A3,DWTCOP,A6 * 4 P RB READ10 RETRY 3 TIMES WITH EARLY DATA STROBE * PRET3
0x465b24…465cb8 Dummy {f00=0x0162, f01=0x0190, f02=»GE FROM EARLY- TO LATE DATA STROBE * z 2 P RB READ10 RETRY 3 TIMES WITH LATE DATA STROBE + * PRET32 EQU * + ` P LDKL A3,/3FFF + t , P ANS A3,DWTCOP,A6 RESET LATE DATA STROBE + P LC A2,DWTCOP+2,A6 + 2 P ANK A2,/C0 LAST RETRY CARRIAGE+ OR CARRIAGE- +
0x465cb8…465e4c Dummy {f00=0x0162, f01=0x0190, f02=» + h P* , P EJECT DRCD02 , P* , ( P* , 2 PRET33 EQU * , < P ANK A2,/80 , P , P RF(Z) RET35 LAST RETRY WAS A CARRIAGE- , d P LDKL A3,/C000 , : P XRS A3,DWTCOP+2,A6 CHANGE FROM CARRIAGE+TO CARRIAGE- , , P RB READ10 RETRY 3 TIMES WITH CA
0x465e4c…465fe0 Dummy {f00=0x0162, f01=0x0190, f02=» LDR A3,A1 RETURN CODE , P RTN A5 - P* - . P EJECT DRCD02 - 8 P* - N P* - X P************************** - b P* * - P* WRITE SECTOR N * - P* * - P************************** -
0x465fe0…466174 (1, 1226) Dummy {f00=0x0162, f01=0x0190, f02=»TRIES TO BE PERFORMED - PWRIT20 EQU * . P CF A5,CIO . 2 P ANK A1,/F . D P RF(Z) WRIT50 WRITE OK . V " P IM DWTRE2,A6 RETRY PERFORMED . t P SUK A4,1 . P RB(NZ) WRIT20 RETRY . P RB REA:50 NO MORE RETRIES . PWRIT50 EQU * . P RTN A5 .
0x466174…466308 Dummy {f00=0x0162, f01=0x0190, f02=» * . x P* VERIFY SECTOR N * / P* * / 0 P**************************** / T P* / x PVERIFY EQU * / * P LDKL A3,VERCOM ORDER CODE FOR VERIFY / P ORS A3,DWTCOP,A6 / P RB READ00 / P* / P XIF / P E
0x466308…46649c Dummy {f00=0x0162, f01=0x0190, f02=»DWTSEK GET EFFECTIVE ADDRESS TO SEEK OP. / P RF SEEK00 0 0 P* 0 B P* 0 L PSEEKZ EQU * 0 V 6 P LDK A2,DWTSEZ GET EFFECTIVE ADDRESS TO SEEK 0 OP. 0 j PSEEK00 EQU * 0 P ADR A2,A6 0 P RF EXCIO 0 P* 0 P* 0 PHOMEAD EQU * 0 . P LDK
0x46649c…466630 Dummy {f00=0x0162, f01=0x0190, f02=»SS TO CIO OP. 0 n P* 1 PCIO00 EQU * 1 P ADR A2,A6 1 4 P LD A3,DWTSMD,A6 1 F P RF(NZ) CIO10 SMD 1 ^ P LC A3,DWTOR,A6 INDEX 1 x P ANK A3,1 UNIT NUMBER 1 P SLL A3,4 1 P ORRS A3,A2 1 PCIO10 EQU * 1 P EJECT DRCD02 1 P* 1
0x466630…4667c4 Dummy {f00=0x0162, f01=0x0190, f02=»FT NUNITS=2 1 0 P CF A15,INXDWT GET INDEXED DWT DISPLACEMENT 2 P LD A3,DWTSMD,A6 2 H P RF(NZ) CIO20 SMD DRIVE 2 ` P LC A4,DWTOR,A6 2 P ANK A4,2 2 P ADR A4,A6 ADDRESS IN DWT 2 PCIO20 EQU * 2 P EX DWTCIO,A4 2 P XIF 2 P IFT N
0x4667c4…466958 Dummy {f00=0x0162, f01=0x0190, f02=»DISP GO TO DIPATCHER 2 P* 3 P EJECT DRCD02 3 & P* 3 < P* 3 F . P***************************************** 3 P . P* * 3 . P* SUBROUTINE CIOLOD * 3 . P* PREPARE CIO WORK AR
0x466958…466aec Dummy {f00=0x0162, f01=0x0190, f02=»ER DISPOSITION 3 P* A1 = WORK REGISTER 4 P* A2 = WORK REGISTER 4 4 P* A3 = MASK 4 R " P* A4 = CIO WORK AREA POINTER 4 h P* A7 = USER BUFFER POINTER 4 " P* A8 = DRIVER BUFFER POINTER 4 P* 4 $ P* DWTTRA = TRANSFER INDICATOR 4 <
0x466aec…466c80 Dummy {f00=0x0162, f01=0x0190, f02=»L A4,-4 4 P ST A4,DWTSAV,A6 COUNTER 5 P LDR A4,A6 GET DWT ADDRESS 5 0 * P ADK A4,DWTCOP-2 CIO WORK AREA ADDRESS 5 R * P LDKL A8,BUFFER DRIVER BUFFFER ADDRESS 5 $ P LD A3,DWTMAS,A6 GET BUFFER MASK 5 P SRC A3,4 MASK IN POSITION 5 " P LDK A7,0 USER B
0x466c80…466e14 (1, 1227) Dummy {f00=0x0162, f01=0x018e, f02=» 5 P EJECT DRCD02 6 P* 6 P* 6 ( PCIOL10 EQU * 6 2 P LDK A1,0 6 F P ADK A4,6 6 X P IM DWTSAV,A6 COUNTER 6 j " P RF(Z) CIOL60 WORK AREA READY 6 P SLL A3,1 6 ( P RF(NN) CIOL50 TO/FROM DRIVER BUFFER 6 ( P LD A2,DWTTRA,A6 TRANSFER IN
0x466e14…466fa8 Dummy {f00=0x0162, f01=0x0190, f02=» 6 j P SLL A2,1 IN POSITION 7 . P ADK A7,LOSECL UPDATE USER BUFFER POINTER 7 & P RF CIOL58 7 X P* 7 j P EJECT DRCD02 7 t P* 7 P* 7 PCIOL50 EQU * 7 P LDR A2,A8 DRIVER BUFFER 7 . P ADKL A8,/100 UPDATE DRIVER BUFFERPOINTER 7 P RF
0x466fa8…46713c Dummy {f00=0x0162, f01=0x0190, f02=»CIOL10 7 PCIOL60 EQU * 8 P LDKL A1,/8000+LOSECL 8 " " P ANS A1,DWTCOP+16,A6 CLEAR BIT 8 @ P LDKL A1,PHSECL 8 f P ST A1,DWTCOP+2,A6 8 ~ ( P CM DWTTRA,A6 CLEAR NO TRANSFER FLAG 8 P* 8 P EJECT DRCD02 8 P* 8 P* 8 . P****************
0x46713c…4672d0 Dummy {f00=0x0162, f01=0x018e, f02=» AND HEAD NUMBER IN POS. * 8 . P* * 9 0 . P***************************************** 9 b P* 9 & P* INPUT: PHYSICAL SECTOR NUMBER 9 8 P* OUTPUT: INTERLACED SECTOR NUMBER AND HEAD NUMBER 9 $ P*
0x4672d0…467464 Dummy {f00=0x0162, f01=0x0190, f02=» & P DV DWTSPC,A4 SECTORS PER CYLINDER : 0 P* A1 = REST = HEAD NUMBER * SECTOR NUMBER : . ( P* A2 = QUOTIENT = CYLINDER NUMBER : b $ P LDR A3,A2 SAVE CYLINDER NUMBER : P LDR A2,A1 : P LDK A1,0 : P DVK 23 : P* A1 = SECTOR NUMBER : P
0x467464…4675f8 Dummy {f00=0x0162, f01=0x0190, f02=» INLACE INTERLACING : P SRC A3,1 ; & P RF(NN) CIOP10 EVEN CYLINDER NUMBE ; . P ADK A2,12 SKEW FACTOR ; X P* ; v P EJECT DRCD02 ; P* ; P* ; PCIOP10 EQU * ; 8 P DVK SEPRTR GET INTERLACED AND SKEWED SECTOR NUMBER ; P SLL A1,5 IN P
0x4675f8…46778c Dummy {f00=0x0162, f01=0x018e, f02=»A1,DWTSMD,A6 SMD FLAG ; P RF(NZ) CIOP20 SMD DRIVE < P LC A4,DWTOR,A6 INDEX < > P ANK A4,2 < P ADR A4,A6 < n PCIOP20 EQU * < P CW A3,DWTCYL,A4 < P RF(E) CIOP50 SAME CYLINDER < * P ST A3,DWTCYL,A4 SAVE CYLINDER NUMBER < P XIF <
0x46778c…467920 Dummy {f00=0x0162, f01=0x0190, f02=» < P ADKL A3,SEEKCO SEEK ORDER = $ P ST A3,DWTSEK,A6 SEEK WORK AREA = * P* = R P EJECT DRCD02 = P* = r P* SEEK CYLINDER = | P* = P* = P LDK A4,RY3 RETRIES = PSE:010 EQU * = P CF A5,SEEK SEEK CYLINDER N = P ANK A1,2
0x467920…467ab4 (1, 1228) Dummy {f00=0x0163, f01=0x018e, f02=» = x P* > P CF A5,SEEKZ SEEK CYLINDER 0 > P ANK A1,2 > 6 & P RB(Z) SE:010 CYLINDER ZERO FOUND > H P* > r PSE:020 EQU * > | P RF END:SE SEEK ERROR END IO > PCIOP50 EQU * > P RTN A5 > P* > P EJECT DRCD02 > P* > P* >
0x467ab4…467c48 Dummy {f00=0x0163, f01=0x0190, f02=» > h * P* * ? * P************************************* ? 6 P* ? d < P* UPDATES : DWTBSE PRESENT SECTORS IN DRIVER BUFFER ? n @ P* DWTLOS NUMBER OF LOGICAL SECTORS LEFT IN IO ? . P* DWTBA
0x467c48…467ddc Dummy {f00=0x0163, f01=0x0190, f02=» PUPDATE EQU * @ P LDK A2,0 @ $ P LD A3,DWTMAS,A6 GET SECTOR MASK @ * P C1R A3,A3 COMPLIMENT @ R P ANK A3,7 3 BITS @ p P LD A1,DWTOR,A6 GET INDEX @ P ANKL A1,/300 UNIT NUMBER @ P DA DWTSEC,A6 SECTOR NUMBER @ P MS 3,DWTBSE,A6 SAVE @
0x467ddc…467f70 Dummy {f00=0x0163, f01=0x0190, f02=»O TO/FROM DRIVER BUFFER @ * P ADK A2,1 NUMBER OF SECTORS IN LAST IO A PUPDA10 EQU * A N P SLL A1,1 A b P RB(NZ) UPDA00 MORE SECTORS A t P* A P EJECT DRCD02 A P* A P* A " P LD A3,DWTLOS,A6 UPDATE DWTLOS A P SUR A3,A2 A P ST
0x467f70…468104 Dummy {f00=0x0163, f01=0x0190, f02=» P IFT RAW=1 B P LD A1,DWTTRA,A6 B * P RF(Z) UPDA50 UPDATE EFFECTIVE LENGTH B . P LD A7,DWTOR,A6 GET ORDER B P ANK A7,/10 B ~ P RF(NZ) UPDA60 B P XIF B P* B P EJECT DRCD02 B P* B P* B PUPDA50 EQU * B P ADS A3,ECBE
0x468104…468298 Dummy {f00=0x0163, f01=0x0190, f02=»TN A5 B P EJECT DRCD02 C P* C $ P* C . 0 P******************************************* C 8 0 P* * C l 0 P* SUBROUTINE MASKPR * C 0 P* SET BITS FOR LOGICAL * C 0 P
0x468298…46842c Dummy {f00=0x0163, f01=0x0190, f02=»*********** C p P* D P* A1 = POSITION IN SECTOR D " P* DWTLOS = NUMBER OF SECTORS D B P* D h P* D r PMASK00 EQU * D | P LDK A1,0 D PMASKPR EQU * D & P LD A3,DWTLOS,A6 NUMBER OF SECTORS D P SUK A3,2 D P LDK A3,4 1 0 0 D
0x46842c…4685c0 Dummy {f00=0x0163, f01=0x0190, f02=» PMASK10 EQU * E P SUK A1,1 E P RF(Z) MASK20 0 1 0 E * P RF(N) MASK30 1 0 0 E H P SRL A3,1 0 0 1 E f PMASK20 EQU * E P SRL A3,1 E PMASK30 EQU * E P ST A3,DWTMAS,A6 SAVE MASK E P RTN A5 E P* E P EJECT DRCD02 E
0x4685c0…468754 (1, 1229) Dummy {f00=0x0163, f01=0x0190, f02=» * E P************************* F P* F : PEND:SE EQU * SEEK ERROR F D P IFT NUNITS=1 F d P LDKL A3,/FFFF F z * P ST A3,DWTCYL,A6 DUMMY CYLINDER NUMBER F P XIF F P IFT NUNITS=2 F P CF A15,INXDWT F P LD A3,DWTSMD,A6 F
0x468754…4688e8 Dummy {f00=0x0163, f01=0x0190, f02=» * P ST A3,DWTCYL,A4 DUMMY CYLINDER NUMBER G P XIF G 2 PEND:00 EQU * G > P LD A2,DWTRE2,A6 G R P CW A2,DWTRE1,A6 G j P RF(E) END:IO G , P ST A2,DWTRE1,A6 GRAND TOTAL OF RETRIES G $ P ORKL A1,/100 RETRIES PERFORMED G P* G PEND:IO EQU * G
0x4688e8…468a7c Dummy {f00=0x0163, f01=0x0190, f02=» INDICATE RECOVERY DONE G P RB END:IO H P* H 2 P EJECT DRCD02 H < P* H R P* H P********************** H f P* * H P* RECOVERY ROUTINE * H P* * H P********************** H P* H P*
0x468a7c…468c10 Dummy {f00=0x0163, f01=0x018e, f02=»SR 8,A15 SAVE A1-A8 ON STACK H P XIF I $ P* I 0 P LDKL A6,DWCD01 I : " P LDK A5,DWTSB3 GET STACK BASE I R P ADR A5,A6 I x P LDKL A1,-1 I & P ST A1,DWTSAV,A6 INDICATE RECOVERY I 0 P LDKL A1,/7FFE SET UNIT BUSY AND RECOVERY ON I P ANS A1,DWTS
0x468c10…468da4 Dummy {f00=0x0163, f01=0x018e, f02=» I P EJECT DRCD02 J P* J P* J ( P IFT NUNITS=2 J 2 P CM DWTOR,A6 1ST UNIT J H " P CF A5,SEEKZ TEST IF OPERABLE J f P ANK A1,1 J P RF(NZ) CDON80 NOT OPERABLE J P LDK A1,2 J P SC A1,DWTOR,A6 2ND UNIT J P XIF J " P CF A5,S
0x468da4…468f38 Dummy {f00=0x0163, f01=0x018e, f02=» PCDON05 EQU * K P CM DWTOR,A6 1ST UNIT K P CF A5,VO:NAM K 6 P LDK A1,1 2ND UNIT K L P SC A1,DWTOR,A6 K f P CF A5,VO:NAM K ~ P IFT NUNITS=2 K P LDK A1,2 K P SC A1,DWTOR,A6 K P CF A5,VO:NAM 3RD VOLUME K P LDK A1,3 K P S
0x468f38…4690cc Dummy {f00=0x0163, f01=0x0190, f02=» , P IM DWTST,A6 INDICATE VOLUME NAMES READ L P CM DWTSAV,A6 RECOVERY DONE L 4 P* L X $ P LD A8,DWTECB,A6 GET ECB ADDRESS L b P RB(Z) END:IO NO REQUEST ON L P* L $ PCDON40 LD A7,DWTORD,A6 GET ORDER L , P ST A7,DWTOR,A6 RESTORE INDEX AND ORDER
0x4690cc…469260 Dummy {f00=0x0163, f01=0x0190, f02=»D02 L P* M P* READY INTERRUPT M P* M 2 PCDREDY LD A1,TIMER M < " P RF(Z) CDON95 NO TIMER ACTIVE M V P* M | P IFT NUNITS=1 M P CM* TIMER KILL TIMER M P RF CDON90 M P XIF M P* M P IFT NUNITS=2 M P RB T:DISP TIMER
0x469260…4693f4 (1, 1230) Dummy {f00=0x0163, f01=0x0190, f02=»SS M n P LDR* A3,A4 N " P RF(Z) CDON85 NO TIMER ACTIVE N P LDKL A1,-TIME N D P STR A1,A3 RESTART TIMER N Z P RB T:DISP N z P* N P* N $ PCDON85 CF A15,SETIMP START TIMER N , P DATA CDON90,TIME TIME OUT ADDRESS, TIME N P RB T:DISP N
0x4693f4…469588 Dummy {f00=0x0163, f01=0x0190, f02=»SY AND RECOVERY ON N v P ANS A1,DWTST,A6 O P LDKL A1,-1 O 4 & P ST A1,DWTSAV,A6 INDICATE RECOVERY O H " P LDK A5,DWTSB3 GET STACK BASE O r P ADR A5,A6 O P RB CDON05 O P* O P EJECT DRCD02 O P* O P* O P***********************
0x469588…46971c Dummy {f00=0x0163, f01=0x0190, f02=»* O P* P B P* OUTPUT BIT 1 12 13 14 15 P P* INPUT BIT P Z & P* 1 READY AFTER UNREADY P p 8 P* 2 BAD TRACK FLAG X X P > P* 4 RECORD NOT FOUND
0x46971c…4698b0 Dummy {f00=0x0163, f01=0x0190, f02=»ECT LENGTH X P | < P* 13 PARITY ERROR X Q ( > P* 14 THROUGHPUT ERROR X Q h B P* 15 NOT OPERABLE X Q P* Q PIHCD EQU * Q
0x4698b0…469a44 Dummy {f00=0x0163, f01=0x0190, f02=»GET STATUS Q P LDR A2,A1 R P ANK A1,/F KEEP BITS R $ P SLL A2,1 R @ " P RB(N) CDREDY READY INTERRUPT R R P SLL A2,1 R x & P RF(NN) IHCD40 NOT BAD TRACK FLAG R * P ORKL A1,/4004 INDICATE BAD TRACK FLAG R P* R P EJECT DRCD02 R P* R
0x469a44…469bd8 Dummy {f00=0x0163, f01=0x018e, f02=» ECB ADDRESS R | P LDR A3,A1 RETURN CODE S P LD A2,DWTSAV,A6 S 2 " P RF(NZ) IHCD70 VO:NAM CALLING S J P ANK A3,1 S p P ABL(NZ) END:IO NOT OPERABLE S PIHCD70 EQU * S & P LD A5,DWTA5,A6 GET STACK POINTER S & P LD A4,DWTA4,A6 GET RETRY COUNTER S
0x469bd8…469d6c Dummy {f00=0x0163, f01=0x0190, f02=» PVO:NAM EQU * T P CF A5,SEEKZ T P ANK A1,3 T , P RF(NZ) VO:NA7 ERROR T > P MLK 3 T Z * P DATA /800,PHSECL,/4000+LOSECL+LOSECL T h * P MS 3,DWTCOP,A6 PREPARE CIO WORK AREA T P MLK 3 T P DATA 0,BUFFER,/8000+LOSECL T P MS 3,DWTCOP+6,A6
0x469d6c…469f00 Dummy {f00=0x0163, f01=0x018e, f02=»A7 ERROR T P LD A1,DWTOR,A6 U P ANKL A1,/300 UNIT NUMBER U ( P LDK A2,0 U J P LDK A3,6 U 2 P MS 3,DWTBSE,A6 UPDATE DRIVER BUFFER INDICATOR U n P LDKL A2,BUFFER U P LDK A3,/FC FILE CODE U P LD A1,DWTSAV,A6 U P RF(N) VO:NA5 U ( P
0x469f00…46a094 (1, 1231) Dummy {f00=0x0163, f01=0x0190, f02=» P* V P* V P LDK A1,0 RESET RETURN CODE V P LDK A3,0 CYLINDER NUMBER V < P RF VO:NA8 V ^ PVO:NA7 EQU * V p P LDK A1,6 CLEAR SEX BYTES V P CF A15,VOLCLR V P LDR A1,A3 RETURN CODE V ( P LDKL A3,/FFFF DUMMY CYLINDER NUMBER V PVO
0x46a094…46a228 Dummy {f00=0x0163, f01=0x0190, f02=»D A2,DWTSMD,A6 V P RF(NZ) VO:NA9 SMD W P LC A4,DWTOR,A6 W 0 P ANK A4,2 W H P ADR A4,A6 W Z PVO:NA9 EQU * W l P ST A3,DWTCYL,A4 W P XIF W P RTN A5 W P* W P* W P* TIMER POINTER W P* W PTIMER DATA 0 W P* W
0x46a228…46a3bc Dummy {f00=0x0163, f01=0x0190, f02=»* DEVICE WORK TABLE * W * P* * X . * P************************************* X P* X P* X PDWCD01 EQU * X P DATA 0 X P DATA /8000 DWT STATUS X P DATA 0 ECB ADDRESS X P DATA 0 ORDE
0x46a3bc…46a550 Dummy {f00=0x0163, f01=0x0190, f02=»UE X | P* Y P IFT MMUPAG=1 Y & P DATA 0 SAVE AREA USER ECB ADDRESS Y * P DATA ECBCD1 MMU ECB ADDRESS Y T P XIF Y x P* Y PDWTTRA EQU *-DWCD01 Y P DATA 0 Y ( P DATA 0,0,0 SAVE AREA FOR REGISTERS Y 0 PDWTBSE EQU *-DWCD01 DRIVER BUFFER
0x46a550…46a6e4 Dummy {f00=0x0163, f01=0x0190, f02=»ATA 0 Y 2 P DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 1 Z 2 P DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 2 Z D P DATA /8000 UNIT 3 Z z P DATA /8000 UNIT 4 Z . P DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 1 Z . P DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT
0x46a6e4…46a878 Dummy {f00=0x0163, f01=0x018e, f02=» Z PDWTBA EQU *-DWCD01 [ P DATA 0,0 [ " . PDWTLOS EQU *-DWCD01 LOGICAL SECTOR COUNTER [ 4 P DATA 0 [ f . PDWTSEC EQU *-DWCD01 PHYSICAL SECTOR NUMBER [ v P DATA 0,0 [ , PDWTMAS EQU *-DWCD01 LOGICAL SECTOR MASK [ P DATA 0 [ PDWTSMD EQU *-D
0x46a878…46aa0c Dummy {f00=0x0163, f01=0x0190, f02=» [ , PDWTCIO EQU *-DWCD01 CIO INTRUCTIONS AREA $ P CIO A2,1,CUAD1 CIO ON 1ST UNIT 8 P IFT NUNITS=2 ` $ P CIO A2,1,CUAD2 CIO ON 2ND UNIT v P XIF , PDWTSEK EQU *-DWCD01 SEEK OPERATION AREA P DATA SEEKCO 4 PDWTSEZ EQU *-DWCD01 SEEK T
0x46aa0c…46aba0 Dummy {f00=0x0163, f01=0x0190, f02=»A PHSECL P DATA WHACOM+1 ] P DATA PHSECL ] & P DATA WHACOM+2 ] : P DATA PHSECL ] P P DATA WHACOM+3 ] d P DATA PHSECL ] z ( P DATA WHACOM+/804 INTERRUPT BIT SET ] P DATA PHSECL ] & PDWTCOP EQU *-DWCD01 CIO WORK AREA ] P DATA 0,0,0,0 ]
0x46aba0…46ad34 (1, 1232) Dummy {f00=0x0164, f01=0x0190, f02=»1 TOTAL RETRY COUNTER ] ~ P DATA 0 ^ P* ^ . P EJECT DRCD02 ^ 8 P* ^ N P* ^ X 0 PDWTCYL EQU *-DWCD01 PRESENT CYLINDER NUMBER ^ b P DATA /FFFF UNIT 1 ^ P IFT NUNITS=2 ^ P DATA /FFFF ^ P XIF ^ P DATA 0,0 ^ P DATA 0,0 ^
0x46ad34…46aec8 Dummy {f00=0x0164, f01=0x0190, f02=»0,0,0 ^ P DATA 0 _ P XIF _ P IFT MMUPAG=1 _ * PECBCD1 EQU * _ @ P DATA 0,0,0,0,0,0,0 _ T P XIF _ p * PDWTSMX EQU *-DWCD01 MAX SECTOR NUMBER _ | P DATA MXSE11,MXSE12 _ P DATA MXSE21,MXSE22 _ P IFT NUNITS=2 _ P DATA MXSE31,MXS
0x46aec8…46b05c Dummy {f00=0x0164, f01=0x4068, f02=» P IFT NUNITS=2 ` P DATA SPCUN3 ` P DATA SPCUN4 ` . P XIF ` B P* ` N P END ` X@ ` d _ T P XIF _ p * PDWTSMX EQU *-DWCD01 MAX SECTOR NUMBER _ | P DATA MXSE11,MXSE12 _ P DATA MXSE21,MXSE22 _ P IFT NUNITS=2 _ P DATA MXSE31,MXS
0x46b05c…46b1f0 Dummy {f00=0x0164, f01=0x2008, f02=» a ************* | * & "* INPUT: PHYSICAL SECTOR NUMBER ( 8 4* OUTPUT: INTERLACED SECTOR NUMBER AND HEAD NUMBER R $ * IN POSITION FOR CIO * PERFORM SEEK * CIOPRE EQU * * END @
0x46b1f0…46b384 Dummy {f00=0x0164, f01=0x0190, f02=» 2 P DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 1 Z 2 P DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 2 Z : P DATA /8000 UNIT 3 Z p P DATA /8000 UNIT 4 Z . P DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 1 Z . P DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 2 Z P
0x46b384…46b518 Dummy {f00=0x0164, f01=0x0190, f02=»TBA EQU *-DWCD01 Z P DATA 0,0 [ . PDWTLOS EQU *-DWCD01 LOGICAL SECTOR COUNTER [ * P DATA 0 [ . PDWTSEC EQU *-DWCD01 PHYSICAL SECTOR NUMBER [ l P DATA 0,0 [ , PDWTMAS EQU *-DWCD01 LOGICAL SECTOR MASK [ P DATA 0 [ PDWTSMD EQU *-DWCD01 [
0x46b518…46b6ac Dummy {f00=0x0164, f01=0x0190, f02=»IO EQU *-DWCD01 CIO INTRUCTIONS AREA [ $ P CIO A2,1,CUAD1 CIO ON 1ST UNIT , P IFT NUNITS=2 T $ P CIO A2,1,CUAD2 CIO ON 2ND UNIT j P XIF , PDWTSEK EQU *-DWCD01 SEEK OPERATION AREA P DATA SEEKCO 4 PDWTSEZ EQU *-DWCD01 SEEK TO ZERO OPERA
0x46b6ac…46b840 Dummy {f00=0x0164, f01=0x0190, f02=» P DATA WHACOM+1 ] P DATA PHSECL ] P DATA WHACOM+2 ] . P DATA PHSECL ] D P DATA WHACOM+3 ] X P DATA PHSECL ] n ( P DATA WHACOM+/804 INTERRUPT BIT SET ] P DATA PHSECL ] & PDWTCOP EQU *-DWCD01 CIO WORK AREA ] P DATA 0,0,0,0 ] P DATA
0x46b840…46b9d4 (1, 1233) Opaque[0x194]
0x46b9d4…46bb68 # DirEnt {nam=»DRDC25«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c88, f03=0x0000}
0x46b9d4…46bb68 IdxSect {
0x46b9d4…46bb68 f00 = 0x0164 // 0x46b9d4 @0x0
0x46b9d4…46bb68 f01 = 0x007e // 0x46b9d6 @0x2
0x46b9d4…46bb68 gno = [ // 0x46b9d8 @0x4
0x46b9d4…46bb68 [0x00]: C0x0164.0x1.0
0x46b9d4…46bb68 [0x01]: C0x0164.0x2.0
0x46b9d4…46bb68 [0x02]: C0x0164.0x3.0
0x46b9d4…46bb68 [0x03]: C0x0165.0x0.0
0x46b9d4…46bb68 [0x04]: C0x0165.0x1.0
0x46b9d4…46bb68 [0x05]: C0x0165.0x2.0
0x46b9d4…46bb68 [0x06]: C0x0165.0x3.0
0x46b9d4…46bb68 [0x07]: C0x0166.0x0.0
0x46b9d4…46bb68 [0x08]: C0x0166.0x1.0
0x46b9d4…46bb68 [0x09]: C0x0166.0x2.0
0x46b9d4…46bb68 [0x0a]: C0x0166.0x3.0
0x46b9d4…46bb68 [0x0b]: C0x0167.0x0.0
0x46b9d4…46bb68 [0x0c]: C0x0167.0x1.0
0x46b9d4…46bb68 [0x0d]: C0x0167.0x2.0
0x46b9d4…46bb68 [0x0e]: C0x0167.0x3.0
0x46b9d4…46bb68 [0x0f]: C0x0168.0x0.0
0x46b9d4…46bb68 [0x10]: C0x0168.0x1.0
0x46b9d4…46bb68 [0x11]: C0x0168.0x2.0
0x46b9d4…46bb68 [0x12]: C0x0168.0x3.0
0x46b9d4…46bb68 [0x13]: C0x0169.0x0.0
0x46b9d4…46bb68 [0x14]: C0x0169.0x1.0
0x46b9d4…46bb68 [0x15]: C0x0169.0x2.0
0x46b9d4…46bb68 [0x16]: C0x0169.0x3.0
0x46b9d4…46bb68 [0x17]: C0x016a.0x0.0
0x46b9d4…46bb68 [0x18]: C0x016a.0x1.0
0x46b9d4…46bb68 [0x19]: C0x016a.0x2.0
0x46b9d4…46bb68 [0x1a]: C0x016a.0x3.0
0x46b9d4…46bb68 [0x1b]: C0x016b.0x0.0
0x46b9d4…46bb68 [0x1c]: C0x016b.0x1.0
0x46b9d4…46bb68 [0x1d]: C0x016b.0x2.0
0x46b9d4…46bb68 [0x1e]: C0x016b.0x3.0
0x46b9d4…46bb68 [0x1f]: C0x016c.0x0.0
0x46b9d4…46bb68 [0x20]: C0x016c.0x1.0
0x46b9d4…46bb68 [0x21]: C0x016c.0x2.0
0x46b9d4…46bb68 [0x22]: C0x016c.0x3.0
0x46b9d4…46bb68 [0x23]: C0x016d.0x0.0
0x46b9d4…46bb68 [0x24]: C0x016d.0x1.0
0x46b9d4…46bb68 [0x25]: C0x016d.0x2.0
0x46b9d4…46bb68 [0x26]: C0x016d.0x3.0
0x46b9d4…46bb68 [0x27]: C0x016e.0x0.0
0x46b9d4…46bb68 [0x28]: C0x016e.0x1.0
0x46b9d4…46bb68 [0x29]: C0x016e.0x2.0
0x46b9d4…46bb68 [0x2a]: C0x016e.0x3.0
0x46b9d4…46bb68 [0x2b]: C0x016f.0x0.0
0x46b9d4…46bb68 [0x2c]: C0x016f.0x1.0
0x46b9d4…46bb68 [0x2d]: C0x016f.0x2.0
0x46b9d4…46bb68 [0x2e]: C0x016f.0x3.0
0x46b9d4…46bb68 [0x2f]: C0x0170.0x0.0
0x46b9d4…46bb68 [0x30]: C0x0170.0x1.0
0x46b9d4…46bb68 [0x31]: C0x0170.0x2.0
0x46b9d4…46bb68 [0x32]: C0x0170.0x3.0
0x46b9d4…46bb68 [0x33]: C0x0171.0x0.0
0x46b9d4…46bb68 [0x34]: C0x0171.0x1.0
0x46b9d4…46bb68 [0x35]: C0x0171.0x2.0
0x46b9d4…46bb68 [0x36]: C0x0171.0x3.0
0x46b9d4…46bb68 [0x37]: C0x0172.0x0.0
0x46b9d4…46bb68 [0x38]: C0x0172.0x1.0
0x46b9d4…46bb68 [0x39]: C0x0172.0x2.0
0x46b9d4…46bb68 [0x3a]: C0x0172.0x3.0
0x46b9d4…46bb68 [0x3b]: C0x0173.0x0.0
0x46b9d4…46bb68 [0x3c]: C0x0173.0x1.0
0x46b9d4…46bb68 [0x3d]: C0x0173.0x2.0
0x46b9d4…46bb68 [0x3e]: C0x0173.0x3.0
0x46b9d4…46bb68 ]
0x46b9d4…46bb68 }
0x46bb68…46bcfc Dummy {f00=0x0164, f01=0x0190, f02=» 0 P IDENT DRDC25 REL 11.0 81-01-26 870105041100 P* 8 2 P********************************************* B P* x " P* PHILIPS TERMINAL SYSTEM PTS P* , P* DRDC25: DRIVER FOR DATA COMMUNICATION 2 P* HDLC: ASYNCHRONOUS RESPONSE
0x46bcfc…46be90 Dummy {f00=0x0164, f01=0x018e, f02=»******************************************* P* 4 P* > P* H P EJECT R P ENTRY DC25ON ` P ENTRY DW2501 v P ENTRY DW2502 P ENTRY DW2503 P ENTRY DW2504 P ENTRY IH2501 P ENTRY IH2502
0x46be90…46c024 Dummy {f00=0x0164, f01=0x018e, f02=» ( P ENTRY PARTA1 PROTOCOL TABLE,LINE 1 ( P ENTRY CURTRP CURRENT TRACE POINTER 0 & P ENTRY TRASTR TRACE START ADDRESS $ P ENTRY TRAEND TRACE END ADDRESS & P ENTRY CURLGP CURRENT LOGG POINTER $ P ENTRY LOGSTR LOGG START ADDRESS " P ENTRY L
0x46c024…46c1b8 Dummy {f00=0x0164, f01=0x0190, f02=» , P EXTRN DWTWAT WAIT OR ACTIVATE INDICATOR P EXTRN SAVE8 4 P EXTRN RETUR8 T P EXTRN TENDIO t P EXTRN TDISP P EXTRN SETIME ( P EXTRN INTSAV INTERRUPT SAVE ADDRESS P* P***** BUFFER EQUATES *****
0x46c1b8…46c34c Dummy {f00=0x0164, f01=0x0190, f02=» . P***************************************** P* : P* SYSGEN PARAMETERS D P* ` P* j PX:A EQU 1 t " PSYNRLN EQU X:A NUMBER OF LINES P* , PX:B EQU 0 CHLC 6836 OR CULC 6856(HLCUZ) PHLCUZ EQU X:B 0=6836,1=6856
0x46c34c…46c4e0 Dummy {f00=0x0164, f01=0x0190, f02=»QU X:D REC.UNIT ADDR. LINE 2 P* $ P IFF SYNRLN=2 . PX:E EQU /04 D ( PREDV03 EQU X:E REC.UNIT ADDR. LINE 3 X P* P IFF SYNRLN=3 PX:F EQU /05 ( PREDV04 EQU X:F REC.UNIT ADDR. LINE 4 P XIF P* P EJECT P
0x46c4e0…46c674 (1, 1234) Dummy {f00=0x0164, f01=0x0190, f02=»IT ADDR. LINE 2 r P IFF SYNRLN=2 2 PSEDV03 EQU REDV03+/10 TRANS.UNIT ADDR. LINE 3 . P IFF SYNRLN=3 d 2 PSEDV04 EQU REDV04+/10 TRANS.UNIT ADDR. LINE 4 z P XIF P* P IFT HLCUZ=1 2 PSEDV01 EQU REDV01+/01 TRANS.UNIT ADDR. LINE 1
0x46c674…46c808 Dummy {f00=0x0164, f01=0x0190, f02=»IT ADDR. LINE 3 r P IFF SYNRLN=3 2 PSEDV04 EQU REDV04+/01 TRANS.UNIT ADDR. LINE 4 . P XIF d P* p $ PX:G EQU 1 LINE ACCESS PROCEDURE z PABM EQU X:G 0=ARM,1=ABM P* ( PX:H EQU 0 PROGRAMMED CHANNEL OR IOP PIOPCON EQU X:H 0
0x46c808…46c99c Dummy {f00=0x0164, f01=0x0190, f02=»T j P* P EJECT P* " 0 PSYUBNR EQU 2 NR OF INP.BUFFERS IN OPEN/CLOSE , . PSYIORY EQU 100 NUMBER OF I/O ERROR RETRIES ` 0 PSYNRY EQU 7 NR OF RETRIES (TIME OUT AND I/O) . PSYNRTR EQU 2 NR OF OUTPUT REQUESTS ALLOWED & PSYTRWN EQU SYNRT
0x46c99c…46cb30 Dummy {f00=0x0164, f01=0x0190, f02=»DRESS x > PSYTIM0 EQU 200 TIME OUT VALUE TIMER STATE 0: SILENT TIMER : PSYTIM1 EQU 40 TIME OUT VALUE TIMER STATE 1: WAIT FOR F P < PSYTIM2 EQU 40 TIME OUT VALUE TIMER STATE 2: WAIT FOR ACK : PSYTIM3 EQU 40 TIME OUT VALUE TIMER STATE 3: CHECK BUSY
0x46cb30…46ccc4 Dummy {f00=0x0164, f01=0x0190, f02=»ACE P H PNRLEC2 EQU SYNRRC+SYNRTR+2 NUMBER OF LINE ECB'S FOR SAVING DWT INFO 8 PNRLECB EQU NRLEC1+NRLEC2 TOTAL NUMBER OF LINE ECB'S X P* 8 PTRACE EQU 0 LOGGING OF RECEIVED AND TRANSM. I-FRAMES : PLOG EQU 0 LOGGING OF RECEIVED AND TRANSM. HDLC
0x46ccc4…46ce58 Dummy {f00=0x0164, f01=0x0190, f02=» 8 P***** LINE FILECODES FOR I/O-HANDLER INTERFACE ***** P* D " PFC:LN1 EQU /60 FILECODE LINE 1 N P IFF SYNRLN=1 t " PFC:LN2 EQU /61 FILECODE LINE 2 P IFF SYNRLN=2 " PFC:LN3 EQU /62 FILECODE LINE 3 P IFF SYNRLN=3 " PFC:LN4
0x46ce58…46cfec Dummy {f00=0x0164, f01=0x0190, f02=» P XIF P IFT SYNRLN=3 PLINE4 EQU 0 > PLINE3 EQU 1 T PLINE2 EQU 1 j P XIF P IFT SYNRLN=2 PLINE4 EQU 0 PLINE3 EQU 0 PLINE2 EQU 1 P XIF
0x46cfec…46d180 Dummy {f00=0x0164, f01=0x0190, f02=»FT TRACE=0 PCURTRP EQU 0 DUMMY PTRASTR EQU 0 DUMMY , PTRAEND EQU 0 DUMMY F P XIF ` P* l P IFT LOG=0 v PCURLGP EQU 0 DUMMY PLOGSTR EQU 0 DUMMY PLOGEND EQU 0 DUMMY P XIF P* P* DUMMY ENTRY P*
0x46d180…46d314 (1, 1235) Dummy {f00=0x0164, f01=0x0190, f02=» CONNECTING, LOCAL STATION HAS STARTED $ P A CONNECT SEQUENCE BY SENDING . P A SARM OR SABM V P IFT ABM=0 p 4 PCNTB EQU 2 CONNECTING, LOCAL STATION IS WAITING 2 P FOR RESPONSE ON HIS TRANSMITTED SARM AFTRE . P HAVING RECEIVED A SAR
0x46d314…46d4a8 Dummy {f00=0x0164, f01=0x018e, f02=»D IS NOW p " P WAITING FOR THE REMOTE SARM P XIF 6 PCNT EQU 4 CONNECTED B . PCNTRES EQU 5 CONNECTED, DUE TO AN ERROR A ^ $ P CMDR/FRMR IS TRANSMITTED, THE $ P LOCAL STATION IS WAITING FOR P REMOTE RESET REQUEST 4 PCNTRS1 E
0x46d4a8…46d63c Dummy {f00=0x0164, f01=0x018e, f02=» ` & P REQUEST IS RECEIVED, THE LOCAL & P STATION IS WAITING FOR AN F-BIT 2 " P BEFORE TRANSMITTING A DISC. 0 PDISCA EQU 8 DISCONNECTING, LOCAL STATION HAS & P STARTED THE DISCONNECT SEQUENCE P BY SENDING A DISCONNECT. P IFT
0x46d63c…46d7d0 Dummy {f00=0x0164, f01=0x0190, f02=» P HAVING RECEIVED A DISC P FROM THE REMOTE STATION & 8 PDISCC EQU 10 DISCONNECTING, LOCAL STATION IS WAITING H . P FOR RESPONSE ON HIS DISC, AFTER HAVING & P RECEIVED A DISC FROM THE REMOTE P STATION DURING CONNECTING 8 PDISC
0x46d7d0…46d964 Dummy {f00=0x0164, f01=0x0190, f02=»MOTE r $ P STATION DURING DISCONNECTING 8 PDISCE EQU 12 DISCONNECTING, LOCAL STATION IS WAITING 4 . P FOR REMOTE DISC, AFTER HAVING RECEIVED p * P A RESPONSE ON HIS TRANSMITTED DISC P XIF P EJECT P* P***** NOTIFICATIONS
0x46d964…46daf8 Dummy {f00=0x0164, f01=0x018e, f02=» v PNTTL EQU 3 LENGTH ERROR * PNTND EQU 4 SECOND CONNECT NOT ACCEPTED ( 0 PNTPCI EQU 5 INCORRECT NR OF PROTOCOL BUFFERS V PNTNA EQU 6 PIIFRA EQU 7 I-FRAME ACCEPTED PNTQE EQU 9 QUEUEING ERROR PNTDC EQU 10 DISCONNECTED " PNTPR E
0x46daf8…46dc8c Dummy {f00=0x0164, f01=0x0190, f02=» r * PNTCU EQU /8010 UNKNOWN DEVICE ADDRESS PNTRRST EQU 17 RECEIVER RESET 6 $ PNTTRST EQU 18 TRANSMITTER RESET Z P* P* P***** ECB EQUATES ***** P* P* P* PECBFC EQU 0 PECBBA EQU 2 PECBRL EQU 4
0x46dc8c…46de20 Dummy {f00=0x0164, f01=0x0190, f02=» P* P* PITYP EQU /11 PSTYP EQU /1F 0 PUTYP EQU /FF D 4 PINPER1 EQU 0 I/O-HANDLER ERROR CONTROL WORD MASK X $ P*** BIT 15: MODEM NOT OPERABLE " P*** BIT 14: THROUGHPUT ERROR P*** BIT 13: CRC ERROR " P*** BIT
0x46de20…46dfb4 (1, 1236) Dummy {f00=0x0165, f01=0x0190, f02=»LOWED LKM ORDERS ***** P* P* ( P* 2 PREAD EQU /02 < PWRITE EQU /06 P PCONN EQU /21 f PDISCN EQU /22 z PSTATR EQU /2D P* P* P* & P***** LEVEL 1 ALLOWED ORDERS ***** P* P* P*
0x46dfb4…46e148 Dummy {f00=0x0165, f01=0x0190, f02=»DIL1 EQU 4 LEVEL 1 DISCONNECT REQUEST PORTIL1 EQU 5 TIMER ORDER . P* N P* X P* b " P***** DWT DISPLACEMENTS ***** l P* P* P* PDWTPT EQU /18 P* P IFT STAT=1 P EJECT . P***** STATISTICAL COUN
0x46e148…46e2dc Dummy {f00=0x0165, f01=0x018e, f02=»R EQU 4 RNR-FRAMES PR.REJ EQU 6 REJ-FRAMES PR.DISC EQU 8 DISC-FRAMES 8 " PR.SABM EQU 10 SABM/SARM-FRAMES X PR.DM EQU 12 DM-FRAMES ~ PR.UA EQU 14 UA-FRAMES " PR.FRMR EQU 16 FRMR/CMDR-FRAMES PR.INV EQU 18 INVALID FRAMES P*
0x46e2dc…46e470 Dummy {f00=0x0165, f01=0x0190, f02=» PT.REJ EQU 26 REJ-FRAMES PT.DISC EQU 28 DISC-FRAMES $ " PT.SABM EQU 30 SABM/SARM-FRAMES F PT.DM EQU 32 DM-FRAMES l PT.UA EQU 34 UA-FRAMES " PT.FRMR EQU 36 FRMR/CMDR-FRAMES & PT.TOUT EQU 38 NUMBER OF TIME OUTS $ PT.RETRY EQU 40 N
0x46e470…46e604 Dummy {f00=0x0165, f01=0x0190, f02=» WITH THE HDLC PROTOCOL l P* 4 PI EQU /00 I-FRAME * < PIP EQU /10 I-FRAME + P-BIT b 4 PRR EQU /01 RR-FRAME < PRRP EQU /11 RR-FRA
0x46e604…46e798 Dummy {f00=0x0165, f01=0x0190, f02=» > PRNRP EQU /15 RNR-FRAME + P-BIT > PRNRF EQU RNRP RNR-FRAME + F-BIT F 6 PREJ EQU /09 REJ-FRAME > PREJF EQU /19 REJ-FRAME + F-BIT $ PREJP
0x46e798…46e92c Dummy {f00=0x0165, f01=0x0190, f02=»BM-FRAME + P-BIT f PSARM EQU /0F SARM-FRAME $ PSARMP EQU /1F SARM-FRAME+ P-BIT 8 6 PDISC EQU /43 DISC-FRAME ` > PDISCP EQU /53 DISC-FRAME + P-BIT 4 PUA EQU /63 UA-F
0x46e92c…46eac0 Dummy {f00=0x0165, f01=0x0190, f02=» EQU /1F DM-FRAME + F-BIT < PFRMR EQU /87 FRMR/CMDR-FRAME < D PFRMRF EQU /97 FRMR/CMDR-FRAME + F-BIT | J PNVT EQU /FF ANY OTHER NOT SPECIFIED FRAM
0x46eac0…46ec54 (1, 1237) Dummy {f00=0x0165, f01=0x0190, f02=»************************* | P* " & P* INITIATED ARE - PARAMETER TABLE , & P* - PROTOCOL STATUS V P* - ALL QUEUES * P* - STATISTICAL COUNTERS , P* - CONNECT BUFFER POINTER P*
0x46ec54…46ede8 Dummy {f00=0x0165, f01=0x0190, f02=» ST A7,NUM . PINI2 EQU * 0 P LD A6,TABPAR,A7 GET PARAMETER TABLE ADDRESS & P LDR A2,A7 GET LINE INDEX Z P SRL A2,1 | 4 P LD A7,TABPAR-2,A7 GET FILECODE FOR I/O-HANDLER P LD A5,STB,A6 STACK BASE $ P CF A5,INIT INITIATE PARAMETERS
0x46ede8…46ef7c Dummy {f00=0x0165, f01=0x0190, f02=» ~ P EJECT P* P* P* LKM REQUEST HANDLER * P* H 2 P********************************************* R P* P* INPUT PARAMETERS: P* A6 = DWT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS P* P*
0x46ef7c…46f110 Dummy {f00=0x0165, f01=0x0190, f02=» PPCALL EQU * ! * P INH USE OF THIS LEVEL IS PROHIBITTED ! P DURING THIS TIME ! N P* ! j 4 P* A5 WILL BE SET TO STACKBASE PER FILE CODE ! t $ P* IN THE PARAMETER TABLE ! 8 P* A6 WILL BE SET TO THE PARAMETER TABLE ADDRESS
0x46f110…46f2a4 Dummy {f00=0x0165, f01=0x0190, f02=»TUS INACTIVE ! v P ST A3,DWTST,A6 . " 4 P LD A1,DWTPT,A6 GET ADDR PARAMETER TABLE PARTA1 " . , P ST A6,DWTAD,A1 SAVE DWT ADDR IN PARTA1 " f ( P LDR A6,A1 A6 IS NOW ADDRESS PARTA1 " P LDK A3,1 " , P ST A3,BUSY,A6 SET PROTOCOL HANDLER BUSY " , P LD
0x46f2a4…46f438 Dummy {f00=0x0165, f01=0x0190, f02=» SAVE DWTTAB " P ST A4,2,A8 SAVE DWTWAT # * P LD A2,ECBPR,A1 GET PRIORITY FROM ECB # 4 P ST A2,4,A8 SAVE PRIORITY # b 0 P ST A8,ECBPR,A1 SAVE LINE ECB ADDRESS IN ECB # * P LDR A8,A1 RESET ORIGINAL ECB ADDRESS # P ENB # $ P LDK A4,0 RESET POINTE
0x46f438…46f5cc Dummy {f00=0x0165, f01=0x0190, f02=» TO RECEIVED ORDER ? # ( P ABI(E) ORDER,A4 GO TO ORDER PROCESS $ P ADK A4,2 UPDATE POINTER $ H P RB PCALL1 TRY AGAIN $ h P* $ 0 P* TABLE WITH ENTRIES BELONGING TO ORDER $ P* $ * PORDER DATA CREAD IF CALL READ RECEIVED $ & P DATA CREAD IF
0x46f5cc…46f760 Dummy {f00=0x0165, f01=0x0190, f02=» 0 P DATA CSTAT IF CALL FOR STATISTICS RECEIVED % P XIF % 8 P* % D PINVAL EQU * % N * P LDKL A1,NTNA NOTIFICATION NO ACCEPTED % b $ P CF A5,Q.ERDY QUEUE EVENT READY % P RF EXT % P* % PORDTAB EQU * LIST OF ORDERS % J P*
0x46f760…46f8f4 (1, 1238) Dummy {f00=0x0165, f01=0x0190, f02=» CONN % P DATA DISCN & P IFT STAT=1 & 0 P DATA STATR & D P XIF & X P DATA -1 & d P EJECT & t P* & P* & P* INPUT REQUEST HANDLER & P* & 2 P********************************************* & P* & P* INPUT
0x46f8f4…46fa88 Dummy {f00=0x0165, f01=0x0190, f02=»B-ADDRESS & P* ' P* CALLING SEQUENCE: ' P* ABL CREAD ' 8 P* ' N & P* THE APPLICATION DRIVEN READ ' X H P* THIS PART WILL PERFORM THE REQUIRED ACTIONS FOR THE CALL READ ' P* ' PCREAD EQU * ' " P LDK A1,NTNC PRESET
0x46fa88…46fc1c Dummy {f00=0x0165, f01=0x0190, f02=»E ' n & P LD A2,DRIVST,A6 LD DRIVER STATUS ( ( P RF(NZ) CREADC DRIVER NOT CONNECTED ( 4 . P LDK A1,NTTL PRESET ERR. CODE LENGTH ERROR ( ` * P LD A2,ECBRL,A8 GET REQUESTED LENGHTH ( & P LDR A4,A4 IS IT A WRITE REQUEST ? ( P RF(NZ) CWRITE YES ( $ P CW
0x46fc1c…46fdb0 Dummy {f00=0x0165, f01=0x0190, f02=»QF PRESET RETURN CODE ( $ P LD A4,NN,A3 ROOM FOR SAVING ? ) $ P RF(NP) CREADC INPUT QUEUE FULL ) F P CF A5,PUTBUF YES ? SAVE ! ) n & P LD A7,ECBBA,A8 GET BUFFER ADDRESS ) 4 P CF A5,L1INPQ INPUT REQUEST WITH IMPL. GLECB(A7) ) " P LD A1,SINS,A6 GET SIN
0x46fdb0…46ff44 Dummy {f00=0x0165, f01=0x0190, f02=»L A1,/FBFF RESET IN.RNR IF SET ) P ORKL A1,/0200 SET IN.REJ * & P ST A1,PART1,A6 * H PTRANST EQU * * ` P CF A5,TRAN CALL TRANSMITTER * t PEXT EQU * * P ABL EXIT * PCREADC EQU * * P RF CONFL1 ERROR RETURN * P EJECT * P* * P
0x46ff44…4700d8 Dummy {f00=0x0165, f01=0x0190, f02=» * | P* A5 = STACK POINTER + $ P* A6 = PARAMETER TABLE ADDRESS + & P* A8 = ECB-ADDRESS + N P* + j P* CALLING SEQUENCE: + t P* ABL CWRITE + P* + & P* THE APPLICATION DRIVEN WRITE + P* + PCWRITE EQU * + $ P CW A2,SYLEN,A
0x4700d8…47026c Dummy {f00=0x0165, f01=0x0190, f02=»OR CODE + x P LD A2,SC,A6 , P AD A2,AC,A6 , $ P ADR A2,A2 , 8 * P LD A3,Q1SCAD,A6 IS SEND QUEUE FULL ? , J P SU A2,NN,A3 . , x ( P RF(Z) CONFL1 YES, WRITE NOT ALLOWED , & P CF A5,PUTBUF SAVE ELEMENT IN QUE , P IFT TRACE=1 , P CF A5,LOGTRC TR
0x47026c…470400 Dummy {f00=0x0165, f01=0x018e, f02=»NNECT REQUEST HANDLER , P* - 2 P********************************************* - ( P* - ^ P* INPUT PARAMETERS: - h P* A5 = STACK POINTER - $ P* A6 = PARAMETER TABLE ADDRESS - P* A8 = ECB-ADDRESS - P* - P* CALLING SEQUENCE: -
0x470400…470594 (1, 1239) Dummy {f00=0x0165, f01=0x018e, f02=» ( P RF(NN) CONFL1 STATUS NOT DISCONNECT . P* INITIATE PROTOCOL . 0 P LDK A1,DISCNT . L ( P ST A1,CSV,A6 SET CSV = DISCONNECTED . b & P CM SINS,A6 SET RECEIVER NOT BUSY . P LDKL A1,-1 . P ST A1,TST,A6 TIMER STATE . P CM SC,A6 RESET SEND COUNT
0x470594…470728 Dummy {f00=0x0165, f01=0x0190, f02=» , P CF A5,RESTR RESET TRANSMITTER VARIABLES / * P CF A5,RESREC RESET RECEIVER VARIABLES / 4 P LDKL A1,0-SYIORY / b $ P ST A1,INPRY,A6 INIT RETRY COUNT / | & P LD A2,ECBBA,A8 USER BLOCK ADDRESS / $ P LDK A1,NTPCI PRESET ERROR CODE / * P LDR* A2,A2 NUMBER
0x470728…4708bc Dummy {f00=0x0165, f01=0x0190, f02=»EN,A6 SAVE IT AS INPUT LENGTH / P LDK A1,1 0 & 4 P ST A1,PROTST,A6 PROTOCOL STATUS 'CONNECT BUSY' 0 8 P LD A1,INBUF,A6 0 p B P ST A1,CONBUF,A6 INITIATE AREA FOR SAVING THE CONNECT BUFFERS 0 P* AT DISCONNECT TIME 0 " P ST A8,CONECB,A6 SAVE USER E
0x4708bc…470a50 Dummy {f00=0x0165, f01=0x0190, f02=»E 0 p P RB(NP) EXT DEVICE IS KNOWN 1 , P CF A5,PLECB RETURN ELEMENT TO ECB QUEUE 1 . . P LDKL A1,NTCU RC := DEVICE ADDRESS UNKNOWN 1 ^ PCCONFL EQU * 1 P LDKL A2,-1 1 2 P ST A2,PROTST,A6 PROTOCOL STATUS DISCONNECTED 1 " P LD A8,CONECB,A6 GET USER
0x470a50…470be4 Dummy {f00=0x0165, f01=0x018e, f02=»CT REQUEST HANDLER 1 P* 2 2 P********************************************* 2 $ P* 2 Z P* INPUT PARAMETERS: 2 d P* A5 = STACK POINTER 2 $ P* A6 = PARAMETER TABLE ADDRESS 2 P* A8 = ECB-ADDRESS 2 P* 2 P* CALLING SEQUENCE: 2 P
0x470be4…470d78 Dummy {f00=0x0165, f01=0x0190, f02=» 2 l & P LDR* A2,A2 GET NUMBER OF BUFFERS 3 , P CWK A2,SYUBNR EQUAL TO SYSGEN DEFINED? 3 2 P RF(NE) CDISC3 NO! 3 b $ P LDK A1,NTNC PRESET RETURN CODE 3 | ( P LD A2,PROTST,A6 GET PROTOCOL STATUS 3 P LDKL A3,-1 3 * P ST A3,PROTST,A6 AND SET DISCONNECT
0x470d78…470f0c Dummy {f00=0x0165, f01=0x0190, f02=»1,NTLD SET LOCAL DISC DURING OPEN 3 & P ST A1,LECBRC,A6 SAVE RETURN CODE 4 * , P LDR A2,A2 GET ORIGINAL PROTOCOL STATUS 4 T P RF(Z) CDISC4 OPEN READY 4 $ P LD A8,CONECB,A6 GET CONNECT ECB 4 & P LD A2,DRIVST,A6 GET DRIVER STATUS 4 2 P RF(NZ) CDISC1 DRI
0x470f0c…4710a0 Dummy {f00=0x0165, f01=0x0190, f02=»WITH IMPL. LECB REQUEST 4 v P RF CDISC2 5 PCDISC1 EQU * 5 2 . P CF A5,Q.ERDY RETURN CONN.REQ.WITH BUFFERS 5 F PCDISC2 EQU * 5 x P ABL EXT FINISHED 5 P* 5 PCDISC3 EQU * 5 2 P CM* ECBBA,A8 INDICATION: NO BUFFERS RETURNED! 5 P RB CONFL1 5
0x4710a0…471234 (1, 1240) Dummy {f00=0x0166, f01=0x0190, f02=» DISCONNECTED(-1) 5 x 6 P ABL(Z) DISRD3 DRIVER ALREADY DISCONNECTED,RETURN 6 @ P LD A1,OUTSTP,A6 CHECK OUTST.P IS SET 6 T , P RF(NZ) CDISC6 YES ! FRAMES OUTSTANDING 6 ( P LDKL A1,/0820 SET IN.DISC AND IN.P 6 > P ORS A1
0x471234…4713c8 Dummy {f00=0x0166, f01=0x0190, f02=» * 6 8 P LDK A1,DISCF CSV BECOMES DISCONNECTING, WAIT FOR F 7 PCDISC7 EQU * 7 J P ST A1,CSV,A6 7 ^ " P ABL TRANST START TRANSMITTER 7 t P IFT STAT=1 7 P EJECT 7 P* 7 P* 7 P* STATISTICS REQUEST HANDLER 7 P* 7 2 P**********
0x4713c8…47155c Dummy {f00=0x0166, f01=0x0190, f02=»ADDRESS 7 x P* A8 = ECB-ADDRESS 8 P* 8 , P* CALLING SEQUENCE: 8 6 P* ABL CSTAT 8 R P* 8 h PCSTAT EQU * 8 r * P LDK A1,STALNG LENGTH OF COUNTER AREA 8 * P CW A1,ECBRL,A8 COMPARE WITH USER AREA 8 P RF(L) CSTAT1 8 & P LD A1,ECBRL,A8
0x47155c…4716f0 Dummy {f00=0x0166, f01=0x0190, f02=»A6 START ADDRESS COUNTER AREA 8 , P LD A3,ECBBA,A8 START ADDRESS USER AREA 9 & PCSTAT2 EQU * 9 V $ P SUK A1,2 REDUCE LENGTH COUNTER 9 j P RF(N) CSTAT3 READY 9 P LDR* A4,A2 COPY COUNTER 9 P STR A4,A3 . 9 P CMR A2 CLEAR COUNTER 9 P ADK A2,
0x4716f0…471884 Dummy {f00=0x0166, f01=0x0190, f02=» P RB CONFL1 EXIT : P XIF : P EJECT : ( P* : 6 P* : @ P* INTERRUPT DRIVEN SCHEDULER : J P* : n 2 P********************************************* : x P* : P* INPUT PARAMETERS: : P* A1 OR A8 = ECB-ADDRESS : P* : P* CALLIN
0x471884…471a18 Dummy {f00=0x0166, f01=0x0190, f02=»ENTRY FOR ALL TIME OUT REQUESTS ACTIVATED BY TIMER : P* ; : . PIDREQT EQU * INTERRUPT DRIVEN TIMER ENTRY ; D . P LDR A8,A1 ECB ADDRESS IN CORRECT REGISTER ; v 6 P***** ENTRY FOR ALL I/O-HANDLER INTERRUPT REQUESTS ; P* ; P* ; PIDREQ EQU * ;
0x471a18…471bac Dummy {f00=0x0166, f01=0x0190, f02=»CODE MATCH ; p P RF(E) IDR2 YES < P SUK A2,4 TAKE NEXT ENTRY < * P RB IDR1 < L PIDR2 EQU * < 0 P LD A6,TABPAR,A2 GET PARAMETER TABLE ADDRESS < n $ P LD A5,NEWSTB,A6 GET STACK BASE < & P LD A1,BUSY,A6 CHECK IF LEVEL BUSY < P RF(Z) IDNOTB < 6
0x471bac…471d40 Dummy {f00=0x0166, f01=0x0190, f02=» ABL TDISP < P* = P* = PIDNOTB EQU * = & * P LD A5,STB,A6 MAKE CF STACK IN PARTA1 = : P LDK A1,1 = h " P ST A1,BUSY,A6 SET LEVEL BUSY = z P EJECT = 0 P**** ENTRY FOR THE INTERRUPT REQUEST HANDLER = 6 P* AND THE EXIT REQUEST HANDLER WHEN TH
0x471d40…471ed4 (1, 1241) Dummy {f00=0x0166, f01=0x0190, f02=»F(P) IDCN2 = PIDCN1 EQU * > P HLT ILLEGAL ORDER > & PIDCN2 EQU * > B P CWK A7,5 > V P RB(G) IDCN1 ILLEGAL ORDER > h P LDKL A1,/302F > : P ANS A1,ECBRC,A8 RESET NOT RELEVANT BITS IN RETURNCODE > P RF(Z) IDCN3 NO ERROR > P LDKL A1,/80
0x471ed4…472068 Dummy {f00=0x0166, f01=0x018e, f02=»POINTER IN ENTRY TABLE > x $ P ABI IDRY,A7 START SELECTED PART ? P* ? F PIDRY EQU *-2 ? P ( P DATA CONRDY ORDER=1, CONNECT READY ? d & P DATA RECRDY ORDER=2, INPUT READY ? & P DATA OUTRDY ORDER=3, OUTPUT READY ? * P DATA DISRDY ORDER=4, DISCONNECT REA
0x472068…4721fc Dummy {f00=0x0166, f01=0x0190, f02=» P* @ 2 P********************************************* @ P* @ D P* INPUT PARAMETERS: @ N P* A5 = STACK POINTER @ j $ P* A6 = PARAMETER TABLE ADDRESS @ P* A8 = ECB-ADDRESS @ P* @ P* CALLING SEQUENCE: @ P* ABL CON.RDY @
0x4721fc…472390 Dummy {f00=0x0166, f01=0x0190, f02=»A1,ECBRC,A8 GET CONDITION REGISTER @ $ P RF(NZ) CCONN6 CONNECTION FAILED A * P LDK A1,0 A R , P ST A1,DRIVST,A6 DRIVER STATUS CONNECTED A d P LD A1,PROTST,A6 A 4 P RF(NN) CCONN5 NO DISCONNECT REQUEST BY PROTOCOL A 6 P CF A5,L1STPQ STOP DRIVER WITH IMPL.
0x472390…472524 Dummy {f00=0x0166, f01=0x0190, f02=»A6 USER ECB ADDRESS A > P LD A2,ECBBA,A8 GET BLOCK ADDRESS B & P LDR* A1,A2 GET NUMBER OF BUFFERS B ^ PCCONN4 EQU * B P LD A7,2,A2 B 6 P CF A5,L1INPQ INPUT DRIVER WITH IMPL. ECB REQUEST B P ADK A2,2 B ( P SUK A1,1 DE
0x472524…4726b8 Dummy {f00=0x0166, f01=0x018e, f02=»A1,CNTA B ~ B P ST A1,CSV,A6 SET CSV TO CONNECTING C F P LDKL A1,/1020 SET IN.SABM/IN.SARM , IN.P C V > P ORS A1,PART1,A6 IN PARAMETER TABLE C " P ABL TRANST START TRANSMITTER C P
0x4726b8…47284c Dummy {f00=0x0166, f01=0x0190, f02=» P EJECT D P* D P* D , P* OUTPUT REQUEST READY INTERRUPT HANDLER D & P* D V 2 P********************************************* D ` P* D P* INPUT PARAMETERS: D P* A5 = STACK POINTER D $ P* A6 = PARAMETER TABLE ADDRESS D P* A8
0x47284c…4729e0 Dummy {f00=0x0166, f01=0x0190, f02=» LDK A1,0 D * P ST A1,OUTPEN,A6 RESET OUTPUT PENDING E ( P CF A5,PLECB STORE LINE ECB IN QUEUE E @ & P LD A1,DRIVST,A6 GET DRIVER STATUS E l P RF(P) OTSTP DRIVER STOPPED E & P RF(NN) OUTEX RESTART TRANSMITTER E 4 P* PROTOCOL HAS SET A REQUEST TO STOP
0x4729e0…472b74 (1, 1242) Dummy {f00=0x0166, f01=0x018e, f02=»ART1,A6 THE PROTOCOL REQUESTED A STOP AFTER E P* UA OR DM FRAME IS SENT F 4 6 P ANKL A1,/6000 CHECK IF THE FRAME IS ALREADY SENT F V , P RF(NZ) OUTEX UA OR DM FRME MUST BE SENT F 2 P LDK A1,NTRD ALREADY SENT, R.C. IS REMOTE DISC F $ P ST A1,LECBRC,A6 S
0x472b74…472d08 Dummy {f00=0x0166, f01=0x0190, f02=» F l P RF(NZ) OUTEX NOT READY G . P CF A5,L1DISQ DISC. DRIVER IMPL. ECB REQ. G ( POUTEX EQU * G Z P ABL TRANST FINISHED G n P* G P* G PDQEV EQU * G P LDR A7,A3 SAVE QUE ADDRESS G PDQEV1 EQU * G $ P LD A4,NF,A3 NUMBER OF ELEMENTS
0x472d08…472e9c Dummy {f00=0x0166, f01=0x0190, f02=»NT READY QURE G x " P LDR A3,A7 RELOAD QUE ADDRESS H P RB DQEV1 GET NEXT ELEMNT H < PDQEND EQU * H ^ P RTN A5 FINISHED H r , PDQOUT EQU * DEQUEUE ALL OUTPUT REQUESTS H ( P* AND STORE INT EVENT READY QUEUE H & P LD A3,Q1ACAD,A6 ACKNOWLEDGE QUEUE
0x472e9c…473030 Dummy {f00=0x0166, f01=0x018e, f02=»INPUT READY INTERRUPT HANDLER H P* I & 2 P********************************************* I 0 P* I f P* INPUT PARAMETERS: I p P* A5 = STACK POINTER I $ P* A6 = PARAMETER TABLE ADDRESS I P* A8 = ECB-ADDRESS I P* I P* CALLING SEQUEN
0x473030…4731c4 Dummy {f00=0x0166, f01=0x0190, f02=» I 6 P ADS A1,INP.CNT,A6 DECREMENT PENDING INPUT REQUEST J & P LD A1,DRIVST,A6 GET DRIVER STATUS J B " P RF(P) INP.STP STATUS STOPPED J l 0 P RF(N) INPST1 PROTOCOL REQUESTED A STOP LINE J ( P* WHEN OUT PUT IS READY (UA OR DM) J $ P LD A1,ECBRC,A8 GET RE
0x4731c4…473358 Dummy {f00=0x0166, f01=0x018e, f02=» J n P* K P CF A5,REC CALL RECEIVER K " P RB OUTEX START TRAN AND EXIT K 2 P* K X P* K b P* K l PINPER EQU * K v 4 P LD A3,ECBRL,A8 GET TIMER READY SIMULATION FLAG K * P RF(Z) INP100 INPUT SIMULATED BY TIMER K , P IM INPRY,A6 INCREMENT I
0x473358…4734ec Dummy {f00=0x0166, f01=0x0190, f02=» K r P EJECT L P* L 0 P*** SIMULATE INPUT REQUEST VIA TIMER REQUEST L P* L T & P IM INPCNT,A6 INCREASE INPUT COUNT L ^ * P CM ECBRL,A8 SET INPUT SIMULATION FLAG L 6 P*** ECBRL IS NOT ZERO WHEN NORMAL INPUT IS READY L 2 P LDR A1,A8 A1=PARAMETER
0x4734ec…473680 Dummy {f00=0x0166, f01=0x0190, f02=»= 1/10 SECONDS L | P ENB M P RF EXIT READY M " 0 P*** RESTART INPUT REQUEST AFTER TIMER READY M 8 P* M l PINP100 EQU * M v & P CF A5,L1INP LEVEL 1 INPUT REQUEST M P RF EXIT EXIT M P* M P EJECT M P* M $ PINPIRR EQU * IRRECOVERABLE E
0x473680…473814 (1, 1243) Dummy {f00=0x0166, f01=0x0190, f02=»A6 NUMBER OF OUTP REQ PEND. M ( P AD A1,INP.CNT,A6 AD INP REQ PENDING N $ 0 P RF(NZ) INPST1 NO DISCONNECT AT THIS MOMENT N P , P CF A5,L1DISQ DISC DRIVER IMPL ECB REQ. N PINPST1 EQU * N . P LDR A8,A2 RELOAD ORIGINAL LINE ECB ADDR. N ( P CF A5,PLECB S
0x473814…4739a8 Dummy {f00=0x0166, f01=0x0190, f02=»8 GET GET BUFFER ADDRESS N 2 P LD A3,Q1IRAD,A6 GET INPUT REQUEST QUE ADDRESS O $ P LD A1,NF,A3 REQUESTS PENDING ? O V P RF(Z) DQINEM QUE EMPTY O ~ P CF A5,GETBUF GET ELEMENT O ( P ST A4,ECBBA,A8 SAVE BUFFER ADDRESS O $ P LD A1,LECBRC,A6 GET RETURN
0x4739a8…473b3c Dummy {f00=0x0166, f01=0x0190, f02=» BUFFER O r ( P LDK A4,2 INCREMENT POINTER ADDRESS P P ADS A4,CONBUF,A6 P < P RTN A5 FINISHED P V P* P n P* P x P EJECT P P* P P* P ( P* DISCONNECT READY INTERRUPT HANDLER P P* P 2 P*********************************************
0x473b3c…473cd0 Dummy {f00=0x0166, f01=0x0190, f02=» P | P* Q P* CALLING SEQUENCE: Q P* ABL DIS.RDY Q . P* Q F PDIS.RDY EQU * Q P $ P CF A5,PLECB STORE LECB IN QUEUE Q f , P CF A5,DQOUT RETURN ALL OUTPUT REQUESTS Q ( P LD A1,PROTST,A6 GET PROTOCOL STATUS Q P RF(Z) EXIT EXIT Q & P RF(P)
0x473cd0…473e64 Dummy {f00=0x0166, f01=0x0190, f02=» RETURNCODE Q $ P ST A1,LECBRC,A6 SAVE IN PARTA1 R PDISRD2 EQU * R < . P LD A2,ECBBA,A8 GET ADDRESS OF USER BLOCK R R $ P LD A1,CONBUF,A6 EXTRACT POINTER R P LDR A4,A1 R P SU A4,INBUF,A6 R P SRL A4,1 R P STR A4,A2 R P RF(Z) DISRD0
0x473e64…473ff8 Dummy {f00=0x0166, f01=0x018e, f02=»SS R t " P STR A7,A2 SAVE IN USER BLOCK S P SUK A4,1 S 0 P RB(NZ) DISRD1 S B PDISRD0 EQU * S X $ P LD A1,LECBRC,A6 GET RETURN CODE S l " P CF A5,Q.ERDY QUE EVENT READY S P RF EXIT EXIT S PDISOP EQU * S $ P LD A8,CONECB,A6 GET CONNECT ECB S
0x473ff8…47418c Dummy {f00=0x0166, f01=0x0190, f02=» S & P* LEVEL 2 END I/O AND EXIT ROUTINE T P* T 2 2 P********************************************* T < P* T r P* INPUT PARAMETERS: T | P* A5 = STACK POINTER T $ P* A6 = PARAMETER TABLE ADDRESS T P* A8 = ECB-ADDRESS T P* T P* CA
0x47418c…474320 Dummy {f00=0x0166, f01=0x0190, f02=»RAD,A6 EVENT READY QUE T & P LD A4,NF,A3 NUMB OF FREE ELEMENTS U 0 P RF(Z) EX150 SET NOT BUSY BEFORE RETURN A.I. U H & P LD A4,DWTAD,A6 GET ADDRESS OF DWT U | > P*** TEST IF DWT IS JUST UPDATED BY THE MONITOR (TIO) U " P LD A1,DWTST,A4 U
0x474320…4744b4 (1, 1244) Dummy {f00=0x0167, f01=0x0190, f02=»CBPR,A1 GET ADDRESS SAVE AREA LIECB U P LDR* A2,A8 GET TTAB ADDRESS V , * P ST A2,DWTTAB,A4 SAVE IN DWTTAB OF DWT V P 2 P LD A2,2,A8 GET WAIT OR ACTIVATION INDICATION V ~ * P ST A2,DWTWAT,A4 SAVE IN DWTWAT OF DWT V " P LD A2,4,A8 GET PRIORITY FIELD V * P
0x4744b4…474648 Dummy {f00=0x0167, f01=0x0190, f02=»WTECB,A4 STORE ECB IN DWT V $ P LD A1,ECBRC,A8 GET RETURN CODE W " P LDR A2,A6 SAVE A6 W J P LDR A6,A4 A6=DWT-ADDRESS W d " P CF A15,TENDIO COMPLETE EVENT W P LDR A6,A2 RESTORE A6 W $ P LD A5,STB,A6 RELOAD STACK BASE W P RB EXIT TRY NEXT W
0x474648…4747dc Dummy {f00=0x0167, f01=0x0190, f02=»00 NO INTERRUPT REQUEST PENDING W ( P CF A5,GETBUF GET REQUEST FROM QUEUE X ( P ABL IDCONT ACTIVATE REQUEST X T PEX200 EQU * X x & P CM BUSY,A6 SET PROTOCOL NOT BUSY X & P ABL TDISP RETURN AFTER INTERRUPT X P* X P* X PQ.ERDY EQU * X P
0x4747dc…474970 Dummy {f00=0x0167, f01=0x0190, f02=»ECB ADDRESS X P* Y $ P ST A1,ECBRC,A8 SAVE RETURN CODE Y $ P LD A3,Q1ERAD,A6 EVENT READY QUE Y F P CF A5,PUTBUF SAVE IN QUE Y n P RTN A5 RETURN TO CALLER Y P EJECT Y P* Y P* Y P* TIMEOUT ROUTINE Y P* Y 2 P******************
0x474970…474b04 Dummy {f00=0x0167, f01=0x0190, f02=» Y p P* A8 = ECB-ADDRESS Z P* Z $ P* CALLING SEQUENCE: Z . P* ABL TIM.RDY Z J P* Z b PTIM.RDY EQU * Z l , P LD A1,TIMADR,A6 TIMER ALREADY STOPPED ? Z P RB(Z) EXIT YES Z " P LDR* A1,A1 NO REAL TIMEOUT ? Z P RB(N) EXIT YES Z P
0x474b04…474c98 Dummy {f00=0x0167, f01=0x018e, f02=»T PENDING Z p , P LD A1,CSV,A6 LOAD CSV FOR USE FURTHERON [ ( P LD A2,NRT,A6 GET NUMBER OF RETRIES [ B . P SUK A2,SYNRY COMPARE WITH ALLOWED MAXIMUM [ n $ P RF(N) TOTC1 MAXIMUM NOT REACHED [ P LDK A2,DISCNT [ * P ST A2,CSV,A6 CSV BECOMES DISCONNECTED [
0x474c98…474e2c Dummy {f00=0x0167, f01=0x018e, f02=» P RF TOTC13 READY P* SELECT ON CSV PTOTC1 EQU * 4 P CWK A1,DISCNT H P RF(NE) TOTC2 ^ P* CSV IS DISCONNECTED t P LDKL A2,-1 $ P ST A2,TST,A6 TIMER STATE := -1 P RF TOTC13 READY P* PTOTC2 EQU * " P CWK
0x474e2c…474fc0 Dummy {f00=0x0167, f01=0x0190, f02=» P RF(Z) TOTC10 TST = 0 ] P SUK A1,1 ] " P RF(Z) TOTC8 TST = 1 ] 4 P SUK A1,1 ] P P RF(Z) TOTC9 TST = 2 ] b P RF TOTC10 TST = 3 ] ~ P* ] P* ] PTOTC3 EQU * ] 4 P CWK A1,CNTRES CSV = CONNECTED, WAIT FOR RESET ? ] P RF(NE) TOTC4 NO
0x474fc0…475154 (1, 1245) Dummy {f00=0x0167, f01=0x0190, f02=»T,A6 INCREMENT # OF RETRIES ] P RF TOTC13 ^ $ P* ^ 6 PTOTC4 EQU * ^ @ 0 P*** TEST IF WAIT FOR RESPONSE ON RESET ^ Z P CWK A1,CNTRS1 ^ P RF(E) TOTC5A ^ P* ^ P* ALL OTHER CSV'S ^ P LDK A2,1 ^ P
0x475154…4752e8 Dummy {f00=0x0167, f01=0x0190, f02=» A1,CNT ^ & P RF(G) TOTC6 CSV IS DISCONNECTING _ PTOTC5A EQU * _ : 0 P LDKL A1,/1020 SET IN.SABM/IN.SARM AND IN.P _ V P RF TOTC7 _ P* _ PTOTC6 EQU * _ 0 P*** TEST IF WAIT FOR F-BIT BEFORE DISCONNECT _ P SUK A1,DISCF _ P RF(
0x4752e8…47547c Dummy {f00=0x0167, f01=0x0190, f02=» _ & P IM NRT,A6 INCREMENT # OF RETRIES ` P RF TOTC11 ` 2 P* ` D PTOTC8 EQU * ` N & P IM NRT,A6 INCREMENT # OF RETRIES ` b PTOTC9 EQU * ` & P LD A2,LNR,A6 GET LAST RECEIVED NR ` P ST A2,VS,A6 SET NEW V(S) ` * P CF A5,DACQSC DEQUEUE AC AND
0x47547c…475610 Dummy {f00=0x0167, f01=0x0190, f02=» PTOTC12 EQU * a P CF A5,STATIM START TIMER a PTOTC13 EQU * a : P ABL TRANST a N P EJECT a b P* a p P* a z P* RECEIVER a P* a 2 P********************************************* a P* a P* INPUT PARAMETERS: a P* A5 = STAC
0x475610…4757a4 Dummy {f00=0x0167, f01=0x0190, f02=»EC a P* b P* b > P* THE PROTOCOL RECEIVER MODULE WILL PERFORM ALL NECESSARY b : P* ACTIONS TO PROCESS THE CONTENTS OF A RECEIVED FRAME. b ` P* b ( P* THIS PART IS MAINLY TABLE DRIVEN. b P* b $ P* THE FOLLOWING TABLES ARE USED: b > P*
0x4757a4…475938 Dummy {f00=0x0167, f01=0x0190, f02=» ALL NON RELEVANT BITS ARE SET TO ZERO. b ( P* EXCEPT THE P-BIT. c 6 > P* THE TABLE KNOWS COMMANDS AND RESPONSES. c b P* c > P* ALTAB: THIS TABLE CONTAINS THE RELATION BETWEEN c < P* A FRAM
0x475938…475acc Dummy {f00=0x0167, f01=0x0190, f02=»THIS TABLE IS THE MAIN TABLE OF THE c ~ 0 P* PROTICOL RECEIVER MODULE. d , : P* DEPENDING ON THE STATE(CVS) AND THE d ` < P* GIVEN ENTRYPOINT(BY ALTAB) THIS TABLE d @ P* GIVES THE NEW STATE AND
0x475acc…475c60 Dummy {f00=0x0167, f01=0x0190, f02=»VERTS THE NUMBER AS GIVEN d p > P* BY PROTAB TO A LIST OF ACTIONS WHICH IS e " < P* GIVEN TO EXACT (THE ACTIONS EXECUTER) e d P* e P EJECT e P* e P* e P* TABLE DEFINITION OF VALTAB e P* e J PVALTLO F
0x475c60…475df4 (1, 1246) Dummy {f00=0x0167, f01=0x0190, f02=»LE e V B PIVAL EQU *-VALTAB IVAL POINTER IN VALTAB f D P DATA SVAL-IVAL-2 NUMBER OF TYPES ALLOWED f P @ P VALTLO NVT,I ONLY I-COMMAND VALID f @ P VALTLO NVT,IP
0x475df4…475f88 Dummy {f00=0x0167, f01=0x0190, f02=»MBER OF TYPES ALLOWED f f P IFT ABM=1 g F P VALTLO RR,RR RR-COMMANDS AND RESPONSES g > @ P VALTLO RRF,RRP WITH P OR F-BIT g F P VALTLO RNR,RNR RNR-COMMANDS AND RES
0x475f88…47611c Dummy {f00=0x0167, f01=0x0190, f02=»ND RESPONSES g Z @ P VALTLO REJF,REJP WITH P OR F-BIT h P XIF h X P IFT ABM=0 h l 2 P VALTLO RR,NVT RR-RESPONSE h 2 P VALTLO RRF,NVT WITH F-BIT h 4 P VALTLO
0x47611c…4762b0 Dummy {f00=0x0167, f01=0x018e, f02=»PONSE h f 2 P VALTLO REJF,NVT WITH F-BIT i P XIF i D B PUVAL EQU *-VALTAB UVAL POINTER IN VALTAB i X D P DATA ENUVAL-UVAL-2 NUMBER OR TYPES ALLOWED i P IFT ABM=1 i ( P VALTLO NVT,SABM
0x4762b0…476444 Dummy {f00=0x0167, f01=0x0190, f02=» i j $ P VALTLO NVT,SARMP WITH P-BIT SET j P XIF j 0 > P VALTLO NVT,DISC ONLY DISC-COMMANDS j < @ P VALTLO NVT,DISCP WITH P-BIT SET j ~ > P VALTLO UA,NVT ONLY UA-RESPONSES j @ P
0x476444…4765d8 Dummy {f00=0x0167, f01=0x0190, f02=» VALTLO DMF,NVT WITH F-BIT SET j D P VALTLO FRMR,NVT ONLY FRMR/CMDR-RESPONSES k > @ P VALTLO FRMRF,NVT WITH F-BIT SET k J PENUVAL EQU *-VALTAB END OF TABLE IN
0x4765d8…47676c Dummy {f00=0x0167, f01=0x0190, f02=» EQU /2 DISC k PF3 EQU /3 DM l PF4 EQU /4 DM + F-BIT l ( PF5 EQU /5 UA l D PF6 EQU /6 UA + F-BIT l X PF7 EQU /7 FRMR/CMDR l t PF8 EQU /8 FRMR/CMDR + F-BIT l PF9 EQU /9 S - RESPONSE l PFA EQU /A S - COMMAND l PFB EQU /B S + P-BIT l
0x47676c…476900 Dummy {f00=0x0167, f01=0x0190, f02=»E DEFINITION OF ALTAB l P* m ( PALTLO FORM 8,8 WORD LAY-OUT OF ALTAB m ( P* m T PALTAB EQU * START OF TABLE m ^ P* m " P ALTLO /0,/0 NOT ALLOWED ENTRY m P ALTLO F0,FD NVT / I m P ALTLO F0,FE NVT / IP m " P ALTLO /0,/0 NOT ALLOWED E
0x476900…476a94 (1, 1247) Dummy {f00=0x0167, f01=0x0190, f02=» ALTLO F9,FA S / S m P ALTLO FC,FB SF / SP n " P ALTLO /0,/0 NOT ALLOWED ENTRY n > * P ALTLO F0,F1 NVT / SABM (SARM) n d * P ALTLO F0,F1 NVT / SABMP (SARMP) n P ALTLO F0,F2 NVT / DISC n P ALTLO F0,F2 NVT / DISCP n P ALT
0x476a94…476c28 Dummy {f00=0x0167, f01=0x0190, f02=» FRMR / NVT (CMDR) n * P ALTLO F8,F0 FRMRF / NVT (CMDRF) o " P EJECT o P P* o ^ & P* TABLE WITH ADDRESSES FOR PROTAB o h ( P* THE VALUE OF CSV IS USED AS INDEX o P* o PCSVTAB EQU * o P DATA CSV:0 o P DATA CSV:1 o P IFT
0x476c28…476dbc Dummy {f00=0x0167, f01=0x0190, f02=»V:4 o P DATA CSV:5 p P DATA CSV:6 p P DATA CSV:7 p 4 P DATA CSV:8 p H P IFT ABM=0 p P DATA CSV:9 p n P DATA CSV:A p P DATA CSV:B p P DATA CSV:C p P XIF p P IFT ABM=1 p P DATA 0 p P DATA 0 p P DATA 0 p
0x476dbc…476f50 Dummy {f00=0x0167, f01=0x0190, f02=» POINTER IN p ` . P* ACTAB TO THE ACTIONLIST TO BE PERFORMED. q P* q F P* q P P* LIST OF FRAME TYPES q Z P* q x P* F0 = NVT q P* F1 = SABM/SARM q P* F2 = DISC q P* F3 = DM q P* F4 = DM + F-BIT q P* F5 = UA q P* F6 = UA
0x476f50…4770e4 Dummy {f00=0x0167, f01=0x0190, f02=» P-BIT q P* FC = S + F-BIT r P* FD = I r & P* FE = I + P-BIT r 6 P* FF = ***SPARE*** r N P* r h P EJECT r r P IFT ABM=0 r P* r PPROTAB EQU * r P* r 6 P* F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 FA FB FC FD FE FF r P* r > PCSV:0 DATA
0x4770e4…477278 Dummy {f00=0x0167, f01=0x0190, f02=»20,/2020,/2620,/4F20,/2620,/2020,/2020,/2020 r > PCSV:3 DATA /3044,/A530,/3030,/3030,/3030,/3030,/3030,/3030 s 4 > PCSV:4 DATA /4069,/9598,/9862,/6262,/624D,/4D4D,/4D4C,/4C40 s v > PCSV:5 DATA /5041,/9550,/5050,/5050,/5050,/5353,/5053,/5350 s > PCSV:6 DATA /60
0x477278…47740c Dummy {f00=0x0167, f01=0x018e, f02=»B480,/CF80,/CF80,/8080,/8080,/8080,/8080 s ~ > PCSV:9 DATA /9090,/9490,/0B90,/0B90,/9090,/9090,/9090,/9090 t 0 > PCSV:A DATA /A0A0,/A4A0,/0BA0,/0BA0,/A0A0,/A0A0,/A0A0,/A0A0 t r > PCSV:B DATA /B0B0,/B4B0,/0BB0,/0BB0,/B0B0,/B0B0,/B0B0,/B0B0 t > PCSV:C DATA /C0C0,/
0x47740c…4775a0 Dummy {f00=0x0167, f01=0x018e, f02=» 6 P* F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 FA FB FC FD FE FF u P* u > > PCSV:0 DATA /0046,/0619,/1900,/0000,/0000,/0000,/0000,/0000 u H > PCSV:1 DATA /1046,/0810,/0710,/4110,/1010,/1010,/1010,/1010 u > PCSV:2 DATA /0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000 u
0x4775a0…477734 (1, 1248) Dummy {f00=0x0168, f01=0x0190, f02=» > PCSV:5 DATA /5046,/0663,/6350,/5063,/6350,/5555,/5055,/5550 v > PCSV:6 DATA /6062,/0A60,/0760,/4160,/6360,/6060,/6060,/6060 v F > PCSV:7 DATA /7070,/0670,/7070,/7070,/707F,/7F7F,/8B7F,/7F70 v > PCSV:8 DATA /8080,/8680,/0780,/0780,/8080,/8080,/8080,/8080 v
0x477734…4778c8 Dummy {f00=0x0168, f01=0x0190, f02=»CSV:B DATA /0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000 v > PCSV:C DATA /0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000 w B P* w P XIF w P* w P EJECT w P* w P* TABLE DEFINITION OF ACTAB w P* w . PACTLO FORM 1,1,1,1,1,1,1,1,1,1
0x4778c8…477a5c Dummy {f00=0x0168, f01=0x0190, f02=»RESET TRANSMITTER VARIABLES w P* 2 = SET IN.FRMR (IN.CMDR) x $ P* 3 = SET IN.UA x H P* 4 = SET IN.DM x ` P* 5 = SET IN.SABM (IN.SARM) x x P* 6 = SET IN.DISC x P* 7 = SET IN.RNR x P* 8 = SET IN.P x P* 9 = SC := AC := 0 x P* A = RE
0x477a5c…477bf0 Dummy {f00=0x0168, f01=0x0190, f02=»* F = RECEIVER TIMER CONTROL x P* y $ P IFT ABM=0 y . P* y @ PACTAB EQU * START OF TABLE y J , P* FIELD 0 1 2 3 4 5 6 7 8 9 A B C D E F y l P* y . PACT0 ACTLO 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 y . PACT1 ACTLO 1,0,0,1,0,0,0,0,0,0,0,0,1,0,0,1 y .
0x477bf0…477d84 Dummy {f00=0x0168, f01=0x0190, f02=»,1,0,0,1 y n . PACT5 ACTLO 0,0,0,1,0,0,1,0,1,0,0,0,1,0,0,1 z . PACT6 ACTLO 0,0,0,0,0,1,0,0,1,0,0,0,1,0,0,1 z B . PACT7 ACTLO 0,0,0,1,0,1,0,0,1,0,0,0,1,0,0,1 z t . PACT8 ACTLO 0,0,0,0,0,0,1,0,1,0,0,0,1,0,0,1 z . PACT9 ACTLO 1,1,0,1,0,1,0,0,1,1,0,0,1,0,0,1 z .
0x477d84…477f18 Dummy {f00=0x0168, f01=0x0190, f02=»,1,1,0,1 z n . PACTD ACTLO 0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1 { . PACTE ACTLO 0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1 { B . PACTF ACTLO 0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1 { t P* { P XIF { P* { P IFT ABM=1 { P* { P* { PACTAB EQU * START OF TABLE {
0x477f18…4780ac Dummy {f00=0x0168, f01=0x0190, f02=»,0,0,0,1,0,0,1,0,0,1 { z . PACT2 ACTLO 1,1,0,1,0,0,0,0,0,1,0,0,1,0,0,1 | . PACT3 ACTLO 1,1,0,0,0,1,0,0,1,1,0,0,1,0,0,1 | N . PACT4 ACTLO 1,1,1,0,0,0,0,0,0,1,0,0,1,0,0,1 | . PACT5 ACTLO 0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,1 | . PACT6 ACTLO 0,0,0,1,0,0,0,0,0,0,0,0,1
0x4780ac…478240 Dummy {f00=0x0168, f01=0x0190, f02=»,0,0,1,0,0,0,1,0,0,1 | z . PACTA ACTLO 0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,1 } . PACTB ACTLO 0,0,0,0,0,0,1,0,1,0,0,1,1,0,0,1 } N . PACTC ACTLO 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 } . PACTD ACTLO 0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1 } . PACTE ACTLO 0,0,0,0,0,0,0,0,0,0,0,1,1
0x478240…4783d4 (1, 1249) Dummy {f00=0x0168, f01=0x0190, f02=»ART FOR CHECKING THE ADDRESS } @ P* THIS PART WILL PERFORM THE CHECK BASED ON THE LAPB ~ $ $ P* SPECIFICATION OF CCITT ~ h P* ~ PREC EQU * ~ P CM NEWNR,A6 ~ ( P CF A5,PLECB STORE LINE ECB IN QUEUE ~ P IFT LOG=1 ~ P LDKL A4,/
0x4783d4…478568 Dummy {f00=0x0168, f01=0x0190, f02=» P LD A1,ECBEL,A8 SAVE LENGTH , P ST A7,BUFAD,A6 SAVE INPUTBUFFERADDRESS ( P ST A1,BUFLEN,A6 SAVE LENGTH X P LD A1,RECCT,A7 | 0 P ST A1,RECCF,A6 SAVE RECEIVED CONTROL FIELD P LC A1,RECAD,A7 GET ADDRESS H P CC A1,RCMDAD,
0x478568…4786fc Dummy {f00=0x0168, f01=0x0190, f02=» A1,RRSPAD,A6 MAY BE A RESPONSE 0 P RF(E) RSP SURE 2 P IFT STAT=1 f P LDK A1,R.INV z * P CF A5,COUNT COUNT # OF INVALID FRAMES P XIF PREC2 EQU * & P LD A7,BUFAD,A6 GET BUFFERADDRESS ( P C
0x4786fc…478890 Dummy {f00=0x0168, f01=0x0190, f02=» SET REC.CMD INDICATOR x F P RF DETFT GOTO : DETERMINE FRAME TYPE . PRSP EQU * x D P SUR A1,A1 RESET REC.CMD INDICATOR P* 4 P* NOW THE ADDRESS VALIDITY CHE
0x478890…478a24 Dummy {f00=0x0168, f01=0x0190, f02=»D b 6 P* A1=0 IF RESPONSE RECEIVED J P* IF THE ADRRESS IS NOT RECOGNIZED THE BUFFER WILL BE RETURNED TO D D P* THE RECEIVE BUFFER QUEUE WITHOUT ANY FURTHER PROCESSING F P* A DISTINCTION MUST BE MADE BETWEEN THE F
0x478a24…478bb8 Dummy {f00=0x0168, f01=0x018e, f02=»A CHECK R P* OF THE VALIDITY. P* 2 PDETFT EQU * < B P ST A1,REC.CMD,A6 SAVE CMD/RSP INDICATOR X P IFT LOOP=1 P LDK A1,1 P SUS A1,REC.CMD,A6 P LD A1,REC.CMD,A6 P XIF 0 P LD
0x478bb8…478d4c Dummy {f00=0x0168, f01=0x0190, f02=» l @ P LDK A2,/1 GET MASK FOR I-FRAME > P ANR A2,A3 MASK CONTROL FIELD L H P RF(NZ) CHKSU IF NOT ZERO THEN NOT I-FRAME F P ANK A3,ITYP SCRAT
0x478d4c…478ee0 Dummy {f00=0x0168, f01=0x0190, f02=» CHECK VALIDITY OF I-FRAME r P EJECT * P* 8 B PCHKSU EQU * CHECK IF S OR U-FRAME B < P LDK A2,/2 MASK FOR S-FRAME > P ANR A2,A3 MASK CONTROL FIELD D
0x478ee0…479074 (1, 1250) Dummy {f00=0x0168, f01=0x0190, f02=»OK . P IM IIF,A6 SET ILLEGAL I-FIELD INDICATION PSLENOK EQU * < F P ANK A3,STYP SCRATCH BITS NOT RELEVANT X J P LDK A2,SVAL GET POINTER IN VALIDITY TABLE D P RF CHKVAL
0x479074…479208 Dummy {f00=0x0168, f01=0x0190, f02=»RECEIVED LENGTH U-FRAME P RF(E) ULENOK OK & P CWK A4,5 MAY BE IT IS A CMDR/FRMR 8 " P RF(NE) IULEN ILLEGAL I-FIELD b P LDR A2,A3 CHECK FRAME TYPE P ANK A2,/EF REMOVE P/F-BIT P CWK A2,FRMR . " P RF(E) ULENOK IT IS CMDR/FRMR
0x479208…47939c Dummy {f00=0x0168, f01=0x0190, f02=» SCRATCH BITS NOT RELEVANT l J P LDK A2,UVAL GET POINTER IN VALIDITY TABLE & P* AND GO TO CHKVAL t P EJECT P* F P* THIS PART OF THE FRAME TYPE DETERMINATION IS COMMON USED FOR * P* 0 .U AND S-FRAME
0x47939c…479530 Dummy {f00=0x0168, f01=0x0190, f02=» EXPECTED PARAMETERS : A2 = POINTER TO APPLICABLE PART OF TABLE H P* A3 = CONTROL FIELD WITH NON-RELEVANT H > P* BITS SCRATCHED TO ZERO P* F P* NOTE: NON-RELEVANT BITS ARE THE
0x479530…4796c4 Dummy {f00=0x0168, f01=0x0190, f02=»* ~ B P LD A4,VALTAB,A2 GET TABLE PART LENGHT H P ADR A2,A1 POINT TO COMMAND OR RESPONSE P PCHKV1 EQU * > P ADK A2,2 POINT TO NEXT WORD D P CC
0x4796c4…479858 Dummy {f00=0x0168, f01=0x0190, f02=» SUK A4,2 NOT YET FOUND 6 P RB(P) CHKV1 TRY AGAIN 6 H P SUR A2,A2 WILL NEVER BE FOUND = NVT ! p * P CM IIF,A6 THIS FIELD CAN NOW BE RESET PFOUND EQU * P L
0x479858…4799ec Dummy {f00=0x0168, f01=0x0190, f02=» A2,IDFT,A6 SAVE FT IDENTIFIER P IFT STAT=1 2 P LDK A1,R.INV F P LDR A4,A2 P RF(Z) UPDCNT n $ P* UPDATE STATISTICS FOR U-FRAMES P SUK A4,UVAL P RF(N) UPDEND NO U-FRAME 0 P LDK A1,R.SABM PRESET INDEX FOR COUNTER-
0x4799ec…479b80 Dummy {f00=0x0168, f01=0x0190, f02=»RAME RECEIVED | P LDK A1,R.UA P SUK A4,4 * $ P RF(N) UPDCNT UA-FRAME RECEIVED < P LDK A1,R.DM d P SUK A4,4 x $ P RF(N) UPDCNT DM-FRAME RECEIVED , P LDK A1,R.FRMR CMDR/FRMR-FRAME RECEIVED PUPDCNT EQU * P CF A5,COUNT UPDAT
0x479b80…479d14 (1, 1251) Dummy {f00=0x0168, f01=0x0190, f02=»ING TABLE ENTRY Z P EJECT P* & 4 P* PROCAL WILL PERFORM THE FOLLOWING ACTIONS: 0 H P* - THE POINTER IN A1 WILL BE UPDATED TO LET IT CORRESPOND TO h $ P* THE ACTUAL CSV F P* - WITH THE AID OF THAT POINTER THE
0x479d14…479ea8 Dummy {f00=0x0168, f01=0x0190, f02=» LD A2,CSV,A6 GET STATION CONNECTION STATE P*** TEST IF NVT 2 P LDR A1,A1 J P RF(NZ) PROCA8 NO! : P*** PREPARE NEW STATUS AND POINTER TO ACTION TABLE IF v ( P*** STATUS IS CONNECTED OR RESETTING P*** P*** TEST IF COMMAND P
0x479ea8…47a03c Dummy {f00=0x0168, f01=0x0190, f02=» P CWK A2,CNTRES P RF(NE) PROCA8 NO! PPROCA4 EQU * 4 P LDK A2,CNTRES NEW STATUS H P SLL A2,4 j P IFT ABM=0 | * P ADK A2,3 ADD POINTER TO ACTION TABLE P XIF P IFT ABM=1 B P A
0x47a03c…47a1d0 Dummy {f00=0x0168, f01=0x018e, f02=»QU * P CWK A2,CNT P RF(NE) PROCA8 NO! P LDK A2,CNTRS1 NEW STATUS : P SLL A2,4 P IFT ABM=0 n * P ADK A2,2 ADD POINTER TO ACTION TABLE P XIF P IFT ABM=1 B P ADK A2,3
0x47a1d0…47a364 Dummy {f00=0x0168, f01=0x0190, f02=» p 0 P LD A2,CSVTAB,A2 GET ADDRESS CORRECT PROTAB & P ADR A1,A2 AD FRAME TYPE INDICATOR < P LCR A2,A1 NOW A1 CONTAINS: f < P* - NEW STATUS H P* - POINTER TO ACTION
0x47a364…47a4f8 Dummy {f00=0x0168, f01=0x0190, f02=»ALUE CSV SHOULD GET NOW. v P* PACTDEF EQU * * D P LDR A3,A2 SAVE RECEIVED PARAMETER F 8 P ANK A2,/F0 EXTRACT CSV & P SRL A2,4 PUT ON CORRECT POSITION B P ST A2
0x47a4f8…47a68c Dummy {f00=0x0168, f01=0x0190, f02=»MAKE INDEX < P LD A2,ACTAB,A3 GET ACTION LIST P ABL(Z) REC2 NO PROCESSING R P EJECT t D P* EXACT WILL EXECUTE THE ACTIONS AS GIVEN IN THE ACTION LIST " P* AS RECEIVED FROM ACTDEF. J P* THE INPUT PARAMETE
0x47a68c…47a820 Dummy {f00=0x0168, f01=0x0190, f02=»TABLE ACTAB. r P* > PEXACT EQU * START OF EXECUTION 2 P SUR A1,A1 CLEAR ` P LDR A3,A2 PEXACT1 EQU * & P ST A1,SAV1,A6 SAVE FIRST REGISTER & P ST A2,SAV2,A6 SAVESECOND REGISTER
0x47a820…47a9b4 (1, 1252) Dummy {f00=0x0169, f01=0x0190, f02=»TAD ACTION X D PEXACR1 EQU * EXACT RETURN POINT AFTER ( P LD A1,SAV1,A6 RELOAD FIRST REGISTER Z ( P LD A3,SAV3,A6 RELOAD THIRD REGISTER * P LD A2,SAV2,A6 RELOAD SECOND REGISTER PEXACR2 EQU * D P
0x47a9b4…47ab48 Dummy {f00=0x0169, f01=0x0190, f02=» GET NEXT BIT z P RB EXACT1 & H P* EXTAB IS THE TABLE THAT CONTAINS ALL ADDRESSES OF THE SEVERAL F * P* ROUTINES THAT EXECUTE AN ACTION P* PEXTAB EQU * D P DATA RCON
0x47ab48…47acdc Dummy {f00=0x0169, f01=0x0190, f02=» SET IN.FRMR/IN.CMDR v 6 P DATA SIUA SET IN.UA * 6 P DATA SIDM SET IN.DM d @ P DATA SISABM SET IN.SABM/IN.SARM 8 P DATA SIDISC
0x47acdc…47ae70 Dummy {f00=0x0169, f01=0x0190, f02=» DATA SCAC0 SC = AC := 0 * P DATA RDISCR REMOTE DISCONNECT REQUEST P DATA PNR PROCESS N(R) N 8 P DATA PPF PROCESS P/F l : P DATA PIF PROCESS I-FRAME : P DATA PSF
0x47ae70…47b004 Dummy {f00=0x0169, f01=0x0190, f02=»WILL RESET ALL RECEIVE VARIABLES x P* ( 2 PRCON EQU * ENTRY 2 " P CF A5,RESREC RESET VARIABLES h P LDK A1,NTRRST 2 P ST A1,RRSETI,A6 SET RECEIVER RESET INDICATION P RB EXACR1 > P* THIS PROGRAM PART WILL
0x47b004…47b198 Dummy {f00=0x0169, f01=0x018e, f02=» RESET TRANSMIT VARIABLES n P RB EXACR1 RETURN TO CALLER & B P* THIS PROGRAM PART WILL SET ONE OR MORE OF THE FOLLOWING J 8 P* VARIABLES : IN.FRMR/IN.CMDR , IN.UA , IN.DM , 8 P* IN.SABM/IN.SARM , IN.DISC , IN.RNR P
0x47b198…47b32c Dummy {f00=0x0169, f01=0x0190, f02=» . P SUK A1,2 REQUEST A DRIVER STOP(STATUS=-2) ( P ST A1,DRIVST,A6 AFTER OUTPUT READY 6 P LD A1,LECBRC,A6 b * P RF(NZ) SICONT RETURNCODE ALREADY SET z $ P LDK A1,NTRD PRESET RETURN CODE & P ST A1,LECBRC,A6 REMOTE DISCONNECT 2 PSIFRMR EQU * I
0x47b32c…47b4c0 Dummy {f00=0x0169, f01=0x0190, f02=»RNR EQU * IF IN.RNR PSICONT EQU * 8 D P SLL A3,2 PUT ON CORRECT POSITION. L P LDR A2,A3 SAVE ACTION LIST B P ANKL A3,/FC00 MASK NON RELEVANT BITS B P O
0x47b4c0…47b654 (1, 1253) Dummy {f00=0x0169, f01=0x0190, f02=»E ACTIONS ARE FINISHED NOW P RB EXACR2 RETURN TO CALLER " $ P* WITHOUT RELOAD OF REGISTERS F P EJECT n > P* THIS PROGRAM PART WILL SET THE BOOLEAN VARIABLE IN.P | P* PSIP EQU * @ P LDK A3,/20
0x47b654…47b7e8 Dummy {f00=0x0169, f01=0x0190, f02=»ISCR EQU * P LD A7,LECBRC,A6 * P RF(NZ) RDISC1 RETURNCODE ALREADY SET * $ P LDK A7,NTRD PRESET RETURN CODE X & P ST A7,LECBRC,A6 REMOTE DISCONNECT PRDISC1 EQU * " P LD A7,BUFAD,A6 BUFFERADDRESS . P CF A5,L1INPQ INPUT REQUEST IMPL ECB
0x47b7e8…47b97c Dummy {f00=0x0169, f01=0x0190, f02=»SC DUE TO A RESET. n P* PSCAC0 EQU * $ 4 P LDK A1,NTTRST PRESET RETURN CODE: TRANSM. RESET 8 P LD A4,AC,A6 p P RF(Z) SCAC2 QUEUE EMPTY P CM AC,A6 PSCAC1 EQU * * P LD A3,Q1ACAD,A6 GET ACK QUEUE ADDRESS ( P CF A5,GETBUF GE
0x47b97c…47bb10 Dummy {f00=0x0169, f01=0x0190, f02=» P* PSCAC2 EQU * P LD A4,SC,A6 " P RF(Z) SCAC4 QUEUE EMPTY 6 P CM SC,A6 V PSCAC3 EQU * h , P LD A3,Q1SCAD,A6 GET SEND QUEUE ADDRESS | ( P CF A5,GETBUF GET ELEMENT FROM QUEUE . P CF A5,Q.ERDY MOVE IT TO EVENT READY QUEUE
0x47bb10…47bca4 Dummy {f00=0x0169, f01=0x0190, f02=» PROGRAM PART WILL PERFORM THE P/F PROCESSING. P* 6 PPPF EQU * @ & P LD A4,RECCF,A6 GET CONTROL FIELD * P ANK A4,/10 SCRATCH NON RELEVANT BITS : P RF(Z) PPFEX NO P/F BIT SET P* B P LD
0x47bca4…47be38 Dummy {f00=0x0169, f01=0x0190, f02=» THEN SET IN.F P RF PPF1 > P* N PSIF EQU * X @ P LDKL A1,/100 PREPARE SETTING IN.F t 4 P ORS A1,PART1,A6 SET IN.F < P RF PPFEX
0x47be38…47bfcc Dummy {f00=0x0169, f01=0x0190, f02=»ON RETURNPOINT d 2 P LD A2,SAV2,A6 GET RECEIVED ACTIVITY PARAMETER & P SLL A2,1 I FRAME TO BE PROCESSED? L @ P ABL(N) EXACR1 YES,L1 INPUT WILL BE STARTED BY I PROCESSING v " P ABL PIFAC6 NO, CALL L1 AGAIN P EJECT < P* THIS PROGRAM PART WI
0x47bfcc…47c160 Dummy {f00=0x0169, f01=0x0190, f02=» CORRECT POSITION ~ P ANK A7,/7 N(R) OUT OF IT 8 P LDR A4,A7 SAVE RECEIVED N(R) TO STORE LATER IN LNR < H P SU A7,LNR,A6 SUBTRACT LAST RECEIVED N(R) x F P ANK A7,/7 MODULO 8 (NOW IT'S "STEP")
0x47c160…47c2f4 (1, 1254) Dummy {f00=0x0169, f01=0x0190, f02=»T TRANSM. FRAM V H P SU A3,LNR,A6 SUBTRACT LAST REC. CONFIRM. 4 P ANK A3,/7 MODULO 8 b > P CWR A7,A3 COMPARE WITH STEP D P RF(G) NRERR TOO
0x47c2f4…47c488 Dummy {f00=0x0169, f01=0x0190, f02=» STEP BIGGER THEN WAIT FOR ACK ? p P RF(G) PNR2 0 P EJECT N P* P* f P* p PDEQAC EQU * z P* P* > P* THIS PART PERFORMS THE DEQUE OF THE ACKNOWLEDGE QUE : P* THE NUMBER TO BE DEQUEUED IS E
0x47c488…47c61c Dummy {f00=0x0169, f01=0x018e, f02=»* P* PDQACER EQU * ( P LD A3,Q1ACAD,A6 GET ACK QUE ADDRESS ( P LD A4,NF,A3 T P RF(Z) DQACEN QUEUE EMPTY h ( P CF A5,GETBUF ELEMENT TO BE DEQUEUED P LD A1,ECBRL,A8 P ST A1,ECBEL,A8 P LDK A1,0 SET RETURN CODE * P
0x47c61c…47c7b0 Dummy {f00=0x0169, f01=0x0190, f02=» t P RB(NZ) DQACER YES,DO NEXT PDQACEN EQU * * P RTN A5 READY > P EJECT T PPNR2 EQU * b P* ~ P* @ P* THIS PART PERFORMS THE DEQUE OF AC AND IF MORE FRAMES : P* ARE ACKNOWLEDGED ALSO FROM SC, BOTH TO BE PU
0x47c7b0…47c944 Dummy {f00=0x0169, f01=0x018e, f02=» ST A4,VS,A6 UPDATE SEND STATE VARIABLE P CF A5,DQACER AC=AC-STEP 0 P LDR A7,A7 STEP COMPLETED? P P RF(Z) PNREX YES r < PPNR5 EQU * THE OTHER PART OF STEP MUST BE TAKEN FROM SC P LD A3,Q1SCAD,A6 SC QUEUE P LD A4,NF,A3 P RF(Z) P
0x47c944…47cad8 Dummy {f00=0x0169, f01=0x0190, f02=» P ADS A4,SC,A6 DECREMENT SC P SUK A7,1 STEP READY? * * P RB(NZ) PNR5 NO, DEQUEUE NEXT FROM SC H P CF A5,DACQSC SC=SC+AC v P RF PNREX READY P EJECT P* P* : P* THIS PART PERFORMS THE DEQUE OF AC AND THE REQUE
0x47cad8…47cc6c Dummy {f00=0x0169, f01=0x0190, f02=»CQSC EQU * P LD A3,Q1SCAD,A6 0 P LD A2,NF,A3 PRESET NR OF EL. SC-QUEUE IN A2 * PDAC100 EQU * ^ ( P LD A3,Q1ACAD,A6 GET ACK QUE ADDRESS r * P LD A4,NF,A3 GET NUMB PENDING ELEMENTS P RF(Z) DACEND FINISHED P CF A5,GETBUF GET ELEMENT
0x47cc6c…47ce00 Dummy {f00=0x0169, f01=0x0190, f02=» COUNT # OF RETRIES P XIF P RB DAC100 TRY AGAIN ( P* D * P* RESTORE NOW ALL ORIGINAL SC ELEMENTS N , P* BEHIND THE AC ELEMENTS IN THE SC-QUEUE | * P* TO GET CORRECT ORDER OF TRANSMISSION P* PDACEND EQU * 0 P SUK A2,2 ANY OR
0x47ce00…47cf94 (1, 1255) Dummy {f00=0x0169, f01=0x0190, f02=»A5,PUTBUF STRE EL. IN SC-QUEUE P RB DACEND GET NEXT & PDAC200 EQU * B P LD A2,AC,A6 GET VALUE OF AC V $ P ADS A2,SC,A6 AD AND STORE IN SC z P CM AC,A6 RESET AC P RTN A5 RETURN TO CALLER P EJECT P* P* P* P
0x47cf94…47d128 Dummy {f00=0x0169, f01=0x0190, f02=»ROL FIELD x , P SC A2,FRSAV1,A6 SAVE TO BE TRANSMITTED * P LD A2,VS,A6 GET ACTUAL VALUE OF V(S) B & P SLL A2,1 PUT ON CORRECT POSITION p * P LD A3,VR,A6 GET ACTUAL VALUE OF V(R) P SLL A3,5 SHIFT IN POSITIO P ORR A2,A3 INCLUDE IN A2 4
0x47d128…47d2bc Dummy {f00=0x0169, f01=0x0190, f02=»A2,FRSAV2,A6 SAVE TO TRANSFER ( P LDK A2,/08 SET ERROR CODE IN FRAME & & P SC A2,FRSAV3,A6 SAVE FOR TRANSFER R , P CF A5,RESTR RESET TRANSMITTER VARIABLES | P IFT ABM=1 @ P CF A5,RESREC RESET RECEIVER VARIABLES
0x47d2bc…47d450 Dummy {f00=0x0169, f01=0x0190, f02=»/IN.CMDR t $ POLDNR CM NEWNR,A6 SET NEWNR OFF H PPNREX EQU * NO FURTHER ACTIONS NECESSARY 8 < P ABL EXACR1 RETURN TO CALLER P EJECT P* P* P* D P* THIS PART OF THE P
0x47d450…47d5e4 Dummy {f00=0x0169, f01=0x0190, f02=» PROGRAM ` P IFT STAT=1 P LDK A1,R.I $ ( P CF A5,COUNT COUNT RECEIVED I-FRAME 8 P XIF d 4 P*** TEST IF FRMR/CMDR HAS TO BE TRANSMITTED p " P LD A1,PART1,A6 : P RF(N) PIFAC6 YES! IGNORE I-FRAME
0x47d5e4…47d778 Dummy {f00=0x0169, f01=0x0190, f02=»SET VR IN A4 " P LD A1,SINS,A6 GET SINK STATE P SUK A1,1 : P CM SINS,A6 RESET SINS L P RF(Z) PIFAC2 SINS=1 j P* SINS = 0 OR 2 " P* IN CASE VR .NE. NS OR NS - 1 P* SINS IS SET TO 2 P CWR A3,A4 VR EQUAL NS? P RF(NE) PI
0x47d778…47d90c Dummy {f00=0x0169, f01=0x0190, f02=» IN.ACK BIT SET x . P ORS A1,PART1,A6 DO & P IM VR,A6 INCREASE VR X P LDK A1,7 v $ P ANS A1,VR,A6 UPDATE VR MODULO 8 P CF A5,GETBUF P LD A7,BUFAD,A6 . P ST A7,ECBBA,A8 STORE BUFFERADDRESS IN ECB
0x47d90c…47daa0 Dummy {f00=0x0169, f01=0x018e, f02=»TI,A6 CLEAR POSSIBLE SET INDICATION " P CF A5,Q.ERDY QUE EVENT READY , P IFT TRACE=1 R P CF A5,LOGTRC f P XIF | < P RF PIFEX RETURN TO CALLER P* PPIFAC1 EQU * P LDK A1,/40 SET ACK P RF PI
0x47daa0…47dc34 (1, 1256) Dummy {f00=0x016a, f01=0x018e, f02=» P* PPIFAC3 EQU * P LDR A1,A1 " P RF(P) PIFAC4 SINS WAS 2 4 P SUK A4,1 T P ANK A4,7 MAKE VR - 1 f ( P CWR A3,A4 SINS=0, TEST VR EQUAL NS? P RB(E) PIFAC1 YES P* P* PPIFAC4 EQU * P LDK A3,2
0x47dc34…47ddc8 Dummy {f00=0x016a, f01=0x0190, f02=» : P LDKL A1,/0200 IN.REJ BIT SET PPIFAC7 EQU * B . P ORS A1,PART1,A6 DO V PPIFAC6 EQU * P LD A7,BUFAD,A6 ( P CF A5,L1INPQ INPUT DRIVER IMPL ECB 8 PPIFEX EQU *
0x47ddc8…47df5c Dummy {f00=0x016a, f01=0x0190, f02=»E R P* CHARACTERISTICS. P* ( PPSF EQU * 2 F P LD A1,IDFT,A6 GET FRAME TYPE IDENTIFIER N 0 P CM REMFR,A6 PRE-RESET REMOTE FREE INDICATOR P SUK A1,SVAL+2 P SRL A1,1 MAKE INDEX P IFT STAT=
0x47df5c…47e0f0 Dummy {f00=0x016a, f01=0x0190, f02=»BI PSFTAB,A1 EXECUTE NECESSARY ACTIONS P* @ P* J P* T PPSFTAB EQU * ^ > P DATA PSF1 RR FRAME RECEIVED z > P DATA PSF2 RNR FRAME RECEIVED > P D
0x47e0f0…47e284 Dummy {f00=0x016a, f01=0x018e, f02=» p < P RF PSFEX RETURN TO CALLER P* H PPSF3 EQU * R $ P IM REMFR,A6 SET REMOTE IS FREE n PPSF2 EQU * B P LD A1,LNR,A6 GET LAST RECEIVED N(R) : P ST
0x47e284…47e418 Dummy {f00=0x016a, f01=0x0190, f02=» P* P* * P* THIS PART WILL TAKE CARE FOR THE 2 P* PROCESSING OF THE RECEIVER TIMER CONTROL J P* P* PPRTC EQU * . P LD A1,CSV,A6 GET ACTUAL CONNECTION STATE $ P RF(Z) RTI1 CSV IS DISCONNECTED P CWK A1,
0x47e418…47e5ac Dummy {f00=0x016a, f01=0x0190, f02=»THER CSV'S z P* PRTI1 EQU * P LDKL A1,-1 . P ST A1,TST,A6 SET TST B & P CM* TIMADR,A6 STOP RUNNING TUMER ` P CM TIMADR,A6 . P RF RTIMEX RETURN TO CALLER P* PRTI2 EQU * " P LD A1,TST,A6 GET TIMER STATE P
0x47e5ac…47e740 Dummy {f00=0x016a, f01=0x0190, f02=» P RF RTF1 TST=4 P* PRTI3 EQU * $ 2 P LD A1,OUTSTP,A6 GET OUTSTTANDING P INDICATOR 6 $ P RF(NZ) RTIMEX RETURN TO CALLER l P* PRTF1 EQU * P LDK A1,0 SET TST TO 0 P RF RTIMSV SAVE TST P* PRTF2 EQU * . P L
0x47e740…47e8d4 (1, 1257) Dummy {f00=0x016a, f01=0x0190, f02=» RF RTIMSV SAVE TST PRTF3 EQU * 4 P LD A1,OUTST.P,A6 CHECK OUTSTANDING P INDICATOR . $ P RF(NZ) RTIMEX RETURN TO CALLER f 4 P ST A1,NRT,A6 ZERO TO NUMBER OF RETRANSMISSIONS . P LD A1,REM.FR,A6 GET REMOTE FREE INDICATOR P RB(Z) RTF2A
0x47e8d4…47ea68 Dummy {f00=0x016a, f01=0x018e, f02=»D A1,REM.FR,A6 GET REMOTE FREE INDICATOR P RB(Z) RTF2A 0 : P LD A1,AC,A6 GET NUMBER OF BUFFERS TO BE ACKNOWLEDGED D P RB(Z) RTF1 2 P LD A1,NEWNR,A6 CHECK IF NEW N(R) IS RECEIVED " P RF(Z) RTIMEX RETURN TO CALLER PRTSET2 EQU * " P L
0x47ea68…47ebfc Dummy {f00=0x016a, f01=0x0190, f02=» PRTIMEX EQU * 0 P LD A2,CSV,A6 GET STATUS FOR USE FURTHER ON ( P LD A1,PROTST,A6 GET PROTOCOL STATUS L P RF(NP) PRTCEX EXIT x P* " PCONREQ EQU * CONNECT REQUESTED , P SUK A2,CNT HAS STATUS BECOME CONNECTED? P RF(NZ) PRTCEX NO
0x47ebfc…47ed90 Dummy {f00=0x016a, f01=0x0190, f02=»B,A6 GET CONNECT ECB P CM* ECBBA,A8 $ P LDK A1,NTAC RETURNCODE ACCEPTED 2 " P CF A5,Q.ERDY QUE EVENT READY Z PPRTCEX EQU * P RTN A5 RETURN TO CALLER P EJECT P* P* P* TRANSMITTER P* 2 P******************
0x47ed90…47ef24 Dummy {f00=0x016a, f01=0x0190, f02=» p P* A8 = ECB-ADDRESS P* $ P* CALLING SEQUENCE: . P* CF A5,TRAN J P* b P EJECT l P* F P* THE TRANSMITTER PART OF THE HDLC WILL PERFORM THE ACTIVITIES B P* THAT ARE NECESSARY TO TRANSMIT A FRAME TO TH
0x47ef24…47f0b8 Dummy {f00=0x016a, f01=0x0190, f02=»E NECESSITY TO TRANSMIT A FRAME IS REGISTRED IN WORD 1 OF THE P* PARAMETER TABLE F P* d * P* THIS WORD IS INDICATED AS "PART1 n P* PTRAN EQU * . P LD A1,OUTPEN,A6 OUTPUT PENDING INDICATOR P* P RF(Z) TRA
0x47f0b8…47f24c Dummy {f00=0x016a, f01=0x0190, f02=» ADK A1,1 2 P RB(Z) TRANEX STATUS =-1, DRIVER DISCONNECTED P LDK A1,/80 H " P ORS A1,PART1,A6 PRESET INTRI . P LD A1,Q1ACAD,A6 ACKNOWLEDGE QUEUE FULL ? P LD A1,NN,A1 . $ P RF(Z) TRAN10 YES, RESET IN TRI P LD A1,SC,A6 ( P R
0x47f24c…47f3e0 Dummy {f00=0x016a, f01=0x0190, f02=» SUK A1,CNT $ P RF(Z) TRAN20 I-FRAME TO BE SENT PTRAN10 EQU * < P LDKL A1,/FF7F P " P ANS A1,PART1,A6 RESET IN.TRI f PTRAN20 EQU * . P LDK A2,0 PRESET TABLE ENTRY TO FIRST WORD F P LD A1,PART1,A6 GET TRANSMITTE
0x47f3e0…47f574 (1, 1258) Dummy {f00=0x016a, f01=0x0190, f02=»ESS h PTRAN3 EQU * " P ADK A2,2 INCREASE TABLE ENTRY P CWK A2,TRANTL LAST ? F $ P RB(E) TRANEX YES, NOTHING TO DO d P SLL A1,1 GET NEXT CONDITION $ P RB(NN) TRAN3 NOT SET, TRY NEXT PTRAN2 EQU * . P LD A1,RESPAR,A2 RESET CONDI
0x47f574…47f708 Dummy {f00=0x016a, f01=0x0190, f02=»,FRTYP,A3 0 P SC A1,TRCTL,A6 PRESET FRAME TYPE TO BE SENT , P ABI TRANTB,A2 START TRANSMITTER PROCESS F P EJECT v 0 PTRANTB EQU * TRANSMITTER PROCESS ENTRY TABLE $ P DATA TRFRMR TRANSMIT FRMR/CMDR P DATA TRUA TRANSMIT UA P DATA TRDM
0x47f708…47f89c Dummy {f00=0x016a, f01=0x0190, f02=»J TRANSMIT REJ 0 P DATA TRF TRANSMIT ANY FRAME WITH F-BIT SET P DATA TRI TRANSMIT I-FRAME J * P DATA TRACK TRANSMIT ACKNOWLEDGE (RR) l 0 P DATA TRP TRANSMIT ANY FRAME WITH P-BIT SET $ PTRANTL EQU *-TRANTB TABLE LENGTH P* P* *
0x47f89c…47fa30 Dummy {f00=0x016a, f01=0x0190, f02=»BM/SARM P DATA /F1A0 DISC P DATA /F9A0 RNR ( P DATA /FDA0 REJ @ P DATA /FFA0 F X P DATA /FFA0 I n P DATA /FFA0 ACK P DATA /FFA0 P P* P* 6 PFRTYP EQU * TABLE OF TO BE TRANSMITTED FRAMETYPES PFRTYPE F
0x47fa30…47fbc4 Dummy {f00=0x016a, f01=0x0190, f02=» XIF P FRTYPE DISC,RNR P FRTYPE REJ,RR $ P FRTYPE I,RR : P EJECT N PTRUA EQU * PTRDM EQU * p PTRFRMR EQU * * P* A4 CONTAIN ORIGINAL PART1 CONDITION 8 P* A3 IS USED FOR ADDING CONDITIONS IN CONTROL FIELD 2 P* A4 WIL
0x47fbc4…47fd58 Dummy {f00=0x016a, f01=0x0190, f02=» * P LDK A1,T.FRMR END OF U-FRAME COUNTERS P SUR A1,A2 2 $ P CF A5,COUNT COUNT # OF U-FRAMES D P XIF l , P LD A1,TRSPAD,A6 PRESET RESPONSE ADDRESS x P ANKL A4,/100 F-BIT SET? P RF(Z) CUFR32 NO 2 PCUFR20 LDK A3,/10 YES, PRESET SETTING P/
0x47fd58…47feec Dummy {f00=0x016a, f01=0x0190, f02=»A1,TRAD,A6 SET ADDRESS FIELD & P* A2 IS INDEX TO TYPE OF U-FRAME $ < P RF WRITEC GO ON WITH TRANSMITTING THE CONSTRUCTED FRAME N P* PTRSABM EQU * PTRDISC EQU * P IFT STAT=1 * P LDK A1,T.FRMR END OF U-FRAME COUNTERS P SUR A
0x47feec…480080 Dummy {f00=0x016a, f01=0x0190, f02=»SS n " P ANK A4,/20 PBIT SET IN PART1? > P RB(Z) CUFR32 NO,SET COMMAND ADDR. AND WRITE CONTROL FRAME 0 " P IM OUTSTP,A6 YES , SET OUTSTP r 2 P RB CUFR20 RESET PART1, PREPARE CONTROL FRAME P EJECT PTRREJ EQU * P IFT STAT=1 P LDK
0x480080…480214 (1, 1259) Dummy {f00=0x016a, f01=0x0190, f02=» P CF A5,COUNT P XIF P*** ( P* 4 PCSFR EQU * CONSTRUCT S-FRAME > , P LD A1,TRSPAD,A6 PRESET RESPONSE ADDRESS b P LDR A7,A4 SAVE PART1 IN A7 & P ANKL A4,/100 F-BIT SET IN PART1? P IFT ABM=1 & P RF(Z) CSFR1 NO,CHECK
0x480214…4803a8 Dummy {f00=0x016a, f01=0x0190, f02=» 2 P LDK A3,/10 PRESET F TO BE SET IN CNTRL-FIELD P XIF : PCUFR35 EQU * F P LD A2,VR,A6 GET VR Z P SLL A2,5 SHIFT IN POSITION v & P ORR A3,A2 NOW A3 CONTAINS ALSO VR @ P RB CUFR30 RESET F IN PART1 AND PREPARE CONTROL AND ADDRESS P
0x4803a8…48053c Dummy {f00=0x016a, f01=0x0190, f02=»PART1? t * P RB(Z) CUFR35 NO,PREPARE CONTROL FRAME P LDK A1,1 < 2 P ST A1,OUTSTP,A6 SET OUTSTANDING P INDICATION N , P LD A1,TCMDAD,A6 PRESET COMMAND ADDRESS P RB CUFR36 P XIF P IFT ABM=0 PCSFR1 EQU * * P LDK A3,0 AVOID
0x48053c…4806d0 Dummy {f00=0x016a, f01=0x0190, f02=»WLEDGE v P* J P* THIS PART OF THE TRANSMITTER TAKES CARE FOR THE CONSTRUCTION OF P* ANY P/F CARRYING FRAME f P* @ PCPFFR EQU * CONSTRUCT P/F-FRAME : P LD A1,SINS,A6 GET SINK
0x4806d0…480864 Dummy {f00=0x016a, f01=0x0190, f02=»TROL FIELD V P IFT ABM=0 2 P LDR A7,A4 TEST IF P-BIT HAS TO BE TRANSMITTED $ P ANK A7,/20 . Z P RF(Z) CPFFR1 NO p $ P XRS A7,PART1,A6 WE CANNOT DO IT , P*** TEST IF TIMER MUST BE ADJUSTED " P LD A7,REM.FR,A6 2 P
0x480864…4809f8 Dummy {f00=0x016a, f01=0x0190, f02=»,TST,A6 | P CF A5,STATIM PCPFFR0 EQU * 4 P RTN A5 P P* ` PCPFFR1 EQU * j P XIF ~ P IFT STAT=1 P* A1 IS USED AS INDEX P SLL A1,1 * P ADK A1,T.RR COUNTER OF FIRST S-FRAME $ P CF A5,COU
0x4809f8…480b8c Dummy {f00=0x016a, f01=0x0190, f02=» | PTCP FORM 8,8 D P TCP RR,RNR EACH EIGHT BITS CONTAIN THE & F P TCP REJ,/0 LAY-OUT BELONGING TO THE TYPE n > P TO BE TRANSMITTED P EJECT P
0x480b8c…480d20 Dummy {f00=0x016a, f01=0x018e, f02=» | P IFT STAT=1 P LDK A1,T.I $ P CF A5,COUNT COUNT # OF I-FRAMES 0 P XIF X F P LD A1,MAXVS,A6 GET MAXIMUM VALUE REACHED d 4 P* BY V(S) D P CW A1,VS,A6
0x480d20…480eb4 (1, 1260) Dummy {f00=0x016b, f01=0x0190, f02=» 4 P ANS A1,MAXVS,A6 MODULO 8 P* < PSEF20 EQU * F F PSEF11 EQU * FURTHER ACTIONS ARE EQUAL Z 0 P LD A1,VS,A6 V(S) P SLL A1,1 0 P LD A2,VR,A6
0x480eb4…481048 Dummy {f00=0x016b, f01=0x0190, f02=»IELD P P IM VS,A6 INCREASE V(S) P LDK A1,/7 , 4 P ANS A1,VS,A6 MODULO 8 L J P LD A1,TCMDAD,A6 GET ADDRESS FOR COMMAND FRAME : P SC A1,TRAD,A6 STORE IN FRAME
0x481048…4811dc Dummy {f00=0x016b, f01=0x0190, f02=» PPFCP EQU * 6 P ANK A4,/20 GET P-BIT P RF(Z) PFCP1 Z * P XRS A4,PART1,A6 RESET P-BIT IN PART1 x P IM OUTSTP,A6 SET OUTSTP 0 P LDK A1,/10 SET P-BIT P " P
0x4811dc…481370 Dummy {f00=0x016b, f01=0x0190, f02=» CONTROL FRAMES z , P CF A5,GLECB GET ELEMENT FROM LECB QUEUE " P LDK A1,TRANSF BUFFER ADDRESS H P ADR A1,A6 NOW REAL ADDRESS n P ST A1,ECBBA,A8 PUT IN ECB * P LDK A1,5 PRESET LENGTH CASE FRMR/CMDR & P LC A2,TRCTL,A6 GET CONTROL FIELD
0x481370…481504 Dummy {f00=0x016b, f01=0x0190, f02=»NTROL FRAME z PWRITC1 EQU * P ST A1,ECBRL,A8 IN ECB ( P* F P* P , PWRITCI EQU * FOR DATA AS WELL AS CONTROL Z P IFT LOG=1 P LDKL A4,/53FF , P CF A5,LOGFR LOGGING OF OUTGOING FRAMES P XIF & P CF A5,L1OUT EXECUTE WRITE
0x481504…481698 Dummy {f00=0x016b, f01=0x0190, f02=»ADDRESSES h * P ADR A1,A6 IN CORRECT PARAMETER TABLE & PPRI7 LDR* A3,A1 GET QUEUE ADDRESS @ , PPRI6 CF A5,GETBUF GET ELEMENT FROM QUEUE j P LD A3,Q1ACAD,A6 P CF A5,PUTBUF SET IN ACK QUE , P LD A1,TRANSF,A6 GET ADDRESS AND CONTROL & P L
0x481698…48182c Dummy {f00=0x016b, f01=0x0190, f02=»BEL,A8 0 P CF A5,GLECB GET ELEMENT FROM LECB QUEUE(A3) & P ST A1,ECBRL,A8 REQ. LENGTH IN ECB B 0 P ST A2,ECBBA,A8 STORE BUFFER ADDRESS IN ECB l * P IM AC,A6 INCREMENT ACKNOWLEDGE COUNT P LDKL A1,-1 & P ADS A1,SC,A6 DECREMENT SEND COUNT
0x48182c…4819c0 Dummy {f00=0x016b, f01=0x0190, f02=» P* P* PPTTC EQU * , P LD A1,CSV,A6 GET ACTUAL PROTOCOL STATUS * & P RF(Z) TIMAC1 CSV IS DISCONNECTED Z P CWK A1,CNT " P RF(E) TIMAC2 CSV IS CONNECTED P CWK A1,CNTRES ( P RF(E) TIMAC4 CSV IS WAIT FOR RESET P* ALL OT
0x4819c0…481b54 (1, 1261) Dummy {f00=0x016b, f01=0x0190, f02=»F TIMEX P* PTIMAC2 EQU * , P LD A1,OUTSTP,A6 CHECK OUTSTANDING P-BIT . P RF(Z) TIMC2A ^ " P LD A1,TST,A6 GET TIMER STATE t P SUK A1,1 P RF(Z) TIMEX TST=1 P RF TIMST1 PTIMC2A EQU * " P LD A1,TST,A6 GET TIMER STAT
0x481b54…481ce8 Dummy {f00=0x016b, f01=0x0190, f02=»* TEST IF ACK-TIMER HAS TO BE SET P LD A2,AC,A6 . * P RF(Z) TIMC2C NO! P 4 P LDK A1,2 SET ACK-TIMER ~ P RF TIMSAV PTIMC2C EQU * P SUK A1,1 & P RF(
0x481ce8…481e7c Dummy {f00=0x016b, f01=0x0190, f02=»T IS 1 ? P RF(E) TIMEX YES EXIT P RF TIMSAV . P* @ PTIMAC4 EQU * J $ P LDK A1,4 TIMER STATE BECOMES 4 ^ P RF TIMSAV P* PTIMST1 EQU * " P LDK A1,1 SET TIMER STATE TO 1 P RF TIMSAV PTIMST0 EQU * " P LDK A
0x481e7c…482010 Dummy {f00=0x016b, f01=0x0190, f02=» P RTN A5 RETURN TO CALLER P IFT STAT=1 ( P EJECT < P* J P* T & P**** STATISTICAL COUNTING ROUTINE ^ P* P* AT ENTRY: . P* A1 = INDEX FOR FRAME TYPE TO BE COUNTED $ P* A6 = ADDRESS PARAMETER TABLE P*
0x482010…4821a4 Dummy {f00=0x016b, f01=0x0190, f02=»ISTICAL COUNTER z PCOUNTR EQU * P LDR* A1,A5 RESTORE A1 , P RTN A5 RETURN J P XIF ` P EJECT l , PRESTR EQU * RESET TRANSMITTER VARIABLES z P CM NRT,A6 P LDK A1,1 P ST A1,REMFR,A6 P CM VS,A6 P CM MAXVS,A6
0x4821a4…482338 Dummy {f00=0x016b, f01=0x0190, f02=» CM VR,A6 P RTN A5 P EJECT " P* 0 4 P* THIS PART WILL PERFORM THE INITIALISATION : P* OF THIS LEVEL r P* P* PINIT EQU * P CF A5,INIT.IO 4 P CM TIMADR,A6 RESET ADDRESS TIMER BLOCK AS FLAG ( P CM LE
0x482338…4824cc Dummy {f00=0x016b, f01=0x0190, f02=»R COUNTERS P ADK A1,2 " P CW A1,STAEND,A6 END REACHED ? $ P RB(NE) INIT10 NO J P XIF d P LDR A4,A6 SET POINTER p & P LDK A2,12 MINIMUM NR OF QUEUES*2 PINITR EQU * RETURN POINT * P LD A3,QUEAD,A4 GET FIRST QUE ADDRESS P C
0x4824cc…482660 Dummy {f00=0x016b, f01=0x0190, f02=»D A1,MA,A3 , P SUR A1,A7 NOW WE HAVE NUMB OF ELEMENTS ( P ST A1,NN,A3 SET NUMBER OF ELEMENTS B $ P ADK A4,2 INCRENMENT QUE POINTER n 0 P SUK A2,2 DECREMENT NUMBR TO BE INITIALIZED P RB(NZ) INITR DO AGAIN * P LD A1,Q1LEAD,A6 LENGTH OF LECB
0x482660…4827f4 (1, 1262) Dummy {f00=0x016b, f01=0x0190, f02=»QUEUE (A3=ADDR) t & P ADKL A8,12 UPDATE ELEMENT ADDRESS $ P SUK A2,2 DECREASE NR OF QUEUES B P RB(NZ) INITQ STORE ELEMENT j P LDR A8,A7 RELOAD A8 P LDKL A1,-1 0 P ST A1,PROTST,A6 PROTOCOL STATUS DISCONNECT . P ST A1,DRIVST,A6 DRIVE
0x4827f4…482988 Dummy {f00=0x016b, f01=0x0190, f02=» PSTATIM EQU * START TIMER " P LD A2,TST,A6 GET TIMER STATE ( . P ADR A2,A2 MAKE INDEX IN TIMER VALUE TABLE N : P LD A3,TIMVAL,A2 GET TIMER STATE DEPENDENT TIMER VALUE P INH * P ST A3,TIMER SET IN LOCATION FOR TIMER P C1R A3,
0x482988…482b1c Dummy {f00=0x016b, f01=0x0190, f02=»R ALREADY EXHAUSTED ~ * P ST* A3,TIMADR,A6 SAVE NEW TIMER VALUE P ENB J P RTN A5 V P* f PSTATI1 EQU * p 4 P LD A1,TMECBA,A6 ADDRESS TIMER ECB AS PARAMETER . P LC A4,FCL1+1,A6 SET FILECODE IN TIMER ECB P SC A4,1,A1 P CF A1
0x482b1c…482cb0 Dummy {f00=0x016b, f01=0x0190, f02=»!! t . P ST A4,TIMADR,A6 SAVE TIMER VALUE ADDRESS P RTN A5 RETURN TO CALLER < P* PTIMVAL EQU * f P DATA SYTIM0 VALUE IF TST 0 z P DATA SYTIM1 VALUE IF TST 1 P DATA SYTIM2 VALUE IF TST 2 P DATA SYTIM3 VALUE IF TST 3
0x482cb0…482e44 Dummy {f00=0x016b, f01=0x0190, f02=»T A1,SAV,A6 IN SAVE AREA P ST A2,SAV+2,A6 P ST A3,SAV+4,A6 8 P ST A4,SAV+6,A6 P P ST A7,SAV+8,A6 h 0 P LD A1,FCL1,A6 FILE CODE FOR CURRENT DRIVER " P STR A1,A8 STORE INTO LINE ECB P RTN A5 RETURN TO CALLER P* P*
0x482e44…482fd8 Dummy {f00=0x016b, f01=0x0190, f02=»A4,SAV+6,A6 P LD A7,SAV+8,A6 P RTN A5 RETURN TO CALLER , P EJECT L P**** DRIVER REQUEST ROUTINES Z P* ~ PL1CONN EQU * P CF A5,MSRL & P CM OUTPEN,A6 RESET OUTPUT PENDING . P CM INPCNT,A6 RESET INPUT PENDING COUNTER
0x482fd8…48316c Dummy {f00=0x016b, f01=0x0190, f02=»TH t PL1RET2 EQU * 0 P CC A1,TABPAR-1,A2 DOES THE FILECODES MATCH P RF(E) L1RET3 YES R P SUK A2,4 TAKE NEXT ENTRY l P RB L1RET2 PL1RET3 EQU * 0 P LD A6,TABPAR,A2 GET PARAMETER TABLE ADDRESS . P CF A5,MLRL MULTIPLE LOAD OF LOW
0x48316c…483300 Dummy {f00=0x016b, f01=0x0190, f02=»L1 ( P RF(E) L1RET1 CONNECT REQUEST FAILED P HLT 6 PL1RET1 EQU * B P RTN A5 RETURN TO CALLER V P* v P* ( P* DRIVER INPUT REQUEST WITH IMPLICIT . P* LINE ECB REQUEST AND STORE BUFFERADDRESS P* AT ENTRY A7=BUFFERADDRESS
0x483300…483494 (1, 1263) Dummy {f00=0x016b, f01=0x018e, f02=»U * PERFORM LEVEL 1 CALL P CF A5,MSRL 8 P IM INPCNT,A6 INCREASE NR OF PENDING INPUT REQUESTS 4 P LD A1,SYLEN,A6 p & P ST A1,ECBRL,A8 STORE FIXED LENGTH P CF A5,DR.INP LEVEL 1 CALL " P RB L1RET COMMON RETURN POINT P* $ PL1OU
0x483494…483628 Dummy {f00=0x016b, f01=0x0190, f02=» t " P RB L1RET COMMON RETURN POINT P* . 0 P* DRIVER STOP REQUEST WITH IMPLICIT REQUEST 8 ( P* OF A LINE ECB AND RESTORE LINE ECB l P* PL1STPQ EQU * P CF A5,GLECB GET LINE ECB P CF A5,L1STOP STOP DRIVER * P CF A5,PLECB R
0x483628…4837bc Dummy {f00=0x016b, f01=0x018e, f02=»F A5,MSRL P LDK A1,1 , P ST A1,DRIVST,A6 SET DRIVER STATUS STOP $ P CF A5,DR.STOP LEVEL 1 CALL T " P RB L1RET COMMON RETURN POINT x P* . P* DRIVER DISCONNECT REQUEST WITH IMPLICIT P* REQUEST OF A LINE ECB P* PL1DI
0x4837bc…483950 Dummy {f00=0x016b, f01=0x0190, f02=» 0 P ST A1,DRIVST,A6 SET DRIVER STATUS DISCONNEC P CF A5,DR.DISC LEVEL 1 CALL < " P RB L1RET COMMON RETURN POINT ` P EJECT PMI EQU /0 PMA EQU /2 PNF EQU /4 PNN EQU /6 PIN EQU /8 PEX EQU /A P*
0x483950…483ae4 Dummy {f00=0x016b, f01=0x0190, f02=» THE EXPECTED INPUT PARAMETERS ARE: " P* A3 = QUEUE ADDRESS , P* A5 = STACKBASE R P* t P* ~ 0 P* A8 WILL CONTAIN THE FOUND ECB ADDRESS P* . P* NO REGISTERS BELOW A9 ARE AFFECTED. P* , PGLECB
0x483ae4…483c78 Dummy {f00=0x016b, f01=0x018e, f02=»RE FREE BUFFERS? | P RF(NP) GETBEX NO ( P LD A7,EX,A3 GET EXTRACTION POINTER 2 " P LDR* A8,A7 GET BUFFER ADDRESS ^ ( P ADKL A7,2 INCREMENT EXTRACT POINTER " P CW A7,MA,A3 MAXIMUM REACHED? P RF(NE) GETB1 CONTINUE & P LD A7,MI,A3 SET POI
0x483c78…483e0c Dummy {f00=0x016b, f01=0x0190, f02=» f P LDKL A7,-2 ( P ADS A7,NF,A3 DECREMENT FREE COUNTER " P RF RETRN RELOAD A7 AND RETURN H PGETBEX EQU * n P HLT P* P* P* 8 P* THIS PROGRAM PART TAKES CARE FOR THE QUEUEING P* OF ECB. P* , P
0x483e0c…483fa0 Dummy {f00=0x016b, f01=0x0190, f02=»CB ADDRESS TO BE QUEUED P* P* * . P* NO REGISTERS BELOW A8 ARE AFFECTED. 4 P* f : PPLECB LD A3,Q1LEAD,A6 ENTRY POINT TO PUT LECB IN QUEUE p P* PPUTBUF EQU * P STR A7,A5 SAVE A7 ON STACK $ P LD A7,NN,A3 GET NUMBER
0x483fa0…484134 (1, 1264) Dummy {f00=0x016c, f01=0x018e, f02=»CREASE INSERT POINTER " P CW A7,MA,A3 MAXIMUM REACHED ? P RF(NE) PUTB1 NO D & P LD A7,MI,A3 SET POINTER TO BEGIN PPUTB1 EQU * P ST A7,IN,A3 SAVE POINTER P LDK A7,2 " P ADS A7,NF,A3 INCREMENT FILLED P LDKL A7,-2 & P
0x484134…4842c8 Dummy {f00=0x016c, f01=0x0190, f02=» P HLT P IFT TRACE=1 P EJECT $ P* 2 P* < > P**** LOGING ROUTINE FOR RECEIVED AND TRANSMITTED I-FRAMES F P* P* AT ENTRY: P* A8 = ECB-ADDRESS P* P* AT RETURN: $ P* A1, A3, A4 AND A7 ARE CHANGED P
0x4842c8…48445c Dummy {f00=0x016c, f01=0x0190, f02=» POINTER IN TRACE BUFFER v $ P RF(Z) LOGT30 NO AREA SPECIFIED PLOGT10 EQU * H P LDR* A1,A3 GET WORD P STR A1,A7 STORE x $ P ADK A3,2 INCREASE LOAD POINTER $ P ADK A7,2 INCREASE STORE POINTER 2 P CW A7,TRAEND,A6 END OF TRACE BUFFER REA
0x48445c…4845f0 Dummy {f00=0x016c, f01=0x018e, f02=»EASE # OF WORDS P RB(NZ) LOGT10 GET NEXT , P ST A7,CURTRP,A6 SAVE NEW STORE POINTER 8 PLOGT30 EQU * h P RTN A5 RETURN | P XIF P IFT LOG=1 P EJECT P* P* @ P**** LOGING ROUTINE FOR RECEIVED AND TRANSMITTED HDLC-
0x4845f0…484784 Dummy {f00=0x016c, f01=0x0190, f02=» P* A7 IS CHANGED P* PLOGFR EQU * * 4 P LD A7,CURLGP,A6 GET STORE POINTER IN LOG BUFFER > " P RF(Z) LOG20 NO AREA SPECIFIED v , P STR A4,A7 STORE SEND/RECEIVE INDICATION P LD* A4,ECBBA,A8 ( P ST A4,2,A7 STORE FIRST BUFFER WORD
0x484784…484918 Dummy {f00=0x016c, f01=0x0190, f02=», SET STORE POINTER ON START | PLOG10 EQU * $ , P ST A7,CURLGP,A6 SAVE NEW STORE POINTER 8 PLOG20 EQU * h P RTN A5 RETURN | P XIF P EJECT P* > P* TABLE THAT CONTAINS THE FILECODE USED AT THE I/O-HANDLER B P* INTERFACE FOR
0x484918…484aac Dummy {f00=0x016c, f01=0x0190, f02=»H v P* P DATA FC:LN1 P DATA PARTA1 ( P IFF SYNRLN=1 < P DATA FC:LN2 R P DATA PARTA2 f P IFF SYNRLN=2 z P DATA FC:LN3 P DATA PARTA3 P IFF SYNRLN=3 P DATA FC:LN4 P DATA PARTA4 P XIF PTABEND
0x484aac…484c40 Dummy {f00=0x016c, f01=0x0190, f02=»NG OF DVDCLC z J P* FOR EACH "LIFE" OF THE HDLC PROTOCOL PROGRAM , ONE TABLE MUST P* BE DEFINED b P* ~ 2 P* THE TABLE CONSISTS OF TWO PARTS I.E. L P* * ONE PART THAT CONTAINS ALL VARIABLES THAT ARE RELATED
0x484c40…484dd4 (1, 1265) Dummy {f00=0x016c, f01=0x0190, f02=» OTHER INFORMATION SUCH AS QUEUEING PARAMETERS FOR 8 P* BUFFERS , ECB'S , FRAME CONTENTS. @ P* | P* P***** FIRST PART ***** P* P DATA 'PARTA1' PPARTA1 EQU * START OF TABLE P* 6 P* DEVI
0x484dd4…484f68 Dummy {f00=0x016c, f01=0x0190, f02=» ~ P DATA 0 ECB-ADDRESS P DATA 0 ORDER $ * P DATA DRDC25 POINTER TO ADDRESS BLOCK : P DATA 0 TTAB-ADDRESS h & P DATA 0 WAIT/ACTIVATION INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 P DATA 0 P DATA 0 P DATA 0 ECHO
0x484f68…4850fc Dummy {f00=0x016c, f01=0x0190, f02=» THIS WORD WILL CONTAIN THE FOLLOWING VARIABLES 4 P* BIT 0 = IN.FRMR/IN.CMDR D * P* 1 = IN.UA | * P* 2 = IN.DM 4 P* 3 = IN.SABM/IN.SARM
0x4850fc…485290 Dummy {f00=0x016c, f01=0x0190, f02=» IN.REJ p * P* 7 = IN.F , P* 8 = IN.TRI > , P* 9 = IN.ACK n * P* 10 = IN.P 0 P* 11 = ** SPARE ** 0 P*
0x485290…485424 Dummy {f00=0x016c, f01=0x0190, f02=»E ** h 0 P* 15 = ** SPARE ** P* @ F PRECCMD EQU *-PARTA1 COMMAND/RESPONSE INDICATOR J P DATA 0 P* H POUTSTP EQU *-PARTA1 OUTSTANDING P-BIT INDICATOR P
0x485424…4855b8 Dummy {f00=0x016c, f01=0x0190, f02=»TST EQU *-PARTA1 TIMER STATE P DATA 0 < P* X 6 PSINS EQU *-PARTA1 SINK STATE b P DATA 0 2 PRRSETI EQU *-PARTA1 RECEIVER RESET INDICATION P DATA 0 P* B P
0x4855b8…48574c Dummy {f00=0x016c, f01=0x0190, f02=» NEW N(R) RECEIVED INDICATOR t P DATA 0 0 P* L F PVS EQU *-PARTA1 SEND STATE VARIABLE V(S) V P DATA 0 P* H PVR EQU *-PARTA1 RECEIVE STATE VARIABLE V(R
0x48574c…4858e0 Dummy {f00=0x016c, f01=0x0190, f02=»ATA 0 UPDATED TOGETHER WITH V(S) P* @ H PLNR EQU *-PARTA1 LAST VALUE OF N(R) RECEIVED J > P DATA 0 FROM OPPOSITE SIDE P* H PSC EQU *-PARTA1
0x4858e0…485a74 (1, 1266) Dummy {f00=0x016c, f01=0x0190, f02=»ES TO BE T 4 P DATA 0 RECEIVED P* H > PNRT EQU *-PARTA1 NUMBER OF RETRIES R P DATA 0 PTRSPAD EQU *+1-PARTA1 PRCMDAD EQU *+1-PARTA1 " P DATA SYADRS RESPONSE ADDRES
0x485a74…485c08 Dummy {f00=0x016c, f01=0x0190, f02=»DENTIFIER r P DATA 0 0 PIIF EQU *-PARTA1 ILLEGAL I-FIELD INDICATION " P DATA 0 V PSTB EQU *-PARTA1 f P DATA STCK1A+PARTA1-2 ~ , PSAV EQU *-PARTA1 SAVE AREA FOR REGISTERS " P RES 5 SAVE AREA FOR REGISTERS < PNEWSTB EQU *-PARTA1 ST
0x485c08…485d9c Dummy {f00=0x016c, f01=0x0190, f02=» EQU *-PARTA1 P DATA 0 PRECCF EQU *-PARTA1 & P DATA 0 @ PSAV1 EQU *-PARTA1 P P DATA 0 j : PSAV2 EQU *-PARTA1 SAVE AREA FOR REGISTERS IN RECEIVER z P DATA 0 PSAV3 EQU *-PARTA1 P DATA 0 PTRANSF EQU *-PARTA1
0x485d9c…485f30 Dummy {f00=0x016c, f01=0x0190, f02=»1 ~ PFRSAV2 EQU *+1-PARTA1 PFRSAV3 EQU *+2-PARTA1 ( * P DATA 0 ADDITIONAL INFO FOR CMDR FRAME F P DATA 0 t P* P EJECT P* 2 P* QUE ADDRESSES BELONGING TO ONE LINE OF HDLC P* P* PQUEAD EQU *-PARTA1
0x485f30…4860c4 Dummy {f00=0x016c, f01=0x0190, f02=» PQ1COAD EQU *-PARTA1 P DATA Q1CO 8 PQ1SCAD EQU *-PARTA1 ENTRY IN TABLE FOR OUTPUT QUEUES 2 8 P DATA Q1SC ADDRESS OF TEMPORARY RETRANSMISSION QUEUE n PQ1LEAD EQU *-PARTA1 P DATA Q1LE P* . PQ1LECA EQU *-PARTA1 ADDRESS FIRST LINE
0x4860c4…486258 Dummy {f00=0x016c, f01=0x0190, f02=» EQU *-PARTA1 WILL CONTAIN THE N(R) OF THE : P DATA 0 RECEIVED FRAME F P* PDWTAD EQU *-PARTA1 P DATA DW2501 PSYLEN EQU *-PARTA1 P DATA 0 INPUT LENGTH POUTPEN EQU *-PARTA1
0x486258…4863ec Dummy {f00=0x016c, f01=0x0190, f02=» DATA -1 PFCL1 EQU *-PARTA1 P DATA FC:LN1 * * PTMECBA EQU *-PARTA1 ADDRESS TIMER ECB > > P DATA TIMECB+PARTA1 THIS ECB MUST BE DEFINED FOR ANY LINE l PTIMADR EQU *-PARTA1 P DATA 0 PCON.ECB EQU *-PARTA1 P DATA 0 PDI
0x4863ec…486580 Dummy {f00=0x016c, f01=0x0190, f02=» EQU *-PARTA1 P DATA 0 $ PINBUF EQU *-PARTA1 INIT POINTER & P DATA SAVBUF+PARTA1 N P IFT TRACE=1 j PCURTRP EQU *-PARTA1 ~ 4 P DATA TRABUF+PARTA1 CURRENT TRACE BUFFER POINTER PTRASTR EQU *-PARTA1 P DATA TRABUF+PARTA1
0x486580…486714 (1, 1267) Dummy {f00=0x016c, f01=0x0190, f02=»RRENT LOG BUFFER POINTER z PLOGSTR EQU *-PARTA1 P DATA LOGBUF+PARTA1 < PLOGEND EQU *-PARTA1 X P DATA LGEND+PARTA1 t P XIF P IFT STAT=1 PSTASTR EQU *-PARTA1 P DATA STABUF+PARTA1 PSTAEND EQU *-PARTA1 P DATA
0x486714…4868a8 Dummy {f00=0x016c, f01=0x0190, f02=»CT P* P RES 10 CALL FUNCTION STACK PSTCK1A EQU *-PARTA1 8 P* T , P RES 3 CALL FUNC STACK FOR INTERR. REQ. ^ PSTCK1B EQU *-PARTA1 P* PTIMECB EQU *-PARTA1 P DATA FC:LN1 TIMER ECB ( P DATA 0,0,0,0,ORTIL1 ORDER
0x4868a8…486a3c Dummy {f00=0x016c, f01=0x0190, f02=»TRABUF EQU *-PARTA1 P RES 100 TRACE AREA PTREND EQU *-PARTA1 8 P XIF R P* ^ P IFT LOG=1 h PLOGBUF EQU *-PARTA1 z P RES 50 LOG AREA PLGEND EQU *-PARTA1 P XIF P* P IFT STAT=1 PSTABUF EQU *-PARTA1
0x486a3c…486bd0 Dummy {f00=0x016c, f01=0x0190, f02=»PS THE ELEMENTS FROM WHICH THE ~ P* EVENTS ARE READY & P* D P* N PQ1ER EQU * START OF QUEUE X 0 PQ1ERMI DATA Q1ERSA MINIMUM VALUE OF POINTER z 0 PQ1ERMA DATA Q1ERFI MAXIMUM VALUE OF POINTER , PQ1ERNF DATA 0 NUMBER OF QUEUED ELEMENT
0x486bd0…486d64 Dummy {f00=0x016c, f01=0x0190, f02=»CTION POINTER x 6 PQ1ERSA RES SYNRRC+SYNRTR+1 RESERVE ALLOWED NUMBER PQ1ERFI EQU * END OF BLOCK P P* r P* | P* THE INPUT REQUEST QUEUE P* P* PQ1IR EQU * START OF QUEUE 0 PQ1IRMI DATA Q1IRSA MINIMUM VALUE OF POINTE
0x486d64…486ef8 Dummy {f00=0x016c, f01=0x0190, f02=»NUMBER OF FREE POSITIONS v ( PQ1IRIP DATA Q1IRSA INSERTION POINTER * PQ1IREP DATA Q1IRSA EXTRACTION POINTER L , PQ1IRSA RES SYNRRC RESERVE ALLOWED NUMBER z PQ1IRFI EQU * END OF BLOCK P* P* P* THE ACKNOWLEDGE QUEUE P*
0x486ef8…48708c Dummy {f00=0x016c, f01=0x0190, f02=»INTER j , PQ1ACNF DATA 0 NUMBER OF QUEUED ELEMENTS 6 PQ1ACNN DATA Q1ACFI-Q1ACSA NUMBER OF FREE POSITIONS > ( PQ1ACIP DATA Q1ACSA INSERTION POINTER x * PQ1ACEP DATA Q1ACSA EXTRACTION POINTER , PQ1ACSA RES SYTRWN RESERVE ALLOWED NUMBER PQ1ACFI
0x48708c…487220 Dummy {f00=0x016c, f01=0x0190, f02=»A Q1SCSA MINIMUM VALUE OF POINTER 0 PQ1SCMA DATA Q1SCFI MAXIMUM VALUE OF POINTER * , PQ1SCNF DATA 0 NUMBER OF QUEUED ELEMENTS ^ 6 PQ1SCNN DATA Q1SCFI-Q1SCSA NUMBER OF FREE POSITIONS ( PQ1SCIP DATA Q1SCSA INSERTION POINTER * PQ1SCEP DATA Q1SCSA E
0x487220…4873b4 (1, 1268) Dummy {f00=0x016d, f01=0x0190, f02=»TERRUPT COMPLETION QUEUE P* P* * PQ1CO EQU * START OF QUEUE 4 0 PQ1COMI DATA Q1COSA MINIMUM VALUE OF POINTER V 0 PQ1COMA DATA Q1COFI MAXIMUM VALUE OF POINTER , PQ1CONF DATA 0 NUMBER OF QUEUED ELEMENTS 6 PQ1CONN DATA Q1COFI-Q1COSA
0x4873b4…487548 Dummy {f00=0x016d, f01=0x0190, f02=»RRC+SYUBNR+4 RESERVE ALLOWED NUMBER PQ1COFI EQU * END OF BLOCK , P* N P* X P* THE QUEUE OF LINE ECBS b P* P* PQ1LE EQU * START OF QUEUE 0 PQ1LEMI DATA Q1LESA MINIMUM VALUE OF POINTER 0 PQ1LEMA DATA Q1LEFI MAXIMUM V
0x487548…4876dc Dummy {f00=0x016d, f01=0x0190, f02=» DATA Q1LESA INSERTION POINTER * PQ1LEEP DATA Q1LESA EXTRACTION POINTER & PQ1LESA EQU * T * P***** MAXIMUM 12 LINE ECB'S RESERVED h P* P DATA Q1LEC1 P DATA Q1LEC1+12 P DATA Q1LEC1+24 P IFF NRLECB=3 P DATA Q1LEC1+3
0x4876dc…487870 Dummy {f00=0x016d, f01=0x018e, f02=»+72 P IFF NRLECB=7 P DATA Q1LEC1+84 " P IFF NRLECB=8 : P DATA Q1LEC1+96 P P IFF NRLECB=9 h P DATA Q1LEC1+108 ~ P IFF NRLECB=10 P DATA Q1LEC1+120 P IFF NRLECB=11 P DATA Q1LEC1+132 P IFF NRLECB=12 P
0x487870…487a04 Dummy {f00=0x016d, f01=0x018e, f02=» P XIF PQ1LEFI EQU * END OF BLOCK P* 2 H P* IN THIS AREA ALL THE LINE ECB'S EXCEPT FOR THE TIMER ARE RESERVED < P* PQ1LEC1 EQU * P RES NRLECB WORD 0 P RES NRLECB WORD 1 P RES NRLECB WORD 2 P RES NRLECB WORD 3
0x487a04…487b98 Dummy {f00=0x016d, f01=0x018e, f02=» r P* P DATA 'PARTA2' PPARTA2 EQU * START OF TABLE ( P* L 6 P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE V P* PDW2502 EQU * P DATA 'DC' CHANNEL PARAMETER P DATA /8000 STATUS P DATA 0 ECB-ADDRESS P
0x487b98…487d2c Dummy {f00=0x016d, f01=0x0190, f02=» P DATA 0 TERMINAL QUEUE P DATA 0 " P DATA 0 2 P DATA 0 B P DATA 0 ECHO DEVICE R ( P DATA PARTA2 PARAMETER TABLE ADDRESS n P* P DATA 0 D P* THIS WORD WILL CONTAIN THE FOLLOWING VARIABLES 4 P
0x487d2c…487ec0 Dummy {f00=0x016d, f01=0x0190, f02=»N.DM n 4 P* 3 = IN.SABM/IN.SARM , P* 4 = IN.DISC D , P* 5 = IN.RNR t , P* 6 = IN.REJ * P* 7 = IN.F , P*
0x487ec0…488054 (1, 1269) Dummy {f00=0x016d, f01=0x0190, f02=»* 11 = ** SPARE ** 0 P* 12 = ** SPARE ** 4 0 P* 13 = ** SPARE ** h 0 P* 14 = ** SPARE ** 0 P* 15 = ** SPARE ** P*
0x488054…4881e8 Dummy {f00=0x016d, f01=0x0190, f02=»TE VARIABLE P DATA 0 P* $ P* TIMER STATE . P DATA 0 D P* ` P* SINK STATE j P DATA 0 ~ P* RECEIVER RESET INDICATION P DATA 0 P* P* REMOTE FREE INDICATION P DATA
0x4881e8…48837c Dummy {f00=0x016d, f01=0x0190, f02=» DATA 0 P* " P* RECEIVE STATE VARIABLE V(R) " P DATA 0 H P* d ( P* MAXIMUM VALUE OF V(S) HAS REACHED n F P DATA 0 UPDATED TOGETHER WITH V(S) P* " P* LAST VALUE OF N(R) RECEI
0x48837c…488510 Dummy {f00=0x016d, f01=0x0190, f02=»ATA 0 P* ! , P* NUMBER OF ACKNOWLEDGES TO BE RECEIVED ! 4 P DATA 0 RECEIVED ! L P* ! P* NUMBER OF RETRIES ! P DATA 0 ! " P DATA SYADRS RESPONSE ADDRESS ! P DATA SYADCM COMMAND ADDRESS
0x488510…4886a4 Dummy {f00=0x016d, f01=0x0190, f02=»A STCK2A ! P* SAVE AREA FOR REGISTERS " " P RES 5 SAVE AREA FOR REGISTERS " 2 , P* STACK BASE FOR INTERRUPTS DURING BUSY " X P DATA STCK2B STACKBASE ENTRY " P DATA 0 " P DATA 0 " P DATA 0 " P DATA 0 " * P* SAVE AREA FOR REGISTERS IN
0x4886a4…488838 Dummy {f00=0x016d, f01=0x0190, f02=»CMDR FRAME " t P DATA 0 # P* # " P EJECT # , P* # : 2 P* QUE ADDRESSES BELONGING TO ONE LIFE OF HDLC # D P* # z P* # P DATA Q2ER # P DATA Q2IR # P DATA Q2AC # P DATA Q2CO # 8 PQ2SCAD EQU *-PARTA2 ENTRY IN TABLE FOR OUTPUT QUEU
0x488838…4889cc Dummy {f00=0x016d, f01=0x0190, f02=»Q2LEC1 *****TEM****** # P* $ P EJECT $ ( " P***** SECOND PART ***** $ 6 P* $ P* $ f 2 P* WILL CONTAIN THE N(R) OF THE RECEIVED FRAME $ p : P DATA 0 RECEIVED FRAME $ P DATA DW2502 DWT ADDRESS $ P DAT
0x4889cc…488b60 Dummy {f00=0x016d, f01=0x0190, f02=» THIS ECB MUST BE DEFINED FOR ANY LINE $ P DATA 0 % . P DATA 0 % > P DATA 0 % N P DATA 0 % ^ P DATA 0 % n P DATA 0 % ~ P* INIT POINTER % P DATA SAVBF2 % P IFT TRACE=1 % . P DATA CURTR2 CURRENT TRACE BUFFER POINTER % P DATA TRAS
0x488b60…488cf4 (1, 1270) Dummy {f00=0x016d, f01=0x018e, f02=»ATA LGEND2 % P XIF & P IFT LINE2+STAT=2 & ( P DATA STAST2 START STATISTICAL AREA & 8 P DATA STEND2 & d P XIF & x P IFT LINE2=1 & P DATA -100 & P EJECT & P* & P RES 10 CALL FUNCTION STACK & PSTCK2A EQU *-2 &
0x488cf4…488e88 Dummy {f00=0x016d, f01=0x0190, f02=» & x P DATA 0,0,0,0,ORTIL1 ' P* ' $ PSAVBF2 EQU * ' . P RES SYUBNR ' B P* ' V P IFT LINE2+TRACE=2 ' ` PCURTR2 EQU * ' z PTRAST2 EQU * ' P RES 100 TRACE AREA ' PTREND2 EQU * ' P XIF ' P* ' P IFT LINE2+LOG=2 ' PCURLG2 E
0x488e88…48901c Dummy {f00=0x016d, f01=0x0190, f02=» ' $ P RORG *+STALNG STATISTICAL AREA ( PSTEND2 EQU * ( 0 P XIF ( D P IFT LINE2=1 ( P P EJECT ( d P* ( r P* ( | 4 P* THIS QUE KEEPS THE ELEMENTS FROM WHICH THE ( P* EVENTS ARE READY ( P* ( P* ( PQ2ER EQU * START OF QUEU
0x48901c…4891b0 Dummy {f00=0x016d, f01=0x0190, f02=»F QUEUED ELEMENTS ( z 6 PQ2ERNN DATA Q2ERFI-Q2ERSA NUMBER OF FREE POSITIONS ) ( PQ2ERIP DATA Q2ERSA INSERTION POINTER ) T * PQ2EREP DATA Q2ERSA EXTRACTION POINTER ) 6 PQ2ERSA RES SYNRRC+SYNRTR+1 RESERVE ALLOWED NUMBER ) PQ2ERFI EQU * END OF BLOCK )
0x4891b0…489344 Dummy {f00=0x016d, f01=0x0190, f02=» VALUE OF POINTER ) v 0 PQ2IRMA DATA Q2IRFI MAXIMUM VALUE OF POINTER * , PQ2IRNF DATA 0 NUMBER OF QUEUED ELEMENTS * N 6 PQ2IRNN DATA Q2IRFI-Q2IRSA NUMBER OF FREE POSITIONS * ~ ( PQ2IRIP DATA Q2IRSA INSERTION POINTER * * PQ2IREP DATA Q2IRSA EXTRACTION POINTE
0x489344…4894d8 Dummy {f00=0x016d, f01=0x0190, f02=» * x P* + P* + PQ2AC EQU * START OF QUEUE + 0 PQ2ACMI DATA Q2ACSA MINIMUM VALUE OF POINTER + > 0 PQ2ACMA DATA Q2ACFI MAXIMUM VALUE OF POINTER + r , PQ2ACNF DATA 0 NUMBER OF QUEUED ELEMENTS + 6 PQ2ACNN DATA Q2ACFI-Q2ACSA NUMBER OF FREE POSITIONS
0x4894d8…48966c Dummy {f00=0x016d, f01=0x0190, f02=»ER + j PQ2ACFI EQU * END OF BLOCK , P* , , P* , 6 P* THE SEND QUEUE , @ P* , X P* , b PQ2SC EQU * START OF QUEUE , l 0 PQ2SCMI DATA Q2SCSA MINIMUM VALUE OF POINTER , 0 PQ2SCMA DATA Q2SCFI MAXIMUM VALUE OF POINTER , , PQ2SCNF DATA 0 NUMB
0x48966c…489800 Dummy {f00=0x016d, f01=0x0190, f02=»EP DATA Q2SCSA EXTRACTION POINTER , , PQ2SCSA RES SYNRTR RESERVE ALLOWED NUMBER - * PQ2SCFI EQU * END OF BLOCK - Z P* - | P* - $ P* THE INTERRUPT COMPLETION QUEUE - P* - P* - PQ2CO EQU * START OF QUEUE - 0 PQ2COMI DATA Q2COSA MINIMUM
0x489800…489994 (1, 1271) Dummy {f00=0x016d, f01=0x0190, f02=»A Q2COFI-Q2COSA NUMBER OF FREE POSITIONS - ( PQ2COIP DATA Q2COSA INSERTION POINTER . 0 * PQ2COEP DATA Q2COSA EXTRACTION POINTER . 6 PQ2COSA RES SYNRRC+SYUBNR+4 RESERVE ALLOWED NUMBER . PQ2COFI EQU * END OF BLOCK . P* . P* . P* THE QUEUE OF
0x489994…489b28 Dummy {f00=0x016d, f01=0x018e, f02=»Q2LEFI MAXIMUM VALUE OF POINTER . 8 PQ2LENF DATA Q2LEFI-Q2LESA NUMBER OF QUEUED ELEMENTS / ( * PQ2LENN DATA 0 NUMBER OF FREE POSITIONS / d ( PQ2LEIP DATA Q2LESA INSERTION POINTER / * PQ2LEEP DATA Q2LESA EXTRACTION POINTER / PQ2LESA EQU * / * P***** M
0x489b28…489cbc Dummy {f00=0x016d, f01=0x0190, f02=» P DATA Q2LEC1+36 0 P IFF NRLECB=4 0 P DATA Q2LEC1+48 0 2 P IFF NRLECB=5 0 J P DATA Q2LEC1+60 0 ` P IFF NRLECB=6 0 x P DATA Q2LEC1+72 0 P IFF NRLECB=7 0 P DATA Q2LEC1+84 0 P IFF NRLECB=8 0 P DATA Q2LEC1+96 0 P IFF N
0x489cbc…489e50 Dummy {f00=0x016d, f01=0x0190, f02=» NRLECB=12 0 P DATA Q2LEC1+144 1 P IFF NRLECB=13 1 * P DATA Q2LEC1+156 1 @ P IFF NRLECB=14 1 X P DATA Q2LEC1+168 1 n P IFF NRLECB=15 1 P XIF 1 P IFT LINE2=1 1 PQ2LEFI EQU * END OF BLOCK 1 P* 1 H P* IN THIS AREA ALL
0x489e50…489fe4 Dummy {f00=0x016d, f01=0x0190, f02=» P RES NRLECB WORD 2 2 P RES NRLECB WORD 3 2 P RES NRLECB WORD 4 2 8 P RES NRLECB WORD 5 2 R P* 2 l P XIF 2 v P IFT LINE3=1 2 P EJECT 2 P***** FIRST PART ***** 2 P* 2 P DATA 'PARTA3' 2 PPARTA3 EQU
0x489fe4…48a178 Dummy {f00=0x016d, f01=0x0190, f02=»HANNEL PARAMETER 2 P DATA /8000 STATUS 3 P DATA 0 ECB-ADDRESS 3 2 P DATA 0 ORDER 3 N * P DATA DRDC25 POINTER TO ADDRESS BLOCK 3 d P DATA 0 TTAB-ADDRESS 3 & P DATA 0 WAIT/ACTIVATION INDICATOR 3 P DATA 0 TERMINAL QUEUE 3 P DATA 0 3 P D
0x48a178…48a30c Dummy {f00=0x016d, f01=0x0190, f02=» D P* THIS WORD WILL CONTAIN THE FOLLOWING VARIABLES 4 4 P* BIT 0 = IN.FRMR/IN.CMDR 4 L * P* 1 = IN.UA 4 * P* 2 = IN.DM 4 4 P* 3 = IN.SABM
0x48a30c…48a4a0 Dummy {f00=0x016d, f01=0x0190, f02=» 6 = IN.REJ 4 x * P* 7 = IN.F 5 , P* 8 = IN.TRI 5 F , P* 9 = IN.ACK 5 v * P* 10 = IN.P 5 0 P* 11 = ** SPARE ** 5 0 P
0x48a4a0…48a634 (1, 1272) Dummy {f00=0x016e, f01=0x018e, f02=» ** SPARE ** 5 p 0 P* 15 = ** SPARE ** 6 P* 6 H P DATA 0 6 R P* 6 n " P* OUTSTANDING P-BIT INDICATOR 6 x P DATA 0 6 P* 6 P* CONNECTION STATE VARIABLE 6 P DATA 0 6 P* 6 P* TIME
0x48a634…48a7c8 Dummy {f00=0x016e, f01=0x0190, f02=» P DATA 0 7 P* 7 P* REMOTE FREE INDICATION 7 P DATA 0 7 > P* 7 Z " P* NEW N(R) RECEIVED INDICATOR 7 d P DATA 0 7 P* 7 P* SEND STATE VARIABLE V(S) 7 P DATA 0 7 P* 7 " P* RECEIVE STATE
0x48a7c8…48a95c Dummy {f00=0x016e, f01=0x0190, f02=» UPDATED TOGETHER WITH V(S) 7 p P* 8 * " P* LAST VALUE OF N(R) RECEIVED 8 4 > P DATA 0 FROM OPPOSITE SIDE 8 Z P* 8 " P* NUMBER OF FRAMES TO BE SEND 8 P DATA 0 8 P* 8 , P* NUMBER OF ACKNOWLEDG
0x48a95c…48aaf0 Dummy {f00=0x016e, f01=0x018e, f02=» 0 8 " P DATA SYADRS RESPONSE ADDRESS 9 P DATA SYADCM COMMAND ADDRESS 9 2 P* FRAME TYPE IDENTIFIER 9 V P DATA 0 9 v P* ILLEGAL I-FIELD INDICATION 9 P DATA 0 9 P* CF-STACK AREA 9 P DATA STCK3A 9 P* SAVE AREA FOR REGISTERS 9 " P
0x48aaf0…48ac84 Dummy {f00=0x016e, f01=0x0190, f02=» P DATA 0 : P DATA 0 : P DATA 0 : $ * P* SAVE AREA FOR REGISTERS IN RECEIVER : 4 P DATA 0 : b P DATA 0 : r 6 P DATA 0 ADDRESS AND CONTROL FIELD FOR TRANSMITTER : * P DATA 0 ADDITIONAL INFO FOR CMDR FRAME : P DATA 0 : P* : P EJE
0x48ac84…48ae18 Dummy {f00=0x016e, f01=0x0190, f02=»Q3AC : P DATA Q3CO ; 8 PQ3SCAD EQU *-PARTA3 ENTRY IN TABLE FOR OUTPUT QUEUES ; 8 P DATA Q3SC ADDRESS OF TEMPORARY RETRANSMISSION QUEUE ; Z P DATA Q3LE ; P* ; P* ADDRESS FIRST LINE ECB ; P DATA Q3LEC1 *****TEM****** ; P* ; P EJECT ;
0x48ae18…48afac Dummy {f00=0x016e, f01=0x0190, f02=»0 RECEIVED FRAME ; ~ P DATA DW2503 DWT ADDRESS < , P DATA 0 < L P DATA 0 < P DATA 0 < l P DATA -1 < | P DATA -1 < P DATA FC:LN3 < P* ADDRESS TIMER ECB < 6 P DATA TIMEC3 THIS ECB MUST BE DEFINED FOR ANY LINE < P D
0x48afac…48b140 Dummy {f00=0x016e, f01=0x0190, f02=» IFT TRACE=1 < . P DATA CURTR3 CURRENT TRACE BUFFER POINTER = P DATA TRAST3 = F P DATA TREND3 = Z P XIF = n P IFT LINE3+LOG=2 = z , P DATA CURLG3 CURRENT LOG BUFFER POINTER = P DATA LOGST3 = P DATA LGEND3 = P XIF = P IFT LINE3+STAT=2
0x48b140…48b2d4 (1, 1273) Dummy {f00=0x016e, f01=0x0190, f02=» EJECT = P* > P RES 10 CALL FUNCTION STACK > PSTCK3A EQU *-2 > < P* > R , P RES 3 CALL FUNC STACK FOR INTERR. REQ. > PSTCK3B EQU *-2 > P* > PTIMEC3 EQU * > P DATA FC:LN3 TIMER ECB > P DATA 0,0,0,0,ORTIL1 > P* > PSAVB
0x48b2d4…48b468 Dummy {f00=0x016e, f01=0x0190, f02=» PTREND3 EQU * ? P XIF ? P* ? $ P IFT LINE3+LOG=2 ? . PCURLG3 EQU * ? F PLOGST3 EQU * ? Z P RES 50 ? n PLGEND3 EQU * ? ~ P XIF ? P* ? P IFT LINE3+STAT=2 ? PSTAST3 EQU * ? $ P RORG *+STALNG STATISTICAL AREA ? PSTEND3 EQU
0x48b468…48b5fc Dummy {f00=0x016e, f01=0x0190, f02=» EVENTS ARE READY ? P* @ P* @ $ PQ3ER EQU * START OF QUEUE @ . 0 PQ3ERMI DATA Q3ERSA MINIMUM VALUE OF POINTER @ P 0 PQ3ERMA DATA Q3ERFI MAXIMUM VALUE OF POINTER @ , PQ3ERNF DATA 0 NUMBER OF QUEUED ELEMENTS @ 6 PQ3ERNN DATA Q3ERFI-Q3ERSA NUMBER
0x48b5fc…48b790 Dummy {f00=0x016e, f01=0x0190, f02=»NRTR+1 RESERVE ALLOWED NUMBER @ | PQ3ERFI EQU * END OF BLOCK A & P* A H P* A R P* THE INPUT REQUEST QUEUE A P* A ~ P* A PQ3IR EQU * START OF QUEUE A 0 PQ3IRMI DATA Q3IRSA MINIMUM VALUE OF POINTER A 0 PQ3IRMA DATA Q3IRFI MAXIMUM VALUE
0x48b790…48b924 Dummy {f00=0x016e, f01=0x0190, f02=»A Q3IRSA INSERTION POINTER A * PQ3IREP DATA Q3IRSA EXTRACTION POINTER B " , PQ3IRSA RES SYNRRC RESERVE ALLOWED NUMBER B P PQ3IRFI EQU * END OF BLOCK B P* B P* B P* THE ACKNOWLEDGE QUEUE B P* B P* B PQ3AC EQU * START OF QUEUE B
0x48b924…48bab8 Dummy {f00=0x016e, f01=0x0190, f02=»ED ELEMENTS B t 6 PQ3ACNN DATA Q3ACFI-Q3ACSA NUMBER OF FREE POSITIONS C ( PQ3ACIP DATA Q3ACSA INSERTION POINTER C N * PQ3ACEP DATA Q3ACSA EXTRACTION POINTER C z , PQ3ACSA RES SYTRWN RESERVE ALLOWED NUMBER C PQ3ACFI EQU * END OF BLOCK C P* C P* C
0x48bab8…48bc4c Dummy {f00=0x016e, f01=0x0190, f02=»Q3SCMA DATA Q3SCFI MAXIMUM VALUE OF POINTER C , PQ3SCNF DATA 0 NUMBER OF QUEUED ELEMENTS D 4 6 PQ3SCNN DATA Q3SCFI-Q3SCSA NUMBER OF FREE POSITIONS D d ( PQ3SCIP DATA Q3SCSA INSERTION POINTER D * PQ3SCEP DATA Q3SCSA EXTRACTION POINTER D , PQ3SCSA RES SYNRT
0x48bc4c…48bde0 Dummy {f00=0x016e, f01=0x018e, f02=»* D PQ3CO EQU * START OF QUEUE E 0 PQ3COMI DATA Q3COSA MINIMUM VALUE OF POINTER E , 0 PQ3COMA DATA Q3COFI MAXIMUM VALUE OF POINTER E ` , PQ3CONF DATA 0 NUMBER OF QUEUED ELEMENTS E 6 PQ3CONN DATA Q3COFI-Q3COSA NUMBER OF FREE POSITIONS E ( PQ3COIP DAT
0x48bde0…48bf74 (1, 1274) Dummy {f00=0x016e, f01=0x0190, f02=» PQ3COFI EQU * END OF BLOCK F P* F & P* F 0 P* THE QUEUE OF LINE ECBS F : P* F Z P* F d PQ3LE EQU * START OF QUEUE F n 0 PQ3LEMI DATA Q3LESA MINIMUM VALUE OF POINTER F 0 PQ3LEMA DATA Q3LEFI MAXIMUM VALUE OF POINTER F 8 PQ3LENF DATA Q3LE
0x48bf74…48c108 Dummy {f00=0x016e, f01=0x0190, f02=»LEEP DATA Q3LESA EXTRACTION POINTER F PQ3LESA EQU * G , * P***** MAXIMUM 12 LINE ECB'S RESERVED G @ P* G n P DATA Q3LEC1 G x P DATA Q3LEC1+12 G P DATA Q3LEC1+24 G P IFF NRLECB=3 G P DATA Q3LEC1+36 G P IFF NRLECB=4 G P DATA Q3
0x48c108…48c29c Dummy {f00=0x016e, f01=0x0190, f02=»Q3LEC1+84 G P IFF NRLECB=8 H P DATA Q3LEC1+96 H ( P IFF NRLECB=9 H @ P DATA Q3LEC1+108 H V P IFF NRLECB=10 H n P DATA Q3LEC1+120 H P IFF NRLECB=11 H P DATA Q3LEC1+132 H P IFF NRLECB=12 H P DATA Q3LEC1+144 H P IFF NRLECB=13 H
0x48c29c…48c430 Dummy {f00=0x016e, f01=0x0190, f02=» H v PQ3LEFI EQU * END OF BLOCK I P* I * H P* IN THIS AREA ALL THE LINE ECB'S EXCEPT FOR THE TIMER ARE RESERVED I 4 P* I PQ3LEC1 EQU * I P RES NRLECB WORD 0 I P RES NRLECB WORD 1 I P RES NRLECB WORD 2 I P RES NRLECB WORD 3 I P R
0x48c430…48c5c4 Dummy {f00=0x016e, f01=0x0190, f02=» FIRST PART ***** I P* J P DATA 'PARTA4' J & PPARTA4 EQU * START OF TABLE J < P* J ` 6 P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE J j P* J PDW2504 EQU * J P DATA 'DC' CHANNEL PARAMETER J P DATA /8000 STATUS J P DATA 0
0x48c5c4…48c758 Dummy {f00=0x016e, f01=0x0190, f02=»ION INDICATOR J | P DATA 0 TERMINAL QUEUE K P DATA 0 K 4 P DATA 0 K D P DATA 0 K T P DATA 0 ECHO DEVICE K d ( P DATA PARTA4 PARAMETER TABLE ADDRESS K P* K P DATA 0 K D P* THIS WORD WILL CONTAIN THE FOLLOWING
0x48c758…48c8ec Dummy {f00=0x016e, f01=0x0190, f02=» 2 = IN.DM K 4 P* 3 = IN.SABM/IN.SARM L , P* 4 = IN.DISC L V , P* 5 = IN.RNR L , P* 6 = IN.REJ L * P* 7 = I
0x48c8ec…48ca80 Dummy {f00=0x016e, f01=0x018e, f02=» = IN.P L t 0 P* 11 = ** SPARE ** M 0 P* 12 = ** SPARE ** M F 0 P* 13 = ** SPARE ** M z 0 P* 14 = ** SPARE ** M 0 P* 15 = ** SP
0x48ca80…48cc14 (1, 1275) Dummy {f00=0x016e, f01=0x0190, f02=» P* CONNECTION STATE VARIABLE N P DATA 0 N ( P* N 8 P* TIMER STATE N B P DATA 0 N X P* N t P* SINK STATE N ~ P DATA 0 N P* RECEIVER RESET INDICATION N P DATA 0 N P* N P* REMOTE FREE INDICATION N
0x48cc14…48cda8 Dummy {f00=0x016e, f01=0x0190, f02=»BLE V(S) N ~ P DATA 0 O P* O , " P* RECEIVE STATE VARIABLE V(R) O 6 P DATA 0 O P* O x ( P* MAXIMUM VALUE OF V(S) HAS REACHED O F P DATA 0 UPDATED TOGETHER WITH V(S) O P* O " P* LAST
0x48cda8…48cf3c Dummy {f00=0x016e, f01=0x0190, f02=»D O t P DATA 0 P P* P & , P* NUMBER OF ACKNOWLEDGES TO BE RECEIVED P 0 4 P DATA 0 RECEIVED P ` P* P P* NUMBER OF RETRIES P P DATA 0 P " P DATA SYADRS RESPONSE ADDRESS P P DATA SY
0x48cf3c…48d0d0 Dummy {f00=0x016e, f01=0x0190, f02=»CK AREA P P DATA STCK4A Q P* SAVE AREA FOR REGISTERS Q $ " P RES 5 SAVE AREA FOR REGISTERS Q F , P* STACK BASE FOR INTERRUPTS DURING BUSY Q l P DATA STCK4B STACKBASE ENTRY Q P DATA 0 Q P DATA 0 Q P DATA 0 Q P DATA 0 Q * P* SAVE A
0x48d0d0…48d264 Dummy {f00=0x016e, f01=0x0190, f02=»ADDITIONAL INFO FOR CMDR FRAME Q P DATA 0 R & P* R 6 P EJECT R @ P* R N 2 P* QUE ADDRESSES BELONGING TO ONE LIFE OF HDLC R X P* R P* R P DATA Q4ER R P DATA Q4IR R P DATA Q4AC R P DATA Q4CO R 8 PQ4SCAD EQU *-PARTA4 ENTRY IN T
0x48d264…48d3f8 Dummy {f00=0x016e, f01=0x0190, f02=»NE ECB R ~ P DATA Q4LEC1 *****TEM****** S P* S 2 P EJECT S < " P***** SECOND PART ***** S J P* S p P* S z 2 P* WILL CONTAIN THE N(R) OF THE RECEIVED FRAME S : P DATA 0 RECEIVED FRAME S P DATA DW2504 DWT
0x48d3f8…48d58c Dummy {f00=0x016e, f01=0x0190, f02=» S | 6 P DATA TIMEC4 THIS ECB MUST BE DEFINED FOR ANY LINE T P DATA 0 T B P DATA 0 T R P DATA 0 T b P DATA 0 T r P DATA 0 T P DATA 0 T P* INIT POINTER T P DATA SAVBF4 T P IFT TRACE=1 T . P DATA CURTR4 CURRENT TRACE BUFFER POINTE
0x48d58c…48d720 Dummy {f00=0x016e, f01=0x0190, f02=»ATA LOGST4 T P DATA LGEND4 U P XIF U & P IFT LINE4+STAT=2 U 2 ( P DATA STAST4 START STATISTICAL AREA U L P DATA STEND4 U x P XIF U P IFT LINE4=1 U P DATA -100 U P EJECT U P* U P RES 10 CALL FUNCTION STACK U P
0x48d720…48d8b4 (1, 1276) Dummy {f00=0x016f, f01=0x018e, f02=»A FC:LN4 TIMER ECB U P DATA 0,0,0,0,ORTIL1 V P* V 6 PSAVBF4 EQU * V @ P RES SYUBNR V T P* V h P IFT LINE4+TRACE=2 V r PCURTR4 EQU * V PTRAST4 EQU * V P RES 100 TRACE AREA V PTREND4 EQU * V P XIF V P* V P IFT LINE4+LOG
0x48d8b4…48da48 Dummy {f00=0x016f, f01=0x0190, f02=» V | PSTAST4 EQU * W P RORG *+STALNG W PSTEND4 EQU * W 2 P XIF W F P IFT LINE4=1 W R P EJECT W f P* W t P* W ~ 4 P* THIS QUE KEEPS THE ELEMENTS FROM WHICH THE W P* EVENTS ARE READY W P* W P* W PQ4ER EQU * START OF QU
0x48da48…48dbdc Dummy {f00=0x016f, f01=0x0190, f02=» OF QUEUED ELEMENTS W | 6 PQ4ERNN DATA Q4ERFI-Q4ERSA NUMBER OF FREE POSITIONS X ( PQ4ERIP DATA Q4ERSA INSERTION POINTER X V * PQ4EREP DATA Q4ERSA EXTRACTION POINTER X 6 PQ4ERSA RES SYNRRC+SYNRTR+1 RESERVE ALLOWED NUMBER X PQ4ERFI EQU * END OF BLOCK X
0x48dbdc…48dd70 Dummy {f00=0x016f, f01=0x0190, f02=»UM VALUE OF POINTER X x 0 PQ4IRMA DATA Q4IRFI MAXIMUM VALUE OF POINTER Y , PQ4IRNF DATA 0 NUMBER OF QUEUED ELEMENTS Y P 6 PQ4IRNN DATA Q4IRFI-Q4IRSA NUMBER OF FREE POSITIONS Y ( PQ4IRIP DATA Q4IRSA INSERTION POINTER Y * PQ4IREP DATA Q4IRSA EXTRACTION POIN
0x48dd70…48df04 Dummy {f00=0x016f, f01=0x0190, f02=»E Y z P* Z P* Z PQ4AC EQU * START OF QUEUE Z 0 PQ4ACMI DATA Q4ACSA MINIMUM VALUE OF POINTER Z @ 0 PQ4ACMA DATA Q4ACFI MAXIMUM VALUE OF POINTER Z t , PQ4ACNF DATA 0 NUMBER OF QUEUED ELEMENTS Z 6 PQ4ACNN DATA Q4ACFI-Q4ACSA NUMBER OF FREE POSITIO
0x48df04…48e098 Dummy {f00=0x016f, f01=0x0190, f02=»MBER Z l PQ4ACFI EQU * END OF BLOCK [ P* [ . P* [ 8 P* THE SEND QUEUE [ B P* [ Z P* [ d PQ4SC EQU * START OF QUEUE [ n 0 PQ4SCMI DATA Q4SCSA MINIMUM VALUE OF POINTER [ 0 PQ4SCMA DATA Q4SCFI MAXIMUM VALUE OF POINTER [ , PQ4SCNF DATA 0 NU
0x48e098…48e22c Dummy {f00=0x016f, f01=0x0190, f02=»SCEP DATA Q4SCSA EXTRACTION POINTER [ , PQ4SCSA RES SYNRTR RESERVE ALLOWED NUMBER , PQ4SCFI EQU * END OF BLOCK P* ~ P* $ P* THE INTERRUPT COMPLETION QUEUE P* P* PQ4CO EQU * START OF QUEUE 0 PQ4COMI DATA Q4COSA MINIM
0x48e22c…48e3c0 Dummy {f00=0x016f, f01=0x0190, f02=»ATA Q4COFI-Q4COSA NUMBER OF FREE POSITIONS ( PQ4COIP DATA Q4COSA INSERTION POINTER ] 2 * PQ4COEP DATA Q4COSA EXTRACTION POINTER ] ^ 6 PQ4COSA RES SYNRRC+SYUBNR+4 RESERVE ALLOWED NUMBER ] PQ4COFI EQU * END OF BLOCK ] P* ] P* ] P* THE QUEUE
0x48e3c0…48e554 (1, 1277) Dummy {f00=0x016f, f01=0x0190, f02=»A Q4LEFI MAXIMUM VALUE OF POINTER ] 8 PQ4LENF DATA Q4LEFI-Q4LESA NUMBER OF QUEUED ELEMENTS ^ * * PQ4LENN DATA 0 NUMBER OF FREE POSITIONS ^ f ( PQ4LEIP DATA Q4LESA INSERTION POINTER ^ * PQ4LEEP DATA Q4LESA EXTRACTION POINTER ^ PQ4LESA EQU * ^ * P*****
0x48e554…48e6e8 Dummy {f00=0x016f, f01=0x0190, f02=» P DATA Q4LEC1+36 _ P IFF NRLECB=4 _ P DATA Q4LEC1+48 _ 2 P IFF NRLECB=5 _ J P DATA Q4LEC1+60 _ ` P IFF NRLECB=6 _ x P DATA Q4LEC1+72 _ P IFF NRLECB=7 _ P DATA Q4LEC1+84 _ P IFF NRLECB=8 _ P DATA Q4LEC1+96 _ P IFF N
0x48e6e8…48e87c Dummy {f00=0x016f, f01=0x0190, f02=» NRLECB=12 _ P DATA Q4LEC1+144 ` P IFF NRLECB=13 ` * P DATA Q4LEC1+156 ` @ P IFF NRLECB=14 ` X P DATA Q4LEC1+168 ` n P IFF NRLECB=15 ` P XIF ` P IFT LINE4=1 ` PQ4LEFI EQU * END OF BLOCK ` P* ` H P* IN THIS AREA ALL
0x48e87c…48ea10 Dummy {f00=0x016f, f01=0x0190, f02=» P RES NRLECB WORD 2 a P RES NRLECB WORD 3 a P RES NRLECB WORD 4 a 8 P RES NRLECB WORD 5 a R P* a l P* a v P XIF a P IFT LINE4=0 a P* DUMMY DWT FOR LINE 4 a PDW2504 EQU * a P XIF a P IFT
0x48ea10…48eba4 Dummy {f00=0x016f, f01=0x0190, f02=»DUMMY DWT FOR LINE 2 a PDW2502 EQU * b P XIF b 8 P EJECT b L P IFT IOPPC=0 b Z P*** b n 0 P** EQUIVALENCES FOR ALARM RECEIVE DATA b z P*** b P IFT IOPCON=1 b PALARM EQU /C b P XIF b
0x48eba4…48ed38 Dummy {f00=0x016f, f01=0x0190, f02=»/C RECEIVE ALARM DATA FOR IOP b P XIF c & P EJECT c 2 P*** c H $ P*** EQUIVALENCES FOR LINE 1 c T P*** c | PNRSBUF EQU SYUBNR-1 c P*** c : P*** MAX.NUMBER OF ELEMENTS IN INPUT-REQUEST-QUEUE c $ PNREQ01 EQU SY
0x48ed38…48eecc Dummy {f00=0x016f, f01=0x018e, f02=»UPT HANDLER c x PIHLCI1 EQU * d PIH2501 EQU * d 0 ( P ST P,INTSAV SAVE INTERRUPT ADDRESS d L > P CF A15,SAVE8 SAVE A1-A8 ON CF-STACK d x P LDKL A1,LCT1 d J P ABL DRHLRC BRANCH TO
0x48eecc…48f060 Dummy {f00=0x016f, f01=0x0190, f02=» d h PIHLCU1 EQU * e PIH2502 EQU * e $ ( P ST P,INTSAV SAVE INTERRUPT ADDRESS e @ > P CF A15,SAVE8 SAVE A1-A8 ON CF-STACK e l P LDKL A1,LCT1B e 2 P ABL DRHLTR BRANCH TO GEN.PART OF INT.HANDLER e P
0x48f060…48f1f4 (1, 1278) Dummy {f00=0x016f, f01=0x0190, f02=»R e n PIH2503 EQU * f ( P ST P,INTSAV SAVE INTERRUPT ADDRESS f & P CF A15,SAVE8 f R P LDKL A1,LCT2 f v P ABL DRHLRC f P*** f * P*** TRANSMITTER INTERRUPT HANDLER f PIH2504 EQU * f
0x48f1f4…48f388 Dummy {f00=0x016f, f01=0x0190, f02=» DRHLTR f P*** g P IFF SYNRLN=2 g P*** g 2 * P*** INTERRUPT HANDLERS FOR LINE 3 g > P** g l ( P*** RECEIVER INTERRUPT HANDLER g v PIH2505 EQU * g ( P ST P,INTSAV SAVE INTERRUPT ADDRESS g P CF A15,SAVE8 g
0x48f388…48f51c Dummy {f00=0x016f, f01=0x0190, f02=» EQU * g ( P ST P,INTSAV SAVE INTERRUPT ADDRESS h P CF A15,SAVE8 h B P LDKL A1,LCT3B h f P ABL DRHLTR h P*** h P IFF SYNRLN=3 h P*** h * P*** INTERRUPT HANDLERS FOR LINE 4
0x48f51c…48f6b0 Dummy {f00=0x016f, f01=0x0190, f02=» CF A15,SAVE8 h P LDKL A1,LCT4 i $ P ABL DRHLRC i F P*** i f * P*** TRANSMITTER INTERRUPT HANDLER i r PIH2508 EQU * i ( P ST P,INTSAV SAVE INTERRUPT ADDRESS i P CF A15,SAVE8 i
0x48f6b0…48f844 Dummy {f00=0x016f, f01=0x018e, f02=»NOT USED LINES i n P IFF SYNRLN=4 j * P* DUMMY INTERRUPT ADDRESSES FOR LINE 4 j , PIH2507 EQU * j Z PIH2508 EQU * j n P IFF SYNRLN=3 j * P* DUMMY INTERRUPT ADDRESSES FOR LINE 3 j PIH2505 EQU * j PIH2506 EQU * j P IFF SYNRLN=2 j * P* DU
0x48f844…48f9d8 Dummy {f00=0x016f, f01=0x0190, f02=» j P*** k & P** EQUIVALENCES FOR DRIVER STATUS k P** k > 6 PDRHALT EQU 0 HALT BEFORE DISCONNECT BEFORE CONNECT k H 4 PDRWFDC EQU 1 WAIT FOR DISCONNECT BEFORE CONNECT k ( PDRWFCR EQU 2 WAIT FOR CONNECT READY k PDRCONE EQU 3 CONNECT k 2 PDRWFDR
0x48f9d8…48fb6c Dummy {f00=0x016f, f01=0x0190, f02=» P*** l 0 P*** EQUIVALENCES FOR SENDER/RECEIVER STATUS l P*** l D PDRACT EQU 1 ACTIVE l P PDRINAC EQU 2 INACTIVE l j P IFT IOPPC=1 l P*** l ( P*** EQUIVALENCES FOR IOP-INDICATION l P*** l 0 PMIOP EQU /40 MASK FOR IOP IN I/O-INSTRUC
0x48fb6c…48fd00 Dummy {f00=0x016f, f01=0x0190, f02=»NNEC EQU 2 CONNECT-COMMAND l $ PDISCON EQU 1 DISCONNECT COMMAND m " , PWRITIO EQU /A TRANSMIT ON I/O-PROCESSOR m J 0 PWRITPC EQU 2 TRANSMIT ON PROGRAMMED-CHANNEL m z P*** m 0 P*** EQUIVALENCES FOR I/O-INSTRUCTION WITH A2 m P*** m $ PCIOINS EQU /42
0x48fd00…48fe94 (1, 1279) Dummy {f00=0x016f, f01=0x0190, f02=»ION m v $ PSSTINS EQU /4AC0 SST-INSTRUCTION n $ POTRINS EQU /4200 OTR-INSTRUCTION n 4 $ POTR1 EQU /4240 OTR1-INSTRUCTION n $ PABORT EQU 1 ABORT-FLAG FOR OTR1 n $ PINRINS EQU /4A00 INR-INSTRUCTION n P*** n , P*** DISPLACEMENTS ON INPUT REQUEST-QUEUE
0x48fe94…490028 Dummy {f00=0x016f, f01=0x0190, f02=»E1 EQU QEXT+2 1ST ELEMENT IN QUEUE n P*** o * & P*** EQUIVALENCES FOR RETURN-CODES o 6 P*** o ` " PUNKNFC EQU 1 UNKNOWN FILE CODE o l & PCIONAC EQU 2 REQUEST NOT ACCEPTED o > PUNKNDV EQU 3 UNKNOWN DEVICE ADDRESS o $ PWRODST EQU
0x490028…4901bc Dummy {f00=0x016f, f01=0x0190, f02=»N TO IDREQ o n P*** p PTYPECO EQU 1 TYPE=CONNECT p & PTYPEIN EQU 2 TYPE=INPUT FROM LINE p @ $ PTYPEOU EQU 3 TYPE=OUTPUT TO LINE p j PTYPEDI EQU 4 TYPE=DISCONNECT p 2 PTYPEST EQU 5 TYPE = STOP p P*** p P*** EQUIVALENCES
0x4901bc…490350 Dummy {f00=0x016f, f01=0x0190, f02=»RD p ^ : PNOTOPE EQU 1 MODEM NOT OPERABLE q @ PIDLABO EQU /3000 IDLE AND ABORT ONE'S BIT q H P*** q P*** DISPLACEMENTS FOR LCT q P*** q PDRSTAT EQU 0 DRIVER STATUS q 8 PDRRSTA EQU DRSTAT+2 RECEIVER-STA
0x490350…4904e4 Dummy {f00=0x016f, f01=0x0190, f02=»+DEV.ADDR FOR ASSIGNED FC q n P XIF r " P IFT IOPPC=0 r . : PDEVADD EQU DRRSTA+2 DEVICEADDR.OF UNIT ASSIGNED TO FC r B P XIF r 2 PLIECB EQU DEVADD+2 ADDRESS OF LIECB OF REQUEST r ( PBUFADD EQU LIECB+2 ADDRESS OF BUFFER r < PREQLEN EQU BUFADD+2 REQUES
0x4904e4…490678 Dummy {f00=0x016f, f01=0x0190, f02=»E EQU LENGTH+2 ADDRESS OF INPUT-REQUEST-QUEUE r F PRECDAT EQU QUEUE+2 CIO START (ALARM) RECEIVE DATA s 6 < PRETRY EQU RECDAT+2 RETRY COUNTER FOR CIO-START RECEIVER s J PFILCOD EQU RETRY+2 FC ASSIGNED TO RECEIVER/TRANSM.UNIT s
0x490678…49080c Dummy {f00=0x016f, f01=0x0190, f02=» P EJECT t P*** RECEIVER LCT t PLCT1 EQU * t 8 @ P RES 1 DRIVER STATUS OF RECEIVER t T 6 P RES 1 RECEIVER STATUS t J P DATA REDV01 STANDARD DEVICEADDR
0x49080c…4909a0 Dummy {f00=0x016f, f01=0x0190, f02=»ER t Z J P RES 1 REQUESTED LENGTH IN WORDS(VARIABLE) u H P RES 1 REQUESTED LENGTH IN WORDS (FIXED) u X F P DATA QUEU01 ADDRESS OF INPUT-REQUEST-QUEUE u @ P DATA ALARM
0x4909a0…490b34 (1, 1280) Dummy {f00=0x0170, f01=0x0190, f02=» RETURN ADDRESS TO PROTOCOL u v P*** TRANSMITTER LCT v , PLCT1B EQU * v L D P RES 1 DRIVER STATUS OF TRANSMITTER v h : P RES 1 TRANSMITTER STATUS v J P DATA SEDV01
0x490b34…490cc8 Dummy {f00=0x0170, f01=0x0190, f02=» ADDRESS OD I/O-BUFFER v v J P RES 1 REQUESTED LENGTH IN WORDS(VARIABLE) w & H P RES 1 REQUESTED LENGTH IN WORDS (FIXED) w t P*** w P IFF SYNRLN=1 w P*** w P*** LCT'S
0x490cc8…490e5c Dummy {f00=0x0170, f01=0x0190, f02=»REDV02 w ~ P RES 4 x P DATA QUEU02 x * P DATA ALARM x J P RES 2 x j P DATA IDREQ x P*** x P*** TRANSMITTER LCT x PLCT2B EQU * x P RES 2 x P
0x490e5c…490ff0 Dummy {f00=0x0170, f01=0x0190, f02=»E 3 x z P*** y P*** RECEIVER LCT y PLCT3 EQU * y 6 P RES 2 y R P DATA REDV03 y n P RES 4 y P DATA QUEU03 y P DATA ALARM y P RES 2 y P
0x490ff0…491184 Dummy {f00=0x0170, f01=0x0190, f02=» DATA SEDV03 y P RES 4 z P*** z 4 P IFF SYNRLN=3 z @ P*** z b P*** LCT'S FOR LINE 4 z n P*** z P*** RECEIVER LCT z PLCT4 EQU * z P RES 2 z P DATA REDV
0x491184…491318 Dummy {f00=0x0170, f01=0x0190, f02=» DATA IDREQ z P*** { P*** TRANSMITTER LCT { & PLCT4B EQU * { F P RES 2 { ` P DATA SEDV04 { | P RES 4 { P XIF { P EJECT { PLCTTAB EQU * { D P*** T
0x491318…4914ac Dummy {f00=0x0170, f01=0x0190, f02=» DATA LCT1 { P IFF SYNRLN=1 | P DATA LCT2 | > P IFF SYNRLN=2 | P DATA LCT3 | ~ P IFF SYNRLN=3 | P DATA LCT4 | P XIF | P*** | PQUEU01 EQU
0x4914ac…491640 Dummy {f00=0x0170, f01=0x0190, f02=»R | ` 6 P RES 1 EXTRACT-POINTER } 8 P RES NREQ01 ELEMENT-SAVE AREA } D P IFF SYNRLN=1 } PQUEU02 EQU * } $ P DATA NREQ01+NREQ01 } P RES 2 } P RES
0x491640…4917d4 (1, 1281) Dummy {f00=0x0170, f01=0x0190, f02=» P RES NREQ01 ~ P IFF SYNRLN=3 ~ $ PQUEU04 EQU * ~ F $ P DATA NREQ01+NREQ01 ~ Z P RES 2 ~ P RES NREQ01 ~ P XIF ~ P EJECT ~ P*** ~ J P*** SUBROUTINE
0x4917d4…491968 Dummy {f00=0x0170, f01=0x0190, f02=» ~ f 0 P*** A7 = LOGICAL FILECODE OF LINE . P*** ON EXIT : A1, A2 AND A3 ARE DESTROYED < P*** n PINITIO EQU * z B P LD A2,LCTTAB,A2 A2:=ADDRESS OF RECEIVER LCT 2 P*** SET LOGICAL FILECODE IN RECEIVER LC
0x491968…491afc Dummy {f00=0x0170, f01=0x0190, f02=» A5 P EJECT P*** P P*************************************************************************** * P*** CONNECT MODEM FUNCTION ~ P P*************************************************************************** & P*** ON ENTRY:A8:=ADD
0x491afc…491c90 Dummy {f00=0x0170, f01=0x0190, f02=»ILECODE GIVEN IN LIECB p P LDK A2,TYPECO 0 P LDKL A6,CON100 A6:=RETURNADDR.IF LCT FOUND B P RF INP050 v PCON100 EQU * 4 P*** LCT FOUND WITH THE SAME FILECODE AS IN LIECB P IFT IOPPC=1 & P*** SET CHANNEL INDICATION IN LC
0x491c90…491e24 Dummy {f00=0x0170, f01=0x0190, f02=»MIOP A3 := IOP-INDICATION P SC A3,DEVADD,A1 " P SC A3,DEVADD+LCTEND,A1 : PCON120 EQU * Z P XIF n @ P*** GENERATE CIO HALT TO BE SURE OF RECEIVER-HARDWARE-STATUS z P INH P LDK A2,DRHALT 2 P ST A2,DRSTAT,A1 SET DRIVERSTATUS OF REC
0x491e24…491fb8 Dummy {f00=0x0170, f01=0x018e, f02=» OF CORRESPONDING TRANSMITTER-LCT z 0 P ST A2,DRSTAT,A4 SET DRIVERSTATUS OF SENDER * P LD A7,DEVADD,A1 ^ P LDR A3,A7 v P ORKL A3,CIOHLT P EXR A3 P IFT IOLOG=1 P CF A15,LGA3A2 P XIF P RF(NA) RTNE21 P LD A3,DEVAD
0x491fb8…49214c Dummy {f00=0x0170, f01=0x0190, f02=» P LDR A3,A7 P ORKL A3,SSTINS P EXR A3 . P IFT IOLOG=1 > " P CF A15,LGA3A2 LOGG IO-INSTR. R P XIF x P RF(NA) RTNE21 P LDK A2,DRINAC 2 P ST A2,DRRSTA,A1 SET RECEIVER STATUS INACTIVE $ P CM RETRY,A1 RESET RETRY COUNTER
0x49214c…4922e0 Dummy {f00=0x0170, f01=0x0190, f02=»UFFER j P LDR A3,A2 6 P ADK A3,QUELE1 A3:=ADDRESS OF 1ST ELEMENT IN QUEUE 4 P ST A3,2,A2 SET INSERT-POINTER TO FIRST ELEMENT Z > P ST A3,4,A2 SET EXTRACT POINTER TO FIRST ELEMENT IN QUEUE ( P*** CLEAR ELEMENTS IN REQUEST-QUEUE 2 P LDR* A6
0x4922e0…492474 (1, 1282) Dummy {f00=0x0170, f01=0x0190, f02=» P*** GENERATE CIO DISCONNECT P LDK A2,DISCON ( 2 P LDR A3,A7 A3:=DEVICEADDRESS OF RECEIVER-UNIT > P ORKL A3,CIOINS t " P EXR A3 CIO DISCONNECT WITH A2 P IFT IOLOG=1 P CF A15,LGA3A2 P XIF * P RF(NA) RTNE21 DISCONNECT NOT AC
0x492474…492608 Dummy {f00=0x0170, f01=0x0190, f02=»A8,LIECB,A1 P RF RTNOK2 P EJECT & P P*************************************************************************** 4 P*** INPUT FROM LINE P P*************************************************************************** & P*** ON ENTRY:A8:
0x492608…49279c Dummy {f00=0x0170, f01=0x0190, f02=» WORD2=REQUESTED LENGTH IN CHARACTERS P*** 6 & P*** ON EXIT :A8:=ADDRESS OF LIECB B , P*** LIECB:WORD4=RETURN-CODE l P*** PDRINP EQU * P** : P*** SEARCH RECEIVER LCT WITH SAME FILECODE AS IN LIECB P
0x49279c…492930 Dummy {f00=0x0170, f01=0x0190, f02=»CT FOUND;A1=ADDRESS OF LCT PINP060 EQU * " P INH 6 ( P*** TEST IF DRIVER STATUS IS CONNECT B P LDK A3,DRCONE n P CW A3,DRSTAT,A1 , P RF(NE) RTNE31 DRIVER STATUS NOT CONNECT * P*** TEST IF RECEIVER STATUS IS ACTIVE P LDK A7,DRACT
0x492930…492ac4 Dummy {f00=0x0170, f01=0x0190, f02=»INPUT-QUEUE IS FULL ( P LD A3,QUEUE,A1 A3:=ADDRESS OF QUEUE & P LD A2,QINS,A3 A2:=INSERT-POINTER H > P CW A2,QEXT,A3 COMPARE INSERT-POINTER WITH EXTRACT POINTER r ( P RF(NE) INP200 INPUT-QUEUE NOT FULL ( P*** INSERT-POINTER =EXTRACT-POINTER
0x492ac4…492c58 Dummy {f00=0x0170, f01=0x0190, f02=»DR* A7,A2 , P*** SET ADDRESS OF LIECB IN INPUT-QUEUE P LDKL A6,RTNOK B P ABL UPQUPO X P*** RECEIVER NOT ACTIVE l PINP400 EQU * . P*** SAVE REQUESTED LENGTH IN WORDS IN LCT , P LD A2,ECBRL,A8 A2:=LENGTH IN CHARACTERS & P LD A6
0x492c58…492dec Dummy {f00=0x0170, f01=0x0190, f02=» A2,1 & P RF(NN) INP450 A2:=LENGTH IN WORDS P*** LENGTH IS ODD 8 > P*** SAVE FIRST NOT SIGN.CHARACTER AND SAVE-INDICATION R P LDR A4,A2 P LCR A4,A3 " P ST A4,ECBPR,A8 P ANKL A2,/FFF
0x492dec…492f80 Dummy {f00=0x0170, f01=0x0190, f02=»P x P RF(Z) INP452 NO IOP P ADK A2,1 & PINP452 EQU * 8 P XIF L P IFT IOPPC=0 X P IFT IOPCON=1 l D P ADK A2,1 FOR READ LENGTH=WRITE LENGTH P XIF , P ST A2,LENGTH,A1 SAVE NR OF WO
0x492f80…493114 (1, 1283) Dummy {f00=0x0170, f01=0x0190, f02=»A15,WERREA PINP454 EQU * P XIF & P IFT IOPPC=0 2 P IFT IOPCON=1 F 6 P************************************************** P*** FOR IOPROCESSOR ONLY! * P*** PREPARE WER1 AND WER2 INSTRUCTION P CF A15,WERREA .
0x493114…4932a8 Dummy {f00=0x0170, f01=0x0190, f02=»DAT,A1 A2:=CIO START INPUT FLAG x P LD A3,DEVADD,A1 , P ORKL A3,CIOINS D $ P EXR A3 EXECUTE CIO START INPUT P IFT IOLOG=1 P CF A15,LGA3A2 P XIF PRTNE21 EQU * $ P RF(NA) RTNE22 CIO NOT ACCEPTED 0 P ST A8,LIECB,A1 SE
0x4932a8…49343c Dummy {f00=0x0170, f01=0x018e, f02=»A1 PRTNOK2 EQU * > P*** RETURN TO CALLER WITH RETURNCODE OK AND IN ENABLE-MODE P RF RTNOK1 ` P EJECT r P P*************************************************************************** P*** OUTPUT TO LINE P P**************************
0x49343c…4935d0 Dummy {f00=0x0170, f01=0x018e, f02=» j . P*** WORD1=BUFFERADDRESS 0 P*** WORD2=REQUESTED LENGTH : P*** n & P*** ON EXIT :A8:=ADDRESS OF LIECB z , P*** LIECB:WORD4=RETURNCODE P*** PDROUT EQU * > P*** SEARCH SENDER LC
0x4935d0…493764 Dummy {f00=0x0170, f01=0x0190, f02=» POUT050 EQU * P RF STP050 , P*** SENDER LCT FOUND;A1:=ADDRESS OF LCT * POUT100 EQU * Z P INH n ( P*** TEST IF DRIVER STATUS IS CONNECT z P LDK A3,DRCONE P CW A3,DRSTAT,A1 PRTNE31 EQU * 0 P RF(NE) RTNE32 DRIVER STATUS IS
0x493764…4938f8 Dummy {f00=0x0170, f01=0x0190, f02=»ESTS ALLOWED n P*** AT THIS MOMENT P P*************************************************************************** 0 8 P*** DRIVER STATUS IS CONNECT;SENDER STATUS INACTIVE P P************************************************************************
0x4938f8…493a8c Dummy {f00=0x0170, f01=0x0190, f02=»1 A2:=NUMBER OF WORDS TO OUTPUT P LDR A7,A2 ( , P RF(NN) OUT200 EVEN NUMBER OF CHARACTERS : P*** ODD NUMBER OF CHARACTERS j P ANKL A2,/FFF & P ADK A2,1 A2:=NUMBER OF WORDS + 1 POUT200 EQU * 0 P ST A2,REQLEN,A1 SAVE NUMBER OF WORDS
0x493a8c…493c20 Dummy {f00=0x0170, f01=0x0190, f02=»NNEL d P XIF P IFT IOPPC=0 P IFT IOPCON=1 4 . P****************************************** J P*** FOR IOPROCESSOR ONLY! | * P*** PREPARE WER1 AND WER2 INSTRUCTION P CF A15,WERWRI 2 P LDK A2,WRITIO A2:=WRITE
0x493c20…493db4 (1, 1284) Dummy {f00=0x0171, f01=0x0190, f02=» ANK A3,MIOP P RF(NZ) OUT002 IOP P LDK A2,WRITPC . P RF OUT004 D POUT002 EQU * V P CF A15,WERWRI j P LDK A2,WRITIO POUT004 EQU * P XIF > P*** TEST IF ODD NUMBER OF CHARACTERS HAS TO BE TRANSMITTED P LDR A7,A7
0x493db4…493f48 Dummy {f00=0x0171, f01=0x0190, f02=»A2,/800 ONLY ONE CHARACTER SIGNIFICANT IN P*** LAST WORD 2 POUT350 EQU * J P*** PREPARE CIO START OUTPUT ^ P LD A3,DEVADD,A1 P ORKL A3,CIOINS $ P EXR A3 EXECUTE CIO START OUTPUT P IFT IOLOG=1 P CF A15,LGA3A2 P XIF
0x493f48…4940dc Dummy {f00=0x0171, f01=0x018e, f02=»IECB,A1 SET ADDRESS OF LIECB IN LCT . P ST A6,BUFADD,A1 SET BUFFER ADDRESS IN LCT , PRTNOK1 EQU * ^ > P*** RETURN TO CALLER WITH RETURNCODE OK AND IN ENABLE-MODE r P RF RTNOK P EJECT P P****************************************************
0x4940dc…494270 Dummy {f00=0x0171, f01=0x0190, f02=» B $ P*** ON ENTRY:A8=ADDRESS OF LIECB ( P*** LIECB:WORD0=FILECODE 0 P*** & P*** ON EXIT :A8:=ADDRESS OF LIECB h , P*** LIECB:WORD4=RETURNCODE P*** PDRSTOP EQU * : P*** SEARCH RECEIVER LCT WITH SAME FILE
0x494270…494404 Dummy {f00=0x0171, f01=0x018e, f02=»SCALCT 0 P*** RECEIVER LCT FOUND;ADDRESS OF LCT IN A1 PSTP100 EQU * B P LDR A7,A1 V < P ADK A7,DRSTAT A7:=ADDRESS OF DRIVER-STATUS OF RECEIVER h ( P*** TEST IF DRIVER STATUS IS CONNECT P INH P LDK A4,DRCONE P CWR* A4,A7
0x494404…494598 Dummy {f00=0x0171, f01=0x018e, f02=» h P LDK A6,DRACT P CW A6,DRRSTA,A1 P RF(E) STP150 6 * P*** SET DRIVER-STATUS OF RECEIVER STOP L P LDK A3,DRSTEX z P STR A3,A7 P RF STP300 PSTP150 EQU * P*** RECEIVER IS ACTIVE P LD A3,DEVADD,A1 P ORKL A3,C
0x494598…49472c Dummy {f00=0x0171, f01=0x0190, f02=» P*** FOR STOP PSTP300 EQU * P*** TEST IF SENDER IS ACTIVE . P LDK A7,LCTEND R < P ADR A7,A1 A7:=ADDRESS OF CORRESPONDING TRANSMITTER-LCT h P CW A6,DRSSTA,A7 P RF(E) STP350 ( P*** SET DRIVER-STATUS OF SENDER STOP P LDK A
0x49472c…4948c0 Dummy {f00=0x0171, f01=0x0190, f02=» P ORKL A3,OTR1 * P LDK A2,ABORT A2:=ABORT-FLAG FOR OTR1 $ P EXR A3 EXECUTE OTR1 INSTRUCTION L P IFT IOLOG=1 t P CF A15,LGA3A2 P XIF 0 P ST A4,DRSTAT,A7 SET DRIVER STATUS STOP WAIT P RF RTNOK P EJECT P P**********
0x4948c0…494a54 (1, 1285) Dummy {f00=0x0171, f01=0x0190, f02=»***************************************** n & P*** ON ENTRY:A8:=ADDRESS OF LIECB 2 * P*** LIECB:WORD0=FILECODE P*** & P*** ON EXIT :A8:=ADDRESS OF LIECB , P*** LIECB:WORD4=RETURNCODE P*** PDRDISC EQU *
0x494a54…494be8 Dummy {f00=0x0171, f01=0x0190, f02=»SCALCT 0 P*** RECEIVER LCT FOUND;IN A1:=ADDRESS OF LCT PDIS100 EQU * B P INH V & P*** TEST IF DRIVER STATUS IS STOP b P LDK A3,DRSTEX P CW A3,DRSTAT,A1 2 P RF(NE) ERR030 WRONG DRIVER STATUS OF RECEIVER 0 P*** TEST IF DRIVER STATU
0x494be8…494d7c Dummy {f00=0x0171, f01=0x0190, f02=»NSTRUCTION x P LDK A2,DISCON P LD A3,DEVADD,A1 ( P ORKL A3,CIOINS @ " P EXR A3 EXECUTE CIO DISCONNECT X P IFT IOLOG=1 ~ P CF A15,LGA3A2 P XIF $ P RF(NA) ERR020 CIO NOT ACCEPTED : P*** SET DRIVERSTATUS WAIT FOR NORMAL DISCONN
0x494d7c…494f10 Dummy {f00=0x0171, f01=0x0190, f02=»TEND,A1 SET DRIVER STATUS OF SENDER PRTNOK EQU * , < P*** RETURN TO CALLER WITH RETURN CODE OK AND ENABLE-MODE @ , P*** SET RETURN-CODE OK; SET ENABLE-MODE P LDK A3,0 P RF RETURN P EJECT P*** P*** $ P*** RETURN TO
0x494f10…4950a4 Dummy {f00=0x0171, f01=0x0190, f02=»DK A3,UNKNFC P RF RETURN P*** & P*** CIO NOT ACCEPTED 2 P*** N PERR020 EQU * Z , P*** TEST IF DEVICE ADDRESS UNKNOWN n P RF(O) ERR050 2 P*** SET IN LIECB-RETURN-CODE:CIO NOT ACCEPTED! P LDK A3,CIONAC
0x4950a4…495238 Dummy {f00=0x0171, f01=0x0190, f02=»DRIVER STATUS l P LDK A3,WRODST P RF RETURN , P*** > , P*** INPUT-QUEUE IS FULL OR SENDER ACTIVE J P*** z PERR040 EQU * D P*** SET IN LIECB-RETURN-CODE: NO MORE INPUT OR OUTPUT ALLOWED AT . P*** THIS MOM
0x495238…4953cc Dummy {f00=0x0171, f01=0x0190, f02=»ECB-RETURNCODE : DEVICE ADDRESS UNKNOWN ~ P LDK A3,UNKNDV 0 P*** T P*** ` PRETURN EQU * l H P*** SET ERROR-RETURN-CODE INLIECB;SET ENB-MODE BEFORE RTN TO CALLER P ST A3,ECBRC,A8 P ENB P RTN A5 P EJECT
0x4953cc…495560 Dummy {f00=0x0171, f01=0x018e, f02=»EN ADDRESS: RECEIVER-LCT WANTED , P*** ODD ADDRESS : SENDER-LCT WANTED ( P*** A8:=LIECB-ADDRESS X * P*** A2:=TYPE OF REQUEST v P*** B P*** ON EXIT :A1:=ADDRESS OF LCT CONTAINING SAME FC AS IN LIECB P*** PSCALCT
0x495560…4956f4 (1, 1286) Dummy {f00=0x0171, f01=0x018e, f02=» P SUK A4,1 " P RB(N) ERR010 FILECODE UNKNOWN P ADK A2,2 @ " P LDR* A1,A2 A1:=ADDRESS OF LCT R * P LD A3,FILCOD,A1 A3:=FILECODE FROM LCT x P CC A3,1,A8 P RB(NE) SCA100 TRY NEXT LCT 0 P*** LCT FOUND WITH SAME FILECODE AS IN LIE
0x4956f4…495888 Dummy {f00=0x0171, f01=0x0190, f02=» P D P*** 0 IF RECEIVER-LCT WANTED : P RF(Z) SCA200 RECEIVER LCT FOUND P 6 P*** RECEIVER LCT FOUND BUT SENDER LCT WANTED < P ADK A6,1 ADJUST RETURN ADDRESS 2 P
0x495888…495a1c Dummy {f00=0x0171, f01=0x0190, f02=»*************************************************************** ( P*** COMMON SENDER INTERRUPT HANDLER H P P*************************************************************************** t 4 P*** ON ENTRY:A1:=ADDRESS OFSPECIFIED SENDER-LCT 2 P***
0x495a1c…495bb0 Dummy {f00=0x0171, f01=0x0190, f02=»ODE ON LEVEL 48 f * P*** IF INTERRUPT IS EXPECTED 2 P*** OTHERWISE RETURN AFTER INTERRUPT F P*** | PDRHLTR EQU * P*** P LDR A7,A1 6 P ADK A7,DRSTAT A7:=ADDR.OF DRIVER-STATUS OF SENDER P LD A6,DEV
0x495bb0…495d44 Dummy {f00=0x0171, f01=0x0190, f02=»CT P P*************************************************************************** P*** DRIVER STATUS IS CONNECT ^ P P*************************************************************************** * P*** TEST IF SENDER STATUS IS INACTIVE P CW
0x495d44…495ed8 Dummy {f00=0x0171, f01=0x0190, f02=»,SSTINS P EXR A3 P IFT IOLOG=1 P CF A15,LGA3A2 4 P XIF J PSIN150 EQU * V P*** RETURN AFTER INTERRUPT j P ABL RTNA15 PSIN200 EQU * P*** SENDER STATUS IS ACTIVE P IFT IOPPC=1 P*** TEST IF IOP OR PC
0x495ed8…49606c Dummy {f00=0x0171, f01=0x0190, f02=»PUT j P LDR A3,A6 P ORKL A3,OTRINS , P EXR A3 EXECUTE OTR-INSTRUCTION WITH A2 6 P IFT IOLOG=1 f P CF A15,LGA3A2 z P XIF P IFT IOPPC=1 P RF(NA) SIN260 : P*** CALCULATE BUFFERADDRESS FOR NEXT WORD TO TRANSMIT P LDK
0x49606c…496200 Dummy {f00=0x0171, f01=0x018e, f02=»EW LENGTH x $ P RB(NZ) SIN150 NOT THE LAST WORD $ P*** LAST WORD; PREPARE CIO HALT : P LDR A3,A6 b P ORKL A3,CIOHLT t ( P EXR A3 EXECUTE CIO HALT INSTRUCTION P IFT IOLOG=1 P CF A15,LGA3A2 P XIF P IFT IOPPC=1 P*** RE
0x496200…496394 (1, 1287) Dummy {f00=0x0171, f01=0x0190, f02=» . P LD* A2,BUFADD,A1 A2:=NEXT WORD TO OUTPUT P LDR A3,A6 6 P ORKL A3,OTRINS H , P EXR A3 EXECUTE OTR-INSTRUCTION WITH A2 ` P IFT IOLOG=1 P CF A15,LGA3A2 P XIF P IFT IOPPC=0 P IFT IOPCON=0 P RF(NA) SIN2
0x496394…496528 Dummy {f00=0x0171, f01=0x018e, f02=»D | P LD A3,REQLEN,A1 P SUK A3,1 " & P ST A3,REQLEN,A1 STORE NEW LENGTH 4 $ P RB(NZ) SIN150 NOT THE LAST WORD ^ $ P*** LAST WORD; PREPARE CIO HALT P LDR A3,A6 P ORKL A3,CIOHLT ( P EXR A3 EXECUTE CIO HALT INSTRUCTION P IFT
0x496528…4966bc Dummy {f00=0x0171, f01=0x0190, f02=» P RB SIN150 P XIF PSIN260 EQU * * & P*** INTERRUPT OF CIO HALT OR OTR1 > & P LDKL A5,SIN268 A5:=RETURNADDRESS h P RF SIN400 PSIN268 EQU * P LD A2,ECBRL,A8 6 P ST A2,ECBEL,A8 COPY REQUESTED LENGTH IN EFFECTIVE
0x4966bc…496850 Dummy {f00=0x0171, f01=0x0190, f02=»A1,LCTEND A1:=ADDRESS OF RECEIVER LCT ~ P ABL SWLRID 4 P EJECT H PSIN300 EQU * V ( P*** TEST IF DRIVER STATUS STOP WAIT j P LDK A3,DRSTWA P CWR* A3,A7 : P RB(NE) SIN100 RESET INTERRUPT;RETURN AFTER INTERRUPT N P**********
0x496850…4969e4 Dummy {f00=0x0171, f01=0x0190, f02=»************************************************ v 6 P CW A4,DRSSTA,A1 TEST IF SENDER STATUS IS INACTIVE 8 8 P RB(E) SIN100 RESET INTERRUPT;RETURN AFTER INTERRUPT r P*** SENDER STATUS IS ACTIVE & P LDKL A5,SIN500 A5:=RETURNADDRESS PSIN400 EQU *
0x4969e4…496b78 Dummy {f00=0x0171, f01=0x0190, f02=» P XIF $ P RB(NA) SIN150 SST-NOT ACCEPTED * P ANK A2,3 DISTROY NOT SIGNIFICANT BITS 8 P ORKL A2,/8000 f ( P LD A8,LIECB,A1 A8:=ADDRESS OF LIECB | & P ST A2,ECBRC,A8 STORE STATUS WORD 0 P ST A4,DRSSTA,A1 SET SENDER-STATUS INACTIVE & P A
0x496b78…496d0c Dummy {f00=0x0171, f01=0x0190, f02=»B SIN280 RETURN TO IDREQ P*** P EJECT , P P*************************************************************************** : * P*** COMMON RECEIVER-INTERRUPT HANDLER P P***************************************************************************
0x496d0c…496ea0 Dummy {f00=0x0171, f01=0x0190, f02=»ON EXIT :A7:=TYPE 6 P*** RETURN TO IDREQ IN ENABLE-MODE ON LEVEL 48 IF P*** INTERRUPT IS EXPECTED T * P*** OTHERWISE RETURN AFTER INTERRUPT v P*** PDRHLRC EQU * P*** P LD A5,DEVADD,A1 P ANK A5,/FF P LDR
0x496ea0…497034 (1, 1288) Dummy {f00=0x0172, f01=0x0190, f02=»NA) INT250 " P*** TEST IF RECEIVER IS ACTIVE P LDK A3,DRACT 8 P CW A3,DRRSTA,A1 N P RF(E) INT200 f * P*** RECEIVER NOT ACTIVE ;STOP RECEIVER | P LDR A3,A5 P ORKL A3,CIOHLT P EXR A3 P IFT IOLOG=1 P CF A15,LGA3A2
0x497034…4971c8 Dummy {f00=0x0172, f01=0x0190, f02=»TEST IF IOP OR PC P LC A3,DEVADD,A1 P ANK A3,MIOP 2 P RF(NZ) INT250 IOP F " P*** RECEIVER STATUS IS ACTIVE ` 6 P LD A3,BUFADD,A1 A3:=BUFFERADDRESS WHERE TO STORE P STR A2,A3 INPUT-WORD $ P*** DECREMENT NR OF INPUT WORDS P L
0x4971c8…49735c Dummy {f00=0x0172, f01=0x018e, f02=»,A1 GET ECB ADDRESS 0 P LD A2,ECBPR,A2 GET SAVED CHAR AND CONDITION , P RB(NN) INT090 CHAR MUST NOT BE RESTORED P P** 4 P** THE SAVED CHAR MUST BE RESTORED IN THE BUFFER 2 P** BECAUSE THE REQUESTED LENGTH IS ODD AND THE 6 P** CONTROLLER ON
0x49735c…4974f0 Dummy {f00=0x0172, f01=0x0190, f02=» P*** NOT LAST WORD PINT220 EQU * P LDK A3,2 2 < P ADS A3,BUFADD,A1 INCREMENT BUFFERADDRESS FOR NEXT WORD D & P RB INT090 RETURN AFTER INTERRUPT P XIF P IFT IOPPC=0 P IFT IOPCON=0 " P*** RECEIVER STA
0x4974f0…497684 Dummy {f00=0x0172, f01=0x0190, f02=»WORDS v P LD A6,REQLEN,A1 P SUK A6,1 & P ST A6,REQLEN,A1 8 P*** TEST IF LAST WORD P P RF(P) INT220 NOT LAST n $ P LD A2,LIECB,A1 GET ECB ADDRESS 0 P LD A2,ECBPR,A2 GET SAVED CHAR AND CONDITION , P RB(NN) INT090 CHAR MUST NOT BE
0x497684…497818 Dummy {f00=0x0172, f01=0x0190, f02=»** CONTROLLER ONLY STORES AN UPROUNDED EVEN NUMBER $ P** OF CHARACTERS IN THE BUFFER. : " P SC A2,1,A3 RESTORE CHARACTER b P RB INT090 P*** NOT LAST WORD PINT220 EQU * P LDK A3,2 < P ADS A3,BUFADD,A1 INCREMENT BUFFERADDRESS FOR
0x497818…4979ac Dummy {f00=0x0172, f01=0x0190, f02=»A3,SSTINS , P EXR A3 EXECUTE SST-INSTRUCTION WITH A2 P IFT IOLOG=1 B P CF A15,LGA3A2 V P XIF l 6 P RB(NA) INT090 SOMETHING WRONG!!SST NOT ACCEPTED!! x ( P LD A8,LIECB,A1 A8:=ADDRESS OF LIECB 6 P*** TEST IF DRIVER STATUS IS CONNECT OR ST
0x4979ac…497b40 Dummy {f00=0x0172, f01=0x0190, f02=» PINT254 EQU * L P************************************************************************ . P*** DRIVER-STATUS IS CONNECT OR STOP WAIT l L P************************************************************************ * P*** TEST IF RECEIVER STATU
0x497b40…497cd4 (1, 1289) Dummy {f00=0x0172, f01=0x0190, f02=»ROL-STATUS-WORD IN ECBRC v P IFT IOPPC=1 P*** TEST IF IOP OR PC 4 P LC A3,DEVADD,A1 R P ANK A3,MIOP j P RF(Z) INT255 NO IOP ~ * P*** IO-PROCESSOR;GET NR.OF WORDS READ P LDR A3,A5 P SLL A3,1 P ORKL A3,RER P EXR A3
0x497cd4…497e68 Dummy {f00=0x0172, f01=0x0190, f02=»CON=1 * P*** IO-PROCESSOR;GET NR.OF WORDS READ P LDR A3,A5 < P SLL A3,1 N P ORKL A3,RER ` P EXR A3 t P ANKL A2,/FFF * P ST A2,REQLEN,A1 SAVE LENGTH TEMPORARY P XIF P LD A2,ECBRC,A8 ( P*** TEST IF MODEM NOT O
0x497e68…497ffc Dummy {f00=0x0172, f01=0x018e, f02=» TEST IF DRIVER STATUS 'STOP WAIT' P LDK A3,DRSTWA * P CW A3,DRSTAT,A1 @ P RF(E) INT260 PROCESS INPUT X P*** DRIVER STATUS 'CONNECT' | ( P*** TEST IF IDLE OR ABORT ONE'S P LDKL A3,IDLABO P TM A3,A2
0x497ffc…498190 Dummy {f00=0x0172, f01=0x0190, f02=» P*** CARRIERR OFF BIT NOT SET ( P*** TEST IF LENGTH LESS THAN MINIMUM ( P LDK A3,1 T P AD A3,REQLEN,A1 f P CW A3,LENGTH,A1 ~ * P RF(G) INT258 RETRY: NO INPUT AT ALL! 2 P RF(L) INT260 ACCEPT: MORE THAN TWO CHARACTERS P LDKL A3,/F00
0x498190…498324 Dummy {f00=0x0172, f01=0x018e, f02=» P*** CARRIER-OFF BIT SET " P*** TEST IF ALARM RECEIVE DATA $ P LD A3,RECDAT,A1 J P ANK A3,1 b P RF(Z) INT260 YES! t PINT258 EQU * P*** RETRY CIO START INPUT " P CM ECBRC,A8 CLEAR RETURN CODE . P LD A2,RETRY,A1 A2 :=
0x498324…4984b8 Dummy {f00=0x0172, f01=0x0190, f02=» $ P ST A2,ECBRC,A8 SAVE RETURNCODE P RF INT260 0 PINT259 EQU * B ( P ST A2,RETRY,A1 STORE RETRY COUNTER V " P LD A6,ECBBA,A8 " P LD A2,LENGTH,A1 " P ST A2,REQLEN,A1 P IFT IOPPC=0 P
0x4984b8…49864c Dummy {f00=0x0172, f01=0x0190, f02=»OCESSOR P CF A15,WERREA T P******************************************************************************** 4 P XIF P IFT IOPPC=1 P*** TEST IF IOP OR PC P LC A3,DEVADD,A1 P ANK A3,MIOP P RF(Z) INT
0x49864c…4987e0 Dummy {f00=0x0172, f01=0x0190, f02=» CF A15,WERREA T P******************************************************************************** PINT25A EQU * v P XIF " P ST A6,BUFADD,A1 P LD A2,RECDAT,A1 P LDR A3,A5 P ORKL A3,CIOINS P EXR A3
0x4987e0…498974 (1, 1290) Dummy {f00=0x0172, f01=0x0190, f02=» COUNTER x , P*** TEST IF INPUT-REQUEST-QUEUE IS EMPTY 6 P LD A3,QUEUE,A1 A3:=ADDRESS OF INPUT-REQUEST-QUEUE @ & P LD A2,QEXT,A3 A2:=EXTRACT-POINTER z P LDR* A7,A2 . P RF(Z) INT300 INPUT-REQUEST-QUEUE IS EMPTY ( P*** INPUT-REQUEST-QUEUE IS NOT
0x498974…498b08 Dummy {f00=0x0172, f01=0x0190, f02=»NZ) INT264 P STR A8,A2 P RF INT266 $ PINT264 EQU * 6 P LD A8,LIECB,A1 J 2 P ST A7,LIECB,A1 STORE ADDRESS OF LIECB IN LCT b " P CMR A2 CLEAR ELEMENT IN QUEUE PINT266 EQU * & P*** CALCULATE NEW EXTRACT-POINTER P ADK A2,2
0x498b08…498c9c Dummy {f00=0x0172, f01=0x0190, f02=»ST ELEMENT IN QUEUE r P LDK A2,QUELE1 P ADR A2,A3 2 PINT270 EQU * D P ADK A3,QINS X P LDR A7,A7 l P RF(Z) INT274 ~ P ADK A3,2 PINT274 EQU * 2 P STR A2,A3 STORE ADDRESS IN SPECIFIED POINTER P ABR A6 : P*** CALC
0x498c9c…498e30 Dummy {f00=0x0172, f01=0x0190, f02=» LD A6,ECBBA,A7 P ADR A3,A6 P SRC A4,1 @ P RF(NN) INT280 R > P*** SAVE FIRST NOT SIGN.CHARACTER AND SAVE-INDICATION h P LDR A2,A4 P LCR A2,A3 " P ST A2,ECBPR,A7
0x498e30…498fc4 Dummy {f00=0x0172, f01=0x0190, f02=»UFADD,A1 STORE BUFFERADDRESS OF NEW REQUEST P* 4 P IFT IOPPC=0 > P IFT IOPCON=1 R . P****************************************** h P*** IOPROCESSOR $ P*** FOR READ-LENGTH=WRITE-LENGTH P IM ECBEL,A7 * P*** PREPARE WER1 AND WER2
0x498fc4…499158 Dummy {f00=0x0172, f01=0x0190, f02=»*********** r P XIF P IFT IOPPC=1 P*** TEST IF IOP OR PC 4 P LC A2,DEVADD,A1 R P ANK A2,MIOP j P RF(Z) INT290 NO IOP ~ . P****************************************** P*** IOPROCESSOR $ P*** FOR READ-LENGTH=WRITE-LENGTH
0x499158…4992ec Dummy {f00=0x0172, f01=0x0190, f02=» A15,WERREA . P***************************************** PINT290 EQU * F P XIF Z P*** PREPARE CIO START INPUT f @ P LD A2,RECDAT,A1 A2:=CIO START INPUT FLAG P LDR A3,A5 P ORKL A3,CIOINS P EXR A3 P
0x4992ec…499480 Dummy {f00=0x0172, f01=0x0190, f02=»A1 P RF(NE) INT294 P*** STOP INPUT IMMEDIATELY P LDR A3,A5 B P ORKL A3,CIOHLT T P EXR A3 l P IFT IOLOG=1 | P CF A15,LGA3A2 P XIF PINT294 EQU * P LDK A4,DRINAC P RF INT310 P*** PINT300 EQU *
0x499480…499614 (1, 1291) Dummy {f00=0x0172, f01=0x0190, f02=»STOP WAIT v P LDK A3,DRSTWA P CW A3,DRSTAT,A1 ( , P RF(NE) INT310 DRIVER STATUS IS CONNECT @ " P*** DRIVER STATUS IS STOP WAIT p * P*** SET DRIVER STATUS OF RECEIVER STOP P LDK A3,DRSTEX P ST A3,DRSTAT,A1 PINT310 EQU * P
0x499614…4997a8 Dummy {f00=0x0172, f01=0x0190, f02=»SKED FOR j P SUR A3,A2 . P LDR A2,A3 A2:=NUMBER OF WORDS REALLY READ " $ P*** CONVERT WORDS TO CHARACTERS T P SLL A2,1 | < P*** TEST IF ONLY ONE CHARACTER IN LAST WORD SIGNIFICANT P LD A3,ECBRC,A8 P SLL A3,4 P RF(NN) INT350
0x4997a8…49993c Dummy {f00=0x0172, f01=0x0190, f02=»ACTERS READ IN LIECB l , P LDKL A3,/8000 PRESET RETURN CODE BIT 0 6 P CW A2,ECBRL,A8 EFFECTIVE LENGTH BIGGER THAN REQ. L P RF(NG) INT355 NO,NOT BIGGER . P ORK A3,INCLEN SET INCORRECT LENGTH ERROR PINT355 EQU * < P ORS A3,ECBRC,A8 SET EVE
0x49993c…499ad0 Dummy {f00=0x0172, f01=0x0190, f02=»INACTIVE v 8 P*** SET REQUESTED LENGTH OF DEQUEUED REQUEST IN LCT P LD A2,ECBEL,A7 L P ST A2,REQLEN,A1 d P ST A2,LENGTH,A1 | P*** P*** PINT360 EQU * P LDK A7,TYPEIN PINT380 EQU * P ST A7,ECBPR,A8 . P*** SW
0x499ad0…499c64 Dummy {f00=0x0172, f01=0x018e, f02=»ECT T PINT400 EQU * P CWK A3,DRWFDC P RF(NE) INT500 6 N P************************************************************************* L < P*** DRIVER STATUS IS WAIT FOR DISCONNECT BEFORE CONNECT N P******************************************
0x499c64…499df8 Dummy {f00=0x0172, f01=0x0190, f02=» P EXR A3 CIO CONNECT WITH A2 P IFT IOLOG=1 , P CF A15,LGA3A2 @ P XIF V * P RF(NA) INT700 RETURN AFTER INTERRUPT b P*** CONNECT ACCEPTED P LDK A3,DRWFCR > P ST A3,DRSTAT,A1 SET DRIVER STATUS WAIT FOR CONNECT READY P***
0x499df8…499f8c Dummy {f00=0x0172, f01=0x0190, f02=» P CWK A3,DRWFCR P RF(NE) INT600 N P************************************************************************* 4 0 P*** DRIVER STATUS IS WAIT FOR CONNECT READY N P*************************************************************************
0x499f8c…49a120 Dummy {f00=0x0172, f01=0x0190, f02=»OFF BIT SET j ( P*** TEST IF CARRIER-OFF SIGNIFICANT P LD A3,RECDAT,A1 @ P ANK A3,1 X 2 P RF(Z) INT650 ERROR:MODEM NOT OPERABLE AND/OR j P*** CARRIER-OFF SET $ P*** CARRIER-OFF NOT SIGNIFICANT " P*** TEST IF MODEM NOT OPERABLE
0x49a120…49a2b4 (1, 1292) Dummy {f00=0x0173, f01=0x0190, f02=»R STATUS:CONNECT! | PINT550 EQU * P ORKL A2,/8000 . P ST A2,ECBRC,A8 D P*** SET DRIVER STATUS P ST A3,DRSTAT,A1 z P ST A3,DRSTAT+LCTEND,A1 & P RF SWLRID SWITCH LEVEL AND RETURN P EJECT P*** PINT600 EQU * 4
0x49a2b4…49a448 Dummy {f00=0x0173, f01=0x018e, f02=»*************************************** n 2 P*** DRIVER-STATUS IS WAIT FOR DISCONNECT READY 0 N P************************************************************************* f PINT650 EQU * , P LDK A3,DRDICO DRIVER STATUS:DISCONNECT! P RB INT550
0x49a448…49a5dc Dummy {f00=0x0173, f01=0x0190, f02=» . P*** SWITCH TO LEVEL 48 AND RETURN TO IDREQ PSWLRID EQU * 6 P CF A15,SWL48 J P** RETURN TO IDREQ ` P ABI APROT,A1 z P*** 6 P*** SWITCH TO LEVEL 48 WITHOUT ENABLING INTERRUPTS PSWL48 EQU * P STR A1,A15 SAVE A1 P L
0x49a5dc…49a770 Dummy {f00=0x0173, f01=0x0190, f02=» P IFT IOPCON=1 P EJECT P*** 0 P*** < 4 P*** SUBROUTINE FOR WRITE EXTERNAL REGISTERS H @ P*** ENTRY-POINT: WERWRI WRITE EXTERNAL REGISTERS(WRITE) @ P*** ENTRY-POINT: WERREA WRITE EXTERNAL REGISTERS(READ) @ P
0x49a770…49a904 Dummy {f00=0x0173, f01=0x0190, f02=»=LENGTH IN WORDS z ( P*** A6:=BUFFERADDRESS P*** D * P*** ON EXIT: A2,A3,ARE DESTROYED P P*** ~ P*** PWERWRI EQU * 6 P ORKL A2,/4000 SET WRITE FLAG PWERREA EQU * 8 P
0x49a904…49aa98 Dummy {f00=0x0173, f01=0x0190, f02=» ORKL A3,WER @ P EXR A3 WRITE FIRST CONTROL WORD P ORK A3,1 P LDR A2,A6 z @ P EXR A3 WRITE SECOND CONTROL WORD P ADKL A15,4 H P A
0x49aa98…49ac2c Dummy {f00=0x0173, f01=0x0190, f02=» 4 P*** SUBROUTINE FOR WRITE EXTERNAL REGISTERS @ P*** ENTRY-POINT: WERWRI WRITE EXTERNAL REGISTERS(WRITE) @ @ P*** ENTRY-POINT: WERREA WRITE EXTERNAL REGISTERS(READ) @ P*** CALLING SEQUENCE: CF A15,WERWRI RESP.CF A15,WERREA
0x49ac2c…49adc0 Dummy {f00=0x0173, f01=0x0190, f02=» P*** * P*** ON EXIT: A2,A3,ARE DESTROYED P*** > P*** J PWERWRI EQU * V 6 P ORKL A2,/4000 SET WRITE FLAG r PWERREA EQU * 8 P ORKL A2,/8000 SET WORD TRANSFER " P
0x49adc0…49af54 (1, 1293) Dummy {f00=0x0173, f01=0x0190, f02=» WRITE FIRST CONTROL WORD | P ORK A3,1 0 P LDR A2,A6 N @ P EXR A3 WRITE SECOND CONTROL WORD n P ADKL A15,4 H P ABR* A15 RETURN TO CALLER IN
0x49af54…49b0e8 Dummy {f00=0x0173, f01=0x0190, f02=»************ Z P* * P* PURPOSE LOGGING OF I/O INSTRUCTIIONS P* L * P* ENTRY VIA DEDICATED ROUTINE (LGAXAY) V * P* X= REGISTER # CONTAINING I/O INSTR. * P* Y= REGISTER # CONTAINING BOU VALUE P* P* EXIT NO REGISTERS CHANGED
0x49b0e8…49b27c Dummy {f00=0x0173, f01=0x0190, f02=» 0 P* LOGGING ARRAY (START ADDRESS IN LOGBUF). 6 P* THE NUMBER OF WORDS DEPENDS ON THE LOGGING MODE 8 " P* (SEE ASSEMBLY CONDITIONS). r " P* MODE = 2 : COMPRESSED MODE P* MODE = 3 : EXTENDED MODE < P* THE ARRAY IS USED CYCLICLY (LENGTH
0x49b27c…49b410 Dummy {f00=0x0173, f01=0x0190, f02=»ACH TIME THE INDEX IS RESET TO ZERO, THE CYCLIC COUNTER 4 P* IS INCREMENTED (SECOND WORD OF LOGGING AREA) @ P* x ( P* LAY-OUT LOGGING ELEMENT (EXTENDED) ( P* WORD 0 BIT 0-15 : I/O INSTRUCTION " P* WORD 1 BIT 0-15 : BOU VALUE P* WORD 2
0x49b410…49b5a4 Dummy {f00=0x0173, f01=0x018e, f02=» : BIT 0.AND.1 OF PSW (LEVEL IND.) ( P* BIT 3 : BIT 9 OF PSW (INH/ENB) . 6 P* BIT 4-7 : BIT 1-4 OF I/O INSTR. (OPCODE (+MD)) Z 2 P* BIT 8-15 : OF I/O INSTR. (DNCUA-MD/EXT.REG) " P* WORD 1 BIT 0-15 : BOU VALUE P* P* WORKING STOR
0x49b5a4…49b738 Dummy {f00=0x0173, f01=0x0190, f02=» h $ P* = FIRST WORD OF LOGGING AREA & P* ACYCLE ADDRESS OF CYCLE COUNTER 0 $ P* = SECOND WORD OF LOGGING AREA Z P* P* AUTHOR J.DE HAAN P* F P****************************************************************** P* P EJE
0x49b738…49b8cc Dummy {f00=0x0173, f01=0x0190, f02=» ( PACYCLE DATA 0 A(CYCLE COUNTER FIELD) P EJECT 0 P* > F P****************************************************************** H P* * P* MEANING OF LOGGED OPCODE+MD VALUES P* BITS 4-7 OF WORD 0 P* P* P* OPC+MD INSTR
0x49b8cc…49ba60 Dummy {f00=0x0173, f01=0x0190, f02=»* C OTR 1 P* D INR 1 P* E WER ( P* F RER : P* L F P****************************************************************** V P* P* ASSEMBLY CONDITIONS P* P* MODE=2 COMPRESSED METHOD P* MODE=3 EXTENDED ME
0x49ba60…49bbf4 (1, 1294) Dummy {f00=0x0173, f01=0x0190, f02=»JECT P* * P* PURPOSE LOG ELEMENTS IN SAVLOG AREA P* ENTRY A2 = I/O INSTRUCTION D P* A5 = BOU VALUE h P* A1-A5 SAVED ON A15 STACK P* PLOGINS EQU * P* P IFT MODE=2 P* P ECR A3,A2 P ANK A3,/7
0x49bbf4…49bd88 Dummy {f00=0x0173, f01=0x0190, f02=»EP MD BITS P SRL A1,4 , P XRR A3,A1 MAKE : MD(XX00) XOR OPC(YYYY) $ * P ANK A2,/3F REMOVE MD BITS FROM DNCUA T PLOG005 EQU * P* P LD A4,12,A15 A4 := PSW P LDR A1,A4 AND BITS 0 AND 1 P ANKL A1,/4000 OF PSW P SLL A
0x49bd88…49bf1c Dummy {f00=0x0173, f01=0x0190, f02=»2 P ECR A1,A4 P ORR A1,A4 P ANK A1,/F0 A1 := 00Y0 . P* L P ORR A1,A3 A1 := OOYX V P ECR A1,A1 A1 := YX00 t P* $ P ANK A2,/FF KEEP MD-BITS + DNCUA P ORR A2,A1 A2 := YXAA P XIF P* P IFT
0x49bf1c…49c0b0 Dummy {f00=0x0173, f01=0x0190, f02=»2=1 P* P INH **INHIBIT SYSTEM P XIF 4 P* @ P IFT IOLOG=1 J ( P LD* A1,AINDEX CURRENT LOGAREA INDEX l P ADK A1,MODE+MODE UPDATE P ST* A1,AINDEX $ P CW A1,LOGLEN CHECK END BOUNDARY $ P RF(L) LOG010 NOT
0x49c0b0…49c244 Dummy {f00=0x0173, f01=0x0190, f02=»NEXT FREE LOGCELL) z P IFT MODE=2 P ST A2,-4,A1 SAVE WORD 0 . P ST A5,-2,A1 SAVE WORD 1 N P XIF n P* z P IFT IOLOG=1 P IFT MODE=3 P* P ST A2,-6,A1 WORD 0 P ST A5,-4,A1 WORD 1 P ST A4,-2,A1
0x49c244…49c3d8 Dummy {f00=0x0173, f01=0x018e, f02=»15 END LGAXAY P XIF P IFT IOLOG=1 " P IFT CPU852=1 D P LDR* A5,A15 Z P LDR* A4,A15 n P LDR* A2,A15 DUMMY; OLD A3 P LDR* A2,A15 P LDR* A1,A15 P LDR* A3,A15 SAVED PSW P ANKL A3,/300 P
0x49c3d8…49c56c Dummy {f00=0x0173, f01=0x0190, f02=» 2 P* PURPOSE DEDICATED ROUTINE ENTRIES FOR LOGINS P* : P* D , P* THE ENTRY MUST CONTAIN THE FUNCTIONS : N P* ~ P* 1. SAVE A1-A5 ON A15-STACK P* 2. A2 := INSTRUCTION P* 3. A5 := BOU VALUE P* 4. GOTO LOGINS P* , P
0x49c56c…49c700 Dummy {f00=0x0173, f01=0x0190, f02=»IF P IFT IOLOG=1 P IFT CPU852=1 , P INH B P STR A1,A15 N P STR A2,A15 b P STR A3,A15 v P STR A4,A15 P STR A5,A15 P XIF P IFT IOLOG=1 P LDR A5,A2 A5 := BOU VALUE P LDR A
0x49c700…49c894 (1, 1295) Dummy {f00=0x0173, f01=0x0190, f02=»OG EQU * P LDK A1,0 A1 := CLEAR VALUE * P LD A2,LOGGBU A2 := A(LOGGING BUFFER) 4 * P LD A3,LOGLEN A3 := L(LOGGING BUFFER) b PIN:L01 EQU * P STR A1,A2 CLEAR A WORD $ P ADK A2,2 UPDATE LOGGING ADDRESS * P SUK A3,2 UPDATE LENGTH TO B
0x49c894…49ca28 Dummy {f00=0x0173, f01=0x4128, f02=»DK A2,2 P ST A2,ACYCLE P LDK A2,4 & P ST* A2,AINDEX 8 P ST* A1,ACYCLE N P* d P RTN A15 END IN:LOG n P EJECT P* P* LOGGING AREA P* PBUFFER EQU * P RES 104 PLBUFFR EQU *-BUFFER P
0x49ca28…49cbbc Dummy {f00=0x0173, f01=0x2008, f02=»
0x49cbbc…49cd50 Dummy {f00=0x0173, f01=0x0190, f02=» j . PXBUSY DATA 0 BUSY ANSWER ON PREVIOUS POLL ( PHEADER DATA 0,0 HEADER STORAGE AREA : P* f PFECB DATA 0 WRITING ECB p ( PFECBBA DATA 0 WRITING BUFFER ADDRESS ( PFECBRL DATA 0 WRITING BUFFER LENGTH PFSID DATA 0 RESPONDING SID
0x49cd50…49cee4 Dummy {f00=0x0173, f01=0x018e, f02=»ERS TO BE SAVED | P* 0 PZRECOV DATA 0,0,0,0,0,0 SAVE TRANSMIT HEADER " & PLSEND DATA 0 LAST TRANSMIT ADDRESS V P* * PBUSYFL EQU 1 BUSY FLAG (BIT 15 IN DWT) P* " PSPRINT DATA 0 PRINT STATEMENT $ PDWTTXT DATA 0 LAST DWT FOR TEXT
0x49cee4…49d078 Dummy {f00=0x0173, f01=0x0190, f02=» h . PSBSTID DATA 0 INDEX TO FOUND TERMINAL ID PSBSA3 DATA 0 SAVE AREA A3 : PSBSA4 DATA 0 SAVE AREA A4 * PTPAX DATA 0 1 IF TR.POLL+ACK RECEIVED ~ P XIF P* P EJECT P* P* PSTRING EQU * FRAME STRINGS &
0x49d078…49d20c Dummy {f00=0x0173, f01=0x0190, f02=»ATA /1031,/0500 STATUS POLL WITH ACK , P DATA /0510,/3100 STATUS POLL WITH ACK , $ P DATA /1015,0 RETRANSMIT REQUEST PSTRINE EQU * END OF STRINGS P* P* ( PFRAME EQU * BRANCH TABLE FOR FRAMES & P DATA TP TRAFFIC POLL WITHOUT AC
0x49d20c…49d3a0 Dummy {f00=0x0173, f01=0x0190, f02=»A STATUS POLL WITH ACK P DATA RT RETRANSMIT REQUEST P EJECT D P* R P* OUTPUT SOFTWARE MESSAGES P* ~ P* . PDCSTR1 DATA 0 WORK AREA FOR NO TRAFFIC+ACK $ PDCSTRX DATA 0 SAVE LAST SID TEXT PDCSTR3 DATA /1030,0 TRAFFIC
0x49d3a0…49d534 (1, 1296) Opaque[0x194]
0x49d534…49d6c8 # DirEnt {nam=»X25:L3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2e80, f03=0x0000}
0x49d534…49d6c8 IdxSect {
0x49d534…49d6c8 f00 = 0x0174 // 0x49d534 @0x0
0x49d534…49d6c8 f01 = 0x0078 // 0x49d536 @0x2
0x49d534…49d6c8 gno = [ // 0x49d538 @0x4
0x49d534…49d6c8 [0x00]: C0x0174.0x0.0
0x49d534…49d6c8 [0x01]: C0x0174.0x1.0
0x49d534…49d6c8 [0x02]: C0x0174.0x2.0
0x49d534…49d6c8 [0x03]: C0x0174.0x3.0
0x49d534…49d6c8 [0x04]: C0x0175.0x0.0
0x49d534…49d6c8 [0x05]: C0x0175.0x1.0
0x49d534…49d6c8 [0x06]: C0x0175.0x2.0
0x49d534…49d6c8 [0x07]: C0x0175.0x3.0
0x49d534…49d6c8 [0x08]: C0x0176.0x0.0
0x49d534…49d6c8 [0x09]: C0x0176.0x1.0
0x49d534…49d6c8 [0x0a]: C0x0176.0x2.0
0x49d534…49d6c8 [0x0b]: C0x0176.0x3.0
0x49d534…49d6c8 [0x0c]: C0x0177.0x0.0
0x49d534…49d6c8 [0x0d]: C0x0177.0x1.0
0x49d534…49d6c8 [0x0e]: C0x0177.0x2.0
0x49d534…49d6c8 [0x0f]: C0x0177.0x3.0
0x49d534…49d6c8 [0x10]: C0x0178.0x0.0
0x49d534…49d6c8 [0x11]: C0x0178.0x1.0
0x49d534…49d6c8 [0x12]: C0x0178.0x2.0
0x49d534…49d6c8 [0x13]: C0x0178.0x3.0
0x49d534…49d6c8 [0x14]: C0x0179.0x0.0
0x49d534…49d6c8 [0x15]: C0x0179.0x1.0
0x49d534…49d6c8 [0x16]: C0x0179.0x2.0
0x49d534…49d6c8 [0x17]: C0x0179.0x3.0
0x49d534…49d6c8 [0x18]: C0x017a.0x0.0
0x49d534…49d6c8 [0x19]: C0x017a.0x1.0
0x49d534…49d6c8 [0x1a]: C0x017a.0x2.0
0x49d534…49d6c8 [0x1b]: C0x017a.0x3.0
0x49d534…49d6c8 [0x1c]: C0x017b.0x0.0
0x49d534…49d6c8 [0x1d]: C0x017b.0x1.0
0x49d534…49d6c8 [0x1e]: C0x017b.0x2.0
0x49d534…49d6c8 [0x1f]: C0x017b.0x3.0
0x49d534…49d6c8 [0x20]: C0x017c.0x0.0
0x49d534…49d6c8 [0x21]: C0x017c.0x1.0
0x49d534…49d6c8 [0x22]: C0x017c.0x2.0
0x49d534…49d6c8 [0x23]: C0x017c.0x3.0
0x49d534…49d6c8 [0x24]: C0x017d.0x0.0
0x49d534…49d6c8 [0x25]: C0x017d.0x1.0
0x49d534…49d6c8 [0x26]: C0x017d.0x2.0
0x49d534…49d6c8 [0x27]: C0x017d.0x3.0
0x49d534…49d6c8 [0x28]: C0x017e.0x0.0
0x49d534…49d6c8 [0x29]: C0x017e.0x1.0
0x49d534…49d6c8 [0x2a]: C0x017e.0x2.0
0x49d534…49d6c8 [0x2b]: C0x017e.0x3.0
0x49d534…49d6c8 [0x2c]: C0x017f.0x0.0
0x49d534…49d6c8 [0x2d]: C0x017f.0x1.0
0x49d534…49d6c8 [0x2e]: C0x017f.0x2.0
0x49d534…49d6c8 [0x2f]: C0x017f.0x3.0
0x49d534…49d6c8 [0x30]: C0x0180.0x0.0
0x49d534…49d6c8 [0x31]: C0x0180.0x1.0
0x49d534…49d6c8 [0x32]: C0x0180.0x2.0
0x49d534…49d6c8 [0x33]: C0x0180.0x3.0
0x49d534…49d6c8 [0x34]: C0x0181.0x0.0
0x49d534…49d6c8 [0x35]: C0x0181.0x1.0
0x49d534…49d6c8 [0x36]: C0x0181.0x2.0
0x49d534…49d6c8 [0x37]: C0x0181.0x3.0
0x49d534…49d6c8 [0x38]: C0x0182.0x0.0
0x49d534…49d6c8 [0x39]: C0x0182.0x1.0
0x49d534…49d6c8 [0x3a]: C0x0182.0x2.0
0x49d534…49d6c8 [0x3b]: C0x0182.0x3.0
0x49d534…49d6c8 ]
0x49d534…49d6c8 }
0x49d6c8…49d85c Dummy {f00=0x0174, f01=0x0190, f02=» 0 P IDENT X25:L3 REL 11.0 81-07-06 870105041100 P =1, CF A15 IN INHIBIT 8 P =2, MISSING RET.CODE X P* x 0 P******************************************** P* " P* PHILIPS TERMINAL SYSTEM PTS P* , P* X25-L3: DRIVER FOR DAT
0x49d85c…49d9f0 Dummy {f00=0x0174, f01=0x0190, f02=»************************ | P* P* * P* 4 P EJECT > P* L @ P************************************************************ V P* P* P* ORDERS : P* P* /00 READ STATUS P* P* /02 READ P*
0x49d9f0…49db84 Dummy {f00=0x0174, f01=0x0190, f02=»/27 CONNECT PASSIVE P* P* /2F DISCONNECT & P* @ P* /2D GET STATISTICS J P* h P* /38 SET STATUS r P* P* /39 SET TIMER P* P* @ P************************************************************ P*
0x49db84…49dd18 Dummy {f00=0x0174, f01=0x0190, f02=»************************************ P* , ( P ENTRY REQTIM REQUEST TIME OUT VALUE 6 " P ENTRY X25:ON POWER ON ROUTINE b P ENTRY DRX25 ACTIVATION P* P EJECT P* 0 P******************************************** P* P
0x49dd18…49deac Dummy {f00=0x0174, f01=0x0190, f02=» P EXTRN ECBFC FILE CODE P EXTRN ECBBA BUFFER ADDRESS " " P EXTRN ECBRL REQUESTED LENGTH F " P EXTRN ECBEL EFFECTIVE LENGTH l P EXTRN ECBRC RETURN CODE P EXTRN ECBCW1 P EXTRN ECBCW2 P* & P* DWT - DISPLACEMENTS: FIXED PAR
0x49deac…49e040 Dummy {f00=0x0174, f01=0x0190, f02=»OPTION P EXTRN DWTOR ORDER P EXTRN DWTTAB TTAB-ADDRESS ( P* J P EJECT T P* b P* MONITOR ROUTINES l P* $ P EXTRN FNDTID FIND TTAB-ADDRESS P EXTRN SETIME TIMER ROUTINE ( P EXTRN ACTOT TASK ACTIVATION ROUTINE P
0x49e040…49e1d4 (1, 1297) Dummy {f00=0x0174, f01=0x0190, f02=» EXTRN TENDIO TOSS END I/O ROUTINE & P EXTRN GETBLK GET A MONITOR BLOCK * * P EXTRN FREBLK RELEASE A MONITOR BLOCK T P EXTRN FNDDNT FIND LOCAL DTE * P EXTRN GETDST GET SYMBOLIC DTE ADDRESS * P EXTRN GETDNA GET DTE NETWORK ADDRESS 6 P EXTRN
0x49e1d4…49e368 Dummy {f00=0x0174, f01=0x0190, f02=»XTRN TRTASK TTAB ADDRESS FOR #T-TASK P* , P* TTAB DISPLACEMENTS 6 P* R P EXTRN TTB:ST P EXTRN TTB:PW PSW | : P EXTRN TTB:SA REGISTER SAVE AREA P* P EJECT P P****************************
0x49e368…49e4fc Dummy {f00=0x0174, f01=0x018e, f02=»MUPAG TO 1 P* PMMUPAG EQU 0 P* 0 P P**************************************************************************** : P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION , P* SET IS OBTAINED BY SETTING CPU852 TO 0 P*
0x49e4fc…49e690 Dummy {f00=0x0174, f01=0x0190, f02=» P* PX:A EQU 1 , PSYNRLN EQU X:A NUMBER OF PHYSICAL LINES $ P* T PX:B EQU 600 ^ 4 PREQTIM EQU X:B REQUEST TIME OUT VALUE(IN 100MS) r P* PX:C EQU 128 4 PSYMXDL EQU X:C OVER ALL MAXIMUM USER DATA LENGTH P*
0x49e690…49e824 Dummy {f00=0x0174, f01=0x0190, f02=»VEL,LINE 1 l P* PX:L EQU 128 2 PSYMDL1 EQU X:L MAXIMUM USER DATA LENGTH,LINE 1 0 P* f PX:P EQU 0 p 8 PSYNRP1 EQU X:P # OF PERMANENT VIRTUAL CIRCUITS,LINE1 P* PX:T EQU 0 6 PCALDTE EQU X:T LOCAL DTE-ADDRESS IN CALL PACKE
0x49e824…49e9b8 Dummy {f00=0x0174, f01=0x0190, f02=» SYNRLN=1 P* PX:E EQU 3 0 PSYNRL2 EQU X:E # OF LOGICAL CHANNELS LINE 2 . P* b PX:I EQU 2 l 2 PSYMXW2 EQU X:I WINDOW SIZE,PACKET LEVEL,LINE 2 ~ P* PX:M EQU 128 2 PSYMDL2 EQU X:M MAXIMUM USER DATA LENGTH,LINE 2 P
0x49e9b8…49eb4c Dummy {f00=0x0174, f01=0x0190, f02=»EQU 3 0 PSYNRL3 EQU X:F # OF LOGICAL CHANNELS,LINE 3 P* B PX:J EQU 2 L 2 PSYMXW3 EQU X:J WINDOW SIZE,PACKET LEVEL,LINE 3 ^ P* PX:N EQU 128 2 PSYMDL3 EQU X:N MAXIMUM USER DATA LENGTH,LINE 3 P* PX:R EQU 0 : PSYNR
0x49eb4c…49ece0 Dummy {f00=0x0174, f01=0x0190, f02=»F LOGICAL CHANNELS,LINE 4 ~ P* " PX:K EQU 2 , 2 PSYMXW4 EQU X:K WINDOW SIZE,PACKET LEVEL,LINE 4 > P* t PX:O EQU 128 ~ 2 PSYMDL4 EQU X:O MAXIMUM USER DATA LENGTH,LINE 4 P* PX:S EQU 0 : PSYNRP4 EQU X:S # OF PERMANENT VIRTUA
0x49ece0…49ee74 (1, 1298) Dummy {f00=0x0174, f01=0x0190, f02=»ITE REQUESTS FOR HDLC | P* , PSYUBNR EQU 2 # OF INPUT BUFFERS FOR HDLC ( P* X 0 PSYCLTM EQU 600 CLEAR TIME OUT VALUE IN 100MS b P* 0 PSYRETM EQU 600 RESET TIME OUT VALUE IN 100MS P 2 PSYRSTM EQU 600 RESTART TIME OUT VALUE IN 100
0x49ee74…49f008 Dummy {f00=0x0174, f01=0x018e, f02=»ACE EQU 0 TRACE TASK IN SYSTEM PBYTE FORM 8,8 & P* < P EJECT F P* T P IFT SYNRLN=1 ^ PPERMVC EQU SYNRP1 t PSWITVC EQU SYNRL1-SYNRP1 P XIF P IFT SYNRLN=2 PPERMVC EQU SYNRP1+SYNRP2 PSWDUM1 EQU SYNRL1+SYNRL2
0x49f008…49f19c Dummy {f00=0x0174, f01=0x0190, f02=» PSWDUM1 EQU SYNRL1+SYNRL2 PSWDUM2 EQU SWDUM1+SYNRL3 $ PSWITVC EQU SWDUM2-PERMVC D P XIF d P IFT SYNRLN=4 p PPEDUM1 EQU SYNRP1+SYNRP2 PPEDUM2 EQU SYNRP3+SYNRP4 PPERMVC EQU PEDUM1+PEDUM2 PSWDUM1 EQU SYNRL1+SYNRL2 PSW
0x49f19c…49f330 Dummy {f00=0x0174, f01=0x0190, f02=»FROM THROUGHPUT CLASS | & P* TO WINDOW SIZE AND PACKET LENGTH P* H > PCLAS1 BYTE 1,128 CLASS 1,LAYOUT: WINDOW SIZE/PACKET LENGTH R P BYTE 1,128 CLASS 2 P BYTE 1,128 CLASS 3 P BYTE 1,128 CLASS 4 P BYTE 1,128 CLASS 5 P BYT
0x49f330…49f4c4 Dummy {f00=0x0174, f01=0x0190, f02=» BYTE 3,128 CLASS 11 P BYTE 3,128 CLASS 12 P BYTE 3,128 CLASS 13 8 P BYTE 3,128 CLASS 14 T P BYTE 3,128 CLASS 15 p P* P EJECT DWT P* P* DWT DISPLACEMENTS P* P IFT MMUPAG=0 PDWTDRD EQU /10 DWTTQ+2
0x49f4c4…49f658 Dummy {f00=0x0174, f01=0x018e, f02=»BUFFER 2 PDWTCHD EQU DWTDRD+2 CONFIG CHAIN LINK HEAD DWT 2 PDWTCHN EQU DWTDRD+4 CONFIG CHAIN LINK NEXT DWT D 2 PDWTLAD EQU DWTDRD+6 LOCAL SYMBOLIC DTE ADDRESS z 4 PDWTRAD EQU DWTDRD+8 REMOTE SYMBOLIC DTE ADDRESS & PDWTWRO EQU DWTDRD+10 WRITE OPTIO
0x49f658…49f7ec Dummy {f00=0x0174, f01=0x0190, f02=» p , PDWTRTV EQU DWTDRD+14 REQUEST TIMER VALUE . PDWTRTP EQU DWTDRD+16 REQUEST TIMER POINTER 8 0 PDWTRCI EQU DWTDRD+18 RETURN CODE INFORMATION j < PDWTRES EQU DWTDRD+20 CAUSE AND DIAGNOSTIC CODE FOR RESET < PDWTCLE EQU DWTDRD+22 CAUSE AND DIAGNOSTIC
0x49f7ec…49f980 Dummy {f00=0x0174, f01=0x0190, f02=»HP ` P* $ PDWTTYP EQU 'VC' VIRTUAL CIRCUIT P* < P EJECT DWT F P* Z . P* INTERNAL FUNCTION CODES; USED IN DWTFNC d P* POPESYS EQU /00 OPEN REQUEST PCLOSYS EQU /02 CLOSE REQUEST * PCONACT EQU /04 CONNECT ACTIVE RE
0x49f980…49fb14 (1, 1299) Dummy {f00=0x0174, f01=0x0190, f02=»ACCDAT EQU /0C ACCEPT DATA & PREFDAT EQU /0E REFUSE DATA REQUEST " PWRIDAT EQU /10 WRITE REQUEST L " PWRIINT EQU /12 WRITE INTERRUPT p PREADAT EQU /14 READ REQUEST & PREASTA EQU /16 READ STATUS REQUEST & PSTATIS EQU /18 STATISTICAL REQUEST
0x49fb14…49fca8 Dummy {f00=0x0174, f01=0x0190, f02=»CCEPT DATA v ( PCONRD EQU /02 CONNECTED: REFUSE DATA 8 PINCALR EQU /03 INC.CALL RECEIVED(WITH ACC/REF CALL) > 6 PINCALL EQU /04 INC.CALL REC.(WITHOUT ACC/REF CALL) z PVCREL EQU /05 VC IS RELEASED P* . P* OPTION CODES; USED IN DWTOPT AND DWT
0x49fca8…49fe3c Dummy {f00=0x0174, f01=0x0190, f02=»RUPT PACKET | PQOPT EQU /80 Q-BIT P* . P EJECT USER 8 P* L $ P* RETURN CODES OF A USER REQUEST V P* ~ PACPT.RC EQU /0000 ACCEPTED $ PRQUE.RC EQU /8000 REQUEST ERROR & PABOT.RC EQU /4000 REQUEST ABORTED 0 PINTR.RC EQU
0x49fe3c…49ffd0 Dummy {f00=0x0174, f01=0x0190, f02=»/0400 Q-BIT SET IN PACKET 4 PNOLC.RC EQU /0200 LOGICAL CHANNEL NOT AVAILABLE " . PDATA.RC EQU /0100 DATA RECEIVED AND QUEUED Z & PMORE.RC EQU /0080 MORE INFORMATION PTIMO.RC EQU /0040 TIME OUT . PRSET.RC EQU /0020 VC RESET,LOCAL OR REMOTE $
0x49ffd0…4a0164 Dummy {f00=0x0174, f01=0x0190, f02=»GE.RC EQU /0002 LOGICAL ERROR $ PPHYE.RC EQU /0001 PHYSICAL ERROR & > PTOLD.RC EQU /0001 RETURN INFO.TOLD TO USER(INTERNAL PAR.) N P* 2 P* RETURN CODES FROM LEVEL 3 TO REQUEST HANDLER P* " PRTNOK EQU /00 RETURN CODE = OK & PCLEBUS E
0x4a0164…4a02f8 Dummy {f00=0x0174, f01=0x0190, f02=» PACKET LENGTH WHEN M=1 z 0 PINVSTA EQU /0C NO CORRECT LOG. CHANNEL STATE 4 PMAXLNG EQU /0E MAX. LENGTH EXCEEDED FOR TRANSM. T 0 PNOLCAV EQU /10 NO LOGICAL CHANNEL AVAILABLE $ PTMEOUT EQU /12 TIME OUT DETECTED 0 PNOREMO EQU /14 REMOTE ADDRESS NO
0x4a02f8…4a048c Dummy {f00=0x0174, f01=0x0190, f02=» PROCEDURE ERROR | PNOUSER EQU /02 NO USER KNOWN & PNOTINT EQU /03 NO INTERESTED USER < ( PRESLCH EQU /04 LOCAL SEQUENCE ERROR f P* * P* DIAGNOSTIC CODES FOR THE LOCAL USER P* & PLOCCLE EQU /80 VC IS CLEARED LOCAL * PRSTRED EQU
0x4a048c…4a0620 Dummy {f00=0x0174, f01=0x0190, f02=» EQU -2 QUEUE CHAIN POINTER PHDLC EQU /00 HDLC HEADER $ , PGNFRM EQU /02 GENERAL FORMAT IDENTIFIER D 0 PQBIT EQU /02 CHARACTER DISPLACEMENT OF Q-BIT t * PLCIDNT EQU /03 LOGICAL CHANNEL NUMBER PIDENT EQU /04 PACKET TYPE 0 PMBIT EQU /04 CHA
0x4a0620…4a07b4 (1, 1300) Dummy {f00=0x0175, f01=0x0190, f02=» " PDGNCOD EQU /06 DIAGNOSTIC CODE PQPOS EQU /80 MASK FOR Q-BIT * PMPOS EQU /10 MASK FOR M-BIT N P* r $ P* EQUATE VALUES FOR PACKET TYPES | P* PCAL.P EQU /0B CALL PACKET , PCAL.CP EQU /0F CALL CONFIRMATION PACKET PCLE.P EQ
0x4a07b4…4a0948 Dummy {f00=0x0175, f01=0x0190, f02=»ET t 0 PINT.CP EQU /27 INTERRUPT CONFIRMATION PACKET PRR.P EQU /01 RR-PACKET > PRNR.P EQU /05 RNR-PACKET PRSET.P EQU /1B RESET PACKET | . PRSET.CP EQU /1F RESET CONFIRMATION PACKET " PRSTR.P EQU /FB RESTART PACKET 0 PRSTR.CP EQU /FF
0x4a0948…4a0adc Dummy {f00=0x0175, f01=0x018e, f02=»ALL CONFIRMATION PCLE.L EQU /07 CLEAR PACKET , PCLE.CL EQU /05 CLEAR CONFIRMATION PACKET : " PINT.L EQU /06 INTERRUPT PACKET j 0 PINT.CL EQU /05 INTERRUPT CONFIRMATION PACKET PRR.L EQU /05 RR-PACKET PRSET.L EQU /07 RESET PACKET . PRS
0x4a0adc…4a0c70 Dummy {f00=0x0175, f01=0x018e, f02=» P* ! P* SYSTEM VARIABLES ! P* ! ( PNEG EQU /8000 ! 2 . PLOCAL EQU 'LP' LOCAL PACKET SWITCHING DTE ! H . PSVCTYP EQU 'RS' REMOTE DTE REACHED VIA SVC ! z . PPVCTYP EQU 'RP' REMOTE DTE REACHED VIA PVC ! 0 PTSKID EQU '#X' TASK IDENTIFICATION X25-TAS
0x4a0c70…4a0e04 Dummy {f00=0x0175, f01=0x018e, f02=» P DATA 0,0 EXTEND DC-STACK " P RES 12 CALL FUNCTION STACK " & PDCSTAK EQU *-2 STACK POINTER " J P* " n P* " x P EJECT LC " P* " ( P* LOGICAL CHANNEL TABLE DISPLACEMENT " P* " PLCSTAT EQU 0 STATUS " " PLCSBST EQU LCSTAT+1 SUB-
0x4a0e04…4a0f98 Dummy {f00=0x0175, f01=0x0190, f02=» & PLCTHRE EQU LCDWT+2 THRESHOLD VALUE # . PNRNUBF EQU LCTHRE+1 # OF NOT USED BUFFERS # . * PQUEINP EQU NRNUBF+1 INPUT QUEUE ANCHOR # ` , PQUEOUT EQU QUEINP+2 OUTPUT QUEUE ANCHOR # ( PLCTRWN EQU QUEOUT+2 TRANSMIT WINDOW # & PLCREWN EQU LCTRWN+1 RECEIVE WI
0x4a0f98…4a112c Dummy {f00=0x0175, f01=0x0190, f02=»O BE RECIEVED # z . PSLWE EQU RPS+1 SEND LWE = LAST RECEIVED PR $ : PRLWE EQU SLWE+1 LAST TRANSMITTED PR $ H PNOUSE EQU RLWE+1 NOT USED $ ( PREMADR EQU NOUSE+1 REMOTE DTE IF PVC $ 2 PREBFSZ EQU REMADR+2 MAX.RECEIVE PACKET LENGTH $ 2
0x4a112c…4a12c0 Dummy {f00=0x0175, f01=0x0190, f02=»QU TIMADR+4 SYSTEM OUTPUT BUFFER $ $ PLCALNG EQU SYSBUF+8 TABLE LENGTH % ( P* % P P EJECT LC % Z P* % l . P* EQUATE VALUES FOR LOGICAL CHANNEL STATUS % v P* % PREAD.ST EQU /00 READY STATE % $ PLCAL.ST EQU /01 LOCAL CALL STATE % & PRCAL.ST EQ
0x4a12c0…4a1454 (1, 1301) Dummy {f00=0x0175, f01=0x0190, f02=»TROL READY SUB-STATE % x $ PRSET.ST EQU /01 RESET SUB-STATE & P* & D $ P* EQUATE VALUES FOR CIRCUIT TYPE & N P* & v * PPVC EQU /01 PERMANENT VIRTUAL CIRCUIT & ( PSVC EQU /00 SWITCHED VIRTUAL CIRCUIT & P* & P EJECT LINE & P* & . P* LINE
0x4a1454…4a15e8 Dummy {f00=0x0175, f01=0x0190, f02=»LE ADDRESS & p . PPACKLN EQU LC:TAB+2 MAXIMUM PACKET LENGTH ' , PWNDSIZ EQU PACKLN+2 MAXIMUM WINDOW SIZE ' D , PNRLC EQU WNDSIZ+2 # OF LOGICAL CHANNELS ' t 4 PNRPVC EQU NRLC+1 # OF PERMANENT VIRTUAL CIRCUITS ' 0 PCHAIN EQU NRPVC+1 ANCHOR FOR CONNECTED DWT'S
0x4a15e8…4a177c Dummy {f00=0x0175, f01=0x0190, f02=»START CONF. TIMER ADDRESS ' z ( PHRDSTA EQU RTMADR+2 HARDWARE STATUS ( " $ PCMNFLG EQU HRDSTA+2 COMMON FLAGS ( N , PLOCECB EQU CMNFLG+2 LINE OPEN/CLOSE ECB ( v 6 PUBNUM EQU LOCECB+12 BLOCK FOR (DIS)CONNECT REQUEST ( P IFF MMUPAG+STATI=2 ( PD1 EQU UBNUM
0x4a177c…4a1910 Dummy {f00=0x0175, f01=0x0190, f02=»INE INPUT ECB'S ( z P XIF ) P IFT MMUPAG+STATI=2 ) $ PD1 EQU UBNUM+SYUBNR+2 ) @ 6 PINTSTB EQU D1+SYUBNR INTERMEDIATESTATISTIC BUFFER ) ^ , PECBINL EQU 12 LENGTH INPUT/OUTPUT ECB'S ) , PSYSBFL EQU SYMXDL+BEGDAT+1 BUFFER LENGTH ) * PECBIN1 EQU INTST
0x4a1910…4a1aa4 Dummy {f00=0x0175, f01=0x0190, f02=»ECBINL ) ~ P IFF SYNRRC=3 * PECBIN4 EQU ECBIN3+ECBINL * $ P XIF * D P* * P P EJECT LINE * Z P* * n P IFT SYNRRC=1 * x PECBOU1 EQU ECBIN1+ECBINL * P XIF * P IFT SYNRRC=2 * PECBOU1 EQU ECBIN2+ECBINL * P XIF * P IFT SYNRRC=
0x4a1aa4…4a1c38 Dummy {f00=0x0175, f01=0x018e, f02=»1+ECBINL * P IFF SYNRTR=1 + PECBOU2 EQU SYSOU1+SYSBFL + & PSYSOU2 EQU ECBOU2+ECBINL + F P IFF SYNRTR=2 + f PECBOU3 EQU SYSOU2+SYSBFL + | PSYSOU3 EQU ECBOU3+ECBINL + P IFF SYNRTR=3 + PECBOU4 EQU SYSOU3+SYSBFL + PSYSOU4 EQU ECBOU4+ECBI
0x4a1c38…4a1dcc Dummy {f00=0x0175, f01=0x0190, f02=» + v P XIF , P IFT SYNRTR=3 , PLNBLNG EQU SYSOU3+SYSBFL , * P XIF , J P IFT SYNRTR=4 , V PLNBLNG EQU SYSOU4+SYSBFL , l P XIF , P* , P EJECT LINE , P* , , P* ORDER CODES FOR HDLC PROTOCOL HANDLER , P* , PCONN EQU /21 C
0x4a1dcc…4a1f60 Dummy {f00=0x0175, f01=0x0190, f02=»STATR EQU /2D STATISTIC REQUEST , P* - ( , P* RETURN CODES FOR HDLC PROTOCOL HANDLER - 2 P* - b $ PHRDWER EQU /8000 HARDWARE ERROR - l ( PREMDIS EQU /000D REMOTE DISCONNECTED - & PDEFTIM EQU /000E DEFINITE TIME-OUT - P* - & P* EQUATE VALUES FOR
0x4a1f60…4a20f4 (1, 1302) Dummy {f00=0x0175, f01=0x0190, f02=» REMOTE BUSY - 0 PNPRFLG EQU /01 NO PROCESSING FLAG FOR QUEUES . P* . H ( P* EQUATE VALUES FOR THE COMMON FLAGS . R P* . ~ PRSTFLG EQU /01 RESTART BUSY . & PSTRTFL EQU /80 LINE CONNECTED FLAG . . PSTATFL EQU /04 STATISTIC REQUEST BUSY FLAG . : P
0x4a20f4…4a2288 Dummy {f00=0x0175, f01=0x0190, f02=»JECT . P* / 8 P* BLOCK WITH ADDRESSES OF LINE ADMINISTRATION BLOCKS / P* / R 2 PLINTAB DATA LINBL1 ADDRESS 1ST LINE ADM. BLOCK / P IFF SYNRLN=1 / , P DATA LINBL2 ADDRESS 2ND LINE ADM. BLOCK / P IFF SYNRLN=2 / , P DATA LINBL3 ADDRESS 3TH L
0x4a2288…4a241c Dummy {f00=0x0175, f01=0x0190, f02=»ATION BLOCK / z P* 0 PLINBL1 EQU * 0 P DATA /60 FILE CODE 0 2 * P DATA LCADM1 LOG. CHANNEL ADM. POINTER 0 N $ P DATA SYMDL1 MAX. PACKET LENGTH 0 | " P DATA SYMXW1 MAX. WINDOW SIZE 0 4 P BYTE SYNRL1,SYNRP1 # OF LOG.CH. AND # OF PVC'S 0 P RORG
0x4a241c…4a25b0 Dummy {f00=0x0175, f01=0x0190, f02=»FF SYNRL1=1 0 P DATA LCAD1.2 1 P IFF SYNRL1=2 1 * P DATA LCAD1.3 1 @ P IFF SYNRL1=3 1 V P DATA LCAD1.4 1 l P IFF SYNRL1=4 1 P DATA LCAD1.5 1 P IFF SYNRL1=5 1 P DATA LCAD1.6 1 P IFF SYNRL1=6 1 P DATA LCAD1.7 1 P I
0x4a25b0…4a2744 Dummy {f00=0x0175, f01=0x0190, f02=»LCAD1.1 EQU * 1 P RORG LCAD1.1+LCALNG 2 P IFF SYNRL1=1 2 2 PLCAD1.2 EQU * 2 H P RORG LCAD1.2+LCALNG 2 ^ P IFF SYNRL1=2 2 z PLCAD1.3 EQU * 2 P RORG LCAD1.3+LCALNG 2 P IFF SYNRL1=3 2 PLCAD1.4 EQU * 2 P RORG LCAD1.4+LCALNG 2
0x4a2744…4a28d8 Dummy {f00=0x0175, f01=0x0190, f02=»NG 2 ~ P IFF SYNRL1=6 3 PLCAD1.7 EQU * 3 P RORG LCAD1.7+LCALNG 3 6 P IFF SYNRL1=7 3 R PLCAD1.8 EQU * 3 h P RORG LCAD1.8+LCALNG 3 ~ P XIF 3 P IFF SYNRLN=1 3 P EJECT 3 P* 3 & P* SECOND LINE ADMINISTRATION BLOCK 3 P* 3 P
0x4a28d8…4a2a6c Dummy {f00=0x0175, f01=0x0190, f02=»ATA SYMXW2 MAX. WINDOW SIZE 3 4 P BYTE SYNRL2,SYNRP2 # OF LOG.CH. AND # OF PVC'S 4 $ P RORG LINBL2+LNBLNG 4 P* 4 x . P* BLOCK WITH LOGICAL CHANNEL ADM. POINTERS 4 P* 4 PLCADM2 EQU * 4 P DATA LCAD2.1 4 P IFF SYNRL2=1 4 P DATA LCAD
0x4a2a6c…4a2c00 Dummy {f00=0x0175, f01=0x0190, f02=» 4 P IFF SYNRL2=5 5 P DATA LCAD2.6 5 P IFF SYNRL2=6 5 4 P DATA LCAD2.7 5 J P IFF SYNRL2=7 5 ` P DATA LCAD2.8 5 v P XIF 5 P EJECT 5 P IFF SYNRLN=1 5 P* 5 , P* LOGICAL CHANNEL ADMINISTRATION BLOCKS 5 P* 5 PLCAD2.1
0x4a2c00…4a2d94 (1, 1303) Dummy {f00=0x0175, f01=0x0190, f02=»LCAD2.3 EQU * 5 P RORG LCAD2.3+LCALNG 6 P IFF SYNRL2=3 6 2 PLCAD2.4 EQU * 6 H P RORG LCAD2.4+LCALNG 6 ^ P IFF SYNRL2=4 6 z PLCAD2.5 EQU * 6 P RORG LCAD2.5+LCALNG 6 P IFF SYNRL2=5 6 PLCAD2.6 EQU * 6 P RORG LCAD2.6+LCALNG 6
0x4a2d94…4a2f28 Dummy {f00=0x0175, f01=0x018e, f02=»NG 6 ~ P XIF 7 P IFF SYNRLN=1 7 P IFF SYNRLN=2 7 , P EJECT 7 B P* 7 P & P* THIRTH LINE ADMINISTRATION BLOCK 7 Z P* 7 PLINBL3 EQU * 7 P DATA /62 FILE CODE 7 * P DATA LCADM3 LOG. CHANNEL ADM. POINTER 7 $ P DATA SYMDL3 MAX. PACKET LEN
0x4a2f28…4a30bc Dummy {f00=0x0175, f01=0x0190, f02=» 7 . P* BLOCK WITH LOGICAL CHANNEL ADM. POINTERS 8 P* 8 : PLCADM3 EQU * 8 D P DATA LCAD3.1 8 X P IFF SYNRL3=1 8 n P DATA LCAD3.2 8 P IFF SYNRL3=2 8 P DATA LCAD3.3 8 P IFF SYNRL3=3 8 P DATA LCAD3.4 8 P IFF SYNRL3=4 8 P
0x4a30bc…4a3250 Dummy {f00=0x0175, f01=0x0190, f02=»A LCAD3.8 8 P XIF 9 P EJECT 9 P IFF SYNRLN=1 9 , P IFF SYNRLN=2 9 B P* 9 X , P* LOGICAL CHANNEL ADMINISTRATION BLOCKS 9 b P* 9 PLCAD3.1 EQU * 9 P RORG LCAD3.1+LCALNG 9 P IFF SYNRL3=1 9 PLCAD3.2 EQU * 9 P RORG LCAD3.2+
0x4a3250…4a33e4 Dummy {f00=0x0175, f01=0x018e, f02=»LCAD3.4+LCALNG 9 P IFF SYNRL3=4 : PLCAD3.5 EQU * : , P RORG LCAD3.5+LCALNG : B P IFF SYNRL3=5 : ^ PLCAD3.6 EQU * : t P RORG LCAD3.6+LCALNG : P IFF SYNRL3=6 : PLCAD3.7 EQU * : P RORG LCAD3.7+LCALNG : P IFF SYNRL3=7 : PLCAD
0x4a33e4…4a3578 Dummy {f00=0x0175, f01=0x0190, f02=» P* ; & P* FOURTH LINE ADMINISTRATION BLOCK ; P* ; 8 PLINBL4 EQU * ; B P DATA /63 FILE CODE ; V * P DATA LCADM4 LOG. CHANNEL ADM. POINTER ; r $ P DATA SYMDL4 MAX. PACKET LENGTH ; " P DATA SYMXW4 MAX. WINDOW SIZE ; 4 P BYTE SYNRL4,SYNRP4 # OF L
0x4a3578…4a370c Dummy {f00=0x0175, f01=0x0190, f02=»QU * ; P DATA LCAD4.1 < P IFF SYNRL4=1 < " P DATA LCAD4.2 < 8 P IFF SYNRL4=2 < N P DATA LCAD4.3 < d P IFF SYNRL4=3 < z P DATA LCAD4.4 < P IFF SYNRL4=4 < P DATA LCAD4.5 < P IFF SYNRL4=5 < P DATA LCAD4.6 < P IFF SYNRL
0x4a370c…4a38a0 Dummy {f00=0x0175, f01=0x0190, f02=»N=2 < P IFF SYNRLN=3 = P* = " , P* LOGICAL CHANNEL ADMINISTRATION BLOCKS = , P* = PLCAD4.1 EQU * = f P RORG LCAD4.1+LCALNG = | P IFF SYNRL4=1 = PLCAD4.2 EQU * = P RORG LCAD4.2+LCALNG = P IFF SYNRL4=2 = PLCAD4.3 EQU * =
0x4a38a0…4a3a34 (1, 1304) Dummy {f00=0x0176, f01=0x0190, f02=»U * = P RORG LCAD4.5+LCALNG > P IFF SYNRL4=5 > ( PLCAD4.6 EQU * > > P RORG LCAD4.6+LCALNG > T P IFF SYNRL4=6 > p PLCAD4.7 EQU * > P RORG LCAD4.7+LCALNG > P IFF SYNRL4=7 > PLCAD4.8 EQU * > P RORG LCAD4.8+LCALNG > P XIF >
0x4a3a34…4a3bc8 Dummy {f00=0x0176, f01=0x0190, f02=» THE FOLLOWING WAY > X J P* NUMBER OF BUFFERS NEEDED PER LOGICAL CHANNEL = WINDOW SIZE ? L P* PER LINE SYNRRC BUFFERS FOR INPUT REQUEST AND SYUBNR BUFFERS ? h " P* TO BE USED BY HDLC ? P P* THE TOTAL NUMBER OF BUFFERS CAN
0x4a3bc8…4a3d5c Dummy {f00=0x0176, f01=0x0190, f02=» THE BUFFER LENGTH IS OBTAINED BY SYMXDL+BEGDAT+1. THIS IS THE LENGTH ? J P* IN CHARACTERS. THIS LENGTH HAS TO BE EVEN (CHAIN POINTER FOR @ P P* QUEUEING EXCLUDED) @ P* @ PBUFLEN EQU SYMXDL+BEGDAT+1 @ P* @ D P* THE POO
0x4a3d5c…4a3ef0 Dummy {f00=0x0176, f01=0x0190, f02=» EQU * @ P RES POOLEN POOL AREA A P DATA 0 END OF QUEUE A , PBPEND EQU * A H P* A P* BUFFER POOL CHAIN ANCHOR A f P* A PBUFANC DATA BUFPOL A P* A P EJECT A P* A & P* TTAB FOR #X-TASK IN X25 PACKAGE A P* A P IFT M
0x4a3ef0…4a4084 Dummy {f00=0x0176, f01=0x0190, f02=»ENT TABLE POINTER A " P DATA 0 SEGMENT BLOCK POINTER B P XIF B @ . P DATA 0 APPLICATION CONTROL BLOCK POINTER B L PTTBX25 EQU * B ~ " P DATA 0 DISPATCHER QUEUE LINK B " P DATA '#X' TASK IDENTIFICATION B P DATA 50 PRIORITY LEVEL B P DATA 0 PE
0x4a4084…4a4218 Dummy {f00=0x0176, f01=0x0190, f02=»EA,A1-A14 B j P DATA 0,0,0,0,0,0,0 . C P* C 0 P EJECT C : P* C H P* C R 2 P* MODULE CALLED BY TOSSIO FOR AN USER REQUEST C P* C 0 P******************************************** C P* C P* INPUT PARAMETER: C P* A6 = DWT-ADDRESS
0x4a4218…4a43ac Dummy {f00=0x0176, f01=0x0190, f02=»FER LENGTH C P DATA 0 DEVICE INDEX D PDRX25 EQU * D . $ P DATA DRX250 ACTIVATION ADDRESS D B & P DATA ABTREQ ABORT ROUTINE ADDRESS D j $ P******************************** D PDRX250 EQU * D P LDR A1,A6 PARAMETER D $ P LDKL A5,TTBX25 GET TTAB ADD
0x4a43ac…4a4540 Dummy {f00=0x0176, f01=0x0190, f02=» P* E P* E 6 P* THIS MODULE IS CALLED AT MONITOR INITIATION TIME E P* E R 0 P******************************************** E P* E P* INPUT PARAMETERS: E P* NONE E P* E P* CALLING SEQUENCE: E P* CF A15,X25:ON E P
0x4a4540…4a46d4 (1, 1305) Dummy {f00=0x0176, f01=0x0190, f02=»ES E t P XIF F P* F P* INITIATE LINE BLOCK F P* F > PX25ON1 EQU * F H " P LDR* A4,A1 LINE BLOCK ADDRESS F P CM CMNFLG,A4 CLEAR FLAG F & P LD A6,CHAIN,A4 ANY DWT IN CHAIN ? F P RF(Z) X25ON3 NO F P* F P* INITIATE DWT F P* F
0x4a46d4…4a4868 Dummy {f00=0x0176, f01=0x0190, f02=»DWTRTP,A6 CLEAR RUNNING TIMER INDICATION F 0 P LD A3,DWTCHN,A6 MORE DWT'S FOR THIS LINE ? G 0 P* G d P EJECT G n P CM DWTCHN,A6 . G | P LDR A6,A3 . G P RB(NZ) X25ON2 YES G P CM CHAIN,A4 RESET CHAIN G PX25ON3 EQU * G P IFF SYNRLN=1 G
0x4a4868…4a49fc Dummy {f00=0x0176, f01=0x018e, f02=» 0 P LDKL A2,BUFPOL START ADDRESS OF BUFFER POOL H $ P ST A2,BUFANC BUFFER POOL ANCHOR H 8 PX25ON4 EQU * H ` " P LDR A1,A2 SAVE BUFFER ADDRESS H t P ADK A2,BUFLEN+2 H P STR A2,A1 CREATE CHAIN H P LDR A3,A2 H 0 P SUKL A3,BPEND END OF BUFFER POOL RE
0x4a49fc…4a4b90 Dummy {f00=0x0176, f01=0x0190, f02=» $ P LDKL A2,TRAC ACTIVATION ADDRESS I P LDKL A5,TRTASK TTAB ADDRESS I , " P CF A15,ACTOT ACTIVATE #T-TASK I P P XIF I v P RTN A15 READY I P EJECT I P* I P* ABORT REQUEST HANDLER I P* I 0 P******************************************** I
0x4a4b90…4a4d24 Dummy {f00=0x0176, f01=0x0190, f02=»* I P* OUTPUT PARAMETERS: J P* NONE J & : P* WHEN IT IS A ILLEGAL REQUEST THE ROUTINE WILL HALT J 6 P* J t PABTREQ EQU * J ~ * P LDK A1,READAT WAS IT A READ REQUEST ? J P CC A1,DWTFNC,A6 . J P RF(NE) ABT000 NO J " P LD A1
0x4a4d24…4a4eb8 Dummy {f00=0x0176, f01=0x0190, f02=»ER J ^ P LDR A14,A8 K P CM DWTRTP,A6 K * " P LD A8,DWTECB,A6 K N " P ST A1,ECBCW1,A8 K t * P LDKL A1,ABOT.RC RETURN CODE = ABORTED K $ P CF A15,TENDIO COMPLETE REQUEST K PABT000 EQU * K P ABL
0x4a4eb8…4a504c Dummy {f00=0x0176, f01=0x0190, f02=»HANDLER OUTPUT PART K P* L @ P************************************************************ L & P* L j PRHOP EQU * L t P LDK A2,2 L > P ST A2,DCLEVL SET PROCESS INDICATION L P LDR A6,A1 COPY DWT ADDRESS L
0x4a504c…4a51e0 Dummy {f00=0x0176, f01=0x0190, f02=» TO CALL TRANSPORT HANDLER L x ( P LDKL A14,DCSTAK SUBR.STACK POINTER M " P ANK A7,/3F MASK ORDER CODE M N P RF(Z) RSTS00 READ STATUS M r P SUK A7,2 M P RF(Z) READ00 READ M P SUK A7,/06-/02 M P RF(Z) WRIT00 WRITE M P SUK A7,/21-/06 M
0x4a51e0…4a5374 (1, 1306) Dummy {f00=0x0176, f01=0x018e, f02=»E M t P* N P EJECT N P* N " P SUK A7,/27-/24 N , " P ABL(Z) CONP00 CONNECT PASSIVE N D P SUK A7,/2F-/27 N j P ABL(Z) DISC00 DISCONNECT N P SUK A7,/38-/2F N P ABL(Z) STAT00 SET STATUS N P SUK A7,/39-/38 N P ABL(Z) TIMO00 SET
0x4a5374…4a5508 Dummy {f00=0x0176, f01=0x0190, f02=» N " P LDKL A1,RQUE.RC REQUEST ERROR O P ABL RHEXIT COMPLETE REQUEST O . P* O R P EJECT O P* O j J P********************************************************************* O t P* O P* READ STATUS REQUEST O P* O J P********************
0x4a5508…4a569c Dummy {f00=0x0176, f01=0x0190, f02=»F A14,FNDLIN GET LINE FLAGS O P SLL A1,8 P $ P ANK A4,/FF GET DWT STATE P 6 P ORR A4,A1 PUT IT TOGETHER P X P ST A4,ECBCW1,A8 P z P LDK A2,DWTRCI P P ADR A2,A6 P & P LDR* A1,A2 GET RETURN CODE INFO. P P LDR A7,A1 P " P ANKL A1,-2 RESET
0x4a569c…4a5830 Dummy {f00=0x0176, f01=0x0190, f02=»NO USER BUFFER P $ P ABL(N) ERRLEN INCORRECT LENGTH Q P SUK A5,1 Q > $ P ABL(NP) ERRLEN BUFFER TO SHORT Q P P* Q x P EJECT Q P* Q P* MORE INFORMATION FOUND Q P* Q PRSTS10 EQU * Q $ P XRRS A7,A2 RESET MORE INFO BIT Q P IFF SWI
0x4a5830…4a59c4 Dummy {f00=0x0176, f01=0x0190, f02=»T RESET-BIT Q P* R P* TEST IF RESET AND CLEAR R P* R @ P ANK A7,CLEA.RC R J P RF(Z) RSTS15 NO R b & P LDK A7,MORE.RC SET MORE INFO-BIT R z P XRRS A7,A2 . R PRSTS15 EQU * R P XIF R P LDK A7,RSET.RC RESET R & P LDK A2,DWTRES D
0x4a59c4…4a5b58 Dummy {f00=0x0176, f01=0x0190, f02=» INFORMATION R ~ P* S PRSTS20 EQU * S P ADR A2,A6 S 2 P LDK A3,2 LENGTH S D P ST A3,ECBEL,A8 S P IFT MMUPAG=1 S t P LDR A1,A2 S P LD A2,ECBBA,A8 USER BUFFER S P LD A4,DWTTAB,A6 S P INH . =1 S 0 P CF A15,MOVSU MOVE RESET INFOR
0x4a5b58…4a5cec Dummy {f00=0x0176, f01=0x0190, f02=»FFER S r P XIF T P LDR A1,A7 T P RF RHEXIT T * P IFF SWITVC=0 T < PRSTS30 EQU * T R P LDR A1,A7 T f P ANK A1,CLEA.RC CLEAR ? T x " P RF(Z) RHEXIT COMPLETE REQUEST T 2 P LDK A3,TOLD.RC SET 'TOLD TO USER'-INDICATION T P ORRS A3,A2 . T &
0x4a5cec…4a5e80 Dummy {f00=0x0176, f01=0x0190, f02=»IF T P* U P EJECT U P* U " @ P************************************************************ U , P* U p ( P* READ,WRITE AND SET STATUS REQUEST U z P* U @ P************************************************************ U P* U PREAD00 EQU
0x4a5e80…4a6014 (1, 1307) Dummy {f00=0x0176, f01=0x0190, f02=»ASK START FLAG U * P ABL(Z) ERRSYS INCORRECT SYSTEM STATE V P ANK A4,/FF V D P LDR A3,A4 DWTSTE V X & P RF(Z) ERRSTE INCORRECT DWT STATE V r P* V P* GET LC-ADM ADDRESS V P* V P LC A4,DWTLCN,A6 V P CF A14,GTLCAD V P* V
0x4a6014…4a61a8 Dummy {f00=0x0176, f01=0x0190, f02=»MORE INFO ? V P RF(Z) READ20 NO W P LDR A2,A1 W , . P ANK A2,TOLD.RC RETURN INFO TOLD TO USER ? W > P IFF SWITVC=0 W p P RF(NZ) READ10 YES W P XIF W P IFT SWITVC=0 W P RF(NZ) READ15 YES W P XIF W P EJECT W P* W , P LDK A2,
0x4a61a8…4a633c Dummy {f00=0x0176, f01=0x0190, f02=»TEST IF RESET/CLEAR W P* X PREAD10 EQU * X & P XRR A1,A2 X : P ANK A1,CLEA.RC CLEAR ? X L P RF(Z) READ15 NO X l P LDR A1,A2 X P ANK A2,RSET.RC RESET ? X P RF(Z) RHEXIT NO X P* X P* RESET AND CLEAR X P* X & P XRS A2,DWTR
0x4a633c…4a64d0 Dummy {f00=0x0176, f01=0x0190, f02=»ET.RC+MORE.RC+1 X ( P XRS A1,DWTRCI,A6 RESET RETURN INFO Y P* Y D P* SEPARATE THE REQUESTS Y N P* Y n PREAD20 EQU * Y x P LD A4,DWTOR,A6 Y P ANK A4,/3F Y P SUK A4,6 Y P RF(Z) WRIT05 WRITE REQUEST Y & P ABL(P) STAT05 SET STATUS
0x4a64d0…4a6664 Dummy {f00=0x0176, f01=0x0190, f02=»LEN INCORRECT LENGTH Y P* Z P* BRANCH ON DWT STATE Z & P* Z J P LDK A2,READAT FUNCTION CODE Z T 6 P LDR A4,A3 SAVE DWT STATE Z x P ADR A3,A3 Z ( P SUK A3,ENDRST+2 TEST+2 UPPER BOUND Z , P ABI(L) RSTATE+ENDRST,A3
0x4a6664…4a67f8 Dummy {f00=0x0176, f01=0x0190, f02=» & P DATA RCONRD CONNECTED REFUSE DATA [ P IFF SWITVC=0 [ . 6 P DATA RINCAR INCOMING CALL RECEIVED(WITH ACC/REF ) [ D P P DATA RINCAR INCOMING CALL RECEIVED(WITHOUT ACC/REF ) [ ~ * P DATA RVCREL VIRTUAL CIRCUIT RELEASED [ P XIF [
0x4a67f8…4a698c Dummy {f00=0x0176, f01=0x0190, f02=» A2,ACCDAT [ " P CFR A14,A11 TRANSPORT HANDLER ( P LDK A1,CONAD CONNECTED ACCEPT DATA 8 P SC A1,DWTSTE,A6 d P LDK A2,READAT FUNCTION CODE | P EJECT P* P* READ " P* CONNECTED ACCEPT DATA P* PRCONAD EQU
0x4a698c…4a6b20 Dummy {f00=0x0176, f01=0x0190, f02=» SWITVC=0 6 P SUK A4,INCALR CHECK DWT STATE ] P RF(Z) READ30 ] L P* ] l P* READ ] v > P* INCOMING CALL RECEIVED,WITHOUT ACCEPT/REFUSE CALL ] P* ] < P LDK A1,CONAD CONNECTED ACC
0x4a6b20…4a6cb4 (1, 1308) Dummy {f00=0x0177, f01=0x0190, f02=»E TIMER ] ~ P* ^ P EJECT ^ P* ^ ( P IFF SWITVC=0 ^ 2 P* ^ H P* READ ^ R $ P* INCOMING CALL RECEIVED ^ h P* ^ PRINCAR EQU * ^ P LD A1,QUEINP,A13 ^ P ANKL A1,-2 ^ P RB(NZ) RCONAD ^ P XIF ^ P* ^ 2 P
0x4a6cb4…4a6e48 Dummy {f00=0x0177, f01=0x0190, f02=»OMPLETE REQUEST ^ P IFF SWITVC=0 _ P* _ . P* READ _ 8 $ P* VIRTUAL CIRCUIT CLEARED _ N P* _ v PRVCREL EQU * _ ( P ANK A1,CLEA.RC CONNECTION CLEARED ? _ ( P RF(NZ) RHEXIT YES,COMPLETE REQUEST _ P* _ $ P* ACTIVATE RHIP TO
0x4a6e48…4a6fdc Dummy {f00=0x0177, f01=0x0190, f02=»********************************************** _ P* ` 6 P* WRITE REQUEST ` @ P* ` ^ @ P************************************************************ ` h P* ` PWRIT05 EQU * ` P* ` P* BRANCH ON DWT STATE ` P* ` P SUK A
0x4a6fdc…4a7170 Dummy {f00=0x0177, f01=0x0190, f02=» SWITVC=0 ` " P RB ERRSTE INCORRECT DWT STATE a P XIF a 8 P IFF SWITVC=0 a D P SUK A3,VCREL-CONRD a Z & P RB(NZ) ERRSTE INCORRECT DWT STATE a v P* a P EJECT a P* a & P* VIRTUAL CIRCUIT RELEASED a P* a PWRIT10 EQU * a 0
0x4a7170…4a7304 Dummy {f00=0x0177, f01=0x018e, f02=»ARED a h P LD A2,DWTIPQ,A6 b $ P ANKL A2,-2 ANYTHING IN QUEUE ? b $ P RF(NZ) WRIT15 YES b L P ORK A1,MORE.RC MORE INFO b f P LDR A2,A1 b , P ORK A2,TOLD.RC RETURN CODE TOLD TO USER b P ST A2,DWTRCI,A6 b P RF RHEXIT b PWRIT15 EQU * b * P
0x4a7304…4a7498 Dummy {f00=0x0177, f01=0x0190, f02=» P* c H P******************************************************************* c P* c Z P* COMPLETE REQUEST c d P* c F P****************************************************************** c P* c PRHEXIT EQU * c P INH . =1 c (
0x4a7498…4a762c Dummy {f00=0x0177, f01=0x0190, f02=» CONNECTED c P* d PWRIT20 EQU * d P ADK A5,0 REQUESTED LENGTH d 0 " P RF(N) ERRLEN INCORRECT LENGTH d R ( P LC A3,DWTOPT,A6 GET NEW OPTION CODE d x P LDR A4,A3 d P ANK A4,INTOPT INTERRUPT ? d P RF(Z) WRIT30 NO d P LDK A2,WRIINT INTERRUPT
0x4a762c…4a77c0 Dummy {f00=0x0177, f01=0x0190, f02=» & P LDKL A1,INVL.RC INCORRECT LENGTH e P RB RHEXIT e . P* e @ P EJECT e J P* e X P* WRITE DATA e b P* e v PWRIT30 EQU * e < P CW A5,TRBFSZ,A13 TRANSMIT BUFFER SIZE e " P RB(G) ERRLEN INCORRECT LENGTH e P LDR A4,A3 e
0x4a77c0…4a7954 (1, 1309) Dummy {f00=0x0177, f01=0x018e, f02=»WTWRO,A6 GET OLD OPTION CODE e P LDR A2,A1 f $ P ANK A1,MOPT MORE DATA ? f 6 P RF(Z) WRIT40 NO f V P ANK A2,QOPT OLD Q-BIT f n P LDR A4,A3 f P ANK A4,QOPT NEW Q-BIT f P SUR A2,A4 SAME ? f $ P RB(NZ) ERRSTE NO,SEQUENCE ERROR f PWRIT40 EQU
0x4a7954…4a7ae8 Dummy {f00=0x0177, f01=0x0190, f02=» f p P* g P EJECT g P* g P* g * P* ACTIVATE TIMER g 4 P* g T PWRIT50 EQU * g ^ ( P LD A8,DWTRTV,A6 REQUEST TIMER VALUE g r 0 P RB(Z) RHSCHE NO TIMER,CONTROL TO SCHEDULER g 8 P LDKL A4,TIMOUT+1 TIME OUT ROUTINE g
0x4a7ae8…4a7c7c Dummy {f00=0x0177, f01=0x0190, f02=»JECT g P* h P* h @ P************************************************************ h P* h d P* OPEN REQUEST h n P* h @ P************************************************************ h P* h POPEN00 EQU * h , P CF A14,FNDLOC C
0x4a7c7c…4a7e10 Dummy {f00=0x0177, f01=0x0190, f02=» * P* CHECK IF OPEN SYSTEM ALREADY PENDING i P* i 2 $ P LD A3,CMNFLG,A12 i < P ANK A3,OPEFLG i d P RF(Z) OPEN10 NO i PERRSYS EQU * i , P LDKL A1,LOGE.RC INCORRECT SYSTEM STATE i P RB RHEXIT COMPLETE REQUEST i P
0x4a7e10…4a7fa4 Dummy {f00=0x0177, f01=0x0190, f02=»ABLE i v P* j , P* ADDR. TABLE NOT SUPPORTED IN PRR 11.0 j P* j F P RB ERRLEN LENGTH ERROR j P POPEN15 EQU * j p 4 P LD A3,ECBCW2,A8 GET LOCAL SYMBOLIC DTE ADDRESS j P ST A3,DWTLAD,A6 j P LDK A2,OPESYS OPEN SYSTEM j POPEN30 EQU * j "
0x4a7fa4…4a8138 Dummy {f00=0x0177, f01=0x0190, f02=»P PVC IDENTIFICATION j 0 P LDKL A2,SCTDCT POINTER TO DC ADDRESS TABLE k P LDKL A3,LINTAB-2 k P P IFF SYNRLN=1 k j " P LDK A4,SYNRLN NUMBER OF LINES k P XIF k P IFF PERMVC=0 k POPEN40 EQU * k 4 P ADK A3,2 POINTER TO LC-ADM BLOCK-POINTER TA
0x4a8138…4a82cc Dummy {f00=0x0177, f01=0x0190, f02=»A5 LC-ADM BLOCK TABLE k P* l P EJECT l ( P* l 6 & P* GET NEXT ENTRY IN DC ADDR. TABLE l @ P* l j POPEN60 EQU * l t P LDR* A2,A2 END OF TABLE ? l P RF(Z) OPEN90 YES l P* l P* TEST IF PVC l P* l P CW A1,4,A2 l P RB(NE
0x4a82cc…4a8460 Dummy {f00=0x0177, f01=0x0190, f02=» IN LC-ADM l x P ADK A5,2 ADDRESS NEXT LC m P SUK A7,1 MORE PVC'S ? m 4 P RB(NZ) OPEN60 YES m R POPEN80 EQU * m l P IFF SYNRLN=1 m P SUK A4,1 MORE LINES ? m P RB(NZ) OPEN40 YES m P XIF m POPEN90 EQU * m P LDK A3,0 SET RETURN CODE
0x4a8460…4a85f4 (1, 1310) Dummy {f00=0x0177, f01=0x0190, f02=»**************************************************** m P* n < P* CONNECT PASSIVE REQUEST n F P* n h H P******************************************************************** n r P* n PCONP00 EQU * n P IFT SWITVC=0 n P ABL ERRREQ REQUEST ER
0x4a85f4…4a8788 Dummy {f00=0x0177, f01=0x0190, f02=»* n H P******************************************************************** o P* o V P* CONNECT ACTIVE REQUEST o ` P* o H P******************************************************************** o P* o PCONA00 EQU * o P IFF SWITVC=0 o
0x4a8788…4a891c Dummy {f00=0x0177, f01=0x0190, f02=»TVC=0 o " P RB(P) ERRLEN INCORRECT LENGTH p P XIF p 4 P LDK A2,CONACT FUNCTION CODE p @ PCONA05 EQU * p d , P CF A14,FNDLOC CONFIRM LOCAL DTE ADDRESS p x " P ANK A1,STRTFL MASK START FLAG p ( P RB(Z) ERRSYS INCORRECT SYSTEM STATE p P ANK A4,/FF p
0x4a891c…4a8ab0 Dummy {f00=0x0177, f01=0x0190, f02=» P RF(Z) CONA10 q P SUK A4,VCREL q " P RF(NZ) CLOS10 SEQUENCE ERROR q 0 P LD A1,DWTRCI,A6 RETURN INFO q V P LDR A3,A1 q z $ P ANK A3,CLEA.RC CLEAR DETECTED ? q ( P RF(Z) CLOS10 NO,CONNECT NOT ALLOWED q " P ANK A1,TOLD.RC TOLD TO USER ? q P R
0x4a8ab0…4a8c44 Dummy {f00=0x0177, f01=0x018e, f02=»CW2,A8 LOCAL SYMBOLIC DTE ADDRESS q P ST A3,DWTLAD,A6 r * 0 P LD A3,ECBCW1,A8 REMOTE SYMBOLIC DTE ADDRESS r B P ST A3,DWTRAD,A6 r v & P CM DWTRTP,A6 CLEAR TIMER ADDRESS r $ P CM DWTIPQ,A6 CLEAR INPUT QUEUE r $ P CM DWTRCI,A6 CLEAR RETURN INFO. r 8 P
0x4a8c44…4a8dd8 Dummy {f00=0x0177, f01=0x0190, f02=» $ P CF A14,PUTDWT PUT DWT IN CHAIN s P IFF SWITVC=0 s , P IFF PERMVC=0 s B " P SUK A2,CONACT CONNECT ACTIVE s X P RF(NZ) CONA40 NO! s ~ P LC A2,DWTOPT,A6 PVC-OPTION? s P SUK A2,1 s P RF(NZ) CONA40 NO s P XIF s P IFF PERMVC=0 s
0x4a8dd8…4a8f6c Dummy {f00=0x0177, f01=0x0190, f02=»WITVC=0 s PCONA40 EQU * t P RB WRIT50 ACTIVATE TIMER t $ P XIF t F P* t R P EJECT t P* t j @ P************************************************************ t t P* t P* CLOSE REQUEST t P* t @ P******************************
0x4a8f6c…4a9100 Dummy {f00=0x0177, f01=0x0190, f02=»START FLAG t | $ P RF(Z) DISC40 CLOSE ALREADY DONE u P* u : P* LINE OPEN u D ( P* CHECK IF CLOSE ALREADY IN PROGRESS u X P* u P LDK A2,CLOSYS u $ P LD A3,CMNFLG,A12 u P ANK A3,CLOFLG u P RF(Z) DISC55 NO u P
0x4a9100…4a9294 (1, 1311) Dummy {f00=0x0177, f01=0x0190, f02=»******************* u ` P* v P* DISCONNECT REQUEST v & P* v B H P******************************************************************* v L P* v PDISC00 EQU * v 4 P LD A1,DWTLAD,A6 GET LOCAL SYMBOLIC DTE ADDRESS v * P CF A14,FNDLIN FIND LINE B
0x4a9294…4a9428 Dummy {f00=0x0177, f01=0x0190, f02=»0 DISCONNECT ALREADY DONE v $ P CM DWTRCI,A6 CLEAR RETURN INFO w " P IFT SWITVC=0 w J P RF DISC50 w ` P XIF w r P IFF SWITVC=0 w ~ * P SUK A4,VCREL VIRTUAL CIRCUIT RELEASED w P RF(NZ) DISC50 NO w P* w P* CLEAR INPUT QUEUE w P* w
0x4a9428…4a95bc Dummy {f00=0x0177, f01=0x0190, f02=» QUEUE EMPTY ? w p * P RF(Z) DISC20 YES x 6 P CF A14,DEQUE DEQUEUE ELEMENT x F 6 P CF A14,RLBUF RELEASE BUFFER x P RB DISC10 TAKE NEXT x PDISC20 EQU * x 4 P LDK A1,D
0x4a95bc…4a9750 Dummy {f00=0x0177, f01=0x0190, f02=»CHAIN x ~ P* y PDISC25 EQU * y * P CF A14,RELDWT RELEASE DWT FROM CHAIN y , PDISC40 EQU * y Z P LDK A1,ACPT.RC ACCEPTED y n P ABL RHEXIT COMPLETE REQUEST y PDISC50 EQU * y P LDK A2,DISCAL y PDISC55 EQU * y P LDK A5,DISCON y PDI
0x4a9750…4a98e4 Dummy {f00=0x0177, f01=0x0190, f02=»TEST IF PERMANENT VIRTUAL CIRCUIT y P* z * P LC A1,VCTYP,A13 z 4 P ANK A1,PVC z L P RF(Z) DISC70 NO z ` P XIF z x P IFF SWITVC=0 z P SUK A2,DISCAL DISCONNECT ? z P RB(Z) DISC25 YES z PDISC70 EQU * z $ P ABL RHSCHE CONTROL TO SCHED
0x4a98e4…4a9a78 Dummy {f00=0x0177, f01=0x0190, f02=»********************************* z v P* { * P* SET STATUS REQUEST { 4 P* { X @ P*********************************************************** { b P* { PSTAT05 EQU * { P IFF SWITVC=0 { P LDR A1,A3 { * P SUK A1,VCREL VIRTUAL CIRCUI
0x4a9a78…4a9c0c Dummy {f00=0x0177, f01=0x0190, f02=» " P ABL(NZ) ERRREQ REQUEST ERROR | P XIF | * P IFF SWITVC=0 | 6 & P RF(NZ) STAT20 ACCEPT CALL REQUEST | L P XIF | v ( P SUK A3,CONAD CONNECTED ACCEPT DATA | P RF(Z) STAT10 YES | . P SUK A3,CONRD-CONAD CONNECTED REFUSE DATA | " P RB(NZ) CLOS10
0x4a9c0c…4a9da0 Dummy {f00=0x0177, f01=0x0190, f02=»CONRD | P SC A1,DWTSTE,A6 } " P CFR A14,A11 TRANSPORT HANDLER } & $ P ABL RHSCHE CONTROL TO SCHEDULER } L P IFF SWITVC=0 } t P* } P EJECT } P* } P* ACCEPT CALL REQUEST } P* } PSTAT20 EQU * } * P SUK A3,INCALR INCOMING CALL REC
0x4a9da0…4a9f34 (1, 1312) Dummy {f00=0x0178, f01=0x0190, f02=»SC60 TRANSPORT HANDLER } P XIF ~ P EJECT ~ * P* ~ 8 H P******************************************************************** ~ B P* ~ P* SET TIMEOUT REQUEST ~ P* ~ H P******************************************************************** ~
0x4a9f34…4aa0c8 Dummy {f00=0x0178, f01=0x0190, f02=» ~ P IFT STATI=1 P EJECT P* * P* 4 @ P*********************************************************** > P* P* STATISTIC REQUEST P* @ P*********************************************************** P* P*
0x4aa0c8…4aa25c Dummy {f00=0x0178, f01=0x0190, f02=»SY l P LD A2,ECBRL,A8 P ABL(NP) ERRLEN LENGTH ERROR " 6 P ORS A1,CMNFLG,A12 SET STATISTIC REQUEST BUSY FLAG F P LDK A1,STATIS ( P SC A1,DWTFNC,A6 SAVE FUNCTION CODE P* : P* SAVE THREE WORDS OF THE USER ECB IN A MONITOR BLOCK
0x4aa25c…4aa3f0 Dummy {f00=0x0178, f01=0x0190, f02=»E REGISTERS n P ENB . P ST A4,DWTRTP,A6 SAVE BLOCK ADDRESS IN DWT , P ST A6,ECBCW2,A8 SAVE DWT-ADDRESS IN ECB R P* P EJECT P* 2 P* PREPARE ECB FOR STATISTIC REQUEST TO LEVEL 2 P* P LD A1,FILCOD,A12 6 P ST A1,ECB
0x4aa3f0…4aa584 Dummy {f00=0x0178, f01=0x018e, f02=»BUFFER b P ST A1,ECBBA,A8 TO ECB P XIF , P IFT STATI=1 8 ( P LDR A1,A8 ECB-ADDRESS AS PARAMETER L P* x ( P* ISSUE STATISTIC REQUEST TO LEVEL 2 P* P LDK A7,STATR FUNCTION CODE P LKM P DATA -1 $ P DATA STAEND ACT
0x4aa584…4aa718 Dummy {f00=0x0178, f01=0x018e, f02=» PSTAEND EQU * P LDR A8,A1 ECB-ADDRESS $ P LD A6,ECBCW2,A8 GET DWT-ADDRESS 6 , P LD A4,DWTRTP,A6 GET ADDRESS SAVE BLOCK ^ P CM DWTRTP,A6 P INH . =1 P CF A15,FREBLK RELEASE BLOCK P ENB & P ST A1,ECBFC,A8 RESTORE FILE CODE
0x4aa718…4aa8ac Dummy {f00=0x0178, f01=0x0190, f02=» . P ST A2,ECBBA,A8 RESTORE OLD BUFFER ADDRESS P LD A4,ECBEL,A8 6 " P LDKL A14,DCSTAK STACK POINTER N 0 P CF A14,COPTUB COPY STAT.INFO.TO USER BUFFER t P XIF P IFT STATI=1 P LD A1,ECBRC,A8 RETURN CODE P INH . =1 , P CF A15,TE
0x4aa8ac…4aaa40 Dummy {f00=0x0178, f01=0x018e, f02=» C1R A1,A1 , P ANS A1,CMNFLG,A12 RESET STAT. BUSY FLAG * P ABL EXITDC CONTROL BACK TO SCHEDULER B P XIF p P EJECT | P* . P* ROUTINE TO GET LINE INDEX AND/OR P* LINE BLOCK ADDRESS P* @ P********************
0x4aaa40…4aabd4 (1, 1313) Dummy {f00=0x0178, f01=0x0190, f02=» d P* P* CALLING SEQUENCE : P* CF A14,FNDLIN 6 0 P* CF A14,FNDLOC (A1 LOADED IN THE ROUTINE) V P* P* OUTPUT PARAMETERS : P* A1 = COMMON FLAGS & P* A12= LINE BLOCK ADDRESS P*
0x4aabd4…4aad68 Dummy {f00=0x0178, f01=0x0190, f02=» ADDRESS r PFNDLIN EQU * P STR A2,A14 SAVE A2 $ P LDKL A3,LOCAL SET TYPE @ P INH . =1 ` " P CF A15,FNDDNT FIND LOCAL DTE r P ENB . =1 P LDR A1,A1 FOUND ? P RF(NN) FNDL10 YES $ P ADKL A14,4 ADJUST STACK POINTER P A
0x4aad68…4aaefc Dummy {f00=0x0178, f01=0x0190, f02=»E p & P LD A1,CMNFLG,A12 GET COMMON FLAGS P LDR* A2,A14 RELOAD A2 4 P RTN A14 R P EJECT b P* p P* z P* PUT DWT IN CHAIN P* H P******************************************************************** P* P* INPUT PA
0x4aaefc…4ab090 Dummy {f00=0x0178, f01=0x018e, f02=»ING SEQUENCE: P* CF A14,PUTDWT P* . P* OUTPUT PARAMETERS: 8 P* A1 IS CHANGED T P* l PPUTDWT EQU * v P STR A2,A14 SAVE A2 P LDR A2,A12 P ADK A2,CHAIN PPUTD10 EQU * P LDR* A1,A2 GET ANCHOR P RF(Z)
0x4ab090…4ab224 Dummy {f00=0x0178, f01=0x0190, f02=» v P LDR* A2,A14 RESTORE A2 P RTN A14 ( P* 8 P EJECT B P* P P* Z P* RELEASE DWT FROM CHAIN d P* J P********************************************************************* P* P* INPUT PARAMETERS: P* A6
0x4ab224…4ab3b8 Dummy {f00=0x0178, f01=0x0190, f02=» CF A14,RELDWT P* P* OUTPUT PARAMETERS: P* A1 AND A2 ARE CHANGED < P* PRELDWT EQU * f P LDR A2,A12 z P ADK A2,CHAIN P RF RELD20 FIRST IN CHAIN ? PRELD10 EQU * P LDR A2,A1 P ADK A2,DWTCHN PRELD
0x4ab3b8…4ab54c Dummy {f00=0x0178, f01=0x0190, f02=»D A1,DWTCHN,A6 P STR A1,A2 REMOVE FROM CHAIN P CM DWTCHN,A6 : PRELD30 EQU * P P RTN A14 d P* t P EJECT ~ P* " P* TRANSPORT HANDLER INTERFACE P* PTRANSP EQU * ( P SC A2,DWTFNC,A6 SAVE FUNCTION CODE * P C
0x4ab54c…4ab6e0 Dummy {f00=0x0178, f01=0x0190, f02=»TRANSLATION P* P LD A1,RTNCTR,A4 P LDKL A4,RHEXIT 6 & P ST A4,4,A14 ADJUST RETURN ADDRESS N PTRANSR EQU * x P RTN A14 P* PRTNCTR EQU * P DATA ACPT.RC P DATA ACPT.RC ACCEPT * P DATA CLEA.RC VIRTUAL CIRCUI
0x4ab6e0…4ab874 (1, 1314) Dummy {f00=0x0178, f01=0x0190, f02=»C INVALID STATE P DATA INVL.RC INVALID LENGTH . P DATA NOLC.RC NO LOGICAL CHANNEL AVAILABLE < $ P DATA TIMO.RC TIME OUT DETECTED n P DATA RQUE.RC REQUEST ERROR P* P EJECT P* H P********************************************
0x4ab874…4aba08 Dummy {f00=0x0178, f01=0x018e, f02=»******************** ` P* $ P* ENTRY USED BY THE DC-SCHEDULER & P* N P* INPUT PARAMETERS: X " P* A1 = QUEUE ANCHOR ADDRESS t 2 P* A12 = ADDRESS OF LINE ADMINISTRATION BLOCK 2 P* A13 = ADDRESS OF LOGICAL CHANNEL ADM.BLOCK P*
0x4aba08…4abb9c Dummy {f00=0x0178, f01=0x0190, f02=» P RF RHIP10 P* $ 4 P* ENTRY USED BY THE REQUEST HANDLER OUTPUT PART . P* f P* INPUT PARAMETERS: p P* A6 = DWT ADDRESS P* A14 = CF STACK POINTER P* PRHIPRO EQU * P* " P* SET ADDRESS OF QUEUE
0x4abb9c…4abd30 Dummy {f00=0x0178, f01=0x018e, f02=»ICATION FOR RHIPRO-ENTRY-POINT f > P ST A7,DCLEVL SET DC-LEVEL-INDICATION & P* h P EJECT r P* P* DEQUEUE ELEMENT P* PRHIP10 EQU * P LDR A11,A1 A11=QUEUE ANCHOR P CF A14,DEQUE P LDR A8,A2 A
0x4abd30…4abec4 Dummy {f00=0x0178, f01=0x0190, f02=» 6 P LDK A3,0 A3:=PACKET TYPE INDEX FOR PROCESS-TABLE P* > " P* TEST IF ENTRY POINT WAS RHIP H P* n P LDR A7,A7 x * P RF(NZ) RHIP20 NO! P* ( P* GET DWT ADDRESS FROM LC-ADM P* $ P L
0x4abec4…4ac058 Dummy {f00=0x0178, f01=0x018e, f02=»ST,A6 $ P RF(N) RHIP30 NO REQUEST PENDING P* 6 P* GET PENDING REQUEST @ P* d P LDK A5,0 n P LC A5,DWTFNC,A6 P* P EJECT P* * P* TEST IF READ REQUEST PENDING P* P SUK A5,READAT P
0x4ac058…4ac1ec Dummy {f00=0x0178, f01=0x0190, f02=» ( P RF(NZ) RHIP40 DWT ADDRESS AVAILABLE P IFF SWITVC=0 0 P* F P* NO DWT ADDRESS P 2 P* TEST IF PACKET TYPE IS "CALL PACKET" p P* * P LDK A3,6 A3:=INDEX FOR PROCESS-TABLE P SUK A2,CAL.P & P RF(Z) RHIP90 PROCES
0x4ac1ec…4ac380 Dummy {f00=0x0178, f01=0x0190, f02=»PACKET j P* & P LDK A1,NOUSER A1:=DIAGNOSTIC CODE P RF RHI100 B P* T PRHIP40 EQU * ^ P LDK A1,DWTRCI r P ADR A1,A6 P LDKL A9,DATA.RC P* P EJECT P* ( P* TEST IF TH
0x4ac380…4ac514 (1, 1315) Dummy {f00=0x0178, f01=0x018e, f02=»INDICATION 'DATA RECEIVED' P RF RHIP60 " PRHIP50 EQU * B P C1R A9,A9 ^ 0 P ANRS A9,A1 RESET INDICATION 'DATA RECEIVED' ~ PRHIP60 EQU * P IFF SWITVC=0 P* P* DWT ADDRESS AVAILABLE
0x4ac514…4ac6a8 Dummy {f00=0x0178, f01=0x0190, f02=» P* TEST IF VC RELEASED P* & P LDK A4,VCREL 0 P LDR A10,A4 R " P LC A4,DWTSTE,A6 f P SUR A10,A4 * P RF(NZ) RHIP70 NO! P* P EJECT P* P* VC RELEASE
0x4ac6a8…4ac83c Dummy {f00=0x0178, f01=0x0190, f02=»Z) RHIP65 $ P LDR* A4,A7 MORE DATA IN QUEUE ? P RF(NZ) RHIP65 YES : . P XRRS A9,A1 RESET MORE DATA BIT IN DWTRCI T PRHIP65 EQU * D P CMR A11 CLEAR QUEUE ANCHOR IN LC.ADM P LDKL A11,DWTIPQ J P
0x4ac83c…4ac9d0 Dummy {f00=0x0178, f01=0x0190, f02=» T 6 P CM LCDWT,A13 CLEAR RELATION WITH LOGICAL CHANNEL P XIF B P* N 2 P* TEST IF PACKET TYPE IS "DATA PACKET" X P* PRHIP70 EQU * P LDK A4,DATA.P P TM A4,A2 & P ABL(Z) DATPAC PROCESS DATA PACKET P* P
0x4ac9d0…4acb64 Dummy {f00=0x0178, f01=0x0190, f02=» RB RHIP80 TRY NEXT PACKET TYPE P* ( PRHIP90 EQU * 2 * P ADR A3,A3 A3:=INDEX FOR PROCESS-TABLE F " P ABI PACPRO,A3 PROCESS PACKET t P* P EJECT P* : P* TABLE OF MATCHING PACKET PROCESSING ROUTINES P* PPACP
0x4acb64…4accf8 Dummy {f00=0x0178, f01=0x0190, f02=»CLEPAC,HALT CLEAR(-CONF.)PACKET * P DATA CALPAC,CALCON CALL(-CONF.)PACKET ( P XIF V 0 P DATA INTPAC,INTCON INTERRUPT(-CONF.)PACKET b P* ( P* UNEXPECTED PACKET RECEIVED P* PHALT EQU * P HLT P* P* P
0x4accf8…4ace8c Dummy {f00=0x0178, f01=0x018e, f02=»4,RLBUF RELEASE BUFFER PRHI110 EQU * P ABL CLVC EXIT OF RHIP 2 P* P P EJECT Z P* h 8 P* COMPLETE REQUEST WITH RETURNCODE "ACCEPTED" r P* PRHI120 EQU * P LDK A3,ACPT.RC P* : P* COMPLETE REQUEST
0x4ace8c…4ad020 Dummy {f00=0x0178, f01=0x0190, f02=» P* PRHI140 EQU * P LDR A2,A8 " P CF A14,RLBUF 4 P RF RIPEXI J P* 0 P* REQUEUE BUFFER,BLOCK QUEUE AND EXIT f P* PRHI150 EQU * , P LDR A1,A11 A1:=ADDRESS OF QUEUE ANCHOR " P LDR A2,A8 A2:=BUFFER ADDRESS
0x4ad020…4ad1b4 (1, 1316) Dummy {f00=0x0179, f01=0x0190, f02=» P* EXIT OF RHIP P* PRIPEXI EQU * ( P ABL EXITDC D P EJECT X P* f P* p ( P* TIMEOUT ROUTINE OF REQUEST HANDLER z P* H P******************************************************************** P* P*
0x4ad1b4…4ad348 Dummy {f00=0x0179, f01=0x0190, f02=» EQU * 0 P LDK A3,TIMO.RC PRE-SET RETURNCODE"TIMEOUT" P* J P* GET ADDRESS OF DWT T P* p P LDR A6,A12 z P* ( P* TEST IF REQUEST ALREADY COMPLETED P* " P LD A5,DWTRTP,A6 , P RB(Z) RI
0x4ad348…4ad4dc Dummy {f00=0x0179, f01=0x0190, f02=»JECT P* P* SCAN ON PENDING REQUEST P* 8 P LDK A5,0 B " P LC A5,DWTFNC,A6 ` " P LDR A7,A5 SAVE FUNCTION CODE & P SUK A5,WRIDAT WRITE DATA REQUEST P RF(Z) TIME00 YES & P SUK A5,READAT-WRIDAT RE
0x4ad4dc…4ad670 Dummy {f00=0x0179, f01=0x0190, f02=»TIMEOUT ON WRITE REQUEST , P* TEST IF REQUEST STILL IN OUTPUT QUEUE P* P PTIME00 EQU * Z P LDR A1,A13 n J P ADK A1,QUEOUT A1:=ADDRESS OF OUTPUT QUEUE ANCHOR P* P* TEST IF QUEUE IS EMPTY P*
0x4ad670…4ad804 Dummy {f00=0x0179, f01=0x0190, f02=» PTIME10 EQU * P SUK A2,1 , P RF(Z) TIME20 YES! 6 6 P CF A14,DEQUE DEQUEUE ELEMENT f P* P EJECT P* . P* TEST IF IT IS THE ONE WE ARE LOOKING FOR P* P C
0x4ad804…4ad998 Dummy {f00=0x0179, f01=0x0190, f02=»* P LDR* A4,A1 8 P CF A14,QUEUE RE-QUEUE ELEMENT * D P RB(NZ) TIME10 GET SECOND ELEMENT FROM QUEUE f P* P* ELEMENT NOT IN QUEUE , P* IF NOT WRITE INTERRUPT,IGNORE TIMEOUT P*
0x4ad998…4adb2c Dummy {f00=0x0179, f01=0x0190, f02=» P* PCOMPLE EQU * P CF A14,CMPREQ " P IFT SWITVC=0 8 PTIME30 EQU * N P XIF b PCOMEXI EQU * n P RB RIPEXI P IFF SWITVC=0 P* P EJECT P* P* RELEASE DWT FROM CHAIN P* PTIME30 EQU *
0x4adb2c…4adcc0 Dummy {f00=0x0179, f01=0x0190, f02=»F A14,RELDWT P LDK A3,TIMO.RC TIME OUT P XIF 4 P IFF SWITVC=0 @ P IFT SYNRLN=1 V & P LD A12,LINTAB LINE BLOCK ADDRESS l * P CF A14,RELDWT RELEASE DWT FROM CHAIN P XIF P IFF SWITVC=0 , P SUK A7,CONACT CONNECT ACTIVE REQU
0x4adcc0…4ade54 (1, 1317) Dummy {f00=0x0179, f01=0x018e, f02=»UTOMATIC)ACCEPT REQUEST P* PTIME40 EQU * * P* > " P* CLEAR DWT TO LC-ADM RELATION H P* n P LDK A4,0 x P LC A4,DWTLCN,A6 LC NUMBER & P CF A14,GTLCAD GET LC-ADM ADDRESS $ P CM LCDWT,A13 CLEAR DWT-ADDRESS $ P CF A14,CM
0x4ade54…4adfe8 Dummy {f00=0x0179, f01=0x0190, f02=» P* CALL PACKET P* H P******************************************************************** $ P* p P* INPUT PARAMETERS: z " P* A5 = REQUEST PENDING IND. P* A6 = DWT ADDRESS OR ZERO P* A8 = BUFFER ADDRESS P* A11 =
0x4adfe8…4ae17c Dummy {f00=0x0179, f01=0x0190, f02=»AC EQU * P* : P* TEST IF ONLY USER DATA HAS TO BE PASSED TO THE USER P* X P LDR A6,A6 b P ABL(NZ) CAL180 YES! t P* " P* GET DWT FOR LOGICAL CHANNEL P* * P LD A6,CHAIN,A12 GET DWT CHAIN ANCHOR 2 P RF(Z) CALP30 NO
0x4ae17c…4ae310 Dummy {f00=0x0179, f01=0x0190, f02=»LP10 EQU * P LD A4,DWTST,A6 $ P RF(N) CALP20 NO REQUEST PENDING * P LDK A4,CONPAS R & P CC A4,DWTFNC,A6 CONNECT PASSIVE ? h P RF(E) CALP40 YES PCALP20 EQU * " P LD A6,DWTCHN,A6 GET NEXT DWT P RB(NZ) CALP10 . P* " P
0x4ae310…4ae4a4 Dummy {f00=0x0179, f01=0x0190, f02=» LDK A1,NOTINT A1:=DIAGNOSTIC CODE P RB RHI100 * P* < 2 P* TEST IF CALLING DTE-ADDRESS KNOWN BY SYSTEM F P* | PCALP40 EQU * P LDK A5,BEGDAT P ADR A5,A8 P* @ P* GET ADDRESS WHERE CALLING LENGTH IN PACKET WILL BE STORED
0x4ae4a4…4ae638 Dummy {f00=0x0179, f01=0x0190, f02=»F CALLED DTE-ADDRESS ALSO IN PACKET P* , P LDR A4,A1 6 P ANK A4,/0F H P RF(Z) CALP80 NO P* t 4 P* MOVE CALLING DTE-ADDRESS TO CALLED DTE-ADDRESS ~ P* P LDR A7,A2 , P SRL A4,1 LENGTH OF CALLED DTE IN OCTADS P* TR
0x4ae638…4ae7cc Dummy {f00=0x0179, f01=0x0190, f02=» LDR A3,A1 L P SRL A1,4 A1:=LENGTH OF CALLING DTE IN SEMI-OCT 4 P LDR A4,A1 LENGTH OF CALLING DTE IN SEMI-OCTADS h P ANK A3,1 P RF(Z) CALP60 YES P* P EJECT P* & P* DTE-ADDRESS
0x4ae7cc…4ae960 Dummy {f00=0x0179, f01=0x0190, f02=»ER DIGIT b L P ADK A5,1 UPDATE ADDRESS OF CALLING DTE IN PAC P LCR A3,A5 ` : P SRL A3,4 A3:=LOW ORDER DIGIT F P SCR A3,A7 STORE DIGITS AT BEGIN OF PACKET 6 P
0x4ae960…4aeaf4 (1, 1318) Dummy {f00=0x0179, f01=0x0190, f02=») CALP85 P ADK A5,1 P RF CALP85 " P* 4 * P* DTE-ADDRESS STARTS ON OCTAD BOUNDARY > P* l PCALP60 EQU * v P LCR A3,A1 P SCR A3,A7 P ADK A7,1 P ADK A5,1 P
0x4aeaf4…4aec88 Dummy {f00=0x0179, f01=0x018e, f02=» P SRA A4,5 P RF(NN) CALP82 P ADK A4,1 , PCALP82 EQU * > P ANK A4,/0F LENGTH IN OCTETS R P ADR A5,A4 v PCALP85 EQU * P* P EJECT P* P* GET DTE-ADDRESS P* P LDKL A3,LOCAL SET TYPE P INH
0x4aec88…4aee1c Dummy {f00=0x0179, f01=0x018e, f02=» P LDR A1,A1 P RB(N) CALP30 NO P* 2 & P* TEST IF REMOTE ADDRESS ACCEPTED < P* f P LD A2,DWTRAD,A6 p & P RF(Z) CALP90 ALL REMOTE ACCEPTED P CWR A1,A2 ( P RB(NE) CALP20 NOT ACCEPTED,TRY NEXT P* P* DWT FOUND
0x4aee1c…4aefb0 Dummy {f00=0x0179, f01=0x0190, f02=» ~ P* P EJECT P* * P* STORE LOG CHAN NUMBER IN DWT * P* X " P LC A1,LCIDNT,A8 GET LC NUMBER b $ P SC A1,DWTLCN,A6 STORE IT IN DWT P* ( P* STORE DWT ADDRESS IN LC-ADM P* P ST A6,LCDWT,A13 P
0x4aefb0…4af144 Dummy {f00=0x0179, f01=0x0190, f02=»ET r P SUK A3,2 2 P CWR A5,A3 FACILITIES OR USER DATA IN PACKET ? P RF(E) CAL150 NO R 0 P STR A5,A8 STORE BEGIN ADDR.IN HDLC-HEADDER j P* P EJECT P* P* TEST IF FACILITIES ONLY P* P LCR A1,A5 @ P A
0x4af144…4af2d8 Dummy {f00=0x0179, f01=0x0190, f02=» A1,A5 P CWR A1,A3 @ P RF(NE) CAL100 FACILITIES AND USER DATA 2 P* v P* ONLY FACILITIES P* @ P ADK A1,1 ADD FACILITY-LENGTH OCTAD P SUR A1,A5 P
0x4af2d8…4af46c Dummy {f00=0x0179, f01=0x0190, f02=» A3,A5 A3:=LENGTH IN OCTADS PCAL110 EQU * 2 J P SC A3,LCIDNT,A8 STORE LENGTH IN LOGICAL CHAN.NUMBER N P LDKL A3,DATA.RC P* 4 P* TEST IF OPTION SET IN CONNECT PASSIVE REQUEST P* P LDK A2,
0x4af46c…4af600 Dummy {f00=0x0179, f01=0x0190, f02=»* P ST A3,DWTRCI,A6 P* " P EJECT , P* : $ P* REQUEUE BUFFER AND BLOCK QUEUE D P* l P LDR A2,A8 v P LDR A1,A11 6 P CF A14,QUEUEF REQUEUE BUFFER P LDK A1,NPR
0x4af600…4af794 (1, 1319) Dummy {f00=0x0179, f01=0x0190, f02=»A11,TRANSP P ABL DISC60 ACCEPT CALL PCAL130 EQU * 2 P SC A2,DWTSTE,A6 F P CF A14,CMPREQ ^ P* t 0 P* REQUEUE BUFFER,BLOCK QUEUE AND EXIT ~ P* PCAL140 EQU * P ABL RHI150 P* P EJECT P* $ P*
0x4af794…4af928 Dummy {f00=0x0179, f01=0x0190, f02=»D " P LC A3,DWTOPT,A6 P ANK A3,CALOPT 0 P RF(NZ) CAL155 YES T P LDR A2,A8 n 6 P CF A14,RLBUF RELEASE BUFFER P RB CAL120 P* PCAL155 EQU * P LDK A5,INCALR
0x4af928…4afabc Dummy {f00=0x0179, f01=0x0190, f02=»* RELEASE BUFFER AND EXIT P* ( PCAL160 EQU * 2 P ABL RHI120 F PCAL170 EQU * Z P LDR A2,A8 v 6 P CF A14,RLBUF RELEASE BUFFER P RB CAL120 P EJECT P* > P
0x4afabc…4afc50 Dummy {f00=0x0179, f01=0x0190, f02=»REQUEST PENDING z P* P LDR A5,A5 " P RF(NZ) CAL190 NO 4 P* N " P* READ REQUEST PENDING X P* ~ L P LDR* A1,A8 A1:=ADDRESS OF FACILITY LENGTH IN PAC P* D P* GET NUMBER OF CHARACTERS TO M
0x4afc50…4afde4 Dummy {f00=0x0179, f01=0x0190, f02=»PTUB x H P RB CAL160 COMPLETE REQUEST WITH RETURN CODE H P 'ACCEPTED',RELEASE BUFFER AND EXIT X P* P* TEST IF VC RELEASED P* PCAL190 EQU * P LDR A10,A10 6 P RB(
0x4afde4…4aff78 Dummy {f00=0x0179, f01=0x0190, f02=»* P* CALL CONFIRMATION PACKET P* , H P******************************************************************** 6 P* P* INPUT PARAMETERS: P* A6 = DWT ADDRESS P* A8 = BUFFER ADDRESS P* A14 = CF STACK POINTER P*
0x4aff78…4b010c Dummy {f00=0x0179, f01=0x0190, f02=»E REQUEST WITH RETURNCODE "ACCEPTED" $ P* RELEASE BUFFER AND EXIT , P* T P ABL RHI120 ^ P* r P EJECT | P* P* P* CLEAR PACKET P* J P*********************************************************************
0x4b010c…4b02a0 Dummy {f00=0x0179, f01=0x0190, f02=» 4 P* =0: READ REQUEST PENDING 6 P* >0: OTHER REQUEST PENDING < ( P* A6 = DWT ADDRESS v P* A8 = BUFFER ADDRESS * P* A11 = ADDRESS OF INPUT-QUEUE ANCHOR , P* A14 =
0x4b02a0…4b0434 (1, 1320) Dummy {f00=0x017a, f01=0x0190, f02=»FO p P RF CLERES P XIF P EJECT ( P* 6 P* @ P* RESET PACKET J P* ` H P******************************************************************** j P* P* INPUT PARAMETERS: ( P* A5 = REQUEST PENDING INDICATION $ P
0x4b0434…4b05c8 Dummy {f00=0x017a, f01=0x0190, f02=» ADDRESS P* A8 = BUFFER ADDRESS P* A14 = CF STACK POINTER 0 P* R PRESPAC EQU * $ P CM DWTRCI,A6 CLEAR RETURN INFO p P LDK A4,0 P SC A4,DWTWRO,A6 . P LDK A3,RSET.RC+MORE.RC RESET + MORE INFO & P LDK A1,DWTRES DISP
0x4b05c8…4b075c Dummy {f00=0x017a, f01=0x018e, f02=»FIELD IN PACKET n P* 6 P* GET CAUSE AND DIAGNOSTIC CODE FROM PACKET " P* P LCR A7,A4 f P ECR A7,A7 P LC A7,1,A4 P EJECT P* 4 P* STORE RESET CAUSE AND DIAGNOSTI
0x4b075c…4b08f0 Dummy {f00=0x017a, f01=0x0190, f02=» P RF(N) RESP30 NO! P* " , P* TEST IF CLOSE SYSTEM REQUEST PENDING , P* P SUK A5,CLOSYS f P IFT STATI=1 | P RF(Z) RESP40 YES ! P* * P* TEST IF STATISTIC REQUEST PENDING P* P SUK A5,STATIS-CLOSYS
0x4b08f0…4b0a84 Dummy {f00=0x017a, f01=0x0190, f02=»ETE REQUEST | PRESP30 EQU * P IFF SWITVC=0 ( " P ANK A3,CLEA.RC CLEAR PACKET ? > P RF(Z) RESP40 NO d * P CF A14,RELDWT RELEASE DWT FROM CHAIN | P XIF P* P* RELEASE BUFFER AND EXIT P* PRESP40 EQU * P ABL RHI
0x4b0a84…4b0c18 Dummy {f00=0x017a, f01=0x0190, f02=»********* V P* P* INPUT PARAMETERS: ( P* A5 = REQUEST PENDING INDICATION 8 $ P* <0: NO REQUEST PENDING d & P* =0: READ REQUEST PENDING & P* >0: OTHER REQUEST PENDING P* A6 = DWT ADDRESS P* A8 = BUF
0x4b0c18…4b0dac Dummy {f00=0x017a, f01=0x0190, f02=»CHOR t P* A13 = LC-ADM ADDRESS P* A14 = CF STACK POINTER , P* N PDATPAC EQU * X P LDKL A9,DATA.RC l P LDR A3,A6 P ADK A3,DWTRCI P* * P* TEST IF READ REQUEST PENDING P* P LDR A5,A5 P RF(NZ)
0x4b0dac…4b0f40 Dummy {f00=0x017a, f01=0x0190, f02=» 4 P LDK A1,BEGDAT A1:=DISPL.IN PACKET FOR USER DATA 4 P ADR A1,A8 A1:=STARTADDR.OF USER DATA IN PACKET < 0 P LDR* A4,A8 A4:=TOTAL LENGTH OF DATA PACKET t * P SUK A4,BEGDAT A4:=LENGTH OF USER DATA P CF A14,COPTUB P IFF SWITVC=0 P*
0x4b0f40…4b10d4 (1, 1321) Dummy {f00=0x017a, f01=0x0190, f02=»! j P XIF P LC A2,NRNUBF,A13 P ADK A2,1 0 4 P SC A2,NRNUBF,A13 INCREMENT NR.OF UNUSED BUFFERS B PDAT005 EQU * z P* P* PREPARE RETURNCODE P* P LDR* A3,A3 P* . P* TEST IF MORE-DATA-I
0x4b10d4…4b1268 Dummy {f00=0x017a, f01=0x0190, f02=» r P* ADJUST RETURN CODE P* $ P ORKL A3,LAST.RC . P* F P EJECT P P* ^ & P* TEST IF QUALIFIER-BIT SET h P* PDAT010 EQU * P LC A1,QBIT,A8 P ANK A1,QPOS P RF(Z) DAT020 P* 2 P* QUALI
0x4b1268…4b13fc Dummy {f00=0x017a, f01=0x0190, f02=» $ P* RELEASE BUFFER AND EXIT P* , PDAT020 EQU * 6 P ABL RHI130 J P* ^ $ P* NO READ REQUEST PENDING h P* PDAT030 EQU * * P ORRS A9,A3 SET DATA AVAILABLE IN DWT P* 0 P* REQUEUE BUFFER,BLOCK QUEU
0x4b13fc…4b1590 Dummy {f00=0x017a, f01=0x0190, f02=»************************************************* ~ P* : P* INPUT PARAMETERS: D ( P* A5 = REQUEST PENDING INDICATION ` $ P* <0: NO REQUEST PENDING & P* =0: READ REQUEST PENDING & P* >0: OTHER REQUEST PENDING P
0x4b1590…4b1724 Dummy {f00=0x017a, f01=0x0190, f02=»ASED j $ P* A11 = ADDRESS OF QUEUE ANCHOR P* A13 = LC-ADM ADDRESS 4 P* A14 = CF STACK POINTER T P* v PINTPAC EQU * P LDK A7,DWTRCI P ADR A7,A6 P LDKL A3,INTR.RC P* " P*
0x4b1724…4b18b8 Dummy {f00=0x017a, f01=0x0190, f02=»QUEST PENDING ( P* COPY PACKET TO USER BUFFER 8 P* RESET INTERRUPT RECEIVED INDICATION IN DWT B P* ~ P C1R A3,A3 P ANRS A3,A7 6 P LDK A1,BEGDAT A1:=DISPL.IN PACKET FOR INTERRUPT- P USE
0x4b18b8…4b1a4c Dummy {f00=0x017a, f01=0x018e, f02=» C1R A3,A3 A3:=RETURNCODE:INTERRUPT PACKET REC. P ORR* A3,A7 L $ P CF A14,CMPREQ COMPLETE REQUEST ` P LDR A2,A8 P CF A14,RLBUF RELEASE BUFFER P* & P* TEST IF DWT STATE IS VC RELEASED P* P LDR
0x4b1a4c…4b1be0 Dummy {f00=0x017a, f01=0x0190, f02=» PINT002 EQU * $ P LDR A2,A13 GET AN OUTPUT BUFFER P ADK A2,SYSBUF @ P* V P* TEST IF BUFFER IS FREE ` P* P LDR* A1,A2 P RF(Z) INT004 YES , P LDKL A1,INT002 A1:=REACTIVATION ADDRESS $ P ABL BUFWAT WAIT FOR FREE BUFFER
0x4b1be0…4b1d74 (1, 1322) Dummy {f00=0x017a, f01=0x0190, f02=»T INTERRUPT CONF.TYPE IN BUFFER ~ 4 P LDK A1,INT.CL PACKET LENGTH OF INTERRUPT CONF. ( * P ST A1,HDLC,A2 STORE LENGTH IN BUFFER ` P LDR A1,A13 6 P ADK A1,QUEOUT A1:=ADDRESS OF OUTPUT QUEUE ANCHOR P CF A14,QUEUEF P* * P* SET PROCES
0x4b1d74…4b1f08 Dummy {f00=0x017a, f01=0x0190, f02=»QU * P ABL EXITDC EXIT P* * P* NO READ REQUEST PENDING 4 . P* SET INTERRUPT RECEIVED INDICATION IN DWT V P* PINT010 EQU * P ORRS A3,A7 P* * P* REQUEUE BUFFER,BLOCK QUEUE AND EXIT P* P ABL RHI150
0x4b1f08…4b209c Dummy {f00=0x017a, f01=0x018e, f02=»************************* d P* " P* INPUT PARAMETERS: , & P* A5 = REQUEST PENDING INDICATOR H 2 P* <0: NO REQUEST PENDING r 4 P* =0: READ REQUEST PENDING 6 P* >0: OTHER REQUES
0x4b209c…4b2230 Dummy {f00=0x017a, f01=0x018e, f02=» PINTCON EQU * P* " P* TEST IF ANY REQUEST PENDING " P* H P LDR A5,A5 R P RF(N) INC020 r P* . P* TEST IF WRITE INTERRUPT REQUEST PENDING P* P SUK A5,WRIINT $ P RF(NZ) INC020 NO; IGN
0x4b2230…4b23c4 Dummy {f00=0x017a, f01=0x0190, f02=» P ABL RHI120 P* P* RELEASE BUFFER AND EXIT " P* D PINC020 EQU * N P ABL RHI140 b P EJECT v P* P* P* COMPLETE USER REQUEST P* H P********************************************************************
0x4b23c4…4b2558 Dummy {f00=0x017a, f01=0x0190, f02=» P* CALLING SEQUENCE: P* CF A14,CMPREQ $ P* < P* OUTPUT PARAMETERS: F P* NO REGISTERS ARE CHANGED b P* PCMPREQ EQU * P IFT CPU852=1 P ST A1,CMPSAV SAVE A1 P ST A2,CMPSAV+2 SAVE A2 P XIF P IFT
0x4b2558…4b26ec Dummy {f00=0x017a, f01=0x0190, f02=» A1,DWTST,A6 * P RF(N) CMP020 NO! P* D P EJECT N P* & P* TEST IF REQUEST TIMER IS RUNNING f P* P LD A1,DWTRTP,A6 " P RF(Z) CMP010 NO TIMER RUNNING P* P* CANCEL RUNNING TIMER P*
0x4b26ec…4b2880 Dummy {f00=0x017a, f01=0x0190, f02=» r P* P LDR A1,A3 A1:= RETURN CODE P INH . =1 6 $ P CF A15,TENDIO COMPLETE REQUEST H P ENB p PCMP020 EQU * | P IFT CPU852=1 P LD A1,CMPSAV RELOAD A1 P LD A2,CMPSAV+2 RELOAD A2 P XIF P IFT CPU852=
0x4b2880…4b2a14 (1, 1323) Dummy {f00=0x017a, f01=0x0190, f02=» PCMPSAV EQU * P DATA 0,0 P EJECT . P* < P* F 0 P* COPY INFORMATION FROM SYSTEM TO USER AREA P P* H P******************************************************************** P* P* INPUT PARAMETERS: " P* A1 =
0x4b2a14…4b2ba8 Dummy {f00=0x017a, f01=0x0190, f02=»* CALLING SEQUENCE: P* CF A14,COPTUB P* 4 P* OUTPUT PARAMETERS: > P* NONE Z P* j PCOPTUB EQU * t P STR A3,A14 SAVE A3 $ P LD A3,DWTECB,A6 GET ECB ADDRESS , P LD A2,ECBBA,A3 GET USER BUFFER ADDRESS ( P ST A4,ECBEL
0x4b2ba8…4b2d3c Dummy {f00=0x017a, f01=0x0190, f02=»U MOVE DATA FROM SYSTEM TO USER P ENB . =1 ( P LDR* A3,A14 RESTORE A3 : P RTN A14 Z P* j P EJECT t P* P* * P* SAVE REGISTERS A1-A8 IN DC SAVE AREA P* H P**********************************************************
0x4b2d3c…4b2ed0 Dummy {f00=0x017a, f01=0x0190, f02=»E CHANGED ~ P* PSAVE8 EQU * P IFT CPU852=1 0 P ST A1,SAVE F P ST A2,SAVE+2 Z P ST A3,SAVE+4 p P ST A4,SAVE+6 P ST A5,SAVE+8 P ST A6,SAVE+10 P ST A7,SAVE+12 P ST A8,SAVE+14 P XIF P IFT CPU
0x4b2ed0…4b3064 Dummy {f00=0x017a, f01=0x0190, f02=» f P* H P******************************************************************* P* ^ P* CALLING SEQUENCE: h P* CF A14,RELOA8 P* P* OUTPUT PARAMETERS: $ P* REGISTERS A1-A8 ARE RELOADED P* PRELOA8 EQU * P
0x4b3064…4b31f8 Dummy {f00=0x017a, f01=0x0190, f02=»,SAVE+10 P LD A7,SAVE+12 P LD A8,SAVE+14 & P XIF < P IFT CPU852=0 H P ML 8,SAVE ^ P XIF p P RTN A14 RETURN TO CALLER | P EJECT P* P* < P* THIS MODULE SELECTS FROM THE DWT THE TRANSPORT HANDLER ( P* FUNCTI
0x4b31f8…4b338c Dummy {f00=0x017a, f01=0x0190, f02=»* A6 = DWT-ADDRESS (NOT FOR START & STOP REQUEST) P* A12 = LINE BLOCK ADDRESS < ( P* A14 = CALL FUNCTION STACK POINTER ` P* P* CALLING SEQUENCE: P* CF A14,TRANSH P* P* OUTPUT PARAMETERS: P* A4 = RETURN CODE
0x4b338c…4b3520 Dummy {f00=0x017a, f01=0x0190, f02=»VE8 SAVE REGISTERS x & P LC A1,DWTFNC,A6 GET FUNCTION CODE & P ANK A1,/FF . P ( P LC A4,DWTLCN,A6 GET LC-ADM ADDRESS f P ANK A4,/FF . P SLL A4,1 . P AD A4,LC:TAB,A12 . P LDR* A13,A4 . L P ABI TABTH,A1
0x4b3520…4b36b4 (1, 1324) Dummy {f00=0x017b, f01=0x0190, f02=»U * < P ST A4,SAVE+6 SAVE RETURN CODE P CF A14,RELOA8 L ( P RTN A14 BACK TO THE REQUEST HANDLER p P* 2 P* BRANCH TABLE FOR TRANSPORT HANDLER FUNCTIONS P* PTABTH EQU * P DATA START OP
0x4b36b4…4b3848 Dummy {f00=0x017b, f01=0x0190, f02=» PASSIVE REQUEST | " P DATA CLEAR DISCONNECT REQUEST P DATA CALLCR ACCEPT CALL > P XIF ^ P IFT SWITVC=0 j & P DATA HLT CONNECT PASSIVE REQUEST " P DATA CLEAR DISCONNECT REQUEST P DATA HLT ACCEPT CALL P XIF P DATA RRR ACCE
0x4b3848…4b39dc Dummy {f00=0x017b, f01=0x0190, f02=» PSTPINT EQU * P CF A14,STOP P RB READY 0 P* B P EJECT L P* Z P* d , P* PROCESSING OF THE OPEN SYSTEM REQUEST n P* 0 P******************************************** P* P* INPUT PARAMETERS: P* A12
0x4b39dc…4b3b70 Dummy {f00=0x017b, f01=0x018e, f02=»* A RETURN IS MADE TO THE LABEL "READY" P* 0 P* OUTPUT PARAMETERS: : P* A4 = RETURN CODE V P* r PSTART EQU * | & P LDK A4,HRDERR PRESET RETURN CODE & P LDK A1,CLOFLG CLOSE STILL BUSY ? P AN A1,CMNFLG,A12 . P ABL(NZ)
0x4b3b70…4b3d04 Dummy {f00=0x017b, f01=0x0190, f02=» P ANK A4,/FF . P SUK A4,1 . P IFF PERMVC=0 . $ P LC A7,NRPVC,A12 GET # OF PVC'S D P ANK A7,/FF . l P SUK A7,1 . P XIF P* P EJECT PSTRT00 EQU * & P CF A14,GTLCAD GET LC-ADM ADDRESS , P SC A4,LCNUM,A13
0x4b3d04…4b3e98 Dummy {f00=0x017b, f01=0x0190, f02=»13 VC-TYPE ( P SC A2,NRNUBF,A13 FREE INPUT BUFFERS ( P ST A2,LCDWT,A13 LC TO DWT RELATION > $ P ST A2,QUEINP,A13 RH-INPUT QUEUE j & P ST A2,QUEOUT,A13 TH-OUTPUT QUEUE * P ST A2,TIMADR,A13 TIMER BLOCK ADDRESS ( P ST A2,SYSBUF,A13 FREE SYSTEM
0x4b3e98…4b402c Dummy {f00=0x017b, f01=0x018e, f02=» P IFF PERMVC=0 P CWR A7,A4 IS THIS A PVC ? P RF(NE) STRT02 NO @ P XIF Z P IFF PERMVC=0 f P LDKL A8,PVC SET PVC TYPE | P SC A8,VCTYP,A13 . , P LDKL A8,DATA.ST SET DATA TRANSFER STATE P SC A8,LCSTAT,A13 . & P LD
0x4b402c…4b41c0 Dummy {f00=0x017b, f01=0x0190, f02=» P ST A1,TRBFSZ,A13 . P ST A1,REBFSZ,A13 . 0 P CF A14,TRTHR TRANSLATE THRESHOLD PERCENTAGE < & P CF A14,CLLCAD CLEAR LC-ADM FIELDS p P SUK A7,1 . PSTRT02 EQU * P XIF P SUK A4,1 NEXT LC-ADM ? P RB(NN) STRT00 YES P
0x4b41c0…4b4354 (1, 1325) Dummy {f00=0x017b, f01=0x0190, f02=»SS v P ADKL A8,LOCECB . P STR A1,A8 SAVE FILE CODE $ 4 P CM NRPNDT,A12 NUMBER OF PENDING OUTPUT REQUESTS F " P CM HRDSTA,A12 HARDWARE STATUS ~ ( P CM RTMADR,A12 RESTART TIMER ADDRESS . P CM RSTQUE,A12 CLEAR RESTART QUEUE ANCHOR P*
0x4b4354…4b44e8 Dummy {f00=0x017b, f01=0x0190, f02=»3,ECBOU1 . PSTRT05 EQU * " P ST A1,ECBFC,A3 SAVE FILE CODE & & P CM ECBBA,A3 CLEAR BUFFER ADDRESS L & P ADK A3,ECBINL+SYSBFL v P SUK A2,1 P RB(P) STRT05 NEXT ECB P* P* PREPARE OPEN REQUEST ECB P* P L
0x4b44e8…4b467c Dummy {f00=0x017b, f01=0x0190, f02=» ECB ~ * P LD A5,PACKLN,A12 RECEIVE BUFFER SIZE P ADK A5,BEGDAT . : P ST A5,ECBRL,A8 . R P* l P EJECT v P* P* SET OPEN BUSY INDICATION P* P LDK A3,OPEFLG P ORS A3,CMNFLG,A12 P* , P* PREPARE USER BLOCK
0x4b467c…4b4810 Dummy {f00=0x017b, f01=0x018e, f02=»DATE STORE POINTER P CF A14,GTBUF GET A BUFFER " P STR A2,A4 SAVE BUFFER ADDRESS < $ P SUK A3,1 MORE BUFFERS NEEDED ? b P RB(P) STRT10 YES P LDK A7,CONN+/80 ORDER CODE $ P LD A2,DWTRTV,A6 GET TIMER VALUE PSTRT20 EQU * " P LKM
0x4b4810…4b49a4 Dummy {f00=0x017b, f01=0x0190, f02=» P RF(Z) STRT40 NO ERRORS & P LDKL A3,HRDWER HARDWARE ERRORS ? $ P ANR A3,A1 . N P RF(Z) STRT30 NO b " P ST A1,HRDSTA,A12 SAVE STATUS z P LDK A4,HRDERR RETURN CODE P RF RETUR2 P* P EJECT P* P* TEST ON TYPE OF
0x4b49a4…4b4b38 Dummy {f00=0x017b, f01=0x0190, f02=»ETUR2 YES P CWK A1,DEFTIM TIME-OUT ? P ABL(NE) HLT ERROR 4 P LDR A2,A2 TIME OUT ? N P RB(Z) STRT20 NO l & P LDK A4,TMEOUT PRESET RETURN CODE P SUKL A2,330 TIME OUT ? & P RF(N) RETUR2 YES,COMPLETE REQUEST P RB STRT20 NO,CO
0x4b4b38…4b4ccc Dummy {f00=0x017b, f01=0x018e, f02=»ET SYSTEM STARTED FLAG P ORS A1,CMNFLG,A12 . , P LDK A4,SYNRRC NUMBER OF INPUT REQUESTS : ( P LDR A8,A12 ADDRESS FIRST INPUT ECB j P ADKL A8,ECBIN1 . PSTRT50 EQU * & P LD A1,FILCOD,A12 FILE CODE TO ECB P ST A1,ECBFC,A8 . & P
0x4b4ccc…4b4e60 Dummy {f00=0x017b, f01=0x0190, f02=» P ST A1,ECBRL,A8 . * P LDR A1,A8 PARAMETER AFTER COMPLETION P LDK A7,RECEIV ORDER CODE L P LKM ISSUE INPUT REQUEST n P DATA -1 " P DATA ENDIN ACTIVATION ADDRESS ( P ADKL A8,ECBINL GET NEXT ECB-ADDRESS P SUK A4,1 NEXT ONE ?
0x4b4e60…4b4ff4 (1, 1326) Dummy {f00=0x017b, f01=0x0190, f02=» A2,A13 GET AN OUTPUT BUFFER P ADK A2,SYSBUF . $ & P LDK A1,RSTR.P RESTART PACKET TYPE < P SC A1,IDENT,A2 . f P LDK A1,0 " P SC A1,CAUSE,A2 RESTART CAUSE $ P SC A1,DGNCOD,A2 DIAGNOSTIC CODE P LDK A1,RSTR.L PACKET LENGTH P ST
0x4b4ff4…4b5188 Dummy {f00=0x017b, f01=0x0190, f02=»RSTFLG SET RESTART BUSY FLAG P ORS A1,CMNFLG,A12 . $ P* @ P* START TIMER J P* ` " P LDR A2,A13 SAVE REGISTER A13 j P SUR A13,A13 CLEAR IT & P LDKL A4,TIMOUT ACTIVATION ADDRESS " P LDKL A8,SYRSTM TIME-OUT VALUE P CF A14,ST
0x4b5188…4b531c Dummy {f00=0x017b, f01=0x0190, f02=»K r P* P EJECT P* " P* READY , P* < PRETURN EQU * F P* Z ( P* RESET OPEN SYSTEM BUSY INDICATION d P* P LDK A1,OPEFLG P C1R A1,A1 $ P ANS A1,CMNFLG,A12 P ABL READY BACK
0x4b531c…4b54b0 Dummy {f00=0x017b, f01=0x0190, f02=»,A8 PARAMETER BLOCK ADDRESS PRETUR4 EQU * $ P ADK A1,2 8 , P LDR* A2,A1 A2 := BUFFER TO BE RELEASED J P CF A14,RLBUF z P SUK A3,1 & P RB(P) RETUR4 RELEASE NEXT BUFFER P RB RETURN P EJECT P* P* , P* PROCES
0x4b54b0…4b5644 Dummy {f00=0x017b, f01=0x0190, f02=» 0 P* A6 = DWT ADDRESS OR ZERO (INTERNAL CALL) P* A12 = LINE BLOCK ADDRESS 8 P* A14 = CALL FUNCTION STACK P* P* CALLING SEQUENCE: P* CF A14,STOP P* P* OUTPUT PARAMETERS: P* A4 = RETURN CODE 6 P*
0x4b5644…4b57d8 Dummy {f00=0x017b, f01=0x0190, f02=» LDK A1,CLOFLG 2 P AN A1,CMNFLG,A12 CLOSE BUSY? " * P RF(NZ) CLOS40 YES X P LDK A1,CLOFLG 6 P ORS A1,CMNFLG,A12 SET CLOSE BUSY P* P EJECT P* P*
0x4b57d8…4b596c Dummy {f00=0x017b, f01=0x0190, f02=» r P ADK A1,UBNUM . P ST A1,ECBBA,A8 . & P ST A6,ECBCW1,A8 SAVE DWT ADDRESS : * P LDK A4,SYUBNR NUMBER OF USER BUFFERS d P STR A4,A1 . P* . P* TEST IF THERE IS ANY PENDING REQUESTS TO * P* COMPLETE FOR THIS LINE(IF ALLOWED !)
0x4b596c…4b5b00 Dummy {f00=0x017b, f01=0x0190, f02=» n PCLOS05 EQU * P* $ P* TEST IF DISCONNECTION ALLOWED & P* N P ADK A5,0 INTERNAL CALL ? X P RF(Z) CLOS15 YES z " P LDK A3,SEQE.RC SEQUENCE ERROR P LC A1,DWTOPT,A5 " P ANK A1,CLOOPT CLOSE ALLOWED ? P RF(Z) CLOS15 YE
0x4b5b00…4b5c94 (1, 1327) Dummy {f00=0x017b, f01=0x018e, f02=» t P* P EJECT P* PCLOS15 EQU * * " P LDK A3,LOGE.RC LOGICAL ERROR > P LDK A2,DISCON d P LDK A7,0 z & P LC A7,DWTFNC,A6 GET FUNCTION CODE P LDR A1,A7 P IFT STATI=1 & P SUK A7,STATIS STATISTIC REQUEST ? P R
0x4b5c94…4b5e28 Dummy {f00=0x017b, f01=0x0190, f02=» ( P CW A2,DWTSTE,A6 DWT DISCONNECTED ? P RF(E) CLOS25 YES 4 PCLOS18 EQU * N P SC A2,DWTSTE,A6 b & P LD A2,DWTST,A6 REQUEST PENDING ? z P RF(N) CLOS19 NO $ P SUK A7,CONPAS CONNECT PASSIVE ? P RF(Z) CLOS20 YES PCLOS19 EQU
0x4b5e28…4b5fbc Dummy {f00=0x017b, f01=0x0190, f02=» * P CF A14,RELDWT RELEASE DWT FROM CHAIN P ADK A1,0 CLOSE SYSTEM ? 2 P RB(Z) CLOS01 YES R $ P CF A14,CMPREQ COMPLETE REQUEST l P RB CLOS01 TAKE NEXT P* P EJECT P* " P* TEST IF MORE DWT'S IN CHAIN P* PCLOS25
0x4b5fbc…4b6150 Dummy {f00=0x017b, f01=0x0190, f02=» A7,DISCN ORDER CODE,CLOSE LINE , P LDR A1,A8 PARAMETER FOR ACTIVATION PART ( P LKM X P DATA -1 d " P DATA CLOEND ACTIVATION LABEL t PCLOS40 EQU * " P LDK A4,RTNOK SET RETURN CODE P RTN A14 BACK TO CALLER P EJECT P*
0x4b6150…4b62e4 Dummy {f00=0x017b, f01=0x0190, f02=»ER b P LDR A8,A1 SAVE ECB-ADDRESS ( P CF A14,GTLBA GET LINE BLOCK ADDRESS . & P LDK A1,STRTFL+CLOFLG RESET FLAGS Z P ORK A1,RSTFLG P C1R A1,A1 . P ANS A1,CMNFLG,A12 . & P LD A4,ECBBA,A8 ADDRESS USER BLOCK & P LDR*
0x4b62e4…4b6478 Dummy {f00=0x017b, f01=0x0190, f02=»BUFFER t P SUK A3,1 NEXT ONE ? P RB(P) CLOS50 YES * $ P LD A6,ECBCW1,A8 GET DWT ADDRESS D P* l " P* TEST IF DWT ADDRESS IS VALID v P* P RF(Z) CLOS60 P LDK A3,0 PCLOS55 EQU * $ P CF A14,CMPREQ COMPLETE REQU
0x4b6478…4b660c Dummy {f00=0x017b, f01=0x0190, f02=» h P* 0 P******************************************** P* F P* INPUT PARAMETERS: P P* A6 = DWT-ADDRESS l ( P* A12 = LINE CONTROL BLOCK ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P* P* CALLING SEQUENCE: P*
0x4b660c…4b67a0 Dummy {f00=0x017b, f01=0x0190, f02=» A13 = LC-ADM ADDRESS P* PCALLR EQU * ( P IFF SWITVC=0 < 6 P LC A1,DWTOPT,A6 PVC REQUESTED ? R P ANK A1,PVC * P RF(NZ) CALLPV YES P* & P* TEST IF REMOTE DTE IS SUPPORTED
0x4b67a0…4b6934 (1, 1328) Dummy {f00=0x017c, f01=0x018e, f02=» x P ENB . =1 P LDR A1,A1 FOUND ? P RF(N) CALL40 NO 4 P* L P EJECT V P* d ( P* SEARCH FOR A READY LOGICAL CHANNEL n P* . P LC A4,NRLC,A12 GET # OF LOGICAL CHANNELS P ANK A4,/FF . P SUK A4,1 . PCALL00 E
0x4b6934…4b6ac8 Dummy {f00=0x017c, f01=0x0190, f02=» P SUK A4,1 TRY NEXT ENTRY P RB(NN) CALL00 YES $ P EJECT > P IFT PERMVC=0 L PCALLPV EQU * n P XIF P IFF SWITVC=0 : P LDK A4,NOLCAV RETURN CODE := NO LOG. CHAN. AVAILABLE P RF CALL40 BACK TO CAL
0x4b6ac8…4b6c5c Dummy {f00=0x017c, f01=0x0190, f02=»T LC-STAT := LOCAL-CALL P SC A1,LCSTAT,A13 . ( P LDK A1,0 ALL INPUT BUFFERS ARE USED < P SC A1,NRNUBF,A13 . h & P ST A6,LCDWT,A13 SAVE DWT-ADDRESS P XIF P IFT SWITVC=0 P RF CALLPV P* P EJECT P XIF P*
0x4b6c5c…4b6df0 Dummy {f00=0x017c, f01=0x0190, f02=»MENT z P* P* READY P* & PCALL30 EQU * 0 $ P LDK A4,RTNOK RETURN CODE := OK D PCALL40 EQU * l P ABL READY P IFF PERMVC=0 P EJECT P* 8 P* A CONNECT REQUEST FOR A PERMANENT VIRTUAL CIRCUIT P* PCA
0x4b6df0…4b6f84 Dummy {f00=0x017c, f01=0x0190, f02=» A4,/FF . P SUK A4,1 . 0 P LDK A1,NOREMO REMOTE ADDRESS NOT SUPPORTED & PCALL60 EQU * Z & P CF A14,GTLCAD GET LC-ADM ADDRESS n P LDK A3,PVC IS IT A PVC ? P CC A3,VCTYP,A13 . P RF(NE) CALL70 NO B P LD A3,DWTRA
0x4b6f84…4b7118 Dummy {f00=0x017c, f01=0x0190, f02=»CHANNEL AVAILABLE v ( P LD A3,LCDWT,A13 LC ALREADY IN USE ? P RF(Z) CALL80 NO F PCALL70 EQU * ^ P SUK A4,1 TRY NEXT ENTRY r P RB(NN) CALL60 . P LDR A4,A1 GET RETURN CODE P RB CALL40 BACK TO CALLER P* PCALL80 EQU *
0x4b7118…4b72ac Dummy {f00=0x017c, f01=0x0190, f02=»30 BACK TO CALLER z P XIF $ P IFF SWITVC=0 0 P EJECT F P* T P* ^ * P* PROCESSING OF AN ACCEPT CALL REQUEST h P* 0 P******************************************** P* P* INPUT PARAMETERS: P* A6 = DWT-A
0x4b72ac…4b7440 Dummy {f00=0x017c, f01=0x0190, f02=» CALLCR * P* A RETURN IS MADE TO THE LABEL READY P* > P* OUTPUT PARAMETERS: H P* A4 = RETURN CODE d P* PCALLCR EQU * 4 P LDK A4,INVSTA PRESET RETURN CODE := ILL. STATUS . P LDK A1,RCAL.ST LC-STATUS = REMOTE CALL ? P
0x4b7440…4b75d4 (1, 1329) Dummy {f00=0x017c, f01=0x0190, f02=»A TRANSFER p P ECR A1,A1 . 6 P ST A1,LCSTAT,A13 LC-SUBSTAT := FLOW CONTROL READY & * P CF A14,CLLCAD CLEAR FIELDS IN LC-ADM ` P* P EJECT P* 8 P* IF ACCEPT REQUEST FROM USER THEN EMPTY INPUT QUEUE P* P LDK A1,INCALR
0x4b75d4…4b7768 Dummy {f00=0x017c, f01=0x0190, f02=»NDICATION x P* P CM DWTRCI,A6 P* 2 P* QUEUE PACKET AND RETURN < P* ^ P RB CALL20 h P* z P XIF P EJECT P* P* 0 P* PROCESSING OF A DATA TRANSMISSION REQUEST P* 0 P************************
0x4b7768…4b78fc Dummy {f00=0x017c, f01=0x0190, f02=»ALL FUNCTION STACK POINTER P* " P* CALLING SEQUENCE: , P* ABL DATA H * P* A RETURN IS MADE TO THE LABEL READY ^ P* P* OUTPUT PARAMETERS: P* A4 = RETURN CODE P* PDATA EQU * & P LDK A4,INVSTA PRESET RETURN C
0x4b78fc…4b7a90 Dummy {f00=0x017c, f01=0x0190, f02=»E REQUEST AND RETURN P* PDATA10 EQU * & P RB CALL20 : P EJECT L P* Z P* d ( P* PROCESSING OF A DISCONNECT REQUEST n P* 0 P******************************************** P* P* INPUT PARAMETERS: P* A6 = D
0x4b7a90…4b7c24 Dummy {f00=0x017c, f01=0x018e, f02=»BL CLEAR * P* A RETURN IS MADE TO THE LABEL READY P* B P* OUTPUT PARAMETERS: L P* A4 = RETURN CODE h P* PCLEAR EQU * P IFF SWITVC=0 8 P LC A1,VCTYP,A13 PVC CONCERNING ? P ANK A1
0x4b7c24…4b7db8 Dummy {f00=0x017c, f01=0x0190, f02=» P RB CALL30 P* P IFF SWITVC=0 PCLEA00 EQU * 6 ( P LDK A1,CLEA.ST LC-STATUS = CLEAR ? J P CC A1,LCSTAT,A13 . v 0 P RF(NE) CLEA10 NO P* P EJECT P* P* REFUSE REQUEST P* "
0x4b7db8…4b7f4c Dummy {f00=0x017c, f01=0x0190, f02=»,SYCLTM TIME-OUT VALUE P CF A14,STTIM START TIMER P* @ P* UPDATE LC-ADM J P* b ( P LDK A1,CLEA.ST NEW STATUS := CLEAR l P SC A1,LCSTAT,A13 . P* P* EMPTY INPUT QUEUE P* P CF A14,CLINPQ P
0x4b7f4c…4b80e0 Dummy {f00=0x017c, f01=0x0190, f02=»SING OF THE ACCEPT DATA REQUEST P* ( 0 P******************************************** 2 P* f P* INPUT PARAMETERS: p P* A6 = DWT-ADDRESS P* A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P* P* CALLING
0x4b80e0…4b8274 (1, 1330) Dummy {f00=0x017c, f01=0x0190, f02=»RN CODE P* PRRR EQU * & P LDK A4,INVSTA PRESET RETURN CODE , P LDK A1,DATA.ST V 2 P CC A1,LCSTAT,A13 LC-STATUS = DATA TRANSFER ? n P RB(NE) CALL40 NO, ERROR P* . P* QUEUE ELEMENT AS FIRST FOR TRANSMISSION P*
0x4b8274…4b8408 Dummy {f00=0x017c, f01=0x0190, f02=»********************************** P* * P* INPUT PARAMETERS: 4 P* A6 = DWT-ADDRESS P P* A13 = LC-ADM ADDRESS l ( P* A14 = CALL FUNCTION STACK POINTER P* P* CALLING SEQUENCE: P* ABL RNRR * P* A RETURN IS MADE
0x4b8408…4b859c Dummy {f00=0x017c, f01=0x0190, f02=»RESET RETURN CODE P LDK A1,DATA.ST 2 P CC A1,LCSTAT,A13 LC-STATUS = DATA TRANSFER ? 2 P RB(NE) CALL40 NO, ERROR h P* P* BLOCK INPUT QUEUE P* P LDK A1,NPRFLG P ORS A1,QUEINP,A13 P* $ P* QUEUE ELEMENT FOR TR
0x4b859c…4b8730 Dummy {f00=0x017c, f01=0x0190, f02=»T f P* 0 P******************************************** P* H P* INPUT PARAMETERS: R P* A6 = DWT-ADDRESS n P* A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P* P* CALLING SEQUENCE: P* ABL IN
0x4b8730…4b88c4 Dummy {f00=0x017c, f01=0x0190, f02=»E p P LDK A1,DATA.ST 2 P CC A1,LCSTAT,A13 LC-STATUS = DATA TRANSFER ? " P RB(NE) CALL40 NO, ERROR X " P LDK A4,SEQE.RC SEQUENCE ERROR x & P LDK A1,INTPNG INTERRUPT PENDING ? P AN A1,FLAGS,A13 . P RB(NZ) CALL40 YES ! F P L
0x4b88c4…4b8a58 Dummy {f00=0x017c, f01=0x0190, f02=»* QUEUE ELEMENT FOR TRANSMISSION P* ( PINTR00 EQU * 2 P LDR A2,A6 ELEMENT ADDRESS N $ P LDR A1,A13 QUEUE ANCHOR ADDRESS p P ADK A1,QUEOUT . * P CF A14,QUEUEF QUEUE AS FIRST ELEMENT , P LDK A2,NPRFLG RESET NO PROCESSING FLAG
0x4b8a58…4b8bec Dummy {f00=0x017c, f01=0x0190, f02=»ONTROL FROM THE SCHEDULER | $ P* IN ORDER TO TRANSMIT A PACKET " P* J 0 P******************************************** T P* P* INPUT PARAMETERS: " P* A1 = QUEUE ANCHOR ADDRESS P* A12 = LINE BLOCK ADDRESS P* A13 = LC-ADM
0x4b8bec…4b8d80 Dummy {f00=0x017c, f01=0x0190, f02=»CK EQU * P* P* GET AN OUTPUT ECB P* 6 P LDR A3,A12 FIRST OUTPUT ECB @ P ADK A3,ECBOU1 . d POUTP00 EQU * | " P LD A2,ECBBA,A3 IS ECB BUSY ? P RF(Z) OUTP10 NO * P ADK A3,ECBINL+SYSBFL NEXT OUTPUT ECB P RB OUTP00 .
0x4b8d80…4b8f14 (1, 1331) Dummy {f00=0x017c, f01=0x0190, f02=»M HDLC,A3 CLEAR HDLC-HEADER P LDK A4,/10 $ . P SC A4,GNFRM,A3 GENERAL FORMAT IDENTIFIER 8 P* j P EJECT t P* P* DEQUEUE AND CHECK ELEMENT P* P CF A14,DEQUE GET ELEMENT * P ST A1,SAVE SAVE QUEUE ANCHOR ADDRESS
0x4b8f14…4b90a8 Dummy {f00=0x017c, f01=0x0190, f02=»WTECB,A6 GET ECB-ADDRESS , P ABL(Z) EXITDC ELEMENT ALREADY COMPLETED P LC A4,DWTLCN,A6 P , P SC A4,LCIDNT,A3 LOGICAL CHANNEL NUMBER h P* P* SELECTION ON REQUEST TYPE P* " P LDR A2,A3 SAVE BUFFER ADDRESS & P LC A3,DWTFNC,A6 G
0x4b90a8…4b923c Dummy {f00=0x017c, f01=0x0190, f02=»TPUT TABLE P* POUTTAB EQU * P IFF SWITVC=0 0 ( P DATA OUT100 CONNECT ACTIVE REQUEST F & P DATA HLT CONNECT PASSIVE REQUEST r $ P DATA OUT200 DISCONNECT REQUEST P DATA OUT210 ACCEPT CALL P XIF P IFT SWITVC=0 $ P D
0x4b923c…4b93d0 Dummy {f00=0x017c, f01=0x0190, f02=»L | P XIF P DATA OUT300 ACCEPT DATA $ P DATA OUT310 REFUSE DATA REQUEST 6 P DATA OUT000 WRITE REQUEST ^ ( P DATA OUT220 WRITE INTERRUPT REQUEST " P DATA OUT300 READ(ACCEPT DATA) P* PHLT HLT ILLEGAL P* P EJECT
0x4b93d0…4b9564 Dummy {f00=0x017c, f01=0x0190, f02=»TE STATION BUSY ? x P RF(NZ) OUT050 YES P* 4 P* IS WINDOW FULL ? > P* X P LDK A4,0 b P LDK A5,0 t & P LC A4,PS,A13 PS TO BE TRANSMITTED * P LC A5,SLWE,A13 SEND LOWER WINDOW EDGE P SUR A4,A5 PS - LWE P ANK A4,/07 MO
0x4b9564…4b96f8 Dummy {f00=0x017c, f01=0x0190, f02=»HEADER z P* " P LC A1,DWTWRO,A6 WRITE OPTION P LDR A3,A1 SAVE IT > P ANK A1,QPOS X P ECR A1,A1 l " P ORS A1,GNFRM,A2 INCLUDE Q-BIT ~ P LC A1,PS,A13 PS * P SLL A1,1 PUT IT ON THE RIGHT POSITION P ANK A3,MPOS P ORR A1,A3
0x4b96f8…4b988c Dummy {f00=0x017c, f01=0x0190, f02=» ON THE RIGHT POSITION P ORR A1,A3 ALL TOGETHER P* > P EJECT H P* V $ P* INCREMENT SEND SEQUENCE NUMBER ` P* 2 P LC A5,PS,A13 GET OLD PS 0 P ADK A5,1 INCREMENT 0 P ANK
0x4b988c…4b9a20 Dummy {f00=0x017c, f01=0x0190, f02=»FER f P* & P* COPY USER DATA TO OUTPUT BUFFER P* @ ( P LD A1,ECBBA,A9 USER BUFFER ADDRESS J P ADK A2,BEGDAT WHERE TO MOVE v P LD A3,ECBRL,A9 P LDR A4,A3 P ADK A4,BEGDAT " P ST A4,ECBRL,A8 OUTPUT BUFFER P LD A5,D
0x4b9a20…4b9bb4 (1, 1332) Dummy {f00=0x017d, f01=0x0190, f02=» A1,A8 PARAMETER ADDRESS P LDK A7,TRANSM ORDER CODE P* B P LKM L P DATA -1 X 2 P DATA ENDOUT ACTIVATION LABEL AFTER COMPLETION h J P IM NRPNDT,A12 INCREMENT NUMBER OF PENDING OUTPUT ( P RF OUT060 CONTROL BACK TO S
0x4b9bb4…4b9d48 Dummy {f00=0x017d, f01=0x0190, f02=» CM ECBBA,A8 $ P LD A1,SAVE QUEUE ANCHOR ADDRESS P LDR A2,A6 ELEMENT ADDRESS B ( P CF A14,QUEUEF ELEMENT BACK TO QUEUE d , P LDK A2,NPRFLG SET "NO PROCESSING" FLAG P ORRS A2,A1 . POUT060 EQU * * P ABL EXITDC CONTROL BACK TO SC
0x4b9d48…4b9edc Dummy {f00=0x017d, f01=0x0190, f02=» P LDK A1,CAL.P P SC A1,IDENT,A2 PACKET TYPE P* B P* GET REMOTE DTE-ADDRESS L P* l P ADK A2,BEGDAT+1 v P LDR A4,A2 P LD A1,DWTRAD,A6 P LDKL A3,SVCTYP SET TYPE P INH . =1 ( P CF A15,GETDNT GET REAL DTE-AD
0x4b9edc…4ba070 Dummy {f00=0x017d, f01=0x0190, f02=» LDR A7,A2 SAVE ADDRESS P LD A1,DWTLAD,A6 ! P INH . =1 ! 8 * P CF A15,GETDNA GET DTE NETWORK ADDRESS ! J P ENB . =1 ! x & P SLL A1,4 PUT IT IN RIGTH POSITION ! . P ORR A3,A1 CALLING AND CALLED DTE-ADDRESS ! P* ! P EJECT ! P* ! 0 P
0x4ba070…4ba204 Dummy {f00=0x017d, f01=0x0190, f02=»ET BOUNDARY ? ! v P RF(Z) OUT145 NO " P* " . P* MOVE LOCAL DTE-ADDRESS " 8 P* " X ( P SRL A1,4 A1:=LENGTH IN SEMI-OCTETS " b " P LDR A5,A7 A7:=WHERE TO GET IT " $ P SUK A5,/01 A5:=WHERE TO PUT IT " POUT130 EQU * " , P LCR A2,A5 GET STORED SE
0x4ba204…4ba398 Dummy {f00=0x017d, f01=0x018e, f02=» $ P ADK A5,1 INCREMENT 'TO'-POINTER # P SUK A1,1 DECRESE LENGTH # , P RF(Z) OUT140 READY # L ( P LCR A2,A7 GET NEXT TWO SEMI-OCTETS # h P SLL A2,4 # & P SCR A2,A5 STORE SECOND SEMI-OCTET # & P ADK A7,1 INCREMENT 'FROM'-POINTER # P SUK A1,1 READ
0x4ba398…4ba52c Dummy {f00=0x017d, f01=0x0190, f02=» # P* $ P EJECT $ P* $ P IFF SWITVC=0 $ * P IFT LOOP=1 $ @ P* $ T ( P* EXCHANGE CALLING AND CALLED LENGTH $ ^ P* $ P ECR A3,A3 $ P SRL A3,8 $ P XIF $ P IFF SWITVC=0 $ P SUK A4,1 $ . P SCR A3,A4 STORE CALLING AND
0x4ba52c…4ba6c0 Dummy {f00=0x017d, f01=0x0190, f02=» $ p P LD A5,DWTTAB,A6 % P* % P* TEST IF FACILITIES ONLY % * P* % L P LD A1,ECBBA,A9 % V P LCR A7,A1 % n P ANK A7,/FF FACILITY LENGTH % < P RF(Z) OUT150 NO FACILITIES AT ALL % P ADK A7,1 % P
0x4ba6c0…4ba854 (1, 1333) Dummy {f00=0x017d, f01=0x0190, f02=»T ONLY FACILITIES % P RF OUT150 & P* & : POUT148 EQU * & D F P LDK A7,/C0 A7:=INDICATION FACILITIES ONLY & ` POUT150 EQU * & P INH . =1 & * P CF A15,MOVUS MOVE FROM USER TO SYSTEM & P ENB . =1
0x4ba854…4ba9e8 Dummy {f00=0x017d, f01=0x0190, f02=»OUT190 NO & ~ P RF OUT188 ' P* ' < P* NO USER DATA SPECIFIED ' F P* ' f POUT180 EQU * ' p P LDK A1,0 ' & P SCR A1,A2 FACILITY LENGTH = ZERO ' P ADK A2,1 UPDATE POINTER ' POUT188 EQU * ' P LDK A1,/C0
0x4ba9e8…4bab7c Dummy {f00=0x017d, f01=0x0190, f02=» ' POUT190 EQU * ( P SU A2,ECBBA,A8 ( " P ST A2,ECBRL,A8 LENGTH TO ECB ( 4 P* ( Z P* COMPLETE LC-ADM ( d P* ( ~ ( P LD A2,ECBBA,A8 ADDRESS CALL PACKET ( 2 P CF A14,GTWNDS GET WINDOW SIZE & PACKET LENGTH ( 0 P CF A14,TRTHR TRANSLATE THRESH
0x4bab7c…4bad10 Dummy {f00=0x017d, f01=0x0190, f02=» ( r P* ) POUT200 EQU * ) P IFT MMUPAG=1 ) & P LD A1,ECBBA,A9 USER BUFFER ) < 0 P ADK A2,DGNCOD DIAGNOSTIC CODE DISPLACEMENT ) ` P LDK A3,1 LENGTH ) P LD A5,DWTTAB,A6 ) P INH . =1 ) * P CF A15,MOVUS MOVE FROM USER TO SYSTEM ) P ENB
0x4bad10…4baea4 Dummy {f00=0x017d, f01=0x0190, f02=»A,A9 DIAGNOSTIC CODE ) P SC A1,DGNCOD,A2 * P LDK A3,0 * 4 P XIF * F P IFF SWITVC=0 * R & P SC A3,CAUSE,A2 RESET CAUSE FIELD * h $ P LDK A1,CLE.P CLEAR PACKET TYPE * P LDK A4,CLE.L PACKET LENGTH * P RF OUT260 * P* * . P* TRANSMISSION
0x4baea4…4bb038 Dummy {f00=0x017d, f01=0x018e, f02=»KET LENGTH * ~ P RF OUT260 + P* + $ P XIF + . P* + : P EJECT + D P* + R & P* TRANSMISSION OF INTERRUPT PACKET + P* + POUT220 EQU * + P IFT MMUPAG=1 + P LD A1,ECBBA,A9 USER BUFFER + . P ADK A2,CAUSE INTERRUPT DATA DISPLACEMENT
0x4bb038…4bb1cc Dummy {f00=0x017d, f01=0x0190, f02=» 2 P SUK A2,CAUSE+1 RESTORE SYSTEM BUFFER ADDRESS , P XIF , : P IFT MMUPAG=0 , F $ P LC* A1,ECBBA,A9 INTERRUPT DATA , P SC A1,CAUSE,A2 , P XIF , ( P LDK A1,INT.P INTERRUPT PACKET TYPE , P LDK A4,INT.L PACKET LENGTH , POUT260 EQU * ,
0x4bb1cc…4bb360 Dummy {f00=0x017d, f01=0x0190, f02=»JECT , P* - ( P* TRANSMISSION OF RR- OR RNR PACKET - P* - B POUT300 EQU * - L P LDK A1,RR.P RR-PACKET TYPE - ` P RF OUT320 - P* - POUT310 EQU * - " P LDK A1,RNR.P RNR-PACKET TYPE - POUT320 EQU * - P LC A3,PR,A13 GET PR - B
0x4bb360…4bb4f4 (1, 1334) Dummy {f00=0x017d, f01=0x0190, f02=»C A3,IDENT,A2 TO OUTPUT BUFFER - P LDK A4,RR.L PACKET LENGTH . & $ P RB OUT270 ISSUE OUTPUT REQUEST . H P* . p P* TRANSMISSION OF A PACKET . z P* . POUT400 EQU * . * P ST A2,ECBBA,A8 BUFFER ADDRESS TO ECB . P LDK A1,RSET.P . * P CC A1,IDE
0x4bb4f4…4bb688 Dummy {f00=0x017d, f01=0x0190, f02=»10 EQU * . P LD A4,HDLC,A2 BUFFER LENGTH / $ P RB OUT270 ISSUE OUTPUT REQUEST / 4 P EJECT / P* / j P* / t 6 P* THIS ROUTINE HANDLES A COMPLETED OUTPUT REQUEST / ~ P* / 0 P******************************************** / P* / P* INPUT
0x4bb688…4bb81c Dummy {f00=0x017d, f01=0x0190, f02=»DOUT EQU * / $ P LDK A3,1 SET PROCESS INDICATION 0 P ST A3,DCLEVL . 0 : & P LDKL A14,DCSTAK SET STACK POINTER 0 R P LDR A8,A1 SAVE ECB-ADDRESS 0 | ( P CF A14,GTLBA GET LINE BLOCK ADDRESS 0 " P LD A2,ECBBA,A8 BUFFER ADDRESS 0 P CM ECBBA,A8 FREE ECB
0x4bb81c…4bb9b0 Dummy {f00=0x017d, f01=0x018e, f02=»RANSMITTER RESET ? 0 P RF(E) ENDO30 YES 1 P* 1 4 P EJECT 1 > P* 1 L J P* THE OUTPUT REQUEST IS NOT CORRECT COMPLETED. WHEN THIS IS THE FIRST 1 V H P* TIME A DISCONNECT REQUEST FOR THE DC-CONNECTION WILL BE GIVEN AND 1 B P* ALL NOT READY SVC'S WI
0x4bb9b0…4bbb44 Dummy {f00=0x017d, f01=0x018e, f02=» 1 h P ANK A3,STRTFL . 2 P RF(Z) ENDO20 ALREADY DOWN 2 $ P LDK A1,STRTFL RESET START FLAG 2 B P C1R A1,A1 . 2 j P ANS A1,CMNFLG,A12 . 2 ~ & P ST A5,HRDSTA,A12 SAVE RETURN CODE 2 < P LDK A6,0 NO DWT AVAILABLE 2 . P CF
0x4bbb44…4bbcd8 Dummy {f00=0x017d, f01=0x0190, f02=» 2 j PENDO20 EQU * 3 P LDKL A1,-1 3 < P ADS A1,NRPNDT,A12 DECREASE # OF PENDING TRANSM. REQUE. 3 0 * P ABL EXITDC CONTROL BACK TO SCHEDULER 3 p P* 3 & P* CORRECT COMPLETED OUTPUT REQUEST 3 P* 3 PENDO30 EQU * 3 , P LC A4,LCIDNT,A2 LOGICAL
0x4bbcd8…4bbe6c Dummy {f00=0x017d, f01=0x0190, f02=»NDO56 NO DWT 3 P LD A1,DWTST,A6 DWT-STATUS 4 P RF(N) ENDO56 4 6 P* 4 L P EJECT 4 V P* 4 d P* TEST IF DATA PACKET 4 n P* 4 P LC A3,IDENT,A2 4 P LDR A1,A3 4 P ANK A3,DATA.P 4 P RF(Z) ENDO58 YES 4 P* 4 P
0x4bbe6c…4bc000 Dummy {f00=0x017d, f01=0x0190, f02=»WITVC=0 4 P RF(NZ) ENDO46 NO 5 P XIF 5 * P IFT SWITVC=0 5 6 P RF(NZ) ENDO56 NO 5 L P XIF 5 f < P SUK A4,REFDAT REFUSE DATA REQUEST? 5 r P RF(NZ) ENDO56 NO 5 P RF ENDO58 YES 5 P IFF SWITVC=0 5 P* 5 & P* TEST
0x4bc000…4bc194 (1, 1335) Dummy {f00=0x017d, f01=0x0190, f02=»ACCCAL ACCEPT CALL REQUEST ? 5 P RF(Z) ENDO58 YES 6 $ P RF ENDO56 NO 6 > P* 6 T P EJECT 6 ^ P* 6 l P* TEST IF CLEAR PACKET 6 v P* 6 PENDO48 EQU * 6 P SUK A1,CLE.P-CAL.CP 6 P RF(NZ) ENDO56 NO 6 ( P SUK A4,DISCAL DISCONNEC
0x4bc194…4bc328 Dummy {f00=0x017d, f01=0x0190, f02=»LATION WITH THE DWT 6 x PENDO52 EQU * 7 P LDK A3,ACPT.RC RETURN CODE 7 0 P XIF 7 T PENDO54 EQU * 7 ` $ P CF A14,CMPREQ COMPLETE REQUEST 7 t PENDO56 EQU * 7 P RB ENDO20 7 PENDO58 EQU * 7 P LD A3,DWTRCI,A6 7 P LDR A1,A3 7 P ANK A1,
0x4bc328…4bc4bc Dummy {f00=0x017d, f01=0x0190, f02=» COMPLETE REQUEST 7 P EJECT 8 P* 8 ( < P* THIS MODULE IS ACTIVATED WHEN A CONFIRMATION TIMER OF 8 2 P* THE DC-TASK EXPIRES. 8 r P* 8 2 P********************************************* 8 P* 8 P* INPUT PARAMETERS: 8 $ P* A1 = PARAMETER
0x4bc4bc…4bc650 Dummy {f00=0x017d, f01=0x0190, f02=»5 SET PROCESS INDICATOR 8 P ST A3,DCLEVL . 9 & P LDKL A14,DCSTAK SET STACK POINTER 9 8 & P LDR A4,A1 ADDRESS PARAMETER BLOCK 9 b P INH . =1 9 " P CF A15,FREBLK GET PARAMETERS 9 P ENB 9 " P LDR A12,A3 LINE BLOCK ADDRESS 9 P LDR A13,A1 LC-ADM
0x4bc650…4bc7e4 Dummy {f00=0x017d, f01=0x0190, f02=» TIMER 9 r P* : @ P* A RESTART CONFIRMATION TIMER IS EXPIRED, SO CLEAR ALL NOT : P* READY VC'S LOCAL. : P* : x & P CM RTMADR,A12 CLEAR TIMER ADDRESS : 2 P LDK A1,RSTFLG IS A RESTART PROCEDURE ACTIVE ? : P AN A1,CMNFLG,A12 . : P RF(Z) TIM
0x4bc7e4…4bc978 Dummy {f00=0x017d, f01=0x0190, f02=»THE TIMER OF A RESET OR CLEAR PACKET IS EXPIRED : P* ; 8 PTIM10 EQU * ; B & P CM TIMADR,A13 CLEAR TIMER ADDRESS ; V 2 P LDK A1,CONTIM IS CONFIRMATION TIMER STARTED ? ; P AN A1,FLAGS,A13 . ; P RF(Z) TIM40 NO ; & P XRS A1,FLAGS,A13 RESET TIMER FL
0x4bc978…4bcb0c Dummy {f00=0x017d, f01=0x0190, f02=»E A CLEAR ; r P XIF < P* < 6 P* A RESET TIMER IS EXPIRED, SO CLEAR CONCERNING VC < ( P* < b P SUR A1,A1 RESET SUB-STATUS < l P SC A1,LCSBST,A13 . < , P LDK A1,NPRFLG RESET NO PROCESSING FLAG < P C1R A1,A1 . < P ANS A1,QUEOUT,A13 . <
0x4bcb0c…4bcca0 Dummy {f00=0x017d, f01=0x0190, f02=» < P IFF SWITVC=0 = P LDK A1,LOCPER DIAGN. CODE = . P ABL CLVC CLEAR VC AND RETURN TO SCHEDULER = @ P XIF = r P* = ~ P EJECT = P* = & P* COMPLETE EVENTS IN OUTPUT QUEUE = P* = PTIM20 EQU * = P LDKL A3,RSET.RC RC = RESET =
0x4bcca0…4bce34 (1, 1336) Dummy {f00=0x017e, f01=0x0190, f02=» * P CM LCSTAT,A13 NEW LC-STATUS := READY > P XIF > 2 PTIM40 EQU * > > * P ABL EXITDC CONTROL BACK TO SCHEDULER > R P EJECT > P* > P* > . P* PROCESSING OF A COMPLETED INPUT REQUEST > P* > 0 P******************************************
0x4bce34…4bcfc8 Dummy {f00=0x017e, f01=0x0190, f02=» > z P* ? PENDIN EQU * ? $ P LDK A3,3 SET PROCESS INDICATOR ? & P ST A3,DCLEVL . ? N . P LDKL A14,DCSTAK SET RETURN STACK POINTER ? f P LDR A8,A1 SAVE ECB-ADDRESS ? ( P CF A14,GTLBA GET LINE BLOCK ADDRESS ? $ P LD A5,ECBRC,A8 GET RETURN CODE
0x4bcfc8…4bd15c Dummy {f00=0x017e, f01=0x0190, f02=»INPUT REQUEST IS NOT CORRECT COMPLETED. WHEN THIS IS THE FIRST ? H P* TIME A DISCONNECT REQUEST FOR THE DC-CONNECTION WILL BE GIVEN AND @ F B P* ALL NOT READY SVC'S WILL BE CLEARED LOCAL AND ALL RELATIONS @ $ P* DWT <--> PVC WILL BE RELEASED. @ P* @ "
0x4bd15c…4bd2f0 Dummy {f00=0x017e, f01=0x0190, f02=»IS SUBSYS STARTED ? @ ~ P ANK A3,STRTFL . A P RF(Z) END10 ALREADY DOWN A 4 $ P LDK A1,STRTFL RESET START FLAG A V P C1R A1,A1 . A ~ P ANS A1,CMNFLG,A12 . A 6 P ST A5,HRDSTA,A12 SAVE RETURN CODE IN HARDWARE STA A < P LDK A6,0
0x4bd2f0…4bd484 Dummy {f00=0x017e, f01=0x018e, f02=»F A14,CLAVCS CLEAR ALL VC'S LOCAL A PEND10 EQU * B * * P ABL EXITDC CONTROL BACK TO SCHEDULER B > P* B l , P* THE INPUT REQUEST IS CORRECT COMPLETED B v P* B PEND20 EQU * B " P LD A5,ECBBA,A8 BUFFER ADDRESS B , P LD A3,ECBEL,A8 EFFECTIVE BUFF
0x4bd484…4bd618 Dummy {f00=0x017e, f01=0x0190, f02=» P* ONLY FOR LOOP TEST C P* C P LC A6,NRLC,A12 C * P ANK A6,/FF C B P SUK A6,1 C V P IFF PERMVC=0 C t P LC A2,NRPVC,A12 C P ANK A2,/FF C P CWR A2,A4 C P RF(NG) LOOP1 SVC C P LDR A6,A2 C P SUK A6,1 C P R
0x4bd618…4bd7ac Dummy {f00=0x017e, f01=0x0190, f02=»A6 C P SC A4,LCIDNT,A5 D P* END OF ONLY LOOP-TEST!!!! D " P XIF D F , P CC A4,NRLC,A12 LC-NUMBER WITHIN LIMITS? D R P RF(L) END30 YES D P EJECT D P* D : P* IGNORE RECEIVED BUFFER AND ISSUE A NEW INPUT REQUEST D P* D P LDR A1,A8 ECB
0x4bd7ac…4bd940 Dummy {f00=0x017e, f01=0x0190, f02=»D10 CONTROL BACK TO SCHEDULER D P* E & P* LC-NUMBER IS CORRECT E 0 P* E N PEND30 EQU * E X & P CF A14,GTLCAD GET LC-ADM ADDRESS E l & P CF A14,GTBUF GET AN INPUT BUFFER E P ST A2,ECBBA,A8 TO ECB E ( P LDR A1,A8 ECB-ADDRESS AS PARAMETER E ,
0x4bd940…4bdad4 (1, 1337) Dummy {f00=0x017e, f01=0x0190, f02=»SS E t P* F , P* TEST IF A RESTART PROCEDURE IS ACTIVE F P* F D P LDR A2,A5 BUFFER ADDRESS F N , P LD A4,CMNFLG,A12 IS RESTART FLAG SET ? F p P ANK A4,RSTFLG . F 6 P LC A4,IDENT,A2 GET PACKET TYPE F , P RF(Z) END40 NO RESTAR
0x4bdad4…4bdc68 Dummy {f00=0x017e, f01=0x018e, f02=» IT A RESTART CONF. PACKET F ~ P RF(E) END40 YES G " & P CF A14,RLBUF RELEASE INPUT BUFFER G : ( P RB END10 CONTROL BACK TO SCHEDULER G d P EJECT G P* G & P* SEARCH PACKET DEPENDENT ROUTINE G P* G PEND40 EQU * G P LDK A5,DATA.P G $ P T
0x4bdc68…4bddfc Dummy {f00=0x017e, f01=0x0190, f02=» G p P ABL(E) RRIN YES H P LDK A5,RNR.P H $ P CWR A4,A5 IS IT AN RNR-PACKET ? H 6 P ABL(E) RNRIN YES H ^ P LDK A5,TABLNG H x PEND50 EQU * H " P LC A4,IDENT,A2 H * P CC A4,TABLE,A5 SEARCH IDENT IN TABLE H P RF(E) END70 FOUND
0x4bddfc…4bdf90 Dummy {f00=0x017e, f01=0x0190, f02=»4,RLBUF RELEASE INPUT BUFFER H 4 P LDK A1,LOCPER DIAGNOSTIC CODE = PROCEDURE ERRO I $ , P ABL CLVC CLEAR VC AND RETURN TO SCHED. I P* I P EJECT I P* I 6 P* PACKET TYPE FOUND, BRANCH TO CONCERNING ROUTINE I P* I PEND70 EQU * I " P S
0x4bdf90…4be124 Dummy {f00=0x017e, f01=0x0190, f02=» I 0 P BYTE RSTR.P,RSTR.CP RESTART(-CONF.) PACKET J . P BYTE RSET.P,RSET.CP RESET(-CONF.) PACKET J < P IFF SWITVC=0 J n , P BYTE CLE.P,CLE.CP CLEAR(-CONF.) PACKET J * P BYTE CAL.P,CAL.CP CALL(-CONF.) PACKET J P XIF J 0 P BYTE INT.P,INT.CP INTERRU
0x4be124…4be2b8 Dummy {f00=0x017e, f01=0x0190, f02=»RSTIN RESTART J & P DATA RSTCIN RESTART CONFIRMATION K P DATA RESIN RESET K @ $ P DATA RESCIN RESET CONFIRMATION K Z P IFF SWITVC=0 K P DATA CLRIN CLEAR K $ P DATA CLRCIN CLEAR CONFIRMATION K P DATA CALLIN CALL K " P DATA CALCIN CALL CO
0x4be2b8…4be44c Dummy {f00=0x017e, f01=0x0190, f02=»SING OF RECEIVED DATA PACKET K P* L $ 0 P******************************************** L . P* L b P* INPUT PARAMETERS: L l P* A2 = BUFFER ADDRESS L P* A3 = BUFFER LENGTH L P* A13 = LC-ADM ADDRESS L ( P* A14 = CALL FUNCTION STACK POINT
0x4be44c…4be5e0 Dummy {f00=0x017e, f01=0x0190, f02=»CONTENTS L n P LDR A1,A1 O.K. ? M P RF(NZ) DAT00 NO M * $ P LC A1,IDENT,A2 GET RECEIVED PS M B P SRL A1,1 . M j P ANK A1,/07 . M ~ 0 P CC A1,RPS,A13 DOES IT MATCH WITH THE LC-ADM M P RF(NE) DAT00 NO M P* M ( P* TEST IF RECEIVED P(S) IS IN
0x4be5e0…4be774 (1, 1338) Dummy {f00=0x017e, f01=0x0190, f02=» . M P ANK A1,/07 . N P ADK A1,1 . N . P CC A1,LCREWN,A13 COMPARE WITH WINDOW SIZE N 4 $ P RF(L) DAT20 WINDOW IS NOT FULL N f ( P RF(G) DAT00 OUT OF WINDOW, RESET LC N $ P LDK A7,1 SET WINDOW FULL INDIC. N P RF DAT20 . N P EJECT N P* N
0x4be774…4be908 Dummy {f00=0x017e, f01=0x0190, f02=»T N l P SC A1,LCSBST,A13 . O P* O & , P* PREPARE AND QUEUE RESET PACKET FOR RH O 0 P* O ` , P LC A1,LCNUM,A13 LOGICAL CHANNEL NUMBER O j P SC A1,LCIDNT,A2 . O 4 P LDK A1,RSET.P PACKET TYPE FOR RESET INDICATION O P SC A1,IDENT,A2 O 2 P LDK
0x4be908…4bea9c Dummy {f00=0x017e, f01=0x0190, f02=»USE O r P LDK A1,RESLCH P ( P SC A1,DGNCOD,A2 SET DIAGNOSTIC CODE P " P CF A14,RSETVC P N , P CF A14,QUEI PUT ELEMENT IN INPUT QUEUE P r P* P 2 P* PREPARE RESET PACKET AND QUEUE IT FOR OUTPUT P P* P PDAT05 EQU * P $ P LDR A2,
0x4bea9c…4bec30 Dummy {f00=0x017e, f01=0x0190, f02=»EASING OF OUTPUT BUFFER P P* Q ( P LDKL A1,DAT05 REACTIVATION ADDRESS Q * P ABL BUFWAT Q V P* Q j P EJECT Q t P* Q PDAT10 EQU * Q P LDK A1,RSET.P Q P SC A1,IDENT,A2 PACKET TYPE Q P LDK A1,0 Q & P SC A1,CAUSE,A2 CLEAR RESET
0x4bec30…4bedc4 Dummy {f00=0x017e, f01=0x0190, f02=»T A1,HDLC,A2 . Q , P CF A14,QUEO PUT ELEMENT IN OUTPUT QUEUE R , P LDKL A8,SYRETM RESET CONFIRMATION TIMER R F P CF A14,STTIM START TIMER R v * P ABL EXITDC CONTROL BACK TO SCHEDULER R P* R P* TEST CURRENT M-BIT R P* R PDAT20 EQU * R $
0x4bedc4…4bef58 Dummy {f00=0x017e, f01=0x018e, f02=»TH HAS TO BE MAXIMUM R t P* S 4 P LD A1,TRBFSZ,A13 MAX.DATA LENGTH IN DATA PACKET S & P ADK A1,BEGDAT ADD HEADERS S ^ P CWR A1,A3 S $ P RF(E) DAT30 OK, THEY ARE EQUAL S P* S * P* DATA LENGTH NOT MAXIMUM, SO CLEAR VC S P* S . P RB END60 CL
0x4bef58…4bf0ec Dummy {f00=0x017e, f01=0x0190, f02=» S P LC A1,RPS,A13 GET RPS T P ADK A1,1 INCREMENT T & P ANK A1,/07 MODULO 8 T B P SC A1,RPS,A13 . T ^ P* T v P* GET RECEIVED PR T P* T 0 P LC A1,IDENT,A2 GET PR FROM RECEIVED PACKET T P SRL A1,5 . T P ANK A1,/07 . T P* T
0x4bf0ec…4bf280 Dummy {f00=0x017e, f01=0x0190, f02=» SEND LOWER WINDOW E T t P RF(E) DAT50 NO UPDATING U " P SC A1,SLWE,A13 SAVE NEW VALUE U < . P LDK A1,NPRFLG RESET "NO PROCESSING" FLAG U b P C1R A1,A1 U P ANS A1,QUEOUT,A13 . U P* U & P* QUEUE PACKET FOR REQUEST HANDLER U P* U
0x4bf280…4bf414 (1, 1339) Dummy {f00=0x017e, f01=0x0190, f02=» P EJECT V P* V $ P* CAN RECEIVE WINDOW BE UPDATED V P* V D PDAT60 EQU * V N , P LDK A3,0 PRESET INDIC.: NO PR UPDATING V b 6 P LC A1,NRNUBF,A13 ARE ALL RESERVED BUFFERS USED ? V P ANK A1,/FF . V P RF(Z) DAT70 YES V $ P LDK A3,1 SET
0x4bf414…4bf5a8 Dummy {f00=0x017e, f01=0x0190, f02=»OF NOT USED BUFFERS V z P ANK A4,/07 MODULO 8 W P SC A4,PR,A13 . W 8 , P SUR A1,A1 ALL RES. BUFFERS ARE NOW USED W P P SC A1,NRNUBF,A13 . W P* W D P* DID THE RECEIVED PS PASSES THE THRESHOLD OF THE RECEIVE WINDOW W P* W PDAT70 EQU * W
0x4bf5a8…4bf73c Dummy {f00=0x017e, f01=0x0190, f02=» ANK A1,/07 MODULO 8 W 4 P CC A1,LCTHRE,A13 DID IT PASSED THE THRESHOLD ? X P RF(NG) DAT130 NO X T P* X n P EJECT X x P* X 4 P* IF RECEIVE WINDOW IS NOT UPDATED, WAIT FOR IT X P* X P LDR A3,A3 X P RF(NZ) DAT90 IT IS UPDATED X P
0x4bf73c…4bf8d0 Dummy {f00=0x017e, f01=0x0190, f02=»D A7,TSKID X P LDKL A8,BUFDEL DELAY TIME Y P LKM Y 4 P DATA -6 Y @ " P DATA DAT80 ACTIVATION ADDRESS Y P ( P RF DAT130 CONTROL BACK TO SCHEDULER Y v P* Y PDAT80 EQU * Y & P LDR A13,A1 RESTORE LC-ADM ADDRESS Y B P LDK A7,1
0x4bf8d0…4bfa64 Dummy {f00=0x017e, f01=0x0190, f02=»UPDATED, CAN NEW PR BE SENT IN A DATA PACKET ? Y x P* Z 6 PDAT90 EQU * Z @ . P LD A1,QUEOUT,A13 IS OUTPUT QUEUE EMPTY ? Z T P RF(Z) DAT100 YES Z P* Z * P* TEST IF ONLY NO-PROCESSING FLAG SET Z P* Z P SUK A1,1 Z * P
0x4bfa64…4bfbf8 Dummy {f00=0x017e, f01=0x0190, f02=» AN A3,FLAGS,A13 Z P RF(NZ) DAT100 [ P* [ . P* IS SEND WINDOW FULL ? [ 8 P* [ X P LC A1,PS,A13 [ b P LC A2,SLWE,A13 [ x P SUR A1,A2 [ P ANK A1,/7 [ P CC A1,LCTRWN,A13 [ P RF(L) DAT130 NO [ P* [ P* SEND NEW PR IN RR-PACK
0x4bfbf8…4bfd8c Dummy {f00=0x017e, f01=0x0190, f02=» RF(Z) DAT120 YES [ P* * P* WAIT FOR RELEASING OF OUTPUT BUFFER $ P* R ( P LDKL A1,DAT100 REACTIVATION ADDRESS P ABL BUFWAT P* P EJECT P* PDAT120 EQU * * P LC A1,PR,A13 PR > P
0x4bfd8c…4bff20 Dummy {f00=0x017e, f01=0x0190, f02=» SC A1,IDENT,A2 . . P LDK A1,RR.L PACKET LENGTH TO HDLC-HEADER ] P ST A1,HDLC,A2 . ] L P* ] d 0 P* RESET NO PROCESSING FLAG AND QUEUE PACKET ] n P* ] . P LDK A1,NPRFLG RESET "NO PROCESSING" FLAG ] P C1R A1,A1 ] P ANS A1,QU
0x4bff20…4c00b4 (1, 1340) Dummy {f00=0x017f, f01=0x018e, f02=»TDC CONTROL BACK TO SCHEDULER ] P EJECT ^ & P* ^ 4 P* ^ > & P* PROCESSING OF RECEIVED RR-PACKET ^ H P* ^ r 0 P******************************************** ^ | P* ^ P* INPUT PARAMETER: ^ P* A2 = BUFFER ADDRESS ^ P* A13 = LC-ADM ADDR
0x4c00b4…4c0248 Dummy {f00=0x017f, f01=0x0190, f02=» ^ P CF A14,TDARR TEST RR-PACKET _ $ P LDR A1,A1 PR OUT OF SEQUENCE ? _ , . P ABL(NZ) DAT00 YES RESET LC (MODULE DATIN) _ T P* _ " P* TEST IF REMOTE BUSY FLAG SET _ P* _ " P LD A1,FLAGS,A13 _ P ANK A1,REMBUS _ *
0x4c0248…4c03dc Dummy {f00=0x017f, f01=0x0190, f02=»G _ X P LDK A1,NPRFLG ` P C1R A1,A1 ` . @ P ANS A1,QUEOUT,A13 RESET NO PROCESSING FLAG ` N P RF RNRI00 ` P EJECT ` P* ` ( P* PROCESSING OF RECEIVED RNR-PACKET ` P* ` 0 P********
0x4c03dc…4c0570 Dummy {f00=0x017f, f01=0x0190, f02=» ` x ( P* A14 = CALL FUNCTION STACK POINTER a P* a 4 P* CALLING SEQUENCE: a > P* ABL RNRIN a Z P* a n PRNRIN EQU * a x P CF A14,TDARR TEST RR-PACKET a $ P LDR A1,A1 PR OUT OF SEQUENCE ? a . P ABL(NZ) DAT00 YES RESET LC (MODULE DATIN) a (
0x4c0570…4c0704 Dummy {f00=0x017f, f01=0x0190, f02=» 0 P LC A1,IDENT,A2 GET PR FROM RECEIVED PACKET b P SRL A1,5 . b 8 P ANK A1,/07 . b L P* b b P EJECT b l P* b z D P* IF IT IS A SEND WINDOW UPDATING, RESET "NO PROCESSING" FLAG OF b P* OUTPUT QUEUE b P* b 4 P CC A1,SLWE,A13 COMPARE WITH
0x4c0704…4c0898 Dummy {f00=0x017f, f01=0x0190, f02=» FLAG b l P C1R A1,A1 c P ANS A1,QUEOUT,A13 . c . PRNRI10 EQU * c J & P CF A14,RLBUF BUFFER BACK TO POOL c ^ * P ABL EXITDC CONTROL BACK TO SCHEDULER c P IFF SWITVC=0 c P EJECT c P* c P* c ( P* PROCESSING OF RECEIVED C
0x4c0898…4c0a2c Dummy {f00=0x017f, f01=0x0190, f02=»DRESS c ~ P* A3 = BUFFER LENGTH d P* A13 = LC-ADM ADDRESS d , ( P* A14 = CALL FUNCTION STACK POINTER d L P* d x P* CALLING SEQUENCE: d P* ABL CALLIN d P* d PCALLIN EQU * d * P LDK A1,READ.ST IS LC-STATUS: READY ? d P CC A1
0x4c0a2c…4c0bc0 Dummy {f00=0x017f, f01=0x018e, f02=» P CC A1,LCSTAT,A13 . e " P RF(NE) CALC00 NO, SO CLEAR VC e P* e F 8 P* A CALL COLLISION IS OCCURED, IGNORE RECEIVED CALL e P P* e * P ABL EXITDC CONTROL BACK TO SCHEDULER e P* e @ P* THE LC-STATUS IS VALID IN COMBINATION WITH THE CALL PACK
0x4c0bc0…4c0d54 (1, 1341) Dummy {f00=0x017f, f01=0x0190, f02=» P SC A1,LCSTAT,A13 . f , P LDK A1,0 ALL RESERVED BUFFERS ARE USED f P SC A1,NRNUBF,A13 . f P P EJECT f l P* f z ( P* GET WINDOW SIZES AND PACKET LENGTH f P* f P CF A14,GTWNDS f P* f . P* CHANGE TRANSMIT AND RECEIVE WINDOW SIZES f
0x4c0d54…4c0ee8 Dummy {f00=0x017f, f01=0x0190, f02=»CREWN,A13 f P* g 0 P* CHANGE TRANSMIT AND RECEIVE PACKET LENGTH g P* g P P LD A1,TRBFSZ,A13 g Z P LD A3,REBFSZ,A13 g t P ST A3,TRBFSZ,A13 g P ST A1,REBFSZ,A13 g P* g > P* TRANSLATE THRESHOLD PERCENTAGE INTO A NUMBER OF PACKETS g
0x4c0ee8…4c107c Dummy {f00=0x017f, f01=0x0190, f02=»* g P* h 6 P* PROCESSING OF RECEIVED CALL CONFIRMATION PACKET h P* h N 0 P******************************************** h X P* h P* INPUT PARAMETERS: h P* A2 = BUFFER ADDRESS h P* A3 = BUFFER LENGTH h P* A13 = LC-ADM ADDRESS
0x4c107c…4c1210 Dummy {f00=0x017f, f01=0x0190, f02=» h 2 P LDK A1,LCAL.ST IS LC-STATUS: LOCAL-CALL STATE i P CC A1,LCSTAT,A13 . i > P RF(E) CALC10 YES i Z P* i t P* ILLEGAL STATE, SO CLEAR VC i ~ P* i & P CF A14,RLBUF BUFFER BACK TO POOL i PCALC00 EQU * i 4 P LDK A1,LOCPER DIAGNOSTIC CODE
0x4c1210…4c13a4 Dummy {f00=0x017f, f01=0x0190, f02=»ER, UPDATE LC-ADM i t P* j PCALC10 EQU * j $ . P LDK A1,DATA.ST LC-STATUS := DATA TRANSFER j 8 P ECR A1,A1 . j j 6 P ST A1,LCSTAT,A13 SUBSTATUS := FLOW CONTROL READY j ~ & P CF A14,CLLCAD CLEAR LC-ADM FIELDS j P* j & P* UPDATE CALL CONFIRMATION P
0x4c13a4…4c1538 Dummy {f00=0x017f, f01=0x0190, f02=» EQU * j , P CF A14,QUEI PUT ELEMENT IN INPUT QUEUE k * P ABL EXITDC CONTROL BACK TO SCHEDULER k > P EJECT k l P* k z P* k * P* PROCESSING OF RECEIVED CLEAR PACKET k P* k 0 P******************************************** k P* k P* IN
0x4c1538…4c16cc Dummy {f00=0x017f, f01=0x0190, f02=»ON STACK POINTER k | P* l P* CALLING SEQUENCE: l " P* ABL CLRIN l > P* l V PCLRIN EQU * l ` P IFF PERMVC=0 l t 0 P LC A1,VCTYP,A13 GET TYPE OF LOGICAL CHANNEL l P ANK A1,/FF . l 0 P CWK A1,SVC IS IT A SWITCH VIRTUAL CIRCUIT ? l P
0x4c16cc…4c1860 Dummy {f00=0x017f, f01=0x0190, f02=»IF l P IFF SWITVC=0 m * P LDK A1,CLEA.ST IS LC-STATUS = CLEAR ? m P CC A1,LCSTAT,A13 . m N * P RF(E) CLRCIN YES, CO CLEAR COLLISION m j P* m P EJECT m P* m . P* HAS THE REQUEST HANDLER TO BE NOTIFIED ? m P* m 0 P LD A6,LCDWT,A13 D
0x4c1860…4c19f4 (1, 1342) Dummy {f00=0x017f, f01=0x0190, f02=»1,NPRFLG UNBLOCK INPUT QUEUE m P C1R A1,A1 . n $ P ANS A1,QUEINP,A13 . n 8 0 P ST A3,HDLC,A2 PACKET LENGTH TO HDLC-HEADER n T , P CF A14,QUEI PUT ELEMENT IN INPUT QUEUE n P RF CLR15 n P* n PCLR10 EQU * n & P CF A14,RLBUF BUFFER BACK TO POO
0x4c19f4…4c1b88 Dummy {f00=0x017f, f01=0x0190, f02=»R15 EQU * n P* o P* EMPTY OUTPUT QUEUE o P* o 8 * P LDKL A3,CLEA.RC RETURN CODE FOR USER o B P CF A14,CMEVNT o p PCLR20 EQU * o $ P LDR A2,A13 GET AN OUTPUT BUFFER o P ADK A2,SYSBUF . o P LDR* A1,A2 IS IT FREE ? o P RF(Z) CLR30 Y
0x4c1b88…4c1d1c Dummy {f00=0x017f, f01=0x0190, f02=» P* p PCLR30 EQU * p ( P LDK A1,CLE.CP PACKET IDENTIFICATION p " P SC A1,IDENT,A2 . p N 0 P LDK A1,CLE.CL PACKET LENGTH TO HDLC-HEADER p h P ST A1,HDLC,A2 . p 8 P CM LCSTAT,A13 NEW STATUS:=READY p P* p P* QUEUE PACKET
0x4c1d1c…4c1eb0 Dummy {f00=0x017f, f01=0x0190, f02=»HEDULER p r P EJECT q P* q P* q ( 6 P* PROCESSING OF RECEIVED CLEAR CONFIRMATION PACKET q 2 P* q l 0 P******************************************** q v P* q P* INPUT PARAMETERS: q P* A2 = BUFFER ADDRESS q P* A13 = LC-ADM ADDRESS
0x4c1eb0…4c2044 Dummy {f00=0x017f, f01=0x0190, f02=»RESET CONFIRMATION TIMER AND FLAG q P* r * . P LD A1,TIMADR,A13 GET ADDRESS TIMER BLOCK r 4 P CF A14,CANTIM CANCEL TIMER r f & P CM TIMADR,A13 CLEAR TIMER ADDRESS r , P LDK A1,CONTIM RESET TIMER STARTED FLAG r P C1R A1,A1 . r P ANS A1,FLAGS,A1
0x4c2044…4c21d8 Dummy {f00=0x017f, f01=0x0190, f02=»ATUS = READY ? r x P CC A1,LCSTAT,A13 . s P RF(E) CLRC10 YES s 2 P* s L P EJECT s V P* s d 6 P* STATUS IS NOT READY OR CLEAR, SO PROCEDURE ERROR s n P* s P RB CALC00 CLEAR VC s P* s PCLRC00 EQU * s & P CM LCSTAT,A13 SET STATUS :=
0x4c21d8…4c236c Dummy {f00=0x017f, f01=0x0190, f02=» s * P* PROCESSING OF RECEIVED RESET PACKET t P* t 6 0 P******************************************** t @ P* t t P* INPUT PARAMETERS: t ~ P* A2 = BUFFER ADDRESS t P* A3 = BUFFER LENGTH t P* A13 = LC-ADM ADDRESS t ( P* A14 = CALL FU
0x4c236c…4c2500 Dummy {f00=0x017f, f01=0x0190, f02=»IF LC-STATUS = CLEAR ? t P CC A1,LCSTAT,A13 . u $ P RF(E) RESC00 YES, IGNORE PACKET u : P* u b , P* TEST IF A RESET COLLISION HAS OCCURED u l P* u * P LDK A1,RSET.ST IS LC-STATUS = RESET ? u P CC A1,LCSBST,A13 . u P RF(E) RESCIN YES u
0x4c2500…4c2694 (1, 1343) Dummy {f00=0x017f, f01=0x0190, f02=» CC A1,LCSTAT,A13 . u * P RF(NE) RESC10 NO, SO PROCEDURE ERROR v P* v J P EJECT v T P* v b 2 P* LC-STATUS IS DATA TRANSFER, SO RESET LC-ADM v l P* v 0 P ST A3,HDLC,A2 PACKET LENGTH TO HDLC-HEADER v ( P CF A14,RSETVC RESET VIRTUAL CIRCUIT v
0x4c2694…4c2828 Dummy {f00=0x017f, f01=0x0190, f02=»U * v $ P LDR A2,A13 GET AN OUTPUT BUFFER w P ADK A2,SYSBUF . w 4 P LDR* A1,A2 IS IT FREE ? w L P RF(Z) RES60 YES w l P* w * P* WAIT FOR RELEASING OF OUTPUT BUFFER w P* w ( P LDKL A1,RES40 REACTIVATION ADDRESS w P ABL BUFWAT w P*
0x4c2828…4c29bc Dummy {f00=0x017f, f01=0x0190, f02=»DLC-HEADER w n P ST A1,HDLC,A2 . x P* x * P* QUEUE ELEMENT x 4 P* x L P CF A14,QUEO x V * P ABL EXITDC CONTROL BACK TO SCHEDULER x j P EJECT x P* x P* x 8 P* PROCESSING OF A RECEIVED RESET CONFIRMATION PACKET x P* x 0 P********
0x4c29bc…4c2b50 Dummy {f00=0x017f, f01=0x018e, f02=»S x z ( P* A14 = CALL FUNCTION STACK POINTER y P* y 6 P* CALLING SEQUENCE: y @ P* ABL RESCIN y P* y t PRESCIN EQU * y ~ * P LD A1,TIMADR,A13 TIMER BLOCK ADDRESS y P CF A14,CANTIM CANCEL TIMER y P CM TIMADR,A13 y P LDK A3,CONTIM
0x4c2b50…4c2ce4 Dummy {f00=0x017f, f01=0x0190, f02=» P RF(NE) RESC10 NO z 2 P LDK A1,FLCN.ST SUB-STATUS := FLOW CNTRL READY z P SC A1,LCSBST,A13 . z T , P LDK A1,NPRFLG RESET NO PROCESSING FLAG z p P C1R A1,A1 . z P ANS A1,QUEOUT,A13 . z PRESC00 EQU * z & P CF A14,RLBUF BUFFER BACK TO POOL z
0x4c2ce4…4c2e78 Dummy {f00=0x017f, f01=0x0190, f02=»10 EQU * z & P CF A14,RLBUF BUFFER BACK TO POOL { 0 P LDK A1,LOCPER DIAGN. CODE = PROCEDURE ERROR { : , P ABL CLVC CLEAR VC AND RETURN TO SCHED. { n P EJECT { P* { P* { . P* PROCESSING OF A RECEIVED RESTART PACKET { P* { 0 P************
0x4c2e78…4c300c Dummy {f00=0x017f, f01=0x0190, f02=» { v ( P* A14 = CALL FUNCTION STACK POINTER | P* | 4 P* CALLING SEQUENCE: | > P* ABL RSTIN | Z P* | r PRSTIN EQU * | | * P LDK A1,RSTFLG ALREADY RESTART BUSY ? | P AN A1,CMNFLG,A12 . | * P RF(NZ) RSTCIN YES, RESTART COLLISION | & P
0x4c300c…4c31a0 Dummy {f00=0x017f, f01=0x0190, f02=»RT RECEIVED | n ( P CF A14,CLAVCS CLEAR ALL VC'S LOCAL } P* } @ 6 P* PREPARE AND TRANSMIT RESTART CONFIRMATION PACKET } J P* } PRST00 EQU * } $ P LDR A2,A13 GET AN OUTPUT BUFFER } P ADK A2,SYSBUF . } P LDR* A1,A2 IS IT FREE ? } P RF(Z)
0x4c31a0…4c3334 (1, 1344) Dummy {f00=0x0180, f01=0x0190, f02=»ADDRESS } t P ABL BUFWAT ~ P* ~ $ PRST20 EQU * ~ . . P LDK A1,RSTR.CP RESTART CONF. PACKET TYPE ~ B P SC A1,IDENT,A2 . ~ t " P LDK A1,RSTR.CL PACKET LENGTH ~ P ST A1,HDLC,A2 . ~ P* ~ $ P* STORE ELEMENT IN RESTART QUEUE ~ P* ~ $ P
0x4c3334…4c34c8 Dummy {f00=0x0180, f01=0x0190, f02=» ~ l P EJECT P* P* : P* PROCESSING OF A RECEIVED RESTART CONFIRMATION PACKET * P* h 0 P******************************************** r P* P* INPUT PARAMETERS: P* A2 = BUFFER ADDRESS P* A12 = LINE BLOCK ADDRESS
0x4c34c8…4c365c Dummy {f00=0x0180, f01=0x018e, f02=» P* P* RESET TIMER P* ( & P CF A14,RLBUF BUFFER BACK TO POOL 2 $ P LD A1,RTMADR,A12 TIMER ACTIVE ? P CF A14,CANTIM CANCEL TIMER P CM RTMADR,A12 , P LDK A1,RSTFLG RESTART PROCEDURE BUSY ? P AN A1,CMNFLG,A12 . $
0x4c365c…4c37f0 Dummy {f00=0x0180, f01=0x0190, f02=» P EJECT P* P* . P* PROCESSING OF RECEIVED INTERRUPT PACKET & P* X 0 P******************************************** b P* P* INPUT PARAMETERS: P* A2 = BUFFER ADDRESS P* A3 = BUFFER LENGTH P* A13 = LC-AD
0x4c37f0…4c3984 Dummy {f00=0x0180, f01=0x0190, f02=»TIN EQU * 2 P LDK A4,0 INDICATE ENTRY FOR INTERRUPT PACKET P* H > P* THE NEXT PART OF CODING IS COMMON FOR THE PROCESSING OF R : P* AN INTERRUPT- AND AN INTERRUPT CONFIRMATION PACKET. P* PINT00 EQU * 2 P LDK A1,DATA.ST IS LC-ST
0x4c3984…4c3b18 Dummy {f00=0x0180, f01=0x0190, f02=»IGNORE PACKET, ELSE d P* PROCEDURE ERROR. P* 6 * P LDK A1,CLEA.ST IS LC-STATUS = CLEAR ? @ P CC A1,LCSTAT,A13 . n * P RB(NE) RESC10 NO, SO PROCEDURE ERROR P RB RESC00 IGNORE PACKET P* P EJECT P* @ P* STATE = DATA
0x4c3b18…4c3cac Dummy {f00=0x0180, f01=0x0190, f02=»NK A1,RSET.STA . P RB(NZ) RESC00 IGNORE PACKET P* < & P* QUEUE PACKET FOR REQUEST HANDLER F P* p PINT30 EQU * z 0 P ST A3,HDLC,A2 SAVE PACKET LENGTH IN BUFFER F P LDR A1,A13 INPUT QUEUE ANCHOR ADDRESS
0x4c3cac…4c3e40 Dummy {f00=0x0180, f01=0x0190, f02=»G RESET NO PROCESSING FLAG v P C1R A2,A2 . P ANRS A2,A1 N P LDR A4,A4 n 4 P RF(NZ) INTC10 CONTINUE WITH SPECIFIC PROCESSING P OF INTERRUPT CONF. PACKET . P RB RSTC20 CONTROL BLOCK BACK TO SCHEDULER
0x4c3e40…4c3fd4 (1, 1345) Dummy {f00=0x0180, f01=0x0190, f02=»******************** x P* P* INPUT PARAMETERS: & P* A2 = BUFFER ADDRESS B P* A3 = BUFFER LENGTH b P* A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P* P* CALLING SEQUENCE: P* ABL INTCIN
0x4c3fd4…4c4168 Dummy {f00=0x0180, f01=0x0190, f02=»T OF CODING WITH d , P* THE PROCESSING OF A INTERRUPT PACKET. P* H P RB INT00 R P* d " P* RESET INTERRUPT PENDING FLAG n P* PINTC10 EQU * 0 P LDK A1,INTPNG RESET INTERRUPT PENDING FLAG P C1R A1,A1 . P ANS A1,FLAGS,
0x4c4168…4c42fc Dummy {f00=0x0180, f01=0x0190, f02=»SP. THE j $ P* RESETTING OF A SVC RESP. PVC. P* 8 0 P******************************************** B P* v P* INPUT PARAMETERS: P* A1 = DIAGNOSTIC CODE P* A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P
0x4c42fc…4c4490 Dummy {f00=0x0180, f01=0x0190, f02=»TVC=0 P IFF PERMVC=0 P* $ P* SELECT ON VC-TYPE . P* J P LDK A1,PVC GET VC-TYPE T P CC A1,VCTYP,A13 . t $ P RF(E) CLV100 TYPE IS PERMANENT P* P* SWITCHED VIRTUAL CIRCUIT P* P XIF P IFF SWITVC=0
0x4c4490…4c4624 Dummy {f00=0x0180, f01=0x0190, f02=»,LCSTAT,A13 LC-STATUS:=CLEAR | P* ( P EJECT 2 P* @ P* EMPTY INPUT QUEUE J P* f P CF A14,CLINPQ p P* & P* COMPLETE EVENTS IN OUTPUT QUEUE P* P LDKL A3,CLEA.RC P CF A14,CMEVNT P* ,
0x4c4624…4c47b8 Dummy {f00=0x0180, f01=0x0190, f02=» LDK A1,VCREL " P SC A1,DWTSTE,A6 " & P CF A14,GTBUF GET AN INPUT BUFFER H , P LC A1,LCNUM,A13 LOGICAL CHANNEL NUMBER r P SC A1,LCIDNT,A2 . & P LDK A1,CLE.P INTERNAL PACKET TYPE P SC A1,IDENT,A2 . P SC A5,D
0x4c47b8…4c494c Dummy {f00=0x0180, f01=0x0190, f02=»ADR,A13 GET TIMER BLOCK ADDRESS P CF A14,CANTIM CANCEL TIMER ( P CM TIMADR,A13 L P* p P EJECT z P* @ P* PREPARE CLEAR PACKET AND TRANSMIT IT TO THE REMOTE STATION P* PCLVC20 EQU * $ P LDR A2,A13 GET AN O
0x4c494c…4c4ae0 Dummy {f00=0x0180, f01=0x0190, f02=»OUTPUT BUFFER x P* ( P LDKL A1,CLVC20 REACTIVATION ADDRESS P ABL BUFWAT L P* ` PCLVC40 EQU * j $ P LDK A1,CLE.P CLEAR PACKET TYPE ~ P SC A1,IDENT,A2 . $ P SC A5,DGNCOD,A2 DIAGNOSTIC CODE P LDK A1,0 ( P SC A1,CAUSE,A
0x4c4ae0…4c4c74 (1, 1346) Dummy {f00=0x0180, f01=0x0190, f02=» h P* P* START CONFIRMATION TIMER P* 4 , P LDKL A8,SYCLTM CLEAR CONFIRMATION TIMER > P CF A14,STTIM START TIMER n PCLVC60 EQU * * P ABL EXITDC CONTROL BACK TO SCHEDULER P XIF P IFF PERMVC=0 P EJECT P*
0x4c4c74…4c4e08 Dummy {f00=0x0180, f01=0x0190, f02=». ~ P RF(E) CLV160 YES, NO ACTION ( P SC A1,LCSBST,A13 SUBSTATUS := RESET . P* Z P* RESET VIRTUAL CIRCUIT d P* P CF A14,RSETVC P* , P* SEND NOTIFICATION TO RH, IF APPLICABLE P* 0 P LD A1,LCDWT,A13 DOES THE RH KNO
0x4c4e08…4c4f9c Dummy {f00=0x0180, f01=0x0190, f02=»C A1,LCIDNT,A2 . P LDK A1,RSET.P PACKET TYPE P SC A1,IDENT,A2 . : P SC A5,DGNCOD,A2 . T P LDK A1,RSET.L PACKET LENGTH n P ST A1,HDLC,A2 . , P CF A14,QUEI PUT ELEMENT IN INPUT QUEUE . P LD A1,TIMADR,A13 GET TIMER BLOCK ADDRESS
0x4c4f9c…4c5130 Dummy {f00=0x0180, f01=0x018e, f02=»O THE REMOTE STATION h P* PCLV130 EQU * & $ P LDR A2,A13 GET AN OUTPUT BUFFER : P ADK A2,SYSBUF . b P LDR* A1,A2 IS IT FREE ? z P RF(Z) CLV150 YES P* * P* WAIT FOR RELEASING OF OUTPUT BUFFER P* ( P LDKL A1,CLV130 RE
0x4c5130…4c52c4 Dummy {f00=0x0180, f01=0x0190, f02=» | $ P SC A5,DGNCOD,A2 DIAGNOSTIC CODE P LDK A1,0 0 & P SC A1,CAUSE,A2 CLEAR RESET CAUSE B & P LDK A1,RSET.L RESET PACKET LENGTH l P ST A1,HDLC,A2 . , P CF A14,QUEO PUT ELEMENT IN OUTPUT QUEUE P* P* START CONFIRMATION TIMER
0x4c52c4…4c5458 Dummy {f00=0x0180, f01=0x0190, f02=»IF P EJECT P* P* " 2 P* THIS MODULE RELEASE ALL RELATION BETWEEN THE , 4 P* DWT AND THE LOGICAL CHANNELS. THE LC IS PLACED b P* IN THE INITIAL STATE. P* 0 P******************************************** P* P* INPU
0x4c5458…4c55ec Dummy {f00=0x0180, f01=0x0190, f02=»ER n P* P* CALLING SEQUENCE: P* CF A14,CLAVCS 0 P* L P* OUTPUT PARAMETERS: V P* NO REGISTERS ARE CHANGED r P* PCLAVCS EQU * : P CF A14,SAVE8 SAVE REGISTERS P LDR A7,A13 SAVE A13
0x4c55ec…4c5780 Dummy {f00=0x0180, f01=0x0190, f02=» SUK A4,1 . PCLAV00 EQU * & P CF A14,GTLCAD GET LC-ADM ADDRESS ( P* R P EJECT P* j $ P CF A14,CLINPQ CLEAR INPUT QUEUE t P IFF SWITVC=0 P LDK A2,0 P IFF PERMVC=0 P LC A1,VCTYP,A13 VC-TYPE P ANK A1,/FF .
0x4c5780…4c5914 (1, 1347) Dummy {f00=0x0180, f01=0x0190, f02=»A2 . P XIF PCLAV10 EQU * 2 P ST A2,LCSTAT,A13 SET STATUS TO INITIALE VALUE , 2 P LD A6,LCDWT,A13 IS THERE RELATION WITH A DWT b P RF(Z) CLAV30 NO P IFF SWITVC=0 P IFF PERMVC=0 P ADK A1,0 PVC ? P RF(NZ) CLAV15 YES
0x4c5914…4c5aa8 Dummy {f00=0x0180, f01=0x0190, f02=» P* P* RESET TIMER FLAGS P* CANCEL TIMER . P* D P LD A1,TIMADR,A13 N P CF A14,CANTIM h P CM TIMADR,A13 ~ P LDK A1,CONTIM MASK VALUE P C1R A1,A1 . P ANS A1,FLAGS,A13 RESET FLAG P* & P* COMPLETE PENDI
0x4c5aa8…4c5c3c Dummy {f00=0x0180, f01=0x0190, f02=»E CLEAR OR RESET NOTIFICATION FOR RH P* , & P CF A14,GTBUF GET AN INPUT BUFFER 6 , P LC A1,LCNUM,A13 LOGICAL CHANNEL NUMBER ` P SC A1,LCIDNT,A2 . P IFF SWITVC=0 P LDK A3,CLEA.RC RETURN CODE , P LDK A1,CLE.P PRESET PACKET TYPE = C
0x4c5c3c…4c5dd0 Dummy {f00=0x0180, f01=0x0190, f02=»IF P IFF PERMVC=0 P LDK A3,RSET.RC RETURN CODE & P LDK A1,RSET.P PACKET TYPE = RESET D PCLAV20 EQU * n P XIF $ P SC A1,IDENT,A2 SAVE PACKET TYPE $ P LD A1,SAVE GET INPUT PARAMETER $ P SC A1,DGNCOD,A2 DIAGNOSTIC CODE P L
0x4c5dd0…4c5f64 Dummy {f00=0x0180, f01=0x0190, f02=»NEXT ENTRY IN LC:TAB P RB(NN) CLAV00 . P* 4 P* READY > P* N 8 P LDR A13,A7 RELOAD SAVED A13 X P CF A14,RELOA8 P RTN A14 BACK TO CALLER P EJECT P* P* * P* WAIT FOR REL
0x4c5f64…4c60f8 Dummy {f00=0x0180, f01=0x018e, f02=»1 = RESTART ADDRESS . P* A12 = LINE BLOCK ADDRESS P* A13 = LC-ADM ADDRESS N P* n P* CALLING SEQUENCE: x P* ABL BUFWAT P* P* OUTPUT PARAMETERS: 4 P* AFTER A CERTAIN TIME THE CALLER IS ACTIVATED
0x4c60f8…4c628c Dummy {f00=0x0180, f01=0x0190, f02=» P LDR A3,A12 . P INH . =1 & P CF A15,GETBLK GET A MONITOR BLOCK , * P LDR A1,A4 BLOCK ADDRESS AS PARAMETER V P CF A15,SETIME SET TIMER $ P DATA BUFW00 ACTIVATION ADDRESS P DATA BUFDEL DELAY TIMER P ENB * P ABL EXITDC CONT
0x4c628c…4c6420 Dummy {f00=0x0180, f01=0x0190, f02=» BLOCK ADDRESS z P INH . =1 P CF A15,FREBLK RELEASE BLOCK ( P ENB L " P LDR A12,A3 RESTORE REGISTERS X P LDR A13,A2 . ~ < P LDKL A14,DCSTAK A14:=CF STACK POINTER P ABR A1 BACK TO CALLER P EJECT P*
0x4c6420…4c65b4 (1, 1348) Dummy {f00=0x0181, f01=0x0190, f02=» P* P* INPUT PARAMETERS: P* A13 = LC-ADM ADDRESS * ( P* A14 = CALL FUNCTION STACK POINTER J P* v P* CALLING SEQUENCE: P* CF A14,TRTHR P* P* OUTPUT PARAMETERS: 6 P* THE NUMBER OF PACKETS IS STORED IN THE LC
0x4c65b4…4c6748 Dummy {f00=0x0181, f01=0x0190, f02=»3 RECEIVE WINDOW SIZE = W P SUK A1,1 " P LDK A4,0 4 PTRTHR1 EQU * R P AD A4,THRESH f P SUK A1,1 GET P*W | P RB(NN) TRTHR1 P LDKL A1,-1 PTRTHR2 EQU * P ADK A1,1 P SUK A4,100 P*W/100 P RB(NN
0x4c6748…4c68dc Dummy {f00=0x0181, f01=0x0190, f02=» IFF SWITVC=0 P* P* 8 P* CALCULATION OF THE WINDOW SIZES AND PACKET LENGTH * P* f 0 P******************************************** p P* P* INPUT PARAMETERS: P* A2 = BUFFER ADDRESS P* A12 = LINE BLOCK ADDRESS
0x4c68dc…4c6a70 Dummy {f00=0x0181, f01=0x0190, f02=»NDS P* P* OUTPUT PARAMETERS: & P* REGISTERS A1 AND A3 ARE CHANGED 2 P* PGTWNDS EQU * f P ST A2,SAVE+6 SAVE REGISTER z . P LD A1,WNDSIZ,A12 PRESET ON MAXIMUM VALUES P SC A1,LCTRWN,A13 . P SC A1,LCREWN,A13 . P
0x4c6a70…4c6c04 Dummy {f00=0x0181, f01=0x0190, f02=»VALUE z " P ANK A1,/F0 LENGTH CALLING DTE P SRL A1,4 . 4 P LCR A3,A2 LENGTH CALLED DTE H P ANK A3,/0F l P ADR A1,A3 ADD BOTH LENGTH P* P EJECT P* P ADK A1,1 ROUNDED UPWARDS P SRL A1,1 MAKE IT BYTES P A
0x4c6c04…4c6d98 Dummy {f00=0x0181, f01=0x018e, f02=»TWND6 NO & P ADK A2,1 POINTS TO FIRST FACILITY PGTWND1 EQU * : P LCR A3,A2 GET FACILITY CODE N P CWK A3,/02 FLOW CONTROL ? r P RF(E) GTWND2 YES P ADK A2,2 TRY NEXT ONE P SUK A1,2 UPDATE LENGTH P RF(NP) GTWND6 EXHAUSTED
0x4c6d98…4c6f2c Dummy {f00=0x0181, f01=0x0190, f02=» P* GET TRANSMITTER DATA P* " * P ADK A2,1 POINTS TO FACILITY PARAMETER , P LCR A3,A2 GET PARAMETER Z & P ANK A3,/0F TRANSMITTER PARAMETERS z " P SLL A3,1 PREPARE FOR INDEXING P RF(Z) GTWND4 NOT SPECIFIED P LD A3,CLAS1-2,A3 GET VALU
0x4c6f2c…4c70c0 Dummy {f00=0x0181, f01=0x0190, f02=» ` P* P EJECT P* PGTWND3 EQU * * P ECR A3,A3 > . P CC A3,LCTRWN,A13 WINDOW SIZE TOO LARGE ? P P RF(NL) GTWND4 YES & P SC A3,LCTRWN,A13 SAVE WINDOW SIZE P* P* GET RECIEVER DATA P* PGTWND4 EQU * "
0x4c70c0…4c7254 (1, 1349) Dummy {f00=0x0181, f01=0x0190, f02=»ECIFIED | P LD A3,CLAS1-2,A3 GET VALUES 0 P CC A3,REBFSZ+1,A13 PACKET SIZE TOO LARGE ? 4 P RF(NL) GTWND5 YES h 2 P SC A3,REBFSZ+1,A13 SAVE RECEIVER BUFFER SIZE PGTWND5 EQU * P ECR A3,A3 . P CC A3,LCREWN,A13 WINDOW SIZE TOO LARGE ?
0x4c7254…4c73e8 Dummy {f00=0x0181, f01=0x018e, f02=»TN A14 P EJECT P XIF P* ( P* 2 : P* COMPLETE AN OUTPUT EVENT, DUE TO AN ERROR SITUATION < P* z 0 P******************************************** P* P* INPUT PARAMETERS: P* A3 = RETURN CODE P* A13 = LC-AD
0x4c73e8…4c757c Dummy {f00=0x0181, f01=0x0190, f02=» P* OUTPUT PARAMETERS: P* A1 ,A2 AND A6 ARE CHANGED P* D PCMEVNT EQU * N $ P LDR A1,A13 QUEUE ANCHOR ADDRESS b P ADK A1,QUEOUT . " P LDK A2,NPRFLG SET MASK VALUE P C1R A2,A2 . P ANRS A2,A1 IS QUEUE EMPTY ? P RF(Z) C
0x4c757c…4c7710 Dummy {f00=0x0181, f01=0x0190, f02=»10 NO P LDR A6,A2 A6 = DWT-ADDRESS $ P CF A14,CMPREQ COMPLETE REQUEST 2 P RB CMEVNT Z P* l P EJECT v P* $ P* THE ELEMENT IS A SYSTEM BUFFER P* PCMEV10 EQU * " P CMR A2 RELEASE SYSTEM BUFFER P RB CMEVNT
0x4c7710…4c78a4 Dummy {f00=0x0181, f01=0x0190, f02=» P* DATA-, RR- OR RNR PACKET. P* ( 0 P******************************************** 2 P* f P* INPUT PARAMETERS: p P* A2 = BUFFER ADDRESS P* A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P* P* CALL
0x4c78a4…4c7a38 Dummy {f00=0x0181, f01=0x018e, f02=»RROR FOUND B P* WHEN A PROCEDURE ERROR IS DETECTED, THE VC WILL BE CLEARED 8 P* OR RESET AND THE MODULE RETURNS TO THE SCHEDULER. X P* PTDARR EQU * 2 P LDK A1,DATA.ST IS LC-STATUS = DATA TRANSFER ? P CC A1,LCSTAT,A13 . P RF(
0x4c7a38…4c7bcc Dummy {f00=0x0181, f01=0x0190, f02=» * P LDK A1,CLEA.ST IS LC-STATUS = CLEAR ? P CC A1,LCSTAT,A13 . 2 P RF(NE) TDA00 YES N P CF A14,RLBUF IGNORE PACKET h * P ABL EXITDC CONTROL BACK TO SCHEDULER P* P EJECT P* ( P* ILLEGAL STATE, SO PROCEDURE ERROR P
0x4c7bcc…4c7d60 Dummy {f00=0x0181, f01=0x0190, f02=»EAR VC AND RETURN TO SCHEDULER P* & @ P* STATE = DATA TRANSFER, IF SUB-STATE = RESET: IGNORE PACKET 0 P* t PTDA10 EQU * ~ ( P LDK A1,RSET.ST IS LC-STATUS = RESET P CC A1,LCSBST,A13 . P RF(NE) TDA20 NO & P CF A14,RLBUF BUFFER B
0x4c7d60…4c7ef4 (1, 1350) Dummy {f00=0x0181, f01=0x0190, f02=» " P* OR P(R) - SLWE <= PS - SLWE P* * PTDA20 EQU * 4 & P LC A1,IDENT,A2 GET RECEIVED P(R) H P SRL A1,5 . r P ANK A1,/07 . ( P LC A4,SLWE,A13 SEND LWE = OLD P(R) P ANK A4,/FF . P SUR A1,A4 GET P(R) - SLWE P ANK A1,
0x4c7ef4…4c8088 Dummy {f00=0x0181, f01=0x0190, f02=»* A1,A14 >= P RF(NL) TDA30 YES P EJECT . P* < . P* P(R) IS NOT IN WINDOW, RETURN CODE := 1 F P* x P LDK A1,1 SET RETURN CODE P RF TDA40 P* P* PACKET CORRECT P* PTDA30 EQU * P LDK A1,0 SET RETU
0x4c8088…4c821c Dummy {f00=0x0181, f01=0x0190, f02=» ^ P* 0 P******************************************** P* F P* INPUT PARAMETERS: P P* A2 = ELEMENT ADDRESS l P* A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P* P* CALLING SEQUENCE: P* CF A
0x4c821c…4c83b0 Dummy {f00=0x0181, f01=0x0190, f02=»EINP P RF QUEO00 P* PQUEO EQU * ( P LDK A1,QUEOUT : PQUEO00 EQU * P ( P ADR A1,A13 GET QUEUE ANCHOR ADDRESS d P CF A14,QUEUE QUEUE ELEMENT P RTN A14 P EJECT P* P* P* QUEUE ROUTINE (FIFO) P*
0x4c83b0…4c8544 Dummy {f00=0x0181, f01=0x0190, f02=» A2 = ELEMENT ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P* J P* CALLING SEQUENCE: T P* CF A14,QUEUE p P* P* OUTPUT PARAMETERS: P* NO REGISTERS ARE CHANGED P* PQUEUE EQU * P IFT CPU852=1 & P
0x4c8544…4c86d8 Dummy {f00=0x0181, f01=0x0190, f02=»-4 SAVE REGISTERSA1-A3 P XIF P LDR* A3,A1 * P ANKL A3,/FFFE QUEUE FILLED? > P RF(Z) QUE10 NO b P* z P EJECT P* PQUE05 EQU * P LDR A1,A3 GET NEXT ELEMENT " P LD A3,BFCHPT,A1 CHAIN FILLED? P RB(NZ) QUE05
0x4c86d8…4c886c Dummy {f00=0x0181, f01=0x0190, f02=»QUE15 EQU * * P CM BFCHPT,A2 SET ZERO IN CHAINPOINTER P IFT CPU852=1 B * P LD A1,QUESAV RESTORE REGISTERS A1-A3 X P LD A2,QUESAV-2 P LD A3,QUESAV-4 P XIF P IFT CPU852=0 * P ML 3,QUESAV-4 RESTORE REGISTERS A1-A3 P X
0x4c886c…4c8a00 Dummy {f00=0x0181, f01=0x0190, f02=»******** l P* P* INPUT PARAMETERS: " P* A1 = ADDRESS QUEUE ANCHOR 6 P* A2 = ELEMENT ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER | P* P* CALLING SEQUENCE: P* CF A14,QUEUEF P* P* OUTPUT PARAMETERS:
0x4c8a00…4c8b94 (1, 1351) Dummy {f00=0x0181, f01=0x0190, f02=» P CM BFCHPT,A2 . P LDR* A4,A1 GET ADDRESS FROM QUEUE ANCHOR ( P ANK A4,/01 SAVE BIT 15 Z P LDKL A3,/FFFE z & P ANRS A3,A1 CLEAR BIT 15 OF ANCHOR * P LDR* A3,A1 ADDRESS FROM QUEUE ANCHOR P RF(Z) QUEF10 6 P ST A3,BFC
0x4c8b94…4c8d28 Dummy {f00=0x0181, f01=0x0190, f02=»BIT 15 IN ANCHOR z * P LD A3,QUESAV RESTORE REGISTERS A3,A4 P LD A4,QUESAV-2 F P RTN A14 ^ P EJECT n P* | P* P* DEQUEUE ROUTINE P* 0 P******************************************** P* P* INPUT PARAMETERS:
0x4c8d28…4c8ebc Dummy {f00=0x0181, f01=0x0190, f02=»14,DEQUE P* P* OUTPUT PARAMETERS: P* A2 = ELEMENT ADDRESS 6 P* NO REGISTERS ARE CHANGED V P* z PDEQUE EQU * " P ST A3,QUESAV SAVE REGISTER A3 ( P LDR* A2,A1 GET ELEMENT FROM ANCHOR . P LD A3,BFCHPT,A2 GET ADDRESS N
0x4c8ebc…4c9050 Dummy {f00=0x0181, f01=0x0190, f02=»RR A2,A3 RESET BIT 15 IN ELEMENT ADDR. & P LD A3,QUESAV RESTORE REGISTER A3 . P RTN A14 X P EJECT h P* v P* P* START TIMER ROUTINE P* 0 P******************************************** P* P* INPUT PARAMETERS:
0x4c9050…4c91e4 Dummy {f00=0x0181, f01=0x0190, f02=»14 = CALL FUNCTION STACK POINTER P* ( P* CALLING SEQUENCE: 2 P* CF A14,STRTIM N P* j P* OUTPUT PARAMETERS: t P* A4 = ADDRESS TIMER & P* NO OTHER REGISTERS ARE CHANGED P* PSTRTIM EQU * P IFT CPU852=1
0x4c91e4…4c9378 Dummy {f00=0x0181, f01=0x0190, f02=» SAVE REGISTERS P XIF P ST A8,STRPAR+2 SET TIME $ P LDR A1,A13 LC-ADM ADDRESS D P LDR A2,A4 DISPATCH ADDRESS f P LDR A3,A12 1TH PARAMETER P* P EJECT P* P INH . =1 $ P CF A15,GETBLK GET MONITOR BLOCK P
0x4c9378…4c950c Dummy {f00=0x0181, f01=0x0190, f02=»E IN 0,1 SEC ~ P ENB P IFT CPU852=1 $ P LD A1,TIMSAV RESTORE REGISTERS 6 P LD A2,TIMSAV-2 ^ P LD A3,TIMSAV-4 v P XIF P IFT CPU852=0 $ P ML 3,TIMSAV-4 RESTORE REGISTERS P XIF P RTN A14 P* " P* R
0x4c950c…4c96a0 Dummy {f00=0x0181, f01=0x0190, f02=»DK A3,0 P CF A15,ACTOT ACTIVATE TASK P ABL TDISP 4 P EJECT F P* T P* ^ P* CANCEL TIMER ROUTINE h P* 0 P******************************************** P* P* INPUT PARAMETERS: P* A1 = ADDRESS TIMER ( P
0x4c96a0…4c9834 (1, 1352) Dummy {f00=0x0182, f01=0x018e, f02=»ERS: P* A1 = REMAINING TIME & P* NO OTHER REGISTERS ARE CHANGED * P* T PCANTIM EQU * ^ P ST A2,TIMSAV SAVE REGISTERS r P ST A3,TIMSAV-2 P ST A4,TIMSAV-4 " P LDR A2,A1 ADDRESS TIMER VALUE P INH $ P RF(Z) C
0x4c9834…4c99c8 Dummy {f00=0x0182, f01=0x018e, f02=» 8 P CMR A2 SET TIMER VALUE 0 $ P LD A3,-2,A2 ADDRESS TIMOUTBLOCK @ ( P LD A4,4,A3 ADDRESS ACTIVATIONBLOCK h P ST A1,4,A4 SAVE A1 P INH . =1 * P CF A15,FREBLK RELEASE ACTIVATIONBLOCK P* P EJECT P
0x4c99c8…4c9b5c Dummy {f00=0x0182, f01=0x0190, f02=» P RTN A14 P* P RES 3 SAVE AREA PTIMSAV EQU *-2 6 PQUESAV EQU *-2 L P EJECT b P* x P* 4 P* MODULE TO CONTROL THE PROCESSES IN THE DC-TASK P* 0 P******************************************** P*
0x4c9b5c…4c9cf0 Dummy {f00=0x0182, f01=0x018e, f02=»ERS: ( P* AT ENTRY OF AN ACTIVATED PROCESS: " P* A1 = QUEUE ANCHOR ADDRESS 8 P* A12 = LINE BLOCK ADDRESS ^ P* A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P* PEXITDC EQU * & P LDK A5,NPRFLG NO PROCESSING
0x4c9cf0…4c9e84 Dummy {f00=0x0182, f01=0x0190, f02=» P LD A7,SCHEDL LINE INDEX & P LDKL A14,DCSTAK SET STACK POINTER $ " P LDKL A10,-2 SCAN LOOP-COUNTER N P* t P EJECT ~ P* PEXIT00 EQU * , P LDKL A12,LINTAB GET LINE BLOCK ADDRESS P IFF SYNRLN=1 P ADR A12,A7 . P A
0x4c9e84…4ca018 Dummy {f00=0x0182, f01=0x0190, f02=»,A12 t 6 P RF(Z) EXIT04 NO! CONTINUE WITH NEXT LINE (IF ANY) P* F ( P* TEST IF ONLY STATISTIC FLAG IS SET P P* | P SUKL A13,STATFL P RF(Z) EXIT04 YES ( P ADK A4,1 TAKE NEXT LOGICAL CHANNEL * P CC A4,NRLC,A12 IS THERE A NEXT ONE
0x4ca018…4ca1ac Dummy {f00=0x0182, f01=0x0190, f02=» A7,1 UPDATE LINE INDEX * P CWK A7,SYNRLN IS THERE A NEXT LINE ? . P RF(L) EXIT30 YES N * P LDK A7,0 START AGAIN WITH FIRST LINE P XIF P ADKL A10,1 " P RF(Z) EXIT32 END OF SCANNING , P RF EX
0x4ca1ac…4ca340 Dummy {f00=0x0182, f01=0x0190, f02=»PCK PRESET ACTIVATION ADDRESS ( P LDKL A9,1 PRESET PROCESS INDICATION & 2 P LD A3,NRPNDT,A12 CHECK NR. OF OUTPUT REQUESTS R P CWK A3,SYNRTR . ( P RF(NL) EXIT20 MAXIMUM, SO NO OUTPUT * P LDR A1,A12 CHECK RESTART OUTPUT QUEUE P ADK A1,RSTQUE
0x4ca340…4ca4d4 (1, 1353) Dummy {f00=0x0182, f01=0x0190, f02=»1 . P RF(Z) EXIT20 QUEUE IS EMPTY P TM A2,A6 0 0 P RF(Z) EXIT20 ONLY NO PROCESSING FLAG IS SET B & P TM A2,A5 TEST IF QUEUE IS BLOCKED v , P RF(Z) EXIT40 NO, SO PROCESS THIS QUEUE PEXIT20 EQU * , P LDKL A8,RHIP PRESET ACTIVATION ADDR
0x4ca4d4…4ca668 Dummy {f00=0x0182, f01=0x0190, f02=» P RF(Z) EXIT30 QUEUE IS EMPTY P TM A2,A6 ( 0 P RF(Z) EXIT30 ONLY NO PROCESSING FLAG IS SET : & P TM A2,A5 TEST IF QUEUE IS BLOCKED n , P RF(Z) EXIT40 NO, SO PROCESS THIS QUEUE P* P EJECT P* . P* CHECK IF A COMPLETED SCAN CY
0x4ca668…4ca7fc Dummy {f00=0x0182, f01=0x0190, f02=»A7,SCHEDL ~ * P RB(NE) EXIT00 CONTINUE WITH SCANNING & P CM DCLEVL SET PROCESS INDICATION @ PEXIT32 EQU * j P LKM EXIT DC-TASK P DATA 3 P* B P* A NOT EMPTY QUEUE IS FOUND, ACTIVATE THE CONCERNING PROCESS P*
0x4ca7fc…4ca990 Dummy {f00=0x0182, f01=0x018e, f02=»RS p P ST A7,SCHEDL . ( P ST A9,DCLEVL SET PROCESS INDICATION " " P ABR A8 BRANCH TO THE ROUTINE N P* t B PSCHEDC DATA 0 LOGICAL CHANNEL INDEX ~ PSCHEDL DATA 0 LINE INDEX P EJECT P* P* ( P*
0x4ca990…4cab24 Dummy {f00=0x0182, f01=0x018e, f02=» z P* A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER ( P* T P* CALLING SEQUENCE: ^ P* CF A14,RSETVC z P* P* OUTPUT PARAMETERS: P* NONE P* PRSETVC EQU * P CF A14,SAVE8
0x4cab24…4cacb8 Dummy {f00=0x0182, f01=0x0190, f02=» & P* COMPLETE EVENTS IN OUTPUT QUEUE P* 2 6 P LD A1,LCDWT,A13 IS THERE A RELATION WITH AN USER < P RF(Z) RSET20 NO v P LDKL A3,RSET.RC RETURN CODE P CF A14,CMEVNT PRSET20 EQU * P CF A14,RELOA8 P RTN A14
0x4cacb8…4cae4c Dummy {f00=0x0182, f01=0x0190, f02=»******************** p P* P* INPUT PARAMETERS: & P* A13 = LC-ADM ADDRESS B P* A14 = CF STACK POINTER b P* P* OUTPUT PARAMETERS: P* NONE P* PCLINPQ EQU * $ P LDR A1,A13 QUEUE ANCHOR ADDRESS P
0x4cae4c…4cafe0 Dummy {f00=0x0182, f01=0x0190, f02=»CLINP1 YES ~ ( P CF A14,DEQUE GET ELEMENT FROM QUEUE P CF A14,RLBUF RELEASE BUFFER H P RB CLINPQ l P* PCLINP1 EQU * P RTN A14 P EJECT P* P* $ P* ROUTINE TO CLEAR LC-
0x4cafe0…4cb174 (1, 1354) Dummy {f00=0x0182, f01=0x0190, f02=»ELDS ~ ( P* A14 = CALL FUNCTION STACK POINTER P* 8 P* CALLING SEQUENCE: B P* CF A14,CLLCAD ^ P* z P* OUTPUT PARAMETERS: P* NONE P* A1 IS CHANGED P* PCLLCAD EQU * P LDK A1,0 , P ST A1,FLAGS,A13
0x4cb174…4cb308 Dummy {f00=0x0182, f01=0x0190, f02=» . P SC A1,SLWE,A13 . " P SC A1,RLWE,A13 $ P SC A1,NRNUBF,A13 J P RTN A14 d P EJECT t P* P* 8 P* THIS ROUTINE CALCULATES FROM THE FILE CODE OF THE & P* LINE ECB THE LINE BLOCK ADDRESS P* 0 P**
0x4cb308…4cb49c Dummy {f00=0x0182, f01=0x0190, f02=»FUNCTION STACK POINTER P* P* CALLING SEQUENCE: ( P* CF A14,GTLBA D P* ^ P* OUTPUT PARAMETERS: h P* A12 = LINE BLOCK ADDRESS P* PGTLBA EQU * P IFT SYNRLN=1 & P LD A12,LINTAB LINE BLOCK ADDRESS P X
0x4cb49c…4cb630 Dummy {f00=0x0182, f01=0x0190, f02=» $ P LDR* A12,A1 LINE BLOCK ADDRESS & P LD A2,FILCOD,A12 CHECK FILE CODE , P CC A2,ECBFC,A8 . V P RF(E) GTLB10 CORRECT ONE p P ADK A1,2 " P RB GTLB00 TRY NEXT LINE BLOCK P* PGTLB10 EQU * " P LDR* A1,A14 RESTORE REGISTER
0x4cb630…4cb7c4 Dummy {f00=0x0182, f01=0x018e, f02=»********************************** P* * P* INPUT PARAMETERS: 4 $ P* A4 = LOGICAL CHANNEL NUMBER P P* A12 = LINE BLOCK ADDRESS x ( P* A14 = CALL FUNCTION STACK POINTER P* P* CALLING SEQUENCE: P* CF A14,GTLCAD
0x4cb7c4…4cb958 Dummy {f00=0x0182, f01=0x0190, f02=» n P ADR A13,A13 . & P AD A13,LC:TAB,A12 LC-ADM ADDRESS $ P LDR* A13,A13 GET LC-ADM ADDRESS H P RTN A14 p P EJECT P* P* . P* MODULE TO ACTIVATE A CONFIRMATION TIMER P* 0 P******************************************
0x4cb958…4cbaec Dummy {f00=0x0182, f01=0x018e, f02=»CK POINTER v P* P* CALLING SEQUENCE: P* CF A14,STTIM 8 P* R P* OUTPUT PARAMETERS: ( P* A1 AND A4 CHANGED x P* PSTTIM EQU * $ P LDKL A4,TIMOUT ACTIVATION LABEL P CF A14,STRTIM START TIMER
0x4cbaec…4cbc80 Dummy {f00=0x0182, f01=0x0190, f02=» P EJECT P* P* P* & P* GET BUFFER ROUTINE 0 P* L 8 P**************************************************** V P* P* INPUT PARAMETERS: P* A14 = CF STACK POINTER P* P* OUTPUT PARAMETERS: P* A2 =
0x4cbc80…4cbe14 (1, 1355) Dummy {f00=0x0182, f01=0x018e, f02=»C BUFFER CHAIN ANCHOR & P RF(Z) GTBU10 NO BUFFER AVAILABLE & P LDR* A1,A2 GET BUFFER FROM CHAIN H P ST A1,BUFANC . r P ADK A2,2 START OF BUFFER P LDR* A1,A14 RELOAD A1 P RTN A14 PGTBU10 EQU * P HLT ERROR P*
0x4cbe14…4cbfa8 Dummy {f00=0x0182, f01=0x018e, f02=» X P* P* INPUT PARAMETERS: P* A2 = BUFFER ADDRESS . P* A14 = CF STACK POINTER N P* p P* OUTPUT PARAMETERS: z P* NONE P* PRLBUF EQU * P STR A1,A14 SAVE A1 $ P LD A1,BUFANC BUFFER POOL ANCHOR P
0x4cbfa8…4cc13c Dummy {f00=0x0182, f01=0x4018, f02=» P END @ T PARAMETERS: P* A2 = BUFFER ADDRESS . P* A14 = CF STACK POINTER N P* p P* OUTPUT PARAMETERS: z P* NONE P* PRLBUF EQU * P STR A1,A14 SAVE A1 $ P LD A1,BUFANC BUFFER POOL ANCHOR P
0x4cc13c…4cc2d0 Dummy {f00=0x0182, f01=0x2008, f02=» A14 LD A4,-6,A14 XIF * IFT CPU852=NO 6 ML 4,-6,A14 L XIF ` *# RETURN l RTN A14 END @ ELSE3 EQU * *# END-IF END.IF3 EQU * *# SET BUFFER STATE = FREE LDK
0x4cc2d0…4cc464 Dummy {f00=0x0182, f01=0x0000, f02=»
[…0x3…]
0x4cc920…4ccab4 (1, 1356) Opaque[0x194]
0x4ccab4…4ccc48 # DirEnt {nam=»DRDC23«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3060, f03=0x0000}
0x4ccab4…4ccc48 IdxSect {
0x4ccab4…4ccc48 f00 = 0x0183 // 0x4ccab4 @0x0
0x4ccab4…4ccc48 f01 = 0x0058 // 0x4ccab6 @0x2
0x4ccab4…4ccc48 gno = [ // 0x4ccab8 @0x4
0x4ccab4…4ccc48 [0x00]: C0x0183.0x0.0
0x4ccab4…4ccc48 [0x01]: C0x0183.0x1.0
0x4ccab4…4ccc48 [0x02]: C0x0183.0x2.0
0x4ccab4…4ccc48 [0x03]: C0x0183.0x3.0
0x4ccab4…4ccc48 [0x04]: C0x0184.0x0.0
0x4ccab4…4ccc48 [0x05]: C0x0184.0x1.0
0x4ccab4…4ccc48 [0x06]: C0x0184.0x2.0
0x4ccab4…4ccc48 [0x07]: C0x0184.0x3.0
0x4ccab4…4ccc48 [0x08]: C0x0185.0x0.0
0x4ccab4…4ccc48 [0x09]: C0x0185.0x1.0
0x4ccab4…4ccc48 [0x0a]: C0x0185.0x2.0
0x4ccab4…4ccc48 [0x0b]: C0x0185.0x3.0
0x4ccab4…4ccc48 [0x0c]: C0x0186.0x0.0
0x4ccab4…4ccc48 [0x0d]: C0x0186.0x1.0
0x4ccab4…4ccc48 [0x0e]: C0x0186.0x2.0
0x4ccab4…4ccc48 [0x0f]: C0x0186.0x3.0
0x4ccab4…4ccc48 [0x10]: C0x0187.0x0.0
0x4ccab4…4ccc48 [0x11]: C0x0187.0x1.0
0x4ccab4…4ccc48 [0x12]: C0x0187.0x2.0
0x4ccab4…4ccc48 [0x13]: C0x0187.0x3.0
0x4ccab4…4ccc48 [0x14]: C0x0188.0x0.0
0x4ccab4…4ccc48 [0x15]: C0x0188.0x1.0
0x4ccab4…4ccc48 [0x16]: C0x0188.0x2.0
0x4ccab4…4ccc48 [0x17]: C0x0188.0x3.0
0x4ccab4…4ccc48 [0x18]: C0x0189.0x0.0
0x4ccab4…4ccc48 [0x19]: C0x0189.0x1.0
0x4ccab4…4ccc48 [0x1a]: C0x0189.0x2.0
0x4ccab4…4ccc48 [0x1b]: C0x0189.0x3.0
0x4ccab4…4ccc48 [0x1c]: C0x018a.0x0.0
0x4ccab4…4ccc48 [0x1d]: C0x018a.0x1.0
0x4ccab4…4ccc48 [0x1e]: C0x018a.0x2.0
0x4ccab4…4ccc48 [0x1f]: C0x018a.0x3.0
0x4ccab4…4ccc48 [0x20]: C0x018b.0x0.0
0x4ccab4…4ccc48 [0x21]: C0x018b.0x1.0
0x4ccab4…4ccc48 [0x22]: C0x018b.0x2.0
0x4ccab4…4ccc48 [0x23]: C0x018b.0x3.0
0x4ccab4…4ccc48 [0x24]: C0x018c.0x0.0
0x4ccab4…4ccc48 [0x25]: C0x018c.0x1.0
0x4ccab4…4ccc48 [0x26]: C0x018c.0x2.0
0x4ccab4…4ccc48 [0x27]: C0x018c.0x3.0
0x4ccab4…4ccc48 [0x28]: C0x018d.0x0.0
0x4ccab4…4ccc48 [0x29]: C0x018d.0x1.0
0x4ccab4…4ccc48 [0x2a]: C0x018d.0x2.0
0x4ccab4…4ccc48 [0x2b]: C0x018d.0x3.0
0x4ccab4…4ccc48 ]
0x4ccab4…4ccc48 }
0x4ccc48…4ccddc Dummy {f00=0x0183, f01=0x0190, f02=» 2 P IDENT DRDC23 REL 11.0 81-04-15 870105041100 P : P* B P************ L P* ` P* PHILIPS TERMINAL SYSTEM j P* * P* DRDC23 : DRIVER DATA COMMUNICATION 0 P* : HDLC POINT TO POINT,FULL DUPLEX P* : X21
0x4ccddc…4ccf70 Dummy {f00=0x0183, f01=0x0190, f02=»******************************************* @ P* * 4 @ P* THIS DRIVER IS DIVIDED IN 10 PARTS * x @ P* 00 : DEFINITIONS * @ P*
0x4ccf70…4cd104 Dummy {f00=0x0183, f01=0x0190, f02=» 03 : COMMON SUBROUTINES * @ P* 04 : OUTPUT * < @ P* 05 : TIMERS * @ P* 06 : INTERRUPTS HANDLER * @ P
0x4cd104…4cd298 Dummy {f00=0x0183, f01=0x0190, f02=»* 09 : X21 * @ P* * D @ P*********************************************************** P* P EJECT P* 8 P**************************
0x4cd298…4cd42c Dummy {f00=0x0183, f01=0x0190, f02=» * f 8 P* LABELS,CONSTANTS,EQUATES * 8 P* WORK AREAS AND TABLES DEFINITINON * N 8 P* * 8 P**************************************************** P*
0x4cd42c…4cd5c0 Dummy {f00=0x0183, f01=0x018e, f02=»***************** P P ENTRY DCTAB DUMMY ENTRY " P ENTRY DW2300 DUMMY ENTRY B $ P ENTRY DC23AD ACTIVATION HANDLER d " P ENTRY DC23ON POWER ON ROUTINE * P ENTRY IH2301 INTERRUPT HANDLER INPUT * P ENTRY IH2302 INTERRUPT HANDLER OUTPUT
0x4cd5c0…4cd754 (1, 1357) Dummy {f00=0x0183, f01=0x0190, f02=» P & P ENTRY DTETB1,DTETB2,DTETB3,DTETB4 P EJECT C:CTRL 6 P N 4 P*********************************************** V P* P* E X T E R N A L S P* " P***************************** P * P EXTRN DISIOE REQUEST ERRO
0x4cd754…4cd8e8 Dummy {f00=0x0183, f01=0x0190, f02=»RN DWTOR ORDER CODE P EXTRN DWTST DWT STATUS P EXTRN DWTWAT WAIT INDICATOR < P EXTRN ECBBA BUFFER ADDRESS ` " P EXTRN ECBRL REQUESTED LENGTH " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBRC RETURN CODE P EXTRN ECBCW1 CONTROL WO
0x4cd8e8…4cda7c Dummy {f00=0x0183, f01=0x0190, f02=» JOB v P EXTRN SETIME START TIMER " P EXTRN TENDIO COMPLETE REQUEST . P EXTRN TDISP DISPATCH T * P EXTRN SAVE8 SAVE REGS. A1-A8 ON STACK r P EXTRN EXIT MONITOR JOB EXIT ( P EXTRN DC:MIN INPUT BUFFER TRANSFER ( P EXTRN DC:MOT OUTPUT BUF
0x4cda7c…4cdc10 Dummy {f00=0x0183, f01=0x0190, f02=» UPDATE COUNTER t & P EXTRN DCSRED " READ " P EXTRN DEFDTE DEFINE NEW DTE'S B P EXTRN FNDDNT FIND NETW. DTE h & P EXTRN GETDSA FIND SYMB. DTE-ADDR P EJECT P* ( P* DC STATISTIC PACKAGE DISPLACEMENTS P* * PCSBR
0x4cdc10…4cdda4 Dummy {f00=0x0183, f01=0x0190, f02=»ED BUFFER OVERFLOW l 2 PCSBRAB EQU /13 " I-FRAMES REJECTED ABORTED 4 PCSBRPE EQU /14 " I-FRAMES REJECTED FCS ERROR P . PCSBTIF EQU /15 " I-FRAMES TRANSMITTED 0 PCSBTRT EQU /16 " I-FRAMES RETRANSMITTED 0 PCSBRSM EQU /17 " SNRM/
0x4cdda4…4cdf38 Dummy {f00=0x0183, f01=0x0190, f02=»CEIVED t $ PCSBRUA EQU /1B " UA RECEIVED & PCSBRRJ EQU /1C " REJ RECEIVED 6 & PCSBRNR EQU /1D " RNR RECEIVED ` 4 PCSBTSM EQU /1E " SNRM/SARM/SABM TRANSMITTED * PCSBTDI EQU /1F " DISC TRANSMITTED ( PCSBTDM EQU /20 " DM
0x4cdf38…4ce0cc Dummy {f00=0x0183, f01=0x0190, f02=»RANSMITTED v ( PCSBTNR EQU /24 " RNR TRANSMITTED , PCSBTOC EQU /25 " TOTAL OUTGOING CALLS > * PCSBUOC EQU /26 " UNSUCC. 2 " n * PCSBTIC EQU /27 " TOTAL INCOMMING " P $ PCSCDTE EQU /28 DTE NOT OPERABLE ( PCSCDIT EQU /
0x4ce0cc…4ce260 Dummy {f00=0x0183, f01=0x018e, f02=» P P H P******************************************************************** P* ` P* RETURN CODES j P* P************************** P " PR:REQ EQU /8000 REQUEST ERROR PR:ABT EQU /4000 ABORTED PR:2 EQU /200
0x4ce260…4ce3f4 (1, 1358) Dummy {f00=0x0183, f01=0x0190, f02=» PR:5 EQU /0400 PR:6 EQU /0200 PR:7 EQU /0100 4 T P*------------------------------------------------------------------------------- J , PR:INFO EQU /0080 FURTHER INFO AVAILABLE PR:TOUT EQU /0040 TIMEOUT PR:10 EQU /0020 " P
0x4ce3f4…4ce588 Dummy {f00=0x0183, f01=0x0190, f02=» /0008 ILLEGAL LENGTH/BUFFER OV PR:13 EQU /0004 ( ( PR:LCON EQU /0002 LOGICAL CONN. ERROR > * PR:PCON EQU /0001 PHYSICAL CONN. ERROR j L P*----------------------------------------------------------------------- P EJECT C:CTRL P J P
0x4ce588…4ce71c Dummy {f00=0x0183, f01=0x0190, f02=»************************************** P . P 6 PHS:0 EQU /8000 > " PHS:PE EQU /4000 PROGRAM ERROR T " PHS:AD EQU /2000 ABORT DETECTED z PHS:ID EQU /1000 IDLE DETECT L P*-------------------------------------------------------------------
0x4ce71c…4ce8b0 Dummy {f00=0x0183, f01=0x0190, f02=»HS:7 EQU /100 L P*----------------------------------------------------------------------- P f PHS:8 EQU /80 X21-STATE n PHS:9 EQU /40 X21-STATE PHS:10 EQU /20 X21-STATE PHS:11 EQU /10 X21-STATE L P*-----------------------------
0x4ce8b0…4cea44 Dummy {f00=0x0183, f01=0x018e, f02=»/2 THROUGHPUT ERROR PHS:NO EQU /1 NOT OPERABLE L P*----------------------------------------------------------------------- > : PHS:ERR EQU /300E ABORT,IDLE,ILL LENGTH,FCS,THROUGHPUT P EJECT C:CTRL 4 P************************************
0x4cea44…4cebd8 Dummy {f00=0x0183, f01=0x0190, f02=» PNUMLEN EQU 280 NUMTAB LENGTH $ PSTBI:L EQU 10 INPUT STACK LENGTH ( & PSTBO:L EQU 10 OUTPUT STACK LENGTH P * PNI:L EQU 15 NETWORK INFO BUFFER LENGTH z & PSTATE EQU /70 X21-INTERFACE STATE " PLDTE EQU /4C43 LOCAL DTE-TYPE " PRDTE EQU /5243 R
0x4cebd8…4ced6c Dummy {f00=0x0183, f01=0x0190, f02=» > P********************************************************* P* F P* MMU PARAMETERS P P* j & P********************************* t P* . P* A PROGRAM VERSION USING TOSS PAGING IS ( P* OBTAINED BY SETTING MMUPAG TO 1 P*
0x4ced6c…4cef00 Dummy {f00=0x0183, f01=0x0190, f02=»TO 0 j P* PCPU852 EQU 0 P 6805 - 6810/13 * P EJECT D P R ( P************************************ Z P* P* ADDRESS-BLOCK P* P************************ P ( P DATA BUFLEN MMU WORK-BUFFER LENGTH P
0x4cef00…4cf094 (1, 1359) Dummy {f00=0x0183, f01=0x0190, f02=»ELEASE BUFFER z P IS MADE BY THE DRIVER) P 8 $ PDW2300 DATA 0 DC-TASK DUMMY DWT @ P h PDEVIND EQU 0 DEVICE INDEX p P EJECT C:CTRL P : P***************************************************** P* * P* D W T D
0x4cf094…4cf228 Dummy {f00=0x0183, f01=0x0190, f02=» START OF DC DEPENDENT AREA P XIF $ P IFT MMUPAG=1 0 . PDWTDRD EQU /14 START OF DC DEPENDENT AREA F P XIF x 8 PDWTSTB EQU DWTDRD DWT-OFFSET TO STATISTIC BUFF1 (=0) 2 PDWTCHD EQU DWTDRD+2 CONFIG CHAIN LINK HEAD DWT 2 PDWTCHN EQU DWTDRD+
0x4cf228…4cf3bc Dummy {f00=0x0183, f01=0x0190, f02=»S b * PDWTDR1 EQU DWTDRD+10 DRIVER DEP WORD 1 * PDWTSUB EQU DWTDR1 SYMBOLIC SUBADDRESS 8 . PDWTRCL EQU DWTDRD+12 REQUEST CONTROL WORD f , PDWTRTV EQU DWTDRD+14 REQUEST TIMER VALUE . PDWTRTP EQU DWTDRD+16 REQUEST TIMER POINTER B PDWTOPE EQU DWT
0x4cf3bc…4cf550 Dummy {f00=0x0183, f01=0x0190, f02=» I/P DATA Q LINK TO BUFFER | 0 PDWTIPT EQU DWTDRD+24 I/P DATA TIMER POINTER " P V 6 PDWTDDA EQU DWTIPT+2 START OF DRIVER DEPENDENT AREA ^ $ PDWTRTY EQU DWTDDA TRANSM. RETRY $ PDWTFRN EQU DWTDDA+2 FRAME NUMBER P EJECT > P******************
0x4cf550…4cf6e4 Dummy {f00=0x0183, f01=0x0190, f02=»***************** x P PX:A EQU 1 " PNLIN EQU X:A NUMBER OF LINES 4 P X PCHLCI1 EQU /0A ` PCHLCU1 EQU /0B v P PCHLCI2 EQU /0C PCHLCU2 EQU /0D P PCHLCI3 EQU /04 PCHLCU3 EQU /05 P PCHLCI4 EQU /
0x4cf6e4…4cf878 Dummy {f00=0x0183, f01=0x0190, f02=»INK EQU RLINK+RLINK P EJECT P * PX:C EQU 64 2 ( PTBUFL EQU X:C MMU WORK-BUFFER LENGTH D PBUFLEN EQU TBUFL+TBUFL p P PX:D EQU 0 PLOGG EQU X:D LOGG FACILITY P PX:E EQU 3 PPRETRY EQU X:E RETRY LIMIT PRE
0x4cf878…4cfa0c Dummy {f00=0x0183, f01=0x0190, f02=»DING FRAMES v $ PMAXOUX EQU MAXOUT-1 COUNTER MAX P < PX:H EQU 1 D & PDYNADR EQU X:H DYNAMIC ADDRESSING V P PX:I EQU 0 PDCSTIC EQU X:I DC-STATISTICS P " PTSTOFF EQU 0 OFF LINE WHEN SET P EJECT P* , P* OU
0x4cfa0c…4cfba0 Dummy {f00=0x0183, f01=0x0190, f02=» EQU 8 RESPONSE TO I-F PSSABM EQU 1 SEND SABM PSDISC EQU 2 SEND DISCONNECT < PSNDUA EQU 5 SEND UA ` PSNDDM EQU 3 SEND DM | " PSUPF EQU 9 SEND SUPERVISORY F PSNCMDR EQU 4 SEND CMDR PSNDREJ EQU 6 SEND REJECT , PRETRAN EQU 1
0x4cfba0…4cfd34 (1, 1360) Dummy {f00=0x0184, f01=0x0190, f02=»COVERY x " PT2REC EQU 14 TIMER T2 RECOVERY ( PREOUTS EQU 15 RECOVER OUTSTANDING F 4 $ PREPPAR EQU 16 POWER ON,RECOVERY ` P EJECT P* P* CIO COMMANDS IN DATA-PHASE P* , PCIREPC EQU 0 RECEIVE ON PROGRAMM CHANNEL , PCIT4WP EQU
0x4cfd34…4cfec8 Dummy {f00=0x0184, f01=0x0190, f02=» PNOPDTE EQU 1 DTE NOT OP $ PNOFTDI EQU /FFFD COMPLEMENT MASK ( & PNHBUSY EQU /FFDF COMPLEMENT MASKK P P EJECT z P* P* PROCEDURES EQUATES P* $ P* FRAMES WITH POLL OR FINAL BIT P* PDMF EQU /1F REQUEST ON LINE
0x4cfec8…4d005c Dummy {f00=0x0184, f01=0x0190, f02=» ~ PRRPF EQU /11 RECEIVE READY " PIFRP EQU /10 INFORMATION FRAME * " PREJPF EQU /19 FRAME REJECTION P $ PCMDRF EQU /97 COMMAND REJECTION v P* & P* FRAMES WITHOUT POLL OR FINAL BIT P* & PUA EQU /63 UNNUMBERRED ACKNOWLEDGE PSA
0x4d005c…4d01f0 Dummy {f00=0x0184, f01=0x0190, f02=» z PIFR EQU 0 INFORMATION FRAME ! PREJ EQU 9 FRAME REJECTION ! , " PCMDR EQU /87 COMMAND REJECTION ! N PFFORM FORM 8,8,8,8,8,8,8,8 ! t * P FFORM SABM,DISC,DM,CMDR,UA,REJ,RNR,0 ! PFRAMET EQU *-2 ! P EJECT ! P* ! P* ADDRESS FIELDS DEFIN
0x4d01f0…4d0384 Dummy {f00=0x0184, f01=0x0190, f02=» SET ! PNPLFIN EQU /FFEF RESET " P* " * P* DUMMY DEFINITION " 4 P " N PDCTAB DATA 0 " V P " j P EJECT C:CTRL " r P " D P**************************************************************** " P* " @ P* DTETAB : THIS TABLE CONTAINS IN
0x4d0384…4d0518 Dummy {f00=0x0184, f01=0x0190, f02=»********* " Z P # PDTETAB EQU 0 # PCIOIN EQU DTETAB START INPUT # . $ PCIOOUT EQU DTETAB+2 START OUTPUT # R PINR EQU DTETAB+4 INPUT OCTET # z " POTR EQU DTETAB+6 OUTPUT OCTET # " PHLTIN EQU DTETAB+8 HALT INPUT # $ PHLTOUT EQU DTETAB+/A HALT OUTP
0x4d0518…4d06ac Dummy {f00=0x0184, f01=0x0190, f02=»TISTIC BUFFER # t P XIF $ P IFT MMUPAG=1 $ " . PDTESTB EQU /14 OFFSET TO STATISTIC BUFFER $ 8 P XIF $ j . PDTECHD EQU DTESTB+2 ADDR TO CHAIN-HEAD 0) $ v 0 PDTE:QD EQU DTECHD+2 DWT QUEUE-HEAD (DWTCHN) $ 2 PDTELAD EQU DTE:QD+2 LOC SYMB DTE-ADDR (DWTLA
0x4d06ac…4d0840 Dummy {f00=0x0184, f01=0x0190, f02=»ER QUEUE-HEAD $ r " PDTE:ST EQU DTE:QI+2 DTE STATUS % , PDTE:NC EQU DTE:ST+2 NO.OF. ACTIVE DWT'S % < $ PDTE:RY EQU DTE:NC+2 RETRY COUNT % l , PDTE:DF EQU DTE:RY+2 DATA/X21-PHASE FLAG % * PDTE:I3 EQU DTE:DF+2 INPUT REGISTER A3 % PDTE:I4 EQU DTE:I3+2 A4
0x4d0840…4d09d4 (1, 1361) Dummy {f00=0x0184, f01=0x0190, f02=» % j PDTE:O4 EQU DTE:O3+2 A4 & PDTE:O5 EQU DTE:O4+2 A5 & & PDTE:O6 EQU DTE:O5+2 A6 & D PDTE:O8 EQU DTE:O6+2 A8 & b ( PSTB:I EQU DTE:O8+20 INPUT STACK BASE & PSTB:O EQU STB:I+20 & * PDTEHWS EQU STB:O+2 DTE HARDWARE STATUS & 0 PDTENIC EQU DTEHWS+2
0x4d09d4…4d0b68 Dummy {f00=0x0184, f01=0x0190, f02=»QU POIREP+2 & PEXTREP EQU INSREP+2 ' P EJECT ' 0 P* ' > P* LINE CONTROL AREA : ' H P* TIMERS POINTERS ' f P* RETRY ' P* ' PDWTT1 EQU EXTREP+14 ' PDWTT2 EQU DWTT1+2 ' PFRMRTI EQU DWTT2+2 . ' PDWTTRY EQU FRM
0x4d0b68…4d0cfc Dummy {f00=0x0184, f01=0x018e, f02=»PROCEDURE COUNTERS ' P* ( ( PCPCNT EQU TRWRQ+2 CHECKPOINT NUMBER ( $ * PVSCNT EQU CPCNT+2 SEND STATE VARIABLE ( P " PVRCNT EQU VSCNT+2 REC. " " ( ~ * PNSCNT EQU VRCNT+2 SEND SEQUENCE NUMBER ( & PNRCNT EQU NSCNT+2 REC. " " ( PLNRCNT EQU N
0x4d0cfc…4d0e90 Dummy {f00=0x0184, f01=0x0190, f02=» PINTTRA EQU FLDISC+2 ) POUTPUT EQU INTTRA+2 ) PFLSABM EQU OUTPUT+2 ) < PDISSAB EQU FLSABM+2 ) X PWINDOW EQU DISSAB+2 ) t PLCOM EQU WINDOW+2 ) PRRFLG EQU LCOM+2 ) PSWITCH EQU RRFLG+2 ) PTESTCF EQU SWITCH+2 ) PBUFNUL EQU TESTC
0x4d0e90…4d1024 Dummy {f00=0x0184, f01=0x0190, f02=»TPOL+2 ) PADDR1 EQU FLGON+2 * PADDR2 EQU ADDR1+2 * ( PPWRON EQU ADDR2+2 * B P EJECT * P* * j & P* DATA LINK CONTROL OUTPUT BUFFER * t P* * PDLOBUF EQU PWRON+2 * PDCRBUF EQU DLOBUF+12 * PDTEID EQU DCRBUF+DLINK+2 * P IFT DCSTI
0x4d1024…4d11b8 Dummy {f00=0x0184, f01=0x0190, f02=»UNTERS * l . PDTECTA EQU DTEMIX+2 START OF COUNTER AREA + P XIF + @ P IFF DCSTIC=1 + L " PMIXST EQU 0 NO STAT. COUNTERS + b PDTECTA EQU DTEID + P XIF + P IFT MMUPAG=1 + P* + $ P* M M U W O R K - B U F F E R + P* + PMIXMIX EQU
0x4d11b8…4d134c Dummy {f00=0x0184, f01=0x0190, f02=»**** + ` 8 P* * , 8 P* PART 01 : * , H 8 P* ACTIVATIONS,BUFFER HANDLINGS * , 8 P* TIMERS AND QUEUES ROUTINES * , 8 P*
0x4d134c…4d14e0 Dummy {f00=0x0184, f01=0x0190, f02=»ST HANDLING , P* - P* P A R A M E T E R S: - P* - > P* A7 = ORDER - H P* - ^ POPN EQU /21 OPEN DTE - h PCLOS EQU /22 CLOSE DTE - PCACT EQU /24 CONNECT ACTIVE - PCPAS EQU /27 CONNECT PASSIVE - PDCON EQU /2F DISCONNECT -
0x4d14e0…4d1674 (1, 1362) Dummy {f00=0x0184, f01=0x0190, f02=»CS - p PSTIM EQU /39 SET TIMEOUT . P EJECT C:CTRL C:CTRL . * P . J B P************************************************************** . R P* . * P* D R I V E R A C T I V A T I O N . P* . $ P* CHECK IF CORRECT ORDER CODE . P* .
0x4d1674…4d1808 Dummy {f00=0x0184, f01=0x0190, f02=»********************************************************** . P / B PACT23 LDR A7,A7 / J P RF(Z) RSTAT READ STATUS / b P / P SUK A7,RECV / P RF(Z) DCRD RECEIVE (READ) / P / P SUK A7,SEND-RECV / P RF(Z) DCWR SEND (WRITE) / P /
0x4d1808…4d199c Dummy {f00=0x0184, f01=0x018e, f02=»CACT-CLOS / " P ABL(Z) ACTIVE CONNECT ACTIVE 0 P 0 8 P SUK A7,CPAS-CACT 0 @ " P ABL(Z) PASSIV CONNECT PASSIVE 0 Z P 0 P SUK A7,RSTI-CPAS 0 & P RF(Z) STICS READ/RESET STATISTICS 0 P 0 P SUK A7,DCON-RSTI 0 P ABL(Z) DISCON DISCONNECT
0x4d199c…4d1b30 Dummy {f00=0x0184, f01=0x0190, f02=» P EJECT 1 P* 1 P* READ FROM WORK TASKS 1 P* COMPLETED WHEN: 1 < P* STATUS CHANGE 1 V P* MESSAGE RECEPTION 1 n P* MESSAGE IN QUEUE 1 P* TIME-OUT 1 P* 1 H P*******************************************************************
0x4d1b30…4d1cc4 Dummy {f00=0x0184, f01=0x0190, f02=»R QUEUE 1 t P RF(NZ) DCRD10 NOT EMPTY 2 $ P CF A15,CONT01 CHECK DTE STATUS 2 0 P CF A15,STIME START TIMER 2 X PDCRTN ABL TDISP 2 z P* 2 P* BUFFER WAITING IN QUEUE 2 P* 2 PDCRD10 EQU * 2 P LDR* A2,A1 GET NEXT ONE 2 , P ST A2,DTE:Q
0x4d1cc4…4d1e58 Dummy {f00=0x0184, f01=0x0190, f02=»UFFER ADDRESS 2 P LDK A1,0 3 , P CF A15,DC:MIN MOVE DATA TO USER BUFFER 3 ( P SUK A4,6 3 X 2 P CF A15,RRBUF RELEASE BUFFER WHEN DC:MIN DON'T 3 j P RB DCRTN 3 P EJECT 3 P* 3 P* S E N D (WRITE) 3 P* COMPLETE WHEN: 3 6
0x4d1e58…4d1fec Dummy {f00=0x0184, f01=0x0190, f02=»N FAILURE 3 l P* 4 H P******************************************************************* 4 P 4 h PDCWR EQU * 4 p $ P CF A15,CONT01 CHECK DTE STATUS 4 P IFT MMUPAG=1 4 & P LD A1,ECBRL,A8 USER BUFFER LENGTH 4 P CWK A1,BUFLEN 4 & P RF(G) E
0x4d1fec…4d2180 Dummy {f00=0x0184, f01=0x018e, f02=»OF TRANSMIT POINTER 4 P* 5 P CF A15,INSWQ QUEUE REQUEST 5 & P LD A1,TRWRQ,A7 5 J P RF(NZ) DCWR1 5 b ( P ADK A6,DWTOPN GET DWT QUEUE POINTER 5 x $ P ST A6,TRWRQ,A7 TRANSMIT POINTER 5 P SUK A6,DWTOPN RESTORE A6 5 PDCWR1 EQU * 5 P LD A2
0x4d2180…4d2314 (1, 1363) Dummy {f00=0x0184, f01=0x0190, f02=» P AN A1,DTE:ST,A7 6 $ P ABL(NZ) TDISP FRMR-MODE - WAIT 6 P LDR A3,A7 6 D P LDKL A2,TRM 6 V & P CF A15,QMJOB QUEUE OUTPUT PROCESS 6 j P ABL TDISP 6 P EJECT 6 N P* * 6 N P*
0x4d2314…4d24a8 Dummy {f00=0x0184, f01=0x0190, f02=» * 6 X N P* GIVES APPLICATION ADDITIONAL S T A T U S - INFORMATION * 7 N P* INPUT PARAMETERS: * 7 l N P* *
0x4d24a8…4d263c Dummy {f00=0x0184, f01=0x0190, f02=» * 7 b N P* - ECBRL LENGTH OF APPL. BUFFER (IN OCTETS) * 8 $ N P* * 8 v N P*
0x4d263c…4d27d0 Dummy {f00=0x0184, f01=0x0190, f02=» * 8 l N P* - ECBEL NO. OF OCTETS OF STATUS-INFO RETURNED IN THE BUFFER * 9 . N P* * 9 P P* - ECBCW1 EXTENDED STATUS
0x4d27d0…4d2964 Dummy {f00=0x0184, f01=0x0190, f02=»************************************************** 9 x P : : PRSTAT EQU * : B P LD A7,DWTCHD,A6 : V * P RF(Z) RSTA20 DWT WAS NEVER CONNECTED : n P : , P LD A1,DTENIC,A7 NO. OF NETW.-INFO BYTES : 0 P ADK A1,4 ADD FOR HARDW STATUS & INFO COUNT : P
0x4d2964…4d2af8 Dummy {f00=0x0184, f01=0x0190, f02=»A7 : P LDK A4,DTEHWS ; , P ADR A4,A7 BUILD ADDR TO MOVE INFO FROM ; P EJECT ; P P ; ^ PRSTA10 EQU * ; f $ P ST A2,ECBCW1,A8 EXTENDED STATUS ; z P LDK A1,0 ; 4 P CF A15,DC:MIN MOVE STATUS-INFO TO APPL. BUFFER ; P ABL TDISP ; P ; PRS
0x4d2af8…4d2c8c Dummy {f00=0x0184, f01=0x0190, f02=» ; N P* * < N P* R E A D / R E S E T S T A T I S T I C S * < Z N P* * < N P* TRA
0x4d2c8c…4d2e20 Dummy {f00=0x0184, f01=0x0190, f02=» * < P N P* * = N P* - ECBBA POINTER TO APPL. BUFFER FOR RECEPTION OF STATISTICAL * = d N P* INFORMATION * = N P
0x4d2e20…4d2fb4 (1, 1364) Dummy {f00=0x0185, f01=0x0190, f02=»EVEN) * = Z N P* * > N P* - ECBCW1 CONTROL WORD (READ - READ/RESET) * > n N P*
0x4d2fb4…4d3148 Dummy {f00=0x0185, f01=0x0190, f02=» * > d N P* * ? & N P* - ECBEL LENGTH OF STATISTICAL INFO (IN OCTETS) * ? x N P*
0x4d3148…4d32dc Dummy {f00=0x0185, f01=0x0190, f02=»A1,DCSTIC ? & P RF(Z) E:REQ STATISTICS NOT IMPL. @ P IFT DCSTIC=1 @ < P LD A7,DWTCHD,A6 @ R ( P RF(Z) E:SEQ DWT WAS NEVER CONNECTED @ j " P CF A15,DCSRED READ STATISTICS @ P LDR A1,A1 @ * P RF(Z) STIC10 STATISTICS FOUND ALRIGHT @ P @ P ADK
0x4d32dc…4d3470 Dummy {f00=0x0185, f01=0x0190, f02=» * @ P LC A1,ECBCW1,A8 A P CCK A1,X'4300' A " 0 P RF(NE) STIC20 DON'T WANNA' RESET STATISTICS A : P CF A15,DCSRLL RESET'M A n P LDR A1,A1 A & P RF(NZ) E:REQ STATISTICS NOT SUPP. A P XIF A P* A PSTIC20 EQU * A P SUR A1,A1 A P CF
0x4d3470…4d3604 Dummy {f00=0x0185, f01=0x0190, f02=»***************************************************************** A P B J * PE:PCON EQU * PHYSICAL CONNECTION ERROR B R P LDK A1,R:PCON B P RF E:COMP B P B * PE:LCON EQU * LOGICAL CONNECTION ERROR B P LDK A1,R:LCON B P RF E:COMP B P B
0x4d3604…4d3798 Dummy {f00=0x0185, f01=0x0190, f02=»DK A1,R:SEQ B P RF E:COMP C P C & PE:TOUT EQU * REQUEST TIMEOUT C . P LDK A1,R:TOUT C R P RF E:COMP C h P C z PE:REQ EQU * REQUEST ERROR C P LDKL A1,R:REQ C P RF E:COMP C P EJECT C P* C ( P* COMBINED COMPLETION PARAMETERS
0x4d3798…4d392c Dummy {f00=0x0185, f01=0x0190, f02=» 6 P LDK A1,R:INFO+R:LCON LOGICAL CONN ERROR WITH INFO D P RF E:COMP D > P D P PE:COMP EQU * D X $ P CF A15,TENDIO COMPLETE REQUEST D l P ABL TDISP D P EJECT D N P* * D N P*
0x4d392c…4d3ac0 Dummy {f00=0x0185, f01=0x0190, f02=» * D X N P* SET A TIMEOUT-VALUE FOR THE DRIVER TO USE ON SUCCEDING REQUESTS * E N P* * E l N P*************************************************************************
0x4d3ac0…4d3c54 (1, 1365) Dummy {f00=0x0185, f01=0x018e, f02=»UEST E v P* F P* START REQUEST TIMER F P* F 4 PSTIME EQU * F > P LDR A1,A6 F R P LD A4,DWTRTV,A6 TIMER VALUE F d P RF(N) STIM20 NO TIMING F P ST A4,STIM10 F P CF A15,SETIME START TIMER F P DATA TIMOUT TIMEOUT ADDR F PSTIM10
0x4d3c54…4d3de8 Dummy {f00=0x0185, f01=0x0190, f02=» F P* REQUEST-TIMEOUT G P* G " PTIMOUT EQU * G , P LDR A6,A1 G @ P SUR A1,A1 G R P LD A7,DWTCHD,A6 G d & P CM DWTRTP,A6 CLEAR TIMER POINTER G | P LC A1,DWTOR+1,A6 G P SUK A1,RECV G P RB(Z) E:TOUT READ-TIMEOUT G P SUK A1,SEND-RECV
0x4d3de8…4d3f7c Dummy {f00=0x0185, f01=0x0190, f02=»OS10 CLOSE-TIMEOUT G P EJECT H P* H ( 0 P* REQUEST-TIMEOUT - CONNECT ACTIVE/PASSIVE H 2 P* H f P LD A1,DTE:ST,A7 H p P ANK A1,DTE:CP CALL IN PROGR H P RF(Z) TOUTC1 NO INC. CALL H " P CF A15,SPTIM START PROC TIMER H & P ABL TDISP WAIT TILL
0x4d3f7c…4d4110 Dummy {f00=0x0185, f01=0x0190, f02=»L QUEUE H d 0 P CF A15,RQ:DCT " " " DEVICE QUEUE I " P RB E:TOUT TIMEOUT COMPLETION I D P* I j P* REQUEST-TIMEOUT - WRITE I t P* I PTOUTWR EQU * I & P LD A1,TRWRQ,A7 LOOK AT TRANSM. Q I P RF(Z) TOUTW2 NOONE IN THERE I PTOUT
0x4d4110…4d42a4 Dummy {f00=0x0185, f01=0x0190, f02=» RB(NZ) TOUTW1 TRANSM. Q NOT EMPTY YET I PTOUTW2 EQU * J . 2 P CF A15,STIME WAIT FOR ACK - RESTART REQ TIMER J B P ABL TDISP DO WHATEVER J x PTOUTW3 EQU * J 2 P CF A15,REMOVW REMOVE DWT FROM WRITE-REQ QUEUE J . P CF A15,REM:TR " " " TRANSMIT
0x4d42a4…4d4438 Dummy {f00=0x0185, f01=0x0190, f02=»CLEAR OPEN-IN-PROGR FLAG J P RB E:PCON K P EJECT K 2 P* K @ P* CLEAR REQUEST TIMER K J P* K h PCTIME EQU * K r " P LD A2,DWTRTP,A6 TIMER POINTER K P RF(Z) CTIM10 NOT RUNNING K P LDR* A2,A2 REMAINING TIME K P CM* DWTRTP,A6 STOP TIME
0x4d4438…4d45cc Dummy {f00=0x0185, f01=0x018e, f02=» ADKL A15,4 K P LD A7,DWTCHD,A6 L P RF(Z) CONT02 OPEN NOT MADE L , P LDK A1,DTE:S L P P LD A2,DTE:ST,A7 L f P ANR A1,A2 L ~ $ P RF(Z) CONT02 ORDER NON ALLOWED L P LD A1,DWTST,A6 L P ANK A1,DS:C L & P ABR(NZ)* A15 DWT CONNECTION OPEN L
0x4d45cc…4d4760 Dummy {f00=0x0185, f01=0x0190, f02=» $ PGRBUF LDK A2,DCRBUF RECEIVE BUF M P ADR A2,A7 M , P INH M > P LDR* A4,A2 M J P RF(Z) GBUF10 NO BUFFER FREE M ^ " P LDR* A3,A4 REMOVE FROM CHAIN M P STR A3,A2 M PGBUF10 EQU * M P ADKL A15,4 ADJUST STACK M P ABR* A15 M P* M
0x4d4760…4d48f4 (1, 1366) Dummy {f00=0x0185, f01=0x0190, f02=»RBUF10 EQU * M P LDR* A3,A2 N P RF(Z) RBUF20 N ( P LDR A2,A3 N > P RB RBUF10 N P PRBUF20 EQU * N b P STR A4,A2 N v P CMR A4 N P RB GBUF10 N P EJECT N P* N $ P* QUEUE ALLOCATE RECEIVE BUFFER N P* N PQRBUF EQU * N P
0x4d48f4…4d4a88 Dummy {f00=0x0185, f01=0x0190, f02=» QUEUE N | " P CMR A4 INDICATE END OF QUEUE O P RTN A5 O 4 P EJECT O D P* O R ( P* INSERT DWT IN WRITE REQUEST QUEUE O P* O PINSWQ EQU * O " P LDK A2,DCWRQ GET QUEUE ANCHOR O P ADR A2,A7 O P LDK A4,DWTOPN O PINSWQ2 LDR* A3,A2 O
0x4d4a88…4d4c1c Dummy {f00=0x0185, f01=0x0190, f02=» " P CMR A4 INDICATE END OF QUEUE P PINSWQ4 ADKL A15,4 P * P ABR* A15 RETURN P D P EJECT P P* P j * P* REMOVE DWT FROM WRITE REQUEST QUEUE P t P* P ( PREMOVW LDK A2,DCWRQ GET QUEUE ANCHOR P P ADR A2,A7 P 2 PREM05 LDK A4,DWTOPN GET DWT-LI
0x4d4c1c…4d4db0 Dummy {f00=0x0185, f01=0x0190, f02=»15 P P LDR A2,A3 GET NEXT Q P RB REM10 Q & PREM15 LDR* A3,A4 REMOVE Q 8 P STR A3,A2 Q X P RB INSWQ4 RETURN Q j P* Q & P* REMOVE DWT FROM TRANSMIT QUEUE Q P* Q P Q , PREM:TR LDK A2,TRWRQ TRANSMIT QUEUE BSSE Q P ADR A2,A7 Q
0x4d4db0…4d4f44 Dummy {f00=0x0185, f01=0x0190, f02=»*********************** Q PABORT EQU * R P LD A1,DWTST,A6 R 4 ( P RF(N) ABOR30 NO OUTSTANDING REQUEST R L P LD A7,DWTCHD,A6 R x P LD A1,DWTOR,A6 R P ANK A1,/FF MASK ORDER R P SUK A1,RECV R P RF(Z) ABOR10 READ REQ. R P R P SUK A
0x4d4f44…4d50d8 Dummy {f00=0x0185, f01=0x018e, f02=»F(NZ) ABOR40 TOO LATE - CALL ON IT'S WAY R 4 P CF A15,RQ:WCL CLEAR FROM "WAIT-FOR-CALL" QUEUE S 0 P RF ABOR20 S h P S z PABOR10 EQU * S P LD A1,TESTCF,A7 S 0 P RF(NZ) ABOR40 TOO LATE - FRAME ON IT'S WAY S P S PABOR20 EQU * S P LD A1,DWT
0x4d50d8…4d526c Dummy {f00=0x0185, f01=0x0190, f02=» S P LDKL A1,R:ABT T P ABL DISEND COMPLETE ABORT T PABOR40 EQU * T @ & P CM DWTWAT,A6 CLEAR WAIT INDICATOR T T " P ABL LKMRQE LKM REQUEST ERRROR T ~ P EJECT T P* T 8 P**************************************************** T 8 P*
0x4d526c…4d5400 Dummy {f00=0x0185, f01=0x0190, f02=»ANDLING * T p 8 P* CORRESPONDING ACTIONS * U 8 P* * U X 8 P**************************************************** U P* U P EJECT U P* U " P* HDLC BALANCED INPUT
0x4d5400…4d5594 (1, 1367) Dummy {f00=0x0185, f01=0x0190, f02=» P CF A5,RDFRAM READ ONE FRAME V P RB(NZ) BRM INVALID FRAME V ( P* V J P* MODES DISTINCTION V T P* V p P IFT DCSTIC=1 V z $ P LD A2,FIELD1,A7 A- AND C-FIELDS V P RB(Z) BRM V , P ANK A2,/EF KEEP C-FIELD WITHOUT P/F-BIT V P LDKL A1,-7 V
0x4d5594…4d5728 Dummy {f00=0x0185, f01=0x0190, f02=»MATCH - LOOK AT NEXT V ~ P W . P ADK A1,/1D ADD UP TO DISPL OF THIS FRAME W $ ( P CF A15,DCSUPR UPDATE FRAME COUNTER W V P SLA A1,1 W P LD A1,DCSERT,A1 W * P ORS A1,DTE:ST,A7 SAVE EV. ERROR IND. W P EJECT W P W PBRM003 EQU * W P XIF
0x4d5728…4d58bc Dummy {f00=0x0185, f01=0x0190, f02=»ANCED INITIED W ~ P LD A3,DTE:ST,A7 X P ANK A3,DTE:FR X . & P RF(NZ) DISCX3 FRAME REJECTED MODE X D P EJECT X n P* X | P* HERE DISCONNECT MODE X P* X P ANK A1,/FF X P ANK A2,/FF X P LC A3,FIELD1,A7 X P ANK A3,/FF X P CW A3
0x4d58bc…4d5a50 Dummy {f00=0x0185, f01=0x0190, f02=»Z) SENDDM DISC RECEIVED X P RB BRM Y P* Y 0 $ P* TEST FOR UA WHEN LINK INITIED Y : P* Y b PBRM01 EQU * Y l P CW A3,ADDR2,A7 RESPONSE ? Y P RB(NE) BRM Y P SUK A1,UAF Y P RB(NE) BRM Y P CF A15,RESTIZ RESET TIMERS Y P LDK A
0x4d5a50…4d5be4 Dummy {f00=0x0185, f01=0x0190, f02=»JECT Y P* Z . P* SELECT PROPER ANSWER IN DISCONNECT MODE Z P* Z H PSENDUA EQU * Z R * P IM DISSAB,A7 SABM IN DISCONNECT MODE Z f PSENDU1 EQU * Z P IM PFFLAG,A7 Z P LDK A1,SNDDM Z P LD A2,FLDISC,A7 DISC SENT ? Z P RF(NZ) BRM05 YE
0x4d5be4…4d5d78 Dummy {f00=0x0185, f01=0x0190, f02=» P IM PFFLAG,A7 [ P LDK A1,SNDDM [ P RB BRM05 [ 0 PSENDU2 EQU * [ B P LDK A2,DTE:S CONNECT MODE [ V P ORS A2,DTE:ST,A7 IN DTE TAB [ x P LDK A2,DTE:FR+DTE:OB . [ P C1R A2,A2 [ 2 P ANS A2,DTE:ST,A7 RESET FRMR MODE & PRIM BUSY [ P RB
0x4d5d78…4d5f0c Dummy {f00=0x0185, f01=0x0190, f02=» ANK A1,/FF [ P CW A1,ADDR1,A7 COMMAND ? P RF(NE) DISCX4 NO 6 P LC A1,FIELD1+1,A7 P P ANK A1,/FF j 4 P CWK A1,SABMP SABM IS THE ONLY ACCEPTED COMMAND ~ P RB(E) SENDU2 P RF CMDRYY INVALID FRAME PDISCX4 EQU * P CW A1,A
0x4d5f0c…4d60a0 Dummy {f00=0x0185, f01=0x0190, f02=»A, READ AGAIN P LDK A2,DTE:S ] & P ORS A2,DTE:ST,A7 SET CONNECT MODE ] , P LDK A2,DTE:FR ] V P C1R A2,A2 ] l & P ANS A2,DTE:ST,A7 RESET FRMR MODE ] ~ ( P CF A15,RESTFR RESET FRMR MODE TIMER ] & P CF A15,RESTIZ RESET T1/T2- TIMER ] P LD A1,DCW
0x4d60a0…4d6234 (1, 1368) Dummy {f00=0x0186, f01=0x0190, f02=» ] P ABL SECMDR SEND CMDR ^ P EJECT ^ & P* ^ 4 P* HERE BALANCED MODE ^ > P* ^ Z PBRM010 EQU * ^ d & P LC A1,FIELD1,A7 GET ADDRESS FIELD ^ x P ANK A1,/FF ^ P* ^ & P* DIFFERENTIATE COMMANDS,RESPONSES ^ P* ^ P CW A1,ADDR1,A7 COMM
0x4d6234…4d63c8 Dummy {f00=0x0186, f01=0x0190, f02=» ( P LC A1,FIELD1+1,A7 GET CONTROL FIELD _ P ANK A1,/FF _ 0 P CWK A1,UAF _ D P RF(NE) BRM030 _ X P* _ n P* UA RECEIVED _ x P* _ P CF A15,RESTIZ _ P LD A1,FLDISC,A7 DISC SENT ? _ P RF(Z) BRM020 _ P CM FLDISC,A7 YES _ PBRM015
0x4d63c8…4d655c Dummy {f00=0x0186, f01=0x018e, f02=»E:ST,A7 _ P CM FLSABM,A7 ` P RF BRMX ` & PBRM030 EQU * ` 6 P CWK A1,DMF ` J P RF(NE) BRM040 ` ^ P* ` t P* DM RECEIVED ` ~ P* ` P CF A15,RESTIZ ` P RB BRM015 ` PBRM040 EQU * ` P CWK A1,CMDRF ` P RF(E) RECOV ` P CWK
0x4d655c…4d66f0 Dummy {f00=0x0186, f01=0x0190, f02=» * P* RR,RNR,REJ WITH OPTIONAL F-BIT a P* ELSE SEND CMDR a 2 P* a R ( P LC A1,FIELD1+1,A7 GET CONTROL FIELD a ( P ANK A1,/F IGNORE COUNTERS AND F-BIT a P CWK A1,RNR a " P RF(E) RERNR RNR AS A RESPONSE a P CWK A1,REJ a $ P RF(E)
0x4d66f0…4d6884 Dummy {f00=0x0186, f01=0x0190, f02=»RMX a P ABL SECMDR INVALID ANSWER b P EJECT b . P* b < * P* RR (RECEIVE READY RESPONSE DETECTED) b F P* b t PRERR EQU * b ~ " P CF A5,UPDCON UPDATE COUNTERS b P CF A5,TSTNR CMDR? b P LD A1,DTE:ST,A7 GET STATUS b P ANK A1,DTE:OB PRIMA
0x4d6884…4d6a18 Dummy {f00=0x0186, f01=0x0190, f02=»* b PRERR1 EQU * c P LDK A1,REOUTS c P RF BRM055 c 4 P* c F " P* HERE TO RESET BUSY CONDITION c P P* c v PBRM050 EQU * c P XRS A1,DTE:ST,A7 c P LDK A1,REBUSY c P EJECT c P* c 0 P* DISPATCH QMJOB EITHER WAIT END OF OUTPUT
0x4d6a18…4d6bac Dummy {f00=0x0186, f01=0x0190, f02=»H IT c x P LDR A3,A7 SAVE DWT d P CF A15,QMJOB d ( P RF BRMX d > , PBRM057 CF A15,INIREP INIT STACK REPRISE d N P RF BRMX d ~ P EJECT d P* d 0 P* RNR (RECEIVE NOT READY RESPONSE) DETECTED d P* d PRERNR EQU * d " P CF A5,UPDCON UP
0x4d6bac…4d6d40 Dummy {f00=0x0186, f01=0x018e, f02=» DELAY d x & PBRMX ABL BRM RETURN INPUT PROCESS e P EJECT e 8 " P ABL BRM RETURN INPUT PROCESS e F P* e l , P* REJ (REJECTED FRAME RESPONSE) DETECTED e v P* e PREREJ EQU * e " P CF A5,UPDCON UPDATE COUNTERS e P CF A5,TSTNR CMDR ? e * P C
0x4d6d40…4d6ed4 (1, 1369) Dummy {f00=0x0186, f01=0x0190, f02=» P LDK A1,1 NO f * P ST A1,INTTRA,A7 INTERRUPT TRANSMITTER f P LDK A1,RECREJ RECOVER f F $ P RB BRM055 RETURN INPUT PROCESS f d P EJECT f P* f 8 P* CMDR (NON VALID FRAME FORMAT DETECTED AS RESPONSE) f $ P* ABM REINITIALISATION f P
0x4d6ed4…4d7068 Dummy {f00=0x0186, f01=0x018e, f02=»T FRMR MODE f | P LDK A2,DTE:S g P C1R A2,A2 g * $ P ANS A2,DTE:ST,A7 RESET CONNECT g < PINIABM EQU * g d P CF A5,RESCON RESET COUNTERS g x P CF A15,RESTIZ RESET TIMERS g P LDK A1,SSABM RECOVER g P RB BRM055 g P* g & P* SEND DISCON
0x4d7068…4d71fc Dummy {f00=0x0186, f01=0x018e, f02=» g n P EJECT h P* h P* THIS FRAME IS A COMMAND h P* h B PPGCOM EQU * h L ( P LC A1,FIELD1+1,A7 GET CONTROL FIELD h ` $ P ANKL A1,NPLFIN IGNORE POLL BIT h P CWK A1,SABM h P RF(NE) BRM080 NO h P* h P* SABM RECEIVED h P* h
0x4d71fc…4d7390 Dummy {f00=0x0186, f01=0x0190, f02=» P LDK A1,SNDDM i & P LD A2,FLDISC,A7 DISCONNECT SENT ? i P RF(NZ) BRM070 YES SEND DM i D P LDK A1,SNDUA NO,SEND UA i f P LDK A2,DTE:S CONNECT MODE i P ORS A2,DTE:ST,A7 IN DTE TAB i P RB BRM055 INPUT PROCESSING i P* i PBRM070 EQU * i
0x4d7390…4d7524 Dummy {f00=0x0186, f01=0x0190, f02=»IVED i ~ P* j $ P IM PFFLAG,A7 INIT POLL BIT FLAG j P CF A15,RESTIZ RESET TIMERS j > P LDK A1,SNDUA j b P LD A3,FLSABM,A7 SABM SENT j x P RF(Z) BRM090 NO,OK j P LDK A1,SNDDM YES,SEND DM j P RB BRM055 j PBRM090 EQU * j & P LD A2,FLD
0x4d7524…4d76b8 Dummy {f00=0x0186, f01=0x0190, f02=»CATE DISCONNECT j z PBRM095 EQU * k P LDK A2,1 k , * P ST A2,INTTRA,A7 INTERRUPT TRANSMITTER k > P RB BRM055 INPUT PROCESSING k l P EJECT k P* k P* RR,RNR OR I-FRAME ? k P* k PBRM100 EQU * k ( P ANK A1,/F IGNORE COUNTERS AND P-BIT
0x4d76b8…4d784c Dummy {f00=0x0186, f01=0x0190, f02=»Z) IFRAME k P* l & P* THIS FRAME IS AN ILLEGAL COMMAND l P* SEND CMDR l F P* l ^ P ABL SECMDR l h P EJECT l | P* l P* RNR COMMAND DETECTED l P* l PCORNR EQU * l " P CF A5,UPDCON UPDATE COUNTERS l P CF A5,TSTNR CMDR
0x4d784c…4d79e0 Dummy {f00=0x0186, f01=0x0190, f02=»ET C-FIELD l | P ANKL A1,POLFIN P-BIT SET ? m P RB(Z) BRMX NO m 6 . P LDK A1,SUPF YES,FORCE RESPONSE WITH F-BIT m L $ P ABL BRM055 RETURN INPUT PROCESS m ~ P EJECT m P* m P* RR COMMAND DETECTED m P* m PCORR EQU * m " P CF A5,UPDCON UP
0x4d79e0…4d7b74 (1, 1370) Dummy {f00=0x0186, f01=0x018e, f02=»M COMFLG,A7 COMMAND FLAG m P ABL BRM050 n PCORR1 EQU * n 4 P LC A2,FIELD1+1,A7 n H P ANK A2,POLFIN POLL-BIT ? n b P RF(Z) BRMXX NO n P LDK A1,1 n P ST A1,INTTRA,A7 n P LD A1,WINDOW,A7 n P RF(NZ) CORR3 RECOVER WINDOW n PCORR2
0x4d7b74…4d7d08 Dummy {f00=0x0186, f01=0x0190, f02=» P ABL RERR1 o P EJECT o P* o $ P* I-FRAME RECEIVED o . P* o H PIFRAME EQU * o R P IFT DCSTIC=1 o f P LDK A1,CSBRIF o | * P CF A15,DCSUPR UPDATE NO. OF I-FRAMES o P SLA A1,1 o P LD A1,DCSERT,A1 o ( P ORS A1,DTE:ST,A7 SAVE EV ERRO
0x4d7d08…4d7e9c Dummy {f00=0x0186, f01=0x0190, f02=»AME o p P* p P LD A1,BUFNUL,A7 p * P RF(Z) IFRA10 AT LEAST ONE BUFFER FREE p . P IFT DCSTIC=1 p P LDK A1,CSBRBY p r $ P CF A15,DCSUPR COUNT BUFFER BUSY p P SLA A1,1 p P LD A1,DCSERT,A1 p * P ORS A1,DTE:ST,A7 SAVE EV. ERROR IND. p P
0x4d7e9c…4d8030 Dummy {f00=0x0186, f01=0x0190, f02=»ECTED N(S) p t P ANK A1,1 N(S) OK? q P RF(NZ) COMP10 q , P CF A5,TSTNR N(R) OK? q B & P CF A15,GRBUF YES ALLOCATE BUFFER q ` P* q & P* COMPLETE READ REQUEST IF ANY ON q P* q P LDR A6,A7 q PIFRA20 EQU * q * P LD A6,DWTCHN,A6 GET NEXT
0x4d8030…4d81c4 Dummy {f00=0x0186, f01=0x0190, f02=» TRY NEXT DWT q v P SUR A1,A1 r " P LC A1,DWTOR+1,A6 WHAT ORDER ? r ( P SUK A1,RECV r N , P RB(NZ) IFRA20 NO READING - TRY NEXT DWT r b P* r P* OK,PROCESS DATA TO USER r P* r $ P LD A8,DWTECB,A6 GET ECB ADDRESS r P LD A1,+2,A4 GET LENGTH
0x4d81c4…4d8358 Dummy {f00=0x0186, f01=0x0190, f02=»UFFER USER r v P SUK A4,6 s 8 P CF A15,RRBUF RELEASE REC BUFFER WHEN DC:MIN DOESN'T s & P RF COMP30 s b P* s t P* FRAME OUT OF SEQUENCE s ~ P* s PCOMP10 EQU * s " P LC A1,FIELD1+1,A7 GET C-FIELD s " P ANKL A1,POLFIN POLL-BIT SET ? s P
0x4d8358…4d84ec Dummy {f00=0x0186, f01=0x0190, f02=»DK A1,SNDREJ s P RF BRM55X t P EJECT t & P* t 4 P* t > ( P* NO REQUEST ON,QUEUE INPUT MESSAGE t H P* t t PCOMP20 EQU * t ~ * P LDK A2,DTE:QI GET PROPER QUEUE ANCHOR t P ADR A2,A7 t P LC A1,+6,A4 GET TC IDENT t P ANK A1,/FF t P
0x4d84ec…4d8680 Dummy {f00=0x0186, f01=0x0190, f02=»ULL DUPLEX SITUATION t P* u PCOMP30 EQU * u & P LD A1,OUTPUT,A7 u : P RF(Z) COMP35 HALF DUPLEX u R P LD A1,INSREP,A7 u t P CW A1,EXTREP,A7 u ( P RF(E) COMP35 FULL DUPLEX ONE FRAME u PBRMXX EQU * u ( P ABL BRM FULL DUPLEX SEVERAL FRAMES
0x4d8680…4d8814 (1, 1371) Dummy {f00=0x0186, f01=0x0190, f02=» u PBRM55X EQU * v P ABL BRM055 PROCESS INPUT v PCOMP40 EQU * v > P LDK A1,1 v R $ P ST A1,INTTRA,A7 INHIBIT OUTPUT v d P LDK A1,IFP v P RB BRM55X PROCESS INPUT v P EJECT v P* v . P* INIT OUTPUT PROCESS WHEN WRITE GOING ON v
0x4d8814…4d89a8 Dummy {f00=0x0186, f01=0x0190, f02=»* A2,A1 v P CWK A2,/FFFF w P RF(NE) INIRE1 w & $ P LD A1,POIREP,A7 RESTART POINTER w < PINIRE1 EQU * w d P ST A1,INSREP,A7 w x P RTN A15 w P EJECT w P* w 6 P************************************************** w 6 P*
0x4d89a8…4d8b3c Dummy {f00=0x0186, f01=0x0190, f02=» * w f 6 P* INPUT PROCESS * x 6 P* * x J 6 P************************************************** x P* x P EJECT x P* x * P* TEST RECEIVE COUNTER (NR) VALIDITY x
0x4d8b3c…4d8cd0 Dummy {f00=0x0186, f01=0x0190, f02=» x P* y P* INIT CMDR PARAMETERS y P* y 2 PTSTNRX EQU * y < P CM STATUS,A7 RESORE STATUS y P P LD A1,VSCNT,A7 y t P SLL A1,4 y P LD A2,VRCNT,A7 y & P ORR A2,A1 PRESENT COUNTERS IN A2 y P LDK A3,/10 FAIL CODE y P CF A5,PRC
0x4d8cd0…4d8e64 Dummy {f00=0x0186, f01=0x018e, f02=» $ P LDK A1,CMDRF LOAD CMDR + F-BIT z & P LDK A4,DLOBUF GET BUFFER ADDRESS z , P ADR A4,A7 z V P ADK A4,1 z h P SCR A1,A4 STORE C-FIELD z z 2 P LC A1,FIELD1+1,A7 GET WRONG RECEIVED C-FIELD z P ADK A4,1 z P SCR A1,A4 STORE IT z P ADK A4,1
0x4d8e64…4d8ff8 Dummy {f00=0x0186, f01=0x018e, f02=» z p P ANKL A1,POLFIN P-BIT? { P RF(Z) PRCMD0 NO { & " P IM PFFLAG,A7 YES,SET P-F FLAG { > PPRCMD0 EQU * { d P RTN A5 { x P* { . P* INIT CMDR PARAMETERS WHEN INVALID FRAME { P* { PSECMDR EQU * { P LD A1,VSCNT,A7 { P SLL A1,4 {
0x4d8ff8…4d918c Dummy {f00=0x0186, f01=0x0190, f02=» P* | PCMDRXX EQU * | P LDK A1,DTE:FR . | " P AN A1,DTE:ST,A7 . | : ( P RF(NZ) CMDRXY FRMR MODE ALREADY SET | T P LDK A1,DTE:FR | $ P ORS A1,DTE:ST,A7 INIT FRMR MODE | & P CF A15,RESTIZ RESET T1/T2- TIMER | , P CF A5,FRTIME SET TIMEOUT FOR FR
0x4d918c…4d9320 Dummy {f00=0x0186, f01=0x0190, f02=» P ST A1,INTTRA,A7 } P LDK A1,SNCMDR } P RB BRM55X } 2 P EJECT } D P* } R P* RESET PROCEDURE COUNTERS } P* } PRESCON EQU * } P CM VSCNT,A7 SEND VARIABLE } P CM VRCNT,A7 REC. " } * P CM LNRCNT,A7 =RV(S) LAST ACKNOWLEDGED }
0x4d9320…4d94b4 (1, 1372) Dummy {f00=0x0187, f01=0x0190, f02=»NTERS } | P* RESET TIMERS ~ P* RECOVER ~ , P* ~ F PUPDCON EQU * ~ P " P LC A1,FIELD1+1,A7 GET C-FIELD ~ d P LDR A2,A1 SAVE IT ~ P ANK A2,1 ~ & P RF(NZ) UPD020 NOT I-FRAME,NO N(S) ~ P LDR A2,A1 ~ P SRL A2,1 ~ P ANK
0x4d94b4…4d9648 Dummy {f00=0x0187, f01=0x0190, f02=»US ~ t $ P IM VRCNT,A7 INCREMENT VARIABLE P LDK A2,7 2 P ANS A2,VRCNT,A7 MODULO 7 D P RF UPD020 f PUPD010 EQU * x P LDK A2,1 * P ORS A2,STATUS,A7 INDICATE WRONG N(S) PUPD020 EQU * P LDR A2,A1 GET C-FIELD P SRL A2,5
0x4d9648…4d97dc Dummy {f00=0x0187, f01=0x0190, f02=»RORS x P* P ST A2,NRCNT,A7 P CW A2,LNRCNT,A7 . ( P RF(E) UPD150 SE IF RESEND LAST ONE F P LD A6,DCWRQ,A7 r P RF(Z) UPD200 NOBODY IN Q ? P SUK A6,DWTOPN * P LD A3,DWTFRN,A6 FIRST TO GET "ACKED" P LD A4,VSCNT,A7
0x4d97dc…4d9970 Dummy {f00=0x0187, f01=0x0190, f02=»Z <=Y n P* 0 P* USE THIS ALGORITHM TO TEST N(R) VALIDITY P* L P CWR A3,A4 V P RF(G) UPD030 h P RF(L) UPD040 ~ P CWR A3,A2 P RF(NE) UPD200 N(R) FAULT P RF(E) UPD050 OK PUPD030 EQU * P CWR A2,A3 P R
0x4d9970…4d9b04 Dummy {f00=0x0187, f01=0x0190, f02=»0 OK P RF(NE) UPD200 N(R) FAULT PUPD040 EQU * . P CWR A2,A3 B P RF(E) UPD050 OK T P CWR A2,A4 l P RF(E) UPD050 OK ~ P CWR A2,A3 P RF(L) UPD200 N(R) FAULT P CWR A2,A4 P RF(G) UPD200 N(R) FAULT P EJECT P
0x4d9b04…4d9c98 Dummy {f00=0x0187, f01=0x0190, f02=» r P ST A2,LNRCNT,A7 P LD A6,DCWRQ,A7 $ P RF(Z) UPD055 NOONE IN WRITE Q. 8 PUPD052 EQU * ` P SUK A6,DWTOPN t & P CF A5,CWRITE UPDATE OUTPUT QUEUE P LD A3,DWTFRN,A6 4 P CW A3,NRCNT,A7 SOME OTHER TO BE ACKNOWLEDGED ? P RF(
0x4d9c98…4d9e2c Dummy {f00=0x0187, f01=0x0190, f02=»NRCNT,A7 LAST N(R) P CF A15,RESTIX RESET TIMERS PUPD056 EQU * > P LD A6,DTE:QD,A7 R " P SUK A6,DWTCHN FIRST DWT IN Q j P RTN A5 PUPD057 EQU * P LD A1,DTE:ST,A7 GET STATUS & P ANK A1,DTE:OB OUTSTANDING BUSY ? P RB(Z)
0x4d9e2c…4d9fc0 Dummy {f00=0x0187, f01=0x0190, f02=» KEEP ON RECOVERY TIMER PUPD060 EQU * " P LD A6,DWTOPN,A6 GET NEXT DWT 4 " P RB(Z) UPD055 END OF WRITE Q. Z $ P RB UPD052 COMPLETE THIS DWT TOO PUPD150 EQU * P LD A1,CPCNT,A7 P CW A1,LNRCNT,A7 " P RB(E) UPD057 NO TRANSMISSIO
0x4d9fc0…4da154 (1, 1373) Dummy {f00=0x0187, f01=0x0190, f02=»RETRANSMIT IF NOT RNR P* AND IF P/F RECOVERY OK P* @ P LC A1,FIELD1,A7 J P ANK A1,/FF b P CW A1,ADDR1,A7 COMMAND ? v P RB(E) UPD056 YES NO ACTION P LC A1,FIELD1+1,A7 P ANK A1,/F P CWK A1,RNR RNR ? P RB(E)
0x4da154…4da2e8 Dummy {f00=0x0187, f01=0x018e, f02=»IN ( P RB(Z) UPD056 NO FINAL BIT,NO ACTION PUPD170 EQU * 6 $ P CF A15,RESTIZ RESET TIMER T1-T2 J P LDK A1,RETRAN r P ST A2,VSCNT,A7 P LDK A2,1 P ST A2,INTTRA,A7 P ABL BRM055 PROCESS INPUT P EJECT P* P* IN
0x4da2e8…4da47c Dummy {f00=0x0187, f01=0x0190, f02=» $ P* WRITE REQUEST TO BE COMPLETED " P* WHEN PROPER N(R) RECEIVED , P* R PCWRITE EQU * $ P LD A8,DWTECB,A6 GET ECB ADDRESS p P LD A2,DWTST,A6 P RF(N) CWR100 NO REQUEST P SUR A1,A1 P LC A1,DWTOR+1,A6 ORDER P SUK A
0x4da47c…4da610 Dummy {f00=0x0187, f01=0x0190, f02=»FROM WRITE QUEUE z P CF A15,CTIME P RTN A5 . P* > P EJECT H P* V 8 P*************************************************** ` 8 P* * 8 P* PART 04 :
0x4da610…4da7a4 Dummy {f00=0x0187, f01=0x0190, f02=» PROCESS * 8 P* * 8 8 P*************************************************** t P* P EJECT P* & P* DISPATCHING OF RELEVANT ACTIONS $ P* ENTRY
0x4da7a4…4da938 Dummy {f00=0x0187, f01=0x0190, f02=»E OPPOSIT CASE j P* P* PTRM EQU * * P INH < P LDR A7,A3 H ( P LD A6,DTE:QD,A7 GET FIRST DWT IN Q. Z P SUK A6,DWTCHN PTRMXX2 EQU * $ P LD A2,FLGON,A7 COULD BE REPRISE P RF(Z) TRMX01 NO P CWK A1,REPPAR ( P R
0x4da938…4daacc Dummy {f00=0x0187, f01=0x018e, f02=» P EJECT P PTRMX01 EQU * P CM INTTRA,A7 2 ( P LDK A5,STB:O LOAD OUTPUT STACK BASE H P ADR A5,A7 t P LDR A2,A1 P IFT DCSTIC=1 P LDK A1,CSBTIF P LDR A2,A2 " P RF(Z) TRMX02 I-FRAME TO SEND P LDR A1,A2
0x4daacc…4dac60 Dummy {f00=0x0187, f01=0x0190, f02=» ( P CF A15,DCSUPR UPDATE FRAME COUNTER P SLA A1,1 0 P LD A1,DCSERT,A1 B * P ORS A1,DTE:ST,A7 SAVE EV. ERROR IND. Z P EJECT PTRMX03 EQU * $ P LDR A1,A2 TYPE OF FRAME TO SEND P XIF P RF(Z) TRM000 0= I-FRAME P P S
0x4dac60…4dadf4 (1, 1374) Dummy {f00=0x0187, f01=0x0190, f02=»TRM060 3= DM P P SUK A1,1 P ABL(Z) TRM080 4= CMDR . P L P SUK A1,1 T P ABL(Z) TRM050 5= UA f P P SUK A1,1 P ABL(Z) TRM090 6= REJ P P SUK A1,1 P ABL(Z) TRM010 7= RRP P P SUK A1,1
0x4dadf4…4daf88 Dummy {f00=0x0187, f01=0x0190, f02=»TRM100 10= RETRANSMIT P SUK A1,1 P ABL(Z) TRM110 11= BUSY 0 P SUK A1,1 P & P ABL(Z) TRM120 12= REJECT RECOVER b P SUK A1,1 P ABL(Z) TRM130 13= T1 P SUK A1,1 P ABL(Z) TRM140 14= T2 P SUK A1,1 P ABL(Z) TR
0x4daf88…4db11c Dummy {f00=0x0187, f01=0x018e, f02=»DISP DISPATCHER AFTER EXIT FOR TASK PZEXIT EQU * , P MSR 8,A15 SAVE 8 REGISTERS @ P LD A5,PRUN d P CF A15,EXIT EXIT FOR QMJOB x P CM PRUN P MLR 8,A15 RESTORE REGISTERS P RTN A15 P EJECT P* * P* HERE TO SEND
0x4db11c…4db2b0 Dummy {f00=0x0187, f01=0x0190, f02=» n " P ANK A1,DTE:OB PRIMARY BUSY ? " P ABL(NZ) XTDISP YES DONT WRITE . P LD A1,WINDOW,A7 T & P ABL(NZ) XTDISP WINDOWSIZE OVERLOW l P* * P* BEFORE TRANSMIT CONTROL WINDOWSIZE P* P* USE FOLLOWING ALGORITHM . P* RV(S) <= V
0x4db2b0…4db444 Dummy {f00=0x0187, f01=0x0190, f02=»V(S)+K-7 : P* PTRMX05 EQU * * P LD A1,LNRCNT,A7 GET LAST ACKNOWLEDGED 2 " P ADK A1,MAXOUX MAX OUTSTANDING ` P CWK A1,7 P RF(G) TRM002 P CW A1,VSCNT,A7 P RF(G) TRMX04 RV(S)+K > V(S) PTRM001 EQU * P IM WINDOW
0x4db444…4db5d8 Dummy {f00=0x0187, f01=0x0190, f02=»V(S) >= RV(S) ~ P CWR A2,A1 $ P RB(NL) TRM001 V(S) >= RV(S)+K-7 ( P* P P* BEFORE TRANSMIT,INIT RETRY Z P* ~ PTRMX04 EQU * P LD A6,TRWRQ,A7 P ABL(Z) UTEXIT P SUK A6,DWTOPN RESTORE DWT P LDKL A1,RETRY ( P ST A1
0x4db5d8…4db76c Dummy {f00=0x0187, f01=0x0190, f02=»NG POLL-BIT) n P* . PTRM004 LD A6,TRWRQ,A7 GET TRANSMIT POINTER P ABL(Z) UTEXIT P " P SUK A6,DWTOPN GET DWT ADDRESS f & P LD A8,DWTECB,A6 REQUESTED LENGTH " P LD A3,ECBRL,A8 ADJUST LENGTH P IFT MMUPAG=1 $ P LDKL A4,MMUBUF MMU WO
0x4db76c…4db900 Dummy {f00=0x0187, f01=0x0190, f02=» LD A1,ECBBA,A8 OUTPUT BUFFER ADDRESS P ST A1,SWITCH,A7 . , P LDK A4,DLOBUF GET OUTPUT BUFFER ADDRESS F P ADR A4,A7 v P CF A5,PRCFI INIT C-FIELD P LD A1,ADDR2,A7 " P SCR A1,A4 MATCH WITH ADDRESS P CF A15,ZEXIT EXIT FOR QMJOB
0x4db900…4dba94 (1, 1375) Dummy {f00=0x0187, f01=0x0190, f02=»OUNTERS AND SEQUENCE NUMBER IN DWT P* * P LD A1,VSCNT,A7 UPDATE V(S) 4 P ADK A1,1 X P ANK A1,7 MODULO 7 j P ST A1,VSCNT,A7 & P ST A1,CPCNT,A7 UPDATE CHECK-POINT P ST A1,DWTFRN,A6 IN DWT P* , P* START T2 TIMER OR T1
0x4dba94…4dbc28 Dummy {f00=0x0187, f01=0x0190, f02=»1,/FF " P ANK A1,POLFIN POLL BIT SET ? P RF(NZ) TRM005 YES 4 " P RF UTLPX PROCESS OUTPUT QUEUE N PTRM005 EQU * t P IM RRFLG,A7 P LDKL A1,RETRY P ST A1,DWTTRY,A7 P CF A5,T1TIME START T1 TIMER P RF UTLPX P EJECT
0x4dbc28…4dbdbc Dummy {f00=0x0187, f01=0x0190, f02=»A2,OUTPOL,A7 ( P RF(NZ) PRCFI0 OUTSTANDING POLL-BIT P LDK A1,/10 SET POLL-BIT @ P IM OUTPOL,A7 INIT FLAG ` PPRCFI0 EQU * & P LD A2,VRCNT,A7 NEXT EXPECTED N(S) P SLL A2,5 P ORR A1,A2 P LD A2,VSCNT,A7 GET N(S) P SLL A
0x4dbdbc…4dbf50 Dummy {f00=0x0187, f01=0x0190, f02=» + F-BIT x P* PTRM009 EQU * $ P CM COMFLG,A7 RESET COMMAND FLAG . PTRM010 EQU * V PTRM070 EQU * j P LDK A3,RRPF ~ P LD A1,DCRBUF,A7 P RF(NZ) TRM015 P LDK A3,RNRPF PTRM012 EQU * P IFT DCSTIC=1 P LDK A1,
0x4dbf50…4dc0e4 Dummy {f00=0x0187, f01=0x0190, f02=» P XIF PTRM015 EQU * * P LD A2,VRCNT,A7 GET NEXT EXPECTED SEND $ P SLL A2,5 ADJUST IT R $ P ORR A3,A2 +RESPONSE (RR OR RNR) n P LD A1,ADDR1,A7 P SLL A1,8 & P ORR A1,A3 MERGE ADDRESS + C-FIELD P ST A1,DLOBUF,A7 P LDK A
0x4dc0e4…4dc278 Dummy {f00=0x0187, f01=0x0190, f02=»X EQU * P ABL UTLOOP P EJECT $ P* 2 * P* SEND SUPERVISORY FRAME WITHOUT F-BIT < P* j PTRM020 EQU * t P LDK A3,RNR P LD A1,DCRBUF,A7 P RB(Z) TRM012 SEND RNR P LDK A3,RR ( P LD A1,TRWRQ,A7 SOMETHING TO SEND ?
0x4dc278…4dc40c Dummy {f00=0x0187, f01=0x0190, f02=»D RR z & P ABL TRM000 NOT BUSY,FORCE I-FRAME P EJECT 6 P* D P* SEND SABM COMMAND N P* j PTRM030 EQU * t P LDKL A1,RETRY P ST A1,DWTTRY,A7 P LD A1,ADDR2,A7 COMMAND P SLL A1,8 P LDK A2,SABMP SABM+P-BIT P
0x4dc40c…4dc5a0 Dummy {f00=0x0187, f01=0x018e, f02=»EXIT FOR QMJOB P CF A5,WRFRAM P IM FLSABM,A7 SABM SENT , & P CF A5,T1TIME TIMER + OUTPUT QUEUE L P ABL TDISP v P EJECT P* P* SEND DISCONNECT COMMAND P* PTRM040 EQU * P LDKL A1,RETRY P ST A1,DWTTRY,A7
0x4dc5a0…4dc734 (1, 1376) Dummy {f00=0x0188, f01=0x0190, f02=» ~ P ST A1,LCOM,A7 P LDK A3,2 P LDK A4,DLOBUF 0 P ADR A4,A7 F P CF A15,ZEXIT EXIT FOR QMJOB X P CF A5,WRFRAM | P CF A5,T1TIME START TIMER P ABL TDISP X21 LEVEL P EJECT P* $ P* SEND ACKNOWLEDGE TO SABM,DISC
0x4dc734…4dc8c8 Dummy {f00=0x0188, f01=0x0190, f02=»A2 P ST A1,DLOBUF,A7 P LDK A3,2 " P LDK A4,DLOBUF 4 P ADR A4,A7 J P LD A1,PFFLAG,A7 P RF(NZ) TRM056 t P LDKL A1,NPLFIN " P ANS A1,DLOBUF,A7 RESET F-BIT PTRM056 EQU * P CM PFFLAG,A7 & P CF A5,RESCON RESET HD
0x4dc8c8…4dca5c Dummy {f00=0x0188, f01=0x018e, f02=» P CF A15,RESTIZ RESET TIMER PTRMX56 EQU * & P CF A15,ZEXIT EXIT FOR QMJOB : P CF A5,WRFRAM ^ $ P LD A1,DTE:ST,A7 GET LINE STATUS t P ANK A1,DTE:S CONNECTED ? * P ABL(NZ) UTLOPX YES, COULD BE RECOVER P EJECT P* 6 P* BE
0x4dca5c…4dcbf0 Dummy {f00=0x0188, f01=0x018e, f02=» ( P LD A1,DISSAB,A7 SABM IN DISC MODE ? P ABL(Z) TDISP NO 0 P CM DISSAB,A7 CLEAR FLAG H P LDK A2,DTE:S CONNECT MODE h P ORS A2,DTE:ST,A7 IN DTETAB $ P LD A6,DTE:QW,A7 DWT IN QUEUE ? PTRM057 EQU * P SUK A6,DWTOPN YES,GET IT
0x4dcbf0…4dcd84 Dummy {f00=0x0188, f01=0x0190, f02=» ` P LD A1,DTENIC,A7 P RF(Z) TRM058 NO NETW INFO & P LDK A1,R:INFO MORE INFO AVAILABLE B PTRM058 EQU * l ( P CF A15,TENDIO COMPLETE WAIT REQUEST PTRM059 EQU * P LDR* A6,A6 P ( P RB(NZ) TRM057 STILL DWT:S TO CHECK , P
0x4dcd84…4dcf18 Dummy {f00=0x0188, f01=0x0190, f02=» * P LDK A2,DMF P RB TRM055 P EJECT 0 P* > $ P* SEND CMDR.RESPONSE + FINAL BIT H P* p PTRM080 EQU * z P LD A1,ADDR1,A7 ADDR.RESP P SLL A1,8 $ P ORS A1,DLOBUF,A7 INSERT ADDRESS P LDK A4,DLOBUF P ADR A4,
0x4dcf18…4dd0ac Dummy {f00=0x0188, f01=0x018e, f02=»TRM086 EQU * P CM PFFLAG,A7 P CF A15,ZEXIT EXIT FOR QMJOB * P CF A5,WRFRAM N P ABL TDISP d P* v P* SEND REJECT AS A RESPONSE P* PTRM090 EQU * P LDK A3,REJPF " P LD A1,PFFLAG,A7 POL-BIT SET ? P RF(NZ) TR
0x4dd0ac…4dd240 Dummy {f00=0x0188, f01=0x0190, f02=» P* RETRANSMIT LAST I-FRAME P* & PTRM100 EQU * 0 P IM DWTRTY,A6 . D : P ABL(Z) X21:40 ALL RETRANSM'S IN VANE - CLOSE X21 =6 P LD A1,DCWRQ,A7 $ P ST A1,TRWRQ,A7 RESTORE POINTER P IFT DCSTIC=1 P LDK A1,CSBTRT , P C
0x4dd240…4dd3d4 (1, 1377) Dummy {f00=0x0188, f01=0x0190, f02=»IF P ABL TRM004 P EJECT P* , P* RECOVER BUSY 6 P* L PTRM110 EQU * V & P CF A15,RESTIX REST DELAY FOR BUSY j P LD A1,DCWRQ,A7 P RF(NZ) TRM111 P LD A2,COMFLG,A7 $ P ABL(NZ) TRM009 COMMAND DETECTED P ABL X
0x4dd3d4…4dd568 Dummy {f00=0x0188, f01=0x0190, f02=»00 P EJECT P* P* RECOVER T1 TIMER " P* < PTRM130 EQU * F & P LD A1,RRFLG,A7 PREVIOUS RECOVERY Z & P RF(NZ) TRM140 YES RESEND POLL-BIT P LD A1,LCOM,A7 P ST A1,DLOBUF,A7 P LDK A3,2 P LDK A4,DLOBUF P ADR
0x4dd568…4dd6fc Dummy {f00=0x0188, f01=0x0190, f02=»TIMER P* PTRM140 EQU * P LD A2,VRCNT,A7 , P LDK A3,RRPF D P LD A1,DCRBUF,A7 X P RF(NZ) TRM145 p P LDK A3,RNRPF PTRM145 EQU * P SLL A2,5 P ORR A3,A2 P LD A1,ADDR2,A7 ADDR.RESP P SLL A1,8 P
0x4dd6fc…4dd890 Dummy {f00=0x0188, f01=0x0190, f02=» P CF A5,T1TIME P RF UTLOOP P EJECT 0 P* > P* RECOVER WINDOW H P* b PTRM150 EQU * l P CM WINDOW,A7 RESET FLAG P ABL TRMX04 P EJECT P* P* OUTPUT PROCESS CONTROL P* PUTEXIT EQU *
0x4dd890…4dda24 Dummy {f00=0x0188, f01=0x018e, f02=»DK A1,RETRAN . " P RF TOUTDS QUEUE RETRANSM.-JOB P < PUTLOOP EQU * D ( P LD A1,INTTRA,A7 INHIBITED OUTPUT ? X P RF(NZ) LOOP3 YES P* , P* TRANSMISSION ALLOWED,FETCH AND UPDATE P* I-FRAME QUEUE P* P LD
0x4dda24…4ddbb8 Dummy {f00=0x0188, f01=0x0190, f02=» P RF(NE) LOOP1 ACTION P ABL TDISP NO ACTION PUTLP1 EQU * < P LD A1,WINDOW,A7 P ( P RF(Z) TOUTDS SOMETHING MORE TO SEND h P ABL TDISP P EJECT P* * P* INVESTIGATE IN OUTPUT PROCESS TABLE P* BEFORE RESTART
0x4ddbb8…4ddd4c Dummy {f00=0x0188, f01=0x0190, f02=»P,A7 CLEAR LAST STATUS P LDK A2,2 $ P AD A2,EXTREP,A7 UPDATE POINTER 0 P LDR* A3,A2 X P CWK A3,/FFFF END OF TABLE l P RF(NE) LOOP2 P LD A2,POIREP,A7 PLOOP2 EQU * P ST A2,EXTREP,A7 P RF TOUTDS OUTPUT PROCESS
0x4ddd4c…4ddee0 Dummy {f00=0x0188, f01=0x0190, f02=» P* PLOOP3 EQU * P LD A2,INSREP,A7 " P CW A2,POIREP,A7 : P RF(E) LOOP5 END OF STACK R P SUK A2,2 t PLOOP4 EQU * " P ST A2,INSREP,A7 REINIT STACK P ST A2,EXTREP,A7 P LDR* A1,A2 P RF TOUTDS EMERGENCY P
0x4ddee0…4de074 (1, 1378) Dummy {f00=0x0188, f01=0x0190, f02=» 8 P* * 8 P* PART 05 : * @ 8 P* TIMERS HANDLING * | 8 P* T1 : POLL BIT ON * 8 P* T
0x4de074…4de208 Dummy {f00=0x0188, f01=0x018e, f02=» * l 8 P*************************************************** P* T P EJECT ^ P* l P* HERE TO START THE TIMERS v P* PT1TIME EQU * P LDKL A8,TIMER P RF(Z) TIMEND NO TIMING " P LDR A1,A6 SAVE DTETAB ADD
0x4de208…4de39c Dummy {f00=0x0188, f01=0x0190, f02=» j PTIMEND EQU * $ P ADKL A5,4 ADJUST STACK POINTER P ABR* A5 RETURN TO CALLER D P* f PT2TIME EQU * p P LDKL A8,TIMER P RB(Z) TIMEND " P LDR A1,A6 SAVE DTETAB ADDRESS P ST A8,T2TI10 P CF A15,SETIME P DATA
0x4de39c…4de530 Dummy {f00=0x0188, f01=0x0190, f02=»FRMR MODE TIMER . P* . PFRTIME EQU * . ( P LDKL A8,TIMER . > P RB(Z) TIMEND NO TIMING V P LDR A1,A6 . v P ST A8,FRTI10 . P CF A15,SETIME . P DATA FROUT TIMEOUT-ADDR PFRTI10 DATA 0 . ( P ST A4,FRMRTI,A7 SAVE
0x4de530…4de6c4 Dummy {f00=0x0188, f01=0x0190, f02=» RETRANSMIT LAST OUTSTANDING COMMAND P* WITHIN RETRY COUNTER , P* P P LDR A6,A1 DTETAB ADDRESS Z P LD A7,DWTCHD,A6 | $ P LDK A5,STB:O OUTPUT STACK BASE P ADR A5,A7 $ P CM DWTT1,A7 CLEAR TIMER POINTER * P CM OUTPOL,A7 RESE
0x4de6c4…4de858 Dummy {f00=0x0188, f01=0x0190, f02=» RF TOUTDS ACTIVATE QMJOB P EJECT " PT2OUT EQU * 0 P* D 6 P* HERE TO RECOVER EVENTUAL MISS ON SENDING FRAMES N : P* ***** SEND COMMAND WITH POLL-BIT ON !!!!!!! P* P LDR A6,A1 DTETAB ADDRESS P LD A7,DWTCHD,A6 $
0x4de858…4de9ec Dummy {f00=0x0188, f01=0x0190, f02=»A7 P IM RRFLG,A7 P LDK A1,T2REC PTOUTDS EQU * 4 P LD A2,OUTPUT,A7 OUTPUT ? H P RF(NZ) TOUTD1 YES DISPATCH j P LDKL A2,TRM NO,START QMJOB P LDR A3,A7 P CF A15,QMJOB PTOUTD0 EQU * P ABL TDISP DISPATCH
0x4de9ec…4deb80 Dummy {f00=0x0188, f01=0x018e, f02=» . t ( P* SINCE NO APPROPRIATE RESPONSE ON . ( P* "CMDR" LET'S TRY "SABM" INSTEAD . 6 P* . b PFROUT EQU * . p " P LDR A6,A1 RESTORE DTETAB-ADDR P LD A7,DWTCHD,A6 P LDK A5,STB:O . P ADR A5,A7 STACK BASE & P CM FRMRTI,A7
0x4deb80…4ded14 (1, 1379) Dummy {f00=0x0188, f01=0x0190, f02=» P* P* TIMERS RESETTING P* , PRESTIX EQU * 6 P LD A1,DWTT1,A7 J P RF(NZ) RESTI1 b P LD A1,DWTT2,A7 x P RF(NZ) RESTI2 $ PRETURN RTN A15 NO TIMERS RUNNING P* P* T1 RUNNING P* PRESTI1 EQU *
0x4ded14…4deea8 Dummy {f00=0x0188, f01=0x0190, f02=»RESS x P CW A1,ADDR1,A7 COMMAND ? P RB(E) RETURN YES . P LC A1,FIELD1+1,A7 H P ANK A1,POLFIN FINAL BIT ? b P RB(E) RETURN NO PRESTIY EQU * P CW A2,VSCNT,A7 * P RF(E) RST1 LN(R)=V(S) - JUST RESET T1 P CF A5,T2TIME STAR
0x4deea8…4df03c Dummy {f00=0x0188, f01=0x0190, f02=» P CM RRFLG,A7 , P CM OUTPOL,A7 RESET OUTSTANDING POLL-BIT P RB RETURN H P EJECT Z P* h P* R2 RUNNING r P* PRESTI2 EQU * " P CW A2,VSCNT,A7 LN(R) = V(S) ? P RF(E) RESTI3 YES CLEAR T2 P LDK A1,TIMER NO P NGR
0x4df03c…4df1d0 Dummy {f00=0x0188, f01=0x0190, f02=»TURN PRESTIZ EQU * P LD A1,DWTT1,A7 P RB(NZ) RST1 8 P LD A1,DWTT2,A7 L P RB(NZ) RESTI3 T2 RUNNING d P RTN A15 NO TIMERS P* . " P* FRMR MODE TIMER RESETTING . P* . PRESTFR EQU * . P LD A1,FRMRTI,A7
0x4df1d0…4df364 Dummy {f00=0x0188, f01=0x0190, f02=» P EJECT P* 8 P*************************************************** 8 P* * 8 P* PART 06 : * 8 P* BASIC READ AND WRITE *
0x4df364…4df4f8 Dummy {f00=0x0188, f01=0x0190, f02=»******************************************* P* 4 P EJECT > P* L P* TRANSMIT ONE FRAME V P* ON ENTRY r P* A3 = FRAME LENGTH " P* A4 = BUFFER ADDRESS P* PWRFRAM EQU * " P IM OUTPUT,A7 OUTPUT OCCUPIE
0x4df4f8…4df68c Dummy {f00=0x0188, f01=0x0190, f02=» * P RF(NZ) WRF105 PWR FL POST PROCESSING P ADK A1,CIT4WP 2 P EX CIOOUT,A7 START OUTPUT H P ABL(NA) X21:10 NOT OPERABLE j P PWRF105 EQU * P SUR A8,A8 P CF A5,WRITE P CM OUTPUT,A7 P IFT DCSTIC=1 & P RF(Z) WRF11
0x4df68c…4df820 Dummy {f00=0x0188, f01=0x0190, f02=»A1 * P ORS A1,DTE:ST,A7 SAVE EV. ERROR IND. PWRF110 EQU * 8 P* L P XIF V P RTN A5 b P EJECT r P* P* R E A D & W R I T E P* * P* SAVE REGISTERS AND DO WHATEVER'S UP P* PWRITE EQU * P CF A1
0x4df820…4df9b4 (1, 1380) Dummy {f00=0x0189, f01=0x0190, f02=»SP P EJECT P* , P* READ A FRAME INTO RECEIVE POOL BUFFER " 0 P* ON EXIT CR= (Z) IF THE FRAME IS VALID R * P* AND A4 CONTAINS BUFFER ADDRESS P* PRDFRAM EQU * $ P LD A4,DCRBUF,A7 GET BUFFER POOL , P RF(NZ) RDF010
0x4df9b4…4dfb48 Dummy {f00=0x0189, f01=0x0190, f02=»7 P ADK A4,6 RESERVE HEADER & P LDK A3,0 RESET CHARACTER COUNTER * PRDF020 EQU * T P LD A2,PFPOST h * P RF(NZ) RDF025 PWR FL POST PROCESSING ~ P LDK A1,CIREPC RECEIVE ON PC P EX CIOIN,A7 START RECEIVER P ABL(NA) X21:10 NOT
0x4dfb48…4dfcdc Dummy {f00=0x0189, f01=0x0190, f02=»L A8,1 P RF(Z) RDF040 BUFFER OV P ANKL A2,HS:ID+HS:IL . , P RF(NZ) RDF100 IDLE DETECT OR ILL LENGTH J P z P ANKL A2,HS:FCS+HS:TE * P RF(NZ) RDF030 FCS OR THROUGHPUT ERROR P LDK A1,CSBRAB P RF RDF040 P EJECT P
0x4dfcdc…4dfe70 Dummy {f00=0x0189, f01=0x0190, f02=» P PRDF040 EQU * " P CF A15,DCSUPR UPDATE COUNTER P SLA A1,1 F P LD A1,DCSERT,A1 X * P ORS A1,DTE:ST,A7 SAVE EV. ERROR IND. p P XIF PRDF100 EQU * P LDK A1,1 P RF RDF120 P PRDF110 EQU * P LD A4,DCR
0x4dfe70…4e0004 Dummy {f00=0x0189, f01=0x0190, f02=» PRDF120 EQU * P ADK A5,4 P LDR A1,A1 * P ABR* A5 < P EJECT L P* Z P* INTERRUPT SERVICE d ( P* **** INPUT **** P* PIH23IN EQU * $ P LD A7,DC:TAB,A1 DTE-TABLE ADDR P CF A15,LDREGI P
0x4e0004…4e0198 Dummy {f00=0x0189, f01=0x0190, f02=» CF A5,LOGIN P XIF P* P* STORE FIRST WORD IN FIELD1 * P* N " P LD A8,TESTCF,A7 FIRST WORD ? X P RF(NZ) NFIRST NO ~ * P IM TESTCF,A7 YES,SET FIRST WORD FLAG 0 P ST A2,FIELD1,A7 AND STORE ADDRESS + C-FIELD P RB READ
0x4e0198…4e032c Dummy {f00=0x0189, f01=0x0190, f02=»INCREMENT POINTER P ADK A3,2 INCREMENT COUNTER * P CWK A3,RBUFL+RBUFL BUFFER OVERFLOW ? > P RB(L) READ NO l P EJECT P* P* BUFFER OVERFLOW P* P SUK A4,2 DECREMENT POINTER P LDKL A8,1 INDICATE OVERFLOW P R
0x4e032c…4e04c0 Dummy {f00=0x0189, f01=0x0190, f02=» PERFORM SST P ADK A5,4 P LDR A8,A8 & P ABR* A5 8 P EJECT H P* V " P* PERFORM SST ON INPUT CHANNEL ` P* PSSTIN EQU * P SUR A1,A1 P EX SST:I,A7 INPUT STATUS 2 P RF(NA) SSTI30 CONTROLLER HW ERROR - CLOSE X21
0x4e04c0…4e0654 (1, 1381) Dummy {f00=0x0189, f01=0x0190, f02=»Z) X21:20 DCE NOT OPERABLE OR DCE CLEAR P LDR A1,A2 0 P ANKL A1,HS:LW B 2 P RF(Z) SSTI20 NOT "ONE BYTE INFO IN LAST WORD" X P SUK A3,1 ADJUST LENGTH PSSTI10 EQU * " P SUR A8,A8 RETURN CODE FOR OK P RTN A5 PSSTI20 EQU *
0x4e0654…4e07e8 Dummy {f00=0x0189, f01=0x0190, f02=» SAVE REGISTERS P CF A15,SETIME START TIMER P DATA SSTI40,LCTIMR : P ABL TDISP V P EJECT h PSSTI40 EQU * v P LDR A7,A1 4 P CF A15,LDREGI RETRIEVE REGISTERS AFTER TIMEOUT P LDKL A8,2 P RTN A5 P EJECT P*
0x4e07e8…4e097c Dummy {f00=0x0189, f01=0x018e, f02=»LE x $ P CF A15,LDREGO RELOAD SUPER NINU P LD A1,DTE:DF,A7 2 P ABL(Z) X:23UT J P LCR A2,A4 ` P SLL A2,8 r & P LC A2,+1,A4 INIT OUTPUT REGISTER P EX OTR,A7 OUTPUT FULL WORD P RF(NA) IHLCU1 NOT ACCEPTED P IFF LOGG=0
0x4e097c…4e0b10 Dummy {f00=0x0189, f01=0x0190, f02=» 4 P RF(NZ) IH23UX I-FRAME - "C" & "A" FIELDS OUTPUT P ADK A4,2 INCREMENT POINTER < P SUK A3,2 DECREMENT COUNTER ` * P ABL(P) WRITE WAIT FOR NEXT INTERRUPT P* P* END OF FRAME P* $ P EX HLTOUT,A7 HALT TRANSMISSION P ABL
0x4e0b10…4e0ca4 Dummy {f00=0x0189, f01=0x0190, f02=» ABL WRITE P EJECT P* P* CHECK SST * P* > PIHLCU1 EQU * H P EX SST:O,A7 INPUT STATUS P RB(NA) SSTI30 NOT ACCEPTED ~ P IFF LOGG=0 P CF A5,LOGSST P XIF P ST A2,DTEHWS,A7 P LDR A1,A2 P ANK A
0x4e0ca4…4e0e38 Dummy {f00=0x0189, f01=0x0190, f02=» THROUGPUT ERROR P* P LDKL A8,1 INDICATE IT " PIHLCU2 EQU * @ P ADK A5,4 T P LDR A8,A8 f P ABR* A5 x P EJECT P* P* P P* I N T E R R U P T H A N D L E R * P P*
0x4e0e38…4e0fcc Dummy {f00=0x0189, f01=0x018e, f02=»************** R P " PIH2301 EQU * INPUT CONTR. # 1 P CF A15,SAVE8 D P SUR A1,A1 Z PIH23IY EQU * l P ABL IH23IN P* " PIH2302 EQU * OUTPUT CONTR. # 1 P CF A15,SAVE8 P SUR A1,A1 PIH23UY EQU * P ABL IH2
0x4e0fcc…4e1160 Dummy {f00=0x0189, f01=0x0190, f02=» " PIH2303 EQU * INPUT CONTR. # 2 P IFF NLIN=1 * P CF A15,SAVE8 > P LDK A1,2 T P RB IH23IY f P* x P XIF " PIH2304 EQU * OUTPUT CONTR. # 2 P IFF NLIN=1 P CF A15,SAVE8 P LDK A1,2 P RB IH23UY P*
0x4e1160…4e12f4 (1, 1382) Dummy {f00=0x0189, f01=0x0190, f02=»# 3 v P IFF NLIN=1 P IFF NLIN=2 P CF A15,SAVE8 4 P LDK A1,4 J P RB IH23IY P* n P XIF x " PIH2306 EQU * OUTPUT CONTR. # 3 P IFF NLIN=1 P IFF NLIN=2 P CF A15,SAVE8 P LDK A1,4 P RB IH23UY
0x4e12f4…4e1488 Dummy {f00=0x0189, f01=0x0190, f02=» CONTR. # 4 ~ P IFF NLIN=1 P IFF NLIN=2 ( P IFF NLIN=3 < P CF A15,SAVE8 P P LDK A1,6 f P RB IH23IY x P* P XIF " PIH2308 EQU * OUTPUT CONTR. # 4 P IFF NLIN=1 P IFF NLIN=2 P IFF NLIN=3 P CF A1
0x4e1488…4e161c Dummy {f00=0x0189, f01=0x0190, f02=»FF LOGG=0 PLOGSST EQU * P LDK A1,/DD DATA SST & P RF LOG10 B PLOGXST LDK A1,/AA X21-SST T P RF LOG10 v PLOGXUT LDK A1,/BB X21-OUT P RF LOG10 PLOGXIN LDK A1,/CC X21-IN P RF LOG10 PLOGOUT EQU * P LDK A
0x4e161c…4e17b0 Dummy {f00=0x0189, f01=0x018e, f02=» SLL A1,8 P STR A1,A3 P LDK A1,/3F $ $ P AN A1,CIOIN,A7 MASK DEV ADDRESS 8 , P ORRS A1,A3 MERGE DEV ADDR AND INT. TYPE ` P ADK A3,2 P STR A2,A3 P ADK A3,2 P CWK A3,LOGEND P RF(L) LOGEXI P LDKL A3,LOGSTA
0x4e17b0…4e1944 Dummy {f00=0x0189, f01=0x018e, f02=» p P* PLOGPNT DATA LOGSTA PLOGSTA EQU * , P RES 400 @ PLOGEND EQU *-6 P PSAVE3 DATA 0 f P XIF z P EJECT P* : P***************************************************** : P*
0x4e1944…4e1ad8 Dummy {f00=0x0189, f01=0x0190, f02=» X : P* * : P***************************************************** F P* PDC23ON EQU * P CF A15,SAVE8 P SUR A4,A4 PDCON10 EQU * " P LD A7,DC:TAB,A4 GET DTE-TABLE P LDK
0x4e1ad8…4e1c6c Dummy {f00=0x0189, f01=0x018e, f02=» p " P RF(Z) DCON40 END OF DWT QUEUE P SUK A6,DWTCHN POINT AT TOP . , P CM DTE:NC,A7 CLEAR NO. OF ACTIVE CONN'S R P LD A1,DWTST,A6 ( P RB(N) DCON20 NO OUTSTANDING REQEST P* PDCON30 EQU * * P CF A15,PWCOMP COMLETE REQ. ON PWR U
0x4e1c6c…4e1e00 Dummy {f00=0x0189, f01=0x0190, f02=» P EJECT PDCON40 EQU * P LD A6,DTE:QD,A7 & 2 P RF(NZ) DCON70 SOMEONE IS ACTIVE ON THIS LINE > ( P LD A6,DTE:QC,A7 OPEN/CLOSE ATTEMPTS t ( P RF(Z) DCON50 NO OPEN OR CLOSE REQ. * P CF A15,PWCOMP COMPLETE REQ. ON PWR UP P CM DTE:QC,A7
0x4e1e00…4e1f94 (1, 1383) Dummy {f00=0x0189, f01=0x0190, f02=»6,DWTOPN * P CF A15,PWCOMP COMPLETE REQ. ON PWR UP " P CF A15,RQ:WCL RELEASE FROM Q. > P LDR* A6,A6 d P RB DCON60 x P* PDCON70 EQU * P EJECT P* P* DYNAMIC ADDRESSING ? P* P IFT DYNADR=1 * P CM ADDR1,
0x4e1f94…4e2128 Dummy {f00=0x0189, f01=0x0190, f02=» P ST A1,ADDR1,A7 P LDK A1,AHB P ST A1,ADDR2,A7 0 P XIF H ( P CF A15,RESET RESET HDLC PARAMETERS T P LD A1,DC:TAB+2,A4 P CWK A1,-1 . P ABL(E) QLJOB LAST DTE - QUEUE LAST JOB ! P ADK A4,2 STEP DC:TAB INDEX P RB DC
0x4e2128…4e22bc Dummy {f00=0x0189, f01=0x0190, f02=»TE:PW $ P OR A1,DTE:ST,A7 SET PWR UP BIT P ANKL A1,/1F00 6 * P ST A1,DTE:ST,A7 JUST LEAVE STATISTICS L P LDK A1,R:INFO+R:PCON z * P CF A15,TENDIO TELL APPL ABOUT PWR ON " P CF A15,CTIME CLEAR REQ. TIMER P ADKL A15,4 P ABR* A1
0x4e22bc…4e2450 Dummy {f00=0x0189, f01=0x0190, f02=» * h : P* PART 09 : * : P* X21 INTERFACE * T : P* * : P******************************************************
0x4e2450…4e25e4 Dummy {f00=0x0189, f01=0x018e, f02=» h P* 8 P* THIS COMPONENT CONTROLS THE FOLLOWING FUNCTIONS P* N P* - OPEN X P* - CLOSE n $ P* - CONNECT ACTIVE/PASSIVE P* - DISCONNECT P* > P****************************************************
0x4e25e4…4e2778 Dummy {f00=0x0189, f01=0x0190, f02=» 0 P* STATES : CODES FOR X21-INTERFACE STATES P* 8 : P***************************************************** B P $ PS:1 EQU /00 DTE READY, DCE READY PS:8 EQU /10 INCOMING CALL PS:12 EQU /20 READY FOR DATA PS:13 EQU /30 DATA
0x4e2778…4e290c Dummy {f00=0x0189, f01=0x0190, f02=»NOT READY t PS:F EQU /F0 FORCED DATA P 2 2 P********************************************* : P* p P* X21-INTERFACE I/O ORDERS z P* . P***************************************** P " PCLR EQU X'01' CLEAR CONNECTION ( P
0x4e290c…4e2aa0 Dummy {f00=0x0189, f01=0x0190, f02=»'08' SELECTIVE DIRECT CALL PRDY EQU X'0C' SET DTE READY " . PCNR EQU X'0D' SET DTE CONTROLLED NOT READY F 0 PUNR EQU X'0E' SET DTE UNCONTROLLED NOT READY x & PFDAT EQU X'0F' SET FORCE DATA MODE & PLONGT EQU X'0F' LONG T3 CALL TIMER P EJECT
0x4e2aa0…4e2c34 (1, 1384) Dummy {f00=0x018a, f01=0x0190, f02=»0 PDTE:2 EQU /2000 " PDTE:PW EQU /1000 POWER ON BIT " L P*----------------------------------------------------------------------- H P 0 PDTE:BE EQU /0800 BUFFER ERROR (STATISTICS) * PDTE:IE EQU /0400 INDEX ERROR " * PDTE:NI
0x4e2c34…4e2dc8 Dummy {f00=0x018a, f01=0x0190, f02=»---------------------- ^ P ( PDTE:IT EQU /0080 INTERRUPTS EXPECTED & PDTE:FR EQU /0040 FRMR MODE R ( PDTE:OB EQU /0020 OUTPUT PROCESS BUSY t , PDTE:NR EQU /0010 DTE OPEN, DCE NOT OPEN L P*-------------------------------------------------------
0x4e2dc8…4e2f5c Dummy {f00=0x018a, f01=0x0190, f02=»EQU /0002 SOFTWARE LINK OPEN PDTE:O EQU /0001 DTE OPEN $ L P*----------------------------------------------------------------------- D P P DATA DTE:BE P DATA DTE:IE P DATA DTE:NI & PDCSERT DATA 0 DC STATISTIC ERR-TAB P DATA
0x4e2f5c…4e30f0 Dummy {f00=0x018a, f01=0x018e, f02=» CLOSED, ELSE REFUSED P* > P* PARAMETERS : ECB-BUFFER ADDRESS POINTS TO A PARAMETER ( 8 P* BLOCK WITH THE FOLLOWING CONTENTS j P* 0 P* - LENGTH OF ADDR. BLOCK $ P* - RESERVED
0x4e30f0…4e3284 Dummy {f00=0x018a, f01=0x018e, f02=» > P* ADDRESS BLOCK <> 0) P* F @ P* ECB-CONTROL WORD 2: LOCAL SYMB DTE ADDRESS P P* D P**************************************************************** P POPEN EQU * , P CF A15,
0x4e3284…4e3418 Dummy {f00=0x018a, f01=0x0190, f02=» j P P LD A1,ECBRL,A8 REQ. LENGTH P RF(Z) OPEN10 NO ADDR-BLOCK 4 . P ABL(N) E:ILEN ILLEGAL LENTH OF ADDR-BLOCK X P EJECT , P LD A1,ECBBA,A8 BUFFER ADDR TO USER ECB " P ADK A1,4 POINT AT ADDR BLOCK P LDR A2,A7 4 P ADK A2,
0x4e3418…4e35ac Dummy {f00=0x018a, f01=0x0190, f02=»S) f P LDR A1,A1 , P ABL(P) E:REQ INV NETW NUMBERTABLE/TYPE 2 P ABL(N) E:ILEN ILLEGAL LENGTH OF BLOCK/ENTRIES L P EJECT P POPEN10 EQU * P LD A1,DWTLAD,A6 . P RF(NZ) E:REQX DWT ALREADY OPENED ANOTHER , P ST A6,DTE:QC,A7 F
0x4e35ac…4e3740 Dummy {f00=0x018a, f01=0x0190, f02=»*********** ^ P* P* ACTIVATE X-21 INTERFACE P* B 0 P******************************************* L P P LDK A5,STB:I P ADR A5,A7 STACK BASE P & P CF A15,STIME START SUPERV. TIMER $ P* CF A5,DTECLR* CLEAR FO
0x4e3740…4e38d4 (1, 1385) Dummy {f00=0x018a, f01=0x0190, f02=»FACE STATUS | P RF(Z) OPEN20 STATE 1 P SUK A1,S:18 2 2 P ABL(NZ) E:PCON NOT STATE 18 - PHYS CONN ERROR F P LDK A1,DTE:NR | $ P ORS A1,DTE:ST,A7 DCE NOT READY POPEN20 EQU * ( P LD A1,ECBCW2,A8 LOCAL SYMB DTE ADDR P ST A1,DWTLAD,
0x4e38d4…4e3a68 Dummy {f00=0x018a, f01=0x0190, f02=»:CTRL P D P**************************************************************** P* ^ P* C L O S E h P* ~ P* DEACTIVATE X21-INTERFACE @ P* THE X21-INTERFACE SWITCHES TO DTE UNCONTROLLED NOT READY P* D P**************
0x4e3a68…4e3bfc Dummy {f00=0x018a, f01=0x0190, f02=»1,1 P RF(Z) CLOS10 ALREADY CLOSED " P RF(N) E:REQX INVALID DTE ADDR 0 8 P LD A1,DWTLAD,A6 ACTUAL SYMB. DTE ADDR OF OPENED DTE V < P RF(Z) E:SEQX TRIED TO CLOSE DTE NOT OPENED BY THIS DWT $ P CW A1,ECBCW2,A8 REQ. LDTE ADDR 6 P RF(NE) E:REQX
0x4e3bfc…4e3d90 Dummy {f00=0x018a, f01=0x0190, f02=» ANK A1,DTE:CP CALL IN PROGR PE:SEQY EQU * $ " P ABL(NZ) E:SEQ SEQUENCE ERROR 8 P ^ , P ST A6,DTE:QC,A7 FLAG CLOSE IN PROGRESS f 0 P LDKL A1,DTE:O+/1F00 OPEN & STATISTIC FLAGS P C1R A1,A1 $ P ANS A1,DTE:ST,A7 SET DTE CLOSED P LDK
0x4e3d90…4e3f24 Dummy {f00=0x018a, f01=0x0190, f02=»F A5,DTECNR SET DTE CONTROLLED NOT READY P CF A15,CTIME 0 P EJECT F PCLOS10 EQU * T & P CM DWTCHD,A6 CLEAR DTETAB POINTER h , P CM DWTLAD,A6 " LOCAL SYMB DTE ADDR * P CM DTELAD,A7 " " " " " ( P CM DTE:QC,A7 " CLOS
0x4e3f24…4e40b8 Dummy {f00=0x018a, f01=0x0190, f02=» D P**************************************************************** P* L $ P* C O N N E C T A C T I V E V P* ~ D P* ESTABLISH A LOGICAL CONNECTION TO A REMOTE DTE ON AN ALREADY $ P* EXISTING PHYSICAL CONNECTION P* 0 P*
0x4e40b8…4e424c Dummy {f00=0x018a, f01=0x0190, f02=» H P* /8X - LONG (T3) TIMER DURING THE CALL (CCITT R.X21) P* P 2 P* PARAM'S: ECBCW1 - LOCAL SYMB DTE ADDR Z D P* ECBCW2 - REMOTE SYMB DTE ADDR (NOT OPTION /02) P* T P**************************************
0x4e424c…4e43e0 Dummy {f00=0x018a, f01=0x0190, f02=», RDTE & CONN. OK ~ PACT:00 EQU * P ADK A1,1 . P ABL(P) E:PCON DCE NOT READY @ PE:SEQX EQU * d P ABL(Z) E:SEQ SEQUENCE ERROR x PE:REQX EQU * P ABL E:REQ REQUEST ERROR P PACT:10 EQU * " P LD A1,DWTST,A6 DEVICE STATU
0x4e43e0…4e4574 (1, 1386) Dummy {f00=0x018a, f01=0x0190, f02=»************************************** v P* . P* CALL REMOTE DTE 8 P* T B P* - IF A CONNECTION ALREADY IS ESTABLISHED TO THE CORRECT ^ 6 P* DTE, THE REQUEST IS IMMEDIATLY COMPLETED P* F P* - IF A CONNECTION IS ESTA
0x4e4574…4e4708 Dummy {f00=0x018a, f01=0x0190, f02=»NO CONNECTION IS ESTABLISHED, THE X21-INTERFACE IS 0 P* ACTIVATED TO START A CALL SEQUENCE : P* n H P******************************************************************* x P P IFT TSTOFF=1 P RF OPC:45 P XIF P " P
0x4e4708…4e489c Dummy {f00=0x018a, f01=0x0190, f02=»N n P P ANK A1,DTE:CP * P RF(NZ) ACT:20 CONNECTION IN PROGRESS ( P V $ P LD A4,DTE:QD,A7 HEAD OF DEV Q. ^ & P SUK A4,DWTCHN GET FIRST DWT IN Q. , P LD A1,DWTRAD,A6 PRESENT REMOTE DTE-ADDR , P CW A1,ECBCW1,A8 COMPARE WITH REQUESTED
0x4e489c…4e4a30 Dummy {f00=0x018a, f01=0x0190, f02=»IN DEVICE QUEUE ~ P LDK A1,DS:C * P ORS A1,DWTST,A6 SET DEVICE CONNECTED , 4 P ST A7,DWTCHD,A6 SAVE DTETAB-ADDR FOR THE FUTURE Z $ P IM DTE:NC,A7 ONE MORE CONNECTED P LD A1,DTE:ST,A7 P ANK A1,DTE:S , P RF(Z) ACT:25 SABM/UA-THING NOT
0x4e4a30…4e4bc4 Dummy {f00=0x018a, f01=0x0190, f02=» p PACT:25 EQU * P ABL TDISP DISPATCH P 8 PACT:30 EQU * @ 4 P ST A7,DWTCHD,A6 SAVE DTETAB-ADDR FOR LATER USE T P LDKL A2,RETRY & P ST A2,DTE:RY,A7 SET RETRY-COUNTER P CM DTENIC,A7 P LDK A1,DTE:CP . P ORS A1,DTE:ST,A
0x4e4bc4…4e4d58 Dummy {f00=0x018a, f01=0x0190, f02=»* 2 P* ACTIVATE X21-INTERFACE TO CALL REMOTE DTE P* @ 6 P************************************************** J P P LDK A5,STB:I P ADR A5,A7 STACK BASE ( P CF A15,Q:CAL PUT DWT IN CALL QUEUE $ P CF A15,Q:DCT PUT DWT IN CD:
0x4e4d58…4e4eec Dummy {f00=0x018a, f01=0x0190, f02=»1 P LD A1,DCSERT,A1 ( P ORS A1,DTE:ST,A7 SAVE EV ERROR-CODE " P XIF N P IFT TSTOFF=1 Z P CF A5,FDMOD FORCE DATA MODE p P RF ACT:40 P XIF * P CF A5,DTECAL START X21- CALL SEQUENCE $ P ST A1,ECBRC,A8 SET RETURN-CODE P
0x4e4eec…4e5080 Dummy {f00=0x018a, f01=0x0190, f02=»,A7 SET DTE CONNECTION ESTABLISHED 0 P LD A4,ECBCW1,A8 WANTED REMOTE SYMB DTE ADDR * 6 P ST A4,DWTRAD,A6 SET CONNECTED EMOTE SYMB DTE ADDR ^ P ( P LD A6,DTE:QC,A7 HEAD OF CALL QUEUE PACT:50 EQU * P SUK A6,DWTOPN P CW A4,DWTRAD,A6
0x4e5080…4e5214 (1, 1387) Dummy {f00=0x018a, f01=0x0190, f02=»A6 SET DWT CONNECTED ( P CF A15,RQ:CAL RELEASE FROM CALL Q. " P CF A15,CTIME CLEAR REQ. TIMER H PACT:60 EQU * n P LDR* A6,A6 * P RB(NZ) ACT:50 STILL DWT'S IN CALL Q. 0 P LD A6,DTE:QD,A7 GET FIRST DWT IN DEV CHAIN P SUK A6,DWTCHN
0x4e5214…4e53a8 Dummy {f00=0x018a, f01=0x0190, f02=» P ST A1,ADDR1,A7 P XIF " P CF A15,SPTIM START PROC TIMER ( P ABL INIABM N P EJECT b P* p 4 P* LOGICAL CONNECTION WITH REMOTE DTE ESTABLISHED z * P* - COMPLETE "CONN. ACTIVE"- REQUEST P* T P******************************
0x4e53a8…4e553c Dummy {f00=0x018a, f01=0x0190, f02=»6,DWTCHN P CF A15,CTIME P SUR A1,A1 & $ P CF A15,TENDIO COMPLETE REQUEST 8 P ABL BRM ` P EJECT C:CTRL p P F P****************************************************************** P* " P* CONNECTION NOT ESTABLISHED 8
0x4e553c…4e56d0 Dummy {f00=0x018a, f01=0x0190, f02=»PPROPRIATE RETURN CODE P* @ P************************************************************ ( P l PACT:80 EQU * t P IFT DCSTIC=1 P LDK A1,CSBUOC 2 P CF A15,DCSUPR UPDATE NO OF UNSUCC OUTG CALLS P SLA A1,1 P LD A1,DCSER
0x4e56d0…4e5864 Dummy {f00=0x018a, f01=0x0190, f02=» IM DTE:RY,A7 INCREMENT RETRY P RF(Z) ACT:90 NO MORE RETIES & P LDR A1,A7 J P CF A15,STREGI SAVE REG'S 0 P CF A15,SETIME DELAY A WHILE BEFORE NEXT TRY ~ P DATA ACT:85,7 ( P ST A4,DWTIPT,A6 SAVE TIMER-POINTER P RB ACT:25 DISPATCH
0x4e5864…4e59f8 Dummy {f00=0x018a, f01=0x0190, f02=» NEW TRY z P EJECT P PACT:90 EQU * & P LDK A2,DTE:CP : 2 P XRS A2,DTE:ST,A7 RESET CONNECTION IN PROGRESS R P . P CF A15,RQ:CAL RELEASE DWT FROM CALL QUEUE PACT:95 EQU * * P CF A15,RQ:DCT REMOVE DWT FROM DC:TAB " P CF
0x4e59f8…4e5b8c Dummy {f00=0x018a, f01=0x018e, f02=»TDISP NOBODY SLIPPED INTO QUEUE P SUK A6,DWTOPN ( " P CF A15,RQ:CAL REMOVE FROM Q. > P ABL ACT:30 GO FOR CALL d P EJECT P* & P* C O N N E C T P A S S I V E P* H P* ALLOW REMOTE DTE'S TO ESTABLISH A LOGICAL CONNECTION
0x4e5b8c…4e5d20 Dummy {f00=0x018a, f01=0x0190, f02=» J P* /01 - CALLS FROM DTE'S IN THE DTE ADRR TABLE ACCEPTED H P* /02 - CALLS FROM THE DTE INDICATED BY E C B C W 1 R ( P* ARE ACCEPTED P* J P* PARAM'S: ECBCW1 - REMOTE SYMB DTE ADDR (ONLY
0x4e5d20…4e5eb4 (1, 1388) Dummy {f00=0x018b, f01=0x0190, f02=»********************************** b P * PPASSIV EQU * 2 P LC A1,DWTOR,A6 GET OPTION F P ANK A1,/FF h P SUK A1,2 | * P ABL(P) E:REQ OPTION > /02 - REQ ERROR P ADK A1,1 4 P RF(NN) PAS:10 PRIVILEGED RDTE'S ALLOWED TO CALL $ P C
0x4e5eb4…4e6048 Dummy {f00=0x018b, f01=0x0190, f02=»HECK CONNECTION PPAS:20 EQU * , P ABL(NZ) ACT:00 RDTE,LDTE OR CONN. ERROR , P LD A1,DWTST,A6 P ANK A1,DS:C t ( P ABL(NZ) E:SEQ DEVICE ALREADY CONN. ( P LD A1,DTE:QD,A7 HEAD OF DEV. QUEUE P RF(Z) PAS:30 NOBODY IN Q. $ P LD A2
0x4e6048…4e61dc Dummy {f00=0x018b, f01=0x018e, f02=» - GO PUT IN DEV. Q., COMPL REQ ASO. P RF PAS:40 . P @ PPAS:30 EQU * H P LD A1,DTE:ST,A7 P ANK A1,DTE:CP t $ P RF(NZ) PAS:40 NO CALL IN PROGR. P CM DTENIC,A7 P CM DTE:NC,A7 PPAS:40 EQU * P* P* 0 P C
0x4e61dc…4e6370 Dummy {f00=0x018b, f01=0x0190, f02=» F P***************************************************************** P* N P* D I S C O N N E C T X P* x . P* CLOSE LOGICAL CONNECTION TO REMOTE DTE P* < P* - IF NO OTHER LOGICAL CONNECTIONS, THE X21-LEVEL " P* C
0x4e6370…4e6504 Dummy {f00=0x018b, f01=0x0190, f02=»REMAINS ACTIVE v P* H P******************************************************************** P l PDISCON EQU * t P LDKL A4,LDTE , P CF A15,CKDTE CHECK LOCAL SYMB DTE-ADDR P ABL(NZ) E:REQ INVALID LDTE * P CF A15,RE:ALL RELEASE
0x4e6504…4e6698 Dummy {f00=0x018b, f01=0x0190, f02=»SEQX ACTIVE CONN'S - SEQ. ERROR " P LD A1,DWTST,A6 DEVICE STATUS ( P ANK A1,DS:C N , P ABL(Z) E:SEQ CONNECTION NOT ESTABLISHED b P EJECT 0 P XRS A1,DWTST,A6 SET WS CONNECTION INACTIVE P LDKL A2,-1 6 P ADS A2,DTE:NC,A7 DECREMENT ACTI
0x4e6698…4e682c Dummy {f00=0x018b, f01=0x0190, f02=»UAL T1/T2 TIMER v " P CF A15,SPTIM START PROC TIMER . P ABL INIDIS DISCONNECT LINK LEVEL ( HDLC ) > P EJECT C:CTRL p PDISC30 EQU * P LDK A5,STB:I P ADR A5,A7 STACK BASE P , P CF A5,DTECLR CLEAR X21-LEVEL CONNECTION * P
0x4e682c…4e69c0 Dummy {f00=0x018b, f01=0x0190, f02=» ACTIVE CONNECTIONS 8 P LDKL A1,X'EF11' CLEAR DTE:IT,DTE:FR,DTE:OB,DTE:NR, * P ANS A1,DTE:ST,A7 DTE:CP,DTE:C & DTE:S X " P ABL ACT:95 COMPL REQ ETC.... PDISC40 EQU * P SUR A1,A1 P ABL DISEND COMPLETE REQUEST P EJECT P*
0x4e69c0…4e6b54 (1, 1389) Dummy {f00=0x018b, f01=0x0190, f02=»R IN QUEUE z " P LDR* A2,A4 * RESTORE LAST IN , P ST A2,DTE:QI,A7 * QUEUE IN DWT POINTER 8 P CF A15,RRBUF RELEASE BUFFER h P RB RE:ALL MORE TO RELEASE ? PRE:AL1 EQU * P RTN A15 P EJECT P* & P* C K C O N N - CHECK CONN
0x4e6b54…4e6ce8 Dummy {f00=0x018b, f01=0x0190, f02=»RETURN: A1-A4 DESTROIED > P* CR = 0 RDTE AND/OR LDTE OK, DTE OPEN, DCE READY < P* CR <>0 ERROR (A1 > 0 DTE OPEN,DCE NOT READY) b 2 P* (A1 =-1 DTE NOT OPEN) < P* (A1 =-2 RDTE AND/OR LDTE
0x4e6ce8…4e6e7c Dummy {f00=0x018b, f01=0x0190, f02=»L A4,RDTE , P CF A15,CKDTE CHECK REMOTE SYMB DTE-ADDR P RF(N) CKCON4 INVALID RDTE B PCKCON2 EQU * d P LDKL A4,LDTE x , P CF A15,CKDTE CHECK LOCAL SYMB DTE-ADDR P RF(N) CKCON4 INVALID LDTE P LD A1,DTE:ST,A7 P ANK A1,DTE:O
0x4e6e7c…4e7010 Dummy {f00=0x018b, f01=0x0190, f02=»QU * P SUK A1,1 PCKCON6 EQU * P ADKL A15,4 2 P LDR A1,A1 F P ABR* A15 X P EJECT j P* x P* C K D T E - CHECK DTE P* B P* CHECKS IF THE SYMBOLIC DTE ADDRESS IS FOUND IN THE SCTDCT- @ P* TABLE IN THE SYST
0x4e7010…4e71a4 Dummy {f00=0x018b, f01=0x018e, f02=» A4 = DTE-TYPE P* 8 P* RETURN: CR = 0 IF SYMBOLIC DTE-ADDRESS FOUND OK " P* CR <>0 ELSE ^ P* ~ H P******************************************************************* P PCKDTE EQU * P LDR A3,A4 $ P LD A1
0x4e71a4…4e7338 Dummy {f00=0x018b, f01=0x0190, f02=» PCKDTE1 EQU * P SUR A2,A2 P CF A15,FNDDNT GET DTE-INDEX * P LDR A1,A1 N " P RF(N) CKDTE3 INVALID SYMB DTE ` P CWK A4,LDTE P RF(NE) CKDTE3 REMOTE DTE P LDKL A1,-1 P CWK A3,NLIN-1 $ P RF(G) CKDTE3 LINE INDEX TOO BIG
0x4e7338…4e74cc Dummy {f00=0x018b, f01=0x0190, f02=» A1,A1 PCKDTE3 EQU * P ADKL A15,4 " P LDR A1,A1 6 P ABR* A15 H P EJECT Z P* h * P* S P T I M - START PROCEDURE TIMER r P* @ P* THIS TIMER IS STARTED WHEN LEAVING X21 CONNECTION-PHASE.- . P* (AFTER HAVING KILLED TH
0x4e74cc…4e7660 Dummy {f00=0x018b, f01=0x018e, f02=» O U T THE ASSOCIATED CONNECT ACTIVE OR PASSIVE < P* REQUEST(S) IS (ARE) COMPLETED AND THE LINK IS RESET. 8 P* x H P******************************************************************* P PSPTIM EQU * P LDR A1,A6 P CF A15,SETI
0x4e7660…4e77f4 (1, 1390) Dummy {f00=0x018b, f01=0x0190, f02=» PPTIMO EQU * P LDR A6,A1 P LD A7,DWTCHD,A6 DTETAB ADDR . P LD A8,DWTECB,A6 R . P CM ECBRC,A8 RESET M.B ALREADY SET R-CODE j P LD A1,DWTOR,A6 GET ORDER P ANK A1,/FF P SUK A1,CPAS $ P RF(NZ) PTIMO1 NOT CONN. PASSIVE
0x4e77f4…4e7988 Dummy {f00=0x018b, f01=0x0190, f02=»T(S) j P EJECT C:CTRL P $ @ P*********************************************************** , P* p " P* I N C O M I N G C A L L z P* < P* - IF A WAIT FOR CALL REQUEST HAS BEEN ISSUED 0 P* THE INCOMING CAL
0x4e7988…4e7b1c Dummy {f00=0x018b, f01=0x0190, f02=»************************ j P PIN:CAL EQU * ( " P LDK A5,STB:I INPUT STACK BASE < P ADR A5,A7 b P t 0 P LD A6,DTE:QW,A7 WAIT FOR CALL QUEUE ANCHOR | < P RF(Z) INC:80 NO OUTST. PASSIVE REQ - REFUSE INCOM. CALL P SUK A6,DWTOPN REMOVE OF
0x4e7b1c…4e7cb0 Dummy {f00=0x018b, f01=0x0190, f02=»IC 0 P CF A15,DCSUPR UPDATE NO. OF INCOMMING CALLS P SLA A1,1 > P LD A1,DCSERT,A1 P ( P ORS A1,DTE:ST,A7 SAVE EV ERROR-CODE h P XIF . P LDK A4,N:INFO NETWORK INFORMATION BUFFER P ADR A4,A7 $ P SUR A3,A3 RESET CHARACTER COUNT
0x4e7cb0…4e7e44 Dummy {f00=0x018b, f01=0x0190, f02=»**** V P* 8 P* COMPLETE ALL OUTSTANDING WAIT FOR CALL REQUESTS , P* WITH THE CALLING DTE AS DESTINATION R P* < P******************************************************* P P LDK A4,DTE:CP * P XRS A4,DTE:ST,A7 RESET CALL I
0x4e7e44…4e7fd8 Dummy {f00=0x018b, f01=0x0190, f02=» SOMETHING FISHY !! P PINC:10 EQU * $ P LDR A3,A3 8 2 P ST A3,DTENIC,A7 SET/RESET NETW. INFO COUNTER J $ P RF(Z) INC:20 NO CALLING LINE ID 2 P CF A15,FATOB CONV. NUMERICS FROM ASCII TO BCD , P CF A15,GETDSA GET REMOTE SYMB DTE ADDR
0x4e7fd8…4e816c Dummy {f00=0x018b, f01=0x018e, f02=»/FF MASK OPTION-BITS $ P RF(Z) INC:40 ALL CALLS ACCEPTED P SUK A2,1 D 2 P RF(Z) INC:90 CALLS FROM NUMTAB DTE'S ACCEPTED V P P CW A4,ECBCW1,A8 * P RF(NE) INC:50 CALLING DTE NOT ALLOWED P EJECT C:CTRL P & PINC:40 LD A8,D
0x4e816c…4e8300 Dummy {f00=0x018b, f01=0x018e, f02=» p * P CF A15,Q:DCT PUT DWT IN DC:TAB QUEUE P LDK A1,DS:C 6 P ORS A1,DWTST,A6 J 0 P ST A7,DWTCHD,A6 SAVE DTETAB ADDR FOR LATER b P IM DTE:NC,A7 P LDK A1,DTE:C ( P ORS A1,DTE:ST,A7 SET DTE CONNECTED P , PINC:50 LD A6,DWTOP
0x4e8300…4e8494 (1, 1391) Dummy {f00=0x018b, f01=0x0190, f02=» PINC:60 EQU * P P LD A1,DTE:ST,A7 DTE STATUS P ANK A1,DTE:C D P RF(Z) INC:70 Z , P LD A6,DTE:QD,A7 GET FIRST DWT IN QUEUE p P SUK A6,DWTCHN POINT AT TOP " P CF A15,SPTIM START PROC TIMER P IM DTE:DF,A7 P IFT DYN
0x4e8494…4e8628 Dummy {f00=0x018b, f01=0x0190, f02=» P ABL BRM P EJECT P " PINC:70 EQU * * " P CF A5,DTECLR CLEAR CONNECTION > PINC:80 EQU * d P CF A5,DTERDY SET DTE READY x P LDR A1,A1 P RF(Z) INC:85 STATE 1 P SUK A1,S:18 * P ABL(NZ) X21:20 NEITHER STATE 1 NOR 18
0x4e8628…4e87bc Dummy {f00=0x018b, f01=0x0190, f02=»NG DTE IN NUMTAB | ( P RB INC:50 -"- NOT IN NUMTAB P EJECT C:CTRL D P* P* f * P* CONVERT NUMERICS FROM ASCII TO BCD p P* P* PFATOB EQU * P LDK A2,N:INFO * P ADR A2,A7 ADDRESS TO NETW INFO TABLE
0x4e87bc…4e8950 Dummy {f00=0x018b, f01=0x0190, f02=»B 4 P RF(Z) FATOB3 '+' (/2B) IS END OF IDENTIFICATION P SUK A3,5 B & P C1R A8,A8 COMPLEM. "NIPPLE"-FLAG T " P RF(NN) FATOB2 TAKE RIGHT BCD ~ * P SLL A3,4 MAK'IT LEFT BCD BY SHIFTING P SUR A4,A4 PFATOB2 EQU * P ADR A4,A3 MERGE
0x4e8950…4e8ae4 Dummy {f00=0x018b, f01=0x0190, f02=»S x P ADK A2,1 ( P RB FATOB1 NEXT ASCII FOR CONVERSION P H PFATOB3 EQU * P P STR A4,A2 SAVE LAST BCD d P SUR A1,A7 NO. OF BCD-DIGITS P LDK A2,N:INFO & P ADR A2,A7 ADDR TO NETW NO. IN BCD P RTN A15 P EJECT C:CTRL
0x4e8ae4…4e8c78 Dummy {f00=0x018b, f01=0x0190, f02=»M A N D S j P* 8 P* THE FOLLOWING COMMANDS ARE ISSUED BY THIS MODULE P* X $ P* - DTERDY SET DTE READY b 2 P* - DTECNR SET DET CONTROLLED NOT READY * P* - DTEACL ACCEPT INCOMING CALL P* - DTECAL CALL
0x4e8c78…4e8e0c Dummy {f00=0x018b, f01=0x0190, f02=» P PDTERDY LDK A1,RDY P CF A5,X21IN SET DTE READY & P ANK A1,STATE X21-STATE H P RTN A5 h P x PDTECNR LDK A1,CNR . P CF A5,X21IN SET DTE CONTROLLED NOT READY P ANK A1,STATE X21 STATE P SUK A1,S:14 P RTN A5
0x4e8e0c…4e8fa0 Dummy {f00=0x018b, f01=0x0190, f02=»1,CLR & P CF A5,X21HLT CLEAR X21 CONNECTION P RTN A5 8 P EJECT H P V PDTECAL EQU * ^ P LC A2,DWTOR,A6 r P ANK A2,/7F MASK OPTION-BITS P SUK A2,2 P RF(N) CAL:02 NUMBER CALL P RF(Z) CAL:01 DIRECT CALL PCAL:
0x4e8fa0…4e9134 (1, 1392) Dummy {f00=0x018c, f01=0x0190, f02=» DIRECT CALL P LDK A4,N:INFO * P ADR A4,A7 NETWORK INFORMATION BUFFER * P SUR A3,A3 X $ P CF A5,X21IN START CALL SEQUENCE j P RF CAL:05 P PCAL:02 EQU * P LDKL A4,RDTE 4 P CF A15,CKDTE CHECK DTE ADDR AND GET NETW NUMBER
0x4e9134…4e92c8 Dummy {f00=0x018c, f01=0x0190, f02=»6 " P RF(NN) CAL:03 SHORT T3-TIMER P EJECT 0 P LDK A1,LONGT . > " P CF A5,X21IN SET LONG T3-TIMER V PCAL:03 EQU * . | ( P LDK A1,NSCAL NUMBER SELECTION CALL P LC A2,DWTOR,A6 P ANK A2,/7F " P RF(Z) CAL:04 NUMBER SEL CALL
0x4e92c8…4e945c Dummy {f00=0x018c, f01=0x0190, f02=»ELOAD ECB-ADDR ~ P P D P*************************************************************** & P* n < P* PREPARE X21-INTERFACE FOR RECEPTION OF CALL PROGRESS x . P* AND CALLED LINE IDENTIFICATION SIGNALS P* D P********************
0x4e945c…4e95f0 Dummy {f00=0x018c, f01=0x0190, f02=» SUK A1,S:12 * P RF(NZ) CAL:06 DCE NOT READY FOR DATA ! P RTN A5 ! B P EJECT C:CTRL ! R P ! j B P************************************************************* ! r P* ! " P* CONNECTION NOT ESTABLISHED ! P* ! @ P* POSSIBLE REASONS :
0x4e95f0…4e9784 Dummy {f00=0x018c, f01=0x0190, f02=» DCE CLEAR ! P* " D P**************************************************************** " * P " r PCAL:06 LDR A1,A2 X21 STATUS " z P SLL A1,5 " P RF(N) CAL:08 DTE TIMEOUT " P SLL A1,1 " P RF(N) CAL:10 CALL PROGRESS " P
0x4e9784…4e9918 Dummy {f00=0x018c, f01=0x0190, f02=»********************************* " P # * PCAL:08 EQU * # 2 " P CF A5,DTECLR CLEAR CONNECTION # F P CF A5,DTERDY AND SET READY # l , P LDK A1,R:PCON SET FOR PHYS. CONN. ERROR # P RB CAL:00 # P EJECT # P # @ P********************************
0x4e9918…4e9aac Dummy {f00=0x018c, f01=0x0190, f02=»****** # j P $ * PCAL:10 LDR A1,A2 X21 INTERFACE STATUS $ P ANK A1,STATE X21 STATE $ D P SUK A1,S:21 $ d P RB(NZ) CAL:08 NETW NOT UP $ x P CF A5,DTERDY SET DTE READY $ ( P LDR A2,A4 COPY PRESENT N:INFO ADDR $ P SUK A2,1 $ P SUR A1,A1 $
0x4e9aac…4e9c40 Dummy {f00=0x018c, f01=0x0190, f02=»1 UPDATE BUFFER ADDRESS $ & P SUK A3,1 DECREMENT SIGNAL LENGTH % " P RB(P) CAL:11 GET NEXT SIGNAL % J P CM DTENIC,A7 % p P RB CAL:08 UNSIGNIFICANT C-P % P EJECT % PCAL:12 EQU * % & P LC A2,-2,A2 CALL PROGRESS BYTE 1 % P ANK A2,/FF %
0x4e9c40…4e9dd4 (1, 1393) Dummy {f00=0x018c, f01=0x0190, f02=»+R:LCON FURTHER INFO AVAILABLE % P RTN A5 & & P EJECT & 6 P IFT TSTOFF=1 & D PFDMOD EQU * & Z P LDK A1,FDAT & n P CF A5,X21IN & P ANK A2,STATE & P SUK A2,S:12 & P RB(NZ) FDMOD & P RTN A5 & P XIF & P EJECT C:CTRL &
0x4e9dd4…4e9f68 Dummy {f00=0x018c, f01=0x0190, f02=» FOR CALL QUEUE & l > P* - RQ:WCL RELEASE DWT FROM WAIT FOR CALL QUEUE ' . P* - Q:CAL PUT DWT IN CALL QUEUE ' Z 2 P* - RQ:CAL RELEASE FROM CALL QUEUE ' 0 P* - Q:DCT PUT DWT IN DEVICE QUEUE ' P* ' D P********
0x4e9f68…4ea0fc Dummy {f00=0x018c, f01=0x0190, f02=»TOPN ' P RF QIN:05 ( P ( * PQ:CAL LDK A1,DTE:QC CALL QUEUE ANCHOR ( & P LDK A3,DWTOPN ( T P RF QIN:05 ( j P ( | , PQ:DCT LDK A1,DTE:QD DC:TAB QUEUE ANCHOR ( P LDK A3,DWTCHN ( P RF QIN:05 ( P ( PQIN:05 ADR A1,A7 ( & PQIN:10 LDR*
0x4ea0fc…4ea290 Dummy {f00=0x018c, f01=0x0190, f02=»3,A6 ( P STR A3,A1 PUT DWT IN QUEUE ) P CMR A3 END OF QUEUE ) 0 P ADKL A15,4 ) L $ P ABR* A15 RETURN IN INHIBIT MODE ) ` P EJECT C:CTRL ) P ) 4 PRQ:WCL LDK A1,DTE:QW WAIT FOR CALL QUEUE ANCHOR ) P LDK A3,DWTOPN ) P RF QUT:10 ) P
0x4ea290…4ea424 Dummy {f00=0x018c, f01=0x0190, f02=»ANCHOR ) n P LDK A3,DWTCHN * P RF QUT:10 * $ P * 6 PQUT:10 ADR A1,A7 * > P ADR A3,A6 * V $ PQUT:20 LDR* A2,A1 NEXT IN QUEUE * h " P RF(Z) QUT:40 DWT NOT IN QUEUE * P CWR A2,A3 * P RF(E) QUT:30 DWT FOUND * P LDR A1,A2 * P RB QUT:20 TRY
0x4ea424…4ea5b8 Dummy {f00=0x018c, f01=0x0190, f02=» P ABR* A15 + P EJECT C:CTRL + P + . PX21IN EQU * + 6 P LD A2,PFPOST + J * P RF(NZ) X21IN1 PWR FL POST PROCESSING + ` P EX CIOIN,A7 START INPUT + $ P RF(NA) DTENOP CIO NOT ACCEPTED + PX21IN1 EQU * + P LDK A1,DTE:IT + . P ORS A1,
0x4ea5b8…4ea74c Dummy {f00=0x018c, f01=0x0190, f02=»A15,STREGO + P ABL TDISP , P , $ PX21HLT EQU * , , P LD A2,PFPOST , @ * P RB(NZ) X21IN1 PWR FL POST PROCESSING , V P EX HLTIN,A7 , P RB X21IN1 , PDTENOP EQU * , " P LDKL A1,/61 STATE 21 + NOT OP , P ST A1,DTEHWS,A7 , P RTN A5 ,
0x4ea74c…4ea8e0 Dummy {f00=0x018c, f01=0x0190, f02=» , t P* - & P********************************* - P - < " PX:23IN EX INR,A7 GET CHARACTER - D P RF(NA) IH23:1 SST-INTERRUPT - j P SCR A2,A4 SAVE CHARACTER - P IFF LOGG=0 - & P CF A5,LOGXIN LOGG INPUT INTERRUPT - P XIF - P ADK A4,1 UPDA
0x4ea8e0…4eaa74 (1, 1394) Dummy {f00=0x018c, f01=0x018e, f02=»:1 EX SST:I,A7 GET X21-INTERFACE STATUS - P IFF LOGG=0 . 0 $ P CF A5,LOGXST LOGG SST INTERRUPT . D P XIF . l P ST A2,DTEHWS,A7 . x P LDR A1,A2 . P ANK A1,STATE CURRENT STATE . P SUK A1,S:1 . P RF(NZ) IH23:4 . P LDK A1,DTE:NR STATE 1 .
0x4eaa74…4eac08 Dummy {f00=0x018c, f01=0x018e, f02=» 2 P ABL(Z) TDISP WHO WANTS AN UNEXP. INTERRUPT ? / . P XRS A1,DTE:ST,A7 RESET INTERRUPT EXPECTED / : P LDR A1,A2 COPY STATUS / l P RTN A5 / PIH23:4 SUK A1,S:8-S:1 / P RF(NZ) IH23:5 / P LDK A1,DTE:IT / P C1R A1,A1 / . P ANS A1,DTE:ST,A7
0x4eac08…4ead9c Dummy {f00=0x018c, f01=0x0190, f02=» P 0 P SUK A1,S:18-S:12 0 P RB(NZ) IH23:2 STATE 21 0 & P 0 F P LDK A1,DTE:NR STATE 18 0 N ( P ORS A1,DTE:ST,A7 SET DCE NOT READY 0 n P LDR A1,A2 0 P ANKL A1,HS:DC 0 P ABL(NZ) X21:20 DCE CLEAR 0 P RB IH23:2 0 P* 0 P EJECT
0x4ead9c…4eaf30 Dummy {f00=0x018c, f01=0x0190, f02=»********************* 0 P 1 PX:23UT EQU * 1 & P LDK A2,/2B ASCII '+' 1 : P SUK A3,1 . 1 X P RF(Z) IH23:7 NO MORE CHAR'S 1 l P LCR A2,A4 . 1 P LDR A8,A8 . 1 & P RF(NN) IH23X5 LEFT BCD TO OUTPUT 1 P ADK A4,1 NEXT BYTE IN TURN 1 P A
0x4eaf30…4eb0c4 Dummy {f00=0x018c, f01=0x0190, f02=»UK A2,/F 1 P RB(Z) X:23UT PAD CHARACTER 2 P ADK A2,1 2 4 * P RF(NZ) IH23:6 NOT START OF ABBR.CALL 2 F P SUK A2,/10 . 2 t PIH23:6 EQU * . 2 P ADK A2,/E . 2 P LC A1,DWTOR,A6 2 P ANK A1,/7F 2 P SUK A1,1 2 ( P RF(Z) IH23:7 SD-CALL
0x4eb0c4…4eb258 Dummy {f00=0x018c, f01=0x0190, f02=») IH23:0 SST-INTERRUPT 2 P IFF LOGG=0 3 ( P CF A5,LOGXUT LOGG OUTPUT INTERRUPT 3 2 P XIF 3 ^ P SUK A2,8 3 j , P RF(N) IH23:9 SD-CALL - JUST OUTP. ONCN 3 | P LDR A3,A3 . 3 & P RF(Z) IH23:9 ALL CHARACTERS SENT 3 P 3 . PIH23:8 CF A15,STREGO S
0x4eb258…4eb3ec Dummy {f00=0x018c, f01=0x0190, f02=» LDK A4,N:INFO 3 P ADR A4,A7 4 P CF A15,STREGI 4 ( & P RB IH23:8 WAIT FOR SST-INTERRUPT 4 > P 4 h " PIH23:0 EX SST:O,A7 GET STATUS 4 p P IFF LOGG=0 4 $ P CF A5,LOGXST LOGG SST INTERRUPT 4 P XIF 4 P LDR A1,A2 4 & P RTN A5 RETURN TO COMMAN
0x4eb3ec…4eb580 Dummy {f00=0x018c, f01=0x0190, f02=»D REGS. A3-A8 4 ~ P* 5 ( P************************************ 5 P 5 L ( PSTREGI ST A3,DTE:I3,A7 SAVE REG. A3 5 T " P ST A4,DTE:I4,A7 A4 5 " P ST A5,DTE:I5,A7 A5 5 " P ST A6,DTE:I6,A7 A6 5 " P ST A8,DTE:I8,A7
0x4eb580…4eb714 (1, 1395) Dummy {f00=0x018c, f01=0x0190, f02=» A4 5 t $ P LD A5,DTE:I5,A7 A5 6 $ P LD A6,DTE:I6,A7 A6 6 4 $ P LD A8,DTE:I8,A7 A8 6 " P ABL IHRTN RETURN IN SAME MODE 6 P EJECT C:CTRL 6 P 6 , PSTREGO ST A3,DTE:O3,A7 SAVE REGISTER A3 6 & P ST A4,DTE:O4,
0x4eb714…4eb8a8 Dummy {f00=0x018c, f01=0x0190, f02=» A8 6 x " P ABL IHRTN RETURN IN SAME MODE 7 P 7 8 . PLDREGO LD A3,DTE:O3,A7 RELOAD REGISTER A3 7 @ ( P LD A4,DTE:O4,A7 A4 7 r ( P LD A5,DTE:O5,A7 A5 7 ( P LD A6,DTE:O6,A7 A6 7 ( P LD A8,DTE:O8,A7
0x4eb8a8…4eba3c Dummy {f00=0x018c, f01=0x0190, f02=» P* 8 & P* REQ:CL CLOSE QUEUED REQUESTS 8 P* 8 8 , P**************************************** 8 B P 8 r PREQ:CL EQU * 8 z P LDR A6,A7 8 PREQ:01 EQU * 8 " P LD A6,DWTCHN,A6 GET DWT ADDR 8 & P RF(Z) REQ:02 WHOLE QUEUE SCANNED 8 P SUK
0x4eba3c…4ebbd0 Dummy {f00=0x018c, f01=0x0190, f02=»NC,A7 RESET # ACTIVE CONNECTIONS! 8 $ P LDKL A2,/EFFF RESET PWR ON BIT 9 * & P ANS A2,DTE:ST,A7 RESET DTE STATUS 9 R * P CF A15,RQ:CAL RELEASE FROM CALL QUEUE 9 | 4 P CF A15,RQ:WCL RELEASE FROM WAIT FOR CALL QUEUE 9 , P CF A15,RQ:DCT DC:TAB QUE
0x4ebbd0…4ebd64 Dummy {f00=0x018c, f01=0x0190, f02=»NSMIT QUEUE 9 n $ P LDK A1,R:PCON PHYS. CONN ERROR : $ P CF A15,TENDIO COMPLETE REQUEST : < P RB REQ:01 NEXT DWT : d P : PREQ:02 EQU * : P LD A6,DTE:QC,A7 : , P RF(Z) REQ:03 NO OPEN/CLOSE REQ. PENDING : P CM DTE:QC,A7 : P LDK A1,R:INFO
0x4ebd64…4ebef8 Dummy {f00=0x018c, f01=0x0190, f02=»TROLLER NOT OPERABLE : P* ; T P******************************************************************************** ; & P ; ~ PX21:10 EQU * ; P SUR A2,A2 ; P* ; P* DCE CLEAR ; P* DCE NOT OPERABLE ; P* ; P ; PX21:20 EQU *
0x4ebef8…4ec08c Dummy {f00=0x018c, f01=0x0190, f02=») X21:60 DCE CLEAR ; P < P LDK A1,CSCDCE < " PX21:30 EQU * < 8 P IFT DCSTIC=1 < L P LDR A3,A1 < b P XIF < t $ P CF A15,DCSUPR UPDATE STATISTICS < P SLA A1,1 < P LD A1,DCSERT,A1 < ( P ORS A1,DTE:ST,A7 SET EV. ERROR BIT < P RF X21:60
0x4ec08c…4ec220 Dummy {f00=0x018c, f01=0x0190, f02=»VERY < p < P* SET DTE READY AND COMPLETE PENDING REQUESTS = P* = L B P************************************************************* = V P = PX21:40 EQU * . = 0 P CF A15,ZEXIT DON'T FORGET TO EXIT FOR QMJOB = PX21:50 EQU * = P LDK A
0x4ec220…4ec3b4 (1, 1396) Dummy {f00=0x018d, f01=0x0190, f02=»LEAR + STATE 18 = x P* > " PX21:60 LDK A5,STB:I STACK BASE > " P ADR A5,A7 > H P SUK A3,CSCDTE > Z P RF(Z) X21:70 DTE NOT OP > p P SUK A3,CSCDCE-CSCDTE > P RF(Z) X21:70 DCE NOT OP > PX21:65 EQU * > P CF A5,DTERDY SET DTE READY > P >
0x4ec3b4…4ec548 Dummy {f00=0x018d, f01=0x0190, f02=»UED JOBS TO FINISH > d P* ? P ? $ PQLJOB EQU * ? , P IM FLGON,A7 "LAST JOB" FLAG ? @ P LDR A3,A7 ? d ( P LDKL A2,TRM START ADDR OF LAST JOB ? v P LDK A1,REPPAR ? $ P CF A15,QMJOB QUEUE MONITOR JOB ? P ABL TDISP ? P EJECT ? P* ? (
0x4ec548…4ec6dc Dummy {f00=0x018d, f01=0x0190, f02=» CM FLDISC,A7 ? P CM DISSAB,A7 @ P CM COMFLG,A7 @ , P CM RRFLG,A7 @ B P CM PFFLAG,A7 @ V P CM TRWRQ,A7 @ l P CM DCWRQ,A7 @ P CF A15,RESTIZ RESET TIMERS @ 2 P CF A15,RESTFR RESET FRMR MODE TIMER (IF ANY) @ P CM OUTPOL,A7 @ P CM
0x4ec6dc…4ec870 Dummy {f00=0x018d, f01=0x0190, f02=»,EXTREP,A7 RESTORE RECOVERY STACK @ P RTN A15 A * P EJECT A : P A H P* A P 8 P* D W T - DTE C O N N E C T I O N T A B L E A Z P* A PDC:TAB EQU * A P DATA DTETB1 A P IFF NLIN=1 A P DATA DTETB2 A P XIF A P IFF NLIN=1
0x4ec870…4eca04 Dummy {f00=0x018d, f01=0x018e, f02=» P XIF B P DATA -1 B P EJECT B P* B . P* B 8 P* D T E - T A B L E S B B P* B d > P* PRIVATE INFO OF THE OWN PHYS. CONNECTION TO THE NETWORK B n P* B B P************************************************************* B P B P
0x4eca04…4ecb98 Dummy {f00=0x018d, f01=0x0190, f02=» P CIO A1,0,CHLCI1 HLTIN C P CIO A1,0,CHLCU1 HLTOUT C " P SST A2,CHLCI1 SST:I C B P SST A2,CHLCU1 SST:O C ^ P IFT MMUPAG=1 C z P DATA 0,0 MMU DUMMY WORDS C P XIF C P DATA SBLK1-DTETB1 DTESTB C P DATA 0 DTECHD C P DATA 0 DTE:QD C
0x4ecb98…4ecd2c Dummy {f00=0x018d, f01=0x0190, f02=» DATA 0 DTE:RY C P DATA 0 DTE:DF D DATA 0 DTE:I3 D , DATA 0 DTE:I4 D B DATA 0 DTE:I5 D X DATA 0 DTE:I6 D n DATA 0 DTE:I8 D DATA 0 DTE:O3 D DATA 0 DTE:O4 D DATA 0 DTE:O5 D DATA 0 DTE:O6 D DATA 0 DTE:O8 D P
0x4ecd2c…4ecec0 Dummy {f00=0x018d, f01=0x0190, f02=»ATA REPTB1 POIREP D P DATA REPTB1 INSREP E P DATA REPTB1 EXTREP E 6 PREPTB1 DATA 0,0,0,0,0,/FFFF E R DATA 0 DWTT1 E v DATA 0 DWTT2 E P DATA 0 FRMRTI E DATA 0 DWTTRY E DATA 0 DCWRQ E DATA 0 TRWRQ E DATA 0 CPCNT
0x4ecec0…4ed054 (1, 1397) Dummy {f00=0x018d, f01=0x0190, f02=» DATA 0 FIELD1 F DATA 0 FLDISC F DATA 0 INTTRA F 0 DATA 0 OUTPUT F F DATA 0 FLSABM F P DATA 0 DISSAB F r DATA 0 WINDOW F DATA 0 LCOM F DATA 0 RRFLG F DATA 0 SWITCH F DATA 0 TESTCF F DATA 0 BUFNUL F
0x4ed054…4ed1e8 Dummy {f00=0x018d, f01=0x0190, f02=»ATA 0 ADDR2 F P DATA 0 PWRON G RES 6 DLOBUF G * P DATA *+2 G @ P DATA *+RLINK G R P RES RBUFL+3 G h P DATA 0 G | P RES RBUFL+3 G PSBLK1 EQU * G P IFT DCSTIC=1 G P DATA 0 G P DATA 0 DTECST G P DATA MIXST DTEMIX G
0x4ed1e8…4ed37c Dummy {f00=0x018d, f01=0x018e, f02=»IF G P EJECT H PDTETB2 EQU * H P IFF NLIN=1 H , P CIO A1,1,CHLCI2 H @ P CIO A1,1,CHLCU2 H X P INR A2,0,CHLCI2 H p P OTR A2,0,CHLCU2 H P CIO A1,0,CHLCI2 H P CIO A1,0,CHLCU2 H P SST A2,CHLCI2 H P SST A2,CHLCU2 H P IFF NLIN=1
0x4ed37c…4ed510 Dummy {f00=0x018d, f01=0x0190, f02=» P DATA 0 I P DATA 0 I P DATA 0 I $ P DATA 0 I 4 P DATA 0 I D P DATA 0 I T P DATA 0 I d P DATA 0 I t DATA 0 DTE:I3 I DATA 0 DTE:I4 I DATA 0 DTE:I5 I DATA 0 DTE:I6 I DATA 0 DTE:I8 I DATA 0 DTE:O3 I
0x4ed510…4ed6a4 Dummy {f00=0x018d, f01=0x0190, f02=» I P DATA 0 J P DATA 0 J P RES 15 J ( P DATA REPTB2 J 8 P DATA REPTB2 J L P DATA REPTB2 J ` PREPTB2 DATA 0,0,0,0,0,/FFFF J t DATA 0 DWTT1 J DATA 0 DWTT2 J P DATA 0 FRMRTI J DATA 0 DWTTRY J DATA 0 DCWRQ J D
0x4ed6a4…4ed838 Dummy {f00=0x018d, f01=0x0190, f02=»0 LNRCNT J DATA 0 RVSCNT K DATA 0 FIELD1 K & DATA 0 FLDISC K < DATA 0 INTTRA K R DATA 0 OUTPUT K h DATA 0 FLSABM K ~ P DATA 0 DISSAB K DATA 0 WINDOW K DATA 0 LCOM K DATA 0 RRFLG K DATA 0 SWITCH K DATA 0
0x4ed838…4ed9cc Dummy {f00=0x018d, f01=0x018e, f02=»N K P DATA 0 ADDR1 L P DATA 0 ADDR2 L P DATA 0 PWRON L 6 RES 6 DLOBUF L L P DATA *+2 L b P DATA *+RLINK L t P RES RBUFL+3 L P DATA 0 L P RES RBUFL+3 L PSBLK2 EQU * L P IFT DCSTIC=1 L P DATA 0 L P DATA 0 L
0x4ed9cc…4edb60 Dummy {f00=0x018d, f01=0x0190, f02=» L PMMUBF2 RES TBUFL+1 M P XIF M " P EJECT M . PDTETB3 EQU * M < P IFF NLIN=1 M P P IFF NLIN=2 M d P CIO A1,1,CHLCI3 M x P CIO A1,1,CHLCU3 M P INR A2,0,CHLCI3 M P OTR A2,0,CHLCU3 M P CIO A1,0,CHLCI3 M P CIO A1,0,CHLCU3 M P
0x4edb60…4edcf4 (1, 1398) Dummy {f00=0x018d, f01=0x018e, f02=» IFF NLIN=1 M P IFF NLIN=2 N P DATA SBLK3-DTETB3 N ( P DATA 0 N B P DATA 0 N R P DATA 0 N b P DATA 0 N r P DATA 0 N P DATA 0 N P DATA 0 N P DATA 0 N P DATA 0 N P DATA 0 N DATA 0 DTE:I3 N DATA 0 DTE:I4 N
0x4edcf4…4ede88 Dummy {f00=0x018d, f01=0x018e, f02=» DATA 0 DTE:O6 O DATA 0 DTE:O8 O P RES 9 O 0 P RES 1 O > P RES 9 O L P RES 1 O Z P DATA 0 O h P DATA 0 O x P RES 15 O P DATA REPTB3 O P DATA REPTB3 O P DATA REPTB3 O PREPTB3 DATA 0,0,0,0,0,/FFFF O DATA 0 DWTT1 O
0x4ede88…4ee01c Dummy {f00=0x018d, f01=0x0190, f02=» DATA 0 VSCNT P DATA 0 VRCNT P DATA 0 NSCNT P 0 DATA 0 NRCNT P F DATA 0 LNRCNT P DATA 0 RVSCNT P r DATA 0 FIELD1 P DATA 0 FLDISC P DATA 0 INTTRA P DATA 0 OUTPUT P DATA 0 FLSABM P P DATA 0 DISSAB P
0x4ee01c…4ee1b0 Dummy {f00=0x018d, f01=0x0190, f02=»ATA 0 STATUS P DATA 0 PFFLAG Q DATA 0 COMFLG Q * DATA 0 OUTPOL Q @ DATA 0 FLGON Q V P DATA 0 ADDR1 Q l P DATA 0 ADDR2 Q P DATA 0 PWRON Q RES 6 DLOBUF Q P DATA *+2 Q P DATA *+RLINK Q P RES RBUFL+3 Q P DATA 0
0x4ee1b0…4ee344 Dummy {f00=0x018d, f01=0x0190, f02=» P XIF R P IFF NLIN=1 R P IFF NLIN=2 R $ P IFT MMUPAG=1 R 8 P* R N P* MMU WORK BUFFER R X P* R r PMMUBF3 RES TBUFL+1 R | P XIF R P EJECT R PDTETB4 EQU * R P IFF NLIN=1 R P IFF NLIN=2 R P IFF NLIN=3 R P CIO A1,
0x4ee344…4ee4d8 Dummy {f00=0x018d, f01=0x018e, f02=» SST A2,CHLCI4 R P SST A2,CHLCU4 S P IFF NLIN=1 S , P IFF NLIN=2 S @ P IFF NLIN=3 S T P IFT MMUPAG=1 S h P DATA 0,0 S ~ P XIF S P IFF NLIN=1 S P IFF NLIN=2 S P IFF NLIN=3 S P DATA SBLK4-DTETB4 S P DATA 0 S P DATA
0x4ee4d8…4ee66c Dummy {f00=0x018d, f01=0x0190, f02=» DATA 0 DTE:I3 T DATA 0 DTE:I4 T DATA 0 DTE:I5 T 0 DATA 0 DTE:I6 T F DATA 0 DTE:I8 T DATA 0 DTE:O3 T r DATA 0 DTE:O4 T DATA 0 DTE:O5 T DATA 0 DTE:O6 T DATA 0 DTE:O8 T P RES 9 T P RES 1 T P RES 9 T
0x4ee66c…4ee800 Dummy {f00=0x018d, f01=0x0190, f02=»0,0,0,0,0,/FFFF T DATA 0 DWTT1 U DATA 0 DWTT2 U . P DATA 0 FRMRTI U D DATA 0 DWTTRY U Z DATA 0 DCWRQ U p DATA 0 TRWRQ U DATA 0 CPCNT U DATA 0 VSCNT U DATA 0 VRCNT U DATA 0 NSCNT U DATA 0 NRCNT U
0x4ee800…4ee994 (1, 1399) Dummy {f00=0x018d, f01=0x0190, f02=»ATA 0 FLSABM U P DATA 0 DISSAB V DATA 0 WINDOW V * DATA 0 LCOM V @ DATA 0 RRFLG V T DATA 0 SWITCH V j DATA 0 TESTCF V DATA 0 BUFNUL V DATA 0 STATUS V DATA 0 PFFLAG V DATA 0 COMFLG V DATA 0 OUTPOL V DAT
0x4ee994…4eeb28 Dummy {f00=0x018d, f01=0x4174, f02=»K V P RES RBUFL+3 W P DATA 0 W P RES RBUFL+3 W . PSBLK4 EQU * W B P IFT DCSTIC=1 W V P DATA 0 W l P DATA 0 W | P DATA MIXST W P RES MIXST W P XIF W P IFF NLIN=1 W P IFF NLIN=2 W P IFF NLIN=3 W P IFT MMUPAG=1
0x4eeb28…4eecbc Dummy {f00=0x018d, f01=0x2008, f02=» X IHRTN RETURN IN SAME MODE P EJECT C:CTRL * P B PDCECLR EQU * J PRE:X21 EQU * ^ PX21:15 EQU * r PTEST EQU * P LDKL A6,DW0701 P LDKL A1,/FFFF P ABL DISEND P END @ ,DTE:O5,A7 A5
0x4eecbc…4eee50 Dummy {f00=0x018d, 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 *
0x4eee50…4eefe4 Dummy {f00=0x018d, 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
0x4eefe4…4ef178 Dummy {f00=0x018d, 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
0x4ef178…4ef30c Dummy {f00=0x018d, 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* $
0x4ef30c…4ef4a0 Dummy {f00=0x018d, 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
0x4ef4a0…4ef634 (1, 1400) Opaque[0x194]
0x4ef634…4ef7c8 # DirEnt {nam=»DW2301«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x31c0, f03=0x0000}
0x4ef634…4ef7c8 IdxSect {
0x4ef634…4ef7c8 f00 = 0x018e // 0x4ef634 @0x0
0x4ef634…4ef7c8 f01 = 0x0002 // 0x4ef636 @0x2
0x4ef634…4ef7c8 gno = [ // 0x4ef638 @0x4
0x4ef634…4ef7c8 [0x00]: C0x018e.0x0.0
0x4ef634…4ef7c8 ]
0x4ef634…4ef7c8 }
0x4ef7c8…4ef95c Dummy {f00=0x018e, f01=0x0190, f02=» 2 P IDENT DW2301 REL 11.0 81-04-15 870105041100 P* : 8 P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE D P* P ENTRY DW2301 TABLE ENTRY * P EXTRN DC23AD POINTER TO ADDRESS-BLOCK P* P* PMMUPAG EQU 0 P*
0x4ef95c…4efaf0 Dummy {f00=0x018e, f01=0x0190, f02=»ECB-ADDRESS P DATA DWTEND-DW2301 P RIGHT BYTE=ORDER 0 * P DATA DC23AD POINTER TO ADDRESS-BLOCK L P DATA 'DC' TTAB-ADDRESS z $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 P DATA 0 USER ECB A
0x4efaf0…4efc84 Dummy {f00=0x018e, f01=0x0190, f02=»K HEAD DWT x & P DATA 0 CONFIG CHAIN LINK NEXT DWT & P DATA 0 LOCAL SYMBOLIC DTE ADDRESS < ( P DATA 0 REMOTE SYMBOLIC DTE ADDRESS f ( P DATA 0 DRIVER DEP. WORD 1 (UNUSED) P DATA 0 REQUEST CONTROL WORD P DATA 0 REQUEST TIMER VALUE " P D
0x4efc84…4efe18 Dummy {f00=0x018e, f01=0x40f8, f02=»FER r P DATA 0 (UNUSED) P DATA 0 TRANSMIT RETRY $ P DATA 0 FRAME NUMBER B P DATA 0 WRITE QUEUE ^ P IFT MMUPAG=1 z PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0,0 P XIF PDWTEND EQU * P END @ VALUE " P D
0x4efe18…4effac Dummy {f00=0x018e, 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
0x4effac…4f0140 Dummy {f00=0x018e, f01=0x0190, f02=»R LCT r , ( Q R ;A L > , ( Y > X C , B , ( #@ X ! 'T @ C , L r , ( ? P $ ] f ! ] GETDSA , ( ] P T W ] dP
0x4f0140…4f02d4 (1, 1401) Opaque[0x194]
0x4f02d4…4f0468 # DirEnt {nam=»BOS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x31c8, f03=0x0000}
0x4f02d4…4f0468 IdxSect {
0x4f02d4…4f0468 f00 = 0x018e // 0x4f02d4 @0x0
0x4f02d4…4f0468 f01 = 0x0004 // 0x4f02d6 @0x2
0x4f02d4…4f0468 gno = [ // 0x4f02d8 @0x4
0x4f02d4…4f0468 [0x00]: C0x018e.0x1.0
0x4f02d4…4f0468 [0x01]: C0x018e.0x2.0
0x4f02d4…4f0468 ]
0x4f02d4…4f0468 }
0x4f0468…4f05fc Dummy {f00=0x018e, f01=0x0190, f02=» P$BOS P=ADMTSK P$BOS P=ARITMS P$BOS P=CTABC0 0 P$BOS P=DCADDR F P$BOS P=DFTAB P$BOS P=DRAS01 p P$BOS P=DRCD01 P$BOS P=DRCR01 PSCR P$BOS P=DRDC07 PSCR P$BOS P=DRDC13 PSCR P$BOS P
0x4f05fc…4f0790 Dummy {f00=0x018e, f01=0x0190, f02=»=DRDC82 PSCR P$BOS P=DRDI01 P$BOS P=DRDN01 2 PSCR H P$BOS P=DRDU01 T PSCR j P$BOS P=DRDY01 v P$BOS P=DRDY02 PSCR P$BOS P=DRFD01 PSCR P$BOS P=DRFD02 PSCR P$BOS P=DRGP01 P
0x4f0790…4f0924 Dummy {f00=0x018e, f01=0x0190, f02=» PSCR P$BOS P=DRMD01 P$BOS P=DRMS02 * P$BOS P=DRMT01 @ PSCR V P$BOS P=DRND01 b PSCR x P$BOS P=DROD01 PSCR P$BOS P=DRPL01 PSCR P$BOS P=DRSL01 P$BOS P=DRSOP1 PSCR P$BOS P=D
0x4f0924…4f0ab8 Dummy {f00=0x018e, f01=0x0190, f02=»P04 P$BOS P=DRTW01 P$BOS P=DRVU01 " P$BOS P=DSKSUB 8 PSCR N P$BOS P=DTTP03 Z P$BOS P=DVTDI p P$BOS P=DVTDN P$BOS P=DVTDY P$BOS P=DVTG1 P$BOS P=DVTG2 P$BOS P=DVTG3 P$BOS P=DVTGP PSCR P
0x4f0ab8…4f0c4c Dummy {f00=0x018e, f01=0x0190, f02=» P$BOS P=DVTVU P$BOS P=DW0701 P$BOS P=DW1301 . P$BOS P=DW1501 D PSCR Z P$BOS P=DW2201 f P$BOS P=DWII01 | P$BOS P=DWIO01 P$BOS P=DWL301 P$BOS P=EBCDIC P$BOS P=FMCDEF P$BOS P=FMTASK PSCR
0x4f0c4c…4f0de0 Dummy {f00=0x018e, f01=0x0190, f02=» P$BOS P=PFTAB P$BOS P=SCLASS PSCR 2 P$BOS P=SDMBUF > P$BOS P=SDMOCR T P$BOS P=SDMSUB j P$BOS P=SDMTSK PSCR P$BOS P=ST8000 PSCR P$BOS P=SYSINI PSCR P$BOS P=SYSLBA PSCR P
0x4f0de0…4f0f74 (1, 1402) Dummy {f00=0x018e, f01=0x0190, f02=»$BOS P=SYSTAB P$BOS P=TABORT P$BOS P=TCLASS , P$BOS P=TDISP B PSCR V P$BOS P=TIMER b P$BOS P=TIOADM v P$BOS P=TIODM PSCR P$BOS P=TIOEDM P$BOS P=TIOFM P$BOS P=TIOSDM P$BOS P=TLDPGM PSCR
0x4f0f74…4f1108 Dummy {f00=0x018e, f01=0x0052, f02=»OC P$BOS P=TSWBLK P$BOS P=TTMJOB PSCR 6 PASG /E0,TY10 B PSCR V P$BOS P=TIMER b P$BOS P=TIOADM v P$BOS P=TIODM PSCR P$BOS P=TIOEDM P$BOS P=TIOFM P$BOS P=TIOSDM P$BOS P=TLDPGM PSCR
0x4f1108…4f129c Dummy {f00=0x018e, f01=0x2008, f02=» P$BOS P=TSWBLK P$BOS P=TTMJOB PSCR 6 PASG /E0,TY10 B PSCR V P$BOS P=TIMER b P$BOS P=TIOADM v P$BOS P=TIODM PSCR P$BOS P=TIOEDM P$BOS P=TIOFM P$BOS P=TIOSDM P$BOS P=TLDPGM PSCR
0x4f129c…4f1430 Dummy {f00=0x018e, 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
0x4f1430…4f15c4 Dummy {f00=0x018e, 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
0x4f15c4…4f1758 Dummy {f00=0x018e, 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
0x4f1758…4f18ec Dummy {f00=0x018e, f01=0x0190, f02=» EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO * P EXTRN LKMQDI QUEUE TASK AND DISPATCH 6 * P EXTRN LKMERR HALT SYSTEM, FATAL ERROR d , P EXTRN GETBLK PUT BLOCK IN PENDING QUEUE 2 P EXTRN FREBLK RELEASE BLOCK FROM PENDING QUEUE P EXTRN SETIMP SE
0x4f18ec…4f1a80 Dummy {f00=0x018e, f01=0x0190, f02=» EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:SA SAVE AREA * P EXTRN TTB:MT MMUTAB J P EXTRN HALT =1 f P* ~ P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY